10 REM ************************
20 REM *                      *
30 REM * P  R  O  D  A  T     *
40 REM *                      *
50 REM * AUTOR: WOLFGANG HAHN *
60 REM * AN DER STADTMAUER 12 *
70 REM * 8687 WEISSENSTADT    *
80 REM * TELEFON: 09253/1744  *
90 REM *                      *
100 REM ************************
110 :
120 PRINTCHR$(14):GOSUB2980:PRINT"4 SEK.":GOSUB3820
130 POKE90,0:POKE91,192:POKE88,0:POKE89,192:POKE780,0:POKE781,160:SYS820
140 POKE90,0:POKE91,0:POKE88,0:POKE89,0:POKE780,0:POKE781,224:SYS820:POKE1,53
150 S=44136:FORI=STOS+8STEP4:POKEI,0:NEXT:S=43991:POKES,3:POKES+1,172:S=42349
160 POKES,228:POKES+1,180:FORI=S+4TOS+8:POKEI,234:NEXT:POKE59012,96
170 POKE1,55:CLR:GOSUB3980
180 REM  H A U P T M E N U E
190 GOSUB2980:PRINT"-1- [196]EFINIERTE [196]ATEI BENUTZEN"
200 PRINT"-2- [206]EUE [196]ATEI DEFINIEREN"
210 PRINT"-3- [196]RUCKPARAMETER AENDERN"
220 E=2:GOSUB2970
230 PRINT"-4- [196]IRECTORY LADEN"
240 PRINT"-5- [198]ILE LOESCHEN"
250 PRINT"-6- [214]ALIDATE"
260 PRINT"-7- [196]ISK FORMATIEREN"
270 PRINT"-8- [198]ILE UMBENENNEN"
280 GOSUB3010:IFE<1ORE>8THEN280
290 ONEGOSUB690,330,320,3200,3420,3500,3550,3610
300 GOTO190
310 REM  N E U E  D A T E I  D E F .
320 X=-1:IFD=0THENRETURN
330 GOSUB2950:PRINT" [206]EUE [196]ATEI DEFINIEREN ":IFX=-1GOTO540
340 PRINT"[205]IT [200]ARDCOPY (J/N/^=ZURUECK)":GOSUB3010:IFE$="^"THENRETURN
350 PRINT"[147]"
360 PRINT"";:POKE1,53:POKE58879,133:POKE59639,24:POKE780,0:SYS58826:POKE1,55:SYS895
370 IFE$<>"J"THEN390
380 GOSUB2670:SYS932:IFL=2GOTO380
390 CLR:GOSUB3980:F=1:A1%=-1
400 FORI=1024TO1983:IFPEEK(I)<>30GOTO450
410 A%(F,Y)=(I-1024)/40:POKEI,32:FORZ=0TO79:IFPEEK(I+Z)<>30THENNEXTZ
420 Y=Y+1:A%(F,Y)=I-(A%(F,Y-1)*40+1024):Y=Y+1:A%(F,Y)=Z:Y=0:I=I+Z:IFZ=80THENI=I-1
430 IFZ<80THENPOKEI,32
440 F=F+1:IFF=40GOTO490
450 IFPEEK(I)=31THENA1%=(I-1024)/40:A2%=I-(A1%*40+1025):POKEI,32
460 NEXTI:IFF=1THENF=40:GOTO490
470 FORI=1984TO2023:IFPEEK(I)=30ORPEEK(I)=31THENPOKEI,32
480 NEXT:IFA%(F-1,0)=23ANDA%(F-1,2)>40THENA%(F-1,2)=40
490 F=F-1:IFF=39THENPRINT"[147][198]ELDERANZAHL PRUEFEN!!",,T$:GOSUB3010:SYS932:GOTO360
500 SYS895:IFA2%<0THENA2%=0
510 GOSUB2950:PRINT" [206]EUE [196]ATEI DEFINIEREN "
520 IFX=-1GOTO540
530 INPUT"[206]AME DER [196]ATEI";NA$:IFRIGHT$(NA$,1)="*"GOTO530
540 PRINT"[196]RUCKPARAMETER EINGEBEN!":POKE180,81:POKE129,1:POKE1,53:POKE58879,13
550 FORI=0TO59:PRINTI+1"[157]. [196]RUCKZEILE: ":E$=""
560 INPUTE$
570 IFE$=""THENPZ$(I)="0":GOTO600
580 PZ$(I)=E$
590 IFE$="_"GOTO610
600 NEXT:PZ$(60)="_"
610 POKE129,32:POKE1,55:INPUT"ALLES RICHTIG (J/N)";E$:UD=1
620 IFE$="N"GOTO510
630 Y=0:DF=I:E$="M/"+LEFT$(NA$,14)
640 IFX=-1THENX=0:RETURN
650 GOSUB3060
660 D$="0":D=0:GOSUB1650:IFF1<>0THENY=Y+1:IFY<2GOTO650
670 GOTO190
680 REM  H I L F S M E N U E
690 GOSUB2980:PRINT"-1- [196]ATEI LADEN"
700 PRINT"-2- [196]ATEI PFLEGEN"
710 PRINT"-3- [196]ATEI ABSPEICHERN"
720 PRINT"-4- [211]ORTIERROUTINE"
730 PRINT"-5- [193]DDITIONSROUTINE"
740 PRINT"-6- [196]RUCKER-[205]ENUE"
750 PRINT"-^- [218]URUECK"
760 GOSUB3010:IFE$="^"THENRETURN
770 IFE<1ORE>6GOTO760
780 ONEGOSUB870,1110,1640,2070,3090,2790
790 GOTO690
800 REM  T E S T  F L O P P Y
810 POKE768,61:OPEN1,8,15,"I":CLOSE1
820 IFST<>-128THENPOKE768,139:RETURN
830 GOSUB840:GOTO810
840 PRINT"[147]":E=1:GOSUB2970:PRINT"     [208]ERIPHERIE EINSCHALTEN!!":PRINTT$
850 GOSUB2970:GOSUB3010:RETURN
860 REM  L O A D  F I L E
870 GOSUB2950:PRINT""SPC(13)" [196]ATEI LADEN "
880 IFUD=1ANDD<>0THENPRINT" [196]ATEI ABSPEICHERN?! (J/N)":PRINTT$:GOSUB3010:IFE$<>"N"THENRETURN
890 CLR:GOSUB3980
900 E$="":PRINT""A$"[205]IT WELCHER [196]ATEI WOLLEN [211]IE":INPUT"ARBEITEN";E$
910 IFRIGHT$(E$,1)="*"GOTO870
920 IFE$="^"GOTO1090
930 IFE$=""THEN900
940 NA$=E$
950 UD=0
960 E$="M/"+LEFT$(NA$,14):SYS827(E$)E$:E=PEEK(141)*256+PEEK(140):POKE139,PEEK(E)
970 POKE140,PEEK(E+1):POKE141,PEEK(E+2):GOSUB810:SYS969:GOSUB3710:IFF1GOTO870
980 OPEN2,8,2,NA$+",S,R":POKE180,81
990 INPUT#2,F:INPUT#2,A1%:INPUT#2,A2%
1000 FORI=1TOF:FORX=0TO2:INPUT#2,A%(I,X):NEXTX,I
1010 INPUT#2,DF:POKE1,54:FORI=0TODF:INPUT#2,PZ$(I):IFPZ$(I)="_"GOTO1030
1020 NEXT
1030 INPUT#2,D
1040 IFD=0GOTO1080
1050 POKE129,255:FORI=1TOD
1060 INPUT#2,FE$(I)
1070 NEXTI:POKE129,32
1080 POKE1,55:GOSUB3710:CLOSE2:IFF1GOTO870
1090 E=1:GOTO290
1100 REM  A N Z E I G E
1110 IFUD=3THENRETURN
1120 DS=0:IFD=0GOTO1340
1130 FL=7:L=0:IFDS<0ORDS=DGOTO3040
1140 PRINT"[147]";:FORI=1TO24:PRINT"[154]                                        ";:NEXT
1150 PRINT"[154]                                       ";
1160 SYS932:IFA1%<>-1THENGOSUB1320
1170 FORI=1TOF:GOSUB1310:PRINTFE$(I+DS);:NEXT
1180 IFL=2THENGOSUB2680
1190 IFFL=8GOTO2040
1200 GOSUB3010
1210 IFE$="+"ANDDS<DTHENDS=DS+F:GOTO1130
1220 IFE$="-"ANDDS>=0THENDS=DS-F:GOTO1130
1230 IFE$="[133]"ANDFL<>9THENY=0:GOSUB2460:GOTO1130
1240 IFE$="[134]"ANDFL<>9THENGOSUB2670:IFL=2GOTO1160
1250 IFE$="L"ANDFL<>9GOTO1800
1260 IFE$="S"ANDFL<>9GOTO1890
1270 IFE$="A"ANDFL<>9GOTO1350
1280 IFE$="E"THENDS=D:FL=0:GOTO1340
1290 IFE$="^"THENRETURN
1300 GOTO1200
1310 POKE214,A%(I,0):POKE211,A%(I,1):SYS58640:RETURN
1320 POKE214,A1%:POKE211,A2%:SYS58640:PRINTDS/F+1:RETURN
1330 REM  I N P U T - R O U T .
1340 PRINT"[147]":SYS932
1350 OPEN3,3:POKE204,0:UD=1
1360 IFA1%<>-1THENGOSUB1320
1370 IFDS+F>1499THENGOSUB2420:GOTO1460
1380 FORI=1TOF:POKE1,53
1390 Y=0:X=LEN(FE$(DS+I)):GOSUB1310
1400 SYS861
1410 GOSUB3010
1420 IFE$=CHR$(13)THENPRINTE$;:GOTO1540
1430 IFE$="[133]"ANDI>1THENI=I-2:GOTO1570
1440 IFE$="[134]"THENX=0:Y=0:GOSUB1310:PRINTLEFT$(A$,A%(I,2));:GOSUB1310:GOTO1400
1450 IFE$="[135]"GOTO1860
1460 IFE$="[136]"GOTO1600
1470 IFE$=""ANDY<40ANDA%(I,2)>Y+39THENY=Y+39:GOTO1500
1480 IFE$="[145]"ANDY>39THENY=Y-41:GOTO1500
1490 IFE$=""ORE$="[146]"ORE$=""ORE$="[145]"ORE$=""ORE$=CHR$(148)ORE$=""ORE$="[147]"GOTO1410
1500 Y=Y+1:IFX<YTHENX=Y
1510 IFE$="[157]"THENY=Y-2:IFY<0THENY=0:GOTO1410
1520 PRINTE$;:IFY=A%(I,2)GOTO1540
1530 GOTO1400
1540 GOSUB1310:POKE180,X
1550 FE$(DS+I)="":POKE213,80:POKE129,255:INPUT#3,FE$(DS+I):POKE129,32:POKE1,55
1560 IFRIGHT$(FE$(DS+I),1)<>CHR$(32)THENFE$(DS+I)=FE$(DS+I)+CHR$(154)
1570 NEXTI
1580 IFFLGOTO1620
1590 DS=DS+F:SYS932:GOTO1360
1600 IFFLGOTO1620
1610 D=DS:DS=0
1620 POKE1,55:POKE207,0:POKE204,1:PRINT#3,;:CLOSE3:X=0:GOTO1130
1630 REM  S P E I C H E R N
1640 IFD=0THENRETURN
1650 GOSUB2950:PRINT""SPC(10)" [196]ATEI ABSPEICHERN "
1660 PRINT""W$
1670 GOSUB810:UD=0
1680 OPEN2,8,2,"@:"+NA$+",S,W"
1690 PRINT#2,F:PRINT#2,A1%:PRINT#2,A2%
1700 FORI=1TOF:FORX=0TO2:PRINT#2,A%(I,X):NEXTX,I
1710 PRINT#2,DF:FORI=0TODF:PRINT#2,PZ$(I):IFPZ$(I)="_"GOTO1730
1720 NEXT
1730 PRINT#2,D:IFD=0GOTO1770
1740 FORI=1TOD
1750 PRINT#2,FE$(I)
1760 NEXTI
1770 CLOSE2:GOSUB3710
1780 RETURN
1790 REM  D S  L O E S C H E N
1800 POKE214,24:POKE211,0:SYS58640:PRINT"[211]IND [211]IE [211]ICHER? (J/N)[146]";:GOSUB3010
1810 IFE$<>"J"ANDE$<>"[202]"GOTO1130
1820 D=D-F:POKE857,F*3:IFDS=DTHENDS=DS-F:GOTO1840
1830 SYS932:FORI=DS+1TODSTEPF:SYS827FE$(I)FE$(I+F):NEXT
1840 GOTO1130
1850 REM  B Y T E S  F R E I
1860 F1=PEEK(214):F2=PEEK(211):POKE214,24:POKE211,0:SYS58640:SYS861
1870 PRINT"[[198]REI:      ][157][157][157][157][157][157][157]"FRE(0);:POKE214,F1:POKE211,F2:SYS58640:GOTO1410
1880 REM  S U C H E N
1890 GOSUB2950:PRINT""SPC(12)" [211]UCHEN "
1900 E$="":INPUT"[198]ELDNUMMER";E$:L=1
1910 POKE180,80:V=VAL(E$):IFV>FTHENPRINT"[145][145]";:GOTO1900
1920 S$="":Z=1:Y=1:POKE1,53:POKE129,1:INPUT"[211]UCHWORT: ";S$:POKE1,55:POKE129,32
1930 IFS$=""GOTO1130
1940 LE=LEN(S$):P=F:IFV=0THENP=1:V=1
1950 PRINT"[147][193]NZAHL [198]ELDER:"D:PRINT"      -STES [198]ELD ABGESUCHT"
1960 FORX=VTODSTEPP:PRINT"[145]"X:E=LEN(FE$(X))-1:F1=E-L:IFLE>EGOTO1990
1970 FORY=0TOE:IFY<=F1THENFORZ=1TOLE:IFMID$(S$,Z,1)=MID$(FE$(X),Y+Z,1)THENNEXT:GOTO2030
1980 NEXTY
1990 NEXTX
2000 IFFL=8GOTO1130
2010 PRINT"'"S$"' NICHT GEFUNDEN!!";
2020 GOSUB3010:GOTO1160
2030 DS=F*INT((X-1)/F):FL=8:L=0:GOTO1160
2040 GOSUB3010:IFE$<>"J"GOTO1130
2050 V=X+P:GOTO1950
2060 REM  S O R T
2070 IFD<F*2ORD=0THENRETURN
2080 GOSUB2950:PRINT""SPC(10)" [211]ORTIER-[210]OUTINE "
2090 PRINT"-1- [193]LLES ALPHABETISCH SORTIEREN"
2100 PRINT"-2- [194]ESTIMMTE [199]RUPPEN HERAUSSORTIEREN":GOSUB2970:POKE857,F*3
2110 GOSUB3010:IFE>2ORE<1GOTO2110
2120 UD=1:IFE=2GOTO2230
2130 POKE1,54
2140 PRINT"[199]EBEN [211]IE DIE [198]ELDNUMMER EIN NACH DER":INPUT"SORTIERT WERDEN SOLL: ";E$
2150 Y=VAL(E$):POKE1,55:IFY<1ORY>FTHENPOKE214,11:SYS58640:GOTO2130
2160 PRINT"":Z=D/F:PRINT"MAX."Z"[196]URCHGAENGE":S=D-F:L=0
2170 PRINT"[196]URCHGANG: 1"
2180 FORE=1TOZ:L=0
2190 FORI=YTOSSTEPF:IFFE$(I)>FE$(I+F)THENL=1:X=I-Y+1:SYS827FE$(X+F)FE$(X)
2200 NEXTI:IFLTHENPRINT,"[145]"E:NEXTE
2210 GOTO1120
2220 REM  S O R T  B E S T .  K R I T .
2230 INPUT"[206]ACH WELCHEM [198]ELD SOLL SORT. WERDEN";S$:S=VAL(S$):IFS>FGOTO2230
2240 POKE180,80:POKE129,1:POKE1,53:INPUT"[211]ORTIERKRITERIUM UNTERE [199]RENZE: ";X$
2250 INPUT"[211]ORTIERKRITERIUM OBERE [199]RENZE: ";Y$:POKE1,55:POKE129,32
2260 PRINT"<1>[206]EUE [196]ATEI OD. [193]USGABE AUF <2>[196]RUCKER";
2270 INPUTE$:FL=VAL(E$):IFFL<1ORFL>2GOTO2270
2280 IFFL=2THENGOSUB2790:GOTO2320
2290 INPUT"[206]AME DER [196]ATEI";N$:IFN$="^"THENRETURN
2300 E$="M/"+N$:GOSUB3060:IFF1GOTO2380
2310 NA$=N$
2320 IFE$="^"THENRETURN
2330 DS=0:E=0:FORL=STODSTEPF:E$=LEFT$(FE$(L),LEN(Y$)):IFE$<X$ORE$>Y$GOTO2350
2340 DS=L-S:ONFLGOSUB2400,2340,2470,2730
2350 NEXTL
2360 IFFL=1THEND=E:DS=D
2370 IFFL<>1THENOPEN4,4,7:PRINT#4:CLOSE4:UD=0
2380 RETURN
2390 REM  E I N S O R T I E R E N
2400 SYS827FE$(E+1)FE$(DS+1):E=E+F:RETURN
2410 REM  D A T E I  V O L L
2420 POKE207,0:POKE204,1
2430 PRINT"[147]":E=1:GOSUB2970:PRINTSPC(10)"[196]ATEI VOLL!!":PRINTT$:GOSUB2970
2440 GOSUB3010:E$="[136]":RETURN
2450 REM  D R U C K 1
2460 Y=-1:GOSUB2860
2470 OPEN4,4,7
2480 X=0:Y=0:IFE<>1GOTO2500
2490 FORDS=0TOD-FSTEPF
2500 FORI=0TODF-1
2510 IFPZ$(I)="0"GOTO2610
2520 F1=LEN(PZ$(I)):FORZ=1TOF1
2530 E$=MID$(PZ$(I),Z,1)
2540 IFE$<>"["GOTO2570
2550 PRINT#4,FE$(DS+VAL(MID$(PZ$(I),Z+1,2)));
2560 Z=Z+2:GOTO2600
2570 IFE$="]"ANDX=1THENX=0:E$=CHR$(15):GOTO2590
2580 IFE$="]"THENE$=CHR$(14):X=1
2590 PRINT#4,E$;
2600 NEXTZ
2610 PRINT#4
2620 NEXTI
2630 IFE=1THENNEXTDS
2640 IFFL<>3THENPRINT#4
2650 CLOSE4:RETURN
2660 REM  H A R D C O P Y
2670 Y=-1:GOSUB2860:OPEN4,4,7:IFL=2THENRETURN
2680 PRINT"";:OPEN5,3:L=1024:POKE1,53
2690 FORI=LTOL+39:POKE1024,PEEK(I):PRINT"";:GET#5,E$:PRINT#4,E$;:NEXT:PRINT#4:L=I
2700 IFI<>2024GOTO2690
2710 X=0:CLOSE4:CLOSE5:POKE1,55:RETURN
2720 REM  D R U C K 2
2730 OPEN4,4,7:IFE<>2GOTO2750
2740 FORDS=0TOD-FSTEPF
2750 FORI=1TOF:PRINT#4,FE$(I+DS):NEXTI:IFE=2THENNEXTDS
2760 IFFL<>4THENPRINT#4
2770 CLOSE4:RETURN
2780 REM  D R U C K E R - M E N U E
2790 IFD=0THENRETURN
2800 GOSUB2980:PRINT"-1- [199]ESAMTE [196]ATENBANK MIT DEFINIERTEN       [198]ELDERN DRUCKEN
2810 [153]"-2- CHR$ESAMTE STR$ATENBANK DRUCKEN":Y[178]0
2820 [153]"-3- STR$ATENSAETZE AUS (null)ORTIERROUTINE MIT      DEFINIERTEN ASCELDERN DRUCKEN
2830 PRINT"-4- [199]ANZE [196]ATENSAETZE AUS [211]ORTIERROUTINE    DRUCKEN
2840 [153]"-^- (null)URUECK"
2850 [141]3010:[139]E$[178]"^"[167][142]
2860 L[178]1
2870 [151]768,61:[159]4,4,7:[152]4:[139]ST[178][171]128[167][141]840:L[178]2:[137]2870
2880 [160]4:[151]768,139:[139]Y[178][171]1[167][142]
2890 [139]L[178]2[137]2790
2900 [139]E[179]1[176]E[177]4[137]2850
2910 [139]E[177]2[167]FL[178]E:[142]
2920 [139]FL[178]2[137]2850
2930 [145]E[137]2470,2730
2940 [143]
2950 E[178]3
2960 [153]"LOAD";
2970 [129]I[178]1[164]E:[153]"STOPTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANCONT";:[130]:[142]
2980 [141]2950:[153]""[166]10)" (null)ROSTR$AT ":[153]"":[141]2970
2990 [153],"ONON PEEKY (null)OLFGANG LEFT$AHN ":[142]
3000 [143]  G E T  A L L G .
3010 [161]E$:E[178][197](E$):[139]E$[178]""[137]3010
3020 [142]
3030 [143]  D A T E I  Z U E N D E
3040 FL[178]9:E[178]1:[153]"LOAD":[141]2970:[153][166]10)"STR$ATEI ZUENDE":[141]2970:[137]1200
3050 [143]  S A V E  M A S K E
3060 [158]827(E$)E$:E[178][194](141)[172]256[170][194](140):[151]139,[194](E):[151]140,[194](E[170]1)
3070 [151]141,[194](E[170]2):[151]176,0:[151]177,204:[141]810:[158]995:[141]3710:[142]
3080 [143]  A D D I T I O N
3090 [139]D[178]0[176]D[179]F[172]2[167][142]
3100 [141]2950:[153]""[166]11)" ATNDDITIONSROUTINE "
3110 [133]"(null)ELCHE ASCELDER SOLLEN ADDIERT WERDEN";E$:E[178][197](E$):Y[178]0
3120 [139]E[179]1[176]E[177]F[137]3110
3130 [133]"STR$ATENSATZ FUER VALRGEBNIS ANLEGEN";E$
3140 [129]I[178]E[164]D[169]F:Y[178]Y[170][197](FE$(I)):[130]I:Y[178][181](Y[172]100[170].5)[173]100
3150 [139]E$[179][177]"J"[137]3180
3160 [129]I[178]1[164]F:FE$(I[170]D)[178][199](250):[139]I[178]E[167]FE$(I[170]D)[178]"CMD"[170][196](Y)
3170 [130]I:DS[178]D:D[178]D[170]I[171]1:UD[178]1:[137]1130
3180 [153]"CHR$ESAMTSUMME ASCELDER-(null)R."E"= "Y:[153]""T$:[141]3010:[142]
3190 [143]  D I R E C T O R Y
3200 [141]810:Y[178]0
3210 [141]2950:[153]" STR$IRECTORY "
3220 [139]Y[178]1[167][142]
3230 [159]3,8,0,"$":[161]#3,E$,E$
3240 [153]:[161]#3,E$,E$,S$,E$
3250 E[178][198](S$[170][199](0))[170][198](E$[170][199](0))[172]256
3260 [153][202]([196](E)[170]"    ",2,4);
3270 [161]E$:[139]E$[179][177]""[167][160]3:[142]
3280 [161]#3,E$:[139]ST[137]3360
3290 [139]E$[179][177][199](34)[137]3280
3300 [161]#3,E$:[139]E$[179][177][199](34)[167][153]E$;:[137]3300
3310 [161]#3,E$:[139]E$[178]" "[137]3310
3320 [153][163]21);
3330 [153]E$;:[161]#3,E$:[139]E$[179][177]""[137]3330
3340 [139][194](214)[177]20[167][153]:[153]""T$;:[141]3010:Y[178]1:[141]3210
3350 [137]3240
3360 [153]"PEEKLOECKE FREI"
3370 [160]3
3380 [141]3710
3390 [153]:[153]T$:[141]3010
3400 [142]
3410 [143]  S C R A T C H
3420 E[178]4:[141]2960:[153]""[166]3)" ASCILE LOESCHEN "
3430 [153][166]21)" ^D = STR$IRECTORY "
3440 [133]"ASCILENAME";E$
3450 [139]E$[178]"^D"[167][141]3200:[137]3420
3460 [139]E$[178]"^"[167][142]
3470 [141]810:[159]1,8,15,"S:"[170]E$[170]",M/"[170]E$:[141]3730
3480 [137]3420
3490 [143]  V A L I D A T E
3500 [141]2950:[153]""[166]13)" (null)ALIDATE "
3510 [153]W$
3520 [141]810:[159]1,8,15,"V":[141]3730
3530 [142]
3540 [143]  D I S K  F O R M A T .
3550 [141]2950:[153]""[166]10)" STR$ISK FORMATIEREN "
3560 [133]"STR$ISK-(null)AME";E$:[139]E$[178]"^"[167][142]
3570 [133]"STR$ISK-(null)UMMER";Y$:[139]Y$[178]"^"[167][142]
3580 [153]""W$:[141]810:[159]1,8,15,"N:"[170]E$[170]","[170]Y$:[141]3730
3590 [142]
3600 [143]  R E N A M E
3610 [141]2950:[153]""[166]9)" ASCILE UMBENENNEN "
3620 [133]"ATNLTER (null)AME";Y$
3630 [139]Y$[178]"^"[167][142]
3640 [133]"(null)EUER (null)AME";E$
3650 [139]E$[178]"^"[167][142]
3660 [141]810:[159]1,8,15,"R:"[170]E$[170]"="[170]Y$
3670 [152]1,"R:M/"[170]E$[170]"=M/"[170]Y$:[141]3730
3680 [139]F1[179][177]0[137]3610
3690 [137]3200
3700 [143]  D I S K - E R R O R
3710 [160]1
3720 [159]1,8,15:[151]1,55
3730 [132]1,F1,S$,F2,F3
3740 [160]1
3750 [139]F1[178]0[167][142]
3760 [153]:E[178]1:[141]2970
3770 [153][166]6)F1;S$;F2;F3
3780 [153]T$
3790 [141]2970:[141]3010
3800 [142]
3810 [143]  M A P R O ' S
3820 [129]Z[178]820[164]1020:[135]X:[151]Z,X:S[178]S[170]X:[130]
3830 [131]133,095,134,096,076,191,163,032,158,173,165,100,133,140,165,101,133
3840 [131]141,032,158,173,160,000,177,140,133,139,177,100,145,140,165,139,145
3850 [131]100,200,192,003,208,239,096,169,000,133,139,169,004,133,140,160,000
3860 [131]177,139,056,233,128,048,002,145,139,192,255,200,208,242,165,140,201
3870 [131]007,240,103,230,140,208,230,169,000,133,139,133,172,169,004,133,140
3880 [131]169,204,133,173,160,000,177,139,145,172,192,255,200,208,247,165,140
3890 [131]201,007,240,068,230,140,230,173,208,233,169,000,133,139,133,172,169
3900 [131]204,133,140,169,004,133,173,160,000,177,139,145,172,192,255,200,208
3910 [131]247,165,140,201,207,240,031,230,140,230,173,208,233,160,000,162,008
3920 [131]032,186,255,166,140,164,141,165,139,032,189,255,162,000,160,204,169
3930 [131]000,032,213,255,096,160,001,162,008,032,186,255,166,140,164,141,165
3940 [131]139,032,189,255,162,255,160,207,169,176,032,216,255,096
3950 [139]S[179][177]29538[167][153]"FEHLER IN DATAS!!":[144]
3960 [142]
3970 [143]  I N I T I A L I S I E R E N
3980 T$[178]"         (null)ASTE DRUECKEN!":[134]FE$(1500),PZ$(60),A%(40,2):[151]650,128:E[178]1
3990 A$[178]"                                        ":A$[178]A$[170]A$:Y[178]0:L[178]0:UD[178]3
4000 W$[178]"PEEKITTE WARTEN...":[142]