Das Grab des Pharao
Ein Abenteuer im alten Ägypten erwartet Sie diesmal als Listing des Monats.
Ziel des Grafikadventures ist es, die goldene Totenmaske des Pharaos zu finden, wozu eine Pyramide erforscht werden muß, in der zahlreiche Fallen gegen Grabräuber verborgen sind. Am Anfang des Spiels befindet sich der Abenteurer jedoch noch mitten in der Wüste und muß die Pyramide erst einmal finden.
Das Programm besteht aus 58 Bildern, die sich innerhalb der Pyramide aus verschiedenen Komponenten (Durchgänge, Türen, Treppen und so weiter) zusammensetzen. Aufgrund der Vielzahl und Ähnlichkeit der Räume ergibt sich ein wahrer Irrgarten. Die Bilder werden, um den Effekt von hochauflösender Grafik zu simulieren, aus über 80 neudefinierten Zeichen und 33 Sprites zur Darstellung der Gegenstände aufgebaut. Die Befehlsauswertung der Eingaben folgt getrennt in zwei »INPUT« Statements: Das heißt nach jedem eingegebenen Wort muß »RETURN« gedrückt werden, wodurch sich jedoch kein Nachteil ergibt.
Das Programm versteht folgende 18 Verben: gehe, zerstöre, öffne, klopfe, frage, hacke, töte, krieche, werfe, schiebe, drehe, nimm, verliere, ziehe, list, save, stop.
Da großer Wert auf die aufwendige Grafik gelegt wurde, wuchs die Länge des Programmes und leider auch die Unübersichtlichkeit beträchtlich an, wodurch manche Stellen möglicherweise etwas umständlich programmiert wurden. Doch ich bin sicher, daß dies der Spielfreude keinen Abbruch tun wird. Doch nun viel Spaß bei der Suche nach der goldenen Totenmaske des Pharao.
(Wolfgang Rausch/rg)Auf der Suche nach der goldenen Totenmaske des Pharao müssen Sie hier die erste Aufgabe lösen. Eine Menge Programmzeilen sind auf dem Weg in die Wüste, in der das Grab des Pharao steht, einzutippen. Damit Sie nicht hier schon »in der Wüste der Fehlermeldungen« stehen, ist auch dieses Programm mit dem Checksummer einzugeben. Liegt diese Hürde hinter Ihnen, wird Ihnen ein freundlicher Beduine, sobald Sie Ihn gefunden haben, den richtigen Weg weisen.
| PN (58,6) | = Spielfeld (besteht aus 58 Bildern) |
| IT$ (54) | = Liste der Gegenstände (Namen) und Wörter (zur Verschlüsselung der Kommentare) |
| IN (46,3) | = Information über Standort der Gegenstände und Möglichkeit diese mitzunehmen |
| CO$(18) | = Liste der Verben |
| AP | = momentaner Standpunkt |
| X1,X2,X4 | = Flags für bestimmte Spielsituationen |
| X5,X6,X9 | = Flags für bestimmte Spielsituationen |
| Y1,Y2,Y3,Y4 | = Flags für bestimmte Spielsituationen |
| GE | = Anzahl der Gegenstände, die man bei sich trägt (maximal 3) |
| 10—13 | : Maschinenprogramm zur Verschiebung des Zeichengenerators |
| 30—150 | : Einlesen der Felder (Arrays) |
| 164—410 | : Information zu den Bildern und Eingabe eines Verbs |
| 500—1910 | : Befehlsauswertung |
| 5000—5910 | : Kommentare und Eingabe eines Nomens |
| 10000—10900 | : Einlesen der Charakter-DATA |
| 12000—12167 | : Einlesen der Sprite-DATA |
| 19000—20900 | : Zeichnen der Bilder (Hintergrund) |
| 21000—21018 | : Zeichnen der Durchgänge |
| 21030—21038 | : Zeichnen der Türen (Sprites) |
| 21050—21500 | : Zeichnen der Gegenstände (hauptsächlich Sprites) |
| 30000—30040 | : Gegenstände, die man trägt, auflisten |
| 34000—35060 | : Routinen zum Einlesen und Abspeichern eines Files |
| 39900—40044 | : DATAs für Verben, Nomen, Spielfeld und Gegenstände |
| 45000—49065 | : Vorspann |
| 50105—52030 | : Kommentare bei Niederlage des Spielers und Routinen für bewegliche Gegenstände |
|
0 rem *** pharaos grave v.2 ***
1 rem by w.rausch
2 rem moerikeweg 73
3 rem 8504 stein
5 a1$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
6 a2$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
7 a3$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
8 a4$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
9 print"{clr}":v=53248:si=54272:pokev+21,0:poke657,128
10 fori=832to865:reada:pokei,a:next
11 data120,169,51,133,1,169,0,133,95
12 data133,90,133,88,169,208,133,96,169,240,133,89,169,224,133,91,32,191,163
13 data169,55,133,1,88,96
15 sys832:poke850,160:sys832:poke56576,peek(56576)and252:poke53272,8
16 poke648,192
20 goto10000
30 dim pn(58,6),it$(54),in(46,3),co$(18)
40 fori=1to18:readco$(i):next
50 fori=1to54:readit$(i):next
55 return
60 fori=866to895:reada:pokei,a:next:ifkk=1thenreturn
65 fori=1to58
70 readpn(i,1),pn(i,2),pn(i,3),pn(i,4),pn(i,5),pn(i,6)
80 next
90 fori=1to46
100 readin(i,1),in(i,2),in(i,3)
110 next
130 return
150 ap=1
155 poke53280,11:poke53281,0
160 print"{clr}":pokev+21,0:pokev+17,peek(v+17)and239:gosub19000
164 poke214,15:sys58640:print"{red}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{wht}"
165 pokev+17,peek(v+17)or16
170 print"{up}moegliche richtungen :";
174 fori=1to6
175 ifpn(ap,i)>0thenonigosub179,180,181,182,184,185
176 next:goto210
179 print" w";:return
180 print" o";:return
181 print" n";:return
182 print" s";:return
184 print" h";:return
185 print" r":return
210 printa1$"besonderheiten: ";:n=0
220 fori=1to46
222 ifn>0andin(i,1)=apandin(i,3)=1thenprint"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"it$(i)
230 ifin(i,1)=apandn=0andin(i,3)=1thenprintit$(i):n=1
240 next
242 ifap=35andx8=1then50100
245 ifap=16andin(14,1)=-1andin(15,1)>0then50800
246 ifap=53andin(45,1)=-1then50720
247 ifap=50andin(46,1)<>-1then50207
250 printa3$:input"kommando ";b$
260 fori=1to18
270 ifleft$(b$,4)=left$(co$(i),4)then300
280 next
300 ifap=41andin(41,1)<>-1orap=42andin(41,1)<>-1thengosub52000
310 ifc=3then50208
410 ifap=24thengoto50204
500 ifi<>1then730
510 gosub5540
530 goto550
540 goto5530
550 ifap=2orap=3thenx1=x1+1
560 ifx1=2thengoto50190
570 ifap=10andin(6,1)=-1then5530
590 ifap=19anda$="r"andin(9,1)<>19thengoto50203
610 ifap=31anda$="s"thengoto50202
620 ifap=48anda$="s"orap=44anda$="w"then50206
630 ifap=35andin(14,1)<>apthen50100
640 ifap=37anda$="o"andin(30,1)=37thenap=41:goto5500
645 ifap=37andin(30,1)<>37anda$="o"then50200
650 ifap=50anda$="w"andin(31,1)<>0then5530
655 ifap=38anda$="n"andin(28,1)=0andin(46,1)<>-1then50207
660 ifa$="w"andpn(ap,1)<>0thenap=pn(ap,1):goto5500
670 ifa$="o"andpn(ap,2)<>0thenap=pn(ap,2):goto5500
680 ifa$="n"andpn(ap,3)<>0thenap=pn(ap,3):goto5500
690 ifa$="s"andpn(ap,4)<>0thenap=pn(ap,4):goto5500
700 ifa$="h"andpn(ap,5)<>0thenap=pn(ap,5):goto5500
710 ifa$="r"andpn(ap,6)<>0thenap=pn(ap,6):goto5500
720 goto5530
730 ifi<>2then830
735 ifin(1,1)<>-1then5530
739 x2=x2+1:ifx2>5then5475
740 gosub5540
770 ifap=7andin(3,1)=0andin(4,1)=apanda$="einga"thenin(4,1)=0:goto5410
780 ifap=13anda$="tuer"thengoto50211
790 ifap=13anda$="wand"andin(11,1)=0thenin(11,1)=13:goto5420
800 ifap=21andin(16,1)>0anda$=it$(16)thenin(16,1)=0:goto5500
810 ifap=54andin(40,1)>0anda$="ausga"thengoto49000
820 goto5530
830 ifi<>3then940
840 gosub5540:gosub5000
850 ifx<>32andx<>40andx<>38thengoto5530
860 ifx<>32then920
870 ifap=15thenpn(15,3)=16:in(13,1)=0:goto5500
875 ifap=13then50211
880 ifap=21andin(16,1)=0thenpn(21,3)=22:in(17,1)=0:goto5500
881 ifap=25andin(43,1)=25thenin(43,1)=0:pn(25,4)=19:in(42,1)=0:pn(19,3)=25:goto5500
882 ifap=31andx5=1andin(23,1)=apthenin(23,1)=0:pn(31,3)=32:goto5500
890 ifap=21andin(16,1)>0then50213
895 ifx5=1andap=31thenpn(ap,3)=32:in(31,1)=0:goto5500
900 ifap=45thenpn(45,3)=50:in(28,1)=0:goto5500
905 ifap=42thenpn(42,3)=40:in(26,1)=0:goto5500
906 ifap=47andpn(ap,3)=0thenpn(ap,3)=52:in(36,1)=0:goto5500
910 ifap=38thenpn(38,3)=50:in(28,1)=0:goto5500
920 ifap=50thenpn(50,1)=44:in(31,1)=0:goto5500
925 ifap=53andy3=0andx=38theny3=1:goto50700
926 ifap=57andx=40andy4=0andin(44,1)=-1thenin(41,1)=ap:y4=1:goto5458
930 goto5530
940 ifi<>4then1130
950 gosub5540
955 ifap<8ora$<>it$(53)thengoto5530
960 printa2$:input"{grn}welche: w o n s ";c$
970 ifap=13andin(11,1)=0andc$="o"thengoto5430
980 ifap<>13orap=13andc$<>"o"then1100
1000 goto5530
1100 printa3$"{grn}nichts passiert {wht}":gosub5800:gosub5900:goto164
1130 ifi<>5then1180
1140 gosub5540
1150 gosub5000
1160 ifap=5andx=2andin(x,1)>0thenin(2,1)=0:in(x,2)=0:goto5400
1170 goto5530
1180 ifi<>6then1220
1182 ifin(1,1)<>-1then5530
1183 x2=x2+1:ifx2>5then5475
1185 gosub5540:gosub5000
1200 ifap=7andin(x,1)=apandin(x,1)>0thenin(x,1)=0:in(4,3)=1:goto5500
1210 goto5530
1220 ifi<>7then1270
1230 gosub5540:gosub5000
1240 ifx<>15andx<>5then5530
1250 ifap=16andin(x,1)=apthenin(x,1)=0:goto5500
1255 ifap=35andx=5then50100
1260 goto5530
1270 ifi<>8then1320
1280 gosub5540
1285 ifap=7andin(4,1)=0anda$=left$(it$(11),5)thenap=8:goto5500
1290 ifap=13anda$=left$(it$(51),5)andin(11,1)=apthenap=14:goto5500
1300 ifap=14anda$=left$(it$(51),5)thenap=13:goto5500
1310 goto5530
1320 ifi<>9then1360
1330 gosub5540:gosub5000
1335 ifx<>9andin(x,1)<>-1then5530
1340 ifap=51andpn(ap,5)=0thenpn(ap,5)=54:in(x,1)=ap:goto5440
1345 ifap=37thenin(x,1)=0:goto5470
1350 goto5530
1360 ifi<>10then1410
1370 gosub5540
1375 ifap=27then1395
1376 gosub5000
1390 ifap=40andy2=0andin(x,1)=aptheny2=1:in(35,1)=ap:pn(40,3)=47:goto5450
1395 ifap=27anda$="grabr"andin(46,3)=0thenin(46,3)=1:goto5480
1400 goto5530
1410 ifi<>11then1460
1420 gosub5540:gosub5000
1430 ifap=10andx=7andin(6,1)=-1then50206
1440 ifap=52andx=37andin(34,1)=apthenpn(52,3)=53:in(34,1)=0:goto1680
1450 goto5530
1460 ifi<>12then1510
1470 gosub5540
1490 ifx4=1thenap=54:goto5500
1500 goto5530
1510 ifi<>13then1580
1520 gosub5540
1525 ifge>=3then5460
1530 gosub5000
1535 ifap=16andx=14thenin(x,1)=-1:in(15,3)=1:goto5500
1536 ifap=10andx=6thenin(7,3)=1
1540 ifin(x,1)=apandin(x,2)>0thenin(x,1)=-1:goto5500
1550 ifin(x,2)=0then5530
1560 ifin(x,1)<>apthenprinta3$"{grn}nicht vorhanden{wht}":gosub5800:gosub5900:goto164
1570 goto5530
1580 ifi<>14then1640
1590 gosub5540
1600 gosub5000
1610 ifin(x,1)<>-1thenprinta3$"{grn}ich habe das nicht{wht}":gosub5800:gosub5900:goto164
1612 ifap=19anda$="seil"andin(9,1)=-1thengosub5455:goto1620
1615 ifap=31anda$="diama"andin(x,1)=-1thenx5=1:gosub5465:in(20,2)=0:in(20,3)=0:goto1620
1620 in(x,1)=ap:goto5500
1640 ifi<>15then1700
1650 gosub5540:gosub5000
1655 ifx<>7then5530
1660 ifap=10andin(6,1)=-1andx9=0thenpn(ap,1)=11:in(8,1)=0:x9=1:goto1680
1670 goto5530
1680 printa3$"{grn}die "it$(32)" oeffnet sich{wht}":gosub5800:goto160
1700 ifi<>16then1750
1710 goto30000
1750 ifi<>17then1800
1755 goto34000
1800 ifi<>18then1900
1810 pokev+21,0:printchr$(14),"{clr}{down}{down}{rght}{rght}{rght}Sie wollen aufgeben (J/N) ?"
1820 geta$:ifa$="j"thensys64738
1830 ifa$="n"thenprintchr$(142):gosub5600:goto160
1840 ifa$=""ora$=" "then1820
1900 printa4$"unbekanntes wort":gosub5800
1910 printa3$" ":printa4$" ":goto164
5000 forx=1to46
5010 ifleft$(a$,5)=left$(it$(x),5)thenreturn
5020 next
5030 printa4$;tab(20)"{cyn}unbekanntes wort{wht}":fort=1to1000:next
5035 gosub5900
5040 x=0:goto164
5400 printa3$"{grn}gehe in richtung des "it$(50)"{wht}":gosub5800
5401 pn(5,2)=6:goto160
5410 printa3$"{grn}durchgang in der mauer{wht}":in(4,1)=0:x6=1:gosub5800:goto5500
5420 printa3$"{grn}ein "it$(51)" wird sichtbar{wht}":gosub5800:goto160
5430 printa3$"{grn}es klingt hohl {wht}":gosub5800:goto160
5440 printa3$"{grn}"it$(9)" hat sich oben verfangen{wht}":x4=1:gosub5800:goto160
5450 printa3$"{grn}ein "it$(11)" wird sichtbar{wht}":gosub5800:goto160
5455 printa3$"{grn}"it$(9)" haengt hinunter{wht}":gosub5800:return
5458 printa3$"{grn}er enthaelt eim "it$(41)"{wht}{inst}":gosub5800:goto160
5460 printa3$"{grn}sie koennen nicht so viel tragen{wht}":gosub5800:goto160
5465 printa3$"{grn}"it$(20)" ist das fehlende "it$(52)" der "it$(6)"{wht}":gosub5800:return
5470 printa3$"{grn}"it$(9)" ist hinuntergefallen{wht}":gosub5800:goto160
5475 printa3$"{grn}"right$(it$(1),5)" ist jetzt stumpf{wht}":gosub5800:gosub5900:goto164
5480 printa3$"{grn}er trug eine "it$(46)" bei sich{wht}":gosub5800:goto160
5500 gosub5900
5510 printa4$"{cyn}in ordnung{wht}":fort=1to1000:next:ifi=13thenge=ge+1
5520 ifi=14thenge=ge-1
5525 gosub5600:goto160
5530 gosub5900
5535 printa4$"{cyn}nicht moeglich{wht}":fort=1to1000:next:printa4$" ":goto164
5540 printa4$;tab(25):inputa$:a$=left$(a$,5):return
5600 pokev+21,0:pokev+28,0:pokev+23,0:pokev+29,0:return
5800 fort=1to3000:next:return
5900 printa3$" "
5910 printa4$" ":return
10000 ad=57344
10010 readx:ifx=-1thengoto45000
10020 cg=ad+x*8:fori=0to7:readq:pokecg+i,q:next:goto10010
10110 data28,252,243,207,63,255,255,255,255
10120 data30,255,255,255,255,252,243,207,63
10130 data31,255,255,255,255,255,255,15,240
10140 data33,255,255,255,255,15,240,255,255
10150 data35,255,255,15,240,254,254,254,254
10160 data36,0,31,227,252,254,254,254,254
10170 data37,255,255,255,255,63,207,243,252
10180 data38,63,207,243,252,255,255,255,255
10190 data39,0,248,199,63,127,127,127,127
10200 data40,255,255,240,15,255,255,255,255
10210 data41,255,255,255,255,240,14,254,254
10220 data42,255,255,255,255,255,255,240,15
10230 data43,254,253,251,247,239,223,191,127
10240 data44,254,254,254,254,254,254,254,254
10250 data45,127,127,127,127,127,127,127,127
10260 data46,255,255,255,255,255,255,255,255
10270 data47,0,255,255,255,255,255,255,255
10280 data48,0,254,254,254,254,254,254,254
10290 data49,0,127,127,127,127,127,127,127
10300 data50,127,191,223,239,247,251,253,254
10400 data51,239,239,239,239,239,223,191,127
10410 data52,224,239,239,239,239,239,239,239
10420 data53,239,239,239,143,47,239,239,239
10430 data54,0,239,239,239,239,239,239,239
10440 data55,254,254,254,254,254,224,235,239
10450 data56,255,255,255,255,255,255,95,241
10460 data57,254,254,254,254,0,254,254,254
10470 data27,239,239,239,239,239,239,239,224
10480 data59,239,239,239,239,247,251,253,254
10490 data60,239,239,239,239,239,239,239,15
10500 data61,239,239,227,233,236,239,239,239
10510 data62,239,239,239,239,15,239,239,239
10520 data29,15,239,239,239,239,239,239,239
10530 data64,127,127,127,127,0,127,127,127
10540 data65,255,255,255,255,255,15,239,239
10550 data67,0,255,255,0,0,0,0,0
10560 data68,239,239,239,239,239,239,239,239
10570 data69,254,254,254,254,254,254,240,15
10580 data70,239,239,239,239,240,239,239,239
10590 data71,254,254,254,254,254,254,254,0
10600 data72,127,127,127,127,127,127,127,0
10610 data73,15,240,255,255,255,255,255,255
10620 data74,240,15,255,255,255,255,255,255
10630 data75,255,170,255,170,255,170,255,170
10640 data76,85,85,85,85,85,87,95,255
10650 data77,85,85,85,87,127,255,255,255
10660 data78,85,85,85,85,245,255,255,255
10670 data79,85,85,85,85,85,245,255,255
10680 data80,85,85,85,85,85,85,245,255
10685 data81,63,207,243,252,254,254,254,254
10690 data82,254,254,254,254,15,240,255,255
10695 data83,127,255,15,240,255,255,255,255
10700 data84,252,242,206,62,254,254,254,254
10705 data85,254,254,254,254,252,243,207,63
10710 data86,255,255,255,255,252,242,206,62
10715 data87,255,255,255,255,240,14,254,254
10720 data88,254,254,254,254,254,254,240,15
10725 data89,254,254,240,15,255,255,255,255
10730 data90,126,190,222,238,246,250,252,254
10735 data91,127,127,127,127,63,207,243,252
10740 data92,14,240,255,255,255,255,255,255
10745 data93,96,99,105,108,110,110,110,110
10750 data94,6,198,150,54,118,118,118,118
10755 data95,110,110,110,110,110,110,110,110
10760 data97,118,118,118,118,118,118,118,118
10765 data98,110,110,110,110,108,105,99,15
10770 data99,118,118,118,118,54,150,198,240
10775 data100,0,0,0,0,0,15,63,127
10780 data101,15,31,63,127,255,255,255,255
10785 data102,240,248,252,254,255,255,255,255
10790 data103,0,0,0,0,0,240,252,254
10795 data104,168,168,168,168,168,168,0,0
10800 data105,170,170,170,170,170,170,0,0
10805 data106,168,168,168,168,168,168,168,168
10810 data107,162,162,162,162,162,162,162,162
10815 data108,0,0,168,168,168,168,168,168
10820 data109,170,170,170,170,170,170,170,170
10825 data110,0,0,170,170,170,170,170,170
10830 data111,0,0,129,195,255,255,255,255
10835 data112,255,255,248,6,184,191,255,255
10840 data113,0,0,1,3,15,255,255,255
10845 data114,0,0,128,192,224,255,255,255
10850 data115,0,0,0,255,255,0,0,0
10855 data116,193,182,182,128,193,227,193,193
10860 data117,129,129,129,129,255,255,255,255
10865 data118,255,219,129,195,195,129,219,255
10900 data-1
12000 fori=0to62:readq:poke50816+i,q:next
12001 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,0
12002 data0,0,64,0,0,128,0,1,0,0,3,255,248,4,0,0,8,0,0,8,0,0,8,0,0,0,0,0
12004 fori=0to62:readq:poke50880+i,q:next
12005 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,120,0,0,254,0,1,255,128
12006 data3,255,224,7,255,248,15,255,254,31,255,252,63,255,248,127,255,240,0,0
12007 data0,0,0,0,0,0,0,0,0,0,0,0,0
12010 fori=0to62:readq:poke50944+i,q:next
12011 data0,0,64,0,64,128,2,33,0,1,36,128,0,200,76,17,8,80,18,69,32,34,38,64,36
12012 data100,48,20,162,64,8,164,128,4,153,192,5,22,40,2,20,16,5,38,0,8,169,0,4
12013 data72,192,0,80,0,0,96,0,0,96,0,0,96,0
12015 fori=0to62:readq:poke51008+i,q:next
12016 data3,252,0,2,168,0,3,92,0,3,92,0,3,92,0,3,92,0,15,255,0,15,255,0,15,255
12017 data0,15,255,208,15,255,208,15,252,0,14,168,0,7,252,0,7,252,0,3,252,0,3
12018 data252,0,2,138,0,2,138,0,0,163,128,0,0,0
12020 fori=0to62:readq:poke51072+i,q:next
12021 data0,0,0,127,251,254,127,251,254,127,249,254,0,0,0,127,63,60,127
12022 data127,190,127,127,190,62,127,190,0,0,0,127,231,254,127,239,254,127,239
12023 data254,127,207,252,0,0,0,57,255,158,125,255,222,125,255,222,125,255,220
12024 data0,0,0,255,255,255
12026 fori=0to62:readq:poke51136+i,q:next
12027 data95,255,250,95,255,250,80,0,10,80,0,10,88,0,26,88,0,26,92,0,58,92,0,58
12028 data94,0,122,94,0,122,95,0,250,95,0,250,95,129,250,95,126,250,94,255,122
12029 data93,255,186,91,255,218,87,255,234,79,255,242,127,255,254,0,0,0
12031 fori=0to62:readq:poke51200+i,q:next
12032 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,31,0,0,14,0,0,14,0,0,27,0,0,42,128,0
12033 data113,192,0,106,192,0,59,128,0,21,0,0,14,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
12034 data0,0,0,0
12036 fori=0to62:readq:poke51264+i,q:next
12038 data0,0,0,0,0,0,0,0,0,1,85,128,2,170,64,2,170,0,2,175,0,2,173,0,2,174,192
12039 data2,175,192,2,175,0,3,253,0,3,255,0,0,255,0,0,242,0,0,242,0,0,242,0,3
12040 data252,0,3,252,0,0,0,0,0,0,0
12042 fori=0to62:readq:poke51328+i,q:next
12043 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,16,6,0,30,57,120,31,192,112,16,6
12044 data12,8,121,194,3,128,57,28,120,5,33,135,130,24,112,28,7,14,98,0,225,140
12045 data0,30,48,0,1,192,0,0,0,0,0,0
12047 fori=0to62:readq:poke51392+i,q:next
12048 data0,0,0,15,255,240,10,0,80,10,0,80,10,0,80,19,255,200,20,0,40,20,0,40
12049 data20,0,40,39,255,228,40,0,20,40,0,20,40,0,20,79,255,242,80,0,10,80,0,10
12050 data80,0,10,159,255,249,160,0,5,160,0,5,255,255,255
12052 fori=0to62:readq:poke51456+i,q:next
12053 data0,0,0,0,0,0,0,0,0,0,0,0,0,56,0,0,76,0,0,134,0,0,18,64,0,47,160,0,110
12054 data160,0,191,64,0,156,64,0,56,0,0,68,0,1,132,0,2,8,0,5,20,0,0,0,0,0,0,0
12055 data0,0,0,0,0,0
12057 fori=0to62:readq:poke51520+i,q:next
12058 data16,0,0,21,0,0,31,64,0,31,80,0,31,213,0,31,254,64,31,255,64,31,255,64
12059 data31,255,208,31,255,244,21,85,84,7,255,244,1,255,244,0,127,244,0,23,244
12060 data0,5,244,0,1,244,0,0,116,0,0,20,0,0,4,0,0,0
12062 fori=0to62:readq:poke51584+i,q:next
12063 data0,0,16,0,0,80,0,1,240,0,7,208,0,7,208,0,95,208,1,255,208,5,255,208
12064 data31,255,208,31,255,208,21,85,80,31,255,64,31,253,0,23,212,0,31,208,0
12065 data31,64,0,29,0,0,20,0,0,16,0,0,0,0,0,0,0,0
12067 fori=0to62:readq:poke51648+i,q:next
12068 data0,0,0,0,0,0,0,0,0,0,0,0,3,255,192,2,0,64,2,239,64,2,239,64,2,15,64,2
12069 data240,64,2,247,64,2,247,64,2,7,64,2,224,64,2,239,64,2,239,64,2,0,64,2
12070 data247,64,2,247,64,2,0,64,3,255,192
12072 fori=0to62:readq:poke51712+i,q:next
12073 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,8,0,0,55,0,0,59,0,0
12074 data213,192,0,191,128,0,204,192,0,191,128,0,255,192,0,183,128,0,255,192,0
12075 data55,0,0,55,0,0,55,0
12077 fori=0to62:readq:poke51776+i,q:next
12078 data0,0,0,0,56,0,0,124,0,0,84,0,0,124,0,0,40,0,0,56,0,1,255,0,2,214,128,2
12079 data238,128,2,214,128,3,57,128,0,254,0,0,254,0,0,124,0,0,108,0,0,108,0,0
12080 data108,0,0,108,0,0,108,0,0,230,0
12082 fori=0to62:readq:poke51840+i,q:next
12083 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,28,0,0,62,0,0
12084 data28,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
12086 fori=0to62:readq:poke51904+i,q:next
12087 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,225,128,0,30,3,128,0,48,112,1,204,15,14
12088 data6,0,192,0,0,51,193,192,12,14,56,0,48,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
12089 data0,0,0,0,0,0
12091 fori=0to62:readq:poke51968+i,q:next
12092 data0,0,0,0,0,0,0,0,0,0,0,0,0,21,84,0,74,148,1,42,100,4,169,164,18,166
12093 data164,85,90,164,106,154,164,106,154,144,106,154,124,106,153,205,106,151
12094 data240,85,80,60,0,0,13,0,0,0,0,0,0,0,0,0,0,0,0
12096 fori=0to62:readq:poke52032+i,q:next
12097 data255,255,255,128,36,1,128,60,1,128,66,1,128,126,1,128,129,1,128,255,1
12098 data129,0,129,129,255,129,130,0,65,131,255,193,132,0,33,135,255,225,136
12099 data0,17,143,255,241,144,0,9,159,255,249,160,0,5,191,255,253,192,0,3,255
12100 data255,255
12102 fori=0to62:readq:poke52096+i,q:next
12103 data0,0,0,0,28,0,0,3,128,0,0,64,0,1,128,0,14,0,0,48,0,0,64,0,0,48,0,0,12
12104 data0,0,3,0,0,0,128,0,1,0,0,6,0,0,24,0,0,96,0,0,224,0,0,192,0,0,0,0,0,0
12105 data0,0,0,0
12107 fori=0to62:readq:poke52160+i,q:next
12108 data0,6,0,0,24,0,0,32,0,0,48,0,0,12,0,0,6,0,0,1,0,0,3,0,0,12,0,0,48,0,0,64
12109 data0,0,96,0,0,24,0,0,6,0,0,24,0,0,96,0,0,224,0,0,192,0,0,0,0,0,0,0,0,0,0
12111 fori=0to62:readq:poke52224+i,q:next
12112 data0,168,42,160,170,10,0,42,2,160,47,0,0,15,0,160,12,0,0,40,0,0,255,0,3
12113 data60,192,163,60,240,3,252,0,160,60,0,0,42,240,160,42,252,0,85,12,0,85
12114 data12,0,65,12,160,65,12,0,65,15,160,65,5,0,0,0
12116 fori=0to62:readq:poke52288+i,q:next
12117 data160,0,0,128,42,0,0,170,10,0,168,0,0,240,10,0,240,0,0,48,10,0,235,0,3
12118 data60,192,3,60,202,15,60,192,0,60,202,0,60,0,3,168,0,15,168,10,48,85,0
12119 data48,85,10,48,65,0,112,65,10,80,65,0,0,0,0
12121 fori=0to62:readq:poke52352+i,q:next
12122 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
12123 data0,0,63,255,252,127,255,254,255,255,255,255,255,255,0,0,0,0,0,0,0,0,0,0
12124 data0,0,0,0,0
12125 fori=0to62:readq:poke52416+i,q:next
12126 data0,0,0,3,192,0,7,192,0,7,128,0,7,128,0,2,128,0,7,0,0,59,128,0,47,192,0
12127 data7,224,0,14,0,0,13,240,0,14,248,0,7,124,0,7,190,0,5,111,0,2,139,128,2
12128 data130,192,7,129,64,31,255,252,31,255,252
12130 fori=0to62:readq:poke52480+i,q:next
12131 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,170,128,10,170,160
12132 data9,221,224,11,119,96,10,170,160,11,170,96,9,221,224,11,119,96,10,170
12133 data160,8,0,32,8,0,32,8,0,32,0,0,0
12139 fori=0to62:readq:poke52544+i,q:next
12140 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,8,0,1,214,0,2
12141 data33,0,4,76,128,5,144,128,4,139,0,4,100,0,7,24,0,3,128,0,1,128,0,0,0,0
12142 data0,0,0
12144 fori=0to62:readq:poke52608+i,q:next
12145 data0,0,0,0,0,0,0,120,0,0,48,0,0,48,0,0,120,0,0,180,0,1,50,0,2,121,0,4
12146 data120,128,8,252,64,8,212,64,9,182,64,5,122,128,3,119,0,3,183,0,3,203,0
12147 data1,222,0,0,220,0,0,120,0,0,0,0
12149 fori=0to62:readq:poke52672+i,q:next
12150 data0,0,0,0,0,0,0,255,192,0,255,192,0,255,192,1,128,96,1,128,96,1,128,96
12151 data3,0,48,3,0,48,3,0,48,6,0,24,6,0,24,6,0,24,12,0,12,12,0,12,12,0,12,15
12152 data255,252,13,154,236,10,205,148,15,255,252
12154 fori=0to62:readq:poke52736+i,q:next
12155 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,42,0,0,21,0,0,38,0,0,21,0,0,42,0,0,21
12156 data0,0,170,128,0,85,64,0,170,128,0,85,64,0,170,128,0,85,64,0,0,0,0,0,0,0
12157 data0,0,0,0,0
12159 fori=0to62:readq:poke52800+i,q:next
12160 data0,0,0,0,0,0,0,127,128,0,125,128,0,118,128,0,239,192,0,237,192,0,254
12161 data192,1,166,224,1,223,224,1,254,224,3,157,112,3,127,240,3,245,240,6,251
12162 data184,7,55,24,7,255,248,0,0,0,0,0,0,0,0,0,0,0,0
12164 fori=0to62:readq:poke52864+i,q:next
12165 data0,24,0,0,90,0,0,126,0,0,126,0,0,126,0,0,60,0,0,60,0,0,60,0,0,24,0,1
12166 data255,128,3,110,192,3,118,192,3,110,192,1,223,128,0,126,0,0,126,0,0,102
12167 data0,0,102,0,0,102,0,1,255,128,7,255,224
15000 return
19000 ifap>7then19100
19001 ifap=7then19200
19002 ifap=6thengosub19035
19003 poke53270,peek(53270)or16:poke53283,9:poke53282,6
19004 printtab(10)"{blu}...................."
19006 printtab(10)"...................."
19008 printtab(10)"...................."
19010 printtab(10)".....{gry3}LMNOP{lblu}...{gry3}LOP{lblu}...."
19012 fort=1to10:printtab(10)"{gry3}KKKKKKKKKKKKKKKKKKKK":next
19031 gosub21050:return
19035 pokev+21,peek(v+21)or128:poke50175,27:pokev+14,145:pokev+15,90:pokev+46,9
19036 pokev+23,peek(v+23)or128:pokev+29,peek(v+29)or128:return
19100 ifap=15orap=18orap=19orap=20orap=21orap=29orap=46orap=52then19110
19102 goto19999
19110 printtab(12)"{brn}&%............^\"
19111 printtab(12)"..Q%........V\.."
19112 printtab(12)"..,.Q%....V\,..."
19113 printtab(12)"I#R_,.1//0,.XW(J"
19114 printtab(12)".,.,{CBM--}S{SHIFT--}CC~YJ-,.."
19115 printtab(12)".,.,..{CBM-*} {CBM-K}..-,.."
19116 printtab(12)"//0/0/{CBM-*} {CBM-K}/1/1//"
19117 printtab(12)"..,.U\{CBM-I}{CBM-G}{CBM-+}{CBM-T}&{SHIFT-+}.-.."
19118 printtab(12)"..UT.+....2,&{SHIFT-+}.."
19120 printtab(12)"^T.,+......Z.,&%"
19121 printtab(12)".,.+........2,.."
19122 printtab(12)".,+..........Z.."
19123 printtab(12)".+............2."
19124 printtab(12)"+..............2"
19129 ifap=19then20015
19130 gosub21032:return
19200 poke53270,peek(53270)or16:poke53282,7:poke53283,9
19204 printtab(10)"{brn}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-N}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-N}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-N}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}"
19205 printtab(10)"{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-N}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-N}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-N}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}"
19206 printtab(10)"{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{CBM-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{CBM-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{CBM-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}"
19207 fort=1to3:printtab(10)"{CBM-Z}{CBM-Z}{CBM-Q}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Q}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Q}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Q}{CBM-Z}{CBM-Z}":next
19210 printtab(10)"{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-D}{CBM-S}{CBM-S}{CBM-S} {CBM-S}{CBM-S}{CBM-S}{CBM-D}{CBM-S}{CBM-S}{CBM-S}{CBM-S}{CBM-S}"
19211 printtab(10)"{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-N}{CBM-Z}{CBM-Z}{CBM-Z} {CBM-Z}{CBM-Z}{CBM-Z}{CBM-N}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}"
19212 printtab(10)"{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{CBM-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND} {SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{CBM-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}"
19213 fort=1to4:printtab(10)"{gry3}KKKKKKKKKKKKKKKKKKKK":next
19217 ifx6=1thenpokev+21,peek(v+21)or128:poke50175,31:pokev+14,168:pokev+15,108
19218 pokev+46,9
19219 gosub21050
19220 return
19999 poke53270,peek(53270)and239
20000 printtab(10)"{brn}&%................^\"
20001 printtab(10)"..&%............^\.."
20002 printtab(10)"....1///1///1//0...."
20003 printtab(10)"I#!_-...-...-..,*)(J"
20004 printtab(10)".,..1/1///1///10.,.."
20005 printtab(10)".,..-.-...-...-,.,.."
20006 printtab(10)"////1///1///1//0////"
20007 printtab(10)"....-...-...-..,...."
20008 printtab(10)"..^\1/1///1///10&%.."
20009 printtab(10)"^T..-.-...-...-,.,&%"
20010 printtab(10)".,.+////////////2,.."
20011 printtab(10)".,+..............Z.."
20012 printtab(10)".+................2."
20013 printtab(10)"+..................2{gry2}"
20014 ifap=50thenprint"{brn}{home}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-J}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-J}{rght}{rght}{rght}{rght}{CBM-J}"
20015 ifap=19orap=32orap=55then20017:rem treppe
20016 goto20020
20017 pokev+21,peek(v+21)or128:poke50175,35:pokev+14,160:pokev+15,145
20018 pokev+29,peek(v+29)or128:pokev+46,0:ifap=19then19130
20020 ifap<>33andap<>56andap<>58then20900
20021 pokev+21,peek(v+21)or128:poke50175,45:pokev+14,159:pokev+15,97
20022 pokev+46,0:pokev+23,peek(v+23)or128:pokev+29,peek(v+29)or129
20023 print"{brn}{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}......{down}{left}{left}{left}{left}{left}{left}.+..2.{down}{left}{left}{left}{left}{left}{left}+....2{down}{left}{left}{left}{left}{left}{left}"
20024 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}......{down}{left}{left}{left}{left}{left}{left}......{down}{left}{left}{left}{left}{left}{left}"
20900 ifap=10then21001
21000 ifpn(ap,1)=0then21005
21001 poke49363,55:poke49364,56:poke49403,52:poke49404,48:poke49443,54:poke49444,48
21002 poke49483,68:poke49484,44:poke49523,70:poke49524,57:poke49563,53:poke49564,44
21003 poke49603,27:poke49604,71:poke49643,68:poke49644,46:poke49683,51
21005 ifpn(ap,2)=0then21010
21006 poke49379,69:poke49380,65:poke49419,49:poke49420,29:poke49459,49:poke49460,54
21007 poke49499,45:poke49500,68:poke49539,64:poke49540,62:poke49579,45:poke49580,61
21008 poke49619,72:poke49620,60:poke49659,46:poke49660,68:poke49700,59
21010 ifpn(ap,3)=0then21030
21013 poke49410,36:poke49411,67:poke49412,67:poke49413,39:poke49449,48:poke49450,44
21014 poke49451,32:poke49452,32:poke49453,45:poke49454,49:poke49489,44:poke49490,44
21015 poke49491,32:poke49492,32:poke49493,45:poke49529,48:poke49530,44:poke49414,45
21016 poke49531,100:poke49532,103:poke49533,45:poke49534,49:poke49569,44:poke49570,43
21017 poke49571,46:poke49572,46:poke49573,50:poke49574,45:poke49610,46:poke49611,46
21018 poke49612,46:poke49613,46:poke49409,44
21030 z1=0:ifin(10,1)=aporin(23,1)=aporin(26,1)=aporin(28,1)=apthen21034
21031 ifin(35,1)=aporin(36,1)=apthen21034
21032 ifin(13,1)=aporin(17,1)=aporin(34,1)=aporin(42,1)=apthenz1=1:goto21036
21033 goto21050
21034 print"{home}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {down}{left}{left}{left}{left} {down}{left}{left}{left}{left} {down}{left}{left}{left}{left} "
21035 pokev+10,161:pokev+11,97:pokev+29,peek(v+29)or32
21036 pokev+21,peek(v+21)or32:poke50173,39:pokev+44,11:pokev+23,peek(v+23)or32
21037 ifz1=1thenpokev+10,161:pokev+11,78:pokev+29,peek(v+29)or32
21038 ifz1=1thenprint"{home}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {down}{left}{left}{left}{left} {down}{left}{left}{left}{left} {down}{left}{left}{left}{left} {down}{left}{left}{left}{left} "
21050 ifin(1,1)<>apthen21060
21051 pokev+21,peek(v+21)or1:poke50168,26:pokev+0,200:pokev+1,120:pokev+39,11
21052 pokev+23,peek(v+23)or1:pokev+29,peek(v+29)or1
21060 ifin(2,1)<>apthen21070
21061 pokev+21,peek(v+21)or128:poke50175,29:pokev+14,150:pokev+15,110
21062 pokev+46,0:pokev+37,9:pokev+38,1:pokev+23,peek(v+23)or128:pokev+28,128
21063 pokev+29,peek(v+29)or128
21070 ifin(3,1)<>apthen21080
21071 pokev+21,peek(v+21)or64:poke50174,28:pokev+12,160:pokev+13,92
21072 pokev+45,15:pokev+29,peek(v+29)or64:pokev+23,peek(v+23)or64
21080 ifin(4,1)<>apthen21090
21081 pokev+21,peek(v+21)or128:poke50175,30:pokev+14,168:pokev+15,108
21082 pokev+46,9
21090 ifin(5,1)<>apthen21100
21091 ifin(14,1)<>-1andin(14,1)<>35then21095
21092 pokev+21,peek(v+21)or128:poke50175,53:pokev+46,5:pokev+14,195
21093 pokev+15,130:pokev+29,peek(v+29)or128:goto21100
21095 x8=1:pokev+21,peek(v+21)or128:poke50175,46:pokev+46,3
21096 pokev+14,190:pokev+15,140:pokev+29,128:goto164
21100 ifin(6,1)<>apthengoto21110
21101 pokev+21,peek(v+21)or8:poke50171,33:pokev+28,8:pokev+6,141:pokev+7,103
21102 pokev+42,11:pokev+37,0:pokev+38,15
21110 ifin(7,1)<>apthen21120
21115 print"{home}{brn}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght},H{down}{left}{left}10{down}{left}{left}-,{down}{left}{left}-,{down}{left}{left}//"
21120 ifin(9,1)<>apthen21130
21121 ifap=19orap=51then21130
21122 pokev+21,peek(v+21)or2:poke50169,34:pokev+2,150:pokev+3,140
21123 pokev+29,peek(v+29)or2:pokev+40,0
21130 ifin(11,1)<>apthen21140
21131 pokev+21,peek(v+21)or64:poke50174,37:pokev+12,235:pokev+13,122
21132 pokev+28,64:pokev+37,0:pokev+38,9:pokev+23,peek(v+23)or64
21140 ifin(12,1)<>apthen21150
21141 pokev+21,peek(v+21)or64:poke50174,38:pokev+12,111:pokev+13,119
21142 pokev+28,64:pokev+37,0:pokev+38,9:pokev+23,peek(v+23)or64
21150 ifin(14,1)<>apthen21160
21151 pokev+21,peek(v+21)or4:poke50170,32:pokev+4,170:pokev+5,130
21152 pokev+41,12:pokev+29,peek(v+29)or4:pokev+23,peek(v+23)or4
21160 ifin(15,1)<>apthen21170
21161 pokev+21,peek(v+21)or128:poke50175,36:pokev+14,170:pokev+15,143
21162 pokev+46,0:pokev+29,peek(v+29)or128
21170 ifin(16,1)<>apthen21180
21171 print"{home}{down}{down}{down}{down}{down}{down}{down}";tab(24)"{CBM-P}"
21180 ifin(18,1)<>apandin(19,1)<>apthen21200:rem spruenge i.d. decke
21181 pokev+21,peek(v+21)or128:poke50175,43:pokev+14,170:pokev+15,56
21182 pokev+46,0:pokev+29,peek(v+29)or128
21200 ifin(20,1)<>apthen21210
21201 ifap=31thenpoke55599,8:goto21210
21202 pokev+21,peek(v+21)or8:poke50171,42:pokev+6,180:pokev+7,150:pokev+42,8
21210 ifin(21,1)<>apthen21220
21211 pokev+21,peek(v+21)or128:ifin(46,3)=0thenpokev+14,150:pokev+15,121:goto21213
21212 pokev+14,155:pokev+15,115
21213 poke50175,44:pokev+46,9:pokev+37,0:pokev+38,1:pokev+23,peek(v+23)or128
21214 pokev+29,peek(v+29)or128:poke49209,50:poke49212,50:poke49250,47:pokev+28,128
21215 poke49251,47:poke49252,47:poke49210,45
21220 ifin(22,1)<>apthen21230
21221 pokev+21,peek(v+21)or128:poke50175,41
21222 pokev+14,190:pokev+15,105:pokev+45,14:pokev+46,7
21223 pokev+23,peek(v+23)or128:pokev+29,peek(v+29)or128
21230 ifin(24,1)<>apthen21240
21231 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{gry1}1/1///10{down}{left}{left}{left}{left}{left}{left}{left}{left}-.-...-,{down}{left}{left}{left}{left}{left}{left}{left}{left}"
21232 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{brn}{CBM-R}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-E}"
21240 ifin(25,1)<>apthen21250
21241 pokev+21,peek(v+21)or192:poke50174,48:poke50175,49:pokev+45,7:pokev+46,7:pokev+12,138
21242 pokev+37,0:pokev+38,12:pokev+13,98:pokev+15,98:pokev+28,192:pokev+23,peek(v+23)or192
21243 ify2=1thenpokev+12,135:pokev+14,208:pokev+29,32:poke50173,31:pokev+44,9:goto21247
21244 print"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{gry1}............{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}............":pokev+14,186
21245 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}............{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}..........."
21246 pokev+29,peek(v+29)or192:print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}............":goto21250
21247 print"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{gry1}... ...{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}... ..."
21248 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}... ...{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}... ..."
21249 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}... ..."
21250 ifin(27,1)<>apthen21260
21251 pokev+21,peek(v+21)or128:poke50175,51:pokev+46,12:pokev+14,200
21252 pokev+15,120:pokev+23,peek(v+23)or128:pokev+29,peek(v+29)or128
21260 ifin(29,1)<>apthen21270
21261 pokev+21,peek(v+21)or192:poke50174,52:poke50175,54
21262 pokev+12,121:pokev+13,105:pokev+14,210:pokev+15,105:pokev+28,64
21264 pokev+45,8:pokev+46,15:pokev+37,11:pokev+38,7
21265 pokev+23,peek(v+23)or192:pokev+29,peek(v+29)or64
21270 ifin(30,1)<>apthen21280
21272 pokev+21,peek(v+21)or24:poke50171,50:poke50172,50:pokev+6,142:pokev+7,140
21273 pokev+8,172:pokev+9,140:pokev+42,8:pokev+43,8:pokev+29,peek(v+29)or24
21280 ifin(33,1)<>apthen21290
21281 print"{brn}{home}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}2-....,+{down}{left}{left}{left}{left}{left}{left}{left}//////"
21290 ifin(37,1)<>apthen21300
21291 pokev+21,peek(v+21)or128:poke50175,58:pokev+46,12:pokev+14,138
21292 pokev+15,105:pokev+23,peek(v+23)or128:pokev+29,peek(v+29)or128
21300 ifin(38,1)<>apthen21310
21301 pokev+21,peek(v+21)or208:pokev+28,64:poke50175,55:poke50172,57
21302 poke50174,56:pokev+12,160:pokev+13,125:pokev+14,160:pokev+15,125:pokev+46,12
21303 pokev+9,125:pokev+45,9:pokev+37,0
21304 pokev+43,12:pokev+23,208:pokev+29,peek(v+29)or208
21305 pokev+8,160:ifin(45,1)=-1ory3=1thenpokev+8,180
21307 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {down}{left}{left} {down}{left}{left} {down}{left}{left}{left} "
21310 ifin(39,1)<>apthen21320
21311 pokev+21,peek(v+21)or128:poke50175,30:pokev+46,9:pokev+14,172
21312 pokev+15,98:pokev+23,peek(v+23)or128
21314 print"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{blk}1..0{down}{left}{left}{left}{left}-..,{down}{left}{left}{left}{left}-..,"
21315 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}-..,{down}{left}{left}{left}{left}-..,"
21318 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{brn}+1////02"
21320 ifin(40,1)<>apthen21330
21321 pokev+21,peek(v+21)or128:poke50175,52:pokev+28,128:pokev+46,8:pokev+37,11
21322 pokev+38,7:pokev+14,160:pokev+15,110:pokev+23,peek(v+23)or128
21323 pokev+29,peek(v+29)or128
21330 ifin(44,1)<>apthen21340
21331 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{brn}{CBM-A}"
21340 ifin(45,1)<>apthen21350
21341 pokev+21,peek(v+21)or32:pokev+28,peek(v+28)or32:pokev+44,14:pokev+37,0
21342 pokev+38,7:pokev+29,peek(v+29)or32:pokev+10,160:pokev+11,122:poke50173,40
21350 ifin(46,1)<>apthen21370:rem gasmaske
21360 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{brn}{CBM-H}"
21370 ifin(41,1)<>apthen21500
21372 ifap=57then21500
21375 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{brn}{CBM-L}"
21500 return
30000 pokev+21,0:print"{clr}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{grn}sie tragen bei sich"
30010 fori=1to46
30020 ifin(i,1)=-1thenprint"{blu}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{wht}"it$(i)
30025 next
30026 print"{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{grn}{rvon}space druecken{rvof}{wht}"
30030 geta$:ifa$<>" "then30030
30040 ifa$=" "thengoto160
34000 pokev+21,0:printchr$(14),"{clr}{down}{down}{down}":input"Filename";e$
34010 open2,1,2,e$
34020 fori=1to58
34030 print#2,pn(i,1):print#2,pn(i,2):print#2,pn(i,3):print#2,pn(i,4)
34035 print#2,pn(i,5):print#2,pn(i,6):next
34040 fori=1to46
34050 print#2,in(i,1):print#2,in(i,2):print#2,in(i,3):next
34060 print#2,ap:print#2,x1:print#2,x2:print#2,x4:print#2,x5:print#2,x6
34070 print#2,x9:print#2,y1:print#2,y2:print#2,y3:print#2,y4:print#2,ge
34080 close2:goto50300
35000 print"{clr}{down}{down}{down}":input"Filename";e$:kk=1
35005 open2,1,0,e$
35010 fori=1to58
35020 input#2,pn(i,1),pn(i,2),pn(i,3),pn(i,4),pn(i,5),pn(i,6):next
35030 fori=1to46
35040 input#2,in(i,1),in(i,2),in(i,3):next
35050 input#2,ap,x1,x2,x4,x5,x6,x9,y1,y2,y3,y4,ge
35060 close2:return
39900 datagehe,zerstoere,oeffne,klopfe,frage,hacke,toete,krieche,werfe,schiebe
39910 datadrehe,klettere,nimm,verliere,ziehe,list,save,stop
39920 dataspitzhacke,beduine,strauch,zugemauerter eingang,schlange,statue,hebel
39925 datatuer nach westen,seil,tuer nach norden,durchgang,durchgang
39930 datatuer nach norden,tonkrug mit essen,skorpion,pfeil,tuer nach norden
39935 databeschaedigte decke,spruenge in der decke,diamant,toter grabraeuber
39940 datastatue,tuer nach norden,loch,relief,tuer nach norden,horus
39945 datatuer nach norden,schaetze,holzbalken,tuer nach westen,tuer
39950 dataoeffnung in der decke,tuer nach norden,tuer nach norden
39955 datatuer nach norden,osirisstatue,sarkophag,zugemauerter ausgang
39960 dataholzschrein,amulett,tuer nach norden,tuer nach sueden,schluessel
39970 datatotenmaske,gasmaske,giftige gase,falltuer,schritte,sonnenaufgang
39975 datageheimgang,auge,wand,treppe
39985 data160,0,162,0,142,32,208,142,33,208,232,234,224,16,208,244,200,192,255
39990 data208,237,169,0,141,32,208,141,33,208,96
40000 data3,4,2,0,0,0,2,2,2,1,0,0,3,1,3,0,0,0,1,0,5,0,0,0,0,0,0,4,0,0
40001 data5,0,7,0,0,0,0,0,0,6,0,0,9,17,15,0,0,0,10,8,0,0,0,0,0,9,0,0,0,0
40002 data0,10,12,0,0,0,0,13,0,11,0,0,12,0,0,0,0,0,0,0,20,0,0,0,0,0,0,8,0,0
40003 data0,0,0,15,0,0,8,0,18,0,0,0,0,0,19,17,0,0,0,0,0,18,0,58,0,0,21,14,0,0
40004 data0,0,0,20,0,0,27,23,0,21,0,0,22,24,0,26,0,0,23,0,0,0,0,0,26,0,24,0,0,0
40005 data0,25,23,0,0,0
40006 data0,22,0,28,0,0,31,0,27,29,0,0,0,0,28,0,0,0,0,0,0,0,0,0,0,28,0,30,0,0
40007 data0,0,0,31,0,33,34,38,0,36,32,0,0,33,0,35,0,0,55,36,34,0,0,0,35,37,33,0
40008 data0,0,36,41,0,0,0,0,33,0,0,0,0,0,0,40,46,0,0,0,39,0,0,0,0,0,37,42,0,0,0
40009 data0,41,0,0,0,0,0,0,44,48,0,0,0,43,50,49,0,0,0,49,0,0,0,0,0,0,0,51,39
40010 data0,0,0,0,0,40,0,0,0,49,0,43,0,0,48,45,0,44,0,0,44,0,0,38,0,0,0,0,0,46,0
40011 data0,0,0,0,47,0,0,0,0,0,52,0,0,0,0,0,51,0,0,0,35,0,0,0,56,0,57,0,0,55,0
40012 data56,0,0,0,0,0,0,0,0,0,19,0
40025 data4,1,1,5,0,1,7,0,1
40027 data7,0,0,35,0,1,10,1,1
40029 data10,0,0,10,0,1,12,1,1
40030 data13,0,1,0,0,0
40031 data14,0,1,15,0,1,16,1,1,16,0,0
40032 data21,0,0
40033 data21,0,1,23,0,1
40034 data24,0,1,25,1,1
40035 data27,1,1,31,0,1,31,0,1
40036 data37,0,1
40037 data40,0,1,42,0,1,42,0,1
40038 data38,0,1,47,0,0,48
40039 data1,1,50,0,1,50,0,0
40040 data51,0,1,52,0,1,0,0,0
40041 data47,0,1,52,0,1,53,0,1
40043 data54,0,1,57,0,1,0,1,1
40044 data19,0,1,25,0,1,58,1,1,53,1,0,27,1,0
45000 poke53270,peek(53270)or16:poke53283,9:poke53282,7
45005 poke53280,0:poke53281,9
45010 print"{clr}{gry1}{down}{down}{rght}{rght}{rght} p h a r a o s g r a v e"
45020 print"{down} a d v e n t u r e {blk}"
45030 print" ..
45031 print" .//.
45032 print" .////.
45033 print" .//////.
45034 print" .////////.
45035 print" .//////////.
45036 print" .////////////.
45037 print" .//////////////.
45038 print" .////////////////.
45039 print" .//////////////////.
45040 print" .////////////////////.
45041 print" .//////////////////////.
45050 print"{down}{down}{gry1} by "
45060 print" wolfgang rausch "
45100 gosub12000:gosub30
45110 print"{clr}",chr$(14):poke53270,peek(53270)and239
45112 print"{wht}{down}{down}{down}{rght}{rght}{rght}{rght}N : Neues Spiel beginnen"
45113 print"{down}{rght}{rght}{rght}{rght}A : Altes Spiel fortsetzen"
45114 getx$:ifx$="n"thenda=1:goto45120
45116 ifx$="a"thengosub35000:gosub60:goto45120
45118 ifx$<>"a"andx$<>"n"then45114
45120 print"{clr}{rght}{yel}Ziel des Spiels ist es eine Pyramide"
45125 print"{rght}zu erforschen und die wertvolle"
45127 print"{rght}Totenmaske des Pharaos zu finden."
45130 print"{down}{rght}{orng}Folgende Verben versteht der Computer:"
45132 print"{rght}{down}gehe,nimm,verliere,oeffne,toete"
45134 print"{rght}zerstoere,klopfe,frage,werfe,drehe"
45136 print"{rght}hacke,krieche,werfe,schiebe,klettere"
45137 print"{rght}list,save,stop
45140 print"{blk}{down}{rght}Nach jedem eingegebenen Wort muss"
45142 print"{rght}'RETURN' gedrueckt werden."
45144 print"{rght}Alle Nomen koennen auf 5,alle Verben"
45146 print"{rght}auf 4 Buchstaben abgekuerzt werden."
45148 print"{rght}Bei Richtungsangaben genuegt ein "
45150 print"{rght}Buchstabe.
45152 print"{rght}z.B.:GEHE 'RETURN' N 'RETURN'"
45154 print"{rght}LIST zeigt alle Gegenstaende, die"
45155 print"{rght}man bei sich traegt (maximal 3)."
45157 print"{rght}SAVE speichert den Spielstand auf"
45158 print"{rght}Kassette ab."
45160 ifda=1thengosub60
45170 print"{down}{rght}{rght}{rght}{rght}{rvon}'SPACE' druecken{rvof}"
47000 getx$:ifx$<>" "then47000
47010 ifx$=" "thenprintchr$(142),"{clr}"
47020 ifkk=1then155
47025 goto150
49000 gosub5600:print"{clr}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}sie sind ausserhalb":gosub5800
49002 ifin(45,1)<>-1then49050
49005 printchr$(14),"{clr}{grn}{down}{down}{down} Sie haben es geschafft die goldene"
49010 print"{down} Totenmaske des Pharaos zu finden"
49020 print"{down} und hoechste Ehrungen sind ihnen "
49030 print"{down} gewiss,"
49040 print"{down}{down}{down}{red} doch der Fluch des Pharaos wird"
49045 print"{down} sie fuer immer verfolgen.{wht}":goto50300
49050 print"{clr}{grn}{down}{down}{down} Sie haben es zwar geschafft, die"
49055 print"{down} Pyramide lebend zu verlassen, doch"
49060 print"{down} sie haben die goldene Totenmaske"
49065 print"{down} nicht gefunden.":goto50300
50100 rem
50105 pokev+14,190:pokev+15,130
50110 forf2=135to155step2:poke50175,46:fort=1to100:next:pokev+15,f2
50120 poke50175,47:fort=1to100:next:next
50121 fort=1to30:sys866:next:goto50210
50190 printchr$(14)"{clr}{red}{down}{down} sie haben sich hoffnungslos verirrt{wht}":goto50300
50200 printchr$(14)"{clr}{red}{down}{down} sie haben den halt verloren und sind hinuntergefallen{wht}"
50201 goto50300
50202 printchr$(14)"{clr}{red}{down}{down} sie sind in eine fallgrube gestuerzt{wht}":gosub5600:goto50300
50203 gosub5600:printchr$(14)"{clr}{red}{down}{down} die "it$(54)" ist eingestuerzt{wht}":goto50300
50204 gosub5600:printchr$(14)"{red}{clr}{down}{down} die decke ist heruntergebrochen{wht}":goto50300
50206 printchr$(14)"{clr}{red}{down}{down} ein herabfallender stein hat sie er schlagen{wht}":goto50300
50207 printchr$(14)"{clr}{red}{down}{down} "it$(47)" haben sie getoetet{wht}":goto50300
50208 fort=1to20:sys866:next:gosub5600:print"{clr}{red}{down}{down} sie wurden von hinten gepackt und "
50209 print" erwuergt{wht}":goto50300
50210 gosub5600:printchr$(14)"{clr}{red}{down}{down} die "it$(5)" hat sie gebissen{wht}":goto50300
50211 gosub5600:printchr$(14)"{clr}{red}{down}{down} eine "it$(48)" hat sich unter ihnen"
50212 print" geoeffnet{wht}":goto50300
50213 gosub5600:printchr$(14)"{clr}{red}{down}{down} sie haben einen mechanismus "
50214 print" ausgeloest ,wodurch ein "it$(16)" aus "
50215 print" der wand geschossen wurde{wht}":goto50300
50300 printchr$(14)"{down}{down}{down}{down}{down}{rght}{rght}{rght}Noch ein Versuch?{$a0}(j/n)"
50310 geta$:ifa$<>"j"anda$<>"n"then50310
50320 ifa$="j"thenclr:printchr$(142)"{clr}":run
50330 sys64738
50700 forx=1to20:pokev+8,160+x:fort=1to200:next:next:in(45,3)=1:gosub5900:goto164
50720 ti$="000000"
50725 printa4$"kommando ?"
50730 poke631,0:poke198,0
50731 u=peek(631)
50740 ifti$="000002"then50770
50750 ifu=71thenpoke631,u:goto250
50760 ifu>0andu<>71then50770
50765 goto50731
50770 forx=1to10:pokev+13,125-x:fort=1to300:next:next:fort=1to20:sys866:next
50780 gosub5600:printchr$(14)"{clr}":goto50300
50800 ti$="000000":poke631,0
50805 printa4$"kommando ?"
50806 poke631,0:poke198,0
50807 u=peek(631)
50808 ifu=71oru=84thenpoke631,u:goto250
50809 ifu>0andu<>71andu<>84then50820
50810 ifti$="000002"then50820
50815 goto50807
50820 forx=1to10:pokev+15,140+x:pokev+14,170-x/2:fort=1to100:next:next
50825 fort=1to10:sys866:next:gosub5600
50830 printchr$(14)"{clr}{red}{down}{down} der "it$(15)" hat sie gestochen{wht}":goto50300
52000 printa3$"{grn}sie hoeren "it$(49)" hinter sich{wht}":c=c+1
52004 forc1=1to4
52005 forla=5to0step-.4
52010 pokesi+24,la:pokesi+5,8*16+10:pokesi+6,15*16:pokesi+1,15:pokesi+0,0
52020 pokesi+4,129:next
52025 pokesi+4,0:pokesi+5,0
52030 fort=1to800:next:next:return
0 REM *** PHARAOS GRAVE V.2 *** 1 REM BY W.RAUSCH 2 REM MOERIKEWEG 73 3 REM 8504 STEIN 5 A1$="{HOME,18DOWN}" 6 A2$="{HOME,21DOWN}" 7 A3$="{HOME,22DOWN}" 8 A4$="{HOME,23DOWN}" 9 PRINT"{CLR}":V=53248:SI=54272:POKE V+21,0:POKE 657,128 10 FOR I=832 TO865:READ A:POKE I,A:NEXT 11 DATA 120,169,51,133,1,169,0,133,95 12 DATA 133,90,133,88,169,208,133,96,169,240,133,89,169,224,133,91,32,191,163 13 DATA 169,55,133,1,88,96 15 SYS 832:POKE 850,160:SYS 832:POKE 56576,PEEK (56576)AND 252:POKE 53272,8 16 POKE 648,192 20 GOTO 10000 30 DIM PN(58,6),IT$(54),IN(46,3),CO$(18) 40 FOR I=1 TO18:READ CO$(I):NEXT 50 FOR I=1 TO54:READ IT$(I):NEXT 55 RETURN 60 FOR I=866 TO895:READ A:POKE I,A:NEXT :IF KK=1 THENRETURN 65 FOR I=1 TO58 70 READ PN(I,1),PN(I,2),PN(I,3),PN(I,4),PN(I,5),PN(I,6) 80 NEXT 90 FOR I=1 TO46 100 READ IN(I,1),IN(I,2),IN(I,3) 110 NEXT 130 RETURN 150 AP=1 155 POKE 53280,11:POKE 53281,0 160 PRINT"{CLR}":POKE V+21,0:POKE V+17,PEEK (V+17)AND 239:GOSUB 19000 164 POKE 214,15:SYS 58640:PRINT"{RED}WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW{WHITE}" 165 POKE V+17,PEEK (V+17)OR 16 170 PRINT"{UP}MOEGLICHE RICHTUNGEN :"; 174 FOR I=1 TO6 175 IF PN(AP,I)>0 THENON IGOSUB 179,180,181,182,184,185 176 NEXT :GOTO 210 179 PRINT" W";:RETURN 180 PRINT" O";:RETURN 181 PRINT" N";:RETURN 182 PRINT" S";:RETURN 184 PRINT" H";:RETURN 185 PRINT" R":RETURN 210 PRINTA1$"BESONDERHEITEN: ";:N=0 220 FOR I=1 TO46 222 IF N>0AND IN(I,1)=APAND IN(I,3)=1 THENPRINT"{16RIGHT}"IT$(I) 230 IF IN(I,1)=APAND N=0AND IN(I,3)=1 THENPRINTIT$(I):N=1 240 NEXT 242 IF AP=35AND X8=1 THEN50100 245 IF AP=16AND IN(14,1)=-1AND IN(15,1)>0 THEN50800 246 IF AP=53AND IN(45,1)=-1 THEN50720 247 IF AP=50AND IN(46,1)<>-1 THEN50207 250 PRINTA3$:INPUT"KOMMANDO ";B$ 260 FOR I=1 TO18 270 IF LEFT$ (B$,4)=LEFT$ (CO$(I),4) THEN300 280 NEXT 300 IF AP=41AND IN(41,1)<>-1OR AP=42AND IN(41,1)<>-1 THENGOSUB 52000 310 IF C=3 THEN50208 410 IF AP=24 THENGOTO 50204 500 IF I<>1 THEN730 510 GOSUB 5540 530 GOTO 550 540 GOTO 5530 550 IF AP=2OR AP=3 THENX1=X1+1 560 IF X1=2 THENGOTO 50190 570 IF AP=10AND IN(6,1)=-1 THEN5530 590 IF AP=19AND A$="R"AND IN(9,1)<>19 THENGOTO 50203 610 IF AP=31AND A$="S" THENGOTO 50202 620 IF AP=48AND A$="S"OR AP=44AND A$="W" THEN50206 630 IF AP=35AND IN(14,1)<>AP THEN50100 640 IF AP=37AND A$="O"AND IN(30,1)=37 THENAP=41:GOTO 5500 645 IF AP=37AND IN(30,1)<>37AND A$="O" THEN50200 650 IF AP=50AND A$="W"AND IN(31,1)<>0 THEN5530 655 IF AP=38AND A$="N"AND IN(28,1)=0AND IN(46,1)<>-1 THEN50207 660 IF A$="W"AND PN(AP,1)<>0 THENAP=PN(AP,1):GOTO 5500 670 IF A$="O"AND PN(AP,2)<>0 THENAP=PN(AP,2):GOTO 5500 680 IF A$="N"AND PN(AP,3)<>0 THENAP=PN(AP,3):GOTO 5500 690 IF A$="S"AND PN(AP,4)<>0 THENAP=PN(AP,4):GOTO 5500 700 IF A$="H"AND PN(AP,5)<>0 THENAP=PN(AP,5):GOTO 5500 710 IF A$="R"AND PN(AP,6)<>0 THENAP=PN(AP,6):GOTO 5500 720 GOTO 5530 730 IF I<>2 THEN830 735 IF IN(1,1)<>-1 THEN5530 739 X2=X2+1:IF X2>5 THEN5475 740 GOSUB 5540 770 IF AP=7AND IN(3,1)=0AND IN(4,1)=APAND A$="EINGA" THENIN(4,1)=0:GOTO 5410 780 IF AP=13AND A$="TUER" THENGOTO 50211 790 IF AP=13AND A$="WAND"AND IN(11,1)=0 THENIN(11,1)=13:GOTO 5420 800 IF AP=21AND IN(16,1)>0AND A$=IT$(16) THENIN(16,1)=0:GOTO 5500 810 IF AP=54AND IN(40,1)>0AND A$="AUSGA" THENGOTO 49000 820 GOTO 5530 830 IF I<>3 THEN940 840 GOSUB 5540:GOSUB 5000 850 IF X<>32AND X<>40AND X<>38 THENGOTO 5530 860 IF X<>32 THEN920 870 IF AP=15 THENPN(15,3)=16:IN(13,1)=0:GOTO 5500 875 IF AP=13 THEN50211 880 IF AP=21AND IN(16,1)=0 THENPN(21,3)=22:IN(17,1)=0:GOTO 5500 881 IF AP=25AND IN(43,1)=25 THENIN(43,1)=0:PN(25,4)=19:IN(42,1)=0:PN(19,3)=25:GOTO 5500 882 IF AP=31AND X5=1AND IN(23,1)=AP THENIN(23,1)=0:PN(31,3)=32:GOTO 5500 890 IF AP=21AND IN(16,1)>0 THEN50213 895 IF X5=1AND AP=31 THENPN(AP,3)=32:IN(31,1)=0:GOTO 5500 900 IF AP=45 THENPN(45,3)=50:IN(28,1)=0:GOTO 5500 905 IF AP=42 THENPN(42,3)=40:IN(26,1)=0:GOTO 5500 906 IF AP=47AND PN(AP,3)=0 THENPN(AP,3)=52:IN(36,1)=0:GOTO 5500 910 IF AP=38 THENPN(38,3)=50:IN(28,1)=0:GOTO 5500 920 IF AP=50 THENPN(50,1)=44:IN(31,1)=0:GOTO 5500 925 IF AP=53AND Y3=0AND X=38 THENY3=1:GOTO 50700 926 IF AP=57AND X=40AND Y4=0AND IN(44,1)=-1 THENIN(41,1)=AP:Y4=1:GOTO 5458 930 GOTO 5530 940 IF I<>4 THEN1130 950 GOSUB 5540 955 IF AP<8OR A$<>IT$(53) THENGOTO 5530 960 PRINTA2$:INPUT"{GREEN}WELCHE: W O N S{SPACE,2SPACE}";C$ 970 IF AP=13AND IN(11,1)=0AND C$="O" THENGOTO 5430 980 IF AP<>13OR AP=13AND C$<>"O" THEN1100 1000 GOTO 5530 1100 PRINTA3$"{GREEN}NICHTS PASSIERT{SPACE,6SPACE,WHITE}":GOSUB 5800:GOSUB 5900:GOTO 164 1130 IF I<>5 THEN1180 1140 GOSUB 5540 1150 GOSUB 5000 1160 IF AP=5AND X=2AND IN(X,1)>0 THENIN(2,1)=0:IN(X,2)=0:GOTO 5400 1170 GOTO 5530 1180 IF I<>6 THEN1220 1182 IF IN(1,1)<>-1 THEN5530 1183 X2=X2+1:IF X2>5 THEN5475 1185 GOSUB 5540:GOSUB 5000 1200 IF AP=7AND IN(X,1)=APAND IN(X,1)>0 THENIN(X,1)=0:IN(4,3)=1:GOTO 5500 1210 GOTO 5530 1220 IF I<>7 THEN1270 1230 GOSUB 5540:GOSUB 5000 1240 IF X<>15AND X<>5 THEN5530 1250 IF AP=16AND IN(X,1)=AP THENIN(X,1)=0:GOTO 5500 1255 IF AP=35AND X=5 THEN50100 1260 GOTO 5530 1270 IF I<>8 THEN1320 1280 GOSUB 5540 1285 IF AP=7AND IN(4,1)=0AND A$=LEFT$ (IT$(11),5) THENAP=8:GOTO 5500 1290 IF AP=13AND A$=LEFT$ (IT$(51),5)AND IN(11,1)=AP THENAP=14:GOTO 5500 1300 IF AP=14AND A$=LEFT$ (IT$(51),5) THENAP=13:GOTO 5500 1310 GOTO 5530 1320 IF I<>9 THEN1360 1330 GOSUB 5540:GOSUB 5000 1335 IF X<>9AND IN(X,1)<>-1 THEN5530 1340 IF AP=51AND PN(AP,5)=0 THENPN(AP,5)=54:IN(X,1)=AP:GOTO 5440 1345 IF AP=37 THENIN(X,1)=0:GOTO 5470 1350 GOTO 5530 1360 IF I<>10 THEN1410 1370 GOSUB 5540 1375 IF AP=27 THEN1395 1376 GOSUB 5000 1390 IF AP=40AND Y2=0AND IN(X,1)=AP THENY2=1:IN(35,1)=AP:PN(40,3)=47:GOTO 5450 1395 IF AP=27AND A$="GRABR"AND IN(46,3)=0 THENIN(46,3)=1:GOTO 5480 1400 GOTO 5530 1410 IF I<>11 THEN1460 1420 GOSUB 5540:GOSUB 5000 1430 IF AP=10AND X=7AND IN(6,1)=-1 THEN50206 1440 IF AP=52AND X=37AND IN(34,1)=AP THENPN(52,3)=53:IN(34,1)=0:GOTO 1680 1450 GOTO 5530 1460 IF I<>12 THEN1510 1470 GOSUB 5540 1490 IF X4=1 THENAP=54:GOTO 5500 1500 GOTO 5530 1510 IF I<>13 THEN1580 1520 GOSUB 5540 1525 IF GE>=3 THEN5460 1530 GOSUB 5000 1535 IF AP=16AND X=14 THENIN(X,1)=-1:IN(15,3)=1:GOTO 5500 1536 IF AP=10AND X=6 THENIN(7,3)=1 1540 IF IN(X,1)=APAND IN(X,2)>0 THENIN(X,1)=-1:GOTO 5500 1550 IF IN(X,2)=0 THEN5530 1560 IF IN(X,1)<>AP THENPRINTA3$"{GREEN}NICHT VORHANDEN{WHITE}":GOSUB 5800:GOSUB 5900:GOTO 164 1570 GOTO 5530 1580 IF I<>14 THEN1640 1590 GOSUB 5540 1600 GOSUB 5000 1610 IF IN(X,1)<>-1 THENPRINTA3$"{GREEN}ICH HABE DAS NICHT{WHITE}":GOSUB 5800:GOSUB 5900:GOTO 164 1612 IF AP=19AND A$="SEIL"AND IN(9,1)=-1 THENGOSUB 5455:GOTO 1620 1615 IF AP=31AND A$="DIAMA"AND IN(X,1)=-1 THENX5=1:GOSUB 5465:IN(20,2)=0:IN(20,3)=0:GOTO 1620 1620 IN(X,1)=AP:GOTO 5500 1640 IF I<>15 THEN1700 1650 GOSUB 5540:GOSUB 5000 1655 IF X<>7 THEN5530 1660 IF AP=10AND IN(6,1)=-1AND X9=0 THENPN(AP,1)=11:IN(8,1)=0:X9=1:GOTO 1680 1670 GOTO 5530 1680 PRINTA3$"{GREEN}DIE "IT$(32)" OEFFNET SICH{WHITE}":GOSUB 5800:GOTO 160 1700 IF I<>16 THEN1750 1710 GOTO 30000 1750 IF I<>17 THEN1800 1755 GOTO 34000 1800 IF I<>18 THEN1900 1810 POKE V+21,0:PRINTCHR$ (14),"{CLR,2DOWN,3RIGHT}SIE WOLLEN AUFGEBEN (J/N) ?" 1820 GET A$:IF A$="J" THENSYS 64738 1830 IF A$="N" THENPRINTCHR$ (142):GOSUB 5600:GOTO 160 1840 IF A$=""OR A$=" " THEN1820 1900 PRINTA4$"UNBEKANNTES WORT":GOSUB 5800 1910 PRINTA3$"{17SPACE}":PRINTA4$"{24SPACE}":GOTO 164 5000 FOR X=1 TO46 5010 IF LEFT$ (A$,5)=LEFT$ (IT$(X),5) THENRETURN 5020 NEXT 5030 PRINTA4$;TAB( 20)"{CYAN}UNBEKANNTES WORT{WHITE}":FOR T=1 TO1000:NEXT 5035 GOSUB 5900 5040 X=0:GOTO 164 5400 PRINTA3$"{GREEN}GEHE IN RICHTUNG DES "IT$(50)"{WHITE}":GOSUB 5800 5401 PN(5,2)=6:GOTO 160 5410 PRINTA3$"{GREEN}DURCHGANG IN DER MAUER{WHITE}":IN(4,1)=0:X6=1:GOSUB 5800:GOTO 5500 5420 PRINTA3$"{GREEN}EIN "IT$(51)" WIRD SICHTBAR{WHITE}":GOSUB 5800:GOTO 160 5430 PRINTA3$"{GREEN}ES KLINGT HOHL{SPACE,10SPACE,WHITE}":GOSUB 5800:GOTO 160 5440 PRINTA3$"{GREEN}"IT$(9)" HAT SICH OBEN VERFANGEN{WHITE}":X4=1:GOSUB 5800:GOTO 160 5450 PRINTA3$"{GREEN}EIN "IT$(11)" WIRD SICHTBAR{WHITE}":GOSUB 5800:GOTO 160 5455 PRINTA3$"{GREEN}"IT$(9)" HAENGT HINUNTER{WHITE}":GOSUB 5800:RETURN 5458 PRINTA3$"{GREEN}ER ENTHAELT EIM "IT$(41)"{WHITE,INST}":GOSUB 5800:GOTO 160 5460 PRINTA3$"{GREEN}SIE KOENNEN NICHT SO VIEL TRAGEN{WHITE}":GOSUB 5800:GOTO 160 5465 PRINTA3$"{GREEN}"IT$(20)" IST DAS FEHLENDE "IT$(52)" DER "IT$(6)"{WHITE}":GOSUB 5800:RETURN 5470 PRINTA3$"{GREEN}"IT$(9)" IST HINUNTERGEFALLEN{WHITE}":GOSUB 5800:GOTO 160 5475 PRINTA3$"{GREEN}"RIGHT$ (IT$(1),5)" IST JETZT STUMPF{WHITE}":GOSUB 5800:GOSUB 5900:GOTO 164 5480 PRINTA3$"{GREEN}ER TRUG EINE "IT$(46)" BEI SICH{WHITE}":GOSUB 5800:GOTO 160 5500 GOSUB 5900 5510 PRINTA4$"{CYAN}IN ORDNUNG{WHITE}":FOR T=1 TO1000:NEXT :IF I=13 THENGE=GE+1 5520 IF I=14 THENGE=GE-1 5525 GOSUB 5600:GOTO 160 5530 GOSUB 5900 5535 PRINTA4$"{CYAN}NICHT MOEGLICH{WHITE}":FOR T=1 TO1000:NEXT :PRINTA4$"{SPACE,14SPACE}":GOTO 164 5540 PRINTA4$;TAB( 25):INPUTA$:A$=LEFT$ (A$,5):RETURN 5600 POKE V+21,0:POKE V+28,0:POKE V+23,0:POKE V+29,0:RETURN 5800 FOR T=1 TO3000:NEXT :RETURN 5900 PRINTA3$"{39SPACE}" 5910 PRINTA4$"{38SPACE}":RETURN 10000 AD=57344 10010 READ X:IF X=-1 THENGOTO 45000 10020 CG=AD+X*8:FOR I=0 TO7:READ Q:POKE CG+I,Q:NEXT :GOTO 10010 10110 DATA 28,252,243,207,63,255,255,255,255 10120 DATA 30,255,255,255,255,252,243,207,63 10130 DATA 31,255,255,255,255,255,255,15,240 10140 DATA 33,255,255,255,255,15,240,255,255 10150 DATA 35,255,255,15,240,254,254,254,254 10160 DATA 36,0,31,227,252,254,254,254,254 10170 DATA 37,255,255,255,255,63,207,243,252 10180 DATA 38,63,207,243,252,255,255,255,255 10190 DATA 39,0,248,199,63,127,127,127,127 10200 DATA 40,255,255,240,15,255,255,255,255 10210 DATA 41,255,255,255,255,240,14,254,254 10220 DATA 42,255,255,255,255,255,255,240,15 10230 DATA 43,254,253,251,247,239,223,191,127 10240 DATA 44,254,254,254,254,254,254,254,254 10250 DATA 45,127,127,127,127,127,127,127,127 10260 DATA 46,255,255,255,255,255,255,255,255 10270 DATA 47,0,255,255,255,255,255,255,255 10280 DATA 48,0,254,254,254,254,254,254,254 10290 DATA 49,0,127,127,127,127,127,127,127 10300 DATA 50,127,191,223,239,247,251,253,254 10400 DATA 51,239,239,239,239,239,223,191,127 10410 DATA 52,224,239,239,239,239,239,239,239 10420 DATA 53,239,239,239,143,47,239,239,239 10430 DATA 54,0,239,239,239,239,239,239,239 10440 DATA 55,254,254,254,254,254,224,235,239 10450 DATA 56,255,255,255,255,255,255,95,241 10460 DATA 57,254,254,254,254,0,254,254,254 10470 DATA 27,239,239,239,239,239,239,239,224 10480 DATA 59,239,239,239,239,247,251,253,254 10490 DATA 60,239,239,239,239,239,239,239,15 10500 DATA 61,239,239,227,233,236,239,239,239 10510 DATA 62,239,239,239,239,15,239,239,239 10520 DATA 29,15,239,239,239,239,239,239,239 10530 DATA 64,127,127,127,127,0,127,127,127 10540 DATA 65,255,255,255,255,255,15,239,239 10550 DATA 67,0,255,255,0,0,0,0,0 10560 DATA 68,239,239,239,239,239,239,239,239 10570 DATA 69,254,254,254,254,254,254,240,15 10580 DATA 70,239,239,239,239,240,239,239,239 10590 DATA 71,254,254,254,254,254,254,254,0 10600 DATA 72,127,127,127,127,127,127,127,0 10610 DATA 73,15,240,255,255,255,255,255,255 10620 DATA 74,240,15,255,255,255,255,255,255 10630 DATA 75,255,170,255,170,255,170,255,170 10640 DATA 76,85,85,85,85,85,87,95,255 10650 DATA 77,85,85,85,87,127,255,255,255 10660 DATA 78,85,85,85,85,245,255,255,255 10670 DATA 79,85,85,85,85,85,245,255,255 10680 DATA 80,85,85,85,85,85,85,245,255 10685 DATA 81,63,207,243,252,254,254,254,254 10690 DATA 82,254,254,254,254,15,240,255,255 10695 DATA 83,127,255,15,240,255,255,255,255 10700 DATA 84,252,242,206,62,254,254,254,254 10705 DATA 85,254,254,254,254,252,243,207,63 10710 DATA 86,255,255,255,255,252,242,206,62 10715 DATA 87,255,255,255,255,240,14,254,254 10720 DATA 88,254,254,254,254,254,254,240,15 10725 DATA 89,254,254,240,15,255,255,255,255 10730 DATA 90,126,190,222,238,246,250,252,254 10735 DATA 91,127,127,127,127,63,207,243,252 10740 DATA 92,14,240,255,255,255,255,255,255 10745 DATA 93,96,99,105,108,110,110,110,110 10750 DATA 94,6,198,150,54,118,118,118,118 10755 DATA 95,110,110,110,110,110,110,110,110 10760 DATA 97,118,118,118,118,118,118,118,118 10765 DATA 98,110,110,110,110,108,105,99,15 10770 DATA 99,118,118,118,118,54,150,198,240 10775 DATA 100,0,0,0,0,0,15,63,127 10780 DATA 101,15,31,63,127,255,255,255,255 10785 DATA 102,240,248,252,254,255,255,255,255 10790 DATA 103,0,0,0,0,0,240,252,254 10795 DATA 104,168,168,168,168,168,168,0,0 10800 DATA 105,170,170,170,170,170,170,0,0 10805 DATA 106,168,168,168,168,168,168,168,168 10810 DATA 107,162,162,162,162,162,162,162,162 10815 DATA 108,0,0,168,168,168,168,168,168 10820 DATA 109,170,170,170,170,170,170,170,170 10825 DATA 110,0,0,170,170,170,170,170,170 10830 DATA 111,0,0,129,195,255,255,255,255 10835 DATA 112,255,255,248,6,184,191,255,255 10840 DATA 113,0,0,1,3,15,255,255,255 10845 DATA 114,0,0,128,192,224,255,255,255 10850 DATA 115,0,0,0,255,255,0,0,0 10855 DATA 116,193,182,182,128,193,227,193,193 10860 DATA 117,129,129,129,129,255,255,255,255 10865 DATA 118,255,219,129,195,195,129,219,255 10900 DATA -1 12000 FOR I=0 TO62:READ Q:POKE 50816+I,Q:NEXT 12001 DATA 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,0,0 12002 DATA 0,0,64,0,0,128,0,1,0,0,3,255,248,4,0,0,8,0,0,8,0,0,8,0,0,0,0,0 12004 FOR I=0 TO62:READ Q:POKE 50880+I,Q:NEXT 12005 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,120,0,0,254,0,1,255,128 12006 DATA 3,255,224,7,255,248,15,255,254,31,255,252,63,255,248,127,255,240,0,0 12007 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0 12010 FOR I=0 TO62:READ Q:POKE 50944+I,Q:NEXT 12011 DATA 0,0,64,0,64,128,2,33,0,1,36,128,0,200,76,17,8,80,18,69,32,34,38,64,36 12012 DATA 100,48,20,162,64,8,164,128,4,153,192,5,22,40,2,20,16,5,38,0,8,169,0,4 12013 DATA 72,192,0,80,0,0,96,0,0,96,0,0,96,0 12015 FOR I=0 TO62:READ Q:POKE 51008+I,Q:NEXT 12016 DATA 3,252,0,2,168,0,3,92,0,3,92,0,3,92,0,3,92,0,15,255,0,15,255,0,15,255 12017 DATA 0,15,255,208,15,255,208,15,252,0,14,168,0,7,252,0,7,252,0,3,252,0,3 12018 DATA 252,0,2,138,0,2,138,0,0,163,128,0,0,0 12020 FOR I=0 TO62:READ Q:POKE 51072+I,Q:NEXT 12021 DATA 0,0,0,127,251,254,127,251,254,127,249,254,0,0,0,127,63,60,127 12022 DATA 127,190,127,127,190,62,127,190,0,0,0,127,231,254,127,239,254,127,239 12023 DATA 254,127,207,252,0,0,0,57,255,158,125,255,222,125,255,222,125,255,220 12024 DATA 0,0,0,255,255,255 12026 FOR I=0 TO62:READ Q:POKE 51136+I,Q:NEXT 12027 DATA 95,255,250,95,255,250,80,0,10,80,0,10,88,0,26,88,0,26,92,0,58,92,0,58 12028 DATA 94,0,122,94,0,122,95,0,250,95,0,250,95,129,250,95,126,250,94,255,122 12029 DATA 93,255,186,91,255,218,87,255,234,79,255,242,127,255,254,0,0,0 12031 FOR I=0 TO62:READ Q:POKE 51200+I,Q:NEXT 12032 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,31,0,0,14,0,0,14,0,0,27,0,0,42,128,0 12033 DATA 113,192,0,106,192,0,59,128,0,21,0,0,14,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 12034 DATA 0,0,0,0 12036 FOR I=0 TO62:READ Q:POKE 51264+I,Q:NEXT 12038 DATA 0,0,0,0,0,0,0,0,0,1,85,128,2,170,64,2,170,0,2,175,0,2,173,0,2,174,192 12039 DATA 2,175,192,2,175,0,3,253,0,3,255,0,0,255,0,0,242,0,0,242,0,0,242,0,3 12040 DATA 252,0,3,252,0,0,0,0,0,0,0 12042 FOR I=0 TO62:READ Q:POKE 51328+I,Q:NEXT 12043 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,16,6,0,30,57,120,31,192,112,16,6 12044 DATA 12,8,121,194,3,128,57,28,120,5,33,135,130,24,112,28,7,14,98,0,225,140 12045 DATA 0,30,48,0,1,192,0,0,0,0,0,0 12047 FOR I=0 TO62:READ Q:POKE 51392+I,Q:NEXT 12048 DATA 0,0,0,15,255,240,10,0,80,10,0,80,10,0,80,19,255,200,20,0,40,20,0,40 12049 DATA 20,0,40,39,255,228,40,0,20,40,0,20,40,0,20,79,255,242,80,0,10,80,0,10 12050 DATA 80,0,10,159,255,249,160,0,5,160,0,5,255,255,255 12052 FOR I=0 TO62:READ Q:POKE 51456+I,Q:NEXT 12053 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,56,0,0,76,0,0,134,0,0,18,64,0,47,160,0,110 12054 DATA 160,0,191,64,0,156,64,0,56,0,0,68,0,1,132,0,2,8,0,5,20,0,0,0,0,0,0,0 12055 DATA 0,0,0,0,0,0 12057 FOR I=0 TO62:READ Q:POKE 51520+I,Q:NEXT 12058 DATA 16,0,0,21,0,0,31,64,0,31,80,0,31,213,0,31,254,64,31,255,64,31,255,64 12059 DATA 31,255,208,31,255,244,21,85,84,7,255,244,1,255,244,0,127,244,0,23,244 12060 DATA 0,5,244,0,1,244,0,0,116,0,0,20,0,0,4,0,0,0 12062 FOR I=0 TO62:READ Q:POKE 51584+I,Q:NEXT 12063 DATA 0,0,16,0,0,80,0,1,240,0,7,208,0,7,208,0,95,208,1,255,208,5,255,208 12064 DATA 31,255,208,31,255,208,21,85,80,31,255,64,31,253,0,23,212,0,31,208,0 12065 DATA 31,64,0,29,0,0,20,0,0,16,0,0,0,0,0,0,0,0 12067 FOR I=0 TO62:READ Q:POKE 51648+I,Q:NEXT 12068 DATA 0,0,0,0,0,0,0,0,0,0,0,0,3,255,192,2,0,64,2,239,64,2,239,64,2,15,64,2 12069 DATA 240,64,2,247,64,2,247,64,2,7,64,2,224,64,2,239,64,2,239,64,2,0,64,2 12070 DATA 247,64,2,247,64,2,0,64,3,255,192 12072 FOR I=0 TO62:READ Q:POKE 51712+I,Q:NEXT 12073 DATA 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,8,0,0,55,0,0,59,0,0 12074 DATA 213,192,0,191,128,0,204,192,0,191,128,0,255,192,0,183,128,0,255,192,0 12075 DATA 55,0,0,55,0,0,55,0 12077 FOR I=0 TO62:READ Q:POKE 51776+I,Q:NEXT 12078 DATA 0,0,0,0,56,0,0,124,0,0,84,0,0,124,0,0,40,0,0,56,0,1,255,0,2,214,128,2 12079 DATA 238,128,2,214,128,3,57,128,0,254,0,0,254,0,0,124,0,0,108,0,0,108,0,0 12080 DATA 108,0,0,108,0,0,108,0,0,230,0 12082 FOR I=0 TO62:READ Q:POKE 51840+I,Q:NEXT 12083 DATA 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,28,0,0,62,0,0 12084 DATA 28,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 12086 FOR I=0 TO62:READ Q:POKE 51904+I,Q:NEXT 12087 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,225,128,0,30,3,128,0,48,112,1,204,15,14 12088 DATA 6,0,192,0,0,51,193,192,12,14,56,0,48,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 12089 DATA 0,0,0,0,0,0 12091 FOR I=0 TO62:READ Q:POKE 51968+I,Q:NEXT 12092 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,21,84,0,74,148,1,42,100,4,169,164,18,166 12093 DATA 164,85,90,164,106,154,164,106,154,144,106,154,124,106,153,205,106,151 12094 DATA 240,85,80,60,0,0,13,0,0,0,0,0,0,0,0,0,0,0,0 12096 FOR I=0 TO62:READ Q:POKE 52032+I,Q:NEXT 12097 DATA 255,255,255,128,36,1,128,60,1,128,66,1,128,126,1,128,129,1,128,255,1 12098 DATA 129,0,129,129,255,129,130,0,65,131,255,193,132,0,33,135,255,225,136 12099 DATA 0,17,143,255,241,144,0,9,159,255,249,160,0,5,191,255,253,192,0,3,255 12100 DATA 255,255 12102 FOR I=0 TO62:READ Q:POKE 52096+I,Q:NEXT 12103 DATA 0,0,0,0,28,0,0,3,128,0,0,64,0,1,128,0,14,0,0,48,0,0,64,0,0,48,0,0,12 12104 DATA 0,0,3,0,0,0,128,0,1,0,0,6,0,0,24,0,0,96,0,0,224,0,0,192,0,0,0,0,0,0 12105 DATA 0,0,0,0 12107 FOR I=0 TO62:READ Q:POKE 52160+I,Q:NEXT 12108 DATA 0,6,0,0,24,0,0,32,0,0,48,0,0,12,0,0,6,0,0,1,0,0,3,0,0,12,0,0,48,0,0,64 12109 DATA 0,0,96,0,0,24,0,0,6,0,0,24,0,0,96,0,0,224,0,0,192,0,0,0,0,0,0,0,0,0,0 12111 FOR I=0 TO62:READ Q:POKE 52224+I,Q:NEXT 12112 DATA 0,168,42,160,170,10,0,42,2,160,47,0,0,15,0,160,12,0,0,40,0,0,255,0,3 12113 DATA 60,192,163,60,240,3,252,0,160,60,0,0,42,240,160,42,252,0,85,12,0,85 12114 DATA 12,0,65,12,160,65,12,0,65,15,160,65,5,0,0,0 12116 FOR I=0 TO62:READ Q:POKE 52288+I,Q:NEXT 12117 DATA 160,0,0,128,42,0,0,170,10,0,168,0,0,240,10,0,240,0,0,48,10,0,235,0,3 12118 DATA 60,192,3,60,202,15,60,192,0,60,202,0,60,0,3,168,0,15,168,10,48,85,0 12119 DATA 48,85,10,48,65,0,112,65,10,80,65,0,0,0,0 12121 FOR I=0 TO62:READ Q:POKE 52352+I,Q:NEXT 12122 DATA 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,0 12123 DATA 0,0,63,255,252,127,255,254,255,255,255,255,255,255,0,0,0,0,0,0,0,0,0,0 12124 DATA 0,0,0,0,0 12125 FOR I=0 TO62:READ Q:POKE 52416+I,Q:NEXT 12126 DATA 0,0,0,3,192,0,7,192,0,7,128,0,7,128,0,2,128,0,7,0,0,59,128,0,47,192,0 12127 DATA 7,224,0,14,0,0,13,240,0,14,248,0,7,124,0,7,190,0,5,111,0,2,139,128,2 12128 DATA 130,192,7,129,64,31,255,252,31,255,252 12130 FOR I=0 TO62:READ Q:POKE 52480+I,Q:NEXT 12131 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,170,128,10,170,160 12132 DATA 9,221,224,11,119,96,10,170,160,11,170,96,9,221,224,11,119,96,10,170 12133 DATA 160,8,0,32,8,0,32,8,0,32,0,0,0 12139 FOR I=0 TO62:READ Q:POKE 52544+I,Q:NEXT 12140 DATA 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,8,0,1,214,0,2 12141 DATA 33,0,4,76,128,5,144,128,4,139,0,4,100,0,7,24,0,3,128,0,1,128,0,0,0,0 12142 DATA 0,0,0 12144 FOR I=0 TO62:READ Q:POKE 52608+I,Q:NEXT 12145 DATA 0,0,0,0,0,0,0,120,0,0,48,0,0,48,0,0,120,0,0,180,0,1,50,0,2,121,0,4 12146 DATA 120,128,8,252,64,8,212,64,9,182,64,5,122,128,3,119,0,3,183,0,3,203,0 12147 DATA 1,222,0,0,220,0,0,120,0,0,0,0 12149 FOR I=0 TO62:READ Q:POKE 52672+I,Q:NEXT 12150 DATA 0,0,0,0,0,0,0,255,192,0,255,192,0,255,192,1,128,96,1,128,96,1,128,96 12151 DATA 3,0,48,3,0,48,3,0,48,6,0,24,6,0,24,6,0,24,12,0,12,12,0,12,12,0,12,15 12152 DATA 255,252,13,154,236,10,205,148,15,255,252 12154 FOR I=0 TO62:READ Q:POKE 52736+I,Q:NEXT 12155 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,42,0,0,21,0,0,38,0,0,21,0,0,42,0,0,21 12156 DATA 0,0,170,128,0,85,64,0,170,128,0,85,64,0,170,128,0,85,64,0,0,0,0,0,0,0 12157 DATA 0,0,0,0,0 12159 FOR I=0 TO62:READ Q:POKE 52800+I,Q:NEXT 12160 DATA 0,0,0,0,0,0,0,127,128,0,125,128,0,118,128,0,239,192,0,237,192,0,254 12161 DATA 192,1,166,224,1,223,224,1,254,224,3,157,112,3,127,240,3,245,240,6,251 12162 DATA 184,7,55,24,7,255,248,0,0,0,0,0,0,0,0,0,0,0,0 12164 FOR I=0 TO62:READ Q:POKE 52864+I,Q:NEXT 12165 DATA 0,24,0,0,90,0,0,126,0,0,126,0,0,126,0,0,60,0,0,60,0,0,60,0,0,24,0,1 12166 DATA 255,128,3,110,192,3,118,192,3,110,192,1,223,128,0,126,0,0,126,0,0,102 12167 DATA 0,0,102,0,0,102,0,1,255,128,7,255,224 15000 RETURN 19000 IF AP>7 THEN19100 19001 IF AP=7 THEN19200 19002 IF AP=6 THENGOSUB 19035 19003 POKE 53270,PEEK (53270)OR 16:POKE 53283,9:POKE 53282,6 19004 PRINTTAB( 10)"{BLUE}...................." 19006 PRINTTAB( 10)"...................." 19008 PRINTTAB( 10)"...................." 19010 PRINTTAB( 10)".....{GREY3}LMNOP{LIG.BLUE}...{GREY3}LOP{LIG.BLUE}...." 19012 FOR T=1 TO10:PRINTTAB( 10)"{GREY3}KKKKKKKKKKKKKKKKKKKK":NEXT 19031 GOSUB 21050:RETURN 19035 POKE V+21,PEEK (V+21)OR 128:POKE 50175,27:POKE V+14,145:POKE V+15,90:POKE V+46,9 19036 POKE V+23,PEEK (V+23)OR 128:POKE V+29,PEEK (V+29)OR 128:RETURN 19100 IF AP=15OR AP=18OR AP=19OR AP=20OR AP=21OR AP=29OR AP=46OR AP=52 THEN19110 19102 GOTO 19999 19110 PRINTTAB( 12)"{BROWN}&%............↑£" 19111 PRINTTAB( 12)"..Q%........V£.." 19112 PRINTTAB( 12)"..,.Q%....V£,..." 19113 PRINTTAB( 12)"I#R←,.1//0,.XW(J" 19114 PRINTTAB( 12)".,.,-S-CC↑YJ-,.." 19115 PRINTTAB( 12)".,.,..*{2SPACE}K..-,.." 19116 PRINTTAB( 12)"//0/0/*{2SPACE}K/1/1//" 19117 PRINTTAB( 12)"..,.U£IG+T&+.-.." 19118 PRINTTAB( 12)"..UT.+....2,&+.." 19120 PRINTTAB( 12)"↑T.,+......Z.,&%" 19121 PRINTTAB( 12)".,.+........2,.." 19122 PRINTTAB( 12)".,+..........Z.." 19123 PRINTTAB( 12)".+............2." 19124 PRINTTAB( 12)"+..............2" 19129 IF AP=19 THEN20015 19130 GOSUB 21032:RETURN 19200 POKE 53270,PEEK (53270)OR 16:POKE 53282,7:POKE 53283,9 19204 PRINTTAB( 10)"{BROWN}ZZZZNZZZZNZZZZNZZZZZ" 19205 PRINTTAB( 10)"ZZZZNZZZZNZZZZNZZZZZ" 19206 PRINTTAB( 10)"££££££££££££££££££££" 19207 FOR T=1 TO3:PRINTTAB( 10)"ZZQZZZZQZZZZQZZZZQZZ":NEXT 19210 PRINTTAB( 10)"SSSSDSSS{3SPACE}SSSDSSSSS" 19211 PRINTTAB( 10)"ZZZZNZZZ{3SPACE}ZZZNZZZZZ" 19212 PRINTTAB( 10)"££££££££{3SPACE}£££££££££" 19213 FOR T=1 TO4:PRINTTAB( 10)"{GREY3}KKKKKKKKKKKKKKKKKKKK":NEXT 19217 IF X6=1 THENPOKE V+21,PEEK (V+21)OR 128:POKE 50175,31:POKE V+14,168:POKE V+15,108 19218 POKE V+46,9 19219 GOSUB 21050 19220 RETURN 19999 POKE 53270,PEEK (53270)AND 239 20000 PRINTTAB( 10)"{BROWN}&%................↑£" 20001 PRINTTAB( 10)"..&%............↑£.." 20002 PRINTTAB( 10)"....1///1///1//0...." 20003 PRINTTAB( 10)"I#!←-...-...-..,*)(J" 20004 PRINTTAB( 10)".,..1/1///1///10.,.." 20005 PRINTTAB( 10)".,..-.-...-...-,.,.." 20006 PRINTTAB( 10)"////1///1///1//0////" 20007 PRINTTAB( 10)"....-...-...-..,...." 20008 PRINTTAB( 10)"..↑£1/1///1///10&%.." 20009 PRINTTAB( 10)"↑T..-.-...-...-,.,&%" 20010 PRINTTAB( 10)".,.+////////////2,.." 20011 PRINTTAB( 10)".,+..............Z.." 20012 PRINTTAB( 10)".+................2." 20013 PRINTTAB( 10)"+..................2{GREY2}" 20014 IF AP=50 THENPRINT"{BROWN,HOME,7DOWN,16RIGHT}J{6RIGHT}J{4RIGHT}J" 20015 IF AP=19OR AP=32OR AP=55 THEN20017:REM TREPPE 20016 GOTO 20020 20017 POKE V+21,PEEK (V+21)OR 128:POKE 50175,35:POKE V+14,160:POKE V+15,145 20018 POKE V+29,PEEK (V+29)OR 128:POKE V+46,0:IF AP=19 THEN19130 20020 IF AP<>33AND AP<>56AND AP<>58 THEN20900 20021 POKE V+21,PEEK (V+21)OR 128:POKE 50175,45:POKE V+14,159:POKE V+15,97 20022 POKE V+46,0:POKE V+23,PEEK (V+23)OR 128:POKE V+29,PEEK (V+29)OR 129 20023 PRINT"{BROWN,HOME,6DOWN,17RIGHT}......{DOWN,6LEFT}.+..2.{DOWN,6LEFT}+....2{DOWN,6LEFT}" 20024 PRINT"{UP,17RIGHT}......{DOWN,6LEFT}......{DOWN,6LEFT}" 20900 IF AP=10 THEN21001 21000 IF PN(AP,1)=0 THEN21005 21001 POKE 49363,55:POKE 49364,56:POKE 49403,52:POKE 49404,48:POKE 49443,54:POKE 49444,48 21002 POKE 49483,68:POKE 49484,44:POKE 49523,70:POKE 49524,57:POKE 49563,53:POKE 49564,44 21003 POKE 49603,27:POKE 49604,71:POKE 49643,68:POKE 49644,46:POKE 49683,51 21005 IF PN(AP,2)=0 THEN21010 21006 POKE 49379,69:POKE 49380,65:POKE 49419,49:POKE 49420,29:POKE 49459,49:POKE 49460,54 21007 POKE 49499,45:POKE 49500,68:POKE 49539,64:POKE 49540,62:POKE 49579,45:POKE 49580,61 21008 POKE 49619,72:POKE 49620,60:POKE 49659,46:POKE 49660,68:POKE 49700,59 21010 IF PN(AP,3)=0 THEN21030 21013 POKE 49410,36:POKE 49411,67:POKE 49412,67:POKE 49413,39:POKE 49449,48:POKE 49450,44 21014 POKE 49451,32:POKE 49452,32:POKE 49453,45:POKE 49454,49:POKE 49489,44:POKE 49490,44 21015 POKE 49491,32:POKE 49492,32:POKE 49493,45:POKE 49529,48:POKE 49530,44:POKE 49414,45 21016 POKE 49531,100:POKE 49532,103:POKE 49533,45:POKE 49534,49:POKE 49569,44:POKE 49570,43 21017 POKE 49571,46:POKE 49572,46:POKE 49573,50:POKE 49574,45:POKE 49610,46:POKE 49611,46 21018 POKE 49612,46:POKE 49613,46:POKE 49409,44 21030 Z1=0:IF IN(10,1)=APOR IN(23,1)=APOR IN(26,1)=APOR IN(28,1)=AP THEN21034 21031 IF IN(35,1)=APOR IN(36,1)=AP THEN21034 21032 IF IN(13,1)=APOR IN(17,1)=APOR IN(34,1)=APOR IN(42,1)=AP THENZ1=1:GOTO 21036 21033 GOTO 21050 21034 PRINT"{HOME,7DOWN,18RIGHT,4SPACE,DOWN,4LEFT,4SPACE,DOWN,4LEFT,4SPACE,DOWN,4LEFT,4SPACE}" 21035 POKE V+10,161:POKE V+11,97:POKE V+29,PEEK (V+29)OR 32 21036 POKE V+21,PEEK (V+21)OR 32:POKE 50173,39:POKE V+44,11:POKE V+23,PEEK (V+23)OR 32 21037 IF Z1=1 THENPOKE V+10,161:POKE V+11,78:POKE V+29,PEEK (V+29)OR 32 21038 IF Z1=1 THENPRINT"{HOME,4DOWN,18RIGHT,4SPACE,DOWN,4LEFT,4SPACE,DOWN,4LEFT,4SPACE,DOWN,4LEFT,4SPACE,DOWN,4LEFT,4SPACE}" 21050 IF IN(1,1)<>AP THEN21060 21051 POKE V+21,PEEK (V+21)OR 1:POKE 50168,26:POKE V+0,200:POKE V+1,120:POKE V+39,11 21052 POKE V+23,PEEK (V+23)OR 1:POKE V+29,PEEK (V+29)OR 1 21060 IF IN(2,1)<>AP THEN21070 21061 POKE V+21,PEEK (V+21)OR 128:POKE 50175,29:POKE V+14,150:POKE V+15,110 21062 POKE V+46,0:POKE V+37,9:POKE V+38,1:POKE V+23,PEEK (V+23)OR 128:POKE V+28,128 21063 POKE V+29,PEEK (V+29)OR 128 21070 IF IN(3,1)<>AP THEN21080 21071 POKE V+21,PEEK (V+21)OR 64:POKE 50174,28:POKE V+12,160:POKE V+13,92 21072 POKE V+45,15:POKE V+29,PEEK (V+29)OR 64:POKE V+23,PEEK (V+23)OR 64 21080 IF IN(4,1)<>AP THEN21090 21081 POKE V+21,PEEK (V+21)OR 128:POKE 50175,30:POKE V+14,168:POKE V+15,108 21082 POKE V+46,9 21090 IF IN(5,1)<>AP THEN21100 21091 IF IN(14,1)<>-1AND IN(14,1)<>35 THEN21095 21092 POKE V+21,PEEK (V+21)OR 128:POKE 50175,53:POKE V+46,5:POKE V+14,195 21093 POKE V+15,130:POKE V+29,PEEK (V+29)OR 128:GOTO 21100 21095 X8=1:POKE V+21,PEEK (V+21)OR 128:POKE 50175,46:POKE V+46,3 21096 POKE V+14,190:POKE V+15,140:POKE V+29,128:GOTO 164 21100 IF IN(6,1)<>AP THENGOTO 21110 21101 POKE V+21,PEEK (V+21)OR 8:POKE 50171,33:POKE V+28,8:POKE V+6,141:POKE V+7,103 21102 POKE V+42,11:POKE V+37,0:POKE V+38,15 21110 IF IN(7,1)<>AP THEN21120 21115 PRINT"{HOME,BROWN,8DOWN,15RIGHT},H{DOWN,2LEFT}10{DOWN,2LEFT}-,{DOWN,2LEFT}-,{DOWN,2LEFT}//" 21120 IF IN(9,1)<>AP THEN21130 21121 IF AP=19OR AP=51 THEN21130 21122 POKE V+21,PEEK (V+21)OR 2:POKE 50169,34:POKE V+2,150:POKE V+3,140 21123 POKE V+29,PEEK (V+29)OR 2:POKE V+40,0 21130 IF IN(11,1)<>AP THEN21140 21131 POKE V+21,PEEK (V+21)OR 64:POKE 50174,37:POKE V+12,235:POKE V+13,122 21132 POKE V+28,64:POKE V+37,0:POKE V+38,9:POKE V+23,PEEK (V+23)OR 64 21140 IF IN(12,1)<>AP THEN21150 21141 POKE V+21,PEEK (V+21)OR 64:POKE 50174,38:POKE V+12,111:POKE V+13,119 21142 POKE V+28,64:POKE V+37,0:POKE V+38,9:POKE V+23,PEEK (V+23)OR 64 21150 IF IN(14,1)<>AP THEN21160 21151 POKE V+21,PEEK (V+21)OR 4:POKE 50170,32:POKE V+4,170:POKE V+5,130 21152 POKE V+41,12:POKE V+29,PEEK (V+29)OR 4:POKE V+23,PEEK (V+23)OR 4 21160 IF IN(15,1)<>AP THEN21170 21161 POKE V+21,PEEK (V+21)OR 128:POKE 50175,36:POKE V+14,170:POKE V+15,143 21162 POKE V+46,0:POKE V+29,PEEK (V+29)OR 128 21170 IF IN(16,1)<>AP THEN21180 21171 PRINT"{HOME,7DOWN}";TAB( 24)"P" 21180 IF IN(18,1)<>APAND IN(19,1)<>AP THEN21200:REM SPRUENGE I.D. DECKE 21181 POKE V+21,PEEK (V+21)OR 128:POKE 50175,43:POKE V+14,170:POKE V+15,56 21182 POKE V+46,0:POKE V+29,PEEK (V+29)OR 128 21200 IF IN(20,1)<>AP THEN21210 21201 IF AP=31 THENPOKE 55599,8:GOTO 21210 21202 POKE V+21,PEEK (V+21)OR 8:POKE 50171,42:POKE V+6,180:POKE V+7,150:POKE V+42,8 21210 IF IN(21,1)<>AP THEN21220 21211 POKE V+21,PEEK (V+21)OR 128:IF IN(46,3)=0 THENPOKE V+14,150:POKE V+15,121:GOTO 21213 21212 POKE V+14,155:POKE V+15,115 21213 POKE 50175,44:POKE V+46,9:POKE V+37,0:POKE V+38,1:POKE V+23,PEEK (V+23)OR 128 21214 POKE V+29,PEEK (V+29)OR 128:POKE 49209,50:POKE 49212,50:POKE 49250,47:POKE V+28,128 21215 POKE 49251,47:POKE 49252,47:POKE 49210,45 21220 IF IN(22,1)<>AP THEN21230 21221 POKE V+21,PEEK (V+21)OR 128:POKE 50175,41 21222 POKE V+14,190:POKE V+15,105:POKE V+45,14:POKE V+46,7 21223 POKE V+23,PEEK (V+23)OR 128:POKE V+29,PEEK (V+29)OR 128 21230 IF IN(24,1)<>AP THEN21240 21231 PRINT"{HOME,12DOWN,16RIGHT,GREY1}1/1///10{DOWN,8LEFT}-.-...-,{DOWN,8LEFT}" 21232 PRINT"{UP,16RIGHT,BROWN}ROOOOOOE" 21240 IF IN(25,1)<>AP THEN21250 21241 POKE V+21,PEEK (V+21)OR 192:POKE 50174,48:POKE 50175,49:POKE V+45,7:POKE V+46,7:POKE V+12,138 21242 POKE V+37,0:POKE V+38,12:POKE V+13,98:POKE V+15,98:POKE V+28,192:POKE V+23,PEEK (V+23)OR 192 21243 IF Y2=1 THENPOKE V+12,135:POKE V+14,208:POKE V+29,32:POKE 50173,31:POKE V+44,9:GOTO 21247 21244 PRINT"{HOME,6DOWN,14RIGHT,GREY1}............{DOWN,12LEFT}............":POKE V+14,186 21245 PRINT"{14RIGHT}............{DOWN,12LEFT}..........." 21246 POKE V+29,PEEK (V+29)OR 192:PRINT"{14RIGHT}............":GOTO 21250 21247 PRINT"{HOME,6DOWN,14RIGHT,GREY1}...{6SPACE}...{DOWN,12LEFT}...{6SPACE}..." 21248 PRINT"{14RIGHT}...{6SPACE}...{DOWN,12LEFT}...{6SPACE}..." 21249 PRINT"{14RIGHT}...{6SPACE}..." 21250 IF IN(27,1)<>AP THEN21260 21251 POKE V+21,PEEK (V+21)OR 128:POKE 50175,51:POKE V+46,12:POKE V+14,200 21252 POKE V+15,120:POKE V+23,PEEK (V+23)OR 128:POKE V+29,PEEK (V+29)OR 128 21260 IF IN(29,1)<>AP THEN21270 21261 POKE V+21,PEEK (V+21)OR 192:POKE 50174,52:POKE 50175,54 21262 POKE V+12,121:POKE V+13,105:POKE V+14,210:POKE V+15,105:POKE V+28,64 21264 POKE V+45,8:POKE V+46,15:POKE V+37,11:POKE V+38,7 21265 POKE V+23,PEEK (V+23)OR 192:POKE V+29,PEEK (V+29)OR 64 21270 IF IN(30,1)<>AP THEN21280 21272 POKE V+21,PEEK (V+21)OR 24:POKE 50171,50:POKE 50172,50:POKE V+6,142:POKE V+7,140 21273 POKE V+8,172:POKE V+9,140:POKE V+42,8:POKE V+43,8:POKE V+29,PEEK (V+29)OR 24 21280 IF IN(33,1)<>AP THEN21290 21281 PRINT"{BROWN,HOME,DOWN,16RIGHT}2-....,+{DOWN,7LEFT}//////" 21290 IF IN(37,1)<>AP THEN21300 21291 POKE V+21,PEEK (V+21)OR 128:POKE 50175,58:POKE V+46,12:POKE V+14,138 21292 POKE V+15,105:POKE V+23,PEEK (V+23)OR 128:POKE V+29,PEEK (V+29)OR 128 21300 IF IN(38,1)<>AP THEN21310 21301 POKE V+21,PEEK (V+21)OR 208:POKE V+28,64:POKE 50175,55:POKE 50172,57 21302 POKE 50174,56:POKE V+12,160:POKE V+13,125:POKE V+14,160:POKE V+15,125:POKE V+46,12 21303 POKE V+9,125:POKE V+45,9:POKE V+37,0 21304 POKE V+43,12:POKE V+23,208:POKE V+29,PEEK (V+29)OR 208 21305 POKE V+8,160:IF IN(45,1)=-1OR Y3=1 THENPOKE V+8,180 21307 PRINT"{HOME,10DOWN,19RIGHT,2SPACE,DOWN,2LEFT,2SPACE,DOWN,2LEFT,2SPACE,DOWN,3LEFT,4SPACE}" 21310 IF IN(39,1)<>AP THEN21320 21311 POKE V+21,PEEK (V+21)OR 128:POKE 50175,30:POKE V+46,9:POKE V+14,172 21312 POKE V+15,98:POKE V+23,PEEK (V+23)OR 128 21314 PRINT"{HOME,6DOWN,18RIGHT,BLACK}1..0{DOWN,4LEFT}-..,{DOWN,4LEFT}-..," 21315 PRINT"{18RIGHT}-..,{DOWN,4LEFT}-..," 21318 PRINT"{HOME,14DOWN,16RIGHT,BROWN}+1////02" 21320 IF IN(40,1)<>AP THEN21330 21321 POKE V+21,PEEK (V+21)OR 128:POKE 50175,52:POKE V+28,128:POKE V+46,8:POKE V+37,11 21322 POKE V+38,7:POKE V+14,160:POKE V+15,110:POKE V+23,PEEK (V+23)OR 128 21323 POKE V+29,PEEK (V+29)OR 128 21330 IF IN(44,1)<>AP THEN21340 21331 PRINT"{HOME,12DOWN,15RIGHT,BROWN}A" 21340 IF IN(45,1)<>AP THEN21350 21341 POKE V+21,PEEK (V+21)OR 32:POKE V+28,PEEK (V+28)OR 32:POKE V+44,14:POKE V+37,0 21342 POKE V+38,7:POKE V+29,PEEK (V+29)OR 32:POKE V+10,160:POKE V+11,122:POKE 50173,40 21350 IF IN(46,1)<>AP THEN21370:REM GASMASKE 21360 PRINT"{HOME,12DOWN,19RIGHT,BROWN}H" 21370 IF IN(41,1)<>AP THEN21500 21372 IF AP=57 THEN21500 21375 PRINT"{HOME,13DOWN,20RIGHT,BROWN}L" 21500 RETURN 30000 POKE V+21,0:PRINT"{CLR,3DOWN,10RIGHT,GREEN}SIE TRAGEN BEI SICH" 30010 FOR I=1 TO46 30020 IF IN(I,1)=-1 THENPRINT"{BLUE,DOWN,10RIGHT,WHITE}"IT$(I) 30025 NEXT 30026 PRINT"{5DOWN,10RIGHT,GREEN,RVSON}SPACE DRUECKEN{RVOFF,WHITE}" 30030 GET A$:IF A$<>" " THEN30030 30040 IF A$=" " THENGOTO 160 34000 POKE V+21,0:PRINTCHR$ (14),"{CLR,3DOWN}":INPUT"FILENAME";E$ 34010 OPEN 2,1,2,E$ 34020 FOR I=1 TO58 34030 PRINT#2,PN(I,1):PRINT#2,PN(I,2):PRINT#2,PN(I,3):PRINT#2,PN(I,4) 34035 PRINT#2,PN(I,5):PRINT#2,PN(I,6):NEXT 34040 FOR I=1 TO46 34050 PRINT#2,IN(I,1):PRINT#2,IN(I,2):PRINT#2,IN(I,3):NEXT 34060 PRINT#2,AP:PRINT#2,X1:PRINT#2,X2:PRINT#2,X4:PRINT#2,X5:PRINT#2,X6 34070 PRINT#2,X9:PRINT#2,Y1:PRINT#2,Y2:PRINT#2,Y3:PRINT#2,Y4:PRINT#2,GE 34080 CLOSE 2:GOTO 50300 35000 PRINT"{CLR,3DOWN}":INPUT"FILENAME";E$:KK=1 35005 OPEN 2,1,0,E$ 35010 FOR I=1 TO58 35020 INPUT#2,PN(I,1),PN(I,2),PN(I,3),PN(I,4),PN(I,5),PN(I,6):NEXT 35030 FOR I=1 TO46 35040 INPUT#2,IN(I,1),IN(I,2),IN(I,3):NEXT 35050 INPUT#2,AP,X1,X2,X4,X5,X6,X9,Y1,Y2,Y3,Y4,GE 35060 CLOSE 2:RETURN 39900 DATA GEHE,ZERSTOERE,OEFFNE,KLOPFE,FRAGE,HACKE,TOETE,KRIECHE,WERFE,SCHIEBE 39910 DATA DREHE,KLETTERE,NIMM,VERLIERE,ZIEHE,LIST,SAVE,STOP 39920 DATA SPITZHACKE,BEDUINE,STRAUCH,ZUGEMAUERTER EINGANG,SCHLANGE,STATUE,HEBEL 39925 DATA TUER NACH WESTEN,SEIL,TUER NACH NORDEN,DURCHGANG,DURCHGANG 39930 DATA TUER NACH NORDEN,TONKRUG MIT ESSEN,SKORPION,PFEIL,TUER NACH NORDEN 39935 DATA BESCHAEDIGTE DECKE,SPRUENGE IN DER DECKE,DIAMANT,TOTER GRABRAEUBER 39940 DATA STATUE,TUER NACH NORDEN,LOCH,RELIEF,TUER NACH NORDEN,HORUS 39945 DATA TUER NACH NORDEN,SCHAETZE,HOLZBALKEN,TUER NACH WESTEN,TUER 39950 DATA OEFFNUNG IN DER DECKE,TUER NACH NORDEN,TUER NACH NORDEN 39955 DATA TUER NACH NORDEN,OSIRISSTATUE,SARKOPHAG,ZUGEMAUERTER AUSGANG 39960 DATA HOLZSCHREIN,AMULETT,TUER NACH NORDEN,TUER NACH SUEDEN,SCHLUESSEL 39970 DATA TOTENMASKE,GASMASKE,GIFTIGE GASE,FALLTUER,SCHRITTE,SONNENAUFGANG 39975 DATA GEHEIMGANG,AUGE,WAND,TREPPE 39985 DATA 160,0,162,0,142,32,208,142,33,208,232,234,224,16,208,244,200,192,255 39990 DATA 208,237,169,0,141,32,208,141,33,208,96 40000 DATA 3,4,2,0,0,0,2,2,2,1,0,0,3,1,3,0,0,0,1,0,5,0,0,0,0,0,0,4,0,0 40001 DATA 5,0,7,0,0,0,0,0,0,6,0,0,9,17,15,0,0,0,10,8,0,0,0,0,0,9,0,0,0,0 40002 DATA 0,10,12,0,0,0,0,13,0,11,0,0,12,0,0,0,0,0,0,0,20,0,0,0,0,0,0,8,0,0 40003 DATA 0,0,0,15,0,0,8,0,18,0,0,0,0,0,19,17,0,0,0,0,0,18,0,58,0,0,21,14,0,0 40004 DATA 0,0,0,20,0,0,27,23,0,21,0,0,22,24,0,26,0,0,23,0,0,0,0,0,26,0,24,0,0,0 40005 DATA 0,25,23,0,0,0 40006 DATA 0,22,0,28,0,0,31,0,27,29,0,0,0,0,28,0,0,0,0,0,0,0,0,0,0,28,0,30,0,0 40007 DATA 0,0,0,31,0,33,34,38,0,36,32,0,0,33,0,35,0,0,55,36,34,0,0,0,35,37,33,0 40008 DATA 0,0,36,41,0,0,0,0,33,0,0,0,0,0,0,40,46,0,0,0,39,0,0,0,0,0,37,42,0,0,0 40009 DATA 0,41,0,0,0,0,0,0,44,48,0,0,0,43,50,49,0,0,0,49,0,0,0,0,0,0,0,51,39 40010 DATA 0,0,0,0,0,40,0,0,0,49,0,43,0,0,48,45,0,44,0,0,44,0,0,38,0,0,0,0,0,46,0 40011 DATA 0,0,0,0,47,0,0,0,0,0,52,0,0,0,0,0,51,0,0,0,35,0,0,0,56,0,57,0,0,55,0 40012 DATA 56,0,0,0,0,0,0,0,0,0,19,0 40025 DATA 4,1,1,5,0,1,7,0,1 40027 DATA 7,0,0,35,0,1,10,1,1 40029 DATA 10,0,0,10,0,1,12,1,1 40030 DATA 13,0,1,0,0,0 40031 DATA 14,0,1,15,0,1,16,1,1,16,0,0 40032 DATA 21,0,0 40033 DATA 21,0,1,23,0,1 40034 DATA 24,0,1,25,1,1 40035 DATA 27,1,1,31,0,1,31,0,1 40036 DATA 37,0,1 40037 DATA 40,0,1,42,0,1,42,0,1 40038 DATA 38,0,1,47,0,0,48 40039 DATA 1,1,50,0,1,50,0,0 40040 DATA 51,0,1,52,0,1,0,0,0 40041 DATA 47,0,1,52,0,1,53,0,1 40043 DATA 54,0,1,57,0,1,0,1,1 40044 DATA 19,0,1,25,0,1,58,1,1,53,1,0,27,1,0 45000 POKE 53270,PEEK (53270)OR 16:POKE 53283,9:POKE 53282,7 45005 POKE 53280,0:POKE 53281,9 45010 PRINT"{CLR,GREY1,2DOWN,3RIGHT,4SPACE}P H A R A O S{3SPACE}G R A V E" 45020 PRINT"{DOWN,11SPACE}A D V E N T U R E{13SPACE,BLACK}" 45030 PRINT"{19SPACE}.. 45031 PRINT"{18SPACE}.//. 45032 PRINT"{17SPACE}.////. 45033 PRINT"{16SPACE}.//////. 45034 PRINT"{15SPACE}.////////. 45035 PRINT"{14SPACE}.//////////. 45036 PRINT"{13SPACE}.////////////. 45037 PRINT"{12SPACE}.//////////////. 45038 PRINT"{11SPACE}.////////////////. 45039 PRINT"{10SPACE}.//////////////////. 45040 PRINT"{9SPACE}.////////////////////. 45041 PRINT"{8SPACE}.//////////////////////. 45050 PRINT"{2DOWN,GREY1,19SPACE}BY{19SPACE}" 45060 PRINT"{12SPACE}WOLFGANG RAUSCH{12SPACE}" 45100 GOSUB 12000:GOSUB 30 45110 PRINT"{CLR}",CHR$ (14):POKE 53270,PEEK (53270)AND 239 45112 PRINT"{WHITE,3DOWN,4RIGHT}N : NEUES SPIEL BEGINNEN" 45113 PRINT"{DOWN,4RIGHT}A : ALTES SPIEL FORTSETZEN" 45114 GET X$:IF X$="N" THENDA=1:GOTO 45120 45116 IF X$="A" THENGOSUB 35000:GOSUB 60:GOTO 45120 45118 IF X$<>"A"AND X$<>"N" THEN45114 45120 PRINT"{CLR,RIGHT,YELLOW}ZIEL DES SPIELS IST ES EINE PYRAMIDE" 45125 PRINT"{RIGHT}ZU ERFORSCHEN UND DIE WERTVOLLE" 45127 PRINT"{RIGHT}TOTENMASKE DES PHARAOS ZU FINDEN." 45130 PRINT"{DOWN,RIGHT,ORANGE}FOLGENDE VERBEN VERSTEHT DER COMPUTER:" 45132 PRINT"{RIGHT,DOWN}GEHE,NIMM,VERLIERE,OEFFNE,TOETE" 45134 PRINT"{RIGHT}ZERSTOERE,KLOPFE,FRAGE,WERFE,DREHE" 45136 PRINT"{RIGHT}HACKE,KRIECHE,WERFE,SCHIEBE,KLETTERE" 45137 PRINT"{RIGHT}LIST,SAVE,STOP 45140 PRINT"{BLACK,DOWN,RIGHT}NACH JEDEM EINGEGEBENEN WORT MUSS" 45142 PRINT"{RIGHT}'RETURN' GEDRUECKT WERDEN." 45144 PRINT"{RIGHT}ALLE NOMEN KOENNEN AUF 5,ALLE VERBEN" 45146 PRINT"{RIGHT}AUF 4 BUCHSTABEN ABGEKUERZT WERDEN." 45148 PRINT"{RIGHT}BEI RICHTUNGSANGABEN GENUEGT EIN " 45150 PRINT"{RIGHT}BUCHSTABE. 45152 PRINT"{RIGHT}Z.B.:GEHE 'RETURN'{SPACE,4SPACE}N 'RETURN'" 45154 PRINT"{RIGHT}LIST ZEIGT ALLE GEGENSTAENDE, DIE" 45155 PRINT"{RIGHT}MAN BEI SICH TRAEGT (MAXIMAL 3)." 45157 PRINT"{RIGHT}SAVE SPEICHERT DEN SPIELSTAND AUF" 45158 PRINT"{RIGHT}KASSETTE AB." 45160 IF DA=1 THENGOSUB 60 45170 PRINT"{DOWN,4RIGHT,RVSON}'SPACE' DRUECKEN{RVOFF}" 47000 GET X$:IF X$<>" " THEN47000 47010 IF X$=" " THENPRINTCHR$ (142),"{CLR}" 47020 IF KK=1 THEN155 47025 GOTO 150 49000 GOSUB 5600:PRINT"{CLR,2DOWN,9RIGHT}SIE SIND AUSSERHALB":GOSUB 5800 49002 IF IN(45,1)<>-1 THEN49050 49005 PRINTCHR$ (14),"{CLR,GREEN,3DOWN,3SPACE}SIE HABEN ES GESCHAFFT DIE GOLDENE" 49010 PRINT"{DOWN,3SPACE}TOTENMASKE DES PHARAOS ZU FINDEN" 49020 PRINT"{DOWN,3SPACE}UND HOECHSTE EHRUNGEN SIND IHNEN{3SPACE}" 49030 PRINT"{DOWN,3SPACE}GEWISS," 49040 PRINT"{3DOWN,RED,3SPACE}DOCH DER FLUCH DES PHARAOS WIRD" 49045 PRINT"{DOWN,3SPACE}SIE FUER IMMER VERFOLGEN.{WHITE}":GOTO 50300 49050 PRINT"{CLR,GREEN,3DOWN,3SPACE}SIE HABEN ES ZWAR GESCHAFFT, DIE" 49055 PRINT"{DOWN,3SPACE}PYRAMIDE LEBEND ZU VERLASSEN, DOCH" 49060 PRINT"{DOWN,3SPACE}SIE HABEN DIE GOLDENE TOTENMASKE" 49065 PRINT"{DOWN,3SPACE}NICHT GEFUNDEN.":GOTO 50300 50100 REM 50105 POKE V+14,190:POKE V+15,130 50110 FOR F2=135 TO155STEP 2:POKE 50175,46:FOR T=1 TO100:NEXT :POKE V+15,F2 50120 POKE 50175,47:FOR T=1 TO100:NEXT :NEXT 50121 FOR T=1 TO30:SYS 866:NEXT :GOTO 50210 50190 PRINTCHR$ (14)"{CLR,RED,2DOWN,3SPACE}SIE HABEN SICH HOFFNUNGSLOS VERIRRT{WHITE}":GOTO 50300 50200 PRINTCHR$ (14)"{CLR,RED,2DOWN,3SPACE}SIE HABEN DEN HALT VERLOREN UND SIND{4SPACE}HINUNTERGEFALLEN{WHITE}" 50201 GOTO 50300 50202 PRINTCHR$ (14)"{CLR,RED,2DOWN,3SPACE}SIE SIND IN EINE FALLGRUBE GESTUERZT{WHITE}":GOSUB 5600:GOTO 50300 50203 GOSUB 5600:PRINTCHR$ (14)"{CLR,RED,2DOWN,3SPACE}DIE "IT$(54)" IST EINGESTUERZT{WHITE}":GOTO 50300 50204 GOSUB 5600:PRINTCHR$ (14)"{RED,CLR,2DOWN,3SPACE}DIE DECKE IST HERUNTERGEBROCHEN{WHITE}":GOTO 50300 50206 PRINTCHR$ (14)"{CLR,RED,2DOWN,3SPACE}EIN HERABFALLENDER STEIN HAT SIE ER{5SPACE}SCHLAGEN{WHITE}":GOTO 50300 50207 PRINTCHR$ (14)"{CLR,RED,2DOWN,3SPACE}"IT$(47)" HABEN SIE GETOETET{WHITE}":GOTO 50300 50208 FOR T=1 TO20:SYS 866:NEXT :GOSUB 5600:PRINT"{CLR,RED,2DOWN,3SPACE}SIE WURDEN VON HINTEN GEPACKT UND " 50209 PRINT"{3SPACE}ERWUERGT{WHITE}":GOTO 50300 50210 GOSUB 5600:PRINTCHR$ (14)"{CLR,RED,2DOWN,3SPACE}DIE "IT$(5)" HAT SIE GEBISSEN{WHITE}":GOTO 50300 50211 GOSUB 5600:PRINTCHR$ (14)"{CLR,RED,2DOWN,3SPACE}EINE "IT$(48)" HAT SICH UNTER IHNEN" 50212 PRINT"{3SPACE}GEOEFFNET{WHITE}":GOTO 50300 50213 GOSUB 5600:PRINTCHR$ (14)"{CLR,RED,2DOWN,3SPACE}SIE HABEN EINEN MECHANISMUS " 50214 PRINT"{3SPACE}AUSGELOEST ,WODURCH EIN "IT$(16)" AUS " 50215 PRINT"{3SPACE}DER WAND GESCHOSSEN WURDE{WHITE}":GOTO 50300 50300 PRINTCHR$ (14)"{5DOWN,3RIGHT}NOCH EIN VERSUCH?{SHIFT-SPACE}(J/N)" 50310 GET A$:IF A$<>"J"AND A$<>"N" THEN50310 50320 IF A$="J" THENCLR :PRINTCHR$ (142)"{CLR}":RUN 50330 SYS 64738 50700 FOR X=1 TO20:POKE V+8,160+X:FOR T=1 TO200:NEXT :NEXT :IN(45,3)=1:GOSUB 5900:GOTO 164 50720 TI$="000000" 50725 PRINTA4$"KOMMANDO ?" 50730 POKE 631,0:POKE 198,0 50731 U=PEEK (631) 50740 IF TI$="000002" THEN50770 50750 IF U=71 THENPOKE 631,U:GOTO 250 50760 IF U>0AND U<>71 THEN50770 50765 GOTO 50731 50770 FOR X=1 TO10:POKE V+13,125-X:FOR T=1 TO300:NEXT :NEXT :FOR T=1 TO20:SYS 866:NEXT 50780 GOSUB 5600:PRINTCHR$ (14)"{CLR}":GOTO 50300 50800 TI$="000000":POKE 631,0 50805 PRINTA4$"KOMMANDO ?" 50806 POKE 631,0:POKE 198,0 50807 U=PEEK (631) 50808 IF U=71OR U=84 THENPOKE 631,U:GOTO 250 50809 IF U>0AND U<>71AND U<>84 THEN50820 50810 IF TI$="000002" THEN50820 50815 GOTO 50807 50820 FOR X=1 TO10:POKE V+15,140+X:POKE V+14,170-X/2:FOR T=1 TO100:NEXT :NEXT 50825 FOR T=1 TO10:SYS 866:NEXT :GOSUB 5600 50830 PRINTCHR$ (14)"{CLR,RED,2DOWN,3SPACE}DER "IT$(15)" HAT SIE GESTOCHEN{WHITE}":GOTO 50300 52000 PRINTA3$"{GREEN}SIE HOEREN "IT$(49)" HINTER SICH{WHITE}":C=C+1 52004 FOR C1=1 TO4 52005 FOR LA=5 TO0STEP -.4 52010 POKE SI+24,LA:POKE SI+5,8*16+10:POKE SI+6,15*16:POKE SI+1,15:POKE SI+0,0 52020 POKE SI+4,129:NEXT 52025 POKE SI+4,0:POKE SI+5,0 52030 FOR T=1 TO800:NEXT :NEXT :RETURN
Diesen Artikel als PDF herunterladen
Diesen Artikel auf Mastodon teilen