� ><FromBMP$Dir>.!RunImage
1� by David Thomas, for Acorn Computing � 1993
<ș"Wimp_Initialise",200,&4b534154,"FromBMP"�wimp%,taskh%
(#ș"Interface_Initialise",taskh%
2%ș"Wimp_SlotSize",-1,-1�baseslot%
<K�code%256,q%512,indr%512,menu%80:indr_end%=indr%+512:finished%=�:in$=""
F�ș"Wimp_OpenTemplate",,"<FromBMP$Dir>.Templates":prog_info%=�createwin("prog_info"):save%=�createwin("save"):ș"Wimp_CloseTemplate"
PBș"OS_File",255,"<FromBMP$Dir>.Menu",menu%:menu%!32=prog_info%
Zh!q%=-1:q%!4=0:q%!8=0:q%!12=68:q%!16=68:q%!20=&3002:$(q%+24)="!frombmp":ș"Wimp_CreateIcon",,q%�bicn%
d��opt%=0�2�2:P%=code%:[OPT opt%:.swap ldrb r2,[r0]:and r3,r2,#&0F:mov r3,r3,lsl#4:and r4,r2,#&F0:mov r4,r4,lsr#4:orr r2,r3,r4:strb r2,[r0],#1:cmp r0,r1:blt swap:mov pc,r14:.swape ldrb r2,[r0]:and r3,r2,#&01:mov r3,r3,lsl#7:mov r4,r3:and r3,r2,#&02
n�mov r3,r3,lsl#5:orr r4,r3,r4:and r3,r2,#&04:mov r3,r3,lsl#3:orr r4,r3,r4:and r3,r2,#&08:mov r3,r3,lsl#1:orr r4,r3,r4:and r3,r2,#&10:mov r3,r3,lsr#1:orr r4,r3,r4:and r3,r2,#&20:mov r3,r3,lsr#3:orr r4,r3,r4:and r3,r2,#&40:mov r3,r3,lsr#5:orr r4,r3,r4
x�and r3,r2,#&80:mov r3,r3,lsr#7:orr r4,r3,r4:strb r4,[r0],#1:cmp r0,r1:blt swape:mov pc,r14:.swapt ldrb r2,[r0]:ldrb r3,[r0,#2]:strb r3,[r0]:strb r2,[r0,#2]:add r0,r0,#3:cmp r0,r1:bne swapt:mov pc,r14:]:�
���error
��
�ș"Wimp_Poll",,q%�reason%
�&ș"Interface_Poll",reason%,,taskh%
�9ș"Interface_PreProcessKey",reason%,q%,taskh%�reason%
�Ȏreason%�
�q�1:ș"Wimp_RedrawWindow",,q%�more%:ȕmore%:ș"Interface_Render3dWindow",,q%:ș"Wimp_GetRectangle",,q%�more%:�
��2:ș"Wimp_OpenWindow",,q%
��3:ș"Wimp_CloseWindow",,q%
�
�6:�mouse
��7:�dragboxend
� �8:ș"Wimp_ProcessKey",q%!24
�e�9:�!q%=1 finished%=� � ș"Wimp_GetPointerInfo",,q%:�q%!8=1ș"Wimp_CreateMenu",,menu%,!q%-72,q%!4

�17,18:Ȏq%!16�

�0:finished%=�

�2:�save(�var(q%+44))

"-�3:�q%!40=&69c in$=�var(q%+44):�load(in$)

,u�10:h%=q%!20:ș"OS_ReadVarVal","FromBMP$Dir",q%+256,256,0,3 � ,,end%:q2%=q%+256:q2%?end%=13:�#h%,"Run "+$(q%+256)

6�

@�

J�finished%

T"ș"Interface_CloseDown",taskh%

^'ș"Wimp_CloseDown",taskh%,&4b534154

h�

r��mouse

|Ȏq%!12�

��-2:Ȏq%!16�

��bicn%:Ȏq%!8�

�,�2:ș"Wimp_CreateMenu",,menu%,!q%-76,184

��1:�load(in$)

��

��

��save%:Ȏq%!8�

��4,1:Ȏq%!16�

� �2:�dragbox(save%,2,spname$)

�[�0:!q%=save%:q%!4=0:q%!8=4:ș"Interface_SlabButton",,q%:�save(�var(�textaddr(save%,1)))

��

��

��
�
�� �savebox(icon$):�setindrtext(save%,2,"z4;pptr_hand,12,8;s"+icon$):ș "Wimp_GetPointerInfo",,q%+256:ș "Wimp_CreateMenu",,save%,q%!256-152,q%!260+68:�
#� �dragbox(wind%,icon%,spname$)
&�!q%=wind%:ș "Wimp_GetWindowState",,q%:x%=q%!4:y%=q%!16:xs%=q%!20:ys%=q%!24:!q%=wind%:q%!4=icon%:ș "Wimp_GetIconState",,q%:q%!4=5:q%!8+=x%-xs%:q%!12+=y%-ys%:q%!16+=x%-xs%:q%!20+=y%-ys%:q%!24=0:q%!28=0:q%!32=&7FFFFFFF:q%!36=&7FFFFFFF
0zș "OS_Byte",161,28 �,,dragaspr%:� dragaspr%�2 ș "DragASprite_Start",197,1,spname$,q%+8,q%+24 � ș "Wimp_DragBox",,q%
:�
D� �dragboxend
N'� dragaspr%�2 ș "DragASprite_Stop"
X1ș "Wimp_GetPointerInfo",,q%:� q%!12<>save% �
bvq%!20=q%!12:q%!24=q%!16:q%!28=!q%:q%!32=q%!4:q%!12=0:q%!16=1:q%!36=-1:� spname$="file_69d" q%!40=&69d � q%!40=&690
ly$(q%+44)=�leaf(�geticontext(save%,1))+�0:!q%=44+(��geticontext(save%,1)+4)��3:ș "Wimp_SendMessage",17,q%,q%!20,q%!24
v�
��
�ݤleaf(file$)
�1ȕ�file$,":")>0:file$=�file$,�file$,":")+1):�
�1ȕ�file$,".")>0:file$=�file$,�file$,".")+1):�
�
=file$
�>ݤvar(var%)var$="":ȕ?var%>31:var$+=�?var%:var%+=1:�:=var$
�=ݤtextaddr(wind%,icon%)�geticonstate(wind%,icon%):=q%!284
�=ݤindraddr(wind%,icon%)�geticonstate(wind%,icon%):=q%!288
�X��geticonstate(wind%,icon%)q%!256=wind%:q%!260=icon%:ș"Wimp_GetIconState",,q%+256:�
�~��seticonstate(wind%,icon%,eor%,clear%)q%!256=wind%:q%!260=icon%:q%!264=eor%:q%!268=clear%:ș"Wimp_SetIconState",,q%+256:�
�;ݤgeticontext(wind%,icon%)=�var(�textaddr(wind%,icon%))
�b��seticontext(wind%,icon%,text$)$�textaddr(wind%,icon%)=text$:�seticonstate(wind%,icon%,0,0):�
�b��setindrtext(wind%,icon%,text$)$�indraddr(wind%,icon%)=text$:�seticonstate(wind%,icon%,0,0):�
k��openwindow(wind%)q%!256=wind%:ș"Wimp_GetWindowState",,q%+256:q%!284=-1:ș"Wimp_OpenWindow",,q%+256:�
� �createwin(temp$)
mș "Wimp_LoadTemplate",,q%,indr%,indr_end%,-1,temp$,0 � ,,indr%:ș "Wimp_CreateWindow",,q% � wind%:=wind%
 
*��load(in$)
4� in$="" �
>&ș "OS_File",5,in$ � in%:�in%<>1 �
Hrd%=�in$
R?罚#rd%+��#rd%<>"BM" �#rd%:�ok("This is not a BMP file!"):�
\�#rd%=28
fȎ �word �
p0� 1,4,8:spname$="file_ff9":�savebox(spname$)
z-� 24:spname$="file_690":�savebox(spname$)
�D:�ok("I cannot handle this file, it has an illegal bpp field.")
��
�	�#rd%
��
�
���save(file$)
�ș"Hourglass_On"
�;q%!8=4:q%!12=save%:q%!16=0:ș"Interface_SlabButton",,q%
�[�file$,".")<1��file$,":")<1�ok("To save, drag the file icon to a directory display"):�
�rd%=�in$
��#rd%=10:image%=�word
��#rd%=18:x%=�word:y%=�word
��#rd%=28:bpp%=�word
�#rd%=54
Dsize%=x%*y%*bpp%/8:rowsize%=((x%*bpp%+31)��31)�8:xsize%=size%/y%

$�slotsize(256+2048+size%)
.��currslot%<(256+2048+size%+baseslot%)�#rd%:�ok("I cannot grab the memory needed for processing this file. Please free some memory and try again."):�
8
B
Ȏ bpp% �
L<� 1,4,8:� bpp%=1 mode%=25 � � bpp%=4 mode%=27 � mode%=28
V@!buff%=256+2048+size%:buff%!8=16:ș "OS_SpriteOp",&109,buff%
`:ș "OS_SpriteOp",&10f,buff%,�leaf(file$),0,x%,y%,mode%
jpal%=2^bpp%*8
tQsptr%=buff%+buff%!8:!sptr%+=pal%:sptr%!32+=pal%:sptr%!36+=pal%:buff%!12+=pal%
~R�entry%=0�2^bpp%-1:p%=�rword:!(sptr%+44+8*entry%)=p%:!(sptr%+48+8*entry%)=p%:�
��#rd%=image%
�
ptr%=0
��
�Eș"OS_GBPB",4,rd%,buff%+sptr%!32+16+(y%-1)*rowsize%-ptr%,rowsize%
�[A%=buff%+sptr%!32+16+(y%-1)*rowsize%-ptr%:B%=A%+rowsize%:�bpp%=1 �swape � �bpp%=4 �swap
�ptr%+=rowsize%
��ptr%>=y%*rowsize%
�	�#rd%
�%ș "OS_SpriteOp",&10c,buff%,file$
�
�S� 24:$buff%="FromBMP":buff%?7=0:buff%!8=100:buff%!12=x%:buff%!16=y%:buff%!20=24
�
ptr%=0
�

7ș"OS_GBPB",4,rd%,buff%+24+size%-xsize%-ptr%,xsize%
ptr%+=xsize%
�#rd%=�#rd%+rowsize%-xsize%
(�ptr%>=size%
2"A%=buff%+24:B%=A%+size%:�swapt
<	�#rd%
F4ș "OS_File",10,file$,&690,,buff%,buff%+24+size%
P�
Z
d�slotsize(0)
n�seticontext(save%,1,file$)
x;q%!8=0:q%!12=save%:q%!16=0:ș"Interface_SlabButton",,q%
�ș"Wimp_CreateMenu",-1
�ș"Hourglass_Off"
��
�
���slotsize(amount%)
�<ș"Wimp_SlotSize",amount%+baseslot%,-1�currslot%:buff%=�
��
�.ݤword:=�#rd%��#rd%<<8��#rd%<<16��#rd%<<24
�/ݤrword:=�#rd%<<24��#rd%<<16��#rd%<<8��#rd%
�Eݤrmv(mode%,var%):ș"OS_ReadModeVariable",mode%,var%�,,var%:=var%
���ok(message$)
�H�slotsize(0):q%!8=0:q%!12=save%:q%!16=0:ș"Interface_SlabButton",,q%
�Xq%!256=0:$(q%+260)=message$+�0:ș"Wimp_ReportError",q%+256,17,"Message from FromBMP"
�
��error
H�slotsize(0):q%!8=0:q%!12=save%:q%!16=0:ș"Interface_SlabButton",,q%
"�q%!256=�:$(q%+260)=�$+", IEC "+Þ+", click 'OK' to continue or 'Cancel' to quit."+�0:ș"Wimp_ReportError",q%+256,3,"FromBMP"�,btns%:�btns%=2 finished%=� � finshed%=�
,�
�

00000000  0d 00 0a 1e f4 20 3e 3c  46 72 6f 6d 42 4d 50 24  |..... ><FromBMP$|
00000010  44 69 72 3e 2e 21 52 75  6e 49 6d 61 67 65 0d 00  |Dir>.!RunImage..|
00000020  14 31 f4 20 62 79 20 44  61 76 69 64 20 54 68 6f  |.1. by David Tho|
00000030  6d 61 73 2c 20 66 6f 72  20 41 63 6f 72 6e 20 43  |mas, for Acorn C|
00000040  6f 6d 70 75 74 69 6e 67  20 a9 20 31 39 39 33 0d  |omputing . 1993.|
00000050  00 1e 3c c8 99 22 57 69  6d 70 5f 49 6e 69 74 69  |..<.."Wimp_Initi|
00000060  61 6c 69 73 65 22 2c 32  30 30 2c 26 34 62 35 33  |alise",200,&4b53|
00000070  34 31 35 34 2c 22 46 72  6f 6d 42 4d 50 22 b8 77  |4154,"FromBMP".w|
00000080  69 6d 70 25 2c 74 61 73  6b 68 25 0d 00 28 23 c8  |imp%,taskh%..(#.|
00000090  99 22 49 6e 74 65 72 66  61 63 65 5f 49 6e 69 74  |."Interface_Init|
000000a0  69 61 6c 69 73 65 22 2c  74 61 73 6b 68 25 0d 00  |ialise",taskh%..|
000000b0  32 25 c8 99 22 57 69 6d  70 5f 53 6c 6f 74 53 69  |2%.."Wimp_SlotSi|
000000c0  7a 65 22 2c 2d 31 2c 2d  31 b8 62 61 73 65 73 6c  |ze",-1,-1.basesl|
000000d0  6f 74 25 0d 00 3c 4b de  63 6f 64 65 25 32 35 36  |ot%..<K.code%256|
000000e0  2c 71 25 35 31 32 2c 69  6e 64 72 25 35 31 32 2c  |,q%512,indr%512,|
000000f0  6d 65 6e 75 25 38 30 3a  69 6e 64 72 5f 65 6e 64  |menu%80:indr_end|
00000100  25 3d 69 6e 64 72 25 2b  35 31 32 3a 66 69 6e 69  |%=indr%+512:fini|
00000110  73 68 65 64 25 3d a3 3a  69 6e 24 3d 22 22 0d 00  |shed%=.:in$=""..|
00000120  46 87 c8 99 22 57 69 6d  70 5f 4f 70 65 6e 54 65  |F..."Wimp_OpenTe|
00000130  6d 70 6c 61 74 65 22 2c  2c 22 3c 46 72 6f 6d 42  |mplate",,"<FromB|
00000140  4d 50 24 44 69 72 3e 2e  54 65 6d 70 6c 61 74 65  |MP$Dir>.Template|
00000150  73 22 3a 70 72 6f 67 5f  69 6e 66 6f 25 3d a4 63  |s":prog_info%=.c|
00000160  72 65 61 74 65 77 69 6e  28 22 70 72 6f 67 5f 69  |reatewin("prog_i|
00000170  6e 66 6f 22 29 3a 73 61  76 65 25 3d a4 63 72 65  |nfo"):save%=.cre|
00000180  61 74 65 77 69 6e 28 22  73 61 76 65 22 29 3a c8  |atewin("save"):.|
00000190  99 22 57 69 6d 70 5f 43  6c 6f 73 65 54 65 6d 70  |."Wimp_CloseTemp|
000001a0  6c 61 74 65 22 0d 00 50  42 c8 99 22 4f 53 5f 46  |late"..PB.."OS_F|
000001b0  69 6c 65 22 2c 32 35 35  2c 22 3c 46 72 6f 6d 42  |ile",255,"<FromB|
000001c0  4d 50 24 44 69 72 3e 2e  4d 65 6e 75 22 2c 6d 65  |MP$Dir>.Menu",me|
000001d0  6e 75 25 3a 6d 65 6e 75  25 21 33 32 3d 70 72 6f  |nu%:menu%!32=pro|
000001e0  67 5f 69 6e 66 6f 25 0d  00 5a 68 21 71 25 3d 2d  |g_info%..Zh!q%=-|
000001f0  31 3a 71 25 21 34 3d 30  3a 71 25 21 38 3d 30 3a  |1:q%!4=0:q%!8=0:|
00000200  71 25 21 31 32 3d 36 38  3a 71 25 21 31 36 3d 36  |q%!12=68:q%!16=6|
00000210  38 3a 71 25 21 32 30 3d  26 33 30 30 32 3a 24 28  |8:q%!20=&3002:$(|
00000220  71 25 2b 32 34 29 3d 22  21 66 72 6f 6d 62 6d 70  |q%+24)="!frombmp|
00000230  22 3a c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |":.."Wimp_Create|
00000240  49 63 6f 6e 22 2c 2c 71  25 b8 62 69 63 6e 25 0d  |Icon",,q%.bicn%.|
00000250  00 64 fa e3 6f 70 74 25  3d 30 b8 32 88 32 3a 50  |.d..opt%=0.2.2:P|
00000260  25 3d 63 6f 64 65 25 3a  5b 4f 50 54 20 6f 70 74  |%=code%:[OPT opt|
00000270  25 3a 2e 73 77 61 70 20  6c 64 72 62 20 72 32 2c  |%:.swap ldrb r2,|
00000280  5b 72 30 5d 3a 61 6e 64  20 72 33 2c 72 32 2c 23  |[r0]:and r3,r2,#|
00000290  26 30 46 3a 6d 6f 76 20  72 33 2c 72 33 2c 6c 73  |&0F:mov r3,r3,ls|
000002a0  6c 23 34 3a 61 6e 64 20  72 34 2c 72 32 2c 23 26  |l#4:and r4,r2,#&|
000002b0  46 30 3a 6d 6f 76 20 72  34 2c 72 34 2c 6c 73 72  |F0:mov r4,r4,lsr|
000002c0  23 34 3a 6f 72 72 20 72  32 2c 72 33 2c 72 34 3a  |#4:orr r2,r3,r4:|
000002d0  73 74 72 62 20 72 32 2c  5b 72 30 5d 2c 23 31 3a  |strb r2,[r0],#1:|
000002e0  63 6d 70 20 72 30 2c 72  31 3a 62 6c 74 20 73 77  |cmp r0,r1:blt sw|
000002f0  61 70 3a 6d 6f 76 20 70  63 2c 72 31 34 3a 2e 73  |ap:mov pc,r14:.s|
00000300  77 61 70 65 20 6c 64 72  62 20 72 32 2c 5b 72 30  |wape ldrb r2,[r0|
00000310  5d 3a 61 6e 64 20 72 33  2c 72 32 2c 23 26 30 31  |]:and r3,r2,#&01|
00000320  3a 6d 6f 76 20 72 33 2c  72 33 2c 6c 73 6c 23 37  |:mov r3,r3,lsl#7|
00000330  3a 6d 6f 76 20 72 34 2c  72 33 3a 61 6e 64 20 72  |:mov r4,r3:and r|
00000340  33 2c 72 32 2c 23 26 30  32 0d 00 6e fc 6d 6f 76  |3,r2,#&02..n.mov|
00000350  20 72 33 2c 72 33 2c 6c  73 6c 23 35 3a 6f 72 72  | r3,r3,lsl#5:orr|
00000360  20 72 34 2c 72 33 2c 72  34 3a 61 6e 64 20 72 33  | r4,r3,r4:and r3|
00000370  2c 72 32 2c 23 26 30 34  3a 6d 6f 76 20 72 33 2c  |,r2,#&04:mov r3,|
00000380  72 33 2c 6c 73 6c 23 33  3a 6f 72 72 20 72 34 2c  |r3,lsl#3:orr r4,|
00000390  72 33 2c 72 34 3a 61 6e  64 20 72 33 2c 72 32 2c  |r3,r4:and r3,r2,|
000003a0  23 26 30 38 3a 6d 6f 76  20 72 33 2c 72 33 2c 6c  |#&08:mov r3,r3,l|
000003b0  73 6c 23 31 3a 6f 72 72  20 72 34 2c 72 33 2c 72  |sl#1:orr r4,r3,r|
000003c0  34 3a 61 6e 64 20 72 33  2c 72 32 2c 23 26 31 30  |4:and r3,r2,#&10|
000003d0  3a 6d 6f 76 20 72 33 2c  72 33 2c 6c 73 72 23 31  |:mov r3,r3,lsr#1|
000003e0  3a 6f 72 72 20 72 34 2c  72 33 2c 72 34 3a 61 6e  |:orr r4,r3,r4:an|
000003f0  64 20 72 33 2c 72 32 2c  23 26 32 30 3a 6d 6f 76  |d r3,r2,#&20:mov|
00000400  20 72 33 2c 72 33 2c 6c  73 72 23 33 3a 6f 72 72  | r3,r3,lsr#3:orr|
00000410  20 72 34 2c 72 33 2c 72  34 3a 61 6e 64 20 72 33  | r4,r3,r4:and r3|
00000420  2c 72 32 2c 23 26 34 30  3a 6d 6f 76 20 72 33 2c  |,r2,#&40:mov r3,|
00000430  72 33 2c 6c 73 72 23 35  3a 6f 72 72 20 72 34 2c  |r3,lsr#5:orr r4,|
00000440  72 33 2c 72 34 0d 00 78  cf 61 6e 64 20 72 33 2c  |r3,r4..x.and r3,|
00000450  72 32 2c 23 26 38 30 3a  6d 6f 76 20 72 33 2c 72  |r2,#&80:mov r3,r|
00000460  33 2c 6c 73 72 23 37 3a  6f 72 72 20 72 34 2c 72  |3,lsr#7:orr r4,r|
00000470  33 2c 72 34 3a 73 74 72  62 20 72 34 2c 5b 72 30  |3,r4:strb r4,[r0|
00000480  5d 2c 23 31 3a 63 6d 70  20 72 30 2c 72 31 3a 62  |],#1:cmp r0,r1:b|
00000490  6c 74 20 73 77 61 70 65  3a 6d 6f 76 20 70 63 2c  |lt swape:mov pc,|
000004a0  72 31 34 3a 2e 73 77 61  70 74 20 6c 64 72 62 20  |r14:.swapt ldrb |
000004b0  72 32 2c 5b 72 30 5d 3a  6c 64 72 62 20 72 33 2c  |r2,[r0]:ldrb r3,|
000004c0  5b 72 30 2c 23 32 5d 3a  73 74 72 62 20 72 33 2c  |[r0,#2]:strb r3,|
000004d0  5b 72 30 5d 3a 73 74 72  62 20 72 32 2c 5b 72 30  |[r0]:strb r2,[r0|
000004e0  2c 23 32 5d 3a 61 64 64  20 72 30 2c 72 30 2c 23  |,#2]:add r0,r0,#|
000004f0  33 3a 63 6d 70 20 72 30  2c 72 31 3a 62 6e 65 20  |3:cmp r0,r1:bne |
00000500  73 77 61 70 74 3a 6d 6f  76 20 70 63 2c 72 31 34  |swapt:mov pc,r14|
00000510  3a 5d 3a ed 0d 00 82 0c  ee 85 f2 65 72 72 6f 72  |:]:........error|
00000520  0d 00 8c 05 f5 0d 00 96  1d c8 99 22 57 69 6d 70  |..........."Wimp|
00000530  5f 50 6f 6c 6c 22 2c 2c  71 25 b8 72 65 61 73 6f  |_Poll",,q%.reaso|
00000540  6e 25 0d 00 a0 26 c8 99  22 49 6e 74 65 72 66 61  |n%...&.."Interfa|
00000550  63 65 5f 50 6f 6c 6c 22  2c 72 65 61 73 6f 6e 25  |ce_Poll",reason%|
00000560  2c 2c 74 61 73 6b 68 25  0d 00 aa 39 c8 99 22 49  |,,taskh%...9.."I|
00000570  6e 74 65 72 66 61 63 65  5f 50 72 65 50 72 6f 63  |nterface_PreProc|
00000580  65 73 73 4b 65 79 22 2c  72 65 61 73 6f 6e 25 2c  |essKey",reason%,|
00000590  71 25 2c 74 61 73 6b 68  25 b8 72 65 61 73 6f 6e  |q%,taskh%.reason|
000005a0  25 0d 00 b4 0e c8 8e 72  65 61 73 6f 6e 25 ca 0d  |%......reason%..|
000005b0  00 be 71 c9 31 3a c8 99  22 57 69 6d 70 5f 52 65  |..q.1:.."Wimp_Re|
000005c0  64 72 61 77 57 69 6e 64  6f 77 22 2c 2c 71 25 b8  |drawWindow",,q%.|
000005d0  6d 6f 72 65 25 3a c8 95  6d 6f 72 65 25 3a c8 99  |more%:..more%:..|
000005e0  22 49 6e 74 65 72 66 61  63 65 5f 52 65 6e 64 65  |"Interface_Rende|
000005f0  72 33 64 57 69 6e 64 6f  77 22 2c 2c 71 25 3a c8  |r3dWindow",,q%:.|
00000600  99 22 57 69 6d 70 5f 47  65 74 52 65 63 74 61 6e  |."Wimp_GetRectan|
00000610  67 6c 65 22 2c 2c 71 25  b8 6d 6f 72 65 25 3a ce  |gle",,q%.more%:.|
00000620  0d 00 c8 1e c9 32 3a c8  99 22 57 69 6d 70 5f 4f  |.....2:.."Wimp_O|
00000630  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 71 25 0d 00  |penWindow",,q%..|
00000640  d2 1f c9 33 3a c8 99 22  57 69 6d 70 5f 43 6c 6f  |...3:.."Wimp_Clo|
00000650  73 65 57 69 6e 64 6f 77  22 2c 2c 71 25 0d 00 dc  |seWindow",,q%...|
00000660  0d c9 36 3a f2 6d 6f 75  73 65 0d 00 e6 12 c9 37  |..6:.mouse.....7|
00000670  3a f2 64 72 61 67 62 6f  78 65 6e 64 0d 00 f0 20  |:.dragboxend... |
00000680  c9 38 3a c8 99 22 57 69  6d 70 5f 50 72 6f 63 65  |.8:.."Wimp_Proce|
00000690  73 73 4b 65 79 22 2c 71  25 21 32 34 0d 00 fa 65  |ssKey",q%!24...e|
000006a0  c9 39 3a e7 21 71 25 3d  31 20 66 69 6e 69 73 68  |.9:.!q%=1 finish|
000006b0  65 64 25 3d b9 20 8b 20  c8 99 22 57 69 6d 70 5f  |ed%=. . .."Wimp_|
000006c0  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 22 2c  |GetPointerInfo",|
000006d0  2c 71 25 3a e7 71 25 21  38 3d 31 c8 99 22 57 69  |,q%:.q%!8=1.."Wi|
000006e0  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
000006f0  6d 65 6e 75 25 2c 21 71  25 2d 37 32 2c 71 25 21  |menu%,!q%-72,q%!|
00000700  34 0d 01 04 13 c9 31 37  2c 31 38 3a c8 8e 71 25  |4.....17,18:..q%|
00000710  21 31 36 ca 0d 01 0e 12  c9 30 3a 66 69 6e 69 73  |!16......0:finis|
00000720  68 65 64 25 3d b9 0d 01  18 19 c9 32 3a f2 73 61  |hed%=......2:.sa|
00000730  76 65 28 a4 76 61 72 28  71 25 2b 34 34 29 29 0d  |ve(.var(q%+44)).|
00000740  01 22 2d c9 33 3a e7 71  25 21 34 30 3d 26 36 39  |."-.3:.q%!40=&69|
00000750  63 20 69 6e 24 3d a4 76  61 72 28 71 25 2b 34 34  |c in$=.var(q%+44|
00000760  29 3a f2 6c 6f 61 64 28  69 6e 24 29 0d 01 2c 75  |):.load(in$)..,u|
00000770  c9 31 30 3a 68 25 3d 71  25 21 32 30 3a c8 99 22  |.10:h%=q%!20:.."|
00000780  4f 53 5f 52 65 61 64 56  61 72 56 61 6c 22 2c 22  |OS_ReadVarVal","|
00000790  46 72 6f 6d 42 4d 50 24  44 69 72 22 2c 71 25 2b  |FromBMP$Dir",q%+|
000007a0  32 35 36 2c 32 35 36 2c  30 2c 33 20 b8 20 2c 2c  |256,256,0,3 . ,,|
000007b0  65 6e 64 25 3a 71 32 25  3d 71 25 2b 32 35 36 3a  |end%:q2%=q%+256:|
000007c0  71 32 25 3f 65 6e 64 25  3d 31 33 3a d5 23 68 25  |q2%?end%=13:.#h%|
000007d0  2c 22 52 75 6e 20 22 2b  24 28 71 25 2b 32 35 36  |,"Run "+$(q%+256|
000007e0  29 0d 01 36 05 cb 0d 01  40 05 cb 0d 01 4a 0e fd  |)..6....@....J..|
000007f0  66 69 6e 69 73 68 65 64  25 0d 01 54 22 c8 99 22  |finished%..T".."|
00000800  49 6e 74 65 72 66 61 63  65 5f 43 6c 6f 73 65 44  |Interface_CloseD|
00000810  6f 77 6e 22 2c 74 61 73  6b 68 25 0d 01 5e 27 c8  |own",taskh%..^'.|
00000820  99 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  |."Wimp_CloseDown|
00000830  22 2c 74 61 73 6b 68 25  2c 26 34 62 35 33 34 31  |",taskh%,&4b5341|
00000840  35 34 0d 01 68 05 e0 0d  01 72 0b dd f2 6d 6f 75  |54..h....r...mou|
00000850  73 65 0d 01 7c 0c c8 8e  71 25 21 31 32 ca 0d 01  |se..|...q%!12...|
00000860  86 10 c9 2d 32 3a c8 8e  71 25 21 31 36 ca 0d 01  |...-2:..q%!16...|
00000870  90 12 c9 62 69 63 6e 25  3a c8 8e 71 25 21 38 ca  |...bicn%:..q%!8.|
00000880  0d 01 9a 2c c9 32 3a c8  99 22 57 69 6d 70 5f 43  |...,.2:.."Wimp_C|
00000890  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 65 6e 75  |reateMenu",,menu|
000008a0  25 2c 21 71 25 2d 37 36  2c 31 38 34 0d 01 a4 11  |%,!q%-76,184....|
000008b0  c9 31 3a f2 6c 6f 61 64  28 69 6e 24 29 0d 01 ae  |.1:.load(in$)...|
000008c0  05 cb 0d 01 b8 05 cb 0d  01 c2 12 c9 73 61 76 65  |............save|
000008d0  25 3a c8 8e 71 25 21 38  ca 0d 01 cc 11 c9 34 2c  |%:..q%!8......4,|
000008e0  31 3a c8 8e 71 25 21 31  36 ca 0d 01 d6 20 c9 32  |1:..q%!16.... .2|
000008f0  3a f2 64 72 61 67 62 6f  78 28 73 61 76 65 25 2c  |:.dragbox(save%,|
00000900  32 2c 73 70 6e 61 6d 65  24 29 0d 01 e0 5b c9 30  |2,spname$)...[.0|
00000910  3a 21 71 25 3d 73 61 76  65 25 3a 71 25 21 34 3d  |:!q%=save%:q%!4=|
00000920  30 3a 71 25 21 38 3d 34  3a c8 99 22 49 6e 74 65  |0:q%!8=4:.."Inte|
00000930  72 66 61 63 65 5f 53 6c  61 62 42 75 74 74 6f 6e  |rface_SlabButton|
00000940  22 2c 2c 71 25 3a f2 73  61 76 65 28 a4 76 61 72  |",,q%:.save(.var|
00000950  28 a4 74 65 78 74 61 64  64 72 28 73 61 76 65 25  |(.textaddr(save%|
00000960  2c 31 29 29 29 0d 01 ea  05 cb 0d 01 f4 05 cb 0d  |,1)))...........|
00000970  01 fe 05 cb 0d 02 08 05  e1 0d 02 12 9b dd 20 f2  |.............. .|
00000980  73 61 76 65 62 6f 78 28  69 63 6f 6e 24 29 3a f2  |savebox(icon$):.|
00000990  73 65 74 69 6e 64 72 74  65 78 74 28 73 61 76 65  |setindrtext(save|
000009a0  25 2c 32 2c 22 7a 34 3b  70 70 74 72 5f 68 61 6e  |%,2,"z4;pptr_han|
000009b0  64 2c 31 32 2c 38 3b 73  22 2b 69 63 6f 6e 24 29  |d,12,8;s"+icon$)|
000009c0  3a c8 99 20 22 57 69 6d  70 5f 47 65 74 50 6f 69  |:.. "Wimp_GetPoi|
000009d0  6e 74 65 72 49 6e 66 6f  22 2c 2c 71 25 2b 32 35  |nterInfo",,q%+25|
000009e0  36 3a c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |6:.. "Wimp_Creat|
000009f0  65 4d 65 6e 75 22 2c 2c  73 61 76 65 25 2c 71 25  |eMenu",,save%,q%|
00000a00  21 32 35 36 2d 31 35 32  2c 71 25 21 32 36 30 2b  |!256-152,q%!260+|
00000a10  36 38 3a e1 0d 02 1c 23  dd 20 f2 64 72 61 67 62  |68:....#. .dragb|
00000a20  6f 78 28 77 69 6e 64 25  2c 69 63 6f 6e 25 2c 73  |ox(wind%,icon%,s|
00000a30  70 6e 61 6d 65 24 29 0d  02 26 ed 21 71 25 3d 77  |pname$)..&.!q%=w|
00000a40  69 6e 64 25 3a c8 99 20  22 57 69 6d 70 5f 47 65  |ind%:.. "Wimp_Ge|
00000a50  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 71  |tWindowState",,q|
00000a60  25 3a 78 25 3d 71 25 21  34 3a 79 25 3d 71 25 21  |%:x%=q%!4:y%=q%!|
00000a70  31 36 3a 78 73 25 3d 71  25 21 32 30 3a 79 73 25  |16:xs%=q%!20:ys%|
00000a80  3d 71 25 21 32 34 3a 21  71 25 3d 77 69 6e 64 25  |=q%!24:!q%=wind%|
00000a90  3a 71 25 21 34 3d 69 63  6f 6e 25 3a c8 99 20 22  |:q%!4=icon%:.. "|
00000aa0  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00000ab0  65 22 2c 2c 71 25 3a 71  25 21 34 3d 35 3a 71 25  |e",,q%:q%!4=5:q%|
00000ac0  21 38 2b 3d 78 25 2d 78  73 25 3a 71 25 21 31 32  |!8+=x%-xs%:q%!12|
00000ad0  2b 3d 79 25 2d 79 73 25  3a 71 25 21 31 36 2b 3d  |+=y%-ys%:q%!16+=|
00000ae0  78 25 2d 78 73 25 3a 71  25 21 32 30 2b 3d 79 25  |x%-xs%:q%!20+=y%|
00000af0  2d 79 73 25 3a 71 25 21  32 34 3d 30 3a 71 25 21  |-ys%:q%!24=0:q%!|
00000b00  32 38 3d 30 3a 71 25 21  33 32 3d 26 37 46 46 46  |28=0:q%!32=&7FFF|
00000b10  46 46 46 46 3a 71 25 21  33 36 3d 26 37 46 46 46  |FFFF:q%!36=&7FFF|
00000b20  46 46 46 46 0d 02 30 7a  c8 99 20 22 4f 53 5f 42  |FFFF..0z.. "OS_B|
00000b30  79 74 65 22 2c 31 36 31  2c 32 38 20 b8 2c 2c 64  |yte",161,28 .,,d|
00000b40  72 61 67 61 73 70 72 25  3a e7 20 64 72 61 67 61  |ragaspr%:. draga|
00000b50  73 70 72 25 80 32 20 c8  99 20 22 44 72 61 67 41  |spr%.2 .. "DragA|
00000b60  53 70 72 69 74 65 5f 53  74 61 72 74 22 2c 31 39  |Sprite_Start",19|
00000b70  37 2c 31 2c 73 70 6e 61  6d 65 24 2c 71 25 2b 38  |7,1,spname$,q%+8|
00000b80  2c 71 25 2b 32 34 20 8b  20 c8 99 20 22 57 69 6d  |,q%+24 . .. "Wim|
00000b90  70 5f 44 72 61 67 42 6f  78 22 2c 2c 71 25 0d 02  |p_DragBox",,q%..|
00000ba0  3a 05 e1 0d 02 44 11 dd  20 f2 64 72 61 67 62 6f  |:....D.. .dragbo|
00000bb0  78 65 6e 64 0d 02 4e 27  e7 20 64 72 61 67 61 73  |xend..N'. dragas|
00000bc0  70 72 25 80 32 20 c8 99  20 22 44 72 61 67 41 53  |pr%.2 .. "DragAS|
00000bd0  70 72 69 74 65 5f 53 74  6f 70 22 0d 02 58 31 c8  |prite_Stop"..X1.|
00000be0  99 20 22 57 69 6d 70 5f  47 65 74 50 6f 69 6e 74  |. "Wimp_GetPoint|
00000bf0  65 72 49 6e 66 6f 22 2c  2c 71 25 3a e7 20 71 25  |erInfo",,q%:. q%|
00000c00  21 31 32 3c 3e 73 61 76  65 25 20 8c 0d 02 62 76  |!12<>save% ...bv|
00000c10  71 25 21 32 30 3d 71 25  21 31 32 3a 71 25 21 32  |q%!20=q%!12:q%!2|
00000c20  34 3d 71 25 21 31 36 3a  71 25 21 32 38 3d 21 71  |4=q%!16:q%!28=!q|
00000c30  25 3a 71 25 21 33 32 3d  71 25 21 34 3a 71 25 21  |%:q%!32=q%!4:q%!|
00000c40  31 32 3d 30 3a 71 25 21  31 36 3d 31 3a 71 25 21  |12=0:q%!16=1:q%!|
00000c50  33 36 3d 2d 31 3a e7 20  73 70 6e 61 6d 65 24 3d  |36=-1:. spname$=|
00000c60  22 66 69 6c 65 5f 36 39  64 22 20 71 25 21 34 30  |"file_69d" q%!40|
00000c70  3d 26 36 39 64 20 8b 20  71 25 21 34 30 3d 26 36  |=&69d . q%!40=&6|
00000c80  39 30 0d 02 6c 79 24 28  71 25 2b 34 34 29 3d a4  |90..ly$(q%+44)=.|
00000c90  6c 65 61 66 28 a4 67 65  74 69 63 6f 6e 74 65 78  |leaf(.geticontex|
00000ca0  74 28 73 61 76 65 25 2c  31 29 29 2b bd 30 3a 21  |t(save%,1))+.0:!|
00000cb0  71 25 3d 34 34 2b 28 a9  a4 67 65 74 69 63 6f 6e  |q%=44+(..geticon|
00000cc0  74 65 78 74 28 73 61 76  65 25 2c 31 29 2b 34 29  |text(save%,1)+4)|
00000cd0  80 ac 33 3a c8 99 20 22  57 69 6d 70 5f 53 65 6e  |..3:.. "Wimp_Sen|
00000ce0  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 71 25 2c  |dMessage",17,q%,|
00000cf0  71 25 21 32 30 2c 71 25  21 32 34 0d 02 76 05 cd  |q%!20,q%!24..v..|
00000d00  0d 02 80 05 e1 0d 02 8a  11 dd a4 6c 65 61 66 28  |...........leaf(|
00000d10  66 69 6c 65 24 29 0d 02  94 31 c8 95 a7 66 69 6c  |file$)...1...fil|
00000d20  65 24 2c 22 3a 22 29 3e  30 3a 66 69 6c 65 24 3d  |e$,":")>0:file$=|
00000d30  c1 66 69 6c 65 24 2c a7  66 69 6c 65 24 2c 22 3a  |.file$,.file$,":|
00000d40  22 29 2b 31 29 3a ce 0d  02 9e 31 c8 95 a7 66 69  |")+1):....1...fi|
00000d50  6c 65 24 2c 22 2e 22 29  3e 30 3a 66 69 6c 65 24  |le$,".")>0:file$|
00000d60  3d c1 66 69 6c 65 24 2c  a7 66 69 6c 65 24 2c 22  |=.file$,.file$,"|
00000d70  2e 22 29 2b 31 29 3a ce  0d 02 a8 0a 3d 66 69 6c  |.")+1):.....=fil|
00000d80  65 24 0d 02 b2 3e dd a4  76 61 72 28 76 61 72 25  |e$...>..var(var%|
00000d90  29 76 61 72 24 3d 22 22  3a c8 95 3f 76 61 72 25  |)var$="":..?var%|
00000da0  3e 33 31 3a 76 61 72 24  2b 3d bd 3f 76 61 72 25  |>31:var$+=.?var%|
00000db0  3a 76 61 72 25 2b 3d 31  3a ce 3a 3d 76 61 72 24  |:var%+=1:.:=var$|
00000dc0  0d 02 bc 3d dd a4 74 65  78 74 61 64 64 72 28 77  |...=..textaddr(w|
00000dd0  69 6e 64 25 2c 69 63 6f  6e 25 29 f2 67 65 74 69  |ind%,icon%).geti|
00000de0  63 6f 6e 73 74 61 74 65  28 77 69 6e 64 25 2c 69  |constate(wind%,i|
00000df0  63 6f 6e 25 29 3a 3d 71  25 21 32 38 34 0d 02 c6  |con%):=q%!284...|
00000e00  3d dd a4 69 6e 64 72 61  64 64 72 28 77 69 6e 64  |=..indraddr(wind|
00000e10  25 2c 69 63 6f 6e 25 29  f2 67 65 74 69 63 6f 6e  |%,icon%).geticon|
00000e20  73 74 61 74 65 28 77 69  6e 64 25 2c 69 63 6f 6e  |state(wind%,icon|
00000e30  25 29 3a 3d 71 25 21 32  38 38 0d 02 d0 58 dd f2  |%):=q%!288...X..|
00000e40  67 65 74 69 63 6f 6e 73  74 61 74 65 28 77 69 6e  |geticonstate(win|
00000e50  64 25 2c 69 63 6f 6e 25  29 71 25 21 32 35 36 3d  |d%,icon%)q%!256=|
00000e60  77 69 6e 64 25 3a 71 25  21 32 36 30 3d 69 63 6f  |wind%:q%!260=ico|
00000e70  6e 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 49 63  |n%:.."Wimp_GetIc|
00000e80  6f 6e 53 74 61 74 65 22  2c 2c 71 25 2b 32 35 36  |onState",,q%+256|
00000e90  3a e1 0d 02 da 7e dd f2  73 65 74 69 63 6f 6e 73  |:....~..seticons|
00000ea0  74 61 74 65 28 77 69 6e  64 25 2c 69 63 6f 6e 25  |tate(wind%,icon%|
00000eb0  2c 65 6f 72 25 2c 63 6c  65 61 72 25 29 71 25 21  |,eor%,clear%)q%!|
00000ec0  32 35 36 3d 77 69 6e 64  25 3a 71 25 21 32 36 30  |256=wind%:q%!260|
00000ed0  3d 69 63 6f 6e 25 3a 71  25 21 32 36 34 3d 65 6f  |=icon%:q%!264=eo|
00000ee0  72 25 3a 71 25 21 32 36  38 3d 63 6c 65 61 72 25  |r%:q%!268=clear%|
00000ef0  3a c8 99 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |:.."Wimp_SetIcon|
00000f00  53 74 61 74 65 22 2c 2c  71 25 2b 32 35 36 3a e1  |State",,q%+256:.|
00000f10  0d 02 e4 3b dd a4 67 65  74 69 63 6f 6e 74 65 78  |...;..geticontex|
00000f20  74 28 77 69 6e 64 25 2c  69 63 6f 6e 25 29 3d a4  |t(wind%,icon%)=.|
00000f30  76 61 72 28 a4 74 65 78  74 61 64 64 72 28 77 69  |var(.textaddr(wi|
00000f40  6e 64 25 2c 69 63 6f 6e  25 29 29 0d 02 ee 62 dd  |nd%,icon%))...b.|
00000f50  f2 73 65 74 69 63 6f 6e  74 65 78 74 28 77 69 6e  |.seticontext(win|
00000f60  64 25 2c 69 63 6f 6e 25  2c 74 65 78 74 24 29 24  |d%,icon%,text$)$|
00000f70  a4 74 65 78 74 61 64 64  72 28 77 69 6e 64 25 2c  |.textaddr(wind%,|
00000f80  69 63 6f 6e 25 29 3d 74  65 78 74 24 3a f2 73 65  |icon%)=text$:.se|
00000f90  74 69 63 6f 6e 73 74 61  74 65 28 77 69 6e 64 25  |ticonstate(wind%|
00000fa0  2c 69 63 6f 6e 25 2c 30  2c 30 29 3a e1 0d 02 f8  |,icon%,0,0):....|
00000fb0  62 dd f2 73 65 74 69 6e  64 72 74 65 78 74 28 77  |b..setindrtext(w|
00000fc0  69 6e 64 25 2c 69 63 6f  6e 25 2c 74 65 78 74 24  |ind%,icon%,text$|
00000fd0  29 24 a4 69 6e 64 72 61  64 64 72 28 77 69 6e 64  |)$.indraddr(wind|
00000fe0  25 2c 69 63 6f 6e 25 29  3d 74 65 78 74 24 3a f2  |%,icon%)=text$:.|
00000ff0  73 65 74 69 63 6f 6e 73  74 61 74 65 28 77 69 6e  |seticonstate(win|
00001000  64 25 2c 69 63 6f 6e 25  2c 30 2c 30 29 3a e1 0d  |d%,icon%,0,0):..|
00001010  03 02 6b dd f2 6f 70 65  6e 77 69 6e 64 6f 77 28  |..k..openwindow(|
00001020  77 69 6e 64 25 29 71 25  21 32 35 36 3d 77 69 6e  |wind%)q%!256=win|
00001030  64 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |d%:.."Wimp_GetWi|
00001040  6e 64 6f 77 53 74 61 74  65 22 2c 2c 71 25 2b 32  |ndowState",,q%+2|
00001050  35 36 3a 71 25 21 32 38  34 3d 2d 31 3a c8 99 22  |56:q%!284=-1:.."|
00001060  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00001070  2c 2c 71 25 2b 32 35 36  3a e1 0d 03 0c 17 dd 20  |,,q%+256:...... |
00001080  a4 63 72 65 61 74 65 77  69 6e 28 74 65 6d 70 24  |.createwin(temp$|
00001090  29 0d 03 16 6d c8 99 20  22 57 69 6d 70 5f 4c 6f  |)...m.. "Wimp_Lo|
000010a0  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 71 25 2c  |adTemplate",,q%,|
000010b0  69 6e 64 72 25 2c 69 6e  64 72 5f 65 6e 64 25 2c  |indr%,indr_end%,|
000010c0  2d 31 2c 74 65 6d 70 24  2c 30 20 b8 20 2c 2c 69  |-1,temp$,0 . ,,i|
000010d0  6e 64 72 25 3a c8 99 20  22 57 69 6d 70 5f 43 72  |ndr%:.. "Wimp_Cr|
000010e0  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 71 25 20  |eateWindow",,q% |
000010f0  b8 20 77 69 6e 64 25 3a  3d 77 69 6e 64 25 0d 03  |. wind%:=wind%..|
00001100  20 04 0d 03 2a 0f dd f2  6c 6f 61 64 28 69 6e 24  | ...*...load(in$|
00001110  29 0d 03 34 0e e7 20 69  6e 24 3d 22 22 20 e1 0d  |)..4.. in$="" ..|
00001120  03 3e 26 c8 99 20 22 4f  53 5f 46 69 6c 65 22 2c  |.>&.. "OS_File",|
00001130  35 2c 69 6e 24 20 b8 20  69 6e 25 3a e7 69 6e 25  |5,in$ . in%:.in%|
00001140  3c 3e 31 20 e1 0d 03 48  0c 72 64 25 3d 8e 69 6e  |<>1 ...H.rd%=.in|
00001150  24 0d 03 52 3f e7 bd 9a  23 72 64 25 2b bd 9a 23  |$..R?...#rd%+..#|
00001160  72 64 25 3c 3e 22 42 4d  22 20 d9 23 72 64 25 3a  |rd%<>"BM" .#rd%:|
00001170  f2 6f 6b 28 22 54 68 69  73 20 69 73 20 6e 6f 74  |.ok("This is not|
00001180  20 61 20 42 4d 50 20 66  69 6c 65 21 22 29 3a e1  | a BMP file!"):.|
00001190  0d 03 5c 0c cf 23 72 64  25 3d 32 38 0d 03 66 0e  |..\..#rd%=28..f.|
000011a0  c8 8e 20 a4 77 6f 72 64  20 ca 0d 03 70 30 c9 20  |.. .word ...p0. |
000011b0  31 2c 34 2c 38 3a 73 70  6e 61 6d 65 24 3d 22 66  |1,4,8:spname$="f|
000011c0  69 6c 65 5f 66 66 39 22  3a f2 73 61 76 65 62 6f  |ile_ff9":.savebo|
000011d0  78 28 73 70 6e 61 6d 65  24 29 0d 03 7a 2d c9 20  |x(spname$)..z-. |
000011e0  32 34 3a 73 70 6e 61 6d  65 24 3d 22 66 69 6c 65  |24:spname$="file|
000011f0  5f 36 39 30 22 3a f2 73  61 76 65 62 6f 78 28 73  |_690":.savebox(s|
00001200  70 6e 61 6d 65 24 29 0d  03 84 44 7f 3a f2 6f 6b  |pname$)...D.:.ok|
00001210  28 22 49 20 63 61 6e 6e  6f 74 20 68 61 6e 64 6c  |("I cannot handl|
00001220  65 20 74 68 69 73 20 66  69 6c 65 2c 20 69 74 20  |e this file, it |
00001230  68 61 73 20 61 6e 20 69  6c 6c 65 67 61 6c 20 62  |has an illegal b|
00001240  70 70 20 66 69 65 6c 64  2e 22 29 0d 03 8e 05 cb  |pp field.").....|
00001250  0d 03 98 09 d9 23 72 64  25 0d 03 a2 05 e1 0d 03  |.....#rd%.......|
00001260  ac 04 0d 03 b6 11 dd f2  73 61 76 65 28 66 69 6c  |........save(fil|
00001270  65 24 29 0d 03 c0 14 c8  99 22 48 6f 75 72 67 6c  |e$)......"Hourgl|
00001280  61 73 73 5f 4f 6e 22 0d  03 ca 3b 71 25 21 38 3d  |ass_On"...;q%!8=|
00001290  34 3a 71 25 21 31 32 3d  73 61 76 65 25 3a 71 25  |4:q%!12=save%:q%|
000012a0  21 31 36 3d 30 3a c8 99  22 49 6e 74 65 72 66 61  |!16=0:.."Interfa|
000012b0  63 65 5f 53 6c 61 62 42  75 74 74 6f 6e 22 2c 2c  |ce_SlabButton",,|
000012c0  71 25 0d 03 d4 5b e7 a7  66 69 6c 65 24 2c 22 2e  |q%...[..file$,".|
000012d0  22 29 3c 31 80 a7 66 69  6c 65 24 2c 22 3a 22 29  |")<1..file$,":")|
000012e0  3c 31 f2 6f 6b 28 22 54  6f 20 73 61 76 65 2c 20  |<1.ok("To save, |
000012f0  64 72 61 67 20 74 68 65  20 66 69 6c 65 20 69 63  |drag the file ic|
00001300  6f 6e 20 74 6f 20 61 20  64 69 72 65 63 74 6f 72  |on to a director|
00001310  79 20 64 69 73 70 6c 61  79 22 29 3a e1 0d 03 de  |y display"):....|
00001320  0c 72 64 25 3d 8e 69 6e  24 0d 03 e8 19 cf 23 72  |.rd%=.in$.....#r|
00001330  64 25 3d 31 30 3a 69 6d  61 67 65 25 3d a4 77 6f  |d%=10:image%=.wo|
00001340  72 64 0d 03 f2 1e cf 23  72 64 25 3d 31 38 3a 78  |rd.....#rd%=18:x|
00001350  25 3d a4 77 6f 72 64 3a  79 25 3d a4 77 6f 72 64  |%=.word:y%=.word|
00001360  0d 03 fc 17 cf 23 72 64  25 3d 32 38 3a 62 70 70  |.....#rd%=28:bpp|
00001370  25 3d a4 77 6f 72 64 0d  04 06 0c cf 23 72 64 25  |%=.word.....#rd%|
00001380  3d 35 34 0d 04 10 44 73  69 7a 65 25 3d 78 25 2a  |=54...Dsize%=x%*|
00001390  79 25 2a 62 70 70 25 2f  38 3a 72 6f 77 73 69 7a  |y%*bpp%/8:rowsiz|
000013a0  65 25 3d 28 28 78 25 2a  62 70 70 25 2b 33 31 29  |e%=((x%*bpp%+31)|
000013b0  80 ac 33 31 29 81 38 3a  78 73 69 7a 65 25 3d 73  |..31).8:xsize%=s|
000013c0  69 7a 65 25 2f 79 25 0d  04 1a 04 0d 04 24 1d f2  |ize%/y%......$..|
000013d0  73 6c 6f 74 73 69 7a 65  28 32 35 36 2b 32 30 34  |slotsize(256+204|
000013e0  38 2b 73 69 7a 65 25 29  0d 04 2e 98 e7 63 75 72  |8+size%).....cur|
000013f0  72 73 6c 6f 74 25 3c 28  32 35 36 2b 32 30 34 38  |rslot%<(256+2048|
00001400  2b 73 69 7a 65 25 2b 62  61 73 65 73 6c 6f 74 25  |+size%+baseslot%|
00001410  29 d9 23 72 64 25 3a f2  6f 6b 28 22 49 20 63 61  |).#rd%:.ok("I ca|
00001420  6e 6e 6f 74 20 67 72 61  62 20 74 68 65 20 6d 65  |nnot grab the me|
00001430  6d 6f 72 79 20 6e 65 65  64 65 64 20 66 6f 72 20  |mory needed for |
00001440  70 72 6f 63 65 73 73 69  6e 67 20 74 68 69 73 20  |processing this |
00001450  66 69 6c 65 2e 20 50 6c  65 61 73 65 20 66 72 65  |file. Please fre|
00001460  65 20 73 6f 6d 65 20 6d  65 6d 6f 72 79 20 61 6e  |e some memory an|
00001470  64 20 74 72 79 20 61 67  61 69 6e 2e 22 29 3a e1  |d try again."):.|
00001480  0d 04 38 04 0d 04 42 0d  c8 8e 20 62 70 70 25 20  |..8...B... bpp% |
00001490  ca 0d 04 4c 3c c9 20 31  2c 34 2c 38 3a e7 20 62  |...L<. 1,4,8:. b|
000014a0  70 70 25 3d 31 20 6d 6f  64 65 25 3d 32 35 20 8b  |pp%=1 mode%=25 .|
000014b0  20 e7 20 62 70 70 25 3d  34 20 6d 6f 64 65 25 3d  | . bpp%=4 mode%=|
000014c0  32 37 20 8b 20 6d 6f 64  65 25 3d 32 38 0d 04 56  |27 . mode%=28..V|
000014d0  40 21 62 75 66 66 25 3d  32 35 36 2b 32 30 34 38  |@!buff%=256+2048|
000014e0  2b 73 69 7a 65 25 3a 62  75 66 66 25 21 38 3d 31  |+size%:buff%!8=1|
000014f0  36 3a c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |6:.. "OS_SpriteO|
00001500  70 22 2c 26 31 30 39 2c  62 75 66 66 25 0d 04 60  |p",&109,buff%..`|
00001510  3a c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |:.. "OS_SpriteOp|
00001520  22 2c 26 31 30 66 2c 62  75 66 66 25 2c a4 6c 65  |",&10f,buff%,.le|
00001530  61 66 28 66 69 6c 65 24  29 2c 30 2c 78 25 2c 79  |af(file$),0,x%,y|
00001540  25 2c 6d 6f 64 65 25 0d  04 6a 11 70 61 6c 25 3d  |%,mode%..j.pal%=|
00001550  32 5e 62 70 70 25 2a 38  0d 04 74 51 73 70 74 72  |2^bpp%*8..tQsptr|
00001560  25 3d 62 75 66 66 25 2b  62 75 66 66 25 21 38 3a  |%=buff%+buff%!8:|
00001570  21 73 70 74 72 25 2b 3d  70 61 6c 25 3a 73 70 74  |!sptr%+=pal%:spt|
00001580  72 25 21 33 32 2b 3d 70  61 6c 25 3a 73 70 74 72  |r%!32+=pal%:sptr|
00001590  25 21 33 36 2b 3d 70 61  6c 25 3a 62 75 66 66 25  |%!36+=pal%:buff%|
000015a0  21 31 32 2b 3d 70 61 6c  25 0d 04 7e 52 e3 65 6e  |!12+=pal%..~R.en|
000015b0  74 72 79 25 3d 30 b8 32  5e 62 70 70 25 2d 31 3a  |try%=0.2^bpp%-1:|
000015c0  70 25 3d a4 72 77 6f 72  64 3a 21 28 73 70 74 72  |p%=.rword:!(sptr|
000015d0  25 2b 34 34 2b 38 2a 65  6e 74 72 79 25 29 3d 70  |%+44+8*entry%)=p|
000015e0  25 3a 21 28 73 70 74 72  25 2b 34 38 2b 38 2a 65  |%:!(sptr%+48+8*e|
000015f0  6e 74 72 79 25 29 3d 70  25 3a ed 0d 04 88 10 cf  |ntry%)=p%:......|
00001600  23 72 64 25 3d 69 6d 61  67 65 25 0d 04 92 0a 70  |#rd%=image%....p|
00001610  74 72 25 3d 30 0d 04 9c  05 f5 0d 04 a6 45 c8 99  |tr%=0........E..|
00001620  22 4f 53 5f 47 42 50 42  22 2c 34 2c 72 64 25 2c  |"OS_GBPB",4,rd%,|
00001630  62 75 66 66 25 2b 73 70  74 72 25 21 33 32 2b 31  |buff%+sptr%!32+1|
00001640  36 2b 28 79 25 2d 31 29  2a 72 6f 77 73 69 7a 65  |6+(y%-1)*rowsize|
00001650  25 2d 70 74 72 25 2c 72  6f 77 73 69 7a 65 25 0d  |%-ptr%,rowsize%.|
00001660  04 b0 5b 41 25 3d 62 75  66 66 25 2b 73 70 74 72  |..[A%=buff%+sptr|
00001670  25 21 33 32 2b 31 36 2b  28 79 25 2d 31 29 2a 72  |%!32+16+(y%-1)*r|
00001680  6f 77 73 69 7a 65 25 2d  70 74 72 25 3a 42 25 3d  |owsize%-ptr%:B%=|
00001690  41 25 2b 72 6f 77 73 69  7a 65 25 3a e7 62 70 70  |A%+rowsize%:.bpp|
000016a0  25 3d 31 20 d6 73 77 61  70 65 20 8b 20 e7 62 70  |%=1 .swape . .bp|
000016b0  70 25 3d 34 20 d6 73 77  61 70 0d 04 ba 12 70 74  |p%=4 .swap....pt|
000016c0  72 25 2b 3d 72 6f 77 73  69 7a 65 25 0d 04 c4 16  |r%+=rowsize%....|
000016d0  fd 70 74 72 25 3e 3d 79  25 2a 72 6f 77 73 69 7a  |.ptr%>=y%*rowsiz|
000016e0  65 25 0d 04 ce 09 d9 23  72 64 25 0d 04 d8 25 c8  |e%.....#rd%...%.|
000016f0  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00001700  26 31 30 63 2c 62 75 66  66 25 2c 66 69 6c 65 24  |&10c,buff%,file$|
00001710  0d 04 e2 04 0d 04 ec 53  c9 20 32 34 3a 24 62 75  |.......S. 24:$bu|
00001720  66 66 25 3d 22 46 72 6f  6d 42 4d 50 22 3a 62 75  |ff%="FromBMP":bu|
00001730  66 66 25 3f 37 3d 30 3a  62 75 66 66 25 21 38 3d  |ff%?7=0:buff%!8=|
00001740  31 30 30 3a 62 75 66 66  25 21 31 32 3d 78 25 3a  |100:buff%!12=x%:|
00001750  62 75 66 66 25 21 31 36  3d 79 25 3a 62 75 66 66  |buff%!16=y%:buff|
00001760  25 21 32 30 3d 32 34 0d  04 f6 0a 70 74 72 25 3d  |%!20=24....ptr%=|
00001770  30 0d 05 00 05 f5 0d 05  0a 37 c8 99 22 4f 53 5f  |0........7.."OS_|
00001780  47 42 50 42 22 2c 34 2c  72 64 25 2c 62 75 66 66  |GBPB",4,rd%,buff|
00001790  25 2b 32 34 2b 73 69 7a  65 25 2d 78 73 69 7a 65  |%+24+size%-xsize|
000017a0  25 2d 70 74 72 25 2c 78  73 69 7a 65 25 0d 05 14  |%-ptr%,xsize%...|
000017b0  10 70 74 72 25 2b 3d 78  73 69 7a 65 25 0d 05 1e  |.ptr%+=xsize%...|
000017c0  1f cf 23 72 64 25 3d 8f  23 72 64 25 2b 72 6f 77  |..#rd%=.#rd%+row|
000017d0  73 69 7a 65 25 2d 78 73  69 7a 65 25 0d 05 28 10  |size%-xsize%..(.|
000017e0  fd 70 74 72 25 3e 3d 73  69 7a 65 25 0d 05 32 22  |.ptr%>=size%..2"|
000017f0  41 25 3d 62 75 66 66 25  2b 32 34 3a 42 25 3d 41  |A%=buff%+24:B%=A|
00001800  25 2b 73 69 7a 65 25 3a  d6 73 77 61 70 74 0d 05  |%+size%:.swapt..|
00001810  3c 09 d9 23 72 64 25 0d  05 46 34 c8 99 20 22 4f  |<..#rd%..F4.. "O|
00001820  53 5f 46 69 6c 65 22 2c  31 30 2c 66 69 6c 65 24  |S_File",10,file$|
00001830  2c 26 36 39 30 2c 2c 62  75 66 66 25 2c 62 75 66  |,&690,,buff%,buf|
00001840  66 25 2b 32 34 2b 73 69  7a 65 25 0d 05 50 05 cb  |f%+24+size%..P..|
00001850  0d 05 5a 04 0d 05 64 10  f2 73 6c 6f 74 73 69 7a  |..Z...d..slotsiz|
00001860  65 28 30 29 0d 05 6e 1f  f2 73 65 74 69 63 6f 6e  |e(0)..n..seticon|
00001870  74 65 78 74 28 73 61 76  65 25 2c 31 2c 66 69 6c  |text(save%,1,fil|
00001880  65 24 29 0d 05 78 3b 71  25 21 38 3d 30 3a 71 25  |e$)..x;q%!8=0:q%|
00001890  21 31 32 3d 73 61 76 65  25 3a 71 25 21 31 36 3d  |!12=save%:q%!16=|
000018a0  30 3a c8 99 22 49 6e 74  65 72 66 61 63 65 5f 53  |0:.."Interface_S|
000018b0  6c 61 62 42 75 74 74 6f  6e 22 2c 2c 71 25 0d 05  |labButton",,q%..|
000018c0  82 1a c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |...."Wimp_Create|
000018d0  4d 65 6e 75 22 2c 2d 31  0d 05 8c 15 c8 99 22 48  |Menu",-1......"H|
000018e0  6f 75 72 67 6c 61 73 73  5f 4f 66 66 22 0d 05 96  |ourglass_Off"...|
000018f0  05 e1 0d 05 a0 04 0d 05  aa 17 dd f2 73 6c 6f 74  |............slot|
00001900  73 69 7a 65 28 61 6d 6f  75 6e 74 25 29 0d 05 b4  |size(amount%)...|
00001910  3c c8 99 22 57 69 6d 70  5f 53 6c 6f 74 53 69 7a  |<.."Wimp_SlotSiz|
00001920  65 22 2c 61 6d 6f 75 6e  74 25 2b 62 61 73 65 73  |e",amount%+bases|
00001930  6c 6f 74 25 2c 2d 31 b8  63 75 72 72 73 6c 6f 74  |lot%,-1.currslot|
00001940  25 3a 62 75 66 66 25 3d  93 0d 05 be 05 e1 0d 05  |%:buff%=........|
00001950  c8 2e dd a4 77 6f 72 64  3a 3d 9a 23 72 64 25 84  |....word:=.#rd%.|
00001960  9a 23 72 64 25 3c 3c 38  84 9a 23 72 64 25 3c 3c  |.#rd%<<8..#rd%<<|
00001970  31 36 84 9a 23 72 64 25  3c 3c 32 34 0d 05 d2 2f  |16..#rd%<<24.../|
00001980  dd a4 72 77 6f 72 64 3a  3d 9a 23 72 64 25 3c 3c  |..rword:=.#rd%<<|
00001990  32 34 84 9a 23 72 64 25  3c 3c 31 36 84 9a 23 72  |24..#rd%<<16..#r|
000019a0  64 25 3c 3c 38 84 9a 23  72 64 25 0d 05 dc 45 dd  |d%<<8..#rd%...E.|
000019b0  a4 72 6d 76 28 6d 6f 64  65 25 2c 76 61 72 25 29  |.rmv(mode%,var%)|
000019c0  3a c8 99 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |:.."OS_ReadModeV|
000019d0  61 72 69 61 62 6c 65 22  2c 6d 6f 64 65 25 2c 76  |ariable",mode%,v|
000019e0  61 72 25 b8 2c 2c 76 61  72 25 3a 3d 76 61 72 25  |ar%.,,var%:=var%|
000019f0  0d 05 e6 12 dd f2 6f 6b  28 6d 65 73 73 61 67 65  |......ok(message|
00001a00  24 29 0d 05 f0 48 f2 73  6c 6f 74 73 69 7a 65 28  |$)...H.slotsize(|
00001a10  30 29 3a 71 25 21 38 3d  30 3a 71 25 21 31 32 3d  |0):q%!8=0:q%!12=|
00001a20  73 61 76 65 25 3a 71 25  21 31 36 3d 30 3a c8 99  |save%:q%!16=0:..|
00001a30  22 49 6e 74 65 72 66 61  63 65 5f 53 6c 61 62 42  |"Interface_SlabB|
00001a40  75 74 74 6f 6e 22 2c 2c  71 25 0d 05 fa 58 71 25  |utton",,q%...Xq%|
00001a50  21 32 35 36 3d 30 3a 24  28 71 25 2b 32 36 30 29  |!256=0:$(q%+260)|
00001a60  3d 6d 65 73 73 61 67 65  24 2b bd 30 3a c8 99 22  |=message$+.0:.."|
00001a70  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
00001a80  22 2c 71 25 2b 32 35 36  2c 31 37 2c 22 4d 65 73  |",q%+256,17,"Mes|
00001a90  73 61 67 65 20 66 72 6f  6d 20 46 72 6f 6d 42 4d  |sage from FromBM|
00001aa0  50 22 0d 06 04 05 e1 0d  06 0e 0b dd f2 65 72 72  |P"...........err|
00001ab0  6f 72 0d 06 18 48 f2 73  6c 6f 74 73 69 7a 65 28  |or...H.slotsize(|
00001ac0  30 29 3a 71 25 21 38 3d  30 3a 71 25 21 31 32 3d  |0):q%!8=0:q%!12=|
00001ad0  73 61 76 65 25 3a 71 25  21 31 36 3d 30 3a c8 99  |save%:q%!16=0:..|
00001ae0  22 49 6e 74 65 72 66 61  63 65 5f 53 6c 61 62 42  |"Interface_SlabB|
00001af0  75 74 74 6f 6e 22 2c 2c  71 25 0d 06 22 a9 71 25  |utton",,q%..".q%|
00001b00  21 32 35 36 3d 9f 3a 24  28 71 25 2b 32 36 30 29  |!256=.:$(q%+260)|
00001b10  3d f6 24 2b 22 2c 20 49  45 43 20 22 2b c3 9e 2b  |=.$+", IEC "+..+|
00001b20  22 2c 20 63 6c 69 63 6b  20 27 4f 4b 27 20 74 6f  |", click 'OK' to|
00001b30  20 63 6f 6e 74 69 6e 75  65 20 6f 72 20 27 43 61  | continue or 'Ca|
00001b40  6e 63 65 6c 27 20 74 6f  20 71 75 69 74 2e 22 2b  |ncel' to quit."+|
00001b50  bd 30 3a c8 99 22 57 69  6d 70 5f 52 65 70 6f 72  |.0:.."Wimp_Repor|
00001b60  74 45 72 72 6f 72 22 2c  71 25 2b 32 35 36 2c 33  |tError",q%+256,3|
00001b70  2c 22 46 72 6f 6d 42 4d  50 22 b8 2c 62 74 6e 73  |,"FromBMP".,btns|
00001b80  25 3a e7 62 74 6e 73 25  3d 32 20 66 69 6e 69 73  |%:.btns%=2 finis|
00001b90  68 65 64 25 3d b9 20 8b  20 66 69 6e 73 68 65 64  |hed%=. . finshed|
00001ba0  25 3d a3 0d 06 2c 05 e1  0d ff                    |%=...,....|
00001baa