Home » Archimedes archive » Micro User » MU 1991-04.adf » PD-Stuff » !SetType/!RunImage
!SetType/!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 1991-04.adf » PD-Stuff |
| Filename: | !SetType/!RunImage |
| Read OK: | ✔ |
| File size: | 2BBC bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >$.Tools.!SetType.!RunImage
20
30REM Version 1.01 (RISC-OS only)
40
50REM Original Author : Paul Hobbs
60REM : 5, Amersham Avenue, Basildon, Essex SS16 6SJ
70REM : (0268) 541170
80
90REM ShareWare Software - pass it on!
100
110REM -------------------- Initialisation ----------------------------------
120
130version$="1.01 (09-Sep-89)"
140DIM q% 500,msgblk 200,blk 50
150$q%="TASK"
160SYS "Wimp_Initialise",200,!q%,"SetType Utility" TO ,task
170SYS "Hourglass_On"
180
190REM -------------------- Load Sprite File --------------------------------
200
210REM -------------------- Place Sprite On Icon Bar ------------------------
220
230sicon=FNspriteicon(-1,0,0,68,68,&3102,1,"!settype")
240
250REM -------------------- Initialise Constants ----------------------------
260
270REM Menu title flags
280
290menu_title_fg= 7
300menu_title_bg= 2
310menu_work_fg = 7
320menu_work_bg = 0
330
340REM menu flags
350
360tick =&01
370dotted =&02
380writeable=&04
390last =&80
400default =&10021
410shaded =&400000
420first =TRUE
430second =FALSE
440sel =TRUE
450
460REM -------------------- Initialise Variables ----------------------------
470
480claimmenu$ = ""
490close_down = FALSE
500error_flag% = 3
510
520REM -------------------- Initialise Arrays -------------------------------
530
540DIM text$(5),setting(5),flags(5),data(5)
550DIM submenu(5),ref(5),menupos(5)
560
570REM -------------------- Initialise Storage ------------------------------
580
590DIM menu% 100
600DIM indirect% 400
610
620REM -------------------- Miscelleanous Initialisation --------------------
630
640iptr%=indirect%:iend%=iptr%+400
650
660REM -------------------- Load Template Files -----------------------------
670
680PROCopentemplatefile("<SetType$Dir>.Templates")
690PROCloadtemplate("settype",q%)
700SYS "Wimp_CreateWindow",,q% TO settype%
710PROCloadtemplate("progInfo",q%)
720SYS "Wimp_CreateWindow",,q% TO info%
730PROCclosetemplatefile
740
750REM -------------------- Application Initialisation ----------------------
760
770REM global variables
780
790open = FALSE
800current_file$ = ""
810
820REM -------------------- Define Icons ------------------------------------
830
840PROCicon_putdata(q%,info%,4,version$,0)
850PROCicon_putdata(q%,settype%,4,current_file$,0)
860
870REM -------------------- Launch Initial Windows --------------------------
880
890SYS "Hourglass_Off"
900
910REM -------------------- Main Program Loop -------------------------------
920
930ON ERROR PROCerror
940REPEAT
950 PROCaction(FNpoll(1))
960UNTIL close_down
970
980REM -------------------- Application Closedown ---------------------------
990
1000SYS "Wimp_CloseDown"
1010END
1020
1030REM ----------------------------------------------------------------------
1040
1050DEFPROCerror
1060IF error_flag%=3 THEN
1070 CASE ERR OF
1080 WHEN 168
1090 PROCerrorbox("Can't change the filetype of a directory",1)
1100 WHEN 1053
1110 PROCerrorbox("Unknown file type",1)
1120 OTHERWISE
1130 PROCerrorbox("Unexpected error:- "+REPORT$+" Internal error code "+STR$ERL,3)
1140 ENDCASE
1150ELSE
1160 PROCerrorbox(REPORT$,error_flag%)
1170ENDIF
1180error_flag%=3
1190SYS "Hourglass_Smash"
1200ENDPROC
1210
1220DEFPROCok(e$)
1230error_flag%=1
1240ERROR 1,e$
1250ENDPROC
1260
1270DEFPROCfatal
1280error_flag%=2
1290ERROR 1,e$
1300ENDPROC
1310
1320DEFPROCerrorbox(r$,flag%)
1330LOCAL r%
1340!q%=ERR:$(q%+4)=r$+CHR$(0)
1350SYS "Wimp_ReportError",q%,flag%,"SetType Utility" TO r%
1360IF r%=2 THEN closedown=TRUE
1370ENDPROC
1380
1390DEFPROCclickwindow(mousex%,mousey%,button%,handle%,icon%,ob%)
1400CASE handle% OF
1410 WHEN settype% :PROCclicksettype(button%,icon%)
1420 WHEN -2 :PROCclickiconbar(button%,icon%)
1430ENDCASE
1440ENDPROC
1450
1460DEFPROCclickiconbar(button%,icon%)
1470IF icon%<0 THEN ENDPROC
1480CASE TRUE OF
1490 WHEN button%=4
1500 IF icon%=sicon AND (NOT open) THEN
1510 !q%=settype%
1520 SYS "Wimp_GetWindowState",,q%
1530 SYS "Wimp_OpenWindow",,q%
1540 PROCcaret_setposition(settype%,0,-1,-1,-1,-1)
1550 open=TRUE
1560 ENDIF
1570 WHEN button%=2
1580 IF icon%=sicon THEN
1590 PROCmenu_sicon
1600 ENDIF
1610ENDCASE
1620ENDPROC
1630
1640DEFPROCclicksettype(button%,icon%)
1650CASE TRUE OF
1660WHEN (button% AND 4)=4 AND icon%<>-1
1670 IF icon%=2 THEN
1680 PROCok_settype
1690 ENDIF
1700ENDCASE
1710ENDPROC
1720
1730DEFPROCredrawwindow(handle%)
1740q%!0=handle%
1750SYS "Wimp_RedrawWindow",0,q% TO more%
1760PROClwaorigin(q%+4,x0%,y0%)
1770WHILE more%
1780 PROCnewvals
1790 CASE handle% OF
1800 ENDCASE
1810 SYS "Wimp_GetRectangle",0,q% TO more%
1820ENDWHILE
1830ENDPROC
1840
1850DEFFNoktoclosew(handle%)
1860shutting=TRUE
1870open=FALSE
1880=shutting
1890
1900DEFFNoktodeletew(handle%)
1910IF handle%=-1:=FALSE
1920=TRUE
1930
1940DEFFNmenuselect_sicon
1950level0=q%!0
1960CASE level0 OF
1970 WHEN 0
1980 WHEN 1
1990 close_down=TRUE
2000ENDCASE
2010=0
2020
2030DEFPROCmenu_sicon
2040no=0:MOUSE x,y,b :y=y+100
2050REM menu0
2060PROCdefine_menu_text("Info",no,0,0,0,0,default,info%,0):no+=1
2070PROCdefine_menu_text("Quit",no,0,0,0,0,default,0,-1):no+=1
2080PROCcreate_menu("SetType",no,x,y)
2090menu_nr%=0
2100claimmenu$="sicon"
2110ENDPROC
2120
2130DEFPROCdataload(b)
2140current_file$=FNgname(q%+44)
2150PROCicon_putdata(q%,settype%,4,FNleaf(current_file$),1)
2160ENDPROC
2170
2180DEFPROCackload(b)
2190ENDPROC
2200b!12=b!8:b!16=4:!b=64
2210SYS "Wimp_SendMessage",17,b,b!4
2220ENDPROC
2230
2240DEFPROCfinish
2250SYS "Wimp_CloseDown"
2260ENDPROC
2270
2280DEFPROCclose_down
2290SYS "Wimp_CloseDown"
2300MODE 12
2310*FX4,0
2320*FX220,0
2330ENDPROC
2340
2350DEFPROCopenwindow(handle%,full%,front%)
2360q%!0=handle%
2370IF NOT full% THEN SYS "Wimp_GetWindowState",0,q%
2380IF front% THEN q%!28=-1
2390SYS "Wimp_OpenWindow",0,q%
2400ENDPROC
2410
2420DEFPROCclosewindow(handle%)
2430IF FNoktoclosew(handle%) THEN
2440 q%!0=handle%
2450 SYS "Wimp_CloseWindow",0,q%
2460ENDIF
2470ENDPROC
2480
2490DEFPROCdeletewindow(handle%)
2500IF FNoktodeletew(handle%) THEN
2510 q%!0=handle%
2520 SYS "Wimp_DeleteWindow",,q%
2530 PROCmouse_rectangle(0,0,1279,1023)
2540 handle%=-1
2550ENDIF
2560ENDPROC
2570
2580DEFPROCcliprect(b,RETURN x1%,RETURN y1%,RETURN x2%,RETURN y2%)
2590LOCAL x0%,y0%
2600PROClwaorigin(b,x0%,y0%):x1%=b!24-x0%:y1%=b!28-y0%:x2%=b!32-x0%
2610y2%=b!36-y0%
2620ENDPROC
2630
2640DEFFNpoll(mask%)
2650SYS "Wimp_Poll",mask%,q% TO a%
2660=a%
2670
2680DEFPROCaction(evnt%)
2690CASE evnt% OF
2700 WHEN 0:PROCdo_background_task
2710 WHEN 1:PROCredrawwindow(q%!0)
2720 WHEN 2:PROCopenwindow(q%!0,TRUE,0)
2730 WHEN 3:PROCclosewindow(q%!0)
2740 WHEN 4:
2750 WHEN 5:
2760 WHEN 6:PROCclickwindow(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
2770 WHEN 8:PROCkeypress
2780 WHEN 9:IF claimmenu$<>"" THEN junk=EVAL("FNmenuselect_"+claimmenu$)
2790 WHEN 17,18:PROCreceive(q%)
2800ENDCASE
2810ENDPROC
2820
2830DEFPROCreceive(q%)
2840CASE q%!16 OF
2850WHEN 0 :PROCfinish:END
2860WHEN 2 :PROCdatasave(q%)
2870WHEN 3,5 :IF q%!12=0 THEN PROCdataload(q%)
2880WHEN &502:PROCinteractive_help(q%)
2890ENDCASE
2900ENDPROC
2910
2920DEFPROClwaorigin(b,RETURN x%,RETURN y%)
2930x%=b!0-b!16:y%=b!12-b!20
2940ENDPROC
2950
2960DEFPROCicon_putdata(q%,whandle%,ihandle%,data$,redraw)
2970q%!0=whandle%
2980q%!4=ihandle%
2990SYS "Wimp_GetIconState",,q%
3000$(q%!28)=data$
3010IF redraw THEN
3020 SYS "Wimp_ForceRedraw",whandle%,q%!8,q%!12,q%!16,q%!20
3030ENDIF
3040ENDPROC
3050
3060DEFFNicon_getdata(q%,whandle%,ihandle%)
3070q%!0=whandle%
3080q%!4=ihandle%
3090SYS "Wimp_GetIconState",,q%
3100=$(q%!28)
3110
3120DEFPROCcaret_setposition(whandle%,ihandle%,xoff%,yoff%,height%,index%)
3130SYS "Wimp_SetCaretPosition",whandle%,ihandle%,xoff%,yoff%,height%,index%
3140ENDPROC
3150
3160DEFPROCdefine_menu_text(text$,n,w,t,d,s,flags,sm,l)
3170text$(n)=text$
3180setting(n)=0
3190IF w THEN setting(n)=setting(n) OR writeable:flags=flags OR &100
3200IF t THEN setting(n)=setting(n) OR tick
3210IF d THEN setting(n)=setting(n) OR dotted
3220IF l THEN setting(n)=setting(n) OR last
3230IF s THEN flags=flags OR shaded
3240flags(n)=flags
3250submenu(n)=sm
3260ENDPROC
3270
3280DEFPROCcreate_menu(title$,n,x,y)
3290mb%=menu%
3300menus=0:q=0
3310REPEAT
3320 menupos(menus)=mb%:menus+=1
3330 $mb%=title$
3340 mb%?12=menu_title_fg
3350 mb%?13=menu_title_bg
3360 mb%?14=menu_work_fg
3370 mb%?15=menu_work_bg
3380 mb%!16=100:REM width of menu items
3390 mb%!20=40 :REM height of menu items
3400 mb%!24=10 :REM vertical gap between items (also top & bottom)
3410 itemptr=mb%+28
3420 REPEAT
3430 itemptr!0=setting(q)
3440 ref(q)=itemptr+4
3450 itemptr!8=flags(q) OR menu_work_bg<<28 OR menu_work_fg<<24
3460 IF (flags(q) AND &100)=0 THEN
3470 $(itemptr+12)=text$(q)
3480 ELSE
3490 pos=INSTR(text$(q),"(")
3500 itemptr!12=EVAL(LEFT$(text$(q),pos-1))
3510 itemptr!16=-1
3520 itemptr!20=EVAL(RIGHT$(text$(q),LEN(text$(q))-pos))
3530 ENDIF
3540 itemptr+=24:q+=1
3550 UNTIL (setting(q-1) AND last)>0
3560 mb%=itemptr
3570 IF q<>n THEN title$=text$(q):q+=1
3580UNTIL q=n
3590
3600FOR q=0 TO n-1
3610 IF submenu(q)>0 AND submenu(q)<menus THEN
3620 !ref(q)=menupos(submenu(q))
3630 ELSE
3640 !ref(q)=submenu(q):REM was -1 i.e. submenu disallowed! This change
3650 :REM allows a window handle to be used
3660 ENDIF
3670NEXT q
3680SYS "Wimp_CreateMenu",,menu%,x-64,196
3690ENDPROC
3700:
3710DEFFNin(A%,B%,C%,D%)
3720IF C%<ebx THEN =FALSE
3730IF A%>etx THEN =FALSE
3740IF B%>ety THEN =FALSE
3750IF D%<eby THEN =FALSE
3760=TRUE
3770:
3780DEFPROCnewvals
3790gbx=q%!28:gby=q%!32
3800gtx=q%!36:gty=q%!40
3810wbx=q%!4:wby=q%!8
3820wtx=q%!12:wty=q%!16
3830xsc=q%!20:ysc=q%!24
3840hp=wtx-wbx:vp=wty-wby:ebx=xsc
3850etx=xsc+hp:ety=ysc:eby=ysc-vp
3860ENDPROC
3870:
3880DEFFNmax(a%,b%)
3890IF a%<b% THEN =b% ELSE =a%
3900:
3910DEFPROCopentemplatefile(file$)
3920SYS "Wimp_OpenTemplate",,file$
3930ENDPROC
3940:
3950DEFPROCloadtemplate(name$,b)
3960LOCAL type%,pos%,x%
3970SYS "Wimp_LoadTemplate",,b,iptr%,iend%,-1,name$,0 TO type%,,iptr%,,,,pos%
3980ENDPROC
3990
4000DEFPROCclosetemplatefile
4010SYS "Wimp_CloseTemplate"
4020ENDPROC
4030
4040DEFPROCmouse_limit(b,whandle%)
4050b!0=whandle%:SYS "Wimp_GetWindowState",,b
4060PROCmouse_rectangle(b!4,b!8,b!12-b!4,b!16-b!8)
4070ENDPROC
4080
4090DEFFNspriteicon(window,x0,y0,x1,y1,flags,sptr,sname$)
4100DIM q%!24 LENsname$+1:q%!28=sptr
4110q%!32=LENsname$+1:$q%!24=sname$
4120=FNiconblk(window,x0,y0,x1,y1,flags)
4130
4140DEFFNiconblk(window,x0,y0,x1,y1,flags)
4150LOCAL icon
4160!q%=window
4170q%!4=x0:q%!8=y0
4180q%!12=x1:q%!16=y1
4190q%!20=flags
4200SYS "Wimp_CreateIcon",,q% TO icon
4210=icon
4220
4230DEFFNgname(ptr)
4240f$=""
4250WHILE ?ptr<>0 AND ?ptr<>13
4260 f$=f$+CHR$?ptr:ptr+=1
4270ENDWHILE
4280=f$
4290
4300DEFPROCmouse_rectangle(x%,y%,w%,h%)
4310MOUSE RECTANGLE x%,y%,w%,h%
4320mouseminx%=x%:mouseminy%=y%
4330mousewidth%=w%:mouseheight%=h%
4340ENDPROC
4350
4360DEFFNleaf(path$)
4370WHILE INSTR(path$,".")
4380path$=MID$(path$,INSTR(path$,".")+1)
4390ENDWHILE
4400=path$
4410
4420DEFPROCkeypress
4430LOCAL ic%
4440IF q%!4<>-1 THEN
4450 SYS "Wimp_GetCaretPosition",,blk
4460 ic%=blk!4
4470 CASE q%!24 OF
4480 WHEN 13
4490 CASE q%!0 OF
4500 WHEN settype%
4510 CASE ic% OF
4520 WHEN 0
4530 PROCok_settype
4540 ENDCASE
4550 ENDCASE
4560 ENDCASE
4570ENDIF
4580ENDPROC
4590
4600DEFPROCok_settype
4610PROCicon_setfgcolour(q%,settype%,2,12)
4620PROCicon_setbgcolour(q%,settype%,2,7)
4630PROCdelay(0.2)
4640PROCicon_setfgcolour(q%,settype%,2,7)
4650PROCicon_setbgcolour(q%,settype%,2,12)
4660IF FNicon_getdata(q%,settype%,0)="" THEN PROCok("No type input")
4670OSCLI("SETTYPE "+current_file$+" "+FNicon_getdata(q%,settype%,0))
4680ENDPROC
4690
4700DEFPROCicon_setbgcolour(b,whandle%,icon%,col%)
4710!b=whandle%:b!4=icon%:b!8=col%<<28:b!12=&F0000000
4720SYS "Wimp_SetIconState",0,b
4730ENDPROC
4740
4750DEFPROCicon_setfgcolour(b,whandle%,icon%,col%)
4760!b=whandle%:b!4=icon%:b!8=col%<<24:b!12=&0F000000
4770SYS "Wimp_SetIconState",0,b
4780ENDPROC
4790
4800DEFPROCdelay(seconds)
4810LOCAL time
4820time = TIME + (seconds * 100)
4830REPEAT
4840UNTIL TIME > time
4850ENDPROC
4860
4870DEFPROCinteractive_help(q%)
4880LOCAL t$
4890CASE q%!32 OF
4900 WHEN -2
4910 t$="This is the SetType icon.|MClick SELECT on this to open the window. Files may be dragged to this icon to change their type.|MClick MENU to obtain information or quit the application."
4920 WHEN settype%
4930 CASE q%!36 OF
4940 WHEN 0
4950 t$="Type the filetype name or number here."
4960 WHEN 2
4970 t$="Clicking SELECT on this icon attempts to set the filetype."
4980 WHEN 4
4990 t$="Dragging a file to this window or the iconbar icon places the filename here."
5000 ENDCASE
5010ENDCASE
5020IF t$<>"" THEN
5030 q%!12=q%!8
5040 q%!16=&503
5050 $(q%+20)=t$+CHR$0
5060 !q%=(25+LENt$) AND NOT 3
5070 SYS "Wimp_SendMessage",17,q%,q%!4
5080ENDIF
5090ENDPROC
!� >$.Tools.!SetType.!RunImage
!� Version 1.01 (RISC-OS only)
(
2#� Original Author : Paul Hobbs
<E� : 5, Amersham Avenue, Basildon, Essex SS16 6SJ
F&� : (0268) 541170
P
Z&� ShareWare Software - pass it on!
d
nL� -------------------- Initialisation ----------------------------------
x
� version$="1.01 (09-Sep-89)"
� � q% 500,msgblk 200,blk 50
�$q%="TASK"
�:ș "Wimp_Initialise",200,!q%,"SetType Utility" � ,task
�ș "Hourglass_On"
�
�L� -------------------- Load Sprite File --------------------------------
�
�L� -------------------- Place Sprite On Icon Bar ------------------------
�
�6sicon=�spriteicon(-1,0,0,68,68,&3102,1,"!settype")
�
�L� -------------------- Initialise Constants ----------------------------
� Menu title flags
"menu_title_fg= 7
,menu_title_bg= 2
6menu_work_fg = 7
@menu_work_bg = 0
J
T� menu flags
^
htick =&01
rdotted =&02
|writeable=&04
�last =&80
�default =&10021
�shaded =&400000
�first =�
�second =�
�sel =�
�
�L� -------------------- Initialise Variables ----------------------------
�
�claimmenu$ = ""
�close_down = �
�error_flag% = 3
�
L� -------------------- Initialise Arrays -------------------------------
*� text$(5),setting(5),flags(5),data(5)
&"� submenu(5),ref(5),menupos(5)
0
:L� -------------------- Initialise Storage ------------------------------
D
N� menu% 100
X� indirect% 400
b
lL� -------------------- Miscelleanous Initialisation --------------------
v
�#iptr%=indirect%:iend%=iptr%+400
�
�L� -------------------- Load Template Files -----------------------------
�
�0�opentemplatefile("<SetType$Dir>.Templates")
� �loadtemplate("settype",q%)
�)ș "Wimp_CreateWindow",,q% � settype%
� �loadtemplate("progInfo",q%)
�&ș "Wimp_CreateWindow",,q% � info%
��closetemplatefile
�
�L� -------------------- Application Initialisation ----------------------
�
� global variables
open = �
current_file$ = ""
*
4L� -------------------- Define Icons ------------------------------------
>
H(�icon_putdata(q%,info%,4,version$,0)
R0�icon_putdata(q%,settype%,4,current_file$,0)
\
fL� -------------------- Launch Initial Windows --------------------------
p
zș "Hourglass_Off"
�
�L� -------------------- Main Program Loop -------------------------------
�
�� � �error
��
� �action(�poll(1))
�� close_down
�
�L� -------------------- Application Closedown ---------------------------
�
�ș "Wimp_CloseDown"
��
�
L� ----------------------------------------------------------------------
��error
$� error_flag%=3 �
. Ȏ � �
8
� 168
BA �errorbox("Can't change the filetype of a directory",1)
L � 1053
V* �errorbox("Unknown file type",1)
`
jJ �errorbox("Unexpected error:- "+�$+" Internal error code "+Þ,3)
t �
~�
� �errorbox(�$,error_flag%)
��
�error_flag%=3
�ș "Hourglass_Smash"
��
�
� ��ok(e$)
�error_flag%=1
�
� 1,e$
��
�
� ��fatal
error_flag%=2
� 1,e$
�
(��errorbox(r$,flag%)
2� r%
<!q%=�:$(q%+4)=r$+�(0)
F9ș "Wimp_ReportError",q%,flag%,"SetType Utility" � r%
P� r%=2 � closedown=�
Z�
d
n<��clickwindow(mousex%,mousey%,button%,handle%,icon%,ob%)
xȎ handle% �
�/ � settype% :�clicksettype(button%,icon%)
�/ � -2 :�clickiconbar(button%,icon%)
��
��
�
�!��clickiconbar(button%,icon%)
�� icon%<0 � �
�
Ȏ � �
� � button%=4
�" � icon%=sicon � (� open) �
� !q%=settype%
�& ș "Wimp_GetWindowState",,q%
�" ș "Wimp_OpenWindow",,q%
4 �caret_setposition(settype%,0,-1,-1,-1,-1)
open=�
�
" � button%=2
, � icon%=sicon �
6 �menu_sicon
@ �
J�
T�
^
h!��clicksettype(button%,icon%)
r
Ȏ � �
|!� (button% � 4)=4 � icon%<>-1
� � icon%=2 �
� �ok_settype
� �
��
��
�
���redrawwindow(handle%)
�q%!0=handle%
�'ș "Wimp_RedrawWindow",0,q% � more%
� �lwaorigin(q%+4,x0%,y0%)
� ȕ more%
� �newvals
� Ȏ handle% �
�
) ș "Wimp_GetRectangle",0,q% � more%
�
&�
0
:ݤoktoclosew(handle%)
Dshutting=�
N
open=�
X
=shutting
b
lݤoktodeletew(handle%)
v� handle%=-1:=�
�=�
�
�ݤmenuselect_sicon
�level0=q%!0
�Ȏ level0 �
� � 0
� � 1
� close_down=�
��
�=0
�
���menu_sicon
�no=0:ȗ x,y,b :y=y+100
� menu0
>�define_menu_text("Info",no,0,0,0,0,default,info%,0):no+=1
;�define_menu_text("Quit",no,0,0,0,0,default,0,-1):no+=1
"�create_menu("SetType",no,x,y)
*menu_nr%=0
4claimmenu$="sicon"
>�
H
R��dataload(b)
\ current_file$=�gname(q%+44)
f7�icon_putdata(q%,settype%,4,�leaf(current_file$),1)
p�
z
���ackload(b)
��
�b!12=b!8:b!16=4:!b=64
�"ș "Wimp_SendMessage",17,b,b!4
��
�
� ��finish
�ș "Wimp_CloseDown"
��
�
���close_down
�ș "Wimp_CloseDown"
�� 12
*FX4,0
*FX220,0
�
$
.&��openwindow(handle%,full%,front%)
8q%!0=handle%
B-� � full% � ș "Wimp_GetWindowState",0,q%
L� front% � q%!28=-1
V ș "Wimp_OpenWindow",0,q%
`�
j
t��closewindow(handle%)
~ � �oktoclosew(handle%) �
� q%!0=handle%
� ș "Wimp_CloseWindow",0,q%
��
��
�
���deletewindow(handle%)
� � �oktodeletew(handle%) �
� q%!0=handle%
� ș "Wimp_DeleteWindow",,q%
�% �mouse_rectangle(0,0,1279,1023)
� handle%=-1
��
�
)��cliprect(b,� x1%,� y1%,� x2%,� y2%)
� x0%,y0%
(@�lwaorigin(b,x0%,y0%):x1%=b!24-x0%:y1%=b!28-y0%:x2%=b!32-x0%
2y2%=b!36-y0%
<�
F
Pݤpoll(mask%)
Z ș "Wimp_Poll",mask%,q% � a%
d=a%
n
x��action(evnt%)
�Ȏ evnt% �
� � 0:�do_background_task
� � 1:�redrawwindow(q%!0)
� � 2:�openwindow(q%!0,�,0)
� � 3:�closewindow(q%!0)
�
� 4:
�
� 5:
�7 � 6:�clickwindow(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
� � 8:�keypress
�? � 9:� claimmenu$<>"" � junk=�("FNmenuselect_"+claimmenu$)
� � 17,18:�receive(q%)
��
��
��receive(q%)
Ȏ q%!16 �
"� 0 :�finish:�
,� 2 :�datasave(q%)
6$� 3,5 :� q%!12=0 � �dataload(q%)
@ � &502:�interactive_help(q%)
J�
T�
^
h ��lwaorigin(b,� x%,� y%)
r x%=b!0-b!16:y%=b!12-b!20
|�
�
�5��icon_putdata(q%,whandle%,ihandle%,data$,redraw)
�q%!0=whandle%
�q%!4=ihandle%
� ș "Wimp_GetIconState",,q%
�$(q%!28)=data$
�� redraw �
�; ș "Wimp_ForceRedraw",whandle%,q%!8,q%!12,q%!16,q%!20
��
��
�
�(ݤicon_getdata(q%,whandle%,ihandle%)
�q%!0=whandle%
q%!4=ihandle%
ș "Wimp_GetIconState",,q%
=$(q%!28)
&
0E��caret_setposition(whandle%,ihandle%,xoff%,yoff%,height%,index%)
:Kș "Wimp_SetCaretPosition",whandle%,ihandle%,xoff%,yoff%,height%,index%
D�
N
X2��define_menu_text(text$,n,w,t,d,s,flags,sm,l)
btext$(n)=text$
lsetting(n)=0
v>� w � setting(n)=setting(n) � writeable:flags=flags � &100
�&� t � setting(n)=setting(n) � tick
�(� d � setting(n)=setting(n) � dotted
�&� l � setting(n)=setting(n) � last
� � s � flags=flags � shaded
�flags(n)=flags
�submenu(n)=sm
��
�
� ��create_menu(title$,n,x,y)
�
mb%=menu%
�menus=0:q=0
��
�! menupos(menus)=mb%:menus+=1
$mb%=title$
mb%?12=menu_title_fg
mb%?13=menu_title_bg
mb%?14=menu_work_fg
* mb%?15=menu_work_bg
4& mb%!16=100:� width of menu items
>' mb%!20=40 :� height of menu items
HA mb%!24=10 :� vertical gap between items (also top & bottom)
R itemptr=mb%+28
\ �
f itemptr!0=setting(q)
p ref(q)=itemptr+4
z@ itemptr!8=flags(q) � menu_work_bg<<28 � menu_work_fg<<24
� � (flags(q) � &100)=0 �
� $(itemptr+12)=text$(q)
� �
� pos=�text$(q),"(")
�( itemptr!12=�(�text$(q),pos-1))
� itemptr!16=-1
�2 itemptr!20=�(�text$(q),�(text$(q))-pos))
� �
� itemptr+=24:q+=1
� � (setting(q-1) � last)>0
� mb%=itemptr
�# � q<>n � title$=text$(q):q+=1
� � q=n
� q=0 � n-1
) � submenu(q)>0 � submenu(q)<menus �
$# !ref(q)=menupos(submenu(q))
. �
8H !ref(q)=submenu(q):� was -1 i.e. submenu disallowed! This change
B> :� allows a window handle to be used
L �
V� q
`(ș "Wimp_CreateMenu",,menu%,x-64,196
j�
t:
~ݤin(A%,B%,C%,D%)
�� C%<ebx � =�
�� A%>etx � =�
�� B%>ety � =�
�� D%<eby � =�
�=�
�:
�
��newvals
�gbx=q%!28:gby=q%!32
�gtx=q%!36:gty=q%!40
�wbx=q%!4:wby=q%!8
�wtx=q%!12:wty=q%!16
�xsc=q%!20:ysc=q%!24
!hp=wtx-wbx:vp=wty-wby:ebx=xsc
!etx=xsc+hp:ety=ysc:eby=ysc-vp
�
:
(ݤmax(a%,b%)
2� a%<b% � =b% � =a%
<:
F ��opentemplatefile(file$)
P!ș "Wimp_OpenTemplate",,file$
Z�
d:
n��loadtemplate(name$,b)
x� type%,pos%,x%
�Kș "Wimp_LoadTemplate",,b,iptr%,iend%,-1,name$,0 � type%,,iptr%,,,,pos%
��
�
���closetemplatefile
�ș "Wimp_CloseTemplate"
��
�
� ��mouse_limit(b,whandle%)
�,b!0=whandle%:ș "Wimp_GetWindowState",,b
�/�mouse_rectangle(b!4,b!8,b!12-b!4,b!16-b!8)
��
�
�6ݤspriteicon(window,x0,y0,x1,y1,flags,sptr,sname$)
� q%!24 �sname$+1:q%!28=sptr
!q%!32=�sname$+1:$q%!24=sname$
'=�iconblk(window,x0,y0,x1,y1,flags)
"
,'ݤiconblk(window,x0,y0,x1,y1,flags)
6
� icon
@!q%=window
Jq%!4=x0:q%!8=y0
Tq%!12=x1:q%!16=y1
^q%!20=flags
h#ș "Wimp_CreateIcon",,q% � icon
r =icon
|
�ݤgname(ptr)
� f$=""
�ȕ ?ptr<>0 � ?ptr<>13
� f$=f$+�?ptr:ptr+=1
��
�=f$
�
�"��mouse_rectangle(x%,y%,w%,h%)
�ȗ ȓ x%,y%,w%,h%
� mouseminx%=x%:mouseminy%=y%
�"mousewidth%=w%:mouseheight%=h%
��
�
ݤleaf(path$)
ȕ �path$,".")
path$=�path$,�path$,".")+1)
&�
0
=path$
:
D��keypress
N � ic%
X� q%!4<>-1 �
b% ș "Wimp_GetCaretPosition",,blk
l ic%=blk!4
v Ȏ q%!24 �
�
� 13
� Ȏ q%!0 �
� � settype%
� Ȏ ic% �
� � 0
� �ok_settype
�
�
� �
� �
��
��
�
���ok_settype
'�icon_setfgcolour(q%,settype%,2,12)
&�icon_setbgcolour(q%,settype%,2,7)
�delay(0.2)
&�icon_setfgcolour(q%,settype%,2,7)
*'�icon_setbgcolour(q%,settype%,2,12)
4<� �icon_getdata(q%,settype%,0)="" � �ok("No type input")
>@�("SETTYPE "+current_file$+" "+�icon_getdata(q%,settype%,0))
H�
R
\-��icon_setbgcolour(b,whandle%,icon%,col%)
f5!b=whandle%:b!4=icon%:b!8=col%<<28:b!12=&F0000000
p ș "Wimp_SetIconState",0,b
z�
�
�-��icon_setfgcolour(b,whandle%,icon%,col%)
�5!b=whandle%:b!4=icon%:b!8=col%<<24:b!12=&0F000000
� ș "Wimp_SetIconState",0,b
��
�
���delay(seconds)
�
� time
� time = � + (seconds * 100)
��
�� � > time
��
�
��interactive_help(q%)
� t$
Ȏ q%!32 �
$
� -2
.� t$="This is the SetType icon.|MClick SELECT on this to open the window. Files may be dragged to this icon to change their type.|MClick MENU to obtain information or quit the application."
8 � settype%
B Ȏ q%!36 �
L � 0
V5 t$="Type the filetype name or number here."
` � 2
jI t$="Clicking SELECT on this icon attempts to set the filetype."
t � 4
~[ t$="Dragging a file to this window or the iconbar icon places the filename here."
� �
��
�� t$<>"" �
� q%!12=q%!8
� q%!16=&503
� $(q%+20)=t$+�0
� !q%=(25+�t$) � � 3
�& ș "Wimp_SendMessage",17,q%,q%!4
��
��
� 00000000 0d 00 0a 21 f4 20 3e 24 2e 54 6f 6f 6c 73 2e 21 |...!. >$.Tools.!|
00000010 53 65 74 54 79 70 65 2e 21 52 75 6e 49 6d 61 67 |SetType.!RunImag|
00000020 65 0d 00 14 04 0d 00 1e 21 f4 20 56 65 72 73 69 |e.......!. Versi|
00000030 6f 6e 20 31 2e 30 31 20 28 52 49 53 43 2d 4f 53 |on 1.01 (RISC-OS|
00000040 20 6f 6e 6c 79 29 0d 00 28 04 0d 00 32 23 f4 20 | only)..(...2#. |
00000050 4f 72 69 67 69 6e 61 6c 20 41 75 74 68 6f 72 20 |Original Author |
00000060 20 3a 20 50 61 75 6c 20 48 6f 62 62 73 0d 00 3c | : Paul Hobbs..<|
00000070 45 f4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |E. |
00000080 20 20 20 20 3a 20 35 2c 20 41 6d 65 72 73 68 61 | : 5, Amersha|
00000090 6d 20 41 76 65 6e 75 65 2c 20 42 61 73 69 6c 64 |m Avenue, Basild|
000000a0 6f 6e 2c 20 45 73 73 65 78 20 53 53 31 36 20 36 |on, Essex SS16 6|
000000b0 53 4a 0d 00 46 26 f4 20 20 20 20 20 20 20 20 20 |SJ..F&. |
000000c0 20 20 20 20 20 20 20 20 20 3a 20 28 30 32 36 38 | : (0268|
000000d0 29 20 35 34 31 31 37 30 0d 00 50 04 0d 00 5a 26 |) 541170..P...Z&|
000000e0 f4 20 53 68 61 72 65 57 61 72 65 20 53 6f 66 74 |. ShareWare Soft|
000000f0 77 61 72 65 20 2d 20 70 61 73 73 20 69 74 20 6f |ware - pass it o|
00000100 6e 21 0d 00 64 04 0d 00 6e 4c f4 20 2d 2d 2d 2d |n!..d...nL. ----|
00000110 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00000120 20 49 6e 69 74 69 61 6c 69 73 61 74 69 6f 6e 20 | Initialisation |
00000130 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00000150 2d 2d 0d 00 78 04 0d 00 82 1f 76 65 72 73 69 6f |--..x.....versio|
00000160 6e 24 3d 22 31 2e 30 31 20 28 30 39 2d 53 65 70 |n$="1.01 (09-Sep|
00000170 2d 38 39 29 22 0d 00 8c 1e de 20 71 25 20 35 30 |-89)"..... q% 50|
00000180 30 2c 6d 73 67 62 6c 6b 20 32 30 30 2c 62 6c 6b |0,msgblk 200,blk|
00000190 20 35 30 0d 00 96 0e 24 71 25 3d 22 54 41 53 4b | 50....$q%="TASK|
000001a0 22 0d 00 a0 3a c8 99 20 22 57 69 6d 70 5f 49 6e |"...:.. "Wimp_In|
000001b0 69 74 69 61 6c 69 73 65 22 2c 32 30 30 2c 21 71 |itialise",200,!q|
000001c0 25 2c 22 53 65 74 54 79 70 65 20 55 74 69 6c 69 |%,"SetType Utili|
000001d0 74 79 22 20 b8 20 2c 74 61 73 6b 0d 00 aa 15 c8 |ty" . ,task.....|
000001e0 99 20 22 48 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 |. "Hourglass_On"|
000001f0 0d 00 b4 04 0d 00 be 4c f4 20 2d 2d 2d 2d 2d 2d |.......L. ------|
00000200 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 4c |-------------- L|
00000210 6f 61 64 20 53 70 72 69 74 65 20 46 69 6c 65 20 |oad Sprite File |
00000220 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00000240 0d 00 c8 04 0d 00 d2 4c f4 20 2d 2d 2d 2d 2d 2d |.......L. ------|
00000250 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 50 |-------------- P|
00000260 6c 61 63 65 20 53 70 72 69 74 65 20 4f 6e 20 49 |lace Sprite On I|
00000270 63 6f 6e 20 42 61 72 20 2d 2d 2d 2d 2d 2d 2d 2d |con Bar --------|
00000280 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00000290 0d 00 dc 04 0d 00 e6 36 73 69 63 6f 6e 3d a4 73 |.......6sicon=.s|
000002a0 70 72 69 74 65 69 63 6f 6e 28 2d 31 2c 30 2c 30 |priteicon(-1,0,0|
000002b0 2c 36 38 2c 36 38 2c 26 33 31 30 32 2c 31 2c 22 |,68,68,&3102,1,"|
000002c0 21 73 65 74 74 79 70 65 22 29 0d 00 f0 04 0d 00 |!settype")......|
000002d0 fa 4c f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |.L. ------------|
000002e0 2d 2d 2d 2d 2d 2d 2d 2d 20 49 6e 69 74 69 61 6c |-------- Initial|
000002f0 69 73 65 20 43 6f 6e 73 74 61 6e 74 73 20 2d 2d |ise Constants --|
00000300 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00000310 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 01 04 04 0d 01 |----------......|
00000320 0e 16 f4 20 4d 65 6e 75 20 74 69 74 6c 65 20 66 |... Menu title f|
00000330 6c 61 67 73 0d 01 18 04 0d 01 22 14 6d 65 6e 75 |lags......".menu|
00000340 5f 74 69 74 6c 65 5f 66 67 3d 20 37 0d 01 2c 14 |_title_fg= 7..,.|
00000350 6d 65 6e 75 5f 74 69 74 6c 65 5f 62 67 3d 20 32 |menu_title_bg= 2|
00000360 0d 01 36 14 6d 65 6e 75 5f 77 6f 72 6b 5f 66 67 |..6.menu_work_fg|
00000370 20 3d 20 37 0d 01 40 14 6d 65 6e 75 5f 77 6f 72 | = 7..@.menu_wor|
00000380 6b 5f 62 67 20 3d 20 30 0d 01 4a 04 0d 01 54 10 |k_bg = 0..J...T.|
00000390 f4 20 6d 65 6e 75 20 66 6c 61 67 73 0d 01 5e 04 |. menu flags..^.|
000003a0 0d 01 68 11 74 69 63 6b 20 20 20 20 20 3d 26 30 |..h.tick =&0|
000003b0 31 0d 01 72 11 64 6f 74 74 65 64 20 20 20 3d 26 |1..r.dotted =&|
000003c0 30 32 0d 01 7c 11 77 72 69 74 65 61 62 6c 65 3d |02..|.writeable=|
000003d0 26 30 34 0d 01 86 11 6c 61 73 74 20 20 20 20 20 |&04....last |
000003e0 3d 26 38 30 0d 01 90 14 64 65 66 61 75 6c 74 20 |=&80....default |
000003f0 20 3d 26 31 30 30 32 31 0d 01 9a 15 73 68 61 64 | =&10021....shad|
00000400 65 64 20 20 20 3d 26 34 30 30 30 30 30 0d 01 a4 |ed =&400000...|
00000410 0f 66 69 72 73 74 20 20 20 20 3d b9 0d 01 ae 0f |.first =.....|
00000420 73 65 63 6f 6e 64 20 20 20 3d a3 0d 01 b8 0f 73 |second =.....s|
00000430 65 6c 20 20 20 20 20 20 3d b9 0d 01 c2 04 0d 01 |el =.......|
00000440 cc 4c f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |.L. ------------|
00000450 2d 2d 2d 2d 2d 2d 2d 2d 20 49 6e 69 74 69 61 6c |-------- Initial|
00000460 69 73 65 20 56 61 72 69 61 62 6c 65 73 20 2d 2d |ise Variables --|
00000470 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00000480 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 01 d6 04 0d 01 |----------......|
00000490 e0 18 63 6c 61 69 6d 6d 65 6e 75 24 20 20 20 20 |..claimmenu$ |
000004a0 20 20 3d 20 22 22 0d 01 ea 17 63 6c 6f 73 65 5f | = ""....close_|
000004b0 64 6f 77 6e 20 20 20 20 20 20 3d 20 a3 0d 01 f4 |down = ....|
000004c0 17 65 72 72 6f 72 5f 66 6c 61 67 25 20 20 20 20 |.error_flag% |
000004d0 20 3d 20 33 0d 01 fe 04 0d 02 08 4c f4 20 2d 2d | = 3.......L. --|
000004e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
000004f0 2d 2d 20 49 6e 69 74 69 61 6c 69 73 65 20 41 72 |-- Initialise Ar|
00000500 72 61 79 73 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |rays -----------|
00000510 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00000520 2d 2d 2d 2d 0d 02 12 04 0d 02 1c 2a de 20 74 65 |----.......*. te|
00000530 78 74 24 28 35 29 2c 73 65 74 74 69 6e 67 28 35 |xt$(5),setting(5|
00000540 29 2c 66 6c 61 67 73 28 35 29 2c 64 61 74 61 28 |),flags(5),data(|
00000550 35 29 0d 02 26 22 de 20 73 75 62 6d 65 6e 75 28 |5)..&". submenu(|
00000560 35 29 2c 72 65 66 28 35 29 2c 6d 65 6e 75 70 6f |5),ref(5),menupo|
00000570 73 28 35 29 0d 02 30 04 0d 02 3a 4c f4 20 2d 2d |s(5)..0...:L. --|
00000580 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00000590 2d 2d 20 49 6e 69 74 69 61 6c 69 73 65 20 53 74 |-- Initialise St|
000005a0 6f 72 61 67 65 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |orage ----------|
000005b0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
000005c0 2d 2d 2d 2d 0d 02 44 04 0d 02 4e 0f de 20 6d 65 |----..D...N.. me|
000005d0 6e 75 25 20 31 30 30 0d 02 58 13 de 20 69 6e 64 |nu% 100..X.. ind|
000005e0 69 72 65 63 74 25 20 34 30 30 0d 02 62 04 0d 02 |irect% 400..b...|
000005f0 6c 4c f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |lL. ------------|
00000600 2d 2d 2d 2d 2d 2d 2d 2d 20 4d 69 73 63 65 6c 6c |-------- Miscell|
00000610 65 61 6e 6f 75 73 20 49 6e 69 74 69 61 6c 69 73 |eanous Initialis|
00000620 61 74 69 6f 6e 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |ation ----------|
00000630 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 02 76 04 0d 02 |----------..v...|
00000640 80 23 69 70 74 72 25 3d 69 6e 64 69 72 65 63 74 |.#iptr%=indirect|
00000650 25 3a 69 65 6e 64 25 3d 69 70 74 72 25 2b 34 30 |%:iend%=iptr%+40|
00000660 30 0d 02 8a 04 0d 02 94 4c f4 20 2d 2d 2d 2d 2d |0.......L. -----|
00000670 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 |--------------- |
00000680 4c 6f 61 64 20 54 65 6d 70 6c 61 74 65 20 46 69 |Load Template Fi|
00000690 6c 65 73 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |les ------------|
000006a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
000006b0 2d 0d 02 9e 04 0d 02 a8 30 f2 6f 70 65 6e 74 65 |-.......0.opente|
000006c0 6d 70 6c 61 74 65 66 69 6c 65 28 22 3c 53 65 74 |mplatefile("<Set|
000006d0 54 79 70 65 24 44 69 72 3e 2e 54 65 6d 70 6c 61 |Type$Dir>.Templa|
000006e0 74 65 73 22 29 0d 02 b2 1f f2 6c 6f 61 64 74 65 |tes").....loadte|
000006f0 6d 70 6c 61 74 65 28 22 73 65 74 74 79 70 65 22 |mplate("settype"|
00000700 2c 71 25 29 0d 02 bc 29 c8 99 20 22 57 69 6d 70 |,q%)...).. "Wimp|
00000710 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c |_CreateWindow",,|
00000720 71 25 20 b8 20 73 65 74 74 79 70 65 25 0d 02 c6 |q% . settype%...|
00000730 20 f2 6c 6f 61 64 74 65 6d 70 6c 61 74 65 28 22 | .loadtemplate("|
00000740 70 72 6f 67 49 6e 66 6f 22 2c 71 25 29 0d 02 d0 |progInfo",q%)...|
00000750 26 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 |&.. "Wimp_Create|
00000760 57 69 6e 64 6f 77 22 2c 2c 71 25 20 b8 20 69 6e |Window",,q% . in|
00000770 66 6f 25 0d 02 da 16 f2 63 6c 6f 73 65 74 65 6d |fo%.....closetem|
00000780 70 6c 61 74 65 66 69 6c 65 0d 02 e4 04 0d 02 ee |platefile.......|
00000790 4c f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |L. -------------|
000007a0 2d 2d 2d 2d 2d 2d 2d 20 41 70 70 6c 69 63 61 74 |------- Applicat|
000007b0 69 6f 6e 20 49 6e 69 74 69 61 6c 69 73 61 74 69 |ion Initialisati|
000007c0 6f 6e 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |on -------------|
000007d0 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 02 f8 04 0d 03 02 |---------.......|
000007e0 16 f4 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 |.. global variab|
000007f0 6c 65 73 0d 03 0c 04 0d 03 16 15 6f 70 65 6e 20 |les........open |
00000800 20 20 20 20 20 20 20 20 20 3d 20 a3 0d 03 20 16 | = ... .|
00000810 63 75 72 72 65 6e 74 5f 66 69 6c 65 24 20 3d 20 |current_file$ = |
00000820 22 22 0d 03 2a 04 0d 03 34 4c f4 20 2d 2d 2d 2d |""..*...4L. ----|
00000830 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00000840 20 44 65 66 69 6e 65 20 49 63 6f 6e 73 20 2d 2d | Define Icons --|
00000850 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00000870 2d 2d 0d 03 3e 04 0d 03 48 28 f2 69 63 6f 6e 5f |--..>...H(.icon_|
00000880 70 75 74 64 61 74 61 28 71 25 2c 69 6e 66 6f 25 |putdata(q%,info%|
00000890 2c 34 2c 76 65 72 73 69 6f 6e 24 2c 30 29 0d 03 |,4,version$,0)..|
000008a0 52 30 f2 69 63 6f 6e 5f 70 75 74 64 61 74 61 28 |R0.icon_putdata(|
000008b0 71 25 2c 73 65 74 74 79 70 65 25 2c 34 2c 63 75 |q%,settype%,4,cu|
000008c0 72 72 65 6e 74 5f 66 69 6c 65 24 2c 30 29 0d 03 |rrent_file$,0)..|
000008d0 5c 04 0d 03 66 4c f4 20 2d 2d 2d 2d 2d 2d 2d 2d |\...fL. --------|
000008e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 4c 61 75 |------------ Lau|
000008f0 6e 63 68 20 49 6e 69 74 69 61 6c 20 57 69 6e 64 |nch Initial Wind|
00000900 6f 77 73 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |ows ------------|
00000910 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 03 |--------------..|
00000920 70 04 0d 03 7a 16 c8 99 20 22 48 6f 75 72 67 6c |p...z... "Hourgl|
00000930 61 73 73 5f 4f 66 66 22 0d 03 84 04 0d 03 8e 4c |ass_Off".......L|
00000940 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |. --------------|
00000950 2d 2d 2d 2d 2d 2d 20 4d 61 69 6e 20 50 72 6f 67 |------ Main Prog|
00000960 72 61 6d 20 4c 6f 6f 70 20 2d 2d 2d 2d 2d 2d 2d |ram Loop -------|
00000970 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00000980 2d 2d 2d 2d 2d 2d 2d 2d 0d 03 98 04 0d 03 a2 0e |--------........|
00000990 ee 20 85 20 f2 65 72 72 6f 72 0d 03 ac 05 f5 0d |. . .error......|
000009a0 03 b6 17 20 20 f2 61 63 74 69 6f 6e 28 a4 70 6f |... .action(.po|
000009b0 6c 6c 28 31 29 29 0d 03 c0 10 fd 20 63 6c 6f 73 |ll(1))..... clos|
000009c0 65 5f 64 6f 77 6e 0d 03 ca 04 0d 03 d4 4c f4 20 |e_down.......L. |
000009d0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
000009e0 2d 2d 2d 2d 20 41 70 70 6c 69 63 61 74 69 6f 6e |---- Application|
000009f0 20 43 6c 6f 73 65 64 6f 77 6e 20 2d 2d 2d 2d 2d | Closedown -----|
00000a00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00000a10 2d 2d 2d 2d 2d 2d 0d 03 de 04 0d 03 e8 17 c8 99 |------..........|
00000a20 20 22 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e | "Wimp_CloseDown|
00000a30 22 0d 03 f2 05 e0 0d 03 fc 04 0d 04 06 4c f4 20 |"............L. |
00000a40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00000a80 2d 2d 2d 2d 2d 2d 0d 04 10 04 0d 04 1a 0b dd f2 |------..........|
00000a90 65 72 72 6f 72 0d 04 24 15 e7 20 65 72 72 6f 72 |error..$.. error|
00000aa0 5f 66 6c 61 67 25 3d 33 20 8c 0d 04 2e 0c 20 20 |_flag%=3 ..... |
00000ab0 c8 8e 20 9f 20 ca 0d 04 38 0d 20 20 20 20 c9 20 |.. . ...8. . |
00000ac0 31 36 38 0d 04 42 41 20 20 20 20 20 20 f2 65 72 |168..BA .er|
00000ad0 72 6f 72 62 6f 78 28 22 43 61 6e 27 74 20 63 68 |rorbox("Can't ch|
00000ae0 61 6e 67 65 20 74 68 65 20 66 69 6c 65 74 79 70 |ange the filetyp|
00000af0 65 20 6f 66 20 61 20 64 69 72 65 63 74 6f 72 79 |e of a directory|
00000b00 22 2c 31 29 0d 04 4c 0e 20 20 20 20 c9 20 31 30 |",1)..L. . 10|
00000b10 35 33 0d 04 56 2a 20 20 20 20 20 20 f2 65 72 72 |53..V* .err|
00000b20 6f 72 62 6f 78 28 22 55 6e 6b 6e 6f 77 6e 20 66 |orbox("Unknown f|
00000b30 69 6c 65 20 74 79 70 65 22 2c 31 29 0d 04 60 09 |ile type",1)..`.|
00000b40 20 20 20 20 7f 0d 04 6a 4a 20 20 20 20 20 20 f2 | ...jJ .|
00000b50 65 72 72 6f 72 62 6f 78 28 22 55 6e 65 78 70 65 |errorbox("Unexpe|
00000b60 63 74 65 64 20 65 72 72 6f 72 3a 2d 20 22 2b f6 |cted error:- "+.|
00000b70 24 2b 22 20 49 6e 74 65 72 6e 61 6c 20 65 72 72 |$+" Internal err|
00000b80 6f 72 20 63 6f 64 65 20 22 2b c3 9e 2c 33 29 0d |or code "+..,3).|
00000b90 04 74 09 20 20 20 20 cb 0d 04 7e 05 cc 0d 04 88 |.t. ...~.....|
00000ba0 1f 20 20 f2 65 72 72 6f 72 62 6f 78 28 f6 24 2c |. .errorbox(.$,|
00000bb0 65 72 72 6f 72 5f 66 6c 61 67 25 29 0d 04 92 05 |error_flag%)....|
00000bc0 cd 0d 04 9c 11 65 72 72 6f 72 5f 66 6c 61 67 25 |.....error_flag%|
00000bd0 3d 33 0d 04 a6 18 c8 99 20 22 48 6f 75 72 67 6c |=3...... "Hourgl|
00000be0 61 73 73 5f 53 6d 61 73 68 22 0d 04 b0 05 e1 0d |ass_Smash"......|
00000bf0 04 ba 04 0d 04 c4 0c dd f2 6f 6b 28 65 24 29 0d |.........ok(e$).|
00000c00 04 ce 11 65 72 72 6f 72 5f 66 6c 61 67 25 3d 31 |...error_flag%=1|
00000c10 0d 04 d8 0a 85 20 31 2c 65 24 0d 04 e2 05 e1 0d |..... 1,e$......|
00000c20 04 ec 04 0d 04 f6 0b dd f2 66 61 74 61 6c 0d 05 |.........fatal..|
00000c30 00 11 65 72 72 6f 72 5f 66 6c 61 67 25 3d 32 0d |..error_flag%=2.|
00000c40 05 0a 0a 85 20 31 2c 65 24 0d 05 14 05 e1 0d 05 |.... 1,e$.......|
00000c50 1e 04 0d 05 28 18 dd f2 65 72 72 6f 72 62 6f 78 |....(...errorbox|
00000c60 28 72 24 2c 66 6c 61 67 25 29 0d 05 32 08 ea 20 |(r$,flag%)..2.. |
00000c70 72 25 0d 05 3c 19 21 71 25 3d 9f 3a 24 28 71 25 |r%..<.!q%=.:$(q%|
00000c80 2b 34 29 3d 72 24 2b bd 28 30 29 0d 05 46 39 c8 |+4)=r$+.(0)..F9.|
00000c90 99 20 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 |. "Wimp_ReportEr|
00000ca0 72 6f 72 22 2c 71 25 2c 66 6c 61 67 25 2c 22 53 |ror",q%,flag%,"S|
00000cb0 65 74 54 79 70 65 20 55 74 69 6c 69 74 79 22 20 |etType Utility" |
00000cc0 b8 20 72 25 0d 05 50 18 e7 20 72 25 3d 32 20 8c |. r%..P.. r%=2 .|
00000cd0 20 63 6c 6f 73 65 64 6f 77 6e 3d b9 0d 05 5a 05 | closedown=...Z.|
00000ce0 e1 0d 05 64 04 0d 05 6e 3c dd f2 63 6c 69 63 6b |...d...n<..click|
00000cf0 77 69 6e 64 6f 77 28 6d 6f 75 73 65 78 25 2c 6d |window(mousex%,m|
00000d00 6f 75 73 65 79 25 2c 62 75 74 74 6f 6e 25 2c 68 |ousey%,button%,h|
00000d10 61 6e 64 6c 65 25 2c 69 63 6f 6e 25 2c 6f 62 25 |andle%,icon%,ob%|
00000d20 29 0d 05 78 10 c8 8e 20 68 61 6e 64 6c 65 25 20 |)..x... handle% |
00000d30 ca 0d 05 82 2f 20 20 c9 20 73 65 74 74 79 70 65 |..../ . settype|
00000d40 25 20 20 3a f2 63 6c 69 63 6b 73 65 74 74 79 70 |% :.clicksettyp|
00000d50 65 28 62 75 74 74 6f 6e 25 2c 69 63 6f 6e 25 29 |e(button%,icon%)|
00000d60 0d 05 8c 2f 20 20 c9 20 2d 32 20 20 20 20 20 20 |.../ . -2 |
00000d70 20 20 3a f2 63 6c 69 63 6b 69 63 6f 6e 62 61 72 | :.clickiconbar|
00000d80 28 62 75 74 74 6f 6e 25 2c 69 63 6f 6e 25 29 0d |(button%,icon%).|
00000d90 05 96 05 cb 0d 05 a0 05 e1 0d 05 aa 04 0d 05 b4 |................|
00000da0 21 dd f2 63 6c 69 63 6b 69 63 6f 6e 62 61 72 28 |!..clickiconbar(|
00000db0 62 75 74 74 6f 6e 25 2c 69 63 6f 6e 25 29 0d 05 |button%,icon%)..|
00000dc0 be 11 e7 20 69 63 6f 6e 25 3c 30 20 8c 20 e1 0d |... icon%<0 . ..|
00000dd0 05 c8 0a c8 8e 20 b9 20 ca 0d 05 d2 11 20 20 c9 |..... . ..... .|
00000de0 20 62 75 74 74 6f 6e 25 3d 34 0d 05 dc 22 20 20 | button%=4..." |
00000df0 20 20 e7 20 69 63 6f 6e 25 3d 73 69 63 6f 6e 20 | . icon%=sicon |
00000e00 80 20 28 ac 20 6f 70 65 6e 29 20 8c 0d 05 e6 16 |. (. open) .....|
00000e10 20 20 20 20 20 20 21 71 25 3d 73 65 74 74 79 70 | !q%=settyp|
00000e20 65 25 0d 05 f0 26 20 20 20 20 20 20 c8 99 20 22 |e%...& .. "|
00000e30 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 |Wimp_GetWindowSt|
00000e40 61 74 65 22 2c 2c 71 25 0d 05 fa 22 20 20 20 20 |ate",,q%..." |
00000e50 20 20 c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e 57 | .. "Wimp_OpenW|
00000e60 69 6e 64 6f 77 22 2c 2c 71 25 0d 06 04 34 20 20 |indow",,q%...4 |
00000e70 20 20 20 20 f2 63 61 72 65 74 5f 73 65 74 70 6f | .caret_setpo|
00000e80 73 69 74 69 6f 6e 28 73 65 74 74 79 70 65 25 2c |sition(settype%,|
00000e90 30 2c 2d 31 2c 2d 31 2c 2d 31 2c 2d 31 29 0d 06 |0,-1,-1,-1,-1)..|
00000ea0 0e 10 20 20 20 20 20 20 6f 70 65 6e 3d b9 0d 06 |.. open=...|
00000eb0 18 09 20 20 20 20 cd 0d 06 22 11 20 20 c9 20 62 |.. ...". . b|
00000ec0 75 74 74 6f 6e 25 3d 32 0d 06 2c 17 20 20 20 20 |utton%=2..,. |
00000ed0 e7 20 69 63 6f 6e 25 3d 73 69 63 6f 6e 20 8c 0d |. icon%=sicon ..|
00000ee0 06 36 15 20 20 20 20 20 20 f2 6d 65 6e 75 5f 73 |.6. .menu_s|
00000ef0 69 63 6f 6e 0d 06 40 09 20 20 20 20 cd 0d 06 4a |icon..@. ...J|
00000f00 05 cb 0d 06 54 05 e1 0d 06 5e 04 0d 06 68 21 dd |....T....^...h!.|
00000f10 f2 63 6c 69 63 6b 73 65 74 74 79 70 65 28 62 75 |.clicksettype(bu|
00000f20 74 74 6f 6e 25 2c 69 63 6f 6e 25 29 0d 06 72 0a |tton%,icon%)..r.|
00000f30 c8 8e 20 b9 20 ca 0d 06 7c 21 c9 20 28 62 75 74 |.. . ...|!. (but|
00000f40 74 6f 6e 25 20 80 20 34 29 3d 34 20 80 20 69 63 |ton% . 4)=4 . ic|
00000f50 6f 6e 25 3c 3e 2d 31 0d 06 86 11 20 20 e7 20 69 |on%<>-1.... . i|
00000f60 63 6f 6e 25 3d 32 20 8c 0d 06 90 13 20 20 20 20 |con%=2 ..... |
00000f70 f2 6f 6b 5f 73 65 74 74 79 70 65 0d 06 9a 07 20 |.ok_settype.... |
00000f80 20 cd 0d 06 a4 05 cb 0d 06 ae 05 e1 0d 06 b8 04 | ...............|
00000f90 0d 06 c2 1b dd f2 72 65 64 72 61 77 77 69 6e 64 |......redrawwind|
00000fa0 6f 77 28 68 61 6e 64 6c 65 25 29 0d 06 cc 10 71 |ow(handle%)....q|
00000fb0 25 21 30 3d 68 61 6e 64 6c 65 25 0d 06 d6 27 c8 |%!0=handle%...'.|
00000fc0 99 20 22 57 69 6d 70 5f 52 65 64 72 61 77 57 69 |. "Wimp_RedrawWi|
00000fd0 6e 64 6f 77 22 2c 30 2c 71 25 20 b8 20 6d 6f 72 |ndow",0,q% . mor|
00000fe0 65 25 0d 06 e0 1c f2 6c 77 61 6f 72 69 67 69 6e |e%.....lwaorigin|
00000ff0 28 71 25 2b 34 2c 78 30 25 2c 79 30 25 29 0d 06 |(q%+4,x0%,y0%)..|
00001000 ea 0c c8 95 20 6d 6f 72 65 25 0d 06 f4 0e 20 20 |.... more%.... |
00001010 f2 6e 65 77 76 61 6c 73 0d 06 fe 12 20 20 c8 8e |.newvals.... ..|
00001020 20 68 61 6e 64 6c 65 25 20 ca 0d 07 08 07 20 20 | handle% ..... |
00001030 cb 0d 07 12 29 20 20 c8 99 20 22 57 69 6d 70 5f |....) .. "Wimp_|
00001040 47 65 74 52 65 63 74 61 6e 67 6c 65 22 2c 30 2c |GetRectangle",0,|
00001050 71 25 20 b8 20 6d 6f 72 65 25 0d 07 1c 05 ce 0d |q% . more%......|
00001060 07 26 05 e1 0d 07 30 04 0d 07 3a 19 dd a4 6f 6b |.&....0...:...ok|
00001070 74 6f 63 6c 6f 73 65 77 28 68 61 6e 64 6c 65 25 |toclosew(handle%|
00001080 29 0d 07 44 0e 73 68 75 74 74 69 6e 67 3d b9 0d |)..D.shutting=..|
00001090 07 4e 0a 6f 70 65 6e 3d a3 0d 07 58 0d 3d 73 68 |.N.open=...X.=sh|
000010a0 75 74 74 69 6e 67 0d 07 62 04 0d 07 6c 1a dd a4 |utting..b...l...|
000010b0 6f 6b 74 6f 64 65 6c 65 74 65 77 28 68 61 6e 64 |oktodeletew(hand|
000010c0 6c 65 25 29 0d 07 76 13 e7 20 68 61 6e 64 6c 65 |le%)..v.. handle|
000010d0 25 3d 2d 31 3a 3d a3 0d 07 80 06 3d b9 0d 07 8a |%=-1:=.....=....|
000010e0 04 0d 07 94 16 dd a4 6d 65 6e 75 73 65 6c 65 63 |.......menuselec|
000010f0 74 5f 73 69 63 6f 6e 0d 07 9e 0f 6c 65 76 65 6c |t_sicon....level|
00001100 30 3d 71 25 21 30 0d 07 a8 0f c8 8e 20 6c 65 76 |0=q%!0...... lev|
00001110 65 6c 30 20 ca 0d 07 b2 09 20 20 c9 20 30 0d 07 |el0 ..... . 0..|
00001120 bc 09 20 20 c9 20 31 0d 07 c6 14 20 20 20 20 63 |.. . 1.... c|
00001130 6c 6f 73 65 5f 64 6f 77 6e 3d b9 0d 07 d0 05 cb |lose_down=......|
00001140 0d 07 da 06 3d 30 0d 07 e4 04 0d 07 ee 10 dd f2 |....=0..........|
00001150 6d 65 6e 75 5f 73 69 63 6f 6e 0d 07 f8 1a 6e 6f |menu_sicon....no|
00001160 3d 30 3a c8 97 20 78 2c 79 2c 62 20 3a 79 3d 79 |=0:.. x,y,b :y=y|
00001170 2b 31 30 30 0d 08 02 0b f4 20 6d 65 6e 75 30 0d |+100..... menu0.|
00001180 08 0c 3e f2 64 65 66 69 6e 65 5f 6d 65 6e 75 5f |..>.define_menu_|
00001190 74 65 78 74 28 22 49 6e 66 6f 22 2c 6e 6f 2c 30 |text("Info",no,0|
000011a0 2c 30 2c 30 2c 30 2c 64 65 66 61 75 6c 74 2c 69 |,0,0,0,default,i|
000011b0 6e 66 6f 25 2c 30 29 3a 6e 6f 2b 3d 31 0d 08 16 |nfo%,0):no+=1...|
000011c0 3b f2 64 65 66 69 6e 65 5f 6d 65 6e 75 5f 74 65 |;.define_menu_te|
000011d0 78 74 28 22 51 75 69 74 22 2c 6e 6f 2c 30 2c 30 |xt("Quit",no,0,0|
000011e0 2c 30 2c 30 2c 64 65 66 61 75 6c 74 2c 30 2c 2d |,0,0,default,0,-|
000011f0 31 29 3a 6e 6f 2b 3d 31 0d 08 20 22 f2 63 72 65 |1):no+=1.. ".cre|
00001200 61 74 65 5f 6d 65 6e 75 28 22 53 65 74 54 79 70 |ate_menu("SetTyp|
00001210 65 22 2c 6e 6f 2c 78 2c 79 29 0d 08 2a 0e 6d 65 |e",no,x,y)..*.me|
00001220 6e 75 5f 6e 72 25 3d 30 0d 08 34 16 63 6c 61 69 |nu_nr%=0..4.clai|
00001230 6d 6d 65 6e 75 24 3d 22 73 69 63 6f 6e 22 0d 08 |mmenu$="sicon"..|
00001240 3e 05 e1 0d 08 48 04 0d 08 52 11 dd f2 64 61 74 |>....H...R...dat|
00001250 61 6c 6f 61 64 28 62 29 0d 08 5c 1f 63 75 72 72 |aload(b)..\.curr|
00001260 65 6e 74 5f 66 69 6c 65 24 3d a4 67 6e 61 6d 65 |ent_file$=.gname|
00001270 28 71 25 2b 34 34 29 0d 08 66 37 f2 69 63 6f 6e |(q%+44)..f7.icon|
00001280 5f 70 75 74 64 61 74 61 28 71 25 2c 73 65 74 74 |_putdata(q%,sett|
00001290 79 70 65 25 2c 34 2c a4 6c 65 61 66 28 63 75 72 |ype%,4,.leaf(cur|
000012a0 72 65 6e 74 5f 66 69 6c 65 24 29 2c 31 29 0d 08 |rent_file$),1)..|
000012b0 70 05 e1 0d 08 7a 04 0d 08 84 10 dd f2 61 63 6b |p....z.......ack|
000012c0 6c 6f 61 64 28 62 29 0d 08 8e 05 e1 0d 08 98 19 |load(b).........|
000012d0 62 21 31 32 3d 62 21 38 3a 62 21 31 36 3d 34 3a |b!12=b!8:b!16=4:|
000012e0 21 62 3d 36 34 0d 08 a2 22 c8 99 20 22 57 69 6d |!b=64...".. "Wim|
000012f0 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 |p_SendMessage",1|
00001300 37 2c 62 2c 62 21 34 0d 08 ac 05 e1 0d 08 b6 04 |7,b,b!4.........|
00001310 0d 08 c0 0c dd f2 66 69 6e 69 73 68 0d 08 ca 17 |......finish....|
00001320 c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 44 6f |.. "Wimp_CloseDo|
00001330 77 6e 22 0d 08 d4 05 e1 0d 08 de 04 0d 08 e8 10 |wn".............|
00001340 dd f2 63 6c 6f 73 65 5f 64 6f 77 6e 0d 08 f2 17 |..close_down....|
00001350 c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 44 6f |.. "Wimp_CloseDo|
00001360 77 6e 22 0d 08 fc 08 eb 20 31 32 0d 09 06 0a 2a |wn"..... 12....*|
00001370 46 58 34 2c 30 0d 09 10 0c 2a 46 58 32 32 30 2c |FX4,0....*FX220,|
00001380 30 0d 09 1a 05 e1 0d 09 24 04 0d 09 2e 26 dd f2 |0.......$....&..|
00001390 6f 70 65 6e 77 69 6e 64 6f 77 28 68 61 6e 64 6c |openwindow(handl|
000013a0 65 25 2c 66 75 6c 6c 25 2c 66 72 6f 6e 74 25 29 |e%,full%,front%)|
000013b0 0d 09 38 10 71 25 21 30 3d 68 61 6e 64 6c 65 25 |..8.q%!0=handle%|
000013c0 0d 09 42 2d e7 20 ac 20 66 75 6c 6c 25 20 8c 20 |..B-. . full% . |
000013d0 c8 99 20 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 |.. "Wimp_GetWind|
000013e0 6f 77 53 74 61 74 65 22 2c 30 2c 71 25 0d 09 4c |owState",0,q%..L|
000013f0 17 e7 20 66 72 6f 6e 74 25 20 8c 20 71 25 21 32 |.. front% . q%!2|
00001400 38 3d 2d 31 0d 09 56 1d c8 99 20 22 57 69 6d 70 |8=-1..V... "Wimp|
00001410 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 30 2c 71 |_OpenWindow",0,q|
00001420 25 0d 09 60 05 e1 0d 09 6a 04 0d 09 74 1a dd f2 |%..`....j...t...|
00001430 63 6c 6f 73 65 77 69 6e 64 6f 77 28 68 61 6e 64 |closewindow(hand|
00001440 6c 65 25 29 0d 09 7e 1c e7 20 a4 6f 6b 74 6f 63 |le%)..~.. .oktoc|
00001450 6c 6f 73 65 77 28 68 61 6e 64 6c 65 25 29 20 8c |losew(handle%) .|
00001460 0d 09 88 12 20 20 71 25 21 30 3d 68 61 6e 64 6c |.... q%!0=handl|
00001470 65 25 0d 09 92 20 20 20 c8 99 20 22 57 69 6d 70 |e%... .. "Wimp|
00001480 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 30 2c |_CloseWindow",0,|
00001490 71 25 0d 09 9c 05 cd 0d 09 a6 05 e1 0d 09 b0 04 |q%..............|
000014a0 0d 09 ba 1b dd f2 64 65 6c 65 74 65 77 69 6e 64 |......deletewind|
000014b0 6f 77 28 68 61 6e 64 6c 65 25 29 0d 09 c4 1d e7 |ow(handle%).....|
000014c0 20 a4 6f 6b 74 6f 64 65 6c 65 74 65 77 28 68 61 | .oktodeletew(ha|
000014d0 6e 64 6c 65 25 29 20 8c 0d 09 ce 12 20 20 71 25 |ndle%) ..... q%|
000014e0 21 30 3d 68 61 6e 64 6c 65 25 0d 09 d8 20 20 20 |!0=handle%... |
000014f0 c8 99 20 22 57 69 6d 70 5f 44 65 6c 65 74 65 57 |.. "Wimp_DeleteW|
00001500 69 6e 64 6f 77 22 2c 2c 71 25 0d 09 e2 25 20 20 |indow",,q%...% |
00001510 f2 6d 6f 75 73 65 5f 72 65 63 74 61 6e 67 6c 65 |.mouse_rectangle|
00001520 28 30 2c 30 2c 31 32 37 39 2c 31 30 32 33 29 0d |(0,0,1279,1023).|
00001530 09 ec 10 20 20 68 61 6e 64 6c 65 25 3d 2d 31 0d |... handle%=-1.|
00001540 09 f6 05 cd 0d 0a 00 05 e1 0d 0a 0a 04 0d 0a 14 |................|
00001550 29 dd f2 63 6c 69 70 72 65 63 74 28 62 2c f8 20 |)..cliprect(b,. |
00001560 78 31 25 2c f8 20 79 31 25 2c f8 20 78 32 25 2c |x1%,. y1%,. x2%,|
00001570 f8 20 79 32 25 29 0d 0a 1e 0d ea 20 78 30 25 2c |. y2%)..... x0%,|
00001580 79 30 25 0d 0a 28 40 f2 6c 77 61 6f 72 69 67 69 |y0%..(@.lwaorigi|
00001590 6e 28 62 2c 78 30 25 2c 79 30 25 29 3a 78 31 25 |n(b,x0%,y0%):x1%|
000015a0 3d 62 21 32 34 2d 78 30 25 3a 79 31 25 3d 62 21 |=b!24-x0%:y1%=b!|
000015b0 32 38 2d 79 30 25 3a 78 32 25 3d 62 21 33 32 2d |28-y0%:x2%=b!32-|
000015c0 78 30 25 0d 0a 32 10 79 32 25 3d 62 21 33 36 2d |x0%..2.y2%=b!36-|
000015d0 79 30 25 0d 0a 3c 05 e1 0d 0a 46 04 0d 0a 50 11 |y0%..<....F...P.|
000015e0 dd a4 70 6f 6c 6c 28 6d 61 73 6b 25 29 0d 0a 5a |..poll(mask%)..Z|
000015f0 20 c8 99 20 22 57 69 6d 70 5f 50 6f 6c 6c 22 2c | .. "Wimp_Poll",|
00001600 6d 61 73 6b 25 2c 71 25 20 b8 20 61 25 0d 0a 64 |mask%,q% . a%..d|
00001610 07 3d 61 25 0d 0a 6e 04 0d 0a 78 13 dd f2 61 63 |.=a%..n...x...ac|
00001620 74 69 6f 6e 28 65 76 6e 74 25 29 0d 0a 82 0e c8 |tion(evnt%).....|
00001630 8e 20 65 76 6e 74 25 20 ca 0d 0a 8c 1d 20 20 c9 |. evnt% ..... .|
00001640 20 30 3a f2 64 6f 5f 62 61 63 6b 67 72 6f 75 6e | 0:.do_backgroun|
00001650 64 5f 74 61 73 6b 0d 0a 96 1d 20 20 c9 20 31 3a |d_task.... . 1:|
00001660 f2 72 65 64 72 61 77 77 69 6e 64 6f 77 28 71 25 |.redrawwindow(q%|
00001670 21 30 29 0d 0a a0 1f 20 20 c9 20 32 3a f2 6f 70 |!0).... . 2:.op|
00001680 65 6e 77 69 6e 64 6f 77 28 71 25 21 30 2c b9 2c |enwindow(q%!0,.,|
00001690 30 29 0d 0a aa 1c 20 20 c9 20 33 3a f2 63 6c 6f |0).... . 3:.clo|
000016a0 73 65 77 69 6e 64 6f 77 28 71 25 21 30 29 0d 0a |sewindow(q%!0)..|
000016b0 b4 0a 20 20 c9 20 34 3a 0d 0a be 0a 20 20 c9 20 |.. . 4:.... . |
000016c0 35 3a 0d 0a c8 37 20 20 c9 20 36 3a f2 63 6c 69 |5:...7 . 6:.cli|
000016d0 63 6b 77 69 6e 64 6f 77 28 21 71 25 2c 71 25 21 |ckwindow(!q%,q%!|
000016e0 34 2c 71 25 21 38 2c 71 25 21 31 32 2c 71 25 21 |4,q%!8,q%!12,q%!|
000016f0 31 36 2c 71 25 21 32 30 29 0d 0a d2 13 20 20 c9 |16,q%!20).... .|
00001700 20 38 3a f2 6b 65 79 70 72 65 73 73 0d 0a dc 3f | 8:.keypress...?|
00001710 20 20 c9 20 39 3a e7 20 63 6c 61 69 6d 6d 65 6e | . 9:. claimmen|
00001720 75 24 3c 3e 22 22 20 8c 20 6a 75 6e 6b 3d a0 28 |u$<>"" . junk=.(|
00001730 22 46 4e 6d 65 6e 75 73 65 6c 65 63 74 5f 22 2b |"FNmenuselect_"+|
00001740 63 6c 61 69 6d 6d 65 6e 75 24 29 0d 0a e6 1a 20 |claimmenu$).... |
00001750 20 c9 20 31 37 2c 31 38 3a f2 72 65 63 65 69 76 | . 17,18:.receiv|
00001760 65 28 71 25 29 0d 0a f0 05 cb 0d 0a fa 05 e1 0d |e(q%)...........|
00001770 0b 04 04 0d 0b 0e 11 dd f2 72 65 63 65 69 76 65 |.........receive|
00001780 28 71 25 29 0d 0b 18 0e c8 8e 20 71 25 21 31 36 |(q%)...... q%!16|
00001790 20 ca 0d 0b 22 14 c9 20 30 20 20 20 3a f2 66 69 | ...".. 0 :.fi|
000017a0 6e 69 73 68 3a e0 0d 0b 2c 18 c9 20 32 20 20 20 |nish:...,.. 2 |
000017b0 3a f2 64 61 74 61 73 61 76 65 28 71 25 29 0d 0b |:.datasave(q%)..|
000017c0 36 24 c9 20 33 2c 35 20 3a e7 20 71 25 21 31 32 |6$. 3,5 :. q%!12|
000017d0 3d 30 20 8c 20 f2 64 61 74 61 6c 6f 61 64 28 71 |=0 . .dataload(q|
000017e0 25 29 0d 0b 40 20 c9 20 26 35 30 32 3a f2 69 6e |%)..@ . &502:.in|
000017f0 74 65 72 61 63 74 69 76 65 5f 68 65 6c 70 28 71 |teractive_help(q|
00001800 25 29 0d 0b 4a 05 cb 0d 0b 54 05 e1 0d 0b 5e 04 |%)..J....T....^.|
00001810 0d 0b 68 1c dd f2 6c 77 61 6f 72 69 67 69 6e 28 |..h...lwaorigin(|
00001820 62 2c f8 20 78 25 2c f8 20 79 25 29 0d 0b 72 1c |b,. x%,. y%)..r.|
00001830 78 25 3d 62 21 30 2d 62 21 31 36 3a 79 25 3d 62 |x%=b!0-b!16:y%=b|
00001840 21 31 32 2d 62 21 32 30 0d 0b 7c 05 e1 0d 0b 86 |!12-b!20..|.....|
00001850 04 0d 0b 90 35 dd f2 69 63 6f 6e 5f 70 75 74 64 |....5..icon_putd|
00001860 61 74 61 28 71 25 2c 77 68 61 6e 64 6c 65 25 2c |ata(q%,whandle%,|
00001870 69 68 61 6e 64 6c 65 25 2c 64 61 74 61 24 2c 72 |ihandle%,data$,r|
00001880 65 64 72 61 77 29 0d 0b 9a 11 71 25 21 30 3d 77 |edraw)....q%!0=w|
00001890 68 61 6e 64 6c 65 25 0d 0b a4 11 71 25 21 34 3d |handle%....q%!4=|
000018a0 69 68 61 6e 64 6c 65 25 0d 0b ae 1e c8 99 20 22 |ihandle%...... "|
000018b0 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 |Wimp_GetIconStat|
000018c0 65 22 2c 2c 71 25 0d 0b b8 12 24 28 71 25 21 32 |e",,q%....$(q%!2|
000018d0 38 29 3d 64 61 74 61 24 0d 0b c2 0e e7 20 72 65 |8)=data$..... re|
000018e0 64 72 61 77 20 8c 0d 0b cc 3b 20 20 c8 99 20 22 |draw ....; .. "|
000018f0 57 69 6d 70 5f 46 6f 72 63 65 52 65 64 72 61 77 |Wimp_ForceRedraw|
00001900 22 2c 77 68 61 6e 64 6c 65 25 2c 71 25 21 38 2c |",whandle%,q%!8,|
00001910 71 25 21 31 32 2c 71 25 21 31 36 2c 71 25 21 32 |q%!12,q%!16,q%!2|
00001920 30 0d 0b d6 05 cd 0d 0b e0 05 e1 0d 0b ea 04 0d |0...............|
00001930 0b f4 28 dd a4 69 63 6f 6e 5f 67 65 74 64 61 74 |..(..icon_getdat|
00001940 61 28 71 25 2c 77 68 61 6e 64 6c 65 25 2c 69 68 |a(q%,whandle%,ih|
00001950 61 6e 64 6c 65 25 29 0d 0b fe 11 71 25 21 30 3d |andle%)....q%!0=|
00001960 77 68 61 6e 64 6c 65 25 0d 0c 08 11 71 25 21 34 |whandle%....q%!4|
00001970 3d 69 68 61 6e 64 6c 65 25 0d 0c 12 1e c8 99 20 |=ihandle%...... |
00001980 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 |"Wimp_GetIconSta|
00001990 74 65 22 2c 2c 71 25 0d 0c 1c 0d 3d 24 28 71 25 |te",,q%....=$(q%|
000019a0 21 32 38 29 0d 0c 26 04 0d 0c 30 45 dd f2 63 61 |!28)..&...0E..ca|
000019b0 72 65 74 5f 73 65 74 70 6f 73 69 74 69 6f 6e 28 |ret_setposition(|
000019c0 77 68 61 6e 64 6c 65 25 2c 69 68 61 6e 64 6c 65 |whandle%,ihandle|
000019d0 25 2c 78 6f 66 66 25 2c 79 6f 66 66 25 2c 68 65 |%,xoff%,yoff%,he|
000019e0 69 67 68 74 25 2c 69 6e 64 65 78 25 29 0d 0c 3a |ight%,index%)..:|
000019f0 4b c8 99 20 22 57 69 6d 70 5f 53 65 74 43 61 72 |K.. "Wimp_SetCar|
00001a00 65 74 50 6f 73 69 74 69 6f 6e 22 2c 77 68 61 6e |etPosition",whan|
00001a10 64 6c 65 25 2c 69 68 61 6e 64 6c 65 25 2c 78 6f |dle%,ihandle%,xo|
00001a20 66 66 25 2c 79 6f 66 66 25 2c 68 65 69 67 68 74 |ff%,yoff%,height|
00001a30 25 2c 69 6e 64 65 78 25 0d 0c 44 05 e1 0d 0c 4e |%,index%..D....N|
00001a40 04 0d 0c 58 32 dd f2 64 65 66 69 6e 65 5f 6d 65 |...X2..define_me|
00001a50 6e 75 5f 74 65 78 74 28 74 65 78 74 24 2c 6e 2c |nu_text(text$,n,|
00001a60 77 2c 74 2c 64 2c 73 2c 66 6c 61 67 73 2c 73 6d |w,t,d,s,flags,sm|
00001a70 2c 6c 29 0d 0c 62 12 74 65 78 74 24 28 6e 29 3d |,l)..b.text$(n)=|
00001a80 74 65 78 74 24 0d 0c 6c 10 73 65 74 74 69 6e 67 |text$..l.setting|
00001a90 28 6e 29 3d 30 0d 0c 76 3e e7 20 77 20 8c 20 73 |(n)=0..v>. w . s|
00001aa0 65 74 74 69 6e 67 28 6e 29 3d 73 65 74 74 69 6e |etting(n)=settin|
00001ab0 67 28 6e 29 20 84 20 77 72 69 74 65 61 62 6c 65 |g(n) . writeable|
00001ac0 3a 66 6c 61 67 73 3d 66 6c 61 67 73 20 84 20 26 |:flags=flags . &|
00001ad0 31 30 30 0d 0c 80 26 e7 20 74 20 8c 20 73 65 74 |100...&. t . set|
00001ae0 74 69 6e 67 28 6e 29 3d 73 65 74 74 69 6e 67 28 |ting(n)=setting(|
00001af0 6e 29 20 84 20 74 69 63 6b 0d 0c 8a 28 e7 20 64 |n) . tick...(. d|
00001b00 20 8c 20 73 65 74 74 69 6e 67 28 6e 29 3d 73 65 | . setting(n)=se|
00001b10 74 74 69 6e 67 28 6e 29 20 84 20 64 6f 74 74 65 |tting(n) . dotte|
00001b20 64 0d 0c 94 26 e7 20 6c 20 8c 20 73 65 74 74 69 |d...&. l . setti|
00001b30 6e 67 28 6e 29 3d 73 65 74 74 69 6e 67 28 6e 29 |ng(n)=setting(n)|
00001b40 20 84 20 6c 61 73 74 0d 0c 9e 1e e7 20 73 20 8c | . last..... s .|
00001b50 20 66 6c 61 67 73 3d 66 6c 61 67 73 20 84 20 73 | flags=flags . s|
00001b60 68 61 64 65 64 0d 0c a8 12 66 6c 61 67 73 28 6e |haded....flags(n|
00001b70 29 3d 66 6c 61 67 73 0d 0c b2 11 73 75 62 6d 65 |)=flags....subme|
00001b80 6e 75 28 6e 29 3d 73 6d 0d 0c bc 05 e1 0d 0c c6 |nu(n)=sm........|
00001b90 04 0d 0c d0 1f dd f2 63 72 65 61 74 65 5f 6d 65 |.......create_me|
00001ba0 6e 75 28 74 69 74 6c 65 24 2c 6e 2c 78 2c 79 29 |nu(title$,n,x,y)|
00001bb0 0d 0c da 0d 6d 62 25 3d 6d 65 6e 75 25 0d 0c e4 |....mb%=menu%...|
00001bc0 0f 6d 65 6e 75 73 3d 30 3a 71 3d 30 0d 0c ee 05 |.menus=0:q=0....|
00001bd0 f5 0d 0c f8 21 20 20 6d 65 6e 75 70 6f 73 28 6d |....! menupos(m|
00001be0 65 6e 75 73 29 3d 6d 62 25 3a 6d 65 6e 75 73 2b |enus)=mb%:menus+|
00001bf0 3d 31 0d 0d 02 11 20 20 24 6d 62 25 3d 74 69 74 |=1.... $mb%=tit|
00001c00 6c 65 24 0d 0d 0c 1a 20 20 6d 62 25 3f 31 32 3d |le$.... mb%?12=|
00001c10 6d 65 6e 75 5f 74 69 74 6c 65 5f 66 67 0d 0d 16 |menu_title_fg...|
00001c20 1a 20 20 6d 62 25 3f 31 33 3d 6d 65 6e 75 5f 74 |. mb%?13=menu_t|
00001c30 69 74 6c 65 5f 62 67 0d 0d 20 19 20 20 6d 62 25 |itle_bg.. . mb%|
00001c40 3f 31 34 3d 6d 65 6e 75 5f 77 6f 72 6b 5f 66 67 |?14=menu_work_fg|
00001c50 0d 0d 2a 19 20 20 6d 62 25 3f 31 35 3d 6d 65 6e |..*. mb%?15=men|
00001c60 75 5f 77 6f 72 6b 5f 62 67 0d 0d 34 26 20 20 6d |u_work_bg..4& m|
00001c70 62 25 21 31 36 3d 31 30 30 3a f4 20 77 69 64 74 |b%!16=100:. widt|
00001c80 68 20 6f 66 20 6d 65 6e 75 20 69 74 65 6d 73 0d |h of menu items.|
00001c90 0d 3e 27 20 20 6d 62 25 21 32 30 3d 34 30 20 3a |.>' mb%!20=40 :|
00001ca0 f4 20 68 65 69 67 68 74 20 6f 66 20 6d 65 6e 75 |. height of menu|
00001cb0 20 69 74 65 6d 73 0d 0d 48 41 20 20 6d 62 25 21 | items..HA mb%!|
00001cc0 32 34 3d 31 30 20 3a f4 20 76 65 72 74 69 63 61 |24=10 :. vertica|
00001cd0 6c 20 67 61 70 20 62 65 74 77 65 65 6e 20 69 74 |l gap between it|
00001ce0 65 6d 73 20 28 61 6c 73 6f 20 74 6f 70 20 26 20 |ems (also top & |
00001cf0 62 6f 74 74 6f 6d 29 0d 0d 52 14 20 20 69 74 65 |bottom)..R. ite|
00001d00 6d 70 74 72 3d 6d 62 25 2b 32 38 0d 0d 5c 07 20 |mptr=mb%+28..\. |
00001d10 20 f5 0d 0d 66 1c 20 20 20 20 69 74 65 6d 70 74 | ...f. itempt|
00001d20 72 21 30 3d 73 65 74 74 69 6e 67 28 71 29 0d 0d |r!0=setting(q)..|
00001d30 70 18 20 20 20 20 72 65 66 28 71 29 3d 69 74 65 |p. ref(q)=ite|
00001d40 6d 70 74 72 2b 34 0d 0d 7a 40 20 20 20 20 69 74 |mptr+4..z@ it|
00001d50 65 6d 70 74 72 21 38 3d 66 6c 61 67 73 28 71 29 |emptr!8=flags(q)|
00001d60 20 84 20 6d 65 6e 75 5f 77 6f 72 6b 5f 62 67 3c | . menu_work_bg<|
00001d70 3c 32 38 20 84 20 6d 65 6e 75 5f 77 6f 72 6b 5f |<28 . menu_work_|
00001d80 66 67 3c 3c 32 34 0d 0d 84 1f 20 20 20 20 e7 20 |fg<<24.... . |
00001d90 28 66 6c 61 67 73 28 71 29 20 80 20 26 31 30 30 |(flags(q) . &100|
00001da0 29 3d 30 20 8c 0d 0d 8e 20 20 20 20 20 20 20 24 |)=0 .... $|
00001db0 28 69 74 65 6d 70 74 72 2b 31 32 29 3d 74 65 78 |(itemptr+12)=tex|
00001dc0 74 24 28 71 29 0d 0d 98 09 20 20 20 20 cc 0d 0d |t$(q).... ...|
00001dd0 a2 1c 20 20 20 20 20 20 70 6f 73 3d a7 74 65 78 |.. pos=.tex|
00001de0 74 24 28 71 29 2c 22 28 22 29 0d 0d ac 28 20 20 |t$(q),"(")...( |
00001df0 20 20 20 20 69 74 65 6d 70 74 72 21 31 32 3d a0 | itemptr!12=.|
00001e00 28 c0 74 65 78 74 24 28 71 29 2c 70 6f 73 2d 31 |(.text$(q),pos-1|
00001e10 29 29 0d 0d b6 17 20 20 20 20 20 20 69 74 65 6d |)).... item|
00001e20 70 74 72 21 31 36 3d 2d 31 0d 0d c0 32 20 20 20 |ptr!16=-1...2 |
00001e30 20 20 20 69 74 65 6d 70 74 72 21 32 30 3d a0 28 | itemptr!20=.(|
00001e40 c2 74 65 78 74 24 28 71 29 2c a9 28 74 65 78 74 |.text$(q),.(text|
00001e50 24 28 71 29 29 2d 70 6f 73 29 29 0d 0d ca 09 20 |$(q))-pos)).... |
00001e60 20 20 20 cd 0d 0d d4 18 20 20 20 20 69 74 65 6d | ..... item|
00001e70 70 74 72 2b 3d 32 34 3a 71 2b 3d 31 0d 0d de 1f |ptr+=24:q+=1....|
00001e80 20 20 fd 20 28 73 65 74 74 69 6e 67 28 71 2d 31 | . (setting(q-1|
00001e90 29 20 80 20 6c 61 73 74 29 3e 30 0d 0d e8 11 20 |) . last)>0.... |
00001ea0 20 6d 62 25 3d 69 74 65 6d 70 74 72 0d 0d f2 23 | mb%=itemptr...#|
00001eb0 20 20 e7 20 71 3c 3e 6e 20 8c 20 74 69 74 6c 65 | . q<>n . title|
00001ec0 24 3d 74 65 78 74 24 28 71 29 3a 71 2b 3d 31 0d |$=text$(q):q+=1.|
00001ed0 0d fc 09 fd 20 71 3d 6e 0d 0e 06 04 0d 0e 10 0f |.... q=n........|
00001ee0 e3 20 71 3d 30 20 b8 20 6e 2d 31 0d 0e 1a 29 20 |. q=0 . n-1...) |
00001ef0 20 e7 20 73 75 62 6d 65 6e 75 28 71 29 3e 30 20 | . submenu(q)>0 |
00001f00 80 20 73 75 62 6d 65 6e 75 28 71 29 3c 6d 65 6e |. submenu(q)<men|
00001f10 75 73 20 8c 0d 0e 24 23 20 20 20 20 21 72 65 66 |us ...$# !ref|
00001f20 28 71 29 3d 6d 65 6e 75 70 6f 73 28 73 75 62 6d |(q)=menupos(subm|
00001f30 65 6e 75 28 71 29 29 0d 0e 2e 07 20 20 cc 0d 0e |enu(q)).... ...|
00001f40 38 48 20 20 20 20 21 72 65 66 28 71 29 3d 73 75 |8H !ref(q)=su|
00001f50 62 6d 65 6e 75 28 71 29 3a f4 20 77 61 73 20 2d |bmenu(q):. was -|
00001f60 31 20 69 2e 65 2e 20 73 75 62 6d 65 6e 75 20 64 |1 i.e. submenu d|
00001f70 69 73 61 6c 6c 6f 77 65 64 21 20 54 68 69 73 20 |isallowed! This |
00001f80 63 68 61 6e 67 65 0d 0e 42 3e 20 20 20 20 20 20 |change..B> |
00001f90 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001fa0 3a f4 20 61 6c 6c 6f 77 73 20 61 20 77 69 6e 64 |:. allows a wind|
00001fb0 6f 77 20 68 61 6e 64 6c 65 20 74 6f 20 62 65 20 |ow handle to be |
00001fc0 75 73 65 64 0d 0e 4c 07 20 20 cd 0d 0e 56 07 ed |used..L. ...V..|
00001fd0 20 71 0d 0e 60 28 c8 99 20 22 57 69 6d 70 5f 43 | q..`(.. "Wimp_C|
00001fe0 72 65 61 74 65 4d 65 6e 75 22 2c 2c 6d 65 6e 75 |reateMenu",,menu|
00001ff0 25 2c 78 2d 36 34 2c 31 39 36 0d 0e 6a 05 e1 0d |%,x-64,196..j...|
00002000 0e 74 05 3a 0d 0e 7e 15 dd a4 69 6e 28 41 25 2c |.t.:..~...in(A%,|
00002010 42 25 2c 43 25 2c 44 25 29 0d 0e 88 11 e7 20 43 |B%,C%,D%)..... C|
00002020 25 3c 65 62 78 20 8c 20 3d a3 0d 0e 92 11 e7 20 |%<ebx . =...... |
00002030 41 25 3e 65 74 78 20 8c 20 3d a3 0d 0e 9c 11 e7 |A%>etx . =......|
00002040 20 42 25 3e 65 74 79 20 8c 20 3d a3 0d 0e a6 11 | B%>ety . =.....|
00002050 e7 20 44 25 3c 65 62 79 20 8c 20 3d a3 0d 0e b0 |. D%<eby . =....|
00002060 06 3d b9 0d 0e ba 05 3a 0d 0e c4 0d dd f2 6e 65 |.=.....:......ne|
00002070 77 76 61 6c 73 0d 0e ce 17 67 62 78 3d 71 25 21 |wvals....gbx=q%!|
00002080 32 38 3a 67 62 79 3d 71 25 21 33 32 0d 0e d8 17 |28:gby=q%!32....|
00002090 67 74 78 3d 71 25 21 33 36 3a 67 74 79 3d 71 25 |gtx=q%!36:gty=q%|
000020a0 21 34 30 0d 0e e2 15 77 62 78 3d 71 25 21 34 3a |!40....wbx=q%!4:|
000020b0 77 62 79 3d 71 25 21 38 0d 0e ec 17 77 74 78 3d |wby=q%!8....wtx=|
000020c0 71 25 21 31 32 3a 77 74 79 3d 71 25 21 31 36 0d |q%!12:wty=q%!16.|
000020d0 0e f6 17 78 73 63 3d 71 25 21 32 30 3a 79 73 63 |...xsc=q%!20:ysc|
000020e0 3d 71 25 21 32 34 0d 0f 00 21 68 70 3d 77 74 78 |=q%!24...!hp=wtx|
000020f0 2d 77 62 78 3a 76 70 3d 77 74 79 2d 77 62 79 3a |-wbx:vp=wty-wby:|
00002100 65 62 78 3d 78 73 63 0d 0f 0a 21 65 74 78 3d 78 |ebx=xsc...!etx=x|
00002110 73 63 2b 68 70 3a 65 74 79 3d 79 73 63 3a 65 62 |sc+hp:ety=ysc:eb|
00002120 79 3d 79 73 63 2d 76 70 0d 0f 14 05 e1 0d 0f 1e |y=ysc-vp........|
00002130 05 3a 0d 0f 28 10 dd a4 6d 61 78 28 61 25 2c 62 |.:..(...max(a%,b|
00002140 25 29 0d 0f 32 17 e7 20 61 25 3c 62 25 20 8c 20 |%)..2.. a%<b% . |
00002150 3d 62 25 20 8b 20 3d 61 25 0d 0f 3c 05 3a 0d 0f |=b% . =a%..<.:..|
00002160 46 1d dd f2 6f 70 65 6e 74 65 6d 70 6c 61 74 65 |F...opentemplate|
00002170 66 69 6c 65 28 66 69 6c 65 24 29 0d 0f 50 21 c8 |file(file$)..P!.|
00002180 99 20 22 57 69 6d 70 5f 4f 70 65 6e 54 65 6d 70 |. "Wimp_OpenTemp|
00002190 6c 61 74 65 22 2c 2c 66 69 6c 65 24 0d 0f 5a 05 |late",,file$..Z.|
000021a0 e1 0d 0f 64 05 3a 0d 0f 6e 1b dd f2 6c 6f 61 64 |...d.:..n...load|
000021b0 74 65 6d 70 6c 61 74 65 28 6e 61 6d 65 24 2c 62 |template(name$,b|
000021c0 29 0d 0f 78 13 ea 20 74 79 70 65 25 2c 70 6f 73 |)..x.. type%,pos|
000021d0 25 2c 78 25 0d 0f 82 4b c8 99 20 22 57 69 6d 70 |%,x%...K.. "Wimp|
000021e0 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 22 2c 2c |_LoadTemplate",,|
000021f0 62 2c 69 70 74 72 25 2c 69 65 6e 64 25 2c 2d 31 |b,iptr%,iend%,-1|
00002200 2c 6e 61 6d 65 24 2c 30 20 b8 20 74 79 70 65 25 |,name$,0 . type%|
00002210 2c 2c 69 70 74 72 25 2c 2c 2c 2c 70 6f 73 25 0d |,,iptr%,,,,pos%.|
00002220 0f 8c 05 e1 0d 0f 96 04 0d 0f a0 17 dd f2 63 6c |..............cl|
00002230 6f 73 65 74 65 6d 70 6c 61 74 65 66 69 6c 65 0d |osetemplatefile.|
00002240 0f aa 1b c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 |..... "Wimp_Clos|
00002250 65 54 65 6d 70 6c 61 74 65 22 0d 0f b4 05 e1 0d |eTemplate"......|
00002260 0f be 04 0d 0f c8 1d dd f2 6d 6f 75 73 65 5f 6c |.........mouse_l|
00002270 69 6d 69 74 28 62 2c 77 68 61 6e 64 6c 65 25 29 |imit(b,whandle%)|
00002280 0d 0f d2 2c 62 21 30 3d 77 68 61 6e 64 6c 65 25 |...,b!0=whandle%|
00002290 3a c8 99 20 22 57 69 6d 70 5f 47 65 74 57 69 6e |:.. "Wimp_GetWin|
000022a0 64 6f 77 53 74 61 74 65 22 2c 2c 62 0d 0f dc 2f |dowState",,b.../|
000022b0 f2 6d 6f 75 73 65 5f 72 65 63 74 61 6e 67 6c 65 |.mouse_rectangle|
000022c0 28 62 21 34 2c 62 21 38 2c 62 21 31 32 2d 62 21 |(b!4,b!8,b!12-b!|
000022d0 34 2c 62 21 31 36 2d 62 21 38 29 0d 0f e6 05 e1 |4,b!16-b!8).....|
000022e0 0d 0f f0 04 0d 0f fa 36 dd a4 73 70 72 69 74 65 |.......6..sprite|
000022f0 69 63 6f 6e 28 77 69 6e 64 6f 77 2c 78 30 2c 79 |icon(window,x0,y|
00002300 30 2c 78 31 2c 79 31 2c 66 6c 61 67 73 2c 73 70 |0,x1,y1,flags,sp|
00002310 74 72 2c 73 6e 61 6d 65 24 29 0d 10 04 20 de 20 |tr,sname$)... . |
00002320 71 25 21 32 34 20 a9 73 6e 61 6d 65 24 2b 31 3a |q%!24 .sname$+1:|
00002330 71 25 21 32 38 3d 73 70 74 72 0d 10 0e 21 71 25 |q%!28=sptr...!q%|
00002340 21 33 32 3d a9 73 6e 61 6d 65 24 2b 31 3a 24 71 |!32=.sname$+1:$q|
00002350 25 21 32 34 3d 73 6e 61 6d 65 24 0d 10 18 27 3d |%!24=sname$...'=|
00002360 a4 69 63 6f 6e 62 6c 6b 28 77 69 6e 64 6f 77 2c |.iconblk(window,|
00002370 78 30 2c 79 30 2c 78 31 2c 79 31 2c 66 6c 61 67 |x0,y0,x1,y1,flag|
00002380 73 29 0d 10 22 04 0d 10 2c 27 dd a4 69 63 6f 6e |s).."...,'..icon|
00002390 62 6c 6b 28 77 69 6e 64 6f 77 2c 78 30 2c 79 30 |blk(window,x0,y0|
000023a0 2c 78 31 2c 79 31 2c 66 6c 61 67 73 29 0d 10 36 |,x1,y1,flags)..6|
000023b0 0a ea 20 69 63 6f 6e 0d 10 40 0e 21 71 25 3d 77 |.. icon..@.!q%=w|
000023c0 69 6e 64 6f 77 0d 10 4a 13 71 25 21 34 3d 78 30 |indow..J.q%!4=x0|
000023d0 3a 71 25 21 38 3d 79 30 0d 10 54 15 71 25 21 31 |:q%!8=y0..T.q%!1|
000023e0 32 3d 78 31 3a 71 25 21 31 36 3d 79 31 0d 10 5e |2=x1:q%!16=y1..^|
000023f0 0f 71 25 21 32 30 3d 66 6c 61 67 73 0d 10 68 23 |.q%!20=flags..h#|
00002400 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 49 |.. "Wimp_CreateI|
00002410 63 6f 6e 22 2c 2c 71 25 20 b8 20 69 63 6f 6e 0d |con",,q% . icon.|
00002420 10 72 09 3d 69 63 6f 6e 0d 10 7c 04 0d 10 86 10 |.r.=icon..|.....|
00002430 dd a4 67 6e 61 6d 65 28 70 74 72 29 0d 10 90 09 |..gname(ptr)....|
00002440 66 24 3d 22 22 0d 10 9a 19 c8 95 20 3f 70 74 72 |f$=""...... ?ptr|
00002450 3c 3e 30 20 80 20 3f 70 74 72 3c 3e 31 33 0d 10 |<>0 . ?ptr<>13..|
00002460 a4 18 20 20 66 24 3d 66 24 2b bd 3f 70 74 72 3a |.. f$=f$+.?ptr:|
00002470 70 74 72 2b 3d 31 0d 10 ae 05 ce 0d 10 b8 07 3d |ptr+=1.........=|
00002480 66 24 0d 10 c2 04 0d 10 cc 22 dd f2 6d 6f 75 73 |f$......."..mous|
00002490 65 5f 72 65 63 74 61 6e 67 6c 65 28 78 25 2c 79 |e_rectangle(x%,y|
000024a0 25 2c 77 25 2c 68 25 29 0d 10 d6 15 c8 97 20 c8 |%,w%,h%)...... .|
000024b0 93 20 78 25 2c 79 25 2c 77 25 2c 68 25 0d 10 e0 |. x%,y%,w%,h%...|
000024c0 1f 6d 6f 75 73 65 6d 69 6e 78 25 3d 78 25 3a 6d |.mouseminx%=x%:m|
000024d0 6f 75 73 65 6d 69 6e 79 25 3d 79 25 0d 10 ea 22 |ouseminy%=y%..."|
000024e0 6d 6f 75 73 65 77 69 64 74 68 25 3d 77 25 3a 6d |mousewidth%=w%:m|
000024f0 6f 75 73 65 68 65 69 67 68 74 25 3d 68 25 0d 10 |ouseheight%=h%..|
00002500 f4 05 e1 0d 10 fe 04 0d 11 08 11 dd a4 6c 65 61 |.............lea|
00002510 66 28 70 61 74 68 24 29 0d 11 12 12 c8 95 20 a7 |f(path$)...... .|
00002520 70 61 74 68 24 2c 22 2e 22 29 0d 11 1c 1f 70 61 |path$,".")....pa|
00002530 74 68 24 3d c1 70 61 74 68 24 2c a7 70 61 74 68 |th$=.path$,.path|
00002540 24 2c 22 2e 22 29 2b 31 29 0d 11 26 05 ce 0d 11 |$,".")+1)..&....|
00002550 30 0a 3d 70 61 74 68 24 0d 11 3a 04 0d 11 44 0e |0.=path$..:...D.|
00002560 dd f2 6b 65 79 70 72 65 73 73 0d 11 4e 09 ea 20 |..keypress..N.. |
00002570 69 63 25 0d 11 58 10 e7 20 71 25 21 34 3c 3e 2d |ic%..X.. q%!4<>-|
00002580 31 20 8c 0d 11 62 25 20 20 c8 99 20 22 57 69 6d |1 ...b% .. "Wim|
00002590 70 5f 47 65 74 43 61 72 65 74 50 6f 73 69 74 69 |p_GetCaretPositi|
000025a0 6f 6e 22 2c 2c 62 6c 6b 0d 11 6c 0f 20 20 69 63 |on",,blk..l. ic|
000025b0 25 3d 62 6c 6b 21 34 0d 11 76 10 20 20 c8 8e 20 |%=blk!4..v. .. |
000025c0 71 25 21 32 34 20 ca 0d 11 80 0a 20 20 c9 20 31 |q%!24 ..... . 1|
000025d0 33 0d 11 8a 11 20 20 20 20 c8 8e 20 71 25 21 30 |3.... .. q%!0|
000025e0 20 ca 0d 11 94 14 20 20 20 20 20 20 c9 20 73 65 | ..... . se|
000025f0 74 74 79 70 65 25 0d 11 9e 14 20 20 20 20 20 20 |ttype%.... |
00002600 20 20 c8 8e 20 69 63 25 20 ca 0d 11 a8 11 20 20 | .. ic% ..... |
00002610 20 20 20 20 20 20 20 20 c9 20 30 0d 11 b2 1b 20 | . 0.... |
00002620 20 20 20 20 20 20 20 20 20 20 20 f2 6f 6b 5f 73 | .ok_s|
00002630 65 74 74 79 70 65 0d 11 bc 0d 20 20 20 20 20 20 |ettype.... |
00002640 20 20 cb 0d 11 c6 09 20 20 20 20 cb 0d 11 d0 07 | ..... .....|
00002650 20 20 cb 0d 11 da 05 cd 0d 11 e4 05 e1 0d 11 ee | ..............|
00002660 04 0d 11 f8 10 dd f2 6f 6b 5f 73 65 74 74 79 70 |.......ok_settyp|
00002670 65 0d 12 02 27 f2 69 63 6f 6e 5f 73 65 74 66 67 |e...'.icon_setfg|
00002680 63 6f 6c 6f 75 72 28 71 25 2c 73 65 74 74 79 70 |colour(q%,settyp|
00002690 65 25 2c 32 2c 31 32 29 0d 12 0c 26 f2 69 63 6f |e%,2,12)...&.ico|
000026a0 6e 5f 73 65 74 62 67 63 6f 6c 6f 75 72 28 71 25 |n_setbgcolour(q%|
000026b0 2c 73 65 74 74 79 70 65 25 2c 32 2c 37 29 0d 12 |,settype%,2,7)..|
000026c0 16 0f f2 64 65 6c 61 79 28 30 2e 32 29 0d 12 20 |...delay(0.2).. |
000026d0 26 f2 69 63 6f 6e 5f 73 65 74 66 67 63 6f 6c 6f |&.icon_setfgcolo|
000026e0 75 72 28 71 25 2c 73 65 74 74 79 70 65 25 2c 32 |ur(q%,settype%,2|
000026f0 2c 37 29 0d 12 2a 27 f2 69 63 6f 6e 5f 73 65 74 |,7)..*'.icon_set|
00002700 62 67 63 6f 6c 6f 75 72 28 71 25 2c 73 65 74 74 |bgcolour(q%,sett|
00002710 79 70 65 25 2c 32 2c 31 32 29 0d 12 34 3c e7 20 |ype%,2,12)..4<. |
00002720 a4 69 63 6f 6e 5f 67 65 74 64 61 74 61 28 71 25 |.icon_getdata(q%|
00002730 2c 73 65 74 74 79 70 65 25 2c 30 29 3d 22 22 20 |,settype%,0)="" |
00002740 8c 20 f2 6f 6b 28 22 4e 6f 20 74 79 70 65 20 69 |. .ok("No type i|
00002750 6e 70 75 74 22 29 0d 12 3e 40 ff 28 22 53 45 54 |nput")..>@.("SET|
00002760 54 59 50 45 20 22 2b 63 75 72 72 65 6e 74 5f 66 |TYPE "+current_f|
00002770 69 6c 65 24 2b 22 20 22 2b a4 69 63 6f 6e 5f 67 |ile$+" "+.icon_g|
00002780 65 74 64 61 74 61 28 71 25 2c 73 65 74 74 79 70 |etdata(q%,settyp|
00002790 65 25 2c 30 29 29 0d 12 48 05 e1 0d 12 52 04 0d |e%,0))..H....R..|
000027a0 12 5c 2d dd f2 69 63 6f 6e 5f 73 65 74 62 67 63 |.\-..icon_setbgc|
000027b0 6f 6c 6f 75 72 28 62 2c 77 68 61 6e 64 6c 65 25 |olour(b,whandle%|
000027c0 2c 69 63 6f 6e 25 2c 63 6f 6c 25 29 0d 12 66 35 |,icon%,col%)..f5|
000027d0 21 62 3d 77 68 61 6e 64 6c 65 25 3a 62 21 34 3d |!b=whandle%:b!4=|
000027e0 69 63 6f 6e 25 3a 62 21 38 3d 63 6f 6c 25 3c 3c |icon%:b!8=col%<<|
000027f0 32 38 3a 62 21 31 32 3d 26 46 30 30 30 30 30 30 |28:b!12=&F000000|
00002800 30 0d 12 70 1e c8 99 20 22 57 69 6d 70 5f 53 65 |0..p... "Wimp_Se|
00002810 74 49 63 6f 6e 53 74 61 74 65 22 2c 30 2c 62 0d |tIconState",0,b.|
00002820 12 7a 05 e1 0d 12 84 04 0d 12 8e 2d dd f2 69 63 |.z.........-..ic|
00002830 6f 6e 5f 73 65 74 66 67 63 6f 6c 6f 75 72 28 62 |on_setfgcolour(b|
00002840 2c 77 68 61 6e 64 6c 65 25 2c 69 63 6f 6e 25 2c |,whandle%,icon%,|
00002850 63 6f 6c 25 29 0d 12 98 35 21 62 3d 77 68 61 6e |col%)...5!b=whan|
00002860 64 6c 65 25 3a 62 21 34 3d 69 63 6f 6e 25 3a 62 |dle%:b!4=icon%:b|
00002870 21 38 3d 63 6f 6c 25 3c 3c 32 34 3a 62 21 31 32 |!8=col%<<24:b!12|
00002880 3d 26 30 46 30 30 30 30 30 30 0d 12 a2 1e c8 99 |=&0F000000......|
00002890 20 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 | "Wimp_SetIconSt|
000028a0 61 74 65 22 2c 30 2c 62 0d 12 ac 05 e1 0d 12 b6 |ate",0,b........|
000028b0 04 0d 12 c0 14 dd f2 64 65 6c 61 79 28 73 65 63 |.......delay(sec|
000028c0 6f 6e 64 73 29 0d 12 ca 0a ea 20 74 69 6d 65 0d |onds)..... time.|
000028d0 12 d4 1e 74 69 6d 65 20 3d 20 91 20 2b 20 28 73 |...time = . + (s|
000028e0 65 63 6f 6e 64 73 20 2a 20 31 30 30 29 0d 12 de |econds * 100)...|
000028f0 05 f5 0d 12 e8 0e fd 20 91 20 3e 20 74 69 6d 65 |....... . > time|
00002900 0d 12 f2 05 e1 0d 12 fc 04 0d 13 06 1a dd f2 69 |...............i|
00002910 6e 74 65 72 61 63 74 69 76 65 5f 68 65 6c 70 28 |nteractive_help(|
00002920 71 25 29 0d 13 10 08 ea 20 74 24 0d 13 1a 0e c8 |q%)..... t$.....|
00002930 8e 20 71 25 21 33 32 20 ca 0d 13 24 0a 20 20 c9 |. q%!32 ...$. .|
00002940 20 2d 32 0d 13 2e c3 20 20 20 20 74 24 3d 22 54 | -2.... t$="T|
00002950 68 69 73 20 69 73 20 74 68 65 20 53 65 74 54 79 |his is the SetTy|
00002960 70 65 20 69 63 6f 6e 2e 7c 4d 43 6c 69 63 6b 20 |pe icon.|MClick |
00002970 53 45 4c 45 43 54 20 6f 6e 20 74 68 69 73 20 74 |SELECT on this t|
00002980 6f 20 6f 70 65 6e 20 74 68 65 20 77 69 6e 64 6f |o open the windo|
00002990 77 2e 20 46 69 6c 65 73 20 6d 61 79 20 62 65 20 |w. Files may be |
000029a0 64 72 61 67 67 65 64 20 74 6f 20 74 68 69 73 20 |dragged to this |
000029b0 69 63 6f 6e 20 74 6f 20 63 68 61 6e 67 65 20 74 |icon to change t|
000029c0 68 65 69 72 20 74 79 70 65 2e 7c 4d 43 6c 69 63 |heir type.|MClic|
000029d0 6b 20 4d 45 4e 55 20 74 6f 20 6f 62 74 61 69 6e |k MENU to obtain|
000029e0 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 72 20 | information or |
000029f0 71 75 69 74 20 74 68 65 20 61 70 70 6c 69 63 61 |quit the applica|
00002a00 74 69 6f 6e 2e 22 0d 13 38 10 20 20 c9 20 73 65 |tion."..8. . se|
00002a10 74 74 79 70 65 25 0d 13 42 12 20 20 20 20 c8 8e |ttype%..B. ..|
00002a20 20 71 25 21 33 36 20 ca 0d 13 4c 0b 20 20 20 20 | q%!36 ...L. |
00002a30 c9 20 30 0d 13 56 35 20 20 20 20 20 20 74 24 3d |. 0..V5 t$=|
00002a40 22 54 79 70 65 20 74 68 65 20 66 69 6c 65 74 79 |"Type the filety|
00002a50 70 65 20 6e 61 6d 65 20 6f 72 20 6e 75 6d 62 65 |pe name or numbe|
00002a60 72 20 68 65 72 65 2e 22 0d 13 60 0b 20 20 20 20 |r here."..`. |
00002a70 c9 20 32 0d 13 6a 49 20 20 20 20 20 20 74 24 3d |. 2..jI t$=|
00002a80 22 43 6c 69 63 6b 69 6e 67 20 53 45 4c 45 43 54 |"Clicking SELECT|
00002a90 20 6f 6e 20 74 68 69 73 20 69 63 6f 6e 20 61 74 | on this icon at|
00002aa0 74 65 6d 70 74 73 20 74 6f 20 73 65 74 20 74 68 |tempts to set th|
00002ab0 65 20 66 69 6c 65 74 79 70 65 2e 22 0d 13 74 0b |e filetype."..t.|
00002ac0 20 20 20 20 c9 20 34 0d 13 7e 5b 20 20 20 20 20 | . 4..~[ |
00002ad0 20 74 24 3d 22 44 72 61 67 67 69 6e 67 20 61 20 | t$="Dragging a |
00002ae0 66 69 6c 65 20 74 6f 20 74 68 69 73 20 77 69 6e |file to this win|
00002af0 64 6f 77 20 6f 72 20 74 68 65 20 69 63 6f 6e 62 |dow or the iconb|
00002b00 61 72 20 69 63 6f 6e 20 70 6c 61 63 65 73 20 74 |ar icon places t|
00002b10 68 65 20 66 69 6c 65 6e 61 6d 65 20 68 65 72 65 |he filename here|
00002b20 2e 22 0d 13 88 09 20 20 20 20 cb 0d 13 92 05 cb |.".... ......|
00002b30 0d 13 9c 0e e7 20 74 24 3c 3e 22 22 20 8c 0d 13 |..... t$<>"" ...|
00002b40 a6 10 20 20 71 25 21 31 32 3d 71 25 21 38 0d 13 |.. q%!12=q%!8..|
00002b50 b0 10 20 20 71 25 21 31 36 3d 26 35 30 33 0d 13 |.. q%!16=&503..|
00002b60 ba 14 20 20 24 28 71 25 2b 32 30 29 3d 74 24 2b |.. $(q%+20)=t$+|
00002b70 bd 30 0d 13 c4 18 20 20 21 71 25 3d 28 32 35 2b |.0.... !q%=(25+|
00002b80 a9 74 24 29 20 80 20 ac 20 33 0d 13 ce 26 20 20 |.t$) . . 3...& |
00002b90 c8 99 20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 |.. "Wimp_SendMes|
00002ba0 73 61 67 65 22 2c 31 37 2c 71 25 2c 71 25 21 34 |sage",17,q%,q%!4|
00002bb0 0d 13 d8 05 cd 0d 13 e2 05 e1 0d ff |............|
00002bbc 
.