0 GOTO10 1 IFPEEK(198)>0THENGETA$:RETURN 2 GOSUB30600:GOTO1 3 PRINT" + [194]ITTE WARTEN + [201]CH A R B E I T E + ":RETURN 4 POKE908,0:POKE918,30:POKE920,11:POKE917,36:POKE924,0:A$="":RETURN 5 SYS50176,A$,A$:F=PEEK(913):RETURN 9 GOTO30001 10 GOTO 22000 11 GOSUB31000:POKE650,128:POKE2,184 12 GOSUB40000 14 PRINT:L$=A6$ 15 KL=1:PRINTCHR$(14) 17 DIMA$(600):AN=0:MAX=600 26 PRINT"[147]";PT$;"" 27 GOTO100 30 A$=LEFT$(A$,LEN(A$)-1):RETURN 31 IFRIGHT$(A$,1)=" "THENGOSUB30:GOTO31 32 RETURN 40 A$=LEFT$(A$(T),LEN(A$(T))-1):RETURN 70 REM ** UNTERPROGRAMM ** 71 PRINT:PRINT"[199]EBEN SIE EIN,VON WELCHER [218]EILENNR (0=[193]NFANG)" 72 INPUTV:IFV=0THENV=1 73 PRINT"[199]EBEN SIE EIN,BIS ZU WELCHER [218]EILENNR (0=[197]NDE)" 74 INPUTB:IFB>MAXTHENPRINT"[218]U GROSS !":GOTO74 75 IFB=0THENB=AN 79 RETURN 80 PRINT"":RETURN 90 PRINTLEFT$(A6$,MB):RETURN 95 GOSUB80:FORI=1TO4:GOSUB90:NEXT:GOSUB80:RETURN 100 PRINT"[147]";PT$;:CLOSE2:CLOSE15:CLOSE5:POKE198,0:BA=0:DR=0:BR=0:SP=0 101 IFAN/MAX>0.7THENB1$=""+STR$(INT((AN/MAX)*100))+" % [214][207][204][204] !!![146]":X=FRE(9) 102 IFAN/MAX>0.7THENB2$="[5] = [211]PEICHERN[146]":B3$="[193][195][200][212][213][206][199][146]":SP=1 103 V$(50)=D$:V$(47)=BA$:V$(46)=STR$(RR):V$(45)=STR$(RR+RR*(MW/100)) 104 V$(44)=STR$(RR*(MW/100)) 105 POKE54296,0:IFPEEK(1022)=200THENAM=2 107 PRINT"";PT$; 109 POKE53265,27 110 PRINT" [196]ATUM: ";D$ 111 GOSUB300:PRINT"" 112 PRINT" [221] [211]YSTEM [146] :";B1$ 113 PRINT" [221] [197]MPFEHLUNG[146] :";B2$ 114 PRINT" [221]  [146] :";B3$ 115 PRINT" [221] [212]EXT NAME :";T1$ 116 PRINT" [221] [208]LATZ :";MAX-AN;"[218]EILEN FREI" 120 REM ** MENU ** 125 PRINT"-1- [212]EXT ERSTELLEN" 130 PRINT"-2- [212]EXT AENDERN" 132 PRINT"-3- [208]ROFIPRINT LADEN" 134 PRINT"-4- [194]ILDSCHIRMAUSGABE" 135 PRINT"-5- [193]RBEITEN MIT [196]ISKETTE " 136 PRINT"-6- ";FU$ 137 PRINT"-7- [193]RBEITEN MIT [214]ARIABLEN" 145 PRINT"[196]IE [198]UNKTIONSTASTEN" 147 PRINT"F1= [197]INGABE F3=[194]ILDSCHIRMAUSGABE" 148 PRINT"F5= [197]NDE "; 149 IFSP=1THENGOSUB30601 150 GETA$:IFA$=""THEN150 154 IFA$="[134]"THEN7000 155 IFA$="[133]"THEN1015 156 IFA$="[135]"THEN8000 197 IFVAL(A$)<1ORVAL(A$)>8THEN150 199 X=VAL(A$):ONXGOTO1000,2000,56100,7100,5000,20000,9700 200 GOTO 100 260 RETURN 300 REM ** BS AUFBAU ** 301 IFBA=1THENRETURN 310 A1$=" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]" 320 A2$=" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]" 330 A3$=" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]" 340 A4$=" [221][221]" 350 PRINT"":PRINTA1$:PRINTA4$:PRINTA4$:PRINTA4$:PRINTA2$ 360 PRINTA4$:PRINTA4$:PRINTA2$ 370 FORT=1TO9:PRINTA4$:NEXT:PRINTA2$ 380 PRINTA4$:PRINTA4$:PRINTA4$:PRINTA3$; 499 BA=1:RETURN 1000 PRINT"[147]";PT$ 1001 PRINT" * * [212]EXTPROGRAMM * * [197]INGABE * * [146]";:TA=0:TA$="" 1003 PRINT"=1= [197]INGABE DES [212]EXTES" 1004 PRINT"=2= [197]INGABE DES [212]EXTNAMES" 1005 PRINT"=3= [197]INGABE UEBER [205]ASKE" 1007 PRINT"=4= [212]EXT LOESCHEN" 1008 PRINT"=5= [196]EN [212]EXT AUSFUELLEN":PRINT"=6= [197]INGABE [212]ABULATORZEILE" 1009 GOSUB1 1010 IFA$="0"ORA$="[133]"THEN100 1011 B1$="[193]ENDERN [2]":B2$="[211]PEICHERN [5]":T=VAL(A$) 1013 IFT=0THEN1009 1014 ONTGOTO1015,1850,33000,1300,9400,1830,100 1015 PRINT"[147]";PT$:PRINT" * * [212]EXTPROGRAMM * * [197]INGABE * * [146]";:TA=0 1016 B1$="[193]ENDERN [2]" 1017 B2$="[211]PEICHERN [5]" 1018 B3$="[193]NSEHEN [F3]" 1020 A=AN:GOTO2014 1040 IFK1$="[212][193][211][212][197][206][146] F7=[200][197][204][208] F5=[218]EILE HOCH"THEN1050 1046 K1$="[212][193][211][212][197][206][146] F7=[200][197][204][208] F5=[218]EILE HOCH" 1047 K2$="[200]OME = [212]ABULATOR [210][197][212][213][210][206]=[218]EILE RUNTER" 1048 K3$="CRSR HOCH = [215]ORT VOR :CRSR => RECHTS" 1049 K4$="CRSR RUNTER=[215]ORT ZURUECK:CRSR <= LINKS":RETURN 1050 K1$="[198]UNKTIONST.[146] F1=[197]NDE : F2=[197]INFUEGEN" 1051 K2$="F3= [218]EILEN [204]OESCHEN : F4=[194]LOCK COPIEREN" 1052 K3$="F5=[218]EILE HOCH : F6=[211]EITE +/-" 1053 K4$="F7=[200][197][204][208] [146] : F8=[194]LOCK LADEN":RETURN 1100 FORI=G8TOMAX 1110 GOSUB1400 1120 IFLEN(A$(I+1))"J"THEN100 1305 PRINT"":FORT=1TOMAX:PRINT"[145]";T:A$(T)="":NEXT 1310 AN=0:RETURN 1400 B=LEN(A$(I)):FORA=M8TO1STEP-1 1410 IFMID$(A$(I),A,1)=" "ORMID$(A$(I),A,1)="[160]"THEN1430 1420 NEXT:PRINT"[218]EILE ZU LANG:FEHLER":RETURN 1430 A$(I+1)=RIGHT$(A$(I),B-A)+" "+A$(I+1):A$(I)=LEFT$(A$(I),A) 1450 RETURN 1460 PRINT"[147]":FORT=0TOAN:PRINTA$(T):NEXT:PRINT"[145][145]" 1470 RETURN 1830 PRINT"[147]";PT$ 1831 INPUT"[205]AXIMALE [218]EILELAENGE (39)";M8:GOSUB1832:GOTO1000 1832 M8=M8+2:IFM8<10THENM8=39 1833 PRINT"[147]";PT$:PRINT"[197]INGABE [212]ABULATORZEILE":PRINT"!=[211]TART +=[212]AB.[211]TOP -=[206]ICHT 1834 T7$[178][200](T7$,[195](T7$)[171]1) 1835 A$[178][200](T7$,M8):[141]9:T7$[178]A$ 1840 M8[178]M8[171]2:T7$[178][200](T7$[170]"----------------------------------------",M8[171]1) 1841 [129]T[178]1[164][195](T7$):[139][202](T7$,T,1)[178]"!"[167]CB[178]T 1842 [130]:T7$[178]T7$[170]"!":[151]917,M8 1845 [142] 1850 [153]"LOAD(null)EXTNAME":A$[178]T1$:[141]9:T1$[178]A$:[137]1000 2000 [153]"LOAD";PT$ 2001 [153]" + + (null)EXTPROGRAMM + + ATNENDERN + + WAIT";:[153]"ATNENDERN [1]WAIT" 2002 [153]" >0< (null)ENU":[153]" >1< (null)EXT AENDERN" 2003 [153]" >2< (null)ORT TAUSCH" 2005 [153]" >3< (null)EXT LOESCHEN" 2006 [141]1 2008 [139]A$[178]"0"[176]A$[178]"INPUT"[167]100 2009 B1$[178]"(null)PEICHERN [5]":B2$[178]"ATNNSEHEN [F3]":B3$[178]"LEFT$ILFE [F7]" 2010 T[178][197](A$):[139]T[179]1[176]T[177]3[167]2006 2011 [145]T[137]2012,2900,1300 2012 [141]80:[153]" 0 = VALNDE : 1 = ATNNFANG" 2013 [133]"ATNB (null)EILE";A:A[178]A[171]1:[139]A[178][171]1[167]A[178]AN 2014 [141]1046 2020 A[178]A[170]1:[139]A[177]AN[167]AN[178]A 2030 [139]A[179]1[167]A[178]1 2031 Y[178]T:A$[178]A$(A) 2040 EE[178]1:A$[178]A$(A):G8[178]A:[141]30000 2041 [139]U9[178]1[167]A$(A[170]1)[178][200](A6$,CB[171]1)[170]R$[170]" "[170]A$(A[170]1):U9[178]2 2050 A$(A)[178]A$:[139][195](A$(A))[177]M8[167]2040 2060 [139]A$(A)[178]">"[167]A$(A)[178]"" 2061 PP[178]A:[139]F[178]3[167]2600 2062 [139]F[178]7[167][141]1040:[137]2030 2063 [139]IN[178]1[175]F[179][177]0[167]IN[178]0:[141]2560:[139]F[178]1[167]F[178]0 2064 [139]F[178]1[167]EE[178]0:[137]100 2065 [139]F[178]6[167]2200 2070 [139]IN[178]1[167][141]2350 2071 [139]F[178]2[167]2500 2072 [139]F[178]4[167]2800 2073 [139]F[178]8[167]2100 2075 [139]F[178]5[167]A[178]A[171]1:[137]2030 2080 A$[178]A$(A):Y[178]T:[137]2020 2100 [153]" * * (null)EXTPROGRAMM * * PEEKLOCK LADEN * *" 2110 [141]95:[141]4:[151]920,22 2120 [153]"(null)AME DES PEEKLOCKES":[141]5:[139]F[178]1[167]2020 2121 A$[178]">"[170]BA$[170]"??????"[170]A$ 2125 [160]2:[160]5:[159]2,FA,15:[159]5,FA,2,A$[170]",S,R":[141]34000:[139]EN[179][177]0[167]2100 2130 [132]5,Z:[141]2530 2140 [129]T[178]1[164]Z:[141]34100:[141]34000:[139]A$[178]">"[167]A$[178]"" 2150 A$(PP[170]T)[178]A$:[130]:[160]2:[160]5:A[178]A[170]Z:[141]2560:[137]2020 2200 [141]95 2201 [153]"F5= (null)EITE + " 2202 [153]"F6= (null)EITE - " 2203 [153]"PEEKITTE WAEHLEN" 2210 [141]1:[139]A$[178]"INPUT"[167]A[178]A[171]1:[137]2020 2220 [139]A$[178]"READ"[167]A[178]A[170]10:[137]2020 2230 [139]A$[178]"IF"[167]A[178]A[171]12:[137]2020 2240 [137]2210 2300 Z[178]1:[141]2530 2320 A$(A[170]1)[178][201](A$(A),[195](A$(A))[171][194](925)):CC[178]999:IN[178]1 2330 A$(A)[178][200](A$(A),[194](925)) 2340 [139][200](A$(A[170]1),1)[178]" "[167]A$(A[170]1)[178][201](A$(A[170]1),[195](A$(A[170]1))[171]1):[137]2340 2345 A$(A)[178]A$(A)[170]"CLOSE":A[178]A[171]1:[137]2360 2350 Z[178]1:[141]2530 2360 [153]"!!! (null)EXTPROGRAMM !!! ATNUFSCHIEBEMODUS !!!":[142] 2500 [153]" * * (null)EXTPROGRAMM * * ATNUFSCHIEBEN * *":[141]2510:[137]2020 2510 [141]95 2511 [153]"F3 = (null) - (null)EILEN F5 = BIS [F1]" 2512 [141]1:[139]A$[178]"INPUT"[167]2560 2513 [139]A$[178]"READ"[167]2300 2520 [153]"(null)IEVIELE (null)EILEN":[133]Z:PP[178]PP[171]1:A[178]A[171]1 2530 [129]O[178]AN[170]Z[164]PP[170]Z[169][171]1 2540 A$(O)[178]A$(O[171]Z):[130] 2550 [129]O[178]PP[170]1[164]PP[170]Z:A$(O)[178]"":[130]:AN[178]AN[170]Z 2560 [153]" + (null)EXTPROGRAMM + VALINGABE / ATNENDERN + ":[142] 2600 [153]" * * (null)EXTPROGRAMM * * (null)OESCHEN * * " 2610 [141]95 2620 [153]"(null)IEVIELE (null)EILEN":[133]Z 2630 [129]O[178]PP[164]AN[170]Z 2640 A$(O)[178]A$(O[170]Z):[130] 2650 [129]O[178]AN[171]Z[164]AN:A$(O)[178]"":[130]:AN[178]AN[171]Z:[141]2560:A[178]A[171]1:[137]2020 2800 [153]" * * (null)EXTPROGRAMM * * LENOPIEREN * *":Z[178]0:Z1[178]0 2810 [141]95:[153]"(null)ARKIEREN SIE DAS UNTERE VALNDE MIT [F3]" 2820 [153]"[F1] = VALNDE : [F3] = (null)ARKIEREN" 2825 [153]"[F5] = HOCH : [F7] = RUNTER" 2829 Z[178]1 2830 [139]Z[170]PP[179]1[176]Z[170]PP[177]MAX[167]Z[178]1 2831 G9[178]PP[170]Z[171]6:[141]30705:[151]781,11:[151]782,0:[158]58636 2832 [153]"";A$(PP[170]Z);"WAIT" 2833 [141]1:[139]A$[178]"INPUT"[167]2030 2834 [139]A$[178]"READ"[167]Z[178]Z[171]1 2835 [139]A$[178]"LET"[167]Z[178]Z[170]1 2836 [139]A$[178]"DIM"[167]2850 2840 [137]2830 2850 [139]Z1[178]0[167]Z1[178]Z:[141]80:[153]"(null)ARKIEREN SIE WOHIN DER PEEKLOCK SOLL ":[137]2830 2860 Z2[178]PP[170]Z[171]1 2881 G9[178]PP[170]Z[171]6:[141]30705:[151]781,11:[151]782,0:[158]58636 2886 [129]T[178]PP[164]PP[170]Z1:A$(((T[170]1)[171]PP)[170]Z2)[178]A$(T):[130] 2887 [139]AN[179]((T[170]1)[171]PP)[170]Z2[167]AN[178]((T[170]1)[171]PP)[170]Z2 2890 [137]7000 2900 [153]"LOAD(null)ACH WELCHEM (null)ORT SOLL GESUCHT WERDEN":A$[178]"" 2901 [141]9:C$[178]A$:[139]F[179][177]0[167]100 2902 [153]"LOAD(null)ELCHES (null)ORT SOLL DAFUER EINGESETZT WERDEN":[141]9:B$[178]A$ 2903 [153]"LOAD";PT$;" (J) = ATNENDERN (N)=(null)ASSEN" 2910 L1[178][195](C$):L2[178][195](B$):L3[178]L2[171]L1 2920 [129]T[178]1[164]AN[170]1:X[178]0:G[178]1:CC[178]0:[141]30400 2921 [139]CC[178]999[167][141]2960:CC[178]0 2925 X[178][195](A$(T)):[139]X[178]0[167][130]:[137]100 2930 [129]G[178]1[164]X 2935 [139][202](A$(T),G,L1)[179][177]C$[167][130]:[130]:[137]100 2939 [153]"";A6$;A6$;A6$ 2940 [153]"";[201](" "[170][196](T),3);" ";[200](A$(T),G[171]1)[170]""[170]C$[170]"WAIT"; 2941 [153][201](A$(T),[195](A$(T))[171]G[171][195](C$)[170]1) 2942 [141]1:[139]A$[178]"N"[167]2950 2945 A$[178][200](A$(T),G[171]1)[170]B$[170][201](A$(T),X[171](G[170]L1)[170]1):X[178]X[170]L3:[141]30400:A$(T)[178]A$ 2946 [139]CC[178]999[167][141]2960 2950 [130]:[130]:[137]100 2960 A$(T)[178]A$:A$(T[170]1)[178]R$[170]" "[170]A$(T[170]1):[139][195](A$(T[170]1))[179]M8[167][142] 2970 Z[178]1:PP[178]T[170]1:[141]2530:A$[178]A$(T[170]1):[141]30400:A$(T[170]1)[178]A$:A$(T[170]2)[178]R$:[142] 4000 [153]"LOAD";PT$ 4001 [153]" + (null)ARIABLEN AUS DER STR$ATEIVERWALTUNG + " 4002 [153]"-1- (null)ACH (null)UMMER" 4011 [153]"-2- (null)ACH (null)AMEN" 4020 [141]1:[139]A$[178]"INPUT"[167]100 4030 [139]A$[178]"1"[167][133]"(null)UMMER";Y:[137]4499 4040 [153]"LOAD";PT$:[153]"(null)AME":[141]4:[141]5:B$[178]A$:[139]F[178]1[167]100 4050 [141]4100:[139]F[179][177]999[167]4499 4060 [137]4230 4100 [160]2:[159]2,FA,15:[159]5,FA,2,"AD,S,R":[141]34000:[139]ER[179][177]0[167]100 4110 [141]34100:[132]5,A 4120 [139][200](A$,[195](B$))[178]B$[167][160]2:[160]5:Y[178]A:[142] 4150 [139](ST [175] 64)[178]64[167][160]2:[160]5:[137]4200 4160 [137]4110 4200 F[178]999:[153]"LOAD";PT$ 4210 [153]"STR$ATENSATZ ";B$ 4220 [153]"NICHT VORHANDEN.":[142] 4230 [153]"PEEKITTE [F1] DRUECKEN":[141]1:[137]100 4499 [141]4500:[137]4560 4500 [160]2:[160]5 4501 HB[178][181](Y[173]256):LB[178]Y[171]HB[172]256 4510 [159]2,FA,15:[159]5,FA,2,"ASALEM,L,"[170][199](254) 4520 [152]2,"P"[170][199](2)[170][199](LB)[170][199](HB)[170][199](1) 4522 [132]2,EN 4525 [139]EN[179][177]0[167][153]"VAL(null)(null)(null)(null) ASCALSCHE STR$ISKETTE !!!":[142] 4530 B[178]20:[141]4700:[141]4750:V$(1)[178]B$ 4531 B[178]20:[141]4700:[141]4750:V$(2)[178]B$ 4532 B[178]20:[141]4700:[141]4750:V$(3)[178]B$ 4533 B[178]4:[141]4700:V$(4)[178]B$ 4534 B[178]20:[141]4700:[141]4750:V$(4)[178]V$(4)[170]" "[170]B$ 4536 B[178]16:[141]4700:V$(5)[178]B$ 4537 B[178]2:[141]4700:V$(6)[178]B$[170]".":[141]4700:V$(6)[178]V$(6)[170]B$[170]".":B[178]4:[141]4700 4538 V$(6)[178]V$(6)[170]B$:B[178]10:[141]4700:V$(7)[178]B$ 4539 B[178]2:[141]4700:V$(8)[178]B$ 4542 B[178]10:[141]4700:V$(9)[178]B$ 4544 B[178]10:[141]4700:V$(10)[178]B$ 4546 B[178]20:[141]4700:[141]4750:V$(11)[178]B$ 4548 B[178]20:[141]4700:V$(12)[178]B$ 4549 B[178]20:[141]4700:[141]4750:V$(13)[178]B$ 4550 B[178]20:[141]4700:[141]4750:V$(14)[178]B$ 4555 [160]2:[160]5:[142] 4560 [153]"LOAD";PT$:[153]"STR$ATENSATZ ";V$(2) 4561 [139]BA$[179][177]V$(8)[175]PR[178]0[167]V$(7)[178]"PASSWORT GESCHUETZT" 4565 [153]:[129]T[178]1[164]14:[153]V$(T):[130]:[153]"PEEKITTE [F1] DRUECKEN":[141]1:[137]100 4599 [137]100 4700 [151]917,B[171]1:[151]915,5:[158]50182,B$ 4740 [139][201](B$,1)[178]" "[167]B$[178][200](B$,[195](B$)[171]1):[137]4740 4749 [142] 4750 A$[178][200](B$,1):[139][198](A$)[179]65[176][198](A$)[177]90[167][142] 4760 B$[178][201](B$,[195](B$)[171]1):B$[178][199]([198](A$)[170]32)[170]B$:[142] 5000 [137]5500 5001 [153]"LOAD";PT$:[153]"(null)ADEN VON STR$ISKETTE" 5010 [153]" -1- (null)EXT LOESCHEN UND NEUEN (null)EXT LADEN" 5020 [153]" -2- LEFT$INTER ALTEN (null)EXT LADEN" 5021 [153]" -3- (null)ISTINGS LADEN" 5025 [153]"PEEKEFEHL"; 5030 [141]1 5040 [139]A$[178]"INPUT"[167]100 5041 B1$[178]"ATNNSEHEN [F3]":B2$[178]"ATNENDERN [2]" 5042 [139]A$[178]"1"[176]A$[178]"3"[167][141]1305:[137]5050 5043 [139]A$[178]"2"[167]5050 5045 [137]5030 5050 [153]"-";A$;"-":I[178]0:[139]A$[178]"3"[167]I[178]999 5060 [153]"LOAD(null)AME DER STR$ATEI":A$[178]"":[141]9:T1$[178]A$:B$[178]A$:[139]F[178]1[167]100 5061 [139][200](A$,1)[179][177]"@"[167]5066 5062 A$[178][201](A$,[195](A$)[171]1):T[178][197](A$):A$[178]V$(30[170]T) 5063 [139]T[177]B[176]B[178]0[167]5060 5064 [137]5100 5066 [153]"ATNUFZEICHNUNGSDATUM:":A$[178]"??????":[141]9 5070 [139]PR[179][177]1[167]A$[178]">"[170]BA$[170]A$[170]B$ 5071 [139]PR[178]1[167]A$[178]B$ 5100 [143] 5102 [159]2,FA,15,"I0" 5103 [141]34000 5104 [159]5,FA,5,"0:"[170]A$[170]",S,R" 5105 AX[178]0:[141]34000:[139]EN[178]62[167]100 5106 [139]I[178]999[167]5200 5107 [132]5,AX:[129]T[178]1[164]AX 5110 [143] 5111 [141]34100:A$(T[170]AN)[178]A$:[139]A$(T[170]AN)[178]">"[167]A$(T[170]AN)[178]" " 5112 [141]34000 5113 [161]A$:[139]A$[178]"INPUT"[167][160]2:[160]5:[137]100 5114 [130] 5115 AN[178]AN[170]AX 5120 [160]2:[160]5:[137]100 5200 [143] 5210 AN[178]AN[170]1 5211 [161]A$:[139]A$[178]"INPUT"[167][160]2:[160]5:[137]100 5220 [141]34100:A$(AN)[178]A$:[139]ST[179][177]64[167]5210 5230 [160]2:[160]5:[137]100 5400 [153]"LOAD";PT$:[153]"(null)ERGLEICHEN VON STR$ISKETTE" 5401 A$[178]T1$:[153]"(null)AME":[141]9:[139]F[178]1[167]100 5402 [159]2,FA,15,"I0":[141]70 5403 [141]34000:[139]PR[179][177]1[167]A$[178]">"[170]BA$[170]"??????"[170]A$ 5404 [159]5,FA,5,"0:"[170]A$[170]",S,R" 5405 [141]34000:[139]EN[179][177]0[167]100 5407 [132]5,AX:[139]B[179][177]0[175]AX[179][177]B[171]V[167][153]"(null)EILENANZAHL FALSCH" 5408 [129]T[178]1[164]AX 5410 [141]34100:[139]A$[178]">"[167]A$[178]" " 5412 [153]A$:[151]198,0:[146]198,1:[161]A$:[139]A$[178]"INPUT"[167]5420 5413 [141]34000 5415 [130] 5420 [160]2:[160]5:[153]"(null)ASTE DRUECKEN":[141]1:[137]100 5500 [153]"LOAD";PT$ 5501 [153]" + (null)ENU STR$ISKETTEN-(null)PERATIONEN + " 5502 [153]" LADEN [4]" 5503 [153]" SPEICHERN [5]" 5510 [143] 5520 [153]" -0- (null)ENU" 5521 [153]" -1- (null)EXT VERGLEICHEN" 5525 [153]" -2- (null)EXT UMBENENNEN" 5527 [153]" -3- (null)EXT LOESCHEN" 5529 [153]" -4- (null)EXT LADEN" 5530 [153]" -5- (null)EXT SPEICHERN" 5532 [153]" -6- RIGHT$NHALTSVERZEICHNIS" 5534 [139]PR[178]1[167][153]" -7- STR$ISK FORMATIEREN" 5536 [139]PR[178]1[167][153]" -8- STR$ISK (null)AME + RIGHT$STR$ AENDERN" 5550 [141]1 5551 [139]A$[178]"0"[176]A$[178]"INPUT"[167]100 5552 [139][197](A$)[178]0[167]5500 5553 [145][197](A$)[137]5400,5650,5700,5001,6000,5800,5600,5900 5555 [142] 5600 [153]"LOAD";PT$:PA$[178]"":[139]PR[178]0[167]100 5610 [153]" STR$ I S K E T T E ASC O R M A T I E R E N " 5630 A$[178]"STR$ISKETTEN (null)AME":[141]9:B$[178]A$:[139]F[178]1[167]100 5631 [153]"(null)CHUETZEN?":A$[178]"N":[141]9:[139]A$[178]"J"[167][133]"(null)ASSWORT";PA$ 5633 [139]A$[178]"J"[175][195](PA$)[179]10[167]PA$[178]PA$[170][199](0):[137]5633 5634 A$[178]"ID" 5635 [153]"STR$ISKETTEN RIGHT$STR$ ":[141]9:ID$[178]A$:A$[178][200](B$[170]"................",16) 5640 ID$[178][200](ID$[170]"TE",2) 5641 [141]3 5642 [159]2,FA,15,"N:"[170]A$[170]","[170]ID$:[160]2:[139]PA$[178]""[167][137]100 5643 [159]15,FA,15,PR$:[159]2,FA,2,"#" 5644 [152]15,"B-R 2 0 18 0":[152]15,"B-P 2 164" 5645 [152]2,[199](0)[170][199](0)[170][199](0):[152]15,"B-P 2 180":[152]2,PA$ 5646 [152]15,"B-P 2 2":[152]2,"O"; 5647 [152]15,"B-W 2 0 18 0":[160]2:[160]15:[137]100 5650 [153]"LOAD";PT$:[153]" + (null) E X T U M B E N E N N E N + " 5651 [153]"ATNLTER (null)AME":A$[178]"":[141]9:[139]F[178]1[167]100 5652 B$[178]A$:A$[178]"TTMMJJ":[153]"STR$ATUM":[141]9 5655 C$[178]A$:[153]"(null)EUER (null)AME":[141]9 5656 [139]PR[178]1[167][141]3:A$[178]">"[170]A$:B$[178]">"[170]B$ 5657 [139]PR[178]0[167][141]3:A$[178]">"[170]BA$[170]DA$[170]A$:B$[178]">"[170]BA$[170]C$[170]B$ 5660 [159]2,8,15,PR$ 5670 [152]2,"R:"[170]A$[170]"="[170]B$:[141]34000:[160]2:[137]100 5700 [153]"LOAD";PT$:[153]" + (null) E X T L O E S C H E N + " 5715 [153]"(null)AME":[141]9:B$[178]A$:[139]F[178]1[167]100 5716 A$[178]"??????":[153]"STR$ATUM ":[141]9:[141]3 5717 [139]PR[179][177]1[167]A$[178]">"[170]BA$[170]A$[170]B$ 5718 [139]PR[178]1[167]A$[178]">"[170]B$ 5719 [159]2,FA,15,PR$ 5720 [152]2,"S0:"[170]A$:[160]2:[137]100 5800 [160]15:[160]2:[159]15,FA,15,"I":[153]"LOAD";PT$ 5801 [153]"LOAD";PT$:[153]" + RIGHT$NHALTSVERZEICHNIS DER STR$ISKETTE + " 5810 [159]2,FA,2,"#" 5811 [152]15,"B-R 2 0 18 0":[152]15,"B-P 2 165" 5812 [161]#2,A$:[139]A$[179][177]""[167]5816 5813 [152]15,"B-P 2 180":PA$[178]"":[129]T[178]1[164]10:[161]#2,A$:PA$[178]PA$[170]A$:[130] 5814 [153]"STR$IE STR$ISKETTE IST GESCHUETZT: CHR$EBEN (null)IE DAS (null)ASSWORT EIN" 5815 [133]A$:[139]A$[179][177]PA$[167][160]2:[160]15:[137]100 5816 B$[178]"":X[178]999:[141]5910:X[178]0:B$[178]"DIM" 5817 [139]A$(2)[178]"INHALT"[167]AN[178]AN[170]2:A$(AN)[178]ID$[170]" "[170]N$:AN[178]AN[170]1 5820 T[178]18:S[178]1:B[178]0 5821 [141]5898 5830 [152]15,"U1 2 0";T;S 5840 V[178]0 5841 [161]#2,X$:X$[178]X$[170][199](0):T[178][198](X$) 5842 [161]#2,X$:X$[178]X$[170][199](0):S[178][198](X$) 5845 [129]X[178]0[164]7:[152]15,"B-P 2";X[172]32[170]2 5846 [161]#2,X$,A$:Z[178][198](X$[170][199](0)):[139]Z[179][177]8[172]16[170]1[175]PR[178]0 [167]5855 5847 [141]5890 5848 [139]B[178]10[167]B[178]0:[153]"PEEKITTE F3 DRUECKEN":[146]198,1:[161]B$:[141]5898 5849 [139]B$[178]"INPUT"[167]100 5850 X$[178]"SEQ ":[139]Z[179][177]0[175]PR[178]1[167][141]5870 5851 [139]PR[178]0[175]Z[179][177]0[167][153]" ";B,"CMD";FF$:V$(30[170]B)[178]C$ 5852 [139]PR[178]1[167][153]" ";X$,FF$ 5855 [130]X 5856 [139]T[179][177]0[167]5830 5860 [153]"PEEKITTE F1 DRUECKEN":[141]1 5865 [137]100 5870 [139]Z[178]130[167]X$[178]"PRG " 5871 [139]Z[178]129[167]X$[178]"SEQ " 5872 [139]Z[178]194[167]X$[178]"PRG<" 5873 [139]Z[178]131[167]X$[178]"USR " 5874 [139]Z[178]193[167]X$[178]"SEQ<" 5875 [139]Z[178]195[167]X$[178]"USR<" 5880 [139]A$(1)[178]"P"[175]Z[179][177]130[175]Z[179][177]194[167][142] 5881 [139]A$(2)[179][177]"INHALT"[167][142] 5885 AN[178]AN[170]1:A$(AN)[178]ID$[170]" "[170]X$[170]FF$:[142] 5888 [137]100 5890 [139]PR[178]1[167]5897 5891 [161]#2,A$,A$:[139]A$[179][177]">"[167]Z[178]0:[142] 5892 [161]#2,A$,B$:FF$[178]A$[170]B$:[139]FF$[179][177]BA$[175]BA$[179][177]"--"[167]Z[178]0:[142] 5893 C$[178]">"[170]A$[170]B$:[161]#2,A$,B$:FF$[178]FF$[170]" "[170]A$[170]B$[170]".":C$[178]C$[170]A$[170]B$ 5894 [161]#2,A$,B$:FF$[178]FF$[170]A$[170]B$[170]".":C$[178]C$[170]A$[170]B$ 5895 [161]#2,A$,B$:FF$[178]FF$[170]A$[170]B$[170]" CLOSE":C$[178]C$[170]A$[170]B$ 5896 [129]Y[178]1[164]7:[161]#2,A$:C$[178]C$[170]A$:FF$[178]FF$[170]A$:[130]Y:B[178]B[170]1:[142] 5897 FF$[178]"":[161]#2,A$:[129]Y[178]0[164]15:[161]#2,A$:FF$[178]FF$[170]A$:[130]:B[178]B[170]1:[142] 5898 [153]"LOAD";PT$:[153]"STR$ISK: ";N$;" RIGHT$STR$:";ID$;"" 5899 [153]" (null)R. (null)ER STR$ATUM (null)AME":[142] 5900 [139]PR[178]0[167]100 5901 [153]"LOAD";PT$:[153]"ATNENDERN DES STR$ISKNAMENS ODER DER STR$ISK RIGHT$STR$" 5902 [153]"STR$IE ZU ATNENDERNDE STR$ISKETTE EINLEGEN UND":[153]" [F3] DRUECKEN" 5903 [151]198,0:[141]1:[139]A$[179][177]"DIM"[167]100 5908 B$[178]"" 5909 [159]15,8,15,"I":[152]15,PR$:[159]2,8,2,"#" 5910 [152]15,"B-R 2 0 18 0":[152]15,"B-P 2 144":[129]T[178]1[164]20:[161]#2,A$:B$[178]B$[170]A$:[130] 5920 N$[178][200](B$,16):ID$[178][201](B$,2) 5921 [139]X[178]999[167][142] 5925 [153]"(null)AME ";N$:[133]"ON(null)AME";N$ 5927 [153]"RIGHT$STR$ ";ID$:[133]"ONRIGHT$STR$ ";ID$ 5930 N$[178]N$[170]"CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE":ID$[178]ID$[170]"++":N$[178][200](N$,16):ID$[178][200](ID$,2) 5940 [152]15,"B-P 2 144":[152]2,N$;ID$;:[152]15,"B-W 2 0 18 0" 5945 [160]2:[160]15 5950 [133]"(null)ASSWORT";PA$:[139]PA$[178]"0"[167]100 5960 [139][195](PA$)[179]10[167]PA$[178]PA$[170][199](0):[137]5960 5970 [137]5643 6000 [153]"LOAD";PT$:[153]"+ + (null) E X T ATN U F Z E I C H N E N + +" 6001 [153]"(null)EXTNAME: ";T1$ 6002 [153]" [F1]=VALNDE [=] = (null)EXTNAME" 6004 A$[178]"=":[141]9:[139]F[178]1[167]100 6005 [139]A$[178]"="[167]A$[178]T1$:[139]T1$[178]""[167][153]"(null)AME FEHLT":[137]6004 6006 T1$[178]A$:B$[178]">"[170]BA$[170]"??????"[170]A$ 6007 [153]"ATNLLE (null)ORGAENGER LOESCHEN (J/N)?":[141]1 6008 [139]A$[178]"J"[167][159]2,8,15,"S:"[170]B$:[160]2 6009 B1$[178]"STR$RUCKEN [3]":B2$[178]"VALNDE [F5]" 6015 A$[178]T1$:[141]70 6016 T1$[178]A$:[159]2,FA,15,"I0":A$[178]">"[170]BA$[170]DA$[170]A$:[152]2,PR$ 6017 [141]34000 6018 [159]5,FA,5,"@0:"[170]A$[170]",S,W" 6021 [141]34000 6022 AX[178]B[171]V:[152]5,[196](AX) 6024 [129]T[178]V[164]B:[139]A$(T)[178]""[176]A$(T)[178]" "[167]A$(T)[178]">" 6030 [152]5,A$(T):[139]A$(T)[178]">"[167]A$(T)[178]"" 6031 [141]34000 6032 [130]:[160]2:[160]5:[137]100 7000 T[178]0:X[178]0 7002 [139]X[179]0[167]X[178]0 7003 [141]7030:[129]T[178]1[164]20 7004 [153]"";[201]([196](T[170]X[172]20),1);"WAIT";A$(T[170]X[172]20) 7006 [130]T 7007 [153]"F1=VALNDE F3=(null)EITE + F5=(null)EITE - " 7008 B1$[178]"ATNENDERN [2]" 7009 B2$[178]"(null)PEICHERN [5]":B3$[178]"LEFT$ILFE [F7]" 7010 [141]1 7011 [139]A$[178]"INPUT"[167]100 7012 [139]A$[178]"READ"[167]X[178]X[171]1:[139]X[177][178]0[167]7002 7013 [139]A$[178]"DIM"[167]X[178]X[170]1:[139]X[172]20[179]AN[167]7002 7014 [139]X[172]20[177][178]AN[167]X[178]0:[137]7002 7015 [139]X[179]0[167]X[178][181](AN[173]20):[137]7002 7020 [137]7010 7030 [153]"LOAD +(null) E X T 6 4 +PEEKILDSCHIRM+(null)EILE " 7031 [153]" +(null) E X T 6 4 +PEEKILDSCHIRM+(null)EILE";X[172]20;"-" 7032 [142] 7100 [153]"LOAD";PT$:[153]" + + PEEKILDSCHIRMAUSGABE + + " 7105 [133]"ATNB (null)EILE";X:[139]X[179]1[176]X[177]AN[167]X[178]1 7106 X[178][181](X[173]20):[137]7002 8000 [153]"LOAD";PT$ 8002 G[178]0 8006 [153]" -1- (null)EUSTART DES (null)ROGRAMMS" 8007 [153]" -2- RIGHT$NFO UEBER (null)PEICHERPLATZ" 8008 [153]" -3- (null)ON AUS" 8009 [153]" -4- (null)ON AN" 8010 [141]1 8011 [139]A$[178]"1"[167]10000 8013 [139]A$[178]"0"[176]A$[178]"INPUT"[167]100 8014 [139]A$[178]"1"[167][138] 8015 [139]A$[178]"2"[167][153][184](9);"(null)EICHEN FREI":[153]" (null)ASTE DRUECKEN":[141]1:[137]26 8016 [139]A$[178]""[167][133]"CODE";A$:[139]A$[178]"SUSI"[167]55555 8017 [139]A$[178]""[175](BA$[178]"--"[176]BA$[178]"OF")[167]PR[178]1:[153]"(null)ROG OK":[141]1:[137]100 8018 [139]A$[178]""[167]PR[178]0:[153]"(null)ROGRAMMIERER AUS":[141]1:[137]100 8019 [139]A$[178]"3"[167]T9%[178]1:[153]"(null)ON AUS":[137]100 8020 [139]A$[178]"4"[167]T9%[178]0 8021 [139]A$[178]""[175]PR[178]1[167][128] 8099 [137]100 9400 [143]*** FILL *** 9401 [153]"LOAD";PT$:[153]" * * (null)EXTPROGRAMM * * ATNUSFUELLEN * * " 9407 F2[178]0:[153]"(null)EBEN DEN (null)EXT [J/N]":[141]1:[139]A$[178]"J"[167]F2[178]1 9408 [139]A$[178]"INPUT"[167]100 9409 [139]F2[178]1[167][153]"(null)INKS/(null)ECHTS [L/R]":[141]1:G[178]1:[139]A$[178]"R"[167]G[178]2 9410 [141]70 9421 [133]"(null)CHRITTWEITE";S:[139]S[179][178]0[167]9421 9429 [153]"LOAD(null)AS ?" 9430 A$[178]"":[141]9:[139]F[178]1[167]100 9440 [139]B[177]AN[167]AN[178]B 9450 [129]T[178]V[164]B[169]S 9452 [139]F2[178]0[167]A$(T)[178]A$ 9453 [139]F2[178]1[175]G[178]1[167]A$(T)[178]A$[170]A$(T) 9454 [139]F2[178]1[175]G[178]2[167]A$(T)[178]A$(T)[170]A$ 9455 [130]:[137]7000 9689 [142] 9700 [153]"LOAD";PT$;"" 9710 [153]" 1 (null)ARIABLEN ZEIGEN" 9712 [153]" 2 (null)ARIABLEN EINGEBEN" 9713 [153]" 3 (null)ARIABLEN AN" 9714 [153]" 4 (null)ARIABLEN AUS" 9715 [153]" 5 (null)ARIABLEN ZU (null)EXT" 9717 [153]" 6 (null)ARIABLEN ALS (null)EXT 1-50" 9718 [153]" 7 (null)EXT ALS (null)ARIABLEN 1-50" 9719 [153]" 8 (null)ARIABLEN AUS STR$ATEIVERWALTUNG" 9750 [141]1 9755 [139]A$[178]"0"[176]A$[178]"INPUT"[167]100 9760 [145][197](A$)[137]9800,9900,9780,9785,9850,9790,9795,4000 9770 [137]9750 9780 V9[178]1:[153]"(null)ARIABLEN AN":[129]T[178]1[164]999:[130]:[137]9700 9785 V9[178]0:[153]"(null)ARIABLEN AUS":[129]T[178]1[164]999:[130]:[137]100 9790 [129]T[178]1[164]50:A$(T)[178]V$(T):AN[178]50:[130]:[137]100 9795 [129]T[178]1[164]50:V$(T)[178]A$(T):[130]:[137]100 9800 [153]"LOAD";PT$ 9801 [129]T[178]1[164]50:[153]T,V$(T) 9810 [139]T[173]20[178][181](T[173]20)[167][141]1:[153]"LOAD";PT$ 9820 [130]:[141]1:[137]100 9850 [141]3:V9[178]1 9860 [129]T[178]1[164]AN:A$[178]A$(T):[141]30300:A$(T)[178]A$:[130]:V9[178]0:[137]100 9900 [153]"LOAD";PT$:[153]" + + (null)ARIABLEN VALRIGHT$(null)CHR$ATNPEEKVAL + +" 9901 [133]"(null)ARIABLEN (null)R.";A:[139]A[177]40[167]9900 9910 A$[178]"":[141]9:V$(A)[178]A$ 9920 [153]:[153]"(null)OCH EINE? [J/N]" 9930 [141]1 9940 [139]A$[178]"N"[167]100 9950 [137]9900 10000 [153]"LOAD";PT$:B$[178]A$ 10010 [153]"ATNLENLEFT$(null)(null)(null)CHR$ !!! (null)EXT UNBEDINGT (null)(null)VALRIGHT$LENLEFT$VAL(null)(null)" 10020 [153]"RIGHT$ST DER (null)EXT SCHON GESPEICHERT? [J/N]" 10030 [141]1:[139]A$[179][177]"J"[167]6000 10040 A$[178]B$:[151]930,0:[137]8013 20000 [153]"LOAD";PT$:[153]" + + (null)EXTPROGRAMM + + (null) VAL LEN LEFT$ (null) VAL (null) + +" 20009 [153]" [E]= VALNDE" 20010 [153]" [C]= (null)PEICHER LOESCHEN" 20011 [153]" [M]= (null)EHRWERTSTEUER EINGEBEN" 20013 [153]" [+] [-] [*] [:] = (null)ECHENOPERATIONEN" 20015 RR[178][181]((RR[172]100)[170]0.5)[173]100 20019 [153]"";RR;"WAIT"; 20020 [141]1 20030 [139]A$[178]"C"[167]RR[178]0:[137]20000 20031 [139]A$[178]"E"[176]A$[178]"INPUT"[167]100 20032 [139]A$[178]"M"[167][133]"(null)TEUER IN % 14CMDCMDCMDCMD";MW:[137]20000 20034 [139]A$[179][177]"+"[175]A$[179][177]"-"[175]A$[179][177]"*"[175]A$[179][177]":"[167]20020 20040 [153]A$;" ";:[133]X 20050 [139]A$[178]":"[175]X[178]0[167][153]"ASCEHLER... NICHT DURCH 0 DIVIDIEREN":[137]20020 20060 [139]A$[178]":"[167]RR[178]RR[173]X 20061 [139]A$[178]"*"[167]RR[178]RR[172]X 20062 [139]A$[178]"+"[167]RR[178]RR[170]X 20063 [139]A$[178]"-"[167]RR[178]RR[171]X 20064 [137]20000 22000 [139][194](1022)[178]0[167][141]22100 22001 [139][194](1022)[178]0[167][151]1022,1:[147]"ZEICHEN B",8,1 22002 [139][194](1022)[178]250[167][151]1022,240:[147]"ZEICHEN DIN",8,1 22003 [139][194](1022)[178]1[167][151]53272,11:[151]56576,[194](56576)[175]252:[151]648,192 22004 [139][194](1022)[178]240[167][151]53272,11:[151]56576,[194](56576)[175]252:[151]648,192 22005 [139][194](1022)[178]1[167][151]1022,2:[147]"ZEICHEN D",8,1 22006 [153]"LOAD":[139][194](1022)[178]240[167][151]1022,199:[147]"ZEICHEN DDIN",8,1 22007 [139][194](1022)[178]2[167][151]1022,3:[147]"PROFIP V1.0",8,1 22008 [139][194](1022)[178]199[167][151]1022,200:[147]"PROFIP V1.0",8,1 22009 [139][194](1022)[178]111[167][151]53272,11:[151]56576,[194](56576)[175]252:[151]648,192:[128] 22010 [137]11 22100 [153][199](14);"LOAD (null)EXTVERARBEITUNGSPROGRAMM (null).ASCENDT " 22105 [153]"(null)AS FUER EINE (null)ASTATURBELEGUNG?" 22106 [133]" [DIN] - [CBM]DINCMDCMDCMDCMDCMD";A$ 22107 [139]A$[178]"DIN"[167][151]1022,250 22108 [141]3:[142] 30000 G9[178]G8[171]6:[141]30700:XT[178]0:[139][195](A$)[177]M8[167]A$[178][200](A$,M8) 30001 [151]922,AM:CF[178]1:[139]U9[178]2[167]U9[178]0:CP[178][195](R$)[170]CB:[137]30020 30002 [139]CC[178]999[167]CP[178][195](A$(G8)):CC[178]0:[137]30020 30010 CC[178]0:X[178]0:CP[178]CB 30020 [139]CP[178]0[167]CP[178]1 30021 [151]908,CP[171]1:[151]918,M8[171](M8[173]5):[151]920,11:[151]917,M8:[151]924,0 30040 [158] 50176,A$,A$ :F[178][194](913):[139]A$[178]"> "[167]A$[178]"" 30045 [141]31 30053 [139]F[178]9[167][141]30550:[137]30020 30054 [139]F[178]15[167]A$[178]"":A$(G8)[178]"":[137]30000 30055 [139]F[178]11[167][141]30400:A$(G8)[178]A$ 30056 [139]F[178]20[167]CC[178]999:F[178]5 30057 [139]F[178]16[167]F[178]0:[139][201](A$,1)[179][177]"RND"[167]A$[178]A$[170]"RND" 30099 [141]30300:[141]30400:[153]:[142] 30300 [143] ** VARIABLEN TEST ** 30301 [139]V9[178]0[167][142] 30310 [129]B[178]1[164][195](A$)[171]2 30320 [139][202](A$,B,1)[179][177]"@"[167][130]:[142] 30330 X[178][197]([202](A$,B[170]1,2)):[139]X[177]50[167]X[178]0 30340 A$[178][200](A$,B[171]1)[170]V$(X)[170][201](A$,[195](A$)[171]B[171]2):[137]30310 30350 [130]:[142] 30400 [139][195](A$)[179]M8[167][142] 30401 [139][195](A$)[177]80[167]30440 30403 CC[178]999:[129]I[178]M8[164]1[169][171]1 30410 [139][202](A$,I,1)[179][177]" "[167][130]I:[137]30440 30420 R$[178][201](A$,[195](A$)[171]I):A$[178][200](A$,I[171]1):U9[178]1 30421 [139][201](R$,1)[178]" "[167]R$[178][200](R$,[195](R$)[171]1):[137]30421 30430 [139][195](A$)[177][178]M8[167][130]:[137]30440 30431 [142] 30440 [141]95:[153]">> (null)EILE ZU LANG << ASCEHLER !!":[151]198,0 30441 A$[178][200](A$,M8[171]1) 30442 [141]30601:[139][194](198)[179]1[167]30442 30443 [151]198,0:[142] 30550 [139]CP[170]1[177][195](T7$)[176]XT[178]1[167][142] 30560 X[178]0:[129]Z[178]CP[170]1[164][195](T7$):[139][202](T7$,Z,1)[178]"+"[175]X[178]0[167]X[178]1:CP[178]Z 30570 [130]:[139]X[178]0[167]XT[178]1 30580 [139][195](A$)[179]CP[167]A$[178]A$[170]"CLOSE":[137]30580 30590 [142] 30600 [143] ** ERROR SYSTEM ** 30601 [139]T9%[178]1[167][142] 30602 [151]53280,1 30603 [151]54296,15:[151]54277,25:[151]54278,4[172]16[170]4 30610 [151]54273,29:[151]54272,69:[151]54276,17 30619 [129]T[178]1[164]200:[130] 30620 [151]53280,0:[129]T[178]1[164]200:[130] 30621 [151]54276,0:[151]54277,0:[151]54278,0:[142] 30700 [143] ** FENSTER ** 30701 [153]"";PT$:[153]"";T7$ 30702 [141]80:[141]30750 30705 [153]"":[129]I[178]0[164]10:[151]781,I[170]5:[151]782,0:[158]58636 30710 [139]G9[170]I[179][178]0[167][141]90:[137]30740 30720 V[178]MB[171][195](A$(I[170]G9)):[139]V[179]0[167]V[178]0 30730 [153]A$(I[170]G9)[170][200](A6$,V) 30740 [130]:[141]90:[142] 30750 [153]K1$;[200](A6$,(MB[170]2)[171][195](K1$)) 30751 [153]K2$;[200](A6$,(MB)[171][195](K2$)) 30752 [153]K3$;[200](A6$,(MB)[171][195](K3$)) 30753 [153]K4$;[200](A6$,(MB)[171][195](K4$)):[142] 31000 [143] ***************************** 31001 [143] ***************************** 31002 [143] ** INITIALISIERUNG ** 31003 [143] ***************************** 31004 [143] ***************************** 31006 PT$[178]"LEFT$YPRA-TEXT (null)1.0 BY (null)LIVER ASCENDTWAIT":ME[178]100:[153]"LOAD";PT$ 31009 FU$[178]"(null)ECHNEN":MW[178]14 31010 [134]V$(50) 31016 [151]53281,0:[151]53280,0:[139]M8[179][178]7[167]M8[178]36 31019 T7$[178]"!----+----+----+----+----+----+----------" 31020 [141]46000:B1$[178][196](M8)[170]" (null)EICHEN (null)ODUS" 31048 A6$[178]" " 31060 B1$[178]"(null)ADEN [5]" 31061 B2$[178]"VALINGABE [F1]" 31062 B3$[178]"LEFT$ILFE [F7]" 31063 [141]1840:PR$[178]"M-W"[170][199](1)[170][199](1)[170][199](1)[170]"A" 31150 [153]"LOAD";PT$:[153]"CHR$UTEN (null)AG,";V$(1) 31160 [153]"PEEKITTE GEBEN (null)IE DAS STR$ATUM EIN." 31199 [142] 33000 [143] *** FORMBLATT *** 33001 [153]"LOAD";PT$:[153]" + (null) A S K E AUSFUELLEN + (null)ON (null)ENU 1 +":A[178]CB 33004 B1$[178]"(null)PEICHERN [5]":B2$[178]"ATNENDERN [2]" 33010 [129]PQ[178]1[164]AN 33020 A$[178]A$(PQ):A$(PQ)[178]A$ 33021 [139][195](A$)[178]0[167][130]:[137]33099 33022 [129]PX[178]1[164][195](A$):L[178]0 33025 [139][202](A$,PX,1)[178]"TO"[167]CB[178]PX:[137]33050:[139]CC[178]4[175]C8[178]0[167]100 33027 [130]:G9[178]PQ[171]6:[141]30700:[130]:[137]33099 33050 [129]PX[178]CB[164][195](A$):[139][202](A$,PX,1)[178]"TO"[167][130] 33060 A$[178][200](A$(PQ),CB)[170][200](A6$,PX[171]CB[171]1) 33061 X[178][195](A$(PQ))[171]PX[170]1:[139]X[177]0[167]A$[178]A$[170][201](" "[170]A$(PQ),X) 33062 A$(PQ)[178]A$ 33070 G8[178]PQ:[141]30000:A$(PQ)[178]A$:[139]F[178]1[167]100 33072 [137]33022 33099 CB[178]A:[137]100 33200 [142] 34000 [143] ***************************** 34001 [143] * * 34002 [143] * FLOPPY CONTROL * 34003 [143] * * 34010 [143] ***************************** 34020 [132]2,EN,EM$,ET,ES:[139]EN[178]0[167][142] 34050 [153]"";EN;" ";EM$ 34060 [153]"(null)ASTE DRUECKEN" 34070 [141]1 34080 [139]EN[178]62[176]XY[178]999[167][142] 34090 [153]"(null)ONTROLLIEREN UND NACH DEM BEHEBEN [F1] DRUECKEN" 34091 [141]1:[139]A$[179][177]"INPUT"[167]34091 34092 [152]2,"I":[137]100 34100 [151]915,5:[151]908,0:[151]917,M8:[158]50182,A$ 34110 [141]31:[142] 34500 [129]T[178]20767[170]8500 [164]65000 34510 [139][194](T)[179][177]0[167][130] 34520 X[178]T 34530 [153][194](X)[170][194](X[170]1)[172]256 34540 X[178]X[170]2 34550 [139][194](X)[178]0[167]X[178]X[170]3:[153]:[137]34530 34560 [153][199]([194](X));:X[178]X[170]1:[137]34550 40000 [153]"STR$ATUM:":A$[178]"------":[141]9:DA$[178]A$ 40010 [139]DA$[178]"------"[167]40000 40020 D$[178][200](DA$,2)[170]"."[170][202](DA$,3,2)[170]".19"[170][201](DA$,2):[142] 43000 [143] 43040 AM[178]1 43060 [142] 46000 [153]"LOAD";PT$;[199](14):M8[178]39:CB[178]1:MB[178]39:T9%[178]1 46001 [153]"(null)ARAMETERDISKETTE EINLEGEN" 46002 [139][194](930)[179][177]0[167]BA$[178][199]([194](930))[170][199]([194](931)):FA[178][194](932):[137]46070 46003 [153]"ASCLOPPY ATNDR.: 8":[141]1:FA[178][197](A$):[139]A$[178][199](13)[167]FA[178]8 46004 [139]FA[179]8[176]FA[177]9[167]46003 46005 T9%[178]1:[153]"(null)AME ":[141]4:[141]5:B$[178]A$:T[178]0:[153] 46006 [139][197](B$)[179][177]0[167]Y[178][197](B$):[141]4500:[137]46010 46007 [141]4100:[139]F[179][177]999[167][141]4500 46010 [139]F[178]999[176]EN[179][177]0[167][153]"PEEKENUTZER NICHT REGISTRIERT":[141]1:[137]46000 46013 [139][194](1022)[178]200[167]AM[178]2 46050 M8[178]39 46053 [139]V$(7)[178]"-"[167][153]"(null)EINE (null)UGRIFFSBERECHTIGUNG":[141]1:[137]46000 46055 [139]T[177]2[167][153]:[153]"(null)ASSWORT FALSCH":[141]1:[137]46000 46056 [153]"LENODEWORTSTOP":[141]4:[141]5:[153]"":[139]A$[179][177]V$(7)[167]T[178]T[170]1:[137]46055 46058 BA$[178]V$(8) 46060 [151]930,[198]([200](BA$,1)) 46061 [151]931,[198]([201](BA$,1)) 46062 [151]932,FA 46070 XY[178]0:[142] 55555 [160]15:[159]15,8,15,"I":[160]15 55556 [153]"LOADICH SPEICHERE": [148]"@:PT"[170]DA$,8 55557 [151]2,0 55560 [153]"IST GESPEICHERT":[128] 56100 [153]"LOAD";PT$ 56101 [153]" ATNLENLEFT$(null)(null)(null)CHR$ !!!WAIT" 56102 [153]" (null)UR WENN DER (null)EXT SCHON GESPEICHERT" 56103 [153]" IST, DANN DIE LEFT$YPRA-TEXT STR$ISKETTE" 56104 [153]" EINLEGEN, UND [F8] DRUECKEN !!!" 56106 [141]1:[139]A$[179][177]"RESTORE"[167]100 56107 [153]"LOAD";PT$:[153]"RIGHT$CH LADE NUN (null)ROFIPRINT" 56108 [153]" PEEKITTE WARTEN ..." 56109 [151]2,0:[147]"PROFIPRINT",8