Home » Archimedes archive » Acorn Computing » 1994 08 subscription disc.adf » 9408s » BeebDisk/HOUSEGM
BeebDisk/HOUSEGM
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 » Archimedes archive » Acorn Computing » 1994 08 subscription disc.adf » 9408s |
| Filename: | BeebDisk/HOUSEGM |
| Read OK: | ✔ |
| File size: | 12C5 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM"�HOUSE THE ADVENTURE GAME
20REM By Adrian Jackson/Andrew Wall
30REM (C) Acorn Computing
50CLEAR:PRINTTAB(13,1);"Please wait...":PROCload:CLS:*FX21
60REPEAT:PROCinit:PROClook:REPEAT:PROCauto:IF dead GOTO 100
70PROCenter:PROCinput:IF Z% GOTO100
80PROCmove:IFZ% GOTO100
90PROCgde:IF Z%=0 PROCform(6,"Sorry, you can't do that...")
100Z%=0:F$="":UNTIL dead:PROCrepeat:UNTIL0
110DEFPROCmess(M%):PROCform(6,MES$(M%)):ENDPROC
120DEFPROClook:PROCform(2,DES$(1+R% MODMX,1+R% DIVMX)):M%=0:FOR S=1 TO OBJ:IF ?(obc-1+S)=R% AND OBD$(S)<>"<undefined>" M%=M%+1
130NEXT:IF M%=0 GOTO 160
140PROCform2(0,3,"You can also see"):FOR S=1 TO OBJ:IF ?(obc-1+S)=R% AND OBD$(S)<>"<undefined>" PROCform2(M%,3,OBD$(S)+",")
150NEXT:PRINTCHR$8;"."
160S$="EXITS: ":IF FNex("N") S$=S$+"NORTH, "
170IF FNex("S") S$=S$+"SOUTH, "
180IF FNex("E") S$=S$+"EAST, "
190IF FNex("W") S$=S$+"WEST, "
200IF LENS$=7 ENDPROC ELSE S$=LEFT$(S$,LENS$-2):PROCform(1,S$):ENDPROC
210DEFPROCform(CL,ST$):CL=CL+128:REPEAT
220IFLEFT$(ST$,1)=" " ST$=RIGHT$(ST$,LENST$-1):GOTO220
230IF LEN(ST$)<=38 PRINTCHR$CL;ST$:UNTIL1:ENDPROC
240ES$=LEFT$(ST$,38)
250LSF=0:FOR SSC=LENES$ TO 1 STEP-1:IF MID$(ES$,SSC,1)=" " AND LSF=0 LSF=SSC
260NEXT
270IF LSF=0 LSF=38
280ES$=LEFT$(ES$,LSF)
290ST$=RIGHT$(ST$,LENST$-LENES$)
300PRINTCHR$CL+ES$
310UNTIL0
320DEFPROCinit:oc=0:Z%=0:dead=FALSE:FORR%=1 TO OBJ:?(obc+R%-1)=?(obl+R%-1):IF?(obl+R%-1)=MX*MY+1 oc=oc+1
330IFOBD$(R%)="<undefined>" ?(obl+R%-1)=MX*MY
340NEXT:R%=sloc:ENDPROC
350DEFPROCload
360F$="HOUSDAT"
370VDU23;8202;0;0;0;
380X=OPENIN(F$):INPUT#X,MX,MY,MM,OBJ,P1:DIMP1$(P1),MES$(MM),OBJ$(OBJ),OBD$(OBJ),obc OBJ,obl OBJ,DES$(MX,MY),EXI$(MX,MY):FOR Z%=1 TO MM:INPUT#X,MES$(Z%):NEXT:FORZ%=1 TO P1:INPUT#X,P1$(Z%):NEXT:FORZ%=1 TO MX:FOR R%=1 TO MY
390INPUT#X,DES$(Z%,R%),EXI$(Z%,R%):NEXT,:FORZ%=1 TO OBJ:INPUT#X,OBJ$(Z%),OBD$(Z%),?(obl-1+Z%):NEXT:FORZ%=&880 TO &B14:?Z%=BGET#X:NEXT:INPUT#X,sloc,stre:CLOSE#X:CLS:ENDPROC
400DEFPROCauto:FORW%=1TO30:V%=&9DE+(W%*10):IFR%=?V% OR ?V%=255 ELSE NEXT:ENDPROC
410IFFNcarr(V%?1) OR V%?1=0 ELSE NEXT:ENDPROC
420IFFNpres(V%?2) OR V%?2=0 ELSE NEXT:ENDPROC
430IF NOT(FNpres(V%?3)) OR V%?3=0 ELSE NEXT:ENDPROC
440IF V%?4<>0 PROCmess(V%?4)
450IF V%?5<>0 obc?(V%?5-1)=MX*MY
460IF V%?6<>0 obc?(V%?6-1)=MX*MY+1
470IF V%?7<>0 obc?(V%?7-1)=R%
480IF V%?8=1 dead=TRUE
490IF V%?9<>255 AND V%?9<>R% R%=V%?9:PROClook
500PROCcobc
510W%=30:NEXT:ENDPROC
520DEFPROCenter
530INPUTLINE'"What now?"F$:IFF$=""GOTO530 ELSE IF F$="N" F$="NORTH"
540IFF$="S" F$="SOUTH" ELSE IFF$="E" F$="EAST"
550IFF$="W" F$="WEST"
560ENDPROC
570DEFFNcarr(U%):U%=U%-1:IF U%<0 OR U%>(OBJ-1) =0 ELSE IF obc?U%=MX*MY+1 =-1 ELSE =0
580DEFFNpres(U%):U%=U%-1:IF U%<0 OR U%+1>OBJ =0 ELSE IF obc?U%=MX*MY+1 =-1 ELSE IF obc?U%=R% =-1 ELSE =0
590DEFPROCinput:FORW%=1TOP1:V%=&874+(W%*12):IF(FNpline(F$,P1$(W%))=0 OR P1$(W%)="") NEXT:ENDPROC ELSE IFR%=?V% OR ?V%=255 ELSE NEXT:ENDPROC
600IFFNcarr(V%?1) OR V%?1=0 ELSE NEXT:ENDPROC
610IFFNcarr(V%?2) OR V%?2=0 ELSE NEXT:ENDPROC
620IFFNpres(V%?3) OR V%?3=0 ELSE NEXT:ENDPROC
630IF NOTFNpres(V%?4) OR V%?4=0 ELSE NEXT:ENDPROC
640IFV%?5>0 PROCmess(V%?5)
650IFV%?6>0 obc?(V%?6-1)=MX*MY
660IFV%?7>0 obc?(V%?7-1)=MX*MY
670IFV%?8>0 obc?(V%?8-1)=MX*MY+1
680IFV%?9>0 obc?(V%?9-1)=R%
690IFV%?10=1 dead=1
700IFV%?11<255 R%=V%?11:PROClook
710PROCcobc
720Z%=1:W%=P1:NEXT:ENDPROC
730DEFFNpline(V$,W$):U%=0:FOR T%=1 TO LENW$:IFMID$(W$,T%,1)=" " U%=U%+1:NEXTELSENEXT
740IFU%=0 U%=2:FORT%=2 TO 2:GOTO770
750FOR T%=1 TO U%:BZ%=0:FORIA%=1 TO LENW$:IFBZ%=0 AND MID$(W$,IA%,1)=" " BZ%=IA%
760NEXT:BZ$=LEFT$(W$,BZ%-1):W$=RIGHT$(W$,LENW$-LENBZ$-1):IF INSTR(V$,BZ$)<1 THEN T%=U%:NEXT:=0
770NEXT:IF INSTR(V$,W$)<1 =0 ELSE =-1
780NEXT:=-1
790DEFPROCmove:IF FNpline(F$,"NORTH") AND FNex("N") Z%=1:R%=R%+MX:PROClook:ENDPROC
800IF FNpline(F$,"SOUTH") AND FNex("S") Z%=1:R%=R%-MX:PROClook:ENDPROC
810IF FNpline(F$,"EAST") AND FNex("E") R%=R%+1:Z%=1:PROClook:ENDPROC
820IF FNpline(F$,"WEST") AND FNex("W") Z%=1:R%=R%-1:PROClook:ENDPROC
830ENDPROC
840DEFFNex(BZ$):IF INSTR(EXI$(1+R% MODMX,1+R% DIVMX),BZ$) THEN =-1 ELSE =0
850DEFPROCgde:IF FNpline(F$,"QUIT") Z%=1:dead=-1:ENDPROC
860IF FNpline(F$,"INV") PROCinv:ENDPROC
870IFFNpline(F$,"LOOK") PROClook:Z%=1:ENDPROC
880IFFNpline(F$,"GET") OR FNpline(F$,"TAKE") PROCget:ENDPROC
890IFFNpline(F$,"DROP") PROCdrop:ENDPROC
900IFFNpline(F$,"SAVE GAME") PROCsave:Z%=1:ENDPROC
910IFFNpline(F$,"LOAD GAME") PROCld:Z%=1:ENDPROC
920ENDPROC
930DEFPROCget:IF stre<oc ENDPROC
940FOR IA%=1 TO OBJ:IF ASC(LEFT$(OBJ$(IA%),1)) MOD2<>0 NEXT:ENDPROC
950IF FNpres(IA%) ELSE NEXT:ENDPROC
960IF FNcarr(IA%) NEXT:ENDPROC
970IF NOT FNpline(F$,RIGHT$(OBJ$(IA%),LENOBJ$(IA%)-1)) NEXT:ENDPROC
980PROCform(6,"Okay."):?(obc-1+IA%)=MX*MY+1:Z%=1:IA%=OBJ:NEXT:oc=oc+1:ENDPROC
990DEFPROCrepeat:PRINT'" Press <SPACE> to play again...":REPEAT UNTIL INKEY-99:CLS:ENDPROC
1000DEFPROCdrop
1010IF oc=0 ENDPROC ELSE FOR IA%=1 TO OBJ:IF ASC(LEFT$(OBJ$(IA%),1))<>0 AND ASC(LEFT$(OBJ$(IA%),1))<>3 NEXT:ENDPROC
1020IFNOTFNcarr(IA%) NEXT:ENDPROC
1030IF NOT FNpline(F$,RIGHT$(OBJ$(IA%),LEN(OBJ$(IA%))-1)) NEXT:ENDPROC
1040PROCform(6,"Okay."):?(obc-1+IA%)=R%:Z%=1:IA%=OBJ:oc=oc-1:NEXT:ENDPROC
1050DEFPROCinv:M%=0:FORIA%=1 TO OBJ:IFobc?(IA%-1)=MX*MY+1 M%=M%+1
1060NEXT:IF M%=0 Z%=1:PROCform(5,"You are carrying nothing at the moment."):ENDPROC
1070PROCform2(0,5,"You have"):FORIA%=1 TO OBJ:IFobc?(IA%-1)=MX*MY+1 PROCform2(M%,5,OBD$(IA%)+",")
1080NEXT
1090PRINTCHR$8;".":Z%=1:ENDPROC
1100DEFPROCsave:X=OPENOUT("ADSAVE"):PRINT#X,R%,oc:FORIA%=0 TO OBJ-1:PRINT#X,obc?IA%:NEXT:CLOSE#X:PROCform(6,"Okay."):ENDPROC
1110DEFPROCld:X=OPENIN("ADSAVE"):INPUT#X,R%,oc:FORIA%=0 TO OBJ-1:INPUT#X,obc?IA%:NEXT:CLOSE#X:PROClook:ENDPROC
1120DEFPROCcobc:oc=0:FORIA%=0 TO OBJ-1:IFobc?IA%=MX*MY+1 oc=oc+1
1130NEXT:ENDPROC
1140DEFPROCform2(L%,CL,ST$):CL=CL+128:IF L%>0 PRINTCHR$11
1150REPEAT
1160IFLEFT$(ST$,1)=" " ST$=RIGHT$(ST$,LENST$-1):GOTO1160
1170IF LEN(ST$)<=38-L% PRINTTAB(L%,VPOS);CHR$CL;ST$;:M%=-POS*(POS<37):IF M%=0 PRINT:UNTIL1:ENDPROC ELSE IF LEN(ST$)<=38-L% UNTIL1:ENDPROC
1180ES$=LEFT$(ST$,38-L%)
1190LSF=0:FOR SSC=LENES$ TO 1 STEP-1:IF MID$(ES$,SSC,1)=" " AND LSF=0 LSF=SSC
1200NEXT
1210IF LSF=0 AND L%=0 LSF=38-L% ELSE IF LSF=0 PRINT:L%=0:UNTIL0
1220ES$=LEFT$(ES$,LSF)
1230ST$=RIGHT$(ST$,LENST$-LENES$)
1240PRINTTAB(L%,VPOS);CHR$CL+ES$
1250L%=0:M%=0
1260UNTIL0
�"�HOUSE THE ADVENTURE GAME
$� By Adrian Jackson/Andrew Wall
� (C) Acorn Computing
2,�:�13,1);"Please wait...":�load:�:*FX21
<'�:�init:�look:�:�auto:� dead � �Dd@
F �enter:�input:� Z% �Dd@
P�move:�Z% �Dd@
Z6�gde:� Z%=0 �form(6,"Sorry, you can't do that...")
d Z%=0:F$="":� dead:�repeat:�0
n"��mess(M%):�form(6,MES$(M%)):�
xm��look:�form(2,DES$(1+R% �MX,1+R% �MX)):M%=0:� S=1 � OBJ:� ?(obc-1+S)=R% � OBD$(S)<>"<undefined>" M%=M%+1
��:� M%=0 � �t`@
�p�form2(0,3,"You can also see"):� S=1 � OBJ:� ?(obc-1+S)=R% � OBD$(S)<>"<undefined>" �form2(M%,3,OBD$(S)+",")
�
�:�8;"."
�+S$="EXITS: ":� �ex("N") S$=S$+"NORTH, "
� � �ex("S") S$=S$+"SOUTH, "
� � �ex("E") S$=S$+"EAST, "
� � �ex("W") S$=S$+"WEST, "
�+� �S$=7 � � S$=�S$,�S$-2):�form(1,S$):�
� ��form(CL,ST$):CL=CL+128:�
�'�ST$,1)=" " ST$=�ST$,�ST$-1):�d\@
� � �(ST$)<=38 �CL;ST$:�1:�
�ES$=�ST$,38)
�>LSF=0:� SSC=�ES$ � 1 �-1:� �ES$,SSC,1)=" " � LSF=0 LSF=SSC
�
� LSF=0 LSF=38
ES$=�ES$,LSF)
"ST$=�ST$,�ST$-�ES$)
, �CL+ES$
6�0
@\��init:oc=0:Z%=0:dead=�:�R%=1 � OBJ:?(obc+R%-1)=?(obl+R%-1):�?(obl+R%-1)=MX*MY+1 oc=oc+1
J-�OBD$(R%)="<undefined>" ?(obl+R%-1)=MX*MY
T�:R%=sloc:�
^
��load
hF$="HOUSDAT"
r�23;8202;0;0;0;
|�X=�(F$):�#X,MX,MY,MM,OBJ,P1:�P1$(P1),MES$(MM),OBJ$(OBJ),OBD$(OBJ),obc OBJ,obl OBJ,DES$(MX,MY),EXI$(MX,MY):� Z%=1 � MM:�#X,MES$(Z%):�:�Z%=1 � P1:�#X,P1$(Z%):�:�Z%=1 � MX:� R%=1 � MY
���#X,DES$(Z%,R%),EXI$(Z%,R%):�,:�Z%=1 � OBJ:�#X,OBJ$(Z%),OBD$(Z%),?(obl-1+Z%):�:�Z%=&880 � &B14:?Z%=�#X:�:�#X,sloc,stre:�#X:�:�
�;��auto:�W%=1�30:V%=&9DE+(W%*10):�R%=?V% � ?V%=255 � �:�
� �carr(V%?1) � V%?1=0 � �:�
� �pres(V%?2) � V%?2=0 � �:�
�#� �(�pres(V%?3)) � V%?3=0 � �:�
�� V%?4<>0 �mess(V%?4)
� � V%?5<>0 obc?(V%?5-1)=MX*MY
�"� V%?6<>0 obc?(V%?6-1)=MX*MY+1
� � V%?7<>0 obc?(V%?7-1)=R%
�� V%?8=1 dead=�
�(� V%?9<>255 � V%?9<>R% R%=V%?9:�look
� �cobc
�
W%=30:�:�
��enter
6�'"What now?"F$:�F$=""�TRB � � F$="N" F$="NORTH"
*�F$="S" F$="SOUTH" � �F$="E" F$="EAST"
&�F$="W" F$="WEST"
0�
:Iݤcarr(U%):U%=U%-1:� U%<0 � U%>(OBJ-1) =0 � � obc?U%=MX*MY+1 =-1 � =0
DYݤpres(U%):U%=U%-1:� U%<0 � U%+1>OBJ =0 � � obc?U%=MX*MY+1 =-1 � � obc?U%=R% =-1 � =0
Ng��input:�W%=1�P1:V%=&874+(W%*12):�(�pline(F$,P1$(W%))=0 � P1$(W%)="") �:� � �R%=?V% � ?V%=255 � �:�
X �carr(V%?1) � V%?1=0 � �:�
b �carr(V%?2) � V%?2=0 � �:�
l �pres(V%?3) � V%?3=0 � �:�
v!� ��pres(V%?4) � V%?4=0 � �:�
��V%?5>0 �mess(V%?5)
� �V%?6>0 obc?(V%?6-1)=MX*MY
� �V%?7>0 obc?(V%?7-1)=MX*MY
� �V%?8>0 obc?(V%?8-1)=MX*MY+1
��V%?9>0 obc?(V%?9-1)=R%
��V%?10=1 dead=1
� �V%?11<255 R%=V%?11:�look
� �cobc
�Z%=1:W%=P1:�:�
�?ݤpline(V$,W$):U%=0:� T%=1 � �W$:�W$,T%,1)=" " U%=U%+1:��
� �U%=0 U%=2:�T%=2 � 2:�TBC
�B� T%=1 � U%:BZ%=0:�IA%=1 � �W$:�BZ%=0 � �W$,IA%,1)=" " BZ%=IA%
�A�:BZ$=�W$,BZ%-1):W$=�W$,�W$-�BZ$-1):� �V$,BZ$)<1 � T%=U%:�:=0
�:� �V$,W$)<1 =0 � =-1
�:=-1
@��move:� �pline(F$,"NORTH") � �ex("N") Z%=1:R%=R%+MX:�look:�
9� �pline(F$,"SOUTH") � �ex("S") Z%=1:R%=R%-MX:�look:�
*7� �pline(F$,"EAST") � �ex("E") R%=R%+1:Z%=1:�look:�
47� �pline(F$,"WEST") � �ex("W") Z%=1:R%=R%-1:�look:�
>�
H8ݤex(BZ$):� �EXI$(1+R% �MX,1+R% �MX),BZ$) � =-1 � =0
R,��gde:� �pline(F$,"QUIT") Z%=1:dead=-1:�
\ � �pline(F$,"INV") �inv:�
f#�pline(F$,"LOOK") �look:Z%=1:�
p0�pline(F$,"GET") � �pline(F$,"TAKE") �get:�
z �pline(F$,"DROP") �drop:�
�(�pline(F$,"SAVE GAME") �save:Z%=1:�
�&�pline(F$,"LOAD GAME") �ld:Z%=1:�
��
���get:� stre<oc �
�.� IA%=1 � OBJ:� �(�OBJ$(IA%),1)) �2<>0 �:�
�� �pres(IA%) � �:�
�� �carr(IA%) �:�
�/� � �pline(F$,�OBJ$(IA%),�OBJ$(IA%)-1)) �:�
�B�form(6,"Okay."):?(obc-1+IA%)=MX*MY+1:Z%=1:IA%=OBJ:�:oc=oc+1:�
�A��repeat:�'" Press <SPACE> to play again...":� � �-99:�:�
�
��drop
�L� oc=0 � � � IA%=1 � OBJ:� �(�OBJ$(IA%),1))<>0 � �(�OBJ$(IA%),1))<>3 �:�
�笤carr(IA%) �:�
1� � �pline(F$,�OBJ$(IA%),�(OBJ$(IA%))-1)) �:�
=�form(6,"Okay."):?(obc-1+IA%)=R%:Z%=1:IA%=OBJ:oc=oc-1:�:�
8��inv:M%=0:�IA%=1 � OBJ:�obc?(IA%-1)=MX*MY+1 M%=M%+1
$F�:� M%=0 Z%=1:�form(5,"You are carrying nothing at the moment."):�
.W�form2(0,5,"You have"):�IA%=1 � OBJ:�obc?(IA%-1)=MX*MY+1 �form2(M%,5,OBD$(IA%)+",")
8�
B�8;".":Z%=1:�
LV��save:X=�("ADSAVE"):�#X,R%,oc:�IA%=0 � OBJ-1:�#X,obc?IA%:�:�#X:�form(6,"Okay."):�
VI��ld:X=�("ADSAVE"):�#X,R%,oc:�IA%=0 � OBJ-1:�#X,obc?IA%:�:�#X:�look:�
`7��cobc:oc=0:�IA%=0 � OBJ-1:�obc?IA%=MX*MY+1 oc=oc+1
j�:�
t,��form2(L%,CL,ST$):CL=CL+128:� L%>0 �11
~�
�'�ST$,1)=" " ST$=�ST$,�ST$-1):�tHD
�V� �(ST$)<=38-L% �L%,�);�CL;ST$;:M%=-�*(�<37):� M%=0 �:�1:� � � �(ST$)<=38-L% �1:�
�ES$=�ST$,38-L%)
�>LSF=0:� SSC=�ES$ � 1 �-1:� �ES$,SSC,1)=" " � LSF=0 LSF=SSC
��
�0� LSF=0 � L%=0 LSF=38-L% � � LSF=0 �:L%=0:�0
�ES$=�ES$,LSF)
�ST$=�ST$,�ST$-�ES$)
��L%,�);�CL+ES$
�
L%=0:M%=0
��0
� 00000000 0d 00 0a 1f f4 22 81 48 4f 55 53 45 20 54 48 45 |.....".HOUSE THE|
00000010 20 41 44 56 45 4e 54 55 52 45 20 47 41 4d 45 0d | ADVENTURE GAME.|
00000020 00 14 24 f4 20 20 42 79 20 41 64 72 69 61 6e 20 |..$. By Adrian |
00000030 4a 61 63 6b 73 6f 6e 2f 41 6e 64 72 65 77 20 57 |Jackson/Andrew W|
00000040 61 6c 6c 0d 00 1e 1a f4 20 20 28 43 29 20 41 63 |all..... (C) Ac|
00000050 6f 72 6e 20 43 6f 6d 70 75 74 69 6e 67 0d 00 32 |orn Computing..2|
00000060 2c d8 3a f1 8a 31 33 2c 31 29 3b 22 50 6c 65 61 |,.:..13,1);"Plea|
00000070 73 65 20 77 61 69 74 2e 2e 2e 22 3a f2 6c 6f 61 |se wait...":.loa|
00000080 64 3a db 3a 2a 46 58 32 31 0d 00 3c 27 f5 3a f2 |d:.:*FX21..<'.:.|
00000090 69 6e 69 74 3a f2 6c 6f 6f 6b 3a f5 3a f2 61 75 |init:.look:.:.au|
000000a0 74 6f 3a e7 20 64 65 61 64 20 e5 20 8d 44 64 40 |to:. dead . .Dd@|
000000b0 0d 00 46 1c f2 65 6e 74 65 72 3a f2 69 6e 70 75 |..F..enter:.inpu|
000000c0 74 3a e7 20 5a 25 20 e5 8d 44 64 40 0d 00 50 13 |t:. Z% ..Dd@..P.|
000000d0 f2 6d 6f 76 65 3a e7 5a 25 20 e5 8d 44 64 40 0d |.move:.Z% ..Dd@.|
000000e0 00 5a 36 f2 67 64 65 3a e7 20 5a 25 3d 30 20 f2 |.Z6.gde:. Z%=0 .|
000000f0 66 6f 72 6d 28 36 2c 22 53 6f 72 72 79 2c 20 79 |form(6,"Sorry, y|
00000100 6f 75 20 63 61 6e 27 74 20 64 6f 20 74 68 61 74 |ou can't do that|
00000110 2e 2e 2e 22 29 0d 00 64 20 5a 25 3d 30 3a 46 24 |...")..d Z%=0:F$|
00000120 3d 22 22 3a fd 20 64 65 61 64 3a f2 72 65 70 65 |="":. dead:.repe|
00000130 61 74 3a fd 30 0d 00 6e 22 dd f2 6d 65 73 73 28 |at:.0..n"..mess(|
00000140 4d 25 29 3a f2 66 6f 72 6d 28 36 2c 4d 45 53 24 |M%):.form(6,MES$|
00000150 28 4d 25 29 29 3a e1 0d 00 78 6d dd f2 6c 6f 6f |(M%)):...xm..loo|
00000160 6b 3a f2 66 6f 72 6d 28 32 2c 44 45 53 24 28 31 |k:.form(2,DES$(1|
00000170 2b 52 25 20 83 4d 58 2c 31 2b 52 25 20 81 4d 58 |+R% .MX,1+R% .MX|
00000180 29 29 3a 4d 25 3d 30 3a e3 20 53 3d 31 20 b8 20 |)):M%=0:. S=1 . |
00000190 4f 42 4a 3a e7 20 3f 28 6f 62 63 2d 31 2b 53 29 |OBJ:. ?(obc-1+S)|
000001a0 3d 52 25 20 80 20 4f 42 44 24 28 53 29 3c 3e 22 |=R% . OBD$(S)<>"|
000001b0 3c 75 6e 64 65 66 69 6e 65 64 3e 22 20 4d 25 3d |<undefined>" M%=|
000001c0 4d 25 2b 31 0d 00 82 13 ed 3a e7 20 4d 25 3d 30 |M%+1.....:. M%=0|
000001d0 20 e5 20 8d 74 60 40 0d 00 8c 70 f2 66 6f 72 6d | . .t`@...p.form|
000001e0 32 28 30 2c 33 2c 22 59 6f 75 20 63 61 6e 20 61 |2(0,3,"You can a|
000001f0 6c 73 6f 20 73 65 65 22 29 3a e3 20 53 3d 31 20 |lso see"):. S=1 |
00000200 b8 20 4f 42 4a 3a e7 20 3f 28 6f 62 63 2d 31 2b |. OBJ:. ?(obc-1+|
00000210 53 29 3d 52 25 20 80 20 4f 42 44 24 28 53 29 3c |S)=R% . OBD$(S)<|
00000220 3e 22 3c 75 6e 64 65 66 69 6e 65 64 3e 22 20 f2 |>"<undefined>" .|
00000230 66 6f 72 6d 32 28 4d 25 2c 33 2c 4f 42 44 24 28 |form2(M%,3,OBD$(|
00000240 53 29 2b 22 2c 22 29 0d 00 96 0d ed 3a f1 bd 38 |S)+",").....:..8|
00000250 3b 22 2e 22 0d 00 a0 2b 53 24 3d 22 45 58 49 54 |;"."...+S$="EXIT|
00000260 53 3a 20 22 3a e7 20 a4 65 78 28 22 4e 22 29 20 |S: ":. .ex("N") |
00000270 53 24 3d 53 24 2b 22 4e 4f 52 54 48 2c 20 22 0d |S$=S$+"NORTH, ".|
00000280 00 aa 1e e7 20 a4 65 78 28 22 53 22 29 20 53 24 |.... .ex("S") S$|
00000290 3d 53 24 2b 22 53 4f 55 54 48 2c 20 22 0d 00 b4 |=S$+"SOUTH, "...|
000002a0 1d e7 20 a4 65 78 28 22 45 22 29 20 53 24 3d 53 |.. .ex("E") S$=S|
000002b0 24 2b 22 45 41 53 54 2c 20 22 0d 00 be 1d e7 20 |$+"EAST, "..... |
000002c0 a4 65 78 28 22 57 22 29 20 53 24 3d 53 24 2b 22 |.ex("W") S$=S$+"|
000002d0 57 45 53 54 2c 20 22 0d 00 c8 2b e7 20 a9 53 24 |WEST, "...+. .S$|
000002e0 3d 37 20 e1 20 8b 20 53 24 3d c0 53 24 2c a9 53 |=7 . . S$=.S$,.S|
000002f0 24 2d 32 29 3a f2 66 6f 72 6d 28 31 2c 53 24 29 |$-2):.form(1,S$)|
00000300 3a e1 0d 00 d2 1e dd f2 66 6f 72 6d 28 43 4c 2c |:.......form(CL,|
00000310 53 54 24 29 3a 43 4c 3d 43 4c 2b 31 32 38 3a f5 |ST$):CL=CL+128:.|
00000320 0d 00 dc 27 e7 c0 53 54 24 2c 31 29 3d 22 20 22 |...'..ST$,1)=" "|
00000330 20 53 54 24 3d c2 53 54 24 2c a9 53 54 24 2d 31 | ST$=.ST$,.ST$-1|
00000340 29 3a e5 8d 64 5c 40 0d 00 e6 1e e7 20 a9 28 53 |):..d\@..... .(S|
00000350 54 24 29 3c 3d 33 38 20 f1 bd 43 4c 3b 53 54 24 |T$)<=38 ..CL;ST$|
00000360 3a fd 31 3a e1 0d 00 f0 10 45 53 24 3d c0 53 54 |:.1:.....ES$=.ST|
00000370 24 2c 33 38 29 0d 00 fa 3e 4c 53 46 3d 30 3a e3 |$,38)...>LSF=0:.|
00000380 20 53 53 43 3d a9 45 53 24 20 b8 20 31 20 88 2d | SSC=.ES$ . 1 .-|
00000390 31 3a e7 20 c1 45 53 24 2c 53 53 43 2c 31 29 3d |1:. .ES$,SSC,1)=|
000003a0 22 20 22 20 80 20 4c 53 46 3d 30 20 4c 53 46 3d |" " . LSF=0 LSF=|
000003b0 53 53 43 0d 01 04 05 ed 0d 01 0e 12 e7 20 4c 53 |SSC.......... LS|
000003c0 46 3d 30 20 4c 53 46 3d 33 38 0d 01 18 11 45 53 |F=0 LSF=38....ES|
000003d0 24 3d c0 45 53 24 2c 4c 53 46 29 0d 01 22 17 53 |$=.ES$,LSF)..".S|
000003e0 54 24 3d c2 53 54 24 2c a9 53 54 24 2d a9 45 53 |T$=.ST$,.ST$-.ES|
000003f0 24 29 0d 01 2c 0c f1 bd 43 4c 2b 45 53 24 0d 01 |$)..,...CL+ES$..|
00000400 36 06 fd 30 0d 01 40 5c dd f2 69 6e 69 74 3a 6f |6..0..@\..init:o|
00000410 63 3d 30 3a 5a 25 3d 30 3a 64 65 61 64 3d a3 3a |c=0:Z%=0:dead=.:|
00000420 e3 52 25 3d 31 20 b8 20 4f 42 4a 3a 3f 28 6f 62 |.R%=1 . OBJ:?(ob|
00000430 63 2b 52 25 2d 31 29 3d 3f 28 6f 62 6c 2b 52 25 |c+R%-1)=?(obl+R%|
00000440 2d 31 29 3a e7 3f 28 6f 62 6c 2b 52 25 2d 31 29 |-1):.?(obl+R%-1)|
00000450 3d 4d 58 2a 4d 59 2b 31 20 6f 63 3d 6f 63 2b 31 |=MX*MY+1 oc=oc+1|
00000460 0d 01 4a 2d e7 4f 42 44 24 28 52 25 29 3d 22 3c |..J-.OBD$(R%)="<|
00000470 75 6e 64 65 66 69 6e 65 64 3e 22 20 3f 28 6f 62 |undefined>" ?(ob|
00000480 6c 2b 52 25 2d 31 29 3d 4d 58 2a 4d 59 0d 01 54 |l+R%-1)=MX*MY..T|
00000490 0f ed 3a 52 25 3d 73 6c 6f 63 3a e1 0d 01 5e 0a |..:R%=sloc:...^.|
000004a0 dd f2 6c 6f 61 64 0d 01 68 10 46 24 3d 22 48 4f |..load..h.F$="HO|
000004b0 55 53 44 41 54 22 0d 01 72 13 ef 32 33 3b 38 32 |USDAT"..r..23;82|
000004c0 30 32 3b 30 3b 30 3b 30 3b 0d 01 7c b8 58 3d 8e |02;0;0;0;..|.X=.|
000004d0 28 46 24 29 3a e8 23 58 2c 4d 58 2c 4d 59 2c 4d |(F$):.#X,MX,MY,M|
000004e0 4d 2c 4f 42 4a 2c 50 31 3a de 50 31 24 28 50 31 |M,OBJ,P1:.P1$(P1|
000004f0 29 2c 4d 45 53 24 28 4d 4d 29 2c 4f 42 4a 24 28 |),MES$(MM),OBJ$(|
00000500 4f 42 4a 29 2c 4f 42 44 24 28 4f 42 4a 29 2c 6f |OBJ),OBD$(OBJ),o|
00000510 62 63 20 4f 42 4a 2c 6f 62 6c 20 4f 42 4a 2c 44 |bc OBJ,obl OBJ,D|
00000520 45 53 24 28 4d 58 2c 4d 59 29 2c 45 58 49 24 28 |ES$(MX,MY),EXI$(|
00000530 4d 58 2c 4d 59 29 3a e3 20 5a 25 3d 31 20 b8 20 |MX,MY):. Z%=1 . |
00000540 4d 4d 3a e8 23 58 2c 4d 45 53 24 28 5a 25 29 3a |MM:.#X,MES$(Z%):|
00000550 ed 3a e3 5a 25 3d 31 20 b8 20 50 31 3a e8 23 58 |.:.Z%=1 . P1:.#X|
00000560 2c 50 31 24 28 5a 25 29 3a ed 3a e3 5a 25 3d 31 |,P1$(Z%):.:.Z%=1|
00000570 20 b8 20 4d 58 3a e3 20 52 25 3d 31 20 b8 20 4d | . MX:. R%=1 . M|
00000580 59 0d 01 86 82 e8 23 58 2c 44 45 53 24 28 5a 25 |Y.....#X,DES$(Z%|
00000590 2c 52 25 29 2c 45 58 49 24 28 5a 25 2c 52 25 29 |,R%),EXI$(Z%,R%)|
000005a0 3a ed 2c 3a e3 5a 25 3d 31 20 b8 20 4f 42 4a 3a |:.,:.Z%=1 . OBJ:|
000005b0 e8 23 58 2c 4f 42 4a 24 28 5a 25 29 2c 4f 42 44 |.#X,OBJ$(Z%),OBD|
000005c0 24 28 5a 25 29 2c 3f 28 6f 62 6c 2d 31 2b 5a 25 |$(Z%),?(obl-1+Z%|
000005d0 29 3a ed 3a e3 5a 25 3d 26 38 38 30 20 b8 20 26 |):.:.Z%=&880 . &|
000005e0 42 31 34 3a 3f 5a 25 3d 9a 23 58 3a ed 3a e8 23 |B14:?Z%=.#X:.:.#|
000005f0 58 2c 73 6c 6f 63 2c 73 74 72 65 3a d9 23 58 3a |X,sloc,stre:.#X:|
00000600 db 3a e1 0d 01 90 3b dd f2 61 75 74 6f 3a e3 57 |.:....;..auto:.W|
00000610 25 3d 31 b8 33 30 3a 56 25 3d 26 39 44 45 2b 28 |%=1.30:V%=&9DE+(|
00000620 57 25 2a 31 30 29 3a e7 52 25 3d 3f 56 25 20 84 |W%*10):.R%=?V% .|
00000630 20 3f 56 25 3d 32 35 35 20 8b 20 ed 3a e1 0d 01 | ?V%=255 . .:...|
00000640 9a 1f e7 a4 63 61 72 72 28 56 25 3f 31 29 20 84 |....carr(V%?1) .|
00000650 20 56 25 3f 31 3d 30 20 8b 20 ed 3a e1 0d 01 a4 | V%?1=0 . .:....|
00000660 1f e7 a4 70 72 65 73 28 56 25 3f 32 29 20 84 20 |...pres(V%?2) . |
00000670 56 25 3f 32 3d 30 20 8b 20 ed 3a e1 0d 01 ae 23 |V%?2=0 . .:....#|
00000680 e7 20 ac 28 a4 70 72 65 73 28 56 25 3f 33 29 29 |. .(.pres(V%?3))|
00000690 20 84 20 56 25 3f 33 3d 30 20 8b 20 ed 3a e1 0d | . V%?3=0 . .:..|
000006a0 01 b8 19 e7 20 56 25 3f 34 3c 3e 30 20 f2 6d 65 |.... V%?4<>0 .me|
000006b0 73 73 28 56 25 3f 34 29 0d 01 c2 20 e7 20 56 25 |ss(V%?4)... . V%|
000006c0 3f 35 3c 3e 30 20 6f 62 63 3f 28 56 25 3f 35 2d |?5<>0 obc?(V%?5-|
000006d0 31 29 3d 4d 58 2a 4d 59 0d 01 cc 22 e7 20 56 25 |1)=MX*MY...". V%|
000006e0 3f 36 3c 3e 30 20 6f 62 63 3f 28 56 25 3f 36 2d |?6<>0 obc?(V%?6-|
000006f0 31 29 3d 4d 58 2a 4d 59 2b 31 0d 01 d6 1d e7 20 |1)=MX*MY+1..... |
00000700 56 25 3f 37 3c 3e 30 20 6f 62 63 3f 28 56 25 3f |V%?7<>0 obc?(V%?|
00000710 37 2d 31 29 3d 52 25 0d 01 e0 13 e7 20 56 25 3f |7-1)=R%..... V%?|
00000720 38 3d 31 20 64 65 61 64 3d b9 0d 01 ea 28 e7 20 |8=1 dead=....(. |
00000730 56 25 3f 39 3c 3e 32 35 35 20 80 20 56 25 3f 39 |V%?9<>255 . V%?9|
00000740 3c 3e 52 25 20 52 25 3d 56 25 3f 39 3a f2 6c 6f |<>R% R%=V%?9:.lo|
00000750 6f 6b 0d 01 f4 09 f2 63 6f 62 63 0d 01 fe 0d 57 |ok.....cobc....W|
00000760 25 3d 33 30 3a ed 3a e1 0d 02 08 0b dd f2 65 6e |%=30:.:.......en|
00000770 74 65 72 0d 02 12 36 e8 86 27 22 57 68 61 74 20 |ter...6..'"What |
00000780 6e 6f 77 3f 22 46 24 3a e7 46 24 3d 22 22 e5 8d |now?"F$:.F$=""..|
00000790 54 52 42 20 8b 20 e7 20 46 24 3d 22 4e 22 20 46 |TRB . . F$="N" F|
000007a0 24 3d 22 4e 4f 52 54 48 22 0d 02 1c 2a e7 46 24 |$="NORTH"...*.F$|
000007b0 3d 22 53 22 20 46 24 3d 22 53 4f 55 54 48 22 20 |="S" F$="SOUTH" |
000007c0 8b 20 e7 46 24 3d 22 45 22 20 46 24 3d 22 45 41 |. .F$="E" F$="EA|
000007d0 53 54 22 0d 02 26 15 e7 46 24 3d 22 57 22 20 46 |ST"..&..F$="W" F|
000007e0 24 3d 22 57 45 53 54 22 0d 02 30 05 e1 0d 02 3a |$="WEST"..0....:|
000007f0 49 dd a4 63 61 72 72 28 55 25 29 3a 55 25 3d 55 |I..carr(U%):U%=U|
00000800 25 2d 31 3a e7 20 55 25 3c 30 20 84 20 55 25 3e |%-1:. U%<0 . U%>|
00000810 28 4f 42 4a 2d 31 29 20 3d 30 20 8b 20 e7 20 6f |(OBJ-1) =0 . . o|
00000820 62 63 3f 55 25 3d 4d 58 2a 4d 59 2b 31 20 3d 2d |bc?U%=MX*MY+1 =-|
00000830 31 20 8b 20 3d 30 0d 02 44 59 dd a4 70 72 65 73 |1 . =0..DY..pres|
00000840 28 55 25 29 3a 55 25 3d 55 25 2d 31 3a e7 20 55 |(U%):U%=U%-1:. U|
00000850 25 3c 30 20 84 20 55 25 2b 31 3e 4f 42 4a 20 3d |%<0 . U%+1>OBJ =|
00000860 30 20 8b 20 e7 20 6f 62 63 3f 55 25 3d 4d 58 2a |0 . . obc?U%=MX*|
00000870 4d 59 2b 31 20 3d 2d 31 20 8b 20 e7 20 6f 62 63 |MY+1 =-1 . . obc|
00000880 3f 55 25 3d 52 25 20 3d 2d 31 20 8b 20 3d 30 0d |?U%=R% =-1 . =0.|
00000890 02 4e 67 dd f2 69 6e 70 75 74 3a e3 57 25 3d 31 |.Ng..input:.W%=1|
000008a0 b8 50 31 3a 56 25 3d 26 38 37 34 2b 28 57 25 2a |.P1:V%=&874+(W%*|
000008b0 31 32 29 3a e7 28 a4 70 6c 69 6e 65 28 46 24 2c |12):.(.pline(F$,|
000008c0 50 31 24 28 57 25 29 29 3d 30 20 84 20 50 31 24 |P1$(W%))=0 . P1$|
000008d0 28 57 25 29 3d 22 22 29 20 ed 3a e1 20 8b 20 e7 |(W%)="") .:. . .|
000008e0 52 25 3d 3f 56 25 20 84 20 3f 56 25 3d 32 35 35 |R%=?V% . ?V%=255|
000008f0 20 8b 20 ed 3a e1 0d 02 58 1f e7 a4 63 61 72 72 | . .:...X...carr|
00000900 28 56 25 3f 31 29 20 84 20 56 25 3f 31 3d 30 20 |(V%?1) . V%?1=0 |
00000910 8b 20 ed 3a e1 0d 02 62 1f e7 a4 63 61 72 72 28 |. .:...b...carr(|
00000920 56 25 3f 32 29 20 84 20 56 25 3f 32 3d 30 20 8b |V%?2) . V%?2=0 .|
00000930 20 ed 3a e1 0d 02 6c 1f e7 a4 70 72 65 73 28 56 | .:...l...pres(V|
00000940 25 3f 33 29 20 84 20 56 25 3f 33 3d 30 20 8b 20 |%?3) . V%?3=0 . |
00000950 ed 3a e1 0d 02 76 21 e7 20 ac a4 70 72 65 73 28 |.:...v!. ..pres(|
00000960 56 25 3f 34 29 20 84 20 56 25 3f 34 3d 30 20 8b |V%?4) . V%?4=0 .|
00000970 20 ed 3a e1 0d 02 80 17 e7 56 25 3f 35 3e 30 20 | .:......V%?5>0 |
00000980 f2 6d 65 73 73 28 56 25 3f 35 29 0d 02 8a 1e e7 |.mess(V%?5).....|
00000990 56 25 3f 36 3e 30 20 6f 62 63 3f 28 56 25 3f 36 |V%?6>0 obc?(V%?6|
000009a0 2d 31 29 3d 4d 58 2a 4d 59 0d 02 94 1e e7 56 25 |-1)=MX*MY.....V%|
000009b0 3f 37 3e 30 20 6f 62 63 3f 28 56 25 3f 37 2d 31 |?7>0 obc?(V%?7-1|
000009c0 29 3d 4d 58 2a 4d 59 0d 02 9e 20 e7 56 25 3f 38 |)=MX*MY... .V%?8|
000009d0 3e 30 20 6f 62 63 3f 28 56 25 3f 38 2d 31 29 3d |>0 obc?(V%?8-1)=|
000009e0 4d 58 2a 4d 59 2b 31 0d 02 a8 1b e7 56 25 3f 39 |MX*MY+1.....V%?9|
000009f0 3e 30 20 6f 62 63 3f 28 56 25 3f 39 2d 31 29 3d |>0 obc?(V%?9-1)=|
00000a00 52 25 0d 02 b2 13 e7 56 25 3f 31 30 3d 31 20 64 |R%.....V%?10=1 d|
00000a10 65 61 64 3d 31 0d 02 bc 1d e7 56 25 3f 31 31 3c |ead=1.....V%?11<|
00000a20 32 35 35 20 52 25 3d 56 25 3f 31 31 3a f2 6c 6f |255 R%=V%?11:.lo|
00000a30 6f 6b 0d 02 c6 09 f2 63 6f 62 63 0d 02 d0 12 5a |ok.....cobc....Z|
00000a40 25 3d 31 3a 57 25 3d 50 31 3a ed 3a e1 0d 02 da |%=1:W%=P1:.:....|
00000a50 3f dd a4 70 6c 69 6e 65 28 56 24 2c 57 24 29 3a |?..pline(V$,W$):|
00000a60 55 25 3d 30 3a e3 20 54 25 3d 31 20 b8 20 a9 57 |U%=0:. T%=1 . .W|
00000a70 24 3a e7 c1 57 24 2c 54 25 2c 31 29 3d 22 20 22 |$:..W$,T%,1)=" "|
00000a80 20 55 25 3d 55 25 2b 31 3a ed 8b ed 0d 02 e4 1e | U%=U%+1:.......|
00000a90 e7 55 25 3d 30 20 55 25 3d 32 3a e3 54 25 3d 32 |.U%=0 U%=2:.T%=2|
00000aa0 20 b8 20 32 3a e5 8d 54 42 43 0d 02 ee 42 e3 20 | . 2:..TBC...B. |
00000ab0 54 25 3d 31 20 b8 20 55 25 3a 42 5a 25 3d 30 3a |T%=1 . U%:BZ%=0:|
00000ac0 e3 49 41 25 3d 31 20 b8 20 a9 57 24 3a e7 42 5a |.IA%=1 . .W$:.BZ|
00000ad0 25 3d 30 20 80 20 c1 57 24 2c 49 41 25 2c 31 29 |%=0 . .W$,IA%,1)|
00000ae0 3d 22 20 22 20 42 5a 25 3d 49 41 25 0d 02 f8 41 |=" " BZ%=IA%...A|
00000af0 ed 3a 42 5a 24 3d c0 57 24 2c 42 5a 25 2d 31 29 |.:BZ$=.W$,BZ%-1)|
00000b00 3a 57 24 3d c2 57 24 2c a9 57 24 2d a9 42 5a 24 |:W$=.W$,.W$-.BZ$|
00000b10 2d 31 29 3a e7 20 a7 56 24 2c 42 5a 24 29 3c 31 |-1):. .V$,BZ$)<1|
00000b20 20 8c 20 54 25 3d 55 25 3a ed 3a 3d 30 0d 03 02 | . T%=U%:.:=0...|
00000b30 1a ed 3a e7 20 a7 56 24 2c 57 24 29 3c 31 20 3d |..:. .V$,W$)<1 =|
00000b40 30 20 8b 20 3d 2d 31 0d 03 0c 09 ed 3a 3d 2d 31 |0 . =-1.....:=-1|
00000b50 0d 03 16 40 dd f2 6d 6f 76 65 3a e7 20 a4 70 6c |...@..move:. .pl|
00000b60 69 6e 65 28 46 24 2c 22 4e 4f 52 54 48 22 29 20 |ine(F$,"NORTH") |
00000b70 80 20 a4 65 78 28 22 4e 22 29 20 5a 25 3d 31 3a |. .ex("N") Z%=1:|
00000b80 52 25 3d 52 25 2b 4d 58 3a f2 6c 6f 6f 6b 3a e1 |R%=R%+MX:.look:.|
00000b90 0d 03 20 39 e7 20 a4 70 6c 69 6e 65 28 46 24 2c |.. 9. .pline(F$,|
00000ba0 22 53 4f 55 54 48 22 29 20 80 20 a4 65 78 28 22 |"SOUTH") . .ex("|
00000bb0 53 22 29 20 5a 25 3d 31 3a 52 25 3d 52 25 2d 4d |S") Z%=1:R%=R%-M|
00000bc0 58 3a f2 6c 6f 6f 6b 3a e1 0d 03 2a 37 e7 20 a4 |X:.look:...*7. .|
00000bd0 70 6c 69 6e 65 28 46 24 2c 22 45 41 53 54 22 29 |pline(F$,"EAST")|
00000be0 20 80 20 a4 65 78 28 22 45 22 29 20 52 25 3d 52 | . .ex("E") R%=R|
00000bf0 25 2b 31 3a 5a 25 3d 31 3a f2 6c 6f 6f 6b 3a e1 |%+1:Z%=1:.look:.|
00000c00 0d 03 34 37 e7 20 a4 70 6c 69 6e 65 28 46 24 2c |..47. .pline(F$,|
00000c10 22 57 45 53 54 22 29 20 80 20 a4 65 78 28 22 57 |"WEST") . .ex("W|
00000c20 22 29 20 5a 25 3d 31 3a 52 25 3d 52 25 2d 31 3a |") Z%=1:R%=R%-1:|
00000c30 f2 6c 6f 6f 6b 3a e1 0d 03 3e 05 e1 0d 03 48 38 |.look:...>....H8|
00000c40 dd a4 65 78 28 42 5a 24 29 3a e7 20 a7 45 58 49 |..ex(BZ$):. .EXI|
00000c50 24 28 31 2b 52 25 20 83 4d 58 2c 31 2b 52 25 20 |$(1+R% .MX,1+R% |
00000c60 81 4d 58 29 2c 42 5a 24 29 20 8c 20 3d 2d 31 20 |.MX),BZ$) . =-1 |
00000c70 8b 20 3d 30 0d 03 52 2c dd f2 67 64 65 3a e7 20 |. =0..R,..gde:. |
00000c80 a4 70 6c 69 6e 65 28 46 24 2c 22 51 55 49 54 22 |.pline(F$,"QUIT"|
00000c90 29 20 5a 25 3d 31 3a 64 65 61 64 3d 2d 31 3a e1 |) Z%=1:dead=-1:.|
00000ca0 0d 03 5c 1d e7 20 a4 70 6c 69 6e 65 28 46 24 2c |..\.. .pline(F$,|
00000cb0 22 49 4e 56 22 29 20 f2 69 6e 76 3a e1 0d 03 66 |"INV") .inv:...f|
00000cc0 23 e7 a4 70 6c 69 6e 65 28 46 24 2c 22 4c 4f 4f |#..pline(F$,"LOO|
00000cd0 4b 22 29 20 f2 6c 6f 6f 6b 3a 5a 25 3d 31 3a e1 |K") .look:Z%=1:.|
00000ce0 0d 03 70 30 e7 a4 70 6c 69 6e 65 28 46 24 2c 22 |..p0..pline(F$,"|
00000cf0 47 45 54 22 29 20 84 20 a4 70 6c 69 6e 65 28 46 |GET") . .pline(F|
00000d00 24 2c 22 54 41 4b 45 22 29 20 f2 67 65 74 3a e1 |$,"TAKE") .get:.|
00000d10 0d 03 7a 1e e7 a4 70 6c 69 6e 65 28 46 24 2c 22 |..z...pline(F$,"|
00000d20 44 52 4f 50 22 29 20 f2 64 72 6f 70 3a e1 0d 03 |DROP") .drop:...|
00000d30 84 28 e7 a4 70 6c 69 6e 65 28 46 24 2c 22 53 41 |.(..pline(F$,"SA|
00000d40 56 45 20 47 41 4d 45 22 29 20 f2 73 61 76 65 3a |VE GAME") .save:|
00000d50 5a 25 3d 31 3a e1 0d 03 8e 26 e7 a4 70 6c 69 6e |Z%=1:....&..plin|
00000d60 65 28 46 24 2c 22 4c 4f 41 44 20 47 41 4d 45 22 |e(F$,"LOAD GAME"|
00000d70 29 20 f2 6c 64 3a 5a 25 3d 31 3a e1 0d 03 98 05 |) .ld:Z%=1:.....|
00000d80 e1 0d 03 a2 15 dd f2 67 65 74 3a e7 20 73 74 72 |.......get:. str|
00000d90 65 3c 6f 63 20 e1 0d 03 ac 2e e3 20 49 41 25 3d |e<oc ...... IA%=|
00000da0 31 20 b8 20 4f 42 4a 3a e7 20 97 28 c0 4f 42 4a |1 . OBJ:. .(.OBJ|
00000db0 24 28 49 41 25 29 2c 31 29 29 20 83 32 3c 3e 30 |$(IA%),1)) .2<>0|
00000dc0 20 ed 3a e1 0d 03 b6 16 e7 20 a4 70 72 65 73 28 | .:...... .pres(|
00000dd0 49 41 25 29 20 8b 20 ed 3a e1 0d 03 c0 14 e7 20 |IA%) . .:...... |
00000de0 a4 63 61 72 72 28 49 41 25 29 20 ed 3a e1 0d 03 |.carr(IA%) .:...|
00000df0 ca 2f e7 20 ac 20 a4 70 6c 69 6e 65 28 46 24 2c |./. . .pline(F$,|
00000e00 c2 4f 42 4a 24 28 49 41 25 29 2c a9 4f 42 4a 24 |.OBJ$(IA%),.OBJ$|
00000e10 28 49 41 25 29 2d 31 29 29 20 ed 3a e1 0d 03 d4 |(IA%)-1)) .:....|
00000e20 42 f2 66 6f 72 6d 28 36 2c 22 4f 6b 61 79 2e 22 |B.form(6,"Okay."|
00000e30 29 3a 3f 28 6f 62 63 2d 31 2b 49 41 25 29 3d 4d |):?(obc-1+IA%)=M|
00000e40 58 2a 4d 59 2b 31 3a 5a 25 3d 31 3a 49 41 25 3d |X*MY+1:Z%=1:IA%=|
00000e50 4f 42 4a 3a ed 3a 6f 63 3d 6f 63 2b 31 3a e1 0d |OBJ:.:oc=oc+1:..|
00000e60 03 de 41 dd f2 72 65 70 65 61 74 3a f1 27 22 20 |..A..repeat:.'" |
00000e70 20 20 20 20 50 72 65 73 73 20 3c 53 50 41 43 45 | Press <SPACE|
00000e80 3e 20 74 6f 20 70 6c 61 79 20 61 67 61 69 6e 2e |> to play again.|
00000e90 2e 2e 22 3a f5 20 fd 20 a6 2d 39 39 3a db 3a e1 |..":. . .-99:.:.|
00000ea0 0d 03 e8 0a dd f2 64 72 6f 70 0d 03 f2 4c e7 20 |......drop...L. |
00000eb0 6f 63 3d 30 20 e1 20 8b 20 e3 20 49 41 25 3d 31 |oc=0 . . . IA%=1|
00000ec0 20 b8 20 4f 42 4a 3a e7 20 97 28 c0 4f 42 4a 24 | . OBJ:. .(.OBJ$|
00000ed0 28 49 41 25 29 2c 31 29 29 3c 3e 30 20 80 20 97 |(IA%),1))<>0 . .|
00000ee0 28 c0 4f 42 4a 24 28 49 41 25 29 2c 31 29 29 3c |(.OBJ$(IA%),1))<|
00000ef0 3e 33 20 ed 3a e1 0d 03 fc 14 e7 ac a4 63 61 72 |>3 .:........car|
00000f00 72 28 49 41 25 29 20 ed 3a e1 0d 04 06 31 e7 20 |r(IA%) .:....1. |
00000f10 ac 20 a4 70 6c 69 6e 65 28 46 24 2c c2 4f 42 4a |. .pline(F$,.OBJ|
00000f20 24 28 49 41 25 29 2c a9 28 4f 42 4a 24 28 49 41 |$(IA%),.(OBJ$(IA|
00000f30 25 29 29 2d 31 29 29 20 ed 3a e1 0d 04 10 3d f2 |%))-1)) .:....=.|
00000f40 66 6f 72 6d 28 36 2c 22 4f 6b 61 79 2e 22 29 3a |form(6,"Okay."):|
00000f50 3f 28 6f 62 63 2d 31 2b 49 41 25 29 3d 52 25 3a |?(obc-1+IA%)=R%:|
00000f60 5a 25 3d 31 3a 49 41 25 3d 4f 42 4a 3a 6f 63 3d |Z%=1:IA%=OBJ:oc=|
00000f70 6f 63 2d 31 3a ed 3a e1 0d 04 1a 38 dd f2 69 6e |oc-1:.:....8..in|
00000f80 76 3a 4d 25 3d 30 3a e3 49 41 25 3d 31 20 b8 20 |v:M%=0:.IA%=1 . |
00000f90 4f 42 4a 3a e7 6f 62 63 3f 28 49 41 25 2d 31 29 |OBJ:.obc?(IA%-1)|
00000fa0 3d 4d 58 2a 4d 59 2b 31 20 4d 25 3d 4d 25 2b 31 |=MX*MY+1 M%=M%+1|
00000fb0 0d 04 24 46 ed 3a e7 20 4d 25 3d 30 20 5a 25 3d |..$F.:. M%=0 Z%=|
00000fc0 31 3a f2 66 6f 72 6d 28 35 2c 22 59 6f 75 20 61 |1:.form(5,"You a|
00000fd0 72 65 20 63 61 72 72 79 69 6e 67 20 6e 6f 74 68 |re carrying noth|
00000fe0 69 6e 67 20 61 74 20 74 68 65 20 6d 6f 6d 65 6e |ing at the momen|
00000ff0 74 2e 22 29 3a e1 0d 04 2e 57 f2 66 6f 72 6d 32 |t."):....W.form2|
00001000 28 30 2c 35 2c 22 59 6f 75 20 68 61 76 65 22 29 |(0,5,"You have")|
00001010 3a e3 49 41 25 3d 31 20 b8 20 4f 42 4a 3a e7 6f |:.IA%=1 . OBJ:.o|
00001020 62 63 3f 28 49 41 25 2d 31 29 3d 4d 58 2a 4d 59 |bc?(IA%-1)=MX*MY|
00001030 2b 31 20 f2 66 6f 72 6d 32 28 4d 25 2c 35 2c 4f |+1 .form2(M%,5,O|
00001040 42 44 24 28 49 41 25 29 2b 22 2c 22 29 0d 04 38 |BD$(IA%)+",")..8|
00001050 05 ed 0d 04 42 12 f1 bd 38 3b 22 2e 22 3a 5a 25 |....B...8;".":Z%|
00001060 3d 31 3a e1 0d 04 4c 56 dd f2 73 61 76 65 3a 58 |=1:...LV..save:X|
00001070 3d ae 28 22 41 44 53 41 56 45 22 29 3a f1 23 58 |=.("ADSAVE"):.#X|
00001080 2c 52 25 2c 6f 63 3a e3 49 41 25 3d 30 20 b8 20 |,R%,oc:.IA%=0 . |
00001090 4f 42 4a 2d 31 3a f1 23 58 2c 6f 62 63 3f 49 41 |OBJ-1:.#X,obc?IA|
000010a0 25 3a ed 3a d9 23 58 3a f2 66 6f 72 6d 28 36 2c |%:.:.#X:.form(6,|
000010b0 22 4f 6b 61 79 2e 22 29 3a e1 0d 04 56 49 dd f2 |"Okay."):...VI..|
000010c0 6c 64 3a 58 3d 8e 28 22 41 44 53 41 56 45 22 29 |ld:X=.("ADSAVE")|
000010d0 3a e8 23 58 2c 52 25 2c 6f 63 3a e3 49 41 25 3d |:.#X,R%,oc:.IA%=|
000010e0 30 20 b8 20 4f 42 4a 2d 31 3a e8 23 58 2c 6f 62 |0 . OBJ-1:.#X,ob|
000010f0 63 3f 49 41 25 3a ed 3a d9 23 58 3a f2 6c 6f 6f |c?IA%:.:.#X:.loo|
00001100 6b 3a e1 0d 04 60 37 dd f2 63 6f 62 63 3a 6f 63 |k:...`7..cobc:oc|
00001110 3d 30 3a e3 49 41 25 3d 30 20 b8 20 4f 42 4a 2d |=0:.IA%=0 . OBJ-|
00001120 31 3a e7 6f 62 63 3f 49 41 25 3d 4d 58 2a 4d 59 |1:.obc?IA%=MX*MY|
00001130 2b 31 20 6f 63 3d 6f 63 2b 31 0d 04 6a 07 ed 3a |+1 oc=oc+1..j..:|
00001140 e1 0d 04 74 2c dd f2 66 6f 72 6d 32 28 4c 25 2c |...t,..form2(L%,|
00001150 43 4c 2c 53 54 24 29 3a 43 4c 3d 43 4c 2b 31 32 |CL,ST$):CL=CL+12|
00001160 38 3a e7 20 4c 25 3e 30 20 f1 bd 31 31 0d 04 7e |8:. L%>0 ..11..~|
00001170 05 f5 0d 04 88 27 e7 c0 53 54 24 2c 31 29 3d 22 |.....'..ST$,1)="|
00001180 20 22 20 53 54 24 3d c2 53 54 24 2c a9 53 54 24 | " ST$=.ST$,.ST$|
00001190 2d 31 29 3a e5 8d 74 48 44 0d 04 92 56 e7 20 a9 |-1):..tHD...V. .|
000011a0 28 53 54 24 29 3c 3d 33 38 2d 4c 25 20 f1 8a 4c |(ST$)<=38-L% ..L|
000011b0 25 2c bc 29 3b bd 43 4c 3b 53 54 24 3b 3a 4d 25 |%,.);.CL;ST$;:M%|
000011c0 3d 2d b1 2a 28 b1 3c 33 37 29 3a e7 20 4d 25 3d |=-.*(.<37):. M%=|
000011d0 30 20 f1 3a fd 31 3a e1 20 8b 20 e7 20 a9 28 53 |0 .:.1:. . . .(S|
000011e0 54 24 29 3c 3d 33 38 2d 4c 25 20 fd 31 3a e1 0d |T$)<=38-L% .1:..|
000011f0 04 9c 13 45 53 24 3d c0 53 54 24 2c 33 38 2d 4c |...ES$=.ST$,38-L|
00001200 25 29 0d 04 a6 3e 4c 53 46 3d 30 3a e3 20 53 53 |%)...>LSF=0:. SS|
00001210 43 3d a9 45 53 24 20 b8 20 31 20 88 2d 31 3a e7 |C=.ES$ . 1 .-1:.|
00001220 20 c1 45 53 24 2c 53 53 43 2c 31 29 3d 22 20 22 | .ES$,SSC,1)=" "|
00001230 20 80 20 4c 53 46 3d 30 20 4c 53 46 3d 53 53 43 | . LSF=0 LSF=SSC|
00001240 0d 04 b0 05 ed 0d 04 ba 30 e7 20 4c 53 46 3d 30 |........0. LSF=0|
00001250 20 80 20 4c 25 3d 30 20 4c 53 46 3d 33 38 2d 4c | . L%=0 LSF=38-L|
00001260 25 20 8b 20 e7 20 4c 53 46 3d 30 20 f1 3a 4c 25 |% . . LSF=0 .:L%|
00001270 3d 30 3a fd 30 0d 04 c4 11 45 53 24 3d c0 45 53 |=0:.0....ES$=.ES|
00001280 24 2c 4c 53 46 29 0d 04 ce 17 53 54 24 3d c2 53 |$,LSF)....ST$=.S|
00001290 54 24 2c a9 53 54 24 2d a9 45 53 24 29 0d 04 d8 |T$,.ST$-.ES$)...|
000012a0 13 f1 8a 4c 25 2c bc 29 3b bd 43 4c 2b 45 53 24 |...L%,.);.CL+ES$|
000012b0 0d 04 e2 0d 4c 25 3d 30 3a 4d 25 3d 30 0d 04 ec |....L%=0:M%=0...|
000012c0 06 fd 30 0d ff |..0..|
000012c5 
.