Stowaway

Title – Stowaway
System – Tandy Color Computer 3
Author – J.C. Jackson
Publication – The Second Rainbow Book of Adventures
Page Scans – Available at archive.org
Preserved By – gschmidl
Recommended Emulator – XRoar

Download ROM

Information:

Information and instructions can be found in the book, but here is a summary.

You can run this in the XROAR online editor, but it requires some setup. Set the inset cassette option in the file tab to STOWAWAY.CAS, then click on the hardware tab. Set options to “TANDY COCO 3” and “None” for Cartridge. Press the hard reboot button above the tabbed menu. You should see “EXTENDED BASIC” – if you see ‘DISK EXTENDED BASIC’, repeat the above steps. Check file tab again to make sure STOWAWAY.CAS is loaded, then type “PCLEAR1:CLOAD”. Wait a bit until you get an “OK” prompt. Type “RUN”.

Code

1 CLEAR300:GOTO985
3 FORX=1TO30:READW:NEXT
4 REM STOWAWAY
5 REM J.C.JACKSON
7 REM 49 WYEGATE CT.
9 REM OWINGS MILLS,MD.21117
11 REM 301-356-6274
13 DIMA$(36),B$(36),C$(36),L$(36),DO$(4),OD$(4),LO(4),BH$(6),EH$(6),NL$(3)
15 GOTO925
17 PRINT” I DON’T UNDERSTAND!”:GOTO67
19 PRINT” TRY SOMETHING ELSE!”:GOTO67
21 IF H=1THENC$(13)=”YOU SEE FOOTPRINTS.”
23 IFR=27THENB$(27)=””:C$(27)=””
25 IFR=18THENC$(18)=””
29 IFR=29THENMID$(B$(29),19,6)=””
31 X=0:Z=0:A=0:PS=0:TC=0
33 RETURN
35 CLS:PRINTSTRING$(7,159);”the bristol cadger”;STRING$(7,159);:POKE1030,32:POKE1034,32:POKE1042,32:POKE1049,32:FORX=0TO5:PRINTCHR$(201);STRING$(30,32);CHR$(201);:NEXT
37 PRINTSTRING$(13,159);”neswud”;STRING$(13,159);:POKE1260,32:POKE1267,32
39 IFR=41THEN693
41 IF LR=30ANDR=29THENMID$(B$(29),19,6)=”LEFT. ”
43 IF LR=34ANDR=29THENMID$(B$(29),19,6)=”BACK. ”
45 IFLR=28ANDR=29THENMID$(B$(29),19,6)=”RIGHT.”
47 FORX=66TO194STEP32:PRINT@X,STRING$(29,32);:NEXT
49 PRINT@66,”YOU ARE-“;:PRINT@100,A$(R);:PRINT@130,B$(R);:PRINT@162,C$(R);:PRINT@288,””
51 IFMS=1THENGOSUB665:GOTO917
53 FORX=1TO6:A=ASC(MID$(L$(R),X,1))-48:IFA>=0THENPOKE1292+X,94ELSEPOKE1292+X,96
55 NEXT:IFR=13THENH=H+1
57 IFR=18THENH2=H2+1:IFH2=1THENGOSUB663:FORX=1186TO1213:FORZ=1TO25:POKEX,96:NEXTZ,X
59 IFR=27THENH4=H4+1
61 IFR=34ORR=35THENPRINT:PRINT”YOU SEE A CLOSED DOOR IN THE WEST BULKHEAD.”
63 IFR=6THENPRINT:PRINT” THIS FEELS A BIT SHAKY!”
65 PRINT@480,STRING$(31,32);:TC=1:GOSUB115
67 PRINT@288,STRING$(32,32);:I$=””:V=0:V$=””:N=0:N$=””:S=0:SN$=””
69 PRINT@288,””;:LINEINPUT” ** “;I$:IFI$=””THEN69
71 PRINT:PRINT:PRINT:PRINT:PRINT@320,””
73 GOSUB21:IFLEN(I$)=1THEN121
75 IFR=6THEN687
77 S=INSTR(1,I$,S$):IFS=0THEN99
79 IFLEN(I$)=2THEN17
81 V$=LEFT$(I$,3):V=INSTR(1,VL$,V$):IFV=0THEN19
83 L=LEN(I$)-S:N$=RIGHT$(I$,L):IFLEN(N$)<3THEN17
85 SN$=LEFT$(N$,4):NN$=LEFT$(SN$,1):NN=ASC(NN$):X=0
87 IFNN>64ANDNN<68THENX=0:GOTO97
89 IFNN>67ANDNN<78THENX=1:GOTO97
91 IFNN>77ANDNN<83THENX=2:GOTO97
93 IFNN>82ANDNN<91THENX=3:GOTO97
95 GOTO17
97 N=INSTR(1,NL$(X),SN$):IFN=0THEN19ELSE107
99 IFI$=”HELP”THENPRINT” CLIMB*DIG*DROP*EAT*INV*LIFT”:PRINT” LISTEN*LOOK*OPEN*PULL*PUSH*RAP”: PRINT” READ*SHOOT*TAKE*TURN*WIPE*VIEW”:GOTO67
101 IFI$=”INV”THEN711
102 IFI$=”END”THENCLS:END
103 IFI$=”VIEW”THEN35
105 IFS=0THEN17
107 IFV=16THEN719
109 IFV=22THEN751
111 IFR=0THEN131
113 ON R GOTO159,175,185,195,205,217,195,159,175,185,219,235,235,235,345,293,269,293,375,255,547,235,395,495,417,219,235,235,235,313,527,443,469,323,583,613
115 PRINT@480,””;:FORX=1TO4
117 IFLO(X)=R THENPRINTTAB(TC)O$(X);:TC=TC+8
119 NEXTX:RETURN
121 F1=0:FORX=1TO6
123 IFI$=MID$(LL$,X,1)THENA=ASC(MID$(L$(R),X,1))-48:F1=1:IFA=>0THENLR=R:R=A:GOTO39
125 NEXTX
127 IFF1=1THENPRINT” (NOT THAT WAY,YOU LUBBER!)”:GOTO67
129 PRINT” (WHAT’S “I$” SUPPOSED TO MEAN?)”;:PRINT@393,”—“:GOTO67
131 IFV>1THEN151
133 IFN=8ORN=15ORN=128THENPRINT”THE SEA LOOKS COLD.”:GOTO67
135 IFN=70THENPRINT” JUST ROCKS AND A LOT OF THEM.”:GOTO67
137 IFN=36ORN=76ORN=80ORN=127ORN=146THEN801
139 IFN=30ORN=136THENPRINT” AN OLD AND RUSTED MERCHANTMAN. A FORLORN SIGHT!”:GOTO67
141 IFN=59ORN=174THENPRINT” RIVETED AND RUSTY.”:GOTO67
143 IF N=111ORN=115ORN=137THENPRINT” NOTHING SPECIAL ABOUT THEM!”:GOTO67
144 IFN=170THENPRINT” I SEE CRAGGY PEAKS!”:GOTO67
145 IF N=119THENPRINT” IT’S VERY THICK,LOOKS STRONG!”:GOTO67
147 IFN=3THENPRINT” IT’S RUST STREAKED,BUT LOOKS LIKE- ‘BRIOL CADGE ‘”:GOTO67
149 GOSUB761:IFPS=11THEN67ELSEPRINTR4$:GOTO67
151 IFV=37ANDN=3THEN147
153 IFV=19ANDN=119THENR=1:GOTO39
155 IFV=13ANDN=119THENPRINT” IT FEELS SECURE.”:GOTO67
157 IFV=4ANDN=115THENPRINTR5$:GOTO67ELSE779
159 IFV>1THEN173
161 IFR=1ANDN=60ORR=1ANDN=64THENPRINT” RUSTY”:GOTO67
163 IFN=14THENPRINT” OPEN AND LEADING INTO A LARGE ROOM.”:GOTO67
165 IFR=1ANDN=119THENPRINT” IT’S A HAWSER,AND WELL SECURED. (FORGET IT!)”:GOTO67
167 IFN=132THENPRINT” THERE IS A LINE OF PORTHOLES ABOUT EYE LEVEL.”:GOTO67
169 IFN=101ORN=123THENPRINT” CAN’T TELL MUCH FROM OUT HERE.”:GOTO67
171 GOSUB761:IFPS=1THEN67ELSE801
173 IFR=1ANDV=13ANDN=119THENPRINT” TOO LARGE TO HANDLE!”:GOTO67ELSE779
175 IFV>1THEN779
177 IFR=9ANDN=63THENPRINT” JUST GOES OUT THERE A SHORT WAY.”:GOTO67
179 IFLEN(C$(2))=0THEN183
181 IFR=2ANDN=45ORR=2ANDN=112ORR=2ANDN=153THENPRINT” OMEN MAYBE?”:B$(2)=””:C$(2)=””:GOTO67
183 GOSUB761:IFPS=1THEN67ELSE801
185 IFV>1THEN779
187 IFN=128THENPRINT” LOOKS COLD!”:GOTO67
189 IFR=10ANDN=14THENPRINT” IT’S OPEN. LOOKS SHADOWY IN THERE!”:GOTO67
191 IFR=10ANDN=4ORR=10ANDN=2ORR=10ANDN=123THENPRINT” I CAN’T SEE MUCH.”:GOTO67
193 GOSUB761:IFPS=1THEN67ELSE801
195 IFV>1THEN779
197 IFN=66THENPRINT” A BIG MESS,RUBBLE EVERYWHERE.”:GOTO67
199 IFN=115THENPRINT” VERY LARGE GRANITE ROCKS.”:GOTO67
201 IFR=7ANDN=34THENPRINT” WHAT EYES?”:PRINT@162,STRING$(28,32);:C$(7)=””:GOTO67
203 GOSUB761:IFPS=1THEN67ELSE801
205 IFV>1THEN215
207 IFN=114THENPRINT” IT’S GOT A WOODEN COVER ON IT.”:GOTO67
209 IFN=149ANDLO(4)=6THENPRINT”I SEE SOMETHING ON IT!”:GOTO67
211 IFN=149ORN=152THENPRINTR1$:GOTO67
213 GOSUB761:IFPS=1THEN67ELSE801
215 IFV=31ANDN=114THENPRINT” I HEAR HISSING!”:GOTO67ELSE779
217 GOSUB761:IFPS=1THEN67ELSEPRINT” I THINK THIS WOOD IS ROTTEN!”:GOTO67
219 IFV>1THEN231
221 IFN=73THENPRINT” CAN’T TELL MUCH FROM UP HERE.”:GOTO67
223 IFN=60ORN=64ORN=145THENPRINT” THE STEPS LOOK OK.”:GOTO67
225 IFN=142THENPRINTR1$:GOTO67
227 IFR=11ANDN=14THENPRINTR3$:GOTO67
229 GOSUB761:IFPS=1THEN67ELSE831
231 IFR=11ANDV=31ANDN=73ORR=11ANDV=31ANDN=145THENPRINT” I HEAR SOMETHING,BUT I CAN’T MAKE IT OUT.”:GOTO67
233 IFR=26ANDV=31ANDN=52ORR=26ANDV=31ANDN=42ORR=26ANDV=31ANDN=73ORR=26ANDV=31ANDN=128THENPRINT” SOUNDS WET DOWN THERE.”:GOTO67ELSE779
235 IFV>1THEN247
237 IFR=13ANDN=58ANDH>1THENPRINT” THEY LOOK ABOUT YOUR SIZE!”:GOTO67
239 IFR=13ANDN=26ORR=14ANDN=26ORR=13ANDN=161ORR=14ANDN=161THENPRINTR1$:GOTO67
241 IFR=14ANDN=80ORR=14ANDN=146ORR=14ANDN=16THENPRINT” NOT VERY CHEERY!”:GOTO67
243 IFR=27ANDN=99ANDH4=1THENPRINT” HUGE!”:GOTO67
245 GOSUB761:IFPS=1THEN67ELSE831
247 IFR=13ANDV=7ANDN=26ORR=14ANDV=7ANDN=26THENPRINT” SNEEZE!”;R2$:GOTO67
249 IFR=13ANDV=7ANDN=161ORR=14ANDV=7ANDN=161THENPRINT” TOO MANY!”:GOTO67
251 IFR=13ANDV=7ANDN=58ANDH>1THENPRINT” DONE-“:PRINT@162,STRING$(19,32);:C$(13)=””:H=0:GOTO67
253 GOTO779
255 IFV>1THEN779
257 IFN=140THENPRINT” CAN’T TELL MUCH FROM HERE.”:GOTO67
259 IFN=73ORN=114ORN=115ORN=135ORN=149ORN=170THENPRINT” FINE VIEW!”:GOTO67
261 IFN=59ANDLEN(N$)>6THENPRINT” JUST A RUSTY RAILED PLATFORM.”:GOTO67
263 IFN=14THENPRINTR3$:GOTO67
265 IFN=60ORN=64THENPRINT” THEY DESCEND TO THE MAIN DECK.”:GOTO67
267 GOSUB761:IFPS=1THEN67ELSE801
269 IFV>1THEN285
271 IFN=80ORN=146THENPRINT” SUNNY IN HERE.”:GOTO67
273 IFN=75ORN=144THENPRINT” I SEE BLUE SKY.”:GOTO67
275 IFN=133ANDK=0THENPRINT” A LARGE CLOSED,METAL CHEST.”:GOTO67
277 IFN=133ANDK=1ANDFO(1)=1THENPRINT” IT’S NOW EMPTY.”:GOTO67
279 IFN=133ANDK=1ANDFO(1)=0THENPRINT” EMPTY,EXCEPT FOR A KEY.”:GOTO67
281 IFN=134ANDK=1ANDFO(1)=0THENPRINT” “;OD$(1):GOTO67
283 GOSUB761:IFPS=1THEN67ELSE851
285 IFV=4ANDN=102THENPRINTR5$:GOTO67
287 IFV=4ANDN=133ORV=10ANDN=133ORV=13ANDN=133THENPRINT” IT’S MUCH TOO HEAVY!”:GOTO67
289 IFV=25ANDN=133ANDK=0THENPRINT” OK-“;R3$:K=1:GOTO67
291 IFV=25ANDN=133ANDK=1THENPRINTR3$” ALREADY!”:GOTO67ELSE779
293 IFV>1THEN305
295 IFR=16ANDN=25ORR=16ANDN=146ORR=16ANDN=80THENPRINT” VERY BRIGHT HERE.”:GOTO67
297 IFN=26ORN=161THENPRINT” THICK AS DOVE’S DOWN!”:GOTO67
299 IFR=16ANDN=116THENPRINT” THICK COBWEBS.”:GOTO67
301 IFR=18ANDN=56ORR=18ANDN=97THENPRINT” HE’S GONE NOW!”:GOTO67
303 GOSUB761:IFPS=1THEN67ELSE851
305 IFV=7ANDR=18ANDN=26ORV=7ANDR=18ANDN=161THENPRINT” NOT WITH THAT SPIDER IN THERE!”:GOTO67
307 IFV=7ANDN=26ORV=7ANDN=116ORV=7ANDN=161THENPRINTR2$:GOTO67
309 IFV=4ANDN=102THENPRINTR5$:GOTO67
311 IFR=16ANDV=7ANDN=54THENPRINTR2$:GOTO67ELSE779
313 IFV>1THEN779
314 IFN=46ORN=54THENPRINT” LONG TABLES AND BENCHES.”:GOTO67
315 IFN=62ORN=101ORN=123THENPRINT” LOOKS LIKE THE CREW’S MESS.”:GOTO67
317 IFN=29ORN=92THENPRINTR1$:GOTO67
319 IFN=48ORN=59THENPRINT” I DON’T SEE ANY.”:GOTO67
321 GOSUB761:IFPS=1THEN67ELSE867
323 IFV>1THEN339
325 IFN=46ORN=54ORN=90ORN=101ORN=123THENPRINT” LOTS OF BUNKS IN HERE!”:GOTO67
327 IFN=33ORN=37ORN=85ORN=92ORN=102ORN=125THENPRINTR6$:GOTO67
329 IFN=89ORN=132THENPRINT” YOU SEE A CLOSED DOOR.”:GOTO67
331 IFN=14THENPRINT” JUST A DOOR WITH A SMALL HOLE CHEWED IN THE BOTTOM.”:GOTO67
333 IFN=121THEN457
335 IFN=110THENPRINT” DARK IN THERE!”:GOTO67
337 GOSUB761:IFPS=1THEN67ELSE867
339 IFV=4ANDN=102THENPRINTR5$:GOTO67
341 IFV=31ANDN=14ORV=31ANDN=110THENPRINT” I HEAR SCUFFLING ABOUT.”:GOTO67
343 IFV=25ANDN=14THEN701ELSE779
345 IFV>1THEN367
347 IFN=52ORN=101ORN=123THENPRINT” LARGE,BRIGHT AND AIRY.”:GOTO67
348 IFN=1ORN=46ORN=54THENPRINT” JUST TABLES AND CHAIRS.”:GOTO67
349 IFN=113ORN=125ORN=131THENPRINTR1$:GOTO67
350 IFN=36THEN861
351 IFN=92THENPRINT” ONE OF THEM HAS A BOOK ON IT.”:GOTO67
353 IFN=14THENPRINT” BOTH ARE OPEN.”:GOTO67
355 IFN=93ORN=158THENPRINTR3$;”.I SEE SOME WRITING.”:GOTO67
357 IFN=19ORN=160THENPRINT” ENGLISH!”:GOTO67
359 IFN=80ORN=146THENPRINT” GOOD IN HERE.”:GOTO67
361 IFN=75ORN=144THEN863
363 IFN=121THENPRINT” I SEE A VENT.”:GOTO67
365 GOSUB761:IFPS=1THEN67ELSE867
367 IFV=4ANDN=113ORV=4ANDN=131THENPRINTR5$:GOTO67
369 IFV=4ANDN=93ORV=4ANDN=158THENPRINT” LOOKS TOO FRAIL!”:GOTO67
371 IFV=37ANDN=19ORV=37ANDN=93ORV=37ANDN=158ORV=37ANDN=160THENPRINT” IT READS-‘ABOVE THE VALVES'”:GOTO67
373 IFV=28ANDN=19THENPRINT” IT’S TO FRAIL TO TOUCH!”:GOTO67ELSE779
375 IFV>1THEN391
377 IFN=101ORN=123THENPRINT” THIS MUST BE THE STATEROOM.”:GOTO67
379 IFN=1ORN=46ORN=54ORN=124THENPRINT” A BED,DESK AND BOOKSHELVES.”:GOTO67
381 IFN=18ORN=33ORN=67ORN=85ORN=102ORN=113ORN=131THENPRINTR6$:GOTO67
383 IFN=104THENPRINT” NOTHING NOVEL ABOUT THEM.”:GOTO67
385 IFN=20ORN=93ANDLEN(N$)>5THENPRINT” FULL OF BOOKS.”:GOTO67
387 IFN=93THENPRINT” CRUMBLING WITH AGE.”:GOTO67
389 GOSUB761:IFPS=1THEN67ELSE867
391 IFV=4ANDN=93ORV=4ANDN=102ORV=4ANDN=113ORV=4ANDN=131THENPRINTR5$:GOTO67
392 IFV=37ANDN=93THENPRINT” I DON’T HAVE ONE TO READ!”:GOTO67
393 IFV=37ANDN=104THENPRINT” ONE READS-‘THE EVOLUTION OF RADIO TUBES AND VALVES’.”:GOTO67ELSE779
395 IFV>1THEN409
397 IFN=129ORN=166THENPRINT” YES,A MAP OR CHART.”:GOTO67
399 IFN=92THENPRINT” I SEE SOME PAPER ON IT.”:GOTO67
401 IFN=27THENPRINT” A CHART OR MAP,I THINK!”:GOTO67
403 IFN=46ORN=54ORN=101ORN=123THENPRINT” I SEE A TABLE,PAPER AND LAMP.”:GOTO67
404 IFN=88THENPRINT” DO YOU MEAN READ MAP?”:GOTO67
405 IFN=138ORN=146THENPRINT” JUST AN ORDINARY LAMP.”:GOTO67
406 IFN=84THENPRINT” I DON’T SEE ONE.”:GOTO67
407 GOSUB761:IFPS=1THEN67ELSE867
409 IFV=4ANDN=27ORV=4ANDN=129ORV=4ANDN=166THENPRINTR5$:GOTO67
411 IFV=28ANDN=138THENPRINT” IT JUST SPINS AROUND.”:GOTO67
413 IFV=28ANDN=27ORV=28ANDN=129ORV=28ANDN=166THENPRINT” MADE BY HONG KONG MAP CO.”:GOTO67
415 IFV=37ANDN=27ORV=37ANDN=129ORV=37ANDN=166THENPRINT” LOOKS LIKE THE PACIFIC OCEAN.”:GOTO67ELSE779
417 IFV>1THEN441
418 IFN=101ORN=123THENPRINT” MUST BE THE CAPTAIN’S CABIN.”:GOTO67
419 IFN=1ORN=46ORN=54THENPRINT”NOTHING OUT OF THE ORDINARY EXCEPT MR.BONES.”:GOTO67
421 IFN=40THENPRINT” A HEADLESS BUNCH OF BONES HELD TOGETHER BY A PEA JACKET.”:GOTO67
423 IFN=18THENPRINT” IT HAS A SKULL ON IT.”:GOTO67
425 IFN=44THENPRINT” IT HAS A HOLE IN ITS SIDE.”:GOTO67
427 IFN=110THENPRINT” WIDE AS HUMAN THOUGHT!”:GOTO67
429 IFN=126ORN=169THENPRINT” BLUE WITH THREE GOLD STRIPES ON THE SLEEVES.”:GOTO67
431 IFN=71THENPRINT” EMPTY”:GOTO67
433 IFN=33ORN=85ORN=102ORN=125ORN=141THENPRINTR6$:GOTO67
435 IFN=53THENPRINT” DRY AS DUST!”:GOTO67
437 IFN=121THEN457
439 GOSUB761:IFPS=1THEN67ELSE867
441 IFV=4ANDN=102THENPRINTR5$:GOTO67ELSE779
443 IFV>1THEN461
445 IFN=47ORN=101ORN=123THENPRINT” SOMEWHAT DARK IN HERE!”:GOTO67
446 IFN=89ORN=132THENPRINT” I SEE NOTHING BUT SHELVES AND A BARREL AGAINST THE FAR WALL.”:GOTO67
447 IFN=20THENPRINT” FULL OF CANS.”:GOTO67
449 IFN=105ORN=109ORN=154THENPRINT” CAN’T TELL MUCH ABOUT THEM.”:GOTO67
451 IFN=17ANDSF=1ORN=182ANDSF=1THEN887
453 IFN=17THENPRINT” IT’S HALF FULL OF BROWN FLOUR.”:GOTO67
455 IFN=69ORN=127ORN=182THENPRINTR6$:GOTO67
457 IFN=121THENPRINT” I SEE A VENT UP THERE.”:GOTO67
459 GOSUB761:IFPS=1THEN67ELSE867
461 IFV=4ANDN=17ORV=10ANDN=17ORV=13ANDN=17THENPRINT” MUCH TOO HEAVY!”:GOTO67
463 IFV=40ANDN=182ANDEE=0THENPRINT” A LITTLE DRY,BUT NOT BAD!”:EE=1:R4$=” WHAT!”:R7$=”NOT GOING”:R8$=””:GOTO67
465 IFV=34ANDN=182ORV=28ANDN=182THENPRINT” COUGH! COUGH! NOTHING.”:GOTO67
466 IFV=37ANDN=154THENPRINT” I CAN’T MAKE THEM OUT!”:GOTO67
467 IFV=40ANDN=182THENPRINT” NO THANKS! ONCE WAS ENOUGH.”:GOTO67ELSE779
469 IFV>1THEN489
471 IFN=72ORN=101ORN=123THENPRINT” LOOKS AS IF THERE WAS A RIOT IN HERE.”:GOTO67
473 IFN=6ORN=50ORN=70THENPRINT”IT’S COVERED WITH OPEN CRATES AND SMALL CLOTH BAGS.”:GOTO67
475 IFN=57ORN=61ORN=165THENPRINT” SMASHED OPEN!”:GOTO67
477 IFN=62ORN=150THENPRINT” BAGS AND BOXES ALL OVER.”:GOTO67
479 IFN=13THENPRINT” A PLETHORA OF CLOTH BAGS!”:GOTO67
481 IFN=141THENPRINTR1$:GOTO67
483 IFN=41THENPRINT” SMALL OPEN CLOTH BAGS.”:GOTO67
485 IFN=79THENPRINT” A LONG WAY FROM DEARTH.”:GOTO67
487 GOSUB761:IFPS=1THEN67ELSE867
489 IFV=4ANDN=57ORV=4ANDN=165THENPRINTR5$:GOTO67
491 IFV=25ANDN=41THENPRINT” THEY FALL APART!”:GOTO67
493 IFV=4ANDN=41THENPRINT” THEY FALL TO DUST.”:GOTO67ELSE779
495 IFV>1THEN517
497 IFN=101ORN=123THENPRINT” MUST BE THE RADIO SHACK.”:GOTO67
499 IFN=38ORN=103ORN=148ANDLEN(N$)>5THENPRINT” JUST A SMASHED-UP BUNCH OF TUBES,KNOBS AND WIRES!”:GOTO67
501 IFN=33ORN=85ORN=92ORN=102ORN=125ORN=178THENPRINTR1$:GOTO67
503 IFN=7ORN=100ORN=120ORN=148THENPRINT” I CAN’T TELL MUCH ABOUT THEM.”:GOTO67
505 IFN=46ORN=54THENPRINT” A SMASHED WIRELESS ON A TABLE. ALSO A CHAIR AND BUNK.”:GOTO67
509 IFN=121THENPRINT” WELL,LOOK AT THAT! A MESSAGE UP THERE.”:GOTO67
511 IFN=162THENPRINT” NO CHANCE! I FOUND IT FIRST!”:GOTO67
513 IFN=62ORN=160THENPRINT” NEEDS READING!”:GOTO67
515 GOSUB761:IFPS=1THEN67ELSE867
517 IFV=4ANDN=38ORV=4ANDN=103ORV=4ANDN=148THENPRINT” MUCH TOO HEAVY FOR THAT!”:GOTO67
519 IFV=28ANDN=7THENPRINTR2$:GOTO67
521 IFV=13ANDN=100ORV=13ANDN=120THENPRINT” I MIGHT CUT MYSELF!”:GOTO67
523 IFV=4ANDN=102THENPRINT” I SEE A NAUGHTY MAGAZINE!”:GOTO67
525 IFV=37ANDN=62ORV=37ANDN=160THENPRINT” WHEN ASHES TURN COLD AND GRAY WHEN HEAD AND SOLE POINT THE WAY FROM A WEASAND DROPS THE PAY”:GOTO67ELSE779
527 IFV>1THEN545
529 IFN=78ORN=101ORN=123ORN=130THENPRINT” LOOKS LIKE THE COOK’S MESS!”:GOTO67
531 IFN=14ORN=32ORN=81THENPRINTR1$:GOTO67
533 IFN=43ORN=48ORN=83ORN=87THENPRINT” I DON’T SEE ANY HERE.”:GOTO67
535 IFN=68THENPRINT” AN OLD PARAFFIN BURNER.”:GOTO67
537 IFN=11THENPRINTR3$;” AND EMPTY.”:GOTO67
539 IFN=82THENPRINT” BLACK WITH AGE.”:GOTO67
541 IFN=121THENPRINT” COVERED WITH GREASE.”:GOTO67
543 GOSUB761:IFPS=1THEN67ELSE867
545 IFV=7ANDN=82THENPRINT” THIS ISN’T MUCH FUN,ALSO IT’S A WASTE OF TIME!”:GOTO67ELSE779
547 IFV>1THEN574
549 IFN=77ORN=123ORN=140ANDLEN(N$)=10THENPRINT” AN EERIE LIGHT WASHES THE ROOM AS SUNLIGHT TRIES TO PENETRATE AGE FOGGED GLASS.”:GOTO67
551 IFN=6ORN=14ORN=35ORN=50ORN=70ORN=111ORN=121ORN=132ORN=173ORN=174THENPRINT” NOTHING WORTH NOTING.”:GOTO67
553 IFN=73THENPRINT” I’LL HAVE TO GO OUTSIDE.”:GOTO67
555 IFN=118THENPRINT” A UNIMPRESSIVE METAL WHEEL.”:GOTO67
557 IFN=49ORN=156THENPRINT” I SEE A BRASS STAND HOUSING A COMPASS.”:GOTO67
559 IFN=39ORN=145THENPRINT” WE HAVE A HEADING OF 90 DEG.”:GOTO67
561 IFN=96THENPRINT” I SEE A BRASS DEVICE MARKED FULL ASTERN TO FULL AHEAD.THE HANDLE RESTS ON-> “BH$(BC):GOTO67
563 IFN=106THENPRINT” IT POINTS TO-> “BH$(BC):GOTO67
565 IFN=140THENPRINTR6$:GOTO67
567 IFN=75ORN=144ORN=178THENPRINT” ALMOST OPAQUE.”:GOTO67
569 IFN=80ORN=146THENPRINT” EEIRE!”:GOTO67
571 IFN=14THENPRINTR3$:GOTO67
572 IFN=107THENPRINT” LETS KEEP IT SIMPLE!!”:GOTO67
573 GOSUB761:IFPS=1THEN67ELSEPRINTR4$:GOTO67
574 IFV=7ANDN=173THENPRINT” SWAB THE DECK TOO?”:GOTO67
575 IFV=10ANDN=106ANDEF=1THENBC=BC+1:GOTO667
577 IFV=13ANDN=106ANDEF=1THENBC=BC-1:GOTO667
579 IFV=10ANDN=106ORV=13ANDN=106THENPRINT” THE PLAGUED THING IS STUCK!”:GOTO67
580 IFV=37ANDN=106THEN563
581 IFV=28ANDN=140ANDLEN(N$)=5THENPRINTR2$:GOTO67ELSE779
583 IFV>1THEN601
585 IFN=2ORN=86ORN=123THENPRINT” CAVERNESS,WET AND GLOOMY!”:GOTO67
587 IFN=6ORN=50ORN=70ORN=128THENPRINT” VERY WET HERE!”:GOTO67
589 IFN=14ORN=16ORN=51ORN=121ORN=173THENPRINT” TOO DARK TO TELL MUCH!”:GOTO67
591 IFN=120THENPRINT” A FEW HERE-A FEW THERE.”:GOTO67
593 IFN=24THENPRINT” I SEE A TELEGRAPH.”:GOTO67
595 IFN=96THENPRINT” I SEE A BRASS DEVICE MARKED FULL ASTERN TO FULL AHEAD.THE HANDLE RESTS ON-> “EH$(EC):GOTO67
597 IFN=106THENPRINT” IT POINTS TO-> “EH$(EC):GOTO67
598 IFN=107THEN572
599 GOSUB761:IFPS=1THEN67ELSE867
601 IFV=10ANDN=106ANDEF=1THENEC=EC+1:GOTO675
603 IFV=13ANDN=106ANDEF=1THENEC=EC-1:GOTO675
605 IFV=10ANDN=106ORV=13ANDN=106THENPRINT” IT’S STUCK!”:GOTO67
607 IFV=25ANDN=14THENPRINT” OOPS!!”:GOTO695
609 IFV=31ANDN=14THENPRINT” I THINK I HEAR WATER.”:GOTO67
610 IFV=37ANDN=106THEN597
611 IFV=31ANDN=2ORV=31ANDN=86ORV=31ANDN=123THENPRINT” I HEAR DRIPPING WATER.”:GOTO67ELSE779
613 IFV>1THEN639
615 IFN=2ORN=86ORN=123THENPRINT”CREEPY IN HERE!”:GOTO67
617 IFN=6ORN=50ORN=70ORN=128THEN587
619 IFN=16ORN=51ORN=121THEN589
621 IFN=65THENPRINT” LARGE! MENACING! I SEE ASHES INSIDE.”:GOTO67
623 IFN=120THEN591
625 IFN=5ORN=9THENPRINT” COLOSSAL AMOUNT!”:GOTO67
627 IFN=55ANDBF=1ORN=157ANDBF=1THENPRINT” I SEE A BOX ON THE WALL BEHIND THE COAL.”:GOTO67
629 IFN=55ORN=157THENPRINT” IT’S AGAINST THE NORTH WALL.”:GOTO67
631 IFN=57ANDBF=1THENPRINT” IT READS- DANGER HIGH VOLTAGE PULL HANDLE FOR AUXILIARY POWER”:GOTO67
633 IFN=106ANDBF=1THENPRINT” JUST A HANDLE ON THE SIDE.”:GOTO67
635 IFN=14THENPRINT” I COULDN’T TELL ANVTHING WHEN I WAS NEXT TO IT.SO HOW THE (BEEP) CAN I SEE IT NOW!!”:GOTO67
637 GOSUB761:IFPS=1THEN67ELSE867
639 IFV=34ANDN=55ANDBF=1ORV=34ANDN=157ANDBF=1THENPRINT” I’M TIRED OF DIGGING COAL!”:GOTO67
641 IFV=34ANDN=55ANDLO(4)=100ORV=34ANDN=157ANDLO(4)=100THENCF=CF+1:GOTO683
643 IFV=28ANDN=157THENPRINT” DO YOU MEAN DIG?”:GOTO67
645 IFV=34ANDN=50ORV=34ANDN=9ORV=34ANDN=55ORV=34ANDN=157THENPRINT” DIG-DIG PHEW! NOTHING.”:GOTO67
646 IFV=10ANDN=106ANDBF=1ANDEF=1THENPRINT” CLINK!”:EF=0:GOTO67
647 IFV=10ANDN=106ANDBF=1THENPRINT” IT’S ALREADY UP!”:GOTO67
649 IFV=13ANDN=106ANDBF=1ANDEF=1THENPRINT” IT’S ALREADY DOWN!”:GOTO67
651 IFV=13ANDN=106ANDBF=1THENPRINT” CLONK!”:EF=1:GOTO67
652 IFV=37ANDN=57ANDBF=1ORV=37ANDN=160ANDBF=1THENN=57:GOTO631
653 IFV=31ANDN=2ORV=31ANDN=86ORV=31ANDN=123THEN611ELSE779
655 FORX=0TO448STEP64: PRINT@X,STRING$(32,175);:NEXT:FORX=32TO416STEP64:PRINT@X,STRING$(32,207);:NEXT:PRINT@480,STRING$(31,207);:POKE1535,207
657 RUN3
659 FORZ=0TO99:NEXT:Z=0:RETURN
661 FORX=0TO999:NEXT:X=0:RETURN
663 FORX=0TO1700:NEXT:X=0:RETURN
665 FORX=0TO300:NEXT:X=0:RETURN
667 IFBC>6THENBC=6:PRINT” YOU’RE ALL THE WAY FORWARD.”:GOTO67
669 IFBC<0THENBC=0:PRINT” YOU’RE ALL THE WAY BACK.”:GOTO67
671 IFBC=5ANDEC=5THENSF=1ELSESF=0
673 PRINT” IT NOW POINTS AT-> “BH$(BC):GOTO67
675 IFEC>6THENEC=6:PRINT” YOU’RE ALL THE WAY FORWARD.”:GOTO67
677 IFEC<0THENEC=0:PRINT” YOU’RE ALL THE WAY BACK.”:GOTO67
679 IFBC=5ANDEC=5THENSF=1ELSESF=0
681 PRINT” IT NOW POINTS AT->”EH$(EC):GOTO67
683 IFCF<5THEN PRINT” DIG-DIG PHEW! NOTHING.”:GOTO67
685 PRINT” WOW! I SEE A BOX ON THE WALL.”:BF=1:GOTO67
687 HF=HF+1:IFHF=2THEN689ELSE77
689 PRINT” …CRACK!!..I’M FALLING!!”:GOSUB661:FORX=66TO451STEP32:PRINT@X,” “;:PRINT@X+32,”YOU”;:FORZ=1TO50:NEXTZ,X:CLS0
691 GOSUB661:PRINT@139,” SPIDERS! “;:GOSUB661:CLS0:GOSUB661:PRINT@139,” SNAKES!! “;:GOSUB661:CLS0:GOSUB661:PRINT@129,” ‘LEAVE IT TO BEAVER’ RERUNS! “;:GOSUB661:CLS0:GOSUB661:PRINT@140,” ?#$%#!”;:GOSUB663:GOTO655
693 CLS:PRINT@34,”YOU JUST WALKED THE PLANK!!”:GOSUB663:FORX=34TO450STEP32:PRINT@X,” “;:PRINT@X+32,”YOU DUMB!”;:FORZ=1TO80:NEXTZ,X:CLS:PRINT@450,”SPLASH!!”:GOSUB661:GOTO655
695 FORX=1504TO1535:POKEX,175:FORZ=1TO20:NEXTZ,X:PRINT@452,”BOY! THIS WATER IS COLD!!”;
697 GOSUB663:FORX=1503TO1044STEP-1:POKEX,175:FORZ=1TO5:NEXTZ,X:PRINT@12,STRING$(8,32);:FORX=1035TO1024STEP-1:POKEX,175:FORZ=1TO5:NEXTZ,X:GOSUB661
699 PRINT@13,” NUTS! “;:GOSUB661:PRINT@12,STRING$(8,175);:GOSUB661:GOTO655
701 PRINT” I SEE A RAT!”:GOSUB661:PRINT” I SEE ANOTHER!!”:GOSUB661:PRINT” AND ANOTHER!!”:GOSUB659:FORX=1TO200:PRINT”RATS”;:NEXT:GOTO655
703 PRINT@480,STRING$(31,32);:TC=1
705 PRINT@480,””;:FORX=1TO4:GOSUB659
707 IFLO(X)=100ORLO(X)=R THENPRINTTAB(TC)O$(X);:TC=TC+8
709 NEXT:GOSUB665:GOTO655
711 JJ=0:FORX=1TO4
713 IFLO(X)=100THENPRINT” “O$(X);:JJ=1
715 NEXT
717 IFJJ=0THENPRINT” YOU GOT NOTHING,MATE!”:GOTO67ELSE67
719 IFN=134ANDR=17ANDK=1ANDLO(1)=117THENLO(1)=17
721 IFR=15ANDN=93ORR=15ANDN=158THENPRINT” IT LOOKS TOO FRAIL.”:GOTO67
722 IFN=102ORN=113ORN=131THENPRINT” THAT’S A BIT ENTHUSIASTIC!”:GOTO67
723 IFR=19ANDN=93THENPRINT” THEY FALL TO PIECES!”:GOTO67
724 IFR=36ANDN=9ORR=36ANDN=157THENPRINT” I’LL NEED A GLASS OF WATER!”:GOTO67
725 IFR=23ANDN=27ORR=23ANDN=129ORR=23ANDN=166THENPRINT” WOULD SEARS CATALOG DO?”:GOTO67
726 IFR=23ANDN=138ORR=24ANDN=148THENPRINT” NO CHANCE!”:GOTO67
727 IFR=32ANDN=105ORR=32ANDN=109THENPRINT” THEY’RE STUCK TOGETHER!”:GOTO67
728 IFR=25ANDN=44ORR=25ANDN=53THENPRINT” YOU HAVE A BONE TO PICK WITH THE CAPTAIN?”:GOTO67
729 IFR=33ANDN=41THENPRINT” THEY KEEP FALLING APART!”:GOTO67
731 IFR=24ANDN=162THENPRINT” I’LL KEEP IT MYSELF!”:GOTO67
733 IFR=1ANDN=119THENPRINT” BETTER LOOK FIRST!”:GOTO67
735 IFR=15ANDN=125ORR=34ANDN=125THENPRINT” NO THANK YOU! I’LL STAND.”:GOTO67
737 SO=INSTR(1,OS$,N$):IFSO=0THENPRINT” I’M “R7$” TO TAKE THAT!”:GOTO67
739 FORX=1TO4
741 IFO$(X)=N$ANDLO(X)=100THENPRINT” I ALREADY HAVE IT.”:GOTO67
743 IFO$(X)=N$ANDLO(X)=R THEN749
745 NEXTX
747 PRINT” I’M “R7$” TO TAKE THAT!”:GOTO67
749 PRINT” OK- I GOT IT.”:LO(X)=100:FO(X)=1:GOTO65
751 SO=INSTR(1,OS$,N$):IFSO=0THENPRINTRIGHT$(R4$,6):GOTO67
753 FORX=1TO4
755 IFO$(X)=N$ANDLO(X)=100THENLO(X)=R:GOTO65
757 NEXTX
759 PRINTRIGHT$(R4$,6):GOTO67
761 SO=INSTR(1,OS$,N$):IFSO=0THENRETURN
763 FORX=1TO4
765 IFN$=O$(X)ANDLO(X)=100THENPRINT” I HAVE “;OD$(X):PS=1:RETURN
767 IFN$=O$(X)ANDLO(X)=R THENPRINT” “;OD$(X):PS=1:RETURN
769 NEXTX:RETURN
771 IFG<5ANDR>10ANDR<>20THENPRINT” BANG!-RICOCHET-PING!”:GOTO67
773 IFG=5ANDR>10ANDR<>20THENPRINT” BANG!-RICOCHET-THUD!!”:GOTO703
775 IFG<6THENPRINT” BANG!”:GOTO67
777 PRINT” CLICK!”:GOTO67
779 IFV>40THEN793
781 IFV=4ORV=10ORV=13ORV=25ORV=28THENPRINT” “R8$”I CAN’T DO THAT!”:GOTO67
783 IFV=31THENPRINT” SILENT AS A TOMB!”:GOTO67
784 IFPV=19ANDN=60ORV=19ANDN=64ORV=19ANDN=145THENPRINT” USE (U) OR (D) ON ALL STAIRS.”:GOTO67
785 IFV=19ORV=34ORV=40THENPRINT”ARE YOU CRAZY!”:GOTO67
787 IFV=7ANDN=75ORV=7ANDN=144ORV=7ANDN=178THENPRINT” I DON’T DO WINDOWS!!”:GOTO67
789 IFV=7THENPRINT” IT WOULDN’T DO ANY GOOD!”:GOTO67
791 IFV=37THENPRINT” I CAN’T READ THAT!”:GOTO67
793 IFV=43ANDN=94ANDLO(2)=100THENG=G+1:GOTO771
795 IFPV=43ANDN=94THENPRINT” I CAN’T!”:GOTO67
797 IFV=43THENPRINT” “N$”? THEY DON’T SHOOT!”:GOTO67
799 IFV=46THENPRINT ” YOU LOUSY,NO GOOD “;N$;”!!”:GOTO67ELSE67
801 IFN=31ORN=73ORN=111ORN=127ORN=137THENPRINT” NOTHING SINGULAR THERE.”:GOTO67
803 IFN=74ORN=77ORN=122THENPRINT” NOTHING SPECIAL FROM HERE.”:GOTO67
804 IFN=170THEN144
805 IFN=8ORN=15ORN=128THENPRINT” GRAY AS THE INSIDE OF A PEWTER DISH!”:GOTO67
807 IFN=45ORN=112ORN=153THENPRINT” HE’S GONE!”:GOTO67
809 IFN=6ORN=50ORN=152THENPRINT”ROUGH AND WEATHER-BEATEN.”:GOTO67
811 IFN=80ORN=146THENPRINT” RADIANT WHEN THE SUN ISN’T BEHIND A CLOUD.”:GOTO67
813 IFN=59ORN=95ORN=132ORN=174THENPRINT” RIVETED AND RUST STREAKED.”:GOTO67
815 IFN=30ORN=136THENPRINT” DESOLATE AND DEPRESSING!”:GOTO67
817 IFN=36THENPRINT” DEEP BLUE WITH A FEW SCUDDING CLOUDS.”:GOTO67
819 IFN=75ORN=144ORN=178THENPRINT” NEEDS CLEANING!”:GOTO67
821 IFN=35THENPRINT” PEELING AND GRAYED WITH AGE.”:GOTO67
823 IFN=76THENPRINT” JUST SLIPPED BEHIND A CLOUD!”:GOTO67
825 IFN=62ORN=135THENPRINT” ONE BIG MESS.DEFIES ANALYSIS.”:GOTO67
827 IFN=59ORN=70THENPRINTR1$:GOTO67
829 PRINTR4$:GOTO67
831 IFN=6ORN=50ORN=70ORN=111ORN=127ORN=174THENPRINTR1$:GOTO67
833 IFN=26ORN=58ORN=99ORN=161THENPRINT” NONE HERE.”:GOTO67
835 IFN=35THENPRINT” YELLOW WITH AGE!”:GOTO67
837 IFN=23ORN=98THENPRINT” GLOOMY AS A GRAVEYARD ON A WET SUNDAY!”:GOTO67
839 IFN=146THENPRINT” NOT MUCH LIGHT HERE.”:GOTO67
841 IFN=121ORN=132THENPRINT” COVERED WITH PEELING PAINT.”:GOTO67
843 IFR=13ANDN=14ORR=14ANDN=14ORR=22ANDN=14THENPRINT” THEY’RE OPEN.”:GOTO67
845 IFR=28ANDN=14ORR=29ANDN=14THENPRINTR3$:GOTO67
847 IFN=2THENPRINT” NOT ME!”:GOTO67
849 PRINTR4$:GOTO67
851 IFN=6ORN=33ORN=50ORN=70ORN=85ORN=89ORN=92ORN=121ORN=125ORN=127ORN=132ORN=174THENPRINT” NOTHING CURIOUS THERE.”:GOTO67
853 IFN=1ORN=46ORN=54ORN=101ORN=123THENPRINT” A BUNK,TABLE AND CHAIR.”:GOTO67
855 IFN=10ORN=26THENPRINT” A BIT HERE AND THERE.”:GOTO67
857 IFN=80ORN=146THENPRINT” NOT MUCH HERE!”:GOTO67
859 IFN=14THENPRINTR3$:GOTO67
861 IFN=36THENPRINT” NOTHING OUT THERE.”:GOTO67
862 IFN=102THENPRINT” NOTHING THERE.”:GOTO67
863 IFN=75ORN=144ORN=178THENPRINT” I SEE BLUE SKY.”:GOTO67
865 PRINTR4$:GOTO67
867 IFN=6ORN=50ORN=70ORN=89ORN=111ORN=121ORN=132THENPRINT” NOTHING PARTICULAR THERE.”:GOTO67
869 IFN=146THENPRINT” VERY LITTLE HERE.”:GOTO67
871 IFN=10ORN=35ORN=127ORN=174THENPRINT” I SEE NOTHING UNUSUAL.”:GOTO67
873 IFN=14THENPRINTR3$:GOTO67
875 IFN=22ANDLEN(N$)=7THENPRINT”WHY! IS MY FLY DOWN?”:GOTO67
877 IFN=22ORN=75ORN=144THENPRINT” DON’T SEE ANY!”:GOTO67
879 IFR=25ANDN=108ORR=32ANDN=108ORR=34ANDN=108ORR=15ANDN=108THENPRINT” LOOKS LIKE AN AIR DUCT.”:GOTO67
881 IFR=25ANDN=186ORR=32ANDN=186ORR=34ANDN=186ORR=15ANDN=186THENPRINT” DARK AS A POCKET!”:GOTO67
885 IFN=2THENPRINT” DUSKY,DULL,DINGY AND DRAB.WHAT ELSE CAN I SAY!”:GOTO67ELSEPRINTR4$:GOTO67
887 CLS0:FORX=28TO34:SET(X,2,5):NEXT:FORX=25TO37:SET(X,3,5):NEXT:FORX=22TO40:SET(X,4,5):NEXT:FORX=20TO42:SET(X,5,5):NEXT:FORZ=6TO8:FORX=18TO44:SET(X,Z,5):NEXTX,Z:FORZ=9TO12:FORX=17TO45:SET(X,Z,5):NEXTX,Z
889 FORZ=13TO15:FORX=16TO46:SET(X,Z,5):NEXTX,Z:FORZ=16TO17:FORX=18TO44:SET(X,Z,5):NEXTX,Z:FORX=24TO38:SET(X,18,5):NEXT:FORX=22TO40:SET(X,19,5):NEXT:FORZ=20TO21:FORX=21TO41:SET(X,Z,5):NEXTX,Z
891 FORX=21TO27:RESET(X,8):NEXT:FORX=35TO41:RESET(X,8):NEXT:FORX=20TO28:RESET(X,9):NEXT:FORX=34TO42:RESET(X,9):NEXT:FORZ=10TO11:FORX=19TO29:RESET(X,Z):NEXTX:FORX=33TO43:RESET(X,Z):NEXTX,Z
893 FORX=20TO28:RESET(X,12):NEXT:FORX=34TO42:RESET(X,12):NEXT:FORX=21TO27:RESET(X,13):NEXT:FORX=35TO41:RESET(X,13):NEXT
895 FORX=30TO32:RESET(X,14):NEXT:FORX=29TO33:RESET(X,15):NEXT:FORX=28TO34:RESET(X,16):NEXT:FORX=29TO33:RESET(X,17):NEXT:POKE1356,192:POKE1359,192:POKE1361,192:POKE1363,192
897 PRINT@384,” ***WELL DONE*** “;
899 GOSUB663
901 IFEE=1THEN905
903 GOTO903
905 PRINT@384,” HOWEVER-YOU ATE THE SAME ERGOT INFESTED FLOUR THAT DROVE THE CREW MAD.NOW THE INSIDIOUS FUNGISURGES TOWARD YOUR BRAIN… “;:POKE1535,96
907 FORX=1TO3800:NEXT
909 POKE1195,191:POKE1196,191:POKE1202,181:POKE1203,191:POKE1204,186
911 MS=1:FORX=0TO30:PLAY”L50BBA”:NEXT
913 FORY=0TO9
915 R=MM(Y):GOTO35
917 NEXTY
919 CLS:PRINT@65,”YOU’RE AT THE END OF THE PLANK!”:GOSUB661:CLS0:GOSUB661
921 PRINT@224,” A CONDOR SLOWLY CIRCLES DOWN..”:GOTO903
923 DATA19,20,15,23,1,23,1,25,23,18,9,20,20,5,14,32,2,25,32,10,46,3,46,10,1,3,11,19,15,14
925 NL$(0)=”APPOASH ASHECONTBARRCOINBEAMBENCBED BEDSBAGSBIRDBINNBONEBOX BOXEBOILCORRBELOBRIDBURNBUNKBULKBOOKBUG CABICAN CANSCARPCANVCEILCHAICHARCHESCLOUCLOTCOMPCOVECONDCOALCOBWCRATCOATBRAS”
927 NL$(1)=”@DARKDECKDIRTDOORDESKDRAWDUSTFREIEYESEQUIECHOFITTFLOOFURNFOOTMESSFOREGROUGANGGALLGREAGROTDORMGUN HALLMATTHANDHOLEHATCHELMFUNNJACKKITCKEY LAMPLANDLIGHLITTLABLLOG MAGAMAP MOUNMETAGLASFLOUDUCT”
929 NL$(2)=”@@NAMENOBSOVENOCEAPAGEPASSPAPEPATHPAINNEEDPANSPANTPIPEPILEPLATPLANPIECPOCKPORTPLETPOTSPARAPULLRAILRATSRADIREPERIVEROCKROPEROOMRUSTRUG RUBB”
931 NL$(3)=”@@@SHADSEA SHRESHAFSHELSHAPSHOVSINKSKY SKELSKULUTENSALOSPIDSTEPSTAISTOVSTOWSUN SUNLSWITSYMBTABLTELETUBETITLVENTVULTVEILVALVSTATWATEWALLSHIPWHEEWINDWIREWOODSTANWRIT”
933 LL$=”NESWUD”:R1$=” NOTHING SPECIAL THERE!”:R2$=” DIDN’T HAVE ANY EFFECT!”:R3$=” IT’S OPEN”:R4$=” LOOK WHAT?”:R5$=” NOTHING UNDER THERE!”:R6$=” NOTHING NOTEWORTHY THERE!”:OS$=”KEYGUNCOINSHOVEL”
935 S$=” “:VL$=”LOOLIFWIPPUSPULTAKCLIDROOPETURLISDIGREAEATSHORAP”:R7$=”UNABLE”:R8$=”SORRY,”
937 FORX=0TO36:READA$(X),B$(X),C$(X),L$(X):NEXTX
939 DATANEXT TO THE RUST STREAKED,PLATES OF AN OLD FREIGHTER.,”FROM ABOVE,A ROPE HANGS DOWN.”,******
941 DATAON THE MAIN DECK.RUSTY,STEPS LEAD UP TO THE BRIDGE.,”TO THE NORTH:A WALL,A DOOR.”,?4*2D0,ON THE STARBOARD GANGWAY.,A LARGE CONDOR WINGS SLOWLY,OVERHEAD.,*1*3**,ON THE STARBOARD GANGWAY.,WATER BLOCKS YOUR PATH TO,THE WEST.,*2****
943 DATAON THE FOREDECK.RUBBLE AND,ROCK HALT YOUR PATH FORWARD.,,5**1**,STANDING BELOW THE BRIDGE.,A MASSIVE WOODEN HATCH COVER,LIES TO THE EAST.,764***,ON A HATCH COVER.THE WOOD,IS OLD AND WEATHER-WORN.,SHREDS OF CANVAS LAY ABOUT.,***5**
945 DATAON THE FOREDECK.RUBBLE AND,ROCK BLOCK YOUR WAY FORWARD.,”FROM ROCKS,SMALL EYES WATCH.”,**58**
947 DATAON THE PORT GANGWAY.TO THE,”SOUTH,A DOORWAY LEADS INTO A”,LARGE ROOM.,*7?9**,ON THE PORT GANGWAY.,A PLANK EXTENDS A SHORT,WAY NORTH FROM THE RAIL.,”Y8*:**”
949 DATAON THE PORT GANGWAY.WATER,BLOCKS YOUR AVENUE TO THE,”WEST.TO THE SOUTH,A DOORWAY.”,*9;***,STANDING AT THE TOP OF A,COMPANIONWAY.A DAMP MUSTY,SMELL RISES FROM BELOW.,”:*<**J”,IN A DUSKY PASSAGEWAY., , ,;=****
951 DATAIN A PASSAGEWAY.DUST AND,COBWEBS COVER EVERYTHING., ,A>C<**,IN A PASSAGEWAY.SHAFTS OF,WATERY SUNLIGHT PLAY ACROSS,COBWEBS AND DUST.,@?B=**,IN A SPACIOUS ROOM.ON THE,”CARPETED DECK,TABLES AND”,CHAIRS ARE SCATTERED ABOUT.,8*1>**
953 DATAIN A CABIN.BRIGHT SUNLIGHT,BEAMS THROUGH THE PORTHOLE.,COBWEBS VEIL THE FURNISHINGS.,**>***,IN A CABIN.STRONG SUNLIGHT,FALLS UPON A GREEN CHEST., ,**=***
955 DATAIN A CABIN.WEAK SUNLIGHT,ILLUMINATES DUSTY FITTINGS.,A SMALL SPIDER CREEPS AWAY.,>*****
957 DATAIN A LARGE CABIN.ONCE-FINE,FURNISHINGS REST UPON A TIME,WORN CARPET.,=*****,STANDING ON A PLATFORM,OUTSIDE THE WHEELHOUSE., ,E****1,IN A LONG NARROW ROOM.YOU,”SEE THE BINNACLE,HELM AND”,THE BRIDGE TELEGRAPH.,**DF**
959 DATAIN A PASSAGEWAY.PEELING,PAINT ON THE WALLS YIELDS,TO RUSTING METAL.,GEHI**,IN A CABIN.A LARGE TABLE,CENTERS THE ROOM.A LAMP,HANGS DOWN OVER THE TABLE.,**F***,IN A SMALL CABIN.A SMASHED,WIRELESS SITS AGAINST THE,FAR WALL.,F*****
961 DATA”IN AN AMPLE,WELL APPOINTED”,CABIN.A SKELETON RESIDES,BEHIND A LARGE DESK.,*F****,ON A LANDING.LIGHT FILTERS,DOWN FROM ABOVE.DRIPPING,WATER ECHOS FROM BELOW.,**K*;S,IN A SHADOWY PASSAGEWAY.,RATS SCURRY OFF INTO THE,DARKNESS.,JL****
963 DATAIN A PASSAGEWAY.THE AIR,FEELS DAMP AND THE SMELL OF,DECAY PERMEATES ALL.,QM*K**,IN A PASSAGEWAY.THERE IS ,A DOORWAY TO YOUR RIGHT., ,*NRL**,IN AN ENLONGATED ROOM.,TABLES AND BENCHES STRETCH,FROM WALL TO WALL.,O**M**
965 DATAIN THE SHIP’S GALLEY.,A BLACK GREASY STOVE,DOMINATES THE KITCHEN.,**NP**,IN A PANTRY.CORRODING CANS,INCRUST THE SHELVES.AGAINST,”THE AFT BULKHEAD,A BARREL.”,*O****,IN A SMALL STOWAGE.OPEN,CRATES AND THEIR CONTENTS,LITTER THE DECK.,**L***
967 DATAIN A LARGE ROOM.BUNKS LINE,THE WALLS.A COUPLE OF TABLES,CENTER THE DORMITORY.,M*****,IN A GROTTO OF ABSTRACT,”SHAPES.PIPES,VALVES,SHAFTS”,MINGLE IN THE DARKNESS.,*T**J*
969 DATANEXT TO A PILE OF COAL.,”TO THE EAST,GAPING BOILERS.”, ,***S**
971 FORX=1TO4:READO$(X),OD$(X),LO(X):NEXT
973 DATAKEY,A SMALL KEY.,117,GUN,A SMALL HAND GUN.,25,COIN,A SILVER COIN.,33,SHOVEL,A SHORT HANDLED STOKER.,6
975 FORX=0TO6:READBH$(X):EH$(X)=BH$(X):NEXT
977 DATAfull astern,half astern,slow astern,all stop,slow ahead,half ahead,full ahead
979 FORX=0TO9:READW:MM(X)=W:NEXT
981 DATA32,31,30,29,28,27,26,11,10,9
983 EC=1:BC=3:R=0:GOTO35
985 CLS0:PRINTSTRING$(32,153);:FORX=1056TO1472STEP32:POKEX,153:POKEX+31,153:NEXT:PRINT@480,STRING$(31,153);:POKE1535,153
987 FORX=1132TO1139:POKEX,147:POKEX+128,156:NEXT:POKE1163,151:POKE1172,155:POKE1195,159:POKE1204,159:POKE1227,157:POKE1236,158:POKE1194,149:POKE1205,154:FORX=1164TO1171:POKEX,32:POKEX+32,32:POKEX+64,32:NEXT
989 POKE1195,32:POKE1204,32:FORX=1348TO1371:POKEX,147:POKEX+64,156:NEXT:POKE1379,149:POKE1404,154:FORX=1380TO1403:POKEX,32:NEXT
991 FORX=1196TO1203:READW:SOUND80,1:POKEX,W:NEXT:FORX=1TO1000:NEXT
993 FORX=1381TO1402:READW:GOSUB1007:POKEX,W:NEXT:FORX=1TO2000:NEXT
995 CLS:PRINTSTRING$(32,153);:FORX=0TO13:PRINTCHR$(153);TAB(31)CHR$(153);:NEXT:PRINTSTRING$(31,153);:POKE1535,153
997 FORX=1TO3:PLAY”L50AB”:FORZ=1TO50:NEXTZ,X:POKE1069,74:POKE1074,74:PLAY”L50AB”:FORX=1101TO1485STEP32:POKEX-32,122:POKEX-27,122:POKEX,74:POKEX+5,74:FORZ=1TO50:NEXT:PLAY”L50AB”:NEXTX:POKE1485,122:POKE1490,122
999 FORZ=1TO200:NEXT:SOUND80,1:FORZ=1TO200:NEXT:POKE1485,74:POKE1490,74:FORZ=1TO100:NEXT:PLAY”L50BA”:POKE1453,74:POKE1458,74:POKE1484,32:PRINT@461,”beware”;:POKE1491,32
1001 FORZ=1TO100:NEXT:PLAY”L50BA”:FORX=1421TO1133STEP-32:POKEX,74:POKEX+5,74:POKEX+31,32:PRINT@X-992,”beware”;:POKEX+38,32:PRINT@X-961,” “;:FORZ=1TO75:NEXT:PLAY”L50BA”:NEXTX
1003 FORZ=1TO400:NEXT:FORX=1101TO1069STEP-32:POKEX,74:POKEX+5,74:PRINT@X-992,” “;:PLAY”L50AB”:FORZ=1TO50:NEXTZ,X:PRINT@44,” “;:FORX=1TO3:PLAY”L50AB”:FORZ=1TO50:NEXTZ,X
1005 GOTO13
1007 IFW<>32 THEN SOUND80,1:RETURNELSERETURN