Home » Archimedes archive » Acorn Computing » 1994 04 subscription disc.adf » 9404s » PD/BACKDROP/!StickyBrd/!RunImage
PD/BACKDROP/!StickyBrd/!RunImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn Computing » 1994 04 subscription disc.adf » 9404s |
| Filename: | PD/BACKDROP/!StickyBrd/!RunImage |
| Read OK: | ✔ |
| File size: | D5B2 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >NewPD.!StickyBrd.!RunImage
20REM Public Domain
30REM By David J. Seery
40REM LEN David J. Seery 1992
50REM Current version: 0.80
60
70SYS "XHourglass_On"
80ON ERROR x%=FNerror("Fatal Error (type "+STR$ERR+"/internal error code "+STR$ERL+") "+REPORT$+"...Re-run & try again",1):END
90DIM q% 1200,ind% &400,ind2% &400,menu% 2600,ind3% &400
100DIM ind4% &400,pointer% 500,file$(80),type(80),ind5% &500,ind6% &600
110DIM x(80),y(80),ftype$(80),filetype(80),ind8% &400
120DIM ind9% &500,ind10% &400,filemen% 512
130DIM object% 20,ind14% &600,openparent% 20,main_w% 800
140DIM ind15% &500,fgb% 20,bgb% 20,ind16% &350,modlinfo% 800
150DIM modlmenu% 2000:REM plenty of space for module menu (!)
160DIM modl$(20),modl(20),modli$(20),modlp$(20),modla$(20),modlv$(20)
170DIM modlinf(20),mcode% 300,config_file% 3000,mcode2% 100
180DIM time_block% 20,time_buff% 20
190DIM sprite% &8500:sprite%!0=&8500:sprite%!8=16:SYS "XOS_SpriteOp",9+256,sprite%
200DIM cols% 16,scale% 16
210stayopen=FALSE:spritefile$="":desktop$="":f$="":clockhandle%=-1:clck=FALSE:appdata=FALSE:tiled=FALSE:adjust=FALSE:sploaded=FALSE:modlptr=0:clockx%=1079:clocky%=1023:clocking%=FALSE:new_app$="":file$()="":turbo%=FALSE:locked%=FALSE
220$q%="TASK"
230SYS "XWimp_Initialise",200,!q%,"StickyBrd" TO wimpver%,taskh%
240IF wimpver%<200 PROCtellemoff("Fatal Error (type -1): Wimp Manager out of date (requires 2.00 or later)"):SYS "XWimp_CloseDown":END
250SYS "XInterface_Initialise",taskh%
260SYS "XWimp_OpenTemplate",,"<StickyBrdRes$Dir>.Templates"
270SYS "XWimp_LoadTemplate",,q%,ind8%,ind8%+&400,-1,"clock",0
280SYS "XWimp_CreateWindow",,q% TO clock%
290SYS "XWimp_LoadTemplate",,q%,ind%,ind%+&400,-1,"info",0
300SYS "XWimp_CreateWindow",,q% TO infowind%
310SYS "XWimp_LoadTemplate",,q%,ind2%,ind2%+&400,-1,"moreinfo",0
320SYS "XWimp_CreateWindow",,q% TO moreinfo%
330SYS "XWimp_LoadTemplate",,main_w%,ind3%,ind3%+&400,-1,"main",0
340SYS "XWimp_CreateWindow",,main_w% TO main%
350SYS "XWimp_CreateWindow",,main_w% TO main1%
360SYS "XWimp_LoadTemplate",,q%,ind4%,ind4%+&400,-1,"backdrop",0
370SYS "XWimp_CreateWindow",,q% TO backdrop%
380SYS "XWimp_LoadTemplate",,q%,ind5%,ind5%+&500,-1,"saveas",0
390SYS "XWimp_CreateWindow",,q% TO saveas%
400SYS "XWimp_LoadTemplate",,q%,ind6%,ind6%+&600,-1,"about",0
410SYS "XWimp_CreateWindow",,q% TO about%
420SYS "XWimp_LoadTemplate",,q%,ind9%,ind9%+&500,-1,"warning",0
430SYS "XWimp_CreateWindow",,q% TO warning%
440SYS "XWimp_LoadTemplate",,q%,ind10%,ind10%+&400,-1,"loaded",0
450SYS "XWimp_CreateWindow",,q% TO loaded%
460SYS "XWimp_LoadTemplate",,q%,ind14%,ind14%+&600,-1,"abackdrop",0
470SYS "XWimp_CreateWindow",,q% TO aback%
480SYS "XWimp_LoadTemplate",,q%,ind15%,ind15%+&500,-1,"clockset",0
490SYS "XWimp_CreateWindow",,q% TO cset%
500SYS "XWimp_LoadTemplate",,modlinfo%,ind16%,ind16%+&350,-1,"modlinfo",0
510SYS "XWimp_CloseTemplate"
520PROCset_size
530exists%=OPENUP("<Wimp$Scrap>"):IF exists%>0 CLOSE#exists%
540IF exists%=0 OSCLI("Create <Wimp$Scrap>")
550PROCset_clock_flags(TRUE,FALSE,FALSE,FALSE,TRUE,TRUE)
560PROCmenu(1)
570PROCgrey_menu(menu%+2200,1)
580PROCassemble:!ind_q%=q%:!scl%=scale%:!col%=cols%
590
600PROCopenup(main%,0,win_maxy%,win_maxx%,(win_maxy%-win_miny%))
610firstrun%=TRUE
620quit%=FALSE
630
640ON ERROR CASE ERR OF
650 WHEN 175 : PROCtellemoff("Cannot copy error (type=1), handle="+STR$main%):appdata=FALSE
660 WHEN 214 : PROCtellemoff("Cannot copy error (type=2), handle="+STR$main%):appdata=FALSE
670 OTHERWISE : IF FNerror("Nonfatal error: "+REPORT$+" (internal error code "+STR$ERL+"), handle="+STR$main%+", sprite area at "+STR$~(sprite%)+" Shall I Quit ?",3)=1 PROCmodl_quit:SYS "XInterface_CloseDown",taskh%:SYS "XWimp_CloseDown":END
680ENDCASE
690IF firstrun% PROCload_modls
700SYS "XHourglass_Off"
710
720REPEAT
730SYS "XWimp_Poll",,q% TO reason%
740SYS "XInterface_PreProcessKey",reason%,q%,taskh%
750SYS "XInterface_Poll",reason%,q%,taskh%
760CASE reason% OF
770WHEN 1 : PROCredraw
780WHEN 2 : SYS "XWimp_OpenWindow",,q%
790WHEN 3 : SYS "XWimp_CloseWindow",,q%
800 IF !q%=backdrop% PROCputiconsprite(backdrop%,4,"toptoff")
810 IF INKEY TRUE PROCiconise(!q%)
820WHEN 6 : PROCcheckmouse
830WHEN 7 : sf$=FNlastbit(sf$):PROCdragend
840WHEN 9 : PROCprocess_menu
850WHEN 17,18 : PROCmessage
860WHEN 19 : PROCmess_ack
870WHEN 0 : PROCupdate_clock:PROCpass_null:PROCtitlemenu
880ENDCASE
890IF firstrun%=TRUE firstrun%=FALSE:PROCopenup(loaded%,315,662,650,300)
900IF clck PROCopenup(clock%,clockx%,clocky%,200,200)
910UNTIL quit%
920SYS "XInterface_CloseDown",taskh%
930SYS "XWimp_CloseDown":END
940
950DEF FNiconbar
960LOCAL i%
970q%!0=-1
980q%!4=0
990q%!8=0
1000q%!12=68
1010q%!16=96
1020q%!20=&2002
1030$(q%+24)="!StickyBrd"
1040SYS "XWimp_CreateIcon",,q% TO i%
1050=i%
1060
1070DEF PROCmessage
1080your_ref%=q%!8
1090my_ref%=q%!12
1100CASE (q%!16) OF
1110WHEN 0 : quit%=TRUE
1120WHEN 1 : IF q%!20<>saveas% THEN
1130 IF appdata=TRUE AND adjust=FALSE THEN
1140 PROCwarning
1150 ENDPROC
1160 ENDIF
1170 SYS "XOS_ReadVarVal","Wimp$Scrap",,-1,0,3 TO ,,exists%
1180 IF exists%=0 PROCtellemoff("Wimp$Scrap not defined"):ENDPROC
1190 q%!36=-1:PROCstring0(q%+44,"<Wimp$Scrap>")
1200 !q%=(48+LEN"<Wimp$Scrap>")ANDNOT3
1210 q%!12=q%!8:q%!16=2:SYS "XWimp_SendMessage",17,q%,q%!4
1220 scrapref%=q%!8:appdata=TRUE
1230 ENDIF
1240WHEN 2 : PROCdosave
1250WHEN 3 : PROClf
1260WHEN 5 : PROCintercept
1270WHEN 8 : PROCmodl_quit
1280WHEN &502 : PROCsendhelp
1290WHEN &400C0 : PROCmenu_message
1300WHEN &400C1 : PROCset_size:PROCpix_trans
1310ENDCASE
1320ENDPROC
1330
1340DEF PROCread_size(RETURN win_maxx%,RETURN win_maxy%,RETURN win_miny%)
1350SYS "XOS_ReadModeVariable",-1,4 TO ,,eig%
1360SYS "XOS_ReadModeVariable",-1,11 TO ,,limit%:limit%+=1
1370win_maxx%=limit%<<eig%
1380SYS "XOS_ReadModeVariable",-1,5 TO ,,eig%
1390SYS "XOS_ReadModeVariable",-1,12 TO ,,limit%:limit%+=1
1400win_maxy%=limit%<<eig%
1410win_miny%=140+(1<<eig%)
1420ENDPROC
1430
1440DEF PROCset_size:win_maxx%=0:win_maxy%=0:win_miny%=0
1450PROCread_size(win_maxx%,win_maxy%,win_miny%)
1460PROCshut(main%)
1470pointer%!0=main%:SYS "XWimp_DeleteWindow",,pointer%
1480pointer%!0=main1%:SYS "XWimp_DeleteWindow",,pointer%
1490main_w%!44=-(win_maxy%-win_miny%):main_w%!48=win_maxx%
1500SYS "Wimp_CreateWindow",,main_w% TO main%
1510SYS "Wimp_CreateWindow",,main_w% TO main1%
1520pointer%!0=main%:pointer%!4=0:SYS "Wimp_GetIconState",,pointer%
1530SYS "Wimp_DeleteIcon",,pointer%
1540pointer%!4=main%:pointer%!8=0:pointer%!12=-(win_maxy%-win_miny%)
1550pointer%!16=win_maxx%:pointer%!20=0
1560SYS "Wimp_CreateIcon",,pointer%+4
1570IF sploaded=TRUE AND tiled=FALSE PROCputiconsprite(main%,0,backspname$)
1580FOR I=0 TO 80
1590IF file$(I)<>"" THEN
1600 spname$=ftype$(I)
1610 SYS "XWimp_SpriteOp",40,,ftype$(I) TO ;flags%
1620 IF (flags% AND 1)=1 THEN
1630 IF filetype(I)=&2000 spname$="application"
1640 IF filetype(I)<>&2000 spname$="file_xxx"
1650 ENDIF
1660 fg$=STR$~(fg):bg$=STR$~(bg):flag$=bg$+fg$+"018039":flag=EVAL("&"+flag$)
1670 PROCcreate_icon(main%,0,x(I)-50,x(I)+115,-(1024-(y(I)-65)),65,spname$,&4701801A)
1680 name$=FNlastbit(file$(I)):wid%=(LENname$)*16
1690 PROCcreate_icon(main%,0,(x(I)-(wid%/2))+30,(x(I)+(wid%/2))+30,-(1024-(y(I)-115)),36,name$,flag)
1700 PROCputiconsprite(main%,i%-1,spname$)
1710ENDIF
1720NEXT
1730PROCopenup(main%,0,win_maxy%,win_maxx%,(win_maxy%-win_miny%))
1740ENDPROC
1750
1760DEF PROCcheckmouse
1770handle=(q%!12)
1780icon%=q%!16
1790CASE (q%!12) OF
1800WHEN main%,main1%
1810CASE (q%!8) OF
1820WHEN 4 : IF q%!16>0 PROCset_icon(q%!12,q%!16):PROCrun(icon%)
1830WHEN 2 : IF q%!16>0 THEN:PROCsetupinfo:PROCsetmenuitem:ENDIF
1840 IF q%!16=0 THEN:PROCsetclearmenu:ENDIF
1850 SYS "XWimp_CreateMenu",,menu%,!q%-64,q%!4
1860WHEN &10 : IF q%!16>0 adjust=TRUE:sf$=FNlastbit(file$(q%!16)):PROCdragabout(q%!16)
1870WHEN &40 : IF q%!16>0 adjust=FALSE:sf$=FNlastbit(file$(q%!16)):PROCdragabout(q%!16)
1880ENDCASE
1890WHEN infowind%
1900CASE (q%!8) OF
1910WHEN 4 : CASE q%!16 OF
1920WHEN 9 : PROCslabicon:SYS "XWimp_CreateMenu",,-1:PROCopenup(moreinfo%,240,762,800,600)
1930ENDCASE
1940ENDCASE
1950WHEN backdrop%
1960CASE (q%!8) OF
1970WHEN 4 : CASE q%!16 OF
1980WHEN 4 : PROCstaytoggle
1990WHEN 5 : PROCslabicon:PROCputiconsprite(main%,0,""):spritefile$="":sploaded=FALSE
2000WHEN 6 : tiled=TRUE:PROCputiconsprite(backdrop%,6,"tradioon"):PROCputiconsprite(backdrop%,8,"tradiooff")
2010WHEN 8 : tiled=FALSE:PROCputiconsprite(backdrop%,6,"tradiooff"):PROCputiconsprite(backdrop%,8,"tradioon")
2020ENDCASE
2030ENDCASE
2040WHEN saveas%
2050CASE (q%!8) OF
2060WHEN 4 : CASE q%!16 OF
2070WHEN 3 : PROCslabicon:PROCshut(saveas%):sf$=FNtrans("StickyBrdDesktop$Dir")+"."+FNgeticondata(saveas%,2)
2080 PROCload_new_desktop
2090WHEN 4 : PROCslabicon:PROCshut(saveas%):sf$=FNtrans("StickyBrdDesktop$Dir")+"."+FNgeticondata(saveas%,2)
2100 PROCsave_disc
2110ENDCASE
2120ENDCASE
2130WHEN moreinfo%
2140CASE q%!8 OF
2150WHEN 4 : CASE q%!16 OF
2160 WHEN 14 : PROCslabicon:PROCshut(moreinfo%):IF INKEY TRUE PROCiconise(moreinfo%)
2170ENDCASE
2180ENDCASE
2190WHEN warning%
2200CASE q%!8 OF
2210 WHEN 4 : CASE q%!16 OF
2220 WHEN 4 : PROCslabicon:PROCshut(warning%)
2230 WHEN 5 : PROCslabicon:PROCshut(warning%):appdata=0
2240 ENDCASE
2250ENDCASE
2260WHEN loaded%
2270CASE q%!8 OF
2280 WHEN 4 : CASE q%!16 OF
2290 WHEN 5 : PROCslabicon:PROCshut(loaded%)
2300 WHEN 6 : PROCslabicon:PROCshut(loaded%):OSCLI "WimpTask <StickyBrd$Dir>.!Help"
2310 ENDCASE
2320ENDCASE
2330WHEN cset%
2340CASE q%!8 OF
2350 WHEN 4 : CASE q%!16 OF
2360 WHEN 4 : PROCaddh(2)
2370 WHEN 5 : PROCsubh(2)
2380 WHEN 6 : PROCaddm(3)
2390 WHEN 7 : PROCsubm(3)
2400 WHEN 8 : PROCslabicon:PROCsettime(FNgeticondata(cset%,2),FNgeticondata(cset%,3))
2410 ENDCASE
2420ENDCASE
2430WHEN clock%
2440CASE q%!8 OF
2450 WHEN 4,1 : PROCsavedragbox(clock%,0):clocking%=TRUE
2460ENDCASE
2470OTHERWISE : PROCmodl_mclick(handle,icon%,q%!8)
2480ENDCASE
2490ENDPROC
2500
2510DEF PROCmenu(fvar)
2520LOCAL fg$,bg$,flag$
2530mblk%=menu%
2540flags=&7000021
2550IF fvar=1 fg=7:bg=4
2560fg$=STR$~(fg):bg$=STR$~(bg)
2570flag$=bg$+FNfgcol(bg)+"000121":bflag=EVAL("&"+flag$)
2580flag$=fg$+FNfgcol(fg)+"000121":fflag=EVAL("&"+flag$)
2590IF fvar=1 $object%="File ''"
2600IF fvar=1 $openparent%="Open Parent"
2610IF fvar=1 $fgb%="Text Foreground"
2620IF fvar=1 $bgb%="Text Background"
2630PROCheader("StickyBrd",18)
2640PROCentry(&02,menu%+400,flags,"Misc")
2650PROCindirect(&00,menu%+300,&07000121,object%)
2660PROCentry(&00,menu%+1900,flags,"Backdrop")
2670PROCentry(&00,-1,flags,"Clear All")
2680PROCentry(&00,menu%+500,flags,"Colours")
2690PROCentry(&00,menu%+1600,flags,"Options")
2700PROCentry(&02,modlmenu%,flags,"Modules")
2710PROCentry(&80,-1,flags,"Quit")
2720IF modlptr=0 PROCgrey_menu(menu%,6)
2730mblk%=menu%+300
2740PROCheader("Object",12)
2750PROCentry(&00,about%,flags,"Info")
2760PROCentry(&00,-1,flags,"Remove")
2770PROCindirect(&80,-1,&07000121,openparent%)
2780mblk%=menu%+400
2790PROCheader("Misc",9)
2800PROCentry(&00,infowind%,flags,"Info")
2810PROCentry(&00,about%,flags,"File")
2820PROCentry(&80,saveas%,flags,"Desktop")
2830mblk%=menu%+500
2840PROCheader("Colours",16)
2850PROCindirect(&00,menu%+600,fflag,fgb%)
2860PROCindirect(&80,menu%+1100,bflag,bgb%)
2870mblk%=menu%+600
2880PROCheader("Colour",4)
2890PROCentry(&00,-1,&07000019,"0")
2900PROCentry(&00,-1,&17000019,"1")
2910PROCentry(&00,-1,&27000019,"2")
2920PROCentry(&00,-1,&30000019,"3")
2930PROCentry(&00,-1,&40000019,"4")
2940PROCentry(&00,-1,&50000019,"5")
2950PROCentry(&00,-1,&60000019,"6")
2960PROCentry(&00,-1,&70000019,"7")
2970PROCentry(&00,-1,&80000019,"8")
2980PROCentry(&00,-1,&97000019,"9")
2990PROCentry(&00,-1,&A0000019,"10")
3000PROCentry(&00,-1,&B0000019,"11")
3010PROCentry(&00,-1,&C7000019,"12")
3020PROCentry(&00,-1,&D0000019,"13")
3030PROCentry(&00,-1,&E7000019,"14")
3040PROCentry(&80,-1,&F7000019,"15")
3050REM phew! and now again...
3060mblk%=menu%+1100
3070PROCheader("Colour",4)
3080REM here we go
3090PROCentry(&00,-1,&07000019,"0")
3100PROCentry(&00,-1,&17000019,"1")
3110PROCentry(&00,-1,&27000019,"2")
3120PROCentry(&00,-1,&30000019,"3")
3130PROCentry(&00,-1,&40000019,"4")
3140PROCentry(&00,-1,&50000019,"5")
3150PROCentry(&00,-1,&60000019,"6")
3160PROCentry(&00,-1,&70000019,"7")
3170PROCentry(&00,-1,&80000019,"8")
3180PROCentry(&00,-1,&97000019,"9")
3190PROCentry(&00,-1,&A0000019,"10")
3200PROCentry(&00,-1,&B0000019,"11")
3210PROCentry(&00,-1,&C7000019,"12")
3220PROCentry(&00,-1,&D0000019,"13")
3230PROCentry(&00,-1,&E7000019,"14")
3240PROCentry(&80,-1,&F7000019,"15")
3250PROCwimp_tick(menu%+600,7)
3260PROCwimp_tick(menu%+1100,4)
3270mblk%=menu%+1600
3280PROCheader("Options",13)
3290PROCentry(&00,-1,flags,"Hide")
3300PROCentry(&02,-1,flags,"Restore")
3310PROCentry(&00-clck,menu%+2100,flags,"Clock")
3320PROCentry(&00,-1,flags,"Update")
3330PROCentry(&80-locked%,-1,flags,"Locked")
3340mblk%=menu%+1900
3350PROCheader("Backdrop",9)
3360PROCentry(&00,backdrop%,flags,"Load")
3370PROCentry(&00,aback%,flags,"Info")
3380PROCentry(&00,-1,flags,"Restore")
3390PROCentry(&80-turbo%,-1,flags,"Turbo")
3400mblk%=menu%+2100
3410PROCheader("Clock",9)
3420PROCentry(&00-emboss,-1,flags,"Embossed")
3430PROCentry(&00-recess,-1,flags,"Recessed")
3440PROCentry(&02-border,-1,flags,"Bordered")
3450PROCentry(&00-twelve,-1,flags,"HH:MM")
3460PROCentry(&00-twfour,-1,flags,"HH:MM:SS")
3470PROCentry(&02-hour,-1,flags,"24 Hour")
3480PROCentry(&80,-1,flags,"Set...")
3490ENDPROC
3500
3510DEF FNfgcol(col)
3520CASE col OF
3530WHEN 0,1,2,9,12,14,15 : ="7"
3540WHEN 3,4,5,6,7,8,10,11,13 : ="0"
3550ENDCASE
3560ENDPROC
3570
3580DEF PROCheader(T$,w)
3590$mblk%=T$
3600mblk%!12=&70207
3610mblk%!16=w*16
3620mblk%!20=40
3630mblk%!24=0
3640mblk%+=28
3650ENDPROC
3660
3670DEF PROCentry(A%,B%,C%,T$)
3680mblk%!0=A%
3690mblk%!4=B%
3700mblk%!8=C%
3710$(mblk%+12)=T$
3720mblk%+=24
3730ENDPROC
3740
3750DEF PROCindirect(A%,B%,C%,D%)
3760mblk%!0=A%
3770mblk%!4=B%
3780mblk%!8=C%
3790mblk%!12=D%
3800mblk%!16=-1
3810mblk%!20=20
3820mblk%+=24
3830ENDPROC
3840
3850DEF FNerror(e$,b%):!q%=0:$(q%+4)=e$+CHR$0
3860SYS "XWimp_ReportError",q%,b%,"StickyBrd" TO ,b%
3870=b%
3880
3890DEF PROClf
3900REM
3910f$=STRING$(250," "):f$="":T%=q%+44
3920WHILE ?T%<>0:f$+=CHR$?T%:T%+=1:ENDWHILE
3930IF q%!20=backdrop% AND q%!24=2 THEN
3940PROCloadbackdrop
3950ELSE
3960PROCaddtodesktop
3970ENDIF
3980PROCmodl_dataload(f$,q%!20,q%!24)
3990q%!12=q%!8:q%!16=4:SYS "XWimp_SendMessage",17,q%
4000ENDPROC
4010
4020DEF PROCredraw
4030IF q%!0=main% THEN
4040 IF tiled=TRUE THEN
4050 IF sploaded=TRUE THEN
4060 B%=q%
4070 CALL mcode%
4080 PROCmodl_redraw
4090 ENDPROC
4100 ENDIF
4110 ENDIF
4120ENDIF
4130PROCmodl_redraw
4140SYS "XWimp_RedrawWindow",,q% TO flag
4150WHILE flag<>0
4160SYS "XInterface_Render3dWindow",,q%
4170SYS "XWimp_GetRectangle",,q% TO flag
4180ENDWHILE
4190ENDPROC
4200
4210DEF PROCassemble
4220FOR pass%=8 TO 11 STEP 2
4230P%=mcode%:L%=mcode%+300
4240[OPT pass%
4250.start%
4260SWI "Wimp_RedrawWindow" ; Get Wimp manager to redraw window
4270.rl ; Start of redraw loop
4280CMP R0,#0 ; More to redraw ?
4290MOVEQ PC,R14 ; No, so exit (Program Counter = Link)
4300LDR R2,[R1,#4] ; }
4310LDR R3,[R1,#8] ; }
4320LDR R4,[R1,#12] ; } Get PWA offsets
4330LDR R5,[R1,#16] ; } & such like from R1 (i.e. q%)
4340LDR R6,[R1,#20] ; }
4350LDR R7,[R1,#24] ; }
4360SUB R0,R2,R6 ; Get min x
4370STR R0,mix% ; Store min x
4380SUB R0,R5,R7 ; Get max y
4390SUB R0,R0,#4 ; Correct
4400STR R0,may% ; Store max y
4410SUB R0,R4,R6 ; Get max x
4420SUB R0,R0,#4 ; Correct
4430STR R0,max% ; Store max x
4440SUB R0,R3,R7 ; Get min y
4450STR R0,miy% ; Store min y
4460.spr_num
4470MOV R0,#512 ; 'Plot sprite' reason code -- use indirected
4480ADD R0,R0,#52 ; Make up to 564 - can't represent directly
4490LDR R1,sp% ; Get sprite area
4500LDR R2,name% ; Get sprite name
4510MOV R5,#8 ; Plot type - overwrite, use mask
4520LDR R6,scl% ; Null
4530LDR R7,col% ; Null
4540MOV R8,#0 ; Null
4550LDR R9,miy% ; Minimum Y value
4560.yloop
4570 LDR R10,mix% ; Minimum X value
4580 .xloop
4590 MOV R3,R10 ; X (Taken from loop)
4600 MOV R4,R9 ; Y (Taken from loop)
4610 SWI "OS_SpriteOp" ; Plot it
4620 LDR R11,xinc% ; Get step size
4630 ADD R10,R10,R11 ; Increment X by step size
4640 LDR R11,max% ; Get maximum X
4650 CMP R10,R11 ; Compare
4660 BLE xloop ; Loop back if < max
4670 LDR R11,yinc% ; Get step size
4680 ADD R9,R9,R11 ; Increment Y by step size
4690 LDR R11,may% ; Get maximum Y
4700 CMP R9,R11 ; Compare
4710 BLE yloop ; Loop back if < max
4720LDR R1,ind_q% ; Get address of param block
4730SWI "Wimp_GetRectangle" ; Get next rectangle
4740B rl ; Branch back
4750.sp% EQUD 0
4760.name% EQUD 0
4770.xinc% EQUD 0:.yinc% EQUD 0
4780.max% EQUD 0:.mix% EQUD 0:.may% EQUD 0:.miy% EQUD 0
4790.ind_q% EQUD 0:.scl% EQUD 0:.col% EQUD 0
4800ALIGN
4810.end%
4820]
4830NEXT pass%
4840FOR pass%=0 TO 3 STEP 2
4850P%=mcode2%:L%=mcode2%+100
4860[OPT pass%
4870ADR R1,time_block%
4880MOV R0,#3
4890STRB R0,[R1]
4900MOV R0,#14
4910SWI "OS_Word"
4920MOV PC,R14
4930]
4940NEXT pass%
4950ENDPROC
4960
4970DEF PROCre_asm(type%)
4980CASE type% OF
4990 WHEN TRUE : P%=spr_num
5000 [OPT 2
5010 MOV R0,#512
5020 ADD R0,R0,#34
5030 ]
5040 WHEN FALSE: P%=spr_num
5050 [OPT 2
5060 MOV R0,#512
5070 ADD R0,R0,#52
5080 ]
5090ENDCASE
5100ENDPROC
5110
5120DEF PROCpix_trans
5130IF sploaded THEN
5140SYS "Wimp_ReadPixTrans",&100,sprite%,backspname$,,,,scale%,cols%
5150ENDIF
5160ENDPROC
5170
5180DEF PROCprocess_menu
5190SYS "XWimp_GetPointerInfo",,pointer%:j%=(pointer%!8=1)
5200CASE handle OF
5210WHEN main%,main1%
5220 CASE q%!0 OF
5230 WHEN 1 : CASE q%!4 OF
5240 WHEN 1 : IF (icon% MOD 2=0) icon%-=1
5250 PROCdelete(icon%,1)
5260 PROCmodl_delete(icon%,type(icon%))
5270 WHEN 2 : IF (icon% MOD 2=0) icon%-=1
5280 OSCLI("WimpTask Filer_OpenDir "+FNdir(file$(icon%)))
5290 ENDCASE
5300 WHEN 2 : CASE q%!4 OF
5310 WHEN 2 : sf$=desktop$
5320 PROCload_new_desktop
5330 WHEN 3 : turbo%=NOT turbo%:PROCmenu(0):PROCre_asm(turbo%)
5340 ENDCASE
5350 WHEN 3 : PROCdeleteall
5360 WHEN 4 : CASE q%!4 OF
5370 WHEN 0 : IF q%!8<>-1 PROCfg
5380 WHEN 1 : IF q%!8<>-1 PROCbg
5390 ENDCASE
5400 WHEN 5 : CASE q%!4 OF
5410 WHEN 0 : PROCshut(main%):PROCopenup(main1%,0,win_maxy%,win_maxx%,(win_maxy%-win_miny%)):PROCgrey_menu(menu%+2200,0)
5420 PROCgrey_menu(menu%+2200,1)
5430 WHEN 1 : PROCshut(main1%):PROCopenup(main%,0,win_maxy%,win_maxx%,(win_maxy%-win_miny%)):IF clck=TRUE PROCopenup(clock%,clockx%,clocky%,200,200)
5440 PROCgrey_menu(menu%+2200,1)
5450 PROCgrey_menu(menu%+2200,0)
5460 WHEN 2 : CASE q%!8 OF
5470 WHEN -1 : clck=NOT clck:PROCmenu(0):PROCgrey_menu(menu%+2200,1):PROCclock
5480 WHEN 0 : PROCset_clock_flags(TRUE,FALSE,FALSE,twelve,twfour,hour):PROCmenu(0):PROCgrey_menu(menu%+2200,1):PROCrs
5490 WHEN 1 : PROCset_clock_flags(FALSE,TRUE,FALSE,twelve,twfour,hour):PROCmenu(0):PROCgrey_menu(menu%+2200,1):PROCrs
5500 WHEN 2 : PROCset_clock_flags(FALSE,FALSE,TRUE,twelve,twfour,hour):PROCmenu(0):PROCgrey_menu(menu%+2200,1):PROCrs
5510 WHEN 3 : PROCset_clock_flags(emboss,recess,border,TRUE,FALSE,hour):PROCmenu(0):PROCgrey_menu(menu%+2200,1)
5520 WHEN 4 : PROCset_clock_flags(emboss,recess,border,FALSE,TRUE,hour):PROCmenu(0):PROCgrey_menu(menu%+2200,1)
5530 WHEN 5 : PROCset_clock_flags(emboss,recess,border,twelve,twfour,NOT hour):PROCmenu(0):PROCgrey_menu(menu%+2200,1)
5540 WHEN 6 : cx%=pointer%!0:cy%=pointer%!4:PROCsetup_sclck:PROCopenup(cset%,cx%,cy%,500,250):SYS "XWimp_SetCaretPosition",cset%,2,,,-1,LEN(FNgeticondata(cset%,2))
5550 ENDCASE
5560 WHEN 3 : q%!8=fg:PROCfg
5570 WHEN 4 : locked%=NOT locked%:PROCmenu(0)
5580 ENDCASE
5590 WHEN 6 : PROCmodl_sendmenu
5600 WHEN 7 : PROCmodl_quit:quit%=TRUE
5610ENDCASE
5620WHEN &FFFFFFFF
5630 FOR step%=0 TO q%!0
5640 q$=$(filemen%+28+(24*step%)+12)
5650 filepath$+="."+q$
5660 NEXT
5670 SYS "XWimp_StartTask","Filer_OpenDir "+filepath$
5680ENDCASE
5690IF j% THEN SYS "XWimp_CreateMenu",,menu%,pointer%!0,pointer%!4
5700ENDPROC
5710
5720DEF PROCopenup(whandle,x,y,w,h)
5730pointer%!0=whandle
5740pointer%!4=x:pointer%!8=y-h
5750pointer%!12=x+w:pointer%!16=y
5760pointer%!20=0:pointer%!24=0
5770IF whandle=main% OR whandle=main1% OR whandle=clock% pointer%!28=-2 ELSE pointer%!28=-1
5780SYS "XWimp_OpenWindow",,pointer%
5790ENDPROC
5800
5810DEF PROCslabicon
5820SYS "XInterface_SlabButton",,q%
5830q%!8=0
5840SYS "XInterface_SlabButton",,q%
5850ENDPROC
5860
5870DEF FNgeticondata(window%,icon%)
5880pointer%!0=window%
5890pointer%!4=icon%
5900SYS "XWimp_GetIconState",,pointer%
5910=$(pointer%!28)
5920
5930DEF PROCputicondata(window%,icon%,T$)
5940pointer%!0=window%
5950pointer%!4=icon%
5960SYS "XWimp_GetIconState",,pointer%
5970pointer%!8=0
5980pointer%!12=0
5990$(pointer%!28)=T$
6000SYS "XWimp_SetIconState",,pointer%
6010ENDPROC
6020
6030DEF PROCloadbackdrop
6040sploaded=TRUE:PROCputiconsprite(main%,0,"")
6050LOCAL n%,o%,b%,q$,h%,x%,y%,v%,m%,var%,z$
6060OSCLI("IconSprites "+f$)
6070SYS "OS_SpriteOp",256+10,sprite%,f$
6080h%=OPENIN(f$)
6090n%=FNb:o%=FNb:b%=-4
6100PTR#h%=o%+b%:b%+=o%:o%=FNb
6110q$="":FOR var=1 TO 12:q$+=CHR$(BGET#h%):NEXT var
6120palette$="No"
6130x%=FNb:y%=FNb:v%=-FNb+FNb-31:m%=FNb:IFm%=PTR#h%-4 palette$="No" ELSE palette$="Yes"
6140IF m% EOR FNb:z$="Yes" ELSE z$="N"
6150m%=FNb:SYS "XOS_ReadModeVariable",m%,9 TO ,,var%
6160x%=(32*(x%+1)+v%) DIV 2^var%:spx%=x%:spy%=y%+1:backspname$=q$
6170SYS "XOS_ReadModeVariable",m%,4 TO ,,var%
6180sp1x%=spx%<<var%
6190SYS "XOS_ReadModeVariable",m%,5 TO ,,var%
6200sp1y%=spy%<<var%
6210CLOSE#h%
6220SYS "XOS_CheckModeValid",m% TO exists%
6230IF exists%<>-1 AND exists%<>-2 SYS "XWimp_SetMode",m%
6240PROCstring_at_address(backspname$,loc%)
6250!name%=loc%:!sp%=sprite%:!xinc%=sp1x%:!yinc%=sp1y%
6260PROCpix_trans
6270IF tiled=TRUE PROCtiled(m%,spx%,spy%,q$,x%,y%+1):ENDPROC
6280PROCputiconsprite(main%,0,backspname$)
6290spritefile$=f$
6300PROCputicondata(aback%,3,f$)
6310PROCputicondata(aback%,4,backspname$)
6320PROCputicondata(aback%,5,palette$)
6330PROCputicondata(aback%,7,"Centred")
6340PROCputicondata(aback%,14,STR$m%)
6350PROCputicondata(aback%,16,STR$x%)
6360PROCputicondata(aback%,18,STR$(y%+1))
6370SYS "XWimp_CreateMenu",,-1
6380ENDPROC
6390
6400DEF PROCdisplay_block(max)
6410REM debugging routine
6420REM
6430REM Displays wimp parameter block
6440:
6450FOR I=0 TO max STEP 4
6460IF I=24 x%=FNerror(STR$~(pointer%!I),1):NEXT
6470IF I=28 x%=FNerror($(pointer%+I),1):NEXT
6480IF I=32 x%=FNerror($(pointer%+I),1):NEXT:ENDPROC
6490REM and now general purpose stuff
6500x%=FNerror(STR$pointer%!I,1)
6510NEXT
6520:
6530ENDPROC
6540
6550DEF PROCputiconsprite(window%,icon%,T$)
6560pointer%!0=window%:pointer%!4=icon%
6570SYS "XWimp_GetIconState",,pointer%
6580SYS "XWimp_DeleteIcon",,pointer%
6590pointer%!4=window%:$(pointer%+28)=T$:pointer%+=4
6600SYS "XWimp_CreateIcon",,pointer%:SYS "XWimp_ForceRedraw",pointer%!0,pointer%!4,pointer%!8,pointer%!12,pointer%!16:pointer%-=4:ENDPROC
6610
6620DEF PROCcreate_icon(handle,addr,minx,maxx,miny,ht,t$,flags)
6630point%=q%+400
6640point%!0=handle
6650point%!4=minx
6660point%!8=miny
6670point%!12=maxx
6680point%!16=miny+ht
6690point%!20=flags
6700IF addr=0 THEN
6710$(point%+24)=t$
6720ELSE
6730point%!24=addr
6740point%!28=-1
6750point%!32=32
6760ENDIF
6770SYS "Wimp_CreateIcon",,point% TO i%
6780ENDPROC
6790
6800DEF PROCaddtodesktop
6810type$=""
6820IF q%!40<>&2000 AND q%!40<>&1000 type$=FNgetftype(q%!40)
6830IF q%!40=&2000 THEN type$=FNlastbit(f$)
6840IF q%!40=&1000 type$="directory"
6850spname$=type$
6860SYS "XWimp_SpriteOp",40,,type$ TO ;flags%
6870IF (flags% AND 1)=1 THEN
6880 IF q%!40=&2000 spname$="application"
6890 IF q%!40<>&2000 AND q%!40<>&1000 spname$="file_xxx"
6900ENDIF
6910fg$=STR$~(fg):bg$=STR$~(bg):flag$=bg$+fg$+"018039":flag=EVAL("&"+flag$)
6920SYS "XWimp_GetPointerInfo",,pointer%
6930pointer%!0-=32:pointer%!4+=32
6940PROCcreate_icon(main%,0,pointer%!0-50,pointer%!0+115,-(1024-(pointer%!4-65)),65,spname$,&4701801A):file$(i%)=f$:x(i%)=pointer%!0:y(i%)=pointer%!4:ftype$(i%)=type$:filetype(i%)=q%!40
6950IF q%!40=&2000 type(i%)=0 ELSE IF q%!40=&1000 type(i%)=1 ELSE type(i%)=2
6960name$=FNlastbit(f$):wid%=(LENname$)*16
6970PROCcreate_icon(main%,0,(pointer%!0-(wid%/2))+30,(pointer%!0+(wid%/2))+30,-(1024-(pointer%!4-115)),36,name$,flag)
6980PROCputiconsprite(main%,i%-1,spname$)
6990SYS "XWimp_ForceRedraw",point%!0,point%!4,point%!8,point%!12,point%!16
7000ENDPROC
7010
7020DEF PROCstaytoggle
7030IF stayopen=FALSE stayopen=TRUE ELSE stayopen=FALSE
7040IF stayopen=TRUE PROCputiconsprite(backdrop%,4,"topton"):pointer%!0=backdrop%:SYS "XWimp_GetWindowState",,pointer%:SYS "XWimp_CreateMenu",,-1:pointer%!28=-1:SYS "XWimp_OpenWindow",,pointer%
7050IF stayopen=FALSE PROCputiconsprite(backdrop%,4,"toptoff")
7060ENDPROC
7070
7080DEF FNrtoz(T%):q$="":WHILE ?T%<>0:q$+=CHR$?T%:T%+=1:ENDWHILE:=q$
7090
7100DEF FNxy
7110REM Debug FN
7120=STR$pointer%!0+"/"+STR$pointer%!4
7130
7140DEF FNzero(expression)
7150=0-expression
7160
7170DEF FNlastbit(s$)
7180IF s$="<Wimp$Scrap>" ="Tempory"
7190WHILE INSTR(s$,":")>0
7200s$=MID$(s$,INSTR(s$,":")+1)
7210ENDWHILE
7220WHILE INSTR(s$,".")>0
7230s$=MID$(s$,INSTR(s$,".")+1)
7240ENDWHILE
7250=s$
7260
7270DEF PROCrun(val)
7280IF (val MOD 2=0) val-=1
7290SYS "XWimp_GetPointerInfo",,pointer%
7300x=pointer%!0-32:y=pointer%!4+32
7310CASE type(val) OF
7320WHEN 3
7330CASE file$(val) OF
7340 WHEN "Info" : PROCopenup(infowind%,x,y,650,450)
7350 WHEN "More Info" : PROCopenup(moreinfo%,x,y,800,600)
7360 WHEN "Backdrop" : PROCopenup(backdrop%,x,y,540,450)
7370 WHEN "Save" : PROCopenup(saveas%,x,y,300,180)
7380 WHEN "Object" : PROCopenup(about%,x,y,780,350)
7390 WHEN "Clock" : PROCopenup(clock%,x,y,200,100)
7400 WHEN "Warning" : PROCopenup(warning%,x,y,650,300)
7410 WHEN "Loaded" : PROCopenup(loaded%,x,y,650,300)
7420 WHEN "BackInfo" : PROCopenup(aback%,x,y,780,360)
7430 WHEN "ClockSet" : PROCsetup_sclck:PROCopenup(cset%,x,y,500,250):SYS "XWimp_SetCaretPosition",cset%,2,,,-1,LEN(FNgeticondata(cset%,2))
7440 OTHERWISE : PROCsetmodlinfo(FNmodl_handle(file$(val))):PROCopenup(FNmodl_handle(file$(val)),x,y,FNmodl_xw(file$(val)),FNmodl_yh(file$(val)))
7450ENDCASE
7460 WHEN 1 : OSCLI("WimpTask Filer_OpenDir "+file$(val))
7470 WHEN 2 : PROCfile_run(file$(val),filetype(val))
7480 WHEN 0 : IF INKEY TRUE THEN
7490 OSCLI("WimpTask Filer_OpenDir "+file$(val))
7500 ENDIF
7510 IF NOT(INKEY TRUE) THEN
7520 OSCLI("WimpTask Run "+file$(val))
7530 ENDIF
7540 OTHERWISE : PROCmodl_click(type(val),file$(val),x,y)
7550ENDCASE
7560ENDPROC
7570
7580DEF PROCdelete(val,flag)
7590IF locked% ENDPROC
7600IF type(val)>3 AND flag=1 ENDPROC
7610pointer%!0=main%
7620pointer%!4=val
7630SYS "XWimp_GetIconState",,pointer%
7640SYS "XWimp_DeleteIcon",,pointer%
7650SYS "XWimp_ForceRedraw",pointer%!0,pointer%!4,pointer%!8,pointer%!12,pointer%!16
7660pointer%!4=val+1
7670SYS "XWimp_GetIconState",,pointer%
7680SYS "XWimp_DeleteIcon",,pointer%
7690SYS "XWimp_ForceRedraw",pointer%!0,pointer%!4,pointer%!8,pointer%!12,pointer%!16
7700IF clck PROCopenup(clock%,clockx%,clocky%,200,200)
7710file$(val)="":type(val)=0:x(val)=0:y(val)=0:ftype$(val)="":filetype(val)=0
7720ENDPROC
7730
7740DEF PROCshut(handle)
7750pointer%!0=handle
7760SYS "XWimp_CloseWindow",,pointer%
7770ENDPROC
7780
7790DEF PROCset(window,icon)
7800pointer%!0=window
7810pointer%!4=icon
7820pointer%!8=&200000
7830pointer%!12=0
7840SYS "XWimp_SetIconState",,pointer%
7850ENDPROC
7860
7870DEF PROCsavedragbox(window%,icon%)
7880LOCAL x%,y%,ysize%
7890!pointer%=window%
7900SYS "XWimp_GetWindowState",,pointer%
7910ysize%=pointer%!16-pointer%!8
7920x%=pointer%!4
7930y%=pointer%!8
7940IF window%=main% THEN
7950 pointer%!4=icon%+1
7960 SYS "XWimp_GetIconState",,pointer%
7970 ny%=pointer%!12
7980ENDIF
7990pointer%!4=icon%
8000SYS "XWimp_GetIconState",,pointer%
8010sf$=FNlastbit(sf$)
8020pointer%!8+=x%
8030IF window%=main% THEN
8040 pointer%!12=ny%+y%+ysize%
8050ELSE
8060 pointer%!12+=y%+ysize%
8070ENDIF
8080pointer%!16+=x%
8090pointer%!20+=y%+ysize%
8100pointer%!24=0
8110pointer%!28=0
8120pointer%!32=&7FFFFFFF
8130pointer%!36=&7FFFFFFF
8140pointer%!0=0
8150pointer%!4=5
8160SYS "XWimp_DragBox",,pointer%
8170ENDPROC
8180
8190DEF PROCimport
8200SYS "XWimp_GetPointerInfo",,pointer%
8210pointer%!32=pointer%!4 :thirtytwo%=pointer%!32
8220pointer%!28=pointer%!0 :twentyeight%=pointer%!28
8230pointer%!24=pointer%!16 :twentyfour%=pointer%!24
8240pointer%!20=pointer%!12 :twenty%=pointer%!20
8250pointer%!16=1
8260pointer%!12=0
8270pointer%!36=0
8280pointer%!40=0
8290!pointer%=64
8300$(pointer%+44)=sf$
8310SYS "XWimp_SendMessage",17,pointer%,pointer%!20,pointer%!24
8320myref%=pointer%!8
8330ENDPROC
8340
8350DEF PROCdosave
8360sf$=FNrtoz(q%+44)
8370IF adjust=TRUE PROCdragged ELSE PROCcopy_file
8380ENDPROC
8390
8400DEF PROCtellemoff(e$)
8410LOCAL er%
8420er%=pointer%
8430!er%=0
8440$(er%+4)=e$+CHR$0
8450SYS "XWimp_ReportError",er%,1,"StickyBrd"
8460ENDPROC
8470
8480DEF PROCsave_disc
8490h%=OPENOUT(sf$)
8500PRINT#h%,fg,bg,tiled,clck,emboss,recess,border,twelve,twfour
8510PRINT#h%,clockx%,clocky%,hour,locked%
8520FOR I=0 TO 80
8530PRINT#h%,file$(I),type(I),x(I),y(I),ftype$(I),filetype(I)
8540NEXT
8550CLOSE#h%
8560IF sploaded SYS "OS_SpriteOp",12+256,sprite%,FNtrans("StickyBrdDesktop$Dir")+"."+RIGHT$(FNlastbit(sf$),8)+"SP"
8570PROCmodl_saveconfig
8580SYS "Wimp_CreateMenu",,-1:PROCshut(saveas%)
8590ENDPROC
8600
8610DEF PROCintercept
8620f$=STRING$(250," "):f$="":f$=FNrtoz(q%+44):new_app$=f$
8630CASE q%!40 OF
8640WHEN &FFD : IF FNlastbit(f$)="!Config" PROCload_new_placeit_file(f$)
8650OTHERWISE : ENDPROC
8660ENDCASE
8670q%!12=q%!8:q%!16=4:SYS "XWimp_SendMessage",17,q%
8680ENDPROC
8690
8700DEF PROCload_new_desktop
8710h%=0:LOCAL ERROR
8720ON ERROR LOCAL PROCtellemoff("Desktop file load error #"+STR$ERL+" ("+REPORT$+")"):ENDPROC
8730SYS "XHourglass_On"
8740PROCdeleteall
8750PROCmodl_clearback(1,sf$)
8760desktop$=sf$
8770h%=OPENUP(sf$)
8780INPUT#h%,nfg,nbg,tiled,clck,emboss,recess,border,twelve,twfour
8790INPUT#h%,clockx%,clocky%,hour,locked%
8800FOR I=0 TO 80
8810 REM SYS "XHourglass_Percentage",I
8820 INPUT#h%,file$(I),type(I),x(I),y(I),ftype$(I),filetype(I)
8830NEXT
8840CLOSE#h%:h%=0
8850spritefile$=FNtrans("StickyBrdDesktop$Dir")+"."+RIGHT$(FNlastbit(sf$),8)+"SP"
8860j%=OPENUP(spritefile$)
8870t=FALSE:IF j%>0 t=TRUE
8880CLOSE#j%
8890IF t THEN
8900 f$=spritefile$
8910 PROCloadbackdrop
8920ENDIF
8930FOR I=0 TO 80
8940 IF file$(I)<>"" THEN
8950 IF filetype(I)=&2000 THEN
8960 SYS "XWimp_SpriteOp",40,,ftype$(I) TO ;flags%
8970 IF (flags% AND 1)=1 THEN
8980 IF NOT(INKEY-3) THEN
8990 h%=OPENUP(file$(I)+".!Boot")
9000 IF h%=0 THEN
9010 i%=OPENUP(file$(I)+".!Sprites")
9020 IF i%<>0 CLOSE#i%:OSCLI("IconSprites "+file$(I)+".!Sprites")
9030 IF i%=0 CLOSE#i%
9040 ENDIF
9050 IF h%<>0 THEN
9060 CLOSE#h%
9070 OSCLI("Obey "+file$(I)+".!Boot")
9080 ENDIF
9090 IF h%=0 CLOSE#h%
9100 ENDIF
9110 ENDIF
9120 ENDIF
9130 ENDIF
9140 IF file$(I)<>"" THEN
9150 spname$=ftype$(I)
9160 SYS "XWimp_SpriteOp",40,,spname$ TO ;flags%
9170 IF (flags% AND 1)=1 THEN
9180 IF type(I)=0 spname$="application"
9190 IF type(I)=2 spname$="file_xxx"
9200 ENDIF
9210 PROCcreate_icon(main%,0,x(I)-50,x(I)+115,-(1024-(y(I)-65)),65,spname$,&4701801A)
9220 name$=FNlastbit(file$(I)):wid%=(LENname$)*16
9230 fg$=STR$~(fg):bg$=STR$~(bg):flag$=bg$+fg$+"018039":flag=EVAL("&"+flag$)
9240 PROCcreate_icon(main%,0,(x(I)-(wid%/2))+30,(x(I)+(wid%/2))+30,-(1024-(y(I)-115)),36,name$,flag)
9250 PROCputiconsprite(main%,i%-1,spname$)
9260 ENDIF
9270NEXT
9280PROCmenu(0):PROCgrey_menu(menu%+2200,1)
9290PROCshut(main%)
9300PROCopenup(main%,0,win_maxy%,win_maxx%,(win_maxy%-win_miny%))
9310PROCrs
9320dummy=q%!8
9330q%!8=nfg:PROCfg
9340q%!8=nbg:PROCbg
9350q%!8=dummy
9360IF tiled=TRUE THEN
9370 PROCputiconsprite(backdrop%,6,"tradioon")
9380 PROCputiconsprite(backdrop%,8,"tradiooff")
9390 ELSE
9400 PROCputiconsprite(backdrop%,6,"tradiooff")
9410 PROCputiconsprite(backdrop%,8,"tradioon")
9420ENDIF
9430REM inform modules
9440PROCmodl_deskstart
9450PROCshut(saveas%)
9460SYS "XHourglass_Off"
9470RESTORE ERROR
9480ENDPROC
9490
9500DEF PROCsetupinfo
9510IF (icon% MOD 2=0) icon%-=1
9520fil$=file$(icon%):IF fil$="<Wimp$Scrap>" fil$="Application Data"
9530IF LEFT$(fil$,1)="*" fil$=FNlastbit(fil$)
9540PROCputicondata(about%,6,fil$)
9550PROCputicondata(about%,7,FNftype(filetype(icon%)))
9560PROCputicondata(about%,8,FNtype(type(icon%)))
9570PROCputicondata(about%,9,desktop$)
9580spname$=ftype$(icon%)
9590SYS "XWimp_SpriteOp",40,,spname$ TO ;flags%
9600IF (flags% AND 1)=1 THEN
9610 IF type(icon%)=0 spname$="application"
9620 IF type(icon%)=2 spname$="file_xxx"
9630ENDIF
9640PROCputiconsprite(about%,11,spname$)
9650ENDPROC
9660
9670DEF FNtype(type)
9680CASE type OF
9690 WHEN 0 : ="Runs Application"
9700 WHEN 1 : ="Opens Directory"
9710 WHEN 2 : ="Executes File"
9720 WHEN 3 : ="Opens Window"
9730 WHEN 4 : ="Executes Command"
9740ENDCASE
9750="Module-Specific"
9760
9770DEF FNftype(type)
9780IF type=&FFFF ="Iconised Window"
9790IF type=&2000 ="Application"
9800IF type=&1000 ="Directory"
9810IF type=&000 ="Module Icon"
9820SYS "XOS_FSControl",&12,,type TO ,,byte1,byte2
9830q$="":!pointer%=byte1:pointer%?4=13:q$+=$pointer%
9840!pointer%=byte2:pointer%?4=13:q$+=$pointer%
9850WHILE RIGHT$(q$,1)=" ":q$=LEFT$(q$,LENq$-1):ENDWHILE
9860type$=STR$~(type)
9870IF LEN(type$)=1 type$="00"+type$
9880IF LEN(type$)=2 type$="0"+type$
9890IF RIGHT$(q$,3)=type$ q$=""
9900q$+=" (&"+type$+")"
9910=q$
9920
9930DEF PROCdragabout(ic%)
9940IF (ic% MOD 2=0) ic%-=1
9950PROCsavedragbox(main%,ic%):file$=file$(ic%):ftype$=ftype$(ic%):filetype=filetype(ic%):iconhandle%=ic%:type=type(ic%)
9960ENDPROC
9970
9980DEF PROCdragend
9990IF clocking%=TRUE clocking%=FALSE:PROCmove_clock:ENDPROC
10000sf$=FNlastbit(file$)
10010PROCimport
10020ENDPROC
10030
10040DEF PROCcopy_file:IF sf$="<Wimp$Scrap>" PROCdragged:ENDPROC
10050PROCset_icon(handle,icon%)
10060IF (icon% MOD 2)=0 icon%-=1
10070move=FALSE:IF INKEY TRUE move=TRUE
10080CASE type(icon%) OF
10090WHEN 0,1,2
10100OSCLI("Set Copy$Options A ~C ~D ~F ~L ~N ~P ~Q R ~S ~T ~V")
10110file1$=sf$
10120OSCLI("Copy "+file$+" "+file1$)
10130IF FNlastbit(file1$)="Tempory" appdata=FALSE
10140IF move PROCdelete(icon%,0)
10150WHEN 3 : ENDCASE:ENDPROC
10160OTHERWISE : PROCmodl_dragend(file$,sf$,type(icon%))
10170ENDCASE
10180ENDPROC
10190
10200DEF PROCstring0(a%,a$)
10210$a%=a$:a%?LENa$=0
10220ENDPROC
10230
10240DEF PROCdeleteall
10250FOR I=0 TO 80
10260IF file$(I)<>"" PROCdelete(I,1)
10270NEXT
10280PROCmodl_clearback(0,"")
10290PROCshut(main%)
10300PROCopenup(main%,0,win_maxy%,win_maxx%,(win_maxy%-win_miny%))
10310ENDPROC
10320
10330DEF PROCwimp_tick(b%,n)
10340b%!(28+24*n)=b%!(28+24*n) EOR &01
10350ENDPROC
10360
10370DEF PROCfg
10380SYS "XHourglass_On"
10390PROCwimp_tick(menu%+600,fg)
10400fg=q%!8
10410PROCwimp_tick(menu%+600,fg)
10420fg$=STR$~(fg)
10430bg$=STR$~(bg)
10440flag$=bg$+fg$+"018039"
10450flag=EVAL("&"+flag$)
10460FOR I=0 TO 80
10470IF file$(I)<>"" THEN
10480pointer%!0=main%:pointer%!4=I
10490SYS "XWimp_DeleteIcon",,pointer%:pointer%!4=I+1
10500SYS "XWimp_DeleteIcon",,pointer%
10510spname$=ftype$(I)
10520SYS "XWimp_SpriteOp",40,,spname$ TO ;flag%
10530IF (flag% AND 1)=1 THEN
10540 IF type(I)=0 spname$="application"
10550 IF type(I)=2 spname$="file_xxx"
10560ENDIF
10570PROCcreate_icon(main%,0,x(I)-50,x(I)+115,-(1024-(y(I)-65)),65,spname$,&4701801A)
10580name$=FNlastbit(file$(I)):wid%=(LENname$)*16
10590PROCcreate_icon(main%,0,(x(I)-(wid%/2))+30,(x(I)+(wid%/2))+30,-(1024-(y(I)-115)),36,name$,flag)
10600PROCputiconsprite(main%,i%-1,spname$)
10610REM SYS "XWimp_ForceRedraw",point%!0,point%!4,point%!8,point%!12,point%!16
10620ENDIF
10630NEXT
10640fg$=STR$~(fg)
10650menuflag$=fg$+FNfgcol(fg)+"000121"
10660menuflag=EVAL("&"+menuflag$):menu%!536=menuflag
10670PROCshut(main%)
10680PROCopenup(main%,0,win_maxy%,win_maxx%,(win_maxy%-win_miny%))
10690SYS "XHourglass_Off"
10700ENDPROC
10710
10720DEF PROCbg
10730SYS "XHourglass_On"
10740PROCwimp_tick(menu%+1100,bg)
10750bg=q%!8
10760PROCwimp_tick(menu%+1100,bg)
10770fg$=STR$~(fg)
10780bg$=STR$~(bg)
10790flag$=bg$+fg$+"018039"
10800flag=EVAL("&"+flag$)
10810FOR I=0 TO 80
10820IF file$(I)<>"" THEN
10830pointer%!0=main%:pointer%!4=I
10840SYS "XWimp_DeleteIcon",,pointer%:pointer%!4=I+1
10850SYS "XWimp_DeleteIcon",,pointer%
10860spname$=ftype$(I)
10870SYS "XWimp_SpriteOp",40,,spname$ TO ;flags%
10880IF (flags% AND 1)=1 THEN
10890 IF type(I)=0 spname$="application"
10900 IF type(I)=2 spanme$="file_xxx"
10910ENDIF
10920PROCcreate_icon(main%,0,x(I)-50,x(I)+115,-(1024-(y(I)-65)),65,spname$,&4701801A)
10930name$=FNlastbit(file$(I)):wid%=(LENname$)*16
10940PROCcreate_icon(main%,0,(x(I)-(wid%/2))+30,(x(I)+(wid%/2))+30,-(1024-(y(I)-115)),36,FNlastbit(file$(I)),flag)
10950PROCputiconsprite(main%,i%-1,spname$)
10960REM SYS "XWimp_ForceRedraw",point%!0,point%!4,point%!8,point%!12,point%!16
10970ENDIF
10980NEXT
10990bg$=STR$~(bg)
11000menuflag$=bg$+FNfgcol(bg)+"000121"
11010menuflag=EVAL("&"+menuflag$)
11020menu%!560=menuflag
11030PROCshut(main%)
11040PROCopenup(main%,0,win_maxy%,win_maxx%,(win_maxy%-win_miny%))
11050SYS "XHourglass_Off"
11060ENDPROC
11070
11080DEF FNgetftype(type)
11090type$=STR$~(type)
11100IF LEN(type$)=1 type$="00"+type$
11110IF LEN(type$)=2 type$="0"+type$
11120="file_"+type$
11130
11140DEF FNb:=BGET#h%+BGET#h%*2^8+BGET#h%*2^16+BGET#h%*2^24
11150
11160DEF PROCdragged:LOCAL x%,y%:x%=q%!28:y%=q%!32
11170IF locked% ENDPROC
11180SYS "XHourglass_On":PROCset_icon(handle,icon%):pointer%!0=main%:pointer%!4=iconhandle%:SYS "XWimp_DeleteIcon",,pointer%:pointer%!4=iconhandle%+1:SYS "XWimp_DeleteIcon",,pointer%
11190IF clck PROCopenup(clock%,clockx%,clocky%,200,200)
11200pointer%!0=x%-32:pointer%!4=y%+32
11210spname$=ftype$:SYS "XWimp_SpriteOp",40,,spname$ TO ;flags%
11220IF (flags% AND 1)=1 THEN
11230 IF type=0 spname$="application"
11240 IF type=2 spname$="file_xxx"
11250ENDIF
11260PROCcreate_icon(main%,0,pointer%!0-50,pointer%!0+115,-(1024-(pointer%!4-65)),65,spname$,&4701801A):x(i%)=pointer%!0:y(i%)=pointer%!4:file$(i%)=file$:ftype$(i%)=ftype$:filetype(i%)=filetype
11270fg$=STR$~(fg)
11280bg$=STR$~(bg)
11290flag$=bg$+fg$+"018039"
11300flag=EVAL("&"+flag$):name$=FNlastbit(file$):wid%=(LENname$)*16
11310PROCcreate_icon(main%,0,(pointer%!0-(wid%/2))+30,(pointer%!0+(wid%/2))+30,-(1024-(pointer%!4-115)),36,FNlastbit(file$),flag)
11320PROCputiconsprite(main%,i%-1,spname$)
11330PROCshut(main%)
11340pointer%!0=main%:SYS "XWimp_GetWindowState",,pointer%:pointer%!28=-2:SYS "XWimp_OpenWindow",,pointer%
11350SYS "XHourglass_Off":appdata=FALSE
11360ENDPROC
11370
11380DEF PROCiconise(handle)
11390fg$=STR$~(fg)
11400bg$=STR$~(bg)
11410flag$=bg$+fg$+"018039"
11420flag=EVAL("&"+flag$)
11430SYS "XWimp_GetPointerInfo",,pointer%
11440pointer%!0-=32:pointer%!4+=32
11450PROCcreate_icon(main%,0,pointer%!0-50,pointer%!0+115,-(1024-(pointer%!4-65)),65,"iconise",&4701801A)
11460name$=FNtranslate(handle):wid%=(LENname$)*16
11470PROCcreate_icon(main%,0,(pointer%!0-(wid%/2))+30,(pointer%!0+(wid%/2))+30,-(1024-(pointer%!4-105)),36,FNtranslate(handle),flag)
11480PROCputiconsprite(main%,i%-1,"iconise")
11490i%-=1:file$(i%)=FNtranslate(handle)::ftype$(i%)="iconise":filetype(i%)=&FFFF:x(i%)=pointer%!0:y(i%)=pointer%!4:type(i%)=3
11500SYS "XWimp_ForceRedraw",point%!0,point%!4,point%!8,point%!12,point%!16
11510ENDPROC
11520
11530DEF FNtranslate(handle)
11540CASE handle OF
11550 WHEN infowind% : ="Info"
11560 WHEN moreinfo% : ="More Info"
11570 WHEN backdrop% : ="Backdrop"
11580 WHEN saveas% : ="Save"
11590 WHEN about% : ="Object"
11600 WHEN clock% : ="Clock"
11610 WHEN warning% : ="Warning"
11620 WHEN loaded% : ="Loaded"
11630 WHEN aback% : ="BackInfo"
11640 WHEN cset% : ="ClockSet"
11650ENDCASE
11660=FNmodl_trans(handle)
11670
11680DEF PROCclock
11690IF clck=-1 PROCopenup(clock%,clockx%,clocky%,200,200):ENDPROC
11700IF clck=0 PROCshut(clock%):ENDPROC
11710PROCtellemoff("Clock display error, clock handle "+STR$clock%+", returning to poll loop."):ENDPROC
11720
11730DEF PROCupdate_clock
11740time$=FNgeticondata(clock%,0)
11750CALL mcode2%
11760IF hour=TRUE THEN
11770IF twfour type$="%24:%MI:%SE" ELSE type$="%24:%MI"
11780ELSE
11790IF twfour type$="%12:%MI:%SE" ELSE type$="%12:%MI"
11800ENDIF
11810SYS "OS_ConvertDateAndTime",time_block%,time_buff%,20,type$
11820buff$=FNrtoz(time_buff%)
11830IF time$<>buff$ PROCputicondata(clock%,0,buff$)
11840ENDPROC
11850
11860DEF PROCwarning
11870PROCopenup(warning%,315,662,650,300)
11880ENDPROC
11890
11900DEF PROCtiled(mode%,sx%,sy%,spname$,x%,y%)
11910spritefile$=f$
11920PROCputicondata(aback%,3,f$)
11930PROCputicondata(aback%,4,spname$)
11940PROCputicondata(aback%,5,palette$)
11950PROCputicondata(aback%,7,"Tiled")
11960PROCputicondata(aback%,14,STR$mode%)
11970PROCputicondata(aback%,16,STR$x%)
11980PROCputicondata(aback%,18,STR$y%)
11990SYS "XOS_ReadModeVariable",mode%,4 TO ,,var%
12000sx%=sx%<<var%
12010SYS "XOS_ReadModeVariable",mode%,5 TO ,,var%
12020sy%=sy%<<var%
12030PROCshut(main%)
12040PROCopenup(main%,0,win_maxy%,win_maxx%,(win_maxy%-win_miny%))
12050SYS "XWimp_CreateMenu",,-1
12060ENDPROC
12070
12080DEF PROCgrey_icon(w%,i%)
12090pointer%!0=w%
12100pointer%!4=i%
12110pointer%!8=&400000
12120pointer%!12=0
12130SYS "XWimp_SetIconState",,pointer%
12140ENDPROC
12150
12160DEF PROCsetmenuitem
12170LOCAL ic%
12180ic%=q%!16
12190IF (ic% MOD 2=0) ic%-=1
12200ft$="File":tt$="File"
12210CASE type(ic%) OF
12220WHEN 0 : ft$="App.":tt$="Application"
12230 IF FNas(menu%+300,2)=1 PROCgrey_menu(menu%+300,2)
12240WHEN 1 : ft$="Dir.":tt$="Directory"
12250 IF FNas(menu%+300,2)=1 PROCgrey_menu(menu%+300,2)
12260WHEN 2 : ft$="File":tt$="File"
12270 IF FNas(menu%+300,2)=1 PROCgrey_menu(menu%+300,2)
12280WHEN 3 : ft$="Win.":tt$="Window"
12290 IF FNas(menu%+300,2)=0 PROCgrey_menu(menu%+300,2)
12300OTHERWISE : ft$="Obj.":tt$="Object"
12310 IF FNas(menu%+300,2)=0 PROCgrey_menu(menu%+300,2)
12320ENDCASE
12330$object%=ft$+" '"+FNlastbit(file$(ic%))+"'"
12340$(menu%+300)=tt$
12350IF FNas(menu%,1)=1 PROCgrey_menu(menu%,1)
12360IF FNas(menu%+400,1)=1 PROCgrey_menu(menu%+400,1)
12370ENDPROC
12380
12390DEF PROCset_icon(w%,i%)
12400pointer%!0=w%
12410pointer%!4=i%
12420pointer%!8=&200000
12430pointer%!12=0
12440SYS "XWimp_SetIconState",,pointer%
12450ENDPROC
12460
12470DEF PROCsendhelp
12480q%!12=q%!8:q%!16=&503:help%=q%+20
12490help%=FNhelp(q%!32,q%!36,help%):IF help%=0 ENDPROC
12500?help%=0
12510!q%=(help%+4-q%)ANDNOT3
12520SYS "XWimp_SendMessage",17,q%,q%!4
12530ENDPROC
12540
12550DEF FNhelp(w%,i%,h%)
12560$h%=""
12570CASE w% OF
12580 WHEN infowind%
12590 CASE i% OF
12600 WHEN -1,0,1,2,3,4,5,6,7,8
12610 $h%="This is the Info Window.|MIt provides information on !StickyBrd."
12620 OTHERWISE : SYS "XInterface_SendHelp",,q%:=0
12630 ENDCASE
12640 WHEN moreinfo%
12650 CASE i% OF
12660 WHEN -1,0,1,2,3,4,5,6,7,8,9,10,11,12,13
12670 $h%="This window gives more information on !StickyBrd."
12680 OTHERWISE : SYS "XInterface_SendHelp",,q%:=0
12690 ENDCASE
12700 WHEN backdrop%
12710 CASE i% OF
12720 WHEN -1,0,1,3,7,9
12730 $h%="This is the 'Load Backdrop' window.|MUse this window to load a new backdrop."
12740 WHEN 2
12750 $h%="This is the 'Load Sprite' icon.|MDrag a Sprite file to this icon to load it."
12760 WHEN 4
12770 $h%="This is the 'Stay Open' icon.|MClick it to keep the window open."
12780 WHEN 6
12790 $h%="This is the 'Tiled' radio button.|MClick on it to select 'Tiled' backdrops."
12800 WHEN 8
12810 $h%="This is the 'Centred' radio button.|MClick on it to select 'Centred' backdrops."
12820 OTHERWISE : SYS "XInterface_SendHelp",,q%:=0
12830 ENDCASE
12840 WHEN main%
12850 CASE i% OF
12860 WHEN 0 : $h%="This is the desktop backdrop.|MIt is now `sticky� and will accept directories, applications, and files.|MDrag these to the desktop backdrop to add them to it."
12870 OTHERWISE : ic%=i%
12880 IF (ic% MOD 2=0) ic%-=1
12890 $h%="This is the icon for `"
12900 $h%+=FNlastbit(file$(ic%))
12910 $h%+="�.|M"
12920 $h%+="Click on it to "
12930 $h%+=FNfindtype(type(ic%))
12940 $h%+="."
12950 ENDCASE
12960 WHEN about%
12970 $h%="This is the 'Object Information' window.|MIt provides information about the object the pointer is currently over."
12980 WHEN saveas%
12990 CASE i% OF
13000 WHEN -1
13010 $h%="This is the 'Save' window.|MUse it to save the current state of the desktop."
13020 OTHERWISE
13030 SYS "XInterface_SendHelp",,q%:=0
13040 ENDCASE
13050 WHEN warning%
13060 CASE i% OF
13070 WHEN 4,5 : SYS "XInterface_SendHelp",,q%:=0
13080 OTHERWISE : $h%="This is the 'Warning' window.|MIt indicates that you already have some application data saved into !StickyBrd."
13090 ENDCASE
13100 WHEN loaded%
13110 CASE i% OF
13120 WHEN 5,6 : SYS "XInterface_SendHelp",,q%:=0
13130 OTHERWISE : $h%="This is the 'Loaded' window.|MIt shows that !StickyBrd is loaded, and displays the copyright (�) message."
13140 ENDCASE
13150 SYS "XInterface_SendHelp",,q%:=0
13160 WHEN main1%
13170 $h%="This is the desktop backdrop.|MThe 'real' backdrop is currently 'hidden'.|MSelect 'Restore' from the 'Options' menu to view it."
13180 WHEN aback%
13190 $h%="This window gives information on the current backdrop.|MIt shows the sprite file, sprite name, determines whether it has a palette, and tells you whether the backdrop is tiled or centred."
13200 WHEN cset%
13210 CASE i% OF
13220 WHEN 2,3,8 : SYS "XInterface_SendHelp",,q%:=0
13230 WHEN 4 : $h%="This is the 'Up' icon.|MClick it to increase the hours by one."
13240 WHEN 5 : $h%="This is the 'Down' icon.|MClick it to decrease the hours by one."
13250 WHEN 6 : $h%="This is the 'Up' icon.|MClick it to increase the minutes by one."
13260 WHEN 7 : $h%="This is the 'Down' icon.|MClick it to decrease the minutes by one."
13270 OTHERWISE : $h%="This is the 'Set time' window.|MUse it to set the current time."
13280 ENDCASE
13290 OTHERWISE
13300 $h%=FNmodl_help(w%,i%)
13310ENDCASE
13320=h%+LEN($h%)
13330
13340DEF FNfindtype(type)
13350CASE type OF
13360 WHEN 0 : ="run the application"
13370 WHEN 1 : ="open the directory"
13380 WHEN 2 : ="execute the file"
13390 WHEN 3 : ="open the window"
13400 WHEN 4 : ="execute the command"
13410ENDCASE
13420="perform an operation"
13430
13440DEF PROCsetclearmenu
13450$object%="File ''"
13460IF FNas(menu%,1)=0 PROCgrey_menu(menu%,1)
13470IF FNas(menu%+400,1)=0 PROCgrey_menu(menu%+400,1)
13480ENDPROC
13490
13500DEF FNas(b%,n%)
13510=-((b%!(28+8+24*n%) AND &400000)=&400000)
13520
13530DEF PROCgrey_menu(b%,n%)
13540b%!(28+8+24*n%)=b%!(28+8+24*n%)EOR&400000
13550ENDPROC
13560
13570DEF PROCupdate_backdrop
13580pointer%!0=main%
13590SYS "Wimp_GetWindowOutline",,pointer%
13600SYS "Wimp_ForceRedraw",main%,pointer%!4,pointer%!16-44,pointer%!12,pointer%!16
13610ENDPROC
13620
13630DEF PROCbring_to_top(handle%)
13640pointer%!0=handle%
13650SYS "XWimp_GetWindowInfo",,pointer%
13660pointer%!28=-2
13670SYS "XWimp_OpenWindow",,pointer%
13680ENDPROC
13690
13700DEF PROCset_clock_flags(e,r,b,twe,twf,h)
13710emboss=e:recess=r:twelve=twe:twfour=twf:border=b:hour=h
13720ENDPROC
13730
13740DEF PROCsetup_sclck
13750PROCputicondata(cset%,2,MID$(TIME$,17,2))
13760PROCputicondata(cset%,3,MID$(TIME$,20,2))
13770ENDPROC
13780
13790DEF PROCaddh(addicon%)
13800current=VAL(FNgeticondata(cset%,addicon%))
13810current+=1
13820IF current>24 current=0
13830IF current<0 current=24
13840current$=STR$current:IF LENcurrent$=1 current$="0"+current$
13850PROCputicondata(cset%,addicon%,current$)
13860ENDPROC
13870
13880DEF PROCsubh(subicon%)
13890current=VAL(FNgeticondata(cset%,subicon%))
13900current-=1
13910IF current>24 current=0
13920IF current<0 current=24
13930current$=STR$current:IF LENcurrent$=1 current$="0"+current$
13940PROCputicondata(cset%,subicon%,current$)
13950ENDPROC
13960
13970DEF PROCaddm(addicon%)
13980current=VAL(FNgeticondata(cset%,addicon%))
13990current+=1
14000IF current>60 current=0
14010IF current<0 current=60
14020current$=STR$current:IF LENcurrent$=1 current$="0"+current$
14030PROCputicondata(cset%,addicon%,current$)
14040ENDPROC
14050
14060DEF PROCsubm(subicon%)
14070current=VAL(FNgeticondata(cset%,subicon%))
14080current-=1
14090IF current>60 current=0
14100IF current<0 current=60
14110current$=STR$current:IF LENcurrent$=1 current$="0"+current$
14120PROCputicondata(cset%,subicon%,current$)
14130ENDPROC
14140
14150DEF PROCsettime(hour$,minute$)
14160time$=""
14170time$=LEFT$(TIME$,16)+hour$+":"+minute$+":"+"00"
14180TIME$=time$:PROCshut(cset%)
14190ENDPROC
14200
14210DEF PROCrs
14220pointer%!0=clock%
14230pointer%!4=0
14240SYS "XWimp_GetIconState",,pointer%
14250pointer%!8=0:pointer%!12=0
14260IF emboss $(pointer%!32)="z0":pointer%!24=&17000139
14270IF recess $(pointer%!32)="z4":pointer%!24=&17000139
14280IF border $(pointer%!32)="z1":pointer%!24=&17000139
14290SYS "XWimp_SetIconState",,pointer%
14300pointer%!0=clock%
14310SYS "XWimp_GetWindowState",,pointer%
14320PROCshut(clock%)
14330pointer%!28=-2
14340IF clck SYS "XWimp_OpenWindow",,pointer%
14350ENDPROC
14360
14370DEF FNfract(val)
14380t$=STR$(val DIV 100)+"."+STR$(val MOD 100)
14390IF LENt$=3 t$+="0"
14400=t$
14410
14420DEF FNmodl_init(tname$,tpurp$,tauth$,tver$,pver,menblk%)
14430IF modlptr=20 PROCtellemoff("Extention module loading error: limit reached, no more modules will be loaded."):ENDPROC
14440IF pver>80 PROCtellemoff("Extension module "+tname$+" requires !StickyBrd manager "+FNfract(pver)+" or later."):ENDPROC
14450modl$(modlptr)=FNlower(tname$):modl(modlptr)=menblk%
14460modli$(modlptr)=tname$:modlp$(modlptr)=tpurp$
14470modla$(modlptr)=tauth$:modlv$(modlptr)=tver$:modlptr+=1
14480SYS "XWimp_CreateWindow",,modlinfo% TO taskhand%
14490modlinf(modlptr-1)=taskhand%
14500PROCaddtomenu(tname$,menblk%)
14510modl(modlptr-1)!32=taskhand%
14520=taskhand%
14530
14540DEF PROCaddtomenu(tn$,men%)
14550IF FNas(menu%,6)=1 PROCgrey_menu(menu%,6)
14560mblk%=modlmenu%
14570flags=&7000021
14580mlen%=0:FOR I=0 TO (modlptr-1)
14590IF LENmodl$(I)>mlen% mlen%=(LENmodl$(I))+1:NEXT:mlen%+=1
14600PROCheader("Modules",mlen%)
14610FOR I=0 TO (modlptr-1)
14620PROCentry(&00,modl(I),flags,FNcapital(modl$(I)))
14630NEXT
14640mblk%!-24=mblk%!-24 OR &80
14650ENDPROC
14660
14670DEF FNbd_hand:=main%
14680
14690DEF PROCload_modls
14700h%=OPENUP("<StickyBrdExt$Dir>.AutoRun")
14710REPEAT
14720buff$=GET$#h%
14730IF LEFT$(buff$,1)<>"|" THEN
14740 IF LEFT$(buff$,5)="{run}" THEN
14750 buff$=FNstrip(buff$)
14760 PROCload_modl(buff$)
14770 ENDIF
14780ENDIF
14790UNTIL buff$="{end}"
14800CLOSE#h%
14810ENDPROC
14820
14830DEF PROCload_modl(file$)
14840LIBRARY "<StickyBrdExt$Dir>."+buff$+".Module"
14850t%=EVAL("FN"+buff$+"_init")
14860ENDPROC
14870
14880DEF FNstrip(s$)
14890s$=RIGHT$(s$,(LENs$)-6)
14900s$=LEFT$(s$,(LENs$)-1)
14910=s$
14920
14930DEF PROCpass_null
14940IF modlptr=0 ENDPROC
14950FOR K=0 TO (modlptr-1)
14960t%=EVAL("FN"+modl$(K)+"_event(0,q%)")
14970NEXT K
14980ENDPROC
14990
15000DEF FNlower(text$)
15010$pointer%=text$:ptr%=0:REPEAT ptr%?pointer%=ptr%?pointer% OR &20:ptr%+=1:UNTIL ptr%?pointer%<33
15020=$pointer%
15030
15040DEF PROCmodl_sendmenu
15050modlflag=q%!4:IF q%!8=-1 ENDPROC
15060start=4:REPEAT q%!(start-4)=q%!(start+4):start+=4:UNTIL q%!(start-4)=-1
15070t%=EVAL("FN"+modl$(modlflag)+"_event(1,q%)")
15080ENDPROC
15090
15100DEF PROCmodl_quit
15110FOR K=0 TO (modlptr-1)
15120t%=EVAL("FN"+modl$(K)+"_event(13,q%)")
15130NEXT K
15140ENDPROC
15150
15160DEF FNmodl_help(w%,i%)
15170text$=""
15180pointer%!0=w%:pointer%!4=i%
15190FOR K=0 TO (modlptr-1)
15200t%=EVAL("FN"+modl$(K)+"_event(3,pointer%)")
15210IF $t%<>"" text$=$t%
15220pointer%!0=w%:pointer%!4=i%
15230NEXT K
15240IF text$="" text$="No help availible on this window"
15250=text$
15260
15270DEF PROCmodl_click(typ,fil$,x,y)
15280pointer%!0=x:pointer%!4=y:pointer%!8=typ:$(pointer%+12)=fil$
15290FOR K=0 TO (modlptr-1)
15300t%=EVAL("FN"+modl$(K)+"_event(4,pointer%)")
15310pointer%!0=x:pointer%!4=y:pointer%!8=typ:$(pointer%+12)=fil$
15320NEXT K
15330ENDPROC
15340
15350DEF PROCmodl_mclick(h,i,b)
15360pointer%!0=h:pointer%!4=i:pointer%!8=b
15370FOR K=0 TO (modlptr-1)
15380t%=EVAL("FN"+modl$(K)+"_event(5,pointer%)")
15390pointer%!0=h:pointer%!4=i:pointer%!8=b
15400NEXT K
15410ENDPROC
15420
15430DEF PROCputondesktop(spn$,x,y,t,t$,l)
15440LOCAL fg$,bg$,flag$,flag
15450fg$=STR$~(fg):bg$=STR$~(bg):flag$=bg$+fg$+"018039"
15460flag=EVAL("&"+flag$)
15470PROCcreate_icon(main%,0,x-50,x+115,-(1024-(y-65)),65,spn$,&4701801A)
15480file$(i%)=t$:x(i%)=x:y(i%)=y:ftype$(i%)=spn$:filetype(i%)=&000:type(i%)=t
15490t1$=""
15500IF l=1 t1$=FNlastbit(t$) ELSE t1$=t$:wid%=(LENt1$)*16
15510PROCcreate_icon(main%,0,(x-(wid%/2))+30,(x+(wid%/2))+30,-(1024-(y-115)),36,t1$,flag)
15520PROCputiconsprite(main%,i%-1,spn$)
15530SYS "XWimp_ForceRedraw",point%!0,point%!4,point%!8,point%!12,point%!16
15540ENDPROC
15550
15560DEF PROCmodl_slab(h,i,b)
15570pointer%!12=h
15580pointer%!16=i
15590pointer%!8=b
15600SYS "XInterface_SlabButton",,pointer%
15610pointer%!8=0
15620SYS "XInterface_SlabButton",,pointer%
15630ENDPROC
15640
15650DEF FNfirstbit(s$)
15660ptr=0:REPEAT:t$=MID$(s$,ptr,1)
15670IF t$="." ptr-=1:GOTO 15690
15680ptr+=1
15690UNTIL t$="."
15700=LEFT$(s$,ptr)
15710
15720DEF FNmodl_trans(h)
15730t$=""
15740pointer%!0=h
15750FOR K=0 TO (modlptr-1)
15760t%=EVAL("FN"+modl$(K)+"_event(6,pointer%)")
15770IF $t%<>"" t$=$t%
15780pointer%!0=h
15790NEXT K
15800=t$
15810
15820DEF FNmodl_handle(t$)
15830handle%=0
15840$pointer%=t$
15850FOR K=0 TO (modlptr-1)
15860t%=EVAL("FN"+modl$(K)+"_event(7,pointer%)")
15870IF t%<>0 handle%=t%
15880$pointer%=t$
15890NEXT K
15900=handle%
15910
15920DEF FNmodl_xw(t$)
15930xw%=0
15940$pointer%=t$
15950FOR K=0 TO (modlptr-1)
15960t%=EVAL("FN"+modl$(K)+"_event(8,pointer%)")
15970IF t%<>0 xw%=t%
15980$pointer%=t$
15990NEXT K
16000=xw%
16010
16020DEF FNmodl_yh(t$)
16030yh%=0
16040$pointer%=t$
16050FOR K=0 TO (modlptr-1)
16060t%=EVAL("FN"+modl$(K)+"_event(9,pointer%)")
16070IF t%<>0 yh%=t%
16080$pointer%=t$
16090NEXT K
16100=yh%
16110
16120DEF FNcapital(s$)
16130t$=RIGHT$(s$,(LENs$)-1)
16140i$=LEFT$(s$,1)
16150i$=CHR$(ASC(i$) EOR &20)
16160=i$+t$
16170
16180DEF FNexists(ty)
16190flag=0
16200FOR I=0 TO 80
16210IF file$(I)<>""
16220 IF type(I)=ty flag=I
16230ENDIF
16240NEXT
16250=flag
16260
16270DEF PROCmodl_dragend(f$,f1$,t)
16280FOR K=0 TO (modlptr-1)
16290pointer%!0=t
16300$(pointer%+4)=f$
16310$(pointer%+260)=f1$
16320t%=EVAL("FN"+modl$(K)+"_event(10,pointer%)")
16330NEXT K
16340ENDPROC
16350
16360DEF PROCmodl_dataload(f$,w,i)
16370FOR K=0 TO (modlptr-1)
16380pointer%!0=w:pointer%!4=i:$(pointer%+8)=f$
16390t%=EVAL("FN"+modl$(K)+"_event(11,pointer%)")
16400NEXT K
16410ENDPROC
16420
16430DEF PROCmodl_delete(icon%,type%)
16440FOR K=0 TO (modlptr-1)
16450pointer%!0=icon%:pointer%!4=type%
16460t%=EVAL("FN"+modl$(K)+"_event(12,pointer%)")
16470NEXT K
16480ENDPROC
16490
16500DEF PROCmodl_saveconfig
16510FOR K=0 TO (modlptr-1)
16520t%=EVAL("FN"+modl$(K)+"_event(2,pointer%)")
16530NEXT K
16540ENDPROC
16550
16560DEF PROCmodl_redraw
16570FOR K=0 TO (modlptr-1)
16580t%=EVAL("FN"+modl$(K)+"_event(14,q%)")
16590NEXT K
16600ENDPROC
16610
16620DEF FNmodl_interface(r0,r1%)
16630CASE r0 OF
16640 WHEN 0 : PROCtellemoff("Fatal; "+$r1%)
16650 PROCmodl_quit
16660 quit%=TRUE
16670 WHEN 1 : PROCtellemoff($r1%)
16680 =0
16690 WHEN 2 : PROCshut(main%)
16700 PROCopenup(main%,0,win_maxy%,win_maxx%,(win_maxy%-win_miny%))
16710 =0
16720 WHEN 3 : IF sploaded pointer%!0=1 ELSE pointer%!0=0
16730 IF tiled pointer%!4=1 ELSE pointer%!4=0
16740 =pointer%
16750 WHEN 4 : PROCputondesktop($r1%,r1%!24,r1%!28,r1%!32,$(r1%+12),r1%!36)
16760 =0
16770 WHEN 5 : PROCdelete(!r1%,0)
16780 =0
16790 WHEN 6 : SYS "XWimp_OpenMenu",,menu%,!r1%,r1%!4
16800 =0
16810 WHEN 7 : PROCdragabout(!r1%)
16820 =0
16830 WHEN 8 : PROCset_icon(!r1%)
16840 =0
16850 WHEN 9 : OSCLI("Filer_OpenDir "+FNdir(file$(!r1%)))
16860 =0
16870 WHEN 10 : PROCmodl_slab(!r1%,r1%!4,r1%!8)
16880 =0
16890 WHEN 11 : =FNexists(!r1%)
16900 WHEN 12 : res0%=r0:res1%=r1%
16910 FOR K=0 TO (modlptr-1)
16920 t%=EVAL("FN"+modl$(K)+"_message(!res1%,res1%!4)")
16930 NEXT
16940 =0
16950 WHEN 13 : PROCputicondata(r1%!0,r1%!4,$(r1%+8))
16960 =0
16970 WHEN 14 : $pointer%=FNgeticondata(!r1%,r1%!4)
16980 =pointer%
16990 WHEN 15 : $pointer%=FNlastbit($r1%)
17000 =pointer%
17010 WHEN 16 : $pointer%=FNdir($r1%)
17020 =pointer%
17030 WHEN 17 : PROCputiconsprite(!r1%,r1%!4,$(r1%+8))
17040 =0
17050ENDCASE
17060=0
17070
17080DEF FNdir(s$)
17090sptr=LENs$
17100REPEAT:g$=MID$(s$,sptr,1):IF g$="." GOTO 17110 ELSE sptr-=1
17110UNTIL g$="."
17120=LEFT$(s$,sptr-1)
17130
17140DEF PROCmodl_clearback(type,file$)
17150FOR K=0 TO (modlptr-1)
17160pointer%!0=type:$(pointer%+4)=file$
17170t%=EVAL("FN"+modl$(K)+"_event(15,pointer%)")
17180NEXT K
17190ENDPROC
17200
17210DEF PROCmodl_deskstart
17220FOR K=0 TO (modlptr-1)
17230t%=EVAL("FN"+modl$(K)+"_event(16,pointer%)")
17240NEXT K
17250ENDPROC
17260
17270DEF PROCmenu_message
17280IF q%!32=6 THEN
17290 PROCputicondata(modlinf(q%!36),4,modli$(q%!36))
17300 PROCputicondata(modlinf(q%!36),5,modlp$(q%!36))
17310 PROCputicondata(modlinf(q%!36),6,modla$(q%!36))
17320 PROCputicondata(modlinf(q%!36),7,modlv$(q%!36))
17330 SYS "XWimp_CreateSubMenu",,q%!20,q%!24,q%!28
17340ENDIF
17350ENDPROC
17360
17370DEF PROCsetmodlinfo(handle)
17380modlnumber=0:infoptr=0:REPEAT
17390IF modlinf(infoptr)=handle THEN modlnumber=infoptr
17400infoptr+=1
17410UNTIL infoptr=(modlptr+1)
17420PROCputicondata(handle,4,modli$(modlnumber))
17430PROCputicondata(handle,5,modlp$(modlnumber))
17440PROCputicondata(handle,6,modla$(modlnumber))
17450PROCputicondata(handle,7,modlv$(modlnumber))
17460ENDPROC
17470
17480DEF FNrmv(r0,r1)
17490SYS "XOS_ReadModeVariable",r0,r1 TO ,,r20
17500=r20
17510
17520DEF PROCstring_at_address(name$,RETURN num%)
17530SYS "OS_SpriteOp",256+24,sprite%,name$ TO ,,num%
17540ENDPROC
17550:
17560REM ** READING IN !PLACEIT FILES **
17570
17580DEF FNnext_byte
17590offset%+=1
17600=(config_file%?offset%)
17610
17620DEF FNbyte(offset%)
17630=(config_file%?offset%)
17640
17650DEF FNword(offset%)
17660=(config_file%!offset%)
17670
17680DEF FNstring(offset%)
17690LOCAL str$
17700str$=""
17710WHILE (config_file%?offset%)>31
17720 str$+=CHR$(config_file%?offset%)
17730 offset%+=1
17740ENDWHILE
17750=str$
17760
17770DEF PROCget_placeit_icon(icon%)
17780LOCAL ptr%
17790ptr%=length_options%
17800i%=0
17810WHILE i%<icon%
17820 ptr%+=FNword(ptr%+size_offset)-4
17830 i%+=1
17840ENDWHILE
17850iconhandle%=FNbyte(ptr%+handle_offset)
17860x_coord% =FNword(ptr%+x_offset)
17870y_coord% =FNword(ptr%+y_offset)
17880filetype% =FNword(ptr%+filetype_offset)
17890leafname$ =FNstring(ptr%+FNword(ptr%+leafname_offset)-4)
17900spritename$=FNstring(ptr%+sprite_offset)
17910iconselect%=FNbyte(ptr%+select_offset)
17920filename$ =FNstring(ptr%+filename_offset)
17930ENDPROC
17940
17950DEF PROCload_new_placeit_file(f$)
17960PROCdeleteall:PROCpurge1
17970PROCmodl_clearback(1,f$)
17980SYS "XOS_File",16,f$,config_file%,0
17990offset%=-1
18000size_offset =0
18010leafname_offset=4
18020handle_offset =8
18030select_offset =9
18040x_offset =12
18050y_offset =16
18060sprite_offset =20
18070filetype_offset=36
18080filename_offset=40
18090
18100version%=FNnext_byte:IF version%<>5 PROCtellemoff("Can't handle !PlaceIt config file other than version 5"):ENDPROC
18110nfg =FNnext_byte
18120nbg =FNnext_byte
18130dc_flag%=FNnext_byte
18140locked% =FNnext_byte
18150backgnd%=FNnext_byte
18160backtyp%=FNnext_byte
18170icons% =FNnext_byte
18180length_options%=offset%+1
18190FOR I=0 TO icons%-1
18200PROCget_placeit_icon(I):spritename$=RIGHT$(spritename$,LENspritename$-1)
18210PROCcreate_icon(main%,0,(x_coord%-50)+20,(x_coord%+115)+20,-(y_coord%-65)+100,65,spritename$,&4701801A):file$(i%)=filename$:x(i%)=x_coord%+20:y(i%)=y_coord%+100:ftype$(i%)=spritename$:filetype(i%)=filetype%
18220IF filetype%=&2000 type(i%)=0 ELSE IF filetype%=&1000 type(i%)=1 ELSE type(i%)=2
18230wid%=(LENleafname$)*16
18240PROCcreate_icon(main%,0,(x_coord%-(wid%/2))+60,(x_coord%+(wid%/2))+60,-(y_coord%-115)+100,36,leafname$,&47018039)
18250PROCputiconsprite(main%,i%-1,spritename$)
18260NEXT
18270IF backgnd%=1 THEN
18280 f1$=f$
18290 f$=FNleafname(f$):f$+=".Background"
18300 IF backtyp%=1 tiled=TRUE ELSE tiled=FALSE
18310 PROCloadbackdrop
18320 f$=f1$
18330ENDIF
18340PROCshut(main%)
18350PROCopenup(main%,0,win_maxy%,win_maxx%,(win_maxy%-win_miny%))
18360q%!8=nfg:PROCfg
18370q%!8=nbg:PROCbg
18380desktop$=f$
18390ENDPROC
18400
18410DEF FNleafname(s$)
18420WHILE RIGHT$(s$,1)<>"."
18430s$=LEFT$(s$,LENs$-1)
18440ENDWHILE
18450=LEFT$(s$,LENs$-1)
18460
18470DEF PROCmove_clock
18480IF locked% ENDPROC
18490SYS "Wimp_GetPointerInfo",,pointer%
18500clockx%=pointer%!0-60:clocky%=pointer%!4+10
18510PROCopenup(clock%,clockx%,clocky%,200,200)
18520ENDPROC
18530
18540DEF PROCmess_ack
18550IF q%!16=5 THEN
18560 SYS "XWimp_StartTask","Run "+runfile$
18570ENDIF
18580ENDPROC
18590
18600DEF PROCfile_run(f$,ft)
18610runfile$=f$
18620!pointer%=(48+LENrunfile$)ANDNOT3
18630pointer%!12=3
18640pointer%!16=5
18650pointer%!36=-2
18660pointer%!40=ft
18670$(pointer%+44)=runfile$+CHR$0
18680SYS "Wimp_SendMessage",18,pointer%,0
18690ENDPROC
18700
18710DEF FNtrans(var$)
18720FOR I=0 TO 100:pointer%?I=0:NEXT
18730SYS "OS_ReadVarVal",var$+CHR$0,pointer%,400,0
18740=FNrtoz(pointer%)
18750
18760DEF PROCtitlemenu
18770LOCAL x%,y%,z%,title$,q$
18780MOUSE x%,y%,z%
18790IF z%<>2 THEN ENDPROC
18800SYS "Wimp_GetPointerInfo",,q%
18810IF q%!16<>-4 THEN ENDPROC
18820q%!0=q%!12:SYS "Wimp_GetWindowInfo",,q%
18830IF (q%!60 AND 1<<8) THEN
18840 title$=FNrtoz(q%!76)
18850ELSE
18860 title$=FNrtoz(q%+76)
18870ENDIF
18880IF INSTR(title$,"::")=0 AND INSTR(title$,"#")=0 THEN ENDPROC
18890IF INSTR(title$,"$")=0 THEN ENDPROC
18900mblk%=filemen%
18910IF INSTR(title$,"::")>0 THEN
18920 PROCheader(LEFT$(title$,INSTR(title$,"::")-1),11)
18930ELSE
18940 PROCheader(LEFT$(title$,INSTR(title$,"#")-1),11)
18950ENDIF
18960filepath$=LEFT$(title$,INSTR(title$,".")-1)
18970title$=RIGHT$(title$,LENtitle$-(INSTR(title$,".")))
18980q$="":FOR I%=1 TO LENtitle$
18990q$+=MID$(title$,I%,1)
19000IF MID$(title$,I%,1)="." THEN
19010 PROCentry(&00,-1,&7000021,LEFT$(q$,LENq$-1))
19020 q$=""
19030ENDIF
19040NEXT
19050PROCentry(&80,-1,&7000021,q$)
19060SYS "Wimp_GetPointerInfo",,q%
19070handle=&FFFFFFFF
19080SYS "Wimp_CreateMenu",,filemen%,q%!0-64,q%!4-10
19090ENDPROC
!� >NewPD.!StickyBrd.!RunImage
� Public Domain
� By David J. Seery
(� � David J. Seery 1992
2� Current version: 0.80
<
Fș "XHourglass_On"
Pi� � x%=�error("Fatal Error (type "+ß+"/internal error code "+Þ+") "+�$+"...Re-run & try again",1):�
Z8� q% 1200,ind% &400,ind2% &400,menu% 2600,ind3% &400
dF� ind4% &400,pointer% 500,file$(80),type(80),ind5% &500,ind6% &600
n4� x(80),y(80),ftype$(80),filetype(80),ind8% &400
x)� ind9% &500,ind10% &400,filemen% 512
�7� object% 20,ind14% &600,openparent% 20,main_w% 800
�;� ind15% &500,fgb% 20,bgb% 20,ind16% &350,modlinfo% 800
�:� modlmenu% 2000:� plenty of space for module menu (!)
�D� modl$(20),modl(20),modli$(20),modlp$(20),modla$(20),modlv$(20)
�:� modlinf(20),mcode% 300,config_file% 3000,mcode2% 100
�"� time_block% 20,time_buff% 20
�P� sprite% &8500:sprite%!0=&8500:sprite%!8=16:ș "XOS_SpriteOp",9+256,sprite%
�� cols% 16,scale% 16
��stayopen=�:spritefile$="":desktop$="":f$="":clockhandle%=-1:clck=�:appdata=�:tiled=�:adjust=�:sploaded=�:modlptr=0:clockx%=1079:clocky%=1023:clocking%=�:new_app$="":file$()="":turbo%=�:locked%=�
�$q%="TASK"
�?ș "XWimp_Initialise",200,!q%,"StickyBrd" � wimpver%,taskh%
�� wimpver%<200 �tellemoff("Fatal Error (type -1): Wimp Manager out of date (requires 2.00 or later)"):ș "XWimp_CloseDown":�
�%ș "XInterface_Initialise",taskh%
;ș "XWimp_OpenTemplate",,"<StickyBrdRes$Dir>.Templates"
=ș "XWimp_LoadTemplate",,q%,ind8%,ind8%+&400,-1,"clock",0
(ș "XWimp_CreateWindow",,q% � clock%
":ș "XWimp_LoadTemplate",,q%,ind%,ind%+&400,-1,"info",0
,+ș "XWimp_CreateWindow",,q% � infowind%
6@ș "XWimp_LoadTemplate",,q%,ind2%,ind2%+&400,-1,"moreinfo",0
@+ș "XWimp_CreateWindow",,q% � moreinfo%
JAș "XWimp_LoadTemplate",,main_w%,ind3%,ind3%+&400,-1,"main",0
T,ș "XWimp_CreateWindow",,main_w% � main%
^-ș "XWimp_CreateWindow",,main_w% � main1%
h@ș "XWimp_LoadTemplate",,q%,ind4%,ind4%+&400,-1,"backdrop",0
r+ș "XWimp_CreateWindow",,q% � backdrop%
|>ș "XWimp_LoadTemplate",,q%,ind5%,ind5%+&500,-1,"saveas",0
�)ș "XWimp_CreateWindow",,q% � saveas%
�=ș "XWimp_LoadTemplate",,q%,ind6%,ind6%+&600,-1,"about",0
�(ș "XWimp_CreateWindow",,q% � about%
�?ș "XWimp_LoadTemplate",,q%,ind9%,ind9%+&500,-1,"warning",0
�*ș "XWimp_CreateWindow",,q% � warning%
�@ș "XWimp_LoadTemplate",,q%,ind10%,ind10%+&400,-1,"loaded",0
�)ș "XWimp_CreateWindow",,q% � loaded%
�Cș "XWimp_LoadTemplate",,q%,ind14%,ind14%+&600,-1,"abackdrop",0
�(ș "XWimp_CreateWindow",,q% � aback%
�Bș "XWimp_LoadTemplate",,q%,ind15%,ind15%+&500,-1,"clockset",0
�'ș "XWimp_CreateWindow",,q% � cset%
�Iș "XWimp_LoadTemplate",,modlinfo%,ind16%,ind16%+&350,-1,"modlinfo",0
� ș "XWimp_CloseTemplate"
�set_size
3exists%=�("<Wimp$Scrap>"):� exists%>0 �#exists%
(� exists%=0 �("Create <Wimp$Scrap>")
&!�set_clock_flags(�,�,�,�,�,�)
0 �menu(1)
: �grey_menu(menu%+2200,1)
D1�assemble:!ind_q%=q%:!scl%=scale%:!col%=cols%
N
X>�openup(main%,0,win_maxy%,win_maxx%,(win_maxy%-win_miny%))
bfirstrun%=�
l quit%=�
v
�� � Ȏ � �
�O � 175 : �tellemoff("Cannot copy error (type=1), handle="+�main%):appdata=�
�O � 214 : �tellemoff("Cannot copy error (type=2), handle="+�main%):appdata=�
�� : � �error("Nonfatal error: "+�$+" (internal error code "+Þ+"), handle="+�main%+", sprite area at "+�~(sprite%)+" Shall I Quit ?",3)=1 �modl_quit:ș "XInterface_CloseDown",taskh%:ș "XWimp_CloseDown":�
��
�� firstrun% �load_modls
�ș "XHourglass_Off"
�
��
�!ș "XWimp_Poll",,q% � reason%
�3ș "XInterface_PreProcessKey",reason%,q%,taskh%
�*ș "XInterface_Poll",reason%,q%,taskh%
�Ȏ reason% �
� 1 : �redraw
'� 2 : ș "XWimp_OpenWindow",,q%
(� 3 : ș "XWimp_CloseWindow",,q%
F � !q%=backdrop% �puticonsprite(backdrop%,4,"toptoff")
*$ � � � �iconise(!q%)
4� 6 : �checkmouse
>(� 7 : sf$=�lastbit(sf$):�dragend
H� 9 : �process_menu
R� 17,18 : �message
\� 19 : �mess_ack
f1� 0 : �update_clock:�pass_null:�titlemenu
p�
z>� firstrun%=� firstrun%=�:�openup(loaded%,315,662,650,300)
�2� clck �openup(clock%,clockx%,clocky%,200,200)
� � quit%
�$ș "XInterface_CloseDown",taskh%
�ș "XWimp_CloseDown":�
�
�� �iconbar
�� i%
� q%!0=-1
�
q%!4=0
�
q%!8=0
� q%!12=68
� q%!16=96
�q%!20=&2002
$(q%+24)="!StickyBrd"
"ș "XWimp_CreateIcon",,q% � i%
=i%
$
.� �message
8your_ref%=q%!8
Bmy_ref%=q%!12
LȎ (q%!16) �
V� 0 : quit%=�
`!� 1 : � q%!20<>saveas% �
j* � appdata=� � adjust=� �
t �warning
~ �
� �
�F ș "XOS_ReadVarVal","Wimp$Scrap",,-1,0,3 � ,,exists%
�D � exists%=0 �tellemoff("Wimp$Scrap not defined"):�
�9 q%!36=-1:�string0(q%+44,"<Wimp$Scrap>")
�- !q%=(48+�"<Wimp$Scrap>")��3
�F q%!12=q%!8:q%!16=2:ș "XWimp_SendMessage",17,q%,q%!4
�* scrapref%=q%!8:appdata=�
� �
�� 2 : �dosave
�� 3 : �lf
�� 5 : �intercept
�� 8 : �modl_quit
� &502 : �sendhelp
� &400C0 : �menu_message
#� &400C1 : �set_size:�pix_trans
�
(�
2
<5� �read_size(� win_maxx%,� win_maxy%,� win_miny%)
F+ș "XOS_ReadModeVariable",-1,4 � ,,eig%
P8ș "XOS_ReadModeVariable",-1,11 � ,,limit%:limit%+=1
Zwin_maxx%=limit%<<eig%
d+ș "XOS_ReadModeVariable",-1,5 � ,,eig%
n8ș "XOS_ReadModeVariable",-1,12 � ,,limit%:limit%+=1
xwin_maxy%=limit%<<eig%
�win_miny%=140+(1<<eig%)
��
�
�3� �set_size:win_maxx%=0:win_maxy%=0:win_miny%=0
�-�read_size(win_maxx%,win_maxy%,win_miny%)
��shut(main%)
�6pointer%!0=main%:ș "XWimp_DeleteWindow",,pointer%
�7pointer%!0=main1%:ș "XWimp_DeleteWindow",,pointer%
�:main_w%!44=-(win_maxy%-win_miny%):main_w%!48=win_maxx%
�+ș "Wimp_CreateWindow",,main_w% � main%
�,ș "Wimp_CreateWindow",,main_w% � main1%
�Bpointer%!0=main%:pointer%!4=0:ș "Wimp_GetIconState",,pointer%
�"ș "Wimp_DeleteIcon",,pointer%
Dpointer%!4=main%:pointer%!8=0:pointer%!12=-(win_maxy%-win_miny%)
'pointer%!16=win_maxx%:pointer%!20=0
$ș "Wimp_CreateIcon",,pointer%+4
">� sploaded=� � tiled=� �puticonsprite(main%,0,backspname$)
,� I=0 � 80
6� file$(I)<>"" �
@ spname$=ftype$(I)
J1 ș "XWimp_SpriteOp",40,,ftype$(I) � ;flags%
T � (flags% � 1)=1 �
^1 � filetype(I)=&2000 spname$="application"
h/ � filetype(I)<>&2000 spname$="file_xxx"
r �
|D fg$=�~(fg):bg$=�~(bg):flag$=bg$+fg$+"018039":flag=�("&"+flag$)
�S �create_icon(main%,0,x(I)-50,x(I)+115,-(1024-(y(I)-65)),65,spname$,&4701801A)
�/ name$=�lastbit(file$(I)):wid%=(�name$)*16
�b �create_icon(main%,0,(x(I)-(wid%/2))+30,(x(I)+(wid%/2))+30,-(1024-(y(I)-115)),36,name$,flag)
�( �puticonsprite(main%,i%-1,spname$)
��
��
�>�openup(main%,0,win_maxy%,win_maxx%,(win_maxy%-win_miny%))
��
�
�� �checkmouse
�handle=(q%!12)
�icon%=q%!16
�Ȏ (q%!12) �
� main%,main1%
Ȏ (q%!8) �
6� 4 : � q%!16>0 �set_icon(q%!12,q%!16):�run(icon%)
&/� 2 : � q%!16>0 �:�setupinfo:�setmenuitem:�
0( � q%!16=0 �:�setclearmenu:�
:5 ș "XWimp_CreateMenu",,menu%,!q%-64,q%!4
DK� &10 : � q%!16>0 adjust=�:sf$=�lastbit(file$(q%!16)):�dragabout(q%!16)
NK� &40 : � q%!16>0 adjust=�:sf$=�lastbit(file$(q%!16)):�dragabout(q%!16)
X�
b� infowind%
lȎ (q%!8) �
v� 4 : Ȏ q%!16 �
�P� 9 : �slabicon:ș "XWimp_CreateMenu",,-1:�openup(moreinfo%,240,762,800,600)
��
��
�� backdrop%
�Ȏ (q%!8) �
�� 4 : Ȏ q%!16 �
�� 4 : �staytoggle
�H� 5 : �slabicon:�puticonsprite(main%,0,""):spritefile$="":sploaded=�
�`� 6 : tiled=�:�puticonsprite(backdrop%,6,"tradioon"):�puticonsprite(backdrop%,8,"tradiooff")
�`� 8 : tiled=�:�puticonsprite(backdrop%,6,"tradiooff"):�puticonsprite(backdrop%,8,"tradioon")
��
��
�
� saveas%
Ȏ (q%!8) �
� 4 : Ȏ q%!16 �
a� 3 : �slabicon:�shut(saveas%):sf$=�trans("StickyBrdDesktop$Dir")+"."+�geticondata(saveas%,2)
�load_new_desktop
*a� 4 : �slabicon:�shut(saveas%):sf$=�trans("StickyBrdDesktop$Dir")+"."+�geticondata(saveas%,2)
4 �save_disc
>�
H�
R� moreinfo%
\
Ȏ q%!8 �
f� 4 : Ȏ q%!16 �
p@ � 14 : �slabicon:�shut(moreinfo%):� � � �iconise(moreinfo%)
z�
��
�� warning%
�
Ȏ q%!8 �
� � 4 : Ȏ q%!16 �
�% � 4 : �slabicon:�shut(warning%)
�/ � 5 : �slabicon:�shut(warning%):appdata=0
� �
��
�
� loaded%
�
Ȏ q%!8 �
� � 4 : Ȏ q%!16 �
�$ � 5 : �slabicon:�shut(loaded%)
�G � 6 : �slabicon:�shut(loaded%):� "WimpTask <StickyBrd$Dir>.!Help"
�
�
� cset%
$
Ȏ q%!8 �
. � 4 : Ȏ q%!16 �
8 � 4 : �addh(2)
B � 5 : �subh(2)
L � 6 : �addm(3)
V � 7 : �subm(3)
`K � 8 : �slabicon:�settime(�geticondata(cset%,2),�geticondata(cset%,3))
j �
t�
~ � clock%
�
Ȏ q%!8 �
�/ � 4,1 : �savedragbox(clock%,0):clocking%=�
��
�' : �modl_mclick(handle,icon%,q%!8)
��
��
�
�� �menu(fvar)
�� fg$,bg$,flag$
�mblk%=menu%
�flags=&7000021
�� fvar=1 fg=7:bg=4
fg$=�~(fg):bg$=�~(bg)
4flag$=bg$+�fgcol(bg)+"000121":bflag=�("&"+flag$)
4flag$=fg$+�fgcol(fg)+"000121":fflag=�("&"+flag$)
� fvar=1 $object%="File ''"
('� fvar=1 $openparent%="Open Parent"
2$� fvar=1 $fgb%="Text Foreground"
<$� fvar=1 $bgb%="Text Background"
F�header("StickyBrd",18)
P&�entry(&02,menu%+400,flags,"Misc")
Z.�indirect(&00,menu%+300,&07000121,object%)
d+�entry(&00,menu%+1900,flags,"Backdrop")
n$�entry(&00,-1,flags,"Clear All")
x)�entry(&00,menu%+500,flags,"Colours")
�*�entry(&00,menu%+1600,flags,"Options")
�)�entry(&02,modlmenu%,flags,"Modules")
� �entry(&80,-1,flags,"Quit")
�#� modlptr=0 �grey_menu(menu%,6)
�mblk%=menu%+300
��header("Object",12)
�#�entry(&00,about%,flags,"Info")
�!�entry(&00,-1,flags,"Remove")
�+�indirect(&80,-1,&07000121,openparent%)
�mblk%=menu%+400
��header("Misc",9)
�&�entry(&00,infowind%,flags,"Info")
�#�entry(&00,about%,flags,"File")
'�entry(&80,saveas%,flags,"Desktop")
mblk%=menu%+500
�header("Colours",16)
"'�indirect(&00,menu%+600,fflag,fgb%)
,(�indirect(&80,menu%+1100,bflag,bgb%)
6mblk%=menu%+600
@�header("Colour",4)
J �entry(&00,-1,&07000019,"0")
T �entry(&00,-1,&17000019,"1")
^ �entry(&00,-1,&27000019,"2")
h �entry(&00,-1,&30000019,"3")
r �entry(&00,-1,&40000019,"4")
| �entry(&00,-1,&50000019,"5")
� �entry(&00,-1,&60000019,"6")
� �entry(&00,-1,&70000019,"7")
� �entry(&00,-1,&80000019,"8")
� �entry(&00,-1,&97000019,"9")
�!�entry(&00,-1,&A0000019,"10")
�!�entry(&00,-1,&B0000019,"11")
�!�entry(&00,-1,&C7000019,"12")
�!�entry(&00,-1,&D0000019,"13")
�!�entry(&00,-1,&E7000019,"14")
�!�entry(&80,-1,&F7000019,"15")
� � phew! and now again...
�mblk%=menu%+1100
��header("Colour",4)
� here we go
�entry(&00,-1,&07000019,"0")
�entry(&00,-1,&17000019,"1")
& �entry(&00,-1,&27000019,"2")
0 �entry(&00,-1,&30000019,"3")
: �entry(&00,-1,&40000019,"4")
D �entry(&00,-1,&50000019,"5")
N �entry(&00,-1,&60000019,"6")
X �entry(&00,-1,&70000019,"7")
b �entry(&00,-1,&80000019,"8")
l �entry(&00,-1,&97000019,"9")
v!�entry(&00,-1,&A0000019,"10")
�!�entry(&00,-1,&B0000019,"11")
�!�entry(&00,-1,&C7000019,"12")
�!�entry(&00,-1,&D0000019,"13")
�!�entry(&00,-1,&E7000019,"14")
�!�entry(&80,-1,&F7000019,"15")
��wimp_tick(menu%+600,7)
� �wimp_tick(menu%+1100,4)
�mblk%=menu%+1600
��header("Options",13)
� �entry(&00,-1,flags,"Hide")
�"�entry(&02,-1,flags,"Restore")
�-�entry(&00-clck,menu%+2100,flags,"Clock")
�!�entry(&00,-1,flags,"Update")
)�entry(&80-locked%,-1,flags,"Locked")
mblk%=menu%+1900
�header("Backdrop",9)
&�entry(&00,backdrop%,flags,"Load")
*#�entry(&00,aback%,flags,"Info")
4"�entry(&00,-1,flags,"Restore")
>'�entry(&80-turbo%,-1,flags,"Turbo")
Hmblk%=menu%+2100
R�header("Clock",9)
\*�entry(&00-emboss,-1,flags,"Embossed")
f*�entry(&00-recess,-1,flags,"Recessed")
p*�entry(&02-border,-1,flags,"Bordered")
z'�entry(&00-twelve,-1,flags,"HH:MM")
�*�entry(&00-twfour,-1,flags,"HH:MM:SS")
�'�entry(&02-hour,-1,flags,"24 Hour")
�!�entry(&80,-1,flags,"Set...")
��
�
�� �fgcol(col)
� Ȏ col �
� � 0,1,2,9,12,14,15 : ="7"
�!� 3,4,5,6,7,8,10,11,13 : ="0"
��
��
�
�� �header(T$,w)
$mblk%=T$
mblk%!12=&70207
mblk%!16=w*16
$mblk%!20=40
.mblk%!24=0
8
mblk%+=28
B�
L
V� �entry(A%,B%,C%,T$)
`mblk%!0=A%
jmblk%!4=B%
tmblk%!8=C%
~$(mblk%+12)=T$
�
mblk%+=24
��
�
� � �indirect(A%,B%,C%,D%)
�mblk%!0=A%
�mblk%!4=B%
�mblk%!8=C%
�mblk%!12=D%
�mblk%!16=-1
�mblk%!20=20
�
mblk%+=24
��
'� �error(e$,b%):!q%=0:$(q%+4)=e$+�0
2ș "XWimp_ReportError",q%,b%,"StickyBrd" � ,b%
=b%
(
2 � �lf
<�
F f$=�250," "):f$="":T%=q%+44
P ȕ ?T%<>0:f$+=�?T%:T%+=1:�
Z!� q%!20=backdrop% � q%!24=2 �
d�loadbackdrop
n�
x�addtodesktop
��
�"�modl_dataload(f$,q%!20,q%!24)
�3q%!12=q%!8:q%!16=4:ș "XWimp_SendMessage",17,q%
��
�
�
� �redraw
�� q%!0=main% �
� � tiled=� �
� � sploaded=� �
� B%=q%
� � mcode%
� �modl_redraw
� �
�
�
�
"�modl_redraw
,&ș "XWimp_RedrawWindow",,q% � flag
6ȕ flag<>0
@&ș "XInterface_Render3dWindow",,q%
J&ș "XWimp_GetRectangle",,q% � flag
T�
^�
h
r� �assemble
|� pass%=8 � 11 � 2
�P%=mcode%:L%=mcode%+300
�[OPT pass%
� .start%
�ASWI "Wimp_RedrawWindow" ; Get Wimp manager to redraw window
�4.rl ; Start of redraw loop
�0CMP R0,#0 ; More to redraw ?
�A�Q PC,R14 ; No, so exit (Program Counter = Link)
�!LDR R2,[R1,#4] ; }
�!LDR R3,[R1,#8] ; }
�1LDR R4,[R1,#12] ; } Get PWA offsets
�?LDR R5,[R1,#16] ; } & such like from R1 (i.e. q%)
�!LDR R6,[R1,#20] ; }
�!LDR R7,[R1,#24] ; }
)SUB R0,R2,R6 ; Get min x
+STR R0,mix% ; Store min x
)SUB R0,R5,R7 ; Get max y
&'SUB R0,R0,#4 ; Correct
0+STR R0,may% ; Store max y
:)SUB R0,R4,R6 ; Get max x
D'SUB R0,R0,#4 ; Correct
N+STR R0,max% ; Store max x
X)SUB R0,R3,R7 ; Get min y
b+STR R0,miy% ; Store min y
l .spr_num
vKMOV R0,#512 ; 'Plot sprite' reason code -- use indirected
�IADD R0,R0,#52 ; Make up to 564 - can't represent directly
�/LDR R1,sp% ; Get sprite area
�/LDR R2,name% ; Get sprite name
�?MOV R5,#8 ; Plot type - overwrite, use mask
�$LDR R6,scl% ; Null
�$LDR R7,col% ; Null
�$MOV R8,#0 ; Null
�/LDR R9,miy% ; Minimum Y value
�
.yloop
�/ LDR R10,mix% ; Minimum X value
� .xloop
�3 MOV R3,R10 ; X (Taken from loop)
�3 MOV R4,R9 ; Y (Taken from loop)
' SWI "OS_SpriteOp" ; Plot it
- LDR R11,xinc% ; Get step size
8 ADD R10,R10,R11 ; Increment X by step size
- LDR R11,max% ; Get maximum X
*' CMP R10,R11 ; Compare
42 BLE xloop ; Loop back if < max
>- LDR R11,yinc% ; Get step size
H8 ADD R9,R9,R11 ; Increment Y by step size
R- LDR R11,may% ; Get maximum Y
\' CMP R9,R11 ; Compare
f2 BLE yloop ; Loop back if < max
p:LDR R1,ind_q% ; Get address of param block
z2SWI "Wimp_GetRectangle" ; Get next rectangle
�+B rl ; Branch back
�.sp% EQUD 0
�.name% EQUD 0
� .xinc% EQUD 0:.yinc% EQUD 0
�7.max% EQUD 0:.mix% EQUD 0:.may% EQUD 0:.miy% EQUD 0
�,.ind_q% EQUD 0:.scl% EQUD 0:.col% EQUD 0
� ALIGN
� .end%
�]
� � pass%
�� pass%=0 � 3 � 2
� P%=mcode2%:L%=mcode2%+100
�[OPT pass%
ADR R1,time_block%
MOV R0,#3
STRB R0,[R1]
$MOV R0,#14
.SWI "OS_Word"
8MOV PC,R14
B]
L � pass%
V�
`
j� �re_asm(type%)
tȎ type% �
~ � � : P%=spr_num
� [OPT 2
� MOV R0,#512
� ADD R0,R0,#34
� ]
� � �: P%=spr_num
� [OPT 2
� MOV R0,#512
� ADD R0,R0,#52
� ]
��
��
�
� �pix_trans
� sploaded �
Cș "Wimp_ReadPixTrans",&100,sprite%,backspname$,,,,scale%,cols%
�
(�
2
<� �process_menu
F9ș "XWimp_GetPointerInfo",,pointer%:j%=(pointer%!8=1)
PȎ handle �
Z� main%,main1%
d Ȏ q%!0 �
n � 1 : Ȏ q%!4 �
x$ � 1 : � (icon% � 2=0) icon%-=1
� �delete(icon%,1)
�. �modl_delete(icon%,type(icon%))
�$ � 2 : � (icon% � 2=0) icon%-=1
�> �("WimpTask Filer_OpenDir "+�dir(file$(icon%)))
� �
� � 2 : Ȏ q%!4 �
� � 2 : sf$=desktop$
� �load_new_desktop
�4 � 3 : turbo%=� turbo%:�menu(0):�re_asm(turbo%)
� �
� � 3 : �deleteall
� � 4 : Ȏ q%!4 �
� � 0 : � q%!8<>-1 �fg
� 1 : � q%!8<>-1 �bg
�
� 5 : Ȏ q%!4 �
"m � 0 : �shut(main%):�openup(main1%,0,win_maxy%,win_maxx%,(win_maxy%-win_miny%)):�grey_menu(menu%+2200,0)
,' �grey_menu(menu%+2200,1)
6� � 1 : �shut(main1%):�openup(main%,0,win_maxy%,win_maxx%,(win_maxy%-win_miny%)):� clck=� �openup(clock%,clockx%,clocky%,200,200)
@& �grey_menu(menu%+2200,1)
J& �grey_menu(menu%+2200,0)
T � 2 : Ȏ q%!8 �
^B � -1 : clck=� clck:�menu(0):�grey_menu(menu%+2200,1):�clock
h] � 0 : �set_clock_flags(�,�,�,twelve,twfour,hour):�menu(0):�grey_menu(menu%+2200,1):�rs
r] � 1 : �set_clock_flags(�,�,�,twelve,twfour,hour):�menu(0):�grey_menu(menu%+2200,1):�rs
|] � 2 : �set_clock_flags(�,�,�,twelve,twfour,hour):�menu(0):�grey_menu(menu%+2200,1):�rs
�^ � 3 : �set_clock_flags(emboss,recess,border,�,�,hour):�menu(0):�grey_menu(menu%+2200,1)
�^ � 4 : �set_clock_flags(emboss,recess,border,�,�,hour):�menu(0):�grey_menu(menu%+2200,1)
�j � 5 : �set_clock_flags(emboss,recess,border,twelve,twfour,� hour):�menu(0):�grey_menu(menu%+2200,1)
�� � 6 : cx%=pointer%!0:cy%=pointer%!4:�setup_sclck:�openup(cset%,cx%,cy%,500,250):ș "XWimp_SetCaretPosition",cset%,2,,,-1,�(�geticondata(cset%,2))
� �
� � 3 : q%!8=fg:�fg
�& � 4 : locked%=� locked%:�menu(0)
� �
� � 6 : �modl_sendmenu
� � 7 : �modl_quit:quit%=�
��
�� &FFFFFFFF
� � step%=0 � q%!0
' q$=$(filemen%+28+(24*step%)+12)
filepath$+="."+q$
�
&5 ș "XWimp_StartTask","Filer_OpenDir "+filepath$
0�
:=� j% � ș "XWimp_CreateMenu",,menu%,pointer%!0,pointer%!4
D�
N
X � �openup(whandle,x,y,w,h)
bpointer%!0=whandle
l pointer%!4=x:pointer%!8=y-h
v!pointer%!12=x+w:pointer%!16=y
� pointer%!20=0:pointer%!24=0
�U� whandle=main% � whandle=main1% � whandle=clock% pointer%!28=-2 � pointer%!28=-1
�#ș "XWimp_OpenWindow",,pointer%
��
�
�� �slabicon
�"ș "XInterface_SlabButton",,q%
�
q%!8=0
�"ș "XInterface_SlabButton",,q%
��
�
�!� �geticondata(window%,icon%)
�pointer%!0=window%
pointer%!4=icon%
%ș "XWimp_GetIconState",,pointer%
=$(pointer%!28)
*$� �puticondata(window%,icon%,T$)
4pointer%!0=window%
>pointer%!4=icon%
H%ș "XWimp_GetIconState",,pointer%
Rpointer%!8=0
\pointer%!12=0
f$(pointer%!28)=T$
p%ș "XWimp_SetIconState",,pointer%
z�
�
�� �loadbackdrop
�)sploaded=�:�puticonsprite(main%,0,"")
�(� n%,o%,b%,q$,h%,x%,y%,v%,m%,var%,z$
��("IconSprites "+f$)
�&ș "OS_SpriteOp",256+10,sprite%,f$
� h%=�(f$)
�n%=�b:o%=�b:b%=-4
��#h%=o%+b%:b%+=o%:o%=�b
�(q$="":� var=1 � 12:q$+=�(�#h%):� var
�palette$="No"
�Lx%=�b:y%=�b:v%=-�b+�b-31:m%=�b:�m%=�#h%-4 palette$="No" � palette$="Yes"
� � m% � �b:z$="Yes" � z$="N"
1m%=�b:ș "XOS_ReadModeVariable",m%,9 � ,,var%
?x%=(32*(x%+1)+v%) � 2^var%:spx%=x%:spy%=y%+1:backspname$=q$
+ș "XOS_ReadModeVariable",m%,4 � ,,var%
$sp1x%=spx%<<var%
.+ș "XOS_ReadModeVariable",m%,5 � ,,var%
8sp1y%=spy%<<var%
B�#h%
L(ș "XOS_CheckModeValid",m% � exists%
V5� exists%<>-1 � exists%<>-2 ș "XWimp_SetMode",m%
`(�string_at_address(backspname$,loc%)
j6!name%=loc%:!sp%=sprite%:!xinc%=sp1x%:!yinc%=sp1y%
t�pix_trans
~/� tiled=� �tiled(m%,spx%,spy%,q$,x%,y%+1):�
�'�puticonsprite(main%,0,backspname$)
�spritefile$=f$
� �puticondata(aback%,3,f$)
�&�puticondata(aback%,4,backspname$)
�#�puticondata(aback%,5,palette$)
�$�puticondata(aback%,7,"Centred")
� �puticondata(aback%,14,�m%)
� �puticondata(aback%,16,�x%)
�#�puticondata(aback%,18,�(y%+1))
� ș "XWimp_CreateMenu",,-1
��
�
� �display_block(max)
� debugging routine
�
#� Displays wimp parameter block
(:
2� I=0 � max � 4
<(� I=24 x%=�error(�~(pointer%!I),1):�
F'� I=28 x%=�error($(pointer%+I),1):�
P)� I=32 x%=�error($(pointer%+I),1):�:�
Z#� and now general purpose stuff
d x%=�error(�pointer%!I,1)
n�
x:
��
�
�&� �puticonsprite(window%,icon%,T$)
�'pointer%!0=window%:pointer%!4=icon%
�%ș "XWimp_GetIconState",,pointer%
�#ș "XWimp_DeleteIcon",,pointer%
�4pointer%!4=window%:$(pointer%+28)=T$:pointer%+=4
ȁș "XWimp_CreateIcon",,pointer%:ș "XWimp_ForceRedraw",pointer%!0,pointer%!4,pointer%!8,pointer%!12,pointer%!16:pointer%-=4:�
�
�:� �create_icon(handle,addr,minx,maxx,miny,ht,t$,flags)
�point%=q%+400
�point%!0=handle
�point%!4=minx
point%!8=miny
point%!12=maxx
point%!16=miny+ht
"point%!20=flags
,� addr=0 �
6$(point%+24)=t$
@�
Jpoint%!24=addr
Tpoint%!28=-1
^point%!32=32
h�
r%ș "Wimp_CreateIcon",,point% � i%
|�
�
�� �addtodesktop
� type$=""
�8� q%!40<>&2000 � q%!40<>&1000 type$=�getftype(q%!40)
�&� q%!40=&2000 � type$=�lastbit(f$)
�#� q%!40=&1000 type$="directory"
�spname$=type$
�+ș "XWimp_SpriteOp",40,,type$ � ;flags%
�� (flags% � 1)=1 �
�( � q%!40=&2000 spname$="application"
�5 � q%!40<>&2000 � q%!40<>&1000 spname$="file_xxx"
��
�Bfg$=�~(fg):bg$=�~(bg):flag$=bg$+fg$+"018039":flag=�("&"+flag$)
'ș "XWimp_GetPointerInfo",,pointer%
!pointer%!0-=32:pointer%!4+=32
��create_icon(main%,0,pointer%!0-50,pointer%!0+115,-(1024-(pointer%!4-65)),65,spname$,&4701801A):file$(i%)=f$:x(i%)=pointer%!0:y(i%)=pointer%!4:ftype$(i%)=type$:filetype(i%)=q%!40
&D� q%!40=&2000 type(i%)=0 � � q%!40=&1000 type(i%)=1 � type(i%)=2
0'name$=�lastbit(f$):wid%=(�name$)*16
:r�create_icon(main%,0,(pointer%!0-(wid%/2))+30,(pointer%!0+(wid%/2))+30,-(1024-(pointer%!4-115)),36,name$,flag)
D&�puticonsprite(main%,i%-1,spname$)
NIș "XWimp_ForceRedraw",point%!0,point%!4,point%!8,point%!12,point%!16
X�
b
l� �staytoggle
v(� stayopen=� stayopen=� � stayopen=�
��� stayopen=� �puticonsprite(backdrop%,4,"topton"):pointer%!0=backdrop%:ș "XWimp_GetWindowState",,pointer%:ș "XWimp_CreateMenu",,-1:pointer%!28=-1:ș "XWimp_OpenWindow",,pointer%
�6� stayopen=� �puticonsprite(backdrop%,4,"toptoff")
��
�
�4� �rtoz(T%):q$="":ȕ ?T%<>0:q$+=�?T%:T%+=1:�:=q$
�
� � �xy
�� Debug FN
� =�pointer%!0+"/"+�pointer%!4
�
�� �zero(expression)
�=0-expression
�
� �lastbit(s$)
"� s$="<Wimp$Scrap>" ="Tempory"
ȕ �s$,":")>0
s$=�s$,�s$,":")+1)
*�
4ȕ �s$,".")>0
>s$=�s$,�s$,".")+1)
H�
R=s$
\
f� �run(val)
p� (val � 2=0) val-=1
z'ș "XWimp_GetPointerInfo",,pointer%
�#x=pointer%!0-32:y=pointer%!4+32
�Ȏ type(val) �
�� 3
�Ȏ file$(val) �
�3 � "Info" : �openup(infowind%,x,y,650,450)
�3 � "More Info" : �openup(moreinfo%,x,y,800,600)
�3 � "Backdrop" : �openup(backdrop%,x,y,540,450)
�1 � "Save" : �openup(saveas%,x,y,300,180)
�0 � "Object" : �openup(about%,x,y,780,350)
�0 � "Clock" : �openup(clock%,x,y,200,100)
�2 � "Warning" : �openup(warning%,x,y,650,300)
�1 � "Loaded" : �openup(loaded%,x,y,650,300)
�0 � "BackInfo" : �openup(aback%,x,y,780,360)
~ � "ClockSet" : �setup_sclck:�openup(cset%,x,y,500,250):ș "XWimp_SetCaretPosition",cset%,2,,,-1,�(�geticondata(cset%,2))
� : �setmodlinfo(�modl_handle(file$(val))):�openup(�modl_handle(file$(val)),x,y,�modl_xw(file$(val)),�modl_yh(file$(val)))
�
$< � 1 : �("WimpTask Filer_OpenDir "+file$(val))
.8 � 2 : �file_run(file$(val),filetype(val))
8 � 0 : � � � �
B? �("WimpTask Filer_OpenDir "+file$(val))
L �
V" � �(� �) �
`5 �("WimpTask Run "+file$(val))
j �
t5 : �modl_click(type(val),file$(val),x,y)
~�
��
�
�� �delete(val,flag)
�� locked% �
� � type(val)>3 � flag=1 �
�pointer%!0=main%
�pointer%!4=val
�%ș "XWimp_GetIconState",,pointer%
�#ș "XWimp_DeleteIcon",,pointer%
�Sș "XWimp_ForceRedraw",pointer%!0,pointer%!4,pointer%!8,pointer%!12,pointer%!16
�pointer%!4=val+1
�%ș "XWimp_GetIconState",,pointer%
#ș "XWimp_DeleteIcon",,pointer%
Sș "XWimp_ForceRedraw",pointer%!0,pointer%!4,pointer%!8,pointer%!12,pointer%!16
2� clck �openup(clock%,clockx%,clocky%,200,200)
Nfile$(val)="":type(val)=0:x(val)=0:y(val)=0:ftype$(val)="":filetype(val)=0
(�
2
<� �shut(handle)
Fpointer%!0=handle
P$ș "XWimp_CloseWindow",,pointer%
Z�
d
n� �set(window,icon)
xpointer%!0=window
�pointer%!4=icon
�pointer%!8=&200000
�pointer%!12=0
�%ș "XWimp_SetIconState",,pointer%
��
�
�!� �savedragbox(window%,icon%)
�� x%,y%,ysize%
�!pointer%=window%
�'ș "XWimp_GetWindowState",,pointer%
�!ysize%=pointer%!16-pointer%!8
�x%=pointer%!4
�y%=pointer%!8
� window%=main% �
pointer%!4=icon%+1
' ș "XWimp_GetIconState",,pointer%
" ny%=pointer%!12
,�
6pointer%!4=icon%
@%ș "XWimp_GetIconState",,pointer%
Jsf$=�lastbit(sf$)
Tpointer%!8+=x%
^� window%=main% �
h pointer%!12=ny%+y%+ysize%
r�
| pointer%!12+=y%+ysize%
��
�pointer%!16+=x%
�pointer%!20+=y%+ysize%
�pointer%!24=0
�pointer%!28=0
�pointer%!32=&7FFFFFFF
�pointer%!36=&7FFFFFFF
�pointer%!0=0
�pointer%!4=5
� ș "XWimp_DragBox",,pointer%
��
�
�
� �import
'ș "XWimp_GetPointerInfo",,pointer%
5pointer%!32=pointer%!4 :thirtytwo%=pointer%!32
7pointer%!28=pointer%!0 :twentyeight%=pointer%!28
&6pointer%!24=pointer%!16 :twentyfour%=pointer%!24
02pointer%!20=pointer%!12 :twenty%=pointer%!20
:pointer%!16=1
Dpointer%!12=0
Npointer%!36=0
Xpointer%!40=0
b!pointer%=64
l$(pointer%+44)=sf$
v>ș "XWimp_SendMessage",17,pointer%,pointer%!20,pointer%!24
�myref%=pointer%!8
��
�
�
� �dosave
�sf$=�rtoz(q%+44)
�$� adjust=� �dragged � �copy_file
��
�
�� �tellemoff(e$)
� � er%
�er%=pointer%
�
!er%=0
�$(er%+4)=e$+�0
!,ș "XWimp_ReportError",er%,1,"StickyBrd"
! �
!
! � �save_disc
!*
h%=�(sf$)
!4<�#h%,fg,bg,tiled,clck,emboss,recess,border,twelve,twfour
!>%�#h%,clockx%,clocky%,hour,locked%
!H� I=0 � 80
!R9�#h%,file$(I),type(I),x(I),y(I),ftype$(I),filetype(I)
!\�
!f�#h%
!ph� sploaded ș "OS_SpriteOp",12+256,sprite%,�trans("StickyBrdDesktop$Dir")+"."+¤lastbit(sf$),8)+"SP"
!z�modl_saveconfig
!�+ș "Wimp_CreateMenu",,-1:�shut(saveas%)
!��
!�
!�� �intercept
!�2f$=�250," "):f$="":f$=�rtoz(q%+44):new_app$=f$
!�Ȏ q%!40 �
!�@� &FFD : � �lastbit(f$)="!Config" �load_new_placeit_file(f$)
!� : �
!��
!�3q%!12=q%!8:q%!16=4:ș "XWimp_SendMessage",17,q%
!��
!�
!�� �load_new_desktop
" h%=0:� �
"B� � � �tellemoff("Desktop file load error #"+Þ+" ("+�$+")"):�
"ș "XHourglass_On"
"$�deleteall
".�modl_clearback(1,sf$)
"8desktop$=sf$
"B
h%=�(sf$)
"L>�#h%,nfg,nbg,tiled,clck,emboss,recess,border,twelve,twfour
"V%�#h%,clockx%,clocky%,hour,locked%
"`� I=0 � 80
"j$ � SYS "XHourglass_Percentage",I
"t: �#h%,file$(I),type(I),x(I),y(I),ftype$(I),filetype(I)
"~�
"�
�#h%:h%=0
"�Ispritefile$=�trans("StickyBrdDesktop$Dir")+"."+¤lastbit(sf$),8)+"SP"
"�j%=�(spritefile$)
"�t=�:� j%>0 t=�
"��#j%
"� � t �
"� f$=spritefile$
"� �loadbackdrop
"��
"�� I=0 � 80
"� � file$(I)<>"" �
"� � filetype(I)=&2000 �
# 3 ș "XWimp_SpriteOp",40,,ftype$(I) � ;flags%
#
� (flags% � 1)=1 �
# � �(�-3) �
# ! h%=�(file$(I)+".!Boot")
#( � h%=0 �
#2% i%=�(file$(I)+".!Sprites")
#<> � i%<>0 �#i%:�("IconSprites "+file$(I)+".!Sprites")
#F � i%=0 �#i%
#P �
#Z � h%<>0 �
#d �#h%
#n' �("Obey "+file$(I)+".!Boot")
#x �
#� � h%=0 �#h%
#�
�
#� �
#� �
#� �
#� � file$(I)<>"" �
#� spname$=ftype$(I)
#�/ ș "XWimp_SpriteOp",40,,spname$ � ;flags%
#� � (flags% � 1)=1 �
#�( � type(I)=0 spname$="application"
#�% � type(I)=2 spname$="file_xxx"
#� �
#�S �create_icon(main%,0,x(I)-50,x(I)+115,-(1024-(y(I)-65)),65,spname$,&4701801A)
$/ name$=�lastbit(file$(I)):wid%=(�name$)*16
$D fg$=�~(fg):bg$=�~(bg):flag$=bg$+fg$+"018039":flag=�("&"+flag$)
$b �create_icon(main%,0,(x(I)-(wid%/2))+30,(x(I)+(wid%/2))+30,-(1024-(y(I)-115)),36,name$,flag)
$"( �puticonsprite(main%,i%-1,spname$)
$, �
$6�
$@%�menu(0):�grey_menu(menu%+2200,1)
$J�shut(main%)
$T>�openup(main%,0,win_maxy%,win_maxx%,(win_maxy%-win_miny%))
$^�rs
$hdummy=q%!8
$rq%!8=nfg:�fg
$|q%!8=nbg:�bg
$�q%!8=dummy
$�� tiled=� �
$�+ �puticonsprite(backdrop%,6,"tradioon")
$�, �puticonsprite(backdrop%,8,"tradiooff")
$� �
$�, �puticonsprite(backdrop%,6,"tradiooff")
$�+ �puticonsprite(backdrop%,8,"tradioon")
$��
$�� inform modules
$��modl_deskstart
$��shut(saveas%)
$�ș "XHourglass_Off"
$�� �
%�
%
% � �setupinfo
%& � (icon% � 2=0) icon%-=1
%0Cfil$=file$(icon%):� fil$="<Wimp$Scrap>" fil$="Application Data"
%:&� �fil$,1)="*" fil$=�lastbit(fil$)
%D �puticondata(about%,6,fil$)
%N2�puticondata(about%,7,�ftype(filetype(icon%)))
%X-�puticondata(about%,8,�type(type(icon%)))
%b#�puticondata(about%,9,desktop$)
%lspname$=ftype$(icon%)
%v-ș "XWimp_SpriteOp",40,,spname$ � ;flags%
%�� (flags% � 1)=1 �
%�* � type(icon%)=0 spname$="application"
%�' � type(icon%)=2 spname$="file_xxx"
%��
%�%�puticonsprite(about%,11,spname$)
%��
%�
%�� �type(type)
%�
Ȏ type �
%� � 0 : ="Runs Application"
%� � 1 : ="Opens Directory"
%� � 2 : ="Executes File"
%� � 3 : ="Opens Window"
& � 4 : ="Executes Command"
& �
&="Module-Specific"
&
&*� �ftype(type)
&4#� type=&FFFF ="Iconised Window"
&> � type=&2000 ="Application"
&H � type=&1000 ="Directory"
&R � type=&000 ="Module Icon"
&\0ș "XOS_FSControl",&12,,type � ,,byte1,byte2
&f5q$="":!pointer%=byte1:pointer%?4=13:q$+=$pointer%
&p/!pointer%=byte2:pointer%?4=13:q$+=$pointer%
&z!ȕ �q$,1)=" ":q$=�q$,�q$-1):�
&�type$=�~(type)
&�!� �(type$)=1 type$="00"+type$
&� � �(type$)=2 type$="0"+type$
&�� �q$,3)=type$ q$=""
&�q$+=" (&"+type$+")"
&�=q$
&�
&�� �dragabout(ic%)
&�� (ic% � 2=0) ic%-=1
&�u�savedragbox(main%,ic%):file$=file$(ic%):ftype$=ftype$(ic%):filetype=filetype(ic%):iconhandle%=ic%:type=type(ic%)
&��
&�
&�� �dragend
'+� clocking%=� clocking%=�:�move_clock:�
'sf$=�lastbit(file$)
' �import
'$�
'.
'80� �copy_file:� sf$="<Wimp$Scrap>" �dragged:�
'B�set_icon(handle,icon%)
'L � (icon% � 2)=0 icon%-=1
'Vmove=�:� � � move=�
'`Ȏ type(icon%) �
'j � 0,1,2
't;�("Set Copy$Options A ~C ~D ~F ~L ~N ~P ~Q R ~S ~T ~V")
'~file1$=sf$
'� �("Copy "+file$+" "+file1$)
'�*� �lastbit(file1$)="Tempory" appdata=�
'�� move �delete(icon%,0)
'�
� 3 : �:�
'�, : �modl_dragend(file$,sf$,type(icon%))
'��
'��
'�
'�� �string0(a%,a$)
'�$a%=a$:a%?�a$=0
'��
'�
( � �deleteall
(
� I=0 � 80
( � file$(I)<>"" �delete(I,1)
( �
((�modl_clearback(0,"")
(2�shut(main%)
(<>�openup(main%,0,win_maxy%,win_maxx%,(win_maxy%-win_miny%))
(F�
(P
(Z� �wimp_tick(b%,n)
(d#b%!(28+24*n)=b%!(28+24*n) � &01
(n�
(x
(� � �fg
(�ș "XHourglass_On"
(� �wimp_tick(menu%+600,fg)
(� fg=q%!8
(� �wimp_tick(menu%+600,fg)
(�fg$=�~(fg)
(�bg$=�~(bg)
(�flag$=bg$+fg$+"018039"
(�flag=�("&"+flag$)
(�� I=0 � 80
(�� file$(I)<>"" �
(�!pointer%!0=main%:pointer%!4=I
(�2ș "XWimp_DeleteIcon",,pointer%:pointer%!4=I+1
)#ș "XWimp_DeleteIcon",,pointer%
)spname$=ftype$(I)
),ș "XWimp_SpriteOp",40,,spname$ � ;flag%
)"� (flag% � 1)=1 �
),& � type(I)=0 spname$="application"
)6# � type(I)=2 spname$="file_xxx"
)@�
)JQ�create_icon(main%,0,x(I)-50,x(I)+115,-(1024-(y(I)-65)),65,spname$,&4701801A)
)T-name$=�lastbit(file$(I)):wid%=(�name$)*16
)^`�create_icon(main%,0,(x(I)-(wid%/2))+30,(x(I)+(wid%/2))+30,-(1024-(y(I)-115)),36,name$,flag)
)h&�puticonsprite(main%,i%-1,spname$)
)rL� SYS "XWimp_ForceRedraw",point%!0,point%!4,point%!8,point%!12,point%!16
)|�
)��
)�fg$=�~(fg)
)�%menuflag$=fg$+�fgcol(fg)+"000121"
)�0menuflag=�("&"+menuflag$):menu%!536=menuflag
)��shut(main%)
)�>�openup(main%,0,win_maxy%,win_maxx%,(win_maxy%-win_miny%))
)�ș "XHourglass_Off"
)��
)�
)� � �bg
)�ș "XHourglass_On"
)� �wimp_tick(menu%+1100,bg)
)� bg=q%!8
* �wimp_tick(menu%+1100,bg)
*fg$=�~(fg)
* bg$=�~(bg)
*&flag$=bg$+fg$+"018039"
*0flag=�("&"+flag$)
*:� I=0 � 80
*D� file$(I)<>"" �
*N!pointer%!0=main%:pointer%!4=I
*X2ș "XWimp_DeleteIcon",,pointer%:pointer%!4=I+1
*b#ș "XWimp_DeleteIcon",,pointer%
*lspname$=ftype$(I)
*v-ș "XWimp_SpriteOp",40,,spname$ � ;flags%
*�� (flags% � 1)=1 �
*�& � type(I)=0 spname$="application"
*�# � type(I)=2 spanme$="file_xxx"
*��
*�Q�create_icon(main%,0,x(I)-50,x(I)+115,-(1024-(y(I)-65)),65,spname$,&4701801A)
*�-name$=�lastbit(file$(I)):wid%=(�name$)*16
*�m�create_icon(main%,0,(x(I)-(wid%/2))+30,(x(I)+(wid%/2))+30,-(1024-(y(I)-115)),36,�lastbit(file$(I)),flag)
*�&�puticonsprite(main%,i%-1,spname$)
*�L� SYS "XWimp_ForceRedraw",point%!0,point%!4,point%!8,point%!12,point%!16
*��
*��
*�bg$=�~(bg)
*�%menuflag$=bg$+�fgcol(bg)+"000121"
+ menuflag=�("&"+menuflag$)
+ menu%!560=menuflag
+�shut(main%)
+ >�openup(main%,0,win_maxy%,win_maxx%,(win_maxy%-win_miny%))
+*ș "XHourglass_Off"
+4�
+>
+H� �getftype(type)
+Rtype$=�~(type)
+\!� �(type$)=1 type$="00"+type$
+f � �(type$)=2 type$="0"+type$
+p="file_"+type$
+z
+�+� �b:=�#h%+�#h%*2^8+�#h%*2^16+�#h%*2^24
+�
+�(� �dragged:� x%,y%:x%=q%!28:y%=q%!32
+�� locked% �
+��ș "XHourglass_On":�set_icon(handle,icon%):pointer%!0=main%:pointer%!4=iconhandle%:ș "XWimp_DeleteIcon",,pointer%:pointer%!4=iconhandle%+1:ș "XWimp_DeleteIcon",,pointer%
+�2� clck �openup(clock%,clockx%,clocky%,200,200)
+�%pointer%!0=x%-32:pointer%!4=y%+32
+�<spname$=ftype$:ș "XWimp_SpriteOp",40,,spname$ � ;flags%
+�� (flags% � 1)=1 �
+�# � type=0 spname$="application"
+� � type=2 spname$="file_xxx"
+��
+���create_icon(main%,0,pointer%!0-50,pointer%!0+115,-(1024-(pointer%!4-65)),65,spname$,&4701801A):x(i%)=pointer%!0:y(i%)=pointer%!4:file$(i%)=file$:ftype$(i%)=ftype$:filetype(i%)=filetype
,fg$=�~(fg)
,bg$=�~(bg)
,flag$=bg$+fg$+"018039"
,$<flag=�("&"+flag$):name$=�lastbit(file$):wid%=(�name$)*16
,.|�create_icon(main%,0,(pointer%!0-(wid%/2))+30,(pointer%!0+(wid%/2))+30,-(1024-(pointer%!4-115)),36,�lastbit(file$),flag)
,8&�puticonsprite(main%,i%-1,spname$)
,B�shut(main%)
,Lgpointer%!0=main%:ș "XWimp_GetWindowState",,pointer%:pointer%!28=-2:ș "XWimp_OpenWindow",,pointer%
,V!ș "XHourglass_Off":appdata=�
,`�
,j
,t� �iconise(handle)
,~fg$=�~(fg)
,�bg$=�~(bg)
,�flag$=bg$+fg$+"018039"
,�flag=�("&"+flag$)
,�'ș "XWimp_GetPointerInfo",,pointer%
,�!pointer%!0-=32:pointer%!4+=32
,�e�create_icon(main%,0,pointer%!0-50,pointer%!0+115,-(1024-(pointer%!4-65)),65,"iconise",&4701801A)
,�-name$=�translate(handle):wid%=(�name$)*16
,��create_icon(main%,0,(pointer%!0-(wid%/2))+30,(pointer%!0+(wid%/2))+30,-(1024-(pointer%!4-105)),36,�translate(handle),flag)
,�(�puticonsprite(main%,i%-1,"iconise")
,�|i%-=1:file$(i%)=�translate(handle)::ftype$(i%)="iconise":filetype(i%)=&FFFF:x(i%)=pointer%!0:y(i%)=pointer%!4:type(i%)=3
,�Iș "XWimp_ForceRedraw",point%!0,point%!4,point%!8,point%!12,point%!16
,��
-
-
� �translate(handle)
-Ȏ handle �
- � infowind% : ="Info"
-( � moreinfo% : ="More Info"
-2 � backdrop% : ="Backdrop"
-< � saveas% : ="Save"
-F � about% : ="Object"
-P � clock% : ="Clock"
-Z � warning% : ="Warning"
-d � loaded% : ="Loaded"
-n � aback% : ="BackInfo"
-x � cset% : ="ClockSet"
-��
-�=�modl_trans(handle)
-�
-� � �clock
-�7� clck=-1 �openup(clock%,clockx%,clocky%,200,200):�
-� � clck=0 �shut(clock%):�
-�Z�tellemoff("Clock display error, clock handle "+�clock%+", returning to poll loop."):�
-�
-�� �update_clock
-� time$=�geticondata(clock%,0)
-�
� mcode2%
-�� hour=� �
-�2� twfour type$="%24:%MI:%SE" � type$="%24:%MI"
.�
.2� twfour type$="%12:%MI:%SE" � type$="%12:%MI"
.�
.">ș "OS_ConvertDateAndTime",time_block%,time_buff%,20,type$
.,buff$=�rtoz(time_buff%)
.6/� time$<>buff$ �puticondata(clock%,0,buff$)
.@�
.J
.T� �warning
.^%�openup(warning%,315,662,650,300)
.h�
.r
.|)� �tiled(mode%,sx%,sy%,spname$,x%,y%)
.�spritefile$=f$
.� �puticondata(aback%,3,f$)
.�"�puticondata(aback%,4,spname$)
.�#�puticondata(aback%,5,palette$)
.�"�puticondata(aback%,7,"Tiled")
.�"�puticondata(aback%,14,�mode%)
.� �puticondata(aback%,16,�x%)
.� �puticondata(aback%,18,�y%)
.�.ș "XOS_ReadModeVariable",mode%,4 � ,,var%
.�sx%=sx%<<var%
.�.ș "XOS_ReadModeVariable",mode%,5 � ,,var%
.�sy%=sy%<<var%
.��shut(main%)
/>�openup(main%,0,win_maxy%,win_maxx%,(win_maxy%-win_miny%))
/ ș "XWimp_CreateMenu",,-1
/ �
/&
/0� �grey_icon(w%,i%)
/:pointer%!0=w%
/Dpointer%!4=i%
/Npointer%!8=&400000
/Xpointer%!12=0
/b%ș "XWimp_SetIconState",,pointer%
/l�
/v
/�� �setmenuitem
/� � ic%
/�
ic%=q%!16
/�� (ic% � 2=0) ic%-=1
/�ft$="File":tt$="File"
/�Ȏ type(ic%) �
/�&� 0 : ft$="App.":tt$="Application"
/�9 � �as(menu%+300,2)=1 �grey_menu(menu%+300,2)
/�$� 1 : ft$="Dir.":tt$="Directory"
/�9 � �as(menu%+300,2)=1 �grey_menu(menu%+300,2)
/� � 2 : ft$="File":tt$="File"
/�9 � �as(menu%+300,2)=1 �grey_menu(menu%+300,2)
/�!� 3 : ft$="Win.":tt$="Window"
09 � �as(menu%+300,2)=0 �grey_menu(menu%+300,2)
0 : ft$="Obj.":tt$="Object"
09 � �as(menu%+300,2)=0 �grey_menu(menu%+300,2)
0 �
0*.$object%=ft$+" '"+�lastbit(file$(ic%))+"'"
04$(menu%+300)=tt$
0>(� �as(menu%,1)=1 �grey_menu(menu%,1)
0H0� �as(menu%+400,1)=1 �grey_menu(menu%+400,1)
0R�
0\
0f� �set_icon(w%,i%)
0ppointer%!0=w%
0zpointer%!4=i%
0�pointer%!8=&200000
0�pointer%!12=0
0�%ș "XWimp_SetIconState",,pointer%
0��
0�
0�� �sendhelp
0�%q%!12=q%!8:q%!16=&503:help%=q%+20
0�.help%=�help(q%!32,q%!36,help%):� help%=0 �
0� ?help%=0
0�!q%=(help%+4-q%)��3
0�%ș "XWimp_SendMessage",17,q%,q%!4
0��
0�
1� �help(w%,i%,h%)
1
$h%=""
1 Ȏ w% �
1$ � infowind%
1. Ȏ i% �
18 � -1,0,1,2,3,4,5,6,7,8
1BL $h%="This is the Info Window.|MIt provides information on !StickyBrd."
1L) : ș "XInterface_SendHelp",,q%:=0
1V �
1` � moreinfo%
1j Ȏ i% �
1t* � -1,0,1,2,3,4,5,6,7,8,9,10,11,12,13
1~= $h%="This window gives more information on !StickyBrd."
1�) : ș "XInterface_SendHelp",,q%:=0
1� �
1� � backdrop%
1� Ȏ i% �
1� � -1,0,1,3,7,9
1�X $h%="This is the 'Load Backdrop' window.|MUse this window to load a new backdrop."
1� � 2
1�X $h%="This is the 'Load Sprite' icon.|MDrag a Sprite file to this icon to load it."
1� � 4
1�L $h%="This is the 'Stay Open' icon.|MClick it to keep the window open."
1� � 6
1�W $h%="This is the 'Tiled' radio button.|MClick on it to select 'Tiled' backdrops."
2 � 8
2
[ $h%="This is the 'Centred' radio button.|MClick on it to select 'Centred' backdrops."
2) : ș "XInterface_SendHelp",,q%:=0
2 �
2( � main%
22 Ȏ i% �
2<� � 0 : $h%="This is the desktop backdrop.|MIt is now `sticky� and will accept directories, applications, and files.|MDrag these to the desktop backdrop to add them to it."
2F : ic%=i%
2P& � (ic% � 2=0) ic%-=1
2Z. $h%="This is the icon for `"
2d+ $h%+=�lastbit(file$(ic%))
2n $h%+="�.|M"
2x( $h%+="Click on it to "
2�+ $h%+=�findtype(type(ic%))
2� $h%+="."
2� �
2�
� about%
2�} $h%="This is the 'Object Information' window.|MIt provides information about the object the pointer is currently over."
2� � saveas%
2� Ȏ i% �
2�
� -1
2�X $h%="This is the 'Save' window.|MUse it to save the current state of the desktop."
2�
2�% ș "XInterface_SendHelp",,q%:=0
2� �
2� � warning%
3 Ȏ i% �
3- � 4,5 : ș "XInterface_SendHelp",,q%:=0
3~ : $h%="This is the 'Warning' window.|MIt indicates that you already have some application data saved into !StickyBrd."
3" �
3, � loaded%
36 Ȏ i% �
3@- � 5,6 : ș "XInterface_SendHelp",,q%:=0
3Jy : $h%="This is the 'Loaded' window.|MIt shows that !StickyBrd is loaded, and displays the copyright (�) message."
3T �
3^$ ș "XInterface_SendHelp",,q%:=0
3h
� main1%
3r� $h%="This is the desktop backdrop.|MThe 'real' backdrop is currently 'hidden'.|MSelect 'Restore' from the 'Options' menu to view it."
3|
� aback%
3�� $h%="This window gives information on the current backdrop.|MIt shows the sprite file, sprite name, determines whether it has a palette, and tells you whether the backdrop is tiled or centred."
3� � cset%
3� Ȏ i% �
3�/ � 2,3,8 : ș "XInterface_SendHelp",,q%:=0
3�P � 4 : $h%="This is the 'Up' icon.|MClick it to increase the hours by one."
3�R � 5 : $h%="This is the 'Down' icon.|MClick it to decrease the hours by one."
3�R � 6 : $h%="This is the 'Up' icon.|MClick it to increase the minutes by one."
3�T � 7 : $h%="This is the 'Down' icon.|MClick it to decrease the minutes by one."
3�O : $h%="This is the 'Set time' window.|MUse it to set the current time."
3� �
3�
3� $h%=�modl_help(w%,i%)
3��
4=h%+�($h%)
4
4 � �findtype(type)
4&
Ȏ type �
40! � 0 : ="run the application"
4: � 1 : ="open the directory"
4D � 2 : ="execute the file"
4N � 3 : ="open the window"
4X! � 4 : ="execute the command"
4b�
4l="perform an operation"
4v
4�� �setclearmenu
4�$object%="File ''"
4�(� �as(menu%,1)=0 �grey_menu(menu%,1)
4�0� �as(menu%+400,1)=0 �grey_menu(menu%+400,1)
4��
4�
4�� �as(b%,n%)
4�+=-((b%!(28+8+24*n%) � &400000)=&400000)
4�
4�� �grey_menu(b%,n%)
4�+b%!(28+8+24*n%)=b%!(28+8+24*n%)�&400000
4��
4�
5� �update_backdrop
5 pointer%!0=main%
5(ș "Wimp_GetWindowOutline",,pointer%
5 Qș "Wimp_ForceRedraw",main%,pointer%!4,pointer%!16-44,pointer%!12,pointer%!16
5*�
54
5> � �bring_to_top(handle%)
5Hpointer%!0=handle%
5R&ș "XWimp_GetWindowInfo",,pointer%
5\pointer%!28=-2
5f#ș "XWimp_OpenWindow",,pointer%
5p�
5z
5�'� �set_clock_flags(e,r,b,twe,twf,h)
5�;emboss=e:recess=r:twelve=twe:twfour=twf:border=b:hour=h
5��
5�
5�� �setup_sclck
5�#�puticondata(cset%,2,��$,17,2))
5�#�puticondata(cset%,3,��$,20,2))
5��
5�
5�� �addh(addicon%)
5�+current=�(�geticondata(cset%,addicon%))
5�current+=1
5�� current>24 current=0
6� current<0 current=24
69current$=�current:� �current$=1 current$="0"+current$
6)�puticondata(cset%,addicon%,current$)
6$�
6.
68� �subh(subicon%)
6B+current=�(�geticondata(cset%,subicon%))
6Lcurrent-=1
6V� current>24 current=0
6`� current<0 current=24
6j9current$=�current:� �current$=1 current$="0"+current$
6t)�puticondata(cset%,subicon%,current$)
6~�
6�
6�� �addm(addicon%)
6�+current=�(�geticondata(cset%,addicon%))
6�current+=1
6�� current>60 current=0
6�� current<0 current=60
6�9current$=�current:� �current$=1 current$="0"+current$
6�)�puticondata(cset%,addicon%,current$)
6��
6�
6�� �subm(subicon%)
6�+current=�(�geticondata(cset%,subicon%))
7 current-=1
7
� current>60 current=0
7� current<0 current=60
7 9current$=�current:� �current$=1 current$="0"+current$
7()�puticondata(cset%,subicon%,current$)
72�
7<
7F � �settime(hour$,minute$)
7P time$=""
7Z,time$=��$,16)+hour$+":"+minute$+":"+"00"
7d�$=time$:�shut(cset%)
7n�
7x
7� � �rs
7�pointer%!0=clock%
7�pointer%!4=0
7�%ș "XWimp_GetIconState",,pointer%
7� pointer%!8=0:pointer%!12=0
7�6� emboss $(pointer%!32)="z0":pointer%!24=&17000139
7�6� recess $(pointer%!32)="z4":pointer%!24=&17000139
7�6� border $(pointer%!32)="z1":pointer%!24=&17000139
7�%ș "XWimp_SetIconState",,pointer%
7�pointer%!0=clock%
7�'ș "XWimp_GetWindowState",,pointer%
7��shut(clock%)
7�pointer%!28=-2
8*� clck ș "XWimp_OpenWindow",,pointer%
8�
8
8"� �fract(val)
8,$t$=�(val � 100)+"."+�(val � 100)
86� �t$=3 t$+="0"
8@=t$
8J
8T9� �modl_init(tname$,tpurp$,tauth$,tver$,pver,menblk%)
8^o� modlptr=20 �tellemoff("Extention module loading error: limit reached, no more modules will be loaded."):�
8hp� pver>80 �tellemoff("Extension module "+tname$+" requires !StickyBrd manager "+�fract(pver)+" or later."):�
8r7modl$(modlptr)=�lower(tname$):modl(modlptr)=menblk%
8|1modli$(modlptr)=tname$:modlp$(modlptr)=tpurp$
8�;modla$(modlptr)=tauth$:modlv$(modlptr)=tver$:modlptr+=1
8�2ș "XWimp_CreateWindow",,modlinfo% � taskhand%
8� modlinf(modlptr-1)=taskhand%
8� �addtomenu(tname$,menblk%)
8� modl(modlptr-1)!32=taskhand%
8�=taskhand%
8�
8�� �addtomenu(tn$,men%)
8�(� �as(menu%,6)=1 �grey_menu(menu%,6)
8�mblk%=modlmenu%
8�flags=&7000021
8� mlen%=0:� I=0 � (modlptr-1)
8�4� �modl$(I)>mlen% mlen%=(�modl$(I))+1:�:mlen%+=1
9 �header("Modules",mlen%)
9� I=0 � (modlptr-1)
9 0�entry(&00,modl(I),flags,�capital(modl$(I)))
9&�
90 mblk%!-24=mblk%!-24 � &80
9:�
9D
9N� �bd_hand:=main%
9X
9b� �load_modls
9l&h%=�("<StickyBrdExt$Dir>.AutoRun")
9v�
9�buff$=�#h%
9�� �buff$,1)<>"|" �
9� � �buff$,5)="{run}" �
9� buff$=�strip(buff$)
9� �load_modl(buff$)
9� �
9��
9�� buff$="{end}"
9��#h%
9��
9�
9�� �load_modl(file$)
9�,ț "<StickyBrdExt$Dir>."+buff$+".Module"
: t%=�("FN"+buff$+"_init")
: �
:
: � �strip(s$)
:*s$=�s$,(�s$)-6)
:4s$=�s$,(�s$)-1)
:>=s$
:H
:R� �pass_null
:\� modlptr=0 �
:f� K=0 � (modlptr-1)
:p&t%=�("FN"+modl$(K)+"_event(0,q%)")
:z� K
:��
:�
:�� �lower(text$)
:�Y$pointer%=text$:ptr%=0:� ptr%?pointer%=ptr%?pointer% � &20:ptr%+=1:� ptr%?pointer%<33
:�=$pointer%
:�
:�� �modl_sendmenu
:� modlflag=q%!4:� q%!8=-1 �
:�Bstart=4:� q%!(start-4)=q%!(start+4):start+=4:� q%!(start-4)=-1
:�-t%=�("FN"+modl$(modlflag)+"_event(1,q%)")
:��
:�
:�� �modl_quit
;� K=0 � (modlptr-1)
;'t%=�("FN"+modl$(K)+"_event(13,q%)")
;� K
;$�
;.
;8� �modl_help(w%,i%)
;B text$=""
;L pointer%!0=w%:pointer%!4=i%
;V� K=0 � (modlptr-1)
;`,t%=�("FN"+modl$(K)+"_event(3,pointer%)")
;j� $t%<>"" text$=$t%
;t pointer%!0=w%:pointer%!4=i%
;~� K
;�7� text$="" text$="No help availible on this window"
;�
=text$
;�
;� � �modl_click(typ,fil$,x,y)
;�@pointer%!0=x:pointer%!4=y:pointer%!8=typ:$(pointer%+12)=fil$
;�� K=0 � (modlptr-1)
;�,t%=�("FN"+modl$(K)+"_event(4,pointer%)")
;�@pointer%!0=x:pointer%!4=y:pointer%!8=typ:$(pointer%+12)=fil$
;�� K
;��
;�
;�� �modl_mclick(h,i,b)
< *pointer%!0=h:pointer%!4=i:pointer%!8=b
<
� K=0 � (modlptr-1)
<,t%=�("FN"+modl$(K)+"_event(5,pointer%)")
< *pointer%!0=h:pointer%!4=i:pointer%!8=b
<(� K
<2�
<<
<F$� �putondesktop(spn$,x,y,t,t$,l)
<P� fg$,bg$,flag$,flag
<Z0fg$=�~(fg):bg$=�~(bg):flag$=bg$+fg$+"018039"
<dflag=�("&"+flag$)
<nE�create_icon(main%,0,x-50,x+115,-(1024-(y-65)),65,spn$,&4701801A)
<xMfile$(i%)=t$:x(i%)=x:y(i%)=y:ftype$(i%)=spn$:filetype(i%)=&000:type(i%)=t
<�
t1$=""
<�2� l=1 t1$=�lastbit(t$) � t1$=t$:wid%=(�t1$)*16
<�U�create_icon(main%,0,(x-(wid%/2))+30,(x+(wid%/2))+30,-(1024-(y-115)),36,t1$,flag)
<�#�puticonsprite(main%,i%-1,spn$)
<�Iș "XWimp_ForceRedraw",point%!0,point%!4,point%!8,point%!12,point%!16
<��
<�
<�� �modl_slab(h,i,b)
<�pointer%!12=h
<�pointer%!16=i
<�pointer%!8=b
<�(ș "XInterface_SlabButton",,pointer%
<�pointer%!8=0
=(ș "XInterface_SlabButton",,pointer%
=�
=
="� �firstbit(s$)
=,ptr=0:�:t$=�s$,ptr,1)
=6� t$="." ptr-=1:� �DJ}
=@
ptr+=1
=J � t$="."
=T
=�s$,ptr)
=^
=h� �modl_trans(h)
=r t$=""
=|pointer%!0=h
=�� K=0 � (modlptr-1)
=�,t%=�("FN"+modl$(K)+"_event(6,pointer%)")
=�� $t%<>"" t$=$t%
=�pointer%!0=h
=�� K
=�=t$
=�
=�� �modl_handle(t$)
=�
handle%=0
=�$pointer%=t$
=�� K=0 � (modlptr-1)
=�,t%=�("FN"+modl$(K)+"_event(7,pointer%)")
=�� t%<>0 handle%=t%
>$pointer%=t$
>� K
> =handle%
>&
>0� �modl_xw(t$)
>: xw%=0
>D$pointer%=t$
>N� K=0 � (modlptr-1)
>X,t%=�("FN"+modl$(K)+"_event(8,pointer%)")
>b� t%<>0 xw%=t%
>l$pointer%=t$
>v� K
>�=xw%
>�
>�� �modl_yh(t$)
>� yh%=0
>�$pointer%=t$
>�� K=0 � (modlptr-1)
>�,t%=�("FN"+modl$(K)+"_event(9,pointer%)")
>�� t%<>0 yh%=t%
>�$pointer%=t$
>�� K
>�=yh%
>�
>�� �capital(s$)
?t$=�s$,(�s$)-1)
?
i$=�s$,1)
?i$=�(�(i$) � &20)
?
=i$+t$
?*
?4� �exists(ty)
?>
flag=0
?H� I=0 � 80
?R� file$(I)<>""
?\ � type(I)=ty flag=I
?f�
?p�
?z =flag
?�
?� � �modl_dragend(f$,f1$,t)
?�� K=0 � (modlptr-1)
?�pointer%!0=t
?�$(pointer%+4)=f$
?�$(pointer%+260)=f1$
?�-t%=�("FN"+modl$(K)+"_event(10,pointer%)")
?�� K
?��
?�
?� � �modl_dataload(f$,w,i)
?�� K=0 � (modlptr-1)
?�.pointer%!0=w:pointer%!4=i:$(pointer%+8)=f$
@-t%=�("FN"+modl$(K)+"_event(11,pointer%)")
@� K
@�
@$
@. � �modl_delete(icon%,type%)
@8� K=0 � (modlptr-1)
@B%pointer%!0=icon%:pointer%!4=type%
@L-t%=�("FN"+modl$(K)+"_event(12,pointer%)")
@V� K
@`�
@j
@t� �modl_saveconfig
@~� K=0 � (modlptr-1)
@�,t%=�("FN"+modl$(K)+"_event(2,pointer%)")
@�� K
@��
@�
@�� �modl_redraw
@�� K=0 � (modlptr-1)
@�'t%=�("FN"+modl$(K)+"_event(14,q%)")
@�� K
@��
@�
@� � �modl_interface(r0,r1%)
@� Ȏ r0 �
A % � 0 : �tellemoff("Fatal; "+$r1%)
A
�modl_quit
A quit%=�
A � 1 : �tellemoff($r1%)
A( =0
A2 � 2 : �shut(main%)
A<H �openup(main%,0,win_maxy%,win_maxx%,(win_maxy%-win_miny%))
AF =0
AP1 � 3 : � sploaded pointer%!0=1 � pointer%!0=0
AZ1 � tiled pointer%!4=1 � pointer%!4=0
Ad =pointer%
AnD � 4 : �putondesktop($r1%,r1%!24,r1%!28,r1%!32,$(r1%+12),r1%!36)
Ax =0
A� � 5 : �delete(!r1%,0)
A� =0
A�0 � 6 : ș "XWimp_OpenMenu",,menu%,!r1%,r1%!4
A� =0
A� � 7 : �dragabout(!r1%)
A� =0
A� � 8 : �set_icon(!r1%)
A� =0
A�0 � 9 : �("Filer_OpenDir "+�dir(file$(!r1%)))
A� =0
A�( � 10 : �modl_slab(!r1%,r1%!4,r1%!8)
A� =0
A� � 11 : =�exists(!r1%)
B � 12 : res0%=r0:res1%=r1%
B" � K=0 � (modlptr-1)
B= t%=�("FN"+modl$(K)+"_message(!res1%,res1%!4)")
B" �
B, =0
B6. � 13 : �puticondata(r1%!0,r1%!4,$(r1%+8))
B@ =0
BJ. � 14 : $pointer%=�geticondata(!r1%,r1%!4)
BT =pointer%
B^$ � 15 : $pointer%=�lastbit($r1%)
Bh =pointer%
Br � 16 : $pointer%=�dir($r1%)
B| =pointer%
B�/ � 17 : �puticonsprite(!r1%,r1%!4,$(r1%+8))
B� =0
B��
B�=0
B�
B�� �dir(s$)
B� sptr=�s$
B�.�:g$=�s$,sptr,1):� g$="." � �`VB � sptr-=1
B� � g$="."
B�=�s$,sptr-1)
B�
B�!� �modl_clearback(type,file$)
B�� K=0 � (modlptr-1)
C'pointer%!0=type:$(pointer%+4)=file$
C-t%=�("FN"+modl$(K)+"_event(15,pointer%)")
C � K
C&�
C0
C:� �modl_deskstart
CD� K=0 � (modlptr-1)
CN-t%=�("FN"+modl$(K)+"_event(16,pointer%)")
CX� K
Cb�
Cl
Cv� �menu_message
C�� q%!32=6 �
C�1 �puticondata(modlinf(q%!36),4,modli$(q%!36))
C�1 �puticondata(modlinf(q%!36),5,modlp$(q%!36))
C�1 �puticondata(modlinf(q%!36),6,modla$(q%!36))
C�1 �puticondata(modlinf(q%!36),7,modlv$(q%!36))
C�0 ș "XWimp_CreateSubMenu",,q%!20,q%!24,q%!28
C��
C��
C�
C�� �setmodlinfo(handle)
C� modlnumber=0:infoptr=0:�
C�2� modlinf(infoptr)=handle � modlnumber=infoptr
C�infoptr+=1
D� infoptr=(modlptr+1)
D -�puticondata(handle,4,modli$(modlnumber))
D-�puticondata(handle,5,modlp$(modlnumber))
D -�puticondata(handle,6,modla$(modlnumber))
D*-�puticondata(handle,7,modlv$(modlnumber))
D4�
D>
DH� �rmv(r0,r1)
DR+ș "XOS_ReadModeVariable",r0,r1 � ,,r20
D\=r20
Df
Dp&� �string_at_address(name$,� num%)
Dz2ș "OS_SpriteOp",256+24,sprite%,name$ � ,,num%
D��
D�:
D�%� ** READING IN !PLACEIT FILES **
D�
D�� �next_byte
D�offset%+=1
D�=(config_file%?offset%)
D�
D�� �byte(offset%)
D�=(config_file%?offset%)
D�
D�� �word(offset%)
D�=(config_file%!offset%)
E
E� �string(offset%)
E
� str$
E$ str$=""
E. ȕ (config_file%?offset%)>31
E8# str$+=�(config_file%?offset%)
EB offset%+=1
EL�
EV =str$
E`
Ej � �get_placeit_icon(icon%)
Et
� ptr%
E~ptr%=length_options%
E�i%=0
E�ȕ i%<icon%
E�% ptr%+=�word(ptr%+size_offset)-4
E� i%+=1
E��
E�)iconhandle%=�byte(ptr%+handle_offset)
E�$x_coord% =�word(ptr%+x_offset)
E�$y_coord% =�word(ptr%+y_offset)
E�+filetype% =�word(ptr%+filetype_offset)
E�;leafname$ =�string(ptr%+�word(ptr%+leafname_offset)-4)
E�+spritename$=�string(ptr%+sprite_offset)
E�)iconselect%=�byte(ptr%+select_offset)
F -filename$ =�string(ptr%+filename_offset)
F
�
F
F � �load_new_placeit_file(f$)
F(�deleteall:�purge1
F2�modl_clearback(1,f$)
F<&ș "XOS_File",16,f$,config_file%,0
FFoffset%=-1
FPsize_offset =0
FZleafname_offset=4
Fdhandle_offset =8
Fnselect_offset =9
Fxx_offset =12
F�y_offset =16
F�sprite_offset =20
F�filetype_offset=36
F�filename_offset=40
F�
F�lversion%=�next_byte:� version%<>5 �tellemoff("Can't handle !PlaceIt config file other than version 5"):�
F�nfg =�next_byte
F�nbg =�next_byte
F�dc_flag%=�next_byte
F�locked% =�next_byte
F�backgnd%=�next_byte
F�backtyp%=�next_byte
F�icons% =�next_byte
G length_options%=offset%+1
G� I=0 � icons%-1
GA�get_placeit_icon(I):spritename$=�spritename$,�spritename$-1)
G"��create_icon(main%,0,(x_coord%-50)+20,(x_coord%+115)+20,-(y_coord%-65)+100,65,spritename$,&4701801A):file$(i%)=filename$:x(i%)=x_coord%+20:y(i%)=y_coord%+100:ftype$(i%)=spritename$:filetype(i%)=filetype%
G,L� filetype%=&2000 type(i%)=0 � � filetype%=&1000 type(i%)=1 � type(i%)=2
G6wid%=(�leafname$)*16
G@r�create_icon(main%,0,(x_coord%-(wid%/2))+60,(x_coord%+(wid%/2))+60,-(y_coord%-115)+100,36,leafname$,&47018039)
GJ*�puticonsprite(main%,i%-1,spritename$)
GT�
G^� backgnd%=1 �
Gh f1$=f$
Gr' f$=�leafname(f$):f$+=".Background"
G|# � backtyp%=1 tiled=� � tiled=�
G� �loadbackdrop
G� f$=f1$
G��
G��shut(main%)
G�>�openup(main%,0,win_maxy%,win_maxx%,(win_maxy%-win_miny%))
G�q%!8=nfg:�fg
G�q%!8=nbg:�bg
G�desktop$=f$
G��
G�
G�� �leafname(s$)
G�ȕ �s$,1)<>"."
G�s$=�s$,�s$-1)
H�
H=�s$,�s$-1)
H
H&� �move_clock
H0� locked% �
H:&ș "Wimp_GetPointerInfo",,pointer%
HD/clockx%=pointer%!0-60:clocky%=pointer%!4+10
HN+�openup(clock%,clockx%,clocky%,200,200)
HX�
Hb
Hl� �mess_ack
Hv� q%!16=5 �
H�) ș "XWimp_StartTask","Run "+runfile$
H��
H��
H�
H�� �file_run(f$,ft)
H�runfile$=f$
H� !pointer%=(48+�runfile$)��3
H�pointer%!12=3
H�pointer%!16=5
H�pointer%!36=-2
H�pointer%!40=ft
H� $(pointer%+44)=runfile$+�0
H�'ș "Wimp_SendMessage",18,pointer%,0
I�
I
I� �trans(var$)
I � I=0 � 100:pointer%?I=0:�
I*-ș "OS_ReadVarVal",var$+�0,pointer%,400,0
I4=�rtoz(pointer%)
I>
IH� �titlemenu
IR� x%,y%,z%,title$,q$
I\ȗ x%,y%,z%
If� z%<>2 � �
Ip ș "Wimp_GetPointerInfo",,q%
Iz� q%!16<>-4 � �
I�*q%!0=q%!12:ș "Wimp_GetWindowInfo",,q%
I�� (q%!60 � 1<<8) �
I� title$=�rtoz(q%!76)
I��
I� title$=�rtoz(q%+76)
I��
I�*� �title$,"::")=0 � �title$,"#")=0 � �
I�� �title$,"$")=0 � �
I�mblk%=filemen%
I�� �title$,"::")>0 �
I�* �header(�title$,�title$,"::")-1),11)
I��
I�) �header(�title$,�title$,"#")-1),11)
J�
J%filepath$=�title$,�title$,".")-1)
J*title$=�title$,�title$-(�title$,".")))
J$q$="":� I%=1 � �title$
J.q$+=�title$,I%,1)
J8� �title$,I%,1)="." �
JB( �entry(&00,-1,&7000021,�q$,�q$-1))
JL q$=""
JV�
J`�
Jj �entry(&80,-1,&7000021,q$)
Jt ș "Wimp_GetPointerInfo",,q%
J~handle=&FFFFFFFF
J�2ș "Wimp_CreateMenu",,filemen%,q%!0-64,q%!4-10
J��
� 00000000 0d 00 0a 21 f4 20 3e 4e 65 77 50 44 2e 21 53 74 |...!. >NewPD.!St|
00000010 69 63 6b 79 42 72 64 2e 21 52 75 6e 49 6d 61 67 |ickyBrd.!RunImag|
00000020 65 0d 00 14 13 f4 20 50 75 62 6c 69 63 20 44 6f |e..... Public Do|
00000030 6d 61 69 6e 0d 00 1e 17 f4 20 42 79 20 44 61 76 |main..... By Dav|
00000040 69 64 20 4a 2e 20 53 65 65 72 79 0d 00 28 1b f4 |id J. Seery..(..|
00000050 20 a9 20 44 61 76 69 64 20 4a 2e 20 53 65 65 72 | . David J. Seer|
00000060 79 20 31 39 39 32 0d 00 32 1b f4 20 43 75 72 72 |y 1992..2.. Curr|
00000070 65 6e 74 20 76 65 72 73 69 6f 6e 3a 20 30 2e 38 |ent version: 0.8|
00000080 30 0d 00 3c 04 0d 00 46 16 c8 99 20 22 58 48 6f |0..<...F... "XHo|
00000090 75 72 67 6c 61 73 73 5f 4f 6e 22 0d 00 50 69 ee |urglass_On"..Pi.|
000000a0 20 85 20 78 25 3d a4 65 72 72 6f 72 28 22 46 61 | . x%=.error("Fa|
000000b0 74 61 6c 20 45 72 72 6f 72 20 28 74 79 70 65 20 |tal Error (type |
000000c0 22 2b c3 9f 2b 22 2f 69 6e 74 65 72 6e 61 6c 20 |"+..+"/internal |
000000d0 65 72 72 6f 72 20 63 6f 64 65 20 22 2b c3 9e 2b |error code "+..+|
000000e0 22 29 20 22 2b f6 24 2b 22 2e 2e 2e 52 65 2d 72 |") "+.$+"...Re-r|
000000f0 75 6e 20 26 20 74 72 79 20 61 67 61 69 6e 22 2c |un & try again",|
00000100 31 29 3a e0 0d 00 5a 38 de 20 71 25 20 31 32 30 |1):...Z8. q% 120|
00000110 30 2c 69 6e 64 25 20 26 34 30 30 2c 69 6e 64 32 |0,ind% &400,ind2|
00000120 25 20 26 34 30 30 2c 6d 65 6e 75 25 20 32 36 30 |% &400,menu% 260|
00000130 30 2c 69 6e 64 33 25 20 26 34 30 30 0d 00 64 46 |0,ind3% &400..dF|
00000140 de 20 69 6e 64 34 25 20 26 34 30 30 2c 70 6f 69 |. ind4% &400,poi|
00000150 6e 74 65 72 25 20 35 30 30 2c 66 69 6c 65 24 28 |nter% 500,file$(|
00000160 38 30 29 2c 74 79 70 65 28 38 30 29 2c 69 6e 64 |80),type(80),ind|
00000170 35 25 20 26 35 30 30 2c 69 6e 64 36 25 20 26 36 |5% &500,ind6% &6|
00000180 30 30 0d 00 6e 34 de 20 78 28 38 30 29 2c 79 28 |00..n4. x(80),y(|
00000190 38 30 29 2c 66 74 79 70 65 24 28 38 30 29 2c 66 |80),ftype$(80),f|
000001a0 69 6c 65 74 79 70 65 28 38 30 29 2c 69 6e 64 38 |iletype(80),ind8|
000001b0 25 20 26 34 30 30 0d 00 78 29 de 20 69 6e 64 39 |% &400..x). ind9|
000001c0 25 20 26 35 30 30 2c 69 6e 64 31 30 25 20 26 34 |% &500,ind10% &4|
000001d0 30 30 2c 66 69 6c 65 6d 65 6e 25 20 35 31 32 0d |00,filemen% 512.|
000001e0 00 82 37 de 20 6f 62 6a 65 63 74 25 20 32 30 2c |..7. object% 20,|
000001f0 69 6e 64 31 34 25 20 26 36 30 30 2c 6f 70 65 6e |ind14% &600,open|
00000200 70 61 72 65 6e 74 25 20 32 30 2c 6d 61 69 6e 5f |parent% 20,main_|
00000210 77 25 20 38 30 30 0d 00 8c 3b de 20 69 6e 64 31 |w% 800...;. ind1|
00000220 35 25 20 26 35 30 30 2c 66 67 62 25 20 32 30 2c |5% &500,fgb% 20,|
00000230 62 67 62 25 20 32 30 2c 69 6e 64 31 36 25 20 26 |bgb% 20,ind16% &|
00000240 33 35 30 2c 6d 6f 64 6c 69 6e 66 6f 25 20 38 30 |350,modlinfo% 80|
00000250 30 0d 00 96 3a de 20 6d 6f 64 6c 6d 65 6e 75 25 |0...:. modlmenu%|
00000260 20 32 30 30 30 3a f4 20 70 6c 65 6e 74 79 20 6f | 2000:. plenty o|
00000270 66 20 73 70 61 63 65 20 66 6f 72 20 6d 6f 64 75 |f space for modu|
00000280 6c 65 20 6d 65 6e 75 20 28 21 29 0d 00 a0 44 de |le menu (!)...D.|
00000290 20 6d 6f 64 6c 24 28 32 30 29 2c 6d 6f 64 6c 28 | modl$(20),modl(|
000002a0 32 30 29 2c 6d 6f 64 6c 69 24 28 32 30 29 2c 6d |20),modli$(20),m|
000002b0 6f 64 6c 70 24 28 32 30 29 2c 6d 6f 64 6c 61 24 |odlp$(20),modla$|
000002c0 28 32 30 29 2c 6d 6f 64 6c 76 24 28 32 30 29 0d |(20),modlv$(20).|
000002d0 00 aa 3a de 20 6d 6f 64 6c 69 6e 66 28 32 30 29 |..:. modlinf(20)|
000002e0 2c 6d 63 6f 64 65 25 20 33 30 30 2c 63 6f 6e 66 |,mcode% 300,conf|
000002f0 69 67 5f 66 69 6c 65 25 20 33 30 30 30 2c 6d 63 |ig_file% 3000,mc|
00000300 6f 64 65 32 25 20 31 30 30 0d 00 b4 22 de 20 74 |ode2% 100...". t|
00000310 69 6d 65 5f 62 6c 6f 63 6b 25 20 32 30 2c 74 69 |ime_block% 20,ti|
00000320 6d 65 5f 62 75 66 66 25 20 32 30 0d 00 be 50 de |me_buff% 20...P.|
00000330 20 73 70 72 69 74 65 25 20 26 38 35 30 30 3a 73 | sprite% &8500:s|
00000340 70 72 69 74 65 25 21 30 3d 26 38 35 30 30 3a 73 |prite%!0=&8500:s|
00000350 70 72 69 74 65 25 21 38 3d 31 36 3a c8 99 20 22 |prite%!8=16:.. "|
00000360 58 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 39 2b |XOS_SpriteOp",9+|
00000370 32 35 36 2c 73 70 72 69 74 65 25 0d 00 c8 18 de |256,sprite%.....|
00000380 20 63 6f 6c 73 25 20 31 36 2c 73 63 61 6c 65 25 | cols% 16,scale%|
00000390 20 31 36 0d 00 d2 c6 73 74 61 79 6f 70 65 6e 3d | 16....stayopen=|
000003a0 a3 3a 73 70 72 69 74 65 66 69 6c 65 24 3d 22 22 |.:spritefile$=""|
000003b0 3a 64 65 73 6b 74 6f 70 24 3d 22 22 3a 66 24 3d |:desktop$="":f$=|
000003c0 22 22 3a 63 6c 6f 63 6b 68 61 6e 64 6c 65 25 3d |"":clockhandle%=|
000003d0 2d 31 3a 63 6c 63 6b 3d a3 3a 61 70 70 64 61 74 |-1:clck=.:appdat|
000003e0 61 3d a3 3a 74 69 6c 65 64 3d a3 3a 61 64 6a 75 |a=.:tiled=.:adju|
000003f0 73 74 3d a3 3a 73 70 6c 6f 61 64 65 64 3d a3 3a |st=.:sploaded=.:|
00000400 6d 6f 64 6c 70 74 72 3d 30 3a 63 6c 6f 63 6b 78 |modlptr=0:clockx|
00000410 25 3d 31 30 37 39 3a 63 6c 6f 63 6b 79 25 3d 31 |%=1079:clocky%=1|
00000420 30 32 33 3a 63 6c 6f 63 6b 69 6e 67 25 3d a3 3a |023:clocking%=.:|
00000430 6e 65 77 5f 61 70 70 24 3d 22 22 3a 66 69 6c 65 |new_app$="":file|
00000440 24 28 29 3d 22 22 3a 74 75 72 62 6f 25 3d a3 3a |$()="":turbo%=.:|
00000450 6c 6f 63 6b 65 64 25 3d a3 0d 00 dc 0e 24 71 25 |locked%=.....$q%|
00000460 3d 22 54 41 53 4b 22 0d 00 e6 3f c8 99 20 22 58 |="TASK"...?.. "X|
00000470 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 73 65 22 |Wimp_Initialise"|
00000480 2c 32 30 30 2c 21 71 25 2c 22 53 74 69 63 6b 79 |,200,!q%,"Sticky|
00000490 42 72 64 22 20 b8 20 77 69 6d 70 76 65 72 25 2c |Brd" . wimpver%,|
000004a0 74 61 73 6b 68 25 0d 00 f0 80 e7 20 77 69 6d 70 |taskh%..... wimp|
000004b0 76 65 72 25 3c 32 30 30 20 f2 74 65 6c 6c 65 6d |ver%<200 .tellem|
000004c0 6f 66 66 28 22 46 61 74 61 6c 20 45 72 72 6f 72 |off("Fatal Error|
000004d0 20 28 74 79 70 65 20 2d 31 29 3a 20 57 69 6d 70 | (type -1): Wimp|
000004e0 20 4d 61 6e 61 67 65 72 20 6f 75 74 20 6f 66 20 | Manager out of |
000004f0 64 61 74 65 20 28 72 65 71 75 69 72 65 73 20 32 |date (requires 2|
00000500 2e 30 30 20 6f 72 20 6c 61 74 65 72 29 22 29 3a |.00 or later)"):|
00000510 c8 99 20 22 58 57 69 6d 70 5f 43 6c 6f 73 65 44 |.. "XWimp_CloseD|
00000520 6f 77 6e 22 3a e0 0d 00 fa 25 c8 99 20 22 58 49 |own":....%.. "XI|
00000530 6e 74 65 72 66 61 63 65 5f 49 6e 69 74 69 61 6c |nterface_Initial|
00000540 69 73 65 22 2c 74 61 73 6b 68 25 0d 01 04 3b c8 |ise",taskh%...;.|
00000550 99 20 22 58 57 69 6d 70 5f 4f 70 65 6e 54 65 6d |. "XWimp_OpenTem|
00000560 70 6c 61 74 65 22 2c 2c 22 3c 53 74 69 63 6b 79 |plate",,"<Sticky|
00000570 42 72 64 52 65 73 24 44 69 72 3e 2e 54 65 6d 70 |BrdRes$Dir>.Temp|
00000580 6c 61 74 65 73 22 0d 01 0e 3d c8 99 20 22 58 57 |lates"...=.. "XW|
00000590 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 |imp_LoadTemplate|
000005a0 22 2c 2c 71 25 2c 69 6e 64 38 25 2c 69 6e 64 38 |",,q%,ind8%,ind8|
000005b0 25 2b 26 34 30 30 2c 2d 31 2c 22 63 6c 6f 63 6b |%+&400,-1,"clock|
000005c0 22 2c 30 0d 01 18 28 c8 99 20 22 58 57 69 6d 70 |",0...(.. "XWimp|
000005d0 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c |_CreateWindow",,|
000005e0 71 25 20 b8 20 63 6c 6f 63 6b 25 0d 01 22 3a c8 |q% . clock%..":.|
000005f0 99 20 22 58 57 69 6d 70 5f 4c 6f 61 64 54 65 6d |. "XWimp_LoadTem|
00000600 70 6c 61 74 65 22 2c 2c 71 25 2c 69 6e 64 25 2c |plate",,q%,ind%,|
00000610 69 6e 64 25 2b 26 34 30 30 2c 2d 31 2c 22 69 6e |ind%+&400,-1,"in|
00000620 66 6f 22 2c 30 0d 01 2c 2b c8 99 20 22 58 57 69 |fo",0..,+.. "XWi|
00000630 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 |mp_CreateWindow"|
00000640 2c 2c 71 25 20 b8 20 69 6e 66 6f 77 69 6e 64 25 |,,q% . infowind%|
00000650 0d 01 36 40 c8 99 20 22 58 57 69 6d 70 5f 4c 6f |..6@.. "XWimp_Lo|
00000660 61 64 54 65 6d 70 6c 61 74 65 22 2c 2c 71 25 2c |adTemplate",,q%,|
00000670 69 6e 64 32 25 2c 69 6e 64 32 25 2b 26 34 30 30 |ind2%,ind2%+&400|
00000680 2c 2d 31 2c 22 6d 6f 72 65 69 6e 66 6f 22 2c 30 |,-1,"moreinfo",0|
00000690 0d 01 40 2b c8 99 20 22 58 57 69 6d 70 5f 43 72 |..@+.. "XWimp_Cr|
000006a0 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c 71 25 20 |eateWindow",,q% |
000006b0 b8 20 6d 6f 72 65 69 6e 66 6f 25 0d 01 4a 41 c8 |. moreinfo%..JA.|
000006c0 99 20 22 58 57 69 6d 70 5f 4c 6f 61 64 54 65 6d |. "XWimp_LoadTem|
000006d0 70 6c 61 74 65 22 2c 2c 6d 61 69 6e 5f 77 25 2c |plate",,main_w%,|
000006e0 69 6e 64 33 25 2c 69 6e 64 33 25 2b 26 34 30 30 |ind3%,ind3%+&400|
000006f0 2c 2d 31 2c 22 6d 61 69 6e 22 2c 30 0d 01 54 2c |,-1,"main",0..T,|
00000700 c8 99 20 22 58 57 69 6d 70 5f 43 72 65 61 74 65 |.. "XWimp_Create|
00000710 57 69 6e 64 6f 77 22 2c 2c 6d 61 69 6e 5f 77 25 |Window",,main_w%|
00000720 20 b8 20 6d 61 69 6e 25 0d 01 5e 2d c8 99 20 22 | . main%..^-.. "|
00000730 58 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 |XWimp_CreateWind|
00000740 6f 77 22 2c 2c 6d 61 69 6e 5f 77 25 20 b8 20 6d |ow",,main_w% . m|
00000750 61 69 6e 31 25 0d 01 68 40 c8 99 20 22 58 57 69 |ain1%..h@.. "XWi|
00000760 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 22 |mp_LoadTemplate"|
00000770 2c 2c 71 25 2c 69 6e 64 34 25 2c 69 6e 64 34 25 |,,q%,ind4%,ind4%|
00000780 2b 26 34 30 30 2c 2d 31 2c 22 62 61 63 6b 64 72 |+&400,-1,"backdr|
00000790 6f 70 22 2c 30 0d 01 72 2b c8 99 20 22 58 57 69 |op",0..r+.. "XWi|
000007a0 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 |mp_CreateWindow"|
000007b0 2c 2c 71 25 20 b8 20 62 61 63 6b 64 72 6f 70 25 |,,q% . backdrop%|
000007c0 0d 01 7c 3e c8 99 20 22 58 57 69 6d 70 5f 4c 6f |..|>.. "XWimp_Lo|
000007d0 61 64 54 65 6d 70 6c 61 74 65 22 2c 2c 71 25 2c |adTemplate",,q%,|
000007e0 69 6e 64 35 25 2c 69 6e 64 35 25 2b 26 35 30 30 |ind5%,ind5%+&500|
000007f0 2c 2d 31 2c 22 73 61 76 65 61 73 22 2c 30 0d 01 |,-1,"saveas",0..|
00000800 86 29 c8 99 20 22 58 57 69 6d 70 5f 43 72 65 61 |.).. "XWimp_Crea|
00000810 74 65 57 69 6e 64 6f 77 22 2c 2c 71 25 20 b8 20 |teWindow",,q% . |
00000820 73 61 76 65 61 73 25 0d 01 90 3d c8 99 20 22 58 |saveas%...=.. "X|
00000830 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 |Wimp_LoadTemplat|
00000840 65 22 2c 2c 71 25 2c 69 6e 64 36 25 2c 69 6e 64 |e",,q%,ind6%,ind|
00000850 36 25 2b 26 36 30 30 2c 2d 31 2c 22 61 62 6f 75 |6%+&600,-1,"abou|
00000860 74 22 2c 30 0d 01 9a 28 c8 99 20 22 58 57 69 6d |t",0...(.. "XWim|
00000870 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 2c |p_CreateWindow",|
00000880 2c 71 25 20 b8 20 61 62 6f 75 74 25 0d 01 a4 3f |,q% . about%...?|
00000890 c8 99 20 22 58 57 69 6d 70 5f 4c 6f 61 64 54 65 |.. "XWimp_LoadTe|
000008a0 6d 70 6c 61 74 65 22 2c 2c 71 25 2c 69 6e 64 39 |mplate",,q%,ind9|
000008b0 25 2c 69 6e 64 39 25 2b 26 35 30 30 2c 2d 31 2c |%,ind9%+&500,-1,|
000008c0 22 77 61 72 6e 69 6e 67 22 2c 30 0d 01 ae 2a c8 |"warning",0...*.|
000008d0 99 20 22 58 57 69 6d 70 5f 43 72 65 61 74 65 57 |. "XWimp_CreateW|
000008e0 69 6e 64 6f 77 22 2c 2c 71 25 20 b8 20 77 61 72 |indow",,q% . war|
000008f0 6e 69 6e 67 25 0d 01 b8 40 c8 99 20 22 58 57 69 |ning%...@.. "XWi|
00000900 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 22 |mp_LoadTemplate"|
00000910 2c 2c 71 25 2c 69 6e 64 31 30 25 2c 69 6e 64 31 |,,q%,ind10%,ind1|
00000920 30 25 2b 26 34 30 30 2c 2d 31 2c 22 6c 6f 61 64 |0%+&400,-1,"load|
00000930 65 64 22 2c 30 0d 01 c2 29 c8 99 20 22 58 57 69 |ed",0...).. "XWi|
00000940 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 |mp_CreateWindow"|
00000950 2c 2c 71 25 20 b8 20 6c 6f 61 64 65 64 25 0d 01 |,,q% . loaded%..|
00000960 cc 43 c8 99 20 22 58 57 69 6d 70 5f 4c 6f 61 64 |.C.. "XWimp_Load|
00000970 54 65 6d 70 6c 61 74 65 22 2c 2c 71 25 2c 69 6e |Template",,q%,in|
00000980 64 31 34 25 2c 69 6e 64 31 34 25 2b 26 36 30 30 |d14%,ind14%+&600|
00000990 2c 2d 31 2c 22 61 62 61 63 6b 64 72 6f 70 22 2c |,-1,"abackdrop",|
000009a0 30 0d 01 d6 28 c8 99 20 22 58 57 69 6d 70 5f 43 |0...(.. "XWimp_C|
000009b0 72 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c 71 25 |reateWindow",,q%|
000009c0 20 b8 20 61 62 61 63 6b 25 0d 01 e0 42 c8 99 20 | . aback%...B.. |
000009d0 22 58 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c |"XWimp_LoadTempl|
000009e0 61 74 65 22 2c 2c 71 25 2c 69 6e 64 31 35 25 2c |ate",,q%,ind15%,|
000009f0 69 6e 64 31 35 25 2b 26 35 30 30 2c 2d 31 2c 22 |ind15%+&500,-1,"|
00000a00 63 6c 6f 63 6b 73 65 74 22 2c 30 0d 01 ea 27 c8 |clockset",0...'.|
00000a10 99 20 22 58 57 69 6d 70 5f 43 72 65 61 74 65 57 |. "XWimp_CreateW|
00000a20 69 6e 64 6f 77 22 2c 2c 71 25 20 b8 20 63 73 65 |indow",,q% . cse|
00000a30 74 25 0d 01 f4 49 c8 99 20 22 58 57 69 6d 70 5f |t%...I.. "XWimp_|
00000a40 4c 6f 61 64 54 65 6d 70 6c 61 74 65 22 2c 2c 6d |LoadTemplate",,m|
00000a50 6f 64 6c 69 6e 66 6f 25 2c 69 6e 64 31 36 25 2c |odlinfo%,ind16%,|
00000a60 69 6e 64 31 36 25 2b 26 33 35 30 2c 2d 31 2c 22 |ind16%+&350,-1,"|
00000a70 6d 6f 64 6c 69 6e 66 6f 22 2c 30 0d 01 fe 1c c8 |modlinfo",0.....|
00000a80 99 20 22 58 57 69 6d 70 5f 43 6c 6f 73 65 54 65 |. "XWimp_CloseTe|
00000a90 6d 70 6c 61 74 65 22 0d 02 08 0d f2 73 65 74 5f |mplate".....set_|
00000aa0 73 69 7a 65 0d 02 12 33 65 78 69 73 74 73 25 3d |size...3exists%=|
00000ab0 ad 28 22 3c 57 69 6d 70 24 53 63 72 61 70 3e 22 |.("<Wimp$Scrap>"|
00000ac0 29 3a e7 20 65 78 69 73 74 73 25 3e 30 20 d9 23 |):. exists%>0 .#|
00000ad0 65 78 69 73 74 73 25 0d 02 1c 28 e7 20 65 78 69 |exists%...(. exi|
00000ae0 73 74 73 25 3d 30 20 ff 28 22 43 72 65 61 74 65 |sts%=0 .("Create|
00000af0 20 3c 57 69 6d 70 24 53 63 72 61 70 3e 22 29 0d | <Wimp$Scrap>").|
00000b00 02 26 21 f2 73 65 74 5f 63 6c 6f 63 6b 5f 66 6c |.&!.set_clock_fl|
00000b10 61 67 73 28 b9 2c a3 2c a3 2c a3 2c b9 2c b9 29 |ags(.,.,.,.,.,.)|
00000b20 0d 02 30 0c f2 6d 65 6e 75 28 31 29 0d 02 3a 1c |..0..menu(1)..:.|
00000b30 f2 67 72 65 79 5f 6d 65 6e 75 28 6d 65 6e 75 25 |.grey_menu(menu%|
00000b40 2b 32 32 30 30 2c 31 29 0d 02 44 31 f2 61 73 73 |+2200,1)..D1.ass|
00000b50 65 6d 62 6c 65 3a 21 69 6e 64 5f 71 25 3d 71 25 |emble:!ind_q%=q%|
00000b60 3a 21 73 63 6c 25 3d 73 63 61 6c 65 25 3a 21 63 |:!scl%=scale%:!c|
00000b70 6f 6c 25 3d 63 6f 6c 73 25 0d 02 4e 04 0d 02 58 |ol%=cols%..N...X|
00000b80 3e f2 6f 70 65 6e 75 70 28 6d 61 69 6e 25 2c 30 |>.openup(main%,0|
00000b90 2c 77 69 6e 5f 6d 61 78 79 25 2c 77 69 6e 5f 6d |,win_maxy%,win_m|
00000ba0 61 78 78 25 2c 28 77 69 6e 5f 6d 61 78 79 25 2d |axx%,(win_maxy%-|
00000bb0 77 69 6e 5f 6d 69 6e 79 25 29 29 0d 02 62 0f 66 |win_miny%))..b.f|
00000bc0 69 72 73 74 72 75 6e 25 3d b9 0d 02 6c 0b 71 75 |irstrun%=...l.qu|
00000bd0 69 74 25 3d a3 0d 02 76 04 0d 02 80 0e ee 20 85 |it%=...v...... .|
00000be0 20 c8 8e 20 9f 20 ca 0d 02 8a 4f 20 c9 20 31 37 | .. . ....O . 17|
00000bf0 35 20 3a 20 f2 74 65 6c 6c 65 6d 6f 66 66 28 22 |5 : .tellemoff("|
00000c00 43 61 6e 6e 6f 74 20 63 6f 70 79 20 65 72 72 6f |Cannot copy erro|
00000c10 72 20 28 74 79 70 65 3d 31 29 2c 20 68 61 6e 64 |r (type=1), hand|
00000c20 6c 65 3d 22 2b c3 6d 61 69 6e 25 29 3a 61 70 70 |le="+.main%):app|
00000c30 64 61 74 61 3d a3 0d 02 94 4f 20 c9 20 32 31 34 |data=....O . 214|
00000c40 20 3a 20 f2 74 65 6c 6c 65 6d 6f 66 66 28 22 43 | : .tellemoff("C|
00000c50 61 6e 6e 6f 74 20 63 6f 70 79 20 65 72 72 6f 72 |annot copy error|
00000c60 20 28 74 79 70 65 3d 32 29 2c 20 68 61 6e 64 6c | (type=2), handl|
00000c70 65 3d 22 2b c3 6d 61 69 6e 25 29 3a 61 70 70 64 |e="+.main%):appd|
00000c80 61 74 61 3d a3 0d 02 9e d2 20 7f 20 3a 20 e7 20 |ata=..... . : . |
00000c90 a4 65 72 72 6f 72 28 22 4e 6f 6e 66 61 74 61 6c |.error("Nonfatal|
00000ca0 20 65 72 72 6f 72 3a 20 22 2b f6 24 2b 22 20 28 | error: "+.$+" (|
00000cb0 69 6e 74 65 72 6e 61 6c 20 65 72 72 6f 72 20 63 |internal error c|
00000cc0 6f 64 65 20 22 2b c3 9e 2b 22 29 2c 20 68 61 6e |ode "+..+"), han|
00000cd0 64 6c 65 3d 22 2b c3 6d 61 69 6e 25 2b 22 2c 20 |dle="+.main%+", |
00000ce0 73 70 72 69 74 65 20 61 72 65 61 20 61 74 20 22 |sprite area at "|
00000cf0 2b c3 7e 28 73 70 72 69 74 65 25 29 2b 22 20 20 |+.~(sprite%)+" |
00000d00 53 68 61 6c 6c 20 49 20 51 75 69 74 20 3f 22 2c |Shall I Quit ?",|
00000d10 33 29 3d 31 20 f2 6d 6f 64 6c 5f 71 75 69 74 3a |3)=1 .modl_quit:|
00000d20 c8 99 20 22 58 49 6e 74 65 72 66 61 63 65 5f 43 |.. "XInterface_C|
00000d30 6c 6f 73 65 44 6f 77 6e 22 2c 74 61 73 6b 68 25 |loseDown",taskh%|
00000d40 3a c8 99 20 22 58 57 69 6d 70 5f 43 6c 6f 73 65 |:.. "XWimp_Close|
00000d50 44 6f 77 6e 22 3a e0 0d 02 a8 05 cb 0d 02 b2 1b |Down":..........|
00000d60 e7 20 66 69 72 73 74 72 75 6e 25 20 f2 6c 6f 61 |. firstrun% .loa|
00000d70 64 5f 6d 6f 64 6c 73 0d 02 bc 17 c8 99 20 22 58 |d_modls...... "X|
00000d80 48 6f 75 72 67 6c 61 73 73 5f 4f 66 66 22 0d 02 |Hourglass_Off"..|
00000d90 c6 04 0d 02 d0 05 f5 0d 02 da 21 c8 99 20 22 58 |..........!.. "X|
00000da0 57 69 6d 70 5f 50 6f 6c 6c 22 2c 2c 71 25 20 b8 |Wimp_Poll",,q% .|
00000db0 20 72 65 61 73 6f 6e 25 0d 02 e4 33 c8 99 20 22 | reason%...3.. "|
00000dc0 58 49 6e 74 65 72 66 61 63 65 5f 50 72 65 50 72 |XInterface_PrePr|
00000dd0 6f 63 65 73 73 4b 65 79 22 2c 72 65 61 73 6f 6e |ocessKey",reason|
00000de0 25 2c 71 25 2c 74 61 73 6b 68 25 0d 02 ee 2a c8 |%,q%,taskh%...*.|
00000df0 99 20 22 58 49 6e 74 65 72 66 61 63 65 5f 50 6f |. "XInterface_Po|
00000e00 6c 6c 22 2c 72 65 61 73 6f 6e 25 2c 71 25 2c 74 |ll",reason%,q%,t|
00000e10 61 73 6b 68 25 0d 02 f8 10 c8 8e 20 72 65 61 73 |askh%...... reas|
00000e20 6f 6e 25 20 ca 0d 03 02 15 c9 20 31 20 20 20 20 |on% ...... 1 |
00000e30 20 3a 20 f2 72 65 64 72 61 77 0d 03 0c 27 c9 20 | : .redraw...'. |
00000e40 32 20 20 20 20 20 3a 20 c8 99 20 22 58 57 69 6d |2 : .. "XWim|
00000e50 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 71 |p_OpenWindow",,q|
00000e60 25 0d 03 16 28 c9 20 33 20 20 20 20 20 3a 20 c8 |%...(. 3 : .|
00000e70 99 20 22 58 57 69 6d 70 5f 43 6c 6f 73 65 57 69 |. "XWimp_CloseWi|
00000e80 6e 64 6f 77 22 2c 2c 71 25 0d 03 20 46 20 20 20 |ndow",,q%.. F |
00000e90 20 20 20 20 20 20 20 20 20 20 e7 20 21 71 25 3d | . !q%=|
00000ea0 62 61 63 6b 64 72 6f 70 25 20 f2 70 75 74 69 63 |backdrop% .putic|
00000eb0 6f 6e 73 70 72 69 74 65 28 62 61 63 6b 64 72 6f |onsprite(backdro|
00000ec0 70 25 2c 34 2c 22 74 6f 70 74 6f 66 66 22 29 0d |p%,4,"toptoff").|
00000ed0 03 2a 24 20 20 20 20 20 20 20 20 20 20 20 20 20 |.*$ |
00000ee0 e7 20 a6 20 b9 20 f2 69 63 6f 6e 69 73 65 28 21 |. . . .iconise(!|
00000ef0 71 25 29 0d 03 34 19 c9 20 36 20 20 20 20 20 3a |q%)..4.. 6 :|
00000f00 20 f2 63 68 65 63 6b 6d 6f 75 73 65 0d 03 3e 28 | .checkmouse..>(|
00000f10 c9 20 37 20 20 20 20 20 3a 20 73 66 24 3d a4 6c |. 7 : sf$=.l|
00000f20 61 73 74 62 69 74 28 73 66 24 29 3a f2 64 72 61 |astbit(sf$):.dra|
00000f30 67 65 6e 64 0d 03 48 1b c9 20 39 20 20 20 20 20 |gend..H.. 9 |
00000f40 3a 20 f2 70 72 6f 63 65 73 73 5f 6d 65 6e 75 0d |: .process_menu.|
00000f50 03 52 16 c9 20 31 37 2c 31 38 20 3a 20 f2 6d 65 |.R.. 17,18 : .me|
00000f60 73 73 61 67 65 0d 03 5c 17 c9 20 31 39 20 20 20 |ssage..\.. 19 |
00000f70 20 3a 20 f2 6d 65 73 73 5f 61 63 6b 0d 03 66 31 | : .mess_ack..f1|
00000f80 c9 20 30 20 20 20 20 20 3a 20 f2 75 70 64 61 74 |. 0 : .updat|
00000f90 65 5f 63 6c 6f 63 6b 3a f2 70 61 73 73 5f 6e 75 |e_clock:.pass_nu|
00000fa0 6c 6c 3a f2 74 69 74 6c 65 6d 65 6e 75 0d 03 70 |ll:.titlemenu..p|
00000fb0 05 cb 0d 03 7a 3e e7 20 66 69 72 73 74 72 75 6e |....z>. firstrun|
00000fc0 25 3d b9 20 66 69 72 73 74 72 75 6e 25 3d a3 3a |%=. firstrun%=.:|
00000fd0 f2 6f 70 65 6e 75 70 28 6c 6f 61 64 65 64 25 2c |.openup(loaded%,|
00000fe0 33 31 35 2c 36 36 32 2c 36 35 30 2c 33 30 30 29 |315,662,650,300)|
00000ff0 0d 03 84 32 e7 20 63 6c 63 6b 20 f2 6f 70 65 6e |...2. clck .open|
00001000 75 70 28 63 6c 6f 63 6b 25 2c 63 6c 6f 63 6b 78 |up(clock%,clockx|
00001010 25 2c 63 6c 6f 63 6b 79 25 2c 32 30 30 2c 32 30 |%,clocky%,200,20|
00001020 30 29 0d 03 8e 0b fd 20 71 75 69 74 25 0d 03 98 |0)..... quit%...|
00001030 24 c8 99 20 22 58 49 6e 74 65 72 66 61 63 65 5f |$.. "XInterface_|
00001040 43 6c 6f 73 65 44 6f 77 6e 22 2c 74 61 73 6b 68 |CloseDown",taskh|
00001050 25 0d 03 a2 1a c8 99 20 22 58 57 69 6d 70 5f 43 |%...... "XWimp_C|
00001060 6c 6f 73 65 44 6f 77 6e 22 3a e0 0d 03 ac 04 0d |loseDown":......|
00001070 03 b6 0e dd 20 a4 69 63 6f 6e 62 61 72 0d 03 c0 |.... .iconbar...|
00001080 08 ea 20 69 25 0d 03 ca 0b 71 25 21 30 3d 2d 31 |.. i%....q%!0=-1|
00001090 0d 03 d4 0a 71 25 21 34 3d 30 0d 03 de 0a 71 25 |....q%!4=0....q%|
000010a0 21 38 3d 30 0d 03 e8 0c 71 25 21 31 32 3d 36 38 |!8=0....q%!12=68|
000010b0 0d 03 f2 0c 71 25 21 31 36 3d 39 36 0d 03 fc 0f |....q%!16=96....|
000010c0 71 25 21 32 30 3d 26 32 30 30 32 0d 04 06 19 24 |q%!20=&2002....$|
000010d0 28 71 25 2b 32 34 29 3d 22 21 53 74 69 63 6b 79 |(q%+24)="!Sticky|
000010e0 42 72 64 22 0d 04 10 22 c8 99 20 22 58 57 69 6d |Brd"...".. "XWim|
000010f0 70 5f 43 72 65 61 74 65 49 63 6f 6e 22 2c 2c 71 |p_CreateIcon",,q|
00001100 25 20 b8 20 69 25 0d 04 1a 07 3d 69 25 0d 04 24 |% . i%....=i%..$|
00001110 04 0d 04 2e 0e dd 20 f2 6d 65 73 73 61 67 65 0d |...... .message.|
00001120 04 38 12 79 6f 75 72 5f 72 65 66 25 3d 71 25 21 |.8.your_ref%=q%!|
00001130 38 0d 04 42 11 6d 79 5f 72 65 66 25 3d 71 25 21 |8..B.my_ref%=q%!|
00001140 31 32 0d 04 4c 10 c8 8e 20 28 71 25 21 31 36 29 |12..L... (q%!16)|
00001150 20 ca 0d 04 56 16 c9 20 30 20 20 20 20 20 20 3a | ...V.. 0 :|
00001160 20 71 75 69 74 25 3d b9 0d 04 60 21 c9 20 31 20 | quit%=...`!. 1 |
00001170 20 20 20 20 20 3a 20 e7 20 71 25 21 32 30 3c 3e | : . q%!20<>|
00001180 73 61 76 65 61 73 25 20 8c 0d 04 6a 2a 20 20 20 |saveas% ...j* |
00001190 20 20 20 20 20 20 20 20 20 20 20 e7 20 61 70 70 | . app|
000011a0 64 61 74 61 3d b9 20 80 20 61 64 6a 75 73 74 3d |data=. . adjust=|
000011b0 a3 20 8c 0d 04 74 1b 20 20 20 20 20 20 20 20 20 |. ...t. |
000011c0 20 20 20 20 20 20 f2 77 61 72 6e 69 6e 67 0d 04 | .warning..|
000011d0 7e 14 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |~. |
000011e0 20 e1 0d 04 88 14 20 20 20 20 20 20 20 20 20 20 | ..... |
000011f0 20 20 20 20 20 cd 0d 04 92 46 20 20 20 20 20 20 | ....F |
00001200 20 20 20 20 20 20 20 20 c8 99 20 22 58 4f 53 5f | .. "XOS_|
00001210 52 65 61 64 56 61 72 56 61 6c 22 2c 22 57 69 6d |ReadVarVal","Wim|
00001220 70 24 53 63 72 61 70 22 2c 2c 2d 31 2c 30 2c 33 |p$Scrap",,-1,0,3|
00001230 20 b8 20 2c 2c 65 78 69 73 74 73 25 0d 04 9c 44 | . ,,exists%...D|
00001240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e7 20 | . |
00001250 65 78 69 73 74 73 25 3d 30 20 f2 74 65 6c 6c 65 |exists%=0 .telle|
00001260 6d 6f 66 66 28 22 57 69 6d 70 24 53 63 72 61 70 |moff("Wimp$Scrap|
00001270 20 6e 6f 74 20 64 65 66 69 6e 65 64 22 29 3a e1 | not defined"):.|
00001280 0d 04 a6 39 20 20 20 20 20 20 20 20 20 20 20 20 |...9 |
00001290 20 20 71 25 21 33 36 3d 2d 31 3a f2 73 74 72 69 | q%!36=-1:.stri|
000012a0 6e 67 30 28 71 25 2b 34 34 2c 22 3c 57 69 6d 70 |ng0(q%+44,"<Wimp|
000012b0 24 53 63 72 61 70 3e 22 29 0d 04 b0 2d 20 20 20 |$Scrap>")...- |
000012c0 20 20 20 20 20 20 20 20 20 20 20 21 71 25 3d 28 | !q%=(|
000012d0 34 38 2b a9 22 3c 57 69 6d 70 24 53 63 72 61 70 |48+."<Wimp$Scrap|
000012e0 3e 22 29 80 ac 33 0d 04 ba 46 20 20 20 20 20 20 |>")..3...F |
000012f0 20 20 20 20 20 20 20 20 71 25 21 31 32 3d 71 25 | q%!12=q%|
00001300 21 38 3a 71 25 21 31 36 3d 32 3a c8 99 20 22 58 |!8:q%!16=2:.. "X|
00001310 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 |Wimp_SendMessage|
00001320 22 2c 31 37 2c 71 25 2c 71 25 21 34 0d 04 c4 2a |",17,q%,q%!4...*|
00001330 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 63 | sc|
00001340 72 61 70 72 65 66 25 3d 71 25 21 38 3a 61 70 70 |rapref%=q%!8:app|
00001350 64 61 74 61 3d b9 0d 04 ce 13 20 20 20 20 20 20 |data=..... |
00001360 20 20 20 20 20 20 20 20 cd 0d 04 d8 16 c9 20 32 | ...... 2|
00001370 20 20 20 20 20 20 3a 20 f2 64 6f 73 61 76 65 0d | : .dosave.|
00001380 04 e2 12 c9 20 33 20 20 20 20 20 20 3a 20 f2 6c |.... 3 : .l|
00001390 66 0d 04 ec 19 c9 20 35 20 20 20 20 20 20 3a 20 |f..... 5 : |
000013a0 f2 69 6e 74 65 72 63 65 70 74 0d 04 f6 19 c9 20 |.intercept..... |
000013b0 38 20 20 20 20 20 20 3a 20 f2 6d 6f 64 6c 5f 71 |8 : .modl_q|
000013c0 75 69 74 0d 05 00 18 c9 20 26 35 30 32 20 20 20 |uit..... &502 |
000013d0 3a 20 f2 73 65 6e 64 68 65 6c 70 0d 05 0a 1c c9 |: .sendhelp.....|
000013e0 20 26 34 30 30 43 30 20 3a 20 f2 6d 65 6e 75 5f | &400C0 : .menu_|
000013f0 6d 65 73 73 61 67 65 0d 05 14 23 c9 20 26 34 30 |message...#. &40|
00001400 30 43 31 20 3a 20 f2 73 65 74 5f 73 69 7a 65 3a |0C1 : .set_size:|
00001410 f2 70 69 78 5f 74 72 61 6e 73 0d 05 1e 05 cb 0d |.pix_trans......|
00001420 05 28 05 e1 0d 05 32 04 0d 05 3c 35 dd 20 f2 72 |.(....2...<5. .r|
00001430 65 61 64 5f 73 69 7a 65 28 f8 20 77 69 6e 5f 6d |ead_size(. win_m|
00001440 61 78 78 25 2c f8 20 77 69 6e 5f 6d 61 78 79 25 |axx%,. win_maxy%|
00001450 2c f8 20 77 69 6e 5f 6d 69 6e 79 25 29 0d 05 46 |,. win_miny%)..F|
00001460 2b c8 99 20 22 58 4f 53 5f 52 65 61 64 4d 6f 64 |+.. "XOS_ReadMod|
00001470 65 56 61 72 69 61 62 6c 65 22 2c 2d 31 2c 34 20 |eVariable",-1,4 |
00001480 b8 20 2c 2c 65 69 67 25 0d 05 50 38 c8 99 20 22 |. ,,eig%..P8.. "|
00001490 58 4f 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 69 |XOS_ReadModeVari|
000014a0 61 62 6c 65 22 2c 2d 31 2c 31 31 20 b8 20 2c 2c |able",-1,11 . ,,|
000014b0 6c 69 6d 69 74 25 3a 6c 69 6d 69 74 25 2b 3d 31 |limit%:limit%+=1|
000014c0 0d 05 5a 1a 77 69 6e 5f 6d 61 78 78 25 3d 6c 69 |..Z.win_maxx%=li|
000014d0 6d 69 74 25 3c 3c 65 69 67 25 0d 05 64 2b c8 99 |mit%<<eig%..d+..|
000014e0 20 22 58 4f 53 5f 52 65 61 64 4d 6f 64 65 56 61 | "XOS_ReadModeVa|
000014f0 72 69 61 62 6c 65 22 2c 2d 31 2c 35 20 b8 20 2c |riable",-1,5 . ,|
00001500 2c 65 69 67 25 0d 05 6e 38 c8 99 20 22 58 4f 53 |,eig%..n8.. "XOS|
00001510 5f 52 65 61 64 4d 6f 64 65 56 61 72 69 61 62 6c |_ReadModeVariabl|
00001520 65 22 2c 2d 31 2c 31 32 20 b8 20 2c 2c 6c 69 6d |e",-1,12 . ,,lim|
00001530 69 74 25 3a 6c 69 6d 69 74 25 2b 3d 31 0d 05 78 |it%:limit%+=1..x|
00001540 1a 77 69 6e 5f 6d 61 78 79 25 3d 6c 69 6d 69 74 |.win_maxy%=limit|
00001550 25 3c 3c 65 69 67 25 0d 05 82 1b 77 69 6e 5f 6d |%<<eig%....win_m|
00001560 69 6e 79 25 3d 31 34 30 2b 28 31 3c 3c 65 69 67 |iny%=140+(1<<eig|
00001570 25 29 0d 05 8c 05 e1 0d 05 96 04 0d 05 a0 33 dd |%)............3.|
00001580 20 f2 73 65 74 5f 73 69 7a 65 3a 77 69 6e 5f 6d | .set_size:win_m|
00001590 61 78 78 25 3d 30 3a 77 69 6e 5f 6d 61 78 79 25 |axx%=0:win_maxy%|
000015a0 3d 30 3a 77 69 6e 5f 6d 69 6e 79 25 3d 30 0d 05 |=0:win_miny%=0..|
000015b0 aa 2d f2 72 65 61 64 5f 73 69 7a 65 28 77 69 6e |.-.read_size(win|
000015c0 5f 6d 61 78 78 25 2c 77 69 6e 5f 6d 61 78 79 25 |_maxx%,win_maxy%|
000015d0 2c 77 69 6e 5f 6d 69 6e 79 25 29 0d 05 b4 10 f2 |,win_miny%).....|
000015e0 73 68 75 74 28 6d 61 69 6e 25 29 0d 05 be 36 70 |shut(main%)...6p|
000015f0 6f 69 6e 74 65 72 25 21 30 3d 6d 61 69 6e 25 3a |ointer%!0=main%:|
00001600 c8 99 20 22 58 57 69 6d 70 5f 44 65 6c 65 74 65 |.. "XWimp_Delete|
00001610 57 69 6e 64 6f 77 22 2c 2c 70 6f 69 6e 74 65 72 |Window",,pointer|
00001620 25 0d 05 c8 37 70 6f 69 6e 74 65 72 25 21 30 3d |%...7pointer%!0=|
00001630 6d 61 69 6e 31 25 3a c8 99 20 22 58 57 69 6d 70 |main1%:.. "XWimp|
00001640 5f 44 65 6c 65 74 65 57 69 6e 64 6f 77 22 2c 2c |_DeleteWindow",,|
00001650 70 6f 69 6e 74 65 72 25 0d 05 d2 3a 6d 61 69 6e |pointer%...:main|
00001660 5f 77 25 21 34 34 3d 2d 28 77 69 6e 5f 6d 61 78 |_w%!44=-(win_max|
00001670 79 25 2d 77 69 6e 5f 6d 69 6e 79 25 29 3a 6d 61 |y%-win_miny%):ma|
00001680 69 6e 5f 77 25 21 34 38 3d 77 69 6e 5f 6d 61 78 |in_w%!48=win_max|
00001690 78 25 0d 05 dc 2b c8 99 20 22 57 69 6d 70 5f 43 |x%...+.. "Wimp_C|
000016a0 72 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c 6d 61 |reateWindow",,ma|
000016b0 69 6e 5f 77 25 20 b8 20 6d 61 69 6e 25 0d 05 e6 |in_w% . main%...|
000016c0 2c c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 |,.. "Wimp_Create|
000016d0 57 69 6e 64 6f 77 22 2c 2c 6d 61 69 6e 5f 77 25 |Window",,main_w%|
000016e0 20 b8 20 6d 61 69 6e 31 25 0d 05 f0 42 70 6f 69 | . main1%...Bpoi|
000016f0 6e 74 65 72 25 21 30 3d 6d 61 69 6e 25 3a 70 6f |nter%!0=main%:po|
00001700 69 6e 74 65 72 25 21 34 3d 30 3a c8 99 20 22 57 |inter%!4=0:.. "W|
00001710 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 |imp_GetIconState|
00001720 22 2c 2c 70 6f 69 6e 74 65 72 25 0d 05 fa 22 c8 |",,pointer%...".|
00001730 99 20 22 57 69 6d 70 5f 44 65 6c 65 74 65 49 63 |. "Wimp_DeleteIc|
00001740 6f 6e 22 2c 2c 70 6f 69 6e 74 65 72 25 0d 06 04 |on",,pointer%...|
00001750 44 70 6f 69 6e 74 65 72 25 21 34 3d 6d 61 69 6e |Dpointer%!4=main|
00001760 25 3a 70 6f 69 6e 74 65 72 25 21 38 3d 30 3a 70 |%:pointer%!8=0:p|
00001770 6f 69 6e 74 65 72 25 21 31 32 3d 2d 28 77 69 6e |ointer%!12=-(win|
00001780 5f 6d 61 78 79 25 2d 77 69 6e 5f 6d 69 6e 79 25 |_maxy%-win_miny%|
00001790 29 0d 06 0e 27 70 6f 69 6e 74 65 72 25 21 31 36 |)...'pointer%!16|
000017a0 3d 77 69 6e 5f 6d 61 78 78 25 3a 70 6f 69 6e 74 |=win_maxx%:point|
000017b0 65 72 25 21 32 30 3d 30 0d 06 18 24 c8 99 20 22 |er%!20=0...$.. "|
000017c0 57 69 6d 70 5f 43 72 65 61 74 65 49 63 6f 6e 22 |Wimp_CreateIcon"|
000017d0 2c 2c 70 6f 69 6e 74 65 72 25 2b 34 0d 06 22 3e |,,pointer%+4..">|
000017e0 e7 20 73 70 6c 6f 61 64 65 64 3d b9 20 80 20 74 |. sploaded=. . t|
000017f0 69 6c 65 64 3d a3 20 f2 70 75 74 69 63 6f 6e 73 |iled=. .puticons|
00001800 70 72 69 74 65 28 6d 61 69 6e 25 2c 30 2c 62 61 |prite(main%,0,ba|
00001810 63 6b 73 70 6e 61 6d 65 24 29 0d 06 2c 0e e3 20 |ckspname$)..,.. |
00001820 49 3d 30 20 b8 20 38 30 0d 06 36 14 e7 20 66 69 |I=0 . 80..6.. fi|
00001830 6c 65 24 28 49 29 3c 3e 22 22 20 8c 0d 06 40 17 |le$(I)<>"" ...@.|
00001840 20 20 73 70 6e 61 6d 65 24 3d 66 74 79 70 65 24 | spname$=ftype$|
00001850 28 49 29 0d 06 4a 31 20 20 c8 99 20 22 58 57 69 |(I)..J1 .. "XWi|
00001860 6d 70 5f 53 70 72 69 74 65 4f 70 22 2c 34 30 2c |mp_SpriteOp",40,|
00001870 2c 66 74 79 70 65 24 28 49 29 20 b8 20 3b 66 6c |,ftype$(I) . ;fl|
00001880 61 67 73 25 0d 06 54 18 20 20 e7 20 28 66 6c 61 |ags%..T. . (fla|
00001890 67 73 25 20 80 20 31 29 3d 31 20 8c 0d 06 5e 31 |gs% . 1)=1 ...^1|
000018a0 20 20 20 20 e7 20 66 69 6c 65 74 79 70 65 28 49 | . filetype(I|
000018b0 29 3d 26 32 30 30 30 20 73 70 6e 61 6d 65 24 3d |)=&2000 spname$=|
000018c0 22 61 70 70 6c 69 63 61 74 69 6f 6e 22 0d 06 68 |"application"..h|
000018d0 2f 20 20 20 20 e7 20 66 69 6c 65 74 79 70 65 28 |/ . filetype(|
000018e0 49 29 3c 3e 26 32 30 30 30 20 73 70 6e 61 6d 65 |I)<>&2000 spname|
000018f0 24 3d 22 66 69 6c 65 5f 78 78 78 22 0d 06 72 07 |$="file_xxx"..r.|
00001900 20 20 cd 0d 06 7c 44 20 20 66 67 24 3d c3 7e 28 | ...|D fg$=.~(|
00001910 66 67 29 3a 62 67 24 3d c3 7e 28 62 67 29 3a 66 |fg):bg$=.~(bg):f|
00001920 6c 61 67 24 3d 62 67 24 2b 66 67 24 2b 22 30 31 |lag$=bg$+fg$+"01|
00001930 38 30 33 39 22 3a 66 6c 61 67 3d a0 28 22 26 22 |8039":flag=.("&"|
00001940 2b 66 6c 61 67 24 29 0d 06 86 53 20 20 f2 63 72 |+flag$)...S .cr|
00001950 65 61 74 65 5f 69 63 6f 6e 28 6d 61 69 6e 25 2c |eate_icon(main%,|
00001960 30 2c 78 28 49 29 2d 35 30 2c 78 28 49 29 2b 31 |0,x(I)-50,x(I)+1|
00001970 31 35 2c 2d 28 31 30 32 34 2d 28 79 28 49 29 2d |15,-(1024-(y(I)-|
00001980 36 35 29 29 2c 36 35 2c 73 70 6e 61 6d 65 24 2c |65)),65,spname$,|
00001990 26 34 37 30 31 38 30 31 41 29 0d 06 90 2f 20 20 |&4701801A).../ |
000019a0 6e 61 6d 65 24 3d a4 6c 61 73 74 62 69 74 28 66 |name$=.lastbit(f|
000019b0 69 6c 65 24 28 49 29 29 3a 77 69 64 25 3d 28 a9 |ile$(I)):wid%=(.|
000019c0 6e 61 6d 65 24 29 2a 31 36 0d 06 9a 62 20 20 f2 |name$)*16...b .|
000019d0 63 72 65 61 74 65 5f 69 63 6f 6e 28 6d 61 69 6e |create_icon(main|
000019e0 25 2c 30 2c 28 78 28 49 29 2d 28 77 69 64 25 2f |%,0,(x(I)-(wid%/|
000019f0 32 29 29 2b 33 30 2c 28 78 28 49 29 2b 28 77 69 |2))+30,(x(I)+(wi|
00001a00 64 25 2f 32 29 29 2b 33 30 2c 2d 28 31 30 32 34 |d%/2))+30,-(1024|
00001a10 2d 28 79 28 49 29 2d 31 31 35 29 29 2c 33 36 2c |-(y(I)-115)),36,|
00001a20 6e 61 6d 65 24 2c 66 6c 61 67 29 0d 06 a4 28 20 |name$,flag)...( |
00001a30 20 f2 70 75 74 69 63 6f 6e 73 70 72 69 74 65 28 | .puticonsprite(|
00001a40 6d 61 69 6e 25 2c 69 25 2d 31 2c 73 70 6e 61 6d |main%,i%-1,spnam|
00001a50 65 24 29 0d 06 ae 05 cd 0d 06 b8 05 ed 0d 06 c2 |e$).............|
00001a60 3e f2 6f 70 65 6e 75 70 28 6d 61 69 6e 25 2c 30 |>.openup(main%,0|
00001a70 2c 77 69 6e 5f 6d 61 78 79 25 2c 77 69 6e 5f 6d |,win_maxy%,win_m|
00001a80 61 78 78 25 2c 28 77 69 6e 5f 6d 61 78 79 25 2d |axx%,(win_maxy%-|
00001a90 77 69 6e 5f 6d 69 6e 79 25 29 29 0d 06 cc 05 e1 |win_miny%)).....|
00001aa0 0d 06 d6 04 0d 06 e0 11 dd 20 f2 63 68 65 63 6b |......... .check|
00001ab0 6d 6f 75 73 65 0d 06 ea 12 68 61 6e 64 6c 65 3d |mouse....handle=|
00001ac0 28 71 25 21 31 32 29 0d 06 f4 0f 69 63 6f 6e 25 |(q%!12)....icon%|
00001ad0 3d 71 25 21 31 36 0d 06 fe 10 c8 8e 20 28 71 25 |=q%!16...... (q%|
00001ae0 21 31 32 29 20 ca 0d 07 08 12 c9 20 6d 61 69 6e |!12) ...... main|
00001af0 25 2c 6d 61 69 6e 31 25 0d 07 12 0f c8 8e 20 28 |%,main1%...... (|
00001b00 71 25 21 38 29 20 ca 0d 07 1c 36 c9 20 34 20 3a |q%!8) ....6. 4 :|
00001b10 20 e7 20 71 25 21 31 36 3e 30 20 f2 73 65 74 5f | . q%!16>0 .set_|
00001b20 69 63 6f 6e 28 71 25 21 31 32 2c 71 25 21 31 36 |icon(q%!12,q%!16|
00001b30 29 3a f2 72 75 6e 28 69 63 6f 6e 25 29 0d 07 26 |):.run(icon%)..&|
00001b40 2f c9 20 32 20 3a 20 e7 20 71 25 21 31 36 3e 30 |/. 2 : . q%!16>0|
00001b50 20 8c 3a f2 73 65 74 75 70 69 6e 66 6f 3a f2 73 | .:.setupinfo:.s|
00001b60 65 74 6d 65 6e 75 69 74 65 6d 3a cd 0d 07 30 28 |etmenuitem:...0(|
00001b70 20 20 20 20 20 20 20 20 20 e7 20 71 25 21 31 36 | . q%!16|
00001b80 3d 30 20 8c 3a f2 73 65 74 63 6c 65 61 72 6d 65 |=0 .:.setclearme|
00001b90 6e 75 3a cd 0d 07 3a 35 20 20 20 20 20 20 20 20 |nu:...:5 |
00001ba0 20 c8 99 20 22 58 57 69 6d 70 5f 43 72 65 61 74 | .. "XWimp_Creat|
00001bb0 65 4d 65 6e 75 22 2c 2c 6d 65 6e 75 25 2c 21 71 |eMenu",,menu%,!q|
00001bc0 25 2d 36 34 2c 71 25 21 34 0d 07 44 4b c9 20 26 |%-64,q%!4..DK. &|
00001bd0 31 30 20 3a 20 e7 20 71 25 21 31 36 3e 30 20 61 |10 : . q%!16>0 a|
00001be0 64 6a 75 73 74 3d b9 3a 73 66 24 3d a4 6c 61 73 |djust=.:sf$=.las|
00001bf0 74 62 69 74 28 66 69 6c 65 24 28 71 25 21 31 36 |tbit(file$(q%!16|
00001c00 29 29 3a f2 64 72 61 67 61 62 6f 75 74 28 71 25 |)):.dragabout(q%|
00001c10 21 31 36 29 0d 07 4e 4b c9 20 26 34 30 20 3a 20 |!16)..NK. &40 : |
00001c20 e7 20 71 25 21 31 36 3e 30 20 61 64 6a 75 73 74 |. q%!16>0 adjust|
00001c30 3d a3 3a 73 66 24 3d a4 6c 61 73 74 62 69 74 28 |=.:sf$=.lastbit(|
00001c40 66 69 6c 65 24 28 71 25 21 31 36 29 29 3a f2 64 |file$(q%!16)):.d|
00001c50 72 61 67 61 62 6f 75 74 28 71 25 21 31 36 29 0d |ragabout(q%!16).|
00001c60 07 58 05 cb 0d 07 62 0f c9 20 69 6e 66 6f 77 69 |.X....b.. infowi|
00001c70 6e 64 25 0d 07 6c 0f c8 8e 20 28 71 25 21 38 29 |nd%..l... (q%!8)|
00001c80 20 ca 0d 07 76 14 c9 20 34 20 3a 20 c8 8e 20 71 | ...v.. 4 : .. q|
00001c90 25 21 31 36 20 ca 0d 07 80 50 c9 20 39 20 3a 20 |%!16 ....P. 9 : |
00001ca0 f2 73 6c 61 62 69 63 6f 6e 3a c8 99 20 22 58 57 |.slabicon:.. "XW|
00001cb0 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c |imp_CreateMenu",|
00001cc0 2c 2d 31 3a f2 6f 70 65 6e 75 70 28 6d 6f 72 65 |,-1:.openup(more|
00001cd0 69 6e 66 6f 25 2c 32 34 30 2c 37 36 32 2c 38 30 |info%,240,762,80|
00001ce0 30 2c 36 30 30 29 0d 07 8a 05 cb 0d 07 94 05 cb |0,600)..........|
00001cf0 0d 07 9e 0f c9 20 62 61 63 6b 64 72 6f 70 25 0d |..... backdrop%.|
00001d00 07 a8 0f c8 8e 20 28 71 25 21 38 29 20 ca 0d 07 |..... (q%!8) ...|
00001d10 b2 14 c9 20 34 20 3a 20 c8 8e 20 71 25 21 31 36 |... 4 : .. q%!16|
00001d20 20 ca 0d 07 bc 15 c9 20 34 20 3a 20 f2 73 74 61 | ...... 4 : .sta|
00001d30 79 74 6f 67 67 6c 65 0d 07 c6 48 c9 20 35 20 3a |ytoggle...H. 5 :|
00001d40 20 f2 73 6c 61 62 69 63 6f 6e 3a f2 70 75 74 69 | .slabicon:.puti|
00001d50 63 6f 6e 73 70 72 69 74 65 28 6d 61 69 6e 25 2c |consprite(main%,|
00001d60 30 2c 22 22 29 3a 73 70 72 69 74 65 66 69 6c 65 |0,""):spritefile|
00001d70 24 3d 22 22 3a 73 70 6c 6f 61 64 65 64 3d a3 0d |$="":sploaded=..|
00001d80 07 d0 60 c9 20 36 20 3a 20 74 69 6c 65 64 3d b9 |..`. 6 : tiled=.|
00001d90 3a f2 70 75 74 69 63 6f 6e 73 70 72 69 74 65 28 |:.puticonsprite(|
00001da0 62 61 63 6b 64 72 6f 70 25 2c 36 2c 22 74 72 61 |backdrop%,6,"tra|
00001db0 64 69 6f 6f 6e 22 29 3a f2 70 75 74 69 63 6f 6e |dioon"):.puticon|
00001dc0 73 70 72 69 74 65 28 62 61 63 6b 64 72 6f 70 25 |sprite(backdrop%|
00001dd0 2c 38 2c 22 74 72 61 64 69 6f 6f 66 66 22 29 0d |,8,"tradiooff").|
00001de0 07 da 60 c9 20 38 20 3a 20 74 69 6c 65 64 3d a3 |..`. 8 : tiled=.|
00001df0 3a f2 70 75 74 69 63 6f 6e 73 70 72 69 74 65 28 |:.puticonsprite(|
00001e00 62 61 63 6b 64 72 6f 70 25 2c 36 2c 22 74 72 61 |backdrop%,6,"tra|
00001e10 64 69 6f 6f 66 66 22 29 3a f2 70 75 74 69 63 6f |diooff"):.putico|
00001e20 6e 73 70 72 69 74 65 28 62 61 63 6b 64 72 6f 70 |nsprite(backdrop|
00001e30 25 2c 38 2c 22 74 72 61 64 69 6f 6f 6e 22 29 0d |%,8,"tradioon").|
00001e40 07 e4 05 cb 0d 07 ee 05 cb 0d 07 f8 0d c9 20 73 |.............. s|
00001e50 61 76 65 61 73 25 0d 08 02 0f c8 8e 20 28 71 25 |aveas%...... (q%|
00001e60 21 38 29 20 ca 0d 08 0c 14 c9 20 34 20 3a 20 c8 |!8) ...... 4 : .|
00001e70 8e 20 71 25 21 31 36 20 ca 0d 08 16 61 c9 20 33 |. q%!16 ....a. 3|
00001e80 20 3a 20 f2 73 6c 61 62 69 63 6f 6e 3a f2 73 68 | : .slabicon:.sh|
00001e90 75 74 28 73 61 76 65 61 73 25 29 3a 73 66 24 3d |ut(saveas%):sf$=|
00001ea0 a4 74 72 61 6e 73 28 22 53 74 69 63 6b 79 42 72 |.trans("StickyBr|
00001eb0 64 44 65 73 6b 74 6f 70 24 44 69 72 22 29 2b 22 |dDesktop$Dir")+"|
00001ec0 2e 22 2b a4 67 65 74 69 63 6f 6e 64 61 74 61 28 |."+.geticondata(|
00001ed0 73 61 76 65 61 73 25 2c 32 29 0d 08 20 1e 20 20 |saveas%,2).. . |
00001ee0 20 20 20 20 20 20 20 f2 6c 6f 61 64 5f 6e 65 77 | .load_new|
00001ef0 5f 64 65 73 6b 74 6f 70 0d 08 2a 61 c9 20 34 20 |_desktop..*a. 4 |
00001f00 3a 20 f2 73 6c 61 62 69 63 6f 6e 3a f2 73 68 75 |: .slabicon:.shu|
00001f10 74 28 73 61 76 65 61 73 25 29 3a 73 66 24 3d a4 |t(saveas%):sf$=.|
00001f20 74 72 61 6e 73 28 22 53 74 69 63 6b 79 42 72 64 |trans("StickyBrd|
00001f30 44 65 73 6b 74 6f 70 24 44 69 72 22 29 2b 22 2e |Desktop$Dir")+".|
00001f40 22 2b a4 67 65 74 69 63 6f 6e 64 61 74 61 28 73 |"+.geticondata(s|
00001f50 61 76 65 61 73 25 2c 32 29 0d 08 34 17 20 20 20 |aveas%,2)..4. |
00001f60 20 20 20 20 20 20 f2 73 61 76 65 5f 64 69 73 63 | .save_disc|
00001f70 0d 08 3e 05 cb 0d 08 48 05 cb 0d 08 52 0f c9 20 |..>....H....R.. |
00001f80 6d 6f 72 65 69 6e 66 6f 25 0d 08 5c 0d c8 8e 20 |moreinfo%..\... |
00001f90 71 25 21 38 20 ca 0d 08 66 14 c9 20 34 20 3a 20 |q%!8 ...f.. 4 : |
00001fa0 c8 8e 20 71 25 21 31 36 20 ca 0d 08 70 40 20 c9 |.. q%!16 ...p@ .|
00001fb0 20 31 34 20 3a 20 f2 73 6c 61 62 69 63 6f 6e 3a | 14 : .slabicon:|
00001fc0 f2 73 68 75 74 28 6d 6f 72 65 69 6e 66 6f 25 29 |.shut(moreinfo%)|
00001fd0 3a e7 20 a6 20 b9 20 f2 69 63 6f 6e 69 73 65 28 |:. . . .iconise(|
00001fe0 6d 6f 72 65 69 6e 66 6f 25 29 0d 08 7a 05 cb 0d |moreinfo%)..z...|
00001ff0 08 84 05 cb 0d 08 8e 0e c9 20 77 61 72 6e 69 6e |......... warnin|
00002000 67 25 0d 08 98 0d c8 8e 20 71 25 21 38 20 ca 0d |g%...... q%!8 ..|
00002010 08 a2 15 20 c9 20 34 20 3a 20 c8 8e 20 71 25 21 |... . 4 : .. q%!|
00002020 31 36 20 ca 0d 08 ac 25 20 20 c9 20 34 20 3a 20 |16 ....% . 4 : |
00002030 f2 73 6c 61 62 69 63 6f 6e 3a f2 73 68 75 74 28 |.slabicon:.shut(|
00002040 77 61 72 6e 69 6e 67 25 29 0d 08 b6 2f 20 20 c9 |warning%).../ .|
00002050 20 35 20 3a 20 f2 73 6c 61 62 69 63 6f 6e 3a f2 | 5 : .slabicon:.|
00002060 73 68 75 74 28 77 61 72 6e 69 6e 67 25 29 3a 61 |shut(warning%):a|
00002070 70 70 64 61 74 61 3d 30 0d 08 c0 06 20 cb 0d 08 |ppdata=0.... ...|
00002080 ca 05 cb 0d 08 d4 0d c9 20 6c 6f 61 64 65 64 25 |........ loaded%|
00002090 0d 08 de 0d c8 8e 20 71 25 21 38 20 ca 0d 08 e8 |...... q%!8 ....|
000020a0 15 20 c9 20 34 20 3a 20 c8 8e 20 71 25 21 31 36 |. . 4 : .. q%!16|
000020b0 20 ca 0d 08 f2 24 20 20 c9 20 35 20 3a 20 f2 73 | ....$ . 5 : .s|
000020c0 6c 61 62 69 63 6f 6e 3a f2 73 68 75 74 28 6c 6f |labicon:.shut(lo|
000020d0 61 64 65 64 25 29 0d 08 fc 47 20 20 c9 20 36 20 |aded%)...G . 6 |
000020e0 3a 20 f2 73 6c 61 62 69 63 6f 6e 3a f2 73 68 75 |: .slabicon:.shu|
000020f0 74 28 6c 6f 61 64 65 64 25 29 3a ff 20 22 57 69 |t(loaded%):. "Wi|
00002100 6d 70 54 61 73 6b 20 3c 53 74 69 63 6b 79 42 72 |mpTask <StickyBr|
00002110 64 24 44 69 72 3e 2e 21 48 65 6c 70 22 0d 09 06 |d$Dir>.!Help"...|
00002120 06 20 cb 0d 09 10 05 cb 0d 09 1a 0b c9 20 63 73 |. ........... cs|
00002130 65 74 25 0d 09 24 0d c8 8e 20 71 25 21 38 20 ca |et%..$... q%!8 .|
00002140 0d 09 2e 15 20 c9 20 34 20 3a 20 c8 8e 20 71 25 |.... . 4 : .. q%|
00002150 21 31 36 20 ca 0d 09 38 14 20 20 c9 20 34 20 3a |!16 ...8. . 4 :|
00002160 20 f2 61 64 64 68 28 32 29 0d 09 42 14 20 20 c9 | .addh(2)..B. .|
00002170 20 35 20 3a 20 f2 73 75 62 68 28 32 29 0d 09 4c | 5 : .subh(2)..L|
00002180 14 20 20 c9 20 36 20 3a 20 f2 61 64 64 6d 28 33 |. . 6 : .addm(3|
00002190 29 0d 09 56 14 20 20 c9 20 37 20 3a 20 f2 73 75 |)..V. . 7 : .su|
000021a0 62 6d 28 33 29 0d 09 60 4b 20 20 c9 20 38 20 3a |bm(3)..`K . 8 :|
000021b0 20 f2 73 6c 61 62 69 63 6f 6e 3a f2 73 65 74 74 | .slabicon:.sett|
000021c0 69 6d 65 28 a4 67 65 74 69 63 6f 6e 64 61 74 61 |ime(.geticondata|
000021d0 28 63 73 65 74 25 2c 32 29 2c a4 67 65 74 69 63 |(cset%,2),.getic|
000021e0 6f 6e 64 61 74 61 28 63 73 65 74 25 2c 33 29 29 |ondata(cset%,3))|
000021f0 0d 09 6a 06 20 cb 0d 09 74 05 cb 0d 09 7e 0c c9 |..j. ...t....~..|
00002200 20 63 6c 6f 63 6b 25 0d 09 88 0d c8 8e 20 71 25 | clock%...... q%|
00002210 21 38 20 ca 0d 09 92 2f 20 c9 20 34 2c 31 20 3a |!8 ..../ . 4,1 :|
00002220 20 f2 73 61 76 65 64 72 61 67 62 6f 78 28 63 6c | .savedragbox(cl|
00002230 6f 63 6b 25 2c 30 29 3a 63 6c 6f 63 6b 69 6e 67 |ock%,0):clocking|
00002240 25 3d b9 0d 09 9c 05 cb 0d 09 a6 27 7f 20 3a 20 |%=.........'. : |
00002250 f2 6d 6f 64 6c 5f 6d 63 6c 69 63 6b 28 68 61 6e |.modl_mclick(han|
00002260 64 6c 65 2c 69 63 6f 6e 25 2c 71 25 21 38 29 0d |dle,icon%,q%!8).|
00002270 09 b0 05 cb 0d 09 ba 05 e1 0d 09 c4 04 0d 09 ce |................|
00002280 11 dd 20 f2 6d 65 6e 75 28 66 76 61 72 29 0d 09 |.. .menu(fvar)..|
00002290 d8 13 ea 20 66 67 24 2c 62 67 24 2c 66 6c 61 67 |... fg$,bg$,flag|
000022a0 24 0d 09 e2 0f 6d 62 6c 6b 25 3d 6d 65 6e 75 25 |$....mblk%=menu%|
000022b0 0d 09 ec 12 66 6c 61 67 73 3d 26 37 30 30 30 30 |....flags=&70000|
000022c0 32 31 0d 09 f6 16 e7 20 66 76 61 72 3d 31 20 66 |21..... fvar=1 f|
000022d0 67 3d 37 3a 62 67 3d 34 0d 0a 00 19 66 67 24 3d |g=7:bg=4....fg$=|
000022e0 c3 7e 28 66 67 29 3a 62 67 24 3d c3 7e 28 62 67 |.~(fg):bg$=.~(bg|
000022f0 29 0d 0a 0a 34 66 6c 61 67 24 3d 62 67 24 2b a4 |)...4flag$=bg$+.|
00002300 66 67 63 6f 6c 28 62 67 29 2b 22 30 30 30 31 32 |fgcol(bg)+"00012|
00002310 31 22 3a 62 66 6c 61 67 3d a0 28 22 26 22 2b 66 |1":bflag=.("&"+f|
00002320 6c 61 67 24 29 0d 0a 14 34 66 6c 61 67 24 3d 66 |lag$)...4flag$=f|
00002330 67 24 2b a4 66 67 63 6f 6c 28 66 67 29 2b 22 30 |g$+.fgcol(fg)+"0|
00002340 30 30 31 32 31 22 3a 66 66 6c 61 67 3d a0 28 22 |00121":fflag=.("|
00002350 26 22 2b 66 6c 61 67 24 29 0d 0a 1e 1f e7 20 66 |&"+flag$)..... f|
00002360 76 61 72 3d 31 20 24 6f 62 6a 65 63 74 25 3d 22 |var=1 $object%="|
00002370 46 69 6c 65 20 27 27 22 0d 0a 28 27 e7 20 66 76 |File ''"..('. fv|
00002380 61 72 3d 31 20 24 6f 70 65 6e 70 61 72 65 6e 74 |ar=1 $openparent|
00002390 25 3d 22 4f 70 65 6e 20 50 61 72 65 6e 74 22 0d |%="Open Parent".|
000023a0 0a 32 24 e7 20 66 76 61 72 3d 31 20 24 66 67 62 |.2$. fvar=1 $fgb|
000023b0 25 3d 22 54 65 78 74 20 46 6f 72 65 67 72 6f 75 |%="Text Foregrou|
000023c0 6e 64 22 0d 0a 3c 24 e7 20 66 76 61 72 3d 31 20 |nd"..<$. fvar=1 |
000023d0 24 62 67 62 25 3d 22 54 65 78 74 20 42 61 63 6b |$bgb%="Text Back|
000023e0 67 72 6f 75 6e 64 22 0d 0a 46 1b f2 68 65 61 64 |ground"..F..head|
000023f0 65 72 28 22 53 74 69 63 6b 79 42 72 64 22 2c 31 |er("StickyBrd",1|
00002400 38 29 0d 0a 50 26 f2 65 6e 74 72 79 28 26 30 32 |8)..P&.entry(&02|
00002410 2c 6d 65 6e 75 25 2b 34 30 30 2c 66 6c 61 67 73 |,menu%+400,flags|
00002420 2c 22 4d 69 73 63 22 29 0d 0a 5a 2e f2 69 6e 64 |,"Misc")..Z..ind|
00002430 69 72 65 63 74 28 26 30 30 2c 6d 65 6e 75 25 2b |irect(&00,menu%+|
00002440 33 30 30 2c 26 30 37 30 30 30 31 32 31 2c 6f 62 |300,&07000121,ob|
00002450 6a 65 63 74 25 29 0d 0a 64 2b f2 65 6e 74 72 79 |ject%)..d+.entry|
00002460 28 26 30 30 2c 6d 65 6e 75 25 2b 31 39 30 30 2c |(&00,menu%+1900,|
00002470 66 6c 61 67 73 2c 22 42 61 63 6b 64 72 6f 70 22 |flags,"Backdrop"|
00002480 29 0d 0a 6e 24 f2 65 6e 74 72 79 28 26 30 30 2c |)..n$.entry(&00,|
00002490 2d 31 2c 66 6c 61 67 73 2c 22 43 6c 65 61 72 20 |-1,flags,"Clear |
000024a0 41 6c 6c 22 29 0d 0a 78 29 f2 65 6e 74 72 79 28 |All")..x).entry(|
000024b0 26 30 30 2c 6d 65 6e 75 25 2b 35 30 30 2c 66 6c |&00,menu%+500,fl|
000024c0 61 67 73 2c 22 43 6f 6c 6f 75 72 73 22 29 0d 0a |ags,"Colours")..|
000024d0 82 2a f2 65 6e 74 72 79 28 26 30 30 2c 6d 65 6e |.*.entry(&00,men|
000024e0 75 25 2b 31 36 30 30 2c 66 6c 61 67 73 2c 22 4f |u%+1600,flags,"O|
000024f0 70 74 69 6f 6e 73 22 29 0d 0a 8c 29 f2 65 6e 74 |ptions")...).ent|
00002500 72 79 28 26 30 32 2c 6d 6f 64 6c 6d 65 6e 75 25 |ry(&02,modlmenu%|
00002510 2c 66 6c 61 67 73 2c 22 4d 6f 64 75 6c 65 73 22 |,flags,"Modules"|
00002520 29 0d 0a 96 1f f2 65 6e 74 72 79 28 26 38 30 2c |).....entry(&80,|
00002530 2d 31 2c 66 6c 61 67 73 2c 22 51 75 69 74 22 29 |-1,flags,"Quit")|
00002540 0d 0a a0 23 e7 20 6d 6f 64 6c 70 74 72 3d 30 20 |...#. modlptr=0 |
00002550 f2 67 72 65 79 5f 6d 65 6e 75 28 6d 65 6e 75 25 |.grey_menu(menu%|
00002560 2c 36 29 0d 0a aa 13 6d 62 6c 6b 25 3d 6d 65 6e |,6)....mblk%=men|
00002570 75 25 2b 33 30 30 0d 0a b4 18 f2 68 65 61 64 65 |u%+300.....heade|
00002580 72 28 22 4f 62 6a 65 63 74 22 2c 31 32 29 0d 0a |r("Object",12)..|
00002590 be 23 f2 65 6e 74 72 79 28 26 30 30 2c 61 62 6f |.#.entry(&00,abo|
000025a0 75 74 25 2c 66 6c 61 67 73 2c 22 49 6e 66 6f 22 |ut%,flags,"Info"|
000025b0 29 0d 0a c8 21 f2 65 6e 74 72 79 28 26 30 30 2c |)...!.entry(&00,|
000025c0 2d 31 2c 66 6c 61 67 73 2c 22 52 65 6d 6f 76 65 |-1,flags,"Remove|
000025d0 22 29 0d 0a d2 2b f2 69 6e 64 69 72 65 63 74 28 |")...+.indirect(|
000025e0 26 38 30 2c 2d 31 2c 26 30 37 30 30 30 31 32 31 |&80,-1,&07000121|
000025f0 2c 6f 70 65 6e 70 61 72 65 6e 74 25 29 0d 0a dc |,openparent%)...|
00002600 13 6d 62 6c 6b 25 3d 6d 65 6e 75 25 2b 34 30 30 |.mblk%=menu%+400|
00002610 0d 0a e6 15 f2 68 65 61 64 65 72 28 22 4d 69 73 |.....header("Mis|
00002620 63 22 2c 39 29 0d 0a f0 26 f2 65 6e 74 72 79 28 |c",9)...&.entry(|
00002630 26 30 30 2c 69 6e 66 6f 77 69 6e 64 25 2c 66 6c |&00,infowind%,fl|
00002640 61 67 73 2c 22 49 6e 66 6f 22 29 0d 0a fa 23 f2 |ags,"Info")...#.|
00002650 65 6e 74 72 79 28 26 30 30 2c 61 62 6f 75 74 25 |entry(&00,about%|
00002660 2c 66 6c 61 67 73 2c 22 46 69 6c 65 22 29 0d 0b |,flags,"File")..|
00002670 04 27 f2 65 6e 74 72 79 28 26 38 30 2c 73 61 76 |.'.entry(&80,sav|
00002680 65 61 73 25 2c 66 6c 61 67 73 2c 22 44 65 73 6b |eas%,flags,"Desk|
00002690 74 6f 70 22 29 0d 0b 0e 13 6d 62 6c 6b 25 3d 6d |top")....mblk%=m|
000026a0 65 6e 75 25 2b 35 30 30 0d 0b 18 19 f2 68 65 61 |enu%+500.....hea|
000026b0 64 65 72 28 22 43 6f 6c 6f 75 72 73 22 2c 31 36 |der("Colours",16|
000026c0 29 0d 0b 22 27 f2 69 6e 64 69 72 65 63 74 28 26 |).."'.indirect(&|
000026d0 30 30 2c 6d 65 6e 75 25 2b 36 30 30 2c 66 66 6c |00,menu%+600,ffl|
000026e0 61 67 2c 66 67 62 25 29 0d 0b 2c 28 f2 69 6e 64 |ag,fgb%)..,(.ind|
000026f0 69 72 65 63 74 28 26 38 30 2c 6d 65 6e 75 25 2b |irect(&80,menu%+|
00002700 31 31 30 30 2c 62 66 6c 61 67 2c 62 67 62 25 29 |1100,bflag,bgb%)|
00002710 0d 0b 36 13 6d 62 6c 6b 25 3d 6d 65 6e 75 25 2b |..6.mblk%=menu%+|
00002720 36 30 30 0d 0b 40 17 f2 68 65 61 64 65 72 28 22 |600..@..header("|
00002730 43 6f 6c 6f 75 72 22 2c 34 29 0d 0b 4a 20 f2 65 |Colour",4)..J .e|
00002740 6e 74 72 79 28 26 30 30 2c 2d 31 2c 26 30 37 30 |ntry(&00,-1,&070|
00002750 30 30 30 31 39 2c 22 30 22 29 0d 0b 54 20 f2 65 |00019,"0")..T .e|
00002760 6e 74 72 79 28 26 30 30 2c 2d 31 2c 26 31 37 30 |ntry(&00,-1,&170|
00002770 30 30 30 31 39 2c 22 31 22 29 0d 0b 5e 20 f2 65 |00019,"1")..^ .e|
00002780 6e 74 72 79 28 26 30 30 2c 2d 31 2c 26 32 37 30 |ntry(&00,-1,&270|
00002790 30 30 30 31 39 2c 22 32 22 29 0d 0b 68 20 f2 65 |00019,"2")..h .e|
000027a0 6e 74 72 79 28 26 30 30 2c 2d 31 2c 26 33 30 30 |ntry(&00,-1,&300|
000027b0 30 30 30 31 39 2c 22 33 22 29 0d 0b 72 20 f2 65 |00019,"3")..r .e|
000027c0 6e 74 72 79 28 26 30 30 2c 2d 31 2c 26 34 30 30 |ntry(&00,-1,&400|
000027d0 30 30 30 31 39 2c 22 34 22 29 0d 0b 7c 20 f2 65 |00019,"4")..| .e|
000027e0 6e 74 72 79 28 26 30 30 2c 2d 31 2c 26 35 30 30 |ntry(&00,-1,&500|
000027f0 30 30 30 31 39 2c 22 35 22 29 0d 0b 86 20 f2 65 |00019,"5")... .e|
00002800 6e 74 72 79 28 26 30 30 2c 2d 31 2c 26 36 30 30 |ntry(&00,-1,&600|
00002810 30 30 30 31 39 2c 22 36 22 29 0d 0b 90 20 f2 65 |00019,"6")... .e|
00002820 6e 74 72 79 28 26 30 30 2c 2d 31 2c 26 37 30 30 |ntry(&00,-1,&700|
00002830 30 30 30 31 39 2c 22 37 22 29 0d 0b 9a 20 f2 65 |00019,"7")... .e|
00002840 6e 74 72 79 28 26 30 30 2c 2d 31 2c 26 38 30 30 |ntry(&00,-1,&800|
00002850 30 30 30 31 39 2c 22 38 22 29 0d 0b a4 20 f2 65 |00019,"8")... .e|
00002860 6e 74 72 79 28 26 30 30 2c 2d 31 2c 26 39 37 30 |ntry(&00,-1,&970|
00002870 30 30 30 31 39 2c 22 39 22 29 0d 0b ae 21 f2 65 |00019,"9")...!.e|
00002880 6e 74 72 79 28 26 30 30 2c 2d 31 2c 26 41 30 30 |ntry(&00,-1,&A00|
00002890 30 30 30 31 39 2c 22 31 30 22 29 0d 0b b8 21 f2 |00019,"10")...!.|
000028a0 65 6e 74 72 79 28 26 30 30 2c 2d 31 2c 26 42 30 |entry(&00,-1,&B0|
000028b0 30 30 30 30 31 39 2c 22 31 31 22 29 0d 0b c2 21 |000019,"11")...!|
000028c0 f2 65 6e 74 72 79 28 26 30 30 2c 2d 31 2c 26 43 |.entry(&00,-1,&C|
000028d0 37 30 30 30 30 31 39 2c 22 31 32 22 29 0d 0b cc |7000019,"12")...|
000028e0 21 f2 65 6e 74 72 79 28 26 30 30 2c 2d 31 2c 26 |!.entry(&00,-1,&|
000028f0 44 30 30 30 30 30 31 39 2c 22 31 33 22 29 0d 0b |D0000019,"13")..|
00002900 d6 21 f2 65 6e 74 72 79 28 26 30 30 2c 2d 31 2c |.!.entry(&00,-1,|
00002910 26 45 37 30 30 30 30 31 39 2c 22 31 34 22 29 0d |&E7000019,"14").|
00002920 0b e0 21 f2 65 6e 74 72 79 28 26 38 30 2c 2d 31 |..!.entry(&80,-1|
00002930 2c 26 46 37 30 30 30 30 31 39 2c 22 31 35 22 29 |,&F7000019,"15")|
00002940 0d 0b ea 1c f4 20 70 68 65 77 21 20 61 6e 64 20 |..... phew! and |
00002950 6e 6f 77 20 61 67 61 69 6e 2e 2e 2e 0d 0b f4 14 |now again.......|
00002960 6d 62 6c 6b 25 3d 6d 65 6e 75 25 2b 31 31 30 30 |mblk%=menu%+1100|
00002970 0d 0b fe 17 f2 68 65 61 64 65 72 28 22 43 6f 6c |.....header("Col|
00002980 6f 75 72 22 2c 34 29 0d 0c 08 10 f4 20 68 65 72 |our",4)..... her|
00002990 65 20 77 65 20 67 6f 0d 0c 12 20 f2 65 6e 74 72 |e we go... .entr|
000029a0 79 28 26 30 30 2c 2d 31 2c 26 30 37 30 30 30 30 |y(&00,-1,&070000|
000029b0 31 39 2c 22 30 22 29 0d 0c 1c 20 f2 65 6e 74 72 |19,"0")... .entr|
000029c0 79 28 26 30 30 2c 2d 31 2c 26 31 37 30 30 30 30 |y(&00,-1,&170000|
000029d0 31 39 2c 22 31 22 29 0d 0c 26 20 f2 65 6e 74 72 |19,"1")..& .entr|
000029e0 79 28 26 30 30 2c 2d 31 2c 26 32 37 30 30 30 30 |y(&00,-1,&270000|
000029f0 31 39 2c 22 32 22 29 0d 0c 30 20 f2 65 6e 74 72 |19,"2")..0 .entr|
00002a00 79 28 26 30 30 2c 2d 31 2c 26 33 30 30 30 30 30 |y(&00,-1,&300000|
00002a10 31 39 2c 22 33 22 29 0d 0c 3a 20 f2 65 6e 74 72 |19,"3")..: .entr|
00002a20 79 28 26 30 30 2c 2d 31 2c 26 34 30 30 30 30 30 |y(&00,-1,&400000|
00002a30 31 39 2c 22 34 22 29 0d 0c 44 20 f2 65 6e 74 72 |19,"4")..D .entr|
00002a40 79 28 26 30 30 2c 2d 31 2c 26 35 30 30 30 30 30 |y(&00,-1,&500000|
00002a50 31 39 2c 22 35 22 29 0d 0c 4e 20 f2 65 6e 74 72 |19,"5")..N .entr|
00002a60 79 28 26 30 30 2c 2d 31 2c 26 36 30 30 30 30 30 |y(&00,-1,&600000|
00002a70 31 39 2c 22 36 22 29 0d 0c 58 20 f2 65 6e 74 72 |19,"6")..X .entr|
00002a80 79 28 26 30 30 2c 2d 31 2c 26 37 30 30 30 30 30 |y(&00,-1,&700000|
00002a90 31 39 2c 22 37 22 29 0d 0c 62 20 f2 65 6e 74 72 |19,"7")..b .entr|
00002aa0 79 28 26 30 30 2c 2d 31 2c 26 38 30 30 30 30 30 |y(&00,-1,&800000|
00002ab0 31 39 2c 22 38 22 29 0d 0c 6c 20 f2 65 6e 74 72 |19,"8")..l .entr|
00002ac0 79 28 26 30 30 2c 2d 31 2c 26 39 37 30 30 30 30 |y(&00,-1,&970000|
00002ad0 31 39 2c 22 39 22 29 0d 0c 76 21 f2 65 6e 74 72 |19,"9")..v!.entr|
00002ae0 79 28 26 30 30 2c 2d 31 2c 26 41 30 30 30 30 30 |y(&00,-1,&A00000|
00002af0 31 39 2c 22 31 30 22 29 0d 0c 80 21 f2 65 6e 74 |19,"10")...!.ent|
00002b00 72 79 28 26 30 30 2c 2d 31 2c 26 42 30 30 30 30 |ry(&00,-1,&B0000|
00002b10 30 31 39 2c 22 31 31 22 29 0d 0c 8a 21 f2 65 6e |019,"11")...!.en|
00002b20 74 72 79 28 26 30 30 2c 2d 31 2c 26 43 37 30 30 |try(&00,-1,&C700|
00002b30 30 30 31 39 2c 22 31 32 22 29 0d 0c 94 21 f2 65 |0019,"12")...!.e|
00002b40 6e 74 72 79 28 26 30 30 2c 2d 31 2c 26 44 30 30 |ntry(&00,-1,&D00|
00002b50 30 30 30 31 39 2c 22 31 33 22 29 0d 0c 9e 21 f2 |00019,"13")...!.|
00002b60 65 6e 74 72 79 28 26 30 30 2c 2d 31 2c 26 45 37 |entry(&00,-1,&E7|
00002b70 30 30 30 30 31 39 2c 22 31 34 22 29 0d 0c a8 21 |000019,"14")...!|
00002b80 f2 65 6e 74 72 79 28 26 38 30 2c 2d 31 2c 26 46 |.entry(&80,-1,&F|
00002b90 37 30 30 30 30 31 39 2c 22 31 35 22 29 0d 0c b2 |7000019,"15")...|
00002ba0 1b f2 77 69 6d 70 5f 74 69 63 6b 28 6d 65 6e 75 |..wimp_tick(menu|
00002bb0 25 2b 36 30 30 2c 37 29 0d 0c bc 1c f2 77 69 6d |%+600,7).....wim|
00002bc0 70 5f 74 69 63 6b 28 6d 65 6e 75 25 2b 31 31 30 |p_tick(menu%+110|
00002bd0 30 2c 34 29 0d 0c c6 14 6d 62 6c 6b 25 3d 6d 65 |0,4)....mblk%=me|
00002be0 6e 75 25 2b 31 36 30 30 0d 0c d0 19 f2 68 65 61 |nu%+1600.....hea|
00002bf0 64 65 72 28 22 4f 70 74 69 6f 6e 73 22 2c 31 33 |der("Options",13|
00002c00 29 0d 0c da 1f f2 65 6e 74 72 79 28 26 30 30 2c |).....entry(&00,|
00002c10 2d 31 2c 66 6c 61 67 73 2c 22 48 69 64 65 22 29 |-1,flags,"Hide")|
00002c20 0d 0c e4 22 f2 65 6e 74 72 79 28 26 30 32 2c 2d |...".entry(&02,-|
00002c30 31 2c 66 6c 61 67 73 2c 22 52 65 73 74 6f 72 65 |1,flags,"Restore|
00002c40 22 29 0d 0c ee 2d f2 65 6e 74 72 79 28 26 30 30 |")...-.entry(&00|
00002c50 2d 63 6c 63 6b 2c 6d 65 6e 75 25 2b 32 31 30 30 |-clck,menu%+2100|
00002c60 2c 66 6c 61 67 73 2c 22 43 6c 6f 63 6b 22 29 0d |,flags,"Clock").|
00002c70 0c f8 21 f2 65 6e 74 72 79 28 26 30 30 2c 2d 31 |..!.entry(&00,-1|
00002c80 2c 66 6c 61 67 73 2c 22 55 70 64 61 74 65 22 29 |,flags,"Update")|
00002c90 0d 0d 02 29 f2 65 6e 74 72 79 28 26 38 30 2d 6c |...).entry(&80-l|
00002ca0 6f 63 6b 65 64 25 2c 2d 31 2c 66 6c 61 67 73 2c |ocked%,-1,flags,|
00002cb0 22 4c 6f 63 6b 65 64 22 29 0d 0d 0c 14 6d 62 6c |"Locked")....mbl|
00002cc0 6b 25 3d 6d 65 6e 75 25 2b 31 39 30 30 0d 0d 16 |k%=menu%+1900...|
00002cd0 19 f2 68 65 61 64 65 72 28 22 42 61 63 6b 64 72 |..header("Backdr|
00002ce0 6f 70 22 2c 39 29 0d 0d 20 26 f2 65 6e 74 72 79 |op",9).. &.entry|
00002cf0 28 26 30 30 2c 62 61 63 6b 64 72 6f 70 25 2c 66 |(&00,backdrop%,f|
00002d00 6c 61 67 73 2c 22 4c 6f 61 64 22 29 0d 0d 2a 23 |lags,"Load")..*#|
00002d10 f2 65 6e 74 72 79 28 26 30 30 2c 61 62 61 63 6b |.entry(&00,aback|
00002d20 25 2c 66 6c 61 67 73 2c 22 49 6e 66 6f 22 29 0d |%,flags,"Info").|
00002d30 0d 34 22 f2 65 6e 74 72 79 28 26 30 30 2c 2d 31 |.4".entry(&00,-1|
00002d40 2c 66 6c 61 67 73 2c 22 52 65 73 74 6f 72 65 22 |,flags,"Restore"|
00002d50 29 0d 0d 3e 27 f2 65 6e 74 72 79 28 26 38 30 2d |)..>'.entry(&80-|
00002d60 74 75 72 62 6f 25 2c 2d 31 2c 66 6c 61 67 73 2c |turbo%,-1,flags,|
00002d70 22 54 75 72 62 6f 22 29 0d 0d 48 14 6d 62 6c 6b |"Turbo")..H.mblk|
00002d80 25 3d 6d 65 6e 75 25 2b 32 31 30 30 0d 0d 52 16 |%=menu%+2100..R.|
00002d90 f2 68 65 61 64 65 72 28 22 43 6c 6f 63 6b 22 2c |.header("Clock",|
00002da0 39 29 0d 0d 5c 2a f2 65 6e 74 72 79 28 26 30 30 |9)..\*.entry(&00|
00002db0 2d 65 6d 62 6f 73 73 2c 2d 31 2c 66 6c 61 67 73 |-emboss,-1,flags|
00002dc0 2c 22 45 6d 62 6f 73 73 65 64 22 29 0d 0d 66 2a |,"Embossed")..f*|
00002dd0 f2 65 6e 74 72 79 28 26 30 30 2d 72 65 63 65 73 |.entry(&00-reces|
00002de0 73 2c 2d 31 2c 66 6c 61 67 73 2c 22 52 65 63 65 |s,-1,flags,"Rece|
00002df0 73 73 65 64 22 29 0d 0d 70 2a f2 65 6e 74 72 79 |ssed")..p*.entry|
00002e00 28 26 30 32 2d 62 6f 72 64 65 72 2c 2d 31 2c 66 |(&02-border,-1,f|
00002e10 6c 61 67 73 2c 22 42 6f 72 64 65 72 65 64 22 29 |lags,"Bordered")|
00002e20 0d 0d 7a 27 f2 65 6e 74 72 79 28 26 30 30 2d 74 |..z'.entry(&00-t|
00002e30 77 65 6c 76 65 2c 2d 31 2c 66 6c 61 67 73 2c 22 |welve,-1,flags,"|
00002e40 48 48 3a 4d 4d 22 29 0d 0d 84 2a f2 65 6e 74 72 |HH:MM")...*.entr|
00002e50 79 28 26 30 30 2d 74 77 66 6f 75 72 2c 2d 31 2c |y(&00-twfour,-1,|
00002e60 66 6c 61 67 73 2c 22 48 48 3a 4d 4d 3a 53 53 22 |flags,"HH:MM:SS"|
00002e70 29 0d 0d 8e 27 f2 65 6e 74 72 79 28 26 30 32 2d |)...'.entry(&02-|
00002e80 68 6f 75 72 2c 2d 31 2c 66 6c 61 67 73 2c 22 32 |hour,-1,flags,"2|
00002e90 34 20 48 6f 75 72 22 29 0d 0d 98 21 f2 65 6e 74 |4 Hour")...!.ent|
00002ea0 72 79 28 26 38 30 2c 2d 31 2c 66 6c 61 67 73 2c |ry(&80,-1,flags,|
00002eb0 22 53 65 74 2e 2e 2e 22 29 0d 0d a2 05 e1 0d 0d |"Set...").......|
00002ec0 ac 04 0d 0d b6 11 dd 20 a4 66 67 63 6f 6c 28 63 |....... .fgcol(c|
00002ed0 6f 6c 29 0d 0d c0 0c c8 8e 20 63 6f 6c 20 ca 0d |ol)...... col ..|
00002ee0 0d ca 1d c9 20 30 2c 31 2c 32 2c 39 2c 31 32 2c |.... 0,1,2,9,12,|
00002ef0 31 34 2c 31 35 20 3a 20 3d 22 37 22 0d 0d d4 21 |14,15 : ="7"...!|
00002f00 c9 20 33 2c 34 2c 35 2c 36 2c 37 2c 38 2c 31 30 |. 3,4,5,6,7,8,10|
00002f10 2c 31 31 2c 31 33 20 3a 20 3d 22 30 22 0d 0d de |,11,13 : ="0"...|
00002f20 05 cb 0d 0d e8 05 e1 0d 0d f2 04 0d 0d fc 13 dd |................|
00002f30 20 f2 68 65 61 64 65 72 28 54 24 2c 77 29 0d 0e | .header(T$,w)..|
00002f40 06 0d 24 6d 62 6c 6b 25 3d 54 24 0d 0e 10 13 6d |..$mblk%=T$....m|
00002f50 62 6c 6b 25 21 31 32 3d 26 37 30 32 30 37 0d 0e |blk%!12=&70207..|
00002f60 1a 11 6d 62 6c 6b 25 21 31 36 3d 77 2a 31 36 0d |..mblk%!16=w*16.|
00002f70 0e 24 0f 6d 62 6c 6b 25 21 32 30 3d 34 30 0d 0e |.$.mblk%!20=40..|
00002f80 2e 0e 6d 62 6c 6b 25 21 32 34 3d 30 0d 0e 38 0d |..mblk%!24=0..8.|
00002f90 6d 62 6c 6b 25 2b 3d 32 38 0d 0e 42 05 e1 0d 0e |mblk%+=28..B....|
00002fa0 4c 04 0d 0e 56 19 dd 20 f2 65 6e 74 72 79 28 41 |L...V.. .entry(A|
00002fb0 25 2c 42 25 2c 43 25 2c 54 24 29 0d 0e 60 0e 6d |%,B%,C%,T$)..`.m|
00002fc0 62 6c 6b 25 21 30 3d 41 25 0d 0e 6a 0e 6d 62 6c |blk%!0=A%..j.mbl|
00002fd0 6b 25 21 34 3d 42 25 0d 0e 74 0e 6d 62 6c 6b 25 |k%!4=B%..t.mblk%|
00002fe0 21 38 3d 43 25 0d 0e 7e 12 24 28 6d 62 6c 6b 25 |!8=C%..~.$(mblk%|
00002ff0 2b 31 32 29 3d 54 24 0d 0e 88 0d 6d 62 6c 6b 25 |+12)=T$....mblk%|
00003000 2b 3d 32 34 0d 0e 92 05 e1 0d 0e 9c 04 0d 0e a6 |+=24............|
00003010 1c dd 20 f2 69 6e 64 69 72 65 63 74 28 41 25 2c |.. .indirect(A%,|
00003020 42 25 2c 43 25 2c 44 25 29 0d 0e b0 0e 6d 62 6c |B%,C%,D%)....mbl|
00003030 6b 25 21 30 3d 41 25 0d 0e ba 0e 6d 62 6c 6b 25 |k%!0=A%....mblk%|
00003040 21 34 3d 42 25 0d 0e c4 0e 6d 62 6c 6b 25 21 38 |!4=B%....mblk%!8|
00003050 3d 43 25 0d 0e ce 0f 6d 62 6c 6b 25 21 31 32 3d |=C%....mblk%!12=|
00003060 44 25 0d 0e d8 0f 6d 62 6c 6b 25 21 31 36 3d 2d |D%....mblk%!16=-|
00003070 31 0d 0e e2 0f 6d 62 6c 6b 25 21 32 30 3d 32 30 |1....mblk%!20=20|
00003080 0d 0e ec 0d 6d 62 6c 6b 25 2b 3d 32 34 0d 0e f6 |....mblk%+=24...|
00003090 05 e1 0d 0f 00 04 0d 0f 0a 27 dd 20 a4 65 72 72 |.........'. .err|
000030a0 6f 72 28 65 24 2c 62 25 29 3a 21 71 25 3d 30 3a |or(e$,b%):!q%=0:|
000030b0 24 28 71 25 2b 34 29 3d 65 24 2b bd 30 0d 0f 14 |$(q%+4)=e$+.0...|
000030c0 32 c8 99 20 22 58 57 69 6d 70 5f 52 65 70 6f 72 |2.. "XWimp_Repor|
000030d0 74 45 72 72 6f 72 22 2c 71 25 2c 62 25 2c 22 53 |tError",q%,b%,"S|
000030e0 74 69 63 6b 79 42 72 64 22 20 b8 20 2c 62 25 0d |tickyBrd" . ,b%.|
000030f0 0f 1e 07 3d 62 25 0d 0f 28 04 0d 0f 32 09 dd 20 |...=b%..(...2.. |
00003100 f2 6c 66 0d 0f 3c 05 f4 0d 0f 46 1f 66 24 3d c4 |.lf..<....F.f$=.|
00003110 32 35 30 2c 22 20 22 29 3a 66 24 3d 22 22 3a 54 |250," "):f$="":T|
00003120 25 3d 71 25 2b 34 34 0d 0f 50 1e c8 95 20 3f 54 |%=q%+44..P... ?T|
00003130 25 3c 3e 30 3a 66 24 2b 3d bd 3f 54 25 3a 54 25 |%<>0:f$+=.?T%:T%|
00003140 2b 3d 31 3a ce 0d 0f 5a 21 e7 20 71 25 21 32 30 |+=1:...Z!. q%!20|
00003150 3d 62 61 63 6b 64 72 6f 70 25 20 80 20 71 25 21 |=backdrop% . q%!|
00003160 32 34 3d 32 20 8c 0d 0f 64 11 f2 6c 6f 61 64 62 |24=2 ...d..loadb|
00003170 61 63 6b 64 72 6f 70 0d 0f 6e 05 cc 0d 0f 78 11 |ackdrop..n....x.|
00003180 f2 61 64 64 74 6f 64 65 73 6b 74 6f 70 0d 0f 82 |.addtodesktop...|
00003190 05 cd 0d 0f 8c 22 f2 6d 6f 64 6c 5f 64 61 74 61 |.....".modl_data|
000031a0 6c 6f 61 64 28 66 24 2c 71 25 21 32 30 2c 71 25 |load(f$,q%!20,q%|
000031b0 21 32 34 29 0d 0f 96 33 71 25 21 31 32 3d 71 25 |!24)...3q%!12=q%|
000031c0 21 38 3a 71 25 21 31 36 3d 34 3a c8 99 20 22 58 |!8:q%!16=4:.. "X|
000031d0 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 |Wimp_SendMessage|
000031e0 22 2c 31 37 2c 71 25 0d 0f a0 05 e1 0d 0f aa 04 |",17,q%.........|
000031f0 0d 0f b4 0d dd 20 f2 72 65 64 72 61 77 0d 0f be |..... .redraw...|
00003200 12 e7 20 71 25 21 30 3d 6d 61 69 6e 25 20 8c 0d |.. q%!0=main% ..|
00003210 0f c8 10 20 e7 20 74 69 6c 65 64 3d b9 20 8c 0d |... . tiled=. ..|
00003220 0f d2 14 20 20 e7 20 73 70 6c 6f 61 64 65 64 3d |... . sploaded=|
00003230 b9 20 8c 0d 0f dc 0c 20 20 20 42 25 3d 71 25 0d |. ..... B%=q%.|
00003240 0f e6 0f 20 20 20 d6 20 6d 63 6f 64 65 25 0d 0f |... . mcode%..|
00003250 f0 13 20 20 20 f2 6d 6f 64 6c 5f 72 65 64 72 61 |.. .modl_redra|
00003260 77 0d 0f fa 08 20 20 20 e1 0d 10 04 07 20 20 cd |w.... ..... .|
00003270 0d 10 0e 06 20 cd 0d 10 18 05 cd 0d 10 22 10 f2 |.... ........"..|
00003280 6d 6f 64 6c 5f 72 65 64 72 61 77 0d 10 2c 26 c8 |modl_redraw..,&.|
00003290 99 20 22 58 57 69 6d 70 5f 52 65 64 72 61 77 57 |. "XWimp_RedrawW|
000032a0 69 6e 64 6f 77 22 2c 2c 71 25 20 b8 20 66 6c 61 |indow",,q% . fla|
000032b0 67 0d 10 36 0e c8 95 20 66 6c 61 67 3c 3e 30 0d |g..6... flag<>0.|
000032c0 10 40 26 c8 99 20 22 58 49 6e 74 65 72 66 61 63 |.@&.. "XInterfac|
000032d0 65 5f 52 65 6e 64 65 72 33 64 57 69 6e 64 6f 77 |e_Render3dWindow|
000032e0 22 2c 2c 71 25 0d 10 4a 26 c8 99 20 22 58 57 69 |",,q%..J&.. "XWi|
000032f0 6d 70 5f 47 65 74 52 65 63 74 61 6e 67 6c 65 22 |mp_GetRectangle"|
00003300 2c 2c 71 25 20 b8 20 66 6c 61 67 0d 10 54 05 ce |,,q% . flag..T..|
00003310 0d 10 5e 05 e1 0d 10 68 04 0d 10 72 0f dd 20 f2 |..^....h...r.. .|
00003320 61 73 73 65 6d 62 6c 65 0d 10 7c 16 e3 20 70 61 |assemble..|.. pa|
00003330 73 73 25 3d 38 20 b8 20 31 31 20 88 20 32 0d 10 |ss%=8 . 11 . 2..|
00003340 86 1b 50 25 3d 6d 63 6f 64 65 25 3a 4c 25 3d 6d |..P%=mcode%:L%=m|
00003350 63 6f 64 65 25 2b 33 30 30 0d 10 90 0e 5b 4f 50 |code%+300....[OP|
00003360 54 20 70 61 73 73 25 0d 10 9a 0b 2e 73 74 61 72 |T pass%.....star|
00003370 74 25 0d 10 a4 41 53 57 49 20 22 57 69 6d 70 5f |t%...ASWI "Wimp_|
00003380 52 65 64 72 61 77 57 69 6e 64 6f 77 22 20 20 20 |RedrawWindow" |
00003390 3b 20 47 65 74 20 57 69 6d 70 20 6d 61 6e 61 67 |; Get Wimp manag|
000033a0 65 72 20 74 6f 20 72 65 64 72 61 77 20 77 69 6e |er to redraw win|
000033b0 64 6f 77 0d 10 ae 34 2e 72 6c 20 20 20 20 20 20 |dow...4.rl |
000033c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000033d0 20 3b 20 53 74 61 72 74 20 6f 66 20 72 65 64 72 | ; Start of redr|
000033e0 61 77 20 6c 6f 6f 70 0d 10 b8 30 43 4d 50 20 52 |aw loop...0CMP R|
000033f0 30 2c 23 30 20 20 20 20 20 20 20 20 20 20 20 20 |0,#0 |
00003400 20 20 20 20 20 3b 20 4d 6f 72 65 20 74 6f 20 72 | ; More to r|
00003410 65 64 72 61 77 20 3f 0d 10 c2 41 ec 51 20 50 43 |edraw ?...A.Q PC|
00003420 2c 52 31 34 20 20 20 20 20 20 20 20 20 20 20 20 |,R14 |
00003430 20 20 3b 20 4e 6f 2c 20 73 6f 20 65 78 69 74 20 | ; No, so exit |
00003440 28 50 72 6f 67 72 61 6d 20 43 6f 75 6e 74 65 72 |(Program Counter|
00003450 20 3d 20 4c 69 6e 6b 29 0d 10 cc 21 4c 44 52 20 | = Link)...!LDR |
00003460 52 32 2c 5b 52 31 2c 23 34 5d 20 20 20 20 20 20 |R2,[R1,#4] |
00003470 20 20 20 20 20 20 3b 20 7d 0d 10 d6 21 4c 44 52 | ; }...!LDR|
00003480 20 52 33 2c 5b 52 31 2c 23 38 5d 20 20 20 20 20 | R3,[R1,#8] |
00003490 20 20 20 20 20 20 20 3b 20 7d 0d 10 e0 31 4c 44 | ; }...1LD|
000034a0 52 20 52 34 2c 5b 52 31 2c 23 31 32 5d 20 20 20 |R R4,[R1,#12] |
000034b0 20 20 20 20 20 20 20 20 3b 20 7d 20 47 65 74 20 | ; } Get |
000034c0 50 57 41 20 6f 66 66 73 65 74 73 0d 10 ea 3f 4c |PWA offsets...?L|
000034d0 44 52 20 52 35 2c 5b 52 31 2c 23 31 36 5d 20 20 |DR R5,[R1,#16] |
000034e0 20 20 20 20 20 20 20 20 20 3b 20 7d 20 26 20 73 | ; } & s|
000034f0 75 63 68 20 6c 69 6b 65 20 66 72 6f 6d 20 52 31 |uch like from R1|
00003500 20 28 69 2e 65 2e 20 71 25 29 0d 10 f4 21 4c 44 | (i.e. q%)...!LD|
00003510 52 20 52 36 2c 5b 52 31 2c 23 32 30 5d 20 20 20 |R R6,[R1,#20] |
00003520 20 20 20 20 20 20 20 20 3b 20 7d 0d 10 fe 21 4c | ; }...!L|
00003530 44 52 20 52 37 2c 5b 52 31 2c 23 32 34 5d 20 20 |DR R7,[R1,#24] |
00003540 20 20 20 20 20 20 20 20 20 3b 20 7d 0d 11 08 29 | ; }...)|
00003550 53 55 42 20 52 30 2c 52 32 2c 52 36 20 20 20 20 |SUB R0,R2,R6 |
00003560 20 20 20 20 20 20 20 20 20 20 3b 20 47 65 74 20 | ; Get |
00003570 6d 69 6e 20 78 0d 11 12 2b 53 54 52 20 52 30 2c |min x...+STR R0,|
00003580 6d 69 78 25 20 20 20 20 20 20 20 20 20 20 20 20 |mix% |
00003590 20 20 20 3b 20 53 74 6f 72 65 20 6d 69 6e 20 78 | ; Store min x|
000035a0 0d 11 1c 29 53 55 42 20 52 30 2c 52 35 2c 52 37 |...)SUB R0,R5,R7|
000035b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 | ; |
000035c0 47 65 74 20 6d 61 78 20 79 0d 11 26 27 53 55 42 |Get max y..&'SUB|
000035d0 20 52 30 2c 52 30 2c 23 34 20 20 20 20 20 20 20 | R0,R0,#4 |
000035e0 20 20 20 20 20 20 20 3b 20 43 6f 72 72 65 63 74 | ; Correct|
000035f0 0d 11 30 2b 53 54 52 20 52 30 2c 6d 61 79 25 20 |..0+STR R0,may% |
00003600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 | ; |
00003610 53 74 6f 72 65 20 6d 61 78 20 79 0d 11 3a 29 53 |Store max y..:)S|
00003620 55 42 20 52 30 2c 52 34 2c 52 36 20 20 20 20 20 |UB R0,R4,R6 |
00003630 20 20 20 20 20 20 20 20 20 3b 20 47 65 74 20 6d | ; Get m|
00003640 61 78 20 78 0d 11 44 27 53 55 42 20 52 30 2c 52 |ax x..D'SUB R0,R|
00003650 30 2c 23 34 20 20 20 20 20 20 20 20 20 20 20 20 |0,#4 |
00003660 20 20 3b 20 43 6f 72 72 65 63 74 0d 11 4e 2b 53 | ; Correct..N+S|
00003670 54 52 20 52 30 2c 6d 61 78 25 20 20 20 20 20 20 |TR R0,max% |
00003680 20 20 20 20 20 20 20 20 20 3b 20 53 74 6f 72 65 | ; Store|
00003690 20 6d 61 78 20 78 0d 11 58 29 53 55 42 20 52 30 | max x..X)SUB R0|
000036a0 2c 52 33 2c 52 37 20 20 20 20 20 20 20 20 20 20 |,R3,R7 |
000036b0 20 20 20 20 3b 20 47 65 74 20 6d 69 6e 20 79 0d | ; Get min y.|
000036c0 11 62 2b 53 54 52 20 52 30 2c 6d 69 79 25 20 20 |.b+STR R0,miy% |
000036d0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 53 | ; S|
000036e0 74 6f 72 65 20 6d 69 6e 20 79 0d 11 6c 0c 2e 73 |tore min y..l..s|
000036f0 70 72 5f 6e 75 6d 0d 11 76 4b 4d 4f 56 20 52 30 |pr_num..vKMOV R0|
00003700 2c 23 35 31 32 20 20 20 20 20 20 20 20 20 20 20 |,#512 |
00003710 20 20 20 20 3b 20 27 50 6c 6f 74 20 73 70 72 69 | ; 'Plot spri|
00003720 74 65 27 20 72 65 61 73 6f 6e 20 63 6f 64 65 20 |te' reason code |
00003730 2d 2d 20 75 73 65 20 69 6e 64 69 72 65 63 74 65 |-- use indirecte|
00003740 64 0d 11 80 49 41 44 44 20 52 30 2c 52 30 2c 23 |d...IADD R0,R0,#|
00003750 35 32 20 20 20 20 20 20 20 20 20 20 20 20 20 3b |52 ;|
00003760 20 4d 61 6b 65 20 75 70 20 74 6f 20 35 36 34 20 | Make up to 564 |
00003770 2d 20 63 61 6e 27 74 20 72 65 70 72 65 73 65 6e |- can't represen|
00003780 74 20 64 69 72 65 63 74 6c 79 0d 11 8a 2f 4c 44 |t directly.../LD|
00003790 52 20 52 31 2c 73 70 25 20 20 20 20 20 20 20 20 |R R1,sp% |
000037a0 20 20 20 20 20 20 20 20 3b 20 47 65 74 20 73 70 | ; Get sp|
000037b0 72 69 74 65 20 61 72 65 61 0d 11 94 2f 4c 44 52 |rite area.../LDR|
000037c0 20 52 32 2c 6e 61 6d 65 25 20 20 20 20 20 20 20 | R2,name% |
000037d0 20 20 20 20 20 20 20 3b 20 47 65 74 20 73 70 72 | ; Get spr|
000037e0 69 74 65 20 6e 61 6d 65 0d 11 9e 3f 4d 4f 56 20 |ite name...?MOV |
000037f0 52 35 2c 23 38 20 20 20 20 20 20 20 20 20 20 20 |R5,#8 |
00003800 20 20 20 20 20 20 3b 20 50 6c 6f 74 20 74 79 70 | ; Plot typ|
00003810 65 20 2d 20 6f 76 65 72 77 72 69 74 65 2c 20 75 |e - overwrite, u|
00003820 73 65 20 6d 61 73 6b 0d 11 a8 24 4c 44 52 20 52 |se mask...$LDR R|
00003830 36 2c 73 63 6c 25 20 20 20 20 20 20 20 20 20 20 |6,scl% |
00003840 20 20 20 20 20 3b 20 4e 75 6c 6c 0d 11 b2 24 4c | ; Null...$L|
00003850 44 52 20 52 37 2c 63 6f 6c 25 20 20 20 20 20 20 |DR R7,col% |
00003860 20 20 20 20 20 20 20 20 20 3b 20 4e 75 6c 6c 0d | ; Null.|
00003870 11 bc 24 4d 4f 56 20 52 38 2c 23 30 20 20 20 20 |..$MOV R8,#0 |
00003880 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 4e | ; N|
00003890 75 6c 6c 0d 11 c6 2f 4c 44 52 20 52 39 2c 6d 69 |ull.../LDR R9,mi|
000038a0 79 25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |y% |
000038b0 20 3b 20 4d 69 6e 69 6d 75 6d 20 59 20 76 61 6c | ; Minimum Y val|
000038c0 75 65 0d 11 d0 0a 2e 79 6c 6f 6f 70 0d 11 da 2f |ue.....yloop.../|
000038d0 20 20 20 20 4c 44 52 20 52 31 30 2c 6d 69 78 25 | LDR R10,mix%|
000038e0 20 20 20 20 20 20 20 20 20 20 3b 20 4d 69 6e 69 | ; Mini|
000038f0 6d 75 6d 20 58 20 76 61 6c 75 65 0d 11 e4 0e 20 |mum X value.... |
00003900 20 20 20 2e 78 6c 6f 6f 70 0d 11 ee 33 20 20 20 | .xloop...3 |
00003910 20 20 20 20 20 4d 4f 56 20 52 33 2c 52 31 30 20 | MOV R3,R10 |
00003920 20 20 20 20 20 20 20 3b 20 58 20 28 54 61 6b 65 | ; X (Take|
00003930 6e 20 66 72 6f 6d 20 6c 6f 6f 70 29 0d 11 f8 33 |n from loop)...3|
00003940 20 20 20 20 20 20 20 20 4d 4f 56 20 52 34 2c 52 | MOV R4,R|
00003950 39 20 20 20 20 20 20 20 20 20 3b 20 59 20 28 54 |9 ; Y (T|
00003960 61 6b 65 6e 20 66 72 6f 6d 20 6c 6f 6f 70 29 0d |aken from loop).|
00003970 12 02 27 20 20 20 20 20 20 20 20 53 57 49 20 22 |..' SWI "|
00003980 4f 53 5f 53 70 72 69 74 65 4f 70 22 20 3b 20 50 |OS_SpriteOp" ; P|
00003990 6c 6f 74 20 69 74 0d 12 0c 2d 20 20 20 20 20 20 |lot it...- |
000039a0 20 20 4c 44 52 20 52 31 31 2c 78 69 6e 63 25 20 | LDR R11,xinc% |
000039b0 20 20 20 20 3b 20 47 65 74 20 73 74 65 70 20 73 | ; Get step s|
000039c0 69 7a 65 0d 12 16 38 20 20 20 20 20 20 20 20 41 |ize...8 A|
000039d0 44 44 20 52 31 30 2c 52 31 30 2c 52 31 31 20 20 |DD R10,R10,R11 |
000039e0 20 3b 20 49 6e 63 72 65 6d 65 6e 74 20 58 20 62 | ; Increment X b|
000039f0 79 20 73 74 65 70 20 73 69 7a 65 0d 12 20 2d 20 |y step size.. - |
00003a00 20 20 20 20 20 20 20 4c 44 52 20 52 31 31 2c 6d | LDR R11,m|
00003a10 61 78 25 20 20 20 20 20 20 3b 20 47 65 74 20 6d |ax% ; Get m|
00003a20 61 78 69 6d 75 6d 20 58 0d 12 2a 27 20 20 20 20 |aximum X..*' |
00003a30 20 20 20 20 43 4d 50 20 52 31 30 2c 52 31 31 20 | CMP R10,R11 |
00003a40 20 20 20 20 20 20 3b 20 43 6f 6d 70 61 72 65 0d | ; Compare.|
00003a50 12 34 32 20 20 20 20 20 20 20 20 42 4c 45 20 78 |.42 BLE x|
00003a60 6c 6f 6f 70 20 20 20 20 20 20 20 20 20 3b 20 4c |loop ; L|
00003a70 6f 6f 70 20 62 61 63 6b 20 69 66 20 3c 20 6d 61 |oop back if < ma|
00003a80 78 0d 12 3e 2d 20 20 20 20 4c 44 52 20 52 31 31 |x..>- LDR R11|
00003a90 2c 79 69 6e 63 25 20 20 20 20 20 20 20 20 20 3b |,yinc% ;|
00003aa0 20 47 65 74 20 73 74 65 70 20 73 69 7a 65 0d 12 | Get step size..|
00003ab0 48 38 20 20 20 20 41 44 44 20 52 39 2c 52 39 2c |H8 ADD R9,R9,|
00003ac0 52 31 31 20 20 20 20 20 20 20 20 20 3b 20 49 6e |R11 ; In|
00003ad0 63 72 65 6d 65 6e 74 20 59 20 62 79 20 73 74 65 |crement Y by ste|
00003ae0 70 20 73 69 7a 65 0d 12 52 2d 20 20 20 20 4c 44 |p size..R- LD|
00003af0 52 20 52 31 31 2c 6d 61 79 25 20 20 20 20 20 20 |R R11,may% |
00003b00 20 20 20 20 3b 20 47 65 74 20 6d 61 78 69 6d 75 | ; Get maximu|
00003b10 6d 20 59 0d 12 5c 27 20 20 20 20 43 4d 50 20 52 |m Y..\' CMP R|
00003b20 39 2c 52 31 31 20 20 20 20 20 20 20 20 20 20 20 |9,R11 |
00003b30 20 3b 20 43 6f 6d 70 61 72 65 0d 12 66 32 20 20 | ; Compare..f2 |
00003b40 20 20 42 4c 45 20 79 6c 6f 6f 70 20 20 20 20 20 | BLE yloop |
00003b50 20 20 20 20 20 20 20 20 3b 20 4c 6f 6f 70 20 62 | ; Loop b|
00003b60 61 63 6b 20 69 66 20 3c 20 6d 61 78 0d 12 70 3a |ack if < max..p:|
00003b70 4c 44 52 20 52 31 2c 69 6e 64 5f 71 25 20 20 20 |LDR R1,ind_q% |
00003b80 20 20 20 20 20 20 20 20 20 20 3b 20 47 65 74 20 | ; Get |
00003b90 61 64 64 72 65 73 73 20 6f 66 20 70 61 72 61 6d |address of param|
00003ba0 20 62 6c 6f 63 6b 0d 12 7a 32 53 57 49 20 22 57 | block..z2SWI "W|
00003bb0 69 6d 70 5f 47 65 74 52 65 63 74 61 6e 67 6c 65 |imp_GetRectangle|
00003bc0 22 20 20 20 3b 20 47 65 74 20 6e 65 78 74 20 72 |" ; Get next r|
00003bd0 65 63 74 61 6e 67 6c 65 0d 12 84 2b 42 20 72 6c |ectangle...+B rl|
00003be0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003bf0 20 20 20 20 20 20 3b 20 42 72 61 6e 63 68 20 62 | ; Branch b|
00003c00 61 63 6b 0d 12 8e 0f 2e 73 70 25 20 45 51 55 44 |ack.....sp% EQUD|
00003c10 20 30 0d 12 98 11 2e 6e 61 6d 65 25 20 45 51 55 | 0.....name% EQU|
00003c20 44 20 30 0d 12 a2 1f 2e 78 69 6e 63 25 20 45 51 |D 0.....xinc% EQ|
00003c30 55 44 20 30 3a 2e 79 69 6e 63 25 20 45 51 55 44 |UD 0:.yinc% EQUD|
00003c40 20 30 0d 12 ac 37 2e 6d 61 78 25 20 45 51 55 44 | 0...7.max% EQUD|
00003c50 20 30 3a 2e 6d 69 78 25 20 45 51 55 44 20 30 3a | 0:.mix% EQUD 0:|
00003c60 2e 6d 61 79 25 20 45 51 55 44 20 30 3a 2e 6d 69 |.may% EQUD 0:.mi|
00003c70 79 25 20 45 51 55 44 20 30 0d 12 b6 2c 2e 69 6e |y% EQUD 0...,.in|
00003c80 64 5f 71 25 20 45 51 55 44 20 30 3a 2e 73 63 6c |d_q% EQUD 0:.scl|
00003c90 25 20 45 51 55 44 20 30 3a 2e 63 6f 6c 25 20 45 |% EQUD 0:.col% E|
00003ca0 51 55 44 20 30 0d 12 c0 09 41 4c 49 47 4e 0d 12 |QUD 0....ALIGN..|
00003cb0 ca 09 2e 65 6e 64 25 0d 12 d4 05 5d 0d 12 de 0b |...end%....]....|
00003cc0 ed 20 70 61 73 73 25 0d 12 e8 15 e3 20 70 61 73 |. pass%..... pas|
00003cd0 73 25 3d 30 20 b8 20 33 20 88 20 32 0d 12 f2 1d |s%=0 . 3 . 2....|
00003ce0 50 25 3d 6d 63 6f 64 65 32 25 3a 4c 25 3d 6d 63 |P%=mcode2%:L%=mc|
00003cf0 6f 64 65 32 25 2b 31 30 30 0d 12 fc 0e 5b 4f 50 |ode2%+100....[OP|
00003d00 54 20 70 61 73 73 25 0d 13 06 16 41 44 52 20 52 |T pass%....ADR R|
00003d10 31 2c 74 69 6d 65 5f 62 6c 6f 63 6b 25 0d 13 10 |1,time_block%...|
00003d20 0d 4d 4f 56 20 52 30 2c 23 33 0d 13 1a 10 53 54 |.MOV R0,#3....ST|
00003d30 52 42 20 52 30 2c 5b 52 31 5d 0d 13 24 0e 4d 4f |RB R0,[R1]..$.MO|
00003d40 56 20 52 30 2c 23 31 34 0d 13 2e 11 53 57 49 20 |V R0,#14....SWI |
00003d50 22 4f 53 5f 57 6f 72 64 22 0d 13 38 0e 4d 4f 56 |"OS_Word"..8.MOV|
00003d60 20 50 43 2c 52 31 34 0d 13 42 05 5d 0d 13 4c 0b | PC,R14..B.]..L.|
00003d70 ed 20 70 61 73 73 25 0d 13 56 05 e1 0d 13 60 04 |. pass%..V....`.|
00003d80 0d 13 6a 14 dd 20 f2 72 65 5f 61 73 6d 28 74 79 |..j.. .re_asm(ty|
00003d90 70 65 25 29 0d 13 74 0e c8 8e 20 74 79 70 65 25 |pe%)..t... type%|
00003da0 20 ca 0d 13 7e 16 20 20 c9 20 b9 20 3a 20 50 25 | ...~. . . : P%|
00003db0 3d 73 70 72 5f 6e 75 6d 0d 13 88 18 20 20 20 20 |=spr_num.... |
00003dc0 20 20 20 20 20 20 20 20 20 20 5b 4f 50 54 20 32 | [OPT 2|
00003dd0 0d 13 92 1d 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00003de0 20 20 4d 4f 56 20 52 30 2c 23 35 31 32 0d 13 9c | MOV R0,#512...|
00003df0 1f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 |. A|
00003e00 44 44 20 52 30 2c 52 30 2c 23 33 34 0d 13 a6 13 |DD R0,R0,#34....|
00003e10 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5d 0d | ].|
00003e20 13 b0 15 20 20 c9 20 a3 3a 20 50 25 3d 73 70 72 |... . .: P%=spr|
00003e30 5f 6e 75 6d 0d 13 ba 18 20 20 20 20 20 20 20 20 |_num.... |
00003e40 20 20 20 20 20 20 5b 4f 50 54 20 32 0d 13 c4 1d | [OPT 2....|
00003e50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4f | MO|
00003e60 56 20 52 30 2c 23 35 31 32 0d 13 ce 1f 20 20 20 |V R0,#512.... |
00003e70 20 20 20 20 20 20 20 20 20 20 20 41 44 44 20 52 | ADD R|
00003e80 30 2c 52 30 2c 23 35 32 0d 13 d8 13 20 20 20 20 |0,R0,#52.... |
00003e90 20 20 20 20 20 20 20 20 20 20 5d 0d 13 e2 05 cb | ].....|
00003ea0 0d 13 ec 05 e1 0d 13 f6 04 0d 14 00 10 dd 20 f2 |.............. .|
00003eb0 70 69 78 5f 74 72 61 6e 73 0d 14 0a 10 e7 20 73 |pix_trans..... s|
00003ec0 70 6c 6f 61 64 65 64 20 8c 0d 14 14 43 c8 99 20 |ploaded ....C.. |
00003ed0 22 57 69 6d 70 5f 52 65 61 64 50 69 78 54 72 61 |"Wimp_ReadPixTra|
00003ee0 6e 73 22 2c 26 31 30 30 2c 73 70 72 69 74 65 25 |ns",&100,sprite%|
00003ef0 2c 62 61 63 6b 73 70 6e 61 6d 65 24 2c 2c 2c 2c |,backspname$,,,,|
00003f00 73 63 61 6c 65 25 2c 63 6f 6c 73 25 0d 14 1e 05 |scale%,cols%....|
00003f10 cd 0d 14 28 05 e1 0d 14 32 04 0d 14 3c 13 dd 20 |...(....2...<.. |
00003f20 f2 70 72 6f 63 65 73 73 5f 6d 65 6e 75 0d 14 46 |.process_menu..F|
00003f30 39 c8 99 20 22 58 57 69 6d 70 5f 47 65 74 50 6f |9.. "XWimp_GetPo|
00003f40 69 6e 74 65 72 49 6e 66 6f 22 2c 2c 70 6f 69 6e |interInfo",,poin|
00003f50 74 65 72 25 3a 6a 25 3d 28 70 6f 69 6e 74 65 72 |ter%:j%=(pointer|
00003f60 25 21 38 3d 31 29 0d 14 50 0f c8 8e 20 68 61 6e |%!8=1)..P... han|
00003f70 64 6c 65 20 ca 0d 14 5a 12 c9 20 6d 61 69 6e 25 |dle ...Z.. main%|
00003f80 2c 6d 61 69 6e 31 25 0d 14 64 0e 20 c8 8e 20 71 |,main1%..d. .. q|
00003f90 25 21 30 20 ca 0d 14 6e 14 20 c9 20 31 20 3a 20 |%!0 ...n. . 1 : |
00003fa0 c8 8e 20 71 25 21 34 20 ca 0d 14 78 24 20 20 c9 |.. q%!4 ...x$ .|
00003fb0 20 31 20 3a 20 e7 20 28 69 63 6f 6e 25 20 83 20 | 1 : . (icon% . |
00003fc0 32 3d 30 29 20 69 63 6f 6e 25 2d 3d 31 0d 14 82 |2=0) icon%-=1...|
00003fd0 1f 20 20 20 20 20 20 20 20 20 20 20 f2 64 65 6c |. .del|
00003fe0 65 74 65 28 69 63 6f 6e 25 2c 31 29 0d 14 8c 2e |ete(icon%,1)....|
00003ff0 20 20 20 20 20 20 20 20 20 20 20 f2 6d 6f 64 6c | .modl|
00004000 5f 64 65 6c 65 74 65 28 69 63 6f 6e 25 2c 74 79 |_delete(icon%,ty|
00004010 70 65 28 69 63 6f 6e 25 29 29 0d 14 96 24 20 20 |pe(icon%))...$ |
00004020 c9 20 32 20 3a 20 e7 20 28 69 63 6f 6e 25 20 83 |. 2 : . (icon% .|
00004030 20 32 3d 30 29 20 69 63 6f 6e 25 2d 3d 31 0d 14 | 2=0) icon%-=1..|
00004040 a0 3e 20 20 20 20 20 20 20 20 20 20 20 ff 28 22 |.> .("|
00004050 57 69 6d 70 54 61 73 6b 20 46 69 6c 65 72 5f 4f |WimpTask Filer_O|
00004060 70 65 6e 44 69 72 20 22 2b a4 64 69 72 28 66 69 |penDir "+.dir(fi|
00004070 6c 65 24 28 69 63 6f 6e 25 29 29 29 0d 14 aa 06 |le$(icon%)))....|
00004080 20 cb 0d 14 b4 14 20 c9 20 32 20 3a 20 c8 8e 20 | ..... . 2 : .. |
00004090 71 25 21 34 20 ca 0d 14 be 18 20 20 c9 20 32 20 |q%!4 ..... . 2 |
000040a0 3a 20 73 66 24 3d 64 65 73 6b 74 6f 70 24 0d 14 |: sf$=desktop$..|
000040b0 c8 20 20 20 20 20 20 20 20 20 20 20 20 f2 6c 6f |. .lo|
000040c0 61 64 5f 6e 65 77 5f 64 65 73 6b 74 6f 70 0d 14 |ad_new_desktop..|
000040d0 d2 34 20 20 c9 20 33 20 3a 20 74 75 72 62 6f 25 |.4 . 3 : turbo%|
000040e0 3d ac 20 74 75 72 62 6f 25 3a f2 6d 65 6e 75 28 |=. turbo%:.menu(|
000040f0 30 29 3a f2 72 65 5f 61 73 6d 28 74 75 72 62 6f |0):.re_asm(turbo|
00004100 25 29 0d 14 dc 06 20 cb 0d 14 e6 15 20 c9 20 33 |%).... ..... . 3|
00004110 20 3a 20 f2 64 65 6c 65 74 65 61 6c 6c 0d 14 f0 | : .deleteall...|
00004120 14 20 c9 20 34 20 3a 20 c8 8e 20 71 25 21 34 20 |. . 4 : .. q%!4 |
00004130 ca 0d 14 fa 1a 20 20 c9 20 30 20 3a 20 e7 20 71 |..... . 0 : . q|
00004140 25 21 38 3c 3e 2d 31 20 f2 66 67 0d 15 04 1a 20 |%!8<>-1 .fg.... |
00004150 20 c9 20 31 20 3a 20 e7 20 71 25 21 38 3c 3e 2d | . 1 : . q%!8<>-|
00004160 31 20 f2 62 67 0d 15 0e 06 20 cb 0d 15 18 14 20 |1 .bg.... ..... |
00004170 c9 20 35 20 3a 20 c8 8e 20 71 25 21 34 20 ca 0d |. 5 : .. q%!4 ..|
00004180 15 22 6d 20 20 c9 20 30 20 3a 20 f2 73 68 75 74 |."m . 0 : .shut|
00004190 28 6d 61 69 6e 25 29 3a f2 6f 70 65 6e 75 70 28 |(main%):.openup(|
000041a0 6d 61 69 6e 31 25 2c 30 2c 77 69 6e 5f 6d 61 78 |main1%,0,win_max|
000041b0 79 25 2c 77 69 6e 5f 6d 61 78 78 25 2c 28 77 69 |y%,win_maxx%,(wi|
000041c0 6e 5f 6d 61 78 79 25 2d 77 69 6e 5f 6d 69 6e 79 |n_maxy%-win_miny|
000041d0 25 29 29 3a f2 67 72 65 79 5f 6d 65 6e 75 28 6d |%)):.grey_menu(m|
000041e0 65 6e 75 25 2b 32 32 30 30 2c 30 29 0d 15 2c 27 |enu%+2200,0)..,'|
000041f0 20 20 20 20 20 20 20 20 20 20 20 f2 67 72 65 79 | .grey|
00004200 5f 6d 65 6e 75 28 6d 65 6e 75 25 2b 32 32 30 30 |_menu(menu%+2200|
00004210 2c 31 29 0d 15 36 85 20 20 c9 20 31 20 3a 20 f2 |,1)..6. . 1 : .|
00004220 73 68 75 74 28 6d 61 69 6e 31 25 29 3a f2 6f 70 |shut(main1%):.op|
00004230 65 6e 75 70 28 6d 61 69 6e 25 2c 30 2c 77 69 6e |enup(main%,0,win|
00004240 5f 6d 61 78 79 25 2c 77 69 6e 5f 6d 61 78 78 25 |_maxy%,win_maxx%|
00004250 2c 28 77 69 6e 5f 6d 61 78 79 25 2d 77 69 6e 5f |,(win_maxy%-win_|
00004260 6d 69 6e 79 25 29 29 3a e7 20 63 6c 63 6b 3d b9 |miny%)):. clck=.|
00004270 20 f2 6f 70 65 6e 75 70 28 63 6c 6f 63 6b 25 2c | .openup(clock%,|
00004280 63 6c 6f 63 6b 78 25 2c 63 6c 6f 63 6b 79 25 2c |clockx%,clocky%,|
00004290 32 30 30 2c 32 30 30 29 0d 15 40 26 20 20 20 20 |200,200)..@& |
000042a0 20 20 20 20 20 20 f2 67 72 65 79 5f 6d 65 6e 75 | .grey_menu|
000042b0 28 6d 65 6e 75 25 2b 32 32 30 30 2c 31 29 0d 15 |(menu%+2200,1)..|
000042c0 4a 26 20 20 20 20 20 20 20 20 20 20 f2 67 72 65 |J& .gre|
000042d0 79 5f 6d 65 6e 75 28 6d 65 6e 75 25 2b 32 32 30 |y_menu(menu%+220|
000042e0 30 2c 30 29 0d 15 54 15 20 20 c9 20 32 20 3a 20 |0,0)..T. . 2 : |
000042f0 c8 8e 20 71 25 21 38 20 ca 0d 15 5e 42 20 20 20 |.. q%!8 ...^B |
00004300 c9 20 2d 31 20 3a 20 63 6c 63 6b 3d ac 20 63 6c |. -1 : clck=. cl|
00004310 63 6b 3a f2 6d 65 6e 75 28 30 29 3a f2 67 72 65 |ck:.menu(0):.gre|
00004320 79 5f 6d 65 6e 75 28 6d 65 6e 75 25 2b 32 32 30 |y_menu(menu%+220|
00004330 30 2c 31 29 3a f2 63 6c 6f 63 6b 0d 15 68 5d 20 |0,1):.clock..h] |
00004340 20 20 c9 20 30 20 3a 20 f2 73 65 74 5f 63 6c 6f | . 0 : .set_clo|
00004350 63 6b 5f 66 6c 61 67 73 28 b9 2c a3 2c a3 2c 74 |ck_flags(.,.,.,t|
00004360 77 65 6c 76 65 2c 74 77 66 6f 75 72 2c 68 6f 75 |welve,twfour,hou|
00004370 72 29 3a f2 6d 65 6e 75 28 30 29 3a f2 67 72 65 |r):.menu(0):.gre|
00004380 79 5f 6d 65 6e 75 28 6d 65 6e 75 25 2b 32 32 30 |y_menu(menu%+220|
00004390 30 2c 31 29 3a f2 72 73 0d 15 72 5d 20 20 20 c9 |0,1):.rs..r] .|
000043a0 20 31 20 3a 20 f2 73 65 74 5f 63 6c 6f 63 6b 5f | 1 : .set_clock_|
000043b0 66 6c 61 67 73 28 a3 2c b9 2c a3 2c 74 77 65 6c |flags(.,.,.,twel|
000043c0 76 65 2c 74 77 66 6f 75 72 2c 68 6f 75 72 29 3a |ve,twfour,hour):|
000043d0 f2 6d 65 6e 75 28 30 29 3a f2 67 72 65 79 5f 6d |.menu(0):.grey_m|
000043e0 65 6e 75 28 6d 65 6e 75 25 2b 32 32 30 30 2c 31 |enu(menu%+2200,1|
000043f0 29 3a f2 72 73 0d 15 7c 5d 20 20 20 c9 20 32 20 |):.rs..|] . 2 |
00004400 3a 20 f2 73 65 74 5f 63 6c 6f 63 6b 5f 66 6c 61 |: .set_clock_fla|
00004410 67 73 28 a3 2c a3 2c b9 2c 74 77 65 6c 76 65 2c |gs(.,.,.,twelve,|
00004420 74 77 66 6f 75 72 2c 68 6f 75 72 29 3a f2 6d 65 |twfour,hour):.me|
00004430 6e 75 28 30 29 3a f2 67 72 65 79 5f 6d 65 6e 75 |nu(0):.grey_menu|
00004440 28 6d 65 6e 75 25 2b 32 32 30 30 2c 31 29 3a f2 |(menu%+2200,1):.|
00004450 72 73 0d 15 86 5e 20 20 20 c9 20 33 20 3a 20 f2 |rs...^ . 3 : .|
00004460 73 65 74 5f 63 6c 6f 63 6b 5f 66 6c 61 67 73 28 |set_clock_flags(|
00004470 65 6d 62 6f 73 73 2c 72 65 63 65 73 73 2c 62 6f |emboss,recess,bo|
00004480 72 64 65 72 2c b9 2c a3 2c 68 6f 75 72 29 3a f2 |rder,.,.,hour):.|
00004490 6d 65 6e 75 28 30 29 3a f2 67 72 65 79 5f 6d 65 |menu(0):.grey_me|
000044a0 6e 75 28 6d 65 6e 75 25 2b 32 32 30 30 2c 31 29 |nu(menu%+2200,1)|
000044b0 0d 15 90 5e 20 20 20 c9 20 34 20 3a 20 f2 73 65 |...^ . 4 : .se|
000044c0 74 5f 63 6c 6f 63 6b 5f 66 6c 61 67 73 28 65 6d |t_clock_flags(em|
000044d0 62 6f 73 73 2c 72 65 63 65 73 73 2c 62 6f 72 64 |boss,recess,bord|
000044e0 65 72 2c a3 2c b9 2c 68 6f 75 72 29 3a f2 6d 65 |er,.,.,hour):.me|
000044f0 6e 75 28 30 29 3a f2 67 72 65 79 5f 6d 65 6e 75 |nu(0):.grey_menu|
00004500 28 6d 65 6e 75 25 2b 32 32 30 30 2c 31 29 0d 15 |(menu%+2200,1)..|
00004510 9a 6a 20 20 20 c9 20 35 20 3a 20 f2 73 65 74 5f |.j . 5 : .set_|
00004520 63 6c 6f 63 6b 5f 66 6c 61 67 73 28 65 6d 62 6f |clock_flags(embo|
00004530 73 73 2c 72 65 63 65 73 73 2c 62 6f 72 64 65 72 |ss,recess,border|
00004540 2c 74 77 65 6c 76 65 2c 74 77 66 6f 75 72 2c ac |,twelve,twfour,.|
00004550 20 68 6f 75 72 29 3a f2 6d 65 6e 75 28 30 29 3a | hour):.menu(0):|
00004560 f2 67 72 65 79 5f 6d 65 6e 75 28 6d 65 6e 75 25 |.grey_menu(menu%|
00004570 2b 32 32 30 30 2c 31 29 0d 15 a4 98 20 20 20 c9 |+2200,1).... .|
00004580 20 36 20 3a 20 63 78 25 3d 70 6f 69 6e 74 65 72 | 6 : cx%=pointer|
00004590 25 21 30 3a 63 79 25 3d 70 6f 69 6e 74 65 72 25 |%!0:cy%=pointer%|
000045a0 21 34 3a f2 73 65 74 75 70 5f 73 63 6c 63 6b 3a |!4:.setup_sclck:|
000045b0 f2 6f 70 65 6e 75 70 28 63 73 65 74 25 2c 63 78 |.openup(cset%,cx|
000045c0 25 2c 63 79 25 2c 35 30 30 2c 32 35 30 29 3a c8 |%,cy%,500,250):.|
000045d0 99 20 22 58 57 69 6d 70 5f 53 65 74 43 61 72 65 |. "XWimp_SetCare|
000045e0 74 50 6f 73 69 74 69 6f 6e 22 2c 63 73 65 74 25 |tPosition",cset%|
000045f0 2c 32 2c 2c 2c 2d 31 2c a9 28 a4 67 65 74 69 63 |,2,,,-1,.(.getic|
00004600 6f 6e 64 61 74 61 28 63 73 65 74 25 2c 32 29 29 |ondata(cset%,2))|
00004610 0d 15 ae 07 20 20 cb 0d 15 b8 17 20 20 c9 20 33 |.... ..... . 3|
00004620 20 3a 20 71 25 21 38 3d 66 67 3a f2 66 67 0d 15 | : q%!8=fg:.fg..|
00004630 c2 26 20 20 c9 20 34 20 3a 20 6c 6f 63 6b 65 64 |.& . 4 : locked|
00004640 25 3d ac 20 6c 6f 63 6b 65 64 25 3a f2 6d 65 6e |%=. locked%:.men|
00004650 75 28 30 29 0d 15 cc 06 20 cb 0d 15 d6 19 20 c9 |u(0).... ..... .|
00004660 20 36 20 3a 20 f2 6d 6f 64 6c 5f 73 65 6e 64 6d | 6 : .modl_sendm|
00004670 65 6e 75 0d 15 e0 1d 20 c9 20 37 20 3a 20 f2 6d |enu.... . 7 : .m|
00004680 6f 64 6c 5f 71 75 69 74 3a 71 75 69 74 25 3d b9 |odl_quit:quit%=.|
00004690 0d 15 ea 05 cb 0d 15 f4 0f c9 20 26 46 46 46 46 |.......... &FFFF|
000046a0 46 46 46 46 0d 15 fe 16 20 20 e3 20 73 74 65 70 |FFFF.... . step|
000046b0 25 3d 30 20 b8 20 71 25 21 30 0d 16 08 27 20 20 |%=0 . q%!0...' |
000046c0 20 20 71 24 3d 24 28 66 69 6c 65 6d 65 6e 25 2b | q$=$(filemen%+|
000046d0 32 38 2b 28 32 34 2a 73 74 65 70 25 29 2b 31 32 |28+(24*step%)+12|
000046e0 29 0d 16 12 19 20 20 20 20 66 69 6c 65 70 61 74 |).... filepat|
000046f0 68 24 2b 3d 22 2e 22 2b 71 24 0d 16 1c 07 20 20 |h$+="."+q$.... |
00004700 ed 0d 16 26 35 20 20 c8 99 20 22 58 57 69 6d 70 |...&5 .. "XWimp|
00004710 5f 53 74 61 72 74 54 61 73 6b 22 2c 22 46 69 6c |_StartTask","Fil|
00004720 65 72 5f 4f 70 65 6e 44 69 72 20 22 2b 66 69 6c |er_OpenDir "+fil|
00004730 65 70 61 74 68 24 0d 16 30 05 cb 0d 16 3a 3d e7 |epath$..0....:=.|
00004740 20 6a 25 20 8c 20 c8 99 20 22 58 57 69 6d 70 5f | j% . .. "XWimp_|
00004750 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 6d 65 6e |CreateMenu",,men|
00004760 75 25 2c 70 6f 69 6e 74 65 72 25 21 30 2c 70 6f |u%,pointer%!0,po|
00004770 69 6e 74 65 72 25 21 34 0d 16 44 05 e1 0d 16 4e |inter%!4..D....N|
00004780 04 0d 16 58 1e dd 20 f2 6f 70 65 6e 75 70 28 77 |...X.. .openup(w|
00004790 68 61 6e 64 6c 65 2c 78 2c 79 2c 77 2c 68 29 0d |handle,x,y,w,h).|
000047a0 16 62 16 70 6f 69 6e 74 65 72 25 21 30 3d 77 68 |.b.pointer%!0=wh|
000047b0 61 6e 64 6c 65 0d 16 6c 1f 70 6f 69 6e 74 65 72 |andle..l.pointer|
000047c0 25 21 34 3d 78 3a 70 6f 69 6e 74 65 72 25 21 38 |%!4=x:pointer%!8|
000047d0 3d 79 2d 68 0d 16 76 21 70 6f 69 6e 74 65 72 25 |=y-h..v!pointer%|
000047e0 21 31 32 3d 78 2b 77 3a 70 6f 69 6e 74 65 72 25 |!12=x+w:pointer%|
000047f0 21 31 36 3d 79 0d 16 80 1f 70 6f 69 6e 74 65 72 |!16=y....pointer|
00004800 25 21 32 30 3d 30 3a 70 6f 69 6e 74 65 72 25 21 |%!20=0:pointer%!|
00004810 32 34 3d 30 0d 16 8a 55 e7 20 77 68 61 6e 64 6c |24=0...U. whandl|
00004820 65 3d 6d 61 69 6e 25 20 84 20 77 68 61 6e 64 6c |e=main% . whandl|
00004830 65 3d 6d 61 69 6e 31 25 20 84 20 77 68 61 6e 64 |e=main1% . whand|
00004840 6c 65 3d 63 6c 6f 63 6b 25 20 70 6f 69 6e 74 65 |le=clock% pointe|
00004850 72 25 21 32 38 3d 2d 32 20 8b 20 70 6f 69 6e 74 |r%!28=-2 . point|
00004860 65 72 25 21 32 38 3d 2d 31 0d 16 94 23 c8 99 20 |er%!28=-1...#.. |
00004870 22 58 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f |"XWimp_OpenWindo|
00004880 77 22 2c 2c 70 6f 69 6e 74 65 72 25 0d 16 9e 05 |w",,pointer%....|
00004890 e1 0d 16 a8 04 0d 16 b2 0f dd 20 f2 73 6c 61 62 |.......... .slab|
000048a0 69 63 6f 6e 0d 16 bc 22 c8 99 20 22 58 49 6e 74 |icon...".. "XInt|
000048b0 65 72 66 61 63 65 5f 53 6c 61 62 42 75 74 74 6f |erface_SlabButto|
000048c0 6e 22 2c 2c 71 25 0d 16 c6 0a 71 25 21 38 3d 30 |n",,q%....q%!8=0|
000048d0 0d 16 d0 22 c8 99 20 22 58 49 6e 74 65 72 66 61 |...".. "XInterfa|
000048e0 63 65 5f 53 6c 61 62 42 75 74 74 6f 6e 22 2c 2c |ce_SlabButton",,|
000048f0 71 25 0d 16 da 05 e1 0d 16 e4 04 0d 16 ee 21 dd |q%............!.|
00004900 20 a4 67 65 74 69 63 6f 6e 64 61 74 61 28 77 69 | .geticondata(wi|
00004910 6e 64 6f 77 25 2c 69 63 6f 6e 25 29 0d 16 f8 16 |ndow%,icon%)....|
00004920 70 6f 69 6e 74 65 72 25 21 30 3d 77 69 6e 64 6f |pointer%!0=windo|
00004930 77 25 0d 17 02 14 70 6f 69 6e 74 65 72 25 21 34 |w%....pointer%!4|
00004940 3d 69 63 6f 6e 25 0d 17 0c 25 c8 99 20 22 58 57 |=icon%...%.. "XW|
00004950 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 |imp_GetIconState|
00004960 22 2c 2c 70 6f 69 6e 74 65 72 25 0d 17 16 13 3d |",,pointer%....=|
00004970 24 28 70 6f 69 6e 74 65 72 25 21 32 38 29 0d 17 |$(pointer%!28)..|
00004980 20 04 0d 17 2a 24 dd 20 f2 70 75 74 69 63 6f 6e | ...*$. .puticon|
00004990 64 61 74 61 28 77 69 6e 64 6f 77 25 2c 69 63 6f |data(window%,ico|
000049a0 6e 25 2c 54 24 29 0d 17 34 16 70 6f 69 6e 74 65 |n%,T$)..4.pointe|
000049b0 72 25 21 30 3d 77 69 6e 64 6f 77 25 0d 17 3e 14 |r%!0=window%..>.|
000049c0 70 6f 69 6e 74 65 72 25 21 34 3d 69 63 6f 6e 25 |pointer%!4=icon%|
000049d0 0d 17 48 25 c8 99 20 22 58 57 69 6d 70 5f 47 65 |..H%.. "XWimp_Ge|
000049e0 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 70 6f 69 |tIconState",,poi|
000049f0 6e 74 65 72 25 0d 17 52 10 70 6f 69 6e 74 65 72 |nter%..R.pointer|
00004a00 25 21 38 3d 30 0d 17 5c 11 70 6f 69 6e 74 65 72 |%!8=0..\.pointer|
00004a10 25 21 31 32 3d 30 0d 17 66 15 24 28 70 6f 69 6e |%!12=0..f.$(poin|
00004a20 74 65 72 25 21 32 38 29 3d 54 24 0d 17 70 25 c8 |ter%!28)=T$..p%.|
00004a30 99 20 22 58 57 69 6d 70 5f 53 65 74 49 63 6f 6e |. "XWimp_SetIcon|
00004a40 53 74 61 74 65 22 2c 2c 70 6f 69 6e 74 65 72 25 |State",,pointer%|
00004a50 0d 17 7a 05 e1 0d 17 84 04 0d 17 8e 13 dd 20 f2 |..z........... .|
00004a60 6c 6f 61 64 62 61 63 6b 64 72 6f 70 0d 17 98 29 |loadbackdrop...)|
00004a70 73 70 6c 6f 61 64 65 64 3d b9 3a f2 70 75 74 69 |sploaded=.:.puti|
00004a80 63 6f 6e 73 70 72 69 74 65 28 6d 61 69 6e 25 2c |consprite(main%,|
00004a90 30 2c 22 22 29 0d 17 a2 28 ea 20 6e 25 2c 6f 25 |0,"")...(. n%,o%|
00004aa0 2c 62 25 2c 71 24 2c 68 25 2c 78 25 2c 79 25 2c |,b%,q$,h%,x%,y%,|
00004ab0 76 25 2c 6d 25 2c 76 61 72 25 2c 7a 24 0d 17 ac |v%,m%,var%,z$...|
00004ac0 18 ff 28 22 49 63 6f 6e 53 70 72 69 74 65 73 20 |..("IconSprites |
00004ad0 22 2b 66 24 29 0d 17 b6 26 c8 99 20 22 4f 53 5f |"+f$)...&.. "OS_|
00004ae0 53 70 72 69 74 65 4f 70 22 2c 32 35 36 2b 31 30 |SpriteOp",256+10|
00004af0 2c 73 70 72 69 74 65 25 2c 66 24 0d 17 c0 0c 68 |,sprite%,f$....h|
00004b00 25 3d 8e 28 66 24 29 0d 17 ca 15 6e 25 3d a4 62 |%=.(f$)....n%=.b|
00004b10 3a 6f 25 3d a4 62 3a 62 25 3d 2d 34 0d 17 d4 1b |:o%=.b:b%=-4....|
00004b20 cf 23 68 25 3d 6f 25 2b 62 25 3a 62 25 2b 3d 6f |.#h%=o%+b%:b%+=o|
00004b30 25 3a 6f 25 3d a4 62 0d 17 de 28 71 24 3d 22 22 |%:o%=.b...(q$=""|
00004b40 3a e3 20 76 61 72 3d 31 20 b8 20 31 32 3a 71 24 |:. var=1 . 12:q$|
00004b50 2b 3d bd 28 9a 23 68 25 29 3a ed 20 76 61 72 0d |+=.(.#h%):. var.|
00004b60 17 e8 11 70 61 6c 65 74 74 65 24 3d 22 4e 6f 22 |...palette$="No"|
00004b70 0d 17 f2 4c 78 25 3d a4 62 3a 79 25 3d a4 62 3a |...Lx%=.b:y%=.b:|
00004b80 76 25 3d 2d a4 62 2b a4 62 2d 33 31 3a 6d 25 3d |v%=-.b+.b-31:m%=|
00004b90 a4 62 3a e7 6d 25 3d 8f 23 68 25 2d 34 20 70 61 |.b:.m%=.#h%-4 pa|
00004ba0 6c 65 74 74 65 24 3d 22 4e 6f 22 20 8b 20 70 61 |lette$="No" . pa|
00004bb0 6c 65 74 74 65 24 3d 22 59 65 73 22 0d 17 fc 1f |lette$="Yes"....|
00004bc0 e7 20 6d 25 20 82 20 a4 62 3a 7a 24 3d 22 59 65 |. m% . .b:z$="Ye|
00004bd0 73 22 20 8b 20 7a 24 3d 22 4e 22 0d 18 06 31 6d |s" . z$="N"...1m|
00004be0 25 3d a4 62 3a c8 99 20 22 58 4f 53 5f 52 65 61 |%=.b:.. "XOS_Rea|
00004bf0 64 4d 6f 64 65 56 61 72 69 61 62 6c 65 22 2c 6d |dModeVariable",m|
00004c00 25 2c 39 20 b8 20 2c 2c 76 61 72 25 0d 18 10 3f |%,9 . ,,var%...?|
00004c10 78 25 3d 28 33 32 2a 28 78 25 2b 31 29 2b 76 25 |x%=(32*(x%+1)+v%|
00004c20 29 20 81 20 32 5e 76 61 72 25 3a 73 70 78 25 3d |) . 2^var%:spx%=|
00004c30 78 25 3a 73 70 79 25 3d 79 25 2b 31 3a 62 61 63 |x%:spy%=y%+1:bac|
00004c40 6b 73 70 6e 61 6d 65 24 3d 71 24 0d 18 1a 2b c8 |kspname$=q$...+.|
00004c50 99 20 22 58 4f 53 5f 52 65 61 64 4d 6f 64 65 56 |. "XOS_ReadModeV|
00004c60 61 72 69 61 62 6c 65 22 2c 6d 25 2c 34 20 b8 20 |ariable",m%,4 . |
00004c70 2c 2c 76 61 72 25 0d 18 24 14 73 70 31 78 25 3d |,,var%..$.sp1x%=|
00004c80 73 70 78 25 3c 3c 76 61 72 25 0d 18 2e 2b c8 99 |spx%<<var%...+..|
00004c90 20 22 58 4f 53 5f 52 65 61 64 4d 6f 64 65 56 61 | "XOS_ReadModeVa|
00004ca0 72 69 61 62 6c 65 22 2c 6d 25 2c 35 20 b8 20 2c |riable",m%,5 . ,|
00004cb0 2c 76 61 72 25 0d 18 38 14 73 70 31 79 25 3d 73 |,var%..8.sp1y%=s|
00004cc0 70 79 25 3c 3c 76 61 72 25 0d 18 42 08 d9 23 68 |py%<<var%..B..#h|
00004cd0 25 0d 18 4c 28 c8 99 20 22 58 4f 53 5f 43 68 65 |%..L(.. "XOS_Che|
00004ce0 63 6b 4d 6f 64 65 56 61 6c 69 64 22 2c 6d 25 20 |ckModeValid",m% |
00004cf0 b8 20 65 78 69 73 74 73 25 0d 18 56 35 e7 20 65 |. exists%..V5. e|
00004d00 78 69 73 74 73 25 3c 3e 2d 31 20 80 20 65 78 69 |xists%<>-1 . exi|
00004d10 73 74 73 25 3c 3e 2d 32 20 c8 99 20 22 58 57 69 |sts%<>-2 .. "XWi|
00004d20 6d 70 5f 53 65 74 4d 6f 64 65 22 2c 6d 25 0d 18 |mp_SetMode",m%..|
00004d30 60 28 f2 73 74 72 69 6e 67 5f 61 74 5f 61 64 64 |`(.string_at_add|
00004d40 72 65 73 73 28 62 61 63 6b 73 70 6e 61 6d 65 24 |ress(backspname$|
00004d50 2c 6c 6f 63 25 29 0d 18 6a 36 21 6e 61 6d 65 25 |,loc%)..j6!name%|
00004d60 3d 6c 6f 63 25 3a 21 73 70 25 3d 73 70 72 69 74 |=loc%:!sp%=sprit|
00004d70 65 25 3a 21 78 69 6e 63 25 3d 73 70 31 78 25 3a |e%:!xinc%=sp1x%:|
00004d80 21 79 69 6e 63 25 3d 73 70 31 79 25 0d 18 74 0e |!yinc%=sp1y%..t.|
00004d90 f2 70 69 78 5f 74 72 61 6e 73 0d 18 7e 2f e7 20 |.pix_trans..~/. |
00004da0 74 69 6c 65 64 3d b9 20 f2 74 69 6c 65 64 28 6d |tiled=. .tiled(m|
00004db0 25 2c 73 70 78 25 2c 73 70 79 25 2c 71 24 2c 78 |%,spx%,spy%,q$,x|
00004dc0 25 2c 79 25 2b 31 29 3a e1 0d 18 88 27 f2 70 75 |%,y%+1):....'.pu|
00004dd0 74 69 63 6f 6e 73 70 72 69 74 65 28 6d 61 69 6e |ticonsprite(main|
00004de0 25 2c 30 2c 62 61 63 6b 73 70 6e 61 6d 65 24 29 |%,0,backspname$)|
00004df0 0d 18 92 12 73 70 72 69 74 65 66 69 6c 65 24 3d |....spritefile$=|
00004e00 66 24 0d 18 9c 1d f2 70 75 74 69 63 6f 6e 64 61 |f$.....puticonda|
00004e10 74 61 28 61 62 61 63 6b 25 2c 33 2c 66 24 29 0d |ta(aback%,3,f$).|
00004e20 18 a6 26 f2 70 75 74 69 63 6f 6e 64 61 74 61 28 |..&.puticondata(|
00004e30 61 62 61 63 6b 25 2c 34 2c 62 61 63 6b 73 70 6e |aback%,4,backspn|
00004e40 61 6d 65 24 29 0d 18 b0 23 f2 70 75 74 69 63 6f |ame$)...#.putico|
00004e50 6e 64 61 74 61 28 61 62 61 63 6b 25 2c 35 2c 70 |ndata(aback%,5,p|
00004e60 61 6c 65 74 74 65 24 29 0d 18 ba 24 f2 70 75 74 |alette$)...$.put|
00004e70 69 63 6f 6e 64 61 74 61 28 61 62 61 63 6b 25 2c |icondata(aback%,|
00004e80 37 2c 22 43 65 6e 74 72 65 64 22 29 0d 18 c4 1f |7,"Centred")....|
00004e90 f2 70 75 74 69 63 6f 6e 64 61 74 61 28 61 62 61 |.puticondata(aba|
00004ea0 63 6b 25 2c 31 34 2c c3 6d 25 29 0d 18 ce 1f f2 |ck%,14,.m%).....|
00004eb0 70 75 74 69 63 6f 6e 64 61 74 61 28 61 62 61 63 |puticondata(abac|
00004ec0 6b 25 2c 31 36 2c c3 78 25 29 0d 18 d8 23 f2 70 |k%,16,.x%)...#.p|
00004ed0 75 74 69 63 6f 6e 64 61 74 61 28 61 62 61 63 6b |uticondata(aback|
00004ee0 25 2c 31 38 2c c3 28 79 25 2b 31 29 29 0d 18 e2 |%,18,.(y%+1))...|
00004ef0 1d c8 99 20 22 58 57 69 6d 70 5f 43 72 65 61 74 |... "XWimp_Creat|
00004f00 65 4d 65 6e 75 22 2c 2c 2d 31 0d 18 ec 05 e1 0d |eMenu",,-1......|
00004f10 18 f6 04 0d 19 00 19 dd 20 f2 64 69 73 70 6c 61 |........ .displa|
00004f20 79 5f 62 6c 6f 63 6b 28 6d 61 78 29 0d 19 0a 17 |y_block(max)....|
00004f30 f4 20 64 65 62 75 67 67 69 6e 67 20 72 6f 75 74 |. debugging rout|
00004f40 69 6e 65 0d 19 14 05 f4 0d 19 1e 23 f4 20 44 69 |ine........#. Di|
00004f50 73 70 6c 61 79 73 20 77 69 6d 70 20 70 61 72 61 |splays wimp para|
00004f60 6d 65 74 65 72 20 62 6c 6f 63 6b 0d 19 28 05 3a |meter block..(.:|
00004f70 0d 19 32 13 e3 20 49 3d 30 20 b8 20 6d 61 78 20 |..2.. I=0 . max |
00004f80 88 20 34 0d 19 3c 28 e7 20 49 3d 32 34 20 78 25 |. 4..<(. I=24 x%|
00004f90 3d a4 65 72 72 6f 72 28 c3 7e 28 70 6f 69 6e 74 |=.error(.~(point|
00004fa0 65 72 25 21 49 29 2c 31 29 3a ed 0d 19 46 27 e7 |er%!I),1):...F'.|
00004fb0 20 49 3d 32 38 20 78 25 3d a4 65 72 72 6f 72 28 | I=28 x%=.error(|
00004fc0 24 28 70 6f 69 6e 74 65 72 25 2b 49 29 2c 31 29 |$(pointer%+I),1)|
00004fd0 3a ed 0d 19 50 29 e7 20 49 3d 33 32 20 78 25 3d |:...P). I=32 x%=|
00004fe0 a4 65 72 72 6f 72 28 24 28 70 6f 69 6e 74 65 72 |.error($(pointer|
00004ff0 25 2b 49 29 2c 31 29 3a ed 3a e1 0d 19 5a 23 f4 |%+I),1):.:...Z#.|
00005000 20 61 6e 64 20 6e 6f 77 20 67 65 6e 65 72 61 6c | and now general|
00005010 20 70 75 72 70 6f 73 65 20 73 74 75 66 66 0d 19 | purpose stuff..|
00005020 64 1c 78 25 3d a4 65 72 72 6f 72 28 c3 70 6f 69 |d.x%=.error(.poi|
00005030 6e 74 65 72 25 21 49 2c 31 29 0d 19 6e 05 ed 0d |nter%!I,1)..n...|
00005040 19 78 05 3a 0d 19 82 05 e1 0d 19 8c 04 0d 19 96 |.x.:............|
00005050 26 dd 20 f2 70 75 74 69 63 6f 6e 73 70 72 69 74 |&. .puticonsprit|
00005060 65 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 2c |e(window%,icon%,|
00005070 54 24 29 0d 19 a0 27 70 6f 69 6e 74 65 72 25 21 |T$)...'pointer%!|
00005080 30 3d 77 69 6e 64 6f 77 25 3a 70 6f 69 6e 74 65 |0=window%:pointe|
00005090 72 25 21 34 3d 69 63 6f 6e 25 0d 19 aa 25 c8 99 |r%!4=icon%...%..|
000050a0 20 22 58 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 | "XWimp_GetIconS|
000050b0 74 61 74 65 22 2c 2c 70 6f 69 6e 74 65 72 25 0d |tate",,pointer%.|
000050c0 19 b4 23 c8 99 20 22 58 57 69 6d 70 5f 44 65 6c |..#.. "XWimp_Del|
000050d0 65 74 65 49 63 6f 6e 22 2c 2c 70 6f 69 6e 74 65 |eteIcon",,pointe|
000050e0 72 25 0d 19 be 34 70 6f 69 6e 74 65 72 25 21 34 |r%...4pointer%!4|
000050f0 3d 77 69 6e 64 6f 77 25 3a 24 28 70 6f 69 6e 74 |=window%:$(point|
00005100 65 72 25 2b 32 38 29 3d 54 24 3a 70 6f 69 6e 74 |er%+28)=T$:point|
00005110 65 72 25 2b 3d 34 0d 19 c8 81 c8 99 20 22 58 57 |er%+=4...... "XW|
00005120 69 6d 70 5f 43 72 65 61 74 65 49 63 6f 6e 22 2c |imp_CreateIcon",|
00005130 2c 70 6f 69 6e 74 65 72 25 3a c8 99 20 22 58 57 |,pointer%:.. "XW|
00005140 69 6d 70 5f 46 6f 72 63 65 52 65 64 72 61 77 22 |imp_ForceRedraw"|
00005150 2c 70 6f 69 6e 74 65 72 25 21 30 2c 70 6f 69 6e |,pointer%!0,poin|
00005160 74 65 72 25 21 34 2c 70 6f 69 6e 74 65 72 25 21 |ter%!4,pointer%!|
00005170 38 2c 70 6f 69 6e 74 65 72 25 21 31 32 2c 70 6f |8,pointer%!12,po|
00005180 69 6e 74 65 72 25 21 31 36 3a 70 6f 69 6e 74 65 |inter%!16:pointe|
00005190 72 25 2d 3d 34 3a e1 0d 19 d2 04 0d 19 dc 3a dd |r%-=4:........:.|
000051a0 20 f2 63 72 65 61 74 65 5f 69 63 6f 6e 28 68 61 | .create_icon(ha|
000051b0 6e 64 6c 65 2c 61 64 64 72 2c 6d 69 6e 78 2c 6d |ndle,addr,minx,m|
000051c0 61 78 78 2c 6d 69 6e 79 2c 68 74 2c 74 24 2c 66 |axx,miny,ht,t$,f|
000051d0 6c 61 67 73 29 0d 19 e6 11 70 6f 69 6e 74 25 3d |lags)....point%=|
000051e0 71 25 2b 34 30 30 0d 19 f0 13 70 6f 69 6e 74 25 |q%+400....point%|
000051f0 21 30 3d 68 61 6e 64 6c 65 0d 19 fa 11 70 6f 69 |!0=handle....poi|
00005200 6e 74 25 21 34 3d 6d 69 6e 78 0d 1a 04 11 70 6f |nt%!4=minx....po|
00005210 69 6e 74 25 21 38 3d 6d 69 6e 79 0d 1a 0e 12 70 |int%!8=miny....p|
00005220 6f 69 6e 74 25 21 31 32 3d 6d 61 78 78 0d 1a 18 |oint%!12=maxx...|
00005230 15 70 6f 69 6e 74 25 21 31 36 3d 6d 69 6e 79 2b |.point%!16=miny+|
00005240 68 74 0d 1a 22 13 70 6f 69 6e 74 25 21 32 30 3d |ht..".point%!20=|
00005250 66 6c 61 67 73 0d 1a 2c 0e e7 20 61 64 64 72 3d |flags..,.. addr=|
00005260 30 20 8c 0d 1a 36 13 24 28 70 6f 69 6e 74 25 2b |0 ...6.$(point%+|
00005270 32 34 29 3d 74 24 0d 1a 40 05 cc 0d 1a 4a 12 70 |24)=t$..@....J.p|
00005280 6f 69 6e 74 25 21 32 34 3d 61 64 64 72 0d 1a 54 |oint%!24=addr..T|
00005290 10 70 6f 69 6e 74 25 21 32 38 3d 2d 31 0d 1a 5e |.point%!28=-1..^|
000052a0 10 70 6f 69 6e 74 25 21 33 32 3d 33 32 0d 1a 68 |.point%!32=32..h|
000052b0 05 cd 0d 1a 72 25 c8 99 20 22 57 69 6d 70 5f 43 |....r%.. "Wimp_C|
000052c0 72 65 61 74 65 49 63 6f 6e 22 2c 2c 70 6f 69 6e |reateIcon",,poin|
000052d0 74 25 20 b8 20 69 25 0d 1a 7c 05 e1 0d 1a 86 04 |t% . i%..|......|
000052e0 0d 1a 90 13 dd 20 f2 61 64 64 74 6f 64 65 73 6b |..... .addtodesk|
000052f0 74 6f 70 0d 1a 9a 0c 74 79 70 65 24 3d 22 22 0d |top....type$="".|
00005300 1a a4 38 e7 20 71 25 21 34 30 3c 3e 26 32 30 30 |..8. q%!40<>&200|
00005310 30 20 80 20 71 25 21 34 30 3c 3e 26 31 30 30 30 |0 . q%!40<>&1000|
00005320 20 74 79 70 65 24 3d a4 67 65 74 66 74 79 70 65 | type$=.getftype|
00005330 28 71 25 21 34 30 29 0d 1a ae 26 e7 20 71 25 21 |(q%!40)...&. q%!|
00005340 34 30 3d 26 32 30 30 30 20 8c 20 74 79 70 65 24 |40=&2000 . type$|
00005350 3d a4 6c 61 73 74 62 69 74 28 66 24 29 0d 1a b8 |=.lastbit(f$)...|
00005360 23 e7 20 71 25 21 34 30 3d 26 31 30 30 30 20 74 |#. q%!40=&1000 t|
00005370 79 70 65 24 3d 22 64 69 72 65 63 74 6f 72 79 22 |ype$="directory"|
00005380 0d 1a c2 11 73 70 6e 61 6d 65 24 3d 74 79 70 65 |....spname$=type|
00005390 24 0d 1a cc 2b c8 99 20 22 58 57 69 6d 70 5f 53 |$...+.. "XWimp_S|
000053a0 70 72 69 74 65 4f 70 22 2c 34 30 2c 2c 74 79 70 |priteOp",40,,typ|
000053b0 65 24 20 b8 20 3b 66 6c 61 67 73 25 0d 1a d6 16 |e$ . ;flags%....|
000053c0 e7 20 28 66 6c 61 67 73 25 20 80 20 31 29 3d 31 |. (flags% . 1)=1|
000053d0 20 8c 0d 1a e0 28 20 e7 20 71 25 21 34 30 3d 26 | ....( . q%!40=&|
000053e0 32 30 30 30 20 73 70 6e 61 6d 65 24 3d 22 61 70 |2000 spname$="ap|
000053f0 70 6c 69 63 61 74 69 6f 6e 22 0d 1a ea 35 20 e7 |plication"...5 .|
00005400 20 71 25 21 34 30 3c 3e 26 32 30 30 30 20 80 20 | q%!40<>&2000 . |
00005410 71 25 21 34 30 3c 3e 26 31 30 30 30 20 73 70 6e |q%!40<>&1000 spn|
00005420 61 6d 65 24 3d 22 66 69 6c 65 5f 78 78 78 22 0d |ame$="file_xxx".|
00005430 1a f4 05 cd 0d 1a fe 42 66 67 24 3d c3 7e 28 66 |.......Bfg$=.~(f|
00005440 67 29 3a 62 67 24 3d c3 7e 28 62 67 29 3a 66 6c |g):bg$=.~(bg):fl|
00005450 61 67 24 3d 62 67 24 2b 66 67 24 2b 22 30 31 38 |ag$=bg$+fg$+"018|
00005460 30 33 39 22 3a 66 6c 61 67 3d a0 28 22 26 22 2b |039":flag=.("&"+|
00005470 66 6c 61 67 24 29 0d 1b 08 27 c8 99 20 22 58 57 |flag$)...'.. "XW|
00005480 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 6e |imp_GetPointerIn|
00005490 66 6f 22 2c 2c 70 6f 69 6e 74 65 72 25 0d 1b 12 |fo",,pointer%...|
000054a0 21 70 6f 69 6e 74 65 72 25 21 30 2d 3d 33 32 3a |!pointer%!0-=32:|
000054b0 70 6f 69 6e 74 65 72 25 21 34 2b 3d 33 32 0d 1b |pointer%!4+=32..|
000054c0 1c b6 f2 63 72 65 61 74 65 5f 69 63 6f 6e 28 6d |...create_icon(m|
000054d0 61 69 6e 25 2c 30 2c 70 6f 69 6e 74 65 72 25 21 |ain%,0,pointer%!|
000054e0 30 2d 35 30 2c 70 6f 69 6e 74 65 72 25 21 30 2b |0-50,pointer%!0+|
000054f0 31 31 35 2c 2d 28 31 30 32 34 2d 28 70 6f 69 6e |115,-(1024-(poin|
00005500 74 65 72 25 21 34 2d 36 35 29 29 2c 36 35 2c 73 |ter%!4-65)),65,s|
00005510 70 6e 61 6d 65 24 2c 26 34 37 30 31 38 30 31 41 |pname$,&4701801A|
00005520 29 3a 66 69 6c 65 24 28 69 25 29 3d 66 24 3a 78 |):file$(i%)=f$:x|
00005530 28 69 25 29 3d 70 6f 69 6e 74 65 72 25 21 30 3a |(i%)=pointer%!0:|
00005540 79 28 69 25 29 3d 70 6f 69 6e 74 65 72 25 21 34 |y(i%)=pointer%!4|
00005550 3a 66 74 79 70 65 24 28 69 25 29 3d 74 79 70 65 |:ftype$(i%)=type|
00005560 24 3a 66 69 6c 65 74 79 70 65 28 69 25 29 3d 71 |$:filetype(i%)=q|
00005570 25 21 34 30 0d 1b 26 44 e7 20 71 25 21 34 30 3d |%!40..&D. q%!40=|
00005580 26 32 30 30 30 20 74 79 70 65 28 69 25 29 3d 30 |&2000 type(i%)=0|
00005590 20 8b 20 e7 20 71 25 21 34 30 3d 26 31 30 30 30 | . . q%!40=&1000|
000055a0 20 74 79 70 65 28 69 25 29 3d 31 20 8b 20 74 79 | type(i%)=1 . ty|
000055b0 70 65 28 69 25 29 3d 32 0d 1b 30 27 6e 61 6d 65 |pe(i%)=2..0'name|
000055c0 24 3d a4 6c 61 73 74 62 69 74 28 66 24 29 3a 77 |$=.lastbit(f$):w|
000055d0 69 64 25 3d 28 a9 6e 61 6d 65 24 29 2a 31 36 0d |id%=(.name$)*16.|
000055e0 1b 3a 72 f2 63 72 65 61 74 65 5f 69 63 6f 6e 28 |.:r.create_icon(|
000055f0 6d 61 69 6e 25 2c 30 2c 28 70 6f 69 6e 74 65 72 |main%,0,(pointer|
00005600 25 21 30 2d 28 77 69 64 25 2f 32 29 29 2b 33 30 |%!0-(wid%/2))+30|
00005610 2c 28 70 6f 69 6e 74 65 72 25 21 30 2b 28 77 69 |,(pointer%!0+(wi|
00005620 64 25 2f 32 29 29 2b 33 30 2c 2d 28 31 30 32 34 |d%/2))+30,-(1024|
00005630 2d 28 70 6f 69 6e 74 65 72 25 21 34 2d 31 31 35 |-(pointer%!4-115|
00005640 29 29 2c 33 36 2c 6e 61 6d 65 24 2c 66 6c 61 67 |)),36,name$,flag|
00005650 29 0d 1b 44 26 f2 70 75 74 69 63 6f 6e 73 70 72 |)..D&.puticonspr|
00005660 69 74 65 28 6d 61 69 6e 25 2c 69 25 2d 31 2c 73 |ite(main%,i%-1,s|
00005670 70 6e 61 6d 65 24 29 0d 1b 4e 49 c8 99 20 22 58 |pname$)..NI.. "X|
00005680 57 69 6d 70 5f 46 6f 72 63 65 52 65 64 72 61 77 |Wimp_ForceRedraw|
00005690 22 2c 70 6f 69 6e 74 25 21 30 2c 70 6f 69 6e 74 |",point%!0,point|
000056a0 25 21 34 2c 70 6f 69 6e 74 25 21 38 2c 70 6f 69 |%!4,point%!8,poi|
000056b0 6e 74 25 21 31 32 2c 70 6f 69 6e 74 25 21 31 36 |nt%!12,point%!16|
000056c0 0d 1b 58 05 e1 0d 1b 62 04 0d 1b 6c 11 dd 20 f2 |..X....b...l.. .|
000056d0 73 74 61 79 74 6f 67 67 6c 65 0d 1b 76 28 e7 20 |staytoggle..v(. |
000056e0 73 74 61 79 6f 70 65 6e 3d a3 20 73 74 61 79 6f |stayopen=. stayo|
000056f0 70 65 6e 3d b9 20 8b 20 73 74 61 79 6f 70 65 6e |pen=. . stayopen|
00005700 3d a3 0d 1b 80 b7 e7 20 73 74 61 79 6f 70 65 6e |=...... stayopen|
00005710 3d b9 20 f2 70 75 74 69 63 6f 6e 73 70 72 69 74 |=. .puticonsprit|
00005720 65 28 62 61 63 6b 64 72 6f 70 25 2c 34 2c 22 74 |e(backdrop%,4,"t|
00005730 6f 70 74 6f 6e 22 29 3a 70 6f 69 6e 74 65 72 25 |opton"):pointer%|
00005740 21 30 3d 62 61 63 6b 64 72 6f 70 25 3a c8 99 20 |!0=backdrop%:.. |
00005750 22 58 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 |"XWimp_GetWindow|
00005760 53 74 61 74 65 22 2c 2c 70 6f 69 6e 74 65 72 25 |State",,pointer%|
00005770 3a c8 99 20 22 58 57 69 6d 70 5f 43 72 65 61 74 |:.. "XWimp_Creat|
00005780 65 4d 65 6e 75 22 2c 2c 2d 31 3a 70 6f 69 6e 74 |eMenu",,-1:point|
00005790 65 72 25 21 32 38 3d 2d 31 3a c8 99 20 22 58 57 |er%!28=-1:.. "XW|
000057a0 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c |imp_OpenWindow",|
000057b0 2c 70 6f 69 6e 74 65 72 25 0d 1b 8a 36 e7 20 73 |,pointer%...6. s|
000057c0 74 61 79 6f 70 65 6e 3d a3 20 f2 70 75 74 69 63 |tayopen=. .putic|
000057d0 6f 6e 73 70 72 69 74 65 28 62 61 63 6b 64 72 6f |onsprite(backdro|
000057e0 70 25 2c 34 2c 22 74 6f 70 74 6f 66 66 22 29 0d |p%,4,"toptoff").|
000057f0 1b 94 05 e1 0d 1b 9e 04 0d 1b a8 34 dd 20 a4 72 |...........4. .r|
00005800 74 6f 7a 28 54 25 29 3a 71 24 3d 22 22 3a c8 95 |toz(T%):q$="":..|
00005810 20 3f 54 25 3c 3e 30 3a 71 24 2b 3d bd 3f 54 25 | ?T%<>0:q$+=.?T%|
00005820 3a 54 25 2b 3d 31 3a ce 3a 3d 71 24 0d 1b b2 04 |:T%+=1:.:=q$....|
00005830 0d 1b bc 09 dd 20 a4 78 79 0d 1b c6 0e f4 20 44 |..... .xy..... D|
00005840 65 62 75 67 20 46 4e 0d 1b d0 20 3d c3 70 6f 69 |ebug FN... =.poi|
00005850 6e 74 65 72 25 21 30 2b 22 2f 22 2b c3 70 6f 69 |nter%!0+"/"+.poi|
00005860 6e 74 65 72 25 21 34 0d 1b da 04 0d 1b e4 17 dd |nter%!4.........|
00005870 20 a4 7a 65 72 6f 28 65 78 70 72 65 73 73 69 6f | .zero(expressio|
00005880 6e 29 0d 1b ee 11 3d 30 2d 65 78 70 72 65 73 73 |n)....=0-express|
00005890 69 6f 6e 0d 1b f8 04 0d 1c 02 12 dd 20 a4 6c 61 |ion......... .la|
000058a0 73 74 62 69 74 28 73 24 29 0d 1c 0c 22 e7 20 73 |stbit(s$)...". s|
000058b0 24 3d 22 3c 57 69 6d 70 24 53 63 72 61 70 3e 22 |$="<Wimp$Scrap>"|
000058c0 20 3d 22 54 65 6d 70 6f 72 79 22 0d 1c 16 11 c8 | ="Tempory".....|
000058d0 95 20 a7 73 24 2c 22 3a 22 29 3e 30 0d 1c 20 16 |. .s$,":")>0.. .|
000058e0 73 24 3d c1 73 24 2c a7 73 24 2c 22 3a 22 29 2b |s$=.s$,.s$,":")+|
000058f0 31 29 0d 1c 2a 05 ce 0d 1c 34 11 c8 95 20 a7 73 |1)..*....4... .s|
00005900 24 2c 22 2e 22 29 3e 30 0d 1c 3e 16 73 24 3d c1 |$,".")>0..>.s$=.|
00005910 73 24 2c a7 73 24 2c 22 2e 22 29 2b 31 29 0d 1c |s$,.s$,".")+1)..|
00005920 48 05 ce 0d 1c 52 07 3d 73 24 0d 1c 5c 04 0d 1c |H....R.=s$..\...|
00005930 66 0f dd 20 f2 72 75 6e 28 76 61 6c 29 0d 1c 70 |f.. .run(val)..p|
00005940 18 e7 20 28 76 61 6c 20 83 20 32 3d 30 29 20 76 |.. (val . 2=0) v|
00005950 61 6c 2d 3d 31 0d 1c 7a 27 c8 99 20 22 58 57 69 |al-=1..z'.. "XWi|
00005960 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 6e 66 |mp_GetPointerInf|
00005970 6f 22 2c 2c 70 6f 69 6e 74 65 72 25 0d 1c 84 23 |o",,pointer%...#|
00005980 78 3d 70 6f 69 6e 74 65 72 25 21 30 2d 33 32 3a |x=pointer%!0-32:|
00005990 79 3d 70 6f 69 6e 74 65 72 25 21 34 2b 33 32 0d |y=pointer%!4+32.|
000059a0 1c 8e 12 c8 8e 20 74 79 70 65 28 76 61 6c 29 20 |..... type(val) |
000059b0 ca 0d 1c 98 07 c9 20 33 0d 1c a2 13 c8 8e 20 66 |...... 3...... f|
000059c0 69 6c 65 24 28 76 61 6c 29 20 ca 0d 1c ac 33 20 |ile$(val) ....3 |
000059d0 c9 20 22 49 6e 66 6f 22 20 20 20 20 20 20 3a 20 |. "Info" : |
000059e0 f2 6f 70 65 6e 75 70 28 69 6e 66 6f 77 69 6e 64 |.openup(infowind|
000059f0 25 2c 78 2c 79 2c 36 35 30 2c 34 35 30 29 0d 1c |%,x,y,650,450)..|
00005a00 b6 33 20 c9 20 22 4d 6f 72 65 20 49 6e 66 6f 22 |.3 . "More Info"|
00005a10 20 3a 20 f2 6f 70 65 6e 75 70 28 6d 6f 72 65 69 | : .openup(morei|
00005a20 6e 66 6f 25 2c 78 2c 79 2c 38 30 30 2c 36 30 30 |nfo%,x,y,800,600|
00005a30 29 0d 1c c0 33 20 c9 20 22 42 61 63 6b 64 72 6f |)...3 . "Backdro|
00005a40 70 22 20 20 3a 20 f2 6f 70 65 6e 75 70 28 62 61 |p" : .openup(ba|
00005a50 63 6b 64 72 6f 70 25 2c 78 2c 79 2c 35 34 30 2c |ckdrop%,x,y,540,|
00005a60 34 35 30 29 0d 1c ca 31 20 c9 20 22 53 61 76 65 |450)...1 . "Save|
00005a70 22 20 20 20 20 20 20 3a 20 f2 6f 70 65 6e 75 70 |" : .openup|
00005a80 28 73 61 76 65 61 73 25 2c 78 2c 79 2c 33 30 30 |(saveas%,x,y,300|
00005a90 2c 31 38 30 29 0d 1c d4 30 20 c9 20 22 4f 62 6a |,180)...0 . "Obj|
00005aa0 65 63 74 22 20 20 20 20 3a 20 f2 6f 70 65 6e 75 |ect" : .openu|
00005ab0 70 28 61 62 6f 75 74 25 2c 78 2c 79 2c 37 38 30 |p(about%,x,y,780|
00005ac0 2c 33 35 30 29 0d 1c de 30 20 c9 20 22 43 6c 6f |,350)...0 . "Clo|
00005ad0 63 6b 22 20 20 20 20 20 3a 20 f2 6f 70 65 6e 75 |ck" : .openu|
00005ae0 70 28 63 6c 6f 63 6b 25 2c 78 2c 79 2c 32 30 30 |p(clock%,x,y,200|
00005af0 2c 31 30 30 29 0d 1c e8 32 20 c9 20 22 57 61 72 |,100)...2 . "War|
00005b00 6e 69 6e 67 22 20 20 20 3a 20 f2 6f 70 65 6e 75 |ning" : .openu|
00005b10 70 28 77 61 72 6e 69 6e 67 25 2c 78 2c 79 2c 36 |p(warning%,x,y,6|
00005b20 35 30 2c 33 30 30 29 0d 1c f2 31 20 c9 20 22 4c |50,300)...1 . "L|
00005b30 6f 61 64 65 64 22 20 20 20 20 3a 20 f2 6f 70 65 |oaded" : .ope|
00005b40 6e 75 70 28 6c 6f 61 64 65 64 25 2c 78 2c 79 2c |nup(loaded%,x,y,|
00005b50 36 35 30 2c 33 30 30 29 0d 1c fc 30 20 c9 20 22 |650,300)...0 . "|
00005b60 42 61 63 6b 49 6e 66 6f 22 20 20 3a 20 f2 6f 70 |BackInfo" : .op|
00005b70 65 6e 75 70 28 61 62 61 63 6b 25 2c 78 2c 79 2c |enup(aback%,x,y,|
00005b80 37 38 30 2c 33 36 30 29 0d 1d 06 7e 20 c9 20 22 |780,360)...~ . "|
00005b90 43 6c 6f 63 6b 53 65 74 22 20 20 3a 20 f2 73 65 |ClockSet" : .se|
00005ba0 74 75 70 5f 73 63 6c 63 6b 3a f2 6f 70 65 6e 75 |tup_sclck:.openu|
00005bb0 70 28 63 73 65 74 25 2c 78 2c 79 2c 35 30 30 2c |p(cset%,x,y,500,|
00005bc0 32 35 30 29 3a c8 99 20 22 58 57 69 6d 70 5f 53 |250):.. "XWimp_S|
00005bd0 65 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 |etCaretPosition"|
00005be0 2c 63 73 65 74 25 2c 32 2c 2c 2c 2d 31 2c a9 28 |,cset%,2,,,-1,.(|
00005bf0 a4 67 65 74 69 63 6f 6e 64 61 74 61 28 63 73 65 |.geticondata(cse|
00005c00 74 25 2c 32 29 29 0d 1d 10 86 20 7f 20 20 20 20 |t%,2)).... . |
00005c10 20 20 20 20 3a 20 f2 73 65 74 6d 6f 64 6c 69 6e | : .setmodlin|
00005c20 66 6f 28 a4 6d 6f 64 6c 5f 68 61 6e 64 6c 65 28 |fo(.modl_handle(|
00005c30 66 69 6c 65 24 28 76 61 6c 29 29 29 3a f2 6f 70 |file$(val))):.op|
00005c40 65 6e 75 70 28 a4 6d 6f 64 6c 5f 68 61 6e 64 6c |enup(.modl_handl|
00005c50 65 28 66 69 6c 65 24 28 76 61 6c 29 29 2c 78 2c |e(file$(val)),x,|
00005c60 79 2c a4 6d 6f 64 6c 5f 78 77 28 66 69 6c 65 24 |y,.modl_xw(file$|
00005c70 28 76 61 6c 29 29 2c a4 6d 6f 64 6c 5f 79 68 28 |(val)),.modl_yh(|
00005c80 66 69 6c 65 24 28 76 61 6c 29 29 29 0d 1d 1a 05 |file$(val)))....|
00005c90 cb 0d 1d 24 3c 20 c9 20 31 20 20 20 20 20 20 20 |...$< . 1 |
00005ca0 20 20 20 20 3a 20 ff 28 22 57 69 6d 70 54 61 73 | : .("WimpTas|
00005cb0 6b 20 46 69 6c 65 72 5f 4f 70 65 6e 44 69 72 20 |k Filer_OpenDir |
00005cc0 22 2b 66 69 6c 65 24 28 76 61 6c 29 29 0d 1d 2e |"+file$(val))...|
00005cd0 38 20 c9 20 32 20 20 20 20 20 20 20 20 20 20 20 |8 . 2 |
00005ce0 3a 20 f2 66 69 6c 65 5f 72 75 6e 28 66 69 6c 65 |: .file_run(file|
00005cf0 24 28 76 61 6c 29 2c 66 69 6c 65 74 79 70 65 28 |$(val),filetype(|
00005d00 76 61 6c 29 29 0d 1d 38 1c 20 c9 20 30 20 20 20 |val))..8. . 0 |
00005d10 20 20 20 20 20 20 20 20 3a 20 e7 20 a6 20 b9 20 | : . . . |
00005d20 8c 0d 1d 42 3f 20 20 20 20 20 20 20 20 20 20 20 |...B? |
00005d30 20 20 20 20 20 20 20 20 20 ff 28 22 57 69 6d 70 | .("Wimp|
00005d40 54 61 73 6b 20 46 69 6c 65 72 5f 4f 70 65 6e 44 |Task Filer_OpenD|
00005d50 69 72 20 22 2b 66 69 6c 65 24 28 76 61 6c 29 29 |ir "+file$(val))|
00005d60 0d 1d 4c 19 20 20 20 20 20 20 20 20 20 20 20 20 |..L. |
00005d70 20 20 20 20 20 20 20 20 cd 0d 1d 56 22 20 20 20 | ...V" |
00005d80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005d90 20 e7 20 ac 28 a6 20 b9 29 20 8c 0d 1d 60 35 20 | . .(. .) ...`5 |
00005da0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005db0 20 20 20 ff 28 22 57 69 6d 70 54 61 73 6b 20 52 | .("WimpTask R|
00005dc0 75 6e 20 22 2b 66 69 6c 65 24 28 76 61 6c 29 29 |un "+file$(val))|
00005dd0 0d 1d 6a 19 20 20 20 20 20 20 20 20 20 20 20 20 |..j. |
00005de0 20 20 20 20 20 20 20 20 cd 0d 1d 74 35 20 7f 20 | ...t5 . |
00005df0 20 20 20 20 20 20 20 3a 20 f2 6d 6f 64 6c 5f 63 | : .modl_c|
00005e00 6c 69 63 6b 28 74 79 70 65 28 76 61 6c 29 2c 66 |lick(type(val),f|
00005e10 69 6c 65 24 28 76 61 6c 29 2c 78 2c 79 29 0d 1d |ile$(val),x,y)..|
00005e20 7e 05 cb 0d 1d 88 05 e1 0d 1d 92 04 0d 1d 9c 17 |~...............|
00005e30 dd 20 f2 64 65 6c 65 74 65 28 76 61 6c 2c 66 6c |. .delete(val,fl|
00005e40 61 67 29 0d 1d a6 0f e7 20 6c 6f 63 6b 65 64 25 |ag)..... locked%|
00005e50 20 e1 0d 1d b0 1c e7 20 74 79 70 65 28 76 61 6c | ...... type(val|
00005e60 29 3e 33 20 80 20 66 6c 61 67 3d 31 20 e1 0d 1d |)>3 . flag=1 ...|
00005e70 ba 14 70 6f 69 6e 74 65 72 25 21 30 3d 6d 61 69 |..pointer%!0=mai|
00005e80 6e 25 0d 1d c4 12 70 6f 69 6e 74 65 72 25 21 34 |n%....pointer%!4|
00005e90 3d 76 61 6c 0d 1d ce 25 c8 99 20 22 58 57 69 6d |=val...%.. "XWim|
00005ea0 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c |p_GetIconState",|
00005eb0 2c 70 6f 69 6e 74 65 72 25 0d 1d d8 23 c8 99 20 |,pointer%...#.. |
00005ec0 22 58 57 69 6d 70 5f 44 65 6c 65 74 65 49 63 6f |"XWimp_DeleteIco|
00005ed0 6e 22 2c 2c 70 6f 69 6e 74 65 72 25 0d 1d e2 53 |n",,pointer%...S|
00005ee0 c8 99 20 22 58 57 69 6d 70 5f 46 6f 72 63 65 52 |.. "XWimp_ForceR|
00005ef0 65 64 72 61 77 22 2c 70 6f 69 6e 74 65 72 25 21 |edraw",pointer%!|
00005f00 30 2c 70 6f 69 6e 74 65 72 25 21 34 2c 70 6f 69 |0,pointer%!4,poi|
00005f10 6e 74 65 72 25 21 38 2c 70 6f 69 6e 74 65 72 25 |nter%!8,pointer%|
00005f20 21 31 32 2c 70 6f 69 6e 74 65 72 25 21 31 36 0d |!12,pointer%!16.|
00005f30 1d ec 14 70 6f 69 6e 74 65 72 25 21 34 3d 76 61 |...pointer%!4=va|
00005f40 6c 2b 31 0d 1d f6 25 c8 99 20 22 58 57 69 6d 70 |l+1...%.. "XWimp|
00005f50 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c |_GetIconState",,|
00005f60 70 6f 69 6e 74 65 72 25 0d 1e 00 23 c8 99 20 22 |pointer%...#.. "|
00005f70 58 57 69 6d 70 5f 44 65 6c 65 74 65 49 63 6f 6e |XWimp_DeleteIcon|
00005f80 22 2c 2c 70 6f 69 6e 74 65 72 25 0d 1e 0a 53 c8 |",,pointer%...S.|
00005f90 99 20 22 58 57 69 6d 70 5f 46 6f 72 63 65 52 65 |. "XWimp_ForceRe|
00005fa0 64 72 61 77 22 2c 70 6f 69 6e 74 65 72 25 21 30 |draw",pointer%!0|
00005fb0 2c 70 6f 69 6e 74 65 72 25 21 34 2c 70 6f 69 6e |,pointer%!4,poin|
00005fc0 74 65 72 25 21 38 2c 70 6f 69 6e 74 65 72 25 21 |ter%!8,pointer%!|
00005fd0 31 32 2c 70 6f 69 6e 74 65 72 25 21 31 36 0d 1e |12,pointer%!16..|
00005fe0 14 32 e7 20 63 6c 63 6b 20 f2 6f 70 65 6e 75 70 |.2. clck .openup|
00005ff0 28 63 6c 6f 63 6b 25 2c 63 6c 6f 63 6b 78 25 2c |(clock%,clockx%,|
00006000 63 6c 6f 63 6b 79 25 2c 32 30 30 2c 32 30 30 29 |clocky%,200,200)|
00006010 0d 1e 1e 4e 66 69 6c 65 24 28 76 61 6c 29 3d 22 |...Nfile$(val)="|
00006020 22 3a 74 79 70 65 28 76 61 6c 29 3d 30 3a 78 28 |":type(val)=0:x(|
00006030 76 61 6c 29 3d 30 3a 79 28 76 61 6c 29 3d 30 3a |val)=0:y(val)=0:|
00006040 66 74 79 70 65 24 28 76 61 6c 29 3d 22 22 3a 66 |ftype$(val)="":f|
00006050 69 6c 65 74 79 70 65 28 76 61 6c 29 3d 30 0d 1e |iletype(val)=0..|
00006060 28 05 e1 0d 1e 32 04 0d 1e 3c 13 dd 20 f2 73 68 |(....2...<.. .sh|
00006070 75 74 28 68 61 6e 64 6c 65 29 0d 1e 46 15 70 6f |ut(handle)..F.po|
00006080 69 6e 74 65 72 25 21 30 3d 68 61 6e 64 6c 65 0d |inter%!0=handle.|
00006090 1e 50 24 c8 99 20 22 58 57 69 6d 70 5f 43 6c 6f |.P$.. "XWimp_Clo|
000060a0 73 65 57 69 6e 64 6f 77 22 2c 2c 70 6f 69 6e 74 |seWindow",,point|
000060b0 65 72 25 0d 1e 5a 05 e1 0d 1e 64 04 0d 1e 6e 17 |er%..Z....d...n.|
000060c0 dd 20 f2 73 65 74 28 77 69 6e 64 6f 77 2c 69 63 |. .set(window,ic|
000060d0 6f 6e 29 0d 1e 78 15 70 6f 69 6e 74 65 72 25 21 |on)..x.pointer%!|
000060e0 30 3d 77 69 6e 64 6f 77 0d 1e 82 13 70 6f 69 6e |0=window....poin|
000060f0 74 65 72 25 21 34 3d 69 63 6f 6e 0d 1e 8c 16 70 |ter%!4=icon....p|
00006100 6f 69 6e 74 65 72 25 21 38 3d 26 32 30 30 30 30 |ointer%!8=&20000|
00006110 30 0d 1e 96 11 70 6f 69 6e 74 65 72 25 21 31 32 |0....pointer%!12|
00006120 3d 30 0d 1e a0 25 c8 99 20 22 58 57 69 6d 70 5f |=0...%.. "XWimp_|
00006130 53 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 70 |SetIconState",,p|
00006140 6f 69 6e 74 65 72 25 0d 1e aa 05 e1 0d 1e b4 04 |ointer%.........|
00006150 0d 1e be 21 dd 20 f2 73 61 76 65 64 72 61 67 62 |...!. .savedragb|
00006160 6f 78 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 |ox(window%,icon%|
00006170 29 0d 1e c8 12 ea 20 78 25 2c 79 25 2c 79 73 69 |)..... x%,y%,ysi|
00006180 7a 65 25 0d 1e d2 15 21 70 6f 69 6e 74 65 72 25 |ze%....!pointer%|
00006190 3d 77 69 6e 64 6f 77 25 0d 1e dc 27 c8 99 20 22 |=window%...'.. "|
000061a0 58 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 |XWimp_GetWindowS|
000061b0 74 61 74 65 22 2c 2c 70 6f 69 6e 74 65 72 25 0d |tate",,pointer%.|
000061c0 1e e6 21 79 73 69 7a 65 25 3d 70 6f 69 6e 74 65 |..!ysize%=pointe|
000061d0 72 25 21 31 36 2d 70 6f 69 6e 74 65 72 25 21 38 |r%!16-pointer%!8|
000061e0 0d 1e f0 11 78 25 3d 70 6f 69 6e 74 65 72 25 21 |....x%=pointer%!|
000061f0 34 0d 1e fa 11 79 25 3d 70 6f 69 6e 74 65 72 25 |4....y%=pointer%|
00006200 21 38 0d 1f 04 15 e7 20 77 69 6e 64 6f 77 25 3d |!8..... window%=|
00006210 6d 61 69 6e 25 20 8c 0d 1f 0e 18 20 20 70 6f 69 |main% ..... poi|
00006220 6e 74 65 72 25 21 34 3d 69 63 6f 6e 25 2b 31 0d |nter%!4=icon%+1.|
00006230 1f 18 27 20 20 c8 99 20 22 58 57 69 6d 70 5f 47 |..' .. "XWimp_G|
00006240 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 70 6f |etIconState",,po|
00006250 69 6e 74 65 72 25 0d 1f 22 15 20 20 6e 79 25 3d |inter%..". ny%=|
00006260 70 6f 69 6e 74 65 72 25 21 31 32 0d 1f 2c 05 cd |pointer%!12..,..|
00006270 0d 1f 36 14 70 6f 69 6e 74 65 72 25 21 34 3d 69 |..6.pointer%!4=i|
00006280 63 6f 6e 25 0d 1f 40 25 c8 99 20 22 58 57 69 6d |con%..@%.. "XWim|
00006290 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c |p_GetIconState",|
000062a0 2c 70 6f 69 6e 74 65 72 25 0d 1f 4a 15 73 66 24 |,pointer%..J.sf$|
000062b0 3d a4 6c 61 73 74 62 69 74 28 73 66 24 29 0d 1f |=.lastbit(sf$)..|
000062c0 54 12 70 6f 69 6e 74 65 72 25 21 38 2b 3d 78 25 |T.pointer%!8+=x%|
000062d0 0d 1f 5e 15 e7 20 77 69 6e 64 6f 77 25 3d 6d 61 |..^.. window%=ma|
000062e0 69 6e 25 20 8c 0d 1f 68 1f 20 20 70 6f 69 6e 74 |in% ...h. point|
000062f0 65 72 25 21 31 32 3d 6e 79 25 2b 79 25 2b 79 73 |er%!12=ny%+y%+ys|
00006300 69 7a 65 25 0d 1f 72 05 cc 0d 1f 7c 1c 20 20 70 |ize%..r....|. p|
00006310 6f 69 6e 74 65 72 25 21 31 32 2b 3d 79 25 2b 79 |ointer%!12+=y%+y|
00006320 73 69 7a 65 25 0d 1f 86 05 cd 0d 1f 90 13 70 6f |size%.........po|
00006330 69 6e 74 65 72 25 21 31 36 2b 3d 78 25 0d 1f 9a |inter%!16+=x%...|
00006340 1a 70 6f 69 6e 74 65 72 25 21 32 30 2b 3d 79 25 |.pointer%!20+=y%|
00006350 2b 79 73 69 7a 65 25 0d 1f a4 11 70 6f 69 6e 74 |+ysize%....point|
00006360 65 72 25 21 32 34 3d 30 0d 1f ae 11 70 6f 69 6e |er%!24=0....poin|
00006370 74 65 72 25 21 32 38 3d 30 0d 1f b8 19 70 6f 69 |ter%!28=0....poi|
00006380 6e 74 65 72 25 21 33 32 3d 26 37 46 46 46 46 46 |nter%!32=&7FFFFF|
00006390 46 46 0d 1f c2 19 70 6f 69 6e 74 65 72 25 21 33 |FF....pointer%!3|
000063a0 36 3d 26 37 46 46 46 46 46 46 46 0d 1f cc 10 70 |6=&7FFFFFFF....p|
000063b0 6f 69 6e 74 65 72 25 21 30 3d 30 0d 1f d6 10 70 |ointer%!0=0....p|
000063c0 6f 69 6e 74 65 72 25 21 34 3d 35 0d 1f e0 20 c8 |ointer%!4=5... .|
000063d0 99 20 22 58 57 69 6d 70 5f 44 72 61 67 42 6f 78 |. "XWimp_DragBox|
000063e0 22 2c 2c 70 6f 69 6e 74 65 72 25 0d 1f ea 05 e1 |",,pointer%.....|
000063f0 0d 1f f4 04 0d 1f fe 0d dd 20 f2 69 6d 70 6f 72 |......... .impor|
00006400 74 0d 20 08 27 c8 99 20 22 58 57 69 6d 70 5f 47 |t. .'.. "XWimp_G|
00006410 65 74 50 6f 69 6e 74 65 72 49 6e 66 6f 22 2c 2c |etPointerInfo",,|
00006420 70 6f 69 6e 74 65 72 25 0d 20 12 35 70 6f 69 6e |pointer%. .5poin|
00006430 74 65 72 25 21 33 32 3d 70 6f 69 6e 74 65 72 25 |ter%!32=pointer%|
00006440 21 34 20 20 20 20 3a 74 68 69 72 74 79 74 77 6f |!4 :thirtytwo|
00006450 25 3d 70 6f 69 6e 74 65 72 25 21 33 32 0d 20 1c |%=pointer%!32. .|
00006460 37 70 6f 69 6e 74 65 72 25 21 32 38 3d 70 6f 69 |7pointer%!28=poi|
00006470 6e 74 65 72 25 21 30 20 20 20 20 3a 74 77 65 6e |nter%!0 :twen|
00006480 74 79 65 69 67 68 74 25 3d 70 6f 69 6e 74 65 72 |tyeight%=pointer|
00006490 25 21 32 38 0d 20 26 36 70 6f 69 6e 74 65 72 25 |%!28. &6pointer%|
000064a0 21 32 34 3d 70 6f 69 6e 74 65 72 25 21 31 36 20 |!24=pointer%!16 |
000064b0 20 20 3a 74 77 65 6e 74 79 66 6f 75 72 25 3d 70 | :twentyfour%=p|
000064c0 6f 69 6e 74 65 72 25 21 32 34 0d 20 30 32 70 6f |ointer%!24. 02po|
000064d0 69 6e 74 65 72 25 21 32 30 3d 70 6f 69 6e 74 65 |inter%!20=pointe|
000064e0 72 25 21 31 32 20 20 20 3a 74 77 65 6e 74 79 25 |r%!12 :twenty%|
000064f0 3d 70 6f 69 6e 74 65 72 25 21 32 30 0d 20 3a 11 |=pointer%!20. :.|
00006500 70 6f 69 6e 74 65 72 25 21 31 36 3d 31 0d 20 44 |pointer%!16=1. D|
00006510 11 70 6f 69 6e 74 65 72 25 21 31 32 3d 30 0d 20 |.pointer%!12=0. |
00006520 4e 11 70 6f 69 6e 74 65 72 25 21 33 36 3d 30 0d |N.pointer%!36=0.|
00006530 20 58 11 70 6f 69 6e 74 65 72 25 21 34 30 3d 30 | X.pointer%!40=0|
00006540 0d 20 62 10 21 70 6f 69 6e 74 65 72 25 3d 36 34 |. b.!pointer%=64|
00006550 0d 20 6c 16 24 28 70 6f 69 6e 74 65 72 25 2b 34 |. l.$(pointer%+4|
00006560 34 29 3d 73 66 24 0d 20 76 3e c8 99 20 22 58 57 |4)=sf$. v>.. "XW|
00006570 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 |imp_SendMessage"|
00006580 2c 31 37 2c 70 6f 69 6e 74 65 72 25 2c 70 6f 69 |,17,pointer%,poi|
00006590 6e 74 65 72 25 21 32 30 2c 70 6f 69 6e 74 65 72 |nter%!20,pointer|
000065a0 25 21 32 34 0d 20 80 15 6d 79 72 65 66 25 3d 70 |%!24. ..myref%=p|
000065b0 6f 69 6e 74 65 72 25 21 38 0d 20 8a 05 e1 0d 20 |ointer%!8. .... |
000065c0 94 04 0d 20 9e 0d dd 20 f2 64 6f 73 61 76 65 0d |... ... .dosave.|
000065d0 20 a8 14 73 66 24 3d a4 72 74 6f 7a 28 71 25 2b | ..sf$=.rtoz(q%+|
000065e0 34 34 29 0d 20 b2 24 e7 20 61 64 6a 75 73 74 3d |44). .$. adjust=|
000065f0 b9 20 f2 64 72 61 67 67 65 64 20 8b 20 f2 63 6f |. .dragged . .co|
00006600 70 79 5f 66 69 6c 65 0d 20 bc 05 e1 0d 20 c6 04 |py_file. .... ..|
00006610 0d 20 d0 14 dd 20 f2 74 65 6c 6c 65 6d 6f 66 66 |. ... .tellemoff|
00006620 28 65 24 29 0d 20 da 09 ea 20 65 72 25 0d 20 e4 |(e$). ... er%. .|
00006630 10 65 72 25 3d 70 6f 69 6e 74 65 72 25 0d 20 ee |.er%=pointer%. .|
00006640 0a 21 65 72 25 3d 30 0d 20 f8 12 24 28 65 72 25 |.!er%=0. ..$(er%|
00006650 2b 34 29 3d 65 24 2b bd 30 0d 21 02 2c c8 99 20 |+4)=e$+.0.!.,.. |
00006660 22 58 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 |"XWimp_ReportErr|
00006670 6f 72 22 2c 65 72 25 2c 31 2c 22 53 74 69 63 6b |or",er%,1,"Stick|
00006680 79 42 72 64 22 0d 21 0c 05 e1 0d 21 16 04 0d 21 |yBrd".!....!...!|
00006690 20 10 dd 20 f2 73 61 76 65 5f 64 69 73 63 0d 21 | .. .save_disc.!|
000066a0 2a 0d 68 25 3d ae 28 73 66 24 29 0d 21 34 3c f1 |*.h%=.(sf$).!4<.|
000066b0 23 68 25 2c 66 67 2c 62 67 2c 74 69 6c 65 64 2c |#h%,fg,bg,tiled,|
000066c0 63 6c 63 6b 2c 65 6d 62 6f 73 73 2c 72 65 63 65 |clck,emboss,rece|
000066d0 73 73 2c 62 6f 72 64 65 72 2c 74 77 65 6c 76 65 |ss,border,twelve|
000066e0 2c 74 77 66 6f 75 72 0d 21 3e 25 f1 23 68 25 2c |,twfour.!>%.#h%,|
000066f0 63 6c 6f 63 6b 78 25 2c 63 6c 6f 63 6b 79 25 2c |clockx%,clocky%,|
00006700 68 6f 75 72 2c 6c 6f 63 6b 65 64 25 0d 21 48 0e |hour,locked%.!H.|
00006710 e3 20 49 3d 30 20 b8 20 38 30 0d 21 52 39 f1 23 |. I=0 . 80.!R9.#|
00006720 68 25 2c 66 69 6c 65 24 28 49 29 2c 74 79 70 65 |h%,file$(I),type|
00006730 28 49 29 2c 78 28 49 29 2c 79 28 49 29 2c 66 74 |(I),x(I),y(I),ft|
00006740 79 70 65 24 28 49 29 2c 66 69 6c 65 74 79 70 65 |ype$(I),filetype|
00006750 28 49 29 0d 21 5c 05 ed 0d 21 66 08 d9 23 68 25 |(I).!\...!f..#h%|
00006760 0d 21 70 68 e7 20 73 70 6c 6f 61 64 65 64 20 c8 |.!ph. sploaded .|
00006770 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |. "OS_SpriteOp",|
00006780 31 32 2b 32 35 36 2c 73 70 72 69 74 65 25 2c a4 |12+256,sprite%,.|
00006790 74 72 61 6e 73 28 22 53 74 69 63 6b 79 42 72 64 |trans("StickyBrd|
000067a0 44 65 73 6b 74 6f 70 24 44 69 72 22 29 2b 22 2e |Desktop$Dir")+".|
000067b0 22 2b c2 a4 6c 61 73 74 62 69 74 28 73 66 24 29 |"+..lastbit(sf$)|
000067c0 2c 38 29 2b 22 53 50 22 0d 21 7a 14 f2 6d 6f 64 |,8)+"SP".!z..mod|
000067d0 6c 5f 73 61 76 65 63 6f 6e 66 69 67 0d 21 84 2b |l_saveconfig.!.+|
000067e0 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 4d |.. "Wimp_CreateM|
000067f0 65 6e 75 22 2c 2c 2d 31 3a f2 73 68 75 74 28 73 |enu",,-1:.shut(s|
00006800 61 76 65 61 73 25 29 0d 21 8e 05 e1 0d 21 98 04 |aveas%).!....!..|
00006810 0d 21 a2 10 dd 20 f2 69 6e 74 65 72 63 65 70 74 |.!... .intercept|
00006820 0d 21 ac 32 66 24 3d c4 32 35 30 2c 22 20 22 29 |.!.2f$=.250," ")|
00006830 3a 66 24 3d 22 22 3a 66 24 3d a4 72 74 6f 7a 28 |:f$="":f$=.rtoz(|
00006840 71 25 2b 34 34 29 3a 6e 65 77 5f 61 70 70 24 3d |q%+44):new_app$=|
00006850 66 24 0d 21 b6 0e c8 8e 20 71 25 21 34 30 20 ca |f$.!.... q%!40 .|
00006860 0d 21 c0 40 c9 20 26 46 46 44 20 3a 20 e7 20 a4 |.!.@. &FFD : . .|
00006870 6c 61 73 74 62 69 74 28 66 24 29 3d 22 21 43 6f |lastbit(f$)="!Co|
00006880 6e 66 69 67 22 20 f2 6c 6f 61 64 5f 6e 65 77 5f |nfig" .load_new_|
00006890 70 6c 61 63 65 69 74 5f 66 69 6c 65 28 66 24 29 |placeit_file(f$)|
000068a0 0d 21 ca 09 7f 20 3a 20 e1 0d 21 d4 05 cb 0d 21 |.!... : ..!....!|
000068b0 de 33 71 25 21 31 32 3d 71 25 21 38 3a 71 25 21 |.3q%!12=q%!8:q%!|
000068c0 31 36 3d 34 3a c8 99 20 22 58 57 69 6d 70 5f 53 |16=4:.. "XWimp_S|
000068d0 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 37 2c 71 |endMessage",17,q|
000068e0 25 0d 21 e8 05 e1 0d 21 f2 04 0d 21 fc 17 dd 20 |%.!....!...!... |
000068f0 f2 6c 6f 61 64 5f 6e 65 77 5f 64 65 73 6b 74 6f |.load_new_deskto|
00006900 70 0d 22 06 0c 68 25 3d 30 3a ea 20 85 0d 22 10 |p."..h%=0:. ..".|
00006910 42 ee 20 85 20 ea 20 f2 74 65 6c 6c 65 6d 6f 66 |B. . . .tellemof|
00006920 66 28 22 44 65 73 6b 74 6f 70 20 66 69 6c 65 20 |f("Desktop file |
00006930 6c 6f 61 64 20 65 72 72 6f 72 20 23 22 2b c3 9e |load error #"+..|
00006940 2b 22 20 28 22 2b f6 24 2b 22 29 22 29 3a e1 0d |+" ("+.$+")"):..|
00006950 22 1a 16 c8 99 20 22 58 48 6f 75 72 67 6c 61 73 |".... "XHourglas|
00006960 73 5f 4f 6e 22 0d 22 24 0e f2 64 65 6c 65 74 65 |s_On"."$..delete|
00006970 61 6c 6c 0d 22 2e 1a f2 6d 6f 64 6c 5f 63 6c 65 |all."...modl_cle|
00006980 61 72 62 61 63 6b 28 31 2c 73 66 24 29 0d 22 38 |arback(1,sf$)."8|
00006990 10 64 65 73 6b 74 6f 70 24 3d 73 66 24 0d 22 42 |.desktop$=sf$."B|
000069a0 0d 68 25 3d ad 28 73 66 24 29 0d 22 4c 3e e8 23 |.h%=.(sf$)."L>.#|
000069b0 68 25 2c 6e 66 67 2c 6e 62 67 2c 74 69 6c 65 64 |h%,nfg,nbg,tiled|
000069c0 2c 63 6c 63 6b 2c 65 6d 62 6f 73 73 2c 72 65 63 |,clck,emboss,rec|
000069d0 65 73 73 2c 62 6f 72 64 65 72 2c 74 77 65 6c 76 |ess,border,twelv|
000069e0 65 2c 74 77 66 6f 75 72 0d 22 56 25 e8 23 68 25 |e,twfour."V%.#h%|
000069f0 2c 63 6c 6f 63 6b 78 25 2c 63 6c 6f 63 6b 79 25 |,clockx%,clocky%|
00006a00 2c 68 6f 75 72 2c 6c 6f 63 6b 65 64 25 0d 22 60 |,hour,locked%."`|
00006a10 0e e3 20 49 3d 30 20 b8 20 38 30 0d 22 6a 24 20 |.. I=0 . 80."j$ |
00006a20 f4 20 53 59 53 20 22 58 48 6f 75 72 67 6c 61 73 |. SYS "XHourglas|
00006a30 73 5f 50 65 72 63 65 6e 74 61 67 65 22 2c 49 0d |s_Percentage",I.|
00006a40 22 74 3a 20 e8 23 68 25 2c 66 69 6c 65 24 28 49 |"t: .#h%,file$(I|
00006a50 29 2c 74 79 70 65 28 49 29 2c 78 28 49 29 2c 79 |),type(I),x(I),y|
00006a60 28 49 29 2c 66 74 79 70 65 24 28 49 29 2c 66 69 |(I),ftype$(I),fi|
00006a70 6c 65 74 79 70 65 28 49 29 0d 22 7e 05 ed 0d 22 |letype(I)."~..."|
00006a80 88 0d d9 23 68 25 3a 68 25 3d 30 0d 22 92 49 73 |...#h%:h%=0.".Is|
00006a90 70 72 69 74 65 66 69 6c 65 24 3d a4 74 72 61 6e |pritefile$=.tran|
00006aa0 73 28 22 53 74 69 63 6b 79 42 72 64 44 65 73 6b |s("StickyBrdDesk|
00006ab0 74 6f 70 24 44 69 72 22 29 2b 22 2e 22 2b c2 a4 |top$Dir")+"."+..|
00006ac0 6c 61 73 74 62 69 74 28 73 66 24 29 2c 38 29 2b |lastbit(sf$),8)+|
00006ad0 22 53 50 22 0d 22 9c 15 6a 25 3d ad 28 73 70 72 |"SP"."..j%=.(spr|
00006ae0 69 74 65 66 69 6c 65 24 29 0d 22 a6 12 74 3d a3 |itefile$)."..t=.|
00006af0 3a e7 20 6a 25 3e 30 20 74 3d b9 0d 22 b0 08 d9 |:. j%>0 t=.."...|
00006b00 23 6a 25 0d 22 ba 09 e7 20 74 20 8c 0d 22 c4 13 |#j%."... t .."..|
00006b10 20 66 24 3d 73 70 72 69 74 65 66 69 6c 65 24 0d | f$=spritefile$.|
00006b20 22 ce 12 20 f2 6c 6f 61 64 62 61 63 6b 64 72 6f |".. .loadbackdro|
00006b30 70 0d 22 d8 05 cd 0d 22 e2 0e e3 20 49 3d 30 20 |p."...."... I=0 |
00006b40 b8 20 38 30 0d 22 ec 16 20 20 e7 20 66 69 6c 65 |. 80.".. . file|
00006b50 24 28 49 29 3c 3e 22 22 20 8c 0d 22 f6 1c 20 20 |$(I)<>"" ..".. |
00006b60 20 e7 20 66 69 6c 65 74 79 70 65 28 49 29 3d 26 | . filetype(I)=&|
00006b70 32 30 30 30 20 8c 0d 23 00 33 20 20 20 20 c8 99 |2000 ..#.3 ..|
00006b80 20 22 58 57 69 6d 70 5f 53 70 72 69 74 65 4f 70 | "XWimp_SpriteOp|
00006b90 22 2c 34 30 2c 2c 66 74 79 70 65 24 28 49 29 20 |",40,,ftype$(I) |
00006ba0 b8 20 3b 66 6c 61 67 73 25 0d 23 0a 1a 20 20 20 |. ;flags%.#.. |
00006bb0 20 e7 20 28 66 6c 61 67 73 25 20 80 20 31 29 3d | . (flags% . 1)=|
00006bc0 31 20 8c 0d 23 14 13 20 20 20 20 20 e7 20 ac 28 |1 ..#.. . .(|
00006bd0 a6 2d 33 29 20 8c 0d 23 1e 21 20 20 20 20 20 20 |.-3) ..#.! |
00006be0 68 25 3d ad 28 66 69 6c 65 24 28 49 29 2b 22 2e |h%=.(file$(I)+".|
00006bf0 21 42 6f 6f 74 22 29 0d 23 28 12 20 20 20 20 20 |!Boot").#(. |
00006c00 20 e7 20 68 25 3d 30 20 8c 0d 23 32 25 20 20 20 | . h%=0 ..#2% |
00006c10 20 20 20 20 69 25 3d ad 28 66 69 6c 65 24 28 49 | i%=.(file$(I|
00006c20 29 2b 22 2e 21 53 70 72 69 74 65 73 22 29 0d 23 |)+".!Sprites").#|
00006c30 3c 3e 20 20 20 20 20 20 20 e7 20 69 25 3c 3e 30 |<> . i%<>0|
00006c40 20 d9 23 69 25 3a ff 28 22 49 63 6f 6e 53 70 72 | .#i%:.("IconSpr|
00006c50 69 74 65 73 20 22 2b 66 69 6c 65 24 28 49 29 2b |ites "+file$(I)+|
00006c60 22 2e 21 53 70 72 69 74 65 73 22 29 0d 23 46 16 |".!Sprites").#F.|
00006c70 20 20 20 20 20 20 20 e7 20 69 25 3d 30 20 d9 23 | . i%=0 .#|
00006c80 69 25 0d 23 50 0b 20 20 20 20 20 20 cd 0d 23 5a |i%.#P. ..#Z|
00006c90 13 20 20 20 20 20 20 e7 20 68 25 3c 3e 30 20 8c |. . h%<>0 .|
00006ca0 0d 23 64 0f 20 20 20 20 20 20 20 d9 23 68 25 0d |.#d. .#h%.|
00006cb0 23 6e 27 20 20 20 20 20 20 20 ff 28 22 4f 62 65 |#n' .("Obe|
00006cc0 79 20 22 2b 66 69 6c 65 24 28 49 29 2b 22 2e 21 |y "+file$(I)+".!|
00006cd0 42 6f 6f 74 22 29 0d 23 78 0b 20 20 20 20 20 20 |Boot").#x. |
00006ce0 cd 0d 23 82 15 20 20 20 20 20 20 e7 20 68 25 3d |..#.. . h%=|
00006cf0 30 20 d9 23 68 25 0d 23 8c 0a 20 20 20 20 20 cd |0 .#h%.#.. .|
00006d00 0d 23 96 09 20 20 20 20 cd 0d 23 a0 08 20 20 20 |.#.. ..#.. |
00006d10 cd 0d 23 aa 07 20 20 cd 0d 23 b4 15 20 e7 20 66 |..#.. ..#.. . f|
00006d20 69 6c 65 24 28 49 29 3c 3e 22 22 20 8c 0d 23 be |ile$(I)<>"" ..#.|
00006d30 17 20 20 73 70 6e 61 6d 65 24 3d 66 74 79 70 65 |. spname$=ftype|
00006d40 24 28 49 29 0d 23 c8 2f 20 20 c8 99 20 22 58 57 |$(I).#./ .. "XW|
00006d50 69 6d 70 5f 53 70 72 69 74 65 4f 70 22 2c 34 30 |imp_SpriteOp",40|
00006d60 2c 2c 73 70 6e 61 6d 65 24 20 b8 20 3b 66 6c 61 |,,spname$ . ;fla|
00006d70 67 73 25 0d 23 d2 18 20 20 e7 20 28 66 6c 61 67 |gs%.#.. . (flag|
00006d80 73 25 20 80 20 31 29 3d 31 20 8c 0d 23 dc 28 20 |s% . 1)=1 ..#.( |
00006d90 20 20 e7 20 74 79 70 65 28 49 29 3d 30 20 73 70 | . type(I)=0 sp|
00006da0 6e 61 6d 65 24 3d 22 61 70 70 6c 69 63 61 74 69 |name$="applicati|
00006db0 6f 6e 22 0d 23 e6 25 20 20 20 e7 20 74 79 70 65 |on".#.% . type|
00006dc0 28 49 29 3d 32 20 73 70 6e 61 6d 65 24 3d 22 66 |(I)=2 spname$="f|
00006dd0 69 6c 65 5f 78 78 78 22 0d 23 f0 07 20 20 cd 0d |ile_xxx".#.. ..|
00006de0 23 fa 53 20 20 f2 63 72 65 61 74 65 5f 69 63 6f |#.S .create_ico|
00006df0 6e 28 6d 61 69 6e 25 2c 30 2c 78 28 49 29 2d 35 |n(main%,0,x(I)-5|
00006e00 30 2c 78 28 49 29 2b 31 31 35 2c 2d 28 31 30 32 |0,x(I)+115,-(102|
00006e10 34 2d 28 79 28 49 29 2d 36 35 29 29 2c 36 35 2c |4-(y(I)-65)),65,|
00006e20 73 70 6e 61 6d 65 24 2c 26 34 37 30 31 38 30 31 |spname$,&4701801|
00006e30 41 29 0d 24 04 2f 20 20 6e 61 6d 65 24 3d a4 6c |A).$./ name$=.l|
00006e40 61 73 74 62 69 74 28 66 69 6c 65 24 28 49 29 29 |astbit(file$(I))|
00006e50 3a 77 69 64 25 3d 28 a9 6e 61 6d 65 24 29 2a 31 |:wid%=(.name$)*1|
00006e60 36 0d 24 0e 44 20 20 66 67 24 3d c3 7e 28 66 67 |6.$.D fg$=.~(fg|
00006e70 29 3a 62 67 24 3d c3 7e 28 62 67 29 3a 66 6c 61 |):bg$=.~(bg):fla|
00006e80 67 24 3d 62 67 24 2b 66 67 24 2b 22 30 31 38 30 |g$=bg$+fg$+"0180|
00006e90 33 39 22 3a 66 6c 61 67 3d a0 28 22 26 22 2b 66 |39":flag=.("&"+f|
00006ea0 6c 61 67 24 29 0d 24 18 62 20 20 f2 63 72 65 61 |lag$).$.b .crea|
00006eb0 74 65 5f 69 63 6f 6e 28 6d 61 69 6e 25 2c 30 2c |te_icon(main%,0,|
00006ec0 28 78 28 49 29 2d 28 77 69 64 25 2f 32 29 29 2b |(x(I)-(wid%/2))+|
00006ed0 33 30 2c 28 78 28 49 29 2b 28 77 69 64 25 2f 32 |30,(x(I)+(wid%/2|
00006ee0 29 29 2b 33 30 2c 2d 28 31 30 32 34 2d 28 79 28 |))+30,-(1024-(y(|
00006ef0 49 29 2d 31 31 35 29 29 2c 33 36 2c 6e 61 6d 65 |I)-115)),36,name|
00006f00 24 2c 66 6c 61 67 29 0d 24 22 28 20 20 f2 70 75 |$,flag).$"( .pu|
00006f10 74 69 63 6f 6e 73 70 72 69 74 65 28 6d 61 69 6e |ticonsprite(main|
00006f20 25 2c 69 25 2d 31 2c 73 70 6e 61 6d 65 24 29 0d |%,i%-1,spname$).|
00006f30 24 2c 06 20 cd 0d 24 36 05 ed 0d 24 40 25 f2 6d |$,. ..$6...$@%.m|
00006f40 65 6e 75 28 30 29 3a f2 67 72 65 79 5f 6d 65 6e |enu(0):.grey_men|
00006f50 75 28 6d 65 6e 75 25 2b 32 32 30 30 2c 31 29 0d |u(menu%+2200,1).|
00006f60 24 4a 10 f2 73 68 75 74 28 6d 61 69 6e 25 29 0d |$J..shut(main%).|
00006f70 24 54 3e f2 6f 70 65 6e 75 70 28 6d 61 69 6e 25 |$T>.openup(main%|
00006f80 2c 30 2c 77 69 6e 5f 6d 61 78 79 25 2c 77 69 6e |,0,win_maxy%,win|
00006f90 5f 6d 61 78 78 25 2c 28 77 69 6e 5f 6d 61 78 79 |_maxx%,(win_maxy|
00006fa0 25 2d 77 69 6e 5f 6d 69 6e 79 25 29 29 0d 24 5e |%-win_miny%)).$^|
00006fb0 07 f2 72 73 0d 24 68 0e 64 75 6d 6d 79 3d 71 25 |..rs.$h.dummy=q%|
00006fc0 21 38 0d 24 72 10 71 25 21 38 3d 6e 66 67 3a f2 |!8.$r.q%!8=nfg:.|
00006fd0 66 67 0d 24 7c 10 71 25 21 38 3d 6e 62 67 3a f2 |fg.$|.q%!8=nbg:.|
00006fe0 62 67 0d 24 86 0e 71 25 21 38 3d 64 75 6d 6d 79 |bg.$..q%!8=dummy|
00006ff0 0d 24 90 0f e7 20 74 69 6c 65 64 3d b9 20 8c 0d |.$... tiled=. ..|
00007000 24 9a 2b 20 f2 70 75 74 69 63 6f 6e 73 70 72 69 |$.+ .puticonspri|
00007010 74 65 28 62 61 63 6b 64 72 6f 70 25 2c 36 2c 22 |te(backdrop%,6,"|
00007020 74 72 61 64 69 6f 6f 6e 22 29 0d 24 a4 2c 20 f2 |tradioon").$., .|
00007030 70 75 74 69 63 6f 6e 73 70 72 69 74 65 28 62 61 |puticonsprite(ba|
00007040 63 6b 64 72 6f 70 25 2c 38 2c 22 74 72 61 64 69 |ckdrop%,8,"tradi|
00007050 6f 6f 66 66 22 29 0d 24 ae 06 20 cc 0d 24 b8 2c |ooff").$.. ..$.,|
00007060 20 f2 70 75 74 69 63 6f 6e 73 70 72 69 74 65 28 | .puticonsprite(|
00007070 62 61 63 6b 64 72 6f 70 25 2c 36 2c 22 74 72 61 |backdrop%,6,"tra|
00007080 64 69 6f 6f 66 66 22 29 0d 24 c2 2b 20 f2 70 75 |diooff").$.+ .pu|
00007090 74 69 63 6f 6e 73 70 72 69 74 65 28 62 61 63 6b |ticonsprite(back|
000070a0 64 72 6f 70 25 2c 38 2c 22 74 72 61 64 69 6f 6f |drop%,8,"tradioo|
000070b0 6e 22 29 0d 24 cc 05 cd 0d 24 d6 14 f4 20 69 6e |n").$....$... in|
000070c0 66 6f 72 6d 20 6d 6f 64 75 6c 65 73 0d 24 e0 13 |form modules.$..|
000070d0 f2 6d 6f 64 6c 5f 64 65 73 6b 73 74 61 72 74 0d |.modl_deskstart.|
000070e0 24 ea 12 f2 73 68 75 74 28 73 61 76 65 61 73 25 |$...shut(saveas%|
000070f0 29 0d 24 f4 17 c8 99 20 22 58 48 6f 75 72 67 6c |).$.... "XHourgl|
00007100 61 73 73 5f 4f 66 66 22 0d 24 fe 07 f7 20 85 0d |ass_Off".$... ..|
00007110 25 08 05 e1 0d 25 12 04 0d 25 1c 10 dd 20 f2 73 |%....%...%... .s|
00007120 65 74 75 70 69 6e 66 6f 0d 25 26 1c e7 20 28 69 |etupinfo.%&.. (i|
00007130 63 6f 6e 25 20 83 20 32 3d 30 29 20 69 63 6f 6e |con% . 2=0) icon|
00007140 25 2d 3d 31 0d 25 30 43 66 69 6c 24 3d 66 69 6c |%-=1.%0Cfil$=fil|
00007150 65 24 28 69 63 6f 6e 25 29 3a e7 20 66 69 6c 24 |e$(icon%):. fil$|
00007160 3d 22 3c 57 69 6d 70 24 53 63 72 61 70 3e 22 20 |="<Wimp$Scrap>" |
00007170 66 69 6c 24 3d 22 41 70 70 6c 69 63 61 74 69 6f |fil$="Applicatio|
00007180 6e 20 44 61 74 61 22 0d 25 3a 26 e7 20 c0 66 69 |n Data".%:&. .fi|
00007190 6c 24 2c 31 29 3d 22 2a 22 20 66 69 6c 24 3d a4 |l$,1)="*" fil$=.|
000071a0 6c 61 73 74 62 69 74 28 66 69 6c 24 29 0d 25 44 |lastbit(fil$).%D|
000071b0 1f f2 70 75 74 69 63 6f 6e 64 61 74 61 28 61 62 |..puticondata(ab|
000071c0 6f 75 74 25 2c 36 2c 66 69 6c 24 29 0d 25 4e 32 |out%,6,fil$).%N2|
000071d0 f2 70 75 74 69 63 6f 6e 64 61 74 61 28 61 62 6f |.puticondata(abo|
000071e0 75 74 25 2c 37 2c a4 66 74 79 70 65 28 66 69 6c |ut%,7,.ftype(fil|
000071f0 65 74 79 70 65 28 69 63 6f 6e 25 29 29 29 0d 25 |etype(icon%))).%|
00007200 58 2d f2 70 75 74 69 63 6f 6e 64 61 74 61 28 61 |X-.puticondata(a|
00007210 62 6f 75 74 25 2c 38 2c a4 74 79 70 65 28 74 79 |bout%,8,.type(ty|
00007220 70 65 28 69 63 6f 6e 25 29 29 29 0d 25 62 23 f2 |pe(icon%))).%b#.|
00007230 70 75 74 69 63 6f 6e 64 61 74 61 28 61 62 6f 75 |puticondata(abou|
00007240 74 25 2c 39 2c 64 65 73 6b 74 6f 70 24 29 0d 25 |t%,9,desktop$).%|
00007250 6c 19 73 70 6e 61 6d 65 24 3d 66 74 79 70 65 24 |l.spname$=ftype$|
00007260 28 69 63 6f 6e 25 29 0d 25 76 2d c8 99 20 22 58 |(icon%).%v-.. "X|
00007270 57 69 6d 70 5f 53 70 72 69 74 65 4f 70 22 2c 34 |Wimp_SpriteOp",4|
00007280 30 2c 2c 73 70 6e 61 6d 65 24 20 b8 20 3b 66 6c |0,,spname$ . ;fl|
00007290 61 67 73 25 0d 25 80 16 e7 20 28 66 6c 61 67 73 |ags%.%... (flags|
000072a0 25 20 80 20 31 29 3d 31 20 8c 0d 25 8a 2a 20 e7 |% . 1)=1 ..%.* .|
000072b0 20 74 79 70 65 28 69 63 6f 6e 25 29 3d 30 20 73 | type(icon%)=0 s|
000072c0 70 6e 61 6d 65 24 3d 22 61 70 70 6c 69 63 61 74 |pname$="applicat|
000072d0 69 6f 6e 22 0d 25 94 27 20 e7 20 74 79 70 65 28 |ion".%.' . type(|
000072e0 69 63 6f 6e 25 29 3d 32 20 73 70 6e 61 6d 65 24 |icon%)=2 spname$|
000072f0 3d 22 66 69 6c 65 5f 78 78 78 22 0d 25 9e 05 cd |="file_xxx".%...|
00007300 0d 25 a8 25 f2 70 75 74 69 63 6f 6e 73 70 72 69 |.%.%.puticonspri|
00007310 74 65 28 61 62 6f 75 74 25 2c 31 31 2c 73 70 6e |te(about%,11,spn|
00007320 61 6d 65 24 29 0d 25 b2 05 e1 0d 25 bc 04 0d 25 |ame$).%....%...%|
00007330 c6 11 dd 20 a4 74 79 70 65 28 74 79 70 65 29 0d |... .type(type).|
00007340 25 d0 0d c8 8e 20 74 79 70 65 20 ca 0d 25 da 1e |%.... type ..%..|
00007350 20 c9 20 30 20 3a 20 3d 22 52 75 6e 73 20 41 70 | . 0 : ="Runs Ap|
00007360 70 6c 69 63 61 74 69 6f 6e 22 0d 25 e4 1d 20 c9 |plication".%.. .|
00007370 20 31 20 3a 20 3d 22 4f 70 65 6e 73 20 44 69 72 | 1 : ="Opens Dir|
00007380 65 63 74 6f 72 79 22 0d 25 ee 1b 20 c9 20 32 20 |ectory".%.. . 2 |
00007390 3a 20 3d 22 45 78 65 63 75 74 65 73 20 46 69 6c |: ="Executes Fil|
000073a0 65 22 0d 25 f8 1a 20 c9 20 33 20 3a 20 3d 22 4f |e".%.. . 3 : ="O|
000073b0 70 65 6e 73 20 57 69 6e 64 6f 77 22 0d 26 02 1e |pens Window".&..|
000073c0 20 c9 20 34 20 3a 20 3d 22 45 78 65 63 75 74 65 | . 4 : ="Execute|
000073d0 73 20 43 6f 6d 6d 61 6e 64 22 0d 26 0c 05 cb 0d |s Command".&....|
000073e0 26 16 16 3d 22 4d 6f 64 75 6c 65 2d 53 70 65 63 |&..="Module-Spec|
000073f0 69 66 69 63 22 0d 26 20 04 0d 26 2a 12 dd 20 a4 |ific".& ..&*.. .|
00007400 66 74 79 70 65 28 74 79 70 65 29 0d 26 34 23 e7 |ftype(type).&4#.|
00007410 20 74 79 70 65 3d 26 46 46 46 46 20 3d 22 49 63 | type=&FFFF ="Ic|
00007420 6f 6e 69 73 65 64 20 57 69 6e 64 6f 77 22 0d 26 |onised Window".&|
00007430 3e 1f e7 20 74 79 70 65 3d 26 32 30 30 30 20 3d |>.. type=&2000 =|
00007440 22 41 70 70 6c 69 63 61 74 69 6f 6e 22 0d 26 48 |"Application".&H|
00007450 1d e7 20 74 79 70 65 3d 26 31 30 30 30 20 3d 22 |.. type=&1000 ="|
00007460 44 69 72 65 63 74 6f 72 79 22 0d 26 52 1f e7 20 |Directory".&R.. |
00007470 74 79 70 65 3d 26 30 30 30 20 20 3d 22 4d 6f 64 |type=&000 ="Mod|
00007480 75 6c 65 20 49 63 6f 6e 22 0d 26 5c 30 c8 99 20 |ule Icon".&\0.. |
00007490 22 58 4f 53 5f 46 53 43 6f 6e 74 72 6f 6c 22 2c |"XOS_FSControl",|
000074a0 26 31 32 2c 2c 74 79 70 65 20 b8 20 2c 2c 62 79 |&12,,type . ,,by|
000074b0 74 65 31 2c 62 79 74 65 32 0d 26 66 35 71 24 3d |te1,byte2.&f5q$=|
000074c0 22 22 3a 21 70 6f 69 6e 74 65 72 25 3d 62 79 74 |"":!pointer%=byt|
000074d0 65 31 3a 70 6f 69 6e 74 65 72 25 3f 34 3d 31 33 |e1:pointer%?4=13|
000074e0 3a 71 24 2b 3d 24 70 6f 69 6e 74 65 72 25 0d 26 |:q$+=$pointer%.&|
000074f0 70 2f 21 70 6f 69 6e 74 65 72 25 3d 62 79 74 65 |p/!pointer%=byte|
00007500 32 3a 70 6f 69 6e 74 65 72 25 3f 34 3d 31 33 3a |2:pointer%?4=13:|
00007510 71 24 2b 3d 24 70 6f 69 6e 74 65 72 25 0d 26 7a |q$+=$pointer%.&z|
00007520 21 c8 95 20 c2 71 24 2c 31 29 3d 22 20 22 3a 71 |!.. .q$,1)=" ":q|
00007530 24 3d c0 71 24 2c a9 71 24 2d 31 29 3a ce 0d 26 |$=.q$,.q$-1):..&|
00007540 84 12 74 79 70 65 24 3d c3 7e 28 74 79 70 65 29 |..type$=.~(type)|
00007550 0d 26 8e 21 e7 20 a9 28 74 79 70 65 24 29 3d 31 |.&.!. .(type$)=1|
00007560 20 74 79 70 65 24 3d 22 30 30 22 2b 74 79 70 65 | type$="00"+type|
00007570 24 0d 26 98 20 e7 20 a9 28 74 79 70 65 24 29 3d |$.&. . .(type$)=|
00007580 32 20 74 79 70 65 24 3d 22 30 22 2b 74 79 70 65 |2 type$="0"+type|
00007590 24 0d 26 a2 18 e7 20 c2 71 24 2c 33 29 3d 74 79 |$.&... .q$,3)=ty|
000075a0 70 65 24 20 71 24 3d 22 22 0d 26 ac 17 71 24 2b |pe$ q$="".&..q$+|
000075b0 3d 22 20 28 26 22 2b 74 79 70 65 24 2b 22 29 22 |=" (&"+type$+")"|
000075c0 0d 26 b6 07 3d 71 24 0d 26 c0 04 0d 26 ca 15 dd |.&..=q$.&...&...|
000075d0 20 f2 64 72 61 67 61 62 6f 75 74 28 69 63 25 29 | .dragabout(ic%)|
000075e0 0d 26 d4 18 e7 20 28 69 63 25 20 83 20 32 3d 30 |.&... (ic% . 2=0|
000075f0 29 20 69 63 25 2d 3d 31 0d 26 de 75 f2 73 61 76 |) ic%-=1.&.u.sav|
00007600 65 64 72 61 67 62 6f 78 28 6d 61 69 6e 25 2c 69 |edragbox(main%,i|
00007610 63 25 29 3a 66 69 6c 65 24 3d 66 69 6c 65 24 28 |c%):file$=file$(|
00007620 69 63 25 29 3a 66 74 79 70 65 24 3d 66 74 79 70 |ic%):ftype$=ftyp|
00007630 65 24 28 69 63 25 29 3a 66 69 6c 65 74 79 70 65 |e$(ic%):filetype|
00007640 3d 66 69 6c 65 74 79 70 65 28 69 63 25 29 3a 69 |=filetype(ic%):i|
00007650 63 6f 6e 68 61 6e 64 6c 65 25 3d 69 63 25 3a 74 |conhandle%=ic%:t|
00007660 79 70 65 3d 74 79 70 65 28 69 63 25 29 0d 26 e8 |ype=type(ic%).&.|
00007670 05 e1 0d 26 f2 04 0d 26 fc 0e dd 20 f2 64 72 61 |...&...&... .dra|
00007680 67 65 6e 64 0d 27 06 2b e7 20 63 6c 6f 63 6b 69 |gend.'.+. clocki|
00007690 6e 67 25 3d b9 20 63 6c 6f 63 6b 69 6e 67 25 3d |ng%=. clocking%=|
000076a0 a3 3a f2 6d 6f 76 65 5f 63 6c 6f 63 6b 3a e1 0d |.:.move_clock:..|
000076b0 27 10 17 73 66 24 3d a4 6c 61 73 74 62 69 74 28 |'..sf$=.lastbit(|
000076c0 66 69 6c 65 24 29 0d 27 1a 0b f2 69 6d 70 6f 72 |file$).'...impor|
000076d0 74 0d 27 24 05 e1 0d 27 2e 04 0d 27 38 30 dd 20 |t.'$...'...'80. |
000076e0 f2 63 6f 70 79 5f 66 69 6c 65 3a e7 20 73 66 24 |.copy_file:. sf$|
000076f0 3d 22 3c 57 69 6d 70 24 53 63 72 61 70 3e 22 20 |="<Wimp$Scrap>" |
00007700 f2 64 72 61 67 67 65 64 3a e1 0d 27 42 1b f2 73 |.dragged:..'B..s|
00007710 65 74 5f 69 63 6f 6e 28 68 61 6e 64 6c 65 2c 69 |et_icon(handle,i|
00007720 63 6f 6e 25 29 0d 27 4c 1c e7 20 28 69 63 6f 6e |con%).'L.. (icon|
00007730 25 20 83 20 32 29 3d 30 20 69 63 6f 6e 25 2d 3d |% . 2)=0 icon%-=|
00007740 31 0d 27 56 17 6d 6f 76 65 3d a3 3a e7 20 a6 20 |1.'V.move=.:. . |
00007750 b9 20 6d 6f 76 65 3d b9 0d 27 60 14 c8 8e 20 74 |. move=..'`... t|
00007760 79 70 65 28 69 63 6f 6e 25 29 20 ca 0d 27 6a 0b |ype(icon%) ..'j.|
00007770 c9 20 30 2c 31 2c 32 0d 27 74 3b ff 28 22 53 65 |. 0,1,2.'t;.("Se|
00007780 74 20 43 6f 70 79 24 4f 70 74 69 6f 6e 73 20 41 |t Copy$Options A|
00007790 20 7e 43 20 7e 44 20 7e 46 20 7e 4c 20 7e 4e 20 | ~C ~D ~F ~L ~N |
000077a0 7e 50 20 7e 51 20 52 20 7e 53 20 7e 54 20 7e 56 |~P ~Q R ~S ~T ~V|
000077b0 22 29 0d 27 7e 0e 66 69 6c 65 31 24 3d 73 66 24 |").'~.file1$=sf$|
000077c0 0d 27 88 1f ff 28 22 43 6f 70 79 20 22 2b 66 69 |.'...("Copy "+fi|
000077d0 6c 65 24 2b 22 20 22 2b 66 69 6c 65 31 24 29 0d |le$+" "+file1$).|
000077e0 27 92 2a e7 20 a4 6c 61 73 74 62 69 74 28 66 69 |'.*. .lastbit(fi|
000077f0 6c 65 31 24 29 3d 22 54 65 6d 70 6f 72 79 22 20 |le1$)="Tempory" |
00007800 61 70 70 64 61 74 61 3d a3 0d 27 9c 1b e7 20 6d |appdata=..'... m|
00007810 6f 76 65 20 f2 64 65 6c 65 74 65 28 69 63 6f 6e |ove .delete(icon|
00007820 25 2c 30 29 0d 27 a6 0d c9 20 33 20 3a 20 cb 3a |%,0).'... 3 : .:|
00007830 e1 0d 27 b0 2c 7f 20 3a 20 f2 6d 6f 64 6c 5f 64 |..'.,. : .modl_d|
00007840 72 61 67 65 6e 64 28 66 69 6c 65 24 2c 73 66 24 |ragend(file$,sf$|
00007850 2c 74 79 70 65 28 69 63 6f 6e 25 29 29 0d 27 ba |,type(icon%)).'.|
00007860 05 cb 0d 27 c4 05 e1 0d 27 ce 04 0d 27 d8 15 dd |...'....'...'...|
00007870 20 f2 73 74 72 69 6e 67 30 28 61 25 2c 61 24 29 | .string0(a%,a$)|
00007880 0d 27 e2 13 24 61 25 3d 61 24 3a 61 25 3f a9 61 |.'..$a%=a$:a%?.a|
00007890 24 3d 30 0d 27 ec 05 e1 0d 27 f6 04 0d 28 00 10 |$=0.'....'...(..|
000078a0 dd 20 f2 64 65 6c 65 74 65 61 6c 6c 0d 28 0a 0e |. .deleteall.(..|
000078b0 e3 20 49 3d 30 20 b8 20 38 30 0d 28 14 1f e7 20 |. I=0 . 80.(... |
000078c0 66 69 6c 65 24 28 49 29 3c 3e 22 22 20 f2 64 65 |file$(I)<>"" .de|
000078d0 6c 65 74 65 28 49 2c 31 29 0d 28 1e 05 ed 0d 28 |lete(I,1).(....(|
000078e0 28 19 f2 6d 6f 64 6c 5f 63 6c 65 61 72 62 61 63 |(..modl_clearbac|
000078f0 6b 28 30 2c 22 22 29 0d 28 32 10 f2 73 68 75 74 |k(0,"").(2..shut|
00007900 28 6d 61 69 6e 25 29 0d 28 3c 3e f2 6f 70 65 6e |(main%).(<>.open|
00007910 75 70 28 6d 61 69 6e 25 2c 30 2c 77 69 6e 5f 6d |up(main%,0,win_m|
00007920 61 78 79 25 2c 77 69 6e 5f 6d 61 78 78 25 2c 28 |axy%,win_maxx%,(|
00007930 77 69 6e 5f 6d 61 78 79 25 2d 77 69 6e 5f 6d 69 |win_maxy%-win_mi|
00007940 6e 79 25 29 29 0d 28 46 05 e1 0d 28 50 04 0d 28 |ny%)).(F...(P..(|
00007950 5a 16 dd 20 f2 77 69 6d 70 5f 74 69 63 6b 28 62 |Z.. .wimp_tick(b|
00007960 25 2c 6e 29 0d 28 64 23 62 25 21 28 32 38 2b 32 |%,n).(d#b%!(28+2|
00007970 34 2a 6e 29 3d 62 25 21 28 32 38 2b 32 34 2a 6e |4*n)=b%!(28+24*n|
00007980 29 20 82 20 26 30 31 0d 28 6e 05 e1 0d 28 78 04 |) . &01.(n...(x.|
00007990 0d 28 82 09 dd 20 f2 66 67 0d 28 8c 16 c8 99 20 |.(... .fg.(.... |
000079a0 22 58 48 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 0d |"XHourglass_On".|
000079b0 28 96 1c f2 77 69 6d 70 5f 74 69 63 6b 28 6d 65 |(...wimp_tick(me|
000079c0 6e 75 25 2b 36 30 30 2c 66 67 29 0d 28 a0 0b 66 |nu%+600,fg).(..f|
000079d0 67 3d 71 25 21 38 0d 28 aa 1c f2 77 69 6d 70 5f |g=q%!8.(...wimp_|
000079e0 74 69 63 6b 28 6d 65 6e 75 25 2b 36 30 30 2c 66 |tick(menu%+600,f|
000079f0 67 29 0d 28 b4 0e 66 67 24 3d c3 7e 28 66 67 29 |g).(..fg$=.~(fg)|
00007a00 0d 28 be 0e 62 67 24 3d c3 7e 28 62 67 29 0d 28 |.(..bg$=.~(bg).(|
00007a10 c8 1a 66 6c 61 67 24 3d 62 67 24 2b 66 67 24 2b |..flag$=bg$+fg$+|
00007a20 22 30 31 38 30 33 39 22 0d 28 d2 15 66 6c 61 67 |"018039".(..flag|
00007a30 3d a0 28 22 26 22 2b 66 6c 61 67 24 29 0d 28 dc |=.("&"+flag$).(.|
00007a40 0e e3 20 49 3d 30 20 b8 20 38 30 0d 28 e6 14 e7 |.. I=0 . 80.(...|
00007a50 20 66 69 6c 65 24 28 49 29 3c 3e 22 22 20 8c 0d | file$(I)<>"" ..|
00007a60 28 f0 21 70 6f 69 6e 74 65 72 25 21 30 3d 6d 61 |(.!pointer%!0=ma|
00007a70 69 6e 25 3a 70 6f 69 6e 74 65 72 25 21 34 3d 49 |in%:pointer%!4=I|
00007a80 0d 28 fa 32 c8 99 20 22 58 57 69 6d 70 5f 44 65 |.(.2.. "XWimp_De|
00007a90 6c 65 74 65 49 63 6f 6e 22 2c 2c 70 6f 69 6e 74 |leteIcon",,point|
00007aa0 65 72 25 3a 70 6f 69 6e 74 65 72 25 21 34 3d 49 |er%:pointer%!4=I|
00007ab0 2b 31 0d 29 04 23 c8 99 20 22 58 57 69 6d 70 5f |+1.).#.. "XWimp_|
00007ac0 44 65 6c 65 74 65 49 63 6f 6e 22 2c 2c 70 6f 69 |DeleteIcon",,poi|
00007ad0 6e 74 65 72 25 0d 29 0e 15 73 70 6e 61 6d 65 24 |nter%.)..spname$|
00007ae0 3d 66 74 79 70 65 24 28 49 29 0d 29 18 2c c8 99 |=ftype$(I).).,..|
00007af0 20 22 58 57 69 6d 70 5f 53 70 72 69 74 65 4f 70 | "XWimp_SpriteOp|
00007b00 22 2c 34 30 2c 2c 73 70 6e 61 6d 65 24 20 b8 20 |",40,,spname$ . |
00007b10 3b 66 6c 61 67 25 0d 29 22 15 e7 20 28 66 6c 61 |;flag%.)".. (fla|
00007b20 67 25 20 80 20 31 29 3d 31 20 8c 0d 29 2c 26 20 |g% . 1)=1 ..),& |
00007b30 e7 20 74 79 70 65 28 49 29 3d 30 20 73 70 6e 61 |. type(I)=0 spna|
00007b40 6d 65 24 3d 22 61 70 70 6c 69 63 61 74 69 6f 6e |me$="application|
00007b50 22 0d 29 36 23 20 e7 20 74 79 70 65 28 49 29 3d |".)6# . type(I)=|
00007b60 32 20 73 70 6e 61 6d 65 24 3d 22 66 69 6c 65 5f |2 spname$="file_|
00007b70 78 78 78 22 0d 29 40 05 cd 0d 29 4a 51 f2 63 72 |xxx".)@...)JQ.cr|
00007b80 65 61 74 65 5f 69 63 6f 6e 28 6d 61 69 6e 25 2c |eate_icon(main%,|
00007b90 30 2c 78 28 49 29 2d 35 30 2c 78 28 49 29 2b 31 |0,x(I)-50,x(I)+1|
00007ba0 31 35 2c 2d 28 31 30 32 34 2d 28 79 28 49 29 2d |15,-(1024-(y(I)-|
00007bb0 36 35 29 29 2c 36 35 2c 73 70 6e 61 6d 65 24 2c |65)),65,spname$,|
00007bc0 26 34 37 30 31 38 30 31 41 29 0d 29 54 2d 6e 61 |&4701801A).)T-na|
00007bd0 6d 65 24 3d a4 6c 61 73 74 62 69 74 28 66 69 6c |me$=.lastbit(fil|
00007be0 65 24 28 49 29 29 3a 77 69 64 25 3d 28 a9 6e 61 |e$(I)):wid%=(.na|
00007bf0 6d 65 24 29 2a 31 36 0d 29 5e 60 f2 63 72 65 61 |me$)*16.)^`.crea|
00007c00 74 65 5f 69 63 6f 6e 28 6d 61 69 6e 25 2c 30 2c |te_icon(main%,0,|
00007c10 28 78 28 49 29 2d 28 77 69 64 25 2f 32 29 29 2b |(x(I)-(wid%/2))+|
00007c20 33 30 2c 28 78 28 49 29 2b 28 77 69 64 25 2f 32 |30,(x(I)+(wid%/2|
00007c30 29 29 2b 33 30 2c 2d 28 31 30 32 34 2d 28 79 28 |))+30,-(1024-(y(|
00007c40 49 29 2d 31 31 35 29 29 2c 33 36 2c 6e 61 6d 65 |I)-115)),36,name|
00007c50 24 2c 66 6c 61 67 29 0d 29 68 26 f2 70 75 74 69 |$,flag).)h&.puti|
00007c60 63 6f 6e 73 70 72 69 74 65 28 6d 61 69 6e 25 2c |consprite(main%,|
00007c70 69 25 2d 31 2c 73 70 6e 61 6d 65 24 29 0d 29 72 |i%-1,spname$).)r|
00007c80 4c f4 20 53 59 53 20 22 58 57 69 6d 70 5f 46 6f |L. SYS "XWimp_Fo|
00007c90 72 63 65 52 65 64 72 61 77 22 2c 70 6f 69 6e 74 |rceRedraw",point|
00007ca0 25 21 30 2c 70 6f 69 6e 74 25 21 34 2c 70 6f 69 |%!0,point%!4,poi|
00007cb0 6e 74 25 21 38 2c 70 6f 69 6e 74 25 21 31 32 2c |nt%!8,point%!12,|
00007cc0 70 6f 69 6e 74 25 21 31 36 0d 29 7c 05 cd 0d 29 |point%!16.)|...)|
00007cd0 86 05 ed 0d 29 90 0e 66 67 24 3d c3 7e 28 66 67 |....)..fg$=.~(fg|
00007ce0 29 0d 29 9a 25 6d 65 6e 75 66 6c 61 67 24 3d 66 |).).%menuflag$=f|
00007cf0 67 24 2b a4 66 67 63 6f 6c 28 66 67 29 2b 22 30 |g$+.fgcol(fg)+"0|
00007d00 30 30 31 32 31 22 0d 29 a4 30 6d 65 6e 75 66 6c |00121".).0menufl|
00007d10 61 67 3d a0 28 22 26 22 2b 6d 65 6e 75 66 6c 61 |ag=.("&"+menufla|
00007d20 67 24 29 3a 6d 65 6e 75 25 21 35 33 36 3d 6d 65 |g$):menu%!536=me|
00007d30 6e 75 66 6c 61 67 0d 29 ae 10 f2 73 68 75 74 28 |nuflag.)...shut(|
00007d40 6d 61 69 6e 25 29 0d 29 b8 3e f2 6f 70 65 6e 75 |main%).).>.openu|
00007d50 70 28 6d 61 69 6e 25 2c 30 2c 77 69 6e 5f 6d 61 |p(main%,0,win_ma|
00007d60 78 79 25 2c 77 69 6e 5f 6d 61 78 78 25 2c 28 77 |xy%,win_maxx%,(w|
00007d70 69 6e 5f 6d 61 78 79 25 2d 77 69 6e 5f 6d 69 6e |in_maxy%-win_min|
00007d80 79 25 29 29 0d 29 c2 17 c8 99 20 22 58 48 6f 75 |y%)).).... "XHou|
00007d90 72 67 6c 61 73 73 5f 4f 66 66 22 0d 29 cc 05 e1 |rglass_Off".)...|
00007da0 0d 29 d6 04 0d 29 e0 09 dd 20 f2 62 67 0d 29 ea |.)...)... .bg.).|
00007db0 16 c8 99 20 22 58 48 6f 75 72 67 6c 61 73 73 5f |... "XHourglass_|
00007dc0 4f 6e 22 0d 29 f4 1d f2 77 69 6d 70 5f 74 69 63 |On".)...wimp_tic|
00007dd0 6b 28 6d 65 6e 75 25 2b 31 31 30 30 2c 62 67 29 |k(menu%+1100,bg)|
00007de0 0d 29 fe 0b 62 67 3d 71 25 21 38 0d 2a 08 1d f2 |.)..bg=q%!8.*...|
00007df0 77 69 6d 70 5f 74 69 63 6b 28 6d 65 6e 75 25 2b |wimp_tick(menu%+|
00007e00 31 31 30 30 2c 62 67 29 0d 2a 12 0e 66 67 24 3d |1100,bg).*..fg$=|
00007e10 c3 7e 28 66 67 29 0d 2a 1c 0e 62 67 24 3d c3 7e |.~(fg).*..bg$=.~|
00007e20 28 62 67 29 0d 2a 26 1a 66 6c 61 67 24 3d 62 67 |(bg).*&.flag$=bg|
00007e30 24 2b 66 67 24 2b 22 30 31 38 30 33 39 22 0d 2a |$+fg$+"018039".*|
00007e40 30 15 66 6c 61 67 3d a0 28 22 26 22 2b 66 6c 61 |0.flag=.("&"+fla|
00007e50 67 24 29 0d 2a 3a 0e e3 20 49 3d 30 20 b8 20 38 |g$).*:.. I=0 . 8|
00007e60 30 0d 2a 44 14 e7 20 66 69 6c 65 24 28 49 29 3c |0.*D.. file$(I)<|
00007e70 3e 22 22 20 8c 0d 2a 4e 21 70 6f 69 6e 74 65 72 |>"" ..*N!pointer|
00007e80 25 21 30 3d 6d 61 69 6e 25 3a 70 6f 69 6e 74 65 |%!0=main%:pointe|
00007e90 72 25 21 34 3d 49 0d 2a 58 32 c8 99 20 22 58 57 |r%!4=I.*X2.. "XW|
00007ea0 69 6d 70 5f 44 65 6c 65 74 65 49 63 6f 6e 22 2c |imp_DeleteIcon",|
00007eb0 2c 70 6f 69 6e 74 65 72 25 3a 70 6f 69 6e 74 65 |,pointer%:pointe|
00007ec0 72 25 21 34 3d 49 2b 31 0d 2a 62 23 c8 99 20 22 |r%!4=I+1.*b#.. "|
00007ed0 58 57 69 6d 70 5f 44 65 6c 65 74 65 49 63 6f 6e |XWimp_DeleteIcon|
00007ee0 22 2c 2c 70 6f 69 6e 74 65 72 25 0d 2a 6c 15 73 |",,pointer%.*l.s|
00007ef0 70 6e 61 6d 65 24 3d 66 74 79 70 65 24 28 49 29 |pname$=ftype$(I)|
00007f00 0d 2a 76 2d c8 99 20 22 58 57 69 6d 70 5f 53 70 |.*v-.. "XWimp_Sp|
00007f10 72 69 74 65 4f 70 22 2c 34 30 2c 2c 73 70 6e 61 |riteOp",40,,spna|
00007f20 6d 65 24 20 b8 20 3b 66 6c 61 67 73 25 0d 2a 80 |me$ . ;flags%.*.|
00007f30 16 e7 20 28 66 6c 61 67 73 25 20 80 20 31 29 3d |.. (flags% . 1)=|
00007f40 31 20 8c 0d 2a 8a 26 20 e7 20 74 79 70 65 28 49 |1 ..*.& . type(I|
00007f50 29 3d 30 20 73 70 6e 61 6d 65 24 3d 22 61 70 70 |)=0 spname$="app|
00007f60 6c 69 63 61 74 69 6f 6e 22 0d 2a 94 23 20 e7 20 |lication".*.# . |
00007f70 74 79 70 65 28 49 29 3d 32 20 73 70 61 6e 6d 65 |type(I)=2 spanme|
00007f80 24 3d 22 66 69 6c 65 5f 78 78 78 22 0d 2a 9e 05 |$="file_xxx".*..|
00007f90 cd 0d 2a a8 51 f2 63 72 65 61 74 65 5f 69 63 6f |..*.Q.create_ico|
00007fa0 6e 28 6d 61 69 6e 25 2c 30 2c 78 28 49 29 2d 35 |n(main%,0,x(I)-5|
00007fb0 30 2c 78 28 49 29 2b 31 31 35 2c 2d 28 31 30 32 |0,x(I)+115,-(102|
00007fc0 34 2d 28 79 28 49 29 2d 36 35 29 29 2c 36 35 2c |4-(y(I)-65)),65,|
00007fd0 73 70 6e 61 6d 65 24 2c 26 34 37 30 31 38 30 31 |spname$,&4701801|
00007fe0 41 29 0d 2a b2 2d 6e 61 6d 65 24 3d a4 6c 61 73 |A).*.-name$=.las|
00007ff0 74 62 69 74 28 66 69 6c 65 24 28 49 29 29 3a 77 |tbit(file$(I)):w|
00008000 69 64 25 3d 28 a9 6e 61 6d 65 24 29 2a 31 36 0d |id%=(.name$)*16.|
00008010 2a bc 6d f2 63 72 65 61 74 65 5f 69 63 6f 6e 28 |*.m.create_icon(|
00008020 6d 61 69 6e 25 2c 30 2c 28 78 28 49 29 2d 28 77 |main%,0,(x(I)-(w|
00008030 69 64 25 2f 32 29 29 2b 33 30 2c 28 78 28 49 29 |id%/2))+30,(x(I)|
00008040 2b 28 77 69 64 25 2f 32 29 29 2b 33 30 2c 2d 28 |+(wid%/2))+30,-(|
00008050 31 30 32 34 2d 28 79 28 49 29 2d 31 31 35 29 29 |1024-(y(I)-115))|
00008060 2c 33 36 2c a4 6c 61 73 74 62 69 74 28 66 69 6c |,36,.lastbit(fil|
00008070 65 24 28 49 29 29 2c 66 6c 61 67 29 0d 2a c6 26 |e$(I)),flag).*.&|
00008080 f2 70 75 74 69 63 6f 6e 73 70 72 69 74 65 28 6d |.puticonsprite(m|
00008090 61 69 6e 25 2c 69 25 2d 31 2c 73 70 6e 61 6d 65 |ain%,i%-1,spname|
000080a0 24 29 0d 2a d0 4c f4 20 53 59 53 20 22 58 57 69 |$).*.L. SYS "XWi|
000080b0 6d 70 5f 46 6f 72 63 65 52 65 64 72 61 77 22 2c |mp_ForceRedraw",|
000080c0 70 6f 69 6e 74 25 21 30 2c 70 6f 69 6e 74 25 21 |point%!0,point%!|
000080d0 34 2c 70 6f 69 6e 74 25 21 38 2c 70 6f 69 6e 74 |4,point%!8,point|
000080e0 25 21 31 32 2c 70 6f 69 6e 74 25 21 31 36 0d 2a |%!12,point%!16.*|
000080f0 da 05 cd 0d 2a e4 05 ed 0d 2a ee 0e 62 67 24 3d |....*....*..bg$=|
00008100 c3 7e 28 62 67 29 0d 2a f8 25 6d 65 6e 75 66 6c |.~(bg).*.%menufl|
00008110 61 67 24 3d 62 67 24 2b a4 66 67 63 6f 6c 28 62 |ag$=bg$+.fgcol(b|
00008120 67 29 2b 22 30 30 30 31 32 31 22 0d 2b 02 1d 6d |g)+"000121".+..m|
00008130 65 6e 75 66 6c 61 67 3d a0 28 22 26 22 2b 6d 65 |enuflag=.("&"+me|
00008140 6e 75 66 6c 61 67 24 29 0d 2b 0c 16 6d 65 6e 75 |nuflag$).+..menu|
00008150 25 21 35 36 30 3d 6d 65 6e 75 66 6c 61 67 0d 2b |%!560=menuflag.+|
00008160 16 10 f2 73 68 75 74 28 6d 61 69 6e 25 29 0d 2b |...shut(main%).+|
00008170 20 3e f2 6f 70 65 6e 75 70 28 6d 61 69 6e 25 2c | >.openup(main%,|
00008180 30 2c 77 69 6e 5f 6d 61 78 79 25 2c 77 69 6e 5f |0,win_maxy%,win_|
00008190 6d 61 78 78 25 2c 28 77 69 6e 5f 6d 61 78 79 25 |maxx%,(win_maxy%|
000081a0 2d 77 69 6e 5f 6d 69 6e 79 25 29 29 0d 2b 2a 17 |-win_miny%)).+*.|
000081b0 c8 99 20 22 58 48 6f 75 72 67 6c 61 73 73 5f 4f |.. "XHourglass_O|
000081c0 66 66 22 0d 2b 34 05 e1 0d 2b 3e 04 0d 2b 48 15 |ff".+4...+>..+H.|
000081d0 dd 20 a4 67 65 74 66 74 79 70 65 28 74 79 70 65 |. .getftype(type|
000081e0 29 0d 2b 52 12 74 79 70 65 24 3d c3 7e 28 74 79 |).+R.type$=.~(ty|
000081f0 70 65 29 0d 2b 5c 21 e7 20 a9 28 74 79 70 65 24 |pe).+\!. .(type$|
00008200 29 3d 31 20 74 79 70 65 24 3d 22 30 30 22 2b 74 |)=1 type$="00"+t|
00008210 79 70 65 24 0d 2b 66 20 e7 20 a9 28 74 79 70 65 |ype$.+f . .(type|
00008220 24 29 3d 32 20 74 79 70 65 24 3d 22 30 22 2b 74 |$)=2 type$="0"+t|
00008230 79 70 65 24 0d 2b 70 12 3d 22 66 69 6c 65 5f 22 |ype$.+p.="file_"|
00008240 2b 74 79 70 65 24 0d 2b 7a 04 0d 2b 84 2b dd 20 |+type$.+z..+.+. |
00008250 a4 62 3a 3d 9a 23 68 25 2b 9a 23 68 25 2a 32 5e |.b:=.#h%+.#h%*2^|
00008260 38 2b 9a 23 68 25 2a 32 5e 31 36 2b 9a 23 68 25 |8+.#h%*2^16+.#h%|
00008270 2a 32 5e 32 34 0d 2b 8e 04 0d 2b 98 28 dd 20 f2 |*2^24.+...+.(. .|
00008280 64 72 61 67 67 65 64 3a ea 20 78 25 2c 79 25 3a |dragged:. x%,y%:|
00008290 78 25 3d 71 25 21 32 38 3a 79 25 3d 71 25 21 33 |x%=q%!28:y%=q%!3|
000082a0 32 0d 2b a2 0f e7 20 6c 6f 63 6b 65 64 25 20 e1 |2.+... locked% .|
000082b0 0d 2b ac af c8 99 20 22 58 48 6f 75 72 67 6c 61 |.+.... "XHourgla|
000082c0 73 73 5f 4f 6e 22 3a f2 73 65 74 5f 69 63 6f 6e |ss_On":.set_icon|
000082d0 28 68 61 6e 64 6c 65 2c 69 63 6f 6e 25 29 3a 70 |(handle,icon%):p|
000082e0 6f 69 6e 74 65 72 25 21 30 3d 6d 61 69 6e 25 3a |ointer%!0=main%:|
000082f0 70 6f 69 6e 74 65 72 25 21 34 3d 69 63 6f 6e 68 |pointer%!4=iconh|
00008300 61 6e 64 6c 65 25 3a c8 99 20 22 58 57 69 6d 70 |andle%:.. "XWimp|
00008310 5f 44 65 6c 65 74 65 49 63 6f 6e 22 2c 2c 70 6f |_DeleteIcon",,po|
00008320 69 6e 74 65 72 25 3a 70 6f 69 6e 74 65 72 25 21 |inter%:pointer%!|
00008330 34 3d 69 63 6f 6e 68 61 6e 64 6c 65 25 2b 31 3a |4=iconhandle%+1:|
00008340 c8 99 20 22 58 57 69 6d 70 5f 44 65 6c 65 74 65 |.. "XWimp_Delete|
00008350 49 63 6f 6e 22 2c 2c 70 6f 69 6e 74 65 72 25 0d |Icon",,pointer%.|
00008360 2b b6 32 e7 20 63 6c 63 6b 20 f2 6f 70 65 6e 75 |+.2. clck .openu|
00008370 70 28 63 6c 6f 63 6b 25 2c 63 6c 6f 63 6b 78 25 |p(clock%,clockx%|
00008380 2c 63 6c 6f 63 6b 79 25 2c 32 30 30 2c 32 30 30 |,clocky%,200,200|
00008390 29 0d 2b c0 25 70 6f 69 6e 74 65 72 25 21 30 3d |).+.%pointer%!0=|
000083a0 78 25 2d 33 32 3a 70 6f 69 6e 74 65 72 25 21 34 |x%-32:pointer%!4|
000083b0 3d 79 25 2b 33 32 0d 2b ca 3c 73 70 6e 61 6d 65 |=y%+32.+.<spname|
000083c0 24 3d 66 74 79 70 65 24 3a c8 99 20 22 58 57 69 |$=ftype$:.. "XWi|
000083d0 6d 70 5f 53 70 72 69 74 65 4f 70 22 2c 34 30 2c |mp_SpriteOp",40,|
000083e0 2c 73 70 6e 61 6d 65 24 20 b8 20 3b 66 6c 61 67 |,spname$ . ;flag|
000083f0 73 25 0d 2b d4 16 e7 20 28 66 6c 61 67 73 25 20 |s%.+... (flags% |
00008400 80 20 31 29 3d 31 20 8c 0d 2b de 23 20 e7 20 74 |. 1)=1 ..+.# . t|
00008410 79 70 65 3d 30 20 73 70 6e 61 6d 65 24 3d 22 61 |ype=0 spname$="a|
00008420 70 70 6c 69 63 61 74 69 6f 6e 22 0d 2b e8 20 20 |pplication".+. |
00008430 e7 20 74 79 70 65 3d 32 20 73 70 6e 61 6d 65 24 |. type=2 spname$|
00008440 3d 22 66 69 6c 65 5f 78 78 78 22 0d 2b f2 05 cd |="file_xxx".+...|
00008450 0d 2b fc bd f2 63 72 65 61 74 65 5f 69 63 6f 6e |.+...create_icon|
00008460 28 6d 61 69 6e 25 2c 30 2c 70 6f 69 6e 74 65 72 |(main%,0,pointer|
00008470 25 21 30 2d 35 30 2c 70 6f 69 6e 74 65 72 25 21 |%!0-50,pointer%!|
00008480 30 2b 31 31 35 2c 2d 28 31 30 32 34 2d 28 70 6f |0+115,-(1024-(po|
00008490 69 6e 74 65 72 25 21 34 2d 36 35 29 29 2c 36 35 |inter%!4-65)),65|
000084a0 2c 73 70 6e 61 6d 65 24 2c 26 34 37 30 31 38 30 |,spname$,&470180|
000084b0 31 41 29 3a 78 28 69 25 29 3d 70 6f 69 6e 74 65 |1A):x(i%)=pointe|
000084c0 72 25 21 30 3a 79 28 69 25 29 3d 70 6f 69 6e 74 |r%!0:y(i%)=point|
000084d0 65 72 25 21 34 3a 66 69 6c 65 24 28 69 25 29 3d |er%!4:file$(i%)=|
000084e0 66 69 6c 65 24 3a 66 74 79 70 65 24 28 69 25 29 |file$:ftype$(i%)|
000084f0 3d 66 74 79 70 65 24 3a 66 69 6c 65 74 79 70 65 |=ftype$:filetype|
00008500 28 69 25 29 3d 66 69 6c 65 74 79 70 65 0d 2c 06 |(i%)=filetype.,.|
00008510 0e 66 67 24 3d c3 7e 28 66 67 29 0d 2c 10 0e 62 |.fg$=.~(fg).,..b|
00008520 67 24 3d c3 7e 28 62 67 29 0d 2c 1a 1a 66 6c 61 |g$=.~(bg).,..fla|
00008530 67 24 3d 62 67 24 2b 66 67 24 2b 22 30 31 38 30 |g$=bg$+fg$+"0180|
00008540 33 39 22 0d 2c 24 3c 66 6c 61 67 3d a0 28 22 26 |39".,$<flag=.("&|
00008550 22 2b 66 6c 61 67 24 29 3a 6e 61 6d 65 24 3d a4 |"+flag$):name$=.|
00008560 6c 61 73 74 62 69 74 28 66 69 6c 65 24 29 3a 77 |lastbit(file$):w|
00008570 69 64 25 3d 28 a9 6e 61 6d 65 24 29 2a 31 36 0d |id%=(.name$)*16.|
00008580 2c 2e 7c f2 63 72 65 61 74 65 5f 69 63 6f 6e 28 |,.|.create_icon(|
00008590 6d 61 69 6e 25 2c 30 2c 28 70 6f 69 6e 74 65 72 |main%,0,(pointer|
000085a0 25 21 30 2d 28 77 69 64 25 2f 32 29 29 2b 33 30 |%!0-(wid%/2))+30|
000085b0 2c 28 70 6f 69 6e 74 65 72 25 21 30 2b 28 77 69 |,(pointer%!0+(wi|
000085c0 64 25 2f 32 29 29 2b 33 30 2c 2d 28 31 30 32 34 |d%/2))+30,-(1024|
000085d0 2d 28 70 6f 69 6e 74 65 72 25 21 34 2d 31 31 35 |-(pointer%!4-115|
000085e0 29 29 2c 33 36 2c a4 6c 61 73 74 62 69 74 28 66 |)),36,.lastbit(f|
000085f0 69 6c 65 24 29 2c 66 6c 61 67 29 0d 2c 38 26 f2 |ile$),flag).,8&.|
00008600 70 75 74 69 63 6f 6e 73 70 72 69 74 65 28 6d 61 |puticonsprite(ma|
00008610 69 6e 25 2c 69 25 2d 31 2c 73 70 6e 61 6d 65 24 |in%,i%-1,spname$|
00008620 29 0d 2c 42 10 f2 73 68 75 74 28 6d 61 69 6e 25 |).,B..shut(main%|
00008630 29 0d 2c 4c 67 70 6f 69 6e 74 65 72 25 21 30 3d |).,Lgpointer%!0=|
00008640 6d 61 69 6e 25 3a c8 99 20 22 58 57 69 6d 70 5f |main%:.. "XWimp_|
00008650 47 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 2c |GetWindowState",|
00008660 2c 70 6f 69 6e 74 65 72 25 3a 70 6f 69 6e 74 65 |,pointer%:pointe|
00008670 72 25 21 32 38 3d 2d 32 3a c8 99 20 22 58 57 69 |r%!28=-2:.. "XWi|
00008680 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c |mp_OpenWindow",,|
00008690 70 6f 69 6e 74 65 72 25 0d 2c 56 21 c8 99 20 22 |pointer%.,V!.. "|
000086a0 58 48 6f 75 72 67 6c 61 73 73 5f 4f 66 66 22 3a |XHourglass_Off":|
000086b0 61 70 70 64 61 74 61 3d a3 0d 2c 60 05 e1 0d 2c |appdata=..,`...,|
000086c0 6a 04 0d 2c 74 16 dd 20 f2 69 63 6f 6e 69 73 65 |j..,t.. .iconise|
000086d0 28 68 61 6e 64 6c 65 29 0d 2c 7e 0e 66 67 24 3d |(handle).,~.fg$=|
000086e0 c3 7e 28 66 67 29 0d 2c 88 0e 62 67 24 3d c3 7e |.~(fg).,..bg$=.~|
000086f0 28 62 67 29 0d 2c 92 1a 66 6c 61 67 24 3d 62 67 |(bg).,..flag$=bg|
00008700 24 2b 66 67 24 2b 22 30 31 38 30 33 39 22 0d 2c |$+fg$+"018039".,|
00008710 9c 15 66 6c 61 67 3d a0 28 22 26 22 2b 66 6c 61 |..flag=.("&"+fla|
00008720 67 24 29 0d 2c a6 27 c8 99 20 22 58 57 69 6d 70 |g$).,.'.. "XWimp|
00008730 5f 47 65 74 50 6f 69 6e 74 65 72 49 6e 66 6f 22 |_GetPointerInfo"|
00008740 2c 2c 70 6f 69 6e 74 65 72 25 0d 2c b0 21 70 6f |,,pointer%.,.!po|
00008750 69 6e 74 65 72 25 21 30 2d 3d 33 32 3a 70 6f 69 |inter%!0-=32:poi|
00008760 6e 74 65 72 25 21 34 2b 3d 33 32 0d 2c ba 65 f2 |nter%!4+=32.,.e.|
00008770 63 72 65 61 74 65 5f 69 63 6f 6e 28 6d 61 69 6e |create_icon(main|
00008780 25 2c 30 2c 70 6f 69 6e 74 65 72 25 21 30 2d 35 |%,0,pointer%!0-5|
00008790 30 2c 70 6f 69 6e 74 65 72 25 21 30 2b 31 31 35 |0,pointer%!0+115|
000087a0 2c 2d 28 31 30 32 34 2d 28 70 6f 69 6e 74 65 72 |,-(1024-(pointer|
000087b0 25 21 34 2d 36 35 29 29 2c 36 35 2c 22 69 63 6f |%!4-65)),65,"ico|
000087c0 6e 69 73 65 22 2c 26 34 37 30 31 38 30 31 41 29 |nise",&4701801A)|
000087d0 0d 2c c4 2d 6e 61 6d 65 24 3d a4 74 72 61 6e 73 |.,.-name$=.trans|
000087e0 6c 61 74 65 28 68 61 6e 64 6c 65 29 3a 77 69 64 |late(handle):wid|
000087f0 25 3d 28 a9 6e 61 6d 65 24 29 2a 31 36 0d 2c ce |%=(.name$)*16.,.|
00008800 7f f2 63 72 65 61 74 65 5f 69 63 6f 6e 28 6d 61 |..create_icon(ma|
00008810 69 6e 25 2c 30 2c 28 70 6f 69 6e 74 65 72 25 21 |in%,0,(pointer%!|
00008820 30 2d 28 77 69 64 25 2f 32 29 29 2b 33 30 2c 28 |0-(wid%/2))+30,(|
00008830 70 6f 69 6e 74 65 72 25 21 30 2b 28 77 69 64 25 |pointer%!0+(wid%|
00008840 2f 32 29 29 2b 33 30 2c 2d 28 31 30 32 34 2d 28 |/2))+30,-(1024-(|
00008850 70 6f 69 6e 74 65 72 25 21 34 2d 31 30 35 29 29 |pointer%!4-105))|
00008860 2c 33 36 2c a4 74 72 61 6e 73 6c 61 74 65 28 68 |,36,.translate(h|
00008870 61 6e 64 6c 65 29 2c 66 6c 61 67 29 0d 2c d8 28 |andle),flag).,.(|
00008880 f2 70 75 74 69 63 6f 6e 73 70 72 69 74 65 28 6d |.puticonsprite(m|
00008890 61 69 6e 25 2c 69 25 2d 31 2c 22 69 63 6f 6e 69 |ain%,i%-1,"iconi|
000088a0 73 65 22 29 0d 2c e2 7c 69 25 2d 3d 31 3a 66 69 |se").,.|i%-=1:fi|
000088b0 6c 65 24 28 69 25 29 3d a4 74 72 61 6e 73 6c 61 |le$(i%)=.transla|
000088c0 74 65 28 68 61 6e 64 6c 65 29 3a 3a 66 74 79 70 |te(handle)::ftyp|
000088d0 65 24 28 69 25 29 3d 22 69 63 6f 6e 69 73 65 22 |e$(i%)="iconise"|
000088e0 3a 66 69 6c 65 74 79 70 65 28 69 25 29 3d 26 46 |:filetype(i%)=&F|
000088f0 46 46 46 3a 78 28 69 25 29 3d 70 6f 69 6e 74 65 |FFF:x(i%)=pointe|
00008900 72 25 21 30 3a 79 28 69 25 29 3d 70 6f 69 6e 74 |r%!0:y(i%)=point|
00008910 65 72 25 21 34 3a 74 79 70 65 28 69 25 29 3d 33 |er%!4:type(i%)=3|
00008920 0d 2c ec 49 c8 99 20 22 58 57 69 6d 70 5f 46 6f |.,.I.. "XWimp_Fo|
00008930 72 63 65 52 65 64 72 61 77 22 2c 70 6f 69 6e 74 |rceRedraw",point|
00008940 25 21 30 2c 70 6f 69 6e 74 25 21 34 2c 70 6f 69 |%!0,point%!4,poi|
00008950 6e 74 25 21 38 2c 70 6f 69 6e 74 25 21 31 32 2c |nt%!8,point%!12,|
00008960 70 6f 69 6e 74 25 21 31 36 0d 2c f6 05 e1 0d 2d |point%!16.,....-|
00008970 00 04 0d 2d 0a 18 dd 20 a4 74 72 61 6e 73 6c 61 |...-... .transla|
00008980 74 65 28 68 61 6e 64 6c 65 29 0d 2d 14 0f c8 8e |te(handle).-....|
00008990 20 68 61 6e 64 6c 65 20 ca 0d 2d 1e 1a 20 c9 20 | handle ..-.. . |
000089a0 69 6e 66 6f 77 69 6e 64 25 20 3a 20 3d 22 49 6e |infowind% : ="In|
000089b0 66 6f 22 0d 2d 28 1f 20 c9 20 6d 6f 72 65 69 6e |fo".-(. . morein|
000089c0 66 6f 25 20 3a 20 3d 22 4d 6f 72 65 20 49 6e 66 |fo% : ="More Inf|
000089d0 6f 22 0d 2d 32 1e 20 c9 20 62 61 63 6b 64 72 6f |o".-2. . backdro|
000089e0 70 25 20 3a 20 3d 22 42 61 63 6b 64 72 6f 70 22 |p% : ="Backdrop"|
000089f0 0d 2d 3c 1a 20 c9 20 73 61 76 65 61 73 25 20 20 |.-<. . saveas% |
00008a00 20 3a 20 3d 22 53 61 76 65 22 0d 2d 46 1c 20 c9 | : ="Save".-F. .|
00008a10 20 61 62 6f 75 74 25 20 20 20 20 3a 20 3d 22 4f | about% : ="O|
00008a20 62 6a 65 63 74 22 0d 2d 50 1b 20 c9 20 63 6c 6f |bject".-P. . clo|
00008a30 63 6b 25 20 20 20 20 3a 20 3d 22 43 6c 6f 63 6b |ck% : ="Clock|
00008a40 22 0d 2d 5a 1d 20 c9 20 77 61 72 6e 69 6e 67 25 |".-Z. . warning%|
00008a50 20 20 3a 20 3d 22 57 61 72 6e 69 6e 67 22 0d 2d | : ="Warning".-|
00008a60 64 1c 20 c9 20 6c 6f 61 64 65 64 25 20 20 20 3a |d. . loaded% :|
00008a70 20 3d 22 4c 6f 61 64 65 64 22 0d 2d 6e 1e 20 c9 | ="Loaded".-n. .|
00008a80 20 61 62 61 63 6b 25 20 20 20 20 3a 20 3d 22 42 | aback% : ="B|
00008a90 61 63 6b 49 6e 66 6f 22 0d 2d 78 1e 20 c9 20 63 |ackInfo".-x. . c|
00008aa0 73 65 74 25 20 20 20 20 20 3a 20 3d 22 43 6c 6f |set% : ="Clo|
00008ab0 63 6b 53 65 74 22 0d 2d 82 05 cb 0d 2d 8c 18 3d |ckSet".-....-..=|
00008ac0 a4 6d 6f 64 6c 5f 74 72 61 6e 73 28 68 61 6e 64 |.modl_trans(hand|
00008ad0 6c 65 29 0d 2d 96 04 0d 2d a0 0c dd 20 f2 63 6c |le).-...-... .cl|
00008ae0 6f 63 6b 0d 2d aa 37 e7 20 63 6c 63 6b 3d 2d 31 |ock.-.7. clck=-1|
00008af0 20 f2 6f 70 65 6e 75 70 28 63 6c 6f 63 6b 25 2c | .openup(clock%,|
00008b00 63 6c 6f 63 6b 78 25 2c 63 6c 6f 63 6b 79 25 2c |clockx%,clocky%,|
00008b10 32 30 30 2c 32 30 30 29 3a e1 0d 2d b4 1c e7 20 |200,200):..-... |
00008b20 63 6c 63 6b 3d 30 20 f2 73 68 75 74 28 63 6c 6f |clck=0 .shut(clo|
00008b30 63 6b 25 29 3a e1 0d 2d be 5a f2 74 65 6c 6c 65 |ck%):..-.Z.telle|
00008b40 6d 6f 66 66 28 22 43 6c 6f 63 6b 20 64 69 73 70 |moff("Clock disp|
00008b50 6c 61 79 20 65 72 72 6f 72 2c 20 63 6c 6f 63 6b |lay error, clock|
00008b60 20 68 61 6e 64 6c 65 20 22 2b c3 63 6c 6f 63 6b | handle "+.clock|
00008b70 25 2b 22 2c 20 72 65 74 75 72 6e 69 6e 67 20 74 |%+", returning t|
00008b80 6f 20 70 6f 6c 6c 20 6c 6f 6f 70 2e 22 29 3a e1 |o poll loop."):.|
00008b90 0d 2d c8 04 0d 2d d2 13 dd 20 f2 75 70 64 61 74 |.-...-... .updat|
00008ba0 65 5f 63 6c 6f 63 6b 0d 2d dc 20 74 69 6d 65 24 |e_clock.-. time$|
00008bb0 3d a4 67 65 74 69 63 6f 6e 64 61 74 61 28 63 6c |=.geticondata(cl|
00008bc0 6f 63 6b 25 2c 30 29 0d 2d e6 0d d6 20 6d 63 6f |ock%,0).-... mco|
00008bd0 64 65 32 25 0d 2d f0 0e e7 20 68 6f 75 72 3d b9 |de2%.-... hour=.|
00008be0 20 8c 0d 2d fa 32 e7 20 74 77 66 6f 75 72 20 74 | ..-.2. twfour t|
00008bf0 79 70 65 24 3d 22 25 32 34 3a 25 4d 49 3a 25 53 |ype$="%24:%MI:%S|
00008c00 45 22 20 8b 20 74 79 70 65 24 3d 22 25 32 34 3a |E" . type$="%24:|
00008c10 25 4d 49 22 0d 2e 04 05 cc 0d 2e 0e 32 e7 20 74 |%MI"........2. t|
00008c20 77 66 6f 75 72 20 74 79 70 65 24 3d 22 25 31 32 |wfour type$="%12|
00008c30 3a 25 4d 49 3a 25 53 45 22 20 8b 20 74 79 70 65 |:%MI:%SE" . type|
00008c40 24 3d 22 25 31 32 3a 25 4d 49 22 0d 2e 18 05 cd |$="%12:%MI".....|
00008c50 0d 2e 22 3e c8 99 20 22 4f 53 5f 43 6f 6e 76 65 |..">.. "OS_Conve|
00008c60 72 74 44 61 74 65 41 6e 64 54 69 6d 65 22 2c 74 |rtDateAndTime",t|
00008c70 69 6d 65 5f 62 6c 6f 63 6b 25 2c 74 69 6d 65 5f |ime_block%,time_|
00008c80 62 75 66 66 25 2c 32 30 2c 74 79 70 65 24 0d 2e |buff%,20,type$..|
00008c90 2c 1b 62 75 66 66 24 3d a4 72 74 6f 7a 28 74 69 |,.buff$=.rtoz(ti|
00008ca0 6d 65 5f 62 75 66 66 25 29 0d 2e 36 2f e7 20 74 |me_buff%)..6/. t|
00008cb0 69 6d 65 24 3c 3e 62 75 66 66 24 20 f2 70 75 74 |ime$<>buff$ .put|
00008cc0 69 63 6f 6e 64 61 74 61 28 63 6c 6f 63 6b 25 2c |icondata(clock%,|
00008cd0 30 2c 62 75 66 66 24 29 0d 2e 40 05 e1 0d 2e 4a |0,buff$)..@....J|
00008ce0 04 0d 2e 54 0e dd 20 f2 77 61 72 6e 69 6e 67 0d |...T.. .warning.|
00008cf0 2e 5e 25 f2 6f 70 65 6e 75 70 28 77 61 72 6e 69 |.^%.openup(warni|
00008d00 6e 67 25 2c 33 31 35 2c 36 36 32 2c 36 35 30 2c |ng%,315,662,650,|
00008d10 33 30 30 29 0d 2e 68 05 e1 0d 2e 72 04 0d 2e 7c |300)..h....r...||
00008d20 29 dd 20 f2 74 69 6c 65 64 28 6d 6f 64 65 25 2c |). .tiled(mode%,|
00008d30 73 78 25 2c 73 79 25 2c 73 70 6e 61 6d 65 24 2c |sx%,sy%,spname$,|
00008d40 78 25 2c 79 25 29 0d 2e 86 12 73 70 72 69 74 65 |x%,y%)....sprite|
00008d50 66 69 6c 65 24 3d 66 24 0d 2e 90 1d f2 70 75 74 |file$=f$.....put|
00008d60 69 63 6f 6e 64 61 74 61 28 61 62 61 63 6b 25 2c |icondata(aback%,|
00008d70 33 2c 66 24 29 0d 2e 9a 22 f2 70 75 74 69 63 6f |3,f$)...".putico|
00008d80 6e 64 61 74 61 28 61 62 61 63 6b 25 2c 34 2c 73 |ndata(aback%,4,s|
00008d90 70 6e 61 6d 65 24 29 0d 2e a4 23 f2 70 75 74 69 |pname$)...#.puti|
00008da0 63 6f 6e 64 61 74 61 28 61 62 61 63 6b 25 2c 35 |condata(aback%,5|
00008db0 2c 70 61 6c 65 74 74 65 24 29 0d 2e ae 22 f2 70 |,palette$)...".p|
00008dc0 75 74 69 63 6f 6e 64 61 74 61 28 61 62 61 63 6b |uticondata(aback|
00008dd0 25 2c 37 2c 22 54 69 6c 65 64 22 29 0d 2e b8 22 |%,7,"Tiled")..."|
00008de0 f2 70 75 74 69 63 6f 6e 64 61 74 61 28 61 62 61 |.puticondata(aba|
00008df0 63 6b 25 2c 31 34 2c c3 6d 6f 64 65 25 29 0d 2e |ck%,14,.mode%)..|
00008e00 c2 1f f2 70 75 74 69 63 6f 6e 64 61 74 61 28 61 |...puticondata(a|
00008e10 62 61 63 6b 25 2c 31 36 2c c3 78 25 29 0d 2e cc |back%,16,.x%)...|
00008e20 1f f2 70 75 74 69 63 6f 6e 64 61 74 61 28 61 62 |..puticondata(ab|
00008e30 61 63 6b 25 2c 31 38 2c c3 79 25 29 0d 2e d6 2e |ack%,18,.y%)....|
00008e40 c8 99 20 22 58 4f 53 5f 52 65 61 64 4d 6f 64 65 |.. "XOS_ReadMode|
00008e50 56 61 72 69 61 62 6c 65 22 2c 6d 6f 64 65 25 2c |Variable",mode%,|
00008e60 34 20 b8 20 2c 2c 76 61 72 25 0d 2e e0 11 73 78 |4 . ,,var%....sx|
00008e70 25 3d 73 78 25 3c 3c 76 61 72 25 0d 2e ea 2e c8 |%=sx%<<var%.....|
00008e80 99 20 22 58 4f 53 5f 52 65 61 64 4d 6f 64 65 56 |. "XOS_ReadModeV|
00008e90 61 72 69 61 62 6c 65 22 2c 6d 6f 64 65 25 2c 35 |ariable",mode%,5|
00008ea0 20 b8 20 2c 2c 76 61 72 25 0d 2e f4 11 73 79 25 | . ,,var%....sy%|
00008eb0 3d 73 79 25 3c 3c 76 61 72 25 0d 2e fe 10 f2 73 |=sy%<<var%.....s|
00008ec0 68 75 74 28 6d 61 69 6e 25 29 0d 2f 08 3e f2 6f |hut(main%)./.>.o|
00008ed0 70 65 6e 75 70 28 6d 61 69 6e 25 2c 30 2c 77 69 |penup(main%,0,wi|
00008ee0 6e 5f 6d 61 78 79 25 2c 77 69 6e 5f 6d 61 78 78 |n_maxy%,win_maxx|
00008ef0 25 2c 28 77 69 6e 5f 6d 61 78 79 25 2d 77 69 6e |%,(win_maxy%-win|
00008f00 5f 6d 69 6e 79 25 29 29 0d 2f 12 1d c8 99 20 22 |_miny%))./.... "|
00008f10 58 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 |XWimp_CreateMenu|
00008f20 22 2c 2c 2d 31 0d 2f 1c 05 e1 0d 2f 26 04 0d 2f |",,-1./..../&../|
00008f30 30 17 dd 20 f2 67 72 65 79 5f 69 63 6f 6e 28 77 |0.. .grey_icon(w|
00008f40 25 2c 69 25 29 0d 2f 3a 11 70 6f 69 6e 74 65 72 |%,i%)./:.pointer|
00008f50 25 21 30 3d 77 25 0d 2f 44 11 70 6f 69 6e 74 65 |%!0=w%./D.pointe|
00008f60 72 25 21 34 3d 69 25 0d 2f 4e 16 70 6f 69 6e 74 |r%!4=i%./N.point|
00008f70 65 72 25 21 38 3d 26 34 30 30 30 30 30 0d 2f 58 |er%!8=&400000./X|
00008f80 11 70 6f 69 6e 74 65 72 25 21 31 32 3d 30 0d 2f |.pointer%!12=0./|
00008f90 62 25 c8 99 20 22 58 57 69 6d 70 5f 53 65 74 49 |b%.. "XWimp_SetI|
00008fa0 63 6f 6e 53 74 61 74 65 22 2c 2c 70 6f 69 6e 74 |conState",,point|
00008fb0 65 72 25 0d 2f 6c 05 e1 0d 2f 76 04 0d 2f 80 12 |er%./l.../v../..|
00008fc0 dd 20 f2 73 65 74 6d 65 6e 75 69 74 65 6d 0d 2f |. .setmenuitem./|
00008fd0 8a 09 ea 20 69 63 25 0d 2f 94 0d 69 63 25 3d 71 |... ic%./..ic%=q|
00008fe0 25 21 31 36 0d 2f 9e 18 e7 20 28 69 63 25 20 83 |%!16./... (ic% .|
00008ff0 20 32 3d 30 29 20 69 63 25 2d 3d 31 0d 2f a8 19 | 2=0) ic%-=1./..|
00009000 66 74 24 3d 22 46 69 6c 65 22 3a 74 74 24 3d 22 |ft$="File":tt$="|
00009010 46 69 6c 65 22 0d 2f b2 12 c8 8e 20 74 79 70 65 |File"./.... type|
00009020 28 69 63 25 29 20 ca 0d 2f bc 26 c9 20 30 20 3a |(ic%) ../.&. 0 :|
00009030 20 66 74 24 3d 22 41 70 70 2e 22 3a 74 74 24 3d | ft$="App.":tt$=|
00009040 22 41 70 70 6c 69 63 61 74 69 6f 6e 22 0d 2f c6 |"Application"./.|
00009050 39 20 20 20 20 20 20 20 20 20 e7 20 a4 61 73 28 |9 . .as(|
00009060 6d 65 6e 75 25 2b 33 30 30 2c 32 29 3d 31 20 f2 |menu%+300,2)=1 .|
00009070 67 72 65 79 5f 6d 65 6e 75 28 6d 65 6e 75 25 2b |grey_menu(menu%+|
00009080 33 30 30 2c 32 29 0d 2f d0 24 c9 20 31 20 3a 20 |300,2)./.$. 1 : |
00009090 66 74 24 3d 22 44 69 72 2e 22 3a 74 74 24 3d 22 |ft$="Dir.":tt$="|
000090a0 44 69 72 65 63 74 6f 72 79 22 0d 2f da 39 20 20 |Directory"./.9 |
000090b0 20 20 20 20 20 20 20 e7 20 a4 61 73 28 6d 65 6e | . .as(men|
000090c0 75 25 2b 33 30 30 2c 32 29 3d 31 20 f2 67 72 65 |u%+300,2)=1 .gre|
000090d0 79 5f 6d 65 6e 75 28 6d 65 6e 75 25 2b 33 30 30 |y_menu(menu%+300|
000090e0 2c 32 29 0d 2f e4 1f c9 20 32 20 3a 20 66 74 24 |,2)./... 2 : ft$|
000090f0 3d 22 46 69 6c 65 22 3a 74 74 24 3d 22 46 69 6c |="File":tt$="Fil|
00009100 65 22 0d 2f ee 39 20 20 20 20 20 20 20 20 20 e7 |e"./.9 .|
00009110 20 a4 61 73 28 6d 65 6e 75 25 2b 33 30 30 2c 32 | .as(menu%+300,2|
00009120 29 3d 31 20 f2 67 72 65 79 5f 6d 65 6e 75 28 6d |)=1 .grey_menu(m|
00009130 65 6e 75 25 2b 33 30 30 2c 32 29 0d 2f f8 21 c9 |enu%+300,2)./.!.|
00009140 20 33 20 3a 20 66 74 24 3d 22 57 69 6e 2e 22 3a | 3 : ft$="Win.":|
00009150 74 74 24 3d 22 57 69 6e 64 6f 77 22 0d 30 02 39 |tt$="Window".0.9|
00009160 20 20 20 20 20 20 20 20 20 e7 20 a4 61 73 28 6d | . .as(m|
00009170 65 6e 75 25 2b 33 30 30 2c 32 29 3d 30 20 f2 67 |enu%+300,2)=0 .g|
00009180 72 65 79 5f 6d 65 6e 75 28 6d 65 6e 75 25 2b 33 |rey_menu(menu%+3|
00009190 30 30 2c 32 29 0d 30 0c 1f 7f 20 3a 20 66 74 24 |00,2).0... : ft$|
000091a0 3d 22 4f 62 6a 2e 22 3a 74 74 24 3d 22 4f 62 6a |="Obj.":tt$="Obj|
000091b0 65 63 74 22 0d 30 16 39 20 20 20 20 20 20 20 20 |ect".0.9 |
000091c0 20 e7 20 a4 61 73 28 6d 65 6e 75 25 2b 33 30 30 | . .as(menu%+300|
000091d0 2c 32 29 3d 30 20 f2 67 72 65 79 5f 6d 65 6e 75 |,2)=0 .grey_menu|
000091e0 28 6d 65 6e 75 25 2b 33 30 30 2c 32 29 0d 30 20 |(menu%+300,2).0 |
000091f0 05 cb 0d 30 2a 2e 24 6f 62 6a 65 63 74 25 3d 66 |...0*.$object%=f|
00009200 74 24 2b 22 20 27 22 2b a4 6c 61 73 74 62 69 74 |t$+" '"+.lastbit|
00009210 28 66 69 6c 65 24 28 69 63 25 29 29 2b 22 27 22 |(file$(ic%))+"'"|
00009220 0d 30 34 14 24 28 6d 65 6e 75 25 2b 33 30 30 29 |.04.$(menu%+300)|
00009230 3d 74 74 24 0d 30 3e 28 e7 20 a4 61 73 28 6d 65 |=tt$.0>(. .as(me|
00009240 6e 75 25 2c 31 29 3d 31 20 f2 67 72 65 79 5f 6d |nu%,1)=1 .grey_m|
00009250 65 6e 75 28 6d 65 6e 75 25 2c 31 29 0d 30 48 30 |enu(menu%,1).0H0|
00009260 e7 20 a4 61 73 28 6d 65 6e 75 25 2b 34 30 30 2c |. .as(menu%+400,|
00009270 31 29 3d 31 20 f2 67 72 65 79 5f 6d 65 6e 75 28 |1)=1 .grey_menu(|
00009280 6d 65 6e 75 25 2b 34 30 30 2c 31 29 0d 30 52 05 |menu%+400,1).0R.|
00009290 e1 0d 30 5c 04 0d 30 66 16 dd 20 f2 73 65 74 5f |..0\..0f.. .set_|
000092a0 69 63 6f 6e 28 77 25 2c 69 25 29 0d 30 70 11 70 |icon(w%,i%).0p.p|
000092b0 6f 69 6e 74 65 72 25 21 30 3d 77 25 0d 30 7a 11 |ointer%!0=w%.0z.|
000092c0 70 6f 69 6e 74 65 72 25 21 34 3d 69 25 0d 30 84 |pointer%!4=i%.0.|
000092d0 16 70 6f 69 6e 74 65 72 25 21 38 3d 26 32 30 30 |.pointer%!8=&200|
000092e0 30 30 30 0d 30 8e 11 70 6f 69 6e 74 65 72 25 21 |000.0..pointer%!|
000092f0 31 32 3d 30 0d 30 98 25 c8 99 20 22 58 57 69 6d |12=0.0.%.. "XWim|
00009300 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 22 2c |p_SetIconState",|
00009310 2c 70 6f 69 6e 74 65 72 25 0d 30 a2 05 e1 0d 30 |,pointer%.0....0|
00009320 ac 04 0d 30 b6 0f dd 20 f2 73 65 6e 64 68 65 6c |...0... .sendhel|
00009330 70 0d 30 c0 25 71 25 21 31 32 3d 71 25 21 38 3a |p.0.%q%!12=q%!8:|
00009340 71 25 21 31 36 3d 26 35 30 33 3a 68 65 6c 70 25 |q%!16=&503:help%|
00009350 3d 71 25 2b 32 30 0d 30 ca 2e 68 65 6c 70 25 3d |=q%+20.0..help%=|
00009360 a4 68 65 6c 70 28 71 25 21 33 32 2c 71 25 21 33 |.help(q%!32,q%!3|
00009370 36 2c 68 65 6c 70 25 29 3a e7 20 68 65 6c 70 25 |6,help%):. help%|
00009380 3d 30 20 e1 0d 30 d4 0c 3f 68 65 6c 70 25 3d 30 |=0 ..0..?help%=0|
00009390 0d 30 de 17 21 71 25 3d 28 68 65 6c 70 25 2b 34 |.0..!q%=(help%+4|
000093a0 2d 71 25 29 80 ac 33 0d 30 e8 25 c8 99 20 22 58 |-q%)..3.0.%.. "X|
000093b0 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 |Wimp_SendMessage|
000093c0 22 2c 31 37 2c 71 25 2c 71 25 21 34 0d 30 f2 05 |",17,q%,q%!4.0..|
000093d0 e1 0d 30 fc 04 0d 31 06 15 dd 20 a4 68 65 6c 70 |..0...1... .help|
000093e0 28 77 25 2c 69 25 2c 68 25 29 0d 31 10 0a 24 68 |(w%,i%,h%).1..$h|
000093f0 25 3d 22 22 0d 31 1a 0b c8 8e 20 77 25 20 ca 0d |%="".1.... w% ..|
00009400 31 24 10 20 c9 20 69 6e 66 6f 77 69 6e 64 25 0d |1$. . infowind%.|
00009410 31 2e 0c 20 c8 8e 20 69 25 20 ca 0d 31 38 1c 20 |1.. .. i% ..18. |
00009420 20 c9 20 2d 31 2c 30 2c 31 2c 32 2c 33 2c 34 2c | . -1,0,1,2,3,4,|
00009430 35 2c 36 2c 37 2c 38 0d 31 42 4c 20 20 24 68 25 |5,6,7,8.1BL $h%|
00009440 3d 22 54 68 69 73 20 69 73 20 74 68 65 20 49 6e |="This is the In|
00009450 66 6f 20 57 69 6e 64 6f 77 2e 7c 4d 49 74 20 70 |fo Window.|MIt p|
00009460 72 6f 76 69 64 65 73 20 69 6e 66 6f 72 6d 61 74 |rovides informat|
00009470 69 6f 6e 20 6f 6e 20 21 53 74 69 63 6b 79 42 72 |ion on !StickyBr|
00009480 64 2e 22 0d 31 4c 29 20 20 7f 20 3a 20 c8 99 20 |d.".1L) . : .. |
00009490 22 58 49 6e 74 65 72 66 61 63 65 5f 53 65 6e 64 |"XInterface_Send|
000094a0 48 65 6c 70 22 2c 2c 71 25 3a 3d 30 0d 31 56 06 |Help",,q%:=0.1V.|
000094b0 20 cb 0d 31 60 10 20 c9 20 6d 6f 72 65 69 6e 66 | ..1`. . moreinf|
000094c0 6f 25 0d 31 6a 0c 20 c8 8e 20 69 25 20 ca 0d 31 |o%.1j. .. i% ..1|
000094d0 74 2a 20 20 c9 20 2d 31 2c 30 2c 31 2c 32 2c 33 |t* . -1,0,1,2,3|
000094e0 2c 34 2c 35 2c 36 2c 37 2c 38 2c 39 2c 31 30 2c |,4,5,6,7,8,9,10,|
000094f0 31 31 2c 31 32 2c 31 33 0d 31 7e 3d 20 20 24 68 |11,12,13.1~= $h|
00009500 25 3d 22 54 68 69 73 20 77 69 6e 64 6f 77 20 67 |%="This window g|
00009510 69 76 65 73 20 6d 6f 72 65 20 69 6e 66 6f 72 6d |ives more inform|
00009520 61 74 69 6f 6e 20 6f 6e 20 21 53 74 69 63 6b 79 |ation on !Sticky|
00009530 42 72 64 2e 22 0d 31 88 29 20 20 7f 20 3a 20 c8 |Brd.".1.) . : .|
00009540 99 20 22 58 49 6e 74 65 72 66 61 63 65 5f 53 65 |. "XInterface_Se|
00009550 6e 64 48 65 6c 70 22 2c 2c 71 25 3a 3d 30 0d 31 |ndHelp",,q%:=0.1|
00009560 92 06 20 cb 0d 31 9c 10 20 c9 20 62 61 63 6b 64 |.. ..1.. . backd|
00009570 72 6f 70 25 0d 31 a6 0c 20 c8 8e 20 69 25 20 ca |rop%.1.. .. i% .|
00009580 0d 31 b0 14 20 20 c9 20 2d 31 2c 30 2c 31 2c 33 |.1.. . -1,0,1,3|
00009590 2c 37 2c 39 0d 31 ba 58 20 20 24 68 25 3d 22 54 |,7,9.1.X $h%="T|
000095a0 68 69 73 20 69 73 20 74 68 65 20 27 4c 6f 61 64 |his is the 'Load|
000095b0 20 42 61 63 6b 64 72 6f 70 27 20 77 69 6e 64 6f | Backdrop' windo|
000095c0 77 2e 7c 4d 55 73 65 20 74 68 69 73 20 77 69 6e |w.|MUse this win|
000095d0 64 6f 77 20 74 6f 20 6c 6f 61 64 20 61 20 6e 65 |dow to load a ne|
000095e0 77 20 62 61 63 6b 64 72 6f 70 2e 22 0d 31 c4 09 |w backdrop.".1..|
000095f0 20 20 c9 20 32 0d 31 ce 58 20 20 24 68 25 3d 22 | . 2.1.X $h%="|
00009600 54 68 69 73 20 69 73 20 74 68 65 20 27 4c 6f 61 |This is the 'Loa|
00009610 64 20 53 70 72 69 74 65 27 20 69 63 6f 6e 2e 7c |d Sprite' icon.||
00009620 4d 44 72 61 67 20 61 20 53 70 72 69 74 65 20 66 |MDrag a Sprite f|
00009630 69 6c 65 20 74 6f 20 74 68 69 73 20 69 63 6f 6e |ile to this icon|
00009640 20 74 6f 20 6c 6f 61 64 20 69 74 2e 22 0d 31 d8 | to load it.".1.|
00009650 09 20 20 c9 20 34 0d 31 e2 4c 20 20 24 68 25 3d |. . 4.1.L $h%=|
00009660 22 54 68 69 73 20 69 73 20 74 68 65 20 27 53 74 |"This is the 'St|
00009670 61 79 20 4f 70 65 6e 27 20 69 63 6f 6e 2e 7c 4d |ay Open' icon.|M|
00009680 43 6c 69 63 6b 20 69 74 20 74 6f 20 6b 65 65 70 |Click it to keep|
00009690 20 74 68 65 20 77 69 6e 64 6f 77 20 6f 70 65 6e | the window open|
000096a0 2e 22 0d 31 ec 09 20 20 c9 20 36 0d 31 f6 57 20 |.".1.. . 6.1.W |
000096b0 20 24 68 25 3d 22 54 68 69 73 20 69 73 20 74 68 | $h%="This is th|
000096c0 65 20 27 54 69 6c 65 64 27 20 72 61 64 69 6f 20 |e 'Tiled' radio |
000096d0 62 75 74 74 6f 6e 2e 7c 4d 43 6c 69 63 6b 20 6f |button.|MClick o|
000096e0 6e 20 69 74 20 74 6f 20 73 65 6c 65 63 74 20 27 |n it to select '|
000096f0 54 69 6c 65 64 27 20 62 61 63 6b 64 72 6f 70 73 |Tiled' backdrops|
00009700 2e 22 0d 32 00 09 20 20 c9 20 38 0d 32 0a 5b 20 |.".2.. . 8.2.[ |
00009710 20 24 68 25 3d 22 54 68 69 73 20 69 73 20 74 68 | $h%="This is th|
00009720 65 20 27 43 65 6e 74 72 65 64 27 20 72 61 64 69 |e 'Centred' radi|
00009730 6f 20 62 75 74 74 6f 6e 2e 7c 4d 43 6c 69 63 6b |o button.|MClick|
00009740 20 6f 6e 20 69 74 20 74 6f 20 73 65 6c 65 63 74 | on it to select|
00009750 20 27 43 65 6e 74 72 65 64 27 20 62 61 63 6b 64 | 'Centred' backd|
00009760 72 6f 70 73 2e 22 0d 32 14 29 20 20 7f 20 3a 20 |rops.".2.) . : |
00009770 c8 99 20 22 58 49 6e 74 65 72 66 61 63 65 5f 53 |.. "XInterface_S|
00009780 65 6e 64 48 65 6c 70 22 2c 2c 71 25 3a 3d 30 0d |endHelp",,q%:=0.|
00009790 32 1e 06 20 cb 0d 32 28 0c 20 c9 20 6d 61 69 6e |2.. ..2(. . main|
000097a0 25 0d 32 32 0c 20 c8 8e 20 69 25 20 ca 0d 32 3c |%.22. .. i% ..2<|
000097b0 b0 20 20 c9 20 30 20 3a 20 24 68 25 3d 22 54 68 |. . 0 : $h%="Th|
000097c0 69 73 20 69 73 20 74 68 65 20 64 65 73 6b 74 6f |is is the deskto|
000097d0 70 20 62 61 63 6b 64 72 6f 70 2e 7c 4d 49 74 20 |p backdrop.|MIt |
000097e0 69 73 20 6e 6f 77 20 60 73 74 69 63 6b 79 b4 20 |is now `sticky. |
000097f0 61 6e 64 20 77 69 6c 6c 20 61 63 63 65 70 74 20 |and will accept |
00009800 64 69 72 65 63 74 6f 72 69 65 73 2c 20 61 70 70 |directories, app|
00009810 6c 69 63 61 74 69 6f 6e 73 2c 20 61 6e 64 20 66 |lications, and f|
00009820 69 6c 65 73 2e 7c 4d 44 72 61 67 20 74 68 65 73 |iles.|MDrag thes|
00009830 65 20 74 6f 20 74 68 65 20 64 65 73 6b 74 6f 70 |e to the desktop|
00009840 20 62 61 63 6b 64 72 6f 70 20 74 6f 20 61 64 64 | backdrop to add|
00009850 20 74 68 65 6d 20 74 6f 20 69 74 2e 22 0d 32 46 | them to it.".2F|
00009860 10 20 20 7f 20 3a 20 69 63 25 3d 69 25 0d 32 50 |. . : ic%=i%.2P|
00009870 26 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e7 |& .|
00009880 20 28 69 63 25 20 83 20 32 3d 30 29 20 69 63 25 | (ic% . 2=0) ic%|
00009890 2d 3d 31 0d 32 5a 2e 20 20 20 20 20 20 20 20 20 |-=1.2Z. |
000098a0 20 20 20 20 20 24 68 25 3d 22 54 68 69 73 20 69 | $h%="This i|
000098b0 73 20 74 68 65 20 69 63 6f 6e 20 66 6f 72 20 60 |s the icon for `|
000098c0 22 0d 32 64 2b 20 20 20 20 20 20 20 20 20 20 20 |".2d+ |
000098d0 20 20 20 24 68 25 2b 3d a4 6c 61 73 74 62 69 74 | $h%+=.lastbit|
000098e0 28 66 69 6c 65 24 28 69 63 25 29 29 0d 32 6e 1d |(file$(ic%)).2n.|
000098f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 68 | $h|
00009900 25 2b 3d 22 b4 2e 7c 4d 22 0d 32 78 28 20 20 20 |%+="..|M".2x( |
00009910 20 20 20 20 20 20 20 20 20 20 20 24 68 25 2b 3d | $h%+=|
00009920 22 43 6c 69 63 6b 20 6f 6e 20 69 74 20 74 6f 20 |"Click on it to |
00009930 22 0d 32 82 2b 20 20 20 20 20 20 20 20 20 20 20 |".2.+ |
00009940 20 20 20 24 68 25 2b 3d a4 66 69 6e 64 74 79 70 | $h%+=.findtyp|
00009950 65 28 74 79 70 65 28 69 63 25 29 29 0d 32 8c 1a |e(type(ic%)).2..|
00009960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 68 | $h|
00009970 25 2b 3d 22 2e 22 0d 32 96 06 20 cb 0d 32 a0 0d |%+=".".2.. ..2..|
00009980 20 c9 20 61 62 6f 75 74 25 0d 32 aa 7d 20 20 24 | . about%.2.} $|
00009990 68 25 3d 22 54 68 69 73 20 69 73 20 74 68 65 20 |h%="This is the |
000099a0 27 4f 62 6a 65 63 74 20 49 6e 66 6f 72 6d 61 74 |'Object Informat|
000099b0 69 6f 6e 27 20 77 69 6e 64 6f 77 2e 7c 4d 49 74 |ion' window.|MIt|
000099c0 20 70 72 6f 76 69 64 65 73 20 69 6e 66 6f 72 6d | provides inform|
000099d0 61 74 69 6f 6e 20 61 62 6f 75 74 20 74 68 65 20 |ation about the |
000099e0 6f 62 6a 65 63 74 20 74 68 65 20 70 6f 69 6e 74 |object the point|
000099f0 65 72 20 69 73 20 63 75 72 72 65 6e 74 6c 79 20 |er is currently |
00009a00 6f 76 65 72 2e 22 0d 32 b4 0e 20 c9 20 73 61 76 |over.".2.. . sav|
00009a10 65 61 73 25 0d 32 be 0c 20 c8 8e 20 69 25 20 ca |eas%.2.. .. i% .|
00009a20 0d 32 c8 0a 20 20 c9 20 2d 31 0d 32 d2 58 20 20 |.2.. . -1.2.X |
00009a30 24 68 25 3d 22 54 68 69 73 20 69 73 20 74 68 65 |$h%="This is the|
00009a40 20 27 53 61 76 65 27 20 77 69 6e 64 6f 77 2e 7c | 'Save' window.||
00009a50 4d 55 73 65 20 69 74 20 74 6f 20 73 61 76 65 20 |MUse it to save |
00009a60 74 68 65 20 63 75 72 72 65 6e 74 20 73 74 61 74 |the current stat|
00009a70 65 20 6f 66 20 74 68 65 20 64 65 73 6b 74 6f 70 |e of the desktop|
00009a80 2e 22 0d 32 dc 07 20 20 7f 0d 32 e6 25 20 20 c8 |.".2.. ..2.% .|
00009a90 99 20 22 58 49 6e 74 65 72 66 61 63 65 5f 53 65 |. "XInterface_Se|
00009aa0 6e 64 48 65 6c 70 22 2c 2c 71 25 3a 3d 30 0d 32 |ndHelp",,q%:=0.2|
00009ab0 f0 06 20 cb 0d 32 fa 0f 20 c9 20 77 61 72 6e 69 |.. ..2.. . warni|
00009ac0 6e 67 25 0d 33 04 0c 20 c8 8e 20 69 25 20 ca 0d |ng%.3.. .. i% ..|
00009ad0 33 0e 2d 20 20 c9 20 34 2c 35 20 3a 20 c8 99 20 |3.- . 4,5 : .. |
00009ae0 22 58 49 6e 74 65 72 66 61 63 65 5f 53 65 6e 64 |"XInterface_Send|
00009af0 48 65 6c 70 22 2c 2c 71 25 3a 3d 30 0d 33 18 7e |Help",,q%:=0.3.~|
00009b00 20 20 7f 20 3a 20 24 68 25 3d 22 54 68 69 73 20 | . : $h%="This |
00009b10 69 73 20 74 68 65 20 27 57 61 72 6e 69 6e 67 27 |is the 'Warning'|
00009b20 20 77 69 6e 64 6f 77 2e 7c 4d 49 74 20 69 6e 64 | window.|MIt ind|
00009b30 69 63 61 74 65 73 20 74 68 61 74 20 79 6f 75 20 |icates that you |
00009b40 61 6c 72 65 61 64 79 20 68 61 76 65 20 73 6f 6d |already have som|
00009b50 65 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 64 61 |e application da|
00009b60 74 61 20 73 61 76 65 64 20 69 6e 74 6f 20 21 53 |ta saved into !S|
00009b70 74 69 63 6b 79 42 72 64 2e 22 0d 33 22 06 20 cb |tickyBrd.".3". .|
00009b80 0d 33 2c 0e 20 c9 20 6c 6f 61 64 65 64 25 0d 33 |.3,. . loaded%.3|
00009b90 36 0c 20 c8 8e 20 69 25 20 ca 0d 33 40 2d 20 20 |6. .. i% ..3@- |
00009ba0 c9 20 35 2c 36 20 3a 20 c8 99 20 22 58 49 6e 74 |. 5,6 : .. "XInt|
00009bb0 65 72 66 61 63 65 5f 53 65 6e 64 48 65 6c 70 22 |erface_SendHelp"|
00009bc0 2c 2c 71 25 3a 3d 30 0d 33 4a 79 20 20 7f 20 3a |,,q%:=0.3Jy . :|
00009bd0 20 24 68 25 3d 22 54 68 69 73 20 69 73 20 74 68 | $h%="This is th|
00009be0 65 20 27 4c 6f 61 64 65 64 27 20 77 69 6e 64 6f |e 'Loaded' windo|
00009bf0 77 2e 7c 4d 49 74 20 73 68 6f 77 73 20 74 68 61 |w.|MIt shows tha|
00009c00 74 20 21 53 74 69 63 6b 79 42 72 64 20 69 73 20 |t !StickyBrd is |
00009c10 6c 6f 61 64 65 64 2c 20 61 6e 64 20 64 69 73 70 |loaded, and disp|
00009c20 6c 61 79 73 20 74 68 65 20 63 6f 70 79 72 69 67 |lays the copyrig|
00009c30 68 74 20 28 a9 29 20 6d 65 73 73 61 67 65 2e 22 |ht (.) message."|
00009c40 0d 33 54 06 20 cb 0d 33 5e 24 20 c8 99 20 22 58 |.3T. ..3^$ .. "X|
00009c50 49 6e 74 65 72 66 61 63 65 5f 53 65 6e 64 48 65 |Interface_SendHe|
00009c60 6c 70 22 2c 2c 71 25 3a 3d 30 0d 33 68 0d 20 c9 |lp",,q%:=0.3h. .|
00009c70 20 6d 61 69 6e 31 25 0d 33 72 8a 20 24 68 25 3d | main1%.3r. $h%=|
00009c80 22 54 68 69 73 20 69 73 20 74 68 65 20 64 65 73 |"This is the des|
00009c90 6b 74 6f 70 20 62 61 63 6b 64 72 6f 70 2e 7c 4d |ktop backdrop.|M|
00009ca0 54 68 65 20 27 72 65 61 6c 27 20 62 61 63 6b 64 |The 'real' backd|
00009cb0 72 6f 70 20 69 73 20 63 75 72 72 65 6e 74 6c 79 |rop is currently|
00009cc0 20 27 68 69 64 64 65 6e 27 2e 7c 4d 53 65 6c 65 | 'hidden'.|MSele|
00009cd0 63 74 20 27 52 65 73 74 6f 72 65 27 20 66 72 6f |ct 'Restore' fro|
00009ce0 6d 20 74 68 65 20 27 4f 70 74 69 6f 6e 73 27 20 |m the 'Options' |
00009cf0 6d 65 6e 75 20 74 6f 20 76 69 65 77 20 69 74 2e |menu to view it.|
00009d00 22 0d 33 7c 0d 20 c9 20 61 62 61 63 6b 25 0d 33 |".3|. . aback%.3|
00009d10 86 c6 20 24 68 25 3d 22 54 68 69 73 20 77 69 6e |.. $h%="This win|
00009d20 64 6f 77 20 67 69 76 65 73 20 69 6e 66 6f 72 6d |dow gives inform|
00009d30 61 74 69 6f 6e 20 6f 6e 20 74 68 65 20 63 75 72 |ation on the cur|
00009d40 72 65 6e 74 20 62 61 63 6b 64 72 6f 70 2e 7c 4d |rent backdrop.|M|
00009d50 49 74 20 73 68 6f 77 73 20 74 68 65 20 73 70 72 |It shows the spr|
00009d60 69 74 65 20 66 69 6c 65 2c 20 73 70 72 69 74 65 |ite file, sprite|
00009d70 20 6e 61 6d 65 2c 20 64 65 74 65 72 6d 69 6e 65 | name, determine|
00009d80 73 20 77 68 65 74 68 65 72 20 69 74 20 68 61 73 |s whether it has|
00009d90 20 61 20 70 61 6c 65 74 74 65 2c 20 61 6e 64 20 | a palette, and |
00009da0 74 65 6c 6c 73 20 79 6f 75 20 77 68 65 74 68 65 |tells you whethe|
00009db0 72 20 74 68 65 20 62 61 63 6b 64 72 6f 70 20 69 |r the backdrop i|
00009dc0 73 20 74 69 6c 65 64 20 6f 72 20 63 65 6e 74 72 |s tiled or centr|
00009dd0 65 64 2e 22 0d 33 90 0c 20 c9 20 63 73 65 74 25 |ed.".3.. . cset%|
00009de0 0d 33 9a 0c 20 c8 8e 20 69 25 20 ca 0d 33 a4 2f |.3.. .. i% ..3./|
00009df0 20 20 c9 20 32 2c 33 2c 38 20 3a 20 c8 99 20 22 | . 2,3,8 : .. "|
00009e00 58 49 6e 74 65 72 66 61 63 65 5f 53 65 6e 64 48 |XInterface_SendH|
00009e10 65 6c 70 22 2c 2c 71 25 3a 3d 30 0d 33 ae 50 20 |elp",,q%:=0.3.P |
00009e20 20 c9 20 34 20 3a 20 24 68 25 3d 22 54 68 69 73 | . 4 : $h%="This|
00009e30 20 69 73 20 74 68 65 20 27 55 70 27 20 69 63 6f | is the 'Up' ico|
00009e40 6e 2e 7c 4d 43 6c 69 63 6b 20 69 74 20 74 6f 20 |n.|MClick it to |
00009e50 69 6e 63 72 65 61 73 65 20 74 68 65 20 68 6f 75 |increase the hou|
00009e60 72 73 20 62 79 20 6f 6e 65 2e 22 0d 33 b8 52 20 |rs by one.".3.R |
00009e70 20 c9 20 35 20 3a 20 24 68 25 3d 22 54 68 69 73 | . 5 : $h%="This|
00009e80 20 69 73 20 74 68 65 20 27 44 6f 77 6e 27 20 69 | is the 'Down' i|
00009e90 63 6f 6e 2e 7c 4d 43 6c 69 63 6b 20 69 74 20 74 |con.|MClick it t|
00009ea0 6f 20 64 65 63 72 65 61 73 65 20 74 68 65 20 68 |o decrease the h|
00009eb0 6f 75 72 73 20 62 79 20 6f 6e 65 2e 22 0d 33 c2 |ours by one.".3.|
00009ec0 52 20 20 c9 20 36 20 3a 20 24 68 25 3d 22 54 68 |R . 6 : $h%="Th|
00009ed0 69 73 20 69 73 20 74 68 65 20 27 55 70 27 20 69 |is is the 'Up' i|
00009ee0 63 6f 6e 2e 7c 4d 43 6c 69 63 6b 20 69 74 20 74 |con.|MClick it t|
00009ef0 6f 20 69 6e 63 72 65 61 73 65 20 74 68 65 20 6d |o increase the m|
00009f00 69 6e 75 74 65 73 20 62 79 20 6f 6e 65 2e 22 0d |inutes by one.".|
00009f10 33 cc 54 20 20 c9 20 37 20 3a 20 24 68 25 3d 22 |3.T . 7 : $h%="|
00009f20 54 68 69 73 20 69 73 20 74 68 65 20 27 44 6f 77 |This is the 'Dow|
00009f30 6e 27 20 69 63 6f 6e 2e 7c 4d 43 6c 69 63 6b 20 |n' icon.|MClick |
00009f40 69 74 20 74 6f 20 64 65 63 72 65 61 73 65 20 74 |it to decrease t|
00009f50 68 65 20 6d 69 6e 75 74 65 73 20 62 79 20 6f 6e |he minutes by on|
00009f60 65 2e 22 0d 33 d6 4f 20 20 7f 20 3a 20 24 68 25 |e.".3.O . : $h%|
00009f70 3d 22 54 68 69 73 20 69 73 20 74 68 65 20 27 53 |="This is the 'S|
00009f80 65 74 20 74 69 6d 65 27 20 77 69 6e 64 6f 77 2e |et time' window.|
00009f90 7c 4d 55 73 65 20 69 74 20 74 6f 20 73 65 74 20 ||MUse it to set |
00009fa0 74 68 65 20 63 75 72 72 65 6e 74 20 74 69 6d 65 |the current time|
00009fb0 2e 22 0d 33 e0 06 20 cb 0d 33 ea 06 20 7f 0d 33 |.".3.. ..3.. ..3|
00009fc0 f4 1a 20 24 68 25 3d a4 6d 6f 64 6c 5f 68 65 6c |.. $h%=.modl_hel|
00009fd0 70 28 77 25 2c 69 25 29 0d 33 fe 05 cb 0d 34 08 |p(w%,i%).3....4.|
00009fe0 0e 3d 68 25 2b a9 28 24 68 25 29 0d 34 12 04 0d |.=h%+.($h%).4...|
00009ff0 34 1c 15 dd 20 a4 66 69 6e 64 74 79 70 65 28 74 |4... .findtype(t|
0000a000 79 70 65 29 0d 34 26 0d c8 8e 20 74 79 70 65 20 |ype).4&... type |
0000a010 ca 0d 34 30 21 20 c9 20 30 20 3a 20 3d 22 72 75 |..40! . 0 : ="ru|
0000a020 6e 20 74 68 65 20 61 70 70 6c 69 63 61 74 69 6f |n the applicatio|
0000a030 6e 22 0d 34 3a 20 20 c9 20 31 20 3a 20 3d 22 6f |n".4: . 1 : ="o|
0000a040 70 65 6e 20 74 68 65 20 64 69 72 65 63 74 6f 72 |pen the director|
0000a050 79 22 0d 34 44 1e 20 c9 20 32 20 3a 20 3d 22 65 |y".4D. . 2 : ="e|
0000a060 78 65 63 75 74 65 20 74 68 65 20 66 69 6c 65 22 |xecute the file"|
0000a070 0d 34 4e 1d 20 c9 20 33 20 3a 20 3d 22 6f 70 65 |.4N. . 3 : ="ope|
0000a080 6e 20 74 68 65 20 77 69 6e 64 6f 77 22 0d 34 58 |n the window".4X|
0000a090 21 20 c9 20 34 20 3a 20 3d 22 65 78 65 63 75 74 |! . 4 : ="execut|
0000a0a0 65 20 74 68 65 20 63 6f 6d 6d 61 6e 64 22 0d 34 |e the command".4|
0000a0b0 62 05 cb 0d 34 6c 1b 3d 22 70 65 72 66 6f 72 6d |b...4l.="perform|
0000a0c0 20 61 6e 20 6f 70 65 72 61 74 69 6f 6e 22 0d 34 | an operation".4|
0000a0d0 76 04 0d 34 80 13 dd 20 f2 73 65 74 63 6c 65 61 |v..4... .setclea|
0000a0e0 72 6d 65 6e 75 0d 34 8a 16 24 6f 62 6a 65 63 74 |rmenu.4..$object|
0000a0f0 25 3d 22 46 69 6c 65 20 27 27 22 0d 34 94 28 e7 |%="File ''".4.(.|
0000a100 20 a4 61 73 28 6d 65 6e 75 25 2c 31 29 3d 30 20 | .as(menu%,1)=0 |
0000a110 f2 67 72 65 79 5f 6d 65 6e 75 28 6d 65 6e 75 25 |.grey_menu(menu%|
0000a120 2c 31 29 0d 34 9e 30 e7 20 a4 61 73 28 6d 65 6e |,1).4.0. .as(men|
0000a130 75 25 2b 34 30 30 2c 31 29 3d 30 20 f2 67 72 65 |u%+400,1)=0 .gre|
0000a140 79 5f 6d 65 6e 75 28 6d 65 6e 75 25 2b 34 30 30 |y_menu(menu%+400|
0000a150 2c 31 29 0d 34 a8 05 e1 0d 34 b2 04 0d 34 bc 10 |,1).4....4...4..|
0000a160 dd 20 a4 61 73 28 62 25 2c 6e 25 29 0d 34 c6 2b |. .as(b%,n%).4.+|
0000a170 3d 2d 28 28 62 25 21 28 32 38 2b 38 2b 32 34 2a |=-((b%!(28+8+24*|
0000a180 6e 25 29 20 80 20 26 34 30 30 30 30 30 29 3d 26 |n%) . &400000)=&|
0000a190 34 30 30 30 30 30 29 0d 34 d0 04 0d 34 da 17 dd |400000).4...4...|
0000a1a0 20 f2 67 72 65 79 5f 6d 65 6e 75 28 62 25 2c 6e | .grey_menu(b%,n|
0000a1b0 25 29 0d 34 e4 2b 62 25 21 28 32 38 2b 38 2b 32 |%).4.+b%!(28+8+2|
0000a1c0 34 2a 6e 25 29 3d 62 25 21 28 32 38 2b 38 2b 32 |4*n%)=b%!(28+8+2|
0000a1d0 34 2a 6e 25 29 82 26 34 30 30 30 30 30 0d 34 ee |4*n%).&400000.4.|
0000a1e0 05 e1 0d 34 f8 04 0d 35 02 16 dd 20 f2 75 70 64 |...4...5... .upd|
0000a1f0 61 74 65 5f 62 61 63 6b 64 72 6f 70 0d 35 0c 14 |ate_backdrop.5..|
0000a200 70 6f 69 6e 74 65 72 25 21 30 3d 6d 61 69 6e 25 |pointer%!0=main%|
0000a210 0d 35 16 28 c8 99 20 22 57 69 6d 70 5f 47 65 74 |.5.(.. "Wimp_Get|
0000a220 57 69 6e 64 6f 77 4f 75 74 6c 69 6e 65 22 2c 2c |WindowOutline",,|
0000a230 70 6f 69 6e 74 65 72 25 0d 35 20 51 c8 99 20 22 |pointer%.5 Q.. "|
0000a240 57 69 6d 70 5f 46 6f 72 63 65 52 65 64 72 61 77 |Wimp_ForceRedraw|
0000a250 22 2c 6d 61 69 6e 25 2c 70 6f 69 6e 74 65 72 25 |",main%,pointer%|
0000a260 21 34 2c 70 6f 69 6e 74 65 72 25 21 31 36 2d 34 |!4,pointer%!16-4|
0000a270 34 2c 70 6f 69 6e 74 65 72 25 21 31 32 2c 70 6f |4,pointer%!12,po|
0000a280 69 6e 74 65 72 25 21 31 36 0d 35 2a 05 e1 0d 35 |inter%!16.5*...5|
0000a290 34 04 0d 35 3e 1c dd 20 f2 62 72 69 6e 67 5f 74 |4..5>.. .bring_t|
0000a2a0 6f 5f 74 6f 70 28 68 61 6e 64 6c 65 25 29 0d 35 |o_top(handle%).5|
0000a2b0 48 16 70 6f 69 6e 74 65 72 25 21 30 3d 68 61 6e |H.pointer%!0=han|
0000a2c0 64 6c 65 25 0d 35 52 26 c8 99 20 22 58 57 69 6d |dle%.5R&.. "XWim|
0000a2d0 70 5f 47 65 74 57 69 6e 64 6f 77 49 6e 66 6f 22 |p_GetWindowInfo"|
0000a2e0 2c 2c 70 6f 69 6e 74 65 72 25 0d 35 5c 12 70 6f |,,pointer%.5\.po|
0000a2f0 69 6e 74 65 72 25 21 32 38 3d 2d 32 0d 35 66 23 |inter%!28=-2.5f#|
0000a300 c8 99 20 22 58 57 69 6d 70 5f 4f 70 65 6e 57 69 |.. "XWimp_OpenWi|
0000a310 6e 64 6f 77 22 2c 2c 70 6f 69 6e 74 65 72 25 0d |ndow",,pointer%.|
0000a320 35 70 05 e1 0d 35 7a 04 0d 35 84 27 dd 20 f2 73 |5p...5z..5.'. .s|
0000a330 65 74 5f 63 6c 6f 63 6b 5f 66 6c 61 67 73 28 65 |et_clock_flags(e|
0000a340 2c 72 2c 62 2c 74 77 65 2c 74 77 66 2c 68 29 0d |,r,b,twe,twf,h).|
0000a350 35 8e 3b 65 6d 62 6f 73 73 3d 65 3a 72 65 63 65 |5.;emboss=e:rece|
0000a360 73 73 3d 72 3a 74 77 65 6c 76 65 3d 74 77 65 3a |ss=r:twelve=twe:|
0000a370 74 77 66 6f 75 72 3d 74 77 66 3a 62 6f 72 64 65 |twfour=twf:borde|
0000a380 72 3d 62 3a 68 6f 75 72 3d 68 0d 35 98 05 e1 0d |r=b:hour=h.5....|
0000a390 35 a2 04 0d 35 ac 12 dd 20 f2 73 65 74 75 70 5f |5...5... .setup_|
0000a3a0 73 63 6c 63 6b 0d 35 b6 23 f2 70 75 74 69 63 6f |sclck.5.#.putico|
0000a3b0 6e 64 61 74 61 28 63 73 65 74 25 2c 32 2c c1 91 |ndata(cset%,2,..|
0000a3c0 24 2c 31 37 2c 32 29 29 0d 35 c0 23 f2 70 75 74 |$,17,2)).5.#.put|
0000a3d0 69 63 6f 6e 64 61 74 61 28 63 73 65 74 25 2c 33 |icondata(cset%,3|
0000a3e0 2c c1 91 24 2c 32 30 2c 32 29 29 0d 35 ca 05 e1 |,..$,20,2)).5...|
0000a3f0 0d 35 d4 04 0d 35 de 15 dd 20 f2 61 64 64 68 28 |.5...5... .addh(|
0000a400 61 64 64 69 63 6f 6e 25 29 0d 35 e8 2b 63 75 72 |addicon%).5.+cur|
0000a410 72 65 6e 74 3d bb 28 a4 67 65 74 69 63 6f 6e 64 |rent=.(.geticond|
0000a420 61 74 61 28 63 73 65 74 25 2c 61 64 64 69 63 6f |ata(cset%,addico|
0000a430 6e 25 29 29 0d 35 f2 0e 63 75 72 72 65 6e 74 2b |n%)).5..current+|
0000a440 3d 31 0d 35 fc 1a e7 20 63 75 72 72 65 6e 74 3e |=1.5... current>|
0000a450 32 34 20 63 75 72 72 65 6e 74 3d 30 0d 36 06 1a |24 current=0.6..|
0000a460 e7 20 63 75 72 72 65 6e 74 3c 30 20 63 75 72 72 |. current<0 curr|
0000a470 65 6e 74 3d 32 34 0d 36 10 39 63 75 72 72 65 6e |ent=24.6.9curren|
0000a480 74 24 3d c3 63 75 72 72 65 6e 74 3a e7 20 a9 63 |t$=.current:. .c|
0000a490 75 72 72 65 6e 74 24 3d 31 20 63 75 72 72 65 6e |urrent$=1 curren|
0000a4a0 74 24 3d 22 30 22 2b 63 75 72 72 65 6e 74 24 0d |t$="0"+current$.|
0000a4b0 36 1a 29 f2 70 75 74 69 63 6f 6e 64 61 74 61 28 |6.).puticondata(|
0000a4c0 63 73 65 74 25 2c 61 64 64 69 63 6f 6e 25 2c 63 |cset%,addicon%,c|
0000a4d0 75 72 72 65 6e 74 24 29 0d 36 24 05 e1 0d 36 2e |urrent$).6$...6.|
0000a4e0 04 0d 36 38 15 dd 20 f2 73 75 62 68 28 73 75 62 |..68.. .subh(sub|
0000a4f0 69 63 6f 6e 25 29 0d 36 42 2b 63 75 72 72 65 6e |icon%).6B+curren|
0000a500 74 3d bb 28 a4 67 65 74 69 63 6f 6e 64 61 74 61 |t=.(.geticondata|
0000a510 28 63 73 65 74 25 2c 73 75 62 69 63 6f 6e 25 29 |(cset%,subicon%)|
0000a520 29 0d 36 4c 0e 63 75 72 72 65 6e 74 2d 3d 31 0d |).6L.current-=1.|
0000a530 36 56 1a e7 20 63 75 72 72 65 6e 74 3e 32 34 20 |6V.. current>24 |
0000a540 63 75 72 72 65 6e 74 3d 30 0d 36 60 1a e7 20 63 |current=0.6`.. c|
0000a550 75 72 72 65 6e 74 3c 30 20 63 75 72 72 65 6e 74 |urrent<0 current|
0000a560 3d 32 34 0d 36 6a 39 63 75 72 72 65 6e 74 24 3d |=24.6j9current$=|
0000a570 c3 63 75 72 72 65 6e 74 3a e7 20 a9 63 75 72 72 |.current:. .curr|
0000a580 65 6e 74 24 3d 31 20 63 75 72 72 65 6e 74 24 3d |ent$=1 current$=|
0000a590 22 30 22 2b 63 75 72 72 65 6e 74 24 0d 36 74 29 |"0"+current$.6t)|
0000a5a0 f2 70 75 74 69 63 6f 6e 64 61 74 61 28 63 73 65 |.puticondata(cse|
0000a5b0 74 25 2c 73 75 62 69 63 6f 6e 25 2c 63 75 72 72 |t%,subicon%,curr|
0000a5c0 65 6e 74 24 29 0d 36 7e 05 e1 0d 36 88 04 0d 36 |ent$).6~...6...6|
0000a5d0 92 15 dd 20 f2 61 64 64 6d 28 61 64 64 69 63 6f |... .addm(addico|
0000a5e0 6e 25 29 0d 36 9c 2b 63 75 72 72 65 6e 74 3d bb |n%).6.+current=.|
0000a5f0 28 a4 67 65 74 69 63 6f 6e 64 61 74 61 28 63 73 |(.geticondata(cs|
0000a600 65 74 25 2c 61 64 64 69 63 6f 6e 25 29 29 0d 36 |et%,addicon%)).6|
0000a610 a6 0e 63 75 72 72 65 6e 74 2b 3d 31 0d 36 b0 1a |..current+=1.6..|
0000a620 e7 20 63 75 72 72 65 6e 74 3e 36 30 20 63 75 72 |. current>60 cur|
0000a630 72 65 6e 74 3d 30 0d 36 ba 1a e7 20 63 75 72 72 |rent=0.6... curr|
0000a640 65 6e 74 3c 30 20 63 75 72 72 65 6e 74 3d 36 30 |ent<0 current=60|
0000a650 0d 36 c4 39 63 75 72 72 65 6e 74 24 3d c3 63 75 |.6.9current$=.cu|
0000a660 72 72 65 6e 74 3a e7 20 a9 63 75 72 72 65 6e 74 |rrent:. .current|
0000a670 24 3d 31 20 63 75 72 72 65 6e 74 24 3d 22 30 22 |$=1 current$="0"|
0000a680 2b 63 75 72 72 65 6e 74 24 0d 36 ce 29 f2 70 75 |+current$.6.).pu|
0000a690 74 69 63 6f 6e 64 61 74 61 28 63 73 65 74 25 2c |ticondata(cset%,|
0000a6a0 61 64 64 69 63 6f 6e 25 2c 63 75 72 72 65 6e 74 |addicon%,current|
0000a6b0 24 29 0d 36 d8 05 e1 0d 36 e2 04 0d 36 ec 15 dd |$).6....6...6...|
0000a6c0 20 f2 73 75 62 6d 28 73 75 62 69 63 6f 6e 25 29 | .subm(subicon%)|
0000a6d0 0d 36 f6 2b 63 75 72 72 65 6e 74 3d bb 28 a4 67 |.6.+current=.(.g|
0000a6e0 65 74 69 63 6f 6e 64 61 74 61 28 63 73 65 74 25 |eticondata(cset%|
0000a6f0 2c 73 75 62 69 63 6f 6e 25 29 29 0d 37 00 0e 63 |,subicon%)).7..c|
0000a700 75 72 72 65 6e 74 2d 3d 31 0d 37 0a 1a e7 20 63 |urrent-=1.7... c|
0000a710 75 72 72 65 6e 74 3e 36 30 20 63 75 72 72 65 6e |urrent>60 curren|
0000a720 74 3d 30 0d 37 14 1a e7 20 63 75 72 72 65 6e 74 |t=0.7... current|
0000a730 3c 30 20 63 75 72 72 65 6e 74 3d 36 30 0d 37 1e |<0 current=60.7.|
0000a740 39 63 75 72 72 65 6e 74 24 3d c3 63 75 72 72 65 |9current$=.curre|
0000a750 6e 74 3a e7 20 a9 63 75 72 72 65 6e 74 24 3d 31 |nt:. .current$=1|
0000a760 20 63 75 72 72 65 6e 74 24 3d 22 30 22 2b 63 75 | current$="0"+cu|
0000a770 72 72 65 6e 74 24 0d 37 28 29 f2 70 75 74 69 63 |rrent$.7().putic|
0000a780 6f 6e 64 61 74 61 28 63 73 65 74 25 2c 73 75 62 |ondata(cset%,sub|
0000a790 69 63 6f 6e 25 2c 63 75 72 72 65 6e 74 24 29 0d |icon%,current$).|
0000a7a0 37 32 05 e1 0d 37 3c 04 0d 37 46 1d dd 20 f2 73 |72...7<..7F.. .s|
0000a7b0 65 74 74 69 6d 65 28 68 6f 75 72 24 2c 6d 69 6e |ettime(hour$,min|
0000a7c0 75 74 65 24 29 0d 37 50 0c 74 69 6d 65 24 3d 22 |ute$).7P.time$="|
0000a7d0 22 0d 37 5a 2c 74 69 6d 65 24 3d c0 91 24 2c 31 |".7Z,time$=..$,1|
0000a7e0 36 29 2b 68 6f 75 72 24 2b 22 3a 22 2b 6d 69 6e |6)+hour$+":"+min|
0000a7f0 75 74 65 24 2b 22 3a 22 2b 22 30 30 22 0d 37 64 |ute$+":"+"00".7d|
0000a800 19 d1 24 3d 74 69 6d 65 24 3a f2 73 68 75 74 28 |..$=time$:.shut(|
0000a810 63 73 65 74 25 29 0d 37 6e 05 e1 0d 37 78 04 0d |cset%).7n...7x..|
0000a820 37 82 09 dd 20 f2 72 73 0d 37 8c 15 70 6f 69 6e |7... .rs.7..poin|
0000a830 74 65 72 25 21 30 3d 63 6c 6f 63 6b 25 0d 37 96 |ter%!0=clock%.7.|
0000a840 10 70 6f 69 6e 74 65 72 25 21 34 3d 30 0d 37 a0 |.pointer%!4=0.7.|
0000a850 25 c8 99 20 22 58 57 69 6d 70 5f 47 65 74 49 63 |%.. "XWimp_GetIc|
0000a860 6f 6e 53 74 61 74 65 22 2c 2c 70 6f 69 6e 74 65 |onState",,pointe|
0000a870 72 25 0d 37 aa 1e 70 6f 69 6e 74 65 72 25 21 38 |r%.7..pointer%!8|
0000a880 3d 30 3a 70 6f 69 6e 74 65 72 25 21 31 32 3d 30 |=0:pointer%!12=0|
0000a890 0d 37 b4 36 e7 20 65 6d 62 6f 73 73 20 24 28 70 |.7.6. emboss $(p|
0000a8a0 6f 69 6e 74 65 72 25 21 33 32 29 3d 22 7a 30 22 |ointer%!32)="z0"|
0000a8b0 3a 70 6f 69 6e 74 65 72 25 21 32 34 3d 26 31 37 |:pointer%!24=&17|
0000a8c0 30 30 30 31 33 39 0d 37 be 36 e7 20 72 65 63 65 |000139.7.6. rece|
0000a8d0 73 73 20 24 28 70 6f 69 6e 74 65 72 25 21 33 32 |ss $(pointer%!32|
0000a8e0 29 3d 22 7a 34 22 3a 70 6f 69 6e 74 65 72 25 21 |)="z4":pointer%!|
0000a8f0 32 34 3d 26 31 37 30 30 30 31 33 39 0d 37 c8 36 |24=&17000139.7.6|
0000a900 e7 20 62 6f 72 64 65 72 20 24 28 70 6f 69 6e 74 |. border $(point|
0000a910 65 72 25 21 33 32 29 3d 22 7a 31 22 3a 70 6f 69 |er%!32)="z1":poi|
0000a920 6e 74 65 72 25 21 32 34 3d 26 31 37 30 30 30 31 |nter%!24=&170001|
0000a930 33 39 0d 37 d2 25 c8 99 20 22 58 57 69 6d 70 5f |39.7.%.. "XWimp_|
0000a940 53 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 70 |SetIconState",,p|
0000a950 6f 69 6e 74 65 72 25 0d 37 dc 15 70 6f 69 6e 74 |ointer%.7..point|
0000a960 65 72 25 21 30 3d 63 6c 6f 63 6b 25 0d 37 e6 27 |er%!0=clock%.7.'|
0000a970 c8 99 20 22 58 57 69 6d 70 5f 47 65 74 57 69 6e |.. "XWimp_GetWin|
0000a980 64 6f 77 53 74 61 74 65 22 2c 2c 70 6f 69 6e 74 |dowState",,point|
0000a990 65 72 25 0d 37 f0 11 f2 73 68 75 74 28 63 6c 6f |er%.7...shut(clo|
0000a9a0 63 6b 25 29 0d 37 fa 12 70 6f 69 6e 74 65 72 25 |ck%).7..pointer%|
0000a9b0 21 32 38 3d 2d 32 0d 38 04 2a e7 20 63 6c 63 6b |!28=-2.8.*. clck|
0000a9c0 20 c8 99 20 22 58 57 69 6d 70 5f 4f 70 65 6e 57 | .. "XWimp_OpenW|
0000a9d0 69 6e 64 6f 77 22 2c 2c 70 6f 69 6e 74 65 72 25 |indow",,pointer%|
0000a9e0 0d 38 0e 05 e1 0d 38 18 04 0d 38 22 11 dd 20 a4 |.8....8...8".. .|
0000a9f0 66 72 61 63 74 28 76 61 6c 29 0d 38 2c 24 74 24 |fract(val).8,$t$|
0000aa00 3d c3 28 76 61 6c 20 81 20 31 30 30 29 2b 22 2e |=.(val . 100)+".|
0000aa10 22 2b c3 28 76 61 6c 20 83 20 31 30 30 29 0d 38 |"+.(val . 100).8|
0000aa20 36 13 e7 20 a9 74 24 3d 33 20 74 24 2b 3d 22 30 |6.. .t$=3 t$+="0|
0000aa30 22 0d 38 40 07 3d 74 24 0d 38 4a 04 0d 38 54 39 |".8@.=t$.8J..8T9|
0000aa40 dd 20 a4 6d 6f 64 6c 5f 69 6e 69 74 28 74 6e 61 |. .modl_init(tna|
0000aa50 6d 65 24 2c 74 70 75 72 70 24 2c 74 61 75 74 68 |me$,tpurp$,tauth|
0000aa60 24 2c 74 76 65 72 24 2c 70 76 65 72 2c 6d 65 6e |$,tver$,pver,men|
0000aa70 62 6c 6b 25 29 0d 38 5e 6f e7 20 6d 6f 64 6c 70 |blk%).8^o. modlp|
0000aa80 74 72 3d 32 30 20 f2 74 65 6c 6c 65 6d 6f 66 66 |tr=20 .tellemoff|
0000aa90 28 22 45 78 74 65 6e 74 69 6f 6e 20 6d 6f 64 75 |("Extention modu|
0000aaa0 6c 65 20 6c 6f 61 64 69 6e 67 20 65 72 72 6f 72 |le loading error|
0000aab0 3a 20 6c 69 6d 69 74 20 72 65 61 63 68 65 64 2c |: limit reached,|
0000aac0 20 6e 6f 20 6d 6f 72 65 20 6d 6f 64 75 6c 65 73 | no more modules|
0000aad0 20 77 69 6c 6c 20 62 65 20 6c 6f 61 64 65 64 2e | will be loaded.|
0000aae0 22 29 3a e1 0d 38 68 70 e7 20 70 76 65 72 3e 38 |"):..8hp. pver>8|
0000aaf0 30 20 f2 74 65 6c 6c 65 6d 6f 66 66 28 22 45 78 |0 .tellemoff("Ex|
0000ab00 74 65 6e 73 69 6f 6e 20 6d 6f 64 75 6c 65 20 22 |tension module "|
0000ab10 2b 74 6e 61 6d 65 24 2b 22 20 72 65 71 75 69 72 |+tname$+" requir|
0000ab20 65 73 20 21 53 74 69 63 6b 79 42 72 64 20 6d 61 |es !StickyBrd ma|
0000ab30 6e 61 67 65 72 20 22 2b a4 66 72 61 63 74 28 70 |nager "+.fract(p|
0000ab40 76 65 72 29 2b 22 20 6f 72 20 6c 61 74 65 72 2e |ver)+" or later.|
0000ab50 22 29 3a e1 0d 38 72 37 6d 6f 64 6c 24 28 6d 6f |"):..8r7modl$(mo|
0000ab60 64 6c 70 74 72 29 3d a4 6c 6f 77 65 72 28 74 6e |dlptr)=.lower(tn|
0000ab70 61 6d 65 24 29 3a 6d 6f 64 6c 28 6d 6f 64 6c 70 |ame$):modl(modlp|
0000ab80 74 72 29 3d 6d 65 6e 62 6c 6b 25 0d 38 7c 31 6d |tr)=menblk%.8|1m|
0000ab90 6f 64 6c 69 24 28 6d 6f 64 6c 70 74 72 29 3d 74 |odli$(modlptr)=t|
0000aba0 6e 61 6d 65 24 3a 6d 6f 64 6c 70 24 28 6d 6f 64 |name$:modlp$(mod|
0000abb0 6c 70 74 72 29 3d 74 70 75 72 70 24 0d 38 86 3b |lptr)=tpurp$.8.;|
0000abc0 6d 6f 64 6c 61 24 28 6d 6f 64 6c 70 74 72 29 3d |modla$(modlptr)=|
0000abd0 74 61 75 74 68 24 3a 6d 6f 64 6c 76 24 28 6d 6f |tauth$:modlv$(mo|
0000abe0 64 6c 70 74 72 29 3d 74 76 65 72 24 3a 6d 6f 64 |dlptr)=tver$:mod|
0000abf0 6c 70 74 72 2b 3d 31 0d 38 90 32 c8 99 20 22 58 |lptr+=1.8.2.. "X|
0000ac00 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f |Wimp_CreateWindo|
0000ac10 77 22 2c 2c 6d 6f 64 6c 69 6e 66 6f 25 20 b8 20 |w",,modlinfo% . |
0000ac20 74 61 73 6b 68 61 6e 64 25 0d 38 9a 20 6d 6f 64 |taskhand%.8. mod|
0000ac30 6c 69 6e 66 28 6d 6f 64 6c 70 74 72 2d 31 29 3d |linf(modlptr-1)=|
0000ac40 74 61 73 6b 68 61 6e 64 25 0d 38 a4 1e f2 61 64 |taskhand%.8...ad|
0000ac50 64 74 6f 6d 65 6e 75 28 74 6e 61 6d 65 24 2c 6d |dtomenu(tname$,m|
0000ac60 65 6e 62 6c 6b 25 29 0d 38 ae 20 6d 6f 64 6c 28 |enblk%).8. modl(|
0000ac70 6d 6f 64 6c 70 74 72 2d 31 29 21 33 32 3d 74 61 |modlptr-1)!32=ta|
0000ac80 73 6b 68 61 6e 64 25 0d 38 b8 0e 3d 74 61 73 6b |skhand%.8..=task|
0000ac90 68 61 6e 64 25 0d 38 c2 04 0d 38 cc 1a dd 20 f2 |hand%.8...8... .|
0000aca0 61 64 64 74 6f 6d 65 6e 75 28 74 6e 24 2c 6d 65 |addtomenu(tn$,me|
0000acb0 6e 25 29 0d 38 d6 28 e7 20 a4 61 73 28 6d 65 6e |n%).8.(. .as(men|
0000acc0 75 25 2c 36 29 3d 31 20 f2 67 72 65 79 5f 6d 65 |u%,6)=1 .grey_me|
0000acd0 6e 75 28 6d 65 6e 75 25 2c 36 29 0d 38 e0 13 6d |nu(menu%,6).8..m|
0000ace0 62 6c 6b 25 3d 6d 6f 64 6c 6d 65 6e 75 25 0d 38 |blk%=modlmenu%.8|
0000acf0 ea 12 66 6c 61 67 73 3d 26 37 30 30 30 30 32 31 |..flags=&7000021|
0000ad00 0d 38 f4 1f 6d 6c 65 6e 25 3d 30 3a e3 20 49 3d |.8..mlen%=0:. I=|
0000ad10 30 20 b8 20 28 6d 6f 64 6c 70 74 72 2d 31 29 0d |0 . (modlptr-1).|
0000ad20 38 fe 34 e7 20 a9 6d 6f 64 6c 24 28 49 29 3e 6d |8.4. .modl$(I)>m|
0000ad30 6c 65 6e 25 20 6d 6c 65 6e 25 3d 28 a9 6d 6f 64 |len% mlen%=(.mod|
0000ad40 6c 24 28 49 29 29 2b 31 3a ed 3a 6d 6c 65 6e 25 |l$(I))+1:.:mlen%|
0000ad50 2b 3d 31 0d 39 08 1c f2 68 65 61 64 65 72 28 22 |+=1.9...header("|
0000ad60 4d 6f 64 75 6c 65 73 22 2c 6d 6c 65 6e 25 29 0d |Modules",mlen%).|
0000ad70 39 12 17 e3 20 49 3d 30 20 b8 20 28 6d 6f 64 6c |9... I=0 . (modl|
0000ad80 70 74 72 2d 31 29 0d 39 1c 30 f2 65 6e 74 72 79 |ptr-1).9.0.entry|
0000ad90 28 26 30 30 2c 6d 6f 64 6c 28 49 29 2c 66 6c 61 |(&00,modl(I),fla|
0000ada0 67 73 2c a4 63 61 70 69 74 61 6c 28 6d 6f 64 6c |gs,.capital(modl|
0000adb0 24 28 49 29 29 29 0d 39 26 05 ed 0d 39 30 1d 6d |$(I))).9&...90.m|
0000adc0 62 6c 6b 25 21 2d 32 34 3d 6d 62 6c 6b 25 21 2d |blk%!-24=mblk%!-|
0000add0 32 34 20 84 20 26 38 30 0d 39 3a 05 e1 0d 39 44 |24 . &80.9:...9D|
0000ade0 04 0d 39 4e 15 dd 20 a4 62 64 5f 68 61 6e 64 3a |..9N.. .bd_hand:|
0000adf0 3d 6d 61 69 6e 25 0d 39 58 04 0d 39 62 11 dd 20 |=main%.9X..9b.. |
0000ae00 f2 6c 6f 61 64 5f 6d 6f 64 6c 73 0d 39 6c 26 68 |.load_modls.9l&h|
0000ae10 25 3d ad 28 22 3c 53 74 69 63 6b 79 42 72 64 45 |%=.("<StickyBrdE|
0000ae20 78 74 24 44 69 72 3e 2e 41 75 74 6f 52 75 6e 22 |xt$Dir>.AutoRun"|
0000ae30 29 0d 39 76 05 f5 0d 39 80 0e 62 75 66 66 24 3d |).9v...9..buff$=|
0000ae40 be 23 68 25 0d 39 8a 16 e7 20 c0 62 75 66 66 24 |.#h%.9... .buff$|
0000ae50 2c 31 29 3c 3e 22 7c 22 20 8c 0d 39 94 1a 20 e7 |,1)<>"|" ..9.. .|
0000ae60 20 c0 62 75 66 66 24 2c 35 29 3d 22 7b 72 75 6e | .buff$,5)="{run|
0000ae70 7d 22 20 8c 0d 39 9e 19 20 20 62 75 66 66 24 3d |}" ..9.. buff$=|
0000ae80 a4 73 74 72 69 70 28 62 75 66 66 24 29 0d 39 a8 |.strip(buff$).9.|
0000ae90 17 20 20 f2 6c 6f 61 64 5f 6d 6f 64 6c 28 62 75 |. .load_modl(bu|
0000aea0 66 66 24 29 0d 39 b2 06 20 cd 0d 39 bc 05 cd 0d |ff$).9.. ..9....|
0000aeb0 39 c6 13 fd 20 62 75 66 66 24 3d 22 7b 65 6e 64 |9... buff$="{end|
0000aec0 7d 22 0d 39 d0 08 d9 23 68 25 0d 39 da 05 e1 0d |}".9...#h%.9....|
0000aed0 39 e4 04 0d 39 ee 17 dd 20 f2 6c 6f 61 64 5f 6d |9...9... .load_m|
0000aee0 6f 64 6c 28 66 69 6c 65 24 29 0d 39 f8 2c c8 9b |odl(file$).9.,..|
0000aef0 20 22 3c 53 74 69 63 6b 79 42 72 64 45 78 74 24 | "<StickyBrdExt$|
0000af00 44 69 72 3e 2e 22 2b 62 75 66 66 24 2b 22 2e 4d |Dir>."+buff$+".M|
0000af10 6f 64 75 6c 65 22 0d 3a 02 1c 74 25 3d a0 28 22 |odule".:..t%=.("|
0000af20 46 4e 22 2b 62 75 66 66 24 2b 22 5f 69 6e 69 74 |FN"+buff$+"_init|
0000af30 22 29 0d 3a 0c 05 e1 0d 3a 16 04 0d 3a 20 10 dd |").:....:...: ..|
0000af40 20 a4 73 74 72 69 70 28 73 24 29 0d 3a 2a 13 73 | .strip(s$).:*.s|
0000af50 24 3d c2 73 24 2c 28 a9 73 24 29 2d 36 29 0d 3a |$=.s$,(.s$)-6).:|
0000af60 34 13 73 24 3d c0 73 24 2c 28 a9 73 24 29 2d 31 |4.s$=.s$,(.s$)-1|
0000af70 29 0d 3a 3e 07 3d 73 24 0d 3a 48 04 0d 3a 52 10 |).:>.=s$.:H..:R.|
0000af80 dd 20 f2 70 61 73 73 5f 6e 75 6c 6c 0d 3a 5c 11 |. .pass_null.:\.|
0000af90 e7 20 6d 6f 64 6c 70 74 72 3d 30 20 e1 0d 3a 66 |. modlptr=0 ..:f|
0000afa0 17 e3 20 4b 3d 30 20 b8 20 28 6d 6f 64 6c 70 74 |.. K=0 . (modlpt|
0000afb0 72 2d 31 29 0d 3a 70 26 74 25 3d a0 28 22 46 4e |r-1).:p&t%=.("FN|
0000afc0 22 2b 6d 6f 64 6c 24 28 4b 29 2b 22 5f 65 76 65 |"+modl$(K)+"_eve|
0000afd0 6e 74 28 30 2c 71 25 29 22 29 0d 3a 7a 07 ed 20 |nt(0,q%)").:z.. |
0000afe0 4b 0d 3a 84 05 e1 0d 3a 8e 04 0d 3a 98 13 dd 20 |K.:....:...:... |
0000aff0 a4 6c 6f 77 65 72 28 74 65 78 74 24 29 0d 3a a2 |.lower(text$).:.|
0000b000 59 24 70 6f 69 6e 74 65 72 25 3d 74 65 78 74 24 |Y$pointer%=text$|
0000b010 3a 70 74 72 25 3d 30 3a f5 20 70 74 72 25 3f 70 |:ptr%=0:. ptr%?p|
0000b020 6f 69 6e 74 65 72 25 3d 70 74 72 25 3f 70 6f 69 |ointer%=ptr%?poi|
0000b030 6e 74 65 72 25 20 84 20 26 32 30 3a 70 74 72 25 |nter% . &20:ptr%|
0000b040 2b 3d 31 3a fd 20 70 74 72 25 3f 70 6f 69 6e 74 |+=1:. ptr%?point|
0000b050 65 72 25 3c 33 33 0d 3a ac 0e 3d 24 70 6f 69 6e |er%<33.:..=$poin|
0000b060 74 65 72 25 0d 3a b6 04 0d 3a c0 14 dd 20 f2 6d |ter%.:...:... .m|
0000b070 6f 64 6c 5f 73 65 6e 64 6d 65 6e 75 0d 3a ca 1d |odl_sendmenu.:..|
0000b080 6d 6f 64 6c 66 6c 61 67 3d 71 25 21 34 3a e7 20 |modlflag=q%!4:. |
0000b090 71 25 21 38 3d 2d 31 20 e1 0d 3a d4 42 73 74 61 |q%!8=-1 ..:.Bsta|
0000b0a0 72 74 3d 34 3a f5 20 71 25 21 28 73 74 61 72 74 |rt=4:. q%!(start|
0000b0b0 2d 34 29 3d 71 25 21 28 73 74 61 72 74 2b 34 29 |-4)=q%!(start+4)|
0000b0c0 3a 73 74 61 72 74 2b 3d 34 3a fd 20 71 25 21 28 |:start+=4:. q%!(|
0000b0d0 73 74 61 72 74 2d 34 29 3d 2d 31 0d 3a de 2d 74 |start-4)=-1.:.-t|
0000b0e0 25 3d a0 28 22 46 4e 22 2b 6d 6f 64 6c 24 28 6d |%=.("FN"+modl$(m|
0000b0f0 6f 64 6c 66 6c 61 67 29 2b 22 5f 65 76 65 6e 74 |odlflag)+"_event|
0000b100 28 31 2c 71 25 29 22 29 0d 3a e8 05 e1 0d 3a f2 |(1,q%)").:....:.|
0000b110 04 0d 3a fc 10 dd 20 f2 6d 6f 64 6c 5f 71 75 69 |..:... .modl_qui|
0000b120 74 0d 3b 06 17 e3 20 4b 3d 30 20 b8 20 28 6d 6f |t.;... K=0 . (mo|
0000b130 64 6c 70 74 72 2d 31 29 0d 3b 10 27 74 25 3d a0 |dlptr-1).;.'t%=.|
0000b140 28 22 46 4e 22 2b 6d 6f 64 6c 24 28 4b 29 2b 22 |("FN"+modl$(K)+"|
0000b150 5f 65 76 65 6e 74 28 31 33 2c 71 25 29 22 29 0d |_event(13,q%)").|
0000b160 3b 1a 07 ed 20 4b 0d 3b 24 05 e1 0d 3b 2e 04 0d |;... K.;$...;...|
0000b170 3b 38 17 dd 20 a4 6d 6f 64 6c 5f 68 65 6c 70 28 |;8.. .modl_help(|
0000b180 77 25 2c 69 25 29 0d 3b 42 0c 74 65 78 74 24 3d |w%,i%).;B.text$=|
0000b190 22 22 0d 3b 4c 1f 70 6f 69 6e 74 65 72 25 21 30 |"".;L.pointer%!0|
0000b1a0 3d 77 25 3a 70 6f 69 6e 74 65 72 25 21 34 3d 69 |=w%:pointer%!4=i|
0000b1b0 25 0d 3b 56 17 e3 20 4b 3d 30 20 b8 20 28 6d 6f |%.;V.. K=0 . (mo|
0000b1c0 64 6c 70 74 72 2d 31 29 0d 3b 60 2c 74 25 3d a0 |dlptr-1).;`,t%=.|
0000b1d0 28 22 46 4e 22 2b 6d 6f 64 6c 24 28 4b 29 2b 22 |("FN"+modl$(K)+"|
0000b1e0 5f 65 76 65 6e 74 28 33 2c 70 6f 69 6e 74 65 72 |_event(3,pointer|
0000b1f0 25 29 22 29 0d 3b 6a 17 e7 20 24 74 25 3c 3e 22 |%)").;j.. $t%<>"|
0000b200 22 20 74 65 78 74 24 3d 24 74 25 0d 3b 74 1f 70 |" text$=$t%.;t.p|
0000b210 6f 69 6e 74 65 72 25 21 30 3d 77 25 3a 70 6f 69 |ointer%!0=w%:poi|
0000b220 6e 74 65 72 25 21 34 3d 69 25 0d 3b 7e 07 ed 20 |nter%!4=i%.;~.. |
0000b230 4b 0d 3b 88 37 e7 20 74 65 78 74 24 3d 22 22 20 |K.;.7. text$="" |
0000b240 74 65 78 74 24 3d 22 4e 6f 20 68 65 6c 70 20 61 |text$="No help a|
0000b250 76 61 69 6c 69 62 6c 65 20 6f 6e 20 74 68 69 73 |vailible on this|
0000b260 20 77 69 6e 64 6f 77 22 0d 3b 92 0a 3d 74 65 78 | window".;..=tex|
0000b270 74 24 0d 3b 9c 04 0d 3b a6 1f dd 20 f2 6d 6f 64 |t$.;...;... .mod|
0000b280 6c 5f 63 6c 69 63 6b 28 74 79 70 2c 66 69 6c 24 |l_click(typ,fil$|
0000b290 2c 78 2c 79 29 0d 3b b0 40 70 6f 69 6e 74 65 72 |,x,y).;.@pointer|
0000b2a0 25 21 30 3d 78 3a 70 6f 69 6e 74 65 72 25 21 34 |%!0=x:pointer%!4|
0000b2b0 3d 79 3a 70 6f 69 6e 74 65 72 25 21 38 3d 74 79 |=y:pointer%!8=ty|
0000b2c0 70 3a 24 28 70 6f 69 6e 74 65 72 25 2b 31 32 29 |p:$(pointer%+12)|
0000b2d0 3d 66 69 6c 24 0d 3b ba 17 e3 20 4b 3d 30 20 b8 |=fil$.;... K=0 .|
0000b2e0 20 28 6d 6f 64 6c 70 74 72 2d 31 29 0d 3b c4 2c | (modlptr-1).;.,|
0000b2f0 74 25 3d a0 28 22 46 4e 22 2b 6d 6f 64 6c 24 28 |t%=.("FN"+modl$(|
0000b300 4b 29 2b 22 5f 65 76 65 6e 74 28 34 2c 70 6f 69 |K)+"_event(4,poi|
0000b310 6e 74 65 72 25 29 22 29 0d 3b ce 40 70 6f 69 6e |nter%)").;.@poin|
0000b320 74 65 72 25 21 30 3d 78 3a 70 6f 69 6e 74 65 72 |ter%!0=x:pointer|
0000b330 25 21 34 3d 79 3a 70 6f 69 6e 74 65 72 25 21 38 |%!4=y:pointer%!8|
0000b340 3d 74 79 70 3a 24 28 70 6f 69 6e 74 65 72 25 2b |=typ:$(pointer%+|
0000b350 31 32 29 3d 66 69 6c 24 0d 3b d8 07 ed 20 4b 0d |12)=fil$.;... K.|
0000b360 3b e2 05 e1 0d 3b ec 04 0d 3b f6 19 dd 20 f2 6d |;....;...;... .m|
0000b370 6f 64 6c 5f 6d 63 6c 69 63 6b 28 68 2c 69 2c 62 |odl_mclick(h,i,b|
0000b380 29 0d 3c 00 2a 70 6f 69 6e 74 65 72 25 21 30 3d |).<.*pointer%!0=|
0000b390 68 3a 70 6f 69 6e 74 65 72 25 21 34 3d 69 3a 70 |h:pointer%!4=i:p|
0000b3a0 6f 69 6e 74 65 72 25 21 38 3d 62 0d 3c 0a 17 e3 |ointer%!8=b.<...|
0000b3b0 20 4b 3d 30 20 b8 20 28 6d 6f 64 6c 70 74 72 2d | K=0 . (modlptr-|
0000b3c0 31 29 0d 3c 14 2c 74 25 3d a0 28 22 46 4e 22 2b |1).<.,t%=.("FN"+|
0000b3d0 6d 6f 64 6c 24 28 4b 29 2b 22 5f 65 76 65 6e 74 |modl$(K)+"_event|
0000b3e0 28 35 2c 70 6f 69 6e 74 65 72 25 29 22 29 0d 3c |(5,pointer%)").<|
0000b3f0 1e 2a 70 6f 69 6e 74 65 72 25 21 30 3d 68 3a 70 |.*pointer%!0=h:p|
0000b400 6f 69 6e 74 65 72 25 21 34 3d 69 3a 70 6f 69 6e |ointer%!4=i:poin|
0000b410 74 65 72 25 21 38 3d 62 0d 3c 28 07 ed 20 4b 0d |ter%!8=b.<(.. K.|
0000b420 3c 32 05 e1 0d 3c 3c 04 0d 3c 46 24 dd 20 f2 70 |<2...<<..<F$. .p|
0000b430 75 74 6f 6e 64 65 73 6b 74 6f 70 28 73 70 6e 24 |utondesktop(spn$|
0000b440 2c 78 2c 79 2c 74 2c 74 24 2c 6c 29 0d 3c 50 18 |,x,y,t,t$,l).<P.|
0000b450 ea 20 66 67 24 2c 62 67 24 2c 66 6c 61 67 24 2c |. fg$,bg$,flag$,|
0000b460 66 6c 61 67 0d 3c 5a 30 66 67 24 3d c3 7e 28 66 |flag.<Z0fg$=.~(f|
0000b470 67 29 3a 62 67 24 3d c3 7e 28 62 67 29 3a 66 6c |g):bg$=.~(bg):fl|
0000b480 61 67 24 3d 62 67 24 2b 66 67 24 2b 22 30 31 38 |ag$=bg$+fg$+"018|
0000b490 30 33 39 22 0d 3c 64 15 66 6c 61 67 3d a0 28 22 |039".<d.flag=.("|
0000b4a0 26 22 2b 66 6c 61 67 24 29 0d 3c 6e 45 f2 63 72 |&"+flag$).<nE.cr|
0000b4b0 65 61 74 65 5f 69 63 6f 6e 28 6d 61 69 6e 25 2c |eate_icon(main%,|
0000b4c0 30 2c 78 2d 35 30 2c 78 2b 31 31 35 2c 2d 28 31 |0,x-50,x+115,-(1|
0000b4d0 30 32 34 2d 28 79 2d 36 35 29 29 2c 36 35 2c 73 |024-(y-65)),65,s|
0000b4e0 70 6e 24 2c 26 34 37 30 31 38 30 31 41 29 0d 3c |pn$,&4701801A).<|
0000b4f0 78 4d 66 69 6c 65 24 28 69 25 29 3d 74 24 3a 78 |xMfile$(i%)=t$:x|
0000b500 28 69 25 29 3d 78 3a 79 28 69 25 29 3d 79 3a 66 |(i%)=x:y(i%)=y:f|
0000b510 74 79 70 65 24 28 69 25 29 3d 73 70 6e 24 3a 66 |type$(i%)=spn$:f|
0000b520 69 6c 65 74 79 70 65 28 69 25 29 3d 26 30 30 30 |iletype(i%)=&000|
0000b530 3a 74 79 70 65 28 69 25 29 3d 74 0d 3c 82 0a 74 |:type(i%)=t.<..t|
0000b540 31 24 3d 22 22 0d 3c 8c 32 e7 20 6c 3d 31 20 74 |1$="".<.2. l=1 t|
0000b550 31 24 3d a4 6c 61 73 74 62 69 74 28 74 24 29 20 |1$=.lastbit(t$) |
0000b560 8b 20 74 31 24 3d 74 24 3a 77 69 64 25 3d 28 a9 |. t1$=t$:wid%=(.|
0000b570 74 31 24 29 2a 31 36 0d 3c 96 55 f2 63 72 65 61 |t1$)*16.<.U.crea|
0000b580 74 65 5f 69 63 6f 6e 28 6d 61 69 6e 25 2c 30 2c |te_icon(main%,0,|
0000b590 28 78 2d 28 77 69 64 25 2f 32 29 29 2b 33 30 2c |(x-(wid%/2))+30,|
0000b5a0 28 78 2b 28 77 69 64 25 2f 32 29 29 2b 33 30 2c |(x+(wid%/2))+30,|
0000b5b0 2d 28 31 30 32 34 2d 28 79 2d 31 31 35 29 29 2c |-(1024-(y-115)),|
0000b5c0 33 36 2c 74 31 24 2c 66 6c 61 67 29 0d 3c a0 23 |36,t1$,flag).<.#|
0000b5d0 f2 70 75 74 69 63 6f 6e 73 70 72 69 74 65 28 6d |.puticonsprite(m|
0000b5e0 61 69 6e 25 2c 69 25 2d 31 2c 73 70 6e 24 29 0d |ain%,i%-1,spn$).|
0000b5f0 3c aa 49 c8 99 20 22 58 57 69 6d 70 5f 46 6f 72 |<.I.. "XWimp_For|
0000b600 63 65 52 65 64 72 61 77 22 2c 70 6f 69 6e 74 25 |ceRedraw",point%|
0000b610 21 30 2c 70 6f 69 6e 74 25 21 34 2c 70 6f 69 6e |!0,point%!4,poin|
0000b620 74 25 21 38 2c 70 6f 69 6e 74 25 21 31 32 2c 70 |t%!8,point%!12,p|
0000b630 6f 69 6e 74 25 21 31 36 0d 3c b4 05 e1 0d 3c be |oint%!16.<....<.|
0000b640 04 0d 3c c8 17 dd 20 f2 6d 6f 64 6c 5f 73 6c 61 |..<... .modl_sla|
0000b650 62 28 68 2c 69 2c 62 29 0d 3c d2 11 70 6f 69 6e |b(h,i,b).<..poin|
0000b660 74 65 72 25 21 31 32 3d 68 0d 3c dc 11 70 6f 69 |ter%!12=h.<..poi|
0000b670 6e 74 65 72 25 21 31 36 3d 69 0d 3c e6 10 70 6f |nter%!16=i.<..po|
0000b680 69 6e 74 65 72 25 21 38 3d 62 0d 3c f0 28 c8 99 |inter%!8=b.<.(..|
0000b690 20 22 58 49 6e 74 65 72 66 61 63 65 5f 53 6c 61 | "XInterface_Sla|
0000b6a0 62 42 75 74 74 6f 6e 22 2c 2c 70 6f 69 6e 74 65 |bButton",,pointe|
0000b6b0 72 25 0d 3c fa 10 70 6f 69 6e 74 65 72 25 21 38 |r%.<..pointer%!8|
0000b6c0 3d 30 0d 3d 04 28 c8 99 20 22 58 49 6e 74 65 72 |=0.=.(.. "XInter|
0000b6d0 66 61 63 65 5f 53 6c 61 62 42 75 74 74 6f 6e 22 |face_SlabButton"|
0000b6e0 2c 2c 70 6f 69 6e 74 65 72 25 0d 3d 0e 05 e1 0d |,,pointer%.=....|
0000b6f0 3d 18 04 0d 3d 22 13 dd 20 a4 66 69 72 73 74 62 |=...=".. .firstb|
0000b700 69 74 28 73 24 29 0d 3d 2c 19 70 74 72 3d 30 3a |it(s$).=,.ptr=0:|
0000b710 f5 3a 74 24 3d c1 73 24 2c 70 74 72 2c 31 29 0d |.:t$=.s$,ptr,1).|
0000b720 3d 36 1a e7 20 74 24 3d 22 2e 22 20 70 74 72 2d |=6.. t$="." ptr-|
0000b730 3d 31 3a e5 20 8d 44 4a 7d 0d 3d 40 0a 70 74 72 |=1:. .DJ}.=@.ptr|
0000b740 2b 3d 31 0d 3d 4a 0c fd 20 74 24 3d 22 2e 22 0d |+=1.=J.. t$=".".|
0000b750 3d 54 0d 3d c0 73 24 2c 70 74 72 29 0d 3d 5e 04 |=T.=.s$,ptr).=^.|
0000b760 0d 3d 68 14 dd 20 a4 6d 6f 64 6c 5f 74 72 61 6e |.=h.. .modl_tran|
0000b770 73 28 68 29 0d 3d 72 09 74 24 3d 22 22 0d 3d 7c |s(h).=r.t$="".=||
0000b780 10 70 6f 69 6e 74 65 72 25 21 30 3d 68 0d 3d 86 |.pointer%!0=h.=.|
0000b790 17 e3 20 4b 3d 30 20 b8 20 28 6d 6f 64 6c 70 74 |.. K=0 . (modlpt|
0000b7a0 72 2d 31 29 0d 3d 90 2c 74 25 3d a0 28 22 46 4e |r-1).=.,t%=.("FN|
0000b7b0 22 2b 6d 6f 64 6c 24 28 4b 29 2b 22 5f 65 76 65 |"+modl$(K)+"_eve|
0000b7c0 6e 74 28 36 2c 70 6f 69 6e 74 65 72 25 29 22 29 |nt(6,pointer%)")|
0000b7d0 0d 3d 9a 14 e7 20 24 74 25 3c 3e 22 22 20 74 24 |.=... $t%<>"" t$|
0000b7e0 3d 24 74 25 0d 3d a4 10 70 6f 69 6e 74 65 72 25 |=$t%.=..pointer%|
0000b7f0 21 30 3d 68 0d 3d ae 07 ed 20 4b 0d 3d b8 07 3d |!0=h.=... K.=..=|
0000b800 74 24 0d 3d c2 04 0d 3d cc 16 dd 20 a4 6d 6f 64 |t$.=...=... .mod|
0000b810 6c 5f 68 61 6e 64 6c 65 28 74 24 29 0d 3d d6 0d |l_handle(t$).=..|
0000b820 68 61 6e 64 6c 65 25 3d 30 0d 3d e0 10 24 70 6f |handle%=0.=..$po|
0000b830 69 6e 74 65 72 25 3d 74 24 0d 3d ea 17 e3 20 4b |inter%=t$.=... K|
0000b840 3d 30 20 b8 20 28 6d 6f 64 6c 70 74 72 2d 31 29 |=0 . (modlptr-1)|
0000b850 0d 3d f4 2c 74 25 3d a0 28 22 46 4e 22 2b 6d 6f |.=.,t%=.("FN"+mo|
0000b860 64 6c 24 28 4b 29 2b 22 5f 65 76 65 6e 74 28 37 |dl$(K)+"_event(7|
0000b870 2c 70 6f 69 6e 74 65 72 25 29 22 29 0d 3d fe 16 |,pointer%)").=..|
0000b880 e7 20 74 25 3c 3e 30 20 68 61 6e 64 6c 65 25 3d |. t%<>0 handle%=|
0000b890 74 25 0d 3e 08 10 24 70 6f 69 6e 74 65 72 25 3d |t%.>..$pointer%=|
0000b8a0 74 24 0d 3e 12 07 ed 20 4b 0d 3e 1c 0c 3d 68 61 |t$.>... K.>..=ha|
0000b8b0 6e 64 6c 65 25 0d 3e 26 04 0d 3e 30 12 dd 20 a4 |ndle%.>&..>0.. .|
0000b8c0 6d 6f 64 6c 5f 78 77 28 74 24 29 0d 3e 3a 09 78 |modl_xw(t$).>:.x|
0000b8d0 77 25 3d 30 0d 3e 44 10 24 70 6f 69 6e 74 65 72 |w%=0.>D.$pointer|
0000b8e0 25 3d 74 24 0d 3e 4e 17 e3 20 4b 3d 30 20 b8 20 |%=t$.>N.. K=0 . |
0000b8f0 28 6d 6f 64 6c 70 74 72 2d 31 29 0d 3e 58 2c 74 |(modlptr-1).>X,t|
0000b900 25 3d a0 28 22 46 4e 22 2b 6d 6f 64 6c 24 28 4b |%=.("FN"+modl$(K|
0000b910 29 2b 22 5f 65 76 65 6e 74 28 38 2c 70 6f 69 6e |)+"_event(8,poin|
0000b920 74 65 72 25 29 22 29 0d 3e 62 12 e7 20 74 25 3c |ter%)").>b.. t%<|
0000b930 3e 30 20 78 77 25 3d 74 25 0d 3e 6c 10 24 70 6f |>0 xw%=t%.>l.$po|
0000b940 69 6e 74 65 72 25 3d 74 24 0d 3e 76 07 ed 20 4b |inter%=t$.>v.. K|
0000b950 0d 3e 80 08 3d 78 77 25 0d 3e 8a 04 0d 3e 94 12 |.>..=xw%.>...>..|
0000b960 dd 20 a4 6d 6f 64 6c 5f 79 68 28 74 24 29 0d 3e |. .modl_yh(t$).>|
0000b970 9e 09 79 68 25 3d 30 0d 3e a8 10 24 70 6f 69 6e |..yh%=0.>..$poin|
0000b980 74 65 72 25 3d 74 24 0d 3e b2 17 e3 20 4b 3d 30 |ter%=t$.>... K=0|
0000b990 20 b8 20 28 6d 6f 64 6c 70 74 72 2d 31 29 0d 3e | . (modlptr-1).>|
0000b9a0 bc 2c 74 25 3d a0 28 22 46 4e 22 2b 6d 6f 64 6c |.,t%=.("FN"+modl|
0000b9b0 24 28 4b 29 2b 22 5f 65 76 65 6e 74 28 39 2c 70 |$(K)+"_event(9,p|
0000b9c0 6f 69 6e 74 65 72 25 29 22 29 0d 3e c6 12 e7 20 |ointer%)").>... |
0000b9d0 74 25 3c 3e 30 20 79 68 25 3d 74 25 0d 3e d0 10 |t%<>0 yh%=t%.>..|
0000b9e0 24 70 6f 69 6e 74 65 72 25 3d 74 24 0d 3e da 07 |$pointer%=t$.>..|
0000b9f0 ed 20 4b 0d 3e e4 08 3d 79 68 25 0d 3e ee 04 0d |. K.>..=yh%.>...|
0000ba00 3e f8 12 dd 20 a4 63 61 70 69 74 61 6c 28 73 24 |>... .capital(s$|
0000ba10 29 0d 3f 02 13 74 24 3d c2 73 24 2c 28 a9 73 24 |).?..t$=.s$,(.s$|
0000ba20 29 2d 31 29 0d 3f 0c 0d 69 24 3d c0 73 24 2c 31 |)-1).?..i$=.s$,1|
0000ba30 29 0d 3f 16 15 69 24 3d bd 28 97 28 69 24 29 20 |).?..i$=.(.(i$) |
0000ba40 82 20 26 32 30 29 0d 3f 20 0a 3d 69 24 2b 74 24 |. &20).? .=i$+t$|
0000ba50 0d 3f 2a 04 0d 3f 34 11 dd 20 a4 65 78 69 73 74 |.?*..?4.. .exist|
0000ba60 73 28 74 79 29 0d 3f 3e 0a 66 6c 61 67 3d 30 0d |s(ty).?>.flag=0.|
0000ba70 3f 48 0e e3 20 49 3d 30 20 b8 20 38 30 0d 3f 52 |?H.. I=0 . 80.?R|
0000ba80 12 e7 20 66 69 6c 65 24 28 49 29 3c 3e 22 22 0d |.. file$(I)<>"".|
0000ba90 3f 5c 18 20 e7 20 74 79 70 65 28 49 29 3d 74 79 |?\. . type(I)=ty|
0000baa0 20 66 6c 61 67 3d 49 0d 3f 66 05 cd 0d 3f 70 05 | flag=I.?f...?p.|
0000bab0 ed 0d 3f 7a 09 3d 66 6c 61 67 0d 3f 84 04 0d 3f |..?z.=flag.?...?|
0000bac0 8e 1d dd 20 f2 6d 6f 64 6c 5f 64 72 61 67 65 6e |... .modl_dragen|
0000bad0 64 28 66 24 2c 66 31 24 2c 74 29 0d 3f 98 17 e3 |d(f$,f1$,t).?...|
0000bae0 20 4b 3d 30 20 b8 20 28 6d 6f 64 6c 70 74 72 2d | K=0 . (modlptr-|
0000baf0 31 29 0d 3f a2 10 70 6f 69 6e 74 65 72 25 21 30 |1).?..pointer%!0|
0000bb00 3d 74 0d 3f ac 14 24 28 70 6f 69 6e 74 65 72 25 |=t.?..$(pointer%|
0000bb10 2b 34 29 3d 66 24 0d 3f b6 17 24 28 70 6f 69 6e |+4)=f$.?..$(poin|
0000bb20 74 65 72 25 2b 32 36 30 29 3d 66 31 24 0d 3f c0 |ter%+260)=f1$.?.|
0000bb30 2d 74 25 3d a0 28 22 46 4e 22 2b 6d 6f 64 6c 24 |-t%=.("FN"+modl$|
0000bb40 28 4b 29 2b 22 5f 65 76 65 6e 74 28 31 30 2c 70 |(K)+"_event(10,p|
0000bb50 6f 69 6e 74 65 72 25 29 22 29 0d 3f ca 07 ed 20 |ointer%)").?... |
0000bb60 4b 0d 3f d4 05 e1 0d 3f de 04 0d 3f e8 1c dd 20 |K.?....?...?... |
0000bb70 f2 6d 6f 64 6c 5f 64 61 74 61 6c 6f 61 64 28 66 |.modl_dataload(f|
0000bb80 24 2c 77 2c 69 29 0d 3f f2 17 e3 20 4b 3d 30 20 |$,w,i).?... K=0 |
0000bb90 b8 20 28 6d 6f 64 6c 70 74 72 2d 31 29 0d 3f fc |. (modlptr-1).?.|
0000bba0 2e 70 6f 69 6e 74 65 72 25 21 30 3d 77 3a 70 6f |.pointer%!0=w:po|
0000bbb0 69 6e 74 65 72 25 21 34 3d 69 3a 24 28 70 6f 69 |inter%!4=i:$(poi|
0000bbc0 6e 74 65 72 25 2b 38 29 3d 66 24 0d 40 06 2d 74 |nter%+8)=f$.@.-t|
0000bbd0 25 3d a0 28 22 46 4e 22 2b 6d 6f 64 6c 24 28 4b |%=.("FN"+modl$(K|
0000bbe0 29 2b 22 5f 65 76 65 6e 74 28 31 31 2c 70 6f 69 |)+"_event(11,poi|
0000bbf0 6e 74 65 72 25 29 22 29 0d 40 10 07 ed 20 4b 0d |nter%)").@... K.|
0000bc00 40 1a 05 e1 0d 40 24 04 0d 40 2e 1f dd 20 f2 6d |@....@$..@... .m|
0000bc10 6f 64 6c 5f 64 65 6c 65 74 65 28 69 63 6f 6e 25 |odl_delete(icon%|
0000bc20 2c 74 79 70 65 25 29 0d 40 38 17 e3 20 4b 3d 30 |,type%).@8.. K=0|
0000bc30 20 b8 20 28 6d 6f 64 6c 70 74 72 2d 31 29 0d 40 | . (modlptr-1).@|
0000bc40 42 25 70 6f 69 6e 74 65 72 25 21 30 3d 69 63 6f |B%pointer%!0=ico|
0000bc50 6e 25 3a 70 6f 69 6e 74 65 72 25 21 34 3d 74 79 |n%:pointer%!4=ty|
0000bc60 70 65 25 0d 40 4c 2d 74 25 3d a0 28 22 46 4e 22 |pe%.@L-t%=.("FN"|
0000bc70 2b 6d 6f 64 6c 24 28 4b 29 2b 22 5f 65 76 65 6e |+modl$(K)+"_even|
0000bc80 74 28 31 32 2c 70 6f 69 6e 74 65 72 25 29 22 29 |t(12,pointer%)")|
0000bc90 0d 40 56 07 ed 20 4b 0d 40 60 05 e1 0d 40 6a 04 |.@V.. K.@`...@j.|
0000bca0 0d 40 74 16 dd 20 f2 6d 6f 64 6c 5f 73 61 76 65 |.@t.. .modl_save|
0000bcb0 63 6f 6e 66 69 67 0d 40 7e 17 e3 20 4b 3d 30 20 |config.@~.. K=0 |
0000bcc0 b8 20 28 6d 6f 64 6c 70 74 72 2d 31 29 0d 40 88 |. (modlptr-1).@.|
0000bcd0 2c 74 25 3d a0 28 22 46 4e 22 2b 6d 6f 64 6c 24 |,t%=.("FN"+modl$|
0000bce0 28 4b 29 2b 22 5f 65 76 65 6e 74 28 32 2c 70 6f |(K)+"_event(2,po|
0000bcf0 69 6e 74 65 72 25 29 22 29 0d 40 92 07 ed 20 4b |inter%)").@... K|
0000bd00 0d 40 9c 05 e1 0d 40 a6 04 0d 40 b0 12 dd 20 f2 |.@....@...@... .|
0000bd10 6d 6f 64 6c 5f 72 65 64 72 61 77 0d 40 ba 17 e3 |modl_redraw.@...|
0000bd20 20 4b 3d 30 20 b8 20 28 6d 6f 64 6c 70 74 72 2d | K=0 . (modlptr-|
0000bd30 31 29 0d 40 c4 27 74 25 3d a0 28 22 46 4e 22 2b |1).@.'t%=.("FN"+|
0000bd40 6d 6f 64 6c 24 28 4b 29 2b 22 5f 65 76 65 6e 74 |modl$(K)+"_event|
0000bd50 28 31 34 2c 71 25 29 22 29 0d 40 ce 07 ed 20 4b |(14,q%)").@... K|
0000bd60 0d 40 d8 05 e1 0d 40 e2 04 0d 40 ec 1d dd 20 a4 |.@....@...@... .|
0000bd70 6d 6f 64 6c 5f 69 6e 74 65 72 66 61 63 65 28 72 |modl_interface(r|
0000bd80 30 2c 72 31 25 29 0d 40 f6 0b c8 8e 20 72 30 20 |0,r1%).@.... r0 |
0000bd90 ca 0d 41 00 25 20 c9 20 30 20 3a 20 f2 74 65 6c |..A.% . 0 : .tel|
0000bda0 6c 65 6d 6f 66 66 28 22 46 61 74 61 6c 3b 20 22 |lemoff("Fatal; "|
0000bdb0 2b 24 72 31 25 29 0d 41 0a 18 20 20 20 20 20 20 |+$r1%).A.. |
0000bdc0 20 20 20 20 f2 6d 6f 64 6c 5f 71 75 69 74 0d 41 | .modl_quit.A|
0000bdd0 14 15 20 20 20 20 20 20 20 20 20 20 71 75 69 74 |.. quit|
0000bde0 25 3d b9 0d 41 1e 1b 20 c9 20 31 20 3a 20 f2 74 |%=..A.. . 1 : .t|
0000bdf0 65 6c 6c 65 6d 6f 66 66 28 24 72 31 25 29 0d 41 |ellemoff($r1%).A|
0000be00 28 10 20 20 20 20 20 20 20 20 20 20 3d 30 0d 41 |(. =0.A|
0000be10 32 17 20 c9 20 32 20 3a 20 f2 73 68 75 74 28 6d |2. . 2 : .shut(m|
0000be20 61 69 6e 25 29 0d 41 3c 48 20 20 20 20 20 20 20 |ain%).A<H |
0000be30 20 20 20 f2 6f 70 65 6e 75 70 28 6d 61 69 6e 25 | .openup(main%|
0000be40 2c 30 2c 77 69 6e 5f 6d 61 78 79 25 2c 77 69 6e |,0,win_maxy%,win|
0000be50 5f 6d 61 78 78 25 2c 28 77 69 6e 5f 6d 61 78 79 |_maxx%,(win_maxy|
0000be60 25 2d 77 69 6e 5f 6d 69 6e 79 25 29 29 0d 41 46 |%-win_miny%)).AF|
0000be70 10 20 20 20 20 20 20 20 20 20 20 3d 30 0d 41 50 |. =0.AP|
0000be80 31 20 c9 20 33 20 3a 20 e7 20 73 70 6c 6f 61 64 |1 . 3 : . spload|
0000be90 65 64 20 70 6f 69 6e 74 65 72 25 21 30 3d 31 20 |ed pointer%!0=1 |
0000bea0 8b 20 70 6f 69 6e 74 65 72 25 21 30 3d 30 0d 41 |. pointer%!0=0.A|
0000beb0 5a 31 20 20 20 20 20 20 20 20 20 20 e7 20 74 69 |Z1 . ti|
0000bec0 6c 65 64 20 70 6f 69 6e 74 65 72 25 21 34 3d 31 |led pointer%!4=1|
0000bed0 20 8b 20 70 6f 69 6e 74 65 72 25 21 34 3d 30 0d | . pointer%!4=0.|
0000bee0 41 64 17 20 20 20 20 20 20 20 20 20 20 3d 70 6f |Ad. =po|
0000bef0 69 6e 74 65 72 25 0d 41 6e 44 20 c9 20 34 20 3a |inter%.AnD . 4 :|
0000bf00 20 f2 70 75 74 6f 6e 64 65 73 6b 74 6f 70 28 24 | .putondesktop($|
0000bf10 72 31 25 2c 72 31 25 21 32 34 2c 72 31 25 21 32 |r1%,r1%!24,r1%!2|
0000bf20 38 2c 72 31 25 21 33 32 2c 24 28 72 31 25 2b 31 |8,r1%!32,$(r1%+1|
0000bf30 32 29 2c 72 31 25 21 33 36 29 0d 41 78 10 20 20 |2),r1%!36).Ax. |
0000bf40 20 20 20 20 20 20 20 20 3d 30 0d 41 82 1a 20 c9 | =0.A.. .|
0000bf50 20 35 20 3a 20 f2 64 65 6c 65 74 65 28 21 72 31 | 5 : .delete(!r1|
0000bf60 25 2c 30 29 0d 41 8c 10 20 20 20 20 20 20 20 20 |%,0).A.. |
0000bf70 20 20 3d 30 0d 41 96 30 20 c9 20 36 20 3a 20 c8 | =0.A.0 . 6 : .|
0000bf80 99 20 22 58 57 69 6d 70 5f 4f 70 65 6e 4d 65 6e |. "XWimp_OpenMen|
0000bf90 75 22 2c 2c 6d 65 6e 75 25 2c 21 72 31 25 2c 72 |u",,menu%,!r1%,r|
0000bfa0 31 25 21 34 0d 41 a0 10 20 20 20 20 20 20 20 20 |1%!4.A.. |
0000bfb0 20 20 3d 30 0d 41 aa 1b 20 c9 20 37 20 3a 20 f2 | =0.A.. . 7 : .|
0000bfc0 64 72 61 67 61 62 6f 75 74 28 21 72 31 25 29 0d |dragabout(!r1%).|
0000bfd0 41 b4 10 20 20 20 20 20 20 20 20 20 20 3d 30 0d |A.. =0.|
0000bfe0 41 be 1a 20 c9 20 38 20 3a 20 f2 73 65 74 5f 69 |A.. . 8 : .set_i|
0000bff0 63 6f 6e 28 21 72 31 25 29 0d 41 c8 10 20 20 20 |con(!r1%).A.. |
0000c000 20 20 20 20 20 20 20 3d 30 0d 41 d2 30 20 c9 20 | =0.A.0 . |
0000c010 39 20 3a 20 ff 28 22 46 69 6c 65 72 5f 4f 70 65 |9 : .("Filer_Ope|
0000c020 6e 44 69 72 20 22 2b a4 64 69 72 28 66 69 6c 65 |nDir "+.dir(file|
0000c030 24 28 21 72 31 25 29 29 29 0d 41 dc 10 20 20 20 |$(!r1%))).A.. |
0000c040 20 20 20 20 20 20 20 3d 30 0d 41 e6 28 20 c9 20 | =0.A.( . |
0000c050 31 30 20 3a 20 f2 6d 6f 64 6c 5f 73 6c 61 62 28 |10 : .modl_slab(|
0000c060 21 72 31 25 2c 72 31 25 21 34 2c 72 31 25 21 38 |!r1%,r1%!4,r1%!8|
0000c070 29 0d 41 f0 11 20 20 20 20 20 20 20 20 20 20 20 |).A.. |
0000c080 3d 30 0d 41 fa 1a 20 c9 20 31 31 20 3a 20 3d a4 |=0.A.. . 11 : =.|
0000c090 65 78 69 73 74 73 28 21 72 31 25 29 0d 42 04 1e |exists(!r1%).B..|
0000c0a0 20 c9 20 31 32 20 3a 20 72 65 73 30 25 3d 72 30 | . 12 : res0%=r0|
0000c0b0 3a 72 65 73 31 25 3d 72 31 25 0d 42 0e 22 20 20 |:res1%=r1%.B." |
0000c0c0 20 20 20 20 20 20 20 20 20 e3 20 4b 3d 30 20 b8 | . K=0 .|
0000c0d0 20 28 6d 6f 64 6c 70 74 72 2d 31 29 0d 42 18 3d | (modlptr-1).B.=|
0000c0e0 20 20 20 20 20 20 20 20 20 20 20 74 25 3d a0 28 | t%=.(|
0000c0f0 22 46 4e 22 2b 6d 6f 64 6c 24 28 4b 29 2b 22 5f |"FN"+modl$(K)+"_|
0000c100 6d 65 73 73 61 67 65 28 21 72 65 73 31 25 2c 72 |message(!res1%,r|
0000c110 65 73 31 25 21 34 29 22 29 0d 42 22 10 20 20 20 |es1%!4)").B". |
0000c120 20 20 20 20 20 20 20 20 ed 0d 42 2c 11 20 20 20 | ..B,. |
0000c130 20 20 20 20 20 20 20 20 3d 30 0d 42 36 2e 20 c9 | =0.B6. .|
0000c140 20 31 33 20 3a 20 f2 70 75 74 69 63 6f 6e 64 61 | 13 : .puticonda|
0000c150 74 61 28 72 31 25 21 30 2c 72 31 25 21 34 2c 24 |ta(r1%!0,r1%!4,$|
0000c160 28 72 31 25 2b 38 29 29 0d 42 40 11 20 20 20 20 |(r1%+8)).B@. |
0000c170 20 20 20 20 20 20 20 3d 30 0d 42 4a 2e 20 c9 20 | =0.BJ. . |
0000c180 31 34 20 3a 20 24 70 6f 69 6e 74 65 72 25 3d a4 |14 : $pointer%=.|
0000c190 67 65 74 69 63 6f 6e 64 61 74 61 28 21 72 31 25 |geticondata(!r1%|
0000c1a0 2c 72 31 25 21 34 29 0d 42 54 18 20 20 20 20 20 |,r1%!4).BT. |
0000c1b0 20 20 20 20 20 20 3d 70 6f 69 6e 74 65 72 25 0d | =pointer%.|
0000c1c0 42 5e 24 20 c9 20 31 35 20 3a 20 24 70 6f 69 6e |B^$ . 15 : $poin|
0000c1d0 74 65 72 25 3d a4 6c 61 73 74 62 69 74 28 24 72 |ter%=.lastbit($r|
0000c1e0 31 25 29 0d 42 68 18 20 20 20 20 20 20 20 20 20 |1%).Bh. |
0000c1f0 20 20 3d 70 6f 69 6e 74 65 72 25 0d 42 72 20 20 | =pointer%.Br |
0000c200 c9 20 31 36 20 3a 20 24 70 6f 69 6e 74 65 72 25 |. 16 : $pointer%|
0000c210 3d a4 64 69 72 28 24 72 31 25 29 0d 42 7c 18 20 |=.dir($r1%).B|. |
0000c220 20 20 20 20 20 20 20 20 20 20 3d 70 6f 69 6e 74 | =point|
0000c230 65 72 25 0d 42 86 2f 20 c9 20 31 37 20 3a 20 f2 |er%.B./ . 17 : .|
0000c240 70 75 74 69 63 6f 6e 73 70 72 69 74 65 28 21 72 |puticonsprite(!r|
0000c250 31 25 2c 72 31 25 21 34 2c 24 28 72 31 25 2b 38 |1%,r1%!4,$(r1%+8|
0000c260 29 29 0d 42 90 11 20 20 20 20 20 20 20 20 20 20 |)).B.. |
0000c270 20 3d 30 0d 42 9a 05 cb 0d 42 a4 06 3d 30 0d 42 | =0.B....B..=0.B|
0000c280 ae 04 0d 42 b8 0e dd 20 a4 64 69 72 28 73 24 29 |...B... .dir(s$)|
0000c290 0d 42 c2 0c 73 70 74 72 3d a9 73 24 0d 42 cc 2e |.B..sptr=.s$.B..|
0000c2a0 f5 3a 67 24 3d c1 73 24 2c 73 70 74 72 2c 31 29 |.:g$=.s$,sptr,1)|
0000c2b0 3a e7 20 67 24 3d 22 2e 22 20 e5 20 8d 60 56 42 |:. g$="." . .`VB|
0000c2c0 20 8b 20 73 70 74 72 2d 3d 31 0d 42 d6 0c fd 20 | . sptr-=1.B... |
0000c2d0 67 24 3d 22 2e 22 0d 42 e0 10 3d c0 73 24 2c 73 |g$=".".B..=.s$,s|
0000c2e0 70 74 72 2d 31 29 0d 42 ea 04 0d 42 f4 21 dd 20 |ptr-1).B...B.!. |
0000c2f0 f2 6d 6f 64 6c 5f 63 6c 65 61 72 62 61 63 6b 28 |.modl_clearback(|
0000c300 74 79 70 65 2c 66 69 6c 65 24 29 0d 42 fe 17 e3 |type,file$).B...|
0000c310 20 4b 3d 30 20 b8 20 28 6d 6f 64 6c 70 74 72 2d | K=0 . (modlptr-|
0000c320 31 29 0d 43 08 27 70 6f 69 6e 74 65 72 25 21 30 |1).C.'pointer%!0|
0000c330 3d 74 79 70 65 3a 24 28 70 6f 69 6e 74 65 72 25 |=type:$(pointer%|
0000c340 2b 34 29 3d 66 69 6c 65 24 0d 43 12 2d 74 25 3d |+4)=file$.C.-t%=|
0000c350 a0 28 22 46 4e 22 2b 6d 6f 64 6c 24 28 4b 29 2b |.("FN"+modl$(K)+|
0000c360 22 5f 65 76 65 6e 74 28 31 35 2c 70 6f 69 6e 74 |"_event(15,point|
0000c370 65 72 25 29 22 29 0d 43 1c 07 ed 20 4b 0d 43 26 |er%)").C... K.C&|
0000c380 05 e1 0d 43 30 04 0d 43 3a 15 dd 20 f2 6d 6f 64 |...C0..C:.. .mod|
0000c390 6c 5f 64 65 73 6b 73 74 61 72 74 0d 43 44 17 e3 |l_deskstart.CD..|
0000c3a0 20 4b 3d 30 20 b8 20 28 6d 6f 64 6c 70 74 72 2d | K=0 . (modlptr-|
0000c3b0 31 29 0d 43 4e 2d 74 25 3d a0 28 22 46 4e 22 2b |1).CN-t%=.("FN"+|
0000c3c0 6d 6f 64 6c 24 28 4b 29 2b 22 5f 65 76 65 6e 74 |modl$(K)+"_event|
0000c3d0 28 31 36 2c 70 6f 69 6e 74 65 72 25 29 22 29 0d |(16,pointer%)").|
0000c3e0 43 58 07 ed 20 4b 0d 43 62 05 e1 0d 43 6c 04 0d |CX.. K.Cb...Cl..|
0000c3f0 43 76 13 dd 20 f2 6d 65 6e 75 5f 6d 65 73 73 61 |Cv.. .menu_messa|
0000c400 67 65 0d 43 80 0f e7 20 71 25 21 33 32 3d 36 20 |ge.C... q%!32=6 |
0000c410 8c 0d 43 8a 31 20 f2 70 75 74 69 63 6f 6e 64 61 |..C.1 .puticonda|
0000c420 74 61 28 6d 6f 64 6c 69 6e 66 28 71 25 21 33 36 |ta(modlinf(q%!36|
0000c430 29 2c 34 2c 6d 6f 64 6c 69 24 28 71 25 21 33 36 |),4,modli$(q%!36|
0000c440 29 29 0d 43 94 31 20 f2 70 75 74 69 63 6f 6e 64 |)).C.1 .puticond|
0000c450 61 74 61 28 6d 6f 64 6c 69 6e 66 28 71 25 21 33 |ata(modlinf(q%!3|
0000c460 36 29 2c 35 2c 6d 6f 64 6c 70 24 28 71 25 21 33 |6),5,modlp$(q%!3|
0000c470 36 29 29 0d 43 9e 31 20 f2 70 75 74 69 63 6f 6e |6)).C.1 .puticon|
0000c480 64 61 74 61 28 6d 6f 64 6c 69 6e 66 28 71 25 21 |data(modlinf(q%!|
0000c490 33 36 29 2c 36 2c 6d 6f 64 6c 61 24 28 71 25 21 |36),6,modla$(q%!|
0000c4a0 33 36 29 29 0d 43 a8 31 20 f2 70 75 74 69 63 6f |36)).C.1 .putico|
0000c4b0 6e 64 61 74 61 28 6d 6f 64 6c 69 6e 66 28 71 25 |ndata(modlinf(q%|
0000c4c0 21 33 36 29 2c 37 2c 6d 6f 64 6c 76 24 28 71 25 |!36),7,modlv$(q%|
0000c4d0 21 33 36 29 29 0d 43 b2 30 20 c8 99 20 22 58 57 |!36)).C.0 .. "XW|
0000c4e0 69 6d 70 5f 43 72 65 61 74 65 53 75 62 4d 65 6e |imp_CreateSubMen|
0000c4f0 75 22 2c 2c 71 25 21 32 30 2c 71 25 21 32 34 2c |u",,q%!20,q%!24,|
0000c500 71 25 21 32 38 0d 43 bc 05 cd 0d 43 c6 05 e1 0d |q%!28.C....C....|
0000c510 43 d0 04 0d 43 da 1a dd 20 f2 73 65 74 6d 6f 64 |C...C... .setmod|
0000c520 6c 69 6e 66 6f 28 68 61 6e 64 6c 65 29 0d 43 e4 |linfo(handle).C.|
0000c530 1c 6d 6f 64 6c 6e 75 6d 62 65 72 3d 30 3a 69 6e |.modlnumber=0:in|
0000c540 66 6f 70 74 72 3d 30 3a f5 0d 43 ee 32 e7 20 6d |foptr=0:..C.2. m|
0000c550 6f 64 6c 69 6e 66 28 69 6e 66 6f 70 74 72 29 3d |odlinf(infoptr)=|
0000c560 68 61 6e 64 6c 65 20 8c 20 6d 6f 64 6c 6e 75 6d |handle . modlnum|
0000c570 62 65 72 3d 69 6e 66 6f 70 74 72 0d 43 f8 0e 69 |ber=infoptr.C..i|
0000c580 6e 66 6f 70 74 72 2b 3d 31 0d 44 02 19 fd 20 69 |nfoptr+=1.D... i|
0000c590 6e 66 6f 70 74 72 3d 28 6d 6f 64 6c 70 74 72 2b |nfoptr=(modlptr+|
0000c5a0 31 29 0d 44 0c 2d f2 70 75 74 69 63 6f 6e 64 61 |1).D.-.puticonda|
0000c5b0 74 61 28 68 61 6e 64 6c 65 2c 34 2c 6d 6f 64 6c |ta(handle,4,modl|
0000c5c0 69 24 28 6d 6f 64 6c 6e 75 6d 62 65 72 29 29 0d |i$(modlnumber)).|
0000c5d0 44 16 2d f2 70 75 74 69 63 6f 6e 64 61 74 61 28 |D.-.puticondata(|
0000c5e0 68 61 6e 64 6c 65 2c 35 2c 6d 6f 64 6c 70 24 28 |handle,5,modlp$(|
0000c5f0 6d 6f 64 6c 6e 75 6d 62 65 72 29 29 0d 44 20 2d |modlnumber)).D -|
0000c600 f2 70 75 74 69 63 6f 6e 64 61 74 61 28 68 61 6e |.puticondata(han|
0000c610 64 6c 65 2c 36 2c 6d 6f 64 6c 61 24 28 6d 6f 64 |dle,6,modla$(mod|
0000c620 6c 6e 75 6d 62 65 72 29 29 0d 44 2a 2d f2 70 75 |lnumber)).D*-.pu|
0000c630 74 69 63 6f 6e 64 61 74 61 28 68 61 6e 64 6c 65 |ticondata(handle|
0000c640 2c 37 2c 6d 6f 64 6c 76 24 28 6d 6f 64 6c 6e 75 |,7,modlv$(modlnu|
0000c650 6d 62 65 72 29 29 0d 44 34 05 e1 0d 44 3e 04 0d |mber)).D4...D>..|
0000c660 44 48 11 dd 20 a4 72 6d 76 28 72 30 2c 72 31 29 |DH.. .rmv(r0,r1)|
0000c670 0d 44 52 2b c8 99 20 22 58 4f 53 5f 52 65 61 64 |.DR+.. "XOS_Read|
0000c680 4d 6f 64 65 56 61 72 69 61 62 6c 65 22 2c 72 30 |ModeVariable",r0|
0000c690 2c 72 31 20 b8 20 2c 2c 72 32 30 0d 44 5c 08 3d |,r1 . ,,r20.D\.=|
0000c6a0 72 32 30 0d 44 66 04 0d 44 70 26 dd 20 f2 73 74 |r20.Df..Dp&. .st|
0000c6b0 72 69 6e 67 5f 61 74 5f 61 64 64 72 65 73 73 28 |ring_at_address(|
0000c6c0 6e 61 6d 65 24 2c f8 20 6e 75 6d 25 29 0d 44 7a |name$,. num%).Dz|
0000c6d0 32 c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 |2.. "OS_SpriteOp|
0000c6e0 22 2c 32 35 36 2b 32 34 2c 73 70 72 69 74 65 25 |",256+24,sprite%|
0000c6f0 2c 6e 61 6d 65 24 20 b8 20 2c 2c 6e 75 6d 25 0d |,name$ . ,,num%.|
0000c700 44 84 05 e1 0d 44 8e 05 3a 0d 44 98 25 f4 20 2a |D....D..:.D.%. *|
0000c710 2a 20 52 45 41 44 49 4e 47 20 49 4e 20 21 50 4c |* READING IN !PL|
0000c720 41 43 45 49 54 20 46 49 4c 45 53 20 2a 2a 0d 44 |ACEIT FILES **.D|
0000c730 a2 04 0d 44 ac 10 dd 20 a4 6e 65 78 74 5f 62 79 |...D... .next_by|
0000c740 74 65 0d 44 b6 0e 6f 66 66 73 65 74 25 2b 3d 31 |te.D..offset%+=1|
0000c750 0d 44 c0 1b 3d 28 63 6f 6e 66 69 67 5f 66 69 6c |.D..=(config_fil|
0000c760 65 25 3f 6f 66 66 73 65 74 25 29 0d 44 ca 04 0d |e%?offset%).D...|
0000c770 44 d4 14 dd 20 a4 62 79 74 65 28 6f 66 66 73 65 |D... .byte(offse|
0000c780 74 25 29 0d 44 de 1b 3d 28 63 6f 6e 66 69 67 5f |t%).D..=(config_|
0000c790 66 69 6c 65 25 3f 6f 66 66 73 65 74 25 29 0d 44 |file%?offset%).D|
0000c7a0 e8 04 0d 44 f2 14 dd 20 a4 77 6f 72 64 28 6f 66 |...D... .word(of|
0000c7b0 66 73 65 74 25 29 0d 44 fc 1b 3d 28 63 6f 6e 66 |fset%).D..=(conf|
0000c7c0 69 67 5f 66 69 6c 65 25 21 6f 66 66 73 65 74 25 |ig_file%!offset%|
0000c7d0 29 0d 45 06 04 0d 45 10 16 dd 20 a4 73 74 72 69 |).E...E... .stri|
0000c7e0 6e 67 28 6f 66 66 73 65 74 25 29 0d 45 1a 0a ea |ng(offset%).E...|
0000c7f0 20 73 74 72 24 0d 45 24 0b 73 74 72 24 3d 22 22 | str$.E$.str$=""|
0000c800 0d 45 2e 20 c8 95 20 28 63 6f 6e 66 69 67 5f 66 |.E. .. (config_f|
0000c810 69 6c 65 25 3f 6f 66 66 73 65 74 25 29 3e 33 31 |ile%?offset%)>31|
0000c820 0d 45 38 23 20 20 73 74 72 24 2b 3d bd 28 63 6f |.E8# str$+=.(co|
0000c830 6e 66 69 67 5f 66 69 6c 65 25 3f 6f 66 66 73 65 |nfig_file%?offse|
0000c840 74 25 29 0d 45 42 10 20 20 6f 66 66 73 65 74 25 |t%).EB. offset%|
0000c850 2b 3d 31 0d 45 4c 05 ce 0d 45 56 09 3d 73 74 72 |+=1.EL...EV.=str|
0000c860 24 0d 45 60 04 0d 45 6a 1e dd 20 f2 67 65 74 5f |$.E`..Ej.. .get_|
0000c870 70 6c 61 63 65 69 74 5f 69 63 6f 6e 28 69 63 6f |placeit_icon(ico|
0000c880 6e 25 29 0d 45 74 0a ea 20 70 74 72 25 0d 45 7e |n%).Et.. ptr%.E~|
0000c890 18 70 74 72 25 3d 6c 65 6e 67 74 68 5f 6f 70 74 |.ptr%=length_opt|
0000c8a0 69 6f 6e 73 25 0d 45 88 08 69 25 3d 30 0d 45 92 |ions%.E..i%=0.E.|
0000c8b0 0f c8 95 20 69 25 3c 69 63 6f 6e 25 0d 45 9c 25 |... i%<icon%.E.%|
0000c8c0 20 20 70 74 72 25 2b 3d a4 77 6f 72 64 28 70 74 | ptr%+=.word(pt|
0000c8d0 72 25 2b 73 69 7a 65 5f 6f 66 66 73 65 74 29 2d |r%+size_offset)-|
0000c8e0 34 0d 45 a6 0b 20 20 69 25 2b 3d 31 0d 45 b0 05 |4.E.. i%+=1.E..|
0000c8f0 ce 0d 45 ba 29 69 63 6f 6e 68 61 6e 64 6c 65 25 |..E.)iconhandle%|
0000c900 3d a4 62 79 74 65 28 70 74 72 25 2b 68 61 6e 64 |=.byte(ptr%+hand|
0000c910 6c 65 5f 6f 66 66 73 65 74 29 0d 45 c4 24 78 5f |le_offset).E.$x_|
0000c920 63 6f 6f 72 64 25 20 20 20 3d a4 77 6f 72 64 28 |coord% =.word(|
0000c930 70 74 72 25 2b 78 5f 6f 66 66 73 65 74 29 0d 45 |ptr%+x_offset).E|
0000c940 ce 24 79 5f 63 6f 6f 72 64 25 20 20 20 3d a4 77 |.$y_coord% =.w|
0000c950 6f 72 64 28 70 74 72 25 2b 79 5f 6f 66 66 73 65 |ord(ptr%+y_offse|
0000c960 74 29 0d 45 d8 2b 66 69 6c 65 74 79 70 65 25 20 |t).E.+filetype% |
0000c970 20 3d a4 77 6f 72 64 28 70 74 72 25 2b 66 69 6c | =.word(ptr%+fil|
0000c980 65 74 79 70 65 5f 6f 66 66 73 65 74 29 0d 45 e2 |etype_offset).E.|
0000c990 3b 6c 65 61 66 6e 61 6d 65 24 20 20 3d a4 73 74 |;leafname$ =.st|
0000c9a0 72 69 6e 67 28 70 74 72 25 2b a4 77 6f 72 64 28 |ring(ptr%+.word(|
0000c9b0 70 74 72 25 2b 6c 65 61 66 6e 61 6d 65 5f 6f 66 |ptr%+leafname_of|
0000c9c0 66 73 65 74 29 2d 34 29 0d 45 ec 2b 73 70 72 69 |fset)-4).E.+spri|
0000c9d0 74 65 6e 61 6d 65 24 3d a4 73 74 72 69 6e 67 28 |tename$=.string(|
0000c9e0 70 74 72 25 2b 73 70 72 69 74 65 5f 6f 66 66 73 |ptr%+sprite_offs|
0000c9f0 65 74 29 0d 45 f6 29 69 63 6f 6e 73 65 6c 65 63 |et).E.)iconselec|
0000ca00 74 25 3d a4 62 79 74 65 28 70 74 72 25 2b 73 65 |t%=.byte(ptr%+se|
0000ca10 6c 65 63 74 5f 6f 66 66 73 65 74 29 0d 46 00 2d |lect_offset).F.-|
0000ca20 66 69 6c 65 6e 61 6d 65 24 20 20 3d a4 73 74 72 |filename$ =.str|
0000ca30 69 6e 67 28 70 74 72 25 2b 66 69 6c 65 6e 61 6d |ing(ptr%+filenam|
0000ca40 65 5f 6f 66 66 73 65 74 29 0d 46 0a 05 e1 0d 46 |e_offset).F....F|
0000ca50 14 04 0d 46 1e 20 dd 20 f2 6c 6f 61 64 5f 6e 65 |...F. . .load_ne|
0000ca60 77 5f 70 6c 61 63 65 69 74 5f 66 69 6c 65 28 66 |w_placeit_file(f|
0000ca70 24 29 0d 46 28 16 f2 64 65 6c 65 74 65 61 6c 6c |$).F(..deleteall|
0000ca80 3a f2 70 75 72 67 65 31 0d 46 32 19 f2 6d 6f 64 |:.purge1.F2..mod|
0000ca90 6c 5f 63 6c 65 61 72 62 61 63 6b 28 31 2c 66 24 |l_clearback(1,f$|
0000caa0 29 0d 46 3c 26 c8 99 20 22 58 4f 53 5f 46 69 6c |).F<&.. "XOS_Fil|
0000cab0 65 22 2c 31 36 2c 66 24 2c 63 6f 6e 66 69 67 5f |e",16,f$,config_|
0000cac0 66 69 6c 65 25 2c 30 0d 46 46 0e 6f 66 66 73 65 |file%,0.FF.offse|
0000cad0 74 25 3d 2d 31 0d 46 50 15 73 69 7a 65 5f 6f 66 |t%=-1.FP.size_of|
0000cae0 66 73 65 74 20 20 20 20 3d 30 0d 46 5a 15 6c 65 |fset =0.FZ.le|
0000caf0 61 66 6e 61 6d 65 5f 6f 66 66 73 65 74 3d 34 0d |afname_offset=4.|
0000cb00 46 64 15 68 61 6e 64 6c 65 5f 6f 66 66 73 65 74 |Fd.handle_offset|
0000cb10 20 20 3d 38 0d 46 6e 15 73 65 6c 65 63 74 5f 6f | =8.Fn.select_o|
0000cb20 66 66 73 65 74 20 20 3d 39 0d 46 78 16 78 5f 6f |ffset =9.Fx.x_o|
0000cb30 66 66 73 65 74 20 20 20 20 20 20 20 3d 31 32 0d |ffset =12.|
0000cb40 46 82 16 79 5f 6f 66 66 73 65 74 20 20 20 20 20 |F..y_offset |
0000cb50 20 20 3d 31 36 0d 46 8c 16 73 70 72 69 74 65 5f | =16.F..sprite_|
0000cb60 6f 66 66 73 65 74 20 20 3d 32 30 0d 46 96 16 66 |offset =20.F..f|
0000cb70 69 6c 65 74 79 70 65 5f 6f 66 66 73 65 74 3d 33 |iletype_offset=3|
0000cb80 36 0d 46 a0 16 66 69 6c 65 6e 61 6d 65 5f 6f 66 |6.F..filename_of|
0000cb90 66 73 65 74 3d 34 30 0d 46 aa 04 0d 46 b4 6c 76 |fset=40.F...F.lv|
0000cba0 65 72 73 69 6f 6e 25 3d a4 6e 65 78 74 5f 62 79 |ersion%=.next_by|
0000cbb0 74 65 3a e7 20 76 65 72 73 69 6f 6e 25 3c 3e 35 |te:. version%<>5|
0000cbc0 20 f2 74 65 6c 6c 65 6d 6f 66 66 28 22 43 61 6e | .tellemoff("Can|
0000cbd0 27 74 20 68 61 6e 64 6c 65 20 21 50 6c 61 63 65 |'t handle !Place|
0000cbe0 49 74 20 63 6f 6e 66 69 67 20 66 69 6c 65 20 6f |It config file o|
0000cbf0 74 68 65 72 20 74 68 61 6e 20 76 65 72 73 69 6f |ther than versio|
0000cc00 6e 20 35 22 29 3a e1 0d 46 be 17 6e 66 67 20 20 |n 5"):..F..nfg |
0000cc10 20 20 20 3d a4 6e 65 78 74 5f 62 79 74 65 0d 46 | =.next_byte.F|
0000cc20 c8 17 6e 62 67 20 20 20 20 20 3d a4 6e 65 78 74 |..nbg =.next|
0000cc30 5f 62 79 74 65 0d 46 d2 17 64 63 5f 66 6c 61 67 |_byte.F..dc_flag|
0000cc40 25 3d a4 6e 65 78 74 5f 62 79 74 65 0d 46 dc 17 |%=.next_byte.F..|
0000cc50 6c 6f 63 6b 65 64 25 20 3d a4 6e 65 78 74 5f 62 |locked% =.next_b|
0000cc60 79 74 65 0d 46 e6 17 62 61 63 6b 67 6e 64 25 3d |yte.F..backgnd%=|
0000cc70 a4 6e 65 78 74 5f 62 79 74 65 0d 46 f0 17 62 61 |.next_byte.F..ba|
0000cc80 63 6b 74 79 70 25 3d a4 6e 65 78 74 5f 62 79 74 |cktyp%=.next_byt|
0000cc90 65 0d 46 fa 17 69 63 6f 6e 73 25 20 20 3d a4 6e |e.F..icons% =.n|
0000cca0 65 78 74 5f 62 79 74 65 0d 47 04 1d 6c 65 6e 67 |ext_byte.G..leng|
0000ccb0 74 68 5f 6f 70 74 69 6f 6e 73 25 3d 6f 66 66 73 |th_options%=offs|
0000ccc0 65 74 25 2b 31 0d 47 0e 14 e3 20 49 3d 30 20 b8 |et%+1.G... I=0 .|
0000ccd0 20 69 63 6f 6e 73 25 2d 31 0d 47 18 41 f2 67 65 | icons%-1.G.A.ge|
0000cce0 74 5f 70 6c 61 63 65 69 74 5f 69 63 6f 6e 28 49 |t_placeit_icon(I|
0000ccf0 29 3a 73 70 72 69 74 65 6e 61 6d 65 24 3d c2 73 |):spritename$=.s|
0000cd00 70 72 69 74 65 6e 61 6d 65 24 2c a9 73 70 72 69 |pritename$,.spri|
0000cd10 74 65 6e 61 6d 65 24 2d 31 29 0d 47 22 cf f2 63 |tename$-1).G"..c|
0000cd20 72 65 61 74 65 5f 69 63 6f 6e 28 6d 61 69 6e 25 |reate_icon(main%|
0000cd30 2c 30 2c 28 78 5f 63 6f 6f 72 64 25 2d 35 30 29 |,0,(x_coord%-50)|
0000cd40 2b 32 30 2c 28 78 5f 63 6f 6f 72 64 25 2b 31 31 |+20,(x_coord%+11|
0000cd50 35 29 2b 32 30 2c 2d 28 79 5f 63 6f 6f 72 64 25 |5)+20,-(y_coord%|
0000cd60 2d 36 35 29 2b 31 30 30 2c 36 35 2c 73 70 72 69 |-65)+100,65,spri|
0000cd70 74 65 6e 61 6d 65 24 2c 26 34 37 30 31 38 30 31 |tename$,&4701801|
0000cd80 41 29 3a 66 69 6c 65 24 28 69 25 29 3d 66 69 6c |A):file$(i%)=fil|
0000cd90 65 6e 61 6d 65 24 3a 78 28 69 25 29 3d 78 5f 63 |ename$:x(i%)=x_c|
0000cda0 6f 6f 72 64 25 2b 32 30 3a 79 28 69 25 29 3d 79 |oord%+20:y(i%)=y|
0000cdb0 5f 63 6f 6f 72 64 25 2b 31 30 30 3a 66 74 79 70 |_coord%+100:ftyp|
0000cdc0 65 24 28 69 25 29 3d 73 70 72 69 74 65 6e 61 6d |e$(i%)=spritenam|
0000cdd0 65 24 3a 66 69 6c 65 74 79 70 65 28 69 25 29 3d |e$:filetype(i%)=|
0000cde0 66 69 6c 65 74 79 70 65 25 0d 47 2c 4c e7 20 66 |filetype%.G,L. f|
0000cdf0 69 6c 65 74 79 70 65 25 3d 26 32 30 30 30 20 74 |iletype%=&2000 t|
0000ce00 79 70 65 28 69 25 29 3d 30 20 8b 20 e7 20 66 69 |ype(i%)=0 . . fi|
0000ce10 6c 65 74 79 70 65 25 3d 26 31 30 30 30 20 74 79 |letype%=&1000 ty|
0000ce20 70 65 28 69 25 29 3d 31 20 8b 20 74 79 70 65 28 |pe(i%)=1 . type(|
0000ce30 69 25 29 3d 32 0d 47 36 18 77 69 64 25 3d 28 a9 |i%)=2.G6.wid%=(.|
0000ce40 6c 65 61 66 6e 61 6d 65 24 29 2a 31 36 0d 47 40 |leafname$)*16.G@|
0000ce50 72 f2 63 72 65 61 74 65 5f 69 63 6f 6e 28 6d 61 |r.create_icon(ma|
0000ce60 69 6e 25 2c 30 2c 28 78 5f 63 6f 6f 72 64 25 2d |in%,0,(x_coord%-|
0000ce70 28 77 69 64 25 2f 32 29 29 2b 36 30 2c 28 78 5f |(wid%/2))+60,(x_|
0000ce80 63 6f 6f 72 64 25 2b 28 77 69 64 25 2f 32 29 29 |coord%+(wid%/2))|
0000ce90 2b 36 30 2c 2d 28 79 5f 63 6f 6f 72 64 25 2d 31 |+60,-(y_coord%-1|
0000cea0 31 35 29 2b 31 30 30 2c 33 36 2c 6c 65 61 66 6e |15)+100,36,leafn|
0000ceb0 61 6d 65 24 2c 26 34 37 30 31 38 30 33 39 29 0d |ame$,&47018039).|
0000cec0 47 4a 2a f2 70 75 74 69 63 6f 6e 73 70 72 69 74 |GJ*.puticonsprit|
0000ced0 65 28 6d 61 69 6e 25 2c 69 25 2d 31 2c 73 70 72 |e(main%,i%-1,spr|
0000cee0 69 74 65 6e 61 6d 65 24 29 0d 47 54 05 ed 0d 47 |itename$).GT...G|
0000cef0 5e 12 e7 20 62 61 63 6b 67 6e 64 25 3d 31 20 8c |^.. backgnd%=1 .|
0000cf00 0d 47 68 0b 20 66 31 24 3d 66 24 0d 47 72 27 20 |.Gh. f1$=f$.Gr' |
0000cf10 66 24 3d a4 6c 65 61 66 6e 61 6d 65 28 66 24 29 |f$=.leafname(f$)|
0000cf20 3a 66 24 2b 3d 22 2e 42 61 63 6b 67 72 6f 75 6e |:f$+=".Backgroun|
0000cf30 64 22 0d 47 7c 23 20 e7 20 62 61 63 6b 74 79 70 |d".G|# . backtyp|
0000cf40 25 3d 31 20 74 69 6c 65 64 3d b9 20 8b 20 74 69 |%=1 tiled=. . ti|
0000cf50 6c 65 64 3d a3 0d 47 86 12 20 f2 6c 6f 61 64 62 |led=..G.. .loadb|
0000cf60 61 63 6b 64 72 6f 70 0d 47 90 0b 20 66 24 3d 66 |ackdrop.G.. f$=f|
0000cf70 31 24 0d 47 9a 05 cd 0d 47 a4 10 f2 73 68 75 74 |1$.G....G...shut|
0000cf80 28 6d 61 69 6e 25 29 0d 47 ae 3e f2 6f 70 65 6e |(main%).G.>.open|
0000cf90 75 70 28 6d 61 69 6e 25 2c 30 2c 77 69 6e 5f 6d |up(main%,0,win_m|
0000cfa0 61 78 79 25 2c 77 69 6e 5f 6d 61 78 78 25 2c 28 |axy%,win_maxx%,(|
0000cfb0 77 69 6e 5f 6d 61 78 79 25 2d 77 69 6e 5f 6d 69 |win_maxy%-win_mi|
0000cfc0 6e 79 25 29 29 0d 47 b8 10 71 25 21 38 3d 6e 66 |ny%)).G..q%!8=nf|
0000cfd0 67 3a f2 66 67 0d 47 c2 10 71 25 21 38 3d 6e 62 |g:.fg.G..q%!8=nb|
0000cfe0 67 3a f2 62 67 0d 47 cc 0f 64 65 73 6b 74 6f 70 |g:.bg.G..desktop|
0000cff0 24 3d 66 24 0d 47 d6 05 e1 0d 47 e0 04 0d 47 ea |$=f$.G....G...G.|
0000d000 13 dd 20 a4 6c 65 61 66 6e 61 6d 65 28 73 24 29 |.. .leafname(s$)|
0000d010 0d 47 f4 12 c8 95 20 c2 73 24 2c 31 29 3c 3e 22 |.G.... .s$,1)<>"|
0000d020 2e 22 0d 47 fe 11 73 24 3d c0 73 24 2c a9 73 24 |.".G..s$=.s$,.s$|
0000d030 2d 31 29 0d 48 08 05 ce 0d 48 12 0f 3d c0 73 24 |-1).H....H..=.s$|
0000d040 2c a9 73 24 2d 31 29 0d 48 1c 04 0d 48 26 11 dd |,.s$-1).H...H&..|
0000d050 20 f2 6d 6f 76 65 5f 63 6c 6f 63 6b 0d 48 30 0f | .move_clock.H0.|
0000d060 e7 20 6c 6f 63 6b 65 64 25 20 e1 0d 48 3a 26 c8 |. locked% ..H:&.|
0000d070 99 20 22 57 69 6d 70 5f 47 65 74 50 6f 69 6e 74 |. "Wimp_GetPoint|
0000d080 65 72 49 6e 66 6f 22 2c 2c 70 6f 69 6e 74 65 72 |erInfo",,pointer|
0000d090 25 0d 48 44 2f 63 6c 6f 63 6b 78 25 3d 70 6f 69 |%.HD/clockx%=poi|
0000d0a0 6e 74 65 72 25 21 30 2d 36 30 3a 63 6c 6f 63 6b |nter%!0-60:clock|
0000d0b0 79 25 3d 70 6f 69 6e 74 65 72 25 21 34 2b 31 30 |y%=pointer%!4+10|
0000d0c0 0d 48 4e 2b f2 6f 70 65 6e 75 70 28 63 6c 6f 63 |.HN+.openup(cloc|
0000d0d0 6b 25 2c 63 6c 6f 63 6b 78 25 2c 63 6c 6f 63 6b |k%,clockx%,clock|
0000d0e0 79 25 2c 32 30 30 2c 32 30 30 29 0d 48 58 05 e1 |y%,200,200).HX..|
0000d0f0 0d 48 62 04 0d 48 6c 0f dd 20 f2 6d 65 73 73 5f |.Hb..Hl.. .mess_|
0000d100 61 63 6b 0d 48 76 0f e7 20 71 25 21 31 36 3d 35 |ack.Hv.. q%!16=5|
0000d110 20 8c 0d 48 80 29 20 c8 99 20 22 58 57 69 6d 70 | ..H.) .. "XWimp|
0000d120 5f 53 74 61 72 74 54 61 73 6b 22 2c 22 52 75 6e |_StartTask","Run|
0000d130 20 22 2b 72 75 6e 66 69 6c 65 24 0d 48 8a 05 cd | "+runfile$.H...|
0000d140 0d 48 94 05 e1 0d 48 9e 04 0d 48 a8 16 dd 20 f2 |.H....H...H... .|
0000d150 66 69 6c 65 5f 72 75 6e 28 66 24 2c 66 74 29 0d |file_run(f$,ft).|
0000d160 48 b2 0f 72 75 6e 66 69 6c 65 24 3d 66 24 0d 48 |H..runfile$=f$.H|
0000d170 bc 1f 21 70 6f 69 6e 74 65 72 25 3d 28 34 38 2b |..!pointer%=(48+|
0000d180 a9 72 75 6e 66 69 6c 65 24 29 80 ac 33 0d 48 c6 |.runfile$)..3.H.|
0000d190 11 70 6f 69 6e 74 65 72 25 21 31 32 3d 33 0d 48 |.pointer%!12=3.H|
0000d1a0 d0 11 70 6f 69 6e 74 65 72 25 21 31 36 3d 35 0d |..pointer%!16=5.|
0000d1b0 48 da 12 70 6f 69 6e 74 65 72 25 21 33 36 3d 2d |H..pointer%!36=-|
0000d1c0 32 0d 48 e4 12 70 6f 69 6e 74 65 72 25 21 34 30 |2.H..pointer%!40|
0000d1d0 3d 66 74 0d 48 ee 1e 24 28 70 6f 69 6e 74 65 72 |=ft.H..$(pointer|
0000d1e0 25 2b 34 34 29 3d 72 75 6e 66 69 6c 65 24 2b bd |%+44)=runfile$+.|
0000d1f0 30 0d 48 f8 27 c8 99 20 22 57 69 6d 70 5f 53 65 |0.H.'.. "Wimp_Se|
0000d200 6e 64 4d 65 73 73 61 67 65 22 2c 31 38 2c 70 6f |ndMessage",18,po|
0000d210 69 6e 74 65 72 25 2c 30 0d 49 02 05 e1 0d 49 0c |inter%,0.I....I.|
0000d220 04 0d 49 16 12 dd 20 a4 74 72 61 6e 73 28 76 61 |..I... .trans(va|
0000d230 72 24 29 0d 49 20 1e e3 20 49 3d 30 20 b8 20 31 |r$).I .. I=0 . 1|
0000d240 30 30 3a 70 6f 69 6e 74 65 72 25 3f 49 3d 30 3a |00:pointer%?I=0:|
0000d250 ed 0d 49 2a 2d c8 99 20 22 4f 53 5f 52 65 61 64 |..I*-.. "OS_Read|
0000d260 56 61 72 56 61 6c 22 2c 76 61 72 24 2b bd 30 2c |VarVal",var$+.0,|
0000d270 70 6f 69 6e 74 65 72 25 2c 34 30 30 2c 30 0d 49 |pointer%,400,0.I|
0000d280 34 14 3d a4 72 74 6f 7a 28 70 6f 69 6e 74 65 72 |4.=.rtoz(pointer|
0000d290 25 29 0d 49 3e 04 0d 49 48 10 dd 20 f2 74 69 74 |%).I>..IH.. .tit|
0000d2a0 6c 65 6d 65 6e 75 0d 49 52 18 ea 20 78 25 2c 79 |lemenu.IR.. x%,y|
0000d2b0 25 2c 7a 25 2c 74 69 74 6c 65 24 2c 71 24 0d 49 |%,z%,title$,q$.I|
0000d2c0 5c 0f c8 97 20 78 25 2c 79 25 2c 7a 25 0d 49 66 |\... x%,y%,z%.If|
0000d2d0 0f e7 20 7a 25 3c 3e 32 20 8c 20 e1 0d 49 70 20 |.. z%<>2 . ..Ip |
0000d2e0 c8 99 20 22 57 69 6d 70 5f 47 65 74 50 6f 69 6e |.. "Wimp_GetPoin|
0000d2f0 74 65 72 49 6e 66 6f 22 2c 2c 71 25 0d 49 7a 13 |terInfo",,q%.Iz.|
0000d300 e7 20 71 25 21 31 36 3c 3e 2d 34 20 8c 20 e1 0d |. q%!16<>-4 . ..|
0000d310 49 84 2a 71 25 21 30 3d 71 25 21 31 32 3a c8 99 |I.*q%!0=q%!12:..|
0000d320 20 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 | "Wimp_GetWindow|
0000d330 49 6e 66 6f 22 2c 2c 71 25 0d 49 8e 16 e7 20 28 |Info",,q%.I... (|
0000d340 71 25 21 36 30 20 80 20 31 3c 3c 38 29 20 8c 0d |q%!60 . 1<<8) ..|
0000d350 49 98 19 20 20 74 69 74 6c 65 24 3d a4 72 74 6f |I.. title$=.rto|
0000d360 7a 28 71 25 21 37 36 29 0d 49 a2 05 cc 0d 49 ac |z(q%!76).I....I.|
0000d370 19 20 20 74 69 74 6c 65 24 3d a4 72 74 6f 7a 28 |. title$=.rtoz(|
0000d380 71 25 2b 37 36 29 0d 49 b6 05 cd 0d 49 c0 2a e7 |q%+76).I....I.*.|
0000d390 20 a7 74 69 74 6c 65 24 2c 22 3a 3a 22 29 3d 30 | .title$,"::")=0|
0000d3a0 20 80 20 a7 74 69 74 6c 65 24 2c 22 23 22 29 3d | . .title$,"#")=|
0000d3b0 30 20 8c 20 e1 0d 49 ca 18 e7 20 a7 74 69 74 6c |0 . ..I... .titl|
0000d3c0 65 24 2c 22 24 22 29 3d 30 20 8c 20 e1 0d 49 d4 |e$,"$")=0 . ..I.|
0000d3d0 12 6d 62 6c 6b 25 3d 66 69 6c 65 6d 65 6e 25 0d |.mblk%=filemen%.|
0000d3e0 49 de 17 e7 20 a7 74 69 74 6c 65 24 2c 22 3a 3a |I... .title$,"::|
0000d3f0 22 29 3e 30 20 8c 0d 49 e8 2a 20 20 f2 68 65 61 |")>0 ..I.* .hea|
0000d400 64 65 72 28 c0 74 69 74 6c 65 24 2c a7 74 69 74 |der(.title$,.tit|
0000d410 6c 65 24 2c 22 3a 3a 22 29 2d 31 29 2c 31 31 29 |le$,"::")-1),11)|
0000d420 0d 49 f2 05 cc 0d 49 fc 29 20 20 f2 68 65 61 64 |.I....I.) .head|
0000d430 65 72 28 c0 74 69 74 6c 65 24 2c a7 74 69 74 6c |er(.title$,.titl|
0000d440 65 24 2c 22 23 22 29 2d 31 29 2c 31 31 29 0d 4a |e$,"#")-1),11).J|
0000d450 06 05 cd 0d 4a 10 25 66 69 6c 65 70 61 74 68 24 |....J.%filepath$|
0000d460 3d c0 74 69 74 6c 65 24 2c a7 74 69 74 6c 65 24 |=.title$,.title$|
0000d470 2c 22 2e 22 29 2d 31 29 0d 4a 1a 2a 74 69 74 6c |,".")-1).J.*titl|
0000d480 65 24 3d c2 74 69 74 6c 65 24 2c a9 74 69 74 6c |e$=.title$,.titl|
0000d490 65 24 2d 28 a7 74 69 74 6c 65 24 2c 22 2e 22 29 |e$-(.title$,".")|
0000d4a0 29 29 0d 4a 24 1a 71 24 3d 22 22 3a e3 20 49 25 |)).J$.q$="":. I%|
0000d4b0 3d 31 20 b8 20 a9 74 69 74 6c 65 24 0d 4a 2e 15 |=1 . .title$.J..|
0000d4c0 71 24 2b 3d c1 74 69 74 6c 65 24 2c 49 25 2c 31 |q$+=.title$,I%,1|
0000d4d0 29 0d 4a 38 19 e7 20 c1 74 69 74 6c 65 24 2c 49 |).J8.. .title$,I|
0000d4e0 25 2c 31 29 3d 22 2e 22 20 8c 0d 4a 42 28 20 20 |%,1)="." ..JB( |
0000d4f0 f2 65 6e 74 72 79 28 26 30 30 2c 2d 31 2c 26 37 |.entry(&00,-1,&7|
0000d500 30 30 30 30 32 31 2c c0 71 24 2c a9 71 24 2d 31 |000021,.q$,.q$-1|
0000d510 29 29 0d 4a 4c 0b 20 20 71 24 3d 22 22 0d 4a 56 |)).JL. q$="".JV|
0000d520 05 cd 0d 4a 60 05 ed 0d 4a 6a 1e f2 65 6e 74 72 |...J`...Jj..entr|
0000d530 79 28 26 38 30 2c 2d 31 2c 26 37 30 30 30 30 32 |y(&80,-1,&700002|
0000d540 31 2c 71 24 29 0d 4a 74 20 c8 99 20 22 57 69 6d |1,q$).Jt .. "Wim|
0000d550 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 6e 66 6f |p_GetPointerInfo|
0000d560 22 2c 2c 71 25 0d 4a 7e 14 68 61 6e 64 6c 65 3d |",,q%.J~.handle=|
0000d570 26 46 46 46 46 46 46 46 46 0d 4a 88 32 c8 99 20 |&FFFFFFFF.J.2.. |
0000d580 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 |"Wimp_CreateMenu|
0000d590 22 2c 2c 66 69 6c 65 6d 65 6e 25 2c 71 25 21 30 |",,filemen%,q%!0|
0000d5a0 2d 36 34 2c 71 25 21 34 2d 31 30 0d 4a 92 05 e1 |-64,q%!4-10.J...|
0000d5b0 0d ff |..|
0000d5b2 
.