"� >$.!ALPS.Resources.!RunImage
+� (C) 1989 P. Hawthorne/Alpine Software

(*� � errflag=�error:� errflag=1 � � � �
2 
<
F� OSbuffer 10
P5ș "XOS_ReadVarVal","Alps$ShowAddress",OSbuffer,8
Z� ?OSbuffer = �"1" �
d   showit=�
n�
x   showit=�
��
�6ș "XOS_ReadVarVal","Alps$NoMouseInput",OSbuffer,8
�� ?OSbuffer = �"1" �
�   load_buttons=�
��
�   load_buttons=�
��
�
�
�mode%=�getmode
��getmodeinfo(mode%)
�
�init2
�

*FX200,1



� showit �

"� 7

,&�"User code address= ";usercode%:�

6�

@

J)optionname$="<AlpsGame$Data>.Options"

Tbarfgcol=0:barbgcol=1

^

h%� key$(13):� Function key strings

r(� bary(3,2):� rgb bar graph y coords

|

�area_size%=scrnsize+100

�

�2� area% area_size%:� Sprite area (for screens)

�

�� bar=1 � 3

�<  � bary(bar,1),bary(bar,2):� read bottom and top coords

�	� bar

�

�� 445,477,386,418,327,359

�

�

�� PICCYload

�
1test1 = �("<Alps$Pictures>LoaderPic"):�#test1
� test1<>0 �
.�("SCREENLOAD <Alps$Pictures>LoaderPic"):�
N�=0:� � �>500
X�
b
l
� mode%:�
v
�)�load_pal("<AlpsGame$Data>.!Palette")
�"*PRINT <AlpsGame$Data>.charset
�
�� Load buttons?
�� load_buttons �
��
�5� "LOAD <AlpsGame$Resources>buttons "+�~(area%+4)
�!area%=area_size%
�@ș "Wimp_ReadPixTrans",&200,area%,area%+16,0,0,0,scale,pixtr
�:ș "OS_SpriteOp",&234,area%,area%+16,0,0,8,scale,pixtr
�!�28,0,textrows%-5,textcols%,0
��
��
�28,0,textrows%,textcols%,0
�

 
**FX15,0
4� load_buttons �
>   *POINTER
H   ȗ �
R   ȗ � 550,48
\�
f
pin%=�(optionname$)
zchoice=�
� � in%<>0 � choice=�load(in%)
�� choice � �ttE
�
��4
��
�)ș "Wimp_SetColour",131:�col(135):�:�
�/�col(11):�28,1)"FUNCTION KEY DEFINITIONS"'
��col(15)
�sm$="You may enter up to twelve extra command strings to be operated by the Archimedes function keys F1 to F12."
�� load_buttons �
�e   m$+=" These command strings are in addition to the commands along the 'button console' below."
��
�
ș "OS_PrettyPrint",m$
�'
nș "OS_PrettyPrint","Note that you can use '|M' to simulate a <RETURN> key being pressed in your command."
$
.  �
8
  *FX21,0
B
L  � key=1 � 12
V    �col(14)
`+    �2,key+10);"String for F";key;":";
j    �col(12)
t8    key$(key)=�enter_word(60," ",�60," "),17,key+10)
~C    � >>>>>>>> scrap all the spaces on the rhs bar one <<<<<<<<
�    ȕ �key$(key),1)=" "
�0       key$(key)=�key$(key), �(key$(key))-1)
�	    �
�#    key$(key) = key$(key) + " "
�#    �("KEY"+�key+" "+key$(key))
�  � key
�
�  �
�  � load_buttons �
�5     � SYS "OS_SpriteOp",546,area%,area%+16,0,0,8
�?     ș "OS_SpriteOp",&234,area%,area%+16,0,0,8,scale,pixtr
�C     msg$="Is this OK? Click 'YES' or 'NO' or press 'Y' or 'N'"
  �

(     msg$="Is this OK? Press Y or N"
  �
  �col(11):�''msg$
(  key=0
2
<  �:ȗ X%,Y%,B%:A$=�(0)
F  � A$="Y" � A$="y" � key=7
P  � A$="N" � A$="n" � key=8
Z@    � B%=4 � load_buttons:�in(X%,Y%,key):�:ȗX%,Y%,B%:� B%=0
d  � key=7 � key=8
n
x� key=7
�
��
�Q�WriteOutFile:�col(0):�''"These function keys have been saved for future use"
�
�A=�(200)
�� 24,0;144;scrw;scrh;
�1�col(131):ș "Wimp_SetColour",131:�:�:�col(3)
�
�
��load_files
�*FX225,1
��run
�*FX200,0

� 26:�
� 4
�"Adventure finished."
"�
,
6� �in(X%,Y%,� com)
@com=0:row=99
J� Y%>79 � Y%<125 row=1
T� Y%>0 � Y%<51 row=0
^col=(X%-minx) � (width) + 1
h&� col<=rowlen � com=col+rowlen*row
r�
|
�� �load(in%)
��4
�I�col(7):�col(131):�:�0,5);" Load your saved function key settings? "
�� load_buttons �
�7   msg$="Click 'YES' or 'NO', or press 'Y' or 'N'."
��
�   msg$="Press 'Y' or 'N'."
��
��'''msg$
�	key=0
��
�  ȗ X%,Y%,B%:A$=�(0)
�  � A$="Y" � A$="y" � key=7
  � A$="N" � A$="n" � key=8
*  � B%=4 � load_buttons:�in(X%,Y%,key)
� key=7 � key=8
&*� key=7 �ReadInFile(in%):=� � �#in%:=�
0
:� �ReadInFile(chan%)
D
N� K%=1 � 12
X  �#chan%,key$(K%)
b"  �("KEY "+�(K%)+" "+key$(K%))
l�
v
�� #chan%
��
�
�� �WriteOutFile
�
�chan%=� optionname$
�
�� K%=1 � 12
�  �#chan%,key$(K%)
��
�
��#chan%
��


� �error
 *POINTER 1
*
ȗ � 1
4
>#ș "Wimp_SetColour",1:width=700
H%reportwidth=(�(�$)+�(�(�))+12)*16
R+� width<reportwidth � width=reportwidth
\ȓ Ȑ 200,300,width,204
fȗ ȓ 200,300,width,204
pCș "Wimp_SetColour",7:� 5:� 216,450:�"System reports an error:"
z*� 216,400:� �$;:� �>0 � �" at line ";�
�Zș "Wimp_SetColour",3:ȓ Ȑ 560,320,140,32:� 568,348:ș "Wimp_SetColour",7:�"CONTINUE"
�Uș "Wimp_SetColour",3:ȓ Ȑ 360,320,76,32:� 368,348:ș "Wimp_SetColour",7:�"QUIT"
�
�
flag=0
��
�  �
�	    �
�      ȗ X,Y,B
�
    � B=4
�  � Y>320 � Y<356
�
�� X>560 � X<700 � flag=2
�� X>360 � X<436 � flag=1
	
	� flag=1 � flag=2
	
	$ș "Wimp_SetColour",0
	.ȓ Ȑ 200,300,width,204
	8	� 4:�
	Bȗ ȓ 0,0,1279,1023
	L
	V� load_buttons � flag=2
	`   ȗ �
	j�
	t
	~	=flag
	�
	�
	�� �init2
	�ș "Wimp_CloseDown"
	�minx=32
	�width=80
	�	y%=72
	�X%=minx:Y%=y%
	�$sprites=26:� Number of 'buttons'
	�rowlen=sprites � 2
	�XL=448:XR=XL+255
	�
'� Manifest constants for the system

2maxrms=1000:maxobs=255:maxsw%=10:maxtokens=128
1maxlen=10:� Maximum word length in vocabulary

(3� Room and object data block lengths (in bytes)
2r_len=74:o_len=16
<
F5maxmsg=65535:maxobn=255:maxvbn=255:maxconst=65535
PEmaxadj=255:maxprep=50:maxconj=50:maxspec=10:maxnoise=10:maxpix=50
Z
dnoun_size=3000
nverb_size=3000
xadjc_size=1000
�.prep_size=200 :� Size of prepositions list
�.conj_size=100 :� size of conjunctions list
�<spec_size=100 :� size of 'specials' list (IT, THEM, ALL)
�4noise_size=100:� size of 'noise' list (THE,A,AN)
�=aref_size=2000:� size of adjective object reference table
�9nref_size=2000:� size of nouns object reference table
�-pix_size=1000:� size of pix filename list
�
�@ș "OS_File",5,"<AlpsGame$Data>.Program" � ftype,,,,codesize
�@ș "OS_File",5,"<AlpsGame$Data>.Text"    � ftype,,,,maxtext%
�
�dict_size=1000
�
�� nouns noun_size,verbs verb_size,adjects adjc_size,preps prep_size,conjs conj_size,specs spec_size,noise noise_size,pixs pix_size

:� aref aref_size,nref nref_size,verb_type 2*(maxvbn+1)
"<� Set up data areas for rooms and objects and clear them
,
6B� rdata% (maxrms+1)*r_len,odata% (maxobs+1)*o_len,controom% 12
@
J*num_vars=60:� Number of ALPS variables
T.var_size=num_vars*2:� 2 bytes per variable
^
h� Set up the save buffers
r+initareasize=7*(maxobs+1)+22*(maxrms+1)
|=� initsave initareasize,ramsave initareasize+var_size+128
�
�� Area for storing messages
�� text% maxtext%
�
�datavalid=�
�
�� Set up the dictionary
�� dict% dict_size
�
�� Set up the program area
�
�� program% codesize
�
'� Dimension the other arrays needed

ucsize=500
&Gș "OS_File",5,"<AlpsGame$Resources>ASIobjcode" � ftype,,,,codesize
0Iș "OS_File",5,"<AlpsGame$Resources>pbytes"     � ftype,,,,pbyte_size
:
D8� pbytes pbyte_size,work% &1100,asicode% codesize+10
N
X(� usercode% ucsize,scale 15,pixtr 15
b
lrun=asicode%
v
�8�("LOAD <AlpsGame$Resources>ASIobjcode "+�~asicode%)
��
�
�
�
� �run
�� �
�:err_col=11:�col(130):�col(7):ș "Wimp_SetColour",128+2
�a� � �:�col(err_col):� �<>17 �'"Interpreter reports a run-time error: "�$:� �d@M � �'�$:� �d@M
�!work%=rdata%
�work%!4=verbs+3
�work%!8=nouns+3
�work%!12=program%+4
�work%!16=text%+7

work%!20=dict%+3

work%!24=odata%

work%!28=adjects+3

 work%!32=preps+3

*work%!36=conjs+3

4work%!40=specs+3

>work%!44=noise+3

Hwork%!48=pixs+3

R�  work%!52 is reserved

\work%!56=initsave

fwork%!60=last_room

pwork%!64=last_object+1

z�

�� 24,0;144;scrw;scrh;

��

��

�+A%=verb_type:B%=nref:C%=aref:D%=ramsave

�-E%=pbytes:F%=work%:G%=area%:H%=area_size%

�	� run

�� �

��

�

�

�� �load_vocab

�(�load_nouns("<AlpsGame$Data>.Nouns")

�(�load_verbs("<AlpsGame$Data>.Verbs")
/�load_adjects("<AlpsGame$Data>.Adjectives")
)�load_preps("<AlpsGame$Data>.Prepos")
)�load_conj("<AlpsGame$Data>.Conjunc")
$*�load_spec("<AlpsGame$Data>.Specials")
.(�load_noise("<AlpsGame$Data>.Noise")
8,�load_vtypes("<AlpsGame$Data>.VerbType")
B'�load_nrefs("<AlpsGame$Data>.Nref")
L'�load_arefs("<AlpsGame$Data>.Aref")
V�
`
j� �load_nouns(file$)
t� file$="" �
~�error(16,"")
��
�� "LOAD "+file$+" "+�~nouns
�obn=?nouns
�(nxtobj=nouns+(nouns?1+256*(nouns?2))
��
��
�
�� �load_verbs(file$)
�� file$="" �
��error(16,"")
��
�� "LOAD "+file$+" "+�~verbs
vbn=?verbs

(nxtvrb=verbs+(verbs?1+256*(verbs?2))
�
�
(
2� �load_adjects(file$)
<� file$="" �
F�error(16,"")
P�
Z!� "LOAD "+file$+" "+�~adjects
dadn=?adjects
n.nxtadj=adjects+(adjects?1+256*(adjects?2))
x�
��
�
�� �load_preps(file$)
�� file$="" �
��error(16,"")
��
�� "LOAD "+file$+" "+�~preps
�prn=?preps
�(nxtprp=preps+(preps?1+256*(preps?2))
��
��
�
�� �load_conj(file$)
� file$="" �
�error(16,"")
�
"� "LOAD "+file$+" "+�~conjs
,cjn=?conjs
6(nxtcjn=conjs+(conjs?1+256*(conjs?2))
@�
J�
T
^� �load_spec(file$)
h� file$="" �
r�error(16,"")
|�
�� "LOAD "+file$+" "+�~specs
�spn=?specs
�(nxtspn=specs+(specs?1+256*(specs?2))
��
��
�
�� �load_noise(file$)
�� file$="" �
��error(16,"")
��
�� "LOAD "+file$+" "+�~noise
�nsn=?noise
�(nxtnsn=noise+(noise?1+256*(noise?2))
�
�

&� �load_vtypes(file$)
0� file$="" �
:�error(16,"")
D�
N#� "LOAD "+file$+" "+�~verb_type
X�
b�
l
v� �load_arefs(file$)
�� file$="" �
��error(16,"")
��
�� "LOAD "+file$+" "+�~aref
��
��
�
�� �load_nrefs(file$)
�� file$="" �
��error(16,"")
��
�� "LOAD "+file$+" "+�~nref
��
�

� �load_objs(file$)
 � file$="" �
*�error(16,"")
4�
> � "LOAD "+file$+" "+�~odata%
Hoptr=odata%?14
Rlast_object=odata%?15
\�
f�
p
z� �load_rooms(file$)
�� file$="" �
��error(16,"")
��
� � "LOAD "+file$+" "+�~rdata%
�rptr=!rdata% � &FFFF
�'last_room=(!rdata% � &FFFF0000)>>16
��
��
�
�� �load_pix(file$)
�� file$="" �
��error(16,"")
��
� "LOAD "+file$+" "+�~pixs

pxn=?pixs
%nxtpxn=pixs+(pixs?1+256*(pixs?2))
$�
.�
8
B� �load_program(file$)
L� file$="" �
V�error(16,"")
`�
j"� "LOAD "+file$+" "+�~program%
t�
~�
�
�� �load_text(file$)
�� file$="" �
��error(16,"")
��
�� "LOAD "+file$+" "+�~text%
�
mptr=1
��
��
�
�� �load_dict(file$)
�� I%,L%
� file$="" �

�error(16,"")
�
� "LOAD "+file$+" "+�~dict%
(tok%=dict%?2:L%=0
2!� tok%=0 tok%=128 � tok%-=128
<�
F�
P
Z� �load_files
d)�load_objs("<AlpsGame$Data>.Objects")
n(�load_rooms("<AlpsGame$Data>.Rooms")
x)�load_pix("<AlpsGame$Data>.Pictures")
��load_vocab
�,�load_program("<AlpsGame$Data>.Program")
�&�load_text("<AlpsGame$Data>.Text")
�&�load_dict("<AlpsGame$Data>.Dict")
�1� "LOAD <AlpsGame$Resources>pbytes "+�~pbytes
��
�
�� �getmode
�%in%=�("<AlpsGame$Data>.GameData")
�mode%=�#in%
�	�#in%
�
=mode%
�

'� �enter_word(len%,ch$,wd$,wx%,wy%)

� key,Po%
"*FX 4,1
,	Po%=0
6�
@� �wx%+Po%,wy%);
J*FX15,0
T�
^	key=�
h� key>31 � key=13
r� (key=127) �
|.� �-1 � wd$=�wd$,Po%)+�wd$,len%-Po%-1)+ch$
�� (Po%>0 � � �-1) �
�-Po%-=1:wd$=�wd$,Po%)+�wd$,len%-Po%-1)+ch$
��
��
�%� key=137 � Po%+1<len% � Po%+=(1)
�� key=136 � Po%>0 � Po%-=1
�� (key>31 � key<127) �
�K%=�
�� lp%=Po% � len%
�'� �wd$,lp%,1)=ch$ � Po%<len% � K%=�
��
�
� K% �
�)wd$=�wd$,Po%)+�(key)+�wd$,len%-Po%-1)
Po%+=(1)
�
�
&� �wx%,wy%);wd$;
0� key=13
:*FX 4,0
D=wd$
N
X
b� �getmodeinfo(mode)
l� x,y,xeig,yeig,cols
v
�1ș "OS_ReadModeVariable",mode,1 � ,,textcols%
�1ș "OS_ReadModeVariable",mode,2 � ,,textrows%
�text_maxllen%=textcols%-2
�,ș "OS_ReadModeVariable",mode,3 � ,,cols
�,ș "OS_ReadModeVariable",mode,4 � ,,xeig
�,ș "OS_ReadModeVariable",mode,5 � ,,yeig
�0ș "OS_ReadModeVariable",mode,7 � ,,scrnsize
�*ș "OS_ReadModeVariable",mode,11 � ,,x
�*ș "OS_ReadModeVariable",mode,12 � ,,y
�-scrw=((x+1)<<xeig)-1:scrh=((y+1)<<yeig)-1
��
�
�� �col(color)
ș "Wimp_TextColour",color
�

 � �load_pal(f$)
*
� in%,col
4
in%=�(f$)
>� col=0 � 19
HQ  � col<16 col1=col:col2=16 � � col=16 col1=col:col2=24 � col1=col-16:col2=25
R  r=�#in%:g=�#in%:b=�#in%
\  � 19,col1,col2,r,g,b
f	� col
p	�#in%
z�
�
�

00000000  0d 00 0a 22 f4 20 3e 24  2e 21 41 4c 50 53 2e 52  |...". >$.!ALPS.R|
00000010  65 73 6f 75 72 63 65 73  2e 21 52 75 6e 49 6d 61  |esources.!RunIma|
00000020  67 65 0d 00 14 2b f4 20  28 43 29 20 31 39 38 39  |ge...+. (C) 1989|
00000030  20 50 2e 20 48 61 77 74  68 6f 72 6e 65 2f 41 6c  | P. Hawthorne/Al|
00000040  70 69 6e 65 20 53 6f 66  74 77 61 72 65 0d 00 1e  |pine Software...|
00000050  04 0d 00 28 2a ee 20 85  20 65 72 72 66 6c 61 67  |...(*. . errflag|
00000060  3d a4 65 72 72 6f 72 3a  e7 20 65 72 72 66 6c 61  |=.error:. errfla|
00000070  67 3d 31 20 8c 20 e0 20  8b 20 f9 0d 00 32 05 20  |g=1 . . . ...2. |
00000080  0d 00 3c 04 0d 00 46 11  de 20 4f 53 62 75 66 66  |..<...F.. OSbuff|
00000090  65 72 20 31 30 0d 00 50  35 c8 99 20 22 58 4f 53  |er 10..P5.. "XOS|
000000a0  5f 52 65 61 64 56 61 72  56 61 6c 22 2c 22 41 6c  |_ReadVarVal","Al|
000000b0  70 73 24 53 68 6f 77 41  64 64 72 65 73 73 22 2c  |ps$ShowAddress",|
000000c0  4f 53 62 75 66 66 65 72  2c 38 0d 00 5a 18 e7 20  |OSbuffer,8..Z.. |
000000d0  3f 4f 53 62 75 66 66 65  72 20 3d 20 97 22 31 22  |?OSbuffer = ."1"|
000000e0  20 8c 0d 00 64 0f 20 20  20 73 68 6f 77 69 74 3d  | ...d.   showit=|
000000f0  b9 0d 00 6e 05 cc 0d 00  78 0f 20 20 20 73 68 6f  |...n....x.   sho|
00000100  77 69 74 3d a3 0d 00 82  05 cd 0d 00 8c 36 c8 99  |wit=.........6..|
00000110  20 22 58 4f 53 5f 52 65  61 64 56 61 72 56 61 6c  | "XOS_ReadVarVal|
00000120  22 2c 22 41 6c 70 73 24  4e 6f 4d 6f 75 73 65 49  |","Alps$NoMouseI|
00000130  6e 70 75 74 22 2c 4f 53  62 75 66 66 65 72 2c 38  |nput",OSbuffer,8|
00000140  0d 00 96 18 e7 20 3f 4f  53 62 75 66 66 65 72 20  |..... ?OSbuffer |
00000150  3d 20 97 22 31 22 20 8c  0d 00 a0 15 20 20 20 6c  |= ."1" .....   l|
00000160  6f 61 64 5f 62 75 74 74  6f 6e 73 3d a3 0d 00 aa  |oad_buttons=....|
00000170  05 cc 0d 00 b4 15 20 20  20 6c 6f 61 64 5f 62 75  |......   load_bu|
00000180  74 74 6f 6e 73 3d b9 0d  00 be 05 cd 0d 00 c8 04  |ttons=..........|
00000190  0d 00 d2 04 0d 00 dc 12  6d 6f 64 65 25 3d a4 67  |........mode%=.g|
000001a0  65 74 6d 6f 64 65 0d 00  e6 17 f2 67 65 74 6d 6f  |etmode.....getmo|
000001b0  64 65 69 6e 66 6f 28 6d  6f 64 65 25 29 0d 00 f0  |deinfo(mode%)...|
000001c0  0a f2 69 6e 69 74 32 0d  00 fa 04 0d 01 04 0c 2a  |..init2........*|
000001d0  46 58 32 30 30 2c 31 0d  01 0e 04 0d 01 18 0e e7  |FX200,1.........|
000001e0  20 73 68 6f 77 69 74 20  8c 0d 01 22 07 ef 20 37  | showit ...".. 7|
000001f0  0d 01 2c 26 f1 22 55 73  65 72 20 63 6f 64 65 20  |..,&."User code |
00000200  61 64 64 72 65 73 73 3d  20 22 3b 75 73 65 72 63  |address= ";userc|
00000210  6f 64 65 25 3a fa 0d 01  36 05 cd 0d 01 40 04 0d  |ode%:...6....@..|
00000220  01 4a 29 6f 70 74 69 6f  6e 6e 61 6d 65 24 3d 22  |.J)optionname$="|
00000230  3c 41 6c 70 73 47 61 6d  65 24 44 61 74 61 3e 2e  |<AlpsGame$Data>.|
00000240  4f 70 74 69 6f 6e 73 22  0d 01 54 19 62 61 72 66  |Options"..T.barf|
00000250  67 63 6f 6c 3d 30 3a 62  61 72 62 67 63 6f 6c 3d  |gcol=0:barbgcol=|
00000260  31 0d 01 5e 04 0d 01 68  25 de 20 6b 65 79 24 28  |1..^...h%. key$(|
00000270  31 33 29 3a f4 20 46 75  6e 63 74 69 6f 6e 20 6b  |13):. Function k|
00000280  65 79 20 73 74 72 69 6e  67 73 0d 01 72 28 de 20  |ey strings..r(. |
00000290  62 61 72 79 28 33 2c 32  29 3a f4 20 72 67 62 20  |bary(3,2):. rgb |
000002a0  62 61 72 20 67 72 61 70  68 20 79 20 63 6f 6f 72  |bar graph y coor|
000002b0  64 73 0d 01 7c 04 0d 01  86 1b 61 72 65 61 5f 73  |ds..|.....area_s|
000002c0  69 7a 65 25 3d 73 63 72  6e 73 69 7a 65 2b 31 30  |ize%=scrnsize+10|
000002d0  30 0d 01 90 04 0d 01 9a  32 de 20 61 72 65 61 25  |0.......2. area%|
000002e0  20 61 72 65 61 5f 73 69  7a 65 25 3a f4 20 53 70  | area_size%:. Sp|
000002f0  72 69 74 65 20 61 72 65  61 20 28 66 6f 72 20 73  |rite area (for s|
00000300  63 72 65 65 6e 73 29 0d  01 a4 04 0d 01 ae 0f e3  |creens).........|
00000310  20 62 61 72 3d 31 20 b8  20 33 0d 01 b8 3c 20 20  | bar=1 . 3...<  |
00000320  f3 20 62 61 72 79 28 62  61 72 2c 31 29 2c 62 61  |. bary(bar,1),ba|
00000330  72 79 28 62 61 72 2c 32  29 3a f4 20 72 65 61 64  |ry(bar,2):. read|
00000340  20 62 6f 74 74 6f 6d 20  61 6e 64 20 74 6f 70 20  | bottom and top |
00000350  63 6f 6f 72 64 73 0d 01  c2 09 ed 20 62 61 72 0d  |coords..... bar.|
00000360  01 cc 04 0d 01 d6 1d dc  20 34 34 35 2c 34 37 37  |........ 445,477|
00000370  2c 33 38 36 2c 34 31 38  2c 33 32 37 2c 33 35 39  |,386,418,327,359|
00000380  0d 01 e0 04 0d 01 ea 04  0d 01 f4 0f f4 20 50 49  |............. PI|
00000390  43 43 59 6c 6f 61 64 0d  01 fe 04 0d 02 08 31 74  |CCYload.......1t|
000003a0  65 73 74 31 20 3d 20 8e  28 22 3c 41 6c 70 73 24  |est1 = .("<Alps$|
000003b0  50 69 63 74 75 72 65 73  3e 4c 6f 61 64 65 72 50  |Pictures>LoaderP|
000003c0  69 63 22 29 3a d9 23 74  65 73 74 31 0d 02 12 10  |ic"):.#test1....|
000003d0  e7 20 74 65 73 74 31 3c  3e 30 20 8c 0d 02 1c 2e  |. test1<>0 .....|
000003e0  ff 28 22 53 43 52 45 45  4e 4c 4f 41 44 20 3c 41  |.("SCREENLOAD <A|
000003f0  6c 70 73 24 50 69 63 74  75 72 65 73 3e 4c 6f 61  |lps$Pictures>Loa|
00000400  64 65 72 50 69 63 22 29  3a 87 0d 02 4e 11 d1 3d  |derPic"):...N..=|
00000410  30 3a f5 20 fd 20 91 3e  35 30 30 0d 02 58 05 cd  |0:. . .>500..X..|
00000420  0d 02 62 04 0d 02 6c 0d  eb 20 6d 6f 64 65 25 3a  |..b...l.. mode%:|
00000430  87 0d 02 76 04 0d 02 80  29 f2 6c 6f 61 64 5f 70  |...v....).load_p|
00000440  61 6c 28 22 3c 41 6c 70  73 47 61 6d 65 24 44 61  |al("<AlpsGame$Da|
00000450  74 61 3e 2e 21 50 61 6c  65 74 74 65 22 29 0d 02  |ta>.!Palette")..|
00000460  8a 22 2a 50 52 49 4e 54  20 3c 41 6c 70 73 47 61  |."*PRINT <AlpsGa|
00000470  6d 65 24 44 61 74 61 3e  2e 63 68 61 72 73 65 74  |me$Data>.charset|
00000480  0d 02 94 04 0d 02 9e 13  f4 20 4c 6f 61 64 20 62  |......... Load b|
00000490  75 74 74 6f 6e 73 3f 0d  02 a8 14 e7 20 6c 6f 61  |uttons?..... loa|
000004a0  64 5f 62 75 74 74 6f 6e  73 20 8c 0d 02 b2 05 db  |d_buttons ......|
000004b0  0d 02 bc 35 ff 20 22 4c  4f 41 44 20 3c 41 6c 70  |...5. "LOAD <Alp|
000004c0  73 47 61 6d 65 24 52 65  73 6f 75 72 63 65 73 3e  |sGame$Resources>|
000004d0  62 75 74 74 6f 6e 73 20  22 2b c3 7e 28 61 72 65  |buttons "+.~(are|
000004e0  61 25 2b 34 29 0d 02 c6  15 21 61 72 65 61 25 3d  |a%+4)....!area%=|
000004f0  61 72 65 61 5f 73 69 7a  65 25 0d 02 d0 40 c8 99  |area_size%...@..|
00000500  20 22 57 69 6d 70 5f 52  65 61 64 50 69 78 54 72  | "Wimp_ReadPixTr|
00000510  61 6e 73 22 2c 26 32 30  30 2c 61 72 65 61 25 2c  |ans",&200,area%,|
00000520  61 72 65 61 25 2b 31 36  2c 30 2c 30 2c 30 2c 73  |area%+16,0,0,0,s|
00000530  63 61 6c 65 2c 70 69 78  74 72 0d 02 da 3a c8 99  |cale,pixtr...:..|
00000540  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  | "OS_SpriteOp",&|
00000550  32 33 34 2c 61 72 65 61  25 2c 61 72 65 61 25 2b  |234,area%,area%+|
00000560  31 36 2c 30 2c 30 2c 38  2c 73 63 61 6c 65 2c 70  |16,0,0,8,scale,p|
00000570  69 78 74 72 0d 02 e4 21  ef 32 38 2c 30 2c 74 65  |ixtr...!.28,0,te|
00000580  78 74 72 6f 77 73 25 2d  35 2c 74 65 78 74 63 6f  |xtrows%-5,textco|
00000590  6c 73 25 2c 30 0d 02 ee  05 cc 0d 02 f8 05 db 0d  |ls%,0...........|
000005a0  03 02 1f ef 32 38 2c 30  2c 74 65 78 74 72 6f 77  |....28,0,textrow|
000005b0  73 25 2c 74 65 78 74 63  6f 6c 73 25 2c 30 0d 03  |s%,textcols%,0..|
000005c0  0c 05 cd 0d 03 16 04 0d  03 20 04 0d 03 2a 0b 2a  |......... ...*.*|
000005d0  46 58 31 35 2c 30 0d 03  34 14 e7 20 6c 6f 61 64  |FX15,0..4.. load|
000005e0  5f 62 75 74 74 6f 6e 73  20 8c 0d 03 3e 0f 20 20  |_buttons ...>.  |
000005f0  20 2a 50 4f 49 4e 54 45  52 0d 03 48 0b 20 20 20  | *POINTER..H.   |
00000600  c8 97 20 ee 0d 03 52 12  20 20 20 c8 97 20 b8 20  |.. ...R.   .. . |
00000610  35 35 30 2c 34 38 0d 03  5c 05 cd 0d 03 66 04 0d  |550,48..\....f..|
00000620  03 70 16 69 6e 25 3d 8e  28 6f 70 74 69 6f 6e 6e  |.p.in%=.(optionn|
00000630  61 6d 65 24 29 0d 03 7a  0c 63 68 6f 69 63 65 3d  |ame$)..z.choice=|
00000640  a3 0d 03 84 20 e7 20 69  6e 25 3c 3e 30 20 8c 20  |.... . in%<>0 . |
00000650  63 68 6f 69 63 65 3d a4  6c 6f 61 64 28 69 6e 25  |choice=.load(in%|
00000660  29 0d 03 8e 13 e7 20 63  68 6f 69 63 65 20 e5 20  |)..... choice . |
00000670  8d 74 74 45 0d 03 98 04  0d 03 a2 06 ef 34 0d 03  |.ttE.........4..|
00000680  ac 05 f5 0d 03 b6 29 c8  99 20 22 57 69 6d 70 5f  |......).. "Wimp_|
00000690  53 65 74 43 6f 6c 6f 75  72 22 2c 31 33 31 3a f2  |SetColour",131:.|
000006a0  63 6f 6c 28 31 33 35 29  3a db 3a ee 0d 03 c0 2f  |col(135):.:..../|
000006b0  f2 63 6f 6c 28 31 31 29  3a f1 8a 32 38 2c 31 29  |.col(11):..28,1)|
000006c0  22 46 55 4e 43 54 49 4f  4e 20 4b 45 59 20 44 45  |"FUNCTION KEY DE|
000006d0  46 49 4e 49 54 49 4f 4e  53 22 27 0d 03 ca 0c f2  |FINITIONS"'.....|
000006e0  63 6f 6c 28 31 35 29 0d  03 d4 73 6d 24 3d 22 59  |col(15)...sm$="Y|
000006f0  6f 75 20 6d 61 79 20 65  6e 74 65 72 20 75 70 20  |ou may enter up |
00000700  74 6f 20 74 77 65 6c 76  65 20 65 78 74 72 61 20  |to twelve extra |
00000710  63 6f 6d 6d 61 6e 64 20  73 74 72 69 6e 67 73 20  |command strings |
00000720  74 6f 20 62 65 20 6f 70  65 72 61 74 65 64 20 62  |to be operated b|
00000730  79 20 74 68 65 20 41 72  63 68 69 6d 65 64 65 73  |y the Archimedes|
00000740  20 66 75 6e 63 74 69 6f  6e 20 6b 65 79 73 20 46  | function keys F|
00000750  31 20 74 6f 20 46 31 32  2e 22 0d 03 de 14 e7 20  |1 to F12."..... |
00000760  6c 6f 61 64 5f 62 75 74  74 6f 6e 73 20 8c 0d 03  |load_buttons ...|
00000770  e8 65 20 20 20 6d 24 2b  3d 22 20 54 68 65 73 65  |.e   m$+=" These|
00000780  20 63 6f 6d 6d 61 6e 64  20 73 74 72 69 6e 67 73  | command strings|
00000790  20 61 72 65 20 69 6e 20  61 64 64 69 74 69 6f 6e  | are in addition|
000007a0  20 74 6f 20 74 68 65 20  63 6f 6d 6d 61 6e 64 73  | to the commands|
000007b0  20 61 6c 6f 6e 67 20 74  68 65 20 27 62 75 74 74  | along the 'butt|
000007c0  6f 6e 20 63 6f 6e 73 6f  6c 65 27 20 62 65 6c 6f  |on console' belo|
000007d0  77 2e 22 0d 03 f2 05 cd  0d 03 fc 04 0d 04 06 1a  |w.".............|
000007e0  c8 99 20 22 4f 53 5f 50  72 65 74 74 79 50 72 69  |.. "OS_PrettyPri|
000007f0  6e 74 22 2c 6d 24 0d 04  10 06 f1 27 0d 04 1a 6e  |nt",m$.....'...n|
00000800  c8 99 20 22 4f 53 5f 50  72 65 74 74 79 50 72 69  |.. "OS_PrettyPri|
00000810  6e 74 22 2c 22 4e 6f 74  65 20 74 68 61 74 20 79  |nt","Note that y|
00000820  6f 75 20 63 61 6e 20 75  73 65 20 27 7c 4d 27 20  |ou can use '|M' |
00000830  74 6f 20 73 69 6d 75 6c  61 74 65 20 61 20 3c 52  |to simulate a <R|
00000840  45 54 55 52 4e 3e 20 6b  65 79 20 62 65 69 6e 67  |ETURN> key being|
00000850  20 70 72 65 73 73 65 64  20 69 6e 20 79 6f 75 72  | pressed in your|
00000860  20 63 6f 6d 6d 61 6e 64  2e 22 0d 04 24 04 0d 04  | command."..$...|
00000870  2e 07 20 20 f1 0d 04 38  0d 20 20 2a 46 58 32 31  |..  ...8.  *FX21|
00000880  2c 30 0d 04 42 04 0d 04  4c 12 20 20 e3 20 6b 65  |,0..B...L.  . ke|
00000890  79 3d 31 20 b8 20 31 32  0d 04 56 10 20 20 20 20  |y=1 . 12..V.    |
000008a0  f2 63 6f 6c 28 31 34 29  0d 04 60 2b 20 20 20 20  |.col(14)..`+    |
000008b0  f1 8a 32 2c 6b 65 79 2b  31 30 29 3b 22 53 74 72  |..2,key+10);"Str|
000008c0  69 6e 67 20 66 6f 72 20  46 22 3b 6b 65 79 3b 22  |ing for F";key;"|
000008d0  3a 22 3b 0d 04 6a 10 20  20 20 20 f2 63 6f 6c 28  |:";..j.    .col(|
000008e0  31 32 29 0d 04 74 38 20  20 20 20 6b 65 79 24 28  |12)..t8    key$(|
000008f0  6b 65 79 29 3d a4 65 6e  74 65 72 5f 77 6f 72 64  |key)=.enter_word|
00000900  28 36 30 2c 22 20 22 2c  c4 36 30 2c 22 20 22 29  |(60," ",.60," ")|
00000910  2c 31 37 2c 6b 65 79 2b  31 30 29 0d 04 7e 43 20  |,17,key+10)..~C |
00000920  20 20 20 f4 20 3e 3e 3e  3e 3e 3e 3e 3e 20 73 63  |   . >>>>>>>> sc|
00000930  72 61 70 20 61 6c 6c 20  74 68 65 20 73 70 61 63  |rap all the spac|
00000940  65 73 20 6f 6e 20 74 68  65 20 72 68 73 20 62 61  |es on the rhs ba|
00000950  72 20 6f 6e 65 20 3c 3c  3c 3c 3c 3c 3c 3c 0d 04  |r one <<<<<<<<..|
00000960  88 1c 20 20 20 20 c8 95  20 c2 6b 65 79 24 28 6b  |..    .. .key$(k|
00000970  65 79 29 2c 31 29 3d 22  20 22 0d 04 92 30 20 20  |ey),1)=" "...0  |
00000980  20 20 20 20 20 6b 65 79  24 28 6b 65 79 29 3d c0  |     key$(key)=.|
00000990  6b 65 79 24 28 6b 65 79  29 2c 20 a9 28 6b 65 79  |key$(key), .(key|
000009a0  24 28 6b 65 79 29 29 2d  31 29 0d 04 9c 09 20 20  |$(key))-1)....  |
000009b0  20 20 ce 0d 04 a6 23 20  20 20 20 6b 65 79 24 28  |  ....#    key$(|
000009c0  6b 65 79 29 20 3d 20 6b  65 79 24 28 6b 65 79 29  |key) = key$(key)|
000009d0  20 2b 20 22 20 22 0d 04  b0 23 20 20 20 20 ff 28  | + " "...#    .(|
000009e0  22 4b 45 59 22 2b c3 6b  65 79 2b 22 20 22 2b 6b  |"KEY"+.key+" "+k|
000009f0  65 79 24 28 6b 65 79 29  29 0d 04 ba 0b 20 20 ed  |ey$(key))....  .|
00000a00  20 6b 65 79 0d 04 c4 04  0d 04 ce 07 20 20 87 0d  | key........  ..|
00000a10  04 d8 16 20 20 e7 20 6c  6f 61 64 5f 62 75 74 74  |...  . load_butt|
00000a20  6f 6e 73 20 8c 0d 04 e2  35 20 20 20 20 20 f4 20  |ons ....5     . |
00000a30  53 59 53 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |SYS "OS_SpriteOp|
00000a40  22 2c 35 34 36 2c 61 72  65 61 25 2c 61 72 65 61  |",546,area%,area|
00000a50  25 2b 31 36 2c 30 2c 30  2c 38 0d 04 ec 3f 20 20  |%+16,0,0,8...?  |
00000a60  20 20 20 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |   .. "OS_Sprite|
00000a70  4f 70 22 2c 26 32 33 34  2c 61 72 65 61 25 2c 61  |Op",&234,area%,a|
00000a80  72 65 61 25 2b 31 36 2c  30 2c 30 2c 38 2c 73 63  |rea%+16,0,0,8,sc|
00000a90  61 6c 65 2c 70 69 78 74  72 0d 04 f6 43 20 20 20  |ale,pixtr...C   |
00000aa0  20 20 6d 73 67 24 3d 22  49 73 20 74 68 69 73 20  |  msg$="Is this |
00000ab0  4f 4b 3f 20 43 6c 69 63  6b 20 27 59 45 53 27 20  |OK? Click 'YES' |
00000ac0  6f 72 20 27 4e 4f 27 20  6f 72 20 70 72 65 73 73  |or 'NO' or press|
00000ad0  20 27 59 27 20 6f 72 20  27 4e 27 22 0d 05 00 07  | 'Y' or 'N'"....|
00000ae0  20 20 cc 0d 05 0a 28 20  20 20 20 20 6d 73 67 24  |  ....(     msg$|
00000af0  3d 22 49 73 20 74 68 69  73 20 4f 4b 3f 20 50 72  |="Is this OK? Pr|
00000b00  65 73 73 20 59 20 6f 72  20 4e 22 0d 05 14 07 20  |ess Y or N".... |
00000b10  20 cd 0d 05 1e 16 20 20  f2 63 6f 6c 28 31 31 29  | .....  .col(11)|
00000b20  3a f1 27 27 6d 73 67 24  0d 05 28 0b 20 20 6b 65  |:.''msg$..(.  ke|
00000b30  79 3d 30 0d 05 32 04 0d  05 3c 1b 20 20 f5 3a c8  |y=0..2...<.  .:.|
00000b40  97 20 58 25 2c 59 25 2c  42 25 3a 41 24 3d bf 28  |. X%,Y%,B%:A$=.(|
00000b50  30 29 0d 05 46 1f 20 20  e7 20 41 24 3d 22 59 22  |0)..F.  . A$="Y"|
00000b60  20 84 20 41 24 3d 22 79  22 20 8c 20 6b 65 79 3d  | . A$="y" . key=|
00000b70  37 0d 05 50 1f 20 20 e7  20 41 24 3d 22 4e 22 20  |7..P.  . A$="N" |
00000b80  84 20 41 24 3d 22 6e 22  20 8c 20 6b 65 79 3d 38  |. A$="n" . key=8|
00000b90  0d 05 5a 40 20 20 20 20  e7 20 42 25 3d 34 20 80  |..Z@    . B%=4 .|
00000ba0  20 6c 6f 61 64 5f 62 75  74 74 6f 6e 73 3a f2 69  | load_buttons:.i|
00000bb0  6e 28 58 25 2c 59 25 2c  6b 65 79 29 3a f5 3a c8  |n(X%,Y%,key):.:.|
00000bc0  97 58 25 2c 59 25 2c 42  25 3a fd 20 42 25 3d 30  |.X%,Y%,B%:. B%=0|
00000bd0  0d 05 64 15 20 20 fd 20  6b 65 79 3d 37 20 84 20  |..d.  . key=7 . |
00000be0  6b 65 79 3d 38 0d 05 6e  04 0d 05 78 0b fd 20 6b  |key=8..n...x.. k|
00000bf0  65 79 3d 37 0d 05 82 04  0d 05 8c 05 db 0d 05 96  |ey=7............|
00000c00  51 f2 57 72 69 74 65 4f  75 74 46 69 6c 65 3a f2  |Q.WriteOutFile:.|
00000c10  63 6f 6c 28 30 29 3a f1  27 27 22 54 68 65 73 65  |col(0):.''"These|
00000c20  20 66 75 6e 63 74 69 6f  6e 20 6b 65 79 73 20 68  | function keys h|
00000c30  61 76 65 20 62 65 65 6e  20 73 61 76 65 64 20 66  |ave been saved f|
00000c40  6f 72 20 66 75 74 75 72  65 20 75 73 65 22 0d 05  |or future use"..|
00000c50  a0 04 0d 05 aa 0c 41 3d  a6 28 32 30 30 29 0d 05  |......A=.(200)..|
00000c60  b4 19 ef 20 32 34 2c 30  3b 31 34 34 3b 73 63 72  |... 24,0;144;scr|
00000c70  77 3b 73 63 72 68 3b 0d  05 be 31 f2 63 6f 6c 28  |w;scrh;...1.col(|
00000c80  31 33 31 29 3a c8 99 20  22 57 69 6d 70 5f 53 65  |131):.. "Wimp_Se|
00000c90  74 43 6f 6c 6f 75 72 22  2c 31 33 31 3a da 3a db  |tColour",131:.:.|
00000ca0  3a f2 63 6f 6c 28 33 29  0d 05 c8 04 0d 05 d2 04  |:.col(3)........|
00000cb0  0d 05 dc 0f f2 6c 6f 61  64 5f 66 69 6c 65 73 0d  |.....load_files.|
00000cc0  05 e6 0c 2a 46 58 32 32  35 2c 31 0d 05 f0 08 f2  |...*FX225,1.....|
00000cd0  72 75 6e 0d 05 fa 0c 2a  46 58 32 30 30 2c 30 0d  |run....*FX200,0.|
00000ce0  06 04 0a ef 20 32 36 3a  db 0d 06 0e 07 ef 20 34  |.... 26:...... 4|
00000cf0  0d 06 18 1a f1 22 41 64  76 65 6e 74 75 72 65 20  |....."Adventure |
00000d00  66 69 6e 69 73 68 65 64  2e 22 0d 06 22 05 e0 0d  |finished.".."...|
00000d10  06 2c 04 0d 06 36 16 dd  20 f2 69 6e 28 58 25 2c  |.,...6.. .in(X%,|
00000d20  59 25 2c f8 20 63 6f 6d  29 0d 06 40 10 63 6f 6d  |Y%,. com)..@.com|
00000d30  3d 30 3a 72 6f 77 3d 39  39 0d 06 4a 1a e7 20 59  |=0:row=99..J.. Y|
00000d40  25 3e 37 39 20 80 20 59  25 3c 31 32 35 20 72 6f  |%>79 . Y%<125 ro|
00000d50  77 3d 31 0d 06 54 18 e7  20 59 25 3e 30 20 80 20  |w=1..T.. Y%>0 . |
00000d60  59 25 3c 35 31 20 72 6f  77 3d 30 0d 06 5e 1f 63  |Y%<51 row=0..^.c|
00000d70  6f 6c 3d 28 58 25 2d 6d  69 6e 78 29 20 81 20 28  |ol=(X%-minx) . (|
00000d80  77 69 64 74 68 29 20 2b  20 31 0d 06 68 26 e7 20  |width) + 1..h&. |
00000d90  63 6f 6c 3c 3d 72 6f 77  6c 65 6e 20 8c 20 63 6f  |col<=rowlen . co|
00000da0  6d 3d 63 6f 6c 2b 72 6f  77 6c 65 6e 2a 72 6f 77  |m=col+rowlen*row|
00000db0  0d 06 72 05 e1 0d 06 7c  04 0d 06 86 10 dd 20 a4  |..r....|...... .|
00000dc0  6c 6f 61 64 28 69 6e 25  29 0d 06 90 06 ef 34 0d  |load(in%).....4.|
00000dd0  06 9a 49 f2 63 6f 6c 28  37 29 3a f2 63 6f 6c 28  |..I.col(7):.col(|
00000de0  31 33 31 29 3a db 3a f1  8a 30 2c 35 29 3b 22 20  |131):.:..0,5);" |
00000df0  4c 6f 61 64 20 79 6f 75  72 20 73 61 76 65 64 20  |Load your saved |
00000e00  66 75 6e 63 74 69 6f 6e  20 6b 65 79 20 73 65 74  |function key set|
00000e10  74 69 6e 67 73 3f 20 22  0d 06 a4 14 e7 20 6c 6f  |tings? "..... lo|
00000e20  61 64 5f 62 75 74 74 6f  6e 73 20 8c 0d 06 ae 37  |ad_buttons ....7|
00000e30  20 20 20 6d 73 67 24 3d  22 43 6c 69 63 6b 20 27  |   msg$="Click '|
00000e40  59 45 53 27 20 6f 72 20  27 4e 4f 27 2c 20 6f 72  |YES' or 'NO', or|
00000e50  20 70 72 65 73 73 20 27  59 27 20 6f 72 20 27 4e  | press 'Y' or 'N|
00000e60  27 2e 22 0d 06 b8 05 cc  0d 06 c2 1f 20 20 20 6d  |'.".........   m|
00000e70  73 67 24 3d 22 50 72 65  73 73 20 27 59 27 20 6f  |sg$="Press 'Y' o|
00000e80  72 20 27 4e 27 2e 22 0d  06 cc 05 cd 0d 06 d6 0c  |r 'N'.".........|
00000e90  f1 27 27 27 6d 73 67 24  0d 06 e0 09 6b 65 79 3d  |.'''msg$....key=|
00000ea0  30 0d 06 ea 05 f5 0d 06  f4 19 20 20 c8 97 20 58  |0.........  .. X|
00000eb0  25 2c 59 25 2c 42 25 3a  41 24 3d bf 28 30 29 0d  |%,Y%,B%:A$=.(0).|
00000ec0  06 fe 1f 20 20 e7 20 41  24 3d 22 59 22 20 84 20  |...  . A$="Y" . |
00000ed0  41 24 3d 22 79 22 20 8c  20 6b 65 79 3d 37 0d 07  |A$="y" . key=7..|
00000ee0  08 1f 20 20 e7 20 41 24  3d 22 4e 22 20 84 20 41  |..  . A$="N" . A|
00000ef0  24 3d 22 6e 22 20 8c 20  6b 65 79 3d 38 0d 07 12  |$="n" . key=8...|
00000f00  2a 20 20 e7 20 42 25 3d  34 20 80 20 6c 6f 61 64  |*  . B%=4 . load|
00000f10  5f 62 75 74 74 6f 6e 73  3a f2 69 6e 28 58 25 2c  |_buttons:.in(X%,|
00000f20  59 25 2c 6b 65 79 29 0d  07 1c 13 fd 20 6b 65 79  |Y%,key)..... key|
00000f30  3d 37 20 84 20 6b 65 79  3d 38 0d 07 26 2a e7 20  |=7 . key=8..&*. |
00000f40  6b 65 79 3d 37 20 f2 52  65 61 64 49 6e 46 69 6c  |key=7 .ReadInFil|
00000f50  65 28 69 6e 25 29 3a 3d  b9 20 8b 20 d9 23 69 6e  |e(in%):=. . .#in|
00000f60  25 3a 3d a3 0d 07 30 04  0d 07 3a 18 dd 20 f2 52  |%:=...0...:.. .R|
00000f70  65 61 64 49 6e 46 69 6c  65 28 63 68 61 6e 25 29  |eadInFile(chan%)|
00000f80  0d 07 44 04 0d 07 4e 0f  e3 20 4b 25 3d 31 20 b8  |..D...N.. K%=1 .|
00000f90  20 31 32 0d 07 58 16 20  20 e8 23 63 68 61 6e 25  | 12..X.  .#chan%|
00000fa0  2c 6b 65 79 24 28 4b 25  29 0d 07 62 22 20 20 ff  |,key$(K%)..b"  .|
00000fb0  28 22 4b 45 59 20 22 2b  c3 28 4b 25 29 2b 22 20  |("KEY "+.(K%)+" |
00000fc0  22 2b 6b 65 79 24 28 4b  25 29 29 0d 07 6c 05 ed  |"+key$(K%))..l..|
00000fd0  0d 07 76 04 0d 07 80 0c  d9 20 23 63 68 61 6e 25  |..v...... #chan%|
00000fe0  0d 07 8a 05 e1 0d 07 94  04 0d 07 9e 13 dd 20 f2  |.............. .|
00000ff0  57 72 69 74 65 4f 75 74  46 69 6c 65 0d 07 a8 04  |WriteOutFile....|
00001000  0d 07 b2 17 63 68 61 6e  25 3d ae 20 6f 70 74 69  |....chan%=. opti|
00001010  6f 6e 6e 61 6d 65 24 0d  07 bc 04 0d 07 c6 0f e3  |onname$.........|
00001020  20 4b 25 3d 31 20 b8 20  31 32 0d 07 d0 16 20 20  | K%=1 . 12....  |
00001030  f1 23 63 68 61 6e 25 2c  6b 65 79 24 28 4b 25 29  |.#chan%,key$(K%)|
00001040  0d 07 da 05 ed 0d 07 e4  04 0d 07 ee 0b d9 23 63  |..............#c|
00001050  68 61 6e 25 0d 07 f8 05  e1 0d 08 02 04 0d 08 0c  |han%............|
00001060  04 0d 08 16 0c dd 20 a4  65 72 72 6f 72 0d 08 20  |...... .error.. |
00001070  0e 2a 50 4f 49 4e 54 45  52 20 31 0d 08 2a 0a c8  |.*POINTER 1..*..|
00001080  97 20 ee 20 31 0d 08 34  04 0d 08 3e 23 c8 99 20  |. . 1..4...>#.. |
00001090  22 57 69 6d 70 5f 53 65  74 43 6f 6c 6f 75 72 22  |"Wimp_SetColour"|
000010a0  2c 31 3a 77 69 64 74 68  3d 37 30 30 0d 08 48 25  |,1:width=700..H%|
000010b0  72 65 70 6f 72 74 77 69  64 74 68 3d 28 a9 28 f6  |reportwidth=(.(.|
000010c0  24 29 2b a9 28 c3 28 9e  29 29 2b 31 32 29 2a 31  |$)+.(.(.))+12)*1|
000010d0  36 0d 08 52 2b e7 20 77  69 64 74 68 3c 72 65 70  |6..R+. width<rep|
000010e0  6f 72 74 77 69 64 74 68  20 8c 20 77 69 64 74 68  |ortwidth . width|
000010f0  3d 72 65 70 6f 72 74 77  69 64 74 68 0d 08 5c 1b  |=reportwidth..\.|
00001100  c8 93 20 c8 90 20 32 30  30 2c 33 30 30 2c 77 69  |.. .. 200,300,wi|
00001110  64 74 68 2c 32 30 34 0d  08 66 1b c8 97 20 c8 93  |dth,204..f... ..|
00001120  20 32 30 30 2c 33 30 30  2c 77 69 64 74 68 2c 32  | 200,300,width,2|
00001130  30 34 0d 08 70 43 c8 99  20 22 57 69 6d 70 5f 53  |04..pC.. "Wimp_S|
00001140  65 74 43 6f 6c 6f 75 72  22 2c 37 3a ef 20 35 3a  |etColour",7:. 5:|
00001150  ec 20 32 31 36 2c 34 35  30 3a f1 22 53 79 73 74  |. 216,450:."Syst|
00001160  65 6d 20 72 65 70 6f 72  74 73 20 61 6e 20 65 72  |em reports an er|
00001170  72 6f 72 3a 22 0d 08 7a  2a ec 20 32 31 36 2c 34  |ror:"..z*. 216,4|
00001180  30 30 3a f1 20 f6 24 3b  3a e7 20 9e 3e 30 20 8c  |00:. .$;:. .>0 .|
00001190  20 f1 22 20 61 74 20 6c  69 6e 65 20 22 3b 9e 0d  | ." at line ";..|
000011a0  08 84 5a c8 99 20 22 57  69 6d 70 5f 53 65 74 43  |..Z.. "Wimp_SetC|
000011b0  6f 6c 6f 75 72 22 2c 33  3a c8 93 20 c8 90 20 35  |olour",3:.. .. 5|
000011c0  36 30 2c 33 32 30 2c 31  34 30 2c 33 32 3a ec 20  |60,320,140,32:. |
000011d0  35 36 38 2c 33 34 38 3a  c8 99 20 22 57 69 6d 70  |568,348:.. "Wimp|
000011e0  5f 53 65 74 43 6f 6c 6f  75 72 22 2c 37 3a f1 22  |_SetColour",7:."|
000011f0  43 4f 4e 54 49 4e 55 45  22 0d 08 8e 55 c8 99 20  |CONTINUE"...U.. |
00001200  22 57 69 6d 70 5f 53 65  74 43 6f 6c 6f 75 72 22  |"Wimp_SetColour"|
00001210  2c 33 3a c8 93 20 c8 90  20 33 36 30 2c 33 32 30  |,3:.. .. 360,320|
00001220  2c 37 36 2c 33 32 3a ec  20 33 36 38 2c 33 34 38  |,76,32:. 368,348|
00001230  3a c8 99 20 22 57 69 6d  70 5f 53 65 74 43 6f 6c  |:.. "Wimp_SetCol|
00001240  6f 75 72 22 2c 37 3a f1  22 51 55 49 54 22 0d 08  |our",7:."QUIT"..|
00001250  98 04 0d 08 a2 0a 66 6c  61 67 3d 30 0d 08 ac 05  |......flag=0....|
00001260  f5 0d 08 b6 07 20 20 f5  0d 08 c0 09 20 20 20 20  |.....  .....    |
00001270  f5 0d 08 ca 12 20 20 20  20 20 20 c8 97 20 58 2c  |.....      .. X,|
00001280  59 2c 42 0d 08 d4 0d 20  20 20 20 fd 20 42 3d 34  |Y,B....    . B=4|
00001290  0d 08 de 15 20 20 fd 20  59 3e 33 32 30 20 80 20  |....  . Y>320 . |
000012a0  59 3c 33 35 36 0d 08 e8  04 0d 08 f2 1c e7 20 58  |Y<356......... X|
000012b0  3e 35 36 30 20 80 20 58  3c 37 30 30 20 8c 20 66  |>560 . X<700 . f|
000012c0  6c 61 67 3d 32 0d 08 fc  1c e7 20 58 3e 33 36 30  |lag=2..... X>360|
000012d0  20 80 20 58 3c 34 33 36  20 8c 20 66 6c 61 67 3d  | . X<436 . flag=|
000012e0  31 0d 09 06 04 0d 09 10  15 fd 20 66 6c 61 67 3d  |1......... flag=|
000012f0  31 20 84 20 66 6c 61 67  3d 32 0d 09 1a 04 0d 09  |1 . flag=2......|
00001300  24 19 c8 99 20 22 57 69  6d 70 5f 53 65 74 43 6f  |$... "Wimp_SetCo|
00001310  6c 6f 75 72 22 2c 30 0d  09 2e 1b c8 93 20 c8 90  |lour",0...... ..|
00001320  20 32 30 30 2c 33 30 30  2c 77 69 64 74 68 2c 32  | 200,300,width,2|
00001330  30 34 0d 09 38 09 ef 20  34 3a 87 0d 09 42 17 c8  |04..8.. 4:...B..|
00001340  97 20 c8 93 20 30 2c 30  2c 31 32 37 39 2c 31 30  |. .. 0,0,1279,10|
00001350  32 33 0d 09 4c 04 0d 09  56 1b e7 20 6c 6f 61 64  |23..L...V.. load|
00001360  5f 62 75 74 74 6f 6e 73  20 80 20 66 6c 61 67 3d  |_buttons . flag=|
00001370  32 0d 09 60 0b 20 20 20  c8 97 20 87 0d 09 6a 05  |2..`.   .. ...j.|
00001380  cd 0d 09 74 04 0d 09 7e  09 3d 66 6c 61 67 0d 09  |...t...~.=flag..|
00001390  88 04 0d 09 92 04 0d 09  9c 0c dd 20 f2 69 6e 69  |........... .ini|
000013a0  74 32 0d 09 a6 17 c8 99  20 22 57 69 6d 70 5f 43  |t2...... "Wimp_C|
000013b0  6c 6f 73 65 44 6f 77 6e  22 0d 09 b0 0b 6d 69 6e  |loseDown"....min|
000013c0  78 3d 33 32 0d 09 ba 0c  77 69 64 74 68 3d 38 30  |x=32....width=80|
000013d0  0d 09 c4 09 79 25 3d 37  32 0d 09 ce 11 58 25 3d  |....y%=72....X%=|
000013e0  6d 69 6e 78 3a 59 25 3d  79 25 0d 09 d8 24 73 70  |minx:Y%=y%...$sp|
000013f0  72 69 74 65 73 3d 32 36  3a f4 20 4e 75 6d 62 65  |rites=26:. Numbe|
00001400  72 20 6f 66 20 27 62 75  74 74 6f 6e 73 27 0d 09  |r of 'buttons'..|
00001410  e2 16 72 6f 77 6c 65 6e  3d 73 70 72 69 74 65 73  |..rowlen=sprites|
00001420  20 81 20 32 0d 09 ec 14  58 4c 3d 34 34 38 3a 58  | . 2....XL=448:X|
00001430  52 3d 58 4c 2b 32 35 35  0d 09 f6 04 0d 0a 00 27  |R=XL+255.......'|
00001440  f4 20 4d 61 6e 69 66 65  73 74 20 63 6f 6e 73 74  |. Manifest const|
00001450  61 6e 74 73 20 66 6f 72  20 74 68 65 20 73 79 73  |ants for the sys|
00001460  74 65 6d 0d 0a 0a 32 6d  61 78 72 6d 73 3d 31 30  |tem...2maxrms=10|
00001470  30 30 3a 6d 61 78 6f 62  73 3d 32 35 35 3a 6d 61  |00:maxobs=255:ma|
00001480  78 73 77 25 3d 31 30 3a  6d 61 78 74 6f 6b 65 6e  |xsw%=10:maxtoken|
00001490  73 3d 31 32 38 0d 0a 14  31 6d 61 78 6c 65 6e 3d  |s=128...1maxlen=|
000014a0  31 30 3a f4 20 4d 61 78  69 6d 75 6d 20 77 6f 72  |10:. Maximum wor|
000014b0  64 20 6c 65 6e 67 74 68  20 69 6e 20 76 6f 63 61  |d length in voca|
000014c0  62 75 6c 61 72 79 0d 0a  1e 04 0d 0a 28 33 f4 20  |bulary......(3. |
000014d0  52 6f 6f 6d 20 61 6e 64  20 6f 62 6a 65 63 74 20  |Room and object |
000014e0  64 61 74 61 20 62 6c 6f  63 6b 20 6c 65 6e 67 74  |data block lengt|
000014f0  68 73 20 28 69 6e 20 62  79 74 65 73 29 0d 0a 32  |hs (in bytes)..2|
00001500  15 72 5f 6c 65 6e 3d 37  34 3a 6f 5f 6c 65 6e 3d  |.r_len=74:o_len=|
00001510  31 36 0d 0a 3c 04 0d 0a  46 35 6d 61 78 6d 73 67  |16..<...F5maxmsg|
00001520  3d 36 35 35 33 35 3a 6d  61 78 6f 62 6e 3d 32 35  |=65535:maxobn=25|
00001530  35 3a 6d 61 78 76 62 6e  3d 32 35 35 3a 6d 61 78  |5:maxvbn=255:max|
00001540  63 6f 6e 73 74 3d 36 35  35 33 35 0d 0a 50 45 6d  |const=65535..PEm|
00001550  61 78 61 64 6a 3d 32 35  35 3a 6d 61 78 70 72 65  |axadj=255:maxpre|
00001560  70 3d 35 30 3a 6d 61 78  63 6f 6e 6a 3d 35 30 3a  |p=50:maxconj=50:|
00001570  6d 61 78 73 70 65 63 3d  31 30 3a 6d 61 78 6e 6f  |maxspec=10:maxno|
00001580  69 73 65 3d 31 30 3a 6d  61 78 70 69 78 3d 35 30  |ise=10:maxpix=50|
00001590  0d 0a 5a 04 0d 0a 64 12  6e 6f 75 6e 5f 73 69 7a  |..Z...d.noun_siz|
000015a0  65 3d 33 30 30 30 0d 0a  6e 12 76 65 72 62 5f 73  |e=3000..n.verb_s|
000015b0  69 7a 65 3d 33 30 30 30  0d 0a 78 12 61 64 6a 63  |ize=3000..x.adjc|
000015c0  5f 73 69 7a 65 3d 31 30  30 30 0d 0a 82 2e 70 72  |_size=1000....pr|
000015d0  65 70 5f 73 69 7a 65 3d  32 30 30 20 3a f4 20 53  |ep_size=200 :. S|
000015e0  69 7a 65 20 6f 66 20 70  72 65 70 6f 73 69 74 69  |ize of prepositi|
000015f0  6f 6e 73 20 6c 69 73 74  0d 0a 8c 2e 63 6f 6e 6a  |ons list....conj|
00001600  5f 73 69 7a 65 3d 31 30  30 20 3a f4 20 73 69 7a  |_size=100 :. siz|
00001610  65 20 6f 66 20 63 6f 6e  6a 75 6e 63 74 69 6f 6e  |e of conjunction|
00001620  73 20 6c 69 73 74 0d 0a  96 3c 73 70 65 63 5f 73  |s list...<spec_s|
00001630  69 7a 65 3d 31 30 30 20  3a f4 20 73 69 7a 65 20  |ize=100 :. size |
00001640  6f 66 20 27 73 70 65 63  69 61 6c 73 27 20 6c 69  |of 'specials' li|
00001650  73 74 20 28 49 54 2c 20  54 48 45 4d 2c 20 41 4c  |st (IT, THEM, AL|
00001660  4c 29 0d 0a a0 34 6e 6f  69 73 65 5f 73 69 7a 65  |L)...4noise_size|
00001670  3d 31 30 30 3a f4 20 73  69 7a 65 20 6f 66 20 27  |=100:. size of '|
00001680  6e 6f 69 73 65 27 20 6c  69 73 74 20 28 54 48 45  |noise' list (THE|
00001690  2c 41 2c 41 4e 29 0d 0a  aa 3d 61 72 65 66 5f 73  |,A,AN)...=aref_s|
000016a0  69 7a 65 3d 32 30 30 30  3a f4 20 73 69 7a 65 20  |ize=2000:. size |
000016b0  6f 66 20 61 64 6a 65 63  74 69 76 65 20 6f 62 6a  |of adjective obj|
000016c0  65 63 74 20 72 65 66 65  72 65 6e 63 65 20 74 61  |ect reference ta|
000016d0  62 6c 65 0d 0a b4 39 6e  72 65 66 5f 73 69 7a 65  |ble...9nref_size|
000016e0  3d 32 30 30 30 3a f4 20  73 69 7a 65 20 6f 66 20  |=2000:. size of |
000016f0  6e 6f 75 6e 73 20 6f 62  6a 65 63 74 20 72 65 66  |nouns object ref|
00001700  65 72 65 6e 63 65 20 74  61 62 6c 65 0d 0a be 2d  |erence table...-|
00001710  70 69 78 5f 73 69 7a 65  3d 31 30 30 30 3a f4 20  |pix_size=1000:. |
00001720  73 69 7a 65 20 6f 66 20  70 69 78 20 66 69 6c 65  |size of pix file|
00001730  6e 61 6d 65 20 6c 69 73  74 0d 0a c8 04 0d 0a d2  |name list.......|
00001740  40 c8 99 20 22 4f 53 5f  46 69 6c 65 22 2c 35 2c  |@.. "OS_File",5,|
00001750  22 3c 41 6c 70 73 47 61  6d 65 24 44 61 74 61 3e  |"<AlpsGame$Data>|
00001760  2e 50 72 6f 67 72 61 6d  22 20 b8 20 66 74 79 70  |.Program" . ftyp|
00001770  65 2c 2c 2c 2c 63 6f 64  65 73 69 7a 65 0d 0a dc  |e,,,,codesize...|
00001780  40 c8 99 20 22 4f 53 5f  46 69 6c 65 22 2c 35 2c  |@.. "OS_File",5,|
00001790  22 3c 41 6c 70 73 47 61  6d 65 24 44 61 74 61 3e  |"<AlpsGame$Data>|
000017a0  2e 54 65 78 74 22 20 20  20 20 b8 20 66 74 79 70  |.Text"    . ftyp|
000017b0  65 2c 2c 2c 2c 6d 61 78  74 65 78 74 25 0d 0a e6  |e,,,,maxtext%...|
000017c0  04 0d 0a f0 12 64 69 63  74 5f 73 69 7a 65 3d 31  |.....dict_size=1|
000017d0  30 30 30 0d 0a fa 04 0d  0b 04 86 de 20 6e 6f 75  |000......... nou|
000017e0  6e 73 20 6e 6f 75 6e 5f  73 69 7a 65 2c 76 65 72  |ns noun_size,ver|
000017f0  62 73 20 76 65 72 62 5f  73 69 7a 65 2c 61 64 6a  |bs verb_size,adj|
00001800  65 63 74 73 20 61 64 6a  63 5f 73 69 7a 65 2c 70  |ects adjc_size,p|
00001810  72 65 70 73 20 70 72 65  70 5f 73 69 7a 65 2c 63  |reps prep_size,c|
00001820  6f 6e 6a 73 20 63 6f 6e  6a 5f 73 69 7a 65 2c 73  |onjs conj_size,s|
00001830  70 65 63 73 20 73 70 65  63 5f 73 69 7a 65 2c 6e  |pecs spec_size,n|
00001840  6f 69 73 65 20 6e 6f 69  73 65 5f 73 69 7a 65 2c  |oise noise_size,|
00001850  70 69 78 73 20 70 69 78  5f 73 69 7a 65 0d 0b 0e  |pixs pix_size...|
00001860  04 0d 0b 18 3a de 20 61  72 65 66 20 61 72 65 66  |....:. aref aref|
00001870  5f 73 69 7a 65 2c 6e 72  65 66 20 6e 72 65 66 5f  |_size,nref nref_|
00001880  73 69 7a 65 2c 76 65 72  62 5f 74 79 70 65 20 32  |size,verb_type 2|
00001890  2a 28 6d 61 78 76 62 6e  2b 31 29 0d 0b 22 3c f4  |*(maxvbn+1).."<.|
000018a0  20 53 65 74 20 75 70 20  64 61 74 61 20 61 72 65  | Set up data are|
000018b0  61 73 20 66 6f 72 20 72  6f 6f 6d 73 20 61 6e 64  |as for rooms and|
000018c0  20 6f 62 6a 65 63 74 73  20 61 6e 64 20 63 6c 65  | objects and cle|
000018d0  61 72 20 74 68 65 6d 0d  0b 2c 04 0d 0b 36 42 de  |ar them..,...6B.|
000018e0  20 72 64 61 74 61 25 20  28 6d 61 78 72 6d 73 2b  | rdata% (maxrms+|
000018f0  31 29 2a 72 5f 6c 65 6e  2c 6f 64 61 74 61 25 20  |1)*r_len,odata% |
00001900  28 6d 61 78 6f 62 73 2b  31 29 2a 6f 5f 6c 65 6e  |(maxobs+1)*o_len|
00001910  2c 63 6f 6e 74 72 6f 6f  6d 25 20 31 32 0d 0b 40  |,controom% 12..@|
00001920  04 0d 0b 4a 2a 6e 75 6d  5f 76 61 72 73 3d 36 30  |...J*num_vars=60|
00001930  3a f4 20 4e 75 6d 62 65  72 20 6f 66 20 41 4c 50  |:. Number of ALP|
00001940  53 20 76 61 72 69 61 62  6c 65 73 0d 0b 54 2e 76  |S variables..T.v|
00001950  61 72 5f 73 69 7a 65 3d  6e 75 6d 5f 76 61 72 73  |ar_size=num_vars|
00001960  2a 32 3a f4 20 32 20 62  79 74 65 73 20 70 65 72  |*2:. 2 bytes per|
00001970  20 76 61 72 69 61 62 6c  65 0d 0b 5e 04 0d 0b 68  | variable..^...h|
00001980  1d f4 20 53 65 74 20 75  70 20 74 68 65 20 73 61  |.. Set up the sa|
00001990  76 65 20 62 75 66 66 65  72 73 0d 0b 72 2b 69 6e  |ve buffers..r+in|
000019a0  69 74 61 72 65 61 73 69  7a 65 3d 37 2a 28 6d 61  |itareasize=7*(ma|
000019b0  78 6f 62 73 2b 31 29 2b  32 32 2a 28 6d 61 78 72  |xobs+1)+22*(maxr|
000019c0  6d 73 2b 31 29 0d 0b 7c  3d de 20 69 6e 69 74 73  |ms+1)..|=. inits|
000019d0  61 76 65 20 69 6e 69 74  61 72 65 61 73 69 7a 65  |ave initareasize|
000019e0  2c 72 61 6d 73 61 76 65  20 69 6e 69 74 61 72 65  |,ramsave initare|
000019f0  61 73 69 7a 65 2b 76 61  72 5f 73 69 7a 65 2b 31  |asize+var_size+1|
00001a00  32 38 0d 0b 86 04 0d 0b  90 1f f4 20 41 72 65 61  |28......... Area|
00001a10  20 66 6f 72 20 73 74 6f  72 69 6e 67 20 6d 65 73  | for storing mes|
00001a20  73 61 67 65 73 0d 0b 9a  14 de 20 74 65 78 74 25  |sages..... text%|
00001a30  20 6d 61 78 74 65 78 74  25 0d 0b a4 04 0d 0b ae  | maxtext%.......|
00001a40  0f 64 61 74 61 76 61 6c  69 64 3d b9 0d 0b b8 04  |.datavalid=.....|
00001a50  0d 0b c2 1b f4 20 53 65  74 20 75 70 20 74 68 65  |..... Set up the|
00001a60  20 64 69 63 74 69 6f 6e  61 72 79 0d 0b cc 15 de  | dictionary.....|
00001a70  20 64 69 63 74 25 20 64  69 63 74 5f 73 69 7a 65  | dict% dict_size|
00001a80  0d 0b d6 04 0d 0b e0 1d  f4 20 53 65 74 20 75 70  |......... Set up|
00001a90  20 74 68 65 20 70 72 6f  67 72 61 6d 20 61 72 65  | the program are|
00001aa0  61 0d 0b ea 04 0d 0b f4  17 de 20 70 72 6f 67 72  |a......... progr|
00001ab0  61 6d 25 20 63 6f 64 65  73 69 7a 65 0d 0b fe 04  |am% codesize....|
00001ac0  0d 0c 08 27 f4 20 44 69  6d 65 6e 73 69 6f 6e 20  |...'. Dimension |
00001ad0  74 68 65 20 6f 74 68 65  72 20 61 72 72 61 79 73  |the other arrays|
00001ae0  20 6e 65 65 64 65 64 0d  0c 12 04 0d 0c 1c 0e 75  | needed........u|
00001af0  63 73 69 7a 65 3d 35 30  30 0d 0c 26 47 c8 99 20  |csize=500..&G.. |
00001b00  22 4f 53 5f 46 69 6c 65  22 2c 35 2c 22 3c 41 6c  |"OS_File",5,"<Al|
00001b10  70 73 47 61 6d 65 24 52  65 73 6f 75 72 63 65 73  |psGame$Resources|
00001b20  3e 41 53 49 6f 62 6a 63  6f 64 65 22 20 b8 20 66  |>ASIobjcode" . f|
00001b30  74 79 70 65 2c 2c 2c 2c  63 6f 64 65 73 69 7a 65  |type,,,,codesize|
00001b40  0d 0c 30 49 c8 99 20 22  4f 53 5f 46 69 6c 65 22  |..0I.. "OS_File"|
00001b50  2c 35 2c 22 3c 41 6c 70  73 47 61 6d 65 24 52 65  |,5,"<AlpsGame$Re|
00001b60  73 6f 75 72 63 65 73 3e  70 62 79 74 65 73 22 20  |sources>pbytes" |
00001b70  20 20 20 20 b8 20 66 74  79 70 65 2c 2c 2c 2c 70  |    . ftype,,,,p|
00001b80  62 79 74 65 5f 73 69 7a  65 0d 0c 3a 04 0d 0c 44  |byte_size..:...D|
00001b90  38 de 20 70 62 79 74 65  73 20 70 62 79 74 65 5f  |8. pbytes pbyte_|
00001ba0  73 69 7a 65 2c 77 6f 72  6b 25 20 26 31 31 30 30  |size,work% &1100|
00001bb0  2c 61 73 69 63 6f 64 65  25 20 63 6f 64 65 73 69  |,asicode% codesi|
00001bc0  7a 65 2b 31 30 0d 0c 4e  04 0d 0c 58 28 de 20 75  |ze+10..N...X(. u|
00001bd0  73 65 72 63 6f 64 65 25  20 75 63 73 69 7a 65 2c  |sercode% ucsize,|
00001be0  73 63 61 6c 65 20 31 35  2c 70 69 78 74 72 20 31  |scale 15,pixtr 1|
00001bf0  35 0d 0c 62 04 0d 0c 6c  10 72 75 6e 3d 61 73 69  |5..b...l.run=asi|
00001c00  63 6f 64 65 25 0d 0c 76  04 0d 0c 80 38 ff 28 22  |code%..v....8.("|
00001c10  4c 4f 41 44 20 3c 41 6c  70 73 47 61 6d 65 24 52  |LOAD <AlpsGame$R|
00001c20  65 73 6f 75 72 63 65 73  3e 41 53 49 6f 62 6a 63  |esources>ASIobjc|
00001c30  6f 64 65 20 22 2b c3 7e  61 73 69 63 6f 64 65 25  |ode "+.~asicode%|
00001c40  29 0d 0c 8a 05 e1 0d 0c  94 04 0d 0c 9e 04 0d 0c  |)...............|
00001c50  a8 0a dd 20 f2 72 75 6e  0d 0c b2 07 ea 20 85 0d  |... .run..... ..|
00001c60  0c bc 3a 65 72 72 5f 63  6f 6c 3d 31 31 3a f2 63  |..:err_col=11:.c|
00001c70  6f 6c 28 31 33 30 29 3a  f2 63 6f 6c 28 37 29 3a  |ol(130):.col(7):|
00001c80  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 6f 6c 6f  |.. "Wimp_SetColo|
00001c90  75 72 22 2c 31 32 38 2b  32 0d 0c c6 61 ee 20 85  |ur",128+2...a. .|
00001ca0  20 ea 3a f2 63 6f 6c 28  65 72 72 5f 63 6f 6c 29  | .:.col(err_col)|
00001cb0  3a e7 20 9f 3c 3e 31 37  20 f1 27 22 49 6e 74 65  |:. .<>17 .'"Inte|
00001cc0  72 70 72 65 74 65 72 20  72 65 70 6f 72 74 73 20  |rpreter reports |
00001cd0  61 20 72 75 6e 2d 74 69  6d 65 20 65 72 72 6f 72  |a run-time error|
00001ce0  3a 20 22 f6 24 3a e5 20  8d 64 40 4d 20 8b 20 f1  |: ".$:. .d@M . .|
00001cf0  27 f6 24 3a e5 20 8d 64  40 4d 0d 0c d0 11 21 77  |'.$:. .d@M....!w|
00001d00  6f 72 6b 25 3d 72 64 61  74 61 25 0d 0c da 13 77  |ork%=rdata%....w|
00001d10  6f 72 6b 25 21 34 3d 76  65 72 62 73 2b 33 0d 0c  |ork%!4=verbs+3..|
00001d20  e4 13 77 6f 72 6b 25 21  38 3d 6e 6f 75 6e 73 2b  |..work%!8=nouns+|
00001d30  33 0d 0c ee 17 77 6f 72  6b 25 21 31 32 3d 70 72  |3....work%!12=pr|
00001d40  6f 67 72 61 6d 25 2b 34  0d 0c f8 14 77 6f 72 6b  |ogram%+4....work|
00001d50  25 21 31 36 3d 74 65 78  74 25 2b 37 0d 0d 02 14  |%!16=text%+7....|
00001d60  77 6f 72 6b 25 21 32 30  3d 64 69 63 74 25 2b 33  |work%!20=dict%+3|
00001d70  0d 0d 0c 13 77 6f 72 6b  25 21 32 34 3d 6f 64 61  |....work%!24=oda|
00001d80  74 61 25 0d 0d 16 16 77  6f 72 6b 25 21 32 38 3d  |ta%....work%!28=|
00001d90  61 64 6a 65 63 74 73 2b  33 0d 0d 20 14 77 6f 72  |adjects+3.. .wor|
00001da0  6b 25 21 33 32 3d 70 72  65 70 73 2b 33 0d 0d 2a  |k%!32=preps+3..*|
00001db0  14 77 6f 72 6b 25 21 33  36 3d 63 6f 6e 6a 73 2b  |.work%!36=conjs+|
00001dc0  33 0d 0d 34 14 77 6f 72  6b 25 21 34 30 3d 73 70  |3..4.work%!40=sp|
00001dd0  65 63 73 2b 33 0d 0d 3e  14 77 6f 72 6b 25 21 34  |ecs+3..>.work%!4|
00001de0  34 3d 6e 6f 69 73 65 2b  33 0d 0d 48 13 77 6f 72  |4=noise+3..H.wor|
00001df0  6b 25 21 34 38 3d 70 69  78 73 2b 33 0d 0d 52 1b  |k%!48=pixs+3..R.|
00001e00  f4 20 20 77 6f 72 6b 25  21 35 32 20 69 73 20 72  |.  work%!52 is r|
00001e10  65 73 65 72 76 65 64 0d  0d 5c 15 77 6f 72 6b 25  |eserved..\.work%|
00001e20  21 35 36 3d 69 6e 69 74  73 61 76 65 0d 0d 66 16  |!56=initsave..f.|
00001e30  77 6f 72 6b 25 21 36 30  3d 6c 61 73 74 5f 72 6f  |work%!60=last_ro|
00001e40  6f 6d 0d 0d 70 1a 77 6f  72 6b 25 21 36 34 3d 6c  |om..p.work%!64=l|
00001e50  61 73 74 5f 6f 62 6a 65  63 74 2b 31 0d 0d 7a 05  |ast_object+1..z.|
00001e60  db 0d 0d 84 19 ef 20 32  34 2c 30 3b 31 34 34 3b  |...... 24,0;144;|
00001e70  73 63 72 77 3b 73 63 72  68 3b 0d 0d 8e 05 da 0d  |scrw;scrh;......|
00001e80  0d 98 05 ee 0d 0d a2 2b  41 25 3d 76 65 72 62 5f  |.......+A%=verb_|
00001e90  74 79 70 65 3a 42 25 3d  6e 72 65 66 3a 43 25 3d  |type:B%=nref:C%=|
00001ea0  61 72 65 66 3a 44 25 3d  72 61 6d 73 61 76 65 0d  |aref:D%=ramsave.|
00001eb0  0d ac 2d 45 25 3d 70 62  79 74 65 73 3a 46 25 3d  |..-E%=pbytes:F%=|
00001ec0  77 6f 72 6b 25 3a 47 25  3d 61 72 65 61 25 3a 48  |work%:G%=area%:H|
00001ed0  25 3d 61 72 65 61 5f 73  69 7a 65 25 0d 0d b6 09  |%=area_size%....|
00001ee0  d6 20 72 75 6e 0d 0d c0  07 f7 20 85 0d 0d ca 05  |. run..... .....|
00001ef0  e1 0d 0d d4 04 0d 0d de  04 0d 0d e8 11 dd 20 f2  |.............. .|
00001f00  6c 6f 61 64 5f 76 6f 63  61 62 0d 0d f2 28 f2 6c  |load_vocab...(.l|
00001f10  6f 61 64 5f 6e 6f 75 6e  73 28 22 3c 41 6c 70 73  |oad_nouns("<Alps|
00001f20  47 61 6d 65 24 44 61 74  61 3e 2e 4e 6f 75 6e 73  |Game$Data>.Nouns|
00001f30  22 29 0d 0d fc 28 f2 6c  6f 61 64 5f 76 65 72 62  |")...(.load_verb|
00001f40  73 28 22 3c 41 6c 70 73  47 61 6d 65 24 44 61 74  |s("<AlpsGame$Dat|
00001f50  61 3e 2e 56 65 72 62 73  22 29 0d 0e 06 2f f2 6c  |a>.Verbs").../.l|
00001f60  6f 61 64 5f 61 64 6a 65  63 74 73 28 22 3c 41 6c  |oad_adjects("<Al|
00001f70  70 73 47 61 6d 65 24 44  61 74 61 3e 2e 41 64 6a  |psGame$Data>.Adj|
00001f80  65 63 74 69 76 65 73 22  29 0d 0e 10 29 f2 6c 6f  |ectives")...).lo|
00001f90  61 64 5f 70 72 65 70 73  28 22 3c 41 6c 70 73 47  |ad_preps("<AlpsG|
00001fa0  61 6d 65 24 44 61 74 61  3e 2e 50 72 65 70 6f 73  |ame$Data>.Prepos|
00001fb0  22 29 0d 0e 1a 29 f2 6c  6f 61 64 5f 63 6f 6e 6a  |")...).load_conj|
00001fc0  28 22 3c 41 6c 70 73 47  61 6d 65 24 44 61 74 61  |("<AlpsGame$Data|
00001fd0  3e 2e 43 6f 6e 6a 75 6e  63 22 29 0d 0e 24 2a f2  |>.Conjunc")..$*.|
00001fe0  6c 6f 61 64 5f 73 70 65  63 28 22 3c 41 6c 70 73  |load_spec("<Alps|
00001ff0  47 61 6d 65 24 44 61 74  61 3e 2e 53 70 65 63 69  |Game$Data>.Speci|
00002000  61 6c 73 22 29 0d 0e 2e  28 f2 6c 6f 61 64 5f 6e  |als")...(.load_n|
00002010  6f 69 73 65 28 22 3c 41  6c 70 73 47 61 6d 65 24  |oise("<AlpsGame$|
00002020  44 61 74 61 3e 2e 4e 6f  69 73 65 22 29 0d 0e 38  |Data>.Noise")..8|
00002030  2c f2 6c 6f 61 64 5f 76  74 79 70 65 73 28 22 3c  |,.load_vtypes("<|
00002040  41 6c 70 73 47 61 6d 65  24 44 61 74 61 3e 2e 56  |AlpsGame$Data>.V|
00002050  65 72 62 54 79 70 65 22  29 0d 0e 42 27 f2 6c 6f  |erbType")..B'.lo|
00002060  61 64 5f 6e 72 65 66 73  28 22 3c 41 6c 70 73 47  |ad_nrefs("<AlpsG|
00002070  61 6d 65 24 44 61 74 61  3e 2e 4e 72 65 66 22 29  |ame$Data>.Nref")|
00002080  0d 0e 4c 27 f2 6c 6f 61  64 5f 61 72 65 66 73 28  |..L'.load_arefs(|
00002090  22 3c 41 6c 70 73 47 61  6d 65 24 44 61 74 61 3e  |"<AlpsGame$Data>|
000020a0  2e 41 72 65 66 22 29 0d  0e 56 05 e1 0d 0e 60 04  |.Aref")..V....`.|
000020b0  0d 0e 6a 18 dd 20 f2 6c  6f 61 64 5f 6e 6f 75 6e  |..j.. .load_noun|
000020c0  73 28 66 69 6c 65 24 29  0d 0e 74 10 e7 20 66 69  |s(file$)..t.. fi|
000020d0  6c 65 24 3d 22 22 20 8c  0d 0e 7e 11 f2 65 72 72  |le$="" ...~..err|
000020e0  6f 72 28 31 36 2c 22 22  29 0d 0e 88 05 cc 0d 0e  |or(16,"").......|
000020f0  92 1f ff 20 22 4c 4f 41  44 20 22 2b 66 69 6c 65  |... "LOAD "+file|
00002100  24 2b 22 20 22 2b c3 7e  6e 6f 75 6e 73 0d 0e 9c  |$+" "+.~nouns...|
00002110  0e 6f 62 6e 3d 3f 6e 6f  75 6e 73 0d 0e a6 28 6e  |.obn=?nouns...(n|
00002120  78 74 6f 62 6a 3d 6e 6f  75 6e 73 2b 28 6e 6f 75  |xtobj=nouns+(nou|
00002130  6e 73 3f 31 2b 32 35 36  2a 28 6e 6f 75 6e 73 3f  |ns?1+256*(nouns?|
00002140  32 29 29 0d 0e b0 05 cd  0d 0e ba 05 e1 0d 0e c4  |2)).............|
00002150  04 0d 0e ce 18 dd 20 f2  6c 6f 61 64 5f 76 65 72  |...... .load_ver|
00002160  62 73 28 66 69 6c 65 24  29 0d 0e d8 10 e7 20 66  |bs(file$)..... f|
00002170  69 6c 65 24 3d 22 22 20  8c 0d 0e e2 11 f2 65 72  |ile$="" ......er|
00002180  72 6f 72 28 31 36 2c 22  22 29 0d 0e ec 05 cc 0d  |ror(16,"")......|
00002190  0e f6 1f ff 20 22 4c 4f  41 44 20 22 2b 66 69 6c  |.... "LOAD "+fil|
000021a0  65 24 2b 22 20 22 2b c3  7e 76 65 72 62 73 0d 0f  |e$+" "+.~verbs..|
000021b0  00 0e 76 62 6e 3d 3f 76  65 72 62 73 0d 0f 0a 28  |..vbn=?verbs...(|
000021c0  6e 78 74 76 72 62 3d 76  65 72 62 73 2b 28 76 65  |nxtvrb=verbs+(ve|
000021d0  72 62 73 3f 31 2b 32 35  36 2a 28 76 65 72 62 73  |rbs?1+256*(verbs|
000021e0  3f 32 29 29 0d 0f 14 05  cd 0d 0f 1e 05 e1 0d 0f  |?2))............|
000021f0  28 04 0d 0f 32 1a dd 20  f2 6c 6f 61 64 5f 61 64  |(...2.. .load_ad|
00002200  6a 65 63 74 73 28 66 69  6c 65 24 29 0d 0f 3c 10  |jects(file$)..<.|
00002210  e7 20 66 69 6c 65 24 3d  22 22 20 8c 0d 0f 46 11  |. file$="" ...F.|
00002220  f2 65 72 72 6f 72 28 31  36 2c 22 22 29 0d 0f 50  |.error(16,"")..P|
00002230  05 cc 0d 0f 5a 21 ff 20  22 4c 4f 41 44 20 22 2b  |....Z!. "LOAD "+|
00002240  66 69 6c 65 24 2b 22 20  22 2b c3 7e 61 64 6a 65  |file$+" "+.~adje|
00002250  63 74 73 0d 0f 64 10 61  64 6e 3d 3f 61 64 6a 65  |cts..d.adn=?adje|
00002260  63 74 73 0d 0f 6e 2e 6e  78 74 61 64 6a 3d 61 64  |cts..n.nxtadj=ad|
00002270  6a 65 63 74 73 2b 28 61  64 6a 65 63 74 73 3f 31  |jects+(adjects?1|
00002280  2b 32 35 36 2a 28 61 64  6a 65 63 74 73 3f 32 29  |+256*(adjects?2)|
00002290  29 0d 0f 78 05 cd 0d 0f  82 05 e1 0d 0f 8c 04 0d  |)..x............|
000022a0  0f 96 18 dd 20 f2 6c 6f  61 64 5f 70 72 65 70 73  |.... .load_preps|
000022b0  28 66 69 6c 65 24 29 0d  0f a0 10 e7 20 66 69 6c  |(file$)..... fil|
000022c0  65 24 3d 22 22 20 8c 0d  0f aa 11 f2 65 72 72 6f  |e$="" ......erro|
000022d0  72 28 31 36 2c 22 22 29  0d 0f b4 05 cc 0d 0f be  |r(16,"")........|
000022e0  1f ff 20 22 4c 4f 41 44  20 22 2b 66 69 6c 65 24  |.. "LOAD "+file$|
000022f0  2b 22 20 22 2b c3 7e 70  72 65 70 73 0d 0f c8 0e  |+" "+.~preps....|
00002300  70 72 6e 3d 3f 70 72 65  70 73 0d 0f d2 28 6e 78  |prn=?preps...(nx|
00002310  74 70 72 70 3d 70 72 65  70 73 2b 28 70 72 65 70  |tprp=preps+(prep|
00002320  73 3f 31 2b 32 35 36 2a  28 70 72 65 70 73 3f 32  |s?1+256*(preps?2|
00002330  29 29 0d 0f dc 05 cd 0d  0f e6 05 e1 0d 0f f0 04  |))..............|
00002340  0d 0f fa 17 dd 20 f2 6c  6f 61 64 5f 63 6f 6e 6a  |..... .load_conj|
00002350  28 66 69 6c 65 24 29 0d  10 04 10 e7 20 66 69 6c  |(file$)..... fil|
00002360  65 24 3d 22 22 20 8c 0d  10 0e 11 f2 65 72 72 6f  |e$="" ......erro|
00002370  72 28 31 36 2c 22 22 29  0d 10 18 05 cc 0d 10 22  |r(16,"")......."|
00002380  1f ff 20 22 4c 4f 41 44  20 22 2b 66 69 6c 65 24  |.. "LOAD "+file$|
00002390  2b 22 20 22 2b c3 7e 63  6f 6e 6a 73 0d 10 2c 0e  |+" "+.~conjs..,.|
000023a0  63 6a 6e 3d 3f 63 6f 6e  6a 73 0d 10 36 28 6e 78  |cjn=?conjs..6(nx|
000023b0  74 63 6a 6e 3d 63 6f 6e  6a 73 2b 28 63 6f 6e 6a  |tcjn=conjs+(conj|
000023c0  73 3f 31 2b 32 35 36 2a  28 63 6f 6e 6a 73 3f 32  |s?1+256*(conjs?2|
000023d0  29 29 0d 10 40 05 cd 0d  10 4a 05 e1 0d 10 54 04  |))..@....J....T.|
000023e0  0d 10 5e 17 dd 20 f2 6c  6f 61 64 5f 73 70 65 63  |..^.. .load_spec|
000023f0  28 66 69 6c 65 24 29 0d  10 68 10 e7 20 66 69 6c  |(file$)..h.. fil|
00002400  65 24 3d 22 22 20 8c 0d  10 72 11 f2 65 72 72 6f  |e$="" ...r..erro|
00002410  72 28 31 36 2c 22 22 29  0d 10 7c 05 cc 0d 10 86  |r(16,"")..|.....|
00002420  1f ff 20 22 4c 4f 41 44  20 22 2b 66 69 6c 65 24  |.. "LOAD "+file$|
00002430  2b 22 20 22 2b c3 7e 73  70 65 63 73 0d 10 90 0e  |+" "+.~specs....|
00002440  73 70 6e 3d 3f 73 70 65  63 73 0d 10 9a 28 6e 78  |spn=?specs...(nx|
00002450  74 73 70 6e 3d 73 70 65  63 73 2b 28 73 70 65 63  |tspn=specs+(spec|
00002460  73 3f 31 2b 32 35 36 2a  28 73 70 65 63 73 3f 32  |s?1+256*(specs?2|
00002470  29 29 0d 10 a4 05 cd 0d  10 ae 05 e1 0d 10 b8 04  |))..............|
00002480  0d 10 c2 18 dd 20 f2 6c  6f 61 64 5f 6e 6f 69 73  |..... .load_nois|
00002490  65 28 66 69 6c 65 24 29  0d 10 cc 10 e7 20 66 69  |e(file$)..... fi|
000024a0  6c 65 24 3d 22 22 20 8c  0d 10 d6 11 f2 65 72 72  |le$="" ......err|
000024b0  6f 72 28 31 36 2c 22 22  29 0d 10 e0 05 cc 0d 10  |or(16,"").......|
000024c0  ea 1f ff 20 22 4c 4f 41  44 20 22 2b 66 69 6c 65  |... "LOAD "+file|
000024d0  24 2b 22 20 22 2b c3 7e  6e 6f 69 73 65 0d 10 f4  |$+" "+.~noise...|
000024e0  0e 6e 73 6e 3d 3f 6e 6f  69 73 65 0d 10 fe 28 6e  |.nsn=?noise...(n|
000024f0  78 74 6e 73 6e 3d 6e 6f  69 73 65 2b 28 6e 6f 69  |xtnsn=noise+(noi|
00002500  73 65 3f 31 2b 32 35 36  2a 28 6e 6f 69 73 65 3f  |se?1+256*(noise?|
00002510  32 29 29 0d 11 08 05 cd  0d 11 12 05 e1 0d 11 1c  |2)).............|
00002520  04 0d 11 26 19 dd 20 f2  6c 6f 61 64 5f 76 74 79  |...&.. .load_vty|
00002530  70 65 73 28 66 69 6c 65  24 29 0d 11 30 10 e7 20  |pes(file$)..0.. |
00002540  66 69 6c 65 24 3d 22 22  20 8c 0d 11 3a 11 f2 65  |file$="" ...:..e|
00002550  72 72 6f 72 28 31 36 2c  22 22 29 0d 11 44 05 cc  |rror(16,"")..D..|
00002560  0d 11 4e 23 ff 20 22 4c  4f 41 44 20 22 2b 66 69  |..N#. "LOAD "+fi|
00002570  6c 65 24 2b 22 20 22 2b  c3 7e 76 65 72 62 5f 74  |le$+" "+.~verb_t|
00002580  79 70 65 0d 11 58 05 cd  0d 11 62 05 e1 0d 11 6c  |ype..X....b....l|
00002590  04 0d 11 76 18 dd 20 f2  6c 6f 61 64 5f 61 72 65  |...v.. .load_are|
000025a0  66 73 28 66 69 6c 65 24  29 0d 11 80 10 e7 20 66  |fs(file$)..... f|
000025b0  69 6c 65 24 3d 22 22 20  8c 0d 11 8a 11 f2 65 72  |ile$="" ......er|
000025c0  72 6f 72 28 31 36 2c 22  22 29 0d 11 94 05 cc 0d  |ror(16,"")......|
000025d0  11 9e 1e ff 20 22 4c 4f  41 44 20 22 2b 66 69 6c  |.... "LOAD "+fil|
000025e0  65 24 2b 22 20 22 2b c3  7e 61 72 65 66 0d 11 a8  |e$+" "+.~aref...|
000025f0  05 cd 0d 11 b2 05 e1 0d  11 bc 04 0d 11 c6 18 dd  |................|
00002600  20 f2 6c 6f 61 64 5f 6e  72 65 66 73 28 66 69 6c  | .load_nrefs(fil|
00002610  65 24 29 0d 11 d0 10 e7  20 66 69 6c 65 24 3d 22  |e$)..... file$="|
00002620  22 20 8c 0d 11 da 11 f2  65 72 72 6f 72 28 31 36  |" ......error(16|
00002630  2c 22 22 29 0d 11 e4 05  cc 0d 11 ee 1e ff 20 22  |,"").......... "|
00002640  4c 4f 41 44 20 22 2b 66  69 6c 65 24 2b 22 20 22  |LOAD "+file$+" "|
00002650  2b c3 7e 6e 72 65 66 0d  11 f8 05 cd 0d 12 02 05  |+.~nref.........|
00002660  e1 0d 12 0c 04 0d 12 16  17 dd 20 f2 6c 6f 61 64  |.......... .load|
00002670  5f 6f 62 6a 73 28 66 69  6c 65 24 29 0d 12 20 10  |_objs(file$).. .|
00002680  e7 20 66 69 6c 65 24 3d  22 22 20 8c 0d 12 2a 11  |. file$="" ...*.|
00002690  f2 65 72 72 6f 72 28 31  36 2c 22 22 29 0d 12 34  |.error(16,"")..4|
000026a0  05 cc 0d 12 3e 20 ff 20  22 4c 4f 41 44 20 22 2b  |....> . "LOAD "+|
000026b0  66 69 6c 65 24 2b 22 20  22 2b c3 7e 6f 64 61 74  |file$+" "+.~odat|
000026c0  61 25 0d 12 48 12 6f 70  74 72 3d 6f 64 61 74 61  |a%..H.optr=odata|
000026d0  25 3f 31 34 0d 12 52 19  6c 61 73 74 5f 6f 62 6a  |%?14..R.last_obj|
000026e0  65 63 74 3d 6f 64 61 74  61 25 3f 31 35 0d 12 5c  |ect=odata%?15..\|
000026f0  05 cd 0d 12 66 05 e1 0d  12 70 04 0d 12 7a 18 dd  |....f....p...z..|
00002700  20 f2 6c 6f 61 64 5f 72  6f 6f 6d 73 28 66 69 6c  | .load_rooms(fil|
00002710  65 24 29 0d 12 84 10 e7  20 66 69 6c 65 24 3d 22  |e$)..... file$="|
00002720  22 20 8c 0d 12 8e 11 f2  65 72 72 6f 72 28 31 36  |" ......error(16|
00002730  2c 22 22 29 0d 12 98 05  cc 0d 12 a2 20 ff 20 22  |,"")........ . "|
00002740  4c 4f 41 44 20 22 2b 66  69 6c 65 24 2b 22 20 22  |LOAD "+file$+" "|
00002750  2b c3 7e 72 64 61 74 61  25 0d 12 ac 18 72 70 74  |+.~rdata%....rpt|
00002760  72 3d 21 72 64 61 74 61  25 20 80 20 26 46 46 46  |r=!rdata% . &FFF|
00002770  46 0d 12 b6 27 6c 61 73  74 5f 72 6f 6f 6d 3d 28  |F...'last_room=(|
00002780  21 72 64 61 74 61 25 20  80 20 26 46 46 46 46 30  |!rdata% . &FFFF0|
00002790  30 30 30 29 3e 3e 31 36  0d 12 c0 05 cd 0d 12 ca  |000)>>16........|
000027a0  05 e1 0d 12 d4 04 0d 12  de 16 dd 20 f2 6c 6f 61  |........... .loa|
000027b0  64 5f 70 69 78 28 66 69  6c 65 24 29 0d 12 e8 10  |d_pix(file$)....|
000027c0  e7 20 66 69 6c 65 24 3d  22 22 20 8c 0d 12 f2 11  |. file$="" .....|
000027d0  f2 65 72 72 6f 72 28 31  36 2c 22 22 29 0d 12 fc  |.error(16,"")...|
000027e0  05 cc 0d 13 06 1e ff 20  22 4c 4f 41 44 20 22 2b  |....... "LOAD "+|
000027f0  66 69 6c 65 24 2b 22 20  22 2b c3 7e 70 69 78 73  |file$+" "+.~pixs|
00002800  0d 13 10 0d 70 78 6e 3d  3f 70 69 78 73 0d 13 1a  |....pxn=?pixs...|
00002810  25 6e 78 74 70 78 6e 3d  70 69 78 73 2b 28 70 69  |%nxtpxn=pixs+(pi|
00002820  78 73 3f 31 2b 32 35 36  2a 28 70 69 78 73 3f 32  |xs?1+256*(pixs?2|
00002830  29 29 0d 13 24 05 cd 0d  13 2e 05 e1 0d 13 38 04  |))..$.........8.|
00002840  0d 13 42 1a dd 20 f2 6c  6f 61 64 5f 70 72 6f 67  |..B.. .load_prog|
00002850  72 61 6d 28 66 69 6c 65  24 29 0d 13 4c 10 e7 20  |ram(file$)..L.. |
00002860  66 69 6c 65 24 3d 22 22  20 8c 0d 13 56 11 f2 65  |file$="" ...V..e|
00002870  72 72 6f 72 28 31 36 2c  22 22 29 0d 13 60 05 cc  |rror(16,"")..`..|
00002880  0d 13 6a 22 ff 20 22 4c  4f 41 44 20 22 2b 66 69  |..j". "LOAD "+fi|
00002890  6c 65 24 2b 22 20 22 2b  c3 7e 70 72 6f 67 72 61  |le$+" "+.~progra|
000028a0  6d 25 0d 13 74 05 cd 0d  13 7e 05 e1 0d 13 88 04  |m%..t....~......|
000028b0  0d 13 92 17 dd 20 f2 6c  6f 61 64 5f 74 65 78 74  |..... .load_text|
000028c0  28 66 69 6c 65 24 29 0d  13 9c 10 e7 20 66 69 6c  |(file$)..... fil|
000028d0  65 24 3d 22 22 20 8c 0d  13 a6 11 f2 65 72 72 6f  |e$="" ......erro|
000028e0  72 28 31 36 2c 22 22 29  0d 13 b0 05 cc 0d 13 ba  |r(16,"")........|
000028f0  1f ff 20 22 4c 4f 41 44  20 22 2b 66 69 6c 65 24  |.. "LOAD "+file$|
00002900  2b 22 20 22 2b c3 7e 74  65 78 74 25 0d 13 c4 0a  |+" "+.~text%....|
00002910  6d 70 74 72 3d 31 0d 13  ce 05 cd 0d 13 d8 05 e1  |mptr=1..........|
00002920  0d 13 e2 04 0d 13 ec 17  dd 20 f2 6c 6f 61 64 5f  |......... .load_|
00002930  64 69 63 74 28 66 69 6c  65 24 29 0d 13 f6 0b ea  |dict(file$).....|
00002940  20 49 25 2c 4c 25 0d 14  00 10 e7 20 66 69 6c 65  | I%,L%..... file|
00002950  24 3d 22 22 20 8c 0d 14  0a 11 f2 65 72 72 6f 72  |$="" ......error|
00002960  28 31 36 2c 22 22 29 0d  14 14 05 cc 0d 14 1e 1f  |(16,"").........|
00002970  ff 20 22 4c 4f 41 44 20  22 2b 66 69 6c 65 24 2b  |. "LOAD "+file$+|
00002980  22 20 22 2b c3 7e 64 69  63 74 25 0d 14 28 15 74  |" "+.~dict%..(.t|
00002990  6f 6b 25 3d 64 69 63 74  25 3f 32 3a 4c 25 3d 30  |ok%=dict%?2:L%=0|
000029a0  0d 14 32 21 e7 20 74 6f  6b 25 3d 30 20 74 6f 6b  |..2!. tok%=0 tok|
000029b0  25 3d 31 32 38 20 8b 20  74 6f 6b 25 2d 3d 31 32  |%=128 . tok%-=12|
000029c0  38 0d 14 3c 05 cd 0d 14  46 05 e1 0d 14 50 04 0d  |8..<....F....P..|
000029d0  14 5a 11 dd 20 f2 6c 6f  61 64 5f 66 69 6c 65 73  |.Z.. .load_files|
000029e0  0d 14 64 29 f2 6c 6f 61  64 5f 6f 62 6a 73 28 22  |..d).load_objs("|
000029f0  3c 41 6c 70 73 47 61 6d  65 24 44 61 74 61 3e 2e  |<AlpsGame$Data>.|
00002a00  4f 62 6a 65 63 74 73 22  29 0d 14 6e 28 f2 6c 6f  |Objects")..n(.lo|
00002a10  61 64 5f 72 6f 6f 6d 73  28 22 3c 41 6c 70 73 47  |ad_rooms("<AlpsG|
00002a20  61 6d 65 24 44 61 74 61  3e 2e 52 6f 6f 6d 73 22  |ame$Data>.Rooms"|
00002a30  29 0d 14 78 29 f2 6c 6f  61 64 5f 70 69 78 28 22  |)..x).load_pix("|
00002a40  3c 41 6c 70 73 47 61 6d  65 24 44 61 74 61 3e 2e  |<AlpsGame$Data>.|
00002a50  50 69 63 74 75 72 65 73  22 29 0d 14 82 0f f2 6c  |Pictures").....l|
00002a60  6f 61 64 5f 76 6f 63 61  62 0d 14 8c 2c f2 6c 6f  |oad_vocab...,.lo|
00002a70  61 64 5f 70 72 6f 67 72  61 6d 28 22 3c 41 6c 70  |ad_program("<Alp|
00002a80  73 47 61 6d 65 24 44 61  74 61 3e 2e 50 72 6f 67  |sGame$Data>.Prog|
00002a90  72 61 6d 22 29 0d 14 96  26 f2 6c 6f 61 64 5f 74  |ram")...&.load_t|
00002aa0  65 78 74 28 22 3c 41 6c  70 73 47 61 6d 65 24 44  |ext("<AlpsGame$D|
00002ab0  61 74 61 3e 2e 54 65 78  74 22 29 0d 14 a0 26 f2  |ata>.Text")...&.|
00002ac0  6c 6f 61 64 5f 64 69 63  74 28 22 3c 41 6c 70 73  |load_dict("<Alps|
00002ad0  47 61 6d 65 24 44 61 74  61 3e 2e 44 69 63 74 22  |Game$Data>.Dict"|
00002ae0  29 0d 14 aa 31 ff 20 22  4c 4f 41 44 20 3c 41 6c  |)...1. "LOAD <Al|
00002af0  70 73 47 61 6d 65 24 52  65 73 6f 75 72 63 65 73  |psGame$Resources|
00002b00  3e 70 62 79 74 65 73 20  22 2b c3 7e 70 62 79 74  |>pbytes "+.~pbyt|
00002b10  65 73 0d 14 b4 05 e1 0d  14 be 04 0d 14 c8 0e dd  |es..............|
00002b20  20 a4 67 65 74 6d 6f 64  65 0d 14 d2 25 69 6e 25  | .getmode...%in%|
00002b30  3d 8e 28 22 3c 41 6c 70  73 47 61 6d 65 24 44 61  |=.("<AlpsGame$Da|
00002b40  74 61 3e 2e 47 61 6d 65  44 61 74 61 22 29 0d 14  |ta>.GameData")..|
00002b50  dc 0f 6d 6f 64 65 25 3d  9a 23 69 6e 25 0d 14 e6  |..mode%=.#in%...|
00002b60  09 d9 23 69 6e 25 0d 14  f0 0a 3d 6d 6f 64 65 25  |..#in%....=mode%|
00002b70  0d 14 fa 04 0d 15 04 04  0d 15 0e 27 dd 20 a4 65  |...........'. .e|
00002b80  6e 74 65 72 5f 77 6f 72  64 28 6c 65 6e 25 2c 63  |nter_word(len%,c|
00002b90  68 24 2c 77 64 24 2c 77  78 25 2c 77 79 25 29 0d  |h$,wd$,wx%,wy%).|
00002ba0  15 18 0d ea 20 6b 65 79  2c 50 6f 25 0d 15 22 0b  |.... key,Po%..".|
00002bb0  2a 46 58 20 34 2c 31 0d  15 2c 09 50 6f 25 3d 30  |*FX 4,1..,.Po%=0|
00002bc0  0d 15 36 05 f5 0d 15 40  14 f1 20 8a 77 78 25 2b  |..6....@.. .wx%+|
00002bd0  50 6f 25 2c 77 79 25 29  3b 0d 15 4a 0b 2a 46 58  |Po%,wy%);..J.*FX|
00002be0  31 35 2c 30 0d 15 54 05  f5 0d 15 5e 09 6b 65 79  |15,0..T....^.key|
00002bf0  3d a5 0d 15 68 15 fd 20  6b 65 79 3e 33 31 20 84  |=...h.. key>31 .|
00002c00  20 6b 65 79 3d 31 33 0d  15 72 11 e7 20 28 6b 65  | key=13..r.. (ke|
00002c10  79 3d 31 32 37 29 20 8c  0d 15 7c 2e e7 20 a6 2d  |y=127) ...|.. .-|
00002c20  31 20 8c 20 77 64 24 3d  c0 77 64 24 2c 50 6f 25  |1 . wd$=.wd$,Po%|
00002c30  29 2b c2 77 64 24 2c 6c  65 6e 25 2d 50 6f 25 2d  |)+.wd$,len%-Po%-|
00002c40  31 29 2b 63 68 24 0d 15  86 17 e7 20 28 50 6f 25  |1)+ch$..... (Po%|
00002c50  3e 30 20 80 20 ac 20 a6  2d 31 29 20 8c 0d 15 90  |>0 . . .-1) ....|
00002c60  2d 50 6f 25 2d 3d 31 3a  77 64 24 3d c0 77 64 24  |-Po%-=1:wd$=.wd$|
00002c70  2c 50 6f 25 29 2b c2 77  64 24 2c 6c 65 6e 25 2d  |,Po%)+.wd$,len%-|
00002c80  50 6f 25 2d 31 29 2b 63  68 24 0d 15 9a 05 cd 0d  |Po%-1)+ch$......|
00002c90  15 a4 05 cd 0d 15 ae 25  e7 20 6b 65 79 3d 31 33  |.......%. key=13|
00002ca0  37 20 80 20 50 6f 25 2b  31 3c 6c 65 6e 25 20 8c  |7 . Po%+1<len% .|
00002cb0  20 50 6f 25 2b 3d 28 31  29 0d 15 b8 1e e7 20 6b  | Po%+=(1)..... k|
00002cc0  65 79 3d 31 33 36 20 80  20 50 6f 25 3e 30 20 8c  |ey=136 . Po%>0 .|
00002cd0  20 50 6f 25 2d 3d 31 0d  15 c2 1a e7 20 28 6b 65  | Po%-=1..... (ke|
00002ce0  79 3e 33 31 20 80 20 6b  65 79 3c 31 32 37 29 20  |y>31 . key<127) |
00002cf0  8c 0d 15 cc 08 4b 25 3d  a3 0d 15 d6 14 e3 20 6c  |.....K%=...... l|
00002d00  70 25 3d 50 6f 25 20 b8  20 6c 65 6e 25 0d 15 e0  |p%=Po% . len%...|
00002d10  27 e7 20 c1 77 64 24 2c  6c 70 25 2c 31 29 3d 63  |'. .wd$,lp%,1)=c|
00002d20  68 24 20 80 20 50 6f 25  3c 6c 65 6e 25 20 8c 20  |h$ . Po%<len% . |
00002d30  4b 25 3d b9 0d 15 ea 05  ed 0d 15 f4 0a e7 20 4b  |K%=........... K|
00002d40  25 20 8c 0d 15 fe 29 77  64 24 3d c0 77 64 24 2c  |% ....)wd$=.wd$,|
00002d50  50 6f 25 29 2b bd 28 6b  65 79 29 2b c2 77 64 24  |Po%)+.(key)+.wd$|
00002d60  2c 6c 65 6e 25 2d 50 6f  25 2d 31 29 0d 16 08 0c  |,len%-Po%-1)....|
00002d70  50 6f 25 2b 3d 28 31 29  0d 16 12 05 cd 0d 16 1c  |Po%+=(1)........|
00002d80  05 cd 0d 16 26 14 f1 20  8a 77 78 25 2c 77 79 25  |....&.. .wx%,wy%|
00002d90  29 3b 77 64 24 3b 0d 16  30 0c fd 20 6b 65 79 3d  |);wd$;..0.. key=|
00002da0  31 33 0d 16 3a 0b 2a 46  58 20 34 2c 30 0d 16 44  |13..:.*FX 4,0..D|
00002db0  08 3d 77 64 24 0d 16 4e  04 0d 16 58 04 0d 16 62  |.=wd$..N...X...b|
00002dc0  18 dd 20 f2 67 65 74 6d  6f 64 65 69 6e 66 6f 28  |.. .getmodeinfo(|
00002dd0  6d 6f 64 65 29 0d 16 6c  18 ea 20 78 2c 79 2c 78  |mode)..l.. x,y,x|
00002de0  65 69 67 2c 79 65 69 67  2c 63 6f 6c 73 0d 16 76  |eig,yeig,cols..v|
00002df0  04 0d 16 80 31 c8 99 20  22 4f 53 5f 52 65 61 64  |....1.. "OS_Read|
00002e00  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 6d 6f  |ModeVariable",mo|
00002e10  64 65 2c 31 20 b8 20 2c  2c 74 65 78 74 63 6f 6c  |de,1 . ,,textcol|
00002e20  73 25 0d 16 8a 31 c8 99  20 22 4f 53 5f 52 65 61  |s%...1.. "OS_Rea|
00002e30  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 6d  |dModeVariable",m|
00002e40  6f 64 65 2c 32 20 b8 20  2c 2c 74 65 78 74 72 6f  |ode,2 . ,,textro|
00002e50  77 73 25 0d 16 94 1d 74  65 78 74 5f 6d 61 78 6c  |ws%....text_maxl|
00002e60  6c 65 6e 25 3d 74 65 78  74 63 6f 6c 73 25 2d 32  |len%=textcols%-2|
00002e70  0d 16 9e 2c c8 99 20 22  4f 53 5f 52 65 61 64 4d  |...,.. "OS_ReadM|
00002e80  6f 64 65 56 61 72 69 61  62 6c 65 22 2c 6d 6f 64  |odeVariable",mod|
00002e90  65 2c 33 20 b8 20 2c 2c  63 6f 6c 73 0d 16 a8 2c  |e,3 . ,,cols...,|
00002ea0  c8 99 20 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |.. "OS_ReadModeV|
00002eb0  61 72 69 61 62 6c 65 22  2c 6d 6f 64 65 2c 34 20  |ariable",mode,4 |
00002ec0  b8 20 2c 2c 78 65 69 67  0d 16 b2 2c c8 99 20 22  |. ,,xeig...,.. "|
00002ed0  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00002ee0  62 6c 65 22 2c 6d 6f 64  65 2c 35 20 b8 20 2c 2c  |ble",mode,5 . ,,|
00002ef0  79 65 69 67 0d 16 bc 30  c8 99 20 22 4f 53 5f 52  |yeig...0.. "OS_R|
00002f00  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
00002f10  2c 6d 6f 64 65 2c 37 20  b8 20 2c 2c 73 63 72 6e  |,mode,7 . ,,scrn|
00002f20  73 69 7a 65 0d 16 c6 2a  c8 99 20 22 4f 53 5f 52  |size...*.. "OS_R|
00002f30  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
00002f40  2c 6d 6f 64 65 2c 31 31  20 b8 20 2c 2c 78 0d 16  |,mode,11 . ,,x..|
00002f50  d0 2a c8 99 20 22 4f 53  5f 52 65 61 64 4d 6f 64  |.*.. "OS_ReadMod|
00002f60  65 56 61 72 69 61 62 6c  65 22 2c 6d 6f 64 65 2c  |eVariable",mode,|
00002f70  31 32 20 b8 20 2c 2c 79  0d 16 da 2d 73 63 72 77  |12 . ,,y...-scrw|
00002f80  3d 28 28 78 2b 31 29 3c  3c 78 65 69 67 29 2d 31  |=((x+1)<<xeig)-1|
00002f90  3a 73 63 72 68 3d 28 28  79 2b 31 29 3c 3c 79 65  |:scrh=((y+1)<<ye|
00002fa0  69 67 29 2d 31 0d 16 e4  05 e1 0d 16 ee 04 0d 16  |ig)-1...........|
00002fb0  f8 11 dd 20 f2 63 6f 6c  28 63 6f 6c 6f 72 29 0d  |... .col(color).|
00002fc0  17 02 1e c8 99 20 22 57  69 6d 70 5f 54 65 78 74  |..... "Wimp_Text|
00002fd0  43 6f 6c 6f 75 72 22 2c  63 6f 6c 6f 72 0d 17 0c  |Colour",color...|
00002fe0  05 e1 0d 17 16 04 0d 17  20 13 dd 20 f2 6c 6f 61  |........ .. .loa|
00002ff0  64 5f 70 61 6c 28 66 24  29 0d 17 2a 0d ea 20 69  |d_pal(f$)..*.. i|
00003000  6e 25 2c 63 6f 6c 0d 17  34 0d 69 6e 25 3d 8e 28  |n%,col..4.in%=.(|
00003010  66 24 29 0d 17 3e 10 e3  20 63 6f 6c 3d 30 20 b8  |f$)..>.. col=0 .|
00003020  20 31 39 0d 17 48 51 20  20 e7 20 63 6f 6c 3c 31  | 19..HQ  . col<1|
00003030  36 20 63 6f 6c 31 3d 63  6f 6c 3a 63 6f 6c 32 3d  |6 col1=col:col2=|
00003040  31 36 20 8b 20 e7 20 63  6f 6c 3d 31 36 20 63 6f  |16 . . col=16 co|
00003050  6c 31 3d 63 6f 6c 3a 63  6f 6c 32 3d 32 34 20 8b  |l1=col:col2=24 .|
00003060  20 63 6f 6c 31 3d 63 6f  6c 2d 31 36 3a 63 6f 6c  | col1=col-16:col|
00003070  32 3d 32 35 0d 17 52 1d  20 20 72 3d 9a 23 69 6e  |2=25..R.  r=.#in|
00003080  25 3a 67 3d 9a 23 69 6e  25 3a 62 3d 9a 23 69 6e  |%:g=.#in%:b=.#in|
00003090  25 0d 17 5c 1a 20 20 ef  20 31 39 2c 63 6f 6c 31  |%..\.  . 19,col1|
000030a0  2c 63 6f 6c 32 2c 72 2c  67 2c 62 0d 17 66 09 ed  |,col2,r,g,b..f..|
000030b0  20 63 6f 6c 0d 17 70 09  d9 23 69 6e 25 0d 17 7a  | col..p..#in%..z|
000030c0  05 e1 0d 17 84 04 0d ff                           |........|
000030c8