%� >:4.$.!ALPS.Resources.!RunImage
+� (C) 1989 P. Hawthorne/Alpine Software
K� Modified 06.11.91 - Load users code (if any) and allow relative entry
A�                     points to it from CALL(1), CALL(2) etc.
(
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=�
��
�
�
�,�set_Prefs:� set preferences (mode etc.)
��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:� � �>900
:�
D
N
� mode%:�
X
b"� ----- 30.05.90/6.06.91 -----
l� mode%<>WimpMode �
vș "Wimp_SetMode",mode%
�ș "Wimp_Initialise"
��
�� --------------------
�
�)�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
4�
>
H
R*FX15,0
\� load_buttons �
f   *POINTER
p   ȗ �
z   ȗ � 550,48
��
�
�� � use_fkeys � � 4:�dpE
�
�in%=�(optionname$)
�choice=�
� � in%<>0 � choice=�load(in%)
�� choice � �dpE
�
��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."
.�
8
Bș "OS_PrettyPrint",m$
L�'
Vnș "OS_PrettyPrint","Note that you can use '|M' to simulate a <RETURN> key being pressed in your command."
`
j  �
t
  *FX21,0
~
�  � key=1 � 12
�    �col(14)
�+    �2,key+10);"String for F";key;":";
�    �col(12)
�8    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
2C     msg$="Is this OK? Click 'YES' or 'NO' or press 'Y' or 'N'"
<  �
F(     msg$="Is this OK? Press Y or N"
P  �
Z  �col(11):�''msg$
d  key=0
n
x  �:ȗ 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):�:ȗX%,Y%,B%:� B%=0
�  � key=7 � key=8
�
�� 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
6*FX200,0
@
� 26:�
J� 4
TD� mode%<>WimpMode � ș "Wimp_SetMode",WimpMode:� 30.05.90/6.6.91
^�"Adventure finished."
h�
r
|� �in(X%,Y%,� com)
�com=0:row=99
�� Y%>79 � Y%<125 row=1
�� Y%>0 � Y%<51 row=0
�col=(X%-minx) � (width) + 1
�&� col<=rowlen � com=col+rowlen*row
��
�
�� �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
0�
:  ȗ X%,Y%,B%:A$=�(0)
D  � A$="Y" � A$="y" � key=7
N  � A$="N" � A$="n" � key=8
X*  � B%=4 � load_buttons:�in(X%,Y%,key)
b� key=7 � key=8
l*� key=7 �ReadInFile(in%):=� � �#in%:=�
v
�� �ReadInFile(chan%)
�
�� K%=1 � 12
�  �#chan%,key$(K%)
�"  �("KEY "+�(K%)+" "+key$(K%))
��
�
�� #chan%
��
�
�� �WriteOutFile
�
�chan%=� optionname$

� K%=1 � 12
  �#chan%,key$(K%)
 �
*
4�#chan%
>�
H
R
\� �error
f*POINTER 1
p
ȗ � 1
z
�#ș "Wimp_SetColour",1:width=700
�%reportwidth=(�(�$)+�(�(�))+12)*16
�+� width<reportwidth � width=reportwidth
�ȓ Ȑ 200,300,width,204
�ȗ ȓ 200,300,width,204
�Cș "Wimp_SetColour",7:� 5:� 216,450:�"System reports an error:"
�*� 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
	.
	8� X>560 � X<700 � flag=2
	B� X>360 � X<436 � flag=1
	L
	V� flag=1 � flag=2
	`
	jș "Wimp_SetColour",0
	tȓ Ȑ 200,300,width,204
	~	� 4:�
	�ȗ ȓ 0,0,1279,1023
	�
	�� load_buttons � flag=2
	�   ȗ �
	��
	�
	�	=flag
	�
	�
	�� �init2
	�ș "Wimp_CloseDown"
	�minx=32
width=80

	y%=72
X%=minx:Y%=y%
$sprites=26:� Number of 'buttons'
(rowlen=sprites � 2
2XL=448:XR=XL+255
<
F'� Manifest constants for the system
P2maxrms=1000:maxobs=255:maxsw%=10:maxtokens=128
Z1maxlen=10:� Maximum word length in vocabulary
d
n3� Room and object data block lengths (in bytes)
xr_len=74:o_len=16
�
�5maxmsg=65535:maxobn=255:maxvbn=255:maxconst=65535
�Emaxadj=255:maxprep=50:maxconj=50:maxspec=10:maxnoise=10:maxpix=50
�
�noun_size=3000
�verb_size=3000
�adjc_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%
,
6dict_size=1000
@
J�� nouns noun_size,verbs verb_size,adjects adjc_size,preps prep_size,conjs conj_size,specs spec_size,noise noise_size,pixs pix_size
T
^:� aref aref_size,nref nref_size,verb_type 2*(maxvbn+1)
h<� Set up data areas for rooms and objects and clear them
r
|B� rdata% (maxrms+1)*r_len,odata% (maxobs+1)*o_len,controom% 12
�
�*num_vars=60:� Number of ALPS variables
�.var_size=num_vars*2:� 2 bytes per variable
�
�� Set up the save buffers
�+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
0
:� program% codesize
D
N'� Dimension the other arrays needed
X
bucsize=500
lGș "OS_File",5,"<AlpsGame$Resources>ASIobjcode" � ftype,,,,codesize
vIș "OS_File",5,"<AlpsGame$Resources>pbytes"     � ftype,,,,pbyte_size
�
�8� pbytes pbyte_size,work% &1100,asicode% codesize+10
�
�(� usercode% ucsize,scale 15,pixtr 15
�
�run=asicode%
�
�8�("LOAD <AlpsGame$Resources>ASIobjcode "+�~asicode%)
��
�
�
�
� �run
�� �

:err_col=11:�col(131):�col(7):ș "Wimp_SetColour",128+3

a� � �:�col(err_col):� �<>17 �'"Interpreter reports a run-time error: "�$:� �TPN � �'�$:� �TPN

!work%=rdata%

 work%!4=verbs+3

*work%!8=nouns+3

4work%!12=program%+4

>work%!16=text%+7

Hwork%!20=dict%+3

Rwork%!24=odata%

\work%!28=adjects+3

fwork%!32=preps+3

pwork%!36=conjs+3

zwork%!40=specs+3

�work%!44=noise+3

�work%!48=pixs+3

��  work%!52 is reserved

�work%!56=initsave

�work%!60=last_room

�work%!64=last_object+1

�work%!&14c=compress

�0work%!&150=usercode%:� New from Version 5.11

��

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

��

��

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

�-E%=pbytes:F%=work%:G%=area%:H%=area_size%
	� run
� �
�
$
.
8� �load_vocab
B(�load_nouns("<AlpsGame$Data>.Nouns")
L(�load_verbs("<AlpsGame$Data>.Verbs")
V/�load_adjects("<AlpsGame$Data>.Adjectives")
`)�load_preps("<AlpsGame$Data>.Prepos")
j)�load_conj("<AlpsGame$Data>.Conjunc")
t*�load_spec("<AlpsGame$Data>.Specials")
~(�load_noise("<AlpsGame$Data>.Noise")
�,�load_vtypes("<AlpsGame$Data>.VerbType")
�'�load_nrefs("<AlpsGame$Data>.Nref")
�'�load_arefs("<AlpsGame$Data>.Aref")
��
�
�� �load_nouns(file$)
�� file$="" �
��error(16,"")
��
�� "LOAD "+file$+" "+�~nouns
�obn=?nouns
�(nxtobj=nouns+(nouns?1+256*(nouns?2))
�

�

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

� �load_noise(file$)
� file$="" �
&�error(16,"")
0�
:� "LOAD "+file$+" "+�~noise
Dnsn=?noise
N(nxtnsn=noise+(noise?1+256*(noise?2))
X�
b�
l
v� �load_vtypes(file$)
�� file$="" �
��error(16,"")
��
�#� "LOAD "+file$+" "+�~verb_type
��
��
�
�� �load_arefs(file$)
�� file$="" �
��error(16,"")
��
�� "LOAD "+file$+" "+�~aref
��
�

� �load_nrefs(file$)
 � file$="" �
*�error(16,"")
4�
>� "LOAD "+file$+" "+�~nref
H�
R�
\
f� �load_objs(file$)
p� file$="" �
z�error(16,"")
��
� � "LOAD "+file$+" "+�~odata%
�optr=odata%?14
�last_object=odata%?15
��
��
�
�� �load_rooms(file$)
�� file$="" �
��error(16,"")
��
� � "LOAD "+file$+" "+�~rdata%
�rptr=!rdata% � &FFFF
'last_room=(!rdata% � &FFFF0000)>>16
�
�
$
.� �load_pix(file$)
8� file$="" �
B�error(16,"")
L�
V� "LOAD "+file$+" "+�~pixs
`
pxn=?pixs
j%nxtpxn=pixs+(pixs?1+256*(pixs?2))
t�
~�
�
�� �load_program(file$)
�� file$="" �
��error(16,"")
��
�"� "LOAD "+file$+" "+�~program%
��
��
�
�� �load_text(file$)
�� file$="" �
��error(16,"")
�

� "LOAD "+file$+" "+�~text%

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

� �set_Prefs
"%in%=�("<AlpsGame$Data>.GameData")
,mode%=�#in%
6compress=�#in%
@Jload_buttons=�#in%:� load_buttons<>0 � load_buttons=� � load_buttons=�
J>use_fkeys=�#in%:� use_fkeys<>0 � use_fkeys=� � use_fkeys=�
T	�#in%
^�
h
r
|'� �enter_word(len%,ch$,wd$,wx%,wy%)
�
� key,Po%
�*FX 4,1
�	Po%=0
��
�� �wx%+Po%,wy%);
�*FX15,0
��
�	key=�
�� key>31 � key=13
�� (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
0� (key>31 � key<127) �
:K%=�
D� lp%=Po% � len%
N'� �wd$,lp%,1)=ch$ � Po%<len% � K%=�
X�
b
� K% �
l)wd$=�wd$,Po%)+�(key)+�wd$,len%-Po%-1)
vPo%+=(1)
��
��
�� �wx%,wy%);wd$;
�� key=13
�*FX 4,0
�=wd$
�
�
�� �getmodeinfo(mode)
�� x,y,xeig,yeig,cols
�
�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
4*ș "OS_ReadModeVariable",mode,11 � ,,x
>*ș "OS_ReadModeVariable",mode,12 � ,,y
H-scrw=((x+1)<<xeig)-1:scrh=((y+1)<<yeig)-1
R�
\
f� �col(color)
pș "Wimp_TextColour",color
z�
�
�� �load_pal(f$)
�
� in%,col
�
in%=�(f$)
�� col=0 � 19
�Q  � col<16 col1=col:col2=16 � � col=16 col1=col:col2=24 � col1=col-16:col2=25
�  r=�#in%:g=�#in%:b=�#in%
�  � 19,col1,col2,r,g,b
�	� col
�	�#in%
��
�
�H� �load_code(f$)
�R	� in%
�\in%=� f$:�#in%
�],� in%<>0 � �("LOAD "+f$+" "+�~usercode%)
�^�
�

00000000  0d 00 0a 25 f4 20 3e 3a  34 2e 24 2e 21 41 4c 50  |...%. >:4.$.!ALP|
00000010  53 2e 52 65 73 6f 75 72  63 65 73 2e 21 52 75 6e  |S.Resources.!Run|
00000020  49 6d 61 67 65 0d 00 14  2b f4 20 28 43 29 20 31  |Image...+. (C) 1|
00000030  39 38 39 20 50 2e 20 48  61 77 74 68 6f 72 6e 65  |989 P. Hawthorne|
00000040  2f 41 6c 70 69 6e 65 20  53 6f 66 74 77 61 72 65  |/Alpine Software|
00000050  0d 00 1e 4b f4 20 4d 6f  64 69 66 69 65 64 20 30  |...K. Modified 0|
00000060  36 2e 31 31 2e 39 31 20  2d 20 4c 6f 61 64 20 75  |6.11.91 - Load u|
00000070  73 65 72 73 20 63 6f 64  65 20 28 69 66 20 61 6e  |sers code (if an|
00000080  79 29 20 61 6e 64 20 61  6c 6c 6f 77 20 72 65 6c  |y) and allow rel|
00000090  61 74 69 76 65 20 65 6e  74 72 79 0d 00 1f 41 f4  |ative entry...A.|
000000a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000b0  20 20 20 20 20 70 6f 69  6e 74 73 20 74 6f 20 69  |     points to i|
000000c0  74 20 66 72 6f 6d 20 43  41 4c 4c 28 31 29 2c 20  |t from CALL(1), |
000000d0  43 41 4c 4c 28 32 29 20  65 74 63 2e 0d 00 28 04  |CALL(2) etc...(.|
000000e0  0d 00 32 45 ee 20 85 20  65 72 72 66 6c 61 67 3d  |..2E. . errflag=|
000000f0  a4 65 72 72 6f 72 3a e7  20 65 72 72 66 6c 61 67  |.error:. errflag|
00000100  3d 31 20 8c 20 e0 3a c8  99 20 22 57 69 6d 70 5f  |=1 . .:.. "Wimp_|
00000110  53 65 74 4d 6f 64 65 22  2c 57 69 6d 70 4d 6f 64  |SetMode",WimpMod|
00000120  65 20 8b 20 f9 0d 00 3c  10 57 69 6d 70 4d 6f 64  |e . ...<.WimpMod|
00000130  65 20 3d 20 eb 0d 00 46  04 0d 00 50 11 de 20 4f  |e = ...F...P.. O|
00000140  53 62 75 66 66 65 72 20  31 30 0d 00 5a 35 c8 99  |Sbuffer 10..Z5..|
00000150  20 22 58 4f 53 5f 52 65  61 64 56 61 72 56 61 6c  | "XOS_ReadVarVal|
00000160  22 2c 22 41 6c 70 73 24  53 68 6f 77 41 64 64 72  |","Alps$ShowAddr|
00000170  65 73 73 22 2c 4f 53 62  75 66 66 65 72 2c 38 0d  |ess",OSbuffer,8.|
00000180  00 64 18 e7 20 3f 4f 53  62 75 66 66 65 72 20 3d  |.d.. ?OSbuffer =|
00000190  20 97 22 31 22 20 8c 0d  00 6e 0f 20 20 20 73 68  | ."1" ...n.   sh|
000001a0  6f 77 69 74 3d b9 0d 00  78 05 cc 0d 00 82 0f 20  |owit=...x...... |
000001b0  20 20 73 68 6f 77 69 74  3d a3 0d 00 8c 05 cd 0d  |  showit=.......|
000001c0  00 96 36 c8 99 20 22 58  4f 53 5f 52 65 61 64 56  |..6.. "XOS_ReadV|
000001d0  61 72 56 61 6c 22 2c 22  41 6c 70 73 24 4e 6f 4d  |arVal","Alps$NoM|
000001e0  6f 75 73 65 49 6e 70 75  74 22 2c 4f 53 62 75 66  |ouseInput",OSbuf|
000001f0  66 65 72 2c 38 0d 00 a0  18 e7 20 3f 4f 53 62 75  |fer,8..... ?OSbu|
00000200  66 66 65 72 20 3d 20 97  22 31 22 20 8c 0d 00 aa  |ffer = ."1" ....|
00000210  15 20 20 20 6c 6f 61 64  5f 62 75 74 74 6f 6e 73  |.   load_buttons|
00000220  3d a3 0d 00 b4 05 cc 0d  00 be 15 20 20 20 6c 6f  |=..........   lo|
00000230  61 64 5f 62 75 74 74 6f  6e 73 3d b9 0d 00 c8 05  |ad_buttons=.....|
00000240  cd 0d 00 d2 04 0d 00 dc  04 0d 00 e6 2c f2 73 65  |............,.se|
00000250  74 5f 50 72 65 66 73 3a  f4 20 73 65 74 20 70 72  |t_Prefs:. set pr|
00000260  65 66 65 72 65 6e 63 65  73 20 28 6d 6f 64 65 20  |eferences (mode |
00000270  65 74 63 2e 29 0d 00 f0  17 f2 67 65 74 6d 6f 64  |etc.).....getmod|
00000280  65 69 6e 66 6f 28 6d 6f  64 65 25 29 0d 00 fa 0a  |einfo(mode%)....|
00000290  f2 69 6e 69 74 32 0d 01  04 04 0d 01 0e 0c 2a 46  |.init2........*F|
000002a0  58 32 30 30 2c 31 0d 01  18 04 0d 01 22 0e e7 20  |X200,1......".. |
000002b0  73 68 6f 77 69 74 20 8c  0d 01 2c 07 ef 20 37 0d  |showit ...,.. 7.|
000002c0  01 36 26 f1 22 55 73 65  72 20 63 6f 64 65 20 61  |.6&."User code a|
000002d0  64 64 72 65 73 73 3d 20  22 3b 75 73 65 72 63 6f  |ddress= ";userco|
000002e0  64 65 25 3a fa 0d 01 40  05 cd 0d 01 4a 04 0d 01  |de%:...@....J...|
000002f0  54 29 6f 70 74 69 6f 6e  6e 61 6d 65 24 3d 22 3c  |T)optionname$="<|
00000300  41 6c 70 73 47 61 6d 65  24 44 61 74 61 3e 2e 4f  |AlpsGame$Data>.O|
00000310  70 74 69 6f 6e 73 22 0d  01 5e 19 62 61 72 66 67  |ptions"..^.barfg|
00000320  63 6f 6c 3d 30 3a 62 61  72 62 67 63 6f 6c 3d 31  |col=0:barbgcol=1|
00000330  0d 01 68 04 0d 01 72 25  de 20 6b 65 79 24 28 31  |..h...r%. key$(1|
00000340  33 29 3a f4 20 46 75 6e  63 74 69 6f 6e 20 6b 65  |3):. Function ke|
00000350  79 20 73 74 72 69 6e 67  73 0d 01 7c 28 de 20 62  |y strings..|(. b|
00000360  61 72 79 28 33 2c 32 29  3a f4 20 72 67 62 20 62  |ary(3,2):. rgb b|
00000370  61 72 20 67 72 61 70 68  20 79 20 63 6f 6f 72 64  |ar graph y coord|
00000380  73 0d 01 86 04 0d 01 90  1b 61 72 65 61 5f 73 69  |s........area_si|
00000390  7a 65 25 3d 73 63 72 6e  73 69 7a 65 2b 31 30 30  |ze%=scrnsize+100|
000003a0  0d 01 9a 04 0d 01 a4 32  de 20 61 72 65 61 25 20  |.......2. area% |
000003b0  61 72 65 61 5f 73 69 7a  65 25 3a f4 20 53 70 72  |area_size%:. Spr|
000003c0  69 74 65 20 61 72 65 61  20 28 66 6f 72 20 73 63  |ite area (for sc|
000003d0  72 65 65 6e 73 29 0d 01  ae 04 0d 01 b8 0f e3 20  |reens)......... |
000003e0  62 61 72 3d 31 20 b8 20  33 0d 01 c2 3c 20 20 f3  |bar=1 . 3...<  .|
000003f0  20 62 61 72 79 28 62 61  72 2c 31 29 2c 62 61 72  | bary(bar,1),bar|
00000400  79 28 62 61 72 2c 32 29  3a f4 20 72 65 61 64 20  |y(bar,2):. read |
00000410  62 6f 74 74 6f 6d 20 61  6e 64 20 74 6f 70 20 63  |bottom and top c|
00000420  6f 6f 72 64 73 0d 01 cc  09 ed 20 62 61 72 0d 01  |oords..... bar..|
00000430  d6 04 0d 01 e0 1d dc 20  34 34 35 2c 34 37 37 2c  |....... 445,477,|
00000440  33 38 36 2c 34 31 38 2c  33 32 37 2c 33 35 39 0d  |386,418,327,359.|
00000450  01 ea 04 0d 01 f4 04 0d  01 fe 0f f4 20 50 49 43  |............ PIC|
00000460  43 59 6c 6f 61 64 0d 02  08 04 0d 02 12 31 74 65  |CYload.......1te|
00000470  73 74 31 20 3d 20 8e 28  22 3c 41 6c 70 73 24 50  |st1 = .("<Alps$P|
00000480  69 63 74 75 72 65 73 3e  4c 6f 61 64 65 72 50 69  |ictures>LoaderPi|
00000490  63 22 29 3a d9 23 74 65  73 74 31 0d 02 1c 10 e7  |c"):.#test1.....|
000004a0  20 74 65 73 74 31 3c 3e  30 20 8c 0d 02 26 2e ff  | test1<>0 ...&..|
000004b0  28 22 53 43 52 45 45 4e  4c 4f 41 44 20 3c 41 6c  |("SCREENLOAD <Al|
000004c0  70 73 24 50 69 63 74 75  72 65 73 3e 4c 6f 61 64  |ps$Pictures>Load|
000004d0  65 72 50 69 63 22 29 3a  87 0d 02 30 11 d1 3d 30  |erPic"):...0..=0|
000004e0  3a f5 20 fd 20 91 3e 39  30 30 0d 02 3a 05 cd 0d  |:. . .>900..:...|
000004f0  02 44 04 0d 02 4e 0d eb  20 6d 6f 64 65 25 3a 87  |.D...N.. mode%:.|
00000500  0d 02 58 04 0d 02 62 22  f4 20 2d 2d 2d 2d 2d 20  |..X...b". ----- |
00000510  33 30 2e 30 35 2e 39 30  2f 36 2e 30 36 2e 39 31  |30.05.90/6.06.91|
00000520  20 2d 2d 2d 2d 2d 0d 02  6c 17 e7 20 6d 6f 64 65  | -----..l.. mode|
00000530  25 3c 3e 57 69 6d 70 4d  6f 64 65 20 8c 0d 02 76  |%<>WimpMode ...v|
00000540  1b c8 99 20 22 57 69 6d  70 5f 53 65 74 4d 6f 64  |... "Wimp_SetMod|
00000550  65 22 2c 6d 6f 64 65 25  0d 02 80 18 c8 99 20 22  |e",mode%...... "|
00000560  57 69 6d 70 5f 49 6e 69  74 69 61 6c 69 73 65 22  |Wimp_Initialise"|
00000570  0d 02 8a 05 cd 0d 02 94  1a f4 20 2d 2d 2d 2d 2d  |.......... -----|
00000580  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00000590  02 9e 04 0d 02 a8 29 f2  6c 6f 61 64 5f 70 61 6c  |......).load_pal|
000005a0  28 22 3c 41 6c 70 73 47  61 6d 65 24 44 61 74 61  |("<AlpsGame$Data|
000005b0  3e 2e 21 50 61 6c 65 74  74 65 22 29 0d 02 b2 22  |>.!Palette")..."|
000005c0  2a 50 52 49 4e 54 20 3c  41 6c 70 73 47 61 6d 65  |*PRINT <AlpsGame|
000005d0  24 44 61 74 61 3e 2e 63  68 61 72 73 65 74 0d 02  |$Data>.charset..|
000005e0  bc 04 0d 02 c6 13 f4 20  4c 6f 61 64 20 62 75 74  |....... Load but|
000005f0  74 6f 6e 73 3f 0d 02 d0  14 e7 20 6c 6f 61 64 5f  |tons?..... load_|
00000600  62 75 74 74 6f 6e 73 20  8c 0d 02 da 05 db 0d 02  |buttons ........|
00000610  e4 35 ff 20 22 4c 4f 41  44 20 3c 41 6c 70 73 47  |.5. "LOAD <AlpsG|
00000620  61 6d 65 24 52 65 73 6f  75 72 63 65 73 3e 62 75  |ame$Resources>bu|
00000630  74 74 6f 6e 73 20 22 2b  c3 7e 28 61 72 65 61 25  |ttons "+.~(area%|
00000640  2b 34 29 0d 02 ee 15 21  61 72 65 61 25 3d 61 72  |+4)....!area%=ar|
00000650  65 61 5f 73 69 7a 65 25  0d 02 f8 40 c8 99 20 22  |ea_size%...@.. "|
00000660  57 69 6d 70 5f 52 65 61  64 50 69 78 54 72 61 6e  |Wimp_ReadPixTran|
00000670  73 22 2c 26 32 30 30 2c  61 72 65 61 25 2c 61 72  |s",&200,area%,ar|
00000680  65 61 25 2b 31 36 2c 30  2c 30 2c 30 2c 73 63 61  |ea%+16,0,0,0,sca|
00000690  6c 65 2c 70 69 78 74 72  0d 03 02 3a c8 99 20 22  |le,pixtr...:.. "|
000006a0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 32 33  |OS_SpriteOp",&23|
000006b0  34 2c 61 72 65 61 25 2c  61 72 65 61 25 2b 31 36  |4,area%,area%+16|
000006c0  2c 30 2c 30 2c 38 2c 73  63 61 6c 65 2c 70 69 78  |,0,0,8,scale,pix|
000006d0  74 72 0d 03 0c 21 ef 32  38 2c 30 2c 74 65 78 74  |tr...!.28,0,text|
000006e0  72 6f 77 73 25 2d 35 2c  74 65 78 74 63 6f 6c 73  |rows%-5,textcols|
000006f0  25 2c 30 0d 03 16 05 cc  0d 03 20 05 db 0d 03 2a  |%,0....... ....*|
00000700  1f ef 32 38 2c 30 2c 74  65 78 74 72 6f 77 73 25  |..28,0,textrows%|
00000710  2c 74 65 78 74 63 6f 6c  73 25 2c 30 0d 03 34 05  |,textcols%,0..4.|
00000720  cd 0d 03 3e 04 0d 03 48  04 0d 03 52 0b 2a 46 58  |...>...H...R.*FX|
00000730  31 35 2c 30 0d 03 5c 14  e7 20 6c 6f 61 64 5f 62  |15,0..\.. load_b|
00000740  75 74 74 6f 6e 73 20 8c  0d 03 66 0f 20 20 20 2a  |uttons ...f.   *|
00000750  50 4f 49 4e 54 45 52 0d  03 70 0b 20 20 20 c8 97  |POINTER..p.   ..|
00000760  20 ee 0d 03 7a 12 20 20  20 c8 97 20 b8 20 35 35  | ...z.   .. . 55|
00000770  30 2c 34 38 0d 03 84 05  cd 0d 03 8e 04 0d 03 98  |0,48............|
00000780  1d e7 20 ac 20 75 73 65  5f 66 6b 65 79 73 20 8c  |.. . use_fkeys .|
00000790  20 ef 20 34 3a e5 8d 64  70 45 0d 03 a2 04 0d 03  | . 4:..dpE......|
000007a0  ac 16 69 6e 25 3d 8e 28  6f 70 74 69 6f 6e 6e 61  |..in%=.(optionna|
000007b0  6d 65 24 29 0d 03 b6 0c  63 68 6f 69 63 65 3d a3  |me$)....choice=.|
000007c0  0d 03 c0 20 e7 20 69 6e  25 3c 3e 30 20 8c 20 63  |... . in%<>0 . c|
000007d0  68 6f 69 63 65 3d a4 6c  6f 61 64 28 69 6e 25 29  |hoice=.load(in%)|
000007e0  0d 03 ca 13 e7 20 63 68  6f 69 63 65 20 e5 20 8d  |..... choice . .|
000007f0  64 70 45 0d 03 d4 04 0d  03 de 06 ef 34 0d 03 e8  |dpE.........4...|
00000800  05 f5 0d 03 f2 29 c8 99  20 22 57 69 6d 70 5f 53  |.....).. "Wimp_S|
00000810  65 74 43 6f 6c 6f 75 72  22 2c 31 33 31 3a f2 63  |etColour",131:.c|
00000820  6f 6c 28 31 33 35 29 3a  db 3a ee 0d 03 fc 2f f2  |ol(135):.:..../.|
00000830  63 6f 6c 28 31 31 29 3a  f1 8a 32 38 2c 31 29 22  |col(11):..28,1)"|
00000840  46 55 4e 43 54 49 4f 4e  20 4b 45 59 20 44 45 46  |FUNCTION KEY DEF|
00000850  49 4e 49 54 49 4f 4e 53  22 27 0d 04 06 0c f2 63  |INITIONS"'.....c|
00000860  6f 6c 28 31 35 29 0d 04  10 73 6d 24 3d 22 59 6f  |ol(15)...sm$="Yo|
00000870  75 20 6d 61 79 20 65 6e  74 65 72 20 75 70 20 74  |u may enter up t|
00000880  6f 20 74 77 65 6c 76 65  20 65 78 74 72 61 20 63  |o twelve extra c|
00000890  6f 6d 6d 61 6e 64 20 73  74 72 69 6e 67 73 20 74  |ommand strings t|
000008a0  6f 20 62 65 20 6f 70 65  72 61 74 65 64 20 62 79  |o be operated by|
000008b0  20 74 68 65 20 41 72 63  68 69 6d 65 64 65 73 20  | the Archimedes |
000008c0  66 75 6e 63 74 69 6f 6e  20 6b 65 79 73 20 46 31  |function keys F1|
000008d0  20 74 6f 20 46 31 32 2e  22 0d 04 1a 14 e7 20 6c  | to F12."..... l|
000008e0  6f 61 64 5f 62 75 74 74  6f 6e 73 20 8c 0d 04 24  |oad_buttons ...$|
000008f0  65 20 20 20 6d 24 2b 3d  22 20 54 68 65 73 65 20  |e   m$+=" These |
00000900  63 6f 6d 6d 61 6e 64 20  73 74 72 69 6e 67 73 20  |command strings |
00000910  61 72 65 20 69 6e 20 61  64 64 69 74 69 6f 6e 20  |are in addition |
00000920  74 6f 20 74 68 65 20 63  6f 6d 6d 61 6e 64 73 20  |to the commands |
00000930  61 6c 6f 6e 67 20 74 68  65 20 27 62 75 74 74 6f  |along the 'butto|
00000940  6e 20 63 6f 6e 73 6f 6c  65 27 20 62 65 6c 6f 77  |n console' below|
00000950  2e 22 0d 04 2e 05 cd 0d  04 38 04 0d 04 42 1a c8  |.".......8...B..|
00000960  99 20 22 4f 53 5f 50 72  65 74 74 79 50 72 69 6e  |. "OS_PrettyPrin|
00000970  74 22 2c 6d 24 0d 04 4c  06 f1 27 0d 04 56 6e c8  |t",m$..L..'..Vn.|
00000980  99 20 22 4f 53 5f 50 72  65 74 74 79 50 72 69 6e  |. "OS_PrettyPrin|
00000990  74 22 2c 22 4e 6f 74 65  20 74 68 61 74 20 79 6f  |t","Note that yo|
000009a0  75 20 63 61 6e 20 75 73  65 20 27 7c 4d 27 20 74  |u can use '|M' t|
000009b0  6f 20 73 69 6d 75 6c 61  74 65 20 61 20 3c 52 45  |o simulate a <RE|
000009c0  54 55 52 4e 3e 20 6b 65  79 20 62 65 69 6e 67 20  |TURN> key being |
000009d0  70 72 65 73 73 65 64 20  69 6e 20 79 6f 75 72 20  |pressed in your |
000009e0  63 6f 6d 6d 61 6e 64 2e  22 0d 04 60 04 0d 04 6a  |command."..`...j|
000009f0  07 20 20 f1 0d 04 74 0d  20 20 2a 46 58 32 31 2c  |.  ...t.  *FX21,|
00000a00  30 0d 04 7e 04 0d 04 88  12 20 20 e3 20 6b 65 79  |0..~.....  . key|
00000a10  3d 31 20 b8 20 31 32 0d  04 92 10 20 20 20 20 f2  |=1 . 12....    .|
00000a20  63 6f 6c 28 31 34 29 0d  04 9c 2b 20 20 20 20 f1  |col(14)...+    .|
00000a30  8a 32 2c 6b 65 79 2b 31  30 29 3b 22 53 74 72 69  |.2,key+10);"Stri|
00000a40  6e 67 20 66 6f 72 20 46  22 3b 6b 65 79 3b 22 3a  |ng for F";key;":|
00000a50  22 3b 0d 04 a6 10 20 20  20 20 f2 63 6f 6c 28 31  |";....    .col(1|
00000a60  32 29 0d 04 b0 38 20 20  20 20 6b 65 79 24 28 6b  |2)...8    key$(k|
00000a70  65 79 29 3d a4 65 6e 74  65 72 5f 77 6f 72 64 28  |ey)=.enter_word(|
00000a80  36 30 2c 22 20 22 2c c4  36 30 2c 22 20 22 29 2c  |60," ",.60," "),|
00000a90  31 37 2c 6b 65 79 2b 31  30 29 0d 04 ba 43 20 20  |17,key+10)...C  |
00000aa0  20 20 f4 20 3e 3e 3e 3e  3e 3e 3e 3e 20 73 63 72  |  . >>>>>>>> scr|
00000ab0  61 70 20 61 6c 6c 20 74  68 65 20 73 70 61 63 65  |ap all the space|
00000ac0  73 20 6f 6e 20 74 68 65  20 72 68 73 20 62 61 72  |s on the rhs bar|
00000ad0  20 6f 6e 65 20 3c 3c 3c  3c 3c 3c 3c 3c 0d 04 c4  | one <<<<<<<<...|
00000ae0  1c 20 20 20 20 c8 95 20  c2 6b 65 79 24 28 6b 65  |.    .. .key$(ke|
00000af0  79 29 2c 31 29 3d 22 20  22 0d 04 ce 30 20 20 20  |y),1)=" "...0   |
00000b00  20 20 20 20 6b 65 79 24  28 6b 65 79 29 3d c0 6b  |    key$(key)=.k|
00000b10  65 79 24 28 6b 65 79 29  2c 20 a9 28 6b 65 79 24  |ey$(key), .(key$|
00000b20  28 6b 65 79 29 29 2d 31  29 0d 04 d8 09 20 20 20  |(key))-1)....   |
00000b30  20 ce 0d 04 e2 23 20 20  20 20 6b 65 79 24 28 6b  | ....#    key$(k|
00000b40  65 79 29 20 3d 20 6b 65  79 24 28 6b 65 79 29 20  |ey) = key$(key) |
00000b50  2b 20 22 20 22 0d 04 ec  23 20 20 20 20 ff 28 22  |+ " "...#    .("|
00000b60  4b 45 59 22 2b c3 6b 65  79 2b 22 20 22 2b 6b 65  |KEY"+.key+" "+ke|
00000b70  79 24 28 6b 65 79 29 29  0d 04 f6 0b 20 20 ed 20  |y$(key))....  . |
00000b80  6b 65 79 0d 05 00 04 0d  05 0a 07 20 20 87 0d 05  |key........  ...|
00000b90  14 16 20 20 e7 20 6c 6f  61 64 5f 62 75 74 74 6f  |..  . load_butto|
00000ba0  6e 73 20 8c 0d 05 1e 35  20 20 20 20 20 f4 20 53  |ns ....5     . S|
00000bb0  59 53 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |YS "OS_SpriteOp"|
00000bc0  2c 35 34 36 2c 61 72 65  61 25 2c 61 72 65 61 25  |,546,area%,area%|
00000bd0  2b 31 36 2c 30 2c 30 2c  38 0d 05 28 3f 20 20 20  |+16,0,0,8..(?   |
00000be0  20 20 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |  .. "OS_SpriteO|
00000bf0  70 22 2c 26 32 33 34 2c  61 72 65 61 25 2c 61 72  |p",&234,area%,ar|
00000c00  65 61 25 2b 31 36 2c 30  2c 30 2c 38 2c 73 63 61  |ea%+16,0,0,8,sca|
00000c10  6c 65 2c 70 69 78 74 72  0d 05 32 43 20 20 20 20  |le,pixtr..2C    |
00000c20  20 6d 73 67 24 3d 22 49  73 20 74 68 69 73 20 4f  | msg$="Is this O|
00000c30  4b 3f 20 43 6c 69 63 6b  20 27 59 45 53 27 20 6f  |K? Click 'YES' o|
00000c40  72 20 27 4e 4f 27 20 6f  72 20 70 72 65 73 73 20  |r 'NO' or press |
00000c50  27 59 27 20 6f 72 20 27  4e 27 22 0d 05 3c 07 20  |'Y' or 'N'"..<. |
00000c60  20 cc 0d 05 46 28 20 20  20 20 20 6d 73 67 24 3d  | ...F(     msg$=|
00000c70  22 49 73 20 74 68 69 73  20 4f 4b 3f 20 50 72 65  |"Is this OK? Pre|
00000c80  73 73 20 59 20 6f 72 20  4e 22 0d 05 50 07 20 20  |ss Y or N"..P.  |
00000c90  cd 0d 05 5a 16 20 20 f2  63 6f 6c 28 31 31 29 3a  |...Z.  .col(11):|
00000ca0  f1 27 27 6d 73 67 24 0d  05 64 0b 20 20 6b 65 79  |.''msg$..d.  key|
00000cb0  3d 30 0d 05 6e 04 0d 05  78 1b 20 20 f5 3a c8 97  |=0..n...x.  .:..|
00000cc0  20 58 25 2c 59 25 2c 42  25 3a 41 24 3d bf 28 30  | X%,Y%,B%:A$=.(0|
00000cd0  29 0d 05 82 1f 20 20 e7  20 41 24 3d 22 59 22 20  |)....  . A$="Y" |
00000ce0  84 20 41 24 3d 22 79 22  20 8c 20 6b 65 79 3d 37  |. A$="y" . key=7|
00000cf0  0d 05 8c 1f 20 20 e7 20  41 24 3d 22 4e 22 20 84  |....  . A$="N" .|
00000d00  20 41 24 3d 22 6e 22 20  8c 20 6b 65 79 3d 38 0d  | A$="n" . key=8.|
00000d10  05 96 40 20 20 20 20 e7  20 42 25 3d 34 20 80 20  |..@    . B%=4 . |
00000d20  6c 6f 61 64 5f 62 75 74  74 6f 6e 73 3a f2 69 6e  |load_buttons:.in|
00000d30  28 58 25 2c 59 25 2c 6b  65 79 29 3a f5 3a c8 97  |(X%,Y%,key):.:..|
00000d40  58 25 2c 59 25 2c 42 25  3a fd 20 42 25 3d 30 0d  |X%,Y%,B%:. B%=0.|
00000d50  05 a0 15 20 20 fd 20 6b  65 79 3d 37 20 84 20 6b  |...  . key=7 . k|
00000d60  65 79 3d 38 0d 05 aa 04  0d 05 b4 0b fd 20 6b 65  |ey=8......... ke|
00000d70  79 3d 37 0d 05 be 04 0d  05 c8 05 db 0d 05 d2 51  |y=7............Q|
00000d80  f2 57 72 69 74 65 4f 75  74 46 69 6c 65 3a f2 63  |.WriteOutFile:.c|
00000d90  6f 6c 28 30 29 3a f1 27  27 22 54 68 65 73 65 20  |ol(0):.''"These |
00000da0  66 75 6e 63 74 69 6f 6e  20 6b 65 79 73 20 68 61  |function keys ha|
00000db0  76 65 20 62 65 65 6e 20  73 61 76 65 64 20 66 6f  |ve been saved fo|
00000dc0  72 20 66 75 74 75 72 65  20 75 73 65 22 0d 05 dc  |r future use"...|
00000dd0  04 0d 05 e6 0c 41 3d a6  28 32 30 30 29 0d 05 f0  |.....A=.(200)...|
00000de0  19 ef 20 32 34 2c 30 3b  31 34 34 3b 73 63 72 77  |.. 24,0;144;scrw|
00000df0  3b 73 63 72 68 3b 0d 05  fa 31 f2 63 6f 6c 28 31  |;scrh;...1.col(1|
00000e00  33 31 29 3a c8 99 20 22  57 69 6d 70 5f 53 65 74  |31):.. "Wimp_Set|
00000e10  43 6f 6c 6f 75 72 22 2c  31 33 31 3a da 3a db 3a  |Colour",131:.:.:|
00000e20  f2 63 6f 6c 28 33 29 0d  06 04 04 0d 06 0e 04 0d  |.col(3).........|
00000e30  06 18 0f f2 6c 6f 61 64  5f 66 69 6c 65 73 0d 06  |....load_files..|
00000e40  22 0c 2a 46 58 32 32 35  2c 31 0d 06 2c 08 f2 72  |".*FX225,1..,..r|
00000e50  75 6e 0d 06 36 0c 2a 46  58 32 30 30 2c 30 0d 06  |un..6.*FX200,0..|
00000e60  40 0a ef 20 32 36 3a db  0d 06 4a 07 ef 20 34 0d  |@.. 26:...J.. 4.|
00000e70  06 54 44 e7 20 6d 6f 64  65 25 3c 3e 57 69 6d 70  |.TD. mode%<>Wimp|
00000e80  4d 6f 64 65 20 8c 20 c8  99 20 22 57 69 6d 70 5f  |Mode . .. "Wimp_|
00000e90  53 65 74 4d 6f 64 65 22  2c 57 69 6d 70 4d 6f 64  |SetMode",WimpMod|
00000ea0  65 3a f4 20 33 30 2e 30  35 2e 39 30 2f 36 2e 36  |e:. 30.05.90/6.6|
00000eb0  2e 39 31 0d 06 5e 1a f1  22 41 64 76 65 6e 74 75  |.91..^.."Adventu|
00000ec0  72 65 20 66 69 6e 69 73  68 65 64 2e 22 0d 06 68  |re finished."..h|
00000ed0  05 e0 0d 06 72 04 0d 06  7c 16 dd 20 f2 69 6e 28  |....r...|.. .in(|
00000ee0  58 25 2c 59 25 2c f8 20  63 6f 6d 29 0d 06 86 10  |X%,Y%,. com)....|
00000ef0  63 6f 6d 3d 30 3a 72 6f  77 3d 39 39 0d 06 90 1a  |com=0:row=99....|
00000f00  e7 20 59 25 3e 37 39 20  80 20 59 25 3c 31 32 35  |. Y%>79 . Y%<125|
00000f10  20 72 6f 77 3d 31 0d 06  9a 18 e7 20 59 25 3e 30  | row=1..... Y%>0|
00000f20  20 80 20 59 25 3c 35 31  20 72 6f 77 3d 30 0d 06  | . Y%<51 row=0..|
00000f30  a4 1f 63 6f 6c 3d 28 58  25 2d 6d 69 6e 78 29 20  |..col=(X%-minx) |
00000f40  81 20 28 77 69 64 74 68  29 20 2b 20 31 0d 06 ae  |. (width) + 1...|
00000f50  26 e7 20 63 6f 6c 3c 3d  72 6f 77 6c 65 6e 20 8c  |&. col<=rowlen .|
00000f60  20 63 6f 6d 3d 63 6f 6c  2b 72 6f 77 6c 65 6e 2a  | com=col+rowlen*|
00000f70  72 6f 77 0d 06 b8 05 e1  0d 06 c2 04 0d 06 cc 10  |row.............|
00000f80  dd 20 a4 6c 6f 61 64 28  69 6e 25 29 0d 06 d6 06  |. .load(in%)....|
00000f90  ef 34 0d 06 e0 49 f2 63  6f 6c 28 37 29 3a f2 63  |.4...I.col(7):.c|
00000fa0  6f 6c 28 31 33 31 29 3a  db 3a f1 8a 30 2c 35 29  |ol(131):.:..0,5)|
00000fb0  3b 22 20 4c 6f 61 64 20  79 6f 75 72 20 73 61 76  |;" Load your sav|
00000fc0  65 64 20 66 75 6e 63 74  69 6f 6e 20 6b 65 79 20  |ed function key |
00000fd0  73 65 74 74 69 6e 67 73  3f 20 22 0d 06 ea 14 e7  |settings? ".....|
00000fe0  20 6c 6f 61 64 5f 62 75  74 74 6f 6e 73 20 8c 0d  | load_buttons ..|
00000ff0  06 f4 37 20 20 20 6d 73  67 24 3d 22 43 6c 69 63  |..7   msg$="Clic|
00001000  6b 20 27 59 45 53 27 20  6f 72 20 27 4e 4f 27 2c  |k 'YES' or 'NO',|
00001010  20 6f 72 20 70 72 65 73  73 20 27 59 27 20 6f 72  | or press 'Y' or|
00001020  20 27 4e 27 2e 22 0d 06  fe 05 cc 0d 07 08 1f 20  | 'N'."......... |
00001030  20 20 6d 73 67 24 3d 22  50 72 65 73 73 20 27 59  |  msg$="Press 'Y|
00001040  27 20 6f 72 20 27 4e 27  2e 22 0d 07 12 05 cd 0d  |' or 'N'."......|
00001050  07 1c 0c f1 27 27 27 6d  73 67 24 0d 07 26 09 6b  |....'''msg$..&.k|
00001060  65 79 3d 30 0d 07 30 05  f5 0d 07 3a 19 20 20 c8  |ey=0..0....:.  .|
00001070  97 20 58 25 2c 59 25 2c  42 25 3a 41 24 3d bf 28  |. X%,Y%,B%:A$=.(|
00001080  30 29 0d 07 44 1f 20 20  e7 20 41 24 3d 22 59 22  |0)..D.  . A$="Y"|
00001090  20 84 20 41 24 3d 22 79  22 20 8c 20 6b 65 79 3d  | . A$="y" . key=|
000010a0  37 0d 07 4e 1f 20 20 e7  20 41 24 3d 22 4e 22 20  |7..N.  . A$="N" |
000010b0  84 20 41 24 3d 22 6e 22  20 8c 20 6b 65 79 3d 38  |. A$="n" . key=8|
000010c0  0d 07 58 2a 20 20 e7 20  42 25 3d 34 20 80 20 6c  |..X*  . B%=4 . l|
000010d0  6f 61 64 5f 62 75 74 74  6f 6e 73 3a f2 69 6e 28  |oad_buttons:.in(|
000010e0  58 25 2c 59 25 2c 6b 65  79 29 0d 07 62 13 fd 20  |X%,Y%,key)..b.. |
000010f0  6b 65 79 3d 37 20 84 20  6b 65 79 3d 38 0d 07 6c  |key=7 . key=8..l|
00001100  2a e7 20 6b 65 79 3d 37  20 f2 52 65 61 64 49 6e  |*. key=7 .ReadIn|
00001110  46 69 6c 65 28 69 6e 25  29 3a 3d b9 20 8b 20 d9  |File(in%):=. . .|
00001120  23 69 6e 25 3a 3d a3 0d  07 76 04 0d 07 80 18 dd  |#in%:=...v......|
00001130  20 f2 52 65 61 64 49 6e  46 69 6c 65 28 63 68 61  | .ReadInFile(cha|
00001140  6e 25 29 0d 07 8a 04 0d  07 94 0f e3 20 4b 25 3d  |n%)......... K%=|
00001150  31 20 b8 20 31 32 0d 07  9e 16 20 20 e8 23 63 68  |1 . 12....  .#ch|
00001160  61 6e 25 2c 6b 65 79 24  28 4b 25 29 0d 07 a8 22  |an%,key$(K%)..."|
00001170  20 20 ff 28 22 4b 45 59  20 22 2b c3 28 4b 25 29  |  .("KEY "+.(K%)|
00001180  2b 22 20 22 2b 6b 65 79  24 28 4b 25 29 29 0d 07  |+" "+key$(K%))..|
00001190  b2 05 ed 0d 07 bc 04 0d  07 c6 0c d9 20 23 63 68  |............ #ch|
000011a0  61 6e 25 0d 07 d0 05 e1  0d 07 da 04 0d 07 e4 13  |an%.............|
000011b0  dd 20 f2 57 72 69 74 65  4f 75 74 46 69 6c 65 0d  |. .WriteOutFile.|
000011c0  07 ee 04 0d 07 f8 17 63  68 61 6e 25 3d ae 20 6f  |.......chan%=. o|
000011d0  70 74 69 6f 6e 6e 61 6d  65 24 0d 08 02 04 0d 08  |ptionname$......|
000011e0  0c 0f e3 20 4b 25 3d 31  20 b8 20 31 32 0d 08 16  |... K%=1 . 12...|
000011f0  16 20 20 f1 23 63 68 61  6e 25 2c 6b 65 79 24 28  |.  .#chan%,key$(|
00001200  4b 25 29 0d 08 20 05 ed  0d 08 2a 04 0d 08 34 0b  |K%).. ....*...4.|
00001210  d9 23 63 68 61 6e 25 0d  08 3e 05 e1 0d 08 48 04  |.#chan%..>....H.|
00001220  0d 08 52 04 0d 08 5c 0c  dd 20 a4 65 72 72 6f 72  |..R...\.. .error|
00001230  0d 08 66 0e 2a 50 4f 49  4e 54 45 52 20 31 0d 08  |..f.*POINTER 1..|
00001240  70 0a c8 97 20 ee 20 31  0d 08 7a 04 0d 08 84 23  |p... . 1..z....#|
00001250  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 6f 6c 6f  |.. "Wimp_SetColo|
00001260  75 72 22 2c 31 3a 77 69  64 74 68 3d 37 30 30 0d  |ur",1:width=700.|
00001270  08 8e 25 72 65 70 6f 72  74 77 69 64 74 68 3d 28  |..%reportwidth=(|
00001280  a9 28 f6 24 29 2b a9 28  c3 28 9e 29 29 2b 31 32  |.(.$)+.(.(.))+12|
00001290  29 2a 31 36 0d 08 98 2b  e7 20 77 69 64 74 68 3c  |)*16...+. width<|
000012a0  72 65 70 6f 72 74 77 69  64 74 68 20 8c 20 77 69  |reportwidth . wi|
000012b0  64 74 68 3d 72 65 70 6f  72 74 77 69 64 74 68 0d  |dth=reportwidth.|
000012c0  08 a2 1b c8 93 20 c8 90  20 32 30 30 2c 33 30 30  |..... .. 200,300|
000012d0  2c 77 69 64 74 68 2c 32  30 34 0d 08 ac 1b c8 97  |,width,204......|
000012e0  20 c8 93 20 32 30 30 2c  33 30 30 2c 77 69 64 74  | .. 200,300,widt|
000012f0  68 2c 32 30 34 0d 08 b6  43 c8 99 20 22 57 69 6d  |h,204...C.. "Wim|
00001300  70 5f 53 65 74 43 6f 6c  6f 75 72 22 2c 37 3a ef  |p_SetColour",7:.|
00001310  20 35 3a ec 20 32 31 36  2c 34 35 30 3a f1 22 53  | 5:. 216,450:."S|
00001320  79 73 74 65 6d 20 72 65  70 6f 72 74 73 20 61 6e  |ystem reports an|
00001330  20 65 72 72 6f 72 3a 22  0d 08 c0 2a ec 20 32 31  | error:"...*. 21|
00001340  36 2c 34 30 30 3a f1 20  f6 24 3b 3a e7 20 9e 3e  |6,400:. .$;:. .>|
00001350  30 20 8c 20 f1 22 20 61  74 20 6c 69 6e 65 20 22  |0 . ." at line "|
00001360  3b 9e 0d 08 ca 5a c8 99  20 22 57 69 6d 70 5f 53  |;....Z.. "Wimp_S|
00001370  65 74 43 6f 6c 6f 75 72  22 2c 33 3a c8 93 20 c8  |etColour",3:.. .|
00001380  90 20 35 36 30 2c 33 32  30 2c 31 34 30 2c 33 32  |. 560,320,140,32|
00001390  3a ec 20 35 36 38 2c 33  34 38 3a c8 99 20 22 57  |:. 568,348:.. "W|
000013a0  69 6d 70 5f 53 65 74 43  6f 6c 6f 75 72 22 2c 37  |imp_SetColour",7|
000013b0  3a f1 22 43 4f 4e 54 49  4e 55 45 22 0d 08 d4 55  |:."CONTINUE"...U|
000013c0  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 6f 6c 6f  |.. "Wimp_SetColo|
000013d0  75 72 22 2c 33 3a c8 93  20 c8 90 20 33 36 30 2c  |ur",3:.. .. 360,|
000013e0  33 32 30 2c 37 36 2c 33  32 3a ec 20 33 36 38 2c  |320,76,32:. 368,|
000013f0  33 34 38 3a c8 99 20 22  57 69 6d 70 5f 53 65 74  |348:.. "Wimp_Set|
00001400  43 6f 6c 6f 75 72 22 2c  37 3a f1 22 51 55 49 54  |Colour",7:."QUIT|
00001410  22 0d 08 de 04 0d 08 e8  0a 66 6c 61 67 3d 30 0d  |"........flag=0.|
00001420  08 f2 05 f5 0d 08 fc 07  20 20 f5 0d 09 06 09 20  |........  ..... |
00001430  20 20 20 f5 0d 09 10 12  20 20 20 20 20 20 c8 97  |   .....      ..|
00001440  20 58 2c 59 2c 42 0d 09  1a 0d 20 20 20 20 fd 20  | X,Y,B....    . |
00001450  42 3d 34 0d 09 24 15 20  20 fd 20 59 3e 33 32 30  |B=4..$.  . Y>320|
00001460  20 80 20 59 3c 33 35 36  0d 09 2e 04 0d 09 38 1c  | . Y<356......8.|
00001470  e7 20 58 3e 35 36 30 20  80 20 58 3c 37 30 30 20  |. X>560 . X<700 |
00001480  8c 20 66 6c 61 67 3d 32  0d 09 42 1c e7 20 58 3e  |. flag=2..B.. X>|
00001490  33 36 30 20 80 20 58 3c  34 33 36 20 8c 20 66 6c  |360 . X<436 . fl|
000014a0  61 67 3d 31 0d 09 4c 04  0d 09 56 15 fd 20 66 6c  |ag=1..L...V.. fl|
000014b0  61 67 3d 31 20 84 20 66  6c 61 67 3d 32 0d 09 60  |ag=1 . flag=2..`|
000014c0  04 0d 09 6a 19 c8 99 20  22 57 69 6d 70 5f 53 65  |...j... "Wimp_Se|
000014d0  74 43 6f 6c 6f 75 72 22  2c 30 0d 09 74 1b c8 93  |tColour",0..t...|
000014e0  20 c8 90 20 32 30 30 2c  33 30 30 2c 77 69 64 74  | .. 200,300,widt|
000014f0  68 2c 32 30 34 0d 09 7e  09 ef 20 34 3a 87 0d 09  |h,204..~.. 4:...|
00001500  88 17 c8 97 20 c8 93 20  30 2c 30 2c 31 32 37 39  |.... .. 0,0,1279|
00001510  2c 31 30 32 33 0d 09 92  04 0d 09 9c 1b e7 20 6c  |,1023......... l|
00001520  6f 61 64 5f 62 75 74 74  6f 6e 73 20 80 20 66 6c  |oad_buttons . fl|
00001530  61 67 3d 32 0d 09 a6 0b  20 20 20 c8 97 20 87 0d  |ag=2....   .. ..|
00001540  09 b0 05 cd 0d 09 ba 04  0d 09 c4 09 3d 66 6c 61  |............=fla|
00001550  67 0d 09 ce 04 0d 09 d8  04 0d 09 e2 0c dd 20 f2  |g............. .|
00001560  69 6e 69 74 32 0d 09 ec  17 c8 99 20 22 57 69 6d  |init2...... "Wim|
00001570  70 5f 43 6c 6f 73 65 44  6f 77 6e 22 0d 09 f6 0b  |p_CloseDown"....|
00001580  6d 69 6e 78 3d 33 32 0d  0a 00 0c 77 69 64 74 68  |minx=32....width|
00001590  3d 38 30 0d 0a 0a 09 79  25 3d 37 32 0d 0a 14 11  |=80....y%=72....|
000015a0  58 25 3d 6d 69 6e 78 3a  59 25 3d 79 25 0d 0a 1e  |X%=minx:Y%=y%...|
000015b0  24 73 70 72 69 74 65 73  3d 32 36 3a f4 20 4e 75  |$sprites=26:. Nu|
000015c0  6d 62 65 72 20 6f 66 20  27 62 75 74 74 6f 6e 73  |mber of 'buttons|
000015d0  27 0d 0a 28 16 72 6f 77  6c 65 6e 3d 73 70 72 69  |'..(.rowlen=spri|
000015e0  74 65 73 20 81 20 32 0d  0a 32 14 58 4c 3d 34 34  |tes . 2..2.XL=44|
000015f0  38 3a 58 52 3d 58 4c 2b  32 35 35 0d 0a 3c 04 0d  |8:XR=XL+255..<..|
00001600  0a 46 27 f4 20 4d 61 6e  69 66 65 73 74 20 63 6f  |.F'. Manifest co|
00001610  6e 73 74 61 6e 74 73 20  66 6f 72 20 74 68 65 20  |nstants for the |
00001620  73 79 73 74 65 6d 0d 0a  50 32 6d 61 78 72 6d 73  |system..P2maxrms|
00001630  3d 31 30 30 30 3a 6d 61  78 6f 62 73 3d 32 35 35  |=1000:maxobs=255|
00001640  3a 6d 61 78 73 77 25 3d  31 30 3a 6d 61 78 74 6f  |:maxsw%=10:maxto|
00001650  6b 65 6e 73 3d 31 32 38  0d 0a 5a 31 6d 61 78 6c  |kens=128..Z1maxl|
00001660  65 6e 3d 31 30 3a f4 20  4d 61 78 69 6d 75 6d 20  |en=10:. Maximum |
00001670  77 6f 72 64 20 6c 65 6e  67 74 68 20 69 6e 20 76  |word length in v|
00001680  6f 63 61 62 75 6c 61 72  79 0d 0a 64 04 0d 0a 6e  |ocabulary..d...n|
00001690  33 f4 20 52 6f 6f 6d 20  61 6e 64 20 6f 62 6a 65  |3. Room and obje|
000016a0  63 74 20 64 61 74 61 20  62 6c 6f 63 6b 20 6c 65  |ct data block le|
000016b0  6e 67 74 68 73 20 28 69  6e 20 62 79 74 65 73 29  |ngths (in bytes)|
000016c0  0d 0a 78 15 72 5f 6c 65  6e 3d 37 34 3a 6f 5f 6c  |..x.r_len=74:o_l|
000016d0  65 6e 3d 31 36 0d 0a 82  04 0d 0a 8c 35 6d 61 78  |en=16.......5max|
000016e0  6d 73 67 3d 36 35 35 33  35 3a 6d 61 78 6f 62 6e  |msg=65535:maxobn|
000016f0  3d 32 35 35 3a 6d 61 78  76 62 6e 3d 32 35 35 3a  |=255:maxvbn=255:|
00001700  6d 61 78 63 6f 6e 73 74  3d 36 35 35 33 35 0d 0a  |maxconst=65535..|
00001710  96 45 6d 61 78 61 64 6a  3d 32 35 35 3a 6d 61 78  |.Emaxadj=255:max|
00001720  70 72 65 70 3d 35 30 3a  6d 61 78 63 6f 6e 6a 3d  |prep=50:maxconj=|
00001730  35 30 3a 6d 61 78 73 70  65 63 3d 31 30 3a 6d 61  |50:maxspec=10:ma|
00001740  78 6e 6f 69 73 65 3d 31  30 3a 6d 61 78 70 69 78  |xnoise=10:maxpix|
00001750  3d 35 30 0d 0a a0 04 0d  0a aa 12 6e 6f 75 6e 5f  |=50........noun_|
00001760  73 69 7a 65 3d 33 30 30  30 0d 0a b4 12 76 65 72  |size=3000....ver|
00001770  62 5f 73 69 7a 65 3d 33  30 30 30 0d 0a be 12 61  |b_size=3000....a|
00001780  64 6a 63 5f 73 69 7a 65  3d 31 30 30 30 0d 0a c8  |djc_size=1000...|
00001790  2e 70 72 65 70 5f 73 69  7a 65 3d 32 30 30 20 3a  |.prep_size=200 :|
000017a0  f4 20 53 69 7a 65 20 6f  66 20 70 72 65 70 6f 73  |. Size of prepos|
000017b0  69 74 69 6f 6e 73 20 6c  69 73 74 0d 0a d2 2e 63  |itions list....c|
000017c0  6f 6e 6a 5f 73 69 7a 65  3d 31 30 30 20 3a f4 20  |onj_size=100 :. |
000017d0  73 69 7a 65 20 6f 66 20  63 6f 6e 6a 75 6e 63 74  |size of conjunct|
000017e0  69 6f 6e 73 20 6c 69 73  74 0d 0a dc 3c 73 70 65  |ions list...<spe|
000017f0  63 5f 73 69 7a 65 3d 31  30 30 20 3a f4 20 73 69  |c_size=100 :. si|
00001800  7a 65 20 6f 66 20 27 73  70 65 63 69 61 6c 73 27  |ze of 'specials'|
00001810  20 6c 69 73 74 20 28 49  54 2c 20 54 48 45 4d 2c  | list (IT, THEM,|
00001820  20 41 4c 4c 29 0d 0a e6  34 6e 6f 69 73 65 5f 73  | ALL)...4noise_s|
00001830  69 7a 65 3d 31 30 30 3a  f4 20 73 69 7a 65 20 6f  |ize=100:. size o|
00001840  66 20 27 6e 6f 69 73 65  27 20 6c 69 73 74 20 28  |f 'noise' list (|
00001850  54 48 45 2c 41 2c 41 4e  29 0d 0a f0 3d 61 72 65  |THE,A,AN)...=are|
00001860  66 5f 73 69 7a 65 3d 32  30 30 30 3a f4 20 73 69  |f_size=2000:. si|
00001870  7a 65 20 6f 66 20 61 64  6a 65 63 74 69 76 65 20  |ze of adjective |
00001880  6f 62 6a 65 63 74 20 72  65 66 65 72 65 6e 63 65  |object reference|
00001890  20 74 61 62 6c 65 0d 0a  fa 39 6e 72 65 66 5f 73  | table...9nref_s|
000018a0  69 7a 65 3d 32 30 30 30  3a f4 20 73 69 7a 65 20  |ize=2000:. size |
000018b0  6f 66 20 6e 6f 75 6e 73  20 6f 62 6a 65 63 74 20  |of nouns object |
000018c0  72 65 66 65 72 65 6e 63  65 20 74 61 62 6c 65 0d  |reference table.|
000018d0  0b 04 2d 70 69 78 5f 73  69 7a 65 3d 31 30 30 30  |..-pix_size=1000|
000018e0  3a f4 20 73 69 7a 65 20  6f 66 20 70 69 78 20 66  |:. size of pix f|
000018f0  69 6c 65 6e 61 6d 65 20  6c 69 73 74 0d 0b 0e 04  |ilename list....|
00001900  0d 0b 18 40 c8 99 20 22  4f 53 5f 46 69 6c 65 22  |...@.. "OS_File"|
00001910  2c 35 2c 22 3c 41 6c 70  73 47 61 6d 65 24 44 61  |,5,"<AlpsGame$Da|
00001920  74 61 3e 2e 50 72 6f 67  72 61 6d 22 20 b8 20 66  |ta>.Program" . f|
00001930  74 79 70 65 2c 2c 2c 2c  63 6f 64 65 73 69 7a 65  |type,,,,codesize|
00001940  0d 0b 22 40 c8 99 20 22  4f 53 5f 46 69 6c 65 22  |.."@.. "OS_File"|
00001950  2c 35 2c 22 3c 41 6c 70  73 47 61 6d 65 24 44 61  |,5,"<AlpsGame$Da|
00001960  74 61 3e 2e 54 65 78 74  22 20 20 20 20 b8 20 66  |ta>.Text"    . f|
00001970  74 79 70 65 2c 2c 2c 2c  6d 61 78 74 65 78 74 25  |type,,,,maxtext%|
00001980  0d 0b 2c 04 0d 0b 36 12  64 69 63 74 5f 73 69 7a  |..,...6.dict_siz|
00001990  65 3d 31 30 30 30 0d 0b  40 04 0d 0b 4a 86 de 20  |e=1000..@...J.. |
000019a0  6e 6f 75 6e 73 20 6e 6f  75 6e 5f 73 69 7a 65 2c  |nouns noun_size,|
000019b0  76 65 72 62 73 20 76 65  72 62 5f 73 69 7a 65 2c  |verbs verb_size,|
000019c0  61 64 6a 65 63 74 73 20  61 64 6a 63 5f 73 69 7a  |adjects adjc_siz|
000019d0  65 2c 70 72 65 70 73 20  70 72 65 70 5f 73 69 7a  |e,preps prep_siz|
000019e0  65 2c 63 6f 6e 6a 73 20  63 6f 6e 6a 5f 73 69 7a  |e,conjs conj_siz|
000019f0  65 2c 73 70 65 63 73 20  73 70 65 63 5f 73 69 7a  |e,specs spec_siz|
00001a00  65 2c 6e 6f 69 73 65 20  6e 6f 69 73 65 5f 73 69  |e,noise noise_si|
00001a10  7a 65 2c 70 69 78 73 20  70 69 78 5f 73 69 7a 65  |ze,pixs pix_size|
00001a20  0d 0b 54 04 0d 0b 5e 3a  de 20 61 72 65 66 20 61  |..T...^:. aref a|
00001a30  72 65 66 5f 73 69 7a 65  2c 6e 72 65 66 20 6e 72  |ref_size,nref nr|
00001a40  65 66 5f 73 69 7a 65 2c  76 65 72 62 5f 74 79 70  |ef_size,verb_typ|
00001a50  65 20 32 2a 28 6d 61 78  76 62 6e 2b 31 29 0d 0b  |e 2*(maxvbn+1)..|
00001a60  68 3c f4 20 53 65 74 20  75 70 20 64 61 74 61 20  |h<. Set up data |
00001a70  61 72 65 61 73 20 66 6f  72 20 72 6f 6f 6d 73 20  |areas for rooms |
00001a80  61 6e 64 20 6f 62 6a 65  63 74 73 20 61 6e 64 20  |and objects and |
00001a90  63 6c 65 61 72 20 74 68  65 6d 0d 0b 72 04 0d 0b  |clear them..r...|
00001aa0  7c 42 de 20 72 64 61 74  61 25 20 28 6d 61 78 72  ||B. rdata% (maxr|
00001ab0  6d 73 2b 31 29 2a 72 5f  6c 65 6e 2c 6f 64 61 74  |ms+1)*r_len,odat|
00001ac0  61 25 20 28 6d 61 78 6f  62 73 2b 31 29 2a 6f 5f  |a% (maxobs+1)*o_|
00001ad0  6c 65 6e 2c 63 6f 6e 74  72 6f 6f 6d 25 20 31 32  |len,controom% 12|
00001ae0  0d 0b 86 04 0d 0b 90 2a  6e 75 6d 5f 76 61 72 73  |.......*num_vars|
00001af0  3d 36 30 3a f4 20 4e 75  6d 62 65 72 20 6f 66 20  |=60:. Number of |
00001b00  41 4c 50 53 20 76 61 72  69 61 62 6c 65 73 0d 0b  |ALPS variables..|
00001b10  9a 2e 76 61 72 5f 73 69  7a 65 3d 6e 75 6d 5f 76  |..var_size=num_v|
00001b20  61 72 73 2a 32 3a f4 20  32 20 62 79 74 65 73 20  |ars*2:. 2 bytes |
00001b30  70 65 72 20 76 61 72 69  61 62 6c 65 0d 0b a4 04  |per variable....|
00001b40  0d 0b ae 1d f4 20 53 65  74 20 75 70 20 74 68 65  |..... Set up the|
00001b50  20 73 61 76 65 20 62 75  66 66 65 72 73 0d 0b b8  | save buffers...|
00001b60  2b 69 6e 69 74 61 72 65  61 73 69 7a 65 3d 37 2a  |+initareasize=7*|
00001b70  28 6d 61 78 6f 62 73 2b  31 29 2b 32 32 2a 28 6d  |(maxobs+1)+22*(m|
00001b80  61 78 72 6d 73 2b 31 29  0d 0b c2 3d de 20 69 6e  |axrms+1)...=. in|
00001b90  69 74 73 61 76 65 20 69  6e 69 74 61 72 65 61 73  |itsave initareas|
00001ba0  69 7a 65 2c 72 61 6d 73  61 76 65 20 69 6e 69 74  |ize,ramsave init|
00001bb0  61 72 65 61 73 69 7a 65  2b 76 61 72 5f 73 69 7a  |areasize+var_siz|
00001bc0  65 2b 31 32 38 0d 0b cc  04 0d 0b d6 1f f4 20 41  |e+128......... A|
00001bd0  72 65 61 20 66 6f 72 20  73 74 6f 72 69 6e 67 20  |rea for storing |
00001be0  6d 65 73 73 61 67 65 73  0d 0b e0 14 de 20 74 65  |messages..... te|
00001bf0  78 74 25 20 6d 61 78 74  65 78 74 25 0d 0b ea 04  |xt% maxtext%....|
00001c00  0d 0b f4 0f 64 61 74 61  76 61 6c 69 64 3d b9 0d  |....datavalid=..|
00001c10  0b fe 04 0d 0c 08 1b f4  20 53 65 74 20 75 70 20  |........ Set up |
00001c20  74 68 65 20 64 69 63 74  69 6f 6e 61 72 79 0d 0c  |the dictionary..|
00001c30  12 15 de 20 64 69 63 74  25 20 64 69 63 74 5f 73  |... dict% dict_s|
00001c40  69 7a 65 0d 0c 1c 04 0d  0c 26 1d f4 20 53 65 74  |ize......&.. Set|
00001c50  20 75 70 20 74 68 65 20  70 72 6f 67 72 61 6d 20  | up the program |
00001c60  61 72 65 61 0d 0c 30 04  0d 0c 3a 17 de 20 70 72  |area..0...:.. pr|
00001c70  6f 67 72 61 6d 25 20 63  6f 64 65 73 69 7a 65 0d  |ogram% codesize.|
00001c80  0c 44 04 0d 0c 4e 27 f4  20 44 69 6d 65 6e 73 69  |.D...N'. Dimensi|
00001c90  6f 6e 20 74 68 65 20 6f  74 68 65 72 20 61 72 72  |on the other arr|
00001ca0  61 79 73 20 6e 65 65 64  65 64 0d 0c 58 04 0d 0c  |ays needed..X...|
00001cb0  62 0e 75 63 73 69 7a 65  3d 35 30 30 0d 0c 6c 47  |b.ucsize=500..lG|
00001cc0  c8 99 20 22 4f 53 5f 46  69 6c 65 22 2c 35 2c 22  |.. "OS_File",5,"|
00001cd0  3c 41 6c 70 73 47 61 6d  65 24 52 65 73 6f 75 72  |<AlpsGame$Resour|
00001ce0  63 65 73 3e 41 53 49 6f  62 6a 63 6f 64 65 22 20  |ces>ASIobjcode" |
00001cf0  b8 20 66 74 79 70 65 2c  2c 2c 2c 63 6f 64 65 73  |. ftype,,,,codes|
00001d00  69 7a 65 0d 0c 76 49 c8  99 20 22 4f 53 5f 46 69  |ize..vI.. "OS_Fi|
00001d10  6c 65 22 2c 35 2c 22 3c  41 6c 70 73 47 61 6d 65  |le",5,"<AlpsGame|
00001d20  24 52 65 73 6f 75 72 63  65 73 3e 70 62 79 74 65  |$Resources>pbyte|
00001d30  73 22 20 20 20 20 20 b8  20 66 74 79 70 65 2c 2c  |s"     . ftype,,|
00001d40  2c 2c 70 62 79 74 65 5f  73 69 7a 65 0d 0c 80 04  |,,pbyte_size....|
00001d50  0d 0c 8a 38 de 20 70 62  79 74 65 73 20 70 62 79  |...8. pbytes pby|
00001d60  74 65 5f 73 69 7a 65 2c  77 6f 72 6b 25 20 26 31  |te_size,work% &1|
00001d70  31 30 30 2c 61 73 69 63  6f 64 65 25 20 63 6f 64  |100,asicode% cod|
00001d80  65 73 69 7a 65 2b 31 30  0d 0c 94 04 0d 0c 9e 28  |esize+10.......(|
00001d90  de 20 75 73 65 72 63 6f  64 65 25 20 75 63 73 69  |. usercode% ucsi|
00001da0  7a 65 2c 73 63 61 6c 65  20 31 35 2c 70 69 78 74  |ze,scale 15,pixt|
00001db0  72 20 31 35 0d 0c a8 04  0d 0c b2 10 72 75 6e 3d  |r 15........run=|
00001dc0  61 73 69 63 6f 64 65 25  0d 0c bc 04 0d 0c c6 38  |asicode%.......8|
00001dd0  ff 28 22 4c 4f 41 44 20  3c 41 6c 70 73 47 61 6d  |.("LOAD <AlpsGam|
00001de0  65 24 52 65 73 6f 75 72  63 65 73 3e 41 53 49 6f  |e$Resources>ASIo|
00001df0  62 6a 63 6f 64 65 20 22  2b c3 7e 61 73 69 63 6f  |bjcode "+.~asico|
00001e00  64 65 25 29 0d 0c d0 05  e1 0d 0c da 04 0d 0c e4  |de%)............|
00001e10  04 0d 0c ee 0a dd 20 f2  72 75 6e 0d 0c f8 07 ea  |...... .run.....|
00001e20  20 85 0d 0d 02 3a 65 72  72 5f 63 6f 6c 3d 31 31  | ....:err_col=11|
00001e30  3a f2 63 6f 6c 28 31 33  31 29 3a f2 63 6f 6c 28  |:.col(131):.col(|
00001e40  37 29 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 43  |7):.. "Wimp_SetC|
00001e50  6f 6c 6f 75 72 22 2c 31  32 38 2b 33 0d 0d 0c 61  |olour",128+3...a|
00001e60  ee 20 85 20 ea 3a f2 63  6f 6c 28 65 72 72 5f 63  |. . .:.col(err_c|
00001e70  6f 6c 29 3a e7 20 9f 3c  3e 31 37 20 f1 27 22 49  |ol):. .<>17 .'"I|
00001e80  6e 74 65 72 70 72 65 74  65 72 20 72 65 70 6f 72  |nterpreter repor|
00001e90  74 73 20 61 20 72 75 6e  2d 74 69 6d 65 20 65 72  |ts a run-time er|
00001ea0  72 6f 72 3a 20 22 f6 24  3a e5 20 8d 54 50 4e 20  |ror: ".$:. .TPN |
00001eb0  8b 20 f1 27 f6 24 3a e5  20 8d 54 50 4e 0d 0d 16  |. .'.$:. .TPN...|
00001ec0  11 21 77 6f 72 6b 25 3d  72 64 61 74 61 25 0d 0d  |.!work%=rdata%..|
00001ed0  20 13 77 6f 72 6b 25 21  34 3d 76 65 72 62 73 2b  | .work%!4=verbs+|
00001ee0  33 0d 0d 2a 13 77 6f 72  6b 25 21 38 3d 6e 6f 75  |3..*.work%!8=nou|
00001ef0  6e 73 2b 33 0d 0d 34 17  77 6f 72 6b 25 21 31 32  |ns+3..4.work%!12|
00001f00  3d 70 72 6f 67 72 61 6d  25 2b 34 0d 0d 3e 14 77  |=program%+4..>.w|
00001f10  6f 72 6b 25 21 31 36 3d  74 65 78 74 25 2b 37 0d  |ork%!16=text%+7.|
00001f20  0d 48 14 77 6f 72 6b 25  21 32 30 3d 64 69 63 74  |.H.work%!20=dict|
00001f30  25 2b 33 0d 0d 52 13 77  6f 72 6b 25 21 32 34 3d  |%+3..R.work%!24=|
00001f40  6f 64 61 74 61 25 0d 0d  5c 16 77 6f 72 6b 25 21  |odata%..\.work%!|
00001f50  32 38 3d 61 64 6a 65 63  74 73 2b 33 0d 0d 66 14  |28=adjects+3..f.|
00001f60  77 6f 72 6b 25 21 33 32  3d 70 72 65 70 73 2b 33  |work%!32=preps+3|
00001f70  0d 0d 70 14 77 6f 72 6b  25 21 33 36 3d 63 6f 6e  |..p.work%!36=con|
00001f80  6a 73 2b 33 0d 0d 7a 14  77 6f 72 6b 25 21 34 30  |js+3..z.work%!40|
00001f90  3d 73 70 65 63 73 2b 33  0d 0d 84 14 77 6f 72 6b  |=specs+3....work|
00001fa0  25 21 34 34 3d 6e 6f 69  73 65 2b 33 0d 0d 8e 13  |%!44=noise+3....|
00001fb0  77 6f 72 6b 25 21 34 38  3d 70 69 78 73 2b 33 0d  |work%!48=pixs+3.|
00001fc0  0d 98 1b f4 20 20 77 6f  72 6b 25 21 35 32 20 69  |....  work%!52 i|
00001fd0  73 20 72 65 73 65 72 76  65 64 0d 0d a2 15 77 6f  |s reserved....wo|
00001fe0  72 6b 25 21 35 36 3d 69  6e 69 74 73 61 76 65 0d  |rk%!56=initsave.|
00001ff0  0d ac 16 77 6f 72 6b 25  21 36 30 3d 6c 61 73 74  |...work%!60=last|
00002000  5f 72 6f 6f 6d 0d 0d b6  1a 77 6f 72 6b 25 21 36  |_room....work%!6|
00002010  34 3d 6c 61 73 74 5f 6f  62 6a 65 63 74 2b 31 0d  |4=last_object+1.|
00002020  0d c0 17 77 6f 72 6b 25  21 26 31 34 63 3d 63 6f  |...work%!&14c=co|
00002030  6d 70 72 65 73 73 0d 0d  c1 30 77 6f 72 6b 25 21  |mpress...0work%!|
00002040  26 31 35 30 3d 75 73 65  72 63 6f 64 65 25 3a f4  |&150=usercode%:.|
00002050  20 4e 65 77 20 66 72 6f  6d 20 56 65 72 73 69 6f  | New from Versio|
00002060  6e 20 35 2e 31 31 0d 0d  ca 05 db 0d 0d d4 19 ef  |n 5.11..........|
00002070  20 32 34 2c 30 3b 31 34  34 3b 73 63 72 77 3b 73  | 24,0;144;scrw;s|
00002080  63 72 68 3b 0d 0d de 05  da 0d 0d e8 05 ee 0d 0d  |crh;............|
00002090  f2 2b 41 25 3d 76 65 72  62 5f 74 79 70 65 3a 42  |.+A%=verb_type:B|
000020a0  25 3d 6e 72 65 66 3a 43  25 3d 61 72 65 66 3a 44  |%=nref:C%=aref:D|
000020b0  25 3d 72 61 6d 73 61 76  65 0d 0d fc 2d 45 25 3d  |%=ramsave...-E%=|
000020c0  70 62 79 74 65 73 3a 46  25 3d 77 6f 72 6b 25 3a  |pbytes:F%=work%:|
000020d0  47 25 3d 61 72 65 61 25  3a 48 25 3d 61 72 65 61  |G%=area%:H%=area|
000020e0  5f 73 69 7a 65 25 0d 0e  06 09 d6 20 72 75 6e 0d  |_size%..... run.|
000020f0  0e 10 07 f7 20 85 0d 0e  1a 05 e1 0d 0e 24 04 0d  |.... ........$..|
00002100  0e 2e 04 0d 0e 38 11 dd  20 f2 6c 6f 61 64 5f 76  |.....8.. .load_v|
00002110  6f 63 61 62 0d 0e 42 28  f2 6c 6f 61 64 5f 6e 6f  |ocab..B(.load_no|
00002120  75 6e 73 28 22 3c 41 6c  70 73 47 61 6d 65 24 44  |uns("<AlpsGame$D|
00002130  61 74 61 3e 2e 4e 6f 75  6e 73 22 29 0d 0e 4c 28  |ata>.Nouns")..L(|
00002140  f2 6c 6f 61 64 5f 76 65  72 62 73 28 22 3c 41 6c  |.load_verbs("<Al|
00002150  70 73 47 61 6d 65 24 44  61 74 61 3e 2e 56 65 72  |psGame$Data>.Ver|
00002160  62 73 22 29 0d 0e 56 2f  f2 6c 6f 61 64 5f 61 64  |bs")..V/.load_ad|
00002170  6a 65 63 74 73 28 22 3c  41 6c 70 73 47 61 6d 65  |jects("<AlpsGame|
00002180  24 44 61 74 61 3e 2e 41  64 6a 65 63 74 69 76 65  |$Data>.Adjective|
00002190  73 22 29 0d 0e 60 29 f2  6c 6f 61 64 5f 70 72 65  |s")..`).load_pre|
000021a0  70 73 28 22 3c 41 6c 70  73 47 61 6d 65 24 44 61  |ps("<AlpsGame$Da|
000021b0  74 61 3e 2e 50 72 65 70  6f 73 22 29 0d 0e 6a 29  |ta>.Prepos")..j)|
000021c0  f2 6c 6f 61 64 5f 63 6f  6e 6a 28 22 3c 41 6c 70  |.load_conj("<Alp|
000021d0  73 47 61 6d 65 24 44 61  74 61 3e 2e 43 6f 6e 6a  |sGame$Data>.Conj|
000021e0  75 6e 63 22 29 0d 0e 74  2a f2 6c 6f 61 64 5f 73  |unc")..t*.load_s|
000021f0  70 65 63 28 22 3c 41 6c  70 73 47 61 6d 65 24 44  |pec("<AlpsGame$D|
00002200  61 74 61 3e 2e 53 70 65  63 69 61 6c 73 22 29 0d  |ata>.Specials").|
00002210  0e 7e 28 f2 6c 6f 61 64  5f 6e 6f 69 73 65 28 22  |.~(.load_noise("|
00002220  3c 41 6c 70 73 47 61 6d  65 24 44 61 74 61 3e 2e  |<AlpsGame$Data>.|
00002230  4e 6f 69 73 65 22 29 0d  0e 88 2c f2 6c 6f 61 64  |Noise")...,.load|
00002240  5f 76 74 79 70 65 73 28  22 3c 41 6c 70 73 47 61  |_vtypes("<AlpsGa|
00002250  6d 65 24 44 61 74 61 3e  2e 56 65 72 62 54 79 70  |me$Data>.VerbTyp|
00002260  65 22 29 0d 0e 92 27 f2  6c 6f 61 64 5f 6e 72 65  |e")...'.load_nre|
00002270  66 73 28 22 3c 41 6c 70  73 47 61 6d 65 24 44 61  |fs("<AlpsGame$Da|
00002280  74 61 3e 2e 4e 72 65 66  22 29 0d 0e 9c 27 f2 6c  |ta>.Nref")...'.l|
00002290  6f 61 64 5f 61 72 65 66  73 28 22 3c 41 6c 70 73  |oad_arefs("<Alps|
000022a0  47 61 6d 65 24 44 61 74  61 3e 2e 41 72 65 66 22  |Game$Data>.Aref"|
000022b0  29 0d 0e a6 05 e1 0d 0e  b0 04 0d 0e ba 18 dd 20  |).............. |
000022c0  f2 6c 6f 61 64 5f 6e 6f  75 6e 73 28 66 69 6c 65  |.load_nouns(file|
000022d0  24 29 0d 0e c4 10 e7 20  66 69 6c 65 24 3d 22 22  |$)..... file$=""|
000022e0  20 8c 0d 0e ce 11 f2 65  72 72 6f 72 28 31 36 2c  | ......error(16,|
000022f0  22 22 29 0d 0e d8 05 cc  0d 0e e2 1f ff 20 22 4c  |"").......... "L|
00002300  4f 41 44 20 22 2b 66 69  6c 65 24 2b 22 20 22 2b  |OAD "+file$+" "+|
00002310  c3 7e 6e 6f 75 6e 73 0d  0e ec 0e 6f 62 6e 3d 3f  |.~nouns....obn=?|
00002320  6e 6f 75 6e 73 0d 0e f6  28 6e 78 74 6f 62 6a 3d  |nouns...(nxtobj=|
00002330  6e 6f 75 6e 73 2b 28 6e  6f 75 6e 73 3f 31 2b 32  |nouns+(nouns?1+2|
00002340  35 36 2a 28 6e 6f 75 6e  73 3f 32 29 29 0d 0f 00  |56*(nouns?2))...|
00002350  05 cd 0d 0f 0a 05 e1 0d  0f 14 04 0d 0f 1e 18 dd  |................|
00002360  20 f2 6c 6f 61 64 5f 76  65 72 62 73 28 66 69 6c  | .load_verbs(fil|
00002370  65 24 29 0d 0f 28 10 e7  20 66 69 6c 65 24 3d 22  |e$)..(.. file$="|
00002380  22 20 8c 0d 0f 32 11 f2  65 72 72 6f 72 28 31 36  |" ...2..error(16|
00002390  2c 22 22 29 0d 0f 3c 05  cc 0d 0f 46 1f ff 20 22  |,"")..<....F.. "|
000023a0  4c 4f 41 44 20 22 2b 66  69 6c 65 24 2b 22 20 22  |LOAD "+file$+" "|
000023b0  2b c3 7e 76 65 72 62 73  0d 0f 50 0e 76 62 6e 3d  |+.~verbs..P.vbn=|
000023c0  3f 76 65 72 62 73 0d 0f  5a 28 6e 78 74 76 72 62  |?verbs..Z(nxtvrb|
000023d0  3d 76 65 72 62 73 2b 28  76 65 72 62 73 3f 31 2b  |=verbs+(verbs?1+|
000023e0  32 35 36 2a 28 76 65 72  62 73 3f 32 29 29 0d 0f  |256*(verbs?2))..|
000023f0  64 05 cd 0d 0f 6e 05 e1  0d 0f 78 04 0d 0f 82 1a  |d....n....x.....|
00002400  dd 20 f2 6c 6f 61 64 5f  61 64 6a 65 63 74 73 28  |. .load_adjects(|
00002410  66 69 6c 65 24 29 0d 0f  8c 10 e7 20 66 69 6c 65  |file$)..... file|
00002420  24 3d 22 22 20 8c 0d 0f  96 11 f2 65 72 72 6f 72  |$="" ......error|
00002430  28 31 36 2c 22 22 29 0d  0f a0 05 cc 0d 0f aa 21  |(16,"")........!|
00002440  ff 20 22 4c 4f 41 44 20  22 2b 66 69 6c 65 24 2b  |. "LOAD "+file$+|
00002450  22 20 22 2b c3 7e 61 64  6a 65 63 74 73 0d 0f b4  |" "+.~adjects...|
00002460  10 61 64 6e 3d 3f 61 64  6a 65 63 74 73 0d 0f be  |.adn=?adjects...|
00002470  2e 6e 78 74 61 64 6a 3d  61 64 6a 65 63 74 73 2b  |.nxtadj=adjects+|
00002480  28 61 64 6a 65 63 74 73  3f 31 2b 32 35 36 2a 28  |(adjects?1+256*(|
00002490  61 64 6a 65 63 74 73 3f  32 29 29 0d 0f c8 05 cd  |adjects?2)).....|
000024a0  0d 0f d2 05 e1 0d 0f dc  04 0d 0f e6 18 dd 20 f2  |.............. .|
000024b0  6c 6f 61 64 5f 70 72 65  70 73 28 66 69 6c 65 24  |load_preps(file$|
000024c0  29 0d 0f f0 10 e7 20 66  69 6c 65 24 3d 22 22 20  |)..... file$="" |
000024d0  8c 0d 0f fa 11 f2 65 72  72 6f 72 28 31 36 2c 22  |......error(16,"|
000024e0  22 29 0d 10 04 05 cc 0d  10 0e 1f ff 20 22 4c 4f  |").......... "LO|
000024f0  41 44 20 22 2b 66 69 6c  65 24 2b 22 20 22 2b c3  |AD "+file$+" "+.|
00002500  7e 70 72 65 70 73 0d 10  18 0e 70 72 6e 3d 3f 70  |~preps....prn=?p|
00002510  72 65 70 73 0d 10 22 28  6e 78 74 70 72 70 3d 70  |reps.."(nxtprp=p|
00002520  72 65 70 73 2b 28 70 72  65 70 73 3f 31 2b 32 35  |reps+(preps?1+25|
00002530  36 2a 28 70 72 65 70 73  3f 32 29 29 0d 10 2c 05  |6*(preps?2))..,.|
00002540  cd 0d 10 36 05 e1 0d 10  40 04 0d 10 4a 17 dd 20  |...6....@...J.. |
00002550  f2 6c 6f 61 64 5f 63 6f  6e 6a 28 66 69 6c 65 24  |.load_conj(file$|
00002560  29 0d 10 54 10 e7 20 66  69 6c 65 24 3d 22 22 20  |)..T.. file$="" |
00002570  8c 0d 10 5e 11 f2 65 72  72 6f 72 28 31 36 2c 22  |...^..error(16,"|
00002580  22 29 0d 10 68 05 cc 0d  10 72 1f ff 20 22 4c 4f  |")..h....r.. "LO|
00002590  41 44 20 22 2b 66 69 6c  65 24 2b 22 20 22 2b c3  |AD "+file$+" "+.|
000025a0  7e 63 6f 6e 6a 73 0d 10  7c 0e 63 6a 6e 3d 3f 63  |~conjs..|.cjn=?c|
000025b0  6f 6e 6a 73 0d 10 86 28  6e 78 74 63 6a 6e 3d 63  |onjs...(nxtcjn=c|
000025c0  6f 6e 6a 73 2b 28 63 6f  6e 6a 73 3f 31 2b 32 35  |onjs+(conjs?1+25|
000025d0  36 2a 28 63 6f 6e 6a 73  3f 32 29 29 0d 10 90 05  |6*(conjs?2))....|
000025e0  cd 0d 10 9a 05 e1 0d 10  a4 04 0d 10 ae 17 dd 20  |............... |
000025f0  f2 6c 6f 61 64 5f 73 70  65 63 28 66 69 6c 65 24  |.load_spec(file$|
00002600  29 0d 10 b8 10 e7 20 66  69 6c 65 24 3d 22 22 20  |)..... file$="" |
00002610  8c 0d 10 c2 11 f2 65 72  72 6f 72 28 31 36 2c 22  |......error(16,"|
00002620  22 29 0d 10 cc 05 cc 0d  10 d6 1f ff 20 22 4c 4f  |").......... "LO|
00002630  41 44 20 22 2b 66 69 6c  65 24 2b 22 20 22 2b c3  |AD "+file$+" "+.|
00002640  7e 73 70 65 63 73 0d 10  e0 0e 73 70 6e 3d 3f 73  |~specs....spn=?s|
00002650  70 65 63 73 0d 10 ea 28  6e 78 74 73 70 6e 3d 73  |pecs...(nxtspn=s|
00002660  70 65 63 73 2b 28 73 70  65 63 73 3f 31 2b 32 35  |pecs+(specs?1+25|
00002670  36 2a 28 73 70 65 63 73  3f 32 29 29 0d 10 f4 05  |6*(specs?2))....|
00002680  cd 0d 10 fe 05 e1 0d 11  08 04 0d 11 12 18 dd 20  |............... |
00002690  f2 6c 6f 61 64 5f 6e 6f  69 73 65 28 66 69 6c 65  |.load_noise(file|
000026a0  24 29 0d 11 1c 10 e7 20  66 69 6c 65 24 3d 22 22  |$)..... file$=""|
000026b0  20 8c 0d 11 26 11 f2 65  72 72 6f 72 28 31 36 2c  | ...&..error(16,|
000026c0  22 22 29 0d 11 30 05 cc  0d 11 3a 1f ff 20 22 4c  |"")..0....:.. "L|
000026d0  4f 41 44 20 22 2b 66 69  6c 65 24 2b 22 20 22 2b  |OAD "+file$+" "+|
000026e0  c3 7e 6e 6f 69 73 65 0d  11 44 0e 6e 73 6e 3d 3f  |.~noise..D.nsn=?|
000026f0  6e 6f 69 73 65 0d 11 4e  28 6e 78 74 6e 73 6e 3d  |noise..N(nxtnsn=|
00002700  6e 6f 69 73 65 2b 28 6e  6f 69 73 65 3f 31 2b 32  |noise+(noise?1+2|
00002710  35 36 2a 28 6e 6f 69 73  65 3f 32 29 29 0d 11 58  |56*(noise?2))..X|
00002720  05 cd 0d 11 62 05 e1 0d  11 6c 04 0d 11 76 19 dd  |....b....l...v..|
00002730  20 f2 6c 6f 61 64 5f 76  74 79 70 65 73 28 66 69  | .load_vtypes(fi|
00002740  6c 65 24 29 0d 11 80 10  e7 20 66 69 6c 65 24 3d  |le$)..... file$=|
00002750  22 22 20 8c 0d 11 8a 11  f2 65 72 72 6f 72 28 31  |"" ......error(1|
00002760  36 2c 22 22 29 0d 11 94  05 cc 0d 11 9e 23 ff 20  |6,"")........#. |
00002770  22 4c 4f 41 44 20 22 2b  66 69 6c 65 24 2b 22 20  |"LOAD "+file$+" |
00002780  22 2b c3 7e 76 65 72 62  5f 74 79 70 65 0d 11 a8  |"+.~verb_type...|
00002790  05 cd 0d 11 b2 05 e1 0d  11 bc 04 0d 11 c6 18 dd  |................|
000027a0  20 f2 6c 6f 61 64 5f 61  72 65 66 73 28 66 69 6c  | .load_arefs(fil|
000027b0  65 24 29 0d 11 d0 10 e7  20 66 69 6c 65 24 3d 22  |e$)..... file$="|
000027c0  22 20 8c 0d 11 da 11 f2  65 72 72 6f 72 28 31 36  |" ......error(16|
000027d0  2c 22 22 29 0d 11 e4 05  cc 0d 11 ee 1e ff 20 22  |,"").......... "|
000027e0  4c 4f 41 44 20 22 2b 66  69 6c 65 24 2b 22 20 22  |LOAD "+file$+" "|
000027f0  2b c3 7e 61 72 65 66 0d  11 f8 05 cd 0d 12 02 05  |+.~aref.........|
00002800  e1 0d 12 0c 04 0d 12 16  18 dd 20 f2 6c 6f 61 64  |.......... .load|
00002810  5f 6e 72 65 66 73 28 66  69 6c 65 24 29 0d 12 20  |_nrefs(file$).. |
00002820  10 e7 20 66 69 6c 65 24  3d 22 22 20 8c 0d 12 2a  |.. file$="" ...*|
00002830  11 f2 65 72 72 6f 72 28  31 36 2c 22 22 29 0d 12  |..error(16,"")..|
00002840  34 05 cc 0d 12 3e 1e ff  20 22 4c 4f 41 44 20 22  |4....>.. "LOAD "|
00002850  2b 66 69 6c 65 24 2b 22  20 22 2b c3 7e 6e 72 65  |+file$+" "+.~nre|
00002860  66 0d 12 48 05 cd 0d 12  52 05 e1 0d 12 5c 04 0d  |f..H....R....\..|
00002870  12 66 17 dd 20 f2 6c 6f  61 64 5f 6f 62 6a 73 28  |.f.. .load_objs(|
00002880  66 69 6c 65 24 29 0d 12  70 10 e7 20 66 69 6c 65  |file$)..p.. file|
00002890  24 3d 22 22 20 8c 0d 12  7a 11 f2 65 72 72 6f 72  |$="" ...z..error|
000028a0  28 31 36 2c 22 22 29 0d  12 84 05 cc 0d 12 8e 20  |(16,"")........ |
000028b0  ff 20 22 4c 4f 41 44 20  22 2b 66 69 6c 65 24 2b  |. "LOAD "+file$+|
000028c0  22 20 22 2b c3 7e 6f 64  61 74 61 25 0d 12 98 12  |" "+.~odata%....|
000028d0  6f 70 74 72 3d 6f 64 61  74 61 25 3f 31 34 0d 12  |optr=odata%?14..|
000028e0  a2 19 6c 61 73 74 5f 6f  62 6a 65 63 74 3d 6f 64  |..last_object=od|
000028f0  61 74 61 25 3f 31 35 0d  12 ac 05 cd 0d 12 b6 05  |ata%?15.........|
00002900  e1 0d 12 c0 04 0d 12 ca  18 dd 20 f2 6c 6f 61 64  |.......... .load|
00002910  5f 72 6f 6f 6d 73 28 66  69 6c 65 24 29 0d 12 d4  |_rooms(file$)...|
00002920  10 e7 20 66 69 6c 65 24  3d 22 22 20 8c 0d 12 de  |.. file$="" ....|
00002930  11 f2 65 72 72 6f 72 28  31 36 2c 22 22 29 0d 12  |..error(16,"")..|
00002940  e8 05 cc 0d 12 f2 20 ff  20 22 4c 4f 41 44 20 22  |...... . "LOAD "|
00002950  2b 66 69 6c 65 24 2b 22  20 22 2b c3 7e 72 64 61  |+file$+" "+.~rda|
00002960  74 61 25 0d 12 fc 18 72  70 74 72 3d 21 72 64 61  |ta%....rptr=!rda|
00002970  74 61 25 20 80 20 26 46  46 46 46 0d 13 06 27 6c  |ta% . &FFFF...'l|
00002980  61 73 74 5f 72 6f 6f 6d  3d 28 21 72 64 61 74 61  |ast_room=(!rdata|
00002990  25 20 80 20 26 46 46 46  46 30 30 30 30 29 3e 3e  |% . &FFFF0000)>>|
000029a0  31 36 0d 13 10 05 cd 0d  13 1a 05 e1 0d 13 24 04  |16............$.|
000029b0  0d 13 2e 16 dd 20 f2 6c  6f 61 64 5f 70 69 78 28  |..... .load_pix(|
000029c0  66 69 6c 65 24 29 0d 13  38 10 e7 20 66 69 6c 65  |file$)..8.. file|
000029d0  24 3d 22 22 20 8c 0d 13  42 11 f2 65 72 72 6f 72  |$="" ...B..error|
000029e0  28 31 36 2c 22 22 29 0d  13 4c 05 cc 0d 13 56 1e  |(16,"")..L....V.|
000029f0  ff 20 22 4c 4f 41 44 20  22 2b 66 69 6c 65 24 2b  |. "LOAD "+file$+|
00002a00  22 20 22 2b c3 7e 70 69  78 73 0d 13 60 0d 70 78  |" "+.~pixs..`.px|
00002a10  6e 3d 3f 70 69 78 73 0d  13 6a 25 6e 78 74 70 78  |n=?pixs..j%nxtpx|
00002a20  6e 3d 70 69 78 73 2b 28  70 69 78 73 3f 31 2b 32  |n=pixs+(pixs?1+2|
00002a30  35 36 2a 28 70 69 78 73  3f 32 29 29 0d 13 74 05  |56*(pixs?2))..t.|
00002a40  cd 0d 13 7e 05 e1 0d 13  88 04 0d 13 92 1a dd 20  |...~........... |
00002a50  f2 6c 6f 61 64 5f 70 72  6f 67 72 61 6d 28 66 69  |.load_program(fi|
00002a60  6c 65 24 29 0d 13 9c 10  e7 20 66 69 6c 65 24 3d  |le$)..... file$=|
00002a70  22 22 20 8c 0d 13 a6 11  f2 65 72 72 6f 72 28 31  |"" ......error(1|
00002a80  36 2c 22 22 29 0d 13 b0  05 cc 0d 13 ba 22 ff 20  |6,"")........". |
00002a90  22 4c 4f 41 44 20 22 2b  66 69 6c 65 24 2b 22 20  |"LOAD "+file$+" |
00002aa0  22 2b c3 7e 70 72 6f 67  72 61 6d 25 0d 13 c4 05  |"+.~program%....|
00002ab0  cd 0d 13 ce 05 e1 0d 13  d8 04 0d 13 e2 17 dd 20  |............... |
00002ac0  f2 6c 6f 61 64 5f 74 65  78 74 28 66 69 6c 65 24  |.load_text(file$|
00002ad0  29 0d 13 ec 10 e7 20 66  69 6c 65 24 3d 22 22 20  |)..... file$="" |
00002ae0  8c 0d 13 f6 11 f2 65 72  72 6f 72 28 31 36 2c 22  |......error(16,"|
00002af0  22 29 0d 14 00 05 cc 0d  14 0a 1f ff 20 22 4c 4f  |").......... "LO|
00002b00  41 44 20 22 2b 66 69 6c  65 24 2b 22 20 22 2b c3  |AD "+file$+" "+.|
00002b10  7e 74 65 78 74 25 0d 14  14 0a 6d 70 74 72 3d 31  |~text%....mptr=1|
00002b20  0d 14 1e 05 cd 0d 14 28  05 e1 0d 14 32 04 0d 14  |.......(....2...|
00002b30  3c 17 dd 20 f2 6c 6f 61  64 5f 64 69 63 74 28 66  |<.. .load_dict(f|
00002b40  69 6c 65 24 29 0d 14 46  0b ea 20 49 25 2c 4c 25  |ile$)..F.. I%,L%|
00002b50  0d 14 50 10 e7 20 66 69  6c 65 24 3d 22 22 20 8c  |..P.. file$="" .|
00002b60  0d 14 5a 11 f2 65 72 72  6f 72 28 31 36 2c 22 22  |..Z..error(16,""|
00002b70  29 0d 14 64 05 cc 0d 14  6e 1f ff 20 22 4c 4f 41  |)..d....n.. "LOA|
00002b80  44 20 22 2b 66 69 6c 65  24 2b 22 20 22 2b c3 7e  |D "+file$+" "+.~|
00002b90  64 69 63 74 25 0d 14 78  15 74 6f 6b 25 3d 64 69  |dict%..x.tok%=di|
00002ba0  63 74 25 3f 32 3a 4c 25  3d 30 0d 14 82 21 e7 20  |ct%?2:L%=0...!. |
00002bb0  74 6f 6b 25 3d 30 20 74  6f 6b 25 3d 31 32 38 20  |tok%=0 tok%=128 |
00002bc0  8b 20 74 6f 6b 25 2d 3d  31 32 38 0d 14 8c 05 cd  |. tok%-=128.....|
00002bd0  0d 14 96 05 e1 0d 14 a0  04 0d 14 aa 11 dd 20 f2  |.............. .|
00002be0  6c 6f 61 64 5f 66 69 6c  65 73 0d 14 b4 29 f2 6c  |load_files...).l|
00002bf0  6f 61 64 5f 6f 62 6a 73  28 22 3c 41 6c 70 73 47  |oad_objs("<AlpsG|
00002c00  61 6d 65 24 44 61 74 61  3e 2e 4f 62 6a 65 63 74  |ame$Data>.Object|
00002c10  73 22 29 0d 14 be 28 f2  6c 6f 61 64 5f 72 6f 6f  |s")...(.load_roo|
00002c20  6d 73 28 22 3c 41 6c 70  73 47 61 6d 65 24 44 61  |ms("<AlpsGame$Da|
00002c30  74 61 3e 2e 52 6f 6f 6d  73 22 29 0d 14 c8 29 f2  |ta>.Rooms")...).|
00002c40  6c 6f 61 64 5f 70 69 78  28 22 3c 41 6c 70 73 47  |load_pix("<AlpsG|
00002c50  61 6d 65 24 44 61 74 61  3e 2e 50 69 63 74 75 72  |ame$Data>.Pictur|
00002c60  65 73 22 29 0d 14 d2 0f  f2 6c 6f 61 64 5f 76 6f  |es").....load_vo|
00002c70  63 61 62 0d 14 dc 2c f2  6c 6f 61 64 5f 70 72 6f  |cab...,.load_pro|
00002c80  67 72 61 6d 28 22 3c 41  6c 70 73 47 61 6d 65 24  |gram("<AlpsGame$|
00002c90  44 61 74 61 3e 2e 50 72  6f 67 72 61 6d 22 29 0d  |Data>.Program").|
00002ca0  14 e6 26 f2 6c 6f 61 64  5f 74 65 78 74 28 22 3c  |..&.load_text("<|
00002cb0  41 6c 70 73 47 61 6d 65  24 44 61 74 61 3e 2e 54  |AlpsGame$Data>.T|
00002cc0  65 78 74 22 29 0d 14 f0  26 f2 6c 6f 61 64 5f 64  |ext")...&.load_d|
00002cd0  69 63 74 28 22 3c 41 6c  70 73 47 61 6d 65 24 44  |ict("<AlpsGame$D|
00002ce0  61 74 61 3e 2e 44 69 63  74 22 29 0d 14 f1 26 f2  |ata>.Dict")...&.|
00002cf0  6c 6f 61 64 5f 63 6f 64  65 28 22 3c 41 6c 70 73  |load_code("<Alps|
00002d00  47 61 6d 65 24 44 61 74  61 3e 2e 43 6f 64 65 22  |Game$Data>.Code"|
00002d10  29 0d 14 fa 31 ff 20 22  4c 4f 41 44 20 3c 41 6c  |)...1. "LOAD <Al|
00002d20  70 73 47 61 6d 65 24 52  65 73 6f 75 72 63 65 73  |psGame$Resources|
00002d30  3e 70 62 79 74 65 73 20  22 2b c3 7e 70 62 79 74  |>pbytes "+.~pbyt|
00002d40  65 73 0d 15 04 05 e1 0d  15 0e 04 0d 15 18 10 dd  |es..............|
00002d50  20 f2 73 65 74 5f 50 72  65 66 73 0d 15 22 25 69  | .set_Prefs.."%i|
00002d60  6e 25 3d 8e 28 22 3c 41  6c 70 73 47 61 6d 65 24  |n%=.("<AlpsGame$|
00002d70  44 61 74 61 3e 2e 47 61  6d 65 44 61 74 61 22 29  |Data>.GameData")|
00002d80  0d 15 2c 0f 6d 6f 64 65  25 3d 9a 23 69 6e 25 0d  |..,.mode%=.#in%.|
00002d90  15 36 12 63 6f 6d 70 72  65 73 73 3d 9a 23 69 6e  |.6.compress=.#in|
00002da0  25 0d 15 40 4a 6c 6f 61  64 5f 62 75 74 74 6f 6e  |%..@Jload_button|
00002db0  73 3d 9a 23 69 6e 25 3a  e7 20 6c 6f 61 64 5f 62  |s=.#in%:. load_b|
00002dc0  75 74 74 6f 6e 73 3c 3e  30 20 8c 20 6c 6f 61 64  |uttons<>0 . load|
00002dd0  5f 62 75 74 74 6f 6e 73  3d b9 20 8b 20 6c 6f 61  |_buttons=. . loa|
00002de0  64 5f 62 75 74 74 6f 6e  73 3d a3 0d 15 4a 3e 75  |d_buttons=...J>u|
00002df0  73 65 5f 66 6b 65 79 73  3d 9a 23 69 6e 25 3a e7  |se_fkeys=.#in%:.|
00002e00  20 75 73 65 5f 66 6b 65  79 73 3c 3e 30 20 8c 20  | use_fkeys<>0 . |
00002e10  75 73 65 5f 66 6b 65 79  73 3d b9 20 8b 20 75 73  |use_fkeys=. . us|
00002e20  65 5f 66 6b 65 79 73 3d  a3 0d 15 54 09 d9 23 69  |e_fkeys=...T..#i|
00002e30  6e 25 0d 15 5e 05 e1 0d  15 68 04 0d 15 72 04 0d  |n%..^....h...r..|
00002e40  15 7c 27 dd 20 a4 65 6e  74 65 72 5f 77 6f 72 64  |.|'. .enter_word|
00002e50  28 6c 65 6e 25 2c 63 68  24 2c 77 64 24 2c 77 78  |(len%,ch$,wd$,wx|
00002e60  25 2c 77 79 25 29 0d 15  86 0d ea 20 6b 65 79 2c  |%,wy%)..... key,|
00002e70  50 6f 25 0d 15 90 0b 2a  46 58 20 34 2c 31 0d 15  |Po%....*FX 4,1..|
00002e80  9a 09 50 6f 25 3d 30 0d  15 a4 05 f5 0d 15 ae 14  |..Po%=0.........|
00002e90  f1 20 8a 77 78 25 2b 50  6f 25 2c 77 79 25 29 3b  |. .wx%+Po%,wy%);|
00002ea0  0d 15 b8 0b 2a 46 58 31  35 2c 30 0d 15 c2 05 f5  |....*FX15,0.....|
00002eb0  0d 15 cc 09 6b 65 79 3d  a5 0d 15 d6 15 fd 20 6b  |....key=...... k|
00002ec0  65 79 3e 33 31 20 84 20  6b 65 79 3d 31 33 0d 15  |ey>31 . key=13..|
00002ed0  e0 11 e7 20 28 6b 65 79  3d 31 32 37 29 20 8c 0d  |... (key=127) ..|
00002ee0  15 ea 2e e7 20 a6 2d 31  20 8c 20 77 64 24 3d c0  |.... .-1 . wd$=.|
00002ef0  77 64 24 2c 50 6f 25 29  2b c2 77 64 24 2c 6c 65  |wd$,Po%)+.wd$,le|
00002f00  6e 25 2d 50 6f 25 2d 31  29 2b 63 68 24 0d 15 f4  |n%-Po%-1)+ch$...|
00002f10  17 e7 20 28 50 6f 25 3e  30 20 80 20 ac 20 a6 2d  |.. (Po%>0 . . .-|
00002f20  31 29 20 8c 0d 15 fe 2d  50 6f 25 2d 3d 31 3a 77  |1) ....-Po%-=1:w|
00002f30  64 24 3d c0 77 64 24 2c  50 6f 25 29 2b c2 77 64  |d$=.wd$,Po%)+.wd|
00002f40  24 2c 6c 65 6e 25 2d 50  6f 25 2d 31 29 2b 63 68  |$,len%-Po%-1)+ch|
00002f50  24 0d 16 08 05 cd 0d 16  12 05 cd 0d 16 1c 25 e7  |$.............%.|
00002f60  20 6b 65 79 3d 31 33 37  20 80 20 50 6f 25 2b 31  | key=137 . Po%+1|
00002f70  3c 6c 65 6e 25 20 8c 20  50 6f 25 2b 3d 28 31 29  |<len% . Po%+=(1)|
00002f80  0d 16 26 1e e7 20 6b 65  79 3d 31 33 36 20 80 20  |..&.. key=136 . |
00002f90  50 6f 25 3e 30 20 8c 20  50 6f 25 2d 3d 31 0d 16  |Po%>0 . Po%-=1..|
00002fa0  30 1a e7 20 28 6b 65 79  3e 33 31 20 80 20 6b 65  |0.. (key>31 . ke|
00002fb0  79 3c 31 32 37 29 20 8c  0d 16 3a 08 4b 25 3d a3  |y<127) ...:.K%=.|
00002fc0  0d 16 44 14 e3 20 6c 70  25 3d 50 6f 25 20 b8 20  |..D.. lp%=Po% . |
00002fd0  6c 65 6e 25 0d 16 4e 27  e7 20 c1 77 64 24 2c 6c  |len%..N'. .wd$,l|
00002fe0  70 25 2c 31 29 3d 63 68  24 20 80 20 50 6f 25 3c  |p%,1)=ch$ . Po%<|
00002ff0  6c 65 6e 25 20 8c 20 4b  25 3d b9 0d 16 58 05 ed  |len% . K%=...X..|
00003000  0d 16 62 0a e7 20 4b 25  20 8c 0d 16 6c 29 77 64  |..b.. K% ...l)wd|
00003010  24 3d c0 77 64 24 2c 50  6f 25 29 2b bd 28 6b 65  |$=.wd$,Po%)+.(ke|
00003020  79 29 2b c2 77 64 24 2c  6c 65 6e 25 2d 50 6f 25  |y)+.wd$,len%-Po%|
00003030  2d 31 29 0d 16 76 0c 50  6f 25 2b 3d 28 31 29 0d  |-1)..v.Po%+=(1).|
00003040  16 80 05 cd 0d 16 8a 05  cd 0d 16 94 14 f1 20 8a  |.............. .|
00003050  77 78 25 2c 77 79 25 29  3b 77 64 24 3b 0d 16 9e  |wx%,wy%);wd$;...|
00003060  0c fd 20 6b 65 79 3d 31  33 0d 16 a8 0b 2a 46 58  |.. key=13....*FX|
00003070  20 34 2c 30 0d 16 b2 08  3d 77 64 24 0d 16 bc 04  | 4,0....=wd$....|
00003080  0d 16 c6 04 0d 16 d0 18  dd 20 f2 67 65 74 6d 6f  |......... .getmo|
00003090  64 65 69 6e 66 6f 28 6d  6f 64 65 29 0d 16 da 18  |deinfo(mode)....|
000030a0  ea 20 78 2c 79 2c 78 65  69 67 2c 79 65 69 67 2c  |. x,y,xeig,yeig,|
000030b0  63 6f 6c 73 0d 16 e4 04  0d 16 ee 31 c8 99 20 22  |cols.......1.. "|
000030c0  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
000030d0  62 6c 65 22 2c 6d 6f 64  65 2c 31 20 b8 20 2c 2c  |ble",mode,1 . ,,|
000030e0  74 65 78 74 63 6f 6c 73  25 0d 16 f8 31 c8 99 20  |textcols%...1.. |
000030f0  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
00003100  61 62 6c 65 22 2c 6d 6f  64 65 2c 32 20 b8 20 2c  |able",mode,2 . ,|
00003110  2c 74 65 78 74 72 6f 77  73 25 0d 17 02 1d 74 65  |,textrows%....te|
00003120  78 74 5f 6d 61 78 6c 6c  65 6e 25 3d 74 65 78 74  |xt_maxllen%=text|
00003130  63 6f 6c 73 25 2d 32 0d  17 0c 2c c8 99 20 22 4f  |cols%-2...,.. "O|
00003140  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
00003150  6c 65 22 2c 6d 6f 64 65  2c 33 20 b8 20 2c 2c 63  |le",mode,3 . ,,c|
00003160  6f 6c 73 0d 17 16 2c c8  99 20 22 4f 53 5f 52 65  |ols...,.. "OS_Re|
00003170  61 64 4d 6f 64 65 56 61  72 69 61 62 6c 65 22 2c  |adModeVariable",|
00003180  6d 6f 64 65 2c 34 20 b8  20 2c 2c 78 65 69 67 0d  |mode,4 . ,,xeig.|
00003190  17 20 2c c8 99 20 22 4f  53 5f 52 65 61 64 4d 6f  |. ,.. "OS_ReadMo|
000031a0  64 65 56 61 72 69 61 62  6c 65 22 2c 6d 6f 64 65  |deVariable",mode|
000031b0  2c 35 20 b8 20 2c 2c 79  65 69 67 0d 17 2a 30 c8  |,5 . ,,yeig..*0.|
000031c0  99 20 22 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  |. "OS_ReadModeVa|
000031d0  72 69 61 62 6c 65 22 2c  6d 6f 64 65 2c 37 20 b8  |riable",mode,7 .|
000031e0  20 2c 2c 73 63 72 6e 73  69 7a 65 0d 17 34 2a c8  | ,,scrnsize..4*.|
000031f0  99 20 22 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  |. "OS_ReadModeVa|
00003200  72 69 61 62 6c 65 22 2c  6d 6f 64 65 2c 31 31 20  |riable",mode,11 |
00003210  b8 20 2c 2c 78 0d 17 3e  2a c8 99 20 22 4f 53 5f  |. ,,x..>*.. "OS_|
00003220  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00003230  22 2c 6d 6f 64 65 2c 31  32 20 b8 20 2c 2c 79 0d  |",mode,12 . ,,y.|
00003240  17 48 2d 73 63 72 77 3d  28 28 78 2b 31 29 3c 3c  |.H-scrw=((x+1)<<|
00003250  78 65 69 67 29 2d 31 3a  73 63 72 68 3d 28 28 79  |xeig)-1:scrh=((y|
00003260  2b 31 29 3c 3c 79 65 69  67 29 2d 31 0d 17 52 05  |+1)<<yeig)-1..R.|
00003270  e1 0d 17 5c 04 0d 17 66  11 dd 20 f2 63 6f 6c 28  |...\...f.. .col(|
00003280  63 6f 6c 6f 72 29 0d 17  70 1e c8 99 20 22 57 69  |color)..p... "Wi|
00003290  6d 70 5f 54 65 78 74 43  6f 6c 6f 75 72 22 2c 63  |mp_TextColour",c|
000032a0  6f 6c 6f 72 0d 17 7a 05  e1 0d 17 84 04 0d 17 8e  |olor..z.........|
000032b0  13 dd 20 f2 6c 6f 61 64  5f 70 61 6c 28 66 24 29  |.. .load_pal(f$)|
000032c0  0d 17 98 0d ea 20 69 6e  25 2c 63 6f 6c 0d 17 a2  |..... in%,col...|
000032d0  0d 69 6e 25 3d 8e 28 66  24 29 0d 17 ac 10 e3 20  |.in%=.(f$)..... |
000032e0  63 6f 6c 3d 30 20 b8 20  31 39 0d 17 b6 51 20 20  |col=0 . 19...Q  |
000032f0  e7 20 63 6f 6c 3c 31 36  20 63 6f 6c 31 3d 63 6f  |. col<16 col1=co|
00003300  6c 3a 63 6f 6c 32 3d 31  36 20 8b 20 e7 20 63 6f  |l:col2=16 . . co|
00003310  6c 3d 31 36 20 63 6f 6c  31 3d 63 6f 6c 3a 63 6f  |l=16 col1=col:co|
00003320  6c 32 3d 32 34 20 8b 20  63 6f 6c 31 3d 63 6f 6c  |l2=24 . col1=col|
00003330  2d 31 36 3a 63 6f 6c 32  3d 32 35 0d 17 c0 1d 20  |-16:col2=25.... |
00003340  20 72 3d 9a 23 69 6e 25  3a 67 3d 9a 23 69 6e 25  | r=.#in%:g=.#in%|
00003350  3a 62 3d 9a 23 69 6e 25  0d 17 ca 1a 20 20 ef 20  |:b=.#in%....  . |
00003360  31 39 2c 63 6f 6c 31 2c  63 6f 6c 32 2c 72 2c 67  |19,col1,col2,r,g|
00003370  2c 62 0d 17 d4 09 ed 20  63 6f 6c 0d 17 de 09 d9  |,b..... col.....|
00003380  23 69 6e 25 0d 17 e8 05  e1 0d 17 f2 04 0d 94 48  |#in%...........H|
00003390  14 dd 20 f2 6c 6f 61 64  5f 63 6f 64 65 28 66 24  |.. .load_code(f$|
000033a0  29 0d 94 52 09 ea 20 69  6e 25 0d 94 5c 12 69 6e  |)..R.. in%..\.in|
000033b0  25 3d 8e 20 66 24 3a d9  23 69 6e 25 0d 94 5d 2c  |%=. f$:.#in%..],|
000033c0  e7 20 69 6e 25 3c 3e 30  20 8c 20 ff 28 22 4c 4f  |. in%<>0 . .("LO|
000033d0  41 44 20 22 2b 66 24 2b  22 20 22 2b c3 7e 75 73  |AD "+f$+" "+.~us|
000033e0  65 72 63 6f 64 65 25 29  0d 94 5e 05 e1 0d ff     |ercode%)..^....|
000033ef