Adventure 2000 — Die Jagd nach der Rakete

Vom Präsidenten der Vereinigten Staaten erhalten Sie den Auftrag, den dritten Weltkrieg zu verhindern.

Die Idee eines Adventures ist, mit dem Computer zu kommunizieren. Viele Adventures tun das mit Hilfe von Zwei-Wort-Befehlen. So hat »GEHE TUER« den Effekt vom Verlassen eines Raumes durch eine Tür.

Einige Adventures haben Mehr-Wort-Eingaben (The Hobbit), die ein komfortables »Gespräch« mit dem Computer ermöglichen.

Auch Adventure 2000 versteht Mehr-Wort-Eingaben. Man kann Begleiter, bestimmte Signal- und Bindewörter auf einmal eingeben, ohne den Satz groß verstümmeln zu müssen. Zum Beispiel: »Nimm den Schlüssel dann stecke den Schlüssel in das Schlüsselloch dann öffne die Türe und gehe durch die Türe« wird von den in Adventure 2000 verwendeten Routinen rasch bearbeitet.

Durch Eingabe von »BEFEHLE« listet der Computer alle Verben auf, die er versteht.

Durch Kombination der Verben mit den verwendeten Nomen und Verkettung durch »und« oder »dann« kann man versuchen, der Lösung näher zu kommen.

Zugegeben — das scheint kompliziert. Man lernt jedoch den Umgang am besten, indem man einfach ausprobiert, was der Computer verarbeitet. Zudem braucht man von jedem Verb oder Nomen nur die ersten drei Buchstaben einzugeben, den Rest erledigt der Computer. Achtung! Signalwörter wie »dann« und »und« müssen immer ausgeschrieben werden.

Was ist die Aufgabe beim Adventure 2000?

Die eigentliche Aufgabe wird erst im Verlauf des Spiels gestellt.

Was passiert?

Nachdem das Programm mit »RUN« gestartet wurde, erscheint das Titelbild und der Computer liest Daten ein und setzt die Variablen fest. Dann wird der Bildschirm gelöscht und Sie finden sich im Raum wieder.

Beim Betreten eines Raumes wird in der ersten Zeile immer angegeben wo man sich befindet. Links wird die Grafik des entsprechenden Raumes gezeigt und rechts was sich im Raum befindet und welche direkten Ausgänge es gibt.

Sind keine direkten Ausgänge angegeben, so bleibt es dem Kombinationsvermögen des Spielers überlassen, andere zu finden. Unter der Grafik erscheint dann: Was gedenkst du zu tun? Darauf kann die Eingabe erfolgen, die — wie der Spieler denkt — zum Erfolg führt.

Wie »antwortet« der Computer auf die Eingabe?

Der Computer überprüft die Eingabe und gibt — falls erforderlich — aus, daß er nicht weiß, wovon die Rede ist (wenn falsche Worte verwendet wurden).

Wenn der Computer in der Lage ist, die Eingabe auszuführen, erscheint das Ergebnis auf dem Bildschirm.

Zum Beispiel führt »NIMM MAPPE« zur Meldung »IN ORDNUNG, WIR TRAGEN NUN EINE MAPPE BEI UNS«.

Was tun, wenn der Computer »abstürzt«?

Sollte man alle erlaubten 100 Zeichen der Eingabe mit Mühe gefüllt haben und dann mit Schrecken feststellen, daß der Computer nur noch ausgibt: »Wovon sprichst du?« oder »Ich verstehe dich nicht!«, dann kann man ihn mit der F1-Taste wieder zum »Was gedenkst du zu tun?« zurückholen.

(Frank Schmelzer/rg)

10 — 52	Titelbild ausdrucken
60 — 90	Adresse des Autors
100	Felder festsetzen
114	Aufruf der Grafikunterroutine in 10000
120 — 154	Hier immer, wenn Raum betreten
157	Aufruf der Eingaberoutine in 400
158 — 280	Eingabe (ersetzt INPUT, um verbotene Zeichen zu verhindern
290 - 380	Unterprogramm Eingabe erkennen und bearbeiten
400	Unterprogramm in 2000 anspringen
401 — 510	Erstellen der aktuellen Eingabe aus zwei Worten, Zurückweisen falscher Wörter, feststellen des aktuellen Verbs
510	springe in den Programmteil, der sich mit aktuellem Verb befaßt
520 — 1620	Zwei- und Mehr-Wort-Kommandos
2000 — 2100	Überprüfe »Umwelt«, erhöhe Variablen, setze Wachen in Räume etc.
2110 — 2220	Erkenne und ersetze verschiedene Verben
2230 — 2410	Ein-Wort-Kommandos werden abgeschaltet
9000 — 9130	Anweisungen
9140 — 9190	Sie haben gewonnen!
10000 — 13880	Definition der Raumbilder
12880 — 13911	Einlesen der Daten
13920 — 14170	Daten
14180	Verzögerungsschleifen
14370 — 14400	Leider verloren

Aufschlüsselung des Listings »Adventure 2000« nach Zeilennummern

petcat | Checksummer

10 print"{clr}{blk}":poke53280,9:poke53281,6:printchr$(8):printchr$(142):print"{clr}";
14 print"           frank schmelzer{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rght}{left}praesentiert:" 
18 print"{down}{down}{down}{down}{down}{down}{down}    {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}    {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}    {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}    {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P} "
20 print"   N    NL  N{$a0}{$a0}{$a0}{$a0}NL{$a0}{$a0}N{$a0}{$a0}{$a0}{$a0}NL{$a0}{$a0}N{$a0}{$a0}{$a0}{$a0}NL"
22 print"   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}NN{CBM-H}N{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}NN{CBM-H}N{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}NN{CBM-H}N{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}NN{CBM-H}"
24 print"        {CBM-+} {CBM-H}{CBM-+} {CBM-H}   {CBM-+} {CBM-H}{CBM-+} {CBM-H}   {CBM-+} {CBM-H}{CBM-+} {CBM-H}   {CBM-+} {CBM-H}"
25 print"    {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-+} {CBM-H}{CBM-+} {CBM-H}   {CBM-+}{$a0}{CBM-H}{CBM-+}{$a0}{CBM-H}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-H}{CBM-+}{$a0}{CBM-H}{$a0}{$a0}{$a0}{CBM-+} {CBM-H}"
26 print"   N    {CBM-+}N {CBM-+} {CBM-H}   {CBM-+}{$a0}{CBM-H}{CBM-+}{$a0}{CBM-H}  {$a0}{CBM-+}{$a0}{CBM-H}{CBM-+}{$a0}{CBM-H}{$a0}{$a0}{$a0}{CBM-+} {CBM-H}"
28 print"  N{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}N  {CBM-+} {CBM-H}   {CBM-+}{$a0}{CBM-H}{CBM-+}{$a0}{CBM-H}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-H}{CBM-+}{$a0}{CBM-H}{$a0}{$a0}{$a0}{CBM-+} {CBM-H}"
30 print"  {CBM-+} {CBM-H}      {CBM-+} {CBM-H}   {CBM-+}{$a0}{CBM-H}{CBM-+}{$a0}{CBM-H}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-H}{CBM-+}{$a0}{CBM-H}{$a0}{$a0}{$a0}{CBM-+} {CBM-H}"
32 print"  {CBM-+} L{CBM-P}{CBM-P}{CBM-P}{CBM-P}  {CBM-+} L{CBM-P}{CBM-P}{CBM-P}{CBM-+}{$a0}{CBM-H}{CBM-+}{$a0}L{CBM-P}{CBM-P}{CBM-P}{CBM-+}{$a0}{CBM-H}{CBM-+}{$a0}L{CBM-P}{CBM-P}{CBM-P}{CBM-+} {CBM-H}"
34 print"  {CBM-+}N    N{CBM-H} {CBM-+}N    {CBM-+}N{$a0}{CBM-+}N{$a0}{$a0}{$a0}{$a0}{CBM-+}N{$a0}{CBM-+}N{$a0}{$a0}{$a0}{$a0}{CBM-+}N"
36 print"   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}N   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}N   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}N   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}N "
40 print"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}"
42 print"   {CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}  {CBM-+} {CBM-+} {CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-G}{CBM-+} {CBM-+}{CBM-+}{CBM-+} {CBM-+} {CBM-+} {CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}"
44 print"   {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+}   {CBM-+}G{CBM-+}  {CBM-+}  {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+}  "
46 print"   {CBM-+}{CBM-+}{CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+}{CBM-+}  {CBM-+}B{CBM-+}  {CBM-+}  {CBM-+} {CBM-+} {CBM-+}{CBM-+}  {CBM-+}{CBM-+} "
48 print"   {CBM-+} {CBM-+} {CBM-+} {CBM-+}  {CBM--}{CBM--} {CBM-+}   {CBM-+}H{CBM-+}  {CBM-+}  {CBM-+} {CBM-+} {CBM-+}{CBM--}  {CBM-+}  "
50 print"   {CBM-+} {CBM-+} {CBM-+}{CBM-+}   {CBM-+}  {CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-M}{CBM-+}  {CBM-+}   {CBM-+}  {CBM-+} {CBM-+} {CBM-+}{CBM-+}{CBM-+}"
52 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}      {rvon}  (c) by f.s. mcmlxxxiv  "
60 :rem frank schmelzer
70 :rem cloerbruchallee 5
80 :rem 4156 willich 4
90 :rem (0 21 56) 61 70
100 dimg$(24,18),lo$(24),lo(24,6),g1$(33),g2$(33),g(33),t(33),v$(18),w$(100)
114 gosub10000
120 print"{clr}{blk}wir sind ";lo$(lo)
130 fori=1to20:poke1104+i,111:poke1144+18*40+i,119:next
132 fori=1to18:poke1104+40*i,106:poke1104+40*i+21,116:next
134 print"{home}{down}{down}{down}";:fori=1to18:printspc(1);g$(lo,i):next
136 print"{home}{down}{down}{down}";spc(22);"hier sehe ich:{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
138 fori=1to33:ifg(i)=lothenprintspc(22);g1$(i)
140 next
150 print:printspc(22);"richtungen:"
152 fori=1to6:iflo(lo,i)>0thenprintspc(22);r$(i)
154 next:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
157 goto400
158 gosub2000:print"was gedenkst du zu tun";:gosub290:goto400
200 i$="":poke204,0:print"? ";
210 getz$:ifz$=""then210
220 ifasc(z$)=32thengoto270
225 ifasc(z$)=13andi$<>""thenpoke204,1:print" ":return
230 ifasc(z$)=20andi$<>""theni$=left$(i$,len(i$)-1):printz$;:goto210
240 ifasc(z$)<48then210
250 ifasc(z$)<65andasc(z$)>57then210
260 ifasc(z$)>90then210
270 iflen(i$)<100theni$=i$+z$:printz$;:goto210
280 goto210
290 gosub200:b1$=i$:l=len(b1$):w=1
291 ifright$(b1$,1)=chr$(32)thenb1$=left$(b1$,len(b1$)-1)+"x"
300 fori=1tol:ifasc(mid$(b1$,i,1))=32thenw$(w)=left$(b1$,i-1):w=w+1
305 ifasc(mid$(b1$,i,1))=32thenb1$=mid$(b1$,i+1):l=len(b1$):goto300
320 next:w$(w)=b1$
330 fori=1tow:ifw$(i)="der"orw$(i)="die"orw$(i)="das"orw$(i)="den"thenw$(i)=""
340 ifw$(i)="durch"orw$(i)="nach"thenw$(i)=""
350 ifw$(i)="und"orw$(i)="dann"thenw$(i)="*"
360 ifw$(i)="mit"orw$(i)="in"orw$(i)="auf"orw$(i)="an"thenw$(i)="+"
370 next:b1$="":fori=1tow:b1$=b1$+w$(i):ifw$(i)<>""thenb1$=b1$+"{$a0}"
380 next:b1$=left$(b1$,len(b1$)-1):return
400 z$="":geta$:ifa$="{f1}"thenb1$=""
405 ifb1$=""then158
410 fori=1tolen(b1$):ifmid$(b1$,i,1)<>"*"thennext:goto440
420 be$=left$(b1$,i-2)
430 b1$=mid$(b1$,i+2):goto450
440 be$=b1$:b1$=""
442 fori=1tolen(be$):ifmid$(be$,i,1)<>"+"thennext:goto450
445 z$=mid$(be$,i+2,3):fori=1to33:ifz$=g2$(i)then450
446 next:z$=""
450 z=i:gosub2110:v$=left$(be$,3)
460 ifv$="zue"orv$="z"thenprint"bis jetzt hatten sie";z1;"zuege!":goto400
464 ifv$="lis"then2380
465 ifv$="ums"then120
466 ifv$="bef"then2230
467 ifv$="sto"then2290
474 ifv$="tau"then2330
475 gosub2180:fori=1to18:ifv$=v$(i)then480
478 next:print"wovon sprichst du?":goto400
480 v=i:forx=1tolen(be$):ifmid$(be$,x,1)=chr$(160)ormid$(be$,x,1)=chr$(32)thengoto490
484 next:ifv$="sie"then120
486 print"bitte benutzen sie (wenigstens!) zwei   woerter!":goto400
490 g$=mid$(be$,x+1,3):ifv$="sie"then506
491 ifg$="ses"then506
500 fori=1to33:ifg$=g2$(i)then506
504 next:fori=1to6:ifg$=left$(r$(i),3)then506
505 next:print"was fuer ein ding meinen sie??":goto400
506 geta$:ifa$="{f1}"thenb1$="":goto400
510 g=i:onvgoto520,580,620,640,700,760,880,960,990,1030,1050,1090,1200,1230,1290
511 onv-15goto1350,1410,1440
520 ifg(2)=loandg$="wes"thenprint"die wache sieht mich mistrauisch an!":gosub14180
521 ifg(2)=loandg$="wes"thenprint"und versperrt mir den weg!":goto400
530 ifg(31)=loandg$="ost"thenprint"jetzt kann ich dort nicht hingehen!":goto400
535 ifg=15andlo=9andg(15)=lothenlo=10:goto120
538 iflo=19andg=31andg(31)=lothenlo=20:goto120
540 ifg$="nor"andlo(lo,1)>0thenlo=lo(lo,1):goto120
545 ifg$="ost"andlo(lo,2)>0thenlo=lo(lo,2):goto120
550 ifg$="sue"andlo(lo,3)>0thenlo=lo(lo,3):goto120
555 ifg$="wes"andlo(lo,4)>0thenlo=lo(lo,4):goto120
560 ifg$="hoc"andlo(lo,5)>0thenlo=lo(lo,5):goto120
565 ifg$="run"andlo(lo,6)>0thenlo=lo(lo,6):goto120
570 print"tut mir leid, aber dort kann ich nicht hingehen!":goto400
580 ift(g)<>1thenprintg1$(g);" kann ich nicht tragen!"
581 ift(g)<>1thenprint"ich bin doch nicht supermann!":goto400
590 ifg(g)<>lothenprint"aber sehen sie hier ";g1$(g);"??":goto400
600 t=0:fori=1to33:ifg(i)=-1thent=t+1
605 next:ift>=5thenprint"ich trage zuviel!!":goto400
610 print"in ordnung. wir tragen nun ";g1$(g)".":g(g)=-1:goto400
620 ifg(g)<>-1thenprint"aber ";g1$(g);" habe ich gar nicht!":goto400
630 print"in ordnung. hingelegt.":g(g)=lo:goto400
640 ifg(6)<>lothenprint"ohne eine waffe kann ich nicht schiessen":goto400
650 ifg<>2thenprint"also auf "g1$(g):print"schiesse ich schon aus ueberzeugung nicht!"goto400
670 print"peng!! - das war wohl nichts! die pistole war zu alt!":gosub14180
680 print"heh!! was macht denn die wache da!!     die wird doch nicht----"
690 gosub14180:print"{down}{down}{down}{down}{rght}{rght}{rght}{rght}p e n g !{$a0}!{$a0}!":fori=1to5:gosub14180:lo=23:goto120
700 ifg(g)<>loandg(g)<>-1thenprint"mein herr, ich bin kein anhaenger der"
701 ifg(g)<>loandg(g)<>-1thenprint"transzedentalen meditation und kann     also";
702 ifg(g)<>loandg(g)<>-1thenprint" nichts werfen, was ich nicht habe!!":goto400
710 ifz$<>""then735
711 printg1$(g);" werfen auf";:gosub200:gosub720:goto730
720 z$=left$(i$,3):fori=1to33:ifz$=g2$(i)then725
722 next:print"bitte?":z$="":return
725 z=i:return
730 ifz$=""thengoto711:ifz$=""then710
735 ifg<>7andg<>17thenprint"geworfen. nichts passiert.":g(g)=lo:goto400
740 ifg=7andz=2andg(z)=lothenprint"boing! hufeisen traf wache."
741 ifg=7andz=2andg(z)=lothenprint"und die wache schlaeft im dienst..."
742 ifg=7andz=2andg(z)=lotheng(3)=lo:g(7)=lo:g(2)=0:g2$(2)="x":g2$(3)="wac":goto400
745 ifg(z)<>lothenprint"sehen sie hier ";g1$(z);"??":goto400
750 ifg=17andz=26thenprint"krach! die bleiplatte schmettert den    leutnant nieder!"
752 ifg=17andz=26theng(26)=0:g(28)=lo:goto400
760 ifz$=""thenprintg1$(g);" geben an";:gosub200:gosub720
765 ifz$=""then760
770 ifz<>8thenprint"bedaure, das geht nicht.":goto400
780 iflo<>6thenprint"mein herr, ich sehe hua hier nicht!":goto400
790 ifg<>11thenprint"was soll hua denn mit ";g1$(g);"??":goto400
800 ifg(11)<>-1andg(11)<>lothenprint"hab weder rakete noch rucksack.":goto400
810 print"hua chang fu ist gluecklich, seine hohe  kunst anwenden zu duerfen."
820 print"waehrend er den rucksack repariert,     erzaehlt er von seiner familie,"
830 print"von seinen ahnen, von ali baba, der     immer 'sesam oeffne dich!' rief,"
840 print"wenn ihm was im weg war und von dem     tollen volkswagen kaefer, den"
850 print"ihm die kommune geschenkt hat, weil er  in 5 minuten drei waschmashinen"
860 print"und sieben motorraeder repariert hat."
870 print"aber jetzt ist der rucksack wieder be- triebsbereit. kosten uebernimmt"
875 print"das werk. vielen dank!"
876 g(11)=0:g2$(11)="x":g2$(9)="ruc":g(9)=-1:g1$(9)=g1$(9)+"sack":goto400
880 ifg(g)<>-1andg(g)<>lothenprint"starten sie lieber zum optiker!"
881 ifg(g)<>-1andg(g)<>lothenprint"denn nirgendwo ist hier ";g1$(g);"!!":goto400
891 ifg<>9andg<>10andg<>20thenprint"ich kann ";g1$(g):print"nicht starten!":goto400
900 ifg=10thenprint"knatter! knatter! - mit dem ding stimmt was nicht!":goto400
910 ifg=9then925
920 print"den presslufthammer stratet man anders!":goto400
925 print"der raketenrucksack springt an! --":gosub14180
930 print"ich hebe ab!!!":gosub14180
940 iflo<>2andlo<>3thenprint"he! wo fliege ich hin?!? haaaalt!!":gosub14180
945 iflo<>2andlo<>3thenprint"ich stuerze aaaaaaaaaaab!!!!":lo=23:gosub14180:goto400
950 print"...und lande sanft auf der mauer!":gosub14180:gosub14180:lo=8:goto120
960 ifg(g)<>loandg(g)<>-1thenprint"ziehen sie sich an ihrer nase!":goto400
970 ifg=14andri=0thenprint"rumpel! ein teil der wand geht zur      seite!"
971 ifg=14andri=0thenri=1:g(15)=lo:goto400
974 ifg=14andri=1thenprint"sie leiden unter vergesslichkeit, was?":goto400
980 print"an ";g1$(g);" soll ich ziehen?":print"wie stellen sie sich denn das vor?":goto400
990 ifg(g)<>-1andg(g)<>lothenprint"i don't see that here!":goto400
1000 ifg=1thenprint"die mappe ist geoffnet. sie enthaelt    unsere anweisungen."
1002 ifg=1then9000
1005 ifg=13thenprint"in ordnung. der krug ist offen.":g(16)=lo:g(13)=0
1006 ifg=13theng2$(13)="x":g2$(16)="kru":goto400
1010 ifg=29andg(27)=-2thenprint"mit lesiem zischen oeffnet sich die     panzertuer!"
1011 ifg=29andg(27)=-2theng(29)=0:g(31)=lo:g2$(29)="x":g2$(31)="tue":goto400
1020 print"leider kann ich ";g1$(g):print"nicht oeffnen!":goto400
1030 ifg(g)<>loandg(g)<>-1thenprint"das kann ich nicht lesen!!":goto400
1032 ifg=1thenprint"die mappe enthaelt die anweisungen.":goto9000
1040 ifg=17thenprint"dort stehen zahlen: ";co$:goto400
1045 print"nein, ";g1$(g);" kann ich nicht lesen!":goto400
1050 ifg<>18thenprint"ich bin doch nicht herkules.":goto400
1055 iflo<>10thenprint"wir werden wohl warten muessen, bis uns jemand einen felsblock"
1056 iflo<>10thenprint"bringt, denn hier ist keiner!!":goto400
1060 ifkr=0thenprint"ich versuch's ja, aber ich bin nicht    stark genug!":goto400
1070 print"in ordnung! ich schnappe mir den felsen und schleudere ihn weg!":gosub14180
1075 print"das sollte obelix sehen! der felsen     prallt gegen die wand und ---"
1080 print"zerbroeckelt!":g(18)=0:g(19)=lo:lo(10,1)=11:goto400
1090 ifg(g)<>loandg(g)<>-1thenprintg1$(g);" sehe ich hier nicht!":goto400
1100 ifg=21andpr=1thenprint"ratatatatatata!!! der presslufthammer   springt an!"
1101 ifg=21andpr=1andlo=11thenprint"und ein loch ist im boden!!":lo(11,6)=12:goto400
1102 ifg=21andpr=1thenprint"aber es passiert nichts!":goto400
1105 ifg=21thenprint"nichts geschieht.":goto400
1110 ifg=22andlo=15thenprint"zisch! die ente blaest sich auf! ich    steige!"
1115 ifg=22andlo=15thenprint"peng! die ente platzt! aber ich bin     aufgetaucht!"
1118 ifg=22andlo=15thenlo=14:g(22)=0:goto400
1120 ifg<>33thenprint"auf ";g1$(g):print" kann ich nicht druecken!":goto400
1130 print"auf einem bildschrim erscheint:"
1135 print"countdown-stop durch eingabe des        abschusscodes bestaetigen!"
1140 print"abschuscode => ";:gosub200
1150 ifi$=co$then9140
1155 poke53280,3:print"{clr}ueberall heulen alarmlichter auf!"
1160 print"hilfe!! die rakete startet!! was haben  sie getan!!":lo=24:fori=1to4
1170 gosub14180:next:goto120
1185 fori=1to20:poke53280,2:forx=1to150:next:poke53280,1:forx=1to150:next:next
1200 ifg<>5thenprint"auf ";g1$(g):print" kann ich nicht klettern!":goto400
1210 iflo<>5thenprint"sie sehen wohl den baum vor lauter      waeldern nicht?":goto400
1220 lo=7:goto120
1230 ifg$="ses"then1260
1240 print"das zu rufen wuerde nicht viel zur      loesung des adventures beitragen!"
1250 goto400
1260 print"{down}sesam, oeffne dich!!"
1270 iflo<>17thenprint"nichts passiert.":goto400
1275 ifse=0thenprint"rumpel! rumpel! der berg oeffnet sich!":lo(lo,4)=18:se=1:goto400
1280 print"hoer mal, der berg ist bereits oeffen!":goto400
1290 ifg(g)<>loandg(g)<>-1thenprint"tut mir leid, ";g1$(g):print"sehe ich hier nicht!":goto400
1300 ifg<>20thenprintg1$(g);" kann ich nicht auffuellen!":goto400
1310 ifz$=""thenprint"den presslufthammer auffuellen mit was ";:gosub200:gosub720
1320 ifz$=""then1310
1330 ifz<>16thenprint"nein, das geht nicht.":goto400
1335 ifpr=1thenprint"das kann ich nicht mehr.":goto400
1340 print"gluck gluck gluck! presslufthammer ist  aufgefuellt!":pr=1:goto400
1350 ifg(g)<>loandg(g)<>-1thenprint"leiden sie an halluzinationen?":goto400
1355 ifg<>27andg<>25thenprintg1$(g);" kann ich nirgendwo reinstecken!":goto400
1360 ifz$=""thenprintg1$(g);" stecken in ";:gosub200:gosub720
1365 ifz$=""then1360
1368 ifg(z)<>lothenprintg1$(z);" sehe ich hier nicht!":goto400
1370 ifg=27then1390
1375 ifz<>24thenprint"den stein in ";g1$(g);" stecken? warum?":goto400
1380 print"der stein passt! in der decke oeffnet sich die luke!!"
1385 g(25)=-2:lo(14,5)=16:goto400
1390 ifz<>30thenprint"das geht nicht."
1395 print"der ritz schluckt den anhaenger!"
1400 g(27)=-2:goto400
1410 ifg<>16thenprint"nein, das trinke ich nicht!!":goto400
1420 ifg(g)<>loandg(g)<>-1thenprint"sie haben wohl zuviel getrunken?":goto400
1425 ifkr=1thenprint"allzuviel ist ungesund!":goto400
1430 print"gluck! gluck! gluck! schmeckt nicht     schlecht!":kr=1:goto400
1440 ifg$="ker"andg(14)=0andlo=9thenprint"ich sehe etwas!":g(14)=lo:goto400
1445 ifg$="sil"andlo=22thenprint"ich sehe etwas!":g(33)=lo:goto400
1450 forg=1to33:ifg$=g2$(g)then1455
1452 next:print"ich sehe nichts besonderes!":goto400
1455 ifg(g)<>loandg(g)<>-1thenprint"das sehe ich hier nicht":goto400
1460 ifg=1thenprint"sie enthaelt unsere anweisungen.":goto9000
1470 ifg=3andg(4)=0thenprint"er hat etwas bei sich!":g(4)=lo:goto400
1480 ifg=5andg(7)=0thenprint"da liegt etwas neben dem baum!":g(7)=lo:g(6)=lo:goto400
1490 ifg=10andg(11)=0thenprint"beim skelet liegt etwas!":g(11)=lo:goto400
1495 ifg=11thenprint"er funktioniert nicht.":goto400
1500 ifg=13thenprint"er ist nicht besonders gut verschlossen!":goto400
1505 ifg=16andkr=0thenprint"es ist kein gift drin!":goto400
1510 ifg=16andpr=0thenprint"das zeug im krug riecht beinah wie      benzin!":goto400
1515 ifg=17thenprint"es ist etwas in die platt eingerizt!":goto400
1520 ifg=18thenprint"er versperrt uns den weg!":goto400
1530 ifg=19thenprint"tja, ich habe ziemlich kraeftig auf den felsblock gehauen!":goto400
1540 ifg=20andg(21)=0thenprint"ich habe etwas gefunden!":g(21)=lo:goto400
1550 ifg=22thenprint"sie kann sich wie eine schwimmweste     selbst aufblasen!":goto400
1560 ifg=23andg(24)<>lotheng(24)=lo:print"ich habe etwas gefunden!":goto400
1570 ifg=25thenprint"er hat eine eigenartige form!":goto400
1575 ifg=26thenprint"er hat uns noch nicht gesehen!":goto400
1580 ifg=28andg(27)=0theng(27)=lo:print"ich habe etwas gefunden!":goto400
1590 ifg=27thenprint"er hat seltsame zacken!":goto400
1600 ifg=29andg(30)<>lotheng(30)=lo:print"ich habe etwas gefunden!":goto400
1605 ifg=30thenprint"man koennte was reinstecken!":goto400
1606 ifg=29andg(30)=0thenprint"ich habe etwas entdeckt!":g(30)=lo:goto400
1610 ifg=32thenprint"sie zeigen das bild einer rakete!":goto400
1620 print"an ";g1$(g):print"erkenne ich nichts besonderes!":goto400
2000 z1=z1+1
2010 ifz1>1280thenprint"jemand scheint hinter uns her zu sein!  ich hoere stimmen!"
2020 ifz1>=300thenprint"ich hatte recht! hilfe! man hat uns     eingeholt!!":lo=2
2030 ifz1>=300thengosub14180:gosub14180:return
2035 iflo>22then14370
2040 iflo=8thenprint"der wachtrupp singt: kommt ein voeglein geflogen..."
2050 iflo=8thenfori=1to6:gosub14180:next:lo=9:print"{clr}wo bin ich?":g(9)=0:return
2060 iflo=15thenw1=w1+1:ifw1>=4thenprint"ich habe bald keine luft mehr!!"
2070 iflo=15andw1>=8thenprint"ich ertrinke! -- blubs gluck..."
2071 iflo=15andw1>=6thenfori=1to3:gosub14180:next
2080 iflo=18andg(26)=lothenmp=mp+1:ifmp>=5thenprint"mc perkins dreht sich um! hilfe!"
2081 iflo=18andmp>=5thenprint"er zieht eine waffe!":lo=23:fori=1to3:gosub14180:next
2090 iflo=21andg(4)<>-1thenprint"ueberall heulen sirenen auf!"
2091 iflo=21andg(4)<>-1thenprint"alarmlichter gehen an! wachen kommen!!"
2092 iflo=21andg(4)<>-1thenlo=23:fori=1to3:gosub14180:next:goto120
2100 return
2110 ifbe$="n"thenbe$="geh nor"
2120 ifbe$="o"thenbe$="geh ost"
2130 ifbe$="s"thenbe$="geh sue"
2140 ifbe$="w"thenbe$="geh wes"
2150 ifbe$="h"thenbe$="geh hoc"
2160 ifbe$="r"thenbe$="geh run"
2170 return
2180 ifv$="wir"thenv$="wer"
2190 ifv$="gib"thenv$="geb"
2200 ifv$="lie"thenv$="les"
2210 ifv$="unt"thenv$="sie"
2220 return
2230 print"alle zulaessigen verben sind:"
2240 print"{down}geh, nimm, leg, schiesse, werfe, gebe,  starte, ziehe, oeffne, lese"
2250 print"waelze, druecke, klettere, rufe, fuelle,stecke, untersuche, trinke"
2260 print"(wirf, gib, lies, sieh)"
2270 print"{down}ein-wort-kommandos:"
2280 print"umschauen, befehle, stop, zuege, list,  tauche":goto400
2290 print"{clr}sie wollen gerade jetzt aufhoeren?"
2300 geta$:ifa$="n"then400
2310 ifa$<>"j"then2300
2320 print"dann auf wiedersehen!":goto14390
2330 iflo<12orlo>14thenprint"hier kann ich nicht tauchen!!":goto400
2340 ifg(17)<>-1thenprint"ich bin zu leicht! ich gehe nicht unter!":goto400
2350 lo=15:goto120
2380 x1=0:print"ich trage bei mir:"
2390 fori=1to33:ifg(i)=-1thenprintg1$(i):x1=1
2400 next:ifx1=0thenprint"nichts."
2410 goto400
9000 print"kennen sie die anweisungen bereits?"
9002 geta$:ifa$="j"then9100
9003 ifa$<>"n"then9002
9005 print"{clr}geheimauftrag -- top secret!!"
9010 print"{down}vor einigen wochen entdeckte man, dass  in einem raketensilo der us"
9015 print"streitkraefte die gesamte mannschaft    einschliesslich einer jupiter-"
9020 print"centaur-rakete fehlte."
9025 print"{down}der kommandierende offizier, lt mc      perkins, lies etwas spaeter der"
9030 print"regierung die nachricht zukommen, dass  er die rakete an einem anderen"
9035 print"ort aufgestellt und den countdown  ausgeloest habe. wenn ihm nicht"
9040 print"innerhalb dieser zeit das oberkommando  ueber die gesamten us-streit-"
9045 print"kraefte uebertragen wuerde, will er   mit dieser rakete den 3. weltkrieg"
9050 print"ausloesen!"
9055 print"bitte >return< druecken!"
9060 geta$:ifa$<>chr$(13)then9060
9065 print"{clr}agenten des cia haben danach das ver-   steck der rakete ausgemacht:"
9070 print"ein verlassener abschnitt der grossen   chinesischen mauer!!"
9075 print"{down}da es natuerlich unmoeglich ist, den    forderungen nachzukommen, haben"
9080 print"der praesident und der kongress         beschlossen, den besten agenten"
9085 print"der ihnen zur verfuegung steht auf die  rakete anzusetzen: james bond!"
9090 print"{down}nun war james bond gerade verhindert    (er hatte grippe) --- und da"
9095 print"kam man auf --- sie!!"
9100 print"{down}stoppen sie den countdown der rakete,   bevor es zu spaet ist!"
9110 print"{down}alles klar? dann bitte >return<!"
9120 geta$:ifa$<>chr$(13)then9120
9130 lo=2:g(1)=0:goto120
9140 print"{clr}auf dem bildschrim erscheint:"
9145 print"{down}abschuss code bestaetigt. countdown     gestoppt!"
9150 print"{down}{down}sie haben es geschafft!! sie haben es   wirklich geschafft!!!"
9160 print"hurra! das war hervoragend!!"
9170 print"{down}{down}geruechten zur folge will der praesi-   dent ihnen jetzt einen orden"
9180 print"verleihen! herzlichen glueckwunsch!!"
9200 goto14390
10000 g$(1,1)="                    "
10010 g$(1,2)=" seal     of    the "
10020 g$(1,3)=" {CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O} "
10030 g$(1,4)="{CBM-L}{wht}**********{blk}{CBM-J}{rvon}{red}       {blk}{rvof}{CBM-J}"
10040 g$(1,5)="{CBM-L}{wht}**********{blk}{CBM-J}{rvon}{wht}       {blk}{rvof}{CBM-J}"
10050 g$(1,6)="{CBM-L}{wht}**********{blk}{CBM-J}{rvon}{red}       {blk}{rvof}{CBM-J}"
10060 g$(1,7)=g$(1,5)
10070 g$(1,8)="{CBM-L}{wht}**********{blk}{CBM-J}{rvon}{red}       {blk}{rvof}{CBM-J}"
10080 g$(1,9)="{CBM-L}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{rvon}{wht}        {blk}{rvof}{CBM-J}"
10090 g$(1,10)="{CBM-L}{rvon}{red}                  {blk}{rvof}{CBM-J}"
10100 g$(1,11)="{CBM-L}{rvon}{wht}                  {blk}{rvof}{CBM-J}"
10110 g$(1,12)=g$(1,10):g$(1,13)=g$(1,11):g$(1,14)=g$(1,10):g$(1,15)=g$(1,11)
10150 g$(1,16)="{blk} {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U} "
10160 g$(1,17)=" president  of  the "
10165 g$(1,18)="   united  states   "
10180 g$(2,1)="                    "
10190 g$(2,2)="                  {yel}Q{blk} "
10200 g$(2,3)="                    "
10210 g$(2,4)="           NMNM     "
10220 g$(2,5)="M   NM    N  M M    "
10230 g$(2,6)=" M N  M {gry3}{CBM-+}{blk}N{gry3}{CBM-+} {CBM-+}{$a0}{CBM-+}{blk} M NM"
10240 g$(2,7)="  M NM MN{gry3}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}P{blk}M N  "
10250 g$(2,8)="NM N  MN {gry3}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-N}{blk} M   "
10260 g$(2,9)="  N    M {gry3}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-N}{blk}  MNM"
10270 g$(2,10)=" N      M{gry3}{CBM-+} {CBM-+} {CBM-+}{CBM-N}  N  "
10280 g$(2,11)="{gry2}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-N}{CBM-+}{CBM-+}  {CBM-+}"
10290 g$(2,12)="{gry2}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-L}{CBM-+} {CBM-+} {CBM-+}{CBM-N}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
10300 g$(2,13)="{gry2}{CBM-+}{CBM-+} {CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-L}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-N}{CBM-+} {CBM-+}{CBM-+} "
10310 g$(2,14)="{gry1}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-L}{CBM-+} {CBM-+} {CBM-+}{CBM-N}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
10320 g$(2,15)="{gry1}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-L}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-N}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
10330 g$(2,16)="{blk}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{gry3}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}N{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
10340 g$(2,17)="{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}        {CBM-P}{CBM-P}{CBM-P}{CBM-P}"
10350 g$(2,18)="{lgrn}XX{rvon}    {rvof}X{rvon} {rvof}{blk}M{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}N{lgrn}{rvon} {rvof}X{rvon}  {blk}"
10360 g$(3,1)="     {CBM-N}   N  {CBM-J}  N{lblu}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}"
10370 g$(3,2)="{CBM-I}{CBM-I}{CBM-I}{CBM-I} {CBM-N}  {CBM-L}  N{CBM-J} N{lblu}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}N"
10380 g$(3,3)="{CBM-L}{SHIFT--}{CBM-L}{SHIFT--}{CBM-J}{CBM-N}  {CBM-L} NN N{lblu}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}N "
10390 g$(3,4)="{CBM-L}{SHIFT--}{CBM-L}{SHIFT--}{CBM-J}{CBM-N}  {CBM-L}NN N{lblu}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}N  "
10400 g$(3,5)="{CBM-L}{SHIFT--}{CBM-L}{SHIFT--}{CBM-J}{CBM-N}  {CBM-L}N N{lblu}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}N   "
10410 g$(3,6)="{CBM-L}{SHIFT--}{CBM-L}{SHIFT--}{CBM-J}{CBM-N}    N{lblu}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}N    "
10420 g$(3,7)="{CBM-U}{CBM-U}{CBM-U}{CBM-U} {CBM-N}   N{lblu}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}N    N"
10430 g$(3,8)="     {CBM-N}  N{lblu}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}N    N{rvon}{lgrn} {blk}"
10440 g$(3,9)="     {CBM-N} N{lblu}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}N    N{rvon}{lgrn} X{blk}"
10450 g$(3,10)="     {CBM-N}N{lblu}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}N    N{rvon}{lgrn} X {blk}"
10460 g$(3,11)="{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{lblu}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}N     {CBM-U}{CBM-U}{CBM-U}{CBM-U}"
10470 g$(3,12)="{lblu}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}N          "
10480 g$(3,13)="{lblu}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}N           "
10490 g$(3,14)="{lblu}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}N    N{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
10500 g$(3,15)="{lblu}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}N    N{rvon}{lgrn} X  XX  {blk}"
10510 g$(3,16)="{lblu}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}N    N{rvon}{lgrn}       X {blk}"
10520 g$(3,17)="{lblu}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}N    N{rvon}{lgrn}   X X   X{blk}"
10530 g$(3,18)="{lblu}{CBM-+}{CBM-+}{CBM-+}{blk}N    N{rvon}{lgrn}  XX       {blk}"
10540 g$(4,1)="  NM   NM  NM  NM {yel}Q{blk} "
10550 g$(4,2)=" N  NMN NMN  MN  MNM"
10560 g$(4,3)="N  N  MN  M   M   M "
10570 g$(4,4)="{CBM-T}{CBM-Y}{CBM-T}{CBM-U}{CBM-Y}{CBM-U}{CBM-Y}{CBM-U}{CBM-Y}{CBM-U}{CBM-Y}{CBM-T}{CBM-U}{CBM-Y}{CBM-T}{CBM-U}{CBM-T}{CBM-Y}{CBM-T}{CBM-Y}"
10580 g$(4,5)="{rvon}{lgrn} XXX  X XX    X X X "
10590 g$(4,6)="{rvon}{lgrn}    X          X   X"
10600 g$(4,7)="{blk}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}C{rvon}{lgrn}    "
10610 g$(4,8)="                {blk}C{rvon}{lgrn}   "
10620 g$(4,9)="                 {blk}C{rvon}{lgrn}  "
10630 g$(4,10)="{blk}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}        {CBM-L}{rvon}{lgrn} X"
10640 g$(4,11)="{rvon}{lgrn}         {rvof}{blk}C       {CBM-L}{rvon}{lgrn} X"
10650 g$(4,12)="{rvon}{lgrn}       X  {rvof}{blk}C      {CBM-L}{rvon}{lgrn}  "
10660 g$(4,13)="{rvon}{lgrn}     X     {rvof}{blk}C     {CBM-L}{rvon}{lgrn}  "
10670 g$(4,14)="{rvon}{lgrn}   X       {rvof}{blk}{CBM-N}     {CBM-L}{rvon}{lgrn}X "
10680 g$(4,15)="{rvon}{lgrn}  X     X  {rvof}{blk}{CBM-N}     {CBM-L}{rvon}{lgrn}  "
10690 g$(4,16)="{rvon}{lgrn} X  X      {rvof}{blk}{CBM-N}     {CBM-L}{rvon}{lgrn} X"
10700 g$(4,17)="{rvon}{lgrn}       X   {rvof}{blk}{CBM-N}     {CBM-L}{rvon}{lgrn}  "
10710 g$(4,18)="{rvon}{lgrn}     X      {rvof}       {rvon} {blk}"
10720 g$(5,1)="             {grn}{CBM-O}{CBM-I}{CBM-P}   {yel}Q{blk} "
10730 g$(5,2)="           {grn}{rvon}     {rvof}{blk}    "
10740 g$(5,3)="          {grn}{rvon}       {rvof}{blk}   "
10750 g$(5,4)="         {grn}{rvon}        {rvof}{blk}   "
10760 g$(5,5)="    NM   {grn}{rvon}        {rvof}{blk}   "
10770 g$(5,6)="MNMN  M  {grn}{rvon}        {rvof}{blk}   "
10780 g$(5,7)=" MN NM MN{grn}{rvon}        {rvof}{blk}MNM"
10790 g$(5,8)="  MN  MN  {grn}{rvon}      {rvof}{blk} N  "
10800 g$(5,9)="  N   N    {grn}{rvon}    {rvof}{blk}MN  N"
10810 g$(5,10)=" N   N      {brn}{CBM-+}{CBM-+}{blk}  M N "
10820 g$(5,11)="{CBM-O}{CBM-P}{CBM-@}{CBM-P}{CBM-P}{CBM-@}{CBM-O}{CBM-P}{CBM-O}{CBM-@}{CBM-P}{CBM-O}{brn}{CBM-+}{CBM-+}{blk}{CBM-I}{CBM-O}{CBM-P}{CBM-O}{CBM-P}{CBM-I}"
10830 g$(5,12)="{rvon}{lgrn} XX         {rvof}{brn}{CBM-+}{CBM-+}{lgrn}{rvon} XX{$a0}X "
10840 g$(5,13)="{rvon}{lgrn}   XXX{$a0}XX   {rvof}{brn}{CBM-+}{CBM-+}{lgrn}{rvon}      "
10850 g$(5,14)="{rvon}{lgrn}            {rvof}{brn}{CBM-+}{CBM-+}{lgrn}{rvon}   XX "
10860 g$(5,15)="{rvon}{lgrn}      XX{$a0}X          "
10870 g$(5,16)="{rvon}{lgrn}  X      X{$a0}{$a0}XXX{$a0}X{$a0}X "
10880 g$(5,17)="{rvon}{lgrn} XXX                "
10890 g$(5,18)="{blk}{CBM-O}{CBM-P}{CBM-@}{CBM-P}{CBM-@}{CBM-P}{CBM-O}{CBM-P}{CBM-@}{CBM-P}{CBM-@}{CBM-P}{CBM-O}{CBM-P}{CBM-@}{CBM-P}{CBM-O}{CBM-P}{CBM-@}{CBM-P}"
10900 g$(6,1)="  NM        NM NM  {yel}Q{blk}"
10910 g$(6,2)=" N  MNM  NMN  N  M  "
10920 g$(6,3)="N   N  MN  M N    M "
10930 g$(6,4)=" NMN  {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
10940 g$(6,5)="N  M N  {CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}  "
10950 g$(6,6)="{CBM-@}{CBM-@}{CBM-@}{CBM-@}N  {CBM-L}adac china{CBM-J} "
10960 g$(6,7)="   N   {CBM-L}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-J} "
10970 g$(6,8)="  {CBM-L}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
10980 g$(6,9)="  {CBM-L} hua chang fu wer"
10990 g$(6,10)="  {CBM-L}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}"
11000 g$(6,11)="  {CBM-L} {CBM-O}{CBM-O}{CBM-O}{CBM-O}     {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
11010 g$(6,12)="XX{CBM-L}{CBM-L}{CBM-+}{CBM-H}  {CBM-J}O{CBM-Y}P{CBM-M}{CBM-+}{CBM-H}     "
11020 g$(6,13)="  {CBM-L}{CBM-L}{CBM-+}{CBM-H}  {CBM-J}{CBM-H}{SHIFT-*}{CBM-N}{CBM-M}{CBM-+}{CBM-H}     "
11030 g$(6,14)="X {CBM-L}{CBM-L}{CBM-+}{CBM-H}  {CBM-J}{CBM-H}{SHIFT-*}{CBM-N}{CBM-M}{CBM-+}L{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
11040 g$(6,15)="  {CBM-L}{CBM-L}{CBM-+}{CBM-H}  {CBM-J}L{CBM-P}{SHIFT-@}{CBM-M}N{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
11050 g$(6,16)=" X{CBM-L}{CBM-L}{CBM-+}L{CBM-P}{CBM-P}{CBM-J}    {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
11060 g$(6,17)="X {CBM-L}{CBM-L}N{CBM-+}{CBM-+}{CBM-+}{CBM-J}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}"
11070 g$(6,18)="   {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
11080 g$(7,1)="{grn} {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}N{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}N{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
11090 g$(7,2)="  {CBM-+}{CBM-+}{CBM-+}M{CBM-+}N{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}N{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} "
11100 g$(7,3)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}M{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}N{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
11110 g$(7,4)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}M{CBM-+}N{CBM-+}B{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
11120 g$(7,5)=" {CBM-+}M{CBM-+}N{CBM-+}{CBM-+}{CBM-+}N{CBM-+}{CBM-+}B{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
11130 g$(7,6)="{CBM-+}{CBM-+}{CBM-+}M{CBM-+}{CBM-+}{CBM-+}N{CBM-+}{CBM-+}{CBM-+}BM{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}N{CBM-+}"
11140 g$(7,7)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}M{CBM-+}N{CBM-+}{CBM-+}{CBM-+}{CBM-+}B{CBM-+}M{CBM-+}{CBM-+}{CBM-+}N{CBM-+}{CBM-+}"
11150 g$(7,8)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}N{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}B{CBM-+}{CBM-+}M{CBM-+}N{CBM-+}{CBM-+}{CBM-+}"
11160 g$(7,9)=" {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}M{CBM-+}{CBM-+}{CBM-+}N{CBM-+}{CBM-+}{CBM-+}{CBM-+}N{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
11170 g$(7,10)="{CBM-+}CCCCCCM{CBM-+}N{CBM-+}{CBM-+}{CBM-+}{CBM-+}N{CBM-+}{CBM-+}CC{CBM-+}"
11180 g$(7,11)=" {CBM-+}{CBM-+}{CBM-+}N{CBM-+}{CBM-+}{CBM-+}B{CBM-+}{CBM-+}{CBM-+}{CBM-+}N{CBM-+}{CBM-+}N{CBM-+}{CBM-+}{CBM-+}"
11190 g$(7,12)="{CBM-+}M{CBM-+}N{CBM-+}{CBM-+}{CBM-+}{CBM-+}B{CBM-+}{CBM-+}{CBM-+}NCCC{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
11200 g$(7,13)=" {CBM-+}N{CBM-+}M{CBM-+}{CBM-+}{CBM-+}B{CBM-+}{CBM-+}N{CBM-+}{CBM-+}M{CBM-+}{CBM-+}{CBM-+}{CBM-+} "
11210 g$(7,14)=" {CBM-+}{CBM-+}{CBM-+}{CBM-+}M{CBM-+}{CBM-+}B{CBM-+}N{CBM-+}{CBM-+}{CBM-+}{CBM-+}M{CBM-+}{CBM-+}  "
11220 g$(7,15)="      {blk}{rvon}   {rvof}{grn}    {CBM-+}{CBM-+}{CBM-+}    "
11230 g$(7,16)="      {blk}{rvon}   {rvof}           "
11240 g$(7,17)="      {rvon}   {rvof}           "
11250 g$(7,18)="      {rvon}   {rvof}           "
11260 g$(8,1)=" NM  NMNM  NM   NM{yel}Q{blk} "
11270 g$(8,2)="N  MN N  MN  M N  M "
11280 g$(8,3)=" NM MN    MNM N    M"
11290 g$(8,4)="N  MN     N  N      "
11300 g$(8,5)=" NMN NM NM  N  NMNM "
11310 g$(8,6)="N  MN  N  MN NM N  M"
11320 g$(8,7)="    M {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}MNNMN {CBM-P}{CBM-P}{CBM-P}"
11330 g$(8,8)="     N{CBM-+}{CBM-+}{CBM-+}{CBM-+}N{CBM-H}N  MN{CBM-+}{CBM-+}{CBM-+}"
11340 g$(8,9)="{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}O{CBM-Y}{CBM-Y}{CBM-Y}P L{CBM-P}{CBM-P}{CBM-P}{CBM-P}O{CBM-Y}{CBM-Y}P"
11350 g$(8,10)="{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-H}{CBM-+}{CBM-+}{CBM-+}{CBM-N}N{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-H}{CBM-+}{CBM-+}{CBM-N}"
11360 g$(8,11)="{CBM-+}{CBM-+}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-+}{CBM-+}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-+}{CBM-P}{CBM-P}{CBM-P}"
11370 g$(8,12)="{CBM-+}{CBM-N} {CBM-H}{CBM-K}{CBM-G}{CBM-K}{CBM-G}{CBM-H}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-N} {CBM-H}{CBM-K}"
11380 g$(8,13)="{CBM-+}{CBM-N} {CBM-H}{CBM-K}{CBM-G}{CBM-K}{CBM-G}{CBM-H}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-N} {CBM-H}{CBM-K}"
11390 g$(8,14)="{CBM-+}{CBM-N} L{CBM-K}{CBM-G}{CBM-K}{CBM-G}{CBM-H}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-N} L{CBM-K}"
11400 g$(8,15)="{CBM-+}{CBM-N}N {CBM-K}{CBM-G}{CBM-K}{CBM-G}{CBM-H}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-N}N {CBM-K}"
11410 g$(8,16)="{CBM-+}{CBM-+}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-Y}{CBM-Y}{CBM-Y}"
11420 g$(8,17)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
11430 g$(8,18)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
11440 g$(9,1)="{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}  i  was  {CBM-H}    "
11450 g$(9,2)="{CBM-L}B {CBM-L}B{CBM-H}  here   {CBM-H}    "
11460 g$(9,3)="{CBM-L}B{CBM-@}{CBM-L}B{CBM-H}         {CBM-H}  {CBM-P}{CBM-P}"
11470 g$(9,4)="{CBM-L}B {CBM-L}B{CBM-H}         {CBM-H}  {CBM-G}{CBM-N}"
11480 g$(9,5)="{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}   hilfe  {CBM-H} Q{CBM-G}{CBM-N}"
11490 g$(9,6)="wo             {CBM-H} NG{CBM-N}"
11500 g$(9,7)="  ist          {CBM-H}  G{CBM-N}"
11510 g$(9,8)="     der       {CBM-H} NM{CBM-N}"
11520 g$(9,9)="        ausgang{CBM-H}   N"
11530 g$(9,10)="               {CBM-H}woN "
11540 g$(9,11)="               {CBM-H}  {CBM-Y}{CBM-Y}"
11550 g$(9,12)="{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-H}bin "
11560 g$(9,13)="{orng}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}M ich"
11570 g$(9,14)="{orng}{CBM-+}{CBM-+}   {wht}{CBM-@}{CBM-@}{CBM-@}{orng}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}M???"
11580 g$(9,15)="{orng}{CBM-+}   {wht}NQ QM{orng}      {CBM-+}{CBM-+}{blk}M  "
11590 g$(9,16)="{orng}{CBM-+}{CBM-+}{CBM-+} {wht}{CBM-G} {CBM-Z} {CBM-M}{orng}     {CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}M "
11600 g$(9,17)="{orng}{CBM-+}{CBM-+}{CBM-+} {wht}M{CBM-R}{CBM-R}{CBM-R}N{orng}       {CBM-+}{CBM-+}{CBM-+}{blk}M"
11610 g$(9,18)="{orng}{CBM-+}{CBM-+}   {wht}M{CBM-@}N{orng}     {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}"
11620 g$(10,1)="{brn}{blk}M{brn}{rvon}                   "
11630 g$(10,2)="{rvon} {rvof}{blk}M{brn}{rvon}                 {rvof}{blk}N"
11640 g$(10,3)="{rvon}{brn}  {rvof}{blk}M{brn}{rvon}               {rvof}{blk}N{rvon}{brn} "
11650 g$(10,4)="{rvon}   {rvof}{blk}M{brn}{rvon}             {rvof}{blk}N{rvon}{brn}  "
11660 g$(10,5)="{rvon}    {rvof}{blk}M{brn}{rvon}           {rvof}{blk}N{rvon}{brn}   "
11670 g$(10,6)="{rvon}     {rvof}{blk}M{brn}{rvon}  {rvof}{blk}N{CBM-Y}{CBM-Y}{CBM-Y}M{brn}{rvon}  {rvof}{blk}N{rvon}{brn}    "
11680 g$(10,7)="{rvon}      {rvof}{blk}MN{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}MN{brn}{rvon}     "
11690 g$(10,8)="{rvon}       {rvof}{blk}{CBM-H}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-H}{brn}{rvon}     "
11700 g$(10,9)="{rvon}       {rvof}{blk}{CBM-H}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-H}{brn}{rvon}     "
11710 g$(10,10)="{rvon}       {rvof}{blk}{CBM-H}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}M{brn}{rvon}     "
11720 g$(10,11)="{rvon}      {rvof}{blk}N{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-H}{rvon}{brn}    "
11730 g$(10,12)="{rvon}     {rvof}{blk}N{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}M{rvon}{brn}    "
11740 g$(10,13)="{rvon}    {rvof}{blk}N{rvon}{brn}           {rvof}{blk}M{rvon}{brn}   "
11750 g$(10,14)="{rvon}   {rvof}{blk}N{rvon}{brn}             {rvof}{blk}M{rvon}{brn}  "
11760 g$(10,15)="{rvon}  {rvof}{blk}N{rvon}{brn}               {rvof}{blk}M{rvon}{brn} "
11770 g$(10,16)="{rvon} {rvof}{blk}N{rvon}{brn}                 {rvof}{blk}M"
11780 g$(10,17)="{blk}N{rvon}{brn}                   {rvof}"
11790 g$(10,18)="{rvon}{brn}                    {rvof}{blk}"
11800 fori=1to14:g$(11,i)=g$(10,i):next
11810 g$(11,15)= "{lblu} {CBM-+}     {CBM--}   {CBM-POUND}{CBM-POUND}{CBM-POUND}    {CBM-POUND}{CBM-POUND}"
11820 g$(11,16)="{CBM-+}{CBM-+}{CBM-+}{CBM-POUND} {CBM-POUND}{CBM-+}{CBM-+}{CBM--} {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}"
11830 g$(11,17)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}"
11840 g$(11,18)=g$(11,17)
11850 g$(12,1)="{rvon}                    "
11860 g$(12,2)="{rvon}                    "
11870 g$(12,3)="M                  N"
11880 g$(12,4)=" M                N "
11890 g$(12,5)="  M              N  "
11900 g$(12,6)="  {CBM-M}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-G}  "
11910 g$(12,7)="  {CBM-L}              {CBM-J}  "
11920 g$(12,8)="  {CBM-M}              {CBM-J}  "
11930 g$(12,9)="  {CBM-L}              {CBM-K}  "
11940 g$(12,10)="  {CBM-M}              {CBM-H}  "
11950 g$(12,11)="{lblu}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}{CBM-+}{CBM-+}{CBM-POUND}{CBM-+}{CBM-+}{CBM--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
11960 g$(12,12)="{CBM-+}{CBM-+}{CBM-POUND}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
11970 g$(12,13)="{CBM-+}{CBM-POUND}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}{CBM-+}{CBM-+}"
11980 g$(12,14)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
11990 g$(12,15)="{CBM-+}{CBM-POUND}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}{CBM-+}{CBM-+}"
12000 g$(12,16)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
12010 g$(12,17)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
12020 g$(12,18)="{CBM-+}{CBM-+}{CBM-POUND}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{blk}"
12030 fori=1to18:g$(13,i)=g$(12,i):next
12040 fori=1to18:g$(14,i)=g$(13,i):next
12050 g$(14,3)="M    {brn}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{blk}      N"
12060 g$(14,4)=" M   {brn}M  {blk}{CBM-R}{CBM-R}{brn}  N{blk}     N "
12070 g$(14,5)="  M   {brn}M{CBM-P}{CBM-P}{CBM-P}{CBM-P}N{blk}     N  "
12080 g$(15,1)="           W   W    "
12090 g$(15,2)="                    "
12100 g$(15,3)="     {CBM-P}{CBM-P}    W   W    "
12110 g$(15,4)="     M{CBM-+}M{CBM-P}{CBM-P} W        "
12120 g$(15,5)=" {CBM-N}MN{CBM-Y}{CBM-Y}{CBM-+}{CBM-+}{CBM-+}QM         "
12130 g$(15,6)=" {CBM-N}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  M        "
12140 g$(15,7)=" {CBM-N}NM{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} CN   W    "
12150 g$(15,8)="    {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}    W    "
12160 g$(15,9)="               W    "
12170 g$(15,10)="{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}W{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
12180 g$(15,11)="{rvon}{grn} X                  "
12190 g$(15,12)="{rvon}{grn} X    XX   XXX {rvof}{blk}W{rvon}{grn} XX "
12200 g$(15,13)="{rvon}{grn} X      X        X  "
12210 g$(15,14)="{rvon}{grn} {rvof}{blk}{CBM-P}NM{rvon}{grn}   {rvon}{grn}{CBM-P}{rvon}{grn}  {rvof}{blk}NM{CBM-P}{rvon}{grn}  {rvof}{blk}W{rvon}{grn} {CBM-P}{CBM-O} "
12220 g$(15,15)="{blk}N   M{CBM-@}N {CBM-H}N   M{CBM-P}{CBM-P}N  M"
12230 g$(15,16)="        {CBM-Y} {CBM-@}{CBM-O}{CBM-O}{CBM-@}      "
12240 g$(15,17)="         N{CBM-N}QQ{CBM-G}M     "
12250 g$(15,18)="         N{CBM-T}{CBM-Y}{CBM-Y}{CBM-T}M     "
12260 g$(16,1)="M                  N"
12270 g$(16,2)=" M                N "
12280 g$(16,3)="  M              N  "
12290 g$(16,4)="   M            N   "
12300 g$(16,5)="    M          N    "
12310 g$(16,6)="     M        N     "
12320 g$(16,7)=" ho   M      N  W W "
12330 g$(16,8)=" chi   M    N    B  "
12340 g$(16,9)=" minh   O{CBM-Y}{CBM-Y}P    CCC "
12350 g$(16,10)=" was    LOP{SHIFT-@}        "
12360 g$(16,11)=" here. N    M       "
12370 g$(16,12)="      N      M      "
12380 g$(16,13)="     N        M     "
12390 g$(16,14)="    N          M    "
12400 g$(16,15)="   N            M   "
12410 g$(16,16)="  N              M  "
12420 g$(16,17)=" N                M "
12430 g$(16,18)="N                  M"
12440 g$(17,1)="M                  N"
12450 g$(17,2)=" M                N "
12460 g$(17,3)="  {CBM-H}{CBM-T}{CBM-Y}{CBM-T}{CBM-Y}{CBM-U}{CBM-U}{CBM-Y}{CBM-T}{CBM-Y}{CBM-Y}{CBM-U}{CBM-Y}{CBM-T}{CBM-T}{CBM-Y}{CBM-H} "
12470 g$(17,4)="  {CBM-H}               {CBM-K} "
12480 g$(17,5)="  {CBM-H}  N{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}M    {CBM-H} "
12490 g$(17,6)="  {CBM-H} N {CBM-O}     {CBM-O} M   {CBM-K} "
12500 g$(17,7)=" N {CBM-N} NQM   NQM {CBM-H}  {CBM-G} "
12510 g$(17,8)=" M {CBM-N}    {CBM-H} {CBM-N}    {CBM-H}  {CBM-K} "
12520 g$(17,9)=" N  M M {CBM-H} {CBM-N} N N   M{CBM-@}"
12530 g$(17,10)=" {CBM-H}   M M{CBM-H} {CBM-N}N N     N"
12540 g$(17,11)=" MUDDIM {CBM-H} {CBM-N} N UDDI {CBM-H}"
12550 g$(17,12)=" {CBM-M}JKJK{CBM-Y}{CBM-Y}M{CBM-P}N{CBM-Y}{CBM-Y}{CBM-Y}JKJK{CBM-Y}{CBM-H}"
12560 g$(17,13)=" {CBM-M}   killroy      N "
12570 g$(17,14)=" {CBM-L}     was       N  "
12580 g$(17,15)=" {CBM-N}    here!!     M  "
12590 g$(17,16)=" {CBM-M}{CBM-O}{CBM-@}{CBM-P}{CBM-I}{CBM-@}{CBM-P}{CBM-O}{CBM-P}{CBM-@}{CBM-P}{CBM-I}{CBM-O}{CBM-O}{CBM-@}{CBM-P}{CBM-@}{CBM-G} "
12600 g$(17,17)=" N                M "
12610 g$(17,18)="N                  M"
12620 g$(18,1)="{CBM-+} N{CBM-H}{CBM-+}{CBM-N}{CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} "
12630 g$(18,2)="{CBM-+}N{CBM-H}{CBM-H}{CBM-+}{CBM-N}{CBM-+} {CBM-+} {CBM-+}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P} {CBM-+} "
12640 g$(18,3)="NN{CBM-H}{CBM-H}{CBM-+}{CBM-N}{CBM-+} {CBM-+} {CBM-N} {CBM-H}    {CBM-H}{CBM-+} "
12650 g$(18,4)="N {CBM-H}{CBM-H}{CBM-+}{CBM-N}{CBM-+} {CBM-+} {CBM-N} {CBM-H}    {CBM-H}{CBM-+} "
12660 g$(18,5)="  {CBM-H}{CBM-H}{CBM-+}{CBM-N}{CBM-+} {CBM-+} {CBM-N} {CBM-H}    {CBM-H}{CBM-+} "
12670 g$(18,6)="W {CBM-H}{CBM-H}{CBM-+}{CBM-N}{CBM-+} {CBM-+} {CBM-N} {CBM-H}    {CBM-H}{CBM-+} "
12680 g$(18,7)=" N{CBM-H}{CBM-H}{CBM-+}{CBM-N}{CBM-+} {CBM-+} {CBM-N} {CBM-H}   {CBM-P}{CBM-H}{CBM-+} "
12690 g$(18,8)="N {CBM-H}{CBM-H}{CBM-+}{CBM-N}{CBM-+} {CBM-+} {CBM-N} {CBM-H}   W{CBM-H}{CBM-+} "
12700 g$(18,9)="  {CBM-H}{CBM-H}{CBM-+}{CBM-N}{CBM-+} {CBM-+} {CBM-N} {CBM-H}    {CBM-H}{CBM-+} "
12710 g$(18,10)="W {CBM-H}{CBM-H}{CBM-+}{CBM-N}{CBM-+} {CBM-+} {CBM-N} {CBM-H}    {CBM-H}{CBM-+} "
12720 g$(18,11)=" N{CBM-H}{CBM-G}{CBM-+}{CBM-N}{CBM-+} {CBM-+} {CBM-N}{$a0}L{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-H}{CBM-+} "
12730 g$(18,12)="N {CBM-H}{CBM-H}{CBM-+}{CBM-N}{CBM-+} {CBM-+} {CBM-N}N     {CBM-H}{CBM-+} "
12740 g$(18,13)="  {CBM-H}{CBM-H}{CBM-+}N{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
12750 g$(18,14)="W L{CBM-H}N     {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
12760 g$(18,15)=" NNN     N{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
12770 g$(18,16)="NNN     N{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
12780 g$(18,17)="NN     N{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
12790 g$(18,18)="N     N{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
12800 g$(19,1)="{CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-N}{CBM-+} {CBM-+}"
12810 g$(19,2)="{CBM-+} {CBM-+}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-+} {CBM-+} {CBM-N}{CBM-+} {CBM-+}"
12820 g$(19,3)="{CBM-+} N{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}N{CBM-H} {CBM-+} {CBM-N}{CBM-+} {CBM-+}"
12830 g$(19,4)="{CBM-+}{CBM-L}{rvon}{gry1}         {rvof}{blk}{CBM-H}{CBM-H} {CBM-+} {CBM-N}{CBM-+} {CBM-+}"
12840 g$(19,5)="{CBM-+}{CBM-L}{rvon}{gry1}         {rvof}{blk}{CBM-H}{CBM-K} {CBM-+} {CBM-N}{CBM-+} {CBM-+}"
12850 g$(19,6)="{CBM-+}{CBM-L}{rvon}{gry1}         {rvof}{blk}{CBM-H}{CBM-H} {CBM-+} {CBM-N}{CBM-+} {CBM-+}"
12860 g$(19,7)="{CBM-+}{CBM-L}{rvon}{gry1}   {rvof}{blk}{CBM-M}{CBM-G}{rvon}{gry1}    {blk}{rvof}{CBM-H}{CBM-H} {CBM-+} {CBM-N}{CBM-+} {CBM-+}"
12870 g$(19,8)="{CBM-+}{CBM-L}{rvon}{gry1}   {rvof}{blk}{CBM-M}{CBM-G}{rvon}{gry1}    {rvof}{blk}{CBM-G}{CBM-H} {CBM-+} {CBM-N}{CBM-+} {CBM-+}"
12880 g$(19,9)="{CBM-+}{CBM-L}{rvon}{gry1} {rvof}{blk}{CBM-@}{CBM-@}UI{CBM-@}{CBM-@}{rvon}{gry1}  {rvof}{blk}{CBM-H}{CBM-H} {CBM-+} {CBM-N}{CBM-+} {CBM-+}"
12890 g$(19,10)="{CBM-+}{CBM-L}{rvon}{gry1} {rvof}{blk}{CBM-Y}{CBM-Y}JK{CBM-Y}{CBM-Y}{rvon}{gry1}  {rvof}{blk}{CBM-H}{CBM-H} {CBM-+} {CBM-N}{CBM-+} {CBM-+}"
12900 g$(19,11)="{CBM-+}{CBM-L}{rvon}{gry1} {rvof}{blk}W{rvon}{gry1} {rvof}{blk}{CBM-M}{CBM-G}{rvon}{gry1}    {rvof}{blk}{CBM-H}{CBM-H} {CBM-+} {CBM-N}{CBM-+} {CBM-+}"
12910 g$(19,12)="{CBM-+}{CBM-L}{rvon}{gry1}   {rvof}{blk}{CBM-M}{CBM-G}{rvon}{gry1}    {rvof}{blk}{CBM-H}{CBM-H} {CBM-+} {CBM-N}{CBM-+} {CBM-+}"
12920 g$(19,13)="{CBM-+}{CBM-L}{rvon}{gry1}         {rvof}{blk}{CBM-H}{CBM-H} {CBM-+} {CBM-N}{CBM-+} {CBM-+}"
12930 g$(19,14)="{CBM-+}{CBM-L}{rvon}{gry1}         {rvof}{blk}{CBM-H}{CBM-K} {CBM-+} {CBM-N}{CBM-+} {CBM-+}"
12940 g$(19,15)="{CBM-+}{CBM-L}{rvon}{gry1}         {rvof}{blk}{CBM-H}{CBM-H} {CBM-+} {CBM-N}{CBM-+} {CBM-+}"
12950 g$(19,16)="{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}M {CBM-+}"
12960 g$(19,17)="{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}   M{CBM-+}"
12970 g$(19,18)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}M   M"
12980 g$(20,1)=" {CBM-H}                  "
12990 g$(20,2)=" {CBM-H} 1    2    3    4 "
13000 g$(20,3)=" {CBM-H}U{SHIFT-*}{SHIFT-*}I UCCI{$a0}UCCI{$a0}UCC"
13010 g$(20,4)=" {CBM-H}B{rvon}{SHIFT-POUND}{CBM-*}{rvof}B BMNB{$a0}BUIB{$a0}B{CBM-B}{rvon}{CBM-B}{rvof}"
13020 g$(20,5)=" {CBM-H}B{rvon}  {rvof}B BNMB{$a0}BJKB{$a0}BNM"
13030 g$(20,6)=" {CBM-H}JCCK JCCK{$a0}JCCK{$a0}JCC"
13040 g$(20,7)=" {CBM-H} 8    9      10   "
13050 g$(20,8)=" {CBM-H}UCCI{$a0}UCCI{$a0}{$a0}UCCCCCI"
13060 g$(20,9)=" {CBM-H}BiiB B{rvon}{SHIFT-POUND}{CBM-*}{rvof}B  B {rvon}{SHIFT-POUND}{CBM-*}{rvof}{CBM-T}{CBM-H}B"
13070 g$(20,10)=" {CBM-H}BooB BOPB  B {rvon}  {rvof}{CBM-T}{CBM-H}B"
13080 g$(20,11)=" {CBM-H}JCCK{$a0}JCCK{$a0}{$a0}B {rvon}  {rvof}{CBM-T}{CBM-H}B"
13090 g$(20,12)=" {CBM-H}O{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}PB {rvon}  {rvof}{CBM-T}{CBM-H}B"
13100 g$(20,13)=" {CBM-H}{CBM-H}QQQ Q {CBM-R} {CBM-E}{CBM-N}B {rvon}{SHIFT-POUND}{CBM-*}{rvof}{CBM-T}{CBM-H}B"
13110 g$(20,14)=" {CBM-H}{CBM-H}{CBM-W}{CBM-W} Q{CBM-Q}  WW{CBM-N}JCCCCCK"
13120 g$(20,15)=" {CBM-H}{CBM-H}{CBM-W}{CBM-Q} {CBM-@}{CBM-P}{CBM-O}{CBM-I}{CBM-P}{CBM-@}{CBM-N} O{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
13130 g$(20,16)=" {CBM-H}L{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{SHIFT-@} L{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
13140 g$(20,17)=" L{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
13150 g$(20,18)="N{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
13160 g$(21,1)="M      NN{CBM-H}         N"
13170 g$(21,2)=" M     {rvon}W{rvof}N         N "
13180 g$(21,3)="  M              N  "
13190 g$(21,4)="   M{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}N   "
13200 g$(21,5)="   {CBM-N}   {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}    {CBM-G}   "
13210 g$(21,6)="M  {CBM-N}  {CBM-M}stop!{CBM-G}   {CBM-G}   "
13220 g$(21,7)=" M {CBM-N}   {CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}    {CBM-G}   "
13230 g$(21,8)="{CBM-Y}{CBM-Y}{CBM-H}{CBM-N}  {CBM-L} {CBM-H}   {CBM-J}   {CBM-G}   "
13240 g$(21,9)="  {CBM-H}{CBM-N}  {CBM-L} {CBM-H}   {CBM-J}   {CBM-G}   "
13250 g$(21,10)="  {CBM-H}{CBM-N}  {CBM-L} {CBM-H}{CBM-@}{CBM-@} {CBM-J}   {CBM-G}   "
13260 g$(21,11)="{CBM-P}{CBM-P}{CBM-H}{CBM-N}  {CBM-L} {CBM-H}{CBM-Y}P {CBM-J}   {CBM-G}   "
13270 g$(21,12)=" N {CBM-N}  {CBM-L} {CBM-H}   {CBM-J}   {CBM-H}   "
13280 g$(21,13)="N  {CBM-N}  {CBM-L} L{CBM-P}{CBM-P}{CBM-P}{CBM-J}   {CBM-H}   "
13290 g$(21,14)="   {CBM-N}  {CBM-L}N    {CBM-J}   {CBM-H}   "
13300 g$(21,15)="   N{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}M   "
13310 g$(21,16)="  N{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}M  "
13320 g$(21,17)=" N{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}M "
13330 g$(21,18)="N{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}M"
13340 g$(22,1)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-N} {rvon}{wht}{SHIFT-POUND}{CBM-*}{blk}{rvof}N{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}N{CBM-H}"
13350 g$(22,2)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-N} {rvon}{wht}  {blk}{rvof}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-K} {CBM-H}"
13360 g$(22,3)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-N} {rvon}{wht}  {blk}{rvof}N{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-K} {CBM-H}"
13370 g$(22,4)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-N} {rvon}{wht}  {blk}{rvof}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-K} {CBM-H}"
13380 g$(22,5)="{CBM-+} {CBM-O}{CBM-O}{CBM-+}{CBM-N}{rvon}{wht}{SHIFT-POUND}{blk}{CBM-B}{CBM-B}{wht}{CBM-*}{blk}{rvof}       {CBM-K} {CBM-H}"
13390 g$(22,6)="{CBM-+}{CBM-L}  {CBM-J}{CBM-N}{rvon}{wht}    {blk}{rvof}N{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-K} {CBM-H}"
13400 g$(22,7)="{CBM-+}{CBM-L}  {CBM-J}{CBM-N}{rvon}{wht}    {blk}{rvof}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-K} {CBM-H}"
13410 g$(22,8)="{CBM-+}{CBM-L}  {CBM-J}N{rvon}{wht}    {blk}{rvof}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-K} {CBM-H}"
13420 g$(22,9)="{CBM-+}{CBM-L} NN {rvon}{wht}    {blk}{rvof}N{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-K} {CBM-H}"
13430 g$(22,10)="{CBM-+}{CBM-L}NN  {rvon}{wht}    {blk}{rvof}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-K} {CBM-H}"
13440 g$(22,11)="{CBM-+}{CBM-L}N   {rvon}{wht}    {blk}{rvof}N{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-K} {CBM-H}"
13450 g$(22,12)="{CBM-+}N    {rvon}{wht}    {blk}{rvof}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-K} {CBM-H}"
13460 g$(22,13)="N     {rvon}{wht}    {blk}{rvof}       {CBM-K} {CBM-H}"
13470 g$(22,14)="     {rvon}{wht}{SHIFT-POUND}    {CBM-*}{blk}{rvof}{CBM-P}{CBM-P}{CBM-P}{CBM-P}  {CBM-K} {CBM-H}"
13480 g$(22,15)="    N{rvon}{wht}      {blk}{rvof}   N{CBM-H} {CBM-K} {CBM-H}"
13490 g$(22,16)="   N  {rvon}{wht}{SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}{blk}{rvof}   N {CBM-H} {CBM-K} {CBM-H}"
13500 g$(22,17)="  {CBM-N}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-H}N  {CBM-K} {CBM-H}"
13510 g$(22,18)="  {CBM-N}         {CBM-N}N   {CBM-K} {CBM-H}"
13520 g$(23,1)="          {CBM-P}{CBM-P}N{CBM-Y}{CBM-Y}{CBM-Y}M{CBM-P}{CBM-P} "
13530 g$(23,2)="         {CBM-N}paradisvm{CBM-H}"
13540 g$(23,3)="    {yel}N{CBM-Y}{CBM-Y}{CBM-Y}M{blk}{CBM-N}{CBM-Y}{CBM-Y}M{CBM-P}{CBM-P}{CBM-P}N{CBM-Y}{CBM-Y}{CBM-H}"
13550 g$(23,4)="    {yel}M   N{blk}O       {yel}Q{blk} L"
13560 g$(23,5)="    {yel} {CBM-Y}{CBM-Y}{CBM-Y}{blk} {CBM-H} NMNMNM   "
13570 g$(23,6)="    NBBBM{CBM-H}N  MN  MNM"
13580 g$(23,7)="   NNQ QMM N{CBM-H}{CBM-P}M{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
13590 g$(23,8)="   N{CBM-G}   {CBM-N}MNN{CBM-H}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
13600 g$(23,9)="{CBM-P}{CBM-I}{CBM-G} MM{CBM-P}NNNNB{CBM-H}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
13610 g$(23,10)=" {CBM-H}{CBM-H} NM{CBM-P}NMNBB{CBM-H}   {CBM-H}   "
13620 g$(23,11)=" {CBM-H}M{CBM-N}    {CBM-N} BB{CBM-H} {CBM-P} {CBM-H}   "
13630 g$(23,12)=" M{CBM-P}{CBM-Y}    {CBM-N}MBB{CBM-H} W{CBM-H}{CBM-H}   "
13640 g$(23,13)="   M    {CBM-N}{CBM-H}MN    {CBM-H}   "
13650 g$(23,14)="   {CBM-N}    {CBM-N}{CBM-H}      {CBM-H}   "
13660 g$(23,15)="   {CBM-N}    {CBM-N}{CBM-H}  eing{CBM-H}ang"
13670 g$(23,16)="   {CBM-N}    {CBM-N}{CBM-H}      {CBM-H}   "
13680 g$(23,17)="    M{CBM-P}{CBM-P}{CBM-P}NL{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
13690 g$(23,18)="   UI{CBM-J} {CBM-L}UI          "
13700 g$(24,1)="      {CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}        "
13710 g$(24,2)="     {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}       "
13720 g$(24,3)="    {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}      "
13730 g$(24,4)="   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}     "
13740 g$(24,5)="  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}    "
13750 g$(24,6)="  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}    "
13760 g$(24,7)="   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}     "
13770 g$(24,8)="    {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}      "
13780 g$(24,9)="        {CBM-+}{CBM-+}          "
13790 g$(24,10)="      N{CBM-Y}{CBM-+}{CBM-+}{CBM-Y}M        "
13800 g$(24,11)="      MCCCCN  {$a0}     "
13810 g$(24,12)="        {CBM-+}{CBM-+}          "
13820 g$(24,13)="     {CBM-+}{CBM-+} {CBM-+}{CBM-+} {CBM-+}{CBM-+}       "
13830 g$(24,14)="   {CBM-+}{CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+}     "
13840 g$(24,15)=" {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   "
13850 g$(24,16)="  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}    {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}    "
13860 g$(24,17)="   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}     "
13870 g$(24,18)="                    "
13880 fori=1to24:readlo$(i):forx=1to6:readlo(i,x):next:next
13890 fori=1to33:readg1$(i),g2$(i),g(i),t(i):next
13900 fori=1to18:readv$(i):next:fori=1to6:readr$(i):next
13910 fori=1to6:a=int(rnd(0)*10):co$=co$+str$(a):next:co$=right$(co$,len(co$)-1)
13911 lo=1:return
13920 databeim praesidenten,,,,,,,vor der grossen chinesischen    mauer,,,,3,,0
13930 dataan einer abzweigung,0,2,5,4,,,an einer wegbiegung,,3,6,,,
13940 dataam ende des weges,3,,,,,,vor hu chang fu's werkstatt,4,0,0,0,0,0
13950 dataauf dem baum,,,,,,5,auf der mauer,,,,,,,im kerker,,,,,,0
13955 datain einem geheimgang,,,,9,,0
13960 data"in einem geheimgang, in dem daswasser kniehoch steht",,,10,,,0
13970 datain einem grossen unterirdischensee,13,12,12,13,11,0
13980 datain einem grossen unterirdischensee,13,12,12,14,0,0
13990 datain einem grossen unterirdischensee,12,13,13,12,0,0,unter wasser,,,,,,0
14000 datain einem finsteren gang,17,,,,,14,am ende des ganges,,,16,,,0
14010 dataim buero von lt. mc perkins,17,19,,,,,in einer seitenecke,,,,18,,0
14020 datain einem ueberwachungsraum,0,21,,19,,0,in einer sicherheitsschleuse
14030 data22,,,20,,,in einem raketensilo,,,21,,,,im himmel,,,,,,,"...",,,,,,0
14040 dataeine mappe,map,1,1,eine wache,wac,3,0,eine betaeubte wache,x,0,0
14050 dataeine i.d. karte,kar,0,1,einen baum,bau,5,0,eine pistole,pis,0,1
14060 dataein hufeisen,huf,0,1,hua chang fu,hua,6,0,einen reparierten raketenruck
14070 datax,0,1,ein skelett,ske,7,0,einen raketenrucksack,ruc,0,1,einen wachtrupp
14080 datatru,8,0,einen krug,kru,9,1,einen ring in der mauer,rin,0,1,einen gang
14090 datagan,0,0,einen offenen krug,x,0,1,eine bleiplatte,pla,10,1
14095 dataeinen felsblock,fel,10,0,viel sand,san,0,0,einen presslufthammer,ham
14100 data11,0,einen knopf,kno,0,0,eine gummiente,ent,13,1,eine luke,luk
14110 data14,0,eine oeffnung,oef,0,0,einen stein,ste,15,1,lt mc perkins,per,18,0
14120 dataeinen anhaenger,anh,0,1,einen etwas weggetretenen leutnant,leu,0,0
14130 dataeine panzertuer,tue,19,0,einen ritz,rit,0,0,eine oeffene panzertuer,x
14140 data0,0,viele bildschirme,bil,20,0,eine taste,tas,0,0
14160 datageh,nim,leg,sch,wer,geb,sta,zie,oef,les,wae,dru,kle,ruf,fue,ste,tri
14170 datasie,norden,osten,sueden,westen,hoch,runter
14180 foryy=1to2000:next:return
14370 print"ich bin tot."
14380 print"das hast du ja fein hingekriegt!!"
14390 geta$:ifa$<>""thenrun
14400 goto14390

 10 PRINT"{CLR,BLACK}":POKE 53280,9:POKE 53281,6:PRINTCHR$ (8):PRINTCHR$ (142):PRINT"{CLR}"; 
 14 PRINT"{11SPACE}FRANK SCHMELZER{DOWN,14LEFT,RIGHT,LEFT}PRAESENTIERT:" 
 18 PRINT"{7DOWN,4SPACE}PPPPP{4SPACE}PPPPP{4SPACE}PPPPP{4SPACE}PPPPP " 
 20 PRINT"{3SPACE}N{4SPACE}NL{2SPACE}N{4SHIFT-SPACE}NL{2SHIFT-SPACE}N{4SHIFT-SPACE}NL{2SHIFT-SPACE}N{4SHIFT-SPACE}NL" 
 22 PRINT"{3SPACE}+++++NNHN+++++NNHN+++++NNHN+++++NNH" 
 24 PRINT"{8SPACE}+ H+ H{3SPACE}+ H+ H{3SPACE}+ H+ H{3SPACE}+ H" 
 25 PRINT"{4SPACE}PPPP+ H+ H{3SPACE}+{SHIFT-SPACE}H+{SHIFT-SPACE}H{SHIFT-SPACE,2SHIFT-SPACE}+{SHIFT-SPACE}H+{SHIFT-SPACE}H{SHIFT-SPACE,2SHIFT-SPACE}+ H" 
 26 PRINT"{3SPACE}N{4SPACE}+N + H{3SPACE}+{SHIFT-SPACE}H+{SHIFT-SPACE}H{SPACE,SPACE,SHIFT-SPACE}+{SHIFT-SPACE}H+{SHIFT-SPACE}H{SHIFT-SPACE,2SHIFT-SPACE}+ H" 
 28 PRINT"{2SPACE}N+++++N{2SPACE}+ H{3SPACE}+{SHIFT-SPACE}H+{SHIFT-SPACE}H{SHIFT-SPACE,2SHIFT-SPACE}+{SHIFT-SPACE}H+{SHIFT-SPACE}H{SHIFT-SPACE,2SHIFT-SPACE}+ H" 
 30 PRINT"{2SPACE}+ H{6SPACE}+ H{3SPACE}+{SHIFT-SPACE}H+{SHIFT-SPACE}H{SHIFT-SPACE,2SHIFT-SPACE}+{SHIFT-SPACE}H+{SHIFT-SPACE}H{SHIFT-SPACE,2SHIFT-SPACE}+ H" 
 32 PRINT"{2SPACE}+ LPPPP{2SPACE}+ LPPP+{SHIFT-SPACE}H+{SHIFT-SPACE}LPPP+{SHIFT-SPACE}H+{SHIFT-SPACE}LPPP+ H" 
 34 PRINT"{2SPACE}+N{4SPACE}NH +N{4SPACE}+N{SHIFT-SPACE}+N{SHIFT-SPACE,3SHIFT-SPACE}+N{SHIFT-SPACE}+N{SHIFT-SPACE,3SHIFT-SPACE}+N" 
 36 PRINT"{3SPACE}+++++N{3SPACE}+++++N{3SPACE}+++++N{3SPACE}+++++N " 
 40 PRINT"{17UP}" 
 42 PRINT"{3SPACE}+++ ++{2SPACE}+ + +++ +G+ +++ + + ++{2SPACE}+++" 
 44 PRINT"{3SPACE}+ + + + + + +{3SPACE}+G+{2SPACE}+{2SPACE}+ + + + +{2SPACE}" 
 46 PRINT"{3SPACE}+++ + + + + ++{2SPACE}+B+{2SPACE}+{2SPACE}+ + ++{2SPACE}++ " 
 48 PRINT"{3SPACE}+ + + +{2SPACE}-- +{3SPACE}+H+{2SPACE}+{2SPACE}+ + +-{2SPACE}+{2SPACE}" 
 50 PRINT"{3SPACE}+ + ++{3SPACE}+{2SPACE}+++ +M+{2SPACE}+{3SPACE}+{2SPACE}+ + +++" 
 52 PRINT"{12DOWN,6SPACE,RVSON,2SPACE}(C) BY F.S. MCMLXXXIV{2SPACE}" 
 60 :REM FRANK SCHMELZER 
 70 :REM CLOERBRUCHALLEE 5 
 80 :REM 4156 WILLICH 4 
 90 :REM (0 21 56) 61 70 
 100 DIM G$(24,18),LO$(24),LO(24,6),G1$(33),G2$(33),G(33),T(33),V$(18),W$(100) 
 114 GOSUB 10000 
 120 PRINT"{CLR,BLACK}WIR SIND ";LO$(LO) 
 130 FOR I=1 TO20:POKE 1104+I,111:POKE 1144+18*40+I,119:NEXT 
 132 FOR I=1 TO18:POKE 1104+40*I,106:POKE 1104+40*I+21,116:NEXT 
 134 PRINT"{HOME,3DOWN}";:FOR I=1 TO18:PRINTSPC( 1);G$(LO,I):NEXT 
 136 PRINT"{HOME,3DOWN}";SPC( 22);"HIER SEHE ICH:{DOWN,14LEFT}YYYYYYYYYYYYYY" 
 138 FOR I=1 TO33:IF G(I)=LO THENPRINTSPC( 22);G1$(I) 
 140 NEXT 
 150 PRINT:PRINTSPC( 22);"RICHTUNGEN:" 
 152 FOR I=1 TO6:IF LO(LO,I)>0 THENPRINTSPC( 22);R$(I) 
 154 NEXT :PRINT"{HOME,22DOWN}"; 
 157 GOTO 400 
 158 GOSUB 2000:PRINT"WAS GEDENKST DU ZU TUN";:GOSUB 290:GOTO 400 
 200 I$="":POKE 204,0:PRINT"? "; 
 210 GET Z$:IF Z$="" THEN210 
 220 IF ASC (Z$)=32 THENGOTO 270 
 225 IF ASC (Z$)=13AND I$<>"" THENPOKE 204,1:PRINT" ":RETURN 
 230 IF ASC (Z$)=20AND I$<>"" THENI$=LEFT$ (I$,LEN (I$)-1):PRINTZ$;:GOTO 210 
 240 IF ASC (Z$)<48 THEN210 
 250 IF ASC (Z$)<65AND ASC (Z$)>57 THEN210 
 260 IF ASC (Z$)>90 THEN210 
 270 IF LEN (I$)<100 THENI$=I$+Z$:PRINTZ$;:GOTO 210 
 280 GOTO 210 
 290 GOSUB 200:B1$=I$:L=LEN (B1$):W=1 
 291 IF RIGHT$ (B1$,1)=CHR$ (32) THENB1$=LEFT$ (B1$,LEN (B1$)-1)+"X" 
 300 FOR I=1 TOL:IF ASC (MID$ (B1$,I,1))=32 THENW$(W)=LEFT$ (B1$,I-1):W=W+1 
 305 IF ASC (MID$ (B1$,I,1))=32 THENB1$=MID$ (B1$,I+1):L=LEN (B1$):GOTO 300 
 320 NEXT :W$(W)=B1$ 
 330 FOR I=1 TOW:IF W$(I)="DER"OR W$(I)="DIE"OR W$(I)="DAS"OR W$(I)="DEN" THENW$(I)="" 
 340 IF W$(I)="DURCH"OR W$(I)="NACH" THENW$(I)="" 
 350 IF W$(I)="UND"OR W$(I)="DANN" THENW$(I)="*" 
 360 IF W$(I)="MIT"OR W$(I)="IN"OR W$(I)="AUF"OR W$(I)="AN" THENW$(I)="+" 
 370 NEXT :B1$="":FOR I=1 TOW:B1$=B1$+W$(I):IF W$(I)<>"" THENB1$=B1$+"{SHIFT-SPACE}" 
 380 NEXT :B1$=LEFT$ (B1$,LEN (B1$)-1):RETURN 
 400 Z$="":GET A$:IF A$="{F1}" THENB1$="" 
 405 IF B1$="" THEN158 
 410 FOR I=1 TOLEN (B1$):IF MID$ (B1$,I,1)<>"*" THENNEXT :GOTO 440 
 420 BE$=LEFT$ (B1$,I-2) 
 430 B1$=MID$ (B1$,I+2):GOTO 450 
 440 BE$=B1$:B1$="" 
 442 FOR I=1 TOLEN (BE$):IF MID$ (BE$,I,1)<>"+" THENNEXT :GOTO 450 
 445 Z$=MID$ (BE$,I+2,3):FOR I=1 TO33:IF Z$=G2$(I) THEN450 
 446 NEXT :Z$="" 
 450 Z=I:GOSUB 2110:V$=LEFT$ (BE$,3) 
 460 IF V$="ZUE"OR V$="Z" THENPRINT"BIS JETZT HATTEN SIE";Z1;"ZUEGE!":GOTO 400 
 464 IF V$="LIS" THEN2380 
 465 IF V$="UMS" THEN120 
 466 IF V$="BEF" THEN2230 
 467 IF V$="STO" THEN2290 
 474 IF V$="TAU" THEN2330 
 475 GOSUB 2180:FOR I=1 TO18:IF V$=V$(I) THEN480 
 478 NEXT :PRINT"WOVON SPRICHST DU?":GOTO 400 
 480 V=I:FOR X=1 TOLEN (BE$):IF MID$ (BE$,X,1)=CHR$ (160)OR MID$ (BE$,X,1)=CHR$ (32) THENGOTO 490 
 484 NEXT :IF V$="SIE" THEN120 
 486 PRINT"BITTE BENUTZEN SIE (WENIGSTENS!) ZWEI{3SPACE}WOERTER!":GOTO 400 
 490 G$=MID$ (BE$,X+1,3):IF V$="SIE" THEN506 
 491 IF G$="SES" THEN506 
 500 FOR I=1 TO33:IF G$=G2$(I) THEN506 
 504 NEXT :FOR I=1 TO6:IF G$=LEFT$ (R$(I),3) THEN506 
 505 NEXT :PRINT"WAS FUER EIN DING MEINEN SIE??":GOTO 400 
 506 GET A$:IF A$="{F1}" THENB1$="":GOTO 400 
 510 G=I:ON VGOTO 520,580,620,640,700,760,880,960,990,1030,1050,1090,1200,1230,1290 
 511 ON V-15GOTO 1350,1410,1440 
 520 IF G(2)=LOAND G$="WES" THENPRINT"DIE WACHE SIEHT MICH MISTRAUISCH AN!":GOSUB 14180 
 521 IF G(2)=LOAND G$="WES" THENPRINT"UND VERSPERRT MIR DEN WEG!":GOTO 400 
 530 IF G(31)=LOAND G$="OST" THENPRINT"JETZT KANN ICH DORT NICHT HINGEHEN!":GOTO 400 
 535 IF G=15AND LO=9AND G(15)=LO THENLO=10:GOTO 120 
 538 IF LO=19AND G=31AND G(31)=LO THENLO=20:GOTO 120 
 540 IF G$="NOR"AND LO(LO,1)>0 THENLO=LO(LO,1):GOTO 120 
 545 IF G$="OST"AND LO(LO,2)>0 THENLO=LO(LO,2):GOTO 120 
 550 IF G$="SUE"AND LO(LO,3)>0 THENLO=LO(LO,3):GOTO 120 
 555 IF G$="WES"AND LO(LO,4)>0 THENLO=LO(LO,4):GOTO 120 
 560 IF G$="HOC"AND LO(LO,5)>0 THENLO=LO(LO,5):GOTO 120 
 565 IF G$="RUN"AND LO(LO,6)>0 THENLO=LO(LO,6):GOTO 120 
 570 PRINT"TUT MIR LEID, ABER DORT KANN ICH NICHT HINGEHEN!":GOTO 400 
 580 IF T(G)<>1 THENPRINTG1$(G);" KANN ICH NICHT TRAGEN!" 
 581 IF T(G)<>1 THENPRINT"ICH BIN DOCH NICHT SUPERMANN!":GOTO 400 
 590 IF G(G)<>LO THENPRINT"ABER SEHEN SIE HIER ";G1$(G);"??":GOTO 400 
 600 T=0:FOR I=1 TO33:IF G(I)=-1 THENT=T+1 
 605 NEXT :IF T>=5 THENPRINT"ICH TRAGE ZUVIEL!!":GOTO 400 
 610 PRINT"IN ORDNUNG. WIR TRAGEN NUN ";G1$(G)".":G(G)=-1:GOTO 400 
 620 IF G(G)<>-1 THENPRINT"ABER ";G1$(G);" HABE ICH GAR NICHT!":GOTO 400 
 630 PRINT"IN ORDNUNG. HINGELEGT.":G(G)=LO:GOTO 400 
 640 IF G(6)<>LO THENPRINT"OHNE EINE WAFFE KANN ICH NICHT SCHIESSEN":GOTO 400 
 650 IF G<>2 THENPRINT"ALSO AUF "G1$(G):PRINT"SCHIESSE ICH SCHON AUS UEBERZEUGUNG NICHT!"GOTO 400 
 670 PRINT"PENG!! - DAS WAR WOHL NICHTS! DIE PISTOLE WAR ZU ALT!":GOSUB 14180 
 680 PRINT"HEH!! WAS MACHT DENN DIE WACHE DA!!{5SPACE}DIE WIRD DOCH NICHT----" 
 690 GOSUB 14180:PRINT"{4DOWN,4RIGHT}P E N G !{SHIFT-SPACE}!{SHIFT-SPACE}!":FOR I=1 TO5:GOSUB 14180:LO=23:GOTO 120 
 700 IF G(G)<>LOAND G(G)<>-1 THENPRINT"MEIN HERR, ICH BIN KEIN ANHAENGER DER" 
 701 IF G(G)<>LOAND G(G)<>-1 THENPRINT"TRANSZEDENTALEN MEDITATION UND KANN{5SPACE}ALSO"; 
 702 IF G(G)<>LOAND G(G)<>-1 THENPRINT" NICHTS WERFEN, WAS ICH NICHT HABE!!":GOTO 400 
 710 IF Z$<>"" THEN735 
 711 PRINTG1$(G);" WERFEN AUF";:GOSUB 200:GOSUB 720:GOTO 730 
 720 Z$=LEFT$ (I$,3):FOR I=1 TO33:IF Z$=G2$(I) THEN725 
 722 NEXT :PRINT"BITTE?":Z$="":RETURN 
 725 Z=I:RETURN 
 730 IF Z$="" THENGOTO 711:IF Z$="" THEN710 
 735 IF G<>7AND G<>17 THENPRINT"GEWORFEN. NICHTS PASSIERT.":G(G)=LO:GOTO 400 
 740 IF G=7AND Z=2AND G(Z)=LO THENPRINT"BOING! HUFEISEN TRAF WACHE." 
 741 IF G=7AND Z=2AND G(Z)=LO THENPRINT"UND DIE WACHE SCHLAEFT IM DIENST..." 
 742 IF G=7AND Z=2AND G(Z)=LO THENG(3)=LO:G(7)=LO:G(2)=0:G2$(2)="X":G2$(3)="WAC":GOTO 400 
 745 IF G(Z)<>LO THENPRINT"SEHEN SIE HIER ";G1$(Z);"??":GOTO 400 
 750 IF G=17AND Z=26 THENPRINT"KRACH! DIE BLEIPLATTE SCHMETTERT DEN{4SPACE}LEUTNANT NIEDER!" 
 752 IF G=17AND Z=26 THENG(26)=0:G(28)=LO:GOTO 400 
 760 IF Z$="" THENPRINTG1$(G);" GEBEN AN";:GOSUB 200:GOSUB 720 
 765 IF Z$="" THEN760 
 770 IF Z<>8 THENPRINT"BEDAURE, DAS GEHT NICHT.":GOTO 400 
 780 IF LO<>6 THENPRINT"MEIN HERR, ICH SEHE HUA HIER NICHT!":GOTO 400 
 790 IF G<>11 THENPRINT"WAS SOLL HUA DENN MIT ";G1$(G);"??":GOTO 400 
 800 IF G(11)<>-1AND G(11)<>LO THENPRINT"HAB WEDER RAKETE NOCH RUCKSACK.":GOTO 400 
 810 PRINT"HUA CHANG FU IST GLUECKLICH, SEINE HOHE{2SPACE}KUNST ANWENDEN ZU DUERFEN." 
 820 PRINT"WAEHREND ER DEN RUCKSACK REPARIERT,{5SPACE}ERZAEHLT ER VON SEINER FAMILIE," 
 830 PRINT"VON SEINEN AHNEN, VON ALI BABA, DER{5SPACE}IMMER 'SESAM OEFFNE DICH!' RIEF," 
 840 PRINT"WENN IHM WAS IM WEG WAR UND VON DEM{5SPACE}TOLLEN VOLKSWAGEN KAEFER, DEN" 
 850 PRINT"IHM DIE KOMMUNE GESCHENKT HAT, WEIL ER{2SPACE}IN 5 MINUTEN DREI WASCHMASHINEN" 
 860 PRINT"UND SIEBEN MOTORRAEDER REPARIERT HAT." 
 870 PRINT"ABER JETZT IST DER RUCKSACK WIEDER BE- TRIEBSBEREIT. KOSTEN UEBERNIMMT" 
 875 PRINT"DAS WERK. VIELEN DANK!" 
 876 G(11)=0:G2$(11)="X":G2$(9)="RUC":G(9)=-1:G1$(9)=G1$(9)+"SACK":GOTO 400 
 880 IF G(G)<>-1AND G(G)<>LO THENPRINT"STARTEN SIE LIEBER ZUM OPTIKER!" 
 881 IF G(G)<>-1AND G(G)<>LO THENPRINT"DENN NIRGENDWO IST HIER ";G1$(G);"!!":GOTO 400 
 891 IF G<>9AND G<>10AND G<>20 THENPRINT"ICH KANN ";G1$(G):PRINT"NICHT STARTEN!":GOTO 400 
 900 IF G=10 THENPRINT"KNATTER! KNATTER! - MIT DEM DING STIMMT WAS NICHT!":GOTO 400 
 910 IF G=9 THEN925 
 920 PRINT"DEN PRESSLUFTHAMMER STRATET MAN ANDERS!":GOTO 400 
 925 PRINT"DER RAKETENRUCKSACK SPRINGT AN! --":GOSUB 14180 
 930 PRINT"ICH HEBE AB!!!":GOSUB 14180 
 940 IF LO<>2AND LO<>3 THENPRINT"HE! WO FLIEGE ICH HIN?!? HAAAALT!!":GOSUB 14180 
 945 IF LO<>2AND LO<>3 THENPRINT"ICH STUERZE AAAAAAAAAAAB!!!!":LO=23:GOSUB 14180:GOTO 400 
 950 PRINT"...UND LANDE SANFT AUF DER MAUER!":GOSUB 14180:GOSUB 14180:LO=8:GOTO 120 
 960 IF G(G)<>LOAND G(G)<>-1 THENPRINT"ZIEHEN SIE SICH AN IHRER NASE!":GOTO 400 
 970 IF G=14AND RI=0 THENPRINT"RUMPEL! EIN TEIL DER WAND GEHT ZUR{6SPACE}SEITE!" 
 971 IF G=14AND RI=0 THENRI=1:G(15)=LO:GOTO 400 
 974 IF G=14AND RI=1 THENPRINT"SIE LEIDEN UNTER VERGESSLICHKEIT, WAS?":GOTO 400 
 980 PRINT"AN ";G1$(G);" SOLL ICH ZIEHEN?":PRINT"WIE STELLEN SIE SICH DENN DAS VOR?":GOTO 400 
 990 IF G(G)<>-1AND G(G)<>LO THENPRINT"I DON'T SEE THAT HERE!":GOTO 400 
 1000 IF G=1 THENPRINT"DIE MAPPE IST GEOFFNET. SIE ENTHAELT{4SPACE}UNSERE ANWEISUNGEN." 
 1002 IF G=1 THEN9000 
 1005 IF G=13 THENPRINT"IN ORDNUNG. DER KRUG IST OFFEN.":G(16)=LO:G(13)=0 
 1006 IF G=13 THENG2$(13)="X":G2$(16)="KRU":GOTO 400 
 1010 IF G=29AND G(27)=-2 THENPRINT"MIT LESIEM ZISCHEN OEFFNET SICH DIE{5SPACE}PANZERTUER!" 
 1011 IF G=29AND G(27)=-2 THENG(29)=0:G(31)=LO:G2$(29)="X":G2$(31)="TUE":GOTO 400 
 1020 PRINT"LEIDER KANN ICH ";G1$(G):PRINT"NICHT OEFFNEN!":GOTO 400 
 1030 IF G(G)<>LOAND G(G)<>-1 THENPRINT"DAS KANN ICH NICHT LESEN!!":GOTO 400 
 1032 IF G=1 THENPRINT"DIE MAPPE ENTHAELT DIE ANWEISUNGEN.":GOTO 9000 
 1040 IF G=17 THENPRINT"DORT STEHEN ZAHLEN: ";CO$:GOTO 400 
 1045 PRINT"NEIN, ";G1$(G);" KANN ICH NICHT LESEN!":GOTO 400 
 1050 IF G<>18 THENPRINT"ICH BIN DOCH NICHT HERKULES.":GOTO 400 
 1055 IF LO<>10 THENPRINT"WIR WERDEN WOHL WARTEN MUESSEN, BIS UNS JEMAND EINEN FELSBLOCK" 
 1056 IF LO<>10 THENPRINT"BRINGT, DENN HIER IST KEINER!!":GOTO 400 
 1060 IF KR=0 THENPRINT"ICH VERSUCH'S JA, ABER ICH BIN NICHT{4SPACE}STARK GENUG!":GOTO 400 
 1070 PRINT"IN ORDNUNG! ICH SCHNAPPE MIR DEN FELSEN UND SCHLEUDERE IHN WEG!":GOSUB 14180 
 1075 PRINT"DAS SOLLTE OBELIX SEHEN! DER FELSEN{5SPACE}PRALLT GEGEN DIE WAND UND ---" 
 1080 PRINT"ZERBROECKELT!":G(18)=0:G(19)=LO:LO(10,1)=11:GOTO 400 
 1090 IF G(G)<>LOAND G(G)<>-1 THENPRINTG1$(G);" SEHE ICH HIER NICHT!":GOTO 400 
 1100 IF G=21AND PR=1 THENPRINT"RATATATATATATA!!! DER PRESSLUFTHAMMER{3SPACE}SPRINGT AN!" 
 1101 IF G=21AND PR=1AND LO=11 THENPRINT"UND EIN LOCH IST IM BODEN!!":LO(11,6)=12:GOTO 400 
 1102 IF G=21AND PR=1 THENPRINT"ABER ES PASSIERT NICHTS!":GOTO 400 
 1105 IF G=21 THENPRINT"NICHTS GESCHIEHT.":GOTO 400 
 1110 IF G=22AND LO=15 THENPRINT"ZISCH! DIE ENTE BLAEST SICH AUF! ICH{4SPACE}STEIGE!" 
 1115 IF G=22AND LO=15 THENPRINT"PENG! DIE ENTE PLATZT! ABER ICH BIN{5SPACE}AUFGETAUCHT!" 
 1118 IF G=22AND LO=15 THENLO=14:G(22)=0:GOTO 400 
 1120 IF G<>33 THENPRINT"AUF ";G1$(G):PRINT" KANN ICH NICHT DRUECKEN!":GOTO 400 
 1130 PRINT"AUF EINEM BILDSCHRIM ERSCHEINT:" 
 1135 PRINT"COUNTDOWN-STOP DURCH EINGABE DES{8SPACE}ABSCHUSSCODES BESTAETIGEN!" 
 1140 PRINT"ABSCHUSCODE => ";:GOSUB 200 
 1150 IF I$=CO$ THEN9140 
 1155 POKE 53280,3:PRINT"{CLR}UEBERALL HEULEN ALARMLICHTER AUF!" 
 1160 PRINT"HILFE!! DIE RAKETE STARTET!! WAS HABEN{2SPACE}SIE GETAN!!":LO=24:FOR I=1 TO4 
 1170 GOSUB 14180:NEXT :GOTO 120 
 1185 FOR I=1 TO20:POKE 53280,2:FOR X=1 TO150:NEXT :POKE 53280,1:FOR X=1 TO150:NEXT :NEXT 
 1200 IF G<>5 THENPRINT"AUF ";G1$(G):PRINT" KANN ICH NICHT KLETTERN!":GOTO 400 
 1210 IF LO<>5 THENPRINT"SIE SEHEN WOHL DEN BAUM VOR LAUTER{6SPACE}WAELDERN NICHT?":GOTO 400 
 1220 LO=7:GOTO 120 
 1230 IF G$="SES" THEN1260 
 1240 PRINT"DAS ZU RUFEN WUERDE NICHT VIEL ZUR{6SPACE}LOESUNG DES ADVENTURES BEITRAGEN!" 
 1250 GOTO 400 
 1260 PRINT"{DOWN}SESAM, OEFFNE DICH!!" 
 1270 IF LO<>17 THENPRINT"NICHTS PASSIERT.":GOTO 400 
 1275 IF SE=0 THENPRINT"RUMPEL! RUMPEL! DER BERG OEFFNET SICH!":LO(LO,4)=18:SE=1:GOTO 400 
 1280 PRINT"HOER MAL, DER BERG IST BEREITS OEFFEN!":GOTO 400 
 1290 IF G(G)<>LOAND G(G)<>-1 THENPRINT"TUT MIR LEID, ";G1$(G):PRINT"SEHE ICH HIER NICHT!":GOTO 400 
 1300 IF G<>20 THENPRINTG1$(G);" KANN ICH NICHT AUFFUELLEN!":GOTO 400 
 1310 IF Z$="" THENPRINT"DEN PRESSLUFTHAMMER AUFFUELLEN MIT WAS ";:GOSUB 200:GOSUB 720 
 1320 IF Z$="" THEN1310 
 1330 IF Z<>16 THENPRINT"NEIN, DAS GEHT NICHT.":GOTO 400 
 1335 IF PR=1 THENPRINT"DAS KANN ICH NICHT MEHR.":GOTO 400 
 1340 PRINT"GLUCK GLUCK GLUCK! PRESSLUFTHAMMER IST{2SPACE}AUFGEFUELLT!":PR=1:GOTO 400 
 1350 IF G(G)<>LOAND G(G)<>-1 THENPRINT"LEIDEN SIE AN HALLUZINATIONEN?":GOTO 400 
 1355 IF G<>27AND G<>25 THENPRINTG1$(G);" KANN ICH NIRGENDWO REINSTECKEN!":GOTO 400 
 1360 IF Z$="" THENPRINTG1$(G);" STECKEN IN ";:GOSUB 200:GOSUB 720 
 1365 IF Z$="" THEN1360 
 1368 IF G(Z)<>LO THENPRINTG1$(Z);" SEHE ICH HIER NICHT!":GOTO 400 
 1370 IF G=27 THEN1390 
 1375 IF Z<>24 THENPRINT"DEN STEIN IN ";G1$(G);" STECKEN? WARUM?":GOTO 400 
 1380 PRINT"DER STEIN PASST! IN DER DECKE OEFFNET SICH DIE LUKE!!" 
 1385 G(25)=-2:LO(14,5)=16:GOTO 400 
 1390 IF Z<>30 THENPRINT"DAS GEHT NICHT." 
 1395 PRINT"DER RITZ SCHLUCKT DEN ANHAENGER!" 
 1400 G(27)=-2:GOTO 400 
 1410 IF G<>16 THENPRINT"NEIN, DAS TRINKE ICH NICHT!!":GOTO 400 
 1420 IF G(G)<>LOAND G(G)<>-1 THENPRINT"SIE HABEN WOHL ZUVIEL GETRUNKEN?":GOTO 400 
 1425 IF KR=1 THENPRINT"ALLZUVIEL IST UNGESUND!":GOTO 400 
 1430 PRINT"GLUCK! GLUCK! GLUCK! SCHMECKT NICHT{5SPACE}SCHLECHT!":KR=1:GOTO 400 
 1440 IF G$="KER"AND G(14)=0AND LO=9 THENPRINT"ICH SEHE ETWAS!":G(14)=LO:GOTO 400 
 1445 IF G$="SIL"AND LO=22 THENPRINT"ICH SEHE ETWAS!":G(33)=LO:GOTO 400 
 1450 FOR G=1 TO33:IF G$=G2$(G) THEN1455 
 1452 NEXT :PRINT"ICH SEHE NICHTS BESONDERES!":GOTO 400 
 1455 IF G(G)<>LOAND G(G)<>-1 THENPRINT"DAS SEHE ICH HIER NICHT":GOTO 400 
 1460 IF G=1 THENPRINT"SIE ENTHAELT UNSERE ANWEISUNGEN.":GOTO 9000 
 1470 IF G=3AND G(4)=0 THENPRINT"ER HAT ETWAS BEI SICH!":G(4)=LO:GOTO 400 
 1480 IF G=5AND G(7)=0 THENPRINT"DA LIEGT ETWAS NEBEN DEM BAUM!":G(7)=LO:G(6)=LO:GOTO 400 
 1490 IF G=10AND G(11)=0 THENPRINT"BEIM SKELET LIEGT ETWAS!":G(11)=LO:GOTO 400 
 1495 IF G=11 THENPRINT"ER FUNKTIONIERT NICHT.":GOTO 400 
 1500 IF G=13 THENPRINT"ER IST NICHT BESONDERS GUT VERSCHLOSSEN!":GOTO 400 
 1505 IF G=16AND KR=0 THENPRINT"ES IST KEIN GIFT DRIN!":GOTO 400 
 1510 IF G=16AND PR=0 THENPRINT"DAS ZEUG IM KRUG RIECHT BEINAH WIE{6SPACE}BENZIN!":GOTO 400 
 1515 IF G=17 THENPRINT"ES IST ETWAS IN DIE PLATT EINGERIZT!":GOTO 400 
 1520 IF G=18 THENPRINT"ER VERSPERRT UNS DEN WEG!":GOTO 400 
 1530 IF G=19 THENPRINT"TJA, ICH HABE ZIEMLICH KRAEFTIG AUF DEN FELSBLOCK GEHAUEN!":GOTO 400 
 1540 IF G=20AND G(21)=0 THENPRINT"ICH HABE ETWAS GEFUNDEN!":G(21)=LO:GOTO 400 
 1550 IF G=22 THENPRINT"SIE KANN SICH WIE EINE SCHWIMMWESTE{5SPACE}SELBST AUFBLASEN!":GOTO 400 
 1560 IF G=23AND G(24)<>LO THENG(24)=LO:PRINT"ICH HABE ETWAS GEFUNDEN!":GOTO 400 
 1570 IF G=25 THENPRINT"ER HAT EINE EIGENARTIGE FORM!":GOTO 400 
 1575 IF G=26 THENPRINT"ER HAT UNS NOCH NICHT GESEHEN!":GOTO 400 
 1580 IF G=28AND G(27)=0 THENG(27)=LO:PRINT"ICH HABE ETWAS GEFUNDEN!":GOTO 400 
 1590 IF G=27 THENPRINT"ER HAT SELTSAME ZACKEN!":GOTO 400 
 1600 IF G=29AND G(30)<>LO THENG(30)=LO:PRINT"ICH HABE ETWAS GEFUNDEN!":GOTO 400 
 1605 IF G=30 THENPRINT"MAN KOENNTE WAS REINSTECKEN!":GOTO 400 
 1606 IF G=29AND G(30)=0 THENPRINT"ICH HABE ETWAS ENTDECKT!":G(30)=LO:GOTO 400 
 1610 IF G=32 THENPRINT"SIE ZEIGEN DAS BILD EINER RAKETE!":GOTO 400 
 1620 PRINT"AN ";G1$(G):PRINT"ERKENNE ICH NICHTS BESONDERES!":GOTO 400 
 2000 Z1=Z1+1 
 2010 IF Z1>1280 THENPRINT"JEMAND SCHEINT HINTER UNS HER ZU SEIN!{2SPACE}ICH HOERE STIMMEN!" 
 2020 IF Z1>=300 THENPRINT"ICH HATTE RECHT! HILFE! MAN HAT UNS{5SPACE}EINGEHOLT!!":LO=2 
 2030 IF Z1>=300 THENGOSUB 14180:GOSUB 14180:RETURN 
 2035 IF LO>22 THEN14370 
 2040 IF LO=8 THENPRINT"DER WACHTRUPP SINGT: KOMMT EIN VOEGLEIN GEFLOGEN..." 
 2050 IF LO=8 THENFOR I=1 TO6:GOSUB 14180:NEXT :LO=9:PRINT"{CLR}WO BIN ICH?":G(9)=0:RETURN 
 2060 IF LO=15 THENW1=W1+1:IF W1>=4 THENPRINT"ICH HABE BALD KEINE LUFT MEHR!!" 
 2070 IF LO=15AND W1>=8 THENPRINT"ICH ERTRINKE! -- BLUBS GLUCK..." 
 2071 IF LO=15AND W1>=6 THENFOR I=1 TO3:GOSUB 14180:NEXT 
 2080 IF LO=18AND G(26)=LO THENMP=MP+1:IF MP>=5 THENPRINT"MC PERKINS DREHT SICH UM! HILFE!" 
 2081 IF LO=18AND MP>=5 THENPRINT"ER ZIEHT EINE WAFFE!":LO=23:FOR I=1 TO3:GOSUB 14180:NEXT 
 2090 IF LO=21AND G(4)<>-1 THENPRINT"UEBERALL HEULEN SIRENEN AUF!" 
 2091 IF LO=21AND G(4)<>-1 THENPRINT"ALARMLICHTER GEHEN AN! WACHEN KOMMEN!!" 
 2092 IF LO=21AND G(4)<>-1 THENLO=23:FOR I=1 TO3:GOSUB 14180:NEXT :GOTO 120 
 2100 RETURN 
 2110 IF BE$="N" THENBE$="GEH NOR" 
 2120 IF BE$="O" THENBE$="GEH OST" 
 2130 IF BE$="S" THENBE$="GEH SUE" 
 2140 IF BE$="W" THENBE$="GEH WES" 
 2150 IF BE$="H" THENBE$="GEH HOC" 
 2160 IF BE$="R" THENBE$="GEH RUN" 
 2170 RETURN 
 2180 IF V$="WIR" THENV$="WER" 
 2190 IF V$="GIB" THENV$="GEB" 
 2200 IF V$="LIE" THENV$="LES" 
 2210 IF V$="UNT" THENV$="SIE" 
 2220 RETURN 
 2230 PRINT"ALLE ZULAESSIGEN VERBEN SIND:" 
 2240 PRINT"{DOWN}GEH, NIMM, LEG, SCHIESSE, WERFE, GEBE,{SPACE,SPACE}STARTE, ZIEHE, OEFFNE, LESE" 
 2250 PRINT"WAELZE, DRUECKE, KLETTERE, RUFE, FUELLE,STECKE, UNTERSUCHE, TRINKE" 
 2260 PRINT"(WIRF, GIB, LIES, SIEH)" 
 2270 PRINT"{DOWN}EIN-WORT-KOMMANDOS:" 
 2280 PRINT"UMSCHAUEN, BEFEHLE, STOP, ZUEGE, LIST,{2SPACE}TAUCHE":GOTO 400 
 2290 PRINT"{CLR}SIE WOLLEN GERADE JETZT AUFHOEREN?" 
 2300 GET A$:IF A$="N" THEN400 
 2310 IF A$<>"J" THEN2300 
 2320 PRINT"DANN AUF WIEDERSEHEN!":GOTO 14390 
 2330 IF LO<12OR LO>14 THENPRINT"HIER KANN ICH NICHT TAUCHEN!!":GOTO 400 
 2340 IF G(17)<>-1 THENPRINT"ICH BIN ZU LEICHT! ICH GEHE NICHT UNTER!":GOTO 400 
 2350 LO=15:GOTO 120 
 2380 X1=0:PRINT"ICH TRAGE BEI MIR:" 
 2390 FOR I=1 TO33:IF G(I)=-1 THENPRINTG1$(I):X1=1 
 2400 NEXT :IF X1=0 THENPRINT"NICHTS." 
 2410 GOTO 400 
 9000 PRINT"KENNEN SIE DIE ANWEISUNGEN BEREITS?" 
 9002 GET A$:IF A$="J" THEN9100 
 9003 IF A$<>"N" THEN9002 
 9005 PRINT"{CLR}GEHEIMAUFTRAG -- TOP SECRET!!" 
 9010 PRINT"{DOWN}VOR EINIGEN WOCHEN ENTDECKTE MAN, DASS{SPACE,SPACE}IN EINEM RAKETENSILO DER US" 
 9015 PRINT"STREITKRAEFTE DIE GESAMTE MANNSCHAFT{4SPACE}EINSCHLIESSLICH EINER JUPITER-" 
 9020 PRINT"CENTAUR-RAKETE FEHLTE." 
 9025 PRINT"{DOWN}DER KOMMANDIERENDE OFFIZIER, LT MC{SPACE,5SPACE}PERKINS, LIES ETWAS SPAETER DER" 
 9030 PRINT"REGIERUNG DIE NACHRICHT ZUKOMMEN, DASS{2SPACE}ER DIE RAKETE AN EINEM ANDEREN" 
 9035 PRINT"ORT AUFGESTELLT UND DEN COUNTDOWN{2SPACE}AUSGELOEST HABE. WENN IHM NICHT" 
 9040 PRINT"INNERHALB DIESER ZEIT DAS OBERKOMMANDO{2SPACE}UEBER DIE GESAMTEN US-STREIT-" 
 9045 PRINT"KRAEFTE UEBERTRAGEN WUERDE, WILL ER{3SPACE}MIT DIESER RAKETE DEN 3. WELTKRIEG" 
 9050 PRINT"AUSLOESEN!" 
 9055 PRINT"BITTE >RETURN< DRUECKEN!" 
 9060 GET A$:IF A$<>CHR$ (13) THEN9060 
 9065 PRINT"{CLR}AGENTEN DES CIA HABEN DANACH DAS VER-{SPACE,2SPACE}STECK DER RAKETE AUSGEMACHT:" 
 9070 PRINT"EIN VERLASSENER ABSCHNITT DER GROSSEN{3SPACE}CHINESISCHEN MAUER!!" 
 9075 PRINT"{DOWN}DA ES NATUERLICH UNMOEGLICH IST, DEN{SPACE,3SPACE}FORDERUNGEN NACHZUKOMMEN, HABEN" 
 9080 PRINT"DER PRAESIDENT UND DER KONGRESS{9SPACE}BESCHLOSSEN, DEN BESTEN AGENTEN" 
 9085 PRINT"DER IHNEN ZUR VERFUEGUNG STEHT AUF DIE{2SPACE}RAKETE ANZUSETZEN: JAMES BOND!" 
 9090 PRINT"{DOWN}NUN WAR JAMES BOND GERADE VERHINDERT{SPACE,3SPACE}(ER HATTE GRIPPE) --- UND DA" 
 9095 PRINT"KAM MAN AUF --- SIE!!" 
 9100 PRINT"{DOWN}STOPPEN SIE DEN COUNTDOWN DER RAKETE,{SPACE,2SPACE}BEVOR ES ZU SPAET IST!" 
 9110 PRINT"{DOWN}ALLES KLAR? DANN BITTE >RETURN<!" 
 9120 GET A$:IF A$<>CHR$ (13) THEN9120 
 9130 LO=2:G(1)=0:GOTO 120 
 9140 PRINT"{CLR}AUF DEM BILDSCHRIM ERSCHEINT:" 
 9145 PRINT"{DOWN}ABSCHUSS CODE BESTAETIGT. COUNTDOWN{SPACE,4SPACE}GESTOPPT!" 
 9150 PRINT"{2DOWN}SIE HABEN ES GESCHAFFT!! SIE HABEN ES{3SPACE}WIRKLICH GESCHAFFT!!!" 
 9160 PRINT"HURRA! DAS WAR HERVORAGEND!!" 
 9170 PRINT"{2DOWN}GERUECHTEN ZUR FOLGE WILL DER PRAESI-{3SPACE}DENT IHNEN JETZT EINEN ORDEN" 
 9180 PRINT"VERLEIHEN! HERZLICHEN GLUECKWUNSCH!!" 
 9200 GOTO 14390 
 10000 G$(1,1)="{20SPACE}" 
 10010 G$(1,2)=" SEAL{5SPACE}OF{4SPACE}THE " 
 10020 G$(1,3)=" OOOOOOOOOOOOOOOOOO " 
 10030 G$(1,4)="L{WHITE}**********{BLACK}J{RVSON,RED,7SPACE,BLACK,RVOFF}J" 
 10040 G$(1,5)="L{WHITE}**********{BLACK}J{RVSON,WHITE,7SPACE,BLACK,RVOFF}J" 
 10050 G$(1,6)="L{WHITE}**********{BLACK}J{RVSON,RED,7SPACE,BLACK,RVOFF}J" 
 10060 G$(1,7)=G$(1,5) 
 10070 G$(1,8)="L{WHITE}**********{BLACK}J{RVSON,RED,7SPACE,BLACK,RVOFF}J" 
 10080 G$(1,9)="LUUUUUUUUUU{RVSON,WHITE,8SPACE,BLACK,RVOFF}J" 
 10090 G$(1,10)="L{RVSON,RED,18SPACE,BLACK,RVOFF}J" 
 10100 G$(1,11)="L{RVSON,WHITE,18SPACE,BLACK,RVOFF}J" 
 10110 G$(1,12)=G$(1,10):G$(1,13)=G$(1,11):G$(1,14)=G$(1,10):G$(1,15)=G$(1,11) 
 10150 G$(1,16)="{BLACK,SPACE}UUUUUUUUUUUUUUUUUU " 
 10160 G$(1,17)=" PRESIDENT{2SPACE}OF{2SPACE}THE " 
 10165 G$(1,18)="{3SPACE}UNITED{2SPACE}STATES{3SPACE}" 
 10180 G$(2,1)="{20SPACE}" 
 10190 G$(2,2)="{18SPACE,YELLOW}Q{BLACK,SPACE}" 
 10200 G$(2,3)="{20SPACE}" 
 10210 G$(2,4)="{11SPACE}NMNM{5SPACE}" 
 10220 G$(2,5)="M{3SPACE}NM{4SPACE}N{2SPACE}M M{4SPACE}" 
 10230 G$(2,6)=" M N{2SPACE}M{SPACE,GREY3}+{BLACK}N{GREY3}+ +{SHIFT-SPACE}+{BLACK,SPACE}M NM" 
 10240 G$(2,7)="{2SPACE}M NM MN{GREY3}+++++P{BLACK}M N{SPACE,SPACE}" 
 10250 G$(2,8)="NM N{2SPACE}MN{SPACE,GREY3}+++++N{BLACK,SPACE}M{3SPACE}" 
 10260 G$(2,9)="{2SPACE}N{4SPACE}M{SPACE,GREY3}+++++N{BLACK,2SPACE}MNM" 
 10270 G$(2,10)=" N{6SPACE}M{GREY3}+ + +N{2SPACE}N{SPACE,SPACE}" 
 10280 G$(2,11)="{GREY2}++{2SPACE}++{2SPACE}++++++N++{SPACE,SPACE}+" 
 10290 G$(2,12)="{GREY2}++++++++L+ + +N+++++" 
 10300 G$(2,13)="{GREY2}++ ++ ++L+++++N+ ++ " 
 10310 G$(2,14)="{GREY1}++++++++L+ + +N+++++" 
 10320 G$(2,15)="{GREY1}++++++++L+++++N+++++" 
 10330 G$(2,16)="{BLACK}YYYYYYYYY{GREY3}+++++{BLACK}NYYYYY" 
 10340 G$(2,17)="PPPPPPPP{8SPACE}PPPP" 
 10350 G$(2,18)="{LIG.GREEN}XX{RVSON,4SPACE,RVOFF}X{RVSON,SPACE,RVOFF,BLACK}MPPPPPPN{LIG.GREEN,RVSON,SPACE,RVOFF}X{RVSON,2SPACE,BLACK}" 
 10360 G$(3,1)="{5SPACE}N{3SPACE}N{2SPACE}J{2SPACE}N{LIG.BLUE}++++{BLACK}" 
 10370 G$(3,2)="IIII N{2SPACE}L{2SPACE}NJ N{LIG.BLUE}++++{BLACK}N" 
 10380 G$(3,3)="L-L-JN{2SPACE}L NN N{LIG.BLUE}++++{BLACK}N " 
 10390 G$(3,4)="L-L-JN{2SPACE}LNN N{LIG.BLUE}++++{BLACK}N{SPACE,SPACE}" 
 10400 G$(3,5)="L-L-JN{2SPACE}LN N{LIG.BLUE}++++{BLACK}N{SPACE,2SPACE}" 
 10410 G$(3,6)="L-L-JN{4SPACE}N{LIG.BLUE}++++{BLACK}N{SPACE,3SPACE}" 
 10420 G$(3,7)="UUUU N{3SPACE}N{LIG.BLUE}++++{BLACK}N{SPACE,3SPACE}N" 
 10430 G$(3,8)="{5SPACE}N{2SPACE}N{LIG.BLUE}++++{BLACK}N{SPACE,3SPACE}N{RVSON,LIG.GREEN,SPACE,BLACK}" 
 10440 G$(3,9)="{5SPACE}N N{LIG.BLUE}++++{BLACK}N{SPACE,3SPACE}N{RVSON,LIG.GREEN,SPACE}X{BLACK}" 
 10450 G$(3,10)="{5SPACE}NN{LIG.BLUE}++++{BLACK}N{SPACE,3SPACE}N{RVSON,LIG.GREEN,SPACE}X{SPACE,BLACK}" 
 10460 G$(3,11)="UUUUUU{LIG.BLUE}++++{BLACK}N{SPACE,4SPACE}UUUU" 
 10470 G$(3,12)="{LIG.BLUE}+++++++++{BLACK}N{SPACE,9SPACE}" 
 10480 G$(3,13)="{LIG.BLUE}++++++++{BLACK}N{SPACE,10SPACE}" 
 10490 G$(3,14)="{LIG.BLUE}+++++++{BLACK}N{SPACE,3SPACE}NUUUUUUU" 
 10500 G$(3,15)="{LIG.BLUE}++++++{BLACK}N{SPACE,3SPACE}N{RVSON,LIG.GREEN,SPACE}X{2SPACE}XX{2SPACE,BLACK}" 
 10510 G$(3,16)="{LIG.BLUE}+++++{BLACK}N{SPACE,3SPACE}N{RVSON,LIG.GREEN,7SPACE}X{SPACE,BLACK}" 
 10520 G$(3,17)="{LIG.BLUE}++++{BLACK}N{SPACE,3SPACE}N{RVSON,LIG.GREEN,3SPACE}X X{3SPACE}X{BLACK}" 
 10530 G$(3,18)="{LIG.BLUE}+++{BLACK}N{SPACE,3SPACE}N{RVSON,LIG.GREEN,2SPACE}XX{7SPACE,BLACK}" 
 10540 G$(4,1)="{2SPACE}NM{3SPACE}NM{2SPACE}NM{2SPACE}NM{SPACE,YELLOW}Q{BLACK,SPACE}" 
 10550 G$(4,2)=" N{2SPACE}NMN NMN{2SPACE}MN{2SPACE}MNM" 
 10560 G$(4,3)="N{2SPACE}N{2SPACE}MN{2SPACE}M{3SPACE}M{3SPACE}M " 
 10570 G$(4,4)="TYTUYUYUYUYTUYTUTYTY" 
 10580 G$(4,5)="{RVSON,LIG.GREEN,SPACE}XXX{2SPACE}X XX{4SPACE}X X X " 
 10590 G$(4,6)="{RVSON,LIG.GREEN,4SPACE}X{10SPACE}X{3SPACE}X" 
 10600 G$(4,7)="{BLACK}UUUUUUUUUUUUUUUC{RVSON,LIG.GREEN,4SPACE}" 
 10610 G$(4,8)="{16SPACE,BLACK}C{RVSON,LIG.GREEN,3SPACE}" 
 10620 G$(4,9)="{17SPACE,BLACK}C{RVSON,LIG.GREEN,2SPACE}" 
 10630 G$(4,10)="{BLACK}OOOOOOOOO{SPACE,7SPACE}L{RVSON,LIG.GREEN,SPACE}X" 
 10640 G$(4,11)="{RVSON,LIG.GREEN,9SPACE,RVOFF,BLACK}C{7SPACE}L{RVSON,LIG.GREEN,SPACE}X" 
 10650 G$(4,12)="{RVSON,LIG.GREEN,7SPACE}X{2SPACE,RVOFF,BLACK}C{6SPACE}L{RVSON,LIG.GREEN,2SPACE}" 
 10660 G$(4,13)="{RVSON,LIG.GREEN,5SPACE}X{5SPACE,RVOFF,BLACK}C{5SPACE}L{RVSON,LIG.GREEN,2SPACE}" 
 10670 G$(4,14)="{RVSON,LIG.GREEN,3SPACE}X{7SPACE,RVOFF,BLACK}N{5SPACE}L{RVSON,LIG.GREEN}X " 
 10680 G$(4,15)="{RVSON,LIG.GREEN,2SPACE}X{5SPACE}X{2SPACE,RVOFF,BLACK}N{5SPACE}L{RVSON,LIG.GREEN,2SPACE}" 
 10690 G$(4,16)="{RVSON,LIG.GREEN,SPACE}X{2SPACE}X{6SPACE,RVOFF,BLACK}N{5SPACE}L{RVSON,LIG.GREEN,SPACE}X" 
 10700 G$(4,17)="{RVSON,LIG.GREEN,7SPACE}X{3SPACE,RVOFF,BLACK}N{5SPACE}L{RVSON,LIG.GREEN,2SPACE}" 
 10710 G$(4,18)="{RVSON,LIG.GREEN,5SPACE}X{6SPACE,RVOFF,7SPACE,RVSON,SPACE,BLACK}" 
 10720 G$(5,1)="{13SPACE,GREEN}OIP{3SPACE,YELLOW}Q{BLACK,SPACE}" 
 10730 G$(5,2)="{11SPACE,GREEN,RVSON,5SPACE,RVOFF,BLACK,4SPACE}" 
 10740 G$(5,3)="{10SPACE,GREEN,RVSON,7SPACE,RVOFF,BLACK,3SPACE}" 
 10750 G$(5,4)="{9SPACE,GREEN,RVSON,8SPACE,RVOFF,BLACK,3SPACE}" 
 10760 G$(5,5)="{4SPACE}NM{3SPACE,GREEN,RVSON,8SPACE,RVOFF,BLACK,3SPACE}" 
 10770 G$(5,6)="MNMN{2SPACE}M{2SPACE,GREEN,RVSON,8SPACE,RVOFF,BLACK,3SPACE}" 
 10780 G$(5,7)=" MN NM MN{GREEN,RVSON,8SPACE,RVOFF,BLACK}MNM" 
 10790 G$(5,8)="{2SPACE}MN{2SPACE}MN{2SPACE,GREEN,RVSON,6SPACE,RVOFF,BLACK,SPACE}N{2SPACE}" 
 10800 G$(5,9)="{2SPACE}N{3SPACE}N{4SPACE,GREEN,RVSON,4SPACE,RVOFF,BLACK}MN{2SPACE}N" 
 10810 G$(5,10)=" N{3SPACE}N{6SPACE,BROWN}++{BLACK,2SPACE}M N " 
 10820 G$(5,11)="OP@PP@OPO@PO{BROWN}++{BLACK}IOPOPI" 
 10830 G$(5,12)="{RVSON,LIG.GREEN,SPACE}XX{9SPACE,RVOFF,BROWN}++{LIG.GREEN,RVSON,SPACE}XX{SHIFT-SPACE}X " 
 10840 G$(5,13)="{RVSON,LIG.GREEN,3SPACE}XXX{SHIFT-SPACE}XX{SPACE,2SPACE,RVOFF,BROWN}++{LIG.GREEN,RVSON,6SPACE}" 
 10850 G$(5,14)="{RVSON,LIG.GREEN,12SPACE,RVOFF,BROWN}++{LIG.GREEN,RVSON,3SPACE}XX " 
 10860 G$(5,15)="{RVSON,LIG.GREEN,6SPACE}XX{SHIFT-SPACE}X{SPACE,9SPACE}" 
 10870 G$(5,16)="{RVSON,LIG.GREEN,2SPACE}X{6SPACE}X{2SHIFT-SPACE}XXX{SHIFT-SPACE}X{SHIFT-SPACE}X " 
 10880 G$(5,17)="{RVSON,LIG.GREEN,SPACE}XXX{16SPACE}" 
 10890 G$(5,18)="{BLACK}OP@P@POP@P@POP@POP@P" 
 10900 G$(6,1)="{2SPACE}NM{8SPACE}NM NM{2SPACE,YELLOW}Q{BLACK}" 
 10910 G$(6,2)=" N{2SPACE}MNM{2SPACE}NMN{2SPACE}N{2SPACE}M{2SPACE}" 
 10920 G$(6,3)="N{3SPACE}N{2SPACE}MN{2SPACE}M N{4SPACE}M " 
 10930 G$(6,4)=" NMN{2SPACE}PPPPPPPPPPPPPP" 
 10940 G$(6,5)="N{2SPACE}M N{2SPACE}OOOOOOOOOO{2SPACE}" 
 10950 G$(6,6)="@@@@N{2SPACE}LADAC CHINAJ " 
 10960 G$(6,7)="{3SPACE}N{3SPACE}LUUUUUUUUUUJ " 
 10970 G$(6,8)="{2SPACE}LUUUUUUUUUUUUUUUUU" 
 10980 G$(6,9)="{2SPACE}L HUA CHANG FU WER" 
 10990 G$(6,10)="{2SPACE}LOOOOOOOOOOOOOOOOO" 
 11000 G$(6,11)="{2SPACE}L OOOO{5SPACE}PPPPPPP" 
 11010 G$(6,12)="XXLL+H{2SPACE}JOYPM+H{5SPACE}" 
 11020 G$(6,13)="{2SPACE}LL+H{2SPACE}JH*NM+H{5SPACE}" 
 11030 G$(6,14)="X LL+H{2SPACE}JH*NM+LPPPPP" 
 11040 G$(6,15)="{2SPACE}LL+H{2SPACE}JLP@MN++++++" 
 11050 G$(6,16)=" XLL+LPPJ{4SPACE}YYYYYYY" 
 11060 G$(6,17)="X LLN+++JIIIIIIIIIII" 
 11070 G$(6,18)="{3SPACE}UUUUUUUUUUUUUUUUU" 
 11080 G$(7,1)="{GREEN,SPACE}+++++++N+++++N+++++" 
 11090 G$(7,2)="{2SPACE}+++M+N+++++N+++++ " 
 11100 G$(7,3)="++++++M+++++N+++++++" 
 11110 G$(7,4)="+++++++M+N+B++++++++" 
 11120 G$(7,5)=" +M+N+++N++B++++++++" 
 11130 G$(7,6)="+++M+++N+++BM+++++N+" 
 11140 G$(7,7)="++++M+N++++B+M+++N++" 
 11150 G$(7,8)="+++++N+++++B++M+N+++" 
 11160 G$(7,9)=" +++++M+++N++++N++++" 
 11170 G$(7,10)="+CCCCCCM+N++++N++CC+" 
 11180 G$(7,11)=" +++N+++B++++N++N+++" 
 11190 G$(7,12)="+M+N++++B+++NCCC++++" 
 11200 G$(7,13)=" +N+M+++B++N++M++++ " 
 11210 G$(7,14)=" ++++M++B+N++++M++{2SPACE}" 
 11220 G$(7,15)="{6SPACE,BLACK,RVSON,3SPACE,RVOFF,GREEN,4SPACE}+++{4SPACE}" 
 11230 G$(7,16)="{6SPACE,BLACK,RVSON,3SPACE,RVOFF,11SPACE}" 
 11240 G$(7,17)="{6SPACE,RVSON,3SPACE,RVOFF,11SPACE}" 
 11250 G$(7,18)="{6SPACE,RVSON,3SPACE,RVOFF,11SPACE}" 
 11260 G$(8,1)=" NM{2SPACE}NMNM{2SPACE}NM{3SPACE}NM{YELLOW}Q{BLACK,SPACE}" 
 11270 G$(8,2)="N{2SPACE}MN N{2SPACE}MN{2SPACE}M N{2SPACE}M " 
 11280 G$(8,3)=" NM MN{4SPACE}MNM N{4SPACE}M" 
 11290 G$(8,4)="N{2SPACE}MN{5SPACE}N{2SPACE}N{6SPACE}" 
 11300 G$(8,5)=" NMN NM NM{2SPACE}N{2SPACE}NMNM " 
 11310 G$(8,6)="N{2SPACE}MN{2SPACE}N{2SPACE}MN NM N{2SPACE}M" 
 11320 G$(8,7)="{4SPACE}M PPPPPMNNMN PPP" 
 11330 G$(8,8)="{5SPACE}N++++NHN{2SPACE}MN+++" 
 11340 G$(8,9)="PPPPPOYYYP LPPPPOYYP" 
 11350 G$(8,10)="PPPPPH+++NN+++++H++N" 
 11360 G$(8,11)="++PPPPPP++YYYYYY+PPP" 
 11370 G$(8,12)="+N HKGKGH+++++++N HK" 
 11380 G$(8,13)="+N HKGKGH+++++++N HK" 
 11390 G$(8,14)="+N LKGKGH+++++++N LK" 
 11400 G$(8,15)="+NN KGKGH+++++++NN K" 
 11410 G$(8,16)="++YYYYYY+++++++++YYY" 
 11420 G$(8,17)="++++++++++++++++++++" 
 11430 G$(8,18)="++++++++++++++++++++" 
 11440 G$(9,1)="PPPPP{2SPACE}I{2SPACE}WAS{2SPACE}H{4SPACE}" 
 11450 G$(9,2)="LB LBH{2SPACE}HERE{3SPACE}H{4SPACE}" 
 11460 G$(9,3)="LB@LBH{9SPACE}H{2SPACE}PP" 
 11470 G$(9,4)="LB LBH{9SPACE}H{2SPACE}GN" 
 11480 G$(9,5)="YYYYY{3SPACE}HILFE{2SPACE}H QGN" 
 11490 G$(9,6)="WO{13SPACE}H NGN" 
 11500 G$(9,7)="{2SPACE}IST{10SPACE}H{2SPACE}GN" 
 11510 G$(9,8)="{5SPACE}DER{7SPACE}H NMN" 
 11520 G$(9,9)="{8SPACE}AUSGANGH{3SPACE}N" 
 11530 G$(9,10)="{15SPACE}HWON " 
 11540 G$(9,11)="{15SPACE}H{2SPACE}YY" 
 11550 G$(9,12)="PPPPPPPPPPPPPPPHBIN " 
 11560 G$(9,13)="{ORANGE}+++++++++++++++{BLACK}M ICH" 
 11570 G$(9,14)="{ORANGE}++{SPACE,2SPACE,WHITE}@@@{ORANGE,3SPACE}+++++{BLACK}M???" 
 11580 G$(9,15)="{ORANGE}+{SPACE,2SPACE,WHITE}NQ QM{ORANGE,6SPACE}++{BLACK}M{SPACE,SPACE}" 
 11590 G$(9,16)="{ORANGE}+++{SPACE,WHITE}G Z M{ORANGE,5SPACE}++++{BLACK}M " 
 11600 G$(9,17)="{ORANGE}+++{SPACE,WHITE}MRRRN{ORANGE,7SPACE}+++{BLACK}M" 
 11610 G$(9,18)="{ORANGE}++{SPACE,2SPACE,WHITE}M@N{ORANGE,5SPACE}+++++++{BLACK}" 
 11620 G$(10,1)="{BROWN,BLACK}M{BROWN,RVSON,19SPACE}" 
 11630 G$(10,2)="{RVSON,SPACE,RVOFF,BLACK}M{BROWN,RVSON,17SPACE,RVOFF,BLACK}N" 
 11640 G$(10,3)="{RVSON,BROWN,2SPACE,RVOFF,BLACK}M{BROWN,RVSON,15SPACE,RVOFF,BLACK}N{RVSON,BROWN,SPACE}" 
 11650 G$(10,4)="{RVSON,3SPACE,RVOFF,BLACK}M{BROWN,RVSON,13SPACE,RVOFF,BLACK}N{RVSON,BROWN,2SPACE}" 
 11660 G$(10,5)="{RVSON,4SPACE,RVOFF,BLACK}M{BROWN,RVSON,11SPACE,RVOFF,BLACK}N{RVSON,BROWN,3SPACE}" 
 11670 G$(10,6)="{RVSON,5SPACE,RVOFF,BLACK}M{BROWN,RVSON,2SPACE,RVOFF,BLACK}NYYYM{BROWN,RVSON,2SPACE,RVOFF,BLACK}N{RVSON,BROWN,4SPACE}" 
 11680 G$(10,7)="{RVSON,6SPACE,RVOFF,BLACK}MN+++++MN{BROWN,RVSON,5SPACE}" 
 11690 G$(10,8)="{RVSON,7SPACE,RVOFF,BLACK}H++++++H{BROWN,RVSON,5SPACE}" 
 11700 G$(10,9)="{RVSON,7SPACE,RVOFF,BLACK}H++++++H{BROWN,RVSON,5SPACE}" 
 11710 G$(10,10)="{RVSON,7SPACE,RVOFF,BLACK}H++++++M{BROWN,RVSON,5SPACE}" 
 11720 G$(10,11)="{RVSON,6SPACE,RVOFF,BLACK}N++++++++H{RVSON,BROWN,4SPACE}" 
 11730 G$(10,12)="{RVSON,5SPACE,RVOFF,BLACK}NYYYYYYYYYM{RVSON,BROWN,4SPACE}" 
 11740 G$(10,13)="{RVSON,4SPACE,RVOFF,BLACK}N{RVSON,BROWN,11SPACE,RVOFF,BLACK}M{RVSON,BROWN,3SPACE}" 
 11750 G$(10,14)="{RVSON,3SPACE,RVOFF,BLACK}N{RVSON,BROWN,13SPACE,RVOFF,BLACK}M{RVSON,BROWN,2SPACE}" 
 11760 G$(10,15)="{RVSON,2SPACE,RVOFF,BLACK}N{RVSON,BROWN,15SPACE,RVOFF,BLACK}M{RVSON,BROWN,SPACE}" 
 11770 G$(10,16)="{RVSON,SPACE,RVOFF,BLACK}N{RVSON,BROWN,17SPACE,RVOFF,BLACK}M" 
 11780 G$(10,17)="{BLACK}N{RVSON,BROWN,19SPACE,RVOFF}" 
 11790 G$(10,18)="{RVSON,BROWN,20SPACE,RVOFF,BLACK}" 
 11800 FOR I=1 TO14:G$(11,I)=G$(10,I):NEXT 
 11810 G$(11,15)= "{LIG.BLUE,SPACE}+{5SPACE}-{3SPACE}£££{4SPACE}££" 
 11820 G$(11,16)="+++£ £++- +++++{2SPACE}+++" 
 11830 G$(11,17)="++++++++++++++++++++{BLACK}" 
 11840 G$(11,18)=G$(11,17) 
 11850 G$(12,1)="{RVSON,20SPACE}" 
 11860 G$(12,2)="{RVSON,20SPACE}" 
 11870 G$(12,3)="M{18SPACE}N" 
 11880 G$(12,4)=" M{16SPACE}N " 
 11890 G$(12,5)="{2SPACE}M{14SPACE}N{2SPACE}" 
 11900 G$(12,6)="{2SPACE}MYYYYYYYYYYYYYYG{2SPACE}" 
 11910 G$(12,7)="{2SPACE}L{14SPACE}J{2SPACE}" 
 11920 G$(12,8)="{2SPACE}M{14SPACE}J{2SPACE}" 
 11930 G$(12,9)="{2SPACE}L{14SPACE}K{2SPACE}" 
 11940 G$(12,10)="{2SPACE}M{14SPACE}H{2SPACE}" 
 11950 G$(12,11)="{LIG.BLUE}+++£+++£++£++-++++++" 
 11960 G$(12,12)="++£+++++++++£+++++++" 
 11970 G$(12,13)="+£+++++++£+++++++£++" 
 11980 G$(12,14)="++++£+++£++++£++++++" 
 11990 G$(12,15)="+£++++£++++++++++£++" 
 12000 G$(12,16)="++++++++++++++£+++++" 
 12010 G$(12,17)="++++++++++++++++++++" 
 12020 G$(12,18)="++£++++-++++++£+++++{BLACK}" 
 12030 FOR I=1 TO18:G$(13,I)=G$(12,I):NEXT 
 12040 FOR I=1 TO18:G$(14,I)=G$(13,I):NEXT 
 12050 G$(14,3)="M{4SPACE,BROWN}PPPPPPPP{BLACK,6SPACE}N" 
 12060 G$(14,4)=" M{3SPACE,BROWN}M{2SPACE,BLACK}RR{BROWN,2SPACE}N{BLACK,5SPACE}N " 
 12070 G$(14,5)="{2SPACE}M{3SPACE,BROWN}MPPPPN{BLACK,5SPACE}N{2SPACE}" 
 12080 G$(15,1)="{11SPACE}W{3SPACE}W{4SPACE}" 
 12090 G$(15,2)="{20SPACE}" 
 12100 G$(15,3)="{5SPACE}PP{4SPACE}W{3SPACE}W{4SPACE}" 
 12110 G$(15,4)="{5SPACE}M+MPP W{8SPACE}" 
 12120 G$(15,5)=" NMNYY+++QM{9SPACE}" 
 12130 G$(15,6)=" N+++++++{2SPACE}M{8SPACE}" 
 12140 G$(15,7)=" NNM+++++ CN{3SPACE}W{4SPACE}" 
 12150 G$(15,8)="{4SPACE}YYYYYYY{4SPACE}W{4SPACE}" 
 12160 G$(15,9)="{15SPACE}W{4SPACE}" 
 12170 G$(15,10)="@@@@@@@@@@@@@@@W@@@@" 
 12180 G$(15,11)="{RVSON,GREEN,SPACE}X{18SPACE}" 
 12190 G$(15,12)="{RVSON,GREEN,SPACE}X{4SPACE}XX{3SPACE}XXX{SPACE,RVOFF,BLACK}W{RVSON,GREEN,SPACE}XX " 
 12200 G$(15,13)="{RVSON,GREEN,SPACE}X{6SPACE}X{8SPACE}X{2SPACE}" 
 12210 G$(15,14)="{RVSON,GREEN,SPACE,RVOFF,BLACK}PNM{RVSON,GREEN,3SPACE,RVSON,GREEN}P{RVSON,GREEN,2SPACE,RVOFF,BLACK}NMP{RVSON,GREEN,2SPACE,RVOFF,BLACK}W{RVSON,GREEN,SPACE}PO " 
 12220 G$(15,15)="{BLACK}N{SPACE,2SPACE}M@N HN{3SPACE}MPPN{2SPACE}M" 
 12230 G$(15,16)="{8SPACE}Y @OO@{6SPACE}" 
 12240 G$(15,17)="{9SPACE}NNQQGM{5SPACE}" 
 12250 G$(15,18)="{9SPACE}NTYYTM{5SPACE}" 
 12260 G$(16,1)="M{18SPACE}N" 
 12270 G$(16,2)=" M{16SPACE}N " 
 12280 G$(16,3)="{2SPACE}M{14SPACE}N{2SPACE}" 
 12290 G$(16,4)="{3SPACE}M{12SPACE}N{3SPACE}" 
 12300 G$(16,5)="{4SPACE}M{10SPACE}N{4SPACE}" 
 12310 G$(16,6)="{5SPACE}M{8SPACE}N{5SPACE}" 
 12320 G$(16,7)=" HO{3SPACE}M{6SPACE}N{2SPACE}W W " 
 12330 G$(16,8)=" CHI{3SPACE}M{4SPACE}N{4SPACE}B{2SPACE}" 
 12340 G$(16,9)=" MINH{3SPACE}OYYP{4SPACE}CCC " 
 12350 G$(16,10)=" WAS{4SPACE}LOP@{8SPACE}" 
 12360 G$(16,11)=" HERE. N{4SPACE}M{7SPACE}" 
 12370 G$(16,12)="{6SPACE}N{6SPACE}M{6SPACE}" 
 12380 G$(16,13)="{5SPACE}N{8SPACE}M{5SPACE}" 
 12390 G$(16,14)="{4SPACE}N{10SPACE}M{4SPACE}" 
 12400 G$(16,15)="{3SPACE}N{12SPACE}M{3SPACE}" 
 12410 G$(16,16)="{2SPACE}N{14SPACE}M{2SPACE}" 
 12420 G$(16,17)=" N{16SPACE}M " 
 12430 G$(16,18)="N{18SPACE}M" 
 12440 G$(17,1)="M{18SPACE}N" 
 12450 G$(17,2)=" M{16SPACE}N " 
 12460 G$(17,3)="{2SPACE}HTYTYUUYTYYUYTTYH " 
 12470 G$(17,4)="{2SPACE}H{15SPACE}K " 
 12480 G$(17,5)="{2SPACE}H{2SPACE}NUUUUUUUM{4SPACE}H " 
 12490 G$(17,6)="{2SPACE}H N O{5SPACE}O M{3SPACE}K " 
 12500 G$(17,7)=" N N NQM{3SPACE}NQM H{2SPACE}G " 
 12510 G$(17,8)=" M N{4SPACE}H N{4SPACE}H{2SPACE}K " 
 12520 G$(17,9)=" N{2SPACE}M M H N N N{3SPACE}M@" 
 12530 G$(17,10)=" H{3SPACE}M MH NN N{5SPACE}N" 
 12540 G$(17,11)=" MUDDIM H N N UDDI H" 
 12550 G$(17,12)=" MJKJKYYMPNYYYJKJKYH" 
 12560 G$(17,13)=" M{3SPACE}KILLROY{6SPACE}N " 
 12570 G$(17,14)=" L{5SPACE}WAS{7SPACE}N{2SPACE}" 
 12580 G$(17,15)=" N{4SPACE}HERE!!{5SPACE}M{2SPACE}" 
 12590 G$(17,16)=" MO@PI@POP@PIOO@P@G " 
 12600 G$(17,17)=" N{16SPACE}M " 
 12610 G$(17,18)="N{18SPACE}M" 
 12620 G$(18,1)="+ NH+N+ + + + + + + " 
 12630 G$(18,2)="+NHH+N+ + +PPPPPP + " 
 12640 G$(18,3)="NNHH+N+ + N H{4SPACE}H+ " 
 12650 G$(18,4)="N HH+N+ + N H{4SPACE}H+ " 
 12660 G$(18,5)="{2SPACE}HH+N+ + N H{4SPACE}H+ " 
 12670 G$(18,6)="W HH+N+ + N H{4SPACE}H+ " 
 12680 G$(18,7)=" NHH+N+ + N H{3SPACE}PH+ " 
 12690 G$(18,8)="N HH+N+ + N H{3SPACE}WH+ " 
 12700 G$(18,9)="{2SPACE}HH+N+ + N H{4SPACE}H+ " 
 12710 G$(18,10)="W HH+N+ + N H{4SPACE}H+ " 
 12720 G$(18,11)=" NHG+N+ + N{SHIFT-SPACE}LPPPPH+ " 
 12730 G$(18,12)="N HH+N+ + NN{5SPACE}H+ " 
 12740 G$(18,13)="{2SPACE}HH+NYYYYYYYYYYYYYY" 
 12750 G$(18,14)="W LHN{5SPACE}PPPPPPPPPP" 
 12760 G$(18,15)=" NNN{5SPACE}N++++++++++" 
 12770 G$(18,16)="NNN{5SPACE}N+++++++++++" 
 12780 G$(18,17)="NN{5SPACE}N++++++++++++" 
 12790 G$(18,18)="N{5SPACE}N+++++++++++++" 
 12800 G$(19,1)="+ + + + + + + + N+ +" 
 12810 G$(19,2)="+ +PPPPPPPPP+ + N+ +" 
 12820 G$(19,3)="+ NPPPPPPPPNH + N+ +" 
 12830 G$(19,4)="+L{RVSON,GREY1,9SPACE,RVOFF,BLACK}HH + N+ +" 
 12840 G$(19,5)="+L{RVSON,GREY1,9SPACE,RVOFF,BLACK}HK + N+ +" 
 12850 G$(19,6)="+L{RVSON,GREY1,9SPACE,RVOFF,BLACK}HH + N+ +" 
 12860 G$(19,7)="+L{RVSON,GREY1,3SPACE,RVOFF,BLACK}MG{RVSON,GREY1,4SPACE,BLACK,RVOFF}HH + N+ +" 
 12870 G$(19,8)="+L{RVSON,GREY1,3SPACE,RVOFF,BLACK}MG{RVSON,GREY1,4SPACE,RVOFF,BLACK}GH + N+ +" 
 12880 G$(19,9)="+L{RVSON,GREY1,SPACE,RVOFF,BLACK}@@UI@@{RVSON,GREY1,2SPACE,RVOFF,BLACK}HH + N+ +" 
 12890 G$(19,10)="+L{RVSON,GREY1,SPACE,RVOFF,BLACK}YYJKYY{RVSON,GREY1,2SPACE,RVOFF,BLACK}HH + N+ +" 
 12900 G$(19,11)="+L{RVSON,GREY1,SPACE,RVOFF,BLACK}W{RVSON,GREY1,SPACE,RVOFF,BLACK}MG{RVSON,GREY1,4SPACE,RVOFF,BLACK}HH + N+ +" 
 12910 G$(19,12)="+L{RVSON,GREY1,3SPACE,RVOFF,BLACK}MG{RVSON,GREY1,4SPACE,RVOFF,BLACK}HH + N+ +" 
 12920 G$(19,13)="+L{RVSON,GREY1,9SPACE,RVOFF,BLACK}HH + N+ +" 
 12930 G$(19,14)="+L{RVSON,GREY1,9SPACE,RVOFF,BLACK}HK + N+ +" 
 12940 G$(19,15)="+L{RVSON,GREY1,9SPACE,RVOFF,BLACK}HH + N+ +" 
 12950 G$(19,16)="YYYYYYYYYYYYYYYYYM +" 
 12960 G$(19,17)="PPPPPPPPPPPPPPP{3SPACE}M+" 
 12970 G$(19,18)="+++++++++++++++M{3SPACE}M" 
 12980 G$(20,1)=" H{18SPACE}" 
 12990 G$(20,2)=" H 1{4SPACE}2{4SPACE}3{4SPACE}4 " 
 13000 G$(20,3)=" HU**I UCCI{SHIFT-SPACE}UCCI{SHIFT-SPACE}UCC" 
 13010 G$(20,4)=" HB{RVSON}£*{RVOFF}B BMNB{SHIFT-SPACE}BUIB{SHIFT-SPACE}BB{RVSON}B{RVOFF}" 
 13020 G$(20,5)=" HB{RVSON,2SPACE,RVOFF}B BNMB{SHIFT-SPACE}BJKB{SHIFT-SPACE}BNM" 
 13030 G$(20,6)=" HJCCK JCCK{SHIFT-SPACE}JCCK{SHIFT-SPACE}JCC" 
 13040 G$(20,7)=" H 8{4SPACE}9{6SPACE}10{3SPACE}" 
 13050 G$(20,8)=" HUCCI{SHIFT-SPACE}UCCI{SHIFT-SPACE,SHIFT-SPACE}UCCCCCI" 
 13060 G$(20,9)=" HBIIB B{RVSON}£*{RVOFF}B{SPACE,SPACE}B{SPACE,RVSON}£*{RVOFF}THB" 
 13070 G$(20,10)=" HBOOB BOPB{2SPACE}B{SPACE,RVSON,2SPACE,RVOFF}THB" 
 13080 G$(20,11)=" HJCCK{SHIFT-SPACE}JCCK{SHIFT-SPACE,SHIFT-SPACE}B{SPACE,RVSON,2SPACE,RVOFF}THB" 
 13090 G$(20,12)=" HOYYYYYYYYYPB{SPACE,RVSON,2SPACE,RVOFF}THB" 
 13100 G$(20,13)=" HHQQQ Q R ENB{SPACE,RVSON}£*{RVOFF}THB" 
 13110 G$(20,14)=" HHWW QQ{2SPACE}WWNJCCCCCK" 
 13120 G$(20,15)=" HHWQ @POIP@N OYYYYY" 
 13130 G$(20,16)=" HLPPPPPPPPP@ LPPPPP" 
 13140 G$(20,17)=" LPPPPPPPPPPPPPPPPPP" 
 13150 G$(20,18)="N+++++++++++++++++++" 
 13160 G$(21,1)="M{6SPACE}NNH{9SPACE}N" 
 13170 G$(21,2)=" M{5SPACE,RVSON}W{RVOFF}N{SPACE,8SPACE}N " 
 13180 G$(21,3)="{2SPACE}M{14SPACE}N{2SPACE}" 
 13190 G$(21,4)="{3SPACE}MPPPPPPPPPPPPN{3SPACE}" 
 13200 G$(21,5)="{3SPACE}N{3SPACE}@@@@@{4SPACE}G{3SPACE}" 
 13210 G$(21,6)="M{2SPACE}N{2SPACE}MSTOP!G{3SPACE}G{3SPACE}" 
 13220 G$(21,7)=" M N{3SPACE}OOOOO{4SPACE}G{3SPACE}" 
 13230 G$(21,8)="YYHN{2SPACE}L H{3SPACE}J{3SPACE}G{3SPACE}" 
 13240 G$(21,9)="{2SPACE}HN{2SPACE}L H{3SPACE}J{3SPACE}G{3SPACE}" 
 13250 G$(21,10)="{2SPACE}HN{2SPACE}L H@@ J{3SPACE}G{3SPACE}" 
 13260 G$(21,11)="PPHN{2SPACE}L HYP J{3SPACE}G{3SPACE}" 
 13270 G$(21,12)=" N N{2SPACE}L H{3SPACE}J{3SPACE}H{3SPACE}" 
 13280 G$(21,13)="N{2SPACE}N{2SPACE}L LPPPJ{3SPACE}H{3SPACE}" 
 13290 G$(21,14)="{3SPACE}N{2SPACE}LN{4SPACE}J{3SPACE}H{3SPACE}" 
 13300 G$(21,15)="{3SPACE}NYYYYYYYYYYYYM{3SPACE}" 
 13310 G$(21,16)="{2SPACE}N++++++++++++++M{2SPACE}" 
 13320 G$(21,17)=" N++++++++++++++++M " 
 13330 G$(21,18)="N++++++++++++++++++M" 
 13340 G$(22,1)="+++++N{SPACE,RVSON,WHITE}£*{BLACK,RVOFF}NYYYYYYYYNH" 
 13350 G$(22,2)="+++++N{SPACE,RVSON,WHITE,2SPACE,BLACK,RVOFF}UUUUUUUUK H" 
 13360 G$(22,3)="+++++N{SPACE,RVSON,WHITE,2SPACE,BLACK,RVOFF}NYYYYYYYK H" 
 13370 G$(22,4)="+++++N{SPACE,RVSON,WHITE,2SPACE,BLACK,RVOFF}UUUUUUUUK H" 
 13380 G$(22,5)="+ OO+N{RVSON,WHITE}£{BLACK}BB{WHITE}*{BLACK,RVOFF,7SPACE}K H" 
 13390 G$(22,6)="+L{2SPACE}JN{RVSON,WHITE,4SPACE,BLACK,RVOFF}NYYYYYYK H" 
 13400 G$(22,7)="+L{2SPACE}JN{RVSON,WHITE,4SPACE,BLACK,RVOFF}UUUUUUUK H" 
 13410 G$(22,8)="+L{2SPACE}JN{RVSON,WHITE,4SPACE,BLACK,RVOFF}YYYYYYYK H" 
 13420 G$(22,9)="+L NN{SPACE,RVSON,WHITE,4SPACE,BLACK,RVOFF}NYYYYYYK H" 
 13430 G$(22,10)="+LNN{2SPACE,RVSON,WHITE,4SPACE,BLACK,RVOFF}UUUUUUUK H" 
 13440 G$(22,11)="+LN{3SPACE,RVSON,WHITE,4SPACE,BLACK,RVOFF}NYYYYYYK H" 
 13450 G$(22,12)="+N{4SPACE,RVSON,WHITE,4SPACE,BLACK,RVOFF}UUUUUUUK H" 
 13460 G$(22,13)="N{5SPACE,RVSON,WHITE,4SPACE,BLACK,RVOFF,7SPACE}K H" 
 13470 G$(22,14)="{5SPACE,RVSON,WHITE}£{4SPACE}*{BLACK,RVOFF}PPPP{2SPACE}K H" 
 13480 G$(22,15)="{4SPACE}N{RVSON,WHITE,6SPACE,BLACK,RVOFF,3SPACE}NH K H" 
 13490 G$(22,16)="{3SPACE}N{2SPACE,RVSON,WHITE}£*£*{BLACK,RVOFF,3SPACE}N H K H" 
 13500 G$(22,17)="{2SPACE}NUUUUUUUUUUHN{2SPACE}K H" 
 13510 G$(22,18)="{2SPACE}N{9SPACE}NN{3SPACE}K H" 
 13520 G$(23,1)="{10SPACE}PPNYYYMPP " 
 13530 G$(23,2)="{9SPACE}NPARADISVMH" 
 13540 G$(23,3)="{4SPACE,YELLOW}NYYYM{BLACK}NYYMPPPNYYH" 
 13550 G$(23,4)="{4SPACE,YELLOW}M{3SPACE}N{BLACK}O{SPACE,6SPACE,YELLOW}Q{BLACK,SPACE}L" 
 13560 G$(23,5)="{4SPACE,YELLOW,SPACE}YYY{BLACK,SPACE}H NMNMNM{3SPACE}" 
 13570 G$(23,6)="{4SPACE}NBBBMHN{2SPACE}MN{2SPACE}MNM" 
 13580 G$(23,7)="{3SPACE}NNQ QMM NHPMPPPPP" 
 13590 G$(23,8)="{3SPACE}NG{3SPACE}NMNNH+++++++" 
 13600 G$(23,9)="PIG MMPNNNNBHPPPPPPP" 
 13610 G$(23,10)=" HH NMPNMNBBH{3SPACE}H{3SPACE}" 
 13620 G$(23,11)=" HMN{4SPACE}N BBH P H{3SPACE}" 
 13630 G$(23,12)=" MPY{4SPACE}NMBBH WHH{3SPACE}" 
 13640 G$(23,13)="{3SPACE}M{4SPACE}NHMN{4SPACE}H{3SPACE}" 
 13650 G$(23,14)="{3SPACE}N{4SPACE}NH{6SPACE}H{3SPACE}" 
 13660 G$(23,15)="{3SPACE}N{4SPACE}NH{2SPACE}EINGHANG" 
 13670 G$(23,16)="{3SPACE}N{4SPACE}NH{6SPACE}H{3SPACE}" 
 13680 G$(23,17)="{4SPACE}MPPPNLPPPPPPPPPP" 
 13690 G$(23,18)="{3SPACE}UIJ LUI{10SPACE}" 
 13700 G$(24,1)="{6SPACE}££££££{8SPACE}" 
 13710 G$(24,2)="{5SPACE}++++++++{7SPACE}" 
 13720 G$(24,3)="{4SPACE}++++++++++{6SPACE}" 
 13730 G$(24,4)="{3SPACE}++++++++++++{5SPACE}" 
 13740 G$(24,5)="{2SPACE}++++++++++++++{4SPACE}" 
 13750 G$(24,6)="{2SPACE}++++++++++++++{4SPACE}" 
 13760 G$(24,7)="{3SPACE}++++++++++++{5SPACE}" 
 13770 G$(24,8)="{4SPACE}++++++++++{6SPACE}" 
 13780 G$(24,9)="{8SPACE}++{10SPACE}" 
 13790 G$(24,10)="{6SPACE}NY++YM{8SPACE}" 
 13800 G$(24,11)="{6SPACE}MCCCCN{2SPACE,SHIFT-SPACE,5SPACE}" 
 13810 G$(24,12)="{8SPACE}++{10SPACE}" 
 13820 G$(24,13)="{5SPACE}++ ++ ++{7SPACE}" 
 13830 G$(24,14)="{3SPACE}++++ ++ ++++{5SPACE}" 
 13840 G$(24,15)=" ++++++ ++ ++++++{3SPACE}" 
 13850 G$(24,16)="{2SPACE}+++++{4SPACE}+++++{4SPACE}" 
 13860 G$(24,17)="{3SPACE}++++++++++++{5SPACE}" 
 13870 G$(24,18)="{20SPACE}" 
 13880 FOR I=1 TO24:READ LO$(I):FOR X=1 TO6:READ LO(I,X):NEXT :NEXT 
 13890 FOR I=1 TO33:READ G1$(I),G2$(I),G(I),T(I):NEXT 
 13900 FOR I=1 TO18:READ V$(I):NEXT :FOR I=1 TO6:READ R$(I):NEXT 
 13910 FOR I=1 TO6:A=INT (RND (0)*10):CO$=CO$+STR$ (A):NEXT :CO$=RIGHT$ (CO$,LEN (CO$)-1) 
 13911 LO=1:RETURN 
 13920 DATA BEIM PRAESIDENTEN,,,,,,,VOR DER GROSSEN CHINESISCHEN    MAUER,,,,3,,0 
 13930 DATA AN EINER ABZWEIGUNG,0,2,5,4,,,AN EINER WEGBIEGUNG,,3,6,,, 
 13940 DATA AM ENDE DES WEGES,3,,,,,,VOR HU CHANG FU'S WERKSTATT,4,0,0,0,0,0 
 13950 DATA AUF DEM BAUM,,,,,,5,AUF DER MAUER,,,,,,,IM KERKER,,,,,,0 
 13955 DATA IN EINEM GEHEIMGANG,,,,9,,0 
 13960 DATA "IN EINEM GEHEIMGANG, IN DEM DASWASSER KNIEHOCH STEHT",,,10,,,0 
 13970 DATA IN EINEM GROSSEN UNTERIRDISCHENSEE,13,12,12,13,11,0 
 13980 DATA IN EINEM GROSSEN UNTERIRDISCHENSEE,13,12,12,14,0,0 
 13990 DATA IN EINEM GROSSEN UNTERIRDISCHENSEE,12,13,13,12,0,0,UNTER WASSER,,,,,,0 
 14000 DATA IN EINEM FINSTEREN GANG,17,,,,,14,AM ENDE DES GANGES,,,16,,,0 
 14010 DATA IM BUERO VON LT. MC PERKINS,17,19,,,,,IN EINER SEITENECKE,,,,18,,0 
 14020 DATA IN EINEM UEBERWACHUNGSRAUM,0,21,,19,,0,IN EINER SICHERHEITSSCHLEUSE 
 14030 DATA 22,,,20,,,IN EINEM RAKETENSILO,,,21,,,,IM HIMMEL,,,,,,,"...",,,,,,0 
 14040 DATA EINE MAPPE,MAP,1,1,EINE WACHE,WAC,3,0,EINE BETAEUBTE WACHE,X,0,0 
 14050 DATA EINE I.D. KARTE,KAR,0,1,EINEN BAUM,BAU,5,0,EINE PISTOLE,PIS,0,1 
 14060 DATA EIN HUFEISEN,HUF,0,1,HUA CHANG FU,HUA,6,0,EINEN REPARIERTEN RAKETENRUCK 
 14070 DATA X,0,1,EIN SKELETT,SKE,7,0,EINEN RAKETENRUCKSACK,RUC,0,1,EINEN WACHTRUPP 
 14080 DATA TRU,8,0,EINEN KRUG,KRU,9,1,EINEN RING IN DER MAUER,RIN,0,1,EINEN GANG 
 14090 DATA GAN,0,0,EINEN OFFENEN KRUG,X,0,1,EINE BLEIPLATTE,PLA,10,1 
 14095 DATA EINEN FELSBLOCK,FEL,10,0,VIEL SAND,SAN,0,0,EINEN PRESSLUFTHAMMER,HAM 
 14100 DATA 11,0,EINEN KNOPF,KNO,0,0,EINE GUMMIENTE,ENT,13,1,EINE LUKE,LUK 
 14110 DATA 14,0,EINE OEFFNUNG,OEF,0,0,EINEN STEIN,STE,15,1,LT MC PERKINS,PER,18,0 
 14120 DATA EINEN ANHAENGER,ANH,0,1,EINEN ETWAS WEGGETRETENEN LEUTNANT,LEU,0,0 
 14130 DATA EINE PANZERTUER,TUE,19,0,EINEN RITZ,RIT,0,0,EINE OEFFENE PANZERTUER,X 
 14140 DATA 0,0,VIELE BILDSCHIRME,BIL,20,0,EINE TASTE,TAS,0,0 
 14160 DATA GEH,NIM,LEG,SCH,WER,GEB,STA,ZIE,OEF,LES,WAE,DRU,KLE,RUF,FUE,STE,TRI 
 14170 DATA SIE,NORDEN,OSTEN,SUEDEN,WESTEN,HOCH,RUNTER 
 14180 FOR YY=1 TO2000:NEXT :RETURN 
 14370 PRINT"ICH BIN TOT." 
 14380 PRINT"DAS HAST DU JA FEIN HINGEKRIEGT!!" 
 14390 GET A$:IF A$<>"" THENRUN 
 14400 GOTO 14390

Listing »Adventure 2000«. Beachten Sie bei der Eingabe bitte den Checksummer.