*FX220,27
oldhimem%=�:�=&67600
�sortmemory
(
�initwimp
2
�initvars
<1� �readsysvar("ElfK$EntryPt")="fromstartup" �
F  � � �alreadyrunning �
P    �"Set ElfK$isrunning 1"
Z  �
dO    �error("ElfKing is already running",0):ș "Wimp_CloseDown",,&4B534154:�
n  �
x  �initfromstartup
�#  *Set ElfK$chaindir <ElfK$Dir>
��
�1  ș "Wimp_SetMode",��readsysvar("ElfK$Mode")
�  �setsound
�  �Y%=0�
�&   �"SET ElfK$chaindir $.!ElfKing"
�  �
�$   *Set ElfK$chaindir <ElfK$Dir>
�  �
��
��createwindows
��initwindows
��createbaricon

7� � �error(�$+" (Internal error code "+Þ+")"+�0,�)

� �pollloop:� quit%

"ș "Wimp_CloseDown",,&4B534154

"�"Set ElfK$isrunning 0"

,&ș "XOS_Module",4,"PackSound%elfk"

6	*QUIT

@�

J

T

^��sortmemory

hindbase%=�:iptr%=indbase%

r%totindsize%=4096:totwinsize%=5608

|0winbase%=indbase%+totindsize%:wptr%=winbase%

�lindstarts%=winbase%+totwinsize%:winstarts%=indstarts%+40:userwimpsprs%=winstarts%+40:wimpsprsize%=7*1024

�mc%=&9000:pdbs%=&40000

��

�

���initwimp

�>ș "Wimp_Initialise",200,&4B534154,"ElfKing" � ,taskhandl%

�W� �error(�$+" (Internal error code "+Þ+")"+�0,�):ș "Wimp_CloseDown",,&4B534154:�

��

�

���initvars

�e� blk% 256,errblk% 200,menu% 1024,blk2% 256,pdbbuff% 256,palcode% 900,baricn% 12,inb% 20,outb% 20

� A%=indbase%:B%=indbase%+1024

�quit%=�:maxstarts%=12
4!inb%=4:inb%!4=5:inb%!8=11:inb%!12=12:inb%!16=-1

start%=S%
sndmax%=15
&�getscreensize
0�
:
D��getscreensize
N&ș"OS_ReadVduVariables",inb%,outb%
XNxmaxec%=(((outb%!8)+1)<<(outb%!0))-1:ymaxec%=(((outb%!12)+1)<<(outb%!4))-1
b�
l
vݤalreadyrunning
�� A%
�� �
���:� �:=0
�;ș "OS_ReadVarVal","ElfK$isrunning",blk%,256,0,0 � ,,a%
�%a$="":�A%=0�a%-1:a$+=�(blk%?A%):�
�� �
��a$="1":=-1
�=0
�
���initfromstartup
��quit%=NOTFNpalset
�� j%
�start%=1
"�"LOAD <ElfK$Dir>.code "+�~mc%
�savesound
M%=�nextfreeslot
 ș &46189,"elfk" � R%
*/a$=�converttolower(�readsysvar("ElfK$Dir"))
4(�a$,"adfs::elfking")<>0:Y%=0:�:Y%=1
>�
H
Rݤnextfreeslot
\#� if no slots free take slot 10
f� j%,k%
p�j%=1�32
z% ș"Sound_InstallVoice",0,j% � k%
� �k%=0 �:=j%
��
�=10
�
�ݤiscgaonly
�)ș"OS_CheckModeValid",27 � reg0%;fla%
�"=(((fla%�%10)=%10)�(reg0%=-1))
�
�ݤisvga
� �isselected(setupw%,3)�:=-1
�=0
�
�ݤisopen(w%)
+!blk%=w%:ș "Wimp_GetWindowState",,blk%
 =((blk%!32)�(1<<16))=(1<<16)

$��savesound
.� A%
8;ș"Sound_AttachVoice",1,1 � ,A%:�"Set ElfK$voice1 "+�A%
Bș"Sound_AttachVoice",1,A%
Lh�SYS "Sound_ReadControlBlock",1,2 TO ,,voice%:voice%=voice%AND&FF:OSCLI"Set ElfK$voice1 "+STR$voice%
Vvș "Sound_Configure",0,0,0 � A%,B%,C%:�"Set ElfK$totchans "+�A%:�"Set ElfK$sampsize "+�B%:�"Set ElfK$sampper "+�C%
`1ș "Sound_Volume",0 � A%:�"Set ElfK$vol "+�A%
j�
t
~��setsound
�1�"channelvoice 1 "+�readsysvar("ElfK$voice1")
��A%=��readsysvar("ElfK$totchans"):B%=��readsysvar("ElfK$sampsize"):C%=��readsysvar("ElfK$sampper"):ș "Sound_Configure",A%,B%,C%
�.ș "Sound_Volume",��readsysvar("ElfK$vol")
��
�
���load_template(winname$)
�Ewinstarts%!((winctr%-1)*4)=wptr%:indstarts%!((winctr%-1)*4)=iptr%
�Tș "Wimp_LoadTemplate",,wptr%,iptr%,indbase%+totindsize%,-1,winname$,0 � ,,iptr%
�noicns%=wptr%!84
��j%=0�(noicns%-1)*32�32
�+ icnblk%=wptr%+88+j%:icnf%=(icnblk%!16)
�� � �indirected(icnf%)���sprite(icnf%)��text(icnf%)�(icnblk%!24<>-1) �:秤readstring(icnblk%!24),"b0")<>0 icnf%=icnf%�&FFFF0FFF
O � ��indirected(icnf%)���sprite(icnf%)��text(icnf%) �:icnf%=icnf%�&FFFF0FFF

Q � �indirected(icnf%)��sprite(icnf%)���text(icnf%) �:icnblk%!24=userwimpsprs%
+ � ��indirected(icnf%)��sprite(icnf%) �
#  sprn$=�readstring(icnblk%+20)
(,�  SYS "XWimp_SpriteOp",40,,sprn$ TO ;f%
2.  ș "XWimp_SpriteOp",40,,sprn$ � ,,,w%,h%
<��  IF(f%AND%0001)=%0001:icnf%=icnf%OR256:$iptr%=sprn$:?(iptr%+(LENsprn$))=0:icnblk%!20=iptr%:icnblk%!24=userwimpsprs%:icnblk%!28=LENsprn$:iptr%+=LEN(sprn$)+1
F�  �(w%�h%)=0:icnf%=icnf%�256:$iptr%=sprn$:?(iptr%+(�sprn$))=0:icnblk%!20=iptr%:icnblk%!24=userwimpsprs%:icnblk%!28=�sprn$:iptr%+=�(sprn$)+1
P �
ZC �(winname$="setup")�((j%=(19*32))�(j%=(22*32))�(j%=(23*32))) �
d5  �iscgaonly �:icnf%=(icnf%�&F0FFFFFF)�&03000000
n �
x icnblk%!16=icnf%
��
�(wptr%+=88+((wptr%!84)*32):winctr%+=1
�
�a�PROCerror("name= "+winname$+"   i= "+STR$(iptr%-indbase%)+"     w= "+STR$(wptr%-winbase%),0)
�
��
�
�ݤindirected(f%)
�=((f%�256)=256)
�
�ݤsprite(f%)
�=((f%�2)=2)
�
ݤtext(f%)
=((f%�1)=1)

"��createwindows
,2!userwimpsprs%=wimpsprsize%:userwimpsprs%!8=16
6'ș "OS_SpriteOp",&109,userwimpsprs%
@Aș "OS_SpriteOp",&10A,userwimpsprs%,"<ElfK$chaindir>.Sprites"
J
winctr%=1
T7ș "Wimp_OpenTemplate",,"<ElfK$chaindir>.Templates"
^h�load_template("proginfo"):�load_template("setup"):�load_template("messages"):�load_template("keys")
h1ș "Wimp_CreateWindow",,winstarts%!0 � infow%
r2ș "Wimp_CreateWindow",,winstarts%!4 � setupw%
|1ș "Wimp_CreateWindow",,winstarts%!8 � messw%
�2ș "Wimp_CreateWindow",,winstarts%!12 � keysw%
�ș "Wimp_CloseTemplate"
��
�
���initwindows
�� j%
�� �iscgaonly �
�4 �selecticn(setupw%,2,�):�selecticn(setupw%,3,�)
�& �j%=2�3:�shadeicn(setupw%,j%,�):�
��
�- f%=��readsysvar("ElfK$Vga"):�setmode(f%)
��
�.prelink_flag%=��readsysvar("ElfK$PreLink")
�

��checkarm3
&K%!&DC=0
0	t1%=�
:�k%=0�20000:�
D	t2%=�
N�(t2%-t1%)<15:K%!&DC=1
X�
b
l��puticnstring(w%,i%,a$)
v3!blk%=w%:blk%!4=i%:ș "Wimp_GetIconState",,blk%
�$$(blk%!28)=a$:?((blk%!28)+�a$)=0
�3blk%!8=0:blk%!12=0:ș "Wimp_SetIconState",,blk%
��
�
�ݤgeticnstring(w%,i%)
�3!blk%=w%:blk%!4=i%:ș "Wimp_GetIconState",,blk%
�=�readstring(blk%!28)
�
�ݤreadstring(p%)
�2�a$:a$="":ȕ �a$<255 � ?p%>31 a$+=�?p%:p%+=1:�
�=a$
�
�ݤreadsysvar(a$)
� A%
Oș "OS_ReadVarVal",a$,blk%,256,0,0 � ,,a%:a$="":�A%=0�a%-1:a$+=�(blk%?A%):�
=a$
 
*ݤreadvduvar(a%)
49!blk%=a%:blk%!4=-1:ș "OS_ReadVduVariables",blk%,blk%
>
=!blk%
H
R��geticonstate(w%,i%)
\3!blk%=w%:blk%!4=i%:ș "Wimp_GetIconState",,blk%
f�
p
zݤisselected(w%,i%)
��geticonstate(w%,i%)
� =((blk%!24)�(1<<21))=(1<<21)
�
�ݤfiletype(a$)
�ș "XOS_File",5,a$ � a%
�=a%
�
�ݤconverttolower(a$)
�� l%,b$,ch%:b$=""
�
�l%=1��a$
�ch%=�(�a$,l%,1))
�!�(ch%>&40)�(ch%<&5B):ch%+=&20
�b$+=�ch%
	�
	=b$
	
	$ݤleaf(f$)
	.� j%
	8'j%=�f$:ȕj%>1��f$,j%,1)<>"."j%-=1:�
	B�f$,j%,1)="."j%+=1
	L=�f$,j%)
	V
	`��setmode(f%)
	j�i%=0�1
	tC �i%=f%:�selecticn(setupw%,2+i%,�):�:�selecticn(setupw%,2+i%,�)
	~�
	��
	�
	���selecticn(w%,i%,f%)
	�F!blk%=w%:blk%!4=i%:blk%!12=(1<<21):�f%=0 blk%!8=0:� blk%!8=blk%!12
	� ș "Wimp_SetIconState",,blk%
	��
	�
	���shadeicn(w%,i%,f%)
	�$!blk%=w%:blk%!4=i%:blk%!12=1<<22
	��f% blk%!8=1<<22:�:blk%!8=0
	� ș "Wimp_SetIconState",,blk%
	��


��fadeicn(w%,i%,f%)
� j%
� j%=24�27
(% !blk%=w%:blk%!4=i%:blk%!12=1<<j%
2
 �f% �
<%  �j%<=25:blk%!8=1<<j%:�:blk%!8=0
F �
P%  �j%<=26:blk%!8=1<<j%:�:blk%!8=0
Z �
d! ș "Wimp_SetIconState",,blk%
n�
x�
�
���hideicn(w%,i%,f%)
�$!blk%=w%:blk%!4=i%:blk%!12=1<<23
��f% blk%!8=1<<23:�:blk%!8=0
� ș "Wimp_SetIconState",,blk%
��
�
���hidesaveareabit
�%�j%=5�11:�hideicn(setupw%,j%,�):�
��
�
���createbaricon
�$baricn%="iconbar"
4!blk%=-1:blk%!4=0:blk%!8=0:blk%!12=62:blk%!16=72
Mblk%!20=&1000313A:blk%!24=baricn%:blk%!28=userwimpsprs%:blk%!32=�$baricn%
ș "Wimp_CreateIcon",,blk%
"�
,
6��pollloop
@(ș "Wimp_Poll",%110001,blk% � event%
JȎ event% �
T  � 1: �redraw
^  � 2: �openwind(blk%)
h  � 3: �closewind(blk%)
r)  � 6: �click(blk%!8,blk%!12,blk%!16)
|  � 9: �menuclick
�  � 17,18: �receive
��
��
�
���redraw
�(ș "Wimp_RedrawWindow",,blk% � more%
�ȕ more%
�+  ș "Wimp_GetRectangle",,blk% � more%:
��
��
�
���openwind(b%)
�ș "Wimp_OpenWindow",,b%
�

��closewind(b%)
&ș "Wimp_CloseWindow",,b%
0�
:
D��click(but%,win%,icn%)
N
Ȏ win% �
X
 � -2:
b  Ȏ but% �
lS   � 2: �mainmenu("ElfKing","Info,Message,Special Keys,Setup,7Quit,",!blk%,300)
v   � 4: �startgame
�  �
�' � setupw%: �setupwclick(but%,icn%)
��
��
�
�'��mainmenu(title$,menuitems$,x%,y%)
�"�definemenu(title$,menuitems$)
�I�linksubmenu(1,infow%):�linksubmenu(3,keysw%):�linksubmenu(4,setupw%)
�2ș "Wimp_CreateMenu",,menu%,x%-(menu%!16/2),y%
�currmenu%=-1
��
�
�#��definemenu(title$,menuitems$)

$menu%=title$

Fmenu%?12=7:menu%?13=2:menu%?14=7:menu%?15=0:menu%!20=40:menu%!24=0

#item%=menu%+28:width%=�(title$)

 �

* comma%=�menuitems$,",")

4) item$=�menuitems$,comma%-1):!item%=0

> �:morecodes%=�

H7  �item$,1)="0" !item%=(!item%)�%0001:morecodes%=�

R7  �item$,1)="1" !item%=(!item%)�%0010:morecodes%=�

\7  �item$,1)="2" !item%=(!item%)�%0100:morecodes%=�

f7  �item$,1)="3" !item%=(!item%)�%1000:morecodes%=�

p;  �item$,1)="7" !item%=(!item%)�%10000000:morecodes%=�

zS  �item$,1)="8" item%!8=&07400021:item$=�item$,�(item$)-1):�:item%!8=&07000021

�+  � morecodes% item$=�item$,�(item$)-1)

� � � morecodes%

� $(item%+12)=item$

�+ �(�(item$)+1)>width%:width%=�(item$)+1

� item%!4=-1

�% menuitems$=�menuitems$,comma%+1)

� item%=item%+24

�� menuitems$=""

�menu%!16=width%*16

��

�

���linksubmenu(itemno%,w%)

�#item%=menu%+28+((itemno%-1)*24)
item%!4=w%
�

$��setupwclick(b%,i%)
.� j%
8�b%=2:�
BȎ i% �
L; � 2,4: �selecticn(setupw%,2,�):�selecticn(setupw%,3,�)
V; � 3,5: �selecticn(setupw%,3,�):�selecticn(setupw%,2,�)
`�
j�
t
~��wintoscrn(b%)
�.!blk2%=!b%:ș "Wimp_GetWindowState",,blk2%
�b%!8+=(blk2%!4)-(blk2%!20)
� b%!12+=(blk2%!16)-(blk2%!24)
�b%!16+=(blk2%!4)-(blk2%!20)
� b%!20+=(blk2%!16)-(blk2%!24)
��
�
���error(msg$,errno%)
��CLOSE#0
�!!errblk%=99:$(errblk%+4)=msg$
�-ș "Wimp_ReportError",errblk%,0,"ElfKing"
��


��menuclick
#ș "Wimp_GetPointerInfo",,blk2%
currmenubut%=blk2%!8
(Ȏ currmenu% �
2
 � -1:
<  Ȏ !blk% �
F   � 0: �checkadjust
P#   � 1: �openmessw:�checkadjust
Z   � 2: �checkadjust
d   � 3: �checkadjust
n   � 4: quit%=�
x  �
��
��
�
���checkadjust
�7�currmenubut%=1:ș "Wimp_CreateMenu",,menu%,100,100
��
�
���openmessw
�笤isopen(messw%)�
�0 !blk%=messw%:ș "Wimp_GetWindowState",,blk%
�8 �xmaxec%>1132:blk%!4=�((xmaxec%-1132)/2):�:blk%!4=0
�6 �ymaxec%>768:blk%!8=�((ymaxec%-768)/2):�:blk%!8=0
�C blk%!12=(blk%!4)+1132:blk%!16=(blk%!8)+768:blk%!20=0:blk%!24=0
 blk%!28=-1:�openwind(blk%)
�
�
"
,
��receive
6Ȏ blk%!16 �
@ � 0: quit%=�
J�
T�
^
hݤfindmode
r� �iscgaonly �:=0
|�isselected(setupw%,2):=0
�=1
�
�ݤcheckfont(a$,A%,B%)
�� �
�� � �:=0
�)ș "Font_FindFont",,a$,A%,B%,0,0 � h%
�ș "Font_LoseFont",h%:� �
�=�
�
���startgame
�� j%
�8ș "Font_ReadFontMax" � fm%,fm1%,fm2%,fm3%,fm4%,fm5%
�C�fm2%<57600 ș "Font_SetFontMax",fm%,fm1%,57600,57600,fm4%,fm5%
1ș "OS_Byte",135 � ,,a%:�"Set ElfK$Mode "+�a%
ș "Sound_Volume",127
(�"Set ElfK$maxstarts "+�(maxstarts%)
&S%=1:K%=mc%
0�"Set ElfK$wordcol 5"
:Y�checkfont("Tabloid.medium",320,360)=� �error("Font:'Tabloid.Medium' not found",0):�
D� �iscgaonly �
Nl ș "Wimp_SetMode",15:�(�readvduvar(150)/1024)<160 �error("Not enough memory to change screen mode",1):�
X�
b � �isvga �
l  �"Set ElfK$Vga 1"
vm  ș "Wimp_SetMode",28:�(�readvduvar(150)/1024)<300 �error("Not enough memory to change screen mode",1):�
� �
�  �"Set ElfK$Vga 0"
�m  ș "Wimp_SetMode",15:�(�readvduvar(150)/1024)<160 �error("Not enough memory to change screen mode",1):�
� �
��
�"ș "Wimp_CloseDown",,&4B534154
�+�savesound:ș "Sound_Configure",1,B%,C%
��=oldhimem%
��push_variables
�<�palette:�26:�18,0,131:�k%=2�1�-1:ș"OS_Byte",112,k%:�:�
��ONERROR SYS"OS_Byte",250,0,255 TO ,scr%:SYS"OS_Byte",113,scr%:PRINT REPORT$+" (Internal error code "+STR$ERL+")"+CHR$0:END
�ș "OS_RemoveCursors"
��pull_variables
�initiallise
.�j%=32�126:�words(0,-200,-1,3,0,0,�(j%)):�
;�(prelink_flag%=1)�(S%=1):�pre_link:*Set ElfK$PreLink 0
 
*	�link
4�
>
H��wait(delay%)
Ra%=�:���>=a%+delay%
\�
f
p��pull_variables
zaddmask%=!(K%+&04)
�copyscr%=!(K%+&0C)
�fonts%=!(K%+&10)
�letters%=!(K%+&14)
�mergescr%=!(K%+&30)
�blowupscr%=!(K%+&34)
�waterfall%=!(K%+&38)
�maskit%=!(K%+&3C)
�mscreen_one%=!(K%+&A8)
�!mscreen_one%=K%!&C0
�mscreen_one%!4=K%!&C4
�screen_offsets%=!(K%+&B4)
�sqbuffer%=!(K%+&C8)
�sqfile%=!(K%+&D0)
sparea2%=!(K%+&D0)
butarea%=!(K%+&D4)
sparea%=!(K%+&D8)
$effect_start%=!(K%+&B8)
.cgavga%=!(K%+&F0)
8
Bsparea2siz%=36*1024
Lbutareasiz%=31*1024
Vspareasiz%=240*1024
`�
j
t��push_variables
~�checkmode
��checkarm3
�K%!&C8=&A400
�K%!&D0=&F000
�K%!&D4=&18000
�K%!&D8=&1FC00
��screenstarts
��
�
���screenstarts
�)ș "OS_Byte",113,1:ș "OS_Byte",112,2
�"!blk%=149:blk%!4=148:blk%!8=-1
�&ș "OS_ReadVduVariables",blk%,blk%
$!(K%+&C0)=!blk%:!(K%+&C4)=blk%!4

B�!(K%+&F0)=1:K%!&C0=(K%!&C0)+(16*320):K%!&C4=(K%!&C4)+(16*320)
�

(��checkmode
2� �iscgaonly �
< �12:K%!&F0=1
F�
P( �isvga:�27:K%!&F0=2:�:�12:K%!&F0=1
Z�
d�
n
x��masksprite(area%,nosp%)
�� j%
��j%=0�nosp%-1
�+ ș"OS_SpriteOp",&11D,area%,masksp$(j%)
�N ș"OS_SpriteOp",&118,area%,masksp$(j%) � ,,C%:A%=C%+(C%!32):B%=C%+(C%!36)
�R ș"OS_SpriteOp",&128,area%,masksp$(j%) � ,,,C%,D%:�(C%�8)<>0:C%=(�(C%/8)+1)*8
�  C%=(C%*D%)/2:D%=masksp%(j%)
� � addmask%
��
��
�
�(��loadunsquash(area%,areasiz%,file$)
��load(file$)
��unsquash(area%,areasiz%)
�

��load(file$)
"0�"LOAD <ElfK$chaindir>."+file$+" "+�~sqfile%
,8ș "OS_File",5,"<ElfK$chaindir>."+file$ � ,,,,sqsiz%
6�
@
J��unsquash(outptr%,outsiz%)
TRș "Squash_Decompress",%100,sqbuffer%,sqfile%+20,sqsiz%-20,outptr%+4,outsiz%-4
^'!sparea2%=sparea2siz%:sparea2%!8=16
h"ș "OS_SpriteOp",&109,sparea2%
r�
|
���initiallise
�� input_disk_name% 256
�@� link%(maxstarts%),sum%(5,2),sum2%(5,5),seq%(1,3),numb%(20)
�� +0
�A� 1010,1020,1030,1040,1050,1060,1070,1080,1090,1100,1110,1120
�!�i%=1�maxstarts%:�link%(i%):�
�spareasiz%-=2048
�?� ******** line above temporary 'cos of space for printing.
�$!sparea%=spareasiz%:sparea%!8=16
�!ș "OS_SpriteOp",&109,sparea%
�'!butarea%=butareasiz%:butarea%!8=16
�"ș "OS_SpriteOp",&109,butarea%
�'!sparea2%=sparea2siz%:sparea2%!8=16
"ș "OS_SpriteOp",&109,sparea2%
I� scale% 16:scale%!0=16:scale%!4=16*(K%!&F0):scale%!8=16:scale%!12=16
ș "OS_Byte",112,1
&aa=�(-�)
0� get buttons
:1�loadunsquash(butarea%,butareasiz%,"buttons")
D� masksp$(29),masksp%(29)
Ndmasksp$(0)="bookbut":masksp$(1)="bub":masksp$(11)="elfhead0":masksp$(21)="worm":masksp$(10)="h0"
X&�j%=2�7:masksp$(j%)="bb"+�(j%-1):�
b'�j%=8�9:masksp$(j%)="bub"+�(j%-7):�
l+�j%=12�20:masksp$(j%)="star"+�(j%-12):�
vdmasksp$(22)="m1":masksp$(23)="reader":masksp$(24)="bub3":masksp$(25)="bang":masksp$(26)="sayarr"
�(masksp%()=4:�masksprite(butarea%,27)
�� clear MOUSE 2
��j%=0�12�4:blk%!j%=0:�
� blk%?1=2:ș"OS_Word",21,blk%
�:ȗ � 2:ȗ � 1000,100:ȗ mx%,my%,mbut%:W%=(mx%<<16)�my%
�� +0
�� 1,2,10,5,2,5,10,3
�%�i%=0�1:�j%=0�3:� seq%(i%,j%):�:�
��
�
���scrcopy21
� ș "OS_Byte",113,2:A%=2:B%=1
�� copyscr%
.ș "OS_Byte",113,1:ș "OS_Byte",112,1:� 26
�

 
��palette
*� +0
45� &FF,&FF,&FF,&AA,&AA,&AA,&77,&77,&77,&00,&00,&00
>5� &00,&00,&AA,&00,&66,&FF,&00,&CC,&FF,&FF,&88,&00
H5� &EE,&00,&00,&FF,&FF,&00,&99,&55,&00,&FF,&CC,&99
R5� &00,&88,&11,&00,&BB,&00,&00,&EE,&22,&BB,&77,&00
\2� i%=0 � 15:� r%, g%, b%:� 19,i%,16,r%,g%,b%:�
f�
p
z
��link
�L%=link%(S%)
�
�
�chain(1)
��
�
���chain(di%)
��di%=1:file$="ONE.LINK"
��di%=2:file$="TWO.LINK"
�.�Y%=0:�checkfloppyisthere(di%,""):�:ok%=-1
�)file$="<ElfK$chaindir>."+file$:*FX229
�
*FX220,17
��A%=memtop%+4
��PAGE=&41000
	�ok%�
 �file$
�
$ �desk_top
.�
8�
B
L��desk_top
V6�:�buf% 4:�i%=1�16:Ȗ:�c%=0�16:�c%<16v%=16 � v%=24
`Pș"OS_ReadPalette",c%,v% � ,,d%:!buf%=d%:�b%=1�3:�buf%?b%>0buf%?b%-=16:�:�:�
j%�19,c%,v%,buf%?1,buf%?2,buf%?3:�,
t!� "<ElfK$chaindir>.!runimage"
~�
�
�#��checkfloppyisthere(di%,file$)
�=ok%=-1:test%=0:�:�floppy_disk(di%,file$):�(error%=0)��ok%
��
�
���floppy_disk(di%,file$)
�=ș "OS_SpriteOp",&110,sparea2%,"discbg",0,320,360,920,600
��
�x��:� �:ș "OS_SpriteOp",&134,sparea2%,"discbg",320,360,0:ș "OS_SpriteOp",&119,sparea2%,"discbg":error%=1:test%=1:�
��ONERRORLOCAL SYS"OS_Byte",250,0,255 TO ,scr%:SYS"OS_Byte",113,scr%:PRINT REPORT$+" (Internal error code "+STR$ERL+")"+CHR$0:x=GET:END
��
�  error%=0
T  �test%=1:�diskwindow("Please place the disk","'ElfKing"+�(di%)+"' in drive 0")

  *ADFS
  *MOUNT 0
%  ș"OS_GBPB",5,,input_disk_name%
()  len_d_n%=?input_disk_name%:name$=""
2  �dn%=1�len_d_n%
<H  �?(input_disk_name%+dn%)>31:name$=name$+�(?(input_disk_name%+dn%))
F  �
P7  ș "OS_SpriteOp",&122,sparea2%,"discbg",320,360,0
Z)  �name$<>"ElfKing"+�(di%) �:error%=1
d
  test%=1
n%  �"SET ElfK$chaindir $.!ElfKing"
xG  �file$<>"":ș "XOS_Find",&40,"<ElfK$chaindir>."+file$ � h%:�:h%=1
�.�((h%<>0)�(error%=0))��ok%:�file$<>"":�#h%
�]ș "OS_SpriteOp",&122,sparea2%,"discbg",320,360,0:ș "OS_SpriteOp",&119,sparea2%,"discbg"
�ȗ � 2:ȗ ȓ 0,0,1279,960
�� �
��
�
���diskwindow(line1$,line2$)
��box(320,360,600,240,0,4)
�&�words(320,520,-1,3,-1,600,line1$)
�&�words(320,460,-1,3,-1,600,line2$)
�=�box(800,372,108,72,0,4):�words(800,390,-1,3,-1,108,"OK")
�H�PROCbox(336,372,240,72,0,4):PROCwords(336,390,-1,3,-1,240,"Cancel")
�0ȗ ȓ 320,360,600,90:ȗ � 1:ș"OS_Byte",21,9
P�:ȗdmx%,dmy%,dmc%:�(dmc%=4)�(dmy%>=370)�(dmy%<=440)�(dmx%>=800)�(dmx%<=910)
��REPEAT:MOUSEdmx%,dmy%,dmc%:UNTIL(dmc%=4)AND(dmy%>=370)AND(dmy%<=440)AND(((dmx%>=800)AND(dmx%<=910))OR((dmx%>=336)AND(dmx%<=576)))
2�IF(dmx%>=800)AND(dmx%<=910):ok%=-1:ELSE:ok%=0
"�
,
6��pre_link
@J%=S%:X%=�(9)-1
J
I%=�(2)-1
T�
^
h
r-��words(A%,B%,big%,E%,centre%,of%,words$)
|'�big%:C%=320:D%=360:�:C%=240:D%=270
�/�centre%:A%+=�((of%-�stringsize(words$))/2)
�B�lett%=1��(words$):?(letters%+(lett%-1))=�(�words$,lett%,1)):�
�?(letters%+�(words$))=&0D
�� fonts%
��
�
�$��box(x%,y%,sx%,sy%,col%,linew%)
�3�18,0,3:�25,4,x%;y%;:�25,101,x%+sx%-2;y%+sy%-2;
�%�clbox(x%,y%,sx%,sy%,col%,linew%)
��
�
�&��clbox(x%,y%,sx%,sy%,col%,linew%)
�F�18,0,col%:�25,4,x%+linew%;y%+4;:�25,101,x%+sx%-2-linew%;y%+sy%-6;
�

ݤstringsize(s$)
&
� wid%,h%
08ș"Font_FindFont",,"tabloid.medium",320,360,0,0 � h%
:$blk%=s$
DLș"Font_StringWidth",,blk%,600000,48000,-1,80 � r0%,r1%,wid%,r3%,r4%,r5%
Nș"Font_LoseFont",h%
X
=wid%/400
b
�

00000000  0d 00 0a 0d 2a 46 58 32  32 30 2c 32 37 0d 00 14  |....*FX220,27...|
00000010  18 6f 6c 64 68 69 6d 65  6d 25 3d 93 3a d3 3d 26  |.oldhimem%=.:.=&|
00000020  36 37 36 30 30 0d 00 1e  0f f2 73 6f 72 74 6d 65  |67600.....sortme|
00000030  6d 6f 72 79 0d 00 28 0d  f2 69 6e 69 74 77 69 6d  |mory..(..initwim|
00000040  70 0d 00 32 0d f2 69 6e  69 74 76 61 72 73 0d 00  |p..2..initvars..|
00000050  3c 31 e7 20 a4 72 65 61  64 73 79 73 76 61 72 28  |<1. .readsysvar(|
00000060  22 45 6c 66 4b 24 45 6e  74 72 79 50 74 22 29 3d  |"ElfK$EntryPt")=|
00000070  22 66 72 6f 6d 73 74 61  72 74 75 70 22 20 8c 0d  |"fromstartup" ..|
00000080  00 46 1b 20 20 e7 20 ac  20 a4 61 6c 72 65 61 64  |.F.  . . .alread|
00000090  79 72 75 6e 6e 69 6e 67  20 8c 0d 00 50 1f 20 20  |yrunning ...P.  |
000000a0  20 20 ff 22 53 65 74 20  45 6c 66 4b 24 69 73 72  |  ."Set ElfK$isr|
000000b0  75 6e 6e 69 6e 67 20 31  22 0d 00 5a 07 20 20 cc  |unning 1"..Z.  .|
000000c0  0d 00 64 4f 20 20 20 20  f2 65 72 72 6f 72 28 22  |..dO    .error("|
000000d0  45 6c 66 4b 69 6e 67 20  69 73 20 61 6c 72 65 61  |ElfKing is alrea|
000000e0  64 79 20 72 75 6e 6e 69  6e 67 22 2c 30 29 3a c8  |dy running",0):.|
000000f0  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. "Wimp_CloseDow|
00000100  6e 22 2c 2c 26 34 42 35  33 34 31 35 34 3a e0 0d  |n",,&4B534154:..|
00000110  00 6e 07 20 20 cd 0d 00  78 16 20 20 f2 69 6e 69  |.n.  ...x.  .ini|
00000120  74 66 72 6f 6d 73 74 61  72 74 75 70 0d 00 82 23  |tfromstartup...#|
00000130  20 20 2a 53 65 74 20 45  6c 66 4b 24 63 68 61 69  |  *Set ElfK$chai|
00000140  6e 64 69 72 20 3c 45 6c  66 4b 24 44 69 72 3e 0d  |ndir <ElfK$Dir>.|
00000150  00 8c 05 cc 0d 00 96 31  20 20 c8 99 20 22 57 69  |.......1  .. "Wi|
00000160  6d 70 5f 53 65 74 4d 6f  64 65 22 2c bb a4 72 65  |mp_SetMode",..re|
00000170  61 64 73 79 73 76 61 72  28 22 45 6c 66 4b 24 4d  |adsysvar("ElfK$M|
00000180  6f 64 65 22 29 0d 00 a0  0f 20 20 f2 73 65 74 73  |ode")....  .sets|
00000190  6f 75 6e 64 0d 00 aa 0c  20 20 e7 59 25 3d 30 8c  |ound....  .Y%=0.|
000001a0  0d 00 b4 26 20 20 20 ff  22 53 45 54 20 45 6c 66  |...&   ."SET Elf|
000001b0  4b 24 63 68 61 69 6e 64  69 72 20 24 2e 21 45 6c  |K$chaindir $.!El|
000001c0  66 4b 69 6e 67 22 0d 00  be 07 20 20 cc 0d 00 c8  |fKing"....  ....|
000001d0  24 20 20 20 2a 53 65 74  20 45 6c 66 4b 24 63 68  |$   *Set ElfK$ch|
000001e0  61 69 6e 64 69 72 20 3c  45 6c 66 4b 24 44 69 72  |aindir <ElfK$Dir|
000001f0  3e 0d 00 d2 07 20 20 cd  0d 00 dc 05 cd 0d 00 e6  |>....  .........|
00000200  12 f2 63 72 65 61 74 65  77 69 6e 64 6f 77 73 0d  |..createwindows.|
00000210  00 f0 10 f2 69 6e 69 74  77 69 6e 64 6f 77 73 0d  |....initwindows.|
00000220  00 fa 12 f2 63 72 65 61  74 65 62 61 72 69 63 6f  |....createbarico|
00000230  6e 0d 01 04 37 ee 20 85  20 f2 65 72 72 6f 72 28  |n...7. . .error(|
00000240  f6 24 2b 22 20 28 49 6e  74 65 72 6e 61 6c 20 65  |.$+" (Internal e|
00000250  72 72 6f 72 20 63 6f 64  65 20 22 2b c3 9e 2b 22  |rror code "+..+"|
00000260  29 22 2b bd 30 2c 9f 29  0d 01 0e 17 f5 20 f2 70  |)"+.0,.)..... .p|
00000270  6f 6c 6c 6c 6f 6f 70 3a  fd 20 71 75 69 74 25 0d  |ollloop:. quit%.|
00000280  01 18 22 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |..".. "Wimp_Clos|
00000290  65 44 6f 77 6e 22 2c 2c  26 34 42 35 33 34 31 35  |eDown",,&4B53415|
000002a0  34 0d 01 22 1b ff 22 53  65 74 20 45 6c 66 4b 24  |4..".."Set ElfK$|
000002b0  69 73 72 75 6e 6e 69 6e  67 20 30 22 0d 01 2c 26  |isrunning 0"..,&|
000002c0  c8 99 20 22 58 4f 53 5f  4d 6f 64 75 6c 65 22 2c  |.. "XOS_Module",|
000002d0  34 2c 22 50 61 63 6b 53  6f 75 6e 64 25 65 6c 66  |4,"PackSound%elf|
000002e0  6b 22 0d 01 36 09 2a 51  55 49 54 0d 01 40 05 e0  |k"..6.*QUIT..@..|
000002f0  0d 01 4a 04 0d 01 54 04  0d 01 5e 10 dd f2 73 6f  |..J...T...^...so|
00000300  72 74 6d 65 6d 6f 72 79  0d 01 68 1d 69 6e 64 62  |rtmemory..h.indb|
00000310  61 73 65 25 3d 93 3a 69  70 74 72 25 3d 69 6e 64  |ase%=.:iptr%=ind|
00000320  62 61 73 65 25 0d 01 72  25 74 6f 74 69 6e 64 73  |base%..r%totinds|
00000330  69 7a 65 25 3d 34 30 39  36 3a 74 6f 74 77 69 6e  |ize%=4096:totwin|
00000340  73 69 7a 65 25 3d 35 36  30 38 0d 01 7c 30 77 69  |size%=5608..|0wi|
00000350  6e 62 61 73 65 25 3d 69  6e 64 62 61 73 65 25 2b  |nbase%=indbase%+|
00000360  74 6f 74 69 6e 64 73 69  7a 65 25 3a 77 70 74 72  |totindsize%:wptr|
00000370  25 3d 77 69 6e 62 61 73  65 25 0d 01 86 6c 69 6e  |%=winbase%...lin|
00000380  64 73 74 61 72 74 73 25  3d 77 69 6e 62 61 73 65  |dstarts%=winbase|
00000390  25 2b 74 6f 74 77 69 6e  73 69 7a 65 25 3a 77 69  |%+totwinsize%:wi|
000003a0  6e 73 74 61 72 74 73 25  3d 69 6e 64 73 74 61 72  |nstarts%=indstar|
000003b0  74 73 25 2b 34 30 3a 75  73 65 72 77 69 6d 70 73  |ts%+40:userwimps|
000003c0  70 72 73 25 3d 77 69 6e  73 74 61 72 74 73 25 2b  |prs%=winstarts%+|
000003d0  34 30 3a 77 69 6d 70 73  70 72 73 69 7a 65 25 3d  |40:wimpsprsize%=|
000003e0  37 2a 31 30 32 34 0d 01  90 1a 6d 63 25 3d 26 39  |7*1024....mc%=&9|
000003f0  30 30 30 3a 70 64 62 73  25 3d 26 34 30 30 30 30  |000:pdbs%=&40000|
00000400  0d 01 9a 05 e1 0d 01 a4  04 0d 01 ae 0e dd f2 69  |...............i|
00000410  6e 69 74 77 69 6d 70 0d  01 b8 3e c8 99 20 22 57  |nitwimp...>.. "W|
00000420  69 6d 70 5f 49 6e 69 74  69 61 6c 69 73 65 22 2c  |imp_Initialise",|
00000430  32 30 30 2c 26 34 42 35  33 34 31 35 34 2c 22 45  |200,&4B534154,"E|
00000440  6c 66 4b 69 6e 67 22 20  b8 20 2c 74 61 73 6b 68  |lfKing" . ,taskh|
00000450  61 6e 64 6c 25 0d 01 c2  57 ee 85 20 f2 65 72 72  |andl%...W.. .err|
00000460  6f 72 28 f6 24 2b 22 20  28 49 6e 74 65 72 6e 61  |or(.$+" (Interna|
00000470  6c 20 65 72 72 6f 72 20  63 6f 64 65 20 22 2b c3  |l error code "+.|
00000480  9e 2b 22 29 22 2b bd 30  2c 9f 29 3a c8 99 20 22  |.+")"+.0,.):.. "|
00000490  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 2c  |Wimp_CloseDown",|
000004a0  2c 26 34 42 35 33 34 31  35 34 3a e0 0d 01 cc 05  |,&4B534154:.....|
000004b0  e1 0d 01 d6 04 0d 01 e0  0e dd f2 69 6e 69 74 76  |...........initv|
000004c0  61 72 73 0d 01 ea 65 de  20 62 6c 6b 25 20 32 35  |ars...e. blk% 25|
000004d0  36 2c 65 72 72 62 6c 6b  25 20 32 30 30 2c 6d 65  |6,errblk% 200,me|
000004e0  6e 75 25 20 31 30 32 34  2c 62 6c 6b 32 25 20 32  |nu% 1024,blk2% 2|
000004f0  35 36 2c 70 64 62 62 75  66 66 25 20 32 35 36 2c  |56,pdbbuff% 256,|
00000500  70 61 6c 63 6f 64 65 25  20 39 30 30 2c 62 61 72  |palcode% 900,bar|
00000510  69 63 6e 25 20 31 32 2c  69 6e 62 25 20 32 30 2c  |icn% 12,inb% 20,|
00000520  6f 75 74 62 25 20 32 30  0d 01 f4 20 41 25 3d 69  |outb% 20... A%=i|
00000530  6e 64 62 61 73 65 25 3a  42 25 3d 69 6e 64 62 61  |ndbase%:B%=indba|
00000540  73 65 25 2b 31 30 32 34  0d 01 fe 19 71 75 69 74  |se%+1024....quit|
00000550  25 3d a3 3a 6d 61 78 73  74 61 72 74 73 25 3d 31  |%=.:maxstarts%=1|
00000560  32 0d 02 08 34 21 69 6e  62 25 3d 34 3a 69 6e 62  |2...4!inb%=4:inb|
00000570  25 21 34 3d 35 3a 69 6e  62 25 21 38 3d 31 31 3a  |%!4=5:inb%!8=11:|
00000580  69 6e 62 25 21 31 32 3d  31 32 3a 69 6e 62 25 21  |inb%!12=12:inb%!|
00000590  31 36 3d 2d 31 0d 02 12  0d 73 74 61 72 74 25 3d  |16=-1....start%=|
000005a0  53 25 0d 02 1c 0e 73 6e  64 6d 61 78 25 3d 31 35  |S%....sndmax%=15|
000005b0  0d 02 26 12 f2 67 65 74  73 63 72 65 65 6e 73 69  |..&..getscreensi|
000005c0  7a 65 0d 02 30 05 e1 0d  02 3a 04 0d 02 44 13 dd  |ze..0....:...D..|
000005d0  f2 67 65 74 73 63 72 65  65 6e 73 69 7a 65 0d 02  |.getscreensize..|
000005e0  4e 26 c8 99 22 4f 53 5f  52 65 61 64 56 64 75 56  |N&.."OS_ReadVduV|
000005f0  61 72 69 61 62 6c 65 73  22 2c 69 6e 62 25 2c 6f  |ariables",inb%,o|
00000600  75 74 62 25 0d 02 58 4e  78 6d 61 78 65 63 25 3d  |utb%..XNxmaxec%=|
00000610  28 28 28 6f 75 74 62 25  21 38 29 2b 31 29 3c 3c  |(((outb%!8)+1)<<|
00000620  28 6f 75 74 62 25 21 30  29 29 2d 31 3a 79 6d 61  |(outb%!0))-1:yma|
00000630  78 65 63 25 3d 28 28 28  6f 75 74 62 25 21 31 32  |xec%=(((outb%!12|
00000640  29 2b 31 29 3c 3c 28 6f  75 74 62 25 21 34 29 29  |)+1)<<(outb%!4))|
00000650  2d 31 0d 02 62 05 e1 0d  02 6c 04 0d 02 76 14 dd  |-1..b....l...v..|
00000660  a4 61 6c 72 65 61 64 79  72 75 6e 6e 69 6e 67 0d  |.alreadyrunning.|
00000670  02 80 08 ea 20 41 25 0d  02 8a 07 ea 20 85 0d 02  |.... A%..... ...|
00000680  94 0e ee 85 ea 3a f7 20  85 3a 3d 30 0d 02 9e 3b  |.....:. .:=0...;|
00000690  c8 99 20 22 4f 53 5f 52  65 61 64 56 61 72 56 61  |.. "OS_ReadVarVa|
000006a0  6c 22 2c 22 45 6c 66 4b  24 69 73 72 75 6e 6e 69  |l","ElfK$isrunni|
000006b0  6e 67 22 2c 62 6c 6b 25  2c 32 35 36 2c 30 2c 30  |ng",blk%,256,0,0|
000006c0  20 b8 20 2c 2c 61 25 0d  02 a8 25 61 24 3d 22 22  | . ,,a%...%a$=""|
000006d0  3a e3 41 25 3d 30 b8 61  25 2d 31 3a 61 24 2b 3d  |:.A%=0.a%-1:a$+=|
000006e0  bd 28 62 6c 6b 25 3f 41  25 29 3a ed 0d 02 b2 07  |.(blk%?A%):.....|
000006f0  f7 20 85 0d 02 bc 0f e7  61 24 3d 22 31 22 3a 3d  |. ......a$="1":=|
00000700  2d 31 0d 02 c6 06 3d 30  0d 02 d0 04 0d 02 da 15  |-1....=0........|
00000710  dd f2 69 6e 69 74 66 72  6f 6d 73 74 61 72 74 75  |..initfromstartu|
00000720  70 0d 02 e4 16 f4 71 75  69 74 25 3d 4e 4f 54 46  |p.....quit%=NOTF|
00000730  4e 70 61 6c 73 65 74 0d  02 ee 08 ea 20 6a 25 0d  |Npalset..... j%.|
00000740  02 f8 0c 73 74 61 72 74  25 3d 31 0d 03 02 22 ff  |...start%=1...".|
00000750  22 4c 4f 41 44 20 3c 45  6c 66 4b 24 44 69 72 3e  |"LOAD <ElfK$Dir>|
00000760  2e 63 6f 64 65 20 22 2b  c3 7e 6d 63 25 0d 03 0c  |.code "+.~mc%...|
00000770  0e f2 73 61 76 65 73 6f  75 6e 64 0d 03 16 14 4d  |..savesound....M|
00000780  25 3d a4 6e 65 78 74 66  72 65 65 73 6c 6f 74 0d  |%=.nextfreeslot.|
00000790  03 20 19 c8 99 20 26 34  36 31 38 39 2c 22 65 6c  |. ... &46189,"el|
000007a0  66 6b 22 20 b8 20 52 25  0d 03 2a 2f 61 24 3d a4  |fk" . R%..*/a$=.|
000007b0  63 6f 6e 76 65 72 74 74  6f 6c 6f 77 65 72 28 a4  |converttolower(.|
000007c0  72 65 61 64 73 79 73 76  61 72 28 22 45 6c 66 4b  |readsysvar("ElfK|
000007d0  24 44 69 72 22 29 29 0d  03 34 28 e7 a7 61 24 2c  |$Dir"))..4(..a$,|
000007e0  22 61 64 66 73 3a 3a 65  6c 66 6b 69 6e 67 22 29  |"adfs::elfking")|
000007f0  3c 3e 30 3a 59 25 3d 30  3a 8b 3a 59 25 3d 31 0d  |<>0:Y%=0:.:Y%=1.|
00000800  03 3e 05 e1 0d 03 48 04  0d 03 52 12 dd a4 6e 65  |.>....H...R...ne|
00000810  78 74 66 72 65 65 73 6c  6f 74 0d 03 5c 23 f4 20  |xtfreeslot..\#. |
00000820  69 66 20 6e 6f 20 73 6c  6f 74 73 20 66 72 65 65  |if no slots free|
00000830  20 74 61 6b 65 20 73 6c  6f 74 20 31 30 0d 03 66  | take slot 10..f|
00000840  0b ea 20 6a 25 2c 6b 25  0d 03 70 0c e3 6a 25 3d  |.. j%,k%..p..j%=|
00000850  31 b8 33 32 0d 03 7a 25  20 c8 99 22 53 6f 75 6e  |1.32..z% .."Soun|
00000860  64 5f 49 6e 73 74 61 6c  6c 56 6f 69 63 65 22 2c  |d_InstallVoice",|
00000870  30 2c 6a 25 20 b8 20 6b  25 0d 03 84 10 20 e7 6b  |0,j% . k%.... .k|
00000880  25 3d 30 20 8c 3a 3d 6a  25 0d 03 8e 05 ed 0d 03  |%=0 .:=j%.......|
00000890  98 07 3d 31 30 0d 03 a2  04 0d 03 ac 0f dd a4 69  |..=10..........i|
000008a0  73 63 67 61 6f 6e 6c 79  0d 03 b6 29 c8 99 22 4f  |scgaonly...).."O|
000008b0  53 5f 43 68 65 63 6b 4d  6f 64 65 56 61 6c 69 64  |S_CheckModeValid|
000008c0  22 2c 32 37 20 b8 20 72  65 67 30 25 3b 66 6c 61  |",27 . reg0%;fla|
000008d0  25 0d 03 c0 22 3d 28 28  28 66 6c 61 25 80 25 31  |%..."=(((fla%.%1|
000008e0  30 29 3d 25 31 30 29 80  28 72 65 67 30 25 3d 2d  |0)=%10).(reg0%=-|
000008f0  31 29 29 0d 03 ca 04 0d  03 d4 0b dd a4 69 73 76  |1))..........isv|
00000900  67 61 0d 03 de 20 e7 a4  69 73 73 65 6c 65 63 74  |ga... ..isselect|
00000910  65 64 28 73 65 74 75 70  77 25 2c 33 29 8c 3a 3d  |ed(setupw%,3).:=|
00000920  2d 31 0d 03 e8 06 3d 30  0d 03 f2 04 0d 03 fc 10  |-1....=0........|
00000930  dd a4 69 73 6f 70 65 6e  28 77 25 29 0d 04 06 2b  |..isopen(w%)...+|
00000940  21 62 6c 6b 25 3d 77 25  3a c8 99 20 22 57 69 6d  |!blk%=w%:.. "Wim|
00000950  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00000960  22 2c 2c 62 6c 6b 25 0d  04 10 20 3d 28 28 62 6c  |",,blk%... =((bl|
00000970  6b 25 21 33 32 29 80 28  31 3c 3c 31 36 29 29 3d  |k%!32).(1<<16))=|
00000980  28 31 3c 3c 31 36 29 0d  04 1a 04 0d 04 24 0f dd  |(1<<16)......$..|
00000990  f2 73 61 76 65 73 6f 75  6e 64 0d 04 2e 08 ea 20  |.savesound..... |
000009a0  41 25 0d 04 38 3b c8 99  22 53 6f 75 6e 64 5f 41  |A%..8;.."Sound_A|
000009b0  74 74 61 63 68 56 6f 69  63 65 22 2c 31 2c 31 20  |ttachVoice",1,1 |
000009c0  b8 20 2c 41 25 3a ff 22  53 65 74 20 45 6c 66 4b  |. ,A%:."Set ElfK|
000009d0  24 76 6f 69 63 65 31 20  22 2b c3 41 25 0d 04 42  |$voice1 "+.A%..B|
000009e0  1e c8 99 22 53 6f 75 6e  64 5f 41 74 74 61 63 68  |..."Sound_Attach|
000009f0  56 6f 69 63 65 22 2c 31  2c 41 25 0d 04 4c 68 f4  |Voice",1,A%..Lh.|
00000a00  53 59 53 20 22 53 6f 75  6e 64 5f 52 65 61 64 43  |SYS "Sound_ReadC|
00000a10  6f 6e 74 72 6f 6c 42 6c  6f 63 6b 22 2c 31 2c 32  |ontrolBlock",1,2|
00000a20  20 54 4f 20 2c 2c 76 6f  69 63 65 25 3a 76 6f 69  | TO ,,voice%:voi|
00000a30  63 65 25 3d 76 6f 69 63  65 25 41 4e 44 26 46 46  |ce%=voice%AND&FF|
00000a40  3a 4f 53 43 4c 49 22 53  65 74 20 45 6c 66 4b 24  |:OSCLI"Set ElfK$|
00000a50  76 6f 69 63 65 31 20 22  2b 53 54 52 24 76 6f 69  |voice1 "+STR$voi|
00000a60  63 65 25 0d 04 56 76 c8  99 20 22 53 6f 75 6e 64  |ce%..Vv.. "Sound|
00000a70  5f 43 6f 6e 66 69 67 75  72 65 22 2c 30 2c 30 2c  |_Configure",0,0,|
00000a80  30 20 b8 20 41 25 2c 42  25 2c 43 25 3a ff 22 53  |0 . A%,B%,C%:."S|
00000a90  65 74 20 45 6c 66 4b 24  74 6f 74 63 68 61 6e 73  |et ElfK$totchans|
00000aa0  20 22 2b c3 41 25 3a ff  22 53 65 74 20 45 6c 66  | "+.A%:."Set Elf|
00000ab0  4b 24 73 61 6d 70 73 69  7a 65 20 22 2b c3 42 25  |K$sampsize "+.B%|
00000ac0  3a ff 22 53 65 74 20 45  6c 66 4b 24 73 61 6d 70  |:."Set ElfK$samp|
00000ad0  70 65 72 20 22 2b c3 43  25 0d 04 60 31 c8 99 20  |per "+.C%..`1.. |
00000ae0  22 53 6f 75 6e 64 5f 56  6f 6c 75 6d 65 22 2c 30  |"Sound_Volume",0|
00000af0  20 b8 20 41 25 3a ff 22  53 65 74 20 45 6c 66 4b  | . A%:."Set ElfK|
00000b00  24 76 6f 6c 20 22 2b c3  41 25 0d 04 6a 05 e1 0d  |$vol "+.A%..j...|
00000b10  04 74 04 0d 04 7e 0e dd  f2 73 65 74 73 6f 75 6e  |.t...~...setsoun|
00000b20  64 0d 04 88 31 ff 22 63  68 61 6e 6e 65 6c 76 6f  |d...1."channelvo|
00000b30  69 63 65 20 31 20 22 2b  a4 72 65 61 64 73 79 73  |ice 1 "+.readsys|
00000b40  76 61 72 28 22 45 6c 66  4b 24 76 6f 69 63 65 31  |var("ElfK$voice1|
00000b50  22 29 0d 04 92 83 41 25  3d bb a4 72 65 61 64 73  |")....A%=..reads|
00000b60  79 73 76 61 72 28 22 45  6c 66 4b 24 74 6f 74 63  |ysvar("ElfK$totc|
00000b70  68 61 6e 73 22 29 3a 42  25 3d bb a4 72 65 61 64  |hans"):B%=..read|
00000b80  73 79 73 76 61 72 28 22  45 6c 66 4b 24 73 61 6d  |sysvar("ElfK$sam|
00000b90  70 73 69 7a 65 22 29 3a  43 25 3d bb a4 72 65 61  |psize"):C%=..rea|
00000ba0  64 73 79 73 76 61 72 28  22 45 6c 66 4b 24 73 61  |dsysvar("ElfK$sa|
00000bb0  6d 70 70 65 72 22 29 3a  c8 99 20 22 53 6f 75 6e  |mpper"):.. "Soun|
00000bc0  64 5f 43 6f 6e 66 69 67  75 72 65 22 2c 41 25 2c  |d_Configure",A%,|
00000bd0  42 25 2c 43 25 0d 04 9c  2e c8 99 20 22 53 6f 75  |B%,C%...... "Sou|
00000be0  6e 64 5f 56 6f 6c 75 6d  65 22 2c bb a4 72 65 61  |nd_Volume",..rea|
00000bf0  64 73 79 73 76 61 72 28  22 45 6c 66 4b 24 76 6f  |dsysvar("ElfK$vo|
00000c00  6c 22 29 0d 04 a6 05 e1  0d 04 b0 04 0d 04 ba 1d  |l").............|
00000c10  dd f2 6c 6f 61 64 5f 74  65 6d 70 6c 61 74 65 28  |..load_template(|
00000c20  77 69 6e 6e 61 6d 65 24  29 0d 04 c4 45 77 69 6e  |winname$)...Ewin|
00000c30  73 74 61 72 74 73 25 21  28 28 77 69 6e 63 74 72  |starts%!((winctr|
00000c40  25 2d 31 29 2a 34 29 3d  77 70 74 72 25 3a 69 6e  |%-1)*4)=wptr%:in|
00000c50  64 73 74 61 72 74 73 25  21 28 28 77 69 6e 63 74  |dstarts%!((winct|
00000c60  72 25 2d 31 29 2a 34 29  3d 69 70 74 72 25 0d 04  |r%-1)*4)=iptr%..|
00000c70  ce 54 c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |.T.. "Wimp_LoadT|
00000c80  65 6d 70 6c 61 74 65 22  2c 2c 77 70 74 72 25 2c  |emplate",,wptr%,|
00000c90  69 70 74 72 25 2c 69 6e  64 62 61 73 65 25 2b 74  |iptr%,indbase%+t|
00000ca0  6f 74 69 6e 64 73 69 7a  65 25 2c 2d 31 2c 77 69  |otindsize%,-1,wi|
00000cb0  6e 6e 61 6d 65 24 2c 30  20 b8 20 2c 2c 69 70 74  |nname$,0 . ,,ipt|
00000cc0  72 25 0d 04 d8 14 6e 6f  69 63 6e 73 25 3d 77 70  |r%....noicns%=wp|
00000cd0  74 72 25 21 38 34 0d 04  e2 1b e3 6a 25 3d 30 b8  |tr%!84.....j%=0.|
00000ce0  28 6e 6f 69 63 6e 73 25  2d 31 29 2a 33 32 88 33  |(noicns%-1)*32.3|
00000cf0  32 0d 04 ec 2b 20 69 63  6e 62 6c 6b 25 3d 77 70  |2...+ icnblk%=wp|
00000d00  74 72 25 2b 38 38 2b 6a  25 3a 69 63 6e 66 25 3d  |tr%+88+j%:icnf%=|
00000d10  28 69 63 6e 62 6c 6b 25  21 31 36 29 0d 04 f6 82  |(icnblk%!16)....|
00000d20  20 e7 20 a4 69 6e 64 69  72 65 63 74 65 64 28 69  | . .indirected(i|
00000d30  63 6e 66 25 29 80 ac a4  73 70 72 69 74 65 28 69  |cnf%)...sprite(i|
00000d40  63 6e 66 25 29 80 a4 74  65 78 74 28 69 63 6e 66  |cnf%)..text(icnf|
00000d50  25 29 80 28 69 63 6e 62  6c 6b 25 21 32 34 3c 3e  |%).(icnblk%!24<>|
00000d60  2d 31 29 20 8c 3a e7 a7  a4 72 65 61 64 73 74 72  |-1) .:...readstr|
00000d70  69 6e 67 28 69 63 6e 62  6c 6b 25 21 32 34 29 2c  |ing(icnblk%!24),|
00000d80  22 62 30 22 29 3c 3e 30  20 69 63 6e 66 25 3d 69  |"b0")<>0 icnf%=i|
00000d90  63 6e 66 25 80 26 46 46  46 46 30 46 46 46 0d 05  |cnf%.&FFFF0FFF..|
00000da0  00 4f 20 e7 20 ac a4 69  6e 64 69 72 65 63 74 65  |.O . ..indirecte|
00000db0  64 28 69 63 6e 66 25 29  80 ac a4 73 70 72 69 74  |d(icnf%)...sprit|
00000dc0  65 28 69 63 6e 66 25 29  80 a4 74 65 78 74 28 69  |e(icnf%)..text(i|
00000dd0  63 6e 66 25 29 20 8c 3a  69 63 6e 66 25 3d 69 63  |cnf%) .:icnf%=ic|
00000de0  6e 66 25 80 26 46 46 46  46 30 46 46 46 0d 05 0a  |nf%.&FFFF0FFF...|
00000df0  51 20 e7 20 a4 69 6e 64  69 72 65 63 74 65 64 28  |Q . .indirected(|
00000e00  69 63 6e 66 25 29 80 a4  73 70 72 69 74 65 28 69  |icnf%)..sprite(i|
00000e10  63 6e 66 25 29 80 ac a4  74 65 78 74 28 69 63 6e  |cnf%)...text(icn|
00000e20  66 25 29 20 8c 3a 69 63  6e 62 6c 6b 25 21 32 34  |f%) .:icnblk%!24|
00000e30  3d 75 73 65 72 77 69 6d  70 73 70 72 73 25 0d 05  |=userwimpsprs%..|
00000e40  14 2b 20 e7 20 ac a4 69  6e 64 69 72 65 63 74 65  |.+ . ..indirecte|
00000e50  64 28 69 63 6e 66 25 29  80 a4 73 70 72 69 74 65  |d(icnf%)..sprite|
00000e60  28 69 63 6e 66 25 29 20  8c 0d 05 1e 23 20 20 73  |(icnf%) ....#  s|
00000e70  70 72 6e 24 3d a4 72 65  61 64 73 74 72 69 6e 67  |prn$=.readstring|
00000e80  28 69 63 6e 62 6c 6b 25  2b 32 30 29 0d 05 28 2c  |(icnblk%+20)..(,|
00000e90  f4 20 20 53 59 53 20 22  58 57 69 6d 70 5f 53 70  |.  SYS "XWimp_Sp|
00000ea0  72 69 74 65 4f 70 22 2c  34 30 2c 2c 73 70 72 6e  |riteOp",40,,sprn|
00000eb0  24 20 54 4f 20 3b 66 25  0d 05 32 2e 20 20 c8 99  |$ TO ;f%..2.  ..|
00000ec0  20 22 58 57 69 6d 70 5f  53 70 72 69 74 65 4f 70  | "XWimp_SpriteOp|
00000ed0  22 2c 34 30 2c 2c 73 70  72 6e 24 20 b8 20 2c 2c  |",40,,sprn$ . ,,|
00000ee0  2c 77 25 2c 68 25 0d 05  3c a1 f4 20 20 49 46 28  |,w%,h%..<..  IF(|
00000ef0  66 25 41 4e 44 25 30 30  30 31 29 3d 25 30 30 30  |f%AND%0001)=%000|
00000f00  31 3a 69 63 6e 66 25 3d  69 63 6e 66 25 4f 52 32  |1:icnf%=icnf%OR2|
00000f10  35 36 3a 24 69 70 74 72  25 3d 73 70 72 6e 24 3a  |56:$iptr%=sprn$:|
00000f20  3f 28 69 70 74 72 25 2b  28 4c 45 4e 73 70 72 6e  |?(iptr%+(LENsprn|
00000f30  24 29 29 3d 30 3a 69 63  6e 62 6c 6b 25 21 32 30  |$))=0:icnblk%!20|
00000f40  3d 69 70 74 72 25 3a 69  63 6e 62 6c 6b 25 21 32  |=iptr%:icnblk%!2|
00000f50  34 3d 75 73 65 72 77 69  6d 70 73 70 72 73 25 3a  |4=userwimpsprs%:|
00000f60  69 63 6e 62 6c 6b 25 21  32 38 3d 4c 45 4e 73 70  |icnblk%!28=LENsp|
00000f70  72 6e 24 3a 69 70 74 72  25 2b 3d 4c 45 4e 28 73  |rn$:iptr%+=LEN(s|
00000f80  70 72 6e 24 29 2b 31 0d  05 46 8f 20 20 e7 28 77  |prn$)+1..F.  .(w|
00000f90  25 84 68 25 29 3d 30 3a  69 63 6e 66 25 3d 69 63  |%.h%)=0:icnf%=ic|
00000fa0  6e 66 25 84 32 35 36 3a  24 69 70 74 72 25 3d 73  |nf%.256:$iptr%=s|
00000fb0  70 72 6e 24 3a 3f 28 69  70 74 72 25 2b 28 a9 73  |prn$:?(iptr%+(.s|
00000fc0  70 72 6e 24 29 29 3d 30  3a 69 63 6e 62 6c 6b 25  |prn$))=0:icnblk%|
00000fd0  21 32 30 3d 69 70 74 72  25 3a 69 63 6e 62 6c 6b  |!20=iptr%:icnblk|
00000fe0  25 21 32 34 3d 75 73 65  72 77 69 6d 70 73 70 72  |%!24=userwimpspr|
00000ff0  73 25 3a 69 63 6e 62 6c  6b 25 21 32 38 3d a9 73  |s%:icnblk%!28=.s|
00001000  70 72 6e 24 3a 69 70 74  72 25 2b 3d a9 28 73 70  |prn$:iptr%+=.(sp|
00001010  72 6e 24 29 2b 31 0d 05  50 06 20 cd 0d 05 5a 43  |rn$)+1..P. ...ZC|
00001020  20 e7 28 77 69 6e 6e 61  6d 65 24 3d 22 73 65 74  | .(winname$="set|
00001030  75 70 22 29 80 28 28 6a  25 3d 28 31 39 2a 33 32  |up").((j%=(19*32|
00001040  29 29 84 28 6a 25 3d 28  32 32 2a 33 32 29 29 84  |)).(j%=(22*32)).|
00001050  28 6a 25 3d 28 32 33 2a  33 32 29 29 29 20 8c 0d  |(j%=(23*32))) ..|
00001060  05 64 35 20 20 e7 a4 69  73 63 67 61 6f 6e 6c 79  |.d5  ..iscgaonly|
00001070  20 8c 3a 69 63 6e 66 25  3d 28 69 63 6e 66 25 80  | .:icnf%=(icnf%.|
00001080  26 46 30 46 46 46 46 46  46 29 84 26 30 33 30 30  |&F0FFFFFF).&0300|
00001090  30 30 30 30 0d 05 6e 06  20 cd 0d 05 78 15 20 69  |0000..n. ...x. i|
000010a0  63 6e 62 6c 6b 25 21 31  36 3d 69 63 6e 66 25 0d  |cnblk%!16=icnf%.|
000010b0  05 82 05 ed 0d 05 8c 28  77 70 74 72 25 2b 3d 38  |.......(wptr%+=8|
000010c0  38 2b 28 28 77 70 74 72  25 21 38 34 29 2a 33 32  |8+((wptr%!84)*32|
000010d0  29 3a 77 69 6e 63 74 72  25 2b 3d 31 0d 05 96 04  |):winctr%+=1....|
000010e0  0d 05 a0 61 f4 50 52 4f  43 65 72 72 6f 72 28 22  |...a.PROCerror("|
000010f0  6e 61 6d 65 3d 20 22 2b  77 69 6e 6e 61 6d 65 24  |name= "+winname$|
00001100  2b 22 20 20 20 69 3d 20  22 2b 53 54 52 24 28 69  |+"   i= "+STR$(i|
00001110  70 74 72 25 2d 69 6e 64  62 61 73 65 25 29 2b 22  |ptr%-indbase%)+"|
00001120  20 20 20 20 20 77 3d 20  22 2b 53 54 52 24 28 77  |     w= "+STR$(w|
00001130  70 74 72 25 2d 77 69 6e  62 61 73 65 25 29 2c 30  |ptr%-winbase%),0|
00001140  29 0d 05 aa 04 0d 05 b4  05 e1 0d 05 be 04 0d 05  |)...............|
00001150  c8 14 dd a4 69 6e 64 69  72 65 63 74 65 64 28 66  |....indirected(f|
00001160  25 29 0d 05 d2 13 3d 28  28 66 25 80 32 35 36 29  |%)....=((f%.256)|
00001170  3d 32 35 36 29 0d 05 dc  04 0d 05 e6 10 dd a4 73  |=256)..........s|
00001180  70 72 69 74 65 28 66 25  29 0d 05 f0 0f 3d 28 28  |prite(f%)....=((|
00001190  66 25 80 32 29 3d 32 29  0d 05 fa 04 0d 06 04 0e  |f%.2)=2)........|
000011a0  dd a4 74 65 78 74 28 66  25 29 0d 06 0e 0f 3d 28  |..text(f%)....=(|
000011b0  28 66 25 80 31 29 3d 31  29 0d 06 18 04 0d 06 22  |(f%.1)=1)......"|
000011c0  13 dd f2 63 72 65 61 74  65 77 69 6e 64 6f 77 73  |...createwindows|
000011d0  0d 06 2c 32 21 75 73 65  72 77 69 6d 70 73 70 72  |..,2!userwimpspr|
000011e0  73 25 3d 77 69 6d 70 73  70 72 73 69 7a 65 25 3a  |s%=wimpsprsize%:|
000011f0  75 73 65 72 77 69 6d 70  73 70 72 73 25 21 38 3d  |userwimpsprs%!8=|
00001200  31 36 0d 06 36 27 c8 99  20 22 4f 53 5f 53 70 72  |16..6'.. "OS_Spr|
00001210  69 74 65 4f 70 22 2c 26  31 30 39 2c 75 73 65 72  |iteOp",&109,user|
00001220  77 69 6d 70 73 70 72 73  25 0d 06 40 41 c8 99 20  |wimpsprs%..@A.. |
00001230  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00001240  30 41 2c 75 73 65 72 77  69 6d 70 73 70 72 73 25  |0A,userwimpsprs%|
00001250  2c 22 3c 45 6c 66 4b 24  63 68 61 69 6e 64 69 72  |,"<ElfK$chaindir|
00001260  3e 2e 53 70 72 69 74 65  73 22 0d 06 4a 0d 77 69  |>.Sprites"..J.wi|
00001270  6e 63 74 72 25 3d 31 0d  06 54 37 c8 99 20 22 57  |nctr%=1..T7.. "W|
00001280  69 6d 70 5f 4f 70 65 6e  54 65 6d 70 6c 61 74 65  |imp_OpenTemplate|
00001290  22 2c 2c 22 3c 45 6c 66  4b 24 63 68 61 69 6e 64  |",,"<ElfK$chaind|
000012a0  69 72 3e 2e 54 65 6d 70  6c 61 74 65 73 22 0d 06  |ir>.Templates"..|
000012b0  5e 68 f2 6c 6f 61 64 5f  74 65 6d 70 6c 61 74 65  |^h.load_template|
000012c0  28 22 70 72 6f 67 69 6e  66 6f 22 29 3a f2 6c 6f  |("proginfo"):.lo|
000012d0  61 64 5f 74 65 6d 70 6c  61 74 65 28 22 73 65 74  |ad_template("set|
000012e0  75 70 22 29 3a f2 6c 6f  61 64 5f 74 65 6d 70 6c  |up"):.load_templ|
000012f0  61 74 65 28 22 6d 65 73  73 61 67 65 73 22 29 3a  |ate("messages"):|
00001300  f2 6c 6f 61 64 5f 74 65  6d 70 6c 61 74 65 28 22  |.load_template("|
00001310  6b 65 79 73 22 29 0d 06  68 31 c8 99 20 22 57 69  |keys")..h1.. "Wi|
00001320  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00001330  2c 2c 77 69 6e 73 74 61  72 74 73 25 21 30 20 b8  |,,winstarts%!0 .|
00001340  20 69 6e 66 6f 77 25 0d  06 72 32 c8 99 20 22 57  | infow%..r2.. "W|
00001350  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00001360  22 2c 2c 77 69 6e 73 74  61 72 74 73 25 21 34 20  |",,winstarts%!4 |
00001370  b8 20 73 65 74 75 70 77  25 0d 06 7c 31 c8 99 20  |. setupw%..|1.. |
00001380  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00001390  6f 77 22 2c 2c 77 69 6e  73 74 61 72 74 73 25 21  |ow",,winstarts%!|
000013a0  38 20 b8 20 6d 65 73 73  77 25 0d 06 86 32 c8 99  |8 . messw%...2..|
000013b0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
000013c0  64 6f 77 22 2c 2c 77 69  6e 73 74 61 72 74 73 25  |dow",,winstarts%|
000013d0  21 31 32 20 b8 20 6b 65  79 73 77 25 0d 06 90 1b  |!12 . keysw%....|
000013e0  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 54 65  |.. "Wimp_CloseTe|
000013f0  6d 70 6c 61 74 65 22 0d  06 9a 05 e1 0d 06 a4 04  |mplate".........|
00001400  0d 06 ae 11 dd f2 69 6e  69 74 77 69 6e 64 6f 77  |......initwindow|
00001410  73 0d 06 b8 08 ea 20 6a  25 0d 06 c2 12 e7 20 a4  |s..... j%..... .|
00001420  69 73 63 67 61 6f 6e 6c  79 20 8c 0d 06 cc 34 20  |iscgaonly ....4 |
00001430  f2 73 65 6c 65 63 74 69  63 6e 28 73 65 74 75 70  |.selecticn(setup|
00001440  77 25 2c 32 2c b9 29 3a  f2 73 65 6c 65 63 74 69  |w%,2,.):.selecti|
00001450  63 6e 28 73 65 74 75 70  77 25 2c 33 2c a3 29 0d  |cn(setupw%,3,.).|
00001460  06 d6 26 20 e3 6a 25 3d  32 b8 33 3a f2 73 68 61  |..& .j%=2.3:.sha|
00001470  64 65 69 63 6e 28 73 65  74 75 70 77 25 2c 6a 25  |deicn(setupw%,j%|
00001480  2c b9 29 3a ed 0d 06 e0  05 cc 0d 06 ea 2d 20 66  |,.):.........- f|
00001490  25 3d bb a4 72 65 61 64  73 79 73 76 61 72 28 22  |%=..readsysvar("|
000014a0  45 6c 66 4b 24 56 67 61  22 29 3a f2 73 65 74 6d  |ElfK$Vga"):.setm|
000014b0  6f 64 65 28 66 25 29 0d  06 f4 05 cd 0d 06 fe 2e  |ode(f%).........|
000014c0  70 72 65 6c 69 6e 6b 5f  66 6c 61 67 25 3d bb a4  |prelink_flag%=..|
000014d0  72 65 61 64 73 79 73 76  61 72 28 22 45 6c 66 4b  |readsysvar("ElfK|
000014e0  24 50 72 65 4c 69 6e 6b  22 29 0d 07 08 05 e1 0d  |$PreLink")......|
000014f0  07 12 04 0d 07 1c 0f dd  f2 63 68 65 63 6b 61 72  |.........checkar|
00001500  6d 33 0d 07 26 0c 4b 25  21 26 44 43 3d 30 0d 07  |m3..&.K%!&DC=0..|
00001510  30 09 74 31 25 3d 91 0d  07 3a 11 e3 6b 25 3d 30  |0.t1%=...:..k%=0|
00001520  b8 32 30 30 30 30 3a ed  0d 07 44 09 74 32 25 3d  |.20000:...D.t2%=|
00001530  91 0d 07 4e 1a e7 28 74  32 25 2d 74 31 25 29 3c  |...N..(t2%-t1%)<|
00001540  31 35 3a 4b 25 21 26 44  43 3d 31 0d 07 58 05 e1  |15:K%!&DC=1..X..|
00001550  0d 07 62 04 0d 07 6c 1c  dd f2 70 75 74 69 63 6e  |..b...l...puticn|
00001560  73 74 72 69 6e 67 28 77  25 2c 69 25 2c 61 24 29  |string(w%,i%,a$)|
00001570  0d 07 76 33 21 62 6c 6b  25 3d 77 25 3a 62 6c 6b  |..v3!blk%=w%:blk|
00001580  25 21 34 3d 69 25 3a c8  99 20 22 57 69 6d 70 5f  |%!4=i%:.. "Wimp_|
00001590  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |GetIconState",,b|
000015a0  6c 6b 25 0d 07 80 24 24  28 62 6c 6b 25 21 32 38  |lk%...$$(blk%!28|
000015b0  29 3d 61 24 3a 3f 28 28  62 6c 6b 25 21 32 38 29  |)=a$:?((blk%!28)|
000015c0  2b a9 61 24 29 3d 30 0d  07 8a 33 62 6c 6b 25 21  |+.a$)=0...3blk%!|
000015d0  38 3d 30 3a 62 6c 6b 25  21 31 32 3d 30 3a c8 99  |8=0:blk%!12=0:..|
000015e0  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
000015f0  61 74 65 22 2c 2c 62 6c  6b 25 0d 07 94 05 e1 0d  |ate",,blk%......|
00001600  07 9e 04 0d 07 a8 19 dd  a4 67 65 74 69 63 6e 73  |.........geticns|
00001610  74 72 69 6e 67 28 77 25  2c 69 25 29 0d 07 b2 33  |tring(w%,i%)...3|
00001620  21 62 6c 6b 25 3d 77 25  3a 62 6c 6b 25 21 34 3d  |!blk%=w%:blk%!4=|
00001630  69 25 3a c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |i%:.. "Wimp_GetI|
00001640  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6b 25 0d  |conState",,blk%.|
00001650  07 bc 19 3d a4 72 65 61  64 73 74 72 69 6e 67 28  |...=.readstring(|
00001660  62 6c 6b 25 21 32 38 29  0d 07 c6 04 0d 07 d0 14  |blk%!28)........|
00001670  dd a4 72 65 61 64 73 74  72 69 6e 67 28 70 25 29  |..readstring(p%)|
00001680  0d 07 da 32 ea 61 24 3a  61 24 3d 22 22 3a c8 95  |...2.a$:a$="":..|
00001690  20 a9 61 24 3c 32 35 35  20 80 20 3f 70 25 3e 33  | .a$<255 . ?p%>3|
000016a0  31 20 61 24 2b 3d bd 3f  70 25 3a 70 25 2b 3d 31  |1 a$+=.?p%:p%+=1|
000016b0  3a ce 0d 07 e4 07 3d 61  24 0d 07 ee 04 0d 07 f8  |:.....=a$.......|
000016c0  14 dd a4 72 65 61 64 73  79 73 76 61 72 28 61 24  |...readsysvar(a$|
000016d0  29 0d 08 02 08 ea 20 41  25 0d 08 0c 4f c8 99 20  |)..... A%...O.. |
000016e0  22 4f 53 5f 52 65 61 64  56 61 72 56 61 6c 22 2c  |"OS_ReadVarVal",|
000016f0  61 24 2c 62 6c 6b 25 2c  32 35 36 2c 30 2c 30 20  |a$,blk%,256,0,0 |
00001700  b8 20 2c 2c 61 25 3a 61  24 3d 22 22 3a e3 41 25  |. ,,a%:a$="":.A%|
00001710  3d 30 b8 61 25 2d 31 3a  61 24 2b 3d bd 28 62 6c  |=0.a%-1:a$+=.(bl|
00001720  6b 25 3f 41 25 29 3a ed  0d 08 16 07 3d 61 24 0d  |k%?A%):.....=a$.|
00001730  08 20 04 0d 08 2a 14 dd  a4 72 65 61 64 76 64 75  |. ...*...readvdu|
00001740  76 61 72 28 61 25 29 0d  08 34 39 21 62 6c 6b 25  |var(a%)..49!blk%|
00001750  3d 61 25 3a 62 6c 6b 25  21 34 3d 2d 31 3a c8 99  |=a%:blk%!4=-1:..|
00001760  20 22 4f 53 5f 52 65 61  64 56 64 75 56 61 72 69  | "OS_ReadVduVari|
00001770  61 62 6c 65 73 22 2c 62  6c 6b 25 2c 62 6c 6b 25  |ables",blk%,blk%|
00001780  0d 08 3e 0a 3d 21 62 6c  6b 25 0d 08 48 04 0d 08  |..>.=!blk%..H...|
00001790  52 19 dd f2 67 65 74 69  63 6f 6e 73 74 61 74 65  |R...geticonstate|
000017a0  28 77 25 2c 69 25 29 0d  08 5c 33 21 62 6c 6b 25  |(w%,i%)..\3!blk%|
000017b0  3d 77 25 3a 62 6c 6b 25  21 34 3d 69 25 3a c8 99  |=w%:blk%!4=i%:..|
000017c0  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
000017d0  61 74 65 22 2c 2c 62 6c  6b 25 0d 08 66 05 e1 0d  |ate",,blk%..f...|
000017e0  08 70 04 0d 08 7a 17 dd  a4 69 73 73 65 6c 65 63  |.p...z...isselec|
000017f0  74 65 64 28 77 25 2c 69  25 29 0d 08 84 18 f2 67  |ted(w%,i%).....g|
00001800  65 74 69 63 6f 6e 73 74  61 74 65 28 77 25 2c 69  |eticonstate(w%,i|
00001810  25 29 0d 08 8e 20 3d 28  28 62 6c 6b 25 21 32 34  |%)... =((blk%!24|
00001820  29 80 28 31 3c 3c 32 31  29 29 3d 28 31 3c 3c 32  |).(1<<21))=(1<<2|
00001830  31 29 0d 08 98 04 0d 08  a2 12 dd a4 66 69 6c 65  |1)..........file|
00001840  74 79 70 65 28 61 24 29  0d 08 ac 1b c8 99 20 22  |type(a$)...... "|
00001850  58 4f 53 5f 46 69 6c 65  22 2c 35 2c 61 24 20 b8  |XOS_File",5,a$ .|
00001860  20 61 25 0d 08 b6 07 3d  61 25 0d 08 c0 04 0d 08  | a%....=a%......|
00001870  ca 18 dd a4 63 6f 6e 76  65 72 74 74 6f 6c 6f 77  |....converttolow|
00001880  65 72 28 61 24 29 0d 08  d4 15 ea 20 6c 25 2c 62  |er(a$)..... l%,b|
00001890  24 2c 63 68 25 3a 62 24  3d 22 22 0d 08 de 0d e3  |$,ch%:b$="".....|
000018a0  6c 25 3d 31 b8 a9 61 24  0d 08 e8 14 63 68 25 3d  |l%=1..a$....ch%=|
000018b0  97 28 c1 61 24 2c 6c 25  2c 31 29 29 0d 08 f2 21  |.(.a$,l%,1))...!|
000018c0  e7 28 63 68 25 3e 26 34  30 29 80 28 63 68 25 3c  |.(ch%>&40).(ch%<|
000018d0  26 35 42 29 3a 63 68 25  2b 3d 26 32 30 0d 08 fc  |&5B):ch%+=&20...|
000018e0  0c 62 24 2b 3d bd 63 68  25 0d 09 06 05 ed 0d 09  |.b$+=.ch%.......|
000018f0  10 07 3d 62 24 0d 09 1a  04 0d 09 24 0e dd a4 6c  |..=b$......$...l|
00001900  65 61 66 28 66 24 29 0d  09 2e 08 ea 20 6a 25 0d  |eaf(f$)..... j%.|
00001910  09 38 27 6a 25 3d a9 66  24 3a c8 95 6a 25 3e 31  |.8'j%=.f$:..j%>1|
00001920  80 c1 66 24 2c 6a 25 2c  31 29 3c 3e 22 2e 22 6a  |..f$,j%,1)<>"."j|
00001930  25 2d 3d 31 3a ce 0d 09  42 17 e7 c1 66 24 2c 6a  |%-=1:...B...f$,j|
00001940  25 2c 31 29 3d 22 2e 22  6a 25 2b 3d 31 0d 09 4c  |%,1)="."j%+=1..L|
00001950  0c 3d c1 66 24 2c 6a 25  29 0d 09 56 04 0d 09 60  |.=.f$,j%)..V...`|
00001960  11 dd f2 73 65 74 6d 6f  64 65 28 66 25 29 0d 09  |...setmode(f%)..|
00001970  6a 0b e3 69 25 3d 30 b8  31 0d 09 74 43 20 e7 69  |j..i%=0.1..tC .i|
00001980  25 3d 66 25 3a f2 73 65  6c 65 63 74 69 63 6e 28  |%=f%:.selecticn(|
00001990  73 65 74 75 70 77 25 2c  32 2b 69 25 2c b9 29 3a  |setupw%,2+i%,.):|
000019a0  8b 3a f2 73 65 6c 65 63  74 69 63 6e 28 73 65 74  |.:.selecticn(set|
000019b0  75 70 77 25 2c 32 2b 69  25 2c a3 29 0d 09 7e 05  |upw%,2+i%,.)..~.|
000019c0  ed 0d 09 88 05 e1 0d 09  92 04 0d 09 9c 19 dd f2  |................|
000019d0  73 65 6c 65 63 74 69 63  6e 28 77 25 2c 69 25 2c  |selecticn(w%,i%,|
000019e0  66 25 29 0d 09 a6 46 21  62 6c 6b 25 3d 77 25 3a  |f%)...F!blk%=w%:|
000019f0  62 6c 6b 25 21 34 3d 69  25 3a 62 6c 6b 25 21 31  |blk%!4=i%:blk%!1|
00001a00  32 3d 28 31 3c 3c 32 31  29 3a e7 66 25 3d 30 20  |2=(1<<21):.f%=0 |
00001a10  62 6c 6b 25 21 38 3d 30  3a 8b 20 62 6c 6b 25 21  |blk%!8=0:. blk%!|
00001a20  38 3d 62 6c 6b 25 21 31  32 0d 09 b0 20 c8 99 20  |8=blk%!12... .. |
00001a30  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00001a40  74 65 22 2c 2c 62 6c 6b  25 0d 09 ba 05 e1 0d 09  |te",,blk%.......|
00001a50  c4 04 0d 09 ce 18 dd f2  73 68 61 64 65 69 63 6e  |........shadeicn|
00001a60  28 77 25 2c 69 25 2c 66  25 29 0d 09 d8 24 21 62  |(w%,i%,f%)...$!b|
00001a70  6c 6b 25 3d 77 25 3a 62  6c 6b 25 21 34 3d 69 25  |lk%=w%:blk%!4=i%|
00001a80  3a 62 6c 6b 25 21 31 32  3d 31 3c 3c 32 32 0d 09  |:blk%!12=1<<22..|
00001a90  e2 1f e7 66 25 20 62 6c  6b 25 21 38 3d 31 3c 3c  |...f% blk%!8=1<<|
00001aa0  32 32 3a 8b 3a 62 6c 6b  25 21 38 3d 30 0d 09 ec  |22:.:blk%!8=0...|
00001ab0  20 c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  | .. "Wimp_SetIco|
00001ac0  6e 53 74 61 74 65 22 2c  2c 62 6c 6b 25 0d 09 f6  |nState",,blk%...|
00001ad0  05 e1 0d 0a 00 04 0d 0a  0a 17 dd f2 66 61 64 65  |............fade|
00001ae0  69 63 6e 28 77 25 2c 69  25 2c 66 25 29 0d 0a 14  |icn(w%,i%,f%)...|
00001af0  08 ea 20 6a 25 0d 0a 1e  0e e3 20 6a 25 3d 32 34  |.. j%..... j%=24|
00001b00  b8 32 37 0d 0a 28 25 20  21 62 6c 6b 25 3d 77 25  |.27..(% !blk%=w%|
00001b10  3a 62 6c 6b 25 21 34 3d  69 25 3a 62 6c 6b 25 21  |:blk%!4=i%:blk%!|
00001b20  31 32 3d 31 3c 3c 6a 25  0d 0a 32 0a 20 e7 66 25  |12=1<<j%..2. .f%|
00001b30  20 8c 0d 0a 3c 25 20 20  e7 6a 25 3c 3d 32 35 3a  | ...<%  .j%<=25:|
00001b40  62 6c 6b 25 21 38 3d 31  3c 3c 6a 25 3a 8b 3a 62  |blk%!8=1<<j%:.:b|
00001b50  6c 6b 25 21 38 3d 30 0d  0a 46 06 20 cc 0d 0a 50  |lk%!8=0..F. ...P|
00001b60  25 20 20 e7 6a 25 3c 3d  32 36 3a 62 6c 6b 25 21  |%  .j%<=26:blk%!|
00001b70  38 3d 31 3c 3c 6a 25 3a  8b 3a 62 6c 6b 25 21 38  |8=1<<j%:.:blk%!8|
00001b80  3d 30 0d 0a 5a 06 20 cd  0d 0a 64 21 20 c8 99 20  |=0..Z. ...d! .. |
00001b90  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00001ba0  74 65 22 2c 2c 62 6c 6b  25 0d 0a 6e 05 ed 0d 0a  |te",,blk%..n....|
00001bb0  78 05 e1 0d 0a 82 04 0d  0a 8c 17 dd f2 68 69 64  |x............hid|
00001bc0  65 69 63 6e 28 77 25 2c  69 25 2c 66 25 29 0d 0a  |eicn(w%,i%,f%)..|
00001bd0  96 24 21 62 6c 6b 25 3d  77 25 3a 62 6c 6b 25 21  |.$!blk%=w%:blk%!|
00001be0  34 3d 69 25 3a 62 6c 6b  25 21 31 32 3d 31 3c 3c  |4=i%:blk%!12=1<<|
00001bf0  32 33 0d 0a a0 1f e7 66  25 20 62 6c 6b 25 21 38  |23.....f% blk%!8|
00001c00  3d 31 3c 3c 32 33 3a 8b  3a 62 6c 6b 25 21 38 3d  |=1<<23:.:blk%!8=|
00001c10  30 0d 0a aa 20 c8 99 20  22 57 69 6d 70 5f 53 65  |0... .. "Wimp_Se|
00001c20  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6b  |tIconState",,blk|
00001c30  25 0d 0a b4 05 e1 0d 0a  be 04 0d 0a c8 15 dd f2  |%...............|
00001c40  68 69 64 65 73 61 76 65  61 72 65 61 62 69 74 0d  |hidesaveareabit.|
00001c50  0a d2 25 e3 6a 25 3d 35  b8 31 31 3a f2 68 69 64  |..%.j%=5.11:.hid|
00001c60  65 69 63 6e 28 73 65 74  75 70 77 25 2c 6a 25 2c  |eicn(setupw%,j%,|
00001c70  b9 29 3a ed 0d 0a dc 05  e1 0d 0a e6 04 0d 0a f0  |.):.............|
00001c80  13 dd f2 63 72 65 61 74  65 62 61 72 69 63 6f 6e  |...createbaricon|
00001c90  0d 0a fa 16 24 62 61 72  69 63 6e 25 3d 22 69 63  |....$baricn%="ic|
00001ca0  6f 6e 62 61 72 22 0d 0b  04 34 21 62 6c 6b 25 3d  |onbar"...4!blk%=|
00001cb0  2d 31 3a 62 6c 6b 25 21  34 3d 30 3a 62 6c 6b 25  |-1:blk%!4=0:blk%|
00001cc0  21 38 3d 30 3a 62 6c 6b  25 21 31 32 3d 36 32 3a  |!8=0:blk%!12=62:|
00001cd0  62 6c 6b 25 21 31 36 3d  37 32 0d 0b 0e 4d 62 6c  |blk%!16=72...Mbl|
00001ce0  6b 25 21 32 30 3d 26 31  30 30 30 33 31 33 41 3a  |k%!20=&1000313A:|
00001cf0  62 6c 6b 25 21 32 34 3d  62 61 72 69 63 6e 25 3a  |blk%!24=baricn%:|
00001d00  62 6c 6b 25 21 32 38 3d  75 73 65 72 77 69 6d 70  |blk%!28=userwimp|
00001d10  73 70 72 73 25 3a 62 6c  6b 25 21 33 32 3d a9 24  |sprs%:blk%!32=.$|
00001d20  62 61 72 69 63 6e 25 0d  0b 18 1e c8 99 20 22 57  |baricn%...... "W|
00001d30  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 22 2c  |imp_CreateIcon",|
00001d40  2c 62 6c 6b 25 0d 0b 22  05 e1 0d 0b 2c 04 0d 0b  |,blk%.."....,...|
00001d50  36 0e dd f2 70 6f 6c 6c  6c 6f 6f 70 0d 0b 40 28  |6...pollloop..@(|
00001d60  c8 99 20 22 57 69 6d 70  5f 50 6f 6c 6c 22 2c 25  |.. "Wimp_Poll",%|
00001d70  31 31 30 30 30 31 2c 62  6c 6b 25 20 b8 20 65 76  |110001,blk% . ev|
00001d80  65 6e 74 25 0d 0b 4a 0f  c8 8e 20 65 76 65 6e 74  |ent%..J... event|
00001d90  25 20 ca 0d 0b 54 12 20  20 c9 20 31 3a 20 f2 72  |% ...T.  . 1: .r|
00001da0  65 64 72 61 77 0d 0b 5e  1a 20 20 c9 20 32 3a 20  |edraw..^.  . 2: |
00001db0  f2 6f 70 65 6e 77 69 6e  64 28 62 6c 6b 25 29 0d  |.openwind(blk%).|
00001dc0  0b 68 1b 20 20 c9 20 33  3a 20 f2 63 6c 6f 73 65  |.h.  . 3: .close|
00001dd0  77 69 6e 64 28 62 6c 6b  25 29 0d 0b 72 29 20 20  |wind(blk%)..r)  |
00001de0  c9 20 36 3a 20 f2 63 6c  69 63 6b 28 62 6c 6b 25  |. 6: .click(blk%|
00001df0  21 38 2c 62 6c 6b 25 21  31 32 2c 62 6c 6b 25 21  |!8,blk%!12,blk%!|
00001e00  31 36 29 0d 0b 7c 15 20  20 c9 20 39 3a 20 f2 6d  |16)..|.  . 9: .m|
00001e10  65 6e 75 63 6c 69 63 6b  0d 0b 86 17 20 20 c9 20  |enuclick....  . |
00001e20  31 37 2c 31 38 3a 20 f2  72 65 63 65 69 76 65 0d  |17,18: .receive.|
00001e30  0b 90 05 cb 0d 0b 9a 05  e1 0d 0b a4 04 0d 0b ae  |................|
00001e40  0c dd f2 72 65 64 72 61  77 0d 0b b8 28 c8 99 20  |...redraw...(.. |
00001e50  22 57 69 6d 70 5f 52 65  64 72 61 77 57 69 6e 64  |"Wimp_RedrawWind|
00001e60  6f 77 22 2c 2c 62 6c 6b  25 20 b8 20 6d 6f 72 65  |ow",,blk% . more|
00001e70  25 0d 0b c2 0c c8 95 20  6d 6f 72 65 25 0d 0b cc  |%...... more%...|
00001e80  2b 20 20 c8 99 20 22 57  69 6d 70 5f 47 65 74 52  |+  .. "Wimp_GetR|
00001e90  65 63 74 61 6e 67 6c 65  22 2c 2c 62 6c 6b 25 20  |ectangle",,blk% |
00001ea0  b8 20 6d 6f 72 65 25 3a  0d 0b d6 05 ce 0d 0b e0  |. more%:........|
00001eb0  05 e1 0d 0b ea 04 0d 0b  f4 12 dd f2 6f 70 65 6e  |............open|
00001ec0  77 69 6e 64 28 62 25 29  0d 0b fe 1c c8 99 20 22  |wind(b%)...... "|
00001ed0  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00001ee0  2c 2c 62 25 0d 0c 08 05  e1 0d 0c 12 04 0d 0c 1c  |,,b%............|
00001ef0  13 dd f2 63 6c 6f 73 65  77 69 6e 64 28 62 25 29  |...closewind(b%)|
00001f00  0d 0c 26 1d c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |..&... "Wimp_Clo|
00001f10  73 65 57 69 6e 64 6f 77  22 2c 2c 62 25 0d 0c 30  |seWindow",,b%..0|
00001f20  05 e1 0d 0c 3a 04 0d 0c  44 1b dd f2 63 6c 69 63  |....:...D...clic|
00001f30  6b 28 62 75 74 25 2c 77  69 6e 25 2c 69 63 6e 25  |k(but%,win%,icn%|
00001f40  29 0d 0c 4e 0d c8 8e 20  77 69 6e 25 20 ca 0d 0c  |)..N... win% ...|
00001f50  58 0a 20 c9 20 2d 32 3a  0d 0c 62 0f 20 20 c8 8e  |X. . -2:..b.  ..|
00001f60  20 62 75 74 25 20 ca 0d  0c 6c 53 20 20 20 c9 20  | but% ...lS   . |
00001f70  32 3a 20 f2 6d 61 69 6e  6d 65 6e 75 28 22 45 6c  |2: .mainmenu("El|
00001f80  66 4b 69 6e 67 22 2c 22  49 6e 66 6f 2c 4d 65 73  |fKing","Info,Mes|
00001f90  73 61 67 65 2c 53 70 65  63 69 61 6c 20 4b 65 79  |sage,Special Key|
00001fa0  73 2c 53 65 74 75 70 2c  37 51 75 69 74 2c 22 2c  |s,Setup,7Quit,",|
00001fb0  21 62 6c 6b 25 2c 33 30  30 29 0d 0c 76 16 20 20  |!blk%,300)..v.  |
00001fc0  20 c9 20 34 3a 20 f2 73  74 61 72 74 67 61 6d 65  | . 4: .startgame|
00001fd0  0d 0c 80 07 20 20 cb 0d  0c 8a 27 20 c9 20 73 65  |....  ....' . se|
00001fe0  74 75 70 77 25 3a 20 f2  73 65 74 75 70 77 63 6c  |tupw%: .setupwcl|
00001ff0  69 63 6b 28 62 75 74 25  2c 69 63 6e 25 29 0d 0c  |ick(but%,icn%)..|
00002000  94 05 cb 0d 0c 9e 05 e1  0d 0c a8 04 0d 0c b2 27  |...............'|
00002010  dd f2 6d 61 69 6e 6d 65  6e 75 28 74 69 74 6c 65  |..mainmenu(title|
00002020  24 2c 6d 65 6e 75 69 74  65 6d 73 24 2c 78 25 2c  |$,menuitems$,x%,|
00002030  79 25 29 0d 0c bc 22 f2  64 65 66 69 6e 65 6d 65  |y%)...".defineme|
00002040  6e 75 28 74 69 74 6c 65  24 2c 6d 65 6e 75 69 74  |nu(title$,menuit|
00002050  65 6d 73 24 29 0d 0c c6  49 f2 6c 69 6e 6b 73 75  |ems$)...I.linksu|
00002060  62 6d 65 6e 75 28 31 2c  69 6e 66 6f 77 25 29 3a  |bmenu(1,infow%):|
00002070  f2 6c 69 6e 6b 73 75 62  6d 65 6e 75 28 33 2c 6b  |.linksubmenu(3,k|
00002080  65 79 73 77 25 29 3a f2  6c 69 6e 6b 73 75 62 6d  |eysw%):.linksubm|
00002090  65 6e 75 28 34 2c 73 65  74 75 70 77 25 29 0d 0c  |enu(4,setupw%)..|
000020a0  d0 32 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.2.. "Wimp_Creat|
000020b0  65 4d 65 6e 75 22 2c 2c  6d 65 6e 75 25 2c 78 25  |eMenu",,menu%,x%|
000020c0  2d 28 6d 65 6e 75 25 21  31 36 2f 32 29 2c 79 25  |-(menu%!16/2),y%|
000020d0  0d 0c da 10 63 75 72 72  6d 65 6e 75 25 3d 2d 31  |....currmenu%=-1|
000020e0  0d 0c e4 05 e1 0d 0c ee  04 0d 0c f8 23 dd f2 64  |............#..d|
000020f0  65 66 69 6e 65 6d 65 6e  75 28 74 69 74 6c 65 24  |efinemenu(title$|
00002100  2c 6d 65 6e 75 69 74 65  6d 73 24 29 0d 0d 02 11  |,menuitems$)....|
00002110  24 6d 65 6e 75 25 3d 74  69 74 6c 65 24 0d 0d 0c  |$menu%=title$...|
00002120  46 6d 65 6e 75 25 3f 31  32 3d 37 3a 6d 65 6e 75  |Fmenu%?12=7:menu|
00002130  25 3f 31 33 3d 32 3a 6d  65 6e 75 25 3f 31 34 3d  |%?13=2:menu%?14=|
00002140  37 3a 6d 65 6e 75 25 3f  31 35 3d 30 3a 6d 65 6e  |7:menu%?15=0:men|
00002150  75 25 21 32 30 3d 34 30  3a 6d 65 6e 75 25 21 32  |u%!20=40:menu%!2|
00002160  34 3d 30 0d 0d 16 23 69  74 65 6d 25 3d 6d 65 6e  |4=0...#item%=men|
00002170  75 25 2b 32 38 3a 77 69  64 74 68 25 3d a9 28 74  |u%+28:width%=.(t|
00002180  69 74 6c 65 24 29 0d 0d  20 05 f5 0d 0d 2a 1c 20  |itle$).. ....*. |
00002190  63 6f 6d 6d 61 25 3d a7  6d 65 6e 75 69 74 65 6d  |comma%=.menuitem|
000021a0  73 24 2c 22 2c 22 29 0d  0d 34 29 20 69 74 65 6d  |s$,",")..4) item|
000021b0  24 3d c0 6d 65 6e 75 69  74 65 6d 73 24 2c 63 6f  |$=.menuitems$,co|
000021c0  6d 6d 61 25 2d 31 29 3a  21 69 74 65 6d 25 3d 30  |mma%-1):!item%=0|
000021d0  0d 0d 3e 13 20 f5 3a 6d  6f 72 65 63 6f 64 65 73  |..>. .:morecodes|
000021e0  25 3d a3 0d 0d 48 37 20  20 e7 c0 69 74 65 6d 24  |%=...H7  ..item$|
000021f0  2c 31 29 3d 22 30 22 20  21 69 74 65 6d 25 3d 28  |,1)="0" !item%=(|
00002200  21 69 74 65 6d 25 29 84  25 30 30 30 31 3a 6d 6f  |!item%).%0001:mo|
00002210  72 65 63 6f 64 65 73 25  3d b9 0d 0d 52 37 20 20  |recodes%=...R7  |
00002220  e7 c0 69 74 65 6d 24 2c  31 29 3d 22 31 22 20 21  |..item$,1)="1" !|
00002230  69 74 65 6d 25 3d 28 21  69 74 65 6d 25 29 84 25  |item%=(!item%).%|
00002240  30 30 31 30 3a 6d 6f 72  65 63 6f 64 65 73 25 3d  |0010:morecodes%=|
00002250  b9 0d 0d 5c 37 20 20 e7  c0 69 74 65 6d 24 2c 31  |...\7  ..item$,1|
00002260  29 3d 22 32 22 20 21 69  74 65 6d 25 3d 28 21 69  |)="2" !item%=(!i|
00002270  74 65 6d 25 29 84 25 30  31 30 30 3a 6d 6f 72 65  |tem%).%0100:more|
00002280  63 6f 64 65 73 25 3d b9  0d 0d 66 37 20 20 e7 c0  |codes%=...f7  ..|
00002290  69 74 65 6d 24 2c 31 29  3d 22 33 22 20 21 69 74  |item$,1)="3" !it|
000022a0  65 6d 25 3d 28 21 69 74  65 6d 25 29 84 25 31 30  |em%=(!item%).%10|
000022b0  30 30 3a 6d 6f 72 65 63  6f 64 65 73 25 3d b9 0d  |00:morecodes%=..|
000022c0  0d 70 3b 20 20 e7 c0 69  74 65 6d 24 2c 31 29 3d  |.p;  ..item$,1)=|
000022d0  22 37 22 20 21 69 74 65  6d 25 3d 28 21 69 74 65  |"7" !item%=(!ite|
000022e0  6d 25 29 84 25 31 30 30  30 30 30 30 30 3a 6d 6f  |m%).%10000000:mo|
000022f0  72 65 63 6f 64 65 73 25  3d b9 0d 0d 7a 53 20 20  |recodes%=...zS  |
00002300  e7 c0 69 74 65 6d 24 2c  31 29 3d 22 38 22 20 69  |..item$,1)="8" i|
00002310  74 65 6d 25 21 38 3d 26  30 37 34 30 30 30 32 31  |tem%!8=&07400021|
00002320  3a 69 74 65 6d 24 3d c2  69 74 65 6d 24 2c a9 28  |:item$=.item$,.(|
00002330  69 74 65 6d 24 29 2d 31  29 3a 8b 3a 69 74 65 6d  |item$)-1):.:item|
00002340  25 21 38 3d 26 30 37 30  30 30 30 32 31 0d 0d 84  |%!8=&07000021...|
00002350  2b 20 20 e7 20 6d 6f 72  65 63 6f 64 65 73 25 20  |+  . morecodes% |
00002360  69 74 65 6d 24 3d c2 69  74 65 6d 24 2c a9 28 69  |item$=.item$,.(i|
00002370  74 65 6d 24 29 2d 31 29  0d 0d 8e 13 20 fd 20 ac  |tem$)-1).... . .|
00002380  20 6d 6f 72 65 63 6f 64  65 73 25 0d 0d 98 16 20  | morecodes%.... |
00002390  24 28 69 74 65 6d 25 2b  31 32 29 3d 69 74 65 6d  |$(item%+12)=item|
000023a0  24 0d 0d a2 2b 20 e7 28  a9 28 69 74 65 6d 24 29  |$...+ .(.(item$)|
000023b0  2b 31 29 3e 77 69 64 74  68 25 3a 77 69 64 74 68  |+1)>width%:width|
000023c0  25 3d a9 28 69 74 65 6d  24 29 2b 31 0d 0d ac 0f  |%=.(item$)+1....|
000023d0  20 69 74 65 6d 25 21 34  3d 2d 31 0d 0d b6 25 20  | item%!4=-1...% |
000023e0  6d 65 6e 75 69 74 65 6d  73 24 3d c1 6d 65 6e 75  |menuitems$=.menu|
000023f0  69 74 65 6d 73 24 2c 63  6f 6d 6d 61 25 2b 31 29  |items$,comma%+1)|
00002400  0d 0d c0 13 20 69 74 65  6d 25 3d 69 74 65 6d 25  |.... item%=item%|
00002410  2b 32 34 0d 0d ca 13 fd  20 6d 65 6e 75 69 74 65  |+24..... menuite|
00002420  6d 73 24 3d 22 22 0d 0d  d4 16 6d 65 6e 75 25 21  |ms$=""....menu%!|
00002430  31 36 3d 77 69 64 74 68  25 2a 31 36 0d 0d de 05  |16=width%*16....|
00002440  e1 0d 0d e8 04 0d 0d f2  1d dd f2 6c 69 6e 6b 73  |...........links|
00002450  75 62 6d 65 6e 75 28 69  74 65 6d 6e 6f 25 2c 77  |ubmenu(itemno%,w|
00002460  25 29 0d 0d fc 23 69 74  65 6d 25 3d 6d 65 6e 75  |%)...#item%=menu|
00002470  25 2b 32 38 2b 28 28 69  74 65 6d 6e 6f 25 2d 31  |%+28+((itemno%-1|
00002480  29 2a 32 34 29 0d 0e 06  0e 69 74 65 6d 25 21 34  |)*24)....item%!4|
00002490  3d 77 25 0d 0e 10 05 e1  0d 0e 1a 04 0d 0e 24 18  |=w%...........$.|
000024a0  dd f2 73 65 74 75 70 77  63 6c 69 63 6b 28 62 25  |..setupwclick(b%|
000024b0  2c 69 25 29 0d 0e 2e 08  ea 20 6a 25 0d 0e 38 0b  |,i%)..... j%..8.|
000024c0  e7 62 25 3d 32 3a e1 0d  0e 42 0b c8 8e 20 69 25  |.b%=2:...B... i%|
000024d0  20 ca 0d 0e 4c 3b 20 c9  20 32 2c 34 3a 20 f2 73  | ...L; . 2,4: .s|
000024e0  65 6c 65 63 74 69 63 6e  28 73 65 74 75 70 77 25  |electicn(setupw%|
000024f0  2c 32 2c b9 29 3a f2 73  65 6c 65 63 74 69 63 6e  |,2,.):.selecticn|
00002500  28 73 65 74 75 70 77 25  2c 33 2c a3 29 0d 0e 56  |(setupw%,3,.)..V|
00002510  3b 20 c9 20 33 2c 35 3a  20 f2 73 65 6c 65 63 74  |; . 3,5: .select|
00002520  69 63 6e 28 73 65 74 75  70 77 25 2c 33 2c b9 29  |icn(setupw%,3,.)|
00002530  3a f2 73 65 6c 65 63 74  69 63 6e 28 73 65 74 75  |:.selecticn(setu|
00002540  70 77 25 2c 32 2c a3 29  0d 0e 60 05 cb 0d 0e 6a  |pw%,2,.)..`....j|
00002550  05 e1 0d 0e 74 04 0d 0e  7e 13 dd f2 77 69 6e 74  |....t...~...wint|
00002560  6f 73 63 72 6e 28 62 25  29 0d 0e 88 2e 21 62 6c  |oscrn(b%)....!bl|
00002570  6b 32 25 3d 21 62 25 3a  c8 99 20 22 57 69 6d 70  |k2%=!b%:.. "Wimp|
00002580  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00002590  2c 2c 62 6c 6b 32 25 0d  0e 92 1e 62 25 21 38 2b  |,,blk2%....b%!8+|
000025a0  3d 28 62 6c 6b 32 25 21  34 29 2d 28 62 6c 6b 32  |=(blk2%!4)-(blk2|
000025b0  25 21 32 30 29 0d 0e 9c  20 62 25 21 31 32 2b 3d  |%!20)... b%!12+=|
000025c0  28 62 6c 6b 32 25 21 31  36 29 2d 28 62 6c 6b 32  |(blk2%!16)-(blk2|
000025d0  25 21 32 34 29 0d 0e a6  1f 62 25 21 31 36 2b 3d  |%!24)....b%!16+=|
000025e0  28 62 6c 6b 32 25 21 34  29 2d 28 62 6c 6b 32 25  |(blk2%!4)-(blk2%|
000025f0  21 32 30 29 0d 0e b0 20  62 25 21 32 30 2b 3d 28  |!20)... b%!20+=(|
00002600  62 6c 6b 32 25 21 31 36  29 2d 28 62 6c 6b 32 25  |blk2%!16)-(blk2%|
00002610  21 32 34 29 0d 0e ba 05  e1 0d 0e c4 04 0d 0e ce  |!24)............|
00002620  18 dd f2 65 72 72 6f 72  28 6d 73 67 24 2c 65 72  |...error(msg$,er|
00002630  72 6e 6f 25 29 0d 0e d8  0c f4 43 4c 4f 53 45 23  |rno%).....CLOSE#|
00002640  30 0d 0e e2 21 21 65 72  72 62 6c 6b 25 3d 39 39  |0...!!errblk%=99|
00002650  3a 24 28 65 72 72 62 6c  6b 25 2b 34 29 3d 6d 73  |:$(errblk%+4)=ms|
00002660  67 24 0d 0e ec 2d c8 99  20 22 57 69 6d 70 5f 52  |g$...-.. "Wimp_R|
00002670  65 70 6f 72 74 45 72 72  6f 72 22 2c 65 72 72 62  |eportError",errb|
00002680  6c 6b 25 2c 30 2c 22 45  6c 66 4b 69 6e 67 22 0d  |lk%,0,"ElfKing".|
00002690  0e f6 05 e1 0d 0f 00 04  0d 0f 0a 0f dd f2 6d 65  |..............me|
000026a0  6e 75 63 6c 69 63 6b 0d  0f 14 23 c8 99 20 22 57  |nuclick...#.. "W|
000026b0  69 6d 70 5f 47 65 74 50  6f 69 6e 74 65 72 49 6e  |imp_GetPointerIn|
000026c0  66 6f 22 2c 2c 62 6c 6b  32 25 0d 0f 1e 18 63 75  |fo",,blk2%....cu|
000026d0  72 72 6d 65 6e 75 62 75  74 25 3d 62 6c 6b 32 25  |rrmenubut%=blk2%|
000026e0  21 38 0d 0f 28 12 c8 8e  20 63 75 72 72 6d 65 6e  |!8..(... currmen|
000026f0  75 25 20 ca 0d 0f 32 0a  20 c9 20 2d 31 3a 0d 0f  |u% ...2. . -1:..|
00002700  3c 10 20 20 c8 8e 20 21  62 6c 6b 25 20 ca 0d 0f  |<.  .. !blk% ...|
00002710  46 18 20 20 20 c9 20 30  3a 20 f2 63 68 65 63 6b  |F.   . 0: .check|
00002720  61 64 6a 75 73 74 0d 0f  50 23 20 20 20 c9 20 31  |adjust..P#   . 1|
00002730  3a 20 f2 6f 70 65 6e 6d  65 73 73 77 3a f2 63 68  |: .openmessw:.ch|
00002740  65 63 6b 61 64 6a 75 73  74 0d 0f 5a 18 20 20 20  |eckadjust..Z.   |
00002750  c9 20 32 3a 20 f2 63 68  65 63 6b 61 64 6a 75 73  |. 2: .checkadjus|
00002760  74 0d 0f 64 18 20 20 20  c9 20 33 3a 20 f2 63 68  |t..d.   . 3: .ch|
00002770  65 63 6b 61 64 6a 75 73  74 0d 0f 6e 13 20 20 20  |eckadjust..n.   |
00002780  c9 20 34 3a 20 71 75 69  74 25 3d b9 0d 0f 78 07  |. 4: quit%=...x.|
00002790  20 20 cb 0d 0f 82 05 cb  0d 0f 8c 05 e1 0d 0f 96  |  ..............|
000027a0  04 0d 0f a0 11 dd f2 63  68 65 63 6b 61 64 6a 75  |.......checkadju|
000027b0  73 74 0d 0f aa 37 e7 63  75 72 72 6d 65 6e 75 62  |st...7.currmenub|
000027c0  75 74 25 3d 31 3a c8 99  20 22 57 69 6d 70 5f 43  |ut%=1:.. "Wimp_C|
000027d0  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 65 6e 75  |reateMenu",,menu|
000027e0  25 2c 31 30 30 2c 31 30  30 0d 0f b4 05 e1 0d 0f  |%,100,100.......|
000027f0  be 04 0d 0f c8 0f dd f2  6f 70 65 6e 6d 65 73 73  |........openmess|
00002800  77 0d 0f d2 16 e7 ac a4  69 73 6f 70 65 6e 28 6d  |w.......isopen(m|
00002810  65 73 73 77 25 29 8c 0d  0f dc 30 20 21 62 6c 6b  |essw%)....0 !blk|
00002820  25 3d 6d 65 73 73 77 25  3a c8 99 20 22 57 69 6d  |%=messw%:.. "Wim|
00002830  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00002840  22 2c 2c 62 6c 6b 25 0d  0f e6 38 20 e7 78 6d 61  |",,blk%...8 .xma|
00002850  78 65 63 25 3e 31 31 33  32 3a 62 6c 6b 25 21 34  |xec%>1132:blk%!4|
00002860  3d a8 28 28 78 6d 61 78  65 63 25 2d 31 31 33 32  |=.((xmaxec%-1132|
00002870  29 2f 32 29 3a 8b 3a 62  6c 6b 25 21 34 3d 30 0d  |)/2):.:blk%!4=0.|
00002880  0f f0 36 20 e7 79 6d 61  78 65 63 25 3e 37 36 38  |..6 .ymaxec%>768|
00002890  3a 62 6c 6b 25 21 38 3d  a8 28 28 79 6d 61 78 65  |:blk%!8=.((ymaxe|
000028a0  63 25 2d 37 36 38 29 2f  32 29 3a 8b 3a 62 6c 6b  |c%-768)/2):.:blk|
000028b0  25 21 38 3d 30 0d 0f fa  43 20 62 6c 6b 25 21 31  |%!8=0...C blk%!1|
000028c0  32 3d 28 62 6c 6b 25 21  34 29 2b 31 31 33 32 3a  |2=(blk%!4)+1132:|
000028d0  62 6c 6b 25 21 31 36 3d  28 62 6c 6b 25 21 38 29  |blk%!16=(blk%!8)|
000028e0  2b 37 36 38 3a 62 6c 6b  25 21 32 30 3d 30 3a 62  |+768:blk%!20=0:b|
000028f0  6c 6b 25 21 32 34 3d 30  0d 10 04 1f 20 62 6c 6b  |lk%!24=0.... blk|
00002900  25 21 32 38 3d 2d 31 3a  f2 6f 70 65 6e 77 69 6e  |%!28=-1:.openwin|
00002910  64 28 62 6c 6b 25 29 0d  10 0e 05 cd 0d 10 18 05  |d(blk%).........|
00002920  e1 0d 10 22 04 0d 10 2c  0d dd f2 72 65 63 65 69  |..."...,...recei|
00002930  76 65 0d 10 36 10 c8 8e  20 62 6c 6b 25 21 31 36  |ve..6... blk%!16|
00002940  20 ca 0d 10 40 11 20 c9  20 30 3a 20 71 75 69 74  | ...@. . 0: quit|
00002950  25 3d b9 0d 10 4a 05 cb  0d 10 54 05 e1 0d 10 5e  |%=...J....T....^|
00002960  04 0d 10 68 0e dd a4 66  69 6e 64 6d 6f 64 65 0d  |...h...findmode.|
00002970  10 72 15 e7 20 a4 69 73  63 67 61 6f 6e 6c 79 20  |.r.. .iscgaonly |
00002980  8c 3a 3d 30 0d 10 7c 1e  e7 a4 69 73 73 65 6c 65  |.:=0..|...issele|
00002990  63 74 65 64 28 73 65 74  75 70 77 25 2c 32 29 3a  |cted(setupw%,2):|
000029a0  3d 30 0d 10 86 06 3d 31  0d 10 90 04 0d 10 9a 19  |=0....=1........|
000029b0  dd a4 63 68 65 63 6b 66  6f 6e 74 28 61 24 2c 41  |..checkfont(a$,A|
000029c0  25 2c 42 25 29 0d 10 a4  07 ea 20 85 0d 10 ae 0c  |%,B%)..... .....|
000029d0  ee 20 85 20 ea 3a 3d 30  0d 10 b8 29 c8 99 20 22  |. . .:=0...).. "|
000029e0  46 6f 6e 74 5f 46 69 6e  64 46 6f 6e 74 22 2c 2c  |Font_FindFont",,|
000029f0  61 24 2c 41 25 2c 42 25  2c 30 2c 30 20 b8 20 68  |a$,A%,B%,0,0 . h|
00002a00  25 0d 10 c2 1d c8 99 20  22 46 6f 6e 74 5f 4c 6f  |%...... "Font_Lo|
00002a10  73 65 46 6f 6e 74 22 2c  68 25 3a f7 20 85 0d 10  |seFont",h%:. ...|
00002a20  cc 06 3d b9 0d 10 d6 04  0d 10 e0 0f dd f2 73 74  |..=...........st|
00002a30  61 72 74 67 61 6d 65 0d  10 ea 08 ea 20 6a 25 0d  |artgame..... j%.|
00002a40  10 f4 38 c8 99 20 22 46  6f 6e 74 5f 52 65 61 64  |..8.. "Font_Read|
00002a50  46 6f 6e 74 4d 61 78 22  20 b8 20 66 6d 25 2c 66  |FontMax" . fm%,f|
00002a60  6d 31 25 2c 66 6d 32 25  2c 66 6d 33 25 2c 66 6d  |m1%,fm2%,fm3%,fm|
00002a70  34 25 2c 66 6d 35 25 0d  10 fe 43 e7 66 6d 32 25  |4%,fm5%...C.fm2%|
00002a80  3c 35 37 36 30 30 20 c8  99 20 22 46 6f 6e 74 5f  |<57600 .. "Font_|
00002a90  53 65 74 46 6f 6e 74 4d  61 78 22 2c 66 6d 25 2c  |SetFontMax",fm%,|
00002aa0  66 6d 31 25 2c 35 37 36  30 30 2c 35 37 36 30 30  |fm1%,57600,57600|
00002ab0  2c 66 6d 34 25 2c 66 6d  35 25 0d 11 08 31 c8 99  |,fm4%,fm5%...1..|
00002ac0  20 22 4f 53 5f 42 79 74  65 22 2c 31 33 35 20 b8  | "OS_Byte",135 .|
00002ad0  20 2c 2c 61 25 3a ff 22  53 65 74 20 45 6c 66 4b  | ,,a%:."Set ElfK|
00002ae0  24 4d 6f 64 65 20 22 2b  c3 61 25 0d 11 12 19 c8  |$Mode "+.a%.....|
00002af0  99 20 22 53 6f 75 6e 64  5f 56 6f 6c 75 6d 65 22  |. "Sound_Volume"|
00002b00  2c 31 32 37 0d 11 1c 28  ff 22 53 65 74 20 45 6c  |,127...(."Set El|
00002b10  66 4b 24 6d 61 78 73 74  61 72 74 73 20 22 2b c3  |fK$maxstarts "+.|
00002b20  28 6d 61 78 73 74 61 72  74 73 25 29 0d 11 26 0f  |(maxstarts%)..&.|
00002b30  53 25 3d 31 3a 4b 25 3d  6d 63 25 0d 11 30 19 ff  |S%=1:K%=mc%..0..|
00002b40  22 53 65 74 20 45 6c 66  4b 24 77 6f 72 64 63 6f  |"Set ElfK$wordco|
00002b50  6c 20 35 22 0d 11 3a 59  e7 a4 63 68 65 63 6b 66  |l 5"..:Y..checkf|
00002b60  6f 6e 74 28 22 54 61 62  6c 6f 69 64 2e 6d 65 64  |ont("Tabloid.med|
00002b70  69 75 6d 22 2c 33 32 30  2c 33 36 30 29 3d a3 20  |ium",320,360)=. |
00002b80  f2 65 72 72 6f 72 28 22  46 6f 6e 74 3a 27 54 61  |.error("Font:'Ta|
00002b90  62 6c 6f 69 64 2e 4d 65  64 69 75 6d 27 20 6e 6f  |bloid.Medium' no|
00002ba0  74 20 66 6f 75 6e 64 22  2c 30 29 3a e1 0d 11 44  |t found",0):...D|
00002bb0  12 e7 20 a4 69 73 63 67  61 6f 6e 6c 79 20 8c 0d  |.. .iscgaonly ..|
00002bc0  11 4e 6c 20 c8 99 20 22  57 69 6d 70 5f 53 65 74  |.Nl .. "Wimp_Set|
00002bd0  4d 6f 64 65 22 2c 31 35  3a e7 28 a4 72 65 61 64  |Mode",15:.(.read|
00002be0  76 64 75 76 61 72 28 31  35 30 29 2f 31 30 32 34  |vduvar(150)/1024|
00002bf0  29 3c 31 36 30 20 f2 65  72 72 6f 72 28 22 4e 6f  |)<160 .error("No|
00002c00  74 20 65 6e 6f 75 67 68  20 6d 65 6d 6f 72 79 20  |t enough memory |
00002c10  74 6f 20 63 68 61 6e 67  65 20 73 63 72 65 65 6e  |to change screen|
00002c20  20 6d 6f 64 65 22 2c 31  29 3a e1 0d 11 58 05 cc  | mode",1):...X..|
00002c30  0d 11 62 0f 20 e7 20 a4  69 73 76 67 61 20 8c 0d  |..b. . .isvga ..|
00002c40  11 6c 17 20 20 ff 22 53  65 74 20 45 6c 66 4b 24  |.l.  ."Set ElfK$|
00002c50  56 67 61 20 31 22 0d 11  76 6d 20 20 c8 99 20 22  |Vga 1"..vm  .. "|
00002c60  57 69 6d 70 5f 53 65 74  4d 6f 64 65 22 2c 32 38  |Wimp_SetMode",28|
00002c70  3a e7 28 a4 72 65 61 64  76 64 75 76 61 72 28 31  |:.(.readvduvar(1|
00002c80  35 30 29 2f 31 30 32 34  29 3c 33 30 30 20 f2 65  |50)/1024)<300 .e|
00002c90  72 72 6f 72 28 22 4e 6f  74 20 65 6e 6f 75 67 68  |rror("Not enough|
00002ca0  20 6d 65 6d 6f 72 79 20  74 6f 20 63 68 61 6e 67  | memory to chang|
00002cb0  65 20 73 63 72 65 65 6e  20 6d 6f 64 65 22 2c 31  |e screen mode",1|
00002cc0  29 3a e1 0d 11 80 06 20  cc 0d 11 8a 17 20 20 ff  |):..... .....  .|
00002cd0  22 53 65 74 20 45 6c 66  4b 24 56 67 61 20 30 22  |"Set ElfK$Vga 0"|
00002ce0  0d 11 94 6d 20 20 c8 99  20 22 57 69 6d 70 5f 53  |...m  .. "Wimp_S|
00002cf0  65 74 4d 6f 64 65 22 2c  31 35 3a e7 28 a4 72 65  |etMode",15:.(.re|
00002d00  61 64 76 64 75 76 61 72  28 31 35 30 29 2f 31 30  |advduvar(150)/10|
00002d10  32 34 29 3c 31 36 30 20  f2 65 72 72 6f 72 28 22  |24)<160 .error("|
00002d20  4e 6f 74 20 65 6e 6f 75  67 68 20 6d 65 6d 6f 72  |Not enough memor|
00002d30  79 20 74 6f 20 63 68 61  6e 67 65 20 73 63 72 65  |y to change scre|
00002d40  65 6e 20 6d 6f 64 65 22  2c 31 29 3a e1 0d 11 9e  |en mode",1):....|
00002d50  06 20 cd 0d 11 a8 05 cd  0d 11 b2 22 c8 99 20 22  |. .........".. "|
00002d60  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 2c  |Wimp_CloseDown",|
00002d70  2c 26 34 42 35 33 34 31  35 34 0d 11 bc 2b f2 73  |,&4B534154...+.s|
00002d80  61 76 65 73 6f 75 6e 64  3a c8 99 20 22 53 6f 75  |avesound:.. "Sou|
00002d90  6e 64 5f 43 6f 6e 66 69  67 75 72 65 22 2c 31 2c  |nd_Configure",1,|
00002da0  42 25 2c 43 25 0d 11 c6  0f d3 3d 6f 6c 64 68 69  |B%,C%.....=oldhi|
00002db0  6d 65 6d 25 0d 11 d0 13  f2 70 75 73 68 5f 76 61  |mem%.....push_va|
00002dc0  72 69 61 62 6c 65 73 0d  11 da 3c f2 70 61 6c 65  |riables...<.pale|
00002dd0  74 74 65 3a ef 32 36 3a  ef 31 38 2c 30 2c 31 33  |tte:.26:.18,0,13|
00002de0  31 3a e3 6b 25 3d 32 b8  31 88 2d 31 3a c8 99 22  |1:.k%=2.1.-1:.."|
00002df0  4f 53 5f 42 79 74 65 22  2c 31 31 32 2c 6b 25 3a  |OS_Byte",112,k%:|
00002e00  da 3a ed 0d 11 e4 7f f4  4f 4e 45 52 52 4f 52 20  |.:......ONERROR |
00002e10  53 59 53 22 4f 53 5f 42  79 74 65 22 2c 32 35 30  |SYS"OS_Byte",250|
00002e20  2c 30 2c 32 35 35 20 54  4f 20 2c 73 63 72 25 3a  |,0,255 TO ,scr%:|
00002e30  53 59 53 22 4f 53 5f 42  79 74 65 22 2c 31 31 33  |SYS"OS_Byte",113|
00002e40  2c 73 63 72 25 3a 50 52  49 4e 54 20 52 45 50 4f  |,scr%:PRINT REPO|
00002e50  52 54 24 2b 22 20 28 49  6e 74 65 72 6e 61 6c 20  |RT$+" (Internal |
00002e60  65 72 72 6f 72 20 63 6f  64 65 20 22 2b 53 54 52  |error code "+STR|
00002e70  24 45 52 4c 2b 22 29 22  2b 43 48 52 24 30 3a 45  |$ERL+")"+CHR$0:E|
00002e80  4e 44 0d 11 ee 19 c8 99  20 22 4f 53 5f 52 65 6d  |ND...... "OS_Rem|
00002e90  6f 76 65 43 75 72 73 6f  72 73 22 0d 11 f8 13 f2  |oveCursors".....|
00002ea0  70 75 6c 6c 5f 76 61 72  69 61 62 6c 65 73 0d 12  |pull_variables..|
00002eb0  02 10 f2 69 6e 69 74 69  61 6c 6c 69 73 65 0d 12  |...initiallise..|
00002ec0  0c 2e e3 6a 25 3d 33 32  b8 31 32 36 3a f2 77 6f  |...j%=32.126:.wo|
00002ed0  72 64 73 28 30 2c 2d 32  30 30 2c 2d 31 2c 33 2c  |rds(0,-200,-1,3,|
00002ee0  30 2c 30 2c bd 28 6a 25  29 29 3a ed 0d 12 16 3b  |0,0,.(j%)):....;|
00002ef0  e7 28 70 72 65 6c 69 6e  6b 5f 66 6c 61 67 25 3d  |.(prelink_flag%=|
00002f00  31 29 84 28 53 25 3d 31  29 3a f2 70 72 65 5f 6c  |1).(S%=1):.pre_l|
00002f10  69 6e 6b 3a 2a 53 65 74  20 45 6c 66 4b 24 50 72  |ink:*Set ElfK$Pr|
00002f20  65 4c 69 6e 6b 20 30 0d  12 20 04 0d 12 2a 09 f2  |eLink 0.. ...*..|
00002f30  6c 69 6e 6b 0d 12 34 05  e0 0d 12 3e 04 0d 12 48  |link..4....>...H|
00002f40  12 dd f2 77 61 69 74 28  64 65 6c 61 79 25 29 0d  |...wait(delay%).|
00002f50  12 52 17 61 25 3d 91 3a  f5 fd 91 3e 3d 61 25 2b  |.R.a%=.:...>=a%+|
00002f60  64 65 6c 61 79 25 0d 12  5c 05 e1 0d 12 66 04 0d  |delay%..\....f..|
00002f70  12 70 14 dd f2 70 75 6c  6c 5f 76 61 72 69 61 62  |.p...pull_variab|
00002f80  6c 65 73 0d 12 7a 16 61  64 64 6d 61 73 6b 25 3d  |les..z.addmask%=|
00002f90  21 28 4b 25 2b 26 30 34  29 0d 12 84 16 63 6f 70  |!(K%+&04)....cop|
00002fa0  79 73 63 72 25 3d 21 28  4b 25 2b 26 30 43 29 0d  |yscr%=!(K%+&0C).|
00002fb0  12 8e 14 66 6f 6e 74 73  25 3d 21 28 4b 25 2b 26  |...fonts%=!(K%+&|
00002fc0  31 30 29 0d 12 98 16 6c  65 74 74 65 72 73 25 3d  |10)....letters%=|
00002fd0  21 28 4b 25 2b 26 31 34  29 0d 12 a2 17 6d 65 72  |!(K%+&14)....mer|
00002fe0  67 65 73 63 72 25 3d 21  28 4b 25 2b 26 33 30 29  |gescr%=!(K%+&30)|
00002ff0  0d 12 ac 18 62 6c 6f 77  75 70 73 63 72 25 3d 21  |....blowupscr%=!|
00003000  28 4b 25 2b 26 33 34 29  0d 12 b6 18 77 61 74 65  |(K%+&34)....wate|
00003010  72 66 61 6c 6c 25 3d 21  28 4b 25 2b 26 33 38 29  |rfall%=!(K%+&38)|
00003020  0d 12 c0 15 6d 61 73 6b  69 74 25 3d 21 28 4b 25  |....maskit%=!(K%|
00003030  2b 26 33 43 29 0d 12 ca  1a 6d 73 63 72 65 65 6e  |+&3C)....mscreen|
00003040  5f 6f 6e 65 25 3d 21 28  4b 25 2b 26 41 38 29 0d  |_one%=!(K%+&A8).|
00003050  12 d4 18 21 6d 73 63 72  65 65 6e 5f 6f 6e 65 25  |...!mscreen_one%|
00003060  3d 4b 25 21 26 43 30 0d  12 de 19 6d 73 63 72 65  |=K%!&C0....mscre|
00003070  65 6e 5f 6f 6e 65 25 21  34 3d 4b 25 21 26 43 34  |en_one%!4=K%!&C4|
00003080  0d 12 e8 1d 73 63 72 65  65 6e 5f 6f 66 66 73 65  |....screen_offse|
00003090  74 73 25 3d 21 28 4b 25  2b 26 42 34 29 0d 12 f2  |ts%=!(K%+&B4)...|
000030a0  17 73 71 62 75 66 66 65  72 25 3d 21 28 4b 25 2b  |.sqbuffer%=!(K%+|
000030b0  26 43 38 29 0d 12 fc 15  73 71 66 69 6c 65 25 3d  |&C8)....sqfile%=|
000030c0  21 28 4b 25 2b 26 44 30  29 0d 13 06 16 73 70 61  |!(K%+&D0)....spa|
000030d0  72 65 61 32 25 3d 21 28  4b 25 2b 26 44 30 29 0d  |rea2%=!(K%+&D0).|
000030e0  13 10 16 62 75 74 61 72  65 61 25 3d 21 28 4b 25  |...butarea%=!(K%|
000030f0  2b 26 44 34 29 0d 13 1a  15 73 70 61 72 65 61 25  |+&D4)....sparea%|
00003100  3d 21 28 4b 25 2b 26 44  38 29 0d 13 24 1b 65 66  |=!(K%+&D8)..$.ef|
00003110  66 65 63 74 5f 73 74 61  72 74 25 3d 21 28 4b 25  |fect_start%=!(K%|
00003120  2b 26 42 38 29 0d 13 2e  15 63 67 61 76 67 61 25  |+&B8)....cgavga%|
00003130  3d 21 28 4b 25 2b 26 46  30 29 0d 13 38 04 0d 13  |=!(K%+&F0)..8...|
00003140  42 17 73 70 61 72 65 61  32 73 69 7a 25 3d 33 36  |B.sparea2siz%=36|
00003150  2a 31 30 32 34 0d 13 4c  17 62 75 74 61 72 65 61  |*1024..L.butarea|
00003160  73 69 7a 25 3d 33 31 2a  31 30 32 34 0d 13 56 17  |siz%=31*1024..V.|
00003170  73 70 61 72 65 61 73 69  7a 25 3d 32 34 30 2a 31  |spareasiz%=240*1|
00003180  30 32 34 0d 13 60 05 e1  0d 13 6a 04 0d 13 74 14  |024..`....j...t.|
00003190  dd f2 70 75 73 68 5f 76  61 72 69 61 62 6c 65 73  |..push_variables|
000031a0  0d 13 7e 0e f2 63 68 65  63 6b 6d 6f 64 65 0d 13  |..~..checkmode..|
000031b0  88 0e f2 63 68 65 63 6b  61 72 6d 33 0d 13 92 10  |...checkarm3....|
000031c0  4b 25 21 26 43 38 3d 26  41 34 30 30 0d 13 9c 10  |K%!&C8=&A400....|
000031d0  4b 25 21 26 44 30 3d 26  46 30 30 30 0d 13 a6 11  |K%!&D0=&F000....|
000031e0  4b 25 21 26 44 34 3d 26  31 38 30 30 30 0d 13 b0  |K%!&D4=&18000...|
000031f0  11 4b 25 21 26 44 38 3d  26 31 46 43 30 30 0d 13  |.K%!&D8=&1FC00..|
00003200  ba 11 f2 73 63 72 65 65  6e 73 74 61 72 74 73 0d  |...screenstarts.|
00003210  13 c4 05 e1 0d 13 ce 04  0d 13 d8 12 dd f2 73 63  |..............sc|
00003220  72 65 65 6e 73 74 61 72  74 73 0d 13 e2 29 c8 99  |reenstarts...)..|
00003230  20 22 4f 53 5f 42 79 74  65 22 2c 31 31 33 2c 31  | "OS_Byte",113,1|
00003240  3a c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 31 31  |:.. "OS_Byte",11|
00003250  32 2c 32 0d 13 ec 22 21  62 6c 6b 25 3d 31 34 39  |2,2..."!blk%=149|
00003260  3a 62 6c 6b 25 21 34 3d  31 34 38 3a 62 6c 6b 25  |:blk%!4=148:blk%|
00003270  21 38 3d 2d 31 0d 13 f6  26 c8 99 20 22 4f 53 5f  |!8=-1...&.. "OS_|
00003280  52 65 61 64 56 64 75 56  61 72 69 61 62 6c 65 73  |ReadVduVariables|
00003290  22 2c 62 6c 6b 25 2c 62  6c 6b 25 0d 14 00 24 21  |",blk%,blk%...$!|
000032a0  28 4b 25 2b 26 43 30 29  3d 21 62 6c 6b 25 3a 21  |(K%+&C0)=!blk%:!|
000032b0  28 4b 25 2b 26 43 34 29  3d 62 6c 6b 25 21 34 0d  |(K%+&C4)=blk%!4.|
000032c0  14 0a 42 e7 21 28 4b 25  2b 26 46 30 29 3d 31 3a  |..B.!(K%+&F0)=1:|
000032d0  4b 25 21 26 43 30 3d 28  4b 25 21 26 43 30 29 2b  |K%!&C0=(K%!&C0)+|
000032e0  28 31 36 2a 33 32 30 29  3a 4b 25 21 26 43 34 3d  |(16*320):K%!&C4=|
000032f0  28 4b 25 21 26 43 34 29  2b 28 31 36 2a 33 32 30  |(K%!&C4)+(16*320|
00003300  29 0d 14 14 05 e1 0d 14  1e 04 0d 14 28 0f dd f2  |)...........(...|
00003310  63 68 65 63 6b 6d 6f 64  65 0d 14 32 12 e7 20 a4  |checkmode..2.. .|
00003320  69 73 63 67 61 6f 6e 6c  79 20 8c 0d 14 3c 11 20  |iscgaonly ...<. |
00003330  eb 31 32 3a 4b 25 21 26  46 30 3d 31 0d 14 46 05  |.12:K%!&F0=1..F.|
00003340  cc 0d 14 50 28 20 e7 a4  69 73 76 67 61 3a eb 32  |...P( ..isvga:.2|
00003350  37 3a 4b 25 21 26 46 30  3d 32 3a 8b 3a eb 31 32  |7:K%!&F0=2:.:.12|
00003360  3a 4b 25 21 26 46 30 3d  31 0d 14 5a 05 cd 0d 14  |:K%!&F0=1..Z....|
00003370  64 05 e1 0d 14 6e 04 0d  14 78 1d dd f2 6d 61 73  |d....n...x...mas|
00003380  6b 73 70 72 69 74 65 28  61 72 65 61 25 2c 6e 6f  |ksprite(area%,no|
00003390  73 70 25 29 0d 14 82 08  ea 20 6a 25 0d 14 8c 11  |sp%)..... j%....|
000033a0  e3 6a 25 3d 30 b8 6e 6f  73 70 25 2d 31 0d 14 96  |.j%=0.nosp%-1...|
000033b0  2b 20 c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |+ .."OS_SpriteOp|
000033c0  22 2c 26 31 31 44 2c 61  72 65 61 25 2c 6d 61 73  |",&11D,area%,mas|
000033d0  6b 73 70 24 28 6a 25 29  0d 14 a0 4e 20 c8 99 22  |ksp$(j%)...N .."|
000033e0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 31  |OS_SpriteOp",&11|
000033f0  38 2c 61 72 65 61 25 2c  6d 61 73 6b 73 70 24 28  |8,area%,masksp$(|
00003400  6a 25 29 20 b8 20 2c 2c  43 25 3a 41 25 3d 43 25  |j%) . ,,C%:A%=C%|
00003410  2b 28 43 25 21 33 32 29  3a 42 25 3d 43 25 2b 28  |+(C%!32):B%=C%+(|
00003420  43 25 21 33 36 29 0d 14  aa 52 20 c8 99 22 4f 53  |C%!36)...R .."OS|
00003430  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 32 38 2c  |_SpriteOp",&128,|
00003440  61 72 65 61 25 2c 6d 61  73 6b 73 70 24 28 6a 25  |area%,masksp$(j%|
00003450  29 20 b8 20 2c 2c 2c 43  25 2c 44 25 3a e7 28 43  |) . ,,,C%,D%:.(C|
00003460  25 83 38 29 3c 3e 30 3a  43 25 3d 28 a8 28 43 25  |%.8)<>0:C%=(.(C%|
00003470  2f 38 29 2b 31 29 2a 38  0d 14 b4 20 20 43 25 3d  |/8)+1)*8...  C%=|
00003480  28 43 25 2a 44 25 29 2f  32 3a 44 25 3d 6d 61 73  |(C%*D%)/2:D%=mas|
00003490  6b 73 70 25 28 6a 25 29  0d 14 be 0f 20 d6 20 61  |ksp%(j%).... . a|
000034a0  64 64 6d 61 73 6b 25 0d  14 c8 05 ed 0d 14 d2 05  |ddmask%.........|
000034b0  e1 0d 14 dc 04 0d 14 e6  28 dd f2 6c 6f 61 64 75  |........(..loadu|
000034c0  6e 73 71 75 61 73 68 28  61 72 65 61 25 2c 61 72  |nsquash(area%,ar|
000034d0  65 61 73 69 7a 25 2c 66  69 6c 65 24 29 0d 14 f0  |easiz%,file$)...|
000034e0  10 f2 6c 6f 61 64 28 66  69 6c 65 24 29 0d 14 fa  |..load(file$)...|
000034f0  1d f2 75 6e 73 71 75 61  73 68 28 61 72 65 61 25  |..unsquash(area%|
00003500  2c 61 72 65 61 73 69 7a  25 29 0d 15 04 05 e1 0d  |,areasiz%)......|
00003510  15 0e 04 0d 15 18 11 dd  f2 6c 6f 61 64 28 66 69  |.........load(fi|
00003520  6c 65 24 29 0d 15 22 30  ff 22 4c 4f 41 44 20 3c  |le$).."0."LOAD <|
00003530  45 6c 66 4b 24 63 68 61  69 6e 64 69 72 3e 2e 22  |ElfK$chaindir>."|
00003540  2b 66 69 6c 65 24 2b 22  20 22 2b c3 7e 73 71 66  |+file$+" "+.~sqf|
00003550  69 6c 65 25 0d 15 2c 38  c8 99 20 22 4f 53 5f 46  |ile%..,8.. "OS_F|
00003560  69 6c 65 22 2c 35 2c 22  3c 45 6c 66 4b 24 63 68  |ile",5,"<ElfK$ch|
00003570  61 69 6e 64 69 72 3e 2e  22 2b 66 69 6c 65 24 20  |aindir>."+file$ |
00003580  b8 20 2c 2c 2c 2c 73 71  73 69 7a 25 0d 15 36 05  |. ,,,,sqsiz%..6.|
00003590  e1 0d 15 40 04 0d 15 4a  1f dd f2 75 6e 73 71 75  |...@...J...unsqu|
000035a0  61 73 68 28 6f 75 74 70  74 72 25 2c 6f 75 74 73  |ash(outptr%,outs|
000035b0  69 7a 25 29 0d 15 54 52  c8 99 20 22 53 71 75 61  |iz%)..TR.. "Squa|
000035c0  73 68 5f 44 65 63 6f 6d  70 72 65 73 73 22 2c 25  |sh_Decompress",%|
000035d0  31 30 30 2c 73 71 62 75  66 66 65 72 25 2c 73 71  |100,sqbuffer%,sq|
000035e0  66 69 6c 65 25 2b 32 30  2c 73 71 73 69 7a 25 2d  |file%+20,sqsiz%-|
000035f0  32 30 2c 6f 75 74 70 74  72 25 2b 34 2c 6f 75 74  |20,outptr%+4,out|
00003600  73 69 7a 25 2d 34 0d 15  5e 27 21 73 70 61 72 65  |siz%-4..^'!spare|
00003610  61 32 25 3d 73 70 61 72  65 61 32 73 69 7a 25 3a  |a2%=sparea2siz%:|
00003620  73 70 61 72 65 61 32 25  21 38 3d 31 36 0d 15 68  |sparea2%!8=16..h|
00003630  22 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |".. "OS_SpriteOp|
00003640  22 2c 26 31 30 39 2c 73  70 61 72 65 61 32 25 0d  |",&109,sparea2%.|
00003650  15 72 05 e1 0d 15 7c 04  0d 15 86 11 dd f2 69 6e  |.r....|.......in|
00003660  69 74 69 61 6c 6c 69 73  65 0d 15 90 1a de 20 69  |itiallise..... i|
00003670  6e 70 75 74 5f 64 69 73  6b 5f 6e 61 6d 65 25 20  |nput_disk_name% |
00003680  32 35 36 0d 15 9a 40 de  20 6c 69 6e 6b 25 28 6d  |256...@. link%(m|
00003690  61 78 73 74 61 72 74 73  25 29 2c 73 75 6d 25 28  |axstarts%),sum%(|
000036a0  35 2c 32 29 2c 73 75 6d  32 25 28 35 2c 35 29 2c  |5,2),sum2%(5,5),|
000036b0  73 65 71 25 28 31 2c 33  29 2c 6e 75 6d 62 25 28  |seq%(1,3),numb%(|
000036c0  32 30 29 0d 15 a4 08 f7  20 2b 30 0d 15 ae 41 dc  |20)..... +0...A.|
000036d0  20 31 30 31 30 2c 31 30  32 30 2c 31 30 33 30 2c  | 1010,1020,1030,|
000036e0  31 30 34 30 2c 31 30 35  30 2c 31 30 36 30 2c 31  |1040,1050,1060,1|
000036f0  30 37 30 2c 31 30 38 30  2c 31 30 39 30 2c 31 31  |070,1080,1090,11|
00003700  30 30 2c 31 31 31 30 2c  31 31 32 30 0d 15 b8 21  |00,1110,1120...!|
00003710  e3 69 25 3d 31 b8 6d 61  78 73 74 61 72 74 73 25  |.i%=1.maxstarts%|
00003720  3a f3 6c 69 6e 6b 25 28  69 25 29 3a ed 0d 15 c2  |:.link%(i%):....|
00003730  14 73 70 61 72 65 61 73  69 7a 25 2d 3d 32 30 34  |.spareasiz%-=204|
00003740  38 0d 15 cc 3f f4 20 2a  2a 2a 2a 2a 2a 2a 2a 20  |8...?. ******** |
00003750  6c 69 6e 65 20 61 62 6f  76 65 20 74 65 6d 70 6f  |line above tempo|
00003760  72 61 72 79 20 27 63 6f  73 20 6f 66 20 73 70 61  |rary 'cos of spa|
00003770  63 65 20 66 6f 72 20 70  72 69 6e 74 69 6e 67 2e  |ce for printing.|
00003780  0d 15 d6 24 21 73 70 61  72 65 61 25 3d 73 70 61  |...$!sparea%=spa|
00003790  72 65 61 73 69 7a 25 3a  73 70 61 72 65 61 25 21  |reasiz%:sparea%!|
000037a0  38 3d 31 36 0d 15 e0 21  c8 99 20 22 4f 53 5f 53  |8=16...!.. "OS_S|
000037b0  70 72 69 74 65 4f 70 22  2c 26 31 30 39 2c 73 70  |priteOp",&109,sp|
000037c0  61 72 65 61 25 0d 15 ea  27 21 62 75 74 61 72 65  |area%...'!butare|
000037d0  61 25 3d 62 75 74 61 72  65 61 73 69 7a 25 3a 62  |a%=butareasiz%:b|
000037e0  75 74 61 72 65 61 25 21  38 3d 31 36 0d 15 f4 22  |utarea%!8=16..."|
000037f0  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
00003800  2c 26 31 30 39 2c 62 75  74 61 72 65 61 25 0d 15  |,&109,butarea%..|
00003810  fe 27 21 73 70 61 72 65  61 32 25 3d 73 70 61 72  |.'!sparea2%=spar|
00003820  65 61 32 73 69 7a 25 3a  73 70 61 72 65 61 32 25  |ea2siz%:sparea2%|
00003830  21 38 3d 31 36 0d 16 08  22 c8 99 20 22 4f 53 5f  |!8=16...".. "OS_|
00003840  53 70 72 69 74 65 4f 70  22 2c 26 31 30 39 2c 73  |SpriteOp",&109,s|
00003850  70 61 72 65 61 32 25 0d  16 12 49 de 20 73 63 61  |parea2%...I. sca|
00003860  6c 65 25 20 31 36 3a 73  63 61 6c 65 25 21 30 3d  |le% 16:scale%!0=|
00003870  31 36 3a 73 63 61 6c 65  25 21 34 3d 31 36 2a 28  |16:scale%!4=16*(|
00003880  4b 25 21 26 46 30 29 3a  73 63 61 6c 65 25 21 38  |K%!&F0):scale%!8|
00003890  3d 31 36 3a 73 63 61 6c  65 25 21 31 32 3d 31 36  |=16:scale%!12=16|
000038a0  0d 16 1c 16 c8 99 20 22  4f 53 5f 42 79 74 65 22  |...... "OS_Byte"|
000038b0  2c 31 31 32 2c 31 0d 16  26 0c 61 61 3d b3 28 2d  |,112,1..&.aa=.(-|
000038c0  91 29 0d 16 30 11 f4 20  67 65 74 20 62 75 74 74  |.)..0.. get butt|
000038d0  6f 6e 73 0d 16 3a 31 f2  6c 6f 61 64 75 6e 73 71  |ons..:1.loadunsq|
000038e0  75 61 73 68 28 62 75 74  61 72 65 61 25 2c 62 75  |uash(butarea%,bu|
000038f0  74 61 72 65 61 73 69 7a  25 2c 22 62 75 74 74 6f  |tareasiz%,"butto|
00003900  6e 73 22 29 0d 16 44 1d  de 20 6d 61 73 6b 73 70  |ns")..D.. masksp|
00003910  24 28 32 39 29 2c 6d 61  73 6b 73 70 25 28 32 39  |$(29),masksp%(29|
00003920  29 0d 16 4e 64 6d 61 73  6b 73 70 24 28 30 29 3d  |)..Ndmasksp$(0)=|
00003930  22 62 6f 6f 6b 62 75 74  22 3a 6d 61 73 6b 73 70  |"bookbut":masksp|
00003940  24 28 31 29 3d 22 62 75  62 22 3a 6d 61 73 6b 73  |$(1)="bub":masks|
00003950  70 24 28 31 31 29 3d 22  65 6c 66 68 65 61 64 30  |p$(11)="elfhead0|
00003960  22 3a 6d 61 73 6b 73 70  24 28 32 31 29 3d 22 77  |":masksp$(21)="w|
00003970  6f 72 6d 22 3a 6d 61 73  6b 73 70 24 28 31 30 29  |orm":masksp$(10)|
00003980  3d 22 68 30 22 0d 16 58  26 e3 6a 25 3d 32 b8 37  |="h0"..X&.j%=2.7|
00003990  3a 6d 61 73 6b 73 70 24  28 6a 25 29 3d 22 62 62  |:masksp$(j%)="bb|
000039a0  22 2b c3 28 6a 25 2d 31  29 3a ed 0d 16 62 27 e3  |"+.(j%-1):...b'.|
000039b0  6a 25 3d 38 b8 39 3a 6d  61 73 6b 73 70 24 28 6a  |j%=8.9:masksp$(j|
000039c0  25 29 3d 22 62 75 62 22  2b c3 28 6a 25 2d 37 29  |%)="bub"+.(j%-7)|
000039d0  3a ed 0d 16 6c 2b e3 6a  25 3d 31 32 b8 32 30 3a  |:...l+.j%=12.20:|
000039e0  6d 61 73 6b 73 70 24 28  6a 25 29 3d 22 73 74 61  |masksp$(j%)="sta|
000039f0  72 22 2b c3 28 6a 25 2d  31 32 29 3a ed 0d 16 76  |r"+.(j%-12):...v|
00003a00  64 6d 61 73 6b 73 70 24  28 32 32 29 3d 22 6d 31  |dmasksp$(22)="m1|
00003a10  22 3a 6d 61 73 6b 73 70  24 28 32 33 29 3d 22 72  |":masksp$(23)="r|
00003a20  65 61 64 65 72 22 3a 6d  61 73 6b 73 70 24 28 32  |eader":masksp$(2|
00003a30  34 29 3d 22 62 75 62 33  22 3a 6d 61 73 6b 73 70  |4)="bub3":masksp|
00003a40  24 28 32 35 29 3d 22 62  61 6e 67 22 3a 6d 61 73  |$(25)="bang":mas|
00003a50  6b 73 70 24 28 32 36 29  3d 22 73 61 79 61 72 72  |ksp$(26)="sayarr|
00003a60  22 0d 16 80 28 6d 61 73  6b 73 70 25 28 29 3d 34  |"...(masksp%()=4|
00003a70  3a f2 6d 61 73 6b 73 70  72 69 74 65 28 62 75 74  |:.masksprite(but|
00003a80  61 72 65 61 25 2c 32 37  29 0d 16 8a 13 f4 20 63  |area%,27)..... c|
00003a90  6c 65 61 72 20 4d 4f 55  53 45 20 32 0d 16 94 1a  |lear MOUSE 2....|
00003aa0  e3 6a 25 3d 30 b8 31 32  88 34 3a 62 6c 6b 25 21  |.j%=0.12.4:blk%!|
00003ab0  6a 25 3d 30 3a ed 0d 16  9e 20 62 6c 6b 25 3f 31  |j%=0:.... blk%?1|
00003ac0  3d 32 3a c8 99 22 4f 53  5f 57 6f 72 64 22 2c 32  |=2:.."OS_Word",2|
00003ad0  31 2c 62 6c 6b 25 0d 16  a8 3a c8 97 20 ee 20 32  |1,blk%...:.. . 2|
00003ae0  3a c8 97 20 b8 20 31 30  30 30 2c 31 30 30 3a c8  |:.. . 1000,100:.|
00003af0  97 20 6d 78 25 2c 6d 79  25 2c 6d 62 75 74 25 3a  |. mx%,my%,mbut%:|
00003b00  57 25 3d 28 6d 78 25 3c  3c 31 36 29 84 6d 79 25  |W%=(mx%<<16).my%|
00003b10  0d 16 b2 08 f7 20 2b 30  0d 16 bc 17 dc 20 31 2c  |..... +0..... 1,|
00003b20  32 2c 31 30 2c 35 2c 32  2c 35 2c 31 30 2c 33 0d  |2,10,5,2,5,10,3.|
00003b30  16 c6 25 e3 69 25 3d 30  b8 31 3a e3 6a 25 3d 30  |..%.i%=0.1:.j%=0|
00003b40  b8 33 3a f3 20 73 65 71  25 28 69 25 2c 6a 25 29  |.3:. seq%(i%,j%)|
00003b50  3a ed 3a ed 0d 16 d0 05  e1 0d 16 da 04 0d 16 e4  |:.:.............|
00003b60  0f dd f2 73 63 72 63 6f  70 79 32 31 0d 16 ee 20  |...scrcopy21... |
00003b70  c8 99 20 22 4f 53 5f 42  79 74 65 22 2c 31 31 33  |.. "OS_Byte",113|
00003b80  2c 32 3a 41 25 3d 32 3a  42 25 3d 31 0d 16 f8 0e  |,2:A%=2:B%=1....|
00003b90  d6 20 63 6f 70 79 73 63  72 25 0d 17 02 2e c8 99  |. copyscr%......|
00003ba0  20 22 4f 53 5f 42 79 74  65 22 2c 31 31 33 2c 31  | "OS_Byte",113,1|
00003bb0  3a c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 31 31  |:.. "OS_Byte",11|
00003bc0  32 2c 31 3a ef 20 32 36  0d 17 0c 05 e1 0d 17 16  |2,1:. 26........|
00003bd0  04 0d 17 20 0d dd f2 70  61 6c 65 74 74 65 0d 17  |... ...palette..|
00003be0  2a 08 f7 20 2b 30 0d 17  34 35 dc 20 26 46 46 2c  |*.. +0..45. &FF,|
00003bf0  26 46 46 2c 26 46 46 2c  26 41 41 2c 26 41 41 2c  |&FF,&FF,&AA,&AA,|
00003c00  26 41 41 2c 26 37 37 2c  26 37 37 2c 26 37 37 2c  |&AA,&77,&77,&77,|
00003c10  26 30 30 2c 26 30 30 2c  26 30 30 0d 17 3e 35 dc  |&00,&00,&00..>5.|
00003c20  20 26 30 30 2c 26 30 30  2c 26 41 41 2c 26 30 30  | &00,&00,&AA,&00|
00003c30  2c 26 36 36 2c 26 46 46  2c 26 30 30 2c 26 43 43  |,&66,&FF,&00,&CC|
00003c40  2c 26 46 46 2c 26 46 46  2c 26 38 38 2c 26 30 30  |,&FF,&FF,&88,&00|
00003c50  0d 17 48 35 dc 20 26 45  45 2c 26 30 30 2c 26 30  |..H5. &EE,&00,&0|
00003c60  30 2c 26 46 46 2c 26 46  46 2c 26 30 30 2c 26 39  |0,&FF,&FF,&00,&9|
00003c70  39 2c 26 35 35 2c 26 30  30 2c 26 46 46 2c 26 43  |9,&55,&00,&FF,&C|
00003c80  43 2c 26 39 39 0d 17 52  35 dc 20 26 30 30 2c 26  |C,&99..R5. &00,&|
00003c90  38 38 2c 26 31 31 2c 26  30 30 2c 26 42 42 2c 26  |88,&11,&00,&BB,&|
00003ca0  30 30 2c 26 30 30 2c 26  45 45 2c 26 32 32 2c 26  |00,&00,&EE,&22,&|
00003cb0  42 42 2c 26 37 37 2c 26  30 30 0d 17 5c 32 e3 20  |BB,&77,&00..\2. |
00003cc0  69 25 3d 30 20 b8 20 31  35 3a f3 20 72 25 2c 20  |i%=0 . 15:. r%, |
00003cd0  67 25 2c 20 62 25 3a ef  20 31 39 2c 69 25 2c 31  |g%, b%:. 19,i%,1|
00003ce0  36 2c 72 25 2c 67 25 2c  62 25 3a ed 0d 17 66 05  |6,r%,g%,b%:...f.|
00003cf0  e1 0d 17 70 04 0d 17 7a  0a dd f2 6c 69 6e 6b 0d  |...p...z...link.|
00003d00  17 84 10 4c 25 3d 6c 69  6e 6b 25 28 53 25 29 0d  |...L%=link%(S%).|
00003d10  17 8e 04 0d 17 98 0d f2  63 68 61 69 6e 28 31 29  |........chain(1)|
00003d20  0d 17 a2 05 e0 0d 17 ac  04 0d 17 b6 10 dd f2 63  |...............c|
00003d30  68 61 69 6e 28 64 69 25  29 0d 17 c0 1b e7 64 69  |hain(di%).....di|
00003d40  25 3d 31 3a 66 69 6c 65  24 3d 22 4f 4e 45 2e 4c  |%=1:file$="ONE.L|
00003d50  49 4e 4b 22 0d 17 ca 1b  e7 64 69 25 3d 32 3a 66  |INK".....di%=2:f|
00003d60  69 6c 65 24 3d 22 54 57  4f 2e 4c 49 4e 4b 22 0d  |ile$="TWO.LINK".|
00003d70  17 d4 2e e7 59 25 3d 30  3a f2 63 68 65 63 6b 66  |....Y%=0:.checkf|
00003d80  6c 6f 70 70 79 69 73 74  68 65 72 65 28 64 69 25  |loppyisthere(di%|
00003d90  2c 22 22 29 3a 8b 3a 6f  6b 25 3d 2d 31 0d 17 de  |,""):.:ok%=-1...|
00003da0  29 66 69 6c 65 24 3d 22  3c 45 6c 66 4b 24 63 68  |)file$="<ElfK$ch|
00003db0  61 69 6e 64 69 72 3e 2e  22 2b 66 69 6c 65 24 3a  |aindir>."+file$:|
00003dc0  2a 46 58 32 32 39 0d 17  e8 0d 2a 46 58 32 32 30  |*FX229....*FX220|
00003dd0  2c 31 37 0d 17 f2 11 f4  41 25 3d 6d 65 6d 74 6f  |,17.....A%=memto|
00003de0  70 25 2b 34 0d 17 fc 10  f4 50 41 47 45 3d 26 34  |p%+4.....PAGE=&4|
00003df0  31 30 30 30 0d 18 06 09  e7 6f 6b 25 8c 0d 18 10  |1000.....ok%....|
00003e00  0b 20 d7 66 69 6c 65 24  0d 18 1a 05 cc 0d 18 24  |. .file$.......$|
00003e10  0e 20 f2 64 65 73 6b 5f  74 6f 70 0d 18 2e 05 cd  |. .desk_top.....|
00003e20  0d 18 38 05 fa 0d 18 42  04 0d 18 4c 0e dd f2 64  |..8....B...L...d|
00003e30  65 73 6b 5f 74 6f 70 0d  18 56 36 d8 3a de 62 75  |esk_top..V6.:.bu|
00003e40  66 25 20 34 3a e3 69 25  3d 31 b8 31 36 3a c8 96  |f% 4:.i%=1.16:..|
00003e50  3a e3 63 25 3d 30 b8 31  36 3a e7 63 25 3c 31 36  |:.c%=0.16:.c%<16|
00003e60  76 25 3d 31 36 20 8b 20  76 25 3d 32 34 0d 18 60  |v%=16 . v%=24..`|
00003e70  50 c8 99 22 4f 53 5f 52  65 61 64 50 61 6c 65 74  |P.."OS_ReadPalet|
00003e80  74 65 22 2c 63 25 2c 76  25 20 b8 20 2c 2c 64 25  |te",c%,v% . ,,d%|
00003e90  3a 21 62 75 66 25 3d 64  25 3a e3 62 25 3d 31 b8  |:!buf%=d%:.b%=1.|
00003ea0  33 3a e7 62 75 66 25 3f  62 25 3e 30 62 75 66 25  |3:.buf%?b%>0buf%|
00003eb0  3f 62 25 2d 3d 31 36 3a  ed 3a 8b 3a ed 0d 18 6a  |?b%-=16:.:.:...j|
00003ec0  25 ef 31 39 2c 63 25 2c  76 25 2c 62 75 66 25 3f  |%.19,c%,v%,buf%?|
00003ed0  31 2c 62 75 66 25 3f 32  2c 62 75 66 25 3f 33 3a  |1,buf%?2,buf%?3:|
00003ee0  ed 2c 0d 18 74 21 d7 20  22 3c 45 6c 66 4b 24 63  |.,..t!. "<ElfK$c|
00003ef0  68 61 69 6e 64 69 72 3e  2e 21 72 75 6e 69 6d 61  |haindir>.!runima|
00003f00  67 65 22 0d 18 7e 05 fa  0d 18 88 04 0d 18 92 23  |ge"..~.........#|
00003f10  dd f2 63 68 65 63 6b 66  6c 6f 70 70 79 69 73 74  |..checkfloppyist|
00003f20  68 65 72 65 28 64 69 25  2c 66 69 6c 65 24 29 0d  |here(di%,file$).|
00003f30  18 9c 3d 6f 6b 25 3d 2d  31 3a 74 65 73 74 25 3d  |..=ok%=-1:test%=|
00003f40  30 3a f5 3a f2 66 6c 6f  70 70 79 5f 64 69 73 6b  |0:.:.floppy_disk|
00003f50  28 64 69 25 2c 66 69 6c  65 24 29 3a fd 28 65 72  |(di%,file$):.(er|
00003f60  72 6f 72 25 3d 30 29 84  ac 6f 6b 25 0d 18 a6 05  |ror%=0)..ok%....|
00003f70  e1 0d 18 b0 04 0d 18 ba  1c dd f2 66 6c 6f 70 70  |...........flopp|
00003f80  79 5f 64 69 73 6b 28 64  69 25 2c 66 69 6c 65 24  |y_disk(di%,file$|
00003f90  29 0d 18 c4 3d c8 99 20  22 4f 53 5f 53 70 72 69  |)...=.. "OS_Spri|
00003fa0  74 65 4f 70 22 2c 26 31  31 30 2c 73 70 61 72 65  |teOp",&110,spare|
00003fb0  61 32 25 2c 22 64 69 73  63 62 67 22 2c 30 2c 33  |a2%,"discbg",0,3|
00003fc0  32 30 2c 33 36 30 2c 39  32 30 2c 36 30 30 0d 18  |20,360,920,600..|
00003fd0  ce 06 ea 85 0d 18 d8 78  ee 85 ea 3a f7 20 85 3a  |.......x...:. .:|
00003fe0  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
00003ff0  2c 26 31 33 34 2c 73 70  61 72 65 61 32 25 2c 22  |,&134,sparea2%,"|
00004000  64 69 73 63 62 67 22 2c  33 32 30 2c 33 36 30 2c  |discbg",320,360,|
00004010  30 3a c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |0:.. "OS_SpriteO|
00004020  70 22 2c 26 31 31 39 2c  73 70 61 72 65 61 32 25  |p",&119,sparea2%|
00004030  2c 22 64 69 73 63 62 67  22 3a 65 72 72 6f 72 25  |,"discbg":error%|
00004040  3d 31 3a 74 65 73 74 25  3d 31 3a e1 0d 18 e2 8a  |=1:test%=1:.....|
00004050  f4 4f 4e 45 52 52 4f 52  4c 4f 43 41 4c 20 53 59  |.ONERRORLOCAL SY|
00004060  53 22 4f 53 5f 42 79 74  65 22 2c 32 35 30 2c 30  |S"OS_Byte",250,0|
00004070  2c 32 35 35 20 54 4f 20  2c 73 63 72 25 3a 53 59  |,255 TO ,scr%:SY|
00004080  53 22 4f 53 5f 42 79 74  65 22 2c 31 31 33 2c 73  |S"OS_Byte",113,s|
00004090  63 72 25 3a 50 52 49 4e  54 20 52 45 50 4f 52 54  |cr%:PRINT REPORT|
000040a0  24 2b 22 20 28 49 6e 74  65 72 6e 61 6c 20 65 72  |$+" (Internal er|
000040b0  72 6f 72 20 63 6f 64 65  20 22 2b 53 54 52 24 45  |ror code "+STR$E|
000040c0  52 4c 2b 22 29 22 2b 43  48 52 24 30 3a 78 3d 47  |RL+")"+CHR$0:x=G|
000040d0  45 54 3a 45 4e 44 0d 18  ec 05 f5 0d 18 f6 0e 20  |ET:END......... |
000040e0  20 65 72 72 6f 72 25 3d  30 0d 19 00 54 20 20 e7  | error%=0...T  .|
000040f0  74 65 73 74 25 3d 31 3a  f2 64 69 73 6b 77 69 6e  |test%=1:.diskwin|
00004100  64 6f 77 28 22 50 6c 65  61 73 65 20 70 6c 61 63  |dow("Please plac|
00004110  65 20 74 68 65 20 64 69  73 6b 22 2c 22 27 45 6c  |e the disk","'El|
00004120  66 4b 69 6e 67 22 2b c3  28 64 69 25 29 2b 22 27  |fKing"+.(di%)+"'|
00004130  20 69 6e 20 64 72 69 76  65 20 30 22 29 0d 19 0a  | in drive 0")...|
00004140  0b 20 20 2a 41 44 46 53  0d 19 14 0e 20 20 2a 4d  |.  *ADFS....  *M|
00004150  4f 55 4e 54 20 30 0d 19  1e 25 20 20 c8 99 22 4f  |OUNT 0...%  .."O|
00004160  53 5f 47 42 50 42 22 2c  35 2c 2c 69 6e 70 75 74  |S_GBPB",5,,input|
00004170  5f 64 69 73 6b 5f 6e 61  6d 65 25 0d 19 28 29 20  |_disk_name%..() |
00004180  20 6c 65 6e 5f 64 5f 6e  25 3d 3f 69 6e 70 75 74  | len_d_n%=?input|
00004190  5f 64 69 73 6b 5f 6e 61  6d 65 25 3a 6e 61 6d 65  |_disk_name%:name|
000041a0  24 3d 22 22 0d 19 32 15  20 20 e3 64 6e 25 3d 31  |$=""..2.  .dn%=1|
000041b0  b8 6c 65 6e 5f 64 5f 6e  25 0d 19 3c 48 20 20 e7  |.len_d_n%..<H  .|
000041c0  3f 28 69 6e 70 75 74 5f  64 69 73 6b 5f 6e 61 6d  |?(input_disk_nam|
000041d0  65 25 2b 64 6e 25 29 3e  33 31 3a 6e 61 6d 65 24  |e%+dn%)>31:name$|
000041e0  3d 6e 61 6d 65 24 2b bd  28 3f 28 69 6e 70 75 74  |=name$+.(?(input|
000041f0  5f 64 69 73 6b 5f 6e 61  6d 65 25 2b 64 6e 25 29  |_disk_name%+dn%)|
00004200  29 0d 19 46 07 20 20 ed  0d 19 50 37 20 20 c8 99  |)..F.  ...P7  ..|
00004210  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  | "OS_SpriteOp",&|
00004220  31 32 32 2c 73 70 61 72  65 61 32 25 2c 22 64 69  |122,sparea2%,"di|
00004230  73 63 62 67 22 2c 33 32  30 2c 33 36 30 2c 30 0d  |scbg",320,360,0.|
00004240  19 5a 29 20 20 e7 6e 61  6d 65 24 3c 3e 22 45 6c  |.Z)  .name$<>"El|
00004250  66 4b 69 6e 67 22 2b c3  28 64 69 25 29 20 8c 3a  |fKing"+.(di%) .:|
00004260  65 72 72 6f 72 25 3d 31  0d 19 64 0d 20 20 74 65  |error%=1..d.  te|
00004270  73 74 25 3d 31 0d 19 6e  25 20 20 ff 22 53 45 54  |st%=1..n%  ."SET|
00004280  20 45 6c 66 4b 24 63 68  61 69 6e 64 69 72 20 24  | ElfK$chaindir $|
00004290  2e 21 45 6c 66 4b 69 6e  67 22 0d 19 78 47 20 20  |.!ElfKing"..xG  |
000042a0  e7 66 69 6c 65 24 3c 3e  22 22 3a c8 99 20 22 58  |.file$<>"":.. "X|
000042b0  4f 53 5f 46 69 6e 64 22  2c 26 34 30 2c 22 3c 45  |OS_Find",&40,"<E|
000042c0  6c 66 4b 24 63 68 61 69  6e 64 69 72 3e 2e 22 2b  |lfK$chaindir>."+|
000042d0  66 69 6c 65 24 20 b8 20  68 25 3a 8b 3a 68 25 3d  |file$ . h%:.:h%=|
000042e0  31 0d 19 82 2e fd 28 28  68 25 3c 3e 30 29 80 28  |1.....((h%<>0).(|
000042f0  65 72 72 6f 72 25 3d 30  29 29 84 ac 6f 6b 25 3a  |error%=0))..ok%:|
00004300  e7 66 69 6c 65 24 3c 3e  22 22 3a d9 23 68 25 0d  |.file$<>"":.#h%.|
00004310  19 8c 5d c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |..].. "OS_Sprite|
00004320  4f 70 22 2c 26 31 32 32  2c 73 70 61 72 65 61 32  |Op",&122,sparea2|
00004330  25 2c 22 64 69 73 63 62  67 22 2c 33 32 30 2c 33  |%,"discbg",320,3|
00004340  36 30 2c 30 3a c8 99 20  22 4f 53 5f 53 70 72 69  |60,0:.. "OS_Spri|
00004350  74 65 4f 70 22 2c 26 31  31 39 2c 73 70 61 72 65  |teOp",&119,spare|
00004360  61 32 25 2c 22 64 69 73  63 62 67 22 0d 19 96 1d  |a2%,"discbg"....|
00004370  c8 97 20 ee 20 32 3a c8  97 20 c8 93 20 30 2c 30  |.. . 2:.. .. 0,0|
00004380  2c 31 32 37 39 2c 39 36  30 0d 19 a0 07 f7 20 85  |,1279,960..... .|
00004390  0d 19 aa 05 e1 0d 19 b4  04 0d 19 be 1f dd f2 64  |...............d|
000043a0  69 73 6b 77 69 6e 64 6f  77 28 6c 69 6e 65 31 24  |iskwindow(line1$|
000043b0  2c 6c 69 6e 65 32 24 29  0d 19 c8 1d f2 62 6f 78  |,line2$).....box|
000043c0  28 33 32 30 2c 33 36 30  2c 36 30 30 2c 32 34 30  |(320,360,600,240|
000043d0  2c 30 2c 34 29 0d 19 d2  26 f2 77 6f 72 64 73 28  |,0,4)...&.words(|
000043e0  33 32 30 2c 35 32 30 2c  2d 31 2c 33 2c 2d 31 2c  |320,520,-1,3,-1,|
000043f0  36 30 30 2c 6c 69 6e 65  31 24 29 0d 19 dc 26 f2  |600,line1$)...&.|
00004400  77 6f 72 64 73 28 33 32  30 2c 34 36 30 2c 2d 31  |words(320,460,-1|
00004410  2c 33 2c 2d 31 2c 36 30  30 2c 6c 69 6e 65 32 24  |,3,-1,600,line2$|
00004420  29 0d 19 e6 3d f2 62 6f  78 28 38 30 30 2c 33 37  |)...=.box(800,37|
00004430  32 2c 31 30 38 2c 37 32  2c 30 2c 34 29 3a f2 77  |2,108,72,0,4):.w|
00004440  6f 72 64 73 28 38 30 30  2c 33 39 30 2c 2d 31 2c  |ords(800,390,-1,|
00004450  33 2c 2d 31 2c 31 30 38  2c 22 4f 4b 22 29 0d 19  |3,-1,108,"OK")..|
00004460  f0 48 f4 50 52 4f 43 62  6f 78 28 33 33 36 2c 33  |.H.PROCbox(336,3|
00004470  37 32 2c 32 34 30 2c 37  32 2c 30 2c 34 29 3a 50  |72,240,72,0,4):P|
00004480  52 4f 43 77 6f 72 64 73  28 33 33 36 2c 33 39 30  |ROCwords(336,390|
00004490  2c 2d 31 2c 33 2c 2d 31  2c 32 34 30 2c 22 43 61  |,-1,3,-1,240,"Ca|
000044a0  6e 63 65 6c 22 29 0d 19  fa 30 c8 97 20 c8 93 20  |ncel")...0.. .. |
000044b0  33 32 30 2c 33 36 30 2c  36 30 30 2c 39 30 3a c8  |320,360,600,90:.|
000044c0  97 20 ee 20 31 3a c8 99  22 4f 53 5f 42 79 74 65  |. . 1:.."OS_Byte|
000044d0  22 2c 32 31 2c 39 0d 1a  04 50 f5 3a c8 97 64 6d  |",21,9...P.:..dm|
000044e0  78 25 2c 64 6d 79 25 2c  64 6d 63 25 3a fd 28 64  |x%,dmy%,dmc%:.(d|
000044f0  6d 63 25 3d 34 29 80 28  64 6d 79 25 3e 3d 33 37  |mc%=4).(dmy%>=37|
00004500  30 29 80 28 64 6d 79 25  3c 3d 34 34 30 29 80 28  |0).(dmy%<=440).(|
00004510  64 6d 78 25 3e 3d 38 30  30 29 80 28 64 6d 78 25  |dmx%>=800).(dmx%|
00004520  3c 3d 39 31 30 29 0d 1a  0e 86 f4 52 45 50 45 41  |<=910).....REPEA|
00004530  54 3a 4d 4f 55 53 45 64  6d 78 25 2c 64 6d 79 25  |T:MOUSEdmx%,dmy%|
00004540  2c 64 6d 63 25 3a 55 4e  54 49 4c 28 64 6d 63 25  |,dmc%:UNTIL(dmc%|
00004550  3d 34 29 41 4e 44 28 64  6d 79 25 3e 3d 33 37 30  |=4)AND(dmy%>=370|
00004560  29 41 4e 44 28 64 6d 79  25 3c 3d 34 34 30 29 41  |)AND(dmy%<=440)A|
00004570  4e 44 28 28 28 64 6d 78  25 3e 3d 38 30 30 29 41  |ND(((dmx%>=800)A|
00004580  4e 44 28 64 6d 78 25 3c  3d 39 31 30 29 29 4f 52  |ND(dmx%<=910))OR|
00004590  28 28 64 6d 78 25 3e 3d  33 33 36 29 41 4e 44 28  |((dmx%>=336)AND(|
000045a0  64 6d 78 25 3c 3d 35 37  36 29 29 29 0d 1a 18 32  |dmx%<=576)))...2|
000045b0  f4 49 46 28 64 6d 78 25  3e 3d 38 30 30 29 41 4e  |.IF(dmx%>=800)AN|
000045c0  44 28 64 6d 78 25 3c 3d  39 31 30 29 3a 6f 6b 25  |D(dmx%<=910):ok%|
000045d0  3d 2d 31 3a 45 4c 53 45  3a 6f 6b 25 3d 30 0d 1a  |=-1:ELSE:ok%=0..|
000045e0  22 05 e1 0d 1a 2c 04 0d  1a 36 0e dd f2 70 72 65  |"....,...6...pre|
000045f0  5f 6c 69 6e 6b 0d 1a 40  13 4a 25 3d 53 25 3a 58  |_link..@.J%=S%:X|
00004600  25 3d b3 28 39 29 2d 31  0d 1a 4a 0d 49 25 3d b3  |%=.(9)-1..J.I%=.|
00004610  28 32 29 2d 31 0d 1a 54  05 e1 0d 1a 5e 04 0d 1a  |(2)-1..T....^...|
00004620  68 04 0d 1a 72 2d dd f2  77 6f 72 64 73 28 41 25  |h...r-..words(A%|
00004630  2c 42 25 2c 62 69 67 25  2c 45 25 2c 63 65 6e 74  |,B%,big%,E%,cent|
00004640  72 65 25 2c 6f 66 25 2c  77 6f 72 64 73 24 29 0d  |re%,of%,words$).|
00004650  1a 7c 27 e7 62 69 67 25  3a 43 25 3d 33 32 30 3a  |.|'.big%:C%=320:|
00004660  44 25 3d 33 36 30 3a 8b  3a 43 25 3d 32 34 30 3a  |D%=360:.:C%=240:|
00004670  44 25 3d 32 37 30 0d 1a  86 2f e7 63 65 6e 74 72  |D%=270.../.centr|
00004680  65 25 3a 41 25 2b 3d a8  28 28 6f 66 25 2d a4 73  |e%:A%+=.((of%-.s|
00004690  74 72 69 6e 67 73 69 7a  65 28 77 6f 72 64 73 24  |tringsize(words$|
000046a0  29 29 2f 32 29 0d 1a 90  42 e3 6c 65 74 74 25 3d  |))/2)...B.lett%=|
000046b0  31 b8 a9 28 77 6f 72 64  73 24 29 3a 3f 28 6c 65  |1..(words$):?(le|
000046c0  74 74 65 72 73 25 2b 28  6c 65 74 74 25 2d 31 29  |tters%+(lett%-1)|
000046d0  29 3d 97 28 c1 77 6f 72  64 73 24 2c 6c 65 74 74  |)=.(.words$,lett|
000046e0  25 2c 31 29 29 3a ed 0d  1a 9a 1d 3f 28 6c 65 74  |%,1)):.....?(let|
000046f0  74 65 72 73 25 2b a9 28  77 6f 72 64 73 24 29 29  |ters%+.(words$))|
00004700  3d 26 30 44 0d 1a a4 0c  d6 20 66 6f 6e 74 73 25  |=&0D..... fonts%|
00004710  0d 1a ae 05 e1 0d 1a b8  04 0d 1a c2 24 dd f2 62  |............$..b|
00004720  6f 78 28 78 25 2c 79 25  2c 73 78 25 2c 73 79 25  |ox(x%,y%,sx%,sy%|
00004730  2c 63 6f 6c 25 2c 6c 69  6e 65 77 25 29 0d 1a cc  |,col%,linew%)...|
00004740  33 ef 31 38 2c 30 2c 33  3a ef 32 35 2c 34 2c 78  |3.18,0,3:.25,4,x|
00004750  25 3b 79 25 3b 3a ef 32  35 2c 31 30 31 2c 78 25  |%;y%;:.25,101,x%|
00004760  2b 73 78 25 2d 32 3b 79  25 2b 73 79 25 2d 32 3b  |+sx%-2;y%+sy%-2;|
00004770  0d 1a d6 25 f2 63 6c 62  6f 78 28 78 25 2c 79 25  |...%.clbox(x%,y%|
00004780  2c 73 78 25 2c 73 79 25  2c 63 6f 6c 25 2c 6c 69  |,sx%,sy%,col%,li|
00004790  6e 65 77 25 29 0d 1a e0  05 e1 0d 1a ea 04 0d 1a  |new%)...........|
000047a0  f4 26 dd f2 63 6c 62 6f  78 28 78 25 2c 79 25 2c  |.&..clbox(x%,y%,|
000047b0  73 78 25 2c 73 79 25 2c  63 6f 6c 25 2c 6c 69 6e  |sx%,sy%,col%,lin|
000047c0  65 77 25 29 0d 1a fe 46  ef 31 38 2c 30 2c 63 6f  |ew%)...F.18,0,co|
000047d0  6c 25 3a ef 32 35 2c 34  2c 78 25 2b 6c 69 6e 65  |l%:.25,4,x%+line|
000047e0  77 25 3b 79 25 2b 34 3b  3a ef 32 35 2c 31 30 31  |w%;y%+4;:.25,101|
000047f0  2c 78 25 2b 73 78 25 2d  32 2d 6c 69 6e 65 77 25  |,x%+sx%-2-linew%|
00004800  3b 79 25 2b 73 79 25 2d  36 3b 0d 1b 08 05 e1 0d  |;y%+sy%-6;......|
00004810  1b 12 04 0d 1b 1c 14 dd  a4 73 74 72 69 6e 67 73  |.........strings|
00004820  69 7a 65 28 73 24 29 0d  1b 26 0d ea 20 77 69 64  |ize(s$)..&.. wid|
00004830  25 2c 68 25 0d 1b 30 38  c8 99 22 46 6f 6e 74 5f  |%,h%..08.."Font_|
00004840  46 69 6e 64 46 6f 6e 74  22 2c 2c 22 74 61 62 6c  |FindFont",,"tabl|
00004850  6f 69 64 2e 6d 65 64 69  75 6d 22 2c 33 32 30 2c  |oid.medium",320,|
00004860  33 36 30 2c 30 2c 30 20  b8 20 68 25 0d 1b 3a 0c  |360,0,0 . h%..:.|
00004870  24 62 6c 6b 25 3d 73 24  0d 1b 44 4c c8 99 22 46  |$blk%=s$..DL.."F|
00004880  6f 6e 74 5f 53 74 72 69  6e 67 57 69 64 74 68 22  |ont_StringWidth"|
00004890  2c 2c 62 6c 6b 25 2c 36  30 30 30 30 30 2c 34 38  |,,blk%,600000,48|
000048a0  30 30 30 2c 2d 31 2c 38  30 20 b8 20 72 30 25 2c  |000,-1,80 . r0%,|
000048b0  72 31 25 2c 77 69 64 25  2c 72 33 25 2c 72 34 25  |r1%,wid%,r3%,r4%|
000048c0  2c 72 35 25 0d 1b 4e 18  c8 99 22 46 6f 6e 74 5f  |,r5%..N..."Font_|
000048d0  4c 6f 73 65 46 6f 6e 74  22 2c 68 25 0d 1b 58 0d  |LoseFont",h%..X.|
000048e0  3d 77 69 64 25 2f 34 30  30 0d 1b 62 04 0d ff     |=wid%/400..b...|
000048ef