10 POKE53280,0:POKE53281,0:POKE686,1:POKE53272,21:G%=PEEK(186):POKE808,225
20 GOSUB1640:GOSUB1570
30 IFPEEK(828)=174ANDPEEK(49160)=133THEN100
40 GOSUB4800
100 DIMA$(147),S(20),T(20):A$(2)="========================="
110 PRINT"[199][146] ERAETENUMMER DER [198]LOPPY AENDERN"
120 PRINT"[206][146] EW=FORMATIEREN"
130 PRINT"[195][146] HECK [196]ISK"
140 PRINT"[193][146] ENDERN  [200]EADER/[201][196]"
150 PRINT"[198][146] ORMATKENNZEICHEN  AENDERN"
160 PRINT"[211][146] CHREIBSCHUTZBITS  AENDERN"
170 PRINT"@[146] [198]EHLERKANAL AUSLESEN"
180 PRINT"[196][146] [201][210][197][195][212][207][210][217] MIT [211]CROLL"
190 PRINT"[197][146] RWEITERTES [196][201][210][197][195][212][207][210][217]"
200 PRINT"[207][146] RDNEN [196][201][210][197][195][212][207][210][217] (ALPHABETISCH)"
210 PRINT"[201][146] NITIALISIEREN"
220 PRINT"[214][146] ALIDIEREN"
230 PRINT"[203][146] OPIEREN"
240 PRINT"[213][146] MBENENNEN"
250 PRINT"[204][146] OESCHEN"
260 PRINT"[208][146] RG-[194]LOCKCHECK = [203]ETTUNG PRUEFEN"
270 PRINT"[218][146] URUECKHOLEN  GELOESCHTER [198]ILES"
280 PRINT"[209][146] [197]NDE";
290 GETX$:IFX$=""THEN290
300 IFX$="@"THENX$="[198]EHLERKANAL :":GOTO510
310 IFX$="G"THEN540
320 IFX$="C"THEN1260
330 IFX$="A"THEN850
340 IFX$="I"THENX$="[201]NITIALISIEREN :":GOTO510
350 IFX$="N"THEN670
360 IFX$="V"THEN1050
370 IFX$="D"THEN3410
380 IFX$="O"THEN3200
390 IFX$="K"THEN1090
400 IFX$="U"THEN1170
410 IFX$="L"THEN1200
420 IFX$="F"THEN1670
430 IFX$="P"THEN1860
440 IFX$="S"THEN2420
450 IFX$="Z"THEN2590
460 IFX$="Q"THENPRINTCHR$(9):POKE808,237:END
470 IFX$="E"THEN4160
480 GOTO290
510 GOSUB1640:PRINTX$:GOSUB3050:GOSUB3150:GOTO3750
540 GOSUB1640:PRINT"[199]ERAETENUMMER [198]LOPPY AENDERN"
550 PRINT"[194]ITTE ALLE [198]LOPPYS BIS AUF DIE, DEREN":PRINT"[206]R. GEAENDERT WERDEN SOL
560 [153]" AUSSCHALTEN !"
570 [133]"CHR$ERAETEADR. ALT:  RNDCMDCMDCMD";X$:G%[178][197](X$)
580 [133]"CHR$ERAETEADR. NEU:  RNDCMDCMDCMD";X$:Y[178][197](X$)
590 [139]G%[179]8[176]G%[177]15[176]Y[179]8[176]Y[177]15[167][153]"(null)NZULAESSIGE CHR$ERAETEADRESSE !":[137]3750
600 [141]3070
610 [159]1,G%,15
620 [152]1,"M-W"[199](119)[199](0)[199](2)[199](Y[170]32)[199](Y[170]64):[160]1
630 G%[178]Y:[151]186,Y
640 [153]"< CHR$ERAETEADRESSE IN #"Y"GEAENDERT >":[141]3060:[137]3750
670 [141]1640:[153]"ASCORMATIEREN :"
680 Z[178]1:[141]3050:[153]"PEEK L A N K E  STR$ISKETTE EINLEGEN!!!"
690 [153]"(null)URUECK INS (null)ENUE MIT '(null)'"
700 [133]"MIT/OHNE RIGHT$STR$(M/O/Z)  MCMDCMDCMD";Z$
710 [139]Z$[179][177]"M"[175]Z$[179][177]"O"[175]Z$[179][177]"Z"[167]700
720 [139]Z$[178]"Z"[167][138]
730 [133]"LEFT$EADER   :  RNDCMDCMDCMD";X$
740 [139][195](X$)[177]16[167][153]"MAX. 16 (null)EICHEN!":[137]730
750 [139]Z$[179][177]"M"[167]780
760 [133]"      RIGHT$STR$ :  RNDCMDCMDCMD";Y$
770 [139][195](Y$)[177]5[167][153]"MAX. 5 (null)EICHEN!":[137]760
780 [139]X$[178]"RND"[176]Y$[178]"RND"[167][138]
790 X$[178]"N:"[170]X$
800 [139]Z$[179][177]"M"[167]1060
810 [153]"< PEEKITTE CA. 80 (null)EK. WARTEN! >"
820 [159]1,G%,15:[152]1,X$[170]","[170]Y$:[137]3740
850 [141]1640:[153]"ATNENDERN VON STR$ISK-LEFT$EADER/RIGHT$STR$":[141]3050:F[178]0
860 [159]1,G%,15:[159]2,G%,2,"#":[141]3830
870 X[178]144:[141]3580:X$[178]"":[129]U[178]1[164]16:[161]#2,Y$:X$[178]X$[170]Y$:[130]
880 [153]"ATNLTER STR$ISK-HEADER=   "X$
890 [153]"(null)EUER STR$ISK-HEADER=   "X$"ON"
900 [153][166]17);:[133]Y$
910 [139]X$[178]Y$[167]940
920 [139][195](Y$)[177]16[167][153]"MAX. 16 (null)EICHEN!":[137]890
925 Y$[178][200](Y$[170]"CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE",16)
930 X[178]144:[141]3580:[152]2,Y$;:F[178]1
940 X[178]162:[141]3580:X$[178]"":[129]U[178]1[164]5:[161]#2,Y$:X$[178]X$[170]Y$:[130]
950 [153]"ATNLTE STR$ISK-RIGHT$STR$=   "X$
960 [153]"(null)EUE STR$ISK-RIGHT$STR$=   "X$
970 [153]"ON"[166]14);:[133]Y$
980 [139]Y$[178]X$[167]1010
990 [139][195](Y$)[177]5[167][153]"MAX. 5 (null)EICHEN!":[137]960
1000 X[178]162:[141]3580:[152]2,Y$;:F[178]1
1010 [139]F[178]1[167][152]1,"U2 2 0 18 0"
1020 [137]3740
1050 [141]1640:[153]"(null)ALIDIEREN :":[141]3050:X$[178]"V"
1060 [159]1,G%,15,X$:[137]3740
1090 [141]1640:[153]"(null)OPIEREN :":[141]3050:T$[178]"C:"
1100 [133]"(null)AME ALT:  RNDCMDCMDCMD";X$
1110 [133]"(null)AME NEU:  RNDCMDCMDCMD";Y$
1120 [139]X$[178]"RND"[176]Y$[178]"RND"[167][138]
1130 [139][195](X$)[177]16[176][195](Y$)[177]16[167]1100
1140 X$[178]T$[170]Y$[170]"="[170]X$:[137]1060
1170 [141]1640:[153]"(null)MBENENNEN ((null)ENAME) :":[141]3050:T$[178]"R:":[137]1100
1200 [141]1640:[153]"(null)OESCHENWAIT-VALNDE MIT <RETURN>":[141]3050
1210 [133]"(null)ROGRAMMNAME=   RNDCMDCMDCMD";X$:[139][195](X$)[177]16[167]1210
1220 [139]X$[178]"RND"[167][138]
1230 X$[178]"S:"[170]X$:[137]1060
1260 [141]1640:[153]"LENLEFT$VALLEN(null) STR$RIGHT$(null)(null)WAIT =(null)EBERPRUEFEN ALLER PEEKLOECKE":[141]3050
1270 [153]"(null)WAITESEN ALLER PEEKLOECKE (CA 5 MIN)"
1280 [153]"  ASCILES WERDEN NICHTWAIT ZERSTOERT !"
1290 [153]"PEEKWAITESCHREIBEN UND VERIFIZIEREN (CA 10 MIN)";
1300 [153]"  STR$ISKETTE  WIRD GELOESCHTWAIT !!!"
1310 [153]"(null)WAITUM (null)ENUE ZURUECK !"
1320 [153]"CHR$EBEN SIE (null)WAIT/PEEKWAIT ODER (null)WAIT EIN !  ";
1330 [161]Z$:[139]Z$[179][177]"L"[175]Z$[179][177]"B"[175]Z$[179][177]"Z"[167]1330
1340 [153]""Z$"WAIT":[139]Z$[178]"Z"[167][138]
1350 [153]"VALS WIRD GEPRUEFT: (null)PUR  (null)EKTOR"
1360 [159]1,8,15:[159]2,8,2,"#"
1370 F[178]0:Y[178]0:A$(0)[178]"17":A$(1)[178]"20":A$(2)[178]"24":A$(3)[178]"18":A$(4)[178]"30":A$(5)[178]"17"
1380 A$(6)[178]"35":A$(7)[178]"16":[139]Z$[178]"B"[167][141]1480
1390 [129]Z[178]0[164]7[169]2:X[178]Y[170]1:Y[178][197](A$(Z)):W[178][197](A$(Z[170]1))
1400 [129]T[178]X[164]Y:[129]S[178]0[164]W:[139]Z$[178]"B"[167][152]1,"U2 2 0";T;S:[137]1420
1410 [141]3840
1420 [141]1500:[130]:[130]:[130]:[160]1
1430 [139]F[178]0[167][153]"< STR$ISK OK. ATNLLE PEEKLOECKE LESBAR >":[137]1460
1440 [153]"ASCOLGENDE PEEKLOECKE SIND DEFEKT:"
1450 [129]U[178]1[164]F:[153]"  "[201](" "[170][196](T(U)),2)","[201](" "[170][196](S(U)),2)" ";:[130]
1460 [139]Z$[178]"B"[167]X$[178]"N:LENHECK DISK":Y$[178]"99":[137]810
1470 X$[178]"I":[137]1060
1480 Y$[178]"":[129]X[178]1[164]51:Y$[178]Y$[170][199]([187](162)[172]255):[130]
1490 [152]2,Y$Y$Y$Y$Y$;:[142]
1500 [153][166]19)"ON        ON":[153][166]19);T" "S
1510 [141]3170:[139]X[178]0[167][142]
1520 F[178]F[170]1:T(F)[178]T:S(F)[178]F:[139]F[179]20[167][142]
1530 [160]2:[160]1:[153]"(null)EHR ALS 20 PEEKLOECKE DEFEKT !!":[137]3780
1540 [153]"(null)ESTABBRUCH !":[137]3760
1570 [153]"ONORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
1580 [153]"(null) (ATN(null)=64)    ATNNDRE (null)CHLUCH            (null)"
1590 [153]"(null) ORTAN^        (null)OENIGSWINTERERSTR.274 C (null)"
1600 [153]"(null) /ATN^        5330 (null)OENIGSWINTER 41    (null)"
1610 [153]"(null) /TANEXP        (C) LEN(null)(null)(null)(null)STR$(null)(null)VAL STR$RIGHT$(null)LEN       (null)"
1620 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
1630 [142]
1640 [153]"LOADCONTSTR$RIGHT$(null)(null)-(null)ATN(null)(null)VAL(null) 64 VON (ATN(null)=64)              ":[142]
1670 [141]1640:[153]"ASCORMATKENNZEICHEN AENDERN":[141]3050
1680 [153]"(null)CHREIBSCHUTZ SETZEN DURCH ATNENDERUNG"
1690 [153]"DES ASCORMATKENNZEICHENS IN DER PEEKATN(null) !!!"
1700 [153]"ATNB SOFORT KOENNEN KEINE (null)CHREIBVORGAENGE";
1710 [153]"AUSSER (null)EUFORMATIEREN DURCHGEFUEHRT":[153]"WERDEN !"
1720 [153]"(null)WAIT=(null)CHREIBSCHUTZ SETZEN"
1730 [153]"(null)WAIT=(null)CHREIBSCHUTZ LOESCHEN"
1740 [153]"CHR$EBEN (null)IE (null)WAIT ODER (null)WAIT EIN !"
1750 [161]X$:[139]X$[179][177]"S"[175]X$[179][177]"L"[167]1750
1760 [159]1,G%,15:[159]2,G%,2,"#"
1770 [141]3830:X[178]2:[141]3580
1780 [139]X$[178]"S"[167][152]2,"X";:X$[178]" GESETZT>":[137]1820
1790 X$[178]" GELOESCHT>"
1800 [152]1,"M-W"[199](1)[199](1)[199](1)[199](65)
1810 [152]2,"A";
1820 [153]"<(null)CHREIBSCHUTZ"X$:[152]1,"U2 2 0 18 0"
1830 [152]1,"I":[137]3740
1860 [141]1640:[153]"(null)ROGRAMM-PEEKLOCKCHECKWAIT=ASCILEKETTUNG PRUEFEN":[141]3050
1880 [141]4650
1890 [153]"VALWAIT INZELNES ASCILES DARSTELLEN"
1900 [153]"PEEKWAIT LOCK SUCHEN IN ASCILE"
1910 [153]"ATNWAIT LLE ASCILES DARSTELLEN"
1920 [153]"(null)WAIT URUECK INS (null)ENUE"
1930 [153]"CHR$EBEN (null)IE VALWAIT/PEEKWAIT/ATNWAIT ODER (null)WAIT EIN !";
1940 [161]X$:[139]X$[179][177]"E"[175]X$[179][177]"B"[175]X$[179][177]"A"[175]X$[179][177]"Z"[167]1940
1950 [153]" "X$:S(20)[178][198](X$):[139]X$[178]"Z"[167][138]
1960 [139]X$[178]"B"[167]2000
1970 [139]X$[178]"A"[167]2020
1980 [133]"ASCILENAME:   RNDCMDCMDCMD";Z$:[139]Z$[178]"RND"[167][138]
1990 [137]2020
2000 [133]"  (null)PURWAIT  0CMDCMDCMD";T(19)
2010 [133]"(null)EKTORWAIT  0CMDCMDCMD";S(19)
2020 [153]"<STR$RIGHT$(null)VALLEN(null)(null)(null)(null) EINLESEN>"
2030 [141]3870:U[178]T(19):V[178]S(19)
2040 [139]Z[178]2[167]3780
2050 [139]S(20)[179][177]69[167]2100
2060 U[178][195](Z$)
2070 [129]F[178]3[164]Z:[139][200](A$(F),U)[178]Z$[167]S(20)[178]3:[137]2110
2080 [130]
2090 [153]"ASCEHLER: "[199](34)Z$[199](34)" NICHT GEFUNDEN !":[137]3780
2100 [129]F[178]3[164]Z[171]1
2110 [153]""[200](A$(F),26)
2120 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR":W[178]0
2130 [139]D[178]1[167][152]5,[200](A$(F),26):[152]5,"-------------------------"
2140 T[178][198]([202](A$(F),28)):S[178][198]([202](A$(F),29))
2150 [139]T[178]U[175]S[178]V[167][137]2290
2160 X$[178][201]([196](T),2):Y$[178][201]([196](S),2)
2170 [141]2390:W[178]W[170]1
2180 [161]Z$:[139]Z$[179][177]""[167]3780
2190 [141]3840
2200 [161]#2,X$:[161]#2,Y$:T[178][198](X$[170][199](0)):S[178][198](Y$[170][199](0))
2210 X$[178][201]([196](T),2):Y$[178][201]([196](S),2)
2220 [139]T[178]U[175]S[178]V[167][137]2290
2230 [139]T[179][177]0[167]2260
2240 [153]:[139]S(20)[178]3[167]2330
2250 [130]:[137]2330
2260 W[178]W[170]1:[139]W[178]5[167]W[178]0:[141]2360:[137]2180
2270 [141]2390
2280 [137]2180
2290 [153]X$","Y$
2300 [153]"ENTHAELT GESUCHTEN PEEKLOCK !ON"
2310 [139]D[178]1[167][152]5,X$","Y$:[152]5,"ENTHAELT GESUCHTEN PEEKLOCK !"
2320 [137]3780
2330 [139]D[178]1[167][152]5
2340 [137]3780
2360 [153]X$","Y$
2370 [139]D[178]1[167][152]5,X$","Y$
2380 [142]
2390 [153]X$","Y$"   ";
2400 [139]D[178]1[167][152]5,X$","Y$"     ";
2410 [142]
2420 [141]1640:[153]"(null)CHREIBSCHUTZBITS AENDERN":[141]3050
2430 T(20)[178]3:[141]3870
2440 [153]"(null)OESCHSCHUTZ-PEEKIT AENDERN: J/NWAIT"
2450 T(0)[178]T:S(0)[178]S
2460 T(20)[178]2:S(20)[178]2:[141]3960
2470 [153]"<VALNDE STR$RIGHT$(null)VALLEN(null)(null)(null)(null)>"
2480 [137]3740
2490 [161]X$:[139]X$[179][177]"J"[175]X$[179][177]"N"[167]2490
2500 [153][166]30)"ON"X$
2510 [139]X$[178]"N"[167]4110
2520 [139]V[175]64[167]V[178]V[171]64:Y$[178]" ":[137]2540
2530 V[178]V[176]64:Y$[178]"<"
2540 [153]"ON"[166]25)Y$
2550 [141]3580:[152]2,[199](V);:[152]1,"U2 2 0"T(F[171]1);S(F[171]1)
2560 [137]4110
2590 [141]1640:[153]"(null)URUECKHOLEN GELOESCHTER ASCILES."
2610 [153]"VALRMOEGLICHT DAS (null)IEDERHERSTELLEN"
2620 [153]"VON VERSEHENTLICH GELOESCHTEN ASCILES"
2630 [153]"(NATUERLICH NUR DANN, WENN DIESE NICHT"
2640 [153]"SCHON UEBERSCHRIEBEN WORDEN SIND)."
2660 [153]"PEEKEIM (null)UCHEN WERDEN NUR DIE GELOESCHTEN  STR$ATEIEN ABGEFRAGT"
2670 [141]3050:[141]1640
2680 [153]"<PEEKEGINN DER (null)UCHE>"
2690 T(20)[178]1:[141]3870:[153]"<VALNDE STR$RIGHT$(null)VALLEN(null)(null)(null)(null)>"
2700 [153]"(null)EINE WEITEREN GELOESCHTEN ASCILES!":[137]3740
2710 :
2720 [153][200](X$,21)
2730 [141]2740:[137]4120
2740 [153],"(null)URUECKHOLEN MID$/(null)?"
2750 [161]T$:[139]T$[179][177]"J"[175]T$[179][177]"N"[167]2750
2760 [139]T$[178]"N"[167][142]
2770 [153]"(null)AR ES EIN (null)WAITROGRAMM-     (null)WAITEQENTIELLES-"
2780 [153]"           (null)WAITELATIVES-    (null)WAITSER-ASC I L E ?"
2790 [161]T$:[139]T$[179][177]"P"[175]T$[179][177]"S"[175]T$[179][177]"R"[175]T$[179][177]"U"[167]2790
2800 [139]T$[178]"P"[167]Z[178]130
2810 [139]T$[178]"S"[167]Z[178]129
2820 [139]T$[178]"R"[167]Z[178]132
2830 [139]T$[178]"U"[167]Z[178]131
2840 [159]3,G%,3,"#":[153]"<ASCILE WIEDERHERSTELLEN...>":[153]"(null)PUR (null)EKTOR"
2850 T[178][198]([202](X$,28)):S[178][198]([202](X$,29))
2860 [153]"       ON":[153]T;S"ON"
2870 [152]1,"B-A 0"T;S:[141]3170
2880 [139]X[179][177]0[167]2980
2890 [152]1,"U1 3 0"T;S
2900 [161]#3,Z$:[161]#3,Y$
2910 T[178][198](Z$[170][199](0)):S[178][198](Y$[170][199](0))
2920 [139]T[179][177]0[167]2860
2930 X[178]2[170]W[172]32:[141]3580
2940 [152]2,[199](Z);
2950 [152]1,"U2 2 0"T(F[171]1);S(F[171]1)
2960 [153]"ASCILE WIEDERHERGESTELLT!"
2970 [137]3740
2980 [139]X[179][177]65[167]3150
2990 [153]"ASCILE WURDE BEREITS UEBERSCHRIEBEN!!"
3000 [153]"(null)IEDERHERSTELLUNG  NICHT  MOEGLICH!!"
3010 [153]"<(null)ALIDIEREN>":[152]1,"V"
3020 [137]3780
3050 [153]"ASCLOPPY-CHR$ERAETEADRESSE: "G%"CMDCMDCMDCMD"[199]([181](G%[173]10)[172]157);:[133]G%
3060 [139]G%[179]8[176]G%[177]15[167][153]"(null)NZULAESSIGE CHR$ERAETEADRESSE !":[137]3750
3070 V[178]768:X[178][194](V):[151]V,185:[139]Z[178]1[167][159]1,G%,15:[160]1:[137]3090
3080 [159]1,G%,15,"I"
3090 [151]V,X:[139][194](144)[179][177]128[167]3110
3100 [153]"ASCEHLER: ASCLOPPY#"G% NICHT EINGESCHALTET!";:CLOSE1:GOTO3750
3110 IFZ=1THENRETURN
3120 GOSUB3170:CLOSE1
3130 IFX<>0THEN3150
3140 RETURN
3150 PRINT"[198]EHLERKANAL:":PRINTX" "X$" "U" "V""
3160 GOTO3750
3170 INPUT#1,X,X$,U,V:RETURN
3200 GOSUB1640:PRINT"[207]RDNEN [196][201][210][197][195][212][207][210][217] (ALPHABETISCH)"
3210 GOSUB3050
3220 PRINT"<[196][201][210][197][195][212][207][210][217] EINLESEN>"
3230 T(20)=4:GOSUB3870
3240 PRINT"<[196][201][210][197][195][212][207][210][217] WIRD SORTIERT>"
3250 SYS49205:IFT(0)=18ANDS(0)=1THEN3260
3255 PRINT"[198]OLGEBLOCK VON T18,0 =";T(0)","S(0);"# 18,1  !":GOTO3780
3260 PRINT"<[196][201][210][197][195][212][207][210][217] ZURUECKSCHREIBEN>":F=0
3270 PRINT#1,"U1 2 0"T(F);S(F)
3280 FORW=0TO7:X=2+W*32:GOSUB3580
3290 IFASC(MID$(A$(U),28))=0THENA$(U)=RIGHT$(A$(U),32)
3300 PRINT#2,MID$(A$(U),27,3);LEFT$(A$(U),16);MID$(A$(U),30,3);
3310 X=X+28:GOSUB3580
3320 Y=VAL(MID$(A$(U),17,3)):X=INT(Y/256):Y=Y-X*256
3330 PRINT#2,CHR$(Y);CHR$(X);
3340 U=U+1:IFU>Z-1THEN3360
3350 NEXT
3360 PRINT#1,"U2 2 0"T(F);S(F)
3370 F=F+1:IFT(F)<>0THENGOTO3270
3380 GOTO3740
3410 GOSUB1640:PRINT" [196][201][210][197][195][212][207][210][217] [146] [211]CROLL:[195]URSOR AUF/AB":PRINTSPC(13)"[197]NDE  :[210][197][212][213][210][206]"
3420 GOSUB3050:GOSUB4590:GOSUB4650
3430 IFA<>1THENT(20)=2
3440 GOSUB3870:IFA<>1THEN3510
3450 A$(0)=" ":A$(1)="  "+A$(1):A$(2)=" "+A$(2)
3460 SYS49205
3470 FORI=3TOZ-1:PRINTLEFT$(A$(I),26)
3480 IFD=1THENPRINT#5,LEFT$(A$(I),26)
3490 NEXT
3500 A$(1)=RIGHT$(A$(1),25):A$(2)=RIGHT$(A$(2),25)
3510 PRINT#1,"M-R"CHR$(250)CHR$(2):GET#1,X$
3520 PRINT#1,"M-R"CHR$(252)CHR$(2):GET#1,Y$
3530 F=ASC(X$+CHR$(0))+ASC(Y$+CHR$(0))*256
3540 A$(Z)="BELEGT"+STR$(664-F)+",FREI"+STR$(F)+" V.664[145]"
3541 PRINTA$(2):PRINTA$(Z)
3550 IFD=1THENPRINT#5,A$(2):PRINT#5,A$(Z):CLOSE5
3560 CLOSE2:CLOSE1:Z=Z-1:U=Z:GOTO3600
3580 PRINT#1,"B-P";2;X:RETURN
3600 GETX$:IFX$=""THEN3600
3610 IFX$="[145]"THEN3670
3620 IFX$=""THEN3650
3630 IFX$=CHR$(13)THENRUN
3640 GOTO3600
3650 IFU>ZTHEN3600
3660 U=U+1:PRINT:PRINTLEFT$(A$(U+1),26);:GOTO3600
3670 IFU-24<0THEN3600
3680 SYS49152
3690 PRINT""LEFT$(A$(U-24),26)""
3700 U=U-1:GOTO3600
3710 STOP
3740 CLOSE2:CLOSE3:GOSUB3120:GOSUB3150
3750 FORU=1TO500:GETX$:IFX$<>""THENU=5000
3760 NEXT:RUN
3770 :
3780 CLOSE5:CLOSE2:CLOSE1:PRINT:PRINTSPC(10)"<< TASTE >>"
3790 GETX$:IFX$=""THEN3790
3800 RUN
3830 T=18:S=0
3840 PRINT#1,"U1 2 0"T;S:RETURN
3870 OPEN1,G%,15:PRINT#1,"I":OPEN2,G%,2,"#":Z=3
3880 GOSUB3830:GET#2,X$:GET#2,Y$:T=ASC(X$+CHR$(0)):S=ASC(Y$+CHR$(0))
3890 T(0)=T:S(0)=S
3900 X=144:GOSUB3580:X$="":Y$=""
3910 FORV=1TO23:GET#2,X$:Y$=Y$+X$:NEXT:A$(1)=LEFT$(Y$,16)+"  "+RIGHT$(Y$,7)
3920 PRINT""A$(1):PRINTA$(2)
3930 IFD>0THENPRINT#5:PRINT#5,A$(1):PRINT#5,A$(2)
3940 IFT(20)=3THENRETURN
3950 IFT(20)=4THENZ=0
3960 GOSUB3840:GET#2,X$:GET#2,Y$:T=ASC(X$+CHR$(0)):S=ASC(Y$+CHR$(0))
3970 F=F+1:T(F)=T:S(F)=S
3980 FORW=0TO7:X=2+W*32:GOSUB3580
3990 SYS820,2,X$
4000 V=ASC(MID$(X$,27)):Y=ASC(MID$(X$,28))
4010 IFV=0ANDY<>0ANDT(20)=1THEN2720
4020 IFV=0ANDT(20)=4ANDY<>0THENX$=CHR$(255)+X$:GOTO4040
4030 IFV=0THEN4120
4040 A$(Z)=X$
4050 IFT(20)<>2THEN4090
4060 PRINTLEFT$(A$(Z),26)
4070 IFD=1THENPRINT#5,LEFT$(A$(Z),26)
4080 IFD=2THENPRINT#5,LEFT$(A$(Z),26);
4090 IFS(20)=2THEN2490
4100 IFS(20)=3THEN4230
4110 Z=Z+1
4120 NEXT:IFT=0THEN4130
4122 IFT=18ANDS<21THEN3960
4124 PRINT"[213]NZULAESSIGER [198]OLGEBLOCK [146]"T","S:GOTO3780
4130 RETURN
4160 GOSUB1640:PRINT"[197]RWEITERTES [196][201][210][197][195][212][207][210][217]"
4161 PRINT"=[193]NZEIGE SAEMTLICHER [198]ILEPARAMETER":PRINT"([193]BBRUCH MIT <[210][197][212][213][210][206]>)"
4170 GOSUB3050
4190 GOSUB4650:IFD=1THEND=2
4200 PRINT"<[196][201][210][197][195][212][207][210][217] EINLESEN>"
4210 T(20)=2:S(20)=3:S(19)=664:GOSUB3870:GOTO4510
4230 OPEN4,G%,4,"#"
4240 V=VAND15:S(19)=S(19)-VAL(MID$(A$(Z),18,3))
4280 IFV=4THEN4405:REM REL
4290 X=ASC(MID$(A$(Z),28)):Y=ASC(MID$(A$(Z),29))
4300 PRINT#1,"U1 4 0"X;Y
4310 GET#4,X$:GET#4,X$:GET#4,X$:GET#4,Y$:CLOSE4
4320 X=ASC(X$+CHR$(0))+ASC(Y$+CHR$(0))*256
4330 Y=ASC(MID$(A$(Z),28)):U=ASC(MID$(A$(Z),29))
4350 X$=RIGHT$("   "+STR$(X),5)
4351 IFV=1THENX$="     "
4360 Y$=RIGHT$(STR$(Y),2):Z$=RIGHT$(STR$(U),2)
4380 IFX<>2049ANDV<>1THENPRINT"";:IFD=2THENPRINT#5,"";
4381 PRINT"[145]";TAB(26);X$"[146] "Y$","Z$
4390 IFD=2THENPRINT#5," "X$"[146] "Y$","Z$
4400 GOTO4480
4405 X=ASC(RIGHT$(A$(Z),1)):Y$=MID$(A$(Z),17,3):Y=VAL(Y$)
4420 U=Y/121:IFU<>INT(U)THENU=INT(U+1)
4430 V=INT(((Y-U)*254)/X)
4450 PRINT"[145]";TAB(26);Y-U;TAB(30);"D";ASC(MID$(A$(Z),28));"[157],"ASC(MID$(A$(Z),29))
4460 PRINTTAB(26);U;TAB(30);"S";ASC(MID$(A$(Z),30));"[157],"ASC(MID$(A$(Z),31))
4461 PRINTTAB(26);V;TAB(30);"R.JE";X
4471 IFD<>2THEN4480
4472 PRINT#5,Y-U;"D";
4473 PRINT#5,ASC(MID$(A$(Z),28));"[157],";ASC(MID$(A$(Z),29))
4474 PRINT#5,TAB(26);U;" S";ASC(MID$(A$(Z),30));"[157],";ASC(MID$(A$(Z),31))
4476 PRINT#5,TAB(26);V;"R.JE";X
4480 FORV=1TO100:GETX$:IFX$<>""THEN3780
4500 NEXT:CLOSE4:GOTO4110
4510 PRINT#1,"M-R"CHR$(250)CHR$(2):GET#1,X$
4520 PRINT#1,"M-R"CHR$(252)CHR$(2):GET#1,Y$
4530 F=ASC(X$+CHR$(0))+ASC(Y$+CHR$(0))*256
4540 PRINTA$(2):PRINT"VON 664 [194]LOECKEN":PRINT"BELEGT";664-F;" FREI";F;
4541 PRINT" NACH [194][193][205]-[194]ELEGUNG"
4542 IFD<>2THEN4550
4545 PRINT#5,A$(2):PRINT#5,"VON 664 [194]LOECKEN":PRINT#5,"BELEGT";664-F;
4546 PRINT#5," FREI";F;" NACH [194][193][205]-[194]ELEGUNG"
4550 PRINT"      ";664-S(19);"     ";S(19);" NACH [198]ILESUMMEN"
4555 IFD=2THENPRINT#5,"      ";664-S(19);"     ";S(19);" NACH [198]ILESUMMEN"
4556 IFF<>S(19)THENPRINT"[149] [193] B W E I C H U N G , P R U E F E N !!!":POKE646,1
4557 IFD=2ANDF<>S(19)THENPRINT#5," [193] B W E I C H U N G , P R U E F E N !!!"
4560 GOTO3780
4590 PRINT"[193]LPHABETISCH GEORDNET [202]/[206]   N[157][157][157]";
4600 INPUTX$:IFX$<>"N"ANDX$<>"J"THEN4590
4610 IFX$="J"THENA=1
4620 RETURN
4650 PRINT"[193]USGABE AUF  [196]RUCKER  [202]/[206]   N[157][157][157]";
4660 INPUTX$:IFX$<>"N"ANDX$<>"J"THEN4650
4670 IFX$="J"THEND=1:OPEN5,4
4680 RETURN
4800 FORI=820TO1023:READX:POKEI,X:NEXT
4801 FORI=49152TO49355:READX:POKEI,X:NEXT:RETURN
4802 DATA32,155,183,32,30,225,32,253,174,32,139,176,133,73,132,74,32,163,182
4803 DATA169,32,32,117,180,160,2,185,97,0,145,73,136,16,248,165,98,133,73
4804 DATA165,99,133,74,160,26,32,244,3,160,0,32,18,225,145,73,200,192,16,208
4805 DATA246,132,139,160,29,32,244,3,164,139,162,7,32,18,225,202,208,250,133
4806 DATA99,32,18,225,133,98,32,204,255,132,139,162,144,56,32,73,188,32,223
4807 DATA189,164,139,162,0,189,255,0,201,0,240,6,145,73,200,232,208,243,169
4808 DATA32,145,73,200,232,224,5,208,248,160,26,177,73,136,72,10,16,4,169
4809 DATA60,208,2,169,32,145,73,136,104,41,15,170,189,238,3,145,73,136,189
4810 DATA233,3,145,73,136,189,228,3,145,73,136,176,4,169,42,208,2,169,32,145
4811 DATA73,96,0,68,83,80,85,82,69,69,82,83,69,76,81,71,82,76,0,162,3,32,18
4812 DATA225,145,73,200,202,208,247,96
4813 DATA169,191,133,98,133,100,169,219,133,101,169,7,133,99,162,0,160,40
4814 DATA161,98,145,98,161,100,145,100,198,100,169,255,215,98,208,240,198
4815 DATA99,198,101,165,99,201,3,208,230,169,32,145,98,136,208,251,96,0,160
4816 DATA0,177,47,48,13,200,177,47,16,8,160,4,177,47,201,1,240,1,96,24,165
4817 DATA47,105,7,133,110,165,48,105,0,133,111,160,0,177,110,240,236,133,34
4818 DATA200,177,110,153,34,0,192,2,208,246,165,110,133,113,165,111,133,114
4819 DATA24,165,113,105,3,133,113,144,2,230,114,160,0,177,113,240,61,133,77
4820 DATA197,34,144,2,165,34,133,85,200,177,113,153,77,0,192,2,208,246,160
4821 DATA0,177,35,209,78,240,4,176,11,144,207,200,196,85,208,241,196,34,176
4822 DATA198,160,2,177,110,170,177,113,145,110,153,34,0,138,145,113,136,16
4823 DATA240,48,178,24,165,110,105,3,133,110,144,143,230,111,208,139,0