agent } }S }*********************** * Amerika's Agent * * * * implementiert auf * * ZX Spectrum * * G.Retz '84 * *********************** 1:6:1 (#23658j\,8:C Kursor d#:10 ;"AMERICA'S AGENT" n'"Die CIA und das FBI vermuten, dass in dem Haus in der Bond- Street Nr.13 ein vor ein paar Tagen gestohlener Mikrofilm ver-steckt ist. Vielleicht durch einen russischen Agenten, der in dem Haus erschossen aufge- funden wurde..." x''"Amerika's agent, Deine Aufgabe ist es, so schnell wie moeglich herauszufinden, ob der Mikrofilmwirklich im Haus versteckt ist.."''"Es wartet reiche Belohnung!" 0#0;"Bitte eine Taste druecken!":0 :"Amerika's agent, um Deine Auf- gabe bewaeltigen zu koennen musst Du dem Computer ver- schiedene Befehle erteilen." "Dazu gehoeren Angaben ueber die Himmelsrichtung :"''"N, S, W, O, U (unten), OB (oben)oder eine Befehlskombination ausVerb und/oder Objekt"'"(z.B. SCHAUE BETT)"''"Die moeglichen Verben sind:"''"LESE, GEHE, SCHAUE, BENUTZE, OEFFNE, SCHLIESSE, SCHLAGE, STEIGE, NEHME," "HILFE (wenn man nicht mehr"'"weiterweiss kann der Computer helfen)"'"HABEN (Computer zeigt an, was man mit sich herumtraegt.)" 0#0;"Bitte eine Taste druecken!":0  Start  &0:0:9 :0: Ad(10 ):o(10 ):g(10 ):r(10 ):f(10 ) h$(1,10 ) 5b(10 ):r(1)=1:g(1)=1 c$=" " 2080  "Kommando -> ";k$ k$="ENDE":5,2;"Wollen Sie wirklich aufgeben (J/N) ??":0:="J"'''" AUF WIEDERSEHEN !!!": )18,0;c$;18,0; <330J*(r(1)=1)+420*(r(1)=2)+5600*(r(1)=3)+680*(r(1)=4)+8204*(r(1)=5)+970*(r(1)=6)+10808*(r(1)=7)+1160*(r(1)=8)+1260*(r(1)=9 )+1320(*(r(1)=10 ) " @ J?1580,:f(1)=1f(1)=0:260 TLb(2)=1"Es ist nichts wichtiges zu er- kennen...":260 ^Mb(2)=2a$"TREPPE""Dahin kannst Du nicht gehen...":260 h!b(2)=221910v rb(2)=3a$="TUER"a$="FENSTER""Ein Nachbar alamierte die Poli- zei wegen Ruhestoerung..."'"Du wurdest verhaftet...":200:1880X |Kb(2)=2r(1)=2:1450:2540 :260 b(2)=10 "Durch Deinen Versuch herumzu- steigen, hat Dich ein Nachbar fuer einen Einbrecher gehalten und die Polizei angerufen...":200:1880X Db(2)=33!"Versuche in das Haus zu kommen..":260 ."Das funktioniert jetzt nicht...":260  Eingang  ?1580,:f(1)=1f(1)=0:260 Qb(2)=2o(3)<1"Die Tuer ist geschlossen...":260 ^b(2)=2o(3)>01450:r(1)=3:2190:260 [b(2)=4a$="TUER"o(3)>0"Die Tuer ist schon offen...":260 !b(2)=221910v ]b(2)=4a$="TUER"o(3)<1"Die Tuer ist abgeschlossen...":260 Lb(2)=3"Gewalt ist nicht das beste Mittel...":260 tb(2)=1a$="TUER""Es ist eine alte, grosse Tuer mit einem zierlichen Schluessel-loch...":260 @b(2)=1"Nichts besonderes zu sehen...":260 qb(2)=33!"Du bist kein guter Agent..."'"Schau nach, was Du dabei hast...(Tippe 'HABEN')":260 nb(2)=5a$="SCHLUESSEL"o(3)>0"Die Tuer ist schon aufge-"'"schlossen...":260 Ob(2)=5a$="SCHLUESSEL"o(3)=2:2540 :260 &&"Das hat keinen Zweck...":260 0 Eingangshalle  :?1580,:f(1)=1f(1)=0:260 D@b(2)=1"Nichts besonderes zu sehen...":260 N!b(2)=221910v XCb(2)=3"Wir sind hier nicht im Boxring..":260 b@b(2)=5"Das hat jetzt keinen Zweck...":260 lNb(2)=33!"Warum ? Du hast vier Wege zur Auswahl...":260 vKd(1)=31450:2330 :r(1)=4:260 Kd(1)=41450:2240:r(1)=5:260 Kd(1)=11450:2420t :r(1)=6:260 ld(1)=6(b(2)=2a$="TREPPE")1450:2490 :r(1)=7:260 Ld(1)=2"Du kannst das Haus nicht ver- lassen...":260  Bibliothek  ?1580,:f(1)=1f(1)=0:260 Kd(1)=41450:2190:r(1)=3:260 nd(1)>0d(1)=0:"in diese Richtung kannst Du wirklich nicht gehen...":260 ib(2)=7a$="BUCH"g(2)>0"Du kannst kein weiteres Buch nehmen...":260 !b(2)=221910v b(2)=7a$="BUCH"3:1,174:9 :g(2)=2:2330 :"Okay...Du hast nun das"'"scheinbar oft gelesene Buch...":260 wb(2)=9 a$="BUCH""Das Buch ist nicht fuer Leute gedacht, die mit dem Computer spielen...":260 jb(2)=2a$="KAMIN"o(4)>01450:2730 :r(1)=10 :260 b(2)=1a$="KAMIN"o(4)>0"Die Geheimtuer im Kamin ist offen..."'"Seltsam, woran mag das liegen..":260  }b(2)=1a$="KAMIN""Es scheint eine Geheimtuer im Kamin zu sein.Sie ist aber fest verschlossen...":260 Cb(2)=3"Gewalt hilft Dir nicht weiter...":260  @b(2)=1"Nichts besonderes zu sehen...":260 *&"Das hat keinen Zweck...":260 4 Vorratskammer  >?1580,:f(1)=1f(1)=0:260 HKd(1)=31450:2190:r(1)=3:260 Rnd(1)>0d(1)=0:"In diese Richtung kannst Du wirklich nicht gehen...":260 \qb(2)=4a$="SCHRANK"3:1,174:9 :o(1)=2:2240:260 frb(2)=10 a$="SCHRANK"3:1,174:9 :o(1)=0:2240:260 pwb(2)=10 a$="KUEHLSCHRANK"3:1,174:9 :o(2)=0:2240:260 zvb(2)=4a$="KUEHLSCHRANK"3:1,174:9 :o(2)=2:2240:260 db(2)=1a$="KUEHLSCHRANK"o(2)>0"Der Kuehlschrank ist leer...":260 mb(2)=1a$="SCHRANK"o(1)>0"Im Schrank steht eine Flasche Whiskey...":260 xb(2)=7a$="WHISKEY"g(9 )>0"Du hast den Whiskey doch schon...":g(9 )=2:260 !b(2)=221910v b(2)=7a$="WHISKEY"o(1)>0"Okay...Du hast nun auch den Whiskey...":g(9 )=2:260 Lb(2)=33!"Denke nach..."'"Der Computer schweigt...":260 ,"Das hat jetzt keinen Zweck...":260  Schlafzimmer  ?1580,:f(1)=1f(1)=0:260 Kd(1)=21450:2190:r(1)=3:260 !b(2)=221910v nd(1)>0d(1)=0:"In dieser Richtung kannst Du wirklich nicht gehen...":260 mb(2)=7a$="PUDERDOSE""Okay...Nun hast Du eine Puder- dose...":g(5)=2:260 [b(2)=2a$="BETT""Schnarchhhh...Schnarchhhh... Schnarchhhh...":260 ~b(2)=1a$="BETT""Das Bett ist breit und sieht nach einem grossen Herz aus... Sehr einladend...":260 @b(2)=1"Nichts besonderes zu sehen...":260 $Cb(2)=33!"Keine Hilfe an dieser Stelle...":260 .&"Das hat keinen Zweck...":260 8 Treppe  B?1580,:f(1)=1f(1)=0:260 LKd(1)=41450:2650Z :r(1)=8:260 VKd(1)=61450:2600( :r(1)=9 :260 `Kd(1)=51450:2190:r(1)=3:260 jKd(1)>0"In diese Richtung geht es nicht...":260 t!b(2)=221910v ~("Versuche etwas anderes...":260  Gymnastikraum  ?1580,:f(1)=1f(1)=0:260 Kd(1)=31450:2490 :r(1)=7:260 Kd(1)>0"In diese Richtung geht es nicht...":260 rb(2)=7a$="HANDTUCH"g(4)=2:3:1,174:9 :2650Z :260 Ob(2)=33!"Wer suchet der findet..."'"Alte Weisheit...":260 !b(2)=221910v b(2)=5a$="KNOPF"o(4)<1i=120:.005y# =,-10 :i:"Von unten schallt ein Knirschen herauf..."'"Mir scheint es etwas passiert...":o(4)=2:260 Lb(2)=5a$="KNOPF""Nichts passiert..."'"Schade...":260 &"Das hat keinen Zweck...":260  Speicher  ?1580,:f(1)=1f(1)=0:260 Kd(1)=51450:2490 :r(1)=7:260  Gd(1)>0"In diese Richtung geht es"'"nicht...":260 !b(2)=221910v Ib(2)=33!"Hier gibt es keine"'"Hilfestellung...":260 #5"Das geht nicht..."'"Versuche weiter...":260 ( Geheimraum  2?1580,:f(1)=1f(1)=0:260 3018,0;" Bitte maximal  30  Zeichen eingeben... ":f(1)=1: r18,0;c$;19,0;"Ich kenne ' ";1;k$;0;" '"'"nicht...":f(1)=1: & Kuerzen  0*a$=k$:weg=a$-b(1):weg<2 5a$-weg=0a$="": :a$=a$(a$-weg+1) D"a$(1)=" "a$=a$(2) N X Nocheinmal  bV:10 ,0;" Willst Du noch einmal spielen ? (J/N) ":0:="N" l 20 v Was hast Du  "18,0;c$:v=18 !18,10 ;"Du hast : " 5g(1)>0"Einen Schluessel":v=v+1 >g(2)>0"Ein Buch (THE JOY OF SEX)":v=v+1  2050 1g(3)>0"Einen Hammer":v=v+1 Q2050:g(4)>0"Ein Handtuch (stark verschmutzt)":v=v+1 N2050:g(5)>0"Eine Puderdose ('FEINE LADY')":v=v+1 G2050:g(6)>0"Eine Pistole (geladen)":v=v+1 ?2050:g(7)>0"Eine Milchkanne":v=+1 G2050:g(8)>0"Einen Tresorschluessel":v=v+1 Q2050:g(9 )>0"Eine Flasche Whiskey (noch voll)":v=v+1  260   Check   wv>20v=18:#0;"Weiter":0:18,0;c$;18,0;"Du hast auch noch:":    Bilder  *680P,171:41),0:75K,-34":-19,0:0,8:0,-44,:13 ,-16:-113q,0:-15,16:115s,0:80P,171:-579,-32 :22,-3:76L,35#:62>,143:0,-91[ 4085U,67C:-23,0:0,-15:14,-9 :0,16:42*,0:0,-16:-42*,0:85U,85U:0,-26:91[,85U:0,-26:180,85U:0,-26:177,85U:0,-26 >76L,59;:-14,8:146,59;:43+,0:0,-16:189,59;:-9 ,6:79O,111o:21,0:0,13 :-21,0:0,-13 :89Y,111o:0,13 :152,123{:18,0:0,-11 :-18,0:0,11 :161,123{:0,-11 H 113q,150:23,0:0,-10 :-23,0:0,10 :124|,150:0,-10 :34",127:16,-2:0,-13 :-16,2:0,13 :42*,126~:0,-13 Rr100d,80P:19,0:0,-6:-19,0:0,6:109m,80P:0,-6:151,80P:19,0:0,-6:-19,0:0,6:160,80P:0,-6:91[,67C:36$,0:0,14:14,0:0,-14:36$,0 \Y117u,111o:21,0:0,11 :-21,0:0,-11 :127,111o:0,11 :146,59;:0,-8:156,43+:33!,0:127,67C:0,-10 :141,67C:0,-10 :130,68D:2,0:131,69E f(27,140:0,-70F:35#,-18:118v,502:31,0:7,-2:-30,0:-8,2:0,-8:13 ,-9 :0,7:-5,3:0,5:126~,43+:30,0:0,5 p>156,43+:7,-5:0,-5:-32 ,0:0,6:32 ,0:118v,579:28,0:118v,579:28,0:34",97a:16,-2:0,-13 :-16,2:0,13 :42*,96`:0,-13 zJ0,97a:23,0:182,97a:73I,0 18,0;"Du stehst vor einem im alteng- lischen Stil gebauten Haus in der Bond Street... Was willst Du tun ?":  Eingangshalle  n0,170:233,0:0,-134:-233,0:0,133:36$,170:0,-38&:162,0:17,-480:36$,132:-36$,-95_:18,82R:0,524:13 ,24:0,-41):97a,132:0,30:30,0:0,-30 4198,170:0,-38&:205,114r:0,45-:10 ,-22:0,-535:225,557:8,-18:212,557:0,9 :-6,19:0,-10 :6,-18:207,83S:0,15:26,23 d212,557:13 ,0:8,7:212,64@:13 ,0:0,11 :8,0:-5,19:0,11 :5,0:228,94^:-12 ,0:9 ,-19:0,-11 :216,94^:-1,-11 :-9 ,0:216,83S:9 ,-19 18,0;"Eine leere Eingangshalle liegt vor Dir. Wege gehen nach Norden,Osten und Westen.Eine Treppe fuehrt nach oben...":  Vorratskammer  Y0,174:233,0:0,-141:-233,0:0,141:502,174:0,-524:92\,0:192,174:0,-524:-7,0:192,122z:41),-89Y:3,91[:0,-491:29,0:0,491:-29,0 32 ,42*:10 ,14:0,480:-10 ,-16:42*,104h:-31,0:-8,-13 :3,42*:-3,-9 :41),104h:9 ,18:3,42*:0,-4:8,0:0,4 ޴28,42*:0,-4:4,0:0,4:38&,513:4,0:0,5:32 ,104h:0,34":10 ,16:0,-46.:178,115s:7,5:0,39':-7,-4:0,-40(:o(1)<136$,75K:2,0:41),79O:1,-1:38&,513:0,44,:2300 o(1)<136$,75K:2,0:41),79O:1,-1:38&,513:0,44,:2300 S1:32 ,42*:10 ,14:0,-5:-4,0 38&,513:0,44,:36$,75K:2,0:41),79O:1,0:42*,104h:0,-480:0:42*,104h:0,-12 :42*,104h:11 ,0:0,-46.:-7,0:0,-16:-14,0:0,502:14,0:0,-502:39',73I:0,-4 178,115s:-36$,0:0,40(:36$,0:142,155:9 ,4:34",0:o(2)<1148,148:0,-14:2320 1:142,115s:35#,0:0:152,121y:0,33!:152,121y:7,0:178,154:-19,-15:0,-41):19,18:165,132:0,-15 M18,0;"Du befindest Dich in einer kleinen Vorratskammer":  Bibliothek  $2,175:233,0:0,-135:-233,0:0,135:203,175:0,-19:-13 ,0:0,-40(:20,0:0,40(:18,-38&:0,-513:-20,-17:0,502:20,18:210,116t:3,-11 :203,156:7,0:228,75K:7,-35# .G2,40(:37%,90Z:151,0:100d,130:0,45-:143,130:0,45-:39',175:0,-45-:39',144:61=,0:143,159:60<,0:143,144:47/,0:39',156:61=,0 8i=39'99c5.483871/{ :i,155:0,-11 :i,172:0,-13 :i,140:0,-10 :i:39',172:61=,0:39',162:61=,0:39',146:33!,0:77M,146:23,0:72H,154:5,0:39',140:61=,0:39',134:61=,0 B99c,168:43+,0:99c,160:43+,0:99c,152:43+,0:111o,130:0,15:20,0:0,-15:99c,143:12 ,0:99c,134:12 ,0:131,134:11 ,0:99c,175:0,-45-:144,175:0,-45- L107k,175:0,-7:124|,175:0,-7:131,175:0,-7:115s,168:0,-8:137,168:0,-8:103g,160:0,-8:122z,160:0,-8:132,160:0,-8:106j,152:0,-9 :138,152:0,-9 Vi116t,140:0,-10 :127,140:0,-10 :127,135:-11 ,0:i=1451725.1#333:i,155:0,-11 :i:145,155:26,0:145,146:26,0:172,149:12 ,0:0,-5:180,144:0,5 `63?,112p:-9 ,-37%:137,0:-9 ,37%:-119w,0:131,143:11 ,0:g(2)>01:73I,154:3,0:0 jT18,0;"Du stehst in der gut eingerich- teten Bibliothek des Hauses.": t Schlafzimmer  ~99c,110n:0,14:20,6:9 ,0:22,-6:0,-15:-14,1:-7,-1:-5,-2:-6,2:-5,1:-14,0:-7,-8:0,-15:0,-9 :8,-17:10 ,-14:6,-7:6,-3:2,-1:6,4:8,6 B138,46.:10 ,10 :5,11 :6,12 :0,17:-4,10 :-5,3:159,96`:-3,-14:-9 ,-16:-13 ,-14:-10 ,-4:-8,3:-7,8:-7,10 :-5,9 :-5,9 :1,175:234,0:0,-142:-234,0:0,142:546,175:0,-546:-535,-90Z:546,121y:45-,0:150,121y:15,0:180,175:0,-41):235,31:-27,37% N165,131:0,-40(:22,-24:20,3:0,65A:-20,0:-22,-4:187,135:0,-65A:165,119w:22,-5:165,106j:22,-11 :170,124|:10 ,0:171,93]:10 ,-6 18,0;"Du stehst nun im Schlafzimmer der Dame des Hauses..."':g(5)<120,0;"Du siehst eine Puderdose auf der Kommode stehen..."   Treppe  G10 ,167:0,-125}:222,0:0,125}:-222,0:10 ,557:222,0:185,557:0,112p:58:,557:0,112p:156,167:0,-67C:3,0:14,-8:0,-11 :12 ,-9 >185,72H:-127,0:19,9 :96`,0:77M,81Q:0,11 :96`,0:77M,92\:20,8:0,10 :16,6:0,513:156,141:-6,0:0,-12 :-11 ,0:0,-13 150,129:6,-3:156,137:-6,4:97a,110n:59;,0:113q,116t:26,0:139,129:17,-7:139,116t:17,-7:159,100d:-62>,0 x18,0;"Du stehst vor einer Treppe... Im Osten liegt ein weiter Raum..Zum Speicher geht's nach oben...":  Eingang  0,175:246,0:0,-137:-246,0:0,137:0,84T:246,0:91[,84T:0,73I:64@,0:0,-73I:i=91[1553:i,75K:0,-27:i vi=75K480-3:91[,i:64@,0:i:91[,480:65A,0:0,27 o(3)>01 100d,148:46.,0:0,-557:-45-,0:0,19:9 ,0:0,18:0,17:102f,125}:4,-4:-4,-5:-4,5:3,3 go(3)<118,0;"Du stehst auf einer Terasse vor einer geschlossenen Tuer...": 155,84T:46.,0:0:155,157:46.,-18:0,-73I:-46.,18:193,107k:5,-4:-5,-5:-4,5:4,4 L19,0;"Du stehst auf der Terasse..."'"Die Tuer ist offen...": ( Speicher  22,175:230,0:0,-134:-230,0:0,134:2,133:66B,-20:524,34":568,-33!:568,14:232,42*:-568,23:0,491:176,65A:-108l,0:-66B,-23:68D,65A:0,480:120x,147:0,28 <96`,114r:0,-25:47/,0:0,25:-47/,0:65A,64@:-18,0:-19,-5:0,-4:-10 ,-3:0,-1:-13 ,-3:0,-5:18,480:-13 ,0 F18,480:0,4:11 ,0:-1,7:17,0:65A,64@:-18,0:2,59;:579,22:0,-4:-579,-22 Pc18,0;"Du stehst in einer leeren Dach- kammer..."'"Eine Treppe geht nach unten....": Z Gymnastikraum  d73,175:229,0:0,-133:-229,0:0,133:40(,175:0,-45-:-37%,-88X:40(,130:121y,0:161,175:0,-45-:21,83S:0,46.:14,31:0,-43+ nZ161,130:8,-17:36$,0:0,513:-36$,0:205,164:-7,11 :1,-11 :116t,153:35#,0:0,4:-35#,0:0,-4:205,113q:27,-71G:169,113q:0,513:-8,11 x]211,162:14,-30:0,-28:-14,32 :0,26:535,130:0,39':4,0:0,-39':89Y,130:0,39':5,0:0,-39':i=163136-9 :579,i:32 ,0:579,i+3:32 ,0:i }M14,42*:35#,79O:103g,0:21,-79O g(4)>01 M147,153:0,-17:-21,0:0,17 g(4)>0132,148:0,-9 :9 ,0:0,9 :-9 ,0:132,148:9 ,-9 :141,148:-9 ,-9 0:18,0;"Du stehst im Gymnastikraum des Hauses.."'"Die Einrichtung sieht neu aus..":g(4)>021,0;"An der Wand ist ein Knopf...":   Geheimraum  n0,175:233,0:0,-142:-233,0:0,142:36$,175:0,-72H:-36$,-70F:233,33!:-32 ,70F:0,72H:0,-72H:-74J,0:36$,103g:7,0:73I,169:36$,0:73I,153:36$,0 i=73I109m9 :i,169:0,-16:i:137,141:45-,0:155,141:0,7:4,0:0,-7:0,12 :5,0:0,-12 131,119w:-80P,0:-8,-15:0,-7:81Q,0:0,7:7,15:0,-7:-7,-15:0,7:-81Q,0:131,119w:-7,-15 535,97a:0,-5:116t,97a:0,-5:58:,97a:0,7:7,14:74J,118v:-7,-14:0,-7:15,39':204,0:-18,45-:-164,0:-22,-45- 10 ,80P ܂18,0;"Du stehst in einem geheimen Raum..."'"Das Zimmer wurde vor kurzem benutzt...Es stinkt nach Wodka..":  Winner  .i=70-1:i:1540:i 'i=-10 20:.005y# =,i:i  :3,12 ;"SIEG" @5,0;"Du hast die Raketenplaene"'"gefunden und das Abenteuer"'"geloest...Klasse..."''"Die Regierung ist nun auf Dich aufmerksam geworden..." J^"Du bist der Held der Nation !"'"Dafuer bekommst Du 2'000'000 $ vom Staat als Belohnung..." T?''"Vielen Dank fuer die Aufmerksam-keit und auf Wiedersehen." ^200:0 "agent"10