Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_56.ADF » G/COLDIT1

G/COLDIT1

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_56.ADF
Filename: G/COLDIT1
Read OK: ✔
File size: 293B bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
  150REM Colditz
  200REM Martin Dolby 30.05.83
  300MODE6:VDU23;8202;0;0;0;:*OPT1,1
  450L=1
  500DIMA(22),C$(22),D$(62),E$(62),N(62),E(62),S(62),W(62),F(13),S1(44),S2(44)
  550PROCSET
  560PROCTUNE:PRINTTAB(8,19)"PRESS <SPACE BAR>";
  570OSCLI("FX 21"):REPEATUNTILGET=32:CLS
  600PROCDATA
  650PRINT'"Resume play on a saved game?"
  700REPEAT:KL$=GET$:UNTILKL$="N" OR KL$="Y"
  750IFKL$="Y" PROCLOAD
  800F(5)=RND(4)
  850PROCDES
  900PROCCHOICE
  950PRINT
 1000IFB$="LOOK" THEN 850
 1050IFB$="GLOVES" B$="PAIR OF "+B$
 1100IFB$="WATER" B$="SINK FULL OF "+B$
 1150IFB$="FOOD" B$="RANGE OF "+B$
 1200IFB$="MEAT" B$="JOINT OF "+B$
 1250IFB$="N" ORB$="NORTH" X=1:GOTO2600
 1300IFB$="E" ORB$="EAST" X=2:GOTO2600
 1350IFB$="S" ORB$="SOUTH" X=3:GOTO2600
 1400IFB$="W" ORB$="WEST" X=4:GOTO2600
 1450IFA$="GET" ORA$="TAKE" PROCGET:GOTO2550
 1500IFLEFT$(A$,3)="INV" THEN PROCINV:GOTO2550
 1550IFA$="BUTTON" ORB$="BUTTON" PROCBUTTON:GOTO2550
 1600IFA$="PRESS" ORA$="PULL" ORA$="SWITCH" PROCPULL:GOTO2550
 1650IFA$="WEAR" PROCWEAR:GOTO2550
 1700IFA$="SMASH" ORA$="BREAK" PROCSMASH:GOTO2550
 1750IFA$="SAVE" PROCSAVE:GOTO2550
 1800IFA$="U" ORA$="UP" ORB$="U" ORB$="UP" PROCUP:GOTO2550
 1850IFA$="D" ORA$="DOWN" ORB$="D" ORB$="DOWN" PROCDOWN:GOTO2550
 1900IFA$="READ" PROCREAD:GOTO2550
 1950IFA$="OPEN" ANDB$="DOOR" ORA$="UNLOCK" ANDB$="DOOR" PROCUNLOCK:GOTO2550
 2000IFA$="OPEN" PROCOPEN:GOTO2550
 2050IFA$="DIG" PROCDIG:GOTO2550
 2100IFA$="EXAM" ORA$="EXAMINE" ORA$="MOVE" ORA$="LIFT" ANDB$="WOOD" PROCWOOD:GOTO2550
 2150IFA$="SHOW" ORA$="OFFER" ORA$="GIVE" PROCGIVE:GOTO2550
 2200IFA$="FIX" ORA$="AFFIX" ORA$="ATTACH" ORA$="TIE" PROCFIX:GOTO2550
 2250IFA$="DROP" PROCDROP:GOTO2550
 2300IFA$="QUIT" ORA$="END" ORA$="FINISH" ORA$="STOP" PROCQUIT:GOTO2550
 2350IFA$="LIGHT" ANDB$="LAMP" ORA$="LAMP" ANDB$="ON" PROCLAMP:GOTO2550
 2400IFA$="KILL" ANDB$="GUARD" PROCKILL:GOTO2550
 2450IFA$=B$ THEN PRINT"I don't know how to "A$:GOTO2550
 2500PRINT"I don't know how to "A$" a";FNVOW(B$,0)"!"
 2550PROCP:GOTO850
 2600IFX=1 ANDL=11 PROCGUARD1:GOTO850
 2650IFX=1 ANDN(L)=0 THEN 8200
 2700IFX=2 ANDE(L)=0 THEN 8200
 2750IFX=3 ANDS(L)=0 THEN 8200
 2800IFX=4 ANDW(L)=0 THEN 8200
 2850IFX=1 ANDL=50 ANDF(8)=0 PRINT"The door is locked!":GOTO2550
 2900IFX=2 ANDL=57 ANDF(9)=0 PRINT"The door is locked!":GOTO2550
 2950IFX=1 ANDL=59 ANDF(13)=0 PRINT"The guard won't let you pass":GOTO2550
 3000IFX=1 L=N(L)
 3050IFX=2 L=E(L)
 3100IFX=3 L=S(L)
 3150IFX=4 L=W(L)
 3200GOTO850
 3250END
 3300DEFPROCSET:VDU19,0,4;0;
 3400PRINT'SPC(11)"COLDITZ ADVENTURE"
 3500VDU28,3,23,35,4
 3510PRINT''"Your mission is to escape from"'"Colditz. As in most adventure"'"games, enter two words : a verb  and a noun separated by a space."
 3520PRINT''"Directions can be executed by a  single letter - N for NORTH."
 3530PRINT''"The game can be saved at any"'"point by typing SAVE."
 3550ENDPROC
 3600DEFPROCDATA
 3610X=OPENUP("G.COLDIT2")
 3620FORc=0TO22:INPUT#X,A(c):NEXT
 3630FORc=0TO22:INPUT#X,C$(c):NEXT
 3640FORc=0TO62:INPUT#X,D$(c):NEXT
 3650FORc=0TO62:INPUT#X,E$(c):NEXT
 3660FORc=0TO62:INPUT#X,N(c):NEXT
 3670FORc=0TO62:INPUT#X,E(c):NEXT
 3680FORc=0TO62:INPUT#X,S(c):NEXT
 3690FORc=0TO62:INPUT#X,W(c):NEXT
 3700FORc=0TO13:INPUT#X,F(c):NEXT
 3710FORc=0TO44:INPUT#X,S1(c):NEXT
 3720FORc=0TO44:INPUT#X,S2(c):NEXT
 3730CLOSE#X
 3750ENDPROC
 3800DEFPROCDES
 3850CLS
 3900IFRND(125)=17 PROCPASS:GOTO850
 3950IFRND(125)=17 PRINT"Some Germans walk past you. They are talking and don't seem to"'"notice you":PROCP:GOTO3850
 4050PRINT"You are ";D$(L)'
 4100IFL=2 ANDA(6)<>0 E$(L)="There's a broken cabinet"
 4150IFL=21 ANDA(9)<>0 E$(L)="There's some recently dug soil"
 4200IFL=34 ANDA(13)<>0 E$(L)="There's a pile of wood on the    floor"
 4250PRINTE$(L):PRINT
 4300IFL=62 PROCFIN
 4350AS=1
 4400IF A(AS)=L THEN4550
 4450AS=AS+1:IF AS=23 THEN4750
 4500GOTO4400
 4550PRINT"There is:";
 4600FORF=1TO22:IF A(F)=L THEN PRINTTAB(10);"A "C$(F)
 4650NEXT
 4700PRINT
 4750IFL=36AND F(6)=1 PRINT"A ladder reaches to the skylight"'
 4800IFL>50AND L<57AND F(11)<=0 THEN PRINT"It's risky moving in the dark"':F(10)=F(10)+1:IF F(10)>3 THEN PRINT'"You fell and broke your neck":PROCP:PROCP:PROCE
 4850IFL>50AND L<57THEN F(11)=F(11)-1:IF F(11)<=0 THEN PRINT"Your lamp is out"':F(10)=F(10)+1
 4900IF L=60 THEN PROCCABLE:GOTO850
 4950PRINT"You can go";
 5000IFN(L)<>0 THEN PRINT" North";
 5050IFE(L)<>0 THEN PRINT" East";
 5100IFS(L)<>0 THEN PRINT" South";
 5150IFW(L)<>0 THEN PRINT" West";
 5200IFL=20 ORL=30 ORL=31 ORL=32 ORL=40 ORL=43 PRINT" Up";
 5250IFL=26 ORL=31 ORL=32 ORL=33 ORL=43 ORL=47 PRINT" Down";
 5300IFL=36 AND F(6)=1 PRINT" Up";
 5350IFL=40 AND F(6)=1 PRINT" Down";
 5400IFL=49 AND F(7)=1 PRINT" Down";
 5450IFL=50 PRINT" Up";
 5500PRINT
 5550ENDPROC
 5600DEFPROCCHOICE
 5650A$="":B$="":K$=""
 5700INPUT'"What shall I do ",K$
 5750IFK$="" THEN 5700
 5850F=1
 5900IFMID$(K$,F,1)=" " THEN 6100
 5950A$=A$+MID$(K$,F,1):IF F=LEN(K$) THEN 6050
 6000F=F+1:GOTO5900
 6050IF A$=K$ THEN B$=A$:ENDPROC
 6100B$=RIGHT$(K$,LEN(K$)-F)
 6150ENDPROC
 6200DEFPROCGET
 6250AS=1
 6300IFB$=C$(AS) THEN 6450
 6350AS=AS+1:IFAS=23 THEN PRINT"I don't know what a";FNVOW(B$,1);" is!":ENDPROC
 6400GOTO6300
 6450IFB$="RUCKSACK" AND L=10 THEN PRINT"OK":A(20)=0:F(1)=1:ENDPROC
 6500IFF(1)=0 THEN PRINT"You haven't got anything to put  it in!":ENDPROC
 6550IFB$="LADDER" THEN F(6)=1:A(13)=101:GOTO6900
 6600IFB$="RANGE OF FOOD" AND L=2 AND F(3)=0 THEN PRINT"You can't get that just yet!":ENDPROC
 6650IFB$="BOX" ANDL=21 ANDA(9)=0 THEN PRINT"You can't get that just yet!":ENDPROC
 6700IFA(AS)<>L THEN PRINT"The "B$" isn't here!":ENDPROC
 6750IFB$="SINK FULL OF WATER" ANDA(2)<>100 THEN PRINT"You haven't got anything to put  it in!":ENDPROC
 6800IFB$="SINK FULL OF WATER" AND A(2)=100 PRINT"I will fill your bottle with     water":A(4)=100:A(21)=0:A(2)=0:ENDPROC
 6900PRINT"OK":A(AS)=100:ENDPROC
 6950DEFPROCINV
 7000SS=0
 7050PRINT"You are carrying";
 7100FORF=1TO22:IF A(F)=100 THEN PRINTTAB(17);"A ";C$(F):SS=1
 7150NEXT:IFSS=0 THEN PRINT" nothing"
 7200PROCP
 7250ENDPROC
 7300DEFPROCPULL
 7350IFB$<>"SWITCH" AND B$<>"ON" AND B$<>"LIGHT" THEN PRINT"How can you "A$" a "B$"?":ENDPROC
 7400IFL<>1 THEN PRINT"The switch is not here":ENDPROC
 7450IFF(4)=1 THEN PRINT"It is already switched on":ENDPROC
 7500PRINT"The light is now switched on":F(4)=1:A(22)=1:ENDPROC
 7550DEFPROCWEAR
 7600IFB$<>"UNIFORM" AND B$<>"PAIR OF GLOVES" THEN PRINT"How can you wear a "B$;"?":ENDPROC
 7650IFB$="UNIFORM" ANDA(1)=100 PRINT"You put on the uniform":A(1)=0:F(2)=1:ENDPROC
 7700IFB$="PAIR OF GLOVES" AND A(5)=100 THEN PRINT"You put on the gloves":A(5)=0:F(3)=1:ENDPROC
 7750IFB$="UNIFORM" ANDA(1)<>100 ORB$="PAIR OF GLOVES" ANDA(5)<>100 THEN PRINT"You're not carrying it":ENDPROC
 7800DEFPROCSMASH
 7850IFB$<>"GLASS" ANDB$<>"CABINET" THEN PRINT"I'm not going to let you ";A$:PRINT"a ";B$:ENDPROC
 7900IFL<>2 THENPRINT"The "B$" is not here":ENDPROC
 7950IFF(3)=0 PRINT"You cut your wrist and bleed to  death":PROCP:PROCE
 8000PRINT"Smash! There's glass everywhere":A(6)=2:ENDPROC
 8050DEFPROCGUARD1
 8100IFF(2)=1 PRINT"The guard grunts at you and lets you past":PROCP:L=12:ENDPROC
 8150PRINT"The guard shouts 'Halt' and      presses a gun against your back":PROCP:PROCE
 8200PRINT"You can't go that way":GOTO2550
 8250DEFPROCSAVE
 8300PRINT"Ready tape":PRINT
 8350X=OPENOUT("COLDITZ")
 8400PRINT#X,L
 8450FORF=1TO13:PRINT#X,F(F):NEXT
 8500FORF=1TO22:PRINT#X,A(F):NEXT
 8550CLOSE#X
 8600ENDPROC
 8650DEFPROCLOAD
 8700PRINT'"Ready tape and press play"
 8750X=OPENUP("COLDITZ")
 8800INPUT#X,L
 8850FORF=1TO13:INPUT#X,F(F):NEXT
 8900FORF=1TO22:INPUT#X,A(F):NEXT
 8950CLOSE#X
 9000ENDPROC
 9050DEFPROCUP
 9100IFL=20 L=26:GOTO9510
 9150IFL=30 L=31:GOTO9510
 9200IFL=31 L=32:GOTO9510
 9250IFL=32 L=33:GOTO9510
 9300IFL=40 L=43:GOTO9510
 9350IFL=43 L=47:GOTO9510
 9400IFL=50 L=49:GOTO9510
 9450IFL=36 ANDF(6)=1 THENL=40:GOTO9510
 9500PRINT"You can't go in that direction":ENDPROC
 9510PRINT"OK":ENDPROC
 9550DEFPROCDOWN
 9600IFL=26 L=20:GOTO10010
 9650IFL=47 L=43:GOTO10010
 9700IFL=43 L=40:GOTO10010
 9750IFL=33 L=32:GOTO10010
 9800IFL=32 L=31:GOTO10010
 9850IFL=31 L=30:GOTO10010
 9900IFL=40 ANDF(6)=1 THEN L=36:GOTO10010
 9950IFL=49 ANDF(7)=1 THEN L=50:GOTO10010
10000PRINT"You can't go in that direction":ENDPROC
10010PRINT"OK":ENDPROC
10050DEFPROCREAD
10100IFB$<>"PAPER" AND B$<>"BOOK" THENPRINT"I can't read a "B$:ENDPROC
10150IFF(5)=1 COL$="RED"
10200IFF(5)=2 COL$="GREEN"
10250IFF(5)=3 COL$="YELLOW"
10300IFF(5)=4 COL$="BLUE"
10350IFB$="PAPER" ANDA(7)<>100 THEN PRINT"You aren't carrying it":ENDPROC
10400IFB$="PAPER" ANDA(7)=100 PRINT"It is a reminder to the commanderIt just says "COL$:ENDPROC
10450IFB$="BOOK" ANDA(12)<>100 THEN PRINT"You aren't carrying it":ENDPROC
10500IFB$="BOOK" ANDA(12)=100 AND A(19)<>100 PRINT"A passcard falls out of the book":A(19)=L:ENDPROC ELSE PRINT"It's an interesting book":ENDPROC
10550DEFPROCOPEN
10600IFB$<>"BOX" ANDB$<>"BOOK" PRINT"I can't open a "B$:ENDPROC
10650IFB$="BOOK" ANDA(12)<>100 PRINT"You haven't got a book":ENDPROC
10700IFB$="BOOK" ANDA(12)=100 ANDA(19)<>100 PRINT"A passcard falls out of the book":A(19)=L:ENDPROC
10750IFB$="BOOK" ANDA(12)=100 ANDA(19)=100 PRINT"It's a very interesting book":ENDPROC
10800IFB$="BOX" ANDA(9)<>100 PRINT"You aren't carrying a box":ENDPROC
10850IFB$="BOX" ANDA(9)=100 PRINT"There's a gun inside it":A(10)=L:ENDPROC
10900DEFPROCDIG
10950IFL<>21 PRINT"You can't dig here!":ENDPROC
11000IFA(11)<>100 PRINT"You haven't got a spade":ENDPROC
11050PRINT"You've found a box":A(9)=L:ENDPROC
11100DEFPROCBUTTON
11400PRINT'"Which one? There are four:"'"Red, Green, Yellow, Blue"
11450INPUT'"Colour?"CL$
11500IFCL$="RED" ANDF(5)=1 ORCL$="GREEN" ANDF(5)=2 ORCL$="YELLOW" ANDF(5)=3 ORCL$="BLUE" ANDF(5)=4 THEN PRINT'"The door opens. You may proceed":L=30:ENDPROC
11600PRINT"Bang!"
11650SOUND0,-15,6,25
11700PRINT'"That button set off a booby trap!"
11750PROCP
11800PROCE
11900DEFPROCP:FORF=1TO3000:NEXT:ENDPROC
11950DEFPROCWOOD
12000IFL<>34 PRINT"I can't do that":ENDPROC
12050PRINT"Under the wood there's a ladder":A(13)=L:ENDPROC
12100DEFPROCGIVE
12150IFB$<>"JOINT OF MEAT" PRINT"You can't "A$" a "B$:ENDPROC
12200IFA(14)<>100 PRINT"You're not carrying it":ENDPROC
12250IFL<>41 PRINT"There isn't much point in doing  that":ENDPROC
12300PRINT"The dog eats the meat and drags along rope out of the kennel":A(14)=0:A(15)=L:ENDPROC
12350DEFPROCFIX
12400IFB$<>"ROPE" PRINT"I won't let you do that":ENDPROC
12450IFL<>49 PRINT"There is nowhere to "A$" it to":ENDPROC
12500IFA(15)<>100PRINT"You haven't a rope":ENDPROC
12550PRINT"The rope is now firmly fixed to  the hook":F(7)=1:A(15)=0:ENDPROC
12950DEFPROCDROP
13000AS=1
13050IFB$=C$(AS) THEN 13200
13100AS=AS+1:IF AS=23 THEN PRINT"I don't know what a";FNVOW(B$,1);" is!":ENDPROC
13150GOTO13050
13200IFA(AS)<>100 PRINT"You're not carrying it!":ENDPROC
13250PRINT"OK":A(AS)=L:ENDPROC
13300DEFPROCE
13350PRINT''"Well, that seems to be the end ofthat game. Do you want to play   again?";:REPEAT:KL$=GET$:UNTILKL$="Y" OR KL$="N"
13400IFKL$="Y" THEN RUN
13450PRINT'"Thanks for playing!":END
13500DEFPROCQUIT
13550PRINT'"Are you sure?"
13600REPEAT:KL$=GET$:UNTILKL$="Y" OR KL$="N"
13650IFKL$="N" ENDPROC
13700PROCE
13750DEFPROCUNLOCK
13800IFL<>50 ANDL<>57 THEN PRINT"There's nothing to unlock":ENDPROC
13850IFL=50 ANDF(8)=1 ORL=57 ANDF(9)=1 THEN PRINT"It's already open":ENDPROC
13900IFA(8)<>100 THENPRINT"You haven't got a key":ENDPROC
13950IFL=50 THEN PRINT"The door is unlocked and open":F(8)=1:ENDPROC
14000IFL=57 THEN PRINT"The door is unlocked and open":F(9)=1:ENDPROC
14050DEFPROCLAMP
14100IFF(12)=1 PRINT"You can't do that":ENDPROC
14150IFA(16)<>100 PRINT"You're not carrying it":ENDPROC
14200PRINT"OK":F(11)=30:F(12)=1:ENDPROC
14250DEFPROCKILL
14300IFL<>59 THEN PRINT"I wouldn't do that":ENDPROC
14350PRINT"What with";:INPUT KL$
14400IFKL$<>"GUN" THEN PRINT"You can't kill him with that!":ENDPROC
14450IFKL$="GUN" ANDA(10)<>100 THEN PRINT"You haven't got a gun":ENDPROC
14500SOUND0,-15,5,3:PRINT'"He is dead":A(18)=0:F(13)=1:ENDPROC
14550DEFPROCCABLE
14600PRINT"The cable car starts up":SOUND1,-15,5,40:PROCP
14950L=61:ENDPROC
15000DEFPROCFIN
15050RAL$=""
15100IFA(4)<>100 THEN RAL$="any water":TRE$="hours you die of thirst"
15150IFA(6)<>100 THEN RAL$="any food":TRE$="hours you die of hunger"
15200IFA(3)<>100 THEN RAL$="a compass":TRE$="an hour you are lost"
15250IFA(22)<>100 THEN RAL$="a map":TRE$="an hour you are lost"
15300IFRAL$="" THEN 15500
15350PRINT"You were so near to escaping,    but you haven't got "RAL$"."
15400PRINT'"Within ";TRE$:PROCP:PROCP:PROCE
15450GOTO15550
15500PRINT"Congratulations - you have       escaped from the castle, and you have got all you will need to    keep you going"
15550PROCTUNE:PROCE
18800DEFPROCTUNE
18850ENVELOPE 1,1,0,0,0,1,1,1,-1,-3,-1,-1,120,100
18900RESTORE19400
18950FORF=1TO44:READS1(F):NEXT
19100FORF=1TO44:READS2(F):NEXT
19150FORS=1TO44
19200SOUND1,-15,S1(S),S2(S)*8
19350NEXT
19400DATA53,69,81,69,61,49,53,69,101,101,101
19450DATA69,81,73,61,49,61,73,89,89,89
19500DATA101,97,101,101,117,109,109,73,73,73
19550DATA101,101,89,73,57,61,73,89,101,109,97,89,97
19600DATA.5,.5,2,.5,.5,2,.5,.5,2,1,2
19650DATA1,2,.5,.5,2,.5,.5,2,1,3
19700DATA1,1,1,1,1,1,1.5,.5,1,2
19750DATA1,1,1,1,1,.5,.5,.5,1,1,1,1,4
19800ENDPROC
19850DEFPROCPASS
19900PRINT"A guard stops you and asks you   for your identification"
19950PRINT'"What shall I do";:INPUT JK$
20000IF JK$<>"GIVE PASSCARD" AND JK$<>"SHOW CARD" AND JK$<>"SHOW PASS" AND JK$<>"GIVE CARD" AND JK$<>"SHOW PASS CARD" THEN PRINT:GOTO8150
20050IFA(19)<>100 THEN PRINT:GOTO8150
20100PRINT'"OK":PROCP:ENDPROC
20150DEFFNVOW(B$,BB%):BB$=LEFT$(B$,1):IF(B$<>"UNIFORM")AND(BB$="A"ORBB$="E"ORBB$="I"ORBB$="O"ORBB$="U")THENPRINT"N";ELSEPRINT;
20200IFBB%=0PRINTELSEPRINT" ";
20250=B$

�
� Colditz
�� Martin Dolby 30.05.83
,�6:�23;8202;0;0;0;:*OPT1,1
�L=1
�K�A(22),C$(22),D$(62),E$(62),N(62),E(62),S(62),W(62),F(13),S1(44),S2(44)
&�SET
0%�TUNE:�8,19)"PRESS <SPACE BAR>";
:�("FX 21"):���=32:�
X	�DATA
�$�'"Resume play on a saved game?"
��:KL$=�:�KL$="N" � KL$="Y"
��KL$="Y" �LOAD
 
F(5)=�(4)
R�DES
��CHOICE
��
��B$="LOOK" � �DRC
!�B$="GLOVES" B$="PAIR OF "+B$
L%�B$="WATER" B$="SINK FULL OF "+B$
~ �B$="FOOD" B$="RANGE OF "+B$
� �B$="MEAT" B$="JOINT OF "+B$
�!�B$="N" �B$="NORTH" X=1:�ThJ
 �B$="E" �B$="EAST" X=2:�ThJ
F!�B$="S" �B$="SOUTH" X=3:�ThJ
x �B$="W" �B$="WEST" X=4:�ThJ
�#�A$="GET" �A$="TAKE" �GET:�dvI
��A$,3)="INV" � �INV:�dvI
+�A$="BUTTON" �B$="BUTTON" �BUTTON:�dvI
@3�A$="PRESS" �A$="PULL" �A$="SWITCH" �PULL:�dvI
r�A$="WEAR" �WEAR:�dvI
�(�A$="SMASH" �A$="BREAK" �SMASH:�dvI
��A$="SAVE" �SAVE:�dvI
/�A$="U" �A$="UP" �B$="U" �B$="UP" �UP:�dvI
:5�A$="D" �A$="DOWN" �B$="D" �B$="DOWN" �DOWN:�dvI
l�A$="READ" �READ:�dvI
�?�A$="OPEN" �B$="DOOR" �A$="UNLOCK" �B$="DOOR" �UNLOCK:�dvI
��A$="OPEN" �OPEN:�dvI
�A$="DIG" �DIG:�dvI
4I�A$="EXAM" �A$="EXAMINE" �A$="MOVE" �A$="LIFT" �B$="WOOD" �WOOD:�dvI
f1�A$="SHOW" �A$="OFFER" �A$="GIVE" �GIVE:�dvI
�;�A$="FIX" �A$="AFFIX" �A$="ATTACH" �A$="TIE" �FIX:�dvI
��A$="DROP" �DROP:�dvI
�<�A$="QUIT" �A$="END" �A$="FINISH" �A$="STOP" �QUIT:�dvI
	.:�A$="LIGHT" �B$="LAMP" �A$="LAMP" �B$="ON" �LAMP:�dvI
	`&�A$="KILL" �B$="GUARD" �KILL:�dvI
	�,�A$=B$ � �"I don't know how to "A$:�dvI
	�/�"I don't know how to "A$" a";�VOW(B$,0)"!"
	��P:�DRC
(�X=1 �L=11 �GUARD1:�DRC
Z�X=1 �N(L)=0 � �TH`
��X=2 �E(L)=0 � �TH`
��X=3 �S(L)=0 � �TH`
��X=4 �W(L)=0 � �TH`
"3�X=1 �L=50 �F(8)=0 �"The door is locked!":�dvI
T3�X=2 �L=57 �F(9)=0 �"The door is locked!":�dvI
�=�X=1 �L=59 �F(13)=0 �"The guard won't let you pass":�dvI
��X=1 L=N(L)
��X=2 L=E(L)
�X=3 L=S(L)
N�X=4 L=W(L)
�	�DRC
��
���SET:�19,0,4;0;

H�'�(11)"COLDITZ ADVENTURE"

��28,3,23,35,4

���''"Your mission is to escape from"'"Colditz. As in most adventure"'"games, enter two words : a verb  and a noun separated by a space."

�F�''"Directions can be executed by a  single letter - N for NORTH."

�=�''"The game can be saved at any"'"point by typing SAVE."

��

��DATA
X=�("G.COLDIT2")
$�c=0�22:�#X,A(c):�
.�c=0�22:�#X,C$(c):�
8�c=0�62:�#X,D$(c):�
B�c=0�62:�#X,E$(c):�
L�c=0�62:�#X,N(c):�
V�c=0�62:�#X,E(c):�
`�c=0�62:�#X,S(c):�
j�c=0�62:�#X,W(c):�
t�c=0�13:�#X,F(c):�
~�c=0�44:�#X,S1(c):�
��c=0�44:�#X,S2(c):�
��#X
��
�	��DES

�
<�(125)=17 �PASS:�DRC
nf�(125)=17 �"Some Germans walk past you. They are talking and don't seem to"'"notice you":�P:�TJO
��"You are ";D$(L)'
2�L=2 �A(6)<>0 E$(L)="There's a broken cabinet"
69�L=21 �A(9)<>0 E$(L)="There's some recently dug soil"
hB�L=34 �A(13)<>0 E$(L)="There's a pile of wood on the    floor"
��E$(L):�
��L=62 �FIN
�AS=1
0� A(AS)=L ��dFQ
bAS=AS+1:� AS=23 ��tNR
�	�TpQ
��"There is:";
�&�F=1�22:� A(F)=L � �10);"A "C$(F)
*�
\�
�6�L=36� F(6)=1 �"A ladder reaches to the skylight"'
���L>50� L<57� F(11)<=0 � �"It's risky moving in the dark"':F(10)=F(10)+1:� F(10)>3 � �'"You fell and broke your neck":�P:�P:�E
�N�L>50� L<57� F(11)=F(11)-1:� F(11)<=0 � �"Your lamp is out"':F(10)=F(10)+1
$� L=60 � �CABLE:�DRC
V�"You can go";
��N(L)<>0 � �" North";
��E(L)<>0 � �" East";
��S(L)<>0 � �" South";
�W(L)<>0 � �" West";
P/�L=20 �L=30 �L=31 �L=32 �L=40 �L=43 �" Up";
�1�L=26 �L=31 �L=32 �L=33 �L=43 �L=47 �" Down";
��L=36 � F(6)=1 �" Up";
��L=40 � F(6)=1 �" Down";
�L=49 � F(7)=1 �" Down";
J�L=50 �" Up";
|�
��
���CHOICE
A$="":B$="":K$=""
D�'"What shall I do ",K$
v�K$="" � �DDV
�F=1
�K$,F,1)=" " � �dTW
>#A$=A$+�K$,F,1):� F=�(K$) � �tbW
pF=F+1:�TLW
�� A$=K$ � B$=A$:�
�B$=�K$,�(K$)-F)
�
8	��GET
jAS=1
��B$=C$(AS) � �TrY
�?AS=AS+1:�AS=23 � �"I don't know what a";�VOW(B$,1);" is!":�
	�t\X
22�B$="RUCKSACK" � L=10 � �"OK":A(20)=0:F(1)=1:�
d:�F(1)=0 � �"You haven't got anything to put  it in!":�
�)�B$="LADDER" � F(6)=1:A(13)=101:�dtZ
�J�B$="RANGE OF FOOD" � L=2 � F(3)=0 � �"You can't get that just yet!":�
�?�B$="BOX" �L=21 �A(9)=0 � �"You can't get that just yet!":�
,)�A(AS)<>L � �"The "B$" isn't here!":�
^V�B$="SINK FULL OF WATER" �A(2)<>100 � �"You haven't got anything to put  it in!":�
�k�B$="SINK FULL OF WATER" � A(2)=100 �"I will fill your bottle with     water":A(4)=100:A(21)=0:A(2)=0:�
��"OK":A(AS)=100:�
&	��INV
XSS=0
��"You are carrying";
�.�F=1�22:� A(F)=100 � �17);"A ";C$(F):SS=1
��:�SS=0 � �" nothing"
 �P
R�
�
��PULL
�J�B$<>"SWITCH" � B$<>"ON" � B$<>"LIGHT" � �"How can you "A$" a "B$"?":�
�'�L<>1 � �"The switch is not here":�
,�F(4)=1 � �"It is already switched on":�
L4�"The light is now switched on":F(4)=1:A(22)=1:�
~
��WEAR
�J�B$<>"UNIFORM" � B$<>"PAIR OF GLOVES" � �"How can you wear a "B$;"?":�
�E�B$="UNIFORM" �A(1)=100 �"You put on the uniform":A(1)=0:F(2)=1:�
N�B$="PAIR OF GLOVES" � A(5)=100 � �"You put on the gloves":A(5)=0:F(3)=1:�
FZ�B$="UNIFORM" �A(1)<>100 �B$="PAIR OF GLOVES" �A(5)<>100 � �"You're not carrying it":�
x��SMASH
�L�B$<>"GLASS" �B$<>"CABINET" � �"I'm not going to let you ";A$:�"a ";B$:�
�$�L<>2 ��"The "B$" is not here":�
;�F(3)=0 �"You cut your wrist and bleed to  death":�P:�E
@/�"Smash! There's glass everywhere":A(6)=2:�
r��GUARD1
�B�F(2)=1 �"The guard grunts at you and lets you past":�P:L=12:�
�M�"The guard shouts 'Halt' and      presses a gun against your back":�P:�E
 "�"You can't go that way":�dvI
 :
��SAVE
 l�"Ready tape":�
 �X=�("COLDITZ")
 �	�#X,L
!�F=1�13:�#X,F(F):�
!4�F=1�22:�#X,A(F):�
!f�#X
!��
!�
��LOAD
!�!�'"Ready tape and press play"
".X=�("COLDITZ")
"`	�#X,L
"��F=1�13:�#X,F(F):�
"��F=1�22:�#X,A(F):�
"��#X
#(�
#Z��UP
#��L=20 L=26:�Tfe
#��L=30 L=31:�Tfe
#��L=31 L=32:�Tfe
$"�L=32 L=33:�Tfe
$T�L=40 L=43:�Tfe
$��L=43 L=47:�Tfe
$��L=50 L=49:�Tfe
$��L=36 �F(6)=1 �L=40:�Tfe
%'�"You can't go in that direction":�
%&�"OK":�
%N
��DOWN
%��L=26 L=20:�TZg
%��L=47 L=43:�TZg
%��L=43 L=40:�TZg
&�L=33 L=32:�TZg
&H�L=32 L=31:�TZg
&z�L=31 L=30:�TZg
&��L=40 �F(6)=1 � L=36:�TZg
&��L=49 �F(7)=1 � L=50:�TZg
''�"You can't go in that direction":�
'�"OK":�
'B
��READ
't5�B$<>"PAPER" � B$<>"BOOK" ��"I can't read a "B$:�
'��F(5)=1 COL$="RED"
'��F(5)=2 COL$="GREEN"
(
�F(5)=3 COL$="YELLOW"
(<�F(5)=4 COL$="BLUE"
(n8�B$="PAPER" �A(7)<>100 � �"You aren't carrying it":�
(�Q�B$="PAPER" �A(7)=100 �"It is a reminder to the commanderIt just says "COL$:�
(�8�B$="BOOK" �A(12)<>100 � �"You aren't carrying it":�
)t�B$="BOOK" �A(12)=100 � A(19)<>100 �"A passcard falls out of the book":A(19)=L:� � �"It's an interesting book":�
)6
��OPEN
)h1�B$<>"BOX" �B$<>"BOOK" �"I can't open a "B$:�
)�6�B$="BOOK" �A(12)<>100 �"You haven't got a book":�
)�S�B$="BOOK" �A(12)=100 �A(19)<>100 �"A passcard falls out of the book":A(19)=L:�
)�F�B$="BOOK" �A(12)=100 �A(19)=100 �"It's a very interesting book":�
*07�B$="BOX" �A(9)<>100 �"You aren't carrying a box":�
*b<�B$="BOX" �A(9)=100 �"There's a gun inside it":A(10)=L:�
*�	��DIG
*�#�L<>21 �"You can't dig here!":�
*�,�A(11)<>100 �"You haven't got a spade":�
+*"�"You've found a box":A(9)=L:�
+\��BUTTON
,�=�'"Which one? There are four:"'"Red, Green, Yellow, Blue"
,��'"Colour?"CL$
,��CL$="RED" �F(5)=1 �CL$="GREEN" �F(5)=2 �CL$="YELLOW" �F(5)=3 �CL$="BLUE" �F(5)=4 � �'"The door opens. You may proceed":L=30:�
-P�"Bang!"
-��0,-15,6,25
-�)�'"That button set off a booby trap!"
-��P
.�E
.|��P:�F=1�3000:�:�
.�
��WOOD
.��L<>34 �"I can't do that":�
/0�"Under the wood there's a ladder":A(13)=L:�
/D
��GIVE
/v1�B$<>"JOINT OF MEAT" �"You can't "A$" a "B$:�
/�+�A(14)<>100 �"You're not carrying it":�
/�5�L<>41 �"There isn't much point in doing  that":�
0U�"The dog eats the meat and drags along rope out of the kennel":A(14)=0:A(15)=L:�
0>	��FIX
0p,�B$<>"ROPE" �"I won't let you do that":�
0�.�L<>49 �"There is nowhere to "A$" it to":�
0�&�A(15)<>100�"You haven't a rope":�
1A�"The rope is now firmly fixed to  the hook":F(7)=1:A(15)=0:�
2�
��DROP
2�AS=1
2��B$=C$(AS) � �tPs
3,@AS=AS+1:� AS=23 � �"I don't know what a";�VOW(B$,1);" is!":�
3^	�dzr
3�,�A(AS)<>100 �"You're not carrying it!":�
3��"OK":A(AS)=L:�
3���E
4&m�''"Well, that seems to be the end ofthat game. Do you want to play   again?";:�:KL$=�:�KL$="Y" � KL$="N"
4X�KL$="Y" � �
4��'"Thanks for playing!":�
4�
��QUIT
4��'"Are you sure?"
5 �:KL$=�:�KL$="Y" � KL$="N"
5R�KL$="N" �
5��E
5���UNLOCK
5�2�L<>50 �L<>57 � �"There's nothing to unlock":�
68�L=50 �F(8)=1 �L=57 �F(9)=1 � �"It's already open":�
6L*�A(8)<>100 ��"You haven't got a key":�
6~5�L=50 � �"The door is unlocked and open":F(8)=1:�
6�5�L=57 � �"The door is unlocked and open":F(9)=1:�
6�
��LAMP
7#�F(12)=1 �"You can't do that":�
7F+�A(16)<>100 �"You're not carrying it":�
7x�"OK":F(11)=30:F(12)=1:�
7�
��KILL
7�$�L<>59 � �"I wouldn't do that":�
8�"What with";:� KL$
8@4�KL$<>"GUN" � �"You can't kill him with that!":�
8r7�KL$="GUN" �A(10)<>100 � �"You haven't got a gun":�
8�/�0,-15,5,3:�'"He is dead":A(18)=0:F(13)=1:�
8���CABLE
9-�"The cable car starts up":�1,-15,5,40:�P
:f
L=61:�
:�	��FIN
:�RAL$=""
:�@�A(4)<>100 � RAL$="any water":TRE$="hours you die of thirst"
;.?�A(6)<>100 � RAL$="any food":TRE$="hours you die of hunger"
;`=�A(3)<>100 � RAL$="a compass":TRE$="an hour you are lost"
;�:�A(22)<>100 � RAL$="a map":TRE$="an hour you are lost"
;��RAL$="" � �tL|
;�C�"You were so near to escaping,    but you haven't got "RAL$"."
<(�'"Within ";TRE$:�P:�P:�E
<Z	�t~|
<�x�"Congratulations - you have       escaped from the castle, and you have got all you will need to    keep you going"
<��TUNE:�E
Ip
��TUNE
I�)� 1,1,0,0,0,1,1,1,-1,-3,-1,-1,120,100
I�	��`HK
J�F=1�44:�S1(F):�
J��F=1�44:�S2(F):�
J��S=1�44
K�1,-15,S1(S),S2(S)*8
K��
K�(�53,69,81,69,61,49,53,69,101,101,101
K�"�69,81,73,61,49,61,73,89,89,89
L,(�101,97,101,101,117,109,109,73,73,73
L^/�101,101,89,73,57,61,73,89,101,109,97,89,97
L� �.5,.5,2,.5,.5,2,.5,.5,2,1,2
L��1,2,.5,.5,2,.5,.5,2,1,3
L��1,1,1,1,1,1,1.5,.5,1,2
M&!�1,1,1,1,1,.5,.5,.5,1,1,1,1,4
MX�
M�
��PASS
M�?�"A guard stops you and asks you   for your identification"
M��'"What shall I do";:� JK$
N u� JK$<>"GIVE PASSCARD" � JK$<>"SHOW CARD" � JK$<>"SHOW PASS" � JK$<>"GIVE CARD" � JK$<>"SHOW PASS CARD" � �:�dV_
NR�A(19)<>100 � �:�dV_
N��'"OK":�P:�
N�`ݤVOW(B$,BB%):BB$=�B$,1):�(B$<>"UNIFORM")�(BB$="A"�BB$="E"�BB$="I"�BB$="O"�BB$="U")��"N";��;
N��BB%=0��" ";
O=B$
�
00000000  0d 00 96 0d f4 20 43 6f  6c 64 69 74 7a 0d 00 c8  |..... Colditz...|
00000010  1b f4 20 4d 61 72 74 69  6e 20 44 6f 6c 62 79 20  |.. Martin Dolby |
00000020  33 30 2e 30 35 2e 38 33  0d 01 2c 1e eb 36 3a ef  |30.05.83..,..6:.|
00000030  32 33 3b 38 32 30 32 3b  30 3b 30 3b 30 3b 3a 2a  |23;8202;0;0;0;:*|
00000040  4f 50 54 31 2c 31 0d 01  c2 07 4c 3d 31 0d 01 f4  |OPT1,1....L=1...|
00000050  4b de 41 28 32 32 29 2c  43 24 28 32 32 29 2c 44  |K.A(22),C$(22),D|
00000060  24 28 36 32 29 2c 45 24  28 36 32 29 2c 4e 28 36  |$(62),E$(62),N(6|
00000070  32 29 2c 45 28 36 32 29  2c 53 28 36 32 29 2c 57  |2),E(62),S(62),W|
00000080  28 36 32 29 2c 46 28 31  33 29 2c 53 31 28 34 34  |(62),F(13),S1(44|
00000090  29 2c 53 32 28 34 34 29  0d 02 26 08 f2 53 45 54  |),S2(44)..&..SET|
000000a0  0d 02 30 25 f2 54 55 4e  45 3a f1 8a 38 2c 31 39  |..0%.TUNE:..8,19|
000000b0  29 22 50 52 45 53 53 20  3c 53 50 41 43 45 20 42  |)"PRESS <SPACE B|
000000c0  41 52 3e 22 3b 0d 02 3a  17 ff 28 22 46 58 20 32  |AR>";..:..("FX 2|
000000d0  31 22 29 3a f5 fd a5 3d  33 32 3a db 0d 02 58 09  |1"):...=32:...X.|
000000e0  f2 44 41 54 41 0d 02 8a  24 f1 27 22 52 65 73 75  |.DATA...$.'"Resu|
000000f0  6d 65 20 70 6c 61 79 20  6f 6e 20 61 20 73 61 76  |me play on a sav|
00000100  65 64 20 67 61 6d 65 3f  22 0d 02 bc 1e f5 3a 4b  |ed game?".....:K|
00000110  4c 24 3d be 3a fd 4b 4c  24 3d 22 4e 22 20 84 20  |L$=.:.KL$="N" . |
00000120  4b 4c 24 3d 22 59 22 0d  02 ee 12 e7 4b 4c 24 3d  |KL$="Y".....KL$=|
00000130  22 59 22 20 f2 4c 4f 41  44 0d 03 20 0d 46 28 35  |"Y" .LOAD.. .F(5|
00000140  29 3d b3 28 34 29 0d 03  52 08 f2 44 45 53 0d 03  |)=.(4)..R..DES..|
00000150  84 0b f2 43 48 4f 49 43  45 0d 03 b6 05 f1 0d 03  |...CHOICE.......|
00000160  e8 15 e7 42 24 3d 22 4c  4f 4f 4b 22 20 8c 20 8d  |...B$="LOOK" . .|
00000170  44 52 43 0d 04 1a 21 e7  42 24 3d 22 47 4c 4f 56  |DRC...!.B$="GLOV|
00000180  45 53 22 20 42 24 3d 22  50 41 49 52 20 4f 46 20  |ES" B$="PAIR OF |
00000190  22 2b 42 24 0d 04 4c 25  e7 42 24 3d 22 57 41 54  |"+B$..L%.B$="WAT|
000001a0  45 52 22 20 42 24 3d 22  53 49 4e 4b 20 46 55 4c  |ER" B$="SINK FUL|
000001b0  4c 20 4f 46 20 22 2b 42  24 0d 04 7e 20 e7 42 24  |L OF "+B$..~ .B$|
000001c0  3d 22 46 4f 4f 44 22 20  42 24 3d 22 52 41 4e 47  |="FOOD" B$="RANG|
000001d0  45 20 4f 46 20 22 2b 42  24 0d 04 b0 20 e7 42 24  |E OF "+B$... .B$|
000001e0  3d 22 4d 45 41 54 22 20  42 24 3d 22 4a 4f 49 4e  |="MEAT" B$="JOIN|
000001f0  54 20 4f 46 20 22 2b 42  24 0d 04 e2 21 e7 42 24  |T OF "+B$...!.B$|
00000200  3d 22 4e 22 20 84 42 24  3d 22 4e 4f 52 54 48 22  |="N" .B$="NORTH"|
00000210  20 58 3d 31 3a e5 8d 54  68 4a 0d 05 14 20 e7 42  | X=1:..ThJ... .B|
00000220  24 3d 22 45 22 20 84 42  24 3d 22 45 41 53 54 22  |$="E" .B$="EAST"|
00000230  20 58 3d 32 3a e5 8d 54  68 4a 0d 05 46 21 e7 42  | X=2:..ThJ..F!.B|
00000240  24 3d 22 53 22 20 84 42  24 3d 22 53 4f 55 54 48  |$="S" .B$="SOUTH|
00000250  22 20 58 3d 33 3a e5 8d  54 68 4a 0d 05 78 20 e7  |" X=3:..ThJ..x .|
00000260  42 24 3d 22 57 22 20 84  42 24 3d 22 57 45 53 54  |B$="W" .B$="WEST|
00000270  22 20 58 3d 34 3a e5 8d  54 68 4a 0d 05 aa 23 e7  |" X=4:..ThJ...#.|
00000280  41 24 3d 22 47 45 54 22  20 84 41 24 3d 22 54 41  |A$="GET" .A$="TA|
00000290  4b 45 22 20 f2 47 45 54  3a e5 8d 64 76 49 0d 05  |KE" .GET:..dvI..|
000002a0  dc 1e e7 c0 41 24 2c 33  29 3d 22 49 4e 56 22 20  |....A$,3)="INV" |
000002b0  8c 20 f2 49 4e 56 3a e5  8d 64 76 49 0d 06 0e 2b  |. .INV:..dvI...+|
000002c0  e7 41 24 3d 22 42 55 54  54 4f 4e 22 20 84 42 24  |.A$="BUTTON" .B$|
000002d0  3d 22 42 55 54 54 4f 4e  22 20 f2 42 55 54 54 4f  |="BUTTON" .BUTTO|
000002e0  4e 3a e5 8d 64 76 49 0d  06 40 33 e7 41 24 3d 22  |N:..dvI..@3.A$="|
000002f0  50 52 45 53 53 22 20 84  41 24 3d 22 50 55 4c 4c  |PRESS" .A$="PULL|
00000300  22 20 84 41 24 3d 22 53  57 49 54 43 48 22 20 f2  |" .A$="SWITCH" .|
00000310  50 55 4c 4c 3a e5 8d 64  76 49 0d 06 72 1a e7 41  |PULL:..dvI..r..A|
00000320  24 3d 22 57 45 41 52 22  20 f2 57 45 41 52 3a e5  |$="WEAR" .WEAR:.|
00000330  8d 64 76 49 0d 06 a4 28  e7 41 24 3d 22 53 4d 41  |.dvI...(.A$="SMA|
00000340  53 48 22 20 84 41 24 3d  22 42 52 45 41 4b 22 20  |SH" .A$="BREAK" |
00000350  f2 53 4d 41 53 48 3a e5  8d 64 76 49 0d 06 d6 1a  |.SMASH:..dvI....|
00000360  e7 41 24 3d 22 53 41 56  45 22 20 f2 53 41 56 45  |.A$="SAVE" .SAVE|
00000370  3a e5 8d 64 76 49 0d 07  08 2f e7 41 24 3d 22 55  |:..dvI.../.A$="U|
00000380  22 20 84 41 24 3d 22 55  50 22 20 84 42 24 3d 22  |" .A$="UP" .B$="|
00000390  55 22 20 84 42 24 3d 22  55 50 22 20 f2 55 50 3a  |U" .B$="UP" .UP:|
000003a0  e5 8d 64 76 49 0d 07 3a  35 e7 41 24 3d 22 44 22  |..dvI..:5.A$="D"|
000003b0  20 84 41 24 3d 22 44 4f  57 4e 22 20 84 42 24 3d  | .A$="DOWN" .B$=|
000003c0  22 44 22 20 84 42 24 3d  22 44 4f 57 4e 22 20 f2  |"D" .B$="DOWN" .|
000003d0  44 4f 57 4e 3a e5 8d 64  76 49 0d 07 6c 1a e7 41  |DOWN:..dvI..l..A|
000003e0  24 3d 22 52 45 41 44 22  20 f2 52 45 41 44 3a e5  |$="READ" .READ:.|
000003f0  8d 64 76 49 0d 07 9e 3f  e7 41 24 3d 22 4f 50 45  |.dvI...?.A$="OPE|
00000400  4e 22 20 80 42 24 3d 22  44 4f 4f 52 22 20 84 41  |N" .B$="DOOR" .A|
00000410  24 3d 22 55 4e 4c 4f 43  4b 22 20 80 42 24 3d 22  |$="UNLOCK" .B$="|
00000420  44 4f 4f 52 22 20 f2 55  4e 4c 4f 43 4b 3a e5 8d  |DOOR" .UNLOCK:..|
00000430  64 76 49 0d 07 d0 1a e7  41 24 3d 22 4f 50 45 4e  |dvI.....A$="OPEN|
00000440  22 20 f2 4f 50 45 4e 3a  e5 8d 64 76 49 0d 08 02  |" .OPEN:..dvI...|
00000450  18 e7 41 24 3d 22 44 49  47 22 20 f2 44 49 47 3a  |..A$="DIG" .DIG:|
00000460  e5 8d 64 76 49 0d 08 34  49 e7 41 24 3d 22 45 58  |..dvI..4I.A$="EX|
00000470  41 4d 22 20 84 41 24 3d  22 45 58 41 4d 49 4e 45  |AM" .A$="EXAMINE|
00000480  22 20 84 41 24 3d 22 4d  4f 56 45 22 20 84 41 24  |" .A$="MOVE" .A$|
00000490  3d 22 4c 49 46 54 22 20  80 42 24 3d 22 57 4f 4f  |="LIFT" .B$="WOO|
000004a0  44 22 20 f2 57 4f 4f 44  3a e5 8d 64 76 49 0d 08  |D" .WOOD:..dvI..|
000004b0  66 31 e7 41 24 3d 22 53  48 4f 57 22 20 84 41 24  |f1.A$="SHOW" .A$|
000004c0  3d 22 4f 46 46 45 52 22  20 84 41 24 3d 22 47 49  |="OFFER" .A$="GI|
000004d0  56 45 22 20 f2 47 49 56  45 3a e5 8d 64 76 49 0d  |VE" .GIVE:..dvI.|
000004e0  08 98 3b e7 41 24 3d 22  46 49 58 22 20 84 41 24  |..;.A$="FIX" .A$|
000004f0  3d 22 41 46 46 49 58 22  20 84 41 24 3d 22 41 54  |="AFFIX" .A$="AT|
00000500  54 41 43 48 22 20 84 41  24 3d 22 54 49 45 22 20  |TACH" .A$="TIE" |
00000510  f2 46 49 58 3a e5 8d 64  76 49 0d 08 ca 1a e7 41  |.FIX:..dvI.....A|
00000520  24 3d 22 44 52 4f 50 22  20 f2 44 52 4f 50 3a e5  |$="DROP" .DROP:.|
00000530  8d 64 76 49 0d 08 fc 3c  e7 41 24 3d 22 51 55 49  |.dvI...<.A$="QUI|
00000540  54 22 20 84 41 24 3d 22  45 4e 44 22 20 84 41 24  |T" .A$="END" .A$|
00000550  3d 22 46 49 4e 49 53 48  22 20 84 41 24 3d 22 53  |="FINISH" .A$="S|
00000560  54 4f 50 22 20 f2 51 55  49 54 3a e5 8d 64 76 49  |TOP" .QUIT:..dvI|
00000570  0d 09 2e 3a e7 41 24 3d  22 4c 49 47 48 54 22 20  |...:.A$="LIGHT" |
00000580  80 42 24 3d 22 4c 41 4d  50 22 20 84 41 24 3d 22  |.B$="LAMP" .A$="|
00000590  4c 41 4d 50 22 20 80 42  24 3d 22 4f 4e 22 20 f2  |LAMP" .B$="ON" .|
000005a0  4c 41 4d 50 3a e5 8d 64  76 49 0d 09 60 26 e7 41  |LAMP:..dvI..`&.A|
000005b0  24 3d 22 4b 49 4c 4c 22  20 80 42 24 3d 22 47 55  |$="KILL" .B$="GU|
000005c0  41 52 44 22 20 f2 4b 49  4c 4c 3a e5 8d 64 76 49  |ARD" .KILL:..dvI|
000005d0  0d 09 92 2c e7 41 24 3d  42 24 20 8c 20 f1 22 49  |...,.A$=B$ . ."I|
000005e0  20 64 6f 6e 27 74 20 6b  6e 6f 77 20 68 6f 77 20  | don't know how |
000005f0  74 6f 20 22 41 24 3a e5  8d 64 76 49 0d 09 c4 2f  |to "A$:..dvI.../|
00000600  f1 22 49 20 64 6f 6e 27  74 20 6b 6e 6f 77 20 68  |."I don't know h|
00000610  6f 77 20 74 6f 20 22 41  24 22 20 61 22 3b a4 56  |ow to "A$" a";.V|
00000620  4f 57 28 42 24 2c 30 29  22 21 22 0d 09 f6 0c f2  |OW(B$,0)"!".....|
00000630  50 3a e5 8d 44 52 43 0d  0a 28 1c e7 58 3d 31 20  |P:..DRC..(..X=1 |
00000640  80 4c 3d 31 31 20 f2 47  55 41 52 44 31 3a e5 8d  |.L=11 .GUARD1:..|
00000650  44 52 43 0d 0a 5a 17 e7  58 3d 31 20 80 4e 28 4c  |DRC..Z..X=1 .N(L|
00000660  29 3d 30 20 8c 20 8d 54  48 60 0d 0a 8c 17 e7 58  |)=0 . .TH`.....X|
00000670  3d 32 20 80 45 28 4c 29  3d 30 20 8c 20 8d 54 48  |=2 .E(L)=0 . .TH|
00000680  60 0d 0a be 17 e7 58 3d  33 20 80 53 28 4c 29 3d  |`.....X=3 .S(L)=|
00000690  30 20 8c 20 8d 54 48 60  0d 0a f0 17 e7 58 3d 34  |0 . .TH`.....X=4|
000006a0  20 80 57 28 4c 29 3d 30  20 8c 20 8d 54 48 60 0d  | .W(L)=0 . .TH`.|
000006b0  0b 22 33 e7 58 3d 31 20  80 4c 3d 35 30 20 80 46  |."3.X=1 .L=50 .F|
000006c0  28 38 29 3d 30 20 f1 22  54 68 65 20 64 6f 6f 72  |(8)=0 ."The door|
000006d0  20 69 73 20 6c 6f 63 6b  65 64 21 22 3a e5 8d 64  | is locked!":..d|
000006e0  76 49 0d 0b 54 33 e7 58  3d 32 20 80 4c 3d 35 37  |vI..T3.X=2 .L=57|
000006f0  20 80 46 28 39 29 3d 30  20 f1 22 54 68 65 20 64  | .F(9)=0 ."The d|
00000700  6f 6f 72 20 69 73 20 6c  6f 63 6b 65 64 21 22 3a  |oor is locked!":|
00000710  e5 8d 64 76 49 0d 0b 86  3d e7 58 3d 31 20 80 4c  |..dvI...=.X=1 .L|
00000720  3d 35 39 20 80 46 28 31  33 29 3d 30 20 f1 22 54  |=59 .F(13)=0 ."T|
00000730  68 65 20 67 75 61 72 64  20 77 6f 6e 27 74 20 6c  |he guard won't l|
00000740  65 74 20 79 6f 75 20 70  61 73 73 22 3a e5 8d 64  |et you pass":..d|
00000750  76 49 0d 0b b8 0f e7 58  3d 31 20 4c 3d 4e 28 4c  |vI.....X=1 L=N(L|
00000760  29 0d 0b ea 0f e7 58 3d  32 20 4c 3d 45 28 4c 29  |).....X=2 L=E(L)|
00000770  0d 0c 1c 0f e7 58 3d 33  20 4c 3d 53 28 4c 29 0d  |.....X=3 L=S(L).|
00000780  0c 4e 0f e7 58 3d 34 20  4c 3d 57 28 4c 29 0d 0c  |.N..X=4 L=W(L)..|
00000790  80 09 e5 8d 44 52 43 0d  0c b2 05 e0 0d 0c e4 14  |....DRC.........|
000007a0  dd f2 53 45 54 3a ef 31  39 2c 30 2c 34 3b 30 3b  |..SET:.19,0,4;0;|
000007b0  0d 0d 48 1e f1 27 89 28  31 31 29 22 43 4f 4c 44  |..H..'.(11)"COLD|
000007c0  49 54 5a 20 41 44 56 45  4e 54 55 52 45 22 0d 0d  |ITZ ADVENTURE"..|
000007d0  ac 11 ef 32 38 2c 33 2c  32 33 2c 33 35 2c 34 0d  |...28,3,23,35,4.|
000007e0  0d b6 8b f1 27 27 22 59  6f 75 72 20 6d 69 73 73  |....''"Your miss|
000007f0  69 6f 6e 20 69 73 20 74  6f 20 65 73 63 61 70 65  |ion is to escape|
00000800  20 66 72 6f 6d 22 27 22  43 6f 6c 64 69 74 7a 2e  | from"'"Colditz.|
00000810  20 41 73 20 69 6e 20 6d  6f 73 74 20 61 64 76 65  | As in most adve|
00000820  6e 74 75 72 65 22 27 22  67 61 6d 65 73 2c 20 65  |nture"'"games, e|
00000830  6e 74 65 72 20 74 77 6f  20 77 6f 72 64 73 20 3a  |nter two words :|
00000840  20 61 20 76 65 72 62 20  20 61 6e 64 20 61 20 6e  | a verb  and a n|
00000850  6f 75 6e 20 73 65 70 61  72 61 74 65 64 20 62 79  |oun separated by|
00000860  20 61 20 73 70 61 63 65  2e 22 0d 0d c0 46 f1 27  | a space."...F.'|
00000870  27 22 44 69 72 65 63 74  69 6f 6e 73 20 63 61 6e  |'"Directions can|
00000880  20 62 65 20 65 78 65 63  75 74 65 64 20 62 79 20  | be executed by |
00000890  61 20 20 73 69 6e 67 6c  65 20 6c 65 74 74 65 72  |a  single letter|
000008a0  20 2d 20 4e 20 66 6f 72  20 4e 4f 52 54 48 2e 22  | - N for NORTH."|
000008b0  0d 0d ca 3d f1 27 27 22  54 68 65 20 67 61 6d 65  |...=.''"The game|
000008c0  20 63 61 6e 20 62 65 20  73 61 76 65 64 20 61 74  | can be saved at|
000008d0  20 61 6e 79 22 27 22 70  6f 69 6e 74 20 62 79 20  | any"'"point by |
000008e0  74 79 70 69 6e 67 20 53  41 56 45 2e 22 0d 0d de  |typing SAVE."...|
000008f0  05 e1 0d 0e 10 0a dd f2  44 41 54 41 0d 0e 1a 14  |........DATA....|
00000900  58 3d ad 28 22 47 2e 43  4f 4c 44 49 54 32 22 29  |X=.("G.COLDIT2")|
00000910  0d 0e 24 16 e3 63 3d 30  b8 32 32 3a e8 23 58 2c  |..$..c=0.22:.#X,|
00000920  41 28 63 29 3a ed 0d 0e  2e 17 e3 63 3d 30 b8 32  |A(c):......c=0.2|
00000930  32 3a e8 23 58 2c 43 24  28 63 29 3a ed 0d 0e 38  |2:.#X,C$(c):...8|
00000940  17 e3 63 3d 30 b8 36 32  3a e8 23 58 2c 44 24 28  |..c=0.62:.#X,D$(|
00000950  63 29 3a ed 0d 0e 42 17  e3 63 3d 30 b8 36 32 3a  |c):...B..c=0.62:|
00000960  e8 23 58 2c 45 24 28 63  29 3a ed 0d 0e 4c 16 e3  |.#X,E$(c):...L..|
00000970  63 3d 30 b8 36 32 3a e8  23 58 2c 4e 28 63 29 3a  |c=0.62:.#X,N(c):|
00000980  ed 0d 0e 56 16 e3 63 3d  30 b8 36 32 3a e8 23 58  |...V..c=0.62:.#X|
00000990  2c 45 28 63 29 3a ed 0d  0e 60 16 e3 63 3d 30 b8  |,E(c):...`..c=0.|
000009a0  36 32 3a e8 23 58 2c 53  28 63 29 3a ed 0d 0e 6a  |62:.#X,S(c):...j|
000009b0  16 e3 63 3d 30 b8 36 32  3a e8 23 58 2c 57 28 63  |..c=0.62:.#X,W(c|
000009c0  29 3a ed 0d 0e 74 16 e3  63 3d 30 b8 31 33 3a e8  |):...t..c=0.13:.|
000009d0  23 58 2c 46 28 63 29 3a  ed 0d 0e 7e 17 e3 63 3d  |#X,F(c):...~..c=|
000009e0  30 b8 34 34 3a e8 23 58  2c 53 31 28 63 29 3a ed  |0.44:.#X,S1(c):.|
000009f0  0d 0e 88 17 e3 63 3d 30  b8 34 34 3a e8 23 58 2c  |.....c=0.44:.#X,|
00000a00  53 32 28 63 29 3a ed 0d  0e 92 07 d9 23 58 0d 0e  |S2(c):......#X..|
00000a10  a6 05 e1 0d 0e d8 09 dd  f2 44 45 53 0d 0f 0a 05  |.........DES....|
00000a20  db 0d 0f 3c 1a e7 b3 28  31 32 35 29 3d 31 37 20  |...<...(125)=17 |
00000a30  f2 50 41 53 53 3a e5 8d  44 52 43 0d 0f 6e 66 e7  |.PASS:..DRC..nf.|
00000a40  b3 28 31 32 35 29 3d 31  37 20 f1 22 53 6f 6d 65  |.(125)=17 ."Some|
00000a50  20 47 65 72 6d 61 6e 73  20 77 61 6c 6b 20 70 61  | Germans walk pa|
00000a60  73 74 20 79 6f 75 2e 20  54 68 65 79 20 61 72 65  |st you. They are|
00000a70  20 74 61 6c 6b 69 6e 67  20 61 6e 64 20 64 6f 6e  | talking and don|
00000a80  27 74 20 73 65 65 6d 20  74 6f 22 27 22 6e 6f 74  |'t seem to"'"not|
00000a90  69 63 65 20 79 6f 75 22  3a f2 50 3a e5 8d 54 4a  |ice you":.P:..TJ|
00000aa0  4f 0d 0f d2 16 f1 22 59  6f 75 20 61 72 65 20 22  |O....."You are "|
00000ab0  3b 44 24 28 4c 29 27 0d  10 04 32 e7 4c 3d 32 20  |;D$(L)'...2.L=2 |
00000ac0  80 41 28 36 29 3c 3e 30  20 45 24 28 4c 29 3d 22  |.A(6)<>0 E$(L)="|
00000ad0  54 68 65 72 65 27 73 20  61 20 62 72 6f 6b 65 6e  |There's a broken|
00000ae0  20 63 61 62 69 6e 65 74  22 0d 10 36 39 e7 4c 3d  | cabinet"..69.L=|
00000af0  32 31 20 80 41 28 39 29  3c 3e 30 20 45 24 28 4c  |21 .A(9)<>0 E$(L|
00000b00  29 3d 22 54 68 65 72 65  27 73 20 73 6f 6d 65 20  |)="There's some |
00000b10  72 65 63 65 6e 74 6c 79  20 64 75 67 20 73 6f 69  |recently dug soi|
00000b20  6c 22 0d 10 68 42 e7 4c  3d 33 34 20 80 41 28 31  |l"..hB.L=34 .A(1|
00000b30  33 29 3c 3e 30 20 45 24  28 4c 29 3d 22 54 68 65  |3)<>0 E$(L)="The|
00000b40  72 65 27 73 20 61 20 70  69 6c 65 20 6f 66 20 77  |re's a pile of w|
00000b50  6f 6f 64 20 6f 6e 20 74  68 65 20 20 20 20 66 6c  |ood on the    fl|
00000b60  6f 6f 72 22 0d 10 9a 0c  f1 45 24 28 4c 29 3a f1  |oor".....E$(L):.|
00000b70  0d 10 cc 0e e7 4c 3d 36  32 20 f2 46 49 4e 0d 10  |.....L=62 .FIN..|
00000b80  fe 08 41 53 3d 31 0d 11  30 13 e7 20 41 28 41 53  |..AS=1..0.. A(AS|
00000b90  29 3d 4c 20 8c 8d 64 46  51 0d 11 62 19 41 53 3d  |)=L ..dFQ..b.AS=|
00000ba0  41 53 2b 31 3a e7 20 41  53 3d 32 33 20 8c 8d 74  |AS+1:. AS=23 ..t|
00000bb0  4e 52 0d 11 94 09 e5 8d  54 70 51 0d 11 c6 11 f1  |NR......TpQ.....|
00000bc0  22 54 68 65 72 65 20 69  73 3a 22 3b 0d 11 f8 26  |"There is:";...&|
00000bd0  e3 46 3d 31 b8 32 32 3a  e7 20 41 28 46 29 3d 4c  |.F=1.22:. A(F)=L|
00000be0  20 8c 20 f1 8a 31 30 29  3b 22 41 20 22 43 24 28  | . ..10);"A "C$(|
00000bf0  46 29 0d 12 2a 05 ed 0d  12 5c 05 f1 0d 12 8e 36  |F)..*....\.....6|
00000c00  e7 4c 3d 33 36 80 20 46  28 36 29 3d 31 20 f1 22  |.L=36. F(6)=1 ."|
00000c10  41 20 6c 61 64 64 65 72  20 72 65 61 63 68 65 73  |A ladder reaches|
00000c20  20 74 6f 20 74 68 65 20  73 6b 79 6c 69 67 68 74  | to the skylight|
00000c30  22 27 0d 12 c0 81 e7 4c  3e 35 30 80 20 4c 3c 35  |"'.....L>50. L<5|
00000c40  37 80 20 46 28 31 31 29  3c 3d 30 20 8c 20 f1 22  |7. F(11)<=0 . ."|
00000c50  49 74 27 73 20 72 69 73  6b 79 20 6d 6f 76 69 6e  |It's risky movin|
00000c60  67 20 69 6e 20 74 68 65  20 64 61 72 6b 22 27 3a  |g in the dark"':|
00000c70  46 28 31 30 29 3d 46 28  31 30 29 2b 31 3a e7 20  |F(10)=F(10)+1:. |
00000c80  46 28 31 30 29 3e 33 20  8c 20 f1 27 22 59 6f 75  |F(10)>3 . .'"You|
00000c90  20 66 65 6c 6c 20 61 6e  64 20 62 72 6f 6b 65 20  | fell and broke |
00000ca0  79 6f 75 72 20 6e 65 63  6b 22 3a f2 50 3a f2 50  |your neck":.P:.P|
00000cb0  3a f2 45 0d 12 f2 4e e7  4c 3e 35 30 80 20 4c 3c  |:.E...N.L>50. L<|
00000cc0  35 37 8c 20 46 28 31 31  29 3d 46 28 31 31 29 2d  |57. F(11)=F(11)-|
00000cd0  31 3a e7 20 46 28 31 31  29 3c 3d 30 20 8c 20 f1  |1:. F(11)<=0 . .|
00000ce0  22 59 6f 75 72 20 6c 61  6d 70 20 69 73 20 6f 75  |"Your lamp is ou|
00000cf0  74 22 27 3a 46 28 31 30  29 3d 46 28 31 30 29 2b  |t"':F(10)=F(10)+|
00000d00  31 0d 13 24 19 e7 20 4c  3d 36 30 20 8c 20 f2 43  |1..$.. L=60 . .C|
00000d10  41 42 4c 45 3a e5 8d 44  52 43 0d 13 56 12 f1 22  |ABLE:..DRC..V.."|
00000d20  59 6f 75 20 63 61 6e 20  67 6f 22 3b 0d 13 88 19  |You can go";....|
00000d30  e7 4e 28 4c 29 3c 3e 30  20 8c 20 f1 22 20 4e 6f  |.N(L)<>0 . ." No|
00000d40  72 74 68 22 3b 0d 13 ba  18 e7 45 28 4c 29 3c 3e  |rth";.....E(L)<>|
00000d50  30 20 8c 20 f1 22 20 45  61 73 74 22 3b 0d 13 ec  |0 . ." East";...|
00000d60  19 e7 53 28 4c 29 3c 3e  30 20 8c 20 f1 22 20 53  |..S(L)<>0 . ." S|
00000d70  6f 75 74 68 22 3b 0d 14  1e 18 e7 57 28 4c 29 3c  |outh";.....W(L)<|
00000d80  3e 30 20 8c 20 f1 22 20  57 65 73 74 22 3b 0d 14  |>0 . ." West";..|
00000d90  50 2f e7 4c 3d 32 30 20  84 4c 3d 33 30 20 84 4c  |P/.L=20 .L=30 .L|
00000da0  3d 33 31 20 84 4c 3d 33  32 20 84 4c 3d 34 30 20  |=31 .L=32 .L=40 |
00000db0  84 4c 3d 34 33 20 f1 22  20 55 70 22 3b 0d 14 82  |.L=43 ." Up";...|
00000dc0  31 e7 4c 3d 32 36 20 84  4c 3d 33 31 20 84 4c 3d  |1.L=26 .L=31 .L=|
00000dd0  33 32 20 84 4c 3d 33 33  20 84 4c 3d 34 33 20 84  |32 .L=33 .L=43 .|
00000de0  4c 3d 34 37 20 f1 22 20  44 6f 77 6e 22 3b 0d 14  |L=47 ." Down";..|
00000df0  b4 1a e7 4c 3d 33 36 20  80 20 46 28 36 29 3d 31  |...L=36 . F(6)=1|
00000e00  20 f1 22 20 55 70 22 3b  0d 14 e6 1c e7 4c 3d 34  | ." Up";.....L=4|
00000e10  30 20 80 20 46 28 36 29  3d 31 20 f1 22 20 44 6f  |0 . F(6)=1 ." Do|
00000e20  77 6e 22 3b 0d 15 18 1c  e7 4c 3d 34 39 20 80 20  |wn";.....L=49 . |
00000e30  46 28 37 29 3d 31 20 f1  22 20 44 6f 77 6e 22 3b  |F(7)=1 ." Down";|
00000e40  0d 15 4a 11 e7 4c 3d 35  30 20 f1 22 20 55 70 22  |..J..L=50 ." Up"|
00000e50  3b 0d 15 7c 05 f1 0d 15  ae 05 e1 0d 15 e0 0c dd  |;..|............|
00000e60  f2 43 48 4f 49 43 45 0d  16 12 15 41 24 3d 22 22  |.CHOICE....A$=""|
00000e70  3a 42 24 3d 22 22 3a 4b  24 3d 22 22 0d 16 44 1b  |:B$="":K$=""..D.|
00000e80  e8 27 22 57 68 61 74 20  73 68 61 6c 6c 20 49 20  |.'"What shall I |
00000e90  64 6f 20 22 2c 4b 24 0d  16 76 11 e7 4b 24 3d 22  |do ",K$..v..K$="|
00000ea0  22 20 8c 20 8d 44 44 56  0d 16 da 07 46 3d 31 0d  |" . .DDV....F=1.|
00000eb0  17 0c 18 e7 c1 4b 24 2c  46 2c 31 29 3d 22 20 22  |.....K$,F,1)=" "|
00000ec0  20 8c 20 8d 64 54 57 0d  17 3e 23 41 24 3d 41 24  | . .dTW..>#A$=A$|
00000ed0  2b c1 4b 24 2c 46 2c 31  29 3a e7 20 46 3d a9 28  |+.K$,F,1):. F=.(|
00000ee0  4b 24 29 20 8c 20 8d 74  62 57 0d 17 70 0f 46 3d  |K$) . .tbW..p.F=|
00000ef0  46 2b 31 3a e5 8d 54 4c  57 0d 17 a2 15 e7 20 41  |F+1:..TLW..... A|
00000f00  24 3d 4b 24 20 8c 20 42  24 3d 41 24 3a e1 0d 17  |$=K$ . B$=A$:...|
00000f10  d4 13 42 24 3d c2 4b 24  2c a9 28 4b 24 29 2d 46  |..B$=.K$,.(K$)-F|
00000f20  29 0d 18 06 05 e1 0d 18  38 09 dd f2 47 45 54 0d  |).......8...GET.|
00000f30  18 6a 08 41 53 3d 31 0d  18 9c 15 e7 42 24 3d 43  |.j.AS=1.....B$=C|
00000f40  24 28 41 53 29 20 8c 20  8d 54 72 59 0d 18 ce 3f  |$(AS) . .TrY...?|
00000f50  41 53 3d 41 53 2b 31 3a  e7 41 53 3d 32 33 20 8c  |AS=AS+1:.AS=23 .|
00000f60  20 f1 22 49 20 64 6f 6e  27 74 20 6b 6e 6f 77 20  | ."I don't know |
00000f70  77 68 61 74 20 61 22 3b  a4 56 4f 57 28 42 24 2c  |what a";.VOW(B$,|
00000f80  31 29 3b 22 20 69 73 21  22 3a e1 0d 19 00 09 e5  |1);" is!":......|
00000f90  8d 74 5c 58 0d 19 32 32  e7 42 24 3d 22 52 55 43  |.t\X..22.B$="RUC|
00000fa0  4b 53 41 43 4b 22 20 80  20 4c 3d 31 30 20 8c 20  |KSACK" . L=10 . |
00000fb0  f1 22 4f 4b 22 3a 41 28  32 30 29 3d 30 3a 46 28  |."OK":A(20)=0:F(|
00000fc0  31 29 3d 31 3a e1 0d 19  64 3a e7 46 28 31 29 3d  |1)=1:...d:.F(1)=|
00000fd0  30 20 8c 20 f1 22 59 6f  75 20 68 61 76 65 6e 27  |0 . ."You haven'|
00000fe0  74 20 67 6f 74 20 61 6e  79 74 68 69 6e 67 20 74  |t got anything t|
00000ff0  6f 20 70 75 74 20 20 69  74 20 69 6e 21 22 3a e1  |o put  it in!":.|
00001000  0d 19 96 29 e7 42 24 3d  22 4c 41 44 44 45 52 22  |...).B$="LADDER"|
00001010  20 8c 20 46 28 36 29 3d  31 3a 41 28 31 33 29 3d  | . F(6)=1:A(13)=|
00001020  31 30 31 3a e5 8d 64 74  5a 0d 19 c8 4a e7 42 24  |101:..dtZ...J.B$|
00001030  3d 22 52 41 4e 47 45 20  4f 46 20 46 4f 4f 44 22  |="RANGE OF FOOD"|
00001040  20 80 20 4c 3d 32 20 80  20 46 28 33 29 3d 30 20  | . L=2 . F(3)=0 |
00001050  8c 20 f1 22 59 6f 75 20  63 61 6e 27 74 20 67 65  |. ."You can't ge|
00001060  74 20 74 68 61 74 20 6a  75 73 74 20 79 65 74 21  |t that just yet!|
00001070  22 3a e1 0d 19 fa 3f e7  42 24 3d 22 42 4f 58 22  |":....?.B$="BOX"|
00001080  20 80 4c 3d 32 31 20 80  41 28 39 29 3d 30 20 8c  | .L=21 .A(9)=0 .|
00001090  20 f1 22 59 6f 75 20 63  61 6e 27 74 20 67 65 74  | ."You can't get|
000010a0  20 74 68 61 74 20 6a 75  73 74 20 79 65 74 21 22  | that just yet!"|
000010b0  3a e1 0d 1a 2c 29 e7 41  28 41 53 29 3c 3e 4c 20  |:...,).A(AS)<>L |
000010c0  8c 20 f1 22 54 68 65 20  22 42 24 22 20 69 73 6e  |. ."The "B$" isn|
000010d0  27 74 20 68 65 72 65 21  22 3a e1 0d 1a 5e 56 e7  |'t here!":...^V.|
000010e0  42 24 3d 22 53 49 4e 4b  20 46 55 4c 4c 20 4f 46  |B$="SINK FULL OF|
000010f0  20 57 41 54 45 52 22 20  80 41 28 32 29 3c 3e 31  | WATER" .A(2)<>1|
00001100  30 30 20 8c 20 f1 22 59  6f 75 20 68 61 76 65 6e  |00 . ."You haven|
00001110  27 74 20 67 6f 74 20 61  6e 79 74 68 69 6e 67 20  |'t got anything |
00001120  74 6f 20 70 75 74 20 20  69 74 20 69 6e 21 22 3a  |to put  it in!":|
00001130  e1 0d 1a 90 6b e7 42 24  3d 22 53 49 4e 4b 20 46  |....k.B$="SINK F|
00001140  55 4c 4c 20 4f 46 20 57  41 54 45 52 22 20 80 20  |ULL OF WATER" . |
00001150  41 28 32 29 3d 31 30 30  20 f1 22 49 20 77 69 6c  |A(2)=100 ."I wil|
00001160  6c 20 66 69 6c 6c 20 79  6f 75 72 20 62 6f 74 74  |l fill your bott|
00001170  6c 65 20 77 69 74 68 20  20 20 20 20 77 61 74 65  |le with     wate|
00001180  72 22 3a 41 28 34 29 3d  31 30 30 3a 41 28 32 31  |r":A(4)=100:A(21|
00001190  29 3d 30 3a 41 28 32 29  3d 30 3a e1 0d 1a f4 15  |)=0:A(2)=0:.....|
000011a0  f1 22 4f 4b 22 3a 41 28  41 53 29 3d 31 30 30 3a  |."OK":A(AS)=100:|
000011b0  e1 0d 1b 26 09 dd f2 49  4e 56 0d 1b 58 08 53 53  |...&...INV..X.SS|
000011c0  3d 30 0d 1b 8a 18 f1 22  59 6f 75 20 61 72 65 20  |=0....."You are |
000011d0  63 61 72 72 79 69 6e 67  22 3b 0d 1b bc 2e e3 46  |carrying";.....F|
000011e0  3d 31 b8 32 32 3a e7 20  41 28 46 29 3d 31 30 30  |=1.22:. A(F)=100|
000011f0  20 8c 20 f1 8a 31 37 29  3b 22 41 20 22 3b 43 24  | . ..17);"A ";C$|
00001200  28 46 29 3a 53 53 3d 31  0d 1b ee 19 ed 3a e7 53  |(F):SS=1.....:.S|
00001210  53 3d 30 20 8c 20 f1 22  20 6e 6f 74 68 69 6e 67  |S=0 . ." nothing|
00001220  22 0d 1c 20 06 f2 50 0d  1c 52 05 e1 0d 1c 84 0a  |".. ..P..R......|
00001230  dd f2 50 55 4c 4c 0d 1c  b6 4a e7 42 24 3c 3e 22  |..PULL...J.B$<>"|
00001240  53 57 49 54 43 48 22 20  80 20 42 24 3c 3e 22 4f  |SWITCH" . B$<>"O|
00001250  4e 22 20 80 20 42 24 3c  3e 22 4c 49 47 48 54 22  |N" . B$<>"LIGHT"|
00001260  20 8c 20 f1 22 48 6f 77  20 63 61 6e 20 79 6f 75  | . ."How can you|
00001270  20 22 41 24 22 20 61 20  22 42 24 22 3f 22 3a e1  | "A$" a "B$"?":.|
00001280  0d 1c e8 27 e7 4c 3c 3e  31 20 8c 20 f1 22 54 68  |...'.L<>1 . ."Th|
00001290  65 20 73 77 69 74 63 68  20 69 73 20 6e 6f 74 20  |e switch is not |
000012a0  68 65 72 65 22 3a e1 0d  1d 1a 2c e7 46 28 34 29  |here":....,.F(4)|
000012b0  3d 31 20 8c 20 f1 22 49  74 20 69 73 20 61 6c 72  |=1 . ."It is alr|
000012c0  65 61 64 79 20 73 77 69  74 63 68 65 64 20 6f 6e  |eady switched on|
000012d0  22 3a e1 0d 1d 4c 34 f1  22 54 68 65 20 6c 69 67  |":...L4."The lig|
000012e0  68 74 20 69 73 20 6e 6f  77 20 73 77 69 74 63 68  |ht is now switch|
000012f0  65 64 20 6f 6e 22 3a 46  28 34 29 3d 31 3a 41 28  |ed on":F(4)=1:A(|
00001300  32 32 29 3d 31 3a e1 0d  1d 7e 0a dd f2 57 45 41  |22)=1:...~...WEA|
00001310  52 0d 1d b0 4a e7 42 24  3c 3e 22 55 4e 49 46 4f  |R...J.B$<>"UNIFO|
00001320  52 4d 22 20 80 20 42 24  3c 3e 22 50 41 49 52 20  |RM" . B$<>"PAIR |
00001330  4f 46 20 47 4c 4f 56 45  53 22 20 8c 20 f1 22 48  |OF GLOVES" . ."H|
00001340  6f 77 20 63 61 6e 20 79  6f 75 20 77 65 61 72 20  |ow can you wear |
00001350  61 20 22 42 24 3b 22 3f  22 3a e1 0d 1d e2 45 e7  |a "B$;"?":....E.|
00001360  42 24 3d 22 55 4e 49 46  4f 52 4d 22 20 80 41 28  |B$="UNIFORM" .A(|
00001370  31 29 3d 31 30 30 20 f1  22 59 6f 75 20 70 75 74  |1)=100 ."You put|
00001380  20 6f 6e 20 74 68 65 20  75 6e 69 66 6f 72 6d 22  | on the uniform"|
00001390  3a 41 28 31 29 3d 30 3a  46 28 32 29 3d 31 3a e1  |:A(1)=0:F(2)=1:.|
000013a0  0d 1e 14 4e e7 42 24 3d  22 50 41 49 52 20 4f 46  |...N.B$="PAIR OF|
000013b0  20 47 4c 4f 56 45 53 22  20 80 20 41 28 35 29 3d  | GLOVES" . A(5)=|
000013c0  31 30 30 20 8c 20 f1 22  59 6f 75 20 70 75 74 20  |100 . ."You put |
000013d0  6f 6e 20 74 68 65 20 67  6c 6f 76 65 73 22 3a 41  |on the gloves":A|
000013e0  28 35 29 3d 30 3a 46 28  33 29 3d 31 3a e1 0d 1e  |(5)=0:F(3)=1:...|
000013f0  46 5a e7 42 24 3d 22 55  4e 49 46 4f 52 4d 22 20  |FZ.B$="UNIFORM" |
00001400  80 41 28 31 29 3c 3e 31  30 30 20 84 42 24 3d 22  |.A(1)<>100 .B$="|
00001410  50 41 49 52 20 4f 46 20  47 4c 4f 56 45 53 22 20  |PAIR OF GLOVES" |
00001420  80 41 28 35 29 3c 3e 31  30 30 20 8c 20 f1 22 59  |.A(5)<>100 . ."Y|
00001430  6f 75 27 72 65 20 6e 6f  74 20 63 61 72 72 79 69  |ou're not carryi|
00001440  6e 67 20 69 74 22 3a e1  0d 1e 78 0b dd f2 53 4d  |ng it":...x...SM|
00001450  41 53 48 0d 1e aa 4c e7  42 24 3c 3e 22 47 4c 41  |ASH...L.B$<>"GLA|
00001460  53 53 22 20 80 42 24 3c  3e 22 43 41 42 49 4e 45  |SS" .B$<>"CABINE|
00001470  54 22 20 8c 20 f1 22 49  27 6d 20 6e 6f 74 20 67  |T" . ."I'm not g|
00001480  6f 69 6e 67 20 74 6f 20  6c 65 74 20 79 6f 75 20  |oing to let you |
00001490  22 3b 41 24 3a f1 22 61  20 22 3b 42 24 3a e1 0d  |";A$:."a ";B$:..|
000014a0  1e dc 24 e7 4c 3c 3e 32  20 8c f1 22 54 68 65 20  |..$.L<>2 .."The |
000014b0  22 42 24 22 20 69 73 20  6e 6f 74 20 68 65 72 65  |"B$" is not here|
000014c0  22 3a e1 0d 1f 0e 3b e7  46 28 33 29 3d 30 20 f1  |":....;.F(3)=0 .|
000014d0  22 59 6f 75 20 63 75 74  20 79 6f 75 72 20 77 72  |"You cut your wr|
000014e0  69 73 74 20 61 6e 64 20  62 6c 65 65 64 20 74 6f  |ist and bleed to|
000014f0  20 20 64 65 61 74 68 22  3a f2 50 3a f2 45 0d 1f  |  death":.P:.E..|
00001500  40 2f f1 22 53 6d 61 73  68 21 20 54 68 65 72 65  |@/."Smash! There|
00001510  27 73 20 67 6c 61 73 73  20 65 76 65 72 79 77 68  |'s glass everywh|
00001520  65 72 65 22 3a 41 28 36  29 3d 32 3a e1 0d 1f 72  |ere":A(6)=2:...r|
00001530  0c dd f2 47 55 41 52 44  31 0d 1f a4 42 e7 46 28  |...GUARD1...B.F(|
00001540  32 29 3d 31 20 f1 22 54  68 65 20 67 75 61 72 64  |2)=1 ."The guard|
00001550  20 67 72 75 6e 74 73 20  61 74 20 79 6f 75 20 61  | grunts at you a|
00001560  6e 64 20 6c 65 74 73 20  79 6f 75 20 70 61 73 74  |nd lets you past|
00001570  22 3a f2 50 3a 4c 3d 31  32 3a e1 0d 1f d6 4d f1  |":.P:L=12:....M.|
00001580  22 54 68 65 20 67 75 61  72 64 20 73 68 6f 75 74  |"The guard shout|
00001590  73 20 27 48 61 6c 74 27  20 61 6e 64 20 20 20 20  |s 'Halt' and    |
000015a0  20 20 70 72 65 73 73 65  73 20 61 20 67 75 6e 20  |  presses a gun |
000015b0  61 67 61 69 6e 73 74 20  79 6f 75 72 20 62 61 63  |against your bac|
000015c0  6b 22 3a f2 50 3a f2 45  0d 20 08 22 f1 22 59 6f  |k":.P:.E. ."."Yo|
000015d0  75 20 63 61 6e 27 74 20  67 6f 20 74 68 61 74 20  |u can't go that |
000015e0  77 61 79 22 3a e5 8d 64  76 49 0d 20 3a 0a dd f2  |way":..dvI. :...|
000015f0  53 41 56 45 0d 20 6c 13  f1 22 52 65 61 64 79 20  |SAVE. l.."Ready |
00001600  74 61 70 65 22 3a f1 0d  20 9e 12 58 3d ae 28 22  |tape":.. ..X=.("|
00001610  43 4f 4c 44 49 54 5a 22  29 0d 20 d0 09 f1 23 58  |COLDITZ"). ...#X|
00001620  2c 4c 0d 21 02 16 e3 46  3d 31 b8 31 33 3a f1 23  |,L.!...F=1.13:.#|
00001630  58 2c 46 28 46 29 3a ed  0d 21 34 16 e3 46 3d 31  |X,F(F):..!4..F=1|
00001640  b8 32 32 3a f1 23 58 2c  41 28 46 29 3a ed 0d 21  |.22:.#X,A(F):..!|
00001650  66 07 d9 23 58 0d 21 98  05 e1 0d 21 ca 0a dd f2  |f..#X.!....!....|
00001660  4c 4f 41 44 0d 21 fc 21  f1 27 22 52 65 61 64 79  |LOAD.!.!.'"Ready|
00001670  20 74 61 70 65 20 61 6e  64 20 70 72 65 73 73 20  | tape and press |
00001680  70 6c 61 79 22 0d 22 2e  12 58 3d ad 28 22 43 4f  |play"."..X=.("CO|
00001690  4c 44 49 54 5a 22 29 0d  22 60 09 e8 23 58 2c 4c  |LDITZ")."`..#X,L|
000016a0  0d 22 92 16 e3 46 3d 31  b8 31 33 3a e8 23 58 2c  |."...F=1.13:.#X,|
000016b0  46 28 46 29 3a ed 0d 22  c4 16 e3 46 3d 31 b8 32  |F(F):.."...F=1.2|
000016c0  32 3a e8 23 58 2c 41 28  46 29 3a ed 0d 22 f6 07  |2:.#X,A(F):.."..|
000016d0  d9 23 58 0d 23 28 05 e1  0d 23 5a 08 dd f2 55 50  |.#X.#(...#Z...UP|
000016e0  0d 23 8c 14 e7 4c 3d 32  30 20 4c 3d 32 36 3a e5  |.#...L=20 L=26:.|
000016f0  8d 54 66 65 0d 23 be 14  e7 4c 3d 33 30 20 4c 3d  |.Tfe.#...L=30 L=|
00001700  33 31 3a e5 8d 54 66 65  0d 23 f0 14 e7 4c 3d 33  |31:..Tfe.#...L=3|
00001710  31 20 4c 3d 33 32 3a e5  8d 54 66 65 0d 24 22 14  |1 L=32:..Tfe.$".|
00001720  e7 4c 3d 33 32 20 4c 3d  33 33 3a e5 8d 54 66 65  |.L=32 L=33:..Tfe|
00001730  0d 24 54 14 e7 4c 3d 34  30 20 4c 3d 34 33 3a e5  |.$T..L=40 L=43:.|
00001740  8d 54 66 65 0d 24 86 14  e7 4c 3d 34 33 20 4c 3d  |.Tfe.$...L=43 L=|
00001750  34 37 3a e5 8d 54 66 65  0d 24 b8 14 e7 4c 3d 35  |47:..Tfe.$...L=5|
00001760  30 20 4c 3d 34 39 3a e5  8d 54 66 65 0d 24 ea 1d  |0 L=49:..Tfe.$..|
00001770  e7 4c 3d 33 36 20 80 46  28 36 29 3d 31 20 8c 4c  |.L=36 .F(6)=1 .L|
00001780  3d 34 30 3a e5 8d 54 66  65 0d 25 1c 27 f1 22 59  |=40:..Tfe.%.'."Y|
00001790  6f 75 20 63 61 6e 27 74  20 67 6f 20 69 6e 20 74  |ou can't go in t|
000017a0  68 61 74 20 64 69 72 65  63 74 69 6f 6e 22 3a e1  |hat direction":.|
000017b0  0d 25 26 0b f1 22 4f 4b  22 3a e1 0d 25 4e 0a dd  |.%&.."OK":..%N..|
000017c0  f2 44 4f 57 4e 0d 25 80  14 e7 4c 3d 32 36 20 4c  |.DOWN.%...L=26 L|
000017d0  3d 32 30 3a e5 8d 54 5a  67 0d 25 b2 14 e7 4c 3d  |=20:..TZg.%...L=|
000017e0  34 37 20 4c 3d 34 33 3a  e5 8d 54 5a 67 0d 25 e4  |47 L=43:..TZg.%.|
000017f0  14 e7 4c 3d 34 33 20 4c  3d 34 30 3a e5 8d 54 5a  |..L=43 L=40:..TZ|
00001800  67 0d 26 16 14 e7 4c 3d  33 33 20 4c 3d 33 32 3a  |g.&...L=33 L=32:|
00001810  e5 8d 54 5a 67 0d 26 48  14 e7 4c 3d 33 32 20 4c  |..TZg.&H..L=32 L|
00001820  3d 33 31 3a e5 8d 54 5a  67 0d 26 7a 14 e7 4c 3d  |=31:..TZg.&z..L=|
00001830  33 31 20 4c 3d 33 30 3a  e5 8d 54 5a 67 0d 26 ac  |31 L=30:..TZg.&.|
00001840  1e e7 4c 3d 34 30 20 80  46 28 36 29 3d 31 20 8c  |..L=40 .F(6)=1 .|
00001850  20 4c 3d 33 36 3a e5 8d  54 5a 67 0d 26 de 1e e7  | L=36:..TZg.&...|
00001860  4c 3d 34 39 20 80 46 28  37 29 3d 31 20 8c 20 4c  |L=49 .F(7)=1 . L|
00001870  3d 35 30 3a e5 8d 54 5a  67 0d 27 10 27 f1 22 59  |=50:..TZg.'.'."Y|
00001880  6f 75 20 63 61 6e 27 74  20 67 6f 20 69 6e 20 74  |ou can't go in t|
00001890  68 61 74 20 64 69 72 65  63 74 69 6f 6e 22 3a e1  |hat direction":.|
000018a0  0d 27 1a 0b f1 22 4f 4b  22 3a e1 0d 27 42 0a dd  |.'..."OK":..'B..|
000018b0  f2 52 45 41 44 0d 27 74  35 e7 42 24 3c 3e 22 50  |.READ.'t5.B$<>"P|
000018c0  41 50 45 52 22 20 80 20  42 24 3c 3e 22 42 4f 4f  |APER" . B$<>"BOO|
000018d0  4b 22 20 8c f1 22 49 20  63 61 6e 27 74 20 72 65  |K" .."I can't re|
000018e0  61 64 20 61 20 22 42 24  3a e1 0d 27 a6 16 e7 46  |ad a "B$:..'...F|
000018f0  28 35 29 3d 31 20 43 4f  4c 24 3d 22 52 45 44 22  |(5)=1 COL$="RED"|
00001900  0d 27 d8 18 e7 46 28 35  29 3d 32 20 43 4f 4c 24  |.'...F(5)=2 COL$|
00001910  3d 22 47 52 45 45 4e 22  0d 28 0a 19 e7 46 28 35  |="GREEN".(...F(5|
00001920  29 3d 33 20 43 4f 4c 24  3d 22 59 45 4c 4c 4f 57  |)=3 COL$="YELLOW|
00001930  22 0d 28 3c 17 e7 46 28  35 29 3d 34 20 43 4f 4c  |".(<..F(5)=4 COL|
00001940  24 3d 22 42 4c 55 45 22  0d 28 6e 38 e7 42 24 3d  |$="BLUE".(n8.B$=|
00001950  22 50 41 50 45 52 22 20  80 41 28 37 29 3c 3e 31  |"PAPER" .A(7)<>1|
00001960  30 30 20 8c 20 f1 22 59  6f 75 20 61 72 65 6e 27  |00 . ."You aren'|
00001970  74 20 63 61 72 72 79 69  6e 67 20 69 74 22 3a e1  |t carrying it":.|
00001980  0d 28 a0 51 e7 42 24 3d  22 50 41 50 45 52 22 20  |.(.Q.B$="PAPER" |
00001990  80 41 28 37 29 3d 31 30  30 20 f1 22 49 74 20 69  |.A(7)=100 ."It i|
000019a0  73 20 61 20 72 65 6d 69  6e 64 65 72 20 74 6f 20  |s a reminder to |
000019b0  74 68 65 20 63 6f 6d 6d  61 6e 64 65 72 49 74 20  |the commanderIt |
000019c0  6a 75 73 74 20 73 61 79  73 20 22 43 4f 4c 24 3a  |just says "COL$:|
000019d0  e1 0d 28 d2 38 e7 42 24  3d 22 42 4f 4f 4b 22 20  |..(.8.B$="BOOK" |
000019e0  80 41 28 31 32 29 3c 3e  31 30 30 20 8c 20 f1 22  |.A(12)<>100 . ."|
000019f0  59 6f 75 20 61 72 65 6e  27 74 20 63 61 72 72 79  |You aren't carry|
00001a00  69 6e 67 20 69 74 22 3a  e1 0d 29 04 74 e7 42 24  |ing it":..).t.B$|
00001a10  3d 22 42 4f 4f 4b 22 20  80 41 28 31 32 29 3d 31  |="BOOK" .A(12)=1|
00001a20  30 30 20 80 20 41 28 31  39 29 3c 3e 31 30 30 20  |00 . A(19)<>100 |
00001a30  f1 22 41 20 70 61 73 73  63 61 72 64 20 66 61 6c  |."A passcard fal|
00001a40  6c 73 20 6f 75 74 20 6f  66 20 74 68 65 20 62 6f  |ls out of the bo|
00001a50  6f 6b 22 3a 41 28 31 39  29 3d 4c 3a e1 20 8b 20  |ok":A(19)=L:. . |
00001a60  f1 22 49 74 27 73 20 61  6e 20 69 6e 74 65 72 65  |."It's an intere|
00001a70  73 74 69 6e 67 20 62 6f  6f 6b 22 3a e1 0d 29 36  |sting book":..)6|
00001a80  0a dd f2 4f 50 45 4e 0d  29 68 31 e7 42 24 3c 3e  |...OPEN.)h1.B$<>|
00001a90  22 42 4f 58 22 20 80 42  24 3c 3e 22 42 4f 4f 4b  |"BOX" .B$<>"BOOK|
00001aa0  22 20 f1 22 49 20 63 61  6e 27 74 20 6f 70 65 6e  |" ."I can't open|
00001ab0  20 61 20 22 42 24 3a e1  0d 29 9a 36 e7 42 24 3d  | a "B$:..).6.B$=|
00001ac0  22 42 4f 4f 4b 22 20 80  41 28 31 32 29 3c 3e 31  |"BOOK" .A(12)<>1|
00001ad0  30 30 20 f1 22 59 6f 75  20 68 61 76 65 6e 27 74  |00 ."You haven't|
00001ae0  20 67 6f 74 20 61 20 62  6f 6f 6b 22 3a e1 0d 29  | got a book":..)|
00001af0  cc 53 e7 42 24 3d 22 42  4f 4f 4b 22 20 80 41 28  |.S.B$="BOOK" .A(|
00001b00  31 32 29 3d 31 30 30 20  80 41 28 31 39 29 3c 3e  |12)=100 .A(19)<>|
00001b10  31 30 30 20 f1 22 41 20  70 61 73 73 63 61 72 64  |100 ."A passcard|
00001b20  20 66 61 6c 6c 73 20 6f  75 74 20 6f 66 20 74 68  | falls out of th|
00001b30  65 20 62 6f 6f 6b 22 3a  41 28 31 39 29 3d 4c 3a  |e book":A(19)=L:|
00001b40  e1 0d 29 fe 46 e7 42 24  3d 22 42 4f 4f 4b 22 20  |..).F.B$="BOOK" |
00001b50  80 41 28 31 32 29 3d 31  30 30 20 80 41 28 31 39  |.A(12)=100 .A(19|
00001b60  29 3d 31 30 30 20 f1 22  49 74 27 73 20 61 20 76  |)=100 ."It's a v|
00001b70  65 72 79 20 69 6e 74 65  72 65 73 74 69 6e 67 20  |ery interesting |
00001b80  62 6f 6f 6b 22 3a e1 0d  2a 30 37 e7 42 24 3d 22  |book":..*07.B$="|
00001b90  42 4f 58 22 20 80 41 28  39 29 3c 3e 31 30 30 20  |BOX" .A(9)<>100 |
00001ba0  f1 22 59 6f 75 20 61 72  65 6e 27 74 20 63 61 72  |."You aren't car|
00001bb0  72 79 69 6e 67 20 61 20  62 6f 78 22 3a e1 0d 2a  |rying a box":..*|
00001bc0  62 3c e7 42 24 3d 22 42  4f 58 22 20 80 41 28 39  |b<.B$="BOX" .A(9|
00001bd0  29 3d 31 30 30 20 f1 22  54 68 65 72 65 27 73 20  |)=100 ."There's |
00001be0  61 20 67 75 6e 20 69 6e  73 69 64 65 20 69 74 22  |a gun inside it"|
00001bf0  3a 41 28 31 30 29 3d 4c  3a e1 0d 2a 94 09 dd f2  |:A(10)=L:..*....|
00001c00  44 49 47 0d 2a c6 23 e7  4c 3c 3e 32 31 20 f1 22  |DIG.*.#.L<>21 ."|
00001c10  59 6f 75 20 63 61 6e 27  74 20 64 69 67 20 68 65  |You can't dig he|
00001c20  72 65 21 22 3a e1 0d 2a  f8 2c e7 41 28 31 31 29  |re!":..*.,.A(11)|
00001c30  3c 3e 31 30 30 20 f1 22  59 6f 75 20 68 61 76 65  |<>100 ."You have|
00001c40  6e 27 74 20 67 6f 74 20  61 20 73 70 61 64 65 22  |n't got a spade"|
00001c50  3a e1 0d 2b 2a 22 f1 22  59 6f 75 27 76 65 20 66  |:..+*"."You've f|
00001c60  6f 75 6e 64 20 61 20 62  6f 78 22 3a 41 28 39 29  |ound a box":A(9)|
00001c70  3d 4c 3a e1 0d 2b 5c 0c  dd f2 42 55 54 54 4f 4e  |=L:..+\...BUTTON|
00001c80  0d 2c 88 3d f1 27 22 57  68 69 63 68 20 6f 6e 65  |.,.=.'"Which one|
00001c90  3f 20 54 68 65 72 65 20  61 72 65 20 66 6f 75 72  |? There are four|
00001ca0  3a 22 27 22 52 65 64 2c  20 47 72 65 65 6e 2c 20  |:"'"Red, Green, |
00001cb0  59 65 6c 6c 6f 77 2c 20  42 6c 75 65 22 0d 2c ba  |Yellow, Blue".,.|
00001cc0  12 e8 27 22 43 6f 6c 6f  75 72 3f 22 43 4c 24 0d  |..'"Colour?"CL$.|
00001cd0  2c ec 82 e7 43 4c 24 3d  22 52 45 44 22 20 80 46  |,...CL$="RED" .F|
00001ce0  28 35 29 3d 31 20 84 43  4c 24 3d 22 47 52 45 45  |(5)=1 .CL$="GREE|
00001cf0  4e 22 20 80 46 28 35 29  3d 32 20 84 43 4c 24 3d  |N" .F(5)=2 .CL$=|
00001d00  22 59 45 4c 4c 4f 57 22  20 80 46 28 35 29 3d 33  |"YELLOW" .F(5)=3|
00001d10  20 84 43 4c 24 3d 22 42  4c 55 45 22 20 80 46 28  | .CL$="BLUE" .F(|
00001d20  35 29 3d 34 20 8c 20 f1  27 22 54 68 65 20 64 6f  |5)=4 . .'"The do|
00001d30  6f 72 20 6f 70 65 6e 73  2e 20 59 6f 75 20 6d 61  |or opens. You ma|
00001d40  79 20 70 72 6f 63 65 65  64 22 3a 4c 3d 33 30 3a  |y proceed":L=30:|
00001d50  e1 0d 2d 50 0c f1 22 42  61 6e 67 21 22 0d 2d 82  |..-P.."Bang!".-.|
00001d60  0f d4 30 2c 2d 31 35 2c  36 2c 32 35 0d 2d b4 29  |..0,-15,6,25.-.)|
00001d70  f1 27 22 54 68 61 74 20  62 75 74 74 6f 6e 20 73  |.'"That button s|
00001d80  65 74 20 6f 66 66 20 61  20 62 6f 6f 62 79 20 74  |et off a booby t|
00001d90  72 61 70 21 22 0d 2d e6  06 f2 50 0d 2e 18 06 f2  |rap!".-...P.....|
00001da0  45 0d 2e 7c 15 dd f2 50  3a e3 46 3d 31 b8 33 30  |E..|...P:.F=1.30|
00001db0  30 30 3a ed 3a e1 0d 2e  ae 0a dd f2 57 4f 4f 44  |00:.:.......WOOD|
00001dc0  0d 2e e0 1f e7 4c 3c 3e  33 34 20 f1 22 49 20 63  |.....L<>34 ."I c|
00001dd0  61 6e 27 74 20 64 6f 20  74 68 61 74 22 3a e1 0d  |an't do that":..|
00001de0  2f 12 30 f1 22 55 6e 64  65 72 20 74 68 65 20 77  |/.0."Under the w|
00001df0  6f 6f 64 20 74 68 65 72  65 27 73 20 61 20 6c 61  |ood there's a la|
00001e00  64 64 65 72 22 3a 41 28  31 33 29 3d 4c 3a e1 0d  |dder":A(13)=L:..|
00001e10  2f 44 0a dd f2 47 49 56  45 0d 2f 76 31 e7 42 24  |/D...GIVE./v1.B$|
00001e20  3c 3e 22 4a 4f 49 4e 54  20 4f 46 20 4d 45 41 54  |<>"JOINT OF MEAT|
00001e30  22 20 f1 22 59 6f 75 20  63 61 6e 27 74 20 22 41  |" ."You can't "A|
00001e40  24 22 20 61 20 22 42 24  3a e1 0d 2f a8 2b e7 41  |$" a "B$:../.+.A|
00001e50  28 31 34 29 3c 3e 31 30  30 20 f1 22 59 6f 75 27  |(14)<>100 ."You'|
00001e60  72 65 20 6e 6f 74 20 63  61 72 72 79 69 6e 67 20  |re not carrying |
00001e70  69 74 22 3a e1 0d 2f da  35 e7 4c 3c 3e 34 31 20  |it":../.5.L<>41 |
00001e80  f1 22 54 68 65 72 65 20  69 73 6e 27 74 20 6d 75  |."There isn't mu|
00001e90  63 68 20 70 6f 69 6e 74  20 69 6e 20 64 6f 69 6e  |ch point in doin|
00001ea0  67 20 20 74 68 61 74 22  3a e1 0d 30 0c 55 f1 22  |g  that":..0.U."|
00001eb0  54 68 65 20 64 6f 67 20  65 61 74 73 20 74 68 65  |The dog eats the|
00001ec0  20 6d 65 61 74 20 61 6e  64 20 64 72 61 67 73 20  | meat and drags |
00001ed0  61 6c 6f 6e 67 20 72 6f  70 65 20 6f 75 74 20 6f  |along rope out o|
00001ee0  66 20 74 68 65 20 6b 65  6e 6e 65 6c 22 3a 41 28  |f the kennel":A(|
00001ef0  31 34 29 3d 30 3a 41 28  31 35 29 3d 4c 3a e1 0d  |14)=0:A(15)=L:..|
00001f00  30 3e 09 dd f2 46 49 58  0d 30 70 2c e7 42 24 3c  |0>...FIX.0p,.B$<|
00001f10  3e 22 52 4f 50 45 22 20  f1 22 49 20 77 6f 6e 27  |>"ROPE" ."I won'|
00001f20  74 20 6c 65 74 20 79 6f  75 20 64 6f 20 74 68 61  |t let you do tha|
00001f30  74 22 3a e1 0d 30 a2 2e  e7 4c 3c 3e 34 39 20 f1  |t":..0...L<>49 .|
00001f40  22 54 68 65 72 65 20 69  73 20 6e 6f 77 68 65 72  |"There is nowher|
00001f50  65 20 74 6f 20 22 41 24  22 20 69 74 20 74 6f 22  |e to "A$" it to"|
00001f60  3a e1 0d 30 d4 26 e7 41  28 31 35 29 3c 3e 31 30  |:..0.&.A(15)<>10|
00001f70  30 f1 22 59 6f 75 20 68  61 76 65 6e 27 74 20 61  |0."You haven't a|
00001f80  20 72 6f 70 65 22 3a e1  0d 31 06 41 f1 22 54 68  | rope":..1.A."Th|
00001f90  65 20 72 6f 70 65 20 69  73 20 6e 6f 77 20 66 69  |e rope is now fi|
00001fa0  72 6d 6c 79 20 66 69 78  65 64 20 74 6f 20 20 74  |rmly fixed to  t|
00001fb0  68 65 20 68 6f 6f 6b 22  3a 46 28 37 29 3d 31 3a  |he hook":F(7)=1:|
00001fc0  41 28 31 35 29 3d 30 3a  e1 0d 32 96 0a dd f2 44  |A(15)=0:..2....D|
00001fd0  52 4f 50 0d 32 c8 08 41  53 3d 31 0d 32 fa 15 e7  |ROP.2..AS=1.2...|
00001fe0  42 24 3d 43 24 28 41 53  29 20 8c 20 8d 74 50 73  |B$=C$(AS) . .tPs|
00001ff0  0d 33 2c 40 41 53 3d 41  53 2b 31 3a e7 20 41 53  |.3,@AS=AS+1:. AS|
00002000  3d 32 33 20 8c 20 f1 22  49 20 64 6f 6e 27 74 20  |=23 . ."I don't |
00002010  6b 6e 6f 77 20 77 68 61  74 20 61 22 3b a4 56 4f  |know what a";.VO|
00002020  57 28 42 24 2c 31 29 3b  22 20 69 73 21 22 3a e1  |W(B$,1);" is!":.|
00002030  0d 33 5e 09 e5 8d 64 7a  72 0d 33 90 2c e7 41 28  |.3^...dzr.3.,.A(|
00002040  41 53 29 3c 3e 31 30 30  20 f1 22 59 6f 75 27 72  |AS)<>100 ."You'r|
00002050  65 20 6e 6f 74 20 63 61  72 72 79 69 6e 67 20 69  |e not carrying i|
00002060  74 21 22 3a e1 0d 33 c2  13 f1 22 4f 4b 22 3a 41  |t!":..3..."OK":A|
00002070  28 41 53 29 3d 4c 3a e1  0d 33 f4 07 dd f2 45 0d  |(AS)=L:..3....E.|
00002080  34 26 6d f1 27 27 22 57  65 6c 6c 2c 20 74 68 61  |4&m.''"Well, tha|
00002090  74 20 73 65 65 6d 73 20  74 6f 20 62 65 20 74 68  |t seems to be th|
000020a0  65 20 65 6e 64 20 6f 66  74 68 61 74 20 67 61 6d  |e end ofthat gam|
000020b0  65 2e 20 44 6f 20 79 6f  75 20 77 61 6e 74 20 74  |e. Do you want t|
000020c0  6f 20 70 6c 61 79 20 20  20 61 67 61 69 6e 3f 22  |o play   again?"|
000020d0  3b 3a f5 3a 4b 4c 24 3d  be 3a fd 4b 4c 24 3d 22  |;:.:KL$=.:.KL$="|
000020e0  59 22 20 84 20 4b 4c 24  3d 22 4e 22 0d 34 58 10  |Y" . KL$="N".4X.|
000020f0  e7 4b 4c 24 3d 22 59 22  20 8c 20 f9 0d 34 8a 1d  |.KL$="Y" . ..4..|
00002100  f1 27 22 54 68 61 6e 6b  73 20 66 6f 72 20 70 6c  |.'"Thanks for pl|
00002110  61 79 69 6e 67 21 22 3a  e0 0d 34 bc 0a dd f2 51  |aying!":..4....Q|
00002120  55 49 54 0d 34 ee 15 f1  27 22 41 72 65 20 79 6f  |UIT.4...'"Are yo|
00002130  75 20 73 75 72 65 3f 22  0d 35 20 1e f5 3a 4b 4c  |u sure?".5 ..:KL|
00002140  24 3d be 3a fd 4b 4c 24  3d 22 59 22 20 84 20 4b  |$=.:.KL$="Y" . K|
00002150  4c 24 3d 22 4e 22 0d 35  52 0e e7 4b 4c 24 3d 22  |L$="N".5R..KL$="|
00002160  4e 22 20 e1 0d 35 84 06  f2 45 0d 35 b6 0c dd f2  |N" ..5...E.5....|
00002170  55 4e 4c 4f 43 4b 0d 35  e8 32 e7 4c 3c 3e 35 30  |UNLOCK.5.2.L<>50|
00002180  20 80 4c 3c 3e 35 37 20  8c 20 f1 22 54 68 65 72  | .L<>57 . ."Ther|
00002190  65 27 73 20 6e 6f 74 68  69 6e 67 20 74 6f 20 75  |e's nothing to u|
000021a0  6e 6c 6f 63 6b 22 3a e1  0d 36 1a 38 e7 4c 3d 35  |nlock":..6.8.L=5|
000021b0  30 20 80 46 28 38 29 3d  31 20 84 4c 3d 35 37 20  |0 .F(8)=1 .L=57 |
000021c0  80 46 28 39 29 3d 31 20  8c 20 f1 22 49 74 27 73  |.F(9)=1 . ."It's|
000021d0  20 61 6c 72 65 61 64 79  20 6f 70 65 6e 22 3a e1  | already open":.|
000021e0  0d 36 4c 2a e7 41 28 38  29 3c 3e 31 30 30 20 8c  |.6L*.A(8)<>100 .|
000021f0  f1 22 59 6f 75 20 68 61  76 65 6e 27 74 20 67 6f  |."You haven't go|
00002200  74 20 61 20 6b 65 79 22  3a e1 0d 36 7e 35 e7 4c  |t a key":..6~5.L|
00002210  3d 35 30 20 8c 20 f1 22  54 68 65 20 64 6f 6f 72  |=50 . ."The door|
00002220  20 69 73 20 75 6e 6c 6f  63 6b 65 64 20 61 6e 64  | is unlocked and|
00002230  20 6f 70 65 6e 22 3a 46  28 38 29 3d 31 3a e1 0d  | open":F(8)=1:..|
00002240  36 b0 35 e7 4c 3d 35 37  20 8c 20 f1 22 54 68 65  |6.5.L=57 . ."The|
00002250  20 64 6f 6f 72 20 69 73  20 75 6e 6c 6f 63 6b 65  | door is unlocke|
00002260  64 20 61 6e 64 20 6f 70  65 6e 22 3a 46 28 39 29  |d and open":F(9)|
00002270  3d 31 3a e1 0d 36 e2 0a  dd f2 4c 41 4d 50 0d 37  |=1:..6....LAMP.7|
00002280  14 23 e7 46 28 31 32 29  3d 31 20 f1 22 59 6f 75  |.#.F(12)=1 ."You|
00002290  20 63 61 6e 27 74 20 64  6f 20 74 68 61 74 22 3a  | can't do that":|
000022a0  e1 0d 37 46 2b e7 41 28  31 36 29 3c 3e 31 30 30  |..7F+.A(16)<>100|
000022b0  20 f1 22 59 6f 75 27 72  65 20 6e 6f 74 20 63 61  | ."You're not ca|
000022c0  72 72 79 69 6e 67 20 69  74 22 3a e1 0d 37 78 1c  |rrying it":..7x.|
000022d0  f1 22 4f 4b 22 3a 46 28  31 31 29 3d 33 30 3a 46  |."OK":F(11)=30:F|
000022e0  28 31 32 29 3d 31 3a e1  0d 37 aa 0a dd f2 4b 49  |(12)=1:..7....KI|
000022f0  4c 4c 0d 37 dc 24 e7 4c  3c 3e 35 39 20 8c 20 f1  |LL.7.$.L<>59 . .|
00002300  22 49 20 77 6f 75 6c 64  6e 27 74 20 64 6f 20 74  |"I wouldn't do t|
00002310  68 61 74 22 3a e1 0d 38  0e 17 f1 22 57 68 61 74  |hat":..8..."What|
00002320  20 77 69 74 68 22 3b 3a  e8 20 4b 4c 24 0d 38 40  | with";:. KL$.8@|
00002330  34 e7 4b 4c 24 3c 3e 22  47 55 4e 22 20 8c 20 f1  |4.KL$<>"GUN" . .|
00002340  22 59 6f 75 20 63 61 6e  27 74 20 6b 69 6c 6c 20  |"You can't kill |
00002350  68 69 6d 20 77 69 74 68  20 74 68 61 74 21 22 3a  |him with that!":|
00002360  e1 0d 38 72 37 e7 4b 4c  24 3d 22 47 55 4e 22 20  |..8r7.KL$="GUN" |
00002370  80 41 28 31 30 29 3c 3e  31 30 30 20 8c 20 f1 22  |.A(10)<>100 . ."|
00002380  59 6f 75 20 68 61 76 65  6e 27 74 20 67 6f 74 20  |You haven't got |
00002390  61 20 67 75 6e 22 3a e1  0d 38 a4 2f d4 30 2c 2d  |a gun":..8./.0,-|
000023a0  31 35 2c 35 2c 33 3a f1  27 22 48 65 20 69 73 20  |15,5,3:.'"He is |
000023b0  64 65 61 64 22 3a 41 28  31 38 29 3d 30 3a 46 28  |dead":A(18)=0:F(|
000023c0  31 33 29 3d 31 3a e1 0d  38 d6 0b dd f2 43 41 42  |13)=1:..8....CAB|
000023d0  4c 45 0d 39 08 2d f1 22  54 68 65 20 63 61 62 6c  |LE.9.-."The cabl|
000023e0  65 20 63 61 72 20 73 74  61 72 74 73 20 75 70 22  |e car starts up"|
000023f0  3a d4 31 2c 2d 31 35 2c  35 2c 34 30 3a f2 50 0d  |:.1,-15,5,40:.P.|
00002400  3a 66 0a 4c 3d 36 31 3a  e1 0d 3a 98 09 dd f2 46  |:f.L=61:..:....F|
00002410  49 4e 0d 3a ca 0b 52 41  4c 24 3d 22 22 0d 3a fc  |IN.:..RAL$="".:.|
00002420  40 e7 41 28 34 29 3c 3e  31 30 30 20 8c 20 52 41  |@.A(4)<>100 . RA|
00002430  4c 24 3d 22 61 6e 79 20  77 61 74 65 72 22 3a 54  |L$="any water":T|
00002440  52 45 24 3d 22 68 6f 75  72 73 20 79 6f 75 20 64  |RE$="hours you d|
00002450  69 65 20 6f 66 20 74 68  69 72 73 74 22 0d 3b 2e  |ie of thirst".;.|
00002460  3f e7 41 28 36 29 3c 3e  31 30 30 20 8c 20 52 41  |?.A(6)<>100 . RA|
00002470  4c 24 3d 22 61 6e 79 20  66 6f 6f 64 22 3a 54 52  |L$="any food":TR|
00002480  45 24 3d 22 68 6f 75 72  73 20 79 6f 75 20 64 69  |E$="hours you di|
00002490  65 20 6f 66 20 68 75 6e  67 65 72 22 0d 3b 60 3d  |e of hunger".;`=|
000024a0  e7 41 28 33 29 3c 3e 31  30 30 20 8c 20 52 41 4c  |.A(3)<>100 . RAL|
000024b0  24 3d 22 61 20 63 6f 6d  70 61 73 73 22 3a 54 52  |$="a compass":TR|
000024c0  45 24 3d 22 61 6e 20 68  6f 75 72 20 79 6f 75 20  |E$="an hour you |
000024d0  61 72 65 20 6c 6f 73 74  22 0d 3b 92 3a e7 41 28  |are lost".;.:.A(|
000024e0  32 32 29 3c 3e 31 30 30  20 8c 20 52 41 4c 24 3d  |22)<>100 . RAL$=|
000024f0  22 61 20 6d 61 70 22 3a  54 52 45 24 3d 22 61 6e  |"a map":TRE$="an|
00002500  20 68 6f 75 72 20 79 6f  75 20 61 72 65 20 6c 6f  | hour you are lo|
00002510  73 74 22 0d 3b c4 13 e7  52 41 4c 24 3d 22 22 20  |st".;...RAL$="" |
00002520  8c 20 8d 74 4c 7c 0d 3b  f6 43 f1 22 59 6f 75 20  |. .tL|.;.C."You |
00002530  77 65 72 65 20 73 6f 20  6e 65 61 72 20 74 6f 20  |were so near to |
00002540  65 73 63 61 70 69 6e 67  2c 20 20 20 20 62 75 74  |escaping,    but|
00002550  20 79 6f 75 20 68 61 76  65 6e 27 74 20 67 6f 74  | you haven't got|
00002560  20 22 52 41 4c 24 22 2e  22 0d 3c 28 1d f1 27 22  | "RAL$".".<(..'"|
00002570  57 69 74 68 69 6e 20 22  3b 54 52 45 24 3a f2 50  |Within ";TRE$:.P|
00002580  3a f2 50 3a f2 45 0d 3c  5a 09 e5 8d 74 7e 7c 0d  |:.P:.E.<Z...t~|.|
00002590  3c 8c 78 f1 22 43 6f 6e  67 72 61 74 75 6c 61 74  |<.x."Congratulat|
000025a0  69 6f 6e 73 20 2d 20 79  6f 75 20 68 61 76 65 20  |ions - you have |
000025b0  20 20 20 20 20 20 65 73  63 61 70 65 64 20 66 72  |      escaped fr|
000025c0  6f 6d 20 74 68 65 20 63  61 73 74 6c 65 2c 20 61  |om the castle, a|
000025d0  6e 64 20 79 6f 75 20 68  61 76 65 20 67 6f 74 20  |nd you have got |
000025e0  61 6c 6c 20 79 6f 75 20  77 69 6c 6c 20 6e 65 65  |all you will nee|
000025f0  64 20 74 6f 20 20 20 20  6b 65 65 70 20 79 6f 75  |d to    keep you|
00002600  20 67 6f 69 6e 67 22 0d  3c be 0c f2 54 55 4e 45  | going".<...TUNE|
00002610  3a f2 45 0d 49 70 0a dd  f2 54 55 4e 45 0d 49 a2  |:.E.Ip...TUNE.I.|
00002620  29 e2 20 31 2c 31 2c 30  2c 30 2c 30 2c 31 2c 31  |). 1,1,0,0,0,1,1|
00002630  2c 31 2c 2d 31 2c 2d 33  2c 2d 31 2c 2d 31 2c 31  |,1,-1,-3,-1,-1,1|
00002640  32 30 2c 31 30 30 0d 49  d4 09 f7 8d 60 48 4b 0d  |20,100.I....`HK.|
00002650  4a 06 14 e3 46 3d 31 b8  34 34 3a f3 53 31 28 46  |J...F=1.44:.S1(F|
00002660  29 3a ed 0d 4a 9c 14 e3  46 3d 31 b8 34 34 3a f3  |):..J...F=1.44:.|
00002670  53 32 28 46 29 3a ed 0d  4a ce 0b e3 53 3d 31 b8  |S2(F):..J...S=1.|
00002680  34 34 0d 4b 00 18 d4 31  2c 2d 31 35 2c 53 31 28  |44.K...1,-15,S1(|
00002690  53 29 2c 53 32 28 53 29  2a 38 0d 4b 96 05 ed 0d  |S),S2(S)*8.K....|
000026a0  4b c8 28 dc 35 33 2c 36  39 2c 38 31 2c 36 39 2c  |K.(.53,69,81,69,|
000026b0  36 31 2c 34 39 2c 35 33  2c 36 39 2c 31 30 31 2c  |61,49,53,69,101,|
000026c0  31 30 31 2c 31 30 31 0d  4b fa 22 dc 36 39 2c 38  |101,101.K.".69,8|
000026d0  31 2c 37 33 2c 36 31 2c  34 39 2c 36 31 2c 37 33  |1,73,61,49,61,73|
000026e0  2c 38 39 2c 38 39 2c 38  39 0d 4c 2c 28 dc 31 30  |,89,89,89.L,(.10|
000026f0  31 2c 39 37 2c 31 30 31  2c 31 30 31 2c 31 31 37  |1,97,101,101,117|
00002700  2c 31 30 39 2c 31 30 39  2c 37 33 2c 37 33 2c 37  |,109,109,73,73,7|
00002710  33 0d 4c 5e 2f dc 31 30  31 2c 31 30 31 2c 38 39  |3.L^/.101,101,89|
00002720  2c 37 33 2c 35 37 2c 36  31 2c 37 33 2c 38 39 2c  |,73,57,61,73,89,|
00002730  31 30 31 2c 31 30 39 2c  39 37 2c 38 39 2c 39 37  |101,109,97,89,97|
00002740  0d 4c 90 20 dc 2e 35 2c  2e 35 2c 32 2c 2e 35 2c  |.L. ..5,.5,2,.5,|
00002750  2e 35 2c 32 2c 2e 35 2c  2e 35 2c 32 2c 31 2c 32  |.5,2,.5,.5,2,1,2|
00002760  0d 4c c2 1c dc 31 2c 32  2c 2e 35 2c 2e 35 2c 32  |.L...1,2,.5,.5,2|
00002770  2c 2e 35 2c 2e 35 2c 32  2c 31 2c 33 0d 4c f4 1b  |,.5,.5,2,1,3.L..|
00002780  dc 31 2c 31 2c 31 2c 31  2c 31 2c 31 2c 31 2e 35  |.1,1,1,1,1,1,1.5|
00002790  2c 2e 35 2c 31 2c 32 0d  4d 26 21 dc 31 2c 31 2c  |,.5,1,2.M&!.1,1,|
000027a0  31 2c 31 2c 31 2c 2e 35  2c 2e 35 2c 2e 35 2c 31  |1,1,1,.5,.5,.5,1|
000027b0  2c 31 2c 31 2c 31 2c 34  0d 4d 58 05 e1 0d 4d 8a  |,1,1,1,4.MX...M.|
000027c0  0a dd f2 50 41 53 53 0d  4d bc 3f f1 22 41 20 67  |...PASS.M.?."A g|
000027d0  75 61 72 64 20 73 74 6f  70 73 20 79 6f 75 20 61  |uard stops you a|
000027e0  6e 64 20 61 73 6b 73 20  79 6f 75 20 20 20 66 6f  |nd asks you   fo|
000027f0  72 20 79 6f 75 72 20 69  64 65 6e 74 69 66 69 63  |r your identific|
00002800  61 74 69 6f 6e 22 0d 4d  ee 1e f1 27 22 57 68 61  |ation".M...'"Wha|
00002810  74 20 73 68 61 6c 6c 20  49 20 64 6f 22 3b 3a e8  |t shall I do";:.|
00002820  20 4a 4b 24 0d 4e 20 75  e7 20 4a 4b 24 3c 3e 22  | JK$.N u. JK$<>"|
00002830  47 49 56 45 20 50 41 53  53 43 41 52 44 22 20 80  |GIVE PASSCARD" .|
00002840  20 4a 4b 24 3c 3e 22 53  48 4f 57 20 43 41 52 44  | JK$<>"SHOW CARD|
00002850  22 20 80 20 4a 4b 24 3c  3e 22 53 48 4f 57 20 50  |" . JK$<>"SHOW P|
00002860  41 53 53 22 20 80 20 4a  4b 24 3c 3e 22 47 49 56  |ASS" . JK$<>"GIV|
00002870  45 20 43 41 52 44 22 20  80 20 4a 4b 24 3c 3e 22  |E CARD" . JK$<>"|
00002880  53 48 4f 57 20 50 41 53  53 20 43 41 52 44 22 20  |SHOW PASS CARD" |
00002890  8c 20 f1 3a e5 8d 64 56  5f 0d 4e 52 19 e7 41 28  |. .:..dV_.NR..A(|
000028a0  31 39 29 3c 3e 31 30 30  20 8c 20 f1 3a e5 8d 64  |19)<>100 . .:..d|
000028b0  56 5f 0d 4e 84 0f f1 27  22 4f 4b 22 3a f2 50 3a  |V_.N...'"OK":.P:|
000028c0  e1 0d 4e b6 60 dd a4 56  4f 57 28 42 24 2c 42 42  |..N.`..VOW(B$,BB|
000028d0  25 29 3a 42 42 24 3d c0  42 24 2c 31 29 3a e7 28  |%):BB$=.B$,1):.(|
000028e0  42 24 3c 3e 22 55 4e 49  46 4f 52 4d 22 29 80 28  |B$<>"UNIFORM").(|
000028f0  42 42 24 3d 22 41 22 84  42 42 24 3d 22 45 22 84  |BB$="A".BB$="E".|
00002900  42 42 24 3d 22 49 22 84  42 42 24 3d 22 4f 22 84  |BB$="I".BB$="O".|
00002910  42 42 24 3d 22 55 22 29  8c f1 22 4e 22 3b 8b f1  |BB$="U").."N";..|
00002920  3b 0d 4e e8 11 e7 42 42  25 3d 30 f1 8b f1 22 20  |;.N...BB%=0..." |
00002930  22 3b 0d 4f 1a 07 3d 42  24 0d ff                 |";.O..=B$..|
0000293b
G/COLDIT1.m0
G/COLDIT1.m1
G/COLDIT1.m2
G/COLDIT1.m4
G/COLDIT1.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .