Der Spion, der aus dem VC 20 kam…

In diesem spannenden Spiel für den VC20 mit 16-KByte-Erweiterung haben Sie, der Spion im grünen Mantel, den geheimen Auftrag, gemäß Operationsplan Alpha den Tresor der kybernetischen Botschaft zu knacken und wichtige, sogar äußerst wichtige Unterlagen in Ihren Besitz zu bringen!

Der Haken an der Sache ist, daß Sie bestimmte Vorbedingungen zu erfüllen haben, um zum Ziel zu gelangen.

Aber selbst die Erfüllung dieser Bedingungen wird Ihnen durch bösartig gesonnene Botschaftsangehörige beträchtlich erschwert, da diese nämlich darauf aus sind, Sie an Ihrem Vorhaben zu hindern.

Und sollten Sie glauben, diesen Kleinigkeiten mühelos trotzen zu können, so müssen Sie bedenken, daß Sie von Runde zu Runde immer schläfriger werden und damit zunehmend an Geschwindigkeit verlieren!

Die Programmteile im einzelnen

Treppenhaus (Spielbeginn):

Ihre Figur (grün) bewegt sich im ganzen Treppenhaus allein hin und her. Um die Richtung zu ändern, muß man entsprechend den Joystick nach links oder rechts bewegen. Um in den Fahrstuhl zu gelangen, muß man den roten Knopf betätigen, sobald der Spion vor demselben steht. Daraufhin ertönt ein Gong und die Figur ist im Lift verschwunden. Drücken Sie jetzt den Joystick nach Wunsch hoch oder runter. Jedesmal hört man ein Zischen, welches zur Orientierung dient. Jedes Zischen entspricht einem Stockwerk auf- oder abwärts. Damit das Männchen wieder aussteigt, ist nochmals der Feuerknopf zu drücken.

Möchte man in ein Zimmer gehen, muß vor der gewünschten Tür ebenfalls wieder der rote Knopf betätigt werden.

Zimmer 1,1. Etage:

Dieser Raum ist am leichtesten »auszuräumen«. Daher kann er nur einmal in jedem Spiel betreten werden und ist nach dem Verlassen nicht mehr zugänglich. Es ist ratsam, möglichst viele »Einerpunkte« aufzusammeln.

Punkte können nur mit dem Mittelteil des Männchens aufgenommen werden, sie müssen also auf Armhöhe liegen! Ansonsten bringen sie keinen Gewinn.

Zimmer 2,1. Etage:

In diesem Raum läuft die Figur von selbst, wie im Treppenhaus. Man kann sie lediglich hoch oder runter bewegen. Im oberen Teil des Zimmers ist ein kleiner, querverlaufender Paternoster zu sehen. Dessen Richtung im oberen Teil kann durch Drücken des Feuerknopfes verändert werden.

In diesen Paternoster muß man eventuell einsteigen, um die anderen Partien des Raumes zu erreichen und um dort dann die Punkte aufzulesen. Schließlich muß man auch versuchen, durch geschicktes Manipulieren den Raum wieder über diesen Paternoster zu verlassen.

Wichtiger Hinweis

In Raum 1,1. Etage sowie in einigen anderen Räumen sieht man beim Betreten noch nicht sein grünes Männchen. Dieses wird erst erkennbar, sobald man den Joystick in eine mögliche Richtung bewegt.

In den »Paternosterräumen« kann es vorkommen, daß einige Punkte für das Männchen nicht erreichbar sind, da sie nicht mit dem Mittelteil aufgenommen werden können. Um sich unnötige Mühen zu ersparen, kann man den entsprechenden Raum noch einmal verlassen und sofort wieder betreten. Vielleicht ergibt sich dann eine günstigere Anordnung der Punkte.

Zimmer 3,2. Etage:

Bevor Sie den Raum betreten können, müssen Sie eine Paternosterkaskade überwinden. Sie befinden sich in der unteren rechten Ecke, sind aber noch nicht sichtbar. Sie müssen zunächst in den ersten Fahrstuhl durch Hochdrücken des Joysticks einsteigen. Wenn jedoch der Fahrstuhl noch nicht ganz da war, haben Sie eine Figur verloren.

Das Männchen bewegt sich mit dem jeweiligen Fahrstuhl selber fort. Man kann nach Belieben hoch und runter steigen, vorausgesetzt, man springt in ein leeres Feld.

Falls man an einem der beiden Querenden angelangt sein sollte, wird man wieder in die untere rechte Ecke versetzt.

Ziel ist es, am oberen rechten Rand auszusteigen.

Hat man das geschafft, gelangt man in einen Raum, in dem man sich wie in Raum 1 auf der ersten Etage zu verhalten hat.

Allerdings kann der Spieler diesen Raum beliebig oft betreten.

Zimmer 4,2. Etage:

In diesem Zimmer hat man sich genauso wie in Raum 2 auf der 1. Etage zu verhalten.

Zimmer 5, 3. Etage:

Um in diesen Raum, den Tresorraum, zu gelangen, braucht man den Schlüssel. Wenn man diesen besitzt, muß man zunächst nochmals eine Paternosterkaskade, wie bei Raum 3, 2. Etage, überwinden. Hat man dies geschafft, betritt man den Tresorraum. Nun muß der Spieler zum grünen Tresor laufen. Steht er unmittelbar unter diesem, öffnet er sich, falls man im Besitz der Identitycard und der Codenummer ist. Ansonsten wird entweder der elektrische Fußboden eingeschaltet oder der Tresor bleibt verschlossen.

Hat man den Tresor jedoch geknackt, so soll man die Botschaft, wie angezeigt, verlassen. Dazu ist es nötig, mit dem Fahrstuhl wieder ganz unten im Treppenhaus zu sein.

Hat man diese Aufgabe noch nicht erledigt, so muß man noch die entsprechend benötigten Gegenstände aufsammeln.

Nachdem man es einmal geschafft hat, den Tresor zu leeren und unversehrt die Botschaft zu verlassen, steigert sich der Schwierigkeitsgrad. Nun tauchen zwei Verfolger auf, während die Eigengeschwindigkeit um zwei E(inheiten) sinkt.

Bei jedem weiteren Erfolg setzt die Reduzierung fort.

Die Gegenstände, die man durch das Aufsammeln angehäuft hat, werden am unteren Bildrand des Treppenhauses angezeigt.

Mögliche Gegenstände sind:

Der Turnschuh — mit diesem wird man um eine Einheit (E) schneller (nur in den Räumen).
Der Schlüssel — dieser ist notwendig, um in den Tresorraum zu gelangen.
Die Identitycard — diese braucht man, um den elektrischen Fußboden im Tresorraum auszuschalten.
Die Brille — wenn man diese besitzt, wird man von den Verfolgern im Treppenhaus nicht mehr bemerkt.
Der Schraubenschlüssel — sobald man diesen besitzt, kann man im Treppenhaus den Fahrstuhl für die Verfolger außer Betrieb setzen. Man muß dazu in den 3. Stock fahren und dort vor das rote E-Kästchen (Elevator) laufen, um dann den Feuerknopf zu drücken. Daraufhin hört man ein Knacksen und der Fahrstuhl ist für die Verfolger nicht mehr in Betrieb. Man kann ihn aber durch Wiederholung der gleichen Prozedur wieder in Betrieb setzen.
Die Codenummer — diese braucht der Spieler, damit sich der Tresor auch öffnen läßt.

Nicht bei jedem Aufsammeln eines Punktes erhält man auch einen Gegenstand.

Laden und starten des Spiels

Wenn man den ersten Programmteil (Listing 1) abgetippt hat, so sollte man ihn vor dem Überprüfen erst abspeichern! Das Programm löscht sich nämlich nach Ablauf von selbst! Bevor man jedoch den zweiten Teil eintippt, muß der erste Programmteil abgelaufen sein, da er die Basic-Grenze sowie den Bildschirm im Speicher verlegt. Daher höchste Vorsicht, sonst war der viele Mühe Last umsonst.

Wenn man das Programm lädt, dann zuerst den Vorspann laden (Listing 1) und nach dessen Ablauf (READY-Meldung) das Hauptprogramm (Listing 2).

Variable	Bedeutung
A$(T)	Print-Höhe des Männchens
A(T)	Gegenstände
B(0), A(O)	Aufbewahrung der X- und Y-Position des Männchens im Fahrstuhl?
D, G, H, T, U	Zählvariablen
DX(T), DY(T)	Hoch und/oder seitwärts?
E	Schnelligkeit des Männchens
F	Y-Wert in den Etagen
I	Schnelligkeit der Aufzüge
K	Schon in Raum 1 gewesen?
M	Tresor geknackt?
N	Fahrstuhl besetzt?
O	Anzahl der Männchen
RS	Bildschirmanfang
R+P	Anfang des Farb-RAM
V	PEEK-Position des Männchens
W	Tür oder Stein?
X(T), Y(T)	X und Y positionieren
Z	Zufallszahlen

Variablenliste zu »Spion«

Vorprogramm	Zeichenumdefinierung Verlegung der umdefinierten Zeichen in einen anderen Speicherbereich Verschiebung von Basic-Beginn und Bild
Hauptprogramm
140 - 270	Maschinenspracheroutinen Joystick; Paternoster
280 - 350	Variablendefinierung
360 - 480	Bewegungen im Treppenhaus
490 - 610	Wiederherstellung der Etagen
620 - 750	Figur malen
760 - 800	Aufzug hoch und runter
810 - 900	Aufzug fährt (Zischen und Gong)
910 - 980	Welcher Raum?
990 - 1960	Malen der Räume
1970 - 2240	Bewegungen in Raum 1, 3 und 5
2250 - 2420	Auf einen Stein gestoßen?
2430 - 2460	Malen der Figur
2490 - 2510	Einen Punkt erwischt?
2520 - 2550	Lift außer Betrieb ? (Ton)
2560 - 2580	Bereit zum Tresorknacken?
2590 - 2660	Tresor geknackt? (Anzeige)
2670 - 2700	Männchen tot
2710 - 2980	lm Paternoster
2990 - Ende	In den Räumen 2 und 4

Programmabschnitte von »Spion«

petcat | Checksummer

100 rem*spion*axel*blau*
110 rem*hemmerdenerw.14*
120 rem*     gv 2      *
130 printchr$(147)"{down} {blk}n{wht}u{red}r {cyn}g{pur}e{grn}d{blu}u{yel}l{wht}d":poke36879,238
140 poke36878,13:fort=0to767:z=peek(32768+t):poke7168+t,z:next
150 fort=0to615:readz%:poke7168+t,z%:a=a+z%:poke36875,z%:next:poke36878,0
160 ifa<>70723thenprint"{clr}data fehler!":end
170 data3,7,15,24,9,15,6,3,192,224,240,24,144,240,96,192,7,25,61,55,118,111,126,63
180 data224,152,188,236,238,246,254,252,26,27,22,31,30,31,30,15
190 data216,216,232,248,248,248,248,240,3,7,15,31,8,12,6,3,192,224,240,248,16,48,96,192
200 data15,31,63,63,127,123,127,63,240,248,252,252,254,222,254,252
210 data47,31,31,31,31,30,29,15,244,248,248,248,248,120,184,240,1,7,15,24,9,15,6,1
220 data224,240,248,192,224,240,224,192,7,2,3,3,6,7,15,14
230 data224,224,192,224,224,112,112,240,13,13,14,15,15,15,11,7
240 data240,160,96,224,224,240,240,224,7,15,31,3,7,15,7,3,128,224,240,24,144,240,96,128
250 data7,7,3,7,7,14,14,15,224,64,192,192,96,224,240,112,15,5,6,7,7,15,15,7
260 data176,176,112,240,240,240,208,224,3,7,7,15,13,15,7,3
270 data192,224,224,240,176,240,224,192,3,7,7,15,15,15,7,3
280 data192,224,224,240,240,240,224,192,3,7,7,7,11,31,31,11
290 data128,192,192,224,224,224,192,128,1,3,3,7,7,7,3,1,9,9,8,12,15,,,
300 data,,,,,,,,248,24,8,200,8,8,136,8,192,224,224,224,208,248,248,208,8,200,8,24,248,,,
310 data255,255,240,192,192,192,192,192,255,255,15,3,3,3,3,3
320 data128,128,128,128,128,128,128,128,3,3,3,3,3,3,3,3,51,51,51,3,3,3,3,3
330 data255,255,192,192,192,192,192,192,255,255,128,128,128,128,128,128
340 data191,179,179,179,191,191,191,191,192,192,192,192,192,192,192,192
350 data179,179,179,191,179,179,179,191,192,192,192,192,192,192,255,255
360 data128,128,128,128,128,128,255,255,191,191,191,191,191,191,191,191
370 data127,254,194,254,130,255,195,254,252,14,78,234,170,26,90,174
380 data166,182,174,167,254,255,127,,174,74,10,250,14,254,252,
390 data,,,,28,62,119,99,96,96,96,96,96,96,96,96,56,124,238,206,238,198,124,56
400 data15,12,8,9,9,9,9,9,24,36,4,3,4,4,2,1,48,72,4,156,98,98,100,152
410 data,36,66,66,66,102,60,24,24,24,60,36,102,102,36,24,,15,28,24,16,24,31,15
420 data,192,176,46,11,7,255,254,1,3,7,15,31,63,127,255,255,255,255,255,255,126,126,60
430 data128,192,224,240,248,252,254,255,,24,60,102,102,126,60,24
440 data40,24,56,40,56,40,48,24,255,224,192,159,176,160,160,160,255,7,3,249,13,5,5,5
450 data160,160,160,162,161,161,161,162,5,5,5,69,133,133,133,69
460 data160,160,160,160,176,159,192,255,5,5,5,5,13,249,3,255
470 data248,248,248,248,248,248,248,248,,255,255,255,255,255,255,
480 data247,247,247,,223,223,223,
490 poke36869,208:poke648,20:printchr$(147)
500 fort=0to615:z=peek(7168+t):poke4096+t,z:next
510 fort=4712to5119:poket,234:next
520 poke44,22:poke5632,0:new

 100 REM *SPION*AXEL*BLAU* 
 110 REM *HEMMERDENERW.14* 
 120 REM *     GV 2      * 
 130 PRINTCHR$ (147)"{DOWN,SPACE,BLACK}N{WHITE}U{RED}R{SPACE,CYAN}G{PURPLE}E{GREEN}D{BLUE}U{YELLOW}L{WHITE}D":POKE 36879,238 
 140 POKE 36878,13:FOR T=0 TO767:Z=PEEK (32768+T):POKE 7168+T,Z:NEXT 
 150 FOR T=0 TO615:READ Z%:POKE 7168+T,Z%:A=A+Z%:POKE 36875,Z%:NEXT :POKE 36878,0 
 160 IF A<>70723 THENPRINT"{CLR}DATA FEHLER!":END 
 170 DATA 3,7,15,24,9,15,6,3,192,224,240,24,144,240,96,192,7,25,61,55,118,111,126,63 
 180 DATA 224,152,188,236,238,246,254,252,26,27,22,31,30,31,30,15 
 190 DATA 216,216,232,248,248,248,248,240,3,7,15,31,8,12,6,3,192,224,240,248,16,48,96,192 
 200 DATA 15,31,63,63,127,123,127,63,240,248,252,252,254,222,254,252 
 210 DATA 47,31,31,31,31,30,29,15,244,248,248,248,248,120,184,240,1,7,15,24,9,15,6,1 
 220 DATA 224,240,248,192,224,240,224,192,7,2,3,3,6,7,15,14 
 230 DATA 224,224,192,224,224,112,112,240,13,13,14,15,15,15,11,7 
 240 DATA 240,160,96,224,224,240,240,224,7,15,31,3,7,15,7,3,128,224,240,24,144,240,96,128 
 250 DATA 7,7,3,7,7,14,14,15,224,64,192,192,96,224,240,112,15,5,6,7,7,15,15,7 
 260 DATA 176,176,112,240,240,240,208,224,3,7,7,15,13,15,7,3 
 270 DATA 192,224,224,240,176,240,224,192,3,7,7,15,15,15,7,3 
 280 DATA 192,224,224,240,240,240,224,192,3,7,7,7,11,31,31,11 
 290 DATA 128,192,192,224,224,224,192,128,1,3,3,7,7,7,3,1,9,9,8,12,15,,, 
 300 DATA ,,,,,,,,248,24,8,200,8,8,136,8,192,224,224,224,208,248,248,208,8,200,8,24,248,,, 
 310 DATA 255,255,240,192,192,192,192,192,255,255,15,3,3,3,3,3 
 320 DATA 128,128,128,128,128,128,128,128,3,3,3,3,3,3,3,3,51,51,51,3,3,3,3,3 
 330 DATA 255,255,192,192,192,192,192,192,255,255,128,128,128,128,128,128 
 340 DATA 191,179,179,179,191,191,191,191,192,192,192,192,192,192,192,192 
 350 DATA 179,179,179,191,179,179,179,191,192,192,192,192,192,192,255,255 
 360 DATA 128,128,128,128,128,128,255,255,191,191,191,191,191,191,191,191 
 370 DATA 127,254,194,254,130,255,195,254,252,14,78,234,170,26,90,174 
 380 DATA 166,182,174,167,254,255,127,,174,74,10,250,14,254,252, 
 390 DATA ,,,,28,62,119,99,96,96,96,96,96,96,96,96,56,124,238,206,238,198,124,56 
 400 DATA 15,12,8,9,9,9,9,9,24,36,4,3,4,4,2,1,48,72,4,156,98,98,100,152 
 410 DATA ,36,66,66,66,102,60,24,24,24,60,36,102,102,36,24,,15,28,24,16,24,31,15 
 420 DATA ,192,176,46,11,7,255,254,1,3,7,15,31,63,127,255,255,255,255,255,255,126,126,60 
 430 DATA 128,192,224,240,248,252,254,255,,24,60,102,102,126,60,24 
 440 DATA 40,24,56,40,56,40,48,24,255,224,192,159,176,160,160,160,255,7,3,249,13,5,5,5 
 450 DATA 160,160,160,162,161,161,161,162,5,5,5,69,133,133,133,69 
 460 DATA 160,160,160,160,176,159,192,255,5,5,5,5,13,249,3,255 
 470 DATA 248,248,248,248,248,248,248,248,,255,255,255,255,255,255, 
 480 DATA 247,247,247,,223,223,223, 
 490 POKE 36869,208:POKE 648,20:PRINTCHR$ (147) 
 500 FOR T=0 TO615:Z=PEEK (7168+T):POKE 4096+T,Z:NEXT 
 510 FOR T=4712 TO5119:POKE T,234:NEXT 
 520 POKE 44,22:POKE 5632,0:NEW

Listing 1. Zeichendefinition zu »Spion«.

petcat | Checksummer

100 rem*spion*axel*blau*
110 rem*hemmerdenerweg 14*
120 rem*      gv2        *
130 data169,127,141,34,145,173,32,145,41,128,133,251,169,255,141,34
140 data145,173,31,145,41,28,24,101,251,133,251,173,31,145,41,32
150 data133,252,96
160 fort=828to862:reada:poket,a:next:e=5
170 dima$(20):a$(0)="{home}":fort=1to20:a$(t)=a$(t-1)+"{down}":next:o=4:d=1
180 poke36869,220:poke36879,8:x(0)=18:y(0)=18:dx(0)=1:x(1)=4:x(2)=12:y(1)=8:c=0:n=0
190 y(2)=13:sn=36877:p=5120:r=32768:sl=36878:dx(1)=1:dx(2)=-1:dx(3)=-1:dy(0)=1
200 y(3)=3:x(3)=9:s=5120
210 sm=36875:pokesl,11:gosub860:fort=1to2:ifx(t)<4orx(t)>18thenx(t)=15
220 next
230 sys828
240 ifpeek(252)=0thengoto590
250 ifc=1then630
260 ifpeek(251)=28thendx(0)=1:goto280
270 ifpeek(251)=140thendx(0)=-1:goto280
280 ifx(0)>17thendx(0)=-1:goto300
290 ifx(0)<4thendx(0)=1
300 x(0)=x(0)+dx(0):f=y(0):gosub490
310 fort=1tod:ifx(t)<4orx(t)>17thendx(t)=-dx(t)
320 ifx(1)=14andy(1)<>y(0)thengosub720
330 x(t)=x(t)+dx(t):f=y(t):gosub530
340 ifx(t)=x(0)andy(t)=y(0)anda(4)=0then2320
350 next:goto230
360 printa$(3)"{red}     {cyn},'   {red}8!  {blu},&-   {wht}L"
370 print"{red}     {cyn},(   {red}_#  {blu},&-   {wht}L"
380 print"{yel} 5   {cyn},'       {blu}./0   {wht}L{down}{down}":return
390 printa$(8)"{yel} 6{wht}L  {cyn},'   ,'  {blu},&-   {wht}L"
400 print"{yel} 6{wht}L  {cyn},(   ,(  {blu},&-   {wht}L"
410 print"{yel} 6{wht}L  {cyn},'   ,'  {blu}./0   {wht}L{down}{down}":return
420 printa$(13)"{yel} 6{wht}L  {cyn},'   ,'  {blu},&-   {wht}L"
430 print"{yel} 6{wht}L  {cyn},(   ,(  {blu},&-   {wht}L"
440 print"{yel} 6{wht}L  {cyn},'   ,'  {blu}./0   {wht}L{down}{down}":return
450 printa$(18)"{yel} 6{grn}LLLLLLLLLLLL{cyn},&-{grn}LLLL"
460 print"{yel} 6{grn}LLLLLLLLLLLL{cyn},&-{grn}LLLL"
470 print"{yel} 6{grn}LLLLLLLLLLLL{cyn}./0{grn}LLLL"
480 return
490 gosub580:onf+1gosub360,390,420,450
500 ifdx(0)=-1then520
510 printa$(y(0))tab(x(0))"{wht}rs{left}{left}{down}{grn}tu{left}{left}{down}vw":pokesn,254:pokesn,0:return
520 printa$(y(0))tab(x(0))"{wht}lm{left}{left}{down}{grn}no{left}{left}{down}pq":pokesn,254:pokesn,0:return
530 gosub580:ify(t)=y(0)andc=0then550
540 onf+1gosub360,390,420,450
550 ifdx(t)=-1then570
560 printa$(y(t))tab(x(t))"{wht}^"chr$(34):printtab(x(t))"{red}tu{left}{left}{down}vw":return
570 printa$(y(t))tab(x(t))"{wht}\]{left}{left}{down}{red}no{left}{left}{down}pq":return
580 f=(f-3)/5:return
590 ifx(0)=5andy(0)<17then780
600 ifx(0)=14andn=0then680
610 ifx(0)=10andy(0)<17then820
620 goto250
630 pokesl,5
640 ify(0)=18andm=1then2300
650 ifpeek(251)=152andy(0)>7theny(0)=y(0)-5:pokesn,253:fort=0to90:next:pokesn,0
660 ifpeek(251)=148andy(0)<14theny(0)=y(0)+5:pokesn,253:fort=0to90:next:pokesn,0
670 goto310
680 gosub770
690 ifc=1then710
700 gosub750:goto250
710 c=0:pokesn,11:goto250
720 ifn=1thenreturn
730 gosub770:gosub750:c=0:pokesn,253:y(1)=y(0):dx(1)=dx(0)
740 forg=0to90:next:pokesn,0:gosub770:return
750 printa$(3)tab(14)"{blu},&{left}{left}{down},&{left}{left}{down}./{left}{left}{down}{down}{down},&{left}{left}{down},&{left}{left}{down}./{left}{left}{down}{down}{down},&{left}{left}{down},&{left}{left}{down}./{left}{left}{down}{down}{down}{cyn},&{left}{left}{down},&{left}{left}{down}";
760 print"./":c=1:return
770 pokesm,190:forg=11to0step-1:pokesl,g:forh=0to20:next:next:pokesm,0:pokesl,11:return
780 f=y(0):gosub580:f=f+1:iff=1anda(2)=1thengosub1490:goto1620
790 iff=2thengosub1380:goto1620
800 iff=3thengosub1150:goto1620
810 goto250
820 f=y(0):gosub580:f=f+1:iff=1anda(5)=1thengosub2170:goto250
830 iff=2thengosub1260:goto1620
840 iff=3thengosub1380:goto1620
850 goto250
860 ifa(1)=1ande<6thene=e+1
870 print"{clr}{red}  ?{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}A"
880 print" ?{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}A"
890 print"{up}{wht}     {cyn}$%       {blu})*+   {wht}L"
900 print"{red}     {cyn},'   {red}8!  {blu},&-   {wht}L"
910 print"{red}     {cyn},(   {red}_#  {blu},&-   {wht}L"
920 print"{yel} 5   {cyn},'       {blu}./0   {wht}L"
930 print"{yel} 6{wht}LLLLLLLLLLLLLLLLLLL"
940 print"{yel} 6{wht}L  {cyn}$%   $%  {blu})*+   {wht}L"
950 print"{yel} 6{wht}L  {cyn},'   ,'  {blu},&-   {wht}L"
960 print"{yel} 6{wht}L  {cyn},(   ,(  {blu},&-   {wht}L"
970 print"{yel} 6{wht}L  {cyn},'   ,'  {blu}./0   {wht}L"
980 print"{yel} 6{wht}LLLLLLLLLLLLLLLLLLL"
990 print"{yel} 6{wht}L  {cyn}$%   $%  {blu})*+   {wht}L"
1000 print"{yel} 6{wht}L  {cyn},'   ,'  {blu},&-   {wht}L"
1010 print"{yel} 6{wht}L  {cyn},(   ,(  {blu},&-   {wht}L"
1020 print"{yel} 6{wht}L  {cyn},'   ,'  {blu}./0   {wht}L"
1030 print"{yel} 6{wht}LLLLLLLLLLLLLLLLLLL"
1040 print"{yel} 6{grn}LLLLLLLLLLLL{cyn})*+{grn}LLLL"
1050 print"{yel} 6{grn}LLLLLLLLLLLL{cyn},&-{grn}LLLL"
1060 print"{yel} 6{grn}LLLLLLLLLLLL{cyn},&-{grn}LLLL"
1070 print"{yel} 6{grn}LLLLLLLLLLLL{cyn}./0{grn}LLLL"
1080 ifa(1)=1thenprinta$(20)"{rght}{down}{down}{wht}=>";
1090 ifa(2)=1thenprinta$(20)spc(5)"{down}{cyn}B{down}{left}C";
1100 ifa(3)=1thenprinta$(20)spc(8)"{down}{blu}12{left}{left}{down}34";
1110 ifa(4)=1thenprinta$(20)spc(12)"{down}{down}{grn}9:";
1120 ifa(5)=1thenprinta$(20)spc(16)"{down}{yel};{left}{down}<";
1130 ifa(6)=1thenprinta$(20)spc(19)"{down}{down}{red}7";
1140 return
1150 print"{clr}{wht}LLLLLLLLLLLLLLLLLLLLLLL         L          LL         L          L";
1160 print"L         L          LL      L  L       L  L";
1170 print"L  {grn}7{wht}   L  L {red}7{wht}     L  LL      L  L       L  L";
1180 print"LLLLL{cyn}KK{wht}L  LLL  LLLL  LL              {cyn}J{wht}     L";
1190 print"L         {yel}7{wht}    {cyn}J{wht}     LL              {cyn}J{wht}     L";
1200 print"L  LLLLL{cyn}KK{wht}LLLLLLL    LL               L    L";
1210 print"L               L    LL               L    L";
1220 print"LLLL  LLLLLLL{cyn}KK{wht}LL  LLLL     {cyn}J{wht}     L        L";
1230 print"L     {cyn}J{wht}     L        LL     {cyn}J{wht}  {pur}7{wht}  L        L";
1240 print"L     L        L     LL     L        L     L";
1250 print"L     L        L     LLL  LLLLLLLLLLLLLLLLL";:poke5625,76:return
1260 print"{clr}{wht}LLLLLLLLLLLLLLLLLLLLLLL        L           L";
1270 print"L {red}7{wht}      L      {blu}7{wht}    LL        L           L";
1280 print"L   LLL  LLL{cyn}KK{wht}LLLLL  LL   L                L";
1290 print"L{cyn}KK{wht}LL {yel}7{wht}              LL                    L";
1300 print"L        L{cyn}KK{wht}LLL  LLLLLL        L           L";
1310 print"L  LLLL{cyn}KK{wht}L           LL                    L";
1320 print"L           L        LL           L{cyn}KK{wht}LLLLLLL";
1330 print"LLLL  LLLL           LL     {cyn}J{wht}  L         {pur}7{wht} L";
1340 print"L     {cyn}J{wht}  L           LL     {cyn}J{wht}  L     L  LLLL";
1350 print"L  LLLL  L  LLLL     LL     L              L";
1360 print"L     L          {cyn}7{wht}   LL     L              L";
1370 print"LL  LLLLLLLLLLLLLLLLL";:poke5625,76:return
1380 print"{clr}{wht}LLLLLLLLLLLLLLLLLLLLLLL     L      L       L";
1390 print"L     L      L       LL   {red}7{wht} L {cyn}7{wht}         {pur}7{wht}  L";
1400 print"L     L              LL     L              L";
1410 print"L  LLLLLLLL{cyn}KK{wht}LLLLLL  LL            L       L";
1420 print"L            L  {blu}7{wht}    LL            L       L";
1430 print"L  L  LLLLLLLL  LLLLLLL  L                 L";
1440 print"L  L      {grn}7{wht}          LL  L                 L";
1450 print"L  LL{cyn}KK{wht}LLLLLLLLLLLL  LL                    L";
1460 print"L                    LL                    L";
1470 print"LLLLL  L  LLLLLLLLL  LL      L      L      LL      L      L 7    L";
1480 print"L      L      L      LLL  LLLLLLLLLLLLLLLLL";:poke5625,76:return
1490 print"{clr}{wht}LLLLLLLLLLLLLLLLLLLLLLL    L     L     L   L";
1500 print"{clr}{wht}LLLLLLLLLLLLLLLLLLLLLLL    L     L     L   L";
1510 print"L                    LL                    L";
1520 print"L       L     L      LLLLLL  LLLL  LLLL  LLL";
1530 print"L            {cyn}J{wht}       LL            {cyn}J{wht}       L";
1540 print"L            {cyn}J{wht}       LL  LLL{cyn}KK{wht}LLLLLLLLLLL  L";
1550 print"L  L                 LL  L                 L";
1560 print"L  L                 LL  L  LLL  LLLLLLLLLLL";
1570 print"L  L    L    L{cyn}DE{wht}Lxy  LL  L    L    L{cyn}FG{wht}L{blu}bc{wht}  L";
1580 print"L  L    L    L{cyn}HI{wht}L{blu}de{wht}  LL  LLL  LLL  LLLLLL  L";
1590 print"L    L               LL    L               L";
1600 print"L    L               LL    L               L";
1610 print"LL  LLLLLLLLLLLLLLLLL";:poke5625,76:return
1620 foru=0to2:b(u)=y(u):next:a(0)=x(0):y(0)=19:x(0)=2:y(1)=1:x(1)=14:y(2)=19:x(2)=11
1630 foru=1toe:dy(0)=1:dx(0)=1:sys828:t=0
1640 ifx(0)=2andy(0)=20then:foru=0to2:y(u)=b(u):next:x(0)=a(0):goto210
1650 ifpeek(251)=152thenw=73:gosub1900:y(0)=y(0)-dy(0):gosub2000:goto1690
1660 ifpeek(251)=148thenw=73:gosub1920:y(0)=y(0)+dy(0):gosub1980:goto1690
1670 ifpeek(251)=140thenw=73:gosub1940:x(0)=x(0)-dx(0):gosub2020:goto1690
1680 ifpeek(251)=28thenw=73:gosub1960:x(0)=x(0)+dx(0):gosub2050
1690 ifx(0)=x(1)andy(0)=y(1)then2320
1700 ifx(0)=x(2)andy(0)=y(2)andd=2then2320
1710 ifx(0)=14andy(0)=18thengosub2210
1720 next
1730 fort=1tod:ify(t)=y(0)then1810
1740 ify(t)<y(0)then1780
1750 dy(t)=1:w=75:gosub1900:ifdy(t)=0then1820
1760 ifpeek(s+22*(y(t)-1)+x(t))=75thenprinta$(y(t))spc(x(t))"{rght}{rght}{cyn}J{left}{down}J{left}{down}J";
1770 y(t)=y(t)-dy(t):gosub2090:goto1890
1780 dy(t)=1:w=75:gosub1920:ifdy(t)=0then1820
1790 ifpeek(s+22*(y(t)+3)+x(t))=75thenprinta$(y(t)+4)spc(x(t))"{rght}{rght}{cyn}J{left}{down}J{left}{down}J";
1800 y(t)=y(t)+dy(t):gosub2080:goto1890
1810 ifx(t)=x(0)then1890
1820 ifx(t)<x(0)then1860
1830 dx(t)=1:w=75:gosub1940:ifdx(t)=0then1860
1840 ifpeek(s+22*y(t)+x(t)-1)=74thenprinta$(y(t))spc(x(t)-3)"{up}{cyn}KK";
1850 x(t)=x(t)-dx(t):gosub2110:goto1890
1860 dx(t)=1:w=75:gosub1960:ifdx(t)=0then1890
1870 ifpeek(s+22*y(t)+x(t)+2)=74thenprinta$(y(t))spc(x(t))"{up}{cyn}KK";
1880 x(t)=x(t)+dx(t):gosub2100
1890 next:goto1630
1900 v=s+22*y(t)+x(t):ifpeek(v-22)>worpeek(v-21)>wthendy(t)=0
1910 return
1920 v=s+22*y(t)+x(t):ifpeek(v+66)>worpeek(v+67)>wthendy(t)=0
1930 return
1940 v=s+22*y(t)+x(t):ifpeek(v-1)>worpeek(v+21)>worpeek(v+43)>wthendx(t)=0
1950 return
1960 v=s+22*y(t)+x(t):ifpeek(v+2)>worpeek(v+24)>worpeek(v+46)>wthendx(t)=0
1970 return
1980 ifdy(0)>0thenprinta$(y(0))spc(x(0))"{up}  {left}{left}{down}{wht}@a{left}{left}{down}{grn}bc{left}{left}{down}de";:pokesn,254:pokesn,0
1990 return
2000 ifdy(0)>0thenprinta$(y(0))spc(x(0))"{wht}fg{left}{left}{down}{grn}hi{left}{left}{down}jk{left}{left}{down}  ";:pokesn,254:pokesn,0
2010 return
2020 ifpeek(p+22*(y(0)+1)+x(0))=55thengosub2120
2030 ifdx(0)>0thenprinta$(y(0))spc(x(0))"{wht}lm {left}{left}{left}{down}{grn}no {left}{left}{left}{down}pq ";:pokesn,254:pokesn,0
2040 return
2050 ifpeek(p+22*(y(0)+1)+x(0)+1)=55thengosub2120
2060 ifdx(0)>0thenprinta$(y(0))spc(x(0))"{left}{wht} rs{left}{left}{left}{down}{grn} tu{left}{left}{left}{down} vw";:pokesn,254:pokesn,0
2070 return
2080 printa$(y(t))spc(x(t))"{up}  {left}{left}{down}{wht}xy{left}{left}{down}{red}bc{left}{left}{down}de";:return
2090 printa$(y(t))spc(x(t))"{wht}z[{left}{left}{down}{red}hi{left}{left}{down}jk{left}{left}{down}  ";:return
2100 printa$(y(t))spc(x(t))"{left}{wht} ^{left}{left}{down}{red} tu{left}{left}{left}{down} vw";:print"{left}{up}{up}{wht}"chr$(34):return
2110 printa$(y(t))spc(x(t))"{wht}\] {left}{left}{left}{down}{red}no {left}{left}{left}{down}pq {left}{left}{left}{down}";:return
2120 z=int(rnd(1)*3):ifz=1then2140
2130 return
2140 a(2)=1:z=int(rnd(1)*7)
2150 ifa(z+1)=0thena(z+1)=1:return
2160 a(7)=0:goto2140
2170 pokesl,5:fort=1to10:pokesn,230+int(rnd(1)*20):forg=1to15:next
2180 forh=25to1step-1:pokesl,0:next:pokesl,4:next:pokesn,0:pokesl,11
2190 ifn=1thenn=0:return
2200 n=1:return
2210 ifa(3)=0then2240
2220 ifa(6)=1then2280
2230 return
2240 printa$(14)spc(17)"{wht}\]{left}{left}{down}{blu}no{left}{left}{down}pq";:pokesn,200
2250 print"{up}{up}{up}KK{left}{left}{down}JJ{left}{left}{down}KK{left}{left}{down}JJ{left}{left}{down}KK{left}{left}{left}{left}{left}{left}{left}{left}{down}JJJJJJJJ{left}{left}{left}{left}{left}{left}{left}{left}{down}KKKKKKKK";
2260 print"{left}{left}{left}{left}{left}{left}{left}{left}{down}JJJJJJJJ{left}{left}{left}{left}{left}{left}{left}{left}{down}KKKKKKKK";:fort=11to0step-1:pokesl,t:next:pokesn,0
2270 pokesl,11:fort=1to6000:next:goto2320
2280 poke36869,208:print"{clr}"a$(4)"{rght}{rght}{rght}{yel}congratulations!":m=1
2290 printa$(6)"now leave the embassy!":fort=1to3000:next:poke36869,220:gosub1490:return
2300 ife>2thene=e-2
2310 fort=1to5000:next:m=0:n=0:d=2:fort=1to6:a(t)=0:next:goto180
2320 fort=128to255:pokesn,t:pokesm,t
2330 next:pokesm,0:pokesn,0:o=o-1
2340 ifo=0thenpoke36869,208:print"{clr}{down}{down}{wht}end of your mission":end
2350 goto180

 100 REM *SPION*AXEL*BLAU* 
 110 REM *HEMMERDENERWEG 14* 
 120 REM *      GV2        * 
 130 DATA 169,127,141,34,145,173,32,145,41,128,133,251,169,255,141,34 
 140 DATA 145,173,31,145,41,28,24,101,251,133,251,173,31,145,41,32 
 150 DATA 133,252,96 
 160 FOR T=828 TO862:READ A:POKE T,A:NEXT :E=5 
 170 DIM A$(20):A$(0)="{HOME}":FOR T=1 TO20:A$(T)=A$(T-1)+"{DOWN}":NEXT :O=4:D=1 
 180 POKE 36869,220:POKE 36879,8:X(0)=18:Y(0)=18:DX(0)=1:X(1)=4:X(2)=12:Y(1)=8:C=0:N=0 
 190 Y(2)=13:SN=36877:P=5120:R=32768:SL=36878:DX(1)=1:DX(2)=-1:DX(3)=-1:DY(0)=1 
 200 Y(3)=3:X(3)=9:S=5120 
 210 SM=36875:POKE SL,11:GOSUB 860:FOR T=1 TO2:IF X(T)<4OR X(T)>18 THENX(T)=15 
 220 NEXT 
 230 SYS 828 
 240 IF PEEK (252)=0 THENGOTO 590 
 250 IF C=1 THEN630 
 260 IF PEEK (251)=28 THENDX(0)=1:GOTO 280 
 270 IF PEEK (251)=140 THENDX(0)=-1:GOTO 280 
 280 IF X(0)>17 THENDX(0)=-1:GOTO 300 
 290 IF X(0)<4 THENDX(0)=1 
 300 X(0)=X(0)+DX(0):F=Y(0):GOSUB 490 
 310 FOR T=1 TOD:IF X(T)<4OR X(T)>17 THENDX(T)=-DX(T) 
 320 IF X(1)=14AND Y(1)<>Y(0) THENGOSUB 720 
 330 X(T)=X(T)+DX(T):F=Y(T):GOSUB 530 
 340 IF X(T)=X(0)AND Y(T)=Y(0)AND A(4)=0 THEN2320 
 350 NEXT :GOTO 230 
 360 PRINTA$(3)"{RED,5SPACE,CYAN},'{3SPACE,RED}8!{2SPACE,BLUE},&-{3SPACE,WHITE}L" 
 370 PRINT"{RED,5SPACE,CYAN},({3SPACE,RED}←#{2SPACE,BLUE},&-{3SPACE,WHITE}L" 
 380 PRINT"{YELLOW,SPACE}5{3SPACE,CYAN},'{7SPACE,BLUE}./0{3SPACE,WHITE}L{2DOWN}":RETURN 
 390 PRINTA$(8)"{YELLOW,SPACE}6{WHITE}L{SPACE,SPACE,CYAN},'{3SPACE},'{2SPACE,BLUE},&-{3SPACE,WHITE}L" 
 400 PRINT"{YELLOW,SPACE}6{WHITE}L{SPACE,SPACE,CYAN},({3SPACE},({2SPACE,BLUE},&-{3SPACE,WHITE}L" 
 410 PRINT"{YELLOW,SPACE}6{WHITE}L{SPACE,SPACE,CYAN},'{3SPACE},'{2SPACE,BLUE}./0{3SPACE,WHITE}L{2DOWN}":RETURN 
 420 PRINTA$(13)"{YELLOW,SPACE}6{WHITE}L{SPACE,SPACE,CYAN},'{3SPACE},'{2SPACE,BLUE},&-{3SPACE,WHITE}L" 
 430 PRINT"{YELLOW,SPACE}6{WHITE}L{SPACE,SPACE,CYAN},({3SPACE},({2SPACE,BLUE},&-{3SPACE,WHITE}L" 
 440 PRINT"{YELLOW,SPACE}6{WHITE}L{SPACE,SPACE,CYAN},'{3SPACE},'{2SPACE,BLUE}./0{3SPACE,WHITE}L{2DOWN}":RETURN 
 450 PRINTA$(18)"{YELLOW,SPACE}6{GREEN}LLLLLLLLLLLL{CYAN},&-{GREEN}LLLL" 
 460 PRINT"{YELLOW,SPACE}6{GREEN}LLLLLLLLLLLL{CYAN},&-{GREEN}LLLL" 
 470 PRINT"{YELLOW,SPACE}6{GREEN}LLLLLLLLLLLL{CYAN}./0{GREEN}LLLL" 
 480 RETURN 
 490 GOSUB 580:ON F+1GOSUB 360,390,420,450 
 500 IF DX(0)=-1 THEN520 
 510 PRINTA$(Y(0))TAB( X(0))"{WHITE}RS{2LEFT,DOWN,GREEN}TU{LEFT,LEFT,DOWN}VW":POKE SN,254:POKE SN,0:RETURN 
 520 PRINTA$(Y(0))TAB( X(0))"{WHITE}LM{2LEFT,DOWN,GREEN}NO{LEFT,LEFT,DOWN}PQ":POKE SN,254:POKE SN,0:RETURN 
 530 GOSUB 580:IF Y(T)=Y(0)AND C=0 THEN550 
 540 ON F+1GOSUB 360,390,420,450 
 550 IF DX(T)=-1 THEN570 
 560 PRINTA$(Y(T))TAB( X(T))"{WHITE}↑"CHR$ (34):PRINTTAB( X(T))"{RED}TU{LEFT,LEFT,DOWN}VW":RETURN 
 570 PRINTA$(Y(T))TAB( X(T))"{WHITE}£]{2LEFT,DOWN,RED}NO{LEFT,LEFT,DOWN}PQ":RETURN 
 580 F=(F-3)/5:RETURN 
 590 IF X(0)=5AND Y(0)<17 THEN780 
 600 IF X(0)=14AND N=0 THEN680 
 610 IF X(0)=10AND Y(0)<17 THEN820 
 620 GOTO 250 
 630 POKE SL,5 
 640 IF Y(0)=18AND M=1 THEN2300 
 650 IF PEEK (251)=152AND Y(0)>7 THENY(0)=Y(0)-5:POKE SN,253:FOR T=0 TO90:NEXT :POKE SN,0 
 660 IF PEEK (251)=148AND Y(0)<14 THENY(0)=Y(0)+5:POKE SN,253:FOR T=0 TO90:NEXT :POKE SN,0 
 670 GOTO 310 
 680 GOSUB 770 
 690 IF C=1 THEN710 
 700 GOSUB 750:GOTO 250 
 710 C=0:POKE SN,11:GOTO 250 
 720 IF N=1 THENRETURN 
 730 GOSUB 770:GOSUB 750:C=0:POKE SN,253:Y(1)=Y(0):DX(1)=DX(0) 
 740 FOR G=0 TO90:NEXT :POKE SN,0:GOSUB 770:RETURN 
 750 PRINTA$(3)TAB( 14)"{BLUE},&{2LEFT,DOWN},&{2LEFT,DOWN}./{2LEFT,3DOWN},&{2LEFT,DOWN},&{2LEFT,DOWN}./{2LEFT,3DOWN},&{2LEFT,DOWN},&{2LEFT,DOWN}./{2LEFT,3DOWN,CYAN},&{2LEFT,DOWN},&{LEFT,LEFT,DOWN}"; 
 760 PRINT"./":C=1:RETURN 
 770 POKE SM,190:FOR G=11 TO0STEP -1:POKE SL,G:FOR H=0 TO20:NEXT :NEXT :POKE SM,0:POKE SL,11:RETURN 
 780 F=Y(0):GOSUB 580:F=F+1:IF F=1AND A(2)=1 THENGOSUB 1490:GOTO 1620 
 790 IF F=2 THENGOSUB 1380:GOTO 1620 
 800 IF F=3 THENGOSUB 1150:GOTO 1620 
 810 GOTO 250 
 820 F=Y(0):GOSUB 580:F=F+1:IF F=1AND A(5)=1 THENGOSUB 2170:GOTO 250 
 830 IF F=2 THENGOSUB 1260:GOTO 1620 
 840 IF F=3 THENGOSUB 1380:GOTO 1620 
 850 GOTO 250 
 860 IF A(1)=1AND E<6 THENE=E+1 
 870 PRINT"{CLR,RED,2SPACE}?*****************A" 
 880 PRINT" ?*******************A" 
 890 PRINT"{UP,WHITE,5SPACE,CYAN}$%{7SPACE,BLUE})*+{3SPACE,WHITE}L" 
 900 PRINT"{RED,5SPACE,CYAN},'{3SPACE,RED}8!{2SPACE,BLUE},&-{3SPACE,WHITE}L" 
 910 PRINT"{RED,5SPACE,CYAN},({3SPACE,RED}←#{2SPACE,BLUE},&-{3SPACE,WHITE}L" 
 920 PRINT"{YELLOW,SPACE}5{3SPACE,CYAN},'{7SPACE,BLUE}./0{3SPACE,WHITE}L" 
 930 PRINT"{YELLOW,SPACE}6{WHITE}LLLLLLLLLLLLLLLLLLL" 
 940 PRINT"{YELLOW,SPACE}6{WHITE}L{SPACE,SPACE,CYAN}$%{3SPACE}$%{2SPACE,BLUE})*+{3SPACE,WHITE}L" 
 950 PRINT"{YELLOW,SPACE}6{WHITE}L{SPACE,SPACE,CYAN},'{3SPACE},'{2SPACE,BLUE},&-{3SPACE,WHITE}L" 
 960 PRINT"{YELLOW,SPACE}6{WHITE}L{SPACE,SPACE,CYAN},({3SPACE},({2SPACE,BLUE},&-{3SPACE,WHITE}L" 
 970 PRINT"{YELLOW,SPACE}6{WHITE}L{SPACE,SPACE,CYAN},'{3SPACE},'{2SPACE,BLUE}./0{3SPACE,WHITE}L" 
 980 PRINT"{YELLOW,SPACE}6{WHITE}LLLLLLLLLLLLLLLLLLL" 
 990 PRINT"{YELLOW,SPACE}6{WHITE}L{SPACE,SPACE,CYAN}$%{3SPACE}$%{2SPACE,BLUE})*+{3SPACE,WHITE}L" 
 1000 PRINT"{YELLOW,SPACE}6{WHITE}L{SPACE,SPACE,CYAN},'{3SPACE},'{2SPACE,BLUE},&-{3SPACE,WHITE}L" 
 1010 PRINT"{YELLOW,SPACE}6{WHITE}L{SPACE,SPACE,CYAN},({3SPACE},({2SPACE,BLUE},&-{3SPACE,WHITE}L" 
 1020 PRINT"{YELLOW,SPACE}6{WHITE}L{SPACE,SPACE,CYAN},'{3SPACE},'{2SPACE,BLUE}./0{3SPACE,WHITE}L" 
 1030 PRINT"{YELLOW,SPACE}6{WHITE}LLLLLLLLLLLLLLLLLLL" 
 1040 PRINT"{YELLOW,SPACE}6{GREEN}LLLLLLLLLLLL{CYAN})*+{GREEN}LLLL" 
 1050 PRINT"{YELLOW,SPACE}6{GREEN}LLLLLLLLLLLL{CYAN},&-{GREEN}LLLL" 
 1060 PRINT"{YELLOW,SPACE}6{GREEN}LLLLLLLLLLLL{CYAN},&-{GREEN}LLLL" 
 1070 PRINT"{YELLOW,SPACE}6{GREEN}LLLLLLLLLLLL{CYAN}./0{GREEN}LLLL" 
 1080 IF A(1)=1 THENPRINTA$(20)"{RIGHT,2DOWN,WHITE}=>"; 
 1090 IF A(2)=1 THENPRINTA$(20)SPC( 5)"{DOWN,CYAN}B{DOWN,LEFT}C"; 
 1100 IF A(3)=1 THENPRINTA$(20)SPC( 8)"{DOWN,BLUE}12{2LEFT,DOWN}34"; 
 1110 IF A(4)=1 THENPRINTA$(20)SPC( 12)"{2DOWN,GREEN}9:"; 
 1120 IF A(5)=1 THENPRINTA$(20)SPC( 16)"{DOWN,YELLOW};{LEFT,DOWN}<"; 
 1130 IF A(6)=1 THENPRINTA$(20)SPC( 19)"{2DOWN,RED}7"; 
 1140 RETURN 
 1150 PRINT"{CLR,WHITE}LLLLLLLLLLLLLLLLLLLLLLL{9SPACE}L{10SPACE}LL{9SPACE}L{10SPACE}L"; 
 1160 PRINT"L{9SPACE}L{10SPACE}LL{6SPACE}L{2SPACE}L{7SPACE}L{2SPACE}L"; 
 1170 PRINT"L{2SPACE,GREEN}7{WHITE,3SPACE}L{2SPACE}L{SPACE,RED}7{WHITE,5SPACE}L{2SPACE}LL{6SPACE}L{2SPACE}L{7SPACE}L{2SPACE}L"; 
 1180 PRINT"LLLLL{CYAN}KK{WHITE}L{2SPACE}LLL{2SPACE}LLLL{SPACE,SPACE}LL{14SPACE,CYAN}J{WHITE,5SPACE}L"; 
 1190 PRINT"L{9SPACE,YELLOW}7{WHITE,4SPACE,CYAN}J{WHITE,5SPACE}LL{14SPACE,CYAN}J{WHITE,5SPACE}L"; 
 1200 PRINT"L{2SPACE}LLLLL{CYAN}KK{WHITE}LLLLLLL{SPACE,3SPACE}LL{15SPACE}L{4SPACE}L"; 
 1210 PRINT"L{15SPACE}L{4SPACE}LL{15SPACE}L{4SPACE}L"; 
 1220 PRINT"LLLL{2SPACE}LLLLLLL{CYAN}KK{WHITE}LL{SPACE,SPACE}LLLL{5SPACE,CYAN}J{WHITE,5SPACE}L{8SPACE}L"; 
 1230 PRINT"L{5SPACE,CYAN}J{WHITE,5SPACE}L{8SPACE}LL{5SPACE,CYAN}J{WHITE,2SPACE,PURPLE}7{WHITE,2SPACE}L{8SPACE}L"; 
 1240 PRINT"L{5SPACE}L{8SPACE}L{5SPACE}LL{5SPACE}L{8SPACE}L{5SPACE}L"; 
 1250 PRINT"L{5SPACE}L{8SPACE}L{5SPACE}LLL{2SPACE}LLLLLLLLLLLLLLLLL";:POKE 5625,76:RETURN 
 1260 PRINT"{CLR,WHITE}LLLLLLLLLLLLLLLLLLLLLLL{8SPACE}L{11SPACE}L"; 
 1270 PRINT"L{SPACE,RED}7{WHITE,6SPACE}L{6SPACE,BLUE}7{WHITE,4SPACE}LL{8SPACE}L{11SPACE}L"; 
 1280 PRINT"L{3SPACE}LLL{2SPACE}LLL{CYAN}KK{WHITE}LLLLL{SPACE,SPACE}LL{3SPACE}L{16SPACE}L"; 
 1290 PRINT"L{CYAN}KK{WHITE}LL{SPACE,YELLOW}7{WHITE,14SPACE}LL{20SPACE}L"; 
 1300 PRINT"L{8SPACE}L{CYAN}KK{WHITE}LLL{SPACE,SPACE}LLLLLL{8SPACE}L{11SPACE}L"; 
 1310 PRINT"L{2SPACE}LLLL{CYAN}KK{WHITE}L{SPACE,10SPACE}LL{20SPACE}L"; 
 1320 PRINT"L{11SPACE}L{8SPACE}LL{11SPACE}L{CYAN}KK{WHITE}LLLLLLL"; 
 1330 PRINT"LLLL{2SPACE}LLLL{11SPACE}LL{5SPACE,CYAN}J{WHITE,2SPACE}L{9SPACE,PURPLE}7{WHITE,SPACE}L"; 
 1340 PRINT"L{5SPACE,CYAN}J{WHITE,2SPACE}L{11SPACE}LL{5SPACE,CYAN}J{WHITE,2SPACE}L{5SPACE}L{2SPACE}LLLL"; 
 1350 PRINT"L{2SPACE}LLLL{2SPACE}L{2SPACE}LLLL{5SPACE}LL{5SPACE}L{14SPACE}L"; 
 1360 PRINT"L{5SPACE}L{10SPACE,CYAN}7{WHITE,3SPACE}LL{5SPACE}L{14SPACE}L"; 
 1370 PRINT"LL{2SPACE}LLLLLLLLLLLLLLLLL";:POKE 5625,76:RETURN 
 1380 PRINT"{CLR,WHITE}LLLLLLLLLLLLLLLLLLLLLLL{5SPACE}L{6SPACE}L{7SPACE}L"; 
 1390 PRINT"L{5SPACE}L{6SPACE}L{7SPACE}LL{3SPACE,RED}7{WHITE,SPACE}L{SPACE,CYAN}7{WHITE,9SPACE,PURPLE}7{WHITE,2SPACE}L"; 
 1400 PRINT"L{5SPACE}L{14SPACE}LL{5SPACE}L{14SPACE}L"; 
 1410 PRINT"L{2SPACE}LLLLLLLL{CYAN}KK{WHITE}LLLLLL{SPACE,SPACE}LL{12SPACE}L{7SPACE}L"; 
 1420 PRINT"L{12SPACE}L{2SPACE,BLUE}7{WHITE,4SPACE}LL{12SPACE}L{7SPACE}L"; 
 1430 PRINT"L{2SPACE}L{2SPACE}LLLLLLLL{2SPACE}LLLLLLL{2SPACE}L{17SPACE}L"; 
 1440 PRINT"L{2SPACE}L{6SPACE,GREEN}7{WHITE,10SPACE}LL{2SPACE}L{17SPACE}L"; 
 1450 PRINT"L{2SPACE}LL{CYAN}KK{WHITE}LLLLLLLLLLLL{SPACE,SPACE}LL{20SPACE}L"; 
 1460 PRINT"L{20SPACE}LL{20SPACE}L"; 
 1470 PRINT"LLLLL{2SPACE}L{2SPACE}LLLLLLLLL{2SPACE}LL{6SPACE}L{6SPACE}L{6SPACE}LL{6SPACE}L{6SPACE}L 7{4SPACE}L"; 
 1480 PRINT"L{6SPACE}L{6SPACE}L{6SPACE}LLL{2SPACE}LLLLLLLLLLLLLLLLL";:POKE 5625,76:RETURN 
 1490 PRINT"{CLR,WHITE}LLLLLLLLLLLLLLLLLLLLLLL{4SPACE}L{5SPACE}L{5SPACE}L{3SPACE}L"; 
 1500 PRINT"{CLR,WHITE}LLLLLLLLLLLLLLLLLLLLLLL{4SPACE}L{5SPACE}L{5SPACE}L{3SPACE}L"; 
 1510 PRINT"L{20SPACE}LL{20SPACE}L"; 
 1520 PRINT"L{7SPACE}L{5SPACE}L{6SPACE}LLLLLL{2SPACE}LLLL{2SPACE}LLLL{2SPACE}LLL"; 
 1530 PRINT"L{12SPACE,CYAN}J{WHITE,7SPACE}LL{12SPACE,CYAN}J{WHITE,7SPACE}L"; 
 1540 PRINT"L{12SPACE,CYAN}J{WHITE,7SPACE}LL{2SPACE}LLL{CYAN}KK{WHITE}LLLLLLLLLLL{SPACE,SPACE}L"; 
 1550 PRINT"L{2SPACE}L{17SPACE}LL{2SPACE}L{17SPACE}L"; 
 1560 PRINT"L{2SPACE}L{17SPACE}LL{2SPACE}L{2SPACE}LLL{2SPACE}LLLLLLLLLLL"; 
 1570 PRINT"L{2SPACE}L{4SPACE}L{4SPACE}L{CYAN}DE{WHITE}LXY{2SPACE}LL{SPACE,SPACE}L{4SPACE}L{4SPACE}L{CYAN}FG{WHITE}L{BLUE}BC{WHITE,2SPACE}L"; 
 1580 PRINT"L{2SPACE}L{4SPACE}L{4SPACE}L{CYAN}HI{WHITE}L{BLUE}DE{WHITE,2SPACE}LL{2SPACE}LLL{2SPACE}LLL{2SPACE}LLLLLL{2SPACE}L"; 
 1590 PRINT"L{4SPACE}L{15SPACE}LL{4SPACE}L{15SPACE}L"; 
 1600 PRINT"L{4SPACE}L{15SPACE}LL{4SPACE}L{15SPACE}L"; 
 1610 PRINT"LL{2SPACE}LLLLLLLLLLLLLLLLL";:POKE 5625,76:RETURN 
 1620 FOR U=0 TO2:B(U)=Y(U):NEXT :A(0)=X(0):Y(0)=19:X(0)=2:Y(1)=1:X(1)=14:Y(2)=19:X(2)=11 
 1630 FOR U=1 TOE:DY(0)=1:DX(0)=1:SYS 828:T=0 
 1640 IF X(0)=2AND Y(0)=20 THEN:FOR U=0 TO2:Y(U)=B(U):NEXT :X(0)=A(0):GOTO 210 
 1650 IF PEEK (251)=152 THENW=73:GOSUB 1900:Y(0)=Y(0)-DY(0):GOSUB 2000:GOTO 1690 
 1660 IF PEEK (251)=148 THENW=73:GOSUB 1920:Y(0)=Y(0)+DY(0):GOSUB 1980:GOTO 1690 
 1670 IF PEEK (251)=140 THENW=73:GOSUB 1940:X(0)=X(0)-DX(0):GOSUB 2020:GOTO 1690 
 1680 IF PEEK (251)=28 THENW=73:GOSUB 1960:X(0)=X(0)+DX(0):GOSUB 2050 
 1690 IF X(0)=X(1)AND Y(0)=Y(1) THEN2320 
 1700 IF X(0)=X(2)AND Y(0)=Y(2)AND D=2 THEN2320 
 1710 IF X(0)=14AND Y(0)=18 THENGOSUB 2210 
 1720 NEXT 
 1730 FOR T=1 TOD:IF Y(T)=Y(0) THEN1810 
 1740 IF Y(T)<Y(0) THEN1780 
 1750 DY(T)=1:W=75:GOSUB 1900:IF DY(T)=0 THEN1820 
 1760 IF PEEK (S+22*(Y(T)-1)+X(T))=75 THENPRINTA$(Y(T))SPC( X(T))"{2RIGHT,CYAN}J{LEFT,DOWN}J{LEFT,DOWN}J"; 
 1770 Y(T)=Y(T)-DY(T):GOSUB 2090:GOTO 1890 
 1780 DY(T)=1:W=75:GOSUB 1920:IF DY(T)=0 THEN1820 
 1790 IF PEEK (S+22*(Y(T)+3)+X(T))=75 THENPRINTA$(Y(T)+4)SPC( X(T))"{2RIGHT,CYAN}J{LEFT,DOWN}J{LEFT,DOWN}J"; 
 1800 Y(T)=Y(T)+DY(T):GOSUB 2080:GOTO 1890 
 1810 IF X(T)=X(0) THEN1890 
 1820 IF X(T)<X(0) THEN1860 
 1830 DX(T)=1:W=75:GOSUB 1940:IF DX(T)=0 THEN1860 
 1840 IF PEEK (S+22*Y(T)+X(T)-1)=74 THENPRINTA$(Y(T))SPC( X(T)-3)"{UP,CYAN}KK"; 
 1850 X(T)=X(T)-DX(T):GOSUB 2110:GOTO 1890 
 1860 DX(T)=1:W=75:GOSUB 1960:IF DX(T)=0 THEN1890 
 1870 IF PEEK (S+22*Y(T)+X(T)+2)=74 THENPRINTA$(Y(T))SPC( X(T))"{UP,CYAN}KK"; 
 1880 X(T)=X(T)+DX(T):GOSUB 2100 
 1890 NEXT :GOTO 1630 
 1900 V=S+22*Y(T)+X(T):IF PEEK (V-22)>WOR PEEK (V-21)>W THENDY(T)=0 
 1910 RETURN 
 1920 V=S+22*Y(T)+X(T):IF PEEK (V+66)>WOR PEEK (V+67)>W THENDY(T)=0 
 1930 RETURN 
 1940 V=S+22*Y(T)+X(T):IF PEEK (V-1)>WOR PEEK (V+21)>WOR PEEK (V+43)>W THENDX(T)=0 
 1950 RETURN 
 1960 V=S+22*Y(T)+X(T):IF PEEK (V+2)>WOR PEEK (V+24)>WOR PEEK (V+46)>W THENDX(T)=0 
 1970 RETURN 
 1980 IF DY(0)>0 THENPRINTA$(Y(0))SPC( X(0))"{UP,2SPACE,2LEFT,DOWN,WHITE}@A{2LEFT,DOWN,GREEN}BC{2LEFT,DOWN}DE";:POKE SN,254:POKE SN,0 
 1990 RETURN 
 2000 IF DY(0)>0 THENPRINTA$(Y(0))SPC( X(0))"{WHITE}FG{2LEFT,DOWN,GREEN}HI{LEFT,LEFT,DOWN}JK{2LEFT,DOWN,2SPACE}";:POKE SN,254:POKE SN,0 
 2010 RETURN 
 2020 IF PEEK (P+22*(Y(0)+1)+X(0))=55 THENGOSUB 2120 
 2030 IF DX(0)>0 THENPRINTA$(Y(0))SPC( X(0))"{WHITE}LM{SPACE,3LEFT,DOWN,GREEN}NO{SPACE,3LEFT,DOWN}PQ ";:POKE SN,254:POKE SN,0 
 2040 RETURN 
 2050 IF PEEK (P+22*(Y(0)+1)+X(0)+1)=55 THENGOSUB 2120 
 2060 IF DX(0)>0 THENPRINTA$(Y(0))SPC( X(0))"{LEFT,WHITE,SPACE}RS{3LEFT,DOWN,GREEN,SPACE}TU{3LEFT,DOWN,SPACE}VW";:POKE SN,254:POKE SN,0 
 2070 RETURN 
 2080 PRINTA$(Y(T))SPC( X(T))"{UP,2SPACE,2LEFT,DOWN,WHITE}XY{2LEFT,DOWN,RED}BC{2LEFT,DOWN}DE";:RETURN 
 2090 PRINTA$(Y(T))SPC( X(T))"{WHITE}Z[{2LEFT,DOWN,RED}HI{LEFT,LEFT,DOWN}JK{2LEFT,DOWN,2SPACE}";:RETURN 
 2100 PRINTA$(Y(T))SPC( X(T))"{LEFT,WHITE,SPACE}↑{2LEFT,DOWN,RED,SPACE}TU{3LEFT,DOWN,SPACE}VW";:PRINT"{LEFT,2UP,WHITE}"CHR$ (34):RETURN 
 2110 PRINTA$(Y(T))SPC( X(T))"{WHITE}£]{SPACE,3LEFT,DOWN,RED}NO{SPACE,3LEFT,DOWN}PQ{SPACE,3LEFT,DOWN}";:RETURN 
 2120 Z=INT (RND (1)*3):IF Z=1 THEN2140 
 2130 RETURN 
 2140 A(2)=1:Z=INT (RND (1)*7) 
 2150 IF A(Z+1)=0 THENA(Z+1)=1:RETURN 
 2160 A(7)=0:GOTO 2140 
 2170 POKE SL,5:FOR T=1 TO10:POKE SN,230+INT (RND (1)*20):FOR G=1 TO15:NEXT 
 2180 FOR H=25 TO1STEP -1:POKE SL,0:NEXT :POKE SL,4:NEXT :POKE SN,0:POKE SL,11 
 2190 IF N=1 THENN=0:RETURN 
 2200 N=1:RETURN 
 2210 IF A(3)=0 THEN2240 
 2220 IF A(6)=1 THEN2280 
 2230 RETURN 
 2240 PRINTA$(14)SPC( 17)"{WHITE}£]{2LEFT,DOWN,BLUE}NO{LEFT,LEFT,DOWN}PQ";:POKE SN,200 
 2250 PRINT"{3UP}KK{2LEFT,DOWN}JJ{2LEFT,DOWN}KK{2LEFT,DOWN}JJ{2LEFT,DOWN}KK{8LEFT,DOWN}JJJJJJJJ{8LEFT,DOWN}KKKKKKKK"; 
 2260 PRINT"{8LEFT,DOWN}JJJJJJJJ{8LEFT,DOWN}KKKKKKKK";:FOR T=11 TO0STEP -1:POKE SL,T:NEXT :POKE SN,0 
 2270 POKE SL,11:FOR T=1 TO6000:NEXT :GOTO 2320 
 2280 POKE 36869,208:PRINT"{CLR}"A$(4)"{RIGHT,2RIGHT,YELLOW}CONGRATULATIONS!":M=1 
 2290 PRINTA$(6)"NOW LEAVE THE EMBASSY!":FOR T=1 TO3000:NEXT :POKE 36869,220:GOSUB 1490:RETURN 
 2300 IF E>2 THENE=E-2 
 2310 FOR T=1 TO5000:NEXT :M=0:N=0:D=2:FOR T=1 TO6:A(T)=0:NEXT :GOTO 180 
 2320 FOR T=128 TO255:POKE SN,T:POKE SM,T 
 2330 NEXT :POKE SM,0:POKE SN,0:O=O-1 
 2340 IF O=0 THENPOKE 36869,208:PRINT"{CLR,2DOWN,WHITE}END OF YOUR MISSION":END 
 2350 GOTO 180

Listing 2. »Spion« Hauptprogramm