100 REM"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
110 [143]"(null)LEN(null)(null)(null)ATN(null)VAL 1.0         (null)
120 REM"[221]                    [221]
130 [143]"(null)<LEN> BY COMMODORE(null)VAL(null)(null)(null)
140 REM"[221]                    [221]
150 [143]"(null)(null)RITTEN BY          (null)
160 REM"[221][199]UNNAR [200]ABITZ       [221]
170 [143]"(null)LEFT$EIDLERCHENSTR.2    (null)
180 REM"[221]2820 [194]REMEN 71      [221]
190 [143]"(null)                    (null)
200 REM"[221]04/1987             [221]
210 [143]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
220 :
230 POKE808,225:POKE788,52:POKE792,193
240 PRINT"[147][152]";:POKE53280,0:POKE53281,0:POKE650,128:POKE53269,0
250 RE$="                                        "
260 LL$="                                       "
270 CLOSE5:OPEN5,8,15:POKE198,0:DIMT$(14,2),I$(14,2),C$(14,2),Z$(14,2):GOTO570
280 :
290 REM"[176][192][192][192][192][192][192][174]
300 [143]"(null)ASCEHLER(null)
310 REM"[173][192][192][192][192][192][192][189]
320 :
330 [153],"ON(null)EINE LENASSETTE IM (null)PEICHER"
340 [161]A$:[139]A$[178]""[167]340
350 [137]620
360 :
370 [143]"ORTANTANTANTANTANTANTANTANTANTANTANTAN^
380 REM"[221][198]LOPPYFEHLER[221]
390 [143]"/TANTANTANTANTANTANTANTANTANTANTANTANEXP
400 :
410 INPUT#5,FA,FB$,FC,FD:IFFA<2THENRETURN
420 PRINT"[145][198]EHLER :"FA"[157] "FB$" "FC"[157] "FD"[146]         "
430 GETA$:IFA$=""THEN430
440 GOTO570
450 :
460 REM"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
470 [143]"(null)STR$ATEN LOESCHEN(null)
480 REM"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
490 :
500 [129]I[178]0[164]14
510 T$(I,1)[178]"":I$(I,1)[178]"":C$(I,1)[178]"":Z$(I,1)[178]""
520 T$(I,2)[178]"":I$(I,2)[178]"":C$(I,2)[178]"":Z$(I,2)[178]""
530 [130]I
540 TT$[178]"":TP$[178]"":TN$[178]"":TA$[178]"":TR$[178]"":TH$[178]"":TY$[178]"":TL$[178]"":TB$[178]""
550 [142]
560 :
570 [143]"ORTANTANTANTANTANTANTANTANTANTAN^
580 REM"[221][200]AUPTMENUE[221]
590 [143]"/TANTANTANTANTANTANTANTANTANTANEXP
600 :
610 PRINT"[147]";
620 PRINT""RE$" [195][207][205][212][193][208][197]                [195]ASSETTENLAYOUT [146]"RE$
630 PRINT,"[200][193][213][208][212][205][197][206][213][197]"
640 PRINT,"[198]1 - [195]ASSETTE EINGEBEN"
650 PRINT,"[198]2 - [195]ASSETTE EDITIEREN"
660 PRINT,"[198]3 - [195]ASSETTE LADEN"
670 PRINT,"[198]4 - [195]ASSETTE SPEICHERN"
680 PRINT,"[198]5 - [195]ASSETTE DRUCKEN"
690 PRINT,"[198]7 - [208]ROGRAMMENDE"
700 PRINT"          [194]ITTE WAEHLEN [211]IE !          "
710 GETA$:IFA$=""THEN710
720 IFA$="[133]"THEN890
730 IFA$="[137]"THEN1160
740 IFA$="[134]"THEN1960
750 IFA$="[138]"THEN2250
760 IFA$="[135]"THEN2620
770 IFA$="[136]"THEN840
780 GOTO710
790 :
800 REM"[176][192][192][192][192][174]
810 [143]"(null)VALNDE(null)
820 REM"[173][192][192][192][192][189]
830 :
840 [153],"ON(null)IND (null)IE SICHER [J/N] ?CMD";:[151]204,0
850 [161]A$:[139]A$[178]""[167]850
860 [151]204,1:[151]207,0:[139]A$[178]"J"[167][153]"J":[158]64738
870 [137]620
880 :
890 [143]"ORTANTANTANTANTANTANTAN^
900 REM"[221][197]INGABE[221]
910 [143]"/TANTANTANTANTANTANTANEXP
920 :
930 GOSUB500:GOSUB940:GOTO950
940 PRINT"[147]"RE$" [195][207][205][212][193][208][197]              [195]ASSETTE EINGEBEN [146]"RE$:RETURN
950 PRINT
960 PRINT"[212]ITEL    :[146] ";:ML=16:GOSUB3080:TT$=TX$
970 PRINT"[201]NTERPRET:[146] ";:ML=16:GOSUB3080:TP$=TX$
980 PRINT"[206]UMMER   :[146] ";:ML=4:GOSUB3080:TN$=TX$
990 PRINT"[193]UFNAHME :[146] ";:ML=6:GOSUB3080:TA$=TX$
1000 PRINT"[206]OISE [210]. :[146] ";:ML=7:GOSUB3080:TR$=TX$
1010 PRINT"[200]ERST.   :[146] ";:ML=8:GOSUB3080:TH$=TX$
1020 PRINT"[212]YP      :[146] ";:ML=8:GOSUB3080:TY$=TX$
1030 PRINT"[204]AENGE   :[146] ";:ML=3:GOSUB3080:TL$=TX$
1040 PRINT"[194]ANDSORTE:[146] ";:ML=4:GOSUB3080:TB$=TX$
1050 FORJ=1TO2:GOSUB940
1060 PRINT"[211]EITE"J:PRINT"[192][192][192][192][192][192][192]"
1070 FORI=1TO14
1080 PRINT"[212]ITEL"I:ML=14:GOSUB3080:T$(I,J)=TX$
1090 PRINT"[145][201]NT. "I:ML=14:GOSUB3080:I$(I,J)=TX$
1100 PRINT"[145][195]OUNT"I"[146]";:ML=4:GOSUB3080:C$(I,J)=TX$
1110 PRINT,,"[145][145][218]EIT "I"[146]";:ML=5:GOSUB3080:Z$(I,J)=TX$
1120 IFI=3ORI=6ORI=9ORI=12THENGOSUB940:PRINT"[211]EITE"J:PRINT"[192][192][192][192][192][192][192]"
1130 NEXTI:NEXTJ
1140 GOTO570
1150 :
1160 REM"[176][192][192][192][192][192][192][192][192][192][174]
1170 [143]"(null)VALDITIEREN(null)
1180 REM"[173][192][192][192][192][192][192][192][192][192][189]
1190 :
1200 [139]T$(1,1)[178]""[167]290
1210 [141]1220:[137]1240
1220 [153]"LOAD";
1230 [153]""RE$" LEN(null)(null)(null)ATN(null)VAL             LENASSETTE EDITIEREN WAIT"RE$:[142]
1240 [153]"1.(null)ITEL   :WAIT ";TT$:[153]
1250 [153]"2.RIGHT$NTERPR.:WAIT ";TP$:[153]
1260 [153]"3.(null)UMMER  :WAIT ";TN$:[153]
1270 [153]"4.ATNUFNAHME:WAIT ";TA$:[153]
1280 [153]"5.(null)OISE (null).:WAIT ";TR$:[153]
1290 [153]"6.LEFT$ERST.  :WAIT ";TH$:[153]
1300 [153]"7.(null)YP     :WAIT ";TY$:[153]
1310 [153]"8.(null)AENGE  :WAIT ";TL$:[153]
1320 [153]"9.PEEKANDS.  :WAIT ";TB$:[153]
1330 [151]211,0:[151]214,22:[158]58640:[153]"ATNENDERN [J/N] ?          CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
1340 [151]204,0
1350 [161]A$:[139]A$[178]""[167]1350
1360 [139]A$[178]"N"[176]A$[178]"J"[176]A$[178]"_"[167][151]204,1:[151]207,0:[153]" ":[137]1380
1370 [137]1350
1380 [139]A$[178]"N"[167]1660
1390 [139]A$[178]"_"[167]570
1400 [153]"ON(null)ELCHE (null)UMMER [1-9] ?CMD";
1410 [151]204,0
1420 [161]A$:[139]A$[178]""[167]1420
1430 E1[178][182]([181]([197](A$))):[139]E1[178]0[175]A$[179][177]"_"[167]1420
1440 [151]204,1:[151]207,0:[153]A$
1450 [139]A$[178]"_"[167]570
1460 [139]E1[178]1[167][151]214,4:ML[178]16
1470 [139]E1[178]2[167][151]214,6:ML[178]16
1480 [139]E1[178]3[167][151]214,8:ML[178]4
1490 [139]E1[178]4[167][151]214,10:ML[178]6
1500 [139]E1[178]5[167][151]214,12:ML[178]7
1510 [139]E1[178]6[167][151]214,14:ML[178]8
1520 [139]E1[178]7[167][151]214,16:ML[178]8
1530 [139]E1[178]8[167][151]214,18:ML[178]3
1540 [139]E1[178]9[167][151]214,20:ML[178]4
1550 [151]211,12:[158]58640:[141]3080
1560 [139]E1[178]1[167]TT$[178]TX$
1570 [139]E1[178]2[167]TP$[178]TX$
1580 [139]E1[178]3[167]TN$[178]TX$
1590 [139]E1[178]4[167]TA$[178]TX$
1600 [139]E1[178]5[167]TR$[178]TX$
1610 [139]E1[178]6[167]TH$[178]TX$
1620 [139]E1[178]7[167]TY$[178]TX$
1630 [139]E1[178]8[167]TL$[178]TX$
1640 [139]E1[178]9[167]TB$[178]TX$
1650 [137]1330
1660 [153]"LOAD";:[129]J[178]1[164]2:[129]I[178]1[164]14
1670 [141]1230:[153]"(null)EITE"J"CMD (null)ITEL WAIT CMDCMDCMD"I:[153]""
1680 [153]"1.(null)ITEL":[153]LL$:[153]"ON"T$(I,J)
1690 [153]"2.RIGHT$NTERPRET":[153]LL$:[153]"ON"I$(I,J)
1700 [153]"3.LENOUNTER":[153]LL$:[153]"ON"C$(I,J):[151]211,20:[151]214,13
1710 [158]58640:[153]"4.(null)EIT":[153],,"      ":[153],,"ON"Z$(I,J)
1720 [151]211,0:[151]214,16:[158]58640
1730 [153]"ATNENDERN [J/N] ?           CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";:[151]204,0
1740 [161]A$:[139]A$[178]""[167]1740
1750 [139]A$[178]"J"[176]A$[178]"N"[176]A$[178]"_"[167][151]204,1:[151]207,0:[153]"?":[137]1770
1760 [137]1740
1770 [139]A$[178]"N"[167]1930
1780 [139]A$[178]"_"[167]570
1790 [153]"ON(null)ELCHE (null)UMMER [1-4] ?CMD";:[151]204,0
1800 [161]A$:[139]A$[178]""[167]1800
1810 E1[178][181]([197](A$)):[139](E1[179]1[176]E1[177]4)[175]A$[179][177]"_"[167]1800
1820 [151]204,1:[151]207,0:[153]A$:[139]A$[178]"_"[167]570
1830 [139]E1[178]1[167][151]214,8:ML[178]14
1840 [139]E1[178]2[167][151]214,11:ML[178]14
1850 [139]E1[178]3[167][151]214,14:ML[178]4
1860 [139]E1[178]4[167][151]211,20:ML[178]5:[151]214,14
1870 [158]58640:[141]3080
1880 [139]E1[178]1[167]T$(I,J)[178]TX$
1890 [139]E1[178]2[167]I$(I,J)[178]TX$
1900 [139]E1[178]3[167]C$(I,J)[178]TX$
1910 [139]E1[178]4[167]Z$(I,J)[178]TX$
1920 [137]1720
1930 [130]I:[130]J
1940 [137]570
1950 :
1960 [143]"ORTANTANTANTANTAN^
1970 REM"[221][204]ADEN[221]
1980 [143]"/TANTANTANTANTANEXP
1990 :
2000 PRINT"[147]"RE$" [195][207][205][212][193][208][197]                 [195]ASSETTE LADEN [146]"RE$
2010 PRINT"[215]ELCHE [195]ASSETTE LADEN ? ";:ML=16:GOSUB3080
2020 N$=LEFT$(TX$,16):PRINT
2030 PRINT"[145][196]IE [195]ASSETTE WIRD GELADEN."
2040 CLOSE2:OPEN2,8,2,N$+",S,R":GOSUB410
2050 GOSUB500
2060 INPUT#2,TT$:INPUT#2,TP$:INPUT#2,TN$:INPUT#2,TA$:INPUT#2,TR$:INPUT#2,TH$
2070 INPUT#2,TY$:INPUT#2,TL$:INPUT#2,TB$
2080 FORI=1TO14
2090 INPUT#2,T$(I,1):INPUT#2,T$(I,2)
2100 INPUT#2,I$(I,1):INPUT#2,I$(I,2)
2110 INPUT#2,C$(I,1):INPUT#2,C$(I,2)
2120 INPUT#2,Z$(I,1):INPUT#2,Z$(I,2)
2130 IFT$(I,1)="*"THENT$(I,1)=""
2140 IFT$(I,2)="*"THENT$(I,2)=""
2150 IFI$(I,1)="*"THENI$(I,1)=""
2160 IFI$(I,2)="*"THENI$(I,2)=""
2170 IFC$(I,1)="*"THENC$(I,1)=""
2180 IFC$(I,2)="*"THENC$(I,2)=""
2190 IFZ$(I,1)="*"THENZ$(I,1)=""
2200 IFZ$(I,2)="*"THENZ$(I,2)=""
2210 NEXTI:CLOSE2
2220 GOSUB410
2230 GOTO570
2240 :
2250 REM"[176][192][192][192][192][192][192][192][192][192][174]
2260 [143]"(null)(null)PEICHERN(null)
2270 REM"[173][192][192][192][192][192][192][192][192][192][189]
2280 :
2290 [139]T$(1,1)[178]""[167]290
2300 [153]"LOAD"RE$" LEN(null)(null)(null)ATN(null)VAL             LENASSETTE SPEICHERN WAIT"RE$
2310 [153]"(null)PEICHERN ALS ? ";:ML[178]16:[141]3080
2320 N$[178][200](TX$,16):[153]
2330 [153]"ONSTR$IE LENASSETTE WIRD GESPEICHERT."
2340 [160]2:[159]2,8,2,"@:"[170]N$[170]",S,W":[141]410
2350 [152]2,TT$:[152]2,TP$:[152]2,TN$:[152]2,TA$:[152]2,TR$:[152]2,TH$
2360 [152]2,TY$:[152]2,TL$:[152]2,TB$
2370 [129]I[178]1[164]14
2380 [139]T$(I,1)[178]""[167]T$(I,1)[178]"*"
2390 [139]T$(I,2)[178]""[167]T$(I,2)[178]"*"
2400 [139]I$(I,1)[178]""[167]I$(I,1)[178]"*"
2410 [139]I$(I,2)[178]""[167]I$(I,2)[178]"*"
2420 [139]C$(I,1)[178]""[167]C$(I,1)[178]"*"
2430 [139]C$(I,2)[178]""[167]C$(I,2)[178]"*"
2440 [139]Z$(I,1)[178]""[167]Z$(I,1)[178]"*"
2450 [139]Z$(I,2)[178]""[167]Z$(I,2)[178]"*"
2460 [152]2,T$(I,1):[152]2,T$(I,2)
2470 [152]2,I$(I,1):[152]2,I$(I,2)
2480 [152]2,C$(I,1):[152]2,C$(I,2)
2490 [152]2,Z$(I,1):[152]2,Z$(I,2)
2500 [139]T$(I,1)[178]"*"[167]T$(I,1)[178]""
2510 [139]T$(I,2)[178]"*"[167]T$(I,2)[178]""
2520 [139]I$(I,1)[178]"*"[167]I$(I,1)[178]""
2530 [139]I$(I,2)[178]"*"[167]I$(I,2)[178]""
2540 [139]C$(I,1)[178]"*"[167]C$(I,1)[178]""
2550 [139]C$(I,2)[178]"*"[167]C$(I,2)[178]""
2560 [139]Z$(I,1)[178]"*"[167]Z$(I,1)[178]""
2570 [139]Z$(I,2)[178]"*"[167]Z$(I,2)[178]""
2580 [130]I:[160]2
2590 [141]410
2600 [137]570
2610 :
2620 [143]"ORTANTANTANTANTANTANTAN^
2630 REM"[221][196]RUCKEN[221]
2640 [143]"/TANTANTANTANTANTANTANEXP
2650 :
2660 IFT$(1,1)=""THEN290
2670 GOSUB2680:GOTO2690
2680 PRINT"[147]"RE$" [195][207][205][212][193][208][197]               [195]ASSETTE DRUCKEN [146]"RE$:RETURN
2690 CLOSE4:OPEN4,4,0:CLOSE4
2700 IFST=0THEN2750
2710 POKE211,0:POKE214,24:SYS58640:PRINT"[196]RUCKER AUSGESCHALTET"
2720 GETA$:IFA$=""THEN2720
2730 IFA$="_"THEN570
2740 GOTO2690
2750 POKE211,0:POKE214,24:SYS58640:PRINT"                       "
2760 CLOSE4:OPEN4,4,0:PRINT"[196]IE [195]ASSETTE WIRD GEDRUCKT."
2770 PRINT#4,"[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][192][192][192][192][174]
2780 [152]4,"(null)"[170][200](TP$[170]"                ",16)[170]" ";
2790 [152]4,""[170][200](TT$[170]"                ",16)[170]" ";
2800 [152]4,""[170]" "[170][200](TN$[170]"    ",4)[170]"(null)"
2810 [152]4,"(null)                                       (null)"
2820 [152]4,"(null)"[170][200](TA$[170]"      ",6)[170]" "[170][200](TR$[170]"       ",7);
2830 [152]4," "[170][200](TH$[170]"        ",8)[170][200](TY$[170]"        ",8);
2840 [152]4,""[170][200](TB$[170]"    ",4)[170]" "[170][200](TL$[170]"   ",3)[170]"(null)"
2850 [152]4,"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<"
2860 [152]4,"(null)"[170][200](TP$[170]"                ",16)[170]" ";
2870 [152]4,""[170][200](TT$[170]"                ",16)[170]" ";
2880 [152]4," "[170][200](TN$[170]"    ",4)[170]"(null)"
2890 [152]4,"(null)                                       (null)"
2900 [152]4,"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<"
2910 [152]4,"(null)"[170][200](TA$[170]"      ",6)[170]" "[170][200](TR$[170]"       ",7);
2920 [152]4," "[170][200](TH$[170]"        ",8)[170][200](TY$[170]"        ",8);
2930 [152]4,""[170][200](TB$[170]"    ",4)[170]" "[170][200](TL$[170]"   ",3)[170]"(null)"
2940 [129]I[178]1[164]14
2950 [152]4,"(null)"[170][200](C$(I,1)[170]"    ",4)[170]" ";
2960 [152]4,""[170][200](T$(I,1)[170]"              ",14)[170]" ";
2970 [152]4,""[170][200](I$(I,1)[170]"              ",14);
2980 [152]4,""[170][200](Z$(I,1)[170]"     ",5)[170]"(null)"
2990 [130]I:[152]4,"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<"
3000 [129]I[178]1[164]14
3010 [152]4,"(null)"[170][200](C$(I,2)[170]"    ",4)[170]" ";
3020 [152]4,""[170][200](T$(I,2)[170]"              ",14)[170]" ";
3030 [152]4,""[170][200](I$(I,2)[170]"              ",14);
3040 [152]4,""[170][200](Z$(I,2)[170]"     ",5)[170]"(null)"
3050 [130]I:[152]4,"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
3060 [137]570
3070 :
3080 [143]"ORTANTANTANTANTANTANTANTANTANTANTAN^
3090 REM"[221][212]EXTEINGABE[221]
3100 [143]"/TANTANTANTANTANTANTANTANTANTANTANEXP
3110 :
3120 TX$="":POKE204,0
3130 B$=""
3140 GETB$:IFB$=""THEN3140
3150 IFB$=CHR$(20)ANDTX$=""THEN3140
3160 IFB$=CHR$(20)THENTX$=LEFT$(TX$,LEN(TX$)-1):PRINT"[157]  [157][157]";:GOTO3140
3170 IFB$=CHR$(13)THENPOKE204,1:POKE207,0:PRINT"[146] ":PRINT:RETURN
3180 IFLEN(TX$)=MLTHEN3140
3190 IFB$="_"THENPOKE204,1:POKE207,0:PRINT"[146] ":GOTO570
3200 IFB$>CHR$(127)ANDB$<CHR$(160)ORB$<CHR$(32)THEN3140
3210 TX$=TX$+B$:PRINTB$;:GOTO3130