Home » Archimedes archive » Zipped Apps » 1st File » !1stFile/!RunImage
!1stFile/!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 » Zipped Apps » 1st File |
| Filename: | !1stFile/!RunImage |
| Read OK: | ✔ |
| File size: | 2A3D bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM ><1stFile$Dir>.!RunImage
20REM 1st Word+ to Text file converter
30REM Based on some code in RISC User
40REM And that says BASED - we wrote the routines ourself
50REM using the RISC ones as a model
55REM Call us on Cryton account #41
60
70PROCinitialise
80ON ERROR PROCWimpLib_Error
90REPEAT
100 SYS"Wimp_Poll",mask%,blk% TO reason%
110 CASE reason% OF
120 WHEN 2:SYS"Wimp_OpenWindow",,blk%
130 WHEN 3:SYS"Wimp_CloseWindow",,blk%
140 WHEN 6:PROCbuttons
150 WHEN 9:PROCWimpLib_DecodeMenu
160 WHEN 17,18:PROCWimpLib_Incoming
170 ENDCASE
180UNTIL quit%
190SYS"Wimp_CloseDown"
200END
210
220DEFPROCinitialise
230PROCWimpLib_WimpOn
240PROCcreate_variables
250PROCWimpLib_IcnBar("!1stFile")
260PROCWimpLib_MakeInfoBox
270PROCWimpLib_WindowBlk
280SYS"Wimp_CreateWindow",,blk% TO view%
290ENDPROC
300
310DEFPROCWimpLib_WimpOn
320SYS"Wimp_Initialise",200,&4B534154,"1wp File Converter" TO ,task%
330ENDPROC
340
350DEFPROCcreate_variables
360DIM blk% 2000,buffer% 300,icont% 12*77,icons% 12*77,ispc% 200,tag% 77
370DIM menu% 256,change% 77
380DIM path$(77),name$(77),handle%(77),type$(77),dead(77)
390open%=FALSE:quit%=FALSE:$tag%=STRING$(76,CHR$0)
400$change%=STRING$(76,CHR$0):mask%=&78D:files=-1:X%=100:Y%=800:ENDPROC
410
420DEFPROCWimpLib_IcnBar(sp$)
430blk%!0=-1:blk%!4=0:blk%!12=68:blk%!8=0:blk%!16=68
440blk%!20=&3002:$(blk%+24)=sp$
450SYS"Wimp_CreateIcon",,blk% TO iconbar%:ENDPROC
460
470DEFPROCWimpLib_Incoming
480CASE blk%!16 OF
490 WHEN 0:quit%=TRUE
500 WHEN 3:PROCWimpLib_FilerAdd
510ENDCASE
520ENDPROC
530
540DEFPROCWimpLib_Error
550blk%!0=ERR:$(blk%+4)=REPORT$+": internal error code "+STR$ERL
560SYS"Wimp_ReportError",blk%,3,"!1stFile" TO ,butt%:IFbutt%=1 quit%=TRUE
570ENDPROC
580
590DEFFNWimpLib_okbox(flag%,t$)
600blk%!0=0:$(blk%+4)=t$
610SYS"Wimp_ReportError",blk%,flag%,"!1stFile" TO ,button%
620IFbutton%=1 =TRUE ELSE =FALSE
630
640DEFPROCWimpLib_SimpleMenu(H%,W%,menu$)
650menu%!0=H%:ptr%=menu%+4:$ptr%=LEFT$(menu$,INSTR(menu$,"|")-1)
660menu$=MID$(menu$,INSTR(menu$,"|")+1)+"|":ptr%?12=7:ptr%?13=2:ptr%?14=7
670ptr%?15=0:ptr%!16=W%*16:ptr%!20=44:ptr%!24=0:ptr%+=28
680WHILE INSTR(menu$,"|")
690 ptr%!0=0:ptr%!4=-1:ptr%!8=&7000021
700 $(ptr%+12)=LEFT$(menu$,INSTR(menu$,"|")-1)
710 menu$=MID$(menu$,INSTR(menu$,"|")+1):ptr%+=24
720ENDWHILE
730ptr%!-24=ptr%!-24 EOR &80
740ENDPROC
750
760DEFPROCbuttons
770LOCALI%
780CASE blk%!12 OF
790 WHEN -2 : REM Iconbar
800 CASE blk%!16 OF
810 WHEN iconbar%
820 CASE blk%!8 OF
830 WHEN 2
840 PROCWimpLib_SimpleMenu(0,9,"1stFile|Info|Quit")
850 menu%!(4+28+4)=info%:SYS"Wimp_CreateMenu",,menu%+4,blk%!0-64,184
860 WHEN 4
870 IFfiles<>-1 THEN
880 blk%!0=view%:SYS"Wimp_GetWindowState",,blk%
890 blk%!28=-1:SYS"Wimp_OpenWindow",,blk%
900 ENDIF
910 ENDCASE
920 ENDCASE
930 WHEN view%
940 CASE blk%!8 OF
950 WHEN 2
960 IFFNWimpLib_NoneMarked=TRUE AND blk%!16>=0 PROCWimpLib_MarkUnder(view%,21,21)
970 PROCWimpLib_SimpleMenu(1,9,"1stFile|Text|1stWord+|Remove")
980 menu%!(4+28+24)=2:SYS"Wimp_CreateMenu",,menu%+4,blk%!0-64,blk%!4
990 ENDCASE
1000ENDCASE
1010ENDPROC
1020
1030DEFPROCWimpLib_MarkUnder(han,eor,clr)
1040blk%!100=han:blk%!104=blk%!16:blk%!108=1<<eor:blk%!112=1<<clr
1050SYS"Wimp_SetIconState",,blk%+100:ENDPROC
1060
1070DEFPROCWimpLib_DecodeMenu
1080SYS"Wimp_DecodeMenu",,menu%+4,blk%,blk%+128
1090choice$=FNWimpLib_BlktoVar(blk%+128)
1100SYS"Wimp_GetPointerInfo",,blk%
1110D%=TRUE:IFblk%!8=1 D%=FALSE
1120CASE choice$ OF
1130 WHEN "Quit":quit%=TRUE
1140 WHEN "Remove":PROCremove
1150 WHEN "Text":PROCconvert(D%,"FFF")
1160 WHEN "1stWord+":PROCconvert(D%,"AF8")
1170ENDCASE
1180SYS"Wimp_GetPointerInfo",,blk%
1190IFblk%!8=1 SYS"Wimp_CreateMenu",,menu%+4
1200ENDPROC
1210
1220DEFFNWimpLib_GetLeaf(leaf$)
1230WHILE INSTR(leaf$,".")
1240 leaf$=MID$(leaf$,INSTR(leaf$,".")+1)
1250ENDWHILE:=leaf$
1260
1270DEFFNWimpLib_BlktoVar(ptr%):LOCAL msg$
1280WHILE ?ptr%<>13 AND ?ptr%<>0
1290 msg$+=CHR$?ptr%:ptr%+=1
1300ENDWHILE:=msg$
1310
1320DEFPROCWimpLib_FilerAdd
1330type%=blk%!40:path$=FNWimpLib_BlktoVar(blk%+44)
1340name$=FNWimpLib_GetLeaf(path$)
1350IFfiles=76 d=FNWimpLib_okbox(1,"You can only cache 77 files"):ENDPROC
1360IFFNknownpath(name$) d=FNWimpLib_okbox(1,"'"+name$+"' is already cached."):ENDPROC
1370IFtype%<>&FFF IFtype%<>&AF8 d=FNWimpLib_okbox(1,"'"+name$+"' is not a 1stWord+ or plain text file."):ENDPROC
1380files+=1:type$(files)=STR$~type%
1390path$(files)=path$:name$(files)=name$
1400ON ERROR LOCAL type$(files)="xxx":PROCWimpLib_FilerStart:ENDPROC
1410SYS"Wimp_SpriteOp",&118,,"file_"+type$(files)
1420PROCWimpLib_FilerStart:ENDPROC
1430
1440DEFPROCWimpLib_FilerStart
1450blk%!0=view%:SYS"Wimp_GetWindowState",,blk%:X%=blk%!4
1460Y%=blk%!16:SYS"Wimp_DeleteWindow",,blk%:PROCWimpLib_WindowBlk
1470lines=(files+1)/4:IFlines<>INT(lines) lines=INT(lines)+1
1480blk%!0=X%:IFlines<5 blk%!4=Y%-140*lines ELSE blk%!4=Y%-560
1490blk%!8=X%+840:blk%!12=Y%:blk%!40=X%:blk%!44=Y%-140*lines:blk%!48=X%+840
1500blk%!52=Y%:SYS"Wimp_CreateWindow",,blk% TO view%:blk%!0=view%
1510SYS"Wimp_GetWindowState",,blk%:xpos=blk%!4-196:ypos=blk%!16-124:count=0
1520IF files>=0 THEN
1530FOR loop=0 TO files
1540 count+=1:xpos+=196:IFcount=5 xpos-=196*(count-1):ypos-=136:count=1
1550 $(icont%+loop*11)=name$(loop):$(icons%+loop*15)="Sfile_"+type$(loop)
1560 blk%!0=view%:blk%!4=xpos:blk%!8=ypos:blk%!12=xpos+180:blk%!16=ypos+108
1570 blk%!20=&1700852B:IF(tag%?loop) blk%!20=&1720852B
1580 blk%!24=icont%+loop*11:blk%!28=icons%+loop*15
1590 blk%!32=LEN(name$(loop))+1:SYS"Wimp_CreateIcon",,blk% TO handle%(loop)
1600NEXT
1610ENDIF
1620blk%!0=view%:SYS"Wimp_GetWindowState",,blk%:SYS"Wimp_OpenWindow",,blk%
1630SYS"Wimp_ForceRedraw",view%,blk%!4,blk%!8,blk%!12,blk%!16
1640ENDPROC
1650
1660DEFPROCWimpLib_WindowBlk
1670$blk%=STRING$(88,CHR$0):blk%!0=300:blk%!4=300:blk%!8=800:blk%!12=800
1680blk%!16=0:blk%!20=0:blk%!24=-1:blk%!28=&BF000012:blk%?32=7:blk%?33=2
1690blk%?34=7:blk%?35=1:blk%?36=3:blk%?37=1:blk%?38=12
1700blk%!40=0:blk%!44=0:blk%!48=1000:blk%!52=900:blk%!64=1
1710blk%!56=&19:blk%!60=&A000:blk%!68=10+10<<16:$(blk%+72)="1stFile"
1720ENDPROC
1730
1740DEFPROCWimpLib_MakeInfoBox
1750PROCWimpLib_WindowBlk
1760blk%!0=0:blk%!4=0:blk%!8=488+5*16:blk%!12=212
1770blk%!56=&119:blk%!72=ispc%+100
1780blk%!76=-1:blk%!80=19:$(ispc%+100)="About this Program"
1790blk%!28=&84000012:SYS"Wimp_CreateWindow",,blk% TO info%
1800RESTORE1920
1810FORI%=0TO3
1820 blk%!0=info%:blk%!4=8:blk%!8=4+52*I%:blk%!12=blk%!4+9*16
1830 blk%!16=blk%!8+48:blk%!20=&17000231:READ T$:$(blk%+24)=T$+":"
1840 SYS"Wimp_CreateIcon",,blk%
1850NEXT
1860FORI%=0TO3
1870 blk%!0=info%:blk%!4=10+9*16:blk%!8=4+52*I%:blk%!12=blk%!4+25*16
1880 blk%!16=blk%!8+48:blk%!20=&700013D:READ T$:$(ispc%+25*I%)=T$
1890 blk%!24=ispc%+25*I%:blk%!28=0:blk%!32=LENT$+1
1900 SYS"Wimp_CreateIcon",,blk%
1910NEXT
1920DATA Version,Author,Purpose,Program,2.00 (08-Dec-1989),Anon,1stWord+ File Converter,!1stFile
1930ENDPROC
1940
1950DEFFNWimpLib_NoneMarked:LOCALI%
1960FORI%=0 TO files:buffer%!(I%*4)=handle%(I%)
1970NEXT:SYS"Wimp_WhichIcon",view%,buffer%,1<<21,1<<21
1980IFbuffer%!0=-1 THEN =TRUE ELSE =FALSE
1990
2000DEFPROCremove
2010IFfiles=-1 dummy=FNWimpLib_okbox(1,"No files cached!"):ENDPROC
2020FORloop=0 TO files:buffer%!(loop*4)=handle%(loop):NEXT
2030SYS"Wimp_WhichIcon",view%,buffer%,1<<21,1<<21
2040IFbuffer%!0=-1 dummy=FNWimpLib_okbox(1,"No files selected!"):ENDPROC
2050del=0:ptr%=buffer%
2060WHILE !ptr%<>-1
2070 del+=1:dead(del)=FNWimpLib_WhichIcon(!ptr%)
2080 PROCWimpLib_FilerLose(!ptr%):ptr%+=4
2090ENDWHILE
2100PROCWimpLib_FilerTidy
2110PROCWimpLib_FilerStart
2120ENDPROC
2130
2140DEFFNWimpLib_WhichIcon(handle)
2150LOCALF%,M%:F%=-1
2160FOR M%=0 TO files
2170IF handle%(M%)=handle F%=M%
2180NEXT:=F%
2190
2200DEFPROCWimpLib_FilerLose(blk%!4)
2210killme=FNWimpLib_WhichIcon(blk%!4)
2220blk%!0=view%:SYS"Wimp_DeleteIcon",,blk%
2230tag%?killme=0:ENDPROC
2240
2250DEFPROCWimpLib_FilerTidy
2260LOCAL I%,J%,K%,L%
2270FOR L%=1 TO del:handle%(dead(L%))=-1:NEXT
2280FOR I%=1 TO del
2290 position=0
2300 FOR J%=files TO 0 STEP -1
2310 IF handle%(J%)=-1 position=J%
2320 NEXT
2330 FOR K%=position TO 76
2340 SWAP handle%(K%),handle%(K%+1):SWAP path$(K%),path$(K%+1)
2350 SWAP name$(K%),name$(K%+1):SWAP type$(K%),type$(K%+1)
2360 NEXT
2370NEXT
2380files-=del
2390ENDPROC
2400
2410DEFFNknownpath(sn$)
2420LOCALF%,I%:F%=FALSE
2430FORI%=0 TO files
2440 IFsn$=name$(I%) F%=TRUE
2450NEXT:=F%
2460
2470DEFPROCWimpLib_Flag:LOCALflag%:flag%=0:REPEAT
2480INPUT"Enter bit : "bit:IFbit>=0 flag%+=1<<bit
2490UNTILbit<0:PRINT ~flag%:ENDPROC
2500
2510DEFPROCconvert(D%,F$)
2520CASE F$ OF
2530 WHEN "FFF":PROCto(D%,"text","FFF")
2540 WHEN "AF8":PROCto(D%,"1stWord+","AF8")
2550ENDCASE
2560ENDPROC
2570
2580DEFPROCto(D%,text$,type$)
2590IFfiles=-1 dummy=FNWimpLib_okbox(1,"No files cached!"):ENDPROC
2600FORloop=0 TO files:buffer%!(loop*4)=handle%(loop):NEXT
2610SYS"Wimp_WhichIcon",view%,buffer%,1<<21,1<<21
2620IFbuffer%!0=-1 dummy=FNWimpLib_okbox(1,"No files selected!"):ENDPROC
2630del=0:conv=0:ptr%=buffer%:scrap%=FALSE:SYS"Hourglass_On"
2640WHILE !ptr%<>-1
2650 N$=path$(FNWimpLib_WhichIcon(!ptr%)):uni$=type$(FNWimpLib_WhichIcon(!ptr%))
2660 IFtype$="FFF" AND uni$="AF8" PROCchange_to_fff
2670 IFtype$="AF8" AND uni$="FFF" PROCchange_to_1wp
2680 OSCLI("ACCESS "+N$+" WR")
2690 IFscrap% OSCLI("DELETE "+N$):OSCLI("RENAME <1stFile$Dir>.Scrap "+N$)
2700 OSCLI("SETTYPE "+N$+" "+type$)
2710 type$(FNWimpLib_WhichIcon(!ptr%))=type$
2720 del+=1:dead(del)=FNWimpLib_WhichIcon(!ptr%):tag%?FNWimpLib_WhichIcon(!ptr%)=1
2730 IFD% PROCWimpLib_FilerLose(!ptr%)
2740 ptr%+=4
2750ENDWHILE:IFD% PROCWimpLib_FilerTidy
2760PROCWimpLib_FilerStart:SYS"Hourglass_Off":ENDPROC
2770
2780DEFPROCchange_to_1wp:LOCAL S%,E%,C%,X%,Y%,H%:H%=FALSE:X%=0:Y%=0:L%=65
2790S%=OPENUP(N$):IFBGET#S%=&1F IFBGET#S%=&30 CLOSE#S%:ENDPROC
2800scrap%=TRUE:E%=OPENOUT("<1stFile$Dir>.Scrap")
2810RESTORE3670:FOR C%=1 TO 110:READ V$:BPUT#E%,EVAL("&"+V$):NEXT
2820REPEAT
2830 C%=BGET#S%:X%+=1:Y%+=1
2840 CASE C% OF
2850 WHEN &20:IF X%>L% BPUT#E%,&1E:BPUT#E%,&0A:X%=0 ELSE BPUT#E%,&1E
2860 WHEN &09,&0D,&DD:BPUT#E%,&0A
2870 WHEN &02:PROCgreen
2880 WHEN &81:PROCViewRuler
2890 WHEN &1C,&1D:PROCViewHighlight(C%)
2900 WHEN &80:PROCembedded
2910 OTHERWISE BPUT#E%,C%
2920 ENDCASE
2930UNTIL EOF#S%
2940CLOSE#S%:CLOSE#E%
2950ENDPROC
2960
2970DEFPROCchange_to_fff:LOCAL S%,E%,C%,O%,N%:O%=0
2980S%=OPENUP(N$):scrap%=TRUE:PTR#S%=110:E%=OPENOUT("<1stFile$Dir>.Scrap")
2990REPEAT
3000 C%=BGET#S%
3010 CASE TRUE OF
3020 WHEN C%=&20:BPUT#E%,&20
3030 WHEN C%=&0A AND O%<>&1E:BPUT#E%,&0A
3040 WHEN C%=&1E:BPUT#E%,&20
3050 WHEN C%=&1B:PTR#S%=PTR#S%+1
3060 WHEN C%=&39 AND O%=&1F:REPEAT:O%=BGET#S%:UNTILO%=&5D:PTR#S%=PTR#S%+3:O%=0
3070 WHEN C%>&1F:BPUT#E%,C%
3080 ENDCASE
3090O%=C%
3100UNTIL EOF#S%
3110CLOSE#S%
3120CLOSE#E%
3130ENDPROC
3140
3150DEFPROCgreen
3160LOCAL C%,F%,G%,P%,o$:G%=TRUE
3170REPEAT
3180 o$=""
3190 REPEAT
3200 C%=BGET#S%:IFC%>96 IFC%<132 C%-=32
3210 F%=(C%=&02 OR C%=&07 OR C%=&0D OR EOF#S%):IF NOT F% o$+=CHR$(C%)
3220 UNTIL F%
3230 IF C%<>&02 G%=FALSE
3240 CASE o$ OF
3250 WHEN "US":o$=CHR$&1B+CHR$&88
3260 WHEN "ES83,0":o$=CHR$&1B+CHR$&90
3270 WHEN "DE","UE","ES84","ES53":o$=CHR$&1B+CHR$&80
3280 WHEN "DS":o$=CHR$&1B+CHR$&81
3290 WHEN "ES52":o$=CHR$&1B+CHR$&84
3300 WHEN "ES83,1":o$=CHR$&1B+CHR$&A0
3310 OTHERWISE
3320 o$=CHR$&1B+CHR$&81+CHR$&1B+CHR$&88+CHR$&1B+CHR$&84+o$+CHR$&1B+CHR$&80
3330 ENDCASE
3340 FOR P%=1 TO LENo$:BPUT#E%,ASC(MID$(o$,P%)):NEXT
3350UNTIL NOT G%
3360ENDPROC
3370
3380DEFPROCViewRuler
3390LOCAL C%:L%=0:PTR#S%=PTR#S%+2
3400BPUT#E%,&A:BPUT#E%,&1F:BPUT#E%,&39:BPUT#E%,&5B
3410REPEAT
3420 C%=BGET#S%:L%+=1
3430 CASE C% OF
3440 WHEN &2A:BPUT#E%,&7F
3450 WHEN &0D:BPUT#E%,&5D:BPUT#E%,&30:BPUT#E%,&30:BPUT#E%,&31:BPUT#E%,&0A
3460 OTHERWISE
3470 IFC%<>&3C IFC%<>&3E BPUT#E%,C%
3480 ENDCASE
3490UNTIL C%=&0D OR EOF#S%:X%=0:L%-=1
3500ENDPROC
3510
3520DEFPROCViewHighlight(C%)
3530BPUT#E%,&1B
3540IF H% BPUT#E%,&80:H%=FALSE ELSE H%=TRUE:IF C%=&1C BPUT#E%,&88 ELSE IFC%=&1D BPUT#E%,&81
3550ENDPROC
3560
3570DEFPROCembedded
3580LOCAL C%:BPUT#E%,&0A:BPUT#E%,&5E:BPUT#E%,&5E
3590REPEAT
3600 C%=BGET#S%
3610 IF C%=&1C OR C%=&1D PROChighlight(C%) ELSEIF C%<>&0D BPUT#E%,C%
3620UNTIL C%=&0D OR EOF#S%
3630BPUT#E%,&0A:X%=0
3640ENDPROC
3650
3660REM 1stWord+ Default Ruler (PICA, Justification On)
3670DATA 1F,30,36,36,30,31,30,33,30,33,30,35,38,30,30,0A,1F,31,1F,1F,0A,1F
3680DATA 32,1F,23,1F,0A,1F,46,30,31,31,30,30,33,30,0A,1F,39,5B,2E,2E,2E,2E
3690DATA 7F,2E,2E,2E,2E,7F,2E,2E,2E,2E,7F,2E,2E,2E,2E,7F,2E,2E,2E,2E,7F,2E
3700DATA 2E,2E,2E,7F,2E,2E,2E,2E,7F,2E,2E,2E,2E,7F,2E,2E,2E,2E,7F,2E,2E,2E
3710DATA 2E,7F,2E,2E,2E,2E,7F,2E,2E,2E,2E,7F,2E,2E,2E,5D,30,30,31,0A,1B,80
� ><1stFile$Dir>.!RunImage
&� 1st Word+ to Text file converter
%� Based on some code in RISC User
(9� And that says BASED - we wrote the routines ourself
2$� using the RISC ones as a model
7#� Call us on Cryton account #41
<
F�initialise
P� � �WimpLib_Error
Z�
d( ș"Wimp_Poll",mask%,blk% � reason%
n Ȏ reason% �
x% � 2:ș"Wimp_OpenWindow",,blk%
�& � 3:ș"Wimp_CloseWindow",,blk%
� � 6:�buttons
� � 9:�WimpLib_DecodeMenu
�! � 17,18:�WimpLib_Incoming
� �
� � quit%
�ș"Wimp_CloseDown"
��
�
���initialise
��WimpLib_WimpOn
��create_variables
� �WimpLib_IcnBar("!1stFile")
�WimpLib_MakeInfoBox
�WimpLib_WindowBlk
'ș"Wimp_CreateWindow",,blk% � view%
"�
,
6��WimpLib_WimpOn
@Cș"Wimp_Initialise",200,&4B534154,"1wp File Converter" � ,task%
J�
T
^��create_variables
hG� blk% 2000,buffer% 300,icont% 12*77,icons% 12*77,ispc% 200,tag% 77
r� menu% 256,change% 77
|8� path$(77),name$(77),handle%(77),type$(77),dead(77)
�!open%=�:quit%=�:$tag%=�76,�0)
�8$change%=�76,�0):mask%=&78D:files=-1:X%=100:Y%=800:�
�
���WimpLib_IcnBar(sp$)
�5blk%!0=-1:blk%!4=0:blk%!12=68:blk%!8=0:blk%!16=68
� blk%!20=&3002:$(blk%+24)=sp$
�*ș"Wimp_CreateIcon",,blk% � iconbar%:�
�
���WimpLib_Incoming
�Ȏ blk%!16 �
� � 0:quit%=�
� � 3:�WimpLib_FilerAdd
��
�
��WimpLib_Error
&5blk%!0=�:$(blk%+4)=�$+": internal error code "+Þ
0Dș"Wimp_ReportError",blk%,3,"!1stFile" � ,butt%:�butt%=1 quit%=�
:�
D
N ݤWimpLib_okbox(flag%,t$)
Xblk%!0=0:$(blk%+4)=t$
b9ș"Wimp_ReportError",blk%,flag%,"!1stFile" � ,button%
l�button%=1 =� � =�
v
�%��WimpLib_SimpleMenu(H%,W%,menu$)
�7menu%!0=H%:ptr%=menu%+4:$ptr%=�menu$,�menu$,"|")-1)
�Amenu$=�menu$,�menu$,"|")+1)+"|":ptr%?12=7:ptr%?13=2:ptr%?14=7
�9ptr%?15=0:ptr%!16=W%*16:ptr%!20=44:ptr%!24=0:ptr%+=28
�ȕ �menu$,"|")
�( ptr%!0=0:ptr%!4=-1:ptr%!8=&7000021
�& $(ptr%+12)=�menu$,�menu$,"|")-1)
�* menu$=�menu$,�menu$,"|")+1):ptr%+=24
��
�ptr%!-24=ptr%!-24 � &80
��
�
�
��buttons
�I%
Ȏ blk%!12 �
� -2 : � Iconbar
Ȏ blk%!16 �
* � iconbar%
4 Ȏ blk%!8 �
>
� 2
H6 �WimpLib_SimpleMenu(0,9,"1stFile|Info|Quit")
RI menu%!(4+28+4)=info%:ș"Wimp_CreateMenu",,menu%+4,blk%!0-64,184
\
� 4
f �files<>-1 �
p6 blk%!0=view%:ș"Wimp_GetWindowState",,blk%
z0 blk%!28=-1:ș"Wimp_OpenWindow",,blk%
� �
� �
� �
�
� view%
� Ȏ blk%!8 �
� � 2
�K �WimpLib_NoneMarked=� � blk%!16>=0 �WimpLib_MarkUnder(view%,21,21)
�? �WimpLib_SimpleMenu(1,9,"1stFile|Text|1stWord+|Remove")
�G menu%!(4+28+24)=2:ș"Wimp_CreateMenu",,menu%+4,blk%!0-64,blk%!4
� �
��
��
�
$��WimpLib_MarkUnder(han,eor,clr)
Ablk%!100=han:blk%!104=blk%!16:blk%!108=1<<eor:blk%!112=1<<clr
%ș"Wimp_SetIconState",,blk%+100:�
$
.��WimpLib_DecodeMenu
8.ș"Wimp_DecodeMenu",,menu%+4,blk%,blk%+128
B'choice$=�WimpLib_BlktoVar(blk%+128)
L!ș"Wimp_GetPointerInfo",,blk%
VD%=�:�blk%!8=1 D%=�
`Ȏ choice$ �
j � "Quit":quit%=�
t � "Remove":�remove
~! � "Text":�convert(D%,"FFF")
�% � "1stWord+":�convert(D%,"AF8")
��
�!ș"Wimp_GetPointerInfo",,blk%
�*�blk%!8=1 ș"Wimp_CreateMenu",,menu%+4
��
�
� ݤWimpLib_GetLeaf(leaf$)
�ȕ �leaf$,".")
�! leaf$=�leaf$,�leaf$,".")+1)
� �:=leaf$
�
�#ݤWimpLib_BlktoVar(ptr%):� msg$
ȕ ?ptr%<>13 � ?ptr%<>0
msg$+=�?ptr%:ptr%+=1
�:=msg$
(��WimpLib_FilerAdd
22type%=blk%!40:path$=�WimpLib_BlktoVar(blk%+44)
<!name$=�WimpLib_GetLeaf(path$)
FA�files=76 d=�WimpLib_okbox(1,"You can only cache 77 files"):�
PM�knownpath(name$) d=�WimpLib_okbox(1,"'"+name$+"' is already cached."):�
Zg�type%<>&FFF �type%<>&AF8 d=�WimpLib_okbox(1,"'"+name$+"' is not a 1stWord+ or plain text file."):�
d!files+=1:type$(files)=�~type%
n)path$(files)=path$:name$(files)=name$
x2� � � type$(files)="xxx":�WimpLib_FilerStart:�
�0ș"Wimp_SpriteOp",&118,,"file_"+type$(files)
��WimpLib_FilerStart:�
�
���WimpLib_FilerStart
�8blk%!0=view%:ș"Wimp_GetWindowState",,blk%:X%=blk%!4
�=Y%=blk%!16:ș"Wimp_DeleteWindow",,blk%:�WimpLib_WindowBlk
�7lines=(files+1)/4:�lines<>�(lines) lines=�(lines)+1
�:blk%!0=X%:�lines<5 blk%!4=Y%-140*lines � blk%!4=Y%-560
�Kblk%!8=X%+840:blk%!12=Y%:blk%!40=X%:blk%!44=Y%-140*lines:blk%!48=X%+840
�?blk%!52=Y%:ș"Wimp_CreateWindow",,blk% � view%:blk%!0=view%
�Jș"Wimp_GetWindowState",,blk%:xpos=blk%!4-196:ypos=blk%!16-124:count=0
�� files>=0 �
�� loop=0 � files
G count+=1:xpos+=196:�count=5 xpos-=196*(count-1):ypos-=136:count=1
J $(icont%+loop*11)=name$(loop):$(icons%+loop*15)="Sfile_"+type$(loop)
L blk%!0=view%:blk%!4=xpos:blk%!8=ypos:blk%!12=xpos+180:blk%!16=ypos+108
"6 blk%!20=&1700852B:�(tag%?loop) blk%!20=&1720852B
,3 blk%!24=icont%+loop*11:blk%!28=icons%+loop*15
6H blk%!32=�(name$(loop))+1:ș"Wimp_CreateIcon",,blk% � handle%(loop)
@�
J�
THblk%!0=view%:ș"Wimp_GetWindowState",,blk%:ș"Wimp_OpenWindow",,blk%
^<ș"Wimp_ForceRedraw",view%,blk%!4,blk%!8,blk%!12,blk%!16
h�
r
|��WimpLib_WindowBlk
�>$blk%=�88,�0):blk%!0=300:blk%!4=300:blk%!8=800:blk%!12=800
�Hblk%!16=0:blk%!20=0:blk%!24=-1:blk%!28=&BF000012:blk%?32=7:blk%?33=2
�6blk%?34=7:blk%?35=1:blk%?36=3:blk%?37=1:blk%?38=12
�:blk%!40=0:blk%!44=0:blk%!48=1000:blk%!52=900:blk%!64=1
�Dblk%!56=&19:blk%!60=&A000:blk%!68=10+10<<16:$(blk%+72)="1stFile"
��
�
���WimpLib_MakeInfoBox
��WimpLib_WindowBlk
�1blk%!0=0:blk%!4=0:blk%!8=488+5*16:blk%!12=212
�"blk%!56=&119:blk%!72=ispc%+100
�;blk%!76=-1:blk%!80=19:$(ispc%+100)="About this Program"
�9blk%!28=&84000012:ș"Wimp_CreateWindow",,blk% � info%
��t@G
�I%=0�3
> blk%!0=info%:blk%!4=8:blk%!8=4+52*I%:blk%!12=blk%!4+9*16
&@ blk%!16=blk%!8+48:blk%!20=&17000231:� T$:$(blk%+24)=T$+":"
0 ș"Wimp_CreateIcon",,blk%
:�
D �I%=0�3
NE blk%!0=info%:blk%!4=10+9*16:blk%!8=4+52*I%:blk%!12=blk%!4+25*16
X? blk%!16=blk%!8+48:blk%!20=&700013D:� T$:$(ispc%+25*I%)=T$
b1 blk%!24=ispc%+25*I%:blk%!28=0:blk%!32=�T$+1
l ș"Wimp_CreateIcon",,blk%
v�
�]� Version,Author,Purpose,Program,2.00 (08-Dec-1989),Anon,1stWord+ File Converter,!1stFile
��
�
� ݤWimpLib_NoneMarked:�I%
�,�I%=0 � files:buffer%!(I%*4)=handle%(I%)
�2�:ș"Wimp_WhichIcon",view%,buffer%,1<<21,1<<21
��buffer%!0=-1 � =� � =�
�
� ��remove
�:�files=-1 dummy=�WimpLib_okbox(1,"No files cached!"):�
�4�loop=0 � files:buffer%!(loop*4)=handle%(loop):�
�0ș"Wimp_WhichIcon",view%,buffer%,1<<21,1<<21
�@�buffer%!0=-1 dummy=�WimpLib_okbox(1,"No files selected!"):�
del=0:ptr%=buffer%
ȕ !ptr%<>-1
0 del+=1:dead(del)=�WimpLib_WhichIcon(!ptr%)
' �WimpLib_FilerLose(!ptr%):ptr%+=4
*�
4�WimpLib_FilerTidy
>�WimpLib_FilerStart
H�
R
\ ݤWimpLib_WhichIcon(handle)
f�F%,M%:F%=-1
p� M%=0 � files
z � handle%(M%)=handle F%=M%
� �:=F%
�
� ��WimpLib_FilerLose(blk%!4)
�%killme=�WimpLib_WhichIcon(blk%!4)
�*blk%!0=view%:ș"Wimp_DeleteIcon",,blk%
�tag%?killme=0:�
�
���WimpLib_FilerTidy
�� I%,J%,K%,L%
�'� L%=1 � del:handle%(dead(L%))=-1:�
�� I%=1 � del
� position=0
� � J%=files � 0 � -1
$ � handle%(J%)=-1 position=J%
�
� K%=position � 76
$= Ȕ handle%(K%),handle%(K%+1):Ȕ path$(K%),path$(K%+1)
.9 Ȕ name$(K%),name$(K%+1):Ȕ type$(K%),type$(K%+1)
8 �
B�
Lfiles-=del
V�
`
jݤknownpath(sn$)
t�F%,I%:F%=�
~�I%=0 � files
� �sn$=name$(I%) F%=�
� �:=F%
�
�#��WimpLib_Flag:�flag%:flag%=0:�
�,�"Enter bit : "bit:�bit>=0 flag%+=1<<bit
��bit<0:� ~flag%:�
�
���convert(D%,F$)
� Ȏ F$ �
�" � "FFF":�to(D%,"text","FFF")
�& � "AF8":�to(D%,"1stWord+","AF8")
��
�
��to(D%,text$,type$)
:�files=-1 dummy=�WimpLib_okbox(1,"No files cached!"):�
(4�loop=0 � files:buffer%!(loop*4)=handle%(loop):�
20ș"Wimp_WhichIcon",view%,buffer%,1<<21,1<<21
<@�buffer%!0=-1 dummy=�WimpLib_okbox(1,"No files selected!"):�
F7del=0:conv=0:ptr%=buffer%:scrap%=�:ș"Hourglass_On"
Pȕ !ptr%<>-1
ZO N$=path$(�WimpLib_WhichIcon(!ptr%)):uni$=type$(�WimpLib_WhichIcon(!ptr%))
d. �type$="FFF" � uni$="AF8" �change_to_fff
n. �type$="AF8" � uni$="FFF" �change_to_1wp
x �("ACCESS "+N$+" WR")
�A �scrap% �("DELETE "+N$):�("RENAME <1stFile$Dir>.Scrap "+N$)
� �("SETTYPE "+N$+" "+type$)
�, type$(�WimpLib_WhichIcon(!ptr%))=type$
�Q del+=1:dead(del)=�WimpLib_WhichIcon(!ptr%):tag%?�WimpLib_WhichIcon(!ptr%)=1
�# �D% �WimpLib_FilerLose(!ptr%)
�
ptr%+=4
� �:�D% �WimpLib_FilerTidy
�+�WimpLib_FilerStart:ș"Hourglass_Off":�
�
�<��change_to_1wp:� S%,E%,C%,X%,Y%,H%:H%=�:X%=0:Y%=0:L%=65
�'S%=�(N$):�#S%=&1F �#S%=&30 �#S%:�
�(scrap%=�:E%=�("<1stFile$Dir>.Scrap")
�,��DVN:� C%=1 � 110:� V$:�#E%,�("&"+V$):�
�
C%=�#S%:X%+=1:Y%+=1
Ȏ C% �
"7 � &20:� X%>L% �#E%,&1E:�#E%,&0A:X%=0 � �#E%,&1E
, � &09,&0D,&DD:�#E%,&0A
6 � &02:�green
@ � &81:�ViewRuler
J$ � &1C,&1D:�ViewHighlight(C%)
T � &80:�embedded
^ �#E%,C%
h �
r
� �#S%
|
�#S%:�#E%
��
�
�)��change_to_fff:� S%,E%,C%,O%,N%:O%=0
�:S%=�(N$):scrap%=�:�#S%=110:E%=�("<1stFile$Dir>.Scrap")
��
� C%=�#S%
� Ȏ � �
� � C%=&20:�#E%,&20
�! � C%=&0A � O%<>&1E:�#E%,&0A
� � C%=&1E:�#E%,&20
� � C%=&1B:�#S%=�#S%+1
�: � C%=&39 � O%=&1F:�:O%=�#S%:�O%=&5D:�#S%=�#S%+3:O%=0
� � C%>&1F:�#E%,C%
�
O%=C%
� �#S%
&�#S%
0�#E%
:�
D
N ��green
X� C%,F%,G%,P%,o$:G%=�
b�
l o$=""
v �
�' C%=�#S%:�C%>96 �C%<132 C%-=32
�? F%=(C%=&02 � C%=&07 � C%=&0D � �#S%):� � F% o$+=�(C%)
� � F%
� � C%<>&02 G%=�
�
Ȏ o$ �
� � "US":o$=�&1B+�&88
� � "ES83,0":o$=�&1B+�&90
�. � "DE","UE","ES84","ES53":o$=�&1B+�&80
� � "DS":o$=�&1B+�&81
� � "ES52":o$=�&1B+�&84
� � "ES83,1":o$=�&1B+�&A0
�
�5 o$=�&1B+�&81+�&1B+�&88+�&1B+�&84+o$+�&1B+�&80
�
$ � P%=1 � �o$:�#E%,�(�o$,P%)):�
� � G%
�
*
4��ViewRuler
>� C%:L%=0:�#S%=�#S%+2
H&�#E%,&A:�#E%,&1F:�#E%,&39:�#E%,&5B
R�
\ C%=�#S%:L%+=1
f
Ȏ C% �
p � &2A:�#E%,&7F
z: � &0D:�#E%,&5D:�#E%,&30:�#E%,&30:�#E%,&31:�#E%,&0A
�
�! �C%<>&3C �C%<>&3E �#E%,C%
� �
� � C%=&0D � �#S%:X%=0:L%-=1
��
�
���ViewHighlight(C%)
� �#E%,&1B
�B� H% �#E%,&80:H%=� � H%=�:� C%=&1C �#E%,&88 � �C%=&1D �#E%,&81
��
�
���embedded
�#� C%:�#E%,&0A:�#E%,&5E:�#E%,&5E
�
C%=�#S%
9 � C%=&1C � C%=&1D �highlight(C%) �� C%<>&0D �#E%,C%
$� C%=&0D � �#S%
.�#E%,&0A:X%=0
8�
B
L5� 1stWord+ Default Ruler (PICA, Justification On)
VG� 1F,30,36,36,30,31,30,33,30,33,30,35,38,30,30,0A,1F,31,1F,1F,0A,1F
`G� 32,1F,23,1F,0A,1F,46,30,31,31,30,30,33,30,0A,1F,39,5B,2E,2E,2E,2E
jG� 7F,2E,2E,2E,2E,7F,2E,2E,2E,2E,7F,2E,2E,2E,2E,7F,2E,2E,2E,2E,7F,2E
tG� 2E,2E,2E,7F,2E,2E,2E,2E,7F,2E,2E,2E,2E,7F,2E,2E,2E,2E,7F,2E,2E,2E
~G� 2E,7F,2E,2E,2E,2E,7F,2E,2E,2E,2E,7F,2E,2E,2E,5D,30,30,31,0A,1B,80
� 00000000 0d 00 0a 1e f4 20 3e 3c 31 73 74 46 69 6c 65 24 |..... ><1stFile$|
00000010 44 69 72 3e 2e 21 52 75 6e 49 6d 61 67 65 0d 00 |Dir>.!RunImage..|
00000020 14 26 f4 20 31 73 74 20 57 6f 72 64 2b 20 74 6f |.&. 1st Word+ to|
00000030 20 54 65 78 74 20 66 69 6c 65 20 63 6f 6e 76 65 | Text file conve|
00000040 72 74 65 72 0d 00 1e 25 f4 20 42 61 73 65 64 20 |rter...%. Based |
00000050 6f 6e 20 73 6f 6d 65 20 63 6f 64 65 20 69 6e 20 |on some code in |
00000060 52 49 53 43 20 55 73 65 72 0d 00 28 39 f4 20 41 |RISC User..(9. A|
00000070 6e 64 20 74 68 61 74 20 73 61 79 73 20 42 41 53 |nd that says BAS|
00000080 45 44 20 2d 20 77 65 20 77 72 6f 74 65 20 74 68 |ED - we wrote th|
00000090 65 20 72 6f 75 74 69 6e 65 73 20 6f 75 72 73 65 |e routines ourse|
000000a0 6c 66 0d 00 32 24 f4 20 75 73 69 6e 67 20 74 68 |lf..2$. using th|
000000b0 65 20 52 49 53 43 20 6f 6e 65 73 20 61 73 20 61 |e RISC ones as a|
000000c0 20 6d 6f 64 65 6c 0d 00 37 23 f4 20 43 61 6c 6c | model..7#. Call|
000000d0 20 75 73 20 6f 6e 20 43 72 79 74 6f 6e 20 61 63 | us on Cryton ac|
000000e0 63 6f 75 6e 74 20 23 34 31 0d 00 3c 04 0d 00 46 |count #41..<...F|
000000f0 0f f2 69 6e 69 74 69 61 6c 69 73 65 0d 00 50 16 |..initialise..P.|
00000100 ee 20 85 20 f2 57 69 6d 70 4c 69 62 5f 45 72 72 |. . .WimpLib_Err|
00000110 6f 72 0d 00 5a 05 f5 0d 00 64 28 20 20 c8 99 22 |or..Z....d( .."|
00000120 57 69 6d 70 5f 50 6f 6c 6c 22 2c 6d 61 73 6b 25 |Wimp_Poll",mask%|
00000130 2c 62 6c 6b 25 20 b8 20 72 65 61 73 6f 6e 25 0d |,blk% . reason%.|
00000140 00 6e 12 20 20 c8 8e 20 72 65 61 73 6f 6e 25 20 |.n. .. reason% |
00000150 ca 0d 00 78 25 20 20 20 20 c9 20 32 3a c8 99 22 |...x% . 2:.."|
00000160 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 |Wimp_OpenWindow"|
00000170 2c 2c 62 6c 6b 25 0d 00 82 26 20 20 20 20 c9 20 |,,blk%...& . |
00000180 33 3a c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 57 |3:.."Wimp_CloseW|
00000190 69 6e 64 6f 77 22 2c 2c 62 6c 6b 25 0d 00 8c 14 |indow",,blk%....|
000001a0 20 20 20 20 c9 20 36 3a f2 62 75 74 74 6f 6e 73 | . 6:.buttons|
000001b0 0d 00 96 1f 20 20 20 20 c9 20 39 3a f2 57 69 6d |.... . 9:.Wim|
000001c0 70 4c 69 62 5f 44 65 63 6f 64 65 4d 65 6e 75 0d |pLib_DecodeMenu.|
000001d0 00 a0 21 20 20 20 20 c9 20 31 37 2c 31 38 3a f2 |..! . 17,18:.|
000001e0 57 69 6d 70 4c 69 62 5f 49 6e 63 6f 6d 69 6e 67 |WimpLib_Incoming|
000001f0 0d 00 aa 07 20 20 cb 0d 00 b4 0b fd 20 71 75 69 |.... ...... qui|
00000200 74 25 0d 00 be 16 c8 99 22 57 69 6d 70 5f 43 6c |t%......"Wimp_Cl|
00000210 6f 73 65 44 6f 77 6e 22 0d 00 c8 05 e0 0d 00 d2 |oseDown"........|
00000220 04 0d 00 dc 10 dd f2 69 6e 69 74 69 61 6c 69 73 |.......initialis|
00000230 65 0d 00 e6 13 f2 57 69 6d 70 4c 69 62 5f 57 69 |e.....WimpLib_Wi|
00000240 6d 70 4f 6e 0d 00 f0 15 f2 63 72 65 61 74 65 5f |mpOn.....create_|
00000250 76 61 72 69 61 62 6c 65 73 0d 00 fa 1f f2 57 69 |variables.....Wi|
00000260 6d 70 4c 69 62 5f 49 63 6e 42 61 72 28 22 21 31 |mpLib_IcnBar("!1|
00000270 73 74 46 69 6c 65 22 29 0d 01 04 18 f2 57 69 6d |stFile").....Wim|
00000280 70 4c 69 62 5f 4d 61 6b 65 49 6e 66 6f 42 6f 78 |pLib_MakeInfoBox|
00000290 0d 01 0e 16 f2 57 69 6d 70 4c 69 62 5f 57 69 6e |.....WimpLib_Win|
000002a0 64 6f 77 42 6c 6b 0d 01 18 27 c8 99 22 57 69 6d |dowBlk...'.."Wim|
000002b0 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 2c |p_CreateWindow",|
000002c0 2c 62 6c 6b 25 20 b8 20 76 69 65 77 25 0d 01 22 |,blk% . view%.."|
000002d0 05 e1 0d 01 2c 04 0d 01 36 14 dd f2 57 69 6d 70 |....,...6...Wimp|
000002e0 4c 69 62 5f 57 69 6d 70 4f 6e 0d 01 40 43 c8 99 |Lib_WimpOn..@C..|
000002f0 22 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 73 65 |"Wimp_Initialise|
00000300 22 2c 32 30 30 2c 26 34 42 35 33 34 31 35 34 2c |",200,&4B534154,|
00000310 22 31 77 70 20 46 69 6c 65 20 43 6f 6e 76 65 72 |"1wp File Conver|
00000320 74 65 72 22 20 b8 20 2c 74 61 73 6b 25 0d 01 4a |ter" . ,task%..J|
00000330 05 e1 0d 01 54 04 0d 01 5e 16 dd f2 63 72 65 61 |....T...^...crea|
00000340 74 65 5f 76 61 72 69 61 62 6c 65 73 0d 01 68 47 |te_variables..hG|
00000350 de 20 62 6c 6b 25 20 32 30 30 30 2c 62 75 66 66 |. blk% 2000,buff|
00000360 65 72 25 20 33 30 30 2c 69 63 6f 6e 74 25 20 31 |er% 300,icont% 1|
00000370 32 2a 37 37 2c 69 63 6f 6e 73 25 20 31 32 2a 37 |2*77,icons% 12*7|
00000380 37 2c 69 73 70 63 25 20 32 30 30 2c 74 61 67 25 |7,ispc% 200,tag%|
00000390 20 37 37 0d 01 72 1a de 20 6d 65 6e 75 25 20 32 | 77..r.. menu% 2|
000003a0 35 36 2c 63 68 61 6e 67 65 25 20 37 37 0d 01 7c |56,change% 77..||
000003b0 38 de 20 70 61 74 68 24 28 37 37 29 2c 6e 61 6d |8. path$(77),nam|
000003c0 65 24 28 37 37 29 2c 68 61 6e 64 6c 65 25 28 37 |e$(77),handle%(7|
000003d0 37 29 2c 74 79 70 65 24 28 37 37 29 2c 64 65 61 |7),type$(77),dea|
000003e0 64 28 37 37 29 0d 01 86 21 6f 70 65 6e 25 3d a3 |d(77)...!open%=.|
000003f0 3a 71 75 69 74 25 3d a3 3a 24 74 61 67 25 3d c4 |:quit%=.:$tag%=.|
00000400 37 36 2c bd 30 29 0d 01 90 38 24 63 68 61 6e 67 |76,.0)...8$chang|
00000410 65 25 3d c4 37 36 2c bd 30 29 3a 6d 61 73 6b 25 |e%=.76,.0):mask%|
00000420 3d 26 37 38 44 3a 66 69 6c 65 73 3d 2d 31 3a 58 |=&78D:files=-1:X|
00000430 25 3d 31 30 30 3a 59 25 3d 38 30 30 3a e1 0d 01 |%=100:Y%=800:...|
00000440 9a 04 0d 01 a4 19 dd f2 57 69 6d 70 4c 69 62 5f |........WimpLib_|
00000450 49 63 6e 42 61 72 28 73 70 24 29 0d 01 ae 35 62 |IcnBar(sp$)...5b|
00000460 6c 6b 25 21 30 3d 2d 31 3a 62 6c 6b 25 21 34 3d |lk%!0=-1:blk%!4=|
00000470 30 3a 62 6c 6b 25 21 31 32 3d 36 38 3a 62 6c 6b |0:blk%!12=68:blk|
00000480 25 21 38 3d 30 3a 62 6c 6b 25 21 31 36 3d 36 38 |%!8=0:blk%!16=68|
00000490 0d 01 b8 20 62 6c 6b 25 21 32 30 3d 26 33 30 30 |... blk%!20=&300|
000004a0 32 3a 24 28 62 6c 6b 25 2b 32 34 29 3d 73 70 24 |2:$(blk%+24)=sp$|
000004b0 0d 01 c2 2a c8 99 22 57 69 6d 70 5f 43 72 65 61 |...*.."Wimp_Crea|
000004c0 74 65 49 63 6f 6e 22 2c 2c 62 6c 6b 25 20 b8 20 |teIcon",,blk% . |
000004d0 69 63 6f 6e 62 61 72 25 3a e1 0d 01 cc 04 0d 01 |iconbar%:.......|
000004e0 d6 16 dd f2 57 69 6d 70 4c 69 62 5f 49 6e 63 6f |....WimpLib_Inco|
000004f0 6d 69 6e 67 0d 01 e0 10 c8 8e 20 62 6c 6b 25 21 |ming...... blk%!|
00000500 31 36 20 ca 0d 01 ea 11 20 20 c9 20 30 3a 71 75 |16 ..... . 0:qu|
00000510 69 74 25 3d b9 0d 01 f4 1b 20 20 c9 20 33 3a f2 |it%=..... . 3:.|
00000520 57 69 6d 70 4c 69 62 5f 46 69 6c 65 72 41 64 64 |WimpLib_FilerAdd|
00000530 0d 01 fe 05 cb 0d 02 08 05 e1 0d 02 12 04 0d 02 |................|
00000540 1c 13 dd f2 57 69 6d 70 4c 69 62 5f 45 72 72 6f |....WimpLib_Erro|
00000550 72 0d 02 26 35 62 6c 6b 25 21 30 3d 9f 3a 24 28 |r..&5blk%!0=.:$(|
00000560 62 6c 6b 25 2b 34 29 3d f6 24 2b 22 3a 20 69 6e |blk%+4)=.$+": in|
00000570 74 65 72 6e 61 6c 20 65 72 72 6f 72 20 63 6f 64 |ternal error cod|
00000580 65 20 22 2b c3 9e 0d 02 30 44 c8 99 22 57 69 6d |e "+....0D.."Wim|
00000590 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 22 2c 62 |p_ReportError",b|
000005a0 6c 6b 25 2c 33 2c 22 21 31 73 74 46 69 6c 65 22 |lk%,3,"!1stFile"|
000005b0 20 b8 20 2c 62 75 74 74 25 3a e7 62 75 74 74 25 | . ,butt%:.butt%|
000005c0 3d 31 20 71 75 69 74 25 3d b9 0d 02 3a 05 e1 0d |=1 quit%=...:...|
000005d0 02 44 04 0d 02 4e 1d dd a4 57 69 6d 70 4c 69 62 |.D...N...WimpLib|
000005e0 5f 6f 6b 62 6f 78 28 66 6c 61 67 25 2c 74 24 29 |_okbox(flag%,t$)|
000005f0 0d 02 58 19 62 6c 6b 25 21 30 3d 30 3a 24 28 62 |..X.blk%!0=0:$(b|
00000600 6c 6b 25 2b 34 29 3d 74 24 0d 02 62 39 c8 99 22 |lk%+4)=t$..b9.."|
00000610 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 |Wimp_ReportError|
00000620 22 2c 62 6c 6b 25 2c 66 6c 61 67 25 2c 22 21 31 |",blk%,flag%,"!1|
00000630 73 74 46 69 6c 65 22 20 b8 20 2c 62 75 74 74 6f |stFile" . ,butto|
00000640 6e 25 0d 02 6c 16 e7 62 75 74 74 6f 6e 25 3d 31 |n%..l..button%=1|
00000650 20 3d b9 20 8b 20 3d a3 0d 02 76 04 0d 02 80 25 | =. . =...v....%|
00000660 dd f2 57 69 6d 70 4c 69 62 5f 53 69 6d 70 6c 65 |..WimpLib_Simple|
00000670 4d 65 6e 75 28 48 25 2c 57 25 2c 6d 65 6e 75 24 |Menu(H%,W%,menu$|
00000680 29 0d 02 8a 37 6d 65 6e 75 25 21 30 3d 48 25 3a |)...7menu%!0=H%:|
00000690 70 74 72 25 3d 6d 65 6e 75 25 2b 34 3a 24 70 74 |ptr%=menu%+4:$pt|
000006a0 72 25 3d c0 6d 65 6e 75 24 2c a7 6d 65 6e 75 24 |r%=.menu$,.menu$|
000006b0 2c 22 7c 22 29 2d 31 29 0d 02 94 41 6d 65 6e 75 |,"|")-1)...Amenu|
000006c0 24 3d c1 6d 65 6e 75 24 2c a7 6d 65 6e 75 24 2c |$=.menu$,.menu$,|
000006d0 22 7c 22 29 2b 31 29 2b 22 7c 22 3a 70 74 72 25 |"|")+1)+"|":ptr%|
000006e0 3f 31 32 3d 37 3a 70 74 72 25 3f 31 33 3d 32 3a |?12=7:ptr%?13=2:|
000006f0 70 74 72 25 3f 31 34 3d 37 0d 02 9e 39 70 74 72 |ptr%?14=7...9ptr|
00000700 25 3f 31 35 3d 30 3a 70 74 72 25 21 31 36 3d 57 |%?15=0:ptr%!16=W|
00000710 25 2a 31 36 3a 70 74 72 25 21 32 30 3d 34 34 3a |%*16:ptr%!20=44:|
00000720 70 74 72 25 21 32 34 3d 30 3a 70 74 72 25 2b 3d |ptr%!24=0:ptr%+=|
00000730 32 38 0d 02 a8 12 c8 95 20 a7 6d 65 6e 75 24 2c |28...... .menu$,|
00000740 22 7c 22 29 0d 02 b2 28 20 20 70 74 72 25 21 30 |"|")...( ptr%!0|
00000750 3d 30 3a 70 74 72 25 21 34 3d 2d 31 3a 70 74 72 |=0:ptr%!4=-1:ptr|
00000760 25 21 38 3d 26 37 30 30 30 30 32 31 0d 02 bc 26 |%!8=&7000021...&|
00000770 20 20 24 28 70 74 72 25 2b 31 32 29 3d c0 6d 65 | $(ptr%+12)=.me|
00000780 6e 75 24 2c a7 6d 65 6e 75 24 2c 22 7c 22 29 2d |nu$,.menu$,"|")-|
00000790 31 29 0d 02 c6 2a 20 20 6d 65 6e 75 24 3d c1 6d |1)...* menu$=.m|
000007a0 65 6e 75 24 2c a7 6d 65 6e 75 24 2c 22 7c 22 29 |enu$,.menu$,"|")|
000007b0 2b 31 29 3a 70 74 72 25 2b 3d 32 34 0d 02 d0 05 |+1):ptr%+=24....|
000007c0 ce 0d 02 da 1b 70 74 72 25 21 2d 32 34 3d 70 74 |.....ptr%!-24=pt|
000007d0 72 25 21 2d 32 34 20 82 20 26 38 30 0d 02 e4 05 |r%!-24 . &80....|
000007e0 e1 0d 02 ee 04 0d 02 f8 0d dd f2 62 75 74 74 6f |...........butto|
000007f0 6e 73 0d 03 02 07 ea 49 25 0d 03 0c 10 c8 8e 20 |ns.....I%...... |
00000800 62 6c 6b 25 21 31 32 20 ca 0d 03 16 1c 20 20 c9 |blk%!12 ..... .|
00000810 20 2d 32 20 20 20 20 20 20 20 3a 20 f4 20 49 63 | -2 : . Ic|
00000820 6f 6e 62 61 72 0d 03 20 12 20 20 c8 8e 20 62 6c |onbar.. . .. bl|
00000830 6b 25 21 31 36 20 ca 0d 03 2a 12 20 20 20 20 c9 |k%!16 ...*. .|
00000840 20 69 63 6f 6e 62 61 72 25 0d 03 34 13 20 20 20 | iconbar%..4. |
00000850 20 c8 8e 20 62 6c 6b 25 21 38 20 ca 0d 03 3e 0d | .. blk%!8 ...>.|
00000860 20 20 20 20 20 20 c9 20 32 0d 03 48 36 20 20 20 | . 2..H6 |
00000870 20 20 20 f2 57 69 6d 70 4c 69 62 5f 53 69 6d 70 | .WimpLib_Simp|
00000880 6c 65 4d 65 6e 75 28 30 2c 39 2c 22 31 73 74 46 |leMenu(0,9,"1stF|
00000890 69 6c 65 7c 49 6e 66 6f 7c 51 75 69 74 22 29 0d |ile|Info|Quit").|
000008a0 03 52 49 20 20 20 20 20 20 6d 65 6e 75 25 21 28 |.RI menu%!(|
000008b0 34 2b 32 38 2b 34 29 3d 69 6e 66 6f 25 3a c8 99 |4+28+4)=info%:..|
000008c0 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 |"Wimp_CreateMenu|
000008d0 22 2c 2c 6d 65 6e 75 25 2b 34 2c 62 6c 6b 25 21 |",,menu%+4,blk%!|
000008e0 30 2d 36 34 2c 31 38 34 0d 03 5c 0d 20 20 20 20 |0-64,184..\. |
000008f0 20 20 c9 20 34 0d 03 66 16 20 20 20 20 20 20 e7 | . 4..f. .|
00000900 66 69 6c 65 73 3c 3e 2d 31 20 8c 0d 03 70 36 20 |files<>-1 ...p6 |
00000910 20 20 20 20 20 20 20 62 6c 6b 25 21 30 3d 76 69 | blk%!0=vi|
00000920 65 77 25 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 |ew%:.."Wimp_GetW|
00000930 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 6c 6b |indowState",,blk|
00000940 25 0d 03 7a 30 20 20 20 20 20 20 20 20 62 6c 6b |%..z0 blk|
00000950 25 21 32 38 3d 2d 31 3a c8 99 22 57 69 6d 70 5f |%!28=-1:.."Wimp_|
00000960 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 62 6c 6b |OpenWindow",,blk|
00000970 25 0d 03 84 0b 20 20 20 20 20 20 cd 0d 03 8e 09 |%.... .....|
00000980 20 20 20 20 cb 0d 03 98 07 20 20 cb 0d 03 a2 0d | ..... .....|
00000990 20 20 c9 20 76 69 65 77 25 0d 03 ac 11 20 20 c8 | . view%.... .|
000009a0 8e 20 62 6c 6b 25 21 38 20 ca 0d 03 b6 0b 20 20 |. blk%!8 ..... |
000009b0 20 20 c9 20 32 0d 03 c0 4b 20 20 20 20 e7 a4 57 | . 2...K ..W|
000009c0 69 6d 70 4c 69 62 5f 4e 6f 6e 65 4d 61 72 6b 65 |impLib_NoneMarke|
000009d0 64 3d b9 20 80 20 62 6c 6b 25 21 31 36 3e 3d 30 |d=. . blk%!16>=0|
000009e0 20 f2 57 69 6d 70 4c 69 62 5f 4d 61 72 6b 55 6e | .WimpLib_MarkUn|
000009f0 64 65 72 28 76 69 65 77 25 2c 32 31 2c 32 31 29 |der(view%,21,21)|
00000a00 0d 03 ca 3f 20 20 20 20 f2 57 69 6d 70 4c 69 62 |...? .WimpLib|
00000a10 5f 53 69 6d 70 6c 65 4d 65 6e 75 28 31 2c 39 2c |_SimpleMenu(1,9,|
00000a20 22 31 73 74 46 69 6c 65 7c 54 65 78 74 7c 31 73 |"1stFile|Text|1s|
00000a30 74 57 6f 72 64 2b 7c 52 65 6d 6f 76 65 22 29 0d |tWord+|Remove").|
00000a40 03 d4 47 20 20 20 20 6d 65 6e 75 25 21 28 34 2b |..G menu%!(4+|
00000a50 32 38 2b 32 34 29 3d 32 3a c8 99 22 57 69 6d 70 |28+24)=2:.."Wimp|
00000a60 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 6d 65 |_CreateMenu",,me|
00000a70 6e 75 25 2b 34 2c 62 6c 6b 25 21 30 2d 36 34 2c |nu%+4,blk%!0-64,|
00000a80 62 6c 6b 25 21 34 0d 03 de 07 20 20 cb 0d 03 e8 |blk%!4.... ....|
00000a90 05 cb 0d 03 f2 05 e1 0d 03 fc 04 0d 04 06 24 dd |..............$.|
00000aa0 f2 57 69 6d 70 4c 69 62 5f 4d 61 72 6b 55 6e 64 |.WimpLib_MarkUnd|
00000ab0 65 72 28 68 61 6e 2c 65 6f 72 2c 63 6c 72 29 0d |er(han,eor,clr).|
00000ac0 04 10 41 62 6c 6b 25 21 31 30 30 3d 68 61 6e 3a |..Ablk%!100=han:|
00000ad0 62 6c 6b 25 21 31 30 34 3d 62 6c 6b 25 21 31 36 |blk%!104=blk%!16|
00000ae0 3a 62 6c 6b 25 21 31 30 38 3d 31 3c 3c 65 6f 72 |:blk%!108=1<<eor|
00000af0 3a 62 6c 6b 25 21 31 31 32 3d 31 3c 3c 63 6c 72 |:blk%!112=1<<clr|
00000b00 0d 04 1a 25 c8 99 22 57 69 6d 70 5f 53 65 74 49 |...%.."Wimp_SetI|
00000b10 63 6f 6e 53 74 61 74 65 22 2c 2c 62 6c 6b 25 2b |conState",,blk%+|
00000b20 31 30 30 3a e1 0d 04 24 04 0d 04 2e 18 dd f2 57 |100:...$.......W|
00000b30 69 6d 70 4c 69 62 5f 44 65 63 6f 64 65 4d 65 6e |impLib_DecodeMen|
00000b40 75 0d 04 38 2e c8 99 22 57 69 6d 70 5f 44 65 63 |u..8..."Wimp_Dec|
00000b50 6f 64 65 4d 65 6e 75 22 2c 2c 6d 65 6e 75 25 2b |odeMenu",,menu%+|
00000b60 34 2c 62 6c 6b 25 2c 62 6c 6b 25 2b 31 32 38 0d |4,blk%,blk%+128.|
00000b70 04 42 27 63 68 6f 69 63 65 24 3d a4 57 69 6d 70 |.B'choice$=.Wimp|
00000b80 4c 69 62 5f 42 6c 6b 74 6f 56 61 72 28 62 6c 6b |Lib_BlktoVar(blk|
00000b90 25 2b 31 32 38 29 0d 04 4c 21 c8 99 22 57 69 6d |%+128)..L!.."Wim|
00000ba0 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 6e 66 6f |p_GetPointerInfo|
00000bb0 22 2c 2c 62 6c 6b 25 0d 04 56 17 44 25 3d b9 3a |",,blk%..V.D%=.:|
00000bc0 e7 62 6c 6b 25 21 38 3d 31 20 44 25 3d a3 0d 04 |.blk%!8=1 D%=...|
00000bd0 60 10 c8 8e 20 63 68 6f 69 63 65 24 20 ca 0d 04 |`... choice$ ...|
00000be0 6a 16 20 20 c9 20 22 51 75 69 74 22 3a 71 75 69 |j. . "Quit":qui|
00000bf0 74 25 3d b9 0d 04 74 18 20 20 c9 20 22 52 65 6d |t%=...t. . "Rem|
00000c00 6f 76 65 22 3a f2 72 65 6d 6f 76 65 0d 04 7e 21 |ove":.remove..~!|
00000c10 20 20 c9 20 22 54 65 78 74 22 3a f2 63 6f 6e 76 | . "Text":.conv|
00000c20 65 72 74 28 44 25 2c 22 46 46 46 22 29 0d 04 88 |ert(D%,"FFF")...|
00000c30 25 20 20 c9 20 22 31 73 74 57 6f 72 64 2b 22 3a |% . "1stWord+":|
00000c40 f2 63 6f 6e 76 65 72 74 28 44 25 2c 22 41 46 38 |.convert(D%,"AF8|
00000c50 22 29 0d 04 92 05 cb 0d 04 9c 21 c8 99 22 57 69 |")........!.."Wi|
00000c60 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 6e 66 |mp_GetPointerInf|
00000c70 6f 22 2c 2c 62 6c 6b 25 0d 04 a6 2a e7 62 6c 6b |o",,blk%...*.blk|
00000c80 25 21 38 3d 31 20 c8 99 22 57 69 6d 70 5f 43 72 |%!8=1 .."Wimp_Cr|
00000c90 65 61 74 65 4d 65 6e 75 22 2c 2c 6d 65 6e 75 25 |eateMenu",,menu%|
00000ca0 2b 34 0d 04 b0 05 e1 0d 04 ba 04 0d 04 c4 1c dd |+4..............|
00000cb0 a4 57 69 6d 70 4c 69 62 5f 47 65 74 4c 65 61 66 |.WimpLib_GetLeaf|
00000cc0 28 6c 65 61 66 24 29 0d 04 ce 12 c8 95 20 a7 6c |(leaf$)...... .l|
00000cd0 65 61 66 24 2c 22 2e 22 29 0d 04 d8 21 20 20 6c |eaf$,".")...! l|
00000ce0 65 61 66 24 3d c1 6c 65 61 66 24 2c a7 6c 65 61 |eaf$=.leaf$,.lea|
00000cf0 66 24 2c 22 2e 22 29 2b 31 29 0d 04 e2 0c ce 3a |f$,".")+1).....:|
00000d00 3d 6c 65 61 66 24 0d 04 ec 04 0d 04 f6 23 dd a4 |=leaf$.......#..|
00000d10 57 69 6d 70 4c 69 62 5f 42 6c 6b 74 6f 56 61 72 |WimpLib_BlktoVar|
00000d20 28 70 74 72 25 29 3a ea 20 6d 73 67 24 0d 05 00 |(ptr%):. msg$...|
00000d30 1b c8 95 20 3f 70 74 72 25 3c 3e 31 33 20 80 20 |... ?ptr%<>13 . |
00000d40 3f 70 74 72 25 3c 3e 30 0d 05 0a 1a 20 20 6d 73 |?ptr%<>0.... ms|
00000d50 67 24 2b 3d bd 3f 70 74 72 25 3a 70 74 72 25 2b |g$+=.?ptr%:ptr%+|
00000d60 3d 31 0d 05 14 0b ce 3a 3d 6d 73 67 24 0d 05 1e |=1.....:=msg$...|
00000d70 04 0d 05 28 16 dd f2 57 69 6d 70 4c 69 62 5f 46 |...(...WimpLib_F|
00000d80 69 6c 65 72 41 64 64 0d 05 32 32 74 79 70 65 25 |ilerAdd..22type%|
00000d90 3d 62 6c 6b 25 21 34 30 3a 70 61 74 68 24 3d a4 |=blk%!40:path$=.|
00000da0 57 69 6d 70 4c 69 62 5f 42 6c 6b 74 6f 56 61 72 |WimpLib_BlktoVar|
00000db0 28 62 6c 6b 25 2b 34 34 29 0d 05 3c 21 6e 61 6d |(blk%+44)..<!nam|
00000dc0 65 24 3d a4 57 69 6d 70 4c 69 62 5f 47 65 74 4c |e$=.WimpLib_GetL|
00000dd0 65 61 66 28 70 61 74 68 24 29 0d 05 46 41 e7 66 |eaf(path$)..FA.f|
00000de0 69 6c 65 73 3d 37 36 20 64 3d a4 57 69 6d 70 4c |iles=76 d=.WimpL|
00000df0 69 62 5f 6f 6b 62 6f 78 28 31 2c 22 59 6f 75 20 |ib_okbox(1,"You |
00000e00 63 61 6e 20 6f 6e 6c 79 20 63 61 63 68 65 20 37 |can only cache 7|
00000e10 37 20 66 69 6c 65 73 22 29 3a e1 0d 05 50 4d e7 |7 files"):...PM.|
00000e20 a4 6b 6e 6f 77 6e 70 61 74 68 28 6e 61 6d 65 24 |.knownpath(name$|
00000e30 29 20 64 3d a4 57 69 6d 70 4c 69 62 5f 6f 6b 62 |) d=.WimpLib_okb|
00000e40 6f 78 28 31 2c 22 27 22 2b 6e 61 6d 65 24 2b 22 |ox(1,"'"+name$+"|
00000e50 27 20 69 73 20 61 6c 72 65 61 64 79 20 63 61 63 |' is already cac|
00000e60 68 65 64 2e 22 29 3a e1 0d 05 5a 67 e7 74 79 70 |hed."):...Zg.typ|
00000e70 65 25 3c 3e 26 46 46 46 20 e7 74 79 70 65 25 3c |e%<>&FFF .type%<|
00000e80 3e 26 41 46 38 20 64 3d a4 57 69 6d 70 4c 69 62 |>&AF8 d=.WimpLib|
00000e90 5f 6f 6b 62 6f 78 28 31 2c 22 27 22 2b 6e 61 6d |_okbox(1,"'"+nam|
00000ea0 65 24 2b 22 27 20 69 73 20 6e 6f 74 20 61 20 31 |e$+"' is not a 1|
00000eb0 73 74 57 6f 72 64 2b 20 6f 72 20 70 6c 61 69 6e |stWord+ or plain|
00000ec0 20 74 65 78 74 20 66 69 6c 65 2e 22 29 3a e1 0d | text file."):..|
00000ed0 05 64 21 66 69 6c 65 73 2b 3d 31 3a 74 79 70 65 |.d!files+=1:type|
00000ee0 24 28 66 69 6c 65 73 29 3d c3 7e 74 79 70 65 25 |$(files)=.~type%|
00000ef0 0d 05 6e 29 70 61 74 68 24 28 66 69 6c 65 73 29 |..n)path$(files)|
00000f00 3d 70 61 74 68 24 3a 6e 61 6d 65 24 28 66 69 6c |=path$:name$(fil|
00000f10 65 73 29 3d 6e 61 6d 65 24 0d 05 78 32 ee 20 85 |es)=name$..x2. .|
00000f20 20 ea 20 74 79 70 65 24 28 66 69 6c 65 73 29 3d | . type$(files)=|
00000f30 22 78 78 78 22 3a f2 57 69 6d 70 4c 69 62 5f 46 |"xxx":.WimpLib_F|
00000f40 69 6c 65 72 53 74 61 72 74 3a e1 0d 05 82 30 c8 |ilerStart:....0.|
00000f50 99 22 57 69 6d 70 5f 53 70 72 69 74 65 4f 70 22 |."Wimp_SpriteOp"|
00000f60 2c 26 31 31 38 2c 2c 22 66 69 6c 65 5f 22 2b 74 |,&118,,"file_"+t|
00000f70 79 70 65 24 28 66 69 6c 65 73 29 0d 05 8c 19 f2 |ype$(files).....|
00000f80 57 69 6d 70 4c 69 62 5f 46 69 6c 65 72 53 74 61 |WimpLib_FilerSta|
00000f90 72 74 3a e1 0d 05 96 04 0d 05 a0 18 dd f2 57 69 |rt:...........Wi|
00000fa0 6d 70 4c 69 62 5f 46 69 6c 65 72 53 74 61 72 74 |mpLib_FilerStart|
00000fb0 0d 05 aa 38 62 6c 6b 25 21 30 3d 76 69 65 77 25 |...8blk%!0=view%|
00000fc0 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 |:.."Wimp_GetWind|
00000fd0 6f 77 53 74 61 74 65 22 2c 2c 62 6c 6b 25 3a 58 |owState",,blk%:X|
00000fe0 25 3d 62 6c 6b 25 21 34 0d 05 b4 3d 59 25 3d 62 |%=blk%!4...=Y%=b|
00000ff0 6c 6b 25 21 31 36 3a c8 99 22 57 69 6d 70 5f 44 |lk%!16:.."Wimp_D|
00001000 65 6c 65 74 65 57 69 6e 64 6f 77 22 2c 2c 62 6c |eleteWindow",,bl|
00001010 6b 25 3a f2 57 69 6d 70 4c 69 62 5f 57 69 6e 64 |k%:.WimpLib_Wind|
00001020 6f 77 42 6c 6b 0d 05 be 37 6c 69 6e 65 73 3d 28 |owBlk...7lines=(|
00001030 66 69 6c 65 73 2b 31 29 2f 34 3a e7 6c 69 6e 65 |files+1)/4:.line|
00001040 73 3c 3e a8 28 6c 69 6e 65 73 29 20 6c 69 6e 65 |s<>.(lines) line|
00001050 73 3d a8 28 6c 69 6e 65 73 29 2b 31 0d 05 c8 3a |s=.(lines)+1...:|
00001060 62 6c 6b 25 21 30 3d 58 25 3a e7 6c 69 6e 65 73 |blk%!0=X%:.lines|
00001070 3c 35 20 62 6c 6b 25 21 34 3d 59 25 2d 31 34 30 |<5 blk%!4=Y%-140|
00001080 2a 6c 69 6e 65 73 20 8b 20 62 6c 6b 25 21 34 3d |*lines . blk%!4=|
00001090 59 25 2d 35 36 30 0d 05 d2 4b 62 6c 6b 25 21 38 |Y%-560...Kblk%!8|
000010a0 3d 58 25 2b 38 34 30 3a 62 6c 6b 25 21 31 32 3d |=X%+840:blk%!12=|
000010b0 59 25 3a 62 6c 6b 25 21 34 30 3d 58 25 3a 62 6c |Y%:blk%!40=X%:bl|
000010c0 6b 25 21 34 34 3d 59 25 2d 31 34 30 2a 6c 69 6e |k%!44=Y%-140*lin|
000010d0 65 73 3a 62 6c 6b 25 21 34 38 3d 58 25 2b 38 34 |es:blk%!48=X%+84|
000010e0 30 0d 05 dc 3f 62 6c 6b 25 21 35 32 3d 59 25 3a |0...?blk%!52=Y%:|
000010f0 c8 99 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 |.."Wimp_CreateWi|
00001100 6e 64 6f 77 22 2c 2c 62 6c 6b 25 20 b8 20 76 69 |ndow",,blk% . vi|
00001110 65 77 25 3a 62 6c 6b 25 21 30 3d 76 69 65 77 25 |ew%:blk%!0=view%|
00001120 0d 05 e6 4a c8 99 22 57 69 6d 70 5f 47 65 74 57 |...J.."Wimp_GetW|
00001130 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 6c 6b |indowState",,blk|
00001140 25 3a 78 70 6f 73 3d 62 6c 6b 25 21 34 2d 31 39 |%:xpos=blk%!4-19|
00001150 36 3a 79 70 6f 73 3d 62 6c 6b 25 21 31 36 2d 31 |6:ypos=blk%!16-1|
00001160 32 34 3a 63 6f 75 6e 74 3d 30 0d 05 f0 10 e7 20 |24:count=0..... |
00001170 66 69 6c 65 73 3e 3d 30 20 8c 0d 05 fa 14 e3 20 |files>=0 ...... |
00001180 6c 6f 6f 70 3d 30 20 b8 20 66 69 6c 65 73 0d 06 |loop=0 . files..|
00001190 04 47 20 20 63 6f 75 6e 74 2b 3d 31 3a 78 70 6f |.G count+=1:xpo|
000011a0 73 2b 3d 31 39 36 3a e7 63 6f 75 6e 74 3d 35 20 |s+=196:.count=5 |
000011b0 78 70 6f 73 2d 3d 31 39 36 2a 28 63 6f 75 6e 74 |xpos-=196*(count|
000011c0 2d 31 29 3a 79 70 6f 73 2d 3d 31 33 36 3a 63 6f |-1):ypos-=136:co|
000011d0 75 6e 74 3d 31 0d 06 0e 4a 20 20 24 28 69 63 6f |unt=1...J $(ico|
000011e0 6e 74 25 2b 6c 6f 6f 70 2a 31 31 29 3d 6e 61 6d |nt%+loop*11)=nam|
000011f0 65 24 28 6c 6f 6f 70 29 3a 24 28 69 63 6f 6e 73 |e$(loop):$(icons|
00001200 25 2b 6c 6f 6f 70 2a 31 35 29 3d 22 53 66 69 6c |%+loop*15)="Sfil|
00001210 65 5f 22 2b 74 79 70 65 24 28 6c 6f 6f 70 29 0d |e_"+type$(loop).|
00001220 06 18 4c 20 20 62 6c 6b 25 21 30 3d 76 69 65 77 |..L blk%!0=view|
00001230 25 3a 62 6c 6b 25 21 34 3d 78 70 6f 73 3a 62 6c |%:blk%!4=xpos:bl|
00001240 6b 25 21 38 3d 79 70 6f 73 3a 62 6c 6b 25 21 31 |k%!8=ypos:blk%!1|
00001250 32 3d 78 70 6f 73 2b 31 38 30 3a 62 6c 6b 25 21 |2=xpos+180:blk%!|
00001260 31 36 3d 79 70 6f 73 2b 31 30 38 0d 06 22 36 20 |16=ypos+108.."6 |
00001270 20 62 6c 6b 25 21 32 30 3d 26 31 37 30 30 38 35 | blk%!20=&170085|
00001280 32 42 3a e7 28 74 61 67 25 3f 6c 6f 6f 70 29 20 |2B:.(tag%?loop) |
00001290 62 6c 6b 25 21 32 30 3d 26 31 37 32 30 38 35 32 |blk%!20=&1720852|
000012a0 42 0d 06 2c 33 20 20 62 6c 6b 25 21 32 34 3d 69 |B..,3 blk%!24=i|
000012b0 63 6f 6e 74 25 2b 6c 6f 6f 70 2a 31 31 3a 62 6c |cont%+loop*11:bl|
000012c0 6b 25 21 32 38 3d 69 63 6f 6e 73 25 2b 6c 6f 6f |k%!28=icons%+loo|
000012d0 70 2a 31 35 0d 06 36 48 20 20 62 6c 6b 25 21 33 |p*15..6H blk%!3|
000012e0 32 3d a9 28 6e 61 6d 65 24 28 6c 6f 6f 70 29 29 |2=.(name$(loop))|
000012f0 2b 31 3a c8 99 22 57 69 6d 70 5f 43 72 65 61 74 |+1:.."Wimp_Creat|
00001300 65 49 63 6f 6e 22 2c 2c 62 6c 6b 25 20 b8 20 68 |eIcon",,blk% . h|
00001310 61 6e 64 6c 65 25 28 6c 6f 6f 70 29 0d 06 40 05 |andle%(loop)..@.|
00001320 ed 0d 06 4a 05 cd 0d 06 54 48 62 6c 6b 25 21 30 |...J....THblk%!0|
00001330 3d 76 69 65 77 25 3a c8 99 22 57 69 6d 70 5f 47 |=view%:.."Wimp_G|
00001340 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c |etWindowState",,|
00001350 62 6c 6b 25 3a c8 99 22 57 69 6d 70 5f 4f 70 65 |blk%:.."Wimp_Ope|
00001360 6e 57 69 6e 64 6f 77 22 2c 2c 62 6c 6b 25 0d 06 |nWindow",,blk%..|
00001370 5e 3c c8 99 22 57 69 6d 70 5f 46 6f 72 63 65 52 |^<.."Wimp_ForceR|
00001380 65 64 72 61 77 22 2c 76 69 65 77 25 2c 62 6c 6b |edraw",view%,blk|
00001390 25 21 34 2c 62 6c 6b 25 21 38 2c 62 6c 6b 25 21 |%!4,blk%!8,blk%!|
000013a0 31 32 2c 62 6c 6b 25 21 31 36 0d 06 68 05 e1 0d |12,blk%!16..h...|
000013b0 06 72 04 0d 06 7c 17 dd f2 57 69 6d 70 4c 69 62 |.r...|...WimpLib|
000013c0 5f 57 69 6e 64 6f 77 42 6c 6b 0d 06 86 3e 24 62 |_WindowBlk...>$b|
000013d0 6c 6b 25 3d c4 38 38 2c bd 30 29 3a 62 6c 6b 25 |lk%=.88,.0):blk%|
000013e0 21 30 3d 33 30 30 3a 62 6c 6b 25 21 34 3d 33 30 |!0=300:blk%!4=30|
000013f0 30 3a 62 6c 6b 25 21 38 3d 38 30 30 3a 62 6c 6b |0:blk%!8=800:blk|
00001400 25 21 31 32 3d 38 30 30 0d 06 90 48 62 6c 6b 25 |%!12=800...Hblk%|
00001410 21 31 36 3d 30 3a 62 6c 6b 25 21 32 30 3d 30 3a |!16=0:blk%!20=0:|
00001420 62 6c 6b 25 21 32 34 3d 2d 31 3a 62 6c 6b 25 21 |blk%!24=-1:blk%!|
00001430 32 38 3d 26 42 46 30 30 30 30 31 32 3a 62 6c 6b |28=&BF000012:blk|
00001440 25 3f 33 32 3d 37 3a 62 6c 6b 25 3f 33 33 3d 32 |%?32=7:blk%?33=2|
00001450 0d 06 9a 36 62 6c 6b 25 3f 33 34 3d 37 3a 62 6c |...6blk%?34=7:bl|
00001460 6b 25 3f 33 35 3d 31 3a 62 6c 6b 25 3f 33 36 3d |k%?35=1:blk%?36=|
00001470 33 3a 62 6c 6b 25 3f 33 37 3d 31 3a 62 6c 6b 25 |3:blk%?37=1:blk%|
00001480 3f 33 38 3d 31 32 0d 06 a4 3a 62 6c 6b 25 21 34 |?38=12...:blk%!4|
00001490 30 3d 30 3a 62 6c 6b 25 21 34 34 3d 30 3a 62 6c |0=0:blk%!44=0:bl|
000014a0 6b 25 21 34 38 3d 31 30 30 30 3a 62 6c 6b 25 21 |k%!48=1000:blk%!|
000014b0 35 32 3d 39 30 30 3a 62 6c 6b 25 21 36 34 3d 31 |52=900:blk%!64=1|
000014c0 0d 06 ae 44 62 6c 6b 25 21 35 36 3d 26 31 39 3a |...Dblk%!56=&19:|
000014d0 62 6c 6b 25 21 36 30 3d 26 41 30 30 30 3a 62 6c |blk%!60=&A000:bl|
000014e0 6b 25 21 36 38 3d 31 30 2b 31 30 3c 3c 31 36 3a |k%!68=10+10<<16:|
000014f0 24 28 62 6c 6b 25 2b 37 32 29 3d 22 31 73 74 46 |$(blk%+72)="1stF|
00001500 69 6c 65 22 0d 06 b8 05 e1 0d 06 c2 04 0d 06 cc |ile"............|
00001510 19 dd f2 57 69 6d 70 4c 69 62 5f 4d 61 6b 65 49 |...WimpLib_MakeI|
00001520 6e 66 6f 42 6f 78 0d 06 d6 16 f2 57 69 6d 70 4c |nfoBox.....WimpL|
00001530 69 62 5f 57 69 6e 64 6f 77 42 6c 6b 0d 06 e0 31 |ib_WindowBlk...1|
00001540 62 6c 6b 25 21 30 3d 30 3a 62 6c 6b 25 21 34 3d |blk%!0=0:blk%!4=|
00001550 30 3a 62 6c 6b 25 21 38 3d 34 38 38 2b 35 2a 31 |0:blk%!8=488+5*1|
00001560 36 3a 62 6c 6b 25 21 31 32 3d 32 31 32 0d 06 ea |6:blk%!12=212...|
00001570 22 62 6c 6b 25 21 35 36 3d 26 31 31 39 3a 62 6c |"blk%!56=&119:bl|
00001580 6b 25 21 37 32 3d 69 73 70 63 25 2b 31 30 30 0d |k%!72=ispc%+100.|
00001590 06 f4 3b 62 6c 6b 25 21 37 36 3d 2d 31 3a 62 6c |..;blk%!76=-1:bl|
000015a0 6b 25 21 38 30 3d 31 39 3a 24 28 69 73 70 63 25 |k%!80=19:$(ispc%|
000015b0 2b 31 30 30 29 3d 22 41 62 6f 75 74 20 74 68 69 |+100)="About thi|
000015c0 73 20 50 72 6f 67 72 61 6d 22 0d 06 fe 39 62 6c |s Program"...9bl|
000015d0 6b 25 21 32 38 3d 26 38 34 30 30 30 30 31 32 3a |k%!28=&84000012:|
000015e0 c8 99 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 |.."Wimp_CreateWi|
000015f0 6e 64 6f 77 22 2c 2c 62 6c 6b 25 20 b8 20 69 6e |ndow",,blk% . in|
00001600 66 6f 25 0d 07 08 09 f7 8d 74 40 47 0d 07 12 0b |fo%......t@G....|
00001610 e3 49 25 3d 30 b8 33 0d 07 1c 3e 20 20 62 6c 6b |.I%=0.3...> blk|
00001620 25 21 30 3d 69 6e 66 6f 25 3a 62 6c 6b 25 21 34 |%!0=info%:blk%!4|
00001630 3d 38 3a 62 6c 6b 25 21 38 3d 34 2b 35 32 2a 49 |=8:blk%!8=4+52*I|
00001640 25 3a 62 6c 6b 25 21 31 32 3d 62 6c 6b 25 21 34 |%:blk%!12=blk%!4|
00001650 2b 39 2a 31 36 0d 07 26 40 20 20 62 6c 6b 25 21 |+9*16..&@ blk%!|
00001660 31 36 3d 62 6c 6b 25 21 38 2b 34 38 3a 62 6c 6b |16=blk%!8+48:blk|
00001670 25 21 32 30 3d 26 31 37 30 30 30 32 33 31 3a f3 |%!20=&17000231:.|
00001680 20 54 24 3a 24 28 62 6c 6b 25 2b 32 34 29 3d 54 | T$:$(blk%+24)=T|
00001690 24 2b 22 3a 22 0d 07 30 1f 20 20 c8 99 22 57 69 |$+":"..0. .."Wi|
000016a0 6d 70 5f 43 72 65 61 74 65 49 63 6f 6e 22 2c 2c |mp_CreateIcon",,|
000016b0 62 6c 6b 25 0d 07 3a 05 ed 0d 07 44 0b e3 49 25 |blk%..:....D..I%|
000016c0 3d 30 b8 33 0d 07 4e 45 20 20 62 6c 6b 25 21 30 |=0.3..NE blk%!0|
000016d0 3d 69 6e 66 6f 25 3a 62 6c 6b 25 21 34 3d 31 30 |=info%:blk%!4=10|
000016e0 2b 39 2a 31 36 3a 62 6c 6b 25 21 38 3d 34 2b 35 |+9*16:blk%!8=4+5|
000016f0 32 2a 49 25 3a 62 6c 6b 25 21 31 32 3d 62 6c 6b |2*I%:blk%!12=blk|
00001700 25 21 34 2b 32 35 2a 31 36 0d 07 58 3f 20 20 62 |%!4+25*16..X? b|
00001710 6c 6b 25 21 31 36 3d 62 6c 6b 25 21 38 2b 34 38 |lk%!16=blk%!8+48|
00001720 3a 62 6c 6b 25 21 32 30 3d 26 37 30 30 30 31 33 |:blk%!20=&700013|
00001730 44 3a f3 20 54 24 3a 24 28 69 73 70 63 25 2b 32 |D:. T$:$(ispc%+2|
00001740 35 2a 49 25 29 3d 54 24 0d 07 62 31 20 20 62 6c |5*I%)=T$..b1 bl|
00001750 6b 25 21 32 34 3d 69 73 70 63 25 2b 32 35 2a 49 |k%!24=ispc%+25*I|
00001760 25 3a 62 6c 6b 25 21 32 38 3d 30 3a 62 6c 6b 25 |%:blk%!28=0:blk%|
00001770 21 33 32 3d a9 54 24 2b 31 0d 07 6c 1f 20 20 c8 |!32=.T$+1..l. .|
00001780 99 22 57 69 6d 70 5f 43 72 65 61 74 65 49 63 6f |."Wimp_CreateIco|
00001790 6e 22 2c 2c 62 6c 6b 25 0d 07 76 05 ed 0d 07 80 |n",,blk%..v.....|
000017a0 5d dc 20 56 65 72 73 69 6f 6e 2c 41 75 74 68 6f |]. Version,Autho|
000017b0 72 2c 50 75 72 70 6f 73 65 2c 50 72 6f 67 72 61 |r,Purpose,Progra|
000017c0 6d 2c 32 2e 30 30 20 28 30 38 2d 44 65 63 2d 31 |m,2.00 (08-Dec-1|
000017d0 39 38 39 29 2c 41 6e 6f 6e 2c 31 73 74 57 6f 72 |989),Anon,1stWor|
000017e0 64 2b 20 46 69 6c 65 20 43 6f 6e 76 65 72 74 65 |d+ File Converte|
000017f0 72 2c 21 31 73 74 46 69 6c 65 0d 07 8a 05 e1 0d |r,!1stFile......|
00001800 07 94 04 0d 07 9e 1c dd a4 57 69 6d 70 4c 69 62 |.........WimpLib|
00001810 5f 4e 6f 6e 65 4d 61 72 6b 65 64 3a ea 49 25 0d |_NoneMarked:.I%.|
00001820 07 a8 2c e3 49 25 3d 30 20 b8 20 66 69 6c 65 73 |..,.I%=0 . files|
00001830 3a 62 75 66 66 65 72 25 21 28 49 25 2a 34 29 3d |:buffer%!(I%*4)=|
00001840 68 61 6e 64 6c 65 25 28 49 25 29 0d 07 b2 32 ed |handle%(I%)...2.|
00001850 3a c8 99 22 57 69 6d 70 5f 57 68 69 63 68 49 63 |:.."Wimp_WhichIc|
00001860 6f 6e 22 2c 76 69 65 77 25 2c 62 75 66 66 65 72 |on",view%,buffer|
00001870 25 2c 31 3c 3c 32 31 2c 31 3c 3c 32 31 0d 07 bc |%,1<<21,1<<21...|
00001880 1b e7 62 75 66 66 65 72 25 21 30 3d 2d 31 20 8c |..buffer%!0=-1 .|
00001890 20 3d b9 20 8b 20 3d a3 0d 07 c6 04 0d 07 d0 0c | =. . =.........|
000018a0 dd f2 72 65 6d 6f 76 65 0d 07 da 3a e7 66 69 6c |..remove...:.fil|
000018b0 65 73 3d 2d 31 20 64 75 6d 6d 79 3d a4 57 69 6d |es=-1 dummy=.Wim|
000018c0 70 4c 69 62 5f 6f 6b 62 6f 78 28 31 2c 22 4e 6f |pLib_okbox(1,"No|
000018d0 20 66 69 6c 65 73 20 63 61 63 68 65 64 21 22 29 | files cached!")|
000018e0 3a e1 0d 07 e4 34 e3 6c 6f 6f 70 3d 30 20 b8 20 |:....4.loop=0 . |
000018f0 66 69 6c 65 73 3a 62 75 66 66 65 72 25 21 28 6c |files:buffer%!(l|
00001900 6f 6f 70 2a 34 29 3d 68 61 6e 64 6c 65 25 28 6c |oop*4)=handle%(l|
00001910 6f 6f 70 29 3a ed 0d 07 ee 30 c8 99 22 57 69 6d |oop):....0.."Wim|
00001920 70 5f 57 68 69 63 68 49 63 6f 6e 22 2c 76 69 65 |p_WhichIcon",vie|
00001930 77 25 2c 62 75 66 66 65 72 25 2c 31 3c 3c 32 31 |w%,buffer%,1<<21|
00001940 2c 31 3c 3c 32 31 0d 07 f8 40 e7 62 75 66 66 65 |,1<<21...@.buffe|
00001950 72 25 21 30 3d 2d 31 20 64 75 6d 6d 79 3d a4 57 |r%!0=-1 dummy=.W|
00001960 69 6d 70 4c 69 62 5f 6f 6b 62 6f 78 28 31 2c 22 |impLib_okbox(1,"|
00001970 4e 6f 20 66 69 6c 65 73 20 73 65 6c 65 63 74 65 |No files selecte|
00001980 64 21 22 29 3a e1 0d 08 02 16 64 65 6c 3d 30 3a |d!"):.....del=0:|
00001990 70 74 72 25 3d 62 75 66 66 65 72 25 0d 08 0c 10 |ptr%=buffer%....|
000019a0 c8 95 20 21 70 74 72 25 3c 3e 2d 31 0d 08 16 30 |.. !ptr%<>-1...0|
000019b0 20 20 64 65 6c 2b 3d 31 3a 64 65 61 64 28 64 65 | del+=1:dead(de|
000019c0 6c 29 3d a4 57 69 6d 70 4c 69 62 5f 57 68 69 63 |l)=.WimpLib_Whic|
000019d0 68 49 63 6f 6e 28 21 70 74 72 25 29 0d 08 20 27 |hIcon(!ptr%).. '|
000019e0 20 20 f2 57 69 6d 70 4c 69 62 5f 46 69 6c 65 72 | .WimpLib_Filer|
000019f0 4c 6f 73 65 28 21 70 74 72 25 29 3a 70 74 72 25 |Lose(!ptr%):ptr%|
00001a00 2b 3d 34 0d 08 2a 05 ce 0d 08 34 16 f2 57 69 6d |+=4..*....4..Wim|
00001a10 70 4c 69 62 5f 46 69 6c 65 72 54 69 64 79 0d 08 |pLib_FilerTidy..|
00001a20 3e 17 f2 57 69 6d 70 4c 69 62 5f 46 69 6c 65 72 |>..WimpLib_Filer|
00001a30 53 74 61 72 74 0d 08 48 05 e1 0d 08 52 04 0d 08 |Start..H....R...|
00001a40 5c 1f dd a4 57 69 6d 70 4c 69 62 5f 57 68 69 63 |\...WimpLib_Whic|
00001a50 68 49 63 6f 6e 28 68 61 6e 64 6c 65 29 0d 08 66 |hIcon(handle)..f|
00001a60 10 ea 46 25 2c 4d 25 3a 46 25 3d 2d 31 0d 08 70 |..F%,M%:F%=-1..p|
00001a70 12 e3 20 4d 25 3d 30 20 b8 20 66 69 6c 65 73 0d |.. M%=0 . files.|
00001a80 08 7a 1e e7 20 68 61 6e 64 6c 65 25 28 4d 25 29 |.z.. handle%(M%)|
00001a90 3d 68 61 6e 64 6c 65 20 46 25 3d 4d 25 0d 08 84 |=handle F%=M%...|
00001aa0 09 ed 3a 3d 46 25 0d 08 8e 04 0d 08 98 1f dd f2 |..:=F%..........|
00001ab0 57 69 6d 70 4c 69 62 5f 46 69 6c 65 72 4c 6f 73 |WimpLib_FilerLos|
00001ac0 65 28 62 6c 6b 25 21 34 29 0d 08 a2 25 6b 69 6c |e(blk%!4)...%kil|
00001ad0 6c 6d 65 3d a4 57 69 6d 70 4c 69 62 5f 57 68 69 |lme=.WimpLib_Whi|
00001ae0 63 68 49 63 6f 6e 28 62 6c 6b 25 21 34 29 0d 08 |chIcon(blk%!4)..|
00001af0 ac 2a 62 6c 6b 25 21 30 3d 76 69 65 77 25 3a c8 |.*blk%!0=view%:.|
00001b00 99 22 57 69 6d 70 5f 44 65 6c 65 74 65 49 63 6f |."Wimp_DeleteIco|
00001b10 6e 22 2c 2c 62 6c 6b 25 0d 08 b6 13 74 61 67 25 |n",,blk%....tag%|
00001b20 3f 6b 69 6c 6c 6d 65 3d 30 3a e1 0d 08 c0 04 0d |?killme=0:......|
00001b30 08 ca 17 dd f2 57 69 6d 70 4c 69 62 5f 46 69 6c |.....WimpLib_Fil|
00001b40 65 72 54 69 64 79 0d 08 d4 11 ea 20 49 25 2c 4a |erTidy..... I%,J|
00001b50 25 2c 4b 25 2c 4c 25 0d 08 de 27 e3 20 4c 25 3d |%,K%,L%...'. L%=|
00001b60 31 20 b8 20 64 65 6c 3a 68 61 6e 64 6c 65 25 28 |1 . del:handle%(|
00001b70 64 65 61 64 28 4c 25 29 29 3d 2d 31 3a ed 0d 08 |dead(L%))=-1:...|
00001b80 e8 10 e3 20 49 25 3d 31 20 b8 20 64 65 6c 0d 08 |... I%=1 . del..|
00001b90 f2 10 20 20 70 6f 73 69 74 69 6f 6e 3d 30 0d 08 |.. position=0..|
00001ba0 fc 19 20 20 e3 20 4a 25 3d 66 69 6c 65 73 20 b8 |.. . J%=files .|
00001bb0 20 30 20 88 20 2d 31 0d 09 06 24 20 20 20 20 e7 | 0 . -1...$ .|
00001bc0 20 68 61 6e 64 6c 65 25 28 4a 25 29 3d 2d 31 20 | handle%(J%)=-1 |
00001bd0 70 6f 73 69 74 69 6f 6e 3d 4a 25 0d 09 10 07 20 |position=J%.... |
00001be0 20 ed 0d 09 1a 18 20 20 e3 20 4b 25 3d 70 6f 73 | ..... . K%=pos|
00001bf0 69 74 69 6f 6e 20 b8 20 37 36 0d 09 24 3d 20 20 |ition . 76..$= |
00001c00 20 20 c8 94 20 68 61 6e 64 6c 65 25 28 4b 25 29 | .. handle%(K%)|
00001c10 2c 68 61 6e 64 6c 65 25 28 4b 25 2b 31 29 3a c8 |,handle%(K%+1):.|
00001c20 94 20 70 61 74 68 24 28 4b 25 29 2c 70 61 74 68 |. path$(K%),path|
00001c30 24 28 4b 25 2b 31 29 0d 09 2e 39 20 20 20 20 c8 |$(K%+1)...9 .|
00001c40 94 20 6e 61 6d 65 24 28 4b 25 29 2c 6e 61 6d 65 |. name$(K%),name|
00001c50 24 28 4b 25 2b 31 29 3a c8 94 20 74 79 70 65 24 |$(K%+1):.. type$|
00001c60 28 4b 25 29 2c 74 79 70 65 24 28 4b 25 2b 31 29 |(K%),type$(K%+1)|
00001c70 0d 09 38 07 20 20 ed 0d 09 42 05 ed 0d 09 4c 0e |..8. ...B....L.|
00001c80 66 69 6c 65 73 2d 3d 64 65 6c 0d 09 56 05 e1 0d |files-=del..V...|
00001c90 09 60 04 0d 09 6a 14 dd a4 6b 6e 6f 77 6e 70 61 |.`...j...knownpa|
00001ca0 74 68 28 73 6e 24 29 0d 09 74 0f ea 46 25 2c 49 |th(sn$)..t..F%,I|
00001cb0 25 3a 46 25 3d a3 0d 09 7e 11 e3 49 25 3d 30 20 |%:F%=...~..I%=0 |
00001cc0 b8 20 66 69 6c 65 73 0d 09 88 19 20 20 e7 73 6e |. files.... .sn|
00001cd0 24 3d 6e 61 6d 65 24 28 49 25 29 20 46 25 3d b9 |$=name$(I%) F%=.|
00001ce0 0d 09 92 09 ed 3a 3d 46 25 0d 09 9c 04 0d 09 a6 |.....:=F%.......|
00001cf0 23 dd f2 57 69 6d 70 4c 69 62 5f 46 6c 61 67 3a |#..WimpLib_Flag:|
00001d00 ea 66 6c 61 67 25 3a 66 6c 61 67 25 3d 30 3a f5 |.flag%:flag%=0:.|
00001d10 0d 09 b0 2c e8 22 45 6e 74 65 72 20 62 69 74 20 |...,."Enter bit |
00001d20 3a 20 22 62 69 74 3a e7 62 69 74 3e 3d 30 20 66 |: "bit:.bit>=0 f|
00001d30 6c 61 67 25 2b 3d 31 3c 3c 62 69 74 0d 09 ba 15 |lag%+=1<<bit....|
00001d40 fd 62 69 74 3c 30 3a f1 20 7e 66 6c 61 67 25 3a |.bit<0:. ~flag%:|
00001d50 e1 0d 09 c4 04 0d 09 ce 14 dd f2 63 6f 6e 76 65 |...........conve|
00001d60 72 74 28 44 25 2c 46 24 29 0d 09 d8 0b c8 8e 20 |rt(D%,F$)...... |
00001d70 46 24 20 ca 0d 09 e2 22 20 20 c9 20 22 46 46 46 |F$ ...." . "FFF|
00001d80 22 3a f2 74 6f 28 44 25 2c 22 74 65 78 74 22 2c |":.to(D%,"text",|
00001d90 22 46 46 46 22 29 0d 09 ec 26 20 20 c9 20 22 41 |"FFF")...& . "A|
00001da0 46 38 22 3a f2 74 6f 28 44 25 2c 22 31 73 74 57 |F8":.to(D%,"1stW|
00001db0 6f 72 64 2b 22 2c 22 41 46 38 22 29 0d 09 f6 05 |ord+","AF8")....|
00001dc0 cb 0d 0a 00 05 e1 0d 0a 0a 04 0d 0a 14 18 dd f2 |................|
00001dd0 74 6f 28 44 25 2c 74 65 78 74 24 2c 74 79 70 65 |to(D%,text$,type|
00001de0 24 29 0d 0a 1e 3a e7 66 69 6c 65 73 3d 2d 31 20 |$)...:.files=-1 |
00001df0 64 75 6d 6d 79 3d a4 57 69 6d 70 4c 69 62 5f 6f |dummy=.WimpLib_o|
00001e00 6b 62 6f 78 28 31 2c 22 4e 6f 20 66 69 6c 65 73 |kbox(1,"No files|
00001e10 20 63 61 63 68 65 64 21 22 29 3a e1 0d 0a 28 34 | cached!"):...(4|
00001e20 e3 6c 6f 6f 70 3d 30 20 b8 20 66 69 6c 65 73 3a |.loop=0 . files:|
00001e30 62 75 66 66 65 72 25 21 28 6c 6f 6f 70 2a 34 29 |buffer%!(loop*4)|
00001e40 3d 68 61 6e 64 6c 65 25 28 6c 6f 6f 70 29 3a ed |=handle%(loop):.|
00001e50 0d 0a 32 30 c8 99 22 57 69 6d 70 5f 57 68 69 63 |..20.."Wimp_Whic|
00001e60 68 49 63 6f 6e 22 2c 76 69 65 77 25 2c 62 75 66 |hIcon",view%,buf|
00001e70 66 65 72 25 2c 31 3c 3c 32 31 2c 31 3c 3c 32 31 |fer%,1<<21,1<<21|
00001e80 0d 0a 3c 40 e7 62 75 66 66 65 72 25 21 30 3d 2d |..<@.buffer%!0=-|
00001e90 31 20 64 75 6d 6d 79 3d a4 57 69 6d 70 4c 69 62 |1 dummy=.WimpLib|
00001ea0 5f 6f 6b 62 6f 78 28 31 2c 22 4e 6f 20 66 69 6c |_okbox(1,"No fil|
00001eb0 65 73 20 73 65 6c 65 63 74 65 64 21 22 29 3a e1 |es selected!"):.|
00001ec0 0d 0a 46 37 64 65 6c 3d 30 3a 63 6f 6e 76 3d 30 |..F7del=0:conv=0|
00001ed0 3a 70 74 72 25 3d 62 75 66 66 65 72 25 3a 73 63 |:ptr%=buffer%:sc|
00001ee0 72 61 70 25 3d a3 3a c8 99 22 48 6f 75 72 67 6c |rap%=.:.."Hourgl|
00001ef0 61 73 73 5f 4f 6e 22 0d 0a 50 10 c8 95 20 21 70 |ass_On"..P... !p|
00001f00 74 72 25 3c 3e 2d 31 0d 0a 5a 4f 20 20 4e 24 3d |tr%<>-1..ZO N$=|
00001f10 70 61 74 68 24 28 a4 57 69 6d 70 4c 69 62 5f 57 |path$(.WimpLib_W|
00001f20 68 69 63 68 49 63 6f 6e 28 21 70 74 72 25 29 29 |hichIcon(!ptr%))|
00001f30 3a 75 6e 69 24 3d 74 79 70 65 24 28 a4 57 69 6d |:uni$=type$(.Wim|
00001f40 70 4c 69 62 5f 57 68 69 63 68 49 63 6f 6e 28 21 |pLib_WhichIcon(!|
00001f50 70 74 72 25 29 29 0d 0a 64 2e 20 20 e7 74 79 70 |ptr%))..d. .typ|
00001f60 65 24 3d 22 46 46 46 22 20 80 20 75 6e 69 24 3d |e$="FFF" . uni$=|
00001f70 22 41 46 38 22 20 f2 63 68 61 6e 67 65 5f 74 6f |"AF8" .change_to|
00001f80 5f 66 66 66 0d 0a 6e 2e 20 20 e7 74 79 70 65 24 |_fff..n. .type$|
00001f90 3d 22 41 46 38 22 20 80 20 75 6e 69 24 3d 22 46 |="AF8" . uni$="F|
00001fa0 46 46 22 20 f2 63 68 61 6e 67 65 5f 74 6f 5f 31 |FF" .change_to_1|
00001fb0 77 70 0d 0a 78 1b 20 20 ff 28 22 41 43 43 45 53 |wp..x. .("ACCES|
00001fc0 53 20 22 2b 4e 24 2b 22 20 57 52 22 29 0d 0a 82 |S "+N$+" WR")...|
00001fd0 41 20 20 e7 73 63 72 61 70 25 20 ff 28 22 44 45 |A .scrap% .("DE|
00001fe0 4c 45 54 45 20 22 2b 4e 24 29 3a ff 28 22 52 45 |LETE "+N$):.("RE|
00001ff0 4e 41 4d 45 20 3c 31 73 74 46 69 6c 65 24 44 69 |NAME <1stFile$Di|
00002000 72 3e 2e 53 63 72 61 70 20 22 2b 4e 24 29 0d 0a |r>.Scrap "+N$)..|
00002010 8c 20 20 20 ff 28 22 53 45 54 54 59 50 45 20 22 |. .("SETTYPE "|
00002020 2b 4e 24 2b 22 20 22 2b 74 79 70 65 24 29 0d 0a |+N$+" "+type$)..|
00002030 96 2c 20 20 74 79 70 65 24 28 a4 57 69 6d 70 4c |., type$(.WimpL|
00002040 69 62 5f 57 68 69 63 68 49 63 6f 6e 28 21 70 74 |ib_WhichIcon(!pt|
00002050 72 25 29 29 3d 74 79 70 65 24 0d 0a a0 51 20 20 |r%))=type$...Q |
00002060 64 65 6c 2b 3d 31 3a 64 65 61 64 28 64 65 6c 29 |del+=1:dead(del)|
00002070 3d a4 57 69 6d 70 4c 69 62 5f 57 68 69 63 68 49 |=.WimpLib_WhichI|
00002080 63 6f 6e 28 21 70 74 72 25 29 3a 74 61 67 25 3f |con(!ptr%):tag%?|
00002090 a4 57 69 6d 70 4c 69 62 5f 57 68 69 63 68 49 63 |.WimpLib_WhichIc|
000020a0 6f 6e 28 21 70 74 72 25 29 3d 31 0d 0a aa 23 20 |on(!ptr%)=1...# |
000020b0 20 e7 44 25 20 f2 57 69 6d 70 4c 69 62 5f 46 69 | .D% .WimpLib_Fi|
000020c0 6c 65 72 4c 6f 73 65 28 21 70 74 72 25 29 0d 0a |lerLose(!ptr%)..|
000020d0 b4 0d 20 20 70 74 72 25 2b 3d 34 0d 0a be 1c ce |.. ptr%+=4.....|
000020e0 3a e7 44 25 20 f2 57 69 6d 70 4c 69 62 5f 46 69 |:.D% .WimpLib_Fi|
000020f0 6c 65 72 54 69 64 79 0d 0a c8 2b f2 57 69 6d 70 |lerTidy...+.Wimp|
00002100 4c 69 62 5f 46 69 6c 65 72 53 74 61 72 74 3a c8 |Lib_FilerStart:.|
00002110 99 22 48 6f 75 72 67 6c 61 73 73 5f 4f 66 66 22 |."Hourglass_Off"|
00002120 3a e1 0d 0a d2 04 0d 0a dc 3c dd f2 63 68 61 6e |:........<..chan|
00002130 67 65 5f 74 6f 5f 31 77 70 3a ea 20 53 25 2c 45 |ge_to_1wp:. S%,E|
00002140 25 2c 43 25 2c 58 25 2c 59 25 2c 48 25 3a 48 25 |%,C%,X%,Y%,H%:H%|
00002150 3d a3 3a 58 25 3d 30 3a 59 25 3d 30 3a 4c 25 3d |=.:X%=0:Y%=0:L%=|
00002160 36 35 0d 0a e6 27 53 25 3d ad 28 4e 24 29 3a e7 |65...'S%=.(N$):.|
00002170 9a 23 53 25 3d 26 31 46 20 e7 9a 23 53 25 3d 26 |.#S%=&1F ..#S%=&|
00002180 33 30 20 d9 23 53 25 3a e1 0d 0a f0 28 73 63 72 |30 .#S%:....(scr|
00002190 61 70 25 3d b9 3a 45 25 3d ae 28 22 3c 31 73 74 |ap%=.:E%=.("<1st|
000021a0 46 69 6c 65 24 44 69 72 3e 2e 53 63 72 61 70 22 |File$Dir>.Scrap"|
000021b0 29 0d 0a fa 2c f7 8d 44 56 4e 3a e3 20 43 25 3d |)...,..DVN:. C%=|
000021c0 31 20 b8 20 31 31 30 3a f3 20 56 24 3a d5 23 45 |1 . 110:. V$:.#E|
000021d0 25 2c a0 28 22 26 22 2b 56 24 29 3a ed 0d 0b 04 |%,.("&"+V$):....|
000021e0 05 f5 0d 0b 0e 19 20 20 43 25 3d 9a 23 53 25 3a |...... C%=.#S%:|
000021f0 58 25 2b 3d 31 3a 59 25 2b 3d 31 0d 0b 18 0d 20 |X%+=1:Y%+=1.... |
00002200 20 c8 8e 20 43 25 20 ca 0d 0b 22 37 20 20 20 20 | .. C% ..."7 |
00002210 c9 20 26 32 30 3a e7 20 58 25 3e 4c 25 20 d5 23 |. &20:. X%>L% .#|
00002220 45 25 2c 26 31 45 3a d5 23 45 25 2c 26 30 41 3a |E%,&1E:.#E%,&0A:|
00002230 58 25 3d 30 20 8b 20 d5 23 45 25 2c 26 31 45 0d |X%=0 . .#E%,&1E.|
00002240 0b 2c 1e 20 20 20 20 c9 20 26 30 39 2c 26 30 44 |.,. . &09,&0D|
00002250 2c 26 44 44 3a d5 23 45 25 2c 26 30 41 0d 0b 36 |,&DD:.#E%,&0A..6|
00002260 14 20 20 20 20 c9 20 26 30 32 3a f2 67 72 65 65 |. . &02:.gree|
00002270 6e 0d 0b 40 18 20 20 20 20 c9 20 26 38 31 3a f2 |n..@. . &81:.|
00002280 56 69 65 77 52 75 6c 65 72 0d 0b 4a 24 20 20 20 |ViewRuler..J$ |
00002290 20 c9 20 26 31 43 2c 26 31 44 3a f2 56 69 65 77 | . &1C,&1D:.View|
000022a0 48 69 67 68 6c 69 67 68 74 28 43 25 29 0d 0b 54 |Highlight(C%)..T|
000022b0 17 20 20 20 20 c9 20 26 38 30 3a f2 65 6d 62 65 |. . &80:.embe|
000022c0 64 64 65 64 0d 0b 5e 11 20 20 20 20 7f 20 d5 23 |dded..^. . .#|
000022d0 45 25 2c 43 25 0d 0b 68 07 20 20 cb 0d 0b 72 0a |E%,C%..h. ...r.|
000022e0 fd 20 c5 23 53 25 0d 0b 7c 0d d9 23 53 25 3a d9 |. .#S%..|..#S%:.|
000022f0 23 45 25 0d 0b 86 05 e1 0d 0b 90 04 0d 0b 9a 29 |#E%............)|
00002300 dd f2 63 68 61 6e 67 65 5f 74 6f 5f 66 66 66 3a |..change_to_fff:|
00002310 ea 20 53 25 2c 45 25 2c 43 25 2c 4f 25 2c 4e 25 |. S%,E%,C%,O%,N%|
00002320 3a 4f 25 3d 30 0d 0b a4 3a 53 25 3d ad 28 4e 24 |:O%=0...:S%=.(N$|
00002330 29 3a 73 63 72 61 70 25 3d b9 3a cf 23 53 25 3d |):scrap%=.:.#S%=|
00002340 31 31 30 3a 45 25 3d ae 28 22 3c 31 73 74 46 69 |110:E%=.("<1stFi|
00002350 6c 65 24 44 69 72 3e 2e 53 63 72 61 70 22 29 0d |le$Dir>.Scrap").|
00002360 0b ae 05 f5 0d 0b b8 0c 20 43 25 3d 9a 23 53 25 |........ C%=.#S%|
00002370 0d 0b c2 0b 20 c8 8e 20 b9 20 ca 0d 0b cc 17 20 |.... .. . ..... |
00002380 20 c9 20 43 25 3d 26 32 30 3a d5 23 45 25 2c 26 | . C%=&20:.#E%,&|
00002390 32 30 0d 0b d6 21 20 20 c9 20 43 25 3d 26 30 41 |20...! . C%=&0A|
000023a0 20 80 20 4f 25 3c 3e 26 31 45 3a d5 23 45 25 2c | . O%<>&1E:.#E%,|
000023b0 26 30 41 0d 0b e0 17 20 20 c9 20 43 25 3d 26 31 |&0A.... . C%=&1|
000023c0 45 3a d5 23 45 25 2c 26 32 30 0d 0b ea 1a 20 20 |E:.#E%,&20.... |
000023d0 c9 20 43 25 3d 26 31 42 3a cf 23 53 25 3d 8f 23 |. C%=&1B:.#S%=.#|
000023e0 53 25 2b 31 0d 0b f4 3a 20 20 c9 20 43 25 3d 26 |S%+1...: . C%=&|
000023f0 33 39 20 80 20 4f 25 3d 26 31 46 3a f5 3a 4f 25 |39 . O%=&1F:.:O%|
00002400 3d 9a 23 53 25 3a fd 4f 25 3d 26 35 44 3a cf 23 |=.#S%:.O%=&5D:.#|
00002410 53 25 3d 8f 23 53 25 2b 33 3a 4f 25 3d 30 0d 0b |S%=.#S%+3:O%=0..|
00002420 fe 16 20 20 c9 20 43 25 3e 26 31 46 3a d5 23 45 |.. . C%>&1F:.#E|
00002430 25 2c 43 25 0d 0c 08 06 20 cb 0d 0c 12 09 4f 25 |%,C%.... .....O%|
00002440 3d 43 25 0d 0c 1c 0a fd 20 c5 23 53 25 0d 0c 26 |=C%..... .#S%..&|
00002450 08 d9 23 53 25 0d 0c 30 08 d9 23 45 25 0d 0c 3a |..#S%..0..#E%..:|
00002460 05 e1 0d 0c 44 04 0d 0c 4e 0b dd f2 67 72 65 65 |....D...N...gree|
00002470 6e 0d 0c 58 19 ea 20 43 25 2c 46 25 2c 47 25 2c |n..X.. C%,F%,G%,|
00002480 50 25 2c 6f 24 3a 47 25 3d b9 0d 0c 62 05 f5 0d |P%,o$:G%=...b...|
00002490 0c 6c 0b 20 20 6f 24 3d 22 22 0d 0c 76 09 20 20 |.l. o$=""..v. |
000024a0 20 20 f5 0d 0c 80 27 20 20 20 20 20 20 43 25 3d | ....' C%=|
000024b0 9a 23 53 25 3a e7 43 25 3e 39 36 20 e7 43 25 3c |.#S%:.C%>96 .C%<|
000024c0 31 33 32 20 43 25 2d 3d 33 32 0d 0c 8a 3f 20 20 |132 C%-=32...? |
000024d0 20 20 20 20 46 25 3d 28 43 25 3d 26 30 32 20 84 | F%=(C%=&02 .|
000024e0 20 43 25 3d 26 30 37 20 84 20 43 25 3d 26 30 44 | C%=&07 . C%=&0D|
000024f0 20 84 20 c5 23 53 25 29 3a e7 20 ac 20 46 25 20 | . .#S%):. . F% |
00002500 6f 24 2b 3d bd 28 43 25 29 0d 0c 94 0c 20 20 20 |o$+=.(C%).... |
00002510 20 fd 20 46 25 0d 0c 9e 14 20 20 e7 20 43 25 3c | . F%.... . C%<|
00002520 3e 26 30 32 20 47 25 3d a3 0d 0c a8 0d 20 20 c8 |>&02 G%=..... .|
00002530 8e 20 6f 24 20 ca 0d 0c b2 1b 20 20 20 20 c9 20 |. o$ ..... . |
00002540 22 55 53 22 3a 6f 24 3d bd 26 31 42 2b bd 26 38 |"US":o$=.&1B+.&8|
00002550 38 0d 0c bc 1f 20 20 20 20 c9 20 22 45 53 38 33 |8.... . "ES83|
00002560 2c 30 22 3a 6f 24 3d bd 26 31 42 2b bd 26 39 30 |,0":o$=.&1B+.&90|
00002570 0d 0c c6 2e 20 20 20 20 c9 20 22 44 45 22 2c 22 |.... . "DE","|
00002580 55 45 22 2c 22 45 53 38 34 22 2c 22 45 53 35 33 |UE","ES84","ES53|
00002590 22 3a 6f 24 3d bd 26 31 42 2b bd 26 38 30 0d 0c |":o$=.&1B+.&80..|
000025a0 d0 1b 20 20 20 20 c9 20 22 44 53 22 3a 6f 24 3d |.. . "DS":o$=|
000025b0 bd 26 31 42 2b bd 26 38 31 0d 0c da 1d 20 20 20 |.&1B+.&81.... |
000025c0 20 c9 20 22 45 53 35 32 22 3a 6f 24 3d bd 26 31 | . "ES52":o$=.&1|
000025d0 42 2b bd 26 38 34 0d 0c e4 1f 20 20 20 20 c9 20 |B+.&84.... . |
000025e0 22 45 53 38 33 2c 31 22 3a 6f 24 3d bd 26 31 42 |"ES83,1":o$=.&1B|
000025f0 2b bd 26 41 30 0d 0c ee 09 20 20 20 20 7f 0d 0c |+.&A0.... ...|
00002600 f8 35 20 20 20 20 6f 24 3d bd 26 31 42 2b bd 26 |.5 o$=.&1B+.&|
00002610 38 31 2b bd 26 31 42 2b bd 26 38 38 2b bd 26 31 |81+.&1B+.&88+.&1|
00002620 42 2b bd 26 38 34 2b 6f 24 2b bd 26 31 42 2b bd |B+.&84+o$+.&1B+.|
00002630 26 38 30 0d 0d 02 07 20 20 cb 0d 0d 0c 24 20 20 |&80.... ....$ |
00002640 e3 20 50 25 3d 31 20 b8 20 a9 6f 24 3a d5 23 45 |. P%=1 . .o$:.#E|
00002650 25 2c 97 28 c1 6f 24 2c 50 25 29 29 3a ed 0d 0d |%,.(.o$,P%)):...|
00002660 16 0a fd 20 ac 20 47 25 0d 0d 20 05 e1 0d 0d 2a |... . G%.. ....*|
00002670 04 0d 0d 34 0f dd f2 56 69 65 77 52 75 6c 65 72 |...4...ViewRuler|
00002680 0d 0d 3e 19 ea 20 43 25 3a 4c 25 3d 30 3a cf 23 |..>.. C%:L%=0:.#|
00002690 53 25 3d 8f 23 53 25 2b 32 0d 0d 48 26 d5 23 45 |S%=.#S%+2..H&.#E|
000026a0 25 2c 26 41 3a d5 23 45 25 2c 26 31 46 3a d5 23 |%,&A:.#E%,&1F:.#|
000026b0 45 25 2c 26 33 39 3a d5 23 45 25 2c 26 35 42 0d |E%,&39:.#E%,&5B.|
000026c0 0d 52 05 f5 0d 0d 5c 13 20 20 43 25 3d 9a 23 53 |.R....\. C%=.#S|
000026d0 25 3a 4c 25 2b 3d 31 0d 0d 66 0d 20 20 c8 8e 20 |%:L%+=1..f. .. |
000026e0 43 25 20 ca 0d 0d 70 16 20 20 20 20 c9 20 26 32 |C% ...p. . &2|
000026f0 41 3a d5 23 45 25 2c 26 37 46 0d 0d 7a 3a 20 20 |A:.#E%,&7F..z: |
00002700 20 20 c9 20 26 30 44 3a d5 23 45 25 2c 26 35 44 | . &0D:.#E%,&5D|
00002710 3a d5 23 45 25 2c 26 33 30 3a d5 23 45 25 2c 26 |:.#E%,&30:.#E%,&|
00002720 33 30 3a d5 23 45 25 2c 26 33 31 3a d5 23 45 25 |30:.#E%,&31:.#E%|
00002730 2c 26 30 41 0d 0d 84 09 20 20 20 20 7f 0d 0d 8e |,&0A.... ....|
00002740 21 20 20 20 20 e7 43 25 3c 3e 26 33 43 20 e7 43 |! .C%<>&3C .C|
00002750 25 3c 3e 26 33 45 20 d5 23 45 25 2c 43 25 0d 0d |%<>&3E .#E%,C%..|
00002760 98 07 20 20 cb 0d 0d a2 1e fd 20 43 25 3d 26 30 |.. ...... C%=&0|
00002770 44 20 84 20 c5 23 53 25 3a 58 25 3d 30 3a 4c 25 |D . .#S%:X%=0:L%|
00002780 2d 3d 31 0d 0d ac 05 e1 0d 0d b6 04 0d 0d c0 17 |-=1.............|
00002790 dd f2 56 69 65 77 48 69 67 68 6c 69 67 68 74 28 |..ViewHighlight(|
000027a0 43 25 29 0d 0d ca 0c d5 23 45 25 2c 26 31 42 0d |C%).....#E%,&1B.|
000027b0 0d d4 42 e7 20 48 25 20 d5 23 45 25 2c 26 38 30 |..B. H% .#E%,&80|
000027c0 3a 48 25 3d a3 20 8b 20 48 25 3d b9 3a e7 20 43 |:H%=. . H%=.:. C|
000027d0 25 3d 26 31 43 20 d5 23 45 25 2c 26 38 38 20 8b |%=&1C .#E%,&88 .|
000027e0 20 e7 43 25 3d 26 31 44 20 d5 23 45 25 2c 26 38 | .C%=&1D .#E%,&8|
000027f0 31 0d 0d de 05 e1 0d 0d e8 04 0d 0d f2 0e dd f2 |1...............|
00002800 65 6d 62 65 64 64 65 64 0d 0d fc 23 ea 20 43 25 |embedded...#. C%|
00002810 3a d5 23 45 25 2c 26 30 41 3a d5 23 45 25 2c 26 |:.#E%,&0A:.#E%,&|
00002820 35 45 3a d5 23 45 25 2c 26 35 45 0d 0e 06 05 f5 |5E:.#E%,&5E.....|
00002830 0d 0e 10 0d 20 20 43 25 3d 9a 23 53 25 0d 0e 1a |.... C%=.#S%...|
00002840 39 20 20 e7 20 43 25 3d 26 31 43 20 84 20 43 25 |9 . C%=&1C . C%|
00002850 3d 26 31 44 20 f2 68 69 67 68 6c 69 67 68 74 28 |=&1D .highlight(|
00002860 43 25 29 20 8b e7 20 43 25 3c 3e 26 30 44 20 d5 |C%) .. C%<>&0D .|
00002870 23 45 25 2c 43 25 0d 0e 24 13 fd 20 43 25 3d 26 |#E%,C%..$.. C%=&|
00002880 30 44 20 84 20 c5 23 53 25 0d 0e 2e 11 d5 23 45 |0D . .#S%.....#E|
00002890 25 2c 26 30 41 3a 58 25 3d 30 0d 0e 38 05 e1 0d |%,&0A:X%=0..8...|
000028a0 0e 42 04 0d 0e 4c 35 f4 20 31 73 74 57 6f 72 64 |.B...L5. 1stWord|
000028b0 2b 20 44 65 66 61 75 6c 74 20 52 75 6c 65 72 20 |+ Default Ruler |
000028c0 28 50 49 43 41 2c 20 4a 75 73 74 69 66 69 63 61 |(PICA, Justifica|
000028d0 74 69 6f 6e 20 4f 6e 29 0d 0e 56 47 dc 20 31 46 |tion On)..VG. 1F|
000028e0 2c 33 30 2c 33 36 2c 33 36 2c 33 30 2c 33 31 2c |,30,36,36,30,31,|
000028f0 33 30 2c 33 33 2c 33 30 2c 33 33 2c 33 30 2c 33 |30,33,30,33,30,3|
00002900 35 2c 33 38 2c 33 30 2c 33 30 2c 30 41 2c 31 46 |5,38,30,30,0A,1F|
00002910 2c 33 31 2c 31 46 2c 31 46 2c 30 41 2c 31 46 0d |,31,1F,1F,0A,1F.|
00002920 0e 60 47 dc 20 33 32 2c 31 46 2c 32 33 2c 31 46 |.`G. 32,1F,23,1F|
00002930 2c 30 41 2c 31 46 2c 34 36 2c 33 30 2c 33 31 2c |,0A,1F,46,30,31,|
00002940 33 31 2c 33 30 2c 33 30 2c 33 33 2c 33 30 2c 30 |31,30,30,33,30,0|
00002950 41 2c 31 46 2c 33 39 2c 35 42 2c 32 45 2c 32 45 |A,1F,39,5B,2E,2E|
00002960 2c 32 45 2c 32 45 0d 0e 6a 47 dc 20 37 46 2c 32 |,2E,2E..jG. 7F,2|
00002970 45 2c 32 45 2c 32 45 2c 32 45 2c 37 46 2c 32 45 |E,2E,2E,2E,7F,2E|
00002980 2c 32 45 2c 32 45 2c 32 45 2c 37 46 2c 32 45 2c |,2E,2E,2E,7F,2E,|
00002990 32 45 2c 32 45 2c 32 45 2c 37 46 2c 32 45 2c 32 |2E,2E,2E,7F,2E,2|
000029a0 45 2c 32 45 2c 32 45 2c 37 46 2c 32 45 0d 0e 74 |E,2E,2E,7F,2E..t|
000029b0 47 dc 20 32 45 2c 32 45 2c 32 45 2c 37 46 2c 32 |G. 2E,2E,2E,7F,2|
000029c0 45 2c 32 45 2c 32 45 2c 32 45 2c 37 46 2c 32 45 |E,2E,2E,2E,7F,2E|
000029d0 2c 32 45 2c 32 45 2c 32 45 2c 37 46 2c 32 45 2c |,2E,2E,2E,7F,2E,|
000029e0 32 45 2c 32 45 2c 32 45 2c 37 46 2c 32 45 2c 32 |2E,2E,2E,7F,2E,2|
000029f0 45 2c 32 45 0d 0e 7e 47 dc 20 32 45 2c 37 46 2c |E,2E..~G. 2E,7F,|
00002a00 32 45 2c 32 45 2c 32 45 2c 32 45 2c 37 46 2c 32 |2E,2E,2E,2E,7F,2|
00002a10 45 2c 32 45 2c 32 45 2c 32 45 2c 37 46 2c 32 45 |E,2E,2E,2E,7F,2E|
00002a20 2c 32 45 2c 32 45 2c 35 44 2c 33 30 2c 33 30 2c |,2E,2E,5D,30,30,|
00002a30 33 31 2c 30 41 2c 31 42 2c 38 30 0d ff |31,0A,1B,80..|
00002a3d 
.