Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_24.ADF » G/ADVENT

G/ADVENT

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_24.ADF
Filename: G/ADVENT
Read OK:
File size: 260D bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM *****************************
   20REM ADVENTURE SOURCE
   30REM from an idea in Let's Compute
   40REM M/coded by Richard Dimond
   50REM *****************************
   60REM
   70DIMQ% &1000
   80prtaddr=&70:tempa=&72:tempx=&73:tempy=&74:obflag=&75:input=&900
   90FORpass=0TO2STEP2
  100P%=Q%
  110[OPTpass
  120.prt
  130STXprtaddr
  140STYprtaddr+1
  150LDY#0
  160.lp LDA(prtaddr),Y
  170CMP#&FF:BEQexit
  180JSR&FFEE:INY:JMPlp
  190.exit RTS
  200.prtinput
  210LDY#0
  220.lp1 LDAinput,Y
  230CMP#&0D:BEQexit
  240JSR&FFEE:INY:JMPlp1
  250.rep
  260JSR&FFEE:DEX:BNErep:RTS
  270.prtloc
  280LDAloc:ASL A:SEC:SBC#2:TAY
  290LDAloc1,Y:TAX:INY
  300LDAloc1,Y:TAY:JMPprt
  310.prtmess
  320ASL A:SEC:SBC#2:TAY
  330LDAmess1,Y:TAX:INY
  340LDAmess1,Y:TAY:JMPprt
  350.prtdirs LDAloc:ASL A:ASL A:ASL A:SEC:SBC#8:TAY
  360LDAmovdat,Y:STYtempy:CMP#&FF:BEQnotn
  370LDX#n MOD256:LDY#n DIV256:JSRprt:.notn LDYtempy:INY
  380LDAmovdat,Y:STYtempy:CMP#&FF:BEQnots
  390LDX#s MOD256:LDY#s DIV256:JSRprt:.nots LDYtempy:INY
  400LDAmovdat,Y:STYtempy:CMP#&FF:BEQnote
  410LDX#e MOD256:LDY#e DIV256:JSRprt:.note LDYtempy:INY
  420LDAmovdat,Y:STYtempy:CMP#&FF:BEQnotw
  430LDX#w MOD256:LDY#w DIV256:JSRprt:.notw RTS
  440.ldobs
  450LDA#0:STAobflag:LDY#&FF
  460.oblp INY:LDAobsdat,Y
  470CMP#&FF:BEQret
  480CMPloc:BEQoprt:JMPoblp
  490.oprt:STYobflag:JSRprtob:JMPoblp
  500.prtob PHA:TXA:PHA:TYA:PHA
  510TYA:ASL A:TAY
  520LDAob1,Y:TAX:INY:LDAob1,Y:TAY:JSRprt:JSR&FFE7:LDX#12:LDA#32:JSRrep
  530LDA#&FF:STAobflag
  540PLA:TAY:PLA:TAX:PLA:RTS
  550.inv LDA#12:JSR&FFEE:JSR&FFE7:LDA#5:JSRprtmess:JSR&FFE7:LDX#12:LDA#32:JSRrep
  560LDA#0:STAobflag:LDY#0: .ilp LDAobsheld,Y:CMP#&FF:BEQret:CMP#0:BEQnpr:JSRprtob:.npr INY:JMPilp
  570.ret LDA#&FF:CMPobflag:BEQret2
  580LDA#15:JSRprtmess:JSR&FFE7:.ret2 RTS
  590.fndwd1
  600LDX#1:STXtempx:.wda LDY#0:LDXtempx
  610LDAwords1,X:CMP#&FF:BEQfndwd
  620CMPinput,Y:BNEnxwd:INY:LDAinput,Y:CMP#13:BNEfndwd:JMPfd
  630.fd LDA#0:STAactn+1:DEX:LDAwords1,X:STAactn:RTS
  640.nxwd LDXtempx:INX:INX:STXtempx:JMPwda
  650.fndwd LDX#1:STXtempx:.wdlp1 LDY#0 
  660.wdlpa LDAwords,X:CMP#&FF:BEQnotfd 
  670CMPinput,Y:BNEnxtwd
  680INX:INY:CPY#4:BEQfd1
  690JMPwdlpa
  700.notfd LDA#0:STAactn:RTS
  710 .fd1 LDA#0:STAactn+1:LDXtempx:DEX:LDAwords,X:STAactn:RTS
  720.nxtwd LDXtempx:INX:INX:INX:INX:INX:STXtempx:JMPwdlp1
  730.fndwd2
  740LDX#1:STXtempx:.wdlp2 LDY#5
  750.wdlpb LDAwords,X:CMP#&FF:BEQnotfd2
  760CMPinput,Y:BNEnxtwd2
  770INX:INY:CPY#9:BEQfd2
  780LDAinput,Y:CMP#&0D:BEQfd2
  790JMPwdlpb
  800.notfd2 LDA#0:STAactn+1:RTS
  810.fd2 LDXtempx:DEX:LDAwords,X:STAactn+1:RTS
  820.nxtwd2 LDXtempx:INX:INX:INX:INX:INX:STXtempx:JMPwdlp2
  830.mov LDAloc
  840ASL A:ASL A:ASL A:SEC:SBC#8:CLC:ADCactn:TAX:DEX
  850LDAmovdat,X:CMP#&FF:BEQnomov
  860STAloc
  870JMPmvd
  880.nomov LDA#8:JSRprtmess:JMPmm
  890.act LDAactn:CMP#11:BEQta:CMP#12:BEQdr:CMP#20:BEQpu:CMP#21:BEQme:CMP#48:BPLnoacn:RTS
  900.ta JMPtake:.dr JMPdrop:.pu JMPpush:.me JMPmend
  910.noacn LDA#9:STAmessflag+1:RTS
  920.take LDAactn+1:CMP#50:BEQtak:CMP#51:BEQtak:CMP#52:BEQtak:CMP#53:BEQtak:CMP#54:BEQtak:CMP#55:BEQtak:CMP#0:BNEnotak:JSRprtinput:LDA#16:JMPprtmess
  930.tak SEC:SBC#49:STAobflag:TAX:DEX:LDAobsheld,X:CMPobflag:BEQgot:LDAobsdat,X:CMPloc:BNEnothere:LDA#0:STAobsdat,X:LDAobflag:STAobsheld,X:LDA#10:JSRprtmess:RTS
  940.got LDA#13:JMPprtmess
  950.nothere LDA#14:JSRprtmess:RTS
  960.notak LDA#17:JMPprtmess
  970.drop LDAactn+1:CMP#50:BEQdro:CMP#51:BEQdro:CMP#52:BEQdro:CMP#53:BEQdro:CMP#54:BEQdro:CMP#55:BEQdro:CMP#0:BNEnodro:JSRprtinput:LDA#16:JMPprtmess
  980.dro SEC:SBC#49:STAobflag:TAX:DEX:LDAobsheld,X:CMPobflag:BNEnogot:LDAloc:STAobsdat,X:LDA#0:STAobflag:STAobsheld,X:LDA#11:JMPprtmess
  990.nodro LDA#17:JMPprtmess
 1000.nogot LDA#12:JMPprtmess
 1010.push LDA#1:CMPloc:BNEnopu:LDAactn+1:CMP#0:BEQnopus:CMP#75:BEQwhibut:CMP#70:BEQred:CMP#71:BEQgrn:JMPnopu
 1020.red LDX#9:LDA#0:STAobsdat,X:DEX:LDA#8:STAobsdat,X:LDA#19:JSRprtmess:RTS
 1030.grn LDX#8:LDA#0:STAobsdat,X:INX:LDA#8:STAobsdat,X:LDA#19:JSRprtmess:RTS
 1040.whibut JSRprtinput:LDA#18:JMPprtmess
 1050.nopus JSRprtinput:LDA#16:JMPprtmess
 1060.nopu LDA#18:JMPprtmess
 1070.mend LDA#16:CMPloc:BNEnomend:LDAactn+1:CMP#0:BEQnome:CMP#73:BNEnomend:LDX#3:LDAobsheld,X:CMP#0:BEQnomend:LDX#12:LDA#0:STAobsdat,X:INX:LDA#16:STAobsdat,X:LDA#19:JSRprtmess:RTS
 1080.nomend LDA#17:JMPprtmess
 1090.nome JSRprtinput:LDA#16:JMPprtmess
 2000.start
 2010LDA#22:JSR&FFEE:LDA#6:JSR&FFEE:JSR&FFE7:JSR&FFE7
 2020LDX#12:LDA#32:JSRrep:LDX#title MOD256:LDY#title DIV256:JSRprt:JSR&FFE7
 2030LDX#12:LDA#32:JSRrep:LDX#15:LDA#&7E:JSRrep:JSR&FFE7:JSR&FFE7
 2040.m
 2050LDA#1:JSRprtmess
 2060JSRprtloc
 2070JSR&FFE7
 2080LDA#2:JSRprtmess
 2090JSRldobs
 2100JSR&FFE7
 2110LDA#3:JSRprtmess
 2120JSRprtdirs
 2130JSR&FFE7:JSR&FFE7
 2140.mm
 2150JSR&FFE7:LDA#4:JSRprtmess
 2160LDX#0:.l LDA#0:STAinput,X:DEX:BNEl
 2170LDA#13:STA&900
 2180LDA#0:LDX#buffer MOD256:LDY#buffer DIV256:JSR&FFF1
 2190BCCnoesc:RTS:.noesc
 2200JSRfndwd1
 2210JSRfndwd2
 2220LDAactn:CMP#0:BEQnoactn:CMP#99:BEQinven:CMP#8:BMImove:JSRact:JMPmm:.inven JSRinv:JSR&FFE7:LDX#39:LDA#126:JSRrep:JSR&FFE7:JMPm
 2230.move:JMPmov:.mvd JSR&FFE7:LDX#39:LDA#126:JSRrep:JSR&FFE7:JMPm
 2240.noactn LDA#9:JSRprtmess:JMPmm
 5000.buffer EQUBinput MOD256:EQUBinput DIV256:EQUB&FF:EQUB32:EQUB127
 5010.title EQUS"SPACE ADVENTURE":EQUB-1
 5020\directions
 5030.n EQUS"North ":EQUB-1:.s EQUS"South ":EQUB-1:.e EQUS"East ":EQUB-1:.w EQUS"West ":EQUB-1:.u EQUS"Up ":EQUB-1:.d EQUS"Down ":EQUB-1
 5040\messages
 5050.m1 EQUS"You are ":EQUB-1
 5060.m2 EQUS"You can see ":EQUB-1
 5070.m3 EQUS"You can go ":EQUB-1
 5080.m4 EQUS"What next? ":EQUB-1
 5090.m5 EQUS"You are carrying:":EQUB-1
 5100.m6 EQUS"You wanted to go ":EQUB-1
 5110.m7 EQUS"You wanted to ":EQUB-1
 5120.m8 EQUS"You can't move that way":EQUB-1
 5130.m9 EQUS" - Do what?":EQUB-1
 5140.m10 EQUS"You take it":EQUB-1
 5150.m11 EQUS"You drop it":EQUB-1
 5160.m12 EQUS"You haven't got it":EQUB-1
 5170.m13 EQUS"You've already got it!":EQUB-1
 5180.m14 EQUS"It is not here!!":EQUB-1
 5190.m15 EQUS"Nothing useful":EQUB-1
 5200.m16 EQUS" what?":EQUB-1
 5210.m17 EQUS"You can't do that!":EQUB-1
 5220.m18 EQUS" - Which button?":EQUB-1
 5230.m19 EQUS"Ok":EQUB-1
 5240.m20 EQUS"":EQUB-1
 5250.mess1 EQUWm1:.mess2 EQUWm2:.mess3 EQUWm3:.mess4 EQUWm4:.mess5 EQUWm5
 5260.mess6 EQUWm6:.mess7 EQUWm7:.mess8 EQUWm8:.mess9 EQUWm9:.mess10 EQUWm10
 5270.mess11 EQUWm11:.mess12 EQUWm12:.mess13 EQUWm13:.mess14 EQUWm14:.mess15 EQUWm15
 5280.mess16 EQUWm16:.mess17 EQUWm17:.mess18 EQUWm18:.mess19 EQUWm19:.mess20 EQUWm20
 5290.messflag EQUW0
 5300\COMMANDS -movements
 5310.words1  EQUB1:EQUS"N":EQUB2:EQUS"S":EQUB3:EQUS"E":EQUB4:EQUS"W":EQUB5:EQUS"U":EQUW0:EQUB6:EQUS"D":EQUW&FFFF
 5320.words
 5330 EQUB1:EQUS"NORT":EQUB2:EQUS"SOUT":EQUB3:EQUS"EAST":EQUB4:EQUS"WEST":EQUB5:EQUS"UP":EQUW0:EQUB6:EQUS"DOWN"
 5340\actions
 5350EQUB11:EQUS"TAKE":EQUB11:EQUS"GET":EQUB0:EQUB11:EQUS"BRIN"
 5360EQUB12:EQUS"DROP":EQUB12:EQUS"LEAV":EQUB11:EQUS"DUMP"
 5370EQUB20:EQUS"PUSH":EQUB20:EQUS"PRES"
 5380EQUB21:EQUS"MEND":EQUB21:EQUS"REPA":EQUB21:EQUS"FIX":EQUB0
 5390\useful objects
 5400EQUB50:EQUS"LAZE":EQUB50:EQUS"RIFL"
 5410EQUB51:EQUS"SLEE":EQUB51:EQUS"BOMB"
 5420EQUB552:EQUS"SPAC":EQUB52:EQUS"SUIT"
 5430EQUB53:EQUS"SPAN"
 5440EQUB54:EQUS"CROW":EQUB54:EQUS"BAR":EQUB0
 5450EQUB55:EQUS"MASK"
 5460\other objects
 5470\other objects
 5480EQUB70:EQUS"RED":EQUB0 \light
 5490EQUB71:EQUS"GREE" \light
 5500EQUB72:EQUS"ALIE"
 5510EQUB73:EQUS"CABL"
 5520EQUB74:EQUS"LIGH"
 5530EQUB75:EQUS"BUTT"
 5540\inventory
 5550EQUB99:EQUS"INVE"
 5560EQUB-1:EQUB-1:EQUB-1
 5570.loc EQUB1
 5580\locations
 5590.l1 EQUS"in the control room":EQUB-1
 5600.l2 EQUS"in the weapons room":EQUB-1
 5610.l3 EQUS"in a corridor":EQUB-1
 5620.l4 EQUS"in a store room":EQUB-1
 5630.l5 EQUS"in a corridor":EQUB-1
 5640.l6 EQUS"in the recreation room":EQUB-1
 5650.l7 EQUS"in a corridor":EQUB-1
 5660.l8 EQUS"in the air lock":EQUB-1
 5670.l9 EQUS"in the shuttle":EQUB-1
 5680.l10 EQUS"in the sleeping quarters":EQUB-1
 5690.l11 EQUS"in a corridor":EQUB-1
 5700.l12 EQUS"standing by a crate in the hold":EQUB-1
 5710.l13 EQUS"crawling through the air duct":EQUB-1
 5720.l14 EQUS"in a corridor":EQUB-1
 5730.l15 EQUS"in the hold":EQUB-1
 5740.l16 EQUS"in the engine room":EQUB-1
 5750.l17 EQUS"crawling through the air duct":EQUB-1
 5760.l18 EQUS"crawling through the air duct":EQUB-1
 5770.l19 EQUS"crawling through the air duct":EQUB-1
 5780.l20 EQUS"crawling through the air duct":EQUB-1
 5790.loc1 EQUWl1:.loc2 EQUWl2:.loc3 EQUWl3:.loc4 EQUWl4:.loc5 EQUWl5
 5800.loc6 EQUWl6:.loc7 EQUWl7:.loc8 EQUWl8:.loc9 EQUWl9:.loc10 EQUWl10
 5810.loc11 EQUWl11:.loc12 EQUWl12:.loc13 EQUWl13:.loc14 EQUWl14:.loc15 EQUWl15
 5820.loc16 EQUWl16:.loc17 EQUWl7:.loc18 EQUWl18:.loc19 EQUWl19:.loc20 EQUWl20
 5830.movdat
 5840EQUD&FFFF03FF:EQUD&FFFFFFF
 5850EQUD&FF03FFFF:EQUD&FFFFFFF
 5860EQUD&02040501:EQUD&FFFFFFF
 5870EQUD&03FFFFFF:EQUD&FFFFFFF
 5880EQUD&FFFF0703:EQUD&FFFFFFF
 5890EQUD&FF07FFFF:EQUD&FFFFFFF
 5900EQUD&06080B05:EQUD&FFFFFFF
 5910EQUD&0709FFFF:EQUD&FFFFFFF
 5920EQUD&08FFFFFF:EQUD&FFFFFFF
 5930EQUD&FF0BFFFF:EQUD&FFFFFFF
 5940EQUD&0A0C0E07:EQUD&FFFFFFF
 5950EQUD&0BFFFFFF:EQUD&FFFFFFF
 5960EQUD&140EFFFF:EQUD&FFFFFFF
 5970EQUD&0D0F100B:EQUD&FFFFFFF
 5980EQUD&0EFFFFFF:EQUD&FFFFFFF
 5990EQUD&FFFFFF0E:EQUD&FFFFFFF
 6000EQUD&131213FF:EQUD&FFFFFFF
 6010EQUD&110D14FF:EQUD&FFFFFFF
 6020EQUD&1114FF11:EQUD&FFFFFFF
 6030EQUD&130DFF12:EQUD&FFFFFFF
 6040\objects
 6050.o1 EQUS"lazer rifle":EQUB-1
 6060.o2 EQUS"sleeping-gas bomb":EQUB-1
 6070.o3 EQUS"space suit":EQUB-1
 6080.o4 EQUS"spanner":EQUB-1
 6090.o5 EQUS"crow-bar":EQUB-1
 6100.o6 EQUS"gas mask":EQUB-1
 6110.o7 EQUS"red button":EQUB-1
 6120.o8 EQUS"green button":EQUB-1
 6130.o9 EQUS"red light":EQUB-1
 6140.o10 EQUS"green light":EQUB-1
 6150.o11 EQUS"hungry alien":EQUB-1
 6160.o12 EQUS"sleeping alien":EQUB-1
 6170.o13 EQUS"loose cable":EQUB-1
 6180.o14 EQUS"fixed cable":EQUB-1
 6190.ob1 EQUWo1:.ob2 EQUWo2:.ob3 EQUWo3:.ob4 EQUWo4:.ob5 EQUWo5
 6200.ob6 EQUWo6:.ob7 EQUWo7:.ob8 EQUWo8:.ob9 EQUWo9:.ob10 EQUWo10
 6210.ob11 EQUWo11:.ob12 EQUWo12:.ob13 EQUWo13:.ob14 EQUWo14
 6220.obsdat EQUD&13000402:EQUD&01010C12:EQUD&000D0008:EQUD&FFFF0010
 6230.obsheld EQUD0:EQUD0:EQUD0:EQUB0:EQUB-1
 6240.actn EQUW0
 6250]
 6260NEXT
 6270OSCLI"SAVE ADV "+STR$~Q%+" "+STR$~P%+" "+STR$~start

#� *****************************
� ADVENTURE SOURCE
#� from an idea in Let's Compute
(� M/coded by Richard Dimond
2#� *****************************
<�
F
�Q% &1000
PCprtaddr=&70:tempa=&72:tempx=&73:tempy=&74:obflag=&75:input=&900
Z�pass=0�2�2
d	P%=Q%
n[OPTpass
x.prt
�STXprtaddr
�STYprtaddr+1
�	LDY#0
�.lp LDA(prtaddr),Y
�CMP#&FF:BEQexit
�JSR&FFEE:INY:JMPlp
�
.exit RTS
�
.prtinput
�	LDY#0
�.lp1 LDAinput,Y
�CMP#&0D:BEQexit
�JSR&FFEE:INY:JMPlp1
�.rep
JSR&FFEE:DEX:BNErep:RTS
.prtloc
LDAloc:ASL A:SEC:SBC#2:TAY
"LDAloc1,Y:TAX:INY
,LDAloc1,Y:TAY:JMPprt
6.prtmess
@ASL A:SEC:SBC#2:TAY
JLDAmess1,Y:TAX:INY
TLDAmess1,Y:TAY:JMPprt
^3.prtdirs LDAloc:ASL A:ASL A:ASL A:SEC:SBC#8:TAY
h(LDAmovdat,Y:STYtempy:CMP#&FF:BEQnotn
r3LDX#n �256:LDY#n �256:JSRprt:.notn LDYtempy:INY
|(LDAmovdat,Y:STYtempy:CMP#&FF:BEQnots
�3LDX#s �256:LDY#s �256:JSRprt:.nots LDYtempy:INY
�(LDAmovdat,Y:STYtempy:CMP#&FF:BEQnote
�3LDX#e �256:LDY#e �256:JSRprt:.note LDYtempy:INY
�(LDAmovdat,Y:STYtempy:CMP#&FF:BEQnotw
�*LDX#w �256:LDY#w �256:JSRprt:.notw RTS
�
.ldobs
�LDA#0:STAobflag:LDY#&FF
�.oblp INY:LDAobsdat,Y
�CMP#&FF:BEQret
�CMPloc:BEQoprt:JMPoblp
�$.oprt:STYobflag:JSRprtob:JMPoblp
�.prtob PHA:TXA:PHA:TYA:PHA
�TYA:ASL A:TAY
FLDAob1,Y:TAX:INY:LDAob1,Y:TAY:JSRprt:JSR&FFE7:LDX#12:LDA#32:JSRrep
LDA#&FF:STAobflag
PLA:TAY:PLA:TAX:PLA:RTS
&P.inv LDA#12:JSR&FFEE:JSR&FFE7:LDA#5:JSRprtmess:JSR&FFE7:LDX#12:LDA#32:JSRrep
0aLDA#0:STAobflag:LDY#0: .ilp LDAobsheld,Y:CMP#&FF:BEQret:CMP#0:BEQnpr:JSRprtob:.npr INY:JMPilp
:".ret LDA#&FF:CMPobflag:BEQret2
D(LDA#15:JSRprtmess:JSR&FFE7:.ret2 RTS
N.fndwd1
X&LDX#1:STXtempx:.wda LDY#0:LDXtempx
b LDAwords1,X:CMP#&FF:BEQfndwd
l;CMPinput,Y:BNEnxwd:INY:LDAinput,Y:CMP#13:BNEfndwd:JMPfd
v3.fd LDA#0:STAactn+1:DEX:LDAwords1,X:STAactn:RTS
�*.nxwd LDXtempx:INX:INX:STXtempx:JMPwda
�'.fndwd LDX#1:STXtempx:.wdlp1 LDY#0 
�'.wdlpa LDAwords,X:CMP#&FF:BEQnotfd 
�CMPinput,Y:BNEnxtwd
�INX:INY:CPY#4:BEQfd1
�JMPwdlpa
�.notfd LDA#0:STAactn:RTS
�= .fd1 LDA#0:STAactn+1:LDXtempx:DEX:LDAwords,X:STAactn:RTS
�9.nxtwd LDXtempx:INX:INX:INX:INX:INX:STXtempx:JMPwdlp1
�.fndwd2
�LDX#1:STXtempx:.wdlp2 LDY#5
�'.wdlpb LDAwords,X:CMP#&FF:BEQnotfd2
�CMPinput,Y:BNEnxtwd2
INX:INY:CPY#9:BEQfd2
LDAinput,Y:CMP#&0D:BEQfd2
JMPwdlpb
 .notfd2 LDA#0:STAactn+1:RTS
*..fd2 LDXtempx:DEX:LDAwords,X:STAactn+1:RTS
4:.nxtwd2 LDXtempx:INX:INX:INX:INX:INX:STXtempx:JMPwdlp2
>.mov LDAloc
H3ASL A:ASL A:ASL A:SEC:SBC#8:CLC:ADCactn:TAX:DEX
R LDAmovdat,X:CMP#&FF:BEQnomov
\
STAloc
f
JMPmvd
p!.nomov LDA#8:JSRprtmess:JMPmm
zX.act LDAactn:CMP#11:BEQta:CMP#12:BEQdr:CMP#20:BEQpu:CMP#21:BEQme:CMP#48:BPLnoacn:RTS
�3.ta JMPtake:.dr JMPdrop:.pu JMPpush:.me JMPmend
�".noacn LDA#9:STAmessflag+1:RTS
��.take LDAactn+1:CMP#50:BEQtak:CMP#51:BEQtak:CMP#52:BEQtak:CMP#53:BEQtak:CMP#54:BEQtak:CMP#55:BEQtak:CMP#0:BNEnotak:JSRprtinput:LDA#16:JMPprtmess
��.tak SEC:SBC#49:STAobflag:TAX:DEX:LDAobsheld,X:CMPobflag:BEQgot:LDAobsdat,X:CMPloc:BNEnothere:LDA#0:STAobsdat,X:LDAobflag:STAobsheld,X:LDA#10:JSRprtmess:RTS
�.got LDA#13:JMPprtmess
�".nothere LDA#14:JSRprtmess:RTS
�.notak LDA#17:JMPprtmess
ʔ.drop LDAactn+1:CMP#50:BEQdro:CMP#51:BEQdro:CMP#52:BEQdro:CMP#53:BEQdro:CMP#54:BEQdro:CMP#55:BEQdro:CMP#0:BNEnodro:JSRprtinput:LDA#16:JMPprtmess
ԇ.dro SEC:SBC#49:STAobflag:TAX:DEX:LDAobsheld,X:CMPobflag:BNEnogot:LDAloc:STAobsdat,X:LDA#0:STAobflag:STAobsheld,X:LDA#11:JMPprtmess
�.nodro LDA#17:JMPprtmess
�.nogot LDA#12:JMPprtmess
�l.push LDA#1:CMPloc:BNEnopu:LDAactn+1:CMP#0:BEQnopus:CMP#75:BEQwhibut:CMP#70:BEQred:CMP#71:BEQgrn:JMPnopu
�L.red LDX#9:LDA#0:STAobsdat,X:DEX:LDA#8:STAobsdat,X:LDA#19:JSRprtmess:RTS
L.grn LDX#8:LDA#0:STAobsdat,X:INX:LDA#8:STAobsdat,X:LDA#19:JSRprtmess:RTS
).whibut JSRprtinput:LDA#18:JMPprtmess
(.nopus JSRprtinput:LDA#16:JMPprtmess
$.nopu LDA#18:JMPprtmess
.�.mend LDA#16:CMPloc:BNEnomend:LDAactn+1:CMP#0:BEQnome:CMP#73:BNEnomend:LDX#3:LDAobsheld,X:CMP#0:BEQnomend:LDX#12:LDA#0:STAobsdat,X:INX:LDA#16:STAobsdat,X:LDA#19:JSRprtmess:RTS
8.nomend LDA#17:JMPprtmess
B'.nome JSRprtinput:LDA#16:JMPprtmess
�
.start
�4LDA#22:JSR&FFEE:LDA#6:JSR&FFEE:JSR&FFE7:JSR&FFE7
�FLDX#12:LDA#32:JSRrep:LDX#title �256:LDY#title �256:JSRprt:JSR&FFE7
�@LDX#12:LDA#32:JSRrep:LDX#15:LDA#&7E:JSRrep:JSR&FFE7:JSR&FFE7
�.m
LDA#1:JSRprtmess

JSRprtloc
JSR&FFE7
 LDA#2:JSRprtmess
*JSRldobs
4JSR&FFE7
>LDA#3:JSRprtmess
HJSRprtdirs
RJSR&FFE7:JSR&FFE7
\.mm
fJSR&FFE7:LDA#4:JSRprtmess
p&LDX#0:.l LDA#0:STAinput,X:DEX:BNEl
zLDA#13:STA&900
�2LDA#0:LDX#buffer �256:LDY#buffer �256:JSR&FFF1
�BCCnoesc:RTS:.noesc
�
JSRfndwd1
�
JSRfndwd2
��LDAactn:CMP#0:BEQnoactn:CMP#99:BEQinven:CMP#8:BMImove:JSRact:JMPmm:.inven JSRinv:JSR&FFE7:LDX#39:LDA#126:JSRrep:JSR&FFE7:JMPm
�B.move:JMPmov:.mvd JSR&FFE7:LDX#39:LDA#126:JSRrep:JSR&FFE7:JMPm
�".noactn LDA#9:JSRprtmess:JMPmm
�@.buffer EQUBinput �256:EQUBinput �256:EQUB&FF:EQUB32:EQUB127
�'.title EQUS"SPACE ADVENTURE":EQUB-1
�\directions
��.n EQUS"North ":EQUB-1:.s EQUS"South ":EQUB-1:.e EQUS"East ":EQUB-1:.w EQUS"West ":EQUB-1:.u EQUS"Up ":EQUB-1:.d EQUS"Down ":EQUB-1
�
\messages
�.m1 EQUS"You are ":EQUB-1
�!.m2 EQUS"You can see ":EQUB-1
� .m3 EQUS"You can go ":EQUB-1
� .m4 EQUS"What next? ":EQUB-1
�&.m5 EQUS"You are carrying:":EQUB-1
�&.m6 EQUS"You wanted to go ":EQUB-1
�#.m7 EQUS"You wanted to ":EQUB-1
,.m8 EQUS"You can't move that way":EQUB-1

 .m9 EQUS" - Do what?":EQUB-1
!.m10 EQUS"You take it":EQUB-1
!.m11 EQUS"You drop it":EQUB-1
((.m12 EQUS"You haven't got it":EQUB-1
2,.m13 EQUS"You've already got it!":EQUB-1
<&.m14 EQUS"It is not here!!":EQUB-1
F$.m15 EQUS"Nothing useful":EQUB-1
P.m16 EQUS" what?":EQUB-1
Z(.m17 EQUS"You can't do that!":EQUB-1
d&.m18 EQUS" - Which button?":EQUB-1
n.m19 EQUS"Ok":EQUB-1
x.m20 EQUS"":EQUB-1
�I.mess1 EQUWm1:.mess2 EQUWm2:.mess3 EQUWm3:.mess4 EQUWm4:.mess5 EQUWm5
�K.mess6 EQUWm6:.mess7 EQUWm7:.mess8 EQUWm8:.mess9 EQUWm9:.mess10 EQUWm10
�S.mess11 EQUWm11:.mess12 EQUWm12:.mess13 EQUWm13:.mess14 EQUWm14:.mess15 EQUWm15
�S.mess16 EQUWm16:.mess17 EQUWm17:.mess18 EQUWm18:.mess19 EQUWm19:.mess20 EQUWm20
�.messflag EQUW0
�\COMMANDS -movements
�p.words1  EQUB1:EQUS"N":EQUB2:EQUS"S":EQUB3:EQUS"E":EQUB4:EQUS"W":EQUB5:EQUS"U":EQUW0:EQUB6:EQUS"D":EQUW&FFFF
�
.words
�n EQUB1:EQUS"NORT":EQUB2:EQUS"SOUT":EQUB3:EQUS"EAST":EQUB4:EQUS"WEST":EQUB5:EQUS"UP":EQUW0:EQUB6:EQUS"DOWN"
�\actions
�>EQUB11:EQUS"TAKE":EQUB11:EQUS"GET":EQUB0:EQUB11:EQUS"BRIN"
�9EQUB12:EQUS"DROP":EQUB12:EQUS"LEAV":EQUB11:EQUS"DUMP"
�'EQUB20:EQUS"PUSH":EQUB20:EQUS"PRES"
>EQUB21:EQUS"MEND":EQUB21:EQUS"REPA":EQUB21:EQUS"FIX":EQUB0
\useful objects
'EQUB50:EQUS"LAZE":EQUB50:EQUS"RIFL"
"'EQUB51:EQUS"SLEE":EQUB51:EQUS"BOMB"
,(EQUB552:EQUS"SPAC":EQUB52:EQUS"SUIT"
6EQUB53:EQUS"SPAN"
@,EQUB54:EQUS"CROW":EQUB54:EQUS"BAR":EQUB0
JEQUB55:EQUS"MASK"
T\other objects
^\other objects
h!EQUB70:EQUS"RED":EQUB0 \light
rEQUB71:EQUS"GREE" \light
|EQUB72:EQUS"ALIE"
�EQUB73:EQUS"CABL"
�EQUB74:EQUS"LIGH"
�EQUB75:EQUS"BUTT"
�\inventory
�EQUB99:EQUS"INVE"
�EQUB-1:EQUB-1:EQUB-1
�.loc EQUB1
�\locations
�(.l1 EQUS"in the control room":EQUB-1
�(.l2 EQUS"in the weapons room":EQUB-1
�".l3 EQUS"in a corridor":EQUB-1
�$.l4 EQUS"in a store room":EQUB-1
�".l5 EQUS"in a corridor":EQUB-1
+.l6 EQUS"in the recreation room":EQUB-1
".l7 EQUS"in a corridor":EQUB-1
$.l8 EQUS"in the air lock":EQUB-1
&#.l9 EQUS"in the shuttle":EQUB-1
0..l10 EQUS"in the sleeping quarters":EQUB-1
:#.l11 EQUS"in a corridor":EQUB-1
D5.l12 EQUS"standing by a crate in the hold":EQUB-1
N3.l13 EQUS"crawling through the air duct":EQUB-1
X#.l14 EQUS"in a corridor":EQUB-1
b!.l15 EQUS"in the hold":EQUB-1
l(.l16 EQUS"in the engine room":EQUB-1
v3.l17 EQUS"crawling through the air duct":EQUB-1
�3.l18 EQUS"crawling through the air duct":EQUB-1
�3.l19 EQUS"crawling through the air duct":EQUB-1
�3.l20 EQUS"crawling through the air duct":EQUB-1
�D.loc1 EQUWl1:.loc2 EQUWl2:.loc3 EQUWl3:.loc4 EQUWl4:.loc5 EQUWl5
�F.loc6 EQUWl6:.loc7 EQUWl7:.loc8 EQUWl8:.loc9 EQUWl9:.loc10 EQUWl10
�N.loc11 EQUWl11:.loc12 EQUWl12:.loc13 EQUWl13:.loc14 EQUWl14:.loc15 EQUWl15
�M.loc16 EQUWl16:.loc17 EQUWl7:.loc18 EQUWl18:.loc19 EQUWl19:.loc20 EQUWl20
�.movdat
�EQUD&FFFF03FF:EQUD&FFFFFFF
�EQUD&FF03FFFF:EQUD&FFFFFFF
�EQUD&02040501:EQUD&FFFFFFF
�EQUD&03FFFFFF:EQUD&FFFFFFF
�EQUD&FFFF0703:EQUD&FFFFFFF
EQUD&FF07FFFF:EQUD&FFFFFFF
EQUD&06080B05:EQUD&FFFFFFF
EQUD&0709FFFF:EQUD&FFFFFFF
 EQUD&08FFFFFF:EQUD&FFFFFFF
*EQUD&FF0BFFFF:EQUD&FFFFFFF
4EQUD&0A0C0E07:EQUD&FFFFFFF
>EQUD&0BFFFFFF:EQUD&FFFFFFF
HEQUD&140EFFFF:EQUD&FFFFFFF
REQUD&0D0F100B:EQUD&FFFFFFF
\EQUD&0EFFFFFF:EQUD&FFFFFFF
fEQUD&FFFFFF0E:EQUD&FFFFFFF
pEQUD&131213FF:EQUD&FFFFFFF
zEQUD&110D14FF:EQUD&FFFFFFF
�EQUD&1114FF11:EQUD&FFFFFFF
�EQUD&130DFF12:EQUD&FFFFFFF
�\objects
� .o1 EQUS"lazer rifle":EQUB-1
�&.o2 EQUS"sleeping-gas bomb":EQUB-1
�.o3 EQUS"space suit":EQUB-1
�.o4 EQUS"spanner":EQUB-1
�.o5 EQUS"crow-bar":EQUB-1
�.o6 EQUS"gas mask":EQUB-1
�.o7 EQUS"red button":EQUB-1
�!.o8 EQUS"green button":EQUB-1
�.o9 EQUS"red light":EQUB-1
�!.o10 EQUS"green light":EQUB-1
".o11 EQUS"hungry alien":EQUB-1
$.o12 EQUS"sleeping alien":EQUB-1
!.o13 EQUS"loose cable":EQUB-1
$!.o14 EQUS"fixed cable":EQUB-1
.?.ob1 EQUWo1:.ob2 EQUWo2:.ob3 EQUWo3:.ob4 EQUWo4:.ob5 EQUWo5
8A.ob6 EQUWo6:.ob7 EQUWo7:.ob8 EQUWo8:.ob9 EQUWo9:.ob10 EQUWo10
B;.ob11 EQUWo11:.ob12 EQUWo12:.ob13 EQUWo13:.ob14 EQUWo14
LC.obsdat EQUD&13000402:EQUD&01010C12:EQUD&000D0008:EQUD&FFFF0010
V+.obsheld EQUD0:EQUD0:EQUD0:EQUB0:EQUB-1
`.actn EQUW0
j]
t�
~*�"SAVE ADV "+�~Q%+" "+�~P%+" "+�~start
�
00000000  0d 00 0a 23 f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...#. **********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000020  2a 2a 2a 0d 00 14 16 f4  20 41 44 56 45 4e 54 55  |***..... ADVENTU|
00000030  52 45 20 53 4f 55 52 43  45 0d 00 1e 23 f4 20 66  |RE SOURCE...#. f|
00000040  72 6f 6d 20 61 6e 20 69  64 65 61 20 69 6e 20 4c  |rom an idea in L|
00000050  65 74 27 73 20 43 6f 6d  70 75 74 65 0d 00 28 1f  |et's Compute..(.|
00000060  f4 20 4d 2f 63 6f 64 65  64 20 62 79 20 52 69 63  |. M/coded by Ric|
00000070  68 61 72 64 20 44 69 6d  6f 6e 64 0d 00 32 23 f4  |hard Dimond..2#.|
00000080  20 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | ***************|
00000090  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 00  |**************..|
000000a0  3c 05 f4 0d 00 46 0d de  51 25 20 26 31 30 30 30  |<....F..Q% &1000|
000000b0  0d 00 50 43 70 72 74 61  64 64 72 3d 26 37 30 3a  |..PCprtaddr=&70:|
000000c0  74 65 6d 70 61 3d 26 37  32 3a 74 65 6d 70 78 3d  |tempa=&72:tempx=|
000000d0  26 37 33 3a 74 65 6d 70  79 3d 26 37 34 3a 6f 62  |&73:tempy=&74:ob|
000000e0  66 6c 61 67 3d 26 37 35  3a 69 6e 70 75 74 3d 26  |flag=&75:input=&|
000000f0  39 30 30 0d 00 5a 0f e3  70 61 73 73 3d 30 b8 32  |900..Z..pass=0.2|
00000100  88 32 0d 00 64 09 50 25  3d 51 25 0d 00 6e 0c 5b  |.2..d.P%=Q%..n.[|
00000110  4f 50 54 70 61 73 73 0d  00 78 08 2e 70 72 74 0d  |OPTpass..x..prt.|
00000120  00 82 0e 53 54 58 70 72  74 61 64 64 72 0d 00 8c  |...STXprtaddr...|
00000130  10 53 54 59 70 72 74 61  64 64 72 2b 31 0d 00 96  |.STYprtaddr+1...|
00000140  09 4c 44 59 23 30 0d 00  a0 16 2e 6c 70 20 4c 44  |.LDY#0.....lp LD|
00000150  41 28 70 72 74 61 64 64  72 29 2c 59 0d 00 aa 13  |A(prtaddr),Y....|
00000160  43 4d 50 23 26 46 46 3a  42 45 51 65 78 69 74 0d  |CMP#&FF:BEQexit.|
00000170  00 b4 16 4a 53 52 26 46  46 45 45 3a 49 4e 59 3a  |...JSR&FFEE:INY:|
00000180  4a 4d 50 6c 70 0d 00 be  0d 2e 65 78 69 74 20 52  |JMPlp.....exit R|
00000190  54 53 0d 00 c8 0d 2e 70  72 74 69 6e 70 75 74 0d  |TS.....prtinput.|
000001a0  00 d2 09 4c 44 59 23 30  0d 00 dc 13 2e 6c 70 31  |...LDY#0.....lp1|
000001b0  20 4c 44 41 69 6e 70 75  74 2c 59 0d 00 e6 13 43  | LDAinput,Y....C|
000001c0  4d 50 23 26 30 44 3a 42  45 51 65 78 69 74 0d 00  |MP#&0D:BEQexit..|
000001d0  f0 17 4a 53 52 26 46 46  45 45 3a 49 4e 59 3a 4a  |..JSR&FFEE:INY:J|
000001e0  4d 50 6c 70 31 0d 00 fa  08 2e 72 65 70 0d 01 04  |MPlp1.....rep...|
000001f0  1b 4a 53 52 26 46 46 45  45 3a 44 45 58 3a 42 4e  |.JSR&FFEE:DEX:BN|
00000200  45 72 65 70 3a 52 54 53  0d 01 0e 0b 2e 70 72 74  |Erep:RTS.....prt|
00000210  6c 6f 63 0d 01 18 1e 4c  44 41 6c 6f 63 3a 41 53  |loc....LDAloc:AS|
00000220  4c 20 41 3a 53 45 43 3a  53 42 43 23 32 3a 54 41  |L A:SEC:SBC#2:TA|
00000230  59 0d 01 22 15 4c 44 41  6c 6f 63 31 2c 59 3a 54  |Y..".LDAloc1,Y:T|
00000240  41 58 3a 49 4e 59 0d 01  2c 18 4c 44 41 6c 6f 63  |AX:INY..,.LDAloc|
00000250  31 2c 59 3a 54 41 59 3a  4a 4d 50 70 72 74 0d 01  |1,Y:TAY:JMPprt..|
00000260  36 0c 2e 70 72 74 6d 65  73 73 0d 01 40 17 41 53  |6..prtmess..@.AS|
00000270  4c 20 41 3a 53 45 43 3a  53 42 43 23 32 3a 54 41  |L A:SEC:SBC#2:TA|
00000280  59 0d 01 4a 16 4c 44 41  6d 65 73 73 31 2c 59 3a  |Y..J.LDAmess1,Y:|
00000290  54 41 58 3a 49 4e 59 0d  01 54 19 4c 44 41 6d 65  |TAX:INY..T.LDAme|
000002a0  73 73 31 2c 59 3a 54 41  59 3a 4a 4d 50 70 72 74  |ss1,Y:TAY:JMPprt|
000002b0  0d 01 5e 33 2e 70 72 74  64 69 72 73 20 4c 44 41  |..^3.prtdirs LDA|
000002c0  6c 6f 63 3a 41 53 4c 20  41 3a 41 53 4c 20 41 3a  |loc:ASL A:ASL A:|
000002d0  41 53 4c 20 41 3a 53 45  43 3a 53 42 43 23 38 3a  |ASL A:SEC:SBC#8:|
000002e0  54 41 59 0d 01 68 28 4c  44 41 6d 6f 76 64 61 74  |TAY..h(LDAmovdat|
000002f0  2c 59 3a 53 54 59 74 65  6d 70 79 3a 43 4d 50 23  |,Y:STYtempy:CMP#|
00000300  26 46 46 3a 42 45 51 6e  6f 74 6e 0d 01 72 33 4c  |&FF:BEQnotn..r3L|
00000310  44 58 23 6e 20 83 32 35  36 3a 4c 44 59 23 6e 20  |DX#n .256:LDY#n |
00000320  81 32 35 36 3a 4a 53 52  70 72 74 3a 2e 6e 6f 74  |.256:JSRprt:.not|
00000330  6e 20 4c 44 59 74 65 6d  70 79 3a 49 4e 59 0d 01  |n LDYtempy:INY..|
00000340  7c 28 4c 44 41 6d 6f 76  64 61 74 2c 59 3a 53 54  ||(LDAmovdat,Y:ST|
00000350  59 74 65 6d 70 79 3a 43  4d 50 23 26 46 46 3a 42  |Ytempy:CMP#&FF:B|
00000360  45 51 6e 6f 74 73 0d 01  86 33 4c 44 58 23 73 20  |EQnots...3LDX#s |
00000370  83 32 35 36 3a 4c 44 59  23 73 20 81 32 35 36 3a  |.256:LDY#s .256:|
00000380  4a 53 52 70 72 74 3a 2e  6e 6f 74 73 20 4c 44 59  |JSRprt:.nots LDY|
00000390  74 65 6d 70 79 3a 49 4e  59 0d 01 90 28 4c 44 41  |tempy:INY...(LDA|
000003a0  6d 6f 76 64 61 74 2c 59  3a 53 54 59 74 65 6d 70  |movdat,Y:STYtemp|
000003b0  79 3a 43 4d 50 23 26 46  46 3a 42 45 51 6e 6f 74  |y:CMP#&FF:BEQnot|
000003c0  65 0d 01 9a 33 4c 44 58  23 65 20 83 32 35 36 3a  |e...3LDX#e .256:|
000003d0  4c 44 59 23 65 20 81 32  35 36 3a 4a 53 52 70 72  |LDY#e .256:JSRpr|
000003e0  74 3a 2e 6e 6f 74 65 20  4c 44 59 74 65 6d 70 79  |t:.note LDYtempy|
000003f0  3a 49 4e 59 0d 01 a4 28  4c 44 41 6d 6f 76 64 61  |:INY...(LDAmovda|
00000400  74 2c 59 3a 53 54 59 74  65 6d 70 79 3a 43 4d 50  |t,Y:STYtempy:CMP|
00000410  23 26 46 46 3a 42 45 51  6e 6f 74 77 0d 01 ae 2a  |#&FF:BEQnotw...*|
00000420  4c 44 58 23 77 20 83 32  35 36 3a 4c 44 59 23 77  |LDX#w .256:LDY#w|
00000430  20 81 32 35 36 3a 4a 53  52 70 72 74 3a 2e 6e 6f  | .256:JSRprt:.no|
00000440  74 77 20 52 54 53 0d 01  b8 0a 2e 6c 64 6f 62 73  |tw RTS.....ldobs|
00000450  0d 01 c2 1b 4c 44 41 23  30 3a 53 54 41 6f 62 66  |....LDA#0:STAobf|
00000460  6c 61 67 3a 4c 44 59 23  26 46 46 0d 01 cc 19 2e  |lag:LDY#&FF.....|
00000470  6f 62 6c 70 20 49 4e 59  3a 4c 44 41 6f 62 73 64  |oblp INY:LDAobsd|
00000480  61 74 2c 59 0d 01 d6 12  43 4d 50 23 26 46 46 3a  |at,Y....CMP#&FF:|
00000490  42 45 51 72 65 74 0d 01  e0 1a 43 4d 50 6c 6f 63  |BEQret....CMPloc|
000004a0  3a 42 45 51 6f 70 72 74  3a 4a 4d 50 6f 62 6c 70  |:BEQoprt:JMPoblp|
000004b0  0d 01 ea 24 2e 6f 70 72  74 3a 53 54 59 6f 62 66  |...$.oprt:STYobf|
000004c0  6c 61 67 3a 4a 53 52 70  72 74 6f 62 3a 4a 4d 50  |lag:JSRprtob:JMP|
000004d0  6f 62 6c 70 0d 01 f4 1e  2e 70 72 74 6f 62 20 50  |oblp.....prtob P|
000004e0  48 41 3a 54 58 41 3a 50  48 41 3a 54 59 41 3a 50  |HA:TXA:PHA:TYA:P|
000004f0  48 41 0d 01 fe 11 54 59  41 3a 41 53 4c 20 41 3a  |HA....TYA:ASL A:|
00000500  54 41 59 0d 02 08 46 4c  44 41 6f 62 31 2c 59 3a  |TAY...FLDAob1,Y:|
00000510  54 41 58 3a 49 4e 59 3a  4c 44 41 6f 62 31 2c 59  |TAX:INY:LDAob1,Y|
00000520  3a 54 41 59 3a 4a 53 52  70 72 74 3a 4a 53 52 26  |:TAY:JSRprt:JSR&|
00000530  46 46 45 37 3a 4c 44 58  23 31 32 3a 4c 44 41 23  |FFE7:LDX#12:LDA#|
00000540  33 32 3a 4a 53 52 72 65  70 0d 02 12 15 4c 44 41  |32:JSRrep....LDA|
00000550  23 26 46 46 3a 53 54 41  6f 62 66 6c 61 67 0d 02  |#&FF:STAobflag..|
00000560  1c 1b 50 4c 41 3a 54 41  59 3a 50 4c 41 3a 54 41  |..PLA:TAY:PLA:TA|
00000570  58 3a 50 4c 41 3a 52 54  53 0d 02 26 50 2e 69 6e  |X:PLA:RTS..&P.in|
00000580  76 20 4c 44 41 23 31 32  3a 4a 53 52 26 46 46 45  |v LDA#12:JSR&FFE|
00000590  45 3a 4a 53 52 26 46 46  45 37 3a 4c 44 41 23 35  |E:JSR&FFE7:LDA#5|
000005a0  3a 4a 53 52 70 72 74 6d  65 73 73 3a 4a 53 52 26  |:JSRprtmess:JSR&|
000005b0  46 46 45 37 3a 4c 44 58  23 31 32 3a 4c 44 41 23  |FFE7:LDX#12:LDA#|
000005c0  33 32 3a 4a 53 52 72 65  70 0d 02 30 61 4c 44 41  |32:JSRrep..0aLDA|
000005d0  23 30 3a 53 54 41 6f 62  66 6c 61 67 3a 4c 44 59  |#0:STAobflag:LDY|
000005e0  23 30 3a 20 2e 69 6c 70  20 4c 44 41 6f 62 73 68  |#0: .ilp LDAobsh|
000005f0  65 6c 64 2c 59 3a 43 4d  50 23 26 46 46 3a 42 45  |eld,Y:CMP#&FF:BE|
00000600  51 72 65 74 3a 43 4d 50  23 30 3a 42 45 51 6e 70  |Qret:CMP#0:BEQnp|
00000610  72 3a 4a 53 52 70 72 74  6f 62 3a 2e 6e 70 72 20  |r:JSRprtob:.npr |
00000620  49 4e 59 3a 4a 4d 50 69  6c 70 0d 02 3a 22 2e 72  |INY:JMPilp..:".r|
00000630  65 74 20 4c 44 41 23 26  46 46 3a 43 4d 50 6f 62  |et LDA#&FF:CMPob|
00000640  66 6c 61 67 3a 42 45 51  72 65 74 32 0d 02 44 28  |flag:BEQret2..D(|
00000650  4c 44 41 23 31 35 3a 4a  53 52 70 72 74 6d 65 73  |LDA#15:JSRprtmes|
00000660  73 3a 4a 53 52 26 46 46  45 37 3a 2e 72 65 74 32  |s:JSR&FFE7:.ret2|
00000670  20 52 54 53 0d 02 4e 0b  2e 66 6e 64 77 64 31 0d  | RTS..N..fndwd1.|
00000680  02 58 26 4c 44 58 23 31  3a 53 54 58 74 65 6d 70  |.X&LDX#1:STXtemp|
00000690  78 3a 2e 77 64 61 20 4c  44 59 23 30 3a 4c 44 58  |x:.wda LDY#0:LDX|
000006a0  74 65 6d 70 78 0d 02 62  20 4c 44 41 77 6f 72 64  |tempx..b LDAword|
000006b0  73 31 2c 58 3a 43 4d 50  23 26 46 46 3a 42 45 51  |s1,X:CMP#&FF:BEQ|
000006c0  66 6e 64 77 64 0d 02 6c  3b 43 4d 50 69 6e 70 75  |fndwd..l;CMPinpu|
000006d0  74 2c 59 3a 42 4e 45 6e  78 77 64 3a 49 4e 59 3a  |t,Y:BNEnxwd:INY:|
000006e0  4c 44 41 69 6e 70 75 74  2c 59 3a 43 4d 50 23 31  |LDAinput,Y:CMP#1|
000006f0  33 3a 42 4e 45 66 6e 64  77 64 3a 4a 4d 50 66 64  |3:BNEfndwd:JMPfd|
00000700  0d 02 76 33 2e 66 64 20  4c 44 41 23 30 3a 53 54  |..v3.fd LDA#0:ST|
00000710  41 61 63 74 6e 2b 31 3a  44 45 58 3a 4c 44 41 77  |Aactn+1:DEX:LDAw|
00000720  6f 72 64 73 31 2c 58 3a  53 54 41 61 63 74 6e 3a  |ords1,X:STAactn:|
00000730  52 54 53 0d 02 80 2a 2e  6e 78 77 64 20 4c 44 58  |RTS...*.nxwd LDX|
00000740  74 65 6d 70 78 3a 49 4e  58 3a 49 4e 58 3a 53 54  |tempx:INX:INX:ST|
00000750  58 74 65 6d 70 78 3a 4a  4d 50 77 64 61 0d 02 8a  |Xtempx:JMPwda...|
00000760  27 2e 66 6e 64 77 64 20  4c 44 58 23 31 3a 53 54  |'.fndwd LDX#1:ST|
00000770  58 74 65 6d 70 78 3a 2e  77 64 6c 70 31 20 4c 44  |Xtempx:.wdlp1 LD|
00000780  59 23 30 20 0d 02 94 27  2e 77 64 6c 70 61 20 4c  |Y#0 ...'.wdlpa L|
00000790  44 41 77 6f 72 64 73 2c  58 3a 43 4d 50 23 26 46  |DAwords,X:CMP#&F|
000007a0  46 3a 42 45 51 6e 6f 74  66 64 20 0d 02 9e 17 43  |F:BEQnotfd ....C|
000007b0  4d 50 69 6e 70 75 74 2c  59 3a 42 4e 45 6e 78 74  |MPinput,Y:BNEnxt|
000007c0  77 64 0d 02 a8 18 49 4e  58 3a 49 4e 59 3a 43 50  |wd....INX:INY:CP|
000007d0  59 23 34 3a 42 45 51 66  64 31 0d 02 b2 0c 4a 4d  |Y#4:BEQfd1....JM|
000007e0  50 77 64 6c 70 61 0d 02  bc 1c 2e 6e 6f 74 66 64  |Pwdlpa.....notfd|
000007f0  20 4c 44 41 23 30 3a 53  54 41 61 63 74 6e 3a 52  | LDA#0:STAactn:R|
00000800  54 53 0d 02 c6 3d 20 2e  66 64 31 20 4c 44 41 23  |TS...= .fd1 LDA#|
00000810  30 3a 53 54 41 61 63 74  6e 2b 31 3a 4c 44 58 74  |0:STAactn+1:LDXt|
00000820  65 6d 70 78 3a 44 45 58  3a 4c 44 41 77 6f 72 64  |empx:DEX:LDAword|
00000830  73 2c 58 3a 53 54 41 61  63 74 6e 3a 52 54 53 0d  |s,X:STAactn:RTS.|
00000840  02 d0 39 2e 6e 78 74 77  64 20 4c 44 58 74 65 6d  |..9.nxtwd LDXtem|
00000850  70 78 3a 49 4e 58 3a 49  4e 58 3a 49 4e 58 3a 49  |px:INX:INX:INX:I|
00000860  4e 58 3a 49 4e 58 3a 53  54 58 74 65 6d 70 78 3a  |NX:INX:STXtempx:|
00000870  4a 4d 50 77 64 6c 70 31  0d 02 da 0b 2e 66 6e 64  |JMPwdlp1.....fnd|
00000880  77 64 32 0d 02 e4 1f 4c  44 58 23 31 3a 53 54 58  |wd2....LDX#1:STX|
00000890  74 65 6d 70 78 3a 2e 77  64 6c 70 32 20 4c 44 59  |tempx:.wdlp2 LDY|
000008a0  23 35 0d 02 ee 27 2e 77  64 6c 70 62 20 4c 44 41  |#5...'.wdlpb LDA|
000008b0  77 6f 72 64 73 2c 58 3a  43 4d 50 23 26 46 46 3a  |words,X:CMP#&FF:|
000008c0  42 45 51 6e 6f 74 66 64  32 0d 02 f8 18 43 4d 50  |BEQnotfd2....CMP|
000008d0  69 6e 70 75 74 2c 59 3a  42 4e 45 6e 78 74 77 64  |input,Y:BNEnxtwd|
000008e0  32 0d 03 02 18 49 4e 58  3a 49 4e 59 3a 43 50 59  |2....INX:INY:CPY|
000008f0  23 39 3a 42 45 51 66 64  32 0d 03 0c 1d 4c 44 41  |#9:BEQfd2....LDA|
00000900  69 6e 70 75 74 2c 59 3a  43 4d 50 23 26 30 44 3a  |input,Y:CMP#&0D:|
00000910  42 45 51 66 64 32 0d 03  16 0c 4a 4d 50 77 64 6c  |BEQfd2....JMPwdl|
00000920  70 62 0d 03 20 1f 2e 6e  6f 74 66 64 32 20 4c 44  |pb.. ..notfd2 LD|
00000930  41 23 30 3a 53 54 41 61  63 74 6e 2b 31 3a 52 54  |A#0:STAactn+1:RT|
00000940  53 0d 03 2a 2e 2e 66 64  32 20 4c 44 58 74 65 6d  |S..*..fd2 LDXtem|
00000950  70 78 3a 44 45 58 3a 4c  44 41 77 6f 72 64 73 2c  |px:DEX:LDAwords,|
00000960  58 3a 53 54 41 61 63 74  6e 2b 31 3a 52 54 53 0d  |X:STAactn+1:RTS.|
00000970  03 34 3a 2e 6e 78 74 77  64 32 20 4c 44 58 74 65  |.4:.nxtwd2 LDXte|
00000980  6d 70 78 3a 49 4e 58 3a  49 4e 58 3a 49 4e 58 3a  |mpx:INX:INX:INX:|
00000990  49 4e 58 3a 49 4e 58 3a  53 54 58 74 65 6d 70 78  |INX:INX:STXtempx|
000009a0  3a 4a 4d 50 77 64 6c 70  32 0d 03 3e 0f 2e 6d 6f  |:JMPwdlp2..>..mo|
000009b0  76 20 4c 44 41 6c 6f 63  0d 03 48 33 41 53 4c 20  |v LDAloc..H3ASL |
000009c0  41 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 53 45  |A:ASL A:ASL A:SE|
000009d0  43 3a 53 42 43 23 38 3a  43 4c 43 3a 41 44 43 61  |C:SBC#8:CLC:ADCa|
000009e0  63 74 6e 3a 54 41 58 3a  44 45 58 0d 03 52 20 4c  |ctn:TAX:DEX..R L|
000009f0  44 41 6d 6f 76 64 61 74  2c 58 3a 43 4d 50 23 26  |DAmovdat,X:CMP#&|
00000a00  46 46 3a 42 45 51 6e 6f  6d 6f 76 0d 03 5c 0a 53  |FF:BEQnomov..\.S|
00000a10  54 41 6c 6f 63 0d 03 66  0a 4a 4d 50 6d 76 64 0d  |TAloc..f.JMPmvd.|
00000a20  03 70 21 2e 6e 6f 6d 6f  76 20 4c 44 41 23 38 3a  |.p!.nomov LDA#8:|
00000a30  4a 53 52 70 72 74 6d 65  73 73 3a 4a 4d 50 6d 6d  |JSRprtmess:JMPmm|
00000a40  0d 03 7a 58 2e 61 63 74  20 4c 44 41 61 63 74 6e  |..zX.act LDAactn|
00000a50  3a 43 4d 50 23 31 31 3a  42 45 51 74 61 3a 43 4d  |:CMP#11:BEQta:CM|
00000a60  50 23 31 32 3a 42 45 51  64 72 3a 43 4d 50 23 32  |P#12:BEQdr:CMP#2|
00000a70  30 3a 42 45 51 70 75 3a  43 4d 50 23 32 31 3a 42  |0:BEQpu:CMP#21:B|
00000a80  45 51 6d 65 3a 43 4d 50  23 34 38 3a 42 50 4c 6e  |EQme:CMP#48:BPLn|
00000a90  6f 61 63 6e 3a 52 54 53  0d 03 84 33 2e 74 61 20  |oacn:RTS...3.ta |
00000aa0  4a 4d 50 74 61 6b 65 3a  2e 64 72 20 4a 4d 50 64  |JMPtake:.dr JMPd|
00000ab0  72 6f 70 3a 2e 70 75 20  4a 4d 50 70 75 73 68 3a  |rop:.pu JMPpush:|
00000ac0  2e 6d 65 20 4a 4d 50 6d  65 6e 64 0d 03 8e 22 2e  |.me JMPmend...".|
00000ad0  6e 6f 61 63 6e 20 4c 44  41 23 39 3a 53 54 41 6d  |noacn LDA#9:STAm|
00000ae0  65 73 73 66 6c 61 67 2b  31 3a 52 54 53 0d 03 98  |essflag+1:RTS...|
00000af0  94 2e 74 61 6b 65 20 4c  44 41 61 63 74 6e 2b 31  |..take LDAactn+1|
00000b00  3a 43 4d 50 23 35 30 3a  42 45 51 74 61 6b 3a 43  |:CMP#50:BEQtak:C|
00000b10  4d 50 23 35 31 3a 42 45  51 74 61 6b 3a 43 4d 50  |MP#51:BEQtak:CMP|
00000b20  23 35 32 3a 42 45 51 74  61 6b 3a 43 4d 50 23 35  |#52:BEQtak:CMP#5|
00000b30  33 3a 42 45 51 74 61 6b  3a 43 4d 50 23 35 34 3a  |3:BEQtak:CMP#54:|
00000b40  42 45 51 74 61 6b 3a 43  4d 50 23 35 35 3a 42 45  |BEQtak:CMP#55:BE|
00000b50  51 74 61 6b 3a 43 4d 50  23 30 3a 42 4e 45 6e 6f  |Qtak:CMP#0:BNEno|
00000b60  74 61 6b 3a 4a 53 52 70  72 74 69 6e 70 75 74 3a  |tak:JSRprtinput:|
00000b70  4c 44 41 23 31 36 3a 4a  4d 50 70 72 74 6d 65 73  |LDA#16:JMPprtmes|
00000b80  73 0d 03 a2 a0 2e 74 61  6b 20 53 45 43 3a 53 42  |s.....tak SEC:SB|
00000b90  43 23 34 39 3a 53 54 41  6f 62 66 6c 61 67 3a 54  |C#49:STAobflag:T|
00000ba0  41 58 3a 44 45 58 3a 4c  44 41 6f 62 73 68 65 6c  |AX:DEX:LDAobshel|
00000bb0  64 2c 58 3a 43 4d 50 6f  62 66 6c 61 67 3a 42 45  |d,X:CMPobflag:BE|
00000bc0  51 67 6f 74 3a 4c 44 41  6f 62 73 64 61 74 2c 58  |Qgot:LDAobsdat,X|
00000bd0  3a 43 4d 50 6c 6f 63 3a  42 4e 45 6e 6f 74 68 65  |:CMPloc:BNEnothe|
00000be0  72 65 3a 4c 44 41 23 30  3a 53 54 41 6f 62 73 64  |re:LDA#0:STAobsd|
00000bf0  61 74 2c 58 3a 4c 44 41  6f 62 66 6c 61 67 3a 53  |at,X:LDAobflag:S|
00000c00  54 41 6f 62 73 68 65 6c  64 2c 58 3a 4c 44 41 23  |TAobsheld,X:LDA#|
00000c10  31 30 3a 4a 53 52 70 72  74 6d 65 73 73 3a 52 54  |10:JSRprtmess:RT|
00000c20  53 0d 03 ac 1a 2e 67 6f  74 20 4c 44 41 23 31 33  |S.....got LDA#13|
00000c30  3a 4a 4d 50 70 72 74 6d  65 73 73 0d 03 b6 22 2e  |:JMPprtmess...".|
00000c40  6e 6f 74 68 65 72 65 20  4c 44 41 23 31 34 3a 4a  |nothere LDA#14:J|
00000c50  53 52 70 72 74 6d 65 73  73 3a 52 54 53 0d 03 c0  |SRprtmess:RTS...|
00000c60  1c 2e 6e 6f 74 61 6b 20  4c 44 41 23 31 37 3a 4a  |..notak LDA#17:J|
00000c70  4d 50 70 72 74 6d 65 73  73 0d 03 ca 94 2e 64 72  |MPprtmess.....dr|
00000c80  6f 70 20 4c 44 41 61 63  74 6e 2b 31 3a 43 4d 50  |op LDAactn+1:CMP|
00000c90  23 35 30 3a 42 45 51 64  72 6f 3a 43 4d 50 23 35  |#50:BEQdro:CMP#5|
00000ca0  31 3a 42 45 51 64 72 6f  3a 43 4d 50 23 35 32 3a  |1:BEQdro:CMP#52:|
00000cb0  42 45 51 64 72 6f 3a 43  4d 50 23 35 33 3a 42 45  |BEQdro:CMP#53:BE|
00000cc0  51 64 72 6f 3a 43 4d 50  23 35 34 3a 42 45 51 64  |Qdro:CMP#54:BEQd|
00000cd0  72 6f 3a 43 4d 50 23 35  35 3a 42 45 51 64 72 6f  |ro:CMP#55:BEQdro|
00000ce0  3a 43 4d 50 23 30 3a 42  4e 45 6e 6f 64 72 6f 3a  |:CMP#0:BNEnodro:|
00000cf0  4a 53 52 70 72 74 69 6e  70 75 74 3a 4c 44 41 23  |JSRprtinput:LDA#|
00000d00  31 36 3a 4a 4d 50 70 72  74 6d 65 73 73 0d 03 d4  |16:JMPprtmess...|
00000d10  87 2e 64 72 6f 20 53 45  43 3a 53 42 43 23 34 39  |..dro SEC:SBC#49|
00000d20  3a 53 54 41 6f 62 66 6c  61 67 3a 54 41 58 3a 44  |:STAobflag:TAX:D|
00000d30  45 58 3a 4c 44 41 6f 62  73 68 65 6c 64 2c 58 3a  |EX:LDAobsheld,X:|
00000d40  43 4d 50 6f 62 66 6c 61  67 3a 42 4e 45 6e 6f 67  |CMPobflag:BNEnog|
00000d50  6f 74 3a 4c 44 41 6c 6f  63 3a 53 54 41 6f 62 73  |ot:LDAloc:STAobs|
00000d60  64 61 74 2c 58 3a 4c 44  41 23 30 3a 53 54 41 6f  |dat,X:LDA#0:STAo|
00000d70  62 66 6c 61 67 3a 53 54  41 6f 62 73 68 65 6c 64  |bflag:STAobsheld|
00000d80  2c 58 3a 4c 44 41 23 31  31 3a 4a 4d 50 70 72 74  |,X:LDA#11:JMPprt|
00000d90  6d 65 73 73 0d 03 de 1c  2e 6e 6f 64 72 6f 20 4c  |mess.....nodro L|
00000da0  44 41 23 31 37 3a 4a 4d  50 70 72 74 6d 65 73 73  |DA#17:JMPprtmess|
00000db0  0d 03 e8 1c 2e 6e 6f 67  6f 74 20 4c 44 41 23 31  |.....nogot LDA#1|
00000dc0  32 3a 4a 4d 50 70 72 74  6d 65 73 73 0d 03 f2 6c  |2:JMPprtmess...l|
00000dd0  2e 70 75 73 68 20 4c 44  41 23 31 3a 43 4d 50 6c  |.push LDA#1:CMPl|
00000de0  6f 63 3a 42 4e 45 6e 6f  70 75 3a 4c 44 41 61 63  |oc:BNEnopu:LDAac|
00000df0  74 6e 2b 31 3a 43 4d 50  23 30 3a 42 45 51 6e 6f  |tn+1:CMP#0:BEQno|
00000e00  70 75 73 3a 43 4d 50 23  37 35 3a 42 45 51 77 68  |pus:CMP#75:BEQwh|
00000e10  69 62 75 74 3a 43 4d 50  23 37 30 3a 42 45 51 72  |ibut:CMP#70:BEQr|
00000e20  65 64 3a 43 4d 50 23 37  31 3a 42 45 51 67 72 6e  |ed:CMP#71:BEQgrn|
00000e30  3a 4a 4d 50 6e 6f 70 75  0d 03 fc 4c 2e 72 65 64  |:JMPnopu...L.red|
00000e40  20 4c 44 58 23 39 3a 4c  44 41 23 30 3a 53 54 41  | LDX#9:LDA#0:STA|
00000e50  6f 62 73 64 61 74 2c 58  3a 44 45 58 3a 4c 44 41  |obsdat,X:DEX:LDA|
00000e60  23 38 3a 53 54 41 6f 62  73 64 61 74 2c 58 3a 4c  |#8:STAobsdat,X:L|
00000e70  44 41 23 31 39 3a 4a 53  52 70 72 74 6d 65 73 73  |DA#19:JSRprtmess|
00000e80  3a 52 54 53 0d 04 06 4c  2e 67 72 6e 20 4c 44 58  |:RTS...L.grn LDX|
00000e90  23 38 3a 4c 44 41 23 30  3a 53 54 41 6f 62 73 64  |#8:LDA#0:STAobsd|
00000ea0  61 74 2c 58 3a 49 4e 58  3a 4c 44 41 23 38 3a 53  |at,X:INX:LDA#8:S|
00000eb0  54 41 6f 62 73 64 61 74  2c 58 3a 4c 44 41 23 31  |TAobsdat,X:LDA#1|
00000ec0  39 3a 4a 53 52 70 72 74  6d 65 73 73 3a 52 54 53  |9:JSRprtmess:RTS|
00000ed0  0d 04 10 29 2e 77 68 69  62 75 74 20 4a 53 52 70  |...).whibut JSRp|
00000ee0  72 74 69 6e 70 75 74 3a  4c 44 41 23 31 38 3a 4a  |rtinput:LDA#18:J|
00000ef0  4d 50 70 72 74 6d 65 73  73 0d 04 1a 28 2e 6e 6f  |MPprtmess...(.no|
00000f00  70 75 73 20 4a 53 52 70  72 74 69 6e 70 75 74 3a  |pus JSRprtinput:|
00000f10  4c 44 41 23 31 36 3a 4a  4d 50 70 72 74 6d 65 73  |LDA#16:JMPprtmes|
00000f20  73 0d 04 24 1b 2e 6e 6f  70 75 20 4c 44 41 23 31  |s..$..nopu LDA#1|
00000f30  38 3a 4a 4d 50 70 72 74  6d 65 73 73 0d 04 2e b3  |8:JMPprtmess....|
00000f40  2e 6d 65 6e 64 20 4c 44  41 23 31 36 3a 43 4d 50  |.mend LDA#16:CMP|
00000f50  6c 6f 63 3a 42 4e 45 6e  6f 6d 65 6e 64 3a 4c 44  |loc:BNEnomend:LD|
00000f60  41 61 63 74 6e 2b 31 3a  43 4d 50 23 30 3a 42 45  |Aactn+1:CMP#0:BE|
00000f70  51 6e 6f 6d 65 3a 43 4d  50 23 37 33 3a 42 4e 45  |Qnome:CMP#73:BNE|
00000f80  6e 6f 6d 65 6e 64 3a 4c  44 58 23 33 3a 4c 44 41  |nomend:LDX#3:LDA|
00000f90  6f 62 73 68 65 6c 64 2c  58 3a 43 4d 50 23 30 3a  |obsheld,X:CMP#0:|
00000fa0  42 45 51 6e 6f 6d 65 6e  64 3a 4c 44 58 23 31 32  |BEQnomend:LDX#12|
00000fb0  3a 4c 44 41 23 30 3a 53  54 41 6f 62 73 64 61 74  |:LDA#0:STAobsdat|
00000fc0  2c 58 3a 49 4e 58 3a 4c  44 41 23 31 36 3a 53 54  |,X:INX:LDA#16:ST|
00000fd0  41 6f 62 73 64 61 74 2c  58 3a 4c 44 41 23 31 39  |Aobsdat,X:LDA#19|
00000fe0  3a 4a 53 52 70 72 74 6d  65 73 73 3a 52 54 53 0d  |:JSRprtmess:RTS.|
00000ff0  04 38 1d 2e 6e 6f 6d 65  6e 64 20 4c 44 41 23 31  |.8..nomend LDA#1|
00001000  37 3a 4a 4d 50 70 72 74  6d 65 73 73 0d 04 42 27  |7:JMPprtmess..B'|
00001010  2e 6e 6f 6d 65 20 4a 53  52 70 72 74 69 6e 70 75  |.nome JSRprtinpu|
00001020  74 3a 4c 44 41 23 31 36  3a 4a 4d 50 70 72 74 6d  |t:LDA#16:JMPprtm|
00001030  65 73 73 0d 07 d0 0a 2e  73 74 61 72 74 0d 07 da  |ess.....start...|
00001040  34 4c 44 41 23 32 32 3a  4a 53 52 26 46 46 45 45  |4LDA#22:JSR&FFEE|
00001050  3a 4c 44 41 23 36 3a 4a  53 52 26 46 46 45 45 3a  |:LDA#6:JSR&FFEE:|
00001060  4a 53 52 26 46 46 45 37  3a 4a 53 52 26 46 46 45  |JSR&FFE7:JSR&FFE|
00001070  37 0d 07 e4 46 4c 44 58  23 31 32 3a 4c 44 41 23  |7...FLDX#12:LDA#|
00001080  33 32 3a 4a 53 52 72 65  70 3a 4c 44 58 23 74 69  |32:JSRrep:LDX#ti|
00001090  74 6c 65 20 83 32 35 36  3a 4c 44 59 23 74 69 74  |tle .256:LDY#tit|
000010a0  6c 65 20 81 32 35 36 3a  4a 53 52 70 72 74 3a 4a  |le .256:JSRprt:J|
000010b0  53 52 26 46 46 45 37 0d  07 ee 40 4c 44 58 23 31  |SR&FFE7...@LDX#1|
000010c0  32 3a 4c 44 41 23 33 32  3a 4a 53 52 72 65 70 3a  |2:LDA#32:JSRrep:|
000010d0  4c 44 58 23 31 35 3a 4c  44 41 23 26 37 45 3a 4a  |LDX#15:LDA#&7E:J|
000010e0  53 52 72 65 70 3a 4a 53  52 26 46 46 45 37 3a 4a  |SRrep:JSR&FFE7:J|
000010f0  53 52 26 46 46 45 37 0d  07 f8 06 2e 6d 0d 08 02  |SR&FFE7.....m...|
00001100  14 4c 44 41 23 31 3a 4a  53 52 70 72 74 6d 65 73  |.LDA#1:JSRprtmes|
00001110  73 0d 08 0c 0d 4a 53 52  70 72 74 6c 6f 63 0d 08  |s....JSRprtloc..|
00001120  16 0c 4a 53 52 26 46 46  45 37 0d 08 20 14 4c 44  |..JSR&FFE7.. .LD|
00001130  41 23 32 3a 4a 53 52 70  72 74 6d 65 73 73 0d 08  |A#2:JSRprtmess..|
00001140  2a 0c 4a 53 52 6c 64 6f  62 73 0d 08 34 0c 4a 53  |*.JSRldobs..4.JS|
00001150  52 26 46 46 45 37 0d 08  3e 14 4c 44 41 23 33 3a  |R&FFE7..>.LDA#3:|
00001160  4a 53 52 70 72 74 6d 65  73 73 0d 08 48 0e 4a 53  |JSRprtmess..H.JS|
00001170  52 70 72 74 64 69 72 73  0d 08 52 15 4a 53 52 26  |Rprtdirs..R.JSR&|
00001180  46 46 45 37 3a 4a 53 52  26 46 46 45 37 0d 08 5c  |FFE7:JSR&FFE7..\|
00001190  07 2e 6d 6d 0d 08 66 1d  4a 53 52 26 46 46 45 37  |..mm..f.JSR&FFE7|
000011a0  3a 4c 44 41 23 34 3a 4a  53 52 70 72 74 6d 65 73  |:LDA#4:JSRprtmes|
000011b0  73 0d 08 70 26 4c 44 58  23 30 3a 2e 6c 20 4c 44  |s..p&LDX#0:.l LD|
000011c0  41 23 30 3a 53 54 41 69  6e 70 75 74 2c 58 3a 44  |A#0:STAinput,X:D|
000011d0  45 58 3a 42 4e 45 6c 0d  08 7a 12 4c 44 41 23 31  |EX:BNEl..z.LDA#1|
000011e0  33 3a 53 54 41 26 39 30  30 0d 08 84 32 4c 44 41  |3:STA&900...2LDA|
000011f0  23 30 3a 4c 44 58 23 62  75 66 66 65 72 20 83 32  |#0:LDX#buffer .2|
00001200  35 36 3a 4c 44 59 23 62  75 66 66 65 72 20 81 32  |56:LDY#buffer .2|
00001210  35 36 3a 4a 53 52 26 46  46 46 31 0d 08 8e 17 42  |56:JSR&FFF1....B|
00001220  43 43 6e 6f 65 73 63 3a  52 54 53 3a 2e 6e 6f 65  |CCnoesc:RTS:.noe|
00001230  73 63 0d 08 98 0d 4a 53  52 66 6e 64 77 64 31 0d  |sc....JSRfndwd1.|
00001240  08 a2 0d 4a 53 52 66 6e  64 77 64 32 0d 08 ac 81  |...JSRfndwd2....|
00001250  4c 44 41 61 63 74 6e 3a  43 4d 50 23 30 3a 42 45  |LDAactn:CMP#0:BE|
00001260  51 6e 6f 61 63 74 6e 3a  43 4d 50 23 39 39 3a 42  |Qnoactn:CMP#99:B|
00001270  45 51 69 6e 76 65 6e 3a  43 4d 50 23 38 3a 42 4d  |EQinven:CMP#8:BM|
00001280  49 6d 6f 76 65 3a 4a 53  52 61 63 74 3a 4a 4d 50  |Imove:JSRact:JMP|
00001290  6d 6d 3a 2e 69 6e 76 65  6e 20 4a 53 52 69 6e 76  |mm:.inven JSRinv|
000012a0  3a 4a 53 52 26 46 46 45  37 3a 4c 44 58 23 33 39  |:JSR&FFE7:LDX#39|
000012b0  3a 4c 44 41 23 31 32 36  3a 4a 53 52 72 65 70 3a  |:LDA#126:JSRrep:|
000012c0  4a 53 52 26 46 46 45 37  3a 4a 4d 50 6d 0d 08 b6  |JSR&FFE7:JMPm...|
000012d0  42 2e 6d 6f 76 65 3a 4a  4d 50 6d 6f 76 3a 2e 6d  |B.move:JMPmov:.m|
000012e0  76 64 20 4a 53 52 26 46  46 45 37 3a 4c 44 58 23  |vd JSR&FFE7:LDX#|
000012f0  33 39 3a 4c 44 41 23 31  32 36 3a 4a 53 52 72 65  |39:LDA#126:JSRre|
00001300  70 3a 4a 53 52 26 46 46  45 37 3a 4a 4d 50 6d 0d  |p:JSR&FFE7:JMPm.|
00001310  08 c0 22 2e 6e 6f 61 63  74 6e 20 4c 44 41 23 39  |..".noactn LDA#9|
00001320  3a 4a 53 52 70 72 74 6d  65 73 73 3a 4a 4d 50 6d  |:JSRprtmess:JMPm|
00001330  6d 0d 13 88 40 2e 62 75  66 66 65 72 20 45 51 55  |m...@.buffer EQU|
00001340  42 69 6e 70 75 74 20 83  32 35 36 3a 45 51 55 42  |Binput .256:EQUB|
00001350  69 6e 70 75 74 20 81 32  35 36 3a 45 51 55 42 26  |input .256:EQUB&|
00001360  46 46 3a 45 51 55 42 33  32 3a 45 51 55 42 31 32  |FF:EQUB32:EQUB12|
00001370  37 0d 13 92 27 2e 74 69  74 6c 65 20 45 51 55 53  |7...'.title EQUS|
00001380  22 53 50 41 43 45 20 41  44 56 45 4e 54 55 52 45  |"SPACE ADVENTURE|
00001390  22 3a 45 51 55 42 2d 31  0d 13 9c 0f 5c 64 69 72  |":EQUB-1....\dir|
000013a0  65 63 74 69 6f 6e 73 0d  13 a6 87 2e 6e 20 45 51  |ections.....n EQ|
000013b0  55 53 22 4e 6f 72 74 68  20 22 3a 45 51 55 42 2d  |US"North ":EQUB-|
000013c0  31 3a 2e 73 20 45 51 55  53 22 53 6f 75 74 68 20  |1:.s EQUS"South |
000013d0  22 3a 45 51 55 42 2d 31  3a 2e 65 20 45 51 55 53  |":EQUB-1:.e EQUS|
000013e0  22 45 61 73 74 20 22 3a  45 51 55 42 2d 31 3a 2e  |"East ":EQUB-1:.|
000013f0  77 20 45 51 55 53 22 57  65 73 74 20 22 3a 45 51  |w EQUS"West ":EQ|
00001400  55 42 2d 31 3a 2e 75 20  45 51 55 53 22 55 70 20  |UB-1:.u EQUS"Up |
00001410  22 3a 45 51 55 42 2d 31  3a 2e 64 20 45 51 55 53  |":EQUB-1:.d EQUS|
00001420  22 44 6f 77 6e 20 22 3a  45 51 55 42 2d 31 0d 13  |"Down ":EQUB-1..|
00001430  b0 0d 5c 6d 65 73 73 61  67 65 73 0d 13 ba 1d 2e  |..\messages.....|
00001440  6d 31 20 45 51 55 53 22  59 6f 75 20 61 72 65 20  |m1 EQUS"You are |
00001450  22 3a 45 51 55 42 2d 31  0d 13 c4 21 2e 6d 32 20  |":EQUB-1...!.m2 |
00001460  45 51 55 53 22 59 6f 75  20 63 61 6e 20 73 65 65  |EQUS"You can see|
00001470  20 22 3a 45 51 55 42 2d  31 0d 13 ce 20 2e 6d 33  | ":EQUB-1... .m3|
00001480  20 45 51 55 53 22 59 6f  75 20 63 61 6e 20 67 6f  | EQUS"You can go|
00001490  20 22 3a 45 51 55 42 2d  31 0d 13 d8 20 2e 6d 34  | ":EQUB-1... .m4|
000014a0  20 45 51 55 53 22 57 68  61 74 20 6e 65 78 74 3f  | EQUS"What next?|
000014b0  20 22 3a 45 51 55 42 2d  31 0d 13 e2 26 2e 6d 35  | ":EQUB-1...&.m5|
000014c0  20 45 51 55 53 22 59 6f  75 20 61 72 65 20 63 61  | EQUS"You are ca|
000014d0  72 72 79 69 6e 67 3a 22  3a 45 51 55 42 2d 31 0d  |rrying:":EQUB-1.|
000014e0  13 ec 26 2e 6d 36 20 45  51 55 53 22 59 6f 75 20  |..&.m6 EQUS"You |
000014f0  77 61 6e 74 65 64 20 74  6f 20 67 6f 20 22 3a 45  |wanted to go ":E|
00001500  51 55 42 2d 31 0d 13 f6  23 2e 6d 37 20 45 51 55  |QUB-1...#.m7 EQU|
00001510  53 22 59 6f 75 20 77 61  6e 74 65 64 20 74 6f 20  |S"You wanted to |
00001520  22 3a 45 51 55 42 2d 31  0d 14 00 2c 2e 6d 38 20  |":EQUB-1...,.m8 |
00001530  45 51 55 53 22 59 6f 75  20 63 61 6e 27 74 20 6d  |EQUS"You can't m|
00001540  6f 76 65 20 74 68 61 74  20 77 61 79 22 3a 45 51  |ove that way":EQ|
00001550  55 42 2d 31 0d 14 0a 20  2e 6d 39 20 45 51 55 53  |UB-1... .m9 EQUS|
00001560  22 20 2d 20 44 6f 20 77  68 61 74 3f 22 3a 45 51  |" - Do what?":EQ|
00001570  55 42 2d 31 0d 14 14 21  2e 6d 31 30 20 45 51 55  |UB-1...!.m10 EQU|
00001580  53 22 59 6f 75 20 74 61  6b 65 20 69 74 22 3a 45  |S"You take it":E|
00001590  51 55 42 2d 31 0d 14 1e  21 2e 6d 31 31 20 45 51  |QUB-1...!.m11 EQ|
000015a0  55 53 22 59 6f 75 20 64  72 6f 70 20 69 74 22 3a  |US"You drop it":|
000015b0  45 51 55 42 2d 31 0d 14  28 28 2e 6d 31 32 20 45  |EQUB-1..((.m12 E|
000015c0  51 55 53 22 59 6f 75 20  68 61 76 65 6e 27 74 20  |QUS"You haven't |
000015d0  67 6f 74 20 69 74 22 3a  45 51 55 42 2d 31 0d 14  |got it":EQUB-1..|
000015e0  32 2c 2e 6d 31 33 20 45  51 55 53 22 59 6f 75 27  |2,.m13 EQUS"You'|
000015f0  76 65 20 61 6c 72 65 61  64 79 20 67 6f 74 20 69  |ve already got i|
00001600  74 21 22 3a 45 51 55 42  2d 31 0d 14 3c 26 2e 6d  |t!":EQUB-1..<&.m|
00001610  31 34 20 45 51 55 53 22  49 74 20 69 73 20 6e 6f  |14 EQUS"It is no|
00001620  74 20 68 65 72 65 21 21  22 3a 45 51 55 42 2d 31  |t here!!":EQUB-1|
00001630  0d 14 46 24 2e 6d 31 35  20 45 51 55 53 22 4e 6f  |..F$.m15 EQUS"No|
00001640  74 68 69 6e 67 20 75 73  65 66 75 6c 22 3a 45 51  |thing useful":EQ|
00001650  55 42 2d 31 0d 14 50 1c  2e 6d 31 36 20 45 51 55  |UB-1..P..m16 EQU|
00001660  53 22 20 77 68 61 74 3f  22 3a 45 51 55 42 2d 31  |S" what?":EQUB-1|
00001670  0d 14 5a 28 2e 6d 31 37  20 45 51 55 53 22 59 6f  |..Z(.m17 EQUS"Yo|
00001680  75 20 63 61 6e 27 74 20  64 6f 20 74 68 61 74 21  |u can't do that!|
00001690  22 3a 45 51 55 42 2d 31  0d 14 64 26 2e 6d 31 38  |":EQUB-1..d&.m18|
000016a0  20 45 51 55 53 22 20 2d  20 57 68 69 63 68 20 62  | EQUS" - Which b|
000016b0  75 74 74 6f 6e 3f 22 3a  45 51 55 42 2d 31 0d 14  |utton?":EQUB-1..|
000016c0  6e 18 2e 6d 31 39 20 45  51 55 53 22 4f 6b 22 3a  |n..m19 EQUS"Ok":|
000016d0  45 51 55 42 2d 31 0d 14  78 16 2e 6d 32 30 20 45  |EQUB-1..x..m20 E|
000016e0  51 55 53 22 22 3a 45 51  55 42 2d 31 0d 14 82 49  |QUS"":EQUB-1...I|
000016f0  2e 6d 65 73 73 31 20 45  51 55 57 6d 31 3a 2e 6d  |.mess1 EQUWm1:.m|
00001700  65 73 73 32 20 45 51 55  57 6d 32 3a 2e 6d 65 73  |ess2 EQUWm2:.mes|
00001710  73 33 20 45 51 55 57 6d  33 3a 2e 6d 65 73 73 34  |s3 EQUWm3:.mess4|
00001720  20 45 51 55 57 6d 34 3a  2e 6d 65 73 73 35 20 45  | EQUWm4:.mess5 E|
00001730  51 55 57 6d 35 0d 14 8c  4b 2e 6d 65 73 73 36 20  |QUWm5...K.mess6 |
00001740  45 51 55 57 6d 36 3a 2e  6d 65 73 73 37 20 45 51  |EQUWm6:.mess7 EQ|
00001750  55 57 6d 37 3a 2e 6d 65  73 73 38 20 45 51 55 57  |UWm7:.mess8 EQUW|
00001760  6d 38 3a 2e 6d 65 73 73  39 20 45 51 55 57 6d 39  |m8:.mess9 EQUWm9|
00001770  3a 2e 6d 65 73 73 31 30  20 45 51 55 57 6d 31 30  |:.mess10 EQUWm10|
00001780  0d 14 96 53 2e 6d 65 73  73 31 31 20 45 51 55 57  |...S.mess11 EQUW|
00001790  6d 31 31 3a 2e 6d 65 73  73 31 32 20 45 51 55 57  |m11:.mess12 EQUW|
000017a0  6d 31 32 3a 2e 6d 65 73  73 31 33 20 45 51 55 57  |m12:.mess13 EQUW|
000017b0  6d 31 33 3a 2e 6d 65 73  73 31 34 20 45 51 55 57  |m13:.mess14 EQUW|
000017c0  6d 31 34 3a 2e 6d 65 73  73 31 35 20 45 51 55 57  |m14:.mess15 EQUW|
000017d0  6d 31 35 0d 14 a0 53 2e  6d 65 73 73 31 36 20 45  |m15...S.mess16 E|
000017e0  51 55 57 6d 31 36 3a 2e  6d 65 73 73 31 37 20 45  |QUWm16:.mess17 E|
000017f0  51 55 57 6d 31 37 3a 2e  6d 65 73 73 31 38 20 45  |QUWm17:.mess18 E|
00001800  51 55 57 6d 31 38 3a 2e  6d 65 73 73 31 39 20 45  |QUWm18:.mess19 E|
00001810  51 55 57 6d 31 39 3a 2e  6d 65 73 73 32 30 20 45  |QUWm19:.mess20 E|
00001820  51 55 57 6d 32 30 0d 14  aa 13 2e 6d 65 73 73 66  |QUWm20.....messf|
00001830  6c 61 67 20 45 51 55 57  30 0d 14 b4 18 5c 43 4f  |lag EQUW0....\CO|
00001840  4d 4d 41 4e 44 53 20 2d  6d 6f 76 65 6d 65 6e 74  |MMANDS -movement|
00001850  73 0d 14 be 70 2e 77 6f  72 64 73 31 20 20 45 51  |s...p.words1  EQ|
00001860  55 42 31 3a 45 51 55 53  22 4e 22 3a 45 51 55 42  |UB1:EQUS"N":EQUB|
00001870  32 3a 45 51 55 53 22 53  22 3a 45 51 55 42 33 3a  |2:EQUS"S":EQUB3:|
00001880  45 51 55 53 22 45 22 3a  45 51 55 42 34 3a 45 51  |EQUS"E":EQUB4:EQ|
00001890  55 53 22 57 22 3a 45 51  55 42 35 3a 45 51 55 53  |US"W":EQUB5:EQUS|
000018a0  22 55 22 3a 45 51 55 57  30 3a 45 51 55 42 36 3a  |"U":EQUW0:EQUB6:|
000018b0  45 51 55 53 22 44 22 3a  45 51 55 57 26 46 46 46  |EQUS"D":EQUW&FFF|
000018c0  46 0d 14 c8 0a 2e 77 6f  72 64 73 0d 14 d2 6e 20  |F.....words...n |
000018d0  45 51 55 42 31 3a 45 51  55 53 22 4e 4f 52 54 22  |EQUB1:EQUS"NORT"|
000018e0  3a 45 51 55 42 32 3a 45  51 55 53 22 53 4f 55 54  |:EQUB2:EQUS"SOUT|
000018f0  22 3a 45 51 55 42 33 3a  45 51 55 53 22 45 41 53  |":EQUB3:EQUS"EAS|
00001900  54 22 3a 45 51 55 42 34  3a 45 51 55 53 22 57 45  |T":EQUB4:EQUS"WE|
00001910  53 54 22 3a 45 51 55 42  35 3a 45 51 55 53 22 55  |ST":EQUB5:EQUS"U|
00001920  50 22 3a 45 51 55 57 30  3a 45 51 55 42 36 3a 45  |P":EQUW0:EQUB6:E|
00001930  51 55 53 22 44 4f 57 4e  22 0d 14 dc 0c 5c 61 63  |QUS"DOWN"....\ac|
00001940  74 69 6f 6e 73 0d 14 e6  3e 45 51 55 42 31 31 3a  |tions...>EQUB11:|
00001950  45 51 55 53 22 54 41 4b  45 22 3a 45 51 55 42 31  |EQUS"TAKE":EQUB1|
00001960  31 3a 45 51 55 53 22 47  45 54 22 3a 45 51 55 42  |1:EQUS"GET":EQUB|
00001970  30 3a 45 51 55 42 31 31  3a 45 51 55 53 22 42 52  |0:EQUB11:EQUS"BR|
00001980  49 4e 22 0d 14 f0 39 45  51 55 42 31 32 3a 45 51  |IN"...9EQUB12:EQ|
00001990  55 53 22 44 52 4f 50 22  3a 45 51 55 42 31 32 3a  |US"DROP":EQUB12:|
000019a0  45 51 55 53 22 4c 45 41  56 22 3a 45 51 55 42 31  |EQUS"LEAV":EQUB1|
000019b0  31 3a 45 51 55 53 22 44  55 4d 50 22 0d 14 fa 27  |1:EQUS"DUMP"...'|
000019c0  45 51 55 42 32 30 3a 45  51 55 53 22 50 55 53 48  |EQUB20:EQUS"PUSH|
000019d0  22 3a 45 51 55 42 32 30  3a 45 51 55 53 22 50 52  |":EQUB20:EQUS"PR|
000019e0  45 53 22 0d 15 04 3e 45  51 55 42 32 31 3a 45 51  |ES"...>EQUB21:EQ|
000019f0  55 53 22 4d 45 4e 44 22  3a 45 51 55 42 32 31 3a  |US"MEND":EQUB21:|
00001a00  45 51 55 53 22 52 45 50  41 22 3a 45 51 55 42 32  |EQUS"REPA":EQUB2|
00001a10  31 3a 45 51 55 53 22 46  49 58 22 3a 45 51 55 42  |1:EQUS"FIX":EQUB|
00001a20  30 0d 15 0e 13 5c 75 73  65 66 75 6c 20 6f 62 6a  |0....\useful obj|
00001a30  65 63 74 73 0d 15 18 27  45 51 55 42 35 30 3a 45  |ects...'EQUB50:E|
00001a40  51 55 53 22 4c 41 5a 45  22 3a 45 51 55 42 35 30  |QUS"LAZE":EQUB50|
00001a50  3a 45 51 55 53 22 52 49  46 4c 22 0d 15 22 27 45  |:EQUS"RIFL".."'E|
00001a60  51 55 42 35 31 3a 45 51  55 53 22 53 4c 45 45 22  |QUB51:EQUS"SLEE"|
00001a70  3a 45 51 55 42 35 31 3a  45 51 55 53 22 42 4f 4d  |:EQUB51:EQUS"BOM|
00001a80  42 22 0d 15 2c 28 45 51  55 42 35 35 32 3a 45 51  |B"..,(EQUB552:EQ|
00001a90  55 53 22 53 50 41 43 22  3a 45 51 55 42 35 32 3a  |US"SPAC":EQUB52:|
00001aa0  45 51 55 53 22 53 55 49  54 22 0d 15 36 15 45 51  |EQUS"SUIT"..6.EQ|
00001ab0  55 42 35 33 3a 45 51 55  53 22 53 50 41 4e 22 0d  |UB53:EQUS"SPAN".|
00001ac0  15 40 2c 45 51 55 42 35  34 3a 45 51 55 53 22 43  |.@,EQUB54:EQUS"C|
00001ad0  52 4f 57 22 3a 45 51 55  42 35 34 3a 45 51 55 53  |ROW":EQUB54:EQUS|
00001ae0  22 42 41 52 22 3a 45 51  55 42 30 0d 15 4a 15 45  |"BAR":EQUB0..J.E|
00001af0  51 55 42 35 35 3a 45 51  55 53 22 4d 41 53 4b 22  |QUB55:EQUS"MASK"|
00001b00  0d 15 54 12 5c 6f 74 68  65 72 20 6f 62 6a 65 63  |..T.\other objec|
00001b10  74 73 0d 15 5e 12 5c 6f  74 68 65 72 20 6f 62 6a  |ts..^.\other obj|
00001b20  65 63 74 73 0d 15 68 21  45 51 55 42 37 30 3a 45  |ects..h!EQUB70:E|
00001b30  51 55 53 22 52 45 44 22  3a 45 51 55 42 30 20 5c  |QUS"RED":EQUB0 \|
00001b40  6c 69 67 68 74 0d 15 72  1c 45 51 55 42 37 31 3a  |light..r.EQUB71:|
00001b50  45 51 55 53 22 47 52 45  45 22 20 5c 6c 69 67 68  |EQUS"GREE" \ligh|
00001b60  74 0d 15 7c 15 45 51 55  42 37 32 3a 45 51 55 53  |t..|.EQUB72:EQUS|
00001b70  22 41 4c 49 45 22 0d 15  86 15 45 51 55 42 37 33  |"ALIE"....EQUB73|
00001b80  3a 45 51 55 53 22 43 41  42 4c 22 0d 15 90 15 45  |:EQUS"CABL"....E|
00001b90  51 55 42 37 34 3a 45 51  55 53 22 4c 49 47 48 22  |QUB74:EQUS"LIGH"|
00001ba0  0d 15 9a 15 45 51 55 42  37 35 3a 45 51 55 53 22  |....EQUB75:EQUS"|
00001bb0  42 55 54 54 22 0d 15 a4  0e 5c 69 6e 76 65 6e 74  |BUTT"....\invent|
00001bc0  6f 72 79 0d 15 ae 15 45  51 55 42 39 39 3a 45 51  |ory....EQUB99:EQ|
00001bd0  55 53 22 49 4e 56 45 22  0d 15 b8 18 45 51 55 42  |US"INVE"....EQUB|
00001be0  2d 31 3a 45 51 55 42 2d  31 3a 45 51 55 42 2d 31  |-1:EQUB-1:EQUB-1|
00001bf0  0d 15 c2 0e 2e 6c 6f 63  20 45 51 55 42 31 0d 15  |.....loc EQUB1..|
00001c00  cc 0e 5c 6c 6f 63 61 74  69 6f 6e 73 0d 15 d6 28  |..\locations...(|
00001c10  2e 6c 31 20 45 51 55 53  22 69 6e 20 74 68 65 20  |.l1 EQUS"in the |
00001c20  63 6f 6e 74 72 6f 6c 20  72 6f 6f 6d 22 3a 45 51  |control room":EQ|
00001c30  55 42 2d 31 0d 15 e0 28  2e 6c 32 20 45 51 55 53  |UB-1...(.l2 EQUS|
00001c40  22 69 6e 20 74 68 65 20  77 65 61 70 6f 6e 73 20  |"in the weapons |
00001c50  72 6f 6f 6d 22 3a 45 51  55 42 2d 31 0d 15 ea 22  |room":EQUB-1..."|
00001c60  2e 6c 33 20 45 51 55 53  22 69 6e 20 61 20 63 6f  |.l3 EQUS"in a co|
00001c70  72 72 69 64 6f 72 22 3a  45 51 55 42 2d 31 0d 15  |rridor":EQUB-1..|
00001c80  f4 24 2e 6c 34 20 45 51  55 53 22 69 6e 20 61 20  |.$.l4 EQUS"in a |
00001c90  73 74 6f 72 65 20 72 6f  6f 6d 22 3a 45 51 55 42  |store room":EQUB|
00001ca0  2d 31 0d 15 fe 22 2e 6c  35 20 45 51 55 53 22 69  |-1...".l5 EQUS"i|
00001cb0  6e 20 61 20 63 6f 72 72  69 64 6f 72 22 3a 45 51  |n a corridor":EQ|
00001cc0  55 42 2d 31 0d 16 08 2b  2e 6c 36 20 45 51 55 53  |UB-1...+.l6 EQUS|
00001cd0  22 69 6e 20 74 68 65 20  72 65 63 72 65 61 74 69  |"in the recreati|
00001ce0  6f 6e 20 72 6f 6f 6d 22  3a 45 51 55 42 2d 31 0d  |on room":EQUB-1.|
00001cf0  16 12 22 2e 6c 37 20 45  51 55 53 22 69 6e 20 61  |..".l7 EQUS"in a|
00001d00  20 63 6f 72 72 69 64 6f  72 22 3a 45 51 55 42 2d  | corridor":EQUB-|
00001d10  31 0d 16 1c 24 2e 6c 38  20 45 51 55 53 22 69 6e  |1...$.l8 EQUS"in|
00001d20  20 74 68 65 20 61 69 72  20 6c 6f 63 6b 22 3a 45  | the air lock":E|
00001d30  51 55 42 2d 31 0d 16 26  23 2e 6c 39 20 45 51 55  |QUB-1..&#.l9 EQU|
00001d40  53 22 69 6e 20 74 68 65  20 73 68 75 74 74 6c 65  |S"in the shuttle|
00001d50  22 3a 45 51 55 42 2d 31  0d 16 30 2e 2e 6c 31 30  |":EQUB-1..0..l10|
00001d60  20 45 51 55 53 22 69 6e  20 74 68 65 20 73 6c 65  | EQUS"in the sle|
00001d70  65 70 69 6e 67 20 71 75  61 72 74 65 72 73 22 3a  |eping quarters":|
00001d80  45 51 55 42 2d 31 0d 16  3a 23 2e 6c 31 31 20 45  |EQUB-1..:#.l11 E|
00001d90  51 55 53 22 69 6e 20 61  20 63 6f 72 72 69 64 6f  |QUS"in a corrido|
00001da0  72 22 3a 45 51 55 42 2d  31 0d 16 44 35 2e 6c 31  |r":EQUB-1..D5.l1|
00001db0  32 20 45 51 55 53 22 73  74 61 6e 64 69 6e 67 20  |2 EQUS"standing |
00001dc0  62 79 20 61 20 63 72 61  74 65 20 69 6e 20 74 68  |by a crate in th|
00001dd0  65 20 68 6f 6c 64 22 3a  45 51 55 42 2d 31 0d 16  |e hold":EQUB-1..|
00001de0  4e 33 2e 6c 31 33 20 45  51 55 53 22 63 72 61 77  |N3.l13 EQUS"craw|
00001df0  6c 69 6e 67 20 74 68 72  6f 75 67 68 20 74 68 65  |ling through the|
00001e00  20 61 69 72 20 64 75 63  74 22 3a 45 51 55 42 2d  | air duct":EQUB-|
00001e10  31 0d 16 58 23 2e 6c 31  34 20 45 51 55 53 22 69  |1..X#.l14 EQUS"i|
00001e20  6e 20 61 20 63 6f 72 72  69 64 6f 72 22 3a 45 51  |n a corridor":EQ|
00001e30  55 42 2d 31 0d 16 62 21  2e 6c 31 35 20 45 51 55  |UB-1..b!.l15 EQU|
00001e40  53 22 69 6e 20 74 68 65  20 68 6f 6c 64 22 3a 45  |S"in the hold":E|
00001e50  51 55 42 2d 31 0d 16 6c  28 2e 6c 31 36 20 45 51  |QUB-1..l(.l16 EQ|
00001e60  55 53 22 69 6e 20 74 68  65 20 65 6e 67 69 6e 65  |US"in the engine|
00001e70  20 72 6f 6f 6d 22 3a 45  51 55 42 2d 31 0d 16 76  | room":EQUB-1..v|
00001e80  33 2e 6c 31 37 20 45 51  55 53 22 63 72 61 77 6c  |3.l17 EQUS"crawl|
00001e90  69 6e 67 20 74 68 72 6f  75 67 68 20 74 68 65 20  |ing through the |
00001ea0  61 69 72 20 64 75 63 74  22 3a 45 51 55 42 2d 31  |air duct":EQUB-1|
00001eb0  0d 16 80 33 2e 6c 31 38  20 45 51 55 53 22 63 72  |...3.l18 EQUS"cr|
00001ec0  61 77 6c 69 6e 67 20 74  68 72 6f 75 67 68 20 74  |awling through t|
00001ed0  68 65 20 61 69 72 20 64  75 63 74 22 3a 45 51 55  |he air duct":EQU|
00001ee0  42 2d 31 0d 16 8a 33 2e  6c 31 39 20 45 51 55 53  |B-1...3.l19 EQUS|
00001ef0  22 63 72 61 77 6c 69 6e  67 20 74 68 72 6f 75 67  |"crawling throug|
00001f00  68 20 74 68 65 20 61 69  72 20 64 75 63 74 22 3a  |h the air duct":|
00001f10  45 51 55 42 2d 31 0d 16  94 33 2e 6c 32 30 20 45  |EQUB-1...3.l20 E|
00001f20  51 55 53 22 63 72 61 77  6c 69 6e 67 20 74 68 72  |QUS"crawling thr|
00001f30  6f 75 67 68 20 74 68 65  20 61 69 72 20 64 75 63  |ough the air duc|
00001f40  74 22 3a 45 51 55 42 2d  31 0d 16 9e 44 2e 6c 6f  |t":EQUB-1...D.lo|
00001f50  63 31 20 45 51 55 57 6c  31 3a 2e 6c 6f 63 32 20  |c1 EQUWl1:.loc2 |
00001f60  45 51 55 57 6c 32 3a 2e  6c 6f 63 33 20 45 51 55  |EQUWl2:.loc3 EQU|
00001f70  57 6c 33 3a 2e 6c 6f 63  34 20 45 51 55 57 6c 34  |Wl3:.loc4 EQUWl4|
00001f80  3a 2e 6c 6f 63 35 20 45  51 55 57 6c 35 0d 16 a8  |:.loc5 EQUWl5...|
00001f90  46 2e 6c 6f 63 36 20 45  51 55 57 6c 36 3a 2e 6c  |F.loc6 EQUWl6:.l|
00001fa0  6f 63 37 20 45 51 55 57  6c 37 3a 2e 6c 6f 63 38  |oc7 EQUWl7:.loc8|
00001fb0  20 45 51 55 57 6c 38 3a  2e 6c 6f 63 39 20 45 51  | EQUWl8:.loc9 EQ|
00001fc0  55 57 6c 39 3a 2e 6c 6f  63 31 30 20 45 51 55 57  |UWl9:.loc10 EQUW|
00001fd0  6c 31 30 0d 16 b2 4e 2e  6c 6f 63 31 31 20 45 51  |l10...N.loc11 EQ|
00001fe0  55 57 6c 31 31 3a 2e 6c  6f 63 31 32 20 45 51 55  |UWl11:.loc12 EQU|
00001ff0  57 6c 31 32 3a 2e 6c 6f  63 31 33 20 45 51 55 57  |Wl12:.loc13 EQUW|
00002000  6c 31 33 3a 2e 6c 6f 63  31 34 20 45 51 55 57 6c  |l13:.loc14 EQUWl|
00002010  31 34 3a 2e 6c 6f 63 31  35 20 45 51 55 57 6c 31  |14:.loc15 EQUWl1|
00002020  35 0d 16 bc 4d 2e 6c 6f  63 31 36 20 45 51 55 57  |5...M.loc16 EQUW|
00002030  6c 31 36 3a 2e 6c 6f 63  31 37 20 45 51 55 57 6c  |l16:.loc17 EQUWl|
00002040  37 3a 2e 6c 6f 63 31 38  20 45 51 55 57 6c 31 38  |7:.loc18 EQUWl18|
00002050  3a 2e 6c 6f 63 31 39 20  45 51 55 57 6c 31 39 3a  |:.loc19 EQUWl19:|
00002060  2e 6c 6f 63 32 30 20 45  51 55 57 6c 32 30 0d 16  |.loc20 EQUWl20..|
00002070  c6 0b 2e 6d 6f 76 64 61  74 0d 16 d0 1e 45 51 55  |...movdat....EQU|
00002080  44 26 46 46 46 46 30 33  46 46 3a 45 51 55 44 26  |D&FFFF03FF:EQUD&|
00002090  46 46 46 46 46 46 46 0d  16 da 1e 45 51 55 44 26  |FFFFFFF....EQUD&|
000020a0  46 46 30 33 46 46 46 46  3a 45 51 55 44 26 46 46  |FF03FFFF:EQUD&FF|
000020b0  46 46 46 46 46 0d 16 e4  1e 45 51 55 44 26 30 32  |FFFFF....EQUD&02|
000020c0  30 34 30 35 30 31 3a 45  51 55 44 26 46 46 46 46  |040501:EQUD&FFFF|
000020d0  46 46 46 0d 16 ee 1e 45  51 55 44 26 30 33 46 46  |FFF....EQUD&03FF|
000020e0  46 46 46 46 3a 45 51 55  44 26 46 46 46 46 46 46  |FFFF:EQUD&FFFFFF|
000020f0  46 0d 16 f8 1e 45 51 55  44 26 46 46 46 46 30 37  |F....EQUD&FFFF07|
00002100  30 33 3a 45 51 55 44 26  46 46 46 46 46 46 46 0d  |03:EQUD&FFFFFFF.|
00002110  17 02 1e 45 51 55 44 26  46 46 30 37 46 46 46 46  |...EQUD&FF07FFFF|
00002120  3a 45 51 55 44 26 46 46  46 46 46 46 46 0d 17 0c  |:EQUD&FFFFFFF...|
00002130  1e 45 51 55 44 26 30 36  30 38 30 42 30 35 3a 45  |.EQUD&06080B05:E|
00002140  51 55 44 26 46 46 46 46  46 46 46 0d 17 16 1e 45  |QUD&FFFFFFF....E|
00002150  51 55 44 26 30 37 30 39  46 46 46 46 3a 45 51 55  |QUD&0709FFFF:EQU|
00002160  44 26 46 46 46 46 46 46  46 0d 17 20 1e 45 51 55  |D&FFFFFFF.. .EQU|
00002170  44 26 30 38 46 46 46 46  46 46 3a 45 51 55 44 26  |D&08FFFFFF:EQUD&|
00002180  46 46 46 46 46 46 46 0d  17 2a 1e 45 51 55 44 26  |FFFFFFF..*.EQUD&|
00002190  46 46 30 42 46 46 46 46  3a 45 51 55 44 26 46 46  |FF0BFFFF:EQUD&FF|
000021a0  46 46 46 46 46 0d 17 34  1e 45 51 55 44 26 30 41  |FFFFF..4.EQUD&0A|
000021b0  30 43 30 45 30 37 3a 45  51 55 44 26 46 46 46 46  |0C0E07:EQUD&FFFF|
000021c0  46 46 46 0d 17 3e 1e 45  51 55 44 26 30 42 46 46  |FFF..>.EQUD&0BFF|
000021d0  46 46 46 46 3a 45 51 55  44 26 46 46 46 46 46 46  |FFFF:EQUD&FFFFFF|
000021e0  46 0d 17 48 1e 45 51 55  44 26 31 34 30 45 46 46  |F..H.EQUD&140EFF|
000021f0  46 46 3a 45 51 55 44 26  46 46 46 46 46 46 46 0d  |FF:EQUD&FFFFFFF.|
00002200  17 52 1e 45 51 55 44 26  30 44 30 46 31 30 30 42  |.R.EQUD&0D0F100B|
00002210  3a 45 51 55 44 26 46 46  46 46 46 46 46 0d 17 5c  |:EQUD&FFFFFFF..\|
00002220  1e 45 51 55 44 26 30 45  46 46 46 46 46 46 3a 45  |.EQUD&0EFFFFFF:E|
00002230  51 55 44 26 46 46 46 46  46 46 46 0d 17 66 1e 45  |QUD&FFFFFFF..f.E|
00002240  51 55 44 26 46 46 46 46  46 46 30 45 3a 45 51 55  |QUD&FFFFFF0E:EQU|
00002250  44 26 46 46 46 46 46 46  46 0d 17 70 1e 45 51 55  |D&FFFFFFF..p.EQU|
00002260  44 26 31 33 31 32 31 33  46 46 3a 45 51 55 44 26  |D&131213FF:EQUD&|
00002270  46 46 46 46 46 46 46 0d  17 7a 1e 45 51 55 44 26  |FFFFFFF..z.EQUD&|
00002280  31 31 30 44 31 34 46 46  3a 45 51 55 44 26 46 46  |110D14FF:EQUD&FF|
00002290  46 46 46 46 46 0d 17 84  1e 45 51 55 44 26 31 31  |FFFFF....EQUD&11|
000022a0  31 34 46 46 31 31 3a 45  51 55 44 26 46 46 46 46  |14FF11:EQUD&FFFF|
000022b0  46 46 46 0d 17 8e 1e 45  51 55 44 26 31 33 30 44  |FFF....EQUD&130D|
000022c0  46 46 31 32 3a 45 51 55  44 26 46 46 46 46 46 46  |FF12:EQUD&FFFFFF|
000022d0  46 0d 17 98 0c 5c 6f 62  6a 65 63 74 73 0d 17 a2  |F....\objects...|
000022e0  20 2e 6f 31 20 45 51 55  53 22 6c 61 7a 65 72 20  | .o1 EQUS"lazer |
000022f0  72 69 66 6c 65 22 3a 45  51 55 42 2d 31 0d 17 ac  |rifle":EQUB-1...|
00002300  26 2e 6f 32 20 45 51 55  53 22 73 6c 65 65 70 69  |&.o2 EQUS"sleepi|
00002310  6e 67 2d 67 61 73 20 62  6f 6d 62 22 3a 45 51 55  |ng-gas bomb":EQU|
00002320  42 2d 31 0d 17 b6 1f 2e  6f 33 20 45 51 55 53 22  |B-1.....o3 EQUS"|
00002330  73 70 61 63 65 20 73 75  69 74 22 3a 45 51 55 42  |space suit":EQUB|
00002340  2d 31 0d 17 c0 1c 2e 6f  34 20 45 51 55 53 22 73  |-1.....o4 EQUS"s|
00002350  70 61 6e 6e 65 72 22 3a  45 51 55 42 2d 31 0d 17  |panner":EQUB-1..|
00002360  ca 1d 2e 6f 35 20 45 51  55 53 22 63 72 6f 77 2d  |...o5 EQUS"crow-|
00002370  62 61 72 22 3a 45 51 55  42 2d 31 0d 17 d4 1d 2e  |bar":EQUB-1.....|
00002380  6f 36 20 45 51 55 53 22  67 61 73 20 6d 61 73 6b  |o6 EQUS"gas mask|
00002390  22 3a 45 51 55 42 2d 31  0d 17 de 1f 2e 6f 37 20  |":EQUB-1.....o7 |
000023a0  45 51 55 53 22 72 65 64  20 62 75 74 74 6f 6e 22  |EQUS"red button"|
000023b0  3a 45 51 55 42 2d 31 0d  17 e8 21 2e 6f 38 20 45  |:EQUB-1...!.o8 E|
000023c0  51 55 53 22 67 72 65 65  6e 20 62 75 74 74 6f 6e  |QUS"green button|
000023d0  22 3a 45 51 55 42 2d 31  0d 17 f2 1e 2e 6f 39 20  |":EQUB-1.....o9 |
000023e0  45 51 55 53 22 72 65 64  20 6c 69 67 68 74 22 3a  |EQUS"red light":|
000023f0  45 51 55 42 2d 31 0d 17  fc 21 2e 6f 31 30 20 45  |EQUB-1...!.o10 E|
00002400  51 55 53 22 67 72 65 65  6e 20 6c 69 67 68 74 22  |QUS"green light"|
00002410  3a 45 51 55 42 2d 31 0d  18 06 22 2e 6f 31 31 20  |:EQUB-1...".o11 |
00002420  45 51 55 53 22 68 75 6e  67 72 79 20 61 6c 69 65  |EQUS"hungry alie|
00002430  6e 22 3a 45 51 55 42 2d  31 0d 18 10 24 2e 6f 31  |n":EQUB-1...$.o1|
00002440  32 20 45 51 55 53 22 73  6c 65 65 70 69 6e 67 20  |2 EQUS"sleeping |
00002450  61 6c 69 65 6e 22 3a 45  51 55 42 2d 31 0d 18 1a  |alien":EQUB-1...|
00002460  21 2e 6f 31 33 20 45 51  55 53 22 6c 6f 6f 73 65  |!.o13 EQUS"loose|
00002470  20 63 61 62 6c 65 22 3a  45 51 55 42 2d 31 0d 18  | cable":EQUB-1..|
00002480  24 21 2e 6f 31 34 20 45  51 55 53 22 66 69 78 65  |$!.o14 EQUS"fixe|
00002490  64 20 63 61 62 6c 65 22  3a 45 51 55 42 2d 31 0d  |d cable":EQUB-1.|
000024a0  18 2e 3f 2e 6f 62 31 20  45 51 55 57 6f 31 3a 2e  |..?.ob1 EQUWo1:.|
000024b0  6f 62 32 20 45 51 55 57  6f 32 3a 2e 6f 62 33 20  |ob2 EQUWo2:.ob3 |
000024c0  45 51 55 57 6f 33 3a 2e  6f 62 34 20 45 51 55 57  |EQUWo3:.ob4 EQUW|
000024d0  6f 34 3a 2e 6f 62 35 20  45 51 55 57 6f 35 0d 18  |o4:.ob5 EQUWo5..|
000024e0  38 41 2e 6f 62 36 20 45  51 55 57 6f 36 3a 2e 6f  |8A.ob6 EQUWo6:.o|
000024f0  62 37 20 45 51 55 57 6f  37 3a 2e 6f 62 38 20 45  |b7 EQUWo7:.ob8 E|
00002500  51 55 57 6f 38 3a 2e 6f  62 39 20 45 51 55 57 6f  |QUWo8:.ob9 EQUWo|
00002510  39 3a 2e 6f 62 31 30 20  45 51 55 57 6f 31 30 0d  |9:.ob10 EQUWo10.|
00002520  18 42 3b 2e 6f 62 31 31  20 45 51 55 57 6f 31 31  |.B;.ob11 EQUWo11|
00002530  3a 2e 6f 62 31 32 20 45  51 55 57 6f 31 32 3a 2e  |:.ob12 EQUWo12:.|
00002540  6f 62 31 33 20 45 51 55  57 6f 31 33 3a 2e 6f 62  |ob13 EQUWo13:.ob|
00002550  31 34 20 45 51 55 57 6f  31 34 0d 18 4c 43 2e 6f  |14 EQUWo14..LC.o|
00002560  62 73 64 61 74 20 45 51  55 44 26 31 33 30 30 30  |bsdat EQUD&13000|
00002570  34 30 32 3a 45 51 55 44  26 30 31 30 31 30 43 31  |402:EQUD&01010C1|
00002580  32 3a 45 51 55 44 26 30  30 30 44 30 30 30 38 3a  |2:EQUD&000D0008:|
00002590  45 51 55 44 26 46 46 46  46 30 30 31 30 0d 18 56  |EQUD&FFFF0010..V|
000025a0  2b 2e 6f 62 73 68 65 6c  64 20 45 51 55 44 30 3a  |+.obsheld EQUD0:|
000025b0  45 51 55 44 30 3a 45 51  55 44 30 3a 45 51 55 42  |EQUD0:EQUD0:EQUB|
000025c0  30 3a 45 51 55 42 2d 31  0d 18 60 0f 2e 61 63 74  |0:EQUB-1..`..act|
000025d0  6e 20 45 51 55 57 30 0d  18 6a 05 5d 0d 18 74 05  |n EQUW0..j.]..t.|
000025e0  ed 0d 18 7e 2a ff 22 53  41 56 45 20 41 44 56 20  |...~*."SAVE ADV |
000025f0  22 2b c3 7e 51 25 2b 22  20 22 2b c3 7e 50 25 2b  |"+.~Q%+" "+.~P%+|
00002600  22 20 22 2b c3 7e 73 74  61 72 74 0d ff           |" "+.~start..|
0000260d
G/ADVENT.m0
G/ADVENT.m1
G/ADVENT.m2
G/ADVENT.m4
G/ADVENT.m5