1 POKE53280,14:POKE53281,0:POKE646,1:PRINTCHR$(147);
2 IFPEEK(56)=153ANDPEEK(49153)=224THEN400
3 POKE56,153:CLR:GOSUB12:SYS50941:SYS50906,1,0:SYS50990:SYS51090:GOSUB11:GOSUB70
4 GOSUB100:SYS50774,4,4:SYS50088,32,12,"[197]DELGRAF":SYS50774,1,1
5 SYS50088,64,144,"[196]AS NOBLE [199]RAFIKPROGRAMM":SYS50088,128,160,"VON [193].[205]."
6 POKE49605,2:SYS52569,56,136,264,176
9 FORI=1TO2000:GETA$:IFA$<>""THENI=5000
10 NEXT:GOTO470
11 SYS52259,57344,54272,1024,0:RETURN
12 SYS57812"EDELGRAF.MC1",8,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
14 SYS51991,8,"EDELGRAF.MC2",39168,7:SYS65484:CLOSE8:RETURN
15 Y=64:X=88:A$="K":GOSUB19:FORI=1TO1000:NEXT
16 X=9:Y=11:T$="EDELGRAF":FORJ=1TO8
17 A$=MID$(T$,J,1):GOSUB19:NEXT:RETURN
19 GOSUB5250:SYS52948,X,Y,0,0:GOSUB5270:X=X+DX:RETURN
20 IFNOTCSTHENSYS49264,X,Y:RETURN
21 POKE49605,2:SYS49415,0,Y,319,Y:SYS49415,X,0,X,199:POKE49605,3:RETURN
30 S=-1
40 RETURN
50 IFNOTSTHEN20
60 RETURN
70 SYS52259,65024,1024,320,0:SYS52259,57280,1344,40,0:POKE49634,0:POKE49605,3
80 POKE49863,2:SYS50774,1,1:SYS51090:SYS50873,1,0:POKE49154,3:RETURN
100 SYS52259,1024,65024,320,0:SYS52259,1344,57280,40,0:POKE49154,0:RETURN
110 AN=0:FG=NOTFG:IFFGTHENAN=-1:CA=0:TR=0
120 GOTO150
130 POKE49634,0:ML=0:IFFMANDTRTHENPOKE49605,2:SYS49264,XA,YA
140 POKE49634,0:GOSUB70:IFA$=CHR$(134)THENMN=2:GOTO2280
150 FM=0:SYS50088,0,192,"[204]INIE:":GOSUB280
160 GETA$:IFA$=""THEN160
170 IFA$="C"THENCA=NOTCA:GOTO150
180 IFA$="W"THENGOSUB360:GOTO150
190 IFA$="L"THENTR=NOTTR:GOTO150
200 IFA$="F"THEN110
210 IFA$="0"ORA$="1"ORA$="2"THENPA=VAL(A$):GOTO150
220 IFA$=CHR$(134)ORA$=CHR$(133)THEN:GOSUB100:GOTO2270
230 IFA$="M"THENAN=-1:CA=-1:ML=-1:TR=-1:FG=0:GOSUB100:GOTO510
240 IFA$="A"THENGOSUB3390:GOTO140
250 IFA$=CHR$(13)THENGOSUB100:GOTO510
260 GOTO160
270 SYS51115
280 A=CA:A$="[195][193]":GOSUB340:A=NOTCA:A$="[195][197]":GOSUB340
290 A=TR:A$="[204][212]":GOSUB340:A=NOTTR:A$="[204][214]":GOSUB340
300 A=FG:A$="[198]IG":GOSUB340
310 A=ML:A$="[205][204]I":GOSUB340:A=WI:A$="[215]I":GOSUB340
320 A=0:A$="[193]TTR":GOSUB340
330 FORI=0TO2:A=(PA=I):A$=CHR$(48+I):GOSUB340:NEXT:RETURN
340 POKE49863,2:SYS50107," "
350 POKE49863,2-A:SYS50107,A$:POKE49863,2:RETURN
360 XX=X:YY=Y:X=240:Y=192:POKE49605,3:SYS50088,X,Y,"    "
370 GOSUB1560:X=XX:Y=YY:POKE49634,0
380 T=VAL(T$)*(null)/180:RX=COS(T):RY=-SIN(T)
390 WI=(T<>0):RETURN
400 PRINTCHR$(147)CHR$(14)"  [197][196][197][204][199][210][193][198]":PRINT:PRINT
420 PRINT"1 [193]LTES [194]ILD"
430 PRINT"2 [206]EUES [194]ILD"
431 PRINT"3 [205][195]-[210]OUTINEN"
440 GET A$:IFA$=""THEN440
450 IFA$="1"THEN 480
451 IFA$="3"THENGOSUB12:GOTO400
460 IF A$<>"2"THEN440
470 SYS50906,1,0:SYS50941
480 SYS51090
485 CU=1:D=8:VF=1:HF=0:ZS=2:ZX=1:ZY=1:PX=1:PY=1:BF=4
490 MN=2:CA=0:TR=-1:PA=1
500 X=160:Y=96:POKE49863,2:GOTO2270
510 GOSUB520:GOTO550
520 POKE49605,3:IFNOTLUTHEND=8
530 POKE49635,224:POKE49636,192:POKE49637,160:POKE49638,16:POKE49639,8
540 POKE49640,4:POKE49641,2:POKE49642,1:POKE49634,3:RETURN
550 POKE49605,3:POKE49634,3:IFX<0THENX=0
560 IFY<0THENY=0
570 IFX>319THENX=319
580 IFY>199THENY=199
590 IFNOTLUTHENONCUGOSUB20,30,50
610 IFSTHENONMNGOSUB1030,2420,2420,2720,40,4380,5810
620 IFLUTHENGOSUB3030
630 GETA$:IFA$=""THEN630
640 IFSTHENONMNGOSUB1030,2420,2420,2720,40,4380,5810
660 IFNOTLUTHENONCUGOSUB20,30,50
670 IFA$=CHR$(13)ANDFETHEN1020
680 FE=0:IFA$=""THENX=X+D:GOTO550
690 IFA$="[157]"THENX=X-D:GOTO550
700 IFA$="[145]"THENY=Y-D:GOTO550
710 IFA$=""THENY=Y+D:GOTO550
720 IFA$="[193]"THEN550
730 REM NEU------
740 IFA$<>CHR$(133)ANDA$<>CHR$(134)THEN760
750 ONMNGOTO130,2270,2430,2560,1520,4080,5830
760 IFA$=CHR$(136)THENS=NOTS:GOTO550
770 IFA$=CHR$(13)THEN ON MNGOTO840,2410,2410,2710,1490,4390,5820
780 IFA$=" "ORA$="[160]"THEN820
790 IFA$=CHR$(135)THENLU=NOTLU:IFNOTLUTHENSYS51090
800 IFA$=CHR$(140)THENX=XANDNOT7:Y=YANDNOT7
801 IFA$=CHR$(139)THENCS=NOTCS
810 GOTO550
820 IFD=8THEND=1:GOTO550
830 D=8:GOTO550
840 IFFMTHEN910
850 IFMLANDNOTANTHENCA=0:WI=0
860 IFANTHENAN=0:XE=X:YE=Y
870 POKE49605,2:SYS49264,X,Y
880 FM=-1:XA=X:YA=Y
890 IFMLANDNOTCATHENDX=XS-XE:DY=YS-YE:X=X+DX:Y=Y+DY
900 GOTO550
910 IFWITHENGOSUB1060:X=KX:Y=KY
920 POKE49605,2:SYS49264,XA,YA:IFMLANDCATHENXS=X:YS=Y
930 IFMLANDNOTCATHEN1130
940 SYS50774,PX,PY:SYS50873,VF,HF:POKE49154,FA
950 FM=0:POKE49605,PA:SYS49415,XA,YA,X,Y:POKE49605,3:IFCATHENX=XA:Y=YA
960 SYS50774,1,1:POKE49154,0
970 IFFGTHENFE=-1
980 IFNOTTRTHEN880
990 GOTO550
1020 XA=XE:YA=YE:POKE49605,2:SYS49264,X,Y:POKE631,133:POKE198,1:FG=0:GOTO920
1030 IFNOTFMTHENRETURN
1040 KX=X:KY=Y:IFNOTWITHEN1100
1050 GOSUB1060:GOTO1100
1060 DX=X-XA:DY=Y-YA:KX=DX*RX-DY*RY+XA:KY=DY*RX+DX*RY+YA:KX=INT(KX+.5)
1070 KY=INT(KY+.5):IFKX<0ORKY<0THENKX=XA:KY=YA
1080 IFKX>319ORKY>199THENKX=XA:KY=YA
1090 RETURN
1100 POKE49605,2:SYS51454,XA,YA,KX,KY:IFFGTHENGOSUB1270
1110 POKE49605,3:RETURN
1120 POKE49605,2:SYS51454,XA,YA,X,Y:POKE49605,3:RETURN
1130 BX=XA-XE:BY=YA-YE:AX=X-XS:AY=Y-YS
1140 XA=XE:YA=YE:POKE49605,3:IFLUTHENSYS51090
1150 GOSUB70:POKE49634,0:SYS50088,0,192,"[193]NZAHL:      [215]INKEL:      "
1160 X=64:Y=192:GOSUB1560:N=VAL(T$):X=168:GOSUB370:GOSUB100:X=XS:Y=YS
1170 POKE49605,PA:N=INT(N):IFN<1THEN1230
1180 SYS50774,PX,PY:SYS50873,VF,HF:POKE49154,FA
1190 FORI=1TON:XA=XA+BX:YA=YA+BY:X=X+AX:Y=Y+AY:IFWITHENGOSUB1060:X=KX:Y=KY
1200 IFX<0ORY<0ORXA<0ORYA<0ORX>319ORXA>319ORY>199ORYA>199THENI=N:GOTO1220
1210 SYS49415,XA,YA,X,Y
1220 NEXT:SYS50774,1,1:POKE49154,0
1230 ML=0:WI=0:GOTO140
1240 FK=1:POKE49605,3:GOTO550
1250 IF(XA=XE)AND(YA=YE)THEN1120
1260 POKE49605,2
1270 IFXE<>XAORYE<>YATHENSYS51454,XE,YE,KX,KY
1280 RETURN
1290 IFFK<>5THENFK=5:GOTO870
1300 FK=1:POKE49605,1:GOSUB1270:GOTO550
1310 IFNOTFMTHENRETURN
1320 GOSUB1370:POKE49605,2:SYS49264,XA,YA
1330 SYS51470,XA,YA,X,KY:POKE49605,3:RETURN
1340 IFNOTFMTHEN860
1350 GOSUB1370:POKE49605,2:SYS49264,XA,YA:SYS50774,PX,PY:SYS50873,VF,HF
1351 POKE49154,FA
1360 FM=0:POKE49605,PA:SYS51470,XA,YA,X,KY:SYS50774,1,1:POKE49154,0:GOTO550
1370 KY=Y:IFQATHENKY=SGN(Y-YA)*ABS(X-XA)+YA:IFKY<0ORKY>199THENKY=YA
1380 RETURN
1390 IFNOTFMTHENFM=-1:GOTO870
1400 POKE49605,2:SYS49264,XA,YA
1410 FM=0:IF(ABS(XA-X)AND255)=0THEN550
1420 SYS50774,PX,PY:SYS50873,VF,HF:POKE49154,FA
1430 POKE49605,PA:SYS51710,XA,YA,ABS(XA-X)AND255:POKE49605,3:SYS50774,1,1
1431 POKE49154,0:GOTO550
1440 IFNOTFMOR((ABS(X-XA)AND255)=0)THENRETURN
1441 POKE49605,2:SYS51710,XA,YA,ABS(X-XA)AND255:POKE49605,3
1450 RETURN
1460 POKE49635,255:POKE49642,255
1470 FORI=49636TO49641:POKEI,129:NEXT:RETURN
1480 SYS49264,256*PEEK(50020)+PEEK(50019),PEEK(50021):RETURN
1490 SYS50761,RI,DR:POKE49634,TA:POKE49863,ZS:SYS50774,ZX,ZY
1491 SYS50873,VF,HF:POKE49154,0:IFLUTHENSYS51090
1500 IFX<0ORY<0ORX>319ORY>199THEN2880
1510 TX=-1:GOSUB1560:TX=0:POKE49154,0
1520 IFA$=CHR$(133)THENGOTO2880
1530 IFA$=CHR$(134)THENSYS50761,0,0:GOTO2270
1540 IFYFTHENX=X+DX:GOTO1500
1550 Y=Y-DY:GOTO1500
1560 POKE49634,3:T$=""
1570 A=PEEK(50022):DD=8:IFA=3ORA=0THENDD=-DD
1580 YF=(AAND1)=1:DY=DD*PEEK(49784)
1590 DX=DD*PEEK(49783)
1600 SYS50088,X,Y,T$
1610 GOSUB1460:GOSUB1480
1620 GETA$:IFA$=""THEN1620
1630 GOSUB1480
1640 IFA$<>CHR$(20)THEN1720
1650 IFT$=""THEN1610
1660 A$=RIGHT$(T$,1):T$=LEFT$(T$,LEN(T$)-1)
1670 XL=PEEK(50019):XH=PEEK(50020):YL=PEEK(50021)
1680 IFYFTHENYL=YL+DY:GOTO1700
1690 KX=XL+256*XH+DX:XL=KXAND255:XH=INT(KX/256)
1700 GOSUB1710:SYS50107,A$:GOSUB1710:GOTO1610
1710 POKE50019,XL:POKE50020,XH:POKE50021,YL:RETURN
1720 IFNOT(A$=""ORA$="[157]"ORA$="[145]"ORA$="")THEN1770
1730 SYS50088,X,Y,T$:IFA$=""THENX=X+1:GOTO1600
1740 IFA$="[157]"THENX=X-1:GOTO1600
1750 IFA$=""THENY=Y+1:GOTO1600
1760 Y=Y-1:GOTO1600
1770 IFA$=CHR$(13)ORA$=CHR$(133)ORA$=CHR$(134)THEN1790
1780 SYS50107,A$:T$=T$+A$:GOTO1610
1790 SYS50088,X,Y,T$
1791 IFA$<>CHR$(13)THENRETURN
1792 IFTXTHENPOKE49154,FA
1800 POKE49634,TA:SYS50088,X,Y,T$
1810 RETURN
1820 IFNOTFMTHEN870
1830 GOSUB1370:POKE49605,2:SYS49264,XA,YA
1840 FM=0:POKE49605,FF:SYS52569,XA,YA,X,KY:GOTO550
1850 SYS49264,X,Y:POKE49605,2:SYS51470,X,Y,X+39,Y+24:POKE49605,3:RETURN
1860 GOSUB1870:GOTO1940
1870 KX=(XANDNOT7)-16:KY=(YANDNOT7)-8
1880 IFKX<0THENKX=KX+8:GOTO1880
1890 IFKX>280THENKX=KX-8:GOTO1890
1900 IFKY<0THENKY=KY+8
1910 IFKY>176THENKY=KY-8
1920 SYS39468,KX,KY:SYS52750
1930 XC=X-KX:YC=Y-KY:RETURN
1940 POKE49605,2
1950 IFXC<0THENXC=0
1960 IFYC<0THENYC=0
1970 IFXC>39THENXC=39
1980 IFYC>23THENYC=23
1990 AD=40*YC+XC+1024:Z=PEEK(AD)
2000 POKEAD,Z+2
2010 GETA$:IFA$=""THEN2010
2020 POKEAD,Z
2030 IFA$=""THENXC=XC+1:GOTO1950
2040 IFA$="[157]"THENXC=XC-1:GOTO1950
2050 IFA$="[145]"THENYC=YC-1:GOTO1950
2060 IFA$=""THENYC=YC+1:GOTO1950
2070 IFA$=CHR$(13)THENX=KX+XC:Y=KY+YC:SYS51090:GOTO2270
2080 IFA$<>" "THEN1950
2090 Z=PEEK(AD):POKEAD,(ZAND254)OR((Z+1)AND1):SYS49264,KX+XC,KY+YC:GOTO1950
2100 SYS51090:SYS52706:GOTO550
2110 SYS49264,X,Y:POKE49605,2:SYS51470,XA,YA,X,Y:POKE49605,3:RETURN
2120 SYS52883,XA,YA,X,Y:POKE49605,3:FM=1:GOTO550
2130 SYS39936,XA,YA,X,Y:POKE49605,3:FM=1:GOTO550
2140 DZ=DZ-8:AZ=AZ-1
2150 X=XANDNOT7:Y=YANDNOT7:KX=X+DZ:KY=Y+DZ
2160 IFKX>319ORKY>199THEN2140
2170 POKE49605,2:SYS51470,X,Y,KX,KY:POKE49605,3:RETURN
2180 GOSUB2150
2190 IFLUTHENGOSUB3030
2200 GETA$:IFA$=""THEN2200
2210 GOSUB2150
2220 IFA$=""THENAZ=AZ+1:DZ=DZ+8:GOTO2180
2230 IF(A$=""ORA$="[157]")ANDAZ<>0THENAZ=AZ-1:DZ=DZ-8:GOTO2180
2240 IFA$=CHR$(13)THENSYS51090:SYS40386,X,Y,AZ:XA=X:YA=Y:X=KX:Y=KY:GOTO2760
2250 IFA$=CHR$(133)ORA$=CHR$(134)THENCU=1:GOTO740
2260 GOTO2180
2270 MN=2:FM=0:GOSUB70:CU=1
2280 SYS50088,0,192,"[208]KT [204]IN [210]-[197]CK [203]R [194]LOCK [207]BJ [212]EXT [198]UELL [211]O"
2290 GETA$:IFA$=""THEN2290
2300 IFA$="L"THENGOSUB100:MN=1:GOTO140
2310 IFA$="K"THENMN=3:FK=1:MN$="[203]REIS:":GOSUB100:GOTO2450
2320 IFA$="R"THENMN=3:FK=2:MN$="[210]ECHTECK:":GOSUB100:GOTO2450
2330 IFA$="B"THENGOSUB100:GOTO2580
2340 IFA$="T"THENGOSUB100:GOTO2880
2350 IFA$="P"THENFK=3:GOSUB100:GOTO510
2360 IFA$="F"THENFK=4:GOSUB100:GOTO510
2370 IFA$="S"THENGOSUB100:GOTO3640
2380 IFA$="O"THENGOSUB100:GOTO4120
2390 GOTO2290
2400 SYS50873,VF,HF:POKE49154,FA:SYS50524,X,Y:POKE49154,0:GOTO550
2410 ONFKGOTO1390,1340,1860,2400
2420 ONFKGOTO1440,1310,40,40
2430 IFFMTHENPOKE49605,2:SYS49264,XA,YA:FM=0
2440 IFA$=CHR$(134)THENGOTO2270
2450 POKE49634,0:GOSUB70
2460 SYS50088,0,192,MN$:GOSUB320
2470 IFFK=2THENA=QA:A$="[209]UADRAT":GOSUB340
2480 GETA$:IFA$=""THEN2480
2490 IFA$="0"ORA$="1"ORA$="2"THENPA=VAL(A$):GOTO2460
2500 IFA$=CHR$(133)ORA$=CHR$(134)THENGOSUB100:GOTO2270
2510 IFFK=1THEN 2530
2520 IFA$="Q"THENQA=NOTQA:GOTO2460
2530 IFA$="A"THENGOSUB3390:GOTO2450
2540 IFA$<>CHR$(13)THEN2460
2550 GOSUB100:GOTO510
2560 IFFMTHENPOKE49605,2:SYS49264,XA,YA:FM=0
2570 IFA$=CHR$(134)THENGOTO2270
2580 MN=4:GOSUB70:POKE49634,0:CU=1
2590 SYS50088,0,192,"[194]LOCK: [209]UADR [204]OESCH [198]UELL [201]NV [196]REH [211]PIEG"
2600 SYS50088,48,192,"":A=QA:A$="[209]UADR":GOSUB340
2610 GETA$:IFA$=""THEN2610
2620 IFA$="Q"THENQA=NOTQA:GOTO2600
2630 IFA$="L"THENFF=0:GOTO2700
2640 IFA$="F"THENFF=1:GOTO2700
2650 IFA$="I"THENFF=2:GOTO2700
2660 IFA$=CHR$(133)ORA$=CHR$(134)THENGOSUB100:GOTO2270
2670 IFA$="D"THENFK=2:AZ=0:DZ=7:D=8:GOSUB100:CU=2:GOTO510
2680 IFA$="S"THENFK=3:GOSUB100:GOTO510
2690 GOTO2600
2700 FK=1:GOSUB100:GOTO510
2710 ONFKGOTO1820,2180,2730
2720 ONFKGOTO1310,2150,1310
2730 IFNOTFMTHEN870
2740 IFLUTHENSYS51090
2750 GOSUB1370:POKE49605,2:SYS49264,XA,YA
2760 POKE49605,2:GOSUB1330
2770 GOSUB70:POKE49634,0
2780 SYS50088,0,192,"[211]PIEGELN: [204]I/[210]E [207]B/[213]NT "
2790 IFCU=2THENSYS50107,"[196]REHEN"
2800 GETA$:IFA$=""THEN2800
2810 IF A$="L"THENGOSUB2860:SYS39936,XA,YA,X,KY:GOTO2760
2820 IF A$="O"THENGOSUB2860:SYS52883,XA,YA,X,KY:GOTO2760
2830 IF (A$="D"ORA$=CHR$(13))ANDCU=2THENGOSUB2860:SYS40386,XA,YA,AZ:GOTO2760
2840 IFA$=CHR$(133)ORA$=CHR$(134)THEN2870
2850 GOTO2800
2860 GOSUB100:POKE49605,2:GOSUB1330:GOTO70
2870 GOSUB100:POKE49605,2:GOSUB1330:FM=0:CU=1:GOTO2560
2880 MN=5:POKE49634,0:POKE49863,2:GOSUB70
2890 SYS50761,0,0
2900 SYS50088,0,192,"[212]EXT: [193]TTR 0 1 2 3 [210]ICHTUNG   [196]REHUNG [193]"
2910 POKE49863,3:SYS50088,(11+TA+TA)*8,192,CHR$(TA+48)
2920 SYS50761,0,(RI+3)AND3:SYS50088,224,192,"^"
2930 SYS50761,0,DR:SYS50088,304,192,"[193]"
2940 POKE49863,2:SYS50761,0,0
2950 GETA$:IFA$=""THEN2950
2960 IFA$="R"THENRI=(RI-1)AND3:GOTO2890
2970 IFA$="D"THENDR=(DR-1)AND3:GOTO2890
2980 IFA$>="0"ANDA$<"4"THENTA=VAL(A$):GOTO2890
2990 IFA$=CHR$(13)THENGOSUB100:GOTO510
3000 IFA$=CHR$(133)ORA$=CHR$(134)THENSYS50761,0,0:GOSUB100:GOTO2270
3010 IFA$="A"THENGOSUB3390:GOTO2880
3020 GOTO2950
3030 GOSUB1870
3040 AD=40*YC+XC+1024:Z=PEEK(AD)
3050 POKEAD,Z+2:RETURN
3060 GETA$:IFA$=""THEN3060
3070 A=VAL(A$):IFA<1ORA>2THEN3060
3080 RETURN
3090 A=(A+1)AND1:Q=53248+1024*A:POKE49605,2
3100 ZA=57344+4*320+80:YA=31:XA=79
3110 FORJ=1TO2:ZL=ZA:FORI=1TO4:Z=ZL:SYS51470,XA,YA,XA+33,YA+33:FORK=1TO4
3120 SYS52259,Z,Q,32,0:Q=Q+32:Z=Z+320:NEXT
3130 XA=XA+40:ZL=ZL+40:NEXT:XA=79:ZA=ZA+320*5:YA=YA+40:NEXT
3140 RETURN
3150 GOSUB70
3160 POKE49634,0:SYS50088,0,192,"[199]RAFIK: [211]I [200]O [215]E [204]OE  [218]SATZ:  [197]DIT [193]KTIV"
3170 GETA$:IFA$=""THEN3170
3180 IFA$="S"THENGOSUB100:SYS50990:GOTO3150
3190 IFA$="H"THENGOSUB100:SYS51002:GOTO3150
3200 IFA$="W"THENGOSUB100:SYS51063:GOTO3150
3210 IFA$="L"THENGOSUB100:SYS50906,1,0:SYS50941:GOTO3150
3220 IFA$="E"THENGOSUB3270:GOSUB3280:GOSUB3310:GOTO3150
3230 IFA$="A"THENGOSUB3270:GOSUB3060:GOSUB100:GOSUB3090:GOTO3150
3240 IFA$=CHR$(133)THENGOSUB100:GOTO3640
3250 IFA$=CHR$(134)THEN2280
3260 GOTO3170
3270 POKE49863,3:SYS50088,224,192,"?":POKE49863,2:RETURN
3280 GETA$:IFA$=""THEN3280
3290 A=VAL(A$):IFA<0ORA>7THEN3280
3300 RETURN
3310 IFA<4THENRO=1:Q=53248+1024*(AAND6)
3320 IFA>3THENRO=0:Q=53248+1024*INT((AAND3)/2)
3330 SYS50906,1,0:SYS50941:POKE49605,2
3340 ZA=57344+4*320+80:YA=31:XA=79
3350 FORJ=1TO2:ZL=ZA:FORI=1TO4:Z=ZL:SYS51470,XA,YA,XA+33,YA+33:FORK=1TO4
3360 SYS52259,Q,Z,32,RO:Q=Q+32:Z=Z+320:NEXT
3370 XA=XA+40:ZL=ZL+40:NEXT:XA=79:ZA=ZA+320*5:YA=YA+40:NEXT
3380 RETURN
3390 GOSUB100:PRINTCHR$(147):SYS51115:GF=0:PRINTCHR$(14)
3400 PRINTCHR$(147)
3410 PRINT"  [214]ORDERGRUNDFARBE : "VF
3420 PRINT"  [200]INTERGRUNDFARBE : "HF
3430 PRINT"  [198]ARBATTRIBUT     : "FA
3440 PRINT"  [199]LOBALE [198]ARBE":PRINT
3450 PRINT"  [208]UNKTGROESSE     : "PX;","PY
3460 PRINT"  [194]UCHSTABENGROESSE: "ZX;","ZY:PRINT
3470 PRINT"  [218]EICHENSATZ      : "ZS:PRINT
3500 GETA$:IFA$=""THEN3500
3510 IFA$="V"THENYK=1:GOSUB3630:INPUTVF:GOTO3400
3520 IFA$="H"THENYK=2:GOSUB3630:INPUTHF:GOTO3400
3530 IFA$="F"THENYK=3:GOSUB3630:INPUTFA:GOTO3400
3540 IFA$="G"THENGF=-1:GOTO3400
3550 IFA$="P"THENYK=6:GOSUB3630:INPUTPX,PY:GOTO3400
3560 IFA$="B"THENYK=7:GOSUB3630:INPUTZX,ZY:GOTO3400
3570 IFA$=CHR$(13)THEN3610
3580 IFA$="Z"THENYK=9:GOSUB3630:INPUTZS:GOTO3400
3590 IFA$="C"THENCS=NOTCS:GOTO3400
3600 GOTO3500
3610 SYS51090:IFGFTHENSYS50906,VF,HF
3620 GOTO70
3630 POKE782,20:POKE781,YK:POKE783,PEEK(783)AND254:SYS65520:RETURN
3640 GOSUB70
3650 SYS50088,0,192,"[211]PEICHER [198]LOPPY [196]RUCK [205]USTER [195]OLOR [193]TTR":CU=1
3660 GETA$:IFA$=""THEN3660
3670 IFA$="S"THEN3160
3680 IFA$="F"THEN3740
3690 IFA$="M"THENGOSUB100:GOTO5280
3700 IFA$="A"THENGOSUB3390:GOTO3650
3701 IFA$="D"THENGOSUB100:GOTO3731
3710 IFA$="C"THENMN=7:CU=2:GOSUB1460:GOSUB100:GOTO550
3720 IFA$=CHR$(133)ORA$=CHR$(134)THENGOSUB100:GOTO2270
3730 GOTO3660
3731 GOSUB70:SYS50088,0,192,"[196]RUCK: [196]RUCKEN [212]REIBER                  "
3732 GETA$:IFA$=""THEN3732
3733 IFA$="D"THENGOSUB100:SYS39168:GOTO3640
3734 IFA$=CHR$(134)THENGOSUB100:GOTO2270
3735 IFA$<>"T"THENGOSUB100:GOTO3640
3736 XX=X:YY=Y:Y=192:X=184:GOSUB1560
3737 X=XX:Y=YY:SYS51991,8,T$,39168,1:SYS65484:CLOSE8:GOSUB100:GOTO3731
3740 B=-1:GR=-1:C=-1
3750 SYS50088,0,192,""
3760 A=B:A$="[204]ADEN":GOSUB350:A=NOTB:A$="[211]PEICHERN":GOSUB340
3770 SYS50107," [199]RAFIK:":IFNOTGRTHENSYS50107," [207][198] [205][198]":GOTO3790
3780 A=C:A$="[207][198]":GOSUB340:A=NOTC:A$="[205][198]":GOSUB340
3790 SYS50107," [218]SATZ:":IFGRTHENSYS50107," 1 2":GOTO3810
3800 A=C:A$="1":GOSUB340:A=NOTC:A$="2":GOSUB340
3810 GETA$:IFA$=""THEN3810
3820 IFA$="L"THENB=-1:GOTO3750
3830 IFA$="S"THENB=0:GOTO3750
3840 IFA$="O"THENC=-1:GR=-1:GOTO3750
3850 IFA$="M"THENC=0:GR=-1:GOTO3750
3860 IFA$="1"THENC=-1:GR=0:GOTO3750
3870 IFA$="2"THENC=0:GR=0:GOTO3750
3880 IFA$=CHR$(133)THENGOSUB100:GOTO3640
3890 IFA$=CHR$(134)THENGOTO2280
3900 IFA$<>CHR$(13)THEN3810
3910 GOSUB100:GOSUB70:SYS50088,0,192,""
3920 A$="[211]PEICHERN ":IFBTHENA$="[204]ADEN "
3930 SYS50107,A$:A$="[218]EICHENSATZ ":IFGRTHENA$="[199]RAFIK ":SYS50107,A$:GOTO3960
3940 SYS50107,A$:A$="2":IFCTHENA$="1"
3950 GOTO3970
3960 A$="[205][198]":IFCTHENA$="[207][198]"
3970 SYS50107,A$+":"
3980 XX=X:YY=Y:X=256*PEEK(50020)+PEEK(50019):Y=PEEK(50021)
3990 SYS50107,"                   "
4000 POKE49605,3:GOSUB1560:X=XX:Y=YY
4010 GOSUB100:N=-GR-GR-B+1
4020 ONNGOSUB4040,4050,4060,4070
4030 SYS65484:CLOSE8:GOSUB70:GOTO3750
4040 SYS52122,8,T$+",P,W",54272+C*1024,4:RETURN
4050 SYS51991,8,T$,54272+C*1024,4:RETURN
4060 SYS52162,8,T$+",P,W",1+C,0:RETURN
4070 SYS52030,8,T$,1+C,0:RETURN
4080 IFA$<>CHR$(133)THEN4110
4090 IFFK<4THEN4120
4100 GOTO4560
4110 GOTO2270
4120 FM=0:GOSUB70:SYS50088,0,192,"[207]BJEKT: [205]ARK [215]AHL [194]EW [203]OP [199]RAF-[215]E [193]UFN [204]":MN=6
4130 CU=1
4140 GETA$:IFA$=""THEN4140
4150 IFA$="M"THENAN=-1:FK=1:QA=0:GOSUB100:GOTO510
4160 IFA$="K"THENGOSUB100:GOTO4560
4170 IFA$="G"THEN4240
4180 IFA$="B"THENGOSUB4250:FK=3:GOSUB100:GOTO510
4190 IFA$="A"THEN4970
4200 IFA$="W"THEN5030
4210 IFA$="L"THEN5100
4220 IFA$=CHR$(133)ORA$=CHR$(134)THENGOSUB100:GOTO2270
4230 GOTO4140
4240 GOSUB100:SYS51063:POKE40959,PEEK(40959)+64*SGN(200-PEEK(40959)):GOTO4120
4250 IFPEEK(40959)<>224THENCU=3
4260 RETURN
4270 IFNOTFMTHEN860
4280 POKE49605,2:SYS49264,XA,YA:SYS52569,XA,YA,X,Y
4290 FK=2:XS=X:YS=Y:X=XE:Y=YE:GOTO550
4300 GOSUB4440:IFAUTHEN550
4310 A=-(PEEK(40959)=224):SYS52948,X,Y,A,0:FORI=0TO5
4320 POKE40753+I,PEEK(53002+I):NEXT:POKE40959,224:GOTO4120
4330 GOSUB4440:IFAUTHEN550
4340 XE=X:YE=Y:SYS52948,X,Y,0,OA:FK=6:GOTO550
4350 SYS52948,X,Y,0,1:GOTO550
4360 GOSUB4440:IFNOTAUTHENSYS52948,X,Y,0,OA
4370 GOTO550
4380 ONFKGOTO1310,40,4400,4400,4400,4400,40
4390 ONFKGOTO4270,4480,4300,4360,4330,4880,5120
4400 GOSUB4440:IFAUTHENONCU-LUGOTO40,40,20,40
4410 IFPEEK(40959)<>224THENSYS52948,X,Y,0,3:RETURN
4420 POKE49605,2
4430 SYS51470,XX,YY,KX,KY:POKE49605,3:RETURN
4440 XX=X-PEEK(40759):YY=Y-PEEK(40760)
4450 KX=XX+256*(PEEK(40757)-PEEK(40754))+PEEK(40756)-PEEK(40753)
4460 KY=YY+PEEK(40758)-PEEK(40755)
4470 AU=XX<0ORYY<0ORKX>319ORKY>199:RETURN
4480 IFXE>XSTHENA=XE:XE=XS:XS=A
4490 IFYE>YSTHENA=YE:YE=YS:YS=A
4500 IFX<XEORX>XSOR(X-XE)>255THEN550
4510 IFY<YEORY>YSTHEN550
4520 POKE49605,2:SYS52569,XE,YE,XS,YS
4530 POKE40753,XEAND255:POKE40754,INT(XE/256):POKE40755,YE
4540 POKE40756,XSAND255:POKE40757,INT(XS/256):POKE40758,YS
4550 POKE40759,X-XE:POKE40760,Y-YE:POKE40959,224:GOTO4120
4560 GOSUB70:IFPEEK(40959)<>224THENCU=3
4570 POKE49634,0
4580 SYS50088,0,192,"[203]OPIE:":FORI=0TO3:A=(OA=I):A$=CHR$(48+I):GOSUB340:NEXT
4590 SYS50107," [205][203] [206]EB [201]NV [196]R [204][210] [207][213]"
4600 GETA$:IFA$=""THEN4600
4610 IFA$="I"THEN4720
4620 IFA$="L"THEN4740
4630 IFA$="O"THEN4770
4640 IFA$=CHR$(13)THENGOSUB100:FK=4:GOTO510
4650 IFA$="D"THEN4800
4660 IFA$="M"THENGOSUB100:FK=5:GOTO510
4670 IFA$="N"THENCU=1:GOSUB100:FK=7:GOTO510
4680 IFA$>="0"ANDA$<"4"THENOA=VAL(A$):GOTO4570
4690 IFA$=CHR$(133)THENGOSUB100:GOTO4120
4700 IFA$=CHR$(134)THENGOSUB100:GOTO2270
4710 GOTO4600
4720 IFPEEK(40959)<>224THEN4600
4730 GOSUB100:GOSUB4940:POKE49605,2:SYS52569,XE,YE,XS,YS:GOTO4560
4740 IFPEEK(40959)<>224THEN4600
4750 GOSUB100:GOSUB4940:SYS39936,XE,YE,XS,YS
4760 POKE40759,XS-XE-DX:GOTO4560
4770 IFPEEK(40959)<>224THEN4600
4780 GOSUB100:GOSUB4940:SYS52883,XE,YE,XS,YS
4790 POKE40760,YS-YE-DY:GOTO4560
4800 IFPEEK(40959)<>224THEN4600
4810 GOSUB100:GOSUB4940:A=INT((XS-XE)/8):B=INT((YS-YE)/8)
4811 IF((YEANDNOT7)+XS-XE)>199THEN4560
4820 IFB>ATHENA=B
4830 XE=XEANDNOT7:YE=YEANDNOT7
4840 SYS52948,XE+DX,YE+DY,1,0:FORI=0TO2:POKE40753+I,PEEK(53002+I):NEXT
4850 XS=XE+A*8+7:YS=YE+A*8+7
4860 POKE40758,YS:POKE40756,XSAND255:POKE40757,INT(XS/256)
4870 SYS40386,XE,YE,A:A=DX:DX=XS-XE-DY:DY=A:POKE40759,DX:POKE40760,DY:GOTO4560
4880 GOSUB4440:IFAUTHEN550
4890 GOSUB70:SYS50088,0,192,"[193]NZAHL:       "
4900 XX=X:YY=Y:X=64:Y=192:GOSUB1560:AZ=VAL(T$):X=XX:Y=YY:GOSUB100
4910 DX=X-XE:DY=Y-YE:FORI=1TOAZ:GOSUB4440:IFAUTTHENI=AZ:GOTO4930
4920 SYS52948,X,Y,0,OA:X=X+DX:Y=Y+DY
4930 NEXT:X=XE:Y=YE:GOTO4560
4940 XE=256*PEEK(40754)+PEEK(40753):YE=PEEK(40755)
4950 XS=256*PEEK(40757)+PEEK(40756):YS=PEEK(40758)
4960 DX=PEEK(40759):DY=PEEK(40760):RETURN
4970 POKE49634,0:POKE49863,3:SYS50088,312,192," "
4980 GETA$:IFA$=""THEN4980
4990 SYS50088,312,192,A$
5000 POKE780,ASC(A$):SYS49989:AD=54272+8*PEEK(780)
5010 FORI=0TO7:SYS51238,AD+I,PEEK(40753+I):NEXT
5020 POKE49863,2:GOSUB100:GOTO4120
5030 GOSUB100:SYS51063:GOSUB70:SYS50088,0,192,"[215]AHL: "
5040 POKE49863,3:SYS50107," "
5050 GETA$:IFA$=""THEN5050
5060 SYS50088,48,192,A$
5070 POKE780,ASC(A$):SYS49989:AD=54272+8*PEEK(780)
5080 FORI=0TO7:SYS52386,AD+I,A:POKE40753+I,A:NEXT:POKE40959,224
5090 POKE49863,2:GOTO4240
5100 IFPEEK(40959)<>224THEN4140
5110 GOSUB100:GOSUB4940:POKE49605,0:SYS52569,XE,YE,XS,YS:GOTO4120
5120 T$="":X1=X:Y1=Y
5130 SYS50088,X,Y,"[165]"
5140 GETA$:IFA$=""THEN5140
5150 SYS50088,X,Y,"[165]"
5160 IFA$<>CHR$(20)THEN5200
5170 IFT$=""THEN5130
5180 A$=RIGHT$(T$,1):T$=LEFT$(T$,LEN(T$)-1)
5190 GOSUB5250:GOSUB5270:X=X-DX-1:SYS52948,X,Y,0,3:GOTO5130
5200 IFA$=CHR$(13)ORA$=CHR$(133)THENX=X1:Y=Y1:GOTO4560
5210 IFA$=CHR$(134)THENX=X1:Y=Y1:GOTO2270
5230 GOSUB5250:GOSUB4440:IFAUTHEN5130
5231 T$=T$+A$
5240 SYS52948,X,Y,0,OA:GOSUB5270:X=X+DX+1:GOTO5130
5250 POKE780,ASC(A$):SYS49989:AD=54272+8*PEEK(780)
5260 FORI=0TO7:SYS52386,AD+I,A:POKE40753+I,A:NEXT:POKE40959,160:RETURN
5270 DX=256*(PEEK(40757)-PEEK(40754))+PEEK(40756)-PEEK(40753):RETURN
5280 GOSUB70
5290 SYS50088,0,192,"[205]USTER: [211]ETZEN  [215]AHL: [194]LOCK [218]EICHEN"
5300 GETA$:IFA$=""THEN5300
5310 IFA$="B"THEN5390
5320 IFA$="Z"THEN5620
5330 IFA$="S"THEN5370
5340 IFA$=CHR$(133)THENGOSUB100:GOTO3640
5350 IFA$=CHR$(134)THENGOSUB100:GOTO2270
5360 GOTO5300
5370 GOSUB100:IFMFTHENSYS51303,BM:GOTO5280
5380 POKE49863,ZF:SYS51179,ZC:POKE49863,2:GOTO5280
5390 GOSUB100:SYS50990:POKE49605,1:SYS50941
5400 SYS50088,0,192,"[194]LOCKFUELLMUSTER (4-7):    "
5410 POKE49863,3:SYS50088,192,192,CHR$(BF+48):POKE49863,2
5420 RO=0:A=BFAND3:Q=53248+1024*INT(A/2):GOSUB3340
5430 IFBFAND1THENSYS50906,0,1:GOTO5450
5440 SYS50906,1,0
5450 GETA$:IFA$=""THEN5450
5460 IFA$=CHR$(133)THENSYS51002:GOSUB70:GOTO5290
5470 IFA$=CHR$(134)THENSYS51002:GOTO2270
5480 IFA$=CHR$(13)THENGOSUB5500:BM=8*(BFAND3)+4*Z+SP:SYS51002:MF=-1:GOTO2270
5490 BF=(ASC(A$)AND3)+4:GOTO5400
5500 Z=0:SP=0
5510 GOSUB5600
5520 GETA$:IFA$=""THEN5520
5530 GOSUB5600
5540 IFA$=""THENSP=SP+1:IFSP>3THENSP=3
5550 IFA$="[157]"THENSP=SP-1:IFSP<0THENSP=0
5560 IFA$=""THENZ=Z+1:IFZ>1THENZ=1
5570 IFA$="[145]"THENZ=Z-1:IFZ<0THENZ=0
5580 IFA$=CHR$(13)THENRETURN
5590 GOTO5510
5600 XX=80+40*SP:YY=32+40*Z:POKE49605,2
5610 SYS52569,XX+8,YY+8,XX+23,YY+23:RETURN
5620 GOSUB100:SYS50990:POKE49605,1:A=ZF
5630 GOSUB3310:ZF=A:SYS50088,0,192,"[218]EICHENFUELLMUSTER (0-7):     "
5640 POKE49863,3:SYS50088,208,192,CHR$(ZF+48):POKE49863,2
5650 IFAAND1THENSYS50906,0,1:GOTO5660
5660 GETA$:IFA$=""THEN5660
5670 IFA$=CHR$(133)ORA$=CHR$(134)THEN5460
5680 IFA$<>CHR$(13)THENA=VAL(A$)AND7:GOTO5630
5690 GOSUB5500:ZC=64*Z+16*SP:SYS50774,1,1
5700 Z=0:SP=0
5710 GOSUB5800
5720 GETA$:IFA$=""THEN5720
5730 GOSUB5800
5740 IFA$=""THENSP=SP+1:IFSP>3THENSP=3
5750 IFA$="[157]"THENSP=SP-1:IFSP<0THENSP=0
5760 IFA$=""THENZ=Z+1:IFZ>3THENZ=3
5770 IFA$="[145]"THENZ=Z-1:IFZ<0THENZ=0
5780 IFA$=CHR$(13)THENZC=ZC+4*Z+SP:SYS51002:MF=0:GOTO2270
5790 GOTO5710
5800 POKE49605,2:SYS52569,XX+8*SP,YY+8*Z,XX+8*SP+7,YY+8*Z+7:RETURN
5810 SYS49264,XANDNOT7,YANDNOT7:RETURN
5820 SYS50873,VF,HF:POKE49154,FA:SYS51075,X,Y:POKE49154,0:GOTO550
5830 CU=1:GOSUB520:IFA$=CHR$(133)THEN3640
5840 GOTO2270