!Demo/!RunImage

Home » Archimedes archive » Acorn User » AU 1994-08.adf » !WimpTools_WimpTools » !Demo/!RunImage

!Demo/!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 » Acorn User » AU 1994-08.adf » !WimpTools_WimpTools
Filename:	!Demo/!RunImage
Read OK:	✔
File size:	1B9D bytes
Load address:	0000
Exec address:	0000

File contents

   10REM ><BasicSave$Dir>.!RunImage
   20REM (c) Matt Lewis 1993
   30:
   40ON ERROR ERROR EXT ERR,REPORT$+" at line "+STR$ERL
   50:
   60SYS "OS_GetEnv" TO command$,himem%
   70:
   80DIM messages% &400,mtab% 16,buffer% &100
   90PROCload_messages("<Obey$Dir>.Messages")
  100:
  110App$=FNmsg0("TASK")
  120Purpose$=FNmsg0("PURPOSE")
  130Version$=FNmsg0("VERSION")
  140:
  150_task%=FNstart_task(App$)
  160:
  170SYS "XWSWimpTools_Version" TO ver%
  180IF ver% <140 THEN ERROR 0,FNmsg0("BADWTL")
  190SYS "WSWimpTools_Register" TO _taskID%
  200:
  210DIM b% &100, _error% &100
  220SYS "WSWimpTools_LoadSprites",_taskID%,"<"+App$+"$Dir>.Sprites" TO ,sprites%
  230IF wimpver%<300 THEN
  240   PROCload_windows("<"+App$+"$Dir>.Templates2",sprites%)
  250ELSE
  260   PROCload_windows("<"+App$+"$Dir>.Templates",sprites%)
  270ENDIF
  280PROCsetup_menus
  290:
  300DIM warning% &100,warningname% &100,ftypestr% 9
  310ftypestr%?8=13
  320copying%=FALSE
  330filehandle%=0
  340:
  350SYS "WSWimpTools_TaskIcon",-1,0,"!"+App$ TO _taskicon%
  360:
  370ON ERROR PROCwimp_error(App$,_task%)
  380quit%=FALSE
  390REPEAT
  400   quit%=FNpoll
  410UNTIL quit%
  420SYS "WSWimpTools_DeRegister",_taskID%
  430PROCclose_down(_task%)
  440END
  450:
  460DEF PROCsetup_menus
  470   LOCAL i%,s%,n%
  480   DIM _mainmenu% &100,_iconbarmenu% &100,_wintitle% &100,_title% &100,s% &100
  490   SYS "WSWimpTools_MakeMenuHeader",_wintitle%,"Title",200 TO n%
  500   SYS "WSWimpTools_MakeMenuItem",n%,"Main Window",&80,_title%,255
  510   SYS "WSWimpTools_MakeMenu",_mainmenu%,s%,250,FNmsg0("MAINMENU") TO ,n%
  520   SYS "WSWimpTools_AttachSubMenu",_mainmenu%,0,"info",whandles%
  530   SYS "WSWimpTools_AttachSubMenu",_mainmenu%,1,"save",whandles%
  540   SYS "WSWimpTools_AttachSubMenu",_mainmenu%,2,_wintitle%
  550   SYS "WSWimpTools_MakeMenu",_iconbarmenu%,s%,150,FNmsg0("ICONBARMENU") TO ,n%
  560   SYS "WSWimpTools_AttachSubMenu",_iconbarmenu%,0,"info",whandles%
  570ENDPROC
  580:
  590DEF FNpoll
  600   LOCAL r%,q%
  610   SYS "Wimp_Poll",,b% TO r%
  620   CASE r% OF
  630      WHEN 0:
  640      WHEN 1:
  650      WHEN 2:
  660      IF !b%=_main% THEN
  670         SYS "WSWimpTools_OpenPaneWindow",,b%,1,"mainpane",whandles%
  680      ELSE
  690         SYS "Wimp_OpenWindow",,b%
  700      ENDIF
  710      WHEN 3:
  720      SYS "Wimp_CloseWindow",,b%
  730      IF !b%=_main% THEN
  740         SYS "WSWimpTools_CloseWindow","mainpane",whandles%
  750      ENDIF
  760      WHEN 6:
  770      PROCmouse_button(!b%,b%!4,b%!8,b%!12,b%!16)
  780      WHEN 7:
  790      IF dragtype% THEN SYS "DragASprite_Stop"
  800         SYS "WSWimpTools_GetIconText","save",1,,whandles% TO filename$
  810         SYS "WSWimpTools_GetLeaf",filename$ TO ,filename$
  820         SYS "WSWimpTools_SendSave",,b%,&FFB,filename$,&5300
  830      WHEN 8:
  840      SYS "WSWimpTools_WindowConvertParameter",1,whandles%,!b% TO window$
  850      CASE window$ OF
  860         WHEN "main":
  870         SYS "WSWimpTools_GetIconText","main",2,,whandles% TO title$
  880         SYS "WSWimpTools_SetWindowTitle","main",,title$,whandles%
  890         SYS "WSWimpTools_UpdateWindow","main",whandles%
  900         SYS "WSWimpTools_SetMenuItemText",_wintitle%,0,title$
  910         WHEN "save":
  920         SYS "WSWimpTools_GetIconText","save",1,,whandles% TO filename$
  930         IF INSTR(filename$,".")=0 THEN ERROR 1,"Please drag the icon to a filer display to save!"
  940         SYS "OS_FSControl",26,"<Demo$Dir>.!RunImage",filename$
  950      ENDCASE
  960      WHEN 9:
  970      q%=FNmenu_choice(b%)
  980      WHEN 17,18:
  990      CASE b%!16 OF
 1000         WHEN 0:
 1010         q%=TRUE
 1020         WHEN 2:
 1030         SYS "WSWimpTools_GetText",b%+44 TO filename$
 1040         SYS "OS_FSControl",26,"<Demo$Dir>.!RunImage",filename$
 1050         SYS "WSWimpTools_SendLoad",filename$,b%
 1060         SYS "WSWimpTools_SetIconText","save",1,filename$,whandles%
 1070      ENDCASE
 1080      WHEN 19:
 1090   ENDCASE
 1100=q%
 1110:
 1120DEF PROCmouse_button(x%,y%,buttons%,window%,icon%)
 1130   IF window%>=0 THEN
 1140      SYS "WSWimpTools_WindowConvertParameter",1,whandles%,window% TO window$
 1150   ELSE
 1160      window$="iconbar"
 1170   ENDIF
 1180   CASE buttons% OF
 1190      WHEN 2:
 1200      IF window$<>"iconbar" THEN
 1210         _menu%=_mainmenu%
 1220         SYS "Wimp_CreateMenu",,_menu%,x%-64,y%
 1230      ELSE
 1240        _menu%=_iconbarmenu%
 1250        SYS "WSWimpTools_IconBarMenu",_menu%
 1260      ENDIF
 1270      WHEN 1,4:
 1280      CASE window$ OF
 1290         WHEN "iconbar":
 1300         SYS "WSWimpTools_PopOpenPaneWindow","main",,1,"mainpane",whandles%
 1310         WHEN "main":
 1320         CASE icon% OF
 1330            WHEN 3:
 1340            SYS "WSWimpTools_GetIconText","main",2,,whandles% TO title$
 1350            SYS "WSWimpTools_SetWindowTitle","main",,title$,whandles%
 1360            SYS "WSWimpTools_UpdateWindow","main",whandles%
 1370            SYS "WSWimpTools_SetMenuItemText",_wintitle%,0,title$
 1380         ENDCASE
 1390      ENDCASE
 1400      WHEN &10,&40:
 1410      IF window$="save" AND icon%=3 THEN SYS "WSWimpTools_StartDrag","save",3,1,whandles% TO dragtype%
 1420   ENDCASE
 1430ENDPROC
 1440:
 1450DEF FNmenu_choice(b%)
 1460   LOCAL q%,item$
 1470   SYS "Wimp_DecodeMenu",,_menu%,b%,STRING$(255," ")TO,,,item$
 1480   IF INSTR(item$,".")<>0 THEN
 1490      item1$=LEFT$(item$,INSTR(item$,".")-1)
 1500   ELSE
 1510      item1$=item$
 1520   ENDIF
 1530   CASE item1$ OF
 1540      WHEN "Save":
 1550      SYS "WSWimpTools_PopOpenWindow","save",whandles%
 1560      WHEN "Window title":
 1570      title$=MID$(item$,INSTR(item$,".")+1)
 1580      SYS "WSWimpTools_SetWindowTitle","main",,title$,whandles%
 1590      SYS "WSWimpTools_UpdateWindow","main",whandles%
 1600      SYS "WSWimpTools_SetIconText","main",2,title$,whandles%
 1610      WHEN "Quit":
 1620      q%=TRUE
 1630   ENDCASE
 1640   SYS "WSWimpTools_MenuAdjust",_menu%
 1650=q%
 1660:
 1670DEF PROCload_windows(n$,sprites%)
 1680   LOCAL w%,i%
 1690   DIM w% &2000,i% &1000,whandles% &100
 1700   SYS "Wimp_OpenTemplate",,n$
 1710   SYS "WSWimpTools_LoadTemplates",,w%,i%,i%+&1000,whandles%,sprites% TO num%
 1720   SYS "Wimp_CloseTemplate"
 1730   SYS "WSWimpTools_SetIconText","info",6,App$,whandles%
 1740   SYS "WSWimpTools_SetIconText","info",7,Purpose$,whandles%
 1750   SYS "WSWimpTools_SetIconText","info",9,Version$,whandles%
 1760   SYS "WSWimpTools_SetIconText","mainpane",0,FNmsg0("PANE"),whandles%
 1770   SYS "WSWimpTools_SetIconText","main",4,FNmsg0("TITLE"),whandles%
 1780   SYS "WSWimpTools_SetIconText","save",4,FNmsg0("DRAG"),whandles%
 1790   SYS "WSWimpTools_WindowConvertParameter",4,whandles%,"main" TO _main%
 1800ENDPROC
 1810:
 1820DEF PROCwimp_error(name$,task%)
 1830   LOCAL r%,t%
 1840   !_error%=ERR
 1850   IF ERR<>1 THEN
 1860      t%=3
 1870      $(_error%+4)=REPORT$+"/"+STR$ERL+CHR$(0)
 1880   ELSE
 1890      t%=1
 1900      $(_error%+4)=REPORT$+CHR$(0)
 1910   ENDIF
 1920   SYS "Wimp_ReportError",_error%,t%,name$ TO ,r%
 1930   IF r%=2 THEN
 1940      SYS "WSWimpTools_DeRegister",_taskID%
 1950      PROCclose_down(task%)
 1960      END
 1970   ENDIF
 1980ENDPROC
 1990:
 2000DEF FNstart_task(name$)
 2010   LOCAL t%
 2020   SYS "Wimp_Initialise",200,&4B534154,name$ TO wimpver%,t%
 2030=t%
 2040:
 2050DEF PROCclose_down(t%)
 2060   SYS "Wimp_CloseDown",t%,&4B534154
 2070ENDPROC
 2080:
 2090DEF FNwarning(mess$,type%)
 2100   LOCAL ok%
 2110   $warningname%="Warning from !"+App$
 2120   !warning%=1
 2130   $(warning%+4)=mess$
 2140   SYS "Wimp_ReportError",warning%,type%,warningname% TO ,ok%
 2150=(ok%=1)
 2160:
 2170DEF PROCload_messages(file$)
 2180   SYS "MessageTrans_OpenFile",mtab%,file$,messages%
 2190ENDPROC
 2200:
 2210DEF FNmsg(find$,p0$,p1$,p2$,p3$)
 2220   LOCAL a%,a$
 2230   SYS "MessageTrans_Lookup",mtab%,find$,buffer%,256,p0$,p1$,p2$,p3$ TO ,,a%
 2240   SYS "WSWimpTools_GetText",a% TO a$
 2250=a$
 2260:
 2270DEF FNmsg0(find$)
 2280=FNmsg(find$,"","","","")
 2290:
 2300DEF FNmsg1(find$,p0$)
 2310=FNmsg(find$,p0$,"","","")


 � ><BasicSave$Dir>.!RunImage
� (c) Matt Lewis 1993
:
(� � � � �,�$+" at line "+Þ
2:
<$ș "OS_GetEnv" � command$,himem%
F:
P*� messages% &400,mtab% 16,buffer% &100
Z)�load_messages("<Obey$Dir>.Messages")
d:
nApp$=�msg0("TASK")
xPurpose$=�msg0("PURPOSE")
�Version$=�msg0("VERSION")
�:
�_task%=�start_task(App$)
�:
�$ș "XWSWimpTools_Version" � ver%
�%� ver% <140 � � 0,�msg0("BADWTL")
�(ș "WSWimpTools_Register" � _taskID%
�:
�� b% &100, _error% &100
�Nș "WSWimpTools_LoadSprites",_taskID%,"<"+App$+"$Dir>.Sprites" � ,sprites%
�� wimpver%<300 �
�:   �load_windows("<"+App$+"$Dir>.Templates2",sprites%)
��
9   �load_windows("<"+App$+"$Dir>.Templates",sprites%)
�
�setup_menus
":
,1� warning% &100,warningname% &100,ftypestr% 9
6ftypestr%?8=13
@copying%=�
Jfilehandle%=0
T:
^8ș "WSWimpTools_TaskIcon",-1,0,"!"+App$ � _taskicon%
h:
r � � �wimp_error(App$,_task%)
|quit%=�
��
�   quit%=�poll
�� quit%
�(ș "WSWimpTools_DeRegister",_taskID%
��close_down(_task%)
��
�:
�� �setup_menus
�   � i%,s%,n%
�P   � _mainmenu% &100,_iconbarmenu% &100,_wintitle% &100,_title% &100,s% &100
�B   ș "WSWimpTools_MakeMenuHeader",_wintitle%,"Title",200 � n%
�E   ș "WSWimpTools_MakeMenuItem",n%,"Main Window",&80,_title%,255
�J   ș "WSWimpTools_MakeMenu",_mainmenu%,s%,250,�msg0("MAINMENU") � ,n%
C   ș "WSWimpTools_AttachSubMenu",_mainmenu%,0,"info",whandles%
C   ș "WSWimpTools_AttachSubMenu",_mainmenu%,1,"save",whandles%
=   ș "WSWimpTools_AttachSubMenu",_mainmenu%,2,_wintitle%
&P   ș "WSWimpTools_MakeMenu",_iconbarmenu%,s%,150,�msg0("ICONBARMENU") � ,n%
0F   ș "WSWimpTools_AttachSubMenu",_iconbarmenu%,0,"info",whandles%
:�
D:
N� �poll
X   � r%,q%
b   ș "Wimp_Poll",,b% � r%
l   Ȏ r% �
v      � 0:
�      � 1:
�      � 2:
�      � !b%=_main% �
�G         ș "WSWimpTools_OpenPaneWindow",,b%,1,"mainpane",whandles%
�      �
�%         ș "Wimp_OpenWindow",,b%
�      �
�      � 3:
�#      ș "Wimp_CloseWindow",,b%
�      � !b%=_main% �
�>         ș "WSWimpTools_CloseWindow","mainpane",whandles%
�      �
�      � 6:
2      �mouse_button(!b%,b%!4,b%!8,b%!12,b%!16)
      � 7:
-      � dragtype% � ș "DragASprite_Stop"
 I         ș "WSWimpTools_GetIconText","save",1,,whandles% � filename$
*<         ș "WSWimpTools_GetLeaf",filename$ � ,filename$
4?         ș "WSWimpTools_SendSave",,b%,&FFB,filename$,&5300
>      � 8:
HK      ș "WSWimpTools_WindowConvertParameter",1,whandles%,!b% � window$
R      Ȏ window$ �
\         � "main":
fF         ș "WSWimpTools_GetIconText","main",2,,whandles% � title$
pE         ș "WSWimpTools_SetWindowTitle","main",,title$,whandles%
z;         ș "WSWimpTools_UpdateWindow","main",whandles%
�A         ș "WSWimpTools_SetMenuItemText",_wintitle%,0,title$
�         � "save":
�I         ș "WSWimpTools_GetIconText","save",1,,whandles% � filename$
�Y         � �filename$,".")=0 � � 1,"Please drag the icon to a filer display to save!"
�B         ș "OS_FSControl",26,"<Demo$Dir>.!RunImage",filename$
�      �
�      � 9:
�      q%=�menu_choice(b%)
�      � 17,18:
�      Ȏ b%!16 �
�         � 0:
�         q%=�
�         � 2:
7         ș "WSWimpTools_GetText",b%+44 � filename$
B         ș "OS_FSControl",26,"<Demo$Dir>.!RunImage",filename$
3         ș "WSWimpTools_SendLoad",filename$,b%
$F         ș "WSWimpTools_SetIconText","save",1,filename$,whandles%
.      �
8      � 19:
B   �
L=q%
V:
`1� �mouse_button(x%,y%,buttons%,window%,icon%)
j   � window%>=0 �
tO      ș "WSWimpTools_WindowConvertParameter",1,whandles%,window% � window$
~   �
�      window$="iconbar"
�   �
�   Ȏ buttons% �
�      � 2:
�       � window$<>"iconbar" �
�         _menu%=_mainmenu%
�2         ș "Wimp_CreateMenu",,_menu%,x%-64,y%
�      �
�         _menu%=_iconbarmenu%
�/        ș "WSWimpTools_IconBarMenu",_menu%
�      �
�      � 1,4:
      Ȏ window$ �

         � "iconbar":
N         ș "WSWimpTools_PopOpenPaneWindow","main",,1,"mainpane",whandles%
         � "main":
(         Ȏ icon% �
2            � 3:
<I            ș "WSWimpTools_GetIconText","main",2,,whandles% � title$
FH            ș "WSWimpTools_SetWindowTitle","main",,title$,whandles%
P>            ș "WSWimpTools_UpdateWindow","main",whandles%
ZD            ș "WSWimpTools_SetMenuItemText",_wintitle%,0,title$
d         �
n      �
x      � &10,&40:
�b      � window$="save" � icon%=3 � ș "WSWimpTools_StartDrag","save",3,1,whandles% � dragtype%
�   �
��
�:
�� �menu_choice(b%)
�   � q%,item$
�9   ș "Wimp_DecodeMenu",,_menu%,b%,�255," ")�,,,item$
�   � �item$,".")<>0 �
�&      item1$=�item$,�item$,".")-1)
�   �
�      item1$=item$
�   �
�   Ȏ item1$ �
      � "Save":
9      ș "WSWimpTools_PopOpenWindow","save",whandles%
      � "Window title":
"&      title$=�item$,�item$,".")+1)
,B      ș "WSWimpTools_SetWindowTitle","main",,title$,whandles%
68      ș "WSWimpTools_UpdateWindow","main",whandles%
@@      ș "WSWimpTools_SetIconText","main",2,title$,whandles%
J      � "Quit":
T      q%=�
^   �
h)   ș "WSWimpTools_MenuAdjust",_menu%
r=q%
|:
� � �load_windows(n$,sprites%)
�   � w%,i%
�)   � w% &2000,i% &1000,whandles% &100
�!   ș "Wimp_OpenTemplate",,n$
�O   ș "WSWimpTools_LoadTemplates",,w%,i%,i%+&1000,whandles%,sprites% � num%
�   ș "Wimp_CloseTemplate"
�;   ș "WSWimpTools_SetIconText","info",6,App$,whandles%
�?   ș "WSWimpTools_SetIconText","info",7,Purpose$,whandles%
�?   ș "WSWimpTools_SetIconText","info",9,Version$,whandles%
�H   ș "WSWimpTools_SetIconText","mainpane",0,�msg0("PANE"),whandles%
�E   ș "WSWimpTools_SetIconText","main",4,�msg0("TITLE"),whandles%
�D   ș "WSWimpTools_SetIconText","save",4,�msg0("DRAG"),whandles%
�J   ș "WSWimpTools_WindowConvertParameter",4,whandles%,"main" � _main%
�
:
� �wimp_error(name$,task%)
&   � r%,t%
0   !_error%=�
:   � �<>1 �
D      t%=3
N%      $(_error%+4)=�$+"/"+Þ+�(0)
X   �
b      t%=1
l      $(_error%+4)=�$+�(0)
v   �
�3   ș "Wimp_ReportError",_error%,t%,name$ � ,r%
�   � r%=2 �
�.      ș "WSWimpTools_DeRegister",_taskID%
�      �close_down(task%)
�      �
�   �
��
�:
�� �start_task(name$)
�   � t%
�=   ș "Wimp_Initialise",200,&4B534154,name$ � wimpver%,t%
�=t%
�:
� �close_down(t%)
'   ș "Wimp_CloseDown",t%,&4B534154
�
 :
*� �warning(mess$,type%)
4   � ok%
>*   $warningname%="Warning from !"+App$
H   !warning%=1
R   $(warning%+4)=mess$
\?   ș "Wimp_ReportError",warning%,type%,warningname% � ,ok%
f=(ok%=1)
p:
z� �load_messages(file$)
�7   ș "MessageTrans_OpenFile",mtab%,file$,messages%
��
�:
�!� �msg(find$,p0$,p1$,p2$,p3$)
�   � a%,a$
�N   ș "MessageTrans_Lookup",mtab%,find$,buffer%,256,p0$,p1$,p2$,p3$ � ,,a%
�'   ș "WSWimpTools_GetText",a% � a$
�=a$
�:
�� �msg0(find$)
�=�msg(find$,"","","","")
�:
�� �msg1(find$,p0$)
	=�msg(find$,p0$,"","","")
�

00000000  0d 00 0a 20 f4 20 3e 3c  42 61 73 69 63 53 61 76  |... . ><BasicSav|
00000010  65 24 44 69 72 3e 2e 21  52 75 6e 49 6d 61 67 65  |e$Dir>.!RunImage|
00000020  0d 00 14 19 f4 20 28 63  29 20 4d 61 74 74 20 4c  |..... (c) Matt L|
00000030  65 77 69 73 20 31 39 39  33 0d 00 1e 05 3a 0d 00  |ewis 1993....:..|
00000040  28 1f ee 20 85 20 85 20  a2 20 9f 2c f6 24 2b 22  |(.. . . . .,.$+"|
00000050  20 61 74 20 6c 69 6e 65  20 22 2b c3 9e 0d 00 32  | at line "+....2|
00000060  05 3a 0d 00 3c 24 c8 99  20 22 4f 53 5f 47 65 74  |.:..<$.. "OS_Get|
00000070  45 6e 76 22 20 b8 20 63  6f 6d 6d 61 6e 64 24 2c  |Env" . command$,|
00000080  68 69 6d 65 6d 25 0d 00  46 05 3a 0d 00 50 2a de  |himem%..F.:..P*.|
00000090  20 6d 65 73 73 61 67 65  73 25 20 26 34 30 30 2c  | messages% &400,|
000000a0  6d 74 61 62 25 20 31 36  2c 62 75 66 66 65 72 25  |mtab% 16,buffer%|
000000b0  20 26 31 30 30 0d 00 5a  29 f2 6c 6f 61 64 5f 6d  | &100..Z).load_m|
000000c0  65 73 73 61 67 65 73 28  22 3c 4f 62 65 79 24 44  |essages("<Obey$D|
000000d0  69 72 3e 2e 4d 65 73 73  61 67 65 73 22 29 0d 00  |ir>.Messages")..|
000000e0  64 05 3a 0d 00 6e 16 41  70 70 24 3d a4 6d 73 67  |d.:..n.App$=.msg|
000000f0  30 28 22 54 41 53 4b 22  29 0d 00 78 1d 50 75 72  |0("TASK")..x.Pur|
00000100  70 6f 73 65 24 3d a4 6d  73 67 30 28 22 50 55 52  |pose$=.msg0("PUR|
00000110  50 4f 53 45 22 29 0d 00  82 1d 56 65 72 73 69 6f  |POSE")....Versio|
00000120  6e 24 3d a4 6d 73 67 30  28 22 56 45 52 53 49 4f  |n$=.msg0("VERSIO|
00000130  4e 22 29 0d 00 8c 05 3a  0d 00 96 1c 5f 74 61 73  |N")....:...._tas|
00000140  6b 25 3d a4 73 74 61 72  74 5f 74 61 73 6b 28 41  |k%=.start_task(A|
00000150  70 70 24 29 0d 00 a0 05  3a 0d 00 aa 24 c8 99 20  |pp$)....:...$.. |
00000160  22 58 57 53 57 69 6d 70  54 6f 6f 6c 73 5f 56 65  |"XWSWimpTools_Ve|
00000170  72 73 69 6f 6e 22 20 b8  20 76 65 72 25 0d 00 b4  |rsion" . ver%...|
00000180  25 e7 20 76 65 72 25 20  3c 31 34 30 20 8c 20 85  |%. ver% <140 . .|
00000190  20 30 2c a4 6d 73 67 30  28 22 42 41 44 57 54 4c  | 0,.msg0("BADWTL|
000001a0  22 29 0d 00 be 28 c8 99  20 22 57 53 57 69 6d 70  |")...(.. "WSWimp|
000001b0  54 6f 6f 6c 73 5f 52 65  67 69 73 74 65 72 22 20  |Tools_Register" |
000001c0  b8 20 5f 74 61 73 6b 49  44 25 0d 00 c8 05 3a 0d  |. _taskID%....:.|
000001d0  00 d2 1b de 20 62 25 20  26 31 30 30 2c 20 5f 65  |.... b% &100, _e|
000001e0  72 72 6f 72 25 20 26 31  30 30 0d 00 dc 4e c8 99  |rror% &100...N..|
000001f0  20 22 57 53 57 69 6d 70  54 6f 6f 6c 73 5f 4c 6f  | "WSWimpTools_Lo|
00000200  61 64 53 70 72 69 74 65  73 22 2c 5f 74 61 73 6b  |adSprites",_task|
00000210  49 44 25 2c 22 3c 22 2b  41 70 70 24 2b 22 24 44  |ID%,"<"+App$+"$D|
00000220  69 72 3e 2e 53 70 72 69  74 65 73 22 20 b8 20 2c  |ir>.Sprites" . ,|
00000230  73 70 72 69 74 65 73 25  0d 00 e6 14 e7 20 77 69  |sprites%..... wi|
00000240  6d 70 76 65 72 25 3c 33  30 30 20 8c 0d 00 f0 3a  |mpver%<300 ....:|
00000250  20 20 20 f2 6c 6f 61 64  5f 77 69 6e 64 6f 77 73  |   .load_windows|
00000260  28 22 3c 22 2b 41 70 70  24 2b 22 24 44 69 72 3e  |("<"+App$+"$Dir>|
00000270  2e 54 65 6d 70 6c 61 74  65 73 32 22 2c 73 70 72  |.Templates2",spr|
00000280  69 74 65 73 25 29 0d 00  fa 05 cc 0d 01 04 39 20  |ites%)........9 |
00000290  20 20 f2 6c 6f 61 64 5f  77 69 6e 64 6f 77 73 28  |  .load_windows(|
000002a0  22 3c 22 2b 41 70 70 24  2b 22 24 44 69 72 3e 2e  |"<"+App$+"$Dir>.|
000002b0  54 65 6d 70 6c 61 74 65  73 22 2c 73 70 72 69 74  |Templates",sprit|
000002c0  65 73 25 29 0d 01 0e 05  cd 0d 01 18 10 f2 73 65  |es%)..........se|
000002d0  74 75 70 5f 6d 65 6e 75  73 0d 01 22 05 3a 0d 01  |tup_menus..".:..|
000002e0  2c 31 de 20 77 61 72 6e  69 6e 67 25 20 26 31 30  |,1. warning% &10|
000002f0  30 2c 77 61 72 6e 69 6e  67 6e 61 6d 65 25 20 26  |0,warningname% &|
00000300  31 30 30 2c 66 74 79 70  65 73 74 72 25 20 39 0d  |100,ftypestr% 9.|
00000310  01 36 12 66 74 79 70 65  73 74 72 25 3f 38 3d 31  |.6.ftypestr%?8=1|
00000320  33 0d 01 40 0e 63 6f 70  79 69 6e 67 25 3d a3 0d  |3..@.copying%=..|
00000330  01 4a 11 66 69 6c 65 68  61 6e 64 6c 65 25 3d 30  |.J.filehandle%=0|
00000340  0d 01 54 05 3a 0d 01 5e  38 c8 99 20 22 57 53 57  |..T.:..^8.. "WSW|
00000350  69 6d 70 54 6f 6f 6c 73  5f 54 61 73 6b 49 63 6f  |impTools_TaskIco|
00000360  6e 22 2c 2d 31 2c 30 2c  22 21 22 2b 41 70 70 24  |n",-1,0,"!"+App$|
00000370  20 b8 20 5f 74 61 73 6b  69 63 6f 6e 25 0d 01 68  | . _taskicon%..h|
00000380  05 3a 0d 01 72 20 ee 20  85 20 f2 77 69 6d 70 5f  |.:..r . . .wimp_|
00000390  65 72 72 6f 72 28 41 70  70 24 2c 5f 74 61 73 6b  |error(App$,_task|
000003a0  25 29 0d 01 7c 0b 71 75  69 74 25 3d a3 0d 01 86  |%)..|.quit%=....|
000003b0  05 f5 0d 01 90 12 20 20  20 71 75 69 74 25 3d a4  |......   quit%=.|
000003c0  70 6f 6c 6c 0d 01 9a 0b  fd 20 71 75 69 74 25 0d  |poll..... quit%.|
000003d0  01 a4 28 c8 99 20 22 57  53 57 69 6d 70 54 6f 6f  |..(.. "WSWimpToo|
000003e0  6c 73 5f 44 65 52 65 67  69 73 74 65 72 22 2c 5f  |ls_DeRegister",_|
000003f0  74 61 73 6b 49 44 25 0d  01 ae 17 f2 63 6c 6f 73  |taskID%.....clos|
00000400  65 5f 64 6f 77 6e 28 5f  74 61 73 6b 25 29 0d 01  |e_down(_task%)..|
00000410  b8 05 e0 0d 01 c2 05 3a  0d 01 cc 12 dd 20 f2 73  |.......:..... .s|
00000420  65 74 75 70 5f 6d 65 6e  75 73 0d 01 d6 11 20 20  |etup_menus....  |
00000430  20 ea 20 69 25 2c 73 25  2c 6e 25 0d 01 e0 50 20  | . i%,s%,n%...P |
00000440  20 20 de 20 5f 6d 61 69  6e 6d 65 6e 75 25 20 26  |  . _mainmenu% &|
00000450  31 30 30 2c 5f 69 63 6f  6e 62 61 72 6d 65 6e 75  |100,_iconbarmenu|
00000460  25 20 26 31 30 30 2c 5f  77 69 6e 74 69 74 6c 65  |% &100,_wintitle|
00000470  25 20 26 31 30 30 2c 5f  74 69 74 6c 65 25 20 26  |% &100,_title% &|
00000480  31 30 30 2c 73 25 20 26  31 30 30 0d 01 ea 42 20  |100,s% &100...B |
00000490  20 20 c8 99 20 22 57 53  57 69 6d 70 54 6f 6f 6c  |  .. "WSWimpTool|
000004a0  73 5f 4d 61 6b 65 4d 65  6e 75 48 65 61 64 65 72  |s_MakeMenuHeader|
000004b0  22 2c 5f 77 69 6e 74 69  74 6c 65 25 2c 22 54 69  |",_wintitle%,"Ti|
000004c0  74 6c 65 22 2c 32 30 30  20 b8 20 6e 25 0d 01 f4  |tle",200 . n%...|
000004d0  45 20 20 20 c8 99 20 22  57 53 57 69 6d 70 54 6f  |E   .. "WSWimpTo|
000004e0  6f 6c 73 5f 4d 61 6b 65  4d 65 6e 75 49 74 65 6d  |ols_MakeMenuItem|
000004f0  22 2c 6e 25 2c 22 4d 61  69 6e 20 57 69 6e 64 6f  |",n%,"Main Windo|
00000500  77 22 2c 26 38 30 2c 5f  74 69 74 6c 65 25 2c 32  |w",&80,_title%,2|
00000510  35 35 0d 01 fe 4a 20 20  20 c8 99 20 22 57 53 57  |55...J   .. "WSW|
00000520  69 6d 70 54 6f 6f 6c 73  5f 4d 61 6b 65 4d 65 6e  |impTools_MakeMen|
00000530  75 22 2c 5f 6d 61 69 6e  6d 65 6e 75 25 2c 73 25  |u",_mainmenu%,s%|
00000540  2c 32 35 30 2c a4 6d 73  67 30 28 22 4d 41 49 4e  |,250,.msg0("MAIN|
00000550  4d 45 4e 55 22 29 20 b8  20 2c 6e 25 0d 02 08 43  |MENU") . ,n%...C|
00000560  20 20 20 c8 99 20 22 57  53 57 69 6d 70 54 6f 6f  |   .. "WSWimpToo|
00000570  6c 73 5f 41 74 74 61 63  68 53 75 62 4d 65 6e 75  |ls_AttachSubMenu|
00000580  22 2c 5f 6d 61 69 6e 6d  65 6e 75 25 2c 30 2c 22  |",_mainmenu%,0,"|
00000590  69 6e 66 6f 22 2c 77 68  61 6e 64 6c 65 73 25 0d  |info",whandles%.|
000005a0  02 12 43 20 20 20 c8 99  20 22 57 53 57 69 6d 70  |..C   .. "WSWimp|
000005b0  54 6f 6f 6c 73 5f 41 74  74 61 63 68 53 75 62 4d  |Tools_AttachSubM|
000005c0  65 6e 75 22 2c 5f 6d 61  69 6e 6d 65 6e 75 25 2c  |enu",_mainmenu%,|
000005d0  31 2c 22 73 61 76 65 22  2c 77 68 61 6e 64 6c 65  |1,"save",whandle|
000005e0  73 25 0d 02 1c 3d 20 20  20 c8 99 20 22 57 53 57  |s%...=   .. "WSW|
000005f0  69 6d 70 54 6f 6f 6c 73  5f 41 74 74 61 63 68 53  |impTools_AttachS|
00000600  75 62 4d 65 6e 75 22 2c  5f 6d 61 69 6e 6d 65 6e  |ubMenu",_mainmen|
00000610  75 25 2c 32 2c 5f 77 69  6e 74 69 74 6c 65 25 0d  |u%,2,_wintitle%.|
00000620  02 26 50 20 20 20 c8 99  20 22 57 53 57 69 6d 70  |.&P   .. "WSWimp|
00000630  54 6f 6f 6c 73 5f 4d 61  6b 65 4d 65 6e 75 22 2c  |Tools_MakeMenu",|
00000640  5f 69 63 6f 6e 62 61 72  6d 65 6e 75 25 2c 73 25  |_iconbarmenu%,s%|
00000650  2c 31 35 30 2c a4 6d 73  67 30 28 22 49 43 4f 4e  |,150,.msg0("ICON|
00000660  42 41 52 4d 45 4e 55 22  29 20 b8 20 2c 6e 25 0d  |BARMENU") . ,n%.|
00000670  02 30 46 20 20 20 c8 99  20 22 57 53 57 69 6d 70  |.0F   .. "WSWimp|
00000680  54 6f 6f 6c 73 5f 41 74  74 61 63 68 53 75 62 4d  |Tools_AttachSubM|
00000690  65 6e 75 22 2c 5f 69 63  6f 6e 62 61 72 6d 65 6e  |enu",_iconbarmen|
000006a0  75 25 2c 30 2c 22 69 6e  66 6f 22 2c 77 68 61 6e  |u%,0,"info",whan|
000006b0  64 6c 65 73 25 0d 02 3a  05 e1 0d 02 44 05 3a 0d  |dles%..:....D.:.|
000006c0  02 4e 0b dd 20 a4 70 6f  6c 6c 0d 02 58 0e 20 20  |.N.. .poll..X.  |
000006d0  20 ea 20 72 25 2c 71 25  0d 02 62 1e 20 20 20 c8  | . r%,q%..b.   .|
000006e0  99 20 22 57 69 6d 70 5f  50 6f 6c 6c 22 2c 2c 62  |. "Wimp_Poll",,b|
000006f0  25 20 b8 20 72 25 0d 02  6c 0e 20 20 20 c8 8e 20  |% . r%..l.   .. |
00000700  72 25 20 ca 0d 02 76 0e  20 20 20 20 20 20 c9 20  |r% ...v.      . |
00000710  30 3a 0d 02 80 0e 20 20  20 20 20 20 c9 20 31 3a  |0:....      . 1:|
00000720  0d 02 8a 0e 20 20 20 20  20 20 c9 20 32 3a 0d 02  |....      . 2:..|
00000730  94 18 20 20 20 20 20 20  e7 20 21 62 25 3d 5f 6d  |..      . !b%=_m|
00000740  61 69 6e 25 20 8c 0d 02  9e 47 20 20 20 20 20 20  |ain% ....G      |
00000750  20 20 20 c8 99 20 22 57  53 57 69 6d 70 54 6f 6f  |   .. "WSWimpToo|
00000760  6c 73 5f 4f 70 65 6e 50  61 6e 65 57 69 6e 64 6f  |ls_OpenPaneWindo|
00000770  77 22 2c 2c 62 25 2c 31  2c 22 6d 61 69 6e 70 61  |w",,b%,1,"mainpa|
00000780  6e 65 22 2c 77 68 61 6e  64 6c 65 73 25 0d 02 a8  |ne",whandles%...|
00000790  0b 20 20 20 20 20 20 cc  0d 02 b2 25 20 20 20 20  |.      ....%    |
000007a0  20 20 20 20 20 c8 99 20  22 57 69 6d 70 5f 4f 70  |     .. "Wimp_Op|
000007b0  65 6e 57 69 6e 64 6f 77  22 2c 2c 62 25 0d 02 bc  |enWindow",,b%...|
000007c0  0b 20 20 20 20 20 20 cd  0d 02 c6 0e 20 20 20 20  |.      .....    |
000007d0  20 20 c9 20 33 3a 0d 02  d0 23 20 20 20 20 20 20  |  . 3:...#      |
000007e0  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |.. "Wimp_CloseWi|
000007f0  6e 64 6f 77 22 2c 2c 62  25 0d 02 da 18 20 20 20  |ndow",,b%....   |
00000800  20 20 20 e7 20 21 62 25  3d 5f 6d 61 69 6e 25 20  |   . !b%=_main% |
00000810  8c 0d 02 e4 3e 20 20 20  20 20 20 20 20 20 c8 99  |....>         ..|
00000820  20 22 57 53 57 69 6d 70  54 6f 6f 6c 73 5f 43 6c  | "WSWimpTools_Cl|
00000830  6f 73 65 57 69 6e 64 6f  77 22 2c 22 6d 61 69 6e  |oseWindow","main|
00000840  70 61 6e 65 22 2c 77 68  61 6e 64 6c 65 73 25 0d  |pane",whandles%.|
00000850  02 ee 0b 20 20 20 20 20  20 cd 0d 02 f8 0e 20 20  |...      .....  |
00000860  20 20 20 20 c9 20 36 3a  0d 03 02 32 20 20 20 20  |    . 6:...2    |
00000870  20 20 f2 6d 6f 75 73 65  5f 62 75 74 74 6f 6e 28  |  .mouse_button(|
00000880  21 62 25 2c 62 25 21 34  2c 62 25 21 38 2c 62 25  |!b%,b%!4,b%!8,b%|
00000890  21 31 32 2c 62 25 21 31  36 29 0d 03 0c 0e 20 20  |!12,b%!16)....  |
000008a0  20 20 20 20 c9 20 37 3a  0d 03 16 2d 20 20 20 20  |    . 7:...-    |
000008b0  20 20 e7 20 64 72 61 67  74 79 70 65 25 20 8c 20  |  . dragtype% . |
000008c0  c8 99 20 22 44 72 61 67  41 53 70 72 69 74 65 5f  |.. "DragASprite_|
000008d0  53 74 6f 70 22 0d 03 20  49 20 20 20 20 20 20 20  |Stop".. I       |
000008e0  20 20 c8 99 20 22 57 53  57 69 6d 70 54 6f 6f 6c  |  .. "WSWimpTool|
000008f0  73 5f 47 65 74 49 63 6f  6e 54 65 78 74 22 2c 22  |s_GetIconText","|
00000900  73 61 76 65 22 2c 31 2c  2c 77 68 61 6e 64 6c 65  |save",1,,whandle|
00000910  73 25 20 b8 20 66 69 6c  65 6e 61 6d 65 24 0d 03  |s% . filename$..|
00000920  2a 3c 20 20 20 20 20 20  20 20 20 c8 99 20 22 57  |*<         .. "W|
00000930  53 57 69 6d 70 54 6f 6f  6c 73 5f 47 65 74 4c 65  |SWimpTools_GetLe|
00000940  61 66 22 2c 66 69 6c 65  6e 61 6d 65 24 20 b8 20  |af",filename$ . |
00000950  2c 66 69 6c 65 6e 61 6d  65 24 0d 03 34 3f 20 20  |,filename$..4?  |
00000960  20 20 20 20 20 20 20 c8  99 20 22 57 53 57 69 6d  |       .. "WSWim|
00000970  70 54 6f 6f 6c 73 5f 53  65 6e 64 53 61 76 65 22  |pTools_SendSave"|
00000980  2c 2c 62 25 2c 26 46 46  42 2c 66 69 6c 65 6e 61  |,,b%,&FFB,filena|
00000990  6d 65 24 2c 26 35 33 30  30 0d 03 3e 0e 20 20 20  |me$,&5300..>.   |
000009a0  20 20 20 c9 20 38 3a 0d  03 48 4b 20 20 20 20 20  |   . 8:..HK     |
000009b0  20 c8 99 20 22 57 53 57  69 6d 70 54 6f 6f 6c 73  | .. "WSWimpTools|
000009c0  5f 57 69 6e 64 6f 77 43  6f 6e 76 65 72 74 50 61  |_WindowConvertPa|
000009d0  72 61 6d 65 74 65 72 22  2c 31 2c 77 68 61 6e 64  |rameter",1,whand|
000009e0  6c 65 73 25 2c 21 62 25  20 b8 20 77 69 6e 64 6f  |les%,!b% . windo|
000009f0  77 24 0d 03 52 16 20 20  20 20 20 20 c8 8e 20 77  |w$..R.      .. w|
00000a00  69 6e 64 6f 77 24 20 ca  0d 03 5c 16 20 20 20 20  |indow$ ...\.    |
00000a10  20 20 20 20 20 c9 20 22  6d 61 69 6e 22 3a 0d 03  |     . "main":..|
00000a20  66 46 20 20 20 20 20 20  20 20 20 c8 99 20 22 57  |fF         .. "W|
00000a30  53 57 69 6d 70 54 6f 6f  6c 73 5f 47 65 74 49 63  |SWimpTools_GetIc|
00000a40  6f 6e 54 65 78 74 22 2c  22 6d 61 69 6e 22 2c 32  |onText","main",2|
00000a50  2c 2c 77 68 61 6e 64 6c  65 73 25 20 b8 20 74 69  |,,whandles% . ti|
00000a60  74 6c 65 24 0d 03 70 45  20 20 20 20 20 20 20 20  |tle$..pE        |
00000a70  20 c8 99 20 22 57 53 57  69 6d 70 54 6f 6f 6c 73  | .. "WSWimpTools|
00000a80  5f 53 65 74 57 69 6e 64  6f 77 54 69 74 6c 65 22  |_SetWindowTitle"|
00000a90  2c 22 6d 61 69 6e 22 2c  2c 74 69 74 6c 65 24 2c  |,"main",,title$,|
00000aa0  77 68 61 6e 64 6c 65 73  25 0d 03 7a 3b 20 20 20  |whandles%..z;   |
00000ab0  20 20 20 20 20 20 c8 99  20 22 57 53 57 69 6d 70  |      .. "WSWimp|
00000ac0  54 6f 6f 6c 73 5f 55 70  64 61 74 65 57 69 6e 64  |Tools_UpdateWind|
00000ad0  6f 77 22 2c 22 6d 61 69  6e 22 2c 77 68 61 6e 64  |ow","main",whand|
00000ae0  6c 65 73 25 0d 03 84 41  20 20 20 20 20 20 20 20  |les%...A        |
00000af0  20 c8 99 20 22 57 53 57  69 6d 70 54 6f 6f 6c 73  | .. "WSWimpTools|
00000b00  5f 53 65 74 4d 65 6e 75  49 74 65 6d 54 65 78 74  |_SetMenuItemText|
00000b10  22 2c 5f 77 69 6e 74 69  74 6c 65 25 2c 30 2c 74  |",_wintitle%,0,t|
00000b20  69 74 6c 65 24 0d 03 8e  16 20 20 20 20 20 20 20  |itle$....       |
00000b30  20 20 c9 20 22 73 61 76  65 22 3a 0d 03 98 49 20  |  . "save":...I |
00000b40  20 20 20 20 20 20 20 20  c8 99 20 22 57 53 57 69  |        .. "WSWi|
00000b50  6d 70 54 6f 6f 6c 73 5f  47 65 74 49 63 6f 6e 54  |mpTools_GetIconT|
00000b60  65 78 74 22 2c 22 73 61  76 65 22 2c 31 2c 2c 77  |ext","save",1,,w|
00000b70  68 61 6e 64 6c 65 73 25  20 b8 20 66 69 6c 65 6e  |handles% . filen|
00000b80  61 6d 65 24 0d 03 a2 59  20 20 20 20 20 20 20 20  |ame$...Y        |
00000b90  20 e7 20 a7 66 69 6c 65  6e 61 6d 65 24 2c 22 2e  | . .filename$,".|
00000ba0  22 29 3d 30 20 8c 20 85  20 31 2c 22 50 6c 65 61  |")=0 . . 1,"Plea|
00000bb0  73 65 20 64 72 61 67 20  74 68 65 20 69 63 6f 6e  |se drag the icon|
00000bc0  20 74 6f 20 61 20 66 69  6c 65 72 20 64 69 73 70  | to a filer disp|
00000bd0  6c 61 79 20 74 6f 20 73  61 76 65 21 22 0d 03 ac  |lay to save!"...|
00000be0  42 20 20 20 20 20 20 20  20 20 c8 99 20 22 4f 53  |B         .. "OS|
00000bf0  5f 46 53 43 6f 6e 74 72  6f 6c 22 2c 32 36 2c 22  |_FSControl",26,"|
00000c00  3c 44 65 6d 6f 24 44 69  72 3e 2e 21 52 75 6e 49  |<Demo$Dir>.!RunI|
00000c10  6d 61 67 65 22 2c 66 69  6c 65 6e 61 6d 65 24 0d  |mage",filename$.|
00000c20  03 b6 0b 20 20 20 20 20  20 cb 0d 03 c0 0e 20 20  |...      .....  |
00000c30  20 20 20 20 c9 20 39 3a  0d 03 ca 1d 20 20 20 20  |    . 9:....    |
00000c40  20 20 71 25 3d a4 6d 65  6e 75 5f 63 68 6f 69 63  |  q%=.menu_choic|
00000c50  65 28 62 25 29 0d 03 d4  12 20 20 20 20 20 20 c9  |e(b%)....      .|
00000c60  20 31 37 2c 31 38 3a 0d  03 de 14 20 20 20 20 20  | 17,18:....     |
00000c70  20 c8 8e 20 62 25 21 31  36 20 ca 0d 03 e8 11 20  | .. b%!16 ..... |
00000c80  20 20 20 20 20 20 20 20  c9 20 30 3a 0d 03 f2 11  |        . 0:....|
00000c90  20 20 20 20 20 20 20 20  20 71 25 3d b9 0d 03 fc  |         q%=....|
00000ca0  11 20 20 20 20 20 20 20  20 20 c9 20 32 3a 0d 04  |.         . 2:..|
00000cb0  06 37 20 20 20 20 20 20  20 20 20 c8 99 20 22 57  |.7         .. "W|
00000cc0  53 57 69 6d 70 54 6f 6f  6c 73 5f 47 65 74 54 65  |SWimpTools_GetTe|
00000cd0  78 74 22 2c 62 25 2b 34  34 20 b8 20 66 69 6c 65  |xt",b%+44 . file|
00000ce0  6e 61 6d 65 24 0d 04 10  42 20 20 20 20 20 20 20  |name$...B       |
00000cf0  20 20 c8 99 20 22 4f 53  5f 46 53 43 6f 6e 74 72  |  .. "OS_FSContr|
00000d00  6f 6c 22 2c 32 36 2c 22  3c 44 65 6d 6f 24 44 69  |ol",26,"<Demo$Di|
00000d10  72 3e 2e 21 52 75 6e 49  6d 61 67 65 22 2c 66 69  |r>.!RunImage",fi|
00000d20  6c 65 6e 61 6d 65 24 0d  04 1a 33 20 20 20 20 20  |lename$...3     |
00000d30  20 20 20 20 c8 99 20 22  57 53 57 69 6d 70 54 6f  |    .. "WSWimpTo|
00000d40  6f 6c 73 5f 53 65 6e 64  4c 6f 61 64 22 2c 66 69  |ols_SendLoad",fi|
00000d50  6c 65 6e 61 6d 65 24 2c  62 25 0d 04 24 46 20 20  |lename$,b%..$F  |
00000d60  20 20 20 20 20 20 20 c8  99 20 22 57 53 57 69 6d  |       .. "WSWim|
00000d70  70 54 6f 6f 6c 73 5f 53  65 74 49 63 6f 6e 54 65  |pTools_SetIconTe|
00000d80  78 74 22 2c 22 73 61 76  65 22 2c 31 2c 66 69 6c  |xt","save",1,fil|
00000d90  65 6e 61 6d 65 24 2c 77  68 61 6e 64 6c 65 73 25  |ename$,whandles%|
00000da0  0d 04 2e 0b 20 20 20 20  20 20 cb 0d 04 38 0f 20  |....      ...8. |
00000db0  20 20 20 20 20 c9 20 31  39 3a 0d 04 42 08 20 20  |     . 19:..B.  |
00000dc0  20 cb 0d 04 4c 07 3d 71  25 0d 04 56 05 3a 0d 04  | ...L.=q%..V.:..|
00000dd0  60 31 dd 20 f2 6d 6f 75  73 65 5f 62 75 74 74 6f  |`1. .mouse_butto|
00000de0  6e 28 78 25 2c 79 25 2c  62 75 74 74 6f 6e 73 25  |n(x%,y%,buttons%|
00000df0  2c 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 29 0d  |,window%,icon%).|
00000e00  04 6a 15 20 20 20 e7 20  77 69 6e 64 6f 77 25 3e  |.j.   . window%>|
00000e10  3d 30 20 8c 0d 04 74 4f  20 20 20 20 20 20 c8 99  |=0 ...tO      ..|
00000e20  20 22 57 53 57 69 6d 70  54 6f 6f 6c 73 5f 57 69  | "WSWimpTools_Wi|
00000e30  6e 64 6f 77 43 6f 6e 76  65 72 74 50 61 72 61 6d  |ndowConvertParam|
00000e40  65 74 65 72 22 2c 31 2c  77 68 61 6e 64 6c 65 73  |eter",1,whandles|
00000e50  25 2c 77 69 6e 64 6f 77  25 20 b8 20 77 69 6e 64  |%,window% . wind|
00000e60  6f 77 24 0d 04 7e 08 20  20 20 cc 0d 04 88 1b 20  |ow$..~.   ..... |
00000e70  20 20 20 20 20 77 69 6e  64 6f 77 24 3d 22 69 63  |     window$="ic|
00000e80  6f 6e 62 61 72 22 0d 04  92 08 20 20 20 cd 0d 04  |onbar"....   ...|
00000e90  9c 14 20 20 20 c8 8e 20  62 75 74 74 6f 6e 73 25  |..   .. buttons%|
00000ea0  20 ca 0d 04 a6 0e 20 20  20 20 20 20 c9 20 32 3a  | .....      . 2:|
00000eb0  0d 04 b0 20 20 20 20 20  20 20 e7 20 77 69 6e 64  |...       . wind|
00000ec0  6f 77 24 3c 3e 22 69 63  6f 6e 62 61 72 22 20 8c  |ow$<>"iconbar" .|
00000ed0  0d 04 ba 1e 20 20 20 20  20 20 20 20 20 5f 6d 65  |....         _me|
00000ee0  6e 75 25 3d 5f 6d 61 69  6e 6d 65 6e 75 25 0d 04  |nu%=_mainmenu%..|
00000ef0  c4 32 20 20 20 20 20 20  20 20 20 c8 99 20 22 57  |.2         .. "W|
00000f00  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00000f10  2c 5f 6d 65 6e 75 25 2c  78 25 2d 36 34 2c 79 25  |,_menu%,x%-64,y%|
00000f20  0d 04 ce 0b 20 20 20 20  20 20 cc 0d 04 d8 20 20  |....      ....  |
00000f30  20 20 20 20 20 20 20 5f  6d 65 6e 75 25 3d 5f 69  |       _menu%=_i|
00000f40  63 6f 6e 62 61 72 6d 65  6e 75 25 0d 04 e2 2f 20  |conbarmenu%.../ |
00000f50  20 20 20 20 20 20 20 c8  99 20 22 57 53 57 69 6d  |       .. "WSWim|
00000f60  70 54 6f 6f 6c 73 5f 49  63 6f 6e 42 61 72 4d 65  |pTools_IconBarMe|
00000f70  6e 75 22 2c 5f 6d 65 6e  75 25 0d 04 ec 0b 20 20  |nu",_menu%....  |
00000f80  20 20 20 20 cd 0d 04 f6  10 20 20 20 20 20 20 c9  |    .....      .|
00000f90  20 31 2c 34 3a 0d 05 00  16 20 20 20 20 20 20 c8  | 1,4:....      .|
00000fa0  8e 20 77 69 6e 64 6f 77  24 20 ca 0d 05 0a 19 20  |. window$ ..... |
00000fb0  20 20 20 20 20 20 20 20  c9 20 22 69 63 6f 6e 62  |        . "iconb|
00000fc0  61 72 22 3a 0d 05 14 4e  20 20 20 20 20 20 20 20  |ar":...N        |
00000fd0  20 c8 99 20 22 57 53 57  69 6d 70 54 6f 6f 6c 73  | .. "WSWimpTools|
00000fe0  5f 50 6f 70 4f 70 65 6e  50 61 6e 65 57 69 6e 64  |_PopOpenPaneWind|
00000ff0  6f 77 22 2c 22 6d 61 69  6e 22 2c 2c 31 2c 22 6d  |ow","main",,1,"m|
00001000  61 69 6e 70 61 6e 65 22  2c 77 68 61 6e 64 6c 65  |ainpane",whandle|
00001010  73 25 0d 05 1e 16 20 20  20 20 20 20 20 20 20 c9  |s%....         .|
00001020  20 22 6d 61 69 6e 22 3a  0d 05 28 17 20 20 20 20  | "main":..(.    |
00001030  20 20 20 20 20 c8 8e 20  69 63 6f 6e 25 20 ca 0d  |     .. icon% ..|
00001040  05 32 14 20 20 20 20 20  20 20 20 20 20 20 20 c9  |.2.            .|
00001050  20 33 3a 0d 05 3c 49 20  20 20 20 20 20 20 20 20  | 3:..<I         |
00001060  20 20 20 c8 99 20 22 57  53 57 69 6d 70 54 6f 6f  |   .. "WSWimpToo|
00001070  6c 73 5f 47 65 74 49 63  6f 6e 54 65 78 74 22 2c  |ls_GetIconText",|
00001080  22 6d 61 69 6e 22 2c 32  2c 2c 77 68 61 6e 64 6c  |"main",2,,whandl|
00001090  65 73 25 20 b8 20 74 69  74 6c 65 24 0d 05 46 48  |es% . title$..FH|
000010a0  20 20 20 20 20 20 20 20  20 20 20 20 c8 99 20 22  |            .. "|
000010b0  57 53 57 69 6d 70 54 6f  6f 6c 73 5f 53 65 74 57  |WSWimpTools_SetW|
000010c0  69 6e 64 6f 77 54 69 74  6c 65 22 2c 22 6d 61 69  |indowTitle","mai|
000010d0  6e 22 2c 2c 74 69 74 6c  65 24 2c 77 68 61 6e 64  |n",,title$,whand|
000010e0  6c 65 73 25 0d 05 50 3e  20 20 20 20 20 20 20 20  |les%..P>        |
000010f0  20 20 20 20 c8 99 20 22  57 53 57 69 6d 70 54 6f  |    .. "WSWimpTo|
00001100  6f 6c 73 5f 55 70 64 61  74 65 57 69 6e 64 6f 77  |ols_UpdateWindow|
00001110  22 2c 22 6d 61 69 6e 22  2c 77 68 61 6e 64 6c 65  |","main",whandle|
00001120  73 25 0d 05 5a 44 20 20  20 20 20 20 20 20 20 20  |s%..ZD          |
00001130  20 20 c8 99 20 22 57 53  57 69 6d 70 54 6f 6f 6c  |  .. "WSWimpTool|
00001140  73 5f 53 65 74 4d 65 6e  75 49 74 65 6d 54 65 78  |s_SetMenuItemTex|
00001150  74 22 2c 5f 77 69 6e 74  69 74 6c 65 25 2c 30 2c  |t",_wintitle%,0,|
00001160  74 69 74 6c 65 24 0d 05  64 0e 20 20 20 20 20 20  |title$..d.      |
00001170  20 20 20 cb 0d 05 6e 0b  20 20 20 20 20 20 cb 0d  |   ...n.      ..|
00001180  05 78 14 20 20 20 20 20  20 c9 20 26 31 30 2c 26  |.x.      . &10,&|
00001190  34 30 3a 0d 05 82 62 20  20 20 20 20 20 e7 20 77  |40:...b      . w|
000011a0  69 6e 64 6f 77 24 3d 22  73 61 76 65 22 20 80 20  |indow$="save" . |
000011b0  69 63 6f 6e 25 3d 33 20  8c 20 c8 99 20 22 57 53  |icon%=3 . .. "WS|
000011c0  57 69 6d 70 54 6f 6f 6c  73 5f 53 74 61 72 74 44  |WimpTools_StartD|
000011d0  72 61 67 22 2c 22 73 61  76 65 22 2c 33 2c 31 2c  |rag","save",3,1,|
000011e0  77 68 61 6e 64 6c 65 73  25 20 b8 20 64 72 61 67  |whandles% . drag|
000011f0  74 79 70 65 25 0d 05 8c  08 20 20 20 cb 0d 05 96  |type%....   ....|
00001200  05 e1 0d 05 a0 05 3a 0d  05 aa 16 dd 20 a4 6d 65  |......:..... .me|
00001210  6e 75 5f 63 68 6f 69 63  65 28 62 25 29 0d 05 b4  |nu_choice(b%)...|
00001220  11 20 20 20 ea 20 71 25  2c 69 74 65 6d 24 0d 05  |.   . q%,item$..|
00001230  be 39 20 20 20 c8 99 20  22 57 69 6d 70 5f 44 65  |.9   .. "Wimp_De|
00001240  63 6f 64 65 4d 65 6e 75  22 2c 2c 5f 6d 65 6e 75  |codeMenu",,_menu|
00001250  25 2c 62 25 2c c4 32 35  35 2c 22 20 22 29 b8 2c  |%,b%,.255," ").,|
00001260  2c 2c 69 74 65 6d 24 0d  05 c8 19 20 20 20 e7 20  |,,item$....   . |
00001270  a7 69 74 65 6d 24 2c 22  2e 22 29 3c 3e 30 20 8c  |.item$,".")<>0 .|
00001280  0d 05 d2 26 20 20 20 20  20 20 69 74 65 6d 31 24  |...&      item1$|
00001290  3d c0 69 74 65 6d 24 2c  a7 69 74 65 6d 24 2c 22  |=.item$,.item$,"|
000012a0  2e 22 29 2d 31 29 0d 05  dc 08 20 20 20 cc 0d 05  |.")-1)....   ...|
000012b0  e6 16 20 20 20 20 20 20  69 74 65 6d 31 24 3d 69  |..      item1$=i|
000012c0  74 65 6d 24 0d 05 f0 08  20 20 20 cd 0d 05 fa 12  |tem$....   .....|
000012d0  20 20 20 c8 8e 20 69 74  65 6d 31 24 20 ca 0d 06  |   .. item1$ ...|
000012e0  04 13 20 20 20 20 20 20  c9 20 22 53 61 76 65 22  |..      . "Save"|
000012f0  3a 0d 06 0e 39 20 20 20  20 20 20 c8 99 20 22 57  |:...9      .. "W|
00001300  53 57 69 6d 70 54 6f 6f  6c 73 5f 50 6f 70 4f 70  |SWimpTools_PopOp|
00001310  65 6e 57 69 6e 64 6f 77  22 2c 22 73 61 76 65 22  |enWindow","save"|
00001320  2c 77 68 61 6e 64 6c 65  73 25 0d 06 18 1b 20 20  |,whandles%....  |
00001330  20 20 20 20 c9 20 22 57  69 6e 64 6f 77 20 74 69  |    . "Window ti|
00001340  74 6c 65 22 3a 0d 06 22  26 20 20 20 20 20 20 74  |tle":.."&      t|
00001350  69 74 6c 65 24 3d c1 69  74 65 6d 24 2c a7 69 74  |itle$=.item$,.it|
00001360  65 6d 24 2c 22 2e 22 29  2b 31 29 0d 06 2c 42 20  |em$,".")+1)..,B |
00001370  20 20 20 20 20 c8 99 20  22 57 53 57 69 6d 70 54  |     .. "WSWimpT|
00001380  6f 6f 6c 73 5f 53 65 74  57 69 6e 64 6f 77 54 69  |ools_SetWindowTi|
00001390  74 6c 65 22 2c 22 6d 61  69 6e 22 2c 2c 74 69 74  |tle","main",,tit|
000013a0  6c 65 24 2c 77 68 61 6e  64 6c 65 73 25 0d 06 36  |le$,whandles%..6|
000013b0  38 20 20 20 20 20 20 c8  99 20 22 57 53 57 69 6d  |8      .. "WSWim|
000013c0  70 54 6f 6f 6c 73 5f 55  70 64 61 74 65 57 69 6e  |pTools_UpdateWin|
000013d0  64 6f 77 22 2c 22 6d 61  69 6e 22 2c 77 68 61 6e  |dow","main",whan|
000013e0  64 6c 65 73 25 0d 06 40  40 20 20 20 20 20 20 c8  |dles%..@@      .|
000013f0  99 20 22 57 53 57 69 6d  70 54 6f 6f 6c 73 5f 53  |. "WSWimpTools_S|
00001400  65 74 49 63 6f 6e 54 65  78 74 22 2c 22 6d 61 69  |etIconText","mai|
00001410  6e 22 2c 32 2c 74 69 74  6c 65 24 2c 77 68 61 6e  |n",2,title$,whan|
00001420  64 6c 65 73 25 0d 06 4a  13 20 20 20 20 20 20 c9  |dles%..J.      .|
00001430  20 22 51 75 69 74 22 3a  0d 06 54 0e 20 20 20 20  | "Quit":..T.    |
00001440  20 20 71 25 3d b9 0d 06  5e 08 20 20 20 cb 0d 06  |  q%=...^.   ...|
00001450  68 29 20 20 20 c8 99 20  22 57 53 57 69 6d 70 54  |h)   .. "WSWimpT|
00001460  6f 6f 6c 73 5f 4d 65 6e  75 41 64 6a 75 73 74 22  |ools_MenuAdjust"|
00001470  2c 5f 6d 65 6e 75 25 0d  06 72 07 3d 71 25 0d 06  |,_menu%..r.=q%..|
00001480  7c 05 3a 0d 06 86 20 dd  20 f2 6c 6f 61 64 5f 77  ||.:... . .load_w|
00001490  69 6e 64 6f 77 73 28 6e  24 2c 73 70 72 69 74 65  |indows(n$,sprite|
000014a0  73 25 29 0d 06 90 0e 20  20 20 ea 20 77 25 2c 69  |s%)....   . w%,i|
000014b0  25 0d 06 9a 29 20 20 20  de 20 77 25 20 26 32 30  |%...)   . w% &20|
000014c0  30 30 2c 69 25 20 26 31  30 30 30 2c 77 68 61 6e  |00,i% &1000,whan|
000014d0  64 6c 65 73 25 20 26 31  30 30 0d 06 a4 21 20 20  |dles% &100...!  |
000014e0  20 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 54 65  | .. "Wimp_OpenTe|
000014f0  6d 70 6c 61 74 65 22 2c  2c 6e 24 0d 06 ae 4f 20  |mplate",,n$...O |
00001500  20 20 c8 99 20 22 57 53  57 69 6d 70 54 6f 6f 6c  |  .. "WSWimpTool|
00001510  73 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 73 22  |s_LoadTemplates"|
00001520  2c 2c 77 25 2c 69 25 2c  69 25 2b 26 31 30 30 30  |,,w%,i%,i%+&1000|
00001530  2c 77 68 61 6e 64 6c 65  73 25 2c 73 70 72 69 74  |,whandles%,sprit|
00001540  65 73 25 20 b8 20 6e 75  6d 25 0d 06 b8 1e 20 20  |es% . num%....  |
00001550  20 c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 54  | .. "Wimp_CloseT|
00001560  65 6d 70 6c 61 74 65 22  0d 06 c2 3b 20 20 20 c8  |emplate"...;   .|
00001570  99 20 22 57 53 57 69 6d  70 54 6f 6f 6c 73 5f 53  |. "WSWimpTools_S|
00001580  65 74 49 63 6f 6e 54 65  78 74 22 2c 22 69 6e 66  |etIconText","inf|
00001590  6f 22 2c 36 2c 41 70 70  24 2c 77 68 61 6e 64 6c  |o",6,App$,whandl|
000015a0  65 73 25 0d 06 cc 3f 20  20 20 c8 99 20 22 57 53  |es%...?   .. "WS|
000015b0  57 69 6d 70 54 6f 6f 6c  73 5f 53 65 74 49 63 6f  |WimpTools_SetIco|
000015c0  6e 54 65 78 74 22 2c 22  69 6e 66 6f 22 2c 37 2c  |nText","info",7,|
000015d0  50 75 72 70 6f 73 65 24  2c 77 68 61 6e 64 6c 65  |Purpose$,whandle|
000015e0  73 25 0d 06 d6 3f 20 20  20 c8 99 20 22 57 53 57  |s%...?   .. "WSW|
000015f0  69 6d 70 54 6f 6f 6c 73  5f 53 65 74 49 63 6f 6e  |impTools_SetIcon|
00001600  54 65 78 74 22 2c 22 69  6e 66 6f 22 2c 39 2c 56  |Text","info",9,V|
00001610  65 72 73 69 6f 6e 24 2c  77 68 61 6e 64 6c 65 73  |ersion$,whandles|
00001620  25 0d 06 e0 48 20 20 20  c8 99 20 22 57 53 57 69  |%...H   .. "WSWi|
00001630  6d 70 54 6f 6f 6c 73 5f  53 65 74 49 63 6f 6e 54  |mpTools_SetIconT|
00001640  65 78 74 22 2c 22 6d 61  69 6e 70 61 6e 65 22 2c  |ext","mainpane",|
00001650  30 2c a4 6d 73 67 30 28  22 50 41 4e 45 22 29 2c  |0,.msg0("PANE"),|
00001660  77 68 61 6e 64 6c 65 73  25 0d 06 ea 45 20 20 20  |whandles%...E   |
00001670  c8 99 20 22 57 53 57 69  6d 70 54 6f 6f 6c 73 5f  |.. "WSWimpTools_|
00001680  53 65 74 49 63 6f 6e 54  65 78 74 22 2c 22 6d 61  |SetIconText","ma|
00001690  69 6e 22 2c 34 2c a4 6d  73 67 30 28 22 54 49 54  |in",4,.msg0("TIT|
000016a0  4c 45 22 29 2c 77 68 61  6e 64 6c 65 73 25 0d 06  |LE"),whandles%..|
000016b0  f4 44 20 20 20 c8 99 20  22 57 53 57 69 6d 70 54  |.D   .. "WSWimpT|
000016c0  6f 6f 6c 73 5f 53 65 74  49 63 6f 6e 54 65 78 74  |ools_SetIconText|
000016d0  22 2c 22 73 61 76 65 22  2c 34 2c a4 6d 73 67 30  |","save",4,.msg0|
000016e0  28 22 44 52 41 47 22 29  2c 77 68 61 6e 64 6c 65  |("DRAG"),whandle|
000016f0  73 25 0d 06 fe 4a 20 20  20 c8 99 20 22 57 53 57  |s%...J   .. "WSW|
00001700  69 6d 70 54 6f 6f 6c 73  5f 57 69 6e 64 6f 77 43  |impTools_WindowC|
00001710  6f 6e 76 65 72 74 50 61  72 61 6d 65 74 65 72 22  |onvertParameter"|
00001720  2c 34 2c 77 68 61 6e 64  6c 65 73 25 2c 22 6d 61  |,4,whandles%,"ma|
00001730  69 6e 22 20 b8 20 5f 6d  61 69 6e 25 0d 07 08 05  |in" . _main%....|
00001740  e1 0d 07 12 05 3a 0d 07  1c 1e dd 20 f2 77 69 6d  |.....:..... .wim|
00001750  70 5f 65 72 72 6f 72 28  6e 61 6d 65 24 2c 74 61  |p_error(name$,ta|
00001760  73 6b 25 29 0d 07 26 0e  20 20 20 ea 20 72 25 2c  |sk%)..&.   . r%,|
00001770  74 25 0d 07 30 11 20 20  20 21 5f 65 72 72 6f 72  |t%..0.   !_error|
00001780  25 3d 9f 0d 07 3a 0f 20  20 20 e7 20 9f 3c 3e 31  |%=...:.   . .<>1|
00001790  20 8c 0d 07 44 0e 20 20  20 20 20 20 74 25 3d 33  | ...D.      t%=3|
000017a0  0d 07 4e 25 20 20 20 20  20 20 24 28 5f 65 72 72  |..N%      $(_err|
000017b0  6f 72 25 2b 34 29 3d f6  24 2b 22 2f 22 2b c3 9e  |or%+4)=.$+"/"+..|
000017c0  2b bd 28 30 29 0d 07 58  08 20 20 20 cc 0d 07 62  |+.(0)..X.   ...b|
000017d0  0e 20 20 20 20 20 20 74  25 3d 31 0d 07 6c 1e 20  |.      t%=1..l. |
000017e0  20 20 20 20 20 24 28 5f  65 72 72 6f 72 25 2b 34  |     $(_error%+4|
000017f0  29 3d f6 24 2b bd 28 30  29 0d 07 76 08 20 20 20  |)=.$+.(0)..v.   |
00001800  cd 0d 07 80 33 20 20 20  c8 99 20 22 57 69 6d 70  |....3   .. "Wimp|
00001810  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 5f 65  |_ReportError",_e|
00001820  72 72 6f 72 25 2c 74 25  2c 6e 61 6d 65 24 20 b8  |rror%,t%,name$ .|
00001830  20 2c 72 25 0d 07 8a 0f  20 20 20 e7 20 72 25 3d  | ,r%....   . r%=|
00001840  32 20 8c 0d 07 94 2e 20  20 20 20 20 20 c8 99 20  |2 .....      .. |
00001850  22 57 53 57 69 6d 70 54  6f 6f 6c 73 5f 44 65 52  |"WSWimpTools_DeR|
00001860  65 67 69 73 74 65 72 22  2c 5f 74 61 73 6b 49 44  |egister",_taskID|
00001870  25 0d 07 9e 1c 20 20 20  20 20 20 f2 63 6c 6f 73  |%....      .clos|
00001880  65 5f 64 6f 77 6e 28 74  61 73 6b 25 29 0d 07 a8  |e_down(task%)...|
00001890  0b 20 20 20 20 20 20 e0  0d 07 b2 08 20 20 20 cd  |.      .....   .|
000018a0  0d 07 bc 05 e1 0d 07 c6  05 3a 0d 07 d0 18 dd 20  |.........:..... |
000018b0  a4 73 74 61 72 74 5f 74  61 73 6b 28 6e 61 6d 65  |.start_task(name|
000018c0  24 29 0d 07 da 0b 20 20  20 ea 20 74 25 0d 07 e4  |$)....   . t%...|
000018d0  3d 20 20 20 c8 99 20 22  57 69 6d 70 5f 49 6e 69  |=   .. "Wimp_Ini|
000018e0  74 69 61 6c 69 73 65 22  2c 32 30 30 2c 26 34 42  |tialise",200,&4B|
000018f0  35 33 34 31 35 34 2c 6e  61 6d 65 24 20 b8 20 77  |534154,name$ . w|
00001900  69 6d 70 76 65 72 25 2c  74 25 0d 07 ee 07 3d 74  |impver%,t%....=t|
00001910  25 0d 07 f8 05 3a 0d 08  02 15 dd 20 f2 63 6c 6f  |%....:..... .clo|
00001920  73 65 5f 64 6f 77 6e 28  74 25 29 0d 08 0c 27 20  |se_down(t%)...' |
00001930  20 20 c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |  .. "Wimp_Close|
00001940  44 6f 77 6e 22 2c 74 25  2c 26 34 42 35 33 34 31  |Down",t%,&4B5341|
00001950  35 34 0d 08 16 05 e1 0d  08 20 05 3a 0d 08 2a 1b  |54....... .:..*.|
00001960  dd 20 a4 77 61 72 6e 69  6e 67 28 6d 65 73 73 24  |. .warning(mess$|
00001970  2c 74 79 70 65 25 29 0d  08 34 0c 20 20 20 ea 20  |,type%)..4.   . |
00001980  6f 6b 25 0d 08 3e 2a 20  20 20 24 77 61 72 6e 69  |ok%..>*   $warni|
00001990  6e 67 6e 61 6d 65 25 3d  22 57 61 72 6e 69 6e 67  |ngname%="Warning|
000019a0  20 66 72 6f 6d 20 21 22  2b 41 70 70 24 0d 08 48  | from !"+App$..H|
000019b0  12 20 20 20 21 77 61 72  6e 69 6e 67 25 3d 31 0d  |.   !warning%=1.|
000019c0  08 52 1a 20 20 20 24 28  77 61 72 6e 69 6e 67 25  |.R.   $(warning%|
000019d0  2b 34 29 3d 6d 65 73 73  24 0d 08 5c 3f 20 20 20  |+4)=mess$..\?   |
000019e0  c8 99 20 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |.. "Wimp_ReportE|
000019f0  72 72 6f 72 22 2c 77 61  72 6e 69 6e 67 25 2c 74  |rror",warning%,t|
00001a00  79 70 65 25 2c 77 61 72  6e 69 6e 67 6e 61 6d 65  |ype%,warningname|
00001a10  25 20 b8 20 2c 6f 6b 25  0d 08 66 0c 3d 28 6f 6b  |% . ,ok%..f.=(ok|
00001a20  25 3d 31 29 0d 08 70 05  3a 0d 08 7a 1b dd 20 f2  |%=1)..p.:..z.. .|
00001a30  6c 6f 61 64 5f 6d 65 73  73 61 67 65 73 28 66 69  |load_messages(fi|
00001a40  6c 65 24 29 0d 08 84 37  20 20 20 c8 99 20 22 4d  |le$)...7   .. "M|
00001a50  65 73 73 61 67 65 54 72  61 6e 73 5f 4f 70 65 6e  |essageTrans_Open|
00001a60  46 69 6c 65 22 2c 6d 74  61 62 25 2c 66 69 6c 65  |File",mtab%,file|
00001a70  24 2c 6d 65 73 73 61 67  65 73 25 0d 08 8e 05 e1  |$,messages%.....|
00001a80  0d 08 98 05 3a 0d 08 a2  21 dd 20 a4 6d 73 67 28  |....:...!. .msg(|
00001a90  66 69 6e 64 24 2c 70 30  24 2c 70 31 24 2c 70 32  |find$,p0$,p1$,p2|
00001aa0  24 2c 70 33 24 29 0d 08  ac 0e 20 20 20 ea 20 61  |$,p3$)....   . a|
00001ab0  25 2c 61 24 0d 08 b6 4e  20 20 20 c8 99 20 22 4d  |%,a$...N   .. "M|
00001ac0  65 73 73 61 67 65 54 72  61 6e 73 5f 4c 6f 6f 6b  |essageTrans_Look|
00001ad0  75 70 22 2c 6d 74 61 62  25 2c 66 69 6e 64 24 2c  |up",mtab%,find$,|
00001ae0  62 75 66 66 65 72 25 2c  32 35 36 2c 70 30 24 2c  |buffer%,256,p0$,|
00001af0  70 31 24 2c 70 32 24 2c  70 33 24 20 b8 20 2c 2c  |p1$,p2$,p3$ . ,,|
00001b00  61 25 0d 08 c0 27 20 20  20 c8 99 20 22 57 53 57  |a%...'   .. "WSW|
00001b10  69 6d 70 54 6f 6f 6c 73  5f 47 65 74 54 65 78 74  |impTools_GetText|
00001b20  22 2c 61 25 20 b8 20 61  24 0d 08 ca 07 3d 61 24  |",a% . a$....=a$|
00001b30  0d 08 d4 05 3a 0d 08 de  12 dd 20 a4 6d 73 67 30  |....:..... .msg0|
00001b40  28 66 69 6e 64 24 29 0d  08 e8 1c 3d a4 6d 73 67  |(find$)....=.msg|
00001b50  28 66 69 6e 64 24 2c 22  22 2c 22 22 2c 22 22 2c  |(find$,"","","",|
00001b60  22 22 29 0d 08 f2 05 3a  0d 08 fc 16 dd 20 a4 6d  |"")....:..... .m|
00001b70  73 67 31 28 66 69 6e 64  24 2c 70 30 24 29 0d 09  |sg1(find$,p0$)..|
00001b80  06 1d 3d a4 6d 73 67 28  66 69 6e 64 24 2c 70 30  |..=.msg(find$,p0|
00001b90  24 2c 22 22 2c 22 22 2c  22 22 29 0d ff           |$,"","","")..|
00001b9d

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .