� ><DeltSound$Dir>.!RunImage
� � �makerr

�setup
(�action
2�die
<�
F��setup
P	OP%=0
ZA� POI% 256,TAS% 2000,BLK% 1000,MENU% 1000,SEL% 256,ICBLK% 256
d'� SOWO% (5*1024),SOF$(8),APSP% 1024
n!APSP%=1024
x/ș&2E,266,APSP%,"<DeltSound$Dir>.AppSprite"
�SPN$="filename"
�
SOF$()=""
�
TRK%=0
��L%=0 � 5116 � 4
�SOWO%!L%=-1
��
�"ș"Wimp_SlotSize",-1,-1 � APS%
�
DELDAT%=�
�$TAS%="TASK"
�5ș"Wimp_Initialise",200,!TAS%,"DeltSound" � HAND%
��loadsprites
�!BLK%=-1
�BLK%!4=0

BLK%!8=0

BLK%!12=64

BLK%!16=64

"BLK%!20=&2102

,� BLK%!24 10

6$(BLK%!24)="!DeltSound"

@BLK%!28=SPRITES%

JBLK%!32=10

T(ș "Wimp_CreateIcon",,BLK% � ICHAND%

^7ș "Wimp_OpenTemplate",,"<DeltSound$Dir>.Templates"

h0� STORE% (6*1024),BUF%(2),INDIR%(2),HAND%(2)

r
�L%=0 � 2

|BUF%(L%)=STORE%+(L%*1024)

�#INDIR%(L%)=STORE%+((L%+3)*1024)

��

�� Main,Save,Info

�
� �tZA

�
�K%=0 � 2

�� A$

�Gș "Wimp_LoadTemplate",,BUF%(K%),INDIR%(K%),INDIR%(K%)+1024,-1,A$,0

��

�
� �tZA

�
�K%=0 � 2

�� A$

�0ș "Wimp_CreateWindow",,BUF%(K%) � HAND%(K%)

��
ș "Wimp_CloseTemplate"
�

&��loadsprites
0� SPRITES% 2000
:!SPRITES%=2000
DSPRITES%!4=0
NSPRITES%!8=16
XSPRITES%!12=16
b2ș &2E,266,SPRITES%,"<DeltSound$Dir>.!Sprites"
l�
v
���action
��
�	�poll
�'� (REAS%=17 � REAS%=18) � BLK%!16=0
��
�
���die:OP%=0:�scrapslot
�#ș "Wimp_CloseDown",HAND%,!TAS%
��
��
�
�
��poll
�!BLK%=%10011111110110110011
!ș "Wimp_Poll",0,BLK% � REAS%
� REAS%>-1 � �act
�
 	��act
*Ȏ REAS% �
4� 2:�opmain
>� 3:�clmain
H� 6:�mouse
R
� 9:�menu
\� 17,18:�inmessage(BLK%!16)
f�
p�
z
���openmain
�	OP%=1
�!BLK%=HAND%(0)
�BLK%!4=100
�BLK%!8=400
�BLK%!12=1194
�BLK%!16=828
�
BLK%!20=0
�
BLK%!24=0
�BLK%!28=-1
�ș "Wimp_OpenWindow",,BLK%
��
�
��opmain
	OP%=1
ș "Wimp_OpenWindow",,BLK%
$�
.
8��clmain
B	OP%=0
Lș "Wimp_CloseWindow",,BLK%
V�
`
j��makerr
tș "Wimp_DragBox",,0
~!BLK%=�
�ER=�
�
Ȏ � �
�4� 222:$(BLK%+4)="File cannot be found"+�(0):ER=�
�
�$$(BLK%+4)=�$+" at line "+Þ+�(0)
��
�,ș "Wimp_ReportError",BLK%,1,"DeltSound"
�� ER � �die � �action:�
��
�
���message(M%,M$)
�ș "Wimp_DragBox",,0
!BLK%=M%

$(BLK%+4)=M$+�(0)
,ș "Wimp_ReportError",BLK%,1,"DeltSound"
�scrapslot
(�action
2�
<�
F
P��mouse
ZMOUX%=!BLK%
dMOUY%=BLK%!4
nMOUB%=BLK%!8
xMOUH%=BLK%!12
�IC%=BLK%!16
�� MOUB%=1 � MOUB%=4
�Ȏ MOUB% �
�� 4:
�       Ȏ MOUH% �
�       � -2:�openmain
�       �  HAND%(1):�fxhit
�       �
�� 2:
�@       � MOUH%=-2 � �iconmenu � � MOUH%=HAND%(0) � �windmenu
�� 16,64:
�(       � MOUH%=HAND%(1) � �startdrag
��
�

��fxhit
"
� IC%=5 �
,V%=�(�geticon(1,4))
6	V%+=1
@� V%>8 � V%=8
J�seticon(1,4,�V%)
T�
^
� IC%=0 �
hV%=�(�geticon(1,4))
r	V%-=1
|� V%<1 � V%=1
��seticon(1,4,�V%)
��
�� IC%=13 �
�F%=�(�geticon(1,2))
�N� F%<1 � F%>250 � �message(1,"You can only have between 1 and 250 frames")
�VO%=�(�geticon(1,6))
�[� VO%>15 � VO%<1 � �message(1,"The volume should be between 1 and 15. (15 is loudest)")
�CH%=�(�geticon(1,4))
�FR%=�(�geticon(1,10))
�DU%=�(�geticon(1,11))
�SOB%=SOWO%+1024+((F%-1)*16)
�
!SOB%=CH%
�SOB%!4=-VO%
SOB%!8=FR%
SOB%!12=DU%
�menoff
&�
0�
:
D��menoff
Nș "Wimp_CreateMenu",-1
X�
b
l��iconmenu
v$MENU%="DeltSound":
�MENU%?12=7
�MENU%?13=2
�MENU%?14=7
�MENU%?15=0
�MENU%!16=100
�MENU%!20=44
�MENU%!24=0
�MENU%!28=0
�MENU%!32=HAND%(2)
�MENU%!36=1 � (7<<24)
�$(MENU%+40)="Info"
�MENU%!52=128
�MENU%!56=-1
MENU%!60=1 � (7<<24)
$(MENU%+64)="Quit"
,ș "Wimp_CreateMenu",,MENU%,MOUX%-64,184
 �
*
4��windmenu
>$MENU%="DeltSound"
HMENU%?12=7
RMENU%?13=2
\MENU%?14=7
fMENU%?15=0
pMENU%!16=240
zMENU%!20=44
�MENU%!24=0
�5� Add sound FX,1,2,Save,-1,0,Info,2,2,Quit,-1,128
�
� �tNH
�
�L%=0 � 3
�� A$,B%,C%
�MENU%!(28+(L%*24))=C%
�F� B%>-1 � MENU%!(28+(L%*24)+4)=HAND%(B%) � MENU%!(28+(L%*24)+4)=-1
�*MENU%!(28+(L%*24)+8)=1 � (7<<24) � 256
�$(MENU%+500+(L%*20))=A$
�-MENU%!(28+(L%*24)+12)=(MENU%+500+(L%*20))
�#MENU%!(28+(L%*24)+16)=MENU%+900
�MENU%!(28+(L%*24)+20)=20
��
	$(MENU%+900)="AA-Za-z"
	1ș "Wimp_CreateMenu",,MENU%,MOUX%-64,MOUY%+60
	�
	$
	.
��menu
	8)ș "Wimp_DecodeMenu",,MENU%,BLK%,SEL%
	B� $SEL%="Quit" � �die
	L� $SEL%="Save" � �save
	V�
	`
	jݤgstr(AD%)
	t	W$=""
	~:� ?AD%<32 � =W$ � �:W$=W$+�(?AD%):AD%+=1:� ?AD%<32:=W$
	�
	�ݤgeticon(WH%,IC%)
	�!ICBLK%=HAND%(WH%)
	�ICBLK%!4=IC%
	�"ș "Wimp_GetIconState",,ICBLK%
	�=�gstr(!(ICBLK%+28))
	�
	���seticon(WH%,IC%,SET$)
	�!ICBLK%=HAND%(WH%)
	�ICBLK%!4=IC%
	�"ș "Wimp_GetIconState",,ICBLK%
	�ICBLK%!8=0
ICBLK%!12=0

$(ICBLK%!28)=SET$
"ș "Wimp_SetIconState",,ICBLK%
�
(
2ݤhigh(WH%,IC%)
<!ICBLK%=HAND%(WH%)
FICBLK%!4=IC%
P"ș "Wimp_GetIconState",,ICBLK%
Z"=((?(ICBLK%+26)) � %100000)=32
d
n��radio(WH%,IC%,ST%)
x!ICBLK%=HAND%(WH%)
�ICBLK%!4=IC%
�ICBLK%!8=ST%<<21
�ICBLK%!12=1<<21
�"ș "Wimp_SetIconState",,ICBLK%
��
�
���point
�"ș "Wimp_GetPointerInfo",,POI%
�MOX%=!POI%
�MOY%=POI%!4
�MOB%=POI%!8
��
�
��startdrag
%ș "Wimp_GetWindowState",,BLK%+12
X%=BLK%!16
"Y%=BLK%!28
,
BLK%!16=0
6#ș "Wimp_GetIconState",,BLK%+12
@
BLK%!16=5
JBLK%!20+=X%-2
TBLK%!24+=Y%-4
^BLK%!28+=X%+6
hBLK%!32+=Y%
r
BLK%!36=0
|
BLK%!40=0
�BLK%!44=&7FFFFFFF
�BLK%!48=&7FFFFFFF
�ș "Wimp_DragBox",,BLK%+12
��
�
���inmessage(M%)
�Ȏ M% �
�� 0:�die
�� 2:�dragsave
�Q� 3:� BLK%!12=0 � (BLK%!40=&001 � BLK%!40=&002 � BLK%!40=&CB6) � �loadtracker
�1       � BLK%!12=0 � BLK%!40=&FFA � �setvoice
�-       � BLK%!12=0 � BLK%!40=&54F � �load
��
�

��loadtracker
&A$=�getname
0SOF$(1)=�leaf(A$)
:�seticon(0,10,�leaf(A$))
D�radio(0,7,0)
N�radio(0,8,0)
X�radio(0,9,1)
b�
l
v��setvoice
�I%=BLK%!24
�� I%<10 � I%>17 � �
�A$=�getname
�SOF$(I%-9)=�leaf(A$)
��seticon(0,I%,�leaf(A$))
��radio(0,7,0)
��radio(0,8,1)
��radio(0,9,0)
��
�
�ݤleaf(F$)
�� �F$,".")=0 � =F$
�	T$=""

LP%=�F$

ȕ �F$,LP%,1)<>"."

T$=�F$,LP%,1)+T$

 
LP%-=1

*�

4=T$

>

H��dragsave

RA$=�getname

\�seticon(0,6,A$)

fș "Wimp_CreateMenu",-1

pBLK%!12=BLK%!8

z
BLK%!16=3

�!BLK%=64

�1ș "Wimp_SendMessage",17,BLK%,BLK%!20,BLK%!24

��

�

�
ݤgetname

�	W$=""

�P%=BLK%+44

�ȕ ?P%<>0 � ?P%<>13

�W$=W$+�(?P%)

�	P%+=1

��

�=W$

�

��load
A$=�getname
BLK%!12=BLK%!8
$
BLK%!16=4
.!BLK%=64
8(ș "Wimp_SendMessage",17,BLK%,BLK%!4
B� OP%=0 � �openmain
L�seticon(0,3,A$)
V�
`
j��scrapslot
tș"Wimp_SlotSize",APS%,-1
~�
�
���loaddelt
�A$=�geticon(0,3)
�F%=�(A$)
�E%=�#F%
�VER$=""
�
�L%=1 � 5
�VER$=VER$+�(�#F%)
��
�
�#F%=0
��#F%
�!� VER$="V1.05" � E%-=(5*1024)
!ș "Wimp_SlotSize",APS%+E%,-1

"ș "Wimp_SlotSize",-1,-1 � AS%
F� AS%<(APS%+E%) � �message(0,"Not enough room to load delta file")
F%=�(A$)
("� VER$="V1.05" � �#F%=(5*1024)
2 ș "OS_GBPB",4,F%,DELDAT%,E%
<�#F%
F�
P
Z
��save
d>� � (�high(0,7) � �high(0,8) � �high(0,9)) � �radio(0,7,1)
nI� �high(0,7) � TRK%=0 � � �high(0,8) � TRK%=2 � � �high(0,9) � TRK%=1
x
�loaddelt
�ODN$=�geticon(0,3)
�DIN$="!"+�leaf(ODN$)
�!� �(DIN$)>10 � DIN$=�DIN$,10)
�-ODN$=�ODN$,(�(ODN$)-�(�leaf(ODN$))))+DIN$
��("CDIR "+ODN$)
�6� SPN$<>DIN$ � ș&2E,282,APSP%,SPN$,DIN$:SPN$=DIN$
�$ș&2E,268,APSP%,ODN$+".!Sprites"
�DFI%=�(ODN$+".Animation")
�$SOWO%="V1.05"
�SOWO%?6=TRK%
�
SOF%=7
�
�L%=1 � 8
�.$(SOWO%+SOF%)=SOF$(L%):SOF%+=�(SOF$(L%))+1
.$(SOWO%+SOF%)=SOF$(L%):SOF%+=�(SOF$(L%))+1
�
$ș "OS_GBPB",2,DFI%,SOWO%,5*1024
""ș "OS_GBPB",2,DFI%,DELDAT%,E%
,
�#DFI%
6DFI%=�(ODN$+".!Run")
@@�#DFI%,"| !Run file for '"+DIN$+"' DeltSound animation file"
J)�#DFI%,"| This file was saved on "+�$
T)�#DFI%,"Set Animation$Dir <Obey$Dir>"
^;�#DFI%,"<DeltaView$Dir>.!Run <Animation$Dir>.Animation"
h
�#DFI%
r'�("SETTYPE "+ODN$+".Animation 54F")
|"�("SETTYPE "+ODN$+".!Run FEB")
��scrapslot
��
�

00000000  0d 00 0a 20 f4 20 3e 3c  44 65 6c 74 53 6f 75 6e  |... . ><DeltSoun|
00000010  64 24 44 69 72 3e 2e 21  52 75 6e 49 6d 61 67 65  |d$Dir>.!RunImage|
00000020  0d 00 14 0f ee 20 85 20  f2 6d 61 6b 65 72 72 0d  |..... . .makerr.|
00000030  00 1e 0a f2 73 65 74 75  70 0d 00 28 0b f2 61 63  |....setup..(..ac|
00000040  74 69 6f 6e 0d 00 32 08  f2 64 69 65 0d 00 3c 05  |tion..2..die..<.|
00000050  e0 0d 00 46 0b dd f2 73  65 74 75 70 0d 00 50 09  |...F...setup..P.|
00000060  4f 50 25 3d 30 0d 00 5a  41 de 20 50 4f 49 25 20  |OP%=0..ZA. POI% |
00000070  32 35 36 2c 54 41 53 25  20 32 30 30 30 2c 42 4c  |256,TAS% 2000,BL|
00000080  4b 25 20 31 30 30 30 2c  4d 45 4e 55 25 20 31 30  |K% 1000,MENU% 10|
00000090  30 30 2c 53 45 4c 25 20  32 35 36 2c 49 43 42 4c  |00,SEL% 256,ICBL|
000000a0  4b 25 20 32 35 36 0d 00  64 27 de 20 53 4f 57 4f  |K% 256..d'. SOWO|
000000b0  25 20 28 35 2a 31 30 32  34 29 2c 53 4f 46 24 28  |% (5*1024),SOF$(|
000000c0  38 29 2c 41 50 53 50 25  20 31 30 32 34 0d 00 6e  |8),APSP% 1024..n|
000000d0  0f 21 41 50 53 50 25 3d  31 30 32 34 0d 00 78 2f  |.!APSP%=1024..x/|
000000e0  c8 99 26 32 45 2c 32 36  36 2c 41 50 53 50 25 2c  |..&2E,266,APSP%,|
000000f0  22 3c 44 65 6c 74 53 6f  75 6e 64 24 44 69 72 3e  |"<DeltSound$Dir>|
00000100  2e 41 70 70 53 70 72 69  74 65 22 0d 00 82 13 53  |.AppSprite"....S|
00000110  50 4e 24 3d 22 66 69 6c  65 6e 61 6d 65 22 0d 00  |PN$="filename"..|
00000120  8c 0d 53 4f 46 24 28 29  3d 22 22 0d 00 96 0a 54  |..SOF$()=""....T|
00000130  52 4b 25 3d 30 0d 00 a0  14 e3 4c 25 3d 30 20 b8  |RK%=0.....L%=0 .|
00000140  20 35 31 31 36 20 88 20  34 0d 00 aa 0f 53 4f 57  | 5116 . 4....SOW|
00000150  4f 25 21 4c 25 3d 2d 31  0d 00 b4 05 ed 0d 00 be  |O%!L%=-1........|
00000160  22 c8 99 22 57 69 6d 70  5f 53 6c 6f 74 53 69 7a  |".."Wimp_SlotSiz|
00000170  65 22 2c 2d 31 2c 2d 31  20 b8 20 41 50 53 25 0d  |e",-1,-1 . APS%.|
00000180  00 c8 0d 44 45 4c 44 41  54 25 3d 93 0d 00 d2 10  |...DELDAT%=.....|
00000190  24 54 41 53 25 3d 22 54  41 53 4b 22 0d 00 dc 35  |$TAS%="TASK"...5|
000001a0  c8 99 22 57 69 6d 70 5f  49 6e 69 74 69 61 6c 69  |.."Wimp_Initiali|
000001b0  73 65 22 2c 32 30 30 2c  21 54 41 53 25 2c 22 44  |se",200,!TAS%,"D|
000001c0  65 6c 74 53 6f 75 6e 64  22 20 b8 20 48 41 4e 44  |eltSound" . HAND|
000001d0  25 0d 00 e6 10 f2 6c 6f  61 64 73 70 72 69 74 65  |%.....loadsprite|
000001e0  73 0d 00 f0 0c 21 42 4c  4b 25 3d 2d 31 0d 00 fa  |s....!BLK%=-1...|
000001f0  0c 42 4c 4b 25 21 34 3d  30 0d 01 04 0c 42 4c 4b  |.BLK%!4=0....BLK|
00000200  25 21 38 3d 30 0d 01 0e  0e 42 4c 4b 25 21 31 32  |%!8=0....BLK%!12|
00000210  3d 36 34 0d 01 18 0e 42  4c 4b 25 21 31 36 3d 36  |=64....BLK%!16=6|
00000220  34 0d 01 22 11 42 4c 4b  25 21 32 30 3d 26 32 31  |4..".BLK%!20=&21|
00000230  30 32 0d 01 2c 10 de 20  42 4c 4b 25 21 32 34 20  |02..,.. BLK%!24 |
00000240  31 30 0d 01 36 1b 24 28  42 4c 4b 25 21 32 34 29  |10..6.$(BLK%!24)|
00000250  3d 22 21 44 65 6c 74 53  6f 75 6e 64 22 0d 01 40  |="!DeltSound"..@|
00000260  14 42 4c 4b 25 21 32 38  3d 53 50 52 49 54 45 53  |.BLK%!28=SPRITES|
00000270  25 0d 01 4a 0e 42 4c 4b  25 21 33 32 3d 31 30 0d  |%..J.BLK%!32=10.|
00000280  01 54 28 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.T(.. "Wimp_Crea|
00000290  74 65 49 63 6f 6e 22 2c  2c 42 4c 4b 25 20 b8 20  |teIcon",,BLK% . |
000002a0  49 43 48 41 4e 44 25 0d  01 5e 37 c8 99 20 22 57  |ICHAND%..^7.. "W|
000002b0  69 6d 70 5f 4f 70 65 6e  54 65 6d 70 6c 61 74 65  |imp_OpenTemplate|
000002c0  22 2c 2c 22 3c 44 65 6c  74 53 6f 75 6e 64 24 44  |",,"<DeltSound$D|
000002d0  69 72 3e 2e 54 65 6d 70  6c 61 74 65 73 22 0d 01  |ir>.Templates"..|
000002e0  68 30 de 20 53 54 4f 52  45 25 20 28 36 2a 31 30  |h0. STORE% (6*10|
000002f0  32 34 29 2c 42 55 46 25  28 32 29 2c 49 4e 44 49  |24),BUF%(2),INDI|
00000300  52 25 28 32 29 2c 48 41  4e 44 25 28 32 29 0d 01  |R%(2),HAND%(2)..|
00000310  72 0d e3 4c 25 3d 30 20  b8 20 32 0d 01 7c 1d 42  |r..L%=0 . 2..|.B|
00000320  55 46 25 28 4c 25 29 3d  53 54 4f 52 45 25 2b 28  |UF%(L%)=STORE%+(|
00000330  4c 25 2a 31 30 32 34 29  0d 01 86 23 49 4e 44 49  |L%*1024)...#INDI|
00000340  52 25 28 4c 25 29 3d 53  54 4f 52 45 25 2b 28 28  |R%(L%)=STORE%+((|
00000350  4c 25 2b 33 29 2a 31 30  32 34 29 0d 01 90 05 ed  |L%+3)*1024).....|
00000360  0d 01 9a 14 dc 20 4d 61  69 6e 2c 53 61 76 65 2c  |..... Main,Save,|
00000370  49 6e 66 6f 0d 01 a4 0a  f7 20 8d 74 5a 41 0d 01  |Info..... .tZA..|
00000380  ae 0d e3 4b 25 3d 30 20  b8 20 32 0d 01 b8 08 f3  |...K%=0 . 2.....|
00000390  20 41 24 0d 01 c2 47 c8  99 20 22 57 69 6d 70 5f  | A$...G.. "Wimp_|
000003a0  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 42  |LoadTemplate",,B|
000003b0  55 46 25 28 4b 25 29 2c  49 4e 44 49 52 25 28 4b  |UF%(K%),INDIR%(K|
000003c0  25 29 2c 49 4e 44 49 52  25 28 4b 25 29 2b 31 30  |%),INDIR%(K%)+10|
000003d0  32 34 2c 2d 31 2c 41 24  2c 30 0d 01 cc 05 ed 0d  |24,-1,A$,0......|
000003e0  01 d6 0a f7 20 8d 74 5a  41 0d 01 e0 0d e3 4b 25  |.... .tZA.....K%|
000003f0  3d 30 20 b8 20 32 0d 01  ea 08 f3 20 41 24 0d 01  |=0 . 2..... A$..|
00000400  f4 30 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.0.. "Wimp_Creat|
00000410  65 57 69 6e 64 6f 77 22  2c 2c 42 55 46 25 28 4b  |eWindow",,BUF%(K|
00000420  25 29 20 b8 20 48 41 4e  44 25 28 4b 25 29 0d 01  |%) . HAND%(K%)..|
00000430  fe 05 ed 0d 02 08 1b c8  99 20 22 57 69 6d 70 5f  |......... "Wimp_|
00000440  43 6c 6f 73 65 54 65 6d  70 6c 61 74 65 22 0d 02  |CloseTemplate"..|
00000450  12 05 e1 0d 02 1c 04 0d  02 26 11 dd f2 6c 6f 61  |.........&...loa|
00000460  64 73 70 72 69 74 65 73  0d 02 30 13 de 20 53 50  |dsprites..0.. SP|
00000470  52 49 54 45 53 25 20 32  30 30 30 0d 02 3a 12 21  |RITES% 2000..:.!|
00000480  53 50 52 49 54 45 53 25  3d 32 30 30 30 0d 02 44  |SPRITES%=2000..D|
00000490  10 53 50 52 49 54 45 53  25 21 34 3d 30 0d 02 4e  |.SPRITES%!4=0..N|
000004a0  11 53 50 52 49 54 45 53  25 21 38 3d 31 36 0d 02  |.SPRITES%!8=16..|
000004b0  58 12 53 50 52 49 54 45  53 25 21 31 32 3d 31 36  |X.SPRITES%!12=16|
000004c0  0d 02 62 32 c8 99 20 26  32 45 2c 32 36 36 2c 53  |..b2.. &2E,266,S|
000004d0  50 52 49 54 45 53 25 2c  22 3c 44 65 6c 74 53 6f  |PRITES%,"<DeltSo|
000004e0  75 6e 64 24 44 69 72 3e  2e 21 53 70 72 69 74 65  |und$Dir>.!Sprite|
000004f0  73 22 0d 02 6c 05 e1 0d  02 76 04 0d 02 80 0c dd  |s"..l....v......|
00000500  f2 61 63 74 69 6f 6e 0d  02 8a 05 f5 0d 02 94 09  |.action.........|
00000510  f2 70 6f 6c 6c 0d 02 9e  27 fd 20 28 52 45 41 53  |.poll...'. (REAS|
00000520  25 3d 31 37 20 84 20 52  45 41 53 25 3d 31 38 29  |%=17 . REAS%=18)|
00000530  20 80 20 42 4c 4b 25 21  31 36 3d 30 0d 02 a8 05  | . BLK%!16=0....|
00000540  e1 0d 02 b2 04 0d 02 bc  1a dd f2 64 69 65 3a 4f  |...........die:O|
00000550  50 25 3d 30 3a f2 73 63  72 61 70 73 6c 6f 74 0d  |P%=0:.scrapslot.|
00000560  02 c6 23 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |..#.. "Wimp_Clos|
00000570  65 44 6f 77 6e 22 2c 48  41 4e 44 25 2c 21 54 41  |eDown",HAND%,!TA|
00000580  53 25 0d 02 d0 05 e0 0d  02 da 05 e1 0d 02 e4 04  |S%..............|
00000590  0d 02 ee 0a dd f2 70 6f  6c 6c 0d 02 f8 1f 21 42  |......poll....!B|
000005a0  4c 4b 25 3d 25 31 30 30  31 31 31 31 31 31 31 30  |LK%=%10011111110|
000005b0  31 31 30 31 31 30 30 31  31 0d 03 02 21 c8 99 20  |110110011...!.. |
000005c0  22 57 69 6d 70 5f 50 6f  6c 6c 22 2c 30 2c 42 4c  |"Wimp_Poll",0,BL|
000005d0  4b 25 20 b8 20 52 45 41  53 25 0d 03 0c 15 e7 20  |K% . REAS%..... |
000005e0  52 45 41 53 25 3e 2d 31  20 8c 20 f2 61 63 74 0d  |REAS%>-1 . .act.|
000005f0  03 16 05 e1 0d 03 20 09  dd f2 61 63 74 0d 03 2a  |...... ...act..*|
00000600  0e c8 8e 20 52 45 41 53  25 20 ca 0d 03 34 0f c9  |... REAS% ...4..|
00000610  20 32 3a f2 6f 70 6d 61  69 6e 0d 03 3e 0f c9 20  | 2:.opmain..>.. |
00000620  33 3a f2 63 6c 6d 61 69  6e 0d 03 48 0e c9 20 36  |3:.clmain..H.. 6|
00000630  3a f2 6d 6f 75 73 65 0d  03 52 0d c9 20 39 3a f2  |:.mouse..R.. 9:.|
00000640  6d 65 6e 75 0d 03 5c 1f  c9 20 31 37 2c 31 38 3a  |menu..\.. 17,18:|
00000650  f2 69 6e 6d 65 73 73 61  67 65 28 42 4c 4b 25 21  |.inmessage(BLK%!|
00000660  31 36 29 0d 03 66 05 cb  0d 03 70 05 e1 0d 03 7a  |16)..f....p....z|
00000670  04 0d 03 84 0e dd f2 6f  70 65 6e 6d 61 69 6e 0d  |.......openmain.|
00000680  03 8e 09 4f 50 25 3d 31  0d 03 98 12 21 42 4c 4b  |...OP%=1....!BLK|
00000690  25 3d 48 41 4e 44 25 28  30 29 0d 03 a2 0e 42 4c  |%=HAND%(0)....BL|
000006a0  4b 25 21 34 3d 31 30 30  0d 03 ac 0e 42 4c 4b 25  |K%!4=100....BLK%|
000006b0  21 38 3d 34 30 30 0d 03  b6 10 42 4c 4b 25 21 31  |!8=400....BLK%!1|
000006c0  32 3d 31 31 39 34 0d 03  c0 0f 42 4c 4b 25 21 31  |2=1194....BLK%!1|
000006d0  36 3d 38 32 38 0d 03 ca  0d 42 4c 4b 25 21 32 30  |6=828....BLK%!20|
000006e0  3d 30 0d 03 d4 0d 42 4c  4b 25 21 32 34 3d 30 0d  |=0....BLK%!24=0.|
000006f0  03 de 0e 42 4c 4b 25 21  32 38 3d 2d 31 0d 03 e8  |...BLK%!28=-1...|
00000700  1e c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |... "Wimp_OpenWi|
00000710  6e 64 6f 77 22 2c 2c 42  4c 4b 25 0d 03 f2 05 e1  |ndow",,BLK%.....|
00000720  0d 03 fc 04 0d 04 06 0c  dd f2 6f 70 6d 61 69 6e  |..........opmain|
00000730  0d 04 10 09 4f 50 25 3d  31 0d 04 1a 1e c8 99 20  |....OP%=1...... |
00000740  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00000750  22 2c 2c 42 4c 4b 25 0d  04 24 05 e1 0d 04 2e 04  |",,BLK%..$......|
00000760  0d 04 38 0c dd f2 63 6c  6d 61 69 6e 0d 04 42 09  |..8...clmain..B.|
00000770  4f 50 25 3d 30 0d 04 4c  1f c8 99 20 22 57 69 6d  |OP%=0..L... "Wim|
00000780  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 2c  |p_CloseWindow",,|
00000790  42 4c 4b 25 0d 04 56 05  e1 0d 04 60 04 0d 04 6a  |BLK%..V....`...j|
000007a0  0c dd f2 6d 61 6b 65 72  72 0d 04 74 18 c8 99 20  |...makerr..t... |
000007b0  22 57 69 6d 70 5f 44 72  61 67 42 6f 78 22 2c 2c  |"Wimp_DragBox",,|
000007c0  30 0d 04 7e 0b 21 42 4c  4b 25 3d 9f 0d 04 88 08  |0..~.!BLK%=.....|
000007d0  45 52 3d b9 0d 04 92 0a  c8 8e 20 9f 20 ca 0d 04  |ER=....... . ...|
000007e0  9c 34 c9 20 32 32 32 3a  24 28 42 4c 4b 25 2b 34  |.4. 222:$(BLK%+4|
000007f0  29 3d 22 46 69 6c 65 20  63 61 6e 6e 6f 74 20 62  |)="File cannot b|
00000800  65 20 66 6f 75 6e 64 22  2b bd 28 30 29 3a 45 52  |e found"+.(0):ER|
00000810  3d a3 0d 04 a6 05 7f 0d  04 b0 24 24 28 42 4c 4b  |=.........$$(BLK|
00000820  25 2b 34 29 3d f6 24 2b  22 20 61 74 20 6c 69 6e  |%+4)=.$+" at lin|
00000830  65 20 22 2b c3 9e 2b bd  28 30 29 0d 04 ba 05 cb  |e "+..+.(0).....|
00000840  0d 04 c4 2c c8 99 20 22  57 69 6d 70 5f 52 65 70  |...,.. "Wimp_Rep|
00000850  6f 72 74 45 72 72 6f 72  22 2c 42 4c 4b 25 2c 31  |ortError",BLK%,1|
00000860  2c 22 44 65 6c 74 53 6f  75 6e 64 22 0d 04 ce 1b  |,"DeltSound"....|
00000870  e7 20 45 52 20 8c 20 f2  64 69 65 20 8b 20 f2 61  |. ER . .die . .a|
00000880  63 74 69 6f 6e 3a e0 0d  04 d8 05 e1 0d 04 e2 04  |ction:..........|
00000890  0d 04 ec 14 dd f2 6d 65  73 73 61 67 65 28 4d 25  |......message(M%|
000008a0  2c 4d 24 29 0d 04 f6 18  c8 99 20 22 57 69 6d 70  |,M$)...... "Wimp|
000008b0  5f 44 72 61 67 42 6f 78  22 2c 2c 30 0d 05 00 0c  |_DragBox",,0....|
000008c0  21 42 4c 4b 25 3d 4d 25  0d 05 0a 15 24 28 42 4c  |!BLK%=M%....$(BL|
000008d0  4b 25 2b 34 29 3d 4d 24  2b bd 28 30 29 0d 05 14  |K%+4)=M$+.(0)...|
000008e0  2c c8 99 20 22 57 69 6d  70 5f 52 65 70 6f 72 74  |,.. "Wimp_Report|
000008f0  45 72 72 6f 72 22 2c 42  4c 4b 25 2c 31 2c 22 44  |Error",BLK%,1,"D|
00000900  65 6c 74 53 6f 75 6e 64  22 0d 05 1e 0e f2 73 63  |eltSound".....sc|
00000910  72 61 70 73 6c 6f 74 0d  05 28 0b f2 61 63 74 69  |rapslot..(..acti|
00000920  6f 6e 0d 05 32 05 e0 0d  05 3c 05 e1 0d 05 46 04  |on..2....<....F.|
00000930  0d 05 50 0b dd f2 6d 6f  75 73 65 0d 05 5a 0f 4d  |..P...mouse..Z.M|
00000940  4f 55 58 25 3d 21 42 4c  4b 25 0d 05 64 10 4d 4f  |OUX%=!BLK%..d.MO|
00000950  55 59 25 3d 42 4c 4b 25  21 34 0d 05 6e 10 4d 4f  |UY%=BLK%!4..n.MO|
00000960  55 42 25 3d 42 4c 4b 25  21 38 0d 05 78 11 4d 4f  |UB%=BLK%!8..x.MO|
00000970  55 48 25 3d 42 4c 4b 25  21 31 32 0d 05 82 0f 49  |UH%=BLK%!12....I|
00000980  43 25 3d 42 4c 4b 25 21  31 36 0d 05 8c 17 e7 20  |C%=BLK%!16..... |
00000990  4d 4f 55 42 25 3d 31 20  8c 20 4d 4f 55 42 25 3d  |MOUB%=1 . MOUB%=|
000009a0  34 0d 05 96 0e c8 8e 20  4d 4f 55 42 25 20 ca 0d  |4...... MOUB% ..|
000009b0  05 a0 08 c9 20 34 3a 0d  05 aa 15 20 20 20 20 20  |.... 4:....     |
000009c0  20 20 c8 8e 20 4d 4f 55  48 25 20 ca 0d 05 b4 19  |  .. MOUH% .....|
000009d0  20 20 20 20 20 20 20 c9  20 2d 32 3a f2 6f 70 65  |       . -2:.ope|
000009e0  6e 6d 61 69 6e 0d 05 be  1d 20 20 20 20 20 20 20  |nmain....       |
000009f0  c9 20 20 48 41 4e 44 25  28 31 29 3a f2 66 78 68  |.  HAND%(1):.fxh|
00000a00  69 74 0d 05 c8 0c 20 20  20 20 20 20 20 cb 0d 05  |it....       ...|
00000a10  d2 08 c9 20 32 3a 0d 05  dc 40 20 20 20 20 20 20  |... 2:...@      |
00000a20  20 e7 20 4d 4f 55 48 25  3d 2d 32 20 8c 20 f2 69  | . MOUH%=-2 . .i|
00000a30  63 6f 6e 6d 65 6e 75 20  8b 20 e7 20 4d 4f 55 48  |conmenu . . MOUH|
00000a40  25 3d 48 41 4e 44 25 28  30 29 20 8c 20 f2 77 69  |%=HAND%(0) . .wi|
00000a50  6e 64 6d 65 6e 75 0d 05  e6 0c c9 20 31 36 2c 36  |ndmenu..... 16,6|
00000a60  34 3a 0d 05 f0 28 20 20  20 20 20 20 20 e7 20 4d  |4:...(       . M|
00000a70  4f 55 48 25 3d 48 41 4e  44 25 28 31 29 20 8c 20  |OUH%=HAND%(1) . |
00000a80  f2 73 74 61 72 74 64 72  61 67 0d 05 fa 05 cb 0d  |.startdrag......|
00000a90  06 04 05 e1 0d 06 0e 04  0d 06 18 0b dd f2 66 78  |..............fx|
00000aa0  68 69 74 0d 06 22 0d e7  20 49 43 25 3d 35 20 8c  |hit..".. IC%=5 .|
00000ab0  0d 06 2c 17 56 25 3d bb  28 a4 67 65 74 69 63 6f  |..,.V%=.(.getico|
00000ac0  6e 28 31 2c 34 29 29 0d  06 36 09 56 25 2b 3d 31  |n(1,4))..6.V%+=1|
00000ad0  0d 06 40 11 e7 20 56 25  3e 38 20 8c 20 56 25 3d  |..@.. V%>8 . V%=|
00000ae0  38 0d 06 4a 15 f2 73 65  74 69 63 6f 6e 28 31 2c  |8..J..seticon(1,|
00000af0  34 2c c3 56 25 29 0d 06  54 05 cd 0d 06 5e 0d e7  |4,.V%)..T....^..|
00000b00  20 49 43 25 3d 30 20 8c  0d 06 68 17 56 25 3d bb  | IC%=0 ...h.V%=.|
00000b10  28 a4 67 65 74 69 63 6f  6e 28 31 2c 34 29 29 0d  |(.geticon(1,4)).|
00000b20  06 72 09 56 25 2d 3d 31  0d 06 7c 11 e7 20 56 25  |.r.V%-=1..|.. V%|
00000b30  3c 31 20 8c 20 56 25 3d  31 0d 06 86 15 f2 73 65  |<1 . V%=1.....se|
00000b40  74 69 63 6f 6e 28 31 2c  34 2c c3 56 25 29 0d 06  |ticon(1,4,.V%)..|
00000b50  90 05 cd 0d 06 9a 0e e7  20 49 43 25 3d 31 33 20  |........ IC%=13 |
00000b60  8c 0d 06 a4 17 46 25 3d  bb 28 a4 67 65 74 69 63  |.....F%=.(.getic|
00000b70  6f 6e 28 31 2c 32 29 29  0d 06 ae 4e e7 20 46 25  |on(1,2))...N. F%|
00000b80  3c 31 20 84 20 46 25 3e  32 35 30 20 8c 20 f2 6d  |<1 . F%>250 . .m|
00000b90  65 73 73 61 67 65 28 31  2c 22 59 6f 75 20 63 61  |essage(1,"You ca|
00000ba0  6e 20 6f 6e 6c 79 20 68  61 76 65 20 62 65 74 77  |n only have betw|
00000bb0  65 65 6e 20 31 20 61 6e  64 20 32 35 30 20 66 72  |een 1 and 250 fr|
00000bc0  61 6d 65 73 22 29 0d 06  b8 18 56 4f 25 3d bb 28  |ames")....VO%=.(|
00000bd0  a4 67 65 74 69 63 6f 6e  28 31 2c 36 29 29 0d 06  |.geticon(1,6))..|
00000be0  c2 5b e7 20 56 4f 25 3e  31 35 20 84 20 56 4f 25  |.[. VO%>15 . VO%|
00000bf0  3c 31 20 8c 20 f2 6d 65  73 73 61 67 65 28 31 2c  |<1 . .message(1,|
00000c00  22 54 68 65 20 76 6f 6c  75 6d 65 20 73 68 6f 75  |"The volume shou|
00000c10  6c 64 20 62 65 20 62 65  74 77 65 65 6e 20 31 20  |ld be between 1 |
00000c20  61 6e 64 20 31 35 2e 20  28 31 35 20 69 73 20 6c  |and 15. (15 is l|
00000c30  6f 75 64 65 73 74 29 22  29 0d 06 cc 18 43 48 25  |oudest)")....CH%|
00000c40  3d bb 28 a4 67 65 74 69  63 6f 6e 28 31 2c 34 29  |=.(.geticon(1,4)|
00000c50  29 0d 06 d6 19 46 52 25  3d bb 28 a4 67 65 74 69  |)....FR%=.(.geti|
00000c60  63 6f 6e 28 31 2c 31 30  29 29 0d 06 e0 19 44 55  |con(1,10))....DU|
00000c70  25 3d bb 28 a4 67 65 74  69 63 6f 6e 28 31 2c 31  |%=.(.geticon(1,1|
00000c80  31 29 29 0d 06 ea 1f 53  4f 42 25 3d 53 4f 57 4f  |1))....SOB%=SOWO|
00000c90  25 2b 31 30 32 34 2b 28  28 46 25 2d 31 29 2a 31  |%+1024+((F%-1)*1|
00000ca0  36 29 0d 06 f4 0d 21 53  4f 42 25 3d 43 48 25 0d  |6)....!SOB%=CH%.|
00000cb0  06 fe 0f 53 4f 42 25 21  34 3d 2d 56 4f 25 0d 07  |...SOB%!4=-VO%..|
00000cc0  08 0e 53 4f 42 25 21 38  3d 46 52 25 0d 07 12 0f  |..SOB%!8=FR%....|
00000cd0  53 4f 42 25 21 31 32 3d  44 55 25 0d 07 1c 0b f2  |SOB%!12=DU%.....|
00000ce0  6d 65 6e 6f 66 66 0d 07  26 05 cd 0d 07 30 05 e1  |menoff..&....0..|
00000cf0  0d 07 3a 04 0d 07 44 0c  dd f2 6d 65 6e 6f 66 66  |..:...D...menoff|
00000d00  0d 07 4e 1b c8 99 20 22  57 69 6d 70 5f 43 72 65  |..N... "Wimp_Cre|
00000d10  61 74 65 4d 65 6e 75 22  2c 2d 31 0d 07 58 05 e1  |ateMenu",-1..X..|
00000d20  0d 07 62 04 0d 07 6c 0e  dd f2 69 63 6f 6e 6d 65  |..b...l...iconme|
00000d30  6e 75 0d 07 76 17 24 4d  45 4e 55 25 3d 22 44 65  |nu..v.$MENU%="De|
00000d40  6c 74 53 6f 75 6e 64 22  3a 0d 07 80 0e 4d 45 4e  |ltSound":....MEN|
00000d50  55 25 3f 31 32 3d 37 0d  07 8a 0e 4d 45 4e 55 25  |U%?12=7....MENU%|
00000d60  3f 31 33 3d 32 0d 07 94  0e 4d 45 4e 55 25 3f 31  |?13=2....MENU%?1|
00000d70  34 3d 37 0d 07 9e 0e 4d  45 4e 55 25 3f 31 35 3d  |4=7....MENU%?15=|
00000d80  30 0d 07 a8 10 4d 45 4e  55 25 21 31 36 3d 31 30  |0....MENU%!16=10|
00000d90  30 0d 07 b2 0f 4d 45 4e  55 25 21 32 30 3d 34 34  |0....MENU%!20=44|
00000da0  0d 07 bc 0e 4d 45 4e 55  25 21 32 34 3d 30 0d 07  |....MENU%!24=0..|
00000db0  c6 0e 4d 45 4e 55 25 21  32 38 3d 30 0d 07 d0 15  |..MENU%!28=0....|
00000dc0  4d 45 4e 55 25 21 33 32  3d 48 41 4e 44 25 28 32  |MENU%!32=HAND%(2|
00000dd0  29 0d 07 da 18 4d 45 4e  55 25 21 33 36 3d 31 20  |)....MENU%!36=1 |
00000de0  84 20 28 37 3c 3c 32 34  29 0d 07 e4 16 24 28 4d  |. (7<<24)....$(M|
00000df0  45 4e 55 25 2b 34 30 29  3d 22 49 6e 66 6f 22 0d  |ENU%+40)="Info".|
00000e00  07 ee 10 4d 45 4e 55 25  21 35 32 3d 31 32 38 0d  |...MENU%!52=128.|
00000e10  07 f8 0f 4d 45 4e 55 25  21 35 36 3d 2d 31 0d 08  |...MENU%!56=-1..|
00000e20  02 18 4d 45 4e 55 25 21  36 30 3d 31 20 84 20 28  |..MENU%!60=1 . (|
00000e30  37 3c 3c 32 34 29 0d 08  0c 16 24 28 4d 45 4e 55  |7<<24)....$(MENU|
00000e40  25 2b 36 34 29 3d 22 51  75 69 74 22 0d 08 16 2c  |%+64)="Quit"...,|
00000e50  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
00000e60  65 6e 75 22 2c 2c 4d 45  4e 55 25 2c 4d 4f 55 58  |enu",,MENU%,MOUX|
00000e70  25 2d 36 34 2c 31 38 34  0d 08 20 05 e1 0d 08 2a  |%-64,184.. ....*|
00000e80  04 0d 08 34 0e dd f2 77  69 6e 64 6d 65 6e 75 0d  |...4...windmenu.|
00000e90  08 3e 16 24 4d 45 4e 55  25 3d 22 44 65 6c 74 53  |.>.$MENU%="DeltS|
00000ea0  6f 75 6e 64 22 0d 08 48  0e 4d 45 4e 55 25 3f 31  |ound"..H.MENU%?1|
00000eb0  32 3d 37 0d 08 52 0e 4d  45 4e 55 25 3f 31 33 3d  |2=7..R.MENU%?13=|
00000ec0  32 0d 08 5c 0e 4d 45 4e  55 25 3f 31 34 3d 37 0d  |2..\.MENU%?14=7.|
00000ed0  08 66 0e 4d 45 4e 55 25  3f 31 35 3d 30 0d 08 70  |.f.MENU%?15=0..p|
00000ee0  10 4d 45 4e 55 25 21 31  36 3d 32 34 30 0d 08 7a  |.MENU%!16=240..z|
00000ef0  0f 4d 45 4e 55 25 21 32  30 3d 34 34 0d 08 84 0e  |.MENU%!20=44....|
00000f00  4d 45 4e 55 25 21 32 34  3d 30 0d 08 8e 35 dc 20  |MENU%!24=0...5. |
00000f10  41 64 64 20 73 6f 75 6e  64 20 46 58 2c 31 2c 32  |Add sound FX,1,2|
00000f20  2c 53 61 76 65 2c 2d 31  2c 30 2c 49 6e 66 6f 2c  |,Save,-1,0,Info,|
00000f30  32 2c 32 2c 51 75 69 74  2c 2d 31 2c 31 32 38 0d  |2,2,Quit,-1,128.|
00000f40  08 98 0a f7 20 8d 74 4e  48 0d 08 a2 0d e3 4c 25  |.... .tNH.....L%|
00000f50  3d 30 20 b8 20 33 0d 08  ac 0e f3 20 41 24 2c 42  |=0 . 3..... A$,B|
00000f60  25 2c 43 25 0d 08 b6 19  4d 45 4e 55 25 21 28 32  |%,C%....MENU%!(2|
00000f70  38 2b 28 4c 25 2a 32 34  29 29 3d 43 25 0d 08 c0  |8+(L%*24))=C%...|
00000f80  46 e7 20 42 25 3e 2d 31  20 8c 20 4d 45 4e 55 25  |F. B%>-1 . MENU%|
00000f90  21 28 32 38 2b 28 4c 25  2a 32 34 29 2b 34 29 3d  |!(28+(L%*24)+4)=|
00000fa0  48 41 4e 44 25 28 42 25  29 20 8b 20 4d 45 4e 55  |HAND%(B%) . MENU|
00000fb0  25 21 28 32 38 2b 28 4c  25 2a 32 34 29 2b 34 29  |%!(28+(L%*24)+4)|
00000fc0  3d 2d 31 0d 08 ca 2a 4d  45 4e 55 25 21 28 32 38  |=-1...*MENU%!(28|
00000fd0  2b 28 4c 25 2a 32 34 29  2b 38 29 3d 31 20 84 20  |+(L%*24)+8)=1 . |
00000fe0  28 37 3c 3c 32 34 29 20  84 20 32 35 36 0d 08 d4  |(7<<24) . 256...|
00000ff0  1b 24 28 4d 45 4e 55 25  2b 35 30 30 2b 28 4c 25  |.$(MENU%+500+(L%|
00001000  2a 32 30 29 29 3d 41 24  0d 08 de 2d 4d 45 4e 55  |*20))=A$...-MENU|
00001010  25 21 28 32 38 2b 28 4c  25 2a 32 34 29 2b 31 32  |%!(28+(L%*24)+12|
00001020  29 3d 28 4d 45 4e 55 25  2b 35 30 30 2b 28 4c 25  |)=(MENU%+500+(L%|
00001030  2a 32 30 29 29 0d 08 e8  23 4d 45 4e 55 25 21 28  |*20))...#MENU%!(|
00001040  32 38 2b 28 4c 25 2a 32  34 29 2b 31 36 29 3d 4d  |28+(L%*24)+16)=M|
00001050  45 4e 55 25 2b 39 30 30  0d 08 f2 1c 4d 45 4e 55  |ENU%+900....MENU|
00001060  25 21 28 32 38 2b 28 4c  25 2a 32 34 29 2b 32 30  |%!(28+(L%*24)+20|
00001070  29 3d 32 30 0d 08 fc 05  ed 0d 09 06 1a 24 28 4d  |)=20.........$(M|
00001080  45 4e 55 25 2b 39 30 30  29 3d 22 41 41 2d 5a 61  |ENU%+900)="AA-Za|
00001090  2d 7a 22 0d 09 10 31 c8  99 20 22 57 69 6d 70 5f  |-z"...1.. "Wimp_|
000010a0  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 4d 45 4e  |CreateMenu",,MEN|
000010b0  55 25 2c 4d 4f 55 58 25  2d 36 34 2c 4d 4f 55 59  |U%,MOUX%-64,MOUY|
000010c0  25 2b 36 30 0d 09 1a 05  e1 0d 09 24 04 0d 09 2e  |%+60.......$....|
000010d0  0a dd f2 6d 65 6e 75 0d  09 38 29 c8 99 20 22 57  |...menu..8).. "W|
000010e0  69 6d 70 5f 44 65 63 6f  64 65 4d 65 6e 75 22 2c  |imp_DecodeMenu",|
000010f0  2c 4d 45 4e 55 25 2c 42  4c 4b 25 2c 53 45 4c 25  |,MENU%,BLK%,SEL%|
00001100  0d 09 42 19 e7 20 24 53  45 4c 25 3d 22 51 75 69  |..B.. $SEL%="Qui|
00001110  74 22 20 8c 20 f2 64 69  65 0d 09 4c 1a e7 20 24  |t" . .die..L.. $|
00001120  53 45 4c 25 3d 22 53 61  76 65 22 20 8c 20 f2 73  |SEL%="Save" . .s|
00001130  61 76 65 0d 09 56 05 e1  0d 09 60 04 0d 09 6a 0f  |ave..V....`...j.|
00001140  dd a4 67 73 74 72 28 41  44 25 29 0d 09 74 09 57  |..gstr(AD%)..t.W|
00001150  24 3d 22 22 0d 09 7e 3a  e7 20 3f 41 44 25 3c 33  |$=""..~:. ?AD%<3|
00001160  32 20 8c 20 3d 57 24 20  8b 20 f5 3a 57 24 3d 57  |2 . =W$ . .:W$=W|
00001170  24 2b bd 28 3f 41 44 25  29 3a 41 44 25 2b 3d 31  |$+.(?AD%):AD%+=1|
00001180  3a fd 20 3f 41 44 25 3c  33 32 3a 3d 57 24 0d 09  |:. ?AD%<32:=W$..|
00001190  88 04 0d 09 92 16 dd a4  67 65 74 69 63 6f 6e 28  |........geticon(|
000011a0  57 48 25 2c 49 43 25 29  0d 09 9c 16 21 49 43 42  |WH%,IC%)....!ICB|
000011b0  4c 4b 25 3d 48 41 4e 44  25 28 57 48 25 29 0d 09  |LK%=HAND%(WH%)..|
000011c0  a6 10 49 43 42 4c 4b 25  21 34 3d 49 43 25 0d 09  |..ICBLK%!4=IC%..|
000011d0  b0 22 c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |.".. "Wimp_GetIc|
000011e0  6f 6e 53 74 61 74 65 22  2c 2c 49 43 42 4c 4b 25  |onState",,ICBLK%|
000011f0  0d 09 ba 18 3d a4 67 73  74 72 28 21 28 49 43 42  |....=.gstr(!(ICB|
00001200  4c 4b 25 2b 32 38 29 29  0d 09 c4 04 0d 09 ce 1b  |LK%+28))........|
00001210  dd f2 73 65 74 69 63 6f  6e 28 57 48 25 2c 49 43  |..seticon(WH%,IC|
00001220  25 2c 53 45 54 24 29 0d  09 d8 16 21 49 43 42 4c  |%,SET$)....!ICBL|
00001230  4b 25 3d 48 41 4e 44 25  28 57 48 25 29 0d 09 e2  |K%=HAND%(WH%)...|
00001240  10 49 43 42 4c 4b 25 21  34 3d 49 43 25 0d 09 ec  |.ICBLK%!4=IC%...|
00001250  22 c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  |".. "Wimp_GetIco|
00001260  6e 53 74 61 74 65 22 2c  2c 49 43 42 4c 4b 25 0d  |nState",,ICBLK%.|
00001270  09 f6 0e 49 43 42 4c 4b  25 21 38 3d 30 0d 0a 00  |...ICBLK%!8=0...|
00001280  0f 49 43 42 4c 4b 25 21  31 32 3d 30 0d 0a 0a 15  |.ICBLK%!12=0....|
00001290  24 28 49 43 42 4c 4b 25  21 32 38 29 3d 53 45 54  |$(ICBLK%!28)=SET|
000012a0  24 0d 0a 14 22 c8 99 20  22 57 69 6d 70 5f 53 65  |$...".. "Wimp_Se|
000012b0  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 49 43 42  |tIconState",,ICB|
000012c0  4c 4b 25 0d 0a 1e 05 e1  0d 0a 28 04 0d 0a 32 13  |LK%.......(...2.|
000012d0  dd a4 68 69 67 68 28 57  48 25 2c 49 43 25 29 0d  |..high(WH%,IC%).|
000012e0  0a 3c 16 21 49 43 42 4c  4b 25 3d 48 41 4e 44 25  |.<.!ICBLK%=HAND%|
000012f0  28 57 48 25 29 0d 0a 46  10 49 43 42 4c 4b 25 21  |(WH%)..F.ICBLK%!|
00001300  34 3d 49 43 25 0d 0a 50  22 c8 99 20 22 57 69 6d  |4=IC%..P".. "Wim|
00001310  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00001320  2c 49 43 42 4c 4b 25 0d  0a 5a 22 3d 28 28 3f 28  |,ICBLK%..Z"=((?(|
00001330  49 43 42 4c 4b 25 2b 32  36 29 29 20 80 20 25 31  |ICBLK%+26)) . %1|
00001340  30 30 30 30 30 29 3d 33  32 0d 0a 64 04 0d 0a 6e  |00000)=32..d...n|
00001350  18 dd f2 72 61 64 69 6f  28 57 48 25 2c 49 43 25  |...radio(WH%,IC%|
00001360  2c 53 54 25 29 0d 0a 78  16 21 49 43 42 4c 4b 25  |,ST%)..x.!ICBLK%|
00001370  3d 48 41 4e 44 25 28 57  48 25 29 0d 0a 82 10 49  |=HAND%(WH%)....I|
00001380  43 42 4c 4b 25 21 34 3d  49 43 25 0d 0a 8c 14 49  |CBLK%!4=IC%....I|
00001390  43 42 4c 4b 25 21 38 3d  53 54 25 3c 3c 32 31 0d  |CBLK%!8=ST%<<21.|
000013a0  0a 96 13 49 43 42 4c 4b  25 21 31 32 3d 31 3c 3c  |...ICBLK%!12=1<<|
000013b0  32 31 0d 0a a0 22 c8 99  20 22 57 69 6d 70 5f 53  |21...".. "Wimp_S|
000013c0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 49 43  |etIconState",,IC|
000013d0  42 4c 4b 25 0d 0a aa 05  e1 0d 0a b4 04 0d 0a be  |BLK%............|
000013e0  0b dd f2 70 6f 69 6e 74  0d 0a c8 22 c8 99 20 22  |...point...".. "|
000013f0  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
00001400  6e 66 6f 22 2c 2c 50 4f  49 25 0d 0a d2 0e 4d 4f  |nfo",,POI%....MO|
00001410  58 25 3d 21 50 4f 49 25  0d 0a dc 0f 4d 4f 59 25  |X%=!POI%....MOY%|
00001420  3d 50 4f 49 25 21 34 0d  0a e6 0f 4d 4f 42 25 3d  |=POI%!4....MOB%=|
00001430  50 4f 49 25 21 38 0d 0a  f0 05 e1 0d 0a fa 04 0d  |POI%!8..........|
00001440  0b 04 0f dd f2 73 74 61  72 74 64 72 61 67 0d 0b  |.....startdrag..|
00001450  0e 25 c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |.%.. "Wimp_GetWi|
00001460  6e 64 6f 77 53 74 61 74  65 22 2c 2c 42 4c 4b 25  |ndowState",,BLK%|
00001470  2b 31 32 0d 0b 18 0e 58  25 3d 42 4c 4b 25 21 31  |+12....X%=BLK%!1|
00001480  36 0d 0b 22 0e 59 25 3d  42 4c 4b 25 21 32 38 0d  |6..".Y%=BLK%!28.|
00001490  0b 2c 0d 42 4c 4b 25 21  31 36 3d 30 0d 0b 36 23  |.,.BLK%!16=0..6#|
000014a0  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
000014b0  53 74 61 74 65 22 2c 2c  42 4c 4b 25 2b 31 32 0d  |State",,BLK%+12.|
000014c0  0b 40 0d 42 4c 4b 25 21  31 36 3d 35 0d 0b 4a 11  |.@.BLK%!16=5..J.|
000014d0  42 4c 4b 25 21 32 30 2b  3d 58 25 2d 32 0d 0b 54  |BLK%!20+=X%-2..T|
000014e0  11 42 4c 4b 25 21 32 34  2b 3d 59 25 2d 34 0d 0b  |.BLK%!24+=Y%-4..|
000014f0  5e 11 42 4c 4b 25 21 32  38 2b 3d 58 25 2b 36 0d  |^.BLK%!28+=X%+6.|
00001500  0b 68 0f 42 4c 4b 25 21  33 32 2b 3d 59 25 0d 0b  |.h.BLK%!32+=Y%..|
00001510  72 0d 42 4c 4b 25 21 33  36 3d 30 0d 0b 7c 0d 42  |r.BLK%!36=0..|.B|
00001520  4c 4b 25 21 34 30 3d 30  0d 0b 86 15 42 4c 4b 25  |LK%!40=0....BLK%|
00001530  21 34 34 3d 26 37 46 46  46 46 46 46 46 0d 0b 90  |!44=&7FFFFFFF...|
00001540  15 42 4c 4b 25 21 34 38  3d 26 37 46 46 46 46 46  |.BLK%!48=&7FFFFF|
00001550  46 46 0d 0b 9a 1e c8 99  20 22 57 69 6d 70 5f 44  |FF...... "Wimp_D|
00001560  72 61 67 42 6f 78 22 2c  2c 42 4c 4b 25 2b 31 32  |ragBox",,BLK%+12|
00001570  0d 0b a4 05 e1 0d 0b ae  04 0d 0b b8 13 dd f2 69  |...............i|
00001580  6e 6d 65 73 73 61 67 65  28 4d 25 29 0d 0b c2 0b  |nmessage(M%)....|
00001590  c8 8e 20 4d 25 20 ca 0d  0b cc 0c c9 20 30 3a f2  |.. M% ...... 0:.|
000015a0  64 69 65 0d 0b d6 11 c9  20 32 3a f2 64 72 61 67  |die..... 2:.drag|
000015b0  73 61 76 65 0d 0b e0 51  c9 20 33 3a e7 20 42 4c  |save...Q. 3:. BL|
000015c0  4b 25 21 31 32 3d 30 20  80 20 28 42 4c 4b 25 21  |K%!12=0 . (BLK%!|
000015d0  34 30 3d 26 30 30 31 20  84 20 42 4c 4b 25 21 34  |40=&001 . BLK%!4|
000015e0  30 3d 26 30 30 32 20 84  20 42 4c 4b 25 21 34 30  |0=&002 . BLK%!40|
000015f0  3d 26 43 42 36 29 20 8c  20 f2 6c 6f 61 64 74 72  |=&CB6) . .loadtr|
00001600  61 63 6b 65 72 0d 0b ea  31 20 20 20 20 20 20 20  |acker...1       |
00001610  e7 20 42 4c 4b 25 21 31  32 3d 30 20 80 20 42 4c  |. BLK%!12=0 . BL|
00001620  4b 25 21 34 30 3d 26 46  46 41 20 8c 20 f2 73 65  |K%!40=&FFA . .se|
00001630  74 76 6f 69 63 65 0d 0b  f4 2d 20 20 20 20 20 20  |tvoice...-      |
00001640  20 e7 20 42 4c 4b 25 21  31 32 3d 30 20 80 20 42  | . BLK%!12=0 . B|
00001650  4c 4b 25 21 34 30 3d 26  35 34 46 20 8c 20 f2 6c  |LK%!40=&54F . .l|
00001660  6f 61 64 0d 0b fe 05 cb  0d 0c 08 05 e1 0d 0c 12  |oad.............|
00001670  04 0d 0c 1c 11 dd f2 6c  6f 61 64 74 72 61 63 6b  |.......loadtrack|
00001680  65 72 0d 0c 26 0f 41 24  3d a4 67 65 74 6e 61 6d  |er..&.A$=.getnam|
00001690  65 0d 0c 30 15 53 4f 46  24 28 31 29 3d a4 6c 65  |e..0.SOF$(1)=.le|
000016a0  61 66 28 41 24 29 0d 0c  3a 1c f2 73 65 74 69 63  |af(A$)..:..setic|
000016b0  6f 6e 28 30 2c 31 30 2c  a4 6c 65 61 66 28 41 24  |on(0,10,.leaf(A$|
000016c0  29 29 0d 0c 44 11 f2 72  61 64 69 6f 28 30 2c 37  |))..D..radio(0,7|
000016d0  2c 30 29 0d 0c 4e 11 f2  72 61 64 69 6f 28 30 2c  |,0)..N..radio(0,|
000016e0  38 2c 30 29 0d 0c 58 11  f2 72 61 64 69 6f 28 30  |8,0)..X..radio(0|
000016f0  2c 39 2c 31 29 0d 0c 62  05 e1 0d 0c 6c 04 0d 0c  |,9,1)..b....l...|
00001700  76 0e dd f2 73 65 74 76  6f 69 63 65 0d 0c 80 0e  |v...setvoice....|
00001710  49 25 3d 42 4c 4b 25 21  32 34 0d 0c 8a 17 e7 20  |I%=BLK%!24..... |
00001720  49 25 3c 31 30 20 84 20  49 25 3e 31 37 20 8c 20  |I%<10 . I%>17 . |
00001730  e1 0d 0c 94 0f 41 24 3d  a4 67 65 74 6e 61 6d 65  |.....A$=.getname|
00001740  0d 0c 9e 18 53 4f 46 24  28 49 25 2d 39 29 3d a4  |....SOF$(I%-9)=.|
00001750  6c 65 61 66 28 41 24 29  0d 0c a8 1c f2 73 65 74  |leaf(A$).....set|
00001760  69 63 6f 6e 28 30 2c 49  25 2c a4 6c 65 61 66 28  |icon(0,I%,.leaf(|
00001770  41 24 29 29 0d 0c b2 11  f2 72 61 64 69 6f 28 30  |A$)).....radio(0|
00001780  2c 37 2c 30 29 0d 0c bc  11 f2 72 61 64 69 6f 28  |,7,0).....radio(|
00001790  30 2c 38 2c 31 29 0d 0c  c6 11 f2 72 61 64 69 6f  |0,8,1).....radio|
000017a0  28 30 2c 39 2c 30 29 0d  0c d0 05 e1 0d 0c da 04  |(0,9,0).........|
000017b0  0d 0c e4 0e dd a4 6c 65  61 66 28 46 24 29 0d 0c  |......leaf(F$)..|
000017c0  ee 16 e7 20 a7 46 24 2c  22 2e 22 29 3d 30 20 8c  |... .F$,".")=0 .|
000017d0  20 3d 46 24 0d 0c f8 09  54 24 3d 22 22 0d 0d 02  | =F$....T$=""...|
000017e0  0b 4c 50 25 3d a9 46 24  0d 0d 0c 16 c8 95 20 c1  |.LP%=.F$...... .|
000017f0  46 24 2c 4c 50 25 2c 31  29 3c 3e 22 2e 22 0d 0d  |F$,LP%,1)<>"."..|
00001800  16 14 54 24 3d c1 46 24  2c 4c 50 25 2c 31 29 2b  |..T$=.F$,LP%,1)+|
00001810  54 24 0d 0d 20 0a 4c 50  25 2d 3d 31 0d 0d 2a 05  |T$.. .LP%-=1..*.|
00001820  ce 0d 0d 34 07 3d 54 24  0d 0d 3e 04 0d 0d 48 0e  |...4.=T$..>...H.|
00001830  dd f2 64 72 61 67 73 61  76 65 0d 0d 52 0f 41 24  |..dragsave..R.A$|
00001840  3d a4 67 65 74 6e 61 6d  65 0d 0d 5c 14 f2 73 65  |=.getname..\..se|
00001850  74 69 63 6f 6e 28 30 2c  36 2c 41 24 29 0d 0d 66  |ticon(0,6,A$)..f|
00001860  1b c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |... "Wimp_Create|
00001870  4d 65 6e 75 22 2c 2d 31  0d 0d 70 12 42 4c 4b 25  |Menu",-1..p.BLK%|
00001880  21 31 32 3d 42 4c 4b 25  21 38 0d 0d 7a 0d 42 4c  |!12=BLK%!8..z.BL|
00001890  4b 25 21 31 36 3d 33 0d  0d 84 0c 21 42 4c 4b 25  |K%!16=3....!BLK%|
000018a0  3d 36 34 0d 0d 8e 31 c8  99 20 22 57 69 6d 70 5f  |=64...1.. "Wimp_|
000018b0  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 37 2c  |SendMessage",17,|
000018c0  42 4c 4b 25 2c 42 4c 4b  25 21 32 30 2c 42 4c 4b  |BLK%,BLK%!20,BLK|
000018d0  25 21 32 34 0d 0d 98 05  e1 0d 0d a2 04 0d 0d ac  |%!24............|
000018e0  0d dd a4 67 65 74 6e 61  6d 65 0d 0d b6 09 57 24  |...getname....W$|
000018f0  3d 22 22 0d 0d c0 0e 50  25 3d 42 4c 4b 25 2b 34  |=""....P%=BLK%+4|
00001900  34 0d 0d ca 17 c8 95 20  3f 50 25 3c 3e 30 20 80  |4...... ?P%<>0 .|
00001910  20 3f 50 25 3c 3e 31 33  0d 0d d4 10 57 24 3d 57  | ?P%<>13....W$=W|
00001920  24 2b bd 28 3f 50 25 29  0d 0d de 09 50 25 2b 3d  |$+.(?P%)....P%+=|
00001930  31 0d 0d e8 05 ce 0d 0d  f2 07 3d 57 24 0d 0d fc  |1.........=W$...|
00001940  04 0d 0e 06 0a dd f2 6c  6f 61 64 0d 0e 10 0f 41  |.......load....A|
00001950  24 3d a4 67 65 74 6e 61  6d 65 0d 0e 1a 12 42 4c  |$=.getname....BL|
00001960  4b 25 21 31 32 3d 42 4c  4b 25 21 38 0d 0e 24 0d  |K%!12=BLK%!8..$.|
00001970  42 4c 4b 25 21 31 36 3d  34 0d 0e 2e 0c 21 42 4c  |BLK%!16=4....!BL|
00001980  4b 25 3d 36 34 0d 0e 38  28 c8 99 20 22 57 69 6d  |K%=64..8(.. "Wim|
00001990  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
000019a0  37 2c 42 4c 4b 25 2c 42  4c 4b 25 21 34 0d 0e 42  |7,BLK%,BLK%!4..B|
000019b0  17 e7 20 4f 50 25 3d 30  20 8c 20 f2 6f 70 65 6e  |.. OP%=0 . .open|
000019c0  6d 61 69 6e 0d 0e 4c 14  f2 73 65 74 69 63 6f 6e  |main..L..seticon|
000019d0  28 30 2c 33 2c 41 24 29  0d 0e 56 05 e1 0d 0e 60  |(0,3,A$)..V....`|
000019e0  04 0d 0e 6a 0f dd f2 73  63 72 61 70 73 6c 6f 74  |...j...scrapslot|
000019f0  0d 0e 74 1d c8 99 22 57  69 6d 70 5f 53 6c 6f 74  |..t..."Wimp_Slot|
00001a00  53 69 7a 65 22 2c 41 50  53 25 2c 2d 31 0d 0e 7e  |Size",APS%,-1..~|
00001a10  05 e1 0d 0e 88 04 0d 0e  92 0e dd f2 6c 6f 61 64  |............load|
00001a20  64 65 6c 74 0d 0e 9c 14  41 24 3d a4 67 65 74 69  |delt....A$=.geti|
00001a30  63 6f 6e 28 30 2c 33 29  0d 0e a6 0c 46 25 3d ad  |con(0,3)....F%=.|
00001a40  28 41 24 29 0d 0e b0 0b  45 25 3d a2 23 46 25 0d  |(A$)....E%=.#F%.|
00001a50  0e ba 0b 56 45 52 24 3d  22 22 0d 0e c4 0d e3 4c  |...VER$="".....L|
00001a60  25 3d 31 20 b8 20 35 0d  0e ce 15 56 45 52 24 3d  |%=1 . 5....VER$=|
00001a70  56 45 52 24 2b bd 28 9a  23 46 25 29 0d 0e d8 05  |VER$+.(.#F%)....|
00001a80  ed 0d 0e e2 0a cf 23 46  25 3d 30 0d 0e ec 08 d9  |......#F%=0.....|
00001a90  23 46 25 0d 0e f6 21 e7  20 56 45 52 24 3d 22 56  |#F%...!. VER$="V|
00001aa0  31 2e 30 35 22 20 8c 20  45 25 2d 3d 28 35 2a 31  |1.05" . E%-=(5*1|
00001ab0  30 32 34 29 0d 0f 00 21  c8 99 20 22 57 69 6d 70  |024)...!.. "Wimp|
00001ac0  5f 53 6c 6f 74 53 69 7a  65 22 2c 41 50 53 25 2b  |_SlotSize",APS%+|
00001ad0  45 25 2c 2d 31 0d 0f 0a  22 c8 99 20 22 57 69 6d  |E%,-1...".. "Wim|
00001ae0  70 5f 53 6c 6f 74 53 69  7a 65 22 2c 2d 31 2c 2d  |p_SlotSize",-1,-|
00001af0  31 20 b8 20 41 53 25 0d  0f 14 46 e7 20 41 53 25  |1 . AS%...F. AS%|
00001b00  3c 28 41 50 53 25 2b 45  25 29 20 8c 20 f2 6d 65  |<(APS%+E%) . .me|
00001b10  73 73 61 67 65 28 30 2c  22 4e 6f 74 20 65 6e 6f  |ssage(0,"Not eno|
00001b20  75 67 68 20 72 6f 6f 6d  20 74 6f 20 6c 6f 61 64  |ugh room to load|
00001b30  20 64 65 6c 74 61 20 66  69 6c 65 22 29 0d 0f 1e  | delta file")...|
00001b40  0c 46 25 3d 8e 28 41 24  29 0d 0f 28 22 e7 20 56  |.F%=.(A$)..(". V|
00001b50  45 52 24 3d 22 56 31 2e  30 35 22 20 8c 20 cf 23  |ER$="V1.05" . .#|
00001b60  46 25 3d 28 35 2a 31 30  32 34 29 0d 0f 32 20 c8  |F%=(5*1024)..2 .|
00001b70  99 20 22 4f 53 5f 47 42  50 42 22 2c 34 2c 46 25  |. "OS_GBPB",4,F%|
00001b80  2c 44 45 4c 44 41 54 25  2c 45 25 0d 0f 3c 08 d9  |,DELDAT%,E%..<..|
00001b90  23 46 25 0d 0f 46 05 e1  0d 0f 50 04 0d 0f 5a 0a  |#F%..F....P...Z.|
00001ba0  dd f2 73 61 76 65 0d 0f  64 3e e7 20 ac 20 28 a4  |..save..d>. . (.|
00001bb0  68 69 67 68 28 30 2c 37  29 20 84 20 a4 68 69 67  |high(0,7) . .hig|
00001bc0  68 28 30 2c 38 29 20 84  20 a4 68 69 67 68 28 30  |h(0,8) . .high(0|
00001bd0  2c 39 29 29 20 8c 20 f2  72 61 64 69 6f 28 30 2c  |,9)) . .radio(0,|
00001be0  37 2c 31 29 0d 0f 6e 49  e7 20 a4 68 69 67 68 28  |7,1)..nI. .high(|
00001bf0  30 2c 37 29 20 8c 20 54  52 4b 25 3d 30 20 8b 20  |0,7) . TRK%=0 . |
00001c00  e7 20 a4 68 69 67 68 28  30 2c 38 29 20 8c 20 54  |. .high(0,8) . T|
00001c10  52 4b 25 3d 32 20 8b 20  e7 20 a4 68 69 67 68 28  |RK%=2 . . .high(|
00001c20  30 2c 39 29 20 8c 20 54  52 4b 25 3d 31 0d 0f 78  |0,9) . TRK%=1..x|
00001c30  0d f2 6c 6f 61 64 64 65  6c 74 0d 0f 82 16 4f 44  |..loaddelt....OD|
00001c40  4e 24 3d a4 67 65 74 69  63 6f 6e 28 30 2c 33 29  |N$=.geticon(0,3)|
00001c50  0d 0f 8c 18 44 49 4e 24  3d 22 21 22 2b a4 6c 65  |....DIN$="!"+.le|
00001c60  61 66 28 4f 44 4e 24 29  0d 0f 96 21 e7 20 a9 28  |af(ODN$)...!. .(|
00001c70  44 49 4e 24 29 3e 31 30  20 8c 20 44 49 4e 24 3d  |DIN$)>10 . DIN$=|
00001c80  c0 44 49 4e 24 2c 31 30  29 0d 0f a0 2d 4f 44 4e  |.DIN$,10)...-ODN|
00001c90  24 3d c0 4f 44 4e 24 2c  28 a9 28 4f 44 4e 24 29  |$=.ODN$,(.(ODN$)|
00001ca0  2d a9 28 a4 6c 65 61 66  28 4f 44 4e 24 29 29 29  |-.(.leaf(ODN$)))|
00001cb0  29 2b 44 49 4e 24 0d 0f  aa 13 ff 28 22 43 44 49  |)+DIN$.....("CDI|
00001cc0  52 20 22 2b 4f 44 4e 24  29 0d 0f b4 36 e7 20 53  |R "+ODN$)...6. S|
00001cd0  50 4e 24 3c 3e 44 49 4e  24 20 8c 20 c8 99 26 32  |PN$<>DIN$ . ..&2|
00001ce0  45 2c 32 38 32 2c 41 50  53 50 25 2c 53 50 4e 24  |E,282,APSP%,SPN$|
00001cf0  2c 44 49 4e 24 3a 53 50  4e 24 3d 44 49 4e 24 0d  |,DIN$:SPN$=DIN$.|
00001d00  0f be 24 c8 99 26 32 45  2c 32 36 38 2c 41 50 53  |..$..&2E,268,APS|
00001d10  50 25 2c 4f 44 4e 24 2b  22 2e 21 53 70 72 69 74  |P%,ODN$+".!Sprit|
00001d20  65 73 22 0d 0f c8 1d 44  46 49 25 3d ae 28 4f 44  |es"....DFI%=.(OD|
00001d30  4e 24 2b 22 2e 41 6e 69  6d 61 74 69 6f 6e 22 29  |N$+".Animation")|
00001d40  0d 0f d2 12 24 53 4f 57  4f 25 3d 22 56 31 2e 30  |....$SOWO%="V1.0|
00001d50  35 22 0d 0f dc 10 53 4f  57 4f 25 3f 36 3d 54 52  |5"....SOWO%?6=TR|
00001d60  4b 25 0d 0f e6 0a 53 4f  46 25 3d 37 0d 0f f0 0d  |K%....SOF%=7....|
00001d70  e3 4c 25 3d 31 20 b8 20  38 0d 0f fa 2e 24 28 53  |.L%=1 . 8....$(S|
00001d80  4f 57 4f 25 2b 53 4f 46  25 29 3d 53 4f 46 24 28  |OWO%+SOF%)=SOF$(|
00001d90  4c 25 29 3a 53 4f 46 25  2b 3d a9 28 53 4f 46 24  |L%):SOF%+=.(SOF$|
00001da0  28 4c 25 29 29 2b 31 0d  10 04 2e 24 28 53 4f 57  |(L%))+1....$(SOW|
00001db0  4f 25 2b 53 4f 46 25 29  3d 53 4f 46 24 28 4c 25  |O%+SOF%)=SOF$(L%|
00001dc0  29 3a 53 4f 46 25 2b 3d  a9 28 53 4f 46 24 28 4c  |):SOF%+=.(SOF$(L|
00001dd0  25 29 29 2b 31 0d 10 0e  05 ed 0d 10 18 24 c8 99  |%))+1........$..|
00001de0  20 22 4f 53 5f 47 42 50  42 22 2c 32 2c 44 46 49  | "OS_GBPB",2,DFI|
00001df0  25 2c 53 4f 57 4f 25 2c  35 2a 31 30 32 34 0d 10  |%,SOWO%,5*1024..|
00001e00  22 22 c8 99 20 22 4f 53  5f 47 42 50 42 22 2c 32  |"".. "OS_GBPB",2|
00001e10  2c 44 46 49 25 2c 44 45  4c 44 41 54 25 2c 45 25  |,DFI%,DELDAT%,E%|
00001e20  0d 10 2c 0a d9 23 44 46  49 25 0d 10 36 18 44 46  |..,..#DFI%..6.DF|
00001e30  49 25 3d ae 28 4f 44 4e  24 2b 22 2e 21 52 75 6e  |I%=.(ODN$+".!Run|
00001e40  22 29 0d 10 40 40 d5 23  44 46 49 25 2c 22 7c 20  |")..@@.#DFI%,"| |
00001e50  21 52 75 6e 20 66 69 6c  65 20 66 6f 72 20 27 22  |!Run file for '"|
00001e60  2b 44 49 4e 24 2b 22 27  20 44 65 6c 74 53 6f 75  |+DIN$+"' DeltSou|
00001e70  6e 64 20 61 6e 69 6d 61  74 69 6f 6e 20 66 69 6c  |nd animation fil|
00001e80  65 22 0d 10 4a 29 d5 23  44 46 49 25 2c 22 7c 20  |e"..J).#DFI%,"| |
00001e90  54 68 69 73 20 66 69 6c  65 20 77 61 73 20 73 61  |This file was sa|
00001ea0  76 65 64 20 6f 6e 20 22  2b 91 24 0d 10 54 29 d5  |ved on "+.$..T).|
00001eb0  23 44 46 49 25 2c 22 53  65 74 20 41 6e 69 6d 61  |#DFI%,"Set Anima|
00001ec0  74 69 6f 6e 24 44 69 72  20 3c 4f 62 65 79 24 44  |tion$Dir <Obey$D|
00001ed0  69 72 3e 22 0d 10 5e 3b  d5 23 44 46 49 25 2c 22  |ir>"..^;.#DFI%,"|
00001ee0  3c 44 65 6c 74 61 56 69  65 77 24 44 69 72 3e 2e  |<DeltaView$Dir>.|
00001ef0  21 52 75 6e 20 3c 41 6e  69 6d 61 74 69 6f 6e 24  |!Run <Animation$|
00001f00  44 69 72 3e 2e 41 6e 69  6d 61 74 69 6f 6e 22 0d  |Dir>.Animation".|
00001f10  10 68 0a d9 23 44 46 49  25 0d 10 72 27 ff 28 22  |.h..#DFI%..r'.("|
00001f20  53 45 54 54 59 50 45 20  22 2b 4f 44 4e 24 2b 22  |SETTYPE "+ODN$+"|
00001f30  2e 41 6e 69 6d 61 74 69  6f 6e 20 35 34 46 22 29  |.Animation 54F")|
00001f40  0d 10 7c 22 ff 28 22 53  45 54 54 59 50 45 20 22  |..|".("SETTYPE "|
00001f50  2b 4f 44 4e 24 2b 22 2e  21 52 75 6e 20 46 45 42  |+ODN$+".!Run FEB|
00001f60  22 29 0d 10 86 0e f2 73  63 72 61 70 73 6c 6f 74  |").....scrapslot|
00001f70  0d 10 90 05 e1 0d ff                              |.......|
00001f77