� >!RunImageO
+� (C) 1989 P. Hawthorne/Alpine Software
H� Modified 06.11.91 - Load user code and allow relative entry points
8� Modified 03.06.92 - DEF PROCrun pix start at pix+4
(
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

�

�

�

� mode%:�

"� ----- 30.05.90/6.06.91 -----
&� mode%<>WimpMode �
0ș "Wimp_SetMode",mode%
:ș "Wimp_Initialise"
D�
N� --------------------
X
b1� PICCYload - moved from line 500... 05.12.91
l
v1test1 = �("<Alps$Pictures>LoaderPic"):�#test1
�� test1<>0 �
�.�("SCREENLOAD <Alps$Pictures>LoaderPic"):�
��=0:� � �>500
�
�� I=1 � 33
�� K=1 � 700:� K
�� 23,7,1,3,1,0,0,0,0,0
�� I
�
��
�5� cols<63 � �load_pal("<AlpsGame$Data>.!Palette")
�"*PRINT <AlpsGame$Data>.charset
�
� Load buttons?
� load_buttons �
�
 5� "LOAD <AlpsGame$Resources>buttons "+�~(area%+4)
*!area%=area_size%
4@ș "Wimp_ReadPixTrans",&200,area%,area%+16,0,0,0,scale,pixtr
>:ș "OS_SpriteOp",&234,area%,area%+16,0,0,8,scale,pixtr
H!�28,0,textrows%-5,textcols%,0
R�
\�
f�28,0,textrows%,textcols%,0
p�
z
�
�*FX15,0
�� load_buttons �
�   *POINTER
�   ȗ �
�   ȗ � 550,48
��
�
�� � use_fkeys � � 4:�TlF
�
�in%=�(optionname$)
�choice=�
� � in%<>0 � choice=�load(in%)
� choice � �TlF

�4
$�
.)ș "Wimp_SetColour",131:�col(135):�:�
8/�col(11):�28,1)"FUNCTION KEY DEFINITIONS"'
B�col(15)
Lsm$="You may enter up to twelve extra command strings to be operated by the Archimedes function keys F1 to F12."
V� load_buttons �
`e   m$+=" These command strings are in addition to the commands along the 'button console' below."
j�
t
~ș "OS_PrettyPrint",m$
��'
�nș "OS_PrettyPrint","Note that you can use '|M' to simulate a <RETURN> key being pressed in your command."
�
�  �
�
  *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))
2  � key
<
F  �
P  � load_buttons �
Z5     � SYS "OS_SpriteOp",546,area%,area%+16,0,0,8
d?     ș "OS_SpriteOp",&234,area%,area%+16,0,0,8,scale,pixtr
nC     msg$="Is this OK? Click 'YES' or 'NO' or press 'Y' or 'N'"
x  �
�(     msg$="Is this OK? Press Y or N"
�  �
�  �col(11):�''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):�:ȗ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;
61�col(131):ș "Wimp_SetColour",131:�:�:�col(3)
@
J
T�load_files
^*FX225,1
h�run
r*FX200,0
|
� 26:�
�� 4
�D� mode%<>WimpMode � ș "Wimp_SetMode",WimpMode:� 30.05.90/6.6.91
��"Adventure finished."
��
�
�� �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 �
07   msg$="Click 'YES' or 'NO', or press 'Y' or 'N'."
:�
D   msg$="Press 'Y' or 'N'."
N�
X�'''msg$
b	key=0
l�
v  ȗ 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%:=�
�
�� �ReadInFile(chan%)
�
�� K%=1 � 12
�  �#chan%,key$(K%)
�"  �("KEY "+�(K%)+" "+key$(K%))
��
�
� #chan%
�

 � �WriteOutFile
*
4chan%=� optionname$
>
H� K%=1 � 12
R  �#chan%,key$(K%)
\�
f
p�#chan%
z�
�
�
�� �error
�*POINTER 1
�
ȗ � 1
�
�#ș "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
	.�
	8  �
	B	    �
	L      ȗ X,Y,B
	V
    � B=4
	`  � Y>320 � Y<356
	j
	t� X>560 � X<700 � flag=2
	~� X>360 � X<436 � flag=1
	�
	�� flag=1 � flag=2
	�
	�ș "Wimp_SetColour",0
	�ȓ Ȑ 200,300,width,204
	�	� 4:�
	�ȗ ȓ 0,0,1279,1023
	�
	�� load_buttons � flag=2
	�   ȗ �
	��
	�
	=flag



� �init2
(ș "Wimp_CloseDown"
2minx=32
<width=80
F	y%=72
PX%=minx:Y%=y%
Z$sprites=26:� Number of 'buttons'
drowlen=sprites � 2
nXL=448:XR=XL+255
x
�'� 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
�
�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
69nref_size=2000:� size of nouns object reference table
@-pix_size=1000:� size of pix filename list
J
T@ș "OS_File",5,"<AlpsGame$Data>.Program" � ftype,,,,codesize
^@ș "OS_File",5,"<AlpsGame$Data>.Text"    � ftype,,,,maxtext%
h
rdict_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
�
�*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%
&
0datavalid=�
:
D� Set up the dictionary
N� dict% dict_size
X
b� Set up the program area
l
v� 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
�
�8� pbytes pbyte_size,work% &1100,asicode% codesize+10
�
�(� usercode% ucsize,scale 15,pixtr 15
�run=asicode%
�
�8�("LOAD <AlpsGame$Resources>ASIobjcode "+�~asicode%)

�





 
� �run

*� �

4:err_col=11:�col(130):�col(7):ș "Wimp_SetColour",128+2

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

H!work%=rdata%

Rwork%!4=verbs+3

\work%!8=nouns+3

fwork%!12=program%+4

pwork%!16=text%+7

zwork%!20=dict%+3

�work%!24=odata%

�work%!28=adjects+3

�work%!32=preps+3

�work%!36=conjs+3

�work%!40=specs+3

�work%!44=noise+3

�work%!48=pixs+4

��  work%!52 is reserved

�work%!56=initsave

�work%!60=last_room

�work%!64=last_object+1

�work%!&14c=compress

�work%!&150=usercode%
�
� 24,0;144;scrw;scrh;
�
$�
.+A%=verb_type:B%=nref:C%=aref:D%=ramsave
8-E%=pbytes:F%=work%:G%=area%:H%=area_size%
B	� run
L� �
V�
`
j
t� �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")
�'�load_nrefs("<AlpsGame$Data>.Nref")
�'�load_arefs("<AlpsGame$Data>.Aref")
��
�
�� �load_nouns(file$)
� file$="" �

�error(16,"")
�
� "LOAD "+file$+" "+�~nouns
(obn=?nouns
2(nxtobj=nouns+(nouns?1+256*(nouns?2))
<�
F�
P
Z� �load_verbs(file$)
d� file$="" �
n�error(16,"")
x�
�� "LOAD "+file$+" "+�~verbs
�vbn=?verbs
�(nxtvrb=verbs+(verbs?1+256*(verbs?2))
��
��
�
�� �load_adjects(file$)
�� file$="" �
��error(16,"")
��
�!� "LOAD "+file$+" "+�~adjects
�adn=?adjects
�.nxtadj=adjects+(adjects?1+256*(adjects?2))
�
�

"� �load_preps(file$)
,� file$="" �
6�error(16,"")
@�
J� "LOAD "+file$+" "+�~preps
Tprn=?preps
^(nxtprp=preps+(preps?1+256*(preps?2))
h�
r�
|
�� �load_conj(file$)
�� file$="" �
��error(16,"")
��
�� "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))
0�
:�
D
N� �load_noise(file$)
X� file$="" �
b�error(16,"")
l�
v� "LOAD "+file$+" "+�~noise
�nsn=?noise
�(nxtnsn=noise+(noise?1+256*(noise?2))
��
��
�
�� �load_vtypes(file$)
�� file$="" �
��error(16,"")
��
�#� "LOAD "+file$+" "+�~verb_type
��
��
�
� �load_arefs(file$)
� file$="" �
�error(16,"")
 �
*� "LOAD "+file$+" "+�~aref
4�
>�
H
R� �load_nrefs(file$)
\� file$="" �
f�error(16,"")
p�
z� "LOAD "+file$+" "+�~nref
��
��
�
�� �load_objs(file$)
�� file$="" �
��error(16,"")
��
� � "LOAD "+file$+" "+�~odata%
�optr=odata%?14
�last_object=odata%?15
��
��
�
� �load_rooms(file$)
� file$="" �
�error(16,"")
$�
. � "LOAD "+file$+" "+�~rdata%
8rptr=!rdata% � &FFFF
B'last_room=(!rdata% � &FFFF0000)>>16
L�
V�
`
j� �load_pix(file$)
t� file$="" �
~�error(16,"")
��
�� "LOAD "+file$+" "+�~pixs
�
pxn=?pixs
�%nxtpxn=pixs+(pixs?1+256*(pixs?2))
��
��
�
�� �load_program(file$)
�� file$="" �
��error(16,"")
��
�"� "LOAD "+file$+" "+�~program%
�

�

� �load_text(file$)
(� file$="" �
2�error(16,"")
<�
F� "LOAD "+file$+" "+�~text%
P
mptr=1
Z�
d�
n
x� �load_dict(file$)
�� I%,L%
�� file$="" �
��error(16,"")
��
�� "LOAD "+file$+" "+�~dict%
�tok%=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")
6&�load_code("<AlpsGame$Data>.Code")
@1� "LOAD <AlpsGame$Resources>pbytes "+�~pbytes
J�
T
^� �set_Prefs
h%in%=�("<AlpsGame$Data>.GameData")
rmode%=�#in%
|compress=�#in%
�Jload_buttons=�#in%:� load_buttons<>0 � load_buttons=� � load_buttons=�
�>use_fkeys=�#in%:� use_fkeys<>0 � use_fkeys=� � use_fkeys=�
�	�#in%
��
�
�
�'� �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) �
0.� �-1 � wd$=�wd$,Po%)+�wd$,len%-Po%-1)+ch$
:� (Po%>0 � � �-1) �
D-Po%-=1:wd$=�wd$,Po%)+�wd$,len%-Po%-1)+ch$
N�
X�
b%� key=137 � Po%+1<len% � Po%+=(1)
l� key=136 � Po%>0 � Po%-=1
v� (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
�*FX 4,0
�=wd$


� �getmodeinfo(mode)
 � x,y,xeig,yeig
*
41ș "OS_ReadModeVariable",mode,1 � ,,textcols%
>1ș "OS_ReadModeVariable",mode,2 � ,,textrows%
Htext_maxllen%=textcols%-2
R,ș "OS_ReadModeVariable",mode,3 � ,,cols
\,ș "OS_ReadModeVariable",mode,4 � ,,xeig
f,ș "OS_ReadModeVariable",mode,5 � ,,yeig
p0ș "OS_ReadModeVariable",mode,7 � ,,scrnsize
z*ș "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$)
�� 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%
.�
8
B� �load_code(f$)
L	� in%
Vin%=� f$:�#in%
`,� in%<>0 � �("LOAD "+f$+" "+�~usercode%)
j�
�

00000000  0d 00 0a 11 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  4f 0d 00 14 2b f4 20 28  43 29 20 31 39 38 39 20  |O...+. (C) 1989 |
00000020  50 2e 20 48 61 77 74 68  6f 72 6e 65 2f 41 6c 70  |P. Hawthorne/Alp|
00000030  69 6e 65 20 53 6f 66 74  77 61 72 65 0d 00 1e 48  |ine Software...H|
00000040  f4 20 4d 6f 64 69 66 69  65 64 20 30 36 2e 31 31  |. Modified 06.11|
00000050  2e 39 31 20 2d 20 4c 6f  61 64 20 75 73 65 72 20  |.91 - Load user |
00000060  63 6f 64 65 20 61 6e 64  20 61 6c 6c 6f 77 20 72  |code and allow r|
00000070  65 6c 61 74 69 76 65 20  65 6e 74 72 79 20 70 6f  |elative entry po|
00000080  69 6e 74 73 0d 00 1f 38  f4 20 4d 6f 64 69 66 69  |ints...8. Modifi|
00000090  65 64 20 30 33 2e 30 36  2e 39 32 20 2d 20 44 45  |ed 03.06.92 - DE|
000000a0  46 20 50 52 4f 43 72 75  6e 20 70 69 78 20 73 74  |F PROCrun pix st|
000000b0  61 72 74 20 61 74 20 70  69 78 2b 34 0d 00 28 04  |art at pix+4..(.|
000000c0  0d 00 32 45 ee 20 85 20  65 72 72 66 6c 61 67 3d  |..2E. . errflag=|
000000d0  a4 65 72 72 6f 72 3a e7  20 65 72 72 66 6c 61 67  |.error:. errflag|
000000e0  3d 31 20 8c 20 e0 3a c8  99 20 22 57 69 6d 70 5f  |=1 . .:.. "Wimp_|
000000f0  53 65 74 4d 6f 64 65 22  2c 57 69 6d 70 4d 6f 64  |SetMode",WimpMod|
00000100  65 20 8b 20 f9 0d 00 3c  10 57 69 6d 70 4d 6f 64  |e . ...<.WimpMod|
00000110  65 20 3d 20 eb 0d 00 46  04 0d 00 50 11 de 20 4f  |e = ...F...P.. O|
00000120  53 62 75 66 66 65 72 20  31 30 0d 00 5a 35 c8 99  |Sbuffer 10..Z5..|
00000130  20 22 58 4f 53 5f 52 65  61 64 56 61 72 56 61 6c  | "XOS_ReadVarVal|
00000140  22 2c 22 41 6c 70 73 24  53 68 6f 77 41 64 64 72  |","Alps$ShowAddr|
00000150  65 73 73 22 2c 4f 53 62  75 66 66 65 72 2c 38 0d  |ess",OSbuffer,8.|
00000160  00 64 18 e7 20 3f 4f 53  62 75 66 66 65 72 20 3d  |.d.. ?OSbuffer =|
00000170  20 97 22 31 22 20 8c 0d  00 6e 0f 20 20 20 73 68  | ."1" ...n.   sh|
00000180  6f 77 69 74 3d b9 0d 00  78 05 cc 0d 00 82 0f 20  |owit=...x...... |
00000190  20 20 73 68 6f 77 69 74  3d a3 0d 00 8c 05 cd 0d  |  showit=.......|
000001a0  00 96 36 c8 99 20 22 58  4f 53 5f 52 65 61 64 56  |..6.. "XOS_ReadV|
000001b0  61 72 56 61 6c 22 2c 22  41 6c 70 73 24 4e 6f 4d  |arVal","Alps$NoM|
000001c0  6f 75 73 65 49 6e 70 75  74 22 2c 4f 53 62 75 66  |ouseInput",OSbuf|
000001d0  66 65 72 2c 38 0d 00 a0  18 e7 20 3f 4f 53 62 75  |fer,8..... ?OSbu|
000001e0  66 66 65 72 20 3d 20 97  22 31 22 20 8c 0d 00 aa  |ffer = ."1" ....|
000001f0  15 20 20 20 6c 6f 61 64  5f 62 75 74 74 6f 6e 73  |.   load_buttons|
00000200  3d a3 0d 00 b4 05 cc 0d  00 be 15 20 20 20 6c 6f  |=..........   lo|
00000210  61 64 5f 62 75 74 74 6f  6e 73 3d b9 0d 00 c8 05  |ad_buttons=.....|
00000220  cd 0d 00 d2 04 0d 00 dc  04 0d 00 e6 2c f2 73 65  |............,.se|
00000230  74 5f 50 72 65 66 73 3a  f4 20 73 65 74 20 70 72  |t_Prefs:. set pr|
00000240  65 66 65 72 65 6e 63 65  73 20 28 6d 6f 64 65 20  |eferences (mode |
00000250  65 74 63 2e 29 0d 00 f0  17 f2 67 65 74 6d 6f 64  |etc.).....getmod|
00000260  65 69 6e 66 6f 28 6d 6f  64 65 25 29 0d 00 fa 0a  |einfo(mode%)....|
00000270  f2 69 6e 69 74 32 0d 01  04 04 0d 01 0e 0c 2a 46  |.init2........*F|
00000280  58 32 30 30 2c 31 0d 01  18 04 0d 01 22 0e e7 20  |X200,1......".. |
00000290  73 68 6f 77 69 74 20 8c  0d 01 2c 07 ef 20 37 0d  |showit ...,.. 7.|
000002a0  01 36 26 f1 22 55 73 65  72 20 63 6f 64 65 20 61  |.6&."User code a|
000002b0  64 64 72 65 73 73 3d 20  22 3b 75 73 65 72 63 6f  |ddress= ";userco|
000002c0  64 65 25 3a fa 0d 01 40  05 cd 0d 01 4a 04 0d 01  |de%:...@....J...|
000002d0  54 29 6f 70 74 69 6f 6e  6e 61 6d 65 24 3d 22 3c  |T)optionname$="<|
000002e0  41 6c 70 73 47 61 6d 65  24 44 61 74 61 3e 2e 4f  |AlpsGame$Data>.O|
000002f0  70 74 69 6f 6e 73 22 0d  01 5e 19 62 61 72 66 67  |ptions"..^.barfg|
00000300  63 6f 6c 3d 30 3a 62 61  72 62 67 63 6f 6c 3d 31  |col=0:barbgcol=1|
00000310  0d 01 68 04 0d 01 72 25  de 20 6b 65 79 24 28 31  |..h...r%. key$(1|
00000320  33 29 3a f4 20 46 75 6e  63 74 69 6f 6e 20 6b 65  |3):. Function ke|
00000330  79 20 73 74 72 69 6e 67  73 0d 01 7c 28 de 20 62  |y strings..|(. b|
00000340  61 72 79 28 33 2c 32 29  3a f4 20 72 67 62 20 62  |ary(3,2):. rgb b|
00000350  61 72 20 67 72 61 70 68  20 79 20 63 6f 6f 72 64  |ar graph y coord|
00000360  73 0d 01 86 04 0d 01 90  1b 61 72 65 61 5f 73 69  |s........area_si|
00000370  7a 65 25 3d 73 63 72 6e  73 69 7a 65 2b 31 30 30  |ze%=scrnsize+100|
00000380  0d 01 9a 04 0d 01 a4 32  de 20 61 72 65 61 25 20  |.......2. area% |
00000390  61 72 65 61 5f 73 69 7a  65 25 3a f4 20 53 70 72  |area_size%:. Spr|
000003a0  69 74 65 20 61 72 65 61  20 28 66 6f 72 20 73 63  |ite area (for sc|
000003b0  72 65 65 6e 73 29 0d 01  ae 04 0d 01 b8 0f e3 20  |reens)......... |
000003c0  62 61 72 3d 31 20 b8 20  33 0d 01 c2 3c 20 20 f3  |bar=1 . 3...<  .|
000003d0  20 62 61 72 79 28 62 61  72 2c 31 29 2c 62 61 72  | bary(bar,1),bar|
000003e0  79 28 62 61 72 2c 32 29  3a f4 20 72 65 61 64 20  |y(bar,2):. read |
000003f0  62 6f 74 74 6f 6d 20 61  6e 64 20 74 6f 70 20 63  |bottom and top c|
00000400  6f 6f 72 64 73 0d 01 cc  09 ed 20 62 61 72 0d 01  |oords..... bar..|
00000410  d6 04 0d 01 e0 1d dc 20  34 34 35 2c 34 37 37 2c  |....... 445,477,|
00000420  33 38 36 2c 34 31 38 2c  33 32 37 2c 33 35 39 0d  |386,418,327,359.|
00000430  01 ea 04 0d 01 f4 04 0d  01 fe 04 0d 02 08 0d eb  |................|
00000440  20 6d 6f 64 65 25 3a 87  0d 02 12 04 0d 02 1c 22  | mode%:........"|
00000450  f4 20 2d 2d 2d 2d 2d 20  33 30 2e 30 35 2e 39 30  |. ----- 30.05.90|
00000460  2f 36 2e 30 36 2e 39 31  20 2d 2d 2d 2d 2d 0d 02  |/6.06.91 -----..|
00000470  26 17 e7 20 6d 6f 64 65  25 3c 3e 57 69 6d 70 4d  |&.. mode%<>WimpM|
00000480  6f 64 65 20 8c 0d 02 30  1b c8 99 20 22 57 69 6d  |ode ...0... "Wim|
00000490  70 5f 53 65 74 4d 6f 64  65 22 2c 6d 6f 64 65 25  |p_SetMode",mode%|
000004a0  0d 02 3a 18 c8 99 20 22  57 69 6d 70 5f 49 6e 69  |..:... "Wimp_Ini|
000004b0  74 69 61 6c 69 73 65 22  0d 02 44 05 cd 0d 02 4e  |tialise"..D....N|
000004c0  1a f4 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.. -------------|
000004d0  2d 2d 2d 2d 2d 2d 2d 0d  02 58 04 0d 02 62 31 f4  |-------..X...b1.|
000004e0  20 50 49 43 43 59 6c 6f  61 64 20 2d 20 6d 6f 76  | PICCYload - mov|
000004f0  65 64 20 66 72 6f 6d 20  6c 69 6e 65 20 35 30 30  |ed from line 500|
00000500  2e 2e 2e 20 30 35 2e 31  32 2e 39 31 0d 02 6c 04  |... 05.12.91..l.|
00000510  0d 02 76 31 74 65 73 74  31 20 3d 20 8e 28 22 3c  |..v1test1 = .("<|
00000520  41 6c 70 73 24 50 69 63  74 75 72 65 73 3e 4c 6f  |Alps$Pictures>Lo|
00000530  61 64 65 72 50 69 63 22  29 3a d9 23 74 65 73 74  |aderPic"):.#test|
00000540  31 0d 02 80 10 e7 20 74  65 73 74 31 3c 3e 30 20  |1..... test1<>0 |
00000550  8c 0d 02 8a 2e ff 28 22  53 43 52 45 45 4e 4c 4f  |......("SCREENLO|
00000560  41 44 20 3c 41 6c 70 73  24 50 69 63 74 75 72 65  |AD <Alps$Picture|
00000570  73 3e 4c 6f 61 64 65 72  50 69 63 22 29 3a 87 0d  |s>LoaderPic"):..|
00000580  02 94 11 d1 3d 30 3a f5  20 fd 20 91 3e 35 30 30  |....=0:. . .>500|
00000590  0d 02 9e 04 0d 02 a8 0e  e3 20 49 3d 31 20 b8 20  |......... I=1 . |
000005a0  33 33 0d 02 b2 13 e3 20  4b 3d 31 20 b8 20 37 30  |33..... K=1 . 70|
000005b0  30 3a ed 20 4b 0d 02 bc  1a ef 20 32 33 2c 37 2c  |0:. K..... 23,7,|
000005c0  31 2c 33 2c 31 2c 30 2c  30 2c 30 2c 30 2c 30 0d  |1,3,1,0,0,0,0,0.|
000005d0  02 c6 07 ed 20 49 0d 02  d0 04 0d 02 da 05 cd 0d  |.... I..........|
000005e0  02 e4 35 e7 20 63 6f 6c  73 3c 36 33 20 8c 20 f2  |..5. cols<63 . .|
000005f0  6c 6f 61 64 5f 70 61 6c  28 22 3c 41 6c 70 73 47  |load_pal("<AlpsG|
00000600  61 6d 65 24 44 61 74 61  3e 2e 21 50 61 6c 65 74  |ame$Data>.!Palet|
00000610  74 65 22 29 0d 02 ee 22  2a 50 52 49 4e 54 20 3c  |te")..."*PRINT <|
00000620  41 6c 70 73 47 61 6d 65  24 44 61 74 61 3e 2e 63  |AlpsGame$Data>.c|
00000630  68 61 72 73 65 74 0d 02  f8 04 0d 03 02 13 f4 20  |harset......... |
00000640  4c 6f 61 64 20 62 75 74  74 6f 6e 73 3f 0d 03 0c  |Load buttons?...|
00000650  14 e7 20 6c 6f 61 64 5f  62 75 74 74 6f 6e 73 20  |.. load_buttons |
00000660  8c 0d 03 16 05 db 0d 03  20 35 ff 20 22 4c 4f 41  |........ 5. "LOA|
00000670  44 20 3c 41 6c 70 73 47  61 6d 65 24 52 65 73 6f  |D <AlpsGame$Reso|
00000680  75 72 63 65 73 3e 62 75  74 74 6f 6e 73 20 22 2b  |urces>buttons "+|
00000690  c3 7e 28 61 72 65 61 25  2b 34 29 0d 03 2a 15 21  |.~(area%+4)..*.!|
000006a0  61 72 65 61 25 3d 61 72  65 61 5f 73 69 7a 65 25  |area%=area_size%|
000006b0  0d 03 34 40 c8 99 20 22  57 69 6d 70 5f 52 65 61  |..4@.. "Wimp_Rea|
000006c0  64 50 69 78 54 72 61 6e  73 22 2c 26 32 30 30 2c  |dPixTrans",&200,|
000006d0  61 72 65 61 25 2c 61 72  65 61 25 2b 31 36 2c 30  |area%,area%+16,0|
000006e0  2c 30 2c 30 2c 73 63 61  6c 65 2c 70 69 78 74 72  |,0,0,scale,pixtr|
000006f0  0d 03 3e 3a c8 99 20 22  4f 53 5f 53 70 72 69 74  |..>:.. "OS_Sprit|
00000700  65 4f 70 22 2c 26 32 33  34 2c 61 72 65 61 25 2c  |eOp",&234,area%,|
00000710  61 72 65 61 25 2b 31 36  2c 30 2c 30 2c 38 2c 73  |area%+16,0,0,8,s|
00000720  63 61 6c 65 2c 70 69 78  74 72 0d 03 48 21 ef 32  |cale,pixtr..H!.2|
00000730  38 2c 30 2c 74 65 78 74  72 6f 77 73 25 2d 35 2c  |8,0,textrows%-5,|
00000740  74 65 78 74 63 6f 6c 73  25 2c 30 0d 03 52 05 cc  |textcols%,0..R..|
00000750  0d 03 5c 05 db 0d 03 66  1f ef 32 38 2c 30 2c 74  |..\....f..28,0,t|
00000760  65 78 74 72 6f 77 73 25  2c 74 65 78 74 63 6f 6c  |extrows%,textcol|
00000770  73 25 2c 30 0d 03 70 05  cd 0d 03 7a 04 0d 03 84  |s%,0..p....z....|
00000780  04 0d 03 8e 0b 2a 46 58  31 35 2c 30 0d 03 98 14  |.....*FX15,0....|
00000790  e7 20 6c 6f 61 64 5f 62  75 74 74 6f 6e 73 20 8c  |. load_buttons .|
000007a0  0d 03 a2 0f 20 20 20 2a  50 4f 49 4e 54 45 52 0d  |....   *POINTER.|
000007b0  03 ac 0b 20 20 20 c8 97  20 ee 0d 03 b6 12 20 20  |...   .. .....  |
000007c0  20 c8 97 20 b8 20 35 35  30 2c 34 38 0d 03 c0 05  | .. . 550,48....|
000007d0  cd 0d 03 ca 04 0d 03 d4  1d e7 20 ac 20 75 73 65  |.......... . use|
000007e0  5f 66 6b 65 79 73 20 8c  20 ef 20 34 3a e5 8d 54  |_fkeys . . 4:..T|
000007f0  6c 46 0d 03 de 04 0d 03  e8 16 69 6e 25 3d 8e 28  |lF........in%=.(|
00000800  6f 70 74 69 6f 6e 6e 61  6d 65 24 29 0d 03 f2 0c  |optionname$)....|
00000810  63 68 6f 69 63 65 3d a3  0d 03 fc 20 e7 20 69 6e  |choice=.... . in|
00000820  25 3c 3e 30 20 8c 20 63  68 6f 69 63 65 3d a4 6c  |%<>0 . choice=.l|
00000830  6f 61 64 28 69 6e 25 29  0d 04 06 13 e7 20 63 68  |oad(in%)..... ch|
00000840  6f 69 63 65 20 e5 20 8d  54 6c 46 0d 04 10 04 0d  |oice . .TlF.....|
00000850  04 1a 06 ef 34 0d 04 24  05 f5 0d 04 2e 29 c8 99  |....4..$.....)..|
00000860  20 22 57 69 6d 70 5f 53  65 74 43 6f 6c 6f 75 72  | "Wimp_SetColour|
00000870  22 2c 31 33 31 3a f2 63  6f 6c 28 31 33 35 29 3a  |",131:.col(135):|
00000880  db 3a ee 0d 04 38 2f f2  63 6f 6c 28 31 31 29 3a  |.:...8/.col(11):|
00000890  f1 8a 32 38 2c 31 29 22  46 55 4e 43 54 49 4f 4e  |..28,1)"FUNCTION|
000008a0  20 4b 45 59 20 44 45 46  49 4e 49 54 49 4f 4e 53  | KEY DEFINITIONS|
000008b0  22 27 0d 04 42 0c f2 63  6f 6c 28 31 35 29 0d 04  |"'..B..col(15)..|
000008c0  4c 73 6d 24 3d 22 59 6f  75 20 6d 61 79 20 65 6e  |Lsm$="You may en|
000008d0  74 65 72 20 75 70 20 74  6f 20 74 77 65 6c 76 65  |ter up to twelve|
000008e0  20 65 78 74 72 61 20 63  6f 6d 6d 61 6e 64 20 73  | extra command s|
000008f0  74 72 69 6e 67 73 20 74  6f 20 62 65 20 6f 70 65  |trings to be ope|
00000900  72 61 74 65 64 20 62 79  20 74 68 65 20 41 72 63  |rated by the Arc|
00000910  68 69 6d 65 64 65 73 20  66 75 6e 63 74 69 6f 6e  |himedes function|
00000920  20 6b 65 79 73 20 46 31  20 74 6f 20 46 31 32 2e  | keys F1 to F12.|
00000930  22 0d 04 56 14 e7 20 6c  6f 61 64 5f 62 75 74 74  |"..V.. load_butt|
00000940  6f 6e 73 20 8c 0d 04 60  65 20 20 20 6d 24 2b 3d  |ons ...`e   m$+=|
00000950  22 20 54 68 65 73 65 20  63 6f 6d 6d 61 6e 64 20  |" These command |
00000960  73 74 72 69 6e 67 73 20  61 72 65 20 69 6e 20 61  |strings are in a|
00000970  64 64 69 74 69 6f 6e 20  74 6f 20 74 68 65 20 63  |ddition to the c|
00000980  6f 6d 6d 61 6e 64 73 20  61 6c 6f 6e 67 20 74 68  |ommands along th|
00000990  65 20 27 62 75 74 74 6f  6e 20 63 6f 6e 73 6f 6c  |e 'button consol|
000009a0  65 27 20 62 65 6c 6f 77  2e 22 0d 04 6a 05 cd 0d  |e' below."..j...|
000009b0  04 74 04 0d 04 7e 1a c8  99 20 22 4f 53 5f 50 72  |.t...~... "OS_Pr|
000009c0  65 74 74 79 50 72 69 6e  74 22 2c 6d 24 0d 04 88  |ettyPrint",m$...|
000009d0  06 f1 27 0d 04 92 6e c8  99 20 22 4f 53 5f 50 72  |..'...n.. "OS_Pr|
000009e0  65 74 74 79 50 72 69 6e  74 22 2c 22 4e 6f 74 65  |ettyPrint","Note|
000009f0  20 74 68 61 74 20 79 6f  75 20 63 61 6e 20 75 73  | that you can us|
00000a00  65 20 27 7c 4d 27 20 74  6f 20 73 69 6d 75 6c 61  |e '|M' to simula|
00000a10  74 65 20 61 20 3c 52 45  54 55 52 4e 3e 20 6b 65  |te a <RETURN> ke|
00000a20  79 20 62 65 69 6e 67 20  70 72 65 73 73 65 64 20  |y being pressed |
00000a30  69 6e 20 79 6f 75 72 20  63 6f 6d 6d 61 6e 64 2e  |in your command.|
00000a40  22 0d 04 9c 04 0d 04 a6  07 20 20 f1 0d 04 b0 0d  |"........  .....|
00000a50  20 20 2a 46 58 32 31 2c  30 0d 04 ba 04 0d 04 c4  |  *FX21,0.......|
00000a60  12 20 20 e3 20 6b 65 79  3d 31 20 b8 20 31 32 0d  |.  . key=1 . 12.|
00000a70  04 ce 10 20 20 20 20 f2  63 6f 6c 28 31 34 29 0d  |...    .col(14).|
00000a80  04 d8 2b 20 20 20 20 f1  8a 32 2c 6b 65 79 2b 31  |..+    ..2,key+1|
00000a90  30 29 3b 22 53 74 72 69  6e 67 20 66 6f 72 20 46  |0);"String for F|
00000aa0  22 3b 6b 65 79 3b 22 3a  22 3b 0d 04 e2 10 20 20  |";key;":";....  |
00000ab0  20 20 f2 63 6f 6c 28 31  32 29 0d 04 ec 38 20 20  |  .col(12)...8  |
00000ac0  20 20 6b 65 79 24 28 6b  65 79 29 3d a4 65 6e 74  |  key$(key)=.ent|
00000ad0  65 72 5f 77 6f 72 64 28  36 30 2c 22 20 22 2c c4  |er_word(60," ",.|
00000ae0  36 30 2c 22 20 22 29 2c  31 37 2c 6b 65 79 2b 31  |60," "),17,key+1|
00000af0  30 29 0d 04 f6 43 20 20  20 20 f4 20 3e 3e 3e 3e  |0)...C    . >>>>|
00000b00  3e 3e 3e 3e 20 73 63 72  61 70 20 61 6c 6c 20 74  |>>>> scrap all t|
00000b10  68 65 20 73 70 61 63 65  73 20 6f 6e 20 74 68 65  |he spaces on the|
00000b20  20 72 68 73 20 62 61 72  20 6f 6e 65 20 3c 3c 3c  | rhs bar one <<<|
00000b30  3c 3c 3c 3c 3c 0d 05 00  1c 20 20 20 20 c8 95 20  |<<<<<....    .. |
00000b40  c2 6b 65 79 24 28 6b 65  79 29 2c 31 29 3d 22 20  |.key$(key),1)=" |
00000b50  22 0d 05 0a 30 20 20 20  20 20 20 20 6b 65 79 24  |"...0       key$|
00000b60  28 6b 65 79 29 3d c0 6b  65 79 24 28 6b 65 79 29  |(key)=.key$(key)|
00000b70  2c 20 a9 28 6b 65 79 24  28 6b 65 79 29 29 2d 31  |, .(key$(key))-1|
00000b80  29 0d 05 14 09 20 20 20  20 ce 0d 05 1e 23 20 20  |)....    ....#  |
00000b90  20 20 6b 65 79 24 28 6b  65 79 29 20 3d 20 6b 65  |  key$(key) = ke|
00000ba0  79 24 28 6b 65 79 29 20  2b 20 22 20 22 0d 05 28  |y$(key) + " "..(|
00000bb0  23 20 20 20 20 ff 28 22  4b 45 59 22 2b c3 6b 65  |#    .("KEY"+.ke|
00000bc0  79 2b 22 20 22 2b 6b 65  79 24 28 6b 65 79 29 29  |y+" "+key$(key))|
00000bd0  0d 05 32 0b 20 20 ed 20  6b 65 79 0d 05 3c 04 0d  |..2.  . key..<..|
00000be0  05 46 07 20 20 87 0d 05  50 16 20 20 e7 20 6c 6f  |.F.  ...P.  . lo|
00000bf0  61 64 5f 62 75 74 74 6f  6e 73 20 8c 0d 05 5a 35  |ad_buttons ...Z5|
00000c00  20 20 20 20 20 f4 20 53  59 53 20 22 4f 53 5f 53  |     . SYS "OS_S|
00000c10  70 72 69 74 65 4f 70 22  2c 35 34 36 2c 61 72 65  |priteOp",546,are|
00000c20  61 25 2c 61 72 65 61 25  2b 31 36 2c 30 2c 30 2c  |a%,area%+16,0,0,|
00000c30  38 0d 05 64 3f 20 20 20  20 20 c8 99 20 22 4f 53  |8..d?     .. "OS|
00000c40  5f 53 70 72 69 74 65 4f  70 22 2c 26 32 33 34 2c  |_SpriteOp",&234,|
00000c50  61 72 65 61 25 2c 61 72  65 61 25 2b 31 36 2c 30  |area%,area%+16,0|
00000c60  2c 30 2c 38 2c 73 63 61  6c 65 2c 70 69 78 74 72  |,0,8,scale,pixtr|
00000c70  0d 05 6e 43 20 20 20 20  20 6d 73 67 24 3d 22 49  |..nC     msg$="I|
00000c80  73 20 74 68 69 73 20 4f  4b 3f 20 43 6c 69 63 6b  |s this OK? Click|
00000c90  20 27 59 45 53 27 20 6f  72 20 27 4e 4f 27 20 6f  | 'YES' or 'NO' o|
00000ca0  72 20 70 72 65 73 73 20  27 59 27 20 6f 72 20 27  |r press 'Y' or '|
00000cb0  4e 27 22 0d 05 78 07 20  20 cc 0d 05 82 28 20 20  |N'"..x.  ....(  |
00000cc0  20 20 20 6d 73 67 24 3d  22 49 73 20 74 68 69 73  |   msg$="Is this|
00000cd0  20 4f 4b 3f 20 50 72 65  73 73 20 59 20 6f 72 20  | OK? Press Y or |
00000ce0  4e 22 0d 05 8c 07 20 20  cd 0d 05 96 16 20 20 f2  |N"....  .....  .|
00000cf0  63 6f 6c 28 31 31 29 3a  f1 27 27 6d 73 67 24 0d  |col(11):.''msg$.|
00000d00  05 a0 0b 20 20 6b 65 79  3d 30 0d 05 aa 04 0d 05  |...  key=0......|
00000d10  b4 1b 20 20 f5 3a c8 97  20 58 25 2c 59 25 2c 42  |..  .:.. X%,Y%,B|
00000d20  25 3a 41 24 3d bf 28 30  29 0d 05 be 1f 20 20 e7  |%:A$=.(0)....  .|
00000d30  20 41 24 3d 22 59 22 20  84 20 41 24 3d 22 79 22  | A$="Y" . A$="y"|
00000d40  20 8c 20 6b 65 79 3d 37  0d 05 c8 1f 20 20 e7 20  | . key=7....  . |
00000d50  41 24 3d 22 4e 22 20 84  20 41 24 3d 22 6e 22 20  |A$="N" . A$="n" |
00000d60  8c 20 6b 65 79 3d 38 0d  05 d2 40 20 20 20 20 e7  |. key=8...@    .|
00000d70  20 42 25 3d 34 20 80 20  6c 6f 61 64 5f 62 75 74  | B%=4 . load_but|
00000d80  74 6f 6e 73 3a f2 69 6e  28 58 25 2c 59 25 2c 6b  |tons:.in(X%,Y%,k|
00000d90  65 79 29 3a f5 3a c8 97  58 25 2c 59 25 2c 42 25  |ey):.:..X%,Y%,B%|
00000da0  3a fd 20 42 25 3d 30 0d  05 dc 15 20 20 fd 20 6b  |:. B%=0....  . k|
00000db0  65 79 3d 37 20 84 20 6b  65 79 3d 38 0d 05 e6 04  |ey=7 . key=8....|
00000dc0  0d 05 f0 0b fd 20 6b 65  79 3d 37 0d 05 fa 04 0d  |..... key=7.....|
00000dd0  06 04 05 db 0d 06 0e 51  f2 57 72 69 74 65 4f 75  |.......Q.WriteOu|
00000de0  74 46 69 6c 65 3a f2 63  6f 6c 28 30 29 3a f1 27  |tFile:.col(0):.'|
00000df0  27 22 54 68 65 73 65 20  66 75 6e 63 74 69 6f 6e  |'"These function|
00000e00  20 6b 65 79 73 20 68 61  76 65 20 62 65 65 6e 20  | keys have been |
00000e10  73 61 76 65 64 20 66 6f  72 20 66 75 74 75 72 65  |saved for future|
00000e20  20 75 73 65 22 0d 06 18  04 0d 06 22 0c 41 3d a6  | use"......".A=.|
00000e30  28 32 30 30 29 0d 06 2c  19 ef 20 32 34 2c 30 3b  |(200)..,.. 24,0;|
00000e40  31 34 34 3b 73 63 72 77  3b 73 63 72 68 3b 0d 06  |144;scrw;scrh;..|
00000e50  36 31 f2 63 6f 6c 28 31  33 31 29 3a c8 99 20 22  |61.col(131):.. "|
00000e60  57 69 6d 70 5f 53 65 74  43 6f 6c 6f 75 72 22 2c  |Wimp_SetColour",|
00000e70  31 33 31 3a da 3a db 3a  f2 63 6f 6c 28 33 29 0d  |131:.:.:.col(3).|
00000e80  06 40 04 0d 06 4a 04 0d  06 54 0f f2 6c 6f 61 64  |.@...J...T..load|
00000e90  5f 66 69 6c 65 73 0d 06  5e 0c 2a 46 58 32 32 35  |_files..^.*FX225|
00000ea0  2c 31 0d 06 68 08 f2 72  75 6e 0d 06 72 0c 2a 46  |,1..h..run..r.*F|
00000eb0  58 32 30 30 2c 30 0d 06  7c 0a ef 20 32 36 3a db  |X200,0..|.. 26:.|
00000ec0  0d 06 86 07 ef 20 34 0d  06 90 44 e7 20 6d 6f 64  |..... 4...D. mod|
00000ed0  65 25 3c 3e 57 69 6d 70  4d 6f 64 65 20 8c 20 c8  |e%<>WimpMode . .|
00000ee0  99 20 22 57 69 6d 70 5f  53 65 74 4d 6f 64 65 22  |. "Wimp_SetMode"|
00000ef0  2c 57 69 6d 70 4d 6f 64  65 3a f4 20 33 30 2e 30  |,WimpMode:. 30.0|
00000f00  35 2e 39 30 2f 36 2e 36  2e 39 31 0d 06 9a 1a f1  |5.90/6.6.91.....|
00000f10  22 41 64 76 65 6e 74 75  72 65 20 66 69 6e 69 73  |"Adventure finis|
00000f20  68 65 64 2e 22 0d 06 a4  05 e0 0d 06 ae 04 0d 06  |hed."...........|
00000f30  b8 16 dd 20 f2 69 6e 28  58 25 2c 59 25 2c f8 20  |... .in(X%,Y%,. |
00000f40  63 6f 6d 29 0d 06 c2 10  63 6f 6d 3d 30 3a 72 6f  |com)....com=0:ro|
00000f50  77 3d 39 39 0d 06 cc 1a  e7 20 59 25 3e 37 39 20  |w=99..... Y%>79 |
00000f60  80 20 59 25 3c 31 32 35  20 72 6f 77 3d 31 0d 06  |. Y%<125 row=1..|
00000f70  d6 18 e7 20 59 25 3e 30  20 80 20 59 25 3c 35 31  |... Y%>0 . Y%<51|
00000f80  20 72 6f 77 3d 30 0d 06  e0 1f 63 6f 6c 3d 28 58  | row=0....col=(X|
00000f90  25 2d 6d 69 6e 78 29 20  81 20 28 77 69 64 74 68  |%-minx) . (width|
00000fa0  29 20 2b 20 31 0d 06 ea  26 e7 20 63 6f 6c 3c 3d  |) + 1...&. col<=|
00000fb0  72 6f 77 6c 65 6e 20 8c  20 63 6f 6d 3d 63 6f 6c  |rowlen . com=col|
00000fc0  2b 72 6f 77 6c 65 6e 2a  72 6f 77 0d 06 f4 05 e1  |+rowlen*row.....|
00000fd0  0d 06 fe 04 0d 07 08 10  dd 20 a4 6c 6f 61 64 28  |......... .load(|
00000fe0  69 6e 25 29 0d 07 12 06  ef 34 0d 07 1c 49 f2 63  |in%).....4...I.c|
00000ff0  6f 6c 28 37 29 3a f2 63  6f 6c 28 31 33 31 29 3a  |ol(7):.col(131):|
00001000  db 3a f1 8a 30 2c 35 29  3b 22 20 4c 6f 61 64 20  |.:..0,5);" Load |
00001010  79 6f 75 72 20 73 61 76  65 64 20 66 75 6e 63 74  |your saved funct|
00001020  69 6f 6e 20 6b 65 79 20  73 65 74 74 69 6e 67 73  |ion key settings|
00001030  3f 20 22 0d 07 26 14 e7  20 6c 6f 61 64 5f 62 75  |? "..&.. load_bu|
00001040  74 74 6f 6e 73 20 8c 0d  07 30 37 20 20 20 6d 73  |ttons ...07   ms|
00001050  67 24 3d 22 43 6c 69 63  6b 20 27 59 45 53 27 20  |g$="Click 'YES' |
00001060  6f 72 20 27 4e 4f 27 2c  20 6f 72 20 70 72 65 73  |or 'NO', or pres|
00001070  73 20 27 59 27 20 6f 72  20 27 4e 27 2e 22 0d 07  |s 'Y' or 'N'."..|
00001080  3a 05 cc 0d 07 44 1f 20  20 20 6d 73 67 24 3d 22  |:....D.   msg$="|
00001090  50 72 65 73 73 20 27 59  27 20 6f 72 20 27 4e 27  |Press 'Y' or 'N'|
000010a0  2e 22 0d 07 4e 05 cd 0d  07 58 0c f1 27 27 27 6d  |."..N....X..'''m|
000010b0  73 67 24 0d 07 62 09 6b  65 79 3d 30 0d 07 6c 05  |sg$..b.key=0..l.|
000010c0  f5 0d 07 76 19 20 20 c8  97 20 58 25 2c 59 25 2c  |...v.  .. X%,Y%,|
000010d0  42 25 3a 41 24 3d bf 28  30 29 0d 07 80 1f 20 20  |B%:A$=.(0)....  |
000010e0  e7 20 41 24 3d 22 59 22  20 84 20 41 24 3d 22 79  |. A$="Y" . A$="y|
000010f0  22 20 8c 20 6b 65 79 3d  37 0d 07 8a 1f 20 20 e7  |" . key=7....  .|
00001100  20 41 24 3d 22 4e 22 20  84 20 41 24 3d 22 6e 22  | A$="N" . A$="n"|
00001110  20 8c 20 6b 65 79 3d 38  0d 07 94 2a 20 20 e7 20  | . key=8...*  . |
00001120  42 25 3d 34 20 80 20 6c  6f 61 64 5f 62 75 74 74  |B%=4 . load_butt|
00001130  6f 6e 73 3a f2 69 6e 28  58 25 2c 59 25 2c 6b 65  |ons:.in(X%,Y%,ke|
00001140  79 29 0d 07 9e 13 fd 20  6b 65 79 3d 37 20 84 20  |y)..... key=7 . |
00001150  6b 65 79 3d 38 0d 07 a8  2a e7 20 6b 65 79 3d 37  |key=8...*. key=7|
00001160  20 f2 52 65 61 64 49 6e  46 69 6c 65 28 69 6e 25  | .ReadInFile(in%|
00001170  29 3a 3d b9 20 8b 20 d9  23 69 6e 25 3a 3d a3 0d  |):=. . .#in%:=..|
00001180  07 b2 04 0d 07 bc 18 dd  20 f2 52 65 61 64 49 6e  |........ .ReadIn|
00001190  46 69 6c 65 28 63 68 61  6e 25 29 0d 07 c6 04 0d  |File(chan%).....|
000011a0  07 d0 0f e3 20 4b 25 3d  31 20 b8 20 31 32 0d 07  |.... K%=1 . 12..|
000011b0  da 16 20 20 e8 23 63 68  61 6e 25 2c 6b 65 79 24  |..  .#chan%,key$|
000011c0  28 4b 25 29 0d 07 e4 22  20 20 ff 28 22 4b 45 59  |(K%)..."  .("KEY|
000011d0  20 22 2b c3 28 4b 25 29  2b 22 20 22 2b 6b 65 79  | "+.(K%)+" "+key|
000011e0  24 28 4b 25 29 29 0d 07  ee 05 ed 0d 07 f8 04 0d  |$(K%))..........|
000011f0  08 02 0c d9 20 23 63 68  61 6e 25 0d 08 0c 05 e1  |.... #chan%.....|
00001200  0d 08 16 04 0d 08 20 13  dd 20 f2 57 72 69 74 65  |...... .. .Write|
00001210  4f 75 74 46 69 6c 65 0d  08 2a 04 0d 08 34 17 63  |OutFile..*...4.c|
00001220  68 61 6e 25 3d ae 20 6f  70 74 69 6f 6e 6e 61 6d  |han%=. optionnam|
00001230  65 24 0d 08 3e 04 0d 08  48 0f e3 20 4b 25 3d 31  |e$..>...H.. K%=1|
00001240  20 b8 20 31 32 0d 08 52  16 20 20 f1 23 63 68 61  | . 12..R.  .#cha|
00001250  6e 25 2c 6b 65 79 24 28  4b 25 29 0d 08 5c 05 ed  |n%,key$(K%)..\..|
00001260  0d 08 66 04 0d 08 70 0b  d9 23 63 68 61 6e 25 0d  |..f...p..#chan%.|
00001270  08 7a 05 e1 0d 08 84 04  0d 08 8e 04 0d 08 98 0c  |.z..............|
00001280  dd 20 a4 65 72 72 6f 72  0d 08 a2 0e 2a 50 4f 49  |. .error....*POI|
00001290  4e 54 45 52 20 31 0d 08  ac 0a c8 97 20 ee 20 31  |NTER 1...... . 1|
000012a0  0d 08 b6 04 0d 08 c0 23  c8 99 20 22 57 69 6d 70  |.......#.. "Wimp|
000012b0  5f 53 65 74 43 6f 6c 6f  75 72 22 2c 31 3a 77 69  |_SetColour",1:wi|
000012c0  64 74 68 3d 37 30 30 0d  08 ca 25 72 65 70 6f 72  |dth=700...%repor|
000012d0  74 77 69 64 74 68 3d 28  a9 28 f6 24 29 2b a9 28  |twidth=(.(.$)+.(|
000012e0  c3 28 9e 29 29 2b 31 32  29 2a 31 36 0d 08 d4 2b  |.(.))+12)*16...+|
000012f0  e7 20 77 69 64 74 68 3c  72 65 70 6f 72 74 77 69  |. width<reportwi|
00001300  64 74 68 20 8c 20 77 69  64 74 68 3d 72 65 70 6f  |dth . width=repo|
00001310  72 74 77 69 64 74 68 0d  08 de 1b c8 93 20 c8 90  |rtwidth...... ..|
00001320  20 32 30 30 2c 33 30 30  2c 77 69 64 74 68 2c 32  | 200,300,width,2|
00001330  30 34 0d 08 e8 1b c8 97  20 c8 93 20 32 30 30 2c  |04...... .. 200,|
00001340  33 30 30 2c 77 69 64 74  68 2c 32 30 34 0d 08 f2  |300,width,204...|
00001350  43 c8 99 20 22 57 69 6d  70 5f 53 65 74 43 6f 6c  |C.. "Wimp_SetCol|
00001360  6f 75 72 22 2c 37 3a ef  20 35 3a ec 20 32 31 36  |our",7:. 5:. 216|
00001370  2c 34 35 30 3a f1 22 53  79 73 74 65 6d 20 72 65  |,450:."System re|
00001380  70 6f 72 74 73 20 61 6e  20 65 72 72 6f 72 3a 22  |ports an error:"|
00001390  0d 08 fc 2a ec 20 32 31  36 2c 34 30 30 3a f1 20  |...*. 216,400:. |
000013a0  f6 24 3b 3a e7 20 9e 3e  30 20 8c 20 f1 22 20 61  |.$;:. .>0 . ." a|
000013b0  74 20 6c 69 6e 65 20 22  3b 9e 0d 09 06 5a c8 99  |t line ";....Z..|
000013c0  20 22 57 69 6d 70 5f 53  65 74 43 6f 6c 6f 75 72  | "Wimp_SetColour|
000013d0  22 2c 33 3a c8 93 20 c8  90 20 35 36 30 2c 33 32  |",3:.. .. 560,32|
000013e0  30 2c 31 34 30 2c 33 32  3a ec 20 35 36 38 2c 33  |0,140,32:. 568,3|
000013f0  34 38 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 43  |48:.. "Wimp_SetC|
00001400  6f 6c 6f 75 72 22 2c 37  3a f1 22 43 4f 4e 54 49  |olour",7:."CONTI|
00001410  4e 55 45 22 0d 09 10 55  c8 99 20 22 57 69 6d 70  |NUE"...U.. "Wimp|
00001420  5f 53 65 74 43 6f 6c 6f  75 72 22 2c 33 3a c8 93  |_SetColour",3:..|
00001430  20 c8 90 20 33 36 30 2c  33 32 30 2c 37 36 2c 33  | .. 360,320,76,3|
00001440  32 3a ec 20 33 36 38 2c  33 34 38 3a c8 99 20 22  |2:. 368,348:.. "|
00001450  57 69 6d 70 5f 53 65 74  43 6f 6c 6f 75 72 22 2c  |Wimp_SetColour",|
00001460  37 3a f1 22 51 55 49 54  22 0d 09 1a 04 0d 09 24  |7:."QUIT"......$|
00001470  0a 66 6c 61 67 3d 30 0d  09 2e 05 f5 0d 09 38 07  |.flag=0.......8.|
00001480  20 20 f5 0d 09 42 09 20  20 20 20 f5 0d 09 4c 12  |  ...B.    ...L.|
00001490  20 20 20 20 20 20 c8 97  20 58 2c 59 2c 42 0d 09  |      .. X,Y,B..|
000014a0  56 0d 20 20 20 20 fd 20  42 3d 34 0d 09 60 15 20  |V.    . B=4..`. |
000014b0  20 fd 20 59 3e 33 32 30  20 80 20 59 3c 33 35 36  | . Y>320 . Y<356|
000014c0  0d 09 6a 04 0d 09 74 1c  e7 20 58 3e 35 36 30 20  |..j...t.. X>560 |
000014d0  80 20 58 3c 37 30 30 20  8c 20 66 6c 61 67 3d 32  |. X<700 . flag=2|
000014e0  0d 09 7e 1c e7 20 58 3e  33 36 30 20 80 20 58 3c  |..~.. X>360 . X<|
000014f0  34 33 36 20 8c 20 66 6c  61 67 3d 31 0d 09 88 04  |436 . flag=1....|
00001500  0d 09 92 15 fd 20 66 6c  61 67 3d 31 20 84 20 66  |..... flag=1 . f|
00001510  6c 61 67 3d 32 0d 09 9c  04 0d 09 a6 19 c8 99 20  |lag=2.......... |
00001520  22 57 69 6d 70 5f 53 65  74 43 6f 6c 6f 75 72 22  |"Wimp_SetColour"|
00001530  2c 30 0d 09 b0 1b c8 93  20 c8 90 20 32 30 30 2c  |,0...... .. 200,|
00001540  33 30 30 2c 77 69 64 74  68 2c 32 30 34 0d 09 ba  |300,width,204...|
00001550  09 ef 20 34 3a 87 0d 09  c4 17 c8 97 20 c8 93 20  |.. 4:....... .. |
00001560  30 2c 30 2c 31 32 37 39  2c 31 30 32 33 0d 09 ce  |0,0,1279,1023...|
00001570  04 0d 09 d8 1b e7 20 6c  6f 61 64 5f 62 75 74 74  |...... load_butt|
00001580  6f 6e 73 20 80 20 66 6c  61 67 3d 32 0d 09 e2 0b  |ons . flag=2....|
00001590  20 20 20 c8 97 20 87 0d  09 ec 05 cd 0d 09 f6 04  |   .. ..........|
000015a0  0d 0a 00 09 3d 66 6c 61  67 0d 0a 0a 04 0d 0a 14  |....=flag.......|
000015b0  04 0d 0a 1e 0c dd 20 f2  69 6e 69 74 32 0d 0a 28  |...... .init2..(|
000015c0  17 c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 44  |... "Wimp_CloseD|
000015d0  6f 77 6e 22 0d 0a 32 0b  6d 69 6e 78 3d 33 32 0d  |own"..2.minx=32.|
000015e0  0a 3c 0c 77 69 64 74 68  3d 38 30 0d 0a 46 09 79  |.<.width=80..F.y|
000015f0  25 3d 37 32 0d 0a 50 11  58 25 3d 6d 69 6e 78 3a  |%=72..P.X%=minx:|
00001600  59 25 3d 79 25 0d 0a 5a  24 73 70 72 69 74 65 73  |Y%=y%..Z$sprites|
00001610  3d 32 36 3a f4 20 4e 75  6d 62 65 72 20 6f 66 20  |=26:. Number of |
00001620  27 62 75 74 74 6f 6e 73  27 0d 0a 64 16 72 6f 77  |'buttons'..d.row|
00001630  6c 65 6e 3d 73 70 72 69  74 65 73 20 81 20 32 0d  |len=sprites . 2.|
00001640  0a 6e 14 58 4c 3d 34 34  38 3a 58 52 3d 58 4c 2b  |.n.XL=448:XR=XL+|
00001650  32 35 35 0d 0a 78 04 0d  0a 82 27 f4 20 4d 61 6e  |255..x....'. Man|
00001660  69 66 65 73 74 20 63 6f  6e 73 74 61 6e 74 73 20  |ifest constants |
00001670  66 6f 72 20 74 68 65 20  73 79 73 74 65 6d 0d 0a  |for the system..|
00001680  8c 32 6d 61 78 72 6d 73  3d 31 30 30 30 3a 6d 61  |.2maxrms=1000:ma|
00001690  78 6f 62 73 3d 32 35 35  3a 6d 61 78 73 77 25 3d  |xobs=255:maxsw%=|
000016a0  31 30 3a 6d 61 78 74 6f  6b 65 6e 73 3d 31 32 38  |10:maxtokens=128|
000016b0  0d 0a 96 31 6d 61 78 6c  65 6e 3d 31 30 3a f4 20  |...1maxlen=10:. |
000016c0  4d 61 78 69 6d 75 6d 20  77 6f 72 64 20 6c 65 6e  |Maximum word len|
000016d0  67 74 68 20 69 6e 20 76  6f 63 61 62 75 6c 61 72  |gth in vocabular|
000016e0  79 0d 0a a0 04 0d 0a aa  33 f4 20 52 6f 6f 6d 20  |y.......3. Room |
000016f0  61 6e 64 20 6f 62 6a 65  63 74 20 64 61 74 61 20  |and object data |
00001700  62 6c 6f 63 6b 20 6c 65  6e 67 74 68 73 20 28 69  |block lengths (i|
00001710  6e 20 62 79 74 65 73 29  0d 0a b4 15 72 5f 6c 65  |n bytes)....r_le|
00001720  6e 3d 37 34 3a 6f 5f 6c  65 6e 3d 31 36 0d 0a be  |n=74:o_len=16...|
00001730  04 0d 0a c8 35 6d 61 78  6d 73 67 3d 36 35 35 33  |....5maxmsg=6553|
00001740  35 3a 6d 61 78 6f 62 6e  3d 32 35 35 3a 6d 61 78  |5:maxobn=255:max|
00001750  76 62 6e 3d 32 35 35 3a  6d 61 78 63 6f 6e 73 74  |vbn=255:maxconst|
00001760  3d 36 35 35 33 35 0d 0a  d2 45 6d 61 78 61 64 6a  |=65535...Emaxadj|
00001770  3d 32 35 35 3a 6d 61 78  70 72 65 70 3d 35 30 3a  |=255:maxprep=50:|
00001780  6d 61 78 63 6f 6e 6a 3d  35 30 3a 6d 61 78 73 70  |maxconj=50:maxsp|
00001790  65 63 3d 31 30 3a 6d 61  78 6e 6f 69 73 65 3d 31  |ec=10:maxnoise=1|
000017a0  30 3a 6d 61 78 70 69 78  3d 35 30 0d 0a dc 04 0d  |0:maxpix=50.....|
000017b0  0a e6 12 6e 6f 75 6e 5f  73 69 7a 65 3d 33 30 30  |...noun_size=300|
000017c0  30 0d 0a f0 12 76 65 72  62 5f 73 69 7a 65 3d 33  |0....verb_size=3|
000017d0  30 30 30 0d 0a fa 12 61  64 6a 63 5f 73 69 7a 65  |000....adjc_size|
000017e0  3d 31 30 30 30 0d 0b 04  2e 70 72 65 70 5f 73 69  |=1000....prep_si|
000017f0  7a 65 3d 32 30 30 20 3a  f4 20 53 69 7a 65 20 6f  |ze=200 :. Size o|
00001800  66 20 70 72 65 70 6f 73  69 74 69 6f 6e 73 20 6c  |f prepositions l|
00001810  69 73 74 0d 0b 0e 2e 63  6f 6e 6a 5f 73 69 7a 65  |ist....conj_size|
00001820  3d 31 30 30 20 3a f4 20  73 69 7a 65 20 6f 66 20  |=100 :. size of |
00001830  63 6f 6e 6a 75 6e 63 74  69 6f 6e 73 20 6c 69 73  |conjunctions lis|
00001840  74 0d 0b 18 3c 73 70 65  63 5f 73 69 7a 65 3d 31  |t...<spec_size=1|
00001850  30 30 20 3a f4 20 73 69  7a 65 20 6f 66 20 27 73  |00 :. size of 's|
00001860  70 65 63 69 61 6c 73 27  20 6c 69 73 74 20 28 49  |pecials' list (I|
00001870  54 2c 20 54 48 45 4d 2c  20 41 4c 4c 29 0d 0b 22  |T, THEM, ALL).."|
00001880  34 6e 6f 69 73 65 5f 73  69 7a 65 3d 31 30 30 3a  |4noise_size=100:|
00001890  f4 20 73 69 7a 65 20 6f  66 20 27 6e 6f 69 73 65  |. size of 'noise|
000018a0  27 20 6c 69 73 74 20 28  54 48 45 2c 41 2c 41 4e  |' list (THE,A,AN|
000018b0  29 0d 0b 2c 3d 61 72 65  66 5f 73 69 7a 65 3d 32  |)..,=aref_size=2|
000018c0  30 30 30 3a f4 20 73 69  7a 65 20 6f 66 20 61 64  |000:. size of ad|
000018d0  6a 65 63 74 69 76 65 20  6f 62 6a 65 63 74 20 72  |jective object r|
000018e0  65 66 65 72 65 6e 63 65  20 74 61 62 6c 65 0d 0b  |eference table..|
000018f0  36 39 6e 72 65 66 5f 73  69 7a 65 3d 32 30 30 30  |69nref_size=2000|
00001900  3a f4 20 73 69 7a 65 20  6f 66 20 6e 6f 75 6e 73  |:. size of nouns|
00001910  20 6f 62 6a 65 63 74 20  72 65 66 65 72 65 6e 63  | object referenc|
00001920  65 20 74 61 62 6c 65 0d  0b 40 2d 70 69 78 5f 73  |e table..@-pix_s|
00001930  69 7a 65 3d 31 30 30 30  3a f4 20 73 69 7a 65 20  |ize=1000:. size |
00001940  6f 66 20 70 69 78 20 66  69 6c 65 6e 61 6d 65 20  |of pix filename |
00001950  6c 69 73 74 0d 0b 4a 04  0d 0b 54 40 c8 99 20 22  |list..J...T@.. "|
00001960  4f 53 5f 46 69 6c 65 22  2c 35 2c 22 3c 41 6c 70  |OS_File",5,"<Alp|
00001970  73 47 61 6d 65 24 44 61  74 61 3e 2e 50 72 6f 67  |sGame$Data>.Prog|
00001980  72 61 6d 22 20 b8 20 66  74 79 70 65 2c 2c 2c 2c  |ram" . ftype,,,,|
00001990  63 6f 64 65 73 69 7a 65  0d 0b 5e 40 c8 99 20 22  |codesize..^@.. "|
000019a0  4f 53 5f 46 69 6c 65 22  2c 35 2c 22 3c 41 6c 70  |OS_File",5,"<Alp|
000019b0  73 47 61 6d 65 24 44 61  74 61 3e 2e 54 65 78 74  |sGame$Data>.Text|
000019c0  22 20 20 20 20 b8 20 66  74 79 70 65 2c 2c 2c 2c  |"    . ftype,,,,|
000019d0  6d 61 78 74 65 78 74 25  0d 0b 68 04 0d 0b 72 12  |maxtext%..h...r.|
000019e0  64 69 63 74 5f 73 69 7a  65 3d 31 30 30 30 0d 0b  |dict_size=1000..|
000019f0  7c 04 0d 0b 86 86 de 20  6e 6f 75 6e 73 20 6e 6f  ||...... nouns no|
00001a00  75 6e 5f 73 69 7a 65 2c  76 65 72 62 73 20 76 65  |un_size,verbs ve|
00001a10  72 62 5f 73 69 7a 65 2c  61 64 6a 65 63 74 73 20  |rb_size,adjects |
00001a20  61 64 6a 63 5f 73 69 7a  65 2c 70 72 65 70 73 20  |adjc_size,preps |
00001a30  70 72 65 70 5f 73 69 7a  65 2c 63 6f 6e 6a 73 20  |prep_size,conjs |
00001a40  63 6f 6e 6a 5f 73 69 7a  65 2c 73 70 65 63 73 20  |conj_size,specs |
00001a50  73 70 65 63 5f 73 69 7a  65 2c 6e 6f 69 73 65 20  |spec_size,noise |
00001a60  6e 6f 69 73 65 5f 73 69  7a 65 2c 70 69 78 73 20  |noise_size,pixs |
00001a70  70 69 78 5f 73 69 7a 65  0d 0b 90 04 0d 0b 9a 3a  |pix_size.......:|
00001a80  de 20 61 72 65 66 20 61  72 65 66 5f 73 69 7a 65  |. aref aref_size|
00001a90  2c 6e 72 65 66 20 6e 72  65 66 5f 73 69 7a 65 2c  |,nref nref_size,|
00001aa0  76 65 72 62 5f 74 79 70  65 20 32 2a 28 6d 61 78  |verb_type 2*(max|
00001ab0  76 62 6e 2b 31 29 0d 0b  a4 3c f4 20 53 65 74 20  |vbn+1)...<. Set |
00001ac0  75 70 20 64 61 74 61 20  61 72 65 61 73 20 66 6f  |up data areas fo|
00001ad0  72 20 72 6f 6f 6d 73 20  61 6e 64 20 6f 62 6a 65  |r rooms and obje|
00001ae0  63 74 73 20 61 6e 64 20  63 6c 65 61 72 20 74 68  |cts and clear th|
00001af0  65 6d 0d 0b ae 04 0d 0b  b8 42 de 20 72 64 61 74  |em.......B. rdat|
00001b00  61 25 20 28 6d 61 78 72  6d 73 2b 31 29 2a 72 5f  |a% (maxrms+1)*r_|
00001b10  6c 65 6e 2c 6f 64 61 74  61 25 20 28 6d 61 78 6f  |len,odata% (maxo|
00001b20  62 73 2b 31 29 2a 6f 5f  6c 65 6e 2c 63 6f 6e 74  |bs+1)*o_len,cont|
00001b30  72 6f 6f 6d 25 20 31 32  0d 0b c2 04 0d 0b cc 2a  |room% 12.......*|
00001b40  6e 75 6d 5f 76 61 72 73  3d 36 30 3a f4 20 4e 75  |num_vars=60:. Nu|
00001b50  6d 62 65 72 20 6f 66 20  41 4c 50 53 20 76 61 72  |mber of ALPS var|
00001b60  69 61 62 6c 65 73 0d 0b  d6 2e 76 61 72 5f 73 69  |iables....var_si|
00001b70  7a 65 3d 6e 75 6d 5f 76  61 72 73 2a 32 3a f4 20  |ze=num_vars*2:. |
00001b80  32 20 62 79 74 65 73 20  70 65 72 20 76 61 72 69  |2 bytes per vari|
00001b90  61 62 6c 65 0d 0b e0 04  0d 0b ea 1d f4 20 53 65  |able......... Se|
00001ba0  74 20 75 70 20 74 68 65  20 73 61 76 65 20 62 75  |t up the save bu|
00001bb0  66 66 65 72 73 0d 0b f4  2b 69 6e 69 74 61 72 65  |ffers...+initare|
00001bc0  61 73 69 7a 65 3d 37 2a  28 6d 61 78 6f 62 73 2b  |asize=7*(maxobs+|
00001bd0  31 29 2b 32 32 2a 28 6d  61 78 72 6d 73 2b 31 29  |1)+22*(maxrms+1)|
00001be0  0d 0b fe 3d de 20 69 6e  69 74 73 61 76 65 20 69  |...=. initsave i|
00001bf0  6e 69 74 61 72 65 61 73  69 7a 65 2c 72 61 6d 73  |nitareasize,rams|
00001c00  61 76 65 20 69 6e 69 74  61 72 65 61 73 69 7a 65  |ave initareasize|
00001c10  2b 76 61 72 5f 73 69 7a  65 2b 31 32 38 0d 0c 08  |+var_size+128...|
00001c20  04 0d 0c 12 1f f4 20 41  72 65 61 20 66 6f 72 20  |...... Area for |
00001c30  73 74 6f 72 69 6e 67 20  6d 65 73 73 61 67 65 73  |storing messages|
00001c40  0d 0c 1c 14 de 20 74 65  78 74 25 20 6d 61 78 74  |..... text% maxt|
00001c50  65 78 74 25 0d 0c 26 04  0d 0c 30 0f 64 61 74 61  |ext%..&...0.data|
00001c60  76 61 6c 69 64 3d b9 0d  0c 3a 04 0d 0c 44 1b f4  |valid=...:...D..|
00001c70  20 53 65 74 20 75 70 20  74 68 65 20 64 69 63 74  | Set up the dict|
00001c80  69 6f 6e 61 72 79 0d 0c  4e 15 de 20 64 69 63 74  |ionary..N.. dict|
00001c90  25 20 64 69 63 74 5f 73  69 7a 65 0d 0c 58 04 0d  |% dict_size..X..|
00001ca0  0c 62 1d f4 20 53 65 74  20 75 70 20 74 68 65 20  |.b.. Set up the |
00001cb0  70 72 6f 67 72 61 6d 20  61 72 65 61 0d 0c 6c 04  |program area..l.|
00001cc0  0d 0c 76 17 de 20 70 72  6f 67 72 61 6d 25 20 63  |..v.. program% c|
00001cd0  6f 64 65 73 69 7a 65 0d  0c 80 04 0d 0c 8a 27 f4  |odesize.......'.|
00001ce0  20 44 69 6d 65 6e 73 69  6f 6e 20 74 68 65 20 6f  | Dimension the o|
00001cf0  74 68 65 72 20 61 72 72  61 79 73 20 6e 65 65 64  |ther arrays need|
00001d00  65 64 0d 0c 94 04 0d 0c  9e 0e 75 63 73 69 7a 65  |ed........ucsize|
00001d10  3d 35 30 30 0d 0c a8 47  c8 99 20 22 4f 53 5f 46  |=500...G.. "OS_F|
00001d20  69 6c 65 22 2c 35 2c 22  3c 41 6c 70 73 47 61 6d  |ile",5,"<AlpsGam|
00001d30  65 24 52 65 73 6f 75 72  63 65 73 3e 41 53 49 6f  |e$Resources>ASIo|
00001d40  62 6a 63 6f 64 65 22 20  b8 20 66 74 79 70 65 2c  |bjcode" . ftype,|
00001d50  2c 2c 2c 63 6f 64 65 73  69 7a 65 0d 0c b2 49 c8  |,,,codesize...I.|
00001d60  99 20 22 4f 53 5f 46 69  6c 65 22 2c 35 2c 22 3c  |. "OS_File",5,"<|
00001d70  41 6c 70 73 47 61 6d 65  24 52 65 73 6f 75 72 63  |AlpsGame$Resourc|
00001d80  65 73 3e 70 62 79 74 65  73 22 20 20 20 20 20 b8  |es>pbytes"     .|
00001d90  20 66 74 79 70 65 2c 2c  2c 2c 70 62 79 74 65 5f  | ftype,,,,pbyte_|
00001da0  73 69 7a 65 0d 0c bc 04  0d 0c c6 38 de 20 70 62  |size.......8. pb|
00001db0  79 74 65 73 20 70 62 79  74 65 5f 73 69 7a 65 2c  |ytes pbyte_size,|
00001dc0  77 6f 72 6b 25 20 26 31  31 30 30 2c 61 73 69 63  |work% &1100,asic|
00001dd0  6f 64 65 25 20 63 6f 64  65 73 69 7a 65 2b 31 30  |ode% codesize+10|
00001de0  0d 0c d0 04 0d 0c da 28  de 20 75 73 65 72 63 6f  |.......(. userco|
00001df0  64 65 25 20 75 63 73 69  7a 65 2c 73 63 61 6c 65  |de% ucsize,scale|
00001e00  20 31 35 2c 70 69 78 74  72 20 31 35 0d 0c e4 10  | 15,pixtr 15....|
00001e10  72 75 6e 3d 61 73 69 63  6f 64 65 25 0d 0c ee 04  |run=asicode%....|
00001e20  0d 0c f8 38 ff 28 22 4c  4f 41 44 20 3c 41 6c 70  |...8.("LOAD <Alp|
00001e30  73 47 61 6d 65 24 52 65  73 6f 75 72 63 65 73 3e  |sGame$Resources>|
00001e40  41 53 49 6f 62 6a 63 6f  64 65 20 22 2b c3 7e 61  |ASIobjcode "+.~a|
00001e50  73 69 63 6f 64 65 25 29  0d 0d 02 05 e1 0d 0d 0c  |sicode%)........|
00001e60  04 0d 0d 16 04 0d 0d 20  0a dd 20 f2 72 75 6e 0d  |....... .. .run.|
00001e70  0d 2a 07 ea 20 85 0d 0d  34 3a 65 72 72 5f 63 6f  |.*.. ...4:err_co|
00001e80  6c 3d 31 31 3a f2 63 6f  6c 28 31 33 30 29 3a f2  |l=11:.col(130):.|
00001e90  63 6f 6c 28 37 29 3a c8  99 20 22 57 69 6d 70 5f  |col(7):.. "Wimp_|
00001ea0  53 65 74 43 6f 6c 6f 75  72 22 2c 31 32 38 2b 32  |SetColour",128+2|
00001eb0  0d 0d 3e 61 ee 20 85 20  ea 3a f2 63 6f 6c 28 65  |..>a. . .:.col(e|
00001ec0  72 72 5f 63 6f 6c 29 3a  e7 20 9f 3c 3e 31 37 20  |rr_col):. .<>17 |
00001ed0  f1 27 22 49 6e 74 65 72  70 72 65 74 65 72 20 72  |.'"Interpreter r|
00001ee0  65 70 6f 72 74 73 20 61  20 72 75 6e 2d 74 69 6d  |eports a run-tim|
00001ef0  65 20 65 72 72 6f 72 3a  20 22 f6 24 3a e5 20 8d  |e error: ".$:. .|
00001f00  44 4c 4e 20 8b 20 f1 27  f6 24 3a e5 20 8d 44 4c  |DLN . .'.$:. .DL|
00001f10  4e 0d 0d 48 11 21 77 6f  72 6b 25 3d 72 64 61 74  |N..H.!work%=rdat|
00001f20  61 25 0d 0d 52 13 77 6f  72 6b 25 21 34 3d 76 65  |a%..R.work%!4=ve|
00001f30  72 62 73 2b 33 0d 0d 5c  13 77 6f 72 6b 25 21 38  |rbs+3..\.work%!8|
00001f40  3d 6e 6f 75 6e 73 2b 33  0d 0d 66 17 77 6f 72 6b  |=nouns+3..f.work|
00001f50  25 21 31 32 3d 70 72 6f  67 72 61 6d 25 2b 34 0d  |%!12=program%+4.|
00001f60  0d 70 14 77 6f 72 6b 25  21 31 36 3d 74 65 78 74  |.p.work%!16=text|
00001f70  25 2b 37 0d 0d 7a 14 77  6f 72 6b 25 21 32 30 3d  |%+7..z.work%!20=|
00001f80  64 69 63 74 25 2b 33 0d  0d 84 13 77 6f 72 6b 25  |dict%+3....work%|
00001f90  21 32 34 3d 6f 64 61 74  61 25 0d 0d 8e 16 77 6f  |!24=odata%....wo|
00001fa0  72 6b 25 21 32 38 3d 61  64 6a 65 63 74 73 2b 33  |rk%!28=adjects+3|
00001fb0  0d 0d 98 14 77 6f 72 6b  25 21 33 32 3d 70 72 65  |....work%!32=pre|
00001fc0  70 73 2b 33 0d 0d a2 14  77 6f 72 6b 25 21 33 36  |ps+3....work%!36|
00001fd0  3d 63 6f 6e 6a 73 2b 33  0d 0d ac 14 77 6f 72 6b  |=conjs+3....work|
00001fe0  25 21 34 30 3d 73 70 65  63 73 2b 33 0d 0d b6 14  |%!40=specs+3....|
00001ff0  77 6f 72 6b 25 21 34 34  3d 6e 6f 69 73 65 2b 33  |work%!44=noise+3|
00002000  0d 0d c0 13 77 6f 72 6b  25 21 34 38 3d 70 69 78  |....work%!48=pix|
00002010  73 2b 34 0d 0d ca 1b f4  20 20 77 6f 72 6b 25 21  |s+4.....  work%!|
00002020  35 32 20 69 73 20 72 65  73 65 72 76 65 64 0d 0d  |52 is reserved..|
00002030  d4 15 77 6f 72 6b 25 21  35 36 3d 69 6e 69 74 73  |..work%!56=inits|
00002040  61 76 65 0d 0d de 16 77  6f 72 6b 25 21 36 30 3d  |ave....work%!60=|
00002050  6c 61 73 74 5f 72 6f 6f  6d 0d 0d e8 1a 77 6f 72  |last_room....wor|
00002060  6b 25 21 36 34 3d 6c 61  73 74 5f 6f 62 6a 65 63  |k%!64=last_objec|
00002070  74 2b 31 0d 0d f2 17 77  6f 72 6b 25 21 26 31 34  |t+1....work%!&14|
00002080  63 3d 63 6f 6d 70 72 65  73 73 0d 0d fc 18 77 6f  |c=compress....wo|
00002090  72 6b 25 21 26 31 35 30  3d 75 73 65 72 63 6f 64  |rk%!&150=usercod|
000020a0  65 25 0d 0e 06 05 db 0d  0e 10 19 ef 20 32 34 2c  |e%.......... 24,|
000020b0  30 3b 31 34 34 3b 73 63  72 77 3b 73 63 72 68 3b  |0;144;scrw;scrh;|
000020c0  0d 0e 1a 05 da 0d 0e 24  05 ee 0d 0e 2e 2b 41 25  |.......$.....+A%|
000020d0  3d 76 65 72 62 5f 74 79  70 65 3a 42 25 3d 6e 72  |=verb_type:B%=nr|
000020e0  65 66 3a 43 25 3d 61 72  65 66 3a 44 25 3d 72 61  |ef:C%=aref:D%=ra|
000020f0  6d 73 61 76 65 0d 0e 38  2d 45 25 3d 70 62 79 74  |msave..8-E%=pbyt|
00002100  65 73 3a 46 25 3d 77 6f  72 6b 25 3a 47 25 3d 61  |es:F%=work%:G%=a|
00002110  72 65 61 25 3a 48 25 3d  61 72 65 61 5f 73 69 7a  |rea%:H%=area_siz|
00002120  65 25 0d 0e 42 09 d6 20  72 75 6e 0d 0e 4c 07 f7  |e%..B.. run..L..|
00002130  20 85 0d 0e 56 05 e1 0d  0e 60 04 0d 0e 6a 04 0d  | ...V....`...j..|
00002140  0e 74 11 dd 20 f2 6c 6f  61 64 5f 76 6f 63 61 62  |.t.. .load_vocab|
00002150  0d 0e 7e 28 f2 6c 6f 61  64 5f 6e 6f 75 6e 73 28  |..~(.load_nouns(|
00002160  22 3c 41 6c 70 73 47 61  6d 65 24 44 61 74 61 3e  |"<AlpsGame$Data>|
00002170  2e 4e 6f 75 6e 73 22 29  0d 0e 88 28 f2 6c 6f 61  |.Nouns")...(.loa|
00002180  64 5f 76 65 72 62 73 28  22 3c 41 6c 70 73 47 61  |d_verbs("<AlpsGa|
00002190  6d 65 24 44 61 74 61 3e  2e 56 65 72 62 73 22 29  |me$Data>.Verbs")|
000021a0  0d 0e 92 2f f2 6c 6f 61  64 5f 61 64 6a 65 63 74  |.../.load_adject|
000021b0  73 28 22 3c 41 6c 70 73  47 61 6d 65 24 44 61 74  |s("<AlpsGame$Dat|
000021c0  61 3e 2e 41 64 6a 65 63  74 69 76 65 73 22 29 0d  |a>.Adjectives").|
000021d0  0e 9c 29 f2 6c 6f 61 64  5f 70 72 65 70 73 28 22  |..).load_preps("|
000021e0  3c 41 6c 70 73 47 61 6d  65 24 44 61 74 61 3e 2e  |<AlpsGame$Data>.|
000021f0  50 72 65 70 6f 73 22 29  0d 0e a6 29 f2 6c 6f 61  |Prepos")...).loa|
00002200  64 5f 63 6f 6e 6a 28 22  3c 41 6c 70 73 47 61 6d  |d_conj("<AlpsGam|
00002210  65 24 44 61 74 61 3e 2e  43 6f 6e 6a 75 6e 63 22  |e$Data>.Conjunc"|
00002220  29 0d 0e b0 2a f2 6c 6f  61 64 5f 73 70 65 63 28  |)...*.load_spec(|
00002230  22 3c 41 6c 70 73 47 61  6d 65 24 44 61 74 61 3e  |"<AlpsGame$Data>|
00002240  2e 53 70 65 63 69 61 6c  73 22 29 0d 0e ba 28 f2  |.Specials")...(.|
00002250  6c 6f 61 64 5f 6e 6f 69  73 65 28 22 3c 41 6c 70  |load_noise("<Alp|
00002260  73 47 61 6d 65 24 44 61  74 61 3e 2e 4e 6f 69 73  |sGame$Data>.Nois|
00002270  65 22 29 0d 0e c4 2c f2  6c 6f 61 64 5f 76 74 79  |e")...,.load_vty|
00002280  70 65 73 28 22 3c 41 6c  70 73 47 61 6d 65 24 44  |pes("<AlpsGame$D|
00002290  61 74 61 3e 2e 56 65 72  62 54 79 70 65 22 29 0d  |ata>.VerbType").|
000022a0  0e ce 27 f2 6c 6f 61 64  5f 6e 72 65 66 73 28 22  |..'.load_nrefs("|
000022b0  3c 41 6c 70 73 47 61 6d  65 24 44 61 74 61 3e 2e  |<AlpsGame$Data>.|
000022c0  4e 72 65 66 22 29 0d 0e  d8 27 f2 6c 6f 61 64 5f  |Nref")...'.load_|
000022d0  61 72 65 66 73 28 22 3c  41 6c 70 73 47 61 6d 65  |arefs("<AlpsGame|
000022e0  24 44 61 74 61 3e 2e 41  72 65 66 22 29 0d 0e e2  |$Data>.Aref")...|
000022f0  05 e1 0d 0e ec 04 0d 0e  f6 18 dd 20 f2 6c 6f 61  |........... .loa|
00002300  64 5f 6e 6f 75 6e 73 28  66 69 6c 65 24 29 0d 0f  |d_nouns(file$)..|
00002310  00 10 e7 20 66 69 6c 65  24 3d 22 22 20 8c 0d 0f  |... file$="" ...|
00002320  0a 11 f2 65 72 72 6f 72  28 31 36 2c 22 22 29 0d  |...error(16,"").|
00002330  0f 14 05 cc 0d 0f 1e 1f  ff 20 22 4c 4f 41 44 20  |......... "LOAD |
00002340  22 2b 66 69 6c 65 24 2b  22 20 22 2b c3 7e 6e 6f  |"+file$+" "+.~no|
00002350  75 6e 73 0d 0f 28 0e 6f  62 6e 3d 3f 6e 6f 75 6e  |uns..(.obn=?noun|
00002360  73 0d 0f 32 28 6e 78 74  6f 62 6a 3d 6e 6f 75 6e  |s..2(nxtobj=noun|
00002370  73 2b 28 6e 6f 75 6e 73  3f 31 2b 32 35 36 2a 28  |s+(nouns?1+256*(|
00002380  6e 6f 75 6e 73 3f 32 29  29 0d 0f 3c 05 cd 0d 0f  |nouns?2))..<....|
00002390  46 05 e1 0d 0f 50 04 0d  0f 5a 18 dd 20 f2 6c 6f  |F....P...Z.. .lo|
000023a0  61 64 5f 76 65 72 62 73  28 66 69 6c 65 24 29 0d  |ad_verbs(file$).|
000023b0  0f 64 10 e7 20 66 69 6c  65 24 3d 22 22 20 8c 0d  |.d.. file$="" ..|
000023c0  0f 6e 11 f2 65 72 72 6f  72 28 31 36 2c 22 22 29  |.n..error(16,"")|
000023d0  0d 0f 78 05 cc 0d 0f 82  1f ff 20 22 4c 4f 41 44  |..x....... "LOAD|
000023e0  20 22 2b 66 69 6c 65 24  2b 22 20 22 2b c3 7e 76  | "+file$+" "+.~v|
000023f0  65 72 62 73 0d 0f 8c 0e  76 62 6e 3d 3f 76 65 72  |erbs....vbn=?ver|
00002400  62 73 0d 0f 96 28 6e 78  74 76 72 62 3d 76 65 72  |bs...(nxtvrb=ver|
00002410  62 73 2b 28 76 65 72 62  73 3f 31 2b 32 35 36 2a  |bs+(verbs?1+256*|
00002420  28 76 65 72 62 73 3f 32  29 29 0d 0f a0 05 cd 0d  |(verbs?2))......|
00002430  0f aa 05 e1 0d 0f b4 04  0d 0f be 1a dd 20 f2 6c  |............. .l|
00002440  6f 61 64 5f 61 64 6a 65  63 74 73 28 66 69 6c 65  |oad_adjects(file|
00002450  24 29 0d 0f c8 10 e7 20  66 69 6c 65 24 3d 22 22  |$)..... file$=""|
00002460  20 8c 0d 0f d2 11 f2 65  72 72 6f 72 28 31 36 2c  | ......error(16,|
00002470  22 22 29 0d 0f dc 05 cc  0d 0f e6 21 ff 20 22 4c  |"")........!. "L|
00002480  4f 41 44 20 22 2b 66 69  6c 65 24 2b 22 20 22 2b  |OAD "+file$+" "+|
00002490  c3 7e 61 64 6a 65 63 74  73 0d 0f f0 10 61 64 6e  |.~adjects....adn|
000024a0  3d 3f 61 64 6a 65 63 74  73 0d 0f fa 2e 6e 78 74  |=?adjects....nxt|
000024b0  61 64 6a 3d 61 64 6a 65  63 74 73 2b 28 61 64 6a  |adj=adjects+(adj|
000024c0  65 63 74 73 3f 31 2b 32  35 36 2a 28 61 64 6a 65  |ects?1+256*(adje|
000024d0  63 74 73 3f 32 29 29 0d  10 04 05 cd 0d 10 0e 05  |cts?2)).........|
000024e0  e1 0d 10 18 04 0d 10 22  18 dd 20 f2 6c 6f 61 64  |.......".. .load|
000024f0  5f 70 72 65 70 73 28 66  69 6c 65 24 29 0d 10 2c  |_preps(file$)..,|
00002500  10 e7 20 66 69 6c 65 24  3d 22 22 20 8c 0d 10 36  |.. file$="" ...6|
00002510  11 f2 65 72 72 6f 72 28  31 36 2c 22 22 29 0d 10  |..error(16,"")..|
00002520  40 05 cc 0d 10 4a 1f ff  20 22 4c 4f 41 44 20 22  |@....J.. "LOAD "|
00002530  2b 66 69 6c 65 24 2b 22  20 22 2b c3 7e 70 72 65  |+file$+" "+.~pre|
00002540  70 73 0d 10 54 0e 70 72  6e 3d 3f 70 72 65 70 73  |ps..T.prn=?preps|
00002550  0d 10 5e 28 6e 78 74 70  72 70 3d 70 72 65 70 73  |..^(nxtprp=preps|
00002560  2b 28 70 72 65 70 73 3f  31 2b 32 35 36 2a 28 70  |+(preps?1+256*(p|
00002570  72 65 70 73 3f 32 29 29  0d 10 68 05 cd 0d 10 72  |reps?2))..h....r|
00002580  05 e1 0d 10 7c 04 0d 10  86 17 dd 20 f2 6c 6f 61  |....|...... .loa|
00002590  64 5f 63 6f 6e 6a 28 66  69 6c 65 24 29 0d 10 90  |d_conj(file$)...|
000025a0  10 e7 20 66 69 6c 65 24  3d 22 22 20 8c 0d 10 9a  |.. file$="" ....|
000025b0  11 f2 65 72 72 6f 72 28  31 36 2c 22 22 29 0d 10  |..error(16,"")..|
000025c0  a4 05 cc 0d 10 ae 1f ff  20 22 4c 4f 41 44 20 22  |........ "LOAD "|
000025d0  2b 66 69 6c 65 24 2b 22  20 22 2b c3 7e 63 6f 6e  |+file$+" "+.~con|
000025e0  6a 73 0d 10 b8 0e 63 6a  6e 3d 3f 63 6f 6e 6a 73  |js....cjn=?conjs|
000025f0  0d 10 c2 28 6e 78 74 63  6a 6e 3d 63 6f 6e 6a 73  |...(nxtcjn=conjs|
00002600  2b 28 63 6f 6e 6a 73 3f  31 2b 32 35 36 2a 28 63  |+(conjs?1+256*(c|
00002610  6f 6e 6a 73 3f 32 29 29  0d 10 cc 05 cd 0d 10 d6  |onjs?2))........|
00002620  05 e1 0d 10 e0 04 0d 10  ea 17 dd 20 f2 6c 6f 61  |........... .loa|
00002630  64 5f 73 70 65 63 28 66  69 6c 65 24 29 0d 10 f4  |d_spec(file$)...|
00002640  10 e7 20 66 69 6c 65 24  3d 22 22 20 8c 0d 10 fe  |.. file$="" ....|
00002650  11 f2 65 72 72 6f 72 28  31 36 2c 22 22 29 0d 11  |..error(16,"")..|
00002660  08 05 cc 0d 11 12 1f ff  20 22 4c 4f 41 44 20 22  |........ "LOAD "|
00002670  2b 66 69 6c 65 24 2b 22  20 22 2b c3 7e 73 70 65  |+file$+" "+.~spe|
00002680  63 73 0d 11 1c 0e 73 70  6e 3d 3f 73 70 65 63 73  |cs....spn=?specs|
00002690  0d 11 26 28 6e 78 74 73  70 6e 3d 73 70 65 63 73  |..&(nxtspn=specs|
000026a0  2b 28 73 70 65 63 73 3f  31 2b 32 35 36 2a 28 73  |+(specs?1+256*(s|
000026b0  70 65 63 73 3f 32 29 29  0d 11 30 05 cd 0d 11 3a  |pecs?2))..0....:|
000026c0  05 e1 0d 11 44 04 0d 11  4e 18 dd 20 f2 6c 6f 61  |....D...N.. .loa|
000026d0  64 5f 6e 6f 69 73 65 28  66 69 6c 65 24 29 0d 11  |d_noise(file$)..|
000026e0  58 10 e7 20 66 69 6c 65  24 3d 22 22 20 8c 0d 11  |X.. file$="" ...|
000026f0  62 11 f2 65 72 72 6f 72  28 31 36 2c 22 22 29 0d  |b..error(16,"").|
00002700  11 6c 05 cc 0d 11 76 1f  ff 20 22 4c 4f 41 44 20  |.l....v.. "LOAD |
00002710  22 2b 66 69 6c 65 24 2b  22 20 22 2b c3 7e 6e 6f  |"+file$+" "+.~no|
00002720  69 73 65 0d 11 80 0e 6e  73 6e 3d 3f 6e 6f 69 73  |ise....nsn=?nois|
00002730  65 0d 11 8a 28 6e 78 74  6e 73 6e 3d 6e 6f 69 73  |e...(nxtnsn=nois|
00002740  65 2b 28 6e 6f 69 73 65  3f 31 2b 32 35 36 2a 28  |e+(noise?1+256*(|
00002750  6e 6f 69 73 65 3f 32 29  29 0d 11 94 05 cd 0d 11  |noise?2)).......|
00002760  9e 05 e1 0d 11 a8 04 0d  11 b2 19 dd 20 f2 6c 6f  |............ .lo|
00002770  61 64 5f 76 74 79 70 65  73 28 66 69 6c 65 24 29  |ad_vtypes(file$)|
00002780  0d 11 bc 10 e7 20 66 69  6c 65 24 3d 22 22 20 8c  |..... file$="" .|
00002790  0d 11 c6 11 f2 65 72 72  6f 72 28 31 36 2c 22 22  |.....error(16,""|
000027a0  29 0d 11 d0 05 cc 0d 11  da 23 ff 20 22 4c 4f 41  |)........#. "LOA|
000027b0  44 20 22 2b 66 69 6c 65  24 2b 22 20 22 2b c3 7e  |D "+file$+" "+.~|
000027c0  76 65 72 62 5f 74 79 70  65 0d 11 e4 05 cd 0d 11  |verb_type.......|
000027d0  ee 05 e1 0d 11 f8 04 0d  12 02 18 dd 20 f2 6c 6f  |............ .lo|
000027e0  61 64 5f 61 72 65 66 73  28 66 69 6c 65 24 29 0d  |ad_arefs(file$).|
000027f0  12 0c 10 e7 20 66 69 6c  65 24 3d 22 22 20 8c 0d  |.... file$="" ..|
00002800  12 16 11 f2 65 72 72 6f  72 28 31 36 2c 22 22 29  |....error(16,"")|
00002810  0d 12 20 05 cc 0d 12 2a  1e ff 20 22 4c 4f 41 44  |.. ....*.. "LOAD|
00002820  20 22 2b 66 69 6c 65 24  2b 22 20 22 2b c3 7e 61  | "+file$+" "+.~a|
00002830  72 65 66 0d 12 34 05 cd  0d 12 3e 05 e1 0d 12 48  |ref..4....>....H|
00002840  04 0d 12 52 18 dd 20 f2  6c 6f 61 64 5f 6e 72 65  |...R.. .load_nre|
00002850  66 73 28 66 69 6c 65 24  29 0d 12 5c 10 e7 20 66  |fs(file$)..\.. f|
00002860  69 6c 65 24 3d 22 22 20  8c 0d 12 66 11 f2 65 72  |ile$="" ...f..er|
00002870  72 6f 72 28 31 36 2c 22  22 29 0d 12 70 05 cc 0d  |ror(16,"")..p...|
00002880  12 7a 1e ff 20 22 4c 4f  41 44 20 22 2b 66 69 6c  |.z.. "LOAD "+fil|
00002890  65 24 2b 22 20 22 2b c3  7e 6e 72 65 66 0d 12 84  |e$+" "+.~nref...|
000028a0  05 cd 0d 12 8e 05 e1 0d  12 98 04 0d 12 a2 17 dd  |................|
000028b0  20 f2 6c 6f 61 64 5f 6f  62 6a 73 28 66 69 6c 65  | .load_objs(file|
000028c0  24 29 0d 12 ac 10 e7 20  66 69 6c 65 24 3d 22 22  |$)..... file$=""|
000028d0  20 8c 0d 12 b6 11 f2 65  72 72 6f 72 28 31 36 2c  | ......error(16,|
000028e0  22 22 29 0d 12 c0 05 cc  0d 12 ca 20 ff 20 22 4c  |"")........ . "L|
000028f0  4f 41 44 20 22 2b 66 69  6c 65 24 2b 22 20 22 2b  |OAD "+file$+" "+|
00002900  c3 7e 6f 64 61 74 61 25  0d 12 d4 12 6f 70 74 72  |.~odata%....optr|
00002910  3d 6f 64 61 74 61 25 3f  31 34 0d 12 de 19 6c 61  |=odata%?14....la|
00002920  73 74 5f 6f 62 6a 65 63  74 3d 6f 64 61 74 61 25  |st_object=odata%|
00002930  3f 31 35 0d 12 e8 05 cd  0d 12 f2 05 e1 0d 12 fc  |?15.............|
00002940  04 0d 13 06 18 dd 20 f2  6c 6f 61 64 5f 72 6f 6f  |...... .load_roo|
00002950  6d 73 28 66 69 6c 65 24  29 0d 13 10 10 e7 20 66  |ms(file$)..... f|
00002960  69 6c 65 24 3d 22 22 20  8c 0d 13 1a 11 f2 65 72  |ile$="" ......er|
00002970  72 6f 72 28 31 36 2c 22  22 29 0d 13 24 05 cc 0d  |ror(16,"")..$...|
00002980  13 2e 20 ff 20 22 4c 4f  41 44 20 22 2b 66 69 6c  |.. . "LOAD "+fil|
00002990  65 24 2b 22 20 22 2b c3  7e 72 64 61 74 61 25 0d  |e$+" "+.~rdata%.|
000029a0  13 38 18 72 70 74 72 3d  21 72 64 61 74 61 25 20  |.8.rptr=!rdata% |
000029b0  80 20 26 46 46 46 46 0d  13 42 27 6c 61 73 74 5f  |. &FFFF..B'last_|
000029c0  72 6f 6f 6d 3d 28 21 72  64 61 74 61 25 20 80 20  |room=(!rdata% . |
000029d0  26 46 46 46 46 30 30 30  30 29 3e 3e 31 36 0d 13  |&FFFF0000)>>16..|
000029e0  4c 05 cd 0d 13 56 05 e1  0d 13 60 04 0d 13 6a 16  |L....V....`...j.|
000029f0  dd 20 f2 6c 6f 61 64 5f  70 69 78 28 66 69 6c 65  |. .load_pix(file|
00002a00  24 29 0d 13 74 10 e7 20  66 69 6c 65 24 3d 22 22  |$)..t.. file$=""|
00002a10  20 8c 0d 13 7e 11 f2 65  72 72 6f 72 28 31 36 2c  | ...~..error(16,|
00002a20  22 22 29 0d 13 88 05 cc  0d 13 92 1e ff 20 22 4c  |"").......... "L|
00002a30  4f 41 44 20 22 2b 66 69  6c 65 24 2b 22 20 22 2b  |OAD "+file$+" "+|
00002a40  c3 7e 70 69 78 73 0d 13  9c 0d 70 78 6e 3d 3f 70  |.~pixs....pxn=?p|
00002a50  69 78 73 0d 13 a6 25 6e  78 74 70 78 6e 3d 70 69  |ixs...%nxtpxn=pi|
00002a60  78 73 2b 28 70 69 78 73  3f 31 2b 32 35 36 2a 28  |xs+(pixs?1+256*(|
00002a70  70 69 78 73 3f 32 29 29  0d 13 b0 05 cd 0d 13 ba  |pixs?2))........|
00002a80  05 e1 0d 13 c4 04 0d 13  ce 1a dd 20 f2 6c 6f 61  |........... .loa|
00002a90  64 5f 70 72 6f 67 72 61  6d 28 66 69 6c 65 24 29  |d_program(file$)|
00002aa0  0d 13 d8 10 e7 20 66 69  6c 65 24 3d 22 22 20 8c  |..... file$="" .|
00002ab0  0d 13 e2 11 f2 65 72 72  6f 72 28 31 36 2c 22 22  |.....error(16,""|
00002ac0  29 0d 13 ec 05 cc 0d 13  f6 22 ff 20 22 4c 4f 41  |)........". "LOA|
00002ad0  44 20 22 2b 66 69 6c 65  24 2b 22 20 22 2b c3 7e  |D "+file$+" "+.~|
00002ae0  70 72 6f 67 72 61 6d 25  0d 14 00 05 cd 0d 14 0a  |program%........|
00002af0  05 e1 0d 14 14 04 0d 14  1e 17 dd 20 f2 6c 6f 61  |........... .loa|
00002b00  64 5f 74 65 78 74 28 66  69 6c 65 24 29 0d 14 28  |d_text(file$)..(|
00002b10  10 e7 20 66 69 6c 65 24  3d 22 22 20 8c 0d 14 32  |.. file$="" ...2|
00002b20  11 f2 65 72 72 6f 72 28  31 36 2c 22 22 29 0d 14  |..error(16,"")..|
00002b30  3c 05 cc 0d 14 46 1f ff  20 22 4c 4f 41 44 20 22  |<....F.. "LOAD "|
00002b40  2b 66 69 6c 65 24 2b 22  20 22 2b c3 7e 74 65 78  |+file$+" "+.~tex|
00002b50  74 25 0d 14 50 0a 6d 70  74 72 3d 31 0d 14 5a 05  |t%..P.mptr=1..Z.|
00002b60  cd 0d 14 64 05 e1 0d 14  6e 04 0d 14 78 17 dd 20  |...d....n...x.. |
00002b70  f2 6c 6f 61 64 5f 64 69  63 74 28 66 69 6c 65 24  |.load_dict(file$|
00002b80  29 0d 14 82 0b ea 20 49  25 2c 4c 25 0d 14 8c 10  |)..... I%,L%....|
00002b90  e7 20 66 69 6c 65 24 3d  22 22 20 8c 0d 14 96 11  |. file$="" .....|
00002ba0  f2 65 72 72 6f 72 28 31  36 2c 22 22 29 0d 14 a0  |.error(16,"")...|
00002bb0  05 cc 0d 14 aa 1f ff 20  22 4c 4f 41 44 20 22 2b  |....... "LOAD "+|
00002bc0  66 69 6c 65 24 2b 22 20  22 2b c3 7e 64 69 63 74  |file$+" "+.~dict|
00002bd0  25 0d 14 b4 15 74 6f 6b  25 3d 64 69 63 74 25 3f  |%....tok%=dict%?|
00002be0  32 3a 4c 25 3d 30 0d 14  be 21 e7 20 74 6f 6b 25  |2:L%=0...!. tok%|
00002bf0  3d 30 20 74 6f 6b 25 3d  31 32 38 20 8b 20 74 6f  |=0 tok%=128 . to|
00002c00  6b 25 2d 3d 31 32 38 0d  14 c8 05 cd 0d 14 d2 05  |k%-=128.........|
00002c10  e1 0d 14 dc 04 0d 14 e6  11 dd 20 f2 6c 6f 61 64  |.......... .load|
00002c20  5f 66 69 6c 65 73 0d 14  f0 29 f2 6c 6f 61 64 5f  |_files...).load_|
00002c30  6f 62 6a 73 28 22 3c 41  6c 70 73 47 61 6d 65 24  |objs("<AlpsGame$|
00002c40  44 61 74 61 3e 2e 4f 62  6a 65 63 74 73 22 29 0d  |Data>.Objects").|
00002c50  14 fa 28 f2 6c 6f 61 64  5f 72 6f 6f 6d 73 28 22  |..(.load_rooms("|
00002c60  3c 41 6c 70 73 47 61 6d  65 24 44 61 74 61 3e 2e  |<AlpsGame$Data>.|
00002c70  52 6f 6f 6d 73 22 29 0d  15 04 29 f2 6c 6f 61 64  |Rooms")...).load|
00002c80  5f 70 69 78 28 22 3c 41  6c 70 73 47 61 6d 65 24  |_pix("<AlpsGame$|
00002c90  44 61 74 61 3e 2e 50 69  63 74 75 72 65 73 22 29  |Data>.Pictures")|
00002ca0  0d 15 0e 0f f2 6c 6f 61  64 5f 76 6f 63 61 62 0d  |.....load_vocab.|
00002cb0  15 18 2c f2 6c 6f 61 64  5f 70 72 6f 67 72 61 6d  |..,.load_program|
00002cc0  28 22 3c 41 6c 70 73 47  61 6d 65 24 44 61 74 61  |("<AlpsGame$Data|
00002cd0  3e 2e 50 72 6f 67 72 61  6d 22 29 0d 15 22 26 f2  |>.Program").."&.|
00002ce0  6c 6f 61 64 5f 74 65 78  74 28 22 3c 41 6c 70 73  |load_text("<Alps|
00002cf0  47 61 6d 65 24 44 61 74  61 3e 2e 54 65 78 74 22  |Game$Data>.Text"|
00002d00  29 0d 15 2c 26 f2 6c 6f  61 64 5f 64 69 63 74 28  |)..,&.load_dict(|
00002d10  22 3c 41 6c 70 73 47 61  6d 65 24 44 61 74 61 3e  |"<AlpsGame$Data>|
00002d20  2e 44 69 63 74 22 29 0d  15 36 26 f2 6c 6f 61 64  |.Dict")..6&.load|
00002d30  5f 63 6f 64 65 28 22 3c  41 6c 70 73 47 61 6d 65  |_code("<AlpsGame|
00002d40  24 44 61 74 61 3e 2e 43  6f 64 65 22 29 0d 15 40  |$Data>.Code")..@|
00002d50  31 ff 20 22 4c 4f 41 44  20 3c 41 6c 70 73 47 61  |1. "LOAD <AlpsGa|
00002d60  6d 65 24 52 65 73 6f 75  72 63 65 73 3e 70 62 79  |me$Resources>pby|
00002d70  74 65 73 20 22 2b c3 7e  70 62 79 74 65 73 0d 15  |tes "+.~pbytes..|
00002d80  4a 05 e1 0d 15 54 04 0d  15 5e 10 dd 20 f2 73 65  |J....T...^.. .se|
00002d90  74 5f 50 72 65 66 73 0d  15 68 25 69 6e 25 3d 8e  |t_Prefs..h%in%=.|
00002da0  28 22 3c 41 6c 70 73 47  61 6d 65 24 44 61 74 61  |("<AlpsGame$Data|
00002db0  3e 2e 47 61 6d 65 44 61  74 61 22 29 0d 15 72 0f  |>.GameData")..r.|
00002dc0  6d 6f 64 65 25 3d 9a 23  69 6e 25 0d 15 7c 12 63  |mode%=.#in%..|.c|
00002dd0  6f 6d 70 72 65 73 73 3d  9a 23 69 6e 25 0d 15 86  |ompress=.#in%...|
00002de0  4a 6c 6f 61 64 5f 62 75  74 74 6f 6e 73 3d 9a 23  |Jload_buttons=.#|
00002df0  69 6e 25 3a e7 20 6c 6f  61 64 5f 62 75 74 74 6f  |in%:. load_butto|
00002e00  6e 73 3c 3e 30 20 8c 20  6c 6f 61 64 5f 62 75 74  |ns<>0 . load_but|
00002e10  74 6f 6e 73 3d b9 20 8b  20 6c 6f 61 64 5f 62 75  |tons=. . load_bu|
00002e20  74 74 6f 6e 73 3d a3 0d  15 90 3e 75 73 65 5f 66  |ttons=....>use_f|
00002e30  6b 65 79 73 3d 9a 23 69  6e 25 3a e7 20 75 73 65  |keys=.#in%:. use|
00002e40  5f 66 6b 65 79 73 3c 3e  30 20 8c 20 75 73 65 5f  |_fkeys<>0 . use_|
00002e50  66 6b 65 79 73 3d b9 20  8b 20 75 73 65 5f 66 6b  |fkeys=. . use_fk|
00002e60  65 79 73 3d a3 0d 15 9a  09 d9 23 69 6e 25 0d 15  |eys=......#in%..|
00002e70  a4 05 e1 0d 15 ae 04 0d  15 b8 04 0d 15 c2 27 dd  |..............'.|
00002e80  20 a4 65 6e 74 65 72 5f  77 6f 72 64 28 6c 65 6e  | .enter_word(len|
00002e90  25 2c 63 68 24 2c 77 64  24 2c 77 78 25 2c 77 79  |%,ch$,wd$,wx%,wy|
00002ea0  25 29 0d 15 cc 0d ea 20  6b 65 79 2c 50 6f 25 0d  |%)..... key,Po%.|
00002eb0  15 d6 0b 2a 46 58 20 34  2c 31 0d 15 e0 09 50 6f  |...*FX 4,1....Po|
00002ec0  25 3d 30 0d 15 ea 05 f5  0d 15 f4 14 f1 20 8a 77  |%=0.......... .w|
00002ed0  78 25 2b 50 6f 25 2c 77  79 25 29 3b 0d 15 fe 0b  |x%+Po%,wy%);....|
00002ee0  2a 46 58 31 35 2c 30 0d  16 08 05 f5 0d 16 12 09  |*FX15,0.........|
00002ef0  6b 65 79 3d a5 0d 16 1c  15 fd 20 6b 65 79 3e 33  |key=...... key>3|
00002f00  31 20 84 20 6b 65 79 3d  31 33 0d 16 26 11 e7 20  |1 . key=13..&.. |
00002f10  28 6b 65 79 3d 31 32 37  29 20 8c 0d 16 30 2e e7  |(key=127) ...0..|
00002f20  20 a6 2d 31 20 8c 20 77  64 24 3d c0 77 64 24 2c  | .-1 . wd$=.wd$,|
00002f30  50 6f 25 29 2b c2 77 64  24 2c 6c 65 6e 25 2d 50  |Po%)+.wd$,len%-P|
00002f40  6f 25 2d 31 29 2b 63 68  24 0d 16 3a 17 e7 20 28  |o%-1)+ch$..:.. (|
00002f50  50 6f 25 3e 30 20 80 20  ac 20 a6 2d 31 29 20 8c  |Po%>0 . . .-1) .|
00002f60  0d 16 44 2d 50 6f 25 2d  3d 31 3a 77 64 24 3d c0  |..D-Po%-=1:wd$=.|
00002f70  77 64 24 2c 50 6f 25 29  2b c2 77 64 24 2c 6c 65  |wd$,Po%)+.wd$,le|
00002f80  6e 25 2d 50 6f 25 2d 31  29 2b 63 68 24 0d 16 4e  |n%-Po%-1)+ch$..N|
00002f90  05 cd 0d 16 58 05 cd 0d  16 62 25 e7 20 6b 65 79  |....X....b%. key|
00002fa0  3d 31 33 37 20 80 20 50  6f 25 2b 31 3c 6c 65 6e  |=137 . Po%+1<len|
00002fb0  25 20 8c 20 50 6f 25 2b  3d 28 31 29 0d 16 6c 1e  |% . Po%+=(1)..l.|
00002fc0  e7 20 6b 65 79 3d 31 33  36 20 80 20 50 6f 25 3e  |. key=136 . Po%>|
00002fd0  30 20 8c 20 50 6f 25 2d  3d 31 0d 16 76 1a e7 20  |0 . Po%-=1..v.. |
00002fe0  28 6b 65 79 3e 33 31 20  80 20 6b 65 79 3c 31 32  |(key>31 . key<12|
00002ff0  37 29 20 8c 0d 16 80 08  4b 25 3d a3 0d 16 8a 14  |7) .....K%=.....|
00003000  e3 20 6c 70 25 3d 50 6f  25 20 b8 20 6c 65 6e 25  |. lp%=Po% . len%|
00003010  0d 16 94 27 e7 20 c1 77  64 24 2c 6c 70 25 2c 31  |...'. .wd$,lp%,1|
00003020  29 3d 63 68 24 20 80 20  50 6f 25 3c 6c 65 6e 25  |)=ch$ . Po%<len%|
00003030  20 8c 20 4b 25 3d b9 0d  16 9e 05 ed 0d 16 a8 0a  | . K%=..........|
00003040  e7 20 4b 25 20 8c 0d 16  b2 29 77 64 24 3d c0 77  |. K% ....)wd$=.w|
00003050  64 24 2c 50 6f 25 29 2b  bd 28 6b 65 79 29 2b c2  |d$,Po%)+.(key)+.|
00003060  77 64 24 2c 6c 65 6e 25  2d 50 6f 25 2d 31 29 0d  |wd$,len%-Po%-1).|
00003070  16 bc 0c 50 6f 25 2b 3d  28 31 29 0d 16 c6 05 cd  |...Po%+=(1).....|
00003080  0d 16 d0 05 cd 0d 16 da  14 f1 20 8a 77 78 25 2c  |.......... .wx%,|
00003090  77 79 25 29 3b 77 64 24  3b 0d 16 e4 0c fd 20 6b  |wy%);wd$;..... k|
000030a0  65 79 3d 31 33 0d 16 ee  0b 2a 46 58 20 34 2c 30  |ey=13....*FX 4,0|
000030b0  0d 16 f8 08 3d 77 64 24  0d 17 02 04 0d 17 0c 04  |....=wd$........|
000030c0  0d 17 16 18 dd 20 f2 67  65 74 6d 6f 64 65 69 6e  |..... .getmodein|
000030d0  66 6f 28 6d 6f 64 65 29  0d 17 20 13 ea 20 78 2c  |fo(mode).. .. x,|
000030e0  79 2c 78 65 69 67 2c 79  65 69 67 0d 17 2a 04 0d  |y,xeig,yeig..*..|
000030f0  17 34 31 c8 99 20 22 4f  53 5f 52 65 61 64 4d 6f  |.41.. "OS_ReadMo|
00003100  64 65 56 61 72 69 61 62  6c 65 22 2c 6d 6f 64 65  |deVariable",mode|
00003110  2c 31 20 b8 20 2c 2c 74  65 78 74 63 6f 6c 73 25  |,1 . ,,textcols%|
00003120  0d 17 3e 31 c8 99 20 22  4f 53 5f 52 65 61 64 4d  |..>1.. "OS_ReadM|
00003130  6f 64 65 56 61 72 69 61  62 6c 65 22 2c 6d 6f 64  |odeVariable",mod|
00003140  65 2c 32 20 b8 20 2c 2c  74 65 78 74 72 6f 77 73  |e,2 . ,,textrows|
00003150  25 0d 17 48 1d 74 65 78  74 5f 6d 61 78 6c 6c 65  |%..H.text_maxlle|
00003160  6e 25 3d 74 65 78 74 63  6f 6c 73 25 2d 32 0d 17  |n%=textcols%-2..|
00003170  52 2c c8 99 20 22 4f 53  5f 52 65 61 64 4d 6f 64  |R,.. "OS_ReadMod|
00003180  65 56 61 72 69 61 62 6c  65 22 2c 6d 6f 64 65 2c  |eVariable",mode,|
00003190  33 20 b8 20 2c 2c 63 6f  6c 73 0d 17 5c 2c c8 99  |3 . ,,cols..\,..|
000031a0  20 22 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  | "OS_ReadModeVar|
000031b0  69 61 62 6c 65 22 2c 6d  6f 64 65 2c 34 20 b8 20  |iable",mode,4 . |
000031c0  2c 2c 78 65 69 67 0d 17  66 2c c8 99 20 22 4f 53  |,,xeig..f,.. "OS|
000031d0  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
000031e0  65 22 2c 6d 6f 64 65 2c  35 20 b8 20 2c 2c 79 65  |e",mode,5 . ,,ye|
000031f0  69 67 0d 17 70 30 c8 99  20 22 4f 53 5f 52 65 61  |ig..p0.. "OS_Rea|
00003200  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 6d  |dModeVariable",m|
00003210  6f 64 65 2c 37 20 b8 20  2c 2c 73 63 72 6e 73 69  |ode,7 . ,,scrnsi|
00003220  7a 65 0d 17 7a 2a c8 99  20 22 4f 53 5f 52 65 61  |ze..z*.. "OS_Rea|
00003230  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 6d  |dModeVariable",m|
00003240  6f 64 65 2c 31 31 20 b8  20 2c 2c 78 0d 17 84 2a  |ode,11 . ,,x...*|
00003250  c8 99 20 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |.. "OS_ReadModeV|
00003260  61 72 69 61 62 6c 65 22  2c 6d 6f 64 65 2c 31 32  |ariable",mode,12|
00003270  20 b8 20 2c 2c 79 0d 17  8e 2d 73 63 72 77 3d 28  | . ,,y...-scrw=(|
00003280  28 78 2b 31 29 3c 3c 78  65 69 67 29 2d 31 3a 73  |(x+1)<<xeig)-1:s|
00003290  63 72 68 3d 28 28 79 2b  31 29 3c 3c 79 65 69 67  |crh=((y+1)<<yeig|
000032a0  29 2d 31 0d 17 98 05 e1  0d 17 a2 04 0d 17 ac 11  |)-1.............|
000032b0  dd 20 f2 63 6f 6c 28 63  6f 6c 6f 72 29 0d 17 b6  |. .col(color)...|
000032c0  1e c8 99 20 22 57 69 6d  70 5f 54 65 78 74 43 6f  |... "Wimp_TextCo|
000032d0  6c 6f 75 72 22 2c 63 6f  6c 6f 72 0d 17 c0 05 e1  |lour",color.....|
000032e0  0d 17 ca 04 0d 17 d4 13  dd 20 f2 6c 6f 61 64 5f  |......... .load_|
000032f0  70 61 6c 28 66 24 29 0d  17 de 0d ea 20 69 6e 25  |pal(f$)..... in%|
00003300  2c 63 6f 6c 0d 17 e8 0d  69 6e 25 3d 8e 28 66 24  |,col....in%=.(f$|
00003310  29 0d 17 f2 10 e3 20 63  6f 6c 3d 30 20 b8 20 31  |)..... col=0 . 1|
00003320  39 0d 17 fc 51 20 20 e7  20 63 6f 6c 3c 31 36 20  |9...Q  . col<16 |
00003330  63 6f 6c 31 3d 63 6f 6c  3a 63 6f 6c 32 3d 31 36  |col1=col:col2=16|
00003340  20 8b 20 e7 20 63 6f 6c  3d 31 36 20 63 6f 6c 31  | . . col=16 col1|
00003350  3d 63 6f 6c 3a 63 6f 6c  32 3d 32 34 20 8b 20 63  |=col:col2=24 . c|
00003360  6f 6c 31 3d 63 6f 6c 2d  31 36 3a 63 6f 6c 32 3d  |ol1=col-16:col2=|
00003370  32 35 0d 18 06 1d 20 20  72 3d 9a 23 69 6e 25 3a  |25....  r=.#in%:|
00003380  67 3d 9a 23 69 6e 25 3a  62 3d 9a 23 69 6e 25 0d  |g=.#in%:b=.#in%.|
00003390  18 10 1a 20 20 ef 20 31  39 2c 63 6f 6c 31 2c 63  |...  . 19,col1,c|
000033a0  6f 6c 32 2c 72 2c 67 2c  62 0d 18 1a 09 ed 20 63  |ol2,r,g,b..... c|
000033b0  6f 6c 0d 18 24 09 d9 23  69 6e 25 0d 18 2e 05 e1  |ol..$..#in%.....|
000033c0  0d 18 38 04 0d 18 42 14  dd 20 f2 6c 6f 61 64 5f  |..8...B.. .load_|
000033d0  63 6f 64 65 28 66 24 29  0d 18 4c 09 ea 20 69 6e  |code(f$)..L.. in|
000033e0  25 0d 18 56 12 69 6e 25  3d 8e 20 66 24 3a d9 23  |%..V.in%=. f$:.#|
000033f0  69 6e 25 0d 18 60 2c e7  20 69 6e 25 3c 3e 30 20  |in%..`,. in%<>0 |
00003400  8c 20 ff 28 22 4c 4f 41  44 20 22 2b 66 24 2b 22  |. .("LOAD "+f$+"|
00003410  20 22 2b c3 7e 75 73 65  72 63 6f 64 65 25 29 0d  | "+.~usercode%).|
00003420  18 6a 05 e1 0d ff                                 |.j....|
00003426