Home » Archimedes archive » Acorn Computing » 1993 06 Mega Disk.adf » 93_06 » Miscellany/Identify/!Identify/!RunImage
Miscellany/Identify/!Identify/!RunImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn Computing » 1993 06 Mega Disk.adf » 93_06 |
| Filename: | Miscellany/Identify/!Identify/!RunImage |
| Read OK: | ✔ |
| File size: | 2933 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10 REM><Ident$Dir>.!RunImage
20 REM ---------------------------------------------
30 REM !Identify v1.87 09 Jan 1993
40 REM By David Bradshaw
50 REM LEN Acorn Computing 1993
60 REM ---------------------------------------------
70 REM The auther may be contacted at the folowing address:
80 REM 20 Downing Crescent, Bottesford, Scunthorpe,
90 REM South Humberside DN16 3LS
100 REM ---------------------------------------------
110 REM
120 ONERROR PROCreporterror(0,"Fatal Error: "+REPORT$+" at line "+STR$(ERL)+". I must die!",-1)
130 currentmenu=0
140 startyet=FALSE
150 ST$=""
160 WindSize=2000
170 LIBRARY"<Ident$Dir>.Menu2"
180 DIM types$(100),typenum(100)
190 DIM wimp_block% 2000,ind% WindSize,iblk% 200
200 DIM gspace 200
210 DIM buff 100
220 DIM task% 5
230 DIM addr 24
240 DIM sblock 16600
250 !sblock=16600
260 SYS"OS_SpriteOp",266,sblock,"<Ident$Dir>.SpriteFile"
270 $(addr+12)="a0-9a-fA-F"
280 $addr="FFF"
290 DIM menu% 300,types% 800
300 $task%="TASK"
310 ws=ind%+WindSize
320 PROCreadintypes
330 SYS"Wimp_Initialise",200,!task%,"Filetype Manager" TO ,taskhandle%
340 SYS"Wimp_ClaimInterface",taskhandle%
350 SYS"Wimp_OpenTemplate",,"<Ident$Dir>.Templates"
360 SYS"Wimp_LoadTemplate",,wimp_block%,ind%,ws,-1,"main",0 TO ,,nind%
370 SYS"Wimp_CreateWindow",,wimp_block% TO main%
380 SYS"Wimp_LoadTemplate",,wimp_block%,nind%,ws,-1,"info",0 TO ,,nind%
390 SYS"Wimp_CreateWindow",,wimp_block% TO info%
400 SYS"Wimp_LoadTemplate",,wimp_block%,nind%,ws,-1,"xinfo",0 TO ,,nind%
410 SYS"Wimp_CreateWindow",,wimp_block% TO xinfo%
420 SYS"Wimp_LoadTemplate",,wimp_block%,nind%,ws,-1,"startup",0 TO ,,nind%
430 wimp_block%!64=sblock
440 SYS"Wimp_CreateWindow",,wimp_block% TO startup%
450 !wimp_block%=startup%:SYS"Wimp_GetWindowState",,wimp_block%
460 SYS"Wimp_OpenWindow",,wimp_block%
470 SYS"Wimp_CloseTemplate"
480 iconbar%=FNiconbar("!identify",iblk%,"Identify",-1)
490 TY$=""
500 FOR count = 0 TO maxtype
510 TY$=TY$+types$(count)+","
520 IF count=maxtype-1 THEN TY$=TY$+"_"
530 NEXT count
540 TY$=TY$+"�0,addr,4,addr+12,"
550 types%=FNconstruct_menu(types%,TY$,"FileTypes",150)
560 menu%=FNconstruct_menu(menu%,">Info,info%,Help,>Types,types%,Quit,","Identifer",200)
570 SYS"Wimp_Poll",0,wimp_block% TO action%
580 SYS"Wimp_PollPointer",action%,,taskhandle%
590 CASE action% OF
600 WHEN 1:PROCredraw_window(wimp_block%!0,wimp_block%)
610 WHEN 2:SYS"Wimp_OpenWindow",,wimp_block%
620 WHEN 3:SYS"Wimp_CloseWindow",,wimp_block%
630 WHEN 4:PROCnoinfo
640 WHEN 6:PROCcl
650 WHEN 8:PROCkeys
660 WHEN 9:PROCdecode
670 WHEN 17,18
680 CASE wimp_block%!16 OF
690 WHEN 0:PROCdie
700 WHEN 3:PROCdoaload
710 WHEN &502:PROCsendhelpmessage
720 ENDCASE
730 ENDCASE
740 GOTO 570
750DEF PROCupdate_window(handle%)
760LOCALmore%
770 !wimp_block%=handle%
780 SYS"Wimp_GetWindowState",,wimp_block%
790SYS "Wimp_UpdateWindow",,wimp_block% TO more%
800WHILE more%
810 SYS "Wimp_GetRectangle",,wimp_block% TO more%
820ENDWHILE
830ENDPROC
840DEF PROCredraw_window(handle%,block%)
850 !block%=handle%
860 SYS"Wimp_GetWindowState",,block%
870LOCALmore%
880SYS "Wimp_RedrawWindow",,block% TO more%
890WHILE more%
900 SYS "Wimp_BorderWindow",,block%
910 SYS "Wimp_GetRectangle",,block% TO more%
920ENDWHILE
930 PROCupdate_window(handle%)
940ENDPROC
950 DEFPROCcl
960 mx%=wimp_block%!0
970 my%=wimp_block%!4
980 bu%=wimp_block%!8
990 wi%=wimp_block%!12
1000 ic%=wimp_block%!16
1010 IF bu%=2 THEN GOTO 1050
1020 SYS"Wimp_BorderIcon",,wimp_block%
1030 wimp_block%!8=0
1040 SYS"Wimp_BorderIcon",,wimp_block%
1050 CASE wi% OF
1060 WHEN startup%
1070 CASE bu% OF
1080 WHEN 4:PROCstartdragging(startup%)
1090 ENDCASE
1100 WHEN -2
1110 !gspace=startup%:SYS"Wimp_CloseWindow",,gspace
1120 CASE bu% OF
1130 WHEN 4
1140 !wimp_block%=main%:SYS"Wimp_GetWindowState",,wimp_block%
1150 SYS"Wimp_OpenWindow",,wimp_block%
1160 WHEN 2
1170 PROCmenu_at(menu%,0,mx%-100,275):currentmenu=menu%
1180 ENDCASE
1190 WHEN main%
1200 CASE bu% OF
1210 WHEN 2
1220 CASE ic% OF
1230 WHEN 10:PROCmenu_at(types%,0,mx%,my%):currentmenu=types%
1240 OTHERWISE PROCmenu_at(menu%,0,mx%,my%):currentmenu=menu%
1250 ENDCASE
1260 WHEN 4
1270 CASE ic% OF
1280 WHEN 0:
1290 WHEN 8:PROCsetthetype
1300 WHEN 10:PROCmenu_at(types%,0,mx%,my%):currentmenu=types%
1310 WHEN 15:!gspace=main%:SYS"Wimp_CloseWindow",,gspace
1320 WHEN 18:PROCstartdragging(main%)
1330 WHEN 16:!gspace=main%:SYS"Wimp_GetWindowState",,gspace:gspace!28=-2:SYS"Wimp_OpenWindow",,gspace
1340 WHEN 19:PROCxtra
1350 ENDCASE
1360 ENDCASE
1370 WHEN info%
1380 IF ic%=1 THEN PROCxtra
1390 WHEN xinfo%:!wimp_block%=xinfo%:SYS"Wimp_CloseWindow",,wimp_block%
1400 ENDCASE
1410 ENDPROC
1420 DEFPROCerror
1430 IF ERR=17 THEN ENDPROC
1440 CASE ERR OF
1450 OTHERWISE
1460 OSCLI"ERROR "+REPORT$+" at line "+STR$(ERL)
1470 ENDCASE
1480 ENDPROC
1490 DEFPROCkeys
1500 IF wimp_block%!0<>main% THEN SYS"Wimp_ProcessKey",wimp_block%!24:ENDPROC
1510 IF wimp_block%!24=&D THEN SYS"Wimp_SetCaretPosition",0
1520 ENDPROC
1530 DEFPROCgetit(h%)
1540 !wimp_block%=main%
1550 wimp_block%!4=h%
1560 SYS"Wimp_GetIconState",,wimp_block%
1570 ENDPROC
1580 DEFPROCupdateicon
1590 PROCredraw_window(main%,wimp_block%)
1600 ENDPROC
1610 DEFPROCupdateit(icon)
1620 !wimp_block%=main%
1630 wimp_block%!4=icon
1640 wimp_block%!8=0:wimp_block%!12=0
1650 SYS"Wimp_SetIconState",,wimp_block%
1660 ENDPROC
1670 DEFPROCxtra
1680 SYS"Wimp_CreateMenu",,-1
1690 !wimp_block%=xinfo%
1700 SYS"Wimp_GetWindowState",,wimp_block%
1710 !wimp_block%=xinfo%:SYS"Wimp_OpenWindow",,wimp_block%
1720 ENDPROC
1730 DEFPROCnoinfo
1740 IF wimp_block%!0<>xinfo% THEN ENDPROC
1750 !wimp_block%=xinfo%
1760 SYS"Wimp_CloseWindow",,wimp_block%
1770 ENDPROC
1780 DEFPROCdoaload
1790 startyet=TRUE
1800 wimp_block%!16=4:wimp_block%!12=wimp_block%!8
1810 hndle%=wimp_block%!4
1820 SYS"Wimp_SendMessage",18,wimp_block%,hndle%
1830 f$=FNlifttext(wimp_block%+44)
1840 IF wimp_block%!24=4 THEN PROCsetthetype:PROCnewtext(main%,13,f$):ENDPROC
1850 filetype=wimp_block%!40
1860 IF filetype=&FFD THEN PROCidentify
1870 PROCnewtext(main%,13,f$)
1880 te$="file_"+STR$~(wimp_block%!40)
1890 IF filetype=&1000 THEN te$="directory"
1900 IF filetype=&2000 THEN te$="application"
1910 PROCnewtext(main%,3,"&"+STR$~(filetype)+" - "+FNnumtotext(filetype))
1920 IF filetype<&1000 THEN PROCnewsprite(main%,4,"sfile_"+STR$~(filetype)): ELSE IF filetype=&1000 THEN PROCnewsprite(main%,4,"sdirectory"): ELSE IF filetype=&2000 THEN PROCnewsprite(main%,4,"sapplication")
1930 ENDPROC
1940 DEFFNlifttext(address)
1950 TE$=""
1960 IF ?address> &D THEN TE$=TE$+CHR$(?address):address=address+1:GOTO 1960
1970 =TE$
1980 DEFPROCnewtext(w%,i%,t$)
1990 wimp_block%!0=w%:wimp_block%!4=i%:SYS"Wimp_GetIconState",,wimp_block%
2000 $(wimp_block%!28)=t$
2010 PROCupdateit(i%)
2020 ENDPROC
2030 DEFPROCnewsprite(w%,i%,t$)
2040 !wimp_block%=w%:wimp_block%!4=i%:SYS"Wimp_GetIconState",,wimp_block%
2050 $(wimp_block%!32)="sblank":PROCupdateit(i%):!wimp_block%=w%:wimp_block%!4=i%:SYS"Wimp_GetIconState",,wimp_block%
2060 $(wimp_block%!32)=t$
2070 PROCupdateit(i%)
2080 ENDPROC
2090 DEFFNnumtotext(num)
2100 FOR a=gspace TO gspace+200
2110 ?a=&D : NEXT a
2120 $gspace="File$Type_"+STR$~(num)
2130 SYS"XOS_ReadVarVal",gspace,gspace+100,gspace+200
2140 T$=$(gspace+100)
2150 IF LEN T$<2 THEN ="Unknown"
2160 =T$
2170 DEFPROCidentify
2180 X=OPENUP f$
2190 FOR A=0 TO 16 STEP 1
2200 gspace?A=BGET#X
2210 NEXT
2220 CLOSE#X
2230 IF !gspace=-1 THEN filetype=&FEC
2240 IF !gspace=&7365614D THEN filetype=&AF1
2250 IF !gspace=&57415244 OR !gspace=&77617244 THEN filetype=&AFF
2260 IF gspace!40=16 AND gspace!44=16 THEN filetype=&FF6
2270 IF !gspace=&5853554D THEN filetype=&CB6
2280 IF ?gspace=13 THEN filetype=&FFB
2290 IF gspace?1=0 AND ?gspace<>13 THEN filetype=&FF9
2300 IF ?gspace=ASC("|") THEN filetype=&FEB
2310 IF FNwhichradio=11 THEN PROCsetthetype
2320 ENDPROC
2330 DEFPROCsetthetype
2340 IF startyet=FALSE THEN PROCreporterror(0,"You haven't dragged a file to the window yet!",0):ENDPROC
2350 IF filetype>&FFF THEN PROCreporterror(0,"You can only set the type of files!",0):ENDPROC
2360 OSCLI"WimpTask Settype "+f$+" &"+STR$~(filetype)
2370 ENDPROC
2380 DEFPROChelp
2390 OSCLI"WimpTask DisplayText <Ident$Dir>.!Help"
2400 ENDPROC
2410 DEFPROCdie
2420 SYS"Wimp_ReleaseInterface",taskhandle%,taskhandle%
2430 SYS"Wimp_CloseDown"
2440 END
2450 ENDPROC
2460 DEFPROCreadintypes
2470 OSCLI"Load <Ident$Dir>.TypeFile &"+STR$~(wimp_block%)
2480 FILE$=$wimp_block%
2490 IF LEFT$(FILE$,8)<>"TYPEFILE" THEN OSCLI"ERROR Fatal Error: Resources corrupt. I must die!"
2500 FILE$=RIGHT$(FILE$,(LEN(FILE$)-9))
2510 finished=FALSE
2520 count=0
2530 REPEAT
2540 pos=INSTR(FILE$,",")
2550 types$(count)=LEFT$(FILE$,(pos-1))
2560 FILE$=RIGHT$( FILE$,(LEN(FILE$)-LEN(types$(count)))-1 )
2570 t$=LEFT$(FILE$,3):typenum(count)=EVAL("&"+t$)
2580 FILE$=RIGHT$(FILE$,(LEN(FILE$)-4))
2590 OSCLI"SET Up$To "+FILE$
2600 IF LEN(FILE$)<5 THEN finished=TRUE
2610 count=count+1
2620 UNTIL finished=TRUE
2630 maxtype=count-1
2640 ENDPROC
2650 DEFPROCdecode
2660 SYS"Wimp_GetPointerInfo",,gspace
2670 IF currentmenu=types% THEN PROCsetthetype2(!wimp_block%):ENDPROC
2680 IF currentmenu=menu% THEN
2690 CASE !wimp_block% OF
2700 WHEN 0:
2710 WHEN 1:PROChelp
2720 WHEN 2:PROCsetthetype2(wimp_block%!4)
2730 WHEN 3:PROCdie
2740 ENDCASE
2750 ENDIF
2760 ENDPROC
2770 DEFPROCsetthetype2(value)
2780 filetype=typenum(value)
2790 IF value=maxtype+1 THEN filetype=EVAL("&"+$addr)
2800 te$="&"+STR$~(filetype)+" - "+types$(value)
2810 IF value=maxtype+1 THEN te$="&"+STR$~(filetype)+" - "+FNnumtotext(filetype)
2820 PROCnewtext(main%,3,te$)
2830 PROCnewsprite(main%,4,"sfile_"+STR$~(filetype))
2840 IF FNwhichradio=11 THEN PROCsetthetype
2850 ENDPROC
2860 DEFFNwhichradio
2870 ?gspace=12:gspace?1=13:gspace?2=-1
2880 SYS"Wimp_WhichIcon",main%,gspace,1<<21,1<<21
2890 =?gspace
2900 DEFPROCsendhelpmessage
2910 wimp_block%!16=&503:wimp_block%!12=wimp_block%!8
2920 wimp_block%!0=256
2930 sendhelp$="This belongs to !Identify|MNo help here - go point to something useful."
2940 CASE wimp_block%!32 OF
2950 WHEN info%:sendhelp$="This is the !Identify information window|MClick on 'DigiTech' to get more information."
2960 WHEN xinfo%:sendhelp$="Here is the address of DigiTech PD, authers of !Identify|MSend some money and we'll send you some PD!"
2970 WHEN -2:sendhelp$="This is the !Identify icon|MClick SELECT for the main window|MClick MENU for a menu"
2980 WHEN main%
2990 CASE wimp_block%!36 OF
3000 WHEN 13:sendhelp$="This icon displays the filename of the last file which has been dragged to !Identify.|MThis is the file on which all operations will take place."
3010 WHEN 3:sendhelp$="This is the currently selected file type."
3020 WHEN 4:sendhelp$="This is the currently selected file type.|MDrag a file to this icon and it will set it's type to the one shown.|MThis may be changed from the type menu."
3030 WHEN 11:sendhelp$="Click here to select auto settings.|MWhen the filetype is changed on the type menu, the file displayed in the Input File icon will be set to this type immidiately if autoset is selected."
3040 WHEN 12:sendhelp$="Click here to disable auto settings.|MWhen the filetype is changed on the type menu, the file displayed in the Input File icon will be set to this type only if the Set icon is clicked upon."
3050 WHEN 8:sendhelp$="Click here to set the Input File to the Currently Selected Filetype."
3060 WHEN 10:sendhelp$="Click here to get straight to the type menu to change the Currently Selected Filetype."
3070 ENDCASE
3080 ENDCASE
3090 $(wimp_block%+20)=sendhelp$
3100 SYS"Wimp_SendMessage",17,wimp_block%,wimp_block%!4
3110 ENDPROC
3120 DEFPROCstartdragging(window%)
3130 gspace!4=window%: SYS"Wimp_GetWindowOutline",,(gspace+4)
3140 !gspace=window%: gspace!4=1
3150 SYS"Wimp_DragBox",,gspace
3160 ENDPROC
3170 DEFPROCreporterror(EN,E$,fatal)
3180 !gspace=EN:$(gspace+4)=E$
3190 SYS"Wimp_ReportError",gspace,11,"Identify" TO ,rs
3200 IF rs=2 OR fatal=TRUE THEN PROCdie
3210 ENDPROC
3220 REM FN
�><Ident$Dir>.!RunImage
4 � ---------------------------------------------
" � !Identify v1.87 09 Jan 1993
( � By David Bradshaw
2 � � Acorn Computing 1993
<4 � ---------------------------------------------
F; � The auther may be contacted at the folowing address:
P6 � 20 Downing Crescent, Bottesford, Scunthorpe,
Z" � South Humberside DN16 3LS
d4 � ---------------------------------------------
n �
xN � �reporterror(0,"Fatal Error: "+�$+" at line "+�(�)+". I must die!",-1)
� currentmenu=0
� startyet=�
� ST$=""
� WindSize=2000
� ț"<Ident$Dir>.Menu2"
� � types$(100),typenum(100)
�/ � wimp_block% 2000,ind% WindSize,iblk% 200
� � gspace 200
� � buff 100
� � task% 5
� � addr 24
� � sblock 16600
� !sblock=16600
8 ș"OS_SpriteOp",266,sblock,"<Ident$Dir>.SpriteFile"
$(addr+12)="a0-9a-fA-F"
$addr="FFF"
" � menu% 300,types% 800
, $task%="TASK"
6 ws=ind%+WindSize
@ �readintypes
JE ș"Wimp_Initialise",200,!task%,"Filetype Manager" � ,taskhandle%
T( ș"Wimp_ClaimInterface",taskhandle%
^3 ș"Wimp_OpenTemplate",,"<Ident$Dir>.Templates"
hE ș"Wimp_LoadTemplate",,wimp_block%,ind%,ws,-1,"main",0 � ,,nind%
r/ ș"Wimp_CreateWindow",,wimp_block% � main%
|F ș"Wimp_LoadTemplate",,wimp_block%,nind%,ws,-1,"info",0 � ,,nind%
�/ ș"Wimp_CreateWindow",,wimp_block% � info%
�G ș"Wimp_LoadTemplate",,wimp_block%,nind%,ws,-1,"xinfo",0 � ,,nind%
�0 ș"Wimp_CreateWindow",,wimp_block% � xinfo%
�I ș"Wimp_LoadTemplate",,wimp_block%,nind%,ws,-1,"startup",0 � ,,nind%
� wimp_block%!64=sblock
�2 ș"Wimp_CreateWindow",,wimp_block% � startup%
�? !wimp_block%=startup%:ș"Wimp_GetWindowState",,wimp_block%
�% ș"Wimp_OpenWindow",,wimp_block%
� ș"Wimp_CloseTemplate"
�7 iconbar%=�iconbar("!identify",iblk%,"Identify",-1)
� TY$=""
� � count = 0 � maxtype
� TY$=TY$+types$(count)+","
$ � count=maxtype-1 � TY$=TY$+"_"
� count
! TY$=TY$+"�0,addr,4,addr+12,"
&7 types%=�construct_menu(types%,TY$,"FileTypes",150)
0X menu%=�construct_menu(menu%,">Info,info%,Help,>Types,types%,Quit,","Identifer",200)
:* ș"Wimp_Poll",0,wimp_block% � action%
D. ș"Wimp_PollPointer",action%,,taskhandle%
N Ȏ action% �
X2 � 1:�redraw_window(wimp_block%!0,wimp_block%)
b) � 2:ș"Wimp_OpenWindow",,wimp_block%
l* � 3:ș"Wimp_CloseWindow",,wimp_block%
v � 4:�noinfo
� � 6:�cl
� � 8:�keys
� � 9:�decode
� � 17,18
� Ȏ wimp_block%!16 �
� � 0:�die
� � 3:�doaload
� � &502:�sendhelpmessage
� �
� �
� � �TzB
� � �update_window(handle%)
�
�more%
!wimp_block%=handle%
) ș"Wimp_GetWindowState",,wimp_block%
/ș "Wimp_UpdateWindow",,wimp_block% � more%
ȕ more%
*1 ș "Wimp_GetRectangle",,wimp_block% � more%
4�
>�
H$� �redraw_window(handle%,block%)
R !block%=handle%
\$ ș"Wimp_GetWindowState",,block%
f
�more%
p*ș "Wimp_RedrawWindow",,block% � more%
z ȕ more%
�$ ș "Wimp_BorderWindow",,block%
�, ș "Wimp_GetRectangle",,block% � more%
��
� �update_window(handle%)
��
� ��cl
� mx%=wimp_block%!0
� my%=wimp_block%!4
� bu%=wimp_block%!8
� wi%=wimp_block%!12
� ic%=wimp_block%!16
� � bu%=2 � � �TZD
�% ș"Wimp_BorderIcon",,wimp_block%
wimp_block%!8=0
% ș"Wimp_BorderIcon",,wimp_block%
Ȏ wi% �
$ � startup%
. Ȏ bu% �
8" � 4:�startdragging(startup%)
B �
L � -2
V2 !gspace=startup%:ș"Wimp_CloseWindow",,gspace
` Ȏ bu% �
j � 4
t> !wimp_block%=main%:ș"Wimp_GetWindowState",,wimp_block%
~' ș"Wimp_OpenWindow",,wimp_block%
� � 2
�6 �menu_at(menu%,0,mx%-100,275):currentmenu=menu%
� �
� � main%
� Ȏ bu% �
� � 2
� Ȏ ic% �
�9 � 10:�menu_at(types%,0,mx%,my%):currentmenu=types%
�4 �menu_at(menu%,0,mx%,my%):currentmenu=menu%
� �
� � 4
� Ȏ ic% �
� 0:
� 8:�setthetype
9 � 10:�menu_at(types%,0,mx%,my%):currentmenu=types%
6 � 15:!gspace=main%:ș"Wimp_CloseWindow",,gspace
(! � 18:�startdragging(main%)
2b � 16:!gspace=main%:ș"Wimp_GetWindowState",,gspace:gspace!28=-2:ș"Wimp_OpenWindow",,gspace
< � 19:�xtra
F �
P �
Z � info%
d � ic%=1 � �xtra
nC � xinfo%:!wimp_block%=xinfo%:ș"Wimp_CloseWindow",,wimp_block%
x �
� �
� ��error
� � �=17 � �
� Ȏ � �
�
�" �"ERROR "+�$+" at line "+�(�)
� �
� �
� ��keys
�B � wimp_block%!0<>main% � ș"Wimp_ProcessKey",wimp_block%!24:�
�6 � wimp_block%!24=&D � ș"Wimp_SetCaretPosition",0
� �
� ��getit(h%)
!wimp_block%=main%
wimp_block%!4=h%
' ș"Wimp_GetIconState",,wimp_block%
" �
, ��updateicon
6& �redraw_window(main%,wimp_block%)
@ �
J ��updateit(icon)
T !wimp_block%=main%
^ wimp_block%!4=icon
h% wimp_block%!8=0:wimp_block%!12=0
r' ș"Wimp_SetIconState",,wimp_block%
| �
� ��xtra
� ș"Wimp_CreateMenu",,-1
� !wimp_block%=xinfo%
�) ș"Wimp_GetWindowState",,wimp_block%
�9 !wimp_block%=xinfo%:ș"Wimp_OpenWindow",,wimp_block%
� �
�
��noinfo
� � wimp_block%!0<>xinfo% � �
� !wimp_block%=xinfo%
�& ș"Wimp_CloseWindow",,wimp_block%
� �
� ��doaload
� startyet=�
2 wimp_block%!16=4:wimp_block%!12=wimp_block%!8
hndle%=wimp_block%!4
/ ș"Wimp_SendMessage",18,wimp_block%,hndle%
&! f$=�lifttext(wimp_block%+44)
0= � wimp_block%!24=4 � �setthetype:�newtext(main%,13,f$):�
: filetype=wimp_block%!40
D � filetype=&FFD � �identify
N �newtext(main%,13,f$)
X# te$="file_"+�~(wimp_block%!40)
b' � filetype=&1000 � te$="directory"
l) � filetype=&2000 � te$="application"
vB �newtext(main%,3,"&"+�~(filetype)+" - "+�numtotext(filetype))
�� � filetype<&1000 � �newsprite(main%,4,"sfile_"+�~(filetype)): � � filetype=&1000 � �newsprite(main%,4,"sdirectory"): � � filetype=&2000 � �newsprite(main%,4,"sapplication")
� �
� ݤlifttext(address)
� TE$=""
�B � ?address> &D � TE$=TE$+�(?address):address=address+1:� �thG
� =TE$
� ��newtext(w%,i%,t$)
�I wimp_block%!0=w%:wimp_block%!4=i%:ș"Wimp_GetIconState",,wimp_block%
� $(wimp_block%!28)=t$
� �updateit(i%)
� �
� ��newsprite(w%,i%,t$)
�H !wimp_block%=w%:wimp_block%!4=i%:ș"Wimp_GetIconState",,wimp_block%
q $(wimp_block%!32)="sblank":�updateit(i%):!wimp_block%=w%:wimp_block%!4=i%:ș"Wimp_GetIconState",,wimp_block%
$(wimp_block%!32)=t$
�updateit(i%)
�
* ݤnumtotext(num)
4 � a=gspace � gspace+200
> ?a=&D : � a
H! $gspace="File$Type_"+�~(num)
R4 ș"XOS_ReadVarVal",gspace,gspace+100,gspace+200
\ T$=$(gspace+100)
f � � T$<2 � ="Unknown"
p =T$
z ��identify
� X=� f$
� � A=0 � 16 � 1
� gspace?A=�#X
� �
� �#X
�! � !gspace=-1 � filetype=&FEC
�( � !gspace=&7365614D � filetype=&AF1
�< � !gspace=&57415244 � !gspace=&77617244 � filetype=&AFF
�2 � gspace!40=16 � gspace!44=16 � filetype=&FF6
�( � !gspace=&5853554D � filetype=&CB6
�! � ?gspace=13 � filetype=&FFB
�/ � gspace?1=0 � ?gspace<>13 � filetype=&FF9
�% � ?gspace=�("|") � filetype=&FEB
# � �whichradio=11 � �setthetype
�
��setthetype
$W � startyet=� � �reporterror(0,"You haven't dragged a file to the window yet!",0):�
.P � filetype>&FFF � �reporterror(0,"You can only set the type of files!",0):�
8. �"WimpTask Settype "+f$+" &"+�~(filetype)
B �
L ��help
V. �"WimpTask DisplayText <Ident$Dir>.!Help"
` �
j
��die
t6 ș"Wimp_ReleaseInterface",taskhandle%,taskhandle%
~ ș"Wimp_CloseDown"
� �
� �
� ��readintypes
�3 �"Load <Ident$Dir>.TypeFile &"+�~(wimp_block%)
� FILE$=$wimp_block%
�S � �FILE$,8)<>"TYPEFILE" � �"ERROR Fatal Error: Resources corrupt. I must die!"
� FILE$=�FILE$,(�(FILE$)-9))
� finished=�
� count=0
� �
� pos=�FILE$,",")
�" types$(count)=�FILE$,(pos-1))
2 FILE$=� FILE$,(�(FILE$)-�(types$(count)))-1 )
* t$=�FILE$,3):typenum(count)=�("&"+t$)
FILE$=�FILE$,(�(FILE$)-4))
�"SET Up$To "+FILE$
( � �(FILE$)<5 � finished=�
2 count=count+1
< � finished=�
F maxtype=count-1
P �
Z
��decode
d$ ș"Wimp_GetPointerInfo",,gspace
n8 � currentmenu=types% � �setthetype2(!wimp_block%):�
x � currentmenu=menu% �
� Ȏ !wimp_block% �
�
� 0:
� � 1:�help
�% � 2:�setthetype2(wimp_block%!4)
� � 3:�die
� �
� �
� �
� ��setthetype2(value)
� filetype=typenum(value)
�. � value=maxtype+1 � filetype=�("&"+$addr)
�- te$="&"+�~(filetype)+" - "+types$(value)
�H � value=maxtype+1 � te$="&"+�~(filetype)+" - "+�numtotext(filetype)
�newtext(main%,3,te$)
. �newsprite(main%,4,"sfile_"+�~(filetype))
# � �whichradio=11 � �setthetype
" �
, ݤwhichradio
6' ?gspace=12:gspace?1=13:gspace?2=-1
@0 ș"Wimp_WhichIcon",main%,gspace,1<<21,1<<21
J
=?gspace
T ��sendhelpmessage
^5 wimp_block%!16=&503:wimp_block%!12=wimp_block%!8
h wimp_block%!0=256
rX sendhelp$="This belongs to !Identify|MNo help here - go point to something useful."
| Ȏ wimp_block%!32 �
�p � info%:sendhelp$="This is the !Identify information window|MClick on 'DigiTech' to get more information."
�� � xinfo%:sendhelp$="Here is the address of DigiTech PD, authers of !Identify|MSend some money and we'll send you some PD!"
�j � -2:sendhelp$="This is the !Identify icon|MClick SELECT for the main window|MClick MENU for a menu"
�
� main%
� Ȏ wimp_block%!36 �
�� � 13:sendhelp$="This icon displays the filename of the last file which has been dragged to !Identify.|MThis is the file on which all operations will take place."
�A � 3:sendhelp$="This is the currently selected file type."
̰ � 4:sendhelp$="This is the currently selected file type.|MDrag a file to this icon and it will set it's type to the one shown.|MThis may be changed from the type menu."
�� � 11:sendhelp$="Click here to select auto settings.|MWhen the filetype is changed on the type menu, the file displayed in the Input File icon will be set to this type immidiately if autoset is selected."
�� � 12:sendhelp$="Click here to disable auto settings.|MWhen the filetype is changed on the type menu, the file displayed in the Input File icon will be set to this type only if the Set icon is clicked upon."
�\ � 8:sendhelp$="Click here to set the Input File to the Currently Selected Filetype."
�o � 10:sendhelp$="Click here to get straight to the type menu to change the Currently Selected Filetype."
� �
�
$(wimp_block%+20)=sendhelp$
6 ș"Wimp_SendMessage",17,wimp_block%,wimp_block%!4
& �
0 ��startdragging(window%)
:< gspace!4=window%: ș"Wimp_GetWindowOutline",,(gspace+4)
D !gspace=window%: gspace!4=1
N ș"Wimp_DragBox",,gspace
X �
b ��reporterror(EN,E$,fatal)
l !gspace=EN:$(gspace+4)=E$
v4 ș"Wimp_ReportError",gspace,11,"Identify" � ,rs
� � rs=2 � fatal=� � �die
� �
� � �
� 00000000 0d 00 0a 1c 20 f4 3e 3c 49 64 65 6e 74 24 44 69 |.... .><Ident$Di|
00000010 72 3e 2e 21 52 75 6e 49 6d 61 67 65 0d 00 14 34 |r>.!RunImage...4|
00000020 20 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | . -------------|
00000030 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00000050 0d 00 1e 22 20 f4 20 21 49 64 65 6e 74 69 66 79 |..." . !Identify|
00000060 20 76 31 2e 38 37 20 30 39 20 4a 61 6e 20 31 39 | v1.87 09 Jan 19|
00000070 39 33 0d 00 28 18 20 f4 20 42 79 20 44 61 76 69 |93..(. . By Davi|
00000080 64 20 42 72 61 64 73 68 61 77 0d 00 32 1d 20 f4 |d Bradshaw..2. .|
00000090 20 a9 20 41 63 6f 72 6e 20 43 6f 6d 70 75 74 69 | . Acorn Computi|
000000a0 6e 67 20 31 39 39 33 0d 00 3c 34 20 f4 20 2d 2d |ng 1993..<4 . --|
000000b0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
000000d0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 00 46 3b 20 |-----------..F; |
000000e0 f4 20 54 68 65 20 61 75 74 68 65 72 20 6d 61 79 |. The auther may|
000000f0 20 62 65 20 63 6f 6e 74 61 63 74 65 64 20 61 74 | be contacted at|
00000100 20 74 68 65 20 66 6f 6c 6f 77 69 6e 67 20 61 64 | the folowing ad|
00000110 64 72 65 73 73 3a 0d 00 50 36 20 f4 20 20 32 30 |dress:..P6 . 20|
00000120 20 44 6f 77 6e 69 6e 67 20 43 72 65 73 63 65 6e | Downing Crescen|
00000130 74 2c 20 20 42 6f 74 74 65 73 66 6f 72 64 2c 20 |t, Bottesford, |
00000140 20 53 63 75 6e 74 68 6f 72 70 65 2c 0d 00 5a 22 | Scunthorpe,..Z"|
00000150 20 f4 20 20 20 53 6f 75 74 68 20 48 75 6d 62 65 | . South Humbe|
00000160 72 73 69 64 65 20 44 4e 31 36 20 33 4c 53 0d 00 |rside DN16 3LS..|
00000170 64 34 20 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |d4 . -----------|
00000180 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
000001a0 2d 2d 0d 00 6e 08 20 f4 20 15 0d 00 78 4e 20 ee |--..n. . ...xN .|
000001b0 85 20 f2 72 65 70 6f 72 74 65 72 72 6f 72 28 30 |. .reporterror(0|
000001c0 2c 22 46 61 74 61 6c 20 45 72 72 6f 72 3a 20 22 |,"Fatal Error: "|
000001d0 2b f6 24 2b 22 20 61 74 20 6c 69 6e 65 20 22 2b |+.$+" at line "+|
000001e0 c3 28 9e 29 2b 22 2e 20 49 20 6d 75 73 74 20 64 |.(.)+". I must d|
000001f0 69 65 21 22 2c 2d 31 29 0d 00 82 12 20 63 75 72 |ie!",-1).... cur|
00000200 72 65 6e 74 6d 65 6e 75 3d 30 0d 00 8c 0f 20 73 |rentmenu=0.... s|
00000210 74 61 72 74 79 65 74 3d a3 0d 00 96 0b 20 53 54 |tartyet=..... ST|
00000220 24 3d 22 22 0d 00 a0 12 20 57 69 6e 64 53 69 7a |$="".... WindSiz|
00000230 65 3d 32 30 30 30 0d 00 aa 1a 20 c8 9b 22 3c 49 |e=2000.... .."<I|
00000240 64 65 6e 74 24 44 69 72 3e 2e 4d 65 6e 75 32 22 |dent$Dir>.Menu2"|
00000250 0d 00 b4 1f 20 de 20 74 79 70 65 73 24 28 31 30 |.... . types$(10|
00000260 30 29 2c 74 79 70 65 6e 75 6d 28 31 30 30 29 0d |0),typenum(100).|
00000270 00 be 2f 20 de 20 77 69 6d 70 5f 62 6c 6f 63 6b |../ . wimp_block|
00000280 25 20 32 30 30 30 2c 69 6e 64 25 20 57 69 6e 64 |% 2000,ind% Wind|
00000290 53 69 7a 65 2c 69 62 6c 6b 25 20 32 30 30 0d 00 |Size,iblk% 200..|
000002a0 c8 11 20 de 20 67 73 70 61 63 65 20 32 30 30 0d |.. . gspace 200.|
000002b0 00 d2 0f 20 de 20 62 75 66 66 20 31 30 30 0d 00 |... . buff 100..|
000002c0 dc 0e 20 de 20 74 61 73 6b 25 20 35 0d 00 e6 0e |.. . task% 5....|
000002d0 20 de 20 61 64 64 72 20 32 34 0d 00 f0 13 20 de | . addr 24.... .|
000002e0 20 73 62 6c 6f 63 6b 20 31 36 36 30 30 0d 00 fa | sblock 16600...|
000002f0 12 20 21 73 62 6c 6f 63 6b 3d 31 36 36 30 30 0d |. !sblock=16600.|
00000300 01 04 38 20 c8 99 22 4f 53 5f 53 70 72 69 74 65 |..8 .."OS_Sprite|
00000310 4f 70 22 2c 32 36 36 2c 73 62 6c 6f 63 6b 2c 22 |Op",266,sblock,"|
00000320 3c 49 64 65 6e 74 24 44 69 72 3e 2e 53 70 72 69 |<Ident$Dir>.Spri|
00000330 74 65 46 69 6c 65 22 0d 01 0e 1c 20 24 28 61 64 |teFile".... $(ad|
00000340 64 72 2b 31 32 29 3d 22 61 30 2d 39 61 2d 66 41 |dr+12)="a0-9a-fA|
00000350 2d 46 22 0d 01 18 10 20 24 61 64 64 72 3d 22 46 |-F".... $addr="F|
00000360 46 46 22 0d 01 22 1b 20 de 20 6d 65 6e 75 25 20 |FF"..". . menu% |
00000370 33 30 30 2c 74 79 70 65 73 25 20 38 30 30 0d 01 |300,types% 800..|
00000380 2c 12 20 24 74 61 73 6b 25 3d 22 54 41 53 4b 22 |,. $task%="TASK"|
00000390 0d 01 36 15 20 77 73 3d 69 6e 64 25 2b 57 69 6e |..6. ws=ind%+Win|
000003a0 64 53 69 7a 65 0d 01 40 11 20 f2 72 65 61 64 69 |dSize..@. .readi|
000003b0 6e 74 79 70 65 73 0d 01 4a 45 20 c8 99 22 57 69 |ntypes..JE .."Wi|
000003c0 6d 70 5f 49 6e 69 74 69 61 6c 69 73 65 22 2c 32 |mp_Initialise",2|
000003d0 30 30 2c 21 74 61 73 6b 25 2c 22 46 69 6c 65 74 |00,!task%,"Filet|
000003e0 79 70 65 20 4d 61 6e 61 67 65 72 22 20 b8 20 2c |ype Manager" . ,|
000003f0 74 61 73 6b 68 61 6e 64 6c 65 25 0d 01 54 28 20 |taskhandle%..T( |
00000400 c8 99 22 57 69 6d 70 5f 43 6c 61 69 6d 49 6e 74 |.."Wimp_ClaimInt|
00000410 65 72 66 61 63 65 22 2c 74 61 73 6b 68 61 6e 64 |erface",taskhand|
00000420 6c 65 25 0d 01 5e 33 20 c8 99 22 57 69 6d 70 5f |le%..^3 .."Wimp_|
00000430 4f 70 65 6e 54 65 6d 70 6c 61 74 65 22 2c 2c 22 |OpenTemplate",,"|
00000440 3c 49 64 65 6e 74 24 44 69 72 3e 2e 54 65 6d 70 |<Ident$Dir>.Temp|
00000450 6c 61 74 65 73 22 0d 01 68 45 20 c8 99 22 57 69 |lates"..hE .."Wi|
00000460 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 22 |mp_LoadTemplate"|
00000470 2c 2c 77 69 6d 70 5f 62 6c 6f 63 6b 25 2c 69 6e |,,wimp_block%,in|
00000480 64 25 2c 77 73 2c 2d 31 2c 22 6d 61 69 6e 22 2c |d%,ws,-1,"main",|
00000490 30 20 b8 20 2c 2c 6e 69 6e 64 25 0d 01 72 2f 20 |0 . ,,nind%..r/ |
000004a0 c8 99 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 |.."Wimp_CreateWi|
000004b0 6e 64 6f 77 22 2c 2c 77 69 6d 70 5f 62 6c 6f 63 |ndow",,wimp_bloc|
000004c0 6b 25 20 b8 20 6d 61 69 6e 25 0d 01 7c 46 20 c8 |k% . main%..|F .|
000004d0 99 22 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c |."Wimp_LoadTempl|
000004e0 61 74 65 22 2c 2c 77 69 6d 70 5f 62 6c 6f 63 6b |ate",,wimp_block|
000004f0 25 2c 6e 69 6e 64 25 2c 77 73 2c 2d 31 2c 22 69 |%,nind%,ws,-1,"i|
00000500 6e 66 6f 22 2c 30 20 b8 20 2c 2c 6e 69 6e 64 25 |nfo",0 . ,,nind%|
00000510 0d 01 86 2f 20 c8 99 22 57 69 6d 70 5f 43 72 65 |.../ .."Wimp_Cre|
00000520 61 74 65 57 69 6e 64 6f 77 22 2c 2c 77 69 6d 70 |ateWindow",,wimp|
00000530 5f 62 6c 6f 63 6b 25 20 b8 20 69 6e 66 6f 25 0d |_block% . info%.|
00000540 01 90 47 20 c8 99 22 57 69 6d 70 5f 4c 6f 61 64 |..G .."Wimp_Load|
00000550 54 65 6d 70 6c 61 74 65 22 2c 2c 77 69 6d 70 5f |Template",,wimp_|
00000560 62 6c 6f 63 6b 25 2c 6e 69 6e 64 25 2c 77 73 2c |block%,nind%,ws,|
00000570 2d 31 2c 22 78 69 6e 66 6f 22 2c 30 20 b8 20 2c |-1,"xinfo",0 . ,|
00000580 2c 6e 69 6e 64 25 0d 01 9a 30 20 c8 99 22 57 69 |,nind%...0 .."Wi|
00000590 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 |mp_CreateWindow"|
000005a0 2c 2c 77 69 6d 70 5f 62 6c 6f 63 6b 25 20 b8 20 |,,wimp_block% . |
000005b0 78 69 6e 66 6f 25 0d 01 a4 49 20 c8 99 22 57 69 |xinfo%...I .."Wi|
000005c0 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 22 |mp_LoadTemplate"|
000005d0 2c 2c 77 69 6d 70 5f 62 6c 6f 63 6b 25 2c 6e 69 |,,wimp_block%,ni|
000005e0 6e 64 25 2c 77 73 2c 2d 31 2c 22 73 74 61 72 74 |nd%,ws,-1,"start|
000005f0 75 70 22 2c 30 20 b8 20 2c 2c 6e 69 6e 64 25 0d |up",0 . ,,nind%.|
00000600 01 ae 1a 20 77 69 6d 70 5f 62 6c 6f 63 6b 25 21 |... wimp_block%!|
00000610 36 34 3d 73 62 6c 6f 63 6b 0d 01 b8 32 20 c8 99 |64=sblock...2 ..|
00000620 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 |"Wimp_CreateWind|
00000630 6f 77 22 2c 2c 77 69 6d 70 5f 62 6c 6f 63 6b 25 |ow",,wimp_block%|
00000640 20 b8 20 73 74 61 72 74 75 70 25 0d 01 c2 3f 20 | . startup%...? |
00000650 21 77 69 6d 70 5f 62 6c 6f 63 6b 25 3d 73 74 61 |!wimp_block%=sta|
00000660 72 74 75 70 25 3a c8 99 22 57 69 6d 70 5f 47 65 |rtup%:.."Wimp_Ge|
00000670 74 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 77 |tWindowState",,w|
00000680 69 6d 70 5f 62 6c 6f 63 6b 25 0d 01 cc 25 20 c8 |imp_block%...% .|
00000690 99 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f |."Wimp_OpenWindo|
000006a0 77 22 2c 2c 77 69 6d 70 5f 62 6c 6f 63 6b 25 0d |w",,wimp_block%.|
000006b0 01 d6 1b 20 c8 99 22 57 69 6d 70 5f 43 6c 6f 73 |... .."Wimp_Clos|
000006c0 65 54 65 6d 70 6c 61 74 65 22 0d 01 e0 37 20 69 |eTemplate"...7 i|
000006d0 63 6f 6e 62 61 72 25 3d a4 69 63 6f 6e 62 61 72 |conbar%=.iconbar|
000006e0 28 22 21 69 64 65 6e 74 69 66 79 22 2c 69 62 6c |("!identify",ibl|
000006f0 6b 25 2c 22 49 64 65 6e 74 69 66 79 22 2c 2d 31 |k%,"Identify",-1|
00000700 29 0d 01 ea 0b 20 54 59 24 3d 22 22 0d 01 f4 1a |).... TY$=""....|
00000710 20 e3 20 63 6f 75 6e 74 20 3d 20 30 20 b8 20 6d | . count = 0 . m|
00000720 61 78 74 79 70 65 0d 01 fe 1e 20 54 59 24 3d 54 |axtype.... TY$=T|
00000730 59 24 2b 74 79 70 65 73 24 28 63 6f 75 6e 74 29 |Y$+types$(count)|
00000740 2b 22 2c 22 0d 02 08 24 20 e7 20 63 6f 75 6e 74 |+","...$ . count|
00000750 3d 6d 61 78 74 79 70 65 2d 31 20 8c 20 54 59 24 |=maxtype-1 . TY$|
00000760 3d 54 59 24 2b 22 5f 22 0d 02 12 0c 20 ed 20 63 |=TY$+"_".... . c|
00000770 6f 75 6e 74 0d 02 1c 21 20 54 59 24 3d 54 59 24 |ount...! TY$=TY$|
00000780 2b 22 a4 30 2c 61 64 64 72 2c 34 2c 61 64 64 72 |+".0,addr,4,addr|
00000790 2b 31 32 2c 22 0d 02 26 37 20 74 79 70 65 73 25 |+12,"..&7 types%|
000007a0 3d a4 63 6f 6e 73 74 72 75 63 74 5f 6d 65 6e 75 |=.construct_menu|
000007b0 28 74 79 70 65 73 25 2c 54 59 24 2c 22 46 69 6c |(types%,TY$,"Fil|
000007c0 65 54 79 70 65 73 22 2c 31 35 30 29 0d 02 30 58 |eTypes",150)..0X|
000007d0 20 6d 65 6e 75 25 3d a4 63 6f 6e 73 74 72 75 63 | menu%=.construc|
000007e0 74 5f 6d 65 6e 75 28 6d 65 6e 75 25 2c 22 3e 49 |t_menu(menu%,">I|
000007f0 6e 66 6f 2c 69 6e 66 6f 25 2c 48 65 6c 70 2c 3e |nfo,info%,Help,>|
00000800 54 79 70 65 73 2c 74 79 70 65 73 25 2c 51 75 69 |Types,types%,Qui|
00000810 74 2c 22 2c 22 49 64 65 6e 74 69 66 65 72 22 2c |t,","Identifer",|
00000820 32 30 30 29 0d 02 3a 2a 20 c8 99 22 57 69 6d 70 |200)..:* .."Wimp|
00000830 5f 50 6f 6c 6c 22 2c 30 2c 77 69 6d 70 5f 62 6c |_Poll",0,wimp_bl|
00000840 6f 63 6b 25 20 b8 20 61 63 74 69 6f 6e 25 0d 02 |ock% . action%..|
00000850 44 2e 20 c8 99 22 57 69 6d 70 5f 50 6f 6c 6c 50 |D. .."Wimp_PollP|
00000860 6f 69 6e 74 65 72 22 2c 61 63 74 69 6f 6e 25 2c |ointer",action%,|
00000870 2c 74 61 73 6b 68 61 6e 64 6c 65 25 0d 02 4e 11 |,taskhandle%..N.|
00000880 20 c8 8e 20 61 63 74 69 6f 6e 25 20 ca 0d 02 58 | .. action% ...X|
00000890 32 20 c9 20 31 3a f2 72 65 64 72 61 77 5f 77 69 |2 . 1:.redraw_wi|
000008a0 6e 64 6f 77 28 77 69 6d 70 5f 62 6c 6f 63 6b 25 |ndow(wimp_block%|
000008b0 21 30 2c 77 69 6d 70 5f 62 6c 6f 63 6b 25 29 0d |!0,wimp_block%).|
000008c0 02 62 29 20 c9 20 32 3a c8 99 22 57 69 6d 70 5f |.b) . 2:.."Wimp_|
000008d0 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 77 69 6d |OpenWindow",,wim|
000008e0 70 5f 62 6c 6f 63 6b 25 0d 02 6c 2a 20 c9 20 33 |p_block%..l* . 3|
000008f0 3a c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 |:.."Wimp_CloseWi|
00000900 6e 64 6f 77 22 2c 2c 77 69 6d 70 5f 62 6c 6f 63 |ndow",,wimp_bloc|
00000910 6b 25 0d 02 76 10 20 c9 20 34 3a f2 6e 6f 69 6e |k%..v. . 4:.noin|
00000920 66 6f 0d 02 80 0c 20 c9 20 36 3a f2 63 6c 0d 02 |fo.... . 6:.cl..|
00000930 8a 0e 20 c9 20 38 3a f2 6b 65 79 73 0d 02 94 10 |.. . 8:.keys....|
00000940 20 c9 20 39 3a f2 64 65 63 6f 64 65 0d 02 9e 0c | . 9:.decode....|
00000950 20 c9 20 31 37 2c 31 38 0d 02 a8 19 20 20 c8 8e | . 17,18.... ..|
00000960 20 77 69 6d 70 5f 62 6c 6f 63 6b 25 21 31 36 20 | wimp_block%!16 |
00000970 ca 0d 02 b2 0e 20 20 c9 20 30 3a f2 64 69 65 0d |..... . 0:.die.|
00000980 02 bc 12 20 20 c9 20 33 3a f2 64 6f 61 6c 6f 61 |... . 3:.doaloa|
00000990 64 0d 02 c6 1c 20 c9 20 26 35 30 32 3a f2 73 65 |d.... . &502:.se|
000009a0 6e 64 68 65 6c 70 6d 65 73 73 61 67 65 0d 02 d0 |ndhelpmessage...|
000009b0 07 20 20 cb 0d 02 da 06 20 cb 0d 02 e4 0b 20 e5 |. ..... ..... .|
000009c0 20 8d 54 7a 42 0d 02 ee 1d dd 20 f2 75 70 64 61 | .TzB..... .upda|
000009d0 74 65 5f 77 69 6e 64 6f 77 28 68 61 6e 64 6c 65 |te_window(handle|
000009e0 25 29 0d 02 f8 0a ea 6d 6f 72 65 25 0d 03 02 19 |%).....more%....|
000009f0 20 21 77 69 6d 70 5f 62 6c 6f 63 6b 25 3d 68 61 | !wimp_block%=ha|
00000a00 6e 64 6c 65 25 0d 03 0c 29 20 c8 99 22 57 69 6d |ndle%...) .."Wim|
00000a10 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 65 |p_GetWindowState|
00000a20 22 2c 2c 77 69 6d 70 5f 62 6c 6f 63 6b 25 0d 03 |",,wimp_block%..|
00000a30 16 2f c8 99 20 22 57 69 6d 70 5f 55 70 64 61 74 |./.. "Wimp_Updat|
00000a40 65 57 69 6e 64 6f 77 22 2c 2c 77 69 6d 70 5f 62 |eWindow",,wimp_b|
00000a50 6c 6f 63 6b 25 20 b8 20 6d 6f 72 65 25 0d 03 20 |lock% . more%.. |
00000a60 0c c8 95 20 6d 6f 72 65 25 0d 03 2a 31 20 20 c8 |... more%..*1 .|
00000a70 99 20 22 57 69 6d 70 5f 47 65 74 52 65 63 74 61 |. "Wimp_GetRecta|
00000a80 6e 67 6c 65 22 2c 2c 77 69 6d 70 5f 62 6c 6f 63 |ngle",,wimp_bloc|
00000a90 6b 25 20 b8 20 6d 6f 72 65 25 0d 03 34 05 ce 0d |k% . more%..4...|
00000aa0 03 3e 05 e1 0d 03 48 24 dd 20 f2 72 65 64 72 61 |.>....H$. .redra|
00000ab0 77 5f 77 69 6e 64 6f 77 28 68 61 6e 64 6c 65 25 |w_window(handle%|
00000ac0 2c 62 6c 6f 63 6b 25 29 0d 03 52 14 20 21 62 6c |,block%)..R. !bl|
00000ad0 6f 63 6b 25 3d 68 61 6e 64 6c 65 25 0d 03 5c 24 |ock%=handle%..\$|
00000ae0 20 c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 | .."Wimp_GetWind|
00000af0 6f 77 53 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 |owState",,block%|
00000b00 0d 03 66 0a ea 6d 6f 72 65 25 0d 03 70 2a c8 99 |..f..more%..p*..|
00000b10 20 22 57 69 6d 70 5f 52 65 64 72 61 77 57 69 6e | "Wimp_RedrawWin|
00000b20 64 6f 77 22 2c 2c 62 6c 6f 63 6b 25 20 b8 20 6d |dow",,block% . m|
00000b30 6f 72 65 25 0d 03 7a 0c c8 95 20 6d 6f 72 65 25 |ore%..z... more%|
00000b40 0d 03 84 24 20 20 c8 99 20 22 57 69 6d 70 5f 42 |...$ .. "Wimp_B|
00000b50 6f 72 64 65 72 57 69 6e 64 6f 77 22 2c 2c 62 6c |orderWindow",,bl|
00000b60 6f 63 6b 25 0d 03 8e 2c 20 20 c8 99 20 22 57 69 |ock%..., .. "Wi|
00000b70 6d 70 5f 47 65 74 52 65 63 74 61 6e 67 6c 65 22 |mp_GetRectangle"|
00000b80 2c 2c 62 6c 6f 63 6b 25 20 b8 20 6d 6f 72 65 25 |,,block% . more%|
00000b90 0d 03 98 05 ce 0d 03 a2 1c 20 f2 75 70 64 61 74 |......... .updat|
00000ba0 65 5f 77 69 6e 64 6f 77 28 68 61 6e 64 6c 65 25 |e_window(handle%|
00000bb0 29 0d 03 ac 05 e1 0d 03 b6 09 20 dd f2 63 6c 0d |)......... ..cl.|
00000bc0 03 c0 16 20 6d 78 25 3d 77 69 6d 70 5f 62 6c 6f |... mx%=wimp_blo|
00000bd0 63 6b 25 21 30 0d 03 ca 16 20 6d 79 25 3d 77 69 |ck%!0.... my%=wi|
00000be0 6d 70 5f 62 6c 6f 63 6b 25 21 34 0d 03 d4 16 20 |mp_block%!4.... |
00000bf0 62 75 25 3d 77 69 6d 70 5f 62 6c 6f 63 6b 25 21 |bu%=wimp_block%!|
00000c00 38 0d 03 de 17 20 77 69 25 3d 77 69 6d 70 5f 62 |8.... wi%=wimp_b|
00000c10 6c 6f 63 6b 25 21 31 32 0d 03 e8 17 20 69 63 25 |lock%!12.... ic%|
00000c20 3d 77 69 6d 70 5f 62 6c 6f 63 6b 25 21 31 36 0d |=wimp_block%!16.|
00000c30 03 f2 15 20 e7 20 62 75 25 3d 32 20 8c 20 e5 20 |... . bu%=2 . . |
00000c40 8d 54 5a 44 0d 03 fc 25 20 c8 99 22 57 69 6d 70 |.TZD...% .."Wimp|
00000c50 5f 42 6f 72 64 65 72 49 63 6f 6e 22 2c 2c 77 69 |_BorderIcon",,wi|
00000c60 6d 70 5f 62 6c 6f 63 6b 25 0d 04 06 14 20 77 69 |mp_block%.... wi|
00000c70 6d 70 5f 62 6c 6f 63 6b 25 21 38 3d 30 0d 04 10 |mp_block%!8=0...|
00000c80 25 20 c8 99 22 57 69 6d 70 5f 42 6f 72 64 65 72 |% .."Wimp_Border|
00000c90 49 63 6f 6e 22 2c 2c 77 69 6d 70 5f 62 6c 6f 63 |Icon",,wimp_bloc|
00000ca0 6b 25 0d 04 1a 0d 20 c8 8e 20 77 69 25 20 ca 0d |k%.... .. wi% ..|
00000cb0 04 24 0f 20 c9 20 73 74 61 72 74 75 70 25 0d 04 |.$. . startup%..|
00000cc0 2e 0e 20 20 c8 8e 20 62 75 25 20 ca 0d 04 38 22 |.. .. bu% ...8"|
00000cd0 20 20 c9 20 34 3a f2 73 74 61 72 74 64 72 61 67 | . 4:.startdrag|
00000ce0 67 69 6e 67 28 73 74 61 72 74 75 70 25 29 0d 04 |ging(startup%)..|
00000cf0 42 07 20 20 cb 0d 04 4c 09 20 c9 20 2d 32 0d 04 |B. ...L. . -2..|
00000d00 56 32 20 21 67 73 70 61 63 65 3d 73 74 61 72 74 |V2 !gspace=start|
00000d10 75 70 25 3a c8 99 22 57 69 6d 70 5f 43 6c 6f 73 |up%:.."Wimp_Clos|
00000d20 65 57 69 6e 64 6f 77 22 2c 2c 67 73 70 61 63 65 |eWindow",,gspace|
00000d30 0d 04 60 0e 20 20 c8 8e 20 62 75 25 20 ca 0d 04 |..`. .. bu% ...|
00000d40 6a 09 20 20 c9 20 34 0d 04 74 3e 20 20 20 21 77 |j. . 4..t> !w|
00000d50 69 6d 70 5f 62 6c 6f 63 6b 25 3d 6d 61 69 6e 25 |imp_block%=main%|
00000d60 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 |:.."Wimp_GetWind|
00000d70 6f 77 53 74 61 74 65 22 2c 2c 77 69 6d 70 5f 62 |owState",,wimp_b|
00000d80 6c 6f 63 6b 25 0d 04 7e 27 20 20 20 c8 99 22 57 |lock%..~' .."W|
00000d90 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c |imp_OpenWindow",|
00000da0 2c 77 69 6d 70 5f 62 6c 6f 63 6b 25 0d 04 88 09 |,wimp_block%....|
00000db0 20 20 c9 20 32 0d 04 92 36 20 20 20 f2 6d 65 6e | . 2...6 .men|
00000dc0 75 5f 61 74 28 6d 65 6e 75 25 2c 30 2c 6d 78 25 |u_at(menu%,0,mx%|
00000dd0 2d 31 30 30 2c 32 37 35 29 3a 63 75 72 72 65 6e |-100,275):curren|
00000de0 74 6d 65 6e 75 3d 6d 65 6e 75 25 0d 04 9c 07 20 |tmenu=menu%.... |
00000df0 20 cb 0d 04 a6 0c 20 c9 20 6d 61 69 6e 25 0d 04 | ..... . main%..|
00000e00 b0 0e 20 20 c8 8e 20 62 75 25 20 ca 0d 04 ba 09 |.. .. bu% .....|
00000e10 20 20 c9 20 32 0d 04 c4 0f 20 20 20 c8 8e 20 69 | . 2.... .. i|
00000e20 63 25 20 ca 0d 04 ce 39 20 20 20 c9 20 31 30 3a |c% ....9 . 10:|
00000e30 f2 6d 65 6e 75 5f 61 74 28 74 79 70 65 73 25 2c |.menu_at(types%,|
00000e40 30 2c 6d 78 25 2c 6d 79 25 29 3a 63 75 72 72 65 |0,mx%,my%):curre|
00000e50 6e 74 6d 65 6e 75 3d 74 79 70 65 73 25 0d 04 d8 |ntmenu=types%...|
00000e60 34 20 20 20 7f 20 f2 6d 65 6e 75 5f 61 74 28 6d |4 . .menu_at(m|
00000e70 65 6e 75 25 2c 30 2c 6d 78 25 2c 6d 79 25 29 3a |enu%,0,mx%,my%):|
00000e80 63 75 72 72 65 6e 74 6d 65 6e 75 3d 6d 65 6e 75 |currentmenu=menu|
00000e90 25 0d 04 e2 08 20 20 20 cb 0d 04 ec 09 20 20 c9 |%.... ..... .|
00000ea0 20 34 0d 04 f6 0f 20 20 20 c8 8e 20 69 63 25 20 | 4.... .. ic% |
00000eb0 ca 0d 05 00 0b 20 20 20 c9 20 30 3a 0d 05 0a 16 |..... . 0:....|
00000ec0 20 20 20 c9 20 38 3a f2 73 65 74 74 68 65 74 79 | . 8:.setthety|
00000ed0 70 65 0d 05 14 39 20 20 20 c9 20 31 30 3a f2 6d |pe...9 . 10:.m|
00000ee0 65 6e 75 5f 61 74 28 74 79 70 65 73 25 2c 30 2c |enu_at(types%,0,|
00000ef0 6d 78 25 2c 6d 79 25 29 3a 63 75 72 72 65 6e 74 |mx%,my%):current|
00000f00 6d 65 6e 75 3d 74 79 70 65 73 25 0d 05 1e 36 20 |menu=types%...6 |
00000f10 20 20 c9 20 31 35 3a 21 67 73 70 61 63 65 3d 6d | . 15:!gspace=m|
00000f20 61 69 6e 25 3a c8 99 22 57 69 6d 70 5f 43 6c 6f |ain%:.."Wimp_Clo|
00000f30 73 65 57 69 6e 64 6f 77 22 2c 2c 67 73 70 61 63 |seWindow",,gspac|
00000f40 65 0d 05 28 21 20 20 20 c9 20 31 38 3a f2 73 74 |e..(! . 18:.st|
00000f50 61 72 74 64 72 61 67 67 69 6e 67 28 6d 61 69 6e |artdragging(main|
00000f60 25 29 0d 05 32 62 20 20 20 c9 20 31 36 3a 21 67 |%)..2b . 16:!g|
00000f70 73 70 61 63 65 3d 6d 61 69 6e 25 3a c8 99 22 57 |space=main%:.."W|
00000f80 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 |imp_GetWindowSta|
00000f90 74 65 22 2c 2c 67 73 70 61 63 65 3a 67 73 70 61 |te",,gspace:gspa|
00000fa0 63 65 21 32 38 3d 2d 32 3a c8 99 22 57 69 6d 70 |ce!28=-2:.."Wimp|
00000fb0 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 67 73 |_OpenWindow",,gs|
00000fc0 70 61 63 65 0d 05 3c 11 20 20 20 c9 20 31 39 3a |pace..<. . 19:|
00000fd0 f2 78 74 72 61 0d 05 46 08 20 20 20 cb 0d 05 50 |.xtra..F. ...P|
00000fe0 07 20 20 cb 0d 05 5a 0c 20 c9 20 69 6e 66 6f 25 |. ...Z. . info%|
00000ff0 0d 05 64 14 20 e7 20 69 63 25 3d 31 20 8c 20 f2 |..d. . ic%=1 . .|
00001000 78 74 72 61 0d 05 6e 43 20 c9 20 78 69 6e 66 6f |xtra..nC . xinfo|
00001010 25 3a 21 77 69 6d 70 5f 62 6c 6f 63 6b 25 3d 78 |%:!wimp_block%=x|
00001020 69 6e 66 6f 25 3a c8 99 22 57 69 6d 70 5f 43 6c |info%:.."Wimp_Cl|
00001030 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 77 69 6d 70 |oseWindow",,wimp|
00001040 5f 62 6c 6f 63 6b 25 0d 05 78 06 20 cb 0d 05 82 |_block%..x. ....|
00001050 06 20 e1 0d 05 8c 0c 20 dd f2 65 72 72 6f 72 0d |. ..... ..error.|
00001060 05 96 0f 20 e7 20 9f 3d 31 37 20 8c 20 e1 0d 05 |... . .=17 . ...|
00001070 a0 0b 20 c8 8e 20 9f 20 ca 0d 05 aa 06 20 7f 0d |.. .. . ..... ..|
00001080 05 b4 22 20 ff 22 45 52 52 4f 52 20 22 2b f6 24 |.." ."ERROR "+.$|
00001090 2b 22 20 61 74 20 6c 69 6e 65 20 22 2b c3 28 9e |+" at line "+.(.|
000010a0 29 0d 05 be 06 20 cb 0d 05 c8 06 20 e1 0d 05 d2 |).... ..... ....|
000010b0 0b 20 dd f2 6b 65 79 73 0d 05 dc 42 20 e7 20 77 |. ..keys...B . w|
000010c0 69 6d 70 5f 62 6c 6f 63 6b 25 21 30 3c 3e 6d 61 |imp_block%!0<>ma|
000010d0 69 6e 25 20 8c 20 c8 99 22 57 69 6d 70 5f 50 72 |in% . .."Wimp_Pr|
000010e0 6f 63 65 73 73 4b 65 79 22 2c 77 69 6d 70 5f 62 |ocessKey",wimp_b|
000010f0 6c 6f 63 6b 25 21 32 34 3a e1 0d 05 e6 36 20 e7 |lock%!24:....6 .|
00001100 20 77 69 6d 70 5f 62 6c 6f 63 6b 25 21 32 34 3d | wimp_block%!24=|
00001110 26 44 20 8c 20 c8 99 22 57 69 6d 70 5f 53 65 74 |&D . .."Wimp_Set|
00001120 43 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c 30 |CaretPosition",0|
00001130 0d 05 f0 06 20 e1 0d 05 fa 10 20 dd f2 67 65 74 |.... ..... ..get|
00001140 69 74 28 68 25 29 0d 06 04 17 20 21 77 69 6d 70 |it(h%).... !wimp|
00001150 5f 62 6c 6f 63 6b 25 3d 6d 61 69 6e 25 0d 06 0e |_block%=main%...|
00001160 15 20 77 69 6d 70 5f 62 6c 6f 63 6b 25 21 34 3d |. wimp_block%!4=|
00001170 68 25 0d 06 18 27 20 c8 99 22 57 69 6d 70 5f 47 |h%...' .."Wimp_G|
00001180 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 77 69 |etIconState",,wi|
00001190 6d 70 5f 62 6c 6f 63 6b 25 0d 06 22 06 20 e1 0d |mp_block%..". ..|
000011a0 06 2c 11 20 dd f2 75 70 64 61 74 65 69 63 6f 6e |.,. ..updateicon|
000011b0 0d 06 36 26 20 f2 72 65 64 72 61 77 5f 77 69 6e |..6& .redraw_win|
000011c0 64 6f 77 28 6d 61 69 6e 25 2c 77 69 6d 70 5f 62 |dow(main%,wimp_b|
000011d0 6c 6f 63 6b 25 29 0d 06 40 06 20 e1 0d 06 4a 15 |lock%)..@. ...J.|
000011e0 20 dd f2 75 70 64 61 74 65 69 74 28 69 63 6f 6e | ..updateit(icon|
000011f0 29 0d 06 54 17 20 21 77 69 6d 70 5f 62 6c 6f 63 |)..T. !wimp_bloc|
00001200 6b 25 3d 6d 61 69 6e 25 0d 06 5e 17 20 77 69 6d |k%=main%..^. wim|
00001210 70 5f 62 6c 6f 63 6b 25 21 34 3d 69 63 6f 6e 0d |p_block%!4=icon.|
00001220 06 68 25 20 77 69 6d 70 5f 62 6c 6f 63 6b 25 21 |.h% wimp_block%!|
00001230 38 3d 30 3a 77 69 6d 70 5f 62 6c 6f 63 6b 25 21 |8=0:wimp_block%!|
00001240 31 32 3d 30 0d 06 72 27 20 c8 99 22 57 69 6d 70 |12=0..r' .."Wimp|
00001250 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c |_SetIconState",,|
00001260 77 69 6d 70 5f 62 6c 6f 63 6b 25 0d 06 7c 06 20 |wimp_block%..|. |
00001270 e1 0d 06 86 0b 20 dd f2 78 74 72 61 0d 06 90 1c |..... ..xtra....|
00001280 20 c8 99 22 57 69 6d 70 5f 43 72 65 61 74 65 4d | .."Wimp_CreateM|
00001290 65 6e 75 22 2c 2c 2d 31 0d 06 9a 18 20 21 77 69 |enu",,-1.... !wi|
000012a0 6d 70 5f 62 6c 6f 63 6b 25 3d 78 69 6e 66 6f 25 |mp_block%=xinfo%|
000012b0 0d 06 a4 29 20 c8 99 22 57 69 6d 70 5f 47 65 74 |...) .."Wimp_Get|
000012c0 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 77 69 |WindowState",,wi|
000012d0 6d 70 5f 62 6c 6f 63 6b 25 0d 06 ae 39 20 21 77 |mp_block%...9 !w|
000012e0 69 6d 70 5f 62 6c 6f 63 6b 25 3d 78 69 6e 66 6f |imp_block%=xinfo|
000012f0 25 3a c8 99 22 57 69 6d 70 5f 4f 70 65 6e 57 69 |%:.."Wimp_OpenWi|
00001300 6e 64 6f 77 22 2c 2c 77 69 6d 70 5f 62 6c 6f 63 |ndow",,wimp_bloc|
00001310 6b 25 0d 06 b8 06 20 e1 0d 06 c2 0d 20 dd f2 6e |k%.... ..... ..n|
00001320 6f 69 6e 66 6f 0d 06 cc 20 20 e7 20 77 69 6d 70 |oinfo... . wimp|
00001330 5f 62 6c 6f 63 6b 25 21 30 3c 3e 78 69 6e 66 6f |_block%!0<>xinfo|
00001340 25 20 8c 20 e1 0d 06 d6 18 20 21 77 69 6d 70 5f |% . ..... !wimp_|
00001350 62 6c 6f 63 6b 25 3d 78 69 6e 66 6f 25 0d 06 e0 |block%=xinfo%...|
00001360 26 20 c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 57 |& .."Wimp_CloseW|
00001370 69 6e 64 6f 77 22 2c 2c 77 69 6d 70 5f 62 6c 6f |indow",,wimp_blo|
00001380 63 6b 25 0d 06 ea 06 20 e1 0d 06 f4 0e 20 dd f2 |ck%.... ..... ..|
00001390 64 6f 61 6c 6f 61 64 0d 06 fe 0f 20 73 74 61 72 |doaload.... star|
000013a0 74 79 65 74 3d b9 0d 07 08 32 20 77 69 6d 70 5f |tyet=....2 wimp_|
000013b0 62 6c 6f 63 6b 25 21 31 36 3d 34 3a 77 69 6d 70 |block%!16=4:wimp|
000013c0 5f 62 6c 6f 63 6b 25 21 31 32 3d 77 69 6d 70 5f |_block%!12=wimp_|
000013d0 62 6c 6f 63 6b 25 21 38 0d 07 12 19 20 68 6e 64 |block%!8.... hnd|
000013e0 6c 65 25 3d 77 69 6d 70 5f 62 6c 6f 63 6b 25 21 |le%=wimp_block%!|
000013f0 34 0d 07 1c 2f 20 c8 99 22 57 69 6d 70 5f 53 65 |4.../ .."Wimp_Se|
00001400 6e 64 4d 65 73 73 61 67 65 22 2c 31 38 2c 77 69 |ndMessage",18,wi|
00001410 6d 70 5f 62 6c 6f 63 6b 25 2c 68 6e 64 6c 65 25 |mp_block%,hndle%|
00001420 0d 07 26 21 20 66 24 3d a4 6c 69 66 74 74 65 78 |..&! f$=.lifttex|
00001430 74 28 77 69 6d 70 5f 62 6c 6f 63 6b 25 2b 34 34 |t(wimp_block%+44|
00001440 29 0d 07 30 3d 20 e7 20 77 69 6d 70 5f 62 6c 6f |)..0= . wimp_blo|
00001450 63 6b 25 21 32 34 3d 34 20 8c 20 f2 73 65 74 74 |ck%!24=4 . .sett|
00001460 68 65 74 79 70 65 3a f2 6e 65 77 74 65 78 74 28 |hetype:.newtext(|
00001470 6d 61 69 6e 25 2c 31 33 2c 66 24 29 3a e1 0d 07 |main%,13,f$):...|
00001480 3a 1c 20 66 69 6c 65 74 79 70 65 3d 77 69 6d 70 |:. filetype=wimp|
00001490 5f 62 6c 6f 63 6b 25 21 34 30 0d 07 44 20 20 e7 |_block%!40..D .|
000014a0 20 66 69 6c 65 74 79 70 65 3d 26 46 46 44 20 8c | filetype=&FFD .|
000014b0 20 f2 69 64 65 6e 74 69 66 79 0d 07 4e 1a 20 f2 | .identify..N. .|
000014c0 6e 65 77 74 65 78 74 28 6d 61 69 6e 25 2c 31 33 |newtext(main%,13|
000014d0 2c 66 24 29 0d 07 58 23 20 74 65 24 3d 22 66 69 |,f$)..X# te$="fi|
000014e0 6c 65 5f 22 2b c3 7e 28 77 69 6d 70 5f 62 6c 6f |le_"+.~(wimp_blo|
000014f0 63 6b 25 21 34 30 29 0d 07 62 27 20 e7 20 66 69 |ck%!40)..b' . fi|
00001500 6c 65 74 79 70 65 3d 26 31 30 30 30 20 8c 20 74 |letype=&1000 . t|
00001510 65 24 3d 22 64 69 72 65 63 74 6f 72 79 22 0d 07 |e$="directory"..|
00001520 6c 29 20 e7 20 66 69 6c 65 74 79 70 65 3d 26 32 |l) . filetype=&2|
00001530 30 30 30 20 8c 20 74 65 24 3d 22 61 70 70 6c 69 |000 . te$="appli|
00001540 63 61 74 69 6f 6e 22 0d 07 76 42 20 f2 6e 65 77 |cation"..vB .new|
00001550 74 65 78 74 28 6d 61 69 6e 25 2c 33 2c 22 26 22 |text(main%,3,"&"|
00001560 2b c3 7e 28 66 69 6c 65 74 79 70 65 29 2b 22 20 |+.~(filetype)+" |
00001570 2d 20 22 2b a4 6e 75 6d 74 6f 74 65 78 74 28 66 |- "+.numtotext(f|
00001580 69 6c 65 74 79 70 65 29 29 0d 07 80 b1 20 e7 20 |iletype)).... . |
00001590 66 69 6c 65 74 79 70 65 3c 26 31 30 30 30 20 8c |filetype<&1000 .|
000015a0 20 f2 6e 65 77 73 70 72 69 74 65 28 6d 61 69 6e | .newsprite(main|
000015b0 25 2c 34 2c 22 73 66 69 6c 65 5f 22 2b c3 7e 28 |%,4,"sfile_"+.~(|
000015c0 66 69 6c 65 74 79 70 65 29 29 3a 20 8b 20 e7 20 |filetype)): . . |
000015d0 66 69 6c 65 74 79 70 65 3d 26 31 30 30 30 20 8c |filetype=&1000 .|
000015e0 20 f2 6e 65 77 73 70 72 69 74 65 28 6d 61 69 6e | .newsprite(main|
000015f0 25 2c 34 2c 22 73 64 69 72 65 63 74 6f 72 79 22 |%,4,"sdirectory"|
00001600 29 3a 20 8b 20 e7 20 66 69 6c 65 74 79 70 65 3d |): . . filetype=|
00001610 26 32 30 30 30 20 8c 20 f2 6e 65 77 73 70 72 69 |&2000 . .newspri|
00001620 74 65 28 6d 61 69 6e 25 2c 34 2c 22 73 61 70 70 |te(main%,4,"sapp|
00001630 6c 69 63 61 74 69 6f 6e 22 29 0d 07 8a 06 20 e1 |lication").... .|
00001640 0d 07 94 18 20 dd a4 6c 69 66 74 74 65 78 74 28 |.... ..lifttext(|
00001650 61 64 64 72 65 73 73 29 0d 07 9e 0b 20 54 45 24 |address).... TE$|
00001660 3d 22 22 0d 07 a8 42 20 e7 20 3f 61 64 64 72 65 |=""...B . ?addre|
00001670 73 73 3e 20 26 44 20 8c 20 54 45 24 3d 54 45 24 |ss> &D . TE$=TE$|
00001680 2b bd 28 3f 61 64 64 72 65 73 73 29 3a 61 64 64 |+.(?address):add|
00001690 72 65 73 73 3d 61 64 64 72 65 73 73 2b 31 3a e5 |ress=address+1:.|
000016a0 20 8d 74 68 47 0d 07 b2 09 20 3d 54 45 24 0d 07 | .thG.... =TE$..|
000016b0 bc 18 20 dd f2 6e 65 77 74 65 78 74 28 77 25 2c |.. ..newtext(w%,|
000016c0 69 25 2c 74 24 29 0d 07 c6 49 20 77 69 6d 70 5f |i%,t$)...I wimp_|
000016d0 62 6c 6f 63 6b 25 21 30 3d 77 25 3a 77 69 6d 70 |block%!0=w%:wimp|
000016e0 5f 62 6c 6f 63 6b 25 21 34 3d 69 25 3a c8 99 22 |_block%!4=i%:.."|
000016f0 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 |Wimp_GetIconStat|
00001700 65 22 2c 2c 77 69 6d 70 5f 62 6c 6f 63 6b 25 0d |e",,wimp_block%.|
00001710 07 d0 19 20 24 28 77 69 6d 70 5f 62 6c 6f 63 6b |... $(wimp_block|
00001720 25 21 32 38 29 3d 74 24 0d 07 da 12 20 f2 75 70 |%!28)=t$.... .up|
00001730 64 61 74 65 69 74 28 69 25 29 0d 07 e4 06 20 e1 |dateit(i%).... .|
00001740 0d 07 ee 1a 20 dd f2 6e 65 77 73 70 72 69 74 65 |.... ..newsprite|
00001750 28 77 25 2c 69 25 2c 74 24 29 0d 07 f8 48 20 21 |(w%,i%,t$)...H !|
00001760 77 69 6d 70 5f 62 6c 6f 63 6b 25 3d 77 25 3a 77 |wimp_block%=w%:w|
00001770 69 6d 70 5f 62 6c 6f 63 6b 25 21 34 3d 69 25 3a |imp_block%!4=i%:|
00001780 c8 99 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 |.."Wimp_GetIconS|
00001790 74 61 74 65 22 2c 2c 77 69 6d 70 5f 62 6c 6f 63 |tate",,wimp_bloc|
000017a0 6b 25 0d 08 02 71 20 24 28 77 69 6d 70 5f 62 6c |k%...q $(wimp_bl|
000017b0 6f 63 6b 25 21 33 32 29 3d 22 73 62 6c 61 6e 6b |ock%!32)="sblank|
000017c0 22 3a f2 75 70 64 61 74 65 69 74 28 69 25 29 3a |":.updateit(i%):|
000017d0 21 77 69 6d 70 5f 62 6c 6f 63 6b 25 3d 77 25 3a |!wimp_block%=w%:|
000017e0 77 69 6d 70 5f 62 6c 6f 63 6b 25 21 34 3d 69 25 |wimp_block%!4=i%|
000017f0 3a c8 99 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e |:.."Wimp_GetIcon|
00001800 53 74 61 74 65 22 2c 2c 77 69 6d 70 5f 62 6c 6f |State",,wimp_blo|
00001810 63 6b 25 0d 08 0c 19 20 24 28 77 69 6d 70 5f 62 |ck%.... $(wimp_b|
00001820 6c 6f 63 6b 25 21 33 32 29 3d 74 24 0d 08 16 12 |lock%!32)=t$....|
00001830 20 f2 75 70 64 61 74 65 69 74 28 69 25 29 0d 08 | .updateit(i%)..|
00001840 20 06 20 e1 0d 08 2a 15 20 dd a4 6e 75 6d 74 6f | . ...*. ..numto|
00001850 74 65 78 74 28 6e 75 6d 29 0d 08 34 1c 20 e3 20 |text(num)..4. . |
00001860 61 3d 67 73 70 61 63 65 20 b8 20 67 73 70 61 63 |a=gspace . gspac|
00001870 65 2b 32 30 30 0d 08 3e 10 20 3f 61 3d 26 44 20 |e+200..>. ?a=&D |
00001880 3a 20 ed 20 61 0d 08 48 21 20 24 67 73 70 61 63 |: . a..H! $gspac|
00001890 65 3d 22 46 69 6c 65 24 54 79 70 65 5f 22 2b c3 |e="File$Type_"+.|
000018a0 7e 28 6e 75 6d 29 0d 08 52 34 20 c8 99 22 58 4f |~(num)..R4 .."XO|
000018b0 53 5f 52 65 61 64 56 61 72 56 61 6c 22 2c 67 73 |S_ReadVarVal",gs|
000018c0 70 61 63 65 2c 67 73 70 61 63 65 2b 31 30 30 2c |pace,gspace+100,|
000018d0 67 73 70 61 63 65 2b 32 30 30 0d 08 5c 15 20 54 |gspace+200..\. T|
000018e0 24 3d 24 28 67 73 70 61 63 65 2b 31 30 30 29 0d |$=$(gspace+100).|
000018f0 08 66 1a 20 e7 20 a9 20 54 24 3c 32 20 8c 20 3d |.f. . . T$<2 . =|
00001900 22 55 6e 6b 6e 6f 77 6e 22 0d 08 70 08 20 3d 54 |"Unknown"..p. =T|
00001910 24 0d 08 7a 0f 20 dd f2 69 64 65 6e 74 69 66 79 |$..z. ..identify|
00001920 0d 08 84 0b 20 58 3d ad 20 66 24 0d 08 8e 13 20 |.... X=. f$.... |
00001930 e3 20 41 3d 30 20 b8 20 31 36 20 88 20 31 0d 08 |. A=0 . 16 . 1..|
00001940 98 11 20 67 73 70 61 63 65 3f 41 3d 9a 23 58 0d |.. gspace?A=.#X.|
00001950 08 a2 06 20 ed 0d 08 ac 08 20 d9 23 58 0d 08 b6 |... ..... .#X...|
00001960 21 20 e7 20 21 67 73 70 61 63 65 3d 2d 31 20 8c |! . !gspace=-1 .|
00001970 20 66 69 6c 65 74 79 70 65 3d 26 46 45 43 0d 08 | filetype=&FEC..|
00001980 c0 28 20 e7 20 21 67 73 70 61 63 65 3d 26 37 33 |.( . !gspace=&73|
00001990 36 35 36 31 34 44 20 8c 20 66 69 6c 65 74 79 70 |65614D . filetyp|
000019a0 65 3d 26 41 46 31 0d 08 ca 3c 20 e7 20 21 67 73 |e=&AF1...< . !gs|
000019b0 70 61 63 65 3d 26 35 37 34 31 35 32 34 34 20 84 |pace=&57415244 .|
000019c0 20 21 67 73 70 61 63 65 3d 26 37 37 36 31 37 32 | !gspace=&776172|
000019d0 34 34 20 8c 20 66 69 6c 65 74 79 70 65 3d 26 41 |44 . filetype=&A|
000019e0 46 46 0d 08 d4 32 20 e7 20 67 73 70 61 63 65 21 |FF...2 . gspace!|
000019f0 34 30 3d 31 36 20 80 20 67 73 70 61 63 65 21 34 |40=16 . gspace!4|
00001a00 34 3d 31 36 20 8c 20 66 69 6c 65 74 79 70 65 3d |4=16 . filetype=|
00001a10 26 46 46 36 0d 08 de 28 20 e7 20 21 67 73 70 61 |&FF6...( . !gspa|
00001a20 63 65 3d 26 35 38 35 33 35 35 34 44 20 8c 20 66 |ce=&5853554D . f|
00001a30 69 6c 65 74 79 70 65 3d 26 43 42 36 0d 08 e8 21 |iletype=&CB6...!|
00001a40 20 e7 20 3f 67 73 70 61 63 65 3d 31 33 20 8c 20 | . ?gspace=13 . |
00001a50 66 69 6c 65 74 79 70 65 3d 26 46 46 42 0d 08 f2 |filetype=&FFB...|
00001a60 2f 20 e7 20 67 73 70 61 63 65 3f 31 3d 30 20 80 |/ . gspace?1=0 .|
00001a70 20 3f 67 73 70 61 63 65 3c 3e 31 33 20 8c 20 66 | ?gspace<>13 . f|
00001a80 69 6c 65 74 79 70 65 3d 26 46 46 39 0d 08 fc 25 |iletype=&FF9...%|
00001a90 20 e7 20 3f 67 73 70 61 63 65 3d 97 28 22 7c 22 | . ?gspace=.("|"|
00001aa0 29 20 8c 20 66 69 6c 65 74 79 70 65 3d 26 46 45 |) . filetype=&FE|
00001ab0 42 0d 09 06 23 20 e7 20 a4 77 68 69 63 68 72 61 |B...# . .whichra|
00001ac0 64 69 6f 3d 31 31 20 8c 20 f2 73 65 74 74 68 65 |dio=11 . .setthe|
00001ad0 74 79 70 65 0d 09 10 06 20 e1 0d 09 1a 11 20 dd |type.... ..... .|
00001ae0 f2 73 65 74 74 68 65 74 79 70 65 0d 09 24 57 20 |.setthetype..$W |
00001af0 e7 20 73 74 61 72 74 79 65 74 3d a3 20 8c 20 f2 |. startyet=. . .|
00001b00 72 65 70 6f 72 74 65 72 72 6f 72 28 30 2c 22 59 |reporterror(0,"Y|
00001b10 6f 75 20 68 61 76 65 6e 27 74 20 64 72 61 67 67 |ou haven't dragg|
00001b20 65 64 20 61 20 66 69 6c 65 20 74 6f 20 74 68 65 |ed a file to the|
00001b30 20 77 69 6e 64 6f 77 20 79 65 74 21 22 2c 30 29 | window yet!",0)|
00001b40 3a e1 0d 09 2e 50 20 e7 20 66 69 6c 65 74 79 70 |:....P . filetyp|
00001b50 65 3e 26 46 46 46 20 8c 20 f2 72 65 70 6f 72 74 |e>&FFF . .report|
00001b60 65 72 72 6f 72 28 30 2c 22 59 6f 75 20 63 61 6e |error(0,"You can|
00001b70 20 6f 6e 6c 79 20 73 65 74 20 74 68 65 20 74 79 | only set the ty|
00001b80 70 65 20 6f 66 20 66 69 6c 65 73 21 22 2c 30 29 |pe of files!",0)|
00001b90 3a e1 0d 09 38 2e 20 ff 22 57 69 6d 70 54 61 73 |:...8. ."WimpTas|
00001ba0 6b 20 53 65 74 74 79 70 65 20 22 2b 66 24 2b 22 |k Settype "+f$+"|
00001bb0 20 26 22 2b c3 7e 28 66 69 6c 65 74 79 70 65 29 | &"+.~(filetype)|
00001bc0 0d 09 42 06 20 e1 0d 09 4c 0b 20 dd f2 68 65 6c |..B. ...L. ..hel|
00001bd0 70 0d 09 56 2e 20 ff 22 57 69 6d 70 54 61 73 6b |p..V. ."WimpTask|
00001be0 20 44 69 73 70 6c 61 79 54 65 78 74 20 3c 49 64 | DisplayText <Id|
00001bf0 65 6e 74 24 44 69 72 3e 2e 21 48 65 6c 70 22 0d |ent$Dir>.!Help".|
00001c00 09 60 06 20 e1 0d 09 6a 0a 20 dd f2 64 69 65 0d |.`. ...j. ..die.|
00001c10 09 74 36 20 c8 99 22 57 69 6d 70 5f 52 65 6c 65 |.t6 .."Wimp_Rele|
00001c20 61 73 65 49 6e 74 65 72 66 61 63 65 22 2c 74 61 |aseInterface",ta|
00001c30 73 6b 68 61 6e 64 6c 65 25 2c 74 61 73 6b 68 61 |skhandle%,taskha|
00001c40 6e 64 6c 65 25 0d 09 7e 17 20 c8 99 22 57 69 6d |ndle%..~. .."Wim|
00001c50 70 5f 43 6c 6f 73 65 44 6f 77 6e 22 0d 09 88 06 |p_CloseDown"....|
00001c60 20 e0 0d 09 92 06 20 e1 0d 09 9c 12 20 dd f2 72 | ..... ..... ..r|
00001c70 65 61 64 69 6e 74 79 70 65 73 0d 09 a6 33 20 ff |eadintypes...3 .|
00001c80 22 4c 6f 61 64 20 3c 49 64 65 6e 74 24 44 69 72 |"Load <Ident$Dir|
00001c90 3e 2e 54 79 70 65 46 69 6c 65 20 26 22 2b c3 7e |>.TypeFile &"+.~|
00001ca0 28 77 69 6d 70 5f 62 6c 6f 63 6b 25 29 0d 09 b0 |(wimp_block%)...|
00001cb0 17 20 46 49 4c 45 24 3d 24 77 69 6d 70 5f 62 6c |. FILE$=$wimp_bl|
00001cc0 6f 63 6b 25 0d 09 ba 53 20 e7 20 c0 46 49 4c 45 |ock%...S . .FILE|
00001cd0 24 2c 38 29 3c 3e 22 54 59 50 45 46 49 4c 45 22 |$,8)<>"TYPEFILE"|
00001ce0 20 8c 20 ff 22 45 52 52 4f 52 20 46 61 74 61 6c | . ."ERROR Fatal|
00001cf0 20 45 72 72 6f 72 3a 20 52 65 73 6f 75 72 63 65 | Error: Resource|
00001d00 73 20 63 6f 72 72 75 70 74 2e 20 49 20 6d 75 73 |s corrupt. I mus|
00001d10 74 20 64 69 65 21 22 0d 09 c4 1f 20 46 49 4c 45 |t die!".... FILE|
00001d20 24 3d c2 46 49 4c 45 24 2c 28 a9 28 46 49 4c 45 |$=.FILE$,(.(FILE|
00001d30 24 29 2d 39 29 29 0d 09 ce 0f 20 66 69 6e 69 73 |$)-9)).... finis|
00001d40 68 65 64 3d a3 0d 09 d8 0c 20 63 6f 75 6e 74 3d |hed=..... count=|
00001d50 30 0d 09 e2 06 20 f5 0d 09 ec 14 20 70 6f 73 3d |0.... ..... pos=|
00001d60 a7 46 49 4c 45 24 2c 22 2c 22 29 0d 09 f6 22 20 |.FILE$,",")..." |
00001d70 74 79 70 65 73 24 28 63 6f 75 6e 74 29 3d c0 46 |types$(count)=.F|
00001d80 49 4c 45 24 2c 28 70 6f 73 2d 31 29 29 0d 0a 00 |ILE$,(pos-1))...|
00001d90 32 20 46 49 4c 45 24 3d c2 20 46 49 4c 45 24 2c |2 FILE$=. FILE$,|
00001da0 28 a9 28 46 49 4c 45 24 29 2d a9 28 74 79 70 65 |(.(FILE$)-.(type|
00001db0 73 24 28 63 6f 75 6e 74 29 29 29 2d 31 20 29 0d |s$(count)))-1 ).|
00001dc0 0a 0a 2a 20 74 24 3d c0 46 49 4c 45 24 2c 33 29 |..* t$=.FILE$,3)|
00001dd0 3a 74 79 70 65 6e 75 6d 28 63 6f 75 6e 74 29 3d |:typenum(count)=|
00001de0 a0 28 22 26 22 2b 74 24 29 0d 0a 14 1f 20 46 49 |.("&"+t$).... FI|
00001df0 4c 45 24 3d c2 46 49 4c 45 24 2c 28 a9 28 46 49 |LE$=.FILE$,(.(FI|
00001e00 4c 45 24 29 2d 34 29 29 0d 0a 1e 18 20 ff 22 53 |LE$)-4)).... ."S|
00001e10 45 54 20 55 70 24 54 6f 20 22 2b 46 49 4c 45 24 |ET Up$To "+FILE$|
00001e20 0d 0a 28 1e 20 e7 20 a9 28 46 49 4c 45 24 29 3c |..(. . .(FILE$)<|
00001e30 35 20 8c 20 66 69 6e 69 73 68 65 64 3d b9 0d 0a |5 . finished=...|
00001e40 32 12 20 63 6f 75 6e 74 3d 63 6f 75 6e 74 2b 31 |2. count=count+1|
00001e50 0d 0a 3c 11 20 fd 20 66 69 6e 69 73 68 65 64 3d |..<. . finished=|
00001e60 b9 0d 0a 46 14 20 6d 61 78 74 79 70 65 3d 63 6f |...F. maxtype=co|
00001e70 75 6e 74 2d 31 0d 0a 50 06 20 e1 0d 0a 5a 0d 20 |unt-1..P. ...Z. |
00001e80 dd f2 64 65 63 6f 64 65 0d 0a 64 24 20 c8 99 22 |..decode..d$ .."|
00001e90 57 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 |Wimp_GetPointerI|
00001ea0 6e 66 6f 22 2c 2c 67 73 70 61 63 65 0d 0a 6e 38 |nfo",,gspace..n8|
00001eb0 20 e7 20 63 75 72 72 65 6e 74 6d 65 6e 75 3d 74 | . currentmenu=t|
00001ec0 79 70 65 73 25 20 8c 20 f2 73 65 74 74 68 65 74 |ypes% . .setthet|
00001ed0 79 70 65 32 28 21 77 69 6d 70 5f 62 6c 6f 63 6b |ype2(!wimp_block|
00001ee0 25 29 3a e1 0d 0a 78 1a 20 e7 20 63 75 72 72 65 |%):...x. . curre|
00001ef0 6e 74 6d 65 6e 75 3d 6d 65 6e 75 25 20 8c 0d 0a |ntmenu=menu% ...|
00001f00 82 16 20 c8 8e 20 21 77 69 6d 70 5f 62 6c 6f 63 |.. .. !wimp_bloc|
00001f10 6b 25 20 ca 0d 0a 8c 0a 20 20 c9 20 30 3a 0d 0a |k% ..... . 0:..|
00001f20 96 0f 20 20 c9 20 31 3a f2 68 65 6c 70 0d 0a a0 |.. . 1:.help...|
00001f30 25 20 20 c9 20 32 3a f2 73 65 74 74 68 65 74 79 |% . 2:.setthety|
00001f40 70 65 32 28 77 69 6d 70 5f 62 6c 6f 63 6b 25 21 |pe2(wimp_block%!|
00001f50 34 29 0d 0a aa 0e 20 20 c9 20 33 3a f2 64 69 65 |4).... . 3:.die|
00001f60 0d 0a b4 06 20 cb 0d 0a be 06 20 cd 0d 0a c8 06 |.... ..... .....|
00001f70 20 e1 0d 0a d2 19 20 dd f2 73 65 74 74 68 65 74 | ..... ..setthet|
00001f80 79 70 65 32 28 76 61 6c 75 65 29 0d 0a dc 1c 20 |ype2(value).... |
00001f90 66 69 6c 65 74 79 70 65 3d 74 79 70 65 6e 75 6d |filetype=typenum|
00001fa0 28 76 61 6c 75 65 29 0d 0a e6 2e 20 e7 20 76 61 |(value).... . va|
00001fb0 6c 75 65 3d 6d 61 78 74 79 70 65 2b 31 20 8c 20 |lue=maxtype+1 . |
00001fc0 66 69 6c 65 74 79 70 65 3d a0 28 22 26 22 2b 24 |filetype=.("&"+$|
00001fd0 61 64 64 72 29 0d 0a f0 2d 20 74 65 24 3d 22 26 |addr)...- te$="&|
00001fe0 22 2b c3 7e 28 66 69 6c 65 74 79 70 65 29 2b 22 |"+.~(filetype)+"|
00001ff0 20 2d 20 22 2b 74 79 70 65 73 24 28 76 61 6c 75 | - "+types$(valu|
00002000 65 29 0d 0a fa 48 20 e7 20 76 61 6c 75 65 3d 6d |e)...H . value=m|
00002010 61 78 74 79 70 65 2b 31 20 8c 20 74 65 24 3d 22 |axtype+1 . te$="|
00002020 26 22 2b c3 7e 28 66 69 6c 65 74 79 70 65 29 2b |&"+.~(filetype)+|
00002030 22 20 2d 20 22 2b a4 6e 75 6d 74 6f 74 65 78 74 |" - "+.numtotext|
00002040 28 66 69 6c 65 74 79 70 65 29 0d 0b 04 1a 20 f2 |(filetype).... .|
00002050 6e 65 77 74 65 78 74 28 6d 61 69 6e 25 2c 33 2c |newtext(main%,3,|
00002060 74 65 24 29 0d 0b 0e 2e 20 f2 6e 65 77 73 70 72 |te$).... .newspr|
00002070 69 74 65 28 6d 61 69 6e 25 2c 34 2c 22 73 66 69 |ite(main%,4,"sfi|
00002080 6c 65 5f 22 2b c3 7e 28 66 69 6c 65 74 79 70 65 |le_"+.~(filetype|
00002090 29 29 0d 0b 18 23 20 e7 20 a4 77 68 69 63 68 72 |))...# . .whichr|
000020a0 61 64 69 6f 3d 31 31 20 8c 20 f2 73 65 74 74 68 |adio=11 . .setth|
000020b0 65 74 79 70 65 0d 0b 22 06 20 e1 0d 0b 2c 11 20 |etype..". ...,. |
000020c0 dd a4 77 68 69 63 68 72 61 64 69 6f 0d 0b 36 27 |..whichradio..6'|
000020d0 20 3f 67 73 70 61 63 65 3d 31 32 3a 67 73 70 61 | ?gspace=12:gspa|
000020e0 63 65 3f 31 3d 31 33 3a 67 73 70 61 63 65 3f 32 |ce?1=13:gspace?2|
000020f0 3d 2d 31 0d 0b 40 30 20 c8 99 22 57 69 6d 70 5f |=-1..@0 .."Wimp_|
00002100 57 68 69 63 68 49 63 6f 6e 22 2c 6d 61 69 6e 25 |WhichIcon",main%|
00002110 2c 67 73 70 61 63 65 2c 31 3c 3c 32 31 2c 31 3c |,gspace,1<<21,1<|
00002120 3c 32 31 0d 0b 4a 0d 20 3d 3f 67 73 70 61 63 65 |<21..J. =?gspace|
00002130 0d 0b 54 16 20 dd f2 73 65 6e 64 68 65 6c 70 6d |..T. ..sendhelpm|
00002140 65 73 73 61 67 65 0d 0b 5e 35 20 77 69 6d 70 5f |essage..^5 wimp_|
00002150 62 6c 6f 63 6b 25 21 31 36 3d 26 35 30 33 3a 77 |block%!16=&503:w|
00002160 69 6d 70 5f 62 6c 6f 63 6b 25 21 31 32 3d 77 69 |imp_block%!12=wi|
00002170 6d 70 5f 62 6c 6f 63 6b 25 21 38 0d 0b 68 16 20 |mp_block%!8..h. |
00002180 77 69 6d 70 5f 62 6c 6f 63 6b 25 21 30 3d 32 35 |wimp_block%!0=25|
00002190 36 0d 0b 72 58 20 73 65 6e 64 68 65 6c 70 24 3d |6..rX sendhelp$=|
000021a0 22 54 68 69 73 20 62 65 6c 6f 6e 67 73 20 74 6f |"This belongs to|
000021b0 20 21 49 64 65 6e 74 69 66 79 7c 4d 4e 6f 20 68 | !Identify|MNo h|
000021c0 65 6c 70 20 68 65 72 65 20 2d 20 67 6f 20 70 6f |elp here - go po|
000021d0 69 6e 74 20 74 6f 20 73 6f 6d 65 74 68 69 6e 67 |int to something|
000021e0 20 75 73 65 66 75 6c 2e 22 0d 0b 7c 18 20 c8 8e | useful."..|. ..|
000021f0 20 77 69 6d 70 5f 62 6c 6f 63 6b 25 21 33 32 20 | wimp_block%!32 |
00002200 ca 0d 0b 86 70 20 20 c9 20 69 6e 66 6f 25 3a 73 |....p . info%:s|
00002210 65 6e 64 68 65 6c 70 24 3d 22 54 68 69 73 20 69 |endhelp$="This i|
00002220 73 20 74 68 65 20 21 49 64 65 6e 74 69 66 79 20 |s the !Identify |
00002230 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 77 69 6e 64 |information wind|
00002240 6f 77 7c 4d 43 6c 69 63 6b 20 6f 6e 20 27 44 69 |ow|MClick on 'Di|
00002250 67 69 54 65 63 68 27 20 74 6f 20 67 65 74 20 6d |giTech' to get m|
00002260 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e |ore information.|
00002270 22 0d 0b 90 80 20 20 c9 20 78 69 6e 66 6f 25 3a |".... . xinfo%:|
00002280 73 65 6e 64 68 65 6c 70 24 3d 22 48 65 72 65 20 |sendhelp$="Here |
00002290 69 73 20 74 68 65 20 61 64 64 72 65 73 73 20 6f |is the address o|
000022a0 66 20 44 69 67 69 54 65 63 68 20 50 44 2c 20 61 |f DigiTech PD, a|
000022b0 75 74 68 65 72 73 20 6f 66 20 21 49 64 65 6e 74 |uthers of !Ident|
000022c0 69 66 79 7c 4d 53 65 6e 64 20 73 6f 6d 65 20 6d |ify|MSend some m|
000022d0 6f 6e 65 79 20 61 6e 64 20 77 65 27 6c 6c 20 73 |oney and we'll s|
000022e0 65 6e 64 20 79 6f 75 20 73 6f 6d 65 20 50 44 21 |end you some PD!|
000022f0 22 0d 0b 9a 6a 20 20 c9 20 2d 32 3a 73 65 6e 64 |"...j . -2:send|
00002300 68 65 6c 70 24 3d 22 54 68 69 73 20 69 73 20 74 |help$="This is t|
00002310 68 65 20 21 49 64 65 6e 74 69 66 79 20 69 63 6f |he !Identify ico|
00002320 6e 7c 4d 43 6c 69 63 6b 20 53 45 4c 45 43 54 20 |n|MClick SELECT |
00002330 66 6f 72 20 74 68 65 20 6d 61 69 6e 20 77 69 6e |for the main win|
00002340 64 6f 77 7c 4d 43 6c 69 63 6b 20 4d 45 4e 55 20 |dow|MClick MENU |
00002350 66 6f 72 20 61 20 6d 65 6e 75 22 0d 0b a4 0d 20 |for a menu".... |
00002360 20 c9 20 6d 61 69 6e 25 0d 0b ae 1a 20 20 20 c8 | . main%.... .|
00002370 8e 20 77 69 6d 70 5f 62 6c 6f 63 6b 25 21 33 36 |. wimp_block%!36|
00002380 20 ca 0d 0b b8 a9 20 20 20 20 c9 20 31 33 3a 73 | ..... . 13:s|
00002390 65 6e 64 68 65 6c 70 24 3d 22 54 68 69 73 20 69 |endhelp$="This i|
000023a0 63 6f 6e 20 64 69 73 70 6c 61 79 73 20 74 68 65 |con displays the|
000023b0 20 66 69 6c 65 6e 61 6d 65 20 6f 66 20 74 68 65 | filename of the|
000023c0 20 6c 61 73 74 20 66 69 6c 65 20 77 68 69 63 68 | last file which|
000023d0 20 68 61 73 20 62 65 65 6e 20 64 72 61 67 67 65 | has been dragge|
000023e0 64 20 74 6f 20 21 49 64 65 6e 74 69 66 79 2e 7c |d to !Identify.||
000023f0 4d 54 68 69 73 20 69 73 20 74 68 65 20 66 69 6c |MThis is the fil|
00002400 65 20 6f 6e 20 77 68 69 63 68 20 61 6c 6c 20 6f |e on which all o|
00002410 70 65 72 61 74 69 6f 6e 73 20 77 69 6c 6c 20 74 |perations will t|
00002420 61 6b 65 20 70 6c 61 63 65 2e 22 0d 0b c2 41 20 |ake place."...A |
00002430 20 20 20 c9 20 33 3a 73 65 6e 64 68 65 6c 70 24 | . 3:sendhelp$|
00002440 3d 22 54 68 69 73 20 69 73 20 74 68 65 20 63 75 |="This is the cu|
00002450 72 72 65 6e 74 6c 79 20 73 65 6c 65 63 74 65 64 |rrently selected|
00002460 20 66 69 6c 65 20 74 79 70 65 2e 22 0d 0b cc b0 | file type."....|
00002470 20 20 20 20 c9 20 34 3a 73 65 6e 64 68 65 6c 70 | . 4:sendhelp|
00002480 24 3d 22 54 68 69 73 20 69 73 20 74 68 65 20 63 |$="This is the c|
00002490 75 72 72 65 6e 74 6c 79 20 73 65 6c 65 63 74 65 |urrently selecte|
000024a0 64 20 66 69 6c 65 20 74 79 70 65 2e 7c 4d 44 72 |d file type.|MDr|
000024b0 61 67 20 61 20 66 69 6c 65 20 74 6f 20 74 68 69 |ag a file to thi|
000024c0 73 20 69 63 6f 6e 20 61 6e 64 20 69 74 20 77 69 |s icon and it wi|
000024d0 6c 6c 20 73 65 74 20 69 74 27 73 20 74 79 70 65 |ll set it's type|
000024e0 20 74 6f 20 74 68 65 20 6f 6e 65 20 73 68 6f 77 | to the one show|
000024f0 6e 2e 7c 4d 54 68 69 73 20 6d 61 79 20 62 65 20 |n.|MThis may be |
00002500 63 68 61 6e 67 65 64 20 66 72 6f 6d 20 74 68 65 |changed from the|
00002510 20 74 79 70 65 20 6d 65 6e 75 2e 22 0d 0b d6 d3 | type menu."....|
00002520 20 20 20 20 c9 20 31 31 3a 73 65 6e 64 68 65 6c | . 11:sendhel|
00002530 70 24 3d 22 43 6c 69 63 6b 20 68 65 72 65 20 74 |p$="Click here t|
00002540 6f 20 73 65 6c 65 63 74 20 61 75 74 6f 20 73 65 |o select auto se|
00002550 74 74 69 6e 67 73 2e 7c 4d 57 68 65 6e 20 74 68 |ttings.|MWhen th|
00002560 65 20 66 69 6c 65 74 79 70 65 20 69 73 20 63 68 |e filetype is ch|
00002570 61 6e 67 65 64 20 6f 6e 20 74 68 65 20 74 79 70 |anged on the typ|
00002580 65 20 6d 65 6e 75 2c 20 74 68 65 20 66 69 6c 65 |e menu, the file|
00002590 20 64 69 73 70 6c 61 79 65 64 20 69 6e 20 74 68 | displayed in th|
000025a0 65 20 49 6e 70 75 74 20 46 69 6c 65 20 69 63 6f |e Input File ico|
000025b0 6e 20 77 69 6c 6c 20 62 65 20 73 65 74 20 74 6f |n will be set to|
000025c0 20 74 68 69 73 20 74 79 70 65 20 69 6d 6d 69 64 | this type immid|
000025d0 69 61 74 65 6c 79 20 69 66 20 61 75 74 6f 73 65 |iately if autose|
000025e0 74 20 69 73 20 73 65 6c 65 63 74 65 64 2e 22 0d |t is selected.".|
000025f0 0b e0 d6 20 20 20 20 c9 20 31 32 3a 73 65 6e 64 |... . 12:send|
00002600 68 65 6c 70 24 3d 22 43 6c 69 63 6b 20 68 65 72 |help$="Click her|
00002610 65 20 74 6f 20 64 69 73 61 62 6c 65 20 61 75 74 |e to disable aut|
00002620 6f 20 73 65 74 74 69 6e 67 73 2e 7c 4d 57 68 65 |o settings.|MWhe|
00002630 6e 20 74 68 65 20 66 69 6c 65 74 79 70 65 20 69 |n the filetype i|
00002640 73 20 63 68 61 6e 67 65 64 20 6f 6e 20 74 68 65 |s changed on the|
00002650 20 74 79 70 65 20 6d 65 6e 75 2c 20 74 68 65 20 | type menu, the |
00002660 66 69 6c 65 20 64 69 73 70 6c 61 79 65 64 20 69 |file displayed i|
00002670 6e 20 74 68 65 20 49 6e 70 75 74 20 46 69 6c 65 |n the Input File|
00002680 20 69 63 6f 6e 20 77 69 6c 6c 20 62 65 20 73 65 | icon will be se|
00002690 74 20 74 6f 20 74 68 69 73 20 74 79 70 65 20 6f |t to this type o|
000026a0 6e 6c 79 20 69 66 20 74 68 65 20 53 65 74 20 69 |nly if the Set i|
000026b0 63 6f 6e 20 69 73 20 63 6c 69 63 6b 65 64 20 75 |con is clicked u|
000026c0 70 6f 6e 2e 22 0d 0b ea 5c 20 20 20 20 c9 20 38 |pon."...\ . 8|
000026d0 3a 73 65 6e 64 68 65 6c 70 24 3d 22 43 6c 69 63 |:sendhelp$="Clic|
000026e0 6b 20 68 65 72 65 20 74 6f 20 73 65 74 20 74 68 |k here to set th|
000026f0 65 20 49 6e 70 75 74 20 46 69 6c 65 20 74 6f 20 |e Input File to |
00002700 74 68 65 20 43 75 72 72 65 6e 74 6c 79 20 53 65 |the Currently Se|
00002710 6c 65 63 74 65 64 20 46 69 6c 65 74 79 70 65 2e |lected Filetype.|
00002720 22 0d 0b f4 6f 20 20 20 20 c9 20 31 30 3a 73 65 |"...o . 10:se|
00002730 6e 64 68 65 6c 70 24 3d 22 43 6c 69 63 6b 20 68 |ndhelp$="Click h|
00002740 65 72 65 20 74 6f 20 67 65 74 20 73 74 72 61 69 |ere to get strai|
00002750 67 68 74 20 74 6f 20 74 68 65 20 74 79 70 65 20 |ght to the type |
00002760 6d 65 6e 75 20 74 6f 20 63 68 61 6e 67 65 20 74 |menu to change t|
00002770 68 65 20 43 75 72 72 65 6e 74 6c 79 20 53 65 6c |he Currently Sel|
00002780 65 63 74 65 64 20 46 69 6c 65 74 79 70 65 2e 22 |ected Filetype."|
00002790 0d 0b fe 07 20 20 cb 0d 0c 08 06 20 cb 0d 0c 12 |.... ..... ....|
000027a0 20 20 24 28 77 69 6d 70 5f 62 6c 6f 63 6b 25 2b | $(wimp_block%+|
000027b0 32 30 29 3d 73 65 6e 64 68 65 6c 70 24 0d 0c 1c |20)=sendhelp$...|
000027c0 36 20 c8 99 22 57 69 6d 70 5f 53 65 6e 64 4d 65 |6 .."Wimp_SendMe|
000027d0 73 73 61 67 65 22 2c 31 37 2c 77 69 6d 70 5f 62 |ssage",17,wimp_b|
000027e0 6c 6f 63 6b 25 2c 77 69 6d 70 5f 62 6c 6f 63 6b |lock%,wimp_block|
000027f0 25 21 34 0d 0c 26 06 20 e1 0d 0c 30 1d 20 dd f2 |%!4..&. ...0. ..|
00002800 73 74 61 72 74 64 72 61 67 67 69 6e 67 28 77 69 |startdragging(wi|
00002810 6e 64 6f 77 25 29 0d 0c 3a 3c 20 67 73 70 61 63 |ndow%)..:< gspac|
00002820 65 21 34 3d 77 69 6e 64 6f 77 25 3a 20 c8 99 22 |e!4=window%: .."|
00002830 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 4f 75 |Wimp_GetWindowOu|
00002840 74 6c 69 6e 65 22 2c 2c 28 67 73 70 61 63 65 2b |tline",,(gspace+|
00002850 34 29 0d 0c 44 20 20 21 67 73 70 61 63 65 3d 77 |4)..D !gspace=w|
00002860 69 6e 64 6f 77 25 3a 20 67 73 70 61 63 65 21 34 |indow%: gspace!4|
00002870 3d 31 0d 0c 4e 1d 20 c8 99 22 57 69 6d 70 5f 44 |=1..N. .."Wimp_D|
00002880 72 61 67 42 6f 78 22 2c 2c 67 73 70 61 63 65 0d |ragBox",,gspace.|
00002890 0c 58 06 20 e1 0d 0c 62 1f 20 dd f2 72 65 70 6f |.X. ...b. ..repo|
000028a0 72 74 65 72 72 6f 72 28 45 4e 2c 45 24 2c 66 61 |rterror(EN,E$,fa|
000028b0 74 61 6c 29 0d 0c 6c 1e 20 21 67 73 70 61 63 65 |tal)..l. !gspace|
000028c0 3d 45 4e 3a 24 28 67 73 70 61 63 65 2b 34 29 3d |=EN:$(gspace+4)=|
000028d0 45 24 0d 0c 76 34 20 c8 99 22 57 69 6d 70 5f 52 |E$..v4 .."Wimp_R|
000028e0 65 70 6f 72 74 45 72 72 6f 72 22 2c 67 73 70 61 |eportError",gspa|
000028f0 63 65 2c 31 31 2c 22 49 64 65 6e 74 69 66 79 22 |ce,11,"Identify"|
00002900 20 b8 20 2c 72 73 0d 0c 80 1c 20 e7 20 72 73 3d | . ,rs.... . rs=|
00002910 32 20 84 20 66 61 74 61 6c 3d b9 20 8c 20 f2 64 |2 . fatal=. . .d|
00002920 69 65 0d 0c 8a 06 20 e1 0d 0c 94 09 20 f4 20 a4 |ie.... ..... . .|
00002930 06 0d ff |...|
00002933 
.