"� >$.!ALPS.Resources.!RunImage
+� (C) 1989 P. Hawthorne/Alpine Software
7� Modified 30.05.90 - select wimp mode for PixTrans
(
2E� � errflag=�error:� errflag=1 � �:ș "Wimp_SetMode",WimpMode � �
<WimpMode = �
F
P� OSbuffer 10
Z5ș "XOS_ReadVarVal","Alps$ShowAddress",OSbuffer,8
d� ?OSbuffer = �"1" �
n   showit=�
x�
�   showit=�
��
�6ș "XOS_ReadVarVal","Alps$NoMouseInput",OSbuffer,8
�� ?OSbuffer = �"1" �
�   load_buttons=�
��
�   load_buttons=�
��
�
�
�mode%=�getmode
��getmodeinfo(mode%)
�
�init2



*FX200,1



"� showit �

,� 7

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

@�

J

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

^barfgcol=0:barbgcol=1

h

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

|(� 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"):�
0�=0:� � �>500
:�
D
N
� mode%:�
O
X� ----- 30.05.90 -----
bș "Wimp_SetMode",mode%
lș "Wimp_Initialise"
m� --------------------
n
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
*� load_buttons �
4   *POINTER
>   ȗ �
H   ȗ � 550,48
R�
\
fin%=�(optionname$)
pchoice=�
z � in%<>0 � choice=�load(in%)
�� choice � �tjE
�
��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."

$  �
.
  *FX21,0
8
B  � key=1 � 12
L    �col(14)
V+    �2,key+10);"String for F";key;":";
`    �col(12)
j8    key$(key)=�enter_word(60," ",�60," "),17,key+10)
tC    � >>>>>>>> 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)
<  � A$="Y" � A$="y" � key=7
F  � A$="N" � A$="n" � key=8
P@    � B%=4 � load_buttons:�in(X%,Y%,key):�:ȗX%,Y%,B%:� B%=0
Z  � key=7 � key=8
d
n� key=7
x
��
�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."
)ș "Wimp_SetMode",WimpMode:� 30.05.90
�
"
,� �in(X%,Y%,� com)
6com=0:row=99
@� Y%>79 � Y%<125 row=1
J� Y%>0 � Y%<51 row=0
Tcol=(X%-minx) � (width) + 1
^&� col<=rowlen � com=col+rowlen*row
h�
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� K%=1 � 12
N  �#chan%,key$(K%)
X"  �("KEY "+�(K%)+" "+key$(K%))
b�
l
v� #chan%
��
�
�� �WriteOutFile
�
�chan%=� optionname$
�
�� K%=1 � 12
�  �#chan%,key$(K%)
��
�
��#chan%
��
�

� �error
*POINTER 1
 
ȗ � 1
*
4#ș "Wimp_SetColour",1:width=700
>%reportwidth=(�(�$)+�(�(�))+12)*16
H+� width<reportwidth � width=reportwidth
Rȓ Ȑ 200,300,width,204
\ȗ ȓ 200,300,width,204
fCș "Wimp_SetColour",7:� 5:� 216,450:�"System reports an error:"
p*� 216,400:� �$;:� �>0 � �" at line ";�
zZș "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
	.	� 4:�
	8ȗ ȓ 0,0,1279,1023
	B
	L� load_buttons � flag=2
	V   ȗ �
	`�
	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)
(r_len=74:o_len=16
2
<5maxmsg=65535:maxobn=255:maxvbn=255:maxconst=65535
FEmaxadj=255:maxprep=50:maxconj=50:maxspec=10:maxnoise=10:maxpix=50
P
Znoun_size=3000
dverb_size=3000
nadjc_size=1000
x.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
"
,B� rdata% (maxrms+1)*r_len,odata% (maxobs+1)*o_len,controom% 12
6
@*num_vars=60:� Number of ALPS variables
J.var_size=num_vars*2:� 2 bytes per variable
T
^� Set up the save buffers
h+initareasize=7*(maxobs+1)+22*(maxrms+1)
r=� 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
&Iș "OS_File",5,"<AlpsGame$Resources>pbytes"     � ftype,,,,pbyte_size
0
:8� pbytes pbyte_size,work% &1100,asicode% codesize+10
D
N(� usercode% ucsize,scale 15,pixtr 15
X
brun=asicode%
l
v8�("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: "�$:� �tvM � �'�$:� �tvM
�!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

*work%!40=specs+3

4work%!44=noise+3

>work%!48=pixs+3

H�  work%!52 is reserved

Rwork%!56=initsave

\work%!60=last_room

fwork%!64=last_object+1

p�

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")
.,�load_vtypes("<AlpsGame$Data>.VerbType")
8'�load_nrefs("<AlpsGame$Data>.Nref")
B'�load_arefs("<AlpsGame$Data>.Aref")
L�
V
`� �load_nouns(file$)
j� file$="" �
t�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))

�
�

(� �load_adjects(file$)
2� file$="" �
<�error(16,"")
F�
P!� "LOAD "+file$+" "+�~adjects
Zadn=?adjects
d.nxtadj=adjects+(adjects?1+256*(adjects?2))
n�
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
,(nxtcjn=conjs+(conjs?1+256*(conjs?2))
6�
@�
J
T� �load_spec(file$)
^� file$="" �
h�error(16,"")
r�
|� "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$)
&� file$="" �
0�error(16,"")
:�
D#� "LOAD "+file$+" "+�~verb_type
N�
X�
b
l� �load_arefs(file$)
v� 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%
>optr=odata%?14
Hlast_object=odata%?15
R�
\�
f
p� �load_rooms(file$)
z� 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� �load_program(file$)
B� file$="" �
L�error(16,"")
V�
`"� "LOAD "+file$+" "+�~program%
j�
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
(!� tok%=0 tok%=128 � tok%-=128
2�
<�
F
P� �load_files
Z)�load_objs("<AlpsGame$Data>.Objects")
d(�load_rooms("<AlpsGame$Data>.Rooms")
n)�load_pix("<AlpsGame$Data>.Pictures")
x�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%);
@*FX15,0
J�
T	key=�
^� key>31 � key=13
h� (key=127) �
r.� �-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$;
&� key=13
0*FX 4,0
:=wd$
D
N
X� �getmodeinfo(mode)
b� x,y,xeig,yeig,cols
l
v1ș "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
*
in%=�(f$)
4� col=0 � 19
>Q  � col<16 col1=col:col2=16 � � col=16 col1=col:col2=24 � col1=col-16:col2=25
H  r=�#in%:g=�#in%:b=�#in%
R  � 19,col1,col2,r,g,b
\	� col
f	�#in%
p�
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  37 f4 20 4d 6f 64 69 66  69 65 64 20 33 30 2e 30  |7. Modified 30.0|
00000060  35 2e 39 30 20 2d 20 73  65 6c 65 63 74 20 77 69  |5.90 - select wi|
00000070  6d 70 20 6d 6f 64 65 20  66 6f 72 20 50 69 78 54  |mp mode for PixT|
00000080  72 61 6e 73 0d 00 28 04  0d 00 32 45 ee 20 85 20  |rans..(...2E. . |
00000090  65 72 72 66 6c 61 67 3d  a4 65 72 72 6f 72 3a e7  |errflag=.error:.|
000000a0  20 65 72 72 66 6c 61 67  3d 31 20 8c 20 e0 3a c8  | errflag=1 . .:.|
000000b0  99 20 22 57 69 6d 70 5f  53 65 74 4d 6f 64 65 22  |. "Wimp_SetMode"|
000000c0  2c 57 69 6d 70 4d 6f 64  65 20 8b 20 f9 0d 00 3c  |,WimpMode . ...<|
000000d0  10 57 69 6d 70 4d 6f 64  65 20 3d 20 eb 0d 00 46  |.WimpMode = ...F|
000000e0  04 0d 00 50 11 de 20 4f  53 62 75 66 66 65 72 20  |...P.. OSbuffer |
000000f0  31 30 0d 00 5a 35 c8 99  20 22 58 4f 53 5f 52 65  |10..Z5.. "XOS_Re|
00000100  61 64 56 61 72 56 61 6c  22 2c 22 41 6c 70 73 24  |adVarVal","Alps$|
00000110  53 68 6f 77 41 64 64 72  65 73 73 22 2c 4f 53 62  |ShowAddress",OSb|
00000120  75 66 66 65 72 2c 38 0d  00 64 18 e7 20 3f 4f 53  |uffer,8..d.. ?OS|
00000130  62 75 66 66 65 72 20 3d  20 97 22 31 22 20 8c 0d  |buffer = ."1" ..|
00000140  00 6e 0f 20 20 20 73 68  6f 77 69 74 3d b9 0d 00  |.n.   showit=...|
00000150  78 05 cc 0d 00 82 0f 20  20 20 73 68 6f 77 69 74  |x......   showit|
00000160  3d a3 0d 00 8c 05 cd 0d  00 96 36 c8 99 20 22 58  |=.........6.. "X|
00000170  4f 53 5f 52 65 61 64 56  61 72 56 61 6c 22 2c 22  |OS_ReadVarVal","|
00000180  41 6c 70 73 24 4e 6f 4d  6f 75 73 65 49 6e 70 75  |Alps$NoMouseInpu|
00000190  74 22 2c 4f 53 62 75 66  66 65 72 2c 38 0d 00 a0  |t",OSbuffer,8...|
000001a0  18 e7 20 3f 4f 53 62 75  66 66 65 72 20 3d 20 97  |.. ?OSbuffer = .|
000001b0  22 31 22 20 8c 0d 00 aa  15 20 20 20 6c 6f 61 64  |"1" .....   load|
000001c0  5f 62 75 74 74 6f 6e 73  3d a3 0d 00 b4 05 cc 0d  |_buttons=.......|
000001d0  00 be 15 20 20 20 6c 6f  61 64 5f 62 75 74 74 6f  |...   load_butto|
000001e0  6e 73 3d b9 0d 00 c8 05  cd 0d 00 d2 04 0d 00 dc  |ns=.............|
000001f0  04 0d 00 e6 12 6d 6f 64  65 25 3d a4 67 65 74 6d  |.....mode%=.getm|
00000200  6f 64 65 0d 00 f0 17 f2  67 65 74 6d 6f 64 65 69  |ode.....getmodei|
00000210  6e 66 6f 28 6d 6f 64 65  25 29 0d 00 fa 0a f2 69  |nfo(mode%).....i|
00000220  6e 69 74 32 0d 01 04 04  0d 01 0e 0c 2a 46 58 32  |nit2........*FX2|
00000230  30 30 2c 31 0d 01 18 04  0d 01 22 0e e7 20 73 68  |00,1......".. sh|
00000240  6f 77 69 74 20 8c 0d 01  2c 07 ef 20 37 0d 01 36  |owit ...,.. 7..6|
00000250  26 f1 22 55 73 65 72 20  63 6f 64 65 20 61 64 64  |&."User code add|
00000260  72 65 73 73 3d 20 22 3b  75 73 65 72 63 6f 64 65  |ress= ";usercode|
00000270  25 3a fa 0d 01 40 05 cd  0d 01 4a 04 0d 01 54 29  |%:...@....J...T)|
00000280  6f 70 74 69 6f 6e 6e 61  6d 65 24 3d 22 3c 41 6c  |optionname$="<Al|
00000290  70 73 47 61 6d 65 24 44  61 74 61 3e 2e 4f 70 74  |psGame$Data>.Opt|
000002a0  69 6f 6e 73 22 0d 01 5e  19 62 61 72 66 67 63 6f  |ions"..^.barfgco|
000002b0  6c 3d 30 3a 62 61 72 62  67 63 6f 6c 3d 31 0d 01  |l=0:barbgcol=1..|
000002c0  68 04 0d 01 72 25 de 20  6b 65 79 24 28 31 33 29  |h...r%. key$(13)|
000002d0  3a f4 20 46 75 6e 63 74  69 6f 6e 20 6b 65 79 20  |:. Function key |
000002e0  73 74 72 69 6e 67 73 0d  01 7c 28 de 20 62 61 72  |strings..|(. bar|
000002f0  79 28 33 2c 32 29 3a f4  20 72 67 62 20 62 61 72  |y(3,2):. rgb bar|
00000300  20 67 72 61 70 68 20 79  20 63 6f 6f 72 64 73 0d  | graph y coords.|
00000310  01 86 04 0d 01 90 1b 61  72 65 61 5f 73 69 7a 65  |.......area_size|
00000320  25 3d 73 63 72 6e 73 69  7a 65 2b 31 30 30 0d 01  |%=scrnsize+100..|
00000330  9a 04 0d 01 a4 32 de 20  61 72 65 61 25 20 61 72  |.....2. area% ar|
00000340  65 61 5f 73 69 7a 65 25  3a f4 20 53 70 72 69 74  |ea_size%:. Sprit|
00000350  65 20 61 72 65 61 20 28  66 6f 72 20 73 63 72 65  |e area (for scre|
00000360  65 6e 73 29 0d 01 ae 04  0d 01 b8 0f e3 20 62 61  |ens)......... ba|
00000370  72 3d 31 20 b8 20 33 0d  01 c2 3c 20 20 f3 20 62  |r=1 . 3...<  . b|
00000380  61 72 79 28 62 61 72 2c  31 29 2c 62 61 72 79 28  |ary(bar,1),bary(|
00000390  62 61 72 2c 32 29 3a f4  20 72 65 61 64 20 62 6f  |bar,2):. read bo|
000003a0  74 74 6f 6d 20 61 6e 64  20 74 6f 70 20 63 6f 6f  |ttom and top coo|
000003b0  72 64 73 0d 01 cc 09 ed  20 62 61 72 0d 01 d6 04  |rds..... bar....|
000003c0  0d 01 e0 1d dc 20 34 34  35 2c 34 37 37 2c 33 38  |..... 445,477,38|
000003d0  36 2c 34 31 38 2c 33 32  37 2c 33 35 39 0d 01 ea  |6,418,327,359...|
000003e0  04 0d 01 f4 04 0d 01 fe  0f f4 20 50 49 43 43 59  |.......... PICCY|
000003f0  6c 6f 61 64 0d 02 08 04  0d 02 12 31 74 65 73 74  |load.......1test|
00000400  31 20 3d 20 8e 28 22 3c  41 6c 70 73 24 50 69 63  |1 = .("<Alps$Pic|
00000410  74 75 72 65 73 3e 4c 6f  61 64 65 72 50 69 63 22  |tures>LoaderPic"|
00000420  29 3a d9 23 74 65 73 74  31 0d 02 1c 10 e7 20 74  |):.#test1..... t|
00000430  65 73 74 31 3c 3e 30 20  8c 0d 02 26 2e ff 28 22  |est1<>0 ...&..("|
00000440  53 43 52 45 45 4e 4c 4f  41 44 20 3c 41 6c 70 73  |SCREENLOAD <Alps|
00000450  24 50 69 63 74 75 72 65  73 3e 4c 6f 61 64 65 72  |$Pictures>Loader|
00000460  50 69 63 22 29 3a 87 0d  02 30 11 d1 3d 30 3a f5  |Pic"):...0..=0:.|
00000470  20 fd 20 91 3e 35 30 30  0d 02 3a 05 cd 0d 02 44  | . .>500..:....D|
00000480  04 0d 02 4e 0d eb 20 6d  6f 64 65 25 3a 87 0d 02  |...N.. mode%:...|
00000490  4f 04 0d 02 58 1a f4 20  2d 2d 2d 2d 2d 20 33 30  |O...X.. ----- 30|
000004a0  2e 30 35 2e 39 30 20 2d  2d 2d 2d 2d 0d 02 62 1b  |.05.90 -----..b.|
000004b0  c8 99 20 22 57 69 6d 70  5f 53 65 74 4d 6f 64 65  |.. "Wimp_SetMode|
000004c0  22 2c 6d 6f 64 65 25 0d  02 6c 18 c8 99 20 22 57  |",mode%..l... "W|
000004d0  69 6d 70 5f 49 6e 69 74  69 61 6c 69 73 65 22 0d  |imp_Initialise".|
000004e0  02 6d 1a f4 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.m.. -----------|
000004f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 02 6e 04 0d 02 76  |---------..n...v|
00000500  29 f2 6c 6f 61 64 5f 70  61 6c 28 22 3c 41 6c 70  |).load_pal("<Alp|
00000510  73 47 61 6d 65 24 44 61  74 61 3e 2e 21 50 61 6c  |sGame$Data>.!Pal|
00000520  65 74 74 65 22 29 0d 02  80 22 2a 50 52 49 4e 54  |ette")..."*PRINT|
00000530  20 3c 41 6c 70 73 47 61  6d 65 24 44 61 74 61 3e  | <AlpsGame$Data>|
00000540  2e 63 68 61 72 73 65 74  0d 02 8a 04 0d 02 94 13  |.charset........|
00000550  f4 20 4c 6f 61 64 20 62  75 74 74 6f 6e 73 3f 0d  |. Load buttons?.|
00000560  02 9e 14 e7 20 6c 6f 61  64 5f 62 75 74 74 6f 6e  |.... load_button|
00000570  73 20 8c 0d 02 a8 05 db  0d 02 b2 35 ff 20 22 4c  |s .........5. "L|
00000580  4f 41 44 20 3c 41 6c 70  73 47 61 6d 65 24 52 65  |OAD <AlpsGame$Re|
00000590  73 6f 75 72 63 65 73 3e  62 75 74 74 6f 6e 73 20  |sources>buttons |
000005a0  22 2b c3 7e 28 61 72 65  61 25 2b 34 29 0d 02 bc  |"+.~(area%+4)...|
000005b0  15 21 61 72 65 61 25 3d  61 72 65 61 5f 73 69 7a  |.!area%=area_siz|
000005c0  65 25 0d 02 c6 40 c8 99  20 22 57 69 6d 70 5f 52  |e%...@.. "Wimp_R|
000005d0  65 61 64 50 69 78 54 72  61 6e 73 22 2c 26 32 30  |eadPixTrans",&20|
000005e0  30 2c 61 72 65 61 25 2c  61 72 65 61 25 2b 31 36  |0,area%,area%+16|
000005f0  2c 30 2c 30 2c 30 2c 73  63 61 6c 65 2c 70 69 78  |,0,0,0,scale,pix|
00000600  74 72 0d 02 d0 3a c8 99  20 22 4f 53 5f 53 70 72  |tr...:.. "OS_Spr|
00000610  69 74 65 4f 70 22 2c 26  32 33 34 2c 61 72 65 61  |iteOp",&234,area|
00000620  25 2c 61 72 65 61 25 2b  31 36 2c 30 2c 30 2c 38  |%,area%+16,0,0,8|
00000630  2c 73 63 61 6c 65 2c 70  69 78 74 72 0d 02 da 21  |,scale,pixtr...!|
00000640  ef 32 38 2c 30 2c 74 65  78 74 72 6f 77 73 25 2d  |.28,0,textrows%-|
00000650  35 2c 74 65 78 74 63 6f  6c 73 25 2c 30 0d 02 e4  |5,textcols%,0...|
00000660  05 cc 0d 02 ee 05 db 0d  02 f8 1f ef 32 38 2c 30  |............28,0|
00000670  2c 74 65 78 74 72 6f 77  73 25 2c 74 65 78 74 63  |,textrows%,textc|
00000680  6f 6c 73 25 2c 30 0d 03  02 05 cd 0d 03 0c 04 0d  |ols%,0..........|
00000690  03 16 04 0d 03 20 0b 2a  46 58 31 35 2c 30 0d 03  |..... .*FX15,0..|
000006a0  2a 14 e7 20 6c 6f 61 64  5f 62 75 74 74 6f 6e 73  |*.. load_buttons|
000006b0  20 8c 0d 03 34 0f 20 20  20 2a 50 4f 49 4e 54 45  | ...4.   *POINTE|
000006c0  52 0d 03 3e 0b 20 20 20  c8 97 20 ee 0d 03 48 12  |R..>.   .. ...H.|
000006d0  20 20 20 c8 97 20 b8 20  35 35 30 2c 34 38 0d 03  |   .. . 550,48..|
000006e0  52 05 cd 0d 03 5c 04 0d  03 66 16 69 6e 25 3d 8e  |R....\...f.in%=.|
000006f0  28 6f 70 74 69 6f 6e 6e  61 6d 65 24 29 0d 03 70  |(optionname$)..p|
00000700  0c 63 68 6f 69 63 65 3d  a3 0d 03 7a 20 e7 20 69  |.choice=...z . i|
00000710  6e 25 3c 3e 30 20 8c 20  63 68 6f 69 63 65 3d a4  |n%<>0 . choice=.|
00000720  6c 6f 61 64 28 69 6e 25  29 0d 03 84 13 e7 20 63  |load(in%)..... c|
00000730  68 6f 69 63 65 20 e5 20  8d 74 6a 45 0d 03 8e 04  |hoice . .tjE....|
00000740  0d 03 98 06 ef 34 0d 03  a2 05 f5 0d 03 ac 29 c8  |.....4........).|
00000750  99 20 22 57 69 6d 70 5f  53 65 74 43 6f 6c 6f 75  |. "Wimp_SetColou|
00000760  72 22 2c 31 33 31 3a f2  63 6f 6c 28 31 33 35 29  |r",131:.col(135)|
00000770  3a db 3a ee 0d 03 b6 2f  f2 63 6f 6c 28 31 31 29  |:.:..../.col(11)|
00000780  3a f1 8a 32 38 2c 31 29  22 46 55 4e 43 54 49 4f  |:..28,1)"FUNCTIO|
00000790  4e 20 4b 45 59 20 44 45  46 49 4e 49 54 49 4f 4e  |N KEY DEFINITION|
000007a0  53 22 27 0d 03 c0 0c f2  63 6f 6c 28 31 35 29 0d  |S"'.....col(15).|
000007b0  03 ca 73 6d 24 3d 22 59  6f 75 20 6d 61 79 20 65  |..sm$="You may e|
000007c0  6e 74 65 72 20 75 70 20  74 6f 20 74 77 65 6c 76  |nter up to twelv|
000007d0  65 20 65 78 74 72 61 20  63 6f 6d 6d 61 6e 64 20  |e extra command |
000007e0  73 74 72 69 6e 67 73 20  74 6f 20 62 65 20 6f 70  |strings to be op|
000007f0  65 72 61 74 65 64 20 62  79 20 74 68 65 20 41 72  |erated by the Ar|
00000800  63 68 69 6d 65 64 65 73  20 66 75 6e 63 74 69 6f  |chimedes functio|
00000810  6e 20 6b 65 79 73 20 46  31 20 74 6f 20 46 31 32  |n keys F1 to F12|
00000820  2e 22 0d 03 d4 14 e7 20  6c 6f 61 64 5f 62 75 74  |."..... load_but|
00000830  74 6f 6e 73 20 8c 0d 03  de 65 20 20 20 6d 24 2b  |tons ....e   m$+|
00000840  3d 22 20 54 68 65 73 65  20 63 6f 6d 6d 61 6e 64  |=" These command|
00000850  20 73 74 72 69 6e 67 73  20 61 72 65 20 69 6e 20  | strings are in |
00000860  61 64 64 69 74 69 6f 6e  20 74 6f 20 74 68 65 20  |addition to the |
00000870  63 6f 6d 6d 61 6e 64 73  20 61 6c 6f 6e 67 20 74  |commands along t|
00000880  68 65 20 27 62 75 74 74  6f 6e 20 63 6f 6e 73 6f  |he 'button conso|
00000890  6c 65 27 20 62 65 6c 6f  77 2e 22 0d 03 e8 05 cd  |le' below.".....|
000008a0  0d 03 f2 04 0d 03 fc 1a  c8 99 20 22 4f 53 5f 50  |.......... "OS_P|
000008b0  72 65 74 74 79 50 72 69  6e 74 22 2c 6d 24 0d 04  |rettyPrint",m$..|
000008c0  06 06 f1 27 0d 04 10 6e  c8 99 20 22 4f 53 5f 50  |...'...n.. "OS_P|
000008d0  72 65 74 74 79 50 72 69  6e 74 22 2c 22 4e 6f 74  |rettyPrint","Not|
000008e0  65 20 74 68 61 74 20 79  6f 75 20 63 61 6e 20 75  |e that you can u|
000008f0  73 65 20 27 7c 4d 27 20  74 6f 20 73 69 6d 75 6c  |se '|M' to simul|
00000900  61 74 65 20 61 20 3c 52  45 54 55 52 4e 3e 20 6b  |ate a <RETURN> k|
00000910  65 79 20 62 65 69 6e 67  20 70 72 65 73 73 65 64  |ey being pressed|
00000920  20 69 6e 20 79 6f 75 72  20 63 6f 6d 6d 61 6e 64  | in your command|
00000930  2e 22 0d 04 1a 04 0d 04  24 07 20 20 f1 0d 04 2e  |."......$.  ....|
00000940  0d 20 20 2a 46 58 32 31  2c 30 0d 04 38 04 0d 04  |.  *FX21,0..8...|
00000950  42 12 20 20 e3 20 6b 65  79 3d 31 20 b8 20 31 32  |B.  . key=1 . 12|
00000960  0d 04 4c 10 20 20 20 20  f2 63 6f 6c 28 31 34 29  |..L.    .col(14)|
00000970  0d 04 56 2b 20 20 20 20  f1 8a 32 2c 6b 65 79 2b  |..V+    ..2,key+|
00000980  31 30 29 3b 22 53 74 72  69 6e 67 20 66 6f 72 20  |10);"String for |
00000990  46 22 3b 6b 65 79 3b 22  3a 22 3b 0d 04 60 10 20  |F";key;":";..`. |
000009a0  20 20 20 f2 63 6f 6c 28  31 32 29 0d 04 6a 38 20  |   .col(12)..j8 |
000009b0  20 20 20 6b 65 79 24 28  6b 65 79 29 3d a4 65 6e  |   key$(key)=.en|
000009c0  74 65 72 5f 77 6f 72 64  28 36 30 2c 22 20 22 2c  |ter_word(60," ",|
000009d0  c4 36 30 2c 22 20 22 29  2c 31 37 2c 6b 65 79 2b  |.60," "),17,key+|
000009e0  31 30 29 0d 04 74 43 20  20 20 20 f4 20 3e 3e 3e  |10)..tC    . >>>|
000009f0  3e 3e 3e 3e 3e 20 73 63  72 61 70 20 61 6c 6c 20  |>>>>> scrap all |
00000a00  74 68 65 20 73 70 61 63  65 73 20 6f 6e 20 74 68  |the spaces on th|
00000a10  65 20 72 68 73 20 62 61  72 20 6f 6e 65 20 3c 3c  |e rhs bar one <<|
00000a20  3c 3c 3c 3c 3c 3c 0d 04  7e 1c 20 20 20 20 c8 95  |<<<<<<..~.    ..|
00000a30  20 c2 6b 65 79 24 28 6b  65 79 29 2c 31 29 3d 22  | .key$(key),1)="|
00000a40  20 22 0d 04 88 30 20 20  20 20 20 20 20 6b 65 79  | "...0       key|
00000a50  24 28 6b 65 79 29 3d c0  6b 65 79 24 28 6b 65 79  |$(key)=.key$(key|
00000a60  29 2c 20 a9 28 6b 65 79  24 28 6b 65 79 29 29 2d  |), .(key$(key))-|
00000a70  31 29 0d 04 92 09 20 20  20 20 ce 0d 04 9c 23 20  |1)....    ....# |
00000a80  20 20 20 6b 65 79 24 28  6b 65 79 29 20 3d 20 6b  |   key$(key) = k|
00000a90  65 79 24 28 6b 65 79 29  20 2b 20 22 20 22 0d 04  |ey$(key) + " "..|
00000aa0  a6 23 20 20 20 20 ff 28  22 4b 45 59 22 2b c3 6b  |.#    .("KEY"+.k|
00000ab0  65 79 2b 22 20 22 2b 6b  65 79 24 28 6b 65 79 29  |ey+" "+key$(key)|
00000ac0  29 0d 04 b0 0b 20 20 ed  20 6b 65 79 0d 04 ba 04  |)....  . key....|
00000ad0  0d 04 c4 07 20 20 87 0d  04 ce 16 20 20 e7 20 6c  |....  .....  . l|
00000ae0  6f 61 64 5f 62 75 74 74  6f 6e 73 20 8c 0d 04 d8  |oad_buttons ....|
00000af0  35 20 20 20 20 20 f4 20  53 59 53 20 22 4f 53 5f  |5     . SYS "OS_|
00000b00  53 70 72 69 74 65 4f 70  22 2c 35 34 36 2c 61 72  |SpriteOp",546,ar|
00000b10  65 61 25 2c 61 72 65 61  25 2b 31 36 2c 30 2c 30  |ea%,area%+16,0,0|
00000b20  2c 38 0d 04 e2 3f 20 20  20 20 20 c8 99 20 22 4f  |,8...?     .. "O|
00000b30  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 32 33 34  |S_SpriteOp",&234|
00000b40  2c 61 72 65 61 25 2c 61  72 65 61 25 2b 31 36 2c  |,area%,area%+16,|
00000b50  30 2c 30 2c 38 2c 73 63  61 6c 65 2c 70 69 78 74  |0,0,8,scale,pixt|
00000b60  72 0d 04 ec 43 20 20 20  20 20 6d 73 67 24 3d 22  |r...C     msg$="|
00000b70  49 73 20 74 68 69 73 20  4f 4b 3f 20 43 6c 69 63  |Is this OK? Clic|
00000b80  6b 20 27 59 45 53 27 20  6f 72 20 27 4e 4f 27 20  |k 'YES' or 'NO' |
00000b90  6f 72 20 70 72 65 73 73  20 27 59 27 20 6f 72 20  |or press 'Y' or |
00000ba0  27 4e 27 22 0d 04 f6 07  20 20 cc 0d 05 00 28 20  |'N'"....  ....( |
00000bb0  20 20 20 20 6d 73 67 24  3d 22 49 73 20 74 68 69  |    msg$="Is thi|
00000bc0  73 20 4f 4b 3f 20 50 72  65 73 73 20 59 20 6f 72  |s OK? Press Y or|
00000bd0  20 4e 22 0d 05 0a 07 20  20 cd 0d 05 14 16 20 20  | N"....  .....  |
00000be0  f2 63 6f 6c 28 31 31 29  3a f1 27 27 6d 73 67 24  |.col(11):.''msg$|
00000bf0  0d 05 1e 0b 20 20 6b 65  79 3d 30 0d 05 28 04 0d  |....  key=0..(..|
00000c00  05 32 1b 20 20 f5 3a c8  97 20 58 25 2c 59 25 2c  |.2.  .:.. X%,Y%,|
00000c10  42 25 3a 41 24 3d bf 28  30 29 0d 05 3c 1f 20 20  |B%:A$=.(0)..<.  |
00000c20  e7 20 41 24 3d 22 59 22  20 84 20 41 24 3d 22 79  |. A$="Y" . A$="y|
00000c30  22 20 8c 20 6b 65 79 3d  37 0d 05 46 1f 20 20 e7  |" . key=7..F.  .|
00000c40  20 41 24 3d 22 4e 22 20  84 20 41 24 3d 22 6e 22  | A$="N" . A$="n"|
00000c50  20 8c 20 6b 65 79 3d 38  0d 05 50 40 20 20 20 20  | . key=8..P@    |
00000c60  e7 20 42 25 3d 34 20 80  20 6c 6f 61 64 5f 62 75  |. B%=4 . load_bu|
00000c70  74 74 6f 6e 73 3a f2 69  6e 28 58 25 2c 59 25 2c  |ttons:.in(X%,Y%,|
00000c80  6b 65 79 29 3a f5 3a c8  97 58 25 2c 59 25 2c 42  |key):.:..X%,Y%,B|
00000c90  25 3a fd 20 42 25 3d 30  0d 05 5a 15 20 20 fd 20  |%:. B%=0..Z.  . |
00000ca0  6b 65 79 3d 37 20 84 20  6b 65 79 3d 38 0d 05 64  |key=7 . key=8..d|
00000cb0  04 0d 05 6e 0b fd 20 6b  65 79 3d 37 0d 05 78 04  |...n.. key=7..x.|
00000cc0  0d 05 82 05 db 0d 05 8c  51 f2 57 72 69 74 65 4f  |........Q.WriteO|
00000cd0  75 74 46 69 6c 65 3a f2  63 6f 6c 28 30 29 3a f1  |utFile:.col(0):.|
00000ce0  27 27 22 54 68 65 73 65  20 66 75 6e 63 74 69 6f  |''"These functio|
00000cf0  6e 20 6b 65 79 73 20 68  61 76 65 20 62 65 65 6e  |n keys have been|
00000d00  20 73 61 76 65 64 20 66  6f 72 20 66 75 74 75 72  | saved for futur|
00000d10  65 20 75 73 65 22 0d 05  96 04 0d 05 a0 0c 41 3d  |e use"........A=|
00000d20  a6 28 32 30 30 29 0d 05  aa 19 ef 20 32 34 2c 30  |.(200)..... 24,0|
00000d30  3b 31 34 34 3b 73 63 72  77 3b 73 63 72 68 3b 0d  |;144;scrw;scrh;.|
00000d40  05 b4 31 f2 63 6f 6c 28  31 33 31 29 3a c8 99 20  |..1.col(131):.. |
00000d50  22 57 69 6d 70 5f 53 65  74 43 6f 6c 6f 75 72 22  |"Wimp_SetColour"|
00000d60  2c 31 33 31 3a da 3a db  3a f2 63 6f 6c 28 33 29  |,131:.:.:.col(3)|
00000d70  0d 05 be 04 0d 05 c8 04  0d 05 d2 0f f2 6c 6f 61  |.............loa|
00000d80  64 5f 66 69 6c 65 73 0d  05 dc 0c 2a 46 58 32 32  |d_files....*FX22|
00000d90  35 2c 31 0d 05 e6 08 f2  72 75 6e 0d 05 f0 0c 2a  |5,1.....run....*|
00000da0  46 58 32 30 30 2c 30 0d  05 fa 0a ef 20 32 36 3a  |FX200,0..... 26:|
00000db0  db 0d 06 04 07 ef 20 34  0d 06 0e 1a f1 22 41 64  |...... 4....."Ad|
00000dc0  76 65 6e 74 75 72 65 20  66 69 6e 69 73 68 65 64  |venture finished|
00000dd0  2e 22 0d 06 0f 29 c8 99  20 22 57 69 6d 70 5f 53  |."...).. "Wimp_S|
00000de0  65 74 4d 6f 64 65 22 2c  57 69 6d 70 4d 6f 64 65  |etMode",WimpMode|
00000df0  3a f4 20 33 30 2e 30 35  2e 39 30 0d 06 18 05 e0  |:. 30.05.90.....|
00000e00  0d 06 22 04 0d 06 2c 16  dd 20 f2 69 6e 28 58 25  |.."...,.. .in(X%|
00000e10  2c 59 25 2c f8 20 63 6f  6d 29 0d 06 36 10 63 6f  |,Y%,. com)..6.co|
00000e20  6d 3d 30 3a 72 6f 77 3d  39 39 0d 06 40 1a e7 20  |m=0:row=99..@.. |
00000e30  59 25 3e 37 39 20 80 20  59 25 3c 31 32 35 20 72  |Y%>79 . Y%<125 r|
00000e40  6f 77 3d 31 0d 06 4a 18  e7 20 59 25 3e 30 20 80  |ow=1..J.. Y%>0 .|
00000e50  20 59 25 3c 35 31 20 72  6f 77 3d 30 0d 06 54 1f  | Y%<51 row=0..T.|
00000e60  63 6f 6c 3d 28 58 25 2d  6d 69 6e 78 29 20 81 20  |col=(X%-minx) . |
00000e70  28 77 69 64 74 68 29 20  2b 20 31 0d 06 5e 26 e7  |(width) + 1..^&.|
00000e80  20 63 6f 6c 3c 3d 72 6f  77 6c 65 6e 20 8c 20 63  | col<=rowlen . c|
00000e90  6f 6d 3d 63 6f 6c 2b 72  6f 77 6c 65 6e 2a 72 6f  |om=col+rowlen*ro|
00000ea0  77 0d 06 68 05 e1 0d 06  72 04 0d 06 7c 10 dd 20  |w..h....r...|.. |
00000eb0  a4 6c 6f 61 64 28 69 6e  25 29 0d 06 86 06 ef 34  |.load(in%).....4|
00000ec0  0d 06 90 49 f2 63 6f 6c  28 37 29 3a f2 63 6f 6c  |...I.col(7):.col|
00000ed0  28 31 33 31 29 3a db 3a  f1 8a 30 2c 35 29 3b 22  |(131):.:..0,5);"|
00000ee0  20 4c 6f 61 64 20 79 6f  75 72 20 73 61 76 65 64  | Load your saved|
00000ef0  20 66 75 6e 63 74 69 6f  6e 20 6b 65 79 20 73 65  | function key se|
00000f00  74 74 69 6e 67 73 3f 20  22 0d 06 9a 14 e7 20 6c  |ttings? "..... l|
00000f10  6f 61 64 5f 62 75 74 74  6f 6e 73 20 8c 0d 06 a4  |oad_buttons ....|
00000f20  37 20 20 20 6d 73 67 24  3d 22 43 6c 69 63 6b 20  |7   msg$="Click |
00000f30  27 59 45 53 27 20 6f 72  20 27 4e 4f 27 2c 20 6f  |'YES' or 'NO', o|
00000f40  72 20 70 72 65 73 73 20  27 59 27 20 6f 72 20 27  |r press 'Y' or '|
00000f50  4e 27 2e 22 0d 06 ae 05  cc 0d 06 b8 1f 20 20 20  |N'.".........   |
00000f60  6d 73 67 24 3d 22 50 72  65 73 73 20 27 59 27 20  |msg$="Press 'Y' |
00000f70  6f 72 20 27 4e 27 2e 22  0d 06 c2 05 cd 0d 06 cc  |or 'N'."........|
00000f80  0c f1 27 27 27 6d 73 67  24 0d 06 d6 09 6b 65 79  |..'''msg$....key|
00000f90  3d 30 0d 06 e0 05 f5 0d  06 ea 19 20 20 c8 97 20  |=0.........  .. |
00000fa0  58 25 2c 59 25 2c 42 25  3a 41 24 3d bf 28 30 29  |X%,Y%,B%:A$=.(0)|
00000fb0  0d 06 f4 1f 20 20 e7 20  41 24 3d 22 59 22 20 84  |....  . A$="Y" .|
00000fc0  20 41 24 3d 22 79 22 20  8c 20 6b 65 79 3d 37 0d  | A$="y" . key=7.|
00000fd0  06 fe 1f 20 20 e7 20 41  24 3d 22 4e 22 20 84 20  |...  . A$="N" . |
00000fe0  41 24 3d 22 6e 22 20 8c  20 6b 65 79 3d 38 0d 07  |A$="n" . key=8..|
00000ff0  08 2a 20 20 e7 20 42 25  3d 34 20 80 20 6c 6f 61  |.*  . B%=4 . loa|
00001000  64 5f 62 75 74 74 6f 6e  73 3a f2 69 6e 28 58 25  |d_buttons:.in(X%|
00001010  2c 59 25 2c 6b 65 79 29  0d 07 12 13 fd 20 6b 65  |,Y%,key)..... ke|
00001020  79 3d 37 20 84 20 6b 65  79 3d 38 0d 07 1c 2a e7  |y=7 . key=8...*.|
00001030  20 6b 65 79 3d 37 20 f2  52 65 61 64 49 6e 46 69  | key=7 .ReadInFi|
00001040  6c 65 28 69 6e 25 29 3a  3d b9 20 8b 20 d9 23 69  |le(in%):=. . .#i|
00001050  6e 25 3a 3d a3 0d 07 26  04 0d 07 30 18 dd 20 f2  |n%:=...&...0.. .|
00001060  52 65 61 64 49 6e 46 69  6c 65 28 63 68 61 6e 25  |ReadInFile(chan%|
00001070  29 0d 07 3a 04 0d 07 44  0f e3 20 4b 25 3d 31 20  |)..:...D.. K%=1 |
00001080  b8 20 31 32 0d 07 4e 16  20 20 e8 23 63 68 61 6e  |. 12..N.  .#chan|
00001090  25 2c 6b 65 79 24 28 4b  25 29 0d 07 58 22 20 20  |%,key$(K%)..X"  |
000010a0  ff 28 22 4b 45 59 20 22  2b c3 28 4b 25 29 2b 22  |.("KEY "+.(K%)+"|
000010b0  20 22 2b 6b 65 79 24 28  4b 25 29 29 0d 07 62 05  | "+key$(K%))..b.|
000010c0  ed 0d 07 6c 04 0d 07 76  0c d9 20 23 63 68 61 6e  |...l...v.. #chan|
000010d0  25 0d 07 80 05 e1 0d 07  8a 04 0d 07 94 13 dd 20  |%.............. |
000010e0  f2 57 72 69 74 65 4f 75  74 46 69 6c 65 0d 07 9e  |.WriteOutFile...|
000010f0  04 0d 07 a8 17 63 68 61  6e 25 3d ae 20 6f 70 74  |.....chan%=. opt|
00001100  69 6f 6e 6e 61 6d 65 24  0d 07 b2 04 0d 07 bc 0f  |ionname$........|
00001110  e3 20 4b 25 3d 31 20 b8  20 31 32 0d 07 c6 16 20  |. K%=1 . 12.... |
00001120  20 f1 23 63 68 61 6e 25  2c 6b 65 79 24 28 4b 25  | .#chan%,key$(K%|
00001130  29 0d 07 d0 05 ed 0d 07  da 04 0d 07 e4 0b d9 23  |)..............#|
00001140  63 68 61 6e 25 0d 07 ee  05 e1 0d 07 f8 04 0d 08  |chan%...........|
00001150  02 04 0d 08 0c 0c dd 20  a4 65 72 72 6f 72 0d 08  |....... .error..|
00001160  16 0e 2a 50 4f 49 4e 54  45 52 20 31 0d 08 20 0a  |..*POINTER 1.. .|
00001170  c8 97 20 ee 20 31 0d 08  2a 04 0d 08 34 23 c8 99  |.. . 1..*...4#..|
00001180  20 22 57 69 6d 70 5f 53  65 74 43 6f 6c 6f 75 72  | "Wimp_SetColour|
00001190  22 2c 31 3a 77 69 64 74  68 3d 37 30 30 0d 08 3e  |",1:width=700..>|
000011a0  25 72 65 70 6f 72 74 77  69 64 74 68 3d 28 a9 28  |%reportwidth=(.(|
000011b0  f6 24 29 2b a9 28 c3 28  9e 29 29 2b 31 32 29 2a  |.$)+.(.(.))+12)*|
000011c0  31 36 0d 08 48 2b e7 20  77 69 64 74 68 3c 72 65  |16..H+. width<re|
000011d0  70 6f 72 74 77 69 64 74  68 20 8c 20 77 69 64 74  |portwidth . widt|
000011e0  68 3d 72 65 70 6f 72 74  77 69 64 74 68 0d 08 52  |h=reportwidth..R|
000011f0  1b c8 93 20 c8 90 20 32  30 30 2c 33 30 30 2c 77  |... .. 200,300,w|
00001200  69 64 74 68 2c 32 30 34  0d 08 5c 1b c8 97 20 c8  |idth,204..\... .|
00001210  93 20 32 30 30 2c 33 30  30 2c 77 69 64 74 68 2c  |. 200,300,width,|
00001220  32 30 34 0d 08 66 43 c8  99 20 22 57 69 6d 70 5f  |204..fC.. "Wimp_|
00001230  53 65 74 43 6f 6c 6f 75  72 22 2c 37 3a ef 20 35  |SetColour",7:. 5|
00001240  3a ec 20 32 31 36 2c 34  35 30 3a f1 22 53 79 73  |:. 216,450:."Sys|
00001250  74 65 6d 20 72 65 70 6f  72 74 73 20 61 6e 20 65  |tem reports an e|
00001260  72 72 6f 72 3a 22 0d 08  70 2a ec 20 32 31 36 2c  |rror:"..p*. 216,|
00001270  34 30 30 3a f1 20 f6 24  3b 3a e7 20 9e 3e 30 20  |400:. .$;:. .>0 |
00001280  8c 20 f1 22 20 61 74 20  6c 69 6e 65 20 22 3b 9e  |. ." at line ";.|
00001290  0d 08 7a 5a c8 99 20 22  57 69 6d 70 5f 53 65 74  |..zZ.. "Wimp_Set|
000012a0  43 6f 6c 6f 75 72 22 2c  33 3a c8 93 20 c8 90 20  |Colour",3:.. .. |
000012b0  35 36 30 2c 33 32 30 2c  31 34 30 2c 33 32 3a ec  |560,320,140,32:.|
000012c0  20 35 36 38 2c 33 34 38  3a c8 99 20 22 57 69 6d  | 568,348:.. "Wim|
000012d0  70 5f 53 65 74 43 6f 6c  6f 75 72 22 2c 37 3a f1  |p_SetColour",7:.|
000012e0  22 43 4f 4e 54 49 4e 55  45 22 0d 08 84 55 c8 99  |"CONTINUE"...U..|
000012f0  20 22 57 69 6d 70 5f 53  65 74 43 6f 6c 6f 75 72  | "Wimp_SetColour|
00001300  22 2c 33 3a c8 93 20 c8  90 20 33 36 30 2c 33 32  |",3:.. .. 360,32|
00001310  30 2c 37 36 2c 33 32 3a  ec 20 33 36 38 2c 33 34  |0,76,32:. 368,34|
00001320  38 3a c8 99 20 22 57 69  6d 70 5f 53 65 74 43 6f  |8:.. "Wimp_SetCo|
00001330  6c 6f 75 72 22 2c 37 3a  f1 22 51 55 49 54 22 0d  |lour",7:."QUIT".|
00001340  08 8e 04 0d 08 98 0a 66  6c 61 67 3d 30 0d 08 a2  |.......flag=0...|
00001350  05 f5 0d 08 ac 07 20 20  f5 0d 08 b6 09 20 20 20  |......  .....   |
00001360  20 f5 0d 08 c0 12 20 20  20 20 20 20 c8 97 20 58  | .....      .. X|
00001370  2c 59 2c 42 0d 08 ca 0d  20 20 20 20 fd 20 42 3d  |,Y,B....    . B=|
00001380  34 0d 08 d4 15 20 20 fd  20 59 3e 33 32 30 20 80  |4....  . Y>320 .|
00001390  20 59 3c 33 35 36 0d 08  de 04 0d 08 e8 1c e7 20  | Y<356......... |
000013a0  58 3e 35 36 30 20 80 20  58 3c 37 30 30 20 8c 20  |X>560 . X<700 . |
000013b0  66 6c 61 67 3d 32 0d 08  f2 1c e7 20 58 3e 33 36  |flag=2..... X>36|
000013c0  30 20 80 20 58 3c 34 33  36 20 8c 20 66 6c 61 67  |0 . X<436 . flag|
000013d0  3d 31 0d 08 fc 04 0d 09  06 15 fd 20 66 6c 61 67  |=1......... flag|
000013e0  3d 31 20 84 20 66 6c 61  67 3d 32 0d 09 10 04 0d  |=1 . flag=2.....|
000013f0  09 1a 19 c8 99 20 22 57  69 6d 70 5f 53 65 74 43  |..... "Wimp_SetC|
00001400  6f 6c 6f 75 72 22 2c 30  0d 09 24 1b c8 93 20 c8  |olour",0..$... .|
00001410  90 20 32 30 30 2c 33 30  30 2c 77 69 64 74 68 2c  |. 200,300,width,|
00001420  32 30 34 0d 09 2e 09 ef  20 34 3a 87 0d 09 38 17  |204..... 4:...8.|
00001430  c8 97 20 c8 93 20 30 2c  30 2c 31 32 37 39 2c 31  |.. .. 0,0,1279,1|
00001440  30 32 33 0d 09 42 04 0d  09 4c 1b e7 20 6c 6f 61  |023..B...L.. loa|
00001450  64 5f 62 75 74 74 6f 6e  73 20 80 20 66 6c 61 67  |d_buttons . flag|
00001460  3d 32 0d 09 56 0b 20 20  20 c8 97 20 87 0d 09 60  |=2..V.   .. ...`|
00001470  05 cd 0d 09 6a 04 0d 09  74 09 3d 66 6c 61 67 0d  |....j...t.=flag.|
00001480  09 7e 04 0d 09 88 04 0d  09 92 0c dd 20 f2 69 6e  |.~.......... .in|
00001490  69 74 32 0d 09 9c 17 c8  99 20 22 57 69 6d 70 5f  |it2...... "Wimp_|
000014a0  43 6c 6f 73 65 44 6f 77  6e 22 0d 09 a6 0b 6d 69  |CloseDown"....mi|
000014b0  6e 78 3d 33 32 0d 09 b0  0c 77 69 64 74 68 3d 38  |nx=32....width=8|
000014c0  30 0d 09 ba 09 79 25 3d  37 32 0d 09 c4 11 58 25  |0....y%=72....X%|
000014d0  3d 6d 69 6e 78 3a 59 25  3d 79 25 0d 09 ce 24 73  |=minx:Y%=y%...$s|
000014e0  70 72 69 74 65 73 3d 32  36 3a f4 20 4e 75 6d 62  |prites=26:. Numb|
000014f0  65 72 20 6f 66 20 27 62  75 74 74 6f 6e 73 27 0d  |er of 'buttons'.|
00001500  09 d8 16 72 6f 77 6c 65  6e 3d 73 70 72 69 74 65  |...rowlen=sprite|
00001510  73 20 81 20 32 0d 09 e2  14 58 4c 3d 34 34 38 3a  |s . 2....XL=448:|
00001520  58 52 3d 58 4c 2b 32 35  35 0d 09 ec 04 0d 09 f6  |XR=XL+255.......|
00001530  27 f4 20 4d 61 6e 69 66  65 73 74 20 63 6f 6e 73  |'. Manifest cons|
00001540  74 61 6e 74 73 20 66 6f  72 20 74 68 65 20 73 79  |tants for the sy|
00001550  73 74 65 6d 0d 0a 00 32  6d 61 78 72 6d 73 3d 31  |stem...2maxrms=1|
00001560  30 30 30 3a 6d 61 78 6f  62 73 3d 32 35 35 3a 6d  |000:maxobs=255:m|
00001570  61 78 73 77 25 3d 31 30  3a 6d 61 78 74 6f 6b 65  |axsw%=10:maxtoke|
00001580  6e 73 3d 31 32 38 0d 0a  0a 31 6d 61 78 6c 65 6e  |ns=128...1maxlen|
00001590  3d 31 30 3a f4 20 4d 61  78 69 6d 75 6d 20 77 6f  |=10:. Maximum wo|
000015a0  72 64 20 6c 65 6e 67 74  68 20 69 6e 20 76 6f 63  |rd length in voc|
000015b0  61 62 75 6c 61 72 79 0d  0a 14 04 0d 0a 1e 33 f4  |abulary.......3.|
000015c0  20 52 6f 6f 6d 20 61 6e  64 20 6f 62 6a 65 63 74  | Room and object|
000015d0  20 64 61 74 61 20 62 6c  6f 63 6b 20 6c 65 6e 67  | data block leng|
000015e0  74 68 73 20 28 69 6e 20  62 79 74 65 73 29 0d 0a  |ths (in bytes)..|
000015f0  28 15 72 5f 6c 65 6e 3d  37 34 3a 6f 5f 6c 65 6e  |(.r_len=74:o_len|
00001600  3d 31 36 0d 0a 32 04 0d  0a 3c 35 6d 61 78 6d 73  |=16..2...<5maxms|
00001610  67 3d 36 35 35 33 35 3a  6d 61 78 6f 62 6e 3d 32  |g=65535:maxobn=2|
00001620  35 35 3a 6d 61 78 76 62  6e 3d 32 35 35 3a 6d 61  |55:maxvbn=255:ma|
00001630  78 63 6f 6e 73 74 3d 36  35 35 33 35 0d 0a 46 45  |xconst=65535..FE|
00001640  6d 61 78 61 64 6a 3d 32  35 35 3a 6d 61 78 70 72  |maxadj=255:maxpr|
00001650  65 70 3d 35 30 3a 6d 61  78 63 6f 6e 6a 3d 35 30  |ep=50:maxconj=50|
00001660  3a 6d 61 78 73 70 65 63  3d 31 30 3a 6d 61 78 6e  |:maxspec=10:maxn|
00001670  6f 69 73 65 3d 31 30 3a  6d 61 78 70 69 78 3d 35  |oise=10:maxpix=5|
00001680  30 0d 0a 50 04 0d 0a 5a  12 6e 6f 75 6e 5f 73 69  |0..P...Z.noun_si|
00001690  7a 65 3d 33 30 30 30 0d  0a 64 12 76 65 72 62 5f  |ze=3000..d.verb_|
000016a0  73 69 7a 65 3d 33 30 30  30 0d 0a 6e 12 61 64 6a  |size=3000..n.adj|
000016b0  63 5f 73 69 7a 65 3d 31  30 30 30 0d 0a 78 2e 70  |c_size=1000..x.p|
000016c0  72 65 70 5f 73 69 7a 65  3d 32 30 30 20 3a f4 20  |rep_size=200 :. |
000016d0  53 69 7a 65 20 6f 66 20  70 72 65 70 6f 73 69 74  |Size of preposit|
000016e0  69 6f 6e 73 20 6c 69 73  74 0d 0a 82 2e 63 6f 6e  |ions list....con|
000016f0  6a 5f 73 69 7a 65 3d 31  30 30 20 3a f4 20 73 69  |j_size=100 :. si|
00001700  7a 65 20 6f 66 20 63 6f  6e 6a 75 6e 63 74 69 6f  |ze of conjunctio|
00001710  6e 73 20 6c 69 73 74 0d  0a 8c 3c 73 70 65 63 5f  |ns list...<spec_|
00001720  73 69 7a 65 3d 31 30 30  20 3a f4 20 73 69 7a 65  |size=100 :. size|
00001730  20 6f 66 20 27 73 70 65  63 69 61 6c 73 27 20 6c  | of 'specials' l|
00001740  69 73 74 20 28 49 54 2c  20 54 48 45 4d 2c 20 41  |ist (IT, THEM, A|
00001750  4c 4c 29 0d 0a 96 34 6e  6f 69 73 65 5f 73 69 7a  |LL)...4noise_siz|
00001760  65 3d 31 30 30 3a f4 20  73 69 7a 65 20 6f 66 20  |e=100:. size of |
00001770  27 6e 6f 69 73 65 27 20  6c 69 73 74 20 28 54 48  |'noise' list (TH|
00001780  45 2c 41 2c 41 4e 29 0d  0a a0 3d 61 72 65 66 5f  |E,A,AN)...=aref_|
00001790  73 69 7a 65 3d 32 30 30  30 3a f4 20 73 69 7a 65  |size=2000:. size|
000017a0  20 6f 66 20 61 64 6a 65  63 74 69 76 65 20 6f 62  | of adjective ob|
000017b0  6a 65 63 74 20 72 65 66  65 72 65 6e 63 65 20 74  |ject reference t|
000017c0  61 62 6c 65 0d 0a aa 39  6e 72 65 66 5f 73 69 7a  |able...9nref_siz|
000017d0  65 3d 32 30 30 30 3a f4  20 73 69 7a 65 20 6f 66  |e=2000:. size of|
000017e0  20 6e 6f 75 6e 73 20 6f  62 6a 65 63 74 20 72 65  | nouns object re|
000017f0  66 65 72 65 6e 63 65 20  74 61 62 6c 65 0d 0a b4  |ference table...|
00001800  2d 70 69 78 5f 73 69 7a  65 3d 31 30 30 30 3a f4  |-pix_size=1000:.|
00001810  20 73 69 7a 65 20 6f 66  20 70 69 78 20 66 69 6c  | size of pix fil|
00001820  65 6e 61 6d 65 20 6c 69  73 74 0d 0a be 04 0d 0a  |ename list......|
00001830  c8 40 c8 99 20 22 4f 53  5f 46 69 6c 65 22 2c 35  |.@.. "OS_File",5|
00001840  2c 22 3c 41 6c 70 73 47  61 6d 65 24 44 61 74 61  |,"<AlpsGame$Data|
00001850  3e 2e 50 72 6f 67 72 61  6d 22 20 b8 20 66 74 79  |>.Program" . fty|
00001860  70 65 2c 2c 2c 2c 63 6f  64 65 73 69 7a 65 0d 0a  |pe,,,,codesize..|
00001870  d2 40 c8 99 20 22 4f 53  5f 46 69 6c 65 22 2c 35  |.@.. "OS_File",5|
00001880  2c 22 3c 41 6c 70 73 47  61 6d 65 24 44 61 74 61  |,"<AlpsGame$Data|
00001890  3e 2e 54 65 78 74 22 20  20 20 20 b8 20 66 74 79  |>.Text"    . fty|
000018a0  70 65 2c 2c 2c 2c 6d 61  78 74 65 78 74 25 0d 0a  |pe,,,,maxtext%..|
000018b0  dc 04 0d 0a e6 12 64 69  63 74 5f 73 69 7a 65 3d  |......dict_size=|
000018c0  31 30 30 30 0d 0a f0 04  0d 0a fa 86 de 20 6e 6f  |1000......... no|
000018d0  75 6e 73 20 6e 6f 75 6e  5f 73 69 7a 65 2c 76 65  |uns noun_size,ve|
000018e0  72 62 73 20 76 65 72 62  5f 73 69 7a 65 2c 61 64  |rbs verb_size,ad|
000018f0  6a 65 63 74 73 20 61 64  6a 63 5f 73 69 7a 65 2c  |jects adjc_size,|
00001900  70 72 65 70 73 20 70 72  65 70 5f 73 69 7a 65 2c  |preps prep_size,|
00001910  63 6f 6e 6a 73 20 63 6f  6e 6a 5f 73 69 7a 65 2c  |conjs conj_size,|
00001920  73 70 65 63 73 20 73 70  65 63 5f 73 69 7a 65 2c  |specs spec_size,|
00001930  6e 6f 69 73 65 20 6e 6f  69 73 65 5f 73 69 7a 65  |noise noise_size|
00001940  2c 70 69 78 73 20 70 69  78 5f 73 69 7a 65 0d 0b  |,pixs pix_size..|
00001950  04 04 0d 0b 0e 3a de 20  61 72 65 66 20 61 72 65  |.....:. aref are|
00001960  66 5f 73 69 7a 65 2c 6e  72 65 66 20 6e 72 65 66  |f_size,nref nref|
00001970  5f 73 69 7a 65 2c 76 65  72 62 5f 74 79 70 65 20  |_size,verb_type |
00001980  32 2a 28 6d 61 78 76 62  6e 2b 31 29 0d 0b 18 3c  |2*(maxvbn+1)...<|
00001990  f4 20 53 65 74 20 75 70  20 64 61 74 61 20 61 72  |. Set up data ar|
000019a0  65 61 73 20 66 6f 72 20  72 6f 6f 6d 73 20 61 6e  |eas for rooms an|
000019b0  64 20 6f 62 6a 65 63 74  73 20 61 6e 64 20 63 6c  |d objects and cl|
000019c0  65 61 72 20 74 68 65 6d  0d 0b 22 04 0d 0b 2c 42  |ear them.."...,B|
000019d0  de 20 72 64 61 74 61 25  20 28 6d 61 78 72 6d 73  |. rdata% (maxrms|
000019e0  2b 31 29 2a 72 5f 6c 65  6e 2c 6f 64 61 74 61 25  |+1)*r_len,odata%|
000019f0  20 28 6d 61 78 6f 62 73  2b 31 29 2a 6f 5f 6c 65  | (maxobs+1)*o_le|
00001a00  6e 2c 63 6f 6e 74 72 6f  6f 6d 25 20 31 32 0d 0b  |n,controom% 12..|
00001a10  36 04 0d 0b 40 2a 6e 75  6d 5f 76 61 72 73 3d 36  |6...@*num_vars=6|
00001a20  30 3a f4 20 4e 75 6d 62  65 72 20 6f 66 20 41 4c  |0:. Number of AL|
00001a30  50 53 20 76 61 72 69 61  62 6c 65 73 0d 0b 4a 2e  |PS variables..J.|
00001a40  76 61 72 5f 73 69 7a 65  3d 6e 75 6d 5f 76 61 72  |var_size=num_var|
00001a50  73 2a 32 3a f4 20 32 20  62 79 74 65 73 20 70 65  |s*2:. 2 bytes pe|
00001a60  72 20 76 61 72 69 61 62  6c 65 0d 0b 54 04 0d 0b  |r variable..T...|
00001a70  5e 1d f4 20 53 65 74 20  75 70 20 74 68 65 20 73  |^.. Set up the s|
00001a80  61 76 65 20 62 75 66 66  65 72 73 0d 0b 68 2b 69  |ave buffers..h+i|
00001a90  6e 69 74 61 72 65 61 73  69 7a 65 3d 37 2a 28 6d  |nitareasize=7*(m|
00001aa0  61 78 6f 62 73 2b 31 29  2b 32 32 2a 28 6d 61 78  |axobs+1)+22*(max|
00001ab0  72 6d 73 2b 31 29 0d 0b  72 3d de 20 69 6e 69 74  |rms+1)..r=. init|
00001ac0  73 61 76 65 20 69 6e 69  74 61 72 65 61 73 69 7a  |save initareasiz|
00001ad0  65 2c 72 61 6d 73 61 76  65 20 69 6e 69 74 61 72  |e,ramsave initar|
00001ae0  65 61 73 69 7a 65 2b 76  61 72 5f 73 69 7a 65 2b  |easize+var_size+|
00001af0  31 32 38 0d 0b 7c 04 0d  0b 86 1f f4 20 41 72 65  |128..|...... Are|
00001b00  61 20 66 6f 72 20 73 74  6f 72 69 6e 67 20 6d 65  |a for storing me|
00001b10  73 73 61 67 65 73 0d 0b  90 14 de 20 74 65 78 74  |ssages..... text|
00001b20  25 20 6d 61 78 74 65 78  74 25 0d 0b 9a 04 0d 0b  |% maxtext%......|
00001b30  a4 0f 64 61 74 61 76 61  6c 69 64 3d b9 0d 0b ae  |..datavalid=....|
00001b40  04 0d 0b b8 1b f4 20 53  65 74 20 75 70 20 74 68  |...... Set up th|
00001b50  65 20 64 69 63 74 69 6f  6e 61 72 79 0d 0b c2 15  |e dictionary....|
00001b60  de 20 64 69 63 74 25 20  64 69 63 74 5f 73 69 7a  |. dict% dict_siz|
00001b70  65 0d 0b cc 04 0d 0b d6  1d f4 20 53 65 74 20 75  |e......... Set u|
00001b80  70 20 74 68 65 20 70 72  6f 67 72 61 6d 20 61 72  |p the program ar|
00001b90  65 61 0d 0b e0 04 0d 0b  ea 17 de 20 70 72 6f 67  |ea......... prog|
00001ba0  72 61 6d 25 20 63 6f 64  65 73 69 7a 65 0d 0b f4  |ram% codesize...|
00001bb0  04 0d 0b fe 27 f4 20 44  69 6d 65 6e 73 69 6f 6e  |....'. Dimension|
00001bc0  20 74 68 65 20 6f 74 68  65 72 20 61 72 72 61 79  | the other array|
00001bd0  73 20 6e 65 65 64 65 64  0d 0c 08 04 0d 0c 12 0e  |s needed........|
00001be0  75 63 73 69 7a 65 3d 35  30 30 0d 0c 1c 47 c8 99  |ucsize=500...G..|
00001bf0  20 22 4f 53 5f 46 69 6c  65 22 2c 35 2c 22 3c 41  | "OS_File",5,"<A|
00001c00  6c 70 73 47 61 6d 65 24  52 65 73 6f 75 72 63 65  |lpsGame$Resource|
00001c10  73 3e 41 53 49 6f 62 6a  63 6f 64 65 22 20 b8 20  |s>ASIobjcode" . |
00001c20  66 74 79 70 65 2c 2c 2c  2c 63 6f 64 65 73 69 7a  |ftype,,,,codesiz|
00001c30  65 0d 0c 26 49 c8 99 20  22 4f 53 5f 46 69 6c 65  |e..&I.. "OS_File|
00001c40  22 2c 35 2c 22 3c 41 6c  70 73 47 61 6d 65 24 52  |",5,"<AlpsGame$R|
00001c50  65 73 6f 75 72 63 65 73  3e 70 62 79 74 65 73 22  |esources>pbytes"|
00001c60  20 20 20 20 20 b8 20 66  74 79 70 65 2c 2c 2c 2c  |     . ftype,,,,|
00001c70  70 62 79 74 65 5f 73 69  7a 65 0d 0c 30 04 0d 0c  |pbyte_size..0...|
00001c80  3a 38 de 20 70 62 79 74  65 73 20 70 62 79 74 65  |:8. pbytes pbyte|
00001c90  5f 73 69 7a 65 2c 77 6f  72 6b 25 20 26 31 31 30  |_size,work% &110|
00001ca0  30 2c 61 73 69 63 6f 64  65 25 20 63 6f 64 65 73  |0,asicode% codes|
00001cb0  69 7a 65 2b 31 30 0d 0c  44 04 0d 0c 4e 28 de 20  |ize+10..D...N(. |
00001cc0  75 73 65 72 63 6f 64 65  25 20 75 63 73 69 7a 65  |usercode% ucsize|
00001cd0  2c 73 63 61 6c 65 20 31  35 2c 70 69 78 74 72 20  |,scale 15,pixtr |
00001ce0  31 35 0d 0c 58 04 0d 0c  62 10 72 75 6e 3d 61 73  |15..X...b.run=as|
00001cf0  69 63 6f 64 65 25 0d 0c  6c 04 0d 0c 76 38 ff 28  |icode%..l...v8.(|
00001d00  22 4c 4f 41 44 20 3c 41  6c 70 73 47 61 6d 65 24  |"LOAD <AlpsGame$|
00001d10  52 65 73 6f 75 72 63 65  73 3e 41 53 49 6f 62 6a  |Resources>ASIobj|
00001d20  63 6f 64 65 20 22 2b c3  7e 61 73 69 63 6f 64 65  |code "+.~asicode|
00001d30  25 29 0d 0c 80 05 e1 0d  0c 8a 04 0d 0c 94 04 0d  |%)..............|
00001d40  0c 9e 0a dd 20 f2 72 75  6e 0d 0c a8 07 ea 20 85  |.... .run..... .|
00001d50  0d 0c b2 3a 65 72 72 5f  63 6f 6c 3d 31 31 3a f2  |...:err_col=11:.|
00001d60  63 6f 6c 28 31 33 30 29  3a f2 63 6f 6c 28 37 29  |col(130):.col(7)|
00001d70  3a c8 99 20 22 57 69 6d  70 5f 53 65 74 43 6f 6c  |:.. "Wimp_SetCol|
00001d80  6f 75 72 22 2c 31 32 38  2b 32 0d 0c bc 61 ee 20  |our",128+2...a. |
00001d90  85 20 ea 3a f2 63 6f 6c  28 65 72 72 5f 63 6f 6c  |. .:.col(err_col|
00001da0  29 3a e7 20 9f 3c 3e 31  37 20 f1 27 22 49 6e 74  |):. .<>17 .'"Int|
00001db0  65 72 70 72 65 74 65 72  20 72 65 70 6f 72 74 73  |erpreter reports|
00001dc0  20 61 20 72 75 6e 2d 74  69 6d 65 20 65 72 72 6f  | a run-time erro|
00001dd0  72 3a 20 22 f6 24 3a e5  20 8d 74 76 4d 20 8b 20  |r: ".$:. .tvM . |
00001de0  f1 27 f6 24 3a e5 20 8d  74 76 4d 0d 0c c6 11 21  |.'.$:. .tvM....!|
00001df0  77 6f 72 6b 25 3d 72 64  61 74 61 25 0d 0c d0 13  |work%=rdata%....|
00001e00  77 6f 72 6b 25 21 34 3d  76 65 72 62 73 2b 33 0d  |work%!4=verbs+3.|
00001e10  0c da 13 77 6f 72 6b 25  21 38 3d 6e 6f 75 6e 73  |...work%!8=nouns|
00001e20  2b 33 0d 0c e4 17 77 6f  72 6b 25 21 31 32 3d 70  |+3....work%!12=p|
00001e30  72 6f 67 72 61 6d 25 2b  34 0d 0c ee 14 77 6f 72  |rogram%+4....wor|
00001e40  6b 25 21 31 36 3d 74 65  78 74 25 2b 37 0d 0c f8  |k%!16=text%+7...|
00001e50  14 77 6f 72 6b 25 21 32  30 3d 64 69 63 74 25 2b  |.work%!20=dict%+|
00001e60  33 0d 0d 02 13 77 6f 72  6b 25 21 32 34 3d 6f 64  |3....work%!24=od|
00001e70  61 74 61 25 0d 0d 0c 16  77 6f 72 6b 25 21 32 38  |ata%....work%!28|
00001e80  3d 61 64 6a 65 63 74 73  2b 33 0d 0d 16 14 77 6f  |=adjects+3....wo|
00001e90  72 6b 25 21 33 32 3d 70  72 65 70 73 2b 33 0d 0d  |rk%!32=preps+3..|
00001ea0  20 14 77 6f 72 6b 25 21  33 36 3d 63 6f 6e 6a 73  | .work%!36=conjs|
00001eb0  2b 33 0d 0d 2a 14 77 6f  72 6b 25 21 34 30 3d 73  |+3..*.work%!40=s|
00001ec0  70 65 63 73 2b 33 0d 0d  34 14 77 6f 72 6b 25 21  |pecs+3..4.work%!|
00001ed0  34 34 3d 6e 6f 69 73 65  2b 33 0d 0d 3e 13 77 6f  |44=noise+3..>.wo|
00001ee0  72 6b 25 21 34 38 3d 70  69 78 73 2b 33 0d 0d 48  |rk%!48=pixs+3..H|
00001ef0  1b f4 20 20 77 6f 72 6b  25 21 35 32 20 69 73 20  |..  work%!52 is |
00001f00  72 65 73 65 72 76 65 64  0d 0d 52 15 77 6f 72 6b  |reserved..R.work|
00001f10  25 21 35 36 3d 69 6e 69  74 73 61 76 65 0d 0d 5c  |%!56=initsave..\|
00001f20  16 77 6f 72 6b 25 21 36  30 3d 6c 61 73 74 5f 72  |.work%!60=last_r|
00001f30  6f 6f 6d 0d 0d 66 1a 77  6f 72 6b 25 21 36 34 3d  |oom..f.work%!64=|
00001f40  6c 61 73 74 5f 6f 62 6a  65 63 74 2b 31 0d 0d 70  |last_object+1..p|
00001f50  05 db 0d 0d 7a 19 ef 20  32 34 2c 30 3b 31 34 34  |....z.. 24,0;144|
00001f60  3b 73 63 72 77 3b 73 63  72 68 3b 0d 0d 84 05 da  |;scrw;scrh;.....|
00001f70  0d 0d 8e 05 ee 0d 0d 98  2b 41 25 3d 76 65 72 62  |........+A%=verb|
00001f80  5f 74 79 70 65 3a 42 25  3d 6e 72 65 66 3a 43 25  |_type:B%=nref:C%|
00001f90  3d 61 72 65 66 3a 44 25  3d 72 61 6d 73 61 76 65  |=aref:D%=ramsave|
00001fa0  0d 0d a2 2d 45 25 3d 70  62 79 74 65 73 3a 46 25  |...-E%=pbytes:F%|
00001fb0  3d 77 6f 72 6b 25 3a 47  25 3d 61 72 65 61 25 3a  |=work%:G%=area%:|
00001fc0  48 25 3d 61 72 65 61 5f  73 69 7a 65 25 0d 0d ac  |H%=area_size%...|
00001fd0  09 d6 20 72 75 6e 0d 0d  b6 07 f7 20 85 0d 0d c0  |.. run..... ....|
00001fe0  05 e1 0d 0d ca 04 0d 0d  d4 04 0d 0d de 11 dd 20  |............... |
00001ff0  f2 6c 6f 61 64 5f 76 6f  63 61 62 0d 0d e8 28 f2  |.load_vocab...(.|
00002000  6c 6f 61 64 5f 6e 6f 75  6e 73 28 22 3c 41 6c 70  |load_nouns("<Alp|
00002010  73 47 61 6d 65 24 44 61  74 61 3e 2e 4e 6f 75 6e  |sGame$Data>.Noun|
00002020  73 22 29 0d 0d f2 28 f2  6c 6f 61 64 5f 76 65 72  |s")...(.load_ver|
00002030  62 73 28 22 3c 41 6c 70  73 47 61 6d 65 24 44 61  |bs("<AlpsGame$Da|
00002040  74 61 3e 2e 56 65 72 62  73 22 29 0d 0d fc 2f f2  |ta>.Verbs").../.|
00002050  6c 6f 61 64 5f 61 64 6a  65 63 74 73 28 22 3c 41  |load_adjects("<A|
00002060  6c 70 73 47 61 6d 65 24  44 61 74 61 3e 2e 41 64  |lpsGame$Data>.Ad|
00002070  6a 65 63 74 69 76 65 73  22 29 0d 0e 06 29 f2 6c  |jectives")...).l|
00002080  6f 61 64 5f 70 72 65 70  73 28 22 3c 41 6c 70 73  |oad_preps("<Alps|
00002090  47 61 6d 65 24 44 61 74  61 3e 2e 50 72 65 70 6f  |Game$Data>.Prepo|
000020a0  73 22 29 0d 0e 10 29 f2  6c 6f 61 64 5f 63 6f 6e  |s")...).load_con|
000020b0  6a 28 22 3c 41 6c 70 73  47 61 6d 65 24 44 61 74  |j("<AlpsGame$Dat|
000020c0  61 3e 2e 43 6f 6e 6a 75  6e 63 22 29 0d 0e 1a 2a  |a>.Conjunc")...*|
000020d0  f2 6c 6f 61 64 5f 73 70  65 63 28 22 3c 41 6c 70  |.load_spec("<Alp|
000020e0  73 47 61 6d 65 24 44 61  74 61 3e 2e 53 70 65 63  |sGame$Data>.Spec|
000020f0  69 61 6c 73 22 29 0d 0e  24 28 f2 6c 6f 61 64 5f  |ials")..$(.load_|
00002100  6e 6f 69 73 65 28 22 3c  41 6c 70 73 47 61 6d 65  |noise("<AlpsGame|
00002110  24 44 61 74 61 3e 2e 4e  6f 69 73 65 22 29 0d 0e  |$Data>.Noise")..|
00002120  2e 2c f2 6c 6f 61 64 5f  76 74 79 70 65 73 28 22  |.,.load_vtypes("|
00002130  3c 41 6c 70 73 47 61 6d  65 24 44 61 74 61 3e 2e  |<AlpsGame$Data>.|
00002140  56 65 72 62 54 79 70 65  22 29 0d 0e 38 27 f2 6c  |VerbType")..8'.l|
00002150  6f 61 64 5f 6e 72 65 66  73 28 22 3c 41 6c 70 73  |oad_nrefs("<Alps|
00002160  47 61 6d 65 24 44 61 74  61 3e 2e 4e 72 65 66 22  |Game$Data>.Nref"|
00002170  29 0d 0e 42 27 f2 6c 6f  61 64 5f 61 72 65 66 73  |)..B'.load_arefs|
00002180  28 22 3c 41 6c 70 73 47  61 6d 65 24 44 61 74 61  |("<AlpsGame$Data|
00002190  3e 2e 41 72 65 66 22 29  0d 0e 4c 05 e1 0d 0e 56  |>.Aref")..L....V|
000021a0  04 0d 0e 60 18 dd 20 f2  6c 6f 61 64 5f 6e 6f 75  |...`.. .load_nou|
000021b0  6e 73 28 66 69 6c 65 24  29 0d 0e 6a 10 e7 20 66  |ns(file$)..j.. f|
000021c0  69 6c 65 24 3d 22 22 20  8c 0d 0e 74 11 f2 65 72  |ile$="" ...t..er|
000021d0  72 6f 72 28 31 36 2c 22  22 29 0d 0e 7e 05 cc 0d  |ror(16,"")..~...|
000021e0  0e 88 1f ff 20 22 4c 4f  41 44 20 22 2b 66 69 6c  |.... "LOAD "+fil|
000021f0  65 24 2b 22 20 22 2b c3  7e 6e 6f 75 6e 73 0d 0e  |e$+" "+.~nouns..|
00002200  92 0e 6f 62 6e 3d 3f 6e  6f 75 6e 73 0d 0e 9c 28  |..obn=?nouns...(|
00002210  6e 78 74 6f 62 6a 3d 6e  6f 75 6e 73 2b 28 6e 6f  |nxtobj=nouns+(no|
00002220  75 6e 73 3f 31 2b 32 35  36 2a 28 6e 6f 75 6e 73  |uns?1+256*(nouns|
00002230  3f 32 29 29 0d 0e a6 05  cd 0d 0e b0 05 e1 0d 0e  |?2))............|
00002240  ba 04 0d 0e c4 18 dd 20  f2 6c 6f 61 64 5f 76 65  |....... .load_ve|
00002250  72 62 73 28 66 69 6c 65  24 29 0d 0e ce 10 e7 20  |rbs(file$)..... |
00002260  66 69 6c 65 24 3d 22 22  20 8c 0d 0e d8 11 f2 65  |file$="" ......e|
00002270  72 72 6f 72 28 31 36 2c  22 22 29 0d 0e e2 05 cc  |rror(16,"").....|
00002280  0d 0e ec 1f ff 20 22 4c  4f 41 44 20 22 2b 66 69  |..... "LOAD "+fi|
00002290  6c 65 24 2b 22 20 22 2b  c3 7e 76 65 72 62 73 0d  |le$+" "+.~verbs.|
000022a0  0e f6 0e 76 62 6e 3d 3f  76 65 72 62 73 0d 0f 00  |...vbn=?verbs...|
000022b0  28 6e 78 74 76 72 62 3d  76 65 72 62 73 2b 28 76  |(nxtvrb=verbs+(v|
000022c0  65 72 62 73 3f 31 2b 32  35 36 2a 28 76 65 72 62  |erbs?1+256*(verb|
000022d0  73 3f 32 29 29 0d 0f 0a  05 cd 0d 0f 14 05 e1 0d  |s?2))...........|
000022e0  0f 1e 04 0d 0f 28 1a dd  20 f2 6c 6f 61 64 5f 61  |.....(.. .load_a|
000022f0  64 6a 65 63 74 73 28 66  69 6c 65 24 29 0d 0f 32  |djects(file$)..2|
00002300  10 e7 20 66 69 6c 65 24  3d 22 22 20 8c 0d 0f 3c  |.. file$="" ...<|
00002310  11 f2 65 72 72 6f 72 28  31 36 2c 22 22 29 0d 0f  |..error(16,"")..|
00002320  46 05 cc 0d 0f 50 21 ff  20 22 4c 4f 41 44 20 22  |F....P!. "LOAD "|
00002330  2b 66 69 6c 65 24 2b 22  20 22 2b c3 7e 61 64 6a  |+file$+" "+.~adj|
00002340  65 63 74 73 0d 0f 5a 10  61 64 6e 3d 3f 61 64 6a  |ects..Z.adn=?adj|
00002350  65 63 74 73 0d 0f 64 2e  6e 78 74 61 64 6a 3d 61  |ects..d.nxtadj=a|
00002360  64 6a 65 63 74 73 2b 28  61 64 6a 65 63 74 73 3f  |djects+(adjects?|
00002370  31 2b 32 35 36 2a 28 61  64 6a 65 63 74 73 3f 32  |1+256*(adjects?2|
00002380  29 29 0d 0f 6e 05 cd 0d  0f 78 05 e1 0d 0f 82 04  |))..n....x......|
00002390  0d 0f 8c 18 dd 20 f2 6c  6f 61 64 5f 70 72 65 70  |..... .load_prep|
000023a0  73 28 66 69 6c 65 24 29  0d 0f 96 10 e7 20 66 69  |s(file$)..... fi|
000023b0  6c 65 24 3d 22 22 20 8c  0d 0f a0 11 f2 65 72 72  |le$="" ......err|
000023c0  6f 72 28 31 36 2c 22 22  29 0d 0f aa 05 cc 0d 0f  |or(16,"").......|
000023d0  b4 1f ff 20 22 4c 4f 41  44 20 22 2b 66 69 6c 65  |... "LOAD "+file|
000023e0  24 2b 22 20 22 2b c3 7e  70 72 65 70 73 0d 0f be  |$+" "+.~preps...|
000023f0  0e 70 72 6e 3d 3f 70 72  65 70 73 0d 0f c8 28 6e  |.prn=?preps...(n|
00002400  78 74 70 72 70 3d 70 72  65 70 73 2b 28 70 72 65  |xtprp=preps+(pre|
00002410  70 73 3f 31 2b 32 35 36  2a 28 70 72 65 70 73 3f  |ps?1+256*(preps?|
00002420  32 29 29 0d 0f d2 05 cd  0d 0f dc 05 e1 0d 0f e6  |2)).............|
00002430  04 0d 0f f0 17 dd 20 f2  6c 6f 61 64 5f 63 6f 6e  |...... .load_con|
00002440  6a 28 66 69 6c 65 24 29  0d 0f fa 10 e7 20 66 69  |j(file$)..... fi|
00002450  6c 65 24 3d 22 22 20 8c  0d 10 04 11 f2 65 72 72  |le$="" ......err|
00002460  6f 72 28 31 36 2c 22 22  29 0d 10 0e 05 cc 0d 10  |or(16,"").......|
00002470  18 1f ff 20 22 4c 4f 41  44 20 22 2b 66 69 6c 65  |... "LOAD "+file|
00002480  24 2b 22 20 22 2b c3 7e  63 6f 6e 6a 73 0d 10 22  |$+" "+.~conjs.."|
00002490  0e 63 6a 6e 3d 3f 63 6f  6e 6a 73 0d 10 2c 28 6e  |.cjn=?conjs..,(n|
000024a0  78 74 63 6a 6e 3d 63 6f  6e 6a 73 2b 28 63 6f 6e  |xtcjn=conjs+(con|
000024b0  6a 73 3f 31 2b 32 35 36  2a 28 63 6f 6e 6a 73 3f  |js?1+256*(conjs?|
000024c0  32 29 29 0d 10 36 05 cd  0d 10 40 05 e1 0d 10 4a  |2))..6....@....J|
000024d0  04 0d 10 54 17 dd 20 f2  6c 6f 61 64 5f 73 70 65  |...T.. .load_spe|
000024e0  63 28 66 69 6c 65 24 29  0d 10 5e 10 e7 20 66 69  |c(file$)..^.. fi|
000024f0  6c 65 24 3d 22 22 20 8c  0d 10 68 11 f2 65 72 72  |le$="" ...h..err|
00002500  6f 72 28 31 36 2c 22 22  29 0d 10 72 05 cc 0d 10  |or(16,"")..r....|
00002510  7c 1f ff 20 22 4c 4f 41  44 20 22 2b 66 69 6c 65  ||.. "LOAD "+file|
00002520  24 2b 22 20 22 2b c3 7e  73 70 65 63 73 0d 10 86  |$+" "+.~specs...|
00002530  0e 73 70 6e 3d 3f 73 70  65 63 73 0d 10 90 28 6e  |.spn=?specs...(n|
00002540  78 74 73 70 6e 3d 73 70  65 63 73 2b 28 73 70 65  |xtspn=specs+(spe|
00002550  63 73 3f 31 2b 32 35 36  2a 28 73 70 65 63 73 3f  |cs?1+256*(specs?|
00002560  32 29 29 0d 10 9a 05 cd  0d 10 a4 05 e1 0d 10 ae  |2)).............|
00002570  04 0d 10 b8 18 dd 20 f2  6c 6f 61 64 5f 6e 6f 69  |...... .load_noi|
00002580  73 65 28 66 69 6c 65 24  29 0d 10 c2 10 e7 20 66  |se(file$)..... f|
00002590  69 6c 65 24 3d 22 22 20  8c 0d 10 cc 11 f2 65 72  |ile$="" ......er|
000025a0  72 6f 72 28 31 36 2c 22  22 29 0d 10 d6 05 cc 0d  |ror(16,"")......|
000025b0  10 e0 1f ff 20 22 4c 4f  41 44 20 22 2b 66 69 6c  |.... "LOAD "+fil|
000025c0  65 24 2b 22 20 22 2b c3  7e 6e 6f 69 73 65 0d 10  |e$+" "+.~noise..|
000025d0  ea 0e 6e 73 6e 3d 3f 6e  6f 69 73 65 0d 10 f4 28  |..nsn=?noise...(|
000025e0  6e 78 74 6e 73 6e 3d 6e  6f 69 73 65 2b 28 6e 6f  |nxtnsn=noise+(no|
000025f0  69 73 65 3f 31 2b 32 35  36 2a 28 6e 6f 69 73 65  |ise?1+256*(noise|
00002600  3f 32 29 29 0d 10 fe 05  cd 0d 11 08 05 e1 0d 11  |?2))............|
00002610  12 04 0d 11 1c 19 dd 20  f2 6c 6f 61 64 5f 76 74  |....... .load_vt|
00002620  79 70 65 73 28 66 69 6c  65 24 29 0d 11 26 10 e7  |ypes(file$)..&..|
00002630  20 66 69 6c 65 24 3d 22  22 20 8c 0d 11 30 11 f2  | file$="" ...0..|
00002640  65 72 72 6f 72 28 31 36  2c 22 22 29 0d 11 3a 05  |error(16,"")..:.|
00002650  cc 0d 11 44 23 ff 20 22  4c 4f 41 44 20 22 2b 66  |...D#. "LOAD "+f|
00002660  69 6c 65 24 2b 22 20 22  2b c3 7e 76 65 72 62 5f  |ile$+" "+.~verb_|
00002670  74 79 70 65 0d 11 4e 05  cd 0d 11 58 05 e1 0d 11  |type..N....X....|
00002680  62 04 0d 11 6c 18 dd 20  f2 6c 6f 61 64 5f 61 72  |b...l.. .load_ar|
00002690  65 66 73 28 66 69 6c 65  24 29 0d 11 76 10 e7 20  |efs(file$)..v.. |
000026a0  66 69 6c 65 24 3d 22 22  20 8c 0d 11 80 11 f2 65  |file$="" ......e|
000026b0  72 72 6f 72 28 31 36 2c  22 22 29 0d 11 8a 05 cc  |rror(16,"").....|
000026c0  0d 11 94 1e ff 20 22 4c  4f 41 44 20 22 2b 66 69  |..... "LOAD "+fi|
000026d0  6c 65 24 2b 22 20 22 2b  c3 7e 61 72 65 66 0d 11  |le$+" "+.~aref..|
000026e0  9e 05 cd 0d 11 a8 05 e1  0d 11 b2 04 0d 11 bc 18  |................|
000026f0  dd 20 f2 6c 6f 61 64 5f  6e 72 65 66 73 28 66 69  |. .load_nrefs(fi|
00002700  6c 65 24 29 0d 11 c6 10  e7 20 66 69 6c 65 24 3d  |le$)..... file$=|
00002710  22 22 20 8c 0d 11 d0 11  f2 65 72 72 6f 72 28 31  |"" ......error(1|
00002720  36 2c 22 22 29 0d 11 da  05 cc 0d 11 e4 1e ff 20  |6,"").......... |
00002730  22 4c 4f 41 44 20 22 2b  66 69 6c 65 24 2b 22 20  |"LOAD "+file$+" |
00002740  22 2b c3 7e 6e 72 65 66  0d 11 ee 05 cd 0d 11 f8  |"+.~nref........|
00002750  05 e1 0d 12 02 04 0d 12  0c 17 dd 20 f2 6c 6f 61  |........... .loa|
00002760  64 5f 6f 62 6a 73 28 66  69 6c 65 24 29 0d 12 16  |d_objs(file$)...|
00002770  10 e7 20 66 69 6c 65 24  3d 22 22 20 8c 0d 12 20  |.. file$="" ... |
00002780  11 f2 65 72 72 6f 72 28  31 36 2c 22 22 29 0d 12  |..error(16,"")..|
00002790  2a 05 cc 0d 12 34 20 ff  20 22 4c 4f 41 44 20 22  |*....4 . "LOAD "|
000027a0  2b 66 69 6c 65 24 2b 22  20 22 2b c3 7e 6f 64 61  |+file$+" "+.~oda|
000027b0  74 61 25 0d 12 3e 12 6f  70 74 72 3d 6f 64 61 74  |ta%..>.optr=odat|
000027c0  61 25 3f 31 34 0d 12 48  19 6c 61 73 74 5f 6f 62  |a%?14..H.last_ob|
000027d0  6a 65 63 74 3d 6f 64 61  74 61 25 3f 31 35 0d 12  |ject=odata%?15..|
000027e0  52 05 cd 0d 12 5c 05 e1  0d 12 66 04 0d 12 70 18  |R....\....f...p.|
000027f0  dd 20 f2 6c 6f 61 64 5f  72 6f 6f 6d 73 28 66 69  |. .load_rooms(fi|
00002800  6c 65 24 29 0d 12 7a 10  e7 20 66 69 6c 65 24 3d  |le$)..z.. file$=|
00002810  22 22 20 8c 0d 12 84 11  f2 65 72 72 6f 72 28 31  |"" ......error(1|
00002820  36 2c 22 22 29 0d 12 8e  05 cc 0d 12 98 20 ff 20  |6,"")........ . |
00002830  22 4c 4f 41 44 20 22 2b  66 69 6c 65 24 2b 22 20  |"LOAD "+file$+" |
00002840  22 2b c3 7e 72 64 61 74  61 25 0d 12 a2 18 72 70  |"+.~rdata%....rp|
00002850  74 72 3d 21 72 64 61 74  61 25 20 80 20 26 46 46  |tr=!rdata% . &FF|
00002860  46 46 0d 12 ac 27 6c 61  73 74 5f 72 6f 6f 6d 3d  |FF...'last_room=|
00002870  28 21 72 64 61 74 61 25  20 80 20 26 46 46 46 46  |(!rdata% . &FFFF|
00002880  30 30 30 30 29 3e 3e 31  36 0d 12 b6 05 cd 0d 12  |0000)>>16.......|
00002890  c0 05 e1 0d 12 ca 04 0d  12 d4 16 dd 20 f2 6c 6f  |............ .lo|
000028a0  61 64 5f 70 69 78 28 66  69 6c 65 24 29 0d 12 de  |ad_pix(file$)...|
000028b0  10 e7 20 66 69 6c 65 24  3d 22 22 20 8c 0d 12 e8  |.. file$="" ....|
000028c0  11 f2 65 72 72 6f 72 28  31 36 2c 22 22 29 0d 12  |..error(16,"")..|
000028d0  f2 05 cc 0d 12 fc 1e ff  20 22 4c 4f 41 44 20 22  |........ "LOAD "|
000028e0  2b 66 69 6c 65 24 2b 22  20 22 2b c3 7e 70 69 78  |+file$+" "+.~pix|
000028f0  73 0d 13 06 0d 70 78 6e  3d 3f 70 69 78 73 0d 13  |s....pxn=?pixs..|
00002900  10 25 6e 78 74 70 78 6e  3d 70 69 78 73 2b 28 70  |.%nxtpxn=pixs+(p|
00002910  69 78 73 3f 31 2b 32 35  36 2a 28 70 69 78 73 3f  |ixs?1+256*(pixs?|
00002920  32 29 29 0d 13 1a 05 cd  0d 13 24 05 e1 0d 13 2e  |2)).......$.....|
00002930  04 0d 13 38 1a dd 20 f2  6c 6f 61 64 5f 70 72 6f  |...8.. .load_pro|
00002940  67 72 61 6d 28 66 69 6c  65 24 29 0d 13 42 10 e7  |gram(file$)..B..|
00002950  20 66 69 6c 65 24 3d 22  22 20 8c 0d 13 4c 11 f2  | file$="" ...L..|
00002960  65 72 72 6f 72 28 31 36  2c 22 22 29 0d 13 56 05  |error(16,"")..V.|
00002970  cc 0d 13 60 22 ff 20 22  4c 4f 41 44 20 22 2b 66  |...`". "LOAD "+f|
00002980  69 6c 65 24 2b 22 20 22  2b c3 7e 70 72 6f 67 72  |ile$+" "+.~progr|
00002990  61 6d 25 0d 13 6a 05 cd  0d 13 74 05 e1 0d 13 7e  |am%..j....t....~|
000029a0  04 0d 13 88 17 dd 20 f2  6c 6f 61 64 5f 74 65 78  |...... .load_tex|
000029b0  74 28 66 69 6c 65 24 29  0d 13 92 10 e7 20 66 69  |t(file$)..... fi|
000029c0  6c 65 24 3d 22 22 20 8c  0d 13 9c 11 f2 65 72 72  |le$="" ......err|
000029d0  6f 72 28 31 36 2c 22 22  29 0d 13 a6 05 cc 0d 13  |or(16,"").......|
000029e0  b0 1f ff 20 22 4c 4f 41  44 20 22 2b 66 69 6c 65  |... "LOAD "+file|
000029f0  24 2b 22 20 22 2b c3 7e  74 65 78 74 25 0d 13 ba  |$+" "+.~text%...|
00002a00  0a 6d 70 74 72 3d 31 0d  13 c4 05 cd 0d 13 ce 05  |.mptr=1.........|
00002a10  e1 0d 13 d8 04 0d 13 e2  17 dd 20 f2 6c 6f 61 64  |.......... .load|
00002a20  5f 64 69 63 74 28 66 69  6c 65 24 29 0d 13 ec 0b  |_dict(file$)....|
00002a30  ea 20 49 25 2c 4c 25 0d  13 f6 10 e7 20 66 69 6c  |. I%,L%..... fil|
00002a40  65 24 3d 22 22 20 8c 0d  14 00 11 f2 65 72 72 6f  |e$="" ......erro|
00002a50  72 28 31 36 2c 22 22 29  0d 14 0a 05 cc 0d 14 14  |r(16,"")........|
00002a60  1f ff 20 22 4c 4f 41 44  20 22 2b 66 69 6c 65 24  |.. "LOAD "+file$|
00002a70  2b 22 20 22 2b c3 7e 64  69 63 74 25 0d 14 1e 15  |+" "+.~dict%....|
00002a80  74 6f 6b 25 3d 64 69 63  74 25 3f 32 3a 4c 25 3d  |tok%=dict%?2:L%=|
00002a90  30 0d 14 28 21 e7 20 74  6f 6b 25 3d 30 20 74 6f  |0..(!. tok%=0 to|
00002aa0  6b 25 3d 31 32 38 20 8b  20 74 6f 6b 25 2d 3d 31  |k%=128 . tok%-=1|
00002ab0  32 38 0d 14 32 05 cd 0d  14 3c 05 e1 0d 14 46 04  |28..2....<....F.|
00002ac0  0d 14 50 11 dd 20 f2 6c  6f 61 64 5f 66 69 6c 65  |..P.. .load_file|
00002ad0  73 0d 14 5a 29 f2 6c 6f  61 64 5f 6f 62 6a 73 28  |s..Z).load_objs(|
00002ae0  22 3c 41 6c 70 73 47 61  6d 65 24 44 61 74 61 3e  |"<AlpsGame$Data>|
00002af0  2e 4f 62 6a 65 63 74 73  22 29 0d 14 64 28 f2 6c  |.Objects")..d(.l|
00002b00  6f 61 64 5f 72 6f 6f 6d  73 28 22 3c 41 6c 70 73  |oad_rooms("<Alps|
00002b10  47 61 6d 65 24 44 61 74  61 3e 2e 52 6f 6f 6d 73  |Game$Data>.Rooms|
00002b20  22 29 0d 14 6e 29 f2 6c  6f 61 64 5f 70 69 78 28  |")..n).load_pix(|
00002b30  22 3c 41 6c 70 73 47 61  6d 65 24 44 61 74 61 3e  |"<AlpsGame$Data>|
00002b40  2e 50 69 63 74 75 72 65  73 22 29 0d 14 78 0f f2  |.Pictures")..x..|
00002b50  6c 6f 61 64 5f 76 6f 63  61 62 0d 14 82 2c f2 6c  |load_vocab...,.l|
00002b60  6f 61 64 5f 70 72 6f 67  72 61 6d 28 22 3c 41 6c  |oad_program("<Al|
00002b70  70 73 47 61 6d 65 24 44  61 74 61 3e 2e 50 72 6f  |psGame$Data>.Pro|
00002b80  67 72 61 6d 22 29 0d 14  8c 26 f2 6c 6f 61 64 5f  |gram")...&.load_|
00002b90  74 65 78 74 28 22 3c 41  6c 70 73 47 61 6d 65 24  |text("<AlpsGame$|
00002ba0  44 61 74 61 3e 2e 54 65  78 74 22 29 0d 14 96 26  |Data>.Text")...&|
00002bb0  f2 6c 6f 61 64 5f 64 69  63 74 28 22 3c 41 6c 70  |.load_dict("<Alp|
00002bc0  73 47 61 6d 65 24 44 61  74 61 3e 2e 44 69 63 74  |sGame$Data>.Dict|
00002bd0  22 29 0d 14 a0 31 ff 20  22 4c 4f 41 44 20 3c 41  |")...1. "LOAD <A|
00002be0  6c 70 73 47 61 6d 65 24  52 65 73 6f 75 72 63 65  |lpsGame$Resource|
00002bf0  73 3e 70 62 79 74 65 73  20 22 2b c3 7e 70 62 79  |s>pbytes "+.~pby|
00002c00  74 65 73 0d 14 aa 05 e1  0d 14 b4 04 0d 14 be 0e  |tes.............|
00002c10  dd 20 a4 67 65 74 6d 6f  64 65 0d 14 c8 25 69 6e  |. .getmode...%in|
00002c20  25 3d 8e 28 22 3c 41 6c  70 73 47 61 6d 65 24 44  |%=.("<AlpsGame$D|
00002c30  61 74 61 3e 2e 47 61 6d  65 44 61 74 61 22 29 0d  |ata>.GameData").|
00002c40  14 d2 0f 6d 6f 64 65 25  3d 9a 23 69 6e 25 0d 14  |...mode%=.#in%..|
00002c50  dc 09 d9 23 69 6e 25 0d  14 e6 0a 3d 6d 6f 64 65  |...#in%....=mode|
00002c60  25 0d 14 f0 04 0d 14 fa  04 0d 15 04 27 dd 20 a4  |%...........'. .|
00002c70  65 6e 74 65 72 5f 77 6f  72 64 28 6c 65 6e 25 2c  |enter_word(len%,|
00002c80  63 68 24 2c 77 64 24 2c  77 78 25 2c 77 79 25 29  |ch$,wd$,wx%,wy%)|
00002c90  0d 15 0e 0d ea 20 6b 65  79 2c 50 6f 25 0d 15 18  |..... key,Po%...|
00002ca0  0b 2a 46 58 20 34 2c 31  0d 15 22 09 50 6f 25 3d  |.*FX 4,1..".Po%=|
00002cb0  30 0d 15 2c 05 f5 0d 15  36 14 f1 20 8a 77 78 25  |0..,....6.. .wx%|
00002cc0  2b 50 6f 25 2c 77 79 25  29 3b 0d 15 40 0b 2a 46  |+Po%,wy%);..@.*F|
00002cd0  58 31 35 2c 30 0d 15 4a  05 f5 0d 15 54 09 6b 65  |X15,0..J....T.ke|
00002ce0  79 3d a5 0d 15 5e 15 fd  20 6b 65 79 3e 33 31 20  |y=...^.. key>31 |
00002cf0  84 20 6b 65 79 3d 31 33  0d 15 68 11 e7 20 28 6b  |. key=13..h.. (k|
00002d00  65 79 3d 31 32 37 29 20  8c 0d 15 72 2e e7 20 a6  |ey=127) ...r.. .|
00002d10  2d 31 20 8c 20 77 64 24  3d c0 77 64 24 2c 50 6f  |-1 . wd$=.wd$,Po|
00002d20  25 29 2b c2 77 64 24 2c  6c 65 6e 25 2d 50 6f 25  |%)+.wd$,len%-Po%|
00002d30  2d 31 29 2b 63 68 24 0d  15 7c 17 e7 20 28 50 6f  |-1)+ch$..|.. (Po|
00002d40  25 3e 30 20 80 20 ac 20  a6 2d 31 29 20 8c 0d 15  |%>0 . . .-1) ...|
00002d50  86 2d 50 6f 25 2d 3d 31  3a 77 64 24 3d c0 77 64  |.-Po%-=1:wd$=.wd|
00002d60  24 2c 50 6f 25 29 2b c2  77 64 24 2c 6c 65 6e 25  |$,Po%)+.wd$,len%|
00002d70  2d 50 6f 25 2d 31 29 2b  63 68 24 0d 15 90 05 cd  |-Po%-1)+ch$.....|
00002d80  0d 15 9a 05 cd 0d 15 a4  25 e7 20 6b 65 79 3d 31  |........%. key=1|
00002d90  33 37 20 80 20 50 6f 25  2b 31 3c 6c 65 6e 25 20  |37 . Po%+1<len% |
00002da0  8c 20 50 6f 25 2b 3d 28  31 29 0d 15 ae 1e e7 20  |. Po%+=(1)..... |
00002db0  6b 65 79 3d 31 33 36 20  80 20 50 6f 25 3e 30 20  |key=136 . Po%>0 |
00002dc0  8c 20 50 6f 25 2d 3d 31  0d 15 b8 1a e7 20 28 6b  |. Po%-=1..... (k|
00002dd0  65 79 3e 33 31 20 80 20  6b 65 79 3c 31 32 37 29  |ey>31 . key<127)|
00002de0  20 8c 0d 15 c2 08 4b 25  3d a3 0d 15 cc 14 e3 20  | .....K%=...... |
00002df0  6c 70 25 3d 50 6f 25 20  b8 20 6c 65 6e 25 0d 15  |lp%=Po% . len%..|
00002e00  d6 27 e7 20 c1 77 64 24  2c 6c 70 25 2c 31 29 3d  |.'. .wd$,lp%,1)=|
00002e10  63 68 24 20 80 20 50 6f  25 3c 6c 65 6e 25 20 8c  |ch$ . Po%<len% .|
00002e20  20 4b 25 3d b9 0d 15 e0  05 ed 0d 15 ea 0a e7 20  | K%=........... |
00002e30  4b 25 20 8c 0d 15 f4 29  77 64 24 3d c0 77 64 24  |K% ....)wd$=.wd$|
00002e40  2c 50 6f 25 29 2b bd 28  6b 65 79 29 2b c2 77 64  |,Po%)+.(key)+.wd|
00002e50  24 2c 6c 65 6e 25 2d 50  6f 25 2d 31 29 0d 15 fe  |$,len%-Po%-1)...|
00002e60  0c 50 6f 25 2b 3d 28 31  29 0d 16 08 05 cd 0d 16  |.Po%+=(1).......|
00002e70  12 05 cd 0d 16 1c 14 f1  20 8a 77 78 25 2c 77 79  |........ .wx%,wy|
00002e80  25 29 3b 77 64 24 3b 0d  16 26 0c fd 20 6b 65 79  |%);wd$;..&.. key|
00002e90  3d 31 33 0d 16 30 0b 2a  46 58 20 34 2c 30 0d 16  |=13..0.*FX 4,0..|
00002ea0  3a 08 3d 77 64 24 0d 16  44 04 0d 16 4e 04 0d 16  |:.=wd$..D...N...|
00002eb0  58 18 dd 20 f2 67 65 74  6d 6f 64 65 69 6e 66 6f  |X.. .getmodeinfo|
00002ec0  28 6d 6f 64 65 29 0d 16  62 18 ea 20 78 2c 79 2c  |(mode)..b.. x,y,|
00002ed0  78 65 69 67 2c 79 65 69  67 2c 63 6f 6c 73 0d 16  |xeig,yeig,cols..|
00002ee0  6c 04 0d 16 76 31 c8 99  20 22 4f 53 5f 52 65 61  |l...v1.. "OS_Rea|
00002ef0  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 6d  |dModeVariable",m|
00002f00  6f 64 65 2c 31 20 b8 20  2c 2c 74 65 78 74 63 6f  |ode,1 . ,,textco|
00002f10  6c 73 25 0d 16 80 31 c8  99 20 22 4f 53 5f 52 65  |ls%...1.. "OS_Re|
00002f20  61 64 4d 6f 64 65 56 61  72 69 61 62 6c 65 22 2c  |adModeVariable",|
00002f30  6d 6f 64 65 2c 32 20 b8  20 2c 2c 74 65 78 74 72  |mode,2 . ,,textr|
00002f40  6f 77 73 25 0d 16 8a 1d  74 65 78 74 5f 6d 61 78  |ows%....text_max|
00002f50  6c 6c 65 6e 25 3d 74 65  78 74 63 6f 6c 73 25 2d  |llen%=textcols%-|
00002f60  32 0d 16 94 2c c8 99 20  22 4f 53 5f 52 65 61 64  |2...,.. "OS_Read|
00002f70  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 6d 6f  |ModeVariable",mo|
00002f80  64 65 2c 33 20 b8 20 2c  2c 63 6f 6c 73 0d 16 9e  |de,3 . ,,cols...|
00002f90  2c c8 99 20 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |,.. "OS_ReadMode|
00002fa0  56 61 72 69 61 62 6c 65  22 2c 6d 6f 64 65 2c 34  |Variable",mode,4|
00002fb0  20 b8 20 2c 2c 78 65 69  67 0d 16 a8 2c c8 99 20  | . ,,xeig...,.. |
00002fc0  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
00002fd0  61 62 6c 65 22 2c 6d 6f  64 65 2c 35 20 b8 20 2c  |able",mode,5 . ,|
00002fe0  2c 79 65 69 67 0d 16 b2  30 c8 99 20 22 4f 53 5f  |,yeig...0.. "OS_|
00002ff0  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00003000  22 2c 6d 6f 64 65 2c 37  20 b8 20 2c 2c 73 63 72  |",mode,7 . ,,scr|
00003010  6e 73 69 7a 65 0d 16 bc  2a c8 99 20 22 4f 53 5f  |nsize...*.. "OS_|
00003020  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00003030  22 2c 6d 6f 64 65 2c 31  31 20 b8 20 2c 2c 78 0d  |",mode,11 . ,,x.|
00003040  16 c6 2a c8 99 20 22 4f  53 5f 52 65 61 64 4d 6f  |..*.. "OS_ReadMo|
00003050  64 65 56 61 72 69 61 62  6c 65 22 2c 6d 6f 64 65  |deVariable",mode|
00003060  2c 31 32 20 b8 20 2c 2c  79 0d 16 d0 2d 73 63 72  |,12 . ,,y...-scr|
00003070  77 3d 28 28 78 2b 31 29  3c 3c 78 65 69 67 29 2d  |w=((x+1)<<xeig)-|
00003080  31 3a 73 63 72 68 3d 28  28 79 2b 31 29 3c 3c 79  |1:scrh=((y+1)<<y|
00003090  65 69 67 29 2d 31 0d 16  da 05 e1 0d 16 e4 04 0d  |eig)-1..........|
000030a0  16 ee 11 dd 20 f2 63 6f  6c 28 63 6f 6c 6f 72 29  |.... .col(color)|
000030b0  0d 16 f8 1e c8 99 20 22  57 69 6d 70 5f 54 65 78  |...... "Wimp_Tex|
000030c0  74 43 6f 6c 6f 75 72 22  2c 63 6f 6c 6f 72 0d 17  |tColour",color..|
000030d0  02 05 e1 0d 17 0c 04 0d  17 16 13 dd 20 f2 6c 6f  |............ .lo|
000030e0  61 64 5f 70 61 6c 28 66  24 29 0d 17 20 0d ea 20  |ad_pal(f$).. .. |
000030f0  69 6e 25 2c 63 6f 6c 0d  17 2a 0d 69 6e 25 3d 8e  |in%,col..*.in%=.|
00003100  28 66 24 29 0d 17 34 10  e3 20 63 6f 6c 3d 30 20  |(f$)..4.. col=0 |
00003110  b8 20 31 39 0d 17 3e 51  20 20 e7 20 63 6f 6c 3c  |. 19..>Q  . col<|
00003120  31 36 20 63 6f 6c 31 3d  63 6f 6c 3a 63 6f 6c 32  |16 col1=col:col2|
00003130  3d 31 36 20 8b 20 e7 20  63 6f 6c 3d 31 36 20 63  |=16 . . col=16 c|
00003140  6f 6c 31 3d 63 6f 6c 3a  63 6f 6c 32 3d 32 34 20  |ol1=col:col2=24 |
00003150  8b 20 63 6f 6c 31 3d 63  6f 6c 2d 31 36 3a 63 6f  |. col1=col-16:co|
00003160  6c 32 3d 32 35 0d 17 48  1d 20 20 72 3d 9a 23 69  |l2=25..H.  r=.#i|
00003170  6e 25 3a 67 3d 9a 23 69  6e 25 3a 62 3d 9a 23 69  |n%:g=.#in%:b=.#i|
00003180  6e 25 0d 17 52 1a 20 20  ef 20 31 39 2c 63 6f 6c  |n%..R.  . 19,col|
00003190  31 2c 63 6f 6c 32 2c 72  2c 67 2c 62 0d 17 5c 09  |1,col2,r,g,b..\.|
000031a0  ed 20 63 6f 6c 0d 17 66  09 d9 23 69 6e 25 0d 17  |. col..f..#in%..|
000031b0  70 05 e1 0d 17 7a 04 0d  ff                       |p....z...|
000031b9