1 POKE50257,16
10 POKE53280,14:POKE53281,14:POKE56,128:CLR
20 PRINT"[147][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][192][192][192][192][192][192][192][192][174]"
30 PRINT"[221][151][172][172][187][146][187][161][146][161][161][146][161][161][172][187][146][187][161][172][162][146][190][161][172][187][146][187][221]"
40 PRINT"[221][152][188][188][146][162] [161][146][161][161][146][161][161][188][190][146][190][161][188][146][187] [161][188][190][146][190][221]"
50 PRINT"[221][155][172][187][161][146][161][161][146][161][161][146][161][161][146][161]  [161][146][161]  [161][172][188][146] [221]"
60 PRINT"[221] [162][162][146]  [162][162][146] [188][190]  [188][162][162][146][190][188][190][188][190][221]"
70 PRINT"[221]                                    [221]"
80 PRINT"[221][155][161][146][161]   [190][188][146] [161][172][187][146][187][161][146][161][161][146][161][161][172][187][146][187] [187][172][146] [161][188][161][146][161][188][187][172][146][190][161][146][161][161][146][161][221]"
90 PRINT"[221][152][161][146][161]  [161][188][190][146][161][161][188][190][146][190][188][188][190][146][190][161][188][190][146][190] [161][146][161] [161]  [146][161] [161][146][161] [161][188][190][146][161][221]"
100 PRINT"[221][151][161][146][161]  [161][146][161][161][146][161][161][146][161][161][146][161] [161][146][161] [161][146][161][188][146]  [161][146][161] [161][146][161][187][146][161] [161][146][161] [161][146][161][161][146][161][221]"
110 PRINT"[221][144][188][162][162][162][146][188][190][188][190][188][162][162][146]  [188][190] [188][190][188][190] [162][162][146] [188][190][188][190] [188][190] [188][190][188][190][221]"
120 PRINT"[221]                                    [221]"
130 PRINT"[221]    VON  * * [200][203]-[211]OFTWARE * * 1985   [221]"
140 PRINT"[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][192][192][192][192][192][192][192][192][192][192][192][192][189]"
150 PRINT"[158][172][162][187]"
160 PRINT"[161][211][146][161]PIELANLEITUNG"
170 PRINT"[188][162][146][190]"
180 PRINT"[153][172][162][187]"
190 PRINT"[161][197][146][161]INZELSPIEL"
200 PRINT"[188][162][146][190]"
210 PRINT"[159][172][162][187]"
220 PRINT"[161][196][146][161]OPPELSPIEL"
230 PRINT"[188][162][146][190]"
240 GETT$
250 IFT$="S"THEN290
260 IFT$="E"THEN440
270 IFT$="D"THEN780
280 GOTO240
290 POKE53280,7:POKE53281,7
300 PRINT"[147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
310 PRINT"[161][211] [213] [208] [197] [210] [204] [193] [194] [217] [210] [201] [206] [212] [200][146][161]"
320 PRINT"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
330 PRINT"[129] [218]IEL DES [211]PIELES IST ES, IN MOEGLICHST"
340 PRINT"KURZER [218]EIT DEN [215]EG DURCH DAS [204]ABYRINTH"
350 PRINT"ZU FINDEN. [202]E SCHNELLER DAS GELINGT,"
360 PRINT"DESTO HOEHER IST DIE [208]UNKTZAHL."
370 PRINT"[150] [199]ESTEUERT WIRD ENTWEDER UEBER DIE"
380 PRINT"[212]ASTATUR ODER UEBER [202]OYSTICK."
390 PRINT"[154] [196]ER [211]PIELER KANN DURCH [196]RUECKEN DER"
400 PRINT"'[210][197][211][212][207][210][197]'-[212]ASTE AUFGEBEN."
410 PRINT"MIT '[211][208][193][195][197]' ZURUECK ZUM [205]ENUE";
420 GETT$:IFT$<>" "THEN420
430 GOTO10
440 POKE53280,13:POKE53281,13
450 PRINT"[147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
460 PRINT"[161][211] [213] [208] [197] [210] [204] [193] [194] [217] [210] [201] [206] [212] [200][146][161]"
470 PRINT"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
480 PRINT"[197] I N Z E L S P I E L"
490 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
500 POKE828,0
510 PRINT"[197]INGABE ERFOLGT UEBER:"
520 PRINT"[150][172][162][187]"
530 PRINT"[161]1[146][161]...[212]ASTATUR"
540 PRINT"[188][162][146][190]"
550 PRINT"[129][172][162][187]"
560 PRINT"[161]2[146][161]...[202]OYSTICK [208]ORT 1"
570 PRINT"[188][162][146][190]"
580 GETT$
590 IFT$="2"THENPOKE829,0:GOTO1410
600 IFT$<>"1"THEN580
610 POKE829,1
620 POKE53280,7:POKE53281,7
630 PRINT"[147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
640 PRINT"[161][211] [213] [208] [197] [210] [204] [193] [194] [217] [210] [201] [206] [212] [200][146][161]"
650 PRINT"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
660 FORI=831TO846:POKEI,255:NEXTI
670 PRINT"[129][215]ELCHE [212]ASTE FUER HOCH ? "CHR$(34)CHR$(20);
680 GOSUB760:POKE831,T:GETT$:PRINTT$
690 PRINT"[215]ELCHE [212]ASTE FUER RUNTER ? "CHR$(34)CHR$(20);
700 GOSUB760:POKE833,T:GETT$:PRINTT$
710 PRINT"[215]ELCHE [212]ASTE FUER LINKS ? "CHR$(34)CHR$(20);
720 GOSUB760:POKE835,T:GETT$:PRINTT$
730 PRINT"[215]ELCHE [212]ASTE FUER RECHTS ? "CHR$(34)CHR$(20);
740 GOSUB760:POKE837,T:GETT$:PRINTT$
750 GOTO1410
760 POKE198,0:WAIT198,1:T=PEEK(197):FORI=831TO846:IFT=PEEK(I)THEN760
770 NEXTI:RETURN
780 POKE53280,3:POKE53281,3
790 PRINT"[147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
800 PRINT"[161][211] [213] [208] [197] [210] [204] [193] [194] [217] [210] [201] [206] [212] [200][146][161]"
810 PRINT"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
820 PRINT"[196] O P P E L S P I E L"
830 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
840 POKE828,255
850 PRINT"[156][197]INGABE ERFOLGT UEBER:"
860 PRINT"[154][221][211]PIELER 1      [221][211]PIELER 2"
870 PRINT"[192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
880 PRINT"[161]1[146][161][154][221][212]ASTATUR       [154][221][212]ASTATUR"
890 PRINT"[154][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
900 PRINT"[152][161]2[146][161][154][221][152][212]ASTATUR       [154][221][152][202]OYSTICK [208]ORT 2"
910 PRINT"[154][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
920 PRINT"[151][161]3[146][161][154][221][151][202]OYSTICK [208]ORT 1[154][221][151][202]OYSTICK [208]ORT 2"
930 GETT$
940 IFT$="3"THENPOKE829,0:POKE830,0:GOTO1410
950 IFT$="2"THENPOKE829,1:POKE830,0:GOTO1270
960 IFT$<>"1"THEN930
970 POKE829,1:POKE830,1
980 POKE53280,1:POKE53281,1
990 PRINT"[152][147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
1000 PRINT"[161][211] [213] [208] [197] [210] [204] [193] [194] [217] [210] [201] [206] [212] [200][146][161]"
1010 PRINT"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
1020 PRINT"[155][211]PIELER 1"
1030 PRINT"[184][184][184][184][184][184][184][184][184]"
1040 FORI=831TO846:POKEI,255:NEXTI
1050 PRINT"[154][215]ELCHE [212]ASTE FUER HOCH ? "CHR$(34)CHR$(20);
1060 GOSUB760:POKE831,T:GETT$:PRINTT$
1070 PRINT"[215]ELCHE [212]ASTE FUER RUNTER ? "CHR$(34)CHR$(20);
1080 GOSUB760:POKE833,T:GETT$:PRINTT$
1090 PRINT"[215]ELCHE [212]ASTE FUER LINKS ? "CHR$(34)CHR$(20);
1100 GOSUB760:POKE835,T:GETT$:PRINTT$
1110 PRINT"[215]ELCHE [212]ASTE FUER RECHTS ? "CHR$(34)CHR$(20);
1120 GOSUB760:POKE837,T:GETT$:PRINTT$
1130 PRINT"[152][147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
1140 PRINT"[161][211] [213] [208] [197] [210] [204] [193] [194] [217] [210] [201] [206] [212] [200][146][161]"
1150 PRINT"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
1160 PRINT"[155][211]PIELER 2"
1170 PRINT"[184][184][184][184][184][184][184][184][184]"
1180 PRINT"[154][215]ELCHE [212]ASTE FUER HOCH ? "CHR$(34)CHR$(20);
1190 GOSUB760:POKE839,T:GETT$:PRINTT$
1200 PRINT"[215]ELCHE [212]ASTE FUER RUNTER ? "CHR$(34)CHR$(20);
1210 GOSUB760:POKE841,T:GETT$:PRINTT$
1220 PRINT"[215]ELCHE [212]ASTE FUER LINKS ? "CHR$(34)CHR$(20);
1230 GOSUB760:POKE843,T:GETT$:PRINTT$
1240 PRINT"[215]ELCHE [212]ASTE FUER RECHTS ? "CHR$(34)CHR$(20);
1250 GOSUB760:POKE845,T:GETT$:PRINTT$
1260 GOTO1410
1270 POKE53280,12:POKE53281,12
1280 PRINT"[151][147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
1290 PRINT"[161][211] [213] [208] [197] [210] [204] [193] [194] [217] [210] [201] [206] [212] [200][146][161]"
1300 PRINT"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
1310 FORI=831TO846:POKEI,255:NEXTI
1320 PRINT"[155][215]ELCHE [212]ASTE FUER HOCH ? "CHR$(34)CHR$(20);
1330 GOSUB760:POKE831,T:GETT$:PRINTT$
1340 PRINT"[215]ELCHE [212]ASTE FUER RUNTER ? "CHR$(34)CHR$(20);
1350 GOSUB760:POKE833,T:GETT$:PRINTT$
1360 PRINT"[215]ELCHE [212]ASTE FUER LINKS ? "CHR$(34)CHR$(20);
1370 GOSUB760:POKE835,T:GETT$:PRINTT$
1380 PRINT"[215]ELCHE [212]ASTE FUER RECHTS ? "CHR$(34)CHR$(20);
1390 GOSUB760:POKE837,T:GETT$:PRINTT$
1400 GOTO1410
1410 DIMAN%(4,5)
1420 Y%(1)=-40:Y%(2)=-1:Y%(3)=1:Y%(4)=40
1430 AN%(1,1)=107
1440 AN%(1,2)=109
1450 AN%(1,3)=113
1460 AN%(1,4)=115
1470 AN%(1,5)=125
1480 AN%(2,1)=110
1490 AN%(2,2)=113
1500 AN%(2,3)=114
1510 AN%(2,4)=115
1520 AN%(2,5)=125
1530 AN%(3,1)=107
1540 AN%(3,2)=109
1550 AN%(3,3)=112
1560 AN%(3,4)=113
1570 AN%(3,5)=114
1580 AN%(4,1)=107
1590 AN%(4,2)=110
1600 AN%(4,3)=112
1610 AN%(4,4)=114
1620 AN%(4,5)=115
1630 DIMZE$(35):DIMZ%(14)
1640 Z%(1)=107:ZE$(17)="1334"
1650 Z%(2)=109:ZE$(19)="1331"
1660 Z%(3)=110:ZE$(20)="4224"
1670 Z%(4)=112:ZE$(22)="3434"
1680 Z%(5)=113:ZE$(23)="1232"
1690 Z%(6)=114:ZE$(24)="3234"
1700 Z%(7)=115:ZE$(25)="1244"
1710 Z%(8)=125:ZE$(35)="1221"
1720 Z%(9)=91:ZE$(1)="1234"
1730 DIMR%(40)
1740 J=RND(0)*40
1750 FORI=JTO40
1760 READR%(I)
1770 NEXT
1780 FORI=0TOJ-1
1790 READR%(I)
1800 NEXT
1810 DATA2,3,4,2,3,3,4,2,3,4,2,3,4,2,4,3,2,3,2,3,4,3,2,3,4,1,2,3,4,2,4,3,2,3,4
1820 DATA2,4,1,2,3
1830 POKE53280,14:POKE53281,14
1840 PRINT"[154][147]  [193]UGENBLICK  [204]ABYRINTH WIRD ERSTELLT   "
1850 FORI=1104TO1143
1860 POKEI,160:POKEI+840,160
1870 NEXT
1880 FORI=1104TO1944STEP40
1890 POKEI,160:POKEI+39,160
1900 IFPEEK(828)=0GOTO1920
1910 POKEI+19,160:POKEI+20,160
1920 NEXT
1930 IFPEEK(828)=0THENAD%=1105+(RND(0)*35):GOTO1950
1940 AD%=1105+(RND(0)*15)
1950 POKEAD%,93:W%=1:GOSUB2360
1960 AD%=AD%+40:POKEAD%,91
1970 L1%=0:L2%=0::L3%=0:L4%=0
1980 IFL1%<39THENL1%=L1%+1:GOTO2000
1990 L1%=1
2000 P1%=PEEK(AD%)
2010 T%=VAL(MID$(ZE$(P1%-90),R%(L1%),1))
2020 Q%=AD%+Y%(T%)
2030 P2%=PEEK(Q%)
2040 IFP2%<>32GOTO2060
2050 GOTO2170
2060 IFP2%=160ANDQ%<1945THENPOKEAD%,91:Q%=AD%+40:T%=4:GOTO2170
2070 IFP2%=160ANDQ%>1944THENPOKEQ%,93:GOSUB2390:GOTO2190
2080 IFP2%>106ANDP2%<126ANDVAL(MID$(ZE$(P2%-90),5-T%,1))=T%THENPOKEQ%,91:GOTO2180
2090 IFVAL(MID$(ZE$(P2%-90),5-T%,1))=T%ANDX%<3THENX%=X%+1:GOTO2180
2100 IFX%>=3THENX%=0:Q%=AD%+40:POKEAD%,91:T%=4:GOTO2170
2110 IFP2%=91THENGOTO2180
2120 IFP2%=160ANDQ%>1944THENPOKEQ%,93:GOSUB2390:GOTO2190
2130 IFL2%<8THENL2%=L2%+1:GOTO1980
2140 L2%=0:FORI=1943TO1145STEP-1
2150 IFPEEK(I)>106ANDPEEK(I)<126THENPOKEI,91:AD%=I:T%=4:I=1145:NEXT:GOTO2020
2160 NEXT
2170 POKEQ%,AN%(5-T%,RND(0)*5+1):POKE1063,48+T%
2180 AD%=Q%:GOTO1980
2190 FORI=120TO919
2200 IFPEEK(1024+I)=32THENPOKE1024+I,Z%(RND(0)*8+1)
2210 NEXT
2220 FORI=1TO100
2230 L3%=RND(0)*800+1104
2240 IFPEEK(L3%)<>160ANDPEEK(L3%)<>93THENPOKEL3%,91
2250 NEXT
2260 IFPEEK(828)=0THEN2340
2270 FORX=0TO19
2280 FORY=0TO23
2290 POKE1084+X+Y*40,PEEK(1064+X+Y*40)
2300 POKE55356+X+Y*40,6
2310 POKE55336+X+Y*40,6
2320 NEXT:NEXT
2330 GOTO2420
2340 FORI=55336TO56295:POKEI,6:NEXT
2350 GOTO2420
2360 POKE251,(AD%-40)AND255
2370 POKE252,(AD%-40)/256
2380 RETURN
2390 POKE253,(Q%+40)AND255
2400 POKE254,(Q%+40)/256
2410 RETURN
2420 FORI=0TO14
2430 READZ%(I)
2440 NEXTI
2450 FORI=0TO14
2460 READR%(I)
2470 NEXTI
2480 DATA110,112,125,109,93,93,93,91,64,64,64,107,115,113,114
2490 DATA12,6,9,3,5,5,5,15,10,10,10,7,13,11,14
2500 PRINT"                                        "
2510 FORI=960TO1022:READA:POKEI,A:NEXTI
2520 DATA60,0,0,24,0,0,60,0,0,219,0,0,24,0,0,60,0,0,102,0,0,102,0,0,0,0,0,0,0
2530 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
2540 FORI=32768TO33176:READA:POKEI,A:NEXTI
2550 DATA162,16,189,61,3,72,41,7,168,185,109,129,157,62,3,104,74,74,74,41,7
2560 DATA168,185,109,129,73,255,157,61,3,202,202,208,224,138,160,6,153,78,3
2570 DATA136,208,250,120,169,96,141,20,3,169,128,141,21,3,169,140,141,24,3,169
2580 DATA129,141,25,3,173,14,221,9,128,141,14,221,169,0,141,11,221,141,10,221
2590 DATA141,9,221,141,8,221,88,169,0,141,83,3,141,84,3,96,160,0,162,0,173,61
2600 DATA3,208,19,173,1,220,74,176,1,136,74,176,1,200,74,176,1,202,74,176,1
2610 DATA232,173,61,3,240,60,173,63,3,141,0,220,173,64,3,45,1,220,208,1,136
2620 DATA173,65,3,141,0,220,173,66,3,45,1,220,208,1,200,173,67,3,141,0,220,173
2630 DATA68,3,45,1,220,208,1,202,173,69,3,141,0,220,173,70,3,45,1,220,208,1
2640 DATA232,140,79,3,142,80,3,173,60,3,240,107,169,255,141,0,220,141,1,220,160
2650 DATA0,162,0,173,62,3,208,19,173,0,220,74,176,1,136,74,176,1,200,74,176,1
2660 DATA202,74,176,1,232,173,62,3,240,60,173,71,3,141,0,220,173,72,3,45,1,220
2670 DATA208,1,136,173,73,3,141,0,220,173,74,3,45,1,220,208,1,200,173,75,3,141
2680 DATA0,220,173,76,3,45,1,220,208,1,202,173,77,3,141,0,220,173,78,3,45,1
2690 DATA220,208,1,232,140,81,3,142,82,3,169,89,248,56,237,9,221,8,216,72,41
2700 DATA15,9,48,141,21,4,104,74,74,74,74,9,48,141,20,4,169,58,141,19,4,169,2
2710 DATA40,237,10,221,216,72,41,15,9,48,141,18,4,104,16,5,169,255,141,84,3,76
2720 DATA126,234,1,2,4,8,16,32,64,128,120,169,49,141,20,3,169,234,141,21,3,169
2730 DATA71,141,24,3,169,254,141,25,3,88,96,72,173,13,221,48,5,169,255,141,83
2740 DATA3,104,64
2750 SYS32768
2760 A1=PEEK(251)+PEEK(252)*256
2770 A2=A1+20
2780 E=PEEK(253)+PEEK(254)*256
2790 POKEA1,93:POKEE,93:IFPEEK(828)<>0THENPOKEA2,93:POKEE+20,93:E=E-40
2800 POKE2040,15:POKE2041,15:POKE53287,13:POKE53288,1
2810 POKE53269,1-2*(PEEK(828)<>0)
2820 GOSUB3490:POKE53265,27
2830 IFPEEK(847)<>0THENGOSUB2980
2840 IFPEEK(848)<>0THENGOSUB3020
2850 IFPEEK(849)<>0THENGOSUB3110
2860 IFPEEK(850)<>0THENGOSUB3150
2870 IFA1<>ETHEN2890
2880 FORI=0TO3:POKE1064+I,PEEK(1042+I):NEXTI:A1=A1+40
2890 IFA2<>(E+20)THEN2910
2900 FORI=0TO3:POKE1100+I,PEEK(1042+I):NEXTI:A2=A2+40
2910 IF(A1=E+40)AND(A2=E+60)THEN3450
2920 IF(A1=E+40)AND(PEEK(828)=0)THEN3450
2930 IFPEEK(852)<>0THEN3450
2940 IFPEEK(851)=0THEN2820
2950 FORI=0TO3:POKE1064+I,PEEK(1042+I):NEXTI
2960 IFPEEK(828)<>0THENFORI=0TO3:POKE1100+I,PEEK(1042+I):NEXTI
2970 GOTO3450
2980 R=PEEK(847)
2990 IFR=1THENR%=2
3000 IFR=255THENR%=0
3010 GOTO3050
3020 R=PEEK(848)
3030 IFR=1THENR%=1
3040 IFR=255THENR%=3
3050 A%=A1:GOSUB3240
3060 IFR%=0THENA1=A1-40
3070 IFR%=1THENA1=A1+1
3080 IFR%=2THENA1=A1+40
3090 IFR%=3THENA1=A1-1
3100 RETURN
3110 R=PEEK(849)
3120 IFR=1THENR%=2
3130 IFR=255THENR%=0
3140 GOTO3180
3150 R=PEEK(850)
3160 IFR=1THENR%=1
3170 IFR=255THENR%=3
3180 A%=A2:GOSUB3240
3190 IFR%=0THENA2=A2-40
3200 IFR%=1THENA2=A2+1
3210 IFR%=2THENA2=A2+40
3220 IFR%=3THENA2=A2-1
3230 RETURN
3240 Z=PEEK(A%)
3250 IF(Z=160)OR(Z=32)THENR%=4:RETURN
3260 FORI=0TO14
3270 IFZ%(I)=ZTHENZ%=I
3280 NEXTI
3290 IF(R%(Z%)AND(2^R%))=0THENR%=4:RETURN
3300 IFR%=0THENA%=A%-40
3310 IFR%=1THENA%=A%+1
3320 IFR%=2THENA%=A%+40
3330 IFR%=3THENA%=A%-1
3340 Z=PEEK(A%)
3350 IF(Z=160)OR(Z=32)THENR%=4:RETURN
3360 FORI=0TO14
3370 IFZ%(I)=ZTHENZ%=I
3380 NEXTI
3390 IFR%=0THENR1%=2
3400 IFR%=1THENR1%=3
3410 IFR%=2THENR1%=0
3420 IFR%=3THENR1%=1
3430 IF(R%(Z%)AND(2^R1%))=0THENR%=4
3440 RETURN
3450 SYS33141
3460 PRINT"TASTE DRUECKEN !"
3470 POKE198,0:WAIT198,1:POKE198,0
3480 POKE53269,0:RUN
3490 X1=(A1-1024)-INT((A1-1024)/40)*40
3500 Y1=INT((A1-1024)/40):IFY1>24THENY1=24
3510 POKE53249,Y1*8+50
3520 XP=X1*8+24:POKE53248,(XP)AND(255)
3530 POKE53264,(PEEK(53264)AND254)OR(INT(XP/256))
3540 IFPEEK(828)=0THENRETURN
3550 X2=(A2-1024)-INT((A2-1024)/40)*40
3560 Y2=INT((A2-1024)/40):IFY2>24THENY2=24
3570 POKE53251,Y2*8+50
3580 XP=X2*8+24:POKE53250,(XP)AND(255)
3590 POKE53264,(PEEK(53264)AND253)OR(INT(XP/256)*2)
3600 RETURN