D�ADFS::HardDisc4.$.Crystal2.Finish1.DemoMag.!Crystal2.!RunImage


*FX220,27
*FX229,0
oldhimem%=�:�=&12B00
�sortmemory

�initwimp

�initvars
5� �readsysvar("Crystal2$EntryPt")="fromstartup" �
� � �alreadyrunning �
	�"Set Crystal2$isrunning 1"

�
X�error("Crystal Rainforest 2 is already running",0):ș "Wimp_CloseDown",,&4B534154:�
�

�initfromstartup
�
3ș "Wimp_SetMode",��readsysvar("Crystal2$Mode")

�setsound
�
�createwindows
�initwindows
�createbaricon
7� � �error(�$+" (Internal error code "+Þ+")"+�0,�)
� �pollloop:� quit%
"ș "Wimp_CloseDown",,&4B534154
�"Set Crystal2$isrunning 0"
	*QUIT
�
��sortmemory
indbase%=�:iptr%=indbase%
%totindsize%=4096:totwinsize%=5608
0winbase%=indbase%+totindsize%:wptr%=winbase%
lindstarts%=winbase%+totwinsize%:winstarts%=indstarts%+40:userwimpsprs%=winstarts%+40:wimpsprsize%=7*1024
 mc%=&16F00:pdbs%=&40000
!�
"��initwimp
#?ș "Wimp_Initialise",200,&4B534154,"Crystal2" � ,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%=29:� starts$(maxstarts%),contcomm$(15)
*4!inb%=4:inb%!4=5:inb%!8=11:inb%!12=12:inb%!16=-1
+� +0
,� Begin adventure
-� After juicy machine
.� After slide show
/� After finding Dr. Esme
0"� Before lifting the heavy box
1!� After lifting the heavy box
2#� Start hoverheli forest search
3� Continue forest search
4� Landing by South Temple
5"� Inside temple chemical store
6!� After temple chemical store
7 � Before clearing mine field
8� After clearing mine field
9� Inside north temple
:� Attack of the robot
;� After turning off robot
</� Landing at the middle temple with a laser
=� Poison animal cages
>%� After finding Professor Roberts
?� Building the bridge
@#� Before the wild river journey
A� After the river journey
B� The underground base
C#� After finding the secret cave
D*� At the back of the cave by the pipes
E#� Using the heat sensor program
F#� Before climbing into the pipe
G(� After Gomez's accident in the pipe
H� The ending
I#�j%=1�maxstarts%:�starts$(j%):�
J
start%=S%
Ksndmax%=15
L�getscreensize
M3a$=�converttolower(�readsysvar("Crystal2$Dir"))
N&�a$,"$.!crystal2")<>0:Y%=0:�:Y%=1
O�
P��getscreensize
Q&ș"OS_ReadVduVariables",inb%,outb%
RNxmaxec%=(((outb%!8)+1)<<(outb%!0))-1:ymaxec%=(((outb%!12)+1)<<(outb%!4))-1
S�
Tݤalreadyrunning
U� A%
V� �
W��:� �:=0
X?ș "OS_ReadVarVal","Crystal2$isrunning",blk%,256,0,0 � ,,a%
Y%a$="":�A%=0�a%-1:a$+=�(blk%?A%):�
Z� �
[�a$="1":=-1
\=0
]��initfromstartup
^� quit%=NOTFNpalset
_� j%
`start%=1
a2!userwimpsprs%=wimpsprsize%:userwimpsprs%!8=16
b'ș "OS_SpriteOp",&109,userwimpsprs%
c@ș "OS_SpriteOp",&10A,userwimpsprs%,"<Crystal2$Dir>.Sprites"
d&�"LOAD <Crystal2$Dir>.code "+�~mc%
e
winctr%=1
f6ș "Wimp_OpenTemplate",,"<Crystal2$Dir>.Templates"
gQ�load_template("proginfo"):�load_template("setup"):�load_template("messages")
h�savesound
i�
jݤiscgaonly
k)ș"OS_CheckModeValid",27 � reg0%;fla%
l&sc1%=(((fla%�%10)=%10)�(reg0%=-1))
m%a$=�readsysvar("Crystal2$OneMeg")
n"ca%=�:�cb%=0�20000:�:sp%=�-ca%
o�sc1%=� � a$="1" � sp%>8 �
p=�
q�
r=�
s�
tݤisvga
u!�isselected(setupw%,18)�:=-1
v=0
wݤisopen(w%)
x+!blk%=w%:ș "Wimp_GetWindowState",,blk%
y =((blk%!32)�(1<<16))=(1<<16)
z��savesound
{� A%
|`ș "Sound_ReadControlBlock",1,2 � ,,voice%:voice%=voice%�&FF:�"Set Crystal2$voice1 "+�voice%
}�ș "Sound_Configure",0,0,0 � A%,B%,C%:�"Set Crystal2$totchans "+�A%:�"Set Crystal2$sampsize "+�B%:�"Set Crystal2$sampper "+�C%
~5ș "Sound_Volume",0 � A%:�"Set Crystal2$vol "+�A%
�
���setsound
�5�"channelvoice 1 "+�readsysvar("Crystal2$voice1")
��A%=��readsysvar("Crystal2$totchans"):B%=��readsysvar("Crystal2$sampsize"):C%=��readsysvar("Crystal2$sampper"):ș "Sound_Configure",A%,B%,C%
�2ș "Sound_Volume",��readsysvar("Crystal2$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
�N� ��indirected(icnf%)���sprite(icnf%)��text(icnf%) �:icnf%=icnf%�&FFFF0FFF
�P� �indirected(icnf%)��sprite(icnf%)���text(icnf%) �:icnblk%!24=userwimpsprs%
�*� ��indirected(icnf%)��sprite(icnf%) �
�!sprn$=�readstring(icnblk%+20)
�,ș "XWimp_SpriteOp",40,,sprn$ � ,,,w%,h%
���(w%�h%)=0:icnf%=icnf%�256:$iptr%=sprn$:?(iptr%+(�sprn$))=0:icnblk%!20=iptr%:icnblk%!24=userwimpsprs%:icnblk%!28=�sprn$:iptr%+=�(sprn$)+1
��
�B�(winname$="setup")�((j%=(16*32))�(j%=(19*32))�(j%=(20*32))) �
�3�iscgaonly �:icnf%=(icnf%�&F0FFFFFF)�&03000000
��
�icnblk%!16=icnf%
��
�(wptr%+=88+((wptr%!84)*32):winctr%+=1
��
�ݤindirected(f%)
�=((f%�256)=256)
�ݤsprite(f%)
�=((f%�2)=2)
�ݤtext(f%)
�=((f%�1)=1)
���createwindows
�1ș "Wimp_CreateWindow",,winstarts%!0 � infow%
�2ș "Wimp_CreateWindow",,winstarts%!4 � setupw%
�1ș "Wimp_CreateWindow",,winstarts%!8 � messw%
�ș "Wimp_CloseTemplate"
��
���initwindows
�� j%
�A�puticnstring(setupw%,3,�readsysvar("Crystal2$SaveGamePath"))
�?volume%=��readsysvar("Crystal2$Volume"):�setvolume(volume%)
�5f%=��readsysvar("Crystal2$Diff"):�settaskdiff(f%)
�� �iscgaonly �
�5�selecticn(setupw%,17,�):�selecticn(setupw%,18,�)
�'�j%=17�18:�shadeicn(setupw%,j%,�):�
��
�0f%=��readsysvar("Crystal2$Vga"):�setmode(f%)
��
��setstart(0)
�B�Y%=0:�hidesaveareabit:�:�hideicn(setupw%,36,�):�createsavedir
�5� �readsysvar("Crystal2$EntryPt")="fromstartup" �
��j%=0�15
�?�"Set Crystal2$comm"+�(j%)+" "+�geticnstring(setupw%,41+j%)
�C�"Set Crystal2$usercomm"+�(j%)+" "+�geticnstring(setupw%,41+j%)
��
��
�9f%=��readsysvar("Crystal2$contcomm"):�setcontcomm(f%)
��isselected(setupw%,40)�
�T�j%=0�15:�"Set Crystal2$usercomm"+�(j%)+" "+�readsysvar("Crystal2$comm"+�(j%)):�
��
�R�j%=0�15:�puticnstring(setupw%,57+j%,�readsysvar("Crystal2$usercomm"+�(j%))):�
��isselected(setupw%,40)�
�(�j%=0�15:�hideicn(setupw%,73+j%,�):�
�(�j%=0�15:�fadeicn(setupw%,41+j%,�):�
��
�(�j%=0�15:�hideicn(setupw%,73+j%,�):�
�(�j%=0�15:�fadeicn(setupw%,41+j%,�):�
��
�2prelink_flag%=��readsysvar("Crystal2$PreLink")
��
���initcontcomm
�N�j%=0�15:�puticnstring(setupw%,57+j%,�readsysvar("Crystal2$comm"+�(j%))):�
��
���createsavedir
�"a$=�readsysvar("Crystal2$Dir")
�&� (Y%=1)�(�filetype(a$+".sa")=1) �
�ș "XOS_File",6,a$+".sa"
�*�setsavedir(�a$,�(a$)-9)+"Cryst2Save")
��
�5� �readsysvar("Crystal2$EntryPt")="fromstartup" �
�7�puticnstring(setupw%,34,�a$,�(a$)-9)+"Cryst2Save")
��
�:�puticnstring(setupw%,34,�readsysvar("Crystal2$Save"))
��
��
��
���checkarm3
�H%!&DC=0
�	t1%=�
��k%=0�20000:�
�	t2%=�
��(t2%-t1%)<15:H%!&DC=1
��
���setstart(chgstart%)
�newstart%=start%+chgstart%
�,�(newstart%>0)�(newstart%<=maxstarts%) �
�>�newstart%<>start%:prelink_flag%=1:*Set Crystal2$PreLink 1
�start%=newstart%
�-�puticnstring(setupw%,27,starts$(start%))
�Z�start%-1=0:�puticnstring(setupw%,26,""):�:�puticnstring(setupw%,26,starts$(start%-1))
�c�start%+1>maxstarts%:�puticnstring(setupw%,28,""):�:�puticnstring(setupw%,28,starts$(start%+1))
��
��
���setvolume(vol%)
��i%=0�3
�D�i%=vol%:�selecticn(setupw%,7+i%,�):�:�selecticn(setupw%,7+i%,�)
��
��
���puticnstring(w%,i%,a$)
�3!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%)
�9!blk%=a%:blk%!4=-1:ș "OS_ReadVduVariables",blk%,blk%
�
=!blk%
���geticonstate(w%,i%)

3!blk%=w%:blk%!4=i%:ș "Wimp_GetIconState",,blk%


�

ݤ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$

2ݤleaf(f$) I%=�f$:ȕI%>1��f$,I%,1)<>"."I%-=1:�

�f$,I%,1)="."I%+=1

=�f$,I%)

��setsavedir(dir$)

"�puticnstring(setupw%,34,dir$)

!ș "Wimp_SetCaretPosition",-1

�"CDIR "+dir$

�

��setsavedirfromOK

!ș "Wimp_SetCaretPosition",-1

� �

e��:� �:�error("Invalid path and/or directory name. Creation of new save directory aborted.",0):�

&�"CDIR "+�geticnstring(setupw%,34)

� �

�

��settaskdiff(f%)

 �i%=0�1

!D�i%=f%:�selecticn(setupw%,13+i%,�):�:�selecticn(setupw%,13+i%,�)

"�

#�

$��setmode(f%)

%�i%=0�1

&D�i%=f%:�selecticn(setupw%,17+i%,�):�:�selecticn(setupw%,17+i%,�)

'�

(�

)��setcontcomm(f%)

*�i%=0�1

+D�i%=f%:�selecticn(setupw%,39+i%,�):�:�selecticn(setupw%,39+i%,�)

,�

-�

.��selecticn(w%,i%,f%)

/F!blk%=w%:blk%!4=i%:blk%!12=(1<<21):�f%=0 blk%!8=0:� blk%!8=blk%!12

0 ș "Wimp_SetIconState",,blk%

1�

2��shadeicn(w%,i%,f%)

3$!blk%=w%:blk%!4=i%:blk%!12=1<<22

4�f% blk%!8=1<<22:�:blk%!8=0

5 ș "Wimp_SetIconState",,blk%

6�

7��fadeicn(w%,i%,f%)

8� j%

9� j%=24�27

:$!blk%=w%:blk%!4=i%:blk%!12=1<<j%

;	�f% �

<#�j%<=25:blk%!8=1<<j%:�:blk%!8=0

=�

>#�j%<=26:blk%!8=1<<j%:�:blk%!8=0

?�

@ ș "Wimp_SetIconState",,blk%

A�

B�

C��hideicn(w%,i%,f%)

D$!blk%=w%:blk%!4=i%:blk%!12=1<<23

E�f% blk%!8=1<<23:�:blk%!8=0

F ș "Wimp_SetIconState",,blk%

G�

H��hidesaveareabit

I&�j%=29�35:�hideicn(setupw%,j%,�):�

J�

K��createbaricon

L$baricn%="iconbar"

M4!blk%=-1:blk%!4=0:blk%!8=0:blk%!12=62:blk%!16=72

NMblk%!20=&1000313A:blk%!24=baricn%:blk%!28=userwimpsprs%:blk%!32=�$baricn%

Oș "Wimp_CreateIcon",,blk%

P�

Q��pollloop

R(ș "Wimp_Poll",%110001,blk% � event%

SȎ event% �

T� 1: �redraw

U� 2: �openwind(blk%)

V� 3: �closewind(blk%)

W'� 6: �click(blk%!8,blk%!12,blk%!16)

X� 7: �sendsavedatamess

Y� 8: �keyevent

Z� 9: �menuclick

[� 17,18: �receive

\�

]�

^��redraw

_(ș "Wimp_RedrawWindow",,blk% � more%

`ȕ more%

a)ș "Wimp_GetRectangle",,blk% � more%:

b�

c�

d��openwind(b%)

eș "Wimp_OpenWindow",,b%

f�

g��closewind(b%)

hș "Wimp_CloseWindow",,b%

i�

j��click(but%,win%,icn%)

k
Ȏ win% �

l	� -2:

m
Ȏ but% �

n6� 2: �mainmenu("Crystal2","Info,7Quit,",!blk%,196)

o� 4: �startgame

p�

q&� setupw%: �setupwclick(but%,icn%)

r�

s�

t'��mainmenu(title$,menuitems$,x%,y%)

u"�definemenu(title$,menuitems$)

v�linksubmenu(1,infow%)

w2ș "Wimp_CreateMenu",,menu%,x%-(menu%!16/2),y%

xcurrmenu%=-1

y�

z#��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$,",")

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

��:morecodes%=�

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

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

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

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

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

�Q�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%

��b%=2:�

�Ȏ i% �

�R� 2: �b%=64 �startdrag(setupw%,i%,�leaf(�geticnstring(setupw%,3))):dragging%=1

�-� 4: �savesetup(�geticnstring(setupw%,3))

�=� 17,19:�selecticn(setupw%,17,�):�selecticn(setupw%,18,�)

�=� 18,20:�selecticn(setupw%,18,�):�selecticn(setupw%,17,�)

�3� 24: �b%=4:�setstart(-1):�:�b%=1:�setstart(+1)

�3� 25: �b%=4:�setstart(+1):�:�b%=1:�setstart(-1)

��� 32: �error("Drop a directory icon here to change the 'saved screen' directory (alternatively drag out the directory icon given)",0)

�6� 33: �b%=64 �startdrag(setupw%,i%,""):dragging%=2

�� 35: �setsavedirfromOK

�%� 39,40:�isselected(setupw%,40)�

�(�j%=0�15:�hideicn(setupw%,73+j%,�):�

�(�j%=0�15:�fadeicn(setupw%,41+j%,�):�

�Mș "Wimp_SetCaretPosition",setupw%,60,0,0,-1,�(�geticnstring(setupw%,60))

��

�(�j%=0�15:�hideicn(setupw%,73+j%,�):�

�(�j%=0�15:�fadeicn(setupw%,41+j%,�):�

�!ș "Wimp_SetCaretPosition",-1

��

��

��

���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)

��

���startdrag(w%,i%,n$)

�proposedfname$=n$

�3!blk%=w%:blk%!4=i%:ș "Wimp_GetIconState",,blk%

�?�wintoscrn(blk%):blk%!8-=4:blk%!12-=4:blk%!16+=4:blk%!20+=4

�Rblk%!4=5:blk%!24=0:blk%!28=0:blk%!32=2000:blk%!36=2000:ș "Wimp_DragBox",,blk%

��

���error(msg$,errno%)

�!!errblk%=99:$(errblk%+4)=msg$

�.ș "Wimp_ReportError",errblk%,0,"Crystal2"

��

���sendsavedatamess

�Kș "Wimp_GetPointerInfo",,blk%:x%=!blk%:y%=blk%!4:w%=blk%!12:i%=blk%!16

��!blk%=56:blk%!12=0:blk%!16=1:blk%!20=w%:blk%!24=i%:blk%!28=x%:blk%!32=y%:blk%!36=1200:blk%!40=&FFF:$(blk%+44)=proposedfname$+�0

�2ș "Wimp_SendMessage",17,blk%,w%:myref%=blk%!8

��

���keyevent

�2�!blk%<>setupw%:ș "Wimp_ProcessKey",blk%!24:�

�2�((blk%!24)=13)�(((blk%!4)=3)�((blk%!4)=34)) �

�Ȏ blk%!4 �

�-� 3: �savesetup(�geticnstring(setupw%,3))

�� 34: �setsavedirfromOK

��

��

�  �(blk%!24)=&18F �

�    Ȏ (blk%!4) �

�h      � 62:ș "Wimp_SetCaretPosition",setupw%,(blk%!4)-2,0,0,-1,�(�geticnstring(setupw%,(blk%!4)-2))

�q      � 63,64,65,66:ș "Wimp_SetCaretPosition",setupw%,(blk%!4)-1,0,0,-1,�(�geticnstring(setupw%,(blk%!4)-1))

�h      � 72:ș "Wimp_SetCaretPosition",setupw%,(blk%!4)-6,0,0,-1,�(�geticnstring(setupw%,(blk%!4)-6))

�	    �

�  �

�&  �(blk%!24)=&18E � (blk%!24)=13 �

�    Ȏ (blk%!4) �

�h      � 60:ș "Wimp_SetCaretPosition",setupw%,(blk%!4)+2,0,0,-1,�(�geticnstring(setupw%,(blk%!4)+2))

�q      � 62,63,64,65:ș "Wimp_SetCaretPosition",setupw%,(blk%!4)+1,0,0,-1,�(�geticnstring(setupw%,(blk%!4)+1))

�h      � 66:ș "Wimp_SetCaretPosition",setupw%,(blk%!4)+6,0,0,-1,�(�geticnstring(setupw%,(blk%!4)+6))

�	    �

�  �

�! ș "Wimp_ProcessKey",blk%!24

��

��

�

���menuclick

�#ș "Wimp_GetPointerInfo",,blk2%

�currmenubut%=blk2%!8

�Ȏ currmenu% �

�	� -1:

�Ȏ !blk% �

�� 0: �checkadjust

�� 1: quit%=�

��

��

��

���checkadjust

�7�currmenubut%=1:ș "Wimp_CreateMenu",,menu%,100,100

��

�
��receive

�Ȏ blk%!16 �

�� 0: quit%=�

�6� 2: �dragging%=1:�savesetup(�readstring(blk%+44))

��dragging%=2 �

�Z�leaf(�geticnstring(setupw%,34))="":�error("You must give this directory a name",1):�

�F�setsavedir(�readstring(blk%+44)+�leaf(�geticnstring(setupw%,34)))

��

�A� 3: �j%=0�!blk%�4:blk2%!j%=blk%!j%:�:a$=�readstring(blk%+44)

��blk%!24=32 �

�@�filetype(a$)<>2�error("Only directories allowed here",1):�

��setsavedir(a$)

��

�/�load_file(�readstring(blk%+44),blk%!40) �

�Ablk2%!12=1:blk2%!16=4:ș "Wimp_SendMessage",19,blk2%,blk2%!20

��

��

��

��

�ݤfindmode
� �iscgaonly �:=0

�isselected(setupw%,17):=0
=1
ݤfindtaskdiff
�isselected(setupw%,13):=0
�isselected(setupw%,14):=1
=2
ݤfindvolume
�isselected(setupw%,7):=0
	�isselected(setupw%,8):=1

�isselected(setupw%,9):=2
=3
ݤfindcontcomm

�isselected(setupw%,39):=0
=1
ݤcheckfont(a$,A%,B%)
� �
� � �:=0
)ș "Font_FindFont",,a$,A%,B%,0,0 � h%
ș "Font_LoseFont",h%:� �
=�
��startgame
8ș "Font_ReadFontMax" � fm%,fm1%,fm2%,fm3%,fm4%,fm5%
C�fm2%<57600 ș "Font_SetFontMax",fm%,fm1%,57600,57600,fm4%,fm5%
5ș "OS_Byte",135 � ,,a%:�"Set Crystal2$Mode "+�a%
3�"Set Crystal2$Save "+�geticnstring(setupw%,34)
*�"Set Crystal2$Volume "+�(�findvolume)
volume%=�findvolume
.�"Set Crystal2$contcomm "+�(�findcontcomm)
"*Set Crftwo$dir <Crystal2$Dir>

S%=start%
M%=maxstarts%
 
H%=mc%
!	K%=H%
"4L%=1+�findtaskdiff:�"Set Crystal2$Diff "+�(L%-1)
#N�j%=0�15:�"Set Crystal2$usercomm"+�(j%)+" "+�geticnstring(setupw%,57+j%):�
$�isselected(setupw%,40)�
%T�j%=0�15:�"Set Crystal2$comm"+�(j%)+" "+�readsysvar("Crystal2$usercomm"+�(j%)):�
&�
'J�j%=0�15:�"Set Crystal2$comm"+�(j%)+" "+�geticnstring(setupw%,41+j%):�
(�
)Y�checkfont("Tabloid.medium",320,360)=� �error("Font:'Tabloid.Medium' not found",0):�
*� �iscgaonly �
+pV%=0:ș "Wimp_SetMode",15:�(�readvduvar(150)/1024)<160 �error("Not enough memory to change screen mode",1):�
,�
-� �isvga �
.�"Set Crystal2$Vga 1"
/pV%=1:ș "Wimp_SetMode",28:�(�readvduvar(150)/1024)<300 �error("Not enough memory to change screen mode",1):�
0�
1�"Set Crystal2$Vga 0"
2pV%=0:ș "Wimp_SetMode",15:�(�readvduvar(150)/1024)<160 �error("Not enough memory to change screen mode",1):�
3�
4�
5"ș "Wimp_CloseDown",,&4B534154
6�savesound
7 ș "Sound_Configure",2,0,100
8Ȏ volume% �
9� 0:ș "Sound_Volume",1
:2� 1,2,3:ș "Sound_Volume",127-(16*(3-volume%))
;�
<�=oldhimem%
=� �iscgaonly �
>�12
?�
@�isvga:�27:�:�12
A�
B/� scale% 16,swap%(20,2),input_disk_name% 32
Cvga%=V%
D�pull_variables
E#a$=�readsysvar("Crftwo$OneMeg")
FU%=�(a$)
G&a$=�readsysvar("Crystal2$EntryPt")
H"�a$,"fromstartup"):�get_fonts
I�initialise_sprite_area
J�palette
K�vga%=0:�top_blank
Lș "OS_RemoveCursors"
M&a$=�readsysvar("Crystal2$EntryPt")
N$�"Set Crystal2$EntryPt fromprog"
O�prelink_flag%=1 :�prelink
P(�prelink_flag%=1 :*set Vic$PreLink 0
Q	�link
R�
S
��prelink
T	M%=S%
U�
V��initialise_sprite_area
W
kay%=1024
X\� IF V%=0 !sprite_area1%=160*kay%:sprite_area1%!8=16:SYS"OS_SpriteOp",&109,sprite_area1%
YR !sprite_area1%=230*kay%:sprite_area1%!8=16:ș"OS_SpriteOp",&109,sprite_area1%
Z[� IF V%=0 !sprite_area2%=70*kay%:sprite_area2%!8=16:SYS"OS_SpriteOp",&109,sprite_area2%
[R !sprite_area2%=100*kay%:sprite_area2%!8=16:ș"OS_SpriteOp",&109,sprite_area2%
\�
]��pull_variables
^draw%=!(K%+&80)
_save_screen%=!(K%+&84)
`save_vga_screen%=!(K%+&88)
ascreen_start%=!(K%+&8C)
bsprite_area1%=K%+1024*5
c2� IF V%=0 sprite_area2%=sprite_area1%+1024*160
d) sprite_area2%=sprite_area1%+1024*230
e-� IF V%=0 picture1%=sprite_area2%+1024*70
f% picture1%=sprite_area2%+1024*100
gpicture2%=picture1%+1024*48
hpage%=picture2%+1024*17
i�
jݤfind_screen(scr%)
k!input%=scr%
l!(input%+4)=-1
m+ș "OS_ReadVduVariables",input%,output%
n
=!output%
o��get_fonts
p*FX112,2
qS�pri(0,500,1,"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ.,'!?-:()+=")
r*FX112,1
s�
t��pri(x%,y%,si%,a$)
u:ș"Font_FindFont",,"TABLOID.MEDIUM",320,360,0,0 � han%
v#ș"Font_SetFontColours",0,0,1,2
w�0,0,0,0,0,0,0,0
xș"Font_Paint",,a$,16,x%,y%
yș"Font_LoseFont",han%
z�
{��clear_screen
|#�24,0;0;1278;956;18,0,128,16,26
}�
~��top_blank
&�24,0;960;1278;1022;18,0,131,16,26
��
�5��plot_sprite_scaled(x%,y%,xm%,ym%,xd%,yd%,name$)
�!(scale%+0)=xm%
�!(scale%+4)=ym%+V%
�!(scale%+8)=xd%
�!(scale%+12)=yd%
�=ș"OS_SpriteOp",&134,sprite_area1%,name$,x%,y%,0,scale%,0
��
�
��palette
��19,1,24,136,136,136
��p%,r%,g%,b%
��+5
��p%=0�15
��r%,g%,b%:�p%,r%,g%,b%
��
��19,1,24,0,0,0;0;
��
�/� 255,255,255,187,187,187,119,119,119,0,0,0
�+� 102,102,102,0,187,255,0,0,221,0,0,121
�+� 153,119,0,255,255,0,255,136,0,204,0,0
�'� 136,102,0,0,204,0,0,153,0,0,119,0
���pause(t%)
�time%=�
��:�time%+t%<�:�
�
��link
��chain("Pt0.Link"):�
��
���chain(file$)
�>�file$="Pt0.Link":dname$="Zero":path$="$.!Crystal2."+file$
�F�Y%=0 test%=0:�:�floppy_disk(dname$,path$,"$.!Crystal2"):�error%=0
�(file$="<Crystal2$dir>."+file$:*FX229
�
*FX220,27
��IF V%=0 memtop%=&62700
�� V%=0 memtop%=&7B700
�� V%=1 memtop%=&7B700
�A%=memtop%:�=A%:�file$
��
�$��floppy_disk(dname$,path$,set$)
�Bș "OS_SpriteOp",&110,sprite_area1%,"loadsc",0,400,436,880,636
��
����:� �:ș "OS_SpriteOp",&134,sprite_area1%,"loadsc",400,436,0:ș "OS_SpriteOp",&119,sprite_area1%,"loadsc":error%=1:test%=1:�
��
�error%=0
��test%=1 �
�E�24,400;436;880;636;18,0,131,16,24,404;440;876;632;18,0,128,16,26
�ȗ �
�"�pri(430,572,1,"Please place")
�"�pri(430,518,1,"disk "+dname$)
�okx%=760:oky%=456
�E�0,3:�25,4,okx%;oky%;25,1,100;0;25,1,0;56;25,1,-100;0;25,1,0;-56;
�)�0,0:�25,4,okx%+2;oky%+4;25,97,96;48;
�.�pri(430,464,1,"in drive 0            OK")
�ȗ�
�M�:ȗmx%,my%,mc%:�mc%=4 � mx%>okx% � mx%<okx%+100 � my%>oky% � my%<oky%+58
��
�	*ADFS
�*MOUNT 0
�%�dname$="Zero":dlabelname$="Zero"
�#ș"OS_GBPB",5,,input_disk_name%
�'len_d_n%=?input_disk_name%:name$=""
��dn%=1�len_d_n%
�F�?(input_disk_name%+dn%)>31:name$=name$+�(?(input_disk_name%+dn%))
��
�:ș "OS_SpriteOp",&122,sprite_area1%,"loadsc",400,436,0
�!�name$<>dlabelname$�:error%=1
�test%=1
��"SET Crystal2$dir "+set$
� ș "XOS_Find",&40,path$ � h%
��h%�(error%=0):�#h%
�:ș "OS_SpriteOp",&122,sprite_area1%,"loadsc",400,436,0
�0ș "OS_SpriteOp",&119,sprite_area1%,"loadsc"
�� �
��
�

00000000  0d 00 00 44 f4 ff 41 44  46 53 3a 3a 48 61 72 64  |...D..ADFS::Hard|
00000010  44 69 73 63 34 2e 24 2e  43 72 79 73 74 61 6c 32  |Disc4.$.Crystal2|
00000020  2e 46 69 6e 69 73 68 31  2e 44 65 6d 6f 4d 61 67  |.Finish1.DemoMag|
00000030  2e 21 43 72 79 73 74 61  6c 32 2e 21 52 75 6e 49  |.!Crystal2.!RunI|
00000040  6d 61 67 65 0d 00 01 0d  2a 46 58 32 32 30 2c 32  |mage....*FX220,2|
00000050  37 0d 00 02 0c 2a 46 58  32 32 39 2c 30 0d 00 03  |7....*FX229,0...|
00000060  18 6f 6c 64 68 69 6d 65  6d 25 3d 93 3a d3 3d 26  |.oldhimem%=.:.=&|
00000070  31 32 42 30 30 0d 00 04  0f f2 73 6f 72 74 6d 65  |12B00.....sortme|
00000080  6d 6f 72 79 0d 00 05 0d  f2 69 6e 69 74 77 69 6d  |mory.....initwim|
00000090  70 0d 00 06 0d f2 69 6e  69 74 76 61 72 73 0d 00  |p.....initvars..|
000000a0  07 35 e7 20 a4 72 65 61  64 73 79 73 76 61 72 28  |.5. .readsysvar(|
000000b0  22 43 72 79 73 74 61 6c  32 24 45 6e 74 72 79 50  |"Crystal2$EntryP|
000000c0  74 22 29 3d 22 66 72 6f  6d 73 74 61 72 74 75 70  |t")="fromstartup|
000000d0  22 20 8c 0d 00 08 19 e7  20 ac 20 a4 61 6c 72 65  |" ...... . .alre|
000000e0  61 64 79 72 75 6e 6e 69  6e 67 20 8c 0d 00 09 1f  |adyrunning .....|
000000f0  ff 22 53 65 74 20 43 72  79 73 74 61 6c 32 24 69  |."Set Crystal2$i|
00000100  73 72 75 6e 6e 69 6e 67  20 31 22 0d 00 0a 05 cc  |srunning 1".....|
00000110  0d 00 0b 58 f2 65 72 72  6f 72 28 22 43 72 79 73  |...X.error("Crys|
00000120  74 61 6c 20 52 61 69 6e  66 6f 72 65 73 74 20 32  |tal Rainforest 2|
00000130  20 69 73 20 61 6c 72 65  61 64 79 20 72 75 6e 6e  | is already runn|
00000140  69 6e 67 22 2c 30 29 3a  c8 99 20 22 57 69 6d 70  |ing",0):.. "Wimp|
00000150  5f 43 6c 6f 73 65 44 6f  77 6e 22 2c 2c 26 34 42  |_CloseDown",,&4B|
00000160  35 33 34 31 35 34 3a e0  0d 00 0c 05 cd 0d 00 0d  |534154:.........|
00000170  14 f2 69 6e 69 74 66 72  6f 6d 73 74 61 72 74 75  |..initfromstartu|
00000180  70 0d 00 0e 05 cc 0d 00  0f 33 c8 99 20 22 57 69  |p........3.. "Wi|
00000190  6d 70 5f 53 65 74 4d 6f  64 65 22 2c bb a4 72 65  |mp_SetMode",..re|
000001a0  61 64 73 79 73 76 61 72  28 22 43 72 79 73 74 61  |adsysvar("Crysta|
000001b0  6c 32 24 4d 6f 64 65 22  29 0d 00 10 0d f2 73 65  |l2$Mode").....se|
000001c0  74 73 6f 75 6e 64 0d 00  11 05 cd 0d 00 12 12 f2  |tsound..........|
000001d0  63 72 65 61 74 65 77 69  6e 64 6f 77 73 0d 00 13  |createwindows...|
000001e0  10 f2 69 6e 69 74 77 69  6e 64 6f 77 73 0d 00 14  |..initwindows...|
000001f0  12 f2 63 72 65 61 74 65  62 61 72 69 63 6f 6e 0d  |..createbaricon.|
00000200  00 15 37 ee 20 85 20 f2  65 72 72 6f 72 28 f6 24  |..7. . .error(.$|
00000210  2b 22 20 28 49 6e 74 65  72 6e 61 6c 20 65 72 72  |+" (Internal err|
00000220  6f 72 20 63 6f 64 65 20  22 2b c3 9e 2b 22 29 22  |or code "+..+")"|
00000230  2b bd 30 2c 9f 29 0d 00  16 17 f5 20 f2 70 6f 6c  |+.0,.)..... .pol|
00000240  6c 6c 6f 6f 70 3a fd 20  71 75 69 74 25 0d 00 17  |lloop:. quit%...|
00000250  22 c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 44  |".. "Wimp_CloseD|
00000260  6f 77 6e 22 2c 2c 26 34  42 35 33 34 31 35 34 0d  |own",,&4B534154.|
00000270  00 18 1f ff 22 53 65 74  20 43 72 79 73 74 61 6c  |...."Set Crystal|
00000280  32 24 69 73 72 75 6e 6e  69 6e 67 20 30 22 0d 00  |2$isrunning 0"..|
00000290  19 09 2a 51 55 49 54 0d  00 1a 05 e0 0d 00 1b 10  |..*QUIT.........|
000002a0  dd f2 73 6f 72 74 6d 65  6d 6f 72 79 0d 00 1c 1d  |..sortmemory....|
000002b0  69 6e 64 62 61 73 65 25  3d 93 3a 69 70 74 72 25  |indbase%=.:iptr%|
000002c0  3d 69 6e 64 62 61 73 65  25 0d 00 1d 25 74 6f 74  |=indbase%...%tot|
000002d0  69 6e 64 73 69 7a 65 25  3d 34 30 39 36 3a 74 6f  |indsize%=4096:to|
000002e0  74 77 69 6e 73 69 7a 65  25 3d 35 36 30 38 0d 00  |twinsize%=5608..|
000002f0  1e 30 77 69 6e 62 61 73  65 25 3d 69 6e 64 62 61  |.0winbase%=indba|
00000300  73 65 25 2b 74 6f 74 69  6e 64 73 69 7a 65 25 3a  |se%+totindsize%:|
00000310  77 70 74 72 25 3d 77 69  6e 62 61 73 65 25 0d 00  |wptr%=winbase%..|
00000320  1f 6c 69 6e 64 73 74 61  72 74 73 25 3d 77 69 6e  |.lindstarts%=win|
00000330  62 61 73 65 25 2b 74 6f  74 77 69 6e 73 69 7a 65  |base%+totwinsize|
00000340  25 3a 77 69 6e 73 74 61  72 74 73 25 3d 69 6e 64  |%:winstarts%=ind|
00000350  73 74 61 72 74 73 25 2b  34 30 3a 75 73 65 72 77  |starts%+40:userw|
00000360  69 6d 70 73 70 72 73 25  3d 77 69 6e 73 74 61 72  |impsprs%=winstar|
00000370  74 73 25 2b 34 30 3a 77  69 6d 70 73 70 72 73 69  |ts%+40:wimpsprsi|
00000380  7a 65 25 3d 37 2a 31 30  32 34 0d 00 20 1b 6d 63  |ze%=7*1024.. .mc|
00000390  25 3d 26 31 36 46 30 30  3a 70 64 62 73 25 3d 26  |%=&16F00:pdbs%=&|
000003a0  34 30 30 30 30 0d 00 21  05 e1 0d 00 22 0e dd f2  |40000..!...."...|
000003b0  69 6e 69 74 77 69 6d 70  0d 00 23 3f c8 99 20 22  |initwimp..#?.. "|
000003c0  57 69 6d 70 5f 49 6e 69  74 69 61 6c 69 73 65 22  |Wimp_Initialise"|
000003d0  2c 32 30 30 2c 26 34 42  35 33 34 31 35 34 2c 22  |,200,&4B534154,"|
000003e0  43 72 79 73 74 61 6c 32  22 20 b8 20 2c 74 61 73  |Crystal2" . ,tas|
000003f0  6b 68 61 6e 64 6c 25 0d  00 24 57 ee 85 20 f2 65  |khandl%..$W.. .e|
00000400  72 72 6f 72 28 f6 24 2b  22 20 28 49 6e 74 65 72  |rror(.$+" (Inter|
00000410  6e 61 6c 20 65 72 72 6f  72 20 63 6f 64 65 20 22  |nal error code "|
00000420  2b c3 9e 2b 22 29 22 2b  bd 30 2c 9f 29 3a c8 99  |+..+")"+.0,.):..|
00000430  20 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  | "Wimp_CloseDown|
00000440  22 2c 2c 26 34 42 35 33  34 31 35 34 3a e0 0d 00  |",,&4B534154:...|
00000450  25 05 e1 0d 00 26 0e dd  f2 69 6e 69 74 76 61 72  |%....&...initvar|
00000460  73 0d 00 27 65 de 20 62  6c 6b 25 20 32 35 36 2c  |s..'e. blk% 256,|
00000470  65 72 72 62 6c 6b 25 20  32 30 30 2c 6d 65 6e 75  |errblk% 200,menu|
00000480  25 20 31 30 32 34 2c 62  6c 6b 32 25 20 32 35 36  |% 1024,blk2% 256|
00000490  2c 70 64 62 62 75 66 66  25 20 32 35 36 2c 70 61  |,pdbbuff% 256,pa|
000004a0  6c 63 6f 64 65 25 20 39  30 30 2c 62 61 72 69 63  |lcode% 900,baric|
000004b0  6e 25 20 31 32 2c 69 6e  62 25 20 32 30 2c 6f 75  |n% 12,inb% 20,ou|
000004c0  74 62 25 20 32 30 0d 00  28 20 41 25 3d 69 6e 64  |tb% 20..( A%=ind|
000004d0  62 61 73 65 25 3a 42 25  3d 69 6e 64 62 61 73 65  |base%:B%=indbase|
000004e0  25 2b 31 30 32 34 0d 00  29 3d 71 75 69 74 25 3d  |%+1024..)=quit%=|
000004f0  a3 3a 6d 61 78 73 74 61  72 74 73 25 3d 32 39 3a  |.:maxstarts%=29:|
00000500  de 20 73 74 61 72 74 73  24 28 6d 61 78 73 74 61  |. starts$(maxsta|
00000510  72 74 73 25 29 2c 63 6f  6e 74 63 6f 6d 6d 24 28  |rts%),contcomm$(|
00000520  31 35 29 0d 00 2a 34 21  69 6e 62 25 3d 34 3a 69  |15)..*4!inb%=4:i|
00000530  6e 62 25 21 34 3d 35 3a  69 6e 62 25 21 38 3d 31  |nb%!4=5:inb%!8=1|
00000540  31 3a 69 6e 62 25 21 31  32 3d 31 32 3a 69 6e 62  |1:inb%!12=12:inb|
00000550  25 21 31 36 3d 2d 31 0d  00 2b 08 f7 20 2b 30 0d  |%!16=-1..+.. +0.|
00000560  00 2c 15 dc 20 42 65 67  69 6e 20 61 64 76 65 6e  |.,.. Begin adven|
00000570  74 75 72 65 0d 00 2d 19  dc 20 41 66 74 65 72 20  |ture..-.. After |
00000580  6a 75 69 63 79 20 6d 61  63 68 69 6e 65 0d 00 2e  |juicy machine...|
00000590  16 dc 20 41 66 74 65 72  20 73 6c 69 64 65 20 73  |.. After slide s|
000005a0  68 6f 77 0d 00 2f 1c dc  20 41 66 74 65 72 20 66  |how../.. After f|
000005b0  69 6e 64 69 6e 67 20 44  72 2e 20 45 73 6d 65 0d  |inding Dr. Esme.|
000005c0  00 30 22 dc 20 42 65 66  6f 72 65 20 6c 69 66 74  |.0". Before lift|
000005d0  69 6e 67 20 74 68 65 20  68 65 61 76 79 20 62 6f  |ing the heavy bo|
000005e0  78 0d 00 31 21 dc 20 41  66 74 65 72 20 6c 69 66  |x..1!. After lif|
000005f0  74 69 6e 67 20 74 68 65  20 68 65 61 76 79 20 62  |ting the heavy b|
00000600  6f 78 0d 00 32 23 dc 20  53 74 61 72 74 20 68 6f  |ox..2#. Start ho|
00000610  76 65 72 68 65 6c 69 20  66 6f 72 65 73 74 20 73  |verheli forest s|
00000620  65 61 72 63 68 0d 00 33  1c dc 20 43 6f 6e 74 69  |earch..3.. Conti|
00000630  6e 75 65 20 66 6f 72 65  73 74 20 73 65 61 72 63  |nue forest searc|
00000640  68 0d 00 34 1d dc 20 4c  61 6e 64 69 6e 67 20 62  |h..4.. Landing b|
00000650  79 20 53 6f 75 74 68 20  54 65 6d 70 6c 65 0d 00  |y South Temple..|
00000660  35 22 dc 20 49 6e 73 69  64 65 20 74 65 6d 70 6c  |5". Inside templ|
00000670  65 20 63 68 65 6d 69 63  61 6c 20 73 74 6f 72 65  |e chemical store|
00000680  0d 00 36 21 dc 20 41 66  74 65 72 20 74 65 6d 70  |..6!. After temp|
00000690  6c 65 20 63 68 65 6d 69  63 61 6c 20 73 74 6f 72  |le chemical stor|
000006a0  65 0d 00 37 20 dc 20 42  65 66 6f 72 65 20 63 6c  |e..7 . Before cl|
000006b0  65 61 72 69 6e 67 20 6d  69 6e 65 20 66 69 65 6c  |earing mine fiel|
000006c0  64 0d 00 38 1f dc 20 41  66 74 65 72 20 63 6c 65  |d..8.. After cle|
000006d0  61 72 69 6e 67 20 6d 69  6e 65 20 66 69 65 6c 64  |aring mine field|
000006e0  0d 00 39 19 dc 20 49 6e  73 69 64 65 20 6e 6f 72  |..9.. Inside nor|
000006f0  74 68 20 74 65 6d 70 6c  65 0d 00 3a 19 dc 20 41  |th temple..:.. A|
00000700  74 74 61 63 6b 20 6f 66  20 74 68 65 20 72 6f 62  |ttack of the rob|
00000710  6f 74 0d 00 3b 1d dc 20  41 66 74 65 72 20 74 75  |ot..;.. After tu|
00000720  72 6e 69 6e 67 20 6f 66  66 20 72 6f 62 6f 74 0d  |rning off robot.|
00000730  00 3c 2f dc 20 4c 61 6e  64 69 6e 67 20 61 74 20  |.</. Landing at |
00000740  74 68 65 20 6d 69 64 64  6c 65 20 74 65 6d 70 6c  |the middle templ|
00000750  65 20 77 69 74 68 20 61  20 6c 61 73 65 72 0d 00  |e with a laser..|
00000760  3d 19 dc 20 50 6f 69 73  6f 6e 20 61 6e 69 6d 61  |=.. Poison anima|
00000770  6c 20 63 61 67 65 73 0d  00 3e 25 dc 20 41 66 74  |l cages..>%. Aft|
00000780  65 72 20 66 69 6e 64 69  6e 67 20 50 72 6f 66 65  |er finding Profe|
00000790  73 73 6f 72 20 52 6f 62  65 72 74 73 0d 00 3f 19  |ssor Roberts..?.|
000007a0  dc 20 42 75 69 6c 64 69  6e 67 20 74 68 65 20 62  |. Building the b|
000007b0  72 69 64 67 65 0d 00 40  23 dc 20 42 65 66 6f 72  |ridge..@#. Befor|
000007c0  65 20 74 68 65 20 77 69  6c 64 20 72 69 76 65 72  |e the wild river|
000007d0  20 6a 6f 75 72 6e 65 79  0d 00 41 1d dc 20 41 66  | journey..A.. Af|
000007e0  74 65 72 20 74 68 65 20  72 69 76 65 72 20 6a 6f  |ter the river jo|
000007f0  75 72 6e 65 79 0d 00 42  1a dc 20 54 68 65 20 75  |urney..B.. The u|
00000800  6e 64 65 72 67 72 6f 75  6e 64 20 62 61 73 65 0d  |nderground base.|
00000810  00 43 23 dc 20 41 66 74  65 72 20 66 69 6e 64 69  |.C#. After findi|
00000820  6e 67 20 74 68 65 20 73  65 63 72 65 74 20 63 61  |ng the secret ca|
00000830  76 65 0d 00 44 2a dc 20  41 74 20 74 68 65 20 62  |ve..D*. At the b|
00000840  61 63 6b 20 6f 66 20 74  68 65 20 63 61 76 65 20  |ack of the cave |
00000850  62 79 20 74 68 65 20 70  69 70 65 73 0d 00 45 23  |by the pipes..E#|
00000860  dc 20 55 73 69 6e 67 20  74 68 65 20 68 65 61 74  |. Using the heat|
00000870  20 73 65 6e 73 6f 72 20  70 72 6f 67 72 61 6d 0d  | sensor program.|
00000880  00 46 23 dc 20 42 65 66  6f 72 65 20 63 6c 69 6d  |.F#. Before clim|
00000890  62 69 6e 67 20 69 6e 74  6f 20 74 68 65 20 70 69  |bing into the pi|
000008a0  70 65 0d 00 47 28 dc 20  41 66 74 65 72 20 47 6f  |pe..G(. After Go|
000008b0  6d 65 7a 27 73 20 61 63  63 69 64 65 6e 74 20 69  |mez's accident i|
000008c0  6e 20 74 68 65 20 70 69  70 65 0d 00 48 10 dc 20  |n the pipe..H.. |
000008d0  54 68 65 20 65 6e 64 69  6e 67 0d 00 49 23 e3 6a  |The ending..I#.j|
000008e0  25 3d 31 b8 6d 61 78 73  74 61 72 74 73 25 3a f3  |%=1.maxstarts%:.|
000008f0  73 74 61 72 74 73 24 28  6a 25 29 3a ed 0d 00 4a  |starts$(j%):...J|
00000900  0d 73 74 61 72 74 25 3d  53 25 0d 00 4b 0e 73 6e  |.start%=S%..K.sn|
00000910  64 6d 61 78 25 3d 31 35  0d 00 4c 12 f2 67 65 74  |dmax%=15..L..get|
00000920  73 63 72 65 65 6e 73 69  7a 65 0d 00 4d 33 61 24  |screensize..M3a$|
00000930  3d a4 63 6f 6e 76 65 72  74 74 6f 6c 6f 77 65 72  |=.converttolower|
00000940  28 a4 72 65 61 64 73 79  73 76 61 72 28 22 43 72  |(.readsysvar("Cr|
00000950  79 73 74 61 6c 32 24 44  69 72 22 29 29 0d 00 4e  |ystal2$Dir"))..N|
00000960  26 e7 a7 61 24 2c 22 24  2e 21 63 72 79 73 74 61  |&..a$,"$.!crysta|
00000970  6c 32 22 29 3c 3e 30 3a  59 25 3d 30 3a 8b 3a 59  |l2")<>0:Y%=0:.:Y|
00000980  25 3d 31 0d 00 4f 05 e1  0d 00 50 13 dd f2 67 65  |%=1..O....P...ge|
00000990  74 73 63 72 65 65 6e 73  69 7a 65 0d 00 51 26 c8  |tscreensize..Q&.|
000009a0  99 22 4f 53 5f 52 65 61  64 56 64 75 56 61 72 69  |."OS_ReadVduVari|
000009b0  61 62 6c 65 73 22 2c 69  6e 62 25 2c 6f 75 74 62  |ables",inb%,outb|
000009c0  25 0d 00 52 4e 78 6d 61  78 65 63 25 3d 28 28 28  |%..RNxmaxec%=(((|
000009d0  6f 75 74 62 25 21 38 29  2b 31 29 3c 3c 28 6f 75  |outb%!8)+1)<<(ou|
000009e0  74 62 25 21 30 29 29 2d  31 3a 79 6d 61 78 65 63  |tb%!0))-1:ymaxec|
000009f0  25 3d 28 28 28 6f 75 74  62 25 21 31 32 29 2b 31  |%=(((outb%!12)+1|
00000a00  29 3c 3c 28 6f 75 74 62  25 21 34 29 29 2d 31 0d  |)<<(outb%!4))-1.|
00000a10  00 53 05 e1 0d 00 54 14  dd a4 61 6c 72 65 61 64  |.S....T...alread|
00000a20  79 72 75 6e 6e 69 6e 67  0d 00 55 08 ea 20 41 25  |yrunning..U.. A%|
00000a30  0d 00 56 07 ea 20 85 0d  00 57 0e ee 85 ea 3a f7  |..V.. ...W....:.|
00000a40  20 85 3a 3d 30 0d 00 58  3f c8 99 20 22 4f 53 5f  | .:=0..X?.. "OS_|
00000a50  52 65 61 64 56 61 72 56  61 6c 22 2c 22 43 72 79  |ReadVarVal","Cry|
00000a60  73 74 61 6c 32 24 69 73  72 75 6e 6e 69 6e 67 22  |stal2$isrunning"|
00000a70  2c 62 6c 6b 25 2c 32 35  36 2c 30 2c 30 20 b8 20  |,blk%,256,0,0 . |
00000a80  2c 2c 61 25 0d 00 59 25  61 24 3d 22 22 3a e3 41  |,,a%..Y%a$="":.A|
00000a90  25 3d 30 b8 61 25 2d 31  3a 61 24 2b 3d bd 28 62  |%=0.a%-1:a$+=.(b|
00000aa0  6c 6b 25 3f 41 25 29 3a  ed 0d 00 5a 07 f7 20 85  |lk%?A%):...Z.. .|
00000ab0  0d 00 5b 0f e7 61 24 3d  22 31 22 3a 3d 2d 31 0d  |..[..a$="1":=-1.|
00000ac0  00 5c 06 3d 30 0d 00 5d  15 dd f2 69 6e 69 74 66  |.\.=0..]...initf|
00000ad0  72 6f 6d 73 74 61 72 74  75 70 0d 00 5e 17 f4 20  |romstartup..^.. |
00000ae0  71 75 69 74 25 3d 4e 4f  54 46 4e 70 61 6c 73 65  |quit%=NOTFNpalse|
00000af0  74 0d 00 5f 08 ea 20 6a  25 0d 00 60 0c 73 74 61  |t.._.. j%..`.sta|
00000b00  72 74 25 3d 31 0d 00 61  32 21 75 73 65 72 77 69  |rt%=1..a2!userwi|
00000b10  6d 70 73 70 72 73 25 3d  77 69 6d 70 73 70 72 73  |mpsprs%=wimpsprs|
00000b20  69 7a 65 25 3a 75 73 65  72 77 69 6d 70 73 70 72  |ize%:userwimpspr|
00000b30  73 25 21 38 3d 31 36 0d  00 62 27 c8 99 20 22 4f  |s%!8=16..b'.. "O|
00000b40  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 30 39  |S_SpriteOp",&109|
00000b50  2c 75 73 65 72 77 69 6d  70 73 70 72 73 25 0d 00  |,userwimpsprs%..|
00000b60  63 40 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |c@.. "OS_SpriteO|
00000b70  70 22 2c 26 31 30 41 2c  75 73 65 72 77 69 6d 70  |p",&10A,userwimp|
00000b80  73 70 72 73 25 2c 22 3c  43 72 79 73 74 61 6c 32  |sprs%,"<Crystal2|
00000b90  24 44 69 72 3e 2e 53 70  72 69 74 65 73 22 0d 00  |$Dir>.Sprites"..|
00000ba0  64 26 ff 22 4c 4f 41 44  20 3c 43 72 79 73 74 61  |d&."LOAD <Crysta|
00000bb0  6c 32 24 44 69 72 3e 2e  63 6f 64 65 20 22 2b c3  |l2$Dir>.code "+.|
00000bc0  7e 6d 63 25 0d 00 65 0d  77 69 6e 63 74 72 25 3d  |~mc%..e.winctr%=|
00000bd0  31 0d 00 66 36 c8 99 20  22 57 69 6d 70 5f 4f 70  |1..f6.. "Wimp_Op|
00000be0  65 6e 54 65 6d 70 6c 61  74 65 22 2c 2c 22 3c 43  |enTemplate",,"<C|
00000bf0  72 79 73 74 61 6c 32 24  44 69 72 3e 2e 54 65 6d  |rystal2$Dir>.Tem|
00000c00  70 6c 61 74 65 73 22 0d  00 67 51 f2 6c 6f 61 64  |plates"..gQ.load|
00000c10  5f 74 65 6d 70 6c 61 74  65 28 22 70 72 6f 67 69  |_template("progi|
00000c20  6e 66 6f 22 29 3a f2 6c  6f 61 64 5f 74 65 6d 70  |nfo"):.load_temp|
00000c30  6c 61 74 65 28 22 73 65  74 75 70 22 29 3a f2 6c  |late("setup"):.l|
00000c40  6f 61 64 5f 74 65 6d 70  6c 61 74 65 28 22 6d 65  |oad_template("me|
00000c50  73 73 61 67 65 73 22 29  0d 00 68 0e f2 73 61 76  |ssages")..h..sav|
00000c60  65 73 6f 75 6e 64 0d 00  69 05 e1 0d 00 6a 0f dd  |esound..i....j..|
00000c70  a4 69 73 63 67 61 6f 6e  6c 79 0d 00 6b 29 c8 99  |.iscgaonly..k)..|
00000c80  22 4f 53 5f 43 68 65 63  6b 4d 6f 64 65 56 61 6c  |"OS_CheckModeVal|
00000c90  69 64 22 2c 32 37 20 b8  20 72 65 67 30 25 3b 66  |id",27 . reg0%;f|
00000ca0  6c 61 25 0d 00 6c 26 73  63 31 25 3d 28 28 28 66  |la%..l&sc1%=(((f|
00000cb0  6c 61 25 80 25 31 30 29  3d 25 31 30 29 80 28 72  |la%.%10)=%10).(r|
00000cc0  65 67 30 25 3d 2d 31 29  29 0d 00 6d 25 61 24 3d  |eg0%=-1))..m%a$=|
00000cd0  a4 72 65 61 64 73 79 73  76 61 72 28 22 43 72 79  |.readsysvar("Cry|
00000ce0  73 74 61 6c 32 24 4f 6e  65 4d 65 67 22 29 0d 00  |stal2$OneMeg")..|
00000cf0  6e 22 63 61 25 3d 91 3a  e3 63 62 25 3d 30 b8 32  |n"ca%=.:.cb%=0.2|
00000d00  30 30 30 30 3a ed 3a 73  70 25 3d 91 2d 63 61 25  |0000:.:sp%=.-ca%|
00000d10  0d 00 6f 1e e7 73 63 31  25 3d b9 20 84 20 61 24  |..o..sc1%=. . a$|
00000d20  3d 22 31 22 20 84 20 73  70 25 3e 38 20 8c 0d 00  |="1" . sp%>8 ...|
00000d30  70 06 3d b9 0d 00 71 05  cc 0d 00 72 06 3d a3 0d  |p.=...q....r.=..|
00000d40  00 73 05 cd 0d 00 74 0b  dd a4 69 73 76 67 61 0d  |.s....t...isvga.|
00000d50  00 75 21 e7 a4 69 73 73  65 6c 65 63 74 65 64 28  |.u!..isselected(|
00000d60  73 65 74 75 70 77 25 2c  31 38 29 8c 3a 3d 2d 31  |setupw%,18).:=-1|
00000d70  0d 00 76 06 3d 30 0d 00  77 10 dd a4 69 73 6f 70  |..v.=0..w...isop|
00000d80  65 6e 28 77 25 29 0d 00  78 2b 21 62 6c 6b 25 3d  |en(w%)..x+!blk%=|
00000d90  77 25 3a c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |w%:.. "Wimp_GetW|
00000da0  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 6c 6b  |indowState",,blk|
00000db0  25 0d 00 79 20 3d 28 28  62 6c 6b 25 21 33 32 29  |%..y =((blk%!32)|
00000dc0  80 28 31 3c 3c 31 36 29  29 3d 28 31 3c 3c 31 36  |.(1<<16))=(1<<16|
00000dd0  29 0d 00 7a 0f dd f2 73  61 76 65 73 6f 75 6e 64  |)..z...savesound|
00000de0  0d 00 7b 08 ea 20 41 25  0d 00 7c 60 c8 99 20 22  |..{.. A%..|`.. "|
00000df0  53 6f 75 6e 64 5f 52 65  61 64 43 6f 6e 74 72 6f  |Sound_ReadContro|
00000e00  6c 42 6c 6f 63 6b 22 2c  31 2c 32 20 b8 20 2c 2c  |lBlock",1,2 . ,,|
00000e10  76 6f 69 63 65 25 3a 76  6f 69 63 65 25 3d 76 6f  |voice%:voice%=vo|
00000e20  69 63 65 25 80 26 46 46  3a ff 22 53 65 74 20 43  |ice%.&FF:."Set C|
00000e30  72 79 73 74 61 6c 32 24  76 6f 69 63 65 31 20 22  |rystal2$voice1 "|
00000e40  2b c3 76 6f 69 63 65 25  0d 00 7d 82 c8 99 20 22  |+.voice%..}... "|
00000e50  53 6f 75 6e 64 5f 43 6f  6e 66 69 67 75 72 65 22  |Sound_Configure"|
00000e60  2c 30 2c 30 2c 30 20 b8  20 41 25 2c 42 25 2c 43  |,0,0,0 . A%,B%,C|
00000e70  25 3a ff 22 53 65 74 20  43 72 79 73 74 61 6c 32  |%:."Set Crystal2|
00000e80  24 74 6f 74 63 68 61 6e  73 20 22 2b c3 41 25 3a  |$totchans "+.A%:|
00000e90  ff 22 53 65 74 20 43 72  79 73 74 61 6c 32 24 73  |."Set Crystal2$s|
00000ea0  61 6d 70 73 69 7a 65 20  22 2b c3 42 25 3a ff 22  |ampsize "+.B%:."|
00000eb0  53 65 74 20 43 72 79 73  74 61 6c 32 24 73 61 6d  |Set Crystal2$sam|
00000ec0  70 70 65 72 20 22 2b c3  43 25 0d 00 7e 35 c8 99  |pper "+.C%..~5..|
00000ed0  20 22 53 6f 75 6e 64 5f  56 6f 6c 75 6d 65 22 2c  | "Sound_Volume",|
00000ee0  30 20 b8 20 41 25 3a ff  22 53 65 74 20 43 72 79  |0 . A%:."Set Cry|
00000ef0  73 74 61 6c 32 24 76 6f  6c 20 22 2b c3 41 25 0d  |stal2$vol "+.A%.|
00000f00  00 7f 05 e1 0d 00 80 0e  dd f2 73 65 74 73 6f 75  |..........setsou|
00000f10  6e 64 0d 00 81 35 ff 22  63 68 61 6e 6e 65 6c 76  |nd...5."channelv|
00000f20  6f 69 63 65 20 31 20 22  2b a4 72 65 61 64 73 79  |oice 1 "+.readsy|
00000f30  73 76 61 72 28 22 43 72  79 73 74 61 6c 32 24 76  |svar("Crystal2$v|
00000f40  6f 69 63 65 31 22 29 0d  00 82 8f 41 25 3d bb a4  |oice1")....A%=..|
00000f50  72 65 61 64 73 79 73 76  61 72 28 22 43 72 79 73  |readsysvar("Crys|
00000f60  74 61 6c 32 24 74 6f 74  63 68 61 6e 73 22 29 3a  |tal2$totchans"):|
00000f70  42 25 3d bb a4 72 65 61  64 73 79 73 76 61 72 28  |B%=..readsysvar(|
00000f80  22 43 72 79 73 74 61 6c  32 24 73 61 6d 70 73 69  |"Crystal2$sampsi|
00000f90  7a 65 22 29 3a 43 25 3d  bb a4 72 65 61 64 73 79  |ze"):C%=..readsy|
00000fa0  73 76 61 72 28 22 43 72  79 73 74 61 6c 32 24 73  |svar("Crystal2$s|
00000fb0  61 6d 70 70 65 72 22 29  3a c8 99 20 22 53 6f 75  |ampper"):.. "Sou|
00000fc0  6e 64 5f 43 6f 6e 66 69  67 75 72 65 22 2c 41 25  |nd_Configure",A%|
00000fd0  2c 42 25 2c 43 25 0d 00  83 32 c8 99 20 22 53 6f  |,B%,C%...2.. "So|
00000fe0  75 6e 64 5f 56 6f 6c 75  6d 65 22 2c bb a4 72 65  |und_Volume",..re|
00000ff0  61 64 73 79 73 76 61 72  28 22 43 72 79 73 74 61  |adsysvar("Crysta|
00001000  6c 32 24 76 6f 6c 22 29  0d 00 84 05 e1 0d 00 85  |l2$vol")........|
00001010  1d dd f2 6c 6f 61 64 5f  74 65 6d 70 6c 61 74 65  |...load_template|
00001020  28 77 69 6e 6e 61 6d 65  24 29 0d 00 86 45 77 69  |(winname$)...Ewi|
00001030  6e 73 74 61 72 74 73 25  21 28 28 77 69 6e 63 74  |nstarts%!((winct|
00001040  72 25 2d 31 29 2a 34 29  3d 77 70 74 72 25 3a 69  |r%-1)*4)=wptr%:i|
00001050  6e 64 73 74 61 72 74 73  25 21 28 28 77 69 6e 63  |ndstarts%!((winc|
00001060  74 72 25 2d 31 29 2a 34  29 3d 69 70 74 72 25 0d  |tr%-1)*4)=iptr%.|
00001070  00 87 54 c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |..T.. "Wimp_Load|
00001080  54 65 6d 70 6c 61 74 65  22 2c 2c 77 70 74 72 25  |Template",,wptr%|
00001090  2c 69 70 74 72 25 2c 69  6e 64 62 61 73 65 25 2b  |,iptr%,indbase%+|
000010a0  74 6f 74 69 6e 64 73 69  7a 65 25 2c 2d 31 2c 77  |totindsize%,-1,w|
000010b0  69 6e 6e 61 6d 65 24 2c  30 20 b8 20 2c 2c 69 70  |inname$,0 . ,,ip|
000010c0  74 72 25 0d 00 88 14 6e  6f 69 63 6e 73 25 3d 77  |tr%....noicns%=w|
000010d0  70 74 72 25 21 38 34 0d  00 89 1b e3 6a 25 3d 30  |ptr%!84.....j%=0|
000010e0  b8 28 6e 6f 69 63 6e 73  25 2d 31 29 2a 33 32 88  |.(noicns%-1)*32.|
000010f0  33 32 0d 00 8a 2a 69 63  6e 62 6c 6b 25 3d 77 70  |32...*icnblk%=wp|
00001100  74 72 25 2b 38 38 2b 6a  25 3a 69 63 6e 66 25 3d  |tr%+88+j%:icnf%=|
00001110  28 69 63 6e 62 6c 6b 25  21 31 36 29 0d 00 8b 81  |(icnblk%!16)....|
00001120  e7 20 a4 69 6e 64 69 72  65 63 74 65 64 28 69 63  |. .indirected(ic|
00001130  6e 66 25 29 80 ac a4 73  70 72 69 74 65 28 69 63  |nf%)...sprite(ic|
00001140  6e 66 25 29 80 a4 74 65  78 74 28 69 63 6e 66 25  |nf%)..text(icnf%|
00001150  29 80 28 69 63 6e 62 6c  6b 25 21 32 34 3c 3e 2d  |).(icnblk%!24<>-|
00001160  31 29 20 8c 3a e7 a7 a4  72 65 61 64 73 74 72 69  |1) .:...readstri|
00001170  6e 67 28 69 63 6e 62 6c  6b 25 21 32 34 29 2c 22  |ng(icnblk%!24),"|
00001180  62 30 22 29 3c 3e 30 20  69 63 6e 66 25 3d 69 63  |b0")<>0 icnf%=ic|
00001190  6e 66 25 80 26 46 46 46  46 30 46 46 46 0d 00 8c  |nf%.&FFFF0FFF...|
000011a0  4e e7 20 ac a4 69 6e 64  69 72 65 63 74 65 64 28  |N. ..indirected(|
000011b0  69 63 6e 66 25 29 80 ac  a4 73 70 72 69 74 65 28  |icnf%)...sprite(|
000011c0  69 63 6e 66 25 29 80 a4  74 65 78 74 28 69 63 6e  |icnf%)..text(icn|
000011d0  66 25 29 20 8c 3a 69 63  6e 66 25 3d 69 63 6e 66  |f%) .:icnf%=icnf|
000011e0  25 80 26 46 46 46 46 30  46 46 46 0d 00 8d 50 e7  |%.&FFFF0FFF...P.|
000011f0  20 a4 69 6e 64 69 72 65  63 74 65 64 28 69 63 6e  | .indirected(icn|
00001200  66 25 29 80 a4 73 70 72  69 74 65 28 69 63 6e 66  |f%)..sprite(icnf|
00001210  25 29 80 ac a4 74 65 78  74 28 69 63 6e 66 25 29  |%)...text(icnf%)|
00001220  20 8c 3a 69 63 6e 62 6c  6b 25 21 32 34 3d 75 73  | .:icnblk%!24=us|
00001230  65 72 77 69 6d 70 73 70  72 73 25 0d 00 8e 2a e7  |erwimpsprs%...*.|
00001240  20 ac a4 69 6e 64 69 72  65 63 74 65 64 28 69 63  | ..indirected(ic|
00001250  6e 66 25 29 80 a4 73 70  72 69 74 65 28 69 63 6e  |nf%)..sprite(icn|
00001260  66 25 29 20 8c 0d 00 8f  21 73 70 72 6e 24 3d a4  |f%) ....!sprn$=.|
00001270  72 65 61 64 73 74 72 69  6e 67 28 69 63 6e 62 6c  |readstring(icnbl|
00001280  6b 25 2b 32 30 29 0d 00  90 2c c8 99 20 22 58 57  |k%+20)...,.. "XW|
00001290  69 6d 70 5f 53 70 72 69  74 65 4f 70 22 2c 34 30  |imp_SpriteOp",40|
000012a0  2c 2c 73 70 72 6e 24 20  b8 20 2c 2c 2c 77 25 2c  |,,sprn$ . ,,,w%,|
000012b0  68 25 0d 00 91 8d e7 28  77 25 84 68 25 29 3d 30  |h%.....(w%.h%)=0|
000012c0  3a 69 63 6e 66 25 3d 69  63 6e 66 25 84 32 35 36  |:icnf%=icnf%.256|
000012d0  3a 24 69 70 74 72 25 3d  73 70 72 6e 24 3a 3f 28  |:$iptr%=sprn$:?(|
000012e0  69 70 74 72 25 2b 28 a9  73 70 72 6e 24 29 29 3d  |iptr%+(.sprn$))=|
000012f0  30 3a 69 63 6e 62 6c 6b  25 21 32 30 3d 69 70 74  |0:icnblk%!20=ipt|
00001300  72 25 3a 69 63 6e 62 6c  6b 25 21 32 34 3d 75 73  |r%:icnblk%!24=us|
00001310  65 72 77 69 6d 70 73 70  72 73 25 3a 69 63 6e 62  |erwimpsprs%:icnb|
00001320  6c 6b 25 21 32 38 3d a9  73 70 72 6e 24 3a 69 70  |lk%!28=.sprn$:ip|
00001330  74 72 25 2b 3d a9 28 73  70 72 6e 24 29 2b 31 0d  |tr%+=.(sprn$)+1.|
00001340  00 92 05 cd 0d 00 93 42  e7 28 77 69 6e 6e 61 6d  |.......B.(winnam|
00001350  65 24 3d 22 73 65 74 75  70 22 29 80 28 28 6a 25  |e$="setup").((j%|
00001360  3d 28 31 36 2a 33 32 29  29 84 28 6a 25 3d 28 31  |=(16*32)).(j%=(1|
00001370  39 2a 33 32 29 29 84 28  6a 25 3d 28 32 30 2a 33  |9*32)).(j%=(20*3|
00001380  32 29 29 29 20 8c 0d 00  94 33 e7 a4 69 73 63 67  |2))) ....3..iscg|
00001390  61 6f 6e 6c 79 20 8c 3a  69 63 6e 66 25 3d 28 69  |aonly .:icnf%=(i|
000013a0  63 6e 66 25 80 26 46 30  46 46 46 46 46 46 29 84  |cnf%.&F0FFFFFF).|
000013b0  26 30 33 30 30 30 30 30  30 0d 00 95 05 cd 0d 00  |&03000000.......|
000013c0  96 14 69 63 6e 62 6c 6b  25 21 31 36 3d 69 63 6e  |..icnblk%!16=icn|
000013d0  66 25 0d 00 97 05 ed 0d  00 98 28 77 70 74 72 25  |f%........(wptr%|
000013e0  2b 3d 38 38 2b 28 28 77  70 74 72 25 21 38 34 29  |+=88+((wptr%!84)|
000013f0  2a 33 32 29 3a 77 69 6e  63 74 72 25 2b 3d 31 0d  |*32):winctr%+=1.|
00001400  00 99 05 e1 0d 00 9a 14  dd a4 69 6e 64 69 72 65  |..........indire|
00001410  63 74 65 64 28 66 25 29  0d 00 9b 13 3d 28 28 66  |cted(f%)....=((f|
00001420  25 80 32 35 36 29 3d 32  35 36 29 0d 00 9c 10 dd  |%.256)=256).....|
00001430  a4 73 70 72 69 74 65 28  66 25 29 0d 00 9d 0f 3d  |.sprite(f%)....=|
00001440  28 28 66 25 80 32 29 3d  32 29 0d 00 9e 0e dd a4  |((f%.2)=2)......|
00001450  74 65 78 74 28 66 25 29  0d 00 9f 0f 3d 28 28 66  |text(f%)....=((f|
00001460  25 80 31 29 3d 31 29 0d  00 a0 13 dd f2 63 72 65  |%.1)=1)......cre|
00001470  61 74 65 77 69 6e 64 6f  77 73 0d 00 a1 31 c8 99  |atewindows...1..|
00001480  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
00001490  64 6f 77 22 2c 2c 77 69  6e 73 74 61 72 74 73 25  |dow",,winstarts%|
000014a0  21 30 20 b8 20 69 6e 66  6f 77 25 0d 00 a2 32 c8  |!0 . infow%...2.|
000014b0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
000014c0  6e 64 6f 77 22 2c 2c 77  69 6e 73 74 61 72 74 73  |ndow",,winstarts|
000014d0  25 21 34 20 b8 20 73 65  74 75 70 77 25 0d 00 a3  |%!4 . setupw%...|
000014e0  31 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |1.. "Wimp_Create|
000014f0  57 69 6e 64 6f 77 22 2c  2c 77 69 6e 73 74 61 72  |Window",,winstar|
00001500  74 73 25 21 38 20 b8 20  6d 65 73 73 77 25 0d 00  |ts%!8 . messw%..|
00001510  a4 1b c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |.... "Wimp_Close|
00001520  54 65 6d 70 6c 61 74 65  22 0d 00 a5 05 e1 0d 00  |Template".......|
00001530  a6 11 dd f2 69 6e 69 74  77 69 6e 64 6f 77 73 0d  |....initwindows.|
00001540  00 a7 08 ea 20 6a 25 0d  00 a8 41 f2 70 75 74 69  |.... j%...A.puti|
00001550  63 6e 73 74 72 69 6e 67  28 73 65 74 75 70 77 25  |cnstring(setupw%|
00001560  2c 33 2c a4 72 65 61 64  73 79 73 76 61 72 28 22  |,3,.readsysvar("|
00001570  43 72 79 73 74 61 6c 32  24 53 61 76 65 47 61 6d  |Crystal2$SaveGam|
00001580  65 50 61 74 68 22 29 29  0d 00 a9 3f 76 6f 6c 75  |ePath"))...?volu|
00001590  6d 65 25 3d bb a4 72 65  61 64 73 79 73 76 61 72  |me%=..readsysvar|
000015a0  28 22 43 72 79 73 74 61  6c 32 24 56 6f 6c 75 6d  |("Crystal2$Volum|
000015b0  65 22 29 3a f2 73 65 74  76 6f 6c 75 6d 65 28 76  |e"):.setvolume(v|
000015c0  6f 6c 75 6d 65 25 29 0d  00 aa 35 66 25 3d bb a4  |olume%)...5f%=..|
000015d0  72 65 61 64 73 79 73 76  61 72 28 22 43 72 79 73  |readsysvar("Crys|
000015e0  74 61 6c 32 24 44 69 66  66 22 29 3a f2 73 65 74  |tal2$Diff"):.set|
000015f0  74 61 73 6b 64 69 66 66  28 66 25 29 0d 00 ab 12  |taskdiff(f%)....|
00001600  e7 20 a4 69 73 63 67 61  6f 6e 6c 79 20 8c 0d 00  |. .iscgaonly ...|
00001610  ac 35 f2 73 65 6c 65 63  74 69 63 6e 28 73 65 74  |.5.selecticn(set|
00001620  75 70 77 25 2c 31 37 2c  b9 29 3a f2 73 65 6c 65  |upw%,17,.):.sele|
00001630  63 74 69 63 6e 28 73 65  74 75 70 77 25 2c 31 38  |cticn(setupw%,18|
00001640  2c a3 29 0d 00 ad 27 e3  6a 25 3d 31 37 b8 31 38  |,.)...'.j%=17.18|
00001650  3a f2 73 68 61 64 65 69  63 6e 28 73 65 74 75 70  |:.shadeicn(setup|
00001660  77 25 2c 6a 25 2c b9 29  3a ed 0d 00 ae 05 cc 0d  |w%,j%,.):.......|
00001670  00 af 30 66 25 3d bb a4  72 65 61 64 73 79 73 76  |..0f%=..readsysv|
00001680  61 72 28 22 43 72 79 73  74 61 6c 32 24 56 67 61  |ar("Crystal2$Vga|
00001690  22 29 3a f2 73 65 74 6d  6f 64 65 28 66 25 29 0d  |"):.setmode(f%).|
000016a0  00 b0 05 cd 0d 00 b1 10  f2 73 65 74 73 74 61 72  |.........setstar|
000016b0  74 28 30 29 0d 00 b2 42  e7 59 25 3d 30 3a f2 68  |t(0)...B.Y%=0:.h|
000016c0  69 64 65 73 61 76 65 61  72 65 61 62 69 74 3a 8b  |idesaveareabit:.|
000016d0  3a f2 68 69 64 65 69 63  6e 28 73 65 74 75 70 77  |:.hideicn(setupw|
000016e0  25 2c 33 36 2c b9 29 3a  f2 63 72 65 61 74 65 73  |%,36,.):.creates|
000016f0  61 76 65 64 69 72 0d 00  b3 35 e7 20 a4 72 65 61  |avedir...5. .rea|
00001700  64 73 79 73 76 61 72 28  22 43 72 79 73 74 61 6c  |dsysvar("Crystal|
00001710  32 24 45 6e 74 72 79 50  74 22 29 3d 22 66 72 6f  |2$EntryPt")="fro|
00001720  6d 73 74 61 72 74 75 70  22 20 8c 0d 00 b4 0c e3  |mstartup" ......|
00001730  6a 25 3d 30 b8 31 35 0d  00 b5 3f ff 22 53 65 74  |j%=0.15...?."Set|
00001740  20 43 72 79 73 74 61 6c  32 24 63 6f 6d 6d 22 2b  | Crystal2$comm"+|
00001750  c3 28 6a 25 29 2b 22 20  22 2b a4 67 65 74 69 63  |.(j%)+" "+.getic|
00001760  6e 73 74 72 69 6e 67 28  73 65 74 75 70 77 25 2c  |nstring(setupw%,|
00001770  34 31 2b 6a 25 29 0d 00  b6 43 ff 22 53 65 74 20  |41+j%)...C."Set |
00001780  43 72 79 73 74 61 6c 32  24 75 73 65 72 63 6f 6d  |Crystal2$usercom|
00001790  6d 22 2b c3 28 6a 25 29  2b 22 20 22 2b a4 67 65  |m"+.(j%)+" "+.ge|
000017a0  74 69 63 6e 73 74 72 69  6e 67 28 73 65 74 75 70  |ticnstring(setup|
000017b0  77 25 2c 34 31 2b 6a 25  29 0d 00 b7 05 ed 0d 00  |w%,41+j%).......|
000017c0  b8 05 cd 0d 00 b9 39 66  25 3d bb a4 72 65 61 64  |......9f%=..read|
000017d0  73 79 73 76 61 72 28 22  43 72 79 73 74 61 6c 32  |sysvar("Crystal2|
000017e0  24 63 6f 6e 74 63 6f 6d  6d 22 29 3a f2 73 65 74  |$contcomm"):.set|
000017f0  63 6f 6e 74 63 6f 6d 6d  28 66 25 29 0d 00 ba 1d  |contcomm(f%)....|
00001800  e7 a4 69 73 73 65 6c 65  63 74 65 64 28 73 65 74  |..isselected(set|
00001810  75 70 77 25 2c 34 30 29  8c 0d 00 bb 54 e3 6a 25  |upw%,40)....T.j%|
00001820  3d 30 b8 31 35 3a ff 22  53 65 74 20 43 72 79 73  |=0.15:."Set Crys|
00001830  74 61 6c 32 24 75 73 65  72 63 6f 6d 6d 22 2b c3  |tal2$usercomm"+.|
00001840  28 6a 25 29 2b 22 20 22  2b a4 72 65 61 64 73 79  |(j%)+" "+.readsy|
00001850  73 76 61 72 28 22 43 72  79 73 74 61 6c 32 24 63  |svar("Crystal2$c|
00001860  6f 6d 6d 22 2b c3 28 6a  25 29 29 3a ed 0d 00 bc  |omm"+.(j%)):....|
00001870  05 cd 0d 00 bd 52 e3 6a  25 3d 30 b8 31 35 3a f2  |.....R.j%=0.15:.|
00001880  70 75 74 69 63 6e 73 74  72 69 6e 67 28 73 65 74  |puticnstring(set|
00001890  75 70 77 25 2c 35 37 2b  6a 25 2c a4 72 65 61 64  |upw%,57+j%,.read|
000018a0  73 79 73 76 61 72 28 22  43 72 79 73 74 61 6c 32  |sysvar("Crystal2|
000018b0  24 75 73 65 72 63 6f 6d  6d 22 2b c3 28 6a 25 29  |$usercomm"+.(j%)|
000018c0  29 29 3a ed 0d 00 be 1d  e7 a4 69 73 73 65 6c 65  |)):.......issele|
000018d0  63 74 65 64 28 73 65 74  75 70 77 25 2c 34 30 29  |cted(setupw%,40)|
000018e0  8c 0d 00 bf 28 e3 6a 25  3d 30 b8 31 35 3a f2 68  |....(.j%=0.15:.h|
000018f0  69 64 65 69 63 6e 28 73  65 74 75 70 77 25 2c 37  |ideicn(setupw%,7|
00001900  33 2b 6a 25 2c b9 29 3a  ed 0d 00 c0 28 e3 6a 25  |3+j%,.):....(.j%|
00001910  3d 30 b8 31 35 3a f2 66  61 64 65 69 63 6e 28 73  |=0.15:.fadeicn(s|
00001920  65 74 75 70 77 25 2c 34  31 2b 6a 25 2c b9 29 3a  |etupw%,41+j%,.):|
00001930  ed 0d 00 c1 05 cc 0d 00  c2 28 e3 6a 25 3d 30 b8  |.........(.j%=0.|
00001940  31 35 3a f2 68 69 64 65  69 63 6e 28 73 65 74 75  |15:.hideicn(setu|
00001950  70 77 25 2c 37 33 2b 6a  25 2c a3 29 3a ed 0d 00  |pw%,73+j%,.):...|
00001960  c3 28 e3 6a 25 3d 30 b8  31 35 3a f2 66 61 64 65  |.(.j%=0.15:.fade|
00001970  69 63 6e 28 73 65 74 75  70 77 25 2c 34 31 2b 6a  |icn(setupw%,41+j|
00001980  25 2c a3 29 3a ed 0d 00  c4 05 cd 0d 00 c5 32 70  |%,.):.........2p|
00001990  72 65 6c 69 6e 6b 5f 66  6c 61 67 25 3d bb a4 72  |relink_flag%=..r|
000019a0  65 61 64 73 79 73 76 61  72 28 22 43 72 79 73 74  |eadsysvar("Cryst|
000019b0  61 6c 32 24 50 72 65 4c  69 6e 6b 22 29 0d 00 c6  |al2$PreLink")...|
000019c0  05 e1 0d 00 c7 12 dd f2  69 6e 69 74 63 6f 6e 74  |........initcont|
000019d0  63 6f 6d 6d 0d 00 c8 4e  e3 6a 25 3d 30 b8 31 35  |comm...N.j%=0.15|
000019e0  3a f2 70 75 74 69 63 6e  73 74 72 69 6e 67 28 73  |:.puticnstring(s|
000019f0  65 74 75 70 77 25 2c 35  37 2b 6a 25 2c a4 72 65  |etupw%,57+j%,.re|
00001a00  61 64 73 79 73 76 61 72  28 22 43 72 79 73 74 61  |adsysvar("Crysta|
00001a10  6c 32 24 63 6f 6d 6d 22  2b c3 28 6a 25 29 29 29  |l2$comm"+.(j%)))|
00001a20  3a ed 0d 00 c9 05 e1 0d  00 ca 13 dd f2 63 72 65  |:............cre|
00001a30  61 74 65 73 61 76 65 64  69 72 0d 00 cb 22 61 24  |atesavedir..."a$|
00001a40  3d a4 72 65 61 64 73 79  73 76 61 72 28 22 43 72  |=.readsysvar("Cr|
00001a50  79 73 74 61 6c 32 24 44  69 72 22 29 0d 00 cc 26  |ystal2$Dir")...&|
00001a60  e7 20 28 59 25 3d 31 29  80 28 a4 66 69 6c 65 74  |. (Y%=1).(.filet|
00001a70  79 70 65 28 61 24 2b 22  2e 73 61 22 29 3d 31 29  |ype(a$+".sa")=1)|
00001a80  20 8c 0d 00 cd 1c c8 99  20 22 58 4f 53 5f 46 69  | ....... "XOS_Fi|
00001a90  6c 65 22 2c 36 2c 61 24  2b 22 2e 73 61 22 0d 00  |le",6,a$+".sa"..|
00001aa0  ce 2a f2 73 65 74 73 61  76 65 64 69 72 28 c0 61  |.*.setsavedir(.a|
00001ab0  24 2c a9 28 61 24 29 2d  39 29 2b 22 43 72 79 73  |$,.(a$)-9)+"Crys|
00001ac0  74 32 53 61 76 65 22 29  0d 00 cf 05 cc 0d 00 d0  |t2Save")........|
00001ad0  35 e7 20 a4 72 65 61 64  73 79 73 76 61 72 28 22  |5. .readsysvar("|
00001ae0  43 72 79 73 74 61 6c 32  24 45 6e 74 72 79 50 74  |Crystal2$EntryPt|
00001af0  22 29 3d 22 66 72 6f 6d  73 74 61 72 74 75 70 22  |")="fromstartup"|
00001b00  20 8c 0d 00 d1 37 f2 70  75 74 69 63 6e 73 74 72  | ....7.puticnstr|
00001b10  69 6e 67 28 73 65 74 75  70 77 25 2c 33 34 2c c0  |ing(setupw%,34,.|
00001b20  61 24 2c a9 28 61 24 29  2d 39 29 2b 22 43 72 79  |a$,.(a$)-9)+"Cry|
00001b30  73 74 32 53 61 76 65 22  29 0d 00 d2 05 cc 0d 00  |st2Save").......|
00001b40  d3 3a f2 70 75 74 69 63  6e 73 74 72 69 6e 67 28  |.:.puticnstring(|
00001b50  73 65 74 75 70 77 25 2c  33 34 2c a4 72 65 61 64  |setupw%,34,.read|
00001b60  73 79 73 76 61 72 28 22  43 72 79 73 74 61 6c 32  |sysvar("Crystal2|
00001b70  24 53 61 76 65 22 29 29  0d 00 d4 05 cd 0d 00 d5  |$Save"))........|
00001b80  05 cd 0d 00 d6 05 e1 0d  00 d7 0f dd f2 63 68 65  |.............che|
00001b90  63 6b 61 72 6d 33 0d 00  d8 0c 48 25 21 26 44 43  |ckarm3....H%!&DC|
00001ba0  3d 30 0d 00 d9 09 74 31  25 3d 91 0d 00 da 11 e3  |=0....t1%=......|
00001bb0  6b 25 3d 30 b8 32 30 30  30 30 3a ed 0d 00 db 09  |k%=0.20000:.....|
00001bc0  74 32 25 3d 91 0d 00 dc  1a e7 28 74 32 25 2d 74  |t2%=......(t2%-t|
00001bd0  31 25 29 3c 31 35 3a 48  25 21 26 44 43 3d 31 0d  |1%)<15:H%!&DC=1.|
00001be0  00 dd 05 e1 0d 00 de 19  dd f2 73 65 74 73 74 61  |..........setsta|
00001bf0  72 74 28 63 68 67 73 74  61 72 74 25 29 0d 00 df  |rt(chgstart%)...|
00001c00  1e 6e 65 77 73 74 61 72  74 25 3d 73 74 61 72 74  |.newstart%=start|
00001c10  25 2b 63 68 67 73 74 61  72 74 25 0d 00 e0 2c e7  |%+chgstart%...,.|
00001c20  28 6e 65 77 73 74 61 72  74 25 3e 30 29 80 28 6e  |(newstart%>0).(n|
00001c30  65 77 73 74 61 72 74 25  3c 3d 6d 61 78 73 74 61  |ewstart%<=maxsta|
00001c40  72 74 73 25 29 20 8c 0d  00 e1 3e e7 6e 65 77 73  |rts%) ....>.news|
00001c50  74 61 72 74 25 3c 3e 73  74 61 72 74 25 3a 70 72  |tart%<>start%:pr|
00001c60  65 6c 69 6e 6b 5f 66 6c  61 67 25 3d 31 3a 2a 53  |elink_flag%=1:*S|
00001c70  65 74 20 43 72 79 73 74  61 6c 32 24 50 72 65 4c  |et Crystal2$PreL|
00001c80  69 6e 6b 20 31 0d 00 e2  14 73 74 61 72 74 25 3d  |ink 1....start%=|
00001c90  6e 65 77 73 74 61 72 74  25 0d 00 e3 2d f2 70 75  |newstart%...-.pu|
00001ca0  74 69 63 6e 73 74 72 69  6e 67 28 73 65 74 75 70  |ticnstring(setup|
00001cb0  77 25 2c 32 37 2c 73 74  61 72 74 73 24 28 73 74  |w%,27,starts$(st|
00001cc0  61 72 74 25 29 29 0d 00  e4 5a e7 73 74 61 72 74  |art%))...Z.start|
00001cd0  25 2d 31 3d 30 3a f2 70  75 74 69 63 6e 73 74 72  |%-1=0:.puticnstr|
00001ce0  69 6e 67 28 73 65 74 75  70 77 25 2c 32 36 2c 22  |ing(setupw%,26,"|
00001cf0  22 29 3a 8b 3a f2 70 75  74 69 63 6e 73 74 72 69  |"):.:.puticnstri|
00001d00  6e 67 28 73 65 74 75 70  77 25 2c 32 36 2c 73 74  |ng(setupw%,26,st|
00001d10  61 72 74 73 24 28 73 74  61 72 74 25 2d 31 29 29  |arts$(start%-1))|
00001d20  0d 00 e5 63 e7 73 74 61  72 74 25 2b 31 3e 6d 61  |...c.start%+1>ma|
00001d30  78 73 74 61 72 74 73 25  3a f2 70 75 74 69 63 6e  |xstarts%:.puticn|
00001d40  73 74 72 69 6e 67 28 73  65 74 75 70 77 25 2c 32  |string(setupw%,2|
00001d50  38 2c 22 22 29 3a 8b 3a  f2 70 75 74 69 63 6e 73  |8,""):.:.puticns|
00001d60  74 72 69 6e 67 28 73 65  74 75 70 77 25 2c 32 38  |tring(setupw%,28|
00001d70  2c 73 74 61 72 74 73 24  28 73 74 61 72 74 25 2b  |,starts$(start%+|
00001d80  31 29 29 0d 00 e6 05 cd  0d 00 e7 05 e1 0d 00 e8  |1)).............|
00001d90  15 dd f2 73 65 74 76 6f  6c 75 6d 65 28 76 6f 6c  |...setvolume(vol|
00001da0  25 29 0d 00 e9 0b e3 69  25 3d 30 b8 33 0d 00 ea  |%).....i%=0.3...|
00001db0  44 e7 69 25 3d 76 6f 6c  25 3a f2 73 65 6c 65 63  |D.i%=vol%:.selec|
00001dc0  74 69 63 6e 28 73 65 74  75 70 77 25 2c 37 2b 69  |ticn(setupw%,7+i|
00001dd0  25 2c b9 29 3a 8b 3a f2  73 65 6c 65 63 74 69 63  |%,.):.:.selectic|
00001de0  6e 28 73 65 74 75 70 77  25 2c 37 2b 69 25 2c a3  |n(setupw%,7+i%,.|
00001df0  29 0d 00 eb 05 ed 0d 00  ec 05 e1 0d 00 ed 1c dd  |)...............|
00001e00  f2 70 75 74 69 63 6e 73  74 72 69 6e 67 28 77 25  |.puticnstring(w%|
00001e10  2c 69 25 2c 61 24 29 0d  00 ee 33 21 62 6c 6b 25  |,i%,a$)...3!blk%|
00001e20  3d 77 25 3a 62 6c 6b 25  21 34 3d 69 25 3a c8 99  |=w%:blk%!4=i%:..|
00001e30  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
00001e40  61 74 65 22 2c 2c 62 6c  6b 25 0d 00 ef 24 24 28  |ate",,blk%...$$(|
00001e50  62 6c 6b 25 21 32 38 29  3d 61 24 3a 3f 28 28 62  |blk%!28)=a$:?((b|
00001e60  6c 6b 25 21 32 38 29 2b  a9 61 24 29 3d 30 0d 00  |lk%!28)+.a$)=0..|
00001e70  f0 33 62 6c 6b 25 21 38  3d 30 3a 62 6c 6b 25 21  |.3blk%!8=0:blk%!|
00001e80  31 32 3d 30 3a c8 99 20  22 57 69 6d 70 5f 53 65  |12=0:.. "Wimp_Se|
00001e90  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6b  |tIconState",,blk|
00001ea0  25 0d 00 f1 05 e1 0d 00  f2 19 dd a4 67 65 74 69  |%...........geti|
00001eb0  63 6e 73 74 72 69 6e 67  28 77 25 2c 69 25 29 0d  |cnstring(w%,i%).|
00001ec0  00 f3 33 21 62 6c 6b 25  3d 77 25 3a 62 6c 6b 25  |..3!blk%=w%:blk%|
00001ed0  21 34 3d 69 25 3a c8 99  20 22 57 69 6d 70 5f 47  |!4=i%:.. "Wimp_G|
00001ee0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
00001ef0  6b 25 0d 00 f4 19 3d a4  72 65 61 64 73 74 72 69  |k%....=.readstri|
00001f00  6e 67 28 62 6c 6b 25 21  32 38 29 0d 00 f5 14 dd  |ng(blk%!28).....|
00001f10  a4 72 65 61 64 73 74 72  69 6e 67 28 70 25 29 0d  |.readstring(p%).|
00001f20  00 f6 32 ea 61 24 3a 61  24 3d 22 22 3a c8 95 20  |..2.a$:a$="":.. |
00001f30  a9 61 24 3c 32 35 35 20  80 20 3f 70 25 3e 33 31  |.a$<255 . ?p%>31|
00001f40  20 61 24 2b 3d bd 3f 70  25 3a 70 25 2b 3d 31 3a  | a$+=.?p%:p%+=1:|
00001f50  ce 0d 00 f7 07 3d 61 24  0d 00 f8 14 dd a4 72 65  |.....=a$......re|
00001f60  61 64 73 79 73 76 61 72  28 61 24 29 0d 00 f9 08  |adsysvar(a$)....|
00001f70  ea 20 41 25 0d 00 fa 4f  c8 99 20 22 4f 53 5f 52  |. A%...O.. "OS_R|
00001f80  65 61 64 56 61 72 56 61  6c 22 2c 61 24 2c 62 6c  |eadVarVal",a$,bl|
00001f90  6b 25 2c 32 35 36 2c 30  2c 30 20 b8 20 2c 2c 61  |k%,256,0,0 . ,,a|
00001fa0  25 3a 61 24 3d 22 22 3a  e3 41 25 3d 30 b8 61 25  |%:a$="":.A%=0.a%|
00001fb0  2d 31 3a 61 24 2b 3d bd  28 62 6c 6b 25 3f 41 25  |-1:a$+=.(blk%?A%|
00001fc0  29 3a ed 0d 00 fb 07 3d  61 24 0d 00 fc 14 dd a4  |):.....=a$......|
00001fd0  72 65 61 64 76 64 75 76  61 72 28 61 25 29 0d 00  |readvduvar(a%)..|
00001fe0  fd 39 21 62 6c 6b 25 3d  61 25 3a 62 6c 6b 25 21  |.9!blk%=a%:blk%!|
00001ff0  34 3d 2d 31 3a c8 99 20  22 4f 53 5f 52 65 61 64  |4=-1:.. "OS_Read|
00002000  56 64 75 56 61 72 69 61  62 6c 65 73 22 2c 62 6c  |VduVariables",bl|
00002010  6b 25 2c 62 6c 6b 25 0d  00 fe 0a 3d 21 62 6c 6b  |k%,blk%....=!blk|
00002020  25 0d 00 ff 19 dd f2 67  65 74 69 63 6f 6e 73 74  |%......geticonst|
00002030  61 74 65 28 77 25 2c 69  25 29 0d 01 00 33 21 62  |ate(w%,i%)...3!b|
00002040  6c 6b 25 3d 77 25 3a 62  6c 6b 25 21 34 3d 69 25  |lk%=w%:blk%!4=i%|
00002050  3a c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  |:.. "Wimp_GetIco|
00002060  6e 53 74 61 74 65 22 2c  2c 62 6c 6b 25 0d 01 01  |nState",,blk%...|
00002070  05 e1 0d 01 02 17 dd a4  69 73 73 65 6c 65 63 74  |........isselect|
00002080  65 64 28 77 25 2c 69 25  29 0d 01 03 18 f2 67 65  |ed(w%,i%).....ge|
00002090  74 69 63 6f 6e 73 74 61  74 65 28 77 25 2c 69 25  |ticonstate(w%,i%|
000020a0  29 0d 01 04 20 3d 28 28  62 6c 6b 25 21 32 34 29  |)... =((blk%!24)|
000020b0  80 28 31 3c 3c 32 31 29  29 3d 28 31 3c 3c 32 31  |.(1<<21))=(1<<21|
000020c0  29 0d 01 05 12 dd a4 66  69 6c 65 74 79 70 65 28  |)......filetype(|
000020d0  61 24 29 0d 01 06 1b c8  99 20 22 58 4f 53 5f 46  |a$)...... "XOS_F|
000020e0  69 6c 65 22 2c 35 2c 61  24 20 b8 20 61 25 0d 01  |ile",5,a$ . a%..|
000020f0  07 07 3d 61 25 0d 01 08  18 dd a4 63 6f 6e 76 65  |..=a%......conve|
00002100  72 74 74 6f 6c 6f 77 65  72 28 61 24 29 0d 01 09  |rttolower(a$)...|
00002110  15 ea 20 6c 25 2c 62 24  2c 63 68 25 3a 62 24 3d  |.. l%,b$,ch%:b$=|
00002120  22 22 0d 01 0a 0d e3 6c  25 3d 31 b8 a9 61 24 0d  |"".....l%=1..a$.|
00002130  01 0b 14 63 68 25 3d 97  28 c1 61 24 2c 6c 25 2c  |...ch%=.(.a$,l%,|
00002140  31 29 29 0d 01 0c 21 e7  28 63 68 25 3e 26 34 30  |1))...!.(ch%>&40|
00002150  29 80 28 63 68 25 3c 26  35 42 29 3a 63 68 25 2b  |).(ch%<&5B):ch%+|
00002160  3d 26 32 30 0d 01 0d 0c  62 24 2b 3d bd 63 68 25  |=&20....b$+=.ch%|
00002170  0d 01 0e 05 ed 0d 01 0f  07 3d 62 24 0d 01 10 32  |.........=b$...2|
00002180  dd a4 6c 65 61 66 28 66  24 29 20 49 25 3d a9 66  |..leaf(f$) I%=.f|
00002190  24 3a c8 95 49 25 3e 31  80 c1 66 24 2c 49 25 2c  |$:..I%>1..f$,I%,|
000021a0  31 29 3c 3e 22 2e 22 49  25 2d 3d 31 3a ce 0d 01  |1)<>"."I%-=1:...|
000021b0  11 17 e7 c1 66 24 2c 49  25 2c 31 29 3d 22 2e 22  |....f$,I%,1)="."|
000021c0  49 25 2b 3d 31 0d 01 12  0c 3d c1 66 24 2c 49 25  |I%+=1....=.f$,I%|
000021d0  29 0d 01 13 16 dd f2 73  65 74 73 61 76 65 64 69  |)......setsavedi|
000021e0  72 28 64 69 72 24 29 0d  01 14 22 f2 70 75 74 69  |r(dir$)...".puti|
000021f0  63 6e 73 74 72 69 6e 67  28 73 65 74 75 70 77 25  |cnstring(setupw%|
00002200  2c 33 34 2c 64 69 72 24  29 0d 01 15 21 c8 99 20  |,34,dir$)...!.. |
00002210  22 57 69 6d 70 5f 53 65  74 43 61 72 65 74 50 6f  |"Wimp_SetCaretPo|
00002220  73 69 74 69 6f 6e 22 2c  2d 31 0d 01 16 11 ff 22  |sition",-1....."|
00002230  43 44 49 52 20 22 2b 64  69 72 24 0d 01 17 05 e1  |CDIR "+dir$.....|
00002240  0d 01 18 16 dd f2 73 65  74 73 61 76 65 64 69 72  |......setsavedir|
00002250  66 72 6f 6d 4f 4b 0d 01  19 21 c8 99 20 22 57 69  |fromOK...!.. "Wi|
00002260  6d 70 5f 53 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_SetCaretPosit|
00002270  69 6f 6e 22 2c 2d 31 0d  01 1a 07 ea 20 85 0d 01  |ion",-1..... ...|
00002280  1b 65 ee 85 ea 3a f7 20  85 3a f2 65 72 72 6f 72  |.e...:. .:.error|
00002290  28 22 49 6e 76 61 6c 69  64 20 70 61 74 68 20 61  |("Invalid path a|
000022a0  6e 64 2f 6f 72 20 64 69  72 65 63 74 6f 72 79 20  |nd/or directory |
000022b0  6e 61 6d 65 2e 20 43 72  65 61 74 69 6f 6e 20 6f  |name. Creation o|
000022c0  66 20 6e 65 77 20 73 61  76 65 20 64 69 72 65 63  |f new save direc|
000022d0  74 6f 72 79 20 61 62 6f  72 74 65 64 2e 22 2c 30  |tory aborted.",0|
000022e0  29 3a e1 0d 01 1c 26 ff  22 43 44 49 52 20 22 2b  |):....&."CDIR "+|
000022f0  a4 67 65 74 69 63 6e 73  74 72 69 6e 67 28 73 65  |.geticnstring(se|
00002300  74 75 70 77 25 2c 33 34  29 0d 01 1d 07 f7 20 85  |tupw%,34)..... .|
00002310  0d 01 1e 05 e1 0d 01 1f  15 dd f2 73 65 74 74 61  |...........setta|
00002320  73 6b 64 69 66 66 28 66  25 29 0d 01 20 0b e3 69  |skdiff(f%).. ..i|
00002330  25 3d 30 b8 31 0d 01 21  44 e7 69 25 3d 66 25 3a  |%=0.1..!D.i%=f%:|
00002340  f2 73 65 6c 65 63 74 69  63 6e 28 73 65 74 75 70  |.selecticn(setup|
00002350  77 25 2c 31 33 2b 69 25  2c b9 29 3a 8b 3a f2 73  |w%,13+i%,.):.:.s|
00002360  65 6c 65 63 74 69 63 6e  28 73 65 74 75 70 77 25  |electicn(setupw%|
00002370  2c 31 33 2b 69 25 2c a3  29 0d 01 22 05 ed 0d 01  |,13+i%,.).."....|
00002380  23 05 e1 0d 01 24 11 dd  f2 73 65 74 6d 6f 64 65  |#....$...setmode|
00002390  28 66 25 29 0d 01 25 0b  e3 69 25 3d 30 b8 31 0d  |(f%)..%..i%=0.1.|
000023a0  01 26 44 e7 69 25 3d 66  25 3a f2 73 65 6c 65 63  |.&D.i%=f%:.selec|
000023b0  74 69 63 6e 28 73 65 74  75 70 77 25 2c 31 37 2b  |ticn(setupw%,17+|
000023c0  69 25 2c b9 29 3a 8b 3a  f2 73 65 6c 65 63 74 69  |i%,.):.:.selecti|
000023d0  63 6e 28 73 65 74 75 70  77 25 2c 31 37 2b 69 25  |cn(setupw%,17+i%|
000023e0  2c a3 29 0d 01 27 05 ed  0d 01 28 05 e1 0d 01 29  |,.)..'....(....)|
000023f0  15 dd f2 73 65 74 63 6f  6e 74 63 6f 6d 6d 28 66  |...setcontcomm(f|
00002400  25 29 0d 01 2a 0b e3 69  25 3d 30 b8 31 0d 01 2b  |%)..*..i%=0.1..+|
00002410  44 e7 69 25 3d 66 25 3a  f2 73 65 6c 65 63 74 69  |D.i%=f%:.selecti|
00002420  63 6e 28 73 65 74 75 70  77 25 2c 33 39 2b 69 25  |cn(setupw%,39+i%|
00002430  2c b9 29 3a 8b 3a f2 73  65 6c 65 63 74 69 63 6e  |,.):.:.selecticn|
00002440  28 73 65 74 75 70 77 25  2c 33 39 2b 69 25 2c a3  |(setupw%,39+i%,.|
00002450  29 0d 01 2c 05 ed 0d 01  2d 05 e1 0d 01 2e 19 dd  |)..,....-.......|
00002460  f2 73 65 6c 65 63 74 69  63 6e 28 77 25 2c 69 25  |.selecticn(w%,i%|
00002470  2c 66 25 29 0d 01 2f 46  21 62 6c 6b 25 3d 77 25  |,f%)../F!blk%=w%|
00002480  3a 62 6c 6b 25 21 34 3d  69 25 3a 62 6c 6b 25 21  |:blk%!4=i%:blk%!|
00002490  31 32 3d 28 31 3c 3c 32  31 29 3a e7 66 25 3d 30  |12=(1<<21):.f%=0|
000024a0  20 62 6c 6b 25 21 38 3d  30 3a 8b 20 62 6c 6b 25  | blk%!8=0:. blk%|
000024b0  21 38 3d 62 6c 6b 25 21  31 32 0d 01 30 20 c8 99  |!8=blk%!12..0 ..|
000024c0  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
000024d0  61 74 65 22 2c 2c 62 6c  6b 25 0d 01 31 05 e1 0d  |ate",,blk%..1...|
000024e0  01 32 18 dd f2 73 68 61  64 65 69 63 6e 28 77 25  |.2...shadeicn(w%|
000024f0  2c 69 25 2c 66 25 29 0d  01 33 24 21 62 6c 6b 25  |,i%,f%)..3$!blk%|
00002500  3d 77 25 3a 62 6c 6b 25  21 34 3d 69 25 3a 62 6c  |=w%:blk%!4=i%:bl|
00002510  6b 25 21 31 32 3d 31 3c  3c 32 32 0d 01 34 1f e7  |k%!12=1<<22..4..|
00002520  66 25 20 62 6c 6b 25 21  38 3d 31 3c 3c 32 32 3a  |f% blk%!8=1<<22:|
00002530  8b 3a 62 6c 6b 25 21 38  3d 30 0d 01 35 20 c8 99  |.:blk%!8=0..5 ..|
00002540  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
00002550  61 74 65 22 2c 2c 62 6c  6b 25 0d 01 36 05 e1 0d  |ate",,blk%..6...|
00002560  01 37 17 dd f2 66 61 64  65 69 63 6e 28 77 25 2c  |.7...fadeicn(w%,|
00002570  69 25 2c 66 25 29 0d 01  38 08 ea 20 6a 25 0d 01  |i%,f%)..8.. j%..|
00002580  39 0e e3 20 6a 25 3d 32  34 b8 32 37 0d 01 3a 24  |9.. j%=24.27..:$|
00002590  21 62 6c 6b 25 3d 77 25  3a 62 6c 6b 25 21 34 3d  |!blk%=w%:blk%!4=|
000025a0  69 25 3a 62 6c 6b 25 21  31 32 3d 31 3c 3c 6a 25  |i%:blk%!12=1<<j%|
000025b0  0d 01 3b 09 e7 66 25 20  8c 0d 01 3c 23 e7 6a 25  |..;..f% ...<#.j%|
000025c0  3c 3d 32 35 3a 62 6c 6b  25 21 38 3d 31 3c 3c 6a  |<=25:blk%!8=1<<j|
000025d0  25 3a 8b 3a 62 6c 6b 25  21 38 3d 30 0d 01 3d 05  |%:.:blk%!8=0..=.|
000025e0  cc 0d 01 3e 23 e7 6a 25  3c 3d 32 36 3a 62 6c 6b  |...>#.j%<=26:blk|
000025f0  25 21 38 3d 31 3c 3c 6a  25 3a 8b 3a 62 6c 6b 25  |%!8=1<<j%:.:blk%|
00002600  21 38 3d 30 0d 01 3f 05  cd 0d 01 40 20 c8 99 20  |!8=0..?....@ .. |
00002610  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00002620  74 65 22 2c 2c 62 6c 6b  25 0d 01 41 05 ed 0d 01  |te",,blk%..A....|
00002630  42 05 e1 0d 01 43 17 dd  f2 68 69 64 65 69 63 6e  |B....C...hideicn|
00002640  28 77 25 2c 69 25 2c 66  25 29 0d 01 44 24 21 62  |(w%,i%,f%)..D$!b|
00002650  6c 6b 25 3d 77 25 3a 62  6c 6b 25 21 34 3d 69 25  |lk%=w%:blk%!4=i%|
00002660  3a 62 6c 6b 25 21 31 32  3d 31 3c 3c 32 33 0d 01  |:blk%!12=1<<23..|
00002670  45 1f e7 66 25 20 62 6c  6b 25 21 38 3d 31 3c 3c  |E..f% blk%!8=1<<|
00002680  32 33 3a 8b 3a 62 6c 6b  25 21 38 3d 30 0d 01 46  |23:.:blk%!8=0..F|
00002690  20 c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  | .. "Wimp_SetIco|
000026a0  6e 53 74 61 74 65 22 2c  2c 62 6c 6b 25 0d 01 47  |nState",,blk%..G|
000026b0  05 e1 0d 01 48 15 dd f2  68 69 64 65 73 61 76 65  |....H...hidesave|
000026c0  61 72 65 61 62 69 74 0d  01 49 26 e3 6a 25 3d 32  |areabit..I&.j%=2|
000026d0  39 b8 33 35 3a f2 68 69  64 65 69 63 6e 28 73 65  |9.35:.hideicn(se|
000026e0  74 75 70 77 25 2c 6a 25  2c b9 29 3a ed 0d 01 4a  |tupw%,j%,.):...J|
000026f0  05 e1 0d 01 4b 13 dd f2  63 72 65 61 74 65 62 61  |....K...createba|
00002700  72 69 63 6f 6e 0d 01 4c  16 24 62 61 72 69 63 6e  |ricon..L.$baricn|
00002710  25 3d 22 69 63 6f 6e 62  61 72 22 0d 01 4d 34 21  |%="iconbar"..M4!|
00002720  62 6c 6b 25 3d 2d 31 3a  62 6c 6b 25 21 34 3d 30  |blk%=-1:blk%!4=0|
00002730  3a 62 6c 6b 25 21 38 3d  30 3a 62 6c 6b 25 21 31  |:blk%!8=0:blk%!1|
00002740  32 3d 36 32 3a 62 6c 6b  25 21 31 36 3d 37 32 0d  |2=62:blk%!16=72.|
00002750  01 4e 4d 62 6c 6b 25 21  32 30 3d 26 31 30 30 30  |.NMblk%!20=&1000|
00002760  33 31 33 41 3a 62 6c 6b  25 21 32 34 3d 62 61 72  |313A:blk%!24=bar|
00002770  69 63 6e 25 3a 62 6c 6b  25 21 32 38 3d 75 73 65  |icn%:blk%!28=use|
00002780  72 77 69 6d 70 73 70 72  73 25 3a 62 6c 6b 25 21  |rwimpsprs%:blk%!|
00002790  33 32 3d a9 24 62 61 72  69 63 6e 25 0d 01 4f 1e  |32=.$baricn%..O.|
000027a0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 49  |.. "Wimp_CreateI|
000027b0  63 6f 6e 22 2c 2c 62 6c  6b 25 0d 01 50 05 e1 0d  |con",,blk%..P...|
000027c0  01 51 0e dd f2 70 6f 6c  6c 6c 6f 6f 70 0d 01 52  |.Q...pollloop..R|
000027d0  28 c8 99 20 22 57 69 6d  70 5f 50 6f 6c 6c 22 2c  |(.. "Wimp_Poll",|
000027e0  25 31 31 30 30 30 31 2c  62 6c 6b 25 20 b8 20 65  |%110001,blk% . e|
000027f0  76 65 6e 74 25 0d 01 53  0f c8 8e 20 65 76 65 6e  |vent%..S... even|
00002800  74 25 20 ca 0d 01 54 10  c9 20 31 3a 20 f2 72 65  |t% ...T.. 1: .re|
00002810  64 72 61 77 0d 01 55 18  c9 20 32 3a 20 f2 6f 70  |draw..U.. 2: .op|
00002820  65 6e 77 69 6e 64 28 62  6c 6b 25 29 0d 01 56 19  |enwind(blk%)..V.|
00002830  c9 20 33 3a 20 f2 63 6c  6f 73 65 77 69 6e 64 28  |. 3: .closewind(|
00002840  62 6c 6b 25 29 0d 01 57  27 c9 20 36 3a 20 f2 63  |blk%)..W'. 6: .c|
00002850  6c 69 63 6b 28 62 6c 6b  25 21 38 2c 62 6c 6b 25  |lick(blk%!8,blk%|
00002860  21 31 32 2c 62 6c 6b 25  21 31 36 29 0d 01 58 1a  |!12,blk%!16)..X.|
00002870  c9 20 37 3a 20 f2 73 65  6e 64 73 61 76 65 64 61  |. 7: .sendsaveda|
00002880  74 61 6d 65 73 73 0d 01  59 12 c9 20 38 3a 20 f2  |tamess..Y.. 8: .|
00002890  6b 65 79 65 76 65 6e 74  0d 01 5a 13 c9 20 39 3a  |keyevent..Z.. 9:|
000028a0  20 f2 6d 65 6e 75 63 6c  69 63 6b 0d 01 5b 15 c9  | .menuclick..[..|
000028b0  20 31 37 2c 31 38 3a 20  f2 72 65 63 65 69 76 65  | 17,18: .receive|
000028c0  0d 01 5c 05 cb 0d 01 5d  05 e1 0d 01 5e 0c dd f2  |..\....]....^...|
000028d0  72 65 64 72 61 77 0d 01  5f 28 c8 99 20 22 57 69  |redraw.._(.. "Wi|
000028e0  6d 70 5f 52 65 64 72 61  77 57 69 6e 64 6f 77 22  |mp_RedrawWindow"|
000028f0  2c 2c 62 6c 6b 25 20 b8  20 6d 6f 72 65 25 0d 01  |,,blk% . more%..|
00002900  60 0c c8 95 20 6d 6f 72  65 25 0d 01 61 29 c8 99  |`... more%..a)..|
00002910  20 22 57 69 6d 70 5f 47  65 74 52 65 63 74 61 6e  | "Wimp_GetRectan|
00002920  67 6c 65 22 2c 2c 62 6c  6b 25 20 b8 20 6d 6f 72  |gle",,blk% . mor|
00002930  65 25 3a 0d 01 62 05 ce  0d 01 63 05 e1 0d 01 64  |e%:..b....c....d|
00002940  12 dd f2 6f 70 65 6e 77  69 6e 64 28 62 25 29 0d  |...openwind(b%).|
00002950  01 65 1c c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |.e... "Wimp_Open|
00002960  57 69 6e 64 6f 77 22 2c  2c 62 25 0d 01 66 05 e1  |Window",,b%..f..|
00002970  0d 01 67 13 dd f2 63 6c  6f 73 65 77 69 6e 64 28  |..g...closewind(|
00002980  62 25 29 0d 01 68 1d c8  99 20 22 57 69 6d 70 5f  |b%)..h... "Wimp_|
00002990  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 62 25  |CloseWindow",,b%|
000029a0  0d 01 69 05 e1 0d 01 6a  1b dd f2 63 6c 69 63 6b  |..i....j...click|
000029b0  28 62 75 74 25 2c 77 69  6e 25 2c 69 63 6e 25 29  |(but%,win%,icn%)|
000029c0  0d 01 6b 0d c8 8e 20 77  69 6e 25 20 ca 0d 01 6c  |..k... win% ...l|
000029d0  09 c9 20 2d 32 3a 0d 01  6d 0d c8 8e 20 62 75 74  |.. -2:..m... but|
000029e0  25 20 ca 0d 01 6e 36 c9  20 32 3a 20 f2 6d 61 69  |% ...n6. 2: .mai|
000029f0  6e 6d 65 6e 75 28 22 43  72 79 73 74 61 6c 32 22  |nmenu("Crystal2"|
00002a00  2c 22 49 6e 66 6f 2c 37  51 75 69 74 2c 22 2c 21  |,"Info,7Quit,",!|
00002a10  62 6c 6b 25 2c 31 39 36  29 0d 01 6f 13 c9 20 34  |blk%,196)..o.. 4|
00002a20  3a 20 f2 73 74 61 72 74  67 61 6d 65 0d 01 70 05  |: .startgame..p.|
00002a30  cb 0d 01 71 26 c9 20 73  65 74 75 70 77 25 3a 20  |...q&. setupw%: |
00002a40  f2 73 65 74 75 70 77 63  6c 69 63 6b 28 62 75 74  |.setupwclick(but|
00002a50  25 2c 69 63 6e 25 29 0d  01 72 05 cb 0d 01 73 05  |%,icn%)..r....s.|
00002a60  e1 0d 01 74 27 dd f2 6d  61 69 6e 6d 65 6e 75 28  |...t'..mainmenu(|
00002a70  74 69 74 6c 65 24 2c 6d  65 6e 75 69 74 65 6d 73  |title$,menuitems|
00002a80  24 2c 78 25 2c 79 25 29  0d 01 75 22 f2 64 65 66  |$,x%,y%)..u".def|
00002a90  69 6e 65 6d 65 6e 75 28  74 69 74 6c 65 24 2c 6d  |inemenu(title$,m|
00002aa0  65 6e 75 69 74 65 6d 73  24 29 0d 01 76 1a f2 6c  |enuitems$)..v..l|
00002ab0  69 6e 6b 73 75 62 6d 65  6e 75 28 31 2c 69 6e 66  |inksubmenu(1,inf|
00002ac0  6f 77 25 29 0d 01 77 32  c8 99 20 22 57 69 6d 70  |ow%)..w2.. "Wimp|
00002ad0  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 6d 65  |_CreateMenu",,me|
00002ae0  6e 75 25 2c 78 25 2d 28  6d 65 6e 75 25 21 31 36  |nu%,x%-(menu%!16|
00002af0  2f 32 29 2c 79 25 0d 01  78 10 63 75 72 72 6d 65  |/2),y%..x.currme|
00002b00  6e 75 25 3d 2d 31 0d 01  79 05 e1 0d 01 7a 23 dd  |nu%=-1..y....z#.|
00002b10  f2 64 65 66 69 6e 65 6d  65 6e 75 28 74 69 74 6c  |.definemenu(titl|
00002b20  65 24 2c 6d 65 6e 75 69  74 65 6d 73 24 29 0d 01  |e$,menuitems$)..|
00002b30  7b 11 24 6d 65 6e 75 25  3d 74 69 74 6c 65 24 0d  |{.$menu%=title$.|
00002b40  01 7c 46 6d 65 6e 75 25  3f 31 32 3d 37 3a 6d 65  |.|Fmenu%?12=7:me|
00002b50  6e 75 25 3f 31 33 3d 32  3a 6d 65 6e 75 25 3f 31  |nu%?13=2:menu%?1|
00002b60  34 3d 37 3a 6d 65 6e 75  25 3f 31 35 3d 30 3a 6d  |4=7:menu%?15=0:m|
00002b70  65 6e 75 25 21 32 30 3d  34 30 3a 6d 65 6e 75 25  |enu%!20=40:menu%|
00002b80  21 32 34 3d 30 0d 01 7d  23 69 74 65 6d 25 3d 6d  |!24=0..}#item%=m|
00002b90  65 6e 75 25 2b 32 38 3a  77 69 64 74 68 25 3d a9  |enu%+28:width%=.|
00002ba0  28 74 69 74 6c 65 24 29  0d 01 7e 05 f5 0d 01 7f  |(title$)..~.....|
00002bb0  1b 63 6f 6d 6d 61 25 3d  a7 6d 65 6e 75 69 74 65  |.comma%=.menuite|
00002bc0  6d 73 24 2c 22 2c 22 29  0d 01 80 28 69 74 65 6d  |ms$,",")...(item|
00002bd0  24 3d c0 6d 65 6e 75 69  74 65 6d 73 24 2c 63 6f  |$=.menuitems$,co|
00002be0  6d 6d 61 25 2d 31 29 3a  21 69 74 65 6d 25 3d 30  |mma%-1):!item%=0|
00002bf0  0d 01 81 12 f5 3a 6d 6f  72 65 63 6f 64 65 73 25  |.....:morecodes%|
00002c00  3d a3 0d 01 82 35 e7 c0  69 74 65 6d 24 2c 31 29  |=....5..item$,1)|
00002c10  3d 22 30 22 20 21 69 74  65 6d 25 3d 28 21 69 74  |="0" !item%=(!it|
00002c20  65 6d 25 29 84 25 30 30  30 31 3a 6d 6f 72 65 63  |em%).%0001:morec|
00002c30  6f 64 65 73 25 3d b9 0d  01 83 35 e7 c0 69 74 65  |odes%=....5..ite|
00002c40  6d 24 2c 31 29 3d 22 31  22 20 21 69 74 65 6d 25  |m$,1)="1" !item%|
00002c50  3d 28 21 69 74 65 6d 25  29 84 25 30 30 31 30 3a  |=(!item%).%0010:|
00002c60  6d 6f 72 65 63 6f 64 65  73 25 3d b9 0d 01 84 35  |morecodes%=....5|
00002c70  e7 c0 69 74 65 6d 24 2c  31 29 3d 22 32 22 20 21  |..item$,1)="2" !|
00002c80  69 74 65 6d 25 3d 28 21  69 74 65 6d 25 29 84 25  |item%=(!item%).%|
00002c90  30 31 30 30 3a 6d 6f 72  65 63 6f 64 65 73 25 3d  |0100:morecodes%=|
00002ca0  b9 0d 01 85 35 e7 c0 69  74 65 6d 24 2c 31 29 3d  |....5..item$,1)=|
00002cb0  22 33 22 20 21 69 74 65  6d 25 3d 28 21 69 74 65  |"3" !item%=(!ite|
00002cc0  6d 25 29 84 25 31 30 30  30 3a 6d 6f 72 65 63 6f  |m%).%1000:moreco|
00002cd0  64 65 73 25 3d b9 0d 01  86 39 e7 c0 69 74 65 6d  |des%=....9..item|
00002ce0  24 2c 31 29 3d 22 37 22  20 21 69 74 65 6d 25 3d  |$,1)="7" !item%=|
00002cf0  28 21 69 74 65 6d 25 29  84 25 31 30 30 30 30 30  |(!item%).%100000|
00002d00  30 30 3a 6d 6f 72 65 63  6f 64 65 73 25 3d b9 0d  |00:morecodes%=..|
00002d10  01 87 51 e7 c0 69 74 65  6d 24 2c 31 29 3d 22 38  |..Q..item$,1)="8|
00002d20  22 20 69 74 65 6d 25 21  38 3d 26 30 37 34 30 30  |" item%!8=&07400|
00002d30  30 32 31 3a 69 74 65 6d  24 3d c2 69 74 65 6d 24  |021:item$=.item$|
00002d40  2c a9 28 69 74 65 6d 24  29 2d 31 29 3a 8b 3a 69  |,.(item$)-1):.:i|
00002d50  74 65 6d 25 21 38 3d 26  30 37 30 30 30 30 32 31  |tem%!8=&07000021|
00002d60  0d 01 88 29 e7 20 6d 6f  72 65 63 6f 64 65 73 25  |...). morecodes%|
00002d70  20 69 74 65 6d 24 3d c2  69 74 65 6d 24 2c a9 28  | item$=.item$,.(|
00002d80  69 74 65 6d 24 29 2d 31  29 0d 01 89 12 fd 20 ac  |item$)-1)..... .|
00002d90  20 6d 6f 72 65 63 6f 64  65 73 25 0d 01 8a 15 24  | morecodes%....$|
00002da0  28 69 74 65 6d 25 2b 31  32 29 3d 69 74 65 6d 24  |(item%+12)=item$|
00002db0  0d 01 8b 2a e7 28 a9 28  69 74 65 6d 24 29 2b 31  |...*.(.(item$)+1|
00002dc0  29 3e 77 69 64 74 68 25  3a 77 69 64 74 68 25 3d  |)>width%:width%=|
00002dd0  a9 28 69 74 65 6d 24 29  2b 31 0d 01 8c 0e 69 74  |.(item$)+1....it|
00002de0  65 6d 25 21 34 3d 2d 31  0d 01 8d 24 6d 65 6e 75  |em%!4=-1...$menu|
00002df0  69 74 65 6d 73 24 3d c1  6d 65 6e 75 69 74 65 6d  |items$=.menuitem|
00002e00  73 24 2c 63 6f 6d 6d 61  25 2b 31 29 0d 01 8e 12  |s$,comma%+1)....|
00002e10  69 74 65 6d 25 3d 69 74  65 6d 25 2b 32 34 0d 01  |item%=item%+24..|
00002e20  8f 13 fd 20 6d 65 6e 75  69 74 65 6d 73 24 3d 22  |... menuitems$="|
00002e30  22 0d 01 90 16 6d 65 6e  75 25 21 31 36 3d 77 69  |"....menu%!16=wi|
00002e40  64 74 68 25 2a 31 36 0d  01 91 05 e1 0d 01 92 1d  |dth%*16.........|
00002e50  dd f2 6c 69 6e 6b 73 75  62 6d 65 6e 75 28 69 74  |..linksubmenu(it|
00002e60  65 6d 6e 6f 25 2c 77 25  29 0d 01 93 23 69 74 65  |emno%,w%)...#ite|
00002e70  6d 25 3d 6d 65 6e 75 25  2b 32 38 2b 28 28 69 74  |m%=menu%+28+((it|
00002e80  65 6d 6e 6f 25 2d 31 29  2a 32 34 29 0d 01 94 0e  |emno%-1)*24)....|
00002e90  69 74 65 6d 25 21 34 3d  77 25 0d 01 95 05 e1 0d  |item%!4=w%......|
00002ea0  01 96 18 dd f2 73 65 74  75 70 77 63 6c 69 63 6b  |.....setupwclick|
00002eb0  28 62 25 2c 69 25 29 0d  01 97 08 ea 20 6a 25 0d  |(b%,i%)..... j%.|
00002ec0  01 98 0b e7 62 25 3d 32  3a e1 0d 01 99 0b c8 8e  |....b%=2:.......|
00002ed0  20 69 25 20 ca 0d 01 9a  52 c9 20 32 3a 20 e7 62  | i% ....R. 2: .b|
00002ee0  25 3d 36 34 20 f2 73 74  61 72 74 64 72 61 67 28  |%=64 .startdrag(|
00002ef0  73 65 74 75 70 77 25 2c  69 25 2c a4 6c 65 61 66  |setupw%,i%,.leaf|
00002f00  28 a4 67 65 74 69 63 6e  73 74 72 69 6e 67 28 73  |(.geticnstring(s|
00002f10  65 74 75 70 77 25 2c 33  29 29 29 3a 64 72 61 67  |etupw%,3))):drag|
00002f20  67 69 6e 67 25 3d 31 0d  01 9b 2d c9 20 34 3a 20  |ging%=1...-. 4: |
00002f30  f2 73 61 76 65 73 65 74  75 70 28 a4 67 65 74 69  |.savesetup(.geti|
00002f40  63 6e 73 74 72 69 6e 67  28 73 65 74 75 70 77 25  |cnstring(setupw%|
00002f50  2c 33 29 29 0d 01 9c 3d  c9 20 31 37 2c 31 39 3a  |,3))...=. 17,19:|
00002f60  f2 73 65 6c 65 63 74 69  63 6e 28 73 65 74 75 70  |.selecticn(setup|
00002f70  77 25 2c 31 37 2c b9 29  3a f2 73 65 6c 65 63 74  |w%,17,.):.select|
00002f80  69 63 6e 28 73 65 74 75  70 77 25 2c 31 38 2c a3  |icn(setupw%,18,.|
00002f90  29 0d 01 9d 3d c9 20 31  38 2c 32 30 3a f2 73 65  |)...=. 18,20:.se|
00002fa0  6c 65 63 74 69 63 6e 28  73 65 74 75 70 77 25 2c  |lecticn(setupw%,|
00002fb0  31 38 2c b9 29 3a f2 73  65 6c 65 63 74 69 63 6e  |18,.):.selecticn|
00002fc0  28 73 65 74 75 70 77 25  2c 31 37 2c a3 29 0d 01  |(setupw%,17,.)..|
00002fd0  9e 33 c9 20 32 34 3a 20  e7 62 25 3d 34 3a f2 73  |.3. 24: .b%=4:.s|
00002fe0  65 74 73 74 61 72 74 28  2d 31 29 3a 8b 3a e7 62  |etstart(-1):.:.b|
00002ff0  25 3d 31 3a f2 73 65 74  73 74 61 72 74 28 2b 31  |%=1:.setstart(+1|
00003000  29 0d 01 9f 33 c9 20 32  35 3a 20 e7 62 25 3d 34  |)...3. 25: .b%=4|
00003010  3a f2 73 65 74 73 74 61  72 74 28 2b 31 29 3a 8b  |:.setstart(+1):.|
00003020  3a e7 62 25 3d 31 3a f2  73 65 74 73 74 61 72 74  |:.b%=1:.setstart|
00003030  28 2d 31 29 0d 01 a0 89  c9 20 33 32 3a 20 f2 65  |(-1)..... 32: .e|
00003040  72 72 6f 72 28 22 44 72  6f 70 20 61 20 64 69 72  |rror("Drop a dir|
00003050  65 63 74 6f 72 79 20 69  63 6f 6e 20 68 65 72 65  |ectory icon here|
00003060  20 74 6f 20 63 68 61 6e  67 65 20 74 68 65 20 27  | to change the '|
00003070  73 61 76 65 64 20 73 63  72 65 65 6e 27 20 64 69  |saved screen' di|
00003080  72 65 63 74 6f 72 79 20  28 61 6c 74 65 72 6e 61  |rectory (alterna|
00003090  74 69 76 65 6c 79 20 64  72 61 67 20 6f 75 74 20  |tively drag out |
000030a0  74 68 65 20 64 69 72 65  63 74 6f 72 79 20 69 63  |the directory ic|
000030b0  6f 6e 20 67 69 76 65 6e  29 22 2c 30 29 0d 01 a1  |on given)",0)...|
000030c0  36 c9 20 33 33 3a 20 e7  62 25 3d 36 34 20 f2 73  |6. 33: .b%=64 .s|
000030d0  74 61 72 74 64 72 61 67  28 73 65 74 75 70 77 25  |tartdrag(setupw%|
000030e0  2c 69 25 2c 22 22 29 3a  64 72 61 67 67 69 6e 67  |,i%,""):dragging|
000030f0  25 3d 32 0d 01 a2 1b c9  20 33 35 3a 20 f2 73 65  |%=2..... 35: .se|
00003100  74 73 61 76 65 64 69 72  66 72 6f 6d 4f 4b 0d 01  |tsavedirfromOK..|
00003110  a3 25 c9 20 33 39 2c 34  30 3a e7 a4 69 73 73 65  |.%. 39,40:..isse|
00003120  6c 65 63 74 65 64 28 73  65 74 75 70 77 25 2c 34  |lected(setupw%,4|
00003130  30 29 8c 0d 01 a4 28 e3  6a 25 3d 30 b8 31 35 3a  |0)....(.j%=0.15:|
00003140  f2 68 69 64 65 69 63 6e  28 73 65 74 75 70 77 25  |.hideicn(setupw%|
00003150  2c 37 33 2b 6a 25 2c b9  29 3a ed 0d 01 a5 28 e3  |,73+j%,.):....(.|
00003160  6a 25 3d 30 b8 31 35 3a  f2 66 61 64 65 69 63 6e  |j%=0.15:.fadeicn|
00003170  28 73 65 74 75 70 77 25  2c 34 31 2b 6a 25 2c b9  |(setupw%,41+j%,.|
00003180  29 3a ed 0d 01 a6 4d c8  99 20 22 57 69 6d 70 5f  |):....M.. "Wimp_|
00003190  53 65 74 43 61 72 65 74  50 6f 73 69 74 69 6f 6e  |SetCaretPosition|
000031a0  22 2c 73 65 74 75 70 77  25 2c 36 30 2c 30 2c 30  |",setupw%,60,0,0|
000031b0  2c 2d 31 2c a9 28 a4 67  65 74 69 63 6e 73 74 72  |,-1,.(.geticnstr|
000031c0  69 6e 67 28 73 65 74 75  70 77 25 2c 36 30 29 29  |ing(setupw%,60))|
000031d0  0d 01 a7 05 cc 0d 01 a8  28 e3 6a 25 3d 30 b8 31  |........(.j%=0.1|
000031e0  35 3a f2 68 69 64 65 69  63 6e 28 73 65 74 75 70  |5:.hideicn(setup|
000031f0  77 25 2c 37 33 2b 6a 25  2c a3 29 3a ed 0d 01 a9  |w%,73+j%,.):....|
00003200  28 e3 6a 25 3d 30 b8 31  35 3a f2 66 61 64 65 69  |(.j%=0.15:.fadei|
00003210  63 6e 28 73 65 74 75 70  77 25 2c 34 31 2b 6a 25  |cn(setupw%,41+j%|
00003220  2c a3 29 3a ed 0d 01 aa  21 c8 99 20 22 57 69 6d  |,.):....!.. "Wim|
00003230  70 5f 53 65 74 43 61 72  65 74 50 6f 73 69 74 69  |p_SetCaretPositi|
00003240  6f 6e 22 2c 2d 31 0d 01  ab 05 cd 0d 01 ac 05 cb  |on",-1..........|
00003250  0d 01 ad 05 e1 0d 01 ae  13 dd f2 77 69 6e 74 6f  |...........winto|
00003260  73 63 72 6e 28 62 25 29  0d 01 af 2e 21 62 6c 6b  |scrn(b%)....!blk|
00003270  32 25 3d 21 62 25 3a c8  99 20 22 57 69 6d 70 5f  |2%=!b%:.. "Wimp_|
00003280  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00003290  2c 62 6c 6b 32 25 0d 01  b0 1e 62 25 21 38 2b 3d  |,blk2%....b%!8+=|
000032a0  28 62 6c 6b 32 25 21 34  29 2d 28 62 6c 6b 32 25  |(blk2%!4)-(blk2%|
000032b0  21 32 30 29 0d 01 b1 20  62 25 21 31 32 2b 3d 28  |!20)... b%!12+=(|
000032c0  62 6c 6b 32 25 21 31 36  29 2d 28 62 6c 6b 32 25  |blk2%!16)-(blk2%|
000032d0  21 32 34 29 0d 01 b2 1f  62 25 21 31 36 2b 3d 28  |!24)....b%!16+=(|
000032e0  62 6c 6b 32 25 21 34 29  2d 28 62 6c 6b 32 25 21  |blk2%!4)-(blk2%!|
000032f0  32 30 29 0d 01 b3 20 62  25 21 32 30 2b 3d 28 62  |20)... b%!20+=(b|
00003300  6c 6b 32 25 21 31 36 29  2d 28 62 6c 6b 32 25 21  |lk2%!16)-(blk2%!|
00003310  32 34 29 0d 01 b4 05 e1  0d 01 b5 19 dd f2 73 74  |24)...........st|
00003320  61 72 74 64 72 61 67 28  77 25 2c 69 25 2c 6e 24  |artdrag(w%,i%,n$|
00003330  29 0d 01 b6 15 70 72 6f  70 6f 73 65 64 66 6e 61  |)....proposedfna|
00003340  6d 65 24 3d 6e 24 0d 01  b7 33 21 62 6c 6b 25 3d  |me$=n$...3!blk%=|
00003350  77 25 3a 62 6c 6b 25 21  34 3d 69 25 3a c8 99 20  |w%:blk%!4=i%:.. |
00003360  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00003370  74 65 22 2c 2c 62 6c 6b  25 0d 01 b8 3f f2 77 69  |te",,blk%...?.wi|
00003380  6e 74 6f 73 63 72 6e 28  62 6c 6b 25 29 3a 62 6c  |ntoscrn(blk%):bl|
00003390  6b 25 21 38 2d 3d 34 3a  62 6c 6b 25 21 31 32 2d  |k%!8-=4:blk%!12-|
000033a0  3d 34 3a 62 6c 6b 25 21  31 36 2b 3d 34 3a 62 6c  |=4:blk%!16+=4:bl|
000033b0  6b 25 21 32 30 2b 3d 34  0d 01 b9 52 62 6c 6b 25  |k%!20+=4...Rblk%|
000033c0  21 34 3d 35 3a 62 6c 6b  25 21 32 34 3d 30 3a 62  |!4=5:blk%!24=0:b|
000033d0  6c 6b 25 21 32 38 3d 30  3a 62 6c 6b 25 21 33 32  |lk%!28=0:blk%!32|
000033e0  3d 32 30 30 30 3a 62 6c  6b 25 21 33 36 3d 32 30  |=2000:blk%!36=20|
000033f0  30 30 3a c8 99 20 22 57  69 6d 70 5f 44 72 61 67  |00:.. "Wimp_Drag|
00003400  42 6f 78 22 2c 2c 62 6c  6b 25 0d 01 ba 05 e1 0d  |Box",,blk%......|
00003410  01 bb 18 dd f2 65 72 72  6f 72 28 6d 73 67 24 2c  |.....error(msg$,|
00003420  65 72 72 6e 6f 25 29 0d  01 bc 21 21 65 72 72 62  |errno%)...!!errb|
00003430  6c 6b 25 3d 39 39 3a 24  28 65 72 72 62 6c 6b 25  |lk%=99:$(errblk%|
00003440  2b 34 29 3d 6d 73 67 24  0d 01 bd 2e c8 99 20 22  |+4)=msg$...... "|
00003450  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
00003460  22 2c 65 72 72 62 6c 6b  25 2c 30 2c 22 43 72 79  |",errblk%,0,"Cry|
00003470  73 74 61 6c 32 22 0d 01  be 05 e1 0d 01 bf 16 dd  |stal2"..........|
00003480  f2 73 65 6e 64 73 61 76  65 64 61 74 61 6d 65 73  |.sendsavedatames|
00003490  73 0d 01 c0 4b c8 99 20  22 57 69 6d 70 5f 47 65  |s...K.. "Wimp_Ge|
000034a0  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 2c 2c 62  |tPointerInfo",,b|
000034b0  6c 6b 25 3a 78 25 3d 21  62 6c 6b 25 3a 79 25 3d  |lk%:x%=!blk%:y%=|
000034c0  62 6c 6b 25 21 34 3a 77  25 3d 62 6c 6b 25 21 31  |blk%!4:w%=blk%!1|
000034d0  32 3a 69 25 3d 62 6c 6b  25 21 31 36 0d 01 c1 83  |2:i%=blk%!16....|
000034e0  21 62 6c 6b 25 3d 35 36  3a 62 6c 6b 25 21 31 32  |!blk%=56:blk%!12|
000034f0  3d 30 3a 62 6c 6b 25 21  31 36 3d 31 3a 62 6c 6b  |=0:blk%!16=1:blk|
00003500  25 21 32 30 3d 77 25 3a  62 6c 6b 25 21 32 34 3d  |%!20=w%:blk%!24=|
00003510  69 25 3a 62 6c 6b 25 21  32 38 3d 78 25 3a 62 6c  |i%:blk%!28=x%:bl|
00003520  6b 25 21 33 32 3d 79 25  3a 62 6c 6b 25 21 33 36  |k%!32=y%:blk%!36|
00003530  3d 31 32 30 30 3a 62 6c  6b 25 21 34 30 3d 26 46  |=1200:blk%!40=&F|
00003540  46 46 3a 24 28 62 6c 6b  25 2b 34 34 29 3d 70 72  |FF:$(blk%+44)=pr|
00003550  6f 70 6f 73 65 64 66 6e  61 6d 65 24 2b bd 30 0d  |oposedfname$+.0.|
00003560  01 c2 32 c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |..2.. "Wimp_Send|
00003570  4d 65 73 73 61 67 65 22  2c 31 37 2c 62 6c 6b 25  |Message",17,blk%|
00003580  2c 77 25 3a 6d 79 72 65  66 25 3d 62 6c 6b 25 21  |,w%:myref%=blk%!|
00003590  38 0d 01 c3 05 e1 0d 01  c4 0e dd f2 6b 65 79 65  |8...........keye|
000035a0  76 65 6e 74 0d 01 c5 32  e7 21 62 6c 6b 25 3c 3e  |vent...2.!blk%<>|
000035b0  73 65 74 75 70 77 25 3a  c8 99 20 22 57 69 6d 70  |setupw%:.. "Wimp|
000035c0  5f 50 72 6f 63 65 73 73  4b 65 79 22 2c 62 6c 6b  |_ProcessKey",blk|
000035d0  25 21 32 34 3a e1 0d 01  c6 32 e7 28 28 62 6c 6b  |%!24:....2.((blk|
000035e0  25 21 32 34 29 3d 31 33  29 80 28 28 28 62 6c 6b  |%!24)=13).(((blk|
000035f0  25 21 34 29 3d 33 29 84  28 28 62 6c 6b 25 21 34  |%!4)=3).((blk%!4|
00003600  29 3d 33 34 29 29 20 8c  0d 01 c7 0f c8 8e 20 62  |)=34)) ....... b|
00003610  6c 6b 25 21 34 20 ca 0d  01 c8 2d c9 20 33 3a 20  |lk%!4 ....-. 3: |
00003620  f2 73 61 76 65 73 65 74  75 70 28 a4 67 65 74 69  |.savesetup(.geti|
00003630  63 6e 73 74 72 69 6e 67  28 73 65 74 75 70 77 25  |cnstring(setupw%|
00003640  2c 33 29 29 0d 01 c9 1b  c9 20 33 34 3a 20 f2 73  |,3))..... 34: .s|
00003650  65 74 73 61 76 65 64 69  72 66 72 6f 6d 4f 4b 0d  |etsavedirfromOK.|
00003660  01 ca 05 cb 0d 01 cb 05  cc 0d 01 cc 17 20 20 e7  |.............  .|
00003670  28 62 6c 6b 25 21 32 34  29 3d 26 31 38 46 20 8c  |(blk%!24)=&18F .|
00003680  0d 01 cd 15 20 20 20 20  c8 8e 20 28 62 6c 6b 25  |....    .. (blk%|
00003690  21 34 29 20 ca 0d 01 ce  68 20 20 20 20 20 20 c9  |!4) ....h      .|
000036a0  20 36 32 3a c8 99 20 22  57 69 6d 70 5f 53 65 74  | 62:.. "Wimp_Set|
000036b0  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 73  |CaretPosition",s|
000036c0  65 74 75 70 77 25 2c 28  62 6c 6b 25 21 34 29 2d  |etupw%,(blk%!4)-|
000036d0  32 2c 30 2c 30 2c 2d 31  2c a9 28 a4 67 65 74 69  |2,0,0,-1,.(.geti|
000036e0  63 6e 73 74 72 69 6e 67  28 73 65 74 75 70 77 25  |cnstring(setupw%|
000036f0  2c 28 62 6c 6b 25 21 34  29 2d 32 29 29 0d 01 cf  |,(blk%!4)-2))...|
00003700  71 20 20 20 20 20 20 c9  20 36 33 2c 36 34 2c 36  |q      . 63,64,6|
00003710  35 2c 36 36 3a c8 99 20  22 57 69 6d 70 5f 53 65  |5,66:.. "Wimp_Se|
00003720  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
00003730  73 65 74 75 70 77 25 2c  28 62 6c 6b 25 21 34 29  |setupw%,(blk%!4)|
00003740  2d 31 2c 30 2c 30 2c 2d  31 2c a9 28 a4 67 65 74  |-1,0,0,-1,.(.get|
00003750  69 63 6e 73 74 72 69 6e  67 28 73 65 74 75 70 77  |icnstring(setupw|
00003760  25 2c 28 62 6c 6b 25 21  34 29 2d 31 29 29 0d 01  |%,(blk%!4)-1))..|
00003770  d0 68 20 20 20 20 20 20  c9 20 37 32 3a c8 99 20  |.h      . 72:.. |
00003780  22 57 69 6d 70 5f 53 65  74 43 61 72 65 74 50 6f  |"Wimp_SetCaretPo|
00003790  73 69 74 69 6f 6e 22 2c  73 65 74 75 70 77 25 2c  |sition",setupw%,|
000037a0  28 62 6c 6b 25 21 34 29  2d 36 2c 30 2c 30 2c 2d  |(blk%!4)-6,0,0,-|
000037b0  31 2c a9 28 a4 67 65 74  69 63 6e 73 74 72 69 6e  |1,.(.geticnstrin|
000037c0  67 28 73 65 74 75 70 77  25 2c 28 62 6c 6b 25 21  |g(setupw%,(blk%!|
000037d0  34 29 2d 36 29 29 0d 01  d1 09 20 20 20 20 cb 0d  |4)-6))....    ..|
000037e0  01 d2 07 20 20 cd 0d 01  d3 26 20 20 e7 28 62 6c  |...  ....&  .(bl|
000037f0  6b 25 21 32 34 29 3d 26  31 38 45 20 84 20 28 62  |k%!24)=&18E . (b|
00003800  6c 6b 25 21 32 34 29 3d  31 33 20 8c 0d 01 d4 15  |lk%!24)=13 .....|
00003810  20 20 20 20 c8 8e 20 28  62 6c 6b 25 21 34 29 20  |    .. (blk%!4) |
00003820  ca 0d 01 d5 68 20 20 20  20 20 20 c9 20 36 30 3a  |....h      . 60:|
00003830  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |.. "Wimp_SetCare|
00003840  74 50 6f 73 69 74 69 6f  6e 22 2c 73 65 74 75 70  |tPosition",setup|
00003850  77 25 2c 28 62 6c 6b 25  21 34 29 2b 32 2c 30 2c  |w%,(blk%!4)+2,0,|
00003860  30 2c 2d 31 2c a9 28 a4  67 65 74 69 63 6e 73 74  |0,-1,.(.geticnst|
00003870  72 69 6e 67 28 73 65 74  75 70 77 25 2c 28 62 6c  |ring(setupw%,(bl|
00003880  6b 25 21 34 29 2b 32 29  29 0d 01 d6 71 20 20 20  |k%!4)+2))...q   |
00003890  20 20 20 c9 20 36 32 2c  36 33 2c 36 34 2c 36 35  |   . 62,63,64,65|
000038a0  3a c8 99 20 22 57 69 6d  70 5f 53 65 74 43 61 72  |:.. "Wimp_SetCar|
000038b0  65 74 50 6f 73 69 74 69  6f 6e 22 2c 73 65 74 75  |etPosition",setu|
000038c0  70 77 25 2c 28 62 6c 6b  25 21 34 29 2b 31 2c 30  |pw%,(blk%!4)+1,0|
000038d0  2c 30 2c 2d 31 2c a9 28  a4 67 65 74 69 63 6e 73  |,0,-1,.(.geticns|
000038e0  74 72 69 6e 67 28 73 65  74 75 70 77 25 2c 28 62  |tring(setupw%,(b|
000038f0  6c 6b 25 21 34 29 2b 31  29 29 0d 01 d7 68 20 20  |lk%!4)+1))...h  |
00003900  20 20 20 20 c9 20 36 36  3a c8 99 20 22 57 69 6d  |    . 66:.. "Wim|
00003910  70 5f 53 65 74 43 61 72  65 74 50 6f 73 69 74 69  |p_SetCaretPositi|
00003920  6f 6e 22 2c 73 65 74 75  70 77 25 2c 28 62 6c 6b  |on",setupw%,(blk|
00003930  25 21 34 29 2b 36 2c 30  2c 30 2c 2d 31 2c a9 28  |%!4)+6,0,0,-1,.(|
00003940  a4 67 65 74 69 63 6e 73  74 72 69 6e 67 28 73 65  |.geticnstring(se|
00003950  74 75 70 77 25 2c 28 62  6c 6b 25 21 34 29 2b 36  |tupw%,(blk%!4)+6|
00003960  29 29 0d 01 d8 09 20 20  20 20 cb 0d 01 d9 07 20  |))....    ..... |
00003970  20 cd 0d 01 da 21 20 c8  99 20 22 57 69 6d 70 5f  | ....! .. "Wimp_|
00003980  50 72 6f 63 65 73 73 4b  65 79 22 2c 62 6c 6b 25  |ProcessKey",blk%|
00003990  21 32 34 0d 01 db 05 cd  0d 01 dc 05 e1 0d 01 dd  |!24.............|
000039a0  04 0d 01 de 0f dd f2 6d  65 6e 75 63 6c 69 63 6b  |.......menuclick|
000039b0  0d 01 df 23 c8 99 20 22  57 69 6d 70 5f 47 65 74  |...#.. "Wimp_Get|
000039c0  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 62 6c  |PointerInfo",,bl|
000039d0  6b 32 25 0d 01 e0 18 63  75 72 72 6d 65 6e 75 62  |k2%....currmenub|
000039e0  75 74 25 3d 62 6c 6b 32  25 21 38 0d 01 e1 12 c8  |ut%=blk2%!8.....|
000039f0  8e 20 63 75 72 72 6d 65  6e 75 25 20 ca 0d 01 e2  |. currmenu% ....|
00003a00  09 c9 20 2d 31 3a 0d 01  e3 0e c8 8e 20 21 62 6c  |.. -1:...... !bl|
00003a10  6b 25 20 ca 0d 01 e4 15  c9 20 30 3a 20 f2 63 68  |k% ...... 0: .ch|
00003a20  65 63 6b 61 64 6a 75 73  74 0d 01 e5 10 c9 20 31  |eckadjust..... 1|
00003a30  3a 20 71 75 69 74 25 3d  b9 0d 01 e6 05 cb 0d 01  |: quit%=........|
00003a40  e7 05 cb 0d 01 e8 05 e1  0d 01 e9 11 dd f2 63 68  |..............ch|
00003a50  65 63 6b 61 64 6a 75 73  74 0d 01 ea 37 e7 63 75  |eckadjust...7.cu|
00003a60  72 72 6d 65 6e 75 62 75  74 25 3d 31 3a c8 99 20  |rrmenubut%=1:.. |
00003a70  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00003a80  22 2c 2c 6d 65 6e 75 25  2c 31 30 30 2c 31 30 30  |",,menu%,100,100|
00003a90  0d 01 eb 05 e1 0d 01 ec  0d dd f2 72 65 63 65 69  |...........recei|
00003aa0  76 65 0d 01 ed 10 c8 8e  20 62 6c 6b 25 21 31 36  |ve...... blk%!16|
00003ab0  20 ca 0d 01 ee 10 c9 20  30 3a 20 71 75 69 74 25  | ...... 0: quit%|
00003ac0  3d b9 0d 01 ef 36 c9 20  32 3a 20 e7 64 72 61 67  |=....6. 2: .drag|
00003ad0  67 69 6e 67 25 3d 31 3a  f2 73 61 76 65 73 65 74  |ging%=1:.saveset|
00003ae0  75 70 28 a4 72 65 61 64  73 74 72 69 6e 67 28 62  |up(.readstring(b|
00003af0  6c 6b 25 2b 34 34 29 29  0d 01 f0 12 e7 64 72 61  |lk%+44)).....dra|
00003b00  67 67 69 6e 67 25 3d 32  20 8c 0d 01 f1 5a e7 a4  |gging%=2 ....Z..|
00003b10  6c 65 61 66 28 a4 67 65  74 69 63 6e 73 74 72 69  |leaf(.geticnstri|
00003b20  6e 67 28 73 65 74 75 70  77 25 2c 33 34 29 29 3d  |ng(setupw%,34))=|
00003b30  22 22 3a f2 65 72 72 6f  72 28 22 59 6f 75 20 6d  |"":.error("You m|
00003b40  75 73 74 20 67 69 76 65  20 74 68 69 73 20 64 69  |ust give this di|
00003b50  72 65 63 74 6f 72 79 20  61 20 6e 61 6d 65 22 2c  |rectory a name",|
00003b60  31 29 3a e1 0d 01 f2 46  f2 73 65 74 73 61 76 65  |1):....F.setsave|
00003b70  64 69 72 28 a4 72 65 61  64 73 74 72 69 6e 67 28  |dir(.readstring(|
00003b80  62 6c 6b 25 2b 34 34 29  2b a4 6c 65 61 66 28 a4  |blk%+44)+.leaf(.|
00003b90  67 65 74 69 63 6e 73 74  72 69 6e 67 28 73 65 74  |geticnstring(set|
00003ba0  75 70 77 25 2c 33 34 29  29 29 0d 01 f3 05 cd 0d  |upw%,34)))......|
00003bb0  01 f4 41 c9 20 33 3a 20  e3 6a 25 3d 30 b8 21 62  |..A. 3: .j%=0.!b|
00003bc0  6c 6b 25 88 34 3a 62 6c  6b 32 25 21 6a 25 3d 62  |lk%.4:blk2%!j%=b|
00003bd0  6c 6b 25 21 6a 25 3a ed  3a 61 24 3d a4 72 65 61  |lk%!j%:.:a$=.rea|
00003be0  64 73 74 72 69 6e 67 28  62 6c 6b 25 2b 34 34 29  |dstring(blk%+44)|
00003bf0  0d 01 f5 11 e7 62 6c 6b  25 21 32 34 3d 33 32 20  |.....blk%!24=32 |
00003c00  8c 0d 01 f6 40 e7 a4 66  69 6c 65 74 79 70 65 28  |....@..filetype(|
00003c10  61 24 29 3c 3e 32 f2 65  72 72 6f 72 28 22 4f 6e  |a$)<>2.error("On|
00003c20  6c 79 20 64 69 72 65 63  74 6f 72 69 65 73 20 61  |ly directories a|
00003c30  6c 6c 6f 77 65 64 20 68  65 72 65 22 2c 31 29 3a  |llowed here",1):|
00003c40  e1 0d 01 f7 13 f2 73 65  74 73 61 76 65 64 69 72  |......setsavedir|
00003c50  28 61 24 29 0d 01 f8 05  cc 0d 01 f9 2f e7 a4 6c  |(a$)......../..l|
00003c60  6f 61 64 5f 66 69 6c 65  28 a4 72 65 61 64 73 74  |oad_file(.readst|
00003c70  72 69 6e 67 28 62 6c 6b  25 2b 34 34 29 2c 62 6c  |ring(blk%+44),bl|
00003c80  6b 25 21 34 30 29 20 8c  0d 01 fa 41 62 6c 6b 32  |k%!40) ....Ablk2|
00003c90  25 21 31 32 3d 31 3a 62  6c 6b 32 25 21 31 36 3d  |%!12=1:blk2%!16=|
00003ca0  34 3a c8 99 20 22 57 69  6d 70 5f 53 65 6e 64 4d  |4:.. "Wimp_SendM|
00003cb0  65 73 73 61 67 65 22 2c  31 39 2c 62 6c 6b 32 25  |essage",19,blk2%|
00003cc0  2c 62 6c 6b 32 25 21 32  30 0d 01 fb 05 cd 0d 01  |,blk2%!20.......|
00003cd0  fc 05 cd 0d 01 fd 05 cb  0d 01 fe 05 e1 0d 01 ff  |................|
00003ce0  0e dd a4 66 69 6e 64 6d  6f 64 65 0d 02 00 15 e7  |...findmode.....|
00003cf0  20 a4 69 73 63 67 61 6f  6e 6c 79 20 8c 3a 3d 30  | .iscgaonly .:=0|
00003d00  0d 02 01 1f e7 a4 69 73  73 65 6c 65 63 74 65 64  |......isselected|
00003d10  28 73 65 74 75 70 77 25  2c 31 37 29 3a 3d 30 0d  |(setupw%,17):=0.|
00003d20  02 02 06 3d 31 0d 02 03  12 dd a4 66 69 6e 64 74  |...=1......findt|
00003d30  61 73 6b 64 69 66 66 0d  02 04 1f e7 a4 69 73 73  |askdiff......iss|
00003d40  65 6c 65 63 74 65 64 28  73 65 74 75 70 77 25 2c  |elected(setupw%,|
00003d50  31 33 29 3a 3d 30 0d 02  05 1f e7 a4 69 73 73 65  |13):=0......isse|
00003d60  6c 65 63 74 65 64 28 73  65 74 75 70 77 25 2c 31  |lected(setupw%,1|
00003d70  34 29 3a 3d 31 0d 02 06  06 3d 32 0d 02 07 10 dd  |4):=1....=2.....|
00003d80  a4 66 69 6e 64 76 6f 6c  75 6d 65 0d 02 08 1e e7  |.findvolume.....|
00003d90  a4 69 73 73 65 6c 65 63  74 65 64 28 73 65 74 75  |.isselected(setu|
00003da0  70 77 25 2c 37 29 3a 3d  30 0d 02 09 1e e7 a4 69  |pw%,7):=0......i|
00003db0  73 73 65 6c 65 63 74 65  64 28 73 65 74 75 70 77  |sselected(setupw|
00003dc0  25 2c 38 29 3a 3d 31 0d  02 0a 1e e7 a4 69 73 73  |%,8):=1......iss|
00003dd0  65 6c 65 63 74 65 64 28  73 65 74 75 70 77 25 2c  |elected(setupw%,|
00003de0  39 29 3a 3d 32 0d 02 0b  06 3d 33 0d 02 0c 12 dd  |9):=2....=3.....|
00003df0  a4 66 69 6e 64 63 6f 6e  74 63 6f 6d 6d 0d 02 0d  |.findcontcomm...|
00003e00  1f e7 a4 69 73 73 65 6c  65 63 74 65 64 28 73 65  |...isselected(se|
00003e10  74 75 70 77 25 2c 33 39  29 3a 3d 30 0d 02 0e 06  |tupw%,39):=0....|
00003e20  3d 31 0d 02 0f 19 dd a4  63 68 65 63 6b 66 6f 6e  |=1......checkfon|
00003e30  74 28 61 24 2c 41 25 2c  42 25 29 0d 02 10 07 ea  |t(a$,A%,B%).....|
00003e40  20 85 0d 02 11 0c ee 20  85 20 ea 3a 3d 30 0d 02  | ...... . .:=0..|
00003e50  12 29 c8 99 20 22 46 6f  6e 74 5f 46 69 6e 64 46  |.).. "Font_FindF|
00003e60  6f 6e 74 22 2c 2c 61 24  2c 41 25 2c 42 25 2c 30  |ont",,a$,A%,B%,0|
00003e70  2c 30 20 b8 20 68 25 0d  02 13 1d c8 99 20 22 46  |,0 . h%...... "F|
00003e80  6f 6e 74 5f 4c 6f 73 65  46 6f 6e 74 22 2c 68 25  |ont_LoseFont",h%|
00003e90  3a f7 20 85 0d 02 14 06  3d b9 0d 02 15 0f dd f2  |:. .....=.......|
00003ea0  73 74 61 72 74 67 61 6d  65 0d 02 16 38 c8 99 20  |startgame...8.. |
00003eb0  22 46 6f 6e 74 5f 52 65  61 64 46 6f 6e 74 4d 61  |"Font_ReadFontMa|
00003ec0  78 22 20 b8 20 66 6d 25  2c 66 6d 31 25 2c 66 6d  |x" . fm%,fm1%,fm|
00003ed0  32 25 2c 66 6d 33 25 2c  66 6d 34 25 2c 66 6d 35  |2%,fm3%,fm4%,fm5|
00003ee0  25 0d 02 17 43 e7 66 6d  32 25 3c 35 37 36 30 30  |%...C.fm2%<57600|
00003ef0  20 c8 99 20 22 46 6f 6e  74 5f 53 65 74 46 6f 6e  | .. "Font_SetFon|
00003f00  74 4d 61 78 22 2c 66 6d  25 2c 66 6d 31 25 2c 35  |tMax",fm%,fm1%,5|
00003f10  37 36 30 30 2c 35 37 36  30 30 2c 66 6d 34 25 2c  |7600,57600,fm4%,|
00003f20  66 6d 35 25 0d 02 18 35  c8 99 20 22 4f 53 5f 42  |fm5%...5.. "OS_B|
00003f30  79 74 65 22 2c 31 33 35  20 b8 20 2c 2c 61 25 3a  |yte",135 . ,,a%:|
00003f40  ff 22 53 65 74 20 43 72  79 73 74 61 6c 32 24 4d  |."Set Crystal2$M|
00003f50  6f 64 65 20 22 2b c3 61  25 0d 02 19 33 ff 22 53  |ode "+.a%...3."S|
00003f60  65 74 20 43 72 79 73 74  61 6c 32 24 53 61 76 65  |et Crystal2$Save|
00003f70  20 22 2b a4 67 65 74 69  63 6e 73 74 72 69 6e 67  | "+.geticnstring|
00003f80  28 73 65 74 75 70 77 25  2c 33 34 29 0d 02 1a 2a  |(setupw%,34)...*|
00003f90  ff 22 53 65 74 20 43 72  79 73 74 61 6c 32 24 56  |."Set Crystal2$V|
00003fa0  6f 6c 75 6d 65 20 22 2b  c3 28 a4 66 69 6e 64 76  |olume "+.(.findv|
00003fb0  6f 6c 75 6d 65 29 0d 02  1b 17 76 6f 6c 75 6d 65  |olume)....volume|
00003fc0  25 3d a4 66 69 6e 64 76  6f 6c 75 6d 65 0d 02 1c  |%=.findvolume...|
00003fd0  2e ff 22 53 65 74 20 43  72 79 73 74 61 6c 32 24  |.."Set Crystal2$|
00003fe0  63 6f 6e 74 63 6f 6d 6d  20 22 2b c3 28 a4 66 69  |contcomm "+.(.fi|
00003ff0  6e 64 63 6f 6e 74 63 6f  6d 6d 29 0d 02 1d 22 2a  |ndcontcomm)..."*|
00004000  53 65 74 20 43 72 66 74  77 6f 24 64 69 72 20 3c  |Set Crftwo$dir <|
00004010  43 72 79 73 74 61 6c 32  24 44 69 72 3e 0d 02 1e  |Crystal2$Dir>...|
00004020  0d 53 25 3d 73 74 61 72  74 25 0d 02 1f 11 4d 25  |.S%=start%....M%|
00004030  3d 6d 61 78 73 74 61 72  74 73 25 0d 02 20 0a 48  |=maxstarts%.. .H|
00004040  25 3d 6d 63 25 0d 02 21  09 4b 25 3d 48 25 0d 02  |%=mc%..!.K%=H%..|
00004050  22 34 4c 25 3d 31 2b a4  66 69 6e 64 74 61 73 6b  |"4L%=1+.findtask|
00004060  64 69 66 66 3a ff 22 53  65 74 20 43 72 79 73 74  |diff:."Set Cryst|
00004070  61 6c 32 24 44 69 66 66  20 22 2b c3 28 4c 25 2d  |al2$Diff "+.(L%-|
00004080  31 29 0d 02 23 4e e3 6a  25 3d 30 b8 31 35 3a ff  |1)..#N.j%=0.15:.|
00004090  22 53 65 74 20 43 72 79  73 74 61 6c 32 24 75 73  |"Set Crystal2$us|
000040a0  65 72 63 6f 6d 6d 22 2b  c3 28 6a 25 29 2b 22 20  |ercomm"+.(j%)+" |
000040b0  22 2b a4 67 65 74 69 63  6e 73 74 72 69 6e 67 28  |"+.geticnstring(|
000040c0  73 65 74 75 70 77 25 2c  35 37 2b 6a 25 29 3a ed  |setupw%,57+j%):.|
000040d0  0d 02 24 1d e7 a4 69 73  73 65 6c 65 63 74 65 64  |..$...isselected|
000040e0  28 73 65 74 75 70 77 25  2c 34 30 29 8c 0d 02 25  |(setupw%,40)...%|
000040f0  54 e3 6a 25 3d 30 b8 31  35 3a ff 22 53 65 74 20  |T.j%=0.15:."Set |
00004100  43 72 79 73 74 61 6c 32  24 63 6f 6d 6d 22 2b c3  |Crystal2$comm"+.|
00004110  28 6a 25 29 2b 22 20 22  2b a4 72 65 61 64 73 79  |(j%)+" "+.readsy|
00004120  73 76 61 72 28 22 43 72  79 73 74 61 6c 32 24 75  |svar("Crystal2$u|
00004130  73 65 72 63 6f 6d 6d 22  2b c3 28 6a 25 29 29 3a  |sercomm"+.(j%)):|
00004140  ed 0d 02 26 05 cc 0d 02  27 4a e3 6a 25 3d 30 b8  |...&....'J.j%=0.|
00004150  31 35 3a ff 22 53 65 74  20 43 72 79 73 74 61 6c  |15:."Set Crystal|
00004160  32 24 63 6f 6d 6d 22 2b  c3 28 6a 25 29 2b 22 20  |2$comm"+.(j%)+" |
00004170  22 2b a4 67 65 74 69 63  6e 73 74 72 69 6e 67 28  |"+.geticnstring(|
00004180  73 65 74 75 70 77 25 2c  34 31 2b 6a 25 29 3a ed  |setupw%,41+j%):.|
00004190  0d 02 28 05 cd 0d 02 29  59 e7 a4 63 68 65 63 6b  |..(....)Y..check|
000041a0  66 6f 6e 74 28 22 54 61  62 6c 6f 69 64 2e 6d 65  |font("Tabloid.me|
000041b0  64 69 75 6d 22 2c 33 32  30 2c 33 36 30 29 3d a3  |dium",320,360)=.|
000041c0  20 f2 65 72 72 6f 72 28  22 46 6f 6e 74 3a 27 54  | .error("Font:'T|
000041d0  61 62 6c 6f 69 64 2e 4d  65 64 69 75 6d 27 20 6e  |abloid.Medium' n|
000041e0  6f 74 20 66 6f 75 6e 64  22 2c 30 29 3a e1 0d 02  |ot found",0):...|
000041f0  2a 12 e7 20 a4 69 73 63  67 61 6f 6e 6c 79 20 8c  |*.. .iscgaonly .|
00004200  0d 02 2b 70 56 25 3d 30  3a c8 99 20 22 57 69 6d  |..+pV%=0:.. "Wim|
00004210  70 5f 53 65 74 4d 6f 64  65 22 2c 31 35 3a e7 28  |p_SetMode",15:.(|
00004220  a4 72 65 61 64 76 64 75  76 61 72 28 31 35 30 29  |.readvduvar(150)|
00004230  2f 31 30 32 34 29 3c 31  36 30 20 f2 65 72 72 6f  |/1024)<160 .erro|
00004240  72 28 22 4e 6f 74 20 65  6e 6f 75 67 68 20 6d 65  |r("Not enough me|
00004250  6d 6f 72 79 20 74 6f 20  63 68 61 6e 67 65 20 73  |mory to change s|
00004260  63 72 65 65 6e 20 6d 6f  64 65 22 2c 31 29 3a e1  |creen mode",1):.|
00004270  0d 02 2c 05 cc 0d 02 2d  0e e7 20 a4 69 73 76 67  |..,....-.. .isvg|
00004280  61 20 8c 0d 02 2e 19 ff  22 53 65 74 20 43 72 79  |a ......"Set Cry|
00004290  73 74 61 6c 32 24 56 67  61 20 31 22 0d 02 2f 70  |stal2$Vga 1"../p|
000042a0  56 25 3d 31 3a c8 99 20  22 57 69 6d 70 5f 53 65  |V%=1:.. "Wimp_Se|
000042b0  74 4d 6f 64 65 22 2c 32  38 3a e7 28 a4 72 65 61  |tMode",28:.(.rea|
000042c0  64 76 64 75 76 61 72 28  31 35 30 29 2f 31 30 32  |dvduvar(150)/102|
000042d0  34 29 3c 33 30 30 20 f2  65 72 72 6f 72 28 22 4e  |4)<300 .error("N|
000042e0  6f 74 20 65 6e 6f 75 67  68 20 6d 65 6d 6f 72 79  |ot enough memory|
000042f0  20 74 6f 20 63 68 61 6e  67 65 20 73 63 72 65 65  | to change scree|
00004300  6e 20 6d 6f 64 65 22 2c  31 29 3a e1 0d 02 30 05  |n mode",1):...0.|
00004310  cc 0d 02 31 19 ff 22 53  65 74 20 43 72 79 73 74  |...1.."Set Cryst|
00004320  61 6c 32 24 56 67 61 20  30 22 0d 02 32 70 56 25  |al2$Vga 0"..2pV%|
00004330  3d 30 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 4d  |=0:.. "Wimp_SetM|
00004340  6f 64 65 22 2c 31 35 3a  e7 28 a4 72 65 61 64 76  |ode",15:.(.readv|
00004350  64 75 76 61 72 28 31 35  30 29 2f 31 30 32 34 29  |duvar(150)/1024)|
00004360  3c 31 36 30 20 f2 65 72  72 6f 72 28 22 4e 6f 74  |<160 .error("Not|
00004370  20 65 6e 6f 75 67 68 20  6d 65 6d 6f 72 79 20 74  | enough memory t|
00004380  6f 20 63 68 61 6e 67 65  20 73 63 72 65 65 6e 20  |o change screen |
00004390  6d 6f 64 65 22 2c 31 29  3a e1 0d 02 33 05 cd 0d  |mode",1):...3...|
000043a0  02 34 05 cd 0d 02 35 22  c8 99 20 22 57 69 6d 70  |.4....5".. "Wimp|
000043b0  5f 43 6c 6f 73 65 44 6f  77 6e 22 2c 2c 26 34 42  |_CloseDown",,&4B|
000043c0  35 33 34 31 35 34 0d 02  36 0e f2 73 61 76 65 73  |534154..6..saves|
000043d0  6f 75 6e 64 0d 02 37 20  c8 99 20 22 53 6f 75 6e  |ound..7 .. "Soun|
000043e0  64 5f 43 6f 6e 66 69 67  75 72 65 22 2c 32 2c 30  |d_Configure",2,0|
000043f0  2c 31 30 30 0d 02 38 10  c8 8e 20 76 6f 6c 75 6d  |,100..8... volum|
00004400  65 25 20 ca 0d 02 39 1b  c9 20 30 3a c8 99 20 22  |e% ...9.. 0:.. "|
00004410  53 6f 75 6e 64 5f 56 6f  6c 75 6d 65 22 2c 31 0d  |Sound_Volume",1.|
00004420  02 3a 32 c9 20 31 2c 32  2c 33 3a c8 99 20 22 53  |.:2. 1,2,3:.. "S|
00004430  6f 75 6e 64 5f 56 6f 6c  75 6d 65 22 2c 31 32 37  |ound_Volume",127|
00004440  2d 28 31 36 2a 28 33 2d  76 6f 6c 75 6d 65 25 29  |-(16*(3-volume%)|
00004450  29 0d 02 3b 05 cb 0d 02  3c 0f d3 3d 6f 6c 64 68  |)..;....<..=oldh|
00004460  69 6d 65 6d 25 0d 02 3d  12 e7 20 a4 69 73 63 67  |imem%..=.. .iscg|
00004470  61 6f 6e 6c 79 20 8c 0d  02 3e 07 eb 31 32 0d 02  |aonly ...>..12..|
00004480  3f 05 cc 0d 02 40 15 e7  a4 69 73 76 67 61 3a eb  |?....@...isvga:.|
00004490  32 37 3a 8b 3a eb 31 32  0d 02 41 05 cd 0d 02 42  |27:.:.12..A....B|
000044a0  2f de 20 73 63 61 6c 65  25 20 31 36 2c 73 77 61  |/. scale% 16,swa|
000044b0  70 25 28 32 30 2c 32 29  2c 69 6e 70 75 74 5f 64  |p%(20,2),input_d|
000044c0  69 73 6b 5f 6e 61 6d 65  25 20 33 32 0d 02 43 0b  |isk_name% 32..C.|
000044d0  76 67 61 25 3d 56 25 0d  02 44 13 f2 70 75 6c 6c  |vga%=V%..D..pull|
000044e0  5f 76 61 72 69 61 62 6c  65 73 0d 02 45 23 61 24  |_variables..E#a$|
000044f0  3d a4 72 65 61 64 73 79  73 76 61 72 28 22 43 72  |=.readsysvar("Cr|
00004500  66 74 77 6f 24 4f 6e 65  4d 65 67 22 29 0d 02 46  |ftwo$OneMeg")..F|
00004510  0c 55 25 3d bb 28 61 24  29 0d 02 47 26 61 24 3d  |.U%=.(a$)..G&a$=|
00004520  a4 72 65 61 64 73 79 73  76 61 72 28 22 43 72 79  |.readsysvar("Cry|
00004530  73 74 61 6c 32 24 45 6e  74 72 79 50 74 22 29 0d  |stal2$EntryPt").|
00004540  02 48 22 e7 a7 61 24 2c  22 66 72 6f 6d 73 74 61  |.H"..a$,"fromsta|
00004550  72 74 75 70 22 29 3a f2  67 65 74 5f 66 6f 6e 74  |rtup"):.get_font|
00004560  73 0d 02 49 1b f2 69 6e  69 74 69 61 6c 69 73 65  |s..I..initialise|
00004570  5f 73 70 72 69 74 65 5f  61 72 65 61 0d 02 4a 0c  |_sprite_area..J.|
00004580  f2 70 61 6c 65 74 74 65  0d 02 4b 16 e7 76 67 61  |.palette..K..vga|
00004590  25 3d 30 3a f2 74 6f 70  5f 62 6c 61 6e 6b 0d 02  |%=0:.top_blank..|
000045a0  4c 19 c8 99 20 22 4f 53  5f 52 65 6d 6f 76 65 43  |L... "OS_RemoveC|
000045b0  75 72 73 6f 72 73 22 0d  02 4d 26 61 24 3d a4 72  |ursors"..M&a$=.r|
000045c0  65 61 64 73 79 73 76 61  72 28 22 43 72 79 73 74  |eadsysvar("Cryst|
000045d0  61 6c 32 24 45 6e 74 72  79 50 74 22 29 0d 02 4e  |al2$EntryPt")..N|
000045e0  24 ff 22 53 65 74 20 43  72 79 73 74 61 6c 32 24  |$."Set Crystal2$|
000045f0  45 6e 74 72 79 50 74 20  66 72 6f 6d 70 72 6f 67  |EntryPt fromprog|
00004600  22 0d 02 4f 1e e7 70 72  65 6c 69 6e 6b 5f 66 6c  |"..O..prelink_fl|
00004610  61 67 25 3d 31 20 3a f2  70 72 65 6c 69 6e 6b 0d  |ag%=1 :.prelink.|
00004620  02 50 28 e7 70 72 65 6c  69 6e 6b 5f 66 6c 61 67  |.P(.prelink_flag|
00004630  25 3d 31 20 3a 2a 73 65  74 20 56 69 63 24 50 72  |%=1 :*set Vic$Pr|
00004640  65 4c 69 6e 6b 20 30 0d  02 51 09 f2 6c 69 6e 6b  |eLink 0..Q..link|
00004650  0d 02 52 05 e0 0d 02 53  0d dd f2 70 72 65 6c 69  |..R....S...preli|
00004660  6e 6b 0d 02 54 09 4d 25  3d 53 25 0d 02 55 05 e1  |nk..T.M%=S%..U..|
00004670  0d 02 56 1c dd f2 69 6e  69 74 69 61 6c 69 73 65  |..V...initialise|
00004680  5f 73 70 72 69 74 65 5f  61 72 65 61 0d 02 57 0d  |_sprite_area..W.|
00004690  6b 61 79 25 3d 31 30 32  34 0d 02 58 5c f4 20 49  |kay%=1024..X\. I|
000046a0  46 20 56 25 3d 30 20 21  73 70 72 69 74 65 5f 61  |F V%=0 !sprite_a|
000046b0  72 65 61 31 25 3d 31 36  30 2a 6b 61 79 25 3a 73  |rea1%=160*kay%:s|
000046c0  70 72 69 74 65 5f 61 72  65 61 31 25 21 38 3d 31  |prite_area1%!8=1|
000046d0  36 3a 53 59 53 22 4f 53  5f 53 70 72 69 74 65 4f  |6:SYS"OS_SpriteO|
000046e0  70 22 2c 26 31 30 39 2c  73 70 72 69 74 65 5f 61  |p",&109,sprite_a|
000046f0  72 65 61 31 25 0d 02 59  52 20 21 73 70 72 69 74  |rea1%..YR !sprit|
00004700  65 5f 61 72 65 61 31 25  3d 32 33 30 2a 6b 61 79  |e_area1%=230*kay|
00004710  25 3a 73 70 72 69 74 65  5f 61 72 65 61 31 25 21  |%:sprite_area1%!|
00004720  38 3d 31 36 3a c8 99 22  4f 53 5f 53 70 72 69 74  |8=16:.."OS_Sprit|
00004730  65 4f 70 22 2c 26 31 30  39 2c 73 70 72 69 74 65  |eOp",&109,sprite|
00004740  5f 61 72 65 61 31 25 0d  02 5a 5b f4 20 49 46 20  |_area1%..Z[. IF |
00004750  56 25 3d 30 20 21 73 70  72 69 74 65 5f 61 72 65  |V%=0 !sprite_are|
00004760  61 32 25 3d 37 30 2a 6b  61 79 25 3a 73 70 72 69  |a2%=70*kay%:spri|
00004770  74 65 5f 61 72 65 61 32  25 21 38 3d 31 36 3a 53  |te_area2%!8=16:S|
00004780  59 53 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |YS"OS_SpriteOp",|
00004790  26 31 30 39 2c 73 70 72  69 74 65 5f 61 72 65 61  |&109,sprite_area|
000047a0  32 25 0d 02 5b 52 20 21  73 70 72 69 74 65 5f 61  |2%..[R !sprite_a|
000047b0  72 65 61 32 25 3d 31 30  30 2a 6b 61 79 25 3a 73  |rea2%=100*kay%:s|
000047c0  70 72 69 74 65 5f 61 72  65 61 32 25 21 38 3d 31  |prite_area2%!8=1|
000047d0  36 3a c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |6:.."OS_SpriteOp|
000047e0  22 2c 26 31 30 39 2c 73  70 72 69 74 65 5f 61 72  |",&109,sprite_ar|
000047f0  65 61 32 25 0d 02 5c 05  e1 0d 02 5d 14 dd f2 70  |ea2%..\....]...p|
00004800  75 6c 6c 5f 76 61 72 69  61 62 6c 65 73 0d 02 5e  |ull_variables..^|
00004810  13 64 72 61 77 25 3d 21  28 4b 25 2b 26 38 30 29  |.draw%=!(K%+&80)|
00004820  0d 02 5f 1a 73 61 76 65  5f 73 63 72 65 65 6e 25  |.._.save_screen%|
00004830  3d 21 28 4b 25 2b 26 38  34 29 0d 02 60 1e 73 61  |=!(K%+&84)..`.sa|
00004840  76 65 5f 76 67 61 5f 73  63 72 65 65 6e 25 3d 21  |ve_vga_screen%=!|
00004850  28 4b 25 2b 26 38 38 29  0d 02 61 1b 73 63 72 65  |(K%+&88)..a.scre|
00004860  65 6e 5f 73 74 61 72 74  25 3d 21 28 4b 25 2b 26  |en_start%=!(K%+&|
00004870  38 43 29 0d 02 62 1b 73  70 72 69 74 65 5f 61 72  |8C)..b.sprite_ar|
00004880  65 61 31 25 3d 4b 25 2b  31 30 32 34 2a 35 0d 02  |ea1%=K%+1024*5..|
00004890  63 32 f4 20 49 46 20 56  25 3d 30 20 73 70 72 69  |c2. IF V%=0 spri|
000048a0  74 65 5f 61 72 65 61 32  25 3d 73 70 72 69 74 65  |te_area2%=sprite|
000048b0  5f 61 72 65 61 31 25 2b  31 30 32 34 2a 31 36 30  |_area1%+1024*160|
000048c0  0d 02 64 29 20 73 70 72  69 74 65 5f 61 72 65 61  |..d) sprite_area|
000048d0  32 25 3d 73 70 72 69 74  65 5f 61 72 65 61 31 25  |2%=sprite_area1%|
000048e0  2b 31 30 32 34 2a 32 33  30 0d 02 65 2d f4 20 49  |+1024*230..e-. I|
000048f0  46 20 56 25 3d 30 20 70  69 63 74 75 72 65 31 25  |F V%=0 picture1%|
00004900  3d 73 70 72 69 74 65 5f  61 72 65 61 32 25 2b 31  |=sprite_area2%+1|
00004910  30 32 34 2a 37 30 0d 02  66 25 20 70 69 63 74 75  |024*70..f% pictu|
00004920  72 65 31 25 3d 73 70 72  69 74 65 5f 61 72 65 61  |re1%=sprite_area|
00004930  32 25 2b 31 30 32 34 2a  31 30 30 0d 02 67 1f 70  |2%+1024*100..g.p|
00004940  69 63 74 75 72 65 32 25  3d 70 69 63 74 75 72 65  |icture2%=picture|
00004950  31 25 2b 31 30 32 34 2a  34 38 0d 02 68 1b 70 61  |1%+1024*48..h.pa|
00004960  67 65 25 3d 70 69 63 74  75 72 65 32 25 2b 31 30  |ge%=picture2%+10|
00004970  32 34 2a 31 37 0d 02 69  05 e1 0d 02 6a 17 dd a4  |24*17..i....j...|
00004980  66 69 6e 64 5f 73 63 72  65 65 6e 28 73 63 72 25  |find_screen(scr%|
00004990  29 0d 02 6b 10 21 69 6e  70 75 74 25 3d 73 63 72  |)..k.!input%=scr|
000049a0  25 0d 02 6c 12 21 28 69  6e 70 75 74 25 2b 34 29  |%..l.!(input%+4)|
000049b0  3d 2d 31 0d 02 6d 2b c8  99 20 22 4f 53 5f 52 65  |=-1..m+.. "OS_Re|
000049c0  61 64 56 64 75 56 61 72  69 61 62 6c 65 73 22 2c  |adVduVariables",|
000049d0  69 6e 70 75 74 25 2c 6f  75 74 70 75 74 25 0d 02  |input%,output%..|
000049e0  6e 0d 3d 21 6f 75 74 70  75 74 25 0d 02 6f 0f dd  |n.=!output%..o..|
000049f0  f2 67 65 74 5f 66 6f 6e  74 73 0d 02 70 0c 2a 46  |.get_fonts..p.*F|
00004a00  58 31 31 32 2c 32 0d 02  71 53 f2 70 72 69 28 30  |X112,2..qS.pri(0|
00004a10  2c 35 30 30 2c 31 2c 22  61 62 63 64 65 66 67 68  |,500,1,"abcdefgh|
00004a20  69 6a 6b 6c 6d 6e 6f 70  71 72 73 74 75 76 77 78  |ijklmnopqrstuvwx|
00004a30  79 7a 41 42 43 44 45 46  47 48 49 4a 4b 4c 4d 4e  |yzABCDEFGHIJKLMN|
00004a40  4f 50 51 52 53 54 55 56  57 58 59 5a 2e 2c 27 21  |OPQRSTUVWXYZ.,'!|
00004a50  3f 2d 3a 28 29 2b 3d 22  29 0d 02 72 0c 2a 46 58  |?-:()+=")..r.*FX|
00004a60  31 31 32 2c 31 0d 02 73  05 e1 0d 02 74 17 dd f2  |112,1..s....t...|
00004a70  70 72 69 28 78 25 2c 79  25 2c 73 69 25 2c 61 24  |pri(x%,y%,si%,a$|
00004a80  29 0d 02 75 3a c8 99 22  46 6f 6e 74 5f 46 69 6e  |)..u:.."Font_Fin|
00004a90  64 46 6f 6e 74 22 2c 2c  22 54 41 42 4c 4f 49 44  |dFont",,"TABLOID|
00004aa0  2e 4d 45 44 49 55 4d 22  2c 33 32 30 2c 33 36 30  |.MEDIUM",320,360|
00004ab0  2c 30 2c 30 20 b8 20 68  61 6e 25 0d 02 76 23 c8  |,0,0 . han%..v#.|
00004ac0  99 22 46 6f 6e 74 5f 53  65 74 46 6f 6e 74 43 6f  |."Font_SetFontCo|
00004ad0  6c 6f 75 72 73 22 2c 30  2c 30 2c 31 2c 32 0d 02  |lours",0,0,1,2..|
00004ae0  77 14 ef 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |w..0,0,0,0,0,0,0|
00004af0  2c 30 0d 02 78 1f c8 99  22 46 6f 6e 74 5f 50 61  |,0..x..."Font_Pa|
00004b00  69 6e 74 22 2c 2c 61 24  2c 31 36 2c 78 25 2c 79  |int",,a$,16,x%,y|
00004b10  25 0d 02 79 1a c8 99 22  46 6f 6e 74 5f 4c 6f 73  |%..y..."Font_Los|
00004b20  65 46 6f 6e 74 22 2c 68  61 6e 25 0d 02 7a 05 e1  |eFont",han%..z..|
00004b30  0d 02 7b 12 dd f2 63 6c  65 61 72 5f 73 63 72 65  |..{...clear_scre|
00004b40  65 6e 0d 02 7c 23 ef 32  34 2c 30 3b 30 3b 31 32  |en..|#.24,0;0;12|
00004b50  37 38 3b 39 35 36 3b 31  38 2c 30 2c 31 32 38 2c  |78;956;18,0,128,|
00004b60  31 36 2c 32 36 0d 02 7d  05 e1 0d 02 7e 0f dd f2  |16,26..}....~...|
00004b70  74 6f 70 5f 62 6c 61 6e  6b 0d 02 7f 26 ef 32 34  |top_blank...&.24|
00004b80  2c 30 3b 39 36 30 3b 31  32 37 38 3b 31 30 32 32  |,0;960;1278;1022|
00004b90  3b 31 38 2c 30 2c 31 33  31 2c 31 36 2c 32 36 0d  |;18,0,131,16,26.|
00004ba0  02 80 05 e1 0d 02 81 35  dd f2 70 6c 6f 74 5f 73  |.......5..plot_s|
00004bb0  70 72 69 74 65 5f 73 63  61 6c 65 64 28 78 25 2c  |prite_scaled(x%,|
00004bc0  79 25 2c 78 6d 25 2c 79  6d 25 2c 78 64 25 2c 79  |y%,xm%,ym%,xd%,y|
00004bd0  64 25 2c 6e 61 6d 65 24  29 0d 02 82 13 21 28 73  |d%,name$)....!(s|
00004be0  63 61 6c 65 25 2b 30 29  3d 78 6d 25 0d 02 83 16  |cale%+0)=xm%....|
00004bf0  21 28 73 63 61 6c 65 25  2b 34 29 3d 79 6d 25 2b  |!(scale%+4)=ym%+|
00004c00  56 25 0d 02 84 13 21 28  73 63 61 6c 65 25 2b 38  |V%....!(scale%+8|
00004c10  29 3d 78 64 25 0d 02 85  14 21 28 73 63 61 6c 65  |)=xd%....!(scale|
00004c20  25 2b 31 32 29 3d 79 64  25 0d 02 86 3d c8 99 22  |%+12)=yd%...=.."|
00004c30  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 33  |OS_SpriteOp",&13|
00004c40  34 2c 73 70 72 69 74 65  5f 61 72 65 61 31 25 2c  |4,sprite_area1%,|
00004c50  6e 61 6d 65 24 2c 78 25  2c 79 25 2c 30 2c 73 63  |name$,x%,y%,0,sc|
00004c60  61 6c 65 25 2c 30 0d 02  87 05 e1 0d 02 88 0d dd  |ale%,0..........|
00004c70  f2 70 61 6c 65 74 74 65  0d 02 89 18 ef 31 39 2c  |.palette.....19,|
00004c80  31 2c 32 34 2c 31 33 36  2c 31 33 36 2c 31 33 36  |1,24,136,136,136|
00004c90  0d 02 8a 10 ea 70 25 2c  72 25 2c 67 25 2c 62 25  |.....p%,r%,g%,b%|
00004ca0  0d 02 8b 07 f7 2b 35 0d  02 8c 0c e3 70 25 3d 30  |.....+5.....p%=0|
00004cb0  b8 31 35 0d 02 8d 1a f3  72 25 2c 67 25 2c 62 25  |.15.....r%,g%,b%|
00004cc0  3a fb 70 25 2c 72 25 2c  67 25 2c 62 25 0d 02 8e  |:.p%,r%,g%,b%...|
00004cd0  05 ed 0d 02 8f 15 ef 31  39 2c 31 2c 32 34 2c 30  |.......19,1,24,0|
00004ce0  2c 30 2c 30 3b 30 3b 0d  02 90 05 e1 0d 02 91 2f  |,0,0;0;......../|
00004cf0  dc 20 32 35 35 2c 32 35  35 2c 32 35 35 2c 31 38  |. 255,255,255,18|
00004d00  37 2c 31 38 37 2c 31 38  37 2c 31 31 39 2c 31 31  |7,187,187,119,11|
00004d10  39 2c 31 31 39 2c 30 2c  30 2c 30 0d 02 92 2b dc  |9,119,0,0,0...+.|
00004d20  20 31 30 32 2c 31 30 32  2c 31 30 32 2c 30 2c 31  | 102,102,102,0,1|
00004d30  38 37 2c 32 35 35 2c 30  2c 30 2c 32 32 31 2c 30  |87,255,0,0,221,0|
00004d40  2c 30 2c 31 32 31 0d 02  93 2b dc 20 31 35 33 2c  |,0,121...+. 153,|
00004d50  31 31 39 2c 30 2c 32 35  35 2c 32 35 35 2c 30 2c  |119,0,255,255,0,|
00004d60  32 35 35 2c 31 33 36 2c  30 2c 32 30 34 2c 30 2c  |255,136,0,204,0,|
00004d70  30 0d 02 94 27 dc 20 31  33 36 2c 31 30 32 2c 30  |0...'. 136,102,0|
00004d80  2c 30 2c 32 30 34 2c 30  2c 30 2c 31 35 33 2c 30  |,0,204,0,0,153,0|
00004d90  2c 30 2c 31 31 39 2c 30  0d 02 95 0f dd f2 70 61  |,0,119,0......pa|
00004da0  75 73 65 28 74 25 29 0d  02 96 0b 74 69 6d 65 25  |use(t%)....time%|
00004db0  3d 91 0d 02 97 13 f5 3a  fd 74 69 6d 65 25 2b 74  |=......:.time%+t|
00004dc0  25 3c 91 3a e1 0d 02 98  0a dd f2 6c 69 6e 6b 0d  |%<.:.......link.|
00004dd0  02 99 18 f2 63 68 61 69  6e 28 22 50 74 30 2e 4c  |....chain("Pt0.L|
00004de0  69 6e 6b 22 29 3a e0 0d  02 9a 05 e0 0d 02 9b 12  |ink"):..........|
00004df0  dd f2 63 68 61 69 6e 28  66 69 6c 65 24 29 0d 02  |..chain(file$)..|
00004e00  9c 3e e7 66 69 6c 65 24  3d 22 50 74 30 2e 4c 69  |.>.file$="Pt0.Li|
00004e10  6e 6b 22 3a 64 6e 61 6d  65 24 3d 22 5a 65 72 6f  |nk":dname$="Zero|
00004e20  22 3a 70 61 74 68 24 3d  22 24 2e 21 43 72 79 73  |":path$="$.!Crys|
00004e30  74 61 6c 32 2e 22 2b 66  69 6c 65 24 0d 02 9d 46  |tal2."+file$...F|
00004e40  e7 59 25 3d 30 20 74 65  73 74 25 3d 30 3a f5 3a  |.Y%=0 test%=0:.:|
00004e50  f2 66 6c 6f 70 70 79 5f  64 69 73 6b 28 64 6e 61  |.floppy_disk(dna|
00004e60  6d 65 24 2c 70 61 74 68  24 2c 22 24 2e 21 43 72  |me$,path$,"$.!Cr|
00004e70  79 73 74 61 6c 32 22 29  3a fd 65 72 72 6f 72 25  |ystal2"):.error%|
00004e80  3d 30 0d 02 9e 28 66 69  6c 65 24 3d 22 3c 43 72  |=0...(file$="<Cr|
00004e90  79 73 74 61 6c 32 24 64  69 72 3e 2e 22 2b 66 69  |ystal2$dir>."+fi|
00004ea0  6c 65 24 3a 2a 46 58 32  32 39 0d 02 9f 0d 2a 46  |le$:*FX229....*F|
00004eb0  58 32 32 30 2c 32 37 0d  02 a0 1b f4 49 46 20 56  |X220,27.....IF V|
00004ec0  25 3d 30 20 6d 65 6d 74  6f 70 25 3d 26 36 32 37  |%=0 memtop%=&627|
00004ed0  30 30 0d 02 a1 19 e7 20  56 25 3d 30 20 6d 65 6d  |00..... V%=0 mem|
00004ee0  74 6f 70 25 3d 26 37 42  37 30 30 0d 02 a2 19 e7  |top%=&7B700.....|
00004ef0  20 56 25 3d 31 20 6d 65  6d 74 6f 70 25 3d 26 37  | V%=1 memtop%=&7|
00004f00  42 37 30 30 0d 02 a3 1a  41 25 3d 6d 65 6d 74 6f  |B700....A%=memto|
00004f10  70 25 3a d0 3d 41 25 3a  d7 66 69 6c 65 24 0d 02  |p%:.=A%:.file$..|
00004f20  a4 05 fa 0d 02 a5 24 dd  f2 66 6c 6f 70 70 79 5f  |......$..floppy_|
00004f30  64 69 73 6b 28 64 6e 61  6d 65 24 2c 70 61 74 68  |disk(dname$,path|
00004f40  24 2c 73 65 74 24 29 0d  02 a6 42 c8 99 20 22 4f  |$,set$)...B.. "O|
00004f50  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 31 30  |S_SpriteOp",&110|
00004f60  2c 73 70 72 69 74 65 5f  61 72 65 61 31 25 2c 22  |,sprite_area1%,"|
00004f70  6c 6f 61 64 73 63 22 2c  30 2c 34 30 30 2c 34 33  |loadsc",0,400,43|
00004f80  36 2c 38 38 30 2c 36 33  36 0d 02 a7 06 ea 85 0d  |6,880,636.......|
00004f90  02 a8 82 ee 85 ea 3a f7  20 85 3a c8 99 20 22 4f  |......:. .:.. "O|
00004fa0  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 33 34  |S_SpriteOp",&134|
00004fb0  2c 73 70 72 69 74 65 5f  61 72 65 61 31 25 2c 22  |,sprite_area1%,"|
00004fc0  6c 6f 61 64 73 63 22 2c  34 30 30 2c 34 33 36 2c  |loadsc",400,436,|
00004fd0  30 3a c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |0:.. "OS_SpriteO|
00004fe0  70 22 2c 26 31 31 39 2c  73 70 72 69 74 65 5f 61  |p",&119,sprite_a|
00004ff0  72 65 61 31 25 2c 22 6c  6f 61 64 73 63 22 3a 65  |rea1%,"loadsc":e|
00005000  72 72 6f 72 25 3d 31 3a  74 65 73 74 25 3d 31 3a  |rror%=1:test%=1:|
00005010  e1 0d 02 a9 05 f5 0d 02  aa 0c 65 72 72 6f 72 25  |..........error%|
00005020  3d 30 0d 02 ab 0e e7 74  65 73 74 25 3d 31 20 8c  |=0.....test%=1 .|
00005030  0d 02 ac 45 ef 32 34 2c  34 30 30 3b 34 33 36 3b  |...E.24,400;436;|
00005040  38 38 30 3b 36 33 36 3b  31 38 2c 30 2c 31 33 31  |880;636;18,0,131|
00005050  2c 31 36 2c 32 34 2c 34  30 34 3b 34 34 30 3b 38  |,16,24,404;440;8|
00005060  37 36 3b 36 33 32 3b 31  38 2c 30 2c 31 32 38 2c  |76;632;18,0,128,|
00005070  31 36 2c 32 36 0d 02 ad  08 c8 97 20 ee 0d 02 ae  |16,26...... ....|
00005080  22 f2 70 72 69 28 34 33  30 2c 35 37 32 2c 31 2c  |".pri(430,572,1,|
00005090  22 50 6c 65 61 73 65 20  70 6c 61 63 65 22 29 0d  |"Please place").|
000050a0  02 af 22 f2 70 72 69 28  34 33 30 2c 35 31 38 2c  |..".pri(430,518,|
000050b0  31 2c 22 64 69 73 6b 20  22 2b 64 6e 61 6d 65 24  |1,"disk "+dname$|
000050c0  29 0d 02 b0 15 6f 6b 78  25 3d 37 36 30 3a 6f 6b  |)....okx%=760:ok|
000050d0  79 25 3d 34 35 36 0d 02  b1 45 e6 30 2c 33 3a ef  |y%=456...E.0,3:.|
000050e0  32 35 2c 34 2c 6f 6b 78  25 3b 6f 6b 79 25 3b 32  |25,4,okx%;oky%;2|
000050f0  35 2c 31 2c 31 30 30 3b  30 3b 32 35 2c 31 2c 30  |5,1,100;0;25,1,0|
00005100  3b 35 36 3b 32 35 2c 31  2c 2d 31 30 30 3b 30 3b  |;56;25,1,-100;0;|
00005110  32 35 2c 31 2c 30 3b 2d  35 36 3b 0d 02 b2 29 e6  |25,1,0;-56;...).|
00005120  30 2c 30 3a ef 32 35 2c  34 2c 6f 6b 78 25 2b 32  |0,0:.25,4,okx%+2|
00005130  3b 6f 6b 79 25 2b 34 3b  32 35 2c 39 37 2c 39 36  |;oky%+4;25,97,96|
00005140  3b 34 38 3b 0d 02 b3 2e  f2 70 72 69 28 34 33 30  |;48;.....pri(430|
00005150  2c 34 36 34 2c 31 2c 22  69 6e 20 64 72 69 76 65  |,464,1,"in drive|
00005160  20 30 20 20 20 20 20 20  20 20 20 20 20 20 4f 4b  | 0            OK|
00005170  22 29 0d 02 b4 07 c8 97  ee 0d 02 b5 4d f5 3a c8  |")..........M.:.|
00005180  97 6d 78 25 2c 6d 79 25  2c 6d 63 25 3a fd 6d 63  |.mx%,my%,mc%:.mc|
00005190  25 3d 34 20 80 20 6d 78  25 3e 6f 6b 78 25 20 80  |%=4 . mx%>okx% .|
000051a0  20 6d 78 25 3c 6f 6b 78  25 2b 31 30 30 20 80 20  | mx%<okx%+100 . |
000051b0  6d 79 25 3e 6f 6b 79 25  20 80 20 6d 79 25 3c 6f  |my%>oky% . my%<o|
000051c0  6b 79 25 2b 35 38 0d 02  b6 05 cd 0d 02 b7 09 2a  |ky%+58.........*|
000051d0  41 44 46 53 0d 02 b8 0c  2a 4d 4f 55 4e 54 20 30  |ADFS....*MOUNT 0|
000051e0  0d 02 b9 25 e7 64 6e 61  6d 65 24 3d 22 5a 65 72  |...%.dname$="Zer|
000051f0  6f 22 3a 64 6c 61 62 65  6c 6e 61 6d 65 24 3d 22  |o":dlabelname$="|
00005200  5a 65 72 6f 22 0d 02 ba  23 c8 99 22 4f 53 5f 47  |Zero"...#.."OS_G|
00005210  42 50 42 22 2c 35 2c 2c  69 6e 70 75 74 5f 64 69  |BPB",5,,input_di|
00005220  73 6b 5f 6e 61 6d 65 25  0d 02 bb 27 6c 65 6e 5f  |sk_name%...'len_|
00005230  64 5f 6e 25 3d 3f 69 6e  70 75 74 5f 64 69 73 6b  |d_n%=?input_disk|
00005240  5f 6e 61 6d 65 25 3a 6e  61 6d 65 24 3d 22 22 0d  |_name%:name$="".|
00005250  02 bc 13 e3 64 6e 25 3d  31 b8 6c 65 6e 5f 64 5f  |....dn%=1.len_d_|
00005260  6e 25 0d 02 bd 46 e7 3f  28 69 6e 70 75 74 5f 64  |n%...F.?(input_d|
00005270  69 73 6b 5f 6e 61 6d 65  25 2b 64 6e 25 29 3e 33  |isk_name%+dn%)>3|
00005280  31 3a 6e 61 6d 65 24 3d  6e 61 6d 65 24 2b bd 28  |1:name$=name$+.(|
00005290  3f 28 69 6e 70 75 74 5f  64 69 73 6b 5f 6e 61 6d  |?(input_disk_nam|
000052a0  65 25 2b 64 6e 25 29 29  0d 02 be 05 ed 0d 02 bf  |e%+dn%))........|
000052b0  3a c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |:.. "OS_SpriteOp|
000052c0  22 2c 26 31 32 32 2c 73  70 72 69 74 65 5f 61 72  |",&122,sprite_ar|
000052d0  65 61 31 25 2c 22 6c 6f  61 64 73 63 22 2c 34 30  |ea1%,"loadsc",40|
000052e0  30 2c 34 33 36 2c 30 0d  02 c0 21 e7 6e 61 6d 65  |0,436,0...!.name|
000052f0  24 3c 3e 64 6c 61 62 65  6c 6e 61 6d 65 24 8c 3a  |$<>dlabelname$.:|
00005300  65 72 72 6f 72 25 3d 31  0d 02 c1 0b 74 65 73 74  |error%=1....test|
00005310  25 3d 31 0d 02 c2 1d ff  22 53 45 54 20 43 72 79  |%=1....."SET Cry|
00005320  73 74 61 6c 32 24 64 69  72 20 22 2b 73 65 74 24  |stal2$dir "+set$|
00005330  0d 02 c3 20 c8 99 20 22  58 4f 53 5f 46 69 6e 64  |... .. "XOS_Find|
00005340  22 2c 26 34 30 2c 70 61  74 68 24 20 b8 20 68 25  |",&40,path$ . h%|
00005350  0d 02 c4 17 fd 68 25 80  28 65 72 72 6f 72 25 3d  |.....h%.(error%=|
00005360  30 29 3a d9 23 68 25 0d  02 c5 3a c8 99 20 22 4f  |0):.#h%...:.. "O|
00005370  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 32 32  |S_SpriteOp",&122|
00005380  2c 73 70 72 69 74 65 5f  61 72 65 61 31 25 2c 22  |,sprite_area1%,"|
00005390  6c 6f 61 64 73 63 22 2c  34 30 30 2c 34 33 36 2c  |loadsc",400,436,|
000053a0  30 0d 02 c6 30 c8 99 20  22 4f 53 5f 53 70 72 69  |0...0.. "OS_Spri|
000053b0  74 65 4f 70 22 2c 26 31  31 39 2c 73 70 72 69 74  |teOp",&119,sprit|
000053c0  65 5f 61 72 65 61 31 25  2c 22 6c 6f 61 64 73 63  |e_area1%,"loadsc|
000053d0  22 0d 02 c7 07 f7 20 85  0d 02 c8 05 e1 0d ff     |"..... ........|
000053df