Home » Archimedes archive » Archimedes World » AW-1994-04-Disc1.adf » Disk1Apr94 » !AWApr94/Goodies/SplitCopy/!SplitCopy/!RunImage
!AWApr94/Goodies/SplitCopy/!SplitCopy/!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-1994-04-Disc1.adf » Disk1Apr94 |
| Filename: | !AWApr94/Goodies/SplitCopy/!SplitCopy/!RunImage |
| Read OK: | ✔ |
| File size: | 33FC bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10 REM><Split$Dir>.!RunImage
20 REM *************************************
30 REM ** **
40 REM ** RISC OS Multi-Tasking Program **
50 REM ** **
60 REM ** Stephen John Bayliss LEN **
70 REM ** **
80 REM *************************************
90 :
100 REM ONERROR ONERROROFF:VDU7:MODE0:REPORT:PRINT" at line ";ERL'':END
110 PROCInitilise
120 PROCSetUp
130 PROCloadprogs
140 PROCIcon_Bar_Sprite("!splitcopy",Dir$+".!Sprites",-1,1,"Split")
150 PROCReadTemplates:time%=TIME
160 load%=TRUE:PROCOpen_Window(Loading%,130,300,9000,700,q%!20,q%!24,-1)
170 PROCSetUpIconBarInfo
180 ONERROR VDU6:PROCreport("Don't panic, it's only a little error","",REPORT$," at line "+STR$ERL,"Who's the dip stick that wrote this program")
190 PROCRunUnderRisc
200 END
210 :
220 DEFPROCistate(q%!0,q%!4)
230 SYS&400CE,,q%
240 ENDPROC
250 :
260 REM ---------- Set Up Desk Top ----------
270 :
280 DEF PROCInitilise
290 Menu_Name$="!SplitCopy"
300 Task_Name$="!SplitCopy By SJB":Dir$="<Split$Dir>":IconSprites%=0
310 LIBRARY Dir$+".Library"
320 DIM block% 1000
330 DIM buffer% 1000
340 DIM q% 2000
350 Task = &4B534154 : REM ASCII representaion of 'TASK'
360 Wimp_Version = 2 : REM Current WIMP version number (at least 2)
370 SYS "Wimp_Initialise",Wimp_Version*100,Task,Task_Name$ TO ,Task_Handle
380 ENDPROC
390 :
400 DEF PROCSetUp
410 path$="":error%=FALSE:max=2000:fileloaded$="":opt%=800000
420 omain$="<None":cmain$="<None":mmax=70
430 DIM prog$(max,2),w%(max),dir2$(max),Main%(mmax),minfo%(mmax,2),mopen%(mmax),ver%(3000)
440 ENDPROC
450 :
460 REM ---------- Runing In The Desk Top ----------
470 :
480 DEF PROCRunUnderRisc
490 REPEAT
500 SYS "Wimp_Poll",0,q% TO buffer%
510 CASE buffer% OF
520 WHEN 2 :PROCOpen_Window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
530 WHEN 3 :PROCClose_Window(!q%)
540 WHEN 6 :PROCcheckmouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
550 WHEN 7 :PROCdrag_end(Main%(1),8)
560 WHEN 8 :PROCkey(q%!0,q%!4,q%!8,q%!24)
570 WHEN 9 :PROCmenuselect(q%)
580 WHEN 17,18 :PROCReceive(q%)
590 ENDCASE
600 IF TIME>time%+600 AND load%=TRUE THEN PROCClose_Window(Loading%):load%=FALSE
610 IF error%=TRUE THEN
620 MOUSE X,Y,Z
630 IF X<250 THEN MOUSE TO 250,Y
640 IF X>1019 THEN MOUSE TO 1019,Y
650 IF Y<250 THEN MOUSE TO X,250
660 IF Y>639 THEN MOUSE TO X,639
670 IF FNiconstate(Report%,2)="&17219039" AND Z=4 THEN error%=FALSE:PROCClose_Window(Report%)
680 ENDIF
690 UNTIL FALSE
700 ENDPROC
710 :
720 REM ---------- Create Wimp Menu ----------
730 :
740 DEF PROCcheckmouse(x%,y%,Key%,Window%,Icon%,Other%)
750 REM > =Show Window Syntax >Text.Window_Name
760 REM < =Fade Out Text Syntax <Text
770 REM @ =Tick Item Syntax @Text
780 REM ~ =Sub Menus Syntax ~Text\Sub_Menu$\Sub_Menu_Title
790 REM : =Doted Line Syntax :Text
800 REM , =Split Up Text Syntax Text,Text
810 PROCmenutext
820 LOCAL mb%,window,icon
830 window=q%!12:icon=q%!16:mx%=q%!0:my%=q%!4:mb%=q%!8
840 CASE Window% OF
850 WHEN -2 :REM Icon Bar
860 IF (Key%=4 OR Key%=1) AND fileloaded$<>"" THEN PROCopenmain
870 IF Key%=2 THEN PROCdomenu(1,menubuf%,iconmenu$,Menu_Name$,x%-64,96+(NoInMen+1)*40)
880
890 WHEN Main%(1):count=1:PROCmain
900 WHEN Main%(2):count=2:PROCmain
910 WHEN Main%(3):count=3:PROCmain
920 WHEN Main%(4):count=4:PROCmain
930 WHEN Main%(5):count=5:PROCmain
940 WHEN Main%(6):count=6:PROCmain
950 WHEN Main%(7):count=7:PROCmain
960 WHEN Main%(8):count=8:PROCmain
970 WHEN Main%(9):count=9:PROCmain
980 WHEN Main%(10):count=10:PROCmain
990 WHEN Main%(11):count=11:PROCmain
1000 WHEN Main%(12):count=12:PROCmain
1010 WHEN Main%(13):count=13:PROCmain
1020 WHEN Main%(14):count=14:PROCmain
1030 WHEN Main%(15):count=15:PROCmain
1040 WHEN Main%(16):count=16:PROCmain
1050 WHEN Main%(17):count=17:PROCmain
1060 WHEN Main%(18):count=18:PROCmain
1070 WHEN Main%(19):count=19:PROCmain
1080 WHEN Main%(20):count=20:PROCmain
1090
1100 WHEN Opt%
1110 IF FNiconstate(Opt%,4)="&1722B31B" THEN opt%=800000
1120 IF FNiconstate(Opt%,5)="&1722B31B" THEN opt%=1600000
1130 IF FNiconstate(Opt%,6)="&1722B31B" THEN opt%=640000
1140
1150 ENDCASE
1160 ENDPROC
1170 :
1180 DEFPROCmenutext
1190 NoInMen=6.25
1200 iconmenu$=":>Info.Info%,>Options.Opt%,~Open\omain$\Open,:~Close\cmain$\Close,Quit"
1210 IF fileloaded$<>"" THEN
1220 omain$="":cmain$=""
1230 FORI=1TOmain%
1240 IF I=main% THEN
1250 IF mopen%(I)=FALSE THEN omain$+=":Floppy "+STR$(I)+"," ELSE omain$+=":<Floppy "+STR$(I)+","
1260 IF mopen%(I)=TRUE THEN cmain$+=":Floppy "+STR$(I)+"," ELSE cmain$+=":<Floppy "+STR$(I)+","
1270 ELSE
1280 IF mopen%(I)=FALSE THEN omain$+="Floppy "+STR$(I)+"," ELSE omain$+="<Floppy "+STR$(I)+","
1290 IF mopen%(I)=TRUE THEN cmain$+="Floppy "+STR$(I)+"," ELSE cmain$+="<Floppy "+STR$(I)+","
1300 ENDIF
1310 NEXT I
1320 blnk1%=TRUE:blnk2%=TRUE
1330 FORI=1TOmain%
1340 IF mopen%(I)=TRUE THEN blnk1%=FALSE
1350 IF mopen%(I)=FALSE THEN blnk2%=FALSE
1360 NEXT I
1370 IF blnk2%=FALSE THEN omain$+="All" ELSE omain$+="<All"
1380 IF blnk1%=FALSE THEN cmain$+="All" ELSE cmain$+="<All"
1390 ENDIF
1400 ENDPROC
1410 :
1420 DEFPROCmain
1430 CASE mb% OF
1440 WHEN 4,1
1450 CASE icon OF
1460 WHEN 8 : ste%=count:PROCdrag_it(Main%(count),8)
1470 ENDCASE
1480 ENDCASE
1490 MOUSE X,Y,Z
1500 IF Key%=2 THEN PROCdomenu(1,menubuf%,iconmenu$,Menu_Name$,X-85,Y-140+(NoInMen+1)*40)
1510 ENDPROC
1520 :
1530 REM ---------- Recive Wimp Menu ----------
1540 :
1550 DEF PROCmenuselect(menus%)
1560 SYS "Hourglass_On"
1570 LOCAL a,a$,level1$,level2$,level3$,recat
1580 recat%=FALSE
1590 SYS "Wimp_DecodeMenu",,(menubuf%+4),menus%,STRING$(200," ")TO,,,a$
1600 again%=TRUE
1610 IF a$="" THEN ENDPROC
1620 level1$=FNpar(a$,".",a)
1630 IF LEFT$(level1$,1)="'" THEN level1$=level1$+FNpar(a$,".",a)
1640 level2$=FNpar(a$,".",a):level3$=FNpar(a$,".",a)
1650 IF level1$="Quit" THEN PROCFinish
1660 FORI=1TOmain%
1670 IF level1$="Open" AND level2$="Floppy "+STR$(I) THEN PROCOpen_Window(Main%(I),0+(I*20),45,1278,805,q%!20,q%!24,-1)
1680 IF level1$="Close" AND level2$="Floppy "+STR$(I) THEN PROCClose_Window(Main%(I))
1690 NEXT I
1700
1710 IF level2$="All" THEN
1720 FORI=main%TO1 STEP -1
1730 IF level1$="Open" THEN PROCOpen_Window(Main%(I),0+(I*20),45,1278,805,q%!20,q%!24,-1)
1740 IF level1$="Close" THEN PROCClose_Window(Main%(I))
1750 NEXT I
1760 again%=FALSE
1770 ENDIF
1780
1790 IF level1$="Close" AND level2$="All" THEN
1800 FORI=main%TO1 STEP -1
1810 PROCClose_Window(Main%(I))
1820 NEXT I
1830 again%=FALSE
1840 ENDIF
1850
1860 IF again%=TRUE THEN PROCmenutext:PROCdomenu(1,menubuf%,iconmenu$,Menu_Name$,x%-64,96+(NoInMen+1)*40)
1870 SYS "Hourglass_Smash"
1880 ENDPROC
1890 :
1900 DEF PROCReceive(q%)
1910 CASE q%!16 OF
1920 WHEN &3
1930 SYS "Hourglass_On"
1940 PROCClose_Window(Loading%):load%=FALSE
1950 FORI=1TOmmax:mopen%(I)=FALSE:NEXT I
1960 fileloaded$=FNGetStr(q%+44)
1970 PROCcat(FNGetStr(q%+44))
1980 PROCCreate
1990 SYS "Hourglass_Smash"
2000
2010 WHEN 2
2020 PROCSave
2030
2040 ENDCASE
2050 ENDPROC
2060 :
2070 REM ------------------------ Load In Templates --------------------------
2080 :
2090 DEF PROCReadTemplates
2100 SYS "Wimp_OpenTemplate",,Dir$+".Templates"
2110 Loading% = FNtemplate("loading")
2120 Info% = FNtemplate("info")
2130 Report% = FNtemplate("report")
2140 Opt% = FNtemplate("opt")
2150 FORI=1TOmmax
2160 Main%(I) = FNtemplate("main")
2170 NEXT I
2180 SYS "Wimp_CloseTemplate"
2190 ENDPROC
2200 :
2210 REM ---------------------------------------------------------------------
2220 :
2230 DEFPROCkey(window%,ic,x%,asc%)
2240 stev%=asc%
2250 CASE asc% OF
2260 WHEN 13 : PROCcaret
2270 SYS "Wimp_SetCaretPosition",Main%,icon%,,,-1,LEN(FN_ReadIconText(icon%,Main%))
2280 ENDCASE
2290 ENDPROC
2300 :
2310 DEF PROCcaret
2320 SYS "Wimp_GetCaretPosition",,q%
2330 window%=q%!0
2340 icon%=q%!4+1
2350 CASE window% OF
2360
2370 WHEN Main%
2380 CASE icon% OF
2390 WHEN 21 : icon%=12
2400 ENDCASE
2410
2420 WHEN Save%
2430 CASE icon% OF
2440 WHEN 7 : icon%=6
2450 PROCSave:ENDCASE:ENDCASE:ENDPROC
2460 ENDCASE
2470 ENDCASE
2480
2490 SYS "Wimp_SetCaretPosition",window%,icon%,,,-1,LEN(FN_ReadIconText(icon%,window%))
2500 ENDPROC
2510 :
2520 REM *********************************************************************
2530 REM * -------------------------- Main Program ------------------------- *
2540 REM *********************************************************************
2550 :
2560 DEFPROCSave
2570 IF fileloaded$="" THEN ENDPROC
2580 nodir%=FNcountchr(FNchopdir(fileloaded$,"$"),".")-1
2590 tprogs%=1:savename$=FNstring(q%+44)
2600 REM IF RIGHT$(savename$,3)="��" THEN savename$=FNchopstr(savename$,".")+"."+FNchopdir(fileloaded$,".") ELSE savename$=FNstring(q%+44)+FNchopdir(fileloaded$,"."
2610 fileload$=FNchopdir(fileloaded$,".")
2620 IF LEFT$(fileload$,1)="!" THEN savename$=FNstring(q%+44)+fileload$ ELSE savename$=FNstring(q%+44)+"!"+fileload$
2630 savename2$=FNstring(q%+44)+fileload$
2640 PROCCreateFiles
2650 SYS "Hourglass_On"
2660 len%=LEN(prog$(1,0))+2
2670 FORI=1TOste%
2680 tprogs%+=minfo%(I,1)+minfo%(I,0)
2690 NEXT I
2700 tprogs%-=minfo%(ste%,1)+minfo%(ste%,0)
2710 REM IF ste%=1 THEN OSCLI"CDIR "+savename$
2720 OSCLI"CDIR "+savename$
2730 IF ste%>1 THEN
2740 dir$=RIGHT$(FNchopdir(prog$(tprogs%-1,0),"$"),LEN(FNchopdir(prog$(tprogs%-1,0),"$"))-1)
2750 IF nodir%<>0 THEN
2760 FORS=1TOnodir%
2770 dir$=FNchopdir2(dir$,".")
2780 NEXT S
2790 ENDIF
2800 IF LEFT$(dir$,1)<>"." THEN dir$="."+dir$
2810 FORS=FNcountchr(dir$,".")-1TO1 STEP -1
2820 tdir$=dir$
2830 FORI=1TOS
2840 tdir$=FNchopstr(tdir$,".")
2850 NEXT I
2860 OSCLI"CDIR "+FNchopstr(savename$,".")+tdir$
2870 NEXT S
2880 OSCLI"CDIR "+FNchopstr(savename$,".")+dir$
2890 ENDIF
2900 IF ste%=main% THEN maxfile%=minfo%(ste%,1)+minfo%(ste%,0)+tprogs%-2 ELSE maxfile%=minfo%(ste%,1)+minfo%(ste%,0)+tprogs%-1
2910 FORI=tprogs%TOmaxfile%
2920 SYS "Hourglass_Percentage",((I-tprogs%+1)/(maxfile%-tprogs%))*100
2930 stevy%=I
2940 progfrom$=prog$(I,0)+"."+prog$(I,1)
2950 IF LEN(MID$(prog$(I,0),len%,LEN(prog$(I,0))-len%+1))=0 THEN progto$=savename$+""+MID$(prog$(I,0),len%,LEN(prog$(I,0))-len%+1)+"."+prog$(I,1) ELSE progto$=savename$+"."+MID$(prog$(I,0),len%,LEN(prog$(I,0))-len%+1)+"."+prog$(I,1)
2960 IF prog$(I,2)="file" THEN
2970 OSCLI"COPY "+progfrom$+" "+progto$+" A ~C ~D F L ~N ~P Q R ~S ~T ~V"
2980 ELSE
2990 OSCLI"CDIR "+progto$
3000 ENDIF
3010 NEXT I
3020 PROCClose_Window(Main%(ste%))
3030 SYS "Hourglass_Off"
3040 VDU7
3050 ENDPROC
3060 :
3070 DEFPROCprint
3080 FORI=1TOn%
3090 REM PRINTFNchopstr(savename$,".")+""+FNchopdir(prog$(I,0),"$")+"."+prog$(I,1)
3100 IF LEN(MID$(prog$(I,0),len%,LEN(prog$(I,0))-len%+1))=0 THEN PRINTsavename$+""+MID$(prog$(I,0),len%,LEN(prog$(I,0))-len%+1)+"."+prog$(I,1) ELSE PRINTsavename$+"."+MID$(prog$(I,0),len%,LEN(prog$(I,0))-len%+1)+"."+prog$(I,1)
3110 PRINT"";I;" "+prog$(I,0)+"."+prog$(I,1)+" "+prog$(I,2)
3120 NEXT I
3130 ENDPROC
3140 :
3150 DEFPROCCreate
3160 main%=1:nmin%=1:nmax%=n%:time%=TIME+50000:nodirs2%=0:stephen%=0
3170 PROCput_icon_text(q%,Opt%,9,fileloaded$,-1)
3180 REPEAT
3190 PROCCount(main%)
3200 stephen%+=nodirs%
3210 minfo%(main%,0)=dirs2%
3220 minfo%(main%,1)=prog%
3230 minfo%(main%,2)=tsize%
3240 PROCput_icon_text(q%,Main%(main%),11,STR$(minfo%(main%,0)),-1)
3250 PROCput_icon_text(q%,Main%(main%),12,STR$(minfo%(main%,1)),-1)
3260 PROCput_icon_text(q%,Main%(main%),13,STR$(minfo%(main%,2)),-1)
3270 IF full%=FALSE THEN nmin%=nmax%+1
3280 IF full%=TRUE THEN main%+=1:size%=0
3290 UNTIL nmax%<nmin% OR TIME>time%
3300 IF TIME>time% THEN VDU7:END
3310 PROCfinfo(fileloaded$)
3320 IF dir%=TRUE THEN
3330 IF LEFT$(FNchopdir(fileloaded$,"."),1)="!" THEN stev%=FNicon_newsprite(Opt%,3,FNchopdir(fileloaded$,"."),-1) ELSE stev%=FNicon_newsprite(Opt%,3,"dir",-1)
3340 ELSE
3350 stev%=FNicon_newsprite(Opt%,3,"file_"+filetype$,-1)
3360 ENDIF
3370 omain$="":cmain$=""
3380 FORI=1TOmain%
3390 PROCput_icon_text(q%,Main%(I),9,"Floppy "+STR$(I),-1)
3400 IF I=main% THEN omain$+=":Floppy "+STR$(I)+"," ELSE omain$+="Floppy "+STR$(I)+","
3410 IF I=main% THEN cmain$+=":Floppy "+STR$(I)+"," ELSE cmain$+="Floppy "+STR$(I)+","
3420 NEXT I
3430 omain$+="All":cmain$+="All"
3440 FORI=main%TO1 STEP -1
3450 PROCOpen_Window(Main%(I),0+(I*20),45,1278,805,q%!20,q%!24,-1)
3460 NEXT I
3470 VDU7
3480 ENDPROC
3490 :
3500 DEFPROCCount(m%)
3510 tsize%=0:full%=FALSE:dirs2%=0:prog%=0:nodirs%=0
3520 FORI=nmin%TOn%
3530 PROCfinfo(prog$(I,0)+"."+prog$(I,1))
3540 IF prog$(I,2)="dir" THEN nodirs%+=4096
3550 IF opt%=1600000 THEN nodirs2%=210000 ELSE nodirs2%=30000
3560 IF tsize%+VAL(size$)>(opt%-nodirs2%)-nodirs% THEN
3570 IF dir%=TRUE THEN full%=TRUE:nmin%=I-1:I=n%
3580 IF dir%=FALSE THEN full%=TRUE:nmin%=I:I=n%
3590 ENDIF
3600 IF full%=TRUE THEN dirs2%-=1
3610 IF dir%=FALSE AND full%=FALSE THEN prog%+=1 ELSE dirs2%+=1
3620 IF dir%=FALSE AND full%=FALSE THEN tsize%+=VAL(size$)
3630 NEXTI
3640 IF main%=1 THEN nodirs2%=nodirs%
3650 ENDPROC
3660 :
3670 DEFPROCopenmain
3680 MOUSE X,Y,Z
3690 FORI=1TOmain%
3700 IF Z=4 AND mopen%(I)=FALSE THEN PROCOpen_Window(Main%(I),0+(I*20),45,1278,805,q%!20,q%!24,-1):I=main%
3710 NEXT I
3720 FORI=main%TO1 STEP -1
3730 IF Z=1 AND mopen%(I)=TRUE THEN PROCClose_Window(Main%(I)):I=1
3740 NEXT I
3750 ENDPROC
3760 :
3770 DEFPROCCreateFiles
3780 REM ------- Create !Boot -------
3790 SYS "Hourglass_On"
3800 OSCLI"CDIR "+savename$
3810 ver%=1
3820 FORI=0TOvercount%
3830 IF ver%=1 THEN file$=savename$+".!Boot"
3840 IF ver%=2 THEN file$=savename$+".!Boot�"
3850 IF ver%=3 THEN file$=savename$+".!Run"
3860 IF ver%=4 THEN file$=savename$+".!Sprites"
3870 IF ver%=5 THEN file$=savename$+".chspr"
3880 wrch%=OPENOUT file$
3890 REPEAT
3900 IF ver%(I)<>169 THEN BPUT#wrch%,ver%(I)
3910 SYS "Hourglass_Percentage",(I/vercount%)*100
3920 IF ver%(I)<>169 THEN I+=1
3930 UNTIL ver%(I)=169
3940 IF ver%=1 THEN OSCLI"SetType "+file$+" Obey"
3950 IF ver%=2 THEN OSCLI"SetType "+file$+" Obey"
3960 IF ver%=3 THEN OSCLI"SetType "+file$+" Obey"
3970 IF ver%=4 THEN OSCLI"SetType "+file$+" Sprite"
3980 IF ver%=5 THEN OSCLI"SetType "+file$+" Utility"
3990 CLOSE#wrch%
4000 ver%+=1
4010 NEXTI
4020 OSCLI"CDIR "+savename$+".Directory"
4030 OSCLI"WimpTask "+savename$+".!Boot"
4040 OSCLI"Delete "+savename$+".!Boot"
4050 OSCLI"Delete "+savename$+".chspr"
4060 OSCLI"ReName "+savename$+".!Boot� "+savename$+".!Boot"
4070 savename$+=".Directory"+"."+fileload$
4080 SYS "Hourglass_Smash"
4090 ENDPROC
4100 :
4110 DEFPROCloadprogs
4120 SYS "Hourglass_On"
4130 vercount%=0
4140 rech%=OPENIN "<Split$Dir>.!Support.!Boot":REPEAT:ver%(vercount%)=BGET#rech%:vercount%+=1:UNTIL EOF#rech%:CLOSE#rech%:ver%(vercount%)=169:vercount%+=1
4150 rech%=OPENIN "<Split$Dir>.!Support.!Boot�":REPEAT:ver%(vercount%)=BGET#rech%:vercount%+=1:UNTIL EOF#rech%:CLOSE#rech%:ver%(vercount%)=169:vercount%+=1
4160 rech%=OPENIN "<Split$Dir>.!Support.!Run":REPEAT:ver%(vercount%)=BGET#rech%:vercount%+=1:UNTIL EOF#rech%:CLOSE#rech%:ver%(vercount%)=169:vercount%+=1
4170 rech%=OPENIN "<Split$Dir>.!Support.!Sprites":REPEAT:ver%(vercount%)=BGET#rech%:vercount%+=1:UNTIL EOF#rech%:CLOSE#rech%:ver%(vercount%)=169:vercount%+=1
4180 rech%=OPENIN "<Split$Dir>.!Support.chspr":REPEAT:ver%(vercount%)=BGET#rech%:vercount%+=1:UNTIL EOF#rech%:CLOSE#rech%:ver%(vercount%)=169
4190 SYS "Hourglass_Smash"
4200 ENDPROC
�><Split$Dir>.!RunImage
, � *************************************
, � ** **
(, � ** RISC OS Multi-Tasking Program **
2, � ** **
<, � ** Stephen John Bayliss � **
F, � ** **
P, � *************************************
Z :
dF � ONERROR ONERROROFF:VDU7:MODE0:REPORT:PRINT" at line ";ERL'':END
n �Initilise
x �SetUp
� �loadprogs
�A �Icon_Bar_Sprite("!splitcopy",Dir$+".!Sprites",-1,1,"Split")
� �ReadTemplates:time%=�
�C load%=�:�Open_Window(Loading%,130,300,9000,700,q%!20,q%!24,-1)
� �SetUpIconBarInfo
�~ � �6:�report("Don't panic, it's only a little error","",�$," at line "+Þ,"Who's the dip stick that wrote this program")
� �RunUnderRisc
� �
� :
� ��istate(q%!0,q%!4)
� ș&400CE,,q%
� �
� :
F � ---------- Set Up Desk Top ----------
:
� �Initilise
" Menu_Name$="!SplitCopy"
,E Task_Name$="!SplitCopy By SJB":Dir$="<Split$Dir>":IconSprites%=0
6 ț Dir$+".Library"
@ � block% 1000
J � buffer% 1000
T � q% 2000
^; Task = &4B534154 : � ASCII representaion of 'TASK'
hF Wimp_Version = 2 : � Current WIMP version number (at least 2)
rI ș "Wimp_Initialise",Wimp_Version*100,Task,Task_Name$ � ,Task_Handle
| �
� :
�
� �SetUp
�: path$="":error%=�:max=2000:fileloaded$="":opt%=800000
�* omain$="<None":cmain$="<None":mmax=70
�Y � prog$(max,2),w%(max),dir2$(max),Main%(mmax),minfo%(mmax,2),mopen%(mmax),ver%(3000)
� �
� :
�F � ---------- Runing In The Desk Top ----------
� :
� � �RunUnderRisc
� �
�# ș "Wimp_Poll",0,q% � buffer%
� Ȏ buffer% �
F � 2 :�Open_Window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
� 3 :�Close_Window(!q%)
9 � 6 :�checkmouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
&" � 7 :�drag_end(Main%(1),8)
0' � 8 :�key(q%!0,q%!4,q%!8,q%!24)
: � 9 :�menuselect(q%)
D � 17,18 :�Receive(q%)
N �
X? � �>time%+600 � load%=� � �Close_Window(Loading%):load%=�
b � error%=� �
l ȗ X,Y,Z
v � X<250 � ȗ � 250,Y
� � X>1019 � ȗ � 1019,Y
� � Y<250 � ȗ � X,250
� � Y>639 � ȗ � X,639
�R � �iconstate(Report%,2)="&17219039" � Z=4 � error%=�:�Close_Window(Report%)
� �
� � �
� �
� :
�F � ---------- Create Wimp Menu ----------
� :
�3 � �checkmouse(x%,y%,Key%,Window%,Icon%,Other%)
�1 � > =Show Window Syntax >Text.Window_Name
�% � < =Fade Out Text Syntax <Text
% � @ =Tick Item Syntax @Text
> � ~ =Sub Menus Syntax ~Text\Sub_Menu$\Sub_Menu_Title
% � : =Doted Line Syntax :Text
) � , =Split Up Text Syntax Text,Text
* �menutext
4 � mb%,window,icon
>7 window=q%!12:icon=q%!16:mx%=q%!0:my%=q%!4:mb%=q%!8
H Ȏ Window% �
R � -2 :� Icon Bar
\9 � (Key%=4 � Key%=1) � fileloaded$<>"" � �openmain
fS � Key%=2 � �domenu(1,menubuf%,iconmenu$,Menu_Name$,x%-64,96+(NoInMen+1)*40)
p
z � Main%(1):count=1:�main
� � Main%(2):count=2:�main
� � Main%(3):count=3:�main
� � Main%(4):count=4:�main
� � Main%(5):count=5:�main
� � Main%(6):count=6:�main
� � Main%(7):count=7:�main
� � Main%(8):count=8:�main
� � Main%(9):count=9:�main
�! � Main%(10):count=10:�main
�! � Main%(11):count=11:�main
�! � Main%(12):count=12:�main
�! � Main%(13):count=13:�main
�! � Main%(14):count=14:�main
! � Main%(15):count=15:�main
! � Main%(16):count=16:�main
! � Main%(17):count=17:�main
$! � Main%(18):count=18:�main
.! � Main%(19):count=19:�main
8! � Main%(20):count=20:�main
B
L
� Opt%
V6 � �iconstate(Opt%,4)="&1722B31B" � opt%=800000
`7 � �iconstate(Opt%,5)="&1722B31B" � opt%=1600000
j6 � �iconstate(Opt%,6)="&1722B31B" � opt%=640000
t
~ �
� �
� :
� ��menutext
� NoInMen=6.25
�W iconmenu$=":>Info.Info%,>Options.Opt%,~Open\omain$\Open,:~Close\cmain$\Close,Quit"
� � fileloaded$<>"" �
� omain$="":cmain$=""
� �I=1�main%
� � I=main% �
�R � mopen%(I)=� � omain$+=":Floppy "+�(I)+"," � omain$+=":<Floppy "+�(I)+","
�R � mopen%(I)=� � cmain$+=":Floppy "+�(I)+"," � cmain$+=":<Floppy "+�(I)+","
� �
P � mopen%(I)=� � omain$+="Floppy "+�(I)+"," � omain$+="<Floppy "+�(I)+","
P � mopen%(I)=� � cmain$+="Floppy "+�(I)+"," � cmain$+="<Floppy "+�(I)+","
�
� I
( blnk1%=�:blnk2%=�
2 �I=1�main%
< � mopen%(I)=� � blnk1%=�
F � mopen%(I)=� � blnk2%=�
P � I
Z1 � blnk2%=� � omain$+="All" � omain$+="<All"
d1 � blnk1%=� � cmain$+="All" � cmain$+="<All"
n �
x �
� :
� ��main
�
Ȏ mb% �
� � 4,1
� Ȏ icon �
�1 � 8 : ste%=count:�drag_it(Main%(count),8)
� �
� �
�
ȗ X,Y,Z
�R � Key%=2 � �domenu(1,menubuf%,iconmenu$,Menu_Name$,X-85,Y-140+(NoInMen+1)*40)
� �
� :
�F � ---------- Recive Wimp Menu ----------
:
� �menuselect(menus%)
ș "Hourglass_On"
") � a,a$,level1$,level2$,level3$,recat
,
recat%=�
6> ș "Wimp_DecodeMenu",,(menubuf%+4),menus%,�200," ")�,,,a$
@
again%=�
J � a$="" � �
T level1$=�par(a$,".",a)
^7 � �level1$,1)="'" � level1$=level1$+�par(a$,".",a)
h2 level2$=�par(a$,".",a):level3$=�par(a$,".",a)
r � level1$="Quit" � �Finish
| �I=1�main%
�k � level1$="Open" � level2$="Floppy "+�(I) � �Open_Window(Main%(I),0+(I*20),45,1278,805,q%!20,q%!24,-1)
�I � level1$="Close" � level2$="Floppy "+�(I) � �Close_Window(Main%(I))
� � I
�
� � level2$="All" �
� �I=main%�1 � -1
�T � level1$="Open" � �Open_Window(Main%(I),0+(I*20),45,1278,805,q%!20,q%!24,-1)
�2 � level1$="Close" � �Close_Window(Main%(I))
� � I
� again%=�
� �
�
�( � level1$="Close" � level2$="All" �
�I=main%�1 � -1
�Close_Window(Main%(I))
� I
& again%=�
0 �
:
D\ � again%=� � �menutext:�domenu(1,menubuf%,iconmenu$,Menu_Name$,x%-64,96+(NoInMen+1)*40)
N ș "Hourglass_Smash"
X �
b :
l � �Receive(q%)
v Ȏ q%!16 �
�
� &3
� ș "Hourglass_On"
�& �Close_Window(Loading%):load%=�
� �I=1�mmax:mopen%(I)=�:� I
�! fileloaded$=�GetStr(q%+44)
� �cat(�GetStr(q%+44))
� �Create
� ș "Hourglass_Smash"
�
� � 2
� �Save
�
� �
�
:
L � ------------------------ Load In Templates --------------------------
:
* � �ReadTemplates
4. ș "Wimp_OpenTemplate",,Dir$+".Templates"
>$ Loading% = �template("loading")
H! Info% = �template("info")
R# Report% = �template("report")
\ Opt% = �template("opt")
f �I=1�mmax
p! Main%(I) = �template("main")
z � I
� ș "Wimp_CloseTemplate"
� �
� :
�L � ---------------------------------------------------------------------
� :
� ��key(window%,ic,x%,asc%)
� stev%=asc%
� Ȏ asc% �
� � 13 : �caret
�Q ș "Wimp_SetCaretPosition",Main%,icon%,,,-1,�(�_ReadIconText(icon%,Main%))
� �
� �
� :
� �caret
# ș "Wimp_GetCaretPosition",,q%
window%=q%!0
$ icon%=q%!4+1
. Ȏ window% �
8
B
� Main%
L Ȏ icon% �
V � 21 : icon%=12
` �
j
t
� Save%
~ Ȏ icon% �
� � 7 : icon%=6
� �Save:�:�:�
� �
� �
�
�S ș "Wimp_SetCaretPosition",window%,icon%,,,-1,�(�_ReadIconText(icon%,window%))
� �
� :
�L � *********************************************************************
�L � * -------------------------- Main Program ------------------------- *
�L � *********************************************************************
� :
��Save
� fileloaded$="" � �
6 nodir%=�countchr(�chopdir(fileloaded$,"$"),".")-1
' tprogs%=1:savename$=�string(q%+44)
(� � IF RIGHT$(savename$,3)="��" THEN savename$=FNchopstr(savename$,".")+"."+FNchopdir(fileloaded$,".") ELSE savename$=FNstring(q%+44)+FNchopdir(fileloaded$,"."
2( fileload$=�chopdir(fileloaded$,".")
<f � �fileload$,1)="!" � savename$=�string(q%+44)+fileload$ � savename$=�string(q%+44)+"!"+fileload$
F( savename2$=�string(q%+44)+fileload$
P �CreateFiles
Z ș "Hourglass_On"
d len%=�(prog$(1,0))+2
n �I=1�ste%
x& tprogs%+=minfo%(I,1)+minfo%(I,0)
� � I
�+ tprogs%-=minfo%(ste%,1)+minfo%(ste%,0)
�, � IF ste%=1 THEN OSCLI"CDIR "+savename$
� �"CDIR "+savename$
� � ste%>1 �
�S dir$=¤chopdir(prog$(tprogs%-1,0),"$"),�(�chopdir(prog$(tprogs%-1,0),"$"))-1)
� � nodir%<>0 �
� �S=1�nodir%
� dir$=�chopdir2(dir$,".")
�
� S
� �
�% � �dir$,1)<>"." � dir$="."+dir$
�% �S=�countchr(dir$,".")-1�1 � -1
tdir$=dir$
�I=1�S
! tdir$=�chopstr(tdir$,".")
"
� I
,. �"CDIR "+�chopstr(savename$,".")+tdir$
6 � S
@+ �"CDIR "+�chopstr(savename$,".")+dir$
J �
Tw � ste%=main% � maxfile%=minfo%(ste%,1)+minfo%(ste%,0)+tprogs%-2 � maxfile%=minfo%(ste%,1)+minfo%(ste%,0)+tprogs%-1
^ �I=tprogs%�maxfile%
hE ș "Hourglass_Percentage",((I-tprogs%+1)/(maxfile%-tprogs%))*100
r
stevy%=I
|( progfrom$=prog$(I,0)+"."+prog$(I,1)
�� � �(�prog$(I,0),len%,�(prog$(I,0))-len%+1))=0 � progto$=savename$+""+�prog$(I,0),len%,�(prog$(I,0))-len%+1)+"."+prog$(I,1) � progto$=savename$+"."+�prog$(I,0),len%,�(prog$(I,0))-len%+1)+"."+prog$(I,1)
� � prog$(I,2)="file" �
�F �"COPY "+progfrom$+" "+progto$+" A ~C ~D F L ~N ~P Q R ~S ~T ~V"
� �
� �"CDIR "+progto$
� �
� � I
� �Close_Window(Main%(ste%))
� ș "Hourglass_Off"
� �7
� �
� :
� ��print
�I=1�n%
P � PRINTFNchopstr(savename$,".")+""+FNchopdir(prog$(I,0),"$")+"."+prog$(I,1)
� � �(�prog$(I,0),len%,�(prog$(I,0))-len%+1))=0 � �savename$+""+�prog$(I,0),len%,�(prog$(I,0))-len%+1)+"."+prog$(I,1) � �savename$+"."+�prog$(I,0),len%,�(prog$(I,0))-len%+1)+"."+prog$(I,1)
&@ �"";I;" "+prog$(I,0)+"."+prog$(I,1)+" "+prog$(I,2)
0 � I
: �
D :
N
��Create
XA main%=1:nmin%=1:nmax%=n%:time%=�+50000:nodirs2%=0:stephen%=0
b- �put_icon_text(q%,Opt%,9,fileloaded$,-1)
l �
v �Count(main%)
� stephen%+=nodirs%
� minfo%(main%,0)=dirs2%
� minfo%(main%,1)=prog%
� minfo%(main%,2)=tsize%
�= �put_icon_text(q%,Main%(main%),11,�(minfo%(main%,0)),-1)
�= �put_icon_text(q%,Main%(main%),12,�(minfo%(main%,1)),-1)
�= �put_icon_text(q%,Main%(main%),13,�(minfo%(main%,2)),-1)
� � full%=� � nmin%=nmax%+1
�! � full%=� � main%+=1:size%=0
� � nmax%<nmin% � �>time%
� � �>time% � �7:�
� �finfo(fileloaded$)
� � dir%=� �
� � ��chopdir(fileloaded$,"."),1)="!" � stev%=�icon_newsprite(Opt%,3,�chopdir(fileloaded$,"."),-1) � stev%=�icon_newsprite(Opt%,3,"dir",-1)
�
8 stev%=�icon_newsprite(Opt%,3,"file_"+filetype$,-1)
�
* omain$="":cmain$=""
4 �I=1�main%
>4 �put_icon_text(q%,Main%(I),9,"Floppy "+�(I),-1)
HI � I=main% � omain$+=":Floppy "+�(I)+"," � omain$+="Floppy "+�(I)+","
RI � I=main% � cmain$+=":Floppy "+�(I)+"," � cmain$+="Floppy "+�(I)+","
\ � I
f omain$+="All":cmain$+="All"
p �I=main%�1 � -1
z? �Open_Window(Main%(I),0+(I*20),45,1278,805,q%!20,q%!24,-1)
� � I
� �7
� �
� :
� ��Count(m%)
�0 tsize%=0:full%=�:dirs2%=0:prog%=0:nodirs%=0
� �I=nmin%�n%
�& �finfo(prog$(I,0)+"."+prog$(I,1))
�' � prog$(I,2)="dir" � nodirs%+=4096
�6 � opt%=1600000 � nodirs2%=210000 � nodirs2%=30000
�0 � tsize%+�(size$)>(opt%-nodirs2%)-nodirs% �
�' � dir%=� � full%=�:nmin%=I-1:I=n%
�% � dir%=� � full%=�:nmin%=I:I=n%
�
� full%=� � dirs2%-=1
. � dir%=� � full%=� � prog%+=1 � dirs2%+=1
$* � dir%=� � full%=� � tsize%+=�(size$)
. �I
8! � main%=1 � nodirs2%=nodirs%
B �
L :
V ��openmain
`
ȗ X,Y,Z
j �I=1�main%
t^ � Z=4 � mopen%(I)=� � �Open_Window(Main%(I),0+(I*20),45,1278,805,q%!20,q%!24,-1):I=main%
~ � I
� �I=main%�1 � -1
�7 � Z=1 � mopen%(I)=� � �Close_Window(Main%(I)):I=1
� � I
� �
� :
� ��CreateFiles
�# � ------- Create !Boot -------
� ș "Hourglass_On"
� �"CDIR "+savename$
� ver%=1
� �I=0�vercount%
�) � ver%=1 � file$=savename$+".!Boot"
* � ver%=2 � file$=savename$+".!Boot�"
( � ver%=3 � file$=savename$+".!Run"
, � ver%=4 � file$=savename$+".!Sprites"
) � ver%=5 � file$=savename$+".chspr"
( wrch%=� file$
2 �
<' � ver%(I)<>169 � �#wrch%,ver%(I)
F2 ș "Hourglass_Percentage",(I/vercount%)*100
P � ver%(I)<>169 � I+=1
Z � ver%(I)=169
d+ � ver%=1 � �"SetType "+file$+" Obey"
n+ � ver%=2 � �"SetType "+file$+" Obey"
x+ � ver%=3 � �"SetType "+file$+" Obey"
�- � ver%=4 � �"SetType "+file$+" Sprite"
�. � ver%=5 � �"SetType "+file$+" Utility"
�
�#wrch%
�
ver%+=1
� �I
�$ �"CDIR "+savename$+".Directory"
�$ �"WimpTask "+savename$+".!Boot"
�" �"Delete "+savename$+".!Boot"
�" �"Delete "+savename$+".chspr"
�7 �"ReName "+savename$+".!Boot� "+savename$+".!Boot"
�* savename$+=".Directory"+"."+fileload$
� ș "Hourglass_Smash"
� �
:
��loadprogs
ș "Hourglass_On"
" vercount%=0
,� rech%=� "<Split$Dir>.!Support.!Boot":�:ver%(vercount%)=�#rech%:vercount%+=1:� �#rech%:�#rech%:ver%(vercount%)=169:vercount%+=1
6� rech%=� "<Split$Dir>.!Support.!Boot�":�:ver%(vercount%)=�#rech%:vercount%+=1:� �#rech%:�#rech%:ver%(vercount%)=169:vercount%+=1
@� rech%=� "<Split$Dir>.!Support.!Run":�:ver%(vercount%)=�#rech%:vercount%+=1:� �#rech%:�#rech%:ver%(vercount%)=169:vercount%+=1
J� rech%=� "<Split$Dir>.!Support.!Sprites":�:ver%(vercount%)=�#rech%:vercount%+=1:� �#rech%:�#rech%:ver%(vercount%)=169:vercount%+=1
Tv rech%=� "<Split$Dir>.!Support.chspr":�:ver%(vercount%)=�#rech%:vercount%+=1:� �#rech%:�#rech%:ver%(vercount%)=169
^ ș "Hourglass_Smash"
h �
� 00000000 0d 00 0a 1c 20 f4 3e 3c 53 70 6c 69 74 24 44 69 |.... .><Split$Di|
00000010 72 3e 2e 21 52 75 6e 49 6d 61 67 65 0d 00 14 2c |r>.!RunImage...,|
00000020 20 f4 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | . *************|
00000030 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
00000040 2a 2a 2a 2a 2a 2a 2a 2a 0d 00 1e 2c 20 f4 20 2a |********..., . *|
00000050 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000070 20 20 2a 2a 0d 00 28 2c 20 f4 20 2a 2a 20 20 52 | **..(, . ** R|
00000080 49 53 43 20 4f 53 20 4d 75 6c 74 69 2d 54 61 73 |ISC OS Multi-Tas|
00000090 6b 69 6e 67 20 50 72 6f 67 72 61 6d 20 20 2a 2a |king Program **|
000000a0 0d 00 32 2c 20 f4 20 2a 2a 20 20 20 20 20 20 20 |..2, . ** |
000000b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000c0 20 20 20 20 20 20 20 20 20 20 2a 2a 0d 00 3c 2c | **..<,|
000000d0 20 f4 20 2a 2a 20 20 20 20 20 53 74 65 70 68 65 | . ** Stephe|
000000e0 6e 20 4a 6f 68 6e 20 42 61 79 6c 69 73 73 20 a9 |n John Bayliss .|
000000f0 20 20 20 20 20 20 2a 2a 0d 00 46 2c 20 f4 20 2a | **..F, . *|
00000100 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000110 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000120 20 20 2a 2a 0d 00 50 2c 20 f4 20 2a 2a 2a 2a 2a | **..P, . *****|
00000130 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00000150 0d 00 5a 06 20 3a 0d 00 64 46 20 f4 20 4f 4e 45 |..Z. :..dF . ONE|
00000160 52 52 4f 52 20 4f 4e 45 52 52 4f 52 4f 46 46 3a |RROR ONERROROFF:|
00000170 56 44 55 37 3a 4d 4f 44 45 30 3a 52 45 50 4f 52 |VDU7:MODE0:REPOR|
00000180 54 3a 50 52 49 4e 54 22 20 61 74 20 6c 69 6e 65 |T:PRINT" at line|
00000190 20 22 3b 45 52 4c 27 27 3a 45 4e 44 0d 00 6e 0f | ";ERL'':END..n.|
000001a0 20 f2 49 6e 69 74 69 6c 69 73 65 0d 00 78 0b 20 | .Initilise..x. |
000001b0 f2 53 65 74 55 70 0d 00 82 0f 20 f2 6c 6f 61 64 |.SetUp.... .load|
000001c0 70 72 6f 67 73 0d 00 8c 41 20 f2 49 63 6f 6e 5f |progs...A .Icon_|
000001d0 42 61 72 5f 53 70 72 69 74 65 28 22 21 73 70 6c |Bar_Sprite("!spl|
000001e0 69 74 63 6f 70 79 22 2c 44 69 72 24 2b 22 2e 21 |itcopy",Dir$+".!|
000001f0 53 70 72 69 74 65 73 22 2c 2d 31 2c 31 2c 22 53 |Sprites",-1,1,"S|
00000200 70 6c 69 74 22 29 0d 00 96 1b 20 f2 52 65 61 64 |plit").... .Read|
00000210 54 65 6d 70 6c 61 74 65 73 3a 74 69 6d 65 25 3d |Templates:time%=|
00000220 91 0d 00 a0 43 20 6c 6f 61 64 25 3d b9 3a f2 4f |....C load%=.:.O|
00000230 70 65 6e 5f 57 69 6e 64 6f 77 28 4c 6f 61 64 69 |pen_Window(Loadi|
00000240 6e 67 25 2c 31 33 30 2c 33 30 30 2c 39 30 30 30 |ng%,130,300,9000|
00000250 2c 37 30 30 2c 71 25 21 32 30 2c 71 25 21 32 34 |,700,q%!20,q%!24|
00000260 2c 2d 31 29 0d 00 aa 16 20 f2 53 65 74 55 70 49 |,-1).... .SetUpI|
00000270 63 6f 6e 42 61 72 49 6e 66 6f 0d 00 b4 7e 20 ee |conBarInfo...~ .|
00000280 85 20 ef 36 3a f2 72 65 70 6f 72 74 28 22 44 6f |. .6:.report("Do|
00000290 6e 27 74 20 70 61 6e 69 63 2c 20 69 74 27 73 20 |n't panic, it's |
000002a0 6f 6e 6c 79 20 61 20 6c 69 74 74 6c 65 20 65 72 |only a little er|
000002b0 72 6f 72 22 2c 22 22 2c f6 24 2c 22 20 61 74 20 |ror","",.$," at |
000002c0 6c 69 6e 65 20 22 2b c3 9e 2c 22 57 68 6f 27 73 |line "+..,"Who's|
000002d0 20 74 68 65 20 64 69 70 20 73 74 69 63 6b 20 74 | the dip stick t|
000002e0 68 61 74 20 77 72 6f 74 65 20 74 68 69 73 20 70 |hat wrote this p|
000002f0 72 6f 67 72 61 6d 22 29 0d 00 be 12 20 f2 52 75 |rogram").... .Ru|
00000300 6e 55 6e 64 65 72 52 69 73 63 0d 00 c8 06 20 e0 |nUnderRisc.... .|
00000310 0d 00 d2 06 20 3a 0d 00 dc 18 20 dd f2 69 73 74 |.... :.... ..ist|
00000320 61 74 65 28 71 25 21 30 2c 71 25 21 34 29 0d 00 |ate(q%!0,q%!4)..|
00000330 e6 11 20 c8 99 26 34 30 30 43 45 2c 2c 71 25 0d |.. ..&400CE,,q%.|
00000340 00 f0 06 20 e1 0d 00 fa 06 20 3a 0d 01 04 46 20 |... ..... :...F |
00000350 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 |. ---------- |
00000360 20 20 20 20 20 20 20 53 65 74 20 55 70 20 44 65 | Set Up De|
00000370 73 6b 20 54 6f 70 20 20 20 20 20 20 20 20 20 20 |sk Top |
00000380 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d | ---------|
00000390 2d 0d 01 0e 06 20 3a 0d 01 18 11 20 dd 20 f2 49 |-.... :.... . .I|
000003a0 6e 69 74 69 6c 69 73 65 0d 01 22 1c 20 4d 65 6e |nitilise..". Men|
000003b0 75 5f 4e 61 6d 65 24 3d 22 21 53 70 6c 69 74 43 |u_Name$="!SplitC|
000003c0 6f 70 79 22 0d 01 2c 45 20 54 61 73 6b 5f 4e 61 |opy"..,E Task_Na|
000003d0 6d 65 24 3d 22 21 53 70 6c 69 74 43 6f 70 79 20 |me$="!SplitCopy |
000003e0 42 79 20 53 4a 42 22 3a 44 69 72 24 3d 22 3c 53 |By SJB":Dir$="<S|
000003f0 70 6c 69 74 24 44 69 72 3e 22 3a 49 63 6f 6e 53 |plit$Dir>":IconS|
00000400 70 72 69 74 65 73 25 3d 30 0d 01 36 17 20 c8 9b |prites%=0..6. ..|
00000410 20 44 69 72 24 2b 22 2e 4c 69 62 72 61 72 79 22 | Dir$+".Library"|
00000420 0d 01 40 12 20 de 20 62 6c 6f 63 6b 25 20 31 30 |..@. . block% 10|
00000430 30 30 0d 01 4a 13 20 de 20 62 75 66 66 65 72 25 |00..J. . buffer%|
00000440 20 31 30 30 30 0d 01 54 0e 20 de 20 71 25 20 32 | 1000..T. . q% 2|
00000450 30 30 30 0d 01 5e 3b 20 54 61 73 6b 20 3d 20 26 |000..^; Task = &|
00000460 34 42 35 33 34 31 35 34 20 20 20 20 20 3a 20 f4 |4B534154 : .|
00000470 20 41 53 43 49 49 20 72 65 70 72 65 73 65 6e 74 | ASCII represent|
00000480 61 69 6f 6e 20 6f 66 20 27 54 41 53 4b 27 0d 01 |aion of 'TASK'..|
00000490 68 46 20 57 69 6d 70 5f 56 65 72 73 69 6f 6e 20 |hF Wimp_Version |
000004a0 3d 20 32 20 20 20 20 20 3a 20 f4 20 43 75 72 72 |= 2 : . Curr|
000004b0 65 6e 74 20 57 49 4d 50 20 76 65 72 73 69 6f 6e |ent WIMP version|
000004c0 20 6e 75 6d 62 65 72 20 28 61 74 20 6c 65 61 73 | number (at leas|
000004d0 74 20 32 29 0d 01 72 49 20 c8 99 20 22 57 69 6d |t 2)..rI .. "Wim|
000004e0 70 5f 49 6e 69 74 69 61 6c 69 73 65 22 2c 57 69 |p_Initialise",Wi|
000004f0 6d 70 5f 56 65 72 73 69 6f 6e 2a 31 30 30 2c 54 |mp_Version*100,T|
00000500 61 73 6b 2c 54 61 73 6b 5f 4e 61 6d 65 24 20 b8 |ask,Task_Name$ .|
00000510 20 2c 54 61 73 6b 5f 48 61 6e 64 6c 65 0d 01 7c | ,Task_Handle..||
00000520 06 20 e1 0d 01 86 06 20 3a 0d 01 90 0d 20 dd 20 |. ..... :.... . |
00000530 f2 53 65 74 55 70 0d 01 9a 3a 20 70 61 74 68 24 |.SetUp...: path$|
00000540 3d 22 22 3a 65 72 72 6f 72 25 3d a3 3a 6d 61 78 |="":error%=.:max|
00000550 3d 32 30 30 30 3a 66 69 6c 65 6c 6f 61 64 65 64 |=2000:fileloaded|
00000560 24 3d 22 22 3a 6f 70 74 25 3d 38 30 30 30 30 30 |$="":opt%=800000|
00000570 0d 01 a4 2a 20 6f 6d 61 69 6e 24 3d 22 3c 4e 6f |...* omain$="<No|
00000580 6e 65 22 3a 63 6d 61 69 6e 24 3d 22 3c 4e 6f 6e |ne":cmain$="<Non|
00000590 65 22 3a 6d 6d 61 78 3d 37 30 0d 01 ae 59 20 de |e":mmax=70...Y .|
000005a0 20 70 72 6f 67 24 28 6d 61 78 2c 32 29 2c 77 25 | prog$(max,2),w%|
000005b0 28 6d 61 78 29 2c 64 69 72 32 24 28 6d 61 78 29 |(max),dir2$(max)|
000005c0 2c 4d 61 69 6e 25 28 6d 6d 61 78 29 2c 6d 69 6e |,Main%(mmax),min|
000005d0 66 6f 25 28 6d 6d 61 78 2c 32 29 2c 6d 6f 70 65 |fo%(mmax,2),mope|
000005e0 6e 25 28 6d 6d 61 78 29 2c 76 65 72 25 28 33 30 |n%(mmax),ver%(30|
000005f0 30 30 29 0d 01 b8 06 20 e1 0d 01 c2 06 20 3a 0d |00).... ..... :.|
00000600 01 cc 46 20 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |..F . ----------|
00000610 20 20 20 20 20 20 20 52 75 6e 69 6e 67 20 49 6e | Runing In|
00000620 20 54 68 65 20 44 65 73 6b 20 54 6f 70 20 20 20 | The Desk Top |
00000630 20 20 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d | -----|
00000640 2d 2d 2d 2d 2d 0d 01 d6 06 20 3a 0d 01 e0 14 20 |-----.... :.... |
00000650 dd 20 f2 52 75 6e 55 6e 64 65 72 52 69 73 63 0d |. .RunUnderRisc.|
00000660 01 ea 06 20 f5 0d 01 f4 23 20 20 c8 99 20 22 57 |... ....# .. "W|
00000670 69 6d 70 5f 50 6f 6c 6c 22 2c 30 2c 71 25 20 b8 |imp_Poll",0,q% .|
00000680 20 62 75 66 66 65 72 25 0d 01 fe 12 20 20 c8 8e | buffer%.... ..|
00000690 20 62 75 66 66 65 72 25 20 ca 0d 02 08 46 20 20 | buffer% ....F |
000006a0 20 c9 20 32 20 20 3a f2 4f 70 65 6e 5f 57 69 6e | . 2 :.Open_Win|
000006b0 64 6f 77 28 21 71 25 2c 71 25 21 34 2c 71 25 21 |dow(!q%,q%!4,q%!|
000006c0 38 2c 71 25 21 31 32 2c 71 25 21 31 36 2c 71 25 |8,q%!12,q%!16,q%|
000006d0 21 32 30 2c 71 25 21 32 34 2c 71 25 21 32 38 29 |!20,q%!24,q%!28)|
000006e0 0d 02 12 1f 20 20 20 c9 20 33 20 20 3a f2 43 6c |.... . 3 :.Cl|
000006f0 6f 73 65 5f 57 69 6e 64 6f 77 28 21 71 25 29 0d |ose_Window(!q%).|
00000700 02 1c 39 20 20 20 c9 20 36 20 20 3a f2 63 68 65 |..9 . 6 :.che|
00000710 63 6b 6d 6f 75 73 65 28 21 71 25 2c 71 25 21 34 |ckmouse(!q%,q%!4|
00000720 2c 71 25 21 38 2c 71 25 21 31 32 2c 71 25 21 31 |,q%!8,q%!12,q%!1|
00000730 36 2c 71 25 21 32 30 29 0d 02 26 22 20 20 20 c9 |6,q%!20)..&" .|
00000740 20 37 20 20 3a f2 64 72 61 67 5f 65 6e 64 28 4d | 7 :.drag_end(M|
00000750 61 69 6e 25 28 31 29 2c 38 29 0d 02 30 27 20 20 |ain%(1),8)..0' |
00000760 20 c9 20 38 20 20 3a f2 6b 65 79 28 71 25 21 30 | . 8 :.key(q%!0|
00000770 2c 71 25 21 34 2c 71 25 21 38 2c 71 25 21 32 34 |,q%!4,q%!8,q%!24|
00000780 29 0d 02 3a 1c 20 20 20 c9 20 39 20 20 3a f2 6d |)..:. . 9 :.m|
00000790 65 6e 75 73 65 6c 65 63 74 28 71 25 29 0d 02 44 |enuselect(q%)..D|
000007a0 1c 20 20 20 c9 20 31 37 2c 31 38 20 3a f2 52 65 |. . 17,18 :.Re|
000007b0 63 65 69 76 65 28 71 25 29 0d 02 4e 07 20 20 cb |ceive(q%)..N. .|
000007c0 0d 02 58 3f 20 20 e7 20 91 3e 74 69 6d 65 25 2b |..X? . .>time%+|
000007d0 36 30 30 20 80 20 6c 6f 61 64 25 3d b9 20 8c 20 |600 . load%=. . |
000007e0 f2 43 6c 6f 73 65 5f 57 69 6e 64 6f 77 28 4c 6f |.Close_Window(Lo|
000007f0 61 64 69 6e 67 25 29 3a 6c 6f 61 64 25 3d a3 0d |ading%):load%=..|
00000800 02 62 12 20 20 e7 20 65 72 72 6f 72 25 3d b9 20 |.b. . error%=. |
00000810 8c 0d 02 6c 0e 20 20 c8 97 20 58 2c 59 2c 5a 0d |...l. .. X,Y,Z.|
00000820 02 76 1b 20 20 20 e7 20 58 3c 32 35 30 20 8c 20 |.v. . X<250 . |
00000830 c8 97 20 b8 20 32 35 30 2c 59 0d 02 80 1d 20 20 |.. . 250,Y.... |
00000840 20 e7 20 58 3e 31 30 31 39 20 8c 20 c8 97 20 b8 | . X>1019 . .. .|
00000850 20 31 30 31 39 2c 59 0d 02 8a 1b 20 20 20 e7 20 | 1019,Y.... . |
00000860 59 3c 32 35 30 20 8c 20 c8 97 20 b8 20 58 2c 32 |Y<250 . .. . X,2|
00000870 35 30 0d 02 94 1b 20 20 20 e7 20 59 3e 36 33 39 |50.... . Y>639|
00000880 20 8c 20 c8 97 20 b8 20 58 2c 36 33 39 0d 02 9e | . .. . X,639...|
00000890 52 20 20 20 e7 20 a4 69 63 6f 6e 73 74 61 74 65 |R . .iconstate|
000008a0 28 52 65 70 6f 72 74 25 2c 32 29 3d 22 26 31 37 |(Report%,2)="&17|
000008b0 32 31 39 30 33 39 22 20 80 20 5a 3d 34 20 8c 20 |219039" . Z=4 . |
000008c0 65 72 72 6f 72 25 3d a3 3a f2 43 6c 6f 73 65 5f |error%=.:.Close_|
000008d0 57 69 6e 64 6f 77 28 52 65 70 6f 72 74 25 29 0d |Window(Report%).|
000008e0 02 a8 07 20 20 cd 0d 02 b2 08 20 fd 20 a3 0d 02 |... ..... . ...|
000008f0 bc 06 20 e1 0d 02 c6 06 20 3a 0d 02 d0 46 20 f4 |.. ..... :...F .|
00000900 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 20 | ---------- |
00000910 20 20 20 20 20 20 43 72 65 61 74 65 20 57 69 6d | Create Wim|
00000920 70 20 4d 65 6e 75 20 20 20 20 20 20 20 20 20 20 |p Menu |
00000930 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ----------|
00000940 0d 02 da 06 20 3a 0d 02 e4 33 20 dd 20 f2 63 68 |.... :...3 . .ch|
00000950 65 63 6b 6d 6f 75 73 65 28 78 25 2c 79 25 2c 4b |eckmouse(x%,y%,K|
00000960 65 79 25 2c 57 69 6e 64 6f 77 25 2c 49 63 6f 6e |ey%,Window%,Icon|
00000970 25 2c 4f 74 68 65 72 25 29 0d 02 ee 31 20 f4 20 |%,Other%)...1 . |
00000980 3e 20 3d 53 68 6f 77 20 57 69 6e 64 6f 77 20 20 |> =Show Window |
00000990 20 20 53 79 6e 74 61 78 20 3e 54 65 78 74 2e 57 | Syntax >Text.W|
000009a0 69 6e 64 6f 77 5f 4e 61 6d 65 0d 02 f8 25 20 f4 |indow_Name...% .|
000009b0 20 3c 20 3d 46 61 64 65 20 4f 75 74 20 54 65 78 | < =Fade Out Tex|
000009c0 74 20 20 53 79 6e 74 61 78 20 3c 54 65 78 74 0d |t Syntax <Text.|
000009d0 03 02 25 20 f4 20 40 20 3d 54 69 63 6b 20 49 74 |..% . @ =Tick It|
000009e0 65 6d 20 20 20 20 20 20 53 79 6e 74 61 78 20 40 |em Syntax @|
000009f0 54 65 78 74 0d 03 0c 3e 20 f4 20 7e 20 3d 53 75 |Text...> . ~ =Su|
00000a00 62 20 4d 65 6e 75 73 20 20 20 20 20 20 53 79 6e |b Menus Syn|
00000a10 74 61 78 20 7e 54 65 78 74 5c 53 75 62 5f 4d 65 |tax ~Text\Sub_Me|
00000a20 6e 75 24 5c 53 75 62 5f 4d 65 6e 75 5f 54 69 74 |nu$\Sub_Menu_Tit|
00000a30 6c 65 0d 03 16 25 20 f4 20 3a 20 3d 44 6f 74 65 |le...% . : =Dote|
00000a40 64 20 4c 69 6e 65 20 20 20 20 20 53 79 6e 74 61 |d Line Synta|
00000a50 78 20 3a 54 65 78 74 0d 03 20 29 20 f4 20 2c 20 |x :Text.. ) . , |
00000a60 3d 53 70 6c 69 74 20 55 70 20 54 65 78 74 20 20 |=Split Up Text |
00000a70 53 79 6e 74 61 78 20 54 65 78 74 2c 54 65 78 74 |Syntax Text,Text|
00000a80 0d 03 2a 0e 20 f2 6d 65 6e 75 74 65 78 74 0d 03 |..*. .menutext..|
00000a90 34 16 20 ea 20 6d 62 25 2c 77 69 6e 64 6f 77 2c |4. . mb%,window,|
00000aa0 69 63 6f 6e 0d 03 3e 37 20 77 69 6e 64 6f 77 3d |icon..>7 window=|
00000ab0 71 25 21 31 32 3a 69 63 6f 6e 3d 71 25 21 31 36 |q%!12:icon=q%!16|
00000ac0 3a 6d 78 25 3d 71 25 21 30 3a 6d 79 25 3d 71 25 |:mx%=q%!0:my%=q%|
00000ad0 21 34 3a 6d 62 25 3d 71 25 21 38 0d 03 48 11 20 |!4:mb%=q%!8..H. |
00000ae0 c8 8e 20 57 69 6e 64 6f 77 25 20 ca 0d 03 52 1a |.. Window% ...R.|
00000af0 20 20 20 c9 20 2d 32 20 20 20 20 3a f4 20 49 63 | . -2 :. Ic|
00000b00 6f 6e 20 42 61 72 0d 03 5c 39 20 20 20 20 e7 20 |on Bar..\9 . |
00000b10 28 4b 65 79 25 3d 34 20 84 20 4b 65 79 25 3d 31 |(Key%=4 . Key%=1|
00000b20 29 20 80 20 66 69 6c 65 6c 6f 61 64 65 64 24 3c |) . fileloaded$<|
00000b30 3e 22 22 20 8c 20 f2 6f 70 65 6e 6d 61 69 6e 0d |>"" . .openmain.|
00000b40 03 66 53 20 20 20 20 e7 20 4b 65 79 25 3d 32 20 |.fS . Key%=2 |
00000b50 8c 20 f2 64 6f 6d 65 6e 75 28 31 2c 6d 65 6e 75 |. .domenu(1,menu|
00000b60 62 75 66 25 2c 69 63 6f 6e 6d 65 6e 75 24 2c 4d |buf%,iconmenu$,M|
00000b70 65 6e 75 5f 4e 61 6d 65 24 2c 78 25 2d 36 34 2c |enu_Name$,x%-64,|
00000b80 39 36 2b 28 4e 6f 49 6e 4d 65 6e 2b 31 29 2a 34 |96+(NoInMen+1)*4|
00000b90 30 29 0d 03 70 04 0d 03 7a 1f 20 20 20 c9 20 4d |0)..p...z. . M|
00000ba0 61 69 6e 25 28 31 29 3a 63 6f 75 6e 74 3d 31 3a |ain%(1):count=1:|
00000bb0 f2 6d 61 69 6e 0d 03 84 1f 20 20 20 c9 20 4d 61 |.main.... . Ma|
00000bc0 69 6e 25 28 32 29 3a 63 6f 75 6e 74 3d 32 3a f2 |in%(2):count=2:.|
00000bd0 6d 61 69 6e 0d 03 8e 1f 20 20 20 c9 20 4d 61 69 |main.... . Mai|
00000be0 6e 25 28 33 29 3a 63 6f 75 6e 74 3d 33 3a f2 6d |n%(3):count=3:.m|
00000bf0 61 69 6e 0d 03 98 1f 20 20 20 c9 20 4d 61 69 6e |ain.... . Main|
00000c00 25 28 34 29 3a 63 6f 75 6e 74 3d 34 3a f2 6d 61 |%(4):count=4:.ma|
00000c10 69 6e 0d 03 a2 1f 20 20 20 c9 20 4d 61 69 6e 25 |in.... . Main%|
00000c20 28 35 29 3a 63 6f 75 6e 74 3d 35 3a f2 6d 61 69 |(5):count=5:.mai|
00000c30 6e 0d 03 ac 1f 20 20 20 c9 20 4d 61 69 6e 25 28 |n.... . Main%(|
00000c40 36 29 3a 63 6f 75 6e 74 3d 36 3a f2 6d 61 69 6e |6):count=6:.main|
00000c50 0d 03 b6 1f 20 20 20 c9 20 4d 61 69 6e 25 28 37 |.... . Main%(7|
00000c60 29 3a 63 6f 75 6e 74 3d 37 3a f2 6d 61 69 6e 0d |):count=7:.main.|
00000c70 03 c0 1f 20 20 20 c9 20 4d 61 69 6e 25 28 38 29 |... . Main%(8)|
00000c80 3a 63 6f 75 6e 74 3d 38 3a f2 6d 61 69 6e 0d 03 |:count=8:.main..|
00000c90 ca 1f 20 20 20 c9 20 4d 61 69 6e 25 28 39 29 3a |.. . Main%(9):|
00000ca0 63 6f 75 6e 74 3d 39 3a f2 6d 61 69 6e 0d 03 d4 |count=9:.main...|
00000cb0 21 20 20 20 c9 20 4d 61 69 6e 25 28 31 30 29 3a |! . Main%(10):|
00000cc0 63 6f 75 6e 74 3d 31 30 3a f2 6d 61 69 6e 0d 03 |count=10:.main..|
00000cd0 de 21 20 20 20 c9 20 4d 61 69 6e 25 28 31 31 29 |.! . Main%(11)|
00000ce0 3a 63 6f 75 6e 74 3d 31 31 3a f2 6d 61 69 6e 0d |:count=11:.main.|
00000cf0 03 e8 21 20 20 20 c9 20 4d 61 69 6e 25 28 31 32 |..! . Main%(12|
00000d00 29 3a 63 6f 75 6e 74 3d 31 32 3a f2 6d 61 69 6e |):count=12:.main|
00000d10 0d 03 f2 21 20 20 20 c9 20 4d 61 69 6e 25 28 31 |...! . Main%(1|
00000d20 33 29 3a 63 6f 75 6e 74 3d 31 33 3a f2 6d 61 69 |3):count=13:.mai|
00000d30 6e 0d 03 fc 21 20 20 20 c9 20 4d 61 69 6e 25 28 |n...! . Main%(|
00000d40 31 34 29 3a 63 6f 75 6e 74 3d 31 34 3a f2 6d 61 |14):count=14:.ma|
00000d50 69 6e 0d 04 06 21 20 20 20 c9 20 4d 61 69 6e 25 |in...! . Main%|
00000d60 28 31 35 29 3a 63 6f 75 6e 74 3d 31 35 3a f2 6d |(15):count=15:.m|
00000d70 61 69 6e 0d 04 10 21 20 20 20 c9 20 4d 61 69 6e |ain...! . Main|
00000d80 25 28 31 36 29 3a 63 6f 75 6e 74 3d 31 36 3a f2 |%(16):count=16:.|
00000d90 6d 61 69 6e 0d 04 1a 21 20 20 20 c9 20 4d 61 69 |main...! . Mai|
00000da0 6e 25 28 31 37 29 3a 63 6f 75 6e 74 3d 31 37 3a |n%(17):count=17:|
00000db0 f2 6d 61 69 6e 0d 04 24 21 20 20 20 c9 20 4d 61 |.main..$! . Ma|
00000dc0 69 6e 25 28 31 38 29 3a 63 6f 75 6e 74 3d 31 38 |in%(18):count=18|
00000dd0 3a f2 6d 61 69 6e 0d 04 2e 21 20 20 20 c9 20 4d |:.main...! . M|
00000de0 61 69 6e 25 28 31 39 29 3a 63 6f 75 6e 74 3d 31 |ain%(19):count=1|
00000df0 39 3a f2 6d 61 69 6e 0d 04 38 21 20 20 20 c9 20 |9:.main..8! . |
00000e00 4d 61 69 6e 25 28 32 30 29 3a 63 6f 75 6e 74 3d |Main%(20):count=|
00000e10 32 30 3a f2 6d 61 69 6e 0d 04 42 04 0d 04 4c 0d |20:.main..B...L.|
00000e20 20 20 20 c9 20 4f 70 74 25 0d 04 56 36 20 20 20 | . Opt%..V6 |
00000e30 20 e7 20 a4 69 63 6f 6e 73 74 61 74 65 28 4f 70 | . .iconstate(Op|
00000e40 74 25 2c 34 29 3d 22 26 31 37 32 32 42 33 31 42 |t%,4)="&1722B31B|
00000e50 22 20 8c 20 6f 70 74 25 3d 38 30 30 30 30 30 0d |" . opt%=800000.|
00000e60 04 60 37 20 20 20 20 e7 20 a4 69 63 6f 6e 73 74 |.`7 . .iconst|
00000e70 61 74 65 28 4f 70 74 25 2c 35 29 3d 22 26 31 37 |ate(Opt%,5)="&17|
00000e80 32 32 42 33 31 42 22 20 8c 20 6f 70 74 25 3d 31 |22B31B" . opt%=1|
00000e90 36 30 30 30 30 30 0d 04 6a 36 20 20 20 20 e7 20 |600000..j6 . |
00000ea0 a4 69 63 6f 6e 73 74 61 74 65 28 4f 70 74 25 2c |.iconstate(Opt%,|
00000eb0 36 29 3d 22 26 31 37 32 32 42 33 31 42 22 20 8c |6)="&1722B31B" .|
00000ec0 20 6f 70 74 25 3d 36 34 30 30 30 30 0d 04 74 04 | opt%=640000..t.|
00000ed0 0d 04 7e 06 20 cb 0d 04 88 06 20 e1 0d 04 92 06 |..~. ..... .....|
00000ee0 20 3a 0d 04 9c 0f 20 dd f2 6d 65 6e 75 74 65 78 | :.... ..menutex|
00000ef0 74 0d 04 a6 11 20 4e 6f 49 6e 4d 65 6e 3d 36 2e |t.... NoInMen=6.|
00000f00 32 35 0d 04 b0 57 20 69 63 6f 6e 6d 65 6e 75 24 |25...W iconmenu$|
00000f10 3d 22 3a 3e 49 6e 66 6f 2e 49 6e 66 6f 25 2c 3e |=":>Info.Info%,>|
00000f20 4f 70 74 69 6f 6e 73 2e 4f 70 74 25 2c 7e 4f 70 |Options.Opt%,~Op|
00000f30 65 6e 5c 6f 6d 61 69 6e 24 5c 4f 70 65 6e 2c 3a |en\omain$\Open,:|
00000f40 7e 43 6c 6f 73 65 5c 63 6d 61 69 6e 24 5c 43 6c |~Close\cmain$\Cl|
00000f50 6f 73 65 2c 51 75 69 74 22 0d 04 ba 18 20 e7 20 |ose,Quit".... . |
00000f60 66 69 6c 65 6c 6f 61 64 65 64 24 3c 3e 22 22 20 |fileloaded$<>"" |
00000f70 8c 0d 04 c4 19 20 20 6f 6d 61 69 6e 24 3d 22 22 |..... omain$=""|
00000f80 3a 63 6d 61 69 6e 24 3d 22 22 0d 04 ce 10 20 20 |:cmain$="".... |
00000f90 e3 49 3d 31 b8 6d 61 69 6e 25 0d 04 d8 12 20 20 |.I=1.main%.... |
00000fa0 20 e7 20 49 3d 6d 61 69 6e 25 20 8c 0d 04 e2 52 | . I=main% ....R|
00000fb0 20 20 20 20 e7 20 6d 6f 70 65 6e 25 28 49 29 3d | . mopen%(I)=|
00000fc0 a3 20 8c 20 6f 6d 61 69 6e 24 2b 3d 22 3a 46 6c |. . omain$+=":Fl|
00000fd0 6f 70 70 79 20 22 2b c3 28 49 29 2b 22 2c 22 20 |oppy "+.(I)+"," |
00000fe0 8b 20 6f 6d 61 69 6e 24 2b 3d 22 3a 3c 46 6c 6f |. omain$+=":<Flo|
00000ff0 70 70 79 20 22 2b c3 28 49 29 2b 22 2c 22 0d 04 |ppy "+.(I)+","..|
00001000 ec 52 20 20 20 20 e7 20 6d 6f 70 65 6e 25 28 49 |.R . mopen%(I|
00001010 29 3d b9 20 8c 20 63 6d 61 69 6e 24 2b 3d 22 3a |)=. . cmain$+=":|
00001020 46 6c 6f 70 70 79 20 22 2b c3 28 49 29 2b 22 2c |Floppy "+.(I)+",|
00001030 22 20 8b 20 63 6d 61 69 6e 24 2b 3d 22 3a 3c 46 |" . cmain$+=":<F|
00001040 6c 6f 70 70 79 20 22 2b c3 28 49 29 2b 22 2c 22 |loppy "+.(I)+","|
00001050 0d 04 f6 08 20 20 20 cc 0d 05 00 50 20 20 20 20 |.... ....P |
00001060 e7 20 6d 6f 70 65 6e 25 28 49 29 3d a3 20 8c 20 |. mopen%(I)=. . |
00001070 6f 6d 61 69 6e 24 2b 3d 22 46 6c 6f 70 70 79 20 |omain$+="Floppy |
00001080 22 2b c3 28 49 29 2b 22 2c 22 20 8b 20 6f 6d 61 |"+.(I)+"," . oma|
00001090 69 6e 24 2b 3d 22 3c 46 6c 6f 70 70 79 20 22 2b |in$+="<Floppy "+|
000010a0 c3 28 49 29 2b 22 2c 22 0d 05 0a 50 20 20 20 20 |.(I)+","...P |
000010b0 e7 20 6d 6f 70 65 6e 25 28 49 29 3d b9 20 8c 20 |. mopen%(I)=. . |
000010c0 63 6d 61 69 6e 24 2b 3d 22 46 6c 6f 70 70 79 20 |cmain$+="Floppy |
000010d0 22 2b c3 28 49 29 2b 22 2c 22 20 8b 20 63 6d 61 |"+.(I)+"," . cma|
000010e0 69 6e 24 2b 3d 22 3c 46 6c 6f 70 70 79 20 22 2b |in$+="<Floppy "+|
000010f0 c3 28 49 29 2b 22 2c 22 0d 05 14 08 20 20 20 cd |.(I)+",".... .|
00001100 0d 05 1e 09 20 20 ed 20 49 0d 05 28 17 20 20 62 |.... . I..(. b|
00001110 6c 6e 6b 31 25 3d b9 3a 62 6c 6e 6b 32 25 3d b9 |lnk1%=.:blnk2%=.|
00001120 0d 05 32 10 20 20 e3 49 3d 31 b8 6d 61 69 6e 25 |..2. .I=1.main%|
00001130 0d 05 3c 1f 20 20 20 e7 20 6d 6f 70 65 6e 25 28 |..<. . mopen%(|
00001140 49 29 3d b9 20 8c 20 62 6c 6e 6b 31 25 3d a3 0d |I)=. . blnk1%=..|
00001150 05 46 1f 20 20 20 e7 20 6d 6f 70 65 6e 25 28 49 |.F. . mopen%(I|
00001160 29 3d a3 20 8c 20 62 6c 6e 6b 32 25 3d a3 0d 05 |)=. . blnk2%=...|
00001170 50 09 20 20 ed 20 49 0d 05 5a 31 20 20 e7 20 62 |P. . I..Z1 . b|
00001180 6c 6e 6b 32 25 3d a3 20 8c 20 6f 6d 61 69 6e 24 |lnk2%=. . omain$|
00001190 2b 3d 22 41 6c 6c 22 20 8b 20 6f 6d 61 69 6e 24 |+="All" . omain$|
000011a0 2b 3d 22 3c 41 6c 6c 22 0d 05 64 31 20 20 e7 20 |+="<All"..d1 . |
000011b0 62 6c 6e 6b 31 25 3d a3 20 8c 20 63 6d 61 69 6e |blnk1%=. . cmain|
000011c0 24 2b 3d 22 41 6c 6c 22 20 8b 20 63 6d 61 69 6e |$+="All" . cmain|
000011d0 24 2b 3d 22 3c 41 6c 6c 22 0d 05 6e 06 20 cd 0d |$+="<All"..n. ..|
000011e0 05 78 06 20 e1 0d 05 82 06 20 3a 0d 05 8c 0b 20 |.x. ..... :.... |
000011f0 dd f2 6d 61 69 6e 0d 05 96 0d 20 c8 8e 20 6d 62 |..main.... .. mb|
00001200 25 20 ca 0d 05 a0 0b 20 20 c9 20 34 2c 31 0d 05 |% ..... . 4,1..|
00001210 aa 10 20 20 20 c8 8e 20 69 63 6f 6e 20 ca 0d 05 |.. .. icon ...|
00001220 b4 31 20 20 20 20 c9 20 38 20 3a 20 73 74 65 25 |.1 . 8 : ste%|
00001230 3d 63 6f 75 6e 74 3a f2 64 72 61 67 5f 69 74 28 |=count:.drag_it(|
00001240 4d 61 69 6e 25 28 63 6f 75 6e 74 29 2c 38 29 0d |Main%(count),8).|
00001250 05 be 08 20 20 20 cb 0d 05 c8 06 20 cb 0d 05 d2 |... ..... ....|
00001260 0d 20 c8 97 20 58 2c 59 2c 5a 0d 05 dc 52 20 e7 |. .. X,Y,Z...R .|
00001270 20 4b 65 79 25 3d 32 20 8c 20 f2 64 6f 6d 65 6e | Key%=2 . .domen|
00001280 75 28 31 2c 6d 65 6e 75 62 75 66 25 2c 69 63 6f |u(1,menubuf%,ico|
00001290 6e 6d 65 6e 75 24 2c 4d 65 6e 75 5f 4e 61 6d 65 |nmenu$,Menu_Name|
000012a0 24 2c 58 2d 38 35 2c 59 2d 31 34 30 2b 28 4e 6f |$,X-85,Y-140+(No|
000012b0 49 6e 4d 65 6e 2b 31 29 2a 34 30 29 0d 05 e6 06 |InMen+1)*40)....|
000012c0 20 e1 0d 05 f0 06 20 3a 0d 05 fa 46 20 f4 20 2d | ..... :...F . -|
000012d0 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 20 20 20 |--------- |
000012e0 20 20 20 20 52 65 63 69 76 65 20 57 69 6d 70 20 | Recive Wimp |
000012f0 4d 65 6e 75 20 20 20 20 20 20 20 20 20 20 20 20 |Menu |
00001300 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 06 | ----------..|
00001310 04 06 20 3a 0d 06 0e 1a 20 dd 20 f2 6d 65 6e 75 |.. :.... . .menu|
00001320 73 65 6c 65 63 74 28 6d 65 6e 75 73 25 29 0d 06 |select(menus%)..|
00001330 18 16 20 c8 99 20 22 48 6f 75 72 67 6c 61 73 73 |.. .. "Hourglass|
00001340 5f 4f 6e 22 0d 06 22 29 20 ea 20 61 2c 61 24 2c |_On"..") . a,a$,|
00001350 6c 65 76 65 6c 31 24 2c 6c 65 76 65 6c 32 24 2c |level1$,level2$,|
00001360 6c 65 76 65 6c 33 24 2c 72 65 63 61 74 0d 06 2c |level3$,recat..,|
00001370 0d 20 72 65 63 61 74 25 3d a3 0d 06 36 3e 20 c8 |. recat%=...6> .|
00001380 99 20 22 57 69 6d 70 5f 44 65 63 6f 64 65 4d 65 |. "Wimp_DecodeMe|
00001390 6e 75 22 2c 2c 28 6d 65 6e 75 62 75 66 25 2b 34 |nu",,(menubuf%+4|
000013a0 29 2c 6d 65 6e 75 73 25 2c c4 32 30 30 2c 22 20 |),menus%,.200," |
000013b0 22 29 b8 2c 2c 2c 61 24 0d 06 40 0d 20 61 67 61 |").,,,a$..@. aga|
000013c0 69 6e 25 3d b9 0d 06 4a 10 20 e7 20 61 24 3d 22 |in%=...J. . a$="|
000013d0 22 20 8c 20 e1 0d 06 54 1b 20 6c 65 76 65 6c 31 |" . ...T. level1|
000013e0 24 3d a4 70 61 72 28 61 24 2c 22 2e 22 2c 61 29 |$=.par(a$,".",a)|
000013f0 0d 06 5e 37 20 e7 20 c0 6c 65 76 65 6c 31 24 2c |..^7 . .level1$,|
00001400 31 29 3d 22 27 22 20 8c 20 6c 65 76 65 6c 31 24 |1)="'" . level1$|
00001410 3d 6c 65 76 65 6c 31 24 2b a4 70 61 72 28 61 24 |=level1$+.par(a$|
00001420 2c 22 2e 22 2c 61 29 0d 06 68 32 20 6c 65 76 65 |,".",a)..h2 leve|
00001430 6c 32 24 3d a4 70 61 72 28 61 24 2c 22 2e 22 2c |l2$=.par(a$,".",|
00001440 61 29 3a 6c 65 76 65 6c 33 24 3d a4 70 61 72 28 |a):level3$=.par(|
00001450 61 24 2c 22 2e 22 2c 61 29 0d 06 72 1f 20 e7 20 |a$,".",a)..r. . |
00001460 6c 65 76 65 6c 31 24 3d 22 51 75 69 74 22 20 8c |level1$="Quit" .|
00001470 20 f2 46 69 6e 69 73 68 0d 06 7c 0f 20 e3 49 3d | .Finish..|. .I=|
00001480 31 b8 6d 61 69 6e 25 0d 06 86 6b 20 e7 20 6c 65 |1.main%...k . le|
00001490 76 65 6c 31 24 3d 22 4f 70 65 6e 22 20 80 20 6c |vel1$="Open" . l|
000014a0 65 76 65 6c 32 24 3d 22 46 6c 6f 70 70 79 20 22 |evel2$="Floppy "|
000014b0 2b c3 28 49 29 20 8c 20 f2 4f 70 65 6e 5f 57 69 |+.(I) . .Open_Wi|
000014c0 6e 64 6f 77 28 4d 61 69 6e 25 28 49 29 2c 30 2b |ndow(Main%(I),0+|
000014d0 28 49 2a 32 30 29 2c 34 35 2c 31 32 37 38 2c 38 |(I*20),45,1278,8|
000014e0 30 35 2c 71 25 21 32 30 2c 71 25 21 32 34 2c 2d |05,q%!20,q%!24,-|
000014f0 31 29 0d 06 90 49 20 e7 20 6c 65 76 65 6c 31 24 |1)...I . level1$|
00001500 3d 22 43 6c 6f 73 65 22 20 80 20 6c 65 76 65 6c |="Close" . level|
00001510 32 24 3d 22 46 6c 6f 70 70 79 20 22 2b c3 28 49 |2$="Floppy "+.(I|
00001520 29 20 8c 20 f2 43 6c 6f 73 65 5f 57 69 6e 64 6f |) . .Close_Windo|
00001530 77 28 4d 61 69 6e 25 28 49 29 29 0d 06 9a 08 20 |w(Main%(I)).... |
00001540 ed 20 49 0d 06 a4 04 0d 06 ae 16 20 e7 20 6c 65 |. I........ . le|
00001550 76 65 6c 32 24 3d 22 41 6c 6c 22 20 8c 0d 06 b8 |vel2$="All" ....|
00001560 15 20 20 e3 49 3d 6d 61 69 6e 25 b8 31 20 88 20 |. .I=main%.1 . |
00001570 2d 31 0d 06 c2 54 20 20 20 e7 20 6c 65 76 65 6c |-1...T . level|
00001580 31 24 3d 22 4f 70 65 6e 22 20 8c 20 f2 4f 70 65 |1$="Open" . .Ope|
00001590 6e 5f 57 69 6e 64 6f 77 28 4d 61 69 6e 25 28 49 |n_Window(Main%(I|
000015a0 29 2c 30 2b 28 49 2a 32 30 29 2c 34 35 2c 31 32 |),0+(I*20),45,12|
000015b0 37 38 2c 38 30 35 2c 71 25 21 32 30 2c 71 25 21 |78,805,q%!20,q%!|
000015c0 32 34 2c 2d 31 29 0d 06 cc 32 20 20 20 e7 20 6c |24,-1)...2 . l|
000015d0 65 76 65 6c 31 24 3d 22 43 6c 6f 73 65 22 20 8c |evel1$="Close" .|
000015e0 20 f2 43 6c 6f 73 65 5f 57 69 6e 64 6f 77 28 4d | .Close_Window(M|
000015f0 61 69 6e 25 28 49 29 29 0d 06 d6 09 20 20 ed 20 |ain%(I)).... . |
00001600 49 0d 06 e0 0e 20 20 61 67 61 69 6e 25 3d a3 0d |I.... again%=..|
00001610 06 ea 06 20 cd 0d 06 f4 04 0d 06 fe 28 20 e7 20 |... ........( . |
00001620 6c 65 76 65 6c 31 24 3d 22 43 6c 6f 73 65 22 20 |level1$="Close" |
00001630 80 20 6c 65 76 65 6c 32 24 3d 22 41 6c 6c 22 20 |. level2$="All" |
00001640 8c 0d 07 08 15 20 20 e3 49 3d 6d 61 69 6e 25 b8 |..... .I=main%.|
00001650 31 20 88 20 2d 31 0d 07 12 1e 20 20 20 f2 43 6c |1 . -1.... .Cl|
00001660 6f 73 65 5f 57 69 6e 64 6f 77 28 4d 61 69 6e 25 |ose_Window(Main%|
00001670 28 49 29 29 0d 07 1c 09 20 20 ed 20 49 0d 07 26 |(I)).... . I..&|
00001680 0e 20 20 61 67 61 69 6e 25 3d a3 0d 07 30 06 20 |. again%=...0. |
00001690 cd 0d 07 3a 04 0d 07 44 5c 20 e7 20 61 67 61 69 |...:...D\ . agai|
000016a0 6e 25 3d b9 20 8c 20 f2 6d 65 6e 75 74 65 78 74 |n%=. . .menutext|
000016b0 3a f2 64 6f 6d 65 6e 75 28 31 2c 6d 65 6e 75 62 |:.domenu(1,menub|
000016c0 75 66 25 2c 69 63 6f 6e 6d 65 6e 75 24 2c 4d 65 |uf%,iconmenu$,Me|
000016d0 6e 75 5f 4e 61 6d 65 24 2c 78 25 2d 36 34 2c 39 |nu_Name$,x%-64,9|
000016e0 36 2b 28 4e 6f 49 6e 4d 65 6e 2b 31 29 2a 34 30 |6+(NoInMen+1)*40|
000016f0 29 0d 07 4e 19 20 c8 99 20 22 48 6f 75 72 67 6c |)..N. .. "Hourgl|
00001700 61 73 73 5f 53 6d 61 73 68 22 0d 07 58 06 20 e1 |ass_Smash"..X. .|
00001710 0d 07 62 06 20 3a 0d 07 6c 13 20 dd 20 f2 52 65 |..b. :..l. . .Re|
00001720 63 65 69 76 65 28 71 25 29 0d 07 76 0f 20 c8 8e |ceive(q%)..v. ..|
00001730 20 71 25 21 31 36 20 ca 0d 07 80 0a 20 20 c9 20 | q%!16 ..... . |
00001740 26 33 0d 07 8a 18 20 20 20 c8 99 20 22 48 6f 75 |&3.... .. "Hou|
00001750 72 67 6c 61 73 73 5f 4f 6e 22 0d 07 94 26 20 20 |rglass_On"...& |
00001760 20 f2 43 6c 6f 73 65 5f 57 69 6e 64 6f 77 28 4c | .Close_Window(L|
00001770 6f 61 64 69 6e 67 25 29 3a 6c 6f 61 64 25 3d a3 |oading%):load%=.|
00001780 0d 07 9e 20 20 20 20 e3 49 3d 31 b8 6d 6d 61 78 |... .I=1.mmax|
00001790 3a 6d 6f 70 65 6e 25 28 49 29 3d a3 3a ed 20 49 |:mopen%(I)=.:. I|
000017a0 0d 07 a8 21 20 20 20 66 69 6c 65 6c 6f 61 64 65 |...! fileloade|
000017b0 64 24 3d a4 47 65 74 53 74 72 28 71 25 2b 34 34 |d$=.GetStr(q%+44|
000017c0 29 0d 07 b2 1b 20 20 20 f2 63 61 74 28 a4 47 65 |).... .cat(.Ge|
000017d0 74 53 74 72 28 71 25 2b 34 34 29 29 0d 07 bc 0e |tStr(q%+44))....|
000017e0 20 20 20 f2 43 72 65 61 74 65 0d 07 c6 1b 20 20 | .Create.... |
000017f0 20 c8 99 20 22 48 6f 75 72 67 6c 61 73 73 5f 53 | .. "Hourglass_S|
00001800 6d 61 73 68 22 0d 07 d0 04 0d 07 da 09 20 20 c9 |mash"........ .|
00001810 20 32 0d 07 e4 0b 20 20 f2 53 61 76 65 0d 07 ee | 2.... .Save...|
00001820 04 0d 07 f8 06 20 cb 0d 08 02 06 20 e1 0d 08 0c |..... ..... ....|
00001830 06 20 3a 0d 08 16 4c 20 f4 20 2d 2d 2d 2d 2d 2d |. :...L . ------|
00001840 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001850 2d 2d 20 4c 6f 61 64 20 49 6e 20 54 65 6d 70 6c |-- Load In Templ|
00001860 61 74 65 73 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |ates -----------|
00001870 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d |---------------.|
00001880 08 20 06 20 3a 0d 08 2a 15 20 dd 20 f2 52 65 61 |. . :..*. . .Rea|
00001890 64 54 65 6d 70 6c 61 74 65 73 0d 08 34 2e 20 c8 |dTemplates..4. .|
000018a0 99 20 22 57 69 6d 70 5f 4f 70 65 6e 54 65 6d 70 |. "Wimp_OpenTemp|
000018b0 6c 61 74 65 22 2c 2c 44 69 72 24 2b 22 2e 54 65 |late",,Dir$+".Te|
000018c0 6d 70 6c 61 74 65 73 22 0d 08 3e 24 20 4c 6f 61 |mplates"..>$ Loa|
000018d0 64 69 6e 67 25 20 3d 20 a4 74 65 6d 70 6c 61 74 |ding% = .templat|
000018e0 65 28 22 6c 6f 61 64 69 6e 67 22 29 0d 08 48 21 |e("loading")..H!|
000018f0 20 49 6e 66 6f 25 20 20 20 20 3d 20 a4 74 65 6d | Info% = .tem|
00001900 70 6c 61 74 65 28 22 69 6e 66 6f 22 29 0d 08 52 |plate("info")..R|
00001910 23 20 52 65 70 6f 72 74 25 20 20 3d 20 a4 74 65 |# Report% = .te|
00001920 6d 70 6c 61 74 65 28 22 72 65 70 6f 72 74 22 29 |mplate("report")|
00001930 0d 08 5c 20 20 4f 70 74 25 20 20 20 20 20 3d 20 |..\ Opt% = |
00001940 a4 74 65 6d 70 6c 61 74 65 28 22 6f 70 74 22 29 |.template("opt")|
00001950 0d 08 66 0e 20 e3 49 3d 31 b8 6d 6d 61 78 0d 08 |..f. .I=1.mmax..|
00001960 70 21 20 4d 61 69 6e 25 28 49 29 20 3d 20 a4 74 |p! Main%(I) = .t|
00001970 65 6d 70 6c 61 74 65 28 22 6d 61 69 6e 22 29 0d |emplate("main").|
00001980 08 7a 08 20 ed 20 49 0d 08 84 1c 20 c8 99 20 22 |.z. . I.... .. "|
00001990 57 69 6d 70 5f 43 6c 6f 73 65 54 65 6d 70 6c 61 |Wimp_CloseTempla|
000019a0 74 65 22 0d 08 8e 06 20 e1 0d 08 98 06 20 3a 0d |te".... ..... :.|
000019b0 08 a2 4c 20 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |..L . ----------|
000019c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
000019f0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 08 ac 06 20 |-----------.... |
00001a00 3a 0d 08 b6 1e 20 dd f2 6b 65 79 28 77 69 6e 64 |:.... ..key(wind|
00001a10 6f 77 25 2c 69 63 2c 78 25 2c 61 73 63 25 29 0d |ow%,ic,x%,asc%).|
00001a20 08 c0 0f 20 73 74 65 76 25 3d 61 73 63 25 0d 08 |... stev%=asc%..|
00001a30 ca 0e 20 c8 8e 20 61 73 63 25 20 ca 0d 08 d4 14 |.. .. asc% .....|
00001a40 20 20 c9 20 31 33 20 20 3a 20 f2 63 61 72 65 74 | . 13 : .caret|
00001a50 0d 08 de 51 20 20 20 c8 99 20 22 57 69 6d 70 5f |...Q .. "Wimp_|
00001a60 53 65 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e |SetCaretPosition|
00001a70 22 2c 4d 61 69 6e 25 2c 69 63 6f 6e 25 2c 2c 2c |",Main%,icon%,,,|
00001a80 2d 31 2c a9 28 a4 5f 52 65 61 64 49 63 6f 6e 54 |-1,.(._ReadIconT|
00001a90 65 78 74 28 69 63 6f 6e 25 2c 4d 61 69 6e 25 29 |ext(icon%,Main%)|
00001aa0 29 0d 08 e8 06 20 cb 0d 08 f2 06 20 e1 0d 08 fc |).... ..... ....|
00001ab0 06 20 3a 0d 09 06 0d 20 dd 20 f2 63 61 72 65 74 |. :.... . .caret|
00001ac0 0d 09 10 23 20 c8 99 20 22 57 69 6d 70 5f 47 65 |...# .. "Wimp_Ge|
00001ad0 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c |tCaretPosition",|
00001ae0 2c 71 25 0d 09 1a 11 20 77 69 6e 64 6f 77 25 3d |,q%.... window%=|
00001af0 71 25 21 30 0d 09 24 11 20 69 63 6f 6e 25 3d 71 |q%!0..$. icon%=q|
00001b00 25 21 34 2b 31 0d 09 2e 11 20 c8 8e 20 77 69 6e |%!4+1.... .. win|
00001b10 64 6f 77 25 20 ca 0d 09 38 04 0d 09 42 0d 20 20 |dow% ...8...B. |
00001b20 c9 20 4d 61 69 6e 25 0d 09 4c 11 20 20 20 c8 8e |. Main%..L. ..|
00001b30 20 69 63 6f 6e 25 20 ca 0d 09 56 17 20 20 20 20 | icon% ...V. |
00001b40 c9 20 32 31 20 3a 20 69 63 6f 6e 25 3d 31 32 0d |. 21 : icon%=12.|
00001b50 09 60 08 20 20 20 cb 0d 09 6a 04 0d 09 74 0d 20 |.`. ...j...t. |
00001b60 20 c9 20 53 61 76 65 25 0d 09 7e 11 20 20 20 c8 | . Save%..~. .|
00001b70 8e 20 69 63 6f 6e 25 20 ca 0d 09 88 15 20 20 20 |. icon% ..... |
00001b80 20 c9 20 37 20 3a 20 69 63 6f 6e 25 3d 36 0d 09 | . 7 : icon%=6..|
00001b90 92 13 20 20 20 20 f2 53 61 76 65 3a cb 3a cb 3a |.. .Save:.:.:|
00001ba0 e1 0d 09 9c 08 20 20 20 cb 0d 09 a6 06 20 cb 0d |..... ..... ..|
00001bb0 09 b0 04 0d 09 ba 53 20 c8 99 20 22 57 69 6d 70 |......S .. "Wimp|
00001bc0 5f 53 65 74 43 61 72 65 74 50 6f 73 69 74 69 6f |_SetCaretPositio|
00001bd0 6e 22 2c 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 |n",window%,icon%|
00001be0 2c 2c 2c 2d 31 2c a9 28 a4 5f 52 65 61 64 49 63 |,,,-1,.(._ReadIc|
00001bf0 6f 6e 54 65 78 74 28 69 63 6f 6e 25 2c 77 69 6e |onText(icon%,win|
00001c00 64 6f 77 25 29 29 0d 09 c4 06 20 e1 0d 09 ce 06 |dow%)).... .....|
00001c10 20 3a 0d 09 d8 4c 20 f4 20 2a 2a 2a 2a 2a 2a 2a | :...L . *******|
00001c20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00001c50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 09 |**************..|
00001c60 e2 4c 20 f4 20 2a 20 2d 2d 2d 2d 2d 2d 2d 2d 2d |.L . * ---------|
00001c70 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001c80 2d 20 4d 61 69 6e 20 50 72 6f 67 72 61 6d 20 2d |- Main Program -|
00001c90 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001ca0 2d 2d 2d 2d 2d 2d 2d 2d 20 2a 0d 09 ec 4c 20 f4 |-------- *...L .|
00001cb0 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ***************|
00001cc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00001cf0 2a 2a 2a 2a 2a 2a 0d 09 f6 06 20 3a 0d 0a 00 0b |******.... :....|
00001d00 20 dd f2 53 61 76 65 0d 0a 0a 19 20 e7 20 66 69 | ..Save.... . fi|
00001d10 6c 65 6c 6f 61 64 65 64 24 3d 22 22 20 8c 20 e1 |leloaded$="" . .|
00001d20 0d 0a 14 36 20 6e 6f 64 69 72 25 3d a4 63 6f 75 |...6 nodir%=.cou|
00001d30 6e 74 63 68 72 28 a4 63 68 6f 70 64 69 72 28 66 |ntchr(.chopdir(f|
00001d40 69 6c 65 6c 6f 61 64 65 64 24 2c 22 24 22 29 2c |ileloaded$,"$"),|
00001d50 22 2e 22 29 2d 31 0d 0a 1e 27 20 74 70 72 6f 67 |".")-1...' tprog|
00001d60 73 25 3d 31 3a 73 61 76 65 6e 61 6d 65 24 3d a4 |s%=1:savename$=.|
00001d70 73 74 72 69 6e 67 28 71 25 2b 34 34 29 0d 0a 28 |string(q%+44)..(|
00001d80 a3 20 f4 20 49 46 20 52 49 47 48 54 24 28 73 61 |. . IF RIGHT$(sa|
00001d90 76 65 6e 61 6d 65 24 2c 33 29 3d 22 f1 9f e5 22 |vename$,3)="..."|
00001da0 20 54 48 45 4e 20 73 61 76 65 6e 61 6d 65 24 3d | THEN savename$=|
00001db0 46 4e 63 68 6f 70 73 74 72 28 73 61 76 65 6e 61 |FNchopstr(savena|
00001dc0 6d 65 24 2c 22 2e 22 29 2b 22 2e 22 2b 46 4e 63 |me$,".")+"."+FNc|
00001dd0 68 6f 70 64 69 72 28 66 69 6c 65 6c 6f 61 64 65 |hopdir(fileloade|
00001de0 64 24 2c 22 2e 22 29 20 45 4c 53 45 20 73 61 76 |d$,".") ELSE sav|
00001df0 65 6e 61 6d 65 24 3d 46 4e 73 74 72 69 6e 67 28 |ename$=FNstring(|
00001e00 71 25 2b 34 34 29 2b 46 4e 63 68 6f 70 64 69 72 |q%+44)+FNchopdir|
00001e10 28 66 69 6c 65 6c 6f 61 64 65 64 24 2c 22 2e 22 |(fileloaded$,"."|
00001e20 0d 0a 32 28 20 66 69 6c 65 6c 6f 61 64 24 3d a4 |..2( fileload$=.|
00001e30 63 68 6f 70 64 69 72 28 66 69 6c 65 6c 6f 61 64 |chopdir(fileload|
00001e40 65 64 24 2c 22 2e 22 29 0d 0a 3c 66 20 e7 20 c0 |ed$,".")..<f . .|
00001e50 66 69 6c 65 6c 6f 61 64 24 2c 31 29 3d 22 21 22 |fileload$,1)="!"|
00001e60 20 8c 20 73 61 76 65 6e 61 6d 65 24 3d a4 73 74 | . savename$=.st|
00001e70 72 69 6e 67 28 71 25 2b 34 34 29 2b 66 69 6c 65 |ring(q%+44)+file|
00001e80 6c 6f 61 64 24 20 8b 20 73 61 76 65 6e 61 6d 65 |load$ . savename|
00001e90 24 3d a4 73 74 72 69 6e 67 28 71 25 2b 34 34 29 |$=.string(q%+44)|
00001ea0 2b 22 21 22 2b 66 69 6c 65 6c 6f 61 64 24 0d 0a |+"!"+fileload$..|
00001eb0 46 28 20 73 61 76 65 6e 61 6d 65 32 24 3d a4 73 |F( savename2$=.s|
00001ec0 74 72 69 6e 67 28 71 25 2b 34 34 29 2b 66 69 6c |tring(q%+44)+fil|
00001ed0 65 6c 6f 61 64 24 0d 0a 50 11 20 f2 43 72 65 61 |eload$..P. .Crea|
00001ee0 74 65 46 69 6c 65 73 0d 0a 5a 16 20 c8 99 20 22 |teFiles..Z. .. "|
00001ef0 48 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 0d 0a 64 |Hourglass_On"..d|
00001f00 19 20 6c 65 6e 25 3d a9 28 70 72 6f 67 24 28 31 |. len%=.(prog$(1|
00001f10 2c 30 29 29 2b 32 0d 0a 6e 0e 20 e3 49 3d 31 b8 |,0))+2..n. .I=1.|
00001f20 73 74 65 25 0d 0a 78 26 20 20 74 70 72 6f 67 73 |ste%..x& tprogs|
00001f30 25 2b 3d 6d 69 6e 66 6f 25 28 49 2c 31 29 2b 6d |%+=minfo%(I,1)+m|
00001f40 69 6e 66 6f 25 28 49 2c 30 29 0d 0a 82 08 20 ed |info%(I,0).... .|
00001f50 20 49 0d 0a 8c 2b 20 74 70 72 6f 67 73 25 2d 3d | I...+ tprogs%-=|
00001f60 6d 69 6e 66 6f 25 28 73 74 65 25 2c 31 29 2b 6d |minfo%(ste%,1)+m|
00001f70 69 6e 66 6f 25 28 73 74 65 25 2c 30 29 0d 0a 96 |info%(ste%,0)...|
00001f80 2c 20 f4 20 49 46 20 73 74 65 25 3d 31 20 54 48 |, . IF ste%=1 TH|
00001f90 45 4e 20 4f 53 43 4c 49 22 43 44 49 52 20 22 2b |EN OSCLI"CDIR "+|
00001fa0 73 61 76 65 6e 61 6d 65 24 0d 0a a0 17 20 ff 22 |savename$.... ."|
00001fb0 43 44 49 52 20 22 2b 73 61 76 65 6e 61 6d 65 24 |CDIR "+savename$|
00001fc0 0d 0a aa 0f 20 e7 20 73 74 65 25 3e 31 20 8c 0d |.... . ste%>1 ..|
00001fd0 0a b4 53 20 20 64 69 72 24 3d c2 a4 63 68 6f 70 |..S dir$=..chop|
00001fe0 64 69 72 28 70 72 6f 67 24 28 74 70 72 6f 67 73 |dir(prog$(tprogs|
00001ff0 25 2d 31 2c 30 29 2c 22 24 22 29 2c a9 28 a4 63 |%-1,0),"$"),.(.c|
00002000 68 6f 70 64 69 72 28 70 72 6f 67 24 28 74 70 72 |hopdir(prog$(tpr|
00002010 6f 67 73 25 2d 31 2c 30 29 2c 22 24 22 29 29 2d |ogs%-1,0),"$"))-|
00002020 31 29 0d 0a be 13 20 20 e7 20 6e 6f 64 69 72 25 |1).... . nodir%|
00002030 3c 3e 30 20 8c 0d 0a c8 12 20 20 20 e3 53 3d 31 |<>0 ..... .S=1|
00002040 b8 6e 6f 64 69 72 25 0d 0a d2 20 20 20 20 20 64 |.nodir%... d|
00002050 69 72 24 3d a4 63 68 6f 70 64 69 72 32 28 64 69 |ir$=.chopdir2(di|
00002060 72 24 2c 22 2e 22 29 0d 0a dc 0a 20 20 20 ed 20 |r$,".").... . |
00002070 53 0d 0a e6 07 20 20 cd 0d 0a f0 25 20 20 e7 20 |S.... ....% . |
00002080 c0 64 69 72 24 2c 31 29 3c 3e 22 2e 22 20 8c 20 |.dir$,1)<>"." . |
00002090 64 69 72 24 3d 22 2e 22 2b 64 69 72 24 0d 0a fa |dir$="."+dir$...|
000020a0 25 20 20 e3 53 3d a4 63 6f 75 6e 74 63 68 72 28 |% .S=.countchr(|
000020b0 64 69 72 24 2c 22 2e 22 29 2d 31 b8 31 20 88 20 |dir$,".")-1.1 . |
000020c0 2d 31 0d 0b 04 11 20 20 20 74 64 69 72 24 3d 64 |-1.... tdir$=d|
000020d0 69 72 24 0d 0b 0e 0d 20 20 20 e3 49 3d 31 b8 53 |ir$.... .I=1.S|
000020e0 0d 0b 18 21 20 20 20 20 74 64 69 72 24 3d a4 63 |...! tdir$=.c|
000020f0 68 6f 70 73 74 72 28 74 64 69 72 24 2c 22 2e 22 |hopstr(tdir$,"."|
00002100 29 0d 0b 22 0a 20 20 20 ed 20 49 0d 0b 2c 2e 20 |)..". . I..,. |
00002110 20 20 20 ff 22 43 44 49 52 20 22 2b a4 63 68 6f | ."CDIR "+.cho|
00002120 70 73 74 72 28 73 61 76 65 6e 61 6d 65 24 2c 22 |pstr(savename$,"|
00002130 2e 22 29 2b 74 64 69 72 24 0d 0b 36 09 20 20 ed |.")+tdir$..6. .|
00002140 20 53 0d 0b 40 2b 20 20 ff 22 43 44 49 52 20 22 | S..@+ ."CDIR "|
00002150 2b a4 63 68 6f 70 73 74 72 28 73 61 76 65 6e 61 |+.chopstr(savena|
00002160 6d 65 24 2c 22 2e 22 29 2b 64 69 72 24 0d 0b 4a |me$,".")+dir$..J|
00002170 06 20 cd 0d 0b 54 77 20 e7 20 73 74 65 25 3d 6d |. ...Tw . ste%=m|
00002180 61 69 6e 25 20 8c 20 6d 61 78 66 69 6c 65 25 3d |ain% . maxfile%=|
00002190 6d 69 6e 66 6f 25 28 73 74 65 25 2c 31 29 2b 6d |minfo%(ste%,1)+m|
000021a0 69 6e 66 6f 25 28 73 74 65 25 2c 30 29 2b 74 70 |info%(ste%,0)+tp|
000021b0 72 6f 67 73 25 2d 32 20 8b 20 6d 61 78 66 69 6c |rogs%-2 . maxfil|
000021c0 65 25 3d 6d 69 6e 66 6f 25 28 73 74 65 25 2c 31 |e%=minfo%(ste%,1|
000021d0 29 2b 6d 69 6e 66 6f 25 28 73 74 65 25 2c 30 29 |)+minfo%(ste%,0)|
000021e0 2b 74 70 72 6f 67 73 25 2d 31 0d 0b 5e 18 20 e3 |+tprogs%-1..^. .|
000021f0 49 3d 74 70 72 6f 67 73 25 b8 6d 61 78 66 69 6c |I=tprogs%.maxfil|
00002200 65 25 0d 0b 68 45 20 c8 99 20 22 48 6f 75 72 67 |e%..hE .. "Hourg|
00002210 6c 61 73 73 5f 50 65 72 63 65 6e 74 61 67 65 22 |lass_Percentage"|
00002220 2c 28 28 49 2d 74 70 72 6f 67 73 25 2b 31 29 2f |,((I-tprogs%+1)/|
00002230 28 6d 61 78 66 69 6c 65 25 2d 74 70 72 6f 67 73 |(maxfile%-tprogs|
00002240 25 29 29 2a 31 30 30 0d 0b 72 0d 20 73 74 65 76 |%))*100..r. stev|
00002250 79 25 3d 49 0d 0b 7c 28 20 70 72 6f 67 66 72 6f |y%=I..|( progfro|
00002260 6d 24 3d 70 72 6f 67 24 28 49 2c 30 29 2b 22 2e |m$=prog$(I,0)+".|
00002270 22 2b 70 72 6f 67 24 28 49 2c 31 29 0d 0b 86 cd |"+prog$(I,1)....|
00002280 20 e7 20 a9 28 c1 70 72 6f 67 24 28 49 2c 30 29 | . .(.prog$(I,0)|
00002290 2c 6c 65 6e 25 2c a9 28 70 72 6f 67 24 28 49 2c |,len%,.(prog$(I,|
000022a0 30 29 29 2d 6c 65 6e 25 2b 31 29 29 3d 30 20 8c |0))-len%+1))=0 .|
000022b0 20 70 72 6f 67 74 6f 24 3d 73 61 76 65 6e 61 6d | progto$=savenam|
000022c0 65 24 2b 22 22 2b c1 70 72 6f 67 24 28 49 2c 30 |e$+""+.prog$(I,0|
000022d0 29 2c 6c 65 6e 25 2c a9 28 70 72 6f 67 24 28 49 |),len%,.(prog$(I|
000022e0 2c 30 29 29 2d 6c 65 6e 25 2b 31 29 2b 22 2e 22 |,0))-len%+1)+"."|
000022f0 2b 70 72 6f 67 24 28 49 2c 31 29 20 8b 20 70 72 |+prog$(I,1) . pr|
00002300 6f 67 74 6f 24 3d 73 61 76 65 6e 61 6d 65 24 2b |ogto$=savename$+|
00002310 22 2e 22 2b c1 70 72 6f 67 24 28 49 2c 30 29 2c |"."+.prog$(I,0),|
00002320 6c 65 6e 25 2c a9 28 70 72 6f 67 24 28 49 2c 30 |len%,.(prog$(I,0|
00002330 29 29 2d 6c 65 6e 25 2b 31 29 2b 22 2e 22 2b 70 |))-len%+1)+"."+p|
00002340 72 6f 67 24 28 49 2c 31 29 0d 0b 90 1a 20 e7 20 |rog$(I,1).... . |
00002350 70 72 6f 67 24 28 49 2c 32 29 3d 22 66 69 6c 65 |prog$(I,2)="file|
00002360 22 20 8c 0d 0b 9a 46 20 20 ff 22 43 4f 50 59 20 |" ....F ."COPY |
00002370 22 2b 70 72 6f 67 66 72 6f 6d 24 2b 22 20 22 2b |"+progfrom$+" "+|
00002380 70 72 6f 67 74 6f 24 2b 22 20 41 20 7e 43 20 7e |progto$+" A ~C ~|
00002390 44 20 46 20 4c 20 7e 4e 20 7e 50 20 51 20 52 20 |D F L ~N ~P Q R |
000023a0 7e 53 20 7e 54 20 7e 56 22 0d 0b a4 06 20 cc 0d |~S ~T ~V".... ..|
000023b0 0b ae 16 20 20 ff 22 43 44 49 52 20 22 2b 70 72 |... ."CDIR "+pr|
000023c0 6f 67 74 6f 24 0d 0b b8 06 20 cd 0d 0b c2 08 20 |ogto$.... ..... |
000023d0 ed 20 49 0d 0b cc 1f 20 f2 43 6c 6f 73 65 5f 57 |. I.... .Close_W|
000023e0 69 6e 64 6f 77 28 4d 61 69 6e 25 28 73 74 65 25 |indow(Main%(ste%|
000023f0 29 29 0d 0b d6 17 20 c8 99 20 22 48 6f 75 72 67 |)).... .. "Hourg|
00002400 6c 61 73 73 5f 4f 66 66 22 0d 0b e0 07 20 ef 37 |lass_Off".... .7|
00002410 0d 0b ea 06 20 e1 0d 0b f4 06 20 3a 0d 0b fe 0c |.... ..... :....|
00002420 20 dd f2 70 72 69 6e 74 0d 0c 08 0c 20 e3 49 3d | ..print.... .I=|
00002430 31 b8 6e 25 0d 0c 12 50 20 f4 20 50 52 49 4e 54 |1.n%...P . PRINT|
00002440 46 4e 63 68 6f 70 73 74 72 28 73 61 76 65 6e 61 |FNchopstr(savena|
00002450 6d 65 24 2c 22 2e 22 29 2b 22 22 2b 46 4e 63 68 |me$,".")+""+FNch|
00002460 6f 70 64 69 72 28 70 72 6f 67 24 28 49 2c 30 29 |opdir(prog$(I,0)|
00002470 2c 22 24 22 29 2b 22 2e 22 2b 70 72 6f 67 24 28 |,"$")+"."+prog$(|
00002480 49 2c 31 29 0d 0c 1c bf 20 e7 20 a9 28 c1 70 72 |I,1).... . .(.pr|
00002490 6f 67 24 28 49 2c 30 29 2c 6c 65 6e 25 2c a9 28 |og$(I,0),len%,.(|
000024a0 70 72 6f 67 24 28 49 2c 30 29 29 2d 6c 65 6e 25 |prog$(I,0))-len%|
000024b0 2b 31 29 29 3d 30 20 8c 20 f1 73 61 76 65 6e 61 |+1))=0 . .savena|
000024c0 6d 65 24 2b 22 22 2b c1 70 72 6f 67 24 28 49 2c |me$+""+.prog$(I,|
000024d0 30 29 2c 6c 65 6e 25 2c a9 28 70 72 6f 67 24 28 |0),len%,.(prog$(|
000024e0 49 2c 30 29 29 2d 6c 65 6e 25 2b 31 29 2b 22 2e |I,0))-len%+1)+".|
000024f0 22 2b 70 72 6f 67 24 28 49 2c 31 29 20 8b 20 f1 |"+prog$(I,1) . .|
00002500 73 61 76 65 6e 61 6d 65 24 2b 22 2e 22 2b c1 70 |savename$+"."+.p|
00002510 72 6f 67 24 28 49 2c 30 29 2c 6c 65 6e 25 2c a9 |rog$(I,0),len%,.|
00002520 28 70 72 6f 67 24 28 49 2c 30 29 29 2d 6c 65 6e |(prog$(I,0))-len|
00002530 25 2b 31 29 2b 22 2e 22 2b 70 72 6f 67 24 28 49 |%+1)+"."+prog$(I|
00002540 2c 31 29 0d 0c 26 40 20 f1 22 22 3b 49 3b 22 20 |,1)..&@ ."";I;" |
00002550 20 20 22 2b 70 72 6f 67 24 28 49 2c 30 29 2b 22 | "+prog$(I,0)+"|
00002560 2e 22 2b 70 72 6f 67 24 28 49 2c 31 29 2b 22 20 |."+prog$(I,1)+" |
00002570 20 20 20 20 20 20 20 22 2b 70 72 6f 67 24 28 49 | "+prog$(I|
00002580 2c 32 29 0d 0c 30 08 20 ed 20 49 0d 0c 3a 06 20 |,2)..0. . I..:. |
00002590 e1 0d 0c 44 06 20 3a 0d 0c 4e 0d 20 dd f2 43 72 |...D. :..N. ..Cr|
000025a0 65 61 74 65 0d 0c 58 41 20 6d 61 69 6e 25 3d 31 |eate..XA main%=1|
000025b0 3a 6e 6d 69 6e 25 3d 31 3a 6e 6d 61 78 25 3d 6e |:nmin%=1:nmax%=n|
000025c0 25 3a 74 69 6d 65 25 3d 91 2b 35 30 30 30 30 3a |%:time%=.+50000:|
000025d0 6e 6f 64 69 72 73 32 25 3d 30 3a 73 74 65 70 68 |nodirs2%=0:steph|
000025e0 65 6e 25 3d 30 0d 0c 62 2d 20 f2 70 75 74 5f 69 |en%=0..b- .put_i|
000025f0 63 6f 6e 5f 74 65 78 74 28 71 25 2c 4f 70 74 25 |con_text(q%,Opt%|
00002600 2c 39 2c 66 69 6c 65 6c 6f 61 64 65 64 24 2c 2d |,9,fileloaded$,-|
00002610 31 29 0d 0c 6c 06 20 f5 0d 0c 76 12 20 f2 43 6f |1)..l. ...v. .Co|
00002620 75 6e 74 28 6d 61 69 6e 25 29 0d 0c 80 16 20 73 |unt(main%).... s|
00002630 74 65 70 68 65 6e 25 2b 3d 6e 6f 64 69 72 73 25 |tephen%+=nodirs%|
00002640 0d 0c 8a 1b 20 6d 69 6e 66 6f 25 28 6d 61 69 6e |.... minfo%(main|
00002650 25 2c 30 29 3d 64 69 72 73 32 25 0d 0c 94 1a 20 |%,0)=dirs2%.... |
00002660 6d 69 6e 66 6f 25 28 6d 61 69 6e 25 2c 31 29 3d |minfo%(main%,1)=|
00002670 70 72 6f 67 25 0d 0c 9e 1b 20 6d 69 6e 66 6f 25 |prog%.... minfo%|
00002680 28 6d 61 69 6e 25 2c 32 29 3d 74 73 69 7a 65 25 |(main%,2)=tsize%|
00002690 0d 0c a8 3d 20 f2 70 75 74 5f 69 63 6f 6e 5f 74 |...= .put_icon_t|
000026a0 65 78 74 28 71 25 2c 4d 61 69 6e 25 28 6d 61 69 |ext(q%,Main%(mai|
000026b0 6e 25 29 2c 31 31 2c c3 28 6d 69 6e 66 6f 25 28 |n%),11,.(minfo%(|
000026c0 6d 61 69 6e 25 2c 30 29 29 2c 2d 31 29 0d 0c b2 |main%,0)),-1)...|
000026d0 3d 20 f2 70 75 74 5f 69 63 6f 6e 5f 74 65 78 74 |= .put_icon_text|
000026e0 28 71 25 2c 4d 61 69 6e 25 28 6d 61 69 6e 25 29 |(q%,Main%(main%)|
000026f0 2c 31 32 2c c3 28 6d 69 6e 66 6f 25 28 6d 61 69 |,12,.(minfo%(mai|
00002700 6e 25 2c 31 29 29 2c 2d 31 29 0d 0c bc 3d 20 f2 |n%,1)),-1)...= .|
00002710 70 75 74 5f 69 63 6f 6e 5f 74 65 78 74 28 71 25 |put_icon_text(q%|
00002720 2c 4d 61 69 6e 25 28 6d 61 69 6e 25 29 2c 31 33 |,Main%(main%),13|
00002730 2c c3 28 6d 69 6e 66 6f 25 28 6d 61 69 6e 25 2c |,.(minfo%(main%,|
00002740 32 29 29 2c 2d 31 29 0d 0c c6 1e 20 e7 20 66 75 |2)),-1).... . fu|
00002750 6c 6c 25 3d a3 20 8c 20 6e 6d 69 6e 25 3d 6e 6d |ll%=. . nmin%=nm|
00002760 61 78 25 2b 31 0d 0c d0 21 20 e7 20 66 75 6c 6c |ax%+1...! . full|
00002770 25 3d b9 20 8c 20 6d 61 69 6e 25 2b 3d 31 3a 73 |%=. . main%+=1:s|
00002780 69 7a 65 25 3d 30 0d 0c da 1c 20 fd 20 6e 6d 61 |ize%=0.... . nma|
00002790 78 25 3c 6e 6d 69 6e 25 20 84 20 91 3e 74 69 6d |x%<nmin% . .>tim|
000027a0 65 25 0d 0c e4 15 20 e7 20 91 3e 74 69 6d 65 25 |e%.... . .>time%|
000027b0 20 8c 20 ef 37 3a e0 0d 0c ee 18 20 f2 66 69 6e | . .7:..... .fin|
000027c0 66 6f 28 66 69 6c 65 6c 6f 61 64 65 64 24 29 0d |fo(fileloaded$).|
000027d0 0c f8 0f 20 e7 20 64 69 72 25 3d b9 20 8c 0d 0d |... . dir%=. ...|
000027e0 02 8f 20 20 e7 20 c0 a4 63 68 6f 70 64 69 72 28 |.. . ..chopdir(|
000027f0 66 69 6c 65 6c 6f 61 64 65 64 24 2c 22 2e 22 29 |fileloaded$,".")|
00002800 2c 31 29 3d 22 21 22 20 8c 20 73 74 65 76 25 3d |,1)="!" . stev%=|
00002810 a4 69 63 6f 6e 5f 6e 65 77 73 70 72 69 74 65 28 |.icon_newsprite(|
00002820 4f 70 74 25 2c 33 2c a4 63 68 6f 70 64 69 72 28 |Opt%,3,.chopdir(|
00002830 66 69 6c 65 6c 6f 61 64 65 64 24 2c 22 2e 22 29 |fileloaded$,".")|
00002840 2c 2d 31 29 20 8b 20 73 74 65 76 25 3d a4 69 63 |,-1) . stev%=.ic|
00002850 6f 6e 5f 6e 65 77 73 70 72 69 74 65 28 4f 70 74 |on_newsprite(Opt|
00002860 25 2c 33 2c 22 64 69 72 22 2c 2d 31 29 0d 0d 0c |%,3,"dir",-1)...|
00002870 06 20 cc 0d 0d 16 38 20 20 73 74 65 76 25 3d a4 |. ....8 stev%=.|
00002880 69 63 6f 6e 5f 6e 65 77 73 70 72 69 74 65 28 4f |icon_newsprite(O|
00002890 70 74 25 2c 33 2c 22 66 69 6c 65 5f 22 2b 66 69 |pt%,3,"file_"+fi|
000028a0 6c 65 74 79 70 65 24 2c 2d 31 29 0d 0d 20 06 20 |letype$,-1).. . |
000028b0 cd 0d 0d 2a 18 20 6f 6d 61 69 6e 24 3d 22 22 3a |...*. omain$="":|
000028c0 63 6d 61 69 6e 24 3d 22 22 0d 0d 34 0f 20 e3 49 |cmain$=""..4. .I|
000028d0 3d 31 b8 6d 61 69 6e 25 0d 0d 3e 34 20 f2 70 75 |=1.main%..>4 .pu|
000028e0 74 5f 69 63 6f 6e 5f 74 65 78 74 28 71 25 2c 4d |t_icon_text(q%,M|
000028f0 61 69 6e 25 28 49 29 2c 39 2c 22 46 6c 6f 70 70 |ain%(I),9,"Flopp|
00002900 79 20 22 2b c3 28 49 29 2c 2d 31 29 0d 0d 48 49 |y "+.(I),-1)..HI|
00002910 20 e7 20 49 3d 6d 61 69 6e 25 20 8c 20 6f 6d 61 | . I=main% . oma|
00002920 69 6e 24 2b 3d 22 3a 46 6c 6f 70 70 79 20 22 2b |in$+=":Floppy "+|
00002930 c3 28 49 29 2b 22 2c 22 20 8b 20 6f 6d 61 69 6e |.(I)+"," . omain|
00002940 24 2b 3d 22 46 6c 6f 70 70 79 20 22 2b c3 28 49 |$+="Floppy "+.(I|
00002950 29 2b 22 2c 22 0d 0d 52 49 20 e7 20 49 3d 6d 61 |)+","..RI . I=ma|
00002960 69 6e 25 20 8c 20 63 6d 61 69 6e 24 2b 3d 22 3a |in% . cmain$+=":|
00002970 46 6c 6f 70 70 79 20 22 2b c3 28 49 29 2b 22 2c |Floppy "+.(I)+",|
00002980 22 20 8b 20 63 6d 61 69 6e 24 2b 3d 22 46 6c 6f |" . cmain$+="Flo|
00002990 70 70 79 20 22 2b c3 28 49 29 2b 22 2c 22 0d 0d |ppy "+.(I)+","..|
000029a0 5c 08 20 ed 20 49 0d 0d 66 20 20 6f 6d 61 69 6e |\. . I..f omain|
000029b0 24 2b 3d 22 41 6c 6c 22 3a 63 6d 61 69 6e 24 2b |$+="All":cmain$+|
000029c0 3d 22 41 6c 6c 22 0d 0d 70 14 20 e3 49 3d 6d 61 |="All"..p. .I=ma|
000029d0 69 6e 25 b8 31 20 88 20 2d 31 0d 0d 7a 3f 20 f2 |in%.1 . -1..z? .|
000029e0 4f 70 65 6e 5f 57 69 6e 64 6f 77 28 4d 61 69 6e |Open_Window(Main|
000029f0 25 28 49 29 2c 30 2b 28 49 2a 32 30 29 2c 34 35 |%(I),0+(I*20),45|
00002a00 2c 31 32 37 38 2c 38 30 35 2c 71 25 21 32 30 2c |,1278,805,q%!20,|
00002a10 71 25 21 32 34 2c 2d 31 29 0d 0d 84 08 20 ed 20 |q%!24,-1).... . |
00002a20 49 0d 0d 8e 07 20 ef 37 0d 0d 98 06 20 e1 0d 0d |I.... .7.... ...|
00002a30 a2 06 20 3a 0d 0d ac 10 20 dd f2 43 6f 75 6e 74 |.. :.... ..Count|
00002a40 28 6d 25 29 0d 0d b6 30 20 74 73 69 7a 65 25 3d |(m%)...0 tsize%=|
00002a50 30 3a 66 75 6c 6c 25 3d a3 3a 64 69 72 73 32 25 |0:full%=.:dirs2%|
00002a60 3d 30 3a 70 72 6f 67 25 3d 30 3a 6e 6f 64 69 72 |=0:prog%=0:nodir|
00002a70 73 25 3d 30 0d 0d c0 10 20 e3 49 3d 6e 6d 69 6e |s%=0.... .I=nmin|
00002a80 25 b8 6e 25 0d 0d ca 26 20 f2 66 69 6e 66 6f 28 |%.n%...& .finfo(|
00002a90 70 72 6f 67 24 28 49 2c 30 29 2b 22 2e 22 2b 70 |prog$(I,0)+"."+p|
00002aa0 72 6f 67 24 28 49 2c 31 29 29 0d 0d d4 27 20 e7 |rog$(I,1))...' .|
00002ab0 20 70 72 6f 67 24 28 49 2c 32 29 3d 22 64 69 72 | prog$(I,2)="dir|
00002ac0 22 20 8c 20 6e 6f 64 69 72 73 25 2b 3d 34 30 39 |" . nodirs%+=409|
00002ad0 36 0d 0d de 36 20 e7 20 6f 70 74 25 3d 31 36 30 |6...6 . opt%=160|
00002ae0 30 30 30 30 20 8c 20 6e 6f 64 69 72 73 32 25 3d |0000 . nodirs2%=|
00002af0 32 31 30 30 30 30 20 8b 20 6e 6f 64 69 72 73 32 |210000 . nodirs2|
00002b00 25 3d 33 30 30 30 30 0d 0d e8 30 20 e7 20 74 73 |%=30000...0 . ts|
00002b10 69 7a 65 25 2b bb 28 73 69 7a 65 24 29 3e 28 6f |ize%+.(size$)>(o|
00002b20 70 74 25 2d 6e 6f 64 69 72 73 32 25 29 2d 6e 6f |pt%-nodirs2%)-no|
00002b30 64 69 72 73 25 20 8c 0d 0d f2 27 20 20 e7 20 64 |dirs% ....' . d|
00002b40 69 72 25 3d b9 20 8c 20 66 75 6c 6c 25 3d b9 3a |ir%=. . full%=.:|
00002b50 6e 6d 69 6e 25 3d 49 2d 31 3a 49 3d 6e 25 0d 0d |nmin%=I-1:I=n%..|
00002b60 fc 25 20 20 e7 20 64 69 72 25 3d a3 20 8c 20 66 |.% . dir%=. . f|
00002b70 75 6c 6c 25 3d b9 3a 6e 6d 69 6e 25 3d 49 3a 49 |ull%=.:nmin%=I:I|
00002b80 3d 6e 25 0d 0e 06 06 20 cd 0d 0e 10 1a 20 e7 20 |=n%.... ..... . |
00002b90 66 75 6c 6c 25 3d b9 20 8c 20 64 69 72 73 32 25 |full%=. . dirs2%|
00002ba0 2d 3d 31 0d 0e 1a 2e 20 e7 20 64 69 72 25 3d a3 |-=1.... . dir%=.|
00002bb0 20 80 20 66 75 6c 6c 25 3d a3 20 8c 20 70 72 6f | . full%=. . pro|
00002bc0 67 25 2b 3d 31 20 8b 20 64 69 72 73 32 25 2b 3d |g%+=1 . dirs2%+=|
00002bd0 31 0d 0e 24 2a 20 e7 20 64 69 72 25 3d a3 20 80 |1..$* . dir%=. .|
00002be0 20 66 75 6c 6c 25 3d a3 20 8c 20 74 73 69 7a 65 | full%=. . tsize|
00002bf0 25 2b 3d bb 28 73 69 7a 65 24 29 0d 0e 2e 07 20 |%+=.(size$).... |
00002c00 ed 49 0d 0e 38 21 20 e7 20 6d 61 69 6e 25 3d 31 |.I..8! . main%=1|
00002c10 20 8c 20 6e 6f 64 69 72 73 32 25 3d 6e 6f 64 69 | . nodirs2%=nodi|
00002c20 72 73 25 0d 0e 42 06 20 e1 0d 0e 4c 06 20 3a 0d |rs%..B. ...L. :.|
00002c30 0e 56 0f 20 dd f2 6f 70 65 6e 6d 61 69 6e 0d 0e |.V. ..openmain..|
00002c40 60 0d 20 c8 97 20 58 2c 59 2c 5a 0d 0e 6a 0f 20 |`. .. X,Y,Z..j. |
00002c50 e3 49 3d 31 b8 6d 61 69 6e 25 0d 0e 74 5e 20 20 |.I=1.main%..t^ |
00002c60 e7 20 5a 3d 34 20 80 20 6d 6f 70 65 6e 25 28 49 |. Z=4 . mopen%(I|
00002c70 29 3d a3 20 8c 20 f2 4f 70 65 6e 5f 57 69 6e 64 |)=. . .Open_Wind|
00002c80 6f 77 28 4d 61 69 6e 25 28 49 29 2c 30 2b 28 49 |ow(Main%(I),0+(I|
00002c90 2a 32 30 29 2c 34 35 2c 31 32 37 38 2c 38 30 35 |*20),45,1278,805|
00002ca0 2c 71 25 21 32 30 2c 71 25 21 32 34 2c 2d 31 29 |,q%!20,q%!24,-1)|
00002cb0 3a 49 3d 6d 61 69 6e 25 0d 0e 7e 08 20 ed 20 49 |:I=main%..~. . I|
00002cc0 0d 0e 88 14 20 e3 49 3d 6d 61 69 6e 25 b8 31 20 |.... .I=main%.1 |
00002cd0 88 20 2d 31 0d 0e 92 37 20 20 e7 20 5a 3d 31 20 |. -1...7 . Z=1 |
00002ce0 80 20 6d 6f 70 65 6e 25 28 49 29 3d b9 20 8c 20 |. mopen%(I)=. . |
00002cf0 f2 43 6c 6f 73 65 5f 57 69 6e 64 6f 77 28 4d 61 |.Close_Window(Ma|
00002d00 69 6e 25 28 49 29 29 3a 49 3d 31 0d 0e 9c 08 20 |in%(I)):I=1.... |
00002d10 ed 20 49 0d 0e a6 06 20 e1 0d 0e b0 06 20 3a 0d |. I.... ..... :.|
00002d20 0e ba 12 20 dd f2 43 72 65 61 74 65 46 69 6c 65 |... ..CreateFile|
00002d30 73 0d 0e c4 23 20 f4 20 2d 2d 2d 2d 2d 2d 2d 20 |s...# . ------- |
00002d40 43 72 65 61 74 65 20 21 42 6f 6f 74 20 2d 2d 2d |Create !Boot ---|
00002d50 2d 2d 2d 2d 0d 0e ce 16 20 c8 99 20 22 48 6f 75 |----.... .. "Hou|
00002d60 72 67 6c 61 73 73 5f 4f 6e 22 0d 0e d8 17 20 ff |rglass_On".... .|
00002d70 22 43 44 49 52 20 22 2b 73 61 76 65 6e 61 6d 65 |"CDIR "+savename|
00002d80 24 0d 0e e2 0b 20 76 65 72 25 3d 31 0d 0e ec 13 |$.... ver%=1....|
00002d90 20 e3 49 3d 30 b8 76 65 72 63 6f 75 6e 74 25 0d | .I=0.vercount%.|
00002da0 0e f6 29 20 20 e7 20 76 65 72 25 3d 31 20 8c 20 |..) . ver%=1 . |
00002db0 66 69 6c 65 24 3d 73 61 76 65 6e 61 6d 65 24 2b |file$=savename$+|
00002dc0 22 2e 21 42 6f 6f 74 22 0d 0f 00 2a 20 20 e7 20 |".!Boot"...* . |
00002dd0 76 65 72 25 3d 32 20 8c 20 66 69 6c 65 24 3d 73 |ver%=2 . file$=s|
00002de0 61 76 65 6e 61 6d 65 24 2b 22 2e 21 42 6f 6f 74 |avename$+".!Boot|
00002df0 b2 22 0d 0f 0a 28 20 20 e7 20 76 65 72 25 3d 33 |."...( . ver%=3|
00002e00 20 8c 20 66 69 6c 65 24 3d 73 61 76 65 6e 61 6d | . file$=savenam|
00002e10 65 24 2b 22 2e 21 52 75 6e 22 0d 0f 14 2c 20 20 |e$+".!Run"..., |
00002e20 e7 20 76 65 72 25 3d 34 20 8c 20 66 69 6c 65 24 |. ver%=4 . file$|
00002e30 3d 73 61 76 65 6e 61 6d 65 24 2b 22 2e 21 53 70 |=savename$+".!Sp|
00002e40 72 69 74 65 73 22 0d 0f 1e 29 20 20 e7 20 76 65 |rites"...) . ve|
00002e50 72 25 3d 35 20 8c 20 66 69 6c 65 24 3d 73 61 76 |r%=5 . file$=sav|
00002e60 65 6e 61 6d 65 24 2b 22 2e 63 68 73 70 72 22 0d |ename$+".chspr".|
00002e70 0f 28 13 20 20 77 72 63 68 25 3d ae 20 66 69 6c |.(. wrch%=. fil|
00002e80 65 24 0d 0f 32 07 20 20 f5 0d 0f 3c 27 20 20 20 |e$..2. ...<' |
00002e90 e7 20 76 65 72 25 28 49 29 3c 3e 31 36 39 20 8c |. ver%(I)<>169 .|
00002ea0 20 d5 23 77 72 63 68 25 2c 76 65 72 25 28 49 29 | .#wrch%,ver%(I)|
00002eb0 0d 0f 46 32 20 20 20 c8 99 20 22 48 6f 75 72 67 |..F2 .. "Hourg|
00002ec0 6c 61 73 73 5f 50 65 72 63 65 6e 74 61 67 65 22 |lass_Percentage"|
00002ed0 2c 28 49 2f 76 65 72 63 6f 75 6e 74 25 29 2a 31 |,(I/vercount%)*1|
00002ee0 30 30 0d 0f 50 1c 20 20 20 e7 20 76 65 72 25 28 |00..P. . ver%(|
00002ef0 49 29 3c 3e 31 36 39 20 8c 20 49 2b 3d 31 0d 0f |I)<>169 . I+=1..|
00002f00 5a 13 20 20 fd 20 76 65 72 25 28 49 29 3d 31 36 |Z. . ver%(I)=16|
00002f10 39 0d 0f 64 2b 20 20 20 e7 20 76 65 72 25 3d 31 |9..d+ . ver%=1|
00002f20 20 8c 20 ff 22 53 65 74 54 79 70 65 20 22 2b 66 | . ."SetType "+f|
00002f30 69 6c 65 24 2b 22 20 4f 62 65 79 22 0d 0f 6e 2b |ile$+" Obey"..n+|
00002f40 20 20 20 e7 20 76 65 72 25 3d 32 20 8c 20 ff 22 | . ver%=2 . ."|
00002f50 53 65 74 54 79 70 65 20 22 2b 66 69 6c 65 24 2b |SetType "+file$+|
00002f60 22 20 4f 62 65 79 22 0d 0f 78 2b 20 20 20 e7 20 |" Obey"..x+ . |
00002f70 76 65 72 25 3d 33 20 8c 20 ff 22 53 65 74 54 79 |ver%=3 . ."SetTy|
00002f80 70 65 20 22 2b 66 69 6c 65 24 2b 22 20 4f 62 65 |pe "+file$+" Obe|
00002f90 79 22 0d 0f 82 2d 20 20 20 e7 20 76 65 72 25 3d |y"...- . ver%=|
00002fa0 34 20 8c 20 ff 22 53 65 74 54 79 70 65 20 22 2b |4 . ."SetType "+|
00002fb0 66 69 6c 65 24 2b 22 20 53 70 72 69 74 65 22 0d |file$+" Sprite".|
00002fc0 0f 8c 2e 20 20 20 e7 20 76 65 72 25 3d 35 20 8c |... . ver%=5 .|
00002fd0 20 ff 22 53 65 74 54 79 70 65 20 22 2b 66 69 6c | ."SetType "+fil|
00002fe0 65 24 2b 22 20 55 74 69 6c 69 74 79 22 0d 0f 96 |e$+" Utility"...|
00002ff0 0d 20 20 d9 23 77 72 63 68 25 0d 0f a0 0d 20 20 |. .#wrch%.... |
00003000 76 65 72 25 2b 3d 31 0d 0f aa 07 20 ed 49 0d 0f |ver%+=1.... .I..|
00003010 b4 24 20 ff 22 43 44 49 52 20 22 2b 73 61 76 65 |.$ ."CDIR "+save|
00003020 6e 61 6d 65 24 2b 22 2e 44 69 72 65 63 74 6f 72 |name$+".Director|
00003030 79 22 0d 0f be 24 20 ff 22 57 69 6d 70 54 61 73 |y"...$ ."WimpTas|
00003040 6b 20 22 2b 73 61 76 65 6e 61 6d 65 24 2b 22 2e |k "+savename$+".|
00003050 21 42 6f 6f 74 22 0d 0f c8 22 20 ff 22 44 65 6c |!Boot"..." ."Del|
00003060 65 74 65 20 22 2b 73 61 76 65 6e 61 6d 65 24 2b |ete "+savename$+|
00003070 22 2e 21 42 6f 6f 74 22 0d 0f d2 22 20 ff 22 44 |".!Boot"..." ."D|
00003080 65 6c 65 74 65 20 22 2b 73 61 76 65 6e 61 6d 65 |elete "+savename|
00003090 24 2b 22 2e 63 68 73 70 72 22 0d 0f dc 37 20 ff |$+".chspr"...7 .|
000030a0 22 52 65 4e 61 6d 65 20 22 2b 73 61 76 65 6e 61 |"ReName "+savena|
000030b0 6d 65 24 2b 22 2e 21 42 6f 6f 74 b2 20 22 2b 73 |me$+".!Boot. "+s|
000030c0 61 76 65 6e 61 6d 65 24 2b 22 2e 21 42 6f 6f 74 |avename$+".!Boot|
000030d0 22 0d 0f e6 2a 20 73 61 76 65 6e 61 6d 65 24 2b |"...* savename$+|
000030e0 3d 22 2e 44 69 72 65 63 74 6f 72 79 22 2b 22 2e |=".Directory"+".|
000030f0 22 2b 66 69 6c 65 6c 6f 61 64 24 0d 0f f0 19 20 |"+fileload$.... |
00003100 c8 99 20 22 48 6f 75 72 67 6c 61 73 73 5f 53 6d |.. "Hourglass_Sm|
00003110 61 73 68 22 0d 0f fa 06 20 e1 0d 10 04 06 20 3a |ash".... ..... :|
00003120 0d 10 0e 10 20 dd f2 6c 6f 61 64 70 72 6f 67 73 |.... ..loadprogs|
00003130 0d 10 18 16 20 c8 99 20 22 48 6f 75 72 67 6c 61 |.... .. "Hourgla|
00003140 73 73 5f 4f 6e 22 0d 10 22 10 20 76 65 72 63 6f |ss_On"..". verco|
00003150 75 6e 74 25 3d 30 0d 10 2c 83 20 72 65 63 68 25 |unt%=0..,. rech%|
00003160 3d 8e 20 22 3c 53 70 6c 69 74 24 44 69 72 3e 2e |=. "<Split$Dir>.|
00003170 21 53 75 70 70 6f 72 74 2e 21 42 6f 6f 74 22 3a |!Support.!Boot":|
00003180 f5 3a 76 65 72 25 28 76 65 72 63 6f 75 6e 74 25 |.:ver%(vercount%|
00003190 29 3d 9a 23 72 65 63 68 25 3a 76 65 72 63 6f 75 |)=.#rech%:vercou|
000031a0 6e 74 25 2b 3d 31 3a fd 20 c5 23 72 65 63 68 25 |nt%+=1:. .#rech%|
000031b0 3a d9 23 72 65 63 68 25 3a 76 65 72 25 28 76 65 |:.#rech%:ver%(ve|
000031c0 72 63 6f 75 6e 74 25 29 3d 31 36 39 3a 76 65 72 |rcount%)=169:ver|
000031d0 63 6f 75 6e 74 25 2b 3d 31 0d 10 36 84 20 72 65 |count%+=1..6. re|
000031e0 63 68 25 3d 8e 20 22 3c 53 70 6c 69 74 24 44 69 |ch%=. "<Split$Di|
000031f0 72 3e 2e 21 53 75 70 70 6f 72 74 2e 21 42 6f 6f |r>.!Support.!Boo|
00003200 74 b2 22 3a f5 3a 76 65 72 25 28 76 65 72 63 6f |t.":.:ver%(verco|
00003210 75 6e 74 25 29 3d 9a 23 72 65 63 68 25 3a 76 65 |unt%)=.#rech%:ve|
00003220 72 63 6f 75 6e 74 25 2b 3d 31 3a fd 20 c5 23 72 |rcount%+=1:. .#r|
00003230 65 63 68 25 3a d9 23 72 65 63 68 25 3a 76 65 72 |ech%:.#rech%:ver|
00003240 25 28 76 65 72 63 6f 75 6e 74 25 29 3d 31 36 39 |%(vercount%)=169|
00003250 3a 76 65 72 63 6f 75 6e 74 25 2b 3d 31 0d 10 40 |:vercount%+=1..@|
00003260 82 20 72 65 63 68 25 3d 8e 20 22 3c 53 70 6c 69 |. rech%=. "<Spli|
00003270 74 24 44 69 72 3e 2e 21 53 75 70 70 6f 72 74 2e |t$Dir>.!Support.|
00003280 21 52 75 6e 22 3a f5 3a 76 65 72 25 28 76 65 72 |!Run":.:ver%(ver|
00003290 63 6f 75 6e 74 25 29 3d 9a 23 72 65 63 68 25 3a |count%)=.#rech%:|
000032a0 76 65 72 63 6f 75 6e 74 25 2b 3d 31 3a fd 20 c5 |vercount%+=1:. .|
000032b0 23 72 65 63 68 25 3a d9 23 72 65 63 68 25 3a 76 |#rech%:.#rech%:v|
000032c0 65 72 25 28 76 65 72 63 6f 75 6e 74 25 29 3d 31 |er%(vercount%)=1|
000032d0 36 39 3a 76 65 72 63 6f 75 6e 74 25 2b 3d 31 0d |69:vercount%+=1.|
000032e0 10 4a 86 20 72 65 63 68 25 3d 8e 20 22 3c 53 70 |.J. rech%=. "<Sp|
000032f0 6c 69 74 24 44 69 72 3e 2e 21 53 75 70 70 6f 72 |lit$Dir>.!Suppor|
00003300 74 2e 21 53 70 72 69 74 65 73 22 3a f5 3a 76 65 |t.!Sprites":.:ve|
00003310 72 25 28 76 65 72 63 6f 75 6e 74 25 29 3d 9a 23 |r%(vercount%)=.#|
00003320 72 65 63 68 25 3a 76 65 72 63 6f 75 6e 74 25 2b |rech%:vercount%+|
00003330 3d 31 3a fd 20 c5 23 72 65 63 68 25 3a d9 23 72 |=1:. .#rech%:.#r|
00003340 65 63 68 25 3a 76 65 72 25 28 76 65 72 63 6f 75 |ech%:ver%(vercou|
00003350 6e 74 25 29 3d 31 36 39 3a 76 65 72 63 6f 75 6e |nt%)=169:vercoun|
00003360 74 25 2b 3d 31 0d 10 54 76 20 72 65 63 68 25 3d |t%+=1..Tv rech%=|
00003370 8e 20 22 3c 53 70 6c 69 74 24 44 69 72 3e 2e 21 |. "<Split$Dir>.!|
00003380 53 75 70 70 6f 72 74 2e 63 68 73 70 72 22 3a f5 |Support.chspr":.|
00003390 3a 76 65 72 25 28 76 65 72 63 6f 75 6e 74 25 29 |:ver%(vercount%)|
000033a0 3d 9a 23 72 65 63 68 25 3a 76 65 72 63 6f 75 6e |=.#rech%:vercoun|
000033b0 74 25 2b 3d 31 3a fd 20 c5 23 72 65 63 68 25 3a |t%+=1:. .#rech%:|
000033c0 d9 23 72 65 63 68 25 3a 76 65 72 25 28 76 65 72 |.#rech%:ver%(ver|
000033d0 63 6f 75 6e 74 25 29 3d 31 36 39 0d 10 5e 19 20 |count%)=169..^. |
000033e0 c8 99 20 22 48 6f 75 72 67 6c 61 73 73 5f 53 6d |.. "Hourglass_Sm|
000033f0 61 73 68 22 0d 10 68 06 20 e1 0d ff |ash"..h. ...|
000033fc 
.