Home » Archimedes archive » Micro User » MU 1991-03.adf » PD-Stuff » Utilities/!Filter/!RunImage
Utilities/!Filter/!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-03.adf » PD-Stuff |
| Filename: | Utilities/!Filter/!RunImage |
| Read OK: | ✔ |
| File size: | 1A96 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Micro User » MU 1991-04.adf » PD-Stuff » !Filter/!RunImage
- Archimedes archive » Micro User » MU 1991-03.adf » PD-Stuff » Utilities/!Filter/!RunImage
File contents
10REM ><Filter$Dir>.!RunImage
20REM By Carl Declerck (C)1990
30
40ver$="0.13 (14-Aug-90)"
50file$=""
60
70ON ERROR PROC_Error
80PROC_Initialise("Filter")
90PROC_LoadTemplates("<Filter$Dir>.Templates")
100PROC_Install("Filter")
110PROC_Menus
120PROC_MainLoop
130END
140:
150DEF PROC_MainLoop
160REPEAT
170 PROC_Poll
180UNTIL 0
190ENDPROC
200:
210DEF PROC_Filter(name$)
220LOCAL getptr%,putptr%,byte%,f%,p,percent%
230f%=OPENUP(name$)
240SYS "Hourglass_On"
250p=100/EXT#f%
260getptr%=PTR#f%
270putptr%=PTR#f%
280WHILE NOT EOF#f%
290 percent%=p*getptr%
300 SYS "Hourglass_Percentage",percent%
310 byte%=BGET#f%
320 getptr%+=1
330 IF bytes%!(byte%*4)<>-1 THEN
340 PTR#f%=putptr%
350 BPUT#f%,bytes%!(byte%*4)
360 putptr%+=1
370 ENDIF
380 PTR#f%=getptr%
390ENDWHILE
400EXT#f%=putptr%
410SYS "Hourglass_Off"
420CLOSE#f%
430ENDPROC
440:
450DEF PROC_Reset
460LOCAL n%
470FOR n%=0 TO 255
480 bytes%!(n%*4)=n%
490NEXT n%
500PROC_IconPutData(q2%,filtwin%,5,"0",FALSE)
510PROC_IconPutData(q2%,filtwin%,4,"0",FALSE)
520PROC_IconSetRadio(q2%,filtwin%,8,FALSE)
530PROC_IconSetRadio(q2%,filtwin%,9,TRUE)
540ENDPROC
550:
560DEF PROC_NewByte(i%)
570LOCAL b%,r$
580b%=EVAL(FN_IconGetData(q2%,filtwin%,5))
590IF b%+i%>=0 AND b%+i%<=255 THEN
600 IF FN_IconGetRadio(q2%,filtwin%,8) THEN
610 bytes%!(b%*4)=-1
620 ELSE
630 bytes%!(b%*4)=EVAL(FN_IconGetData(q2%,filtwin%,4))
640 ENDIF
650 b%+=i%
660 PROC_IconPutData(q2%,filtwin%,5,STR$(b%),TRUE)
670 r$=STR$(bytes%!(b%*4))
680 IF bytes%!(b%*4)=-1 THEN
690 PROC_IconSetRadio(q2%,filtwin%,8,TRUE)
700 PROC_IconSetRadio(q2%,filtwin%,9,FALSE)
710 r$=STR$(b%)
720 ELSE
730 PROC_IconSetRadio(q2%,filtwin%,8,FALSE)
740 PROC_IconSetRadio(q2%,filtwin%,9,TRUE)
750 ENDIF
760 PROC_IconPutData(q2%,filtwin%,4,r$,TRUE)
770ENDIF
780ENDPROC
790:
800DEF PROC_NewByteRep(i%)
810LOCAL b%,n%
820b%=EVAL(FN_IconGetData(q2%,filtwin%,4))
830n%=EVAL(FN_IconGetData(q2%,filtwin%,5))
840IF b%+i%>=0 AND b%+i%<=255 THEN
850 b%+=i%
860 PROC_IconPutData(q2%,filtwin%,4,STR$(b%),TRUE)
870 bytes%!(n%*4)=b%
880ENDIF
890ENDPROC
900:
910DEF PROC_Initialise(name$)
920DIM q% &100, q2% &1100, errblk% &100
930DIM t 4:$t="TASK"
940DIM bytes% 1024
950SYS "Wimp_Initialise",200,!t,name$
960ENDPROC
970:
980DEF PROC_Poll
990LOCAL action%
1000SYS "Wimp_Poll",0,q% TO action%
1010CASE action% OF
1020 WHEN 1: PROC_RedrawWindow(q%)
1030 WHEN 2: PROC_OpenWindow(q%)
1040 WHEN 3: PROC_CloseWindow(q%)
1050 WHEN 6: PROC_Mouse(q%)
1060 WHEN 9: PROC_DecodeMenu(q%)
1070 WHEN 17,18: PROC_Message(q%)
1080ENDCASE
1090ENDPROC
1100:
1110DEF PROC_RedrawWindow(q%)
1120LOCAL more%,x%,y%
1130SYS "Wimp_RedrawWindow",,q% TO more%
1140WHILE more%
1150 x%=q%!4-q%!20
1160 y%=q%!16-q%!24
1170
1180 SYS "Wimp_GetRectangle",,q% TO more%
1190ENDWHILE
1200ENDPROC
1210:
1220DEF PROC_OpenWindow(q%)
1230SYS "Wimp_OpenWindow",,q%
1240ENDPROC
1250:
1260DEF PROC_CloseWindow(q%)
1270SYS "Wimp_CloseWindow",,q%
1280ENDPROC
1290:
1300DEF PROC_Mouse(q%)
1310LOCAL mx%,my%,mb%,sizex%,sizey%
1320mx%=q%!0
1330my%=q%!4
1340mb%=q%!8
1350CASE q%!12 OF
1360 WHEN -2
1370 CASE mb% OF
1380 WHEN &02
1390 SYS "Wimp_CreateMenu",,iconmenu%,mx%-iconmenu%!16/2-24,96+2*44
1400 ENDCASE
1410 WHEN filtwin%
1420 CASE q%!16 OF
1430 WHEN 0
1440 IF file$<>"" THEN
1450 PROC_NewByteRep(0)
1460 PROC_NewByte(0)
1470 PROC_Filter(file$)
1480 q%!0=filtwin%
1490 SYS "Wimp_CloseWindow",,q%
1500 file$=""
1510 ENDIF
1520 WHEN 6
1530 PROC_NewByte(-1)
1540 WHEN 7
1550 PROC_NewByte(1)
1560 WHEN 3
1570 PROC_NewByteRep(-1)
1580 WHEN 1
1590 PROC_NewByteRep(1)
1600 ENDCASE
1610ENDCASE
1620ENDPROC
1630:
1640DEF PROC_DecodeMenu(q%)
1650CASE q%!0 OF
1660 WHEN 1:PROC_CloseDown
1670ENDPROC
1680:
1690DEF PROC_Install(text$)
1700LOCAL sx%,sy%,sm%,px%,py%,sprite$
1710sprite$="!"+text$
1720DIM sprite% (LEN(sprite$)+1),text% LEN(text$)
1730$sprite%="S"+sprite$
1740$text%=text$
1750SYS "Wimp_SpriteOp",40,,sprite$ TO ,,,sx%,sy%,,sm%
1760SYS "OS_ReadModeVariable",sm%,4 TO ,,px%: sx%=sx%<<px%
1770SYS "OS_ReadModeVariable",sm%,5 TO ,,py%: sy%=sy%<<py%
1780IF LEN(text$)*16>sx% THEN sx%=(LEN(text$)-2)*16
1790!q%=-1
1800q%!4=0: q%!8=-64:q%!12=q%!4+sx%:q%!16=2+sy%
1810q%!20=&1700210B
1820q%!24=text%
1830q%!28=sprite%
1840q%!32=LEN(text$)
1850SYS "Wimp_CreateIcon",,q% TO !q%
1860ENDPROC
1870:
1880DEF PROC_Menus
1890DIM iconmenu% 28+2*24
1900
1910$iconmenu%="Filter"
1920iconmenu%?12=7
1930iconmenu%?13=2
1940iconmenu%?14=7
1950iconmenu%?15=0
1960iconmenu%!16=LEN"Filter"*16+12
1970iconmenu%!20=44
1980iconmenu%!24=0
1990iconmenu%!(28+0*24+0)=&00
2000iconmenu%!(28+0*24+4)=info%
2010iconmenu%!(28+0*24+8)=&07000001
2020$(iconmenu%+28+0*24+12)="Info"
2030iconmenu%!(28+1*24+0)=&80
2040iconmenu%!(28+1*24+4)=-1
2050iconmenu%!(28+1*24+8)=&07000001
2060$(iconmenu%+28+1*24+12)="Quit"
2070ENDPROC
2080:
2090DEF FN_String(a%)
2100LOCAL b$:b$="": WHILE ?a%<>0:b$+=CHR$?a%:a%+=1:ENDWHILE:=b$
2110:
2120DEF PROC_String0(s%,s$)
2130LOCAL n%
2140FOR n%=1 TO LEN(s$)
2150 s%?(n%-1)=ASC(MID$(s$,n%,1))
2160NEXT n%
2170s%?LEN(s$)=0
2180ENDPROC
2190:
2200DEF FN_ErrBlk(err%,report$)
2210!errblk%=err%
2220$(errblk%+4)=report$
2230errblk%?(4+LEN($(errblk%+4)))=0
2240=errblk%
2250:
2260DEF PROC_Open(name$)
2270file$=name$
2280PROC_Reset
2290q%!0=filtwin%
2300SYS "Wimp_GetWindowState",,q%
2310SYS "Wimp_OpenWindow",,q%
2320ENDPROC
2330:
2340DEF PROC_LoadTemplates(templ$)
2350LOCAL indirect%,iptr%,iend%
2360DIM indirect% &1100
2370iptr%=indirect%:iend%=iptr%+&1100
2380PROC_OpenTemplate(templ$)
2390PROC_LoadTemplate("progInfo",q2%)
2400SYS "Wimp_CreateWindow",,q2% TO info%
2410PROC_LoadTemplate("filter",q2%)
2420SYS "Wimp_CreateWindow",,q2% TO filtwin%
2430PROC_CloseTemplate
2440PROC_IconPutData(q2%,info%,4,ver$,FALSE)
2450ENDPROC
2460:
2470DEF PROC_OpenTemplate(file$)
2480SYS "Wimp_OpenTemplate",,file$
2490ENDPROC
2500:
2510DEF PROC_LoadTemplate(name$,b)
2520LOCAL type%,pos%,x%
2530SYS "Wimp_LoadTemplate",,b,iptr%,iend%,-1,name$,0 TO type%,,iptr%,,,,pos%
2540ENDPROC
2550:
2560DEF PROC_CloseTemplate
2570SYS "Wimp_CloseTemplate"
2580ENDPROC
2590:
2600DEF PROC_IconPutData(q2%,whandle%,ihandle%,data$,redraw)
2610q2%!0=whandle%
2620q2%!4=ihandle%
2630SYS "Wimp_GetIconState",,q2%
2640$(q2%!28)=data$
2650IF redraw THEN
2660SYS "Wimp_ForceRedraw",whandle%,q2%!8,q2%!12,q2%!16,q2%!20
2670ENDIF
2680ENDPROC
2690:
2700DEF FN_IconGetData(q2%,whandle%,ihandle%)
2710q2%!0=whandle%
2720q2%!4=ihandle%
2730SYS "Wimp_GetIconState",,q2%
2740=$(q2%!28)
2750:
2760DEF PROC_IconSetRadio(q2%,whandle%,ihandle%,stat%)
2770LOCAL eor%,clear%
2780q2%!0=whandle%
2790q2%!4=ihandle%
2800IF stat% THEN
2810 eor%=2^21
2820 clear%=2^21
2830ELSE
2840 eor%=0
2850 clear%=2^21
2860ENDIF
2870q2%!8=eor%
2880q2%!12=clear%
2890SYS "Wimp_SetIconState",,q2%
2900SYS "Wimp_GetIconState",,q2%
2910SYS "Wimp_ForceRedraw",whandle%,q2%!8,q2%!12,q2%!16,q2%!20
2920ENDPROC
2930:
2940DEF FN_IconGetRadio(q2%,whandle%,ihandle%)
2950q2%!0=whandle%
2960q2%!4=ihandle%
2970SYS "Wimp_GetIconState",,q2%
2980=(q2%!24) AND (2^21)
2990:
3000DEF FN_FileType(a$)
3010LOCAL ftype%
3020SYS "OS_File",5,a$ TO ,,ftype%
3030=(ftype%>>8) AND &FFF
3040:
3050DEF PROC_CloseDown
3060SYS "Wimp_CloseDown"
3070END
3080ENDPROC
3090:
3100DEF PROC_Error
3110LOCAL cont%, err$
3120err$=REPORT$+" (internal error code "+STR$(ERL)+"). Click 'OK' to repair, or 'Cancel' to quit."
3130SYS "Wimp_ReportError",FN_ErrBlk(ERR,err$),3,"FracTrace" TO ,cont%
3140IF cont%=2 THEN PROC_CloseDown
3150PROC_MainLoop
3160ENDPROC
3170:
3180DEF PROC_KeyPressed(q%)
3190LOCAL window%,icon%,key%,newpos%,newind%,index%
3200window%=q%!0
3210icon%=q%!4
3220index%=q%!20
3230key%=q%!24
3240CASE window% OF
3250ENDCASE
3260ENDPROC
3270:
3280DEF PROC_Message(q%)
3290CASE q%!16 OF
3300 WHEN 0: PROC_CloseDown
3310 WHEN 3: PROC_File(FN_String(q%+44))
3320ENDCASE
3330ENDPROC
3340:
3350DEF PROC_File(name$)
3360q%!12=q%!8:q%!16=4:SYS "Wimp_SendMessage",17,q%,q%!4
3370PROC_Open(name$)
3380ENDPROC
3390:
3400DEF PROC_String0(s%,s$)
3410LOCAL n%
3420FOR n%=1 TO LEN(s$)
3430 s%?(n%-1)=ASC(MID$(s$,n%,1))
3440NEXT n%
3450s%?LEN(s$)=0
3460ENDPROC
� ><Filter$Dir>.!RunImage
� By Carl Declerck (C)1990
(ver$="0.13 (14-Aug-90)"
2 file$=""
<
F� � �_Error
P�_Initialise("Filter")
Z-�_LoadTemplates("<Filter$Dir>.Templates")
d�_Install("Filter")
n �_Menus
x�_MainLoop
��
�:
�� �_MainLoop
��
� �_Poll
�� 0
��
�:
�� �_Filter(name$)
�)� getptr%,putptr%,byte%,f%,p,percent%
�f%=�(name$)
�ș "Hourglass_On"
�p=100/�#f%
getptr%=�#f%
putptr%=�#f%
ȕ � �#f%
" percent%=p*getptr%
,' ș "Hourglass_Percentage",percent%
6 byte%=�#f%
@ getptr%+=1
J � bytes%!(byte%*4)<>-1 �
T �#f%=putptr%
^ �#f%,bytes%!(byte%*4)
h putptr%+=1
r �
| �#f%=getptr%
��
��#f%=putptr%
�ș "Hourglass_Off"
��#f%
��
�:
�
� �_Reset
�� n%
�� n%=0 � 255
� bytes%!(n%*4)=n%
�� n%
�'�_IconPutData(q2%,filtwin%,5,"0",�)
�'�_IconPutData(q2%,filtwin%,4,"0",�)
$�_IconSetRadio(q2%,filtwin%,8,�)
$�_IconSetRadio(q2%,filtwin%,9,�)
�
&:
0� �_NewByte(i%)
: � b%,r$
D'b%=�(�_IconGetData(q2%,filtwin%,5))
N � b%+i%>=0 � b%+i%<=255 �
X' � �_IconGetRadio(q2%,filtwin%,8) �
b bytes%!(b%*4)=-1
l �
v4 bytes%!(b%*4)=�(�_IconGetData(q2%,filtwin%,4))
� �
� b%+=i%
�* �_IconPutData(q2%,filtwin%,5,�(b%),�)
� r$=�(bytes%!(b%*4))
� � bytes%!(b%*4)=-1 �
�& �_IconSetRadio(q2%,filtwin%,8,�)
�& �_IconSetRadio(q2%,filtwin%,9,�)
� r$=�(b%)
� �
�& �_IconSetRadio(q2%,filtwin%,8,�)
�& �_IconSetRadio(q2%,filtwin%,9,�)
� �
�' �_IconPutData(q2%,filtwin%,4,r$,�)
�
�
:
� �_NewByteRep(i%)
* � b%,n%
4'b%=�(�_IconGetData(q2%,filtwin%,4))
>'n%=�(�_IconGetData(q2%,filtwin%,5))
H � b%+i%>=0 � b%+i%<=255 �
R b%+=i%
\* �_IconPutData(q2%,filtwin%,4,�(b%),�)
f bytes%!(n%*4)=b%
p�
z�
�:
�� �_Initialise(name$)
�&� q% &100, q2% &1100, errblk% &100
�� t 4:$t="TASK"
�� bytes% 1024
�%ș "Wimp_Initialise",200,!t,name$
��
�:
� � �_Poll
�
� action%
�!ș "Wimp_Poll",0,q% � action%
�Ȏ action% �
� � 1: �_RedrawWindow(q%)
� 2: �_OpenWindow(q%)
� 3: �_CloseWindow(q%)
� 6: �_Mouse(q%)
$ � 9: �_DecodeMenu(q%)
. � 17,18: �_Message(q%)
8�
B�
L:
V� �_RedrawWindow(q%)
`� more%,x%,y%
j&ș "Wimp_RedrawWindow",,q% � more%
t ȕ more%
~ x%=q%!4-q%!20
� y%=q%!16-q%!24
�
�' ș "Wimp_GetRectangle",,q% � more%
��
��
�:
�� �_OpenWindow(q%)
� ș "Wimp_OpenWindow",,q%
��
�:
�� �_CloseWindow(q%)
� ș "Wimp_CloseWindow",,q%
�
:
� �_Mouse(q%)
� mx%,my%,mb%,sizex%,sizey%
( mx%=q%!0
2 my%=q%!4
< mb%=q%!8
FȎ q%!12 �
P � -2
Z Ȏ mb% �
d � &02
nE ș "Wimp_CreateMenu",,iconmenu%,mx%-iconmenu%!16/2-24,96+2*44
x �
� � filtwin%
� Ȏ q%!16 �
�
� 0
� � file$<>"" �
� �_NewByteRep(0)
� �_NewByte(0)
� �_Filter(file$)
� q%!0=filtwin%
�" ș "Wimp_CloseWindow",,q%
� file$=""
� �
�
� 6
� �_NewByte(-1)
� 7
�_NewByte(1)
� 3
" �_NewByteRep(-1)
,
� 1
6 �_NewByteRep(1)
@ �
J�
T�
^:
h� �_DecodeMenu(q%)
r
Ȏ q%!0 �
| � 1:�_CloseDown
��
�:
�� �_Install(text$)
�!� sx%,sy%,sm%,px%,py%,sprite$
�sprite$="!"+text$
�+� sprite% (�(sprite$)+1),text% �(text$)
�$sprite%="S"+sprite$
�$text%=text$
�4ș "Wimp_SpriteOp",40,,sprite$ � ,,,sx%,sy%,,sm%
�8ș "OS_ReadModeVariable",sm%,4 � ,,px%: sx%=sx%<<px%
�8ș "OS_ReadModeVariable",sm%,5 � ,,py%: sy%=sy%<<py%
�+� �(text$)*16>sx% � sx%=(�(text$)-2)*16
�
!q%=-1
/q%!4=0: q%!8=-64:q%!12=q%!4+sx%:q%!16=2+sy%
q%!20=&1700210B
q%!24=text%
&q%!28=sprite%
0q%!32=�(text$)
:"ș "Wimp_CreateIcon",,q% � !q%
D�
N:
X
� �_Menus
b� iconmenu% 28+2*24
l
v$iconmenu%="Filter"
�iconmenu%?12=7
�iconmenu%?13=2
�iconmenu%?14=7
�iconmenu%?15=0
� iconmenu%!16=�"Filter"*16+12
�iconmenu%!20=44
�iconmenu%!24=0
� iconmenu%!(28+0*24+0)=&00
� iconmenu%!(28+0*24+4)=info%
�#iconmenu%!(28+0*24+8)=&07000001
�"$(iconmenu%+28+0*24+12)="Info"
� iconmenu%!(28+1*24+0)=&80
� iconmenu%!(28+1*24+4)=-1
#iconmenu%!(28+1*24+8)=&07000001
"$(iconmenu%+28+1*24+12)="Quit"
�
:
*� �_String(a%)
4.� b$:b$="": ȕ ?a%<>0:b$+=�?a%:a%+=1:�:=b$
>:
H� �_String0(s%,s$)
R� n%
\� n%=1 � �(s$)
f s%?(n%-1)=�(�s$,n%,1))
p� n%
zs%?�(s$)=0
��
�:
� � �_ErrBlk(err%,report$)
�!errblk%=err%
�$(errblk%+4)=report$
�!errblk%?(4+�($(errblk%+4)))=0
� =errblk%
�:
�� �_Open(name$)
�file$=name$
� �_Reset
�q%!0=filtwin%
� ș "Wimp_GetWindowState",,q%
ș "Wimp_OpenWindow",,q%
�
:
$ � �_LoadTemplates(templ$)
.� indirect%,iptr%,iend%
8� indirect% &1100
B%iptr%=indirect%:iend%=iptr%+&1100
L�_OpenTemplate(templ$)
V"�_LoadTemplate("progInfo",q2%)
`'ș "Wimp_CreateWindow",,q2% � info%
j �_LoadTemplate("filter",q2%)
t*ș "Wimp_CreateWindow",,q2% � filtwin%
~�_CloseTemplate
�%�_IconPutData(q2%,info%,4,ver$,�)
��
�:
�� �_OpenTemplate(file$)
�!ș "Wimp_OpenTemplate",,file$
��
�:
� � �_LoadTemplate(name$,b)
�� type%,pos%,x%
�Kș "Wimp_LoadTemplate",,b,iptr%,iend%,-1,name$,0 � type%,,iptr%,,,,pos%
��
�:
� �_CloseTemplate
ș "Wimp_CloseTemplate"
�
:
(7� �_IconPutData(q2%,whandle%,ihandle%,data$,redraw)
2q2%!0=whandle%
<q2%!4=ihandle%
F ș "Wimp_GetIconState",,q2%
P$(q2%!28)=data$
Z� redraw �
d=ș "Wimp_ForceRedraw",whandle%,q2%!8,q2%!12,q2%!16,q2%!20
n�
x�
�:
�*� �_IconGetData(q2%,whandle%,ihandle%)
�q2%!0=whandle%
�q2%!4=ihandle%
� ș "Wimp_GetIconState",,q2%
�=$(q2%!28)
�:
�1� �_IconSetRadio(q2%,whandle%,ihandle%,stat%)
�� eor%,clear%
�q2%!0=whandle%
�q2%!4=ihandle%
�
� stat% �
� eor%=2^21
clear%=2^21
�
eor%=0
" clear%=2^21
,�
6q2%!8=eor%
@q2%!12=clear%
J ș "Wimp_SetIconState",,q2%
T ș "Wimp_GetIconState",,q2%
^=ș "Wimp_ForceRedraw",whandle%,q2%!8,q2%!12,q2%!16,q2%!20
h�
r:
|+� �_IconGetRadio(q2%,whandle%,ihandle%)
�q2%!0=whandle%
�q2%!4=ihandle%
� ș "Wimp_GetIconState",,q2%
�=(q2%!24) � (2^21)
�:
�� �_FileType(a$)
� � ftype%
� ș "OS_File",5,a$ � ,,ftype%
�=(ftype%>>8) � &FFF
�:
�� �_CloseDown
�ș "Wimp_CloseDown"
��
�
:
� �_Error
&� cont%, err$
0Yerr$=�$+" (internal error code "+�(�)+"). Click 'OK' to repair, or 'Cancel' to quit."
:Aș "Wimp_ReportError",�_ErrBlk(�,err$),3,"FracTrace" � ,cont%
D� cont%=2 � �_CloseDown
N�_MainLoop
X�
b:
l� �_KeyPressed(q%)
v/� window%,icon%,key%,newpos%,newind%,index%
�window%=q%!0
�icon%=q%!4
�index%=q%!20
�key%=q%!24
�Ȏ window% �
��
��
�:
�� �_Message(q%)
�Ȏ q%!16 �
� � 0: �_CloseDown
�! � 3: �_File(�_String(q%+44))
��
�
:
� �_File(name$)
7q%!12=q%!8:q%!16=4:ș "Wimp_SendMessage",17,q%,q%!4
*�_Open(name$)
4�
>:
H� �_String0(s%,s$)
R� n%
\� n%=1 � �(s$)
f s%?(n%-1)=�(�s$,n%,1))
p� n%
zs%?�(s$)=0
��
� 00000000 0d 00 0a 1d f4 20 3e 3c 46 69 6c 74 65 72 24 44 |..... ><Filter$D|
00000010 69 72 3e 2e 21 52 75 6e 49 6d 61 67 65 0d 00 14 |ir>.!RunImage...|
00000020 1e f4 20 42 79 20 43 61 72 6c 20 44 65 63 6c 65 |.. By Carl Decle|
00000030 72 63 6b 20 28 43 29 31 39 39 30 0d 00 1e 04 0d |rck (C)1990.....|
00000040 00 28 1b 76 65 72 24 3d 22 30 2e 31 33 20 28 31 |.(.ver$="0.13 (1|
00000050 34 2d 41 75 67 2d 39 30 29 22 0d 00 32 0c 66 69 |4-Aug-90)"..2.fi|
00000060 6c 65 24 3d 22 22 0d 00 3c 04 0d 00 46 0f ee 20 |le$=""..<...F.. |
00000070 85 20 f2 5f 45 72 72 6f 72 0d 00 50 1a f2 5f 49 |. ._Error..P.._I|
00000080 6e 69 74 69 61 6c 69 73 65 28 22 46 69 6c 74 65 |nitialise("Filte|
00000090 72 22 29 0d 00 5a 2d f2 5f 4c 6f 61 64 54 65 6d |r")..Z-._LoadTem|
000000a0 70 6c 61 74 65 73 28 22 3c 46 69 6c 74 65 72 24 |plates("<Filter$|
000000b0 44 69 72 3e 2e 54 65 6d 70 6c 61 74 65 73 22 29 |Dir>.Templates")|
000000c0 0d 00 64 17 f2 5f 49 6e 73 74 61 6c 6c 28 22 46 |..d.._Install("F|
000000d0 69 6c 74 65 72 22 29 0d 00 6e 0b f2 5f 4d 65 6e |ilter")..n.._Men|
000000e0 75 73 0d 00 78 0e f2 5f 4d 61 69 6e 4c 6f 6f 70 |us..x.._MainLoop|
000000f0 0d 00 82 05 e0 0d 00 8c 05 3a 0d 00 96 10 dd 20 |.........:..... |
00000100 f2 5f 4d 61 69 6e 4c 6f 6f 70 0d 00 a0 05 f5 0d |._MainLoop......|
00000110 00 aa 0b 20 f2 5f 50 6f 6c 6c 0d 00 b4 07 fd 20 |... ._Poll..... |
00000120 30 0d 00 be 05 e1 0d 00 c8 05 3a 0d 00 d2 15 dd |0.........:.....|
00000130 20 f2 5f 46 69 6c 74 65 72 28 6e 61 6d 65 24 29 | ._Filter(name$)|
00000140 0d 00 dc 29 ea 20 67 65 74 70 74 72 25 2c 70 75 |...). getptr%,pu|
00000150 74 70 74 72 25 2c 62 79 74 65 25 2c 66 25 2c 70 |tptr%,byte%,f%,p|
00000160 2c 70 65 72 63 65 6e 74 25 0d 00 e6 0f 66 25 3d |,percent%....f%=|
00000170 ad 28 6e 61 6d 65 24 29 0d 00 f0 15 c8 99 20 22 |.(name$)...... "|
00000180 48 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 0d 00 fa |Hourglass_On"...|
00000190 0e 70 3d 31 30 30 2f a2 23 66 25 0d 01 04 10 67 |.p=100/.#f%....g|
000001a0 65 74 70 74 72 25 3d 8f 23 66 25 0d 01 0e 10 70 |etptr%=.#f%....p|
000001b0 75 74 70 74 72 25 3d 8f 23 66 25 0d 01 18 0d c8 |utptr%=.#f%.....|
000001c0 95 20 ac 20 c5 23 66 25 0d 01 22 17 20 70 65 72 |. . .#f%..". per|
000001d0 63 65 6e 74 25 3d 70 2a 67 65 74 70 74 72 25 0d |cent%=p*getptr%.|
000001e0 01 2c 27 20 c8 99 20 22 48 6f 75 72 67 6c 61 73 |.,' .. "Hourglas|
000001f0 73 5f 50 65 72 63 65 6e 74 61 67 65 22 2c 70 65 |s_Percentage",pe|
00000200 72 63 65 6e 74 25 0d 01 36 0f 20 62 79 74 65 25 |rcent%..6. byte%|
00000210 3d 9a 23 66 25 0d 01 40 0f 20 67 65 74 70 74 72 |=.#f%..@. getptr|
00000220 25 2b 3d 31 0d 01 4a 1d 20 e7 20 62 79 74 65 73 |%+=1..J. . bytes|
00000230 25 21 28 62 79 74 65 25 2a 34 29 3c 3e 2d 31 20 |%!(byte%*4)<>-1 |
00000240 8c 0d 01 54 12 20 20 cf 23 66 25 3d 70 75 74 70 |...T. .#f%=putp|
00000250 74 72 25 0d 01 5e 1b 20 20 d5 23 66 25 2c 62 79 |tr%..^. .#f%,by|
00000260 74 65 73 25 21 28 62 79 74 65 25 2a 34 29 0d 01 |tes%!(byte%*4)..|
00000270 68 10 20 20 70 75 74 70 74 72 25 2b 3d 31 0d 01 |h. putptr%+=1..|
00000280 72 06 20 cd 0d 01 7c 11 20 cf 23 66 25 3d 67 65 |r. ...|. .#f%=ge|
00000290 74 70 74 72 25 0d 01 86 05 ce 0d 01 90 10 a2 23 |tptr%..........#|
000002a0 66 25 3d 70 75 74 70 74 72 25 0d 01 9a 16 c8 99 |f%=putptr%......|
000002b0 20 22 48 6f 75 72 67 6c 61 73 73 5f 4f 66 66 22 | "Hourglass_Off"|
000002c0 0d 01 a4 08 d9 23 66 25 0d 01 ae 05 e1 0d 01 b8 |.....#f%........|
000002d0 05 3a 0d 01 c2 0d dd 20 f2 5f 52 65 73 65 74 0d |.:..... ._Reset.|
000002e0 01 cc 08 ea 20 6e 25 0d 01 d6 10 e3 20 6e 25 3d |.... n%..... n%=|
000002f0 30 20 b8 20 32 35 35 0d 01 e0 15 20 62 79 74 65 |0 . 255.... byte|
00000300 73 25 21 28 6e 25 2a 34 29 3d 6e 25 0d 01 ea 08 |s%!(n%*4)=n%....|
00000310 ed 20 6e 25 0d 01 f4 27 f2 5f 49 63 6f 6e 50 75 |. n%...'._IconPu|
00000320 74 44 61 74 61 28 71 32 25 2c 66 69 6c 74 77 69 |tData(q2%,filtwi|
00000330 6e 25 2c 35 2c 22 30 22 2c a3 29 0d 01 fe 27 f2 |n%,5,"0",.)...'.|
00000340 5f 49 63 6f 6e 50 75 74 44 61 74 61 28 71 32 25 |_IconPutData(q2%|
00000350 2c 66 69 6c 74 77 69 6e 25 2c 34 2c 22 30 22 2c |,filtwin%,4,"0",|
00000360 a3 29 0d 02 08 24 f2 5f 49 63 6f 6e 53 65 74 52 |.)...$._IconSetR|
00000370 61 64 69 6f 28 71 32 25 2c 66 69 6c 74 77 69 6e |adio(q2%,filtwin|
00000380 25 2c 38 2c a3 29 0d 02 12 24 f2 5f 49 63 6f 6e |%,8,.)...$._Icon|
00000390 53 65 74 52 61 64 69 6f 28 71 32 25 2c 66 69 6c |SetRadio(q2%,fil|
000003a0 74 77 69 6e 25 2c 39 2c b9 29 0d 02 1c 05 e1 0d |twin%,9,.)......|
000003b0 02 26 05 3a 0d 02 30 13 dd 20 f2 5f 4e 65 77 42 |.&.:..0.. ._NewB|
000003c0 79 74 65 28 69 25 29 0d 02 3a 0b ea 20 62 25 2c |yte(i%)..:.. b%,|
000003d0 72 24 0d 02 44 27 62 25 3d a0 28 a4 5f 49 63 6f |r$..D'b%=.(._Ico|
000003e0 6e 47 65 74 44 61 74 61 28 71 32 25 2c 66 69 6c |nGetData(q2%,fil|
000003f0 74 77 69 6e 25 2c 35 29 29 0d 02 4e 1d e7 20 62 |twin%,5))..N.. b|
00000400 25 2b 69 25 3e 3d 30 20 80 20 62 25 2b 69 25 3c |%+i%>=0 . b%+i%<|
00000410 3d 32 35 35 20 8c 0d 02 58 27 20 e7 20 a4 5f 49 |=255 ...X' . ._I|
00000420 63 6f 6e 47 65 74 52 61 64 69 6f 28 71 32 25 2c |conGetRadio(q2%,|
00000430 66 69 6c 74 77 69 6e 25 2c 38 29 20 8c 0d 02 62 |filtwin%,8) ...b|
00000440 16 20 20 62 79 74 65 73 25 21 28 62 25 2a 34 29 |. bytes%!(b%*4)|
00000450 3d 2d 31 0d 02 6c 06 20 cc 0d 02 76 34 20 20 62 |=-1..l. ...v4 b|
00000460 79 74 65 73 25 21 28 62 25 2a 34 29 3d a0 28 a4 |ytes%!(b%*4)=.(.|
00000470 5f 49 63 6f 6e 47 65 74 44 61 74 61 28 71 32 25 |_IconGetData(q2%|
00000480 2c 66 69 6c 74 77 69 6e 25 2c 34 29 29 0d 02 80 |,filtwin%,4))...|
00000490 06 20 cd 0d 02 8a 0b 20 62 25 2b 3d 69 25 0d 02 |. ..... b%+=i%..|
000004a0 94 2a 20 f2 5f 49 63 6f 6e 50 75 74 44 61 74 61 |.* ._IconPutData|
000004b0 28 71 32 25 2c 66 69 6c 74 77 69 6e 25 2c 35 2c |(q2%,filtwin%,5,|
000004c0 c3 28 62 25 29 2c b9 29 0d 02 9e 18 20 72 24 3d |.(b%),.).... r$=|
000004d0 c3 28 62 79 74 65 73 25 21 28 62 25 2a 34 29 29 |.(bytes%!(b%*4))|
000004e0 0d 02 a8 19 20 e7 20 62 79 74 65 73 25 21 28 62 |.... . bytes%!(b|
000004f0 25 2a 34 29 3d 2d 31 20 8c 0d 02 b2 26 20 20 f2 |%*4)=-1 ....& .|
00000500 5f 49 63 6f 6e 53 65 74 52 61 64 69 6f 28 71 32 |_IconSetRadio(q2|
00000510 25 2c 66 69 6c 74 77 69 6e 25 2c 38 2c b9 29 0d |%,filtwin%,8,.).|
00000520 02 bc 26 20 20 f2 5f 49 63 6f 6e 53 65 74 52 61 |..& ._IconSetRa|
00000530 64 69 6f 28 71 32 25 2c 66 69 6c 74 77 69 6e 25 |dio(q2%,filtwin%|
00000540 2c 39 2c a3 29 0d 02 c6 0e 20 20 72 24 3d c3 28 |,9,.).... r$=.(|
00000550 62 25 29 0d 02 d0 06 20 cc 0d 02 da 26 20 20 f2 |b%).... ....& .|
00000560 5f 49 63 6f 6e 53 65 74 52 61 64 69 6f 28 71 32 |_IconSetRadio(q2|
00000570 25 2c 66 69 6c 74 77 69 6e 25 2c 38 2c a3 29 0d |%,filtwin%,8,.).|
00000580 02 e4 26 20 20 f2 5f 49 63 6f 6e 53 65 74 52 61 |..& ._IconSetRa|
00000590 64 69 6f 28 71 32 25 2c 66 69 6c 74 77 69 6e 25 |dio(q2%,filtwin%|
000005a0 2c 39 2c b9 29 0d 02 ee 06 20 cd 0d 02 f8 27 20 |,9,.).... ....' |
000005b0 f2 5f 49 63 6f 6e 50 75 74 44 61 74 61 28 71 32 |._IconPutData(q2|
000005c0 25 2c 66 69 6c 74 77 69 6e 25 2c 34 2c 72 24 2c |%,filtwin%,4,r$,|
000005d0 b9 29 0d 03 02 05 cd 0d 03 0c 05 e1 0d 03 16 05 |.)..............|
000005e0 3a 0d 03 20 16 dd 20 f2 5f 4e 65 77 42 79 74 65 |:.. .. ._NewByte|
000005f0 52 65 70 28 69 25 29 0d 03 2a 0b ea 20 62 25 2c |Rep(i%)..*.. b%,|
00000600 6e 25 0d 03 34 27 62 25 3d a0 28 a4 5f 49 63 6f |n%..4'b%=.(._Ico|
00000610 6e 47 65 74 44 61 74 61 28 71 32 25 2c 66 69 6c |nGetData(q2%,fil|
00000620 74 77 69 6e 25 2c 34 29 29 0d 03 3e 27 6e 25 3d |twin%,4))..>'n%=|
00000630 a0 28 a4 5f 49 63 6f 6e 47 65 74 44 61 74 61 28 |.(._IconGetData(|
00000640 71 32 25 2c 66 69 6c 74 77 69 6e 25 2c 35 29 29 |q2%,filtwin%,5))|
00000650 0d 03 48 1d e7 20 62 25 2b 69 25 3e 3d 30 20 80 |..H.. b%+i%>=0 .|
00000660 20 62 25 2b 69 25 3c 3d 32 35 35 20 8c 0d 03 52 | b%+i%<=255 ...R|
00000670 0b 20 62 25 2b 3d 69 25 0d 03 5c 2a 20 f2 5f 49 |. b%+=i%..\* ._I|
00000680 63 6f 6e 50 75 74 44 61 74 61 28 71 32 25 2c 66 |conPutData(q2%,f|
00000690 69 6c 74 77 69 6e 25 2c 34 2c c3 28 62 25 29 2c |iltwin%,4,.(b%),|
000006a0 b9 29 0d 03 66 15 20 62 79 74 65 73 25 21 28 6e |.)..f. bytes%!(n|
000006b0 25 2a 34 29 3d 62 25 0d 03 70 05 cd 0d 03 7a 05 |%*4)=b%..p....z.|
000006c0 e1 0d 03 84 05 3a 0d 03 8e 19 dd 20 f2 5f 49 6e |.....:..... ._In|
000006d0 69 74 69 61 6c 69 73 65 28 6e 61 6d 65 24 29 0d |itialise(name$).|
000006e0 03 98 26 de 20 71 25 20 26 31 30 30 2c 20 71 32 |..&. q% &100, q2|
000006f0 25 20 26 31 31 30 30 2c 20 65 72 72 62 6c 6b 25 |% &1100, errblk%|
00000700 20 26 31 30 30 0d 03 a2 13 de 20 74 20 34 3a 24 | &100..... t 4:$|
00000710 74 3d 22 54 41 53 4b 22 0d 03 ac 11 de 20 62 79 |t="TASK"..... by|
00000720 74 65 73 25 20 31 30 32 34 0d 03 b6 25 c8 99 20 |tes% 1024...%.. |
00000730 22 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 73 65 |"Wimp_Initialise|
00000740 22 2c 32 30 30 2c 21 74 2c 6e 61 6d 65 24 0d 03 |",200,!t,name$..|
00000750 c0 05 e1 0d 03 ca 05 3a 0d 03 d4 0c dd 20 f2 5f |.......:..... ._|
00000760 50 6f 6c 6c 0d 03 de 0d ea 20 61 63 74 69 6f 6e |Poll..... action|
00000770 25 0d 03 e8 21 c8 99 20 22 57 69 6d 70 5f 50 6f |%...!.. "Wimp_Po|
00000780 6c 6c 22 2c 30 2c 71 25 20 b8 20 61 63 74 69 6f |ll",0,q% . actio|
00000790 6e 25 0d 03 f2 10 c8 8e 20 61 63 74 69 6f 6e 25 |n%...... action%|
000007a0 20 ca 0d 03 fc 1c 20 c9 20 31 3a 20 f2 5f 52 65 | ..... . 1: ._Re|
000007b0 64 72 61 77 57 69 6e 64 6f 77 28 71 25 29 0d 04 |drawWindow(q%)..|
000007c0 06 1a 20 c9 20 32 3a 20 f2 5f 4f 70 65 6e 57 69 |.. . 2: ._OpenWi|
000007d0 6e 64 6f 77 28 71 25 29 0d 04 10 1b 20 c9 20 33 |ndow(q%).... . 3|
000007e0 3a 20 f2 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 28 |: ._CloseWindow(|
000007f0 71 25 29 0d 04 1a 15 20 c9 20 36 3a 20 f2 5f 4d |q%).... . 6: ._M|
00000800 6f 75 73 65 28 71 25 29 0d 04 24 1a 20 c9 20 39 |ouse(q%)..$. . 9|
00000810 3a 20 f2 5f 44 65 63 6f 64 65 4d 65 6e 75 28 71 |: ._DecodeMenu(q|
00000820 25 29 0d 04 2e 1b 20 c9 20 31 37 2c 31 38 3a 20 |%).... . 17,18: |
00000830 f2 5f 4d 65 73 73 61 67 65 28 71 25 29 0d 04 38 |._Message(q%)..8|
00000840 05 cb 0d 04 42 05 e1 0d 04 4c 05 3a 0d 04 56 18 |....B....L.:..V.|
00000850 dd 20 f2 5f 52 65 64 72 61 77 57 69 6e 64 6f 77 |. ._RedrawWindow|
00000860 28 71 25 29 0d 04 60 11 ea 20 6d 6f 72 65 25 2c |(q%)..`.. more%,|
00000870 78 25 2c 79 25 0d 04 6a 26 c8 99 20 22 57 69 6d |x%,y%..j&.. "Wim|
00000880 70 5f 52 65 64 72 61 77 57 69 6e 64 6f 77 22 2c |p_RedrawWindow",|
00000890 2c 71 25 20 b8 20 6d 6f 72 65 25 0d 04 74 0c c8 |,q% . more%..t..|
000008a0 95 20 6d 6f 72 65 25 0d 04 7e 12 20 78 25 3d 71 |. more%..~. x%=q|
000008b0 25 21 34 2d 71 25 21 32 30 0d 04 88 13 20 79 25 |%!4-q%!20.... y%|
000008c0 3d 71 25 21 31 36 2d 71 25 21 32 34 0d 04 92 04 |=q%!16-q%!24....|
000008d0 0d 04 9c 27 20 c8 99 20 22 57 69 6d 70 5f 47 65 |...' .. "Wimp_Ge|
000008e0 74 52 65 63 74 61 6e 67 6c 65 22 2c 2c 71 25 20 |tRectangle",,q% |
000008f0 b8 20 6d 6f 72 65 25 0d 04 a6 05 ce 0d 04 b0 05 |. more%.........|
00000900 e1 0d 04 ba 05 3a 0d 04 c4 16 dd 20 f2 5f 4f 70 |.....:..... ._Op|
00000910 65 6e 57 69 6e 64 6f 77 28 71 25 29 0d 04 ce 1c |enWindow(q%)....|
00000920 c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e |.. "Wimp_OpenWin|
00000930 64 6f 77 22 2c 2c 71 25 0d 04 d8 05 e1 0d 04 e2 |dow",,q%........|
00000940 05 3a 0d 04 ec 17 dd 20 f2 5f 43 6c 6f 73 65 57 |.:..... ._CloseW|
00000950 69 6e 64 6f 77 28 71 25 29 0d 04 f6 1d c8 99 20 |indow(q%)...... |
00000960 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 6f |"Wimp_CloseWindo|
00000970 77 22 2c 2c 71 25 0d 05 00 05 e1 0d 05 0a 05 3a |w",,q%.........:|
00000980 0d 05 14 11 dd 20 f2 5f 4d 6f 75 73 65 28 71 25 |..... ._Mouse(q%|
00000990 29 0d 05 1e 1f ea 20 6d 78 25 2c 6d 79 25 2c 6d |)..... mx%,my%,m|
000009a0 62 25 2c 73 69 7a 65 78 25 2c 73 69 7a 65 79 25 |b%,sizex%,sizey%|
000009b0 0d 05 28 0c 6d 78 25 3d 71 25 21 30 0d 05 32 0c |..(.mx%=q%!0..2.|
000009c0 6d 79 25 3d 71 25 21 34 0d 05 3c 0c 6d 62 25 3d |my%=q%!4..<.mb%=|
000009d0 71 25 21 38 0d 05 46 0e c8 8e 20 71 25 21 31 32 |q%!8..F... q%!12|
000009e0 20 ca 0d 05 50 09 20 c9 20 2d 32 0d 05 5a 0e 20 | ...P. . -2..Z. |
000009f0 20 c8 8e 20 6d 62 25 20 ca 0d 05 64 0c 20 20 20 | .. mb% ...d. |
00000a00 c9 20 26 30 32 0d 05 6e 45 20 20 20 20 c8 99 20 |. &02..nE .. |
00000a10 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 |"Wimp_CreateMenu|
00000a20 22 2c 2c 69 63 6f 6e 6d 65 6e 75 25 2c 6d 78 25 |",,iconmenu%,mx%|
00000a30 2d 69 63 6f 6e 6d 65 6e 75 25 21 31 36 2f 32 2d |-iconmenu%!16/2-|
00000a40 32 34 2c 39 36 2b 32 2a 34 34 0d 05 78 07 20 20 |24,96+2*44..x. |
00000a50 cb 0d 05 82 0f 20 c9 20 66 69 6c 74 77 69 6e 25 |..... . filtwin%|
00000a60 0d 05 8c 10 20 20 c8 8e 20 71 25 21 31 36 20 ca |.... .. q%!16 .|
00000a70 0d 05 96 0a 20 20 20 c9 20 30 0d 05 a0 15 20 20 |.... . 0.... |
00000a80 20 20 e7 20 66 69 6c 65 24 3c 3e 22 22 20 8c 0d | . file$<>"" ..|
00000a90 05 aa 18 20 20 20 20 20 f2 5f 4e 65 77 42 79 74 |... ._NewByt|
00000aa0 65 52 65 70 28 30 29 0d 05 b4 15 20 20 20 20 20 |eRep(0).... |
00000ab0 f2 5f 4e 65 77 42 79 74 65 28 30 29 0d 05 be 18 |._NewByte(0)....|
00000ac0 20 20 20 20 20 f2 5f 46 69 6c 74 65 72 28 66 69 | ._Filter(fi|
00000ad0 6c 65 24 29 0d 05 c8 16 20 20 20 20 20 71 25 21 |le$).... q%!|
00000ae0 30 3d 66 69 6c 74 77 69 6e 25 0d 05 d2 22 20 20 |0=filtwin%..." |
00000af0 20 20 20 c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 | .. "Wimp_Clos|
00000b00 65 57 69 6e 64 6f 77 22 2c 2c 71 25 0d 05 dc 11 |eWindow",,q%....|
00000b10 20 20 20 20 20 66 69 6c 65 24 3d 22 22 0d 05 e6 | file$=""...|
00000b20 09 20 20 20 20 cd 0d 05 f0 0a 20 20 20 c9 20 36 |. ..... . 6|
00000b30 0d 05 fa 15 20 20 20 20 f2 5f 4e 65 77 42 79 74 |.... ._NewByt|
00000b40 65 28 2d 31 29 0d 06 04 0a 20 20 20 c9 20 37 0d |e(-1).... . 7.|
00000b50 06 0e 14 20 20 20 20 f2 5f 4e 65 77 42 79 74 65 |... ._NewByte|
00000b60 28 31 29 0d 06 18 0a 20 20 20 c9 20 33 0d 06 22 |(1).... . 3.."|
00000b70 18 20 20 20 20 f2 5f 4e 65 77 42 79 74 65 52 65 |. ._NewByteRe|
00000b80 70 28 2d 31 29 0d 06 2c 0a 20 20 20 c9 20 31 0d |p(-1)..,. . 1.|
00000b90 06 36 17 20 20 20 20 f2 5f 4e 65 77 42 79 74 65 |.6. ._NewByte|
00000ba0 52 65 70 28 31 29 0d 06 40 07 20 20 cb 0d 06 4a |Rep(1)..@. ...J|
00000bb0 05 cb 0d 06 54 05 e1 0d 06 5e 05 3a 0d 06 68 16 |....T....^.:..h.|
00000bc0 dd 20 f2 5f 44 65 63 6f 64 65 4d 65 6e 75 28 71 |. ._DecodeMenu(q|
00000bd0 25 29 0d 06 72 0d c8 8e 20 71 25 21 30 20 ca 0d |%)..r... q%!0 ..|
00000be0 06 7c 14 20 c9 20 31 3a f2 5f 43 6c 6f 73 65 44 |.|. . 1:._CloseD|
00000bf0 6f 77 6e 0d 06 86 05 e1 0d 06 90 05 3a 0d 06 9a |own.........:...|
00000c00 16 dd 20 f2 5f 49 6e 73 74 61 6c 6c 28 74 65 78 |.. ._Install(tex|
00000c10 74 24 29 0d 06 a4 21 ea 20 73 78 25 2c 73 79 25 |t$)...!. sx%,sy%|
00000c20 2c 73 6d 25 2c 70 78 25 2c 70 79 25 2c 73 70 72 |,sm%,px%,py%,spr|
00000c30 69 74 65 24 0d 06 ae 15 73 70 72 69 74 65 24 3d |ite$....sprite$=|
00000c40 22 21 22 2b 74 65 78 74 24 0d 06 b8 2b de 20 73 |"!"+text$...+. s|
00000c50 70 72 69 74 65 25 20 28 a9 28 73 70 72 69 74 65 |prite% (.(sprite|
00000c60 24 29 2b 31 29 2c 74 65 78 74 25 20 a9 28 74 65 |$)+1),text% .(te|
00000c70 78 74 24 29 0d 06 c2 18 24 73 70 72 69 74 65 25 |xt$)....$sprite%|
00000c80 3d 22 53 22 2b 73 70 72 69 74 65 24 0d 06 cc 10 |="S"+sprite$....|
00000c90 24 74 65 78 74 25 3d 74 65 78 74 24 0d 06 d6 34 |$text%=text$...4|
00000ca0 c8 99 20 22 57 69 6d 70 5f 53 70 72 69 74 65 4f |.. "Wimp_SpriteO|
00000cb0 70 22 2c 34 30 2c 2c 73 70 72 69 74 65 24 20 b8 |p",40,,sprite$ .|
00000cc0 20 2c 2c 2c 73 78 25 2c 73 79 25 2c 2c 73 6d 25 | ,,,sx%,sy%,,sm%|
00000cd0 0d 06 e0 38 c8 99 20 22 4f 53 5f 52 65 61 64 4d |...8.. "OS_ReadM|
00000ce0 6f 64 65 56 61 72 69 61 62 6c 65 22 2c 73 6d 25 |odeVariable",sm%|
00000cf0 2c 34 20 b8 20 2c 2c 70 78 25 3a 20 73 78 25 3d |,4 . ,,px%: sx%=|
00000d00 73 78 25 3c 3c 70 78 25 0d 06 ea 38 c8 99 20 22 |sx%<<px%...8.. "|
00000d10 4f 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 69 61 |OS_ReadModeVaria|
00000d20 62 6c 65 22 2c 73 6d 25 2c 35 20 b8 20 2c 2c 70 |ble",sm%,5 . ,,p|
00000d30 79 25 3a 20 73 79 25 3d 73 79 25 3c 3c 70 79 25 |y%: sy%=sy%<<py%|
00000d40 0d 06 f4 2b e7 20 a9 28 74 65 78 74 24 29 2a 31 |...+. .(text$)*1|
00000d50 36 3e 73 78 25 20 8c 20 73 78 25 3d 28 a9 28 74 |6>sx% . sx%=(.(t|
00000d60 65 78 74 24 29 2d 32 29 2a 31 36 0d 06 fe 0a 21 |ext$)-2)*16....!|
00000d70 71 25 3d 2d 31 0d 07 08 2f 71 25 21 34 3d 30 3a |q%=-1.../q%!4=0:|
00000d80 20 71 25 21 38 3d 2d 36 34 3a 71 25 21 31 32 3d | q%!8=-64:q%!12=|
00000d90 71 25 21 34 2b 73 78 25 3a 71 25 21 31 36 3d 32 |q%!4+sx%:q%!16=2|
00000da0 2b 73 79 25 0d 07 12 13 71 25 21 32 30 3d 26 31 |+sy%....q%!20=&1|
00000db0 37 30 30 32 31 30 42 0d 07 1c 0f 71 25 21 32 34 |700210B....q%!24|
00000dc0 3d 74 65 78 74 25 0d 07 26 11 71 25 21 32 38 3d |=text%..&.q%!28=|
00000dd0 73 70 72 69 74 65 25 0d 07 30 12 71 25 21 33 32 |sprite%..0.q%!32|
00000de0 3d a9 28 74 65 78 74 24 29 0d 07 3a 22 c8 99 20 |=.(text$)..:".. |
00000df0 22 57 69 6d 70 5f 43 72 65 61 74 65 49 63 6f 6e |"Wimp_CreateIcon|
00000e00 22 2c 2c 71 25 20 b8 20 21 71 25 0d 07 44 05 e1 |",,q% . !q%..D..|
00000e10 0d 07 4e 05 3a 0d 07 58 0d dd 20 f2 5f 4d 65 6e |..N.:..X.. ._Men|
00000e20 75 73 0d 07 62 17 de 20 69 63 6f 6e 6d 65 6e 75 |us..b.. iconmenu|
00000e30 25 20 32 38 2b 32 2a 32 34 0d 07 6c 04 0d 07 76 |% 28+2*24..l...v|
00000e40 17 24 69 63 6f 6e 6d 65 6e 75 25 3d 22 46 69 6c |.$iconmenu%="Fil|
00000e50 74 65 72 22 0d 07 80 12 69 63 6f 6e 6d 65 6e 75 |ter"....iconmenu|
00000e60 25 3f 31 32 3d 37 0d 07 8a 12 69 63 6f 6e 6d 65 |%?12=7....iconme|
00000e70 6e 75 25 3f 31 33 3d 32 0d 07 94 12 69 63 6f 6e |nu%?13=2....icon|
00000e80 6d 65 6e 75 25 3f 31 34 3d 37 0d 07 9e 12 69 63 |menu%?14=7....ic|
00000e90 6f 6e 6d 65 6e 75 25 3f 31 35 3d 30 0d 07 a8 20 |onmenu%?15=0... |
00000ea0 69 63 6f 6e 6d 65 6e 75 25 21 31 36 3d a9 22 46 |iconmenu%!16=."F|
00000eb0 69 6c 74 65 72 22 2a 31 36 2b 31 32 0d 07 b2 13 |ilter"*16+12....|
00000ec0 69 63 6f 6e 6d 65 6e 75 25 21 32 30 3d 34 34 0d |iconmenu%!20=44.|
00000ed0 07 bc 12 69 63 6f 6e 6d 65 6e 75 25 21 32 34 3d |...iconmenu%!24=|
00000ee0 30 0d 07 c6 1d 69 63 6f 6e 6d 65 6e 75 25 21 28 |0....iconmenu%!(|
00000ef0 32 38 2b 30 2a 32 34 2b 30 29 3d 26 30 30 0d 07 |28+0*24+0)=&00..|
00000f00 d0 1f 69 63 6f 6e 6d 65 6e 75 25 21 28 32 38 2b |..iconmenu%!(28+|
00000f10 30 2a 32 34 2b 34 29 3d 69 6e 66 6f 25 0d 07 da |0*24+4)=info%...|
00000f20 23 69 63 6f 6e 6d 65 6e 75 25 21 28 32 38 2b 30 |#iconmenu%!(28+0|
00000f30 2a 32 34 2b 38 29 3d 26 30 37 30 30 30 30 30 31 |*24+8)=&07000001|
00000f40 0d 07 e4 22 24 28 69 63 6f 6e 6d 65 6e 75 25 2b |..."$(iconmenu%+|
00000f50 32 38 2b 30 2a 32 34 2b 31 32 29 3d 22 49 6e 66 |28+0*24+12)="Inf|
00000f60 6f 22 0d 07 ee 1d 69 63 6f 6e 6d 65 6e 75 25 21 |o"....iconmenu%!|
00000f70 28 32 38 2b 31 2a 32 34 2b 30 29 3d 26 38 30 0d |(28+1*24+0)=&80.|
00000f80 07 f8 1c 69 63 6f 6e 6d 65 6e 75 25 21 28 32 38 |...iconmenu%!(28|
00000f90 2b 31 2a 32 34 2b 34 29 3d 2d 31 0d 08 02 23 69 |+1*24+4)=-1...#i|
00000fa0 63 6f 6e 6d 65 6e 75 25 21 28 32 38 2b 31 2a 32 |conmenu%!(28+1*2|
00000fb0 34 2b 38 29 3d 26 30 37 30 30 30 30 30 31 0d 08 |4+8)=&07000001..|
00000fc0 0c 22 24 28 69 63 6f 6e 6d 65 6e 75 25 2b 32 38 |."$(iconmenu%+28|
00000fd0 2b 31 2a 32 34 2b 31 32 29 3d 22 51 75 69 74 22 |+1*24+12)="Quit"|
00000fe0 0d 08 16 05 e1 0d 08 20 05 3a 0d 08 2a 12 dd 20 |....... .:..*.. |
00000ff0 a4 5f 53 74 72 69 6e 67 28 61 25 29 0d 08 34 2e |._String(a%)..4.|
00001000 ea 20 62 24 3a 62 24 3d 22 22 3a 20 c8 95 20 3f |. b$:b$="": .. ?|
00001010 61 25 3c 3e 30 3a 62 24 2b 3d bd 3f 61 25 3a 61 |a%<>0:b$+=.?a%:a|
00001020 25 2b 3d 31 3a ce 3a 3d 62 24 0d 08 3e 05 3a 0d |%+=1:.:=b$..>.:.|
00001030 08 48 16 dd 20 f2 5f 53 74 72 69 6e 67 30 28 73 |.H.. ._String0(s|
00001040 25 2c 73 24 29 0d 08 52 08 ea 20 6e 25 0d 08 5c |%,s$)..R.. n%..\|
00001050 12 e3 20 6e 25 3d 31 20 b8 20 a9 28 73 24 29 0d |.. n%=1 . .(s$).|
00001060 08 66 1b 20 73 25 3f 28 6e 25 2d 31 29 3d 97 28 |.f. s%?(n%-1)=.(|
00001070 c1 73 24 2c 6e 25 2c 31 29 29 0d 08 70 08 ed 20 |.s$,n%,1))..p.. |
00001080 6e 25 0d 08 7a 0e 73 25 3f a9 28 73 24 29 3d 30 |n%..z.s%?.(s$)=0|
00001090 0d 08 84 05 e1 0d 08 8e 05 3a 0d 08 98 1c dd 20 |.........:..... |
000010a0 a4 5f 45 72 72 42 6c 6b 28 65 72 72 25 2c 72 65 |._ErrBlk(err%,re|
000010b0 70 6f 72 74 24 29 0d 08 a2 11 21 65 72 72 62 6c |port$)....!errbl|
000010c0 6b 25 3d 65 72 72 25 0d 08 ac 18 24 28 65 72 72 |k%=err%....$(err|
000010d0 62 6c 6b 25 2b 34 29 3d 72 65 70 6f 72 74 24 0d |blk%+4)=report$.|
000010e0 08 b6 21 65 72 72 62 6c 6b 25 3f 28 34 2b a9 28 |..!errblk%?(4+.(|
000010f0 24 28 65 72 72 62 6c 6b 25 2b 34 29 29 29 3d 30 |$(errblk%+4)))=0|
00001100 0d 08 c0 0c 3d 65 72 72 62 6c 6b 25 0d 08 ca 05 |....=errblk%....|
00001110 3a 0d 08 d4 13 dd 20 f2 5f 4f 70 65 6e 28 6e 61 |:..... ._Open(na|
00001120 6d 65 24 29 0d 08 de 0f 66 69 6c 65 24 3d 6e 61 |me$)....file$=na|
00001130 6d 65 24 0d 08 e8 0b f2 5f 52 65 73 65 74 0d 08 |me$....._Reset..|
00001140 f2 11 71 25 21 30 3d 66 69 6c 74 77 69 6e 25 0d |..q%!0=filtwin%.|
00001150 08 fc 20 c8 99 20 22 57 69 6d 70 5f 47 65 74 57 |.. .. "Wimp_GetW|
00001160 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 71 25 0d |indowState",,q%.|
00001170 09 06 1c c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e |..... "Wimp_Open|
00001180 57 69 6e 64 6f 77 22 2c 2c 71 25 0d 09 10 05 e1 |Window",,q%.....|
00001190 0d 09 1a 05 3a 0d 09 24 1d dd 20 f2 5f 4c 6f 61 |....:..$.. ._Loa|
000011a0 64 54 65 6d 70 6c 61 74 65 73 28 74 65 6d 70 6c |dTemplates(templ|
000011b0 24 29 0d 09 2e 1b ea 20 69 6e 64 69 72 65 63 74 |$)..... indirect|
000011c0 25 2c 69 70 74 72 25 2c 69 65 6e 64 25 0d 09 38 |%,iptr%,iend%..8|
000011d0 15 de 20 69 6e 64 69 72 65 63 74 25 20 26 31 31 |.. indirect% &11|
000011e0 30 30 0d 09 42 25 69 70 74 72 25 3d 69 6e 64 69 |00..B%iptr%=indi|
000011f0 72 65 63 74 25 3a 69 65 6e 64 25 3d 69 70 74 72 |rect%:iend%=iptr|
00001200 25 2b 26 31 31 30 30 0d 09 4c 1a f2 5f 4f 70 65 |%+&1100..L.._Ope|
00001210 6e 54 65 6d 70 6c 61 74 65 28 74 65 6d 70 6c 24 |nTemplate(templ$|
00001220 29 0d 09 56 22 f2 5f 4c 6f 61 64 54 65 6d 70 6c |)..V"._LoadTempl|
00001230 61 74 65 28 22 70 72 6f 67 49 6e 66 6f 22 2c 71 |ate("progInfo",q|
00001240 32 25 29 0d 09 60 27 c8 99 20 22 57 69 6d 70 5f |2%)..`'.. "Wimp_|
00001250 43 72 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c 71 |CreateWindow",,q|
00001260 32 25 20 b8 20 69 6e 66 6f 25 0d 09 6a 20 f2 5f |2% . info%..j ._|
00001270 4c 6f 61 64 54 65 6d 70 6c 61 74 65 28 22 66 69 |LoadTemplate("fi|
00001280 6c 74 65 72 22 2c 71 32 25 29 0d 09 74 2a c8 99 |lter",q2%)..t*..|
00001290 20 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e | "Wimp_CreateWin|
000012a0 64 6f 77 22 2c 2c 71 32 25 20 b8 20 66 69 6c 74 |dow",,q2% . filt|
000012b0 77 69 6e 25 0d 09 7e 13 f2 5f 43 6c 6f 73 65 54 |win%..~.._CloseT|
000012c0 65 6d 70 6c 61 74 65 0d 09 88 25 f2 5f 49 63 6f |emplate...%._Ico|
000012d0 6e 50 75 74 44 61 74 61 28 71 32 25 2c 69 6e 66 |nPutData(q2%,inf|
000012e0 6f 25 2c 34 2c 76 65 72 24 2c a3 29 0d 09 92 05 |o%,4,ver$,.)....|
000012f0 e1 0d 09 9c 05 3a 0d 09 a6 1b dd 20 f2 5f 4f 70 |.....:..... ._Op|
00001300 65 6e 54 65 6d 70 6c 61 74 65 28 66 69 6c 65 24 |enTemplate(file$|
00001310 29 0d 09 b0 21 c8 99 20 22 57 69 6d 70 5f 4f 70 |)...!.. "Wimp_Op|
00001320 65 6e 54 65 6d 70 6c 61 74 65 22 2c 2c 66 69 6c |enTemplate",,fil|
00001330 65 24 0d 09 ba 05 e1 0d 09 c4 05 3a 0d 09 ce 1d |e$.........:....|
00001340 dd 20 f2 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 |. ._LoadTemplate|
00001350 28 6e 61 6d 65 24 2c 62 29 0d 09 d8 13 ea 20 74 |(name$,b)..... t|
00001360 79 70 65 25 2c 70 6f 73 25 2c 78 25 0d 09 e2 4b |ype%,pos%,x%...K|
00001370 c8 99 20 22 57 69 6d 70 5f 4c 6f 61 64 54 65 6d |.. "Wimp_LoadTem|
00001380 70 6c 61 74 65 22 2c 2c 62 2c 69 70 74 72 25 2c |plate",,b,iptr%,|
00001390 69 65 6e 64 25 2c 2d 31 2c 6e 61 6d 65 24 2c 30 |iend%,-1,name$,0|
000013a0 20 b8 20 74 79 70 65 25 2c 2c 69 70 74 72 25 2c | . type%,,iptr%,|
000013b0 2c 2c 2c 70 6f 73 25 0d 09 ec 05 e1 0d 09 f6 05 |,,,pos%.........|
000013c0 3a 0d 0a 00 15 dd 20 f2 5f 43 6c 6f 73 65 54 65 |:..... ._CloseTe|
000013d0 6d 70 6c 61 74 65 0d 0a 0a 1b c8 99 20 22 57 69 |mplate...... "Wi|
000013e0 6d 70 5f 43 6c 6f 73 65 54 65 6d 70 6c 61 74 65 |mp_CloseTemplate|
000013f0 22 0d 0a 14 05 e1 0d 0a 1e 05 3a 0d 0a 28 37 dd |".........:..(7.|
00001400 20 f2 5f 49 63 6f 6e 50 75 74 44 61 74 61 28 71 | ._IconPutData(q|
00001410 32 25 2c 77 68 61 6e 64 6c 65 25 2c 69 68 61 6e |2%,whandle%,ihan|
00001420 64 6c 65 25 2c 64 61 74 61 24 2c 72 65 64 72 61 |dle%,data$,redra|
00001430 77 29 0d 0a 32 12 71 32 25 21 30 3d 77 68 61 6e |w)..2.q2%!0=whan|
00001440 64 6c 65 25 0d 0a 3c 12 71 32 25 21 34 3d 69 68 |dle%..<.q2%!4=ih|
00001450 61 6e 64 6c 65 25 0d 0a 46 1f c8 99 20 22 57 69 |andle%..F... "Wi|
00001460 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 |mp_GetIconState"|
00001470 2c 2c 71 32 25 0d 0a 50 13 24 28 71 32 25 21 32 |,,q2%..P.$(q2%!2|
00001480 38 29 3d 64 61 74 61 24 0d 0a 5a 0e e7 20 72 65 |8)=data$..Z.. re|
00001490 64 72 61 77 20 8c 0d 0a 64 3d c8 99 20 22 57 69 |draw ...d=.. "Wi|
000014a0 6d 70 5f 46 6f 72 63 65 52 65 64 72 61 77 22 2c |mp_ForceRedraw",|
000014b0 77 68 61 6e 64 6c 65 25 2c 71 32 25 21 38 2c 71 |whandle%,q2%!8,q|
000014c0 32 25 21 31 32 2c 71 32 25 21 31 36 2c 71 32 25 |2%!12,q2%!16,q2%|
000014d0 21 32 30 0d 0a 6e 05 cd 0d 0a 78 05 e1 0d 0a 82 |!20..n....x.....|
000014e0 05 3a 0d 0a 8c 2a dd 20 a4 5f 49 63 6f 6e 47 65 |.:...*. ._IconGe|
000014f0 74 44 61 74 61 28 71 32 25 2c 77 68 61 6e 64 6c |tData(q2%,whandl|
00001500 65 25 2c 69 68 61 6e 64 6c 65 25 29 0d 0a 96 12 |e%,ihandle%)....|
00001510 71 32 25 21 30 3d 77 68 61 6e 64 6c 65 25 0d 0a |q2%!0=whandle%..|
00001520 a0 12 71 32 25 21 34 3d 69 68 61 6e 64 6c 65 25 |..q2%!4=ihandle%|
00001530 0d 0a aa 1f c8 99 20 22 57 69 6d 70 5f 47 65 74 |...... "Wimp_Get|
00001540 49 63 6f 6e 53 74 61 74 65 22 2c 2c 71 32 25 0d |IconState",,q2%.|
00001550 0a b4 0e 3d 24 28 71 32 25 21 32 38 29 0d 0a be |...=$(q2%!28)...|
00001560 05 3a 0d 0a c8 31 dd 20 f2 5f 49 63 6f 6e 53 65 |.:...1. ._IconSe|
00001570 74 52 61 64 69 6f 28 71 32 25 2c 77 68 61 6e 64 |tRadio(q2%,whand|
00001580 6c 65 25 2c 69 68 61 6e 64 6c 65 25 2c 73 74 61 |le%,ihandle%,sta|
00001590 74 25 29 0d 0a d2 11 ea 20 65 6f 72 25 2c 63 6c |t%)..... eor%,cl|
000015a0 65 61 72 25 0d 0a dc 12 71 32 25 21 30 3d 77 68 |ear%....q2%!0=wh|
000015b0 61 6e 64 6c 65 25 0d 0a e6 12 71 32 25 21 34 3d |andle%....q2%!4=|
000015c0 69 68 61 6e 64 6c 65 25 0d 0a f0 0d e7 20 73 74 |ihandle%..... st|
000015d0 61 74 25 20 8c 0d 0a fa 0e 20 65 6f 72 25 3d 32 |at% ..... eor%=2|
000015e0 5e 32 31 0d 0b 04 10 20 63 6c 65 61 72 25 3d 32 |^21.... clear%=2|
000015f0 5e 32 31 0d 0b 0e 05 cc 0d 0b 18 0b 20 65 6f 72 |^21......... eor|
00001600 25 3d 30 0d 0b 22 10 20 63 6c 65 61 72 25 3d 32 |%=0..". clear%=2|
00001610 5e 32 31 0d 0b 2c 05 cd 0d 0b 36 0e 71 32 25 21 |^21..,....6.q2%!|
00001620 38 3d 65 6f 72 25 0d 0b 40 11 71 32 25 21 31 32 |8=eor%..@.q2%!12|
00001630 3d 63 6c 65 61 72 25 0d 0b 4a 1f c8 99 20 22 57 |=clear%..J... "W|
00001640 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 |imp_SetIconState|
00001650 22 2c 2c 71 32 25 0d 0b 54 1f c8 99 20 22 57 69 |",,q2%..T... "Wi|
00001660 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 |mp_GetIconState"|
00001670 2c 2c 71 32 25 0d 0b 5e 3d c8 99 20 22 57 69 6d |,,q2%..^=.. "Wim|
00001680 70 5f 46 6f 72 63 65 52 65 64 72 61 77 22 2c 77 |p_ForceRedraw",w|
00001690 68 61 6e 64 6c 65 25 2c 71 32 25 21 38 2c 71 32 |handle%,q2%!8,q2|
000016a0 25 21 31 32 2c 71 32 25 21 31 36 2c 71 32 25 21 |%!12,q2%!16,q2%!|
000016b0 32 30 0d 0b 68 05 e1 0d 0b 72 05 3a 0d 0b 7c 2b |20..h....r.:..|+|
000016c0 dd 20 a4 5f 49 63 6f 6e 47 65 74 52 61 64 69 6f |. ._IconGetRadio|
000016d0 28 71 32 25 2c 77 68 61 6e 64 6c 65 25 2c 69 68 |(q2%,whandle%,ih|
000016e0 61 6e 64 6c 65 25 29 0d 0b 86 12 71 32 25 21 30 |andle%)....q2%!0|
000016f0 3d 77 68 61 6e 64 6c 65 25 0d 0b 90 12 71 32 25 |=whandle%....q2%|
00001700 21 34 3d 69 68 61 6e 64 6c 65 25 0d 0b 9a 1f c8 |!4=ihandle%.....|
00001710 99 20 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 |. "Wimp_GetIconS|
00001720 74 61 74 65 22 2c 2c 71 32 25 0d 0b a4 16 3d 28 |tate",,q2%....=(|
00001730 71 32 25 21 32 34 29 20 80 20 28 32 5e 32 31 29 |q2%!24) . (2^21)|
00001740 0d 0b ae 05 3a 0d 0b b8 14 dd 20 a4 5f 46 69 6c |....:..... ._Fil|
00001750 65 54 79 70 65 28 61 24 29 0d 0b c2 0c ea 20 66 |eType(a$)..... f|
00001760 74 79 70 65 25 0d 0b cc 20 c8 99 20 22 4f 53 5f |type%... .. "OS_|
00001770 46 69 6c 65 22 2c 35 2c 61 24 20 b8 20 2c 2c 66 |File",5,a$ . ,,f|
00001780 74 79 70 65 25 0d 0b d6 17 3d 28 66 74 79 70 65 |type%....=(ftype|
00001790 25 3e 3e 38 29 20 80 20 26 46 46 46 0d 0b e0 05 |%>>8) . &FFF....|
000017a0 3a 0d 0b ea 11 dd 20 f2 5f 43 6c 6f 73 65 44 6f |:..... ._CloseDo|
000017b0 77 6e 0d 0b f4 17 c8 99 20 22 57 69 6d 70 5f 43 |wn...... "Wimp_C|
000017c0 6c 6f 73 65 44 6f 77 6e 22 0d 0b fe 05 e0 0d 0c |loseDown".......|
000017d0 08 05 e1 0d 0c 12 05 3a 0d 0c 1c 0d dd 20 f2 5f |.......:..... ._|
000017e0 45 72 72 6f 72 0d 0c 26 11 ea 20 63 6f 6e 74 25 |Error..&.. cont%|
000017f0 2c 20 65 72 72 24 0d 0c 30 59 65 72 72 24 3d f6 |, err$..0Yerr$=.|
00001800 24 2b 22 20 28 69 6e 74 65 72 6e 61 6c 20 65 72 |$+" (internal er|
00001810 72 6f 72 20 63 6f 64 65 20 22 2b c3 28 9e 29 2b |ror code "+.(.)+|
00001820 22 29 2e 20 43 6c 69 63 6b 20 27 4f 4b 27 20 74 |"). Click 'OK' t|
00001830 6f 20 72 65 70 61 69 72 2c 20 6f 72 20 27 43 61 |o repair, or 'Ca|
00001840 6e 63 65 6c 27 20 74 6f 20 71 75 69 74 2e 22 0d |ncel' to quit.".|
00001850 0c 3a 41 c8 99 20 22 57 69 6d 70 5f 52 65 70 6f |.:A.. "Wimp_Repo|
00001860 72 74 45 72 72 6f 72 22 2c a4 5f 45 72 72 42 6c |rtError",._ErrBl|
00001870 6b 28 9f 2c 65 72 72 24 29 2c 33 2c 22 46 72 61 |k(.,err$),3,"Fra|
00001880 63 54 72 61 63 65 22 20 b8 20 2c 63 6f 6e 74 25 |cTrace" . ,cont%|
00001890 0d 0c 44 1b e7 20 63 6f 6e 74 25 3d 32 20 8c 20 |..D.. cont%=2 . |
000018a0 f2 5f 43 6c 6f 73 65 44 6f 77 6e 0d 0c 4e 0e f2 |._CloseDown..N..|
000018b0 5f 4d 61 69 6e 4c 6f 6f 70 0d 0c 58 05 e1 0d 0c |_MainLoop..X....|
000018c0 62 05 3a 0d 0c 6c 16 dd 20 f2 5f 4b 65 79 50 72 |b.:..l.. ._KeyPr|
000018d0 65 73 73 65 64 28 71 25 29 0d 0c 76 2f ea 20 77 |essed(q%)..v/. w|
000018e0 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 2c 6b 65 79 |indow%,icon%,key|
000018f0 25 2c 6e 65 77 70 6f 73 25 2c 6e 65 77 69 6e 64 |%,newpos%,newind|
00001900 25 2c 69 6e 64 65 78 25 0d 0c 80 10 77 69 6e 64 |%,index%....wind|
00001910 6f 77 25 3d 71 25 21 30 0d 0c 8a 0e 69 63 6f 6e |ow%=q%!0....icon|
00001920 25 3d 71 25 21 34 0d 0c 94 10 69 6e 64 65 78 25 |%=q%!4....index%|
00001930 3d 71 25 21 32 30 0d 0c 9e 0e 6b 65 79 25 3d 71 |=q%!20....key%=q|
00001940 25 21 32 34 0d 0c a8 10 c8 8e 20 77 69 6e 64 6f |%!24...... windo|
00001950 77 25 20 ca 0d 0c b2 05 cb 0d 0c bc 05 e1 0d 0c |w% .............|
00001960 c6 05 3a 0d 0c d0 13 dd 20 f2 5f 4d 65 73 73 61 |..:..... ._Messa|
00001970 67 65 28 71 25 29 0d 0c da 0e c8 8e 20 71 25 21 |ge(q%)...... q%!|
00001980 31 36 20 ca 0d 0c e4 15 20 c9 20 30 3a 20 f2 5f |16 ..... . 0: ._|
00001990 43 6c 6f 73 65 44 6f 77 6e 0d 0c ee 21 20 c9 20 |CloseDown...! . |
000019a0 33 3a 20 f2 5f 46 69 6c 65 28 a4 5f 53 74 72 69 |3: ._File(._Stri|
000019b0 6e 67 28 71 25 2b 34 34 29 29 0d 0c f8 05 cb 0d |ng(q%+44))......|
000019c0 0d 02 05 e1 0d 0d 0c 05 3a 0d 0d 16 13 dd 20 f2 |........:..... .|
000019d0 5f 46 69 6c 65 28 6e 61 6d 65 24 29 0d 0d 20 37 |_File(name$).. 7|
000019e0 71 25 21 31 32 3d 71 25 21 38 3a 71 25 21 31 36 |q%!12=q%!8:q%!16|
000019f0 3d 34 3a c8 99 20 22 57 69 6d 70 5f 53 65 6e 64 |=4:.. "Wimp_Send|
00001a00 4d 65 73 73 61 67 65 22 2c 31 37 2c 71 25 2c 71 |Message",17,q%,q|
00001a10 25 21 34 0d 0d 2a 11 f2 5f 4f 70 65 6e 28 6e 61 |%!4..*.._Open(na|
00001a20 6d 65 24 29 0d 0d 34 05 e1 0d 0d 3e 05 3a 0d 0d |me$)..4....>.:..|
00001a30 48 16 dd 20 f2 5f 53 74 72 69 6e 67 30 28 73 25 |H.. ._String0(s%|
00001a40 2c 73 24 29 0d 0d 52 08 ea 20 6e 25 0d 0d 5c 12 |,s$)..R.. n%..\.|
00001a50 e3 20 6e 25 3d 31 20 b8 20 a9 28 73 24 29 0d 0d |. n%=1 . .(s$)..|
00001a60 66 1b 20 73 25 3f 28 6e 25 2d 31 29 3d 97 28 c1 |f. s%?(n%-1)=.(.|
00001a70 73 24 2c 6e 25 2c 31 29 29 0d 0d 70 08 ed 20 6e |s$,n%,1))..p.. n|
00001a80 25 0d 0d 7a 0e 73 25 3f a9 28 73 24 29 3d 30 0d |%..z.s%?.(s$)=0.|
00001a90 0d 84 05 e1 0d ff |......|
00001a96 
.