home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8608a.d64
/
vokabeltrainer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
19KB
|
818 lines
1000 REM"[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][174]
1010 [143]"(null) (null)OKABELTRAINER BY: (null)
1020 REM"[221] [193]LFRED [211]CHNABEL [221]
1030 [143]"(null) ATNNTON-VON-(null)EHNER-(null)TR.5 (null)
1040 REM"[221] 8813 [211]CHILLINGSFUERST [221]
1050 [143]"(null) (null)EL. (09868) 1030 (null)
1060 REM"[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][189]
1070 :
1080 [151]53281,0:[151]53280,0:[151]646,0
1090 [153]"LOAD"
1100 [141]7370:[141]7520:[143]"TANTAN RIGHT$NIT TANTAN
1110 :
1120 POKE650,128:GOSUB4000
1130 :
1140 REM"[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][174]
1150 [143]"(null) (null)ROGRAMM *** (null)PEEDER *** (null)
1160 REM"[221] [197]INZEILER AUS DER 64'ER [221]
1170 :
1180 [160]1:[159]1,8,15,"M-W"[170][199](7)[170][199](28)[170][199](1)[170][199](15):[160]1
1190 :
1200 [143]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
1210 :
1220 REM"[192][192] [199]RUNDMASKE [192][192]
1230 :
1240 [151]53280,0:[151]646,1:[151]53265,32
1250 QQ[178]QQ[170]1
1260 [151]53281,1:[153]"LOAD";:[151]53281,6
1270 [129]I[178]1063[164]1983[169]40:[151]I,93:[151]I[170]1,93:[130]
1280 [151]1024,112:[151]1104,109:[151]1144,112:[151]1824,109
1290 [151]1864,112:[151]1984,109
1300 [151]1063,110:[151]1143,125:[151]1183,110:[151]1863,125
1310 [151]1903,110:[151]2023,125
1320 [129]I[178]1025[164]1062
1330 : [151]I,64:[151]I[170]80,64: [151]I[170]120,64:[151]I[170]800,64
1340 : [151]I[170]840,64:[151]I[170]960,64
1350 [130]
1360 [139]QQ[178]2[167]1390
1370 [141]7650:[143]"LEFT$ILF-(null)ASKE LADEN"
1380 [137]1250
1390 [151]53265,27
1400 :
1410 [143]"ORTANTANTANTANTANTANTANTANTAN^
1420 REM"[221] [205]ENUE [221]
1430 [143]"/TANTANTANTANTANTANTANTANTANEXP
1440 :
1450 T$="[205] E N U E"
1460 GOSUB3660:GOSUB3770:REM"[212]ITELB."
1470 PRINT"[198]1 = [206]EUE [214]OKABELDATEI EINRICHTEN"
1480 PRINT"[198]3 = [194]ESTEHENDE [214]OKABELDATEI AENDERN"
1490 PRINT"[198]5 = [214]OKABELN ABFRAGEN"
1500 PRINT"[198]7 = [196]RUCKEN"
1510 PRINT"[196]ISK-[205]ENUE:"
1520 PRINT"1 = [196]IRECTORY
1530 [153]"2 = ASCILENAMEN AENDERN"
1540 [153]"3 = ASCILES LOESCHEN"
1550 [153]"4 = ASCORMATIEREN"
1560 [153]"5 = (null)ALIDIEREN"
1570 [153]"6 = RIGHT$NITIALISIEREN"
1580 [153]"ASC8 = VALNDE"
1590 [151]211,1:[151]214,22:[158]58640
1600 [153]"PEEKITTE WAEHLEN (null)IE EINEN (null)ENUEPUNKT"
1610 [141]3890: [143]"GET"
1620 : [139] XX[178]133 [167] DN[178]1:[137]1880
1630 : [139] XX[178]134 [167]1720
1640 : [139] XX[178]135 [167]2260
1650 : [139] XX[178]136 [167]8800
1660 : [139] XX[178]140 [167]8760
1670 : XX[178][197](X$):[139] XX[178]0 [176] XX[177]6 [167] 1610
1680 : [145] XX [137]7920,7970,8260,8410,8600,8690
1690 :
1700 [143]"TANTAN (null)OKABELN EINGEBEN/AENDERN
1710 :
1720 T$="[214]OKABELN AENDERN":GOSUB3660
1730 GOSUB4820:REM"[196]ATEI LADEN"
1740 IF XE=140 THEN1410
1750 IF VN>99 THENI=VN:XE=133:GOTO1920
1760 IF FE<>62 THEN1900
1770 :
1780 : GOSUB3810:REM"[200]ILFZ"
1790 : CLOSE2
1800 : GOSUB3810: REM"[200]ILFZEILE"
1810 : PRINT"[145][145][196]ATEI "N$" [146] EXISTIERT NICHT."
1820 : PRINT"[211]OLL [196]ATEI EINGERICHTET WERDEN ? (J/N)"
1830 GOSUB3890: REM"GET"
1840 : IF X$="J" THENDN=1:FI$=N$:GOSUB3660: GOTO1910
1850 : IF X$="N" THEN1410
1860 GOTO1830
1870 :
1880 FI$="":T$="[206]EUE [214]OKABELDATEI"
1890 GOSUB3660
1900 IF DN=0 THEN1920
1910 I=1:VN=1
1920 X$="[215]OERTER BISHER EINGEGEBEN"
1930 GOSUB4460:REM"[214]OKABEL-[205]ASKE"
1940 GOSUB4530
1950 GOSUB5980
1960 IF I>99 THENI=VN:XE=134:GOTO6080
1970 IF XE=140 THEN2000
1980 :
1990 I=VN
2000 : GOSUB5720:REM"[214]OK. ERFASSEN"
2010 : IF XE<>140 THEN2060
2020 : IF D$(1)=". " THEN1410
2030 : GOSUB7280
2040 : IF X$="J" THEN2210
2050 : IF X$="N" THEN1410
2060 : IF XE=139 THEN2140
2070 : IF XE=133 OR XE=134 OR XE=137 OR XE=138 THEN6050
2080 : IFXE= 136THENXE=134:GOTO6090
2090 GOSUB4530: REM"[214]OKABEL-[205]ASKE"
2100 I=I+1:VN=VN+1
2110 IF I<=99 THEN2000
2120 GOTO2170
2130 :
2140 IF D$(1)=". " THEN2000
2150 GOTO2210
2160 :
2170 GOSUB3810:REM"[200]ILFZEILE"
2180 PRINT"[145][145]"SPC(12)" [196]ATEI VOLL [146]"
2190 GOSUB3890: REM"[199]ET"
2200 GOSUB5980: REM"[200]ILFZEILE [197]ING."
2210 GOSUB7030: REM"[196]ATEI SPEICHERN"
2220 IF XE=140 THENI=VN:GOTO1940
2230 CLR:GOSUB7370: REM"[201]NIT"
2240 GOTO1410
2250 :
2260 REM"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
2270 [143]"(null) (null)OKABELN ABFRAGEN (null)
2280 REM"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
2290 :
2300 T$[178]"(null)OKABELN ABFRAGEN"
2310 [141]3660:[141]3770:[143]"(null)ITELB."
2320 X$[178]"(null)OKABELN ABGEFRAGT"
2330 [141]4490: [143]"(null)OKABEL-(null)ASKE"
2340 [141]4820: [143]"STR$ATEI LADEN"
2350 : [139] XE[178]140 [167]1410
2360 : [139] FE[178]0 [167] 2400
2370 : [153]"STR$ATEI EXISTIERT NICHT"
2380 : [141]3890: [143]"CHR$ET"
2390 : [137]2340
2400 [141]3770:X$[178]"(null)OKABELN ABGEFRAGT":[141]4490
2410 [141]3810: [143]"LEFT$ILFZEILE"
2420 [153]"ONON F WAIT (null)OKABELN FRISCH ABFRAGEN ODER"
2430 [153]"TAB(ATAB(WAIT SO WIE GESPEICHERT ?"
2440 [141]3890: [143]"CHR$ET"
2450 : [139] X$[178]"F" [167]3530
2460 : [139] X$[178]"A" [167]2490
2470 [137]2440
2480 :
2490 [141]3810: [143]"LEFT$ILFZEILE"
2500 [153]"ONON D WAIT = STR$EUTSCH -> VALNGLISCH ! WAIT"
2510 [153]"TAB(ETAB(WAIT = VALNGLISCH -> STR$EUTSCH !MENUE "
2520 [141]3890: [143]"GET"
2530 : [139] X$[178]"E" [167] [153]"ONON";:[137]2570
2540 : [139] X$[178]"D" [167] [153]"ON"; :[137]2570
2550 : [139] X$[178]"RESTORE" [167]2260
2560 [137]2520
2570 [153]"(null)OMENT BITTE, ICH SORTIERE."
2580 A$[178]X$
2590 [141]4650: [143]"(null)(null) (null)ORTIEREN"
2600 [141]3810: [143]"LEFT$ILFZEILE"
2610 [153]"ONON'(null)VAL(null)(null)(null)(null)' NICHT GEWUSST"
2620 [153]"'ASC1' ATNBFRAGE BEENDEN"
2630 :
2640 I[178]1
2650 [151]211,2:[151]214,5:[158]58640
2660 :[153][201]([196](I),[195]([196](I))[171]1);:[139]I[179]10[167][153]" "
2670 :
2680 [143]"TANTAN (null)OKABEL AUSSUCHEN TANTANTANTANTANTANTANTANTAN
2690 IFNG=0THEN3330: REM"[193]LLE GEWUSST
2700 K[178][181]([187](1)[172]NG)[170]1
2710 [139] A$[178]"D" [167]Y1[178]11:Y2[178]16:XD$[178]D$(K):XE$[178]E$(K)
2720 [139] A$[178]"E" [167]Y1[178]16:Y2[178]11:XD$[178]E$(K):XE$[178]D$(K)
2730 X[178][197]([202](XD$,2,1))
2740 XD$[178][201](XD$,[195](XD$)[171]2)
2750 XE$[178][201](XE$,[195](XE$)[171]2)
2760 [139] X[177][178]5 [167]X[178]X[171]1:[137]3190
2770 :
2780 [151]211,2:[151]214,Y1:[158]58640
2790 [153]XD$
2800 [151]211,2:[151]214,Y2:[158]58640
2810 EN[178]36:PO[178]P[170]Y2[172]40[170]2:[141]4240:[143]"VALING.
2820 IF XE=133 THEN 3610
2830 :
2840 REM"[192][192] [199]EWUSST ODER NICHT ? [192][192][192][192][192][192]
2850 [151]211,1:[151]214,Y2:[158]58640
2860 [153]""X3$"":[153]"ON";
2870 [153]XE$:[139]N$[178]""[167]3050
2880 X$[178]XE$
2890 J[178]1
2900 : [139] [202](X$,J,1)[178]"(" [167]2940
2910 J[178]J[170]1:[139] J[179][178][195](X$) [167]2900
2920 [137]2960
2930 :
2940 X$[178][200](X$,J[171]1)
2950 [139] [201](X$,1)[178]" " [167] X$[178][200](X$,[195](X$)[171]1):[137]2950
2960 J[178]1
2970 : [139] [202](X$,J,1)[178]";" [167]3000
2980 J[178]J[170]1:[139] J[177][195](X$) [167]3000
2990 [137]2970
3000 [139] N$[178][200](X$,J[171]1) [167]3160
3010 [139] J[177][195](X$) [167]3050
3020 X$[178][201](X$,[195](X$)[171]J)
3030 [137]2960
3040 :
3050 [143]"TANTAN (null)ICHT GEWUSST TANTAN
3060 :
3070 IF X>0 THEN X=X-1
3080 XD$="."+RIGHT$(STR$(X),1)+XD$
3090 IFA$="D"THEND$(K)=XD$
3100 IFA$="E"THENE$(K)=XD$
3110 POKE211,13:POKE214,Y1-2:SYS58640
3120 PRINT"[198]ALSCH "
3130 POKE198,0:WAIT198,1
3140 GOTO3270
3150 :
3160 REM"[192][192] [199]EWUSST [192][192]
3170 :
3180 X[178]X[170]1:[139] X[178]5 [167] X[178]8
3190 XD$[178]"="[170][201]([196](X),1)[170]XD$
3200 [139] A$[178]"D" [167]XE$[178]E$(K):D$(K)[178]D$(NG):E$(K)[178]E$(NG):D$(NG)[178]XD$:E$(NG)[178]XE$
3210 [139] A$[178]"E" [167]XE$[178]D$(K):D$(K)[178]D$(NG):E$(K)[178]E$(NG):D$(NG)[178]XE$:E$(NG)[178]XD$
3220 [151]211,13:[151]214,Y1[171]2:[158]58640
3230 [153]"(null)ICHTIG"
3240 NG[178]NG[171]1
3250 [151]198,0:[146]198,1
3260 :
3270 I[178]I[170]1
3280 [151]211,13:[151]214,Y1[171]2:[158]58640
3290 [153]" "
3300 [141]4530: [143]"(null)OKABELMASKE"
3310 [137]2650
3320 :
3330 [143]"TANTAN ATNLLE (null)OKABELN GEWUSST TANTAN
3340 :
3350 FOR K=1 TO VN-1
3360 : IF A$="D" THEND$(K)="."+RIGHT$(D$(K),LEN(D$(K))-1)
3370 : IF A$="E" THENE$(K)="."+RIGHT$(E$(K),LEN(E$(K))-1)
3380 NEXTK
3390 NG=VN-1
3400 IF A$="D" AND LEFT$(D$(1),2)=".8" THEN3440
3410 IF A$="E" AND LEFT$(E$(1),2)=".8" THEN3440
3420 GOTO2650
3430 :
3440 REM"[192][192] [193]LLE [214]OK. 5 MAL GEWUSST [192][192]
3450 :
3460 [141]3810: [143]"LEFT$ILFZEILE"
3470 [153]"ONON(null)IE BEHERRSCHEN DIESE (null)EKTION. (null)OLLEN"
3480 [153]"(null)IE DAMIT WEITERARBEITEN ? (J/N)"
3490 [141]3890: [143]"CHR$ET"
3500 : [139] X$[178]"J" [176] X$[178]"N" [167]3530
3510 [137]3490
3520 :
3530 [129]I[178]1[164]VN[171]1
3540 : D$(I)[178]". "[170][201](D$(I),[195](D$(I))[171]2)
3550 : E$(I)[178]". "[170][201](E$(I),[195](E$(I))[171]2)
3560 [130]I
3570 NG[178]VN[171]1
3580 [139] X$[178]"N" [167] 3610
3590 [137]2490
3600 :
3610 [143]"TANTAN STR$ATEI NEU SAVEN TANTAN
3620 :
3630 GOSUB7030: REM"[196]ATEI SAVEN"
3640 GOTO1410
3650 :
3660 REM"[192][192] [213][208] [212]ITELBILD [192][192]
3670 :
3680 [151]211,0:[151]214,1:[158]58640
3690 [153]X1$
3700 [139] FI$[178]"" [167] X[178]20[171][195](T$)[173]2
3710 [139] FI$[177]"" [167] X[178]20[171]([195](FI$)[170]2)[173]2[171][195](T$)[173]2
3720 [151]211,X:[151]214,1:[158]58640
3730 [153]T$;
3740 [139] FI$[177]"" [167] [151]211,37[171][195](FI$):[151]214,1:[158]58640:[153]"["FI$"]WAIT"
3750 [142]
3760 :
3770 [151]211,0:[151]214,4:[158]58640
3780 [129] L[178]1 [164]15:[153]X1$:[130]
3790 [151]211,1:[151]214,19:[158]58640
3800 [153]"[_] = LEFT$ILFSFUNKTION WAIT"
3810 [151]211,0:[151]214,22:[158]58640
3820 [153]X1$:[153]X1$
3830 [142]
3840 :
3850 [151]211,0:[151]214,22:[158]58640
3860 [153]X4$:[153]X4$
3870 [142]
3880 :
3890 [143]"TANTAN (null)(null) GET X$ TANTANTAN
3900 :
3910 POKE 198,0:POKE53280,6
3920 GETX$:IFX$=""THEN3920
3930 : XX=ASC(X$)
3940 : IF X$="_" THENSYS49152:POKE198,0:WAIT198,1:SYS49152
3950 POKE53280,0
3960 RETURN
3970 :
3980 REM"[192][192] [213][208] [198]EHLERKANAL AUSLESEN [192][192]
3990 :
4000 [151]2,8:[158]49194
4010 : [139] [194](2)[178]0 [167]4080
4020 : [141]3810: [143]"LEFT$ILFZEILE"
4030 : [153]"ONONPEEKITTE SCHALTEN (null)IE DIE ASCLOPPY EIN"
4040 : [153]"UND LEGEN (null)IE DIE STR$ATENDISKETTE EIN."
4050 : [151]198,0:[146]198,1
4060 [137]4000
4070 :
4080 [132]9,FE,F$,T,S
4090 : [139] FE[178]0 [176] FE[178]31 [167][142]
4100 : [141]3810: [143]"LEFT$ILFZEILE"
4110 : [153]"ONON"FE" "F$" WAIT "T;S
4120 : [139] FE[178]1 [167]4140
4130 : [153]"ASCEHLER BESEITIGEN UND (null)ASTE DRUECKEN."
4140 : [141]3890: [143]"CHR$ET"
4150 [137]3980
4160 :
4170 [143]"TANTAN (null)(null) STR$ATEINAMEN EINGEBEN TANTAN
4180 :
4190 GOSUB3810:EN=14: REM"[200]ILFZEILE"
4200 PRINT"[145][145][196]ATEINAME: "X5$" !DIRECTOR[146]"
4210 PRINT S$ SPC(18)"!MENUE "
4220 PRINT"[145][145]"SPC(12);
4230 QQ=1:PO=1916
4240 REM"[192][192] [213][208] [212]EXTEINGABE [192][192][192][192][192][192][192][192][192][192][192]
4250 [151]198,0
4260 Z[178]1:Z1[178]128:N$[178]""
4270 : [151]PO,[194](PO)[170]Z1
4280 : [161]X$:[139] X$[178]"" [167]4280
4290 : XE[178][198](X$)
4300 : [139]XE[178]95 [167][158]49152:[151]198,0:[146]198,1:[158]49152:[151]198,0:[137]4280
4310 : [139]XE[178]136 [175] QQ[178]1 [167] [141]5200:[137]4170
4320 : QQ[178]0
4330 : [139] XE[178]13 [176] (XE[177]132 [175] XE[179]141) [167] [151]PO,[194](PO)[171]128:[142]
4340 : [139] XE[179][177]20 [167]4390
4350 : [139] Z[178]1 [167] [151]PO,[194](PO)[171]128:[137]4260
4360 : Z[178]Z[171]1 :[151]PO,[194](PO)[171]Z1:PO[178]PO[171]1:[153]".CMDCMD";
4370 : N$[178][200](N$,[195](N$)[171]1)
4380 : [137]4270
4390 : [139] XE[179]31 [176] (XE[177]127[175]XE[179]161) [167]4280
4400 : [139] XE[178]44 [167]X$[178]";"
4410 : N$[178]N$[170]X$:[153]X$;
4420 Z[178]Z[170]1:PO[178]PO[170]1:[139] Z[179][178]EN [167]4270
4430 Z[178]Z[171]1:PO[178]PO[171]1:[153]"CMD CMD";:[137]4370
4440 [142]
4450 :
4460 [143]"TANTAN (null)(null) (null)OKABELN-(null)ASKE TANTAN
4470 :
4480 GOSUB3770: REM"[199]UNDMASKE"
4490 POKE211,0:POKE214,4:SYS58640
4500 PRINT"[176][192][192][192][192][174]"
4510 PRINT"[221] [221] "X$
4520 PRINT"[173][192][192][192][192][189]"
4530 POKE211,0:POKE214,8:SYS58640
4540 POKE646,5
4550 PRINT"[176][192][192][192][192][192][192][192][192][174]":PRINT"[221][196]EUTSCH [221]"
4560 PRINT"[171][192][192][192][192][192][192][192][192][177]"LEFT$(X2$,27)"[174]"
4570 PRINT""X3$:PRINT"[173]"X2$"[189]"
4580 POKE211,0:POKE214,13:SYS58640:POKE646,5
4590 PRINT"[176][192][192][192][192][192][192][192][192][174]":PRINT"[221][197]NGLISCH[221]"
4600 PRINT"[171][192][192][192][192][192][192][192][192][177]"LEFT$(X2$,27)"[174]"
4610 PRINT""X3$:PRINT"[173]"X2$"[189]"
4620 POKE646,1
4630 RETURN
4640 :
4650 REM"[192][192] [213][208][160][211]ORTIEREN [192][192]
4660 :
4670 J[178]1:K[178]VN[171]1
4680 [139] A$[178]"E" [167]4710
4690 : [139] [200](D$(J),1)[178]"." [167]4770
4700 : [137]4720
4710 : [139] [200](E$(J),1)[178]"." [167]4770
4720 : X$[178]D$(K):D$(K)[178]D$(J):D$(J)[178]X$
4730 : X$[178]E$(K):E$(K)[178]E$(J):E$(J)[178]X$
4740 : K[178]K[171]1
4750 : [139] K[178]J [167]4800
4760 [137]4690
4770 J[178]J[170]1
4780 [139] J[178]K [167]4800
4790 [137]4690
4800 [142]
4810 :
4820 [143]"TANTAN (null)(null) STR$ATEI LADEN TANTAN
4830 :
4840 S$="[LADEN] "
4850 GOSUB4170: REM"[196]ATEINAME EING."
4860 IF XE=140 THENRETURN
4870 IF (XE= 13 AND N$="") OR XE<>13 THEN4840
4880 IF N$=FI$ THEN RETURN
4890 GOSUB3980: REM"[198]EHLERKANAL"
4900 CLOSE2:OPEN2,8,2,"VO."+N$+",S,R"
4910 GOSUB4080: REM"[198]EHLERKANAL"
4920 GOSUB3810: REM"[200]ILFZEILE"
4930 PRINT"[145][145][204]OADING "N$" [146]"
4940 IF FE>0 THEN RETURN
4950 DN=0
4960 VN=0
4970 FI$=N$
4980 INPUT#2,NG
4990 : VN=VN+1
5000 : INPUT#2,D$(VN)
5010 : INPUT#2,E$(VN)
5020 IF (ST AND 64)<>64 THEN4990
5030 CLOSE2
5040 VN=VN+1
5050 GOSUB3660: REM"[212]ITELBILD"
5060 RETURN
5070 :
5080 REM"[192][192] [196]IRECTORY ANZEIGEN [192][192]
5090 :
5100 D$[178]"":S[178]0:XN$[178]""
5110 [141]3850: [143]"LEFT$ILFZEILE"
5120 [153]"ONONGANZE STR$IR!NUR STR$ATEI"[166]11)XN$
5130 [153][166]31)"ZURUECK"
5140 [141]3890: [143]"GET"
5150 : [139] XX[178]136 [167] [139] S[177]0 [167] [141]3770:[137]5210
5160 : [139] XX[178]133 [167] D$[178]"":[137]5210
5170 : [139] XX[178]134 [167]5200
5180 : [139] XX[178]140 [167][142]
5190 [137]5140
5200 D$[178]"VO."
5210 [141]3770: [143]"(null)ITELB"
5220 Z[178]1:[139] XX[178]136 [167] [153]"":[137] 5620
5230 :
5240 FT$(0)[178]"..STR$EL..":FT$(1)[178]"(null)EQUENTIAL":FT$(2)[178]"(null)ROGRAM":FT$(3)[178]"(null)SER"
5250 FT$(5)[178]"(null)ELATIVE"
5260 [160]2:DN$[178]""
5270 [152]9,"I"
5280 [141]3980: [143]"ASCEHLERKANAL"
5290 [141]3810: [143]"LEFT$ILFZEILE"
5300 [159]2,8,2,"#"
5310 [152]9,"U1 2 0 18";S
5320 [152]9,"B-P 2 144"
5330 [129]I[178]0[164]15:[161]#2,X$:[139] X$[178]"CLOSE" [167] 5360
5340 : [143]" ^='(null)HIFT'-'(null)PACE' !!"
5350 : DN$[178]DN$[170]X$
5360 [130]I
5370 [153]""X1$""DN$:[153]:[153]
5380 :
5390 S[178]1:BF[178]664
5400 [152]9,"U1 2 0 18";S
5410 [152]9,"B-P 2 0":BY[178]0
5420 [161]#2,X$:T[178][198](X$[170][199](0))
5430 [161]#2,X$:S[178][198](X$[170][199](0))
5440 DN$[178]""
5450 BY[178]BY[170]5:[152]9,"B-P 2";BY
5460 [129]I[178]0[164]15:[161]#2,X$:DN$[178]DN$[170]X$:[130]I
5470 [139] [195](DN$)[178]0 [167] 5670
5480 BY[178]BY[170]25:[152]9,"B-P 2";BY
5490 [161]#2,X$:X[178][198](X$[170][199](0))
5500 [161]#2,X$:X[178]X[170][198](X$[170][199](0))[172]256
5510 [139] X[179] 10 [167] DN$[178]DN$[170]" "
5520 [139] X[179]100 [167] DN$[178]DN$[170]" "
5530 DN$[178]DN$[170][196](X)[170]" PEEKL. "
5540 BF[178]BF[171]X:[139] BF[179]0 [167] BF[178]0
5550 BY[178]BY[171]28:[152]9,"B-P 2";BY
5560 [161]#2,X$
5570 DN$[178]DN$[170]FT$([198](X$[170][199](0))[175]3)
5580 [139] D$[178]"VO."[175] [200](DN$,3)[179][177]D$ [167]5620
5590 [153]""DN$
5600 Z[178]Z[170]1:[139] Z[179]16 [167]5620
5610 XN$[178]"WEITER":[137]5110
5620 BY[178]BY[170]30
5630 [139] BY[179]255 [167] 5440
5640 [139] T[178]0 [176] T[177]35 [167] 5670
5650 [137]5400
5660 :
5670 [160]2:XN$[178]" "
5680 [153]""[166]26) BF"PEEKL. FREE"
5690 [139] QQ[178]1 [167][142]
5700 [137]5100
5710 :
5720 [143]"TANTAN (null)(null) (null)OKABELN ERFASSEN TANTAN
5730 :
5740 POKE211, 2:POKE214, 5:SYS58640
5750 : PRINTRIGHT$(STR$(I),LEN(STR$(I))-1); : IF I<10 THENPRINT" "
5760 : POKE211,2:POKE214,11:SYS58640
5770 : EN=36:PO=1466:GOSUB4240:REM"[197]INGABE"
5780 : IF N$>"" THEN D$(I)=". "+N$
5790 : IF XE=139 OR XE=133 OR XE=134 OR XE=137 OR XE=138 OR XE=140 THENRETURN
5800 : IF XE=136 THEN5840
5810 IF XE=13 AND PO=1466 THEN GOTO6570
5820 : IF (XE=135 OR XE=13) AND N$="" THENGOTO5760
5830 : GOTO5870
5840 : IF N$="" THEN RETURN
5850 : GOSUB4530:GOTO5760
5860 :
5870 POKE211,2:POKE214,16:SYS58640
5880 : EN=36:PO=1666:GOSUB4240:REM"[197]INGABE"
5890 : E$(I)=". "+N$
5900 : IF XE=133 OR XE=134 OR XE=137 OR XE=138 THENRETURN
5910 : IF XE=136 THEN5950
5920 : IF (XE=13 OR XE=135 OR XE=139) AND N$="" THEN5870
5930 FI$=""
5940 : RETURN
5950 : IF N$="" THEN5850
5960 GOSUB4580:GOTO5870
5970 :
5980 REM"[192][192] [213][208] [200]ILFSZEILE [214]OK.EINGABE
5990 :
6000 [141]3850:[143]"LEFT$ILFSZEILE"
6010 [153]"ONON 1 VOR ! 1 RUECK !AENDERN !LOESCHENWAIT"
6020 [153]"10 VOR !10 RUECK !SPEICHERN!MENUE WAIT"
6030 [142]
6040 :
6050 [143]"TANTAN (null)(null) (null)OKABELN BLAETTERN TANTAN
6060 :
6070 IF XE=133 AND I=VN THEN2000
6080 IF XE=133 THENI=I+ 1:GOTO6120
6090 IF XE=134 THENI=I- 1:GOTO6160
6100 IF XE=137 THENI=I+10:GOTO6120
6110 IF XE=138 THENI=I-10:GOTO6160
6120 IF I> 99 THEN I=99
6130 IF I>=VN THEN1940
6140 GOTO6180
6150 :
6160 IF I<1 THENI=1:GOTO6130
6170 :
6180 POKE211, 2:POKE214, 5:SYS58640
6190 PRINTRIGHT$(STR$(I),LEN(STR$(I))-1);: IF I<10 THEN PRINT" "
6200 GOSUB4530: REM"[214]OKABELMASKE"
6210 POKE211,2:POKE214,11:SYS58640
6220 PRINTRIGHT$(D$(I),LEN(D$(I))-2)
6230 POKE211,2:POKE214,16:SYS58640
6240 PRINTRIGHT$(E$(I),LEN(E$(I))-2)
6250 GOSUB3890: REM"GET"
6260 : XE=ASC(X$)
6270 : IF XE=135 THENFI$="":GOTO6360
6280 : IF XE=136 THENFI$="":GOTO6390
6290 : IF XE=140 THENGOSUB7280
6300 : IF X$="J" THEN2210
6310 : IF X$="N" THEN1410
6320 : IF XE=139 THEN2210
6330 : IF XE=133 OR XE=134 OR XE=137 OR XE=138 THEN6080
6340 GOTO6250
6350 :
6360 GOSUB5720:REM"[214]OKABELN ERFASSEN"
6370 GOTO6050
6380 :
6390 REM"[192][192] [214]OKABEL LOESCHEN [192][192][192][192][192][192][192][192][192]
6400 [139] I[178]1 [175] D$(I)[178]"" [167] 6180
6410 [141]3810: [143]"HILFZEILE"
6420 [153]"ONON(null)IRKLICH LOESCHEN ? (J/N)
6430 GOSUB3890: REM"GET"
6440 : IF X$="J" THEN6470
6450 : IF X$="N" THEN6550
6460 GOTO6430
6470 IF VN=100 THEN D$(99)="":E$(99)="":GOTO6520
6480 IF VN=2 THEN D$(1)="":E$(1)="" :GOTO6520
6490 FOR J=I TOVN-1
6500 : D$(J)=D$(J+1):E$(J)=E$(J+1)
6510 NEXT
6520 : VN=VN-1:IF I=VN THEN1940
6530 : IF VN<=1 THEN VN=1:GOTO1940
6540 : IF I<=1 THEN I=1
6550 GOSUB5980
6560 GOTO6180
6570 :
6580 REM"[192][192] [211]UCHROUTINE [192][192][192][192][192][192][192][192][192][192][192][192][192][192]
6590 :
6600 X$[178]"(null)UCHROUTINE":[141]4460
6610 Q9[178]I
6620 [151]211,2:[151]214,11:[158]58640
6630 EN[178]36:PO[178]1466:[141]4240
6640 X[178][195](N$)
6650 I[178]1
6660 :[139]N$[178]""[167]6900
6670 :[141]4530:D$[178][201](D$(I),[195](D$(I))[171]2):E$[178][201](E$(I),[195](E$(I))[171]2)
6680 :[151]211,2:[151]214,11:[158]58640
6690 :[153]D$
6700 :[151]211,2:[151]214,16:[158]58640
6710 :[153]E$
6720 :[151]211,2:[151]214,5:[158]58640:[153]I
6730 :[139]X[177][195](D$)[167]6760
6740 :X$[178]D$:[141]6950
6750 :[139]J[177]0[167]6800
6760 :[139]X[177][195](E$)[167]6870
6770 :X$[178]E$:[141]6950
6780 :[139]J[178]0[167]6870
6790 [143] GEWUSST
6800 :[151]211,2:[151]214,22:[158]58640
6810 :[153]"WEITERSUCHEN (J/N) ?"
6820 :[141]3890
6830 :[139]X$[178]"J"[167][141]3810:[137]6870
6840 :[139]X$[178]"N"[167]6920
6850 :[137]6820
6860 :
6870 I[178]I[170]1
6880 [139]I[178]100[167]6900
6890 [139]I[179]100[175]D$(I)[177]""[167]6670
6900 I[178]Q9:[137]6920
6910 :
6920 X$[178]"(null)OERTER BISHER EINGEGEBEN"
6930 [141]4460:[141]5980:[137]6120
6940 :
6950 J[178]1
6960 [139]N$[178][200](X$,[195](N$))[167][142]
6970 [139][202](X$,J,1)[178]";"[167]7000
6980 J[178]J[170]1:[139]J[177][195](X$)[167]7020
6990 [137]6970
7000 X$[178][201](X$,[195](X$)[171]J)
7010 [137]6960
7020 J[178]0:[142]
7030 [143]"TANTAN (null)(null) STR$ATEI SPEICHERN TANTAN
7040 :
7050 S$="[SPEICHERN]"
7060 GOSUB4170: REM"[196]ATEINAME EING."
7070 IF XE=140 THENRETURN
7080 GOSUB3980: REM"[198]EHLERKANAL"
7090 CLOSE2:OPEN2,8,2,"VO."+N$+",S,W"
7100 GOSUB4080: REM"[198]EHLERKANAL"
7110 IF FE=0 THEN7200
7120 : GOSUB3810:PRINT"[145][145][196]ATEI EXISTIERT BEREITS !"
7130 : PRINT"[193]LTE [196]ATEI UEBERSCHREIBEN ? (J/N)
7140 [141]3890: [143]"GET"
7150 [139]X$[178]"N"[167]7050
7160 [139]X$[178]"J"[167][152]9,"S:VO."[170]N$:[160]2:[159]2,8,2,"VO."[170]N$[170]",S,W":[137]7180
7170 [137]7140
7180 [141]3810: [143]"LEFT$ILFSZEILE"
7190 [153]"ONON(null)AVING "N$" WAIT"
7200 [152]2,VN[171]1
7210 [129]J[178]1[164]VN[171]1
7220 : [152]2,D$(J)
7230 : [152]2,E$(J)
7240 [130]J
7250 [160]2
7260 [142]
7270 :
7280 [143]"TANTAN (null)(null)CLOSESTR$ATEI NICHT GESPEICHERT
7290 :
7300 GOSUB3810: REM"[200]ILFZEILE"
7310 PRINT"[145][145][196]ATEI IST NOCH NICHT GESPEICHERT !!"
7320 PRINT"[211]OLL [196]ATEI GESPEICHERT WERDEN ? (J/N)"
7330 GOSUB3890: REM"GET"
7340 IF X$<>"J" AND X$<>"N" THEN7330
7350 RETURN
7360 :
7370 REM"[192][192] [213][208] [201]NIT [214]AR. + [205]ASCHPGE. [192][192]
7380 :
7390 [143]"TANTAN RIGHT$NIT (null)ARIABLEN TANTANTANTANTANTANTANTANTANTANTAN
7400 :
7410 DIMD$(99),E$(99)
7420 X1$=" "
7430 X2$="[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]"
7440 X3$="[221]................................... [221]"
7450 X4$=" ! ! ! [146]"
7460 X5$="............."
7470 P=1024
7480 PRINTCHR$(14)CHR$(8);
7490 CLOSE9:OPEN9,8,15
7500 RETURN
7510 :
7520 REM"[192][192] [201]NIT [205]ASCH.PROGRAMME [192][192][192][192][192]
7530 :
7540 [143]"BILDSCHIRMCHANGER"
7550 [131] 169,0,133,87,169,4,133,88,169,56,133,89,169,199,133,90,160,0,177,87
7560 [131]170,177,89,145,87,138,145,89,200,208,243,230,88,230,90,169,8,197,88
7570 [131] 208,231,96
7580 [129]I[178]49152[164]49193:[135]X:[151]I,X:[130]
7590 :
7600 [143]"FLOPPY AN/AUS"
7610 [131] 169,1,160,192,162,33,32,189,255,169,1,160,15,166,2,32,186,255,32
7620 [131] 192,255,176,2,169,0,133,2,169,1,32,195,255,96,32
7630 [129]I[178]49194[164]49227:[135]X:[151]I,X:[130]
7640 :
7650 [143]"TANTAN (null)(null) LEFT$ILFSANZEIGE TANTAN
7660 :
7670 PRINT""SPC(14)"[200]ILFS-[212]AFEL"
7680 PRINT"[[198]8] MENUE[146] FUEHRT IN DIE LETZTE [193]NWEN-
7690 [153]"DUNG ODER DAS LETZTE (null)ENUE ZURUECK."
7700 [153]"--------------------------------------"
7710 [153]"RIGHT$M STR$ISK-(null)ENUE IST JEWEILS DER VOLLE "
7720 [153]"(null)ROGRAMMNAME ZU VERWENDEN. ATNNSONSTEN "
7730 [153]"WIRD BEI (null)OKABELDATEIEN DIE (null)ENNUNG "
7740 [153]" VO. WAIT NICHT MIT EINGEGEBEN !! "
7750 [153]"--------------------------------------"
7760 [153]"(null)RITT EINE ASCEHLERMELDUNG DURCH DIE "
7770 [153]"ASCLOPPY AUF UND WERDEN KEINE (null)ASSNAHMEN"
7780 [153]"ERKLAERT, VERFAHREN (null)IE BITTE NACH DEM"
7790 [153]"PEEKEDIENUNGSHANDBUCH ZUR ASCLOPPY 1541. "
7800 [153]"--------------------------------------"
7810 [153]"[_] = ZURUECK INS (null)ROGRAMM WAIT"
7820 [151]211,0:[151]214,22:[158]58640
7830 [153]" [ASC1] ! [ASC3] ! [ASC5] ! [ASC7] WAIT"
7840 [153]" [ASC2] ! [ASC4] ! [ASC6] ! [ASC8] WAIT"
7850 [158]49152
7860 [142]
7870 :
7880 [143]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
7890 REM"[221] [196]ISKETTEN-[205]ENUE [221]
7900 [143]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
7910 :
7920 REM"[192][192] [196]IRECTORY [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
7930 :
7940 [141]5080: [143]"STR$IRECTORY"
7950 [137]1410
7960 :
7970 [143]"TANTAN ASCILENAMEN AENDERN TANTANTANTANTANTANTANTAN
7980 :
7990 QQ=1:GOSUB5080:QQ=0: REM"[196]IR."
8000 GOSUB3810: REM"[200]ILFZEILE"
8010 PRINT"[145][145][194]ISHERIGER [206]AME: "X5$"..."
8020 POKE211,18:POKE214,22:SYS58640
8030 EN=17:PO=1922:GOSUB4240:REM"[197]ING.
8040 [139] XE[178]140 [167]1410
8050 [139] XE[179][177]13 [167][153]:[137]8010
8060 [139] N$[178]"" [167]1410
8070 A$[178]N$
8080 [153]:[153]"(null)EUER (null)AME : "X5$"..."
8090 [151]211,18:[151]214,23:[158]58640
8100 PO[178]1962:[141]4240: [143]"VALINGABE"
8110 [139] XE[178]140 [167]1410
8120 [139] XE[179][177]13 [167][153]"ON";:[137]8080
8130 [141]3980: [143]"ASCEHLERKANAL"
8140 [152]9,"R:"[170]N$[170]"="[170]A$
8150 [141]4080: [143]"ASCEHLERKANAL"
8160 [139] FE[178]63 [167]X$[178]"BEREITS":[137]8190
8170 [139] FE[178]62 [167]X$[178]"NICHT":[137]8190
8180 [137]1410
8190 : [141]3810: [143]"LEFT$ILFZEILE"
8200 : [153]"ONON ASCILE EXISTIERT "X$" !! WAIT"
8210 : [153]"[PEEKITTE (null)ASTE DRUECKEN]"
8220 : [141]3890: [143]"CHR$ET"
8230 :
8240 [137]8000
8250 :
8260 [143]"TANTAN ASCILES LOESCHEN TANTANTANTANTANTANTANTANTANTANTAN
8270 :
8280 QQ=1:GOSUB5080:QQ=0: REM"[196]IR."
8290 GOSUB3810: REM"[200]ILFZEILE"
8300 PRINT"[145][145][204]OESCHFILE : "X5$"..."
8310 PRINT"[[215]ENN FERTIG, '[210][197][212][213][210][206]' DRUECKEN]."
8320 POKE211,14:POKE214,22:SYS58640
8330 EN=17:PO=1918:GOSUB4240:REM"[197]ING.
8340 [139] XE[178]140 [167]1410
8350 [139] N$[178]"" [167] 1410
8360 [141]3980: [143]"ASCEHLERKANAL"
8370 [152]9,"S:"[170]N$
8380 [141]4080: [143]"ASCEHLERKANAL"
8390 [137]8290
8400 :
8410 [143]"TANTAN ASCORMATIEREN TANTANTANTANTANTANTANTANTANTANTANTANTANTAN
8420 :
8430 GOSUB3810: REM"[200]ILFZEILE"
8440 PRINT"[145][145][206]AME:"X5$"... [201][196]:.. ! "
8450 PRINTSPC(31)"! MENUE [146]";
8460 POKE211,6:POKE214,22:SYS58640
8470 EN=17:PO=1910:GOSUB4240:REM"[197]ING.
8480 [139] XE[178]140 [167]1410
8490 [139] XE[179][177]13 [167][153]:[137]8430
8500 A$[178]N$
8510 [151]211,27:[151]214,22:[158]58640
8520 EN[178]3:PO[178]1931:[141]4240:[143]"VALING.
8530 IF XE=140 THEN1410
8540 IF XE<>13 THENPRINT:GOTO8510
8550 GOSUB3980: REM"[198]EHLERKANAL"
8560 PRINT#9,"N:"+A$+","+N$
8570 GOSUB4080: REM"[198]EHLERKANAL"
8580 GOTO1410
8590 :
8600 REM"[192][192] [214]ALIDIEREN [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
8610 :
8620 [141]3980: [143]"ASCEHLERKANAL"
8630 [141]3810: [143]"LEFT$ILFZEILE "
8640 [153]"ONON"[166]13)" (null)ALIDIEREN "
8650 [152]9,"V"
8660 [141]4080: [143]"ASCEHLERKANAL"
8670 [137]1410
8680 :
8690 [143]"TANTAN RIGHT$NITIALISIEREN TANTANTANTANTANTANTANTANTANTANTAN
8700 :
8710 GOSUB3980: REM"[198]EHLERKANAL"
8720 PRINT#9,"I"
8730 GOSUB4080: REM"[198]EHLERKANAL"
8740 GOTO1410
8750 :
8760 PRINT"[147]"X2$"[192][192][192][192] [208] R O G R A M M - [197] N D E [146]"X2$"[192][192][192][192]"
8770 PRINT""
8780 POKE 53280,6:END
8790 :
8800 REM"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
8810 [143]"(null) (null)OKABELN DRUCKEN (null)
8820 REM"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
8830 :
8840 D1[178]14:D2[178]15:SL[178]72:GA[178]4:SA[178]7
8850 T$[178]"STR$ R U C K E N"
8860 [141]3660:[141]3770
8870 [141]9140:[139] XE[178]140 [167]1410
8880 [141]3850:[153]"ONONSTR$RUCKEN"[166]23)"(null)ENUE"
8890 [141]3890
8900 : [139] XX[178]133 [167]8930
8910 : [139] XX[178]140 [167]1410
8920 [137]8890
8930 [141]3810:[153]"ONON"[166]6)"PEEKITTE STR$RUCKER VORBEREITEN "
8940 [153]"(null)ENN FERTIG:(null)ASTE DRUECKEN (ASC8=ZURUECK"
8950 [141]3890
8960 [139] XX[178]140 [167]1410
8970 [141]3850:[153]"ONON(null)AUSE"[166]25)"ATNBBRUCH"
8980 [151]2,4:[158]49194
8990 [139] [194](2)[177]0 [167]8930
9000 ZZ[178]2:[160]2:[159]2,GA,SA
9010 [152]2,[199](D1)"(null) O K A B E L D A T E I"[199](D2)[199](13)
9020 [129]I[178]1 [164] VN[171]1
9030 : [152]2,[201](D$(I),[195](D$(I))[171]2)" ";
9040 :[152]2,[202](X3$,2,34[171][195](D$(I)))" ";
9050 : [152]2,[201](E$(I),[195](E$(I))[171]2)
9060 : [161]X$:XX[178][198](X$[170][199](0)):[139]XX[178]133[167][151]198,0:[146]198,1
9070 : [139] XX[178]136 [167]I[178]999:[130]I:[137]8800
9080 : ZZ[178]ZZ[170]1:[139] ZZ[178]SL[171]2 [167] [152]2,[199](13)[199](13):ZZ[178]1
9090 [130]I
9100 [152]2,[199](13)"*****"
9110 [160]2
9120 [137]8800
9130 :
9140 FE[178]0:XX[178]0:[141]4820
9150 [139] FE[177]0 [167]9140
9160 [142]