10 REM REZEPTMANAGER.MAIN======64
20 REM (P) COMMODORE DISC      ==
30 REM ==========================
40 REM (C) BY                  ==
50 REM     JENS WELLHAUSEN     ==
60 REM     MARTIN RADETZKI     ==
70 REM VERSION 2.0   40Z./ASCII==
80 REM  C-64  FLOPPY           ==
90 REM ==========================
95 GOSUB 60000
100 IFX=1THENX=2
110 IFX=2THEN320
120 POKE53280,14:POKE53281,14:PRINTCL$SL$DC$BL$:POKE56295,6
130 MN$(1)=" [204][193][196][197][206] ":MN$(2)=" [211][208][197][201][195][200][197][210][206] ":MN$(3)=" [211][195][200][210][197][201][194][197][206] ":MN$(4)=" [196][210][213][195][203] "
140 MN$(5)=" [196][201][197][206][211][212] "
150 MM$(1)=Z0$+"[204][193][196][197][206]"+RN$+Z0$+RF$:MM$(2)=Z0$+"[211][208][197][201][195][200][197][210][206]"+RN$+Z0$+RF$
155 MM$(3)=Z0$+"[211][195][200][210][197][201][194][197][206]"+RN$+Z0$+RF$
160 MM$(4)=Z0$+"[196][210][213][195][203]"+RN$+Z0$+RF$:MM$(5)=Z0$+"[196][201][197][206][211][212]"+RN$+Z0$+RF$
170 MN(1)=0:MN(2)=6:MN(3)=16:MN(4)=26:MN(5)=32
180 DATA133,95,134,96,76,191,163
190 FORI=828TO834:READA:POKEI,A:NEXT
200 DIMRE$(18)
210 UD$(1)="[196]ISKETTENINHALT":UD$(2)="[210]EZEPT LOESCHEN":UD$(3)="[210]EZ. UMBENENNEN"
220 UD$(4)="     [197][206][196][197]      "
230 DIMDI$(150)
240 PRINTHE$"[210][197][218][197][208][212][205][193][206][193][199][197][210] [214]1.0   (C)'87 BY [202].[215] & [205].[210]";
250 PRINTRN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$;
255 PRINTZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$ZN$;
260 PRINT" [204][193][196][197][206]"S2$"[211][208][197][201][195][200][197][210][206]"S2$"[211][195][200][210][197][201][194][197][206]"S2$"[196][210][213][195][203]"S2$"[196][201][197][206][211][212] ";
270 PRINTZ1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$;
275 PRINTZ1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$Z1$RF$;
280 PRINTZF$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$;
285 PRINTZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZD$;
290 FORI=1TO19:PRINTYO$"                                      "YO$;:NEXT
300 PRINTZC$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$;
305 PRINTZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$;:POKE2023,125
310 GOSUB2500:X=1:GOTO100
320 POKE198,0:AL=1:MP=1:POKE214,2:POKE211,MN(MP):SYS58640:PRINTMM$(MP)
330 GETI$
340 IFI$=C3$THENMP=MP+1:GOTO380
350 IFI$=C1$THENMP=MP-1:GOTO380
360 IFI$=CHR$(13)THEN430
370 GOTO330
380 IFMP=0THENMP=1:GOTO330
390 IFMP=6THENMP=5:GOTO330
400 POKE214,2:POKE211,MN(AL):SYS58640:PRINTRN$;MN$(AL);RF$;
410 POKE214,2:POKE211,MN(MP):SYS58640:PRINTMM$(MP);
420 AL=MP:GOTO330
430 POKE214,2:POKE211,MN(AL):SYS58640:PRINTRN$;MN$(AL)
440 ONMPGOTO450,1010,1220,1450,1570
450 GOSUB2500
460 LO=1190:BE=50000:S=17:Z=14:GOSUB2540
470 POKE214,7:POKE211,7:SYS58640:PRINT"[206]AME D. [210]EZEPTS"
480 AB=0:I$="":S=7:Z=8:L=15:GOSUB2590:IFAB=1THENAB=0:GOSUB2520:GOTO320
490 IFI$="               "THEN630
500 OPEN15,8,15:OPEN2,8,2,I$+",S,R"
510 E=0:INPUT#15,E,E$
520 POKE211,7:POKE214,10:SYS58640:PRINTE$
530 IFE<>0THENPOKE198,0:CLOSE2:CLOSE15:WAIT198,1:POKE198,0:GOSUB2520:GOTO320
540 FORI=0TO18:RE$(I)="":NEXT:FORI=0TO18:INPUT#2,RE$(I):NEXT
550 CLOSE2:CLOSE15:GOSUB2520
560 NA$=I$:S=(37-LEN(I$))/2:POKE211,S-8:POKE214,4:SYS58640
570 PRINTZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$RN$" ";NA$;" "RF$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$
580 FORI=0TO18
590 POKE214,5+I:POKE211,1:SYS58640:PRINT"                                     "
600 POKE214,5+I:POKE211,1:SYS58640:PRINTRE$(I)
610 NEXT
620 GOTO320
630 FORI=0TO150:DI$(I)="":NEXT:OPEN15,8,15,"I"
640 INPUT#15,E,E$:POKE211,7:POKE214,10:SYS58640:PRINTE$
650 IFE<>0THENPOKE198,0:WAIT198,1:POKE198,0:CLOSE15:GOSUB2520:GOTO320
660 OPEN2,8,2,"#":SP=18:SE=1:Y=0
670 PRINT#15,"U1:";2;0;SP;SE:GET#2,SP$,SE$:SP=ASC(SP$+CHR$(0))
680 SE=ASC(SE$+CHR$(0))
690 FORI=0TO7:PRINT#15,"B-P:";2;2+32*I:GET#2,A$:IFA$=""THENA$=CHR$(0)
700 FT=ASC(A$)AND15
710 IFFT<>1THEN770
720 GET#2,A$,A$
730 FORJ=0TO15:GET#2,A$:IFA$=CHR$(160)THENJ=15:GOTO750
740 DI$(Y)=DI$(Y)+A$
750 NEXTJ
760 Y=Y+1
770 NEXTI:IFSP=0THENCLOSE2:CLOSE15:GOTO790
780 GOTO670
790 MP=0:PA=0:T=0:POKE198,0
800 FORI=0TO9:POKE214,7+I:POKE211,7:SYS58640:PRINT"               ":NEXT
810 FORI=0TO9:POKE214,7+I:POKE211,7:SYS58640:PRINTDI$(I+PA*10):NEXT
820 LE$="":LE=15-LEN(DI$(MP+PA*10)):FORI=1TOLE:LE$=LE$+" ":NEXT
830 POKE211,7:POKE214,7+MP:SYS58640:PRINTRN$DI$(MP+10*PA)LE$RF$:AL=MP
840 GETI$
850 IFI$=C4$THENMP=MP+1:GOTO900
860 IFI$=C2$THENMP=MP-1:GOTO900
870 IFI$=CHR$(13)THEN960
880 IFI$="_"THENGOSUB2520:GOTO320
890 GOTO840
900 IFMP>9THENMP=0:PA=PA+1:T=1
910 IFMP<0THENMP=9:PA=PA-1:T=1
920 IFPA<0THENPA=0:MP=0:T=0:GOTO820
930 IF(MP+PA*10)=YTHENMP=MP-1:GOTO900
940 IFT=1THENT=0:GOTO800
950 POKE214,7+AL:POKE211,7:SYS58640:PRINTDI$(AL+PA*10)LE$:GOTO820
960 I$=DI$(MP+PA*10)
970 FORI=0TO9:POKE214,7+I:POKE211,7:SYS58640:PRINT"               ":NEXT
980 POKE211,7:POKE214,7:SYS58640:PRINT"[206]AME D. [210]EZEPTS"
990 POKE211,7:POKE214,8:SYS58640:PRINTI$
1000 GOTO500
1010 GOSUB2500
1020 LO=1190:BE=50240:S=17:Z=8:GOSUB2540
1030 POKE214,7:POKE211,7:SYS58640:PRINT"[206]AME D. [210]EZEPTS"
1040 AB=0:I$=NA$:S=7:Z=8:L=15:GOSUB2590:IFAB=1THENAB=0:GOSUB2520:GOTO320
1050 NA$=I$
1060 OPEN15,8,15:OPEN2,8,2,NA$+",S,W"
1070 E=0:INPUT#15,E,E$
1080 IFE=63THEN1160
1090 POKE211,7:POKE214,10:SYS58640:PRINTE$
1100 IFE<>0THENCLOSE2:CLOSE15:POKE198,0:WAIT198,1:POKE198,0:GOSUB2520:GOTO320
1110 FORI=0TO18:PRINT#2,CHR$(34);RE$(I);CHR$(34);CHR$(13);:NEXT
1120 CLOSE2:CLOSE15:GOSUB2520
1130 S=(37-LEN(NA$))/2:POKE214,4:POKE211,S-8:SYS58640
1140 PRINTZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$RN$" ";NA$;" "RF$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$
1150 GOTO320
1160 POKE214,10:POKE211,7:SYS58640:PRINT"ERSETZEN J/N?"
1170 I$="":Z=10:S=21:L=1:AB=0:GOSUB2590:IFAB=1THENAB=0:I$="N"
1180 IFI$="N"THENCLOSE2:CLOSE15:GOSUB2520:GOTO320
1190 IFI$<>"J"THEN1170
1200 CLOSE2:CLOSE15:OPEN15,8,15,"S:"+NA$:OPEN2,8,2,NA$+",S,W"
1210 PRINT#15,"S:"+NA$:GOTO1110
1220 GOSUB2500
1230 LO=1190:BE=50380:S=17:Z=6:GOSUB2540
1240 POKE214,7:POKE211,7:SYS58640:PRINT"[206]AME D. [210]EZEPTS"
1250 AB=0:I$=NA$:S=7:Z=8:L=15:GOSUB2590:IFAB=1THENAB=0:GOSUB2520:GOTO320
1260 GOSUB2520
1270 NA$=I$:S=(37-LEN(NA$))/2:POKE214,4:POKE211,S-8:SYS58640
1280 PRINTZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$RN$" ";NA$;" "RF$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$ZV$
1290 Y=0:SP=0
1300 IFY<0THENY=0
1310 IFY>18THENY=18
1320 AB=0:I$=RE$(Y):S=1:Z=5+Y:L=38:GOSUB2190
1330 IFAB=0THENRE$(Y)=I$:Y=Y+1:SP=0:GOTO1300
1340 IFAB=1THENRE$(Y)=I$:GOTO320
1350 IFAB=2THENRE$(Y)=I$:Y=Y+1:GOTO1300
1360 IFAB=3THENRE$(Y)=I$:Y=Y-1:GOTO1300
1370 IFAB=4THENRE$(Y)=I$:Y=Y-1:SP=37:GOTO1300
1380 IFAB=5THENRE$(Y)=I$:Y=Y+1:SP=0:GOTO1300
1390 IFAB=6THENRE$(Y)=I$:Y=0:SP=0:GOTO1300
1400 IFAB=7THENRE$(Y)=I$:Y=0:SP=0:GOTO1410
1410 FORI=0TO18
1420 POKE211,1:POKE214,I+5:SYS58640
1430 RE$(I)="":PRINT"                                      "
1440 NEXT:GOTO1300
1450 GOSUB2500
1460 LO=1190:BE=50490:S=18:Z=8:GOSUB2540
1470 POKE198,0:WAIT198,1:GETI$:POKE198,0:IFI$="_"THENGOSUB2520:GOTO320
1480 FORI=7TO10:POKE211,7:POKE214,I:SYS58640:PRINT"                ":NEXT
1490 POKE211,7:POKE214,7:SYS58640:PRINT"OK."
1500 OPEN4,4,7
1510 PRINT#4,SPC(20)CHR$(14)NA$CHR$(15)
1520 PRINT#4,SPC(20)ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$;
1525 PRINT#4,ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$
1530 FORI=0TO18:PRINT#4,SPC(20)RE$(I):NEXT
1540 CLOSE4
1550 GOSUB2520
1560 GOTO320
1570 GOSUB2500
1580 LO=1190:BE=50640:S=17:Z=8:GOSUB2540
1590 POKE198,0:MP=1
1600 POKE211,7:POKE214,6+MP:SYS58640:PRINTRN$UD$(MP)RF$:AL=MP
1610 GETI$
1620 IFI$=C4$THENMP=MP+1:GOTO1670
1630 IFI$=C2$THENMP=MP-1:GOTO1670
1640 IFI$=CHR$(13)THENONMPGOTO1710,1930,2020,2110
1650 IFI$="_"THENGOSUB2520:GOTO320
1660 GOTO1610
1670 IFMP<1THENMP=1
1680 IFMP>4THENMP=4
1690 POKE211,7:POKE214,6+AL:SYS58640:PRINTUD$(AL)
1700 GOTO1600
1710 POKE211,0:POKE214,4:SYS58640
1720 FORI=4TO23:PRINT"                                        ";:NEXT
1730 PRINT"                                       ";:POKE2023,32
1740 POKE214,4:POKE211,0:SYS58640
1750 OPEN15,8,15:OPEN1,8,0,"$"
1760 INPUT#15,E,E$:IFE<>0THENPOKE211,0:POKE214,5:SYS58640:PRINTE$
1770 IFE<>0THENCLOSE1:CLOSE15:GOTO1900
1780 GET#1,I$,I$
1790 GET#1,I$,I$:IFST=64THENCLOSE1:CLOSE15:GOTO1900
1800 GET#1,I$,J$:PRINTASC(I$+CHR$(0))+256*ASC(J$+CHR$(0));
1810 GET#1,I$:PRINTI$;:IFI$<>""THEN1810
1820 IFPEEK(214)=22THEN1840
1830 PRINTRF$;:POKE211,0:POKE214,PEEK(214)+1:SYS58640:GOTO1790
1840 POKE211,0:POKE214,24:SYS58640:PRINTRN$"[212]ASTE DRUECKEN"RF$;
1850 POKE198,0:WAIT198,1:GETI$:POKE198,0:IFI$="_"THENCLOSE1:CLOSE15:GOTO1920
1860 POKE214,5:POKE211,0:SYS58640
1870 FORI=5TO23:PRINT"                                        ";:NEXT
1880 PRINT"                                       ";:POKE2023,32
1890 POKE214,5:POKE211,0:SYS58640:GOTO1790
1900 POKE211,0:POKE214,24:SYS58640
1905 PRINTRN$"[212]ASTE DRUECKEN"RF$;:POKE198,0:WAIT198,1
1910 POKE198,0
1920 GOSUB2520:GOTO320
1930 LO=1395:BE=50780:S=17:Z=8:GOSUB2540
1940 POKE214,12:POKE211,12:SYS58640:PRINT"[206]AME D. [210]EZEPTS"
1950 I$="":AB=0:S=12:Z=13:L=15:GOSUB2590:IFAB=1THENAB=0:GOSUB2520:GOTO320
1960 OPEN15,8,15,"S:"+I$
1970 INPUT#15,E,E$
1980 IFE<>0THENPOKE211,12:POKE214,15:SYS58640:PRINTE$
1990 IFE<>0THENPOKE198,0:WAIT198,1:POKE198,0
2000 CLOSE15
2010 GOSUB2520:GOTO320
2020 LO=1395:BE=50920:S=17:Z=11:GOSUB2540
2030 POKE214,12:POKE211,12:SYS58640:PRINT"ALTER [206]AME"
2040 I$="":AB=0:S=12:Z=13:L=15:GOSUB2590:IFAB=1THENAB=0:GOSUB2520:GOTO320
2050 N1$=I$:POKE214,15:POKE211,12:SYS58640:PRINT"NEUER [206]AME"
2060 I$="":AB=0:S=12:Z=16:L=15:GOSUB2590:IFAB=1THENAB=0:GOSUB2520:GOTO320
2070 N2$=I$
2080 OPEN15,8,15,"R:"+N2$+"="+N1$
2090 INPUT#15,E,E$:POKE211,12:POKE214,18:SYS58640:PRINTE$
2100 CLOSE15:POKE198,0:WAIT198,1:POKE198,0:GOSUB2520:GOTO320
2110 LO=1395:BE=51110:S=17:Z=6:GOSUB2540
2120 AB=0:I$="":S=20:Z=13:L=1:GOSUB2590:IFAB=1THENAB=0:GOSUB2520:GOTO320
2130 IFI$="N"THENGOSUB2520:GOTO320
2140 IFI$<>"J"THEN2120
2150 PRINTCL$C4$C4$C4$"           [195]OPYRIGHT 1987"
2160 PRINTC4$C4$"         BY  [202]ENS [215]ELLHAUSEN"
2170 PRINTC4$"         AND [205]ARTIN [210]ADETZKI"
2180 SYS64738
2190 IFLEN(I$)=LTHEN2210
2200 FORI=1TOL-LEN(I$):I$=I$+" ":NEXT
2210 L=L-1
2220 POKE211,S:POKE214,Z:SYS58640:PRINTI$
2230 IFSP<0THENAB=4:GOTO2480
2240 IFSP>LTHENAB=5:GOTO2480
2250 C=Z*40+S+SP+1024:IFPEEK(C)<128THENPOKEC,PEEK(C)+128
2260 GETG$:IFG$=""THEN2260
2270 A=ASC(G$):IF(A<>95ANDA>31ANDA<128)OR(A>191ANDA<234)ORA=160ORA=255THEN2390
2280 IFA=13THEN2480
2290 IFA=29THENSP=SP+1:POKEC,PEEK(C)-128:GOTO2230
2300 IFA=157THENSP=SP-1:POKEC,PEEK(C)-128:GOTO2230
2310 IFA=19THENAB=6:GOTO2480
2320 IFA=20THEN2410
2330 IFA=17THENAB=2:GOTO2480
2340 IFA=145THENAB=3:GOTO2480
2350 IFA=147THENAB=7:GOTO2480
2360 IFA=148THEN2460
2370 IFA=95THENAB=1:GOTO2480
2380 GOTO2230
2390 POKE211,S+SP:POKE214,Z:SYS58640
2400 PRINTG$:I$=LEFT$(I$,SP)+G$+RIGHT$(I$,L-SP):SP=SP+1:GOTO2230
2410 IFSP>1THENI$=LEFT$(I$,SP-1)+RIGHT$(I$,L+1-SP)+" "
2420 IFSP=0THEN2260
2430 IFSP=1THENI$=RIGHT$(I$,L)+" "
2440 POKE211,S:POKE214,Z:SYS58640:PRINTI$:SP=SP-1:GOTO2230
2450 I$="":FORI=1TOL+1:I$=I$+" ":NEXT:GOTO2220
2460 I$=LEFT$(LEFT$(I$,SP)+" "+RIGHT$(I$,L+1-SP),L+1)
2470 POKE211,S:POKE214,Z:SYS58640:PRINTI$:GOTO2230
2480 IFPEEK(C)>127THENPOKEC,PEEK(C)-128
2490 RETURN
2500 POKE781,4:POKE780,160:POKE91,7:POKE90,232:POKE89,195:POKE88,72:SYS828
2510 RETURN
2520 POKE781,192:POKE780,0:POKE91,195:POKE90,72:POKE89,7:POKE88,232:SYS828
2530 RETURN
2540 FORI=0TOZ-1
2550 G=BE+I*S:H=INT(G/256):POKE781,H:POKE780,G-256*H
2560 G=G+S:H=INT(G/256):POKE91,H:POKE90,G-256*H
2570 G=LO+I*40+S:H=INT(G/256):POKE89,H:POKE88,G-256*H
2580 SYS828:NEXTI:RETURN
2590 IFLEN(I$)=LTHEN2610
2600 FORI=1TOL-LEN(I$):I$=I$+" ":NEXT
2610 L=L-1
2620 POKE211,S:POKE214,Z:SYS58640:PRINTI$:SP=0
2630 IFSP<0THENSP=0
2640 IFSP>LTHENSP=L
2650 C=Z*40+S+SP+1024:IFPEEK(C)<128THENPOKEC,PEEK(C)+128
2660 GETG$:IFG$=""THEN2660
2670 A=ASC(G$):IF(A<>95ANDA>31ANDA<128)OR(A>191ANDA<234)ORA=160ORA=255THEN2770
2680 IFA=13THEN2860
2690 IFA=29THENSP=SP+1:POKEC,PEEK(C)-128:GOTO2630
2700 IFA=157THENSP=SP-1:POKEC,PEEK(C)-128:GOTO2630
2710 IFA=19THENSP=0:POKEC,PEEK(C)-128:GOTO2630
2720 IFA=20THEN2790
2730 IFA=147THEN2830
2740 IFA=148THEN2840
2750 IFA=95THENAB=1:RETURN
2760 GOTO2630
2770 POKE211,S+SP:POKE214,Z:SYS58640
2780 PRINTG$:I$=LEFT$(I$,SP)+G$+RIGHT$(I$,L-SP):SP=SP+1:GOTO2630
2790 IFSP>1THENI$=LEFT$(I$,SP-1)+RIGHT$(I$,L+1-SP)+" "
2800 IFSP=0THEN2660
2810 IFSP=1THENI$=RIGHT$(I$,L)+" "
2820 POKE211,S:POKE214,Z:SYS58640:PRINTI$:SP=SP-1:GOTO2630
2830 I$="":FORI=1TOL+1:I$=I$+" ":NEXT:GOTO2620
2840 I$=LEFT$(LEFT$(I$,SP)+" "+RIGHT$(I$,L+1-SP),L+1)
2850 POKE211,S:POKE214,Z:SYS58640:PRINTI$:GOTO2630
2860 FORI=L+1TO1STEP-1:IFMID$(I$,I,1)<>" "THENI$=LEFT$(I$,I):I=1
2870 NEXT:POKEC,PEEK(C)-128:RETURN
60000 REM NACHSPANN ===============
60010 REM * FARBCODES/STEUERCODES *
60020 DC$=CHR$(008):SL$=CHR$(014)
60030 C4$=CHR$(017):RN$=CHR$(018)
60040 HE$=CHR$(019):C3$=CHR$(029)
60050 BL$=CHR$(031):C2$=CHR$(145)
60060 RF$=CHR$(146):CL$=CHR$(147)
60070 C1$=CHR$(157)
60080 REM *** ZEICHENSATZ/GRAPHIK *
60090 S2$=CHR$(160):Z0$=CHR$(161)
60100 Z1$=CHR$(162):ZC$=CHR$(173)
60110 ZD$=CHR$(174):ZF$=CHR$(176)
60120 ZM$=CHR$(183):ZN$=CHR$(184)
60130 ZV$=CHR$(192):YO$=CHR$(221)
60140 RETURN
60150 REM ENDE