Home » Archimedes archive » Archimedes World » AW-1993-12.adf » AWDec93 » !AWDec93/Goodies/Tree/!Tree/!RunImage
!AWDec93/Goodies/Tree/!Tree/!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 » Archimedes World » AW-1993-12.adf » AWDec93 |
| Filename: | !AWDec93/Goodies/Tree/!Tree/!RunImage |
| Read OK: | ✔ |
| File size: | 10BF9 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Archimedes World » AW-1993-12.adf » AWDec93 » !AWDec93/Goodies/Tree/!Tree/!RunImage
- Personal collection » Acorn hard disk » apps » Econet » Oddments/!Tree/!RunImage
File contents
10REM>SCSI::SCSIDrive4.$.!Develop.Files.Treev1.!Tree.!RunImage
20ON ERROR PROCalert("Major BAD error from Tree",REPORT$+" "+STR$(ERL),0):SYS &000400DD,taskhandle%,&4B534154:END
30:
40tasksize%=256*1024
50smegblocksize%=400
60endprog%=HIMEM
70:
80REM by Richard Samphire 1993 ----------- BOO !
90:
100SYS&000406C0
110SYS &00000010 TO env$
120IF INSTR(env$," -quit ") THEN
130doubleclick$=MID$(env$,INSTR(env$,CHR$(34),INSTR(env$,CHR$(34))+1)+1)
140ENDIF
150year$="93"
160ver$="v1.06a (19-09-"+year$+")"
170name$="Tree"
180mag$="� Archimedes World 1993"
190purpose$="Shows tree display of files"
200PROCinitsprites
210taskhandle%=FNinitialise(name$)
220iconbar%=FNiconbar("!"+name$,-1)
230mainmenu%=FNcreatemenu(name$,3,"Info>info%|Options�|Quit",150)
240savemenu%=FNcreatemenu("Save",3,"Text>savetree%|-Draw>savedraw%|Tree>saveas%",150)
250miscmenu%=FNcreatemenu("Misc",4,"Info>info%|-Statistics>stats%|ReDraw Icons|Print text>print%",250)
260othermenu%=FNcreatemenu("Tree",7,"-Misc>miscmenu%|-File>savemenu%|Open Parent|File Info>finfo%|-Search�|-Options�|Quit",250)
270PROCiconputtext(info%,11,FNicontext(info%,11)+year$)
280PROCiconputtext(info%,3,ver$)
290PROCiconputtext(info%,0,name$)
300PROCiconputtext(info%,1,purpose$)
310PROCiconputtext(info%,8,mag$)
320SYS &000406C2
330PROCiconputtext(title%,1,mag$)
340PROCdotitle(200)
350IF FNcheckfreespace<=smegblocksize% THEN PROCalert("Message from Tree","Unable to find enough free memory.",0):END
360heapsize%=smegblocksize%
370SYS "Wimp_SlotSize",tasksize%+heapsize%,-1
380SYS "XOS_Heap",0,endprog%,,heapsize%
390blocksize%=4
400SYS "XOS_Heap",2,endprog%,,4 TO ,,icondata%
410IF doubleclick$<>" " THEN
420PROCloadmyfile(doubleclick$)
430ENDIF
440REPEAT
450SYS &000400C7,0,block% TO reason%,block%
460CASE reason% OF
470WHEN 0
480PROCnull
490WHEN 1
500PROCredrawwindow(0)
510WHEN 2
520PROCopenwindow(0,FALSE)
530WHEN 3
540PROCclosewindow(0)
550WHEN 4
560PROCpointerleave
570WHEN 5
580PROCpointerenter
590WHEN 6
600PROCmouseclick
610WHEN 7
620PROCuserdragbox
630WHEN 8
640PROCkeypressed
650WHEN 9
660PROCmenuselection
670WHEN 10
680PROCscrollrequest
690WHEN 11
700PROClosecaret
710WHEN 12
720PROCgaincaret
730WHEN 17
740PROCusermessage
750WHEN 18
760PROCusermessagerecorded
770WHEN 19
780PROCusermessageacknowledge
790ENDCASE
800UNTIL exit
810SYS &000400DD,taskhandle%,&4B534154
820END
830DEF FNinitialise(name$)
840maxnumber=4096
850mody%=FALSE
860DIM col(199)
870DIM block% 2048
880DIM block2% 2048
890DIM block3% 2048
900DIM buf% 41
910DIM messages% 60
920messages%!0=1
930messages%!4=8
940messages%!8=14
950messages%!12=&404
960messages%!16=&405
970messages%!20=&403
980messages%!24=2
990messages%!28=3
1000messages%!32=4
1010messages%!36=&80140
1020messages%!40=&80144
1030messages%!44=5
1040messages%!48=&80147
1050messages%!52=&400c9
1060messages%!56=&80142
1070SYS &400C0,300,&4B534154,name$,messages% TO wimpversion%,th%
1080searchwindow%=FALSE
1090searchfile=TRUE
1100searchtype=FALSE
1110asct%=ASC("T")
1120ascl%=ASC("L")
1130currentsearch=-1
1140casesens=FALSE
1150iii%=0
1160dirs=FALSE
1170exit = FALSE
1180flufend%=TRUE
1190menunumber% = 0
1200iconsprites=TRUE
1210headings=TRUE
1220sourcedir=TRUE
1230date=TRUE
1240pressed=FALSE
1250fheadings=TRUE
1260fsourcedir=TRUE
1270fdate=TRUE
1280headcount=2
1290makeexit=FALSE
1300tjunc$="+�"
1310endjunc$="'�"
1320linejunc$="|"
1330ftjunc$="+�"
1340fendjunc$="'�"
1350flinejunc$="|"
1360cols=7
1370fincols=7
1380rows=50
1390doprint%=FALSE
1400frows=50
1410columns=FALSE
1420ficonsprites=TRUE
1430lineobj=TRUE
1440flineobj=TRUE
1450tttemp%=0
1460info=TRUE
1470boxr=0
1480boxg=0
1490boxb=0
1500fboxr=0
1510fboxg=0
1520fboxb=0
1530oufile%=OPENIN("<Tree$Dir>.Options")
1540IF oufile%<>0 THEN
1550INPUT #oufile%,headcount
1560INPUT #oufile%,headings
1570INPUT #oufile%,sourcedir
1580INPUT #oufile%,date
1590INPUT #oufile%,linejunc$
1600INPUT #oufile%,tjunc$
1610INPUT #oufile%,endjunc$
1620INPUT #oufile%,cols
1630INPUT #oufile%,iconsprites
1640INPUT #oufile%,rows
1650INPUT #oufile%,boxr
1660INPUT #oufile%,boxg
1670INPUT #oufile%,boxb
1680INPUT #oufile%,lineobj
1690INPUT #oufile%,dirs
1700CLOSE #oufile%
1710fheadings=headings
1720fsourcedir=sourcedir
1730fdate=date
1740flinejunc$=linejunc$
1750ftjunc$=tjunc$
1760fendjunc$=endjunc$
1770fincols=cols
1780ficonsprites=iconsprites
1790frows=rows
1800fboxr=boxr
1810fboxg=boxg
1820fboxb=boxb
1830flineobj=lineobj
1840fdirs=dirs
1850ELSE
1860PROCdefaults(FALSE)
1870ENDIF
1880DIM win% 4096*6
1890DIM ind% 4096*6
1900DIM mainwindow% 512
1910DIM indmain% 512
1920SYS &000400D9,,"<Tree$Dir>.Templates"
1930SYS &000400DB,,win%,ind%,ind%+4096,-1,"info",0 TO ,,ind%
1940win%!64=sprite%
1950SYS &000400C1,,win% TO info%
1960SYS &000400DB,,win%,ind%,ind%+4096,-1,"saveas",0 TO ,,ind%
1970SYS &000400C1,,win% TO saveas%
1980SYS &000400DB,,win%,ind%,ind%+4096,-1,"savetree",0 TO ,,ind%
1990SYS &000400C1,,win% TO savetree%
2000SYS &000400DB,,mainwindow%,indmain%,indmain%+4096,-1,"main",0 TO ,,indmain%
2010SYS &000400C1,,mainwindow% TO main%
2020SYS &000400DB,,win%,ind%,ind%+4096,-1,"pane",0 TO ,,ind%
2030win%!64=sprite%
2040SYS &000400C1,,win% TO pane%
2050SYS &000400DB,,win%,ind%,ind%+4096,-1,"options",0 TO ,,ind%
2060SYS &000400C1,,win% TO options%
2070SYS &000400DB,,win%,ind%,ind%+4096,-1,"stats",0 TO ,,ind%
2080SYS &000400C1,,win% TO stats%
2090SYS &000400DB,,win%,ind%,ind%+4096,-1,"savedraw",0 TO ,,ind%
2100win%!64=sprite%
2110SYS &000400C1,,win% TO savedraw%
2120SYS &000400DB,,win%,ind%,ind%+4096,-1,"fileinfo",0 TO ,,ind%
2130SYS &000400C1,,win% TO finfo%
2140SYS &000400DB,,win%,ind%,ind%+4096,-1,"printtext",0 TO ,,ind%
2150win%!64=sprite%
2160SYS &000400C1,,win% TO print%
2170SYS &000400DB,,win%,ind%,ind%+4096,-1,"dis",0 TO ,,ind%
2180SYS &000400C1,,win% TO mycontrol%
2190SYS &000400DB,,win%,ind%,ind%+4096,-1,"title",0 TO ,,ind%
2200win%!64=sprite%
2210SYS &000400C1,,win% TO title%
2220SYS &000400DB,,win%,ind%,ind%+4096,-1,"search",0 TO ,,ind%
2230win%!64=sprite%
2240SYS &000400C1,,win% TO search%
2250SYS &000400DA
2260slidewindow%=-1
2270slideicon%=-1
2280slidesize%=-1
2290oldworkx%=-1
2300rrange%=-1
2310sizemaxx%=-1
2320sizeminx%=-1
2330=th%
2340DEF FNiconbar(Sprite$,side%)
2350block%!0=side%
2360block%!4=0
2370block%!8=0
2380block%!12=29*2
2390block%!16=40*2
2400block%!20=&3002
2410$(block%+24)=Sprite$
2420SYS &000400C2,,block% TO icon%
2430=icon%
2440DEF PROCnull
2450CASE slideicon% OF
2460WHEN 28
2470PROCdoslide(slidewindow%,slideicon%,slidesize%,TRUE,255)
2480WHEN 31
2490PROCdoslide(slidewindow%,slideicon%,slidesize%,TRUE,255)
2500WHEN 34
2510PROCdoslide(slidewindow%,slideicon%,slidesize%,TRUE,255)
2520ENDCASE
2530ENDPROC
2540DEF PROCredrawwindow(wind%)
2550SYS&000406C0
2560IF wind%<>0 THEN
2570block%!0=wind%
2580ENDIF
2590SYS &000400C8,,block% TO flag
2600WHILE flag
2610IF block%!0=main% THEN PROCdolines(block%!8,block%!16,block%!24)
2620IF block%!0=pane% THEN PROCdocolourbox(boxr,boxg,boxb,FALSE)
2630SYS &000400CA,,block% TO flag
2640ENDWHILE
2650SYS&000406C2
2660ENDPROC
2670DEF PROCopenwindow(wind%,stag%)
2680IF wind%<>0 THEN
2690block%!0=wind%
2700SYS &000400CB,,block%
2710ENDIF
2720IF block%!0=main% AND searchwindow% THEN
2730mainminx%=block%!4
2740mainminy%=block%!8
2750mainmaxx%=block%!12
2760mainmaxy%=block%!16
2770mainscrollx%=block%!20
2780mainscrolly%=block%!24
2790backhand%=block%!28
2800block%!0=search%
2810SYS &400cb,,block%
2820block%!0=search%
2830block%!4=mainminx%-318
2840block%!8=mainmaxy%-636
2850block%!12=mainmaxx%+block%!4
2860block%!16=mainmaxy%
2870block%!28=backhand%
2880SYS &400C5,,block%
2890block%!0=main%
2900block%!4=mainminx%
2910block%!8=mainminy%
2920block%!12=mainmaxx%
2930block%!16=mainmaxy%
2940block%!20=mainscrollx%
2950block%!24=mainscrolly%
2960block%!28=search%
2970ENDIF
2980IF block%!0=options% THEN
2990mainminx%=block%!4
3000mainminy%=block%!8
3010mainmaxx%=block%!12
3020mainmaxy%=block%!16
3030mainscrollx%=block%!20
3040mainscrolly%=block%!24
3050backhand%=block%!28
3060block%!0=pane%
3070SYS &400cb,,block%
3080block%!0=pane%
3090block%!4=mainminx%+20
3100block%!8=mainminy%+18
3110block%!12=mainmaxx%+block%!4
3120block%!16=mainmaxy%-18
3130block%!28=backhand%
3140SYS &400C5,,block%
3150block%!0=options%
3160block%!4=mainminx%
3170block%!8=mainminy%
3180block%!12=mainmaxx%
3190block%!16=mainmaxy%
3200block%!20=mainscrollx%
3210block%!24=mainscrolly%
3220block%!28=pane%
3230ENDIF
3240SYS &000400C5,,block%
3250ENDPROC
3260DEF PROCclosewindow(wind%)
3270IF wind%<>0 THEN
3280 block%!0=wind%
3290ENDIF
3300IF block%!0=options% THEN
3310 block%!0=pane%
3320 SYS &000400C6,,block%
3330 block%!0=options%
3340ENDIF
3350IF block%!0=main% AND mody% THEN
3360 press%=FNmycontrol
3370 block%!0=mycontrol%
3380 SYS &000400C6,,block%
3390 block%!0=main%
3400 CASE press% OF
3410 WHEN 0
3420 IF makeexit THEN exit=TRUE
3430 SYS "XOS_Heap",4,endprog%,icondata%,-blocksize% TO ,,icondata%
3440 SYS "XOS_Heap",5,endprog%,,-heapsize%+smegblocksize%
3450 heapsize%=smegblocksize%
3460 SYS "Wimp_SlotSize",tasksize%+heapsize%,-1
3470 blocksize%=4
3480 WHEN 1
3490 IF exit THEN exit=FALSE
3500 makeexit=FALSE
3510 ENDPROC
3520 WHEN 2
3530 IF exit THEN
3540 exit=FALSE
3550 makeexit=TRUE
3560 ENDIF
3570 SYS&000400CF,,block2%
3580 xx%=block2%!0
3590 yy%=block2%!4
3600 bb%=block2%!8
3610 flufend%=TRUE
3620 PROCdrawmenu(saveas%,xx%,yy%)
3630 ENDPROC
3640 ENDCASE
3650ENDIF
3660IF block%!0=search% THEN searchwindow%=FALSE
3670IF block%!0=main% THEN
3680 searchwindow%=FALSE
3690 block%!0=search%
3700 SYS &000400C6,,block%
3710 SYS "XOS_Heap",4,endprog%,icondata%,-blocksize% TO ,,icondata%
3720 SYS "XOS_Heap",5,endprog%,,-heapsize%+smegblocksize%
3730 heapsize%=smegblocksize%
3740 SYS "Wimp_SlotSize",tasksize%+heapsize%,-1
3750 blocksize%=4
3760 mody%=FALSE
3770 IF pressed THEN SYS "Wimp_ProcessKey",&1FC
3780 iii%=0
3790 block%!0=main%
3800ENDIF
3810SYS &000400C6,,block%
3820ENDPROC
3830DEF PROCpointerleave
3840ENDPROC
3850DEF PROCpointerenter
3860ENDPROC
3870DEF PROCmouseclick
3880LOCAL ERROR
3890ON ERROR LOCAL PROCalert("Error from Tree",REPORT$,0):ENDPROC
3900x%=block%!0
3910y%=block%!4
3920button%=block%!8
3930window%=block%!12
3940icon%=block%!16
3950CASE button% OF
3960WHEN 1
3970IF window%=search% THEN PROCclicksearch(icon%)
3980IF window%=print% THEN PROCclickprint(icon%)
3990IF window%=savedraw% AND icon%=2 THEN
4000IF INSTR(FNicontext(savedraw%,1),".")=0 THEN
4010PROCalert("Tree","To save, drag the file icon to a directory viewer",2)
4020SYS&000400D4,-1
4030ELSE
4040poowindow%=savedraw%
4050PROCsave(FNicontext(savedraw%,1))
4060ENDIF
4070ENDIF
4080IF window%=saveas% AND icon%=2 THEN
4090IF INSTR(FNicontext(saveas%,1),".")=0 THEN
4100PROCalert("Tree","To save, drag the file icon to a directory viewer",2)
4110SYS&000400D4,-1
4120ELSE
4130poowindow%=saveas%
4140PROCsave(FNicontext(saveas%,1))
4150ENDIF
4160ENDIF
4170IF window%=savetree% AND icon%=2 THEN
4180IF INSTR(FNicontext(savetree%,1),".")=0 THEN
4190PROCalert("Tree","To save, drag the file icon to a directory viewer",2)
4200SYS&000400D4,-1
4210ELSE
4220poowindow%=savetree%
4230PROCsave(FNicontext(savetree%,1))
4240ENDIF
4250ENDIF
4260IF window%=options% THEN PROCclickoptions(icon%)
4270IF window%=pane% THEN PROCclickpane(icon%)
4280IF window%=main% AND icon%>0 THEN
4290PROCuselicon(main%,icon%)
4300PROCgetvars(icon%-1,FALSE)
4310OSCLI("FILER_RUN "+$filename%)
4320ENDIF
4330IF window%=savedraw% AND icon%=3 THEN
4340columns=NOT columns
4350IF columns THEN PROCselicon(savedraw%,3) ELSE PROCuselicon(savedraw%,3)
4360ENDIF
4370WHEN 2
4380IF window%=-2 THEN
4390PROCdrawmenu(mainmenu%,x%-100,228)
4400menunumber%=1
4410ENDIF
4420IF window%=main% THEN
4430PROCgetprinterinfo
4440PROCiconputtext(print%,0,printer$)
4450copies=1
4460PROCiconputtext(print%,2,STR$(copies))
4470IF columns THEN PROCselicon(savedraw%,3) ELSE PROCuselicon(savedraw%,3)
4480flufend%=FALSE
4490PROCiconputtext(stats%,1,STR$(iii%))
4500PROCiconputtext(stats%,3,STR$(blocksize%))
4510IF icon%>0 THEN
4520currentsearch=icon%
4530PROCusmi(othermenu%,3)
4540PROCusmi(othermenu%,4)
4550PROCgetvars(icon%-1,FALSE)
4560PROCiconputtext(finfo%,0,FNgLn($filename%))
4570IF type%!0>=0 AND type%!0<=&FFF THEN
4580 PROCiconputtext(finfo%,3,"&"+FNpad(type%!0))
4590 IF FNspriteexists("file_"+FNpad(type%!0)) THEN
4600 PROCseticonsprite(finfo%,1,"Sfile_"+FNpad(type%!0))
4610 ELSE
4620 PROCseticonsprite(finfo%,1,"Sfile_xxx")
4630 ENDIF
4640ELSE
4650 IF LEFT$(FNgLn($filename%),1)="!" AND type%!0=-1 THEN
4660 PROCiconputtext(finfo%,3,"Application")
4670 IF FNspriteexists(FNgLn($filename%)) THEN
4680 PROCseticonsprite(finfo%,1,"S"+FNgLn($filename%))
4690 ELSE
4700 PROCseticonsprite(finfo%,1,"Sapplication")
4710 ENDIF
4720 ENDIF
4730 IF LEFT$(FNgLn($filename%),1)<>"!" AND type%!0=-1 THEN
4740 PROCiconputtext(finfo%,3,"Directory")
4750 PROCseticonsprite(finfo%,1,"Sdirectory")
4760 ENDIF
4770 IF type%!0=-2 THEN
4780 PROCiconputtext(finfo%,3,"File")
4790 PROCseticonsprite(finfo%,1,"Sfile_xxx")
4800 ENDIF
4810ENDIF
4820PROCiconputtext(finfo%,5,STR$(readlength%!0))
4830PROCiconputtext(finfo%,7,FNattributes(attributes%!0))
4840PROCiconputtext(finfo%,8,FNmyconvert(ladr%!0,eadr%!0))
4850ELSE
4860PROCsmi(othermenu%,3)
4870PROCsmi(othermenu%,4)
4880ENDIF
4890PROCdrawmenu(othermenu%,x%-100,y%)
4900menunumber%=2
4910ENDIF
4920WHEN 4
4930IF window%=search% THEN PROCclicksearch(icon%)
4940IF window%=print% THEN PROCclickprint(icon%)
4950IF window%=savedraw% AND icon%=3 THEN
4960columns=NOT columns
4970IF columns THEN PROCselicon(savedraw%,3) ELSE PROCuselicon(savedraw%,3)
4980ENDIF
4990IF window%=savedraw% AND icon%=2 THEN
5000IF INSTR(FNicontext(savedraw%,1),".")=0 THEN
5010PROCalert("Tree","To save, drag the file icon to a directory viewer",2)
5020SYS&000400D4,-1
5030ELSE
5040poowindow%=savedraw%
5050PROCsave(FNicontext(savedraw%,1))
5060ENDIF
5070ENDIF
5080IF window%=saveas% AND icon%=2 THEN
5090IF INSTR(FNicontext(saveas%,1),".")=0 THEN
5100PROCalert("Tree","To save, drag the file icon to a directory viewer",2)
5110SYS&000400D4,-1
5120ELSE
5130poowindow%=saveas%
5140PROCsave(FNicontext(saveas%,1))
5150SYS&000400D4,-1
5160ENDIF
5170ENDIF
5180IF window%=savetree% AND icon%=2 THEN
5190IF INSTR(FNicontext(savetree%,1),".")=0 THEN
5200PROCalert("Tree","To save, drag the file icon to a directory viewer",2)
5210SYS&000400D4,-1
5220ELSE
5230poowindow%=savetree%
5240PROCsave(FNicontext(savetree%,1))
5250SYS&000400D4,-1
5260ENDIF
5270ENDIF
5280IF window%=pane% THEN PROCclickpane(icon%)
5290IF window%=options% THEN PROCclickoptions(icon%)
5300IF window%=main% AND icon%>0 THEN
5310PROCuselicon(main%,icon%)
5320PROCgetvars(icon%-1,FALSE)
5330OSCLI("FILER_RUN "+$filename%)
5340ENDIF
5350WHEN 16,64
5360IF window%=main% AND icon%>0 THEN
5370PROCdragmyfile
5380tempicon%=icon%
5390ENDIF
5400IF window%=saveas% AND icon%=0 THEN
5410poowindow%=window%
5420lastwindow%=poowindow%
5430PROCdrawbox(saveas%,0,"file_353")
5440ENDIF
5450IF window%=savetree% AND icon%=0 THEN
5460poowindow%=window%
5470lastwindow%=poowindow%
5480PROCdrawbox(savetree%,0,"file_fff")
5490ENDIF
5500IF window%=savedraw% AND icon%=0 THEN
5510poowindow%=window%
5520lastwindow%=poowindow%
5530PROCdrawbox(savedraw%,0,"file_aff")
5540ENDIF
5550ENDCASE
5560ENDPROC
5570DEF PROCuserdragbox
5580LOCAL ERROR
5590ON ERROR LOCAL PROCalert("Error from Tree",REPORT$,0):ENDPROC
5600SYS "DragASprite_Stop"
5610tt%=block%+256
5620SYS&000400CF,,tt%
5630xx%=tt%!0
5640yy%=tt%!4
5650bb%=tt%!8
5660wind%=tt%!12
5670icon%=tt%!16
5680CASE lastwindow% OF
5690WHEN saveas%,savetree%
5700block%!0=256
5710block%!12=0
5720block%!16=1
5730block%!20=wind%
5740block%!24=icon%
5750block%!28=xx%
5760block%!32=yy%
5770block%!36=1
5780IF lastwindow%=savetree% THEN
5790block%!40=&fff
5800ELSE
5810block%!40=&353
5820ENDIF
5830bblock%=block%+256
5840bblock%!0=lastwindow%
5850bblock%!4=1
5860SYS&000400CE,0,bblock%
5870text%=bblock%!28
5880w$=FNgLn($text%)
5890$(block%+44)=w$+CHR$0
5900SYS&000400E7,17,block%,wind%,icon%
5910IF wind%<>saveas% AND wind%<>savetree% THEN SYS&000400D4,-1
5920WHEN main%
5930poowindow%=main%
5940PROCgetvars(tempicon%-1,FALSE)
5950block%!0=256
5960block%!12=0
5970block%!16=1
5980block%!20=wind%
5990block%!24=icon%
6000block%!28=xx%
6010block%!32=yy%
6020block%!36=readlength%!0
6030block%!40=type%!0
6040$(block%+44)=$filename%+CHR$0
6050SYS&000400E7,17,block%,wind%,icon%
6060PROCuselicon(main%,tempicon%)
6070WHEN savedraw%
6080block%!0=256
6090block%!12=0
6100block%!16=1
6110block%!20=wind%
6120block%!24=icon%
6130block%!28=xx%
6140block%!32=yy%
6150block%!36=1
6160block%!40=&aff
6170bblock%=block%+256
6180bblock%!0=lastwindow%
6190bblock%!4=1
6200SYS&000400CE,0,bblock%
6210text%=bblock%!28
6220w$=FNgLn($text%)
6230$(block%+44)=w$+CHR$0
6240SYS&000400E7,17,block%,wind%,icon%
6250IF wind%<>savedraw% THEN SYS&000400D4,-1
6260WHEN pane%
6270IF slidewindow%>-1 AND slideicon%>-1 AND slidesize%>-1 THEN
6280size%=sizemaxx%-sizeminx%
6290ppos%=(oldworkx%-sizeminx%)
6300num%=(rrange%/size%)*ppos%
6310CASE slideicon% OF
6320WHEN 28,31,34
6330oldworkx%=newx%
6340ENDCASE
6350:
6360slidewindow%=-1
6370slideicon%=-1
6380slidesize%=-1
6390ENDIF
6400ENDCASE
6410ENDPROC
6420DEF PROCkeypressed
6430wind%=block%!0
6440icon%=block%!4
6450key%=block%!24
6460CASE key% OF
6470WHEN 398,13
6480IF wind%=saveas% THEN
6490IF INSTR(FNicontext(saveas%,1),".")=0 THEN
6500PROCalert("Tree","To save, drag the file icon to a directory viewer",2)
6510SYS&000400D4,-1
6520ELSE
6530poowindow%=saveas%
6540PROCsave(FNicontext(saveas%,1))
6550SYS&000400D4,,-1
6560ENDIF
6570ENDIF
6580IF wind%=savetree% THEN
6590IF INSTR(FNicontext(savetree%,1),".")=0 THEN
6600PROCalert("Tree","To save, drag the file icon to a directory viewer",2)
6610SYS&000400D4,-1
6620ELSE
6630poowindow%=savetree%
6640PROCsave(FNicontext(savetree%,1))
6650SYS&000400D4,,-1
6660ENDIF
6670ENDIF
6680OTHERWISE
6690SYS "Wimp_ProcessKey",key%
6700ENDCASE
6710ENDPROC
6720DEF PROCmenuselection
6730CASE menunumber% OF
6740WHEN 1
6750SYS&000400D5,,mainmenu%,block%,block%+24
6760trunc$=FNgLn($(block%+24))
6770IF trunc$="Quit" THEN
6780exit=TRUE
6790makeexit=TRUE
6800PROCclosewindow(main%)
6810ENDIF
6820IF trunc$="Options�" THEN
6830PROCpane
6840PROCopenwindow(options%,FALSE)
6850ENDIF
6860WHEN 2
6870SYS&000400D5,,othermenu%,block%,block%+24
6880trunc$=FNgLn($(block%+24))
6890IF trunc$="Quit" THEN
6900makeexit=TRUE
6910exit = TRUE
6920PROCclosewindow(main%)
6930ENDIF
6940IF trunc$="ReDraw Icons" THEN PROCmajorredraw
6950IF trunc$="Open Parent" THEN OSCLI("FILER_OPENDIR "+pooup$)
6960IF trunc$="Search�" THEN PROCopensearch
6970IF trunc$="Options�" THEN
6980PROCpane
6990PROCopenwindow(options%,FALSE)
7000ENDIF
7010ENDCASE
7020SYS&000400CF,,block%+256
7030brr%=block%+256
7040button%=brr%!8
7050IF button%=1 THEN
7060IF menunumber%=1 THEN SYS &000400D4,,mainmenu%,brr%!0-68,(64*4)+64
7070IF menunumber%=2 THEN SYS &000400D4,,othermenu%,brr%!0-68,brr%!4
7080ENDIF
7090ENDPROC
7100ENDPROC
7110DEF PROCscrollrequest
7120ENDPROC
7130DEF PROClosecaret
7140ENDPROC
7150DEF PROCgaincaret
7160ENDPROC
7170DEF PROCusermessage
7180LOCAL ERROR
7190ON ERROR LOCAL PROCalert("Error from Tree",REPORT$,0):ENDPROC
7200CASE block%!16 OF
7210WHEN 0
7220exit = TRUE
7230WHEN 2
7240PROCsave(FNgetstring(block%+44))
7250WHEN &80147
7260PROCgetprinterinfo
7270
7280ENDCASE
7290ENDPROC
7300DEF PROCusermessagerecorded
7310LOCAL ERROR
7320ON ERROR LOCAL PROCalert("Error from Tree",REPORT$,0):ENDPROC
7330CASE block%!16 OF
7340WHEN 0
7350exit = TRUE
7360WHEN &80142
7370IF doprint% AND FALSE THEN
7380doprint%=FALSE
7390PROCalert("Message from Tree","Load the RiscOS 3 !Printers application to print from Tree.",0)
7400ENDIF
7410WHEN 3
7420PROCload(block%!20,block%!24,block%!40,FNgetstring(block%+44))
7430WHEN 5
7440IF block%!40=&353 THEN
7450block%!12=block%!8
7460SYS&000600E7,17,block%,block%!20
7470PROCload(block%!20,block%!24,block%!40,FNgetstring(block%+44))
7480ENDIF
7490WHEN 8
7500IF mody% THEN
7510 pressed=TRUE
7520 block%!12=block%!8
7530 SYS "Wimp_SendMessage",19,block%,0
7540 PROCsicon(mycontrol%,6)
7550 PROCclosewindow(main%)
7560ENDIF
7570ENDCASE
7580ENDPROC
7590DEF PROCusermessageacknowledge
7600CASE block%!16 OF
7610WHEN &80142
7620IF doprint% THEN
7630doprint%=FALSE
7640PROCalert("Message from Tree","Load the RiscOS 3 !Printers application to print from Tree.",0)
7650ENDIF
7660ENDCASE
7670ENDPROC
7680DEFFNparseLine(A$,B$(),C$)
7690LOCAL D%,E%:D%=DIM(B$(),1)
7700WHILE (A$<>"")AND(E%<=D%)
7710B$(E%)=FNparseWord(A$,C$)
7720E%+=1
7730ENDWHILE
7740=E%
7750DEFFNparseWord(RETURN A$,B$)
7760LOCAL C$,D%,E%,F$:D%=1:E%=LEN(A$):C$=MID$(A$,D%,1)
7770WHILE (INSTR(B$,C$)=0)AND(D%<=E%):D%+=1:C$=MID$(A$,D%,1):ENDWHILE
7780F$=LEFT$(A$,D%-1):A$=MID$(A$,D%+1):E%=LEN(A$):D%=1:C$=MID$(A$,D%,1)
7790WHILE (INSTR(B$,C$)>0)AND(D%<=E%):D%+=1:C$=MID$(A$,D%,1):ENDWHILE
7800A$=MID$(A$,D%)
7810=F$
7820DEF FNcreatemenu(title$,entries%,entries$,width%)
7830LOCAL menu%,word$()
7840DIM menu% 24+entries%*24
7850DIM word$(entries%)
7860tr%=FNparseLine(entries$,word$(),"|")
7870tr%-=1
7880$(menu%+0)=title$+CHR$0
7890menu%!12=7
7900menu%!13=2
7910menu%!14=7
7920menu%!15=0
7930menu%!16=width%
7940menu%!20=44
7950menu%!24=0
7960FOR loop%=0 TO tr%
7970p%=(loop%*24)+28
7980IF loop%=entries%-1 THEN menu%!p%=128 ELSE menu%!p%=0
7990IF MID$(word$(loop%),1,1)="-" THEN
8000menu%!p%+=2
8010ENDIF
8020IF title$="Filetypes" THEN menu%!p%+=8
8030p%+=4
8040IF INSTR(word$(loop%),">") = 0 THEN
8050menu%!p%=-1
8060ELSE
8070menu%!p%=EVAL(MID$(word$(loop%),INSTR(word$(loop%),">")+1))
8080ENDIF
8090p%+=4
8100menu%!p%=&7009031
8110p%+=4
8120IF INSTR(word$(loop%),">") = 0 THEN
8130IF MID$(word$(loop%),1,1)="-" THEN
8140$(menu%+p%)=MID$(word$(loop%),2)
8150ELSE
8160$(menu%+p%)=word$(loop%)
8170ENDIF
8180ELSE
8190IF MID$(word$(loop%),1,1)="-" THEN
8200$(menu%+p%)=MID$(word$(loop%),2,INSTR(word$(loop%),">")-2)
8210ELSE
8220$(menu%+p%)=MID$(word$(loop%),1,INSTR(word$(loop%),">")-1)
8230ENDIF
8240ENDIF
8250NEXTloop%
8260=menu%
8270DEFPROCdrawmenu(m%,xx%,yy%)
8280SYS &000400D4,,m%,xx%,yy%
8290ENDPROC
8300DEFPROCsicon(wind%,icon%)
8310block%!0=wind%
8320block%!4=icon%
8330block%!8=%10000000000000000000000
8340block%!12=%10000000000000000000000
8350SYS &400CD,,block%
8360ENDPROC
8370DEFPROCusicon(wind%,icon%)
8380block%!0=wind%
8390block%!4=icon%
8400block%!8=0
8410block%!12=%10000000000000000000000
8420SYS &400CD,,block%
8430ENDPROC
8440DEFPROCselicon(wind%,icon%)
8450block%!0=wind%
8460block%!4=icon%
8470block%!8=%1000000000000000000000
8480block%!12=%1000000000000000000000
8490SYS &400CD,,block%
8500ENDPROC
8510DEFPROCuselicon(wind%,icon%)
8520block%!0=wind%
8530block%!4=icon%
8540block%!8=0
8550block%!12=%1000000000000000000000
8560SYS &400CD,,block%
8570ENDPROC
8580DEFPROCtmi(m%,i%)
8590ui=m%+(28+(24*i%))
8600!ui=!ui OR %1
8610ENDPROC
8620DEFPROCutmi(m%,i%)
8630ui=m%+(28+(24*i%))
8640!ui=!ui ANDNOT %1
8650ENDPROC
8660DEFPROCsmi(m%,i%)
8670ui=m%+(36+(24*i%))
8680!ui=!ui OR %10000000000000000000000
8690ENDPROC
8700DEFPROCusmi(m%,i%)
8710ui=m%+(36+(24*i%))
8720!ui=!ui ANDNOT %10000000000000000000000
8730ENDPROC
8740DEFFNgLn(A$)
8750LOCAL B%
8760IF INSTR(A$,".")=0 THEN =A$
8770IF INSTR(A$,".")>0 THEN
8780B%=LENA$
8790WHILE(MID$(A$,B%,1)<>".")AND(B%>0)
8800B%-=1
8810ENDWHILE
8820=RIGHT$(A$,LENA$-B%)
8830DEF FNgetstring(array%)
8840LOCAL path$,pointer%
8850path$=""
8860pointer%=array%
8870REPEAT
8880path$+=CHR$?pointer%
8890pointer%+=1
8900UNTIL ?pointer%=0 OR ?pointer%=13
8910=path$
8920DEFPROCload(window%,icon%,filetype%,path$)
8930LOCAL ERROR
8940ON ERROR LOCAL PROCalert("Error from Tree",REPORT$,0):ENDPROC
8950IF window%=-2 AND filetype%<>&353 THEN PROCdofiles(path$)
8960IF filetype%=&353 THEN
8970PROCclosewindow(main%)
8980PROCloadmyfile(path$)
8990ENDIF
9000ENDPROC
9010DEFPROCsave(p$)
9020LOCAL ERROR
9030ON ERROR LOCAL PROCalert("Error from Tree",REPORT$,0):ENDPROC
9040SYS &00062401
9050CASE poowindow% OF
9060WHEN saveas%
9070SYS&000406C0
9080SYS "OS_File",10,p$,&353,,icondata%,icondata%+blocksize%
9090SYS&000406C2
9100mody%=FALSE
9110IF makeexit THEN exit=TRUE
9120IF flufend% THEN
9130block%!0=main%
9140SYS &000400C6,,block%
9150ENDIF
9160IF pressed THEN SYS "Wimp_ProcessKey",&1FC
9170WHEN savetree%
9180PROCexport(p$,TRUE)
9190WHEN savedraw%
9200PROCdodraw(p$)
9210WHEN main%
9220IF block%!36=-1 THEN
9230PROCgetvars(tempicon%-1,FALSE)
9240block%!0=256
9250block%!12=0
9260block%!16=3
9270block%!36=readlength%!0
9280block%!40=type%!0
9290$(block%+44)=$filename%+CHR$0
9300SYS&000400E7,17,block%,wind%,icon%
9310ELSE
9320PROCgetvars(tempicon%-1,FALSE)
9330IF FNcheckfreespace>=(40*1024) THEN
9340p$=LEFT$(p$,LEN(p$)-(LEN($filename%)+1))
9350SYS "Wimp_StartTask","filer_action"
9360block%!0=256
9370block%!12=0
9380block%!16=&403
9390cft2=LEN($filename%)
9400WHILE MID$($filename%,cft2,1)<>"."
9410cft2-=1
9420ENDWHILE
9430dddup$=MID$($filename%,1,cft2-1)
9440$(block%+20)=dddup$+CHR$0
9450SYS "Wimp_SendMessage",17,block%,0
9460block%!0=256
9470block%!12=0
9480block%!16=&404
9490$(block%+20)=FNgLn($filename%)+CHR$0
9500SYS "Wimp_SendMessage",17,block%,0
9510block%!0=256
9520block%!12=0
9530block%!16=&405
9540block%!20=0
9550block%!24=%10001
9560$(block%+28)=p$+CHR$0
9570SYS "Wimp_SendMessage",17,block%,0
9580ELSE
9590p$=LEFT$(p$,LEN(p$)-(LEN($filename%)+1))
9600OSCLI("COPY "+$filename%+" "+p$+"."+FNgLn($filename%)+" R~C")
9610ENDIF
9620ENDIF
9630WHEN print%
9640PROCexport(p$,FALSE)
9650block%!16=3
9660FOR printcount=1 TO copies
9670SYS&000400E7,17,block%,block%!20,block%!24
9680NEXT printcount
9690doprint%=FALSE
9700ENDCASE
9710IF p$<>"<Wimp$Scrap>" AND (poowindow%<>main%) AND poowindow%<>print% THEN PROCiconputtext(poowindow%,1,p$)
9720ENDPROC
9730DEFPROCloadmyfile(p$)
9740LOCAL ERROR
9750ON ERROR LOCAL PROCalert("Error from Tree",REPORT$,0):ENDPROC
9760localsprites=TRUE
9770columns=FALSE
9780archi%=FNmodulepresent("SparkFS")
9790thebigone=0
9800block%!0=main%
9810SYS &000400C3,,block%
9820SYS &000400C1,,mainwindow% TO main%
9830SYS&000406C0
9840block%!0=main%
9850SYS &400cc,,block%
9860workminx=block%!44
9870workminy=block%!48
9880workmaxx=block%!52
9890workmaxy=block%!56
9900infile%=OPENIN(p$)
9910newlen%=EXT#infile%
9920CLOSE #infile%
9930SYS "XOS_Heap",4,endprog%,icondata%,-blocksize% TO ,,icondata%
9940SYS "XOS_Heap",5,endprog%,,-heapsize%+smegblocksize%
9950blocksize%=4
9960heapsize%=smegblocksize%
9970blocksize%+=newlen%
9980duf%=FALSE
9990IF blocksize%>heapsize% THEN
10000 duf%=TRUE
10010 heapsize%+=newlen%
10020 IF FNcheckfreespace<=heapsize% THEN
10030 PROCalert("Message from Tree","Unable to find enough free memory.",0)
10040 heapsize%-=newlen%
10050 blocksize%-=newlen%
10060 ENDPROC
10070 ENDIF
10080SYS "Wimp_SlotSize",tasksize%+heapsize%,-1
10090 SYS "XOS_Heap",5,endprog%,,newlen%
10100ELSE
10110 IF FNcheckfreespace<=heapsize% THEN
10120 PROCalert("Message from Tree","Unable to find enough free memory.",0)
10130 blocksize%-=newlen%
10140 ENDPROC
10150 ENDIF
10160SYS "Wimp_SlotSize",tasksize%+heapsize%,-1
10170
10180ENDIF
10190SYS "XOS_Heap",4,endprog%,icondata%,newlen% TO ,,icondata%
10200IF icondata%=0 THEN
10210PROCalert("Message from Tree","Unable to find enough free memory.",0)
10220blocksize%-=newlen%
10230IF duf% THEN heapsize%-=newlen%
10240ENDPROC
10250ENDIF
10260newbase%=icondata%
10270SYS &00000008,12,p$,newbase%
10280iii%=newbase%!0
10290PROCgetvars(0,FALSE)
10300pa$=$filename%
10310cft=LEN(pa$)
10320WHILE MID$(pa$,cft,1)<>"."
10330cft-=1
10340ENDWHILE
10350pooup$=MID$(pa$,1,cft-1)
10360PROCtitle(main%,pooup$)
10370FOR myup=0 TO iii%-1
10380IF iii%-1<>0 THEN SYS&000406C4,(myup/(iii%-1))*100
10390PROCgetvars(myup,FALSE)
10400Qpos=(numbericons%!0)*50
10410block%!0=main%
10420block%!4=0
10430SYS &400CE,,block%
10440fag%=block%+4
10450um1%=fag%!4
10460um2%=fag%!12
10470block%!0=main%
10480block%!4=myup
10490SYS &400CE,,block%
10500fag%=block%+4
10510fag%!0=main%
10520fag%!8=fag%!8-44
10530fag%!4=um1%+Qpos
10540nut=fag%!8
10550fag%!16=fag%!16-44
10560fag%!12=um2%+Qpos
10570fcack$=FNgLn($filename%)
10580IF fag%!12>thebigone THEN thebigone=fag%!12
10590fag%!24=text%
10600IF type%!0>&FFF OR type%!0<&0 THEN
10610 IF LEFT$(fcack$,1)="!" THEN
10620 IF NOT FNspriteexists(fcack$) AND iconsprites THEN
10630 tty%=OPENIN($filename%+".!Sprites")
10640 IF tty%>0 AND tty%<=255 THEN
10650 wlll%=EXT#tty%
10660 CLOSE#tty%
10670 ENDIF
10680 IF tty%>0 AND tty%<=255 AND localsprites THEN
10690 IF FNfiletypeofafile($filename%+".!Sprites")=&FF9 THEN
10700 IF FNcheckfreespace>wlll% THEN
10710 REMOSCLI("ICONSPRITES "+$filename%+".!Sprites")
10720 IF localsprites THEN PROCloadsprites2
10730 ELSE
10740 PROCalert("Message from Tree","No room for sprites. Forgetting to load any more !Sprite files.",0)
10750 localsprites=FALSE
10760 valid$="Sdirectory"
10770 ENDIF
10780 ENDIF
10790 ENDIF
10800 ENDIF
10810 valid$="S"+fcack$
10820 IF NOT FNspriteexists(MID$(valid$,2,LEN(valid$))) THEN valid$="Sapplication"
10830 ELSE
10840 valid$="Sdirectory"
10850 ENDIF
10860ELSE
10870 valid$="Sfile_"+FNpad(type%!0)
10880ENDIF
10890IF type%!0=-2 AND valid$="Sdirectory" THEN valid$="Sfile_xxx"
10900IF NOT FNspriteexists(MID$(valid$,2,LEN(valid$))) THEN valid$="Sfile_xxx"
10910$valid%=valid$
10920fag%!28=valid%
10930fag%!32=LEN(fcack$)
10940SYS &400C2,,fag%
10950NEXTmyup
10960block%!0=workminx
10970block%!4=nut-4
10980block%!8=thebigone+20
10990block%!12=workmaxy
11000SYS &400d7,main%,block%
11010SYS &000400D1,main%,block%!0,block%!4,block%!8,block%!12
11020PROCopenwindow(main%,TRUE)
11030PROCiconputtext(saveas%,1,p$)
11040SYS&000406C2
11050flufend%=FALSE
11060ENDPROC
11070DEF FNicontext(window%,icon%)
11080block%!0=window% : block%!4=icon%
11090SYS &000400CE,,block%
11100IF ((block%!24) AND &100)=0 ERROR 1,"Icon isn't indirected"
11110=$(block%!28)
11120DEF PROCiconputtext(window%,icon%,text$)
11130block2%!0=window% : block2%!4=icon%
11140SYS &000400CE,,block2%
11150IF ((block2%!24) AND &100)=0 ERROR 1,"Icon isn't indirected"
11160$(block2%!28)=text$
11170block2%!0=window% : block2%!4=icon%
11180block2%!8=0 : block2%!12=0
11190SYS &000400CD,,block2%
11200ENDPROC
11210DEFPROCseticonsprite(w%,i%,s$)
11220block%!0=w%
11230block%!4=i%
11240SYS &000400CE,,block%
11250$block%!32=s$
11260block%!0=w%
11270block%!8=0
11280block%!12=0
11290SYS&000400CD,,block%
11300ENDPROC
11310DEFPROCdrawbox(wi%,ic%,sn$)
11320SYS &00000035,MODE,11 TO ,,xpixlimit
11330SYS &00000035,MODE,12 TO ,,ypixlimit
11340SYS &00000035,MODE,4 TO ,,xfact
11350SYS &00000035,MODE,5 TO ,,yfact
11360maxX=(xpixlimit+1)<<xfact
11370maxY=(ypixlimit+1)<<yfact
11380block%!0=wi%
11390SYS&000400CB,,block%
11400ys%=block%!16-block%!8:X%=block%!4:Y%=block%!8
11410yoff%=block%!24
11420block%!0=wi%:block%!4=ic%
11430SYS&000400CE,,block%
11440block%!8+=X%
11450block%!12+=Y%+ys%-yoff%
11460block%!16+=X%
11470block%!20+=Y%+ys%-yoff%
11480block%!4=5
11490SYS&000400CF,,block2%
11500block%!24=0-(block2%!0-block%!8)
11510block%!28=0-(block2%!4-block%!12)
11520block%!32=maxX+(block%!16-block2%!0)-2
11530block%!36=maxY+(block%!20-block2%!4)-4
11540block%!0=ic%
11550IF sn$="" THEN
11560SYS&000400D0,,block%
11570ELSE
11580SYS "DragASprite_Start",%11000101,1,sn$,block%+8
11590ENDIF
11600lastwindow%=wi%
11610ENDPROC
11620DEF PROCiconcaret(window%,icon%,chars%)
11630SYS &000400D2,window%,icon%,,,-1,chars%
11640ENDPROC
11650DEFPROCdofiles(pa$)
11660LOCAL ERROR
11670ON ERROR LOCAL PROCalert("Error from Tree",REPORT$,0):ENDPROC
11680columns=FALSE
11690localsprites=TRUE
11700SYS "XOS_Heap",4,endprog%,icondata%,-blocksize% TO ,,icondata%
11710SYS "XOS_Heap",5,endprog%,,-heapsize%+smegblocksize%
11720heapsize%=smegblocksize%
11730SYS "Wimp_SlotSize",tasksize%+heapsize%,-1
11740blocksize%=4
11750IF icondata%=0 THEN PROCalert("Message from Tree","Unable to find enough free memory.",0):ENDPROC
11760block%!0=main%
11770SYS &000400C3,,block%
11780SYS &000400C1,,mainwindow% TO main%
11790SYS&000406C0
11800cft=LEN(pa$)
11810thebigone=0
11820WHILE MID$(pa$,cft,1)<>"."
11830cft-=1
11840ENDWHILE
11850pooup$=MID$(pa$,1,cft-1)
11860PROCtitle(main%,pooup$)
11870block%!0=main%
11880SYS &400cc,,block%
11890workminx=block%!44
11900workminy=block%!48
11910workmaxx=block%!52
11920workmaxy=block%!56
11930iii%=0
11940tttemp%=0
11950archiver%=FNmodulepresent("SparkFS")
11960tempcack$=""
11970PROCread(pooup$,0,FALSE,0)
11980REMPROCgafup
11990PROCdirs(FALSE)
12000IF iii%>0 THEN
12010block%!0=workminx
12020block%!4=nut-4
12030block%!8=thebigone+20
12040block%!12=workmaxy
12050SYS &400d7,main%,block%
12060SYS &000400D1,main%,block%!0,block%!4,block%!8,block%!12
12070PROCopenwindow(main%,TRUE)
12080mody%=TRUE
12090ELSE
12100PROCclosewindow(main%)
12110PROCalert("Error from Tree","Unable to create tree of '"+pooup$+"'",0)
12120mody%=FALSE
12130ENDPROC
12140ENDIF
12150SYS&000406C2
12160ENDPROC
12170DEF FNgetstring(array%)
12180LOCAL path$,pointer%
12190path$=""
12200pointer%=array%
12210REPEAT
12220path$+=CHR$?pointer%
12230pointer%+=1
12240UNTIL ?pointer%=0 OR ?pointer%=13
12250=path$
12260DEFPROCgetvars(richicon%,resetflag%)
12270LOCAL ERROR
12280ON ERROR LOCAL PROCalert("Error from Tree",REPORT$,0):ENDPROC
12290fixbase%=icondata%
12300total%=fixbase%
12310base%=fixbase%+((richicon%)*400)+4
12320text%=base%
12330valid%=base%+24
12340filename%=base%+48
12350type%=base%+304
12360numbericons%=base%+308
12370readlength%=base%+312
12380attributes%=base%+316
12390ladr%=base%+320
12400eadr%=base%+324
12410treedef%=base%+328
12420IF richicon%=0 THEN richicon%+=1
12430base2%=(icondata%)+((richicon%-1)*400)+4
12440text2%=base2%
12450valid2%=base2%+24
12460filename2%=base2%+48
12470type2%=base2%+304
12480numbericons2%=base2%+308
12490readlength2%=base2%+312
12500attributes2%=base2%+316
12510ladr2%=base2%+320
12520eadr2%=base2%+324
12530treedef2%=base2%+328
12540IF resetflag% THEN
12550$(treedef%)=STRING$(63,"O")
12560ENDIF
12570ENDPROC
12580DEFPROCread(path$,tb,flag,mycounter)
12590LOCAL ERROR
12600ON ERROR LOCAL PROCalert("Error from Tree",REPORT$,0):ENDPROC
12610PROCgogo
12620ENDPROC
12630DEFPROCgogo
12640LOCAL offset,temp$
12650offset=0
12660REPEAT
12670$(buf%+20)=CHR$0
12680SYS&0002000C,10,path$+CHR$0,buf%,maxnumber,offset,41,"" TO R0,R1,R2,R3,offset
12690temp$=FNgetstring(buf%+20)
12700IF offset=0 THEN ENDPROC
12710IF temp$<>CHR$0 THEN
12720blocksize%=blocksize%+400
12730IF blocksize%>heapsize% THEN
12740SYS "XOS_Heap",5,endprog%,,400 TO ,,,temp%
12750IF temp%<>400 THEN PROCalert("Message from Tree","Unable to find enough free memory. About to try to display all that has been read.",0):ENDPROC
12760heapsize%+=400
12770IF FNcheckfreespace<=smegblocksize% THEN
12780PROCalert("Message from Tree","Unable to find enough free memory. About to try to display all that has been read.",0)
12790heapsize%-=400
12800blocksize%-=400
12810ENDPROC
12820ENDIF
12830SYS "Wimp_SlotSize",tasksize%+heapsize%+smegblocksize%,-1
12840ENDIF
12850SYS "XOS_Heap",4,endprog%,icondata%,400 TO ,,icondata%
12860IF icondata%=0 THEN PROCalert("Message from Tree","Unable to find enough free memory. About to try to display all that has been read.",0):ENDPROC
12870PROCgetvars(iii%,TRUE)
12880fty%=FNfilestype(buf%!16,buf%!0)
12890$filename%=path$+"."+temp$
12900type%!0=fty%
12910readlength%!0=buf%!8
12920attributes%!0=buf%!12
12930ladr%!0=buf%!0
12940eadr%!0=buf%!4
12950:
12960block%!0=main%
12970block%!4=0
12980SYS &400CE,,block%
12990fag%=block%+4
13000um1%=fag%!4
13010um2%=fag%!12
13020block%!0=main%
13030block%!4=iii%
13040SYS &400CE,,block%
13050fag%=block%+4
13060fag%!0=main%
13070fag%!8=fag%!8-44
13080fag%!4=um1%+tb
13090nut=fag%!8
13100fag%!16=fag%!16-44
13110fag%!12=um2%+tb
13120IF fag%!12>thebigone THEN thebigone=fag%!12
13130IF offset=-1 THEN
13140?(treedef%+mycounter)=ascl%
13150ELSE
13160?(treedef%+mycounter)=asct%
13170ENDIF
13180numbericons%!0=mycounter
13190IF (iii%-1)>=0 THEN
13200FOR smeg%=0 TO (numbericons2%!0)
13210IF ?(treedef2%+smeg%)=asct% AND ?(treedef%+smeg%)<>ascl% THEN ?(treedef%+smeg%)=asct%
13220NEXTsmeg%
13230ENDIF
13240$text%=temp$
13250fag%!24=text%
13260IF fty%>&FFF OR fty%<&0 THEN
13270 IF LEFT$(temp$,1)="!" THEN
13280 IF NOT FNspriteexists(temp$) AND iconsprites THEN
13290 tty%=OPENIN(path$+"."+temp$+".!Sprites")
13300 IF tty%<>0 THEN
13310 wlll%=EXT#tty%
13320 CLOSE#tty%
13330 ENDIF
13340 IF tty%<>0 AND localsprites THEN
13350 IF FNfiletypeofafile(path$+"."+temp$+".!Sprites")=&FF9 THEN
13360 IF FNcheckfreespace>wlll% THEN
13370 IF localsprites THEN PROCloadsprites
13380 ELSE
13390 PROCalert("Message from Tree","No room for sprites. Forgetting to load any more !Sprite files.",0)
13400 localsprites=FALSE
13410 valid$="Sdirectory"
13420 ENDIF
13430 ENDIF
13440 ENDIF
13450 ENDIF
13460 valid$="S"+temp$
13470 IF NOT FNspriteexists(MID$(valid$,2,LEN(valid$))) THEN valid$="Sapplication"
13480 ELSE
13490 valid$="Sdirectory"
13500 ENDIF
13510ELSE
13520 valid$="Sfile_"+FNpad(fty%)
13530ENDIF
13540IF type%!0=-2 AND valid$="Sdirectory" THEN valid$="Sfile_xxx"
13550IF NOT FNspriteexists(MID$(valid$,2,LEN(valid$))) THEN valid$="Sfile_xxx"
13560$valid%=valid$
13570fag%!28=valid%
13580fag%!32=LEN(temp$)
13590SYS &400C2,,fag%
13600iii%+=1
13610total%!0=iii%
13620ENDIF
13630IF buf%!16=2 OR (fty%=&ddc AND archiver%) OR fty%=&fc8 THEN
13640IF temp$<>CHR$0 THEN
13650PROCread(path$+"."+temp$,tb+50,TRUE,mycounter+1)
13660ENDIF
13670ENDIF
13680UNTIL offset=-1
13690ENDPROC
13700:
13710DEFPROCloadsprites
13720LOCAL ERROR
13730ON ERROR LOCAL PROCalert("Message from Tree","Error whilst trying to ICONSPRITE !Sprites file. "+REPORT$+". Not bothering with any more !Sprite files.",0)
13740OSCLI("ICONSPRITES "+path$+"."+temp$+".!Sprites")
13750localsprites=FALSE
13760ENDPROC
13770:
13780DEFPROCloadsprites2
13790LOCAL ERROR
13800ON ERROR LOCAL PROCalert("Message from Tree","Error whilst trying to ICONSPRITE !Sprites file. "+REPORT$+". Not bothering with any more !Sprite files.",0)
13810OSCLI("ICONSPRITES "+$filename%+".!Sprites")
13820localsprites=FALSE
13830ENDPROC
13840:
13850DEFPROCgafup
13860ENDPROC
13870REMsmeg%=iii%-1
13880REMPROCgetvars(smeg%,FALSE)
13890REMWHILE numbericons%!0>0
13900REMPROCgetvars(smeg%,FALSE)
13910REMFOR smeg2%=0 TO (numbericons%!0)-1
13920REM?(treedef%+smeg2%)=ascl%
13930REMNEXT smeg2%
13940REMsmeg%-=1
13950REMENDWHILE
13960FOR smeg2%=iii%-1 TO 1 STEP -1
13970PROCgetvars(smeg2%,FALSE)
13980FOR smeg3%=0 TO (numbericons%!0)
13990 IF ?(treedef%+smeg3%)=ascl% OR ?(treedef%+smeg3%)=ASC"F" THEN
14000 ?(treedef2%+smeg3%)=ASC"F"
14010 ELSE
14020 ?(treedef2%+smeg3%)=ASC"O"
14030 ENDIF
14040 IF ?(treedef%+smeg3%)=ASC"F" THEN
14050 ?(treedef%+smeg3%)=asct%
14060 ?(treedef2%+smeg3%)=ASC"F"
14070 ENDIF
14080NEXTsmeg3%
14090NEXTsmeg2%
14100ENDPROC
14110:
14120DEFFNws(s)
14130DIM sp% s
14140=sp%
14150DEF FNfilestype(obj%,type%)
14160IF obj%=1 AND (type% AND &FFF00000) <> &FFF00000 THEN
14170type%=-2
14180ELSE
14190IF obj%=1 THEN type%=(type% AND &FFF00) >> 8 ELSE type%=-1
14200ENDIF
14210=type%
14220DEFFNpad(qq)
14230far$=STR$~(qq)
14240CASE LEN(far$) OF
14250WHEN 0
14260far$="000"
14270WHEN 1
14280far$="00"+far$
14290WHEN 2
14300far$="0"+far$
14310ENDCASE
14320=far$
14330DEFPROCdolines(miny%,maxy%,scrolly%)
14340SYS&000400E6,fincols
14350top%=ABS(scrolly% DIV 44)
14360bot%=(maxy%-miny%-scrolly%) DIV 44
14370block2%!0=main%
14380SYS&400cb,,block2%
14390topx%=block2%!4-block2%!20
14400topy%=block2%!16-block2%!24
14410tobot%=bot%
14420IF tobot%>iii%-1 THEN tobot%=iii%-1
14430FOR puke%=top% TO tobot%
14440PROCgetvars(puke%,FALSE)
14450FOR subcount%=0 TO (numbericons%!0)-1
14460IF ?(treedef%+subcount%)=asct% AND subcount%<(numbericons%!0) THEN
14470PROCbar(topx%+(subcount%*50),topy%-puke%*44)
14480IF topy%-puke%*44 > tttemp% THEN tttemp%=topy%-puke%*44
14490ENDIF
14500NEXT subcount%
14510IF ?(treedef%+numbericons%!0)=ascl% THEN
14520PROCbotbar(topx%+((numbericons%!0)*50),topy%-puke%*44)
14530IF topy%-puke%*44 > tttemp% THEN tttemp%=topy%-puke%*44
14540ENDIF
14550IF ?(treedef%+numbericons%!0)=asct% THEN
14560PROCtbar(topx%+((numbericons%!0)*50),topy%-puke%*44)
14570IF topy%-puke%*44 > tttemp% THEN tttemp%=topy%-puke%*44
14580ENDIF
14590NEXT puke%
14600ENDPROC
14610DEFPROCtbar(xp%,yp%)
14620xp%+=8
14630LINE xp%,yp%,xp%,yp%-44
14640LINE xp%,yp%-22,xp%+36,yp%-22
14650ENDPROC
14660DEFPROCbotbar(xp%,yp%)
14670xp%+=8
14680LINE xp%,yp%,xp%,yp%-22
14690LINE xp%,yp%-22,xp%+36,yp%-22
14700ENDPROC
14710DEFPROCbar(xp%,yp%)
14720xp%+=8
14730LINE xp%,yp%,xp%,yp%-44
14740ENDPROC
14750DEFPROCtitle(w%,title$)
14760block%!0 = w%
14770SYS &000400CC,,block%
14780po% = !(block%+76)
14790$po% = title$+CHR$0
14800ENDPROC
14810DEFFNspriteexists(sprite$)
14820SYS&000600E9,24,,sprite$ TO R0%
14830IF R0%>600 OR R0%<0 THEN =FALSE ELSE =TRUE
14840DEFPROCmajorredraw
14850SYS&000406C0
14860FOR myup=0 TO iii%-1
14870IF iii%-1<>0 THEN SYS&000406C4,(myup/(iii%-1))*100
14880PROCgetvars(myup,FALSE)
14890temp$=FNgLn($filename%)
14900IF type%!0>&FFF OR type%!0<&0 THEN
14910IF LEFT$(temp$,1)="!" THEN
14920valid$="S"+temp$
14930ELSE
14940valid$="Sdirectory"
14950ENDIF
14960ELSE
14970valid$="Sfile_"+FNpad(type%!0)
14980ENDIF
14990IF NOT FNspriteexists(MID$(valid$,2,LEN(valid$))) THEN
15000 IF LEFT$(temp$,1)<>"!" THEN
15010 valid$="Sfile_xxx"
15020 ELSE
15030 valid$="SApplication"
15040 ENDIF
15050ENDIF
15060PROCseticonsprite(main%,myup+1,valid$)
15070NEXTmyup
15080SYS&000406C2
15090ENDPROC
15100DEFPROCalert(title$,message$,button%)
15110CLOSE #0
15120LOCAL response%
15130$(block2%+4)=message$
15140CASE button% OF
15150WHEN 2 : response%=1
15160WHEN 1 : response%=15
15170WHEN 3 : response%=(1<<5)+16
15180WHEN 4 : response%=(1<<6)+16
15190OTHERWISE : response%=16
15200ENDCASE
15210SYS &000400DF,block2%,response%,title$ TO ,response%
15220ENDPROC
15230DEFPROCexport(afile$,msgflg)
15240SYS &000406C0
15250SYS &08,11,afile$,&fff,0,0
15260mmy%=OPENOUT(afile$)
15270IF fheadings AND fsourcedir THEN
15280lll$="Tree display of '"+pooup$+"'"
15290FOR strptr%=1 TO LEN(lll$)
15300BPUT #mmy%,ASC(MID$(lll$,strptr%,strptr%))
15310NEXT strptr%
15320BPUT #mmy%,10
15330ENDIF
15340IF fheadings AND fdate THEN
15350lll$="Exported on "+TIME$
15360FOR strptr%=1 TO LEN(lll$)
15370BPUT #mmy%,ASC(MID$(lll$,strptr%,strptr%))
15380NEXT strptr%
15390BPUT #mmy%,10
15400ENDIF
15410IF fheadings THEN BPUT #mmy%,10
15420FOR puke%=0 TO iii%-1
15430PROCgetvars(puke%,FALSE)
15440IF iii%-1<>0 THEN SYS&000406C4,(puke%/(iii%-1))*100
15450line$=" "
15460FOR subcount%=0 TO (numbericons%!0)-1
15470IF ?(treedef%+subcount%)=asct% AND (subcount%)<numbericons%!0 THEN
15480line$+=flinejunc$+" "
15490ENDIF
15500IF ?(treedef%+subcount%)<>asct% AND ?(treedef%+subcount%)<>ascl% THEN
15510line$+=" "
15520ENDIF
15530NEXT subcount%
15540ffff$=FNgLn($filename%)
15550IF ?(treedef%+numbericons%!0)=ascl% THEN
15560line$+=fendjunc$+ffff$
15570ENDIF
15580IF ?(treedef%+numbericons%!0)=asct% THEN
15590line$+=ftjunc$+ffff$
15600ENDIF
15610FOR strptr%=1 TO LEN(line$)
15620BPUT #mmy%,ASC(MID$(line$,strptr%,strptr%))
15630NEXT strptr%
15640BPUT #mmy%,10
15650NEXT puke%
15660filelength%=EXT#mmy%
15670CLOSE #mmy%
15680SYS&000406C2
15690IF msgflg THEN
15700block%!0=256
15710block%!12=0
15720block%!16=3
15730block%!20=wind%
15740block%!24=icon%
15750block%!28=x%
15760block%!32=y%
15770block%!36=filelength%
15780block%!40=&FFF
15790$(block%+44)=afile$+CHR$0
15800SYS&000400E7,17,block%,wind%,icon%
15810ENDIF
15820ENDPROC
15830DEFPROCclickoptions(ic%)
15840LOCAL ERROR
15850ON ERROR LOCAL PROCalert("Error from Tree",REPORT$,0):ENDPROC
15860CASE ic% OF
15870WHEN 2
15880headcount=oldhead
15890PROCclosewindow(options%)
15900WHEN 0
15910tt1=fincols
15920tt2=cols
15930frows=VAL(FNicontext(pane%,22))
15940IF frows<1 THEN frows=1
15950fincols=cols
15960fheadings=headings
15970fsourcedir=sourcedir
15980linejunc$=FNPpad(FNicontext(pane%,8),1)
15990tjunc$=FNPpad(FNicontext(pane%,9),2)
16000endjunc$=FNPpad(FNicontext(pane%,10),2)
16010flinejunc$=linejunc$
16020fendjunc$=endjunc$
16030ftjunc$=tjunc$
16040fdate=date
16050fboxr=boxr
16060fboxg=boxg
16070fboxb=boxb
16080IF dirs<>fdirs THEN
16090fdirs=dirs
16100PROCdirs(TRUE)
16110ENDIF
16120flineobj=lineobj
16130IF button%<>1 THEN PROCclosewindow(options%)
16140IF tt1<>tt2 THEN PROCredrawwindow(main%)
16150WHEN 1
16160SYS&000406C0
16170frows=VAL(FNicontext(pane%,22))
16180IF frows<1 THEN frows=1
16190tt1=fincols
16200tt2=cols
16210fincols=cols
16220ficonsprites=iconsprites
16230fheadings=headings
16240fsourcedir=sourcedir
16250linejunc$=FNPpad(FNicontext(pane%,8),1)
16260tjunc$=FNPpad(FNicontext(pane%,9),2)
16270endjunc$=FNPpad(FNicontext(pane%,10),2)
16280flinejunc$=linejunc$
16290fendjunc$=endjunc$
16300ftjunc$=tjunc$
16310fdate=date
16320fboxr=boxr
16330fboxg=boxg
16340fboxb=boxb
16350flineobj=lineobj
16360IF dirs<>fdirs THEN
16370fdirs=dirs
16380PROCdirs(TRUE)
16390ENDIF
16400IF button%<>1 THEN PROCclosewindow(options%)
16410IF tt1<>tt2 THEN PROCredrawwindow(main%)
16420oufile%=OPENOUT("<Tree$Dir>.Options")
16430PRINT #oufile%,headcount
16440PRINT #oufile%,fheadings
16450PRINT #oufile%,fsourcedir
16460PRINT #oufile%,fdate
16470PRINT #oufile%,flinejunc$
16480PRINT #oufile%,ftjunc$
16490PRINT #oufile%,fendjunc$
16500PRINT #oufile%,fincols
16510PRINT #oufile%,ficonsprites
16520PRINT #oufile%,frows
16530PRINT #oufile%,fboxr
16540PRINT #oufile%,fboxg
16550PRINT #oufile%,fboxb
16560PRINT #oufile%,flineobj
16570PRINT #oufile%,fdirs
16580CLOSE #oufile%
16590SYS&000406C2
16600
16610WHEN 3
16620PROCdefaults(TRUE)
16630ENDCASE
16640ENDPROC
16650DEFPROCclickpane(ic%)
16660CASE ic% OF
16670WHEN 38
16680boxr-=1
16690IF boxr>=0 AND boxr<=255 THEN
16700PROCsetbar(pane%,28,27,255,boxr)
16710PROCiconputtext(pane%,35,STR$(boxr))
16720PROCdocolourbox(boxr,boxg,boxb,TRUE)
16730ENDIF
16740IF boxr<0 THEN boxr=0
16750WHEN 41
16760boxr+=1
16770IF boxr>=0 AND boxr<=255 THEN
16780PROCsetbar(pane%,28,27,255,boxr)
16790PROCiconputtext(pane%,35,STR$(boxr))
16800PROCdocolourbox(boxr,boxg,boxb,TRUE)
16810ENDIF
16820IF boxr>255 THEN boxr=255
16830:
16840WHEN 39
16850boxg-=1
16860IF boxg>=0 AND boxg<=255 THEN
16870PROCsetbar(pane%,31,30,255,boxg)
16880PROCiconputtext(pane%,36,STR$(boxg))
16890PROCdocolourbox(boxr,boxg,boxb,TRUE)
16900ENDIF
16910IF boxg<0 THEN boxg=0
16920WHEN 42
16930boxg+=1
16940IF boxg>=0 AND boxg<=255 THEN
16950PROCsetbar(pane%,31,30,255,boxg)
16960PROCiconputtext(pane%,36,STR$(boxg))
16970PROCdocolourbox(boxr,boxg,boxb,TRUE)
16980ENDIF
16990IF boxg>255 THEN boxg=255
17000:
17010WHEN 40
17020boxb-=1
17030IF boxb>=0 AND boxb<=255 THEN
17040PROCsetbar(pane%,34,33,255,boxb)
17050PROCiconputtext(pane%,37,STR$(boxb))
17060PROCdocolourbox(boxr,boxg,boxb,TRUE)
17070ENDIF
17080IF boxb<0 THEN boxb=0
17090WHEN 43
17100boxb+=1
17110IF boxb>=0 AND boxb<=255 THEN
17120PROCsetbar(pane%,34,33,255,boxb)
17130PROCiconputtext(pane%,37,STR$(boxb))
17140PROCdocolourbox(boxr,boxg,boxb,TRUE)
17150ENDIF
17160IF boxb>255 THEN boxb=255
17170WHEN 44
17180lineobj=NOT lineobj
17190IF lineobj THEN
17200PROCselicon(pane%,44)
17210ELSE
17220PROCuselicon(pane%,44)
17230ENDIF
17240WHEN 2
17250headings=NOT headings
17260PROCheadings
17270WHEN 46,47,48,49
17280dirs=NOT dirs
17290IF dirs THEN
17300PROCselicon(pane%,46)
17310ELSE
17320PROCuselicon(pane%,46)
17330ENDIF
17340WHEN 3
17350sourcedir=NOT sourcedir
17360IF sourcedir THEN
17370headcount+=1
17380PROCselicon(pane%,3)
17390ELSE
17400headcount-=1
17410IF headcount>0 THEN
17420PROCuselicon(pane%,3)
17430ELSE
17440sourcedir=NOT sourcedir
17450headcount=1
17460ENDIF
17470ENDIF
17480WHEN 4
17490date=NOT date
17500IF date THEN
17510headcount+=1
17520PROCselicon(pane%,4)
17530ELSE
17540headcount-=1
17550IF headcount>0 THEN
17560PROCuselicon(pane%,4)
17570ELSE
17580date=NOT date
17590headcount=1
17600ENDIF
17610ENDIF
17620WHEN 13
17630IF button%=4 THEN cols-=1
17640IF button%=1 THEN cols+=1
17650IF cols>=0 AND cols <=15 THEN
17660PROCiconputtext(pane%,14,STR$(cols))
17670PROCcolourset(cols)
17680ENDIF
17690IF cols<0 THEN cols=0
17700IF cols>15 THEN cols=15
17710WHEN 15
17720IF button%=4 THEN cols+=1
17730IF button%=1 THEN cols-=1
17740IF cols>=0 AND cols <=15 THEN
17750PROCiconputtext(pane%,14,STR$(cols))
17760PROCcolourset(cols)
17770ENDIF
17780IF cols>15 THEN cols=15
17790IF cols<0 THEN cols=0
17800WHEN 17
17810iconsprites=NOT iconsprites
17820IF iconsprites THEN
17830PROCselicon(pane%,17)
17840ELSE
17850PROCuselicon(pane%,17)
17860ENDIF
17870WHEN 21
17880rows=VAL(FNicontext(pane%,22))
17890IF button%=4 THEN rows-=1
17900IF button%=1 THEN rows+=1
17910IF rows>=1 AND rows<=999 THEN
17920PROCiconputtext(pane%,22,STR$(rows))
17930ENDIF
17940IFrows>999 THEN rows=999
17950IFrows<1 THEN rows=1
17960PROCIconCaret(pane%,22,LEN(STR$(rows)))
17970WHEN 23
17980rows=VAL(FNicontext(pane%,22))
17990IF button%=4 THEN rows+=1
18000IF button%=1 THEN rows-=1
18010IF rows>=1 AND rows<=999 THEN
18020PROCiconputtext(pane%,22,STR$(rows))
18030ENDIF
18040IFrows>999 THEN rows=999
18050IFrows<1 THEN rows=1
18060PROCIconCaret(pane%,22,LEN(STR$(rows)))
18070WHEN 28,27
18080PROCdragslidericon(pane%,28,27)
18090WHEN 31,30
18100PROCdragslidericon(pane%,31,30)
18110WHEN 34,33
18120PROCdragslidericon(pane%,34,33)
18130ENDCASE
18140ENDPROC
18150DEFPROCpane
18160oldhead=headcount
18170headings=fheadings
18180boxr=fboxr
18190boxg=fboxg
18200boxb=fboxb
18210PROCsetbar(pane%,28,27,255,boxr)
18220PROCsetbar(pane%,31,30,255,boxg)
18230PROCsetbar(pane%,34,33,255,boxb)
18240PROCdocolourbox(boxr,boxg,boxb,TRUE)
18250:
18260PROCiconputtext(pane%,35,STR$(boxr))
18270PROCiconputtext(pane%,36,STR$(boxg))
18280PROCiconputtext(pane%,37,STR$(boxb))
18290:
18300PROCheadings
18310sourcedir=fsourcedir
18320IF sourcedir THEN
18330PROCselicon(pane%,3)
18340ELSE
18350PROCuselicon(pane%,3)
18360ENDIF
18370date=fdate
18380IF date THEN
18390PROCselicon(pane%,4)
18400ELSE
18410PROCuselicon(pane%,4)
18420ENDIF
18430PROCiconputtext(pane%,8,linejunc$)
18440PROCiconputtext(pane%,9,tjunc$)
18450PROCiconputtext(pane%,10,endjunc$)
18460cols=fincols
18470PROCiconputtext(pane%,14,STR$(cols))
18480PROCcolourset(cols)
18490iconsprites=ficonsprites
18500IF iconsprites THEN
18510PROCselicon(pane%,17)
18520ELSE
18530PROCuselicon(pane%,17)
18540ENDIF
18550rows=frows
18560PROCiconputtext(pane%,22,STR$(rows))
18570:
18580lineobj=flineobj
18590IF lineobj THEN
18600PROCselicon(pane%,44)
18610ELSE
18620PROCuselicon(pane%,44)
18630ENDIF
18640IF dirs THEN
18650PROCselicon(pane%,46)
18660ELSE
18670PROCuselicon(pane%,46)
18680ENDIF
18690ENDPROC
18700DEFPROCheadings
18710IF headings THEN
18720PROCselicon(pane%,2)
18730PROCusicon(pane%,3)
18740PROCusicon(pane%,4)
18750ELSE
18760PROCuselicon(pane%,2)
18770PROCsicon(pane%,3)
18780PROCsicon(pane%,4)
18790ENDIF
18800ENDPROC
18810DEFPROCcolourset(c)
18820PROCchangebcolour(pane%,14,c)
18830CASE c OF
18840WHEN 0,1,2,3,9,12,14,15
18850PROCchangefcolour(pane%,14,7)
18860OTHERWISE
18870PROCchangefcolour(pane%,14,0)
18880ENDCASE
18890ENDPROC
18900DEFPROCchangebcolour(wi%,ic%,co%)
18910block%!0=wi%
18920block%!4=ic%
18930block%!8=(co%<<28)
18940block%!12=(%1111<<28)
18950SYS &400CD,,block%
18960ENDPROC
18970DEFPROCchangefcolour(wi%,ic%,co%)
18980block%!0=wi%
18990block%!4=ic%
19000block%!8=(co%<<24)
19010block%!12=(%1111<<24)
19020SYS &400CD,,block%
19030ENDPROC
19040DEFFNPpad(st$,n)
19050LOCAL p
19060p=LEN(st$)
19070st$=st$+STRING$(n-p," ")
19080=st$
19090DEFPROCdefaults(flagg%)
19100dirs=FALSE
19110PROCuselicon(pane%,46)
19120boxr=0
19130boxg=0
19140boxb=0
19150PROCsetbar(pane%,28,27,255,boxr)
19160PROCsetbar(pane%,31,30,255,boxg)
19170PROCsetbar(pane%,34,33,255,boxb)
19180PROCdocolourbox(boxr,boxg,boxb,TRUE)
19190PROCiconputtext(pane%,35,STR$(boxr))
19200PROCiconputtext(pane%,36,STR$(boxg))
19210PROCiconputtext(pane%,37,STR$(boxb))
19220rows=50
19230headings=TRUE
19240sourcedir=TRUE
19250date=TRUE
19260headcount=2
19270tjunc$="+�"
19280endjunc$="'�"
19290linejunc$="|"
19300cols=7
19310iconsprites=TRUE
19320IF flagg% THEN
19330PROCheadings
19340IF sourcedir THEN
19350PROCselicon(pane%,3)
19360ELSE
19370PROCuselicon(pane%,3)
19380ENDIF
19390IF date THEN
19400PROCselicon(pane%,4)
19410ELSE
19420PROCuselicon(pane%,4)
19430ENDIF
19440PROCiconputtext(pane%,8,linejunc$)
19450PROCiconputtext(pane%,9,tjunc$)
19460PROCiconputtext(pane%,10,endjunc$)
19470PROCiconputtext(pane%,14,STR$(cols))
19480PROCcolourset(cols)
19490IF iconsprites THEN
19500PROCselicon(pane%,17)
19510ELSE
19520PROCuselicon(pane%,17)
19530ENDIF
19540PROCiconputtext(pane%,22,STR$(rows))
19550ENDIF
19560lineobj=TRUE
19570IF lineobj THEN
19580PROCselicon(pane%,44)
19590ELSE
19600PROCuselicon(pane%,44)
19610ENDIF
19620ENDPROC
19630DEFFNmodulepresent(modulename$)
19640SYS &0002001E,18,modulename$ TO M0,M1,M2,M3,M4,M5
19650IF M2=0 AND M3=0 AND M4=0 AND M5=0 THEN =0 ELSE =1
19660DEFFNfiletypeofafile(file$)
19670LOCAL obj%
19680SYS &00000008,5,file$ TO obj%,,mynewtype%
19690IF obj%=1 AND (mynewtype% AND &FFF00000) <> &FFF00000 THEN
19700mynewtype%=-2
19710ELSE
19720IF obj%=1 THEN mynewtype%=(mynewtype% AND &FFF00) >> 8 ELSE mynewtype%=-1
19730ENDIF
19740=mynewtype%
19750:
19760DEFFNcheckfreespace
19770SYS"Wimp_SlotSize",-1,-1 TO ,,freepool
19780=freepool
19790:
19800DEFPROCdodraw(file$)
19810SYS &08,11,file$,&aff,0,0
19820SYS "Hourglass_On"
19830recalcx%=0
19840X%=OPENOUT(file$)
19850topx%=300
19860dummytopy%=8150
19870topy%=8150
19880tttemp%=200
19890dummyx%=0
19900IF tttemp%<830 THEN tttemp%=830
19910IF columns THEN
19920PROCmakedrawfileheader(topx%-150,topy%-((rows-1)*22)-50,0,topy%+200)
19930ELSE
19940PROCmakedrawfileheader(topx%-150,topy%-((iii%-1)*22)-50,tttemp%+50,topy%+200)
19950ENDIF
19960:
19970PROCobjectheader(0,8+FNfonttablesize("Homerton.Medium"),0,0,0,0,FALSE)
19980PROCfonttable(1,"Homerton.Medium")
19990:
20000PROCobjectheader(11,64+24,0,0,0,0,TRUE)
20010PROCobject
20020:
20030PROCobjectheader(2,24+16+24+4,topx%-100,topy%+144,topx%-100+650,topy%+144,TRUE)
20040PROCpathheader(255,0,0)
20050PROCdrawfilemove(topx%-100,topy%+144)
20060PROCdrawfiledraw(topx%-100+650,topy%+144)
20070PROCendpath
20080:
20090PROCtextobject(1,255,0,0,14,14,topx%-100,topy%+150,"Tree ("+MID$(ver$,1,6)+") - by Richard Samphire 1993")
20100PROCtextobject(1,0,0,0,10,10,topx%-100,topy%+40,"Tree of :")
20110PROCtextobject(1,0,68,153,8,8,topx%-30,topy%+15,pooup$)
20120:
20130pfaf%=0
20140duff%=0
20150Alinecount%=0
20160Blinecount%=0
20170FOR puke%=0 TO iii%-1
20180IF puke%>0 AND (puke% MOD rows = 0) AND columns THEN
20190topx%=(recalcx%+200)
20200col(duff%)=topx%
20210topy%=dummytopy%
20220recalcx%=0
20230pfaf%=0
20240duff%+=1
20250IF duff%>199 THEN
20260duff%=199
20270ERROR 0,"A tree draw file can only have 199 columns."
20280ENDIF
20290ENDIF
20300IF iii%-1<>0 THEN SYS&000406C4,(puke%/(iii%-1))*100
20310PROCgetvars(puke%,FALSE)
20320FOR subcount%=0 TO (numbericons%!0)-1
20330IF ?(treedef%+subcount%)=asct% AND subcount%<(numbericons%!0) THEN
20340IF NOT lineobj THEN PROCdrawbar(topx%+(subcount%*25),topy%-pfaf%*22)
20350Alinecount%+=1
20360ENDIF
20370NEXT subcount%
20380IF ?(treedef%+numbericons%!0)=ascl% THEN
20390IF NOT lineobj THEN PROCdrawbotbar(topx%+((numbericons%!0)*25),topy%-pfaf%*22)
20400PROCsprite(topx%+((numbericons%!0)*25)+24,(topy%-pfaf%*22)-20)
20410PROCtextobject(1,0,0,0,8,8,topx%+((numbericons%!0)*25)+55,(topy%-pfaf%*22)-18,FNgLn($filename%))
20420Blinecount%+=1
20430ENDIF
20440IF ?(treedef%+numbericons%!0)=asct% THEN
20450IF NOT lineobj THEN PROCdrawtbar(topx%+((numbericons%!0)*25),topy%-pfaf%*22)
20460PROCsprite(topx%+((numbericons%!0)*25)+24,(topy%-pfaf%*22)-20)
20470PROCtextobject(1,0,0,0,8,8,topx%+((numbericons%!0)*25)+55,(topy%-pfaf%*22)-18,FNgLn($filename%))
20480Blinecount%+=1
20490ENDIF
20500pfaf%+=1
20510NEXT puke%
20520:
20530IF lineobj THEN
20540PROCobjectheader(2,24+16+(Blinecount%*48)+(Alinecount%*24)+4,x,y-22,x+18,y,TRUE)
20550PROCpathheader(fboxr,fboxg,fboxb)
20560topx%=300
20570dummytopy%=8150
20580topy%=8150
20590tttemp%=200
20600dummyx%=0
20610pfaf%=0
20620duff%=0
20630FOR puke%=0 TO iii%-1
20640IF puke%>0 AND (puke% MOD rows = 0) AND columns THEN
20650topx%=col(duff%)
20660topy%=dummytopy%
20670recalcx%=0
20680pfaf%=0
20690duff%+=1
20700ENDIF
20710IF iii%-1<>0 THEN SYS&000406C4,(puke%/(iii%-1))*100
20720PROCgetvars(puke%,FALSE)
20730FOR subcount%=0 TO (numbericons%!0)-1
20740IF ?(treedef%+subcount%)=asct% AND subcount%<(numbericons%!0) THEN
20750PROCdrawbar2(topx%+(subcount%*25),topy%-pfaf%*22)
20760ENDIF
20770NEXT subcount%
20780IF ?(treedef%+numbericons%!0)=ascl% THEN
20790PROCdrawbotbar2(topx%+((numbericons%!0)*25),topy%-pfaf%*22)
20800ENDIF
20810IF ?(treedef%+numbericons%!0)=asct% THEN
20820PROCdrawtbar2(topx%+((numbericons%!0)*25),topy%-pfaf%*22)
20830ENDIF
20840pfaf%+=1
20850NEXT puke%
20860PROCendpath
20870ENDIF
20880:
20890filelength%=EXT#X%
20900IF columns THEN
20910PTR#X%=32
20920block2%!0=FNtodraw(dummyx%+250)
20930SYS "OS_GBPB",2,X%,block2%,4
20940ENDIF
20950CLOSE#X%
20960SYS "Hourglass_Smash"
20970OSCLI("SETTYPE "+file$+" &AFF")
20980block%!0=256
20990block%!12=0
21000block%!16=3
21010block%!20=wind%
21020block%!24=icon%
21030block%!28=x%
21040block%!32=y%
21050block%!36=filelength%
21060block%!40=&aff
21070$(block%+44)=file$+CHR$0
21080SYS&000400E7,17,block%,wind%,icon%
21090ENDPROC
21100:
21110DEFPROCmakedrawfileheader(xl,yl,xh,yh)
21120$(block2%+0)="Draw"
21130block2%!4=201
21140block2%!8=0
21150$(block2%+12)="Tree "
21160block2%!24=FNtodraw(xl)
21170block2%!28=FNtodraw(yl)
21180block2%!32=FNtodraw(xh)
21190block2%!36=FNtodraw(yh)
21200SYS "OS_GBPB",2,X%,block2%,40
21210ENDPROC
21220:
21230DEFPROCobjectheader(type,size,xl,yl,xh,yh,flg)
21240block2%!0=type
21250block2%!4=size
21260IF flg THEN
21270block2%!8=FNtodraw(xl)
21280block2%!12=FNtodraw(yl)
21290block2%!16=FNtodraw(xh)
21300block2%!20=FNtodraw(yh)
21310SYS "OS_GBPB",2,X%,block2%,24
21320ELSE
21330SYS "OS_GBPB",2,X%,block2%,8
21340ENDIF
21350ENDPROC
21360:
21370DEFFNtodraw(num)
21380=num*256
21390:
21400DEFPROCpathheader(r,g,b)
21410block2%!0=-1
21420?(block2%+4)=0
21430?(block2%+5)=r
21440?(block2%+6)=g
21450?(block2%+7)=b
21460block2%!8=0
21470block2%!12=%1101000
21480SYS "OS_GBPB",2,X%,block2%,16
21490ENDPROC
21500:
21510DEFPROCdrawfilemove(x,y)
21520block2%!0=2
21530block2%!4=FNtodraw(x)
21540block2%!8=FNtodraw(y)
21550SYS "OS_GBPB",2,X%,block2%,12
21560ENDPROC
21570:
21580DEFPROCdrawfiledraw(x,y)
21590block2%!0=8
21600block2%!4=FNtodraw(x)
21610block2%!8=FNtodraw(y)
21620SYS "OS_GBPB",2,X%,block2%,12
21630ENDPROC
21640:
21650DEFPROCendpath
21660block2%!0=0
21670SYS "OS_GBPB",2,X%,block2%,4
21680ENDPROC
21690:
21700DEFPROCobject
21710block2%!0=(0+1)*&100
21720block2%!4=0
21730|(block2%+8)=1.0
21740block2%!16=2
21750block2%!20=0
21760block2%!24=0
21770block2%!28=0
21780block2%!32=0
21790block2%!36=1
21800block2%!40=1
21810block2%!44=1
21820block2%!48=0
21830block2%!52=1
21840block2%!56=0
21850block2%!60=4096
21860SYS "OS_GBPB",2,X%,block2%,64
21870ENDPROC
21880:
21890DEFPROCdrawtbar(x,y)
21900PROCobjectheader(2,24+16+24+24+4,x,y-22,x+18,y,TRUE)
21910PROCpathheader(fboxr,fboxg,fboxb)
21920PROCdrawfilemove(x,y)
21930PROCdrawfiledraw(x,y-22)
21940PROCdrawfilemove(x,y-11)
21950PROCdrawfiledraw(x+18,y-11)
21960PROCendpath
21970ENDPROC
21980:
21990DEFPROCdrawbotbar(x,y)
22000PROCobjectheader(2,24+16+24+24+4,x,y-11,x+18,y,TRUE)
22010PROCpathheader(fboxr,fboxg,fboxb)
22020PROCdrawfilemove(x,y)
22030PROCdrawfiledraw(x,y-11)
22040PROCdrawfilemove(x,y-11)
22050PROCdrawfiledraw(x+18,y-11)
22060PROCendpath
22070ENDPROC
22080:
22090DEFPROCdrawbar(x,y)
22100PROCobjectheader(2,24+16+24+4,x,y-22,x+18,y,TRUE)
22110PROCpathheader(fboxr,fboxg,fboxb)
22120PROCdrawfilemove(x,y)
22130PROCdrawfiledraw(x,y-22)
22140PROCendpath
22150ENDPROC
22160:
22170DEFPROCfonttable(number,font$)
22180FOR blank%=0 TO 20+LEN(font$)
22190?(block2%+blank%)=0
22200NEXTblank%
22210?(block2%+0)=number
22220$(block2%+1)=font$+CHR$0
22230SYS "OS_GBPB",2,X%,block2%,FNfonttablesize(font$)
22240ENDPROC
22250:
22260DEFFNfonttablesize(FO$)
22270l=0
22280FO$=FO$+CHR$0
22290l+=LEN(FO$)
22300cs=l MOD 4
22310IF cs>0 THEN cs=4-cs
22320cs+=LEN(FO$)
22330=cs+12
22340:
22350DEFPROCtextobject(number,r,g,b,px,py,x,y,str$)
22360MXP=px*1000
22370MYP=py*1000
22380SYS &40088,,MXP,MYP TO ,MMXP,MMYP
22390MMXP=MMXP*(LEN(str$)/2)
22400sx=0
22410FOR b=0 TO LEN(str$)
22420PROCobjectheader(1,24+FNfontsize(str$),x,y,x+MMXP,y+MMYP,TRUE)
22430IF x>recalcx% THEN recalcx%=x
22440IF x+MMXP>dummyx% THEN dummyx%=x+MMXP
22450FOR blank%=0 TO 40+LEN(str$)
22460?(block2%+blank%)=0
22470NEXTblank%
22480?(block2%+0)=0
22490?(block2%+1)=r
22500?(block2%+2)=g
22510?(block2%+3)=b
22520?(block2%+4)=0
22530?(block2%+5)=255
22540?(block2%+6)=255
22550?(block2%+7)=255
22560block2%!8=number
22570block2%!12=px*640
22580block2%!16=py*640
22590block2%!20=FNtodraw(x)
22600block2%!24=FNtodraw(y)
22610$(block2%+28)=str$+CHR$0
22620SYS "OS_GBPB",2,X%,block2%,FNfontsize(str$)
22630ENDPROC
22640:
22650DEFFNfontsize(FO$)
22660l=0
22670FO$=FO$+CHR$0
22680l+=LEN(FO$)
22690cs=l MOD 4
22700IF cs>0 THEN cs=4-cs
22710cs+=LEN(FO$)
22720=cs+28
22730:
22740DEFPROCsprite(XXMY,YYMY)
22750fcack$=FNgLn($filename%)
22760IF type%!0>&FFF OR type%!0<&0 THEN
22770 IF LEFT$(fcack$,1)="!" THEN
22780 valid$=fcack$
22790 IF NOT FNspriteexists(valid$) THEN valid$="application"
22800 ELSE
22810 valid$="directory"
22820 ENDIF
22830ELSE
22840 valid$="file_"+FNpad(type%!0)
22850 IF NOT FNspriteexists(valid$) THEN valid$="file_xxx"
22860ENDIF
22870:
22880PROCsubspr
22890ENDPROC
22900:
22910DEFPROCsubspr
22920LOCAL ERROR
22930ON ERROR LOCAL IF ERR=134 THEN PROCsubspr2:ENDPROC
22940SYS &400EA TO newarea
22950SYS &2E,256+24,newarea,valid$ TO ,,sprpointer%
22960:
22970spritelength%=sprpointer%!0
22980mval=(24+spritelength%) MOD 4
22990IF mval>0 THEN mval=4-mval
23000PROCobjectheader(5,24+spritelength%+mval,XXMY,YYMY,XXMY+20,YYMY+20,TRUE)
23010SYS "OS_GBPB",2,X%,sprpointer%,spritelength%
23020block2%!0=0
23030SYS "OS_GBPB",2,X%,block2%,mval
23040ENDPROC
23050:
23060DEFPROCsubspr2
23070LOCAL ERROR
23080ON ERROR LOCAL ERROR 0,REPORT$+STR$(ERL)
23090SYS &400ea TO ,newarea
23100SYS &2e,256+24,newarea,valid$ TO ,,sprpointer%
23110:
23120spritelength%=sprpointer%!0
23130mval=(24+spritelength%) MOD 4
23140IF mval>0 THEN mval=4-mval
23150PROCobjectheader(5,24+spritelength%+mval,XXMY,YYMY,XXMY+20,YYMY+20,TRUE)
23160SYS "OS_GBPB",2,X%,sprpointer%,spritelength%
23170block2%!0=0
23180SYS "OS_GBPB",2,X%,block2%,mval
23190ENDPROC
23200:
23210DEFPROCIconCaret(window%,icon%,chars%)
23220SYS "Wimp_SetCaretPosition",window%,icon%,,,-1,chars%
23230ENDPROC
23240:
23250DEFPROCdrawtbar2(x,y)
23260PROCdrawfilemove(x,y)
23270PROCdrawfiledraw(x,y-22)
23280PROCdrawfilemove(x,y-11)
23290PROCdrawfiledraw(x+18,y-11)
23300ENDPROC
23310:
23320DEFPROCdrawbotbar2(x,y)
23330PROCdrawfilemove(x,y)
23340PROCdrawfiledraw(x,y-11)
23350PROCdrawfilemove(x,y-11)
23360PROCdrawfiledraw(x+18,y-11)
23370ENDPROC
23380:
23390DEFPROCdrawbar2(x,y)
23400PROCdrawfilemove(x,y)
23410PROCdrawfiledraw(x,y-22)
23420ENDPROC
23430:
23440
23450DEFFNattributes(attrib)
23460attribute$=""
23470IF attrib AND %1000 THEN attribute$+="L"
23480IF attrib AND %10 THEN attribute$+="W"
23490IF attrib AND %1 THEN attribute$+="R"
23500attribute$+="/"
23510IF attrib AND %10000000 THEN attribute$+="l"
23520IF attrib AND %100000 THEN attribute$+="w"
23530IF attrib AND %10000 THEN attribute$+="r"
23540=attribute$
23550:
23560DEFFNmyconvert(laddress,eaddress)
23570IF (laddress AND %11111111111100000000000000000000) = %11111111111100000000000000000000 THEN
23580templ=laddress AND (NOT %11111111111111111111111100000000)
23590?(block2%+4)=templ
23600tempe=eaddress AND (NOT %00000000111111111111111111111111)
23610?(block2%+3)=tempe>>24
23620tempe=eaddress AND (NOT %11111111000000001111111111111111)
23630?(block2%+2)=tempe>>16
23640tempe=eaddress AND (NOT %11111111111111110000000011111111)
23650?(block2%+1)=tempe>>8
23660tempe=eaddress AND (NOT %11111111111111111111111100000000)
23670?(block2%+0)=tempe
23680result%=block2%+256
23690SYS "OS_ConvertStandardDateAndTime",block2%,result%,256
23700=FNgetstring(result%)
23710ENDIF
23720=STR$~(laddress)+" "+STR$~(eaddress)
23730:
23740DEFPROCgetprinterinfo
23750SYS "XPDriver_Info" TO R0,R1,R2,R3,R4,R5,R6,R7
23760IF R1=0 AND R2=0 AND R3=0 AND R4=0 AND R5=0 AND R6=0 THEN
23770driver%=FALSE
23780printer$="None Installed"
23790ELSE
23800driver%=TRUE
23810printer$=FNgetstring(R4)
23820ENDIF
23830ENDPROC
23840:
23850DEFPROCclickprint(ic%)
23860CASE ic% OF
23870WHEN 1
23880copies=VAL(FNicontext(print%,2))
23890IF copies<0 THEN copies=1
23900IF copies>999 THEN copies=999
23910IF button%=4 THEN copies-=1
23920IF button%=1 THEN copies+=1
23930IF copies<1 THEN copies=1
23940IF copies>999 THEN copies=999
23950PROCiconputtext(print%,2,STR$(copies))
23960PROCIconCaret(print%,2,LEN(STR$(copies)))
23970WHEN 3
23980copies=VAL(FNicontext(print%,2))
23990IF copies<1 THEN copies=1
24000IF copies>999 THEN copies=999
24010IF button%=1 THEN copies-=1
24020IF button%=4 THEN copies+=1
24030IF copies<0 THEN copies=1
24040IF copies>999 THEN copies=999
24050PROCiconputtext(print%,2,STR$(copies))
24060PROCIconCaret(print%,2,LEN(STR$(copies)))
24070WHEN 5
24080copies=VAL(FNicontext(print%,2))
24090IF copies<1 THEN copies=1
24100IF copies>999 THEN copies=999
24110doprint%=TRUE
24120poowindow%=print%
24130block%!0=256
24140block%!12=0
24150block%!16=&80142
24160block%!20=0
24170block%!24=0
24180block%!28=0
24190block%!32=0
24200block%!36=-1
24210block%!40=&FFF
24220$(block%+44)=FNgLn("<Wimp$Scrap>")+CHR$0
24230SYS "Wimp_SendMessage",18,block%,0
24240IF button%<>1 THEN SYS "Wimp_CreateMenu",-1
24250ENDIF
24260ENDCASE
24270ENDPROC
24280:
24290DEFFNmycontrol
24300block2%!0=mycontrol%
24310SYS &000400CB,,block2%
24320SYS &000400C5,,block2%
24330tBB=-1
24340REPEAT
24350SYS &000400C7,0,block2% TO reason2%,block2%
24360CASE reason2% OF
24370WHEN 1
24380SYS &000400C8,,block2% TO flag
24390WHILE flag
24400PROCdolines(block2%!8,block2%!16,block2%!24)
24410SYS &000400CA,,block2% TO flag
24420ENDWHILE
24430WHEN 2
24440SYS &000400C5,,block2%
24450WHEN 6
24460subbutton%=block2%!8
24470subwindow%=block2%!12
24480subicon%=block2%!16
24490IF subwindow%=mycontrol% THEN
24500CASE subicon% OF
24510WHEN 5 : tBB = 0
24520WHEN 6 : tBB = 1
24530WHEN 7 : tBB = 2
24540ENDCASE
24550ENDIF
24560WHEN 18
24570IF block2%!16=8 THEN
24580 block2%!12=block2%!8
24590 SYS "Wimp_SendMessage",19,block2%,0
24600 PROCsicon(mycontrol%,6)
24610 pressed=TRUE
24620ENDIF
24630ENDCASE
24640
24650UNTIL tBB>-1
24660=tBB
24670:
24680DEFPROCdragslidericon(win%,dragicon%,sizeicon%)
24690block%!0=win%
24700block%!4=sizeicon%
24710SYS "Wimp_GetIconState",,block%
24720sminx%=block%!8
24730sminy%=block%!12
24740smaxx%=block%!16
24750smaxy%=block%!20
24760SYS "Wimp_GetPointerInfo",,block%
24770mx%=block%!0
24780block%!0=win%
24790SYS "Wimp_GetWindowInfo",,block%
24800calcx%=(mx%-(block%!4-block%!20))+block%!44
24810SYS &35,MODE,4 TO ,,xfact%
24820iconminx%=sminx%+(block%!4-block%!20)
24830iconmaxx%=iconminx%+(smaxx%-sminx%)
24840iconminy%=sminy%+(block%!16-block%!24)
24850SYS &35,MODE,5 TO ,,yfact%
24860iconmaxy%=iconminy%+(smaxy%-sminy%)-(1<<yfact%)
24870block%!0=win%
24880block%!4=7
24890block%!8=iconminx%
24900block%!12=iconminy%
24910block%!16=iconmaxx%
24920block%!20=iconmaxy%
24930block%!24=block%!8
24940block%!28=block%!12
24950block%!32=block%!16
24960block%!36=block%!20
24970SYS "Wimp_DragBox",,block%
24980slidewindow%=win%
24990slideicon%=dragicon%
25000slidesize%=sizeicon%
25010lastwindow%=win%
25020block%!0=win%
25030block%!4=dragicon%
25040SYS "Wimp_GetIconState",,block%
25050oldworkx%=block%!16
25060ENDPROC
25070:
25080DEFPROCdoslide(win%,dragicon%,sizeicon%,const%,range%)
25090block%!0=win%
25100block%!4=sizeicon%
25110SYS "Wimp_GetIconState",,block%
25120sizeminx%=block%!8
25130sizeminy%=block%!12
25140sizemaxx%=block%!16
25150sizemaxy%=block%!20
25160MOUSE mx%,my%,mb%
25170block%!0=win%
25180SYS "Wimp_GetWindowInfo",,block%
25190minx%=block%!4
25200scrx%=block%!20
25210newx%=mx%+(scrx%-minx%)
25220IF newx%<>oldworkx% THEN
25230 block%!0=win%
25240 block%!4=dragicon%
25250 SYS "Wimp_GetIconState",,block%
25260 block%!16=newx%
25270 block%!0=win%
25280 block%!4=dragicon%
25290 SYS "Wimp_DeleteIcon",,block%
25300 block%!4=win%
25310 SYS "Wimp_CreateIcon",,block%+4
25320newblock%=block%+4
25330IF oldworkx%<newx% THEN
25340newblock%!4=sizeminx%
25350ELSE
25360newblock%!4=newx%
25370ENDIF
25380newblock%!8=sizeminy%
25390IF oldworkx%>newx% THEN
25400newblock%!12=sizemaxx%
25410ELSE
25420newblock%!12=newx%
25430ENDIF
25440newblock%!16=sizemaxy%
25450SYS "Wimp_UpdateWindow",,newblock% TO flag
25460WHILE flag
25470SYS "Wimp_GetRectangle",,newblock% TO flag
25480ENDWHILE
25490 IF const% THEN
25500 size%=sizemaxx%-sizeminx%
25510 ppos%=(newx%-sizeminx%)
25520 number%=(range%/size%)*ppos%
25530 :
25540 CASE slideicon% OF
25550 WHEN 28
25560 boxr=number%
25570 PROCiconputtext(pane%,35,STR$(boxr))
25580 PROCdocolourbox(boxr,boxg,boxb,TRUE)
25590 WHEN 31
25600 boxg=number%
25610 PROCiconputtext(pane%,36,STR$(boxg))
25620 PROCdocolourbox(boxr,boxg,boxb,TRUE)
25630 WHEN 34
25640 boxb=number%
25650 PROCiconputtext(pane%,37,STR$(boxb))
25660 PROCdocolourbox(boxr,boxg,boxb,TRUE)
25670 ENDCASE
25680 ENDIF
25690ENDIF
25700block%!0=win%
25710block%!4=dragicon%
25720SYS "Wimp_GetIconState",,block%
25730oldworkx%=block%!16
25740rrange%=range%
25750ENDPROC
25760:
25770DEFPROCsetbar(win%,dragicon%,sizeicon%,range%,number%)
25780IF number%<0 THEN number%=0
25790IF number%>range% THEN number%=range%
25800block%!0=win%
25810block%!4=sizeicon%
25820SYS "Wimp_GetIconState",,block%
25830sizeminx%=block%!8
25840sizeminy%=block%!12
25850sizemaxx%=block%!16
25860sizemaxy%=block%!20
25870newx%=sizeminx%+(number%/(range%/(sizemaxx%-sizeminx%)))
25880block%!0=win%
25890block%!4=dragicon%
25900SYS "Wimp_GetIconState",,block%
25910block%!16=newx%
25920block%!0=win%
25930block%!4=dragicon%
25940SYS "Wimp_DeleteIcon",,block%
25950block%!4=win%
25960SYS "Wimp_CreateIcon",,block%+4
25970newblock%=block%+4
25980IF oldworkx%<newx% THEN
25990newblock%!4=sizeminx%
26000ELSE
26010newblock%!4=newx%
26020ENDIF
26030newblock%!8=sizeminy%
26040IF oldworkx%<newx% THEN
26050newblock%!12=newx%
26060ELSE
26070newblock%!12=sizemaxx%
26080ENDIF
26090newblock%!16=sizemaxy%
26100SYS "Wimp_UpdateWindow",,newblock% TO flag
26110WHILE flag
26120SYS "Wimp_GetRectangle",,newblock% TO flag
26130ENDWHILE
26140oldworkx%=newx%
26150ENDPROC
26160:
26170DEFFNgetbarvalue(win%,dragicon%,sizeicon%,range%)
26180block%!0=win%
26190block%!4=sizeicon%
26200SYS "Wimp_GetIconState",,block%
26210sizeminx%=block%!8
26220sizemaxx%=block%!16
26230block%!0=win%
26240block%!4=dragicon%
26250SYS "Wimp_GetIconState",,block%
26260=(range%/(sizemaxx%-sizeminx%))*(block%!16-block%!8)
26270:
26280DEFFNtopal(r,g,b)
26290C=0
26300C=C OR (b<<24)
26310C=C OR (g<<16)
26320C=C OR (r<<8)
26330=C
26340:
26350DEFPROCdocolourbox(r,g,b,flg)
26360block2%!0=pane%
26370SYS&400cb,,block2%
26380btopx%=block2%!4-block2%!20
26390btopy%=block2%!16-block2%!24
26400IF flg THEN
26410block2%!0=pane%
26420block2%!4=45
26430SYS "Wimp_GetIconState",,block2%
26440newblock%=block2%+4
26450newblock%!0=pane%
26460SYS "Wimp_UpdateWindow",,newblock% TO fflag
26470WHILE fflag
26480SYS "ColourTrans_SetGCOL",FNtopal(r,g,b),,,%100000000,0
26490RECTANGLE FILL btopx%+234,btopy%-1036,234,38
26500SYS "Wimp_GetRectangle",,newblock% TO fflag
26510ENDWHILE
26520ELSE
26530SYS "ColourTrans_SetGCOL",FNtopal(r,g,b),,,%100000000,0
26540RECTANGLE FILL btopx%+234,btopy%-1036,234,38
26550ENDIF
26560ENDPROC
26570:
26580DEFPROCdotitle(funny)
26590PROCcentrewindow(title%)
26600SYS &000400C7,0,block2% TO reason2%,block2%
26610t=TIME
26620REPEAT
26630UNTIL TIME>t+funny
26640PROCclosewindow(title%)
26650ENDPROC
26660:
26670DEFPROCinitsprites
26680SYS "OS_ReadModeVariable",-1,5 TO ,,yeig%
26690IF yeig%<2 THEN sprite$="Sprites" ELSE sprite$="Sprites"
26700SYS "OS_File",17,"<Tree$Dir>."+sprite$ TO type%,,,,length%
26710DIM sprite% length%+4
26720!sprite%=length%+4
26730SYS "OS_SpriteOp",266,sprite%,"<Tree$Dir>."+sprite$
26740ENDPROC
26750:
26760DEFPROCcentrewindow(win%)
26770SYS &00000035,MODE,11 TO ,,xpixlimit
26780SYS &00000035,MODE,12 TO ,,ypixlimit
26790SYS &00000035,MODE,4 TO ,,xfact
26800SYS &00000035,MODE,5 TO ,,yfact
26810maxX=(xpixlimit+1)<<xfact
26820maxY=(ypixlimit+1)<<yfact
26830:
26840block%!0=win%
26850SYS &000400CB,,block%
26860:
26870IF NOT FNisopen(win%) THEN
26880wx%=block%!12-block%!4
26890wx2%=wx% DIV 2
26900cX=maxX DIV 2
26910block%!4=cX-wx2%
26920block%!12=block%!4+wx%
26930wy%=block%!16-block%!8
26940wy2%=wy% DIV 2
26950cY=maxY DIV 2
26960block%!8=cY-wy2%
26970block%!16=block%!8+wy%
26980ENDIF
26990:
27000SYS &000400C5,,block%
27010ENDPROC
27020:
27030DEFPROCdragmyfile
27040PROCgetvars(icon%-1,FALSE)
27050fty%=type%!0
27060temp$=FNgLn($filename%)
27070IF fty%>&FFF OR fty%<&0 THEN
27080 IF LEFT$(temp$,1)="!" THEN
27090 valid$=temp$
27100 IF NOT FNspriteexists(valid$) THEN valid$="application"
27110 ELSE
27120 valid$="directory"
27130 ENDIF
27140ELSE
27150 valid$="file_"+FNpad(fty%)
27160ENDIF
27170IF type%!0=-2 AND valid$="directory" THEN valid$="file_xxx"
27180IF NOT FNspriteexists(valid$) THEN valid$="file_xxx"
27190:
27200PROCsubspr3
27210SYS &00000035,MODE,4 TO ,,xfact
27220SYS &00000035,MODE,5 TO ,,yfact
27230wpix%=wpix2%<<xfact
27240hpix%=hpix2%<<yfact
27250:
27260block%!0=x%-(wpix% DIV 2)
27270block%!4=y%-(hpix% DIV 2)
27280block%!8=block%!0+wpix%
27290block%!12=block%!4+hpix%
27300:
27310SYS "DragASprite_Start",%11000101,newarea,valid$,block%
27320lastwindow%=main%
27330ENDPROC
27340:
27350DEFPROCsubspr3
27360LOCAL ERROR
27370ON ERROR LOCAL IF ERR=134 THEN PROCsubspr4:ENDPROC
27380SYS &400EA TO newarea
27390SYS &2e,256+40,newarea,valid$ TO ,,,wpix2%,hpix2%
27400ENDPROC
27410:
27420DEFPROCsubspr4
27430LOCAL ERROR
27440ON ERROR LOCAL ERROR 0,REPORT$
27450SYS &400ea TO ,newarea
27460SYS &2e,256+40,newarea,valid$ TO ,,,wpix2%,hpix2%
27470ENDPROC
27480:
27490DEFPROCdirs(inflg)
27500IF iii%>0 THEN
27510 SYS "Hourglass_On"
27520 IF fdirs THEN
27530 FOR smeg%=1 TO iii%
27540 IF iii%-1<>0 THEN SYS&000406C4,(smeg%/(iii%-1))*100
27550 PROCgetvars(smeg%-1,FALSE)
27560 IF type%!0<>-1 THEN PROCsicon(main%,smeg%)
27570 NEXTsmeg%
27580 ELSE
27590 IF inflg THEN
27600 FOR smeg%=1 TO iii%
27610 IF iii%-1<>0 THEN SYS&000406C4,(smeg%/(iii%-1))*100
27620 PROCgetvars(smeg%-1,FALSE)
27630 IF type%!0<>-1 THEN PROCusicon(main%,smeg%)
27640 NEXTsmeg%
27650 ENDIF
27660 ENDIF
27670 SYS "Hourglass_Smash"
27680ENDIF
27690ENDPROC
27700:
27710DEFPROCopensearch
27720cursearch=currentsearch-1
27730IF cursearch=0 THEN PROCsicon(search%,4) ELSE PROCusicon(search%,4)
27740IF cursearch=iii%-1 THEN PROCsicon(search%,5) ELSE PROCusicon(search%,5)
27750PROCgetvars(cursearch,FALSE)
27760PROCiconputtext(search%,8,FNgLn($filename%))
27770IF NOT FNisopen(search%) THEN
27780casesens=FALSE
27790PROCuselicon(search%,11)
27800searchfile=TRUE
27810searchtype=FALSE
27820PROCselicon(search%,0)
27830PROCuselicon(search%,1)
27840PROCusicon(search%,2)
27850PROCsicon(search%,3)
27860PROCiconputtext(search%,2,"")
27870PROCiconputtext(search%,3,"")
27880REMPROCcentrewindow(search%)
27890searchwindow%=TRUE
27900PROCopenwindow(main%,FALSE)
27910ENDIF
27920ENDPROC
27930:
27940DEFPROCclicksearch(ic%)
27950CASE ic% OF
27960WHEN 14
27970PROCclosewindow(search%)
27980WHEN 11,12
27990casesens=NOT casesens
28000IF casesens THEN
28010PROCselicon(search%,11)
28020ELSE
28030PROCuselicon(search%,11)
28040ENDIF
28050WHEN 0
28060IF searchtype THEN
28070searchfile=NOT searchfile
28080ENDIF
28090IF searchfile THEN
28100PROCselicon(search%,0)
28110PROCusicon(search%,2)
28120PROCiconcaret(search%,2,LEN(FNicontext(search%,2)))
28130ELSE
28140PROCuselicon(search%,0)
28150PROCsicon(search%,2)
28160PROCiconcaret(search%,3,LEN(FNicontext(search%,3)))
28170ENDIF
28180WHEN 1
28190IF searchfile THEN
28200searchtype=NOT searchtype
28210ENDIF
28220IF searchtype THEN
28230PROCselicon(search%,1)
28240PROCusicon(search%,3)
28250PROCiconcaret(search%,3,LEN(FNicontext(search%,3)))
28260ELSE
28270PROCuselicon(search%,1)
28280PROCsicon(search%,3)
28290PROCiconcaret(search%,2,LEN(FNicontext(search%,2)))
28300ENDIF
28310WHEN 4
28320IF searchfile AND FNicontext(search%,2)="" THEN PROCalert("Message from Tree","Please enter a search filename.",0)
28330IF searchtype AND FNicontext(search%,3)="" THEN PROCalert("Message from Tree","Please enter a search filetype.",0)
28340IF (searchfile AND FNicontext(search%,2)<>"") OR (searchtype AND FNicontext(search%,3)<>"") THEN PROCsearchup(cursearch,FNicontext(search%,2),FNicontext(search%,3))
28350WHEN 5
28360IF searchfile AND FNicontext(search%,2)="" THEN PROCalert("Message from Tree","Please enter a search filename.",0)
28370IF searchtype AND FNicontext(search%,3)="" THEN PROCalert("Message from Tree","Please enter a search filetype.",0)
28380IF (searchfile AND FNicontext(search%,2)<>"") OR (searchtype AND FNicontext(search%,3)<>"") THEN PROCsearchdown(cursearch,FNicontext(search%,2),FNicontext(search%,3))
28390ENDCASE
28400ENDPROC
28410:
28420DEFFNisopen(win%)
28430block3%!0=win%
28440SYS "Wimp_GetWindowState",,block3%
28450winflags%=block3%!32
28460IF (winflags% AND %10000000000000000) = 65536 THEN
28470=TRUE
28480ELSE
28490=FALSE
28500ENDIF
28510:
28520DEFPROCviewicon(win%,ic%)
28530block%!0=win%
28540block%!4=ic%
28550SYS "Wimp_GetIconState",,block%
28560middle%=block%!12+(block%!20-block%!12)
28570block%!0=win%
28580SYS "Wimp_GetWindowState",,block%
28590block%!24=middle%+((block%!16-block%!8) DIV 2)
28600SYS "Wimp_OpenWindow",,block%
28610ENDPROC
28620:
28630DEFPROCsearchup(c,searchstring1$,searchstring2$)
28640subsearchstring1$=searchstring1$
28650subsearchstring2$=searchstring2$
28660PROCuselicon(main%,c+1)
28670found=-1
28680IF c-1>=0 THEN
28690smeg%=c-1
28700SYS "Hourglass_On"
28710REPEAT
28720PROCgetvars(smeg%,FALSE)
28730IF found=-1 THEN
28740IF casesens THEN
28750ttfilename$=FNgLn($filename%)
28760ttfbo$=FNpad(type%!0)
28770ELSE
28780ttfilename$=FNtolower(FNgLn($filename%))
28790ttfbo$=FNtolower(FNpad(type%!0))
28800searchstring1$=FNtolower(searchstring1$)
28810searchstring2$=FNtolower(searchstring2$)
28820ENDIF
28830IF INSTR(subsearchstring1$,"*")>0 THEN
28840fudge=INSTR(subsearchstring1$,"*")-1
28850IF casesens THEN
28860searchstring1$=MID$(subsearchstring1$,1,fudge)
28870ttfilename$=MID$(ttfilename$,1,fudge)
28880ELSE
28890searchstring1$=FNtolower(MID$(subsearchstring1$,1,fudge))
28900ttfilename$=FNtolower(MID$(ttfilename$,1,fudge))
28910ENDIF
28920ENDIF
28930IF INSTR(subsearchstring2$,"*")>0 THEN
28940fudge=INSTR(subsearchstring2$,"*")-1
28950IF casesens THEN
28960searchstring2$=MID$(subsearchstring2$,1,fudge)
28970ttfbo$=MID$(ttfbo$,1,fudge)
28980ELSE
28990searchstring2$=FNtolower(MID$(subsearchstring2$,1,fudge))
29000ttfbo$=FNtolower(MID$(ttfbo$,1,fudge))
29010ENDIF
29020ENDIF
29030IF ttfilename$=searchstring1$ AND searchfile AND NOT searchtype THEN found=smeg%
29040IF ttfbo$=searchstring2$ AND NOT searchfile AND searchtype THEN found=smeg%
29050IF ttfilename$=searchstring1$ AND ttfbo$=searchstring2$ AND searchfile AND searchtype THEN found=smeg%
29060ENDIF
29070smeg%-=1
29080UNTILfound>-1 OR smeg%<0
29090SYS "Hourglass_Smash"
29100ENDIF
29110IF found=-1 THEN
29120PROCalert("Message from Tree","'"+FNicontext(search%,2)+"' was not found above the current file.",0)
29130ELSE
29140PROCviewicon(main%,found+1)
29150PROCselicon(main%,found+1)
29160cursearch=found
29170IF cursearch=0 THEN PROCsicon(search%,4) ELSE PROCusicon(search%,4)
29180IF cursearch=iii%-1 THEN PROCsicon(search%,5) ELSE PROCusicon(search%,5)
29190PROCgetvars(cursearch,FALSE)
29200PROCiconputtext(search%,8,FNgLn($filename%))
29210ENDIF
29220ENDPROC
29230:
29240DEFFNtolower(A$)
29250FOR q=1 TO LEN(A$)
29260IF ASC(MID$(A$,q,1))>=ASC"A" AND ASC(MID$(A$,q,1))<=ASC"Z" THEN MID$(A$,q,1)=CHR$(ASC(MID$(A$,q,1))+(ASC"a"-ASC"A"))
29270NEXT q
29280=A$
29290:
29300DEFPROCsearchdown(c,searchstring1$,searchstring2$)
29310subsearchstring1$=searchstring1$
29320subsearchstring2$=searchstring2$
29330PROCuselicon(main%,c+1)
29340found=-1
29350IF c+1<=iii%-1 THEN
29360smeg%=c+1
29370SYS "Hourglass_On"
29380REPEAT
29390PROCgetvars(smeg%,FALSE)
29400IF found=-1 THEN
29410IF casesens THEN
29420ttfilename$=FNgLn($filename%)
29430ttfbo$=FNpad(type%!0)
29440ELSE
29450ttfilename$=FNtolower(FNgLn($filename%))
29460ttfbo$=FNtolower(FNpad(type%!0))
29470searchstring1$=FNtolower(searchstring1$)
29480searchstring2$=FNtolower(searchstring2$)
29490ENDIF
29500IF INSTR(subsearchstring1$,"*")>0 THEN
29510fudge=INSTR(subsearchstring1$,"*")-1
29520IF casesens THEN
29530searchstring1$=MID$(subsearchstring1$,1,fudge)
29540ttfilename$=MID$(ttfilename$,1,fudge)
29550ELSE
29560searchstring1$=FNtolower(MID$(subsearchstring1$,1,fudge))
29570ttfilename$=FNtolower(MID$(ttfilename$,1,fudge))
29580ENDIF
29590ENDIF
29600IF INSTR(subsearchstring2$,"*")>0 THEN
29610fudge=INSTR(subsearchstring2$,"*")-1
29620IF casesens THEN
29630searchstring2$=MID$(subsearchstring2$,1,fudge)
29640ttfbo$=MID$(ttfbo$,1,fudge)
29650ELSE
29660searchstring2$=FNtolower(MID$(subsearchstring2$,1,fudge))
29670ttfbo$=FNtolower(MID$(ttfbo$,1,fudge))
29680ENDIF
29690ENDIF
29700IF ttfilename$=searchstring1$ AND searchfile AND NOT searchtype THEN found=smeg%
29710IF ttfbo$=searchstring2$ AND NOT searchfile AND searchtype THEN found=smeg%
29720IF ttfilename$=searchstring1$ AND ttfbo$=searchstring2$ AND searchfile AND searchtype THEN found=smeg%
29730ENDIF
29740smeg%+=1
29750UNTILfound>-1 OR smeg%>iii%+1
29760SYS "Hourglass_Smash"
29770ENDIF
29780IF found=-1 THEN
29790PROCalert("Message from Tree","'"+FNicontext(search%,2)+"' was not found below the current file.",0)
29800ELSE
29810PROCviewicon(main%,found+1)
29820PROCselicon(main%,found+1)
29830cursearch=found
29840IF cursearch=0 THEN PROCsicon(search%,4) ELSE PROCusicon(search%,4)
29850IF cursearch=iii%-1 THEN PROCsicon(search%,5) ELSE PROCusicon(search%,5)
29860PROCgetvars(cursearch,FALSE)
29870PROCiconputtext(search%,8,FNgLn($filename%))
29880ENDIF
29890ENDPROC
>�>SCSI::SCSIDrive4.$.!Develop.Files.Treev1.!Tree.!RunImage
^� � �alert("Major BAD error from Tree",�$+" "+�(�),0):ș &000400DD,taskhandle%,&4B534154:�
:
(tasksize%=256*1024
2smegblocksize%=400
<endprog%=�
F:
P<� by Richard Samphire 1993 ----------- BOO !
Z:
dș&000406C0
nș &00000010 � env$
x� �env$," -quit ") �
�5doubleclick$=�env$,�env$,�(34),�env$,�(34))+1)+1)
��
�year$="93"
�#ver$="v1.06a (19-09-"+year$+")"
�name$="Tree"
�"mag$="� Archimedes World 1993"
�*purpose$="Shows tree display of files"
��initsprites
�"taskhandle%=�initialise(name$)
�#iconbar%=�iconbar("!"+name$,-1)
�Amainmenu%=�createmenu(name$,3,"Info>info%|Options�|Quit",150)
�Usavemenu%=�createmenu("Save",3,"Text>savetree%|-Draw>savedraw%|Tree>saveas%",150)
�fmiscmenu%=�createmenu("Misc",4,"Info>info%|-Statistics>stats%|ReDraw Icons|Print text>print%",250)
othermenu%=�createmenu("Tree",7,"-Misc>miscmenu%|-File>savemenu%|Open Parent|File Info>finfo%|-Search�|-Options�|Quit",250)
4�iconputtext(info%,11,�icontext(info%,11)+year$)
�iconputtext(info%,3,ver$)
" �iconputtext(info%,0,name$)
,"�iconputtext(info%,1,purpose$)
6 �iconputtext(info%,8,mag$)
@ș &000406C2
J �iconputtext(title%,1,mag$)
T�dotitle(200)
^l� �checkfreespace<=smegblocksize% � �alert("Message from Tree","Unable to find enough free memory.",0):�
h heapsize%=smegblocksize%
r-ș "Wimp_SlotSize",tasksize%+heapsize%,-1
|'ș "XOS_Heap",0,endprog%,,heapsize%
�blocksize%=4
�-ș "XOS_Heap",2,endprog%,,4 � ,,icondata%
�� doubleclick$<>" " �
� �loadmyfile(doubleclick$)
��
��
�*ș &000400C7,0,block% � reason%,block%
�Ȏ reason% �
�� 0
� �null
�� 1
��redrawwindow(0)
�� 2
�openwindow(0,�)
� 3
�closewindow(0)
&� 4
0�pointerleave
:� 5
D�pointerenter
N� 6
X�mouseclick
b� 7
l�userdragbox
v� 8
��keypressed
�� 9
��menuselection
�� 10
��scrollrequest
�� 11
��losecaret
�� 12
��gaincaret
�� 17
��usermessage
�� 18
��usermessagerecorded
� 19
�usermessageacknowledge
�
� exit
*&ș &000400DD,taskhandle%,&4B534154
4�
>� �initialise(name$)
Hmaxnumber=4096
R mody%=�
\� col(199)
f� block% 2048
p� block2% 2048
z� block3% 2048
�
� buf% 41
�� messages% 60
�messages%!0=1
�messages%!4=8
�messages%!8=14
�messages%!12=&404
�messages%!16=&405
�messages%!20=&403
�messages%!24=2
�messages%!28=3
�messages%!32=4
�messages%!36=&80140
�messages%!40=&80144
messages%!44=5
messages%!48=&80147
messages%!52=&400c9
$messages%!56=&80142
.>ș &400C0,300,&4B534154,name$,messages% � wimpversion%,th%
8searchwindow%=�
Bsearchfile=�
Lsearchtype=�
Vasct%=�("T")
`ascl%=�("L")
jcurrentsearch=-1
tcasesens=�
~
iii%=0
�
dirs=�
� exit = �
�flufend%=�
�menunumber% = 0
�iconsprites=�
�headings=�
�sourcedir=�
�
date=�
�
pressed=�
�fheadings=�
�fsourcedir=�
� fdate=�
headcount=2
makeexit=�
tjunc$="+�"
endjunc$="'�"
(linejunc$="|"
2ftjunc$="+�"
<fendjunc$="'�"
Fflinejunc$="|"
P
cols=7
Z
fincols=7
d rows=50
ndoprint%=�
x frows=50
�
columns=�
�ficonsprites=�
�
lineobj=�
�flineobj=�
�
tttemp%=0
�
info=�
�
boxr=0
�
boxg=0
�
boxb=0
� fboxr=0
� fboxg=0
� fboxb=0
�#oufile%=�("<Tree$Dir>.Options")
� oufile%<>0 �
� #oufile%,headcount
� #oufile%,headings
"� #oufile%,sourcedir
,� #oufile%,date
6� #oufile%,linejunc$
@� #oufile%,tjunc$
J� #oufile%,endjunc$
T� #oufile%,cols
^� #oufile%,iconsprites
h� #oufile%,rows
r� #oufile%,boxr
|� #oufile%,boxg
�� #oufile%,boxb
�� #oufile%,lineobj
�� #oufile%,dirs
�� #oufile%
�fheadings=headings
�fsourcedir=sourcedir
�fdate=date
�flinejunc$=linejunc$
�ftjunc$=tjunc$
�fendjunc$=endjunc$
�fincols=cols
� ficonsprites=iconsprites
�frows=rows
fboxr=boxr
fboxg=boxg
fboxb=boxb
&flineobj=lineobj
0fdirs=dirs
:�
D�defaults(�)
N�
X� win% 4096*6
b� ind% 4096*6
l� mainwindow% 512
v� indmain% 512
�(ș &000400D9,,"<Tree$Dir>.Templates"
�:ș &000400DB,,win%,ind%,ind%+4096,-1,"info",0 � ,,ind%
�win%!64=sprite%
� ș &000400C1,,win% � info%
�<ș &000400DB,,win%,ind%,ind%+4096,-1,"saveas",0 � ,,ind%
� ș &000400C1,,win% � saveas%
�>ș &000400DB,,win%,ind%,ind%+4096,-1,"savetree",0 � ,,ind%
�"ș &000400C1,,win% � savetree%
�Mș &000400DB,,mainwindow%,indmain%,indmain%+4096,-1,"main",0 � ,,indmain%
�%ș &000400C1,,mainwindow% � main%
�:ș &000400DB,,win%,ind%,ind%+4096,-1,"pane",0 � ,,ind%
�win%!64=sprite%
� ș &000400C1,,win% � pane%
=ș &000400DB,,win%,ind%,ind%+4096,-1,"options",0 � ,,ind%
!ș &000400C1,,win% � options%
;ș &000400DB,,win%,ind%,ind%+4096,-1,"stats",0 � ,,ind%
ș &000400C1,,win% � stats%
*>ș &000400DB,,win%,ind%,ind%+4096,-1,"savedraw",0 � ,,ind%
4win%!64=sprite%
>"ș &000400C1,,win% � savedraw%
H>ș &000400DB,,win%,ind%,ind%+4096,-1,"fileinfo",0 � ,,ind%
R ș &000400C1,,win% � finfo%
\?ș &000400DB,,win%,ind%,ind%+4096,-1,"printtext",0 � ,,ind%
fwin%!64=sprite%
p ș &000400C1,,win% � print%
z9ș &000400DB,,win%,ind%,ind%+4096,-1,"dis",0 � ,,ind%
�#ș &000400C1,,win% � mycontrol%
�;ș &000400DB,,win%,ind%,ind%+4096,-1,"title",0 � ,,ind%
�win%!64=sprite%
� ș &000400C1,,win% � title%
�<ș &000400DB,,win%,ind%,ind%+4096,-1,"search",0 � ,,ind%
�win%!64=sprite%
� ș &000400C1,,win% � search%
�ș &000400DA
�slidewindow%=-1
�slideicon%=-1
�slidesize%=-1
�oldworkx%=-1
�rrange%=-1
sizemaxx%=-1
sizeminx%=-1
=th%
$ � �iconbar(Sprite$,side%)
.block%!0=side%
8block%!4=0
Bblock%!8=0
Lblock%!12=29*2
Vblock%!16=40*2
`block%!20=&3002
j$(block%+24)=Sprite$
t ș &000400C2,,block% � icon%
~
=icon%
� � �null
�Ȏ slideicon% �
�� 28
�6�doslide(slidewindow%,slideicon%,slidesize%,�,255)
�� 31
�6�doslide(slidewindow%,slideicon%,slidesize%,�,255)
�� 34
�6�doslide(slidewindow%,slideicon%,slidesize%,�,255)
��
��
�� �redrawwindow(wind%)
�ș&000406C0
� wind%<>0 �
block%!0=wind%
�
ș &000400C8,,block% � flag
( ȕ flag
2=� block%!0=main% � �dolines(block%!8,block%!16,block%!24)
<5� block%!0=pane% � �docolourbox(boxr,boxg,boxb,�)
F ș &000400CA,,block% � flag
P�
Zș&000406C2
d�
n � �openwindow(wind%,stag%)
x� wind%<>0 �
�block%!0=wind%
�ș &000400CB,,block%
��
�&� block%!0=main% � searchwindow% �
�mainminx%=block%!4
�mainminy%=block%!8
�mainmaxx%=block%!12
�mainmaxy%=block%!16
�mainscrollx%=block%!20
�mainscrolly%=block%!24
�backhand%=block%!28
�block%!0=search%
�ș &400cb,,block%
block%!0=search%
block%!4=mainminx%-318
block%!8=mainmaxy%-636
" block%!12=mainmaxx%+block%!4
,block%!16=mainmaxy%
6block%!28=backhand%
@ș &400C5,,block%
Jblock%!0=main%
Tblock%!4=mainminx%
^block%!8=mainminy%
hblock%!12=mainmaxx%
rblock%!16=mainmaxy%
|block%!20=mainscrollx%
�block%!24=mainscrolly%
�block%!28=search%
��
�� block%!0=options% �
�mainminx%=block%!4
�mainminy%=block%!8
�mainmaxx%=block%!12
�mainmaxy%=block%!16
�mainscrollx%=block%!20
�mainscrolly%=block%!24
�backhand%=block%!28
�block%!0=pane%
�ș &400cb,,block%
block%!0=pane%
block%!4=mainminx%+20
block%!8=mainminy%+18
& block%!12=mainmaxx%+block%!4
0block%!16=mainmaxy%-18
:block%!28=backhand%
Dș &400C5,,block%
Nblock%!0=options%
Xblock%!4=mainminx%
bblock%!8=mainminy%
lblock%!12=mainmaxx%
vblock%!16=mainmaxy%
�block%!20=mainscrollx%
�block%!24=mainscrolly%
�block%!28=pane%
��
�ș &000400C5,,block%
��
�� �closewindow(wind%)
�� wind%<>0 �
� block%!0=wind%
��
�� block%!0=options% �
� block%!0=pane%
� ș &000400C6,,block%
block%!0=options%
�
� block%!0=main% � mody% �
press%=�mycontrol
* block%!0=mycontrol%
4 ș &000400C6,,block%
> block%!0=main%
H Ȏ press% �
R � 0
\ � makeexit � exit=�
fF ș "XOS_Heap",4,endprog%,icondata%,-blocksize% � ,,icondata%
p= ș "XOS_Heap",5,endprog%,,-heapsize%+smegblocksize%
z" heapsize%=smegblocksize%
�3 ș "Wimp_SlotSize",tasksize%+heapsize%,-1
� blocksize%=4
� � 1
� � exit � exit=�
� makeexit=�
� �
� � 2
� � exit �
� exit=�
� makeexit=�
� �
� ș&000400CF,,block2%
� xx%=block2%!0
yy%=block2%!4
bb%=block2%!8
flufend%=�
$$ �drawmenu(saveas%,xx%,yy%)
. �
8 �
B�
L(� block%!0=search% � searchwindow%=�
V� block%!0=main% �
` searchwindow%=�
j block%!0=search%
t ș &000400C6,,block%
~B ș "XOS_Heap",4,endprog%,icondata%,-blocksize% � ,,icondata%
�9 ș "XOS_Heap",5,endprog%,,-heapsize%+smegblocksize%
� heapsize%=smegblocksize%
�/ ș "Wimp_SlotSize",tasksize%+heapsize%,-1
� blocksize%=4
�
mody%=�
�+ � pressed � ș "Wimp_ProcessKey",&1FC
� iii%=0
� block%!0=main%
��
�ș &000400C6,,block%
��
�� �pointerleave
�
� �pointerenter
�
� �mouseclick
(� �
2*� � � �alert("Error from Tree",�$,0):�
<x%=block%!0
Fy%=block%!4
Pbutton%=block%!8
Zwindow%=block%!12
dicon%=block%!16
nȎ button% �
x� 1
�+� window%=search% � �clicksearch(icon%)
�)� window%=print% � �clickprint(icon%)
�#� window%=savedraw% � icon%=2 �
�&� ��icontext(savedraw%,1),".")=0 �
�H�alert("Tree","To save, drag the file icon to a directory viewer",2)
�ș&000400D4,-1
��
�poowindow%=savedraw%
�!�save(�icontext(savedraw%,1))
��
��
�!� window%=saveas% � icon%=2 �
�$� ��icontext(saveas%,1),".")=0 �
H�alert("Tree","To save, drag the file icon to a directory viewer",2)
ș&000400D4,-1
�
"poowindow%=saveas%
, �save(�icontext(saveas%,1))
6�
@�
J#� window%=savetree% � icon%=2 �
T&� ��icontext(savetree%,1),".")=0 �
^H�alert("Tree","To save, drag the file icon to a directory viewer",2)
hș&000400D4,-1
r�
|poowindow%=savetree%
�!�save(�icontext(savetree%,1))
��
��
�-� window%=options% � �clickoptions(icon%)
�'� window%=pane% � �clickpane(icon%)
� � window%=main% � icon%>0 �
��uselicon(main%,icon%)
��getvars(icon%-1,�)
� �("FILER_RUN "+$filename%)
��
�#� window%=savedraw% � icon%=3 �
�columns=� columns
�>� columns � �selicon(savedraw%,3) � �uselicon(savedraw%,3)
�
� 2
� window%=-2 �
&#�drawmenu(mainmenu%,x%-100,228)
0menunumber%=1
:�
D� window%=main% �
N�getprinterinfo
X#�iconputtext(print%,0,printer$)
b copies=1
l$�iconputtext(print%,2,�(copies))
v>� columns � �selicon(savedraw%,3) � �uselicon(savedraw%,3)
�flufend%=�
�"�iconputtext(stats%,1,�(iii%))
�(�iconputtext(stats%,3,�(blocksize%))
�� icon%>0 �
�currentsearch=icon%
��usmi(othermenu%,3)
��usmi(othermenu%,4)
��getvars(icon%-1,�)
�+�iconputtext(finfo%,0,�gLn($filename%))
�"� type%!0>=0 � type%!0<=&FFF �
�. �iconputtext(finfo%,3,"&"+�pad(type%!0))
�. � �spriteexists("file_"+�pad(type%!0)) �
�5 �seticonsprite(finfo%,1,"Sfile_"+�pad(type%!0))
�
* �seticonsprite(finfo%,1,"Sfile_xxx")
�
�
*/ � ��gLn($filename%),1)="!" � type%!0=-1 �
4* �iconputtext(finfo%,3,"Application")
>) � �spriteexists(�gLn($filename%)) �
H3 �seticonsprite(finfo%,1,"S"+�gLn($filename%))
R �
\- �seticonsprite(finfo%,1,"Sapplication")
f �
p �
z0 � ��gLn($filename%),1)<>"!" � type%!0=-1 �
�( �iconputtext(finfo%,3,"Directory")
�+ �seticonsprite(finfo%,1,"Sdirectory")
� �
� � type%!0=-2 �
�# �iconputtext(finfo%,3,"File")
�* �seticonsprite(finfo%,1,"Sfile_xxx")
� �
��
�+�iconputtext(finfo%,5,�(readlength%!0))
�5�iconputtext(finfo%,7,�attributes(attributes%!0))
�6�iconputtext(finfo%,8,�myconvert(ladr%!0,eadr%!0))
��
��smi(othermenu%,3)
�smi(othermenu%,4)
�
#�drawmenu(othermenu%,x%-100,y%)
$menunumber%=2
.�
8� 4
B+� window%=search% � �clicksearch(icon%)
L)� window%=print% � �clickprint(icon%)
V#� window%=savedraw% � icon%=3 �
`columns=� columns
j>� columns � �selicon(savedraw%,3) � �uselicon(savedraw%,3)
t�
~#� window%=savedraw% � icon%=2 �
�&� ��icontext(savedraw%,1),".")=0 �
�H�alert("Tree","To save, drag the file icon to a directory viewer",2)
�ș&000400D4,-1
��
�poowindow%=savedraw%
�!�save(�icontext(savedraw%,1))
��
��
�!� window%=saveas% � icon%=2 �
�$� ��icontext(saveas%,1),".")=0 �
�H�alert("Tree","To save, drag the file icon to a directory viewer",2)
�ș&000400D4,-1
�
poowindow%=saveas%
�save(�icontext(saveas%,1))
ș&000400D4,-1
(�
2�
<#� window%=savetree% � icon%=2 �
F&� ��icontext(savetree%,1),".")=0 �
PH�alert("Tree","To save, drag the file icon to a directory viewer",2)
Zș&000400D4,-1
d�
npoowindow%=savetree%
x!�save(�icontext(savetree%,1))
�ș&000400D4,-1
��
��
�'� window%=pane% � �clickpane(icon%)
�-� window%=options% � �clickoptions(icon%)
� � window%=main% � icon%>0 �
��uselicon(main%,icon%)
��getvars(icon%-1,�)
� �("FILER_RUN "+$filename%)
��
� � 16,64
� � window%=main% � icon%>0 �
��dragmyfile
tempicon%=icon%
�
!� window%=saveas% � icon%=0 �
"poowindow%=window%
,lastwindow%=poowindow%
6"�drawbox(saveas%,0,"file_353")
@�
J#� window%=savetree% � icon%=0 �
Tpoowindow%=window%
^lastwindow%=poowindow%
h$�drawbox(savetree%,0,"file_fff")
r�
|#� window%=savedraw% � icon%=0 �
�poowindow%=window%
�lastwindow%=poowindow%
�$�drawbox(savedraw%,0,"file_aff")
��
��
��
�� �userdragbox
�� �
�*� � � �alert("Error from Tree",�$,0):�
�ș "DragASprite_Stop"
�tt%=block%+256
�ș&000400CF,,tt%
�
xx%=tt%!0
yy%=tt%!4
bb%=tt%!8
wind%=tt%!12
&icon%=tt%!16
0Ȏ lastwindow% �
:� saveas%,savetree%
Dblock%!0=256
Nblock%!12=0
Xblock%!16=1
bblock%!20=wind%
lblock%!24=icon%
vblock%!28=xx%
�block%!32=yy%
�block%!36=1
� � lastwindow%=savetree% �
�block%!40=&fff
��
�block%!40=&353
��
�bblock%=block%+256
�bblock%!0=lastwindow%
�bblock%!4=1
�ș&000400CE,0,bblock%
�text%=bblock%!28
�w$=�gLn($text%)
$(block%+44)=w$+�0
%ș&000400E7,17,block%,wind%,icon%
8� wind%<>saveas% � wind%<>savetree% � ș&000400D4,-1
� main%
*poowindow%=main%
4�getvars(tempicon%-1,�)
>block%!0=256
Hblock%!12=0
Rblock%!16=1
\block%!20=wind%
fblock%!24=icon%
pblock%!28=xx%
zblock%!32=yy%
�block%!36=readlength%!0
�block%!40=type%!0
� $(block%+44)=$filename%+�0
�%ș&000400E7,17,block%,wind%,icon%
� �uselicon(main%,tempicon%)
�� savedraw%
�block%!0=256
�block%!12=0
�block%!16=1
�block%!20=wind%
�block%!24=icon%
�block%!28=xx%
�block%!32=yy%
block%!36=1
block%!40=&aff
bblock%=block%+256
$bblock%!0=lastwindow%
.bblock%!4=1
8ș&000400CE,0,bblock%
Btext%=bblock%!28
Lw$=�gLn($text%)
V$(block%+44)=w$+�0
`%ș&000400E7,17,block%,wind%,icon%
j'� wind%<>savedraw% � ș&000400D4,-1
t � pane%
~7� slidewindow%>-1 � slideicon%>-1 � slidesize%>-1 �
� size%=sizemaxx%-sizeminx%
� ppos%=(oldworkx%-sizeminx%)
� num%=(rrange%/size%)*ppos%
�Ȏ slideicon% �
�� 28,31,34
�oldworkx%=newx%
��
�:
�slidewindow%=-1
�slideicon%=-1
�slidesize%=-1
��
�
�
� �keypressed
wind%=block%!0
(icon%=block%!4
2key%=block%!24
<
Ȏ key% �
F � 398,13
P� wind%=saveas% �
Z$� ��icontext(saveas%,1),".")=0 �
dH�alert("Tree","To save, drag the file icon to a directory viewer",2)
nș&000400D4,-1
x�
�poowindow%=saveas%
� �save(�icontext(saveas%,1))
�ș&000400D4,,-1
��
��
�� wind%=savetree% �
�&� ��icontext(savetree%,1),".")=0 �
�H�alert("Tree","To save, drag the file icon to a directory viewer",2)
�ș&000400D4,-1
��
�poowindow%=savetree%
�!�save(�icontext(savetree%,1))
�ș&000400D4,,-1
�
�
" ș "Wimp_ProcessKey",key%
,�
6�
@� �menuselection
JȎ menunumber% �
T� 1
^+ș&000400D5,,mainmenu%,block%,block%+24
h trunc$=�gLn($(block%+24))
r� trunc$="Quit" �
|
exit=�
�makeexit=�
��closewindow(main%)
��
�� trunc$="Options�" �
� �pane
��openwindow(options%,�)
��
�� 2
�,ș&000400D5,,othermenu%,block%,block%+24
� trunc$=�gLn($(block%+24))
�� trunc$="Quit" �
�makeexit=�
� exit = �
�closewindow(main%)
�
*� trunc$="ReDraw Icons" � �majorredraw
&7� trunc$="Open Parent" � �("FILER_OPENDIR "+pooup$)
0$� trunc$="Search�" � �opensearch
:� trunc$="Options�" �
D �pane
N�openwindow(options%,�)
X�
b�
lș&000400CF,,block%+256
vbrr%=block%+256
�button%=brr%!8
�� button%=1 �
�A� menunumber%=1 � ș &000400D4,,mainmenu%,brr%!0-68,(64*4)+64
�?� menunumber%=2 � ș &000400D4,,othermenu%,brr%!0-68,brr%!4
��
��
��
�� �scrollrequest
��
�� �losecaret
��
�� �gaincaret
��
� �usermessage
� �
*� � � �alert("Error from Tree",�$,0):�
Ȏ block%!16 �
*� 0
4 exit = �
>� 2
H �save(�getstring(block%+44))
R � &80147
\�getprinterinfo
f
p�
z�
�� �usermessagerecorded
�� �
�*� � � �alert("Error from Tree",�$,0):�
�Ȏ block%!16 �
�� 0
� exit = �
� � &80142
�� doprint% � � �
�doprint%=�
�_�alert("Message from Tree","Load the RiscOS 3 !Printers application to print from Tree.",0)
��
�� 3
�>�load(block%!20,block%!24,block%!40,�getstring(block%+44))
� 5
� block%!40=&353 �
block%!12=block%!8
$#ș&000600E7,17,block%,block%!20
.>�load(block%!20,block%!24,block%!40,�getstring(block%+44))
8�
B� 8
L
� mody% �
V pressed=�
` block%!12=block%!8
j' ș "Wimp_SendMessage",19,block%,0
t �sicon(mycontrol%,6)
~ �closewindow(main%)
��
��
��
� � �usermessageacknowledge
�Ȏ block%!16 �
� � &80142
�� doprint% �
�doprint%=�
�_�alert("Message from Tree","Load the RiscOS 3 !Printers application to print from Tree.",0)
��
��
��
ݤparseLine(A$,B$(),C$)
� D%,E%:D%=�(B$(),1)
ȕ (A$<>"")�(E%<=D%)
B$(E%)=�parseWord(A$,C$)
( E%+=1
2�
<=E%
FݤparseWord(� A$,B$)
P,� C$,D%,E%,F$:D%=1:E%=�(A$):C$=�A$,D%,1)
Z0ȕ (�B$,C$)=0)�(D%<=E%):D%+=1:C$=�A$,D%,1):�
d8F$=�A$,D%-1):A$=�A$,D%+1):E%=�(A$):D%=1:C$=�A$,D%,1)
n0ȕ (�B$,C$)>0)�(D%<=E%):D%+=1:C$=�A$,D%,1):�
xA$=�A$,D%)
�=F$
�2� �createmenu(title$,entries%,entries$,width%)
�� menu%,word$()
�� menu% 24+entries%*24
�� word$(entries%)
�(tr%=�parseLine(entries$,word$(),"|")
�
tr%-=1
�$(menu%+0)=title$+�0
�menu%!12=7
�menu%!13=2
�menu%!14=7
�menu%!15=0
�menu%!16=width%
menu%!20=44
menu%!24=0
� loop%=0 � tr%
"p%=(loop%*24)+28
,2� loop%=entries%-1 � menu%!p%=128 � menu%!p%=0
6 � �word$(loop%),1,1)="-" �
@menu%!p%+=2
J�
T&� title$="Filetypes" � menu%!p%+=8
^ p%+=4
h � �word$(loop%),">") = 0 �
rmenu%!p%=-1
|�
�3menu%!p%=�(�word$(loop%),�word$(loop%),">")+1))
��
� p%+=4
�menu%!p%=&7009031
� p%+=4
� � �word$(loop%),">") = 0 �
� � �word$(loop%),1,1)="-" �
� $(menu%+p%)=�word$(loop%),2)
��
� $(menu%+p%)=word$(loop%)
��
��
� � �word$(loop%),1,1)="-" �
5$(menu%+p%)=�word$(loop%),2,�word$(loop%),">")-2)
�
5$(menu%+p%)=�word$(loop%),1,�word$(loop%),">")-1)
&�
0�
:
�loop%
D
=menu%
N��drawmenu(m%,xx%,yy%)
X ș &000400D4,,m%,xx%,yy%
b�
l��sicon(wind%,icon%)
vblock%!0=wind%
�block%!4=icon%
�%block%!8=%10000000000000000000000
�&block%!12=%10000000000000000000000
�ș &400CD,,block%
��
���usicon(wind%,icon%)
�block%!0=wind%
�block%!4=icon%
�block%!8=0
�&block%!12=%10000000000000000000000
�ș &400CD,,block%
��
���selicon(wind%,icon%)
!block%!0=wind%
! block%!4=icon%
!$block%!8=%1000000000000000000000
! %block%!12=%1000000000000000000000
!*ș &400CD,,block%
!4�
!>��uselicon(wind%,icon%)
!Hblock%!0=wind%
!Rblock%!4=icon%
!\block%!8=0
!f%block%!12=%1000000000000000000000
!pș &400CD,,block%
!z�
!���tmi(m%,i%)
!�ui=m%+(28+(24*i%))
!�!ui=!ui � %1
!��
!���utmi(m%,i%)
!�ui=m%+(28+(24*i%))
!�!ui=!ui �� %1
!��
!���smi(m%,i%)
!�ui=m%+(36+(24*i%))
!�&!ui=!ui � %10000000000000000000000
!��
!���usmi(m%,i%)
"ui=m%+(36+(24*i%))
"'!ui=!ui �� %10000000000000000000000
"�
"$
ݤgLn(A$)
".� B%
"8� �A$,".")=0 � =A$
"B� �A$,".")>0 �
"L
B%=�A$
"V ȕ(�A$,B%,1)<>".")�(B%>0)
"` B%-=1
"j�
"t=�A$,�A$-B%)
"~� �getstring(array%)
"�� path$,pointer%
"� path$=""
"�pointer%=array%
"��
"�path$+=�?pointer%
"�pointer%+=1
"� � ?pointer%=0 � ?pointer%=13
"�
=path$
"�)��load(window%,icon%,filetype%,path$)
"�� �
"�*� � � �alert("Error from Tree",�$,0):�
"�4� window%=-2 � filetype%<>&353 � �dofiles(path$)
# � filetype%=&353 �
#
�closewindow(main%)
#�loadmyfile(path$)
# �
#(�
#2��save(p$)
#<� �
#F*� � � �alert("Error from Tree",�$,0):�
#Pș &00062401
#ZȎ poowindow% �
#d
� saveas%
#nș&000406C0
#x;ș "OS_File",10,p$,&353,,icondata%,icondata%+blocksize%
#�ș&000406C2
#� mody%=�
#�� makeexit � exit=�
#�� flufend% �
#�block%!0=main%
#�ș &000400C6,,block%
#��
#�)� pressed � ș "Wimp_ProcessKey",&1FC
#�� savetree%
#��export(p$,�)
#�� savedraw%
#��dodraw(p$)
#� � main%
$� block%!36=-1 �
$�getvars(tempicon%-1,�)
$block%!0=256
$"block%!12=0
$,block%!16=3
$6block%!36=readlength%!0
$@block%!40=type%!0
$J $(block%+44)=$filename%+�0
$T%ș&000400E7,17,block%,wind%,icon%
$^�
$h�getvars(tempicon%-1,�)
$r"� �checkfreespace>=(40*1024) �
$|#p$=�p$,�(p$)-(�($filename%)+1))
$�&ș "Wimp_StartTask","filer_action"
$�block%!0=256
$�block%!12=0
$�block%!16=&403
$�cft2=�($filename%)
$� ȕ �$filename%,cft2,1)<>"."
$� cft2-=1
$��
$� dddup$=�$filename%,1,cft2-1)
$�$(block%+20)=dddup$+�0
$�%ș "Wimp_SendMessage",17,block%,0
$�block%!0=256
$�block%!12=0
%block%!16=&404
%$$(block%+20)=�gLn($filename%)+�0
% %ș "Wimp_SendMessage",17,block%,0
%&block%!0=256
%0block%!12=0
%:block%!16=&405
%Dblock%!20=0
%Nblock%!24=%10001
%X$(block%+28)=p$+�0
%b%ș "Wimp_SendMessage",17,block%,0
%l�
%v#p$=�p$,�(p$)-(�($filename%)+1))
%�<�("COPY "+$filename%+" "+p$+"."+�gLn($filename%)+" R~C")
%��
%��
%� � print%
%��export(p$,�)
%�block%!16=3
%�� printcount=1 � copies
%�-ș&000400E7,17,block%,block%!20,block%!24
%�� printcount
%�doprint%=�
%��
%�c� p$<>"<Wimp$Scrap>" � (poowindow%<>main%) � poowindow%<>print% � �iconputtext(poowindow%,1,p$)
%��
&��loadmyfile(p$)
& � �
&*� � � �alert("Error from Tree",�$,0):�
& localsprites=�
&*
columns=�
&4$archi%=�modulepresent("SparkFS")
&>thebigone=0
&Hblock%!0=main%
&Rș &000400C3,,block%
&\%ș &000400C1,,mainwindow% � main%
&fș&000406C0
&pblock%!0=main%
&zș &400cc,,block%
&�workminx=block%!44
&�workminy=block%!48
&�workmaxx=block%!52
&�workmaxy=block%!56
&�infile%=�(p$)
&�newlen%=�#infile%
&�� #infile%
&�@ș "XOS_Heap",4,endprog%,icondata%,-blocksize% � ,,icondata%
&�7ș "XOS_Heap",5,endprog%,,-heapsize%+smegblocksize%
&�blocksize%=4
&� heapsize%=smegblocksize%
&�blocksize%+=newlen%
&�
duf%=�
' � blocksize%>heapsize% �
' duf%=�
' heapsize%+=newlen%
'$$ � �checkfreespace<=heapsize% �
'.J �alert("Message from Tree","Unable to find enough free memory.",0)
'8 heapsize%-=newlen%
'B blocksize%-=newlen%
'L �
'V �
'`-ș "Wimp_SlotSize",tasksize%+heapsize%,-1
'j' ș "XOS_Heap",5,endprog%,,newlen%
't�
'~$ � �checkfreespace<=heapsize% �
'�J �alert("Message from Tree","Unable to find enough free memory.",0)
'� blocksize%-=newlen%
'� �
'� �
'�-ș "Wimp_SlotSize",tasksize%+heapsize%,-1
'�
'��
'�<ș "XOS_Heap",4,endprog%,icondata%,newlen% � ,,icondata%
'�� icondata%=0 �
'�F�alert("Message from Tree","Unable to find enough free memory.",0)
'�blocksize%-=newlen%
'� � duf% � heapsize%-=newlen%
( �
(
�
(newbase%=icondata%
( ș &00000008,12,p$,newbase%
((iii%=newbase%!0
(2�getvars(0,�)
(<pa$=$filename%
(Fcft=�(pa$)
(Pȕ �pa$,cft,1)<>"."
(Z
cft-=1
(d�
(npooup$=�pa$,1,cft-1)
(x�title(main%,pooup$)
(�� myup=0 � iii%-1
(�1� iii%-1<>0 � ș&000406C4,(myup/(iii%-1))*100
(��getvars(myup,�)
(� Qpos=(numbericons%!0)*50
(�block%!0=main%
(�block%!4=0
(�ș &400CE,,block%
(�fag%=block%+4
(�um1%=fag%!4
(�um2%=fag%!12
(�block%!0=main%
(�block%!4=myup
(�ș &400CE,,block%
)fag%=block%+4
)fag%!0=main%
)fag%!8=fag%!8-44
)"fag%!4=um1%+Qpos
),nut=fag%!8
)6fag%!16=fag%!16-44
)@fag%!12=um2%+Qpos
)Jfcack$=�gLn($filename%)
)T+� fag%!12>thebigone � thebigone=fag%!12
)^fag%!24=text%
)h!� type%!0>&FFF � type%!0<&0 �
)r � �fcack$,1)="!" �
)|1 � � �spriteexists(fcack$) � iconsprites �
)�& tty%=�($filename%+".!Sprites")
)� � tty%>0 � tty%<=255 �
)� wlll%=�#tty%
)� �#tty%
)� �
)�/ � tty%>0 � tty%<=255 � localsprites �
)�= � �filetypeofafile($filename%+".!Sprites")=&FF9 �
)�' � �checkfreespace>wlll% �
)�= �OSCLI("ICONSPRITES "+$filename%+".!Sprites")
)�. � localsprites � �loadsprites2
)� �
)�o �alert("Message from Tree","No room for sprites. Forgetting to load any more !Sprite files.",0)
)� localsprites=�
*# valid$="Sdirectory"
* �
*
�
*& �
*0 �
*: valid$="S"+fcack$
*DG � � �spriteexists(�valid$,2,�(valid$))) � valid$="Sapplication"
*N �
*X valid$="Sdirectory"
*b �
*l�
*v# valid$="Sfile_"+�pad(type%!0)
*��
*�;� type%!0=-2 � valid$="Sdirectory" � valid$="Sfile_xxx"
*�@� � �spriteexists(�valid$,2,�(valid$))) � valid$="Sfile_xxx"
*�$valid%=valid$
*�fag%!28=valid%
*�fag%!32=�(fcack$)
*�ș &400C2,,fag%
*� �myup
*�block%!0=workminx
*�block%!4=nut-4
*�block%!8=thebigone+20
*�block%!12=workmaxy
*�ș &400d7,main%,block%
+;ș &000400D1,main%,block%!0,block%!4,block%!8,block%!12
+ �openwindow(main%,�)
+ �iconputtext(saveas%,1,p$)
+ ș&000406C2
+*flufend%=�
+4�
+> � �icontext(window%,icon%)
+H%block%!0=window% : block%!4=icon%
+Rș &000400CE,,block%
+\8� ((block%!24) � &100)=0 � 1,"Icon isn't indirected"
+f=$(block%!28)
+p'� �iconputtext(window%,icon%,text$)
+z'block2%!0=window% : block2%!4=icon%
+�ș &000400CE,,block2%
+�9� ((block2%!24) � &100)=0 � 1,"Icon isn't indirected"
+�$(block2%!28)=text$
+�'block2%!0=window% : block2%!4=icon%
+� block2%!8=0 : block2%!12=0
+�ș &000400CD,,block2%
+��
+� ��seticonsprite(w%,i%,s$)
+�block%!0=w%
+�block%!4=i%
+�ș &000400CE,,block%
+�$block%!32=s$
+�block%!0=w%
,block%!8=0
,block%!12=0
,ș&000400CD,,block%
,$�
,.��drawbox(wi%,ic%,sn$)
,8#ș &00000035,�,11 � ,,xpixlimit
,B#ș &00000035,�,12 � ,,ypixlimit
,L ș &00000035,�,4 � ,,xfact
,V ș &00000035,�,5 � ,,yfact
,` maxX=(xpixlimit+1)<<xfact
,j maxY=(ypixlimit+1)<<yfact
,tblock%!0=wi%
,~ș&000400CB,,block%
,�2ys%=block%!16-block%!8:X%=block%!4:Y%=block%!8
,�yoff%=block%!24
,� block%!0=wi%:block%!4=ic%
,�ș&000400CE,,block%
,�block%!8+=X%
,�block%!12+=Y%+ys%-yoff%
,�block%!16+=X%
,�block%!20+=Y%+ys%-yoff%
,�block%!4=5
,�ș&000400CF,,block2%
,�$block%!24=0-(block2%!0-block%!8)
,�%block%!28=0-(block2%!4-block%!12)
- *block%!32=maxX+(block%!16-block2%!0)-2
-
*block%!36=maxY+(block%!20-block2%!4)-4
-block%!0=ic%
- � sn$="" �
-(ș&000400D0,,block%
-2�
-<3ș "DragASprite_Start",%11000101,1,sn$,block%+8
-F�
-Plastwindow%=wi%
-Z�
-d&� �iconcaret(window%,icon%,chars%)
-n*ș &000400D2,window%,icon%,,,-1,chars%
-x�
-���dofiles(pa$)
-�� �
-�*� � � �alert("Error from Tree",�$,0):�
-�
columns=�
-�localsprites=�
-�@ș "XOS_Heap",4,endprog%,icondata%,-blocksize% � ,,icondata%
-�7ș "XOS_Heap",5,endprog%,,-heapsize%+smegblocksize%
-� heapsize%=smegblocksize%
-�-ș "Wimp_SlotSize",tasksize%+heapsize%,-1
-�blocksize%=4
-�X� icondata%=0 � �alert("Message from Tree","Unable to find enough free memory.",0):�
-�block%!0=main%
-�ș &000400C3,,block%
.%ș &000400C1,,mainwindow% � main%
.ș&000406C0
.cft=�(pa$)
."thebigone=0
.,ȕ �pa$,cft,1)<>"."
.6
cft-=1
.@�
.Jpooup$=�pa$,1,cft-1)
.T�title(main%,pooup$)
.^block%!0=main%
.hș &400cc,,block%
.rworkminx=block%!44
.|workminy=block%!48
.�workmaxx=block%!52
.�workmaxy=block%!56
.�
iii%=0
.�
tttemp%=0
.�'archiver%=�modulepresent("SparkFS")
.�tempcack$=""
.��read(pooup$,0,�,0)
.��PROCgafup
.� �dirs(�)
.�� iii%>0 �
.�block%!0=workminx
.�block%!4=nut-4
.�block%!8=thebigone+20
/block%!12=workmaxy
/ș &400d7,main%,block%
/ ;ș &000400D1,main%,block%!0,block%!4,block%!8,block%!12
/&�openwindow(main%,�)
/0 mody%=�
/:�
/D�closewindow(main%)
/NG�alert("Error from Tree","Unable to create tree of '"+pooup$+"'",0)
/X mody%=�
/b�
/l�
/vș&000406C2
/��
/�� �getstring(array%)
/�� path$,pointer%
/� path$=""
/�pointer%=array%
/��
/�path$+=�?pointer%
/�pointer%+=1
/� � ?pointer%=0 � ?pointer%=13
/�
=path$
/�#��getvars(richicon%,resetflag%)
/�� �
/�*� � � �alert("Error from Tree",�$,0):�
0fixbase%=icondata%
0 total%=fixbase%
0&base%=fixbase%+((richicon%)*400)+4
0 text%=base%
0*valid%=base%+24
04filename%=base%+48
0>type%=base%+304
0Hnumbericons%=base%+308
0Rreadlength%=base%+312
0\attributes%=base%+316
0fladr%=base%+320
0peadr%=base%+324
0ztreedef%=base%+328
0� � richicon%=0 � richicon%+=1
0�,base2%=(icondata%)+((richicon%-1)*400)+4
0�text2%=base2%
0�valid2%=base2%+24
0�filename2%=base2%+48
0�type2%=base2%+304
0� numbericons2%=base2%+308
0�readlength2%=base2%+312
0�attributes2%=base2%+316
0�ladr2%=base2%+320
0�eadr2%=base2%+324
0�treedef2%=base2%+328
0�� resetflag% �
1$(treedef%)=�63,"O")
1�
1�
1$#��read(path$,tb,flag,mycounter)
1.� �
18*� � � �alert("Error from Tree",�$,0):�
1B �gogo
1L�
1V
��gogo
1`� offset,temp$
1j offset=0
1t�
1~$(buf%+20)=�0
1�Lș&0002000C,10,path$+�0,buf%,maxnumber,offset,41,"" � R0,R1,R2,R3,offset
1� temp$=�getstring(buf%+20)
1�� offset=0 � �
1�� temp$<>�0 �
1� blocksize%=blocksize%+400
1� � blocksize%>heapsize% �
1�,ș "XOS_Heap",5,endprog%,,400 � ,,,temp%
1·� temp%<>400 � �alert("Message from Tree","Unable to find enough free memory. About to try to display all that has been read.",0):�
1�heapsize%+=400
1�'� �checkfreespace<=smegblocksize% �
1�v�alert("Message from Tree","Unable to find enough free memory. About to try to display all that has been read.",0)
1�heapsize%-=400
2 blocksize%-=400
2
�
2�
2 <ș "Wimp_SlotSize",tasksize%+heapsize%+smegblocksize%,-1
2(�
228ș "XOS_Heap",4,endprog%,icondata%,400 � ,,icondata%
2<�� icondata%=0 � �alert("Message from Tree","Unable to find enough free memory. About to try to display all that has been read.",0):�
2F�getvars(iii%,�)
2P#fty%=�filestype(buf%!16,buf%!0)
2Z $filename%=path$+"."+temp$
2dtype%!0=fty%
2nreadlength%!0=buf%!8
2xattributes%!0=buf%!12
2�ladr%!0=buf%!0
2�eadr%!0=buf%!4
2�:
2�block%!0=main%
2�block%!4=0
2�ș &400CE,,block%
2�fag%=block%+4
2�um1%=fag%!4
2�um2%=fag%!12
2�block%!0=main%
2�block%!4=iii%
2�ș &400CE,,block%
2�fag%=block%+4
3fag%!0=main%
3fag%!8=fag%!8-44
3fag%!4=um1%+tb
3"nut=fag%!8
3,fag%!16=fag%!16-44
36fag%!12=um2%+tb
3@+� fag%!12>thebigone � thebigone=fag%!12
3J� offset=-1 �
3T ?(treedef%+mycounter)=ascl%
3^�
3h ?(treedef%+mycounter)=asct%
3r�
3| numbericons%!0=mycounter
3�� (iii%-1)>=0 �
3�!� smeg%=0 � (numbericons2%!0)
3�S� ?(treedef2%+smeg%)=asct% � ?(treedef%+smeg%)<>ascl% � ?(treedef%+smeg%)=asct%
3�
�smeg%
3��
3�$text%=temp$
3�fag%!24=text%
3�� fty%>&FFF � fty%<&0 �
3� � �temp$,1)="!" �
3�0 � � �spriteexists(temp$) � iconsprites �
3�- tty%=�(path$+"."+temp$+".!Sprites")
3� � tty%<>0 �
3� wlll%=�#tty%
4 �#tty%
4 �
4 $ � tty%<>0 � localsprites �
4&B � �filetypeofafile(path$+"."+temp$+".!Sprites")=&FF9 �
40' � �checkfreespace>wlll% �
4:- � localsprites � �loadsprites
4D �
4No �alert("Message from Tree","No room for sprites. Forgetting to load any more !Sprite files.",0)
4X localsprites=�
4b# valid$="Sdirectory"
4l �
4v
�
4� �
4� �
4� valid$="S"+temp$
4�G � � �spriteexists(�valid$,2,�(valid$))) � valid$="Sapplication"
4� �
4� valid$="Sdirectory"
4� �
4��
4� valid$="Sfile_"+�pad(fty%)
4��
4�;� type%!0=-2 � valid$="Sdirectory" � valid$="Sfile_xxx"
4�@� � �spriteexists(�valid$,2,�(valid$))) � valid$="Sfile_xxx"
4�$valid%=valid$
5fag%!28=valid%
5 fag%!32=�(temp$)
5ș &400C2,,fag%
5 iii%+=1
5*total%!0=iii%
54�
5>7� buf%!16=2 � (fty%=&ddc � archiver%) � fty%=&fc8 �
5H� temp$<>�0 �
5R.�read(path$+"."+temp$,tb+50,�,mycounter+1)
5\�
5f�
5p� offset=-1
5z�
5�:
5���loadsprites
5�� �
5��� � � �alert("Message from Tree","Error whilst trying to ICONSPRITE !Sprites file. "+�$+". Not bothering with any more !Sprite files.",0)
5�1�("ICONSPRITES "+path$+"."+temp$+".!Sprites")
5�localsprites=�
5��
5�:
5���loadsprites2
5�� �
5�� � � �alert("Message from Tree","Error whilst trying to ICONSPRITE !Sprites file. "+�$+". Not bothering with any more !Sprite files.",0)
5�,�("ICONSPRITES "+$filename%+".!Sprites")
5�localsprites=�
6�
6:
6 ��gafup
6$�
6.�smeg%=iii%-1
68 �PROCgetvars(smeg%,FALSE)
6B�WHILE numbericons%!0>0
6L �PROCgetvars(smeg%,FALSE)
6V'�FOR smeg2%=0 TO (numbericons%!0)-1
6` �?(treedef%+smeg2%)=ascl%
6j�NEXT smeg2%
6t
�smeg%-=1
6~
�ENDWHILE
6� � smeg2%=iii%-1 � 1 � -1
6��getvars(smeg2%,�)
6�!� smeg3%=0 � (numbericons%!0)
6�> � ?(treedef%+smeg3%)=ascl% � ?(treedef%+smeg3%)=�"F" �
6� ?(treedef2%+smeg3%)=�"F"
6� �
6� ?(treedef2%+smeg3%)=�"O"
6� �
6�# � ?(treedef%+smeg3%)=�"F" �
6�# ?(treedef%+smeg3%)=asct%
6�# ?(treedef2%+smeg3%)=�"F"
6� �
7 �smeg3%
7
�smeg2%
7�
7 :
7( ݤws(s)
72 � sp% s
7<=sp%
7F � �filestype(obj%,type%)
7P1� obj%=1 � (type% � &FFF00000) <> &FFF00000 �
7Z type%=-2
7d�
7n5� obj%=1 � type%=(type% � &FFF00) >> 8 � type%=-1
7x�
7�
=type%
7�
ݤpad(qq)
7�far$=�~(qq)
7�Ȏ �(far$) �
7�� 0
7�far$="000"
7�� 1
7�far$="00"+far$
7�� 2
7�far$="0"+far$
7��
7� =far$
7�#��dolines(miny%,maxy%,scrolly%)
8ș&000400E6,fincols
8top%=�(scrolly% � 44)
8$bot%=(maxy%-miny%-scrolly%) � 44
8"block2%!0=main%
8,ș&400cb,,block2%
86 topx%=block2%!4-block2%!20
8@ topy%=block2%!16-block2%!24
8Jtobot%=bot%
8T#� tobot%>iii%-1 � tobot%=iii%-1
8^� puke%=top% � tobot%
8h�getvars(puke%,�)
8r&� subcount%=0 � (numbericons%!0)-1
8|@� ?(treedef%+subcount%)=asct% � subcount%<(numbericons%!0) �
8�-�bar(topx%+(subcount%*50),topy%-puke%*44)
8�7� topy%-puke%*44 > tttemp% � tttemp%=topy%-puke%*44
8��
8�� subcount%
8�(� ?(treedef%+numbericons%!0)=ascl% �
8�7�botbar(topx%+((numbericons%!0)*50),topy%-puke%*44)
8�7� topy%-puke%*44 > tttemp% � tttemp%=topy%-puke%*44
8��
8�(� ?(treedef%+numbericons%!0)=asct% �
8�5�tbar(topx%+((numbericons%!0)*50),topy%-puke%*44)
8�7� topy%-puke%*44 > tttemp% � tttemp%=topy%-puke%*44
8��
8� � puke%
9�
9��tbar(xp%,yp%)
9
xp%+=8
9&� xp%,yp%,xp%,yp%-44
90 � xp%,yp%-22,xp%+36,yp%-22
9:�
9D��botbar(xp%,yp%)
9N
xp%+=8
9X� xp%,yp%,xp%,yp%-22
9b � xp%,yp%-22,xp%+36,yp%-22
9l�
9v��bar(xp%,yp%)
9�
xp%+=8
9�� xp%,yp%,xp%,yp%-44
9��
9���title(w%,title$)
9�block%!0 = w%
9�ș &000400CC,,block%
9�po% = !(block%+76)
9�$po% = title$+�0
9��
9�ݤspriteexists(sprite$)
9�!ș&000600E9,24,,sprite$ � R0%
9� � R0%>600 � R0%<0 � =� � =�
9���majorredraw
:ș&000406C0
: � myup=0 � iii%-1
:1� iii%-1<>0 � ș&000406C4,(myup/(iii%-1))*100
: �getvars(myup,�)
:*temp$=�gLn($filename%)
:4!� type%!0>&FFF � type%!0<&0 �
:>� �temp$,1)="!" �
:Hvalid$="S"+temp$
:R�
:\valid$="Sdirectory"
:f�
:p�
:z!valid$="Sfile_"+�pad(type%!0)
:��
:�-� � �spriteexists(�valid$,2,�(valid$))) �
:� � �temp$,1)<>"!" �
:� valid$="Sfile_xxx"
:� �
:� valid$="SApplication"
:� �
:��
:�'�seticonsprite(main%,myup+1,valid$)
:� �myup
:�ș&000406C2
:��
:�$��alert(title$,message$,button%)
;� #0
;� response%
;$(block2%+4)=message$
;$Ȏ button% �
;.� 2 : response%=1
;8� 1 : response%=15
;B � 3 : response%=(1<<5)+16
;L � 4 : response%=(1<<6)+16
;V : response%=16
;`�
;j6ș &000400DF,block2%,response%,title$ � ,response%
;t�
;~��export(afile$,msgflg)
;�ș &000406C0
;� ș &08,11,afile$,&fff,0,0
;�mmy%=�(afile$)
;� � fheadings � fsourcedir �
;�'lll$="Tree display of '"+pooup$+"'"
;�� strptr%=1 � �(lll$)
;�%� #mmy%,�(�lll$,strptr%,strptr%))
;�
� strptr%
;�� #mmy%,10
;��
;�� fheadings � fdate �
;�lll$="Exported on "+�$
< � strptr%=1 � �(lll$)
<
%� #mmy%,�(�lll$,strptr%,strptr%))
<
� strptr%
< � #mmy%,10
<(�
<2 � fheadings � � #mmy%,10
<<� puke%=0 � iii%-1
<F�getvars(puke%,�)
<P2� iii%-1<>0 � ș&000406C4,(puke%/(iii%-1))*100
<Zline$=" "
<d&� subcount%=0 � (numbericons%!0)-1
<n@� ?(treedef%+subcount%)=asct% � (subcount%)<numbericons%!0 �
<xline$+=flinejunc$+" "
<��
<�C� ?(treedef%+subcount%)<>asct% � ?(treedef%+subcount%)<>ascl% �
<�line$+=" "
<��
<�� subcount%
<�ffff$=�gLn($filename%)
<�(� ?(treedef%+numbericons%!0)=ascl% �
<�line$+=fendjunc$+ffff$
<��
<�(� ?(treedef%+numbericons%!0)=asct% �
<�line$+=ftjunc$+ffff$
<��
<�� strptr%=1 � �(line$)
=&� #mmy%,�(�line$,strptr%,strptr%))
=
� strptr%
=� #mmy%,10
=" � puke%
=,filelength%=�#mmy%
=6 � #mmy%
=@ș&000406C2
=J� msgflg �
=Tblock%!0=256
=^block%!12=0
=hblock%!16=3
=rblock%!20=wind%
=|block%!24=icon%
=�block%!28=x%
=�block%!32=y%
=�block%!36=filelength%
=�block%!40=&FFF
=�$(block%+44)=afile$+�0
=�%ș&000400E7,17,block%,wind%,icon%
=��
=��
=���clickoptions(ic%)
=�� �
=�*� � � �alert("Error from Tree",�$,0):�
=� Ȏ ic% �
=�� 2
>headcount=oldhead
>�closewindow(options%)
> � 0
>&tt1=fincols
>0 tt2=cols
>: frows=�(�icontext(pane%,22))
>D� frows<1 � frows=1
>Nfincols=cols
>Xfheadings=headings
>bfsourcedir=sourcedir
>l)linejunc$=�Ppad(�icontext(pane%,8),1)
>v&tjunc$=�Ppad(�icontext(pane%,9),2)
>�)endjunc$=�Ppad(�icontext(pane%,10),2)
>�flinejunc$=linejunc$
>�fendjunc$=endjunc$
>�ftjunc$=tjunc$
>�fdate=date
>�fboxr=boxr
>�fboxg=boxg
>�fboxb=boxb
>�� dirs<>fdirs �
>�fdirs=dirs
>� �dirs(�)
>��
>�flineobj=lineobj
?)� button%<>1 � �closewindow(options%)
? %� tt1<>tt2 � �redrawwindow(main%)
?� 1
? ș&000406C0
?* frows=�(�icontext(pane%,22))
?4� frows<1 � frows=1
?>tt1=fincols
?H tt2=cols
?Rfincols=cols
?\ ficonsprites=iconsprites
?ffheadings=headings
?pfsourcedir=sourcedir
?z)linejunc$=�Ppad(�icontext(pane%,8),1)
?�&tjunc$=�Ppad(�icontext(pane%,9),2)
?�)endjunc$=�Ppad(�icontext(pane%,10),2)
?�flinejunc$=linejunc$
?�fendjunc$=endjunc$
?�ftjunc$=tjunc$
?�fdate=date
?�fboxr=boxr
?�fboxg=boxg
?�fboxb=boxb
?�flineobj=lineobj
?�� dirs<>fdirs �
?�fdirs=dirs
?� �dirs(�)
@�
@)� button%<>1 � �closewindow(options%)
@%� tt1<>tt2 � �redrawwindow(main%)
@$#oufile%=�("<Tree$Dir>.Options")
@.� #oufile%,headcount
@8� #oufile%,fheadings
@B� #oufile%,fsourcedir
@L� #oufile%,fdate
@V� #oufile%,flinejunc$
@`� #oufile%,ftjunc$
@j� #oufile%,fendjunc$
@t� #oufile%,fincols
@~� #oufile%,ficonsprites
@�� #oufile%,frows
@�� #oufile%,fboxr
@�� #oufile%,fboxg
@�� #oufile%,fboxb
@�� #oufile%,flineobj
@�� #oufile%,fdirs
@�� #oufile%
@�ș&000406C2
@�
@�� 3
@��defaults(�)
@��
A �
A
��clickpane(ic%)
A Ȏ ic% �
A � 38
A( boxr-=1
A2� boxr>=0 � boxr<=255 �
A<!�setbar(pane%,28,27,255,boxr)
AF"�iconputtext(pane%,35,�(boxr))
AP"�docolourbox(boxr,boxg,boxb,�)
AZ�
Ad� boxr<0 � boxr=0
An� 41
Ax boxr+=1
A�� boxr>=0 � boxr<=255 �
A�!�setbar(pane%,28,27,255,boxr)
A�"�iconputtext(pane%,35,�(boxr))
A�"�docolourbox(boxr,boxg,boxb,�)
A��
A�� boxr>255 � boxr=255
A�:
A�� 39
A� boxg-=1
A�� boxg>=0 � boxg<=255 �
A�!�setbar(pane%,31,30,255,boxg)
A�"�iconputtext(pane%,36,�(boxg))
A�"�docolourbox(boxr,boxg,boxb,�)
B�
B� boxg<0 � boxg=0
B� 42
B" boxg+=1
B,� boxg>=0 � boxg<=255 �
B6!�setbar(pane%,31,30,255,boxg)
B@"�iconputtext(pane%,36,�(boxg))
BJ"�docolourbox(boxr,boxg,boxb,�)
BT�
B^� boxg>255 � boxg=255
Bh:
Br� 40
B| boxb-=1
B�� boxb>=0 � boxb<=255 �
B�!�setbar(pane%,34,33,255,boxb)
B�"�iconputtext(pane%,37,�(boxb))
B�"�docolourbox(boxr,boxg,boxb,�)
B��
B�� boxb<0 � boxb=0
B�� 43
B� boxb+=1
B�� boxb>=0 � boxb<=255 �
B�!�setbar(pane%,34,33,255,boxb)
B�"�iconputtext(pane%,37,�(boxb))
B�"�docolourbox(boxr,boxg,boxb,�)
B��
C� boxb>255 � boxb=255
C� 44
C lineobj=� lineobj
C&� lineobj �
C0�selicon(pane%,44)
C:�
CD�uselicon(pane%,44)
CN�
CX� 2
Cbheadings=� headings
Cl
�headings
Cv� 46,47,48,49
C�dirs=� dirs
C� � dirs �
C��selicon(pane%,46)
C��
C��uselicon(pane%,46)
C��
C�� 3
C�sourcedir=� sourcedir
C�� sourcedir �
C�headcount+=1
C��selicon(pane%,3)
C��
C�headcount-=1
D� headcount>0 �
D �uselicon(pane%,3)
D�
D sourcedir=� sourcedir
D*headcount=1
D4�
D>�
DH� 4
DRdate=� date
D\ � date �
Dfheadcount+=1
Dp�selicon(pane%,4)
Dz�
D�headcount-=1
D�� headcount>0 �
D��uselicon(pane%,4)
D��
D�date=� date
D�headcount=1
D��
D��
D�� 13
D�� button%=4 � cols-=1
D�� button%=1 � cols+=1
D�� cols>=0 � cols <=15 �
D�"�iconputtext(pane%,14,�(cols))
E�colourset(cols)
E�
E� cols<0 � cols=0
E$� cols>15 � cols=15
E.� 15
E8� button%=4 � cols+=1
EB� button%=1 � cols-=1
EL� cols>=0 � cols <=15 �
EV"�iconputtext(pane%,14,�(cols))
E`�colourset(cols)
Ej�
Et� cols>15 � cols=15
E~� cols<0 � cols=0
E�� 17
E� iconsprites=� iconsprites
E�� iconsprites �
E��selicon(pane%,17)
E��
E��uselicon(pane%,17)
E��
E�� 21
E� rows=�(�icontext(pane%,22))
E�� button%=4 � rows-=1
E�� button%=1 � rows+=1
E�� rows>=1 � rows<=999 �
F "�iconputtext(pane%,22,�(rows))
F
�
F�rows>999 � rows=999
F �rows<1 � rows=1
F(#�IconCaret(pane%,22,�(�(rows)))
F2� 23
F< rows=�(�icontext(pane%,22))
FF� button%=4 � rows+=1
FP� button%=1 � rows-=1
FZ� rows>=1 � rows<=999 �
Fd"�iconputtext(pane%,22,�(rows))
Fn�
Fx�rows>999 � rows=999
F��rows<1 � rows=1
F�#�IconCaret(pane%,22,�(�(rows)))
F� � 28,27
F� �dragslidericon(pane%,28,27)
F� � 31,30
F� �dragslidericon(pane%,31,30)
F� � 34,33
F� �dragslidericon(pane%,34,33)
F��
F��
F�
��pane
F�oldhead=headcount
F�headings=fheadings
Gboxr=fboxr
Gboxg=fboxg
Gboxb=fboxb
G"!�setbar(pane%,28,27,255,boxr)
G,!�setbar(pane%,31,30,255,boxg)
G6!�setbar(pane%,34,33,255,boxb)
G@"�docolourbox(boxr,boxg,boxb,�)
GJ:
GT"�iconputtext(pane%,35,�(boxr))
G^"�iconputtext(pane%,36,�(boxg))
Gh"�iconputtext(pane%,37,�(boxb))
Gr:
G|
�headings
G�sourcedir=fsourcedir
G�� sourcedir �
G��selicon(pane%,3)
G��
G��uselicon(pane%,3)
G��
G�date=fdate
G� � date �
G��selicon(pane%,4)
G��
G��uselicon(pane%,4)
G��
G�#�iconputtext(pane%,8,linejunc$)
H �iconputtext(pane%,9,tjunc$)
H#�iconputtext(pane%,10,endjunc$)
H cols=fincols
H&"�iconputtext(pane%,14,�(cols))
H0�colourset(cols)
H: iconsprites=ficonsprites
HD� iconsprites �
HN�selicon(pane%,17)
HX�
Hb�uselicon(pane%,17)
Hl�
Hvrows=frows
H�"�iconputtext(pane%,22,�(rows))
H�:
H�lineobj=flineobj
H�� lineobj �
H��selicon(pane%,44)
H��
H��uselicon(pane%,44)
H��
H� � dirs �
H��selicon(pane%,46)
H��
H��uselicon(pane%,46)
H��
I�
I ��headings
I� headings �
I �selicon(pane%,2)
I*�usicon(pane%,3)
I4�usicon(pane%,4)
I>�
IH�uselicon(pane%,2)
IR�sicon(pane%,3)
I\�sicon(pane%,4)
If�
Ip�
Iz��colourset(c)
I� �changebcolour(pane%,14,c)
I�
Ȏ c �
I�� 0,1,2,3,9,12,14,15
I� �changefcolour(pane%,14,7)
I�
I� �changefcolour(pane%,14,0)
I��
I��
I� ��changebcolour(wi%,ic%,co%)
I�block%!0=wi%
I�block%!4=ic%
I�block%!8=(co%<<28)
I�block%!12=(%1111<<28)
Jș &400CD,,block%
J�
J ��changefcolour(wi%,ic%,co%)
J$block%!0=wi%
J.block%!4=ic%
J8block%!8=(co%<<24)
JBblock%!12=(%1111<<24)
JLș &400CD,,block%
JV�
J`ݤPpad(st$,n)
Jj� p
Jt p=�(st$)
J~st$=st$+�n-p," ")
J�=st$
J���defaults(flagg%)
J�
dirs=�
J��uselicon(pane%,46)
J�
boxr=0
J�
boxg=0
J�
boxb=0
J�!�setbar(pane%,28,27,255,boxr)
J�!�setbar(pane%,31,30,255,boxg)
J�!�setbar(pane%,34,33,255,boxb)
J�"�docolourbox(boxr,boxg,boxb,�)
J�"�iconputtext(pane%,35,�(boxr))
K "�iconputtext(pane%,36,�(boxg))
K
"�iconputtext(pane%,37,�(boxb))
K rows=50
K headings=�
K(sourcedir=�
K2
date=�
K<headcount=2
KFtjunc$="+�"
KPendjunc$="'�"
KZlinejunc$="|"
Kd
cols=7
Kniconsprites=�
Kx� flagg% �
K�
�headings
K�� sourcedir �
K��selicon(pane%,3)
K��
K��uselicon(pane%,3)
K��
K� � date �
K��selicon(pane%,4)
K��
K��uselicon(pane%,4)
K��
K�#�iconputtext(pane%,8,linejunc$)
K� �iconputtext(pane%,9,tjunc$)
L#�iconputtext(pane%,10,endjunc$)
L"�iconputtext(pane%,14,�(cols))
L�colourset(cols)
L"� iconsprites �
L,�selicon(pane%,17)
L6�
L@�uselicon(pane%,17)
LJ�
LT"�iconputtext(pane%,22,�(rows))
L^�
Lh
lineobj=�
Lr� lineobj �
L|�selicon(pane%,44)
L��
L��uselicon(pane%,44)
L��
L��
L� ݤmodulepresent(modulename$)
L�3ș &0002001E,18,modulename$ � M0,M1,M2,M3,M4,M5
L�)� M2=0 � M3=0 � M4=0 � M5=0 � =0 � =1
L� ݤfiletypeofafile(file$)
L�
� obj%
L�+ș &00000008,5,file$ � obj%,,mynewtype%
L�6� obj%=1 � (mynewtype% � &FFF00000) <> &FFF00000 �
L�mynewtype%=-2
L��
MD� obj%=1 � mynewtype%=(mynewtype% � &FFF00) >> 8 � mynewtype%=-1
M�
M =mynewtype%
M&:
M0ݤcheckfreespace
M:(ș"Wimp_SlotSize",-1,-1 � ,,freepool
MD
=freepool
MN:
MX��dodraw(file$)
Mb ș &08,11,file$,&aff,0,0
Mlș "Hourglass_On"
Mvrecalcx%=0
M�X%=�(file$)
M�
topx%=300
M�dummytopy%=8150
M�topy%=8150
M�tttemp%=200
M�
dummyx%=0
M� � tttemp%<830 � tttemp%=830
M�� columns �
M�E�makedrawfileheader(topx%-150,topy%-((rows-1)*22)-50,0,topy%+200)
M��
M�N�makedrawfileheader(topx%-150,topy%-((iii%-1)*22)-50,tttemp%+50,topy%+200)
M��
M�:
NB�objectheader(0,8+�fonttablesize("Homerton.Medium"),0,0,0,0,�)
N #�fonttable(1,"Homerton.Medium")
N:
N %�objectheader(11,64+24,0,0,0,0,�)
N* �object
N4:
N>M�objectheader(2,24+16+24+4,topx%-100,topy%+144,topx%-100+650,topy%+144,�)
NH�pathheader(255,0,0)
NR&�drawfilemove(topx%-100,topy%+144)
N\*�drawfiledraw(topx%-100+650,topy%+144)
Nf �endpath
Np:
Nzg�textobject(1,255,0,0,14,14,topx%-100,topy%+150,"Tree ("+�ver$,1,6)+") - by Richard Samphire 1993")
N�=�textobject(1,0,0,0,10,10,topx%-100,topy%+40,"Tree of :")
N�8�textobject(1,0,68,153,8,8,topx%-30,topy%+15,pooup$)
N�:
N� pfaf%=0
N� duff%=0
N�Alinecount%=0
N�Blinecount%=0
N�� puke%=0 � iii%-1
N�.� puke%>0 � (puke% � rows = 0) � columns �
N�topx%=(recalcx%+200)
N�col(duff%)=topx%
N�topy%=dummytopy%
N�recalcx%=0
O pfaf%=0
O duff%+=1
O� duff%>199 �
O$
duff%=199
O.5� 0,"A tree draw file can only have 199 columns."
O8�
OB�
OL2� iii%-1<>0 � ș&000406C4,(puke%/(iii%-1))*100
OV�getvars(puke%,�)
O`&� subcount%=0 � (numbericons%!0)-1
Oj@� ?(treedef%+subcount%)=asct% � subcount%<(numbericons%!0) �
Ot?� � lineobj � �drawbar(topx%+(subcount%*25),topy%-pfaf%*22)
O~Alinecount%+=1
O��
O�� subcount%
O�(� ?(treedef%+numbericons%!0)=ascl% �
O�I� � lineobj � �drawbotbar(topx%+((numbericons%!0)*25),topy%-pfaf%*22)
O�?�sprite(topx%+((numbericons%!0)*25)+24,(topy%-pfaf%*22)-20)
O�`�textobject(1,0,0,0,8,8,topx%+((numbericons%!0)*25)+55,(topy%-pfaf%*22)-18,�gLn($filename%))
O�Blinecount%+=1
O��
O�(� ?(treedef%+numbericons%!0)=asct% �
O�G� � lineobj � �drawtbar(topx%+((numbericons%!0)*25),topy%-pfaf%*22)
O�?�sprite(topx%+((numbericons%!0)*25)+24,(topy%-pfaf%*22)-20)
O�`�textobject(1,0,0,0,8,8,topx%+((numbericons%!0)*25)+55,(topy%-pfaf%*22)-18,�gLn($filename%))
P Blinecount%+=1
P
�
P pfaf%+=1
P � puke%
P(:
P2� lineobj �
P<N�objectheader(2,24+16+(Blinecount%*48)+(Alinecount%*24)+4,x,y-22,x+18,y,�)
PF"�pathheader(fboxr,fboxg,fboxb)
PP
topx%=300
PZdummytopy%=8150
Pdtopy%=8150
Pntttemp%=200
Px
dummyx%=0
P� pfaf%=0
P� duff%=0
P�� puke%=0 � iii%-1
P�.� puke%>0 � (puke% � rows = 0) � columns �
P�topx%=col(duff%)
P�topy%=dummytopy%
P�recalcx%=0
P� pfaf%=0
P� duff%+=1
P��
P�2� iii%-1<>0 � ș&000406C4,(puke%/(iii%-1))*100
P��getvars(puke%,�)
P�&� subcount%=0 � (numbericons%!0)-1
Q@� ?(treedef%+subcount%)=asct% � subcount%<(numbericons%!0) �
Q2�drawbar2(topx%+(subcount%*25),topy%-pfaf%*22)
Q�
Q"� subcount%
Q,(� ?(treedef%+numbericons%!0)=ascl% �
Q6<�drawbotbar2(topx%+((numbericons%!0)*25),topy%-pfaf%*22)
Q@�
QJ(� ?(treedef%+numbericons%!0)=asct% �
QT:�drawtbar2(topx%+((numbericons%!0)*25),topy%-pfaf%*22)
Q^�
Qh pfaf%+=1
Qr � puke%
Q| �endpath
Q��
Q�:
Q�filelength%=�#X%
Q�� columns �
Q� �#X%=32
Q�"block2%!0=�todraw(dummyx%+250)
Q� ș "OS_GBPB",2,X%,block2%,4
Q��
Q��#X%
Q�ș "Hourglass_Smash"
Q� �("SETTYPE "+file$+" &AFF")
Q�block%!0=256
Q�block%!12=0
Rblock%!16=3
Rblock%!20=wind%
R block%!24=icon%
R&block%!28=x%
R0block%!32=y%
R:block%!36=filelength%
RDblock%!40=&aff
RN$(block%+44)=file$+�0
RX%ș&000400E7,17,block%,wind%,icon%
Rb�
Rl:
Rv%��makedrawfileheader(xl,yl,xh,yh)
R�$(block2%+0)="Draw"
R�block2%!4=201
R�block2%!8=0
R� $(block2%+12)="Tree "
R�block2%!24=�todraw(xl)
R�block2%!28=�todraw(yl)
R�block2%!32=�todraw(xh)
R�block2%!36=�todraw(yh)
R� ș "OS_GBPB",2,X%,block2%,40
R��
R�:
R�-��objectheader(type,size,xl,yl,xh,yh,flg)
R�block2%!0=type
Sblock2%!4=size
S � flg �
Sblock2%!8=�todraw(xl)
S block2%!12=�todraw(yl)
S*block2%!16=�todraw(xh)
S4block2%!20=�todraw(yh)
S> ș "OS_GBPB",2,X%,block2%,24
SH�
SR ș "OS_GBPB",2,X%,block2%,8
S\�
Sf�
Sp:
Szݤtodraw(num)
S� =num*256
S�:
S���pathheader(r,g,b)
S�block2%!0=-1
S�?(block2%+4)=0
S�?(block2%+5)=r
S�?(block2%+6)=g
S�?(block2%+7)=b
S�block2%!8=0
S�block2%!12=%1101000
S� ș "OS_GBPB",2,X%,block2%,16
S��
S�:
T��drawfilemove(x,y)
Tblock2%!0=2
Tblock2%!4=�todraw(x)
T$block2%!8=�todraw(y)
T. ș "OS_GBPB",2,X%,block2%,12
T8�
TB:
TL��drawfiledraw(x,y)
TVblock2%!0=8
T`block2%!4=�todraw(x)
Tjblock2%!8=�todraw(y)
Tt ș "OS_GBPB",2,X%,block2%,12
T~�
T�:
T�
��endpath
T�block2%!0=0
T� ș "OS_GBPB",2,X%,block2%,4
T��
T�:
T� ��object
T�block2%!0=(0+1)*&100
T�block2%!4=0
T�|(block2%+8)=1.0
T�block2%!16=2
T�block2%!20=0
U block2%!24=0
U
block2%!28=0
Ublock2%!32=0
U block2%!36=1
U(block2%!40=1
U2block2%!44=1
U<block2%!48=0
UFblock2%!52=1
UPblock2%!56=0
UZblock2%!60=4096
Ud ș "OS_GBPB",2,X%,block2%,64
Un�
Ux:
U���drawtbar(x,y)
U�2�objectheader(2,24+16+24+24+4,x,y-22,x+18,y,�)
U�"�pathheader(fboxr,fboxg,fboxb)
U��drawfilemove(x,y)
U��drawfiledraw(x,y-22)
U��drawfilemove(x,y-11)
U� �drawfiledraw(x+18,y-11)
U� �endpath
U��
U�:
U���drawbotbar(x,y)
U�2�objectheader(2,24+16+24+24+4,x,y-11,x+18,y,�)
U�"�pathheader(fboxr,fboxg,fboxb)
V�drawfilemove(x,y)
V�drawfiledraw(x,y-11)
V�drawfilemove(x,y-11)
V" �drawfiledraw(x+18,y-11)
V, �endpath
V6�
V@:
VJ��drawbar(x,y)
VT/�objectheader(2,24+16+24+4,x,y-22,x+18,y,�)
V^"�pathheader(fboxr,fboxg,fboxb)
Vh�drawfilemove(x,y)
Vr�drawfiledraw(x,y-22)
V| �endpath
V��
V�:
V� ��fonttable(number,font$)
V� � blank%=0 � 20+�(font$)
V�?(block2%+blank%)=0
V� �blank%
V�?(block2%+0)=number
V�$(block2%+1)=font$+�0
V�3ș "OS_GBPB",2,X%,block2%,�fonttablesize(font$)
V��
V�:
V�ݤfonttablesize(FO$)
V�l=0
WFO$=FO$+�0
W
l+=�(FO$)
W cs=l � 4
W&� cs>0 � cs=4-cs
W0cs+=�(FO$)
W:
=cs+12
WD:
WN-��textobject(number,r,g,b,px,py,x,y,str$)
WXMXP=px*1000
WbMYP=py*1000
Wl#ș &40088,,MXP,MYP � ,MMXP,MMYP
WvMMXP=MMXP*(�(str$)/2)
W�sx=0
W�� b=0 � �(str$)
W�;�objectheader(1,24+�fontsize(str$),x,y,x+MMXP,y+MMYP,�)
W� � x>recalcx% � recalcx%=x
W�%� x+MMXP>dummyx% � dummyx%=x+MMXP
W�� blank%=0 � 40+�(str$)
W�?(block2%+blank%)=0
W� �blank%
W�?(block2%+0)=0
W�?(block2%+1)=r
W�?(block2%+2)=g
W�?(block2%+3)=b
W�?(block2%+4)=0
X?(block2%+5)=255
X ?(block2%+6)=255
X?(block2%+7)=255
X block2%!8=number
X*block2%!12=px*640
X4block2%!16=py*640
X>block2%!20=�todraw(x)
XHblock2%!24=�todraw(y)
XR$(block2%+28)=str$+�0
X\-ș "OS_GBPB",2,X%,block2%,�fontsize(str$)
Xf�
Xp:
Xzݤfontsize(FO$)
X�l=0
X�FO$=FO$+�0
X�
l+=�(FO$)
X� cs=l � 4
X�� cs>0 � cs=4-cs
X�cs+=�(FO$)
X�
=cs+28
X�:
X���sprite(XXMY,YYMY)
X�fcack$=�gLn($filename%)
X�!� type%!0>&FFF � type%!0<&0 �
X� � �fcack$,1)="!" �
X� valid$=fcack$
Y6 � � �spriteexists(valid$) � valid$="application"
Y �
Y valid$="directory"
Y$ �
Y.�
Y8" valid$="file_"+�pad(type%!0)
YB3 � � �spriteexists(valid$) � valid$="file_xxx"
YL�
YV:
Y` �subspr
Yj�
Yt:
Y~ ��subspr
Y�� �
Y� � � � � �=134 � �subspr2:�
Y�ș &400EA � newarea
Y�0ș &2E,256+24,newarea,valid$ � ,,sprpointer%
Y�:
Y� spritelength%=sprpointer%!0
Y� mval=(24+spritelength%) � 4
Y�� mval>0 � mval=4-mval
Y�F�objectheader(5,24+spritelength%+mval,XXMY,YYMY,XXMY+20,YYMY+20,�)
Y�/ș "OS_GBPB",2,X%,sprpointer%,spritelength%
Y�block2%!0=0
Y�"ș "OS_GBPB",2,X%,block2%,mval
Z �
Z
:
Z
��subspr2
Z � �
Z(� � � � 0,�$+�(�)
Z2ș &400ea � ,newarea
Z<0ș &2e,256+24,newarea,valid$ � ,,sprpointer%
ZF:
ZP spritelength%=sprpointer%!0
ZZ mval=(24+spritelength%) � 4
Zd� mval>0 � mval=4-mval
ZnF�objectheader(5,24+spritelength%+mval,XXMY,YYMY,XXMY+20,YYMY+20,�)
Zx/ș "OS_GBPB",2,X%,sprpointer%,spritelength%
Z�block2%!0=0
Z�"ș "OS_GBPB",2,X%,block2%,mval
Z��
Z�:
Z�%��IconCaret(window%,icon%,chars%)
Z�8ș "Wimp_SetCaretPosition",window%,icon%,,,-1,chars%
Z��
Z�:
Z���drawtbar2(x,y)
Z��drawfilemove(x,y)
Z��drawfiledraw(x,y-22)
Z��drawfilemove(x,y-11)
Z� �drawfiledraw(x+18,y-11)
[�
[:
[��drawbotbar2(x,y)
["�drawfilemove(x,y)
[,�drawfiledraw(x,y-11)
[6�drawfilemove(x,y-11)
[@ �drawfiledraw(x+18,y-11)
[J�
[T:
[^��drawbar2(x,y)
[h�drawfilemove(x,y)
[r�drawfiledraw(x,y-22)
[|�
[�:
[�
[�ݤattributes(attrib)
[�attribute$=""
[�&� attrib � %1000 � attribute$+="L"
[�$� attrib � %10 � attribute$+="W"
[�#� attrib � %1 � attribute$+="R"
[�attribute$+="/"
[�*� attrib � %10000000 � attribute$+="l"
[�(� attrib � %100000 � attribute$+="w"
[�'� attrib � %10000 � attribute$+="r"
[�=attribute$
[�:
\"ݤmyconvert(laddress,eaddress)
\Z� (laddress � %11111111111100000000000000000000) = %11111111111100000000000000000000 �
\ :templ=laddress � (� %11111111111111111111111100000000)
\&?(block2%+4)=templ
\0:tempe=eaddress � (� %00000000111111111111111111111111)
\:?(block2%+3)=tempe>>24
\D:tempe=eaddress � (� %11111111000000001111111111111111)
\N?(block2%+2)=tempe>>16
\X:tempe=eaddress � (� %11111111111111110000000011111111)
\b?(block2%+1)=tempe>>8
\l:tempe=eaddress � (� %11111111111111111111111100000000)
\v?(block2%+0)=tempe
\�result%=block2%+256
\�:ș "OS_ConvertStandardDateAndTime",block2%,result%,256
\�=�getstring(result%)
\��
\�%=�~(laddress)+" "+�~(eaddress)
\�:
\���getprinterinfo
\�0ș "XPDriver_Info" � R0,R1,R2,R3,R4,R5,R6,R7
\�/� R1=0 � R2=0 � R3=0 � R4=0 � R5=0 � R6=0 �
\�
driver%=�
\� printer$="None Installed"
\��
\�
driver%=�
]printer$=�getstring(R4)
] �
]�
] :
]*��clickprint(ic%)
]4 Ȏ ic% �
]>� 1
]H!copies=�(�icontext(print%,2))
]R� copies<0 � copies=1
]\ � copies>999 � copies=999
]f� button%=4 � copies-=1
]p� button%=1 � copies+=1
]z� copies<1 � copies=1
]� � copies>999 � copies=999
]�$�iconputtext(print%,2,�(copies))
]�%�IconCaret(print%,2,�(�(copies)))
]�� 3
]�!copies=�(�icontext(print%,2))
]�� copies<1 � copies=1
]� � copies>999 � copies=999
]�� button%=1 � copies-=1
]�� button%=4 � copies+=1
]�� copies<0 � copies=1
]� � copies>999 � copies=999
]�$�iconputtext(print%,2,�(copies))
]�%�IconCaret(print%,2,�(�(copies)))
^� 5
^!copies=�(�icontext(print%,2))
^� copies<1 � copies=1
^$ � copies>999 � copies=999
^.doprint%=�
^8poowindow%=print%
^Bblock%!0=256
^Lblock%!12=0
^Vblock%!16=&80142
^`block%!20=0
^jblock%!24=0
^tblock%!28=0
^~block%!32=0
^�block%!36=-1
^�block%!40=&FFF
^�($(block%+44)=�gLn("<Wimp$Scrap>")+�0
^�%ș "Wimp_SendMessage",18,block%,0
^�*� button%<>1 � ș "Wimp_CreateMenu",-1
^��
^��
^��
^�:
^�ݤmycontrol
^�block2%!0=mycontrol%
^�ș &000400CB,,block2%
_ ș &000400C5,,block2%
_
tBB=-1
_�
_ -ș &000400C7,0,block2% � reason2%,block2%
_(Ȏ reason2% �
_2� 1
_< ș &000400C8,,block2% � flag
_F ȕ flag
_P-�dolines(block2%!8,block2%!16,block2%!24)
_Z ș &000400CA,,block2% � flag
_d�
_n� 2
_xș &000400C5,,block2%
_�� 6
_�subbutton%=block2%!8
_�subwindow%=block2%!12
_�subicon%=block2%!16
_� � subwindow%=mycontrol% �
_�Ȏ subicon% �
_�� 5 : tBB = 0
_�� 6 : tBB = 1
_�� 7 : tBB = 2
_��
_��
_�� 18
_�� block2%!16=8 �
` block2%!12=block2%!8
`( ș "Wimp_SendMessage",19,block2%,0
` �sicon(mycontrol%,6)
`" pressed=�
`,�
`6�
`@
`J � tBB>-1
`T=tBB
`^:
`h.��dragslidericon(win%,dragicon%,sizeicon%)
`rblock%!0=win%
`|block%!4=sizeicon%
`�"ș "Wimp_GetIconState",,block%
`�sminx%=block%!8
`�sminy%=block%!12
`�smaxx%=block%!16
`�smaxy%=block%!20
`�$ș "Wimp_GetPointerInfo",,block%
`�mx%=block%!0
`�block%!0=win%
`�#ș "Wimp_GetWindowInfo",,block%
`�/calcx%=(mx%-(block%!4-block%!20))+block%!44
`�ș &35,�,4 � ,,xfact%
`�)iconminx%=sminx%+(block%!4-block%!20)
`�'iconmaxx%=iconminx%+(smaxx%-sminx%)
a*iconminy%=sminy%+(block%!16-block%!24)
aș &35,�,5 � ,,yfact%
a 3iconmaxy%=iconminy%+(smaxy%-sminy%)-(1<<yfact%)
a&block%!0=win%
a0block%!4=7
a:block%!8=iconminx%
aDblock%!12=iconminy%
aNblock%!16=iconmaxx%
aXblock%!20=iconmaxy%
abblock%!24=block%!8
alblock%!28=block%!12
avblock%!32=block%!16
a�block%!36=block%!20
a� ș "Wimp_DragBox",,block%
a�slidewindow%=win%
a�slideicon%=dragicon%
a�slidesize%=sizeicon%
a�lastwindow%=win%
a�block%!0=win%
a�block%!4=dragicon%
a�"ș "Wimp_GetIconState",,block%
a�oldworkx%=block%!16
a��
a�:
a�5��doslide(win%,dragicon%,sizeicon%,const%,range%)
bblock%!0=win%
b block%!4=sizeicon%
b"ș "Wimp_GetIconState",,block%
b sizeminx%=block%!8
b*sizeminy%=block%!12
b4sizemaxx%=block%!16
b>sizemaxy%=block%!20
bHȗ mx%,my%,mb%
bRblock%!0=win%
b\#ș "Wimp_GetWindowInfo",,block%
bfminx%=block%!4
bpscrx%=block%!20
bznewx%=mx%+(scrx%-minx%)
b�� newx%<>oldworkx% �
b� block%!0=win%
b� block%!4=dragicon%
b�$ ș "Wimp_GetIconState",,block%
b� block%!16=newx%
b� block%!0=win%
b� block%!4=dragicon%
b�" ș "Wimp_DeleteIcon",,block%
b� block%!4=win%
b�$ ș "Wimp_CreateIcon",,block%+4
b�newblock%=block%+4
b�� oldworkx%<newx% �
b�newblock%!4=sizeminx%
c�
cnewblock%!4=newx%
c�
c$newblock%!8=sizeminy%
c.� oldworkx%>newx% �
c8newblock%!12=sizemaxx%
cB�
cLnewblock%!12=newx%
cV�
c`newblock%!16=sizemaxy%
cj,ș "Wimp_UpdateWindow",,newblock% � flag
ct ȕ flag
c~,ș "Wimp_GetRectangle",,newblock% � flag
c��
c� � const% �
c�! size%=sizemaxx%-sizeminx%
c� ppos%=(newx%-sizeminx%)
c�$ number%=(range%/size%)*ppos%
c� :
c� Ȏ slideicon% �
c� � 28
c� boxr=number%
c�& �iconputtext(pane%,35,�(boxr))
c�& �docolourbox(boxr,boxg,boxb,�)
c� � 31
d boxg=number%
d
& �iconputtext(pane%,36,�(boxg))
d& �docolourbox(boxr,boxg,boxb,�)
d � 34
d( boxb=number%
d2& �iconputtext(pane%,37,�(boxb))
d<& �docolourbox(boxr,boxg,boxb,�)
dF �
dP �
dZ�
ddblock%!0=win%
dnblock%!4=dragicon%
dx"ș "Wimp_GetIconState",,block%
d�oldworkx%=block%!16
d�rrange%=range%
d��
d�:
d�5��setbar(win%,dragicon%,sizeicon%,range%,number%)
d�� number%<0 � number%=0
d�%� number%>range% � number%=range%
d�block%!0=win%
d�block%!4=sizeicon%
d�"ș "Wimp_GetIconState",,block%
d�sizeminx%=block%!8
d�sizeminy%=block%!12
d�sizemaxx%=block%!16
esizemaxy%=block%!20
e<newx%=sizeminx%+(number%/(range%/(sizemaxx%-sizeminx%)))
eblock%!0=win%
e"block%!4=dragicon%
e,"ș "Wimp_GetIconState",,block%
e6block%!16=newx%
e@block%!0=win%
eJblock%!4=dragicon%
eT ș "Wimp_DeleteIcon",,block%
e^block%!4=win%
eh"ș "Wimp_CreateIcon",,block%+4
ernewblock%=block%+4
e|� oldworkx%<newx% �
e�newblock%!4=sizeminx%
e��
e�newblock%!4=newx%
e��
e�newblock%!8=sizeminy%
e�� oldworkx%<newx% �
e�newblock%!12=newx%
e��
e�newblock%!12=sizemaxx%
e��
e�newblock%!16=sizemaxy%
e�,ș "Wimp_UpdateWindow",,newblock% � flag
e� ȕ flag
f,ș "Wimp_GetRectangle",,newblock% � flag
f�
f oldworkx%=newx%
f&�
f0:
f:2ݤgetbarvalue(win%,dragicon%,sizeicon%,range%)
fDblock%!0=win%
fNblock%!4=sizeicon%
fX"ș "Wimp_GetIconState",,block%
fbsizeminx%=block%!8
flsizemaxx%=block%!16
fvblock%!0=win%
f�block%!4=dragicon%
f�"ș "Wimp_GetIconState",,block%
f�8=(range%/(sizemaxx%-sizeminx%))*(block%!16-block%!8)
f�:
f�ݤtopal(r,g,b)
f�C=0
f�C=C � (b<<24)
f�C=C � (g<<16)
f�C=C � (r<<8)
f�=C
f�:
f� ��docolourbox(r,g,b,flg)
f�block2%!0=pane%
gș&400cb,,block2%
g btopx%=block2%!4-block2%!20
g btopy%=block2%!16-block2%!24
g � flg �
g*block2%!0=pane%
g4block2%!4=45
g>#ș "Wimp_GetIconState",,block2%
gHnewblock%=block2%+4
gRnewblock%!0=pane%
g\-ș "Wimp_UpdateWindow",,newblock% � fflag
gf ȕ fflag
gp9ș "ColourTrans_SetGCOL",�topal(r,g,b),,,%100000000,0
gz'ȓ Ȑ btopx%+234,btopy%-1036,234,38
g�-ș "Wimp_GetRectangle",,newblock% � fflag
g��
g��
g�9ș "ColourTrans_SetGCOL",�topal(r,g,b),,,%100000000,0
g�'ȓ Ȑ btopx%+234,btopy%-1036,234,38
g��
g��
g�:
g���dotitle(funny)
g��centrewindow(title%)
g�-ș &000400C7,0,block2% � reason2%,block2%
g�t=�
g��
h� �>t+funny
h�closewindow(title%)
h�
h$:
h.��initsprites
h8+ș "OS_ReadModeVariable",-1,5 � ,,yeig%
hB5� yeig%<2 � sprite$="Sprites" � sprite$="Sprites"
hL<ș "OS_File",17,"<Tree$Dir>."+sprite$ � type%,,,,length%
hV� sprite% length%+4
h`!sprite%=length%+4
hj6ș "OS_SpriteOp",266,sprite%,"<Tree$Dir>."+sprite$
ht�
h~:
h���centrewindow(win%)
h�#ș &00000035,�,11 � ,,xpixlimit
h�#ș &00000035,�,12 � ,,ypixlimit
h� ș &00000035,�,4 � ,,xfact
h� ș &00000035,�,5 � ,,yfact
h� maxX=(xpixlimit+1)<<xfact
h� maxY=(ypixlimit+1)<<yfact
h�:
h�block%!0=win%
h�ș &000400CB,,block%
h�:
h�� � �isopen(win%) �
i wx%=block%!12-block%!4
i
wx2%=wx% � 2
icX=maxX � 2
i block%!4=cX-wx2%
i(block%!12=block%!4+wx%
i2wy%=block%!16-block%!8
i<wy2%=wy% � 2
iFcY=maxY � 2
iPblock%!8=cY-wy2%
iZblock%!16=block%!8+wy%
id�
in:
ixș &000400C5,,block%
i��
i�:
i���dragmyfile
i��getvars(icon%-1,�)
i�fty%=type%!0
i�temp$=�gLn($filename%)
i�� fty%>&FFF � fty%<&0 �
i� � �temp$,1)="!" �
i� valid$=temp$
i�8 � � �spriteexists(valid$) � valid$="application"
i� �
i� valid$="directory"
i� �
j�
j valid$="file_"+�pad(fty%)
j�
j"9� type%!0=-2 � valid$="directory" � valid$="file_xxx"
j,1� � �spriteexists(valid$) � valid$="file_xxx"
j6:
j@ �subspr3
jJ ș &00000035,�,4 � ,,xfact
jT ș &00000035,�,5 � ,,yfact
j^wpix%=wpix2%<<xfact
jhhpix%=hpix2%<<yfact
jr:
j|block%!0=x%-(wpix% � 2)
j�block%!4=y%-(hpix% � 2)
j�block%!8=block%!0+wpix%
j� block%!12=block%!4+hpix%
j�:
j�:ș "DragASprite_Start",%11000101,newarea,valid$,block%
j�lastwindow%=main%
j��
j�:
j�
��subspr3
j�� �
j� � � � � �=134 � �subspr4:�
j�ș &400EA � newarea
j�3ș &2e,256+40,newarea,valid$ � ,,,wpix2%,hpix2%
k�
k:
k
��subspr4
k&� �
k0� � � � 0,�$
k:ș &400ea � ,newarea
kD3ș &2e,256+40,newarea,valid$ � ,,,wpix2%,hpix2%
kN�
kX:
kb��dirs(inflg)
kl� iii%>0 �
kv ș "Hourglass_On"
k� � fdirs �
k� � smeg%=1 � iii%
k�8 � iii%-1<>0 � ș&000406C4,(smeg%/(iii%-1))*100
k� �getvars(smeg%-1,�)
k�/ � type%!0<>-1 � �sicon(main%,smeg%)
k� �smeg%
k� �
k� � inflg �
k� � smeg%=1 � iii%
k�< � iii%-1<>0 � ș&000406C4,(smeg%/(iii%-1))*100
k�! �getvars(smeg%-1,�)
k�2 � type%!0<>-1 � �usicon(main%,smeg%)
k� �smeg%
l �
l �
l ș "Hourglass_Smash"
l �
l*�
l4:
l>��opensearch
lH cursearch=currentsearch-1
lR:� cursearch=0 � �sicon(search%,4) � �usicon(search%,4)
l\?� cursearch=iii%-1 � �sicon(search%,5) � �usicon(search%,5)
lf�getvars(cursearch,�)
lp,�iconputtext(search%,8,�gLn($filename%))
lz� � �isopen(search%) �
l�casesens=�
l��uselicon(search%,11)
l�searchfile=�
l�searchtype=�
l��selicon(search%,0)
l��uselicon(search%,1)
l��usicon(search%,2)
l��sicon(search%,3)
l� �iconputtext(search%,2,"")
l� �iconputtext(search%,3,"")
l� �PROCcentrewindow(search%)
l�searchwindow%=�
l��openwindow(main%,�)
m�
m�
m:
m$��clicksearch(ic%)
m. Ȏ ic% �
m8� 14
mB�closewindow(search%)
mL � 11,12
mVcasesens=� casesens
m`� casesens �
mj�selicon(search%,11)
mt�
m~�uselicon(search%,11)
m��
m�� 0
m�� searchtype �
m�searchfile=� searchfile
m��
m�� searchfile �
m��selicon(search%,0)
m��usicon(search%,2)
m�1�iconcaret(search%,2,�(�icontext(search%,2)))
m��
m��uselicon(search%,0)
m��sicon(search%,2)
n 1�iconcaret(search%,3,�(�icontext(search%,3)))
n
�
n� 1
n � searchfile �
n(searchtype=� searchtype
n2�
n<� searchtype �
nF�selicon(search%,1)
nP�usicon(search%,3)
nZ1�iconcaret(search%,3,�(�icontext(search%,3)))
nd�
nn�uselicon(search%,1)
nx�sicon(search%,3)
n�1�iconcaret(search%,2,�(�icontext(search%,2)))
n��
n�� 4
n�l� searchfile � �icontext(search%,2)="" � �alert("Message from Tree","Please enter a search filename.",0)
n�l� searchtype � �icontext(search%,3)="" � �alert("Message from Tree","Please enter a search filetype.",0)
n��� (searchfile � �icontext(search%,2)<>"") � (searchtype � �icontext(search%,3)<>"") � �searchup(cursearch,�icontext(search%,2),�icontext(search%,3))
n�� 5
n�l� searchfile � �icontext(search%,2)="" � �alert("Message from Tree","Please enter a search filename.",0)
n�l� searchtype � �icontext(search%,3)="" � �alert("Message from Tree","Please enter a search filetype.",0)
nܚ� (searchfile � �icontext(search%,2)<>"") � (searchtype � �icontext(search%,3)<>"") � �searchdown(cursearch,�icontext(search%,2),�icontext(search%,3))
n��
n��
n�:
oݤisopen(win%)
oblock3%!0=win%
o%ș "Wimp_GetWindowState",,block3%
o"winflags%=block3%!32
o,0� (winflags% � %10000000000000000) = 65536 �
o6=�
o@�
oJ=�
oT�
o^:
oh��viewicon(win%,ic%)
orblock%!0=win%
o|block%!4=ic%
o�"ș "Wimp_GetIconState",,block%
o�+middle%=block%!12+(block%!20-block%!12)
o�block%!0=win%
o�$ș "Wimp_GetWindowState",,block%
o�0block%!24=middle%+((block%!16-block%!8) � 2)
o� ș "Wimp_OpenWindow",,block%
o��
o�:
o�/��searchup(c,searchstring1$,searchstring2$)
o�$subsearchstring1$=searchstring1$
o�$subsearchstring2$=searchstring2$
o��uselicon(main%,c+1)
o� found=-1
p� c-1>=0 �
p
smeg%=c-1
p ș "Hourglass_On"
p&�
p0�getvars(smeg%,�)
p:� found=-1 �
pD� casesens �
pN ttfilename$=�gLn($filename%)
pXttfbo$=�pad(type%!0)
pb�
pl*ttfilename$=�tolower(�gLn($filename%))
pv"ttfbo$=�tolower(�pad(type%!0))
p�+searchstring1$=�tolower(searchstring1$)
p�+searchstring2$=�tolower(searchstring2$)
p��
p�!� �subsearchstring1$,"*")>0 �
p�#fudge=�subsearchstring1$,"*")-1
p�� casesens �
p�.searchstring1$=�subsearchstring1$,1,fudge)
p�%ttfilename$=�ttfilename$,1,fudge)
p��
p�8searchstring1$=�tolower(�subsearchstring1$,1,fudge))
p�/ttfilename$=�tolower(�ttfilename$,1,fudge))
p��
p��
q!� �subsearchstring2$,"*")>0 �
q #fudge=�subsearchstring2$,"*")-1
q� casesens �
q .searchstring2$=�subsearchstring2$,1,fudge)
q*ttfbo$=�ttfbo$,1,fudge)
q4�
q>8searchstring2$=�tolower(�subsearchstring2$,1,fudge))
qH%ttfbo$=�tolower(�ttfbo$,1,fudge))
qR�
q\�
qfJ� ttfilename$=searchstring1$ � searchfile � � searchtype � found=smeg%
qpE� ttfbo$=searchstring2$ � � searchfile � searchtype � found=smeg%
qz`� ttfilename$=searchstring1$ � ttfbo$=searchstring2$ � searchfile � searchtype � found=smeg%
q��
q� smeg%-=1
q��found>-1 � smeg%<0
q�ș "Hourglass_Smash"
q��
q�� found=-1 �
q�d�alert("Message from Tree","'"+�icontext(search%,2)+"' was not found above the current file.",0)
q��
q� �viewicon(main%,found+1)
q��selicon(main%,found+1)
q�cursearch=found
q�:� cursearch=0 � �sicon(search%,4) � �usicon(search%,4)
q�?� cursearch=iii%-1 � �sicon(search%,5) � �usicon(search%,5)
r�getvars(cursearch,�)
r,�iconputtext(search%,8,�gLn($filename%))
r�
r$�
r.:
r8ݤtolower(A$)
rB� q=1 � �(A$)
rLQ� �(�A$,q,1))>=�"A" � �(�A$,q,1))<=�"Z" � �A$,q,1)=�(�(�A$,q,1))+(�"a"-�"A"))
rV� q
r`=A$
rj:
rt1��searchdown(c,searchstring1$,searchstring2$)
r~$subsearchstring1$=searchstring1$
r�$subsearchstring2$=searchstring2$
r��uselicon(main%,c+1)
r� found=-1
r�� c+1<=iii%-1 �
r�
smeg%=c+1
r�ș "Hourglass_On"
r��
r��getvars(smeg%,�)
r�� found=-1 �
r�� casesens �
r� ttfilename$=�gLn($filename%)
r�ttfbo$=�pad(type%!0)
s �
s
*ttfilename$=�tolower(�gLn($filename%))
s"ttfbo$=�tolower(�pad(type%!0))
s +searchstring1$=�tolower(searchstring1$)
s(+searchstring2$=�tolower(searchstring2$)
s2�
s<!� �subsearchstring1$,"*")>0 �
sF#fudge=�subsearchstring1$,"*")-1
sP� casesens �
sZ.searchstring1$=�subsearchstring1$,1,fudge)
sd%ttfilename$=�ttfilename$,1,fudge)
sn�
sx8searchstring1$=�tolower(�subsearchstring1$,1,fudge))
s�/ttfilename$=�tolower(�ttfilename$,1,fudge))
s��
s��
s�!� �subsearchstring2$,"*")>0 �
s�#fudge=�subsearchstring2$,"*")-1
s�� casesens �
s�.searchstring2$=�subsearchstring2$,1,fudge)
s�ttfbo$=�ttfbo$,1,fudge)
s��
s�8searchstring2$=�tolower(�subsearchstring2$,1,fudge))
s�%ttfbo$=�tolower(�ttfbo$,1,fudge))
s��
s��
tJ� ttfilename$=searchstring1$ � searchfile � � searchtype � found=smeg%
tE� ttfbo$=searchstring2$ � � searchfile � searchtype � found=smeg%
t`� ttfilename$=searchstring1$ � ttfbo$=searchstring2$ � searchfile � searchtype � found=smeg%
t"�
t, smeg%+=1
t6 �found>-1 � smeg%>iii%+1
t@ș "Hourglass_Smash"
tJ�
tT� found=-1 �
t^d�alert("Message from Tree","'"+�icontext(search%,2)+"' was not found below the current file.",0)
th�
tr �viewicon(main%,found+1)
t|�selicon(main%,found+1)
t�cursearch=found
t�:� cursearch=0 � �sicon(search%,4) � �usicon(search%,4)
t�?� cursearch=iii%-1 � �sicon(search%,5) � �usicon(search%,5)
t��getvars(cursearch,�)
t�,�iconputtext(search%,8,�gLn($filename%))
t��
t��
� 00000000 0d 00 0a 3e f4 3e 53 43 53 49 3a 3a 53 43 53 49 |...>.>SCSI::SCSI|
00000010 44 72 69 76 65 34 2e 24 2e 21 44 65 76 65 6c 6f |Drive4.$.!Develo|
00000020 70 2e 46 69 6c 65 73 2e 54 72 65 65 76 31 2e 21 |p.Files.Treev1.!|
00000030 54 72 65 65 2e 21 52 75 6e 49 6d 61 67 65 0d 00 |Tree.!RunImage..|
00000040 14 5e ee 20 85 20 f2 61 6c 65 72 74 28 22 4d 61 |.^. . .alert("Ma|
00000050 6a 6f 72 20 42 41 44 20 65 72 72 6f 72 20 66 72 |jor BAD error fr|
00000060 6f 6d 20 54 72 65 65 22 2c f6 24 2b 22 20 22 2b |om Tree",.$+" "+|
00000070 c3 28 9e 29 2c 30 29 3a c8 99 20 26 30 30 30 34 |.(.),0):.. &0004|
00000080 30 30 44 44 2c 74 61 73 6b 68 61 6e 64 6c 65 25 |00DD,taskhandle%|
00000090 2c 26 34 42 35 33 34 31 35 34 3a e0 0d 00 1e 05 |,&4B534154:.....|
000000a0 3a 0d 00 28 16 74 61 73 6b 73 69 7a 65 25 3d 32 |:..(.tasksize%=2|
000000b0 35 36 2a 31 30 32 34 0d 00 32 16 73 6d 65 67 62 |56*1024..2.smegb|
000000c0 6c 6f 63 6b 73 69 7a 65 25 3d 34 30 30 0d 00 3c |locksize%=400..<|
000000d0 0e 65 6e 64 70 72 6f 67 25 3d 93 0d 00 46 05 3a |.endprog%=...F.:|
000000e0 0d 00 50 3c f4 20 20 20 20 20 20 20 20 20 62 79 |..P<. by|
000000f0 20 52 69 63 68 61 72 64 20 53 61 6d 70 68 69 72 | Richard Samphir|
00000100 65 20 31 39 39 33 20 20 20 20 20 2d 2d 2d 2d 2d |e 1993 -----|
00000110 2d 2d 2d 2d 2d 2d 20 42 4f 4f 20 21 0d 00 5a 05 |------ BOO !..Z.|
00000120 3a 0d 00 64 0f c8 99 26 30 30 30 34 30 36 43 30 |:..d...&000406C0|
00000130 0d 00 6e 17 c8 99 20 26 30 30 30 30 30 30 31 30 |..n... &00000010|
00000140 20 b8 20 65 6e 76 24 0d 00 78 18 e7 20 a7 65 6e | . env$..x.. .en|
00000150 76 24 2c 22 20 2d 71 75 69 74 20 22 29 20 8c 0d |v$," -quit ") ..|
00000160 00 82 35 64 6f 75 62 6c 65 63 6c 69 63 6b 24 3d |..5doubleclick$=|
00000170 c1 65 6e 76 24 2c a7 65 6e 76 24 2c bd 28 33 34 |.env$,.env$,.(34|
00000180 29 2c a7 65 6e 76 24 2c bd 28 33 34 29 29 2b 31 |),.env$,.(34))+1|
00000190 29 2b 31 29 0d 00 8c 05 cd 0d 00 96 0e 79 65 61 |)+1).........yea|
000001a0 72 24 3d 22 39 33 22 0d 00 a0 23 76 65 72 24 3d |r$="93"...#ver$=|
000001b0 22 76 31 2e 30 36 61 20 28 31 39 2d 30 39 2d 22 |"v1.06a (19-09-"|
000001c0 2b 79 65 61 72 24 2b 22 29 22 0d 00 aa 10 6e 61 |+year$+")"....na|
000001d0 6d 65 24 3d 22 54 72 65 65 22 0d 00 b4 22 6d 61 |me$="Tree"..."ma|
000001e0 67 24 3d 22 a9 20 41 72 63 68 69 6d 65 64 65 73 |g$=". Archimedes|
000001f0 20 57 6f 72 6c 64 20 31 39 39 33 22 0d 00 be 2a | World 1993"...*|
00000200 70 75 72 70 6f 73 65 24 3d 22 53 68 6f 77 73 20 |purpose$="Shows |
00000210 74 72 65 65 20 64 69 73 70 6c 61 79 20 6f 66 20 |tree display of |
00000220 66 69 6c 65 73 22 0d 00 c8 10 f2 69 6e 69 74 73 |files".....inits|
00000230 70 72 69 74 65 73 0d 00 d2 22 74 61 73 6b 68 61 |prites..."taskha|
00000240 6e 64 6c 65 25 3d a4 69 6e 69 74 69 61 6c 69 73 |ndle%=.initialis|
00000250 65 28 6e 61 6d 65 24 29 0d 00 dc 23 69 63 6f 6e |e(name$)...#icon|
00000260 62 61 72 25 3d a4 69 63 6f 6e 62 61 72 28 22 21 |bar%=.iconbar("!|
00000270 22 2b 6e 61 6d 65 24 2c 2d 31 29 0d 00 e6 41 6d |"+name$,-1)...Am|
00000280 61 69 6e 6d 65 6e 75 25 3d a4 63 72 65 61 74 65 |ainmenu%=.create|
00000290 6d 65 6e 75 28 6e 61 6d 65 24 2c 33 2c 22 49 6e |menu(name$,3,"In|
000002a0 66 6f 3e 69 6e 66 6f 25 7c 4f 70 74 69 6f 6e 73 |fo>info%|Options|
000002b0 8c 7c 51 75 69 74 22 2c 31 35 30 29 0d 00 f0 55 |.|Quit",150)...U|
000002c0 73 61 76 65 6d 65 6e 75 25 3d a4 63 72 65 61 74 |savemenu%=.creat|
000002d0 65 6d 65 6e 75 28 22 53 61 76 65 22 2c 33 2c 22 |emenu("Save",3,"|
000002e0 54 65 78 74 3e 73 61 76 65 74 72 65 65 25 7c 2d |Text>savetree%|-|
000002f0 44 72 61 77 3e 73 61 76 65 64 72 61 77 25 7c 54 |Draw>savedraw%|T|
00000300 72 65 65 3e 73 61 76 65 61 73 25 22 2c 31 35 30 |ree>saveas%",150|
00000310 29 0d 00 fa 66 6d 69 73 63 6d 65 6e 75 25 3d a4 |)...fmiscmenu%=.|
00000320 63 72 65 61 74 65 6d 65 6e 75 28 22 4d 69 73 63 |createmenu("Misc|
00000330 22 2c 34 2c 22 49 6e 66 6f 3e 69 6e 66 6f 25 7c |",4,"Info>info%||
00000340 2d 53 74 61 74 69 73 74 69 63 73 3e 73 74 61 74 |-Statistics>stat|
00000350 73 25 7c 52 65 44 72 61 77 20 49 63 6f 6e 73 7c |s%|ReDraw Icons||
00000360 50 72 69 6e 74 20 74 65 78 74 3e 70 72 69 6e 74 |Print text>print|
00000370 25 22 2c 32 35 30 29 0d 01 04 7f 6f 74 68 65 72 |%",250)....other|
00000380 6d 65 6e 75 25 3d a4 63 72 65 61 74 65 6d 65 6e |menu%=.createmen|
00000390 75 28 22 54 72 65 65 22 2c 37 2c 22 2d 4d 69 73 |u("Tree",7,"-Mis|
000003a0 63 3e 6d 69 73 63 6d 65 6e 75 25 7c 2d 46 69 6c |c>miscmenu%|-Fil|
000003b0 65 3e 73 61 76 65 6d 65 6e 75 25 7c 4f 70 65 6e |e>savemenu%|Open|
000003c0 20 50 61 72 65 6e 74 7c 46 69 6c 65 20 49 6e 66 | Parent|File Inf|
000003d0 6f 3e 66 69 6e 66 6f 25 7c 2d 53 65 61 72 63 68 |o>finfo%|-Search|
000003e0 8c 7c 2d 4f 70 74 69 6f 6e 73 8c 7c 51 75 69 74 |.|-Options.|Quit|
000003f0 22 2c 32 35 30 29 0d 01 0e 34 f2 69 63 6f 6e 70 |",250)...4.iconp|
00000400 75 74 74 65 78 74 28 69 6e 66 6f 25 2c 31 31 2c |uttext(info%,11,|
00000410 a4 69 63 6f 6e 74 65 78 74 28 69 6e 66 6f 25 2c |.icontext(info%,|
00000420 31 31 29 2b 79 65 61 72 24 29 0d 01 18 1e f2 69 |11)+year$).....i|
00000430 63 6f 6e 70 75 74 74 65 78 74 28 69 6e 66 6f 25 |conputtext(info%|
00000440 2c 33 2c 76 65 72 24 29 0d 01 22 1f f2 69 63 6f |,3,ver$).."..ico|
00000450 6e 70 75 74 74 65 78 74 28 69 6e 66 6f 25 2c 30 |nputtext(info%,0|
00000460 2c 6e 61 6d 65 24 29 0d 01 2c 22 f2 69 63 6f 6e |,name$)..,".icon|
00000470 70 75 74 74 65 78 74 28 69 6e 66 6f 25 2c 31 2c |puttext(info%,1,|
00000480 70 75 72 70 6f 73 65 24 29 0d 01 36 1e f2 69 63 |purpose$)..6..ic|
00000490 6f 6e 70 75 74 74 65 78 74 28 69 6e 66 6f 25 2c |onputtext(info%,|
000004a0 38 2c 6d 61 67 24 29 0d 01 40 10 c8 99 20 26 30 |8,mag$)..@... &0|
000004b0 30 30 34 30 36 43 32 0d 01 4a 1f f2 69 63 6f 6e |00406C2..J..icon|
000004c0 70 75 74 74 65 78 74 28 74 69 74 6c 65 25 2c 31 |puttext(title%,1|
000004d0 2c 6d 61 67 24 29 0d 01 54 11 f2 64 6f 74 69 74 |,mag$)..T..dotit|
000004e0 6c 65 28 32 30 30 29 0d 01 5e 6c e7 20 a4 63 68 |le(200)..^l. .ch|
000004f0 65 63 6b 66 72 65 65 73 70 61 63 65 3c 3d 73 6d |eckfreespace<=sm|
00000500 65 67 62 6c 6f 63 6b 73 69 7a 65 25 20 8c 20 f2 |egblocksize% . .|
00000510 61 6c 65 72 74 28 22 4d 65 73 73 61 67 65 20 66 |alert("Message f|
00000520 72 6f 6d 20 54 72 65 65 22 2c 22 55 6e 61 62 6c |rom Tree","Unabl|
00000530 65 20 74 6f 20 66 69 6e 64 20 65 6e 6f 75 67 68 |e to find enough|
00000540 20 66 72 65 65 20 6d 65 6d 6f 72 79 2e 22 2c 30 | free memory.",0|
00000550 29 3a e0 0d 01 68 1c 68 65 61 70 73 69 7a 65 25 |):...h.heapsize%|
00000560 3d 73 6d 65 67 62 6c 6f 63 6b 73 69 7a 65 25 0d |=smegblocksize%.|
00000570 01 72 2d c8 99 20 22 57 69 6d 70 5f 53 6c 6f 74 |.r-.. "Wimp_Slot|
00000580 53 69 7a 65 22 2c 74 61 73 6b 73 69 7a 65 25 2b |Size",tasksize%+|
00000590 68 65 61 70 73 69 7a 65 25 2c 2d 31 0d 01 7c 27 |heapsize%,-1..|'|
000005a0 c8 99 20 22 58 4f 53 5f 48 65 61 70 22 2c 30 2c |.. "XOS_Heap",0,|
000005b0 65 6e 64 70 72 6f 67 25 2c 2c 68 65 61 70 73 69 |endprog%,,heapsi|
000005c0 7a 65 25 0d 01 86 10 62 6c 6f 63 6b 73 69 7a 65 |ze%....blocksize|
000005d0 25 3d 34 0d 01 90 2d c8 99 20 22 58 4f 53 5f 48 |%=4...-.. "XOS_H|
000005e0 65 61 70 22 2c 32 2c 65 6e 64 70 72 6f 67 25 2c |eap",2,endprog%,|
000005f0 2c 34 20 b8 20 2c 2c 69 63 6f 6e 64 61 74 61 25 |,4 . ,,icondata%|
00000600 0d 01 9a 19 e7 20 64 6f 75 62 6c 65 63 6c 69 63 |..... doubleclic|
00000610 6b 24 3c 3e 22 20 22 20 8c 0d 01 a4 1d f2 6c 6f |k$<>" " ......lo|
00000620 61 64 6d 79 66 69 6c 65 28 64 6f 75 62 6c 65 63 |admyfile(doublec|
00000630 6c 69 63 6b 24 29 0d 01 ae 05 cd 0d 01 b8 05 f5 |lick$)..........|
00000640 0d 01 c2 2a c8 99 20 26 30 30 30 34 30 30 43 37 |...*.. &000400C7|
00000650 2c 30 2c 62 6c 6f 63 6b 25 20 b8 20 72 65 61 73 |,0,block% . reas|
00000660 6f 6e 25 2c 62 6c 6f 63 6b 25 0d 01 cc 10 c8 8e |on%,block%......|
00000670 20 72 65 61 73 6f 6e 25 20 ca 0d 01 d6 07 c9 20 | reason% ...... |
00000680 30 0d 01 e0 09 f2 6e 75 6c 6c 0d 01 ea 07 c9 20 |0.....null..... |
00000690 31 0d 01 f4 14 f2 72 65 64 72 61 77 77 69 6e 64 |1.....redrawwind|
000006a0 6f 77 28 30 29 0d 01 fe 07 c9 20 32 0d 02 08 14 |ow(0)..... 2....|
000006b0 f2 6f 70 65 6e 77 69 6e 64 6f 77 28 30 2c a3 29 |.openwindow(0,.)|
000006c0 0d 02 12 07 c9 20 33 0d 02 1c 13 f2 63 6c 6f 73 |..... 3.....clos|
000006d0 65 77 69 6e 64 6f 77 28 30 29 0d 02 26 07 c9 20 |ewindow(0)..&.. |
000006e0 34 0d 02 30 11 f2 70 6f 69 6e 74 65 72 6c 65 61 |4..0..pointerlea|
000006f0 76 65 0d 02 3a 07 c9 20 35 0d 02 44 11 f2 70 6f |ve..:.. 5..D..po|
00000700 69 6e 74 65 72 65 6e 74 65 72 0d 02 4e 07 c9 20 |interenter..N.. |
00000710 36 0d 02 58 0f f2 6d 6f 75 73 65 63 6c 69 63 6b |6..X..mouseclick|
00000720 0d 02 62 07 c9 20 37 0d 02 6c 10 f2 75 73 65 72 |..b.. 7..l..user|
00000730 64 72 61 67 62 6f 78 0d 02 76 07 c9 20 38 0d 02 |dragbox..v.. 8..|
00000740 80 0f f2 6b 65 79 70 72 65 73 73 65 64 0d 02 8a |...keypressed...|
00000750 07 c9 20 39 0d 02 94 12 f2 6d 65 6e 75 73 65 6c |.. 9.....menusel|
00000760 65 63 74 69 6f 6e 0d 02 9e 08 c9 20 31 30 0d 02 |ection..... 10..|
00000770 a8 12 f2 73 63 72 6f 6c 6c 72 65 71 75 65 73 74 |...scrollrequest|
00000780 0d 02 b2 08 c9 20 31 31 0d 02 bc 0e f2 6c 6f 73 |..... 11.....los|
00000790 65 63 61 72 65 74 0d 02 c6 08 c9 20 31 32 0d 02 |ecaret..... 12..|
000007a0 d0 0e f2 67 61 69 6e 63 61 72 65 74 0d 02 da 08 |...gaincaret....|
000007b0 c9 20 31 37 0d 02 e4 10 f2 75 73 65 72 6d 65 73 |. 17.....usermes|
000007c0 73 61 67 65 0d 02 ee 08 c9 20 31 38 0d 02 f8 18 |sage..... 18....|
000007d0 f2 75 73 65 72 6d 65 73 73 61 67 65 72 65 63 6f |.usermessagereco|
000007e0 72 64 65 64 0d 03 02 08 c9 20 31 39 0d 03 0c 1b |rded..... 19....|
000007f0 f2 75 73 65 72 6d 65 73 73 61 67 65 61 63 6b 6e |.usermessageackn|
00000800 6f 77 6c 65 64 67 65 0d 03 16 05 cb 0d 03 20 0a |owledge....... .|
00000810 fd 20 65 78 69 74 0d 03 2a 26 c8 99 20 26 30 30 |. exit..*&.. &00|
00000820 30 34 30 30 44 44 2c 74 61 73 6b 68 61 6e 64 6c |0400DD,taskhandl|
00000830 65 25 2c 26 34 42 35 33 34 31 35 34 0d 03 34 05 |e%,&4B534154..4.|
00000840 e0 0d 03 3e 18 dd 20 a4 69 6e 69 74 69 61 6c 69 |...>.. .initiali|
00000850 73 65 28 6e 61 6d 65 24 29 0d 03 48 12 6d 61 78 |se(name$)..H.max|
00000860 6e 75 6d 62 65 72 3d 34 30 39 36 0d 03 52 0b 6d |number=4096..R.m|
00000870 6f 64 79 25 3d a3 0d 03 5c 0e de 20 63 6f 6c 28 |ody%=...\.. col(|
00000880 31 39 39 29 0d 03 66 11 de 20 62 6c 6f 63 6b 25 |199)..f.. block%|
00000890 20 32 30 34 38 0d 03 70 12 de 20 62 6c 6f 63 6b | 2048..p.. block|
000008a0 32 25 20 32 30 34 38 0d 03 7a 12 de 20 62 6c 6f |2% 2048..z.. blo|
000008b0 63 6b 33 25 20 32 30 34 38 0d 03 84 0d de 20 62 |ck3% 2048..... b|
000008c0 75 66 25 20 34 31 0d 03 8e 12 de 20 6d 65 73 73 |uf% 41..... mess|
000008d0 61 67 65 73 25 20 36 30 0d 03 98 11 6d 65 73 73 |ages% 60....mess|
000008e0 61 67 65 73 25 21 30 3d 31 0d 03 a2 11 6d 65 73 |ages%!0=1....mes|
000008f0 73 61 67 65 73 25 21 34 3d 38 0d 03 ac 12 6d 65 |sages%!4=8....me|
00000900 73 73 61 67 65 73 25 21 38 3d 31 34 0d 03 b6 15 |ssages%!8=14....|
00000910 6d 65 73 73 61 67 65 73 25 21 31 32 3d 26 34 30 |messages%!12=&40|
00000920 34 0d 03 c0 15 6d 65 73 73 61 67 65 73 25 21 31 |4....messages%!1|
00000930 36 3d 26 34 30 35 0d 03 ca 15 6d 65 73 73 61 67 |6=&405....messag|
00000940 65 73 25 21 32 30 3d 26 34 30 33 0d 03 d4 12 6d |es%!20=&403....m|
00000950 65 73 73 61 67 65 73 25 21 32 34 3d 32 0d 03 de |essages%!24=2...|
00000960 12 6d 65 73 73 61 67 65 73 25 21 32 38 3d 33 0d |.messages%!28=3.|
00000970 03 e8 12 6d 65 73 73 61 67 65 73 25 21 33 32 3d |...messages%!32=|
00000980 34 0d 03 f2 17 6d 65 73 73 61 67 65 73 25 21 33 |4....messages%!3|
00000990 36 3d 26 38 30 31 34 30 0d 03 fc 17 6d 65 73 73 |6=&80140....mess|
000009a0 61 67 65 73 25 21 34 30 3d 26 38 30 31 34 34 0d |ages%!40=&80144.|
000009b0 04 06 12 6d 65 73 73 61 67 65 73 25 21 34 34 3d |...messages%!44=|
000009c0 35 0d 04 10 17 6d 65 73 73 61 67 65 73 25 21 34 |5....messages%!4|
000009d0 38 3d 26 38 30 31 34 37 0d 04 1a 17 6d 65 73 73 |8=&80147....mess|
000009e0 61 67 65 73 25 21 35 32 3d 26 34 30 30 63 39 0d |ages%!52=&400c9.|
000009f0 04 24 17 6d 65 73 73 61 67 65 73 25 21 35 36 3d |.$.messages%!56=|
00000a00 26 38 30 31 34 32 0d 04 2e 3e c8 99 20 26 34 30 |&80142...>.. &40|
00000a10 30 43 30 2c 33 30 30 2c 26 34 42 35 33 34 31 35 |0C0,300,&4B53415|
00000a20 34 2c 6e 61 6d 65 24 2c 6d 65 73 73 61 67 65 73 |4,name$,messages|
00000a30 25 20 b8 20 77 69 6d 70 76 65 72 73 69 6f 6e 25 |% . wimpversion%|
00000a40 2c 74 68 25 0d 04 38 13 73 65 61 72 63 68 77 69 |,th%..8.searchwi|
00000a50 6e 64 6f 77 25 3d a3 0d 04 42 10 73 65 61 72 63 |ndow%=...B.searc|
00000a60 68 66 69 6c 65 3d b9 0d 04 4c 10 73 65 61 72 63 |hfile=...L.searc|
00000a70 68 74 79 70 65 3d a3 0d 04 56 10 61 73 63 74 25 |htype=...V.asct%|
00000a80 3d 97 28 22 54 22 29 0d 04 60 10 61 73 63 6c 25 |=.("T")..`.ascl%|
00000a90 3d 97 28 22 4c 22 29 0d 04 6a 14 63 75 72 72 65 |=.("L")..j.curre|
00000aa0 6e 74 73 65 61 72 63 68 3d 2d 31 0d 04 74 0e 63 |ntsearch=-1..t.c|
00000ab0 61 73 65 73 65 6e 73 3d a3 0d 04 7e 0a 69 69 69 |asesens=...~.iii|
00000ac0 25 3d 30 0d 04 88 0a 64 69 72 73 3d a3 0d 04 92 |%=0....dirs=....|
00000ad0 0c 65 78 69 74 20 3d 20 a3 0d 04 9c 0e 66 6c 75 |.exit = .....flu|
00000ae0 66 65 6e 64 25 3d b9 0d 04 a6 13 6d 65 6e 75 6e |fend%=.....menun|
00000af0 75 6d 62 65 72 25 20 3d 20 30 0d 04 b0 11 69 63 |umber% = 0....ic|
00000b00 6f 6e 73 70 72 69 74 65 73 3d b9 0d 04 ba 0e 68 |onsprites=.....h|
00000b10 65 61 64 69 6e 67 73 3d b9 0d 04 c4 0f 73 6f 75 |eadings=.....sou|
00000b20 72 63 65 64 69 72 3d b9 0d 04 ce 0a 64 61 74 65 |rcedir=.....date|
00000b30 3d b9 0d 04 d8 0d 70 72 65 73 73 65 64 3d a3 0d |=.....pressed=..|
00000b40 04 e2 0f 66 68 65 61 64 69 6e 67 73 3d b9 0d 04 |...fheadings=...|
00000b50 ec 10 66 73 6f 75 72 63 65 64 69 72 3d b9 0d 04 |..fsourcedir=...|
00000b60 f6 0b 66 64 61 74 65 3d b9 0d 05 00 0f 68 65 61 |..fdate=.....hea|
00000b70 64 63 6f 75 6e 74 3d 32 0d 05 0a 0e 6d 61 6b 65 |dcount=2....make|
00000b80 65 78 69 74 3d a3 0d 05 14 0f 74 6a 75 6e 63 24 |exit=.....tjunc$|
00000b90 3d 22 2b 98 22 0d 05 1e 11 65 6e 64 6a 75 6e 63 |="+."....endjunc|
00000ba0 24 3d 22 27 98 22 0d 05 28 11 6c 69 6e 65 6a 75 |$="'."..(.lineju|
00000bb0 6e 63 24 3d 22 7c 22 0d 05 32 10 66 74 6a 75 6e |nc$="|"..2.ftjun|
00000bc0 63 24 3d 22 2b 98 22 0d 05 3c 12 66 65 6e 64 6a |c$="+."..<.fendj|
00000bd0 75 6e 63 24 3d 22 27 98 22 0d 05 46 12 66 6c 69 |unc$="'."..F.fli|
00000be0 6e 65 6a 75 6e 63 24 3d 22 7c 22 0d 05 50 0a 63 |nejunc$="|"..P.c|
00000bf0 6f 6c 73 3d 37 0d 05 5a 0d 66 69 6e 63 6f 6c 73 |ols=7..Z.fincols|
00000c00 3d 37 0d 05 64 0b 72 6f 77 73 3d 35 30 0d 05 6e |=7..d.rows=50..n|
00000c10 0e 64 6f 70 72 69 6e 74 25 3d a3 0d 05 78 0c 66 |.doprint%=...x.f|
00000c20 72 6f 77 73 3d 35 30 0d 05 82 0d 63 6f 6c 75 6d |rows=50....colum|
00000c30 6e 73 3d a3 0d 05 8c 12 66 69 63 6f 6e 73 70 72 |ns=.....ficonspr|
00000c40 69 74 65 73 3d b9 0d 05 96 0d 6c 69 6e 65 6f 62 |ites=.....lineob|
00000c50 6a 3d b9 0d 05 a0 0e 66 6c 69 6e 65 6f 62 6a 3d |j=.....flineobj=|
00000c60 b9 0d 05 aa 0d 74 74 74 65 6d 70 25 3d 30 0d 05 |.....tttemp%=0..|
00000c70 b4 0a 69 6e 66 6f 3d b9 0d 05 be 0a 62 6f 78 72 |..info=.....boxr|
00000c80 3d 30 0d 05 c8 0a 62 6f 78 67 3d 30 0d 05 d2 0a |=0....boxg=0....|
00000c90 62 6f 78 62 3d 30 0d 05 dc 0b 66 62 6f 78 72 3d |boxb=0....fboxr=|
00000ca0 30 0d 05 e6 0b 66 62 6f 78 67 3d 30 0d 05 f0 0b |0....fboxg=0....|
00000cb0 66 62 6f 78 62 3d 30 0d 05 fa 23 6f 75 66 69 6c |fboxb=0...#oufil|
00000cc0 65 25 3d 8e 28 22 3c 54 72 65 65 24 44 69 72 3e |e%=.("<Tree$Dir>|
00000cd0 2e 4f 70 74 69 6f 6e 73 22 29 0d 06 04 12 e7 20 |.Options")..... |
00000ce0 6f 75 66 69 6c 65 25 3c 3e 30 20 8c 0d 06 0e 18 |oufile%<>0 .....|
00000cf0 e8 20 23 6f 75 66 69 6c 65 25 2c 68 65 61 64 63 |. #oufile%,headc|
00000d00 6f 75 6e 74 0d 06 18 17 e8 20 23 6f 75 66 69 6c |ount..... #oufil|
00000d10 65 25 2c 68 65 61 64 69 6e 67 73 0d 06 22 18 e8 |e%,headings.."..|
00000d20 20 23 6f 75 66 69 6c 65 25 2c 73 6f 75 72 63 65 | #oufile%,source|
00000d30 64 69 72 0d 06 2c 13 e8 20 23 6f 75 66 69 6c 65 |dir..,.. #oufile|
00000d40 25 2c 64 61 74 65 0d 06 36 18 e8 20 23 6f 75 66 |%,date..6.. #ouf|
00000d50 69 6c 65 25 2c 6c 69 6e 65 6a 75 6e 63 24 0d 06 |ile%,linejunc$..|
00000d60 40 15 e8 20 23 6f 75 66 69 6c 65 25 2c 74 6a 75 |@.. #oufile%,tju|
00000d70 6e 63 24 0d 06 4a 17 e8 20 23 6f 75 66 69 6c 65 |nc$..J.. #oufile|
00000d80 25 2c 65 6e 64 6a 75 6e 63 24 0d 06 54 13 e8 20 |%,endjunc$..T.. |
00000d90 23 6f 75 66 69 6c 65 25 2c 63 6f 6c 73 0d 06 5e |#oufile%,cols..^|
00000da0 1a e8 20 23 6f 75 66 69 6c 65 25 2c 69 63 6f 6e |.. #oufile%,icon|
00000db0 73 70 72 69 74 65 73 0d 06 68 13 e8 20 23 6f 75 |sprites..h.. #ou|
00000dc0 66 69 6c 65 25 2c 72 6f 77 73 0d 06 72 13 e8 20 |file%,rows..r.. |
00000dd0 23 6f 75 66 69 6c 65 25 2c 62 6f 78 72 0d 06 7c |#oufile%,boxr..||
00000de0 13 e8 20 23 6f 75 66 69 6c 65 25 2c 62 6f 78 67 |.. #oufile%,boxg|
00000df0 0d 06 86 13 e8 20 23 6f 75 66 69 6c 65 25 2c 62 |..... #oufile%,b|
00000e00 6f 78 62 0d 06 90 16 e8 20 23 6f 75 66 69 6c 65 |oxb..... #oufile|
00000e10 25 2c 6c 69 6e 65 6f 62 6a 0d 06 9a 13 e8 20 23 |%,lineobj..... #|
00000e20 6f 75 66 69 6c 65 25 2c 64 69 72 73 0d 06 a4 0e |oufile%,dirs....|
00000e30 d9 20 23 6f 75 66 69 6c 65 25 0d 06 ae 16 66 68 |. #oufile%....fh|
00000e40 65 61 64 69 6e 67 73 3d 68 65 61 64 69 6e 67 73 |eadings=headings|
00000e50 0d 06 b8 18 66 73 6f 75 72 63 65 64 69 72 3d 73 |....fsourcedir=s|
00000e60 6f 75 72 63 65 64 69 72 0d 06 c2 0e 66 64 61 74 |ourcedir....fdat|
00000e70 65 3d 64 61 74 65 0d 06 cc 18 66 6c 69 6e 65 6a |e=date....flinej|
00000e80 75 6e 63 24 3d 6c 69 6e 65 6a 75 6e 63 24 0d 06 |unc$=linejunc$..|
00000e90 d6 12 66 74 6a 75 6e 63 24 3d 74 6a 75 6e 63 24 |..ftjunc$=tjunc$|
00000ea0 0d 06 e0 16 66 65 6e 64 6a 75 6e 63 24 3d 65 6e |....fendjunc$=en|
00000eb0 64 6a 75 6e 63 24 0d 06 ea 10 66 69 6e 63 6f 6c |djunc$....fincol|
00000ec0 73 3d 63 6f 6c 73 0d 06 f4 1c 66 69 63 6f 6e 73 |s=cols....ficons|
00000ed0 70 72 69 74 65 73 3d 69 63 6f 6e 73 70 72 69 74 |prites=iconsprit|
00000ee0 65 73 0d 06 fe 0e 66 72 6f 77 73 3d 72 6f 77 73 |es....frows=rows|
00000ef0 0d 07 08 0e 66 62 6f 78 72 3d 62 6f 78 72 0d 07 |....fboxr=boxr..|
00000f00 12 0e 66 62 6f 78 67 3d 62 6f 78 67 0d 07 1c 0e |..fboxg=boxg....|
00000f10 66 62 6f 78 62 3d 62 6f 78 62 0d 07 26 14 66 6c |fboxb=boxb..&.fl|
00000f20 69 6e 65 6f 62 6a 3d 6c 69 6e 65 6f 62 6a 0d 07 |ineobj=lineobj..|
00000f30 30 0e 66 64 69 72 73 3d 64 69 72 73 0d 07 3a 05 |0.fdirs=dirs..:.|
00000f40 cc 0d 07 44 10 f2 64 65 66 61 75 6c 74 73 28 a3 |...D..defaults(.|
00000f50 29 0d 07 4e 05 cd 0d 07 58 11 de 20 77 69 6e 25 |)..N....X.. win%|
00000f60 20 34 30 39 36 2a 36 0d 07 62 11 de 20 69 6e 64 | 4096*6..b.. ind|
00000f70 25 20 34 30 39 36 2a 36 0d 07 6c 15 de 20 6d 61 |% 4096*6..l.. ma|
00000f80 69 6e 77 69 6e 64 6f 77 25 20 35 31 32 0d 07 76 |inwindow% 512..v|
00000f90 12 de 20 69 6e 64 6d 61 69 6e 25 20 35 31 32 0d |.. indmain% 512.|
00000fa0 07 80 28 c8 99 20 26 30 30 30 34 30 30 44 39 2c |..(.. &000400D9,|
00000fb0 2c 22 3c 54 72 65 65 24 44 69 72 3e 2e 54 65 6d |,"<Tree$Dir>.Tem|
00000fc0 70 6c 61 74 65 73 22 0d 07 8a 3a c8 99 20 26 30 |plates"...:.. &0|
00000fd0 30 30 34 30 30 44 42 2c 2c 77 69 6e 25 2c 69 6e |00400DB,,win%,in|
00000fe0 64 25 2c 69 6e 64 25 2b 34 30 39 36 2c 2d 31 2c |d%,ind%+4096,-1,|
00000ff0 22 69 6e 66 6f 22 2c 30 20 b8 20 2c 2c 69 6e 64 |"info",0 . ,,ind|
00001000 25 0d 07 94 13 77 69 6e 25 21 36 34 3d 73 70 72 |%....win%!64=spr|
00001010 69 74 65 25 0d 07 9e 1e c8 99 20 26 30 30 30 34 |ite%...... &0004|
00001020 30 30 43 31 2c 2c 77 69 6e 25 20 b8 20 69 6e 66 |00C1,,win% . inf|
00001030 6f 25 0d 07 a8 3c c8 99 20 26 30 30 30 34 30 30 |o%...<.. &000400|
00001040 44 42 2c 2c 77 69 6e 25 2c 69 6e 64 25 2c 69 6e |DB,,win%,ind%,in|
00001050 64 25 2b 34 30 39 36 2c 2d 31 2c 22 73 61 76 65 |d%+4096,-1,"save|
00001060 61 73 22 2c 30 20 b8 20 2c 2c 69 6e 64 25 0d 07 |as",0 . ,,ind%..|
00001070 b2 20 c8 99 20 26 30 30 30 34 30 30 43 31 2c 2c |. .. &000400C1,,|
00001080 77 69 6e 25 20 b8 20 73 61 76 65 61 73 25 0d 07 |win% . saveas%..|
00001090 bc 3e c8 99 20 26 30 30 30 34 30 30 44 42 2c 2c |.>.. &000400DB,,|
000010a0 77 69 6e 25 2c 69 6e 64 25 2c 69 6e 64 25 2b 34 |win%,ind%,ind%+4|
000010b0 30 39 36 2c 2d 31 2c 22 73 61 76 65 74 72 65 65 |096,-1,"savetree|
000010c0 22 2c 30 20 b8 20 2c 2c 69 6e 64 25 0d 07 c6 22 |",0 . ,,ind%..."|
000010d0 c8 99 20 26 30 30 30 34 30 30 43 31 2c 2c 77 69 |.. &000400C1,,wi|
000010e0 6e 25 20 b8 20 73 61 76 65 74 72 65 65 25 0d 07 |n% . savetree%..|
000010f0 d0 4d c8 99 20 26 30 30 30 34 30 30 44 42 2c 2c |.M.. &000400DB,,|
00001100 6d 61 69 6e 77 69 6e 64 6f 77 25 2c 69 6e 64 6d |mainwindow%,indm|
00001110 61 69 6e 25 2c 69 6e 64 6d 61 69 6e 25 2b 34 30 |ain%,indmain%+40|
00001120 39 36 2c 2d 31 2c 22 6d 61 69 6e 22 2c 30 20 b8 |96,-1,"main",0 .|
00001130 20 2c 2c 69 6e 64 6d 61 69 6e 25 0d 07 da 25 c8 | ,,indmain%...%.|
00001140 99 20 26 30 30 30 34 30 30 43 31 2c 2c 6d 61 69 |. &000400C1,,mai|
00001150 6e 77 69 6e 64 6f 77 25 20 b8 20 6d 61 69 6e 25 |nwindow% . main%|
00001160 0d 07 e4 3a c8 99 20 26 30 30 30 34 30 30 44 42 |...:.. &000400DB|
00001170 2c 2c 77 69 6e 25 2c 69 6e 64 25 2c 69 6e 64 25 |,,win%,ind%,ind%|
00001180 2b 34 30 39 36 2c 2d 31 2c 22 70 61 6e 65 22 2c |+4096,-1,"pane",|
00001190 30 20 b8 20 2c 2c 69 6e 64 25 0d 07 ee 13 77 69 |0 . ,,ind%....wi|
000011a0 6e 25 21 36 34 3d 73 70 72 69 74 65 25 0d 07 f8 |n%!64=sprite%...|
000011b0 1e c8 99 20 26 30 30 30 34 30 30 43 31 2c 2c 77 |... &000400C1,,w|
000011c0 69 6e 25 20 b8 20 70 61 6e 65 25 0d 08 02 3d c8 |in% . pane%...=.|
000011d0 99 20 26 30 30 30 34 30 30 44 42 2c 2c 77 69 6e |. &000400DB,,win|
000011e0 25 2c 69 6e 64 25 2c 69 6e 64 25 2b 34 30 39 36 |%,ind%,ind%+4096|
000011f0 2c 2d 31 2c 22 6f 70 74 69 6f 6e 73 22 2c 30 20 |,-1,"options",0 |
00001200 b8 20 2c 2c 69 6e 64 25 0d 08 0c 21 c8 99 20 26 |. ,,ind%...!.. &|
00001210 30 30 30 34 30 30 43 31 2c 2c 77 69 6e 25 20 b8 |000400C1,,win% .|
00001220 20 6f 70 74 69 6f 6e 73 25 0d 08 16 3b c8 99 20 | options%...;.. |
00001230 26 30 30 30 34 30 30 44 42 2c 2c 77 69 6e 25 2c |&000400DB,,win%,|
00001240 69 6e 64 25 2c 69 6e 64 25 2b 34 30 39 36 2c 2d |ind%,ind%+4096,-|
00001250 31 2c 22 73 74 61 74 73 22 2c 30 20 b8 20 2c 2c |1,"stats",0 . ,,|
00001260 69 6e 64 25 0d 08 20 1f c8 99 20 26 30 30 30 34 |ind%.. ... &0004|
00001270 30 30 43 31 2c 2c 77 69 6e 25 20 b8 20 73 74 61 |00C1,,win% . sta|
00001280 74 73 25 0d 08 2a 3e c8 99 20 26 30 30 30 34 30 |ts%..*>.. &00040|
00001290 30 44 42 2c 2c 77 69 6e 25 2c 69 6e 64 25 2c 69 |0DB,,win%,ind%,i|
000012a0 6e 64 25 2b 34 30 39 36 2c 2d 31 2c 22 73 61 76 |nd%+4096,-1,"sav|
000012b0 65 64 72 61 77 22 2c 30 20 b8 20 2c 2c 69 6e 64 |edraw",0 . ,,ind|
000012c0 25 0d 08 34 13 77 69 6e 25 21 36 34 3d 73 70 72 |%..4.win%!64=spr|
000012d0 69 74 65 25 0d 08 3e 22 c8 99 20 26 30 30 30 34 |ite%..>".. &0004|
000012e0 30 30 43 31 2c 2c 77 69 6e 25 20 b8 20 73 61 76 |00C1,,win% . sav|
000012f0 65 64 72 61 77 25 0d 08 48 3e c8 99 20 26 30 30 |edraw%..H>.. &00|
00001300 30 34 30 30 44 42 2c 2c 77 69 6e 25 2c 69 6e 64 |0400DB,,win%,ind|
00001310 25 2c 69 6e 64 25 2b 34 30 39 36 2c 2d 31 2c 22 |%,ind%+4096,-1,"|
00001320 66 69 6c 65 69 6e 66 6f 22 2c 30 20 b8 20 2c 2c |fileinfo",0 . ,,|
00001330 69 6e 64 25 0d 08 52 1f c8 99 20 26 30 30 30 34 |ind%..R... &0004|
00001340 30 30 43 31 2c 2c 77 69 6e 25 20 b8 20 66 69 6e |00C1,,win% . fin|
00001350 66 6f 25 0d 08 5c 3f c8 99 20 26 30 30 30 34 30 |fo%..\?.. &00040|
00001360 30 44 42 2c 2c 77 69 6e 25 2c 69 6e 64 25 2c 69 |0DB,,win%,ind%,i|
00001370 6e 64 25 2b 34 30 39 36 2c 2d 31 2c 22 70 72 69 |nd%+4096,-1,"pri|
00001380 6e 74 74 65 78 74 22 2c 30 20 b8 20 2c 2c 69 6e |nttext",0 . ,,in|
00001390 64 25 0d 08 66 13 77 69 6e 25 21 36 34 3d 73 70 |d%..f.win%!64=sp|
000013a0 72 69 74 65 25 0d 08 70 1f c8 99 20 26 30 30 30 |rite%..p... &000|
000013b0 34 30 30 43 31 2c 2c 77 69 6e 25 20 b8 20 70 72 |400C1,,win% . pr|
000013c0 69 6e 74 25 0d 08 7a 39 c8 99 20 26 30 30 30 34 |int%..z9.. &0004|
000013d0 30 30 44 42 2c 2c 77 69 6e 25 2c 69 6e 64 25 2c |00DB,,win%,ind%,|
000013e0 69 6e 64 25 2b 34 30 39 36 2c 2d 31 2c 22 64 69 |ind%+4096,-1,"di|
000013f0 73 22 2c 30 20 b8 20 2c 2c 69 6e 64 25 0d 08 84 |s",0 . ,,ind%...|
00001400 23 c8 99 20 26 30 30 30 34 30 30 43 31 2c 2c 77 |#.. &000400C1,,w|
00001410 69 6e 25 20 b8 20 6d 79 63 6f 6e 74 72 6f 6c 25 |in% . mycontrol%|
00001420 0d 08 8e 3b c8 99 20 26 30 30 30 34 30 30 44 42 |...;.. &000400DB|
00001430 2c 2c 77 69 6e 25 2c 69 6e 64 25 2c 69 6e 64 25 |,,win%,ind%,ind%|
00001440 2b 34 30 39 36 2c 2d 31 2c 22 74 69 74 6c 65 22 |+4096,-1,"title"|
00001450 2c 30 20 b8 20 2c 2c 69 6e 64 25 0d 08 98 13 77 |,0 . ,,ind%....w|
00001460 69 6e 25 21 36 34 3d 73 70 72 69 74 65 25 0d 08 |in%!64=sprite%..|
00001470 a2 1f c8 99 20 26 30 30 30 34 30 30 43 31 2c 2c |.... &000400C1,,|
00001480 77 69 6e 25 20 b8 20 74 69 74 6c 65 25 0d 08 ac |win% . title%...|
00001490 3c c8 99 20 26 30 30 30 34 30 30 44 42 2c 2c 77 |<.. &000400DB,,w|
000014a0 69 6e 25 2c 69 6e 64 25 2c 69 6e 64 25 2b 34 30 |in%,ind%,ind%+40|
000014b0 39 36 2c 2d 31 2c 22 73 65 61 72 63 68 22 2c 30 |96,-1,"search",0|
000014c0 20 b8 20 2c 2c 69 6e 64 25 0d 08 b6 13 77 69 6e | . ,,ind%....win|
000014d0 25 21 36 34 3d 73 70 72 69 74 65 25 0d 08 c0 20 |%!64=sprite%... |
000014e0 c8 99 20 26 30 30 30 34 30 30 43 31 2c 2c 77 69 |.. &000400C1,,wi|
000014f0 6e 25 20 b8 20 73 65 61 72 63 68 25 0d 08 ca 10 |n% . search%....|
00001500 c8 99 20 26 30 30 30 34 30 30 44 41 0d 08 d4 13 |.. &000400DA....|
00001510 73 6c 69 64 65 77 69 6e 64 6f 77 25 3d 2d 31 0d |slidewindow%=-1.|
00001520 08 de 11 73 6c 69 64 65 69 63 6f 6e 25 3d 2d 31 |...slideicon%=-1|
00001530 0d 08 e8 11 73 6c 69 64 65 73 69 7a 65 25 3d 2d |....slidesize%=-|
00001540 31 0d 08 f2 10 6f 6c 64 77 6f 72 6b 78 25 3d 2d |1....oldworkx%=-|
00001550 31 0d 08 fc 0e 72 72 61 6e 67 65 25 3d 2d 31 0d |1....rrange%=-1.|
00001560 09 06 10 73 69 7a 65 6d 61 78 78 25 3d 2d 31 0d |...sizemaxx%=-1.|
00001570 09 10 10 73 69 7a 65 6d 69 6e 78 25 3d 2d 31 0d |...sizeminx%=-1.|
00001580 09 1a 08 3d 74 68 25 0d 09 24 1d dd 20 a4 69 63 |...=th%..$.. .ic|
00001590 6f 6e 62 61 72 28 53 70 72 69 74 65 24 2c 73 69 |onbar(Sprite$,si|
000015a0 64 65 25 29 0d 09 2e 12 62 6c 6f 63 6b 25 21 30 |de%)....block%!0|
000015b0 3d 73 69 64 65 25 0d 09 38 0e 62 6c 6f 63 6b 25 |=side%..8.block%|
000015c0 21 34 3d 30 0d 09 42 0e 62 6c 6f 63 6b 25 21 38 |!4=0..B.block%!8|
000015d0 3d 30 0d 09 4c 12 62 6c 6f 63 6b 25 21 31 32 3d |=0..L.block%!12=|
000015e0 32 39 2a 32 0d 09 56 12 62 6c 6f 63 6b 25 21 31 |29*2..V.block%!1|
000015f0 36 3d 34 30 2a 32 0d 09 60 13 62 6c 6f 63 6b 25 |6=40*2..`.block%|
00001600 21 32 30 3d 26 33 30 30 32 0d 09 6a 18 24 28 62 |!20=&3002..j.$(b|
00001610 6c 6f 63 6b 25 2b 32 34 29 3d 53 70 72 69 74 65 |lock%+24)=Sprite|
00001620 24 0d 09 74 20 c8 99 20 26 30 30 30 34 30 30 43 |$..t .. &000400C|
00001630 32 2c 2c 62 6c 6f 63 6b 25 20 b8 20 69 63 6f 6e |2,,block% . icon|
00001640 25 0d 09 7e 0a 3d 69 63 6f 6e 25 0d 09 88 0b dd |%..~.=icon%.....|
00001650 20 f2 6e 75 6c 6c 0d 09 92 13 c8 8e 20 73 6c 69 | .null...... sli|
00001660 64 65 69 63 6f 6e 25 20 ca 0d 09 9c 08 c9 20 32 |deicon% ...... 2|
00001670 38 0d 09 a6 36 f2 64 6f 73 6c 69 64 65 28 73 6c |8...6.doslide(sl|
00001680 69 64 65 77 69 6e 64 6f 77 25 2c 73 6c 69 64 65 |idewindow%,slide|
00001690 69 63 6f 6e 25 2c 73 6c 69 64 65 73 69 7a 65 25 |icon%,slidesize%|
000016a0 2c b9 2c 32 35 35 29 0d 09 b0 08 c9 20 33 31 0d |,.,255)..... 31.|
000016b0 09 ba 36 f2 64 6f 73 6c 69 64 65 28 73 6c 69 64 |..6.doslide(slid|
000016c0 65 77 69 6e 64 6f 77 25 2c 73 6c 69 64 65 69 63 |ewindow%,slideic|
000016d0 6f 6e 25 2c 73 6c 69 64 65 73 69 7a 65 25 2c b9 |on%,slidesize%,.|
000016e0 2c 32 35 35 29 0d 09 c4 08 c9 20 33 34 0d 09 ce |,255)..... 34...|
000016f0 36 f2 64 6f 73 6c 69 64 65 28 73 6c 69 64 65 77 |6.doslide(slidew|
00001700 69 6e 64 6f 77 25 2c 73 6c 69 64 65 69 63 6f 6e |indow%,slideicon|
00001710 25 2c 73 6c 69 64 65 73 69 7a 65 25 2c b9 2c 32 |%,slidesize%,.,2|
00001720 35 35 29 0d 09 d8 05 cb 0d 09 e2 05 e1 0d 09 ec |55).............|
00001730 1a dd 20 f2 72 65 64 72 61 77 77 69 6e 64 6f 77 |.. .redrawwindow|
00001740 28 77 69 6e 64 25 29 0d 09 f6 0f c8 99 26 30 30 |(wind%)......&00|
00001750 30 34 30 36 43 30 0d 0a 00 10 e7 20 77 69 6e 64 |0406C0..... wind|
00001760 25 3c 3e 30 20 8c 0d 0a 0a 12 62 6c 6f 63 6b 25 |%<>0 .....block%|
00001770 21 30 3d 77 69 6e 64 25 0d 0a 14 05 cd 0d 0a 1e |!0=wind%........|
00001780 1f c8 99 20 26 30 30 30 34 30 30 43 38 2c 2c 62 |... &000400C8,,b|
00001790 6c 6f 63 6b 25 20 b8 20 66 6c 61 67 0d 0a 28 0b |lock% . flag..(.|
000017a0 c8 95 20 66 6c 61 67 0d 0a 32 3d e7 20 62 6c 6f |.. flag..2=. blo|
000017b0 63 6b 25 21 30 3d 6d 61 69 6e 25 20 8c 20 f2 64 |ck%!0=main% . .d|
000017c0 6f 6c 69 6e 65 73 28 62 6c 6f 63 6b 25 21 38 2c |olines(block%!8,|
000017d0 62 6c 6f 63 6b 25 21 31 36 2c 62 6c 6f 63 6b 25 |block%!16,block%|
000017e0 21 32 34 29 0d 0a 3c 35 e7 20 62 6c 6f 63 6b 25 |!24)..<5. block%|
000017f0 21 30 3d 70 61 6e 65 25 20 8c 20 f2 64 6f 63 6f |!0=pane% . .doco|
00001800 6c 6f 75 72 62 6f 78 28 62 6f 78 72 2c 62 6f 78 |lourbox(boxr,box|
00001810 67 2c 62 6f 78 62 2c a3 29 0d 0a 46 1f c8 99 20 |g,boxb,.)..F... |
00001820 26 30 30 30 34 30 30 43 41 2c 2c 62 6c 6f 63 6b |&000400CA,,block|
00001830 25 20 b8 20 66 6c 61 67 0d 0a 50 05 ce 0d 0a 5a |% . flag..P....Z|
00001840 0f c8 99 26 30 30 30 34 30 36 43 32 0d 0a 64 05 |...&000406C2..d.|
00001850 e1 0d 0a 6e 1e dd 20 f2 6f 70 65 6e 77 69 6e 64 |...n.. .openwind|
00001860 6f 77 28 77 69 6e 64 25 2c 73 74 61 67 25 29 0d |ow(wind%,stag%).|
00001870 0a 78 10 e7 20 77 69 6e 64 25 3c 3e 30 20 8c 0d |.x.. wind%<>0 ..|
00001880 0a 82 12 62 6c 6f 63 6b 25 21 30 3d 77 69 6e 64 |...block%!0=wind|
00001890 25 0d 0a 8c 18 c8 99 20 26 30 30 30 34 30 30 43 |%...... &000400C|
000018a0 42 2c 2c 62 6c 6f 63 6b 25 0d 0a 96 05 cd 0d 0a |B,,block%.......|
000018b0 a0 26 e7 20 62 6c 6f 63 6b 25 21 30 3d 6d 61 69 |.&. block%!0=mai|
000018c0 6e 25 20 80 20 73 65 61 72 63 68 77 69 6e 64 6f |n% . searchwindo|
000018d0 77 25 20 8c 0d 0a aa 16 6d 61 69 6e 6d 69 6e 78 |w% .....mainminx|
000018e0 25 3d 62 6c 6f 63 6b 25 21 34 0d 0a b4 16 6d 61 |%=block%!4....ma|
000018f0 69 6e 6d 69 6e 79 25 3d 62 6c 6f 63 6b 25 21 38 |inminy%=block%!8|
00001900 0d 0a be 17 6d 61 69 6e 6d 61 78 78 25 3d 62 6c |....mainmaxx%=bl|
00001910 6f 63 6b 25 21 31 32 0d 0a c8 17 6d 61 69 6e 6d |ock%!12....mainm|
00001920 61 78 79 25 3d 62 6c 6f 63 6b 25 21 31 36 0d 0a |axy%=block%!16..|
00001930 d2 1a 6d 61 69 6e 73 63 72 6f 6c 6c 78 25 3d 62 |..mainscrollx%=b|
00001940 6c 6f 63 6b 25 21 32 30 0d 0a dc 1a 6d 61 69 6e |lock%!20....main|
00001950 73 63 72 6f 6c 6c 79 25 3d 62 6c 6f 63 6b 25 21 |scrolly%=block%!|
00001960 32 34 0d 0a e6 17 62 61 63 6b 68 61 6e 64 25 3d |24....backhand%=|
00001970 62 6c 6f 63 6b 25 21 32 38 0d 0a f0 14 62 6c 6f |block%!28....blo|
00001980 63 6b 25 21 30 3d 73 65 61 72 63 68 25 0d 0a fa |ck%!0=search%...|
00001990 15 c8 99 20 26 34 30 30 63 62 2c 2c 62 6c 6f 63 |... &400cb,,bloc|
000019a0 6b 25 0d 0b 04 14 62 6c 6f 63 6b 25 21 30 3d 73 |k%....block%!0=s|
000019b0 65 61 72 63 68 25 0d 0b 0e 1a 62 6c 6f 63 6b 25 |earch%....block%|
000019c0 21 34 3d 6d 61 69 6e 6d 69 6e 78 25 2d 33 31 38 |!4=mainminx%-318|
000019d0 0d 0b 18 1a 62 6c 6f 63 6b 25 21 38 3d 6d 61 69 |....block%!8=mai|
000019e0 6e 6d 61 78 79 25 2d 36 33 36 0d 0b 22 20 62 6c |nmaxy%-636.." bl|
000019f0 6f 63 6b 25 21 31 32 3d 6d 61 69 6e 6d 61 78 78 |ock%!12=mainmaxx|
00001a00 25 2b 62 6c 6f 63 6b 25 21 34 0d 0b 2c 17 62 6c |%+block%!4..,.bl|
00001a10 6f 63 6b 25 21 31 36 3d 6d 61 69 6e 6d 61 78 79 |ock%!16=mainmaxy|
00001a20 25 0d 0b 36 17 62 6c 6f 63 6b 25 21 32 38 3d 62 |%..6.block%!28=b|
00001a30 61 63 6b 68 61 6e 64 25 0d 0b 40 15 c8 99 20 26 |ackhand%..@... &|
00001a40 34 30 30 43 35 2c 2c 62 6c 6f 63 6b 25 0d 0b 4a |400C5,,block%..J|
00001a50 12 62 6c 6f 63 6b 25 21 30 3d 6d 61 69 6e 25 0d |.block%!0=main%.|
00001a60 0b 54 16 62 6c 6f 63 6b 25 21 34 3d 6d 61 69 6e |.T.block%!4=main|
00001a70 6d 69 6e 78 25 0d 0b 5e 16 62 6c 6f 63 6b 25 21 |minx%..^.block%!|
00001a80 38 3d 6d 61 69 6e 6d 69 6e 79 25 0d 0b 68 17 62 |8=mainminy%..h.b|
00001a90 6c 6f 63 6b 25 21 31 32 3d 6d 61 69 6e 6d 61 78 |lock%!12=mainmax|
00001aa0 78 25 0d 0b 72 17 62 6c 6f 63 6b 25 21 31 36 3d |x%..r.block%!16=|
00001ab0 6d 61 69 6e 6d 61 78 79 25 0d 0b 7c 1a 62 6c 6f |mainmaxy%..|.blo|
00001ac0 63 6b 25 21 32 30 3d 6d 61 69 6e 73 63 72 6f 6c |ck%!20=mainscrol|
00001ad0 6c 78 25 0d 0b 86 1a 62 6c 6f 63 6b 25 21 32 34 |lx%....block%!24|
00001ae0 3d 6d 61 69 6e 73 63 72 6f 6c 6c 79 25 0d 0b 90 |=mainscrolly%...|
00001af0 15 62 6c 6f 63 6b 25 21 32 38 3d 73 65 61 72 63 |.block%!28=searc|
00001b00 68 25 0d 0b 9a 05 cd 0d 0b a4 19 e7 20 62 6c 6f |h%.......... blo|
00001b10 63 6b 25 21 30 3d 6f 70 74 69 6f 6e 73 25 20 8c |ck%!0=options% .|
00001b20 0d 0b ae 16 6d 61 69 6e 6d 69 6e 78 25 3d 62 6c |....mainminx%=bl|
00001b30 6f 63 6b 25 21 34 0d 0b b8 16 6d 61 69 6e 6d 69 |ock%!4....mainmi|
00001b40 6e 79 25 3d 62 6c 6f 63 6b 25 21 38 0d 0b c2 17 |ny%=block%!8....|
00001b50 6d 61 69 6e 6d 61 78 78 25 3d 62 6c 6f 63 6b 25 |mainmaxx%=block%|
00001b60 21 31 32 0d 0b cc 17 6d 61 69 6e 6d 61 78 79 25 |!12....mainmaxy%|
00001b70 3d 62 6c 6f 63 6b 25 21 31 36 0d 0b d6 1a 6d 61 |=block%!16....ma|
00001b80 69 6e 73 63 72 6f 6c 6c 78 25 3d 62 6c 6f 63 6b |inscrollx%=block|
00001b90 25 21 32 30 0d 0b e0 1a 6d 61 69 6e 73 63 72 6f |%!20....mainscro|
00001ba0 6c 6c 79 25 3d 62 6c 6f 63 6b 25 21 32 34 0d 0b |lly%=block%!24..|
00001bb0 ea 17 62 61 63 6b 68 61 6e 64 25 3d 62 6c 6f 63 |..backhand%=bloc|
00001bc0 6b 25 21 32 38 0d 0b f4 12 62 6c 6f 63 6b 25 21 |k%!28....block%!|
00001bd0 30 3d 70 61 6e 65 25 0d 0b fe 15 c8 99 20 26 34 |0=pane%...... &4|
00001be0 30 30 63 62 2c 2c 62 6c 6f 63 6b 25 0d 0c 08 12 |00cb,,block%....|
00001bf0 62 6c 6f 63 6b 25 21 30 3d 70 61 6e 65 25 0d 0c |block%!0=pane%..|
00001c00 12 19 62 6c 6f 63 6b 25 21 34 3d 6d 61 69 6e 6d |..block%!4=mainm|
00001c10 69 6e 78 25 2b 32 30 0d 0c 1c 19 62 6c 6f 63 6b |inx%+20....block|
00001c20 25 21 38 3d 6d 61 69 6e 6d 69 6e 79 25 2b 31 38 |%!8=mainminy%+18|
00001c30 0d 0c 26 20 62 6c 6f 63 6b 25 21 31 32 3d 6d 61 |..& block%!12=ma|
00001c40 69 6e 6d 61 78 78 25 2b 62 6c 6f 63 6b 25 21 34 |inmaxx%+block%!4|
00001c50 0d 0c 30 1a 62 6c 6f 63 6b 25 21 31 36 3d 6d 61 |..0.block%!16=ma|
00001c60 69 6e 6d 61 78 79 25 2d 31 38 0d 0c 3a 17 62 6c |inmaxy%-18..:.bl|
00001c70 6f 63 6b 25 21 32 38 3d 62 61 63 6b 68 61 6e 64 |ock%!28=backhand|
00001c80 25 0d 0c 44 15 c8 99 20 26 34 30 30 43 35 2c 2c |%..D... &400C5,,|
00001c90 62 6c 6f 63 6b 25 0d 0c 4e 15 62 6c 6f 63 6b 25 |block%..N.block%|
00001ca0 21 30 3d 6f 70 74 69 6f 6e 73 25 0d 0c 58 16 62 |!0=options%..X.b|
00001cb0 6c 6f 63 6b 25 21 34 3d 6d 61 69 6e 6d 69 6e 78 |lock%!4=mainminx|
00001cc0 25 0d 0c 62 16 62 6c 6f 63 6b 25 21 38 3d 6d 61 |%..b.block%!8=ma|
00001cd0 69 6e 6d 69 6e 79 25 0d 0c 6c 17 62 6c 6f 63 6b |inminy%..l.block|
00001ce0 25 21 31 32 3d 6d 61 69 6e 6d 61 78 78 25 0d 0c |%!12=mainmaxx%..|
00001cf0 76 17 62 6c 6f 63 6b 25 21 31 36 3d 6d 61 69 6e |v.block%!16=main|
00001d00 6d 61 78 79 25 0d 0c 80 1a 62 6c 6f 63 6b 25 21 |maxy%....block%!|
00001d10 32 30 3d 6d 61 69 6e 73 63 72 6f 6c 6c 78 25 0d |20=mainscrollx%.|
00001d20 0c 8a 1a 62 6c 6f 63 6b 25 21 32 34 3d 6d 61 69 |...block%!24=mai|
00001d30 6e 73 63 72 6f 6c 6c 79 25 0d 0c 94 13 62 6c 6f |nscrolly%....blo|
00001d40 63 6b 25 21 32 38 3d 70 61 6e 65 25 0d 0c 9e 05 |ck%!28=pane%....|
00001d50 cd 0d 0c a8 18 c8 99 20 26 30 30 30 34 30 30 43 |....... &000400C|
00001d60 35 2c 2c 62 6c 6f 63 6b 25 0d 0c b2 05 e1 0d 0c |5,,block%.......|
00001d70 bc 19 dd 20 f2 63 6c 6f 73 65 77 69 6e 64 6f 77 |... .closewindow|
00001d80 28 77 69 6e 64 25 29 0d 0c c6 10 e7 20 77 69 6e |(wind%)..... win|
00001d90 64 25 3c 3e 30 20 8c 0d 0c d0 14 20 20 62 6c 6f |d%<>0 ..... blo|
00001da0 63 6b 25 21 30 3d 77 69 6e 64 25 0d 0c da 05 cd |ck%!0=wind%.....|
00001db0 0d 0c e4 19 e7 20 62 6c 6f 63 6b 25 21 30 3d 6f |..... block%!0=o|
00001dc0 70 74 69 6f 6e 73 25 20 8c 0d 0c ee 14 20 20 62 |ptions% ..... b|
00001dd0 6c 6f 63 6b 25 21 30 3d 70 61 6e 65 25 0d 0c f8 |lock%!0=pane%...|
00001de0 1a 20 20 c8 99 20 26 30 30 30 34 30 30 43 36 2c |. .. &000400C6,|
00001df0 2c 62 6c 6f 63 6b 25 0d 0d 02 17 20 20 62 6c 6f |,block%.... blo|
00001e00 63 6b 25 21 30 3d 6f 70 74 69 6f 6e 73 25 0d 0d |ck%!0=options%..|
00001e10 0c 05 cd 0d 0d 16 1e e7 20 62 6c 6f 63 6b 25 21 |........ block%!|
00001e20 30 3d 6d 61 69 6e 25 20 80 20 6d 6f 64 79 25 20 |0=main% . mody% |
00001e30 8c 0d 0d 20 17 20 20 70 72 65 73 73 25 3d a4 6d |... . press%=.m|
00001e40 79 63 6f 6e 74 72 6f 6c 0d 0d 2a 19 20 20 62 6c |ycontrol..*. bl|
00001e50 6f 63 6b 25 21 30 3d 6d 79 63 6f 6e 74 72 6f 6c |ock%!0=mycontrol|
00001e60 25 0d 0d 34 1a 20 20 c8 99 20 26 30 30 30 34 30 |%..4. .. &00040|
00001e70 30 43 36 2c 2c 62 6c 6f 63 6b 25 0d 0d 3e 14 20 |0C6,,block%..>. |
00001e80 20 62 6c 6f 63 6b 25 21 30 3d 6d 61 69 6e 25 0d | block%!0=main%.|
00001e90 0d 48 11 20 20 c8 8e 20 70 72 65 73 73 25 20 ca |.H. .. press% .|
00001ea0 0d 0d 52 0b 20 20 20 20 c9 20 30 0d 0d 5c 1d 20 |..R. . 0..\. |
00001eb0 20 20 20 20 20 e7 20 6d 61 6b 65 65 78 69 74 20 | . makeexit |
00001ec0 8c 20 65 78 69 74 3d b9 0d 0d 66 46 20 20 20 20 |. exit=...fF |
00001ed0 20 20 c8 99 20 22 58 4f 53 5f 48 65 61 70 22 2c | .. "XOS_Heap",|
00001ee0 34 2c 65 6e 64 70 72 6f 67 25 2c 69 63 6f 6e 64 |4,endprog%,icond|
00001ef0 61 74 61 25 2c 2d 62 6c 6f 63 6b 73 69 7a 65 25 |ata%,-blocksize%|
00001f00 20 b8 20 2c 2c 69 63 6f 6e 64 61 74 61 25 0d 0d | . ,,icondata%..|
00001f10 70 3d 20 20 20 20 20 20 c8 99 20 22 58 4f 53 5f |p= .. "XOS_|
00001f20 48 65 61 70 22 2c 35 2c 65 6e 64 70 72 6f 67 25 |Heap",5,endprog%|
00001f30 2c 2c 2d 68 65 61 70 73 69 7a 65 25 2b 73 6d 65 |,,-heapsize%+sme|
00001f40 67 62 6c 6f 63 6b 73 69 7a 65 25 0d 0d 7a 22 20 |gblocksize%..z" |
00001f50 20 20 20 20 20 68 65 61 70 73 69 7a 65 25 3d 73 | heapsize%=s|
00001f60 6d 65 67 62 6c 6f 63 6b 73 69 7a 65 25 0d 0d 84 |megblocksize%...|
00001f70 33 20 20 20 20 20 20 c8 99 20 22 57 69 6d 70 5f |3 .. "Wimp_|
00001f80 53 6c 6f 74 53 69 7a 65 22 2c 74 61 73 6b 73 69 |SlotSize",tasksi|
00001f90 7a 65 25 2b 68 65 61 70 73 69 7a 65 25 2c 2d 31 |ze%+heapsize%,-1|
00001fa0 0d 0d 8e 16 20 20 20 20 20 20 62 6c 6f 63 6b 73 |.... blocks|
00001fb0 69 7a 65 25 3d 34 0d 0d 98 0b 20 20 20 20 c9 20 |ize%=4.... . |
00001fc0 31 0d 0d a2 19 20 20 20 20 20 20 e7 20 65 78 69 |1.... . exi|
00001fd0 74 20 8c 20 65 78 69 74 3d a3 0d 0d ac 14 20 20 |t . exit=..... |
00001fe0 20 20 20 20 6d 61 6b 65 65 78 69 74 3d a3 0d 0d | makeexit=...|
00001ff0 b6 0b 20 20 20 20 20 20 e1 0d 0d c0 0b 20 20 20 |.. ..... |
00002000 20 c9 20 32 0d 0d ca 12 20 20 20 20 20 20 e7 20 | . 2.... . |
00002010 65 78 69 74 20 8c 0d 0d d4 12 20 20 20 20 20 20 |exit ..... |
00002020 20 20 65 78 69 74 3d a3 0d 0d de 16 20 20 20 20 | exit=..... |
00002030 20 20 20 20 6d 61 6b 65 65 78 69 74 3d b9 0d 0d | makeexit=...|
00002040 e8 0b 20 20 20 20 20 20 cd 0d 0d f2 1e 20 20 20 |.. ..... |
00002050 20 20 20 c8 99 26 30 30 30 34 30 30 43 46 2c 2c | ..&000400CF,,|
00002060 62 6c 6f 63 6b 32 25 0d 0d fc 17 20 20 20 20 20 |block2%.... |
00002070 20 78 78 25 3d 62 6c 6f 63 6b 32 25 21 30 0d 0e | xx%=block2%!0..|
00002080 06 17 20 20 20 20 20 20 79 79 25 3d 62 6c 6f 63 |.. yy%=bloc|
00002090 6b 32 25 21 34 0d 0e 10 17 20 20 20 20 20 20 62 |k2%!4.... b|
000020a0 62 25 3d 62 6c 6f 63 6b 32 25 21 38 0d 0e 1a 14 |b%=block2%!8....|
000020b0 20 20 20 20 20 20 66 6c 75 66 65 6e 64 25 3d b9 | flufend%=.|
000020c0 0d 0e 24 24 20 20 20 20 20 20 f2 64 72 61 77 6d |..$$ .drawm|
000020d0 65 6e 75 28 73 61 76 65 61 73 25 2c 78 78 25 2c |enu(saveas%,xx%,|
000020e0 79 79 25 29 0d 0e 2e 0b 20 20 20 20 20 20 e1 0d |yy%).... ..|
000020f0 0e 38 07 20 20 cb 0d 0e 42 05 cd 0d 0e 4c 28 e7 |.8. ...B....L(.|
00002100 20 62 6c 6f 63 6b 25 21 30 3d 73 65 61 72 63 68 | block%!0=search|
00002110 25 20 8c 20 73 65 61 72 63 68 77 69 6e 64 6f 77 |% . searchwindow|
00002120 25 3d a3 0d 0e 56 16 e7 20 62 6c 6f 63 6b 25 21 |%=...V.. block%!|
00002130 30 3d 6d 61 69 6e 25 20 8c 0d 0e 60 15 20 20 73 |0=main% ...`. s|
00002140 65 61 72 63 68 77 69 6e 64 6f 77 25 3d a3 0d 0e |earchwindow%=...|
00002150 6a 16 20 20 62 6c 6f 63 6b 25 21 30 3d 73 65 61 |j. block%!0=sea|
00002160 72 63 68 25 0d 0e 74 1a 20 20 c8 99 20 26 30 30 |rch%..t. .. &00|
00002170 30 34 30 30 43 36 2c 2c 62 6c 6f 63 6b 25 0d 0e |0400C6,,block%..|
00002180 7e 42 20 20 c8 99 20 22 58 4f 53 5f 48 65 61 70 |~B .. "XOS_Heap|
00002190 22 2c 34 2c 65 6e 64 70 72 6f 67 25 2c 69 63 6f |",4,endprog%,ico|
000021a0 6e 64 61 74 61 25 2c 2d 62 6c 6f 63 6b 73 69 7a |ndata%,-blocksiz|
000021b0 65 25 20 b8 20 2c 2c 69 63 6f 6e 64 61 74 61 25 |e% . ,,icondata%|
000021c0 0d 0e 88 39 20 20 c8 99 20 22 58 4f 53 5f 48 65 |...9 .. "XOS_He|
000021d0 61 70 22 2c 35 2c 65 6e 64 70 72 6f 67 25 2c 2c |ap",5,endprog%,,|
000021e0 2d 68 65 61 70 73 69 7a 65 25 2b 73 6d 65 67 62 |-heapsize%+smegb|
000021f0 6c 6f 63 6b 73 69 7a 65 25 0d 0e 92 1e 20 20 68 |locksize%.... h|
00002200 65 61 70 73 69 7a 65 25 3d 73 6d 65 67 62 6c 6f |eapsize%=smegblo|
00002210 63 6b 73 69 7a 65 25 0d 0e 9c 2f 20 20 c8 99 20 |cksize%.../ .. |
00002220 22 57 69 6d 70 5f 53 6c 6f 74 53 69 7a 65 22 2c |"Wimp_SlotSize",|
00002230 74 61 73 6b 73 69 7a 65 25 2b 68 65 61 70 73 69 |tasksize%+heapsi|
00002240 7a 65 25 2c 2d 31 0d 0e a6 12 20 20 62 6c 6f 63 |ze%,-1.... bloc|
00002250 6b 73 69 7a 65 25 3d 34 0d 0e b0 0d 20 20 6d 6f |ksize%=4.... mo|
00002260 64 79 25 3d a3 0d 0e ba 2b 20 20 e7 20 70 72 65 |dy%=....+ . pre|
00002270 73 73 65 64 20 8c 20 c8 99 20 22 57 69 6d 70 5f |ssed . .. "Wimp_|
00002280 50 72 6f 63 65 73 73 4b 65 79 22 2c 26 31 46 43 |ProcessKey",&1FC|
00002290 0d 0e c4 0c 20 20 69 69 69 25 3d 30 0d 0e ce 14 |.... iii%=0....|
000022a0 20 20 62 6c 6f 63 6b 25 21 30 3d 6d 61 69 6e 25 | block%!0=main%|
000022b0 0d 0e d8 05 cd 0d 0e e2 18 c8 99 20 26 30 30 30 |........... &000|
000022c0 34 30 30 43 36 2c 2c 62 6c 6f 63 6b 25 0d 0e ec |400C6,,block%...|
000022d0 05 e1 0d 0e f6 13 dd 20 f2 70 6f 69 6e 74 65 72 |....... .pointer|
000022e0 6c 65 61 76 65 0d 0f 00 05 e1 0d 0f 0a 13 dd 20 |leave.......... |
000022f0 f2 70 6f 69 6e 74 65 72 65 6e 74 65 72 0d 0f 14 |.pointerenter...|
00002300 05 e1 0d 0f 1e 11 dd 20 f2 6d 6f 75 73 65 63 6c |....... .mousecl|
00002310 69 63 6b 0d 0f 28 07 ea 20 85 0d 0f 32 2a ee 20 |ick..(.. ...2*. |
00002320 85 20 ea 20 f2 61 6c 65 72 74 28 22 45 72 72 6f |. . .alert("Erro|
00002330 72 20 66 72 6f 6d 20 54 72 65 65 22 2c f6 24 2c |r from Tree",.$,|
00002340 30 29 3a e1 0d 0f 3c 0f 78 25 3d 62 6c 6f 63 6b |0):...<.x%=block|
00002350 25 21 30 0d 0f 46 0f 79 25 3d 62 6c 6f 63 6b 25 |%!0..F.y%=block%|
00002360 21 34 0d 0f 50 14 62 75 74 74 6f 6e 25 3d 62 6c |!4..P.button%=bl|
00002370 6f 63 6b 25 21 38 0d 0f 5a 15 77 69 6e 64 6f 77 |ock%!8..Z.window|
00002380 25 3d 62 6c 6f 63 6b 25 21 31 32 0d 0f 64 13 69 |%=block%!12..d.i|
00002390 63 6f 6e 25 3d 62 6c 6f 63 6b 25 21 31 36 0d 0f |con%=block%!16..|
000023a0 6e 10 c8 8e 20 62 75 74 74 6f 6e 25 20 ca 0d 0f |n... button% ...|
000023b0 78 07 c9 20 31 0d 0f 82 2b e7 20 77 69 6e 64 6f |x.. 1...+. windo|
000023c0 77 25 3d 73 65 61 72 63 68 25 20 8c 20 f2 63 6c |w%=search% . .cl|
000023d0 69 63 6b 73 65 61 72 63 68 28 69 63 6f 6e 25 29 |icksearch(icon%)|
000023e0 0d 0f 8c 29 e7 20 77 69 6e 64 6f 77 25 3d 70 72 |...). window%=pr|
000023f0 69 6e 74 25 20 8c 20 f2 63 6c 69 63 6b 70 72 69 |int% . .clickpri|
00002400 6e 74 28 69 63 6f 6e 25 29 0d 0f 96 23 e7 20 77 |nt(icon%)...#. w|
00002410 69 6e 64 6f 77 25 3d 73 61 76 65 64 72 61 77 25 |indow%=savedraw%|
00002420 20 80 20 69 63 6f 6e 25 3d 32 20 8c 0d 0f a0 26 | . icon%=2 ....&|
00002430 e7 20 a7 a4 69 63 6f 6e 74 65 78 74 28 73 61 76 |. ..icontext(sav|
00002440 65 64 72 61 77 25 2c 31 29 2c 22 2e 22 29 3d 30 |edraw%,1),".")=0|
00002450 20 8c 0d 0f aa 48 f2 61 6c 65 72 74 28 22 54 72 | ....H.alert("Tr|
00002460 65 65 22 2c 22 54 6f 20 73 61 76 65 2c 20 64 72 |ee","To save, dr|
00002470 61 67 20 74 68 65 20 66 69 6c 65 20 69 63 6f 6e |ag the file icon|
00002480 20 74 6f 20 61 20 64 69 72 65 63 74 6f 72 79 20 | to a directory |
00002490 76 69 65 77 65 72 22 2c 32 29 0d 0f b4 12 c8 99 |viewer",2)......|
000024a0 26 30 30 30 34 30 30 44 34 2c 2d 31 0d 0f be 05 |&000400D4,-1....|
000024b0 cc 0d 0f c8 18 70 6f 6f 77 69 6e 64 6f 77 25 3d |.....poowindow%=|
000024c0 73 61 76 65 64 72 61 77 25 0d 0f d2 21 f2 73 61 |savedraw%...!.sa|
000024d0 76 65 28 a4 69 63 6f 6e 74 65 78 74 28 73 61 76 |ve(.icontext(sav|
000024e0 65 64 72 61 77 25 2c 31 29 29 0d 0f dc 05 cd 0d |edraw%,1))......|
000024f0 0f e6 05 cd 0d 0f f0 21 e7 20 77 69 6e 64 6f 77 |.......!. window|
00002500 25 3d 73 61 76 65 61 73 25 20 80 20 69 63 6f 6e |%=saveas% . icon|
00002510 25 3d 32 20 8c 0d 0f fa 24 e7 20 a7 a4 69 63 6f |%=2 ....$. ..ico|
00002520 6e 74 65 78 74 28 73 61 76 65 61 73 25 2c 31 29 |ntext(saveas%,1)|
00002530 2c 22 2e 22 29 3d 30 20 8c 0d 10 04 48 f2 61 6c |,".")=0 ....H.al|
00002540 65 72 74 28 22 54 72 65 65 22 2c 22 54 6f 20 73 |ert("Tree","To s|
00002550 61 76 65 2c 20 64 72 61 67 20 74 68 65 20 66 69 |ave, drag the fi|
00002560 6c 65 20 69 63 6f 6e 20 74 6f 20 61 20 64 69 72 |le icon to a dir|
00002570 65 63 74 6f 72 79 20 76 69 65 77 65 72 22 2c 32 |ectory viewer",2|
00002580 29 0d 10 0e 12 c8 99 26 30 30 30 34 30 30 44 34 |)......&000400D4|
00002590 2c 2d 31 0d 10 18 05 cc 0d 10 22 16 70 6f 6f 77 |,-1.......".poow|
000025a0 69 6e 64 6f 77 25 3d 73 61 76 65 61 73 25 0d 10 |indow%=saveas%..|
000025b0 2c 1f f2 73 61 76 65 28 a4 69 63 6f 6e 74 65 78 |,..save(.icontex|
000025c0 74 28 73 61 76 65 61 73 25 2c 31 29 29 0d 10 36 |t(saveas%,1))..6|
000025d0 05 cd 0d 10 40 05 cd 0d 10 4a 23 e7 20 77 69 6e |....@....J#. win|
000025e0 64 6f 77 25 3d 73 61 76 65 74 72 65 65 25 20 80 |dow%=savetree% .|
000025f0 20 69 63 6f 6e 25 3d 32 20 8c 0d 10 54 26 e7 20 | icon%=2 ...T&. |
00002600 a7 a4 69 63 6f 6e 74 65 78 74 28 73 61 76 65 74 |..icontext(savet|
00002610 72 65 65 25 2c 31 29 2c 22 2e 22 29 3d 30 20 8c |ree%,1),".")=0 .|
00002620 0d 10 5e 48 f2 61 6c 65 72 74 28 22 54 72 65 65 |..^H.alert("Tree|
00002630 22 2c 22 54 6f 20 73 61 76 65 2c 20 64 72 61 67 |","To save, drag|
00002640 20 74 68 65 20 66 69 6c 65 20 69 63 6f 6e 20 74 | the file icon t|
00002650 6f 20 61 20 64 69 72 65 63 74 6f 72 79 20 76 69 |o a directory vi|
00002660 65 77 65 72 22 2c 32 29 0d 10 68 12 c8 99 26 30 |ewer",2)..h...&0|
00002670 30 30 34 30 30 44 34 2c 2d 31 0d 10 72 05 cc 0d |00400D4,-1..r...|
00002680 10 7c 18 70 6f 6f 77 69 6e 64 6f 77 25 3d 73 61 |.|.poowindow%=sa|
00002690 76 65 74 72 65 65 25 0d 10 86 21 f2 73 61 76 65 |vetree%...!.save|
000026a0 28 a4 69 63 6f 6e 74 65 78 74 28 73 61 76 65 74 |(.icontext(savet|
000026b0 72 65 65 25 2c 31 29 29 0d 10 90 05 cd 0d 10 9a |ree%,1))........|
000026c0 05 cd 0d 10 a4 2d e7 20 77 69 6e 64 6f 77 25 3d |.....-. window%=|
000026d0 6f 70 74 69 6f 6e 73 25 20 8c 20 f2 63 6c 69 63 |options% . .clic|
000026e0 6b 6f 70 74 69 6f 6e 73 28 69 63 6f 6e 25 29 0d |koptions(icon%).|
000026f0 10 ae 27 e7 20 77 69 6e 64 6f 77 25 3d 70 61 6e |..'. window%=pan|
00002700 65 25 20 8c 20 f2 63 6c 69 63 6b 70 61 6e 65 28 |e% . .clickpane(|
00002710 69 63 6f 6e 25 29 0d 10 b8 1f e7 20 77 69 6e 64 |icon%)..... wind|
00002720 6f 77 25 3d 6d 61 69 6e 25 20 80 20 69 63 6f 6e |ow%=main% . icon|
00002730 25 3e 30 20 8c 0d 10 c2 1a f2 75 73 65 6c 69 63 |%>0 ......uselic|
00002740 6f 6e 28 6d 61 69 6e 25 2c 69 63 6f 6e 25 29 0d |on(main%,icon%).|
00002750 10 cc 17 f2 67 65 74 76 61 72 73 28 69 63 6f 6e |....getvars(icon|
00002760 25 2d 31 2c a3 29 0d 10 d6 1e ff 28 22 46 49 4c |%-1,.).....("FIL|
00002770 45 52 5f 52 55 4e 20 22 2b 24 66 69 6c 65 6e 61 |ER_RUN "+$filena|
00002780 6d 65 25 29 0d 10 e0 05 cd 0d 10 ea 23 e7 20 77 |me%)........#. w|
00002790 69 6e 64 6f 77 25 3d 73 61 76 65 64 72 61 77 25 |indow%=savedraw%|
000027a0 20 80 20 69 63 6f 6e 25 3d 33 20 8c 0d 10 f4 15 | . icon%=3 .....|
000027b0 63 6f 6c 75 6d 6e 73 3d ac 20 63 6f 6c 75 6d 6e |columns=. column|
000027c0 73 0d 10 fe 3e e7 20 63 6f 6c 75 6d 6e 73 20 8c |s...>. columns .|
000027d0 20 f2 73 65 6c 69 63 6f 6e 28 73 61 76 65 64 72 | .selicon(savedr|
000027e0 61 77 25 2c 33 29 20 8b 20 f2 75 73 65 6c 69 63 |aw%,3) . .uselic|
000027f0 6f 6e 28 73 61 76 65 64 72 61 77 25 2c 33 29 0d |on(savedraw%,3).|
00002800 11 08 05 cd 0d 11 12 07 c9 20 32 0d 11 1c 12 e7 |......... 2.....|
00002810 20 77 69 6e 64 6f 77 25 3d 2d 32 20 8c 0d 11 26 | window%=-2 ...&|
00002820 23 f2 64 72 61 77 6d 65 6e 75 28 6d 61 69 6e 6d |#.drawmenu(mainm|
00002830 65 6e 75 25 2c 78 25 2d 31 30 30 2c 32 32 38 29 |enu%,x%-100,228)|
00002840 0d 11 30 11 6d 65 6e 75 6e 75 6d 62 65 72 25 3d |..0.menunumber%=|
00002850 31 0d 11 3a 05 cd 0d 11 44 15 e7 20 77 69 6e 64 |1..:....D.. wind|
00002860 6f 77 25 3d 6d 61 69 6e 25 20 8c 0d 11 4e 13 f2 |ow%=main% ...N..|
00002870 67 65 74 70 72 69 6e 74 65 72 69 6e 66 6f 0d 11 |getprinterinfo..|
00002880 58 23 f2 69 63 6f 6e 70 75 74 74 65 78 74 28 70 |X#.iconputtext(p|
00002890 72 69 6e 74 25 2c 30 2c 70 72 69 6e 74 65 72 24 |rint%,0,printer$|
000028a0 29 0d 11 62 0c 63 6f 70 69 65 73 3d 31 0d 11 6c |)..b.copies=1..l|
000028b0 24 f2 69 63 6f 6e 70 75 74 74 65 78 74 28 70 72 |$.iconputtext(pr|
000028c0 69 6e 74 25 2c 32 2c c3 28 63 6f 70 69 65 73 29 |int%,2,.(copies)|
000028d0 29 0d 11 76 3e e7 20 63 6f 6c 75 6d 6e 73 20 8c |)..v>. columns .|
000028e0 20 f2 73 65 6c 69 63 6f 6e 28 73 61 76 65 64 72 | .selicon(savedr|
000028f0 61 77 25 2c 33 29 20 8b 20 f2 75 73 65 6c 69 63 |aw%,3) . .uselic|
00002900 6f 6e 28 73 61 76 65 64 72 61 77 25 2c 33 29 0d |on(savedraw%,3).|
00002910 11 80 0e 66 6c 75 66 65 6e 64 25 3d a3 0d 11 8a |...flufend%=....|
00002920 22 f2 69 63 6f 6e 70 75 74 74 65 78 74 28 73 74 |".iconputtext(st|
00002930 61 74 73 25 2c 31 2c c3 28 69 69 69 25 29 29 0d |ats%,1,.(iii%)).|
00002940 11 94 28 f2 69 63 6f 6e 70 75 74 74 65 78 74 28 |..(.iconputtext(|
00002950 73 74 61 74 73 25 2c 33 2c c3 28 62 6c 6f 63 6b |stats%,3,.(block|
00002960 73 69 7a 65 25 29 29 0d 11 9e 0f e7 20 69 63 6f |size%))..... ico|
00002970 6e 25 3e 30 20 8c 0d 11 a8 17 63 75 72 72 65 6e |n%>0 .....curren|
00002980 74 73 65 61 72 63 68 3d 69 63 6f 6e 25 0d 11 b2 |tsearch=icon%...|
00002990 17 f2 75 73 6d 69 28 6f 74 68 65 72 6d 65 6e 75 |..usmi(othermenu|
000029a0 25 2c 33 29 0d 11 bc 17 f2 75 73 6d 69 28 6f 74 |%,3).....usmi(ot|
000029b0 68 65 72 6d 65 6e 75 25 2c 34 29 0d 11 c6 17 f2 |hermenu%,4).....|
000029c0 67 65 74 76 61 72 73 28 69 63 6f 6e 25 2d 31 2c |getvars(icon%-1,|
000029d0 a3 29 0d 11 d0 2b f2 69 63 6f 6e 70 75 74 74 65 |.)...+.iconputte|
000029e0 78 74 28 66 69 6e 66 6f 25 2c 30 2c a4 67 4c 6e |xt(finfo%,0,.gLn|
000029f0 28 24 66 69 6c 65 6e 61 6d 65 25 29 29 0d 11 da |($filename%))...|
00002a00 22 e7 20 74 79 70 65 25 21 30 3e 3d 30 20 80 20 |". type%!0>=0 . |
00002a10 74 79 70 65 25 21 30 3c 3d 26 46 46 46 20 8c 0d |type%!0<=&FFF ..|
00002a20 11 e4 2e 20 20 f2 69 63 6f 6e 70 75 74 74 65 78 |... .iconputtex|
00002a30 74 28 66 69 6e 66 6f 25 2c 33 2c 22 26 22 2b a4 |t(finfo%,3,"&"+.|
00002a40 70 61 64 28 74 79 70 65 25 21 30 29 29 0d 11 ee |pad(type%!0))...|
00002a50 2e 20 20 e7 20 a4 73 70 72 69 74 65 65 78 69 73 |. . .spriteexis|
00002a60 74 73 28 22 66 69 6c 65 5f 22 2b a4 70 61 64 28 |ts("file_"+.pad(|
00002a70 74 79 70 65 25 21 30 29 29 20 8c 0d 11 f8 35 20 |type%!0)) ....5 |
00002a80 20 f2 73 65 74 69 63 6f 6e 73 70 72 69 74 65 28 | .seticonsprite(|
00002a90 66 69 6e 66 6f 25 2c 31 2c 22 53 66 69 6c 65 5f |finfo%,1,"Sfile_|
00002aa0 22 2b a4 70 61 64 28 74 79 70 65 25 21 30 29 29 |"+.pad(type%!0))|
00002ab0 0d 12 02 07 20 20 cc 0d 12 0c 2a 20 20 f2 73 65 |.... ....* .se|
00002ac0 74 69 63 6f 6e 73 70 72 69 74 65 28 66 69 6e 66 |ticonsprite(finf|
00002ad0 6f 25 2c 31 2c 22 53 66 69 6c 65 5f 78 78 78 22 |o%,1,"Sfile_xxx"|
00002ae0 29 0d 12 16 07 20 20 cd 0d 12 20 05 cc 0d 12 2a |).... ... ....*|
00002af0 2f 20 20 e7 20 c0 a4 67 4c 6e 28 24 66 69 6c 65 |/ . ..gLn($file|
00002b00 6e 61 6d 65 25 29 2c 31 29 3d 22 21 22 20 80 20 |name%),1)="!" . |
00002b10 74 79 70 65 25 21 30 3d 2d 31 20 8c 0d 12 34 2a |type%!0=-1 ...4*|
00002b20 20 20 f2 69 63 6f 6e 70 75 74 74 65 78 74 28 66 | .iconputtext(f|
00002b30 69 6e 66 6f 25 2c 33 2c 22 41 70 70 6c 69 63 61 |info%,3,"Applica|
00002b40 74 69 6f 6e 22 29 0d 12 3e 29 20 20 e7 20 a4 73 |tion")..>) . .s|
00002b50 70 72 69 74 65 65 78 69 73 74 73 28 a4 67 4c 6e |priteexists(.gLn|
00002b60 28 24 66 69 6c 65 6e 61 6d 65 25 29 29 20 8c 0d |($filename%)) ..|
00002b70 12 48 33 20 20 f2 73 65 74 69 63 6f 6e 73 70 72 |.H3 .seticonspr|
00002b80 69 74 65 28 66 69 6e 66 6f 25 2c 31 2c 22 53 22 |ite(finfo%,1,"S"|
00002b90 2b a4 67 4c 6e 28 24 66 69 6c 65 6e 61 6d 65 25 |+.gLn($filename%|
00002ba0 29 29 0d 12 52 07 20 20 cc 0d 12 5c 2d 20 20 f2 |))..R. ...\- .|
00002bb0 73 65 74 69 63 6f 6e 73 70 72 69 74 65 28 66 69 |seticonsprite(fi|
00002bc0 6e 66 6f 25 2c 31 2c 22 53 61 70 70 6c 69 63 61 |nfo%,1,"Sapplica|
00002bd0 74 69 6f 6e 22 29 0d 12 66 07 20 20 cd 0d 12 70 |tion")..f. ...p|
00002be0 07 20 20 cd 0d 12 7a 30 20 20 e7 20 c0 a4 67 4c |. ...z0 . ..gL|
00002bf0 6e 28 24 66 69 6c 65 6e 61 6d 65 25 29 2c 31 29 |n($filename%),1)|
00002c00 3c 3e 22 21 22 20 80 20 74 79 70 65 25 21 30 3d |<>"!" . type%!0=|
00002c10 2d 31 20 8c 0d 12 84 28 20 20 f2 69 63 6f 6e 70 |-1 ....( .iconp|
00002c20 75 74 74 65 78 74 28 66 69 6e 66 6f 25 2c 33 2c |uttext(finfo%,3,|
00002c30 22 44 69 72 65 63 74 6f 72 79 22 29 0d 12 8e 2b |"Directory")...+|
00002c40 20 20 f2 73 65 74 69 63 6f 6e 73 70 72 69 74 65 | .seticonsprite|
00002c50 28 66 69 6e 66 6f 25 2c 31 2c 22 53 64 69 72 65 |(finfo%,1,"Sdire|
00002c60 63 74 6f 72 79 22 29 0d 12 98 07 20 20 cd 0d 12 |ctory").... ...|
00002c70 a2 14 20 20 e7 20 74 79 70 65 25 21 30 3d 2d 32 |.. . type%!0=-2|
00002c80 20 8c 0d 12 ac 23 20 20 f2 69 63 6f 6e 70 75 74 | ....# .iconput|
00002c90 74 65 78 74 28 66 69 6e 66 6f 25 2c 33 2c 22 46 |text(finfo%,3,"F|
00002ca0 69 6c 65 22 29 0d 12 b6 2a 20 20 f2 73 65 74 69 |ile")...* .seti|
00002cb0 63 6f 6e 73 70 72 69 74 65 28 66 69 6e 66 6f 25 |consprite(finfo%|
00002cc0 2c 31 2c 22 53 66 69 6c 65 5f 78 78 78 22 29 0d |,1,"Sfile_xxx").|
00002cd0 12 c0 07 20 20 cd 0d 12 ca 05 cd 0d 12 d4 2b f2 |... .........+.|
00002ce0 69 63 6f 6e 70 75 74 74 65 78 74 28 66 69 6e 66 |iconputtext(finf|
00002cf0 6f 25 2c 35 2c c3 28 72 65 61 64 6c 65 6e 67 74 |o%,5,.(readlengt|
00002d00 68 25 21 30 29 29 0d 12 de 35 f2 69 63 6f 6e 70 |h%!0))...5.iconp|
00002d10 75 74 74 65 78 74 28 66 69 6e 66 6f 25 2c 37 2c |uttext(finfo%,7,|
00002d20 a4 61 74 74 72 69 62 75 74 65 73 28 61 74 74 72 |.attributes(attr|
00002d30 69 62 75 74 65 73 25 21 30 29 29 0d 12 e8 36 f2 |ibutes%!0))...6.|
00002d40 69 63 6f 6e 70 75 74 74 65 78 74 28 66 69 6e 66 |iconputtext(finf|
00002d50 6f 25 2c 38 2c a4 6d 79 63 6f 6e 76 65 72 74 28 |o%,8,.myconvert(|
00002d60 6c 61 64 72 25 21 30 2c 65 61 64 72 25 21 30 29 |ladr%!0,eadr%!0)|
00002d70 29 0d 12 f2 05 cc 0d 12 fc 16 f2 73 6d 69 28 6f |)..........smi(o|
00002d80 74 68 65 72 6d 65 6e 75 25 2c 33 29 0d 13 06 16 |thermenu%,3)....|
00002d90 f2 73 6d 69 28 6f 74 68 65 72 6d 65 6e 75 25 2c |.smi(othermenu%,|
00002da0 34 29 0d 13 10 05 cd 0d 13 1a 23 f2 64 72 61 77 |4)........#.draw|
00002db0 6d 65 6e 75 28 6f 74 68 65 72 6d 65 6e 75 25 2c |menu(othermenu%,|
00002dc0 78 25 2d 31 30 30 2c 79 25 29 0d 13 24 11 6d 65 |x%-100,y%)..$.me|
00002dd0 6e 75 6e 75 6d 62 65 72 25 3d 32 0d 13 2e 05 cd |nunumber%=2.....|
00002de0 0d 13 38 07 c9 20 34 0d 13 42 2b e7 20 77 69 6e |..8.. 4..B+. win|
00002df0 64 6f 77 25 3d 73 65 61 72 63 68 25 20 8c 20 f2 |dow%=search% . .|
00002e00 63 6c 69 63 6b 73 65 61 72 63 68 28 69 63 6f 6e |clicksearch(icon|
00002e10 25 29 0d 13 4c 29 e7 20 77 69 6e 64 6f 77 25 3d |%)..L). window%=|
00002e20 70 72 69 6e 74 25 20 8c 20 f2 63 6c 69 63 6b 70 |print% . .clickp|
00002e30 72 69 6e 74 28 69 63 6f 6e 25 29 0d 13 56 23 e7 |rint(icon%)..V#.|
00002e40 20 77 69 6e 64 6f 77 25 3d 73 61 76 65 64 72 61 | window%=savedra|
00002e50 77 25 20 80 20 69 63 6f 6e 25 3d 33 20 8c 0d 13 |w% . icon%=3 ...|
00002e60 60 15 63 6f 6c 75 6d 6e 73 3d ac 20 63 6f 6c 75 |`.columns=. colu|
00002e70 6d 6e 73 0d 13 6a 3e e7 20 63 6f 6c 75 6d 6e 73 |mns..j>. columns|
00002e80 20 8c 20 f2 73 65 6c 69 63 6f 6e 28 73 61 76 65 | . .selicon(save|
00002e90 64 72 61 77 25 2c 33 29 20 8b 20 f2 75 73 65 6c |draw%,3) . .usel|
00002ea0 69 63 6f 6e 28 73 61 76 65 64 72 61 77 25 2c 33 |icon(savedraw%,3|
00002eb0 29 0d 13 74 05 cd 0d 13 7e 23 e7 20 77 69 6e 64 |)..t....~#. wind|
00002ec0 6f 77 25 3d 73 61 76 65 64 72 61 77 25 20 80 20 |ow%=savedraw% . |
00002ed0 69 63 6f 6e 25 3d 32 20 8c 0d 13 88 26 e7 20 a7 |icon%=2 ....&. .|
00002ee0 a4 69 63 6f 6e 74 65 78 74 28 73 61 76 65 64 72 |.icontext(savedr|
00002ef0 61 77 25 2c 31 29 2c 22 2e 22 29 3d 30 20 8c 0d |aw%,1),".")=0 ..|
00002f00 13 92 48 f2 61 6c 65 72 74 28 22 54 72 65 65 22 |..H.alert("Tree"|
00002f10 2c 22 54 6f 20 73 61 76 65 2c 20 64 72 61 67 20 |,"To save, drag |
00002f20 74 68 65 20 66 69 6c 65 20 69 63 6f 6e 20 74 6f |the file icon to|
00002f30 20 61 20 64 69 72 65 63 74 6f 72 79 20 76 69 65 | a directory vie|
00002f40 77 65 72 22 2c 32 29 0d 13 9c 12 c8 99 26 30 30 |wer",2)......&00|
00002f50 30 34 30 30 44 34 2c 2d 31 0d 13 a6 05 cc 0d 13 |0400D4,-1.......|
00002f60 b0 18 70 6f 6f 77 69 6e 64 6f 77 25 3d 73 61 76 |..poowindow%=sav|
00002f70 65 64 72 61 77 25 0d 13 ba 21 f2 73 61 76 65 28 |edraw%...!.save(|
00002f80 a4 69 63 6f 6e 74 65 78 74 28 73 61 76 65 64 72 |.icontext(savedr|
00002f90 61 77 25 2c 31 29 29 0d 13 c4 05 cd 0d 13 ce 05 |aw%,1)).........|
00002fa0 cd 0d 13 d8 21 e7 20 77 69 6e 64 6f 77 25 3d 73 |....!. window%=s|
00002fb0 61 76 65 61 73 25 20 80 20 69 63 6f 6e 25 3d 32 |aveas% . icon%=2|
00002fc0 20 8c 0d 13 e2 24 e7 20 a7 a4 69 63 6f 6e 74 65 | ....$. ..iconte|
00002fd0 78 74 28 73 61 76 65 61 73 25 2c 31 29 2c 22 2e |xt(saveas%,1),".|
00002fe0 22 29 3d 30 20 8c 0d 13 ec 48 f2 61 6c 65 72 74 |")=0 ....H.alert|
00002ff0 28 22 54 72 65 65 22 2c 22 54 6f 20 73 61 76 65 |("Tree","To save|
00003000 2c 20 64 72 61 67 20 74 68 65 20 66 69 6c 65 20 |, drag the file |
00003010 69 63 6f 6e 20 74 6f 20 61 20 64 69 72 65 63 74 |icon to a direct|
00003020 6f 72 79 20 76 69 65 77 65 72 22 2c 32 29 0d 13 |ory viewer",2)..|
00003030 f6 12 c8 99 26 30 30 30 34 30 30 44 34 2c 2d 31 |....&000400D4,-1|
00003040 0d 14 00 05 cc 0d 14 0a 16 70 6f 6f 77 69 6e 64 |.........poowind|
00003050 6f 77 25 3d 73 61 76 65 61 73 25 0d 14 14 1f f2 |ow%=saveas%.....|
00003060 73 61 76 65 28 a4 69 63 6f 6e 74 65 78 74 28 73 |save(.icontext(s|
00003070 61 76 65 61 73 25 2c 31 29 29 0d 14 1e 12 c8 99 |aveas%,1))......|
00003080 26 30 30 30 34 30 30 44 34 2c 2d 31 0d 14 28 05 |&000400D4,-1..(.|
00003090 cd 0d 14 32 05 cd 0d 14 3c 23 e7 20 77 69 6e 64 |...2....<#. wind|
000030a0 6f 77 25 3d 73 61 76 65 74 72 65 65 25 20 80 20 |ow%=savetree% . |
000030b0 69 63 6f 6e 25 3d 32 20 8c 0d 14 46 26 e7 20 a7 |icon%=2 ...F&. .|
000030c0 a4 69 63 6f 6e 74 65 78 74 28 73 61 76 65 74 72 |.icontext(savetr|
000030d0 65 65 25 2c 31 29 2c 22 2e 22 29 3d 30 20 8c 0d |ee%,1),".")=0 ..|
000030e0 14 50 48 f2 61 6c 65 72 74 28 22 54 72 65 65 22 |.PH.alert("Tree"|
000030f0 2c 22 54 6f 20 73 61 76 65 2c 20 64 72 61 67 20 |,"To save, drag |
00003100 74 68 65 20 66 69 6c 65 20 69 63 6f 6e 20 74 6f |the file icon to|
00003110 20 61 20 64 69 72 65 63 74 6f 72 79 20 76 69 65 | a directory vie|
00003120 77 65 72 22 2c 32 29 0d 14 5a 12 c8 99 26 30 30 |wer",2)..Z...&00|
00003130 30 34 30 30 44 34 2c 2d 31 0d 14 64 05 cc 0d 14 |0400D4,-1..d....|
00003140 6e 18 70 6f 6f 77 69 6e 64 6f 77 25 3d 73 61 76 |n.poowindow%=sav|
00003150 65 74 72 65 65 25 0d 14 78 21 f2 73 61 76 65 28 |etree%..x!.save(|
00003160 a4 69 63 6f 6e 74 65 78 74 28 73 61 76 65 74 72 |.icontext(savetr|
00003170 65 65 25 2c 31 29 29 0d 14 82 12 c8 99 26 30 30 |ee%,1))......&00|
00003180 30 34 30 30 44 34 2c 2d 31 0d 14 8c 05 cd 0d 14 |0400D4,-1.......|
00003190 96 05 cd 0d 14 a0 27 e7 20 77 69 6e 64 6f 77 25 |......'. window%|
000031a0 3d 70 61 6e 65 25 20 8c 20 f2 63 6c 69 63 6b 70 |=pane% . .clickp|
000031b0 61 6e 65 28 69 63 6f 6e 25 29 0d 14 aa 2d e7 20 |ane(icon%)...-. |
000031c0 77 69 6e 64 6f 77 25 3d 6f 70 74 69 6f 6e 73 25 |window%=options%|
000031d0 20 8c 20 f2 63 6c 69 63 6b 6f 70 74 69 6f 6e 73 | . .clickoptions|
000031e0 28 69 63 6f 6e 25 29 0d 14 b4 1f e7 20 77 69 6e |(icon%)..... win|
000031f0 64 6f 77 25 3d 6d 61 69 6e 25 20 80 20 69 63 6f |dow%=main% . ico|
00003200 6e 25 3e 30 20 8c 0d 14 be 1a f2 75 73 65 6c 69 |n%>0 ......useli|
00003210 63 6f 6e 28 6d 61 69 6e 25 2c 69 63 6f 6e 25 29 |con(main%,icon%)|
00003220 0d 14 c8 17 f2 67 65 74 76 61 72 73 28 69 63 6f |.....getvars(ico|
00003230 6e 25 2d 31 2c a3 29 0d 14 d2 1e ff 28 22 46 49 |n%-1,.).....("FI|
00003240 4c 45 52 5f 52 55 4e 20 22 2b 24 66 69 6c 65 6e |LER_RUN "+$filen|
00003250 61 6d 65 25 29 0d 14 dc 05 cd 0d 14 e6 0b c9 20 |ame%).......... |
00003260 31 36 2c 36 34 0d 14 f0 1f e7 20 77 69 6e 64 6f |16,64..... windo|
00003270 77 25 3d 6d 61 69 6e 25 20 80 20 69 63 6f 6e 25 |w%=main% . icon%|
00003280 3e 30 20 8c 0d 14 fa 0f f2 64 72 61 67 6d 79 66 |>0 ......dragmyf|
00003290 69 6c 65 0d 15 04 13 74 65 6d 70 69 63 6f 6e 25 |ile....tempicon%|
000032a0 3d 69 63 6f 6e 25 0d 15 0e 05 cd 0d 15 18 21 e7 |=icon%........!.|
000032b0 20 77 69 6e 64 6f 77 25 3d 73 61 76 65 61 73 25 | window%=saveas%|
000032c0 20 80 20 69 63 6f 6e 25 3d 30 20 8c 0d 15 22 16 | . icon%=0 ...".|
000032d0 70 6f 6f 77 69 6e 64 6f 77 25 3d 77 69 6e 64 6f |poowindow%=windo|
000032e0 77 25 0d 15 2c 1a 6c 61 73 74 77 69 6e 64 6f 77 |w%..,.lastwindow|
000032f0 25 3d 70 6f 6f 77 69 6e 64 6f 77 25 0d 15 36 22 |%=poowindow%..6"|
00003300 f2 64 72 61 77 62 6f 78 28 73 61 76 65 61 73 25 |.drawbox(saveas%|
00003310 2c 30 2c 22 66 69 6c 65 5f 33 35 33 22 29 0d 15 |,0,"file_353")..|
00003320 40 05 cd 0d 15 4a 23 e7 20 77 69 6e 64 6f 77 25 |@....J#. window%|
00003330 3d 73 61 76 65 74 72 65 65 25 20 80 20 69 63 6f |=savetree% . ico|
00003340 6e 25 3d 30 20 8c 0d 15 54 16 70 6f 6f 77 69 6e |n%=0 ...T.poowin|
00003350 64 6f 77 25 3d 77 69 6e 64 6f 77 25 0d 15 5e 1a |dow%=window%..^.|
00003360 6c 61 73 74 77 69 6e 64 6f 77 25 3d 70 6f 6f 77 |lastwindow%=poow|
00003370 69 6e 64 6f 77 25 0d 15 68 24 f2 64 72 61 77 62 |indow%..h$.drawb|
00003380 6f 78 28 73 61 76 65 74 72 65 65 25 2c 30 2c 22 |ox(savetree%,0,"|
00003390 66 69 6c 65 5f 66 66 66 22 29 0d 15 72 05 cd 0d |file_fff")..r...|
000033a0 15 7c 23 e7 20 77 69 6e 64 6f 77 25 3d 73 61 76 |.|#. window%=sav|
000033b0 65 64 72 61 77 25 20 80 20 69 63 6f 6e 25 3d 30 |edraw% . icon%=0|
000033c0 20 8c 0d 15 86 16 70 6f 6f 77 69 6e 64 6f 77 25 | .....poowindow%|
000033d0 3d 77 69 6e 64 6f 77 25 0d 15 90 1a 6c 61 73 74 |=window%....last|
000033e0 77 69 6e 64 6f 77 25 3d 70 6f 6f 77 69 6e 64 6f |window%=poowindo|
000033f0 77 25 0d 15 9a 24 f2 64 72 61 77 62 6f 78 28 73 |w%...$.drawbox(s|
00003400 61 76 65 64 72 61 77 25 2c 30 2c 22 66 69 6c 65 |avedraw%,0,"file|
00003410 5f 61 66 66 22 29 0d 15 a4 05 cd 0d 15 ae 05 cb |_aff")..........|
00003420 0d 15 b8 05 e1 0d 15 c2 12 dd 20 f2 75 73 65 72 |.......... .user|
00003430 64 72 61 67 62 6f 78 0d 15 cc 07 ea 20 85 0d 15 |dragbox..... ...|
00003440 d6 2a ee 20 85 20 ea 20 f2 61 6c 65 72 74 28 22 |.*. . . .alert("|
00003450 45 72 72 6f 72 20 66 72 6f 6d 20 54 72 65 65 22 |Error from Tree"|
00003460 2c f6 24 2c 30 29 3a e1 0d 15 e0 19 c8 99 20 22 |,.$,0):....... "|
00003470 44 72 61 67 41 53 70 72 69 74 65 5f 53 74 6f 70 |DragASprite_Stop|
00003480 22 0d 15 ea 12 74 74 25 3d 62 6c 6f 63 6b 25 2b |"....tt%=block%+|
00003490 32 35 36 0d 15 f4 14 c8 99 26 30 30 30 34 30 30 |256......&000400|
000034a0 43 46 2c 2c 74 74 25 0d 15 fe 0d 78 78 25 3d 74 |CF,,tt%....xx%=t|
000034b0 74 25 21 30 0d 16 08 0d 79 79 25 3d 74 74 25 21 |t%!0....yy%=tt%!|
000034c0 34 0d 16 12 0d 62 62 25 3d 74 74 25 21 38 0d 16 |4....bb%=tt%!8..|
000034d0 1c 10 77 69 6e 64 25 3d 74 74 25 21 31 32 0d 16 |..wind%=tt%!12..|
000034e0 26 10 69 63 6f 6e 25 3d 74 74 25 21 31 36 0d 16 |&.icon%=tt%!16..|
000034f0 30 14 c8 8e 20 6c 61 73 74 77 69 6e 64 6f 77 25 |0... lastwindow%|
00003500 20 ca 0d 16 3a 17 c9 20 73 61 76 65 61 73 25 2c | ...:.. saveas%,|
00003510 73 61 76 65 74 72 65 65 25 0d 16 44 10 62 6c 6f |savetree%..D.blo|
00003520 63 6b 25 21 30 3d 32 35 36 0d 16 4e 0f 62 6c 6f |ck%!0=256..N.blo|
00003530 63 6b 25 21 31 32 3d 30 0d 16 58 0f 62 6c 6f 63 |ck%!12=0..X.bloc|
00003540 6b 25 21 31 36 3d 31 0d 16 62 13 62 6c 6f 63 6b |k%!16=1..b.block|
00003550 25 21 32 30 3d 77 69 6e 64 25 0d 16 6c 13 62 6c |%!20=wind%..l.bl|
00003560 6f 63 6b 25 21 32 34 3d 69 63 6f 6e 25 0d 16 76 |ock%!24=icon%..v|
00003570 11 62 6c 6f 63 6b 25 21 32 38 3d 78 78 25 0d 16 |.block%!28=xx%..|
00003580 80 11 62 6c 6f 63 6b 25 21 33 32 3d 79 79 25 0d |..block%!32=yy%.|
00003590 16 8a 0f 62 6c 6f 63 6b 25 21 33 36 3d 31 0d 16 |...block%!36=1..|
000035a0 94 1d e7 20 6c 61 73 74 77 69 6e 64 6f 77 25 3d |... lastwindow%=|
000035b0 73 61 76 65 74 72 65 65 25 20 8c 0d 16 9e 12 62 |savetree% .....b|
000035c0 6c 6f 63 6b 25 21 34 30 3d 26 66 66 66 0d 16 a8 |lock%!40=&fff...|
000035d0 05 cc 0d 16 b2 12 62 6c 6f 63 6b 25 21 34 30 3d |......block%!40=|
000035e0 26 33 35 33 0d 16 bc 05 cd 0d 16 c6 16 62 62 6c |&353.........bbl|
000035f0 6f 63 6b 25 3d 62 6c 6f 63 6b 25 2b 32 35 36 0d |ock%=block%+256.|
00003600 16 d0 19 62 62 6c 6f 63 6b 25 21 30 3d 6c 61 73 |...bblock%!0=las|
00003610 74 77 69 6e 64 6f 77 25 0d 16 da 0f 62 62 6c 6f |twindow%....bblo|
00003620 63 6b 25 21 34 3d 31 0d 16 e4 19 c8 99 26 30 30 |ck%!4=1......&00|
00003630 30 34 30 30 43 45 2c 30 2c 62 62 6c 6f 63 6b 25 |0400CE,0,bblock%|
00003640 0d 16 ee 14 74 65 78 74 25 3d 62 62 6c 6f 63 6b |....text%=bblock|
00003650 25 21 32 38 0d 16 f8 13 77 24 3d a4 67 4c 6e 28 |%!28....w$=.gLn(|
00003660 24 74 65 78 74 25 29 0d 17 02 16 24 28 62 6c 6f |$text%)....$(blo|
00003670 63 6b 25 2b 34 34 29 3d 77 24 2b bd 30 0d 17 0c |ck%+44)=w$+.0...|
00003680 25 c8 99 26 30 30 30 34 30 30 45 37 2c 31 37 2c |%..&000400E7,17,|
00003690 62 6c 6f 63 6b 25 2c 77 69 6e 64 25 2c 69 63 6f |block%,wind%,ico|
000036a0 6e 25 0d 17 16 38 e7 20 77 69 6e 64 25 3c 3e 73 |n%...8. wind%<>s|
000036b0 61 76 65 61 73 25 20 80 20 77 69 6e 64 25 3c 3e |aveas% . wind%<>|
000036c0 73 61 76 65 74 72 65 65 25 20 8c 20 c8 99 26 30 |savetree% . ..&0|
000036d0 30 30 34 30 30 44 34 2c 2d 31 0d 17 20 0b c9 20 |00400D4,-1.. .. |
000036e0 6d 61 69 6e 25 0d 17 2a 14 70 6f 6f 77 69 6e 64 |main%..*.poowind|
000036f0 6f 77 25 3d 6d 61 69 6e 25 0d 17 34 1b f2 67 65 |ow%=main%..4..ge|
00003700 74 76 61 72 73 28 74 65 6d 70 69 63 6f 6e 25 2d |tvars(tempicon%-|
00003710 31 2c a3 29 0d 17 3e 10 62 6c 6f 63 6b 25 21 30 |1,.)..>.block%!0|
00003720 3d 32 35 36 0d 17 48 0f 62 6c 6f 63 6b 25 21 31 |=256..H.block%!1|
00003730 32 3d 30 0d 17 52 0f 62 6c 6f 63 6b 25 21 31 36 |2=0..R.block%!16|
00003740 3d 31 0d 17 5c 13 62 6c 6f 63 6b 25 21 32 30 3d |=1..\.block%!20=|
00003750 77 69 6e 64 25 0d 17 66 13 62 6c 6f 63 6b 25 21 |wind%..f.block%!|
00003760 32 34 3d 69 63 6f 6e 25 0d 17 70 11 62 6c 6f 63 |24=icon%..p.bloc|
00003770 6b 25 21 32 38 3d 78 78 25 0d 17 7a 11 62 6c 6f |k%!28=xx%..z.blo|
00003780 63 6b 25 21 33 32 3d 79 79 25 0d 17 84 1b 62 6c |ck%!32=yy%....bl|
00003790 6f 63 6b 25 21 33 36 3d 72 65 61 64 6c 65 6e 67 |ock%!36=readleng|
000037a0 74 68 25 21 30 0d 17 8e 15 62 6c 6f 63 6b 25 21 |th%!0....block%!|
000037b0 34 30 3d 74 79 70 65 25 21 30 0d 17 98 1e 24 28 |40=type%!0....$(|
000037c0 62 6c 6f 63 6b 25 2b 34 34 29 3d 24 66 69 6c 65 |block%+44)=$file|
000037d0 6e 61 6d 65 25 2b bd 30 0d 17 a2 25 c8 99 26 30 |name%+.0...%..&0|
000037e0 30 30 34 30 30 45 37 2c 31 37 2c 62 6c 6f 63 6b |00400E7,17,block|
000037f0 25 2c 77 69 6e 64 25 2c 69 63 6f 6e 25 0d 17 ac |%,wind%,icon%...|
00003800 1e f2 75 73 65 6c 69 63 6f 6e 28 6d 61 69 6e 25 |..uselicon(main%|
00003810 2c 74 65 6d 70 69 63 6f 6e 25 29 0d 17 b6 0f c9 |,tempicon%).....|
00003820 20 73 61 76 65 64 72 61 77 25 0d 17 c0 10 62 6c | savedraw%....bl|
00003830 6f 63 6b 25 21 30 3d 32 35 36 0d 17 ca 0f 62 6c |ock%!0=256....bl|
00003840 6f 63 6b 25 21 31 32 3d 30 0d 17 d4 0f 62 6c 6f |ock%!12=0....blo|
00003850 63 6b 25 21 31 36 3d 31 0d 17 de 13 62 6c 6f 63 |ck%!16=1....bloc|
00003860 6b 25 21 32 30 3d 77 69 6e 64 25 0d 17 e8 13 62 |k%!20=wind%....b|
00003870 6c 6f 63 6b 25 21 32 34 3d 69 63 6f 6e 25 0d 17 |lock%!24=icon%..|
00003880 f2 11 62 6c 6f 63 6b 25 21 32 38 3d 78 78 25 0d |..block%!28=xx%.|
00003890 17 fc 11 62 6c 6f 63 6b 25 21 33 32 3d 79 79 25 |...block%!32=yy%|
000038a0 0d 18 06 0f 62 6c 6f 63 6b 25 21 33 36 3d 31 0d |....block%!36=1.|
000038b0 18 10 12 62 6c 6f 63 6b 25 21 34 30 3d 26 61 66 |...block%!40=&af|
000038c0 66 0d 18 1a 16 62 62 6c 6f 63 6b 25 3d 62 6c 6f |f....bblock%=blo|
000038d0 63 6b 25 2b 32 35 36 0d 18 24 19 62 62 6c 6f 63 |ck%+256..$.bbloc|
000038e0 6b 25 21 30 3d 6c 61 73 74 77 69 6e 64 6f 77 25 |k%!0=lastwindow%|
000038f0 0d 18 2e 0f 62 62 6c 6f 63 6b 25 21 34 3d 31 0d |....bblock%!4=1.|
00003900 18 38 19 c8 99 26 30 30 30 34 30 30 43 45 2c 30 |.8...&000400CE,0|
00003910 2c 62 62 6c 6f 63 6b 25 0d 18 42 14 74 65 78 74 |,bblock%..B.text|
00003920 25 3d 62 62 6c 6f 63 6b 25 21 32 38 0d 18 4c 13 |%=bblock%!28..L.|
00003930 77 24 3d a4 67 4c 6e 28 24 74 65 78 74 25 29 0d |w$=.gLn($text%).|
00003940 18 56 16 24 28 62 6c 6f 63 6b 25 2b 34 34 29 3d |.V.$(block%+44)=|
00003950 77 24 2b bd 30 0d 18 60 25 c8 99 26 30 30 30 34 |w$+.0..`%..&0004|
00003960 30 30 45 37 2c 31 37 2c 62 6c 6f 63 6b 25 2c 77 |00E7,17,block%,w|
00003970 69 6e 64 25 2c 69 63 6f 6e 25 0d 18 6a 27 e7 20 |ind%,icon%..j'. |
00003980 77 69 6e 64 25 3c 3e 73 61 76 65 64 72 61 77 25 |wind%<>savedraw%|
00003990 20 8c 20 c8 99 26 30 30 30 34 30 30 44 34 2c 2d | . ..&000400D4,-|
000039a0 31 0d 18 74 0b c9 20 70 61 6e 65 25 0d 18 7e 37 |1..t.. pane%..~7|
000039b0 e7 20 73 6c 69 64 65 77 69 6e 64 6f 77 25 3e 2d |. slidewindow%>-|
000039c0 31 20 80 20 73 6c 69 64 65 69 63 6f 6e 25 3e 2d |1 . slideicon%>-|
000039d0 31 20 80 20 73 6c 69 64 65 73 69 7a 65 25 3e 2d |1 . slidesize%>-|
000039e0 31 20 8c 0d 18 88 1d 73 69 7a 65 25 3d 73 69 7a |1 .....size%=siz|
000039f0 65 6d 61 78 78 25 2d 73 69 7a 65 6d 69 6e 78 25 |emaxx%-sizeminx%|
00003a00 0d 18 92 1f 70 70 6f 73 25 3d 28 6f 6c 64 77 6f |....ppos%=(oldwo|
00003a10 72 6b 78 25 2d 73 69 7a 65 6d 69 6e 78 25 29 0d |rkx%-sizeminx%).|
00003a20 18 9c 1e 6e 75 6d 25 3d 28 72 72 61 6e 67 65 25 |...num%=(rrange%|
00003a30 2f 73 69 7a 65 25 29 2a 70 70 6f 73 25 0d 18 a6 |/size%)*ppos%...|
00003a40 13 c8 8e 20 73 6c 69 64 65 69 63 6f 6e 25 20 ca |... slideicon% .|
00003a50 0d 18 b0 0e c9 20 32 38 2c 33 31 2c 33 34 0d 18 |..... 28,31,34..|
00003a60 ba 13 6f 6c 64 77 6f 72 6b 78 25 3d 6e 65 77 78 |..oldworkx%=newx|
00003a70 25 0d 18 c4 05 cb 0d 18 ce 05 3a 0d 18 d8 13 73 |%.........:....s|
00003a80 6c 69 64 65 77 69 6e 64 6f 77 25 3d 2d 31 0d 18 |lidewindow%=-1..|
00003a90 e2 11 73 6c 69 64 65 69 63 6f 6e 25 3d 2d 31 0d |..slideicon%=-1.|
00003aa0 18 ec 11 73 6c 69 64 65 73 69 7a 65 25 3d 2d 31 |...slidesize%=-1|
00003ab0 0d 18 f6 05 cd 0d 19 00 05 cb 0d 19 0a 05 e1 0d |................|
00003ac0 19 14 11 dd 20 f2 6b 65 79 70 72 65 73 73 65 64 |.... .keypressed|
00003ad0 0d 19 1e 12 77 69 6e 64 25 3d 62 6c 6f 63 6b 25 |....wind%=block%|
00003ae0 21 30 0d 19 28 12 69 63 6f 6e 25 3d 62 6c 6f 63 |!0..(.icon%=bloc|
00003af0 6b 25 21 34 0d 19 32 12 6b 65 79 25 3d 62 6c 6f |k%!4..2.key%=blo|
00003b00 63 6b 25 21 32 34 0d 19 3c 0d c8 8e 20 6b 65 79 |ck%!24..<... key|
00003b10 25 20 ca 0d 19 46 0c c9 20 33 39 38 2c 31 33 0d |% ...F.. 398,13.|
00003b20 19 50 15 e7 20 77 69 6e 64 25 3d 73 61 76 65 61 |.P.. wind%=savea|
00003b30 73 25 20 8c 0d 19 5a 24 e7 20 a7 a4 69 63 6f 6e |s% ...Z$. ..icon|
00003b40 74 65 78 74 28 73 61 76 65 61 73 25 2c 31 29 2c |text(saveas%,1),|
00003b50 22 2e 22 29 3d 30 20 8c 0d 19 64 48 f2 61 6c 65 |".")=0 ...dH.ale|
00003b60 72 74 28 22 54 72 65 65 22 2c 22 54 6f 20 73 61 |rt("Tree","To sa|
00003b70 76 65 2c 20 64 72 61 67 20 74 68 65 20 66 69 6c |ve, drag the fil|
00003b80 65 20 69 63 6f 6e 20 74 6f 20 61 20 64 69 72 65 |e icon to a dire|
00003b90 63 74 6f 72 79 20 76 69 65 77 65 72 22 2c 32 29 |ctory viewer",2)|
00003ba0 0d 19 6e 12 c8 99 26 30 30 30 34 30 30 44 34 2c |..n...&000400D4,|
00003bb0 2d 31 0d 19 78 05 cc 0d 19 82 16 70 6f 6f 77 69 |-1..x......poowi|
00003bc0 6e 64 6f 77 25 3d 73 61 76 65 61 73 25 0d 19 8c |ndow%=saveas%...|
00003bd0 1f f2 73 61 76 65 28 a4 69 63 6f 6e 74 65 78 74 |..save(.icontext|
00003be0 28 73 61 76 65 61 73 25 2c 31 29 29 0d 19 96 13 |(saveas%,1))....|
00003bf0 c8 99 26 30 30 30 34 30 30 44 34 2c 2c 2d 31 0d |..&000400D4,,-1.|
00003c00 19 a0 05 cd 0d 19 aa 05 cd 0d 19 b4 17 e7 20 77 |.............. w|
00003c10 69 6e 64 25 3d 73 61 76 65 74 72 65 65 25 20 8c |ind%=savetree% .|
00003c20 0d 19 be 26 e7 20 a7 a4 69 63 6f 6e 74 65 78 74 |...&. ..icontext|
00003c30 28 73 61 76 65 74 72 65 65 25 2c 31 29 2c 22 2e |(savetree%,1),".|
00003c40 22 29 3d 30 20 8c 0d 19 c8 48 f2 61 6c 65 72 74 |")=0 ....H.alert|
00003c50 28 22 54 72 65 65 22 2c 22 54 6f 20 73 61 76 65 |("Tree","To save|
00003c60 2c 20 64 72 61 67 20 74 68 65 20 66 69 6c 65 20 |, drag the file |
00003c70 69 63 6f 6e 20 74 6f 20 61 20 64 69 72 65 63 74 |icon to a direct|
00003c80 6f 72 79 20 76 69 65 77 65 72 22 2c 32 29 0d 19 |ory viewer",2)..|
00003c90 d2 12 c8 99 26 30 30 30 34 30 30 44 34 2c 2d 31 |....&000400D4,-1|
00003ca0 0d 19 dc 05 cc 0d 19 e6 18 70 6f 6f 77 69 6e 64 |.........poowind|
00003cb0 6f 77 25 3d 73 61 76 65 74 72 65 65 25 0d 19 f0 |ow%=savetree%...|
00003cc0 21 f2 73 61 76 65 28 a4 69 63 6f 6e 74 65 78 74 |!.save(.icontext|
00003cd0 28 73 61 76 65 74 72 65 65 25 2c 31 29 29 0d 19 |(savetree%,1))..|
00003ce0 fa 13 c8 99 26 30 30 30 34 30 30 44 34 2c 2c 2d |....&000400D4,,-|
00003cf0 31 0d 1a 04 05 cd 0d 1a 0e 05 cd 0d 1a 18 05 7f |1...............|
00003d00 0d 1a 22 1d c8 99 20 22 57 69 6d 70 5f 50 72 6f |.."... "Wimp_Pro|
00003d10 63 65 73 73 4b 65 79 22 2c 6b 65 79 25 0d 1a 2c |cessKey",key%..,|
00003d20 05 cb 0d 1a 36 05 e1 0d 1a 40 14 dd 20 f2 6d 65 |....6....@.. .me|
00003d30 6e 75 73 65 6c 65 63 74 69 6f 6e 0d 1a 4a 14 c8 |nuselection..J..|
00003d40 8e 20 6d 65 6e 75 6e 75 6d 62 65 72 25 20 ca 0d |. menunumber% ..|
00003d50 1a 54 07 c9 20 31 0d 1a 5e 2b c8 99 26 30 30 30 |.T.. 1..^+..&000|
00003d60 34 30 30 44 35 2c 2c 6d 61 69 6e 6d 65 6e 75 25 |400D5,,mainmenu%|
00003d70 2c 62 6c 6f 63 6b 25 2c 62 6c 6f 63 6b 25 2b 32 |,block%,block%+2|
00003d80 34 0d 1a 68 1d 74 72 75 6e 63 24 3d a4 67 4c 6e |4..h.trunc$=.gLn|
00003d90 28 24 28 62 6c 6f 63 6b 25 2b 32 34 29 29 0d 1a |($(block%+24))..|
00003da0 72 15 e7 20 74 72 75 6e 63 24 3d 22 51 75 69 74 |r.. trunc$="Quit|
00003db0 22 20 8c 0d 1a 7c 0a 65 78 69 74 3d b9 0d 1a 86 |" ...|.exit=....|
00003dc0 0e 6d 61 6b 65 65 78 69 74 3d b9 0d 1a 90 17 f2 |.makeexit=......|
00003dd0 63 6c 6f 73 65 77 69 6e 64 6f 77 28 6d 61 69 6e |closewindow(main|
00003de0 25 29 0d 1a 9a 05 cd 0d 1a a4 19 e7 20 74 72 75 |%).......... tru|
00003df0 6e 63 24 3d 22 4f 70 74 69 6f 6e 73 8c 22 20 8c |nc$="Options." .|
00003e00 0d 1a ae 09 f2 70 61 6e 65 0d 1a b8 1b f2 6f 70 |.....pane.....op|
00003e10 65 6e 77 69 6e 64 6f 77 28 6f 70 74 69 6f 6e 73 |enwindow(options|
00003e20 25 2c a3 29 0d 1a c2 05 cd 0d 1a cc 07 c9 20 32 |%,.).......... 2|
00003e30 0d 1a d6 2c c8 99 26 30 30 30 34 30 30 44 35 2c |...,..&000400D5,|
00003e40 2c 6f 74 68 65 72 6d 65 6e 75 25 2c 62 6c 6f 63 |,othermenu%,bloc|
00003e50 6b 25 2c 62 6c 6f 63 6b 25 2b 32 34 0d 1a e0 1d |k%,block%+24....|
00003e60 74 72 75 6e 63 24 3d a4 67 4c 6e 28 24 28 62 6c |trunc$=.gLn($(bl|
00003e70 6f 63 6b 25 2b 32 34 29 29 0d 1a ea 15 e7 20 74 |ock%+24))..... t|
00003e80 72 75 6e 63 24 3d 22 51 75 69 74 22 20 8c 0d 1a |runc$="Quit" ...|
00003e90 f4 0e 6d 61 6b 65 65 78 69 74 3d b9 0d 1a fe 0c |..makeexit=.....|
00003ea0 65 78 69 74 20 3d 20 b9 0d 1b 08 17 f2 63 6c 6f |exit = ......clo|
00003eb0 73 65 77 69 6e 64 6f 77 28 6d 61 69 6e 25 29 0d |sewindow(main%).|
00003ec0 1b 12 05 cd 0d 1b 1c 2a e7 20 74 72 75 6e 63 24 |.......*. trunc$|
00003ed0 3d 22 52 65 44 72 61 77 20 49 63 6f 6e 73 22 20 |="ReDraw Icons" |
00003ee0 8c 20 f2 6d 61 6a 6f 72 72 65 64 72 61 77 0d 1b |. .majorredraw..|
00003ef0 26 37 e7 20 74 72 75 6e 63 24 3d 22 4f 70 65 6e |&7. trunc$="Open|
00003f00 20 50 61 72 65 6e 74 22 20 8c 20 ff 28 22 46 49 | Parent" . .("FI|
00003f10 4c 45 52 5f 4f 50 45 4e 44 49 52 20 22 2b 70 6f |LER_OPENDIR "+po|
00003f20 6f 75 70 24 29 0d 1b 30 24 e7 20 74 72 75 6e 63 |oup$)..0$. trunc|
00003f30 24 3d 22 53 65 61 72 63 68 8c 22 20 8c 20 f2 6f |$="Search." . .o|
00003f40 70 65 6e 73 65 61 72 63 68 0d 1b 3a 19 e7 20 74 |pensearch..:.. t|
00003f50 72 75 6e 63 24 3d 22 4f 70 74 69 6f 6e 73 8c 22 |runc$="Options."|
00003f60 20 8c 0d 1b 44 09 f2 70 61 6e 65 0d 1b 4e 1b f2 | ...D..pane..N..|
00003f70 6f 70 65 6e 77 69 6e 64 6f 77 28 6f 70 74 69 6f |openwindow(optio|
00003f80 6e 73 25 2c a3 29 0d 1b 58 05 cd 0d 1b 62 05 cb |ns%,.)..X....b..|
00003f90 0d 1b 6c 1b c8 99 26 30 30 30 34 30 30 43 46 2c |..l...&000400CF,|
00003fa0 2c 62 6c 6f 63 6b 25 2b 32 35 36 0d 1b 76 13 62 |,block%+256..v.b|
00003fb0 72 72 25 3d 62 6c 6f 63 6b 25 2b 32 35 36 0d 1b |rr%=block%+256..|
00003fc0 80 12 62 75 74 74 6f 6e 25 3d 62 72 72 25 21 38 |..button%=brr%!8|
00003fd0 0d 1b 8a 11 e7 20 62 75 74 74 6f 6e 25 3d 31 20 |..... button%=1 |
00003fe0 8c 0d 1b 94 41 e7 20 6d 65 6e 75 6e 75 6d 62 65 |....A. menunumbe|
00003ff0 72 25 3d 31 20 8c 20 c8 99 20 26 30 30 30 34 30 |r%=1 . .. &00040|
00004000 30 44 34 2c 2c 6d 61 69 6e 6d 65 6e 75 25 2c 62 |0D4,,mainmenu%,b|
00004010 72 72 25 21 30 2d 36 38 2c 28 36 34 2a 34 29 2b |rr%!0-68,(64*4)+|
00004020 36 34 0d 1b 9e 3f e7 20 6d 65 6e 75 6e 75 6d 62 |64...?. menunumb|
00004030 65 72 25 3d 32 20 8c 20 c8 99 20 26 30 30 30 34 |er%=2 . .. &0004|
00004040 30 30 44 34 2c 2c 6f 74 68 65 72 6d 65 6e 75 25 |00D4,,othermenu%|
00004050 2c 62 72 72 25 21 30 2d 36 38 2c 62 72 72 25 21 |,brr%!0-68,brr%!|
00004060 34 0d 1b a8 05 cd 0d 1b b2 05 e1 0d 1b bc 05 e1 |4...............|
00004070 0d 1b c6 14 dd 20 f2 73 63 72 6f 6c 6c 72 65 71 |..... .scrollreq|
00004080 75 65 73 74 0d 1b d0 05 e1 0d 1b da 10 dd 20 f2 |uest.......... .|
00004090 6c 6f 73 65 63 61 72 65 74 0d 1b e4 05 e1 0d 1b |losecaret.......|
000040a0 ee 10 dd 20 f2 67 61 69 6e 63 61 72 65 74 0d 1b |... .gaincaret..|
000040b0 f8 05 e1 0d 1c 02 12 dd 20 f2 75 73 65 72 6d 65 |........ .userme|
000040c0 73 73 61 67 65 0d 1c 0c 07 ea 20 85 0d 1c 16 2a |ssage..... ....*|
000040d0 ee 20 85 20 ea 20 f2 61 6c 65 72 74 28 22 45 72 |. . . .alert("Er|
000040e0 72 6f 72 20 66 72 6f 6d 20 54 72 65 65 22 2c f6 |ror from Tree",.|
000040f0 24 2c 30 29 3a e1 0d 1c 20 12 c8 8e 20 62 6c 6f |$,0):... ... blo|
00004100 63 6b 25 21 31 36 20 ca 0d 1c 2a 07 c9 20 30 0d |ck%!16 ...*.. 0.|
00004110 1c 34 0c 65 78 69 74 20 3d 20 b9 0d 1c 3e 07 c9 |.4.exit = ...>..|
00004120 20 32 0d 1c 48 20 f2 73 61 76 65 28 a4 67 65 74 | 2..H .save(.get|
00004130 73 74 72 69 6e 67 28 62 6c 6f 63 6b 25 2b 34 34 |string(block%+44|
00004140 29 29 0d 1c 52 0c c9 20 26 38 30 31 34 37 0d 1c |))..R.. &80147..|
00004150 5c 13 f2 67 65 74 70 72 69 6e 74 65 72 69 6e 66 |\..getprinterinf|
00004160 6f 0d 1c 66 04 0d 1c 70 05 cb 0d 1c 7a 05 e1 0d |o..f...p....z...|
00004170 1c 84 1a dd 20 f2 75 73 65 72 6d 65 73 73 61 67 |.... .usermessag|
00004180 65 72 65 63 6f 72 64 65 64 0d 1c 8e 07 ea 20 85 |erecorded..... .|
00004190 0d 1c 98 2a ee 20 85 20 ea 20 f2 61 6c 65 72 74 |...*. . . .alert|
000041a0 28 22 45 72 72 6f 72 20 66 72 6f 6d 20 54 72 65 |("Error from Tre|
000041b0 65 22 2c f6 24 2c 30 29 3a e1 0d 1c a2 12 c8 8e |e",.$,0):.......|
000041c0 20 62 6c 6f 63 6b 25 21 31 36 20 ca 0d 1c ac 07 | block%!16 .....|
000041d0 c9 20 30 0d 1c b6 0c 65 78 69 74 20 3d 20 b9 0d |. 0....exit = ..|
000041e0 1c c0 0c c9 20 26 38 30 31 34 32 0d 1c ca 14 e7 |.... &80142.....|
000041f0 20 64 6f 70 72 69 6e 74 25 20 80 20 a3 20 8c 0d | doprint% . . ..|
00004200 1c d4 0e 64 6f 70 72 69 6e 74 25 3d a3 0d 1c de |...doprint%=....|
00004210 5f f2 61 6c 65 72 74 28 22 4d 65 73 73 61 67 65 |_.alert("Message|
00004220 20 66 72 6f 6d 20 54 72 65 65 22 2c 22 4c 6f 61 | from Tree","Loa|
00004230 64 20 74 68 65 20 52 69 73 63 4f 53 20 33 20 21 |d the RiscOS 3 !|
00004240 50 72 69 6e 74 65 72 73 20 61 70 70 6c 69 63 61 |Printers applica|
00004250 74 69 6f 6e 20 74 6f 20 70 72 69 6e 74 20 66 72 |tion to print fr|
00004260 6f 6d 20 54 72 65 65 2e 22 2c 30 29 0d 1c e8 05 |om Tree.",0)....|
00004270 cd 0d 1c f2 07 c9 20 33 0d 1c fc 3e f2 6c 6f 61 |...... 3...>.loa|
00004280 64 28 62 6c 6f 63 6b 25 21 32 30 2c 62 6c 6f 63 |d(block%!20,bloc|
00004290 6b 25 21 32 34 2c 62 6c 6f 63 6b 25 21 34 30 2c |k%!24,block%!40,|
000042a0 a4 67 65 74 73 74 72 69 6e 67 28 62 6c 6f 63 6b |.getstring(block|
000042b0 25 2b 34 34 29 29 0d 1d 06 07 c9 20 35 0d 1d 10 |%+44))..... 5...|
000042c0 16 e7 20 62 6c 6f 63 6b 25 21 34 30 3d 26 33 35 |.. block%!40=&35|
000042d0 33 20 8c 0d 1d 1a 16 62 6c 6f 63 6b 25 21 31 32 |3 .....block%!12|
000042e0 3d 62 6c 6f 63 6b 25 21 38 0d 1d 24 23 c8 99 26 |=block%!8..$#..&|
000042f0 30 30 30 36 30 30 45 37 2c 31 37 2c 62 6c 6f 63 |000600E7,17,bloc|
00004300 6b 25 2c 62 6c 6f 63 6b 25 21 32 30 0d 1d 2e 3e |k%,block%!20...>|
00004310 f2 6c 6f 61 64 28 62 6c 6f 63 6b 25 21 32 30 2c |.load(block%!20,|
00004320 62 6c 6f 63 6b 25 21 32 34 2c 62 6c 6f 63 6b 25 |block%!24,block%|
00004330 21 34 30 2c a4 67 65 74 73 74 72 69 6e 67 28 62 |!40,.getstring(b|
00004340 6c 6f 63 6b 25 2b 34 34 29 29 0d 1d 38 05 cd 0d |lock%+44))..8...|
00004350 1d 42 07 c9 20 38 0d 1d 4c 0d e7 20 6d 6f 64 79 |.B.. 8..L.. mody|
00004360 25 20 8c 0d 1d 56 0f 20 20 70 72 65 73 73 65 64 |% ...V. pressed|
00004370 3d b9 0d 1d 60 18 20 20 62 6c 6f 63 6b 25 21 31 |=...`. block%!1|
00004380 32 3d 62 6c 6f 63 6b 25 21 38 0d 1d 6a 27 20 20 |2=block%!8..j' |
00004390 c8 99 20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 |.. "Wimp_SendMes|
000043a0 73 61 67 65 22 2c 31 39 2c 62 6c 6f 63 6b 25 2c |sage",19,block%,|
000043b0 30 0d 1d 74 1a 20 20 f2 73 69 63 6f 6e 28 6d 79 |0..t. .sicon(my|
000043c0 63 6f 6e 74 72 6f 6c 25 2c 36 29 0d 1d 7e 19 20 |control%,6)..~. |
000043d0 20 f2 63 6c 6f 73 65 77 69 6e 64 6f 77 28 6d 61 | .closewindow(ma|
000043e0 69 6e 25 29 0d 1d 88 05 cd 0d 1d 92 05 cb 0d 1d |in%)............|
000043f0 9c 05 e1 0d 1d a6 1d dd 20 f2 75 73 65 72 6d 65 |........ .userme|
00004400 73 73 61 67 65 61 63 6b 6e 6f 77 6c 65 64 67 65 |ssageacknowledge|
00004410 0d 1d b0 12 c8 8e 20 62 6c 6f 63 6b 25 21 31 36 |...... block%!16|
00004420 20 ca 0d 1d ba 0c c9 20 26 38 30 31 34 32 0d 1d | ...... &80142..|
00004430 c4 10 e7 20 64 6f 70 72 69 6e 74 25 20 8c 0d 1d |... doprint% ...|
00004440 ce 0e 64 6f 70 72 69 6e 74 25 3d a3 0d 1d d8 5f |..doprint%=...._|
00004450 f2 61 6c 65 72 74 28 22 4d 65 73 73 61 67 65 20 |.alert("Message |
00004460 66 72 6f 6d 20 54 72 65 65 22 2c 22 4c 6f 61 64 |from Tree","Load|
00004470 20 74 68 65 20 52 69 73 63 4f 53 20 33 20 21 50 | the RiscOS 3 !P|
00004480 72 69 6e 74 65 72 73 20 61 70 70 6c 69 63 61 74 |rinters applicat|
00004490 69 6f 6e 20 74 6f 20 70 72 69 6e 74 20 66 72 6f |ion to print fro|
000044a0 6d 20 54 72 65 65 2e 22 2c 30 29 0d 1d e2 05 cd |m Tree.",0).....|
000044b0 0d 1d ec 05 cb 0d 1d f6 05 e1 0d 1e 00 1b dd a4 |................|
000044c0 70 61 72 73 65 4c 69 6e 65 28 41 24 2c 42 24 28 |parseLine(A$,B$(|
000044d0 29 2c 43 24 29 0d 1e 0a 18 ea 20 44 25 2c 45 25 |),C$)..... D%,E%|
000044e0 3a 44 25 3d de 28 42 24 28 29 2c 31 29 0d 1e 14 |:D%=.(B$(),1)...|
000044f0 18 c8 95 20 28 41 24 3c 3e 22 22 29 80 28 45 25 |... (A$<>"").(E%|
00004500 3c 3d 44 25 29 0d 1e 1e 1c 42 24 28 45 25 29 3d |<=D%)....B$(E%)=|
00004510 a4 70 61 72 73 65 57 6f 72 64 28 41 24 2c 43 24 |.parseWord(A$,C$|
00004520 29 0d 1e 28 09 45 25 2b 3d 31 0d 1e 32 05 ce 0d |)..(.E%+=1..2...|
00004530 1e 3c 07 3d 45 25 0d 1e 46 18 dd a4 70 61 72 73 |.<.=E%..F...pars|
00004540 65 57 6f 72 64 28 f8 20 41 24 2c 42 24 29 0d 1e |eWord(. A$,B$)..|
00004550 50 2c ea 20 43 24 2c 44 25 2c 45 25 2c 46 24 3a |P,. C$,D%,E%,F$:|
00004560 44 25 3d 31 3a 45 25 3d a9 28 41 24 29 3a 43 24 |D%=1:E%=.(A$):C$|
00004570 3d c1 41 24 2c 44 25 2c 31 29 0d 1e 5a 30 c8 95 |=.A$,D%,1)..Z0..|
00004580 20 28 a7 42 24 2c 43 24 29 3d 30 29 80 28 44 25 | (.B$,C$)=0).(D%|
00004590 3c 3d 45 25 29 3a 44 25 2b 3d 31 3a 43 24 3d c1 |<=E%):D%+=1:C$=.|
000045a0 41 24 2c 44 25 2c 31 29 3a ce 0d 1e 64 38 46 24 |A$,D%,1):...d8F$|
000045b0 3d c0 41 24 2c 44 25 2d 31 29 3a 41 24 3d c1 41 |=.A$,D%-1):A$=.A|
000045c0 24 2c 44 25 2b 31 29 3a 45 25 3d a9 28 41 24 29 |$,D%+1):E%=.(A$)|
000045d0 3a 44 25 3d 31 3a 43 24 3d c1 41 24 2c 44 25 2c |:D%=1:C$=.A$,D%,|
000045e0 31 29 0d 1e 6e 30 c8 95 20 28 a7 42 24 2c 43 24 |1)..n0.. (.B$,C$|
000045f0 29 3e 30 29 80 28 44 25 3c 3d 45 25 29 3a 44 25 |)>0).(D%<=E%):D%|
00004600 2b 3d 31 3a 43 24 3d c1 41 24 2c 44 25 2c 31 29 |+=1:C$=.A$,D%,1)|
00004610 3a ce 0d 1e 78 0e 41 24 3d c1 41 24 2c 44 25 29 |:...x.A$=.A$,D%)|
00004620 0d 1e 82 07 3d 46 24 0d 1e 8c 32 dd 20 a4 63 72 |....=F$...2. .cr|
00004630 65 61 74 65 6d 65 6e 75 28 74 69 74 6c 65 24 2c |eatemenu(title$,|
00004640 65 6e 74 72 69 65 73 25 2c 65 6e 74 72 69 65 73 |entries%,entries|
00004650 24 2c 77 69 64 74 68 25 29 0d 1e 96 13 ea 20 6d |$,width%)..... m|
00004660 65 6e 75 25 2c 77 6f 72 64 24 28 29 0d 1e a0 1a |enu%,word$()....|
00004670 de 20 6d 65 6e 75 25 20 32 34 2b 65 6e 74 72 69 |. menu% 24+entri|
00004680 65 73 25 2a 32 34 0d 1e aa 15 de 20 77 6f 72 64 |es%*24..... word|
00004690 24 28 65 6e 74 72 69 65 73 25 29 0d 1e b4 28 74 |$(entries%)...(t|
000046a0 72 25 3d a4 70 61 72 73 65 4c 69 6e 65 28 65 6e |r%=.parseLine(en|
000046b0 74 72 69 65 73 24 2c 77 6f 72 64 24 28 29 2c 22 |tries$,word$(),"|
000046c0 7c 22 29 0d 1e be 0a 74 72 25 2d 3d 31 0d 1e c8 ||")....tr%-=1...|
000046d0 18 24 28 6d 65 6e 75 25 2b 30 29 3d 74 69 74 6c |.$(menu%+0)=titl|
000046e0 65 24 2b bd 30 0d 1e d2 0e 6d 65 6e 75 25 21 31 |e$+.0....menu%!1|
000046f0 32 3d 37 0d 1e dc 0e 6d 65 6e 75 25 21 31 33 3d |2=7....menu%!13=|
00004700 32 0d 1e e6 0e 6d 65 6e 75 25 21 31 34 3d 37 0d |2....menu%!14=7.|
00004710 1e f0 0e 6d 65 6e 75 25 21 31 35 3d 30 0d 1e fa |...menu%!15=0...|
00004720 13 6d 65 6e 75 25 21 31 36 3d 77 69 64 74 68 25 |.menu%!16=width%|
00004730 0d 1f 04 0f 6d 65 6e 75 25 21 32 30 3d 34 34 0d |....menu%!20=44.|
00004740 1f 0e 0e 6d 65 6e 75 25 21 32 34 3d 30 0d 1f 18 |...menu%!24=0...|
00004750 13 e3 20 6c 6f 6f 70 25 3d 30 20 b8 20 74 72 25 |.. loop%=0 . tr%|
00004760 0d 1f 22 14 70 25 3d 28 6c 6f 6f 70 25 2a 32 34 |..".p%=(loop%*24|
00004770 29 2b 32 38 0d 1f 2c 32 e7 20 6c 6f 6f 70 25 3d |)+28..,2. loop%=|
00004780 65 6e 74 72 69 65 73 25 2d 31 20 8c 20 6d 65 6e |entries%-1 . men|
00004790 75 25 21 70 25 3d 31 32 38 20 8b 20 6d 65 6e 75 |u%!p%=128 . menu|
000047a0 25 21 70 25 3d 30 0d 1f 36 1e e7 20 c1 77 6f 72 |%!p%=0..6.. .wor|
000047b0 64 24 28 6c 6f 6f 70 25 29 2c 31 2c 31 29 3d 22 |d$(loop%),1,1)="|
000047c0 2d 22 20 8c 0d 1f 40 0f 6d 65 6e 75 25 21 70 25 |-" ...@.menu%!p%|
000047d0 2b 3d 32 0d 1f 4a 05 cd 0d 1f 54 26 e7 20 74 69 |+=2..J....T&. ti|
000047e0 74 6c 65 24 3d 22 46 69 6c 65 74 79 70 65 73 22 |tle$="Filetypes"|
000047f0 20 8c 20 6d 65 6e 75 25 21 70 25 2b 3d 38 0d 1f | . menu%!p%+=8..|
00004800 5e 09 70 25 2b 3d 34 0d 1f 68 1e e7 20 a7 77 6f |^.p%+=4..h.. .wo|
00004810 72 64 24 28 6c 6f 6f 70 25 29 2c 22 3e 22 29 20 |rd$(loop%),">") |
00004820 3d 20 30 20 8c 0d 1f 72 0f 6d 65 6e 75 25 21 70 |= 0 ...r.menu%!p|
00004830 25 3d 2d 31 0d 1f 7c 05 cc 0d 1f 86 33 6d 65 6e |%=-1..|.....3men|
00004840 75 25 21 70 25 3d a0 28 c1 77 6f 72 64 24 28 6c |u%!p%=.(.word$(l|
00004850 6f 6f 70 25 29 2c a7 77 6f 72 64 24 28 6c 6f 6f |oop%),.word$(loo|
00004860 70 25 29 2c 22 3e 22 29 2b 31 29 29 0d 1f 90 05 |p%),">")+1))....|
00004870 cd 0d 1f 9a 09 70 25 2b 3d 34 0d 1f a4 15 6d 65 |.....p%+=4....me|
00004880 6e 75 25 21 70 25 3d 26 37 30 30 39 30 33 31 0d |nu%!p%=&7009031.|
00004890 1f ae 09 70 25 2b 3d 34 0d 1f b8 1e e7 20 a7 77 |...p%+=4..... .w|
000048a0 6f 72 64 24 28 6c 6f 6f 70 25 29 2c 22 3e 22 29 |ord$(loop%),">")|
000048b0 20 3d 20 30 20 8c 0d 1f c2 1e e7 20 c1 77 6f 72 | = 0 ...... .wor|
000048c0 64 24 28 6c 6f 6f 70 25 29 2c 31 2c 31 29 3d 22 |d$(loop%),1,1)="|
000048d0 2d 22 20 8c 0d 1f cc 20 24 28 6d 65 6e 75 25 2b |-" .... $(menu%+|
000048e0 70 25 29 3d c1 77 6f 72 64 24 28 6c 6f 6f 70 25 |p%)=.word$(loop%|
000048f0 29 2c 32 29 0d 1f d6 05 cc 0d 1f e0 1c 24 28 6d |),2).........$(m|
00004900 65 6e 75 25 2b 70 25 29 3d 77 6f 72 64 24 28 6c |enu%+p%)=word$(l|
00004910 6f 6f 70 25 29 0d 1f ea 05 cd 0d 1f f4 05 cc 0d |oop%)...........|
00004920 1f fe 1e e7 20 c1 77 6f 72 64 24 28 6c 6f 6f 70 |.... .word$(loop|
00004930 25 29 2c 31 2c 31 29 3d 22 2d 22 20 8c 0d 20 08 |%),1,1)="-" .. .|
00004940 35 24 28 6d 65 6e 75 25 2b 70 25 29 3d c1 77 6f |5$(menu%+p%)=.wo|
00004950 72 64 24 28 6c 6f 6f 70 25 29 2c 32 2c a7 77 6f |rd$(loop%),2,.wo|
00004960 72 64 24 28 6c 6f 6f 70 25 29 2c 22 3e 22 29 2d |rd$(loop%),">")-|
00004970 32 29 0d 20 12 05 cc 0d 20 1c 35 24 28 6d 65 6e |2). .... .5$(men|
00004980 75 25 2b 70 25 29 3d c1 77 6f 72 64 24 28 6c 6f |u%+p%)=.word$(lo|
00004990 6f 70 25 29 2c 31 2c a7 77 6f 72 64 24 28 6c 6f |op%),1,.word$(lo|
000049a0 6f 70 25 29 2c 22 3e 22 29 2d 31 29 0d 20 26 05 |op%),">")-1). &.|
000049b0 cd 0d 20 30 05 cd 0d 20 3a 0a ed 6c 6f 6f 70 25 |.. 0... :..loop%|
000049c0 0d 20 44 0a 3d 6d 65 6e 75 25 0d 20 4e 1a dd f2 |. D.=menu%. N...|
000049d0 64 72 61 77 6d 65 6e 75 28 6d 25 2c 78 78 25 2c |drawmenu(m%,xx%,|
000049e0 79 79 25 29 0d 20 58 1c c8 99 20 26 30 30 30 34 |yy%). X... &0004|
000049f0 30 30 44 34 2c 2c 6d 25 2c 78 78 25 2c 79 79 25 |00D4,,m%,xx%,yy%|
00004a00 0d 20 62 05 e1 0d 20 6c 18 dd f2 73 69 63 6f 6e |. b... l...sicon|
00004a10 28 77 69 6e 64 25 2c 69 63 6f 6e 25 29 0d 20 76 |(wind%,icon%). v|
00004a20 12 62 6c 6f 63 6b 25 21 30 3d 77 69 6e 64 25 0d |.block%!0=wind%.|
00004a30 20 80 12 62 6c 6f 63 6b 25 21 34 3d 69 63 6f 6e | ..block%!4=icon|
00004a40 25 0d 20 8a 25 62 6c 6f 63 6b 25 21 38 3d 25 31 |%. .%block%!8=%1|
00004a50 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 |0000000000000000|
00004a60 30 30 30 30 30 30 0d 20 94 26 62 6c 6f 63 6b 25 |000000. .&block%|
00004a70 21 31 32 3d 25 31 30 30 30 30 30 30 30 30 30 30 |!12=%10000000000|
00004a80 30 30 30 30 30 30 30 30 30 30 30 30 0d 20 9e 15 |000000000000. ..|
00004a90 c8 99 20 26 34 30 30 43 44 2c 2c 62 6c 6f 63 6b |.. &400CD,,block|
00004aa0 25 0d 20 a8 05 e1 0d 20 b2 19 dd f2 75 73 69 63 |%. .... ....usic|
00004ab0 6f 6e 28 77 69 6e 64 25 2c 69 63 6f 6e 25 29 0d |on(wind%,icon%).|
00004ac0 20 bc 12 62 6c 6f 63 6b 25 21 30 3d 77 69 6e 64 | ..block%!0=wind|
00004ad0 25 0d 20 c6 12 62 6c 6f 63 6b 25 21 34 3d 69 63 |%. ..block%!4=ic|
00004ae0 6f 6e 25 0d 20 d0 0e 62 6c 6f 63 6b 25 21 38 3d |on%. ..block%!8=|
00004af0 30 0d 20 da 26 62 6c 6f 63 6b 25 21 31 32 3d 25 |0. .&block%!12=%|
00004b00 31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 |1000000000000000|
00004b10 30 30 30 30 30 30 30 0d 20 e4 15 c8 99 20 26 34 |0000000. .... &4|
00004b20 30 30 43 44 2c 2c 62 6c 6f 63 6b 25 0d 20 ee 05 |00CD,,block%. ..|
00004b30 e1 0d 20 f8 1a dd f2 73 65 6c 69 63 6f 6e 28 77 |.. ....selicon(w|
00004b40 69 6e 64 25 2c 69 63 6f 6e 25 29 0d 21 02 12 62 |ind%,icon%).!..b|
00004b50 6c 6f 63 6b 25 21 30 3d 77 69 6e 64 25 0d 21 0c |lock%!0=wind%.!.|
00004b60 12 62 6c 6f 63 6b 25 21 34 3d 69 63 6f 6e 25 0d |.block%!4=icon%.|
00004b70 21 16 24 62 6c 6f 63 6b 25 21 38 3d 25 31 30 30 |!.$block%!8=%100|
00004b80 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 |0000000000000000|
00004b90 30 30 30 0d 21 20 25 62 6c 6f 63 6b 25 21 31 32 |000.! %block%!12|
00004ba0 3d 25 31 30 30 30 30 30 30 30 30 30 30 30 30 30 |=%10000000000000|
00004bb0 30 30 30 30 30 30 30 30 0d 21 2a 15 c8 99 20 26 |00000000.!*... &|
00004bc0 34 30 30 43 44 2c 2c 62 6c 6f 63 6b 25 0d 21 34 |400CD,,block%.!4|
00004bd0 05 e1 0d 21 3e 1b dd f2 75 73 65 6c 69 63 6f 6e |...!>...uselicon|
00004be0 28 77 69 6e 64 25 2c 69 63 6f 6e 25 29 0d 21 48 |(wind%,icon%).!H|
00004bf0 12 62 6c 6f 63 6b 25 21 30 3d 77 69 6e 64 25 0d |.block%!0=wind%.|
00004c00 21 52 12 62 6c 6f 63 6b 25 21 34 3d 69 63 6f 6e |!R.block%!4=icon|
00004c10 25 0d 21 5c 0e 62 6c 6f 63 6b 25 21 38 3d 30 0d |%.!\.block%!8=0.|
00004c20 21 66 25 62 6c 6f 63 6b 25 21 31 32 3d 25 31 30 |!f%block%!12=%10|
00004c30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 |0000000000000000|
00004c40 30 30 30 30 0d 21 70 15 c8 99 20 26 34 30 30 43 |0000.!p... &400C|
00004c50 44 2c 2c 62 6c 6f 63 6b 25 0d 21 7a 05 e1 0d 21 |D,,block%.!z...!|
00004c60 84 10 dd f2 74 6d 69 28 6d 25 2c 69 25 29 0d 21 |....tmi(m%,i%).!|
00004c70 8e 16 75 69 3d 6d 25 2b 28 32 38 2b 28 32 34 2a |..ui=m%+(28+(24*|
00004c80 69 25 29 29 0d 21 98 10 21 75 69 3d 21 75 69 20 |i%)).!..!ui=!ui |
00004c90 84 20 25 31 0d 21 a2 05 e1 0d 21 ac 11 dd f2 75 |. %1.!....!....u|
00004ca0 74 6d 69 28 6d 25 2c 69 25 29 0d 21 b6 16 75 69 |tmi(m%,i%).!..ui|
00004cb0 3d 6d 25 2b 28 32 38 2b 28 32 34 2a 69 25 29 29 |=m%+(28+(24*i%))|
00004cc0 0d 21 c0 11 21 75 69 3d 21 75 69 20 80 ac 20 25 |.!..!ui=!ui .. %|
00004cd0 31 0d 21 ca 05 e1 0d 21 d4 10 dd f2 73 6d 69 28 |1.!....!....smi(|
00004ce0 6d 25 2c 69 25 29 0d 21 de 16 75 69 3d 6d 25 2b |m%,i%).!..ui=m%+|
00004cf0 28 33 36 2b 28 32 34 2a 69 25 29 29 0d 21 e8 26 |(36+(24*i%)).!.&|
00004d00 21 75 69 3d 21 75 69 20 84 20 25 31 30 30 30 30 |!ui=!ui . %10000|
00004d10 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 |0000000000000000|
00004d20 30 30 0d 21 f2 05 e1 0d 21 fc 11 dd f2 75 73 6d |00.!....!....usm|
00004d30 69 28 6d 25 2c 69 25 29 0d 22 06 16 75 69 3d 6d |i(m%,i%)."..ui=m|
00004d40 25 2b 28 33 36 2b 28 32 34 2a 69 25 29 29 0d 22 |%+(36+(24*i%))."|
00004d50 10 27 21 75 69 3d 21 75 69 20 80 ac 20 25 31 30 |.'!ui=!ui .. %10|
00004d60 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 |0000000000000000|
00004d70 30 30 30 30 30 0d 22 1a 05 e1 0d 22 24 0d dd a4 |00000."...."$...|
00004d80 67 4c 6e 28 41 24 29 0d 22 2e 08 ea 20 42 25 0d |gLn(A$)."... B%.|
00004d90 22 38 16 e7 20 a7 41 24 2c 22 2e 22 29 3d 30 20 |"8.. .A$,".")=0 |
00004da0 8c 20 3d 41 24 0d 22 42 12 e7 20 a7 41 24 2c 22 |. =A$."B.. .A$,"|
00004db0 2e 22 29 3e 30 20 8c 0d 22 4c 0a 42 25 3d a9 41 |.")>0 .."L.B%=.A|
00004dc0 24 0d 22 56 1d c8 95 28 c1 41 24 2c 42 25 2c 31 |$."V...(.A$,B%,1|
00004dd0 29 3c 3e 22 2e 22 29 80 28 42 25 3e 30 29 0d 22 |)<>".").(B%>0)."|
00004de0 60 09 42 25 2d 3d 31 0d 22 6a 05 ce 0d 22 74 10 |`.B%-=1."j..."t.|
00004df0 3d c2 41 24 2c a9 41 24 2d 42 25 29 0d 22 7e 18 |=.A$,.A$-B%)."~.|
00004e00 dd 20 a4 67 65 74 73 74 72 69 6e 67 28 61 72 72 |. .getstring(arr|
00004e10 61 79 25 29 0d 22 88 14 ea 20 70 61 74 68 24 2c |ay%)."... path$,|
00004e20 70 6f 69 6e 74 65 72 25 0d 22 92 0c 70 61 74 68 |pointer%."..path|
00004e30 24 3d 22 22 0d 22 9c 13 70 6f 69 6e 74 65 72 25 |$=""."..pointer%|
00004e40 3d 61 72 72 61 79 25 0d 22 a6 05 f5 0d 22 b0 15 |=array%."...."..|
00004e50 70 61 74 68 24 2b 3d bd 3f 70 6f 69 6e 74 65 72 |path$+=.?pointer|
00004e60 25 0d 22 ba 0f 70 6f 69 6e 74 65 72 25 2b 3d 31 |%."..pointer%+=1|
00004e70 0d 22 c4 20 fd 20 3f 70 6f 69 6e 74 65 72 25 3d |.". . ?pointer%=|
00004e80 30 20 84 20 3f 70 6f 69 6e 74 65 72 25 3d 31 33 |0 . ?pointer%=13|
00004e90 0d 22 ce 0a 3d 70 61 74 68 24 0d 22 d8 29 dd f2 |."..=path$.".)..|
00004ea0 6c 6f 61 64 28 77 69 6e 64 6f 77 25 2c 69 63 6f |load(window%,ico|
00004eb0 6e 25 2c 66 69 6c 65 74 79 70 65 25 2c 70 61 74 |n%,filetype%,pat|
00004ec0 68 24 29 0d 22 e2 07 ea 20 85 0d 22 ec 2a ee 20 |h$)."... ..".*. |
00004ed0 85 20 ea 20 f2 61 6c 65 72 74 28 22 45 72 72 6f |. . .alert("Erro|
00004ee0 72 20 66 72 6f 6d 20 54 72 65 65 22 2c f6 24 2c |r from Tree",.$,|
00004ef0 30 29 3a e1 0d 22 f6 34 e7 20 77 69 6e 64 6f 77 |0):..".4. window|
00004f00 25 3d 2d 32 20 80 20 66 69 6c 65 74 79 70 65 25 |%=-2 . filetype%|
00004f10 3c 3e 26 33 35 33 20 8c 20 f2 64 6f 66 69 6c 65 |<>&353 . .dofile|
00004f20 73 28 70 61 74 68 24 29 0d 23 00 16 e7 20 66 69 |s(path$).#... fi|
00004f30 6c 65 74 79 70 65 25 3d 26 33 35 33 20 8c 0d 23 |letype%=&353 ..#|
00004f40 0a 17 f2 63 6c 6f 73 65 77 69 6e 64 6f 77 28 6d |...closewindow(m|
00004f50 61 69 6e 25 29 0d 23 14 16 f2 6c 6f 61 64 6d 79 |ain%).#...loadmy|
00004f60 66 69 6c 65 28 70 61 74 68 24 29 0d 23 1e 05 cd |file(path$).#...|
00004f70 0d 23 28 05 e1 0d 23 32 0e dd f2 73 61 76 65 28 |.#(...#2...save(|
00004f80 70 24 29 0d 23 3c 07 ea 20 85 0d 23 46 2a ee 20 |p$).#<.. ..#F*. |
00004f90 85 20 ea 20 f2 61 6c 65 72 74 28 22 45 72 72 6f |. . .alert("Erro|
00004fa0 72 20 66 72 6f 6d 20 54 72 65 65 22 2c f6 24 2c |r from Tree",.$,|
00004fb0 30 29 3a e1 0d 23 50 10 c8 99 20 26 30 30 30 36 |0):..#P... &0006|
00004fc0 32 34 30 31 0d 23 5a 13 c8 8e 20 70 6f 6f 77 69 |2401.#Z... poowi|
00004fd0 6e 64 6f 77 25 20 ca 0d 23 64 0d c9 20 73 61 76 |ndow% ..#d.. sav|
00004fe0 65 61 73 25 0d 23 6e 0f c8 99 26 30 30 30 34 30 |eas%.#n...&00040|
00004ff0 36 43 30 0d 23 78 3b c8 99 20 22 4f 53 5f 46 69 |6C0.#x;.. "OS_Fi|
00005000 6c 65 22 2c 31 30 2c 70 24 2c 26 33 35 33 2c 2c |le",10,p$,&353,,|
00005010 69 63 6f 6e 64 61 74 61 25 2c 69 63 6f 6e 64 61 |icondata%,iconda|
00005020 74 61 25 2b 62 6c 6f 63 6b 73 69 7a 65 25 0d 23 |ta%+blocksize%.#|
00005030 82 0f c8 99 26 30 30 30 34 30 36 43 32 0d 23 8c |....&000406C2.#.|
00005040 0b 6d 6f 64 79 25 3d a3 0d 23 96 17 e7 20 6d 61 |.mody%=..#... ma|
00005050 6b 65 65 78 69 74 20 8c 20 65 78 69 74 3d b9 0d |keexit . exit=..|
00005060 23 a0 10 e7 20 66 6c 75 66 65 6e 64 25 20 8c 0d |#... flufend% ..|
00005070 23 aa 12 62 6c 6f 63 6b 25 21 30 3d 6d 61 69 6e |#..block%!0=main|
00005080 25 0d 23 b4 18 c8 99 20 26 30 30 30 34 30 30 43 |%.#.... &000400C|
00005090 36 2c 2c 62 6c 6f 63 6b 25 0d 23 be 05 cd 0d 23 |6,,block%.#....#|
000050a0 c8 29 e7 20 70 72 65 73 73 65 64 20 8c 20 c8 99 |.). pressed . ..|
000050b0 20 22 57 69 6d 70 5f 50 72 6f 63 65 73 73 4b 65 | "Wimp_ProcessKe|
000050c0 79 22 2c 26 31 46 43 0d 23 d2 0f c9 20 73 61 76 |y",&1FC.#... sav|
000050d0 65 74 72 65 65 25 0d 23 dc 11 f2 65 78 70 6f 72 |etree%.#...expor|
000050e0 74 28 70 24 2c b9 29 0d 23 e6 0f c9 20 73 61 76 |t(p$,.).#... sav|
000050f0 65 64 72 61 77 25 0d 23 f0 0f f2 64 6f 64 72 61 |edraw%.#...dodra|
00005100 77 28 70 24 29 0d 23 fa 0b c9 20 6d 61 69 6e 25 |w(p$).#... main%|
00005110 0d 24 04 14 e7 20 62 6c 6f 63 6b 25 21 33 36 3d |.$... block%!36=|
00005120 2d 31 20 8c 0d 24 0e 1b f2 67 65 74 76 61 72 73 |-1 ..$...getvars|
00005130 28 74 65 6d 70 69 63 6f 6e 25 2d 31 2c a3 29 0d |(tempicon%-1,.).|
00005140 24 18 10 62 6c 6f 63 6b 25 21 30 3d 32 35 36 0d |$..block%!0=256.|
00005150 24 22 0f 62 6c 6f 63 6b 25 21 31 32 3d 30 0d 24 |$".block%!12=0.$|
00005160 2c 0f 62 6c 6f 63 6b 25 21 31 36 3d 33 0d 24 36 |,.block%!16=3.$6|
00005170 1b 62 6c 6f 63 6b 25 21 33 36 3d 72 65 61 64 6c |.block%!36=readl|
00005180 65 6e 67 74 68 25 21 30 0d 24 40 15 62 6c 6f 63 |ength%!0.$@.bloc|
00005190 6b 25 21 34 30 3d 74 79 70 65 25 21 30 0d 24 4a |k%!40=type%!0.$J|
000051a0 1e 24 28 62 6c 6f 63 6b 25 2b 34 34 29 3d 24 66 |.$(block%+44)=$f|
000051b0 69 6c 65 6e 61 6d 65 25 2b bd 30 0d 24 54 25 c8 |ilename%+.0.$T%.|
000051c0 99 26 30 30 30 34 30 30 45 37 2c 31 37 2c 62 6c |.&000400E7,17,bl|
000051d0 6f 63 6b 25 2c 77 69 6e 64 25 2c 69 63 6f 6e 25 |ock%,wind%,icon%|
000051e0 0d 24 5e 05 cc 0d 24 68 1b f2 67 65 74 76 61 72 |.$^...$h..getvar|
000051f0 73 28 74 65 6d 70 69 63 6f 6e 25 2d 31 2c a3 29 |s(tempicon%-1,.)|
00005200 0d 24 72 22 e7 20 a4 63 68 65 63 6b 66 72 65 65 |.$r". .checkfree|
00005210 73 70 61 63 65 3e 3d 28 34 30 2a 31 30 32 34 29 |space>=(40*1024)|
00005220 20 8c 0d 24 7c 23 70 24 3d c0 70 24 2c a9 28 70 | ..$|#p$=.p$,.(p|
00005230 24 29 2d 28 a9 28 24 66 69 6c 65 6e 61 6d 65 25 |$)-(.($filename%|
00005240 29 2b 31 29 29 0d 24 86 26 c8 99 20 22 57 69 6d |)+1)).$.&.. "Wim|
00005250 70 5f 53 74 61 72 74 54 61 73 6b 22 2c 22 66 69 |p_StartTask","fi|
00005260 6c 65 72 5f 61 63 74 69 6f 6e 22 0d 24 90 10 62 |ler_action".$..b|
00005270 6c 6f 63 6b 25 21 30 3d 32 35 36 0d 24 9a 0f 62 |lock%!0=256.$..b|
00005280 6c 6f 63 6b 25 21 31 32 3d 30 0d 24 a4 12 62 6c |lock%!12=0.$..bl|
00005290 6f 63 6b 25 21 31 36 3d 26 34 30 33 0d 24 ae 16 |ock%!16=&403.$..|
000052a0 63 66 74 32 3d a9 28 24 66 69 6c 65 6e 61 6d 65 |cft2=.($filename|
000052b0 25 29 0d 24 b8 1f c8 95 20 c1 24 66 69 6c 65 6e |%).$.... .$filen|
000052c0 61 6d 65 25 2c 63 66 74 32 2c 31 29 3c 3e 22 2e |ame%,cft2,1)<>".|
000052d0 22 0d 24 c2 0b 63 66 74 32 2d 3d 31 0d 24 cc 05 |".$..cft2-=1.$..|
000052e0 ce 0d 24 d6 20 64 64 64 75 70 24 3d c1 24 66 69 |..$. dddup$=.$fi|
000052f0 6c 65 6e 61 6d 65 25 2c 31 2c 63 66 74 32 2d 31 |lename%,1,cft2-1|
00005300 29 0d 24 e0 1a 24 28 62 6c 6f 63 6b 25 2b 32 30 |).$..$(block%+20|
00005310 29 3d 64 64 64 75 70 24 2b bd 30 0d 24 ea 25 c8 |)=dddup$+.0.$.%.|
00005320 99 20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 |. "Wimp_SendMess|
00005330 61 67 65 22 2c 31 37 2c 62 6c 6f 63 6b 25 2c 30 |age",17,block%,0|
00005340 0d 24 f4 10 62 6c 6f 63 6b 25 21 30 3d 32 35 36 |.$..block%!0=256|
00005350 0d 24 fe 0f 62 6c 6f 63 6b 25 21 31 32 3d 30 0d |.$..block%!12=0.|
00005360 25 08 12 62 6c 6f 63 6b 25 21 31 36 3d 26 34 30 |%..block%!16=&40|
00005370 34 0d 25 12 24 24 28 62 6c 6f 63 6b 25 2b 32 30 |4.%.$$(block%+20|
00005380 29 3d a4 67 4c 6e 28 24 66 69 6c 65 6e 61 6d 65 |)=.gLn($filename|
00005390 25 29 2b bd 30 0d 25 1c 25 c8 99 20 22 57 69 6d |%)+.0.%.%.. "Wim|
000053a0 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 |p_SendMessage",1|
000053b0 37 2c 62 6c 6f 63 6b 25 2c 30 0d 25 26 10 62 6c |7,block%,0.%&.bl|
000053c0 6f 63 6b 25 21 30 3d 32 35 36 0d 25 30 0f 62 6c |ock%!0=256.%0.bl|
000053d0 6f 63 6b 25 21 31 32 3d 30 0d 25 3a 12 62 6c 6f |ock%!12=0.%:.blo|
000053e0 63 6b 25 21 31 36 3d 26 34 30 35 0d 25 44 0f 62 |ck%!16=&405.%D.b|
000053f0 6c 6f 63 6b 25 21 32 30 3d 30 0d 25 4e 14 62 6c |lock%!20=0.%N.bl|
00005400 6f 63 6b 25 21 32 34 3d 25 31 30 30 30 31 0d 25 |ock%!24=%10001.%|
00005410 58 16 24 28 62 6c 6f 63 6b 25 2b 32 38 29 3d 70 |X.$(block%+28)=p|
00005420 24 2b bd 30 0d 25 62 25 c8 99 20 22 57 69 6d 70 |$+.0.%b%.. "Wimp|
00005430 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 37 |_SendMessage",17|
00005440 2c 62 6c 6f 63 6b 25 2c 30 0d 25 6c 05 cc 0d 25 |,block%,0.%l...%|
00005450 76 23 70 24 3d c0 70 24 2c a9 28 70 24 29 2d 28 |v#p$=.p$,.(p$)-(|
00005460 a9 28 24 66 69 6c 65 6e 61 6d 65 25 29 2b 31 29 |.($filename%)+1)|
00005470 29 0d 25 80 3c ff 28 22 43 4f 50 59 20 22 2b 24 |).%.<.("COPY "+$|
00005480 66 69 6c 65 6e 61 6d 65 25 2b 22 20 22 2b 70 24 |filename%+" "+p$|
00005490 2b 22 2e 22 2b a4 67 4c 6e 28 24 66 69 6c 65 6e |+"."+.gLn($filen|
000054a0 61 6d 65 25 29 2b 22 20 52 7e 43 22 29 0d 25 8a |ame%)+" R~C").%.|
000054b0 05 cd 0d 25 94 05 cd 0d 25 9e 0c c9 20 70 72 69 |...%....%... pri|
000054c0 6e 74 25 0d 25 a8 11 f2 65 78 70 6f 72 74 28 70 |nt%.%...export(p|
000054d0 24 2c a3 29 0d 25 b2 0f 62 6c 6f 63 6b 25 21 31 |$,.).%..block%!1|
000054e0 36 3d 33 0d 25 bc 1b e3 20 70 72 69 6e 74 63 6f |6=3.%... printco|
000054f0 75 6e 74 3d 31 20 b8 20 63 6f 70 69 65 73 0d 25 |unt=1 . copies.%|
00005500 c6 2d c8 99 26 30 30 30 34 30 30 45 37 2c 31 37 |.-..&000400E7,17|
00005510 2c 62 6c 6f 63 6b 25 2c 62 6c 6f 63 6b 25 21 32 |,block%,block%!2|
00005520 30 2c 62 6c 6f 63 6b 25 21 32 34 0d 25 d0 10 ed |0,block%!24.%...|
00005530 20 70 72 69 6e 74 63 6f 75 6e 74 0d 25 da 0e 64 | printcount.%..d|
00005540 6f 70 72 69 6e 74 25 3d a3 0d 25 e4 05 cb 0d 25 |oprint%=..%....%|
00005550 ee 63 e7 20 70 24 3c 3e 22 3c 57 69 6d 70 24 53 |.c. p$<>"<Wimp$S|
00005560 63 72 61 70 3e 22 20 80 20 28 70 6f 6f 77 69 6e |crap>" . (poowin|
00005570 64 6f 77 25 3c 3e 6d 61 69 6e 25 29 20 80 20 70 |dow%<>main%) . p|
00005580 6f 6f 77 69 6e 64 6f 77 25 3c 3e 70 72 69 6e 74 |oowindow%<>print|
00005590 25 20 8c 20 f2 69 63 6f 6e 70 75 74 74 65 78 74 |% . .iconputtext|
000055a0 28 70 6f 6f 77 69 6e 64 6f 77 25 2c 31 2c 70 24 |(poowindow%,1,p$|
000055b0 29 0d 25 f8 05 e1 0d 26 02 14 dd f2 6c 6f 61 64 |).%....&....load|
000055c0 6d 79 66 69 6c 65 28 70 24 29 0d 26 0c 07 ea 20 |myfile(p$).&... |
000055d0 85 0d 26 16 2a ee 20 85 20 ea 20 f2 61 6c 65 72 |..&.*. . . .aler|
000055e0 74 28 22 45 72 72 6f 72 20 66 72 6f 6d 20 54 72 |t("Error from Tr|
000055f0 65 65 22 2c f6 24 2c 30 29 3a e1 0d 26 20 12 6c |ee",.$,0):..& .l|
00005600 6f 63 61 6c 73 70 72 69 74 65 73 3d b9 0d 26 2a |ocalsprites=..&*|
00005610 0d 63 6f 6c 75 6d 6e 73 3d a3 0d 26 34 24 61 72 |.columns=..&4$ar|
00005620 63 68 69 25 3d a4 6d 6f 64 75 6c 65 70 72 65 73 |chi%=.modulepres|
00005630 65 6e 74 28 22 53 70 61 72 6b 46 53 22 29 0d 26 |ent("SparkFS").&|
00005640 3e 0f 74 68 65 62 69 67 6f 6e 65 3d 30 0d 26 48 |>.thebigone=0.&H|
00005650 12 62 6c 6f 63 6b 25 21 30 3d 6d 61 69 6e 25 0d |.block%!0=main%.|
00005660 26 52 18 c8 99 20 26 30 30 30 34 30 30 43 33 2c |&R... &000400C3,|
00005670 2c 62 6c 6f 63 6b 25 0d 26 5c 25 c8 99 20 26 30 |,block%.&\%.. &0|
00005680 30 30 34 30 30 43 31 2c 2c 6d 61 69 6e 77 69 6e |00400C1,,mainwin|
00005690 64 6f 77 25 20 b8 20 6d 61 69 6e 25 0d 26 66 0f |dow% . main%.&f.|
000056a0 c8 99 26 30 30 30 34 30 36 43 30 0d 26 70 12 62 |..&000406C0.&p.b|
000056b0 6c 6f 63 6b 25 21 30 3d 6d 61 69 6e 25 0d 26 7a |lock%!0=main%.&z|
000056c0 15 c8 99 20 26 34 30 30 63 63 2c 2c 62 6c 6f 63 |... &400cc,,bloc|
000056d0 6b 25 0d 26 84 16 77 6f 72 6b 6d 69 6e 78 3d 62 |k%.&..workminx=b|
000056e0 6c 6f 63 6b 25 21 34 34 0d 26 8e 16 77 6f 72 6b |lock%!44.&..work|
000056f0 6d 69 6e 79 3d 62 6c 6f 63 6b 25 21 34 38 0d 26 |miny=block%!48.&|
00005700 98 16 77 6f 72 6b 6d 61 78 78 3d 62 6c 6f 63 6b |..workmaxx=block|
00005710 25 21 35 32 0d 26 a2 16 77 6f 72 6b 6d 61 78 79 |%!52.&..workmaxy|
00005720 3d 62 6c 6f 63 6b 25 21 35 36 0d 26 ac 11 69 6e |=block%!56.&..in|
00005730 66 69 6c 65 25 3d 8e 28 70 24 29 0d 26 b6 15 6e |file%=.(p$).&..n|
00005740 65 77 6c 65 6e 25 3d a2 23 69 6e 66 69 6c 65 25 |ewlen%=.#infile%|
00005750 0d 26 c0 0e d9 20 23 69 6e 66 69 6c 65 25 0d 26 |.&... #infile%.&|
00005760 ca 40 c8 99 20 22 58 4f 53 5f 48 65 61 70 22 2c |.@.. "XOS_Heap",|
00005770 34 2c 65 6e 64 70 72 6f 67 25 2c 69 63 6f 6e 64 |4,endprog%,icond|
00005780 61 74 61 25 2c 2d 62 6c 6f 63 6b 73 69 7a 65 25 |ata%,-blocksize%|
00005790 20 b8 20 2c 2c 69 63 6f 6e 64 61 74 61 25 0d 26 | . ,,icondata%.&|
000057a0 d4 37 c8 99 20 22 58 4f 53 5f 48 65 61 70 22 2c |.7.. "XOS_Heap",|
000057b0 35 2c 65 6e 64 70 72 6f 67 25 2c 2c 2d 68 65 61 |5,endprog%,,-hea|
000057c0 70 73 69 7a 65 25 2b 73 6d 65 67 62 6c 6f 63 6b |psize%+smegblock|
000057d0 73 69 7a 65 25 0d 26 de 10 62 6c 6f 63 6b 73 69 |size%.&..blocksi|
000057e0 7a 65 25 3d 34 0d 26 e8 1c 68 65 61 70 73 69 7a |ze%=4.&..heapsiz|
000057f0 65 25 3d 73 6d 65 67 62 6c 6f 63 6b 73 69 7a 65 |e%=smegblocksize|
00005800 25 0d 26 f2 17 62 6c 6f 63 6b 73 69 7a 65 25 2b |%.&..blocksize%+|
00005810 3d 6e 65 77 6c 65 6e 25 0d 26 fc 0a 64 75 66 25 |=newlen%.&..duf%|
00005820 3d a3 0d 27 06 1c e7 20 62 6c 6f 63 6b 73 69 7a |=..'... blocksiz|
00005830 65 25 3e 68 65 61 70 73 69 7a 65 25 20 8c 0d 27 |e%>heapsize% ..'|
00005840 10 0c 20 20 64 75 66 25 3d b9 0d 27 1a 18 20 20 |.. duf%=..'.. |
00005850 68 65 61 70 73 69 7a 65 25 2b 3d 6e 65 77 6c 65 |heapsize%+=newle|
00005860 6e 25 0d 27 24 24 20 20 e7 20 a4 63 68 65 63 6b |n%.'$$ . .check|
00005870 66 72 65 65 73 70 61 63 65 3c 3d 68 65 61 70 73 |freespace<=heaps|
00005880 69 7a 65 25 20 8c 0d 27 2e 4a 20 20 20 20 f2 61 |ize% ..'.J .a|
00005890 6c 65 72 74 28 22 4d 65 73 73 61 67 65 20 66 72 |lert("Message fr|
000058a0 6f 6d 20 54 72 65 65 22 2c 22 55 6e 61 62 6c 65 |om Tree","Unable|
000058b0 20 74 6f 20 66 69 6e 64 20 65 6e 6f 75 67 68 20 | to find enough |
000058c0 66 72 65 65 20 6d 65 6d 6f 72 79 2e 22 2c 30 29 |free memory.",0)|
000058d0 0d 27 38 1a 20 20 20 20 68 65 61 70 73 69 7a 65 |.'8. heapsize|
000058e0 25 2d 3d 6e 65 77 6c 65 6e 25 0d 27 42 1b 20 20 |%-=newlen%.'B. |
000058f0 20 20 62 6c 6f 63 6b 73 69 7a 65 25 2d 3d 6e 65 | blocksize%-=ne|
00005900 77 6c 65 6e 25 0d 27 4c 09 20 20 20 20 e1 0d 27 |wlen%.'L. ..'|
00005910 56 07 20 20 cd 0d 27 60 2d c8 99 20 22 57 69 6d |V. ..'`-.. "Wim|
00005920 70 5f 53 6c 6f 74 53 69 7a 65 22 2c 74 61 73 6b |p_SlotSize",task|
00005930 73 69 7a 65 25 2b 68 65 61 70 73 69 7a 65 25 2c |size%+heapsize%,|
00005940 2d 31 0d 27 6a 27 20 20 c8 99 20 22 58 4f 53 5f |-1.'j' .. "XOS_|
00005950 48 65 61 70 22 2c 35 2c 65 6e 64 70 72 6f 67 25 |Heap",5,endprog%|
00005960 2c 2c 6e 65 77 6c 65 6e 25 0d 27 74 05 cc 0d 27 |,,newlen%.'t...'|
00005970 7e 24 20 20 e7 20 a4 63 68 65 63 6b 66 72 65 65 |~$ . .checkfree|
00005980 73 70 61 63 65 3c 3d 68 65 61 70 73 69 7a 65 25 |space<=heapsize%|
00005990 20 8c 0d 27 88 4a 20 20 20 20 f2 61 6c 65 72 74 | ..'.J .alert|
000059a0 28 22 4d 65 73 73 61 67 65 20 66 72 6f 6d 20 54 |("Message from T|
000059b0 72 65 65 22 2c 22 55 6e 61 62 6c 65 20 74 6f 20 |ree","Unable to |
000059c0 66 69 6e 64 20 65 6e 6f 75 67 68 20 66 72 65 65 |find enough free|
000059d0 20 6d 65 6d 6f 72 79 2e 22 2c 30 29 0d 27 92 1b | memory.",0).'..|
000059e0 20 20 20 20 62 6c 6f 63 6b 73 69 7a 65 25 2d 3d | blocksize%-=|
000059f0 6e 65 77 6c 65 6e 25 0d 27 9c 09 20 20 20 20 e1 |newlen%.'.. .|
00005a00 0d 27 a6 07 20 20 cd 0d 27 b0 2d c8 99 20 22 57 |.'.. ..'.-.. "W|
00005a10 69 6d 70 5f 53 6c 6f 74 53 69 7a 65 22 2c 74 61 |imp_SlotSize",ta|
00005a20 73 6b 73 69 7a 65 25 2b 68 65 61 70 73 69 7a 65 |sksize%+heapsize|
00005a30 25 2c 2d 31 0d 27 ba 04 0d 27 c4 05 cd 0d 27 ce |%,-1.'...'....'.|
00005a40 3c c8 99 20 22 58 4f 53 5f 48 65 61 70 22 2c 34 |<.. "XOS_Heap",4|
00005a50 2c 65 6e 64 70 72 6f 67 25 2c 69 63 6f 6e 64 61 |,endprog%,iconda|
00005a60 74 61 25 2c 6e 65 77 6c 65 6e 25 20 b8 20 2c 2c |ta%,newlen% . ,,|
00005a70 69 63 6f 6e 64 61 74 61 25 0d 27 d8 13 e7 20 69 |icondata%.'... i|
00005a80 63 6f 6e 64 61 74 61 25 3d 30 20 8c 0d 27 e2 46 |condata%=0 ..'.F|
00005a90 f2 61 6c 65 72 74 28 22 4d 65 73 73 61 67 65 20 |.alert("Message |
00005aa0 66 72 6f 6d 20 54 72 65 65 22 2c 22 55 6e 61 62 |from Tree","Unab|
00005ab0 6c 65 20 74 6f 20 66 69 6e 64 20 65 6e 6f 75 67 |le to find enoug|
00005ac0 68 20 66 72 65 65 20 6d 65 6d 6f 72 79 2e 22 2c |h free memory.",|
00005ad0 30 29 0d 27 ec 17 62 6c 6f 63 6b 73 69 7a 65 25 |0).'..blocksize%|
00005ae0 2d 3d 6e 65 77 6c 65 6e 25 0d 27 f6 1f e7 20 64 |-=newlen%.'... d|
00005af0 75 66 25 20 8c 20 68 65 61 70 73 69 7a 65 25 2d |uf% . heapsize%-|
00005b00 3d 6e 65 77 6c 65 6e 25 0d 28 00 05 e1 0d 28 0a |=newlen%.(....(.|
00005b10 05 cd 0d 28 14 16 6e 65 77 62 61 73 65 25 3d 69 |...(..newbase%=i|
00005b20 63 6f 6e 64 61 74 61 25 0d 28 1e 1f c8 99 20 26 |condata%.(.... &|
00005b30 30 30 30 30 30 30 30 38 2c 31 32 2c 70 24 2c 6e |00000008,12,p$,n|
00005b40 65 77 62 61 73 65 25 0d 28 28 13 69 69 69 25 3d |ewbase%.((.iii%=|
00005b50 6e 65 77 62 61 73 65 25 21 30 0d 28 32 11 f2 67 |newbase%!0.(2..g|
00005b60 65 74 76 61 72 73 28 30 2c a3 29 0d 28 3c 12 70 |etvars(0,.).(<.p|
00005b70 61 24 3d 24 66 69 6c 65 6e 61 6d 65 25 0d 28 46 |a$=$filename%.(F|
00005b80 0e 63 66 74 3d a9 28 70 61 24 29 0d 28 50 17 c8 |.cft=.(pa$).(P..|
00005b90 95 20 c1 70 61 24 2c 63 66 74 2c 31 29 3c 3e 22 |. .pa$,cft,1)<>"|
00005ba0 2e 22 0d 28 5a 0a 63 66 74 2d 3d 31 0d 28 64 05 |.".(Z.cft-=1.(d.|
00005bb0 ce 0d 28 6e 18 70 6f 6f 75 70 24 3d c1 70 61 24 |..(n.pooup$=.pa$|
00005bc0 2c 31 2c 63 66 74 2d 31 29 0d 28 78 18 f2 74 69 |,1,cft-1).(x..ti|
00005bd0 74 6c 65 28 6d 61 69 6e 25 2c 70 6f 6f 75 70 24 |tle(main%,pooup$|
00005be0 29 0d 28 82 15 e3 20 6d 79 75 70 3d 30 20 b8 20 |).(... myup=0 . |
00005bf0 69 69 69 25 2d 31 0d 28 8c 31 e7 20 69 69 69 25 |iii%-1.(.1. iii%|
00005c00 2d 31 3c 3e 30 20 8c 20 c8 99 26 30 30 30 34 30 |-1<>0 . ..&00040|
00005c10 36 43 34 2c 28 6d 79 75 70 2f 28 69 69 69 25 2d |6C4,(myup/(iii%-|
00005c20 31 29 29 2a 31 30 30 0d 28 96 14 f2 67 65 74 76 |1))*100.(...getv|
00005c30 61 72 73 28 6d 79 75 70 2c a3 29 0d 28 a0 1c 51 |ars(myup,.).(..Q|
00005c40 70 6f 73 3d 28 6e 75 6d 62 65 72 69 63 6f 6e 73 |pos=(numbericons|
00005c50 25 21 30 29 2a 35 30 0d 28 aa 12 62 6c 6f 63 6b |%!0)*50.(..block|
00005c60 25 21 30 3d 6d 61 69 6e 25 0d 28 b4 0e 62 6c 6f |%!0=main%.(..blo|
00005c70 63 6b 25 21 34 3d 30 0d 28 be 15 c8 99 20 26 34 |ck%!4=0.(.... &4|
00005c80 30 30 43 45 2c 2c 62 6c 6f 63 6b 25 0d 28 c8 11 |00CE,,block%.(..|
00005c90 66 61 67 25 3d 62 6c 6f 63 6b 25 2b 34 0d 28 d2 |fag%=block%+4.(.|
00005ca0 0f 75 6d 31 25 3d 66 61 67 25 21 34 0d 28 dc 10 |.um1%=fag%!4.(..|
00005cb0 75 6d 32 25 3d 66 61 67 25 21 31 32 0d 28 e6 12 |um2%=fag%!12.(..|
00005cc0 62 6c 6f 63 6b 25 21 30 3d 6d 61 69 6e 25 0d 28 |block%!0=main%.(|
00005cd0 f0 11 62 6c 6f 63 6b 25 21 34 3d 6d 79 75 70 0d |..block%!4=myup.|
00005ce0 28 fa 15 c8 99 20 26 34 30 30 43 45 2c 2c 62 6c |(.... &400CE,,bl|
00005cf0 6f 63 6b 25 0d 29 04 11 66 61 67 25 3d 62 6c 6f |ock%.)..fag%=blo|
00005d00 63 6b 25 2b 34 0d 29 0e 10 66 61 67 25 21 30 3d |ck%+4.)..fag%!0=|
00005d10 6d 61 69 6e 25 0d 29 18 14 66 61 67 25 21 38 3d |main%.)..fag%!8=|
00005d20 66 61 67 25 21 38 2d 34 34 0d 29 22 14 66 61 67 |fag%!8-44.)".fag|
00005d30 25 21 34 3d 75 6d 31 25 2b 51 70 6f 73 0d 29 2c |%!4=um1%+Qpos.),|
00005d40 0e 6e 75 74 3d 66 61 67 25 21 38 0d 29 36 16 66 |.nut=fag%!8.)6.f|
00005d50 61 67 25 21 31 36 3d 66 61 67 25 21 31 36 2d 34 |ag%!16=fag%!16-4|
00005d60 34 0d 29 40 15 66 61 67 25 21 31 32 3d 75 6d 32 |4.)@.fag%!12=um2|
00005d70 25 2b 51 70 6f 73 0d 29 4a 1b 66 63 61 63 6b 24 |%+Qpos.)J.fcack$|
00005d80 3d a4 67 4c 6e 28 24 66 69 6c 65 6e 61 6d 65 25 |=.gLn($filename%|
00005d90 29 0d 29 54 2b e7 20 66 61 67 25 21 31 32 3e 74 |).)T+. fag%!12>t|
00005da0 68 65 62 69 67 6f 6e 65 20 8c 20 74 68 65 62 69 |hebigone . thebi|
00005db0 67 6f 6e 65 3d 66 61 67 25 21 31 32 0d 29 5e 11 |gone=fag%!12.)^.|
00005dc0 66 61 67 25 21 32 34 3d 74 65 78 74 25 0d 29 68 |fag%!24=text%.)h|
00005dd0 21 e7 20 74 79 70 65 25 21 30 3e 26 46 46 46 20 |!. type%!0>&FFF |
00005de0 84 20 74 79 70 65 25 21 30 3c 26 30 20 8c 0d 29 |. type%!0<&0 ..)|
00005df0 72 18 20 20 e7 20 c0 66 63 61 63 6b 24 2c 31 29 |r. . .fcack$,1)|
00005e00 3d 22 21 22 20 8c 0d 29 7c 31 20 20 20 20 e7 20 |="!" ..)|1 . |
00005e10 ac 20 a4 73 70 72 69 74 65 65 78 69 73 74 73 28 |. .spriteexists(|
00005e20 66 63 61 63 6b 24 29 20 80 20 69 63 6f 6e 73 70 |fcack$) . iconsp|
00005e30 72 69 74 65 73 20 8c 0d 29 86 26 20 20 20 20 74 |rites ..).& t|
00005e40 74 79 25 3d 8e 28 24 66 69 6c 65 6e 61 6d 65 25 |ty%=.($filename%|
00005e50 2b 22 2e 21 53 70 72 69 74 65 73 22 29 0d 29 90 |+".!Sprites").).|
00005e60 20 20 20 20 20 20 20 e7 20 74 74 79 25 3e 30 20 | . tty%>0 |
00005e70 80 20 74 74 79 25 3c 3d 32 35 35 20 8c 0d 29 9a |. tty%<=255 ..).|
00005e80 18 20 20 20 20 20 20 20 20 77 6c 6c 6c 25 3d a2 |. wlll%=.|
00005e90 23 74 74 79 25 0d 29 a4 12 20 20 20 20 20 20 20 |#tty%.).. |
00005ea0 20 d9 23 74 74 79 25 0d 29 ae 0b 20 20 20 20 20 | .#tty%.).. |
00005eb0 20 cd 0d 29 b8 2f 20 20 20 20 20 20 e7 20 74 74 | ..)./ . tt|
00005ec0 79 25 3e 30 20 80 20 74 74 79 25 3c 3d 32 35 35 |y%>0 . tty%<=255|
00005ed0 20 80 20 6c 6f 63 61 6c 73 70 72 69 74 65 73 20 | . localsprites |
00005ee0 8c 0d 29 c2 3d 20 20 20 20 20 20 20 20 e7 20 a4 |..).= . .|
00005ef0 66 69 6c 65 74 79 70 65 6f 66 61 66 69 6c 65 28 |filetypeofafile(|
00005f00 24 66 69 6c 65 6e 61 6d 65 25 2b 22 2e 21 53 70 |$filename%+".!Sp|
00005f10 72 69 74 65 73 22 29 3d 26 46 46 39 20 8c 0d 29 |rites")=&FF9 ..)|
00005f20 cc 27 20 20 20 20 20 20 20 20 20 20 e7 20 a4 63 |.' . .c|
00005f30 68 65 63 6b 66 72 65 65 73 70 61 63 65 3e 77 6c |heckfreespace>wl|
00005f40 6c 6c 25 20 8c 0d 29 d6 3d 20 20 20 20 20 20 20 |ll% ..).= |
00005f50 20 20 20 20 20 f4 4f 53 43 4c 49 28 22 49 43 4f | .OSCLI("ICO|
00005f60 4e 53 50 52 49 54 45 53 20 22 2b 24 66 69 6c 65 |NSPRITES "+$file|
00005f70 6e 61 6d 65 25 2b 22 2e 21 53 70 72 69 74 65 73 |name%+".!Sprites|
00005f80 22 29 0d 29 e0 2e 20 20 20 20 20 20 20 20 20 20 |").).. |
00005f90 20 20 e7 20 6c 6f 63 61 6c 73 70 72 69 74 65 73 | . localsprites|
00005fa0 20 8c 20 f2 6c 6f 61 64 73 70 72 69 74 65 73 32 | . .loadsprites2|
00005fb0 0d 29 ea 0f 20 20 20 20 20 20 20 20 20 20 cc 0d |.).. ..|
00005fc0 29 f4 6f 20 20 20 20 20 20 20 20 20 20 20 20 f2 |).o .|
00005fd0 61 6c 65 72 74 28 22 4d 65 73 73 61 67 65 20 66 |alert("Message f|
00005fe0 72 6f 6d 20 54 72 65 65 22 2c 22 4e 6f 20 72 6f |rom Tree","No ro|
00005ff0 6f 6d 20 66 6f 72 20 73 70 72 69 74 65 73 2e 20 |om for sprites. |
00006000 46 6f 72 67 65 74 74 69 6e 67 20 74 6f 20 6c 6f |Forgetting to lo|
00006010 61 64 20 61 6e 79 20 6d 6f 72 65 20 21 53 70 72 |ad any more !Spr|
00006020 69 74 65 20 66 69 6c 65 73 2e 22 2c 30 29 0d 29 |ite files.",0).)|
00006030 fe 1e 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f |.. lo|
00006040 63 61 6c 73 70 72 69 74 65 73 3d a3 0d 2a 08 23 |calsprites=..*.#|
00006050 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6c 69 | vali|
00006060 64 24 3d 22 53 64 69 72 65 63 74 6f 72 79 22 0d |d$="Sdirectory".|
00006070 2a 12 0f 20 20 20 20 20 20 20 20 20 20 cd 0d 2a |*.. ..*|
00006080 1c 0d 20 20 20 20 20 20 20 20 cd 0d 2a 26 0b 20 |.. ..*&. |
00006090 20 20 20 20 20 cd 0d 2a 30 09 20 20 20 20 cd 0d | ..*0. ..|
000060a0 2a 3a 19 20 20 20 20 76 61 6c 69 64 24 3d 22 53 |*:. valid$="S|
000060b0 22 2b 66 63 61 63 6b 24 0d 2a 44 47 20 20 20 20 |"+fcack$.*DG |
000060c0 e7 20 ac 20 a4 73 70 72 69 74 65 65 78 69 73 74 |. . .spriteexist|
000060d0 73 28 c1 76 61 6c 69 64 24 2c 32 2c a9 28 76 61 |s(.valid$,2,.(va|
000060e0 6c 69 64 24 29 29 29 20 8c 20 76 61 6c 69 64 24 |lid$))) . valid$|
000060f0 3d 22 53 61 70 70 6c 69 63 61 74 69 6f 6e 22 0d |="Sapplication".|
00006100 2a 4e 07 20 20 cc 0d 2a 58 1b 20 20 20 20 76 61 |*N. ..*X. va|
00006110 6c 69 64 24 3d 22 53 64 69 72 65 63 74 6f 72 79 |lid$="Sdirectory|
00006120 22 0d 2a 62 07 20 20 cd 0d 2a 6c 05 cc 0d 2a 76 |".*b. ..*l...*v|
00006130 23 20 20 76 61 6c 69 64 24 3d 22 53 66 69 6c 65 |# valid$="Sfile|
00006140 5f 22 2b a4 70 61 64 28 74 79 70 65 25 21 30 29 |_"+.pad(type%!0)|
00006150 0d 2a 80 05 cd 0d 2a 8a 3b e7 20 74 79 70 65 25 |.*....*.;. type%|
00006160 21 30 3d 2d 32 20 80 20 76 61 6c 69 64 24 3d 22 |!0=-2 . valid$="|
00006170 53 64 69 72 65 63 74 6f 72 79 22 20 8c 20 76 61 |Sdirectory" . va|
00006180 6c 69 64 24 3d 22 53 66 69 6c 65 5f 78 78 78 22 |lid$="Sfile_xxx"|
00006190 0d 2a 94 40 e7 20 ac 20 a4 73 70 72 69 74 65 65 |.*.@. . .spritee|
000061a0 78 69 73 74 73 28 c1 76 61 6c 69 64 24 2c 32 2c |xists(.valid$,2,|
000061b0 a9 28 76 61 6c 69 64 24 29 29 29 20 8c 20 76 61 |.(valid$))) . va|
000061c0 6c 69 64 24 3d 22 53 66 69 6c 65 5f 78 78 78 22 |lid$="Sfile_xxx"|
000061d0 0d 2a 9e 12 24 76 61 6c 69 64 25 3d 76 61 6c 69 |.*..$valid%=vali|
000061e0 64 24 0d 2a a8 12 66 61 67 25 21 32 38 3d 76 61 |d$.*..fag%!28=va|
000061f0 6c 69 64 25 0d 2a b2 15 66 61 67 25 21 33 32 3d |lid%.*..fag%!32=|
00006200 a9 28 66 63 61 63 6b 24 29 0d 2a bc 13 c8 99 20 |.(fcack$).*.... |
00006210 26 34 30 30 43 32 2c 2c 66 61 67 25 0d 2a c6 09 |&400C2,,fag%.*..|
00006220 ed 6d 79 75 70 0d 2a d0 15 62 6c 6f 63 6b 25 21 |.myup.*..block%!|
00006230 30 3d 77 6f 72 6b 6d 69 6e 78 0d 2a da 12 62 6c |0=workminx.*..bl|
00006240 6f 63 6b 25 21 34 3d 6e 75 74 2d 34 0d 2a e4 19 |ock%!4=nut-4.*..|
00006250 62 6c 6f 63 6b 25 21 38 3d 74 68 65 62 69 67 6f |block%!8=thebigo|
00006260 6e 65 2b 32 30 0d 2a ee 16 62 6c 6f 63 6b 25 21 |ne+20.*..block%!|
00006270 31 32 3d 77 6f 72 6b 6d 61 78 79 0d 2a f8 1a c8 |12=workmaxy.*...|
00006280 99 20 26 34 30 30 64 37 2c 6d 61 69 6e 25 2c 62 |. &400d7,main%,b|
00006290 6c 6f 63 6b 25 0d 2b 02 3b c8 99 20 26 30 30 30 |lock%.+.;.. &000|
000062a0 34 30 30 44 31 2c 6d 61 69 6e 25 2c 62 6c 6f 63 |400D1,main%,bloc|
000062b0 6b 25 21 30 2c 62 6c 6f 63 6b 25 21 34 2c 62 6c |k%!0,block%!4,bl|
000062c0 6f 63 6b 25 21 38 2c 62 6c 6f 63 6b 25 21 31 32 |ock%!8,block%!12|
000062d0 0d 2b 0c 18 f2 6f 70 65 6e 77 69 6e 64 6f 77 28 |.+...openwindow(|
000062e0 6d 61 69 6e 25 2c b9 29 0d 2b 16 1e f2 69 63 6f |main%,.).+...ico|
000062f0 6e 70 75 74 74 65 78 74 28 73 61 76 65 61 73 25 |nputtext(saveas%|
00006300 2c 31 2c 70 24 29 0d 2b 20 0f c8 99 26 30 30 30 |,1,p$).+ ...&000|
00006310 34 30 36 43 32 0d 2b 2a 0e 66 6c 75 66 65 6e 64 |406C2.+*.flufend|
00006320 25 3d a3 0d 2b 34 05 e1 0d 2b 3e 1e dd 20 a4 69 |%=..+4...+>.. .i|
00006330 63 6f 6e 74 65 78 74 28 77 69 6e 64 6f 77 25 2c |context(window%,|
00006340 69 63 6f 6e 25 29 0d 2b 48 25 62 6c 6f 63 6b 25 |icon%).+H%block%|
00006350 21 30 3d 77 69 6e 64 6f 77 25 20 3a 20 62 6c 6f |!0=window% : blo|
00006360 63 6b 25 21 34 3d 69 63 6f 6e 25 0d 2b 52 18 c8 |ck%!4=icon%.+R..|
00006370 99 20 26 30 30 30 34 30 30 43 45 2c 2c 62 6c 6f |. &000400CE,,blo|
00006380 63 6b 25 0d 2b 5c 38 e7 20 28 28 62 6c 6f 63 6b |ck%.+\8. ((block|
00006390 25 21 32 34 29 20 80 20 26 31 30 30 29 3d 30 20 |%!24) . &100)=0 |
000063a0 85 20 31 2c 22 49 63 6f 6e 20 69 73 6e 27 74 20 |. 1,"Icon isn't |
000063b0 69 6e 64 69 72 65 63 74 65 64 22 0d 2b 66 11 3d |indirected".+f.=|
000063c0 24 28 62 6c 6f 63 6b 25 21 32 38 29 0d 2b 70 27 |$(block%!28).+p'|
000063d0 dd 20 f2 69 63 6f 6e 70 75 74 74 65 78 74 28 77 |. .iconputtext(w|
000063e0 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 2c 74 65 78 |indow%,icon%,tex|
000063f0 74 24 29 0d 2b 7a 27 62 6c 6f 63 6b 32 25 21 30 |t$).+z'block2%!0|
00006400 3d 77 69 6e 64 6f 77 25 20 3a 20 62 6c 6f 63 6b |=window% : block|
00006410 32 25 21 34 3d 69 63 6f 6e 25 0d 2b 84 19 c8 99 |2%!4=icon%.+....|
00006420 20 26 30 30 30 34 30 30 43 45 2c 2c 62 6c 6f 63 | &000400CE,,bloc|
00006430 6b 32 25 0d 2b 8e 39 e7 20 28 28 62 6c 6f 63 6b |k2%.+.9. ((block|
00006440 32 25 21 32 34 29 20 80 20 26 31 30 30 29 3d 30 |2%!24) . &100)=0|
00006450 20 85 20 31 2c 22 49 63 6f 6e 20 69 73 6e 27 74 | . 1,"Icon isn't|
00006460 20 69 6e 64 69 72 65 63 74 65 64 22 0d 2b 98 17 | indirected".+..|
00006470 24 28 62 6c 6f 63 6b 32 25 21 32 38 29 3d 74 65 |$(block2%!28)=te|
00006480 78 74 24 0d 2b a2 27 62 6c 6f 63 6b 32 25 21 30 |xt$.+.'block2%!0|
00006490 3d 77 69 6e 64 6f 77 25 20 3a 20 62 6c 6f 63 6b |=window% : block|
000064a0 32 25 21 34 3d 69 63 6f 6e 25 0d 2b ac 1e 62 6c |2%!4=icon%.+..bl|
000064b0 6f 63 6b 32 25 21 38 3d 30 20 3a 20 62 6c 6f 63 |ock2%!8=0 : bloc|
000064c0 6b 32 25 21 31 32 3d 30 0d 2b b6 19 c8 99 20 26 |k2%!12=0.+.... &|
000064d0 30 30 30 34 30 30 43 44 2c 2c 62 6c 6f 63 6b 32 |000400CD,,block2|
000064e0 25 0d 2b c0 05 e1 0d 2b ca 1d dd f2 73 65 74 69 |%.+....+....seti|
000064f0 63 6f 6e 73 70 72 69 74 65 28 77 25 2c 69 25 2c |consprite(w%,i%,|
00006500 73 24 29 0d 2b d4 0f 62 6c 6f 63 6b 25 21 30 3d |s$).+..block%!0=|
00006510 77 25 0d 2b de 0f 62 6c 6f 63 6b 25 21 34 3d 69 |w%.+..block%!4=i|
00006520 25 0d 2b e8 18 c8 99 20 26 30 30 30 34 30 30 43 |%.+.... &000400C|
00006530 45 2c 2c 62 6c 6f 63 6b 25 0d 2b f2 11 24 62 6c |E,,block%.+..$bl|
00006540 6f 63 6b 25 21 33 32 3d 73 24 0d 2b fc 0f 62 6c |ock%!32=s$.+..bl|
00006550 6f 63 6b 25 21 30 3d 77 25 0d 2c 06 0e 62 6c 6f |ock%!0=w%.,..blo|
00006560 63 6b 25 21 38 3d 30 0d 2c 10 0f 62 6c 6f 63 6b |ck%!8=0.,..block|
00006570 25 21 31 32 3d 30 0d 2c 1a 17 c8 99 26 30 30 30 |%!12=0.,....&000|
00006580 34 30 30 43 44 2c 2c 62 6c 6f 63 6b 25 0d 2c 24 |400CD,,block%.,$|
00006590 05 e1 0d 2c 2e 1a dd f2 64 72 61 77 62 6f 78 28 |...,....drawbox(|
000065a0 77 69 25 2c 69 63 25 2c 73 6e 24 29 0d 2c 38 23 |wi%,ic%,sn$).,8#|
000065b0 c8 99 20 26 30 30 30 30 30 30 33 35 2c eb 2c 31 |.. &00000035,.,1|
000065c0 31 20 b8 20 2c 2c 78 70 69 78 6c 69 6d 69 74 0d |1 . ,,xpixlimit.|
000065d0 2c 42 23 c8 99 20 26 30 30 30 30 30 30 33 35 2c |,B#.. &00000035,|
000065e0 eb 2c 31 32 20 b8 20 2c 2c 79 70 69 78 6c 69 6d |.,12 . ,,ypixlim|
000065f0 69 74 0d 2c 4c 1e c8 99 20 26 30 30 30 30 30 30 |it.,L... &000000|
00006600 33 35 2c eb 2c 34 20 b8 20 2c 2c 78 66 61 63 74 |35,.,4 . ,,xfact|
00006610 0d 2c 56 1e c8 99 20 26 30 30 30 30 30 30 33 35 |.,V... &00000035|
00006620 2c eb 2c 35 20 b8 20 2c 2c 79 66 61 63 74 0d 2c |,.,5 . ,,yfact.,|
00006630 60 1d 6d 61 78 58 3d 28 78 70 69 78 6c 69 6d 69 |`.maxX=(xpixlimi|
00006640 74 2b 31 29 3c 3c 78 66 61 63 74 0d 2c 6a 1d 6d |t+1)<<xfact.,j.m|
00006650 61 78 59 3d 28 79 70 69 78 6c 69 6d 69 74 2b 31 |axY=(ypixlimit+1|
00006660 29 3c 3c 79 66 61 63 74 0d 2c 74 10 62 6c 6f 63 |)<<yfact.,t.bloc|
00006670 6b 25 21 30 3d 77 69 25 0d 2c 7e 17 c8 99 26 30 |k%!0=wi%.,~...&0|
00006680 30 30 34 30 30 43 42 2c 2c 62 6c 6f 63 6b 25 0d |00400CB,,block%.|
00006690 2c 88 32 79 73 25 3d 62 6c 6f 63 6b 25 21 31 36 |,.2ys%=block%!16|
000066a0 2d 62 6c 6f 63 6b 25 21 38 3a 58 25 3d 62 6c 6f |-block%!8:X%=blo|
000066b0 63 6b 25 21 34 3a 59 25 3d 62 6c 6f 63 6b 25 21 |ck%!4:Y%=block%!|
000066c0 38 0d 2c 92 13 79 6f 66 66 25 3d 62 6c 6f 63 6b |8.,..yoff%=block|
000066d0 25 21 32 34 0d 2c 9c 1d 62 6c 6f 63 6b 25 21 30 |%!24.,..block%!0|
000066e0 3d 77 69 25 3a 62 6c 6f 63 6b 25 21 34 3d 69 63 |=wi%:block%!4=ic|
000066f0 25 0d 2c a6 17 c8 99 26 30 30 30 34 30 30 43 45 |%.,....&000400CE|
00006700 2c 2c 62 6c 6f 63 6b 25 0d 2c b0 10 62 6c 6f 63 |,,block%.,..bloc|
00006710 6b 25 21 38 2b 3d 58 25 0d 2c ba 1b 62 6c 6f 63 |k%!8+=X%.,..bloc|
00006720 6b 25 21 31 32 2b 3d 59 25 2b 79 73 25 2d 79 6f |k%!12+=Y%+ys%-yo|
00006730 66 66 25 0d 2c c4 11 62 6c 6f 63 6b 25 21 31 36 |ff%.,..block%!16|
00006740 2b 3d 58 25 0d 2c ce 1b 62 6c 6f 63 6b 25 21 32 |+=X%.,..block%!2|
00006750 30 2b 3d 59 25 2b 79 73 25 2d 79 6f 66 66 25 0d |0+=Y%+ys%-yoff%.|
00006760 2c d8 0e 62 6c 6f 63 6b 25 21 34 3d 35 0d 2c e2 |,..block%!4=5.,.|
00006770 18 c8 99 26 30 30 30 34 30 30 43 46 2c 2c 62 6c |...&000400CF,,bl|
00006780 6f 63 6b 32 25 0d 2c ec 24 62 6c 6f 63 6b 25 21 |ock2%.,.$block%!|
00006790 32 34 3d 30 2d 28 62 6c 6f 63 6b 32 25 21 30 2d |24=0-(block2%!0-|
000067a0 62 6c 6f 63 6b 25 21 38 29 0d 2c f6 25 62 6c 6f |block%!8).,.%blo|
000067b0 63 6b 25 21 32 38 3d 30 2d 28 62 6c 6f 63 6b 32 |ck%!28=0-(block2|
000067c0 25 21 34 2d 62 6c 6f 63 6b 25 21 31 32 29 0d 2d |%!4-block%!12).-|
000067d0 00 2a 62 6c 6f 63 6b 25 21 33 32 3d 6d 61 78 58 |.*block%!32=maxX|
000067e0 2b 28 62 6c 6f 63 6b 25 21 31 36 2d 62 6c 6f 63 |+(block%!16-bloc|
000067f0 6b 32 25 21 30 29 2d 32 0d 2d 0a 2a 62 6c 6f 63 |k2%!0)-2.-.*bloc|
00006800 6b 25 21 33 36 3d 6d 61 78 59 2b 28 62 6c 6f 63 |k%!36=maxY+(bloc|
00006810 6b 25 21 32 30 2d 62 6c 6f 63 6b 32 25 21 34 29 |k%!20-block2%!4)|
00006820 2d 34 0d 2d 14 10 62 6c 6f 63 6b 25 21 30 3d 69 |-4.-..block%!0=i|
00006830 63 25 0d 2d 1e 0e e7 20 73 6e 24 3d 22 22 20 8c |c%.-... sn$="" .|
00006840 0d 2d 28 17 c8 99 26 30 30 30 34 30 30 44 30 2c |.-(...&000400D0,|
00006850 2c 62 6c 6f 63 6b 25 0d 2d 32 05 cc 0d 2d 3c 33 |,block%.-2...-<3|
00006860 c8 99 20 22 44 72 61 67 41 53 70 72 69 74 65 5f |.. "DragASprite_|
00006870 53 74 61 72 74 22 2c 25 31 31 30 30 30 31 30 31 |Start",%11000101|
00006880 2c 31 2c 73 6e 24 2c 62 6c 6f 63 6b 25 2b 38 0d |,1,sn$,block%+8.|
00006890 2d 46 05 cd 0d 2d 50 13 6c 61 73 74 77 69 6e 64 |-F...-P.lastwind|
000068a0 6f 77 25 3d 77 69 25 0d 2d 5a 05 e1 0d 2d 64 26 |ow%=wi%.-Z...-d&|
000068b0 dd 20 f2 69 63 6f 6e 63 61 72 65 74 28 77 69 6e |. .iconcaret(win|
000068c0 64 6f 77 25 2c 69 63 6f 6e 25 2c 63 68 61 72 73 |dow%,icon%,chars|
000068d0 25 29 0d 2d 6e 2a c8 99 20 26 30 30 30 34 30 30 |%).-n*.. &000400|
000068e0 44 32 2c 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 |D2,window%,icon%|
000068f0 2c 2c 2c 2d 31 2c 63 68 61 72 73 25 0d 2d 78 05 |,,,-1,chars%.-x.|
00006900 e1 0d 2d 82 12 dd f2 64 6f 66 69 6c 65 73 28 70 |..-....dofiles(p|
00006910 61 24 29 0d 2d 8c 07 ea 20 85 0d 2d 96 2a ee 20 |a$).-... ..-.*. |
00006920 85 20 ea 20 f2 61 6c 65 72 74 28 22 45 72 72 6f |. . .alert("Erro|
00006930 72 20 66 72 6f 6d 20 54 72 65 65 22 2c f6 24 2c |r from Tree",.$,|
00006940 30 29 3a e1 0d 2d a0 0d 63 6f 6c 75 6d 6e 73 3d |0):..-..columns=|
00006950 a3 0d 2d aa 12 6c 6f 63 61 6c 73 70 72 69 74 65 |..-..localsprite|
00006960 73 3d b9 0d 2d b4 40 c8 99 20 22 58 4f 53 5f 48 |s=..-.@.. "XOS_H|
00006970 65 61 70 22 2c 34 2c 65 6e 64 70 72 6f 67 25 2c |eap",4,endprog%,|
00006980 69 63 6f 6e 64 61 74 61 25 2c 2d 62 6c 6f 63 6b |icondata%,-block|
00006990 73 69 7a 65 25 20 b8 20 2c 2c 69 63 6f 6e 64 61 |size% . ,,iconda|
000069a0 74 61 25 0d 2d be 37 c8 99 20 22 58 4f 53 5f 48 |ta%.-.7.. "XOS_H|
000069b0 65 61 70 22 2c 35 2c 65 6e 64 70 72 6f 67 25 2c |eap",5,endprog%,|
000069c0 2c 2d 68 65 61 70 73 69 7a 65 25 2b 73 6d 65 67 |,-heapsize%+smeg|
000069d0 62 6c 6f 63 6b 73 69 7a 65 25 0d 2d c8 1c 68 65 |blocksize%.-..he|
000069e0 61 70 73 69 7a 65 25 3d 73 6d 65 67 62 6c 6f 63 |apsize%=smegbloc|
000069f0 6b 73 69 7a 65 25 0d 2d d2 2d c8 99 20 22 57 69 |ksize%.-.-.. "Wi|
00006a00 6d 70 5f 53 6c 6f 74 53 69 7a 65 22 2c 74 61 73 |mp_SlotSize",tas|
00006a10 6b 73 69 7a 65 25 2b 68 65 61 70 73 69 7a 65 25 |ksize%+heapsize%|
00006a20 2c 2d 31 0d 2d dc 10 62 6c 6f 63 6b 73 69 7a 65 |,-1.-..blocksize|
00006a30 25 3d 34 0d 2d e6 58 e7 20 69 63 6f 6e 64 61 74 |%=4.-.X. icondat|
00006a40 61 25 3d 30 20 8c 20 f2 61 6c 65 72 74 28 22 4d |a%=0 . .alert("M|
00006a50 65 73 73 61 67 65 20 66 72 6f 6d 20 54 72 65 65 |essage from Tree|
00006a60 22 2c 22 55 6e 61 62 6c 65 20 74 6f 20 66 69 6e |","Unable to fin|
00006a70 64 20 65 6e 6f 75 67 68 20 66 72 65 65 20 6d 65 |d enough free me|
00006a80 6d 6f 72 79 2e 22 2c 30 29 3a e1 0d 2d f0 12 62 |mory.",0):..-..b|
00006a90 6c 6f 63 6b 25 21 30 3d 6d 61 69 6e 25 0d 2d fa |lock%!0=main%.-.|
00006aa0 18 c8 99 20 26 30 30 30 34 30 30 43 33 2c 2c 62 |... &000400C3,,b|
00006ab0 6c 6f 63 6b 25 0d 2e 04 25 c8 99 20 26 30 30 30 |lock%...%.. &000|
00006ac0 34 30 30 43 31 2c 2c 6d 61 69 6e 77 69 6e 64 6f |400C1,,mainwindo|
00006ad0 77 25 20 b8 20 6d 61 69 6e 25 0d 2e 0e 0f c8 99 |w% . main%......|
00006ae0 26 30 30 30 34 30 36 43 30 0d 2e 18 0e 63 66 74 |&000406C0....cft|
00006af0 3d a9 28 70 61 24 29 0d 2e 22 0f 74 68 65 62 69 |=.(pa$)..".thebi|
00006b00 67 6f 6e 65 3d 30 0d 2e 2c 17 c8 95 20 c1 70 61 |gone=0..,... .pa|
00006b10 24 2c 63 66 74 2c 31 29 3c 3e 22 2e 22 0d 2e 36 |$,cft,1)<>"."..6|
00006b20 0a 63 66 74 2d 3d 31 0d 2e 40 05 ce 0d 2e 4a 18 |.cft-=1..@....J.|
00006b30 70 6f 6f 75 70 24 3d c1 70 61 24 2c 31 2c 63 66 |pooup$=.pa$,1,cf|
00006b40 74 2d 31 29 0d 2e 54 18 f2 74 69 74 6c 65 28 6d |t-1)..T..title(m|
00006b50 61 69 6e 25 2c 70 6f 6f 75 70 24 29 0d 2e 5e 12 |ain%,pooup$)..^.|
00006b60 62 6c 6f 63 6b 25 21 30 3d 6d 61 69 6e 25 0d 2e |block%!0=main%..|
00006b70 68 15 c8 99 20 26 34 30 30 63 63 2c 2c 62 6c 6f |h... &400cc,,blo|
00006b80 63 6b 25 0d 2e 72 16 77 6f 72 6b 6d 69 6e 78 3d |ck%..r.workminx=|
00006b90 62 6c 6f 63 6b 25 21 34 34 0d 2e 7c 16 77 6f 72 |block%!44..|.wor|
00006ba0 6b 6d 69 6e 79 3d 62 6c 6f 63 6b 25 21 34 38 0d |kminy=block%!48.|
00006bb0 2e 86 16 77 6f 72 6b 6d 61 78 78 3d 62 6c 6f 63 |...workmaxx=bloc|
00006bc0 6b 25 21 35 32 0d 2e 90 16 77 6f 72 6b 6d 61 78 |k%!52....workmax|
00006bd0 79 3d 62 6c 6f 63 6b 25 21 35 36 0d 2e 9a 0a 69 |y=block%!56....i|
00006be0 69 69 25 3d 30 0d 2e a4 0d 74 74 74 65 6d 70 25 |ii%=0....tttemp%|
00006bf0 3d 30 0d 2e ae 27 61 72 63 68 69 76 65 72 25 3d |=0...'archiver%=|
00006c00 a4 6d 6f 64 75 6c 65 70 72 65 73 65 6e 74 28 22 |.modulepresent("|
00006c10 53 70 61 72 6b 46 53 22 29 0d 2e b8 10 74 65 6d |SparkFS")....tem|
00006c20 70 63 61 63 6b 24 3d 22 22 0d 2e c2 17 f2 72 65 |pcack$="".....re|
00006c30 61 64 28 70 6f 6f 75 70 24 2c 30 2c a3 2c 30 29 |ad(pooup$,0,.,0)|
00006c40 0d 2e cc 0e f4 50 52 4f 43 67 61 66 75 70 0d 2e |.....PROCgafup..|
00006c50 d6 0c f2 64 69 72 73 28 a3 29 0d 2e e0 0e e7 20 |...dirs(.)..... |
00006c60 69 69 69 25 3e 30 20 8c 0d 2e ea 15 62 6c 6f 63 |iii%>0 .....bloc|
00006c70 6b 25 21 30 3d 77 6f 72 6b 6d 69 6e 78 0d 2e f4 |k%!0=workminx...|
00006c80 12 62 6c 6f 63 6b 25 21 34 3d 6e 75 74 2d 34 0d |.block%!4=nut-4.|
00006c90 2e fe 19 62 6c 6f 63 6b 25 21 38 3d 74 68 65 62 |...block%!8=theb|
00006ca0 69 67 6f 6e 65 2b 32 30 0d 2f 08 16 62 6c 6f 63 |igone+20./..bloc|
00006cb0 6b 25 21 31 32 3d 77 6f 72 6b 6d 61 78 79 0d 2f |k%!12=workmaxy./|
00006cc0 12 1a c8 99 20 26 34 30 30 64 37 2c 6d 61 69 6e |.... &400d7,main|
00006cd0 25 2c 62 6c 6f 63 6b 25 0d 2f 1c 3b c8 99 20 26 |%,block%./.;.. &|
00006ce0 30 30 30 34 30 30 44 31 2c 6d 61 69 6e 25 2c 62 |000400D1,main%,b|
00006cf0 6c 6f 63 6b 25 21 30 2c 62 6c 6f 63 6b 25 21 34 |lock%!0,block%!4|
00006d00 2c 62 6c 6f 63 6b 25 21 38 2c 62 6c 6f 63 6b 25 |,block%!8,block%|
00006d10 21 31 32 0d 2f 26 18 f2 6f 70 65 6e 77 69 6e 64 |!12./&..openwind|
00006d20 6f 77 28 6d 61 69 6e 25 2c b9 29 0d 2f 30 0b 6d |ow(main%,.)./0.m|
00006d30 6f 64 79 25 3d b9 0d 2f 3a 05 cc 0d 2f 44 17 f2 |ody%=../:.../D..|
00006d40 63 6c 6f 73 65 77 69 6e 64 6f 77 28 6d 61 69 6e |closewindow(main|
00006d50 25 29 0d 2f 4e 47 f2 61 6c 65 72 74 28 22 45 72 |%)./NG.alert("Er|
00006d60 72 6f 72 20 66 72 6f 6d 20 54 72 65 65 22 2c 22 |ror from Tree","|
00006d70 55 6e 61 62 6c 65 20 74 6f 20 63 72 65 61 74 65 |Unable to create|
00006d80 20 74 72 65 65 20 6f 66 20 27 22 2b 70 6f 6f 75 | tree of '"+poou|
00006d90 70 24 2b 22 27 22 2c 30 29 0d 2f 58 0b 6d 6f 64 |p$+"'",0)./X.mod|
00006da0 79 25 3d a3 0d 2f 62 05 e1 0d 2f 6c 05 cd 0d 2f |y%=../b.../l.../|
00006db0 76 0f c8 99 26 30 30 30 34 30 36 43 32 0d 2f 80 |v...&000406C2./.|
00006dc0 05 e1 0d 2f 8a 18 dd 20 a4 67 65 74 73 74 72 69 |.../... .getstri|
00006dd0 6e 67 28 61 72 72 61 79 25 29 0d 2f 94 14 ea 20 |ng(array%)./... |
00006de0 70 61 74 68 24 2c 70 6f 69 6e 74 65 72 25 0d 2f |path$,pointer%./|
00006df0 9e 0c 70 61 74 68 24 3d 22 22 0d 2f a8 13 70 6f |..path$=""./..po|
00006e00 69 6e 74 65 72 25 3d 61 72 72 61 79 25 0d 2f b2 |inter%=array%./.|
00006e10 05 f5 0d 2f bc 15 70 61 74 68 24 2b 3d bd 3f 70 |.../..path$+=.?p|
00006e20 6f 69 6e 74 65 72 25 0d 2f c6 0f 70 6f 69 6e 74 |ointer%./..point|
00006e30 65 72 25 2b 3d 31 0d 2f d0 20 fd 20 3f 70 6f 69 |er%+=1./. . ?poi|
00006e40 6e 74 65 72 25 3d 30 20 84 20 3f 70 6f 69 6e 74 |nter%=0 . ?point|
00006e50 65 72 25 3d 31 33 0d 2f da 0a 3d 70 61 74 68 24 |er%=13./..=path$|
00006e60 0d 2f e4 23 dd f2 67 65 74 76 61 72 73 28 72 69 |./.#..getvars(ri|
00006e70 63 68 69 63 6f 6e 25 2c 72 65 73 65 74 66 6c 61 |chicon%,resetfla|
00006e80 67 25 29 0d 2f ee 07 ea 20 85 0d 2f f8 2a ee 20 |g%)./... ../.*. |
00006e90 85 20 ea 20 f2 61 6c 65 72 74 28 22 45 72 72 6f |. . .alert("Erro|
00006ea0 72 20 66 72 6f 6d 20 54 72 65 65 22 2c f6 24 2c |r from Tree",.$,|
00006eb0 30 29 3a e1 0d 30 02 16 66 69 78 62 61 73 65 25 |0):..0..fixbase%|
00006ec0 3d 69 63 6f 6e 64 61 74 61 25 0d 30 0c 13 74 6f |=icondata%.0..to|
00006ed0 74 61 6c 25 3d 66 69 78 62 61 73 65 25 0d 30 16 |tal%=fixbase%.0.|
00006ee0 26 62 61 73 65 25 3d 66 69 78 62 61 73 65 25 2b |&base%=fixbase%+|
00006ef0 28 28 72 69 63 68 69 63 6f 6e 25 29 2a 34 30 30 |((richicon%)*400|
00006f00 29 2b 34 0d 30 20 0f 74 65 78 74 25 3d 62 61 73 |)+4.0 .text%=bas|
00006f10 65 25 0d 30 2a 13 76 61 6c 69 64 25 3d 62 61 73 |e%.0*.valid%=bas|
00006f20 65 25 2b 32 34 0d 30 34 16 66 69 6c 65 6e 61 6d |e%+24.04.filenam|
00006f30 65 25 3d 62 61 73 65 25 2b 34 38 0d 30 3e 13 74 |e%=base%+48.0>.t|
00006f40 79 70 65 25 3d 62 61 73 65 25 2b 33 30 34 0d 30 |ype%=base%+304.0|
00006f50 48 1a 6e 75 6d 62 65 72 69 63 6f 6e 73 25 3d 62 |H.numbericons%=b|
00006f60 61 73 65 25 2b 33 30 38 0d 30 52 19 72 65 61 64 |ase%+308.0R.read|
00006f70 6c 65 6e 67 74 68 25 3d 62 61 73 65 25 2b 33 31 |length%=base%+31|
00006f80 32 0d 30 5c 19 61 74 74 72 69 62 75 74 65 73 25 |2.0\.attributes%|
00006f90 3d 62 61 73 65 25 2b 33 31 36 0d 30 66 13 6c 61 |=base%+316.0f.la|
00006fa0 64 72 25 3d 62 61 73 65 25 2b 33 32 30 0d 30 70 |dr%=base%+320.0p|
00006fb0 13 65 61 64 72 25 3d 62 61 73 65 25 2b 33 32 34 |.eadr%=base%+324|
00006fc0 0d 30 7a 16 74 72 65 65 64 65 66 25 3d 62 61 73 |.0z.treedef%=bas|
00006fd0 65 25 2b 33 32 38 0d 30 84 20 e7 20 72 69 63 68 |e%+328.0. . rich|
00006fe0 69 63 6f 6e 25 3d 30 20 8c 20 72 69 63 68 69 63 |icon%=0 . richic|
00006ff0 6f 6e 25 2b 3d 31 0d 30 8e 2c 62 61 73 65 32 25 |on%+=1.0.,base2%|
00007000 3d 28 69 63 6f 6e 64 61 74 61 25 29 2b 28 28 72 |=(icondata%)+((r|
00007010 69 63 68 69 63 6f 6e 25 2d 31 29 2a 34 30 30 29 |ichicon%-1)*400)|
00007020 2b 34 0d 30 98 11 74 65 78 74 32 25 3d 62 61 73 |+4.0..text2%=bas|
00007030 65 32 25 0d 30 a2 15 76 61 6c 69 64 32 25 3d 62 |e2%.0..valid2%=b|
00007040 61 73 65 32 25 2b 32 34 0d 30 ac 18 66 69 6c 65 |ase2%+24.0..file|
00007050 6e 61 6d 65 32 25 3d 62 61 73 65 32 25 2b 34 38 |name2%=base2%+48|
00007060 0d 30 b6 15 74 79 70 65 32 25 3d 62 61 73 65 32 |.0..type2%=base2|
00007070 25 2b 33 30 34 0d 30 c0 1c 6e 75 6d 62 65 72 69 |%+304.0..numberi|
00007080 63 6f 6e 73 32 25 3d 62 61 73 65 32 25 2b 33 30 |cons2%=base2%+30|
00007090 38 0d 30 ca 1b 72 65 61 64 6c 65 6e 67 74 68 32 |8.0..readlength2|
000070a0 25 3d 62 61 73 65 32 25 2b 33 31 32 0d 30 d4 1b |%=base2%+312.0..|
000070b0 61 74 74 72 69 62 75 74 65 73 32 25 3d 62 61 73 |attributes2%=bas|
000070c0 65 32 25 2b 33 31 36 0d 30 de 15 6c 61 64 72 32 |e2%+316.0..ladr2|
000070d0 25 3d 62 61 73 65 32 25 2b 33 32 30 0d 30 e8 15 |%=base2%+320.0..|
000070e0 65 61 64 72 32 25 3d 62 61 73 65 32 25 2b 33 32 |eadr2%=base2%+32|
000070f0 34 0d 30 f2 18 74 72 65 65 64 65 66 32 25 3d 62 |4.0..treedef2%=b|
00007100 61 73 65 32 25 2b 33 32 38 0d 30 fc 12 e7 20 72 |ase2%+328.0... r|
00007110 65 73 65 74 66 6c 61 67 25 20 8c 0d 31 06 18 24 |esetflag% ..1..$|
00007120 28 74 72 65 65 64 65 66 25 29 3d c4 36 33 2c 22 |(treedef%)=.63,"|
00007130 4f 22 29 0d 31 10 05 cd 0d 31 1a 05 e1 0d 31 24 |O").1....1....1$|
00007140 23 dd f2 72 65 61 64 28 70 61 74 68 24 2c 74 62 |#..read(path$,tb|
00007150 2c 66 6c 61 67 2c 6d 79 63 6f 75 6e 74 65 72 29 |,flag,mycounter)|
00007160 0d 31 2e 07 ea 20 85 0d 31 38 2a ee 20 85 20 ea |.1... ..18*. . .|
00007170 20 f2 61 6c 65 72 74 28 22 45 72 72 6f 72 20 66 | .alert("Error f|
00007180 72 6f 6d 20 54 72 65 65 22 2c f6 24 2c 30 29 3a |rom Tree",.$,0):|
00007190 e1 0d 31 42 09 f2 67 6f 67 6f 0d 31 4c 05 e1 0d |..1B..gogo.1L...|
000071a0 31 56 0a dd f2 67 6f 67 6f 0d 31 60 12 ea 20 6f |1V...gogo.1`.. o|
000071b0 66 66 73 65 74 2c 74 65 6d 70 24 0d 31 6a 0c 6f |ffset,temp$.1j.o|
000071c0 66 66 73 65 74 3d 30 0d 31 74 05 f5 0d 31 7e 11 |ffset=0.1t...1~.|
000071d0 24 28 62 75 66 25 2b 32 30 29 3d bd 30 0d 31 88 |$(buf%+20)=.0.1.|
000071e0 4c c8 99 26 30 30 30 32 30 30 30 43 2c 31 30 2c |L..&0002000C,10,|
000071f0 70 61 74 68 24 2b bd 30 2c 62 75 66 25 2c 6d 61 |path$+.0,buf%,ma|
00007200 78 6e 75 6d 62 65 72 2c 6f 66 66 73 65 74 2c 34 |xnumber,offset,4|
00007210 31 2c 22 22 20 b8 20 52 30 2c 52 31 2c 52 32 2c |1,"" . R0,R1,R2,|
00007220 52 33 2c 6f 66 66 73 65 74 0d 31 92 1d 74 65 6d |R3,offset.1..tem|
00007230 70 24 3d a4 67 65 74 73 74 72 69 6e 67 28 62 75 |p$=.getstring(bu|
00007240 66 25 2b 32 30 29 0d 31 9c 12 e7 20 6f 66 66 73 |f%+20).1... offs|
00007250 65 74 3d 30 20 8c 20 e1 0d 31 a6 11 e7 20 74 65 |et=0 . ..1... te|
00007260 6d 70 24 3c 3e bd 30 20 8c 0d 31 b0 1d 62 6c 6f |mp$<>.0 ..1..blo|
00007270 63 6b 73 69 7a 65 25 3d 62 6c 6f 63 6b 73 69 7a |cksize%=blocksiz|
00007280 65 25 2b 34 30 30 0d 31 ba 1c e7 20 62 6c 6f 63 |e%+400.1... bloc|
00007290 6b 73 69 7a 65 25 3e 68 65 61 70 73 69 7a 65 25 |ksize%>heapsize%|
000072a0 20 8c 0d 31 c4 2c c8 99 20 22 58 4f 53 5f 48 65 | ..1.,.. "XOS_He|
000072b0 61 70 22 2c 35 2c 65 6e 64 70 72 6f 67 25 2c 2c |ap",5,endprog%,,|
000072c0 34 30 30 20 b8 20 2c 2c 2c 74 65 6d 70 25 0d 31 |400 . ,,,temp%.1|
000072d0 ce 87 e7 20 74 65 6d 70 25 3c 3e 34 30 30 20 8c |... temp%<>400 .|
000072e0 20 f2 61 6c 65 72 74 28 22 4d 65 73 73 61 67 65 | .alert("Message|
000072f0 20 66 72 6f 6d 20 54 72 65 65 22 2c 22 55 6e 61 | from Tree","Una|
00007300 62 6c 65 20 74 6f 20 66 69 6e 64 20 65 6e 6f 75 |ble to find enou|
00007310 67 68 20 66 72 65 65 20 6d 65 6d 6f 72 79 2e 20 |gh free memory. |
00007320 41 62 6f 75 74 20 74 6f 20 74 72 79 20 74 6f 20 |About to try to |
00007330 64 69 73 70 6c 61 79 20 61 6c 6c 20 74 68 61 74 |display all that|
00007340 20 68 61 73 20 62 65 65 6e 20 72 65 61 64 2e 22 | has been read."|
00007350 2c 30 29 3a e1 0d 31 d8 12 68 65 61 70 73 69 7a |,0):..1..heapsiz|
00007360 65 25 2b 3d 34 30 30 0d 31 e2 27 e7 20 a4 63 68 |e%+=400.1.'. .ch|
00007370 65 63 6b 66 72 65 65 73 70 61 63 65 3c 3d 73 6d |eckfreespace<=sm|
00007380 65 67 62 6c 6f 63 6b 73 69 7a 65 25 20 8c 0d 31 |egblocksize% ..1|
00007390 ec 76 f2 61 6c 65 72 74 28 22 4d 65 73 73 61 67 |.v.alert("Messag|
000073a0 65 20 66 72 6f 6d 20 54 72 65 65 22 2c 22 55 6e |e from Tree","Un|
000073b0 61 62 6c 65 20 74 6f 20 66 69 6e 64 20 65 6e 6f |able to find eno|
000073c0 75 67 68 20 66 72 65 65 20 6d 65 6d 6f 72 79 2e |ugh free memory.|
000073d0 20 41 62 6f 75 74 20 74 6f 20 74 72 79 20 74 6f | About to try to|
000073e0 20 64 69 73 70 6c 61 79 20 61 6c 6c 20 74 68 61 | display all tha|
000073f0 74 20 68 61 73 20 62 65 65 6e 20 72 65 61 64 2e |t has been read.|
00007400 22 2c 30 29 0d 31 f6 12 68 65 61 70 73 69 7a 65 |",0).1..heapsize|
00007410 25 2d 3d 34 30 30 0d 32 00 13 62 6c 6f 63 6b 73 |%-=400.2..blocks|
00007420 69 7a 65 25 2d 3d 34 30 30 0d 32 0a 05 e1 0d 32 |ize%-=400.2....2|
00007430 14 05 cd 0d 32 1e 3c c8 99 20 22 57 69 6d 70 5f |....2.<.. "Wimp_|
00007440 53 6c 6f 74 53 69 7a 65 22 2c 74 61 73 6b 73 69 |SlotSize",tasksi|
00007450 7a 65 25 2b 68 65 61 70 73 69 7a 65 25 2b 73 6d |ze%+heapsize%+sm|
00007460 65 67 62 6c 6f 63 6b 73 69 7a 65 25 2c 2d 31 0d |egblocksize%,-1.|
00007470 32 28 05 cd 0d 32 32 38 c8 99 20 22 58 4f 53 5f |2(...228.. "XOS_|
00007480 48 65 61 70 22 2c 34 2c 65 6e 64 70 72 6f 67 25 |Heap",4,endprog%|
00007490 2c 69 63 6f 6e 64 61 74 61 25 2c 34 30 30 20 b8 |,icondata%,400 .|
000074a0 20 2c 2c 69 63 6f 6e 64 61 74 61 25 0d 32 3c 88 | ,,icondata%.2<.|
000074b0 e7 20 69 63 6f 6e 64 61 74 61 25 3d 30 20 8c 20 |. icondata%=0 . |
000074c0 f2 61 6c 65 72 74 28 22 4d 65 73 73 61 67 65 20 |.alert("Message |
000074d0 66 72 6f 6d 20 54 72 65 65 22 2c 22 55 6e 61 62 |from Tree","Unab|
000074e0 6c 65 20 74 6f 20 66 69 6e 64 20 65 6e 6f 75 67 |le to find enoug|
000074f0 68 20 66 72 65 65 20 6d 65 6d 6f 72 79 2e 20 41 |h free memory. A|
00007500 62 6f 75 74 20 74 6f 20 74 72 79 20 74 6f 20 64 |bout to try to d|
00007510 69 73 70 6c 61 79 20 61 6c 6c 20 74 68 61 74 20 |isplay all that |
00007520 68 61 73 20 62 65 65 6e 20 72 65 61 64 2e 22 2c |has been read.",|
00007530 30 29 3a e1 0d 32 46 14 f2 67 65 74 76 61 72 73 |0):..2F..getvars|
00007540 28 69 69 69 25 2c b9 29 0d 32 50 23 66 74 79 25 |(iii%,.).2P#fty%|
00007550 3d a4 66 69 6c 65 73 74 79 70 65 28 62 75 66 25 |=.filestype(buf%|
00007560 21 31 36 2c 62 75 66 25 21 30 29 0d 32 5a 1e 24 |!16,buf%!0).2Z.$|
00007570 66 69 6c 65 6e 61 6d 65 25 3d 70 61 74 68 24 2b |filename%=path$+|
00007580 22 2e 22 2b 74 65 6d 70 24 0d 32 64 10 74 79 70 |"."+temp$.2d.typ|
00007590 65 25 21 30 3d 66 74 79 25 0d 32 6e 18 72 65 61 |e%!0=fty%.2n.rea|
000075a0 64 6c 65 6e 67 74 68 25 21 30 3d 62 75 66 25 21 |dlength%!0=buf%!|
000075b0 38 0d 32 78 19 61 74 74 72 69 62 75 74 65 73 25 |8.2x.attributes%|
000075c0 21 30 3d 62 75 66 25 21 31 32 0d 32 82 12 6c 61 |!0=buf%!12.2..la|
000075d0 64 72 25 21 30 3d 62 75 66 25 21 30 0d 32 8c 12 |dr%!0=buf%!0.2..|
000075e0 65 61 64 72 25 21 30 3d 62 75 66 25 21 34 0d 32 |eadr%!0=buf%!4.2|
000075f0 96 05 3a 0d 32 a0 12 62 6c 6f 63 6b 25 21 30 3d |..:.2..block%!0=|
00007600 6d 61 69 6e 25 0d 32 aa 0e 62 6c 6f 63 6b 25 21 |main%.2..block%!|
00007610 34 3d 30 0d 32 b4 15 c8 99 20 26 34 30 30 43 45 |4=0.2.... &400CE|
00007620 2c 2c 62 6c 6f 63 6b 25 0d 32 be 11 66 61 67 25 |,,block%.2..fag%|
00007630 3d 62 6c 6f 63 6b 25 2b 34 0d 32 c8 0f 75 6d 31 |=block%+4.2..um1|
00007640 25 3d 66 61 67 25 21 34 0d 32 d2 10 75 6d 32 25 |%=fag%!4.2..um2%|
00007650 3d 66 61 67 25 21 31 32 0d 32 dc 12 62 6c 6f 63 |=fag%!12.2..bloc|
00007660 6b 25 21 30 3d 6d 61 69 6e 25 0d 32 e6 11 62 6c |k%!0=main%.2..bl|
00007670 6f 63 6b 25 21 34 3d 69 69 69 25 0d 32 f0 15 c8 |ock%!4=iii%.2...|
00007680 99 20 26 34 30 30 43 45 2c 2c 62 6c 6f 63 6b 25 |. &400CE,,block%|
00007690 0d 32 fa 11 66 61 67 25 3d 62 6c 6f 63 6b 25 2b |.2..fag%=block%+|
000076a0 34 0d 33 04 10 66 61 67 25 21 30 3d 6d 61 69 6e |4.3..fag%!0=main|
000076b0 25 0d 33 0e 14 66 61 67 25 21 38 3d 66 61 67 25 |%.3..fag%!8=fag%|
000076c0 21 38 2d 34 34 0d 33 18 12 66 61 67 25 21 34 3d |!8-44.3..fag%!4=|
000076d0 75 6d 31 25 2b 74 62 0d 33 22 0e 6e 75 74 3d 66 |um1%+tb.3".nut=f|
000076e0 61 67 25 21 38 0d 33 2c 16 66 61 67 25 21 31 36 |ag%!8.3,.fag%!16|
000076f0 3d 66 61 67 25 21 31 36 2d 34 34 0d 33 36 13 66 |=fag%!16-44.36.f|
00007700 61 67 25 21 31 32 3d 75 6d 32 25 2b 74 62 0d 33 |ag%!12=um2%+tb.3|
00007710 40 2b e7 20 66 61 67 25 21 31 32 3e 74 68 65 62 |@+. fag%!12>theb|
00007720 69 67 6f 6e 65 20 8c 20 74 68 65 62 69 67 6f 6e |igone . thebigon|
00007730 65 3d 66 61 67 25 21 31 32 0d 33 4a 11 e7 20 6f |e=fag%!12.3J.. o|
00007740 66 66 73 65 74 3d 2d 31 20 8c 0d 33 54 1f 3f 28 |ffset=-1 ..3T.?(|
00007750 74 72 65 65 64 65 66 25 2b 6d 79 63 6f 75 6e 74 |treedef%+mycount|
00007760 65 72 29 3d 61 73 63 6c 25 0d 33 5e 05 cc 0d 33 |er)=ascl%.3^...3|
00007770 68 1f 3f 28 74 72 65 65 64 65 66 25 2b 6d 79 63 |h.?(treedef%+myc|
00007780 6f 75 6e 74 65 72 29 3d 61 73 63 74 25 0d 33 72 |ounter)=asct%.3r|
00007790 05 cd 0d 33 7c 1c 6e 75 6d 62 65 72 69 63 6f 6e |...3|.numbericon|
000077a0 73 25 21 30 3d 6d 79 63 6f 75 6e 74 65 72 0d 33 |s%!0=mycounter.3|
000077b0 86 13 e7 20 28 69 69 69 25 2d 31 29 3e 3d 30 20 |... (iii%-1)>=0 |
000077c0 8c 0d 33 90 21 e3 20 73 6d 65 67 25 3d 30 20 b8 |..3.!. smeg%=0 .|
000077d0 20 28 6e 75 6d 62 65 72 69 63 6f 6e 73 32 25 21 | (numbericons2%!|
000077e0 30 29 0d 33 9a 53 e7 20 3f 28 74 72 65 65 64 65 |0).3.S. ?(treede|
000077f0 66 32 25 2b 73 6d 65 67 25 29 3d 61 73 63 74 25 |f2%+smeg%)=asct%|
00007800 20 80 20 3f 28 74 72 65 65 64 65 66 25 2b 73 6d | . ?(treedef%+sm|
00007810 65 67 25 29 3c 3e 61 73 63 6c 25 20 8c 20 3f 28 |eg%)<>ascl% . ?(|
00007820 74 72 65 65 64 65 66 25 2b 73 6d 65 67 25 29 3d |treedef%+smeg%)=|
00007830 61 73 63 74 25 0d 33 a4 0a ed 73 6d 65 67 25 0d |asct%.3...smeg%.|
00007840 33 ae 05 cd 0d 33 b8 10 24 74 65 78 74 25 3d 74 |3....3..$text%=t|
00007850 65 6d 70 24 0d 33 c2 11 66 61 67 25 21 32 34 3d |emp$.3..fag%!24=|
00007860 74 65 78 74 25 0d 33 cc 1b e7 20 66 74 79 25 3e |text%.3... fty%>|
00007870 26 46 46 46 20 84 20 66 74 79 25 3c 26 30 20 8c |&FFF . fty%<&0 .|
00007880 0d 33 d6 17 20 20 e7 20 c0 74 65 6d 70 24 2c 31 |.3.. . .temp$,1|
00007890 29 3d 22 21 22 20 8c 0d 33 e0 30 20 20 20 20 e7 |)="!" ..3.0 .|
000078a0 20 ac 20 a4 73 70 72 69 74 65 65 78 69 73 74 73 | . .spriteexists|
000078b0 28 74 65 6d 70 24 29 20 80 20 69 63 6f 6e 73 70 |(temp$) . iconsp|
000078c0 72 69 74 65 73 20 8c 0d 33 ea 2d 20 20 20 20 20 |rites ..3.- |
000078d0 20 74 74 79 25 3d 8e 28 70 61 74 68 24 2b 22 2e | tty%=.(path$+".|
000078e0 22 2b 74 65 6d 70 24 2b 22 2e 21 53 70 72 69 74 |"+temp$+".!Sprit|
000078f0 65 73 22 29 0d 33 f4 15 20 20 20 20 20 20 e7 20 |es").3.. . |
00007900 74 74 79 25 3c 3e 30 20 8c 0d 33 fe 18 20 20 20 |tty%<>0 ..3.. |
00007910 20 20 20 20 20 77 6c 6c 6c 25 3d a2 23 74 74 79 | wlll%=.#tty|
00007920 25 0d 34 08 12 20 20 20 20 20 20 20 20 d9 23 74 |%.4.. .#t|
00007930 74 79 25 0d 34 12 0b 20 20 20 20 20 20 cd 0d 34 |ty%.4.. ..4|
00007940 1c 24 20 20 20 20 20 20 e7 20 74 74 79 25 3c 3e |.$ . tty%<>|
00007950 30 20 80 20 6c 6f 63 61 6c 73 70 72 69 74 65 73 |0 . localsprites|
00007960 20 8c 0d 34 26 42 20 20 20 20 20 20 20 20 e7 20 | ..4&B . |
00007970 a4 66 69 6c 65 74 79 70 65 6f 66 61 66 69 6c 65 |.filetypeofafile|
00007980 28 70 61 74 68 24 2b 22 2e 22 2b 74 65 6d 70 24 |(path$+"."+temp$|
00007990 2b 22 2e 21 53 70 72 69 74 65 73 22 29 3d 26 46 |+".!Sprites")=&F|
000079a0 46 39 20 8c 0d 34 30 27 20 20 20 20 20 20 20 20 |F9 ..40' |
000079b0 20 20 e7 20 a4 63 68 65 63 6b 66 72 65 65 73 70 | . .checkfreesp|
000079c0 61 63 65 3e 77 6c 6c 6c 25 20 8c 0d 34 3a 2d 20 |ace>wlll% ..4:- |
000079d0 20 20 20 20 20 20 20 20 20 20 20 e7 20 6c 6f 63 | . loc|
000079e0 61 6c 73 70 72 69 74 65 73 20 8c 20 f2 6c 6f 61 |alsprites . .loa|
000079f0 64 73 70 72 69 74 65 73 0d 34 44 0f 20 20 20 20 |dsprites.4D. |
00007a00 20 20 20 20 20 20 cc 0d 34 4e 6f 20 20 20 20 20 | ..4No |
00007a10 20 20 20 20 20 20 20 f2 61 6c 65 72 74 28 22 4d | .alert("M|
00007a20 65 73 73 61 67 65 20 66 72 6f 6d 20 54 72 65 65 |essage from Tree|
00007a30 22 2c 22 4e 6f 20 72 6f 6f 6d 20 66 6f 72 20 73 |","No room for s|
00007a40 70 72 69 74 65 73 2e 20 46 6f 72 67 65 74 74 69 |prites. Forgetti|
00007a50 6e 67 20 74 6f 20 6c 6f 61 64 20 61 6e 79 20 6d |ng to load any m|
00007a60 6f 72 65 20 21 53 70 72 69 74 65 20 66 69 6c 65 |ore !Sprite file|
00007a70 73 2e 22 2c 30 29 0d 34 58 1e 20 20 20 20 20 20 |s.",0).4X. |
00007a80 20 20 20 20 20 20 6c 6f 63 61 6c 73 70 72 69 74 | localsprit|
00007a90 65 73 3d a3 0d 34 62 23 20 20 20 20 20 20 20 20 |es=..4b# |
00007aa0 20 20 20 20 76 61 6c 69 64 24 3d 22 53 64 69 72 | valid$="Sdir|
00007ab0 65 63 74 6f 72 79 22 0d 34 6c 0f 20 20 20 20 20 |ectory".4l. |
00007ac0 20 20 20 20 20 cd 0d 34 76 0d 20 20 20 20 20 20 | ..4v. |
00007ad0 20 20 cd 0d 34 80 0b 20 20 20 20 20 20 cd 0d 34 | ..4.. ..4|
00007ae0 8a 09 20 20 20 20 cd 0d 34 94 18 20 20 20 20 76 |.. ..4.. v|
00007af0 61 6c 69 64 24 3d 22 53 22 2b 74 65 6d 70 24 0d |alid$="S"+temp$.|
00007b00 34 9e 47 20 20 20 20 e7 20 ac 20 a4 73 70 72 69 |4.G . . .spri|
00007b10 74 65 65 78 69 73 74 73 28 c1 76 61 6c 69 64 24 |teexists(.valid$|
00007b20 2c 32 2c a9 28 76 61 6c 69 64 24 29 29 29 20 8c |,2,.(valid$))) .|
00007b30 20 76 61 6c 69 64 24 3d 22 53 61 70 70 6c 69 63 | valid$="Sapplic|
00007b40 61 74 69 6f 6e 22 0d 34 a8 07 20 20 cc 0d 34 b2 |ation".4.. ..4.|
00007b50 1b 20 20 20 20 76 61 6c 69 64 24 3d 22 53 64 69 |. valid$="Sdi|
00007b60 72 65 63 74 6f 72 79 22 0d 34 bc 07 20 20 cd 0d |rectory".4.. ..|
00007b70 34 c6 05 cc 0d 34 d0 20 20 20 76 61 6c 69 64 24 |4....4. valid$|
00007b80 3d 22 53 66 69 6c 65 5f 22 2b a4 70 61 64 28 66 |="Sfile_"+.pad(f|
00007b90 74 79 25 29 0d 34 da 05 cd 0d 34 e4 3b e7 20 74 |ty%).4....4.;. t|
00007ba0 79 70 65 25 21 30 3d 2d 32 20 80 20 76 61 6c 69 |ype%!0=-2 . vali|
00007bb0 64 24 3d 22 53 64 69 72 65 63 74 6f 72 79 22 20 |d$="Sdirectory" |
00007bc0 8c 20 76 61 6c 69 64 24 3d 22 53 66 69 6c 65 5f |. valid$="Sfile_|
00007bd0 78 78 78 22 0d 34 ee 40 e7 20 ac 20 a4 73 70 72 |xxx".4.@. . .spr|
00007be0 69 74 65 65 78 69 73 74 73 28 c1 76 61 6c 69 64 |iteexists(.valid|
00007bf0 24 2c 32 2c a9 28 76 61 6c 69 64 24 29 29 29 20 |$,2,.(valid$))) |
00007c00 8c 20 76 61 6c 69 64 24 3d 22 53 66 69 6c 65 5f |. valid$="Sfile_|
00007c10 78 78 78 22 0d 34 f8 12 24 76 61 6c 69 64 25 3d |xxx".4..$valid%=|
00007c20 76 61 6c 69 64 24 0d 35 02 12 66 61 67 25 21 32 |valid$.5..fag%!2|
00007c30 38 3d 76 61 6c 69 64 25 0d 35 0c 14 66 61 67 25 |8=valid%.5..fag%|
00007c40 21 33 32 3d a9 28 74 65 6d 70 24 29 0d 35 16 13 |!32=.(temp$).5..|
00007c50 c8 99 20 26 34 30 30 43 32 2c 2c 66 61 67 25 0d |.. &400C2,,fag%.|
00007c60 35 20 0b 69 69 69 25 2b 3d 31 0d 35 2a 11 74 6f |5 .iii%+=1.5*.to|
00007c70 74 61 6c 25 21 30 3d 69 69 69 25 0d 35 34 05 cd |tal%!0=iii%.54..|
00007c80 0d 35 3e 37 e7 20 62 75 66 25 21 31 36 3d 32 20 |.5>7. buf%!16=2 |
00007c90 84 20 28 66 74 79 25 3d 26 64 64 63 20 80 20 61 |. (fty%=&ddc . a|
00007ca0 72 63 68 69 76 65 72 25 29 20 84 20 66 74 79 25 |rchiver%) . fty%|
00007cb0 3d 26 66 63 38 20 8c 0d 35 48 11 e7 20 74 65 6d |=&fc8 ..5H.. tem|
00007cc0 70 24 3c 3e bd 30 20 8c 0d 35 52 2e f2 72 65 61 |p$<>.0 ..5R..rea|
00007cd0 64 28 70 61 74 68 24 2b 22 2e 22 2b 74 65 6d 70 |d(path$+"."+temp|
00007ce0 24 2c 74 62 2b 35 30 2c b9 2c 6d 79 63 6f 75 6e |$,tb+50,.,mycoun|
00007cf0 74 65 72 2b 31 29 0d 35 5c 05 cd 0d 35 66 05 cd |ter+1).5\...5f..|
00007d00 0d 35 70 0f fd 20 6f 66 66 73 65 74 3d 2d 31 0d |.5p.. offset=-1.|
00007d10 35 7a 05 e1 0d 35 84 05 3a 0d 35 8e 11 dd f2 6c |5z...5..:.5....l|
00007d20 6f 61 64 73 70 72 69 74 65 73 0d 35 98 07 ea 20 |oadsprites.5... |
00007d30 85 0d 35 a2 8d ee 20 85 20 ea 20 f2 61 6c 65 72 |..5... . . .aler|
00007d40 74 28 22 4d 65 73 73 61 67 65 20 66 72 6f 6d 20 |t("Message from |
00007d50 54 72 65 65 22 2c 22 45 72 72 6f 72 20 77 68 69 |Tree","Error whi|
00007d60 6c 73 74 20 74 72 79 69 6e 67 20 74 6f 20 49 43 |lst trying to IC|
00007d70 4f 4e 53 50 52 49 54 45 20 21 53 70 72 69 74 65 |ONSPRITE !Sprite|
00007d80 73 20 66 69 6c 65 2e 20 22 2b f6 24 2b 22 2e 20 |s file. "+.$+". |
00007d90 4e 6f 74 20 62 6f 74 68 65 72 69 6e 67 20 77 69 |Not bothering wi|
00007da0 74 68 20 61 6e 79 20 6d 6f 72 65 20 21 53 70 72 |th any more !Spr|
00007db0 69 74 65 20 66 69 6c 65 73 2e 22 2c 30 29 0d 35 |ite files.",0).5|
00007dc0 ac 31 ff 28 22 49 43 4f 4e 53 50 52 49 54 45 53 |.1.("ICONSPRITES|
00007dd0 20 22 2b 70 61 74 68 24 2b 22 2e 22 2b 74 65 6d | "+path$+"."+tem|
00007de0 70 24 2b 22 2e 21 53 70 72 69 74 65 73 22 29 0d |p$+".!Sprites").|
00007df0 35 b6 12 6c 6f 63 61 6c 73 70 72 69 74 65 73 3d |5..localsprites=|
00007e00 a3 0d 35 c0 05 e1 0d 35 ca 05 3a 0d 35 d4 12 dd |..5....5..:.5...|
00007e10 f2 6c 6f 61 64 73 70 72 69 74 65 73 32 0d 35 de |.loadsprites2.5.|
00007e20 07 ea 20 85 0d 35 e8 8d ee 20 85 20 ea 20 f2 61 |.. ..5... . . .a|
00007e30 6c 65 72 74 28 22 4d 65 73 73 61 67 65 20 66 72 |lert("Message fr|
00007e40 6f 6d 20 54 72 65 65 22 2c 22 45 72 72 6f 72 20 |om Tree","Error |
00007e50 77 68 69 6c 73 74 20 74 72 79 69 6e 67 20 74 6f |whilst trying to|
00007e60 20 49 43 4f 4e 53 50 52 49 54 45 20 21 53 70 72 | ICONSPRITE !Spr|
00007e70 69 74 65 73 20 66 69 6c 65 2e 20 22 2b f6 24 2b |ites file. "+.$+|
00007e80 22 2e 20 4e 6f 74 20 62 6f 74 68 65 72 69 6e 67 |". Not bothering|
00007e90 20 77 69 74 68 20 61 6e 79 20 6d 6f 72 65 20 21 | with any more !|
00007ea0 53 70 72 69 74 65 20 66 69 6c 65 73 2e 22 2c 30 |Sprite files.",0|
00007eb0 29 0d 35 f2 2c ff 28 22 49 43 4f 4e 53 50 52 49 |).5.,.("ICONSPRI|
00007ec0 54 45 53 20 22 2b 24 66 69 6c 65 6e 61 6d 65 25 |TES "+$filename%|
00007ed0 2b 22 2e 21 53 70 72 69 74 65 73 22 29 0d 35 fc |+".!Sprites").5.|
00007ee0 12 6c 6f 63 61 6c 73 70 72 69 74 65 73 3d a3 0d |.localsprites=..|
00007ef0 36 06 05 e1 0d 36 10 05 3a 0d 36 1a 0b dd f2 67 |6....6..:.6....g|
00007f00 61 66 75 70 0d 36 24 05 e1 0d 36 2e 11 f4 73 6d |afup.6$...6...sm|
00007f10 65 67 25 3d 69 69 69 25 2d 31 0d 36 38 1d f4 50 |eg%=iii%-1.68..P|
00007f20 52 4f 43 67 65 74 76 61 72 73 28 73 6d 65 67 25 |ROCgetvars(smeg%|
00007f30 2c 46 41 4c 53 45 29 0d 36 42 1b f4 57 48 49 4c |,FALSE).6B..WHIL|
00007f40 45 20 6e 75 6d 62 65 72 69 63 6f 6e 73 25 21 30 |E numbericons%!0|
00007f50 3e 30 0d 36 4c 1d f4 50 52 4f 43 67 65 74 76 61 |>0.6L..PROCgetva|
00007f60 72 73 28 73 6d 65 67 25 2c 46 41 4c 53 45 29 0d |rs(smeg%,FALSE).|
00007f70 36 56 27 f4 46 4f 52 20 73 6d 65 67 32 25 3d 30 |6V'.FOR smeg2%=0|
00007f80 20 54 4f 20 28 6e 75 6d 62 65 72 69 63 6f 6e 73 | TO (numbericons|
00007f90 25 21 30 29 2d 31 0d 36 60 1d f4 3f 28 74 72 65 |%!0)-1.6`..?(tre|
00007fa0 65 64 65 66 25 2b 73 6d 65 67 32 25 29 3d 61 73 |edef%+smeg2%)=as|
00007fb0 63 6c 25 0d 36 6a 10 f4 4e 45 58 54 20 73 6d 65 |cl%.6j..NEXT sme|
00007fc0 67 32 25 0d 36 74 0d f4 73 6d 65 67 25 2d 3d 31 |g2%.6t..smeg%-=1|
00007fd0 0d 36 7e 0d f4 45 4e 44 57 48 49 4c 45 0d 36 88 |.6~..ENDWHILE.6.|
00007fe0 1c e3 20 73 6d 65 67 32 25 3d 69 69 69 25 2d 31 |.. smeg2%=iii%-1|
00007ff0 20 b8 20 31 20 88 20 2d 31 0d 36 92 16 f2 67 65 | . 1 . -1.6...ge|
00008000 74 76 61 72 73 28 73 6d 65 67 32 25 2c a3 29 0d |tvars(smeg2%,.).|
00008010 36 9c 21 e3 20 73 6d 65 67 33 25 3d 30 20 b8 20 |6.!. smeg3%=0 . |
00008020 28 6e 75 6d 62 65 72 69 63 6f 6e 73 25 21 30 29 |(numbericons%!0)|
00008030 0d 36 a6 3e 20 20 20 20 e7 20 3f 28 74 72 65 65 |.6.> . ?(tree|
00008040 64 65 66 25 2b 73 6d 65 67 33 25 29 3d 61 73 63 |def%+smeg3%)=asc|
00008050 6c 25 20 84 20 3f 28 74 72 65 65 64 65 66 25 2b |l% . ?(treedef%+|
00008060 73 6d 65 67 33 25 29 3d 97 22 46 22 20 8c 0d 36 |smeg3%)=."F" ..6|
00008070 b0 20 20 20 20 20 3f 28 74 72 65 65 64 65 66 32 |. ?(treedef2|
00008080 25 2b 73 6d 65 67 33 25 29 3d 97 22 46 22 0d 36 |%+smeg3%)=."F".6|
00008090 ba 09 20 20 20 20 cc 0d 36 c4 20 20 20 20 20 3f |.. ..6. ?|
000080a0 28 74 72 65 65 64 65 66 32 25 2b 73 6d 65 67 33 |(treedef2%+smeg3|
000080b0 25 29 3d 97 22 4f 22 0d 36 ce 09 20 20 20 20 cd |%)=."O".6.. .|
000080c0 0d 36 d8 23 20 20 20 20 e7 20 3f 28 74 72 65 65 |.6.# . ?(tree|
000080d0 64 65 66 25 2b 73 6d 65 67 33 25 29 3d 97 22 46 |def%+smeg3%)=."F|
000080e0 22 20 8c 0d 36 e2 23 20 20 20 20 20 20 20 3f 28 |" ..6.# ?(|
000080f0 74 72 65 65 64 65 66 25 2b 73 6d 65 67 33 25 29 |treedef%+smeg3%)|
00008100 3d 61 73 63 74 25 0d 36 ec 23 20 20 20 20 20 20 |=asct%.6.# |
00008110 20 3f 28 74 72 65 65 64 65 66 32 25 2b 73 6d 65 | ?(treedef2%+sme|
00008120 67 33 25 29 3d 97 22 46 22 0d 36 f6 09 20 20 20 |g3%)=."F".6.. |
00008130 20 cd 0d 37 00 0b ed 73 6d 65 67 33 25 0d 37 0a | ..7...smeg3%.7.|
00008140 0b ed 73 6d 65 67 32 25 0d 37 14 05 e1 0d 37 1e |..smeg2%.7....7.|
00008150 05 3a 0d 37 28 0b dd a4 77 73 28 73 29 0d 37 32 |.:.7(...ws(s).72|
00008160 0b de 20 73 70 25 20 73 0d 37 3c 08 3d 73 70 25 |.. sp% s.7<.=sp%|
00008170 0d 37 46 1c dd 20 a4 66 69 6c 65 73 74 79 70 65 |.7F.. .filestype|
00008180 28 6f 62 6a 25 2c 74 79 70 65 25 29 0d 37 50 31 |(obj%,type%).7P1|
00008190 e7 20 6f 62 6a 25 3d 31 20 80 20 28 74 79 70 65 |. obj%=1 . (type|
000081a0 25 20 80 20 26 46 46 46 30 30 30 30 30 29 20 3c |% . &FFF00000) <|
000081b0 3e 20 26 46 46 46 30 30 30 30 30 20 8c 0d 37 5a |> &FFF00000 ..7Z|
000081c0 0c 74 79 70 65 25 3d 2d 32 0d 37 64 05 cc 0d 37 |.type%=-2.7d...7|
000081d0 6e 35 e7 20 6f 62 6a 25 3d 31 20 8c 20 74 79 70 |n5. obj%=1 . typ|
000081e0 65 25 3d 28 74 79 70 65 25 20 80 20 26 46 46 46 |e%=(type% . &FFF|
000081f0 30 30 29 20 3e 3e 20 38 20 8b 20 74 79 70 65 25 |00) >> 8 . type%|
00008200 3d 2d 31 0d 37 78 05 cd 0d 37 82 0a 3d 74 79 70 |=-1.7x...7..=typ|
00008210 65 25 0d 37 8c 0d dd a4 70 61 64 28 71 71 29 0d |e%.7....pad(qq).|
00008220 37 96 0f 66 61 72 24 3d c3 7e 28 71 71 29 0d 37 |7..far$=.~(qq).7|
00008230 a0 10 c8 8e 20 a9 28 66 61 72 24 29 20 ca 0d 37 |.... .(far$) ..7|
00008240 aa 07 c9 20 30 0d 37 b4 0e 66 61 72 24 3d 22 30 |... 0.7..far$="0|
00008250 30 30 22 0d 37 be 07 c9 20 31 0d 37 c8 12 66 61 |00".7... 1.7..fa|
00008260 72 24 3d 22 30 30 22 2b 66 61 72 24 0d 37 d2 07 |r$="00"+far$.7..|
00008270 c9 20 32 0d 37 dc 11 66 61 72 24 3d 22 30 22 2b |. 2.7..far$="0"+|
00008280 66 61 72 24 0d 37 e6 05 cb 0d 37 f0 09 3d 66 61 |far$.7....7..=fa|
00008290 72 24 0d 37 fa 23 dd f2 64 6f 6c 69 6e 65 73 28 |r$.7.#..dolines(|
000082a0 6d 69 6e 79 25 2c 6d 61 78 79 25 2c 73 63 72 6f |miny%,maxy%,scro|
000082b0 6c 6c 79 25 29 0d 38 04 17 c8 99 26 30 30 30 34 |lly%).8....&0004|
000082c0 30 30 45 36 2c 66 69 6e 63 6f 6c 73 0d 38 0e 19 |00E6,fincols.8..|
000082d0 74 6f 70 25 3d 94 28 73 63 72 6f 6c 6c 79 25 20 |top%=.(scrolly% |
000082e0 81 20 34 34 29 0d 38 18 24 62 6f 74 25 3d 28 6d |. 44).8.$bot%=(m|
000082f0 61 78 79 25 2d 6d 69 6e 79 25 2d 73 63 72 6f 6c |axy%-miny%-scrol|
00008300 6c 79 25 29 20 81 20 34 34 0d 38 22 13 62 6c 6f |ly%) . 44.8".blo|
00008310 63 6b 32 25 21 30 3d 6d 61 69 6e 25 0d 38 2c 15 |ck2%!0=main%.8,.|
00008320 c8 99 26 34 30 30 63 62 2c 2c 62 6c 6f 63 6b 32 |..&400cb,,block2|
00008330 25 0d 38 36 1e 74 6f 70 78 25 3d 62 6c 6f 63 6b |%.86.topx%=block|
00008340 32 25 21 34 2d 62 6c 6f 63 6b 32 25 21 32 30 0d |2%!4-block2%!20.|
00008350 38 40 1f 74 6f 70 79 25 3d 62 6c 6f 63 6b 32 25 |8@.topy%=block2%|
00008360 21 31 36 2d 62 6c 6f 63 6b 32 25 21 32 34 0d 38 |!16-block2%!24.8|
00008370 4a 0f 74 6f 62 6f 74 25 3d 62 6f 74 25 0d 38 54 |J.tobot%=bot%.8T|
00008380 23 e7 20 74 6f 62 6f 74 25 3e 69 69 69 25 2d 31 |#. tobot%>iii%-1|
00008390 20 8c 20 74 6f 62 6f 74 25 3d 69 69 69 25 2d 31 | . tobot%=iii%-1|
000083a0 0d 38 5e 19 e3 20 70 75 6b 65 25 3d 74 6f 70 25 |.8^.. puke%=top%|
000083b0 20 b8 20 74 6f 62 6f 74 25 0d 38 68 15 f2 67 65 | . tobot%.8h..ge|
000083c0 74 76 61 72 73 28 70 75 6b 65 25 2c a3 29 0d 38 |tvars(puke%,.).8|
000083d0 72 26 e3 20 73 75 62 63 6f 75 6e 74 25 3d 30 20 |r&. subcount%=0 |
000083e0 b8 20 28 6e 75 6d 62 65 72 69 63 6f 6e 73 25 21 |. (numbericons%!|
000083f0 30 29 2d 31 0d 38 7c 40 e7 20 3f 28 74 72 65 65 |0)-1.8|@. ?(tree|
00008400 64 65 66 25 2b 73 75 62 63 6f 75 6e 74 25 29 3d |def%+subcount%)=|
00008410 61 73 63 74 25 20 80 20 73 75 62 63 6f 75 6e 74 |asct% . subcount|
00008420 25 3c 28 6e 75 6d 62 65 72 69 63 6f 6e 73 25 21 |%<(numbericons%!|
00008430 30 29 20 8c 0d 38 86 2d f2 62 61 72 28 74 6f 70 |0) ..8.-.bar(top|
00008440 78 25 2b 28 73 75 62 63 6f 75 6e 74 25 2a 35 30 |x%+(subcount%*50|
00008450 29 2c 74 6f 70 79 25 2d 70 75 6b 65 25 2a 34 34 |),topy%-puke%*44|
00008460 29 0d 38 90 37 e7 20 74 6f 70 79 25 2d 70 75 6b |).8.7. topy%-puk|
00008470 65 25 2a 34 34 20 3e 20 74 74 74 65 6d 70 25 20 |e%*44 > tttemp% |
00008480 8c 20 74 74 74 65 6d 70 25 3d 74 6f 70 79 25 2d |. tttemp%=topy%-|
00008490 70 75 6b 65 25 2a 34 34 0d 38 9a 05 cd 0d 38 a4 |puke%*44.8....8.|
000084a0 0f ed 20 73 75 62 63 6f 75 6e 74 25 0d 38 ae 28 |.. subcount%.8.(|
000084b0 e7 20 3f 28 74 72 65 65 64 65 66 25 2b 6e 75 6d |. ?(treedef%+num|
000084c0 62 65 72 69 63 6f 6e 73 25 21 30 29 3d 61 73 63 |bericons%!0)=asc|
000084d0 6c 25 20 8c 0d 38 b8 37 f2 62 6f 74 62 61 72 28 |l% ..8.7.botbar(|
000084e0 74 6f 70 78 25 2b 28 28 6e 75 6d 62 65 72 69 63 |topx%+((numberic|
000084f0 6f 6e 73 25 21 30 29 2a 35 30 29 2c 74 6f 70 79 |ons%!0)*50),topy|
00008500 25 2d 70 75 6b 65 25 2a 34 34 29 0d 38 c2 37 e7 |%-puke%*44).8.7.|
00008510 20 74 6f 70 79 25 2d 70 75 6b 65 25 2a 34 34 20 | topy%-puke%*44 |
00008520 3e 20 74 74 74 65 6d 70 25 20 8c 20 74 74 74 65 |> tttemp% . ttte|
00008530 6d 70 25 3d 74 6f 70 79 25 2d 70 75 6b 65 25 2a |mp%=topy%-puke%*|
00008540 34 34 0d 38 cc 05 cd 0d 38 d6 28 e7 20 3f 28 74 |44.8....8.(. ?(t|
00008550 72 65 65 64 65 66 25 2b 6e 75 6d 62 65 72 69 63 |reedef%+numberic|
00008560 6f 6e 73 25 21 30 29 3d 61 73 63 74 25 20 8c 0d |ons%!0)=asct% ..|
00008570 38 e0 35 f2 74 62 61 72 28 74 6f 70 78 25 2b 28 |8.5.tbar(topx%+(|
00008580 28 6e 75 6d 62 65 72 69 63 6f 6e 73 25 21 30 29 |(numbericons%!0)|
00008590 2a 35 30 29 2c 74 6f 70 79 25 2d 70 75 6b 65 25 |*50),topy%-puke%|
000085a0 2a 34 34 29 0d 38 ea 37 e7 20 74 6f 70 79 25 2d |*44).8.7. topy%-|
000085b0 70 75 6b 65 25 2a 34 34 20 3e 20 74 74 74 65 6d |puke%*44 > tttem|
000085c0 70 25 20 8c 20 74 74 74 65 6d 70 25 3d 74 6f 70 |p% . tttemp%=top|
000085d0 79 25 2d 70 75 6b 65 25 2a 34 34 0d 38 f4 05 cd |y%-puke%*44.8...|
000085e0 0d 38 fe 0b ed 20 70 75 6b 65 25 0d 39 08 05 e1 |.8... puke%.9...|
000085f0 0d 39 12 13 dd f2 74 62 61 72 28 78 70 25 2c 79 |.9....tbar(xp%,y|
00008600 70 25 29 0d 39 1c 0a 78 70 25 2b 3d 38 0d 39 26 |p%).9..xp%+=8.9&|
00008610 18 86 20 78 70 25 2c 79 70 25 2c 78 70 25 2c 79 |.. xp%,yp%,xp%,y|
00008620 70 25 2d 34 34 0d 39 30 1e 86 20 78 70 25 2c 79 |p%-44.90.. xp%,y|
00008630 70 25 2d 32 32 2c 78 70 25 2b 33 36 2c 79 70 25 |p%-22,xp%+36,yp%|
00008640 2d 32 32 0d 39 3a 05 e1 0d 39 44 15 dd f2 62 6f |-22.9:...9D...bo|
00008650 74 62 61 72 28 78 70 25 2c 79 70 25 29 0d 39 4e |tbar(xp%,yp%).9N|
00008660 0a 78 70 25 2b 3d 38 0d 39 58 18 86 20 78 70 25 |.xp%+=8.9X.. xp%|
00008670 2c 79 70 25 2c 78 70 25 2c 79 70 25 2d 32 32 0d |,yp%,xp%,yp%-22.|
00008680 39 62 1e 86 20 78 70 25 2c 79 70 25 2d 32 32 2c |9b.. xp%,yp%-22,|
00008690 78 70 25 2b 33 36 2c 79 70 25 2d 32 32 0d 39 6c |xp%+36,yp%-22.9l|
000086a0 05 e1 0d 39 76 12 dd f2 62 61 72 28 78 70 25 2c |...9v...bar(xp%,|
000086b0 79 70 25 29 0d 39 80 0a 78 70 25 2b 3d 38 0d 39 |yp%).9..xp%+=8.9|
000086c0 8a 18 86 20 78 70 25 2c 79 70 25 2c 78 70 25 2c |... xp%,yp%,xp%,|
000086d0 79 70 25 2d 34 34 0d 39 94 05 e1 0d 39 9e 16 dd |yp%-44.9....9...|
000086e0 f2 74 69 74 6c 65 28 77 25 2c 74 69 74 6c 65 24 |.title(w%,title$|
000086f0 29 0d 39 a8 11 62 6c 6f 63 6b 25 21 30 20 3d 20 |).9..block%!0 = |
00008700 77 25 0d 39 b2 18 c8 99 20 26 30 30 30 34 30 30 |w%.9.... &000400|
00008710 43 43 2c 2c 62 6c 6f 63 6b 25 0d 39 bc 16 70 6f |CC,,block%.9..po|
00008720 25 20 3d 20 21 28 62 6c 6f 63 6b 25 2b 37 36 29 |% = !(block%+76)|
00008730 0d 39 c6 14 24 70 6f 25 20 3d 20 74 69 74 6c 65 |.9..$po% = title|
00008740 24 2b bd 30 0d 39 d0 05 e1 0d 39 da 1b dd a4 73 |$+.0.9....9....s|
00008750 70 72 69 74 65 65 78 69 73 74 73 28 73 70 72 69 |priteexists(spri|
00008760 74 65 24 29 0d 39 e4 21 c8 99 26 30 30 30 36 30 |te$).9.!..&00060|
00008770 30 45 39 2c 32 34 2c 2c 73 70 72 69 74 65 24 20 |0E9,24,,sprite$ |
00008780 b8 20 52 30 25 0d 39 ee 1f e7 20 52 30 25 3e 36 |. R0%.9... R0%>6|
00008790 30 30 20 84 20 52 30 25 3c 30 20 8c 20 3d a3 20 |00 . R0%<0 . =. |
000087a0 8b 20 3d b9 0d 39 f8 11 dd f2 6d 61 6a 6f 72 72 |. =..9....majorr|
000087b0 65 64 72 61 77 0d 3a 02 0f c8 99 26 30 30 30 34 |edraw.:....&0004|
000087c0 30 36 43 30 0d 3a 0c 15 e3 20 6d 79 75 70 3d 30 |06C0.:... myup=0|
000087d0 20 b8 20 69 69 69 25 2d 31 0d 3a 16 31 e7 20 69 | . iii%-1.:.1. i|
000087e0 69 69 25 2d 31 3c 3e 30 20 8c 20 c8 99 26 30 30 |ii%-1<>0 . ..&00|
000087f0 30 34 30 36 43 34 2c 28 6d 79 75 70 2f 28 69 69 |0406C4,(myup/(ii|
00008800 69 25 2d 31 29 29 2a 31 30 30 0d 3a 20 14 f2 67 |i%-1))*100.: ..g|
00008810 65 74 76 61 72 73 28 6d 79 75 70 2c a3 29 0d 3a |etvars(myup,.).:|
00008820 2a 1a 74 65 6d 70 24 3d a4 67 4c 6e 28 24 66 69 |*.temp$=.gLn($fi|
00008830 6c 65 6e 61 6d 65 25 29 0d 3a 34 21 e7 20 74 79 |lename%).:4!. ty|
00008840 70 65 25 21 30 3e 26 46 46 46 20 84 20 74 79 70 |pe%!0>&FFF . typ|
00008850 65 25 21 30 3c 26 30 20 8c 0d 3a 3e 15 e7 20 c0 |e%!0<&0 ..:>.. .|
00008860 74 65 6d 70 24 2c 31 29 3d 22 21 22 20 8c 0d 3a |temp$,1)="!" ..:|
00008870 48 14 76 61 6c 69 64 24 3d 22 53 22 2b 74 65 6d |H.valid$="S"+tem|
00008880 70 24 0d 3a 52 05 cc 0d 3a 5c 17 76 61 6c 69 64 |p$.:R...:\.valid|
00008890 24 3d 22 53 64 69 72 65 63 74 6f 72 79 22 0d 3a |$="Sdirectory".:|
000088a0 66 05 cd 0d 3a 70 05 cc 0d 3a 7a 21 76 61 6c 69 |f...:p...:z!vali|
000088b0 64 24 3d 22 53 66 69 6c 65 5f 22 2b a4 70 61 64 |d$="Sfile_"+.pad|
000088c0 28 74 79 70 65 25 21 30 29 0d 3a 84 05 cd 0d 3a |(type%!0).:....:|
000088d0 8e 2d e7 20 ac 20 a4 73 70 72 69 74 65 65 78 69 |.-. . .spriteexi|
000088e0 73 74 73 28 c1 76 61 6c 69 64 24 2c 32 2c a9 28 |sts(.valid$,2,.(|
000088f0 76 61 6c 69 64 24 29 29 29 20 8c 0d 3a 98 18 20 |valid$))) ..:.. |
00008900 20 e7 20 c0 74 65 6d 70 24 2c 31 29 3c 3e 22 21 | . .temp$,1)<>"!|
00008910 22 20 8c 0d 3a a2 1a 20 20 20 20 76 61 6c 69 64 |" ..:.. valid|
00008920 24 3d 22 53 66 69 6c 65 5f 78 78 78 22 0d 3a ac |$="Sfile_xxx".:.|
00008930 07 20 20 cc 0d 3a b6 1d 20 20 20 20 76 61 6c 69 |. ..:.. vali|
00008940 64 24 3d 22 53 41 70 70 6c 69 63 61 74 69 6f 6e |d$="SApplication|
00008950 22 0d 3a c0 07 20 20 cd 0d 3a ca 05 cd 0d 3a d4 |".:.. ..:....:.|
00008960 27 f2 73 65 74 69 63 6f 6e 73 70 72 69 74 65 28 |'.seticonsprite(|
00008970 6d 61 69 6e 25 2c 6d 79 75 70 2b 31 2c 76 61 6c |main%,myup+1,val|
00008980 69 64 24 29 0d 3a de 09 ed 6d 79 75 70 0d 3a e8 |id$).:...myup.:.|
00008990 0f c8 99 26 30 30 30 34 30 36 43 32 0d 3a f2 05 |...&000406C2.:..|
000089a0 e1 0d 3a fc 24 dd f2 61 6c 65 72 74 28 74 69 74 |..:.$..alert(tit|
000089b0 6c 65 24 2c 6d 65 73 73 61 67 65 24 2c 62 75 74 |le$,message$,but|
000089c0 74 6f 6e 25 29 0d 3b 06 08 d9 20 23 30 0d 3b 10 |ton%).;... #0.;.|
000089d0 0f ea 20 72 65 73 70 6f 6e 73 65 25 0d 3b 1a 19 |.. response%.;..|
000089e0 24 28 62 6c 6f 63 6b 32 25 2b 34 29 3d 6d 65 73 |$(block2%+4)=mes|
000089f0 73 61 67 65 24 0d 3b 24 10 c8 8e 20 62 75 74 74 |sage$.;$... butt|
00008a00 6f 6e 25 20 ca 0d 3b 2e 18 c9 20 32 20 20 20 20 |on% ..;... 2 |
00008a10 3a 20 72 65 73 70 6f 6e 73 65 25 3d 31 0d 3b 38 |: response%=1.;8|
00008a20 19 c9 20 31 20 20 20 20 3a 20 72 65 73 70 6f 6e |.. 1 : respon|
00008a30 73 65 25 3d 31 35 0d 3b 42 20 c9 20 33 20 20 20 |se%=15.;B . 3 |
00008a40 20 3a 20 72 65 73 70 6f 6e 73 65 25 3d 28 31 3c | : response%=(1<|
00008a50 3c 35 29 2b 31 36 0d 3b 4c 20 c9 20 34 20 20 20 |<5)+16.;L . 4 |
00008a60 20 3a 20 72 65 73 70 6f 6e 73 65 25 3d 28 31 3c | : response%=(1<|
00008a70 3c 36 29 2b 31 36 0d 3b 56 14 7f 20 3a 20 72 65 |<6)+16.;V.. : re|
00008a80 73 70 6f 6e 73 65 25 3d 31 36 0d 3b 60 05 cb 0d |sponse%=16.;`...|
00008a90 3b 6a 36 c8 99 20 26 30 30 30 34 30 30 44 46 2c |;j6.. &000400DF,|
00008aa0 62 6c 6f 63 6b 32 25 2c 72 65 73 70 6f 6e 73 65 |block2%,response|
00008ab0 25 2c 74 69 74 6c 65 24 20 b8 20 2c 72 65 73 70 |%,title$ . ,resp|
00008ac0 6f 6e 73 65 25 0d 3b 74 05 e1 0d 3b 7e 1b dd f2 |onse%.;t...;~...|
00008ad0 65 78 70 6f 72 74 28 61 66 69 6c 65 24 2c 6d 73 |export(afile$,ms|
00008ae0 67 66 6c 67 29 0d 3b 88 10 c8 99 20 26 30 30 30 |gflg).;.... &000|
00008af0 34 30 36 43 30 0d 3b 92 1d c8 99 20 26 30 38 2c |406C0.;.... &08,|
00008b00 31 31 2c 61 66 69 6c 65 24 2c 26 66 66 66 2c 30 |11,afile$,&fff,0|
00008b10 2c 30 0d 3b 9c 12 6d 6d 79 25 3d ae 28 61 66 69 |,0.;..mmy%=.(afi|
00008b20 6c 65 24 29 0d 3b a6 1e e7 20 66 68 65 61 64 69 |le$).;... fheadi|
00008b30 6e 67 73 20 80 20 66 73 6f 75 72 63 65 64 69 72 |ngs . fsourcedir|
00008b40 20 8c 0d 3b b0 27 6c 6c 6c 24 3d 22 54 72 65 65 | ..;.'lll$="Tree|
00008b50 20 64 69 73 70 6c 61 79 20 6f 66 20 27 22 2b 70 | display of '"+p|
00008b60 6f 6f 75 70 24 2b 22 27 22 0d 3b ba 19 e3 20 73 |ooup$+"'".;... s|
00008b70 74 72 70 74 72 25 3d 31 20 b8 20 a9 28 6c 6c 6c |trptr%=1 . .(lll|
00008b80 24 29 0d 3b c4 25 d5 20 23 6d 6d 79 25 2c 97 28 |$).;.%. #mmy%,.(|
00008b90 c1 6c 6c 6c 24 2c 73 74 72 70 74 72 25 2c 73 74 |.lll$,strptr%,st|
00008ba0 72 70 74 72 25 29 29 0d 3b ce 0d ed 20 73 74 72 |rptr%)).;... str|
00008bb0 70 74 72 25 0d 3b d8 0e d5 20 23 6d 6d 79 25 2c |ptr%.;... #mmy%,|
00008bc0 31 30 0d 3b e2 05 cd 0d 3b ec 19 e7 20 66 68 65 |10.;....;... fhe|
00008bd0 61 64 69 6e 67 73 20 80 20 66 64 61 74 65 20 8c |adings . fdate .|
00008be0 0d 3b f6 1a 6c 6c 6c 24 3d 22 45 78 70 6f 72 74 |.;..lll$="Export|
00008bf0 65 64 20 6f 6e 20 22 2b 91 24 0d 3c 00 19 e3 20 |ed on "+.$.<... |
00008c00 73 74 72 70 74 72 25 3d 31 20 b8 20 a9 28 6c 6c |strptr%=1 . .(ll|
00008c10 6c 24 29 0d 3c 0a 25 d5 20 23 6d 6d 79 25 2c 97 |l$).<.%. #mmy%,.|
00008c20 28 c1 6c 6c 6c 24 2c 73 74 72 70 74 72 25 2c 73 |(.lll$,strptr%,s|
00008c30 74 72 70 74 72 25 29 29 0d 3c 14 0d ed 20 73 74 |trptr%)).<... st|
00008c40 72 70 74 72 25 0d 3c 1e 0e d5 20 23 6d 6d 79 25 |rptr%.<... #mmy%|
00008c50 2c 31 30 0d 3c 28 05 cd 0d 3c 32 1c e7 20 66 68 |,10.<(...<2.. fh|
00008c60 65 61 64 69 6e 67 73 20 8c 20 d5 20 23 6d 6d 79 |eadings . . #mmy|
00008c70 25 2c 31 30 0d 3c 3c 16 e3 20 70 75 6b 65 25 3d |%,10.<<.. puke%=|
00008c80 30 20 b8 20 69 69 69 25 2d 31 0d 3c 46 15 f2 67 |0 . iii%-1.<F..g|
00008c90 65 74 76 61 72 73 28 70 75 6b 65 25 2c a3 29 0d |etvars(puke%,.).|
00008ca0 3c 50 32 e7 20 69 69 69 25 2d 31 3c 3e 30 20 8c |<P2. iii%-1<>0 .|
00008cb0 20 c8 99 26 30 30 30 34 30 36 43 34 2c 28 70 75 | ..&000406C4,(pu|
00008cc0 6b 65 25 2f 28 69 69 69 25 2d 31 29 29 2a 31 30 |ke%/(iii%-1))*10|
00008cd0 30 0d 3c 5a 10 6c 69 6e 65 24 3d 22 20 20 20 20 |0.<Z.line$=" |
00008ce0 22 0d 3c 64 26 e3 20 73 75 62 63 6f 75 6e 74 25 |".<d&. subcount%|
00008cf0 3d 30 20 b8 20 28 6e 75 6d 62 65 72 69 63 6f 6e |=0 . (numbericon|
00008d00 73 25 21 30 29 2d 31 0d 3c 6e 40 e7 20 3f 28 74 |s%!0)-1.<n@. ?(t|
00008d10 72 65 65 64 65 66 25 2b 73 75 62 63 6f 75 6e 74 |reedef%+subcount|
00008d20 25 29 3d 61 73 63 74 25 20 80 20 28 73 75 62 63 |%)=asct% . (subc|
00008d30 6f 75 6e 74 25 29 3c 6e 75 6d 62 65 72 69 63 6f |ount%)<numberico|
00008d40 6e 73 25 21 30 20 8c 0d 3c 78 1a 6c 69 6e 65 24 |ns%!0 ..<x.line$|
00008d50 2b 3d 66 6c 69 6e 65 6a 75 6e 63 24 2b 22 20 20 |+=flinejunc$+" |
00008d60 22 0d 3c 82 05 cd 0d 3c 8c 43 e7 20 3f 28 74 72 |".<....<.C. ?(tr|
00008d70 65 65 64 65 66 25 2b 73 75 62 63 6f 75 6e 74 25 |eedef%+subcount%|
00008d80 29 3c 3e 61 73 63 74 25 20 80 20 3f 28 74 72 65 |)<>asct% . ?(tre|
00008d90 65 64 65 66 25 2b 73 75 62 63 6f 75 6e 74 25 29 |edef%+subcount%)|
00008da0 3c 3e 61 73 63 6c 25 20 8c 0d 3c 96 10 6c 69 6e |<>ascl% ..<..lin|
00008db0 65 24 2b 3d 22 20 20 20 22 0d 3c a0 05 cd 0d 3c |e$+=" ".<....<|
00008dc0 aa 0f ed 20 73 75 62 63 6f 75 6e 74 25 0d 3c b4 |... subcount%.<.|
00008dd0 1a 66 66 66 66 24 3d a4 67 4c 6e 28 24 66 69 6c |.ffff$=.gLn($fil|
00008de0 65 6e 61 6d 65 25 29 0d 3c be 28 e7 20 3f 28 74 |ename%).<.(. ?(t|
00008df0 72 65 65 64 65 66 25 2b 6e 75 6d 62 65 72 69 63 |reedef%+numberic|
00008e00 6f 6e 73 25 21 30 29 3d 61 73 63 6c 25 20 8c 0d |ons%!0)=ascl% ..|
00008e10 3c c8 1a 6c 69 6e 65 24 2b 3d 66 65 6e 64 6a 75 |<..line$+=fendju|
00008e20 6e 63 24 2b 66 66 66 66 24 0d 3c d2 05 cd 0d 3c |nc$+ffff$.<....<|
00008e30 dc 28 e7 20 3f 28 74 72 65 65 64 65 66 25 2b 6e |.(. ?(treedef%+n|
00008e40 75 6d 62 65 72 69 63 6f 6e 73 25 21 30 29 3d 61 |umbericons%!0)=a|
00008e50 73 63 74 25 20 8c 0d 3c e6 18 6c 69 6e 65 24 2b |sct% ..<..line$+|
00008e60 3d 66 74 6a 75 6e 63 24 2b 66 66 66 66 24 0d 3c |=ftjunc$+ffff$.<|
00008e70 f0 05 cd 0d 3c fa 1a e3 20 73 74 72 70 74 72 25 |....<... strptr%|
00008e80 3d 31 20 b8 20 a9 28 6c 69 6e 65 24 29 0d 3d 04 |=1 . .(line$).=.|
00008e90 26 d5 20 23 6d 6d 79 25 2c 97 28 c1 6c 69 6e 65 |&. #mmy%,.(.line|
00008ea0 24 2c 73 74 72 70 74 72 25 2c 73 74 72 70 74 72 |$,strptr%,strptr|
00008eb0 25 29 29 0d 3d 0e 0d ed 20 73 74 72 70 74 72 25 |%)).=... strptr%|
00008ec0 0d 3d 18 0e d5 20 23 6d 6d 79 25 2c 31 30 0d 3d |.=... #mmy%,10.=|
00008ed0 22 0b ed 20 70 75 6b 65 25 0d 3d 2c 16 66 69 6c |".. puke%.=,.fil|
00008ee0 65 6c 65 6e 67 74 68 25 3d a2 23 6d 6d 79 25 0d |elength%=.#mmy%.|
00008ef0 3d 36 0b d9 20 23 6d 6d 79 25 0d 3d 40 0f c8 99 |=6.. #mmy%.=@...|
00008f00 26 30 30 30 34 30 36 43 32 0d 3d 4a 0e e7 20 6d |&000406C2.=J.. m|
00008f10 73 67 66 6c 67 20 8c 0d 3d 54 10 62 6c 6f 63 6b |sgflg ..=T.block|
00008f20 25 21 30 3d 32 35 36 0d 3d 5e 0f 62 6c 6f 63 6b |%!0=256.=^.block|
00008f30 25 21 31 32 3d 30 0d 3d 68 0f 62 6c 6f 63 6b 25 |%!12=0.=h.block%|
00008f40 21 31 36 3d 33 0d 3d 72 13 62 6c 6f 63 6b 25 21 |!16=3.=r.block%!|
00008f50 32 30 3d 77 69 6e 64 25 0d 3d 7c 13 62 6c 6f 63 |20=wind%.=|.bloc|
00008f60 6b 25 21 32 34 3d 69 63 6f 6e 25 0d 3d 86 10 62 |k%!24=icon%.=..b|
00008f70 6c 6f 63 6b 25 21 32 38 3d 78 25 0d 3d 90 10 62 |lock%!28=x%.=..b|
00008f80 6c 6f 63 6b 25 21 33 32 3d 79 25 0d 3d 9a 19 62 |lock%!32=y%.=..b|
00008f90 6c 6f 63 6b 25 21 33 36 3d 66 69 6c 65 6c 65 6e |lock%!36=filelen|
00008fa0 67 74 68 25 0d 3d a4 12 62 6c 6f 63 6b 25 21 34 |gth%.=..block%!4|
00008fb0 30 3d 26 46 46 46 0d 3d ae 1a 24 28 62 6c 6f 63 |0=&FFF.=..$(bloc|
00008fc0 6b 25 2b 34 34 29 3d 61 66 69 6c 65 24 2b bd 30 |k%+44)=afile$+.0|
00008fd0 0d 3d b8 25 c8 99 26 30 30 30 34 30 30 45 37 2c |.=.%..&000400E7,|
00008fe0 31 37 2c 62 6c 6f 63 6b 25 2c 77 69 6e 64 25 2c |17,block%,wind%,|
00008ff0 69 63 6f 6e 25 0d 3d c2 05 cd 0d 3d cc 05 e1 0d |icon%.=....=....|
00009000 3d d6 17 dd f2 63 6c 69 63 6b 6f 70 74 69 6f 6e |=....clickoption|
00009010 73 28 69 63 25 29 0d 3d e0 07 ea 20 85 0d 3d ea |s(ic%).=... ..=.|
00009020 2a ee 20 85 20 ea 20 f2 61 6c 65 72 74 28 22 45 |*. . . .alert("E|
00009030 72 72 6f 72 20 66 72 6f 6d 20 54 72 65 65 22 2c |rror from Tree",|
00009040 f6 24 2c 30 29 3a e1 0d 3d f4 0c c8 8e 20 69 63 |.$,0):..=.... ic|
00009050 25 20 ca 0d 3d fe 07 c9 20 32 0d 3e 08 15 68 65 |% ..=... 2.>..he|
00009060 61 64 63 6f 75 6e 74 3d 6f 6c 64 68 65 61 64 0d |adcount=oldhead.|
00009070 3e 12 1a f2 63 6c 6f 73 65 77 69 6e 64 6f 77 28 |>...closewindow(|
00009080 6f 70 74 69 6f 6e 73 25 29 0d 3e 1c 07 c9 20 30 |options%).>... 0|
00009090 0d 3e 26 0f 74 74 31 3d 66 69 6e 63 6f 6c 73 0d |.>&.tt1=fincols.|
000090a0 3e 30 0c 74 74 32 3d 63 6f 6c 73 0d 3e 3a 20 66 |>0.tt2=cols.>: f|
000090b0 72 6f 77 73 3d bb 28 a4 69 63 6f 6e 74 65 78 74 |rows=.(.icontext|
000090c0 28 70 61 6e 65 25 2c 32 32 29 29 0d 3e 44 17 e7 |(pane%,22)).>D..|
000090d0 20 66 72 6f 77 73 3c 31 20 8c 20 66 72 6f 77 73 | frows<1 . frows|
000090e0 3d 31 0d 3e 4e 10 66 69 6e 63 6f 6c 73 3d 63 6f |=1.>N.fincols=co|
000090f0 6c 73 0d 3e 58 16 66 68 65 61 64 69 6e 67 73 3d |ls.>X.fheadings=|
00009100 68 65 61 64 69 6e 67 73 0d 3e 62 18 66 73 6f 75 |headings.>b.fsou|
00009110 72 63 65 64 69 72 3d 73 6f 75 72 63 65 64 69 72 |rcedir=sourcedir|
00009120 0d 3e 6c 29 6c 69 6e 65 6a 75 6e 63 24 3d a4 50 |.>l)linejunc$=.P|
00009130 70 61 64 28 a4 69 63 6f 6e 74 65 78 74 28 70 61 |pad(.icontext(pa|
00009140 6e 65 25 2c 38 29 2c 31 29 0d 3e 76 26 74 6a 75 |ne%,8),1).>v&tju|
00009150 6e 63 24 3d a4 50 70 61 64 28 a4 69 63 6f 6e 74 |nc$=.Ppad(.icont|
00009160 65 78 74 28 70 61 6e 65 25 2c 39 29 2c 32 29 0d |ext(pane%,9),2).|
00009170 3e 80 29 65 6e 64 6a 75 6e 63 24 3d a4 50 70 61 |>.)endjunc$=.Ppa|
00009180 64 28 a4 69 63 6f 6e 74 65 78 74 28 70 61 6e 65 |d(.icontext(pane|
00009190 25 2c 31 30 29 2c 32 29 0d 3e 8a 18 66 6c 69 6e |%,10),2).>..flin|
000091a0 65 6a 75 6e 63 24 3d 6c 69 6e 65 6a 75 6e 63 24 |ejunc$=linejunc$|
000091b0 0d 3e 94 16 66 65 6e 64 6a 75 6e 63 24 3d 65 6e |.>..fendjunc$=en|
000091c0 64 6a 75 6e 63 24 0d 3e 9e 12 66 74 6a 75 6e 63 |djunc$.>..ftjunc|
000091d0 24 3d 74 6a 75 6e 63 24 0d 3e a8 0e 66 64 61 74 |$=tjunc$.>..fdat|
000091e0 65 3d 64 61 74 65 0d 3e b2 0e 66 62 6f 78 72 3d |e=date.>..fboxr=|
000091f0 62 6f 78 72 0d 3e bc 0e 66 62 6f 78 67 3d 62 6f |boxr.>..fboxg=bo|
00009200 78 67 0d 3e c6 0e 66 62 6f 78 62 3d 62 6f 78 62 |xg.>..fboxb=boxb|
00009210 0d 3e d0 13 e7 20 64 69 72 73 3c 3e 66 64 69 72 |.>... dirs<>fdir|
00009220 73 20 8c 0d 3e da 0e 66 64 69 72 73 3d 64 69 72 |s ..>..fdirs=dir|
00009230 73 0d 3e e4 0c f2 64 69 72 73 28 b9 29 0d 3e ee |s.>...dirs(.).>.|
00009240 05 cd 0d 3e f8 14 66 6c 69 6e 65 6f 62 6a 3d 6c |...>..flineobj=l|
00009250 69 6e 65 6f 62 6a 0d 3f 02 29 e7 20 62 75 74 74 |ineobj.?.). butt|
00009260 6f 6e 25 3c 3e 31 20 8c 20 f2 63 6c 6f 73 65 77 |on%<>1 . .closew|
00009270 69 6e 64 6f 77 28 6f 70 74 69 6f 6e 73 25 29 0d |indow(options%).|
00009280 3f 0c 25 e7 20 74 74 31 3c 3e 74 74 32 20 8c 20 |?.%. tt1<>tt2 . |
00009290 f2 72 65 64 72 61 77 77 69 6e 64 6f 77 28 6d 61 |.redrawwindow(ma|
000092a0 69 6e 25 29 0d 3f 16 07 c9 20 31 0d 3f 20 0f c8 |in%).?... 1.? ..|
000092b0 99 26 30 30 30 34 30 36 43 30 0d 3f 2a 20 66 72 |.&000406C0.?* fr|
000092c0 6f 77 73 3d bb 28 a4 69 63 6f 6e 74 65 78 74 28 |ows=.(.icontext(|
000092d0 70 61 6e 65 25 2c 32 32 29 29 0d 3f 34 17 e7 20 |pane%,22)).?4.. |
000092e0 66 72 6f 77 73 3c 31 20 8c 20 66 72 6f 77 73 3d |frows<1 . frows=|
000092f0 31 0d 3f 3e 0f 74 74 31 3d 66 69 6e 63 6f 6c 73 |1.?>.tt1=fincols|
00009300 0d 3f 48 0c 74 74 32 3d 63 6f 6c 73 0d 3f 52 10 |.?H.tt2=cols.?R.|
00009310 66 69 6e 63 6f 6c 73 3d 63 6f 6c 73 0d 3f 5c 1c |fincols=cols.?\.|
00009320 66 69 63 6f 6e 73 70 72 69 74 65 73 3d 69 63 6f |ficonsprites=ico|
00009330 6e 73 70 72 69 74 65 73 0d 3f 66 16 66 68 65 61 |nsprites.?f.fhea|
00009340 64 69 6e 67 73 3d 68 65 61 64 69 6e 67 73 0d 3f |dings=headings.?|
00009350 70 18 66 73 6f 75 72 63 65 64 69 72 3d 73 6f 75 |p.fsourcedir=sou|
00009360 72 63 65 64 69 72 0d 3f 7a 29 6c 69 6e 65 6a 75 |rcedir.?z)lineju|
00009370 6e 63 24 3d a4 50 70 61 64 28 a4 69 63 6f 6e 74 |nc$=.Ppad(.icont|
00009380 65 78 74 28 70 61 6e 65 25 2c 38 29 2c 31 29 0d |ext(pane%,8),1).|
00009390 3f 84 26 74 6a 75 6e 63 24 3d a4 50 70 61 64 28 |?.&tjunc$=.Ppad(|
000093a0 a4 69 63 6f 6e 74 65 78 74 28 70 61 6e 65 25 2c |.icontext(pane%,|
000093b0 39 29 2c 32 29 0d 3f 8e 29 65 6e 64 6a 75 6e 63 |9),2).?.)endjunc|
000093c0 24 3d a4 50 70 61 64 28 a4 69 63 6f 6e 74 65 78 |$=.Ppad(.icontex|
000093d0 74 28 70 61 6e 65 25 2c 31 30 29 2c 32 29 0d 3f |t(pane%,10),2).?|
000093e0 98 18 66 6c 69 6e 65 6a 75 6e 63 24 3d 6c 69 6e |..flinejunc$=lin|
000093f0 65 6a 75 6e 63 24 0d 3f a2 16 66 65 6e 64 6a 75 |ejunc$.?..fendju|
00009400 6e 63 24 3d 65 6e 64 6a 75 6e 63 24 0d 3f ac 12 |nc$=endjunc$.?..|
00009410 66 74 6a 75 6e 63 24 3d 74 6a 75 6e 63 24 0d 3f |ftjunc$=tjunc$.?|
00009420 b6 0e 66 64 61 74 65 3d 64 61 74 65 0d 3f c0 0e |..fdate=date.?..|
00009430 66 62 6f 78 72 3d 62 6f 78 72 0d 3f ca 0e 66 62 |fboxr=boxr.?..fb|
00009440 6f 78 67 3d 62 6f 78 67 0d 3f d4 0e 66 62 6f 78 |oxg=boxg.?..fbox|
00009450 62 3d 62 6f 78 62 0d 3f de 14 66 6c 69 6e 65 6f |b=boxb.?..flineo|
00009460 62 6a 3d 6c 69 6e 65 6f 62 6a 0d 3f e8 13 e7 20 |bj=lineobj.?... |
00009470 64 69 72 73 3c 3e 66 64 69 72 73 20 8c 0d 3f f2 |dirs<>fdirs ..?.|
00009480 0e 66 64 69 72 73 3d 64 69 72 73 0d 3f fc 0c f2 |.fdirs=dirs.?...|
00009490 64 69 72 73 28 b9 29 0d 40 06 05 cd 0d 40 10 29 |dirs(.).@....@.)|
000094a0 e7 20 62 75 74 74 6f 6e 25 3c 3e 31 20 8c 20 f2 |. button%<>1 . .|
000094b0 63 6c 6f 73 65 77 69 6e 64 6f 77 28 6f 70 74 69 |closewindow(opti|
000094c0 6f 6e 73 25 29 0d 40 1a 25 e7 20 74 74 31 3c 3e |ons%).@.%. tt1<>|
000094d0 74 74 32 20 8c 20 f2 72 65 64 72 61 77 77 69 6e |tt2 . .redrawwin|
000094e0 64 6f 77 28 6d 61 69 6e 25 29 0d 40 24 23 6f 75 |dow(main%).@$#ou|
000094f0 66 69 6c 65 25 3d ae 28 22 3c 54 72 65 65 24 44 |file%=.("<Tree$D|
00009500 69 72 3e 2e 4f 70 74 69 6f 6e 73 22 29 0d 40 2e |ir>.Options").@.|
00009510 18 f1 20 23 6f 75 66 69 6c 65 25 2c 68 65 61 64 |.. #oufile%,head|
00009520 63 6f 75 6e 74 0d 40 38 18 f1 20 23 6f 75 66 69 |count.@8.. #oufi|
00009530 6c 65 25 2c 66 68 65 61 64 69 6e 67 73 0d 40 42 |le%,fheadings.@B|
00009540 19 f1 20 23 6f 75 66 69 6c 65 25 2c 66 73 6f 75 |.. #oufile%,fsou|
00009550 72 63 65 64 69 72 0d 40 4c 14 f1 20 23 6f 75 66 |rcedir.@L.. #ouf|
00009560 69 6c 65 25 2c 66 64 61 74 65 0d 40 56 19 f1 20 |ile%,fdate.@V.. |
00009570 23 6f 75 66 69 6c 65 25 2c 66 6c 69 6e 65 6a 75 |#oufile%,flineju|
00009580 6e 63 24 0d 40 60 16 f1 20 23 6f 75 66 69 6c 65 |nc$.@`.. #oufile|
00009590 25 2c 66 74 6a 75 6e 63 24 0d 40 6a 18 f1 20 23 |%,ftjunc$.@j.. #|
000095a0 6f 75 66 69 6c 65 25 2c 66 65 6e 64 6a 75 6e 63 |oufile%,fendjunc|
000095b0 24 0d 40 74 16 f1 20 23 6f 75 66 69 6c 65 25 2c |$.@t.. #oufile%,|
000095c0 66 69 6e 63 6f 6c 73 0d 40 7e 1b f1 20 23 6f 75 |fincols.@~.. #ou|
000095d0 66 69 6c 65 25 2c 66 69 63 6f 6e 73 70 72 69 74 |file%,ficonsprit|
000095e0 65 73 0d 40 88 14 f1 20 23 6f 75 66 69 6c 65 25 |es.@... #oufile%|
000095f0 2c 66 72 6f 77 73 0d 40 92 14 f1 20 23 6f 75 66 |,frows.@... #ouf|
00009600 69 6c 65 25 2c 66 62 6f 78 72 0d 40 9c 14 f1 20 |ile%,fboxr.@... |
00009610 23 6f 75 66 69 6c 65 25 2c 66 62 6f 78 67 0d 40 |#oufile%,fboxg.@|
00009620 a6 14 f1 20 23 6f 75 66 69 6c 65 25 2c 66 62 6f |... #oufile%,fbo|
00009630 78 62 0d 40 b0 17 f1 20 23 6f 75 66 69 6c 65 25 |xb.@... #oufile%|
00009640 2c 66 6c 69 6e 65 6f 62 6a 0d 40 ba 14 f1 20 23 |,flineobj.@... #|
00009650 6f 75 66 69 6c 65 25 2c 66 64 69 72 73 0d 40 c4 |oufile%,fdirs.@.|
00009660 0e d9 20 23 6f 75 66 69 6c 65 25 0d 40 ce 0f c8 |.. #oufile%.@...|
00009670 99 26 30 30 30 34 30 36 43 32 0d 40 d8 04 0d 40 |.&000406C2.@...@|
00009680 e2 07 c9 20 33 0d 40 ec 10 f2 64 65 66 61 75 6c |... 3.@...defaul|
00009690 74 73 28 b9 29 0d 40 f6 05 cb 0d 41 00 05 e1 0d |ts(.).@....A....|
000096a0 41 0a 14 dd f2 63 6c 69 63 6b 70 61 6e 65 28 69 |A....clickpane(i|
000096b0 63 25 29 0d 41 14 0c c8 8e 20 69 63 25 20 ca 0d |c%).A.... ic% ..|
000096c0 41 1e 08 c9 20 33 38 0d 41 28 0b 62 6f 78 72 2d |A... 38.A(.boxr-|
000096d0 3d 31 0d 41 32 1b e7 20 62 6f 78 72 3e 3d 30 20 |=1.A2.. boxr>=0 |
000096e0 80 20 62 6f 78 72 3c 3d 32 35 35 20 8c 0d 41 3c |. boxr<=255 ..A<|
000096f0 21 f2 73 65 74 62 61 72 28 70 61 6e 65 25 2c 32 |!.setbar(pane%,2|
00009700 38 2c 32 37 2c 32 35 35 2c 62 6f 78 72 29 0d 41 |8,27,255,boxr).A|
00009710 46 22 f2 69 63 6f 6e 70 75 74 74 65 78 74 28 70 |F".iconputtext(p|
00009720 61 6e 65 25 2c 33 35 2c c3 28 62 6f 78 72 29 29 |ane%,35,.(boxr))|
00009730 0d 41 50 22 f2 64 6f 63 6f 6c 6f 75 72 62 6f 78 |.AP".docolourbox|
00009740 28 62 6f 78 72 2c 62 6f 78 67 2c 62 6f 78 62 2c |(boxr,boxg,boxb,|
00009750 b9 29 0d 41 5a 05 cd 0d 41 64 15 e7 20 62 6f 78 |.).AZ...Ad.. box|
00009760 72 3c 30 20 8c 20 62 6f 78 72 3d 30 0d 41 6e 08 |r<0 . boxr=0.An.|
00009770 c9 20 34 31 0d 41 78 0b 62 6f 78 72 2b 3d 31 0d |. 41.Ax.boxr+=1.|
00009780 41 82 1b e7 20 62 6f 78 72 3e 3d 30 20 80 20 62 |A... boxr>=0 . b|
00009790 6f 78 72 3c 3d 32 35 35 20 8c 0d 41 8c 21 f2 73 |oxr<=255 ..A.!.s|
000097a0 65 74 62 61 72 28 70 61 6e 65 25 2c 32 38 2c 32 |etbar(pane%,28,2|
000097b0 37 2c 32 35 35 2c 62 6f 78 72 29 0d 41 96 22 f2 |7,255,boxr).A.".|
000097c0 69 63 6f 6e 70 75 74 74 65 78 74 28 70 61 6e 65 |iconputtext(pane|
000097d0 25 2c 33 35 2c c3 28 62 6f 78 72 29 29 0d 41 a0 |%,35,.(boxr)).A.|
000097e0 22 f2 64 6f 63 6f 6c 6f 75 72 62 6f 78 28 62 6f |".docolourbox(bo|
000097f0 78 72 2c 62 6f 78 67 2c 62 6f 78 62 2c b9 29 0d |xr,boxg,boxb,.).|
00009800 41 aa 05 cd 0d 41 b4 19 e7 20 62 6f 78 72 3e 32 |A....A... boxr>2|
00009810 35 35 20 8c 20 62 6f 78 72 3d 32 35 35 0d 41 be |55 . boxr=255.A.|
00009820 05 3a 0d 41 c8 08 c9 20 33 39 0d 41 d2 0b 62 6f |.:.A... 39.A..bo|
00009830 78 67 2d 3d 31 0d 41 dc 1b e7 20 62 6f 78 67 3e |xg-=1.A... boxg>|
00009840 3d 30 20 80 20 62 6f 78 67 3c 3d 32 35 35 20 8c |=0 . boxg<=255 .|
00009850 0d 41 e6 21 f2 73 65 74 62 61 72 28 70 61 6e 65 |.A.!.setbar(pane|
00009860 25 2c 33 31 2c 33 30 2c 32 35 35 2c 62 6f 78 67 |%,31,30,255,boxg|
00009870 29 0d 41 f0 22 f2 69 63 6f 6e 70 75 74 74 65 78 |).A.".iconputtex|
00009880 74 28 70 61 6e 65 25 2c 33 36 2c c3 28 62 6f 78 |t(pane%,36,.(box|
00009890 67 29 29 0d 41 fa 22 f2 64 6f 63 6f 6c 6f 75 72 |g)).A.".docolour|
000098a0 62 6f 78 28 62 6f 78 72 2c 62 6f 78 67 2c 62 6f |box(boxr,boxg,bo|
000098b0 78 62 2c b9 29 0d 42 04 05 cd 0d 42 0e 15 e7 20 |xb,.).B....B... |
000098c0 62 6f 78 67 3c 30 20 8c 20 62 6f 78 67 3d 30 0d |boxg<0 . boxg=0.|
000098d0 42 18 08 c9 20 34 32 0d 42 22 0b 62 6f 78 67 2b |B... 42.B".boxg+|
000098e0 3d 31 0d 42 2c 1b e7 20 62 6f 78 67 3e 3d 30 20 |=1.B,.. boxg>=0 |
000098f0 80 20 62 6f 78 67 3c 3d 32 35 35 20 8c 0d 42 36 |. boxg<=255 ..B6|
00009900 21 f2 73 65 74 62 61 72 28 70 61 6e 65 25 2c 33 |!.setbar(pane%,3|
00009910 31 2c 33 30 2c 32 35 35 2c 62 6f 78 67 29 0d 42 |1,30,255,boxg).B|
00009920 40 22 f2 69 63 6f 6e 70 75 74 74 65 78 74 28 70 |@".iconputtext(p|
00009930 61 6e 65 25 2c 33 36 2c c3 28 62 6f 78 67 29 29 |ane%,36,.(boxg))|
00009940 0d 42 4a 22 f2 64 6f 63 6f 6c 6f 75 72 62 6f 78 |.BJ".docolourbox|
00009950 28 62 6f 78 72 2c 62 6f 78 67 2c 62 6f 78 62 2c |(boxr,boxg,boxb,|
00009960 b9 29 0d 42 54 05 cd 0d 42 5e 19 e7 20 62 6f 78 |.).BT...B^.. box|
00009970 67 3e 32 35 35 20 8c 20 62 6f 78 67 3d 32 35 35 |g>255 . boxg=255|
00009980 0d 42 68 05 3a 0d 42 72 08 c9 20 34 30 0d 42 7c |.Bh.:.Br.. 40.B||
00009990 0b 62 6f 78 62 2d 3d 31 0d 42 86 1b e7 20 62 6f |.boxb-=1.B... bo|
000099a0 78 62 3e 3d 30 20 80 20 62 6f 78 62 3c 3d 32 35 |xb>=0 . boxb<=25|
000099b0 35 20 8c 0d 42 90 21 f2 73 65 74 62 61 72 28 70 |5 ..B.!.setbar(p|
000099c0 61 6e 65 25 2c 33 34 2c 33 33 2c 32 35 35 2c 62 |ane%,34,33,255,b|
000099d0 6f 78 62 29 0d 42 9a 22 f2 69 63 6f 6e 70 75 74 |oxb).B.".iconput|
000099e0 74 65 78 74 28 70 61 6e 65 25 2c 33 37 2c c3 28 |text(pane%,37,.(|
000099f0 62 6f 78 62 29 29 0d 42 a4 22 f2 64 6f 63 6f 6c |boxb)).B.".docol|
00009a00 6f 75 72 62 6f 78 28 62 6f 78 72 2c 62 6f 78 67 |ourbox(boxr,boxg|
00009a10 2c 62 6f 78 62 2c b9 29 0d 42 ae 05 cd 0d 42 b8 |,boxb,.).B....B.|
00009a20 15 e7 20 62 6f 78 62 3c 30 20 8c 20 62 6f 78 62 |.. boxb<0 . boxb|
00009a30 3d 30 0d 42 c2 08 c9 20 34 33 0d 42 cc 0b 62 6f |=0.B... 43.B..bo|
00009a40 78 62 2b 3d 31 0d 42 d6 1b e7 20 62 6f 78 62 3e |xb+=1.B... boxb>|
00009a50 3d 30 20 80 20 62 6f 78 62 3c 3d 32 35 35 20 8c |=0 . boxb<=255 .|
00009a60 0d 42 e0 21 f2 73 65 74 62 61 72 28 70 61 6e 65 |.B.!.setbar(pane|
00009a70 25 2c 33 34 2c 33 33 2c 32 35 35 2c 62 6f 78 62 |%,34,33,255,boxb|
00009a80 29 0d 42 ea 22 f2 69 63 6f 6e 70 75 74 74 65 78 |).B.".iconputtex|
00009a90 74 28 70 61 6e 65 25 2c 33 37 2c c3 28 62 6f 78 |t(pane%,37,.(box|
00009aa0 62 29 29 0d 42 f4 22 f2 64 6f 63 6f 6c 6f 75 72 |b)).B.".docolour|
00009ab0 62 6f 78 28 62 6f 78 72 2c 62 6f 78 67 2c 62 6f |box(boxr,boxg,bo|
00009ac0 78 62 2c b9 29 0d 42 fe 05 cd 0d 43 08 19 e7 20 |xb,.).B....C... |
00009ad0 62 6f 78 62 3e 32 35 35 20 8c 20 62 6f 78 62 3d |boxb>255 . boxb=|
00009ae0 32 35 35 0d 43 12 08 c9 20 34 34 0d 43 1c 15 6c |255.C... 44.C..l|
00009af0 69 6e 65 6f 62 6a 3d ac 20 6c 69 6e 65 6f 62 6a |ineobj=. lineobj|
00009b00 0d 43 26 0f e7 20 6c 69 6e 65 6f 62 6a 20 8c 0d |.C&.. lineobj ..|
00009b10 43 30 16 f2 73 65 6c 69 63 6f 6e 28 70 61 6e 65 |C0..selicon(pane|
00009b20 25 2c 34 34 29 0d 43 3a 05 cc 0d 43 44 17 f2 75 |%,44).C:...CD..u|
00009b30 73 65 6c 69 63 6f 6e 28 70 61 6e 65 25 2c 34 34 |selicon(pane%,44|
00009b40 29 0d 43 4e 05 cd 0d 43 58 07 c9 20 32 0d 43 62 |).CN...CX.. 2.Cb|
00009b50 17 68 65 61 64 69 6e 67 73 3d ac 20 68 65 61 64 |.headings=. head|
00009b60 69 6e 67 73 0d 43 6c 0d f2 68 65 61 64 69 6e 67 |ings.Cl..heading|
00009b70 73 0d 43 76 11 c9 20 34 36 2c 34 37 2c 34 38 2c |s.Cv.. 46,47,48,|
00009b80 34 39 0d 43 80 0f 64 69 72 73 3d ac 20 64 69 72 |49.C..dirs=. dir|
00009b90 73 0d 43 8a 0c e7 20 64 69 72 73 20 8c 0d 43 94 |s.C... dirs ..C.|
00009ba0 16 f2 73 65 6c 69 63 6f 6e 28 70 61 6e 65 25 2c |..selicon(pane%,|
00009bb0 34 36 29 0d 43 9e 05 cc 0d 43 a8 17 f2 75 73 65 |46).C....C...use|
00009bc0 6c 69 63 6f 6e 28 70 61 6e 65 25 2c 34 36 29 0d |licon(pane%,46).|
00009bd0 43 b2 05 cd 0d 43 bc 07 c9 20 33 0d 43 c6 19 73 |C....C... 3.C..s|
00009be0 6f 75 72 63 65 64 69 72 3d ac 20 73 6f 75 72 63 |ourcedir=. sourc|
00009bf0 65 64 69 72 0d 43 d0 11 e7 20 73 6f 75 72 63 65 |edir.C... source|
00009c00 64 69 72 20 8c 0d 43 da 10 68 65 61 64 63 6f 75 |dir ..C..headcou|
00009c10 6e 74 2b 3d 31 0d 43 e4 15 f2 73 65 6c 69 63 6f |nt+=1.C...selico|
00009c20 6e 28 70 61 6e 65 25 2c 33 29 0d 43 ee 05 cc 0d |n(pane%,3).C....|
00009c30 43 f8 10 68 65 61 64 63 6f 75 6e 74 2d 3d 31 0d |C..headcount-=1.|
00009c40 44 02 13 e7 20 68 65 61 64 63 6f 75 6e 74 3e 30 |D... headcount>0|
00009c50 20 8c 0d 44 0c 16 f2 75 73 65 6c 69 63 6f 6e 28 | ..D...uselicon(|
00009c60 70 61 6e 65 25 2c 33 29 0d 44 16 05 cc 0d 44 20 |pane%,3).D....D |
00009c70 19 73 6f 75 72 63 65 64 69 72 3d ac 20 73 6f 75 |.sourcedir=. sou|
00009c80 72 63 65 64 69 72 0d 44 2a 0f 68 65 61 64 63 6f |rcedir.D*.headco|
00009c90 75 6e 74 3d 31 0d 44 34 05 cd 0d 44 3e 05 cd 0d |unt=1.D4...D>...|
00009ca0 44 48 07 c9 20 34 0d 44 52 0f 64 61 74 65 3d ac |DH.. 4.DR.date=.|
00009cb0 20 64 61 74 65 0d 44 5c 0c e7 20 64 61 74 65 20 | date.D\.. date |
00009cc0 8c 0d 44 66 10 68 65 61 64 63 6f 75 6e 74 2b 3d |..Df.headcount+=|
00009cd0 31 0d 44 70 15 f2 73 65 6c 69 63 6f 6e 28 70 61 |1.Dp..selicon(pa|
00009ce0 6e 65 25 2c 34 29 0d 44 7a 05 cc 0d 44 84 10 68 |ne%,4).Dz...D..h|
00009cf0 65 61 64 63 6f 75 6e 74 2d 3d 31 0d 44 8e 13 e7 |eadcount-=1.D...|
00009d00 20 68 65 61 64 63 6f 75 6e 74 3e 30 20 8c 0d 44 | headcount>0 ..D|
00009d10 98 16 f2 75 73 65 6c 69 63 6f 6e 28 70 61 6e 65 |...uselicon(pane|
00009d20 25 2c 34 29 0d 44 a2 05 cc 0d 44 ac 0f 64 61 74 |%,4).D....D..dat|
00009d30 65 3d ac 20 64 61 74 65 0d 44 b6 0f 68 65 61 64 |e=. date.D..head|
00009d40 63 6f 75 6e 74 3d 31 0d 44 c0 05 cd 0d 44 ca 05 |count=1.D....D..|
00009d50 cd 0d 44 d4 08 c9 20 31 33 0d 44 de 19 e7 20 62 |..D... 13.D... b|
00009d60 75 74 74 6f 6e 25 3d 34 20 8c 20 63 6f 6c 73 2d |utton%=4 . cols-|
00009d70 3d 31 0d 44 e8 19 e7 20 62 75 74 74 6f 6e 25 3d |=1.D... button%=|
00009d80 31 20 8c 20 63 6f 6c 73 2b 3d 31 0d 44 f2 1b e7 |1 . cols+=1.D...|
00009d90 20 63 6f 6c 73 3e 3d 30 20 80 20 63 6f 6c 73 20 | cols>=0 . cols |
00009da0 3c 3d 31 35 20 8c 0d 44 fc 22 f2 69 63 6f 6e 70 |<=15 ..D.".iconp|
00009db0 75 74 74 65 78 74 28 70 61 6e 65 25 2c 31 34 2c |uttext(pane%,14,|
00009dc0 c3 28 63 6f 6c 73 29 29 0d 45 06 14 f2 63 6f 6c |.(cols)).E...col|
00009dd0 6f 75 72 73 65 74 28 63 6f 6c 73 29 0d 45 10 05 |ourset(cols).E..|
00009de0 cd 0d 45 1a 15 e7 20 63 6f 6c 73 3c 30 20 8c 20 |..E... cols<0 . |
00009df0 63 6f 6c 73 3d 30 0d 45 24 17 e7 20 63 6f 6c 73 |cols=0.E$.. cols|
00009e00 3e 31 35 20 8c 20 63 6f 6c 73 3d 31 35 0d 45 2e |>15 . cols=15.E.|
00009e10 08 c9 20 31 35 0d 45 38 19 e7 20 62 75 74 74 6f |.. 15.E8.. butto|
00009e20 6e 25 3d 34 20 8c 20 63 6f 6c 73 2b 3d 31 0d 45 |n%=4 . cols+=1.E|
00009e30 42 19 e7 20 62 75 74 74 6f 6e 25 3d 31 20 8c 20 |B.. button%=1 . |
00009e40 63 6f 6c 73 2d 3d 31 0d 45 4c 1b e7 20 63 6f 6c |cols-=1.EL.. col|
00009e50 73 3e 3d 30 20 80 20 63 6f 6c 73 20 3c 3d 31 35 |s>=0 . cols <=15|
00009e60 20 8c 0d 45 56 22 f2 69 63 6f 6e 70 75 74 74 65 | ..EV".iconputte|
00009e70 78 74 28 70 61 6e 65 25 2c 31 34 2c c3 28 63 6f |xt(pane%,14,.(co|
00009e80 6c 73 29 29 0d 45 60 14 f2 63 6f 6c 6f 75 72 73 |ls)).E`..colours|
00009e90 65 74 28 63 6f 6c 73 29 0d 45 6a 05 cd 0d 45 74 |et(cols).Ej...Et|
00009ea0 17 e7 20 63 6f 6c 73 3e 31 35 20 8c 20 63 6f 6c |.. cols>15 . col|
00009eb0 73 3d 31 35 0d 45 7e 15 e7 20 63 6f 6c 73 3c 30 |s=15.E~.. cols<0|
00009ec0 20 8c 20 63 6f 6c 73 3d 30 0d 45 88 08 c9 20 31 | . cols=0.E... 1|
00009ed0 37 0d 45 92 1d 69 63 6f 6e 73 70 72 69 74 65 73 |7.E..iconsprites|
00009ee0 3d ac 20 69 63 6f 6e 73 70 72 69 74 65 73 0d 45 |=. iconsprites.E|
00009ef0 9c 13 e7 20 69 63 6f 6e 73 70 72 69 74 65 73 20 |... iconsprites |
00009f00 8c 0d 45 a6 16 f2 73 65 6c 69 63 6f 6e 28 70 61 |..E...selicon(pa|
00009f10 6e 65 25 2c 31 37 29 0d 45 b0 05 cc 0d 45 ba 17 |ne%,17).E....E..|
00009f20 f2 75 73 65 6c 69 63 6f 6e 28 70 61 6e 65 25 2c |.uselicon(pane%,|
00009f30 31 37 29 0d 45 c4 05 cd 0d 45 ce 08 c9 20 32 31 |17).E....E... 21|
00009f40 0d 45 d8 1f 72 6f 77 73 3d bb 28 a4 69 63 6f 6e |.E..rows=.(.icon|
00009f50 74 65 78 74 28 70 61 6e 65 25 2c 32 32 29 29 0d |text(pane%,22)).|
00009f60 45 e2 19 e7 20 62 75 74 74 6f 6e 25 3d 34 20 8c |E... button%=4 .|
00009f70 20 72 6f 77 73 2d 3d 31 0d 45 ec 19 e7 20 62 75 | rows-=1.E... bu|
00009f80 74 74 6f 6e 25 3d 31 20 8c 20 72 6f 77 73 2b 3d |tton%=1 . rows+=|
00009f90 31 0d 45 f6 1b e7 20 72 6f 77 73 3e 3d 31 20 80 |1.E... rows>=1 .|
00009fa0 20 72 6f 77 73 3c 3d 39 39 39 20 8c 0d 46 00 22 | rows<=999 ..F."|
00009fb0 f2 69 63 6f 6e 70 75 74 74 65 78 74 28 70 61 6e |.iconputtext(pan|
00009fc0 65 25 2c 32 32 2c c3 28 72 6f 77 73 29 29 0d 46 |e%,22,.(rows)).F|
00009fd0 0a 05 cd 0d 46 14 18 e7 72 6f 77 73 3e 39 39 39 |....F...rows>999|
00009fe0 20 8c 20 72 6f 77 73 3d 39 39 39 0d 46 1e 14 e7 | . rows=999.F...|
00009ff0 72 6f 77 73 3c 31 20 8c 20 72 6f 77 73 3d 31 0d |rows<1 . rows=1.|
0000a000 46 28 23 f2 49 63 6f 6e 43 61 72 65 74 28 70 61 |F(#.IconCaret(pa|
0000a010 6e 65 25 2c 32 32 2c a9 28 c3 28 72 6f 77 73 29 |ne%,22,.(.(rows)|
0000a020 29 29 0d 46 32 08 c9 20 32 33 0d 46 3c 1f 72 6f |)).F2.. 23.F<.ro|
0000a030 77 73 3d bb 28 a4 69 63 6f 6e 74 65 78 74 28 70 |ws=.(.icontext(p|
0000a040 61 6e 65 25 2c 32 32 29 29 0d 46 46 19 e7 20 62 |ane%,22)).FF.. b|
0000a050 75 74 74 6f 6e 25 3d 34 20 8c 20 72 6f 77 73 2b |utton%=4 . rows+|
0000a060 3d 31 0d 46 50 19 e7 20 62 75 74 74 6f 6e 25 3d |=1.FP.. button%=|
0000a070 31 20 8c 20 72 6f 77 73 2d 3d 31 0d 46 5a 1b e7 |1 . rows-=1.FZ..|
0000a080 20 72 6f 77 73 3e 3d 31 20 80 20 72 6f 77 73 3c | rows>=1 . rows<|
0000a090 3d 39 39 39 20 8c 0d 46 64 22 f2 69 63 6f 6e 70 |=999 ..Fd".iconp|
0000a0a0 75 74 74 65 78 74 28 70 61 6e 65 25 2c 32 32 2c |uttext(pane%,22,|
0000a0b0 c3 28 72 6f 77 73 29 29 0d 46 6e 05 cd 0d 46 78 |.(rows)).Fn...Fx|
0000a0c0 18 e7 72 6f 77 73 3e 39 39 39 20 8c 20 72 6f 77 |..rows>999 . row|
0000a0d0 73 3d 39 39 39 0d 46 82 14 e7 72 6f 77 73 3c 31 |s=999.F...rows<1|
0000a0e0 20 8c 20 72 6f 77 73 3d 31 0d 46 8c 23 f2 49 63 | . rows=1.F.#.Ic|
0000a0f0 6f 6e 43 61 72 65 74 28 70 61 6e 65 25 2c 32 32 |onCaret(pane%,22|
0000a100 2c a9 28 c3 28 72 6f 77 73 29 29 29 0d 46 96 0b |,.(.(rows))).F..|
0000a110 c9 20 32 38 2c 32 37 0d 46 a0 20 f2 64 72 61 67 |. 28,27.F. .drag|
0000a120 73 6c 69 64 65 72 69 63 6f 6e 28 70 61 6e 65 25 |slidericon(pane%|
0000a130 2c 32 38 2c 32 37 29 0d 46 aa 0b c9 20 33 31 2c |,28,27).F... 31,|
0000a140 33 30 0d 46 b4 20 f2 64 72 61 67 73 6c 69 64 65 |30.F. .dragslide|
0000a150 72 69 63 6f 6e 28 70 61 6e 65 25 2c 33 31 2c 33 |ricon(pane%,31,3|
0000a160 30 29 0d 46 be 0b c9 20 33 34 2c 33 33 0d 46 c8 |0).F... 34,33.F.|
0000a170 20 f2 64 72 61 67 73 6c 69 64 65 72 69 63 6f 6e | .dragslidericon|
0000a180 28 70 61 6e 65 25 2c 33 34 2c 33 33 29 0d 46 d2 |(pane%,34,33).F.|
0000a190 05 cb 0d 46 dc 05 e1 0d 46 e6 0a dd f2 70 61 6e |...F....F....pan|
0000a1a0 65 0d 46 f0 15 6f 6c 64 68 65 61 64 3d 68 65 61 |e.F..oldhead=hea|
0000a1b0 64 63 6f 75 6e 74 0d 46 fa 16 68 65 61 64 69 6e |dcount.F..headin|
0000a1c0 67 73 3d 66 68 65 61 64 69 6e 67 73 0d 47 04 0e |gs=fheadings.G..|
0000a1d0 62 6f 78 72 3d 66 62 6f 78 72 0d 47 0e 0e 62 6f |boxr=fboxr.G..bo|
0000a1e0 78 67 3d 66 62 6f 78 67 0d 47 18 0e 62 6f 78 62 |xg=fboxg.G..boxb|
0000a1f0 3d 66 62 6f 78 62 0d 47 22 21 f2 73 65 74 62 61 |=fboxb.G"!.setba|
0000a200 72 28 70 61 6e 65 25 2c 32 38 2c 32 37 2c 32 35 |r(pane%,28,27,25|
0000a210 35 2c 62 6f 78 72 29 0d 47 2c 21 f2 73 65 74 62 |5,boxr).G,!.setb|
0000a220 61 72 28 70 61 6e 65 25 2c 33 31 2c 33 30 2c 32 |ar(pane%,31,30,2|
0000a230 35 35 2c 62 6f 78 67 29 0d 47 36 21 f2 73 65 74 |55,boxg).G6!.set|
0000a240 62 61 72 28 70 61 6e 65 25 2c 33 34 2c 33 33 2c |bar(pane%,34,33,|
0000a250 32 35 35 2c 62 6f 78 62 29 0d 47 40 22 f2 64 6f |255,boxb).G@".do|
0000a260 63 6f 6c 6f 75 72 62 6f 78 28 62 6f 78 72 2c 62 |colourbox(boxr,b|
0000a270 6f 78 67 2c 62 6f 78 62 2c b9 29 0d 47 4a 05 3a |oxg,boxb,.).GJ.:|
0000a280 0d 47 54 22 f2 69 63 6f 6e 70 75 74 74 65 78 74 |.GT".iconputtext|
0000a290 28 70 61 6e 65 25 2c 33 35 2c c3 28 62 6f 78 72 |(pane%,35,.(boxr|
0000a2a0 29 29 0d 47 5e 22 f2 69 63 6f 6e 70 75 74 74 65 |)).G^".iconputte|
0000a2b0 78 74 28 70 61 6e 65 25 2c 33 36 2c c3 28 62 6f |xt(pane%,36,.(bo|
0000a2c0 78 67 29 29 0d 47 68 22 f2 69 63 6f 6e 70 75 74 |xg)).Gh".iconput|
0000a2d0 74 65 78 74 28 70 61 6e 65 25 2c 33 37 2c c3 28 |text(pane%,37,.(|
0000a2e0 62 6f 78 62 29 29 0d 47 72 05 3a 0d 47 7c 0d f2 |boxb)).Gr.:.G|..|
0000a2f0 68 65 61 64 69 6e 67 73 0d 47 86 18 73 6f 75 72 |headings.G..sour|
0000a300 63 65 64 69 72 3d 66 73 6f 75 72 63 65 64 69 72 |cedir=fsourcedir|
0000a310 0d 47 90 11 e7 20 73 6f 75 72 63 65 64 69 72 20 |.G... sourcedir |
0000a320 8c 0d 47 9a 15 f2 73 65 6c 69 63 6f 6e 28 70 61 |..G...selicon(pa|
0000a330 6e 65 25 2c 33 29 0d 47 a4 05 cc 0d 47 ae 16 f2 |ne%,3).G....G...|
0000a340 75 73 65 6c 69 63 6f 6e 28 70 61 6e 65 25 2c 33 |uselicon(pane%,3|
0000a350 29 0d 47 b8 05 cd 0d 47 c2 0e 64 61 74 65 3d 66 |).G....G..date=f|
0000a360 64 61 74 65 0d 47 cc 0c e7 20 64 61 74 65 20 8c |date.G... date .|
0000a370 0d 47 d6 15 f2 73 65 6c 69 63 6f 6e 28 70 61 6e |.G...selicon(pan|
0000a380 65 25 2c 34 29 0d 47 e0 05 cc 0d 47 ea 16 f2 75 |e%,4).G....G...u|
0000a390 73 65 6c 69 63 6f 6e 28 70 61 6e 65 25 2c 34 29 |selicon(pane%,4)|
0000a3a0 0d 47 f4 05 cd 0d 47 fe 23 f2 69 63 6f 6e 70 75 |.G....G.#.iconpu|
0000a3b0 74 74 65 78 74 28 70 61 6e 65 25 2c 38 2c 6c 69 |ttext(pane%,8,li|
0000a3c0 6e 65 6a 75 6e 63 24 29 0d 48 08 20 f2 69 63 6f |nejunc$).H. .ico|
0000a3d0 6e 70 75 74 74 65 78 74 28 70 61 6e 65 25 2c 39 |nputtext(pane%,9|
0000a3e0 2c 74 6a 75 6e 63 24 29 0d 48 12 23 f2 69 63 6f |,tjunc$).H.#.ico|
0000a3f0 6e 70 75 74 74 65 78 74 28 70 61 6e 65 25 2c 31 |nputtext(pane%,1|
0000a400 30 2c 65 6e 64 6a 75 6e 63 24 29 0d 48 1c 10 63 |0,endjunc$).H..c|
0000a410 6f 6c 73 3d 66 69 6e 63 6f 6c 73 0d 48 26 22 f2 |ols=fincols.H&".|
0000a420 69 63 6f 6e 70 75 74 74 65 78 74 28 70 61 6e 65 |iconputtext(pane|
0000a430 25 2c 31 34 2c c3 28 63 6f 6c 73 29 29 0d 48 30 |%,14,.(cols)).H0|
0000a440 14 f2 63 6f 6c 6f 75 72 73 65 74 28 63 6f 6c 73 |..colourset(cols|
0000a450 29 0d 48 3a 1c 69 63 6f 6e 73 70 72 69 74 65 73 |).H:.iconsprites|
0000a460 3d 66 69 63 6f 6e 73 70 72 69 74 65 73 0d 48 44 |=ficonsprites.HD|
0000a470 13 e7 20 69 63 6f 6e 73 70 72 69 74 65 73 20 8c |.. iconsprites .|
0000a480 0d 48 4e 16 f2 73 65 6c 69 63 6f 6e 28 70 61 6e |.HN..selicon(pan|
0000a490 65 25 2c 31 37 29 0d 48 58 05 cc 0d 48 62 17 f2 |e%,17).HX...Hb..|
0000a4a0 75 73 65 6c 69 63 6f 6e 28 70 61 6e 65 25 2c 31 |uselicon(pane%,1|
0000a4b0 37 29 0d 48 6c 05 cd 0d 48 76 0e 72 6f 77 73 3d |7).Hl...Hv.rows=|
0000a4c0 66 72 6f 77 73 0d 48 80 22 f2 69 63 6f 6e 70 75 |frows.H.".iconpu|
0000a4d0 74 74 65 78 74 28 70 61 6e 65 25 2c 32 32 2c c3 |ttext(pane%,22,.|
0000a4e0 28 72 6f 77 73 29 29 0d 48 8a 05 3a 0d 48 94 14 |(rows)).H..:.H..|
0000a4f0 6c 69 6e 65 6f 62 6a 3d 66 6c 69 6e 65 6f 62 6a |lineobj=flineobj|
0000a500 0d 48 9e 0f e7 20 6c 69 6e 65 6f 62 6a 20 8c 0d |.H... lineobj ..|
0000a510 48 a8 16 f2 73 65 6c 69 63 6f 6e 28 70 61 6e 65 |H...selicon(pane|
0000a520 25 2c 34 34 29 0d 48 b2 05 cc 0d 48 bc 17 f2 75 |%,44).H....H...u|
0000a530 73 65 6c 69 63 6f 6e 28 70 61 6e 65 25 2c 34 34 |selicon(pane%,44|
0000a540 29 0d 48 c6 05 cd 0d 48 d0 0c e7 20 64 69 72 73 |).H....H... dirs|
0000a550 20 8c 0d 48 da 16 f2 73 65 6c 69 63 6f 6e 28 70 | ..H...selicon(p|
0000a560 61 6e 65 25 2c 34 36 29 0d 48 e4 05 cc 0d 48 ee |ane%,46).H....H.|
0000a570 17 f2 75 73 65 6c 69 63 6f 6e 28 70 61 6e 65 25 |..uselicon(pane%|
0000a580 2c 34 36 29 0d 48 f8 05 cd 0d 49 02 05 e1 0d 49 |,46).H....I....I|
0000a590 0c 0e dd f2 68 65 61 64 69 6e 67 73 0d 49 16 10 |....headings.I..|
0000a5a0 e7 20 68 65 61 64 69 6e 67 73 20 8c 0d 49 20 15 |. headings ..I .|
0000a5b0 f2 73 65 6c 69 63 6f 6e 28 70 61 6e 65 25 2c 32 |.selicon(pane%,2|
0000a5c0 29 0d 49 2a 14 f2 75 73 69 63 6f 6e 28 70 61 6e |).I*..usicon(pan|
0000a5d0 65 25 2c 33 29 0d 49 34 14 f2 75 73 69 63 6f 6e |e%,3).I4..usicon|
0000a5e0 28 70 61 6e 65 25 2c 34 29 0d 49 3e 05 cc 0d 49 |(pane%,4).I>...I|
0000a5f0 48 16 f2 75 73 65 6c 69 63 6f 6e 28 70 61 6e 65 |H..uselicon(pane|
0000a600 25 2c 32 29 0d 49 52 13 f2 73 69 63 6f 6e 28 70 |%,2).IR..sicon(p|
0000a610 61 6e 65 25 2c 33 29 0d 49 5c 13 f2 73 69 63 6f |ane%,3).I\..sico|
0000a620 6e 28 70 61 6e 65 25 2c 34 29 0d 49 66 05 cd 0d |n(pane%,4).If...|
0000a630 49 70 05 e1 0d 49 7a 12 dd f2 63 6f 6c 6f 75 72 |Ip...Iz...colour|
0000a640 73 65 74 28 63 29 0d 49 84 1e f2 63 68 61 6e 67 |set(c).I...chang|
0000a650 65 62 63 6f 6c 6f 75 72 28 70 61 6e 65 25 2c 31 |ebcolour(pane%,1|
0000a660 34 2c 63 29 0d 49 8e 0a c8 8e 20 63 20 ca 0d 49 |4,c).I.... c ..I|
0000a670 98 18 c9 20 30 2c 31 2c 32 2c 33 2c 39 2c 31 32 |... 0,1,2,3,9,12|
0000a680 2c 31 34 2c 31 35 0d 49 a2 1e f2 63 68 61 6e 67 |,14,15.I...chang|
0000a690 65 66 63 6f 6c 6f 75 72 28 70 61 6e 65 25 2c 31 |efcolour(pane%,1|
0000a6a0 34 2c 37 29 0d 49 ac 05 7f 0d 49 b6 1e f2 63 68 |4,7).I....I...ch|
0000a6b0 61 6e 67 65 66 63 6f 6c 6f 75 72 28 70 61 6e 65 |angefcolour(pane|
0000a6c0 25 2c 31 34 2c 30 29 0d 49 c0 05 cb 0d 49 ca 05 |%,14,0).I....I..|
0000a6d0 e1 0d 49 d4 20 dd f2 63 68 61 6e 67 65 62 63 6f |..I. ..changebco|
0000a6e0 6c 6f 75 72 28 77 69 25 2c 69 63 25 2c 63 6f 25 |lour(wi%,ic%,co%|
0000a6f0 29 0d 49 de 10 62 6c 6f 63 6b 25 21 30 3d 77 69 |).I..block%!0=wi|
0000a700 25 0d 49 e8 10 62 6c 6f 63 6b 25 21 34 3d 69 63 |%.I..block%!4=ic|
0000a710 25 0d 49 f2 16 62 6c 6f 63 6b 25 21 38 3d 28 63 |%.I..block%!8=(c|
0000a720 6f 25 3c 3c 32 38 29 0d 49 fc 19 62 6c 6f 63 6b |o%<<28).I..block|
0000a730 25 21 31 32 3d 28 25 31 31 31 31 3c 3c 32 38 29 |%!12=(%1111<<28)|
0000a740 0d 4a 06 15 c8 99 20 26 34 30 30 43 44 2c 2c 62 |.J.... &400CD,,b|
0000a750 6c 6f 63 6b 25 0d 4a 10 05 e1 0d 4a 1a 20 dd f2 |lock%.J....J. ..|
0000a760 63 68 61 6e 67 65 66 63 6f 6c 6f 75 72 28 77 69 |changefcolour(wi|
0000a770 25 2c 69 63 25 2c 63 6f 25 29 0d 4a 24 10 62 6c |%,ic%,co%).J$.bl|
0000a780 6f 63 6b 25 21 30 3d 77 69 25 0d 4a 2e 10 62 6c |ock%!0=wi%.J..bl|
0000a790 6f 63 6b 25 21 34 3d 69 63 25 0d 4a 38 16 62 6c |ock%!4=ic%.J8.bl|
0000a7a0 6f 63 6b 25 21 38 3d 28 63 6f 25 3c 3c 32 34 29 |ock%!8=(co%<<24)|
0000a7b0 0d 4a 42 19 62 6c 6f 63 6b 25 21 31 32 3d 28 25 |.JB.block%!12=(%|
0000a7c0 31 31 31 31 3c 3c 32 34 29 0d 4a 4c 15 c8 99 20 |1111<<24).JL... |
0000a7d0 26 34 30 30 43 44 2c 2c 62 6c 6f 63 6b 25 0d 4a |&400CD,,block%.J|
0000a7e0 56 05 e1 0d 4a 60 11 dd a4 50 70 61 64 28 73 74 |V...J`...Ppad(st|
0000a7f0 24 2c 6e 29 0d 4a 6a 07 ea 20 70 0d 4a 74 0c 70 |$,n).Jj.. p.Jt.p|
0000a800 3d a9 28 73 74 24 29 0d 4a 7e 15 73 74 24 3d 73 |=.(st$).J~.st$=s|
0000a810 74 24 2b c4 6e 2d 70 2c 22 20 22 29 0d 4a 88 08 |t$+.n-p," ").J..|
0000a820 3d 73 74 24 0d 4a 92 16 dd f2 64 65 66 61 75 6c |=st$.J....defaul|
0000a830 74 73 28 66 6c 61 67 67 25 29 0d 4a 9c 0a 64 69 |ts(flagg%).J..di|
0000a840 72 73 3d a3 0d 4a a6 17 f2 75 73 65 6c 69 63 6f |rs=..J...uselico|
0000a850 6e 28 70 61 6e 65 25 2c 34 36 29 0d 4a b0 0a 62 |n(pane%,46).J..b|
0000a860 6f 78 72 3d 30 0d 4a ba 0a 62 6f 78 67 3d 30 0d |oxr=0.J..boxg=0.|
0000a870 4a c4 0a 62 6f 78 62 3d 30 0d 4a ce 21 f2 73 65 |J..boxb=0.J.!.se|
0000a880 74 62 61 72 28 70 61 6e 65 25 2c 32 38 2c 32 37 |tbar(pane%,28,27|
0000a890 2c 32 35 35 2c 62 6f 78 72 29 0d 4a d8 21 f2 73 |,255,boxr).J.!.s|
0000a8a0 65 74 62 61 72 28 70 61 6e 65 25 2c 33 31 2c 33 |etbar(pane%,31,3|
0000a8b0 30 2c 32 35 35 2c 62 6f 78 67 29 0d 4a e2 21 f2 |0,255,boxg).J.!.|
0000a8c0 73 65 74 62 61 72 28 70 61 6e 65 25 2c 33 34 2c |setbar(pane%,34,|
0000a8d0 33 33 2c 32 35 35 2c 62 6f 78 62 29 0d 4a ec 22 |33,255,boxb).J."|
0000a8e0 f2 64 6f 63 6f 6c 6f 75 72 62 6f 78 28 62 6f 78 |.docolourbox(box|
0000a8f0 72 2c 62 6f 78 67 2c 62 6f 78 62 2c b9 29 0d 4a |r,boxg,boxb,.).J|
0000a900 f6 22 f2 69 63 6f 6e 70 75 74 74 65 78 74 28 70 |.".iconputtext(p|
0000a910 61 6e 65 25 2c 33 35 2c c3 28 62 6f 78 72 29 29 |ane%,35,.(boxr))|
0000a920 0d 4b 00 22 f2 69 63 6f 6e 70 75 74 74 65 78 74 |.K.".iconputtext|
0000a930 28 70 61 6e 65 25 2c 33 36 2c c3 28 62 6f 78 67 |(pane%,36,.(boxg|
0000a940 29 29 0d 4b 0a 22 f2 69 63 6f 6e 70 75 74 74 65 |)).K.".iconputte|
0000a950 78 74 28 70 61 6e 65 25 2c 33 37 2c c3 28 62 6f |xt(pane%,37,.(bo|
0000a960 78 62 29 29 0d 4b 14 0b 72 6f 77 73 3d 35 30 0d |xb)).K..rows=50.|
0000a970 4b 1e 0e 68 65 61 64 69 6e 67 73 3d b9 0d 4b 28 |K..headings=..K(|
0000a980 0f 73 6f 75 72 63 65 64 69 72 3d b9 0d 4b 32 0a |.sourcedir=..K2.|
0000a990 64 61 74 65 3d b9 0d 4b 3c 0f 68 65 61 64 63 6f |date=..K<.headco|
0000a9a0 75 6e 74 3d 32 0d 4b 46 0f 74 6a 75 6e 63 24 3d |unt=2.KF.tjunc$=|
0000a9b0 22 2b 98 22 0d 4b 50 11 65 6e 64 6a 75 6e 63 24 |"+.".KP.endjunc$|
0000a9c0 3d 22 27 98 22 0d 4b 5a 11 6c 69 6e 65 6a 75 6e |="'.".KZ.linejun|
0000a9d0 63 24 3d 22 7c 22 0d 4b 64 0a 63 6f 6c 73 3d 37 |c$="|".Kd.cols=7|
0000a9e0 0d 4b 6e 11 69 63 6f 6e 73 70 72 69 74 65 73 3d |.Kn.iconsprites=|
0000a9f0 b9 0d 4b 78 0e e7 20 66 6c 61 67 67 25 20 8c 0d |..Kx.. flagg% ..|
0000aa00 4b 82 0d f2 68 65 61 64 69 6e 67 73 0d 4b 8c 11 |K...headings.K..|
0000aa10 e7 20 73 6f 75 72 63 65 64 69 72 20 8c 0d 4b 96 |. sourcedir ..K.|
0000aa20 15 f2 73 65 6c 69 63 6f 6e 28 70 61 6e 65 25 2c |..selicon(pane%,|
0000aa30 33 29 0d 4b a0 05 cc 0d 4b aa 16 f2 75 73 65 6c |3).K....K...usel|
0000aa40 69 63 6f 6e 28 70 61 6e 65 25 2c 33 29 0d 4b b4 |icon(pane%,3).K.|
0000aa50 05 cd 0d 4b be 0c e7 20 64 61 74 65 20 8c 0d 4b |...K... date ..K|
0000aa60 c8 15 f2 73 65 6c 69 63 6f 6e 28 70 61 6e 65 25 |...selicon(pane%|
0000aa70 2c 34 29 0d 4b d2 05 cc 0d 4b dc 16 f2 75 73 65 |,4).K....K...use|
0000aa80 6c 69 63 6f 6e 28 70 61 6e 65 25 2c 34 29 0d 4b |licon(pane%,4).K|
0000aa90 e6 05 cd 0d 4b f0 23 f2 69 63 6f 6e 70 75 74 74 |....K.#.iconputt|
0000aaa0 65 78 74 28 70 61 6e 65 25 2c 38 2c 6c 69 6e 65 |ext(pane%,8,line|
0000aab0 6a 75 6e 63 24 29 0d 4b fa 20 f2 69 63 6f 6e 70 |junc$).K. .iconp|
0000aac0 75 74 74 65 78 74 28 70 61 6e 65 25 2c 39 2c 74 |uttext(pane%,9,t|
0000aad0 6a 75 6e 63 24 29 0d 4c 04 23 f2 69 63 6f 6e 70 |junc$).L.#.iconp|
0000aae0 75 74 74 65 78 74 28 70 61 6e 65 25 2c 31 30 2c |uttext(pane%,10,|
0000aaf0 65 6e 64 6a 75 6e 63 24 29 0d 4c 0e 22 f2 69 63 |endjunc$).L.".ic|
0000ab00 6f 6e 70 75 74 74 65 78 74 28 70 61 6e 65 25 2c |onputtext(pane%,|
0000ab10 31 34 2c c3 28 63 6f 6c 73 29 29 0d 4c 18 14 f2 |14,.(cols)).L...|
0000ab20 63 6f 6c 6f 75 72 73 65 74 28 63 6f 6c 73 29 0d |colourset(cols).|
0000ab30 4c 22 13 e7 20 69 63 6f 6e 73 70 72 69 74 65 73 |L".. iconsprites|
0000ab40 20 8c 0d 4c 2c 16 f2 73 65 6c 69 63 6f 6e 28 70 | ..L,..selicon(p|
0000ab50 61 6e 65 25 2c 31 37 29 0d 4c 36 05 cc 0d 4c 40 |ane%,17).L6...L@|
0000ab60 17 f2 75 73 65 6c 69 63 6f 6e 28 70 61 6e 65 25 |..uselicon(pane%|
0000ab70 2c 31 37 29 0d 4c 4a 05 cd 0d 4c 54 22 f2 69 63 |,17).LJ...LT".ic|
0000ab80 6f 6e 70 75 74 74 65 78 74 28 70 61 6e 65 25 2c |onputtext(pane%,|
0000ab90 32 32 2c c3 28 72 6f 77 73 29 29 0d 4c 5e 05 cd |22,.(rows)).L^..|
0000aba0 0d 4c 68 0d 6c 69 6e 65 6f 62 6a 3d b9 0d 4c 72 |.Lh.lineobj=..Lr|
0000abb0 0f e7 20 6c 69 6e 65 6f 62 6a 20 8c 0d 4c 7c 16 |.. lineobj ..L|.|
0000abc0 f2 73 65 6c 69 63 6f 6e 28 70 61 6e 65 25 2c 34 |.selicon(pane%,4|
0000abd0 34 29 0d 4c 86 05 cc 0d 4c 90 17 f2 75 73 65 6c |4).L....L...usel|
0000abe0 69 63 6f 6e 28 70 61 6e 65 25 2c 34 34 29 0d 4c |icon(pane%,44).L|
0000abf0 9a 05 cd 0d 4c a4 05 e1 0d 4c ae 20 dd a4 6d 6f |....L....L. ..mo|
0000ac00 64 75 6c 65 70 72 65 73 65 6e 74 28 6d 6f 64 75 |dulepresent(modu|
0000ac10 6c 65 6e 61 6d 65 24 29 0d 4c b8 33 c8 99 20 26 |lename$).L.3.. &|
0000ac20 30 30 30 32 30 30 31 45 2c 31 38 2c 6d 6f 64 75 |0002001E,18,modu|
0000ac30 6c 65 6e 61 6d 65 24 20 b8 20 4d 30 2c 4d 31 2c |lename$ . M0,M1,|
0000ac40 4d 32 2c 4d 33 2c 4d 34 2c 4d 35 0d 4c c2 29 e7 |M2,M3,M4,M5.L.).|
0000ac50 20 4d 32 3d 30 20 80 20 4d 33 3d 30 20 80 20 4d | M2=0 . M3=0 . M|
0000ac60 34 3d 30 20 80 20 4d 35 3d 30 20 8c 20 3d 30 20 |4=0 . M5=0 . =0 |
0000ac70 8b 20 3d 31 0d 4c cc 1c dd a4 66 69 6c 65 74 79 |. =1.L....filety|
0000ac80 70 65 6f 66 61 66 69 6c 65 28 66 69 6c 65 24 29 |peofafile(file$)|
0000ac90 0d 4c d6 0a ea 20 6f 62 6a 25 0d 4c e0 2b c8 99 |.L... obj%.L.+..|
0000aca0 20 26 30 30 30 30 30 30 30 38 2c 35 2c 66 69 6c | &00000008,5,fil|
0000acb0 65 24 20 b8 20 6f 62 6a 25 2c 2c 6d 79 6e 65 77 |e$ . obj%,,mynew|
0000acc0 74 79 70 65 25 0d 4c ea 36 e7 20 6f 62 6a 25 3d |type%.L.6. obj%=|
0000acd0 31 20 80 20 28 6d 79 6e 65 77 74 79 70 65 25 20 |1 . (mynewtype% |
0000ace0 80 20 26 46 46 46 30 30 30 30 30 29 20 3c 3e 20 |. &FFF00000) <> |
0000acf0 26 46 46 46 30 30 30 30 30 20 8c 0d 4c f4 11 6d |&FFF00000 ..L..m|
0000ad00 79 6e 65 77 74 79 70 65 25 3d 2d 32 0d 4c fe 05 |ynewtype%=-2.L..|
0000ad10 cc 0d 4d 08 44 e7 20 6f 62 6a 25 3d 31 20 8c 20 |..M.D. obj%=1 . |
0000ad20 6d 79 6e 65 77 74 79 70 65 25 3d 28 6d 79 6e 65 |mynewtype%=(myne|
0000ad30 77 74 79 70 65 25 20 80 20 26 46 46 46 30 30 29 |wtype% . &FFF00)|
0000ad40 20 3e 3e 20 38 20 8b 20 6d 79 6e 65 77 74 79 70 | >> 8 . mynewtyp|
0000ad50 65 25 3d 2d 31 0d 4d 12 05 cd 0d 4d 1c 0f 3d 6d |e%=-1.M....M..=m|
0000ad60 79 6e 65 77 74 79 70 65 25 0d 4d 26 05 3a 0d 4d |ynewtype%.M&.:.M|
0000ad70 30 14 dd a4 63 68 65 63 6b 66 72 65 65 73 70 61 |0...checkfreespa|
0000ad80 63 65 0d 4d 3a 28 c8 99 22 57 69 6d 70 5f 53 6c |ce.M:(.."Wimp_Sl|
0000ad90 6f 74 53 69 7a 65 22 2c 2d 31 2c 2d 31 20 b8 20 |otSize",-1,-1 . |
0000ada0 2c 2c 66 72 65 65 70 6f 6f 6c 0d 4d 44 0d 3d 66 |,,freepool.MD.=f|
0000adb0 72 65 65 70 6f 6f 6c 0d 4d 4e 05 3a 0d 4d 58 13 |reepool.MN.:.MX.|
0000adc0 dd f2 64 6f 64 72 61 77 28 66 69 6c 65 24 29 0d |..dodraw(file$).|
0000add0 4d 62 1c c8 99 20 26 30 38 2c 31 31 2c 66 69 6c |Mb... &08,11,fil|
0000ade0 65 24 2c 26 61 66 66 2c 30 2c 30 0d 4d 6c 15 c8 |e$,&aff,0,0.Ml..|
0000adf0 99 20 22 48 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 |. "Hourglass_On"|
0000ae00 0d 4d 76 0e 72 65 63 61 6c 63 78 25 3d 30 0d 4d |.Mv.recalcx%=0.M|
0000ae10 80 0f 58 25 3d ae 28 66 69 6c 65 24 29 0d 4d 8a |..X%=.(file$).M.|
0000ae20 0d 74 6f 70 78 25 3d 33 30 30 0d 4d 94 13 64 75 |.topx%=300.M..du|
0000ae30 6d 6d 79 74 6f 70 79 25 3d 38 31 35 30 0d 4d 9e |mmytopy%=8150.M.|
0000ae40 0e 74 6f 70 79 25 3d 38 31 35 30 0d 4d a8 0f 74 |.topy%=8150.M..t|
0000ae50 74 74 65 6d 70 25 3d 32 30 30 0d 4d b2 0d 64 75 |ttemp%=200.M..du|
0000ae60 6d 6d 79 78 25 3d 30 0d 4d bc 1f e7 20 74 74 74 |mmyx%=0.M... ttt|
0000ae70 65 6d 70 25 3c 38 33 30 20 8c 20 74 74 74 65 6d |emp%<830 . tttem|
0000ae80 70 25 3d 38 33 30 0d 4d c6 0f e7 20 63 6f 6c 75 |p%=830.M... colu|
0000ae90 6d 6e 73 20 8c 0d 4d d0 45 f2 6d 61 6b 65 64 72 |mns ..M.E.makedr|
0000aea0 61 77 66 69 6c 65 68 65 61 64 65 72 28 74 6f 70 |awfileheader(top|
0000aeb0 78 25 2d 31 35 30 2c 74 6f 70 79 25 2d 28 28 72 |x%-150,topy%-((r|
0000aec0 6f 77 73 2d 31 29 2a 32 32 29 2d 35 30 2c 30 2c |ows-1)*22)-50,0,|
0000aed0 74 6f 70 79 25 2b 32 30 30 29 0d 4d da 05 cc 0d |topy%+200).M....|
0000aee0 4d e4 4e f2 6d 61 6b 65 64 72 61 77 66 69 6c 65 |M.N.makedrawfile|
0000aef0 68 65 61 64 65 72 28 74 6f 70 78 25 2d 31 35 30 |header(topx%-150|
0000af00 2c 74 6f 70 79 25 2d 28 28 69 69 69 25 2d 31 29 |,topy%-((iii%-1)|
0000af10 2a 32 32 29 2d 35 30 2c 74 74 74 65 6d 70 25 2b |*22)-50,tttemp%+|
0000af20 35 30 2c 74 6f 70 79 25 2b 32 30 30 29 0d 4d ee |50,topy%+200).M.|
0000af30 05 cd 0d 4d f8 05 3a 0d 4e 02 42 f2 6f 62 6a 65 |...M..:.N.B.obje|
0000af40 63 74 68 65 61 64 65 72 28 30 2c 38 2b a4 66 6f |ctheader(0,8+.fo|
0000af50 6e 74 74 61 62 6c 65 73 69 7a 65 28 22 48 6f 6d |nttablesize("Hom|
0000af60 65 72 74 6f 6e 2e 4d 65 64 69 75 6d 22 29 2c 30 |erton.Medium"),0|
0000af70 2c 30 2c 30 2c 30 2c a3 29 0d 4e 0c 23 f2 66 6f |,0,0,0,.).N.#.fo|
0000af80 6e 74 74 61 62 6c 65 28 31 2c 22 48 6f 6d 65 72 |nttable(1,"Homer|
0000af90 74 6f 6e 2e 4d 65 64 69 75 6d 22 29 0d 4e 16 05 |ton.Medium").N..|
0000afa0 3a 0d 4e 20 25 f2 6f 62 6a 65 63 74 68 65 61 64 |:.N %.objecthead|
0000afb0 65 72 28 31 31 2c 36 34 2b 32 34 2c 30 2c 30 2c |er(11,64+24,0,0,|
0000afc0 30 2c 30 2c b9 29 0d 4e 2a 0b f2 6f 62 6a 65 63 |0,0,.).N*..objec|
0000afd0 74 0d 4e 34 05 3a 0d 4e 3e 4d f2 6f 62 6a 65 63 |t.N4.:.N>M.objec|
0000afe0 74 68 65 61 64 65 72 28 32 2c 32 34 2b 31 36 2b |theader(2,24+16+|
0000aff0 32 34 2b 34 2c 74 6f 70 78 25 2d 31 30 30 2c 74 |24+4,topx%-100,t|
0000b000 6f 70 79 25 2b 31 34 34 2c 74 6f 70 78 25 2d 31 |opy%+144,topx%-1|
0000b010 30 30 2b 36 35 30 2c 74 6f 70 79 25 2b 31 34 34 |00+650,topy%+144|
0000b020 2c b9 29 0d 4e 48 18 f2 70 61 74 68 68 65 61 64 |,.).NH..pathhead|
0000b030 65 72 28 32 35 35 2c 30 2c 30 29 0d 4e 52 26 f2 |er(255,0,0).NR&.|
0000b040 64 72 61 77 66 69 6c 65 6d 6f 76 65 28 74 6f 70 |drawfilemove(top|
0000b050 78 25 2d 31 30 30 2c 74 6f 70 79 25 2b 31 34 34 |x%-100,topy%+144|
0000b060 29 0d 4e 5c 2a f2 64 72 61 77 66 69 6c 65 64 72 |).N\*.drawfiledr|
0000b070 61 77 28 74 6f 70 78 25 2d 31 30 30 2b 36 35 30 |aw(topx%-100+650|
0000b080 2c 74 6f 70 79 25 2b 31 34 34 29 0d 4e 66 0c f2 |,topy%+144).Nf..|
0000b090 65 6e 64 70 61 74 68 0d 4e 70 05 3a 0d 4e 7a 67 |endpath.Np.:.Nzg|
0000b0a0 f2 74 65 78 74 6f 62 6a 65 63 74 28 31 2c 32 35 |.textobject(1,25|
0000b0b0 35 2c 30 2c 30 2c 31 34 2c 31 34 2c 74 6f 70 78 |5,0,0,14,14,topx|
0000b0c0 25 2d 31 30 30 2c 74 6f 70 79 25 2b 31 35 30 2c |%-100,topy%+150,|
0000b0d0 22 54 72 65 65 20 28 22 2b c1 76 65 72 24 2c 31 |"Tree ("+.ver$,1|
0000b0e0 2c 36 29 2b 22 29 20 2d 20 62 79 20 52 69 63 68 |,6)+") - by Rich|
0000b0f0 61 72 64 20 53 61 6d 70 68 69 72 65 20 31 39 39 |ard Samphire 199|
0000b100 33 22 29 0d 4e 84 3d f2 74 65 78 74 6f 62 6a 65 |3").N.=.textobje|
0000b110 63 74 28 31 2c 30 2c 30 2c 30 2c 31 30 2c 31 30 |ct(1,0,0,0,10,10|
0000b120 2c 74 6f 70 78 25 2d 31 30 30 2c 74 6f 70 79 25 |,topx%-100,topy%|
0000b130 2b 34 30 2c 22 54 72 65 65 20 6f 66 20 3a 22 29 |+40,"Tree of :")|
0000b140 0d 4e 8e 38 f2 74 65 78 74 6f 62 6a 65 63 74 28 |.N.8.textobject(|
0000b150 31 2c 30 2c 36 38 2c 31 35 33 2c 38 2c 38 2c 74 |1,0,68,153,8,8,t|
0000b160 6f 70 78 25 2d 33 30 2c 74 6f 70 79 25 2b 31 35 |opx%-30,topy%+15|
0000b170 2c 70 6f 6f 75 70 24 29 0d 4e 98 05 3a 0d 4e a2 |,pooup$).N..:.N.|
0000b180 0b 70 66 61 66 25 3d 30 0d 4e ac 0b 64 75 66 66 |.pfaf%=0.N..duff|
0000b190 25 3d 30 0d 4e b6 11 41 6c 69 6e 65 63 6f 75 6e |%=0.N..Alinecoun|
0000b1a0 74 25 3d 30 0d 4e c0 11 42 6c 69 6e 65 63 6f 75 |t%=0.N..Blinecou|
0000b1b0 6e 74 25 3d 30 0d 4e ca 16 e3 20 70 75 6b 65 25 |nt%=0.N... puke%|
0000b1c0 3d 30 20 b8 20 69 69 69 25 2d 31 0d 4e d4 2e e7 |=0 . iii%-1.N...|
0000b1d0 20 70 75 6b 65 25 3e 30 20 80 20 28 70 75 6b 65 | puke%>0 . (puke|
0000b1e0 25 20 83 20 72 6f 77 73 20 3d 20 30 29 20 80 20 |% . rows = 0) . |
0000b1f0 63 6f 6c 75 6d 6e 73 20 8c 0d 4e de 18 74 6f 70 |columns ..N..top|
0000b200 78 25 3d 28 72 65 63 61 6c 63 78 25 2b 32 30 30 |x%=(recalcx%+200|
0000b210 29 0d 4e e8 14 63 6f 6c 28 64 75 66 66 25 29 3d |).N..col(duff%)=|
0000b220 74 6f 70 78 25 0d 4e f2 14 74 6f 70 79 25 3d 64 |topx%.N..topy%=d|
0000b230 75 6d 6d 79 74 6f 70 79 25 0d 4e fc 0e 72 65 63 |ummytopy%.N..rec|
0000b240 61 6c 63 78 25 3d 30 0d 4f 06 0b 70 66 61 66 25 |alcx%=0.O..pfaf%|
0000b250 3d 30 0d 4f 10 0c 64 75 66 66 25 2b 3d 31 0d 4f |=0.O..duff%+=1.O|
0000b260 1a 11 e7 20 64 75 66 66 25 3e 31 39 39 20 8c 0d |... duff%>199 ..|
0000b270 4f 24 0d 64 75 66 66 25 3d 31 39 39 0d 4f 2e 35 |O$.duff%=199.O.5|
0000b280 85 20 30 2c 22 41 20 74 72 65 65 20 64 72 61 77 |. 0,"A tree draw|
0000b290 20 66 69 6c 65 20 63 61 6e 20 6f 6e 6c 79 20 68 | file can only h|
0000b2a0 61 76 65 20 31 39 39 20 63 6f 6c 75 6d 6e 73 2e |ave 199 columns.|
0000b2b0 22 0d 4f 38 05 cd 0d 4f 42 05 cd 0d 4f 4c 32 e7 |".O8...OB...OL2.|
0000b2c0 20 69 69 69 25 2d 31 3c 3e 30 20 8c 20 c8 99 26 | iii%-1<>0 . ..&|
0000b2d0 30 30 30 34 30 36 43 34 2c 28 70 75 6b 65 25 2f |000406C4,(puke%/|
0000b2e0 28 69 69 69 25 2d 31 29 29 2a 31 30 30 0d 4f 56 |(iii%-1))*100.OV|
0000b2f0 15 f2 67 65 74 76 61 72 73 28 70 75 6b 65 25 2c |..getvars(puke%,|
0000b300 a3 29 0d 4f 60 26 e3 20 73 75 62 63 6f 75 6e 74 |.).O`&. subcount|
0000b310 25 3d 30 20 b8 20 28 6e 75 6d 62 65 72 69 63 6f |%=0 . (numberico|
0000b320 6e 73 25 21 30 29 2d 31 0d 4f 6a 40 e7 20 3f 28 |ns%!0)-1.Oj@. ?(|
0000b330 74 72 65 65 64 65 66 25 2b 73 75 62 63 6f 75 6e |treedef%+subcoun|
0000b340 74 25 29 3d 61 73 63 74 25 20 80 20 73 75 62 63 |t%)=asct% . subc|
0000b350 6f 75 6e 74 25 3c 28 6e 75 6d 62 65 72 69 63 6f |ount%<(numberico|
0000b360 6e 73 25 21 30 29 20 8c 0d 4f 74 3f e7 20 ac 20 |ns%!0) ..Ot?. . |
0000b370 6c 69 6e 65 6f 62 6a 20 8c 20 f2 64 72 61 77 62 |lineobj . .drawb|
0000b380 61 72 28 74 6f 70 78 25 2b 28 73 75 62 63 6f 75 |ar(topx%+(subcou|
0000b390 6e 74 25 2a 32 35 29 2c 74 6f 70 79 25 2d 70 66 |nt%*25),topy%-pf|
0000b3a0 61 66 25 2a 32 32 29 0d 4f 7e 12 41 6c 69 6e 65 |af%*22).O~.Aline|
0000b3b0 63 6f 75 6e 74 25 2b 3d 31 0d 4f 88 05 cd 0d 4f |count%+=1.O....O|
0000b3c0 92 0f ed 20 73 75 62 63 6f 75 6e 74 25 0d 4f 9c |... subcount%.O.|
0000b3d0 28 e7 20 3f 28 74 72 65 65 64 65 66 25 2b 6e 75 |(. ?(treedef%+nu|
0000b3e0 6d 62 65 72 69 63 6f 6e 73 25 21 30 29 3d 61 73 |mbericons%!0)=as|
0000b3f0 63 6c 25 20 8c 0d 4f a6 49 e7 20 ac 20 6c 69 6e |cl% ..O.I. . lin|
0000b400 65 6f 62 6a 20 8c 20 f2 64 72 61 77 62 6f 74 62 |eobj . .drawbotb|
0000b410 61 72 28 74 6f 70 78 25 2b 28 28 6e 75 6d 62 65 |ar(topx%+((numbe|
0000b420 72 69 63 6f 6e 73 25 21 30 29 2a 32 35 29 2c 74 |ricons%!0)*25),t|
0000b430 6f 70 79 25 2d 70 66 61 66 25 2a 32 32 29 0d 4f |opy%-pfaf%*22).O|
0000b440 b0 3f f2 73 70 72 69 74 65 28 74 6f 70 78 25 2b |.?.sprite(topx%+|
0000b450 28 28 6e 75 6d 62 65 72 69 63 6f 6e 73 25 21 30 |((numbericons%!0|
0000b460 29 2a 32 35 29 2b 32 34 2c 28 74 6f 70 79 25 2d |)*25)+24,(topy%-|
0000b470 70 66 61 66 25 2a 32 32 29 2d 32 30 29 0d 4f ba |pfaf%*22)-20).O.|
0000b480 60 f2 74 65 78 74 6f 62 6a 65 63 74 28 31 2c 30 |`.textobject(1,0|
0000b490 2c 30 2c 30 2c 38 2c 38 2c 74 6f 70 78 25 2b 28 |,0,0,8,8,topx%+(|
0000b4a0 28 6e 75 6d 62 65 72 69 63 6f 6e 73 25 21 30 29 |(numbericons%!0)|
0000b4b0 2a 32 35 29 2b 35 35 2c 28 74 6f 70 79 25 2d 70 |*25)+55,(topy%-p|
0000b4c0 66 61 66 25 2a 32 32 29 2d 31 38 2c a4 67 4c 6e |faf%*22)-18,.gLn|
0000b4d0 28 24 66 69 6c 65 6e 61 6d 65 25 29 29 0d 4f c4 |($filename%)).O.|
0000b4e0 12 42 6c 69 6e 65 63 6f 75 6e 74 25 2b 3d 31 0d |.Blinecount%+=1.|
0000b4f0 4f ce 05 cd 0d 4f d8 28 e7 20 3f 28 74 72 65 65 |O....O.(. ?(tree|
0000b500 64 65 66 25 2b 6e 75 6d 62 65 72 69 63 6f 6e 73 |def%+numbericons|
0000b510 25 21 30 29 3d 61 73 63 74 25 20 8c 0d 4f e2 47 |%!0)=asct% ..O.G|
0000b520 e7 20 ac 20 6c 69 6e 65 6f 62 6a 20 8c 20 f2 64 |. . lineobj . .d|
0000b530 72 61 77 74 62 61 72 28 74 6f 70 78 25 2b 28 28 |rawtbar(topx%+((|
0000b540 6e 75 6d 62 65 72 69 63 6f 6e 73 25 21 30 29 2a |numbericons%!0)*|
0000b550 32 35 29 2c 74 6f 70 79 25 2d 70 66 61 66 25 2a |25),topy%-pfaf%*|
0000b560 32 32 29 0d 4f ec 3f f2 73 70 72 69 74 65 28 74 |22).O.?.sprite(t|
0000b570 6f 70 78 25 2b 28 28 6e 75 6d 62 65 72 69 63 6f |opx%+((numberico|
0000b580 6e 73 25 21 30 29 2a 32 35 29 2b 32 34 2c 28 74 |ns%!0)*25)+24,(t|
0000b590 6f 70 79 25 2d 70 66 61 66 25 2a 32 32 29 2d 32 |opy%-pfaf%*22)-2|
0000b5a0 30 29 0d 4f f6 60 f2 74 65 78 74 6f 62 6a 65 63 |0).O.`.textobjec|
0000b5b0 74 28 31 2c 30 2c 30 2c 30 2c 38 2c 38 2c 74 6f |t(1,0,0,0,8,8,to|
0000b5c0 70 78 25 2b 28 28 6e 75 6d 62 65 72 69 63 6f 6e |px%+((numbericon|
0000b5d0 73 25 21 30 29 2a 32 35 29 2b 35 35 2c 28 74 6f |s%!0)*25)+55,(to|
0000b5e0 70 79 25 2d 70 66 61 66 25 2a 32 32 29 2d 31 38 |py%-pfaf%*22)-18|
0000b5f0 2c a4 67 4c 6e 28 24 66 69 6c 65 6e 61 6d 65 25 |,.gLn($filename%|
0000b600 29 29 0d 50 00 12 42 6c 69 6e 65 63 6f 75 6e 74 |)).P..Blinecount|
0000b610 25 2b 3d 31 0d 50 0a 05 cd 0d 50 14 0c 70 66 61 |%+=1.P....P..pfa|
0000b620 66 25 2b 3d 31 0d 50 1e 0b ed 20 70 75 6b 65 25 |f%+=1.P... puke%|
0000b630 0d 50 28 05 3a 0d 50 32 0f e7 20 6c 69 6e 65 6f |.P(.:.P2.. lineo|
0000b640 62 6a 20 8c 0d 50 3c 4e f2 6f 62 6a 65 63 74 68 |bj ..P<N.objecth|
0000b650 65 61 64 65 72 28 32 2c 32 34 2b 31 36 2b 28 42 |eader(2,24+16+(B|
0000b660 6c 69 6e 65 63 6f 75 6e 74 25 2a 34 38 29 2b 28 |linecount%*48)+(|
0000b670 41 6c 69 6e 65 63 6f 75 6e 74 25 2a 32 34 29 2b |Alinecount%*24)+|
0000b680 34 2c 78 2c 79 2d 32 32 2c 78 2b 31 38 2c 79 2c |4,x,y-22,x+18,y,|
0000b690 b9 29 0d 50 46 22 f2 70 61 74 68 68 65 61 64 65 |.).PF".pathheade|
0000b6a0 72 28 66 62 6f 78 72 2c 66 62 6f 78 67 2c 66 62 |r(fboxr,fboxg,fb|
0000b6b0 6f 78 62 29 0d 50 50 0d 74 6f 70 78 25 3d 33 30 |oxb).PP.topx%=30|
0000b6c0 30 0d 50 5a 13 64 75 6d 6d 79 74 6f 70 79 25 3d |0.PZ.dummytopy%=|
0000b6d0 38 31 35 30 0d 50 64 0e 74 6f 70 79 25 3d 38 31 |8150.Pd.topy%=81|
0000b6e0 35 30 0d 50 6e 0f 74 74 74 65 6d 70 25 3d 32 30 |50.Pn.tttemp%=20|
0000b6f0 30 0d 50 78 0d 64 75 6d 6d 79 78 25 3d 30 0d 50 |0.Px.dummyx%=0.P|
0000b700 82 0b 70 66 61 66 25 3d 30 0d 50 8c 0b 64 75 66 |..pfaf%=0.P..duf|
0000b710 66 25 3d 30 0d 50 96 16 e3 20 70 75 6b 65 25 3d |f%=0.P... puke%=|
0000b720 30 20 b8 20 69 69 69 25 2d 31 0d 50 a0 2e e7 20 |0 . iii%-1.P... |
0000b730 70 75 6b 65 25 3e 30 20 80 20 28 70 75 6b 65 25 |puke%>0 . (puke%|
0000b740 20 83 20 72 6f 77 73 20 3d 20 30 29 20 80 20 63 | . rows = 0) . c|
0000b750 6f 6c 75 6d 6e 73 20 8c 0d 50 aa 14 74 6f 70 78 |olumns ..P..topx|
0000b760 25 3d 63 6f 6c 28 64 75 66 66 25 29 0d 50 b4 14 |%=col(duff%).P..|
0000b770 74 6f 70 79 25 3d 64 75 6d 6d 79 74 6f 70 79 25 |topy%=dummytopy%|
0000b780 0d 50 be 0e 72 65 63 61 6c 63 78 25 3d 30 0d 50 |.P..recalcx%=0.P|
0000b790 c8 0b 70 66 61 66 25 3d 30 0d 50 d2 0c 64 75 66 |..pfaf%=0.P..duf|
0000b7a0 66 25 2b 3d 31 0d 50 dc 05 cd 0d 50 e6 32 e7 20 |f%+=1.P....P.2. |
0000b7b0 69 69 69 25 2d 31 3c 3e 30 20 8c 20 c8 99 26 30 |iii%-1<>0 . ..&0|
0000b7c0 30 30 34 30 36 43 34 2c 28 70 75 6b 65 25 2f 28 |00406C4,(puke%/(|
0000b7d0 69 69 69 25 2d 31 29 29 2a 31 30 30 0d 50 f0 15 |iii%-1))*100.P..|
0000b7e0 f2 67 65 74 76 61 72 73 28 70 75 6b 65 25 2c a3 |.getvars(puke%,.|
0000b7f0 29 0d 50 fa 26 e3 20 73 75 62 63 6f 75 6e 74 25 |).P.&. subcount%|
0000b800 3d 30 20 b8 20 28 6e 75 6d 62 65 72 69 63 6f 6e |=0 . (numbericon|
0000b810 73 25 21 30 29 2d 31 0d 51 04 40 e7 20 3f 28 74 |s%!0)-1.Q.@. ?(t|
0000b820 72 65 65 64 65 66 25 2b 73 75 62 63 6f 75 6e 74 |reedef%+subcount|
0000b830 25 29 3d 61 73 63 74 25 20 80 20 73 75 62 63 6f |%)=asct% . subco|
0000b840 75 6e 74 25 3c 28 6e 75 6d 62 65 72 69 63 6f 6e |unt%<(numbericon|
0000b850 73 25 21 30 29 20 8c 0d 51 0e 32 f2 64 72 61 77 |s%!0) ..Q.2.draw|
0000b860 62 61 72 32 28 74 6f 70 78 25 2b 28 73 75 62 63 |bar2(topx%+(subc|
0000b870 6f 75 6e 74 25 2a 32 35 29 2c 74 6f 70 79 25 2d |ount%*25),topy%-|
0000b880 70 66 61 66 25 2a 32 32 29 0d 51 18 05 cd 0d 51 |pfaf%*22).Q....Q|
0000b890 22 0f ed 20 73 75 62 63 6f 75 6e 74 25 0d 51 2c |".. subcount%.Q,|
0000b8a0 28 e7 20 3f 28 74 72 65 65 64 65 66 25 2b 6e 75 |(. ?(treedef%+nu|
0000b8b0 6d 62 65 72 69 63 6f 6e 73 25 21 30 29 3d 61 73 |mbericons%!0)=as|
0000b8c0 63 6c 25 20 8c 0d 51 36 3c f2 64 72 61 77 62 6f |cl% ..Q6<.drawbo|
0000b8d0 74 62 61 72 32 28 74 6f 70 78 25 2b 28 28 6e 75 |tbar2(topx%+((nu|
0000b8e0 6d 62 65 72 69 63 6f 6e 73 25 21 30 29 2a 32 35 |mbericons%!0)*25|
0000b8f0 29 2c 74 6f 70 79 25 2d 70 66 61 66 25 2a 32 32 |),topy%-pfaf%*22|
0000b900 29 0d 51 40 05 cd 0d 51 4a 28 e7 20 3f 28 74 72 |).Q@...QJ(. ?(tr|
0000b910 65 65 64 65 66 25 2b 6e 75 6d 62 65 72 69 63 6f |eedef%+numberico|
0000b920 6e 73 25 21 30 29 3d 61 73 63 74 25 20 8c 0d 51 |ns%!0)=asct% ..Q|
0000b930 54 3a f2 64 72 61 77 74 62 61 72 32 28 74 6f 70 |T:.drawtbar2(top|
0000b940 78 25 2b 28 28 6e 75 6d 62 65 72 69 63 6f 6e 73 |x%+((numbericons|
0000b950 25 21 30 29 2a 32 35 29 2c 74 6f 70 79 25 2d 70 |%!0)*25),topy%-p|
0000b960 66 61 66 25 2a 32 32 29 0d 51 5e 05 cd 0d 51 68 |faf%*22).Q^...Qh|
0000b970 0c 70 66 61 66 25 2b 3d 31 0d 51 72 0b ed 20 70 |.pfaf%+=1.Qr.. p|
0000b980 75 6b 65 25 0d 51 7c 0c f2 65 6e 64 70 61 74 68 |uke%.Q|..endpath|
0000b990 0d 51 86 05 cd 0d 51 90 05 3a 0d 51 9a 14 66 69 |.Q....Q..:.Q..fi|
0000b9a0 6c 65 6c 65 6e 67 74 68 25 3d a2 23 58 25 0d 51 |lelength%=.#X%.Q|
0000b9b0 a4 0f e7 20 63 6f 6c 75 6d 6e 73 20 8c 0d 51 ae |... columns ..Q.|
0000b9c0 0b cf 23 58 25 3d 33 32 0d 51 b8 22 62 6c 6f 63 |..#X%=32.Q."bloc|
0000b9d0 6b 32 25 21 30 3d a4 74 6f 64 72 61 77 28 64 75 |k2%!0=.todraw(du|
0000b9e0 6d 6d 79 78 25 2b 32 35 30 29 0d 51 c2 1f c8 99 |mmyx%+250).Q....|
0000b9f0 20 22 4f 53 5f 47 42 50 42 22 2c 32 2c 58 25 2c | "OS_GBPB",2,X%,|
0000ba00 62 6c 6f 63 6b 32 25 2c 34 0d 51 cc 05 cd 0d 51 |block2%,4.Q....Q|
0000ba10 d6 08 d9 23 58 25 0d 51 e0 18 c8 99 20 22 48 6f |...#X%.Q.... "Ho|
0000ba20 75 72 67 6c 61 73 73 5f 53 6d 61 73 68 22 0d 51 |urglass_Smash".Q|
0000ba30 ea 1f ff 28 22 53 45 54 54 59 50 45 20 22 2b 66 |...("SETTYPE "+f|
0000ba40 69 6c 65 24 2b 22 20 26 41 46 46 22 29 0d 51 f4 |ile$+" &AFF").Q.|
0000ba50 10 62 6c 6f 63 6b 25 21 30 3d 32 35 36 0d 51 fe |.block%!0=256.Q.|
0000ba60 0f 62 6c 6f 63 6b 25 21 31 32 3d 30 0d 52 08 0f |.block%!12=0.R..|
0000ba70 62 6c 6f 63 6b 25 21 31 36 3d 33 0d 52 12 13 62 |block%!16=3.R..b|
0000ba80 6c 6f 63 6b 25 21 32 30 3d 77 69 6e 64 25 0d 52 |lock%!20=wind%.R|
0000ba90 1c 13 62 6c 6f 63 6b 25 21 32 34 3d 69 63 6f 6e |..block%!24=icon|
0000baa0 25 0d 52 26 10 62 6c 6f 63 6b 25 21 32 38 3d 78 |%.R&.block%!28=x|
0000bab0 25 0d 52 30 10 62 6c 6f 63 6b 25 21 33 32 3d 79 |%.R0.block%!32=y|
0000bac0 25 0d 52 3a 19 62 6c 6f 63 6b 25 21 33 36 3d 66 |%.R:.block%!36=f|
0000bad0 69 6c 65 6c 65 6e 67 74 68 25 0d 52 44 12 62 6c |ilelength%.RD.bl|
0000bae0 6f 63 6b 25 21 34 30 3d 26 61 66 66 0d 52 4e 19 |ock%!40=&aff.RN.|
0000baf0 24 28 62 6c 6f 63 6b 25 2b 34 34 29 3d 66 69 6c |$(block%+44)=fil|
0000bb00 65 24 2b bd 30 0d 52 58 25 c8 99 26 30 30 30 34 |e$+.0.RX%..&0004|
0000bb10 30 30 45 37 2c 31 37 2c 62 6c 6f 63 6b 25 2c 77 |00E7,17,block%,w|
0000bb20 69 6e 64 25 2c 69 63 6f 6e 25 0d 52 62 05 e1 0d |ind%,icon%.Rb...|
0000bb30 52 6c 05 3a 0d 52 76 25 dd f2 6d 61 6b 65 64 72 |Rl.:.Rv%..makedr|
0000bb40 61 77 66 69 6c 65 68 65 61 64 65 72 28 78 6c 2c |awfileheader(xl,|
0000bb50 79 6c 2c 78 68 2c 79 68 29 0d 52 80 17 24 28 62 |yl,xh,yh).R..$(b|
0000bb60 6c 6f 63 6b 32 25 2b 30 29 3d 22 44 72 61 77 22 |lock2%+0)="Draw"|
0000bb70 0d 52 8a 11 62 6c 6f 63 6b 32 25 21 34 3d 32 30 |.R..block2%!4=20|
0000bb80 31 0d 52 94 0f 62 6c 6f 63 6b 32 25 21 38 3d 30 |1.R..block2%!8=0|
0000bb90 0d 52 9e 20 24 28 62 6c 6f 63 6b 32 25 2b 31 32 |.R. $(block2%+12|
0000bba0 29 3d 22 54 72 65 65 20 20 20 20 20 20 20 20 22 |)="Tree "|
0000bbb0 0d 52 a8 1a 62 6c 6f 63 6b 32 25 21 32 34 3d a4 |.R..block2%!24=.|
0000bbc0 74 6f 64 72 61 77 28 78 6c 29 0d 52 b2 1a 62 6c |todraw(xl).R..bl|
0000bbd0 6f 63 6b 32 25 21 32 38 3d a4 74 6f 64 72 61 77 |ock2%!28=.todraw|
0000bbe0 28 79 6c 29 0d 52 bc 1a 62 6c 6f 63 6b 32 25 21 |(yl).R..block2%!|
0000bbf0 33 32 3d a4 74 6f 64 72 61 77 28 78 68 29 0d 52 |32=.todraw(xh).R|
0000bc00 c6 1a 62 6c 6f 63 6b 32 25 21 33 36 3d a4 74 6f |..block2%!36=.to|
0000bc10 64 72 61 77 28 79 68 29 0d 52 d0 20 c8 99 20 22 |draw(yh).R. .. "|
0000bc20 4f 53 5f 47 42 50 42 22 2c 32 2c 58 25 2c 62 6c |OS_GBPB",2,X%,bl|
0000bc30 6f 63 6b 32 25 2c 34 30 0d 52 da 05 e1 0d 52 e4 |ock2%,40.R....R.|
0000bc40 05 3a 0d 52 ee 2d dd f2 6f 62 6a 65 63 74 68 65 |.:.R.-..objecthe|
0000bc50 61 64 65 72 28 74 79 70 65 2c 73 69 7a 65 2c 78 |ader(type,size,x|
0000bc60 6c 2c 79 6c 2c 78 68 2c 79 68 2c 66 6c 67 29 0d |l,yl,xh,yh,flg).|
0000bc70 52 f8 12 62 6c 6f 63 6b 32 25 21 30 3d 74 79 70 |R..block2%!0=typ|
0000bc80 65 0d 53 02 12 62 6c 6f 63 6b 32 25 21 34 3d 73 |e.S..block2%!4=s|
0000bc90 69 7a 65 0d 53 0c 0b e7 20 66 6c 67 20 8c 0d 53 |ize.S... flg ..S|
0000bca0 16 19 62 6c 6f 63 6b 32 25 21 38 3d a4 74 6f 64 |..block2%!8=.tod|
0000bcb0 72 61 77 28 78 6c 29 0d 53 20 1a 62 6c 6f 63 6b |raw(xl).S .block|
0000bcc0 32 25 21 31 32 3d a4 74 6f 64 72 61 77 28 79 6c |2%!12=.todraw(yl|
0000bcd0 29 0d 53 2a 1a 62 6c 6f 63 6b 32 25 21 31 36 3d |).S*.block2%!16=|
0000bce0 a4 74 6f 64 72 61 77 28 78 68 29 0d 53 34 1a 62 |.todraw(xh).S4.b|
0000bcf0 6c 6f 63 6b 32 25 21 32 30 3d a4 74 6f 64 72 61 |lock2%!20=.todra|
0000bd00 77 28 79 68 29 0d 53 3e 20 c8 99 20 22 4f 53 5f |w(yh).S> .. "OS_|
0000bd10 47 42 50 42 22 2c 32 2c 58 25 2c 62 6c 6f 63 6b |GBPB",2,X%,block|
0000bd20 32 25 2c 32 34 0d 53 48 05 cc 0d 53 52 1f c8 99 |2%,24.SH...SR...|
0000bd30 20 22 4f 53 5f 47 42 50 42 22 2c 32 2c 58 25 2c | "OS_GBPB",2,X%,|
0000bd40 62 6c 6f 63 6b 32 25 2c 38 0d 53 5c 05 cd 0d 53 |block2%,8.S\...S|
0000bd50 66 05 e1 0d 53 70 05 3a 0d 53 7a 11 dd a4 74 6f |f...Sp.:.Sz...to|
0000bd60 64 72 61 77 28 6e 75 6d 29 0d 53 84 0c 3d 6e 75 |draw(num).S..=nu|
0000bd70 6d 2a 32 35 36 0d 53 8e 05 3a 0d 53 98 17 dd f2 |m*256.S..:.S....|
0000bd80 70 61 74 68 68 65 61 64 65 72 28 72 2c 67 2c 62 |pathheader(r,g,b|
0000bd90 29 0d 53 a2 10 62 6c 6f 63 6b 32 25 21 30 3d 2d |).S..block2%!0=-|
0000bda0 31 0d 53 ac 12 3f 28 62 6c 6f 63 6b 32 25 2b 34 |1.S..?(block2%+4|
0000bdb0 29 3d 30 0d 53 b6 12 3f 28 62 6c 6f 63 6b 32 25 |)=0.S..?(block2%|
0000bdc0 2b 35 29 3d 72 0d 53 c0 12 3f 28 62 6c 6f 63 6b |+5)=r.S..?(block|
0000bdd0 32 25 2b 36 29 3d 67 0d 53 ca 12 3f 28 62 6c 6f |2%+6)=g.S..?(blo|
0000bde0 63 6b 32 25 2b 37 29 3d 62 0d 53 d4 0f 62 6c 6f |ck2%+7)=b.S..blo|
0000bdf0 63 6b 32 25 21 38 3d 30 0d 53 de 17 62 6c 6f 63 |ck2%!8=0.S..bloc|
0000be00 6b 32 25 21 31 32 3d 25 31 31 30 31 30 30 30 0d |k2%!12=%1101000.|
0000be10 53 e8 20 c8 99 20 22 4f 53 5f 47 42 50 42 22 2c |S. .. "OS_GBPB",|
0000be20 32 2c 58 25 2c 62 6c 6f 63 6b 32 25 2c 31 36 0d |2,X%,block2%,16.|
0000be30 53 f2 05 e1 0d 53 fc 05 3a 0d 54 06 17 dd f2 64 |S....S..:.T....d|
0000be40 72 61 77 66 69 6c 65 6d 6f 76 65 28 78 2c 79 29 |rawfilemove(x,y)|
0000be50 0d 54 10 0f 62 6c 6f 63 6b 32 25 21 30 3d 32 0d |.T..block2%!0=2.|
0000be60 54 1a 18 62 6c 6f 63 6b 32 25 21 34 3d a4 74 6f |T..block2%!4=.to|
0000be70 64 72 61 77 28 78 29 0d 54 24 18 62 6c 6f 63 6b |draw(x).T$.block|
0000be80 32 25 21 38 3d a4 74 6f 64 72 61 77 28 79 29 0d |2%!8=.todraw(y).|
0000be90 54 2e 20 c8 99 20 22 4f 53 5f 47 42 50 42 22 2c |T. .. "OS_GBPB",|
0000bea0 32 2c 58 25 2c 62 6c 6f 63 6b 32 25 2c 31 32 0d |2,X%,block2%,12.|
0000beb0 54 38 05 e1 0d 54 42 05 3a 0d 54 4c 17 dd f2 64 |T8...TB.:.TL...d|
0000bec0 72 61 77 66 69 6c 65 64 72 61 77 28 78 2c 79 29 |rawfiledraw(x,y)|
0000bed0 0d 54 56 0f 62 6c 6f 63 6b 32 25 21 30 3d 38 0d |.TV.block2%!0=8.|
0000bee0 54 60 18 62 6c 6f 63 6b 32 25 21 34 3d a4 74 6f |T`.block2%!4=.to|
0000bef0 64 72 61 77 28 78 29 0d 54 6a 18 62 6c 6f 63 6b |draw(x).Tj.block|
0000bf00 32 25 21 38 3d a4 74 6f 64 72 61 77 28 79 29 0d |2%!8=.todraw(y).|
0000bf10 54 74 20 c8 99 20 22 4f 53 5f 47 42 50 42 22 2c |Tt .. "OS_GBPB",|
0000bf20 32 2c 58 25 2c 62 6c 6f 63 6b 32 25 2c 31 32 0d |2,X%,block2%,12.|
0000bf30 54 7e 05 e1 0d 54 88 05 3a 0d 54 92 0d dd f2 65 |T~...T..:.T....e|
0000bf40 6e 64 70 61 74 68 0d 54 9c 0f 62 6c 6f 63 6b 32 |ndpath.T..block2|
0000bf50 25 21 30 3d 30 0d 54 a6 1f c8 99 20 22 4f 53 5f |%!0=0.T.... "OS_|
0000bf60 47 42 50 42 22 2c 32 2c 58 25 2c 62 6c 6f 63 6b |GBPB",2,X%,block|
0000bf70 32 25 2c 34 0d 54 b0 05 e1 0d 54 ba 05 3a 0d 54 |2%,4.T....T..:.T|
0000bf80 c4 0c dd f2 6f 62 6a 65 63 74 0d 54 ce 18 62 6c |....object.T..bl|
0000bf90 6f 63 6b 32 25 21 30 3d 28 30 2b 31 29 2a 26 31 |ock2%!0=(0+1)*&1|
0000bfa0 30 30 0d 54 d8 0f 62 6c 6f 63 6b 32 25 21 34 3d |00.T..block2%!4=|
0000bfb0 30 0d 54 e2 14 7c 28 62 6c 6f 63 6b 32 25 2b 38 |0.T..|(block2%+8|
0000bfc0 29 3d 31 2e 30 0d 54 ec 10 62 6c 6f 63 6b 32 25 |)=1.0.T..block2%|
0000bfd0 21 31 36 3d 32 0d 54 f6 10 62 6c 6f 63 6b 32 25 |!16=2.T..block2%|
0000bfe0 21 32 30 3d 30 0d 55 00 10 62 6c 6f 63 6b 32 25 |!20=0.U..block2%|
0000bff0 21 32 34 3d 30 0d 55 0a 10 62 6c 6f 63 6b 32 25 |!24=0.U..block2%|
0000c000 21 32 38 3d 30 0d 55 14 10 62 6c 6f 63 6b 32 25 |!28=0.U..block2%|
0000c010 21 33 32 3d 30 0d 55 1e 10 62 6c 6f 63 6b 32 25 |!32=0.U..block2%|
0000c020 21 33 36 3d 31 0d 55 28 10 62 6c 6f 63 6b 32 25 |!36=1.U(.block2%|
0000c030 21 34 30 3d 31 0d 55 32 10 62 6c 6f 63 6b 32 25 |!40=1.U2.block2%|
0000c040 21 34 34 3d 31 0d 55 3c 10 62 6c 6f 63 6b 32 25 |!44=1.U<.block2%|
0000c050 21 34 38 3d 30 0d 55 46 10 62 6c 6f 63 6b 32 25 |!48=0.UF.block2%|
0000c060 21 35 32 3d 31 0d 55 50 10 62 6c 6f 63 6b 32 25 |!52=1.UP.block2%|
0000c070 21 35 36 3d 30 0d 55 5a 13 62 6c 6f 63 6b 32 25 |!56=0.UZ.block2%|
0000c080 21 36 30 3d 34 30 39 36 0d 55 64 20 c8 99 20 22 |!60=4096.Ud .. "|
0000c090 4f 53 5f 47 42 50 42 22 2c 32 2c 58 25 2c 62 6c |OS_GBPB",2,X%,bl|
0000c0a0 6f 63 6b 32 25 2c 36 34 0d 55 6e 05 e1 0d 55 78 |ock2%,64.Un...Ux|
0000c0b0 05 3a 0d 55 82 13 dd f2 64 72 61 77 74 62 61 72 |.:.U....drawtbar|
0000c0c0 28 78 2c 79 29 0d 55 8c 32 f2 6f 62 6a 65 63 74 |(x,y).U.2.object|
0000c0d0 68 65 61 64 65 72 28 32 2c 32 34 2b 31 36 2b 32 |header(2,24+16+2|
0000c0e0 34 2b 32 34 2b 34 2c 78 2c 79 2d 32 32 2c 78 2b |4+24+4,x,y-22,x+|
0000c0f0 31 38 2c 79 2c b9 29 0d 55 96 22 f2 70 61 74 68 |18,y,.).U.".path|
0000c100 68 65 61 64 65 72 28 66 62 6f 78 72 2c 66 62 6f |header(fboxr,fbo|
0000c110 78 67 2c 66 62 6f 78 62 29 0d 55 a0 16 f2 64 72 |xg,fboxb).U...dr|
0000c120 61 77 66 69 6c 65 6d 6f 76 65 28 78 2c 79 29 0d |awfilemove(x,y).|
0000c130 55 aa 19 f2 64 72 61 77 66 69 6c 65 64 72 61 77 |U...drawfiledraw|
0000c140 28 78 2c 79 2d 32 32 29 0d 55 b4 19 f2 64 72 61 |(x,y-22).U...dra|
0000c150 77 66 69 6c 65 6d 6f 76 65 28 78 2c 79 2d 31 31 |wfilemove(x,y-11|
0000c160 29 0d 55 be 1c f2 64 72 61 77 66 69 6c 65 64 72 |).U...drawfiledr|
0000c170 61 77 28 78 2b 31 38 2c 79 2d 31 31 29 0d 55 c8 |aw(x+18,y-11).U.|
0000c180 0c f2 65 6e 64 70 61 74 68 0d 55 d2 05 e1 0d 55 |..endpath.U....U|
0000c190 dc 05 3a 0d 55 e6 15 dd f2 64 72 61 77 62 6f 74 |..:.U....drawbot|
0000c1a0 62 61 72 28 78 2c 79 29 0d 55 f0 32 f2 6f 62 6a |bar(x,y).U.2.obj|
0000c1b0 65 63 74 68 65 61 64 65 72 28 32 2c 32 34 2b 31 |ectheader(2,24+1|
0000c1c0 36 2b 32 34 2b 32 34 2b 34 2c 78 2c 79 2d 31 31 |6+24+24+4,x,y-11|
0000c1d0 2c 78 2b 31 38 2c 79 2c b9 29 0d 55 fa 22 f2 70 |,x+18,y,.).U.".p|
0000c1e0 61 74 68 68 65 61 64 65 72 28 66 62 6f 78 72 2c |athheader(fboxr,|
0000c1f0 66 62 6f 78 67 2c 66 62 6f 78 62 29 0d 56 04 16 |fboxg,fboxb).V..|
0000c200 f2 64 72 61 77 66 69 6c 65 6d 6f 76 65 28 78 2c |.drawfilemove(x,|
0000c210 79 29 0d 56 0e 19 f2 64 72 61 77 66 69 6c 65 64 |y).V...drawfiled|
0000c220 72 61 77 28 78 2c 79 2d 31 31 29 0d 56 18 19 f2 |raw(x,y-11).V...|
0000c230 64 72 61 77 66 69 6c 65 6d 6f 76 65 28 78 2c 79 |drawfilemove(x,y|
0000c240 2d 31 31 29 0d 56 22 1c f2 64 72 61 77 66 69 6c |-11).V"..drawfil|
0000c250 65 64 72 61 77 28 78 2b 31 38 2c 79 2d 31 31 29 |edraw(x+18,y-11)|
0000c260 0d 56 2c 0c f2 65 6e 64 70 61 74 68 0d 56 36 05 |.V,..endpath.V6.|
0000c270 e1 0d 56 40 05 3a 0d 56 4a 12 dd f2 64 72 61 77 |..V@.:.VJ...draw|
0000c280 62 61 72 28 78 2c 79 29 0d 56 54 2f f2 6f 62 6a |bar(x,y).VT/.obj|
0000c290 65 63 74 68 65 61 64 65 72 28 32 2c 32 34 2b 31 |ectheader(2,24+1|
0000c2a0 36 2b 32 34 2b 34 2c 78 2c 79 2d 32 32 2c 78 2b |6+24+4,x,y-22,x+|
0000c2b0 31 38 2c 79 2c b9 29 0d 56 5e 22 f2 70 61 74 68 |18,y,.).V^".path|
0000c2c0 68 65 61 64 65 72 28 66 62 6f 78 72 2c 66 62 6f |header(fboxr,fbo|
0000c2d0 78 67 2c 66 62 6f 78 62 29 0d 56 68 16 f2 64 72 |xg,fboxb).Vh..dr|
0000c2e0 61 77 66 69 6c 65 6d 6f 76 65 28 78 2c 79 29 0d |awfilemove(x,y).|
0000c2f0 56 72 19 f2 64 72 61 77 66 69 6c 65 64 72 61 77 |Vr..drawfiledraw|
0000c300 28 78 2c 79 2d 32 32 29 0d 56 7c 0c f2 65 6e 64 |(x,y-22).V|..end|
0000c310 70 61 74 68 0d 56 86 05 e1 0d 56 90 05 3a 0d 56 |path.V....V..:.V|
0000c320 9a 1d dd f2 66 6f 6e 74 74 61 62 6c 65 28 6e 75 |....fonttable(nu|
0000c330 6d 62 65 72 2c 66 6f 6e 74 24 29 0d 56 a4 1c e3 |mber,font$).V...|
0000c340 20 62 6c 61 6e 6b 25 3d 30 20 b8 20 32 30 2b a9 | blank%=0 . 20+.|
0000c350 28 66 6f 6e 74 24 29 0d 56 ae 17 3f 28 62 6c 6f |(font$).V..?(blo|
0000c360 63 6b 32 25 2b 62 6c 61 6e 6b 25 29 3d 30 0d 56 |ck2%+blank%)=0.V|
0000c370 b8 0b ed 62 6c 61 6e 6b 25 0d 56 c2 17 3f 28 62 |...blank%.V..?(b|
0000c380 6c 6f 63 6b 32 25 2b 30 29 3d 6e 75 6d 62 65 72 |lock2%+0)=number|
0000c390 0d 56 cc 19 24 28 62 6c 6f 63 6b 32 25 2b 31 29 |.V..$(block2%+1)|
0000c3a0 3d 66 6f 6e 74 24 2b bd 30 0d 56 d6 33 c8 99 20 |=font$+.0.V.3.. |
0000c3b0 22 4f 53 5f 47 42 50 42 22 2c 32 2c 58 25 2c 62 |"OS_GBPB",2,X%,b|
0000c3c0 6c 6f 63 6b 32 25 2c a4 66 6f 6e 74 74 61 62 6c |lock2%,.fonttabl|
0000c3d0 65 73 69 7a 65 28 66 6f 6e 74 24 29 0d 56 e0 05 |esize(font$).V..|
0000c3e0 e1 0d 56 ea 05 3a 0d 56 f4 18 dd a4 66 6f 6e 74 |..V..:.V....font|
0000c3f0 74 61 62 6c 65 73 69 7a 65 28 46 4f 24 29 0d 56 |tablesize(FO$).V|
0000c400 fe 07 6c 3d 30 0d 57 08 0e 46 4f 24 3d 46 4f 24 |..l=0.W..FO$=FO$|
0000c410 2b bd 30 0d 57 12 0d 6c 2b 3d a9 28 46 4f 24 29 |+.0.W..l+=.(FO$)|
0000c420 0d 57 1c 0c 63 73 3d 6c 20 83 20 34 0d 57 26 14 |.W..cs=l . 4.W&.|
0000c430 e7 20 63 73 3e 30 20 8c 20 63 73 3d 34 2d 63 73 |. cs>0 . cs=4-cs|
0000c440 0d 57 30 0e 63 73 2b 3d a9 28 46 4f 24 29 0d 57 |.W0.cs+=.(FO$).W|
0000c450 3a 0a 3d 63 73 2b 31 32 0d 57 44 05 3a 0d 57 4e |:.=cs+12.WD.:.WN|
0000c460 2d dd f2 74 65 78 74 6f 62 6a 65 63 74 28 6e 75 |-..textobject(nu|
0000c470 6d 62 65 72 2c 72 2c 67 2c 62 2c 70 78 2c 70 79 |mber,r,g,b,px,py|
0000c480 2c 78 2c 79 2c 73 74 72 24 29 0d 57 58 0f 4d 58 |,x,y,str$).WX.MX|
0000c490 50 3d 70 78 2a 31 30 30 30 0d 57 62 0f 4d 59 50 |P=px*1000.Wb.MYP|
0000c4a0 3d 70 79 2a 31 30 30 30 0d 57 6c 23 c8 99 20 26 |=py*1000.Wl#.. &|
0000c4b0 34 30 30 38 38 2c 2c 4d 58 50 2c 4d 59 50 20 b8 |40088,,MXP,MYP .|
0000c4c0 20 2c 4d 4d 58 50 2c 4d 4d 59 50 0d 57 76 19 4d | ,MMXP,MMYP.Wv.M|
0000c4d0 4d 58 50 3d 4d 4d 58 50 2a 28 a9 28 73 74 72 24 |MXP=MMXP*(.(str$|
0000c4e0 29 2f 32 29 0d 57 80 08 73 78 3d 30 0d 57 8a 13 |)/2).W..sx=0.W..|
0000c4f0 e3 20 62 3d 30 20 b8 20 a9 28 73 74 72 24 29 0d |. b=0 . .(str$).|
0000c500 57 94 3b f2 6f 62 6a 65 63 74 68 65 61 64 65 72 |W.;.objectheader|
0000c510 28 31 2c 32 34 2b a4 66 6f 6e 74 73 69 7a 65 28 |(1,24+.fontsize(|
0000c520 73 74 72 24 29 2c 78 2c 79 2c 78 2b 4d 4d 58 50 |str$),x,y,x+MMXP|
0000c530 2c 79 2b 4d 4d 59 50 2c b9 29 0d 57 9e 1d e7 20 |,y+MMYP,.).W... |
0000c540 78 3e 72 65 63 61 6c 63 78 25 20 8c 20 72 65 63 |x>recalcx% . rec|
0000c550 61 6c 63 78 25 3d 78 0d 57 a8 25 e7 20 78 2b 4d |alcx%=x.W.%. x+M|
0000c560 4d 58 50 3e 64 75 6d 6d 79 78 25 20 8c 20 64 75 |MXP>dummyx% . du|
0000c570 6d 6d 79 78 25 3d 78 2b 4d 4d 58 50 0d 57 b2 1b |mmyx%=x+MMXP.W..|
0000c580 e3 20 62 6c 61 6e 6b 25 3d 30 20 b8 20 34 30 2b |. blank%=0 . 40+|
0000c590 a9 28 73 74 72 24 29 0d 57 bc 17 3f 28 62 6c 6f |.(str$).W..?(blo|
0000c5a0 63 6b 32 25 2b 62 6c 61 6e 6b 25 29 3d 30 0d 57 |ck2%+blank%)=0.W|
0000c5b0 c6 0b ed 62 6c 61 6e 6b 25 0d 57 d0 12 3f 28 62 |...blank%.W..?(b|
0000c5c0 6c 6f 63 6b 32 25 2b 30 29 3d 30 0d 57 da 12 3f |lock2%+0)=0.W..?|
0000c5d0 28 62 6c 6f 63 6b 32 25 2b 31 29 3d 72 0d 57 e4 |(block2%+1)=r.W.|
0000c5e0 12 3f 28 62 6c 6f 63 6b 32 25 2b 32 29 3d 67 0d |.?(block2%+2)=g.|
0000c5f0 57 ee 12 3f 28 62 6c 6f 63 6b 32 25 2b 33 29 3d |W..?(block2%+3)=|
0000c600 62 0d 57 f8 12 3f 28 62 6c 6f 63 6b 32 25 2b 34 |b.W..?(block2%+4|
0000c610 29 3d 30 0d 58 02 14 3f 28 62 6c 6f 63 6b 32 25 |)=0.X..?(block2%|
0000c620 2b 35 29 3d 32 35 35 0d 58 0c 14 3f 28 62 6c 6f |+5)=255.X..?(blo|
0000c630 63 6b 32 25 2b 36 29 3d 32 35 35 0d 58 16 14 3f |ck2%+6)=255.X..?|
0000c640 28 62 6c 6f 63 6b 32 25 2b 37 29 3d 32 35 35 0d |(block2%+7)=255.|
0000c650 58 20 14 62 6c 6f 63 6b 32 25 21 38 3d 6e 75 6d |X .block2%!8=num|
0000c660 62 65 72 0d 58 2a 15 62 6c 6f 63 6b 32 25 21 31 |ber.X*.block2%!1|
0000c670 32 3d 70 78 2a 36 34 30 0d 58 34 15 62 6c 6f 63 |2=px*640.X4.bloc|
0000c680 6b 32 25 21 31 36 3d 70 79 2a 36 34 30 0d 58 3e |k2%!16=py*640.X>|
0000c690 19 62 6c 6f 63 6b 32 25 21 32 30 3d a4 74 6f 64 |.block2%!20=.tod|
0000c6a0 72 61 77 28 78 29 0d 58 48 19 62 6c 6f 63 6b 32 |raw(x).XH.block2|
0000c6b0 25 21 32 34 3d a4 74 6f 64 72 61 77 28 79 29 0d |%!24=.todraw(y).|
0000c6c0 58 52 19 24 28 62 6c 6f 63 6b 32 25 2b 32 38 29 |XR.$(block2%+28)|
0000c6d0 3d 73 74 72 24 2b bd 30 0d 58 5c 2d c8 99 20 22 |=str$+.0.X\-.. "|
0000c6e0 4f 53 5f 47 42 50 42 22 2c 32 2c 58 25 2c 62 6c |OS_GBPB",2,X%,bl|
0000c6f0 6f 63 6b 32 25 2c a4 66 6f 6e 74 73 69 7a 65 28 |ock2%,.fontsize(|
0000c700 73 74 72 24 29 0d 58 66 05 e1 0d 58 70 05 3a 0d |str$).Xf...Xp.:.|
0000c710 58 7a 13 dd a4 66 6f 6e 74 73 69 7a 65 28 46 4f |Xz...fontsize(FO|
0000c720 24 29 0d 58 84 07 6c 3d 30 0d 58 8e 0e 46 4f 24 |$).X..l=0.X..FO$|
0000c730 3d 46 4f 24 2b bd 30 0d 58 98 0d 6c 2b 3d a9 28 |=FO$+.0.X..l+=.(|
0000c740 46 4f 24 29 0d 58 a2 0c 63 73 3d 6c 20 83 20 34 |FO$).X..cs=l . 4|
0000c750 0d 58 ac 14 e7 20 63 73 3e 30 20 8c 20 63 73 3d |.X... cs>0 . cs=|
0000c760 34 2d 63 73 0d 58 b6 0e 63 73 2b 3d a9 28 46 4f |4-cs.X..cs+=.(FO|
0000c770 24 29 0d 58 c0 0a 3d 63 73 2b 32 38 0d 58 ca 05 |$).X..=cs+28.X..|
0000c780 3a 0d 58 d4 17 dd f2 73 70 72 69 74 65 28 58 58 |:.X....sprite(XX|
0000c790 4d 59 2c 59 59 4d 59 29 0d 58 de 1b 66 63 61 63 |MY,YYMY).X..fcac|
0000c7a0 6b 24 3d a4 67 4c 6e 28 24 66 69 6c 65 6e 61 6d |k$=.gLn($filenam|
0000c7b0 65 25 29 0d 58 e8 21 e7 20 74 79 70 65 25 21 30 |e%).X.!. type%!0|
0000c7c0 3e 26 46 46 46 20 84 20 74 79 70 65 25 21 30 3c |>&FFF . type%!0<|
0000c7d0 26 30 20 8c 0d 58 f2 18 20 20 e7 20 c0 66 63 61 |&0 ..X.. . .fca|
0000c7e0 63 6b 24 2c 31 29 3d 22 21 22 20 8c 0d 58 fc 15 |ck$,1)="!" ..X..|
0000c7f0 20 20 20 20 76 61 6c 69 64 24 3d 66 63 61 63 6b | valid$=fcack|
0000c800 24 0d 59 06 36 20 20 e7 20 ac 20 a4 73 70 72 69 |$.Y.6 . . .spri|
0000c810 74 65 65 78 69 73 74 73 28 76 61 6c 69 64 24 29 |teexists(valid$)|
0000c820 20 8c 20 76 61 6c 69 64 24 3d 22 61 70 70 6c 69 | . valid$="appli|
0000c830 63 61 74 69 6f 6e 22 0d 59 10 07 20 20 cc 0d 59 |cation".Y.. ..Y|
0000c840 1a 1a 20 20 20 20 76 61 6c 69 64 24 3d 22 64 69 |.. valid$="di|
0000c850 72 65 63 74 6f 72 79 22 0d 59 24 07 20 20 cd 0d |rectory".Y$. ..|
0000c860 59 2e 05 cc 0d 59 38 22 20 20 76 61 6c 69 64 24 |Y....Y8" valid$|
0000c870 3d 22 66 69 6c 65 5f 22 2b a4 70 61 64 28 74 79 |="file_"+.pad(ty|
0000c880 70 65 25 21 30 29 0d 59 42 33 20 20 e7 20 ac 20 |pe%!0).YB3 . . |
0000c890 a4 73 70 72 69 74 65 65 78 69 73 74 73 28 76 61 |.spriteexists(va|
0000c8a0 6c 69 64 24 29 20 8c 20 76 61 6c 69 64 24 3d 22 |lid$) . valid$="|
0000c8b0 66 69 6c 65 5f 78 78 78 22 0d 59 4c 05 cd 0d 59 |file_xxx".YL...Y|
0000c8c0 56 05 3a 0d 59 60 0b f2 73 75 62 73 70 72 0d 59 |V.:.Y`..subspr.Y|
0000c8d0 6a 05 e1 0d 59 74 05 3a 0d 59 7e 0c dd f2 73 75 |j...Yt.:.Y~...su|
0000c8e0 62 73 70 72 0d 59 88 07 ea 20 85 0d 59 92 1e ee |bspr.Y... ..Y...|
0000c8f0 20 85 20 ea 20 e7 20 9f 3d 31 33 34 20 8c 20 f2 | . . . .=134 . .|
0000c900 73 75 62 73 70 72 32 3a e1 0d 59 9c 17 c8 99 20 |subspr2:..Y.... |
0000c910 26 34 30 30 45 41 20 b8 20 6e 65 77 61 72 65 61 |&400EA . newarea|
0000c920 0d 59 a6 30 c8 99 20 26 32 45 2c 32 35 36 2b 32 |.Y.0.. &2E,256+2|
0000c930 34 2c 6e 65 77 61 72 65 61 2c 76 61 6c 69 64 24 |4,newarea,valid$|
0000c940 20 b8 20 2c 2c 73 70 72 70 6f 69 6e 74 65 72 25 | . ,,sprpointer%|
0000c950 0d 59 b0 05 3a 0d 59 ba 1f 73 70 72 69 74 65 6c |.Y..:.Y..spritel|
0000c960 65 6e 67 74 68 25 3d 73 70 72 70 6f 69 6e 74 65 |ength%=sprpointe|
0000c970 72 25 21 30 0d 59 c4 1f 6d 76 61 6c 3d 28 32 34 |r%!0.Y..mval=(24|
0000c980 2b 73 70 72 69 74 65 6c 65 6e 67 74 68 25 29 20 |+spritelength%) |
0000c990 83 20 34 0d 59 ce 1a e7 20 6d 76 61 6c 3e 30 20 |. 4.Y... mval>0 |
0000c9a0 8c 20 6d 76 61 6c 3d 34 2d 6d 76 61 6c 0d 59 d8 |. mval=4-mval.Y.|
0000c9b0 46 f2 6f 62 6a 65 63 74 68 65 61 64 65 72 28 35 |F.objectheader(5|
0000c9c0 2c 32 34 2b 73 70 72 69 74 65 6c 65 6e 67 74 68 |,24+spritelength|
0000c9d0 25 2b 6d 76 61 6c 2c 58 58 4d 59 2c 59 59 4d 59 |%+mval,XXMY,YYMY|
0000c9e0 2c 58 58 4d 59 2b 32 30 2c 59 59 4d 59 2b 32 30 |,XXMY+20,YYMY+20|
0000c9f0 2c b9 29 0d 59 e2 2f c8 99 20 22 4f 53 5f 47 42 |,.).Y./.. "OS_GB|
0000ca00 50 42 22 2c 32 2c 58 25 2c 73 70 72 70 6f 69 6e |PB",2,X%,sprpoin|
0000ca10 74 65 72 25 2c 73 70 72 69 74 65 6c 65 6e 67 74 |ter%,spritelengt|
0000ca20 68 25 0d 59 ec 0f 62 6c 6f 63 6b 32 25 21 30 3d |h%.Y..block2%!0=|
0000ca30 30 0d 59 f6 22 c8 99 20 22 4f 53 5f 47 42 50 42 |0.Y.".. "OS_GBPB|
0000ca40 22 2c 32 2c 58 25 2c 62 6c 6f 63 6b 32 25 2c 6d |",2,X%,block2%,m|
0000ca50 76 61 6c 0d 5a 00 05 e1 0d 5a 0a 05 3a 0d 5a 14 |val.Z....Z..:.Z.|
0000ca60 0d dd f2 73 75 62 73 70 72 32 0d 5a 1e 07 ea 20 |...subspr2.Z... |
0000ca70 85 0d 5a 28 15 ee 20 85 20 ea 20 85 20 30 2c f6 |..Z(.. . . . 0,.|
0000ca80 24 2b c3 28 9e 29 0d 5a 32 18 c8 99 20 26 34 30 |$+.(.).Z2... &40|
0000ca90 30 65 61 20 b8 20 2c 6e 65 77 61 72 65 61 0d 5a |0ea . ,newarea.Z|
0000caa0 3c 30 c8 99 20 26 32 65 2c 32 35 36 2b 32 34 2c |<0.. &2e,256+24,|
0000cab0 6e 65 77 61 72 65 61 2c 76 61 6c 69 64 24 20 b8 |newarea,valid$ .|
0000cac0 20 2c 2c 73 70 72 70 6f 69 6e 74 65 72 25 0d 5a | ,,sprpointer%.Z|
0000cad0 46 05 3a 0d 5a 50 1f 73 70 72 69 74 65 6c 65 6e |F.:.ZP.spritelen|
0000cae0 67 74 68 25 3d 73 70 72 70 6f 69 6e 74 65 72 25 |gth%=sprpointer%|
0000caf0 21 30 0d 5a 5a 1f 6d 76 61 6c 3d 28 32 34 2b 73 |!0.ZZ.mval=(24+s|
0000cb00 70 72 69 74 65 6c 65 6e 67 74 68 25 29 20 83 20 |pritelength%) . |
0000cb10 34 0d 5a 64 1a e7 20 6d 76 61 6c 3e 30 20 8c 20 |4.Zd.. mval>0 . |
0000cb20 6d 76 61 6c 3d 34 2d 6d 76 61 6c 0d 5a 6e 46 f2 |mval=4-mval.ZnF.|
0000cb30 6f 62 6a 65 63 74 68 65 61 64 65 72 28 35 2c 32 |objectheader(5,2|
0000cb40 34 2b 73 70 72 69 74 65 6c 65 6e 67 74 68 25 2b |4+spritelength%+|
0000cb50 6d 76 61 6c 2c 58 58 4d 59 2c 59 59 4d 59 2c 58 |mval,XXMY,YYMY,X|
0000cb60 58 4d 59 2b 32 30 2c 59 59 4d 59 2b 32 30 2c b9 |XMY+20,YYMY+20,.|
0000cb70 29 0d 5a 78 2f c8 99 20 22 4f 53 5f 47 42 50 42 |).Zx/.. "OS_GBPB|
0000cb80 22 2c 32 2c 58 25 2c 73 70 72 70 6f 69 6e 74 65 |",2,X%,sprpointe|
0000cb90 72 25 2c 73 70 72 69 74 65 6c 65 6e 67 74 68 25 |r%,spritelength%|
0000cba0 0d 5a 82 0f 62 6c 6f 63 6b 32 25 21 30 3d 30 0d |.Z..block2%!0=0.|
0000cbb0 5a 8c 22 c8 99 20 22 4f 53 5f 47 42 50 42 22 2c |Z.".. "OS_GBPB",|
0000cbc0 32 2c 58 25 2c 62 6c 6f 63 6b 32 25 2c 6d 76 61 |2,X%,block2%,mva|
0000cbd0 6c 0d 5a 96 05 e1 0d 5a a0 05 3a 0d 5a aa 25 dd |l.Z....Z..:.Z.%.|
0000cbe0 f2 49 63 6f 6e 43 61 72 65 74 28 77 69 6e 64 6f |.IconCaret(windo|
0000cbf0 77 25 2c 69 63 6f 6e 25 2c 63 68 61 72 73 25 29 |w%,icon%,chars%)|
0000cc00 0d 5a b4 38 c8 99 20 22 57 69 6d 70 5f 53 65 74 |.Z.8.. "Wimp_Set|
0000cc10 43 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c 77 |CaretPosition",w|
0000cc20 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 2c 2c 2c 2d |indow%,icon%,,,-|
0000cc30 31 2c 63 68 61 72 73 25 0d 5a be 05 e1 0d 5a c8 |1,chars%.Z....Z.|
0000cc40 05 3a 0d 5a d2 14 dd f2 64 72 61 77 74 62 61 72 |.:.Z....drawtbar|
0000cc50 32 28 78 2c 79 29 0d 5a dc 16 f2 64 72 61 77 66 |2(x,y).Z...drawf|
0000cc60 69 6c 65 6d 6f 76 65 28 78 2c 79 29 0d 5a e6 19 |ilemove(x,y).Z..|
0000cc70 f2 64 72 61 77 66 69 6c 65 64 72 61 77 28 78 2c |.drawfiledraw(x,|
0000cc80 79 2d 32 32 29 0d 5a f0 19 f2 64 72 61 77 66 69 |y-22).Z...drawfi|
0000cc90 6c 65 6d 6f 76 65 28 78 2c 79 2d 31 31 29 0d 5a |lemove(x,y-11).Z|
0000cca0 fa 1c f2 64 72 61 77 66 69 6c 65 64 72 61 77 28 |...drawfiledraw(|
0000ccb0 78 2b 31 38 2c 79 2d 31 31 29 0d 5b 04 05 e1 0d |x+18,y-11).[....|
0000ccc0 5b 0e 05 3a 0d 5b 18 16 dd f2 64 72 61 77 62 6f |[..:.[....drawbo|
0000ccd0 74 62 61 72 32 28 78 2c 79 29 0d 5b 22 16 f2 64 |tbar2(x,y).["..d|
0000cce0 72 61 77 66 69 6c 65 6d 6f 76 65 28 78 2c 79 29 |rawfilemove(x,y)|
0000ccf0 0d 5b 2c 19 f2 64 72 61 77 66 69 6c 65 64 72 61 |.[,..drawfiledra|
0000cd00 77 28 78 2c 79 2d 31 31 29 0d 5b 36 19 f2 64 72 |w(x,y-11).[6..dr|
0000cd10 61 77 66 69 6c 65 6d 6f 76 65 28 78 2c 79 2d 31 |awfilemove(x,y-1|
0000cd20 31 29 0d 5b 40 1c f2 64 72 61 77 66 69 6c 65 64 |1).[@..drawfiled|
0000cd30 72 61 77 28 78 2b 31 38 2c 79 2d 31 31 29 0d 5b |raw(x+18,y-11).[|
0000cd40 4a 05 e1 0d 5b 54 05 3a 0d 5b 5e 13 dd f2 64 72 |J...[T.:.[^...dr|
0000cd50 61 77 62 61 72 32 28 78 2c 79 29 0d 5b 68 16 f2 |awbar2(x,y).[h..|
0000cd60 64 72 61 77 66 69 6c 65 6d 6f 76 65 28 78 2c 79 |drawfilemove(x,y|
0000cd70 29 0d 5b 72 19 f2 64 72 61 77 66 69 6c 65 64 72 |).[r..drawfiledr|
0000cd80 61 77 28 78 2c 79 2d 32 32 29 0d 5b 7c 05 e1 0d |aw(x,y-22).[|...|
0000cd90 5b 86 05 3a 0d 5b 90 04 0d 5b 9a 18 dd a4 61 74 |[..:.[...[....at|
0000cda0 74 72 69 62 75 74 65 73 28 61 74 74 72 69 62 29 |tributes(attrib)|
0000cdb0 0d 5b a4 11 61 74 74 72 69 62 75 74 65 24 3d 22 |.[..attribute$="|
0000cdc0 22 0d 5b ae 26 e7 20 61 74 74 72 69 62 20 80 20 |".[.&. attrib . |
0000cdd0 25 31 30 30 30 20 8c 20 61 74 74 72 69 62 75 74 |%1000 . attribut|
0000cde0 65 24 2b 3d 22 4c 22 0d 5b b8 24 e7 20 61 74 74 |e$+="L".[.$. att|
0000cdf0 72 69 62 20 80 20 25 31 30 20 8c 20 61 74 74 72 |rib . %10 . attr|
0000ce00 69 62 75 74 65 24 2b 3d 22 57 22 0d 5b c2 23 e7 |ibute$+="W".[.#.|
0000ce10 20 61 74 74 72 69 62 20 80 20 25 31 20 8c 20 61 | attrib . %1 . a|
0000ce20 74 74 72 69 62 75 74 65 24 2b 3d 22 52 22 0d 5b |ttribute$+="R".[|
0000ce30 cc 13 61 74 74 72 69 62 75 74 65 24 2b 3d 22 2f |..attribute$+="/|
0000ce40 22 0d 5b d6 2a e7 20 61 74 74 72 69 62 20 80 20 |".[.*. attrib . |
0000ce50 25 31 30 30 30 30 30 30 30 20 8c 20 61 74 74 72 |%10000000 . attr|
0000ce60 69 62 75 74 65 24 2b 3d 22 6c 22 0d 5b e0 28 e7 |ibute$+="l".[.(.|
0000ce70 20 61 74 74 72 69 62 20 80 20 25 31 30 30 30 30 | attrib . %10000|
0000ce80 30 20 8c 20 61 74 74 72 69 62 75 74 65 24 2b 3d |0 . attribute$+=|
0000ce90 22 77 22 0d 5b ea 27 e7 20 61 74 74 72 69 62 20 |"w".[.'. attrib |
0000cea0 80 20 25 31 30 30 30 30 20 8c 20 61 74 74 72 69 |. %10000 . attri|
0000ceb0 62 75 74 65 24 2b 3d 22 72 22 0d 5b f4 0f 3d 61 |bute$+="r".[..=a|
0000cec0 74 74 72 69 62 75 74 65 24 0d 5b fe 05 3a 0d 5c |ttribute$.[..:.\|
0000ced0 08 22 dd a4 6d 79 63 6f 6e 76 65 72 74 28 6c 61 |."..myconvert(la|
0000cee0 64 64 72 65 73 73 2c 65 61 64 64 72 65 73 73 29 |ddress,eaddress)|
0000cef0 0d 5c 12 5a e7 20 28 6c 61 64 64 72 65 73 73 20 |.\.Z. (laddress |
0000cf00 80 20 25 31 31 31 31 31 31 31 31 31 31 31 31 30 |. %1111111111110|
0000cf10 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 |0000000000000000|
0000cf20 30 30 30 29 20 3d 20 25 31 31 31 31 31 31 31 31 |000) = %11111111|
0000cf30 31 31 31 31 30 30 30 30 30 30 30 30 30 30 30 30 |1111000000000000|
0000cf40 30 30 30 30 30 30 30 30 20 8c 0d 5c 1c 3a 74 65 |00000000 ..\.:te|
0000cf50 6d 70 6c 3d 6c 61 64 64 72 65 73 73 20 80 20 28 |mpl=laddress . (|
0000cf60 ac 20 25 31 31 31 31 31 31 31 31 31 31 31 31 31 |. %1111111111111|
0000cf70 31 31 31 31 31 31 31 31 31 31 31 30 30 30 30 30 |1111111111100000|
0000cf80 30 30 30 29 0d 5c 26 16 3f 28 62 6c 6f 63 6b 32 |000).\&.?(block2|
0000cf90 25 2b 34 29 3d 74 65 6d 70 6c 0d 5c 30 3a 74 65 |%+4)=templ.\0:te|
0000cfa0 6d 70 65 3d 65 61 64 64 72 65 73 73 20 80 20 28 |mpe=eaddress . (|
0000cfb0 ac 20 25 30 30 30 30 30 30 30 30 31 31 31 31 31 |. %0000000011111|
0000cfc0 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 |1111111111111111|
0000cfd0 31 31 31 29 0d 5c 3a 1a 3f 28 62 6c 6f 63 6b 32 |111).\:.?(block2|
0000cfe0 25 2b 33 29 3d 74 65 6d 70 65 3e 3e 32 34 0d 5c |%+3)=tempe>>24.\|
0000cff0 44 3a 74 65 6d 70 65 3d 65 61 64 64 72 65 73 73 |D:tempe=eaddress|
0000d000 20 80 20 28 ac 20 25 31 31 31 31 31 31 31 31 30 | . (. %111111110|
0000d010 30 30 30 30 30 30 30 31 31 31 31 31 31 31 31 31 |0000000111111111|
0000d020 31 31 31 31 31 31 31 29 0d 5c 4e 1a 3f 28 62 6c |1111111).\N.?(bl|
0000d030 6f 63 6b 32 25 2b 32 29 3d 74 65 6d 70 65 3e 3e |ock2%+2)=tempe>>|
0000d040 31 36 0d 5c 58 3a 74 65 6d 70 65 3d 65 61 64 64 |16.\X:tempe=eadd|
0000d050 72 65 73 73 20 80 20 28 ac 20 25 31 31 31 31 31 |ress . (. %11111|
0000d060 31 31 31 31 31 31 31 31 31 31 31 30 30 30 30 30 |1111111111100000|
0000d070 30 30 30 31 31 31 31 31 31 31 31 29 0d 5c 62 19 |00011111111).\b.|
0000d080 3f 28 62 6c 6f 63 6b 32 25 2b 31 29 3d 74 65 6d |?(block2%+1)=tem|
0000d090 70 65 3e 3e 38 0d 5c 6c 3a 74 65 6d 70 65 3d 65 |pe>>8.\l:tempe=e|
0000d0a0 61 64 64 72 65 73 73 20 80 20 28 ac 20 25 31 31 |address . (. %11|
0000d0b0 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 |1111111111111111|
0000d0c0 31 31 31 31 31 31 30 30 30 30 30 30 30 30 29 0d |11111100000000).|
0000d0d0 5c 76 16 3f 28 62 6c 6f 63 6b 32 25 2b 30 29 3d |\v.?(block2%+0)=|
0000d0e0 74 65 6d 70 65 0d 5c 80 17 72 65 73 75 6c 74 25 |tempe.\..result%|
0000d0f0 3d 62 6c 6f 63 6b 32 25 2b 32 35 36 0d 5c 8a 3a |=block2%+256.\.:|
0000d100 c8 99 20 22 4f 53 5f 43 6f 6e 76 65 72 74 53 74 |.. "OS_ConvertSt|
0000d110 61 6e 64 61 72 64 44 61 74 65 41 6e 64 54 69 6d |andardDateAndTim|
0000d120 65 22 2c 62 6c 6f 63 6b 32 25 2c 72 65 73 75 6c |e",block2%,resul|
0000d130 74 25 2c 32 35 36 0d 5c 94 18 3d a4 67 65 74 73 |t%,256.\..=.gets|
0000d140 74 72 69 6e 67 28 72 65 73 75 6c 74 25 29 0d 5c |tring(result%).\|
0000d150 9e 05 cd 0d 5c a8 25 3d c3 7e 28 6c 61 64 64 72 |....\.%=.~(laddr|
0000d160 65 73 73 29 2b 22 20 20 20 20 22 2b c3 7e 28 65 |ess)+" "+.~(e|
0000d170 61 64 64 72 65 73 73 29 0d 5c b2 05 3a 0d 5c bc |address).\..:.\.|
0000d180 14 dd f2 67 65 74 70 72 69 6e 74 65 72 69 6e 66 |...getprinterinf|
0000d190 6f 0d 5c c6 30 c8 99 20 22 58 50 44 72 69 76 65 |o.\.0.. "XPDrive|
0000d1a0 72 5f 49 6e 66 6f 22 20 b8 20 52 30 2c 52 31 2c |r_Info" . R0,R1,|
0000d1b0 52 32 2c 52 33 2c 52 34 2c 52 35 2c 52 36 2c 52 |R2,R3,R4,R5,R6,R|
0000d1c0 37 0d 5c d0 2f e7 20 52 31 3d 30 20 80 20 52 32 |7.\./. R1=0 . R2|
0000d1d0 3d 30 20 80 20 52 33 3d 30 20 80 20 52 34 3d 30 |=0 . R3=0 . R4=0|
0000d1e0 20 80 20 52 35 3d 30 20 80 20 52 36 3d 30 20 8c | . R5=0 . R6=0 .|
0000d1f0 0d 5c da 0d 64 72 69 76 65 72 25 3d a3 0d 5c e4 |.\..driver%=..\.|
0000d200 1d 70 72 69 6e 74 65 72 24 3d 22 4e 6f 6e 65 20 |.printer$="None |
0000d210 49 6e 73 74 61 6c 6c 65 64 22 0d 5c ee 05 cc 0d |Installed".\....|
0000d220 5c f8 0d 64 72 69 76 65 72 25 3d b9 0d 5d 02 1b |\..driver%=..]..|
0000d230 70 72 69 6e 74 65 72 24 3d a4 67 65 74 73 74 72 |printer$=.getstr|
0000d240 69 6e 67 28 52 34 29 0d 5d 0c 05 cd 0d 5d 16 05 |ing(R4).]....]..|
0000d250 e1 0d 5d 20 05 3a 0d 5d 2a 15 dd f2 63 6c 69 63 |..] .:.]*...clic|
0000d260 6b 70 72 69 6e 74 28 69 63 25 29 0d 5d 34 0c c8 |kprint(ic%).]4..|
0000d270 8e 20 69 63 25 20 ca 0d 5d 3e 07 c9 20 31 0d 5d |. ic% ..]>.. 1.]|
0000d280 48 21 63 6f 70 69 65 73 3d bb 28 a4 69 63 6f 6e |H!copies=.(.icon|
0000d290 74 65 78 74 28 70 72 69 6e 74 25 2c 32 29 29 0d |text(print%,2)).|
0000d2a0 5d 52 19 e7 20 63 6f 70 69 65 73 3c 30 20 8c 20 |]R.. copies<0 . |
0000d2b0 63 6f 70 69 65 73 3d 31 0d 5d 5c 1d e7 20 63 6f |copies=1.]\.. co|
0000d2c0 70 69 65 73 3e 39 39 39 20 8c 20 63 6f 70 69 65 |pies>999 . copie|
0000d2d0 73 3d 39 39 39 0d 5d 66 1b e7 20 62 75 74 74 6f |s=999.]f.. butto|
0000d2e0 6e 25 3d 34 20 8c 20 63 6f 70 69 65 73 2d 3d 31 |n%=4 . copies-=1|
0000d2f0 0d 5d 70 1b e7 20 62 75 74 74 6f 6e 25 3d 31 20 |.]p.. button%=1 |
0000d300 8c 20 63 6f 70 69 65 73 2b 3d 31 0d 5d 7a 19 e7 |. copies+=1.]z..|
0000d310 20 63 6f 70 69 65 73 3c 31 20 8c 20 63 6f 70 69 | copies<1 . copi|
0000d320 65 73 3d 31 0d 5d 84 1d e7 20 63 6f 70 69 65 73 |es=1.]... copies|
0000d330 3e 39 39 39 20 8c 20 63 6f 70 69 65 73 3d 39 39 |>999 . copies=99|
0000d340 39 0d 5d 8e 24 f2 69 63 6f 6e 70 75 74 74 65 78 |9.].$.iconputtex|
0000d350 74 28 70 72 69 6e 74 25 2c 32 2c c3 28 63 6f 70 |t(print%,2,.(cop|
0000d360 69 65 73 29 29 0d 5d 98 25 f2 49 63 6f 6e 43 61 |ies)).].%.IconCa|
0000d370 72 65 74 28 70 72 69 6e 74 25 2c 32 2c a9 28 c3 |ret(print%,2,.(.|
0000d380 28 63 6f 70 69 65 73 29 29 29 0d 5d a2 07 c9 20 |(copies))).]... |
0000d390 33 0d 5d ac 21 63 6f 70 69 65 73 3d bb 28 a4 69 |3.].!copies=.(.i|
0000d3a0 63 6f 6e 74 65 78 74 28 70 72 69 6e 74 25 2c 32 |context(print%,2|
0000d3b0 29 29 0d 5d b6 19 e7 20 63 6f 70 69 65 73 3c 31 |)).]... copies<1|
0000d3c0 20 8c 20 63 6f 70 69 65 73 3d 31 0d 5d c0 1d e7 | . copies=1.]...|
0000d3d0 20 63 6f 70 69 65 73 3e 39 39 39 20 8c 20 63 6f | copies>999 . co|
0000d3e0 70 69 65 73 3d 39 39 39 0d 5d ca 1b e7 20 62 75 |pies=999.]... bu|
0000d3f0 74 74 6f 6e 25 3d 31 20 8c 20 63 6f 70 69 65 73 |tton%=1 . copies|
0000d400 2d 3d 31 0d 5d d4 1b e7 20 62 75 74 74 6f 6e 25 |-=1.]... button%|
0000d410 3d 34 20 8c 20 63 6f 70 69 65 73 2b 3d 31 0d 5d |=4 . copies+=1.]|
0000d420 de 19 e7 20 63 6f 70 69 65 73 3c 30 20 8c 20 63 |... copies<0 . c|
0000d430 6f 70 69 65 73 3d 31 0d 5d e8 1d e7 20 63 6f 70 |opies=1.]... cop|
0000d440 69 65 73 3e 39 39 39 20 8c 20 63 6f 70 69 65 73 |ies>999 . copies|
0000d450 3d 39 39 39 0d 5d f2 24 f2 69 63 6f 6e 70 75 74 |=999.].$.iconput|
0000d460 74 65 78 74 28 70 72 69 6e 74 25 2c 32 2c c3 28 |text(print%,2,.(|
0000d470 63 6f 70 69 65 73 29 29 0d 5d fc 25 f2 49 63 6f |copies)).].%.Ico|
0000d480 6e 43 61 72 65 74 28 70 72 69 6e 74 25 2c 32 2c |nCaret(print%,2,|
0000d490 a9 28 c3 28 63 6f 70 69 65 73 29 29 29 0d 5e 06 |.(.(copies))).^.|
0000d4a0 07 c9 20 35 0d 5e 10 21 63 6f 70 69 65 73 3d bb |.. 5.^.!copies=.|
0000d4b0 28 a4 69 63 6f 6e 74 65 78 74 28 70 72 69 6e 74 |(.icontext(print|
0000d4c0 25 2c 32 29 29 0d 5e 1a 19 e7 20 63 6f 70 69 65 |%,2)).^... copie|
0000d4d0 73 3c 31 20 8c 20 63 6f 70 69 65 73 3d 31 0d 5e |s<1 . copies=1.^|
0000d4e0 24 1d e7 20 63 6f 70 69 65 73 3e 39 39 39 20 8c |$.. copies>999 .|
0000d4f0 20 63 6f 70 69 65 73 3d 39 39 39 0d 5e 2e 0e 64 | copies=999.^..d|
0000d500 6f 70 72 69 6e 74 25 3d b9 0d 5e 38 15 70 6f 6f |oprint%=..^8.poo|
0000d510 77 69 6e 64 6f 77 25 3d 70 72 69 6e 74 25 0d 5e |window%=print%.^|
0000d520 42 10 62 6c 6f 63 6b 25 21 30 3d 32 35 36 0d 5e |B.block%!0=256.^|
0000d530 4c 0f 62 6c 6f 63 6b 25 21 31 32 3d 30 0d 5e 56 |L.block%!12=0.^V|
0000d540 14 62 6c 6f 63 6b 25 21 31 36 3d 26 38 30 31 34 |.block%!16=&8014|
0000d550 32 0d 5e 60 0f 62 6c 6f 63 6b 25 21 32 30 3d 30 |2.^`.block%!20=0|
0000d560 0d 5e 6a 0f 62 6c 6f 63 6b 25 21 32 34 3d 30 0d |.^j.block%!24=0.|
0000d570 5e 74 0f 62 6c 6f 63 6b 25 21 32 38 3d 30 0d 5e |^t.block%!28=0.^|
0000d580 7e 0f 62 6c 6f 63 6b 25 21 33 32 3d 30 0d 5e 88 |~.block%!32=0.^.|
0000d590 10 62 6c 6f 63 6b 25 21 33 36 3d 2d 31 0d 5e 92 |.block%!36=-1.^.|
0000d5a0 12 62 6c 6f 63 6b 25 21 34 30 3d 26 46 46 46 0d |.block%!40=&FFF.|
0000d5b0 5e 9c 28 24 28 62 6c 6f 63 6b 25 2b 34 34 29 3d |^.($(block%+44)=|
0000d5c0 a4 67 4c 6e 28 22 3c 57 69 6d 70 24 53 63 72 61 |.gLn("<Wimp$Scra|
0000d5d0 70 3e 22 29 2b bd 30 0d 5e a6 25 c8 99 20 22 57 |p>")+.0.^.%.. "W|
0000d5e0 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 |imp_SendMessage"|
0000d5f0 2c 31 38 2c 62 6c 6f 63 6b 25 2c 30 0d 5e b0 2a |,18,block%,0.^.*|
0000d600 e7 20 62 75 74 74 6f 6e 25 3c 3e 31 20 8c 20 c8 |. button%<>1 . .|
0000d610 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 |. "Wimp_CreateMe|
0000d620 6e 75 22 2c 2d 31 0d 5e ba 05 cd 0d 5e c4 05 cb |nu",-1.^....^...|
0000d630 0d 5e ce 05 e1 0d 5e d8 05 3a 0d 5e e2 0f dd a4 |.^....^..:.^....|
0000d640 6d 79 63 6f 6e 74 72 6f 6c 0d 5e ec 18 62 6c 6f |mycontrol.^..blo|
0000d650 63 6b 32 25 21 30 3d 6d 79 63 6f 6e 74 72 6f 6c |ck2%!0=mycontrol|
0000d660 25 0d 5e f6 19 c8 99 20 26 30 30 30 34 30 30 43 |%.^.... &000400C|
0000d670 42 2c 2c 62 6c 6f 63 6b 32 25 0d 5f 00 19 c8 99 |B,,block2%._....|
0000d680 20 26 30 30 30 34 30 30 43 35 2c 2c 62 6c 6f 63 | &000400C5,,bloc|
0000d690 6b 32 25 0d 5f 0a 0a 74 42 42 3d 2d 31 0d 5f 14 |k2%._..tBB=-1._.|
0000d6a0 05 f5 0d 5f 1e 2d c8 99 20 26 30 30 30 34 30 30 |..._.-.. &000400|
0000d6b0 43 37 2c 30 2c 62 6c 6f 63 6b 32 25 20 b8 20 72 |C7,0,block2% . r|
0000d6c0 65 61 73 6f 6e 32 25 2c 62 6c 6f 63 6b 32 25 0d |eason2%,block2%.|
0000d6d0 5f 28 11 c8 8e 20 72 65 61 73 6f 6e 32 25 20 ca |_(... reason2% .|
0000d6e0 0d 5f 32 07 c9 20 31 0d 5f 3c 20 c8 99 20 26 30 |._2.. 1._< .. &0|
0000d6f0 30 30 34 30 30 43 38 2c 2c 62 6c 6f 63 6b 32 25 |00400C8,,block2%|
0000d700 20 b8 20 66 6c 61 67 0d 5f 46 0b c8 95 20 66 6c | . flag._F... fl|
0000d710 61 67 0d 5f 50 2d f2 64 6f 6c 69 6e 65 73 28 62 |ag._P-.dolines(b|
0000d720 6c 6f 63 6b 32 25 21 38 2c 62 6c 6f 63 6b 32 25 |lock2%!8,block2%|
0000d730 21 31 36 2c 62 6c 6f 63 6b 32 25 21 32 34 29 0d |!16,block2%!24).|
0000d740 5f 5a 20 c8 99 20 26 30 30 30 34 30 30 43 41 2c |_Z .. &000400CA,|
0000d750 2c 62 6c 6f 63 6b 32 25 20 b8 20 66 6c 61 67 0d |,block2% . flag.|
0000d760 5f 64 05 ce 0d 5f 6e 07 c9 20 32 0d 5f 78 19 c8 |_d..._n.. 2._x..|
0000d770 99 20 26 30 30 30 34 30 30 43 35 2c 2c 62 6c 6f |. &000400C5,,blo|
0000d780 63 6b 32 25 0d 5f 82 07 c9 20 36 0d 5f 8c 18 73 |ck2%._... 6._..s|
0000d790 75 62 62 75 74 74 6f 6e 25 3d 62 6c 6f 63 6b 32 |ubbutton%=block2|
0000d7a0 25 21 38 0d 5f 96 19 73 75 62 77 69 6e 64 6f 77 |%!8._..subwindow|
0000d7b0 25 3d 62 6c 6f 63 6b 32 25 21 31 32 0d 5f a0 17 |%=block2%!12._..|
0000d7c0 73 75 62 69 63 6f 6e 25 3d 62 6c 6f 63 6b 32 25 |subicon%=block2%|
0000d7d0 21 31 36 0d 5f aa 1d e7 20 73 75 62 77 69 6e 64 |!16._... subwind|
0000d7e0 6f 77 25 3d 6d 79 63 6f 6e 74 72 6f 6c 25 20 8c |ow%=mycontrol% .|
0000d7f0 0d 5f b4 11 c8 8e 20 73 75 62 69 63 6f 6e 25 20 |._.... subicon% |
0000d800 ca 0d 5f be 11 c9 20 35 20 3a 20 74 42 42 20 3d |.._... 5 : tBB =|
0000d810 20 30 0d 5f c8 11 c9 20 36 20 3a 20 74 42 42 20 | 0._... 6 : tBB |
0000d820 3d 20 31 0d 5f d2 11 c9 20 37 20 3a 20 74 42 42 |= 1._... 7 : tBB|
0000d830 20 3d 20 32 0d 5f dc 05 cb 0d 5f e6 05 cd 0d 5f | = 2._...._...._|
0000d840 f0 08 c9 20 31 38 0d 5f fa 14 e7 20 62 6c 6f 63 |... 18._... bloc|
0000d850 6b 32 25 21 31 36 3d 38 20 8c 0d 60 04 1a 20 20 |k2%!16=8 ..`.. |
0000d860 62 6c 6f 63 6b 32 25 21 31 32 3d 62 6c 6f 63 6b |block2%!12=block|
0000d870 32 25 21 38 0d 60 0e 28 20 20 c8 99 20 22 57 69 |2%!8.`.( .. "Wi|
0000d880 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 2c |mp_SendMessage",|
0000d890 31 39 2c 62 6c 6f 63 6b 32 25 2c 30 0d 60 18 1a |19,block2%,0.`..|
0000d8a0 20 20 f2 73 69 63 6f 6e 28 6d 79 63 6f 6e 74 72 | .sicon(mycontr|
0000d8b0 6f 6c 25 2c 36 29 0d 60 22 0f 20 20 70 72 65 73 |ol%,6).`". pres|
0000d8c0 73 65 64 3d b9 0d 60 2c 05 cd 0d 60 36 05 cb 0d |sed=..`,...`6...|
0000d8d0 60 40 04 0d 60 4a 0c fd 20 74 42 42 3e 2d 31 0d |`@..`J.. tBB>-1.|
0000d8e0 60 54 08 3d 74 42 42 0d 60 5e 05 3a 0d 60 68 2e |`T.=tBB.`^.:.`h.|
0000d8f0 dd f2 64 72 61 67 73 6c 69 64 65 72 69 63 6f 6e |..dragslidericon|
0000d900 28 77 69 6e 25 2c 64 72 61 67 69 63 6f 6e 25 2c |(win%,dragicon%,|
0000d910 73 69 7a 65 69 63 6f 6e 25 29 0d 60 72 11 62 6c |sizeicon%).`r.bl|
0000d920 6f 63 6b 25 21 30 3d 77 69 6e 25 0d 60 7c 16 62 |ock%!0=win%.`|.b|
0000d930 6c 6f 63 6b 25 21 34 3d 73 69 7a 65 69 63 6f 6e |lock%!4=sizeicon|
0000d940 25 0d 60 86 22 c8 99 20 22 57 69 6d 70 5f 47 65 |%.`.".. "Wimp_Ge|
0000d950 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 6c 6f |tIconState",,blo|
0000d960 63 6b 25 0d 60 90 13 73 6d 69 6e 78 25 3d 62 6c |ck%.`..sminx%=bl|
0000d970 6f 63 6b 25 21 38 0d 60 9a 14 73 6d 69 6e 79 25 |ock%!8.`..sminy%|
0000d980 3d 62 6c 6f 63 6b 25 21 31 32 0d 60 a4 14 73 6d |=block%!12.`..sm|
0000d990 61 78 78 25 3d 62 6c 6f 63 6b 25 21 31 36 0d 60 |axx%=block%!16.`|
0000d9a0 ae 14 73 6d 61 78 79 25 3d 62 6c 6f 63 6b 25 21 |..smaxy%=block%!|
0000d9b0 32 30 0d 60 b8 24 c8 99 20 22 57 69 6d 70 5f 47 |20.`.$.. "Wimp_G|
0000d9c0 65 74 50 6f 69 6e 74 65 72 49 6e 66 6f 22 2c 2c |etPointerInfo",,|
0000d9d0 62 6c 6f 63 6b 25 0d 60 c2 10 6d 78 25 3d 62 6c |block%.`..mx%=bl|
0000d9e0 6f 63 6b 25 21 30 0d 60 cc 11 62 6c 6f 63 6b 25 |ock%!0.`..block%|
0000d9f0 21 30 3d 77 69 6e 25 0d 60 d6 23 c8 99 20 22 57 |!0=win%.`.#.. "W|
0000da00 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 49 6e 66 |imp_GetWindowInf|
0000da10 6f 22 2c 2c 62 6c 6f 63 6b 25 0d 60 e0 2f 63 61 |o",,block%.`./ca|
0000da20 6c 63 78 25 3d 28 6d 78 25 2d 28 62 6c 6f 63 6b |lcx%=(mx%-(block|
0000da30 25 21 34 2d 62 6c 6f 63 6b 25 21 32 30 29 29 2b |%!4-block%!20))+|
0000da40 62 6c 6f 63 6b 25 21 34 34 0d 60 ea 19 c8 99 20 |block%!44.`.... |
0000da50 26 33 35 2c eb 2c 34 20 b8 20 2c 2c 78 66 61 63 |&35,.,4 . ,,xfac|
0000da60 74 25 0d 60 f4 29 69 63 6f 6e 6d 69 6e 78 25 3d |t%.`.)iconminx%=|
0000da70 73 6d 69 6e 78 25 2b 28 62 6c 6f 63 6b 25 21 34 |sminx%+(block%!4|
0000da80 2d 62 6c 6f 63 6b 25 21 32 30 29 0d 60 fe 27 69 |-block%!20).`.'i|
0000da90 63 6f 6e 6d 61 78 78 25 3d 69 63 6f 6e 6d 69 6e |conmaxx%=iconmin|
0000daa0 78 25 2b 28 73 6d 61 78 78 25 2d 73 6d 69 6e 78 |x%+(smaxx%-sminx|
0000dab0 25 29 0d 61 08 2a 69 63 6f 6e 6d 69 6e 79 25 3d |%).a.*iconminy%=|
0000dac0 73 6d 69 6e 79 25 2b 28 62 6c 6f 63 6b 25 21 31 |sminy%+(block%!1|
0000dad0 36 2d 62 6c 6f 63 6b 25 21 32 34 29 0d 61 12 19 |6-block%!24).a..|
0000dae0 c8 99 20 26 33 35 2c eb 2c 35 20 b8 20 2c 2c 79 |.. &35,.,5 . ,,y|
0000daf0 66 61 63 74 25 0d 61 1c 33 69 63 6f 6e 6d 61 78 |fact%.a.3iconmax|
0000db00 79 25 3d 69 63 6f 6e 6d 69 6e 79 25 2b 28 73 6d |y%=iconminy%+(sm|
0000db10 61 78 79 25 2d 73 6d 69 6e 79 25 29 2d 28 31 3c |axy%-sminy%)-(1<|
0000db20 3c 79 66 61 63 74 25 29 0d 61 26 11 62 6c 6f 63 |<yfact%).a&.bloc|
0000db30 6b 25 21 30 3d 77 69 6e 25 0d 61 30 0e 62 6c 6f |k%!0=win%.a0.blo|
0000db40 63 6b 25 21 34 3d 37 0d 61 3a 16 62 6c 6f 63 6b |ck%!4=7.a:.block|
0000db50 25 21 38 3d 69 63 6f 6e 6d 69 6e 78 25 0d 61 44 |%!8=iconminx%.aD|
0000db60 17 62 6c 6f 63 6b 25 21 31 32 3d 69 63 6f 6e 6d |.block%!12=iconm|
0000db70 69 6e 79 25 0d 61 4e 17 62 6c 6f 63 6b 25 21 31 |iny%.aN.block%!1|
0000db80 36 3d 69 63 6f 6e 6d 61 78 78 25 0d 61 58 17 62 |6=iconmaxx%.aX.b|
0000db90 6c 6f 63 6b 25 21 32 30 3d 69 63 6f 6e 6d 61 78 |lock%!20=iconmax|
0000dba0 79 25 0d 61 62 16 62 6c 6f 63 6b 25 21 32 34 3d |y%.ab.block%!24=|
0000dbb0 62 6c 6f 63 6b 25 21 38 0d 61 6c 17 62 6c 6f 63 |block%!8.al.bloc|
0000dbc0 6b 25 21 32 38 3d 62 6c 6f 63 6b 25 21 31 32 0d |k%!28=block%!12.|
0000dbd0 61 76 17 62 6c 6f 63 6b 25 21 33 32 3d 62 6c 6f |av.block%!32=blo|
0000dbe0 63 6b 25 21 31 36 0d 61 80 17 62 6c 6f 63 6b 25 |ck%!16.a..block%|
0000dbf0 21 33 36 3d 62 6c 6f 63 6b 25 21 32 30 0d 61 8a |!36=block%!20.a.|
0000dc00 1d c8 99 20 22 57 69 6d 70 5f 44 72 61 67 42 6f |... "Wimp_DragBo|
0000dc10 78 22 2c 2c 62 6c 6f 63 6b 25 0d 61 94 15 73 6c |x",,block%.a..sl|
0000dc20 69 64 65 77 69 6e 64 6f 77 25 3d 77 69 6e 25 0d |idewindow%=win%.|
0000dc30 61 9e 18 73 6c 69 64 65 69 63 6f 6e 25 3d 64 72 |a..slideicon%=dr|
0000dc40 61 67 69 63 6f 6e 25 0d 61 a8 18 73 6c 69 64 65 |agicon%.a..slide|
0000dc50 73 69 7a 65 25 3d 73 69 7a 65 69 63 6f 6e 25 0d |size%=sizeicon%.|
0000dc60 61 b2 14 6c 61 73 74 77 69 6e 64 6f 77 25 3d 77 |a..lastwindow%=w|
0000dc70 69 6e 25 0d 61 bc 11 62 6c 6f 63 6b 25 21 30 3d |in%.a..block%!0=|
0000dc80 77 69 6e 25 0d 61 c6 16 62 6c 6f 63 6b 25 21 34 |win%.a..block%!4|
0000dc90 3d 64 72 61 67 69 63 6f 6e 25 0d 61 d0 22 c8 99 |=dragicon%.a."..|
0000dca0 20 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 | "Wimp_GetIconSt|
0000dcb0 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 0d 61 da 17 |ate",,block%.a..|
0000dcc0 6f 6c 64 77 6f 72 6b 78 25 3d 62 6c 6f 63 6b 25 |oldworkx%=block%|
0000dcd0 21 31 36 0d 61 e4 05 e1 0d 61 ee 05 3a 0d 61 f8 |!16.a....a..:.a.|
0000dce0 35 dd f2 64 6f 73 6c 69 64 65 28 77 69 6e 25 2c |5..doslide(win%,|
0000dcf0 64 72 61 67 69 63 6f 6e 25 2c 73 69 7a 65 69 63 |dragicon%,sizeic|
0000dd00 6f 6e 25 2c 63 6f 6e 73 74 25 2c 72 61 6e 67 65 |on%,const%,range|
0000dd10 25 29 0d 62 02 11 62 6c 6f 63 6b 25 21 30 3d 77 |%).b..block%!0=w|
0000dd20 69 6e 25 0d 62 0c 16 62 6c 6f 63 6b 25 21 34 3d |in%.b..block%!4=|
0000dd30 73 69 7a 65 69 63 6f 6e 25 0d 62 16 22 c8 99 20 |sizeicon%.b.".. |
0000dd40 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 |"Wimp_GetIconSta|
0000dd50 74 65 22 2c 2c 62 6c 6f 63 6b 25 0d 62 20 16 73 |te",,block%.b .s|
0000dd60 69 7a 65 6d 69 6e 78 25 3d 62 6c 6f 63 6b 25 21 |izeminx%=block%!|
0000dd70 38 0d 62 2a 17 73 69 7a 65 6d 69 6e 79 25 3d 62 |8.b*.sizeminy%=b|
0000dd80 6c 6f 63 6b 25 21 31 32 0d 62 34 17 73 69 7a 65 |lock%!12.b4.size|
0000dd90 6d 61 78 78 25 3d 62 6c 6f 63 6b 25 21 31 36 0d |maxx%=block%!16.|
0000dda0 62 3e 17 73 69 7a 65 6d 61 78 79 25 3d 62 6c 6f |b>.sizemaxy%=blo|
0000ddb0 63 6b 25 21 32 30 0d 62 48 12 c8 97 20 6d 78 25 |ck%!20.bH... mx%|
0000ddc0 2c 6d 79 25 2c 6d 62 25 0d 62 52 11 62 6c 6f 63 |,my%,mb%.bR.bloc|
0000ddd0 6b 25 21 30 3d 77 69 6e 25 0d 62 5c 23 c8 99 20 |k%!0=win%.b\#.. |
0000dde0 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 49 |"Wimp_GetWindowI|
0000ddf0 6e 66 6f 22 2c 2c 62 6c 6f 63 6b 25 0d 62 66 12 |nfo",,block%.bf.|
0000de00 6d 69 6e 78 25 3d 62 6c 6f 63 6b 25 21 34 0d 62 |minx%=block%!4.b|
0000de10 70 13 73 63 72 78 25 3d 62 6c 6f 63 6b 25 21 32 |p.scrx%=block%!2|
0000de20 30 0d 62 7a 1b 6e 65 77 78 25 3d 6d 78 25 2b 28 |0.bz.newx%=mx%+(|
0000de30 73 63 72 78 25 2d 6d 69 6e 78 25 29 0d 62 84 18 |scrx%-minx%).b..|
0000de40 e7 20 6e 65 77 78 25 3c 3e 6f 6c 64 77 6f 72 6b |. newx%<>oldwork|
0000de50 78 25 20 8c 0d 62 8e 13 20 20 62 6c 6f 63 6b 25 |x% ..b.. block%|
0000de60 21 30 3d 77 69 6e 25 0d 62 98 18 20 20 62 6c 6f |!0=win%.b.. blo|
0000de70 63 6b 25 21 34 3d 64 72 61 67 69 63 6f 6e 25 0d |ck%!4=dragicon%.|
0000de80 62 a2 24 20 20 c8 99 20 22 57 69 6d 70 5f 47 65 |b.$ .. "Wimp_Ge|
0000de90 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 6c 6f |tIconState",,blo|
0000dea0 63 6b 25 0d 62 ac 15 20 20 62 6c 6f 63 6b 25 21 |ck%.b.. block%!|
0000deb0 31 36 3d 6e 65 77 78 25 0d 62 b6 13 20 20 62 6c |16=newx%.b.. bl|
0000dec0 6f 63 6b 25 21 30 3d 77 69 6e 25 0d 62 c0 18 20 |ock%!0=win%.b.. |
0000ded0 20 62 6c 6f 63 6b 25 21 34 3d 64 72 61 67 69 63 | block%!4=dragic|
0000dee0 6f 6e 25 0d 62 ca 22 20 20 c8 99 20 22 57 69 6d |on%.b." .. "Wim|
0000def0 70 5f 44 65 6c 65 74 65 49 63 6f 6e 22 2c 2c 62 |p_DeleteIcon",,b|
0000df00 6c 6f 63 6b 25 0d 62 d4 13 20 20 62 6c 6f 63 6b |lock%.b.. block|
0000df10 25 21 34 3d 77 69 6e 25 0d 62 de 24 20 20 c8 99 |%!4=win%.b.$ ..|
0000df20 20 22 57 69 6d 70 5f 43 72 65 61 74 65 49 63 6f | "Wimp_CreateIco|
0000df30 6e 22 2c 2c 62 6c 6f 63 6b 25 2b 34 0d 62 e8 16 |n",,block%+4.b..|
0000df40 6e 65 77 62 6c 6f 63 6b 25 3d 62 6c 6f 63 6b 25 |newblock%=block%|
0000df50 2b 34 0d 62 f2 17 e7 20 6f 6c 64 77 6f 72 6b 78 |+4.b... oldworkx|
0000df60 25 3c 6e 65 77 78 25 20 8c 0d 62 fc 19 6e 65 77 |%<newx% ..b..new|
0000df70 62 6c 6f 63 6b 25 21 34 3d 73 69 7a 65 6d 69 6e |block%!4=sizemin|
0000df80 78 25 0d 63 06 05 cc 0d 63 10 15 6e 65 77 62 6c |x%.c....c..newbl|
0000df90 6f 63 6b 25 21 34 3d 6e 65 77 78 25 0d 63 1a 05 |ock%!4=newx%.c..|
0000dfa0 cd 0d 63 24 19 6e 65 77 62 6c 6f 63 6b 25 21 38 |..c$.newblock%!8|
0000dfb0 3d 73 69 7a 65 6d 69 6e 79 25 0d 63 2e 17 e7 20 |=sizeminy%.c... |
0000dfc0 6f 6c 64 77 6f 72 6b 78 25 3e 6e 65 77 78 25 20 |oldworkx%>newx% |
0000dfd0 8c 0d 63 38 1a 6e 65 77 62 6c 6f 63 6b 25 21 31 |..c8.newblock%!1|
0000dfe0 32 3d 73 69 7a 65 6d 61 78 78 25 0d 63 42 05 cc |2=sizemaxx%.cB..|
0000dff0 0d 63 4c 16 6e 65 77 62 6c 6f 63 6b 25 21 31 32 |.cL.newblock%!12|
0000e000 3d 6e 65 77 78 25 0d 63 56 05 cd 0d 63 60 1a 6e |=newx%.cV...c`.n|
0000e010 65 77 62 6c 6f 63 6b 25 21 31 36 3d 73 69 7a 65 |ewblock%!16=size|
0000e020 6d 61 78 79 25 0d 63 6a 2c c8 99 20 22 57 69 6d |maxy%.cj,.. "Wim|
0000e030 70 5f 55 70 64 61 74 65 57 69 6e 64 6f 77 22 2c |p_UpdateWindow",|
0000e040 2c 6e 65 77 62 6c 6f 63 6b 25 20 b8 20 66 6c 61 |,newblock% . fla|
0000e050 67 0d 63 74 0b c8 95 20 66 6c 61 67 0d 63 7e 2c |g.ct... flag.c~,|
0000e060 c8 99 20 22 57 69 6d 70 5f 47 65 74 52 65 63 74 |.. "Wimp_GetRect|
0000e070 61 6e 67 6c 65 22 2c 2c 6e 65 77 62 6c 6f 63 6b |angle",,newblock|
0000e080 25 20 b8 20 66 6c 61 67 0d 63 88 05 ce 0d 63 92 |% . flag.c....c.|
0000e090 10 20 20 e7 20 63 6f 6e 73 74 25 20 8c 0d 63 9c |. . const% ..c.|
0000e0a0 21 20 20 20 20 73 69 7a 65 25 3d 73 69 7a 65 6d |! size%=sizem|
0000e0b0 61 78 78 25 2d 73 69 7a 65 6d 69 6e 78 25 0d 63 |axx%-sizeminx%.c|
0000e0c0 a6 1f 20 20 20 20 70 70 6f 73 25 3d 28 6e 65 77 |.. ppos%=(new|
0000e0d0 78 25 2d 73 69 7a 65 6d 69 6e 78 25 29 0d 63 b0 |x%-sizeminx%).c.|
0000e0e0 24 20 20 20 20 6e 75 6d 62 65 72 25 3d 28 72 61 |$ number%=(ra|
0000e0f0 6e 67 65 25 2f 73 69 7a 65 25 29 2a 70 70 6f 73 |nge%/size%)*ppos|
0000e100 25 0d 63 ba 09 20 20 20 20 3a 0d 63 c4 17 20 20 |%.c.. :.c.. |
0000e110 20 20 c8 8e 20 73 6c 69 64 65 69 63 6f 6e 25 20 | .. slideicon% |
0000e120 ca 0d 63 ce 0c 20 20 20 20 c9 20 32 38 0d 63 d8 |..c.. . 28.c.|
0000e130 14 20 20 20 20 62 6f 78 72 3d 6e 75 6d 62 65 72 |. boxr=number|
0000e140 25 0d 63 e2 26 20 20 20 20 f2 69 63 6f 6e 70 75 |%.c.& .iconpu|
0000e150 74 74 65 78 74 28 70 61 6e 65 25 2c 33 35 2c c3 |ttext(pane%,35,.|
0000e160 28 62 6f 78 72 29 29 0d 63 ec 26 20 20 20 20 f2 |(boxr)).c.& .|
0000e170 64 6f 63 6f 6c 6f 75 72 62 6f 78 28 62 6f 78 72 |docolourbox(boxr|
0000e180 2c 62 6f 78 67 2c 62 6f 78 62 2c b9 29 0d 63 f6 |,boxg,boxb,.).c.|
0000e190 0c 20 20 20 20 c9 20 33 31 0d 64 00 14 20 20 20 |. . 31.d.. |
0000e1a0 20 62 6f 78 67 3d 6e 75 6d 62 65 72 25 0d 64 0a | boxg=number%.d.|
0000e1b0 26 20 20 20 20 f2 69 63 6f 6e 70 75 74 74 65 78 |& .iconputtex|
0000e1c0 74 28 70 61 6e 65 25 2c 33 36 2c c3 28 62 6f 78 |t(pane%,36,.(box|
0000e1d0 67 29 29 0d 64 14 26 20 20 20 20 f2 64 6f 63 6f |g)).d.& .doco|
0000e1e0 6c 6f 75 72 62 6f 78 28 62 6f 78 72 2c 62 6f 78 |lourbox(boxr,box|
0000e1f0 67 2c 62 6f 78 62 2c b9 29 0d 64 1e 0c 20 20 20 |g,boxb,.).d.. |
0000e200 20 c9 20 33 34 0d 64 28 14 20 20 20 20 62 6f 78 | . 34.d(. box|
0000e210 62 3d 6e 75 6d 62 65 72 25 0d 64 32 26 20 20 20 |b=number%.d2& |
0000e220 20 f2 69 63 6f 6e 70 75 74 74 65 78 74 28 70 61 | .iconputtext(pa|
0000e230 6e 65 25 2c 33 37 2c c3 28 62 6f 78 62 29 29 0d |ne%,37,.(boxb)).|
0000e240 64 3c 26 20 20 20 20 f2 64 6f 63 6f 6c 6f 75 72 |d<& .docolour|
0000e250 62 6f 78 28 62 6f 78 72 2c 62 6f 78 67 2c 62 6f |box(boxr,boxg,bo|
0000e260 78 62 2c b9 29 0d 64 46 09 20 20 20 20 cb 0d 64 |xb,.).dF. ..d|
0000e270 50 07 20 20 cd 0d 64 5a 05 cd 0d 64 64 11 62 6c |P. ..dZ...dd.bl|
0000e280 6f 63 6b 25 21 30 3d 77 69 6e 25 0d 64 6e 16 62 |ock%!0=win%.dn.b|
0000e290 6c 6f 63 6b 25 21 34 3d 64 72 61 67 69 63 6f 6e |lock%!4=dragicon|
0000e2a0 25 0d 64 78 22 c8 99 20 22 57 69 6d 70 5f 47 65 |%.dx".. "Wimp_Ge|
0000e2b0 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 6c 6f |tIconState",,blo|
0000e2c0 63 6b 25 0d 64 82 17 6f 6c 64 77 6f 72 6b 78 25 |ck%.d..oldworkx%|
0000e2d0 3d 62 6c 6f 63 6b 25 21 31 36 0d 64 8c 12 72 72 |=block%!16.d..rr|
0000e2e0 61 6e 67 65 25 3d 72 61 6e 67 65 25 0d 64 96 05 |ange%=range%.d..|
0000e2f0 e1 0d 64 a0 05 3a 0d 64 aa 35 dd f2 73 65 74 62 |..d..:.d.5..setb|
0000e300 61 72 28 77 69 6e 25 2c 64 72 61 67 69 63 6f 6e |ar(win%,dragicon|
0000e310 25 2c 73 69 7a 65 69 63 6f 6e 25 2c 72 61 6e 67 |%,sizeicon%,rang|
0000e320 65 25 2c 6e 75 6d 62 65 72 25 29 0d 64 b4 1b e7 |e%,number%).d...|
0000e330 20 6e 75 6d 62 65 72 25 3c 30 20 8c 20 6e 75 6d | number%<0 . num|
0000e340 62 65 72 25 3d 30 0d 64 be 25 e7 20 6e 75 6d 62 |ber%=0.d.%. numb|
0000e350 65 72 25 3e 72 61 6e 67 65 25 20 8c 20 6e 75 6d |er%>range% . num|
0000e360 62 65 72 25 3d 72 61 6e 67 65 25 0d 64 c8 11 62 |ber%=range%.d..b|
0000e370 6c 6f 63 6b 25 21 30 3d 77 69 6e 25 0d 64 d2 16 |lock%!0=win%.d..|
0000e380 62 6c 6f 63 6b 25 21 34 3d 73 69 7a 65 69 63 6f |block%!4=sizeico|
0000e390 6e 25 0d 64 dc 22 c8 99 20 22 57 69 6d 70 5f 47 |n%.d.".. "Wimp_G|
0000e3a0 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 6c |etIconState",,bl|
0000e3b0 6f 63 6b 25 0d 64 e6 16 73 69 7a 65 6d 69 6e 78 |ock%.d..sizeminx|
0000e3c0 25 3d 62 6c 6f 63 6b 25 21 38 0d 64 f0 17 73 69 |%=block%!8.d..si|
0000e3d0 7a 65 6d 69 6e 79 25 3d 62 6c 6f 63 6b 25 21 31 |zeminy%=block%!1|
0000e3e0 32 0d 64 fa 17 73 69 7a 65 6d 61 78 78 25 3d 62 |2.d..sizemaxx%=b|
0000e3f0 6c 6f 63 6b 25 21 31 36 0d 65 04 17 73 69 7a 65 |lock%!16.e..size|
0000e400 6d 61 78 79 25 3d 62 6c 6f 63 6b 25 21 32 30 0d |maxy%=block%!20.|
0000e410 65 0e 3c 6e 65 77 78 25 3d 73 69 7a 65 6d 69 6e |e.<newx%=sizemin|
0000e420 78 25 2b 28 6e 75 6d 62 65 72 25 2f 28 72 61 6e |x%+(number%/(ran|
0000e430 67 65 25 2f 28 73 69 7a 65 6d 61 78 78 25 2d 73 |ge%/(sizemaxx%-s|
0000e440 69 7a 65 6d 69 6e 78 25 29 29 29 0d 65 18 11 62 |izeminx%))).e..b|
0000e450 6c 6f 63 6b 25 21 30 3d 77 69 6e 25 0d 65 22 16 |lock%!0=win%.e".|
0000e460 62 6c 6f 63 6b 25 21 34 3d 64 72 61 67 69 63 6f |block%!4=dragico|
0000e470 6e 25 0d 65 2c 22 c8 99 20 22 57 69 6d 70 5f 47 |n%.e,".. "Wimp_G|
0000e480 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 6c |etIconState",,bl|
0000e490 6f 63 6b 25 0d 65 36 13 62 6c 6f 63 6b 25 21 31 |ock%.e6.block%!1|
0000e4a0 36 3d 6e 65 77 78 25 0d 65 40 11 62 6c 6f 63 6b |6=newx%.e@.block|
0000e4b0 25 21 30 3d 77 69 6e 25 0d 65 4a 16 62 6c 6f 63 |%!0=win%.eJ.bloc|
0000e4c0 6b 25 21 34 3d 64 72 61 67 69 63 6f 6e 25 0d 65 |k%!4=dragicon%.e|
0000e4d0 54 20 c8 99 20 22 57 69 6d 70 5f 44 65 6c 65 74 |T .. "Wimp_Delet|
0000e4e0 65 49 63 6f 6e 22 2c 2c 62 6c 6f 63 6b 25 0d 65 |eIcon",,block%.e|
0000e4f0 5e 11 62 6c 6f 63 6b 25 21 34 3d 77 69 6e 25 0d |^.block%!4=win%.|
0000e500 65 68 22 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 |eh".. "Wimp_Crea|
0000e510 74 65 49 63 6f 6e 22 2c 2c 62 6c 6f 63 6b 25 2b |teIcon",,block%+|
0000e520 34 0d 65 72 16 6e 65 77 62 6c 6f 63 6b 25 3d 62 |4.er.newblock%=b|
0000e530 6c 6f 63 6b 25 2b 34 0d 65 7c 17 e7 20 6f 6c 64 |lock%+4.e|.. old|
0000e540 77 6f 72 6b 78 25 3c 6e 65 77 78 25 20 8c 0d 65 |workx%<newx% ..e|
0000e550 86 19 6e 65 77 62 6c 6f 63 6b 25 21 34 3d 73 69 |..newblock%!4=si|
0000e560 7a 65 6d 69 6e 78 25 0d 65 90 05 cc 0d 65 9a 15 |zeminx%.e....e..|
0000e570 6e 65 77 62 6c 6f 63 6b 25 21 34 3d 6e 65 77 78 |newblock%!4=newx|
0000e580 25 0d 65 a4 05 cd 0d 65 ae 19 6e 65 77 62 6c 6f |%.e....e..newblo|
0000e590 63 6b 25 21 38 3d 73 69 7a 65 6d 69 6e 79 25 0d |ck%!8=sizeminy%.|
0000e5a0 65 b8 17 e7 20 6f 6c 64 77 6f 72 6b 78 25 3c 6e |e... oldworkx%<n|
0000e5b0 65 77 78 25 20 8c 0d 65 c2 16 6e 65 77 62 6c 6f |ewx% ..e..newblo|
0000e5c0 63 6b 25 21 31 32 3d 6e 65 77 78 25 0d 65 cc 05 |ck%!12=newx%.e..|
0000e5d0 cc 0d 65 d6 1a 6e 65 77 62 6c 6f 63 6b 25 21 31 |..e..newblock%!1|
0000e5e0 32 3d 73 69 7a 65 6d 61 78 78 25 0d 65 e0 05 cd |2=sizemaxx%.e...|
0000e5f0 0d 65 ea 1a 6e 65 77 62 6c 6f 63 6b 25 21 31 36 |.e..newblock%!16|
0000e600 3d 73 69 7a 65 6d 61 78 79 25 0d 65 f4 2c c8 99 |=sizemaxy%.e.,..|
0000e610 20 22 57 69 6d 70 5f 55 70 64 61 74 65 57 69 6e | "Wimp_UpdateWin|
0000e620 64 6f 77 22 2c 2c 6e 65 77 62 6c 6f 63 6b 25 20 |dow",,newblock% |
0000e630 b8 20 66 6c 61 67 0d 65 fe 0b c8 95 20 66 6c 61 |. flag.e.... fla|
0000e640 67 0d 66 08 2c c8 99 20 22 57 69 6d 70 5f 47 65 |g.f.,.. "Wimp_Ge|
0000e650 74 52 65 63 74 61 6e 67 6c 65 22 2c 2c 6e 65 77 |tRectangle",,new|
0000e660 62 6c 6f 63 6b 25 20 b8 20 66 6c 61 67 0d 66 12 |block% . flag.f.|
0000e670 05 ce 0d 66 1c 13 6f 6c 64 77 6f 72 6b 78 25 3d |...f..oldworkx%=|
0000e680 6e 65 77 78 25 0d 66 26 05 e1 0d 66 30 05 3a 0d |newx%.f&...f0.:.|
0000e690 66 3a 32 dd a4 67 65 74 62 61 72 76 61 6c 75 65 |f:2..getbarvalue|
0000e6a0 28 77 69 6e 25 2c 64 72 61 67 69 63 6f 6e 25 2c |(win%,dragicon%,|
0000e6b0 73 69 7a 65 69 63 6f 6e 25 2c 72 61 6e 67 65 25 |sizeicon%,range%|
0000e6c0 29 0d 66 44 11 62 6c 6f 63 6b 25 21 30 3d 77 69 |).fD.block%!0=wi|
0000e6d0 6e 25 0d 66 4e 16 62 6c 6f 63 6b 25 21 34 3d 73 |n%.fN.block%!4=s|
0000e6e0 69 7a 65 69 63 6f 6e 25 0d 66 58 22 c8 99 20 22 |izeicon%.fX".. "|
0000e6f0 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 |Wimp_GetIconStat|
0000e700 65 22 2c 2c 62 6c 6f 63 6b 25 0d 66 62 16 73 69 |e",,block%.fb.si|
0000e710 7a 65 6d 69 6e 78 25 3d 62 6c 6f 63 6b 25 21 38 |zeminx%=block%!8|
0000e720 0d 66 6c 17 73 69 7a 65 6d 61 78 78 25 3d 62 6c |.fl.sizemaxx%=bl|
0000e730 6f 63 6b 25 21 31 36 0d 66 76 11 62 6c 6f 63 6b |ock%!16.fv.block|
0000e740 25 21 30 3d 77 69 6e 25 0d 66 80 16 62 6c 6f 63 |%!0=win%.f..bloc|
0000e750 6b 25 21 34 3d 64 72 61 67 69 63 6f 6e 25 0d 66 |k%!4=dragicon%.f|
0000e760 8a 22 c8 99 20 22 57 69 6d 70 5f 47 65 74 49 63 |.".. "Wimp_GetIc|
0000e770 6f 6e 53 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 |onState",,block%|
0000e780 0d 66 94 38 3d 28 72 61 6e 67 65 25 2f 28 73 69 |.f.8=(range%/(si|
0000e790 7a 65 6d 61 78 78 25 2d 73 69 7a 65 6d 69 6e 78 |zemaxx%-sizeminx|
0000e7a0 25 29 29 2a 28 62 6c 6f 63 6b 25 21 31 36 2d 62 |%))*(block%!16-b|
0000e7b0 6c 6f 63 6b 25 21 38 29 0d 66 9e 05 3a 0d 66 a8 |lock%!8).f..:.f.|
0000e7c0 12 dd a4 74 6f 70 61 6c 28 72 2c 67 2c 62 29 0d |...topal(r,g,b).|
0000e7d0 66 b2 07 43 3d 30 0d 66 bc 11 43 3d 43 20 84 20 |f..C=0.f..C=C . |
0000e7e0 28 62 3c 3c 32 34 29 0d 66 c6 11 43 3d 43 20 84 |(b<<24).f..C=C .|
0000e7f0 20 28 67 3c 3c 31 36 29 0d 66 d0 10 43 3d 43 20 | (g<<16).f..C=C |
0000e800 84 20 28 72 3c 3c 38 29 0d 66 da 06 3d 43 0d 66 |. (r<<8).f..=C.f|
0000e810 e4 05 3a 0d 66 ee 1c dd f2 64 6f 63 6f 6c 6f 75 |..:.f....docolou|
0000e820 72 62 6f 78 28 72 2c 67 2c 62 2c 66 6c 67 29 0d |rbox(r,g,b,flg).|
0000e830 66 f8 13 62 6c 6f 63 6b 32 25 21 30 3d 70 61 6e |f..block2%!0=pan|
0000e840 65 25 0d 67 02 15 c8 99 26 34 30 30 63 62 2c 2c |e%.g....&400cb,,|
0000e850 62 6c 6f 63 6b 32 25 0d 67 0c 1f 62 74 6f 70 78 |block2%.g..btopx|
0000e860 25 3d 62 6c 6f 63 6b 32 25 21 34 2d 62 6c 6f 63 |%=block2%!4-bloc|
0000e870 6b 32 25 21 32 30 0d 67 16 20 62 74 6f 70 79 25 |k2%!20.g. btopy%|
0000e880 3d 62 6c 6f 63 6b 32 25 21 31 36 2d 62 6c 6f 63 |=block2%!16-bloc|
0000e890 6b 32 25 21 32 34 0d 67 20 0b e7 20 66 6c 67 20 |k2%!24.g .. flg |
0000e8a0 8c 0d 67 2a 13 62 6c 6f 63 6b 32 25 21 30 3d 70 |..g*.block2%!0=p|
0000e8b0 61 6e 65 25 0d 67 34 10 62 6c 6f 63 6b 32 25 21 |ane%.g4.block2%!|
0000e8c0 34 3d 34 35 0d 67 3e 23 c8 99 20 22 57 69 6d 70 |4=45.g>#.. "Wimp|
0000e8d0 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c |_GetIconState",,|
0000e8e0 62 6c 6f 63 6b 32 25 0d 67 48 17 6e 65 77 62 6c |block2%.gH.newbl|
0000e8f0 6f 63 6b 25 3d 62 6c 6f 63 6b 32 25 2b 34 0d 67 |ock%=block2%+4.g|
0000e900 52 15 6e 65 77 62 6c 6f 63 6b 25 21 30 3d 70 61 |R.newblock%!0=pa|
0000e910 6e 65 25 0d 67 5c 2d c8 99 20 22 57 69 6d 70 5f |ne%.g\-.. "Wimp_|
0000e920 55 70 64 61 74 65 57 69 6e 64 6f 77 22 2c 2c 6e |UpdateWindow",,n|
0000e930 65 77 62 6c 6f 63 6b 25 20 b8 20 66 66 6c 61 67 |ewblock% . fflag|
0000e940 0d 67 66 0c c8 95 20 66 66 6c 61 67 0d 67 70 39 |.gf... fflag.gp9|
0000e950 c8 99 20 22 43 6f 6c 6f 75 72 54 72 61 6e 73 5f |.. "ColourTrans_|
0000e960 53 65 74 47 43 4f 4c 22 2c a4 74 6f 70 61 6c 28 |SetGCOL",.topal(|
0000e970 72 2c 67 2c 62 29 2c 2c 2c 25 31 30 30 30 30 30 |r,g,b),,,%100000|
0000e980 30 30 30 2c 30 0d 67 7a 27 c8 93 20 c8 90 20 62 |000,0.gz'.. .. b|
0000e990 74 6f 70 78 25 2b 32 33 34 2c 62 74 6f 70 79 25 |topx%+234,btopy%|
0000e9a0 2d 31 30 33 36 2c 32 33 34 2c 33 38 0d 67 84 2d |-1036,234,38.g.-|
0000e9b0 c8 99 20 22 57 69 6d 70 5f 47 65 74 52 65 63 74 |.. "Wimp_GetRect|
0000e9c0 61 6e 67 6c 65 22 2c 2c 6e 65 77 62 6c 6f 63 6b |angle",,newblock|
0000e9d0 25 20 b8 20 66 66 6c 61 67 0d 67 8e 05 ce 0d 67 |% . fflag.g....g|
0000e9e0 98 05 cc 0d 67 a2 39 c8 99 20 22 43 6f 6c 6f 75 |....g.9.. "Colou|
0000e9f0 72 54 72 61 6e 73 5f 53 65 74 47 43 4f 4c 22 2c |rTrans_SetGCOL",|
0000ea00 a4 74 6f 70 61 6c 28 72 2c 67 2c 62 29 2c 2c 2c |.topal(r,g,b),,,|
0000ea10 25 31 30 30 30 30 30 30 30 30 2c 30 0d 67 ac 27 |%100000000,0.g.'|
0000ea20 c8 93 20 c8 90 20 62 74 6f 70 78 25 2b 32 33 34 |.. .. btopx%+234|
0000ea30 2c 62 74 6f 70 79 25 2d 31 30 33 36 2c 32 33 34 |,btopy%-1036,234|
0000ea40 2c 33 38 0d 67 b6 05 cd 0d 67 c0 05 e1 0d 67 ca |,38.g....g....g.|
0000ea50 05 3a 0d 67 d4 14 dd f2 64 6f 74 69 74 6c 65 28 |.:.g....dotitle(|
0000ea60 66 75 6e 6e 79 29 0d 67 de 19 f2 63 65 6e 74 72 |funny).g...centr|
0000ea70 65 77 69 6e 64 6f 77 28 74 69 74 6c 65 25 29 0d |ewindow(title%).|
0000ea80 67 e8 2d c8 99 20 26 30 30 30 34 30 30 43 37 2c |g.-.. &000400C7,|
0000ea90 30 2c 62 6c 6f 63 6b 32 25 20 b8 20 72 65 61 73 |0,block2% . reas|
0000eaa0 6f 6e 32 25 2c 62 6c 6f 63 6b 32 25 0d 67 f2 07 |on2%,block2%.g..|
0000eab0 74 3d 91 0d 67 fc 05 f5 0d 68 06 0f fd 20 91 3e |t=..g....h... .>|
0000eac0 74 2b 66 75 6e 6e 79 0d 68 10 18 f2 63 6c 6f 73 |t+funny.h...clos|
0000ead0 65 77 69 6e 64 6f 77 28 74 69 74 6c 65 25 29 0d |ewindow(title%).|
0000eae0 68 1a 05 e1 0d 68 24 05 3a 0d 68 2e 11 dd f2 69 |h....h$.:.h....i|
0000eaf0 6e 69 74 73 70 72 69 74 65 73 0d 68 38 2b c8 99 |nitsprites.h8+..|
0000eb00 20 22 4f 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 | "OS_ReadModeVar|
0000eb10 69 61 62 6c 65 22 2c 2d 31 2c 35 20 b8 20 2c 2c |iable",-1,5 . ,,|
0000eb20 79 65 69 67 25 0d 68 42 35 e7 20 79 65 69 67 25 |yeig%.hB5. yeig%|
0000eb30 3c 32 20 8c 20 73 70 72 69 74 65 24 3d 22 53 70 |<2 . sprite$="Sp|
0000eb40 72 69 74 65 73 22 20 8b 20 73 70 72 69 74 65 24 |rites" . sprite$|
0000eb50 3d 22 53 70 72 69 74 65 73 22 0d 68 4c 3c c8 99 |="Sprites".hL<..|
0000eb60 20 22 4f 53 5f 46 69 6c 65 22 2c 31 37 2c 22 3c | "OS_File",17,"<|
0000eb70 54 72 65 65 24 44 69 72 3e 2e 22 2b 73 70 72 69 |Tree$Dir>."+spri|
0000eb80 74 65 24 20 b8 20 74 79 70 65 25 2c 2c 2c 2c 6c |te$ . type%,,,,l|
0000eb90 65 6e 67 74 68 25 0d 68 56 17 de 20 73 70 72 69 |ength%.hV.. spri|
0000eba0 74 65 25 20 6c 65 6e 67 74 68 25 2b 34 0d 68 60 |te% length%+4.h`|
0000ebb0 16 21 73 70 72 69 74 65 25 3d 6c 65 6e 67 74 68 |.!sprite%=length|
0000ebc0 25 2b 34 0d 68 6a 36 c8 99 20 22 4f 53 5f 53 70 |%+4.hj6.. "OS_Sp|
0000ebd0 72 69 74 65 4f 70 22 2c 32 36 36 2c 73 70 72 69 |riteOp",266,spri|
0000ebe0 74 65 25 2c 22 3c 54 72 65 65 24 44 69 72 3e 2e |te%,"<Tree$Dir>.|
0000ebf0 22 2b 73 70 72 69 74 65 24 0d 68 74 05 e1 0d 68 |"+sprite$.ht...h|
0000ec00 7e 05 3a 0d 68 88 18 dd f2 63 65 6e 74 72 65 77 |~.:.h....centrew|
0000ec10 69 6e 64 6f 77 28 77 69 6e 25 29 0d 68 92 23 c8 |indow(win%).h.#.|
0000ec20 99 20 26 30 30 30 30 30 30 33 35 2c eb 2c 31 31 |. &00000035,.,11|
0000ec30 20 b8 20 2c 2c 78 70 69 78 6c 69 6d 69 74 0d 68 | . ,,xpixlimit.h|
0000ec40 9c 23 c8 99 20 26 30 30 30 30 30 30 33 35 2c eb |.#.. &00000035,.|
0000ec50 2c 31 32 20 b8 20 2c 2c 79 70 69 78 6c 69 6d 69 |,12 . ,,ypixlimi|
0000ec60 74 0d 68 a6 1e c8 99 20 26 30 30 30 30 30 30 33 |t.h.... &0000003|
0000ec70 35 2c eb 2c 34 20 b8 20 2c 2c 78 66 61 63 74 0d |5,.,4 . ,,xfact.|
0000ec80 68 b0 1e c8 99 20 26 30 30 30 30 30 30 33 35 2c |h.... &00000035,|
0000ec90 eb 2c 35 20 b8 20 2c 2c 79 66 61 63 74 0d 68 ba |.,5 . ,,yfact.h.|
0000eca0 1d 6d 61 78 58 3d 28 78 70 69 78 6c 69 6d 69 74 |.maxX=(xpixlimit|
0000ecb0 2b 31 29 3c 3c 78 66 61 63 74 0d 68 c4 1d 6d 61 |+1)<<xfact.h..ma|
0000ecc0 78 59 3d 28 79 70 69 78 6c 69 6d 69 74 2b 31 29 |xY=(ypixlimit+1)|
0000ecd0 3c 3c 79 66 61 63 74 0d 68 ce 05 3a 0d 68 d8 11 |<<yfact.h..:.h..|
0000ece0 62 6c 6f 63 6b 25 21 30 3d 77 69 6e 25 0d 68 e2 |block%!0=win%.h.|
0000ecf0 18 c8 99 20 26 30 30 30 34 30 30 43 42 2c 2c 62 |... &000400CB,,b|
0000ed00 6c 6f 63 6b 25 0d 68 ec 05 3a 0d 68 f6 17 e7 20 |lock%.h..:.h... |
0000ed10 ac 20 a4 69 73 6f 70 65 6e 28 77 69 6e 25 29 20 |. .isopen(win%) |
0000ed20 8c 0d 69 00 1a 77 78 25 3d 62 6c 6f 63 6b 25 21 |..i..wx%=block%!|
0000ed30 31 32 2d 62 6c 6f 63 6b 25 21 34 0d 69 0a 10 77 |12-block%!4.i..w|
0000ed40 78 32 25 3d 77 78 25 20 81 20 32 0d 69 14 0f 63 |x2%=wx% . 2.i..c|
0000ed50 58 3d 6d 61 78 58 20 81 20 32 0d 69 1e 14 62 6c |X=maxX . 2.i..bl|
0000ed60 6f 63 6b 25 21 34 3d 63 58 2d 77 78 32 25 0d 69 |ock%!4=cX-wx2%.i|
0000ed70 28 1a 62 6c 6f 63 6b 25 21 31 32 3d 62 6c 6f 63 |(.block%!12=bloc|
0000ed80 6b 25 21 34 2b 77 78 25 0d 69 32 1a 77 79 25 3d |k%!4+wx%.i2.wy%=|
0000ed90 62 6c 6f 63 6b 25 21 31 36 2d 62 6c 6f 63 6b 25 |block%!16-block%|
0000eda0 21 38 0d 69 3c 10 77 79 32 25 3d 77 79 25 20 81 |!8.i<.wy2%=wy% .|
0000edb0 20 32 0d 69 46 0f 63 59 3d 6d 61 78 59 20 81 20 | 2.iF.cY=maxY . |
0000edc0 32 0d 69 50 14 62 6c 6f 63 6b 25 21 38 3d 63 59 |2.iP.block%!8=cY|
0000edd0 2d 77 79 32 25 0d 69 5a 1a 62 6c 6f 63 6b 25 21 |-wy2%.iZ.block%!|
0000ede0 31 36 3d 62 6c 6f 63 6b 25 21 38 2b 77 79 25 0d |16=block%!8+wy%.|
0000edf0 69 64 05 cd 0d 69 6e 05 3a 0d 69 78 18 c8 99 20 |id...in.:.ix... |
0000ee00 26 30 30 30 34 30 30 43 35 2c 2c 62 6c 6f 63 6b |&000400C5,,block|
0000ee10 25 0d 69 82 05 e1 0d 69 8c 05 3a 0d 69 96 10 dd |%.i....i..:.i...|
0000ee20 f2 64 72 61 67 6d 79 66 69 6c 65 0d 69 a0 17 f2 |.dragmyfile.i...|
0000ee30 67 65 74 76 61 72 73 28 69 63 6f 6e 25 2d 31 2c |getvars(icon%-1,|
0000ee40 a3 29 0d 69 aa 10 66 74 79 25 3d 74 79 70 65 25 |.).i..fty%=type%|
0000ee50 21 30 0d 69 b4 1a 74 65 6d 70 24 3d a4 67 4c 6e |!0.i..temp$=.gLn|
0000ee60 28 24 66 69 6c 65 6e 61 6d 65 25 29 0d 69 be 1b |($filename%).i..|
0000ee70 e7 20 66 74 79 25 3e 26 46 46 46 20 84 20 66 74 |. fty%>&FFF . ft|
0000ee80 79 25 3c 26 30 20 8c 0d 69 c8 17 20 20 e7 20 c0 |y%<&0 ..i.. . .|
0000ee90 74 65 6d 70 24 2c 31 29 3d 22 21 22 20 8c 0d 69 |temp$,1)="!" ..i|
0000eea0 d2 14 20 20 20 20 76 61 6c 69 64 24 3d 74 65 6d |.. valid$=tem|
0000eeb0 70 24 0d 69 dc 38 20 20 20 20 e7 20 ac 20 a4 73 |p$.i.8 . . .s|
0000eec0 70 72 69 74 65 65 78 69 73 74 73 28 76 61 6c 69 |priteexists(vali|
0000eed0 64 24 29 20 8c 20 76 61 6c 69 64 24 3d 22 61 70 |d$) . valid$="ap|
0000eee0 70 6c 69 63 61 74 69 6f 6e 22 0d 69 e6 07 20 20 |plication".i.. |
0000eef0 cc 0d 69 f0 1a 20 20 20 20 76 61 6c 69 64 24 3d |..i.. valid$=|
0000ef00 22 64 69 72 65 63 74 6f 72 79 22 0d 69 fa 07 20 |"directory".i.. |
0000ef10 20 cd 0d 6a 04 05 cc 0d 6a 0e 1f 20 20 76 61 6c | ..j....j.. val|
0000ef20 69 64 24 3d 22 66 69 6c 65 5f 22 2b a4 70 61 64 |id$="file_"+.pad|
0000ef30 28 66 74 79 25 29 0d 6a 18 05 cd 0d 6a 22 39 e7 |(fty%).j....j"9.|
0000ef40 20 74 79 70 65 25 21 30 3d 2d 32 20 80 20 76 61 | type%!0=-2 . va|
0000ef50 6c 69 64 24 3d 22 64 69 72 65 63 74 6f 72 79 22 |lid$="directory"|
0000ef60 20 8c 20 76 61 6c 69 64 24 3d 22 66 69 6c 65 5f | . valid$="file_|
0000ef70 78 78 78 22 0d 6a 2c 31 e7 20 ac 20 a4 73 70 72 |xxx".j,1. . .spr|
0000ef80 69 74 65 65 78 69 73 74 73 28 76 61 6c 69 64 24 |iteexists(valid$|
0000ef90 29 20 8c 20 76 61 6c 69 64 24 3d 22 66 69 6c 65 |) . valid$="file|
0000efa0 5f 78 78 78 22 0d 6a 36 05 3a 0d 6a 40 0c f2 73 |_xxx".j6.:.j@..s|
0000efb0 75 62 73 70 72 33 0d 6a 4a 1e c8 99 20 26 30 30 |ubspr3.jJ... &00|
0000efc0 30 30 30 30 33 35 2c eb 2c 34 20 b8 20 2c 2c 78 |000035,.,4 . ,,x|
0000efd0 66 61 63 74 0d 6a 54 1e c8 99 20 26 30 30 30 30 |fact.jT... &0000|
0000efe0 30 30 33 35 2c eb 2c 35 20 b8 20 2c 2c 79 66 61 |0035,.,5 . ,,yfa|
0000eff0 63 74 0d 6a 5e 17 77 70 69 78 25 3d 77 70 69 78 |ct.j^.wpix%=wpix|
0000f000 32 25 3c 3c 78 66 61 63 74 0d 6a 68 17 68 70 69 |2%<<xfact.jh.hpi|
0000f010 78 25 3d 68 70 69 78 32 25 3c 3c 79 66 61 63 74 |x%=hpix2%<<yfact|
0000f020 0d 6a 72 05 3a 0d 6a 7c 1b 62 6c 6f 63 6b 25 21 |.jr.:.j|.block%!|
0000f030 30 3d 78 25 2d 28 77 70 69 78 25 20 81 20 32 29 |0=x%-(wpix% . 2)|
0000f040 0d 6a 86 1b 62 6c 6f 63 6b 25 21 34 3d 79 25 2d |.j..block%!4=y%-|
0000f050 28 68 70 69 78 25 20 81 20 32 29 0d 6a 90 1b 62 |(hpix% . 2).j..b|
0000f060 6c 6f 63 6b 25 21 38 3d 62 6c 6f 63 6b 25 21 30 |lock%!8=block%!0|
0000f070 2b 77 70 69 78 25 0d 6a 9a 1c 62 6c 6f 63 6b 25 |+wpix%.j..block%|
0000f080 21 31 32 3d 62 6c 6f 63 6b 25 21 34 2b 68 70 69 |!12=block%!4+hpi|
0000f090 78 25 0d 6a a4 05 3a 0d 6a ae 3a c8 99 20 22 44 |x%.j..:.j.:.. "D|
0000f0a0 72 61 67 41 53 70 72 69 74 65 5f 53 74 61 72 74 |ragASprite_Start|
0000f0b0 22 2c 25 31 31 30 30 30 31 30 31 2c 6e 65 77 61 |",%11000101,newa|
0000f0c0 72 65 61 2c 76 61 6c 69 64 24 2c 62 6c 6f 63 6b |rea,valid$,block|
0000f0d0 25 0d 6a b8 15 6c 61 73 74 77 69 6e 64 6f 77 25 |%.j..lastwindow%|
0000f0e0 3d 6d 61 69 6e 25 0d 6a c2 05 e1 0d 6a cc 05 3a |=main%.j....j..:|
0000f0f0 0d 6a d6 0d dd f2 73 75 62 73 70 72 33 0d 6a e0 |.j....subspr3.j.|
0000f100 07 ea 20 85 0d 6a ea 1e ee 20 85 20 ea 20 e7 20 |.. ..j... . . . |
0000f110 9f 3d 31 33 34 20 8c 20 f2 73 75 62 73 70 72 34 |.=134 . .subspr4|
0000f120 3a e1 0d 6a f4 17 c8 99 20 26 34 30 30 45 41 20 |:..j.... &400EA |
0000f130 b8 20 6e 65 77 61 72 65 61 0d 6a fe 33 c8 99 20 |. newarea.j.3.. |
0000f140 26 32 65 2c 32 35 36 2b 34 30 2c 6e 65 77 61 72 |&2e,256+40,newar|
0000f150 65 61 2c 76 61 6c 69 64 24 20 b8 20 2c 2c 2c 77 |ea,valid$ . ,,,w|
0000f160 70 69 78 32 25 2c 68 70 69 78 32 25 0d 6b 08 05 |pix2%,hpix2%.k..|
0000f170 e1 0d 6b 12 05 3a 0d 6b 1c 0d dd f2 73 75 62 73 |..k..:.k....subs|
0000f180 70 72 34 0d 6b 26 07 ea 20 85 0d 6b 30 10 ee 20 |pr4.k&.. ..k0.. |
0000f190 85 20 ea 20 85 20 30 2c f6 24 0d 6b 3a 18 c8 99 |. . . 0,.$.k:...|
0000f1a0 20 26 34 30 30 65 61 20 b8 20 2c 6e 65 77 61 72 | &400ea . ,newar|
0000f1b0 65 61 0d 6b 44 33 c8 99 20 26 32 65 2c 32 35 36 |ea.kD3.. &2e,256|
0000f1c0 2b 34 30 2c 6e 65 77 61 72 65 61 2c 76 61 6c 69 |+40,newarea,vali|
0000f1d0 64 24 20 b8 20 2c 2c 2c 77 70 69 78 32 25 2c 68 |d$ . ,,,wpix2%,h|
0000f1e0 70 69 78 32 25 0d 6b 4e 05 e1 0d 6b 58 05 3a 0d |pix2%.kN...kX.:.|
0000f1f0 6b 62 11 dd f2 64 69 72 73 28 69 6e 66 6c 67 29 |kb...dirs(inflg)|
0000f200 0d 6b 6c 0e e7 20 69 69 69 25 3e 30 20 8c 0d 6b |.kl.. iii%>0 ..k|
0000f210 76 17 20 20 c8 99 20 22 48 6f 75 72 67 6c 61 73 |v. .. "Hourglas|
0000f220 73 5f 4f 6e 22 0d 6b 80 0f 20 20 e7 20 66 64 69 |s_On".k.. . fdi|
0000f230 72 73 20 8c 0d 6b 8a 18 20 20 20 20 e3 20 73 6d |rs ..k.. . sm|
0000f240 65 67 25 3d 31 20 b8 20 69 69 69 25 0d 6b 94 38 |eg%=1 . iii%.k.8|
0000f250 20 20 20 20 20 20 e7 20 69 69 69 25 2d 31 3c 3e | . iii%-1<>|
0000f260 30 20 8c 20 c8 99 26 30 30 30 34 30 36 43 34 2c |0 . ..&000406C4,|
0000f270 28 73 6d 65 67 25 2f 28 69 69 69 25 2d 31 29 29 |(smeg%/(iii%-1))|
0000f280 2a 31 30 30 0d 6b 9e 1f 20 20 20 20 20 20 20 20 |*100.k.. |
0000f290 f2 67 65 74 76 61 72 73 28 73 6d 65 67 25 2d 31 |.getvars(smeg%-1|
0000f2a0 2c a3 29 0d 6b a8 2f 20 20 20 20 20 20 20 20 e7 |,.).k./ .|
0000f2b0 20 74 79 70 65 25 21 30 3c 3e 2d 31 20 8c 20 f2 | type%!0<>-1 . .|
0000f2c0 73 69 63 6f 6e 28 6d 61 69 6e 25 2c 73 6d 65 67 |sicon(main%,smeg|
0000f2d0 25 29 0d 6b b2 10 20 20 20 20 20 20 ed 73 6d 65 |%).k.. .sme|
0000f2e0 67 25 0d 6b bc 09 20 20 20 20 cc 0d 6b c6 13 20 |g%.k.. ..k.. |
0000f2f0 20 20 20 20 20 e7 20 69 6e 66 6c 67 20 8c 0d 6b | . inflg ..k|
0000f300 d0 1c 20 20 20 20 20 20 20 20 e3 20 73 6d 65 67 |.. . smeg|
0000f310 25 3d 31 20 b8 20 69 69 69 25 0d 6b da 3c 20 20 |%=1 . iii%.k.< |
0000f320 20 20 20 20 20 20 20 20 e7 20 69 69 69 25 2d 31 | . iii%-1|
0000f330 3c 3e 30 20 8c 20 c8 99 26 30 30 30 34 30 36 43 |<>0 . ..&000406C|
0000f340 34 2c 28 73 6d 65 67 25 2f 28 69 69 69 25 2d 31 |4,(smeg%/(iii%-1|
0000f350 29 29 2a 31 30 30 0d 6b e4 21 20 20 20 20 20 20 |))*100.k.! |
0000f360 20 20 20 20 f2 67 65 74 76 61 72 73 28 73 6d 65 | .getvars(sme|
0000f370 67 25 2d 31 2c a3 29 0d 6b ee 32 20 20 20 20 20 |g%-1,.).k.2 |
0000f380 20 20 20 20 20 e7 20 74 79 70 65 25 21 30 3c 3e | . type%!0<>|
0000f390 2d 31 20 8c 20 f2 75 73 69 63 6f 6e 28 6d 61 69 |-1 . .usicon(mai|
0000f3a0 6e 25 2c 73 6d 65 67 25 29 0d 6b f8 12 20 20 20 |n%,smeg%).k.. |
0000f3b0 20 20 20 20 20 ed 73 6d 65 67 25 0d 6c 02 0b 20 | .smeg%.l.. |
0000f3c0 20 20 20 20 20 cd 0d 6c 0c 09 20 20 20 20 cd 0d | ..l.. ..|
0000f3d0 6c 16 1a 20 20 c8 99 20 22 48 6f 75 72 67 6c 61 |l.. .. "Hourgla|
0000f3e0 73 73 5f 53 6d 61 73 68 22 0d 6c 20 05 cd 0d 6c |ss_Smash".l ...l|
0000f3f0 2a 05 e1 0d 6c 34 05 3a 0d 6c 3e 10 dd f2 6f 70 |*...l4.:.l>...op|
0000f400 65 6e 73 65 61 72 63 68 0d 6c 48 1d 63 75 72 73 |ensearch.lH.curs|
0000f410 65 61 72 63 68 3d 63 75 72 72 65 6e 74 73 65 61 |earch=currentsea|
0000f420 72 63 68 2d 31 0d 6c 52 3a e7 20 63 75 72 73 65 |rch-1.lR:. curse|
0000f430 61 72 63 68 3d 30 20 8c 20 f2 73 69 63 6f 6e 28 |arch=0 . .sicon(|
0000f440 73 65 61 72 63 68 25 2c 34 29 20 8b 20 f2 75 73 |search%,4) . .us|
0000f450 69 63 6f 6e 28 73 65 61 72 63 68 25 2c 34 29 0d |icon(search%,4).|
0000f460 6c 5c 3f e7 20 63 75 72 73 65 61 72 63 68 3d 69 |l\?. cursearch=i|
0000f470 69 69 25 2d 31 20 8c 20 f2 73 69 63 6f 6e 28 73 |ii%-1 . .sicon(s|
0000f480 65 61 72 63 68 25 2c 35 29 20 8b 20 f2 75 73 69 |earch%,5) . .usi|
0000f490 63 6f 6e 28 73 65 61 72 63 68 25 2c 35 29 0d 6c |con(search%,5).l|
0000f4a0 66 19 f2 67 65 74 76 61 72 73 28 63 75 72 73 65 |f..getvars(curse|
0000f4b0 61 72 63 68 2c a3 29 0d 6c 70 2c f2 69 63 6f 6e |arch,.).lp,.icon|
0000f4c0 70 75 74 74 65 78 74 28 73 65 61 72 63 68 25 2c |puttext(search%,|
0000f4d0 38 2c a4 67 4c 6e 28 24 66 69 6c 65 6e 61 6d 65 |8,.gLn($filename|
0000f4e0 25 29 29 0d 6c 7a 1a e7 20 ac 20 a4 69 73 6f 70 |%)).lz.. . .isop|
0000f4f0 65 6e 28 73 65 61 72 63 68 25 29 20 8c 0d 6c 84 |en(search%) ..l.|
0000f500 0e 63 61 73 65 73 65 6e 73 3d a3 0d 6c 8e 19 f2 |.casesens=..l...|
0000f510 75 73 65 6c 69 63 6f 6e 28 73 65 61 72 63 68 25 |uselicon(search%|
0000f520 2c 31 31 29 0d 6c 98 10 73 65 61 72 63 68 66 69 |,11).l..searchfi|
0000f530 6c 65 3d b9 0d 6c a2 10 73 65 61 72 63 68 74 79 |le=..l..searchty|
0000f540 70 65 3d a3 0d 6c ac 17 f2 73 65 6c 69 63 6f 6e |pe=..l...selicon|
0000f550 28 73 65 61 72 63 68 25 2c 30 29 0d 6c b6 18 f2 |(search%,0).l...|
0000f560 75 73 65 6c 69 63 6f 6e 28 73 65 61 72 63 68 25 |uselicon(search%|
0000f570 2c 31 29 0d 6c c0 16 f2 75 73 69 63 6f 6e 28 73 |,1).l...usicon(s|
0000f580 65 61 72 63 68 25 2c 32 29 0d 6c ca 15 f2 73 69 |earch%,2).l...si|
0000f590 63 6f 6e 28 73 65 61 72 63 68 25 2c 33 29 0d 6c |con(search%,3).l|
0000f5a0 d4 1e f2 69 63 6f 6e 70 75 74 74 65 78 74 28 73 |...iconputtext(s|
0000f5b0 65 61 72 63 68 25 2c 32 2c 22 22 29 0d 6c de 1e |earch%,2,"").l..|
0000f5c0 f2 69 63 6f 6e 70 75 74 74 65 78 74 28 73 65 61 |.iconputtext(sea|
0000f5d0 72 63 68 25 2c 33 2c 22 22 29 0d 6c e8 1e f4 50 |rch%,3,"").l...P|
0000f5e0 52 4f 43 63 65 6e 74 72 65 77 69 6e 64 6f 77 28 |ROCcentrewindow(|
0000f5f0 73 65 61 72 63 68 25 29 0d 6c f2 13 73 65 61 72 |search%).l..sear|
0000f600 63 68 77 69 6e 64 6f 77 25 3d b9 0d 6c fc 18 f2 |chwindow%=..l...|
0000f610 6f 70 65 6e 77 69 6e 64 6f 77 28 6d 61 69 6e 25 |openwindow(main%|
0000f620 2c a3 29 0d 6d 06 05 cd 0d 6d 10 05 e1 0d 6d 1a |,.).m....m....m.|
0000f630 05 3a 0d 6d 24 16 dd f2 63 6c 69 63 6b 73 65 61 |.:.m$...clicksea|
0000f640 72 63 68 28 69 63 25 29 0d 6d 2e 0c c8 8e 20 69 |rch(ic%).m.... i|
0000f650 63 25 20 ca 0d 6d 38 08 c9 20 31 34 0d 6d 42 19 |c% ..m8.. 14.mB.|
0000f660 f2 63 6c 6f 73 65 77 69 6e 64 6f 77 28 73 65 61 |.closewindow(sea|
0000f670 72 63 68 25 29 0d 6d 4c 0b c9 20 31 31 2c 31 32 |rch%).mL.. 11,12|
0000f680 0d 6d 56 17 63 61 73 65 73 65 6e 73 3d ac 20 63 |.mV.casesens=. c|
0000f690 61 73 65 73 65 6e 73 0d 6d 60 10 e7 20 63 61 73 |asesens.m`.. cas|
0000f6a0 65 73 65 6e 73 20 8c 0d 6d 6a 18 f2 73 65 6c 69 |esens ..mj..seli|
0000f6b0 63 6f 6e 28 73 65 61 72 63 68 25 2c 31 31 29 0d |con(search%,11).|
0000f6c0 6d 74 05 cc 0d 6d 7e 19 f2 75 73 65 6c 69 63 6f |mt...m~..uselico|
0000f6d0 6e 28 73 65 61 72 63 68 25 2c 31 31 29 0d 6d 88 |n(search%,11).m.|
0000f6e0 05 cd 0d 6d 92 07 c9 20 30 0d 6d 9c 12 e7 20 73 |...m... 0.m... s|
0000f6f0 65 61 72 63 68 74 79 70 65 20 8c 0d 6d a6 1b 73 |earchtype ..m..s|
0000f700 65 61 72 63 68 66 69 6c 65 3d ac 20 73 65 61 72 |earchfile=. sear|
0000f710 63 68 66 69 6c 65 0d 6d b0 05 cd 0d 6d ba 12 e7 |chfile.m....m...|
0000f720 20 73 65 61 72 63 68 66 69 6c 65 20 8c 0d 6d c4 | searchfile ..m.|
0000f730 17 f2 73 65 6c 69 63 6f 6e 28 73 65 61 72 63 68 |..selicon(search|
0000f740 25 2c 30 29 0d 6d ce 16 f2 75 73 69 63 6f 6e 28 |%,0).m...usicon(|
0000f750 73 65 61 72 63 68 25 2c 32 29 0d 6d d8 31 f2 69 |search%,2).m.1.i|
0000f760 63 6f 6e 63 61 72 65 74 28 73 65 61 72 63 68 25 |concaret(search%|
0000f770 2c 32 2c a9 28 a4 69 63 6f 6e 74 65 78 74 28 73 |,2,.(.icontext(s|
0000f780 65 61 72 63 68 25 2c 32 29 29 29 0d 6d e2 05 cc |earch%,2))).m...|
0000f790 0d 6d ec 18 f2 75 73 65 6c 69 63 6f 6e 28 73 65 |.m...uselicon(se|
0000f7a0 61 72 63 68 25 2c 30 29 0d 6d f6 15 f2 73 69 63 |arch%,0).m...sic|
0000f7b0 6f 6e 28 73 65 61 72 63 68 25 2c 32 29 0d 6e 00 |on(search%,2).n.|
0000f7c0 31 f2 69 63 6f 6e 63 61 72 65 74 28 73 65 61 72 |1.iconcaret(sear|
0000f7d0 63 68 25 2c 33 2c a9 28 a4 69 63 6f 6e 74 65 78 |ch%,3,.(.icontex|
0000f7e0 74 28 73 65 61 72 63 68 25 2c 33 29 29 29 0d 6e |t(search%,3))).n|
0000f7f0 0a 05 cd 0d 6e 14 07 c9 20 31 0d 6e 1e 12 e7 20 |....n... 1.n... |
0000f800 73 65 61 72 63 68 66 69 6c 65 20 8c 0d 6e 28 1b |searchfile ..n(.|
0000f810 73 65 61 72 63 68 74 79 70 65 3d ac 20 73 65 61 |searchtype=. sea|
0000f820 72 63 68 74 79 70 65 0d 6e 32 05 cd 0d 6e 3c 12 |rchtype.n2...n<.|
0000f830 e7 20 73 65 61 72 63 68 74 79 70 65 20 8c 0d 6e |. searchtype ..n|
0000f840 46 17 f2 73 65 6c 69 63 6f 6e 28 73 65 61 72 63 |F..selicon(searc|
0000f850 68 25 2c 31 29 0d 6e 50 16 f2 75 73 69 63 6f 6e |h%,1).nP..usicon|
0000f860 28 73 65 61 72 63 68 25 2c 33 29 0d 6e 5a 31 f2 |(search%,3).nZ1.|
0000f870 69 63 6f 6e 63 61 72 65 74 28 73 65 61 72 63 68 |iconcaret(search|
0000f880 25 2c 33 2c a9 28 a4 69 63 6f 6e 74 65 78 74 28 |%,3,.(.icontext(|
0000f890 73 65 61 72 63 68 25 2c 33 29 29 29 0d 6e 64 05 |search%,3))).nd.|
0000f8a0 cc 0d 6e 6e 18 f2 75 73 65 6c 69 63 6f 6e 28 73 |..nn..uselicon(s|
0000f8b0 65 61 72 63 68 25 2c 31 29 0d 6e 78 15 f2 73 69 |earch%,1).nx..si|
0000f8c0 63 6f 6e 28 73 65 61 72 63 68 25 2c 33 29 0d 6e |con(search%,3).n|
0000f8d0 82 31 f2 69 63 6f 6e 63 61 72 65 74 28 73 65 61 |.1.iconcaret(sea|
0000f8e0 72 63 68 25 2c 32 2c a9 28 a4 69 63 6f 6e 74 65 |rch%,2,.(.iconte|
0000f8f0 78 74 28 73 65 61 72 63 68 25 2c 32 29 29 29 0d |xt(search%,2))).|
0000f900 6e 8c 05 cd 0d 6e 96 07 c9 20 34 0d 6e a0 6c e7 |n....n... 4.n.l.|
0000f910 20 73 65 61 72 63 68 66 69 6c 65 20 80 20 a4 69 | searchfile . .i|
0000f920 63 6f 6e 74 65 78 74 28 73 65 61 72 63 68 25 2c |context(search%,|
0000f930 32 29 3d 22 22 20 8c 20 f2 61 6c 65 72 74 28 22 |2)="" . .alert("|
0000f940 4d 65 73 73 61 67 65 20 66 72 6f 6d 20 54 72 65 |Message from Tre|
0000f950 65 22 2c 22 50 6c 65 61 73 65 20 65 6e 74 65 72 |e","Please enter|
0000f960 20 61 20 73 65 61 72 63 68 20 66 69 6c 65 6e 61 | a search filena|
0000f970 6d 65 2e 22 2c 30 29 0d 6e aa 6c e7 20 73 65 61 |me.",0).n.l. sea|
0000f980 72 63 68 74 79 70 65 20 80 20 a4 69 63 6f 6e 74 |rchtype . .icont|
0000f990 65 78 74 28 73 65 61 72 63 68 25 2c 33 29 3d 22 |ext(search%,3)="|
0000f9a0 22 20 8c 20 f2 61 6c 65 72 74 28 22 4d 65 73 73 |" . .alert("Mess|
0000f9b0 61 67 65 20 66 72 6f 6d 20 54 72 65 65 22 2c 22 |age from Tree","|
0000f9c0 50 6c 65 61 73 65 20 65 6e 74 65 72 20 61 20 73 |Please enter a s|
0000f9d0 65 61 72 63 68 20 66 69 6c 65 74 79 70 65 2e 22 |earch filetype."|
0000f9e0 2c 30 29 0d 6e b4 98 e7 20 28 73 65 61 72 63 68 |,0).n... (search|
0000f9f0 66 69 6c 65 20 80 20 a4 69 63 6f 6e 74 65 78 74 |file . .icontext|
0000fa00 28 73 65 61 72 63 68 25 2c 32 29 3c 3e 22 22 29 |(search%,2)<>"")|
0000fa10 20 84 20 28 73 65 61 72 63 68 74 79 70 65 20 80 | . (searchtype .|
0000fa20 20 a4 69 63 6f 6e 74 65 78 74 28 73 65 61 72 63 | .icontext(searc|
0000fa30 68 25 2c 33 29 3c 3e 22 22 29 20 8c 20 f2 73 65 |h%,3)<>"") . .se|
0000fa40 61 72 63 68 75 70 28 63 75 72 73 65 61 72 63 68 |archup(cursearch|
0000fa50 2c a4 69 63 6f 6e 74 65 78 74 28 73 65 61 72 63 |,.icontext(searc|
0000fa60 68 25 2c 32 29 2c a4 69 63 6f 6e 74 65 78 74 28 |h%,2),.icontext(|
0000fa70 73 65 61 72 63 68 25 2c 33 29 29 0d 6e be 07 c9 |search%,3)).n...|
0000fa80 20 35 0d 6e c8 6c e7 20 73 65 61 72 63 68 66 69 | 5.n.l. searchfi|
0000fa90 6c 65 20 80 20 a4 69 63 6f 6e 74 65 78 74 28 73 |le . .icontext(s|
0000faa0 65 61 72 63 68 25 2c 32 29 3d 22 22 20 8c 20 f2 |earch%,2)="" . .|
0000fab0 61 6c 65 72 74 28 22 4d 65 73 73 61 67 65 20 66 |alert("Message f|
0000fac0 72 6f 6d 20 54 72 65 65 22 2c 22 50 6c 65 61 73 |rom Tree","Pleas|
0000fad0 65 20 65 6e 74 65 72 20 61 20 73 65 61 72 63 68 |e enter a search|
0000fae0 20 66 69 6c 65 6e 61 6d 65 2e 22 2c 30 29 0d 6e | filename.",0).n|
0000faf0 d2 6c e7 20 73 65 61 72 63 68 74 79 70 65 20 80 |.l. searchtype .|
0000fb00 20 a4 69 63 6f 6e 74 65 78 74 28 73 65 61 72 63 | .icontext(searc|
0000fb10 68 25 2c 33 29 3d 22 22 20 8c 20 f2 61 6c 65 72 |h%,3)="" . .aler|
0000fb20 74 28 22 4d 65 73 73 61 67 65 20 66 72 6f 6d 20 |t("Message from |
0000fb30 54 72 65 65 22 2c 22 50 6c 65 61 73 65 20 65 6e |Tree","Please en|
0000fb40 74 65 72 20 61 20 73 65 61 72 63 68 20 66 69 6c |ter a search fil|
0000fb50 65 74 79 70 65 2e 22 2c 30 29 0d 6e dc 9a e7 20 |etype.",0).n... |
0000fb60 28 73 65 61 72 63 68 66 69 6c 65 20 80 20 a4 69 |(searchfile . .i|
0000fb70 63 6f 6e 74 65 78 74 28 73 65 61 72 63 68 25 2c |context(search%,|
0000fb80 32 29 3c 3e 22 22 29 20 84 20 28 73 65 61 72 63 |2)<>"") . (searc|
0000fb90 68 74 79 70 65 20 80 20 a4 69 63 6f 6e 74 65 78 |htype . .icontex|
0000fba0 74 28 73 65 61 72 63 68 25 2c 33 29 3c 3e 22 22 |t(search%,3)<>""|
0000fbb0 29 20 8c 20 f2 73 65 61 72 63 68 64 6f 77 6e 28 |) . .searchdown(|
0000fbc0 63 75 72 73 65 61 72 63 68 2c a4 69 63 6f 6e 74 |cursearch,.icont|
0000fbd0 65 78 74 28 73 65 61 72 63 68 25 2c 32 29 2c a4 |ext(search%,2),.|
0000fbe0 69 63 6f 6e 74 65 78 74 28 73 65 61 72 63 68 25 |icontext(search%|
0000fbf0 2c 33 29 29 0d 6e e6 05 cb 0d 6e f0 05 e1 0d 6e |,3)).n....n....n|
0000fc00 fa 05 3a 0d 6f 04 12 dd a4 69 73 6f 70 65 6e 28 |..:.o....isopen(|
0000fc10 77 69 6e 25 29 0d 6f 0e 12 62 6c 6f 63 6b 33 25 |win%).o..block3%|
0000fc20 21 30 3d 77 69 6e 25 0d 6f 18 25 c8 99 20 22 57 |!0=win%.o.%.. "W|
0000fc30 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 |imp_GetWindowSta|
0000fc40 74 65 22 2c 2c 62 6c 6f 63 6b 33 25 0d 6f 22 18 |te",,block3%.o".|
0000fc50 77 69 6e 66 6c 61 67 73 25 3d 62 6c 6f 63 6b 33 |winflags%=block3|
0000fc60 25 21 33 32 0d 6f 2c 30 e7 20 28 77 69 6e 66 6c |%!32.o,0. (winfl|
0000fc70 61 67 73 25 20 80 20 25 31 30 30 30 30 30 30 30 |ags% . %10000000|
0000fc80 30 30 30 30 30 30 30 30 30 29 20 3d 20 36 35 35 |000000000) = 655|
0000fc90 33 36 20 8c 0d 6f 36 06 3d b9 0d 6f 40 05 cc 0d |36 ..o6.=..o@...|
0000fca0 6f 4a 06 3d a3 0d 6f 54 05 cd 0d 6f 5e 05 3a 0d |oJ.=..oT...o^.:.|
0000fcb0 6f 68 18 dd f2 76 69 65 77 69 63 6f 6e 28 77 69 |oh...viewicon(wi|
0000fcc0 6e 25 2c 69 63 25 29 0d 6f 72 11 62 6c 6f 63 6b |n%,ic%).or.block|
0000fcd0 25 21 30 3d 77 69 6e 25 0d 6f 7c 10 62 6c 6f 63 |%!0=win%.o|.bloc|
0000fce0 6b 25 21 34 3d 69 63 25 0d 6f 86 22 c8 99 20 22 |k%!4=ic%.o.".. "|
0000fcf0 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 |Wimp_GetIconStat|
0000fd00 65 22 2c 2c 62 6c 6f 63 6b 25 0d 6f 90 2b 6d 69 |e",,block%.o.+mi|
0000fd10 64 64 6c 65 25 3d 62 6c 6f 63 6b 25 21 31 32 2b |ddle%=block%!12+|
0000fd20 28 62 6c 6f 63 6b 25 21 32 30 2d 62 6c 6f 63 6b |(block%!20-block|
0000fd30 25 21 31 32 29 0d 6f 9a 11 62 6c 6f 63 6b 25 21 |%!12).o..block%!|
0000fd40 30 3d 77 69 6e 25 0d 6f a4 24 c8 99 20 22 57 69 |0=win%.o.$.. "Wi|
0000fd50 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 |mp_GetWindowStat|
0000fd60 65 22 2c 2c 62 6c 6f 63 6b 25 0d 6f ae 30 62 6c |e",,block%.o.0bl|
0000fd70 6f 63 6b 25 21 32 34 3d 6d 69 64 64 6c 65 25 2b |ock%!24=middle%+|
0000fd80 28 28 62 6c 6f 63 6b 25 21 31 36 2d 62 6c 6f 63 |((block%!16-bloc|
0000fd90 6b 25 21 38 29 20 81 20 32 29 0d 6f b8 20 c8 99 |k%!8) . 2).o. ..|
0000fda0 20 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f | "Wimp_OpenWindo|
0000fdb0 77 22 2c 2c 62 6c 6f 63 6b 25 0d 6f c2 05 e1 0d |w",,block%.o....|
0000fdc0 6f cc 05 3a 0d 6f d6 2f dd f2 73 65 61 72 63 68 |o..:.o./..search|
0000fdd0 75 70 28 63 2c 73 65 61 72 63 68 73 74 72 69 6e |up(c,searchstrin|
0000fde0 67 31 24 2c 73 65 61 72 63 68 73 74 72 69 6e 67 |g1$,searchstring|
0000fdf0 32 24 29 0d 6f e0 24 73 75 62 73 65 61 72 63 68 |2$).o.$subsearch|
0000fe00 73 74 72 69 6e 67 31 24 3d 73 65 61 72 63 68 73 |string1$=searchs|
0000fe10 74 72 69 6e 67 31 24 0d 6f ea 24 73 75 62 73 65 |tring1$.o.$subse|
0000fe20 61 72 63 68 73 74 72 69 6e 67 32 24 3d 73 65 61 |archstring2$=sea|
0000fe30 72 63 68 73 74 72 69 6e 67 32 24 0d 6f f4 18 f2 |rchstring2$.o...|
0000fe40 75 73 65 6c 69 63 6f 6e 28 6d 61 69 6e 25 2c 63 |uselicon(main%,c|
0000fe50 2b 31 29 0d 6f fe 0c 66 6f 75 6e 64 3d 2d 31 0d |+1).o..found=-1.|
0000fe60 70 08 0e e7 20 63 2d 31 3e 3d 30 20 8c 0d 70 12 |p... c-1>=0 ..p.|
0000fe70 0d 73 6d 65 67 25 3d 63 2d 31 0d 70 1c 15 c8 99 |.smeg%=c-1.p....|
0000fe80 20 22 48 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 0d | "Hourglass_On".|
0000fe90 70 26 05 f5 0d 70 30 15 f2 67 65 74 76 61 72 73 |p&...p0..getvars|
0000fea0 28 73 6d 65 67 25 2c a3 29 0d 70 3a 10 e7 20 66 |(smeg%,.).p:.. f|
0000feb0 6f 75 6e 64 3d 2d 31 20 8c 0d 70 44 10 e7 20 63 |ound=-1 ..pD.. c|
0000fec0 61 73 65 73 65 6e 73 20 8c 0d 70 4e 20 74 74 66 |asesens ..pN ttf|
0000fed0 69 6c 65 6e 61 6d 65 24 3d a4 67 4c 6e 28 24 66 |ilename$=.gLn($f|
0000fee0 69 6c 65 6e 61 6d 65 25 29 0d 70 58 18 74 74 66 |ilename%).pX.ttf|
0000fef0 62 6f 24 3d a4 70 61 64 28 74 79 70 65 25 21 30 |bo$=.pad(type%!0|
0000ff00 29 0d 70 62 05 cc 0d 70 6c 2a 74 74 66 69 6c 65 |).pb...pl*ttfile|
0000ff10 6e 61 6d 65 24 3d a4 74 6f 6c 6f 77 65 72 28 a4 |name$=.tolower(.|
0000ff20 67 4c 6e 28 24 66 69 6c 65 6e 61 6d 65 25 29 29 |gLn($filename%))|
0000ff30 0d 70 76 22 74 74 66 62 6f 24 3d a4 74 6f 6c 6f |.pv"ttfbo$=.tolo|
0000ff40 77 65 72 28 a4 70 61 64 28 74 79 70 65 25 21 30 |wer(.pad(type%!0|
0000ff50 29 29 0d 70 80 2b 73 65 61 72 63 68 73 74 72 69 |)).p.+searchstri|
0000ff60 6e 67 31 24 3d a4 74 6f 6c 6f 77 65 72 28 73 65 |ng1$=.tolower(se|
0000ff70 61 72 63 68 73 74 72 69 6e 67 31 24 29 0d 70 8a |archstring1$).p.|
0000ff80 2b 73 65 61 72 63 68 73 74 72 69 6e 67 32 24 3d |+searchstring2$=|
0000ff90 a4 74 6f 6c 6f 77 65 72 28 73 65 61 72 63 68 73 |.tolower(searchs|
0000ffa0 74 72 69 6e 67 32 24 29 0d 70 94 05 cd 0d 70 9e |tring2$).p....p.|
0000ffb0 21 e7 20 a7 73 75 62 73 65 61 72 63 68 73 74 72 |!. .subsearchstr|
0000ffc0 69 6e 67 31 24 2c 22 2a 22 29 3e 30 20 8c 0d 70 |ing1$,"*")>0 ..p|
0000ffd0 a8 23 66 75 64 67 65 3d a7 73 75 62 73 65 61 72 |.#fudge=.subsear|
0000ffe0 63 68 73 74 72 69 6e 67 31 24 2c 22 2a 22 29 2d |chstring1$,"*")-|
0000fff0 31 0d 70 b2 10 e7 20 63 61 73 65 73 65 6e 73 20 |1.p... casesens |
00010000 8c 0d 70 bc 2e 73 65 61 72 63 68 73 74 72 69 6e |..p..searchstrin|
00010010 67 31 24 3d c1 73 75 62 73 65 61 72 63 68 73 74 |g1$=.subsearchst|
00010020 72 69 6e 67 31 24 2c 31 2c 66 75 64 67 65 29 0d |ring1$,1,fudge).|
00010030 70 c6 25 74 74 66 69 6c 65 6e 61 6d 65 24 3d c1 |p.%ttfilename$=.|
00010040 74 74 66 69 6c 65 6e 61 6d 65 24 2c 31 2c 66 75 |ttfilename$,1,fu|
00010050 64 67 65 29 0d 70 d0 05 cc 0d 70 da 38 73 65 61 |dge).p....p.8sea|
00010060 72 63 68 73 74 72 69 6e 67 31 24 3d a4 74 6f 6c |rchstring1$=.tol|
00010070 6f 77 65 72 28 c1 73 75 62 73 65 61 72 63 68 73 |ower(.subsearchs|
00010080 74 72 69 6e 67 31 24 2c 31 2c 66 75 64 67 65 29 |tring1$,1,fudge)|
00010090 29 0d 70 e4 2f 74 74 66 69 6c 65 6e 61 6d 65 24 |).p./ttfilename$|
000100a0 3d a4 74 6f 6c 6f 77 65 72 28 c1 74 74 66 69 6c |=.tolower(.ttfil|
000100b0 65 6e 61 6d 65 24 2c 31 2c 66 75 64 67 65 29 29 |ename$,1,fudge))|
000100c0 0d 70 ee 05 cd 0d 70 f8 05 cd 0d 71 02 21 e7 20 |.p....p....q.!. |
000100d0 a7 73 75 62 73 65 61 72 63 68 73 74 72 69 6e 67 |.subsearchstring|
000100e0 32 24 2c 22 2a 22 29 3e 30 20 8c 0d 71 0c 23 66 |2$,"*")>0 ..q.#f|
000100f0 75 64 67 65 3d a7 73 75 62 73 65 61 72 63 68 73 |udge=.subsearchs|
00010100 74 72 69 6e 67 32 24 2c 22 2a 22 29 2d 31 0d 71 |tring2$,"*")-1.q|
00010110 16 10 e7 20 63 61 73 65 73 65 6e 73 20 8c 0d 71 |... casesens ..q|
00010120 20 2e 73 65 61 72 63 68 73 74 72 69 6e 67 32 24 | .searchstring2$|
00010130 3d c1 73 75 62 73 65 61 72 63 68 73 74 72 69 6e |=.subsearchstrin|
00010140 67 32 24 2c 31 2c 66 75 64 67 65 29 0d 71 2a 1b |g2$,1,fudge).q*.|
00010150 74 74 66 62 6f 24 3d c1 74 74 66 62 6f 24 2c 31 |ttfbo$=.ttfbo$,1|
00010160 2c 66 75 64 67 65 29 0d 71 34 05 cc 0d 71 3e 38 |,fudge).q4...q>8|
00010170 73 65 61 72 63 68 73 74 72 69 6e 67 32 24 3d a4 |searchstring2$=.|
00010180 74 6f 6c 6f 77 65 72 28 c1 73 75 62 73 65 61 72 |tolower(.subsear|
00010190 63 68 73 74 72 69 6e 67 32 24 2c 31 2c 66 75 64 |chstring2$,1,fud|
000101a0 67 65 29 29 0d 71 48 25 74 74 66 62 6f 24 3d a4 |ge)).qH%ttfbo$=.|
000101b0 74 6f 6c 6f 77 65 72 28 c1 74 74 66 62 6f 24 2c |tolower(.ttfbo$,|
000101c0 31 2c 66 75 64 67 65 29 29 0d 71 52 05 cd 0d 71 |1,fudge)).qR...q|
000101d0 5c 05 cd 0d 71 66 4a e7 20 74 74 66 69 6c 65 6e |\...qfJ. ttfilen|
000101e0 61 6d 65 24 3d 73 65 61 72 63 68 73 74 72 69 6e |ame$=searchstrin|
000101f0 67 31 24 20 80 20 73 65 61 72 63 68 66 69 6c 65 |g1$ . searchfile|
00010200 20 80 20 ac 20 73 65 61 72 63 68 74 79 70 65 20 | . . searchtype |
00010210 8c 20 66 6f 75 6e 64 3d 73 6d 65 67 25 0d 71 70 |. found=smeg%.qp|
00010220 45 e7 20 74 74 66 62 6f 24 3d 73 65 61 72 63 68 |E. ttfbo$=search|
00010230 73 74 72 69 6e 67 32 24 20 80 20 ac 20 73 65 61 |string2$ . . sea|
00010240 72 63 68 66 69 6c 65 20 80 20 73 65 61 72 63 68 |rchfile . search|
00010250 74 79 70 65 20 8c 20 66 6f 75 6e 64 3d 73 6d 65 |type . found=sme|
00010260 67 25 0d 71 7a 60 e7 20 74 74 66 69 6c 65 6e 61 |g%.qz`. ttfilena|
00010270 6d 65 24 3d 73 65 61 72 63 68 73 74 72 69 6e 67 |me$=searchstring|
00010280 31 24 20 80 20 74 74 66 62 6f 24 3d 73 65 61 72 |1$ . ttfbo$=sear|
00010290 63 68 73 74 72 69 6e 67 32 24 20 80 20 73 65 61 |chstring2$ . sea|
000102a0 72 63 68 66 69 6c 65 20 80 20 73 65 61 72 63 68 |rchfile . search|
000102b0 74 79 70 65 20 8c 20 66 6f 75 6e 64 3d 73 6d 65 |type . found=sme|
000102c0 67 25 0d 71 84 05 cd 0d 71 8e 0c 73 6d 65 67 25 |g%.q....q..smeg%|
000102d0 2d 3d 31 0d 71 98 17 fd 66 6f 75 6e 64 3e 2d 31 |-=1.q...found>-1|
000102e0 20 84 20 73 6d 65 67 25 3c 30 0d 71 a2 18 c8 99 | . smeg%<0.q....|
000102f0 20 22 48 6f 75 72 67 6c 61 73 73 5f 53 6d 61 73 | "Hourglass_Smas|
00010300 68 22 0d 71 ac 05 cd 0d 71 b6 10 e7 20 66 6f 75 |h".q....q... fou|
00010310 6e 64 3d 2d 31 20 8c 0d 71 c0 64 f2 61 6c 65 72 |nd=-1 ..q.d.aler|
00010320 74 28 22 4d 65 73 73 61 67 65 20 66 72 6f 6d 20 |t("Message from |
00010330 54 72 65 65 22 2c 22 27 22 2b a4 69 63 6f 6e 74 |Tree","'"+.icont|
00010340 65 78 74 28 73 65 61 72 63 68 25 2c 32 29 2b 22 |ext(search%,2)+"|
00010350 27 20 77 61 73 20 6e 6f 74 20 66 6f 75 6e 64 20 |' was not found |
00010360 61 62 6f 76 65 20 74 68 65 20 63 75 72 72 65 6e |above the curren|
00010370 74 20 66 69 6c 65 2e 22 2c 30 29 0d 71 ca 05 cc |t file.",0).q...|
00010380 0d 71 d4 1c f2 76 69 65 77 69 63 6f 6e 28 6d 61 |.q...viewicon(ma|
00010390 69 6e 25 2c 66 6f 75 6e 64 2b 31 29 0d 71 de 1b |in%,found+1).q..|
000103a0 f2 73 65 6c 69 63 6f 6e 28 6d 61 69 6e 25 2c 66 |.selicon(main%,f|
000103b0 6f 75 6e 64 2b 31 29 0d 71 e8 13 63 75 72 73 65 |ound+1).q..curse|
000103c0 61 72 63 68 3d 66 6f 75 6e 64 0d 71 f2 3a e7 20 |arch=found.q.:. |
000103d0 63 75 72 73 65 61 72 63 68 3d 30 20 8c 20 f2 73 |cursearch=0 . .s|
000103e0 69 63 6f 6e 28 73 65 61 72 63 68 25 2c 34 29 20 |icon(search%,4) |
000103f0 8b 20 f2 75 73 69 63 6f 6e 28 73 65 61 72 63 68 |. .usicon(search|
00010400 25 2c 34 29 0d 71 fc 3f e7 20 63 75 72 73 65 61 |%,4).q.?. cursea|
00010410 72 63 68 3d 69 69 69 25 2d 31 20 8c 20 f2 73 69 |rch=iii%-1 . .si|
00010420 63 6f 6e 28 73 65 61 72 63 68 25 2c 35 29 20 8b |con(search%,5) .|
00010430 20 f2 75 73 69 63 6f 6e 28 73 65 61 72 63 68 25 | .usicon(search%|
00010440 2c 35 29 0d 72 06 19 f2 67 65 74 76 61 72 73 28 |,5).r...getvars(|
00010450 63 75 72 73 65 61 72 63 68 2c a3 29 0d 72 10 2c |cursearch,.).r.,|
00010460 f2 69 63 6f 6e 70 75 74 74 65 78 74 28 73 65 61 |.iconputtext(sea|
00010470 72 63 68 25 2c 38 2c a4 67 4c 6e 28 24 66 69 6c |rch%,8,.gLn($fil|
00010480 65 6e 61 6d 65 25 29 29 0d 72 1a 05 cd 0d 72 24 |ename%)).r....r$|
00010490 05 e1 0d 72 2e 05 3a 0d 72 38 11 dd a4 74 6f 6c |...r..:.r8...tol|
000104a0 6f 77 65 72 28 41 24 29 0d 72 42 11 e3 20 71 3d |ower(A$).rB.. q=|
000104b0 31 20 b8 20 a9 28 41 24 29 0d 72 4c 51 e7 20 97 |1 . .(A$).rLQ. .|
000104c0 28 c1 41 24 2c 71 2c 31 29 29 3e 3d 97 22 41 22 |(.A$,q,1))>=."A"|
000104d0 20 80 20 97 28 c1 41 24 2c 71 2c 31 29 29 3c 3d | . .(.A$,q,1))<=|
000104e0 97 22 5a 22 20 8c 20 c1 41 24 2c 71 2c 31 29 3d |."Z" . .A$,q,1)=|
000104f0 bd 28 97 28 c1 41 24 2c 71 2c 31 29 29 2b 28 97 |.(.(.A$,q,1))+(.|
00010500 22 61 22 2d 97 22 41 22 29 29 0d 72 56 07 ed 20 |"a"-."A")).rV.. |
00010510 71 0d 72 60 07 3d 41 24 0d 72 6a 05 3a 0d 72 74 |q.r`.=A$.rj.:.rt|
00010520 31 dd f2 73 65 61 72 63 68 64 6f 77 6e 28 63 2c |1..searchdown(c,|
00010530 73 65 61 72 63 68 73 74 72 69 6e 67 31 24 2c 73 |searchstring1$,s|
00010540 65 61 72 63 68 73 74 72 69 6e 67 32 24 29 0d 72 |earchstring2$).r|
00010550 7e 24 73 75 62 73 65 61 72 63 68 73 74 72 69 6e |~$subsearchstrin|
00010560 67 31 24 3d 73 65 61 72 63 68 73 74 72 69 6e 67 |g1$=searchstring|
00010570 31 24 0d 72 88 24 73 75 62 73 65 61 72 63 68 73 |1$.r.$subsearchs|
00010580 74 72 69 6e 67 32 24 3d 73 65 61 72 63 68 73 74 |tring2$=searchst|
00010590 72 69 6e 67 32 24 0d 72 92 18 f2 75 73 65 6c 69 |ring2$.r...useli|
000105a0 63 6f 6e 28 6d 61 69 6e 25 2c 63 2b 31 29 0d 72 |con(main%,c+1).r|
000105b0 9c 0c 66 6f 75 6e 64 3d 2d 31 0d 72 a6 13 e7 20 |..found=-1.r... |
000105c0 63 2b 31 3c 3d 69 69 69 25 2d 31 20 8c 0d 72 b0 |c+1<=iii%-1 ..r.|
000105d0 0d 73 6d 65 67 25 3d 63 2b 31 0d 72 ba 15 c8 99 |.smeg%=c+1.r....|
000105e0 20 22 48 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 0d | "Hourglass_On".|
000105f0 72 c4 05 f5 0d 72 ce 15 f2 67 65 74 76 61 72 73 |r....r...getvars|
00010600 28 73 6d 65 67 25 2c a3 29 0d 72 d8 10 e7 20 66 |(smeg%,.).r... f|
00010610 6f 75 6e 64 3d 2d 31 20 8c 0d 72 e2 10 e7 20 63 |ound=-1 ..r... c|
00010620 61 73 65 73 65 6e 73 20 8c 0d 72 ec 20 74 74 66 |asesens ..r. ttf|
00010630 69 6c 65 6e 61 6d 65 24 3d a4 67 4c 6e 28 24 66 |ilename$=.gLn($f|
00010640 69 6c 65 6e 61 6d 65 25 29 0d 72 f6 18 74 74 66 |ilename%).r..ttf|
00010650 62 6f 24 3d a4 70 61 64 28 74 79 70 65 25 21 30 |bo$=.pad(type%!0|
00010660 29 0d 73 00 05 cc 0d 73 0a 2a 74 74 66 69 6c 65 |).s....s.*ttfile|
00010670 6e 61 6d 65 24 3d a4 74 6f 6c 6f 77 65 72 28 a4 |name$=.tolower(.|
00010680 67 4c 6e 28 24 66 69 6c 65 6e 61 6d 65 25 29 29 |gLn($filename%))|
00010690 0d 73 14 22 74 74 66 62 6f 24 3d a4 74 6f 6c 6f |.s."ttfbo$=.tolo|
000106a0 77 65 72 28 a4 70 61 64 28 74 79 70 65 25 21 30 |wer(.pad(type%!0|
000106b0 29 29 0d 73 1e 2b 73 65 61 72 63 68 73 74 72 69 |)).s.+searchstri|
000106c0 6e 67 31 24 3d a4 74 6f 6c 6f 77 65 72 28 73 65 |ng1$=.tolower(se|
000106d0 61 72 63 68 73 74 72 69 6e 67 31 24 29 0d 73 28 |archstring1$).s(|
000106e0 2b 73 65 61 72 63 68 73 74 72 69 6e 67 32 24 3d |+searchstring2$=|
000106f0 a4 74 6f 6c 6f 77 65 72 28 73 65 61 72 63 68 73 |.tolower(searchs|
00010700 74 72 69 6e 67 32 24 29 0d 73 32 05 cd 0d 73 3c |tring2$).s2...s<|
00010710 21 e7 20 a7 73 75 62 73 65 61 72 63 68 73 74 72 |!. .subsearchstr|
00010720 69 6e 67 31 24 2c 22 2a 22 29 3e 30 20 8c 0d 73 |ing1$,"*")>0 ..s|
00010730 46 23 66 75 64 67 65 3d a7 73 75 62 73 65 61 72 |F#fudge=.subsear|
00010740 63 68 73 74 72 69 6e 67 31 24 2c 22 2a 22 29 2d |chstring1$,"*")-|
00010750 31 0d 73 50 10 e7 20 63 61 73 65 73 65 6e 73 20 |1.sP.. casesens |
00010760 8c 0d 73 5a 2e 73 65 61 72 63 68 73 74 72 69 6e |..sZ.searchstrin|
00010770 67 31 24 3d c1 73 75 62 73 65 61 72 63 68 73 74 |g1$=.subsearchst|
00010780 72 69 6e 67 31 24 2c 31 2c 66 75 64 67 65 29 0d |ring1$,1,fudge).|
00010790 73 64 25 74 74 66 69 6c 65 6e 61 6d 65 24 3d c1 |sd%ttfilename$=.|
000107a0 74 74 66 69 6c 65 6e 61 6d 65 24 2c 31 2c 66 75 |ttfilename$,1,fu|
000107b0 64 67 65 29 0d 73 6e 05 cc 0d 73 78 38 73 65 61 |dge).sn...sx8sea|
000107c0 72 63 68 73 74 72 69 6e 67 31 24 3d a4 74 6f 6c |rchstring1$=.tol|
000107d0 6f 77 65 72 28 c1 73 75 62 73 65 61 72 63 68 73 |ower(.subsearchs|
000107e0 74 72 69 6e 67 31 24 2c 31 2c 66 75 64 67 65 29 |tring1$,1,fudge)|
000107f0 29 0d 73 82 2f 74 74 66 69 6c 65 6e 61 6d 65 24 |).s./ttfilename$|
00010800 3d a4 74 6f 6c 6f 77 65 72 28 c1 74 74 66 69 6c |=.tolower(.ttfil|
00010810 65 6e 61 6d 65 24 2c 31 2c 66 75 64 67 65 29 29 |ename$,1,fudge))|
00010820 0d 73 8c 05 cd 0d 73 96 05 cd 0d 73 a0 21 e7 20 |.s....s....s.!. |
00010830 a7 73 75 62 73 65 61 72 63 68 73 74 72 69 6e 67 |.subsearchstring|
00010840 32 24 2c 22 2a 22 29 3e 30 20 8c 0d 73 aa 23 66 |2$,"*")>0 ..s.#f|
00010850 75 64 67 65 3d a7 73 75 62 73 65 61 72 63 68 73 |udge=.subsearchs|
00010860 74 72 69 6e 67 32 24 2c 22 2a 22 29 2d 31 0d 73 |tring2$,"*")-1.s|
00010870 b4 10 e7 20 63 61 73 65 73 65 6e 73 20 8c 0d 73 |... casesens ..s|
00010880 be 2e 73 65 61 72 63 68 73 74 72 69 6e 67 32 24 |..searchstring2$|
00010890 3d c1 73 75 62 73 65 61 72 63 68 73 74 72 69 6e |=.subsearchstrin|
000108a0 67 32 24 2c 31 2c 66 75 64 67 65 29 0d 73 c8 1b |g2$,1,fudge).s..|
000108b0 74 74 66 62 6f 24 3d c1 74 74 66 62 6f 24 2c 31 |ttfbo$=.ttfbo$,1|
000108c0 2c 66 75 64 67 65 29 0d 73 d2 05 cc 0d 73 dc 38 |,fudge).s....s.8|
000108d0 73 65 61 72 63 68 73 74 72 69 6e 67 32 24 3d a4 |searchstring2$=.|
000108e0 74 6f 6c 6f 77 65 72 28 c1 73 75 62 73 65 61 72 |tolower(.subsear|
000108f0 63 68 73 74 72 69 6e 67 32 24 2c 31 2c 66 75 64 |chstring2$,1,fud|
00010900 67 65 29 29 0d 73 e6 25 74 74 66 62 6f 24 3d a4 |ge)).s.%ttfbo$=.|
00010910 74 6f 6c 6f 77 65 72 28 c1 74 74 66 62 6f 24 2c |tolower(.ttfbo$,|
00010920 31 2c 66 75 64 67 65 29 29 0d 73 f0 05 cd 0d 73 |1,fudge)).s....s|
00010930 fa 05 cd 0d 74 04 4a e7 20 74 74 66 69 6c 65 6e |....t.J. ttfilen|
00010940 61 6d 65 24 3d 73 65 61 72 63 68 73 74 72 69 6e |ame$=searchstrin|
00010950 67 31 24 20 80 20 73 65 61 72 63 68 66 69 6c 65 |g1$ . searchfile|
00010960 20 80 20 ac 20 73 65 61 72 63 68 74 79 70 65 20 | . . searchtype |
00010970 8c 20 66 6f 75 6e 64 3d 73 6d 65 67 25 0d 74 0e |. found=smeg%.t.|
00010980 45 e7 20 74 74 66 62 6f 24 3d 73 65 61 72 63 68 |E. ttfbo$=search|
00010990 73 74 72 69 6e 67 32 24 20 80 20 ac 20 73 65 61 |string2$ . . sea|
000109a0 72 63 68 66 69 6c 65 20 80 20 73 65 61 72 63 68 |rchfile . search|
000109b0 74 79 70 65 20 8c 20 66 6f 75 6e 64 3d 73 6d 65 |type . found=sme|
000109c0 67 25 0d 74 18 60 e7 20 74 74 66 69 6c 65 6e 61 |g%.t.`. ttfilena|
000109d0 6d 65 24 3d 73 65 61 72 63 68 73 74 72 69 6e 67 |me$=searchstring|
000109e0 31 24 20 80 20 74 74 66 62 6f 24 3d 73 65 61 72 |1$ . ttfbo$=sear|
000109f0 63 68 73 74 72 69 6e 67 32 24 20 80 20 73 65 61 |chstring2$ . sea|
00010a00 72 63 68 66 69 6c 65 20 80 20 73 65 61 72 63 68 |rchfile . search|
00010a10 74 79 70 65 20 8c 20 66 6f 75 6e 64 3d 73 6d 65 |type . found=sme|
00010a20 67 25 0d 74 22 05 cd 0d 74 2c 0c 73 6d 65 67 25 |g%.t"...t,.smeg%|
00010a30 2b 3d 31 0d 74 36 1c fd 66 6f 75 6e 64 3e 2d 31 |+=1.t6..found>-1|
00010a40 20 84 20 73 6d 65 67 25 3e 69 69 69 25 2b 31 0d | . smeg%>iii%+1.|
00010a50 74 40 18 c8 99 20 22 48 6f 75 72 67 6c 61 73 73 |t@... "Hourglass|
00010a60 5f 53 6d 61 73 68 22 0d 74 4a 05 cd 0d 74 54 10 |_Smash".tJ...tT.|
00010a70 e7 20 66 6f 75 6e 64 3d 2d 31 20 8c 0d 74 5e 64 |. found=-1 ..t^d|
00010a80 f2 61 6c 65 72 74 28 22 4d 65 73 73 61 67 65 20 |.alert("Message |
00010a90 66 72 6f 6d 20 54 72 65 65 22 2c 22 27 22 2b a4 |from Tree","'"+.|
00010aa0 69 63 6f 6e 74 65 78 74 28 73 65 61 72 63 68 25 |icontext(search%|
00010ab0 2c 32 29 2b 22 27 20 77 61 73 20 6e 6f 74 20 66 |,2)+"' was not f|
00010ac0 6f 75 6e 64 20 62 65 6c 6f 77 20 74 68 65 20 63 |ound below the c|
00010ad0 75 72 72 65 6e 74 20 66 69 6c 65 2e 22 2c 30 29 |urrent file.",0)|
00010ae0 0d 74 68 05 cc 0d 74 72 1c f2 76 69 65 77 69 63 |.th...tr..viewic|
00010af0 6f 6e 28 6d 61 69 6e 25 2c 66 6f 75 6e 64 2b 31 |on(main%,found+1|
00010b00 29 0d 74 7c 1b f2 73 65 6c 69 63 6f 6e 28 6d 61 |).t|..selicon(ma|
00010b10 69 6e 25 2c 66 6f 75 6e 64 2b 31 29 0d 74 86 13 |in%,found+1).t..|
00010b20 63 75 72 73 65 61 72 63 68 3d 66 6f 75 6e 64 0d |cursearch=found.|
00010b30 74 90 3a e7 20 63 75 72 73 65 61 72 63 68 3d 30 |t.:. cursearch=0|
00010b40 20 8c 20 f2 73 69 63 6f 6e 28 73 65 61 72 63 68 | . .sicon(search|
00010b50 25 2c 34 29 20 8b 20 f2 75 73 69 63 6f 6e 28 73 |%,4) . .usicon(s|
00010b60 65 61 72 63 68 25 2c 34 29 0d 74 9a 3f e7 20 63 |earch%,4).t.?. c|
00010b70 75 72 73 65 61 72 63 68 3d 69 69 69 25 2d 31 20 |ursearch=iii%-1 |
00010b80 8c 20 f2 73 69 63 6f 6e 28 73 65 61 72 63 68 25 |. .sicon(search%|
00010b90 2c 35 29 20 8b 20 f2 75 73 69 63 6f 6e 28 73 65 |,5) . .usicon(se|
00010ba0 61 72 63 68 25 2c 35 29 0d 74 a4 19 f2 67 65 74 |arch%,5).t...get|
00010bb0 76 61 72 73 28 63 75 72 73 65 61 72 63 68 2c a3 |vars(cursearch,.|
00010bc0 29 0d 74 ae 2c f2 69 63 6f 6e 70 75 74 74 65 78 |).t.,.iconputtex|
00010bd0 74 28 73 65 61 72 63 68 25 2c 38 2c a4 67 4c 6e |t(search%,8,.gLn|
00010be0 28 24 66 69 6c 65 6e 61 6d 65 25 29 29 0d 74 b8 |($filename%)).t.|
00010bf0 05 cd 0d 74 c2 05 e1 0d ff |...t.....|
00010bf9 
.