@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREIE SEKT.  G) *Gȩ GȽG GȌ*jj >G}J,}Λd dd\DOS SYSRAMDISK COM}B} BWW}CDOS SYS} C C*(> C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSLADEN NUR MIT MEM.SAV MOEGLICH.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VJ8 B V  @  /DE `E:D1:DUP.SYSPROGRAMM-SPEICHERUNG FEHLERHAFT!DOS DENNOC&}H LADEN? >J/N B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:}DISKETTEN BETRIEBSSYSTEM II VERS. COPYRIGHT 1985 ATARI CORP.A. DISK-INHALT I. FORMATIERENB. ZUM STECKMOD*}UL J. DISK KOPIEREN C. DATEI KOPIEREN K. BINAER SAVED. LOESCHE DATEI L. BINAER LOADE. NAMEN AENDERN M. START BEI ADR+}.F. DATEI SICHERN N. MEM.SAV ANLEGENG. DAT. FREIGEBEN O. DAT. KOPIERENH. DOS SCHREIBEN P. FORMATIEREN ӛL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }DOS 2.0s EINLEGEN -> Y, x -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!FALSCHE WAHLBITTE .}WAEHLEN, -> MENUE! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%INHALT [SUCHBEGRIFF,AUSGABEGER.]?[# 0 0 &|D3" 1L!KEINE DISKDATEIN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0JЛ 1 ;#L" ;#L! BL1->J ZUM LOESCHEN... LOESCHE DAT.NAME2}KOPIE-VON, AUF?DAS KANN ICH NICHT737 FREIE SEKT. KOPIERE---D1:DISKFIX.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!KEINE 'WILD CARD6}S' IM ZIEL-DATEINAMEN 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!FORMATFEHLER!WELCHE DATEI LADEN? ) 0 ?}0#B 1L!SICHERN DAT.-NAME?) 0 0$B 1L!FREIGEBEN DAT.-NAME?DUP DISK-ORIGINAL,ZIEL STAT?PROGRAMM-SPEICHER BE@}NUTZEN? (J/N)ACHTUNG: MEM.SAV WIRD DANN INAKTIV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)BEIDE DISKETTEN EINLEGEN, Ԯ^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` ZU WENIG RAM! ORIGINAL EINLEGEN, ZIEL DISKETTE EINLEGEN, E}`  `8 rL1`-* 1P* 1 y0J`hhL!UEBERTRAGE DATEI:...?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Jj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DOS.SYS ALS ZIEL VERBOJ}TEN! 0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-DAT.NL}AME,START,ENDE(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`BITTE NUR 1 ZEICHEN ,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} ZU LANG! B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 173ɛ+,' 20*.. өr2 1``2EINGABE ZU LANGUNGUELTIGE HQ}EXADEZ. PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1D1 - D8 ANGEBENduR} XADEZ. PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1D1 - D8 ANGEBENduN) !"`3!3 @p X}(((#(GOTO 220,(>Ad@< D:EINKAUF.DAT A FhA'AdAUC( Y}}Keine Datei vorhanden.^(Neue erffnen ? (J/N) h AK)@P""@:J, A" @U!"@:N, Z}(} A!ZC A@C@@ D:EINKAUF.DATd-AA@@ n( [}@ DATA ENDx ??(@.8990 REM Wchentlicher Zukauf ab 9000 eingeben(@9000 DATA 80016 \}6(@%9500 REM Arten werden dann bernommen#6-A#-AA#)(@ DATA )6-%@ ]} (@ 9524 DATA -1_@'(}Datei ist erffnet.>(Dr cke H AU)@_ ^}@ @p!(}Bser Fehler F:A,$(N(%ӭɠԠԠήX Al-@A _}p  F:A,"ADA F:A,"A8Ab-@@6(ڠӠՠ `}@ AT-@AX b Ad-@@8(ՠ̠Š٠οB AV-@ a}AZ d AO-@@8(ŠҬ B A0O)@ (}@ b}--[((נھe A`wAR@A A+ c}6-A+-AA@@ 6# "(>:,:'6-%@3 A@6( -V d}A@d'A4)@G"@:Z,AVBEENDE MIT Z/6-&@e/ )!@#A` e}6-A%$@ "=#+#A5AVA9=",-@@6)")6-F: f}A,%AV$F:A,@!%@ 6-! ApJ % @(T ^! (CONTAVA g}!&h A r-@|(% DATA   AP (}00((砡 h}00((ݠG0((ƮԠŠ: A0G)@/ i} A/ D:EINKAUF.DATAA**("}Einkaufshilfe-Datei ist complett.(+(+( Die Einkaufshilfe von P j}e-Ko-Soft(((C) 6/1990 ,("(Lade nun Haupt Programm, A08@"-@A& k} 8% D:EINKAUF.PRGe -@6?<2A @@ b2e$e l} -@6?<2@`@@ b2e$-@@b m}-@6?<2A @@ b2    $-@@ n}b -@6?<2A @@ b2   $ D:EINKAU }z{{,,EINNUDELARTENTEILBLTORTERSTARSELECOPTIOURSEBROSORCOLAUTEICITRBRAUSARTELASMAEIDARWIESp}SEOBSD@ q}r}Q (}A @-A@?A@QAR@ G B((("(s}GOTO 32+(=Ad@G A  D:EINKAUF.DAT @2<<ŠŠ㩠٠ŭϠԠt}׮ٛ,,UMLAUTE IM LISTING DURCH POKE 756,204 <<9A`,;A ,;@@,;@@,;@@,!p +u}AR@1A@T(Initialisiere Einkaufshilfe...fAVAp A "e67@,.%6v}7A ,.467@,.E67@,. V67@@,. e67@,.#*-@A`&68,-* $.w}@.@@K:%H6-B2y6-Ad-@?@@9HR{NDER&?6-@x}6-@'6-@36-@?6-@ ' #A36-A6(" @B)! 6-%@y}! @@*@ @R+n(@@D:LISTE?6-?:A6<,K6-@W6-@9a z}A#k A1n(,4(4((ݭŠŠŠ-:0((ԠݭŠŠŠ: A{} . A$/ "6- @R0@F1D @R-@@8( .... ICH LADE...D6|}-@21@!'68,-1 @P3j-@G$@O67$@@%@<$@@}}%@@,.f6-?:A6<@,j 4 A)5HAUPT MEN6D B@$6-@06-@!: A#~}D A1711((ݠ8~l( 뺠>:@',>:@', }>:@',>:@', ~AVA9R1((ݭݭC@@}F(R6-@:!!(Mache ganze Einkaufsliste;(Arten durchbl ttern<(Wchtl.automat.Zukauf=(Drucke Eink}aufsliste>(Speichere Liste?(Programm beenden@@(A - 6-?:A6<,B A$}"@tC6-?:A6<,D "6-&@E @6-@F/ "6-%@#!@/6-}@G A)HF:,@@qI @eJ]6-&@6-)6-@]@@vAb}AsAAK @fL%6-A6-% A#M11((ݭݭݭ}N-@"O6-A%@ $P # "Q 4END6- @R(  @"(S }T 6-6-?:A6<,U A$V"@RW@XW6-@6-56-A%@ $+&@},M6-+&@,$@W @Y(@Z6-?:A6<,[) "6-&@# @)6-\) "6}-%@!)6-@]6-?:A6<,^ A)_ @`36-@6-A36-+&@,$@}a%6-@6-A% A#b!AVA!MINI MENc11((ݠݠ堠d11}((ݠݭ堠e11((۱ݠݭf# "4END @T}g:(Art: &6-?:A6<@,:-@@h)")6-F:A,%AV$F:A,i)%@ 6-&@}) A jb-%@"( -6-8%,9!@G6-&@[-@6%@b(AkN-@4}%@ (2-5(N6-?:A6<%@,l 6-@mB-@#B(' ç}堼nR6-@!-@28%&@,H(>:@',R Ao(-->:@'},p@- 8%&@,6(>:@',@ Aq(-->:@',r A$sF:,AU}A6tA!u<6-?:A6<,'68%&@,-3-@4<( v*-@4(*6-%@}w.(6-&@" .6-x A5yA$z@v{A6-%@6-%@ }76-+&@,$@A @|A)}@v~76-&@6-&@ 76-+&@,$@} AA# @*A5<-( (8%&@,4-<(1 "}6-%@%!%@16-@1 "6-&@# @16-%@@- 8%&@,6(}>:@',@ A5(-->:@', A)F:,"AUA KEY$)@$AU}AI6-@6-% A#B( NOTIZ [(Platz f r Bemerkung.r6-?:A6<,}ARG(Lebensmittelart:(0(Schreibe Zeile,G6-?:A6<@,5( dann [RETURN]56-@$+&}@,%@/7<,0(報/(7<%@9,Q 7%@@<%@@,0-(堲7 AQ(7%}@@<%@y,B(nur [RETURN]=alter Wert) A 8( Zeile 1: B AF46-%@@ ( Zeile 2: * AF}4 @4$67<%@9,.67<%B:,&@,.$"@'@T!! @I)!@W}AU&(8%&@,&6-?:A6<,F)6-P:8%&@,'@,$@F68%&@,-&@H%J}-@4(>:%A(,88%&@,!@@(J AT-@@F(>:@2%A($+8%&@},!,,J T A@gA5U(8%&@,.68%&@,-@?6-?:A6<,K6-@I}U ASU6-8%&@,"!@=68%&@,-&@K6-%@8U AS668%&@,-%@},6-%@H6 ASAUTOMATISCHER ZUKAUFFR W CHENTLICHE LISTEAB DATA 9000 EINGEBENN #A-@}@"B(׏栠N6-@6-?:A6<,"*6-&A*6-P:'@ ,$@}/6-&@ $P:'@ ,/68%,-@%%6-F:A,%AV$F:A,!AAq@ -@}6@<2A @@ /%2/ Ac16-?:A6<, "}16-?:A6<,F-@@"<(" F @fAvN-@@"}2( Š < AN-@@"4 A$*( 4 @f%6-@}6-AU% A#R)(! >> Drucke Einkaufsliste <<@6-?:A6<,RAVAF(/($Ist der Dr}ucker fertig dann <)@F A K+(#'A' f r Men oder f r Druck8)@K"@:A,@T}3 A-@@3(....arbeite....?#@@P:/6-A?DRUCK ROUTINE# "} A"# ""6-?:A6<@,4ENDA26-26-@%P:+&A,'@ ,}-@@$ 6-8@$+&@,%,$"(A7(6-@7(@Lebensmittelart: } ;!@#(@ [A]16-&@; A(@ ))(@Preis _____: St.}N '6-@$+&@,%@47<,0N(@7<%@9,B 7%@@<%@@,0B(@}7%@@<%@y,%6-%@% A$A$(@(@$(@@ @T\ }A(?( *** PRINTER FEHLER *** # F:A,\F:A,@gA;$( Weiter=[TASTE] 1)}@; Aq (}6-@!6-@f+ A#5 A18(Y(Speichere Einkaufsliste ....\(_(qAV}A2(Sicher ? (J/N) % A 2)@>:,0J @T$($(Wenn die Disk fertig ist,(}dr cke [TASTE] )@( A`+-@@ +( ....arbeite.... A?@3@}@D:LISTE?6--@A`8,"A<(@,8,%6-@}<6-?:A6<@ , (@-1,-1;"!-@@ ;( Š w-}@G%6-@@$G(@7%@<%@@,^6-?:A6<@ ,b m@w @T BN1( } ** DISK FEHLER ** # F:A,NF:A,@gA5(( = weiter +)@5 A %}6-@6-A% A#$ A1$6-?:A6<,&((Sicher ? (J/N) & A #)@#}>:,0J@T/ +@@"(, A0/} + 6-?:A <<,2AADAR}@VA@dhAzAVA}$( 6-F:,%@)F:,AU($e6-R:,e6}-$+"@,%$+"@,%$+T:,",%$+"@,%$+"@,"A$$e -@}6@<2A@@ b2e$AU,-@6@}H2@E@L n2F:,@A)$0-(% Die Einkaufshi}lfe by Pe-Ko-Soft 0$MASCHIENENROUTINE104,240,10,201,1240,7,170,104,104202,208,251,96,16588,13}3,214,165,89133,215,104,104,24015,168,24,169,40101,214,144,2,230215,133,214,136,208242,160,0,17}7,21448,6,169,1,133212,208,4,169,0133,212,132,213,13277,160,39,177,21473,128,145,214,1361}6,247,165,16,167,41,127,133,16141,14,210,96,104240,10,201,2,2407,170,104,104,202208,251,96,104,}104168,104,104,141,1756,162,23,169,2157,182,6,202,16250,169,128,153,1826,165,20,197,20240},252,169,163,1410,2,169,6,1411,2,169,192,14114,212,165,88,141180,6,165,89,141181,6,169,176,141}48,2,169,6,141 49,2,96,72,173 175,6,141,10,212 141,24,208,104,64 0,112,112,112,66 0,0,2,2,2}2,2,2,2,22,2,2,2,22,2,2,2,22,2,2,2,22,65,176,6,-1g-@@A(&Liste oder Floppy ist sc}hreibgesch tzt]( Ger t antwortet nichtg A0%-@A % AA-@@7( G}er t antwortet nichtA A0%-@A % Ae -@6?<2A @}@ b2e$e -@6?<2@`@@ b2}e$-@@b -@6?<2A @@ b2}   $$-@@.b -@6?<2A @@ b2}F.EDI-@6?<2A @@ b2   $ D:EINKAU 8   $D2:EINKAUF.PRG-@6?<2A @@ b26  EAADUS@s@.@.@@}K: U +A@41A@%CAR@UAVA,-@@,( DIE EINKAU}FSHILFE)-@@)( VERSION 1.82-@@ 2((c) by Pe-Ko-Soft 6/1990(,-@@,(E}DITOR LADEN -,-@@,(INFORMATION .+-@@+(HAUPTPROGRAMM /)@2*}"@:E, A*% D:EINKAUF.EDI3""@:I, A`" A7*"@:H, A0*% D:EINKAUF.PRG8 @G}dm +A@41A@%CAR@U@gAVAj(m(e//(' Die } ist ein Programm f rf..(& vergessliche Zeitgenossen und solche,g..(& die nichts mehr dem Zufall berlassen}h//(' wollen.Das Programm verf gt ber eineni//(' Editor,in dem die verschiedenen Lebensj//(' mittel in DATA-Zeilen a}bgelegt werden.k--(% Diese werden dann vom Hauptprogramm l//(' eingeentert und das Programm startet m//(' nach kurz}er inizialisierung.Nun knnten//(' man einfach loslegen,aber ganz so ein-o''( fach ist es auch wieder nicht.p//(' N}un zur Bedienung der EINKAUFSHILFE. q( ( ((r( Šs)@ A x (}y//(}' Zun chst das wichtigste.Bevor Sie das z//(' Programm starten,sollten Sie sich un- {//(' bedingt eine Sicherheitskopie} machen. |//(' Von diesem Men gelangen Sie in den }//(' Editor und in das Hauptprogramm,zum ~//(' Hauptprogramm} sp ter mehr. //(' Vom Men aus gelangen Sie in den Edi- //(' tor .Jetzt knnen Sie entscheiden,//(}' ob eine Datei erffnet werden soll . //(' (Nat rlich,ist doch Sinn der Sache.) //(' Nachdem etliche Tasten gedr }ckt wurden//(' ist man nun endlich im eigentlichen //(' Editor.Durch druck auf Taste //(' erscheinen d}ann Data-Zeilen.In die 1. //(' muss immer die Lebensmittel-Art ein- //(' gegeben werden,z.B. Konserven.Diese //}(' erscheint dann bei sp terer Eingabe //(' nicht mehr ! Die Arten werden immer in//(' den Data's 8000,8020,8040,8}060 usw. //(' eingegeben.Um ins Men zur ck zu kom- //(' men geht man mit dem Kursor ber cont,//(' und d}urch Goto oder Run.  )@ A  (}//(' Wichtig ist,das man der Reihe nach vor//(' geht,(A,B,}C,) weil das Programm die //(' leeren Data-Zeilen mit End Befehlen //(' voll schreibt.Das muss sein weil sonst}//(' Fehlermeldungen beim einlesen ausgege-//(' ben werden.Hat man dieses nun erledigt//(' muss man schon wieder ein}e Taste (Z) //(' dr cken,irgendwann wird dann die Datei//(' geschrieben.Nach Erfolgsmeldung wird //(' dann das }Hauptprogramm eingeladen... 11(( Wen wunderts,ganz automatisch.Das Haupt//(' programm erkl rt sich von selbst. }//(' Nur f r den Wchentlichen autom. Zu- //(' kauf sind Eingriffe ins Basic erfor- //(' derlich.Ist z.B. in de}r Zeile 8015 //(' Frisch Milch eingegeben so w rde die //(' Zeile 9000 folgendermassen aussehen ( 9000 D}ATA 8015//(' So m ssen dann alle anderen eingegeben//(' werden.Das muss logischerweise im Edi-( tor geschehen.} )@ A  (}//(' Sollte einem das Bim Bam im Programm //(' auf die Nerven gehen,so n}dere man //(' folgende Zeilen in den Listings ab. #(#( Im Editor 500 RETURN ( 510 RETUR}N ( 515 RETURN ( 530 RETURN ( Hauptprogr. 1010 RETURN ( 1020 RE}TURN ( 1030 RETURN ( 1060 RETURN(//(' brigens kann die Druck-Routine leicht/}/(' ver ndert und mit den jeweiligen //(' Druckercode versehen werden.Auf meinem//(' 1029 werden die Umlaute au}ch so ge- ##( druckt. )@"@:P, A`" @ Ae -@}6?<2A @@ b2e$e -@6?<2}@`@@ b2e$-@@b -@6?<2}A @@ b2   $$-@@.b -@6?<}2A @@ b28   $D2:AUTORUN.BAS-@6?<ab%DOS SYSb*)DUP SYSbSAUTORUN SYSbTEINKAUF EDIbZoEINKAUF PRGb%AUTORUN BAS/