�     >!RunImage
� By  Robin Barnes
� For 32-bit machines
(� (c) BAU August 1993
2:
<heap%=�
Ffiletype%=&601
P:
Zindirln%=1024
d� winblk% 1024
n� block% 1024
x� palette% 64
�� bitmap% 256
�� scale% 16
�� menu% 256
�� indir% indirln%
�� code% 1024
�� input% 256
�
� task% 4
�$task%="TASK"
�:
�ș "OS_GetEnv" � env$
��setheap
�:
�,ș "OS_File",&FF,"<Obey$Dir>.code",code%

=ș "Wimp_Initialise",200,!task%,"Animator" � ,taskhandle%

� � �error

intflag%=0

"wdt%=256:hgt%=256

,frame%=0:delta%=1

6:

@	�code

J�getwindows

T&file$=�env$,�env$,"!RunImage")+11)

^� file$<>"" �

h$(block%+44)=file$+�(0)

rblock%!40=filetype%

|�load(block%+44,load%)

��

�	�poll

��

�:

�� �error

�	� � �

�ș "OS_SpriteOp",60,0,0,1

�)ș "Wimp_CloseDown",taskhandle%,task%

�� � �,�$+" at line "+�(�)

��

�:

�� �getwindows

�(sticn%=indir%:enicn%=indir%+indirln%
2ș "Wimp_OpenTemplate",,"<Obey$Dir>.Templates"
Mș "Wimp_LoadTemplate",,winblk%+4,sticn%,enicn%,-1,"animate",0 � ,,sticn%
!winblk%!44=0:winblk%!48=-hgt%
& winblk%!52=wdt%:winblk%!56=0
0/ș "Wimp_CreateWindow",,winblk%+4 � anmwin%
:Iș "Wimp_LoadTemplate",,block%+4,sticn%,enicn%,-1,"info",0 � ,,sticn%
D.ș "Wimp_CreateWindow",,block%+4 � infwin%
Nș "Wimp_CloseTemplate"
X�
b:
l� �iconbar
v!block%=-1:block%!4=0
�block%!8=0:block%!12=68
�block%!16=68
�block%!12=68
�block%!20=&2002
�$(block%+24)="!animator"
�(ș "Wimp_CreateIcon",,block% � icon%
�
=icon%
�:
�� �poll
�iconbar%=�iconbar
��
�-ș "Wimp_Poll",&FFF9F8B0,block% � reason%
�Ȏ reason% �
.� 1:ș "Wimp_RedrawWindow",,block% � flag%
�redraw
$� 2:ș "Wimp_OpenWindow",,block%
 %� 3:ș "Wimp_CloseWindow",,block%
*� 6:�click
4� 9:�menuselect
>� 17,18:�message
H
R� intflag%=1 � �animate
\�
f� �
p�
z:
�� �menuselect
�� !block%=1 � �singletask
�'� !block%=2 � intflag%=intflag% � 2
�� !block%=3 �
�intflag%=0
�0ș "OS_SpriteOp",512+25,heap%!8,(heap%!8)+16
�1�claim(heap%+8,32,claim%):!(heap%!8)=heap%!12
��claim(heap%+16,32,claim%)
�0ș "Wimp_ForceRedraw",anmwin%,0,-hgt%,wdt%,0
��
�7� !block%=4 � ș "Wimp_CloseDown",taskhandle%,task%
��
�:
� �click
xpnt%=!block%
ypnt%=block%!4
$butn%=block%!8
.window%=block%!12
8icon%=block%!16
B*� butn%=2 � window%=anmwin% � �menu(�)
L6� butn%=2 � window%=-2 � icon%=iconbar% � �menu(�)
V-� butn%=4 � window%=-2 � icon%=iconbar% �
`4!block%=anmwin%:ș "Wimp_GetWindowState",,block%
j ș "Wimp_OpenWindow",,block%
t�
~�
�:
�� �message
�mess%=block%!16
�Ȏ mess% �
�2� &00000:ș "Wimp_CloseDown",taskhandle%,task%
�+� 1:� block%!40=&FF9 � block%!40=&003 �
�block%!36=-1
�$$(block%+44)="<Wimp$Scrap>"+�(0)
�"block%!12=block%!8:block%!16=2
�!block%=60
�,ș "Wimp_SendMessage",17,block%,block%!4
��
:

� &00003:load%=�
0� block%!20=anmwin% � �load(block%+44,load%)
@� block%!20=-2 � block%!24=iconbar% � �load(block%+44,load%)
(
� load% �
2"block%!12=block%!8:block%!16=4
<,ș "Wimp_SendMessage",17,block%,block%!4
F�
P� 5:�load(block%+44,load%)
Z
� load% �
d"block%!12=block%!8:block%!16=4
n,ș "Wimp_SendMessage",17,block%,block%!4
x�
�� &400C1:�translate
��
��
�:
�
� �redraw
�ȕ flag%
�9xsc%=block%!20-block%!4:ysc%=block%!24-block%!16+hgt%
�� !(4+heap%!8)>0 �
�Mș "OS_SpriteOp",512+52,heap%!8,(heap%!8)+16,-xsc%,-ysc%,0,scale%,bitmap%
��
�*ș "Wimp_GetRectangle",,block% � flag%
��
��
:
� �menu(ibar%)
$(menu%)="Animate"
"menu%!12=&70207
,menu%!16=188:menu%!20=40
6menu%!24=0
@1menu%!28=0:menu%!32=infwin%:menu%!36=&7000011
J$(menu%+40)="Info"
T@menu%!52=0:menu%!56=0:menu%!60=&7400011 � (intflag% � 1)<<22
^$(menu%+64)="Single Task"
h/menu%!76=2 � ((intflag% � 2)>>1):menu%!80=0
r*menu%!84=&7400011 � (intflag% � 1)<<22
|$(menu%+88)="Pause"
�Cmenu%!100=0:menu%!104=0:menu%!108=&7400011 � (intflag% � 1)<<22
�$(menu%+112)="Clear"
�0menu%!124=128:menu%!128=0:menu%!132=&7000011
�$(menu%+136)="Quit"
�c� ibar% � ș "Wimp_CreateMenu",,menu%,xpnt%-64,320 � ș "Wimp_CreateMenu",,menu%,xpnt%-64,ypnt%
��
�:
�� �load(buffer%,� load%)
�file$=�string(buffer%)
�load%=�
� � �(block%!40=filetype%) � �
�load%=�
�(ș "OS_File",&05,file$ � ,,,,flesze%
!flesze%=(flesze%+&1F) � � &1F
#�claim(heap%+16,flesze%,claim%)
� � claim% � �full:�
&#ș "OS_File",&FF,file$,heap%!16
0intflag%=�
:C� !(4+heap%!8)>0 � ș "OS_SpriteOp",512+25,heap%!8,(heap%!8)+16
Dsprsze%=!(8+heap%!16)
N"�claim(heap%+8,sprsze%,claim%)
X� � claim% � �full:�
b!(heap%!8)=heap%!12
lFmode%=!(12+heap%!16):sprwdt%=!(16+heap%!16):sprhgt%=!(20+heap%!16)
vCș "OS_SpriteOp",256+15,heap%!8,"frame",1,sprwdt%,sprhgt%,mode%
�.ș "OS_ReadModeVariable",mode%,4 � ,,xeig%
�.ș "OS_ReadModeVariable",mode%,5 � ,,yeig%
�wdt%=sprwdt%<<xeig%
�hgt%=sprhgt%<<yeig%
�%input%!4=heap%!8+!(48+heap%!8)+16
�0input%!8=(heap%!8)+!(16+heap%!8)+16-input%!4
�� col%=0 � 31
�.!(4*col%+60+heap%!8)=!(4*col%+24+heap%!16)
�
� col%
��translate
��setwindow
�frame%=0:delta%=1
�intflag%=1
�
:
� �leaf(buffer%)
 
bufoff%=0
*str$=""
4(ȕ buffer%?bufoff%>=32 � bufoff%<255
> str$=str$+�(buffer%?bufoff%)
H"� buffer%?bufoff%=46 � str$=""
Rbufoff%+=1
\�
f	=str$
p:
z� �string(buffer%)
�
bufoff%=0
�str$=""
�(ȕ buffer%?bufoff%>=32 � bufoff%<255
� str$=str$+�(buffer%?bufoff%)
�bufoff%+=1
��
�	=str$
�:
�� �translate
�� !(4+heap%!8)>0 �
�8ș "OS_ReadModeVariable",!(56+heap%!8),4 � ,,!scale%
�9ș "OS_ReadModeVariable",!(56+heap%!8),5 � ,,scale%!4
�-ș "OS_ReadModeVariable",�,4 � ,,scale%!8
	.ș "OS_ReadModeVariable",�,5 � ,,scale%!12
	� !(48+heap%!8)>44 �
	� col%=0 � 15
	$*palette%!(col%*4)=!(60+col%*8+heap%!8)
	.
� col%
	8Eș "ColourTrans_SelectTable",!(56+heap%!8),palette%,-1,-1,bitmap%
	B�
	L>ș "ColourTrans_SelectTable",!(56+heap%!8),0,-1,-1,bitmap%
	V�
	`�
	j�
	t:
	~� �setheap
	�&ș "Wimp_SlotSize",-1,-1 � extent%
	�(ș "Wimp_SlotSize",extent%+128+64,-1
	�#!heap%=2:heap%!4=extent%+128+64
	�!heap%!8=heap%+128:heap%!12=32
	�%heap%!16=heap%+128+32:heap%!20=32
	�A!(heap%!8)=32:!(4+heap%!8)=0:!(8+heap%!8)=16:!(12+heap%!8)=16
	�input%!12=heap%
	��
	�:
	�"� �claim(block%,size%,� flag%)
	�flag%=�
	�delta%=size%-block%!4
&ș "Wimp_SlotSize",-1,-1 � ,,free%

� delta%<free% �
flag%=�
5� delta%>0 � ș "Wimp_SlotSize",heap%!4+delta%,-1
(,input%!16=!block%:input%!20=size%:� heap
2.� delta%<0 � ș "Wimp_SlotSize",heap%!4,-1
<�
F�
P:
Z� �full
d
!block%=0
n,$(block%+4)="No Room - memory full"+�(0)
x.ș "Wimp_ReportError",block%,1,"!Animator"
��
�:
�� �code
�heap=code%+!code%
�expand=code%+code%!4
�input=code%+8:!input=input%
��
�:
�� �expand(frame%)
�'store%=(heap%!16)+160+4*!(heap%!16)
�table%=(heap%!16)+152
�$!input%=store%+table%!(4*frame%)
�� expand
�
:
� �setwindow
"� !(4+heap%!8)>0 �
,9block%!64=anmwin%:ș "Wimp_GetWindowState",,block%+64
6%ș "Wimp_DeleteWindow",,block%+64
@� (!(4+heap%!16) � 2)=0 �
J5block%!72=block%!80-hgt%:block%!76=block%!68+wdt%
Twinblk%!32=&87010002
^�
hwinblk%!32=&FF010002
r�
|5block%!72=block%!80-hgt%:block%!76=block%!68+wdt%
�!winblk%!44=0:winblk%!48=-hgt%
� winblk%!52=wdt%:winblk%!56=0
�/ș "Wimp_CreateWindow",,winblk%+4 � anmwin%
�5block%!64=anmwin%:ș "Wimp_OpenWindow",,block%+64
��
��
�:
�� �animate
��expand(frame%)
�frame%+=delta%
�;� frame%=!(heap%!16) � (!(4+heap%!16) � 1)=0 � frame%=0
�$� frame%=!(heap%!16) � delta%=-1
�� frame%=0 � delta%=1
!block%=anmwin%
block%!4=0:block%!8=-hgt%
block%!12=wdt%:block%!16=0
&*ș "Wimp_UpdateWindow",,block% � flag%
0�redraw
:�
D:
N� �singletask
Xmode%=�
b� !(12+heap%!16)
l� col%=0 � 15
v� 19,col%,16
�G� ?(25+8*col%+heap%!16),?(26+8*col%+heap%!16),?(27+8*col%+heap%!16)
�
� col%
��
��
��expand(frame%)
�frame%=frame%+delta%
�;� frame%=!(heap%!16) � (!(4+heap%!16) � 1)=0 � frame%=0
�$� frame%=!(heap%!16) � delta%=-1
�� frame%=0 � delta%=1
�Hș "OS_SpriteOp",512+34,heap%!8,(heap%!8)+16,640-wdt%/2,512-hgt%/2,0
�ȗ xpnt%,ypnt%,butn%
�
� butn%>0
�ș "Wimp_SetMode",mode%

�
�

00000000  0d 00 0a 14 f4 20 20 20  20 20 3e 21 52 75 6e 49  |.....     >!RunI|
00000010  6d 61 67 65 0d 00 14 16  f4 20 42 79 20 20 52 6f  |mage..... By  Ro|
00000020  62 69 6e 20 42 61 72 6e  65 73 0d 00 1e 19 f4 20  |bin Barnes..... |
00000030  46 6f 72 20 33 32 2d 62  69 74 20 6d 61 63 68 69  |For 32-bit machi|
00000040  6e 65 73 0d 00 28 19 f4  20 28 63 29 20 42 41 55  |nes..(.. (c) BAU|
00000050  20 41 75 67 75 73 74 20  31 39 39 33 0d 00 32 05  | August 1993..2.|
00000060  3a 0d 00 3c 0b 68 65 61  70 25 3d 93 0d 00 46 12  |:..<.heap%=...F.|
00000070  66 69 6c 65 74 79 70 65  25 3d 26 36 30 31 0d 00  |filetype%=&601..|
00000080  50 05 3a 0d 00 5a 11 69  6e 64 69 72 6c 6e 25 3d  |P.:..Z.indirln%=|
00000090  31 30 32 34 0d 00 64 12  de 20 77 69 6e 62 6c 6b  |1024..d.. winblk|
000000a0  25 20 31 30 32 34 0d 00  6e 11 de 20 62 6c 6f 63  |% 1024..n.. bloc|
000000b0  6b 25 20 31 30 32 34 0d  00 78 11 de 20 70 61 6c  |k% 1024..x.. pal|
000000c0  65 74 74 65 25 20 36 34  0d 00 82 11 de 20 62 69  |ette% 64..... bi|
000000d0  74 6d 61 70 25 20 32 35  36 0d 00 8c 0f de 20 73  |tmap% 256..... s|
000000e0  63 61 6c 65 25 20 31 36  0d 00 96 0f de 20 6d 65  |cale% 16..... me|
000000f0  6e 75 25 20 32 35 36 0d  00 a0 15 de 20 69 6e 64  |nu% 256..... ind|
00000100  69 72 25 20 69 6e 64 69  72 6c 6e 25 0d 00 aa 10  |ir% indirln%....|
00000110  de 20 63 6f 64 65 25 20  31 30 32 34 0d 00 b4 10  |. code% 1024....|
00000120  de 20 69 6e 70 75 74 25  20 32 35 36 0d 00 be 0d  |. input% 256....|
00000130  de 20 74 61 73 6b 25 20  34 0d 00 c8 11 24 74 61  |. task% 4....$ta|
00000140  73 6b 25 3d 22 54 41 53  4b 22 0d 00 d2 05 3a 0d  |sk%="TASK"....:.|
00000150  00 dc 19 c8 99 20 22 4f  53 5f 47 65 74 45 6e 76  |..... "OS_GetEnv|
00000160  22 20 b8 20 65 6e 76 24  0d 00 e6 0c f2 73 65 74  |" . env$.....set|
00000170  68 65 61 70 0d 00 f0 05  3a 0d 00 fa 2c c8 99 20  |heap....:...,.. |
00000180  22 4f 53 5f 46 69 6c 65  22 2c 26 46 46 2c 22 3c  |"OS_File",&FF,"<|
00000190  4f 62 65 79 24 44 69 72  3e 2e 63 6f 64 65 22 2c  |Obey$Dir>.code",|
000001a0  63 6f 64 65 25 0d 01 04  3d c8 99 20 22 57 69 6d  |code%...=.. "Wim|
000001b0  70 5f 49 6e 69 74 69 61  6c 69 73 65 22 2c 32 30  |p_Initialise",20|
000001c0  30 2c 21 74 61 73 6b 25  2c 22 41 6e 69 6d 61 74  |0,!task%,"Animat|
000001d0  6f 72 22 20 b8 20 2c 74  61 73 6b 68 61 6e 64 6c  |or" . ,taskhandl|
000001e0  65 25 0d 01 0e 0e ee 20  85 20 f2 65 72 72 6f 72  |e%..... . .error|
000001f0  0d 01 18 0e 69 6e 74 66  6c 61 67 25 3d 30 0d 01  |....intflag%=0..|
00000200  22 15 77 64 74 25 3d 32  35 36 3a 68 67 74 25 3d  |".wdt%=256:hgt%=|
00000210  32 35 36 0d 01 2c 15 66  72 61 6d 65 25 3d 30 3a  |256..,.frame%=0:|
00000220  64 65 6c 74 61 25 3d 31  0d 01 36 05 3a 0d 01 40  |delta%=1..6.:..@|
00000230  09 f2 63 6f 64 65 0d 01  4a 0f f2 67 65 74 77 69  |..code..J..getwi|
00000240  6e 64 6f 77 73 0d 01 54  26 66 69 6c 65 24 3d c1  |ndows..T&file$=.|
00000250  65 6e 76 24 2c a7 65 6e  76 24 2c 22 21 52 75 6e  |env$,.env$,"!Run|
00000260  49 6d 61 67 65 22 29 2b  31 31 29 0d 01 5e 11 e7  |Image")+11)..^..|
00000270  20 66 69 6c 65 24 3c 3e  22 22 20 8c 0d 01 68 1b  | file$<>"" ...h.|
00000280  24 28 62 6c 6f 63 6b 25  2b 34 34 29 3d 66 69 6c  |$(block%+44)=fil|
00000290  65 24 2b bd 28 30 29 0d  01 72 17 62 6c 6f 63 6b  |e$+.(0)..r.block|
000002a0  25 21 34 30 3d 66 69 6c  65 74 79 70 65 25 0d 01  |%!40=filetype%..|
000002b0  7c 1a f2 6c 6f 61 64 28  62 6c 6f 63 6b 25 2b 34  ||..load(block%+4|
000002c0  34 2c 6c 6f 61 64 25 29  0d 01 86 05 cd 0d 01 90  |4,load%)........|
000002d0  09 f2 70 6f 6c 6c 0d 01  9a 05 e0 0d 01 a4 05 3a  |..poll.........:|
000002e0  0d 01 ae 0c dd 20 f2 65  72 72 6f 72 0d 01 b8 09  |..... .error....|
000002f0  ee 20 85 20 87 0d 01 c2  1d c8 99 20 22 4f 53 5f  |. . ....... "OS_|
00000300  53 70 72 69 74 65 4f 70  22 2c 36 30 2c 30 2c 30  |SpriteOp",60,0,0|
00000310  2c 31 0d 01 cc 29 c8 99  20 22 57 69 6d 70 5f 43  |,1...).. "Wimp_C|
00000320  6c 6f 73 65 44 6f 77 6e  22 2c 74 61 73 6b 68 61  |loseDown",taskha|
00000330  6e 64 6c 65 25 2c 74 61  73 6b 25 0d 01 d6 1d 85  |ndle%,task%.....|
00000340  20 a2 20 9f 2c f6 24 2b  22 20 61 74 20 6c 69 6e  | . .,.$+" at lin|
00000350  65 20 22 2b c3 28 9e 29  0d 01 e0 05 e0 0d 01 ea  |e "+.(.)........|
00000360  05 3a 0d 01 f4 11 dd 20  f2 67 65 74 77 69 6e 64  |.:..... .getwind|
00000370  6f 77 73 0d 01 fe 28 73  74 69 63 6e 25 3d 69 6e  |ows...(sticn%=in|
00000380  64 69 72 25 3a 65 6e 69  63 6e 25 3d 69 6e 64 69  |dir%:enicn%=indi|
00000390  72 25 2b 69 6e 64 69 72  6c 6e 25 0d 02 08 32 c8  |r%+indirln%...2.|
000003a0  99 20 22 57 69 6d 70 5f  4f 70 65 6e 54 65 6d 70  |. "Wimp_OpenTemp|
000003b0  6c 61 74 65 22 2c 2c 22  3c 4f 62 65 79 24 44 69  |late",,"<Obey$Di|
000003c0  72 3e 2e 54 65 6d 70 6c  61 74 65 73 22 0d 02 12  |r>.Templates"...|
000003d0  4d c8 99 20 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |M.. "Wimp_LoadTe|
000003e0  6d 70 6c 61 74 65 22 2c  2c 77 69 6e 62 6c 6b 25  |mplate",,winblk%|
000003f0  2b 34 2c 73 74 69 63 6e  25 2c 65 6e 69 63 6e 25  |+4,sticn%,enicn%|
00000400  2c 2d 31 2c 22 61 6e 69  6d 61 74 65 22 2c 30 20  |,-1,"animate",0 |
00000410  b8 20 2c 2c 73 74 69 63  6e 25 0d 02 1c 21 77 69  |. ,,sticn%...!wi|
00000420  6e 62 6c 6b 25 21 34 34  3d 30 3a 77 69 6e 62 6c  |nblk%!44=0:winbl|
00000430  6b 25 21 34 38 3d 2d 68  67 74 25 0d 02 26 20 77  |k%!48=-hgt%..& w|
00000440  69 6e 62 6c 6b 25 21 35  32 3d 77 64 74 25 3a 77  |inblk%!52=wdt%:w|
00000450  69 6e 62 6c 6b 25 21 35  36 3d 30 0d 02 30 2f c8  |inblk%!56=0..0/.|
00000460  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00000470  6e 64 6f 77 22 2c 2c 77  69 6e 62 6c 6b 25 2b 34  |ndow",,winblk%+4|
00000480  20 b8 20 61 6e 6d 77 69  6e 25 0d 02 3a 49 c8 99  | . anmwin%..:I..|
00000490  20 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  | "Wimp_LoadTempl|
000004a0  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 2b 34 2c 73  |ate",,block%+4,s|
000004b0  74 69 63 6e 25 2c 65 6e  69 63 6e 25 2c 2d 31 2c  |ticn%,enicn%,-1,|
000004c0  22 69 6e 66 6f 22 2c 30  20 b8 20 2c 2c 73 74 69  |"info",0 . ,,sti|
000004d0  63 6e 25 0d 02 44 2e c8  99 20 22 57 69 6d 70 5f  |cn%..D... "Wimp_|
000004e0  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 62  |CreateWindow",,b|
000004f0  6c 6f 63 6b 25 2b 34 20  b8 20 69 6e 66 77 69 6e  |lock%+4 . infwin|
00000500  25 0d 02 4e 1b c8 99 20  22 57 69 6d 70 5f 43 6c  |%..N... "Wimp_Cl|
00000510  6f 73 65 54 65 6d 70 6c  61 74 65 22 0d 02 58 05  |oseTemplate"..X.|
00000520  e1 0d 02 62 05 3a 0d 02  6c 0e dd 20 a4 69 63 6f  |...b.:..l.. .ico|
00000530  6e 62 61 72 0d 02 76 19  21 62 6c 6f 63 6b 25 3d  |nbar..v.!block%=|
00000540  2d 31 3a 62 6c 6f 63 6b  25 21 34 3d 30 0d 02 80  |-1:block%!4=0...|
00000550  1b 62 6c 6f 63 6b 25 21  38 3d 30 3a 62 6c 6f 63  |.block%!8=0:bloc|
00000560  6b 25 21 31 32 3d 36 38  0d 02 8a 10 62 6c 6f 63  |k%!12=68....bloc|
00000570  6b 25 21 31 36 3d 36 38  0d 02 94 10 62 6c 6f 63  |k%!16=68....bloc|
00000580  6b 25 21 31 32 3d 36 38  0d 02 9e 13 62 6c 6f 63  |k%!12=68....bloc|
00000590  6b 25 21 32 30 3d 26 32  30 30 32 0d 02 a8 1c 24  |k%!20=&2002....$|
000005a0  28 62 6c 6f 63 6b 25 2b  32 34 29 3d 22 21 61 6e  |(block%+24)="!an|
000005b0  69 6d 61 74 6f 72 22 0d  02 b2 28 c8 99 20 22 57  |imator"...(.. "W|
000005c0  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 22 2c  |imp_CreateIcon",|
000005d0  2c 62 6c 6f 63 6b 25 20  b8 20 69 63 6f 6e 25 0d  |,block% . icon%.|
000005e0  02 bc 0a 3d 69 63 6f 6e  25 0d 02 c6 05 3a 0d 02  |...=icon%....:..|
000005f0  d0 0b dd 20 f2 70 6f 6c  6c 0d 02 da 15 69 63 6f  |... .poll....ico|
00000600  6e 62 61 72 25 3d a4 69  63 6f 6e 62 61 72 0d 02  |nbar%=.iconbar..|
00000610  e4 05 f5 0d 02 ee 2d c8  99 20 22 57 69 6d 70 5f  |......-.. "Wimp_|
00000620  50 6f 6c 6c 22 2c 26 46  46 46 39 46 38 42 30 2c  |Poll",&FFF9F8B0,|
00000630  62 6c 6f 63 6b 25 20 b8  20 72 65 61 73 6f 6e 25  |block% . reason%|
00000640  0d 02 f8 10 c8 8e 20 72  65 61 73 6f 6e 25 20 ca  |...... reason% .|
00000650  0d 03 02 2e c9 20 31 3a  c8 99 20 22 57 69 6d 70  |..... 1:.. "Wimp|
00000660  5f 52 65 64 72 61 77 57  69 6e 64 6f 77 22 2c 2c  |_RedrawWindow",,|
00000670  62 6c 6f 63 6b 25 20 b8  20 66 6c 61 67 25 0d 03  |block% . flag%..|
00000680  0c 0b f2 72 65 64 72 61  77 0d 03 16 24 c9 20 32  |...redraw...$. 2|
00000690  3a c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |:.. "Wimp_OpenWi|
000006a0  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 0d 03 20  |ndow",,block%.. |
000006b0  25 c9 20 33 3a c8 99 20  22 57 69 6d 70 5f 43 6c  |%. 3:.. "Wimp_Cl|
000006c0  6f 73 65 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |oseWindow",,bloc|
000006d0  6b 25 0d 03 2a 0e c9 20  36 3a f2 63 6c 69 63 6b  |k%..*.. 6:.click|
000006e0  0d 03 34 13 c9 20 39 3a  f2 6d 65 6e 75 73 65 6c  |..4.. 9:.menusel|
000006f0  65 63 74 0d 03 3e 14 c9  20 31 37 2c 31 38 3a f2  |ect..>.. 17,18:.|
00000700  6d 65 73 73 61 67 65 0d  03 48 05 7f 0d 03 52 1b  |message..H....R.|
00000710  e7 20 69 6e 74 66 6c 61  67 25 3d 31 20 8c 20 f2  |. intflag%=1 . .|
00000720  61 6e 69 6d 61 74 65 0d  03 5c 05 cb 0d 03 66 07  |animate..\....f.|
00000730  fd 20 a3 0d 03 70 05 e1  0d 03 7a 05 3a 0d 03 84  |. ...p....z.:...|
00000740  11 dd 20 f2 6d 65 6e 75  73 65 6c 65 63 74 0d 03  |.. .menuselect..|
00000750  8e 1d e7 20 21 62 6c 6f  63 6b 25 3d 31 20 8c 20  |... !block%=1 . |
00000760  f2 73 69 6e 67 6c 65 74  61 73 6b 0d 03 98 27 e7  |.singletask...'.|
00000770  20 21 62 6c 6f 63 6b 25  3d 32 20 8c 20 69 6e 74  | !block%=2 . int|
00000780  66 6c 61 67 25 3d 69 6e  74 66 6c 61 67 25 20 82  |flag%=intflag% .|
00000790  20 32 0d 03 a2 11 e7 20  21 62 6c 6f 63 6b 25 3d  | 2..... !block%=|
000007a0  33 20 8c 0d 03 ac 0e 69  6e 74 66 6c 61 67 25 3d  |3 .....intflag%=|
000007b0  30 0d 03 b6 30 c8 99 20  22 4f 53 5f 53 70 72 69  |0...0.. "OS_Spri|
000007c0  74 65 4f 70 22 2c 35 31  32 2b 32 35 2c 68 65 61  |teOp",512+25,hea|
000007d0  70 25 21 38 2c 28 68 65  61 70 25 21 38 29 2b 31  |p%!8,(heap%!8)+1|
000007e0  36 0d 03 c0 31 f2 63 6c  61 69 6d 28 68 65 61 70  |6...1.claim(heap|
000007f0  25 2b 38 2c 33 32 2c 63  6c 61 69 6d 25 29 3a 21  |%+8,32,claim%):!|
00000800  28 68 65 61 70 25 21 38  29 3d 68 65 61 70 25 21  |(heap%!8)=heap%!|
00000810  31 32 0d 03 ca 1e f2 63  6c 61 69 6d 28 68 65 61  |12.....claim(hea|
00000820  70 25 2b 31 36 2c 33 32  2c 63 6c 61 69 6d 25 29  |p%+16,32,claim%)|
00000830  0d 03 d4 30 c8 99 20 22  57 69 6d 70 5f 46 6f 72  |...0.. "Wimp_For|
00000840  63 65 52 65 64 72 61 77  22 2c 61 6e 6d 77 69 6e  |ceRedraw",anmwin|
00000850  25 2c 30 2c 2d 68 67 74  25 2c 77 64 74 25 2c 30  |%,0,-hgt%,wdt%,0|
00000860  0d 03 de 05 cd 0d 03 e8  37 e7 20 21 62 6c 6f 63  |........7. !bloc|
00000870  6b 25 3d 34 20 8c 20 c8  99 20 22 57 69 6d 70 5f  |k%=4 . .. "Wimp_|
00000880  43 6c 6f 73 65 44 6f 77  6e 22 2c 74 61 73 6b 68  |CloseDown",taskh|
00000890  61 6e 64 6c 65 25 2c 74  61 73 6b 25 0d 03 f2 05  |andle%,task%....|
000008a0  e1 0d 03 fc 05 3a 0d 04  06 0c dd 20 f2 63 6c 69  |.....:..... .cli|
000008b0  63 6b 0d 04 10 11 78 70  6e 74 25 3d 21 62 6c 6f  |ck....xpnt%=!blo|
000008c0  63 6b 25 0d 04 1a 12 79  70 6e 74 25 3d 62 6c 6f  |ck%....ypnt%=blo|
000008d0  63 6b 25 21 34 0d 04 24  12 62 75 74 6e 25 3d 62  |ck%!4..$.butn%=b|
000008e0  6c 6f 63 6b 25 21 38 0d  04 2e 15 77 69 6e 64 6f  |lock%!8....windo|
000008f0  77 25 3d 62 6c 6f 63 6b  25 21 31 32 0d 04 38 13  |w%=block%!12..8.|
00000900  69 63 6f 6e 25 3d 62 6c  6f 63 6b 25 21 31 36 0d  |icon%=block%!16.|
00000910  04 42 2a e7 20 62 75 74  6e 25 3d 32 20 80 20 77  |.B*. butn%=2 . w|
00000920  69 6e 64 6f 77 25 3d 61  6e 6d 77 69 6e 25 20 8c  |indow%=anmwin% .|
00000930  20 f2 6d 65 6e 75 28 a3  29 0d 04 4c 36 e7 20 62  | .menu(.)..L6. b|
00000940  75 74 6e 25 3d 32 20 80  20 77 69 6e 64 6f 77 25  |utn%=2 . window%|
00000950  3d 2d 32 20 80 20 69 63  6f 6e 25 3d 69 63 6f 6e  |=-2 . icon%=icon|
00000960  62 61 72 25 20 8c 20 f2  6d 65 6e 75 28 b9 29 0d  |bar% . .menu(.).|
00000970  04 56 2d e7 20 62 75 74  6e 25 3d 34 20 80 20 77  |.V-. butn%=4 . w|
00000980  69 6e 64 6f 77 25 3d 2d  32 20 80 20 69 63 6f 6e  |indow%=-2 . icon|
00000990  25 3d 69 63 6f 6e 62 61  72 25 20 8c 0d 04 60 34  |%=iconbar% ...`4|
000009a0  21 62 6c 6f 63 6b 25 3d  61 6e 6d 77 69 6e 25 3a  |!block%=anmwin%:|
000009b0  c8 99 20 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.. "Wimp_GetWind|
000009c0  6f 77 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |owState",,block%|
000009d0  0d 04 6a 20 c8 99 20 22  57 69 6d 70 5f 4f 70 65  |..j .. "Wimp_Ope|
000009e0  6e 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |nWindow",,block%|
000009f0  0d 04 74 05 cd 0d 04 7e  05 e1 0d 04 88 05 3a 0d  |..t....~......:.|
00000a00  04 92 0e dd 20 f2 6d 65  73 73 61 67 65 0d 04 9c  |.... .message...|
00000a10  13 6d 65 73 73 25 3d 62  6c 6f 63 6b 25 21 31 36  |.mess%=block%!16|
00000a20  0d 04 a6 0e c8 8e 20 6d  65 73 73 25 20 ca 0d 04  |...... mess% ...|
00000a30  b0 32 c9 20 26 30 30 30  30 30 3a c8 99 20 22 57  |.2. &00000:.. "W|
00000a40  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 2c 74  |imp_CloseDown",t|
00000a50  61 73 6b 68 61 6e 64 6c  65 25 2c 74 61 73 6b 25  |askhandle%,task%|
00000a60  0d 04 ba 2b c9 20 31 3a  e7 20 62 6c 6f 63 6b 25  |...+. 1:. block%|
00000a70  21 34 30 3d 26 46 46 39  20 84 20 62 6c 6f 63 6b  |!40=&FF9 . block|
00000a80  25 21 34 30 3d 26 30 30  33 20 8c 0d 04 c4 10 62  |%!40=&003 .....b|
00000a90  6c 6f 63 6b 25 21 33 36  3d 2d 31 0d 04 ce 24 24  |lock%!36=-1...$$|
00000aa0  28 62 6c 6f 63 6b 25 2b  34 34 29 3d 22 3c 57 69  |(block%+44)="<Wi|
00000ab0  6d 70 24 53 63 72 61 70  3e 22 2b bd 28 30 29 0d  |mp$Scrap>"+.(0).|
00000ac0  04 d8 22 62 6c 6f 63 6b  25 21 31 32 3d 62 6c 6f  |.."block%!12=blo|
00000ad0  63 6b 25 21 38 3a 62 6c  6f 63 6b 25 21 31 36 3d  |ck%!8:block%!16=|
00000ae0  32 0d 04 e2 0e 21 62 6c  6f 63 6b 25 3d 36 30 0d  |2....!block%=60.|
00000af0  04 ec 2c c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |..,.. "Wimp_Send|
00000b00  4d 65 73 73 61 67 65 22  2c 31 37 2c 62 6c 6f 63  |Message",17,bloc|
00000b10  6b 25 2c 62 6c 6f 63 6b  25 21 34 0d 04 f6 05 cd  |k%,block%!4.....|
00000b20  0d 05 00 05 3a 0d 05 0a  14 c9 20 26 30 30 30 30  |....:..... &0000|
00000b30  33 3a 6c 6f 61 64 25 3d  a3 0d 05 14 30 e7 20 62  |3:load%=....0. b|
00000b40  6c 6f 63 6b 25 21 32 30  3d 61 6e 6d 77 69 6e 25  |lock%!20=anmwin%|
00000b50  20 8c 20 f2 6c 6f 61 64  28 62 6c 6f 63 6b 25 2b  | . .load(block%+|
00000b60  34 34 2c 6c 6f 61 64 25  29 0d 05 1e 40 e7 20 62  |44,load%)...@. b|
00000b70  6c 6f 63 6b 25 21 32 30  3d 2d 32 20 80 20 62 6c  |lock%!20=-2 . bl|
00000b80  6f 63 6b 25 21 32 34 3d  69 63 6f 6e 62 61 72 25  |ock%!24=iconbar%|
00000b90  20 8c 20 f2 6c 6f 61 64  28 62 6c 6f 63 6b 25 2b  | . .load(block%+|
00000ba0  34 34 2c 6c 6f 61 64 25  29 0d 05 28 0d e7 20 6c  |44,load%)..(.. l|
00000bb0  6f 61 64 25 20 8c 0d 05  32 22 62 6c 6f 63 6b 25  |oad% ...2"block%|
00000bc0  21 31 32 3d 62 6c 6f 63  6b 25 21 38 3a 62 6c 6f  |!12=block%!8:blo|
00000bd0  63 6b 25 21 31 36 3d 34  0d 05 3c 2c c8 99 20 22  |ck%!16=4..<,.. "|
00000be0  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00000bf0  22 2c 31 37 2c 62 6c 6f  63 6b 25 2c 62 6c 6f 63  |",17,block%,bloc|
00000c00  6b 25 21 34 0d 05 46 05  cd 0d 05 50 1e c9 20 35  |k%!4..F....P.. 5|
00000c10  3a f2 6c 6f 61 64 28 62  6c 6f 63 6b 25 2b 34 34  |:.load(block%+44|
00000c20  2c 6c 6f 61 64 25 29 0d  05 5a 0d e7 20 6c 6f 61  |,load%)..Z.. loa|
00000c30  64 25 20 8c 0d 05 64 22  62 6c 6f 63 6b 25 21 31  |d% ...d"block%!1|
00000c40  32 3d 62 6c 6f 63 6b 25  21 38 3a 62 6c 6f 63 6b  |2=block%!8:block|
00000c50  25 21 31 36 3d 34 0d 05  6e 2c c8 99 20 22 57 69  |%!16=4..n,.. "Wi|
00000c60  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00000c70  31 37 2c 62 6c 6f 63 6b  25 2c 62 6c 6f 63 6b 25  |17,block%,block%|
00000c80  21 34 0d 05 78 05 cd 0d  05 82 17 c9 20 26 34 30  |!4..x....... &40|
00000c90  30 43 31 3a f2 74 72 61  6e 73 6c 61 74 65 0d 05  |0C1:.translate..|
00000ca0  8c 05 cb 0d 05 96 05 e1  0d 05 a0 05 3a 0d 05 aa  |............:...|
00000cb0  0d dd 20 f2 72 65 64 72  61 77 0d 05 b4 0c c8 95  |.. .redraw......|
00000cc0  20 66 6c 61 67 25 0d 05  be 39 78 73 63 25 3d 62  | flag%...9xsc%=b|
00000cd0  6c 6f 63 6b 25 21 32 30  2d 62 6c 6f 63 6b 25 21  |lock%!20-block%!|
00000ce0  34 3a 79 73 63 25 3d 62  6c 6f 63 6b 25 21 32 34  |4:ysc%=block%!24|
00000cf0  2d 62 6c 6f 63 6b 25 21  31 36 2b 68 67 74 25 0d  |-block%!16+hgt%.|
00000d00  05 c8 16 e7 20 21 28 34  2b 68 65 61 70 25 21 38  |.... !(4+heap%!8|
00000d10  29 3e 30 20 8c 0d 05 d2  4d c8 99 20 22 4f 53 5f  |)>0 ....M.. "OS_|
00000d20  53 70 72 69 74 65 4f 70  22 2c 35 31 32 2b 35 32  |SpriteOp",512+52|
00000d30  2c 68 65 61 70 25 21 38  2c 28 68 65 61 70 25 21  |,heap%!8,(heap%!|
00000d40  38 29 2b 31 36 2c 2d 78  73 63 25 2c 2d 79 73 63  |8)+16,-xsc%,-ysc|
00000d50  25 2c 30 2c 73 63 61 6c  65 25 2c 62 69 74 6d 61  |%,0,scale%,bitma|
00000d60  70 25 0d 05 dc 05 cd 0d  05 e6 2a c8 99 20 22 57  |p%........*.. "W|
00000d70  69 6d 70 5f 47 65 74 52  65 63 74 61 6e 67 6c 65  |imp_GetRectangle|
00000d80  22 2c 2c 62 6c 6f 63 6b  25 20 b8 20 66 6c 61 67  |",,block% . flag|
00000d90  25 0d 05 f0 05 ce 0d 05  fa 05 e1 0d 06 04 05 3a  |%..............:|
00000da0  0d 06 0e 12 dd 20 f2 6d  65 6e 75 28 69 62 61 72  |..... .menu(ibar|
00000db0  25 29 0d 06 18 16 24 28  6d 65 6e 75 25 29 3d 22  |%)....$(menu%)="|
00000dc0  41 6e 69 6d 61 74 65 22  0d 06 22 13 6d 65 6e 75  |Animate"..".menu|
00000dd0  25 21 31 32 3d 26 37 30  32 30 37 0d 06 2c 1c 6d  |%!12=&70207..,.m|
00000de0  65 6e 75 25 21 31 36 3d  31 38 38 3a 6d 65 6e 75  |enu%!16=188:menu|
00000df0  25 21 32 30 3d 34 30 0d  06 36 0e 6d 65 6e 75 25  |%!20=40..6.menu%|
00000e00  21 32 34 3d 30 0d 06 40  31 6d 65 6e 75 25 21 32  |!24=0..@1menu%!2|
00000e10  38 3d 30 3a 6d 65 6e 75  25 21 33 32 3d 69 6e 66  |8=0:menu%!32=inf|
00000e20  77 69 6e 25 3a 6d 65 6e  75 25 21 33 36 3d 26 37  |win%:menu%!36=&7|
00000e30  30 30 30 30 31 31 0d 06  4a 16 24 28 6d 65 6e 75  |000011..J.$(menu|
00000e40  25 2b 34 30 29 3d 22 49  6e 66 6f 22 0d 06 54 40  |%+40)="Info"..T@|
00000e50  6d 65 6e 75 25 21 35 32  3d 30 3a 6d 65 6e 75 25  |menu%!52=0:menu%|
00000e60  21 35 36 3d 30 3a 6d 65  6e 75 25 21 36 30 3d 26  |!56=0:menu%!60=&|
00000e70  37 34 30 30 30 31 31 20  82 20 28 69 6e 74 66 6c  |7400011 . (intfl|
00000e80  61 67 25 20 80 20 31 29  3c 3c 32 32 0d 06 5e 1d  |ag% . 1)<<22..^.|
00000e90  24 28 6d 65 6e 75 25 2b  36 34 29 3d 22 53 69 6e  |$(menu%+64)="Sin|
00000ea0  67 6c 65 20 54 61 73 6b  22 0d 06 68 2f 6d 65 6e  |gle Task"..h/men|
00000eb0  75 25 21 37 36 3d 32 20  84 20 28 28 69 6e 74 66  |u%!76=2 . ((intf|
00000ec0  6c 61 67 25 20 80 20 32  29 3e 3e 31 29 3a 6d 65  |lag% . 2)>>1):me|
00000ed0  6e 75 25 21 38 30 3d 30  0d 06 72 2a 6d 65 6e 75  |nu%!80=0..r*menu|
00000ee0  25 21 38 34 3d 26 37 34  30 30 30 31 31 20 82 20  |%!84=&7400011 . |
00000ef0  28 69 6e 74 66 6c 61 67  25 20 80 20 31 29 3c 3c  |(intflag% . 1)<<|
00000f00  32 32 0d 06 7c 17 24 28  6d 65 6e 75 25 2b 38 38  |22..|.$(menu%+88|
00000f10  29 3d 22 50 61 75 73 65  22 0d 06 86 43 6d 65 6e  |)="Pause"...Cmen|
00000f20  75 25 21 31 30 30 3d 30  3a 6d 65 6e 75 25 21 31  |u%!100=0:menu%!1|
00000f30  30 34 3d 30 3a 6d 65 6e  75 25 21 31 30 38 3d 26  |04=0:menu%!108=&|
00000f40  37 34 30 30 30 31 31 20  82 20 28 69 6e 74 66 6c  |7400011 . (intfl|
00000f50  61 67 25 20 80 20 31 29  3c 3c 32 32 0d 06 90 18  |ag% . 1)<<22....|
00000f60  24 28 6d 65 6e 75 25 2b  31 31 32 29 3d 22 43 6c  |$(menu%+112)="Cl|
00000f70  65 61 72 22 0d 06 9a 30  6d 65 6e 75 25 21 31 32  |ear"...0menu%!12|
00000f80  34 3d 31 32 38 3a 6d 65  6e 75 25 21 31 32 38 3d  |4=128:menu%!128=|
00000f90  30 3a 6d 65 6e 75 25 21  31 33 32 3d 26 37 30 30  |0:menu%!132=&700|
00000fa0  30 30 31 31 0d 06 a4 17  24 28 6d 65 6e 75 25 2b  |0011....$(menu%+|
00000fb0  31 33 36 29 3d 22 51 75  69 74 22 0d 06 ae 63 e7  |136)="Quit"...c.|
00000fc0  20 69 62 61 72 25 20 8c  20 c8 99 20 22 57 69 6d  | ibar% . .. "Wim|
00000fd0  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 6d  |p_CreateMenu",,m|
00000fe0  65 6e 75 25 2c 78 70 6e  74 25 2d 36 34 2c 33 32  |enu%,xpnt%-64,32|
00000ff0  30 20 8b 20 c8 99 20 22  57 69 6d 70 5f 43 72 65  |0 . .. "Wimp_Cre|
00001000  61 74 65 4d 65 6e 75 22  2c 2c 6d 65 6e 75 25 2c  |ateMenu",,menu%,|
00001010  78 70 6e 74 25 2d 36 34  2c 79 70 6e 74 25 0d 06  |xpnt%-64,ypnt%..|
00001020  b8 05 e1 0d 06 c2 05 3a  0d 06 cc 1c dd 20 f2 6c  |.......:..... .l|
00001030  6f 61 64 28 62 75 66 66  65 72 25 2c f8 20 6c 6f  |oad(buffer%,. lo|
00001040  61 64 25 29 0d 06 d6 1a  66 69 6c 65 24 3d a4 73  |ad%)....file$=.s|
00001050  74 72 69 6e 67 28 62 75  66 66 65 72 25 29 0d 06  |tring(buffer%)..|
00001060  e0 0b 6c 6f 61 64 25 3d  a3 0d 06 ea 20 e7 20 ac  |..load%=.... . .|
00001070  28 62 6c 6f 63 6b 25 21  34 30 3d 66 69 6c 65 74  |(block%!40=filet|
00001080  79 70 65 25 29 20 8c 20  e1 0d 06 f4 0b 6c 6f 61  |ype%) . .....loa|
00001090  64 25 3d b9 0d 06 fe 28  c8 99 20 22 4f 53 5f 46  |d%=....(.. "OS_F|
000010a0  69 6c 65 22 2c 26 30 35  2c 66 69 6c 65 24 20 b8  |ile",&05,file$ .|
000010b0  20 2c 2c 2c 2c 66 6c 65  73 7a 65 25 0d 07 08 21  | ,,,,flesze%...!|
000010c0  66 6c 65 73 7a 65 25 3d  28 66 6c 65 73 7a 65 25  |flesze%=(flesze%|
000010d0  2b 26 31 46 29 20 80 20  ac 20 26 31 46 0d 07 12  |+&1F) . . &1F...|
000010e0  23 f2 63 6c 61 69 6d 28  68 65 61 70 25 2b 31 36  |#.claim(heap%+16|
000010f0  2c 66 6c 65 73 7a 65 25  2c 63 6c 61 69 6d 25 29  |,flesze%,claim%)|
00001100  0d 07 1c 18 e7 20 ac 20  63 6c 61 69 6d 25 20 8c  |..... . claim% .|
00001110  20 f2 66 75 6c 6c 3a e1  0d 07 26 23 c8 99 20 22  | .full:...&#.. "|
00001120  4f 53 5f 46 69 6c 65 22  2c 26 46 46 2c 66 69 6c  |OS_File",&FF,fil|
00001130  65 24 2c 68 65 61 70 25  21 31 36 0d 07 30 0e 69  |e$,heap%!16..0.i|
00001140  6e 74 66 6c 61 67 25 3d  a3 0d 07 3a 43 e7 20 21  |ntflag%=...:C. !|
00001150  28 34 2b 68 65 61 70 25  21 38 29 3e 30 20 8c 20  |(4+heap%!8)>0 . |
00001160  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
00001170  2c 35 31 32 2b 32 35 2c  68 65 61 70 25 21 38 2c  |,512+25,heap%!8,|
00001180  28 68 65 61 70 25 21 38  29 2b 31 36 0d 07 44 19  |(heap%!8)+16..D.|
00001190  73 70 72 73 7a 65 25 3d  21 28 38 2b 68 65 61 70  |sprsze%=!(8+heap|
000011a0  25 21 31 36 29 0d 07 4e  22 f2 63 6c 61 69 6d 28  |%!16)..N".claim(|
000011b0  68 65 61 70 25 2b 38 2c  73 70 72 73 7a 65 25 2c  |heap%+8,sprsze%,|
000011c0  63 6c 61 69 6d 25 29 0d  07 58 18 e7 20 ac 20 63  |claim%)..X.. . c|
000011d0  6c 61 69 6d 25 20 8c 20  f2 66 75 6c 6c 3a e1 0d  |laim% . .full:..|
000011e0  07 62 17 21 28 68 65 61  70 25 21 38 29 3d 68 65  |.b.!(heap%!8)=he|
000011f0  61 70 25 21 31 32 0d 07  6c 46 6d 6f 64 65 25 3d  |ap%!12..lFmode%=|
00001200  21 28 31 32 2b 68 65 61  70 25 21 31 36 29 3a 73  |!(12+heap%!16):s|
00001210  70 72 77 64 74 25 3d 21  28 31 36 2b 68 65 61 70  |prwdt%=!(16+heap|
00001220  25 21 31 36 29 3a 73 70  72 68 67 74 25 3d 21 28  |%!16):sprhgt%=!(|
00001230  32 30 2b 68 65 61 70 25  21 31 36 29 0d 07 76 43  |20+heap%!16)..vC|
00001240  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
00001250  2c 32 35 36 2b 31 35 2c  68 65 61 70 25 21 38 2c  |,256+15,heap%!8,|
00001260  22 66 72 61 6d 65 22 2c  31 2c 73 70 72 77 64 74  |"frame",1,sprwdt|
00001270  25 2c 73 70 72 68 67 74  25 2c 6d 6f 64 65 25 0d  |%,sprhgt%,mode%.|
00001280  07 80 2e c8 99 20 22 4f  53 5f 52 65 61 64 4d 6f  |..... "OS_ReadMo|
00001290  64 65 56 61 72 69 61 62  6c 65 22 2c 6d 6f 64 65  |deVariable",mode|
000012a0  25 2c 34 20 b8 20 2c 2c  78 65 69 67 25 0d 07 8a  |%,4 . ,,xeig%...|
000012b0  2e c8 99 20 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |... "OS_ReadMode|
000012c0  56 61 72 69 61 62 6c 65  22 2c 6d 6f 64 65 25 2c  |Variable",mode%,|
000012d0  35 20 b8 20 2c 2c 79 65  69 67 25 0d 07 94 17 77  |5 . ,,yeig%....w|
000012e0  64 74 25 3d 73 70 72 77  64 74 25 3c 3c 78 65 69  |dt%=sprwdt%<<xei|
000012f0  67 25 0d 07 9e 17 68 67  74 25 3d 73 70 72 68 67  |g%....hgt%=sprhg|
00001300  74 25 3c 3c 79 65 69 67  25 0d 07 a8 25 69 6e 70  |t%<<yeig%...%inp|
00001310  75 74 25 21 34 3d 68 65  61 70 25 21 38 2b 21 28  |ut%!4=heap%!8+!(|
00001320  34 38 2b 68 65 61 70 25  21 38 29 2b 31 36 0d 07  |48+heap%!8)+16..|
00001330  b2 30 69 6e 70 75 74 25  21 38 3d 28 68 65 61 70  |.0input%!8=(heap|
00001340  25 21 38 29 2b 21 28 31  36 2b 68 65 61 70 25 21  |%!8)+!(16+heap%!|
00001350  38 29 2b 31 36 2d 69 6e  70 75 74 25 21 34 0d 07  |8)+16-input%!4..|
00001360  bc 11 e3 20 63 6f 6c 25  3d 30 20 b8 20 33 31 0d  |... col%=0 . 31.|
00001370  07 c6 2e 21 28 34 2a 63  6f 6c 25 2b 36 30 2b 68  |...!(4*col%+60+h|
00001380  65 61 70 25 21 38 29 3d  21 28 34 2a 63 6f 6c 25  |eap%!8)=!(4*col%|
00001390  2b 32 34 2b 68 65 61 70  25 21 31 36 29 0d 07 d0  |+24+heap%!16)...|
000013a0  0a ed 20 63 6f 6c 25 0d  07 da 0e f2 74 72 61 6e  |.. col%.....tran|
000013b0  73 6c 61 74 65 0d 07 e4  0e f2 73 65 74 77 69 6e  |slate.....setwin|
000013c0  64 6f 77 0d 07 ee 15 66  72 61 6d 65 25 3d 30 3a  |dow....frame%=0:|
000013d0  64 65 6c 74 61 25 3d 31  0d 07 f8 0e 69 6e 74 66  |delta%=1....intf|
000013e0  6c 61 67 25 3d 31 0d 08  02 05 e1 0d 08 0c 05 3a  |lag%=1.........:|
000013f0  0d 08 16 14 dd 20 a4 6c  65 61 66 28 62 75 66 66  |..... .leaf(buff|
00001400  65 72 25 29 0d 08 20 0d  62 75 66 6f 66 66 25 3d  |er%).. .bufoff%=|
00001410  30 0d 08 2a 0b 73 74 72  24 3d 22 22 0d 08 34 28  |0..*.str$=""..4(|
00001420  c8 95 20 62 75 66 66 65  72 25 3f 62 75 66 6f 66  |.. buffer%?bufof|
00001430  66 25 3e 3d 33 32 20 80  20 62 75 66 6f 66 66 25  |f%>=32 . bufoff%|
00001440  3c 32 35 35 0d 08 3e 20  73 74 72 24 3d 73 74 72  |<255..> str$=str|
00001450  24 2b bd 28 62 75 66 66  65 72 25 3f 62 75 66 6f  |$+.(buffer%?bufo|
00001460  66 66 25 29 0d 08 48 22  e7 20 62 75 66 66 65 72  |ff%)..H". buffer|
00001470  25 3f 62 75 66 6f 66 66  25 3d 34 36 20 8c 20 73  |%?bufoff%=46 . s|
00001480  74 72 24 3d 22 22 0d 08  52 0e 62 75 66 6f 66 66  |tr$=""..R.bufoff|
00001490  25 2b 3d 31 0d 08 5c 05  ce 0d 08 66 09 3d 73 74  |%+=1..\....f.=st|
000014a0  72 24 0d 08 70 05 3a 0d  08 7a 16 dd 20 a4 73 74  |r$..p.:..z.. .st|
000014b0  72 69 6e 67 28 62 75 66  66 65 72 25 29 0d 08 84  |ring(buffer%)...|
000014c0  0d 62 75 66 6f 66 66 25  3d 30 0d 08 8e 0b 73 74  |.bufoff%=0....st|
000014d0  72 24 3d 22 22 0d 08 98  28 c8 95 20 62 75 66 66  |r$=""...(.. buff|
000014e0  65 72 25 3f 62 75 66 6f  66 66 25 3e 3d 33 32 20  |er%?bufoff%>=32 |
000014f0  80 20 62 75 66 6f 66 66  25 3c 32 35 35 0d 08 a2  |. bufoff%<255...|
00001500  20 73 74 72 24 3d 73 74  72 24 2b bd 28 62 75 66  | str$=str$+.(buf|
00001510  66 65 72 25 3f 62 75 66  6f 66 66 25 29 0d 08 ac  |fer%?bufoff%)...|
00001520  0e 62 75 66 6f 66 66 25  2b 3d 31 0d 08 b6 05 ce  |.bufoff%+=1.....|
00001530  0d 08 c0 09 3d 73 74 72  24 0d 08 ca 05 3a 0d 08  |....=str$....:..|
00001540  d4 10 dd 20 f2 74 72 61  6e 73 6c 61 74 65 0d 08  |... .translate..|
00001550  de 16 e7 20 21 28 34 2b  68 65 61 70 25 21 38 29  |... !(4+heap%!8)|
00001560  3e 30 20 8c 0d 08 e8 38  c8 99 20 22 4f 53 5f 52  |>0 ....8.. "OS_R|
00001570  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
00001580  2c 21 28 35 36 2b 68 65  61 70 25 21 38 29 2c 34  |,!(56+heap%!8),4|
00001590  20 b8 20 2c 2c 21 73 63  61 6c 65 25 0d 08 f2 39  | . ,,!scale%...9|
000015a0  c8 99 20 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |.. "OS_ReadModeV|
000015b0  61 72 69 61 62 6c 65 22  2c 21 28 35 36 2b 68 65  |ariable",!(56+he|
000015c0  61 70 25 21 38 29 2c 35  20 b8 20 2c 2c 73 63 61  |ap%!8),5 . ,,sca|
000015d0  6c 65 25 21 34 0d 08 fc  2d c8 99 20 22 4f 53 5f  |le%!4...-.. "OS_|
000015e0  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
000015f0  22 2c eb 2c 34 20 b8 20  2c 2c 73 63 61 6c 65 25  |",.,4 . ,,scale%|
00001600  21 38 0d 09 06 2e c8 99  20 22 4f 53 5f 52 65 61  |!8...... "OS_Rea|
00001610  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c eb  |dModeVariable",.|
00001620  2c 35 20 b8 20 2c 2c 73  63 61 6c 65 25 21 31 32  |,5 . ,,scale%!12|
00001630  0d 09 10 18 e7 20 21 28  34 38 2b 68 65 61 70 25  |..... !(48+heap%|
00001640  21 38 29 3e 34 34 20 8c  0d 09 1a 11 e3 20 63 6f  |!8)>44 ...... co|
00001650  6c 25 3d 30 20 b8 20 31  35 0d 09 24 2a 70 61 6c  |l%=0 . 15..$*pal|
00001660  65 74 74 65 25 21 28 63  6f 6c 25 2a 34 29 3d 21  |ette%!(col%*4)=!|
00001670  28 36 30 2b 63 6f 6c 25  2a 38 2b 68 65 61 70 25  |(60+col%*8+heap%|
00001680  21 38 29 0d 09 2e 0a ed  20 63 6f 6c 25 0d 09 38  |!8)..... col%..8|
00001690  45 c8 99 20 22 43 6f 6c  6f 75 72 54 72 61 6e 73  |E.. "ColourTrans|
000016a0  5f 53 65 6c 65 63 74 54  61 62 6c 65 22 2c 21 28  |_SelectTable",!(|
000016b0  35 36 2b 68 65 61 70 25  21 38 29 2c 70 61 6c 65  |56+heap%!8),pale|
000016c0  74 74 65 25 2c 2d 31 2c  2d 31 2c 62 69 74 6d 61  |tte%,-1,-1,bitma|
000016d0  70 25 0d 09 42 05 cc 0d  09 4c 3e c8 99 20 22 43  |p%..B....L>.. "C|
000016e0  6f 6c 6f 75 72 54 72 61  6e 73 5f 53 65 6c 65 63  |olourTrans_Selec|
000016f0  74 54 61 62 6c 65 22 2c  21 28 35 36 2b 68 65 61  |tTable",!(56+hea|
00001700  70 25 21 38 29 2c 30 2c  2d 31 2c 2d 31 2c 62 69  |p%!8),0,-1,-1,bi|
00001710  74 6d 61 70 25 0d 09 56  05 cd 0d 09 60 05 cd 0d  |tmap%..V....`...|
00001720  09 6a 05 e1 0d 09 74 05  3a 0d 09 7e 0e dd 20 f2  |.j....t.:..~.. .|
00001730  73 65 74 68 65 61 70 0d  09 88 26 c8 99 20 22 57  |setheap...&.. "W|
00001740  69 6d 70 5f 53 6c 6f 74  53 69 7a 65 22 2c 2d 31  |imp_SlotSize",-1|
00001750  2c 2d 31 20 b8 20 65 78  74 65 6e 74 25 0d 09 92  |,-1 . extent%...|
00001760  28 c8 99 20 22 57 69 6d  70 5f 53 6c 6f 74 53 69  |(.. "Wimp_SlotSi|
00001770  7a 65 22 2c 65 78 74 65  6e 74 25 2b 31 32 38 2b  |ze",extent%+128+|
00001780  36 34 2c 2d 31 0d 09 9c  23 21 68 65 61 70 25 3d  |64,-1...#!heap%=|
00001790  32 3a 68 65 61 70 25 21  34 3d 65 78 74 65 6e 74  |2:heap%!4=extent|
000017a0  25 2b 31 32 38 2b 36 34  0d 09 a6 21 68 65 61 70  |%+128+64...!heap|
000017b0  25 21 38 3d 68 65 61 70  25 2b 31 32 38 3a 68 65  |%!8=heap%+128:he|
000017c0  61 70 25 21 31 32 3d 33  32 0d 09 b0 25 68 65 61  |ap%!12=32...%hea|
000017d0  70 25 21 31 36 3d 68 65  61 70 25 2b 31 32 38 2b  |p%!16=heap%+128+|
000017e0  33 32 3a 68 65 61 70 25  21 32 30 3d 33 32 0d 09  |32:heap%!20=32..|
000017f0  ba 41 21 28 68 65 61 70  25 21 38 29 3d 33 32 3a  |.A!(heap%!8)=32:|
00001800  21 28 34 2b 68 65 61 70  25 21 38 29 3d 30 3a 21  |!(4+heap%!8)=0:!|
00001810  28 38 2b 68 65 61 70 25  21 38 29 3d 31 36 3a 21  |(8+heap%!8)=16:!|
00001820  28 31 32 2b 68 65 61 70  25 21 38 29 3d 31 36 0d  |(12+heap%!8)=16.|
00001830  09 c4 13 69 6e 70 75 74  25 21 31 32 3d 68 65 61  |...input%!12=hea|
00001840  70 25 0d 09 ce 05 e1 0d  09 d8 05 3a 0d 09 e2 22  |p%.........:..."|
00001850  dd 20 f2 63 6c 61 69 6d  28 62 6c 6f 63 6b 25 2c  |. .claim(block%,|
00001860  73 69 7a 65 25 2c f8 20  66 6c 61 67 25 29 0d 09  |size%,. flag%)..|
00001870  ec 0b 66 6c 61 67 25 3d  a3 0d 09 f6 19 64 65 6c  |..flag%=.....del|
00001880  74 61 25 3d 73 69 7a 65  25 2d 62 6c 6f 63 6b 25  |ta%=size%-block%|
00001890  21 34 0d 0a 00 26 c8 99  20 22 57 69 6d 70 5f 53  |!4...&.. "Wimp_S|
000018a0  6c 6f 74 53 69 7a 65 22  2c 2d 31 2c 2d 31 20 b8  |lotSize",-1,-1 .|
000018b0  20 2c 2c 66 72 65 65 25  0d 0a 0a 14 e7 20 64 65  | ,,free%..... de|
000018c0  6c 74 61 25 3c 66 72 65  65 25 20 8c 0d 0a 14 0b  |lta%<free% .....|
000018d0  66 6c 61 67 25 3d b9 0d  0a 1e 35 e7 20 64 65 6c  |flag%=....5. del|
000018e0  74 61 25 3e 30 20 8c 20  c8 99 20 22 57 69 6d 70  |ta%>0 . .. "Wimp|
000018f0  5f 53 6c 6f 74 53 69 7a  65 22 2c 68 65 61 70 25  |_SlotSize",heap%|
00001900  21 34 2b 64 65 6c 74 61  25 2c 2d 31 0d 0a 28 2c  |!4+delta%,-1..(,|
00001910  69 6e 70 75 74 25 21 31  36 3d 21 62 6c 6f 63 6b  |input%!16=!block|
00001920  25 3a 69 6e 70 75 74 25  21 32 30 3d 73 69 7a 65  |%:input%!20=size|
00001930  25 3a d6 20 68 65 61 70  0d 0a 32 2e e7 20 64 65  |%:. heap..2.. de|
00001940  6c 74 61 25 3c 30 20 8c  20 c8 99 20 22 57 69 6d  |lta%<0 . .. "Wim|
00001950  70 5f 53 6c 6f 74 53 69  7a 65 22 2c 68 65 61 70  |p_SlotSize",heap|
00001960  25 21 34 2c 2d 31 0d 0a  3c 05 cd 0d 0a 46 05 e1  |%!4,-1..<....F..|
00001970  0d 0a 50 05 3a 0d 0a 5a  0b dd 20 f2 66 75 6c 6c  |..P.:..Z.. .full|
00001980  0d 0a 64 0d 21 62 6c 6f  63 6b 25 3d 30 0d 0a 6e  |..d.!block%=0..n|
00001990  2c 24 28 62 6c 6f 63 6b  25 2b 34 29 3d 22 4e 6f  |,$(block%+4)="No|
000019a0  20 52 6f 6f 6d 20 2d 20  6d 65 6d 6f 72 79 20 66  | Room - memory f|
000019b0  75 6c 6c 22 2b bd 28 30  29 0d 0a 78 2e c8 99 20  |ull"+.(0)..x... |
000019c0  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
000019d0  72 22 2c 62 6c 6f 63 6b  25 2c 31 2c 22 21 41 6e  |r",block%,1,"!An|
000019e0  69 6d 61 74 6f 72 22 0d  0a 82 05 e1 0d 0a 8c 05  |imator".........|
000019f0  3a 0d 0a 96 0b dd 20 f2  63 6f 64 65 0d 0a a0 15  |:..... .code....|
00001a00  68 65 61 70 3d 63 6f 64  65 25 2b 21 63 6f 64 65  |heap=code%+!code|
00001a10  25 0d 0a aa 18 65 78 70  61 6e 64 3d 63 6f 64 65  |%....expand=code|
00001a20  25 2b 63 6f 64 65 25 21  34 0d 0a b4 1f 69 6e 70  |%+code%!4....inp|
00001a30  75 74 3d 63 6f 64 65 25  2b 38 3a 21 69 6e 70 75  |ut=code%+8:!inpu|
00001a40  74 3d 69 6e 70 75 74 25  0d 0a be 05 e1 0d 0a c8  |t=input%........|
00001a50  05 3a 0d 0a d2 15 dd 20  f2 65 78 70 61 6e 64 28  |.:..... .expand(|
00001a60  66 72 61 6d 65 25 29 0d  0a dc 27 73 74 6f 72 65  |frame%)...'store|
00001a70  25 3d 28 68 65 61 70 25  21 31 36 29 2b 31 36 30  |%=(heap%!16)+160|
00001a80  2b 34 2a 21 28 68 65 61  70 25 21 31 36 29 0d 0a  |+4*!(heap%!16)..|
00001a90  e6 19 74 61 62 6c 65 25  3d 28 68 65 61 70 25 21  |..table%=(heap%!|
00001aa0  31 36 29 2b 31 35 32 0d  0a f0 24 21 69 6e 70 75  |16)+152...$!inpu|
00001ab0  74 25 3d 73 74 6f 72 65  25 2b 74 61 62 6c 65 25  |t%=store%+table%|
00001ac0  21 28 34 2a 66 72 61 6d  65 25 29 0d 0a fa 0c d6  |!(4*frame%).....|
00001ad0  20 65 78 70 61 6e 64 0d  0b 04 05 e1 0d 0b 0e 05  | expand.........|
00001ae0  3a 0d 0b 18 10 dd 20 f2  73 65 74 77 69 6e 64 6f  |:..... .setwindo|
00001af0  77 0d 0b 22 16 e7 20 21  28 34 2b 68 65 61 70 25  |w..".. !(4+heap%|
00001b00  21 38 29 3e 30 20 8c 0d  0b 2c 39 62 6c 6f 63 6b  |!8)>0 ...,9block|
00001b10  25 21 36 34 3d 61 6e 6d  77 69 6e 25 3a c8 99 20  |%!64=anmwin%:.. |
00001b20  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00001b30  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 2b 36 34  |tate",,block%+64|
00001b40  0d 0b 36 25 c8 99 20 22  57 69 6d 70 5f 44 65 6c  |..6%.. "Wimp_Del|
00001b50  65 74 65 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |eteWindow",,bloc|
00001b60  6b 25 2b 36 34 0d 0b 40  1d e7 20 28 21 28 34 2b  |k%+64..@.. (!(4+|
00001b70  68 65 61 70 25 21 31 36  29 20 80 20 32 29 3d 30  |heap%!16) . 2)=0|
00001b80  20 8c 0d 0b 4a 35 62 6c  6f 63 6b 25 21 37 32 3d  | ...J5block%!72=|
00001b90  62 6c 6f 63 6b 25 21 38  30 2d 68 67 74 25 3a 62  |block%!80-hgt%:b|
00001ba0  6c 6f 63 6b 25 21 37 36  3d 62 6c 6f 63 6b 25 21  |lock%!76=block%!|
00001bb0  36 38 2b 77 64 74 25 0d  0b 54 18 77 69 6e 62 6c  |68+wdt%..T.winbl|
00001bc0  6b 25 21 33 32 3d 26 38  37 30 31 30 30 30 32 0d  |k%!32=&87010002.|
00001bd0  0b 5e 05 cc 0d 0b 68 18  77 69 6e 62 6c 6b 25 21  |.^....h.winblk%!|
00001be0  33 32 3d 26 46 46 30 31  30 30 30 32 0d 0b 72 05  |32=&FF010002..r.|
00001bf0  cd 0d 0b 7c 35 62 6c 6f  63 6b 25 21 37 32 3d 62  |...|5block%!72=b|
00001c00  6c 6f 63 6b 25 21 38 30  2d 68 67 74 25 3a 62 6c  |lock%!80-hgt%:bl|
00001c10  6f 63 6b 25 21 37 36 3d  62 6c 6f 63 6b 25 21 36  |ock%!76=block%!6|
00001c20  38 2b 77 64 74 25 0d 0b  86 21 77 69 6e 62 6c 6b  |8+wdt%...!winblk|
00001c30  25 21 34 34 3d 30 3a 77  69 6e 62 6c 6b 25 21 34  |%!44=0:winblk%!4|
00001c40  38 3d 2d 68 67 74 25 0d  0b 90 20 77 69 6e 62 6c  |8=-hgt%... winbl|
00001c50  6b 25 21 35 32 3d 77 64  74 25 3a 77 69 6e 62 6c  |k%!52=wdt%:winbl|
00001c60  6b 25 21 35 36 3d 30 0d  0b 9a 2f c8 99 20 22 57  |k%!56=0.../.. "W|
00001c70  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00001c80  22 2c 2c 77 69 6e 62 6c  6b 25 2b 34 20 b8 20 61  |",,winblk%+4 . a|
00001c90  6e 6d 77 69 6e 25 0d 0b  a4 35 62 6c 6f 63 6b 25  |nmwin%...5block%|
00001ca0  21 36 34 3d 61 6e 6d 77  69 6e 25 3a c8 99 20 22  |!64=anmwin%:.. "|
00001cb0  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00001cc0  2c 2c 62 6c 6f 63 6b 25  2b 36 34 0d 0b ae 05 cd  |,,block%+64.....|
00001cd0  0d 0b b8 05 e1 0d 0b c2  05 3a 0d 0b cc 0e dd 20  |.........:..... |
00001ce0  f2 61 6e 69 6d 61 74 65  0d 0b d6 13 f2 65 78 70  |.animate.....exp|
00001cf0  61 6e 64 28 66 72 61 6d  65 25 29 0d 0b e0 12 66  |and(frame%)....f|
00001d00  72 61 6d 65 25 2b 3d 64  65 6c 74 61 25 0d 0b ea  |rame%+=delta%...|
00001d10  3b e7 20 66 72 61 6d 65  25 3d 21 28 68 65 61 70  |;. frame%=!(heap|
00001d20  25 21 31 36 29 20 80 20  28 21 28 34 2b 68 65 61  |%!16) . (!(4+hea|
00001d30  70 25 21 31 36 29 20 80  20 31 29 3d 30 20 8c 20  |p%!16) . 1)=0 . |
00001d40  66 72 61 6d 65 25 3d 30  0d 0b f4 24 e7 20 66 72  |frame%=0...$. fr|
00001d50  61 6d 65 25 3d 21 28 68  65 61 70 25 21 31 36 29  |ame%=!(heap%!16)|
00001d60  20 8c 20 64 65 6c 74 61  25 3d 2d 31 0d 0b fe 19  | . delta%=-1....|
00001d70  e7 20 66 72 61 6d 65 25  3d 30 20 8c 20 64 65 6c  |. frame%=0 . del|
00001d80  74 61 25 3d 31 0d 0c 08  13 21 62 6c 6f 63 6b 25  |ta%=1....!block%|
00001d90  3d 61 6e 6d 77 69 6e 25  0d 0c 12 1d 62 6c 6f 63  |=anmwin%....bloc|
00001da0  6b 25 21 34 3d 30 3a 62  6c 6f 63 6b 25 21 38 3d  |k%!4=0:block%!8=|
00001db0  2d 68 67 74 25 0d 0c 1c  1e 62 6c 6f 63 6b 25 21  |-hgt%....block%!|
00001dc0  31 32 3d 77 64 74 25 3a  62 6c 6f 63 6b 25 21 31  |12=wdt%:block%!1|
00001dd0  36 3d 30 0d 0c 26 2a c8  99 20 22 57 69 6d 70 5f  |6=0..&*.. "Wimp_|
00001de0  55 70 64 61 74 65 57 69  6e 64 6f 77 22 2c 2c 62  |UpdateWindow",,b|
00001df0  6c 6f 63 6b 25 20 b8 20  66 6c 61 67 25 0d 0c 30  |lock% . flag%..0|
00001e00  0b f2 72 65 64 72 61 77  0d 0c 3a 05 e1 0d 0c 44  |..redraw..:....D|
00001e10  05 3a 0d 0c 4e 11 dd 20  f2 73 69 6e 67 6c 65 74  |.:..N.. .singlet|
00001e20  61 73 6b 0d 0c 58 0b 6d  6f 64 65 25 3d eb 0d 0c  |ask..X.mode%=...|
00001e30  62 14 eb 20 21 28 31 32  2b 68 65 61 70 25 21 31  |b.. !(12+heap%!1|
00001e40  36 29 0d 0c 6c 11 e3 20  63 6f 6c 25 3d 30 20 b8  |6)..l.. col%=0 .|
00001e50  20 31 35 0d 0c 76 10 ef  20 31 39 2c 63 6f 6c 25  | 15..v.. 19,col%|
00001e60  2c 31 36 0d 0c 80 47 ef  20 3f 28 32 35 2b 38 2a  |,16...G. ?(25+8*|
00001e70  63 6f 6c 25 2b 68 65 61  70 25 21 31 36 29 2c 3f  |col%+heap%!16),?|
00001e80  28 32 36 2b 38 2a 63 6f  6c 25 2b 68 65 61 70 25  |(26+8*col%+heap%|
00001e90  21 31 36 29 2c 3f 28 32  37 2b 38 2a 63 6f 6c 25  |!16),?(27+8*col%|
00001ea0  2b 68 65 61 70 25 21 31  36 29 0d 0c 8a 0a ed 20  |+heap%!16)..... |
00001eb0  63 6f 6c 25 0d 0c 94 05  87 0d 0c 9e 05 f5 0d 0c  |col%............|
00001ec0  a8 13 f2 65 78 70 61 6e  64 28 66 72 61 6d 65 25  |...expand(frame%|
00001ed0  29 0d 0c b2 18 66 72 61  6d 65 25 3d 66 72 61 6d  |)....frame%=fram|
00001ee0  65 25 2b 64 65 6c 74 61  25 0d 0c bc 3b e7 20 66  |e%+delta%...;. f|
00001ef0  72 61 6d 65 25 3d 21 28  68 65 61 70 25 21 31 36  |rame%=!(heap%!16|
00001f00  29 20 80 20 28 21 28 34  2b 68 65 61 70 25 21 31  |) . (!(4+heap%!1|
00001f10  36 29 20 80 20 31 29 3d  30 20 8c 20 66 72 61 6d  |6) . 1)=0 . fram|
00001f20  65 25 3d 30 0d 0c c6 24  e7 20 66 72 61 6d 65 25  |e%=0...$. frame%|
00001f30  3d 21 28 68 65 61 70 25  21 31 36 29 20 8c 20 64  |=!(heap%!16) . d|
00001f40  65 6c 74 61 25 3d 2d 31  0d 0c d0 19 e7 20 66 72  |elta%=-1..... fr|
00001f50  61 6d 65 25 3d 30 20 8c  20 64 65 6c 74 61 25 3d  |ame%=0 . delta%=|
00001f60  31 0d 0c da 48 c8 99 20  22 4f 53 5f 53 70 72 69  |1...H.. "OS_Spri|
00001f70  74 65 4f 70 22 2c 35 31  32 2b 33 34 2c 68 65 61  |teOp",512+34,hea|
00001f80  70 25 21 38 2c 28 68 65  61 70 25 21 38 29 2b 31  |p%!8,(heap%!8)+1|
00001f90  36 2c 36 34 30 2d 77 64  74 25 2f 32 2c 35 31 32  |6,640-wdt%/2,512|
00001fa0  2d 68 67 74 25 2f 32 2c  30 0d 0c e4 18 c8 97 20  |-hgt%/2,0...... |
00001fb0  78 70 6e 74 25 2c 79 70  6e 74 25 2c 62 75 74 6e  |xpnt%,ypnt%,butn|
00001fc0  25 0d 0c ee 0d fd 20 62  75 74 6e 25 3e 30 0d 0c  |%..... butn%>0..|
00001fd0  f8 1b c8 99 20 22 57 69  6d 70 5f 53 65 74 4d 6f  |.... "Wimp_SetMo|
00001fe0  64 65 22 2c 6d 6f 64 65  25 0d 0d 02 05 e1 0d ff  |de",mode%.......|
00001ff0