Home » Archimedes archive » Micro User » MU 1992-03.adf » PD » USEFUL/!Grab/!RunImage

USEFUL/!Grab/!RunImage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Micro User » MU 1992-03.adf » PD
Filename: USEFUL/!Grab/!RunImage
Read OK:
File size: 0BAB bytes
Load address: 0000
Exec address: 0000
File contents
   10REM ><Grab$Dir>.!RunImage
   20REM Grab version 1.10 10th August 1991
   30REM by Dave Thomas 1991
   40:
   50DIM window% 640,icon% 480,block% 256,menu% 240,errblk% 64,task% 4
   60iconbar%=-2
   70rambut%=FALSE
   80rombut%=FALSE
   90$task%="TASK"
  100SYS "Wimp_Initialise",200,!task%,"Sprite Grabber" TO ,taskh%
  110PROCinit
  120ONERROR PROCerror
  130:
  140REPEAT
  150SYS "Wimp_Poll",,block% TO reason%
  160CASE reason% OF
  170WHEN 1:PROCredraw
  180WHEN 2:SYS "Wimp_OpenWindow",,block%
  190WHEN 3:IF block%!0=info% menu%!28=0
  200       SYS "Wimp_CloseWindow",,block%
  210WHEN 6:PROCmouse
  220WHEN 8:PROCkey
  230WHEN 9:PROChandlemenu
  240WHEN 17,18:PROCmessage
  250ENDCASE
  260UNTIL FALSE
  270:
  280DEF PROCmouse
  290CASE block%!12 OF
  300WHEN iconbar%:
  310CASE block%!16 OF
  320WHEN iconhand%:
  330CASE block%!8 OF
  340WHEN 4:
  350!block%=savebox%
  360SYS "Wimp_GetWindowState",,block%
  370block%!28=-1
  380SYS "Wimp_OpenWindow",,block%
  390WHEN 2:PROCmenu(0)
  400ENDCASE
  410ENDCASE
  420WHEN savebox%:
  430CASE block%!8 OF
  440WHEN 2:
  450PROCmenu(1)
  460ENDCASE
  470CASE block%!16 OF
  480WHEN 4:
  490CASE block%!8 OF
  500WHEN 4,1:
  510PROCsave
  520ENDCASE
  530ENDCASE
  540ENDCASE
  550ENDPROC
  560:
  570DEF PROCmenu(type%)
  580mousex%=block%!0
  590mousey%=block%!4
  600CASE type% OF
  610WHEN 0:
  620SYS "Wimp_CreateMenu",,menu%,mousex%-menu%!16/2-24,184
  630WHEN 1:
  640SYS "Wimp_CreateMenu",,menu%,mousex%-menu%!16/2-24,mousey%
  650ENDCASE
  660ENDPROC
  670:
  680DEFPROCkey
  690IF !block%=savebox% THEN
  700   IF block%!24=13 THEN PROCsave
  710ELSE
  720   SYS "Wimp_ProcessKey",,block%!24
  730ENDIF
  740ENDPROC
  750:
  760DEF PROChandlemenu
  770CASE block%!0 OF
  780WHEN 0:!block%=info%
  790       SYS "Wimp_GetWindowState",,block%
  800       block%!28=-1
  810       SYS "Wimp_OpenWindow",,block%
  820       menu%!28=1
  830WHEN 1:SYS "Wimp_CloseDown":END
  840ENDCASE
  850ENDPROC
  860:
  870DEF PROCredraw
  880SYS "Wimp_RedrawWindow",,block% TO more%
  890WHILE more%
  900SYS "Wimp_BorderWindow",,block%
  910SYS "Wimp_GetRectangle",,block% TO more%
  920ENDWHILE
  930ENDPROC
  940:
  950DEF PROCmessage
  960IF block%!4=taskh% ENDPROC
  970CASE block%!16 OF
  980WHEN 0:
  990       SYS "Wimp_CloseDown":END
 1000ENDCASE
 1010ENDPROC
 1020:
 1030DEF PROCsave
 1040block%!0=savebox%
 1050block%!4=1
 1060SYS "Wimp_GetIconState",,block%
 1070flags%=block%!24
 1080block%!4=3
 1090SYS "Wimp_GetIconState",,block%
 1100name%=block%!28
 1110name$=$name%
 1120IF flags%=&1721B113 THEN rombut%=TRUE ELSE rambut%=TRUE
 1130SYS "Wimp_BaseOfSprites" TO rombase%,rambase%
 1140IF rombut% THEN
 1150SYS "XOS_SpriteOp",268,rombase%,name$ TO ;ok%
 1160ENDIF
 1170IF rambut% THEN
 1180SYS "XOS_SpriteOp",268,rambase%,name$ TO ;ok%
 1190ENDIF
 1200ENDPROC
 1210:
 1220DEF PROCerror
 1230!errblk%=ERR:$(errblk%+4)=REPORT$+" at line "+STR$(ERL)+CHR$(0)
 1240SYS "Wimp_ReportError",errblk%,3,"Grab" TO errbuts%
 1250IF errbuts%=2 SYS "Wimp_CloseDown":END
 1260ENDPROC
 1270:
 1280DEF PROCinit
 1290!block%=-1
 1300block%!4=0
 1310block%!8=0
 1320block%!12=68
 1330block%!16=68
 1340block%!20=&3002
 1350$(block%+24)="!Grab"
 1360SYS "Wimp_CreateIcon",,block% TO iconhand%
 1370REM ---------------------------------
 1380SYS "Wimp_OpenTemplate",,"<Grab$Dir>.Templates"
 1390SYS "Wimp_LoadTemplate",,window%,icon%,icon%+228,-1,"info",0
 1400SYS "Wimp_CreateWindow",,window% TO info%
 1410SYS "Wimp_LoadTemplate",,window%,icon%+232,icon%+480,-1,"saverbox",0
 1420SYS "Wimp_CreateWindow",,window% TO savebox%
 1430SYS "Wimp_CloseTemplate"
 1440REM ---------------------------------
 1450OSCLI("Load <Grab$Dir>.Menus "+STR$~menu%)
 1460menu%!32=info%
 1470ENDPROC

� ><Grab$Dir>.!RunImage
(� Grab version 1.10 10th August 1991
� by Dave Thomas 1991
(:
2C� window% 640,icon% 480,block% 256,menu% 240,errblk% 64,task% 4
<iconbar%=-2
F
rambut%=�
P
rombut%=�
Z$task%="TASK"
d>ș "Wimp_Initialise",200,!task%,"Sprite Grabber" � ,taskh%
n	�init
x
� �error
�:
��
�$ș "Wimp_Poll",,block% � reason%
�Ȏ reason% �
�� 1:�redraw
�$� 2:ș "Wimp_OpenWindow",,block%
�#� 3:� block%!0=info% menu%!28=0
�(       ș "Wimp_CloseWindow",,block%
�� 6:�mouse
�� 8:�key
�� 9:�handlemenu
�� 17,18:�message
��
� �
:
� �mouse
"Ȏ block%!12 �
,� iconbar%:
6Ȏ block%!16 �
@� iconhand%:
JȎ block%!8 �
T� 4:
^!block%=savebox%
h$ș "Wimp_GetWindowState",,block%
rblock%!28=-1
| ș "Wimp_OpenWindow",,block%
�� 2:�menu(0)
��
��
�� savebox%:
�Ȏ block%!8 �
�� 2:
��menu(1)
��
�Ȏ block%!16 �
�� 4:
�Ȏ block%!8 �
�
� 4,1:
�	�save
�
�
�
&�
0:
:� �menu(type%)
Dmousex%=block%!0
Nmousey%=block%!4
XȎ type% �
b� 0:
l9ș "Wimp_CreateMenu",,menu%,mousex%-menu%!16/2-24,184
v� 1:
�=ș "Wimp_CreateMenu",,menu%,mousex%-menu%!16/2-24,mousey%
��
��
�:
�	��key
�� !block%=savebox% �
�   � block%!24=13 � �save
��
�&   ș "Wimp_ProcessKey",,block%!24
��
��
�:
�� �handlemenu
Ȏ block%!0 �
� 0:!block%=info%
+       ș "Wimp_GetWindowState",,block%
        block%!28=-1
*'       ș "Wimp_OpenWindow",,block%
4       menu%!28=1
>� 1:ș "Wimp_CloseDown":�
H�
R�
\:
f
� �redraw
p*ș "Wimp_RedrawWindow",,block% � more%
zȕ more%
�"ș "Wimp_BorderWindow",,block%
�*ș "Wimp_GetRectangle",,block% � more%
��
��
�:
�� �message
�� block%!4=taskh% �
�Ȏ block%!16 �
�� 0:
�        ș "Wimp_CloseDown":�
��
��
�:
� �save
block%!0=savebox%
block%!4=1
$"ș "Wimp_GetIconState",,block%
.flags%=block%!24
8block%!4=3
B"ș "Wimp_GetIconState",,block%
Lname%=block%!28
Vname$=$name%
`.� flags%=&1721B113 � rombut%=� � rambut%=�
j/ș "Wimp_BaseOfSprites" � rombase%,rambase%
t� rombut% �
~/ș "XOS_SpriteOp",268,rombase%,name$ � ;ok%
��
�� rambut% �
�/ș "XOS_SpriteOp",268,rambase%,name$ � ;ok%
��
��
�:
�� �error
�4!errblk%=�:$(errblk%+4)=�$+" at line "+�(�)+�(0)
�5ș "Wimp_ReportError",errblk%,3,"Grab" � errbuts%
�&� errbuts%=2 ș "Wimp_CloseDown":�
��
�:
� �init

!block%=-1
block%!4=0
block%!8=0
(block%!12=68
2block%!16=68
<block%!20=&3002
F$(block%+24)="!Grab"
P,ș "Wimp_CreateIcon",,block% � iconhand%
Z'� ---------------------------------
d2ș "Wimp_OpenTemplate",,"<Grab$Dir>.Templates"
n?ș "Wimp_LoadTemplate",,window%,icon%,icon%+228,-1,"info",0
x+ș "Wimp_CreateWindow",,window% � info%
�Gș "Wimp_LoadTemplate",,window%,icon%+232,icon%+480,-1,"saverbox",0
�.ș "Wimp_CreateWindow",,window% � savebox%
�ș "Wimp_CloseTemplate"
�'� ---------------------------------
�'�("Load <Grab$Dir>.Menus "+�~menu%)
�menu%!32=info%
��
�
00000000  0d 00 0a 1b f4 20 3e 3c  47 72 61 62 24 44 69 72  |..... ><Grab$Dir|
00000010  3e 2e 21 52 75 6e 49 6d  61 67 65 0d 00 14 28 f4  |>.!RunImage...(.|
00000020  20 47 72 61 62 20 76 65  72 73 69 6f 6e 20 31 2e  | Grab version 1.|
00000030  31 30 20 31 30 74 68 20  41 75 67 75 73 74 20 31  |10 10th August 1|
00000040  39 39 31 0d 00 1e 19 f4  20 62 79 20 44 61 76 65  |991..... by Dave|
00000050  20 54 68 6f 6d 61 73 20  31 39 39 31 0d 00 28 05  | Thomas 1991..(.|
00000060  3a 0d 00 32 43 de 20 77  69 6e 64 6f 77 25 20 36  |:..2C. window% 6|
00000070  34 30 2c 69 63 6f 6e 25  20 34 38 30 2c 62 6c 6f  |40,icon% 480,blo|
00000080  63 6b 25 20 32 35 36 2c  6d 65 6e 75 25 20 32 34  |ck% 256,menu% 24|
00000090  30 2c 65 72 72 62 6c 6b  25 20 36 34 2c 74 61 73  |0,errblk% 64,tas|
000000a0  6b 25 20 34 0d 00 3c 0f  69 63 6f 6e 62 61 72 25  |k% 4..<.iconbar%|
000000b0  3d 2d 32 0d 00 46 0d 72  61 6d 62 75 74 25 3d a3  |=-2..F.rambut%=.|
000000c0  0d 00 50 0d 72 6f 6d 62  75 74 25 3d a3 0d 00 5a  |..P.rombut%=...Z|
000000d0  11 24 74 61 73 6b 25 3d  22 54 41 53 4b 22 0d 00  |.$task%="TASK"..|
000000e0  64 3e c8 99 20 22 57 69  6d 70 5f 49 6e 69 74 69  |d>.. "Wimp_Initi|
000000f0  61 6c 69 73 65 22 2c 32  30 30 2c 21 74 61 73 6b  |alise",200,!task|
00000100  25 2c 22 53 70 72 69 74  65 20 47 72 61 62 62 65  |%,"Sprite Grabbe|
00000110  72 22 20 b8 20 2c 74 61  73 6b 68 25 0d 00 6e 09  |r" . ,taskh%..n.|
00000120  f2 69 6e 69 74 0d 00 78  0d ee 85 20 f2 65 72 72  |.init..x... .err|
00000130  6f 72 0d 00 82 05 3a 0d  00 8c 05 f5 0d 00 96 24  |or....:........$|
00000140  c8 99 20 22 57 69 6d 70  5f 50 6f 6c 6c 22 2c 2c  |.. "Wimp_Poll",,|
00000150  62 6c 6f 63 6b 25 20 b8  20 72 65 61 73 6f 6e 25  |block% . reason%|
00000160  0d 00 a0 10 c8 8e 20 72  65 61 73 6f 6e 25 20 ca  |...... reason% .|
00000170  0d 00 aa 0f c9 20 31 3a  f2 72 65 64 72 61 77 0d  |..... 1:.redraw.|
00000180  00 b4 24 c9 20 32 3a c8  99 20 22 57 69 6d 70 5f  |..$. 2:.. "Wimp_|
00000190  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |OpenWindow",,blo|
000001a0  63 6b 25 0d 00 be 23 c9  20 33 3a e7 20 62 6c 6f  |ck%...#. 3:. blo|
000001b0  63 6b 25 21 30 3d 69 6e  66 6f 25 20 6d 65 6e 75  |ck%!0=info% menu|
000001c0  25 21 32 38 3d 30 0d 00  c8 28 20 20 20 20 20 20  |%!28=0...(      |
000001d0  20 c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 57  | .. "Wimp_CloseW|
000001e0  69 6e 64 6f 77 22 2c 2c  62 6c 6f 63 6b 25 0d 00  |indow",,block%..|
000001f0  d2 0e c9 20 36 3a f2 6d  6f 75 73 65 0d 00 dc 0c  |... 6:.mouse....|
00000200  c9 20 38 3a f2 6b 65 79  0d 00 e6 13 c9 20 39 3a  |. 8:.key..... 9:|
00000210  f2 68 61 6e 64 6c 65 6d  65 6e 75 0d 00 f0 14 c9  |.handlemenu.....|
00000220  20 31 37 2c 31 38 3a f2  6d 65 73 73 61 67 65 0d  | 17,18:.message.|
00000230  00 fa 05 cb 0d 01 04 07  fd 20 a3 0d 01 0e 05 3a  |......... .....:|
00000240  0d 01 18 0c dd 20 f2 6d  6f 75 73 65 0d 01 22 12  |..... .mouse..".|
00000250  c8 8e 20 62 6c 6f 63 6b  25 21 31 32 20 ca 0d 01  |.. block%!12 ...|
00000260  2c 0f c9 20 69 63 6f 6e  62 61 72 25 3a 0d 01 36  |,.. iconbar%:..6|
00000270  12 c8 8e 20 62 6c 6f 63  6b 25 21 31 36 20 ca 0d  |... block%!16 ..|
00000280  01 40 10 c9 20 69 63 6f  6e 68 61 6e 64 25 3a 0d  |.@.. iconhand%:.|
00000290  01 4a 11 c8 8e 20 62 6c  6f 63 6b 25 21 38 20 ca  |.J... block%!8 .|
000002a0  0d 01 54 08 c9 20 34 3a  0d 01 5e 14 21 62 6c 6f  |..T.. 4:..^.!blo|
000002b0  63 6b 25 3d 73 61 76 65  62 6f 78 25 0d 01 68 24  |ck%=savebox%..h$|
000002c0  c8 99 20 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.. "Wimp_GetWind|
000002d0  6f 77 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |owState",,block%|
000002e0  0d 01 72 10 62 6c 6f 63  6b 25 21 32 38 3d 2d 31  |..r.block%!28=-1|
000002f0  0d 01 7c 20 c8 99 20 22  57 69 6d 70 5f 4f 70 65  |..| .. "Wimp_Ope|
00000300  6e 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |nWindow",,block%|
00000310  0d 01 86 10 c9 20 32 3a  f2 6d 65 6e 75 28 30 29  |..... 2:.menu(0)|
00000320  0d 01 90 05 cb 0d 01 9a  05 cb 0d 01 a4 0f c9 20  |............... |
00000330  73 61 76 65 62 6f 78 25  3a 0d 01 ae 11 c8 8e 20  |savebox%:...... |
00000340  62 6c 6f 63 6b 25 21 38  20 ca 0d 01 b8 08 c9 20  |block%!8 ...... |
00000350  32 3a 0d 01 c2 0c f2 6d  65 6e 75 28 31 29 0d 01  |2:.....menu(1)..|
00000360  cc 05 cb 0d 01 d6 12 c8  8e 20 62 6c 6f 63 6b 25  |......... block%|
00000370  21 31 36 20 ca 0d 01 e0  08 c9 20 34 3a 0d 01 ea  |!16 ...... 4:...|
00000380  11 c8 8e 20 62 6c 6f 63  6b 25 21 38 20 ca 0d 01  |... block%!8 ...|
00000390  f4 0a c9 20 34 2c 31 3a  0d 01 fe 09 f2 73 61 76  |... 4,1:.....sav|
000003a0  65 0d 02 08 05 cb 0d 02  12 05 cb 0d 02 1c 05 cb  |e...............|
000003b0  0d 02 26 05 e1 0d 02 30  05 3a 0d 02 3a 12 dd 20  |..&....0.:..:.. |
000003c0  f2 6d 65 6e 75 28 74 79  70 65 25 29 0d 02 44 14  |.menu(type%)..D.|
000003d0  6d 6f 75 73 65 78 25 3d  62 6c 6f 63 6b 25 21 30  |mousex%=block%!0|
000003e0  0d 02 4e 14 6d 6f 75 73  65 79 25 3d 62 6c 6f 63  |..N.mousey%=bloc|
000003f0  6b 25 21 34 0d 02 58 0e  c8 8e 20 74 79 70 65 25  |k%!4..X... type%|
00000400  20 ca 0d 02 62 08 c9 20  30 3a 0d 02 6c 39 c8 99  | ...b.. 0:..l9..|
00000410  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
00000420  75 22 2c 2c 6d 65 6e 75  25 2c 6d 6f 75 73 65 78  |u",,menu%,mousex|
00000430  25 2d 6d 65 6e 75 25 21  31 36 2f 32 2d 32 34 2c  |%-menu%!16/2-24,|
00000440  31 38 34 0d 02 76 08 c9  20 31 3a 0d 02 80 3d c8  |184..v.. 1:...=.|
00000450  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00000460  6e 75 22 2c 2c 6d 65 6e  75 25 2c 6d 6f 75 73 65  |nu",,menu%,mouse|
00000470  78 25 2d 6d 65 6e 75 25  21 31 36 2f 32 2d 32 34  |x%-menu%!16/2-24|
00000480  2c 6d 6f 75 73 65 79 25  0d 02 8a 05 cb 0d 02 94  |,mousey%........|
00000490  05 e1 0d 02 9e 05 3a 0d  02 a8 09 dd f2 6b 65 79  |......:......key|
000004a0  0d 02 b2 18 e7 20 21 62  6c 6f 63 6b 25 3d 73 61  |..... !block%=sa|
000004b0  76 65 62 6f 78 25 20 8c  0d 02 bc 1d 20 20 20 e7  |vebox% .....   .|
000004c0  20 62 6c 6f 63 6b 25 21  32 34 3d 31 33 20 8c 20  | block%!24=13 . |
000004d0  f2 73 61 76 65 0d 02 c6  05 cc 0d 02 d0 26 20 20  |.save........&  |
000004e0  20 c8 99 20 22 57 69 6d  70 5f 50 72 6f 63 65 73  | .. "Wimp_Proces|
000004f0  73 4b 65 79 22 2c 2c 62  6c 6f 63 6b 25 21 32 34  |sKey",,block%!24|
00000500  0d 02 da 05 cd 0d 02 e4  05 e1 0d 02 ee 05 3a 0d  |..............:.|
00000510  02 f8 11 dd 20 f2 68 61  6e 64 6c 65 6d 65 6e 75  |.... .handlemenu|
00000520  0d 03 02 11 c8 8e 20 62  6c 6f 63 6b 25 21 30 20  |...... block%!0 |
00000530  ca 0d 03 0c 15 c9 20 30  3a 21 62 6c 6f 63 6b 25  |...... 0:!block%|
00000540  3d 69 6e 66 6f 25 0d 03  16 2b 20 20 20 20 20 20  |=info%...+      |
00000550  20 c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  | .. "Wimp_GetWin|
00000560  64 6f 77 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |dowState",,block|
00000570  25 0d 03 20 17 20 20 20  20 20 20 20 62 6c 6f 63  |%.. .       bloc|
00000580  6b 25 21 32 38 3d 2d 31  0d 03 2a 27 20 20 20 20  |k%!28=-1..*'    |
00000590  20 20 20 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |   .. "Wimp_Open|
000005a0  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 25 0d  |Window",,block%.|
000005b0  03 34 15 20 20 20 20 20  20 20 6d 65 6e 75 25 21  |.4.       menu%!|
000005c0  32 38 3d 31 0d 03 3e 1d  c9 20 31 3a c8 99 20 22  |28=1..>.. 1:.. "|
000005d0  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 3a  |Wimp_CloseDown":|
000005e0  e0 0d 03 48 05 cb 0d 03  52 05 e1 0d 03 5c 05 3a  |...H....R....\.:|
000005f0  0d 03 66 0d dd 20 f2 72  65 64 72 61 77 0d 03 70  |..f.. .redraw..p|
00000600  2a c8 99 20 22 57 69 6d  70 5f 52 65 64 72 61 77  |*.. "Wimp_Redraw|
00000610  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 25 20  |Window",,block% |
00000620  b8 20 6d 6f 72 65 25 0d  03 7a 0c c8 95 20 6d 6f  |. more%..z... mo|
00000630  72 65 25 0d 03 84 22 c8  99 20 22 57 69 6d 70 5f  |re%...".. "Wimp_|
00000640  42 6f 72 64 65 72 57 69  6e 64 6f 77 22 2c 2c 62  |BorderWindow",,b|
00000650  6c 6f 63 6b 25 0d 03 8e  2a c8 99 20 22 57 69 6d  |lock%...*.. "Wim|
00000660  70 5f 47 65 74 52 65 63  74 61 6e 67 6c 65 22 2c  |p_GetRectangle",|
00000670  2c 62 6c 6f 63 6b 25 20  b8 20 6d 6f 72 65 25 0d  |,block% . more%.|
00000680  03 98 05 ce 0d 03 a2 05  e1 0d 03 ac 05 3a 0d 03  |.............:..|
00000690  b6 0e dd 20 f2 6d 65 73  73 61 67 65 0d 03 c0 17  |... .message....|
000006a0  e7 20 62 6c 6f 63 6b 25  21 34 3d 74 61 73 6b 68  |. block%!4=taskh|
000006b0  25 20 e1 0d 03 ca 12 c8  8e 20 62 6c 6f 63 6b 25  |% ....... block%|
000006c0  21 31 36 20 ca 0d 03 d4  08 c9 20 30 3a 0d 03 de  |!16 ...... 0:...|
000006d0  20 20 20 20 20 20 20 20  c8 99 20 22 57 69 6d 70  |        .. "Wimp|
000006e0  5f 43 6c 6f 73 65 44 6f  77 6e 22 3a e0 0d 03 e8  |_CloseDown":....|
000006f0  05 cb 0d 03 f2 05 e1 0d  03 fc 05 3a 0d 04 06 0b  |...........:....|
00000700  dd 20 f2 73 61 76 65 0d  04 10 15 62 6c 6f 63 6b  |. .save....block|
00000710  25 21 30 3d 73 61 76 65  62 6f 78 25 0d 04 1a 0e  |%!0=savebox%....|
00000720  62 6c 6f 63 6b 25 21 34  3d 31 0d 04 24 22 c8 99  |block%!4=1..$"..|
00000730  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
00000740  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 04 2e 14  |ate",,block%....|
00000750  66 6c 61 67 73 25 3d 62  6c 6f 63 6b 25 21 32 34  |flags%=block%!24|
00000760  0d 04 38 0e 62 6c 6f 63  6b 25 21 34 3d 33 0d 04  |..8.block%!4=3..|
00000770  42 22 c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |B".. "Wimp_GetIc|
00000780  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |onState",,block%|
00000790  0d 04 4c 13 6e 61 6d 65  25 3d 62 6c 6f 63 6b 25  |..L.name%=block%|
000007a0  21 32 38 0d 04 56 10 6e  61 6d 65 24 3d 24 6e 61  |!28..V.name$=$na|
000007b0  6d 65 25 0d 04 60 2e e7  20 66 6c 61 67 73 25 3d  |me%..`.. flags%=|
000007c0  26 31 37 32 31 42 31 31  33 20 8c 20 72 6f 6d 62  |&1721B113 . romb|
000007d0  75 74 25 3d b9 20 8b 20  72 61 6d 62 75 74 25 3d  |ut%=. . rambut%=|
000007e0  b9 0d 04 6a 2f c8 99 20  22 57 69 6d 70 5f 42 61  |...j/.. "Wimp_Ba|
000007f0  73 65 4f 66 53 70 72 69  74 65 73 22 20 b8 20 72  |seOfSprites" . r|
00000800  6f 6d 62 61 73 65 25 2c  72 61 6d 62 61 73 65 25  |ombase%,rambase%|
00000810  0d 04 74 0f e7 20 72 6f  6d 62 75 74 25 20 8c 0d  |..t.. rombut% ..|
00000820  04 7e 2f c8 99 20 22 58  4f 53 5f 53 70 72 69 74  |.~/.. "XOS_Sprit|
00000830  65 4f 70 22 2c 32 36 38  2c 72 6f 6d 62 61 73 65  |eOp",268,rombase|
00000840  25 2c 6e 61 6d 65 24 20  b8 20 3b 6f 6b 25 0d 04  |%,name$ . ;ok%..|
00000850  88 05 cd 0d 04 92 0f e7  20 72 61 6d 62 75 74 25  |........ rambut%|
00000860  20 8c 0d 04 9c 2f c8 99  20 22 58 4f 53 5f 53 70  | ..../.. "XOS_Sp|
00000870  72 69 74 65 4f 70 22 2c  32 36 38 2c 72 61 6d 62  |riteOp",268,ramb|
00000880  61 73 65 25 2c 6e 61 6d  65 24 20 b8 20 3b 6f 6b  |ase%,name$ . ;ok|
00000890  25 0d 04 a6 05 cd 0d 04  b0 05 e1 0d 04 ba 05 3a  |%..............:|
000008a0  0d 04 c4 0c dd 20 f2 65  72 72 6f 72 0d 04 ce 34  |..... .error...4|
000008b0  21 65 72 72 62 6c 6b 25  3d 9f 3a 24 28 65 72 72  |!errblk%=.:$(err|
000008c0  62 6c 6b 25 2b 34 29 3d  f6 24 2b 22 20 61 74 20  |blk%+4)=.$+" at |
000008d0  6c 69 6e 65 20 22 2b c3  28 9e 29 2b bd 28 30 29  |line "+.(.)+.(0)|
000008e0  0d 04 d8 35 c8 99 20 22  57 69 6d 70 5f 52 65 70  |...5.. "Wimp_Rep|
000008f0  6f 72 74 45 72 72 6f 72  22 2c 65 72 72 62 6c 6b  |ortError",errblk|
00000900  25 2c 33 2c 22 47 72 61  62 22 20 b8 20 65 72 72  |%,3,"Grab" . err|
00000910  62 75 74 73 25 0d 04 e2  26 e7 20 65 72 72 62 75  |buts%...&. errbu|
00000920  74 73 25 3d 32 20 c8 99  20 22 57 69 6d 70 5f 43  |ts%=2 .. "Wimp_C|
00000930  6c 6f 73 65 44 6f 77 6e  22 3a e0 0d 04 ec 05 e1  |loseDown":......|
00000940  0d 04 f6 05 3a 0d 05 00  0b dd 20 f2 69 6e 69 74  |....:..... .init|
00000950  0d 05 0a 0e 21 62 6c 6f  63 6b 25 3d 2d 31 0d 05  |....!block%=-1..|
00000960  14 0e 62 6c 6f 63 6b 25  21 34 3d 30 0d 05 1e 0e  |..block%!4=0....|
00000970  62 6c 6f 63 6b 25 21 38  3d 30 0d 05 28 10 62 6c  |block%!8=0..(.bl|
00000980  6f 63 6b 25 21 31 32 3d  36 38 0d 05 32 10 62 6c  |ock%!12=68..2.bl|
00000990  6f 63 6b 25 21 31 36 3d  36 38 0d 05 3c 13 62 6c  |ock%!16=68..<.bl|
000009a0  6f 63 6b 25 21 32 30 3d  26 33 30 30 32 0d 05 46  |ock%!20=&3002..F|
000009b0  18 24 28 62 6c 6f 63 6b  25 2b 32 34 29 3d 22 21  |.$(block%+24)="!|
000009c0  47 72 61 62 22 0d 05 50  2c c8 99 20 22 57 69 6d  |Grab"..P,.. "Wim|
000009d0  70 5f 43 72 65 61 74 65  49 63 6f 6e 22 2c 2c 62  |p_CreateIcon",,b|
000009e0  6c 6f 63 6b 25 20 b8 20  69 63 6f 6e 68 61 6e 64  |lock% . iconhand|
000009f0  25 0d 05 5a 27 f4 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |%..Z'. ---------|
00000a00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000a10  2d 2d 2d 2d 2d 2d 2d 2d  0d 05 64 32 c8 99 20 22  |--------..d2.. "|
00000a20  57 69 6d 70 5f 4f 70 65  6e 54 65 6d 70 6c 61 74  |Wimp_OpenTemplat|
00000a30  65 22 2c 2c 22 3c 47 72  61 62 24 44 69 72 3e 2e  |e",,"<Grab$Dir>.|
00000a40  54 65 6d 70 6c 61 74 65  73 22 0d 05 6e 3f c8 99  |Templates"..n?..|
00000a50  20 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  | "Wimp_LoadTempl|
00000a60  61 74 65 22 2c 2c 77 69  6e 64 6f 77 25 2c 69 63  |ate",,window%,ic|
00000a70  6f 6e 25 2c 69 63 6f 6e  25 2b 32 32 38 2c 2d 31  |on%,icon%+228,-1|
00000a80  2c 22 69 6e 66 6f 22 2c  30 0d 05 78 2b c8 99 20  |,"info",0..x+.. |
00000a90  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00000aa0  6f 77 22 2c 2c 77 69 6e  64 6f 77 25 20 b8 20 69  |ow",,window% . i|
00000ab0  6e 66 6f 25 0d 05 82 47  c8 99 20 22 57 69 6d 70  |nfo%...G.. "Wimp|
00000ac0  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
00000ad0  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 2b 32 33  |window%,icon%+23|
00000ae0  32 2c 69 63 6f 6e 25 2b  34 38 30 2c 2d 31 2c 22  |2,icon%+480,-1,"|
00000af0  73 61 76 65 72 62 6f 78  22 2c 30 0d 05 8c 2e c8  |saverbox",0.....|
00000b00  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00000b10  6e 64 6f 77 22 2c 2c 77  69 6e 64 6f 77 25 20 b8  |ndow",,window% .|
00000b20  20 73 61 76 65 62 6f 78  25 0d 05 96 1b c8 99 20  | savebox%...... |
00000b30  22 57 69 6d 70 5f 43 6c  6f 73 65 54 65 6d 70 6c  |"Wimp_CloseTempl|
00000b40  61 74 65 22 0d 05 a0 27  f4 20 2d 2d 2d 2d 2d 2d  |ate"...'. ------|
00000b50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000b60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 05 aa 27 ff  |-----------...'.|
00000b70  28 22 4c 6f 61 64 20 3c  47 72 61 62 24 44 69 72  |("Load <Grab$Dir|
00000b80  3e 2e 4d 65 6e 75 73 20  22 2b c3 7e 6d 65 6e 75  |>.Menus "+.~menu|
00000b90  25 29 0d 05 b4 12 6d 65  6e 75 25 21 33 32 3d 69  |%)....menu%!32=i|
00000ba0  6e 66 6f 25 0d 05 be 05  e1 0d ff                 |nfo%.......|
00000bab