A/COFFEE

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_51.ADF » A/COFFEE

A/COFFEE

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_51.ADF
Filename:	A/COFFEE
Read OK:	✔
File size:	0E36 bytes
Load address:	FFFF0E00
Exec address:	FFFF802B

Duplicates

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

AEW website » eug » eug_3_5_discs_Eug-51_A-EUG51.adf » A/COFFEE
AEW website » eug » eug_5_25_discs_Eug-51_D-EUG51.dsd » A.COFFEE
Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_51.ADF » A/COFFEE

File contents

   10MODE6:VDU23;8202;0;0;0;:PRINTTAB(12,1)"COFFEE ADVENTURE"
   20PRINT"________________________________________"
   30VDU28,0,24,39,3
   40DIMD$(9),N%(9),S%(9),E%(9),W%(9),U%(9),D%(9),OH$(9),OD$(9),OLOC%(9)
   50NLOC%=7:X%=0
   60FORI%=0TONLOC%
   70  READD$(I%),N%(I%),S%(I%),E%(I%),W%(I%),U%(I%),D%(I%)
   80NEXT
   90NOBJ%=4
  100FORI%=0TONOBJ%
  110  READOH$(I%),OD$(I%),OLOC%(I%)
  120NEXT
  130LOC%=5:BOILED%=FALSE
  140REPEAT
  150  PROCPAUSE
  160  PROCCLEARTOP
  170  PRINTTAB(0,1)"You are ";D$(LOC%);""'
  180  FORI%=0TONOBJ%
  190    IFX%=0 AND OLOC%(I%)=LOC% PRINT"You see:"'"  ";OD$(I%):X%=1:GOTO210
  200    IFX%=1 AND OLOC%(I%)=LOC% PRINT"  ";OD$(I%)
  210  NEXT
  220  X%=0
  230  PRINT'"========================================"
  240  INPUT'"What now",COM$
  250  PROCVERBNOUN
  260  IFVERB$="TAKE" THEN VERB$="GET"
  270  IFVERB$="BOIL" PROCBOIL:GOTO350
  280  IFVERB$="HELP" PROCHELP:GOTO350
  290  IFVERB$="GET" PROCGET:GOTO350
  300  IFVERB$="DROP" PROCDROP:GOTO350
  310  IFLEFT$(VERB$,1)="I" PROCINVENTORY:GOTO350
  320  IFVERB$="GO" VERB$=NOUN$
  330  PROCDIRECTION
  340  IFNOTMA% PRINT"I don't understand."
  350UNTILBOILED%ANDFNFOUNDALL
  360PRINT'''"Congratulations!!! You can now make"'"yourself a real cup of coffee as a"'"reward! (And make me one while you're"'"at it!)"''
  370INPUT"Try this adventure again (Y/N)";Q$
  380IFLEFT$(Q$,1)="Y" THEN RUN ELSE PRINT"Thanks for playing COFFEE ADVENTURE.":END
  390END
  400REM ***
  410DEFFNFOUNDALL
  420FA%=TRUE
  430FORI%=0TONOBJ%
  440  IFOLOC%(I%)<>LOC%ANDOLOC%(I%)<>99 FA%=FALSE
  450NEXT
  460=FA%
  470REM ***
  480DEFPROCBOIL
  490IFNOUN$="KETTLE"AND(LOC%=OLOC%(0)OROLOC%(0)=99) PRINT"The kettle is now boiled!":BOILED%=TRUE ELSE PRINT"You can't boil ";NOUN$
  500ENDPROC
  510REM ***
  520DEFPROCHELP
  530PRINT"This adventure's too easy for you to"'"need help!!!"
  540ENDPROC
  550REM ***
  560DEFPROCGET
  570PROCFINDOBJ
  580IFOBJI%<0OROLOC%(ABS(OBJI%))<>LOC% PRINT"I see no ";NOUN$ ELSE OLOC%(OBJI%)=99:PRINT"OK"
  590ENDPROC
  600REM ***
  610DEFPROCDROP
  620PROCFINDOBJ
  630IFOBJI%<0OROLOC%(ABS(OBJI%))<>99 PRINT"You aren't carrying ";NOUN$ ELSEOLOC%(OBJI%)=LOC%:PRINT"OK"
  640ENDPROC
  650REM ***
  660DEFPROCINVENTORY
  670PRINT"You are carrying :-"
  680NC%=TRUE
  690FORI%=0TONOBJ%
  700  IFOLOC%(I%)=99 PRINTOD$(I%):NC%=FALSE
  710NEXT
  720IFNC% PRINT"Nothing!"
  730PRINT'"Press SPACE..."
  740REPEATUNTILGET=32
  750ENDPROC
  760REM ***
  770DEFPROCDIRECTION
  780MA%=FALSE
  790C$=LEFT$(VERB$,1)
  800IFC$="N"PROCMOVE(N%(LOC%))
  810IFC$="S"PROCMOVE(S%(LOC%))
  820IFC$="E"PROCMOVE(E%(LOC%))
  830IFC$="W"PROCMOVE(W%(LOC%))
  840IFC$="U"PROCMOVE(U%(LOC%))
  850IFC$="D"PROCMOVE(D%(LOC%))
  860ENDPROC
  870REM ***
  880DEFPROCMOVE(NL%)
  890MA%=TRUE
  900IFNL%<0 PRINT"You can't go that way!" ELSE LOC%=NL%
  910ENDPROC
  920REM ***
  930DEFPROCVERBNOUN
  940I%=0:VERB$="":NOUN$=""
  950REPEAT
  960  I%=I%+1
  970  C$=MID$(COM$,I%,1)
  980  VERB$=VERB$+C$
  990UNTILC$=" " ORC$=""
 1000IFC$=" " VERB$=LEFT$(VERB$,LEN(VERB$)-1)
 1010REPEAT
 1020  I%=I%+1
 1030UNTILMID$(COM$,I%,1)<>" "
 1040I%=I%-1
 1050REPEAT
 1060  I%=I%+1
 1070  C$=MID$(COM$,I%,1)
 1080  NOUN$=NOUN$+C$
 1090UNTILC$=" "ORC$=""
 1100IF C$=" " NOUN$=LEFT$(NOUN$,LEN(NOUN$)-1)
 1110ENDPROC
 1120REM ***
 1130DEFPROCFINDOBJ
 1140OBJI%=-1:I%=0
 1150REPEAT
 1160  IFNOUN$=OH$(I%) OBJI%=I%
 1170  I%=I%+1
 1180UNTILI%>NOBJ%
 1190ENDPROC
 1200REM ***
 1210DEFPROCCLEARTOP
 1220FORR%=0TO20
 1230  PRINTTAB(0,R%)SPC(40)
 1240NEXTR%
 1250ENDPROC
 1260REM ***
 1270DEFPROCPAUSE
 1280FORR%=1TO1300:NEXTR%
 1290ENDPROC
 1300REM ***
 1310DATA "in the bedroom. A door leads    south.",-1,1,-1,-1,-1,-1
 1320DATA "on the landing. Doors lead northand east. A flight of stairs leads down.",0,-1,2,-1,-1,3
 1330DATA "in the bathroom. The door is to the west.",-1,-1,-1,1,-1,-1
 1340DATA "in the hall. The front door is  to the south. Doors also lead north and east. The stairs lead upwards.",4,7,5,-1,1,-1
 1350DATA "in the kitchen. The back door isto the north. Another door leads south.",6,3,-1,-1,-1,-1
 1360DATA "in the lounge. A door leads     west.",-1,-1,-1,3,-1,-1
 1370DATA "in the garden. The back door of the house lies to the south.",-1,4,-1,-1,-1,-1
 1380DATA "in the street. The front door ofthe house lies to the north.",3,-1,-1,-1,-1,-1
 1390DATA "KETTLE","an electic kettle (full of water)",4
 1400DATA "COFFEE","a large jar of instant coffee",4
 1410DATA "CUP","a china cup",5
 1420DATA "MILK","a pint bottle of milk",7
 1430DATA "SUGAR","a kilo bag of sugar",2


0�6:�23;8202;0;0;0;:�12,1)"COFFEE ADVENTURE"
/�"________________________________________"
�28,0,24,39,3
(E�D$(9),N%(9),S%(9),E%(9),W%(9),U%(9),D%(9),OH$(9),OD$(9),OLOC%(9)
2NLOC%=7:X%=0
<�I%=0�NLOC%
F7  �D$(I%),N%(I%),S%(I%),E%(I%),W%(I%),U%(I%),D%(I%)
P�
ZNOBJ%=4
d�I%=0�NOBJ%
n   �OH$(I%),OD$(I%),OLOC%(I%)
x�
�LOC%=5:BOILED%=�
��
�  �PAUSE
�  �CLEARTOP
�#  �0,1)"You are ";D$(LOC%);""'
�  �I%=0�NOBJ%
�B    �X%=0 � OLOC%(I%)=LOC% �"You see:"'"  ";OD$(I%):X%=1:�dR@
�,    �X%=1 � OLOC%(I%)=LOC% �"  ";OD$(I%)
�  �
�
  X%=0
�2  �'"========================================"
�  �'"What now",COM$
�  �VERBNOUN
!  �VERB$="TAKE" � VERB$="GET"
  �VERB$="BOIL" �BOIL:�D^A
  �VERB$="HELP" �HELP:�D^A
"  �VERB$="GET" �GET:�D^A
,  �VERB$="DROP" �DROP:�D^A
6%  �VERB$,1)="I" �INVENTORY:�D^A
@  �VERB$="GO" VERB$=NOUN$
J  �DIRECTION
T"  �MA% �"I don't understand."
^�BOILED%��FOUNDALL
h��'''"Congratulations!!! You can now make"'"yourself a real cup of coffee as a"'"reward! (And make me one while you're"'"at it!)"''
r(�"Try this adventure again (Y/N)";Q$
|?�Q$,1)="Y" � � � �"Thanks for playing COFFEE ADVENTURE.":�
��
�	� ***
�ݤFOUNDALL
�	FA%=�
��I%=0�NOBJ%
�*  �OLOC%(I%)<>LOC%�OLOC%(I%)<>99 FA%=�
��
�=FA%
�	� ***
�
��BOIL
�q�NOUN$="KETTLE"�(LOC%=OLOC%(0)�OLOC%(0)=99) �"The kettle is now boiled!":BOILED%=� � �"You can't boil ";NOUN$
��
�	� ***

��HELP
:�"This adventure's too easy for you to"'"need help!!!"
�
&	� ***
0	��GET
:�FINDOBJ
DM�OBJI%<0�OLOC%(�(OBJI%))<>LOC% �"I see no ";NOUN$ � OLOC%(OBJI%)=99:�"OK"
N�
X	� ***
b
��DROP
l�FINDOBJ
vW�OBJI%<0�OLOC%(�(OBJI%))<>99 �"You aren't carrying ";NOUN$ �OLOC%(OBJI%)=LOC%:�"OK"
��
�	� ***
���INVENTORY
��"You are carrying :-"
�	NC%=�
��I%=0�NOBJ%
�"  �OLOC%(I%)=99 �OD$(I%):NC%=�
��
��NC% �"Nothing!"
��'"Press SPACE..."
�
���=32
��
�	� ***
��DIRECTION
	MA%=�
C$=�VERB$,1)
 �C$="N"�MOVE(N%(LOC%))
*�C$="S"�MOVE(S%(LOC%))
4�C$="E"�MOVE(E%(LOC%))
>�C$="W"�MOVE(W%(LOC%))
H�C$="U"�MOVE(U%(LOC%))
R�C$="D"�MOVE(D%(LOC%))
\�
f	� ***
p��MOVE(NL%)
z	MA%=�
�/�NL%<0 �"You can't go that way!" � LOC%=NL%
��
�	� ***
���VERBNOUN
�I%=0:VERB$="":NOUN$=""
��
�
  I%=I%+1
�  C$=�COM$,I%,1)
�  VERB$=VERB$+C$
��C$=" " �C$=""
�$�C$=" " VERB$=�VERB$,�(VERB$)-1)
��
�
  I%=I%+1
��COM$,I%,1)<>" "
I%=I%-1
�
$
  I%=I%+1
.  C$=�COM$,I%,1)
8  NOUN$=NOUN$+C$
B�C$=" "�C$=""
L%� C$=" " NOUN$=�NOUN$,�(NOUN$)-1)
V�
`	� ***
j
��FINDOBJ
tOBJI%=-1:I%=0
~�
�  �NOUN$=OH$(I%) OBJI%=I%
�
  I%=I%+1
�
�I%>NOBJ%
��
�	� ***
���CLEARTOP
��R%=0�20
�  �0,R%)�(40)
��R%
��
�	� ***
���PAUSE
�R%=1�1300:�R%

�
	� ***
?� "in the bedroom. A door leads    south.",-1,1,-1,-1,-1,-1
(_� "on the landing. Doors lead northand east. A flight of stairs leads down.",0,-1,2,-1,-1,3
2B� "in the bathroom. The door is to the west.",-1,-1,-1,1,-1,-1
<|� "in the hall. The front door is  to the south. Doors also lead north and east. The stairs lead upwards.",4,7,5,-1,1,-1
F_� "in the kitchen. The back door isto the north. Another door leads south.",6,3,-1,-1,-1,-1
P>� "in the lounge. A door leads     west.",-1,-1,-1,3,-1,-1
ZU� "in the garden. The back door of the house lies to the south.",-1,4,-1,-1,-1,-1
dU� "in the street. The front door ofthe house lies to the north.",3,-1,-1,-1,-1,-1
n4� "KETTLE","an electic kettle (full of water)",4
x0� "COFFEE","a large jar of instant coffee",4
�� "CUP","a china cup",5
�&� "MILK","a pint bottle of milk",7
�%� "SUGAR","a kilo bag of sugar",2
�

00000000  0d 00 0a 30 eb 36 3a ef  32 33 3b 38 32 30 32 3b  |...0.6:.23;8202;|
00000010  30 3b 30 3b 30 3b 3a f1  8a 31 32 2c 31 29 22 43  |0;0;0;:..12,1)"C|
00000020  4f 46 46 45 45 20 41 44  56 45 4e 54 55 52 45 22  |OFFEE ADVENTURE"|
00000030  0d 00 14 2f f1 22 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |.../."__________|
00000040  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
00000050  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 22 0d  |______________".|
00000060  00 1e 11 ef 32 38 2c 30  2c 32 34 2c 33 39 2c 33  |....28,0,24,39,3|
00000070  0d 00 28 45 de 44 24 28  39 29 2c 4e 25 28 39 29  |..(E.D$(9),N%(9)|
00000080  2c 53 25 28 39 29 2c 45  25 28 39 29 2c 57 25 28  |,S%(9),E%(9),W%(|
00000090  39 29 2c 55 25 28 39 29  2c 44 25 28 39 29 2c 4f  |9),U%(9),D%(9),O|
000000a0  48 24 28 39 29 2c 4f 44  24 28 39 29 2c 4f 4c 4f  |H$(9),OD$(9),OLO|
000000b0  43 25 28 39 29 0d 00 32  10 4e 4c 4f 43 25 3d 37  |C%(9)..2.NLOC%=7|
000000c0  3a 58 25 3d 30 0d 00 3c  0f e3 49 25 3d 30 b8 4e  |:X%=0..<..I%=0.N|
000000d0  4c 4f 43 25 0d 00 46 37  20 20 f3 44 24 28 49 25  |LOC%..F7  .D$(I%|
000000e0  29 2c 4e 25 28 49 25 29  2c 53 25 28 49 25 29 2c  |),N%(I%),S%(I%),|
000000f0  45 25 28 49 25 29 2c 57  25 28 49 25 29 2c 55 25  |E%(I%),W%(I%),U%|
00000100  28 49 25 29 2c 44 25 28  49 25 29 0d 00 50 05 ed  |(I%),D%(I%)..P..|
00000110  0d 00 5a 0b 4e 4f 42 4a  25 3d 34 0d 00 64 0f e3  |..Z.NOBJ%=4..d..|
00000120  49 25 3d 30 b8 4e 4f 42  4a 25 0d 00 6e 20 20 20  |I%=0.NOBJ%..n   |
00000130  f3 4f 48 24 28 49 25 29  2c 4f 44 24 28 49 25 29  |.OH$(I%),OD$(I%)|
00000140  2c 4f 4c 4f 43 25 28 49  25 29 0d 00 78 05 ed 0d  |,OLOC%(I%)..x...|
00000150  00 82 14 4c 4f 43 25 3d  35 3a 42 4f 49 4c 45 44  |...LOC%=5:BOILED|
00000160  25 3d a3 0d 00 8c 05 f5  0d 00 96 0c 20 20 f2 50  |%=..........  .P|
00000170  41 55 53 45 0d 00 a0 0f  20 20 f2 43 4c 45 41 52  |AUSE....  .CLEAR|
00000180  54 4f 50 0d 00 aa 23 20  20 f1 8a 30 2c 31 29 22  |TOP...#  ..0,1)"|
00000190  59 6f 75 20 61 72 65 20  22 3b 44 24 28 4c 4f 43  |You are ";D$(LOC|
000001a0  25 29 3b 22 22 27 0d 00  b4 11 20 20 e3 49 25 3d  |%);""'....  .I%=|
000001b0  30 b8 4e 4f 42 4a 25 0d  00 be 42 20 20 20 20 e7  |0.NOBJ%...B    .|
000001c0  58 25 3d 30 20 80 20 4f  4c 4f 43 25 28 49 25 29  |X%=0 . OLOC%(I%)|
000001d0  3d 4c 4f 43 25 20 f1 22  59 6f 75 20 73 65 65 3a  |=LOC% ."You see:|
000001e0  22 27 22 20 20 22 3b 4f  44 24 28 49 25 29 3a 58  |"'"  ";OD$(I%):X|
000001f0  25 3d 31 3a e5 8d 64 52  40 0d 00 c8 2c 20 20 20  |%=1:..dR@...,   |
00000200  20 e7 58 25 3d 31 20 80  20 4f 4c 4f 43 25 28 49  | .X%=1 . OLOC%(I|
00000210  25 29 3d 4c 4f 43 25 20  f1 22 20 20 22 3b 4f 44  |%)=LOC% ."  ";OD|
00000220  24 28 49 25 29 0d 00 d2  07 20 20 ed 0d 00 dc 0a  |$(I%)....  .....|
00000230  20 20 58 25 3d 30 0d 00  e6 32 20 20 f1 27 22 3d  |  X%=0...2  .'"=|
00000240  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000260  3d 3d 3d 3d 3d 3d 3d 22  0d 00 f0 17 20 20 e8 27  |======="....  .'|
00000270  22 57 68 61 74 20 6e 6f  77 22 2c 43 4f 4d 24 0d  |"What now",COM$.|
00000280  00 fa 0f 20 20 f2 56 45  52 42 4e 4f 55 4e 0d 01  |...  .VERBNOUN..|
00000290  04 21 20 20 e7 56 45 52  42 24 3d 22 54 41 4b 45  |.!  .VERB$="TAKE|
000002a0  22 20 8c 20 56 45 52 42  24 3d 22 47 45 54 22 0d  |" . VERB$="GET".|
000002b0  01 0e 1f 20 20 e7 56 45  52 42 24 3d 22 42 4f 49  |...  .VERB$="BOI|
000002c0  4c 22 20 f2 42 4f 49 4c  3a e5 8d 44 5e 41 0d 01  |L" .BOIL:..D^A..|
000002d0  18 1f 20 20 e7 56 45 52  42 24 3d 22 48 45 4c 50  |..  .VERB$="HELP|
000002e0  22 20 f2 48 45 4c 50 3a  e5 8d 44 5e 41 0d 01 22  |" .HELP:..D^A.."|
000002f0  1d 20 20 e7 56 45 52 42  24 3d 22 47 45 54 22 20  |.  .VERB$="GET" |
00000300  f2 47 45 54 3a e5 8d 44  5e 41 0d 01 2c 1f 20 20  |.GET:..D^A..,.  |
00000310  e7 56 45 52 42 24 3d 22  44 52 4f 50 22 20 f2 44  |.VERB$="DROP" .D|
00000320  52 4f 50 3a e5 8d 44 5e  41 0d 01 36 25 20 20 e7  |ROP:..D^A..6%  .|
00000330  c0 56 45 52 42 24 2c 31  29 3d 22 49 22 20 f2 49  |.VERB$,1)="I" .I|
00000340  4e 56 45 4e 54 4f 52 59  3a e5 8d 44 5e 41 0d 01  |NVENTORY:..D^A..|
00000350  40 1d 20 20 e7 56 45 52  42 24 3d 22 47 4f 22 20  |@.  .VERB$="GO" |
00000360  56 45 52 42 24 3d 4e 4f  55 4e 24 0d 01 4a 10 20  |VERB$=NOUN$..J. |
00000370  20 f2 44 49 52 45 43 54  49 4f 4e 0d 01 54 22 20  | .DIRECTION..T" |
00000380  20 e7 ac 4d 41 25 20 f1  22 49 20 64 6f 6e 27 74  | ..MA% ."I don't|
00000390  20 75 6e 64 65 72 73 74  61 6e 64 2e 22 0d 01 5e  | understand."..^|
000003a0  16 fd 42 4f 49 4c 45 44  25 80 a4 46 4f 55 4e 44  |..BOILED%..FOUND|
000003b0  41 4c 4c 0d 01 68 86 f1  27 27 27 22 43 6f 6e 67  |ALL..h..'''"Cong|
000003c0  72 61 74 75 6c 61 74 69  6f 6e 73 21 21 21 20 59  |ratulations!!! Y|
000003d0  6f 75 20 63 61 6e 20 6e  6f 77 20 6d 61 6b 65 22  |ou can now make"|
000003e0  27 22 79 6f 75 72 73 65  6c 66 20 61 20 72 65 61  |'"yourself a rea|
000003f0  6c 20 63 75 70 20 6f 66  20 63 6f 66 66 65 65 20  |l cup of coffee |
00000400  61 73 20 61 22 27 22 72  65 77 61 72 64 21 20 28  |as a"'"reward! (|
00000410  41 6e 64 20 6d 61 6b 65  20 6d 65 20 6f 6e 65 20  |And make me one |
00000420  77 68 69 6c 65 20 79 6f  75 27 72 65 22 27 22 61  |while you're"'"a|
00000430  74 20 69 74 21 29 22 27  27 0d 01 72 28 e8 22 54  |t it!)"''..r(."T|
00000440  72 79 20 74 68 69 73 20  61 64 76 65 6e 74 75 72  |ry this adventur|
00000450  65 20 61 67 61 69 6e 20  28 59 2f 4e 29 22 3b 51  |e again (Y/N)";Q|
00000460  24 0d 01 7c 3f e7 c0 51  24 2c 31 29 3d 22 59 22  |$..|?..Q$,1)="Y"|
00000470  20 8c 20 f9 20 8b 20 f1  22 54 68 61 6e 6b 73 20  | . . . ."Thanks |
00000480  66 6f 72 20 70 6c 61 79  69 6e 67 20 43 4f 46 46  |for playing COFF|
00000490  45 45 20 41 44 56 45 4e  54 55 52 45 2e 22 3a e0  |EE ADVENTURE.":.|
000004a0  0d 01 86 05 e0 0d 01 90  09 f4 20 2a 2a 2a 0d 01  |.......... ***..|
000004b0  9a 0e dd a4 46 4f 55 4e  44 41 4c 4c 0d 01 a4 09  |....FOUNDALL....|
000004c0  46 41 25 3d b9 0d 01 ae  0f e3 49 25 3d 30 b8 4e  |FA%=......I%=0.N|
000004d0  4f 42 4a 25 0d 01 b8 2a  20 20 e7 4f 4c 4f 43 25  |OBJ%...*  .OLOC%|
000004e0  28 49 25 29 3c 3e 4c 4f  43 25 80 4f 4c 4f 43 25  |(I%)<>LOC%.OLOC%|
000004f0  28 49 25 29 3c 3e 39 39  20 46 41 25 3d a3 0d 01  |(I%)<>99 FA%=...|
00000500  c2 05 ed 0d 01 cc 08 3d  46 41 25 0d 01 d6 09 f4  |.......=FA%.....|
00000510  20 2a 2a 2a 0d 01 e0 0a  dd f2 42 4f 49 4c 0d 01  | ***......BOIL..|
00000520  ea 71 e7 4e 4f 55 4e 24  3d 22 4b 45 54 54 4c 45  |.q.NOUN$="KETTLE|
00000530  22 80 28 4c 4f 43 25 3d  4f 4c 4f 43 25 28 30 29  |".(LOC%=OLOC%(0)|
00000540  84 4f 4c 4f 43 25 28 30  29 3d 39 39 29 20 f1 22  |.OLOC%(0)=99) ."|
00000550  54 68 65 20 6b 65 74 74  6c 65 20 69 73 20 6e 6f  |The kettle is no|
00000560  77 20 62 6f 69 6c 65 64  21 22 3a 42 4f 49 4c 45  |w boiled!":BOILE|
00000570  44 25 3d b9 20 8b 20 f1  22 59 6f 75 20 63 61 6e  |D%=. . ."You can|
00000580  27 74 20 62 6f 69 6c 20  22 3b 4e 4f 55 4e 24 0d  |'t boil ";NOUN$.|
00000590  01 f4 05 e1 0d 01 fe 09  f4 20 2a 2a 2a 0d 02 08  |......... ***...|
000005a0  0a dd f2 48 45 4c 50 0d  02 12 3a f1 22 54 68 69  |...HELP...:."Thi|
000005b0  73 20 61 64 76 65 6e 74  75 72 65 27 73 20 74 6f  |s adventure's to|
000005c0  6f 20 65 61 73 79 20 66  6f 72 20 79 6f 75 20 74  |o easy for you t|
000005d0  6f 22 27 22 6e 65 65 64  20 68 65 6c 70 21 21 21  |o"'"need help!!!|
000005e0  22 0d 02 1c 05 e1 0d 02  26 09 f4 20 2a 2a 2a 0d  |".......&.. ***.|
000005f0  02 30 09 dd f2 47 45 54  0d 02 3a 0c f2 46 49 4e  |.0...GET..:..FIN|
00000600  44 4f 42 4a 0d 02 44 4d  e7 4f 42 4a 49 25 3c 30  |DOBJ..DM.OBJI%<0|
00000610  84 4f 4c 4f 43 25 28 94  28 4f 42 4a 49 25 29 29  |.OLOC%(.(OBJI%))|
00000620  3c 3e 4c 4f 43 25 20 f1  22 49 20 73 65 65 20 6e  |<>LOC% ."I see n|
00000630  6f 20 22 3b 4e 4f 55 4e  24 20 8b 20 4f 4c 4f 43  |o ";NOUN$ . OLOC|
00000640  25 28 4f 42 4a 49 25 29  3d 39 39 3a f1 22 4f 4b  |%(OBJI%)=99:."OK|
00000650  22 0d 02 4e 05 e1 0d 02  58 09 f4 20 2a 2a 2a 0d  |"..N....X.. ***.|
00000660  02 62 0a dd f2 44 52 4f  50 0d 02 6c 0c f2 46 49  |.b...DROP..l..FI|
00000670  4e 44 4f 42 4a 0d 02 76  57 e7 4f 42 4a 49 25 3c  |NDOBJ..vW.OBJI%<|
00000680  30 84 4f 4c 4f 43 25 28  94 28 4f 42 4a 49 25 29  |0.OLOC%(.(OBJI%)|
00000690  29 3c 3e 39 39 20 f1 22  59 6f 75 20 61 72 65 6e  |)<>99 ."You aren|
000006a0  27 74 20 63 61 72 72 79  69 6e 67 20 22 3b 4e 4f  |'t carrying ";NO|
000006b0  55 4e 24 20 8b 4f 4c 4f  43 25 28 4f 42 4a 49 25  |UN$ .OLOC%(OBJI%|
000006c0  29 3d 4c 4f 43 25 3a f1  22 4f 4b 22 0d 02 80 05  |)=LOC%:."OK"....|
000006d0  e1 0d 02 8a 09 f4 20 2a  2a 2a 0d 02 94 0f dd f2  |...... ***......|
000006e0  49 4e 56 45 4e 54 4f 52  59 0d 02 9e 1a f1 22 59  |INVENTORY....."Y|
000006f0  6f 75 20 61 72 65 20 63  61 72 72 79 69 6e 67 20  |ou are carrying |
00000700  3a 2d 22 0d 02 a8 09 4e  43 25 3d b9 0d 02 b2 0f  |:-"....NC%=.....|
00000710  e3 49 25 3d 30 b8 4e 4f  42 4a 25 0d 02 bc 22 20  |.I%=0.NOBJ%..." |
00000720  20 e7 4f 4c 4f 43 25 28  49 25 29 3d 39 39 20 f1  | .OLOC%(I%)=99 .|
00000730  4f 44 24 28 49 25 29 3a  4e 43 25 3d a3 0d 02 c6  |OD$(I%):NC%=....|
00000740  05 ed 0d 02 d0 14 e7 4e  43 25 20 f1 22 4e 6f 74  |.......NC% ."Not|
00000750  68 69 6e 67 21 22 0d 02  da 16 f1 27 22 50 72 65  |hing!".....'"Pre|
00000760  73 73 20 53 50 41 43 45  2e 2e 2e 22 0d 02 e4 0a  |ss SPACE..."....|
00000770  f5 fd a5 3d 33 32 0d 02  ee 05 e1 0d 02 f8 09 f4  |...=32..........|
00000780  20 2a 2a 2a 0d 03 02 0f  dd f2 44 49 52 45 43 54  | ***......DIRECT|
00000790  49 4f 4e 0d 03 0c 09 4d  41 25 3d a3 0d 03 16 10  |ION....MA%=.....|
000007a0  43 24 3d c0 56 45 52 42  24 2c 31 29 0d 03 20 1a  |C$=.VERB$,1).. .|
000007b0  e7 43 24 3d 22 4e 22 f2  4d 4f 56 45 28 4e 25 28  |.C$="N".MOVE(N%(|
000007c0  4c 4f 43 25 29 29 0d 03  2a 1a e7 43 24 3d 22 53  |LOC%))..*..C$="S|
000007d0  22 f2 4d 4f 56 45 28 53  25 28 4c 4f 43 25 29 29  |".MOVE(S%(LOC%))|
000007e0  0d 03 34 1a e7 43 24 3d  22 45 22 f2 4d 4f 56 45  |..4..C$="E".MOVE|
000007f0  28 45 25 28 4c 4f 43 25  29 29 0d 03 3e 1a e7 43  |(E%(LOC%))..>..C|
00000800  24 3d 22 57 22 f2 4d 4f  56 45 28 57 25 28 4c 4f  |$="W".MOVE(W%(LO|
00000810  43 25 29 29 0d 03 48 1a  e7 43 24 3d 22 55 22 f2  |C%))..H..C$="U".|
00000820  4d 4f 56 45 28 55 25 28  4c 4f 43 25 29 29 0d 03  |MOVE(U%(LOC%))..|
00000830  52 1a e7 43 24 3d 22 44  22 f2 4d 4f 56 45 28 44  |R..C$="D".MOVE(D|
00000840  25 28 4c 4f 43 25 29 29  0d 03 5c 05 e1 0d 03 66  |%(LOC%))..\....f|
00000850  09 f4 20 2a 2a 2a 0d 03  70 0f dd f2 4d 4f 56 45  |.. ***..p...MOVE|
00000860  28 4e 4c 25 29 0d 03 7a  09 4d 41 25 3d b9 0d 03  |(NL%)..z.MA%=...|
00000870  84 2f e7 4e 4c 25 3c 30  20 f1 22 59 6f 75 20 63  |./.NL%<0 ."You c|
00000880  61 6e 27 74 20 67 6f 20  74 68 61 74 20 77 61 79  |an't go that way|
00000890  21 22 20 8b 20 4c 4f 43  25 3d 4e 4c 25 0d 03 8e  |!" . LOC%=NL%...|
000008a0  05 e1 0d 03 98 09 f4 20  2a 2a 2a 0d 03 a2 0e dd  |....... ***.....|
000008b0  f2 56 45 52 42 4e 4f 55  4e 0d 03 ac 1a 49 25 3d  |.VERBNOUN....I%=|
000008c0  30 3a 56 45 52 42 24 3d  22 22 3a 4e 4f 55 4e 24  |0:VERB$="":NOUN$|
000008d0  3d 22 22 0d 03 b6 05 f5  0d 03 c0 0d 20 20 49 25  |="".........  I%|
000008e0  3d 49 25 2b 31 0d 03 ca  14 20 20 43 24 3d c1 43  |=I%+1....  C$=.C|
000008f0  4f 4d 24 2c 49 25 2c 31  29 0d 03 d4 14 20 20 56  |OM$,I%,1)....  V|
00000900  45 52 42 24 3d 56 45 52  42 24 2b 43 24 0d 03 de  |ERB$=VERB$+C$...|
00000910  12 fd 43 24 3d 22 20 22  20 84 43 24 3d 22 22 0d  |..C$=" " .C$="".|
00000920  03 e8 24 e7 43 24 3d 22  20 22 20 56 45 52 42 24  |..$.C$=" " VERB$|
00000930  3d c0 56 45 52 42 24 2c  a9 28 56 45 52 42 24 29  |=.VERB$,.(VERB$)|
00000940  2d 31 29 0d 03 f2 05 f5  0d 03 fc 0d 20 20 49 25  |-1).........  I%|
00000950  3d 49 25 2b 31 0d 04 06  15 fd c1 43 4f 4d 24 2c  |=I%+1......COM$,|
00000960  49 25 2c 31 29 3c 3e 22  20 22 0d 04 10 0b 49 25  |I%,1)<>" "....I%|
00000970  3d 49 25 2d 31 0d 04 1a  05 f5 0d 04 24 0d 20 20  |=I%-1.......$.  |
00000980  49 25 3d 49 25 2b 31 0d  04 2e 14 20 20 43 24 3d  |I%=I%+1....  C$=|
00000990  c1 43 4f 4d 24 2c 49 25  2c 31 29 0d 04 38 14 20  |.COM$,I%,1)..8. |
000009a0  20 4e 4f 55 4e 24 3d 4e  4f 55 4e 24 2b 43 24 0d  | NOUN$=NOUN$+C$.|
000009b0  04 42 11 fd 43 24 3d 22  20 22 84 43 24 3d 22 22  |.B..C$=" ".C$=""|
000009c0  0d 04 4c 25 e7 20 43 24  3d 22 20 22 20 4e 4f 55  |..L%. C$=" " NOU|
000009d0  4e 24 3d c0 4e 4f 55 4e  24 2c a9 28 4e 4f 55 4e  |N$=.NOUN$,.(NOUN|
000009e0  24 29 2d 31 29 0d 04 56  05 e1 0d 04 60 09 f4 20  |$)-1)..V....`.. |
000009f0  2a 2a 2a 0d 04 6a 0d dd  f2 46 49 4e 44 4f 42 4a  |***..j...FINDOBJ|
00000a00  0d 04 74 11 4f 42 4a 49  25 3d 2d 31 3a 49 25 3d  |..t.OBJI%=-1:I%=|
00000a10  30 0d 04 7e 05 f5 0d 04  88 1d 20 20 e7 4e 4f 55  |0..~......  .NOU|
00000a20  4e 24 3d 4f 48 24 28 49  25 29 20 4f 42 4a 49 25  |N$=OH$(I%) OBJI%|
00000a30  3d 49 25 0d 04 92 0d 20  20 49 25 3d 49 25 2b 31  |=I%....  I%=I%+1|
00000a40  0d 04 9c 0d fd 49 25 3e  4e 4f 42 4a 25 0d 04 a6  |.....I%>NOBJ%...|
00000a50  05 e1 0d 04 b0 09 f4 20  2a 2a 2a 0d 04 ba 0e dd  |....... ***.....|
00000a60  f2 43 4c 45 41 52 54 4f  50 0d 04 c4 0c e3 52 25  |.CLEARTOP.....R%|
00000a70  3d 30 b8 32 30 0d 04 ce  12 20 20 f1 8a 30 2c 52  |=0.20....  ..0,R|
00000a80  25 29 89 28 34 30 29 0d  04 d8 07 ed 52 25 0d 04  |%).(40).....R%..|
00000a90  e2 05 e1 0d 04 ec 09 f4  20 2a 2a 2a 0d 04 f6 0b  |........ ***....|
00000aa0  dd f2 50 41 55 53 45 0d  05 00 12 e3 52 25 3d 31  |..PAUSE.....R%=1|
00000ab0  b8 31 33 30 30 3a ed 52  25 0d 05 0a 05 e1 0d 05  |.1300:.R%.......|
00000ac0  14 09 f4 20 2a 2a 2a 0d  05 1e 3f dc 20 22 69 6e  |... ***...?. "in|
00000ad0  20 74 68 65 20 62 65 64  72 6f 6f 6d 2e 20 41 20  | the bedroom. A |
00000ae0  64 6f 6f 72 20 6c 65 61  64 73 20 20 20 20 73 6f  |door leads    so|
00000af0  75 74 68 2e 22 2c 2d 31  2c 31 2c 2d 31 2c 2d 31  |uth.",-1,1,-1,-1|
00000b00  2c 2d 31 2c 2d 31 0d 05  28 5f dc 20 22 6f 6e 20  |,-1,-1..(_. "on |
00000b10  74 68 65 20 6c 61 6e 64  69 6e 67 2e 20 44 6f 6f  |the landing. Doo|
00000b20  72 73 20 6c 65 61 64 20  6e 6f 72 74 68 61 6e 64  |rs lead northand|
00000b30  20 65 61 73 74 2e 20 41  20 66 6c 69 67 68 74 20  | east. A flight |
00000b40  6f 66 20 73 74 61 69 72  73 20 6c 65 61 64 73 20  |of stairs leads |
00000b50  64 6f 77 6e 2e 22 2c 30  2c 2d 31 2c 32 2c 2d 31  |down.",0,-1,2,-1|
00000b60  2c 2d 31 2c 33 0d 05 32  42 dc 20 22 69 6e 20 74  |,-1,3..2B. "in t|
00000b70  68 65 20 62 61 74 68 72  6f 6f 6d 2e 20 54 68 65  |he bathroom. The|
00000b80  20 64 6f 6f 72 20 69 73  20 74 6f 20 74 68 65 20  | door is to the |
00000b90  77 65 73 74 2e 22 2c 2d  31 2c 2d 31 2c 2d 31 2c  |west.",-1,-1,-1,|
00000ba0  31 2c 2d 31 2c 2d 31 0d  05 3c 7c dc 20 22 69 6e  |1,-1,-1..<|. "in|
00000bb0  20 74 68 65 20 68 61 6c  6c 2e 20 54 68 65 20 66  | the hall. The f|
00000bc0  72 6f 6e 74 20 64 6f 6f  72 20 69 73 20 20 74 6f  |ront door is  to|
00000bd0  20 74 68 65 20 73 6f 75  74 68 2e 20 44 6f 6f 72  | the south. Door|
00000be0  73 20 61 6c 73 6f 20 6c  65 61 64 20 6e 6f 72 74  |s also lead nort|
00000bf0  68 20 61 6e 64 20 65 61  73 74 2e 20 54 68 65 20  |h and east. The |
00000c00  73 74 61 69 72 73 20 6c  65 61 64 20 75 70 77 61  |stairs lead upwa|
00000c10  72 64 73 2e 22 2c 34 2c  37 2c 35 2c 2d 31 2c 31  |rds.",4,7,5,-1,1|
00000c20  2c 2d 31 0d 05 46 5f dc  20 22 69 6e 20 74 68 65  |,-1..F_. "in the|
00000c30  20 6b 69 74 63 68 65 6e  2e 20 54 68 65 20 62 61  | kitchen. The ba|
00000c40  63 6b 20 64 6f 6f 72 20  69 73 74 6f 20 74 68 65  |ck door isto the|
00000c50  20 6e 6f 72 74 68 2e 20  41 6e 6f 74 68 65 72 20  | north. Another |
00000c60  64 6f 6f 72 20 6c 65 61  64 73 20 73 6f 75 74 68  |door leads south|
00000c70  2e 22 2c 36 2c 33 2c 2d  31 2c 2d 31 2c 2d 31 2c  |.",6,3,-1,-1,-1,|
00000c80  2d 31 0d 05 50 3e dc 20  22 69 6e 20 74 68 65 20  |-1..P>. "in the |
00000c90  6c 6f 75 6e 67 65 2e 20  41 20 64 6f 6f 72 20 6c  |lounge. A door l|
00000ca0  65 61 64 73 20 20 20 20  20 77 65 73 74 2e 22 2c  |eads     west.",|
00000cb0  2d 31 2c 2d 31 2c 2d 31  2c 33 2c 2d 31 2c 2d 31  |-1,-1,-1,3,-1,-1|
00000cc0  0d 05 5a 55 dc 20 22 69  6e 20 74 68 65 20 67 61  |..ZU. "in the ga|
00000cd0  72 64 65 6e 2e 20 54 68  65 20 62 61 63 6b 20 64  |rden. The back d|
00000ce0  6f 6f 72 20 6f 66 20 74  68 65 20 68 6f 75 73 65  |oor of the house|
00000cf0  20 6c 69 65 73 20 74 6f  20 74 68 65 20 73 6f 75  | lies to the sou|
00000d00  74 68 2e 22 2c 2d 31 2c  34 2c 2d 31 2c 2d 31 2c  |th.",-1,4,-1,-1,|
00000d10  2d 31 2c 2d 31 0d 05 64  55 dc 20 22 69 6e 20 74  |-1,-1..dU. "in t|
00000d20  68 65 20 73 74 72 65 65  74 2e 20 54 68 65 20 66  |he street. The f|
00000d30  72 6f 6e 74 20 64 6f 6f  72 20 6f 66 74 68 65 20  |ront door ofthe |
00000d40  68 6f 75 73 65 20 6c 69  65 73 20 74 6f 20 74 68  |house lies to th|
00000d50  65 20 6e 6f 72 74 68 2e  22 2c 33 2c 2d 31 2c 2d  |e north.",3,-1,-|
00000d60  31 2c 2d 31 2c 2d 31 2c  2d 31 0d 05 6e 34 dc 20  |1,-1,-1,-1..n4. |
00000d70  22 4b 45 54 54 4c 45 22  2c 22 61 6e 20 65 6c 65  |"KETTLE","an ele|
00000d80  63 74 69 63 20 6b 65 74  74 6c 65 20 28 66 75 6c  |ctic kettle (ful|
00000d90  6c 20 6f 66 20 77 61 74  65 72 29 22 2c 34 0d 05  |l of water)",4..|
00000da0  78 30 dc 20 22 43 4f 46  46 45 45 22 2c 22 61 20  |x0. "COFFEE","a |
00000db0  6c 61 72 67 65 20 6a 61  72 20 6f 66 20 69 6e 73  |large jar of ins|
00000dc0  74 61 6e 74 20 63 6f 66  66 65 65 22 2c 34 0d 05  |tant coffee",4..|
00000dd0  82 1b dc 20 22 43 55 50  22 2c 22 61 20 63 68 69  |... "CUP","a chi|
00000de0  6e 61 20 63 75 70 22 2c  35 0d 05 8c 26 dc 20 22  |na cup",5...&. "|
00000df0  4d 49 4c 4b 22 2c 22 61  20 70 69 6e 74 20 62 6f  |MILK","a pint bo|
00000e00  74 74 6c 65 20 6f 66 20  6d 69 6c 6b 22 2c 37 0d  |ttle of milk",7.|
00000e10  05 96 25 dc 20 22 53 55  47 41 52 22 2c 22 61 20  |..%. "SUGAR","a |
00000e20  6b 69 6c 6f 20 62 61 67  20 6f 66 20 73 75 67 61  |kilo bag of suga|
00000e30  72 22 2c 32 0d ff                                 |r",2..|
00000e36

A/COFFEE.m0

A/COFFEE.m1

A/COFFEE.m2

A/COFFEE.m4

A/COFFEE.m5

Our privacy policy is here.
Last updated: 13 Jul 2024, 14:29 UTC
Website designed by .