Home » Archimedes archive » Acorn User » AU 1995-01.adf » !Labeller_Label » !Label/!RunImage
!Label/!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 User » AU 1995-01.adf » !Labeller_Label |
| Filename: | !Label/!RunImage |
| Read OK: | ✔ |
| File size: | 9DB5 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > <Label$Dir>.!RunImage
20PROCinitiate
30ON ERROR PROCerror
40
50WHILE NOTexit
60PROCpoll(1+dragging%)
70ENDWHILE
80PROCclosedown
90
100DEF PROCinitiate
110changed%=FALSE
120lft%=&50
130PROCwimpinit("Label printing","!label","Label",7,2000)
140PROCwindowinfo(w%(tools%))
150toolsheight%=wh%
160toolswidth%=ww%
170maxwidth%=40:maxheight%=8
180bsize%=maxwidth%*maxheight%
190maxl%=64
200tsize%=bsize%*maxl%
210DIM char% tsize%,style% tsize%
220bold=1:italic=2:ulined=4:super=8:sub=16:dw=32
230width%=maxwidth%:height%=maxheight%
240dragging%=FALSE
250ftype%=-1
260font%=0
270editmode%=0
280DIM set%(4)
290DIM sizedata% 4
300?sizedata%=7
310sizedata%?1=8
320sizedata%?2=255
330DIM printdata% 4
340?printdata%=1
350printdata%?1=6
360printdata%?2=8
370printdata%?3=255
380PROCresetsettings
390PROCloadsettings
400ls%=255
410PROCsetflags(0)
420width%=maxwidth%:height%=maxheight%
430PROCinitprinter
440IF autoload$<>"" THEN
450 d%=FNload50(autoload$)
460ELSE
470 IF set%(4) THEN d%=FNload50(setfile$)
480ENDIF
490PROCselecticon(w%(tools%),14,(editmode%=0))
500ENDPROC
510
520DEF PROCedittitle
530IF changed% THEN a$=" *" ELSE a$=""
540PROCnewtitle(w%(edit%),FNlastbit(filename$)+" Label"+a$)
550ENDPROC
560
570DEF PROCchanged
580changed%=TRUE
590PROCedittitle
600ENDPROC
610
620DEF PROCinitprinter
630DIM pc$(5,1), pd$(5)
640pd$()="bold","italic","underline","super","sub","double"
650file=OPENIN(dir$+".PrintCodes")
660FOR p%=0 TO 5
670 pc$(p%,1)=FNreadcode(pd$(p%))
680 pc$(p%,0)=FNreadcode("c"+pd$(p%))
690NEXT p%
700header$=FNreadcode("header")
710footer$=FNreadcode("footer")
720newline$=FNreadcode("newline")
730CLOSE#file
740ENDPROC
750
760DEF FNreadcode(key$)
770found$=""
780PTR#file=0
790WHILE NOTEOF#file
800 read$=GET$#file
810 i%=INSTR(read$,":")
820 IF i% THEN
830 IF LEFT$(read$,i%-1)=key$ THEN
840 read$=MID$(read$,i%+1)
850 found$=""
860 WHILE LENread$
870 IF LEFT$(read$,1)="|" THEN
880 found$+=CHR$(ASC(MID$(read$,2,1))-64)
890 read$=MID$(read$,3)
900 ELSE
910 found$+=LEFT$(read$,1)
920 read$=MID$(read$,2)
930 ENDIF
940 ENDWHILE
950 ENDIF
960 ENDIF
970ENDWHILE
980=found$
990
1000DEF PROCinitwindows
1010info%=FNinfowindow("Label","Label printer","Barry Wickett","1.01 (10-Dec-1993")
1020PROCiconbarmenu("Label,Info>,w%(info%),Quit")
1030size%=FNwindow("size","size",0,0)
1040save%=FNsavebox(lft%,"Untitled")
1050print%=FNwindow("print","print",0,%100)
1060settings%=FNwindow("settings","settings",0,0)
1070menu3%=FNmenu("Move,Up,Down,Left,Right")
1080menu0%=FNmenu("Label,Size>-,w%(size%),Add,Delete,Wipe-,Move>,menu3%")
1090stylemenu%=FNmenu("Style,Bold,Italic,Underlined,Superscript,Subscript,Double width")
1100menu1%=FNmenu("Misc,Save>-,w%(save%),Print>-,w%(print%),Settings...")
1110menu2%=FNmenu("Justify,Left,Centre,Right")
1120edit%=FNwindow("edit","edit",FNmenu("Label,Misc>-,menu1%,Label>,menu0%,Style>,stylemenu%,Justify>,menu2%"),%111)
1130tools%=FNwindow("tools","tools",0,0)
1140multiprint%=FNwindow("printing","printing",0,0)
1150ENDPROC
1160
1170DEF FNpremenuedit
1180FOR b%=0 TO 5
1190 PROCtick(stylemenu%,b%,(cstyle%AND(1<<b%)))
1200NEXT b%
1210PROCgetcaret
1220IF cwind%=w%(edit%) OR selected% THEN shade%=FALSE ELSE shade%=TRUE
1230PROCshademenu(menu%(edit%),2,shade%)
1240PROCshademenu(menu%(edit%),3,(cwind%<>w%(edit%)))
1250PROCseticontext(w%(size%),7,STR$(width%))
1260PROCseticontext(w%(size%),8,STR$(height%))
1270d%=FNpremenuprint
1280d%=FNopensave
1290=0
1300
1310DEF FNopensave
1320PROCseticontext(w%(save%),2,filename$)
1330=0
1340
1350DEF FNpremenuprint
1360PROCseticontext(w%(print%),1,"1")
1370PROCseticontext(w%(print%),6,STR$(labels%))
1380PROCseticontext(w%(print%),8,"1")
1390=0
1400
1410DEF FNopenedit
1420PROCwindowinfo(w%(edit%))
1430!blk%=w%(tools%)
1440blk%!8-=toolsheight%+pixelh%
1450blk%!12=blk%!4+toolswidth%
1460blk%!16=blk%!8+toolsheight%
1470blk%!20=0
1480blk%!24=0
1490PROCopenwindow
1500=0
1510
1520DEF FNcloseedit
1530IF changed% THEN
1540 CASE FNquestion("File has been edited.","Save","Discard","Cancel") OF
1550 WHEN 1 : PROCopenwindowasmenu(w%(save%))
1560 WHEN 2 : changed%=FALSE
1570 ENDCASE
1580ENDIF
1590IF NOTchanged% THEN PROCclosewindow(w%(tools%))
1600=NOTchanged%
1610
1620DEF FNkeyedit
1630taken=TRUE
1640CASE TRUE OF
1650 WHEN key%=127 : PROCdeletechar
1660 WHEN key%=&18C : IF cx%>0 THEN PROCnewpos(cx%-1+(char%?FNdp(cx%-1,cy%)=0),cy%)
1670 WHEN key%=&18D : IF cx%<width% THEN PROCnewpos(cx%+1,cy%)
1680 WHEN key%=&18E : IF cy%<height%-1 THEN PROCnewpos(cx%,cy%+1)
1690 WHEN key%=&18F : IF cy%>0 THEN PROCnewpos(cx%,cy%-1)
1700 WHEN key%=&19C OR key%=&1AC : PROCnewpos(0,cy%)
1710 WHEN key%=&19D OR key%=&1AD : PROCnewpos(width%,cy%)
1720 WHEN key%=&19E OR key%=&1AE : PROCnewpos(cx%,height%-1)
1730 WHEN key%=&19F OR key%=&1AF : PROCnewpos(cx%,0)
1740 WHEN key%=13 : PROCnewpos(0,cy%-(cy%<height%-1))
1750 WHEN key%>=32 AND key%<=255 : PROCaddchar
1760OTHERWISE
1770 taken=FALSE
1780ENDCASE
1790=taken
1800
1810DEF PROCdeletechar
1820IF cx%>0 THEN
1830 ocx%=cx%
1840 PROCchanged
1850 cx%-=1
1860 char%?FNdp(cx%,cy%)=32
1870 IF style%?FNdp(cx%,cy%)ANDdw THEN
1880 style%?FNdp(cx%,cy%)=0
1890 IF editmode%>0 THEN PROCredochar(cx%,cy%)
1900 cx%-=1
1910 char%?FNdp(cx%,cy%)=32
1920 ENDIF
1930 style%?FNdp(cx%,cy%)=0
1940 IF editmode%=0 THEN
1950 endline%=ocx%
1960 tx%=cx%
1970 WHILE tx%<width%
1980 IF ocx%<width% THEN
1990 tc%=char%?FNdp(ocx%,cy%)
2000 ts%=style%?FNdp(ocx%,cy%)
2010 ELSE
2020 tc%=32
2030 ts%=0
2040 ENDIF
2050 IF tc%<>32 OR ts%<>0 THEN endline%=ocx%
2060 char%?FNdp(tx%,cy%)=tc%
2070 style%?FNdp(tx%,cy%)=ts%
2080 tx%+=1
2090 ocx%+=1
2100 ENDWHILE
2110 PROCredoline(cy%,cx%,endline%+1)
2120 ELSE
2130 PROCredochar(cx%,cy%)
2140 PROClosefont
2150 ENDIF
2160 PROCnewpos(cx%,cy%)
2170ENDIF
2180ENDPROC
2190
2200DEF PROCaddchar
2210dwflag%=((cstyle%ANDdw)>0)
2220redonext%=((style%?FNdp(cx%,cy%)ANDdw)>0)
2230endline%=-1
2240ocx%=cx%
2250IF cx%<width%+dwflag% THEN
2260 IF editmode%=0 THEN
2270 tx%=width%-1
2280 WHILE tx%>cx%+dwflag%
2290 ps%=FNdp(tx%-1+dwflag%,cy%)
2300 pd%=FNdp(tx%,cy%)
2310 char%?pd%=char%?ps%
2320 style%?pd%=style%?ps%
2330 IF (char%?pd%<>32 OR style%?pd%<>0) AND endline%=-1 THEN endline%=tx%
2340 tx%-=1
2350 ENDWHILE
2360 IF endline%=-1 THEN endline%=cx%
2370 IF style%?FNdp(width%-1,cy%)ANDdw AND char%?FNdp(width%-1,cy%)=0 THEN
2380 char%?FNdp(width%-1,cy%)=0
2390 style%?FNdp(width%-1,cy%)=32
2400 ENDIF
2410 ENDIF
2420 PROCchanged
2430 char%?FNdp(cx%,cy%)=key%
2440 style%?FNdp(cx%,cy%)=cstyle%
2450 IF dwflag% THEN
2460 char%?FNdp(cx%+1,cy%)=0
2470 style%?FNdp(cx%+1,cy%)=cstyle%
2480 ENDIF
2490 IF editmode%=0 THEN
2500 PROCredoline(cy%,cx%,endline%+1)
2510 ELSE
2520 IF redonext% AND NOTdwflag% THEN
2530 style%?FNdp(cx%+1,cy%)=0
2540 char%?FNdp(cx%+1,cy%)=32
2550 PROCredochar(cx%+1,cy%)
2560 ENDIF
2570 PROCredochar(cx%,cy%)
2580 ENDIF
2590 PROCnewpos(cx%+1-dwflag%,cy%)
2600 PROClosefont
2610ENDIF
2620ENDPROC
2630
2640DEF PROCnewpos(newx%,newy%)
2650PROCalignpos(newx%,newy%)
2660cstyle%=style%?FNdp(cx%+(cx%>0),cy%)
2670PROCsetflags(cstyle%)
2680PROCplacecaret
2690ENDPROC
2700
2710DEF PROCalignpos(newx%,newy%)
2720IF char%?FNdp(newx%,newy%)=0 THEN newx%+=1
2730cx%=newx%
2740cy%=newy%
2750ENDPROC
2760
2770DEF PROCredochar(x%,y%)
2780cs%=style%?FNdp(x%,y%)
2790PROCsetfontcolours
2800PROCwindowinfo(w%(edit%))
2810!blk%=w%(edit%)
2820blk%!4=x%*xsize%
2830blk%!8=-(y%+1)*ysize%
2840blk%!12=blk%!4+xsize%
2850blk%!16=blk%!8+ysize%
2860IF cs% AND dw THEN blk%!12+=xsize%
2870SYS"Wimp_UpdateWindow",,blk% TO more%
2880PROCgetfont(cs%)
2890WHILE more%
2900 CLG
2910 PROCdochar(x%,y%)
2920 SYS"Wimp_GetRectangle",,blk% TO more%
2930ENDWHILE
2940ENDPROC
2950
2960DEF PROCdochar(x%,y%)
2970p%=FNdp(x%,y%)
2980c%=char%?p%
2990IF c%=0 THEN
3000 x%-=1
3010 p%=FNdp(x%,y%)
3020 c%=char%?p%
3030ENDIF
3040yoff%=wy%-(y%+1)*ysize%+8
3050IF style%?p% AND super THEN yoff%+=ysize%/2-4
3060IF c%<>32 THEN SYS"Font_Paint",,CHR$(c%),%10100,wx%+x%*xsize%+2,yoff%
3070IF style%?p% AND ulined THEN
3080 SYS"Wimp_SetColour",7
3090 RECTANGLE FILL wx%+x%*xsize%,yoff%-4,(1-((style%?p% AND dw)>0))*xsize%-pixelw%,3
3100ENDIF
3110ENDPROC
3120
3130DEF PROCgetfont(type%)
3140IF type%<>ftype% THEN
3150IF font% THEN PROClosefont
3160font$="Corpus"
3170ys%=14*16
3180xs%=14*16
3190IF type% AND bold THEN font$+=".Bold" ELSE font$+=".Medium"
3200IF type% AND italic THEN font$+=".Oblique"
3210IF type% AND sub THEN ys%=ys%/2
3220IF type% AND super THEN ys%=ys%/2
3230IF type% AND dw THEN xs%=xs%*2
3240SYS"Font_FindFont",,font$,xs%,ys% TO font%
3250SYS"Font_SetFont",font%
3260ftype%=type%
3270ENDIF
3280ENDPROC
3290
3300DEF PROClosefont
3310IF font% THEN SYS"Font_LoseFont",font%
3320font%=0
3330ftype%=-1
3340ENDPROC
3350
3360DEF FNredrawedit
3370minx%=x0%/xsize%
3380miny%=-y1%/ysize%
3390maxx%=x1%/xsize%
3400maxy%=-y0%/ysize%
3410PROCsetfontcolours
3420FOR y%=miny% TO maxy%
3430 FOR x%=minx% TO maxx%
3440 IF x%>=0 AND x%<width% AND y%>=0 AND y%<height% THEN
3450 IF char%?FNdp(x%,y%)<>32 THEN
3460 PROCgetfont(style%?FNdp(x%,y%))
3470 PROCdochar(x%,y%)
3480 ELSE
3490 IF style%?FNdp(x%,y%)ANDulined THEN PROCdochar(x%,y%)
3500 ENDIF
3510 ENDIF
3520 NEXT x%
3530NEXT y%
3540IF selected% THEN PROCinvert(dsx%,dsy%,dex%,dey%)
3550PROClosefont
3560=0
3570
3580DEF FNclicksettings
3590CASE icon% OF
3600 WHEN 6
3610 PROCgetsettings
3620 PROCclosewindow(wind%)
3630 WHEN 7
3640 PROCgetsettings
3650 PROCsavesettings
3660 PROCclosewindow(wind%)
3670 WHEN 8 : PROCresetsettings
3680 WHEN 9 : PROCclosewindow(wind%)
3690 WHEN 12 : PROCshadeicon(wind%,14,NOTFNselected(wind%,icon%))
3700 WHEN 15 : PROCloadsettings
3710ENDCASE
3720=0
3730
3740DEF PROCloadsettings
3750file=OPENIN(dir$+".Settings")
3760FOR i%=0 TO 4
3770 INPUT#file,set%(i%)
3780NEXT i%
3790INPUT#file,setfile$
3800CLOSE#file
3810PROCsetsettings
3820ENDPROC
3830
3840DEF PROCsavesettings
3850file=OPENOUT(dir$+".Settings")
3860FOR i%=0 TO 4
3870 PRINT#file,set%(i%)
3880NEXT i%
3890PRINT#file,setfile$
3900CLOSE#file
3910ENDPROC
3920
3930DEF PROCgetsettings
3940FOR i%=0 TO 3
3950 set%(i%)=FNselected(w%(settings%),i%+2)
3960NEXT i%
3970set%(4)=FNselected(w%(settings%),12)
3980setfile$=FNicontext(w%(settings%),14)
3990beep%=set%(3)
4000ENDPROC
4010
4020DEF FNclickprint
4030CASE TRUE OF
4040 WHEN FNincicon(1,2,3,1,labels%)
4050 WHEN FNincicon(6,5,7,1,labels%)
4060 WHEN FNincicon(8,10,9,1,99)
4070OTHERWISE
4080 IF icon%=12 THEN PROCprint
4090ENDCASE
4100=0
4110
4120DEF PROCprint
4130LOCAL label%,status%
4140print=0
4150status%=1
4160fromlabel%=VALFNicontext(w%(print%),1)
4170tolabel%=VALFNicontext(w%(print%),6)
4180times%=VALFNicontext(w%(print%),8)
4190PROCclosemenu
4200IF fromlabel%>tolabel% OR tolabel%>labels% THEN
4210 PROCreport("Bad from/to parameters, print cancelled.")
4220ELSE
4230 pstyle%=0
4240 print=OPENOUT("Printer:")
4250 printing%=TRUE
4260 BPUT#print,header$;
4270 time%=1:label%=fromlabel%:y%=0
4280 IF FNselected(w%(print%),13) THEN
4290 paused%=FALSE
4300 PROCquickclosewindow(w%(edit%))
4310 PROCquickclosewindow(w%(tools%))
4320 PROCsetprinticons
4330 PROCseticontext(w%(multiprint%),5,"Pause")
4340 PROCopenup(w%(multiprint%))
4350 WHILE printing%
4360 SYS"OS_ReadMonotonicTime" TO mtime%
4370 mtime%+=50
4380 SYS"Wimp_PollIdle",0,blk%,mtime% TO reason%
4390 CASE reason% OF
4400 WHEN 0:IF NOTpaused% AND FNfreeinbuffer>256 THEN PROCnullprint
4410 WHEN 1:PROCredraw
4420 WHEN 2:PROCopenwindow
4430 WHEN 6:IF blk%!12=w%(multiprint%) THEN PROCclick(!blk%,blk%!4,blk%!8,blk%!12,blk%!16)
4440 WHEN 17,18:PROCmessage(blk%!4,blk%!8,blk%!16)
4450 ENDCASE
4460 ENDWHILE
4470 PROCclosewindow(w%(multiprint%))
4480 PROCfrontopenwindow(w%(edit%))
4490 ELSE
4500 SYS"Hourglass_On"
4510 WHILE printing%
4520 PROCnullprint
4530 ENDWHILE
4540 SYS"Hourglass_Off"
4550 ENDIF
4560 BPUT#print,footer$;
4570 CLOSE#print
4580ENDIF
4590ENDPROC
4600
4610DEF FNclickprinting
4620CASE icon% OF
4630 WHEN 5
4640 paused%=NOTpaused%
4650 IF paused% THEN PROCseticontext(w%(multiprint%),5,"Continue") ELSE PROCseticontext(w%(multiprint%),5,"Pause")
4660 WHEN 6 : printing%=FALSE
4670ENDCASE
4680=0
4690
4700DEF FNfreeinbuffer
4710SYS"OS_Byte",21,3
4720SYS"OS_Byte",128,252 TO ,low%,high%
4730=low%+(high%<<8)
4740
4750DEF PROCsetprinticons
4760PROCseticontext(w%(multiprint%),1,STR$(label%))
4770PROCseticontext(w%(multiprint%),4,STR$(time%))
4780pc%=100*((1+tolabel%-fromlabel%)*(time%-1)+label%-1)/((1+tolabel%-fromlabel%)*times%)
4790IF pc%>99 THEN pc%=99
4800PROCseticontext(w%(multiprint%),8,STR$(pc%))
4810ENDPROC
4820
4830DEF PROCnullprint
4840speed%=0
4850WHILE printing% AND speed%<4
4860FOR x%=0 TO width%-1
4870 p%=FNdp(x%,y%)
4880 IF char%?p% THEN
4890 IF style%?p%<>pstyle% THEN PROCpstyle(style%?p%)
4900 BPUT#print,char%?p%
4910 ENDIF
4920NEXT x%
4930PROCpstyle(0)
4940BPUT#print,newline$;
4950y%+=1
4960IF y%=height% THEN
4970 BPUT#print,newline$;
4980 y%=0
4990 label%+=1
5000 IF label%>tolabel% THEN
5010 label%=fromlabel%
5020 time%+=1
5030 IF time%>times% THEN printing%=FALSE
5040 ENDIF
5050 PROCsetprinticons
5060ENDIF
5070speed%+=1
5080ENDWHILE
5090ENDPROC
5100
5110DEF PROCpstyle(new%)
5120change%=new%EORpstyle%
5130FOR c%=0 TO 5
5140 IF change%AND(1<<c%) THEN
5150 BPUT#file,pc$(c%,-((new%AND(1<<c%))>0));
5160 ENDIF
5170NEXT c%
5180pstyle%=new%
5190ENDPROC
5200
5210DEF FNclicksize
5220CASE TRUE OF
5230 WHEN FNincicon(7,1,2,8,maxwidth%)
5240 WHEN FNincicon(8,4,3,1,maxheight%)
5250OTHERWISE
5260 IF icon%=9 THEN PROCnewsize
5270ENDCASE
5280=0
5290
5300DEF FNkeysize
5310taken=FNiconkeys(sizedata%)
5320IF taken=-2 THEN PROCnewsize
5330=taken
5340
5350DEF FNkeyprint
5360taken=FNiconkeys(printdata%)
5370IF taken=-2 THEN PROCprint
5380=taken
5390
5400DEF PROCnewsize
5410tw%=VALFNicontext(w%(size%),7)
5420th%=VALFNicontext(w%(size%),8)
5430IF tw%<8 OR tw%>maxwidth% OR th%<1 OR th%>maxheight% THEN
5440 PROCreport("Bad label size.")
5450ELSE
5460 width%=tw%
5470 height%=th%
5480 PROCsetwindowsize
5490 PROCnewpos(width%/2,height%/2)
5500 PROCopenfully(w%(edit%),FALSE)
5510 PROCchanged
5520ENDIF
5530PROCclosemenu
5540ENDPROC
5550
5560DEF FNmenuedit
5570CASE !blk% OF
5580 WHEN 0
5590 CASE blk%!4 OF
5600 WHEN 1 : PROCopenwindowsasmenu(w%(print%))
5610 WHEN 2
5620 PROCsetsettings
5630 PROCopenup(w%(settings%))
5640 ENDCASE
5650 WHEN 1
5660 CASE blk%!4 OF
5670 WHEN 1 : PROCaddlabel
5680 WHEN 2 : PROCdeletelabel
5690 WHEN 3 : PROCwipelabel
5700 WHEN 4
5710 CASE blk%!8 OF
5720 WHEN 0 : PROCmovelabel(0,-1)
5730 WHEN 1 : PROCmovelabel(0,1)
5740 WHEN 2 : PROCmovelabel(-1,0)
5750 WHEN 3 : PROCmovelabel(1,0)
5760 ENDCASE
5770 ENDCASE
5780 WHEN 2
5790 CASE blk%!4 OF
5800 WHEN 0,1,2,3,4,5
5810 oldstyle%=cstyle%
5820 IF blk%!4=3 OR blk%!4=4 THEN cstyle%=cstyle% ANDNOT(1<<(7-blk%!4))
5830 cstyle%=cstyle% EOR (1<<(blk%!4))
5840 PROCsetflags(cstyle%)
5850 IF oldstyle%<>cstyle% AND selected% THEN PROCchangeselected
5860 ENDCASE
5870 WHEN 3 : IF blk%!4>-1 THEN PROCpara(blk%!4-1)
5880ENDCASE
5890=0
5900
5910DEF PROCmovelabel(ix%,iy%)
5920SYS"Hourglass_On"
5930fx%=0:tx%=width%-1
5940fy%=0:ty%=height%-1
5950IF ix%>0 THEN SWAP fx%,tx%
5960IF iy%>0 THEN SWAP fy%,ty%
5970FOR x%=fx% TO tx% STEP SGN(tx%-fx%)
5980 FOR y%=fy% TO ty% STEP SGN(ty%-fy%)
5990 sx%=x%-ix%:sy%=y%-iy%
6000 IF sx%>=0 AND sx%<width% AND sy%>=0 AND sy%<height% THEN
6010 c%=char%?FNdp(sx%,sy%)
6020 s%=style%?FNdp(sx%,sy%)
6030 ELSE
6040 c%=32
6050 s%=0
6060 ENDIF
6070 char%?FNdp(x%,y%)=c%
6080 style%?FNdp(x%,y%)=s%
6090 NEXT y%
6100NEXT x%
6110FOR y%=0 TO height%-1
6120 IF char%?FNdp(0,y%)=0 THEN
6130 char%?FNdp(0,y%)=32
6140 style%?FNdp(0,y%)=0
6150 ENDIF
6160 p%=FNdp(width%-1,y%)
6170 IF char%?p%>=32 AND (style%?p%ANDdw)>0 THEN
6180 char%?p%=32
6190 style%?p%=0
6200 ENDIF
6210NEXT y%
6220PROCforceredraw(w%(edit%))
6230SYS"Hourglass_Off"
6240ENDPROC
6250
6260DEF PROCresetsettings
6270set%()=-1,-1,-1,-1,0
6280defaultfile$="drag file here"
6290setfile$=defaultfile$
6300PROCsetsettings
6310ENDPROC
6320
6330DEF PROCsetsettings
6340FOR i%=0 TO 3
6350 PROCselecticon(w%(settings%),i%+2,set%(i%))
6360NEXT i%
6370PROCselecticon(w%(settings%),12,set%(4))
6380PROCshadeicon(w%(settings%),12,(setfile$=defaultfile$))
6390PROCshadeicon(w%(settings%),14,NOTset%(4))
6400PROCseticontext(w%(settings%),14,setfile$)
6410ENDPROC
6420
6430DEF PROClocatecaretpos
6440PROCwindowinfo(wind%)
6450cx%=((mx%+xsize%/2)-wx%)/xsize%
6460cy%=(wy%-my%)/ysize%
6470IF cx%>width% THEN cx%=width%
6480IF cy%>=height% THEN cy%=height%-1
6490ENDPROC
6500
6510DEF FNclickedit
6520IF selected% THEN PROCdeselect
6530PROClocatecaretpos
6540CASE but% OF
6550 WHEN 4 : PROCnewpos(cx%,cy%)
6560 WHEN 1
6570 PROCalignpos(cx%,cy%)
6580 PROClosecaret
6590 dragid%=edit%
6600 PROCwindowinfo(w%(edit%))
6610 !blk%=w%(edit%)
6620 blk%!4=7
6630 blk%!8=mx%
6640 blk%!12=my%
6650 blk%!16=mx%
6660 blk%!20=my%
6670 blk%!24=wx%
6680 blk%!28=wy%-wh%
6690 blk%!32=wx%+ww%
6700 blk%!36=wy%
6710 SYS"Wimp_DragBox",,blk%
6720 dragging%=TRUE
6730 dsx%=cx%:dsy%=cy%
6740 dex%=cx%:dey%=cy%
6750 selected%=TRUE
6760ENDCASE
6770=0
6780
6790DEF FNdropedit
6800dragging%=FALSE
6810CASE TRUE OF
6820 WHEN dsx%=dex% AND dsy%=dey% : selected%=FALSE
6830 WHEN dsy%>dey% : SWAP dsx%,dex% : SWAP dsy%,dey%
6840 WHEN dsy%=dey% AND dsx%>dex% : SWAP dsx%,dex%
6850ENDCASE
6860IF selected% THEN
6870 IF dsx%=width% THEN dsx%=0:dsy%+=1
6880 cstyle%=style%?FNdp(dsx%,dsy%)
6890 PROCsetflags(cstyle%)
6900ENDIF
6910=0
6920
6930DEF PROCnull
6940PROCmouseinfo
6950IF but%=1 THEN
6960PROClocatecaretpos
6970PROCalignpos(cx%,cy%)
6980IF cx%<>dex% OR cy%<>dey% THEN
6990 PROCupdateinvert(cx%,cy%,dex%,dey%)
7000 dex%=cx%:dey%=cy%
7010ENDIF
7020ELSE
7030dragging%=FALSE
7040ENDIF
7050ENDPROC
7060
7070DEF PROCupdateinvert(ix0%,iy0%,ix1%,iy1%)
7080!blk%=w%(edit%)
7090blk%!4=0
7100blk%!8=-wh%
7110blk%!12=ww%
7120blk%!16=0
7130SYS"Wimp_UpdateWindow",,blk% TO more%
7140WHILE more%
7150 PROCinvert(ix0%,iy0%,ix1%,iy1%)
7160 SYS"Wimp_GetRectangle",,blk% TO more%
7170ENDWHILE
7180ENDPROC
7190
7200DEF PROCinvert(ix0%,iy0%,ix1%,iy1%)
7210IF iy0%>iy1% THEN
7220 SWAP ix0%,ix1%
7230 SWAP iy0%,iy1%
7240ENDIF
7250IF iy0%=iy1% AND ix0%>ix1% THEN
7260 SWAP ix0%,ix1%
7270ENDIF
7280IF ix0%<>ix1% OR iy0%<>iy1% THEN
7290 SYS"Wimp_SetColour",7+3*16
7300 IF iy0%=iy1% THEN
7310 RECTANGLE FILL ix0%*xsize%+wx%,-(iy0%+1)*ysize%+wy%,(ix1%-ix0%)*xsize%-pixelw%,ysize%-pixelh%
7320 ELSE
7330 IF iy1%>iy0%+1 THEN
7340 FOR y%=iy0%+1 TO iy1%-1
7350 RECTANGLE FILL wx%,-(y%+1)*ysize%+wy%,width%*xsize%,ysize%-pixelh%
7360 NEXT y%
7370 ENDIF
7380 RECTANGLE FILL ix0%*xsize%+wx%,-(iy0%+1)*ysize%+wy%,(width%-ix0%)*xsize%-pixelw%,ysize%-pixelh%
7390 RECTANGLE FILL wx%,-(iy1%+1)*ysize%+wy%,ix1%*xsize%-pixelw%,ysize%-pixelh%
7400 ENDIF
7410ENDIF
7420ENDPROC
7430
7440DEF PROCdeselect
7450PROCupdateinvert(dsx%,dsy%,dex%,dey%)
7460selected%=FALSE
7470ENDPROC
7480
7490DEF PROCplacecaret
7500SYS"Wimp_SetCaretPosition",w%(edit%),-1,cx%*xsize%,-(cy%+1)*ysize%,ysize%,0
7510ENDPROC
7520
7530DEF FNclicktools
7540CASE icon% OF
7550 WHEN 4 : IF label%>1 THEN PROCinclabel(-1)
7560 WHEN 6 : IF label%<labels% THEN PROCinclabel(1)
7570 WHEN 0,7,8,9,10,3
7580 IF icon%=9 THEN PROCselecticon(wind%,10,FALSE)
7590 IF icon%=10 THEN PROCselecticon(wind%,9,FALSE)
7600 oldstyle%=cstyle%
7610 PROCgetstyle
7620 IF oldstyle%<>cstyle% AND selected% THEN PROCchangeselected
7630 WHEN 13 : PROCpara(-1)
7640 WHEN 12 : PROCpara(0)
7650 WHEN 11 : PROCpara(1)
7660 WHEN 1 : PROCaddlabel
7670 WHEN 2 : PROCdeletelabel
7680 WHEN 14 : editmode%=1+FNselected(wind%,icon%)
7690ENDCASE
7700ENDIF
7710=0
7720
7730DEF PROCaddlabel
7740IF labels%<maxl% THEN
7750 PROCchanged
7760 labels%+=1
7770 label%=labels%
7780 PROCblanklabel
7790 PROCsetlabel
7800 PROCnewpos(width%/2,height%/2)
7810 PROCforceredraw(w%(edit%))
7820ELSE
7830 PROCreport("Sorry, no room to add another label.")
7840ENDIF
7850ENDPROC
7860
7870DEF PROCwipelabel
7880okay%=NOTset%(2)
7890IF NOTokay% THEN okay%=(FNquestion("Are you sure that you want to wipe this label?","","Yes","No")=2)
7900IF okay% THEN
7910 PROCchanged
7920 PROCblanklabel
7930 PROCnewpos(width%/2,height%/2)
7940 PROCforceredraw(w%(edit%))
7950ENDIF
7960ENDPROC
7970
7980DEF PROCdeletelabel
7990okay%=NOTset%(1)
8000IF NOTokay% THEN okay%=(FNquestion("Are you sure that you want to delete this label?","","Yes","No")=2)
8010IF okay% THEN
8020 PROCchanged
8030 PROCblanklabel
8040 labels%-=1
8050 t%=label%
8060 IF label%<=labels% THEN
8070 label%=t%+1
8080 s0%=FNdp(0,0)
8090 label%=labels%+1
8100 s1%=FNdp(maxwidth%-1,maxheight%-1)
8110 label%=t%
8120 d0%=FNdp(0,0)
8130 FOR p%=s0% TO s1%
8140 char%?d0%=char%?p%
8150 style%?d0%=style%?p%
8160 d0%+=1
8170 NEXT p%
8180 ELSE
8190 IF labels%<1 THEN labels%=1
8200 label%=labels%
8210 ENDIF
8220 PROCsetlabel
8230 PROCnewpos(width%/2,height%/2)
8240 PROCforceredraw(w%(edit%))
8250ENDIF
8260ENDPROC
8270
8280DEF PROCpara(newpara%)
8290PROCgetcaret
8300IF cwind%=w%(edit%) THEN
8310 flag%=FALSE
8320 FOR x%=0 TO width%-1
8330 IF char%?FNdp(x%,cy%)<>32 THEN flag%=TRUE
8340 NEXT x%
8350 IF flag% THEN
8360 leftx%=0
8370 WHILE char%?FNdp(leftx%,cy%)=32
8380 leftx%+=1
8390 ENDWHILE
8400 rightx%=width%-1
8410 WHILE char%?FNdp(rightx%,cy%)=32
8420 rightx%-=1
8430 ENDWHILE
8440 CASE newpara% OF
8450 WHEN -1 : PROCmove(leftx%,rightx%,0,TRUE)
8460 WHEN 0 : PROCmove(leftx%,rightx%,(width%-(rightx%-leftx%))/2,TRUE)
8470 WHEN 1 : PROCmove(leftx%,rightx%,width%-(1+rightx%-leftx%),TRUE)
8480 ENDCASE
8490 ENDIF
8500ENDIF
8510ENDPROC
8520
8530DEF PROCmove(lx%,rx%,tx%,movecaret)
8540PROCchanged
8550i%=1
8560IF lx%<>tx% THEN
8570IF lx%<tx% THEN
8580 i%=-i%
8590 tx%+=rx%-lx%
8600 SWAP lx%,rx%
8610ENDIF
8620FOR x%=lx% TO rx% STEP i%
8630 char%?FNdp(tx%,cy%)=char%?FNdp(x%,cy%)
8640 style%?FNdp(tx%,cy%)=style%?FNdp(x%,cy%)
8650 char%?FNdp(x%,cy%)=32
8660 style%?FNdp(x%,cy%)=0
8670 tx%+=i%
8680NEXT x%
8690IF movecaret THEN
8700 cx%+=tx%-x%
8710 PROCplacecaret
8720ENDIF
8730ENDIF
8740PROCredoline(cy%,0,width%)
8750ENDPROC
8760
8770DEF PROCredoline(y%,x0%,x1%)
8780PROCredobox(w%(edit%),x0%*xsize%,-(y%+1)*ysize%,x1%*xsize%,-y%*ysize%)
8790ENDPROC
8800
8810DEF PROCchangeselected
8820PROCchanged
8830change%=oldstyle%EORcstyle%
8840bits%=NOT((NOTchange%)ORoldstyle%)
8850IF dsy%=dey% THEN
8860 FOR cx%=dsx% TO dex%-1
8870 PROCcc(cx%,dsy%)
8880 NEXT cx%
8890 PROCredoline(dsy%,dsx%,dex%)
8900ELSE
8910 FOR cx%=dsx% TO width%-1
8920 PROCcc(cx%,dsy%)
8930 NEXT cx%
8940 PROCredoline(dsy%,dsx%,width%)
8950 IF dey%>dsy%+1 THEN
8960 FOR cy%=dsy%+1 TO dey%-1
8970 FOR cx%=0 TO width%-1
8980 PROCcc(cx%,cy%)
8990 NEXT cx%
9000 PROCredoline(cy%,0,width%)
9010 NEXT cy%
9020 ENDIF
9030 FOR cx%=0 TO dex%-1
9040 PROCcc(cx%,dey%)
9050 NEXT cx%
9060 PROCredoline(dey%,0,dex%)
9070ENDIF
9080ENDPROC
9090
9100DEF PROCcc(x%,y%)
9110p%=FNdp(x%,y%)
9120os%=style%?p%
9130style%?p%=(style%?p% ANDNOTchange%)ORbits%
9140ENDPROC
9150
9160DEF PROCgetstyle
9170cstyle%=FNselected(w%(tools%),0)ANDbold
9180cstyle%=cstyle% OR (FNselected(w%(tools%),7)ANDitalic)
9190cstyle%=cstyle% OR (FNselected(w%(tools%),8)ANDulined)
9200cstyle%=cstyle% OR (FNselected(w%(tools%),9)ANDsuper)
9210cstyle%=cstyle% OR (FNselected(w%(tools%),10)ANDsub)
9220cstyle%=cstyle% OR (FNselected(w%(tools%),3)ANDdw)
9230ls%=cstyle%
9240ENDPROC
9250
9260DEF PROCinclabel(inc%)
9270label%+=inc%
9280PROCsetlabel
9290PROCnewpos(width%/2,height%/2)
9300PROCforceredraw(w%(edit%))
9310ENDPROC
9320
9330DEF FNmenuiconbar
9340IF !blk%=1 THEN
9350 IF active%(edit%) THEN PROCclosewindow(w%(edit%))
9360 IF NOTactive%(edit%) THEN PROCclosedown
9370ENDIF
9380=0
9390
9400DEF FNclickiconbar
9410IF NOTactive%(edit%) THEN
9420filename$=FNstandardfilename(w%(save%))
9430width%=maxwidth%
9440height%=maxheight%
9450labels%=1
9460changed%=FALSE
9470PROCstartup
9480PROCblanklabel
9490PROCedittitle
9500ELSE
9510PROCopenup(w%(edit%))
9520ENDIF
9530=0
9540
9550DEF PROCstartup
9560selected%=FALSE
9570PROCsetwindowsize
9580cstyle%=0
9590label%=1
9600PROCsetlabel
9610PROCopenfully(w%(edit%),TRUE)
9620ENDPROC
9630
9640DEF PROCsetwindowsize
9650xsize%=24:ysize%=32
9660PROCsetwindowextent(w%(edit%),0,-height%*ysize%,width%*xsize%,0)
9670ENDPROC
9680
9690DEF FNdp(x%,y%)=label%*bsize%+x%+y%*maxwidth%
9700
9710DEF PROCsetflags(s%)
9720c%=s%EORls%
9730IF c%ANDbold THEN PROCselecticon(w%(tools%),0,s%ANDbold)
9740IF c%ANDitalic THEN PROCselecticon(w%(tools%),7,s%ANDitalic)
9750IF c%ANDulined THEN PROCselecticon(w%(tools%),8,s%ANDulined)
9760IF c%ANDsuper THEN PROCselecticon(w%(tools%),9,s%ANDsuper)
9770IF c%ANDsub THEN PROCselecticon(w%(tools%),10,s%ANDsub)
9780IF c%ANDdw THEN PROCselecticon(w%(tools%),3,s%ANDdw)
9790ls%=s%
9800ENDPROC
9810
9820DEF PROCsetlabel
9830PROCseticontext(w%(tools%),5,STR$(label%)+"/"+STR$(labels%))
9840ENDPROC
9850
9860DEF PROCblanklabel
9870FOR x%=0 TO maxwidth%-1
9880FOR y%=0 TO maxheight%-1
9890t%=FNdp(x%,y%)
9900char%?t%=32
9910style%?t%=0
9920NEXT y%
9930NEXT x%
9940ENDPROC
9950
9960DEF FNprepare50
9970filesize%=-1
9980=-2
9990
10000DEF FNsave50
10010LOCAL label%
10020file=OPENOUT(filename$)
10030PRINT#file,labels%
10040PRINT#file,width%
10050PRINT#file,height%
10060FOR label%=1 TO labels%
10070FOR x%=0 TO width%-1
10080FOR y%=0 TO height%-1
10090BPUT#file,char%?FNdp(x%,y%)
10100BPUT#file,style%?FNdp(x%,y%)
10110NEXT y%
10120NEXT x%
10130NEXT label%
10140CLOSE#file
10150PROCsetfiletype(filename$,lft%)
10160label%=1
10170PROCinclabel(0)
10180changed%=FALSE
10190PROCedittitle
10200=0
10210
10220DEF PROCload(file$,filetype%)
10230ok%=TRUE
10240CASE filetype% OF
10250 WHEN lft%
10260OTHERWISE
10270 ok%=FALSE
10280ENDCASE
10290IF ok% THEN ok%=FNfileexist(file$)
10300IF ok% THEN
10310 PROCreply(18,4)
10320 d%=EVAL("FNload"+STR$~(filetype%)+"(file$)")
10330ELSE
10340 IF message%<>5 THEN
10350 PROCreply(18,4)
10360 PROCreport("Cannot load this file.")
10370 ENDIF
10380ENDIF
10390ENDPROC
10400
10410DEF FNload50(file$)
10420PROCmouseinfo
10430IF wind%=w%(settings%) THEN
10440PROCseticontext(w%(settings%),14,file$)
10450PROCshadeicon(w%(settings%),12,FALSE)
10460PROCselecticon(w%(settings%),12,TRUE)
10470ELSE
10480IF changed% THEN
10490PROCreport("Current file has been changed and you cannot edit multiple files.")
10500ELSE
10510file=OPENIN(file$)
10520INPUT#file,labels%
10530INPUT#file,width%
10540INPUT#file,height%
10550FOR label%=1 TO labels%
10560FOR x%=0 TO width%-1
10570FOR y%=0 TO height%-1
10580char%?FNdp(x%,y%)=BGET#file
10590style%?FNdp(x%,y%)=BGET#file
10600NEXT y%
10610NEXT x%
10620NEXT label%
10630CLOSE#file
10640filename$=file$
10650PROCstartup
10660PROClosecaret
10670PROCforceredraw(w%(edit%))
10680changed%=FALSE
10690PROCedittitle
10700ENDIF
10710ENDIF
10720=0
10730
10740DEF FNdropsave
10750prepared%=EVAL("FNprepare"+STR$~(misc%(dragid%)))
10760IF prepared% THEN PROCdropfile(FNicontext(w%(dragid%),2),misc%(dragid%),filesize%)
10770=0
10780
10790DEF FNclicksave
10800IF icon%=0 THEN PROCsave(id%,FNicontext(wind%,2),FALSE)
10810=0
10820
10830DEF FNkeysave
10840IF key%=13 THEN PROCsave(id%,FNicontext(wind%,2),FALSE):=TRUE
10850=0
10860
10870REM ----WIMP Library routines----
10880
10890REM ==== message routines ====
10900
10910DEF PROCpoll(pollflags%)
10920SYS"Wimp_Poll",pollflags%,blk% TO reason%
10930CASE reason% OF
10940 WHEN 0:PROCnull
10950 WHEN 1:PROCredraw
10960 WHEN 2:PROCopenwindow
10970 WHEN 3:PROCclosewindow(!blk%)
10980 WHEN 4:REM pointer leaving
10990 WHEN 5:REM pointer entering
11000 WHEN 6:PROCclick(!blk%,blk%!4,blk%!8,blk%!12,blk%!16)
11010 WHEN 7:PROCenddrag
11020 WHEN 8:PROCkey(!blk%,blk%!4,blk%!8,blk%!24)
11030 WHEN 9:PROCmenuselect
11040 WHEN 10:REM scroll request
11050 WHEN 11:mycaret%=FALSE
11060 WHEN 12:mycaret%=TRUE
11070 WHEN 17,18:PROCmessage(blk%!4,blk%!8,blk%!16)
11080ENDCASE
11090ENDPROC
11100
11110DEF PROCmessage(task%,ref%,message%)
11120IF status%>0 AND message%>=1 AND message%<=7 THEN message%=-1
11130CASE message% OF
11140 WHEN 0 : PROCquit
11150 WHEN 2
11160 PROCsave(dragid%,FNstring(blk%+44),prepared%)
11170 IF saved% THEN PROCtelltoload ELSE PROCreport("Could not save file")
11180 WHEN 3 : PROCload(FNstring(blk%+44),blk%!40)
11190 WHEN 5 : PROCload(FNstring(blk%+44),blk%!40)
11200 WHEN 8 : PROCprequit
11210 WHEN 10: PROCaddtobootfile(blk%!20)
11220 WHEN &400C1 : PROCnewmode
11230ENDCASE
11240ENDPROC
11250
11260DEF PROCprequit
11270IF changed% THEN
11280 PROCreply(17,8)
11290 PROCclosewindow(w%(edit%))
11300ENDIF
11310ENDPROC
11320
11330DEF PROCaddtobootfile(handle%)
11340BPUT#file,"Run "+dir$
11350ENDPROC
11360
11370DEF PROCtelltoload
11380PROCmouseinfo
11390blk%!20=wind%
11400blk%!24=icon%
11410blk%!28=mx%
11420blk%!32=my%
11430blk%!36=filesize%
11440blk%!40=filetype%
11450$(blk%+44)=filename$+CHR$0
11460!blk%=(LEN$(blk%+44)+48)ANDNOT3
11470PROCreply(17,3)
11480ENDPROC
11490
11500DEF PROCdropfile(filename$,filetype%,filesize%)
11510PROCmouseinfo
11520blk%!12=0
11530blk%!16=1
11540blk%!20=wind%
11550blk%!24=icon%
11560blk%!28=mx%
11570blk%!32=my%
11580blk%!36=filesize%
11590blk%!40=filetype%
11600$(blk%+44)=FNlastbit(filename$)+CHR$0
11610!blk%=(LEN$(blk%+44)+48)ANDNOT3
11620SYS"Wimp_SendMessage",17,blk%,blk%!20,blk%!24
11630trans%=0
11640ENDPROC
11650
11660DEF PROCloadsprites
11670spritefile$=dir$+".Sprites"
11680PROCfileinfo(spritefile$)
11690IF exist%=1 THEN
11700ssize%=filesize%+16
11710DIM sprites% ssize%
11720!sprites%=ssize%
11730sprites%!4=0
11740sprites%!8=16
11750sprites%!12=16
11760SYS"OS_SpriteOp",10+256,sprites%,spritefile$
11770ELSE
11780sprites%=-1
11790ENDIF
11800ENDPROC
11810
11820DEF PROCfileinfo(file$)
11830SYS"OS_File",5,file$ TO exist%,,,,filesize%
11840ENDPROC
11850
11860DEF FNfilesize(file$)
11870LOCAL exist%,filesize%
11880PROCfileinfo(file$)
11890=filesize%
11900
11910DEF FNfileexist(file$)
11920LOCAL exist%,filesize%
11930PROCfileinfo(file$)
11940=exist%
11950
11960DEF PROCreply(type%,blk%!16)
11970blk%!12=ref%
11980SYS"Wimp_SendMessage",type%,blk%,task%
11990ENDPROC
12000
12010DEF PROCnewmode
12020!q%=11:q%!4=12:q%!8=4:q%!12=5:q%!16=3:q%!20=-1
12030SYS"OS_ReadVduVariables",q%,q%
12040scx%=(!q%+1)<<(q%!8)
12050scy%=(q%!4+1)<<(q%!12)
12060pixelw%=1<<q%!8:pixelh%=1<<q%!12
12070cols%=q%!16
12080SYS"Wimp_ReadPalette",,pal%
12090ENDPROC
12100
12110DEF PROCsetfontcolours
12120CASE cols% OF
12130 WHEN 1 : SYS"Font_SetFontColours",,0,1,0
12140 WHEN 3 : SYS"Font_SetFontColours",,0,1,2
12150 WHEN 15 : SYS"Font_SetFontColours",,0,1,6
12160 WHEN 15 : SYS"Font_SetFontColours",,0,1,14,!pal%,pal%!28
12170ENDCASE
12180ENDPROC
12190
12200DEF FNloadtemplate(title$)
12210SYS"Wimp_LoadTemplate",,blk%,ind%,indend%,fonttable%,title$ TO ,,ind%
12220IF sprites%<>-1 THEN blk%!64=sprites%
12230SYS"Wimp_CreateWindow",,blk% TO wind%
12240=wind%
12250
12260DEF PROCtick(menu%,item%,tick%)
12270p%=menu%+28+item%*24
12280IF tick% THEN !p%=!p% OR1 ELSE !p%=!p% ANDNOT1
12290ENDPROC
12300
12310DEF FNmenu(text$)
12320oldptr%=menuptr%
12330items%=0
12340text$+=","
12350title$=FNnextword(text$)
12360$menuptr%=title$
12370max%=LENtitle$
12380menuptr%!12=&70207
12390menuptr%!20=44
12400menuptr%!24=0
12410menuptr%+=4
12420WHILE text$<>""
12430items%+=1
12440menuptr%+=24
12450!menuptr%=0
12460menuptr%!4=0
12470word$=FNnextword(text$)
12480token$=FNtoken(word$)
12490i1%=-1
12500WHILE token$<>""
12510CASE token$ OF
12520WHEN ">" : menuptr%!4=EVAL(FNnextword(text$))
12530WHEN "/" : !menuptr%=!menuptr% OR 1
12540WHEN "-" : !menuptr%=!menuptr% OR 2
12550WHEN "!"
12560 !menuptr%=!menuptr% OR 4
12570 valid$=FNnextword(text$)
12580 IF LENvalid$ THEN
12590 DIM i1% LENvalid$+1
12600 $i1%=valid$
12610 ENDIF
12620ENDCASE
12630token$=FNtoken(word$)
12640ENDWHILE
12650menuptr%!8=(7<<24) OR %10001
12660IF !menuptr% AND 4 OR token$="#" THEN
12670PROCinditem(EVAL(FNnextword(text$)),i1%,EVAL(word$))
12680ELSE
12690IF LENword$<=12 THEN
12700$(menuptr%+12)=word$
12710ELSE
12720DIM i0% LENword$+1
12730$i0%=word$
12740PROCinditem(i0%,-1,LENword$+1)
12750ENDIF
12760IF LENword$>max% THEN max%=LENword$
12770ENDIF
12780ENDWHILE
12790!menuptr%=!menuptr% OR &80
12800menuptr%+=24
12810oldptr%!16=max%*16+12
12820=oldptr%
12830
12840DEF PROCinditem(i0%,i1%,i2%)
12850menuptr%!8=menuptr%!8 OR 1<<8
12860menuptr%!12=i0%
12870menuptr%!16=i1%
12880menuptr%!20=i2%
12890IF i2%-1>max% AND (!menuptr% AND 4)=0 THEN max%=i2%-1
12900ENDPROC
12910
12920DEF FNtoken(RETURN word$)
12930token$=""
12940IF INSTR(">/!#-",RIGHT$(word$)) THEN
12950token$=RIGHT$(word$,1)
12960word$=LEFT$(word$,LENword$-1)
12970ENDIF
12980=token$
12990
13000DEF FNnextword(RETURN text$)
13010LOCAL word$,pos%
13020pos%=INSTR(text$,",")
13030word$=LEFT$(text$,pos%-1)
13040text$=MID$(text$,pos%+1)
13050=word$
13060
13070DEF FNcricon(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,$(q%+24))
13080SYS"Wimp_CreateIcon",,q% TO icon%
13090=icon%
13100
13110DEF FNcheck(message$)
13120SYS"Wimp_DragBox",,0
13130!q%=0
13140$(q%+4)=message$
13150SYS"Wimp_ReportError",q%,19,"Message from "+program$ TO ,answer%
13160IF answer%=1 THEN =TRUE ELSE =FALSE
13170
13180DEF FNquestion(ans$(0),ans$(1),ans$(2),ans$(3))
13190LOCAL status%
13200status%=2
13210PROCclosemenu
13220FOR i%=0 TO 3
13230 IF ans$(i%)="" THEN
13240 PROCremoveicon(w%(report%),i%)
13250 ELSE
13260 PROCreiniticon(w%(report%),i%)
13270 PROCseticontext(w%(report%),i%,ans$(i%))
13280 ENDIF
13290NEXT i%
13300PROClosecaret
13310PROCopenincentre(w%(report%))
13320IF beep% THEN VDU 7
13330answer%=0
13340REPEAT
13350 SYS"Wimp_Poll",1,blk% TO reason%
13360 CASE reason% OF
13370 WHEN 1:PROCredraw
13380 WHEN 6:IF blk%!12=w%(report%) AND blk%!16>-1 THEN answer%=blk%!16
13390 WHEN 17,18:PROCmessage(blk%!4,blk%!8,blk%!16)
13400 ENDCASE
13410UNTIL answer%
13420PROCclosewindow(w%(report%))
13430=answer%
13440
13450DEF FNstring(b%)
13460LOCAL s$
13470s$=""
13480WHILE ?b%>31
13490s$+=CHR$(?b%)
13500b%+=1
13510ENDWHILE
13520=s$
13530
13540DEF PROCreport(message$)
13550d%=FNquestion(message$,"OK","","")
13560ENDPROC
13570
13580DEF FNbuttype(!q%,q%!4)
13590IF q%!4>=0 THEN SYS"Wimp_GetIconState",,q% ELSE q%!24=0
13600=((q%!24)>>12)AND15
13610
13620DEF PROCselecticon(!q%,q%!4,select%)
13630SYS"Wimp_GetIconState",,q%
13640IF select% THEN q%!8=1<<21 ELSE q%!8=0
13650q%!12=1<<21
13660IF (q%!24 AND q%!12)<>q%!8 THEN SYS"Wimp_SetIconState",,q%
13670ENDPROC
13680
13690DEF PROCseticonfc(!q%,q%!4,col%)
13700SYS"Wimp_GetIconState",,q%
13710q%!8=col%<<24
13720q%!12=15<<24
13730IF (q%!24 AND q%!12)<>q%!8 THEN SYS"Wimp_SetIconState",,q%
13740ENDPROC
13750
13760DEF PROCseticontext(!q%,q%!4,text$)
13770SYS"Wimp_GetIconState",,q%
13780text$=LEFT$(text$,q%!36-1)
13790IF $(q%!28)<>text$ THEN
13800$(q%!28)=text$
13810q%!8=0
13820q%!12=0
13830SYS"Wimp_SetIconState",,q%
13840ENDIF
13850ENDPROC
13860
13870DEF FNicontp(!q%,q%!4)
13880SYS"Wimp_GetIconState",,q%
13890=q%!28
13900
13910DEF PROCwindowinfo(!blk%)
13920SYS"Wimp_GetWindowInfo",,blk%
13930wx%=blk%!4-blk%!20
13940wy%=blk%!16-blk%!24
13950ww%=blk%!12-blk%!4
13960wh%=blk%!16-blk%!8
13970ENDPROC
13980
13990DEF FNsavebox(filetype%,standard$)
14000wind%=FNwindow("save","save",0,0)
14010PROCseticontext(w%(wind%),3,"file_"+RIGHT$("00"+STR$~(filetype%),3))
14020PROCseticontext(w%(wind%),1,standard$)
14030misc%(wind%)=filetype%
14040=wind%
14050
14060DEF FNlastbit(file$)
14070WHILE INSTR(file$,".")
14080file$=MID$(file$,INSTR(file$,".")+1)
14090ENDWHILE
14100=file$
14110
14120DEF FNnameok(file$)
14130result%=TRUE
14140IF INSTR(file$,":")+INSTR(file$,".")=0 THEN
14150PROCreport("To save, drag icon to a directory viewer "+file$)
14160result%=FALSE
14170ENDIF
14180=result%
14190
14200DEF PROCquit
14210PROCclosedown
14220ENDPROC
14230
14240DEF PROCclosedown
14250FOR i%=1 TO 255
14260WHILE fonttable%?i%
14270SYS"Font_LoseFont",i%
14280fonttable%?i%-=1
14290ENDWHILE
14300NEXT i%
14310SYS"Wimp_CloseDown",mytask%
14320END
14330
14340DEF PROCclosewindow(wind%)
14350LOCAL cid%,close%
14360cid%=FNid(wind%)
14370IF sysflags%(cid%)AND2 THEN close%=EVAL("FNclose"+id$(cid%)) ELSE close%=TRUE
14380IF close% THEN
14390 active%(cid%)=FALSE
14400 PROCquickclosewindow(w%(cid%))
14410ENDIF
14420ENDPROC
14430
14440DEF PROCquickclosewindow(!q%)
14450SYS"Wimp_CloseWindow",,q%
14460ENDPROC
14470
14480DEF PROCmouseinfo
14490SYS"Wimp_GetPointerInfo",,q%
14500mx%=!q%
14510my%=q%!4
14520but%=q%!8
14530wind%=q%!12
14540icon%=q%!16
14550ENDPROC
14560
14570DEF PROCclosemenu
14580SYS"Wimp_CreateMenu",,-1
14590ENDPROC
14600
14610DEF PROCreopen(!blk%)
14620SYS"Wimp_GetWindowState",,blk%
14630PROCopenwindow
14640PROCforceredraw(!blk%)
14650ENDPROC
14660
14670DEF PROCsetwindowextent(wind%,!q%,q%!4,q%!8,q%!12)
14680SYS"Wimp_SetExtent",wind%,q%
14690ENDPROC
14700
14710DEF PROCforceredraw(!blk%)
14720SYS"Wimp_GetWindowInfo",,blk%
14730SYS"Wimp_ForceRedraw",!blk%,blk%!44,blk%!48,blk%!52,blk%!56
14740ENDPROC
14750
14760DEF PROCopenfully(!blk%,top%)
14770SYS"Wimp_GetWindowInfo",,blk%
14780blk%!12=blk%!4+(blk%!52-blk%!44)
14790blk%!8=blk%!16-(blk%!56-blk%!48)
14800IF top% THEN blk%!28=-1
14810PROCopenwindow
14820ENDPROC
14830
14840DEF PROCstartdrag(id%,icon%)
14850dragid%=id%
14860dragicon%=icon%
14870wind%=w%(dragid%)
14880PROCwindowinfo(wind%)
14890!blk%=wind%
14900blk%!4=icon%
14910SYS"Wimp_GetIconState",,blk%
14920!blk%=0
14930blk%!4=5
14940blk%!8+=wx%
14950blk%!12+=wy%
14960blk%!16+=wx%
14970blk%!20+=wy%
14980blk%!24=0
14990blk%!28=0
15000blk%!32=scx%
15010blk%!36=scy%
15020IF drag% THEN
15030SYS"DragASprite_Start",197,1,FNicontext(wind%,icon%),blk%+8,blk%+24
15040ELSE
15050SYS"Wimp_DragBox",,blk%
15060ENDIF
15070ENDPROC
15080
15090DEF PROCopenincentre(!blk%)
15100SYS"Wimp_GetWindowState",,blk%
15110m1%=blk%!12-blk%!4
15120m2%=blk%!16-blk%!8
15130blk%!4=(scx%-m1%)>>1
15140blk%!8=(scy%-m2%)>>1
15150blk%!12=(scx%+m1%)>>1
15160blk%!16=(scy%+m2%)>>1
15170blk%!28=-1
15180PROCopenwindow
15190ENDPROC
15200
15210DEF PROCsetfiletype(file$,filetype%)
15220SYS"OS_File",&12,file$,filetype%
15230ENDPROC
15240
15250DEF PROCnewtitle(!blk%,title$)
15260SYS"Wimp_GetWindowInfo",,blk%
15270IF $(blk%!76)<>title$ THEN
15280$(blk%!76)=title$
15290IF active%(FNid(!blk%)) THEN
15300 SYS"Wimp_GetWindowOutline",,blk%
15310 SYS"Wimp_ForceRedraw",-1,blk%!4,blk%!16-44,blk%!12,blk%!16
15320ENDIF
15330ENDIF
15340ENDPROC
15350
15360DEF FNicontext(!q%,q%!4)
15370SYS"Wimp_GetIconState",,q%
15380IF q%!24AND(1<<8) THEN text$=$(q%!28) ELSE text$=$(q%+28)
15390=text$
15400
15410DEF PROCredoicon(!q%,q%!4)
15420SYS"Wimp_GetIconState",,q%
15430SYS"Wimp_ForceRedraw",!q%,q%!8,q%!12,q%!16,q%!20
15440ENDPROC
15450
15460DEF PROCdeleteicon(!q%,q%!4)
15470SYS"Wimp_DeleteIcon",,q%
15480ENDPROC
15490
15500DEF PROCiconinfo(wind%,icon%)
15510!blk%=wind%
15520blk%!4=icon%
15530SYS"Wimp_GetIconState",,blk%
15540ENDPROC
15550
15560DEF FNselected(!q%,q%!4)
15570SYS"Wimp_GetIconState",,q%
15580=(((q%!24)AND(1<<21))>0)
15590
15600DEF PROCshademenu(menu%,item%,shade%)
15610p%=menu%+36+item%*24
15620!p%=!p% ANDNOT(1<<22)
15630IF shade% THEN !p%=!p% OR(1<<22)
15640ENDPROC
15650
15660DEF PROCshadeicon(!q%,q%!4,shade%)
15670IF shade% THEN q%!8=1<<22 ELSE q%!8=0
15680q%!12=1<<22
15690SYS"Wimp_SetIconState",,q%
15700ENDPROC
15710
15720DEF PROCgetcaret
15730SYS"Wimp_GetCaretPosition",,q%
15740cwind%=!q%
15750cicon%=q%!4
15760cxoff%=q%!8
15770cyoff%=q%!12
15780cheight%=q%!16
15790cindex%=q%!20
15800ENDPROC
15810
15820DEF PROCputcaret(wind%,icon%,index%)
15830len%=LENFNicontext(wind%,icon%)
15840IF index%>len% THEN index%=len%
15850SYS"Wimp_SetCaretPosition",wind%,icon%,,,-1,index%
15860ENDPROC
15870
15880DEF PROCresetcaret(wind%,icon%)
15890SYS"Wimp_GetCaretPosition",,q%
15900IF (!q%=wind% AND q%!4=icon%) THEN
15910 index%=q%!20
15920 len%=LENFNicontext(wind%,icon%)
15930 IF index%>len% THEN index%=len%
15940 SYS"Wimp_SetCaretPosition",wind%,icon%,,,-1,index%
15950ENDIF
15960IF wind%=0 THEN SYS"Wimp_SetCaretPosition",!q%,q%!4,q%!8,q%!12,q%!16,q%!20
15970ENDPROC
15980
15990DEF PROClosecaret
16000IF mycaret% THEN SYS"Wimp_SetCaretPosition",-1
16010ENDPROC
16020
16030DEF PROCflashicon(!q%,q%!4)
16040FOR f%=1 TO 3
16050WAIT:WAIT
16060PROCselecticon(!q%,q%!4,FALSE)
16070WAIT:WAIT
16080PROCselecticon(!q%,q%!4,TRUE)
16090NEXT f%
16100ENDPROC
16110
16120DEF PROCopeniconmenu(!q%,q%!4,wind%)
16130openmenu%=wind%
16140SYS"Wimp_GetIconState",,q%
16150menux%=q%!16
16160menuy%=q%!20
16170PROCwindowinfo(!q%)
16180menux%+=wx%
16190menuy%+=wy%
16200SYS"Wimp_CreateMenu",,openmenu%,menux%,menuy%
16210ENDPROC
16220
16230DEF FNinfowindow(i1$,i2$,i3$,i4$)
16240wind%=FNwindow("info","",0,0)
16250PROCseticontext(w%(wind%),1,i1$)
16260PROCseticontext(w%(wind%),2,i2$)
16270PROCseticontext(w%(wind%),3,i3$)
16280PROCseticontext(w%(wind%),4,i4$)
16290=wind%
16300
16310DEF PROCwimpinit(name$,sprite$,work$,no%,isize%)
16320SYS"OS_GetEnv" TO autoload$
16330autoload$=MID$(autoload$,INSTR(autoload$,CHR$34,INSTR(autoload$,CHR$34)+1)+2)
16340status%=0
16350mycaret%=FALSE
16360windows%=no%+3
16370program$=name$
16380DIM blk% 2000,q% 256,ind% isize%,pal% 256
16390indend%=ind%+isize%
16400$blk%="TASK"
16410SYS"Wimp_Initialise",200,!blk%,program$ TO ,mytask%
16420iconbar%=FNcricon(-1,0,0,68,68,&2002,sprite$)
16430$q%=work$+"$Dir"
16440SYS"OS_ReadVarVal",q%,blk%,256,0,3 TO ,,len%
16450blk%?len%=13
16460dir$=$blk%
16470SYS"XOS_SWINumberFromString",,"DragASprite_Start" TO ;drag%
16480drag%=(drag% AND 1)=0
16490SYS"OS_Byte",161,28 TO ,,bit%
16500IF (bit% AND 2)=0 THEN drag%=FALSE
16510SYS"Wimp_SlotSize",-1,-1 TO appsize%
16520PROCloadsprites
16530PROCnewmode
16540tft%=&FFF
16550dft%=&AFF
16560exit=FALSE
16570DIM menubuffer% 2000,fonttable% 256
16580twind%=0
16590DIM w%(windows%),menu%(windows%),id$(windows%),misc%(windows%),active%(windows%),default%(5,windows%),sysflags%(windows%)
16600menuptr%=menubuffer%
16610FOR i%=1 TO 255
16620fonttable%?i%=0
16630NEXT i%
16640w%(0)=-2:id$(0)="iconbar"
16650SYS"Wimp_OpenTemplate",,dir$+".Templates"
16660PROCinitwindows
16670report%=FNwindow("report","report",0,0)
16680SYS"Wimp_CloseTemplate"
16690DIM ans$(3)
16700beep%=TRUE
16710ENDPROC
16720
16730REM ==== memory management ====
16740
16750DEF FNspace(size%)
16760block%=HIMEM
16770SYS"XWimp_SlotSize",appsize%+size%,-1 TO new%;noroom%
16780room%=((noroom%AND1)=0)
16790IF new%=appsize% THEN room%=FALSE
16800appinc%=new%-appsize%
16810=room%
16820
16830DEF PROCresetslot
16840SYS"Wimp_SlotSize",appsize%,-1
16850ENDPROC
16860
16870REM ==== filing system routines ====
16880
16890DEF FNstandardfilename(wind%)
16900=FNicontext(wind%,1)
16910
16920DEF PROCsave(id%,file$,prepared%)
16930filename$=file$
16940saved%=FALSE
16950IF FNnameok(filename$) THEN
16960IF prepared%=FALSE THEN prepared%=EVAL("FNprepare"+STR$~(misc%(id%)))
16970CASE prepared% OF
16980 WHEN -1
16990 SYS"OS_File",10,filename$,misc%(id%),,savebuff%,savebuff%+filesize%
17000 PROCresetslot
17010 WHEN -2
17020 d%=EVAL("FNsave"+STR$~(misc%(id%)))
17030ENDCASE
17040PROCclosemenu
17050PROCseticontext(w%(id%),2,filename$)
17060saved%=TRUE
17070ENDIF
17080ENDIF
17090ENDPROC
17100
17110REM ==== menu routines ====
17120
17130DEF PROCopenwindowasmenu(window%)
17140PROCwindowinfo(window%)
17150PROCmouseinfo
17160menux%=mx%-ww%/2
17170menuy%=my%+wh%/2
17180openmenu%=window%
17190id%=FNid(window%)
17200PROCreopenmenu
17210ENDPROC
17220
17230DEF PROCiconbarmenu(text$)
17240menu%(0)=FNmenu(text$)
17250barheight%=items%*44+96
17260ENDPROC
17270
17280DEF PROCmenuselect
17290d%=EVAL("FNmenu"+id$(menuid%))
17300PROCmouseinfo
17310IF but%=1 THEN PROCreopenmenu
17320ENDPROC
17330
17340DEF PROCreopenmenu
17350IF sysflags%(id%)AND4 THEN d%=EVAL("FNpremenu"+id$(id%))
17360SYS"Wimp_CreateMenu",,openmenu%,menux%,menuy%
17370ENDPROC
17380
17390DEF PROCopenmenu(id%)
17400IF menu%(id%) THEN
17410menuid%=id%
17420openmenu%=menu%(id%)
17430IF id%=0 THEN menuy%=barheight% ELSE menuy%=my%
17440menux%=mx%-(openmenu%!16)/2-16
17450PROCreopenmenu
17460ENDIF
17470ENDPROC
17480
17490REM ==== window routines ====
17500
17510DEF FNwindow(wind$,name$,menu%,flags%)
17520twind%+=1
17530w%(twind%)=FNloadtemplate(wind$)
17540PROCwindowinfo(w%(twind%))
17550FOR d%=0 TO 5
17560default%(d%,twind%)=!(blk%+(d%<<2)+4)
17570NEXT d%
17580id$(twind%)=name$
17590menu%(twind%)=menu%
17600sysflags%(twind%)=flags%
17610=twind%
17620
17630DEF PROCredraw
17640id%=FNid(!blk%)
17650PROCwindowinfo(!blk%)
17660SYS"Wimp_RedrawWindow",,blk% TO more%
17670WHILE more%
17680x0%=blk%!28-wx%
17690y0%=blk%!32-wy%
17700x1%=blk%!36-wx%
17710y1%=blk%!40-wy%
17720d%=EVAL("FNredraw"+id$(id%))
17730SYS"Wimp_GetRectangle",,blk% TO more%
17740ENDWHILE
17750ENDPROC
17760
17770DEF FNid(find%)
17780found%=windows%
17790FOR i%=0 TO windows%
17800IF w%(i%)=find% THEN found%=i%
17810NEXT i%
17820=found%
17830
17840DEF PROCopenup(wind%)
17850!blk%=wind%
17860id%=FNid(wind%)
17870IF NOTactive%(id%) THEN
17880FOR d%=0 TO 5
17890!(blk%+(d%<<2)+4)=default%(d%,id%)
17900NEXT d%
17910ELSE
17920SYS"Wimp_GetWindowState",,blk%
17930ENDIF
17940blk%!28=-1
17950PROCopenwindow
17960ENDPROC
17970
17980DEF PROCopenwindow
17990id%=FNid(!blk%)
18000SYS"Wimp_OpenWindow",,blk%
18010active%(id%)=TRUE
18020IF sysflags%(id%)AND1 THEN d%=EVAL("FNopen"+id$(id%))
18030ENDPROC
18040
18050DEF PROCfrontopenwindow(!blk%)
18060SYS"Wimp_GetWindowState",,blk%
18070blk%!28=-1
18080PROCopenwindow
18090ENDPROC
18100
18110DEF PROCredobox(wind%,x0%,y0%,x1%,y1%)
18120IF x1%<x0% THEN SWAP x0%,x1%
18130IF y1%<y0% THEN SWAP y0%,y1%
18140SYS"Wimp_ForceRedraw",wind%,x0%,y0%,x1%,y1%
18150ENDPROC
18160
18170DEF PROCdeletewindow(RETURN !q%)
18180SYS"Wimp_DeleteWindow",,q%
18190!q%=0
18200ENDPROC
18210
18220REM ==== icon routines ====
18230
18240DEF PROCclick(mx%,my%,but%,wind%,icon%)
18250IF FNbuttype(wind%,icon%)=9 THEN PROCflashicon(wind%,icon%)
18260id%=FNid(wind%)
18270CASE but% OF
18280WHEN 64
18290 CASE FNbuttype(w%(id%),icon%) OF
18300 WHEN 6,7,8,10,14 : PROCstartdrag(id%,icon%)
18310 ENDCASE
18320WHEN 2 : PROCopenmenu(id%)
18330OTHERWISE
18340d%=EVAL("FNclick"+id$(id%))
18350ENDCASE
18360ENDPROC
18370
18380DEF PROCenddrag
18390PROCmouseinfo
18400IF drag% THEN SYS"DragASprite_Stop"
18410d%=EVAL("FNdrop"+id$(dragid%))
18420ENDPROC
18430
18440DEF PROCkey(wind%,icon%,xpos%,key%)
18450taken=EVAL("FNkey"+id$(FNid(wind%)))
18460IF taken=FALSE THEN SYS"Wimp_ProcessKey",key%
18470ENDPROC
18480
18490DEF FNincicon(iicon%,dec%,inc%,lb%,ub%)
18500change%=FALSE
18510IF icon%=dec% OR icon%=inc% THEN
18520val%=VALFNicontext(wind%,iicon%)
18530val%+=(icon%=dec%)*2+1
18540IF val%>ub% THEN val%=ub% ELSE IF val%<lb% THEN val%=lb%
18550PROCseticontext(wind%,iicon%,STR$(val%))
18560PROCresetcaret(wind%,iicon%)
18570change%=TRUE
18580ENDIF
18590ENDIF
18600=change%
18610
18620DEF PROCremoveicon(!q%,q%!4)
18630q%!8=(1<<24)
18640q%!12=(1<<2)OR(1<<5)OR(15<<24)OR(15<<12)
18650SYS"Wimp_SetIconState",,q%
18660ENDPROC
18670
18680DEF PROCreiniticon(!q%,q%!4)
18690q%!8=(1<<2)OR(1<<5)OR(7<<24)OR(3<<12)
18700q%!12=(1<<2)OR(1<<5)OR(15<<12)OR(15<<24)
18710SYS"Wimp_SetIconState",,q%
18720ENDPROC
18730
18740DEF FNiconkeys(data%)
18750taken=TRUE
18760icons%=0
18770WHILE data%?icons%<255
18780 icons%+=1
18790ENDWHILE
18800icons%-=1
18810found%=-1
18820FOR p%=0 TO icons%
18830 IF data%?p%=icon% THEN found%=p%
18840NEXT p%
18850newicon%=-1
18860IF found%>=0 THEN
18870 CASE key% OF
18880 WHEN 13 : newicon%=found%+1
18890 WHEN &18E : IF found%<icons% THEN newicon%=found%+1
18900 WHEN &18F : IF found%>0 THEN newicon%=found%-1
18910 WHEN &19E,&1AE,&1BE : newicon%=icons%
18920 WHEN &19F,&1AF,&1BF : newicon%=0
18930 OTHERWISE
18940 taken=FALSE
18950 ENDCASE
18960ENDIF
18970IF newicon%>icons% THEN taken=-2:newicon%=-1
18980IF newicon%>=0 THEN
18990 PROCgetcaret
19000 PROCputcaret(wind%,data%?newicon%,cindex%)
19010ENDIF
19020=taken
19030
19040REM ==== and the rest ====
19050
19060DEF FNclick=0
19070
19080DEF FNredraw=0
19090
19100DEF FNkey=0
19110
19120DEF FNdrop=0
19130
19140DEF PROCtemp(st$)
19150FOR a%=1 TO LENst$
19160 PRINTASCMID$(st$,a%,1)
19170NEXT a%
19180ENDPROC
19190
19200DEF PROCerror
19210SYS"Hourglass_Smash"
19220CASE status% OF
19230 WHEN 1
19240 IF print THEN CLOSE#print
19250 report$="Print error, print cancelled"
19260OTHERWISE
19270 report$="An uncontrolable error has occured ("+REPORT$+STR$(ERL)+"), shall I exit?"
19280ENDCASE
19290exit=FNcheck(report$)
19300status%=0
19310ENDPROC
� > <Label$Dir>.!RunImage
�initiate
� � �error
(
2 ȕ �exit
<�poll(1+dragging%)
F�
P�closedown
Z
d� �initiate
nchanged%=�
x lft%=&50
�7�wimpinit("Label printing","!label","Label",7,2000)
��windowinfo(w%(tools%))
�toolsheight%=wh%
�toolswidth%=ww%
� maxwidth%=40:maxheight%=8
� bsize%=maxwidth%*maxheight%
� maxl%=64
�tsize%=bsize%*maxl%
� � char% tsize%,style% tsize%
�1bold=1:italic=2:ulined=4:super=8:sub=16:dw=32
�'width%=maxwidth%:height%=maxheight%
�dragging%=�
�
ftype%=-1
font%=0
editmode%=0
� set%(4)
"� sizedata% 4
,?sizedata%=7
6sizedata%?1=8
@sizedata%?2=255
J� printdata% 4
T?printdata%=1
^printdata%?1=6
hprintdata%?2=8
rprintdata%?3=255
|�resetsettings
��loadsettings
� ls%=255
��setflags(0)
�'width%=maxwidth%:height%=maxheight%
��initprinter
�� autoload$<>"" �
� d%=�load50(autoload$)
��
�& � set%(4) � d%=�load50(setfile$)
��
�,�selecticon(w%(tools%),14,(editmode%=0))
��
�
� �edittitle
� changed% � a$=" *" � a$=""
8�newtitle(w%(edit%),�lastbit(filename$)+" Label"+a$)
&�
0
:� �changed
Dchanged%=�
N�edittitle
X�
b
l� �initprinter
v� pc$(5,1), pd$(5)
�<pd$()="bold","italic","underline","super","sub","double"
� file=�(dir$+".PrintCodes")
�� p%=0 � 5
�" pc$(p%,1)=�readcode(pd$(p%))
�& pc$(p%,0)=�readcode("c"+pd$(p%))
�� p%
� header$=�readcode("header")
� footer$=�readcode("footer")
�!newline$=�readcode("newline")
�
�#file
��
�
�� �readcode(key$)
found$=""
�#file=0
ȕ ��#file
read$=�#file
* i%=�read$,":")
4 � i% �
> � �read$,i%-1)=key$ �
H read$=�read$,i%+1)
R found$=""
\ ȕ �read$
f � �read$,1)="|" �
p* found$+=�(�(�read$,2,1))-64)
z read$=�read$,3)
�
�
� found$+=�read$,1)
� read$=�read$,2)
�
�
� �
� �
� �
��
� =found$
�
�� �initwindows
�Rinfo%=�infowindow("Label","Label printer","Barry Wickett","1.01 (10-Dec-1993")
�.�iconbarmenu("Label,Info>,w%(info%),Quit")
$size%=�window("size","size",0,0)
#save%=�savebox(lft%,"Untitled")
*print%=�window("print","print",0,%100)
$0settings%=�window("settings","settings",0,0)
.+menu3%=�menu("Move,Up,Down,Left,Right")
8Hmenu0%=�menu("Label,Size>-,w%(size%),Add,Delete,Wipe-,Move>,menu3%")
BWstylemenu%=�menu("Style,Bold,Italic,Underlined,Superscript,Subscript,Double width")
LHmenu1%=�menu("Misc,Save>-,w%(save%),Print>-,w%(print%),Settings...")
V-menu2%=�menu("Justify,Left,Centre,Right")
`redit%=�window("edit","edit",�menu("Label,Misc>-,menu1%,Label>,menu0%,Style>,stylemenu%,Justify>,menu2%"),%111)
j'tools%=�window("tools","tools",0,0)
t2multiprint%=�window("printing","printing",0,0)
~�
�
�� �premenuedit
�� b%=0 � 5
�, �tick(stylemenu%,b%,(cstyle%�(1<<b%)))
�� b%
�
�getcaret
�8� cwind%=w%(edit%) � selected% � shade%=� � shade%=�
�%�shademenu(menu%(edit%),2,shade%)
�2�shademenu(menu%(edit%),3,(cwind%<>w%(edit%)))
�'�seticontext(w%(size%),7,�(width%))
�(�seticontext(w%(size%),8,�(height%))
�d%=�premenuprint
d%=�opensave
=0
� �opensave
('�seticontext(w%(save%),2,filename$)
2=0
<
F� �premenuprint
P"�seticontext(w%(print%),1,"1")
Z)�seticontext(w%(print%),6,�(labels%))
d"�seticontext(w%(print%),8,"1")
n=0
x
�� �openedit
��windowinfo(w%(edit%))
�!blk%=w%(tools%)
� blk%!8-=toolsheight%+pixelh%
� blk%!12=blk%!4+toolswidth%
� blk%!16=blk%!8+toolsheight%
�
blk%!20=0
�
blk%!24=0
��openwindow
�=0
�
�� �closeedit
�� changed% �
G Ȏ �question("File has been edited.","Save","Discard","Cancel") �
* � 1 : �openwindowasmenu(w%(save%))
� 2 : changed%=�
" �
,�
6*� �changed% � �closewindow(w%(tools%))
@=�changed%
J
T� �keyedit
^ taken=�
h
Ȏ � �
r � key%=127 : �deletechar
|I � key%=&18C : � cx%>0 � �newpos(cx%-1+(char%?�dp(cx%-1,cy%)=0),cy%)
�5 � key%=&18D : � cx%<width% � �newpos(cx%+1,cy%)
�8 � key%=&18E : � cy%<height%-1 � �newpos(cx%,cy%+1)
�0 � key%=&18F : � cy%>0 � �newpos(cx%,cy%-1)
�. � key%=&19C � key%=&1AC : �newpos(0,cy%)
�3 � key%=&19D � key%=&1AD : �newpos(width%,cy%)
�6 � key%=&19E � key%=&1AE : �newpos(cx%,height%-1)
�. � key%=&19F � key%=&1AF : �newpos(cx%,0)
�0 � key%=13 : �newpos(0,cy%-(cy%<height%-1))
�' � key%>=32 � key%<=255 : �addchar
�
�
taken=�
��
�
=taken
� �deletechar
� cx%>0 �
& ocx%=cx%
0 �changed
: cx%-=1
D char%?�dp(cx%,cy%)=32
N � style%?�dp(cx%,cy%)�dw �
X style%?�dp(cx%,cy%)=0
b* � editmode%>0 � �redochar(cx%,cy%)
l cx%-=1
v char%?�dp(cx%,cy%)=32
� �
� style%?�dp(cx%,cy%)=0
� � editmode%=0 �
� endline%=ocx%
� tx%=cx%
� ȕ tx%<width%
� � ocx%<width% �
�# tc%=char%?�dp(ocx%,cy%)
�$ ts%=style%?�dp(ocx%,cy%)
� �
� tc%=32
� ts%=0
� �
, � tc%<>32 � ts%<>0 � endline%=ocx%
char%?�dp(tx%,cy%)=tc%
! style%?�dp(tx%,cy%)=ts%
tx%+=1
* ocx%+=1
4 �
>% �redoline(cy%,cx%,endline%+1)
H �
R �redochar(cx%,cy%)
\ �losefont
f �
p �newpos(cx%,cy%)
z�
��
�
�� �addchar
� dwflag%=((cstyle%�dw)>0)
�*redonext%=((style%?�dp(cx%,cy%)�dw)>0)
�endline%=-1
� ocx%=cx%
�� cx%<width%+dwflag% �
� � editmode%=0 �
� tx%=width%-1
� ȕ tx%>cx%+dwflag%
�$ ps%=�dp(tx%-1+dwflag%,cy%)
� pd%=�dp(tx%,cy%)
char%?pd%=char%?ps%
style%?pd%=style%?ps%
H � (char%?pd%<>32 � style%?pd%<>0) � endline%=-1 � endline%=tx%
$ tx%-=1
. �
8$ � endline%=-1 � endline%=cx%
BC � style%?�dp(width%-1,cy%)�dw � char%?�dp(width%-1,cy%)=0 �
L# char%?�dp(width%-1,cy%)=0
V% style%?�dp(width%-1,cy%)=32
` �
j �
t �changed
~ char%?�dp(cx%,cy%)=key%
�! style%?�dp(cx%,cy%)=cstyle%
� � dwflag% �
� char%?�dp(cx%+1,cy%)=0
�% style%?�dp(cx%+1,cy%)=cstyle%
� �
� � editmode%=0 �
�% �redoline(cy%,cx%,endline%+1)
� �
� � redonext% � �dwflag% �
�! style%?�dp(cx%+1,cy%)=0
�! char%?�dp(cx%+1,cy%)=32
� �redochar(cx%+1,cy%)
�
�redochar(cx%,cy%)
�
�newpos(cx%+1-dwflag%,cy%)
( �losefont
2�
<�
F
P� �newpos(newx%,newy%)
Z�alignpos(newx%,newy%)
d'cstyle%=style%?�dp(cx%+(cx%>0),cy%)
n�setflags(cstyle%)
x�placecaret
��
�
� � �alignpos(newx%,newy%)
�)� char%?�dp(newx%,newy%)=0 � newx%+=1
�
cx%=newx%
�
cy%=newy%
��
�
�� �redochar(x%,y%)
�cs%=style%?�dp(x%,y%)
��setfontcolours
��windowinfo(w%(edit%))
�!blk%=w%(edit%)
blk%!4=x%*xsize%
blk%!8=-(y%+1)*ysize%
blk%!12=blk%!4+xsize%
"blk%!16=blk%!8+ysize%
, � cs% � dw � blk%!12+=xsize%
6'ș"Wimp_UpdateWindow",,blk% � more%
@�getfont(cs%)
J ȕ more%
T �
^ �dochar(x%,y%)
h) ș"Wimp_GetRectangle",,blk% � more%
r�
|�
�
�� �dochar(x%,y%)
�p%=�dp(x%,y%)
�c%=char%?p%
� � c%=0 �
� x%-=1
� p%=�dp(x%,y%)
� c%=char%?p%
��
� yoff%=wy%-(y%+1)*ysize%+8
�+� style%?p% � super � yoff%+=ysize%/2-4
�A� c%<>32 � ș"Font_Paint",,�(c%),%10100,wx%+x%*xsize%+2,yoff%
�� style%?p% � ulined �
ș"Wimp_SetColour",7
K ȓ Ȑ wx%+x%*xsize%,yoff%-4,(1-((style%?p% � dw)>0))*xsize%-pixelw%,3
�
&�
0
:� �getfont(type%)
D� type%<>ftype% �
N� font% � �losefont
Xfont$="Corpus"
b
ys%=14*16
l
xs%=14*16
v6� type% � bold � font$+=".Bold" � font$+=".Medium"
�(� type% � italic � font$+=".Oblique"
� � type% � sub � ys%=ys%/2
� � type% � super � ys%=ys%/2
� � type% � dw � xs%=xs%*2
�,ș"Font_FindFont",,font$,xs%,ys% � font%
�ș"Font_SetFont",font%
�ftype%=type%
��
��
�
�� �losefont
�%� font% � ș"Font_LoseFont",font%
� font%=0
ftype%=-1
�
� �redrawedit
*minx%=x0%/xsize%
4miny%=-y1%/ysize%
>maxx%=x1%/xsize%
Hmaxy%=-y0%/ysize%
R�setfontcolours
\� y%=miny% � maxy%
f � x%=minx% � maxx%
p2 � x%>=0 � x%<width% � y%>=0 � y%<height% �
z" � char%?�dp(x%,y%)<>32 �
�' �getfont(style%?�dp(x%,y%))
� �dochar(x%,y%)
� �
�7 � style%?�dp(x%,y%)�ulined � �dochar(x%,y%)
� �
� �
�
� x%
�� y%
�.� selected% � �invert(dsx%,dsy%,dex%,dey%)
�
�losefont
�=0
�
�� �clicksettings
Ȏ icon% �
� 6
�getsettings
$ �closewindow(wind%)
. � 7
8 �getsettings
B �savesettings
L �closewindow(wind%)
V � 8 : �resetsettings
` � 9 : �closewindow(wind%)
j9 � 12 : �shadeicon(wind%,14,��selected(wind%,icon%))
t � 15 : �loadsettings
~�
�=0
�
�� �loadsettings
� file=�(dir$+".Settings")
�� i%=0 � 4
� �#file,set%(i%)
�� i%
��#file,setfile$
�
�#file
��setsettings
��
�
� �savesettings
file=�(dir$+".Settings")
� i%=0 � 4
�#file,set%(i%)
(� i%
2�#file,setfile$
<
�#file
F�
P
Z� �getsettings
d� i%=0 � 3
n, set%(i%)=�selected(w%(settings%),i%+2)
x� i%
�'set%(4)=�selected(w%(settings%),12)
�(setfile$=�icontext(w%(settings%),14)
�beep%=set%(3)
��
�
�� �clickprint
�
Ȏ � �
�! � �incicon(1,2,3,1,labels%)
�! � �incicon(6,5,7,1,labels%)
� � �incicon(8,10,9,1,99)
�
� � icon%=12 � �print
��
=0
� �print
"� label%,status%
, print=0
6
status%=1
@'fromlabel%=��icontext(w%(print%),1)
J%tolabel%=��icontext(w%(print%),6)
T#times%=��icontext(w%(print%),8)
^�closemenu
h.� fromlabel%>tolabel% � tolabel%>labels% �
r9 �report("Bad from/to parameters, print cancelled.")
|�
� pstyle%=0
� print=�("Printer:")
� printing%=�
� �#print,header$;
�$ time%=1:label%=fromlabel%:y%=0
�" � �selected(w%(print%),13) �
� paused%=�
�$ �quickclosewindow(w%(edit%))
�% �quickclosewindow(w%(tools%))
� �setprinticons
�/ �seticontext(w%(multiprint%),5,"Pause")
� �openup(w%(multiprint%))
� ȕ printing%
+ ș"OS_ReadMonotonicTime" � mtime%
mtime%+=50
3 ș"Wimp_PollIdle",0,blk%,mtime% � reason%
& Ȏ reason% �
0; � 0:� �paused% � �freeinbuffer>256 � �nullprint
: � 1:�redraw
D � 2:�openwindow
NW � 6:� blk%!12=w%(multiprint%) � �click(!blk%,blk%!4,blk%!8,blk%!12,blk%!16)
X3 � 17,18:�message(blk%!4,blk%!8,blk%!16)
b �
l �
v% �closewindow(w%(multiprint%))
�# �frontopenwindow(w%(edit%))
� �
� ș"Hourglass_On"
� ȕ printing%
� �nullprint
� �
� ș"Hourglass_Off"
� �
� �#print,footer$;
�
�#print
��
��
�
� �clickprinting
Ȏ icon% �
� 5
paused%=�paused%
*h � paused% � �seticontext(w%(multiprint%),5,"Continue") � �seticontext(w%(multiprint%),5,"Pause")
4 � 6 : printing%=�
>�
H=0
R
\� �freeinbuffer
fș"OS_Byte",21,3
p%ș"OS_Byte",128,252 � ,low%,high%
z=low%+(high%<<8)
�
�� �setprinticons
�-�seticontext(w%(multiprint%),1,�(label%))
�,�seticontext(w%(multiprint%),4,�(time%))
�Ypc%=100*((1+tolabel%-fromlabel%)*(time%-1)+label%-1)/((1+tolabel%-fromlabel%)*times%)
�� pc%>99 � pc%=99
�*�seticontext(w%(multiprint%),8,�(pc%))
��
�
�� �nullprint
� speed%=0
�ȕ printing% � speed%<4
�� x%=0 � width%-1
p%=�dp(x%,y%)
� char%?p% �
1 � style%?p%<>pstyle% � �pstyle(style%?p%)
$ �#print,char%?p%
. �
8� x%
B�pstyle(0)
L�#print,newline$;
V y%+=1
`� y%=height% �
j �#print,newline$;
t
y%=0
~ label%+=1
� � label%>tolabel% �
� label%=fromlabel%
� time%+=1
�$ � time%>times% � printing%=�
� �
� �setprinticons
��
�
speed%+=1
��
��
�
�� �pstyle(new%)
change%=new%�pstyle%
� c%=0 � 5
� change%�(1<<c%) �
+ �#file,pc$(c%,-((new%�(1<<c%))>0));
( �
2� c%
<pstyle%=new%
F�
P
Z� �clicksize
d
Ȏ � �
n# � �incicon(7,1,2,8,maxwidth%)
x$ � �incicon(8,4,3,1,maxheight%)
�
� � icon%=9 � �newsize
��
�=0
�
�� �keysize
� taken=�iconkeys(sizedata%)
�� taken=-2 � �newsize
�
=taken
�
�� �keyprint
� taken=�iconkeys(printdata%)
�� taken=-2 � �print
=taken
� �newsize
" tw%=��icontext(w%(size%),7)
, th%=��icontext(w%(size%),8)
66� tw%<8 � tw%>maxwidth% � th%<1 � th%>maxheight% �
@ �report("Bad label size.")
J�
T width%=tw%
^ height%=th%
h �setwindowsize
r! �newpos(width%/2,height%/2)
| �openfully(w%(edit%),�)
� �changed
��
��closemenu
��
�
�� �menuedit
�Ȏ !blk% �
� � 0
� Ȏ blk%!4 �
�. � 1 : �openwindowsasmenu(w%(print%))
�
� 2
� �setsettings
�" �openup(w%(settings%))
�
� 1
Ȏ blk%!4 �
& � 1 : �addlabel
0 � 2 : �deletelabel
: � 3 : �wipelabel
D
� 4
N Ȏ blk%!8 �
X$ � 0 : �movelabel(0,-1)
b# � 1 : �movelabel(0,1)
l$ � 2 : �movelabel(-1,0)
v# � 3 : �movelabel(1,0)
�
�
� �
� � 2
� Ȏ blk%!4 �
� � 0,1,2,3,4,5
� oldstyle%=cstyle%
�E � blk%!4=3 � blk%!4=4 � cstyle%=cstyle% ��(1<<(7-blk%!4))
�+ cstyle%=cstyle% � (1<<(blk%!4))
� �setflags(cstyle%)
�> � oldstyle%<>cstyle% � selected% � �changeselected
� �
�) � 3 : � blk%!4>-1 � �para(blk%!4-1)
��
=0
� �movelabel(ix%,iy%)
ș"Hourglass_On"
*fx%=0:tx%=width%-1
4fy%=0:ty%=height%-1
>� ix%>0 � Ȕ fx%,tx%
H� iy%>0 � Ȕ fy%,ty%
R � x%=fx% � tx% � �(tx%-fx%)
\! � y%=fy% � ty% � �(ty%-fy%)
f sx%=x%-ix%:sy%=y%-iy%
p6 � sx%>=0 � sx%<width% � sy%>=0 � sy%<height% �
z c%=char%?�dp(sx%,sy%)
� s%=style%?�dp(sx%,sy%)
� �
� c%=32
� s%=0
� �
� char%?�dp(x%,y%)=c%
� style%?�dp(x%,y%)=s%
�
� y%
�� x%
�� y%=0 � height%-1
� � char%?�dp(0,y%)=0 �
� char%?�dp(0,y%)=32
� style%?�dp(0,y%)=0
�
p%=�dp(width%-1,y%)
) � char%?p%>=32 � (style%?p%�dw)>0 �
$ char%?p%=32
. style%?p%=0
8 �
B� y%
L�forceredraw(w%(edit%))
Vș"Hourglass_Off"
`�
j
t� �resetsettings
~set%()=-1,-1,-1,-1,0
�!defaultfile$="drag file here"
�setfile$=defaultfile$
��setsettings
��
�
�� �setsettings
�� i%=0 � 3
�. �selecticon(w%(settings%),i%+2,set%(i%))
�� i%
�)�selecticon(w%(settings%),12,set%(4))
�8�shadeicon(w%(settings%),12,(setfile$=defaultfile$))
�)�shadeicon(w%(settings%),14,�set%(4))
+�seticontext(w%(settings%),14,setfile$)
�
� �locatecaretpos
(�windowinfo(wind%)
2#cx%=((mx%+xsize%/2)-wx%)/xsize%
<cy%=(wy%-my%)/ysize%
F � cx%>width% � cx%=width%
P"� cy%>=height% � cy%=height%-1
Z�
d
n� �clickedit
x� selected% � �deselect
��locatecaretpos
�
Ȏ but% �
� � 4 : �newpos(cx%,cy%)
� � 1
� �alignpos(cx%,cy%)
� �losecaret
� dragid%=edit%
� �windowinfo(w%(edit%))
� !blk%=w%(edit%)
� blk%!4=7
� blk%!8=mx%
� blk%!12=my%
� blk%!16=mx%
blk%!20=my%
blk%!24=wx%
blk%!28=wy%-wh%
" blk%!32=wx%+ww%
, blk%!36=wy%
6 ș"Wimp_DragBox",,blk%
@ dragging%=�
J dsx%=cx%:dsy%=cy%
T dex%=cx%:dey%=cy%
^ selected%=�
h�
r=0
|
�� �dropedit
�dragging%=�
�
Ȏ � �
�+ � dsx%=dex% � dsy%=dey% : selected%=�
�/ � dsy%>dey% : Ȕ dsx%,dex% : Ȕ dsy%,dey%
�, � dsy%=dey% � dsx%>dex% : Ȕ dsx%,dex%
��
�� selected% �
�$ � dsx%=width% � dsx%=0:dsy%+=1
�# cstyle%=style%?�dp(dsx%,dsy%)
� �setflags(cstyle%)
��
�=0
� �null
�mouseinfo
&� but%=1 �
0�locatecaretpos
:�alignpos(cx%,cy%)
D � cx%<>dex% � cy%<>dey% �
N& �updateinvert(cx%,cy%,dex%,dey%)
X dex%=cx%:dey%=cy%
b�
l�
vdragging%=�
��
��
�
�(� �updateinvert(ix0%,iy0%,ix1%,iy1%)
�!blk%=w%(edit%)
� blk%!4=0
�blk%!8=-wh%
�blk%!12=ww%
�
blk%!16=0
�'ș"Wimp_UpdateWindow",,blk% � more%
� ȕ more%
�" �invert(ix0%,iy0%,ix1%,iy1%)
�) ș"Wimp_GetRectangle",,blk% � more%
�
�
"� �invert(ix0%,iy0%,ix1%,iy1%)
*� iy0%>iy1% �
4 Ȕ ix0%,ix1%
> Ȕ iy0%,iy1%
H�
R � iy0%=iy1% � ix0%>ix1% �
\ Ȕ ix0%,ix1%
f�
p � ix0%<>ix1% � iy0%<>iy1% �
z ș"Wimp_SetColour",7+3*16
� � iy0%=iy1% �
�\ ȓ Ȑ ix0%*xsize%+wx%,-(iy0%+1)*ysize%+wy%,(ix1%-ix0%)*xsize%-pixelw%,ysize%-pixelh%
� �
� � iy1%>iy0%+1 �
� � y%=iy0%+1 � iy1%-1
�E ȓ Ȑ wx%,-(y%+1)*ysize%+wy%,width%*xsize%,ysize%-pixelh%
� � y%
� �
�^ ȓ Ȑ ix0%*xsize%+wx%,-(iy0%+1)*ysize%+wy%,(width%-ix0%)*xsize%-pixelw%,ysize%-pixelh%
�I ȓ Ȑ wx%,-(iy1%+1)*ysize%+wy%,ix1%*xsize%-pixelw%,ysize%-pixelh%
� �
��
��
� �deselect
&�updateinvert(dsx%,dsy%,dex%,dey%)
$selected%=�
.�
8
B� �placecaret
LNș"Wimp_SetCaretPosition",w%(edit%),-1,cx%*xsize%,-(cy%+1)*ysize%,ysize%,0
V�
`
j� �clicktools
tȎ icon% �
~& � 4 : � label%>1 � �inclabel(-1)
�+ � 6 : � label%<labels% � �inclabel(1)
� � 0,7,8,9,10,3
�+ � icon%=9 � �selecticon(wind%,10,�)
�+ � icon%=10 � �selecticon(wind%,9,�)
� oldstyle%=cstyle%
� �getstyle
�: � oldstyle%<>cstyle% � selected% � �changeselected
� � 13 : �para(-1)
� � 12 : �para(0)
� � 11 : �para(1)
� � 1 : �addlabel
� � 2 : �deletelabel
/ � 14 : editmode%=1+�selected(wind%,icon%)
�
�
=0
(
2� �addlabel
<� labels%<maxl% �
F �changed
P labels%+=1
Z label%=labels%
d �blanklabel
n �setlabel
x! �newpos(width%/2,height%/2)
� �forceredraw(w%(edit%))
��
�5 �report("Sorry, no room to add another label.")
��
��
�
�� �wipelabel
�okay%=�set%(2)
�b� �okay% � okay%=(�question("Are you sure that you want to wipe this label?","","Yes","No")=2)
�
� okay% �
� �changed
� �blanklabel
�! �newpos(width%/2,height%/2)
�forceredraw(w%(edit%))
�
�
"
,� �deletelabel
6okay%=�set%(1)
@d� �okay% � okay%=(�question("Are you sure that you want to delete this label?","","Yes","No")=2)
J
� okay% �
T �changed
^ �blanklabel
h labels%-=1
r t%=label%
| � label%<=labels% �
� label%=t%+1
� s0%=�dp(0,0)
� label%=labels%+1
�) s1%=�dp(maxwidth%-1,maxheight%-1)
� label%=t%
� d0%=�dp(0,0)
� � p%=s0% � s1%
� char%?d0%=char%?p%
� style%?d0%=style%?p%
� d0%+=1
� � p%
� �
� � labels%<1 � labels%=1
label%=labels%
�
�setlabel
&! �newpos(width%/2,height%/2)
0 �forceredraw(w%(edit%))
:�
D�
N
X� �para(newpara%)
b
�getcaret
l� cwind%=w%(edit%) �
v
flag%=�
� � x%=0 � width%-1
�) � char%?�dp(x%,cy%)<>32 � flag%=�
�
� x%
� � flag% �
� leftx%=0
�# ȕ char%?�dp(leftx%,cy%)=32
� leftx%+=1
� �
� rightx%=width%-1
�$ ȕ char%?�dp(rightx%,cy%)=32
� rightx%-=1
� �
� Ȏ newpara% �
!* � -1 : �move(leftx%,rightx%,0,�)
! D � 0 : �move(leftx%,rightx%,(width%-(rightx%-leftx%))/2,�)
!B � 1 : �move(leftx%,rightx%,width%-(1+rightx%-leftx%),�)
! �
!* �
!4�
!>�
!H
!R"� �move(lx%,rx%,tx%,movecaret)
!\ �changed
!fi%=1
!p� lx%<>tx% �
!z� lx%<tx% �
!� i%=-i%
!� tx%+=rx%-lx%
!� Ȕ lx%,rx%
!��
!�� x%=lx% � rx% � i%
!�* char%?�dp(tx%,cy%)=char%?�dp(x%,cy%)
!�, style%?�dp(tx%,cy%)=style%?�dp(x%,cy%)
!� char%?�dp(x%,cy%)=32
!� style%?�dp(x%,cy%)=0
!�
tx%+=i%
!�� x%
!�� movecaret �
!� cx%+=tx%-x%
" �placecaret
"�
"�
"$�redoline(cy%,0,width%)
".�
"8
"B� �redoline(y%,x0%,x1%)
"LG�redobox(w%(edit%),x0%*xsize%,-(y%+1)*ysize%,x1%*xsize%,-y%*ysize%)
"V�
"`
"j� �changeselected
"t �changed
"~ change%=oldstyle%�cstyle%
"�!bits%=�((�change%)�oldstyle%)
"�� dsy%=dey% �
"� � cx%=dsx% � dex%-1
"� �cc(cx%,dsy%)
"� � cx%
"� �redoline(dsy%,dsx%,dex%)
"��
"� � cx%=dsx% � width%-1
"� �cc(cx%,dsy%)
"� � cx%
"�! �redoline(dsy%,dsx%,width%)
"� � dey%>dsy%+1 �
# � cy%=dsy%+1 � dey%-1
#
� cx%=0 � width%-1
# �cc(cx%,cy%)
# � cx%
#(! �redoline(cy%,0,width%)
#2
� cy%
#< �
#F � cx%=0 � dex%-1
#P �cc(cx%,dey%)
#Z � cx%
#d �redoline(dey%,0,dex%)
#n�
#x�
#�
#�� �cc(x%,y%)
#�p%=�dp(x%,y%)
#�os%=style%?p%
#�)style%?p%=(style%?p% ��change%)�bits%
#��
#�
#�� �getstyle
#�(cstyle%=�selected(w%(tools%),0)�bold
#�6cstyle%=cstyle% � (�selected(w%(tools%),7)�italic)
#�6cstyle%=cstyle% � (�selected(w%(tools%),8)�ulined)
#�5cstyle%=cstyle% � (�selected(w%(tools%),9)�super)
#�4cstyle%=cstyle% � (�selected(w%(tools%),10)�sub)
$2cstyle%=cstyle% � (�selected(w%(tools%),3)�dw)
$ls%=cstyle%
$�
$"
$,� �inclabel(inc%)
$6label%+=inc%
$@
�setlabel
$J �newpos(width%/2,height%/2)
$T�forceredraw(w%(edit%))
$^�
$h
$r� �menuiconbar
$|� !blk%=1 �
$�0 � active%(edit%) � �closewindow(w%(edit%))
$�$ � �active%(edit%) � �closedown
$��
$�=0
$�
$�� �clickiconbar
$�� �active%(edit%) �
$�*filename$=�standardfilename(w%(save%))
$�width%=maxwidth%
$�height%=maxheight%
$�
labels%=1
$�changed%=�
$� �startup
%�blanklabel
%�edittitle
% �
%&�openup(w%(edit%))
%0�
%:=0
%D
%N� �startup
%Xselected%=�
%b�setwindowsize
%l
cstyle%=0
%v label%=1
%�
�setlabel
%��openfully(w%(edit%),�)
%��
%�
%�� �setwindowsize
%�xsize%=24:ysize%=32
%�A�setwindowextent(w%(edit%),0,-height%*ysize%,width%*xsize%,0)
%��
%�
%�.� �dp(x%,y%)=label%*bsize%+x%+y%*maxwidth%
%�
%�� �setflags(s%)
%�
c%=s%�ls%
&1� c%�bold � �selecticon(w%(tools%),0,s%�bold)
& 5� c%�italic � �selecticon(w%(tools%),7,s%�italic)
&5� c%�ulined � �selecticon(w%(tools%),8,s%�ulined)
& 3� c%�super � �selecticon(w%(tools%),9,s%�super)
&*0� c%�sub � �selecticon(w%(tools%),10,s%�sub)
&4-� c%�dw � �selecticon(w%(tools%),3,s%�dw)
&>
ls%=s%
&H�
&R
&\� �setlabel
&f7�seticontext(w%(tools%),5,�(label%)+"/"+�(labels%))
&p�
&z
&�� �blanklabel
&�� x%=0 � maxwidth%-1
&�� y%=0 � maxheight%-1
&�t%=�dp(x%,y%)
&�char%?t%=32
&�style%?t%=0
&�� y%
&�� x%
&��
&�
&�� �prepare50
&�filesize%=-1
&�=-2
'
'
� �save50
' � label%
'$file=�(filename$)
'.�#file,labels%
'8�#file,width%
'B�#file,height%
'L� label%=1 � labels%
'V� x%=0 � width%-1
'`� y%=0 � height%-1
'j�#file,char%?�dp(x%,y%)
't �#file,style%?�dp(x%,y%)
'~� y%
'�� x%
'� � label%
'�
�#file
'� �setfiletype(filename$,lft%)
'� label%=1
'��inclabel(0)
'�changed%=�
'��edittitle
'�=0
'�
'� � �load(file$,filetype%)
'� ok%=�
( Ȏ filetype% �
(
� lft%
(
( ok%=�
((�
(2!� ok% � ok%=�fileexist(file$)
(< � ok% �
(F �reply(18,4)
(P, d%=�("FNload"+�~(filetype%)+"(file$)")
(Z�
(d � message%<>5 �
(n �reply(18,4)
(x) �report("Cannot load this file.")
(� �
(��
(��
(�
(�� �load50(file$)
(��mouseinfo
(�� wind%=w%(settings%) �
(�(�seticontext(w%(settings%),14,file$)
(�"�shadeicon(w%(settings%),12,�)
(�#�selecticon(w%(settings%),12,�)
(��
(�� changed% �
(�P�report("Current file has been changed and you cannot edit multiple files.")
)�
)file=�(file$)
)�#file,labels%
)"�#file,width%
),�#file,height%
)6� label%=1 � labels%
)@� x%=0 � width%-1
)J� y%=0 � height%-1
)Tchar%?�dp(x%,y%)=�#file
)^ style%?�dp(x%,y%)=�#file
)h� y%
)r� x%
)| � label%
)�
�#file
)�filename$=file$
)� �startup
)��losecaret
)��forceredraw(w%(edit%))
)�changed%=�
)��edittitle
)��
)��
)�=0
)�
)�� �dropsave
)�/prepared%=�("FNprepare"+�~(misc%(dragid%)))
*N� prepared% � �dropfile(�icontext(w%(dragid%),2),misc%(dragid%),filesize%)
*=0
*
*&� �clicksave
*0/� icon%=0 � �save(id%,�icontext(wind%,2),�)
*:=0
*D
*N� �keysave
*X2� key%=13 � �save(id%,�icontext(wind%,2),�):=�
*b=0
*l
*v#� ----WIMP Library routines----
*�
*� � ==== message routines ====
*�
*�� �poll(pollflags%)
*�+ș"Wimp_Poll",pollflags%,blk% � reason%
*�Ȏ reason% �
*� � 0:�null
*� � 1:�redraw
*� � 2:�openwindow
*� � 3:�closewindow(!blk%)
*� � 4:� pointer leaving
*� � 5:� pointer entering
*�5 � 6:�click(!blk%,blk%!4,blk%!8,blk%!12,blk%!16)
+ � 7:�enddrag
+ + � 8:�key(!blk%,blk%!4,blk%!8,blk%!24)
+ � 9:�menuselect
+ � 10:� scroll request
+* � 11:mycaret%=�
+4 � 12:mycaret%=�
+>- � 17,18:�message(blk%!4,blk%!8,blk%!16)
+H�
+R�
+\
+f#� �message(task%,ref%,message%)
+p9� status%>0 � message%>=1 � message%<=7 � message%=-1
+zȎ message% �
+� � 0 : �quit
+� � 2
+�1 �save(dragid%,�string(blk%+44),prepared%)
+�? � saved% � �telltoload � �report("Could not save file")
+�+ � 3 : �load(�string(blk%+44),blk%!40)
+�+ � 5 : �load(�string(blk%+44),blk%!40)
+� � 8 : �prequit
+�# � 10: �addtobootfile(blk%!20)
+� � &400C1 : �newmode
+��
+��
+�
+�� �prequit
,� changed% �
, �reply(17,8)
, �closewindow(w%(edit%))
,$�
,.�
,8
,B � �addtobootfile(handle%)
,L�#file,"Run "+dir$
,V�
,`
,j� �telltoload
,t�mouseinfo
,~blk%!20=wind%
,�blk%!24=icon%
,�blk%!28=mx%
,�blk%!32=my%
,�blk%!36=filesize%
,�blk%!40=filetype%
,�$(blk%+44)=filename$+�0
,� !blk%=(�$(blk%+44)+48)��3
,��reply(17,3)
,��
,�
,�.� �dropfile(filename$,filetype%,filesize%)
,��mouseinfo
-
blk%!12=0
-
blk%!16=1
-blk%!20=wind%
- blk%!24=icon%
-(blk%!28=mx%
-2blk%!32=my%
-<blk%!36=filesize%
-Fblk%!40=filetype%
-P%$(blk%+44)=�lastbit(filename$)+�0
-Z !blk%=(�$(blk%+44)+48)��3
-d0ș"Wimp_SendMessage",17,blk%,blk%!20,blk%!24
-n trans%=0
-x�
-�
-�� �loadsprites
-� spritefile$=dir$+".Sprites"
-��fileinfo(spritefile$)
-�� exist%=1 �
-�ssize%=filesize%+16
-�� sprites% ssize%
-�!sprites%=ssize%
-�sprites%!4=0
-�sprites%!8=16
-�sprites%!12=16
-�/ș"OS_SpriteOp",10+256,sprites%,spritefile$
-��
.sprites%=-1
.�
.�
."
.,� �fileinfo(file$)
.6-ș"OS_File",5,file$ � exist%,,,,filesize%
.@�
.J
.T� �filesize(file$)
.^� exist%,filesize%
.h�fileinfo(file$)
.r=filesize%
.|
.�� �fileexist(file$)
.�� exist%,filesize%
.��fileinfo(file$)
.� =exist%
.�
.�� �reply(type%,blk%!16)
.�blk%!12=ref%
.�)ș"Wimp_SendMessage",type%,blk%,task%
.��
.�
.�� �newmode
.�2!q%=11:q%!4=12:q%!8=4:q%!12=5:q%!16=3:q%!20=-1
.�!ș"OS_ReadVduVariables",q%,q%
/scx%=(!q%+1)<<(q%!8)
/scy%=(q%!4+1)<<(q%!12)
/ $pixelw%=1<<q%!8:pixelh%=1<<q%!12
/&cols%=q%!16
/0 ș"Wimp_ReadPalette",,pal%
/:�
/D
/N� �setfontcolours
/XȎ cols% �
/b* � 1 : ș"Font_SetFontColours",,0,1,0
/l* � 3 : ș"Font_SetFontColours",,0,1,2
/v+ � 15 : ș"Font_SetFontColours",,0,1,6
/�: � 15 : ș"Font_SetFontColours",,0,1,14,!pal%,pal%!28
/��
/��
/�
/�� �loadtemplate(title$)
/�Gș"Wimp_LoadTemplate",,blk%,ind%,indend%,fonttable%,title$ � ,,ind%
/�%� sprites%<>-1 � blk%!64=sprites%
/�'ș"Wimp_CreateWindow",,blk% � wind%
/�
=wind%
/�
/� � �tick(menu%,item%,tick%)
/�p%=menu%+28+item%*24
/�&� tick% � !p%=!p% �1 � !p%=!p% ��1
0�
0
0� �menu(text$)
0 oldptr%=menuptr%
0* items%=0
04text$+=","
0>title$=�nextword(text$)
0H$menuptr%=title$
0Rmax%=�title$
0\menuptr%!12=&70207
0fmenuptr%!20=44
0pmenuptr%!24=0
0zmenuptr%+=4
0�ȕ text$<>""
0�
items%+=1
0�menuptr%+=24
0�!menuptr%=0
0�menuptr%!4=0
0�word$=�nextword(text$)
0�token$=�token(word$)
0�
i1%=-1
0�ȕ token$<>""
0�Ȏ token$ �
0�*� ">" : menuptr%!4=�(�nextword(text$))
0�#� "/" : !menuptr%=!menuptr% � 1
0�#� "-" : !menuptr%=!menuptr% � 2
1 � "!"
1 !menuptr%=!menuptr% � 4
1 valid$=�nextword(text$)
1$ � �valid$ �
1. � i1% �valid$+1
18 $i1%=valid$
1B �
1L�
1Vtoken$=�token(word$)
1`�
1j menuptr%!8=(7<<24) � %10001
1t"� !menuptr% � 4 � token$="#" �
1~.�inditem(�(�nextword(text$)),i1%,�(word$))
1��
1�� �word$<=12 �
1�$(menuptr%+12)=word$
1��
1�� i0% �word$+1
1�$i0%=word$
1� �inditem(i0%,-1,�word$+1)
1��
1� � �word$>max% � max%=�word$
1��
1��
1� !menuptr%=!menuptr% � &80
2 menuptr%+=24
2
oldptr%!16=max%*16+12
2 =oldptr%
2
2(� �inditem(i0%,i1%,i2%)
22 menuptr%!8=menuptr%!8 � 1<<8
2<menuptr%!12=i0%
2Fmenuptr%!16=i1%
2Pmenuptr%!20=i2%
2Z1� i2%-1>max% � (!menuptr% � 4)=0 � max%=i2%-1
2d�
2n
2x� �token(� word$)
2�
token$=""
2�� �">/!#-",�word$)) �
2�token$=�word$,1)
2�word$=�word$,�word$-1)
2��
2� =token$
2�
2�� �nextword(� text$)
2�� word$,pos%
2�pos%=�text$,",")
2�word$=�text$,pos%-1)
2�text$=�text$,pos%+1)
2�
=word$
3
37� �cricon(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,$(q%+24))
3#ș"Wimp_CreateIcon",,q% � icon%
3"
=icon%
3,
36� �check(message$)
3@ș"Wimp_DragBox",,0
3J !q%=0
3T$(q%+4)=message$
3^Bș"Wimp_ReportError",q%,19,"Message from "+program$ � ,answer%
3h� answer%=1 � =� � =�
3r
3|0� �question(ans$(0),ans$(1),ans$(2),ans$(3))
3�
� status%
3�
status%=2
3��closemenu
3�� i%=0 � 3
3� � ans$(i%)="" �
3�# �removeicon(w%(report%),i%)
3� �
3�# �reiniticon(w%(report%),i%)
3�- �seticontext(w%(report%),i%,ans$(i%))
3� �
3�� i%
3��losecaret
3� �openincentre(w%(report%))
4� beep% � � 7
4
answer%=0
4 �
4&$ ș"Wimp_Poll",1,blk% � reason%
40 Ȏ reason% �
4: � 1:�redraw
4D@ � 6:� blk%!12=w%(report%) � blk%!16>-1 � answer%=blk%!16
4N/ � 17,18:�message(blk%!4,blk%!8,blk%!16)
4X �
4b
� answer%
4l �closewindow(w%(report%))
4v =answer%
4�
4�� �string(b%)
4�� s$
4� s$=""
4�
ȕ ?b%>31
4�s$+=�(?b%)
4� b%+=1
4��
4�=s$
4�
4�� �report(message$)
4�%d%=�question(message$,"OK","","")
4��
5
5 � �buttype(!q%,q%!4)
53� q%!4>=0 � ș"Wimp_GetIconState",,q% � q%!24=0
5 =((q%!24)>>12)�15
5*
54#� �selecticon(!q%,q%!4,select%)
5> ș"Wimp_GetIconState",,q%
5H#� select% � q%!8=1<<21 � q%!8=0
5Rq%!12=1<<21
5\7� (q%!24 � q%!12)<>q%!8 � ș"Wimp_SetIconState",,q%
5f�
5p
5z � �seticonfc(!q%,q%!4,col%)
5� ș"Wimp_GetIconState",,q%
5�q%!8=col%<<24
5�q%!12=15<<24
5�7� (q%!24 � q%!12)<>q%!8 � ș"Wimp_SetIconState",,q%
5��
5�
5�"� �seticontext(!q%,q%!4,text$)
5� ș"Wimp_GetIconState",,q%
5�text$=�text$,q%!36-1)
5�� $(q%!28)<>text$ �
5�$(q%!28)=text$
5�
q%!8=0
5� q%!12=0
6 ș"Wimp_SetIconState",,q%
6�
6�
6$
6.� �icontp(!q%,q%!4)
68 ș"Wimp_GetIconState",,q%
6B
=q%!28
6L
6V� �windowinfo(!blk%)
6` ș"Wimp_GetWindowInfo",,blk%
6jwx%=blk%!4-blk%!20
6twy%=blk%!16-blk%!24
6~ww%=blk%!12-blk%!4
6�wh%=blk%!16-blk%!8
6��
6�
6�#� �savebox(filetype%,standard$)
6�$wind%=�window("save","save",0,0)
6�<�seticontext(w%(wind%),3,"file_"+�"00"+�~(filetype%),3))
6�'�seticontext(w%(wind%),1,standard$)
6�misc%(wind%)=filetype%
6�
=wind%
6�
6�� �lastbit(file$)
6�ȕ �file$,".")
7 file$=�file$,�file$,".")+1)
7
�
7
=file$
7
7(� �nameok(file$)
72
result%=�
7<!� �file$,":")+�file$,".")=0 �
7F>�report("To save, drag icon to a directory viewer "+file$)
7P
result%=�
7Z�
7d =result%
7n
7x � �quit
7��closedown
7��
7�
7�� �closedown
7�� i%=1 � 255
7�ȕ fonttable%?i%
7�ș"Font_LoseFont",i%
7�fonttable%?i%-=1
7��
7�� i%
7� ș"Wimp_CloseDown",mytask%
7��
7�
8� �closewindow(wind%)
8� cid%,close%
8cid%=�id(wind%)
8"B� sysflags%(cid%)�2 � close%=�("FNclose"+id$(cid%)) � close%=�
8,� close% �
86 active%(cid%)=�
8@! �quickclosewindow(w%(cid%))
8J�
8T�
8^
8h � �quickclosewindow(!q%)
8r ș"Wimp_CloseWindow",,q%
8|�
8�
8�� �mouseinfo
8� ș"Wimp_GetPointerInfo",,q%
8� mx%=!q%
8� my%=q%!4
8�
but%=q%!8
8�wind%=q%!12
8�icon%=q%!16
8��
8�
8�� �closemenu
8�ș"Wimp_CreateMenu",,-1
8��
9
9� �reopen(!blk%)
9 !ș"Wimp_GetWindowState",,blk%
9&�openwindow
90�forceredraw(!blk%)
9:�
9D
9N1� �setwindowextent(wind%,!q%,q%!4,q%!8,q%!12)
9X ș"Wimp_SetExtent",wind%,q%
9b�
9l
9v� �forceredraw(!blk%)
9� ș"Wimp_GetWindowInfo",,blk%
9�>ș"Wimp_ForceRedraw",!blk%,blk%!44,blk%!48,blk%!52,blk%!56
9��
9�
9� � �openfully(!blk%,top%)
9� ș"Wimp_GetWindowInfo",,blk%
9�$blk%!12=blk%!4+(blk%!52-blk%!44)
9�$blk%!8=blk%!16-(blk%!56-blk%!48)
9�� top% � blk%!28=-1
9��openwindow
9��
9�
9�� �startdrag(id%,icon%)
:dragid%=id%
: dragicon%=icon%
:wind%=w%(dragid%)
: �windowinfo(wind%)
:*!blk%=wind%
:4blk%!4=icon%
:> ș"Wimp_GetIconState",,blk%
:H !blk%=0
:R blk%!4=5
:\blk%!8+=wx%
:fblk%!12+=wy%
:pblk%!16+=wx%
:zblk%!20+=wy%
:�
blk%!24=0
:�
blk%!28=0
:�blk%!32=scx%
:�blk%!36=scy%
:�
� drag% �
:�Eș"DragASprite_Start",197,1,�icontext(wind%,icon%),blk%+8,blk%+24
:��
:�ș"Wimp_DragBox",,blk%
:��
:��
:�
:�� �openincentre(!blk%)
:�!ș"Wimp_GetWindowState",,blk%
;m1%=blk%!12-blk%!4
;m2%=blk%!16-blk%!8
;blk%!4=(scx%-m1%)>>1
;$blk%!8=(scy%-m2%)>>1
;.blk%!12=(scx%+m1%)>>1
;8blk%!16=(scy%+m2%)>>1
;Bblk%!28=-1
;L�openwindow
;V�
;`
;j#� �setfiletype(file$,filetype%)
;t#ș"OS_File",&12,file$,filetype%
;~�
;�
;� � �newtitle(!blk%,title$)
;� ș"Wimp_GetWindowInfo",,blk%
;�� $(blk%!76)<>title$ �
;�$(blk%!76)=title$
;�� active%(�id(!blk%)) �
;�% ș"Wimp_GetWindowOutline",,blk%
;�? ș"Wimp_ForceRedraw",-1,blk%!4,blk%!16-44,blk%!12,blk%!16
;��
;��
;��
;�
< � �icontext(!q%,q%!4)
<
ș"Wimp_GetIconState",,q%
<4� q%!24�(1<<8) � text$=$(q%!28) � text$=$(q%+28)
<
=text$
<(
<2� �redoicon(!q%,q%!4)
<< ș"Wimp_GetIconState",,q%
<F3ș"Wimp_ForceRedraw",!q%,q%!8,q%!12,q%!16,q%!20
<P�
<Z
<d� �deleteicon(!q%,q%!4)
<nș"Wimp_DeleteIcon",,q%
<x�
<�
<� � �iconinfo(wind%,icon%)
<�!blk%=wind%
<�blk%!4=icon%
<� ș"Wimp_GetIconState",,blk%
<��
<�
<�� �selected(!q%,q%!4)
<� ș"Wimp_GetIconState",,q%
<�=(((q%!24)�(1<<21))>0)
<�
<�$� �shademenu(menu%,item%,shade%)
<�p%=menu%+36+item%*24
=!p%=!p% ��(1<<22)
= � shade% � !p%=!p% �(1<<22)
=�
="
=,!� �shadeicon(!q%,q%!4,shade%)
=6"� shade% � q%!8=1<<22 � q%!8=0
=@q%!12=1<<22
=J ș"Wimp_SetIconState",,q%
=T�
=^
=h� �getcaret
=r!ș"Wimp_GetCaretPosition",,q%
=|cwind%=!q%
=�cicon%=q%!4
=�cxoff%=q%!8
=�cyoff%=q%!12
=�cheight%=q%!16
=�cindex%=q%!20
=��
=�
=�#� �putcaret(wind%,icon%,index%)
=� len%=��icontext(wind%,icon%)
=� � index%>len% � index%=len%
=�5ș"Wimp_SetCaretPosition",wind%,icon%,,,-1,index%
=��
=�
> � �resetcaret(wind%,icon%)
>!ș"Wimp_GetCaretPosition",,q%
> � (!q%=wind% � q%!4=icon%) �
>& index%=q%!20
>0" len%=��icontext(wind%,icon%)
>:! � index%>len% � index%=len%
>D7 ș"Wimp_SetCaretPosition",wind%,icon%,,,-1,index%
>N�
>XI� wind%=0 � ș"Wimp_SetCaretPosition",!q%,q%!4,q%!8,q%!12,q%!16,q%!20
>b�
>l
>v� �losecaret
>�-� mycaret% � ș"Wimp_SetCaretPosition",-1
>��
>�
>�� �flashicon(!q%,q%!4)
>�� f%=1 � 3
>� Ȗ:Ȗ
>��selecticon(!q%,q%!4,�)
>� Ȗ:Ȗ
>��selecticon(!q%,q%!4,�)
>�� f%
>��
>�
>�#� �openiconmenu(!q%,q%!4,wind%)
?openmenu%=wind%
? ș"Wimp_GetIconState",,q%
?menux%=q%!16
? menuy%=q%!20
?*�windowinfo(!q%)
?4menux%+=wx%
?>menuy%+=wy%
?H0ș"Wimp_CreateMenu",,openmenu%,menux%,menuy%
?R�
?\
?f"� �infowindow(i1$,i2$,i3$,i4$)
?p wind%=�window("info","",0,0)
?z!�seticontext(w%(wind%),1,i1$)
?�!�seticontext(w%(wind%),2,i2$)
?�!�seticontext(w%(wind%),3,i3$)
?�!�seticontext(w%(wind%),4,i4$)
?�
=wind%
?�
?�/� �wimpinit(name$,sprite$,work$,no%,isize%)
?� ș"OS_GetEnv" � autoload$
?�=autoload$=�autoload$,�autoload$,�34,�autoload$,�34)+1)+2)
?�
status%=0
?�mycaret%=�
?�windows%=no%+3
?�program$=name$
?�+� blk% 2000,q% 256,ind% isize%,pal% 256
@indend%=ind%+isize%
@$blk%="TASK"
@5ș"Wimp_Initialise",200,!blk%,program$ � ,mytask%
@$0iconbar%=�cricon(-1,0,0,68,68,&2002,sprite$)
@.$q%=work$+"$Dir"
@8.ș"OS_ReadVarVal",q%,blk%,256,0,3 � ,,len%
@Bblk%?len%=13
@Ldir$=$blk%
@V=ș"XOS_SWINumberFromString",,"DragASprite_Start" � ;drag%
@`drag%=(drag% � 1)=0
@j ș"OS_Byte",161,28 � ,,bit%
@t � (bit% � 2)=0 � drag%=�
@~&ș"Wimp_SlotSize",-1,-1 � appsize%
@��loadsprites
@� �newmode
@�
tft%=&FFF
@�
dft%=&AFF
@�
exit=�
@�%� menubuffer% 2000,fonttable% 256
@� twind%=0
@�{� w%(windows%),menu%(windows%),id$(windows%),misc%(windows%),active%(windows%),default%(5,windows%),sysflags%(windows%)
@�menuptr%=menubuffer%
@�� i%=1 � 255
@�fonttable%?i%=0
@�� i%
A w%(0)=-2:id$(0)="iconbar"
A
,ș"Wimp_OpenTemplate",,dir$+".Templates"
A�initwindows
A *report%=�window("report","report",0,0)
A(ș"Wimp_CloseTemplate"
A2
� ans$(3)
A< beep%=�
AF�
AP
AZ!� ==== memory management ====
Ad
An� �space(size%)
Ax block%=�
A�7ș"XWimp_SlotSize",appsize%+size%,-1 � new%;noroom%
A�room%=((noroom%�1)=0)
A� � new%=appsize% � room%=�
A�appinc%=new%-appsize%
A�
=room%
A�
A�� �resetslot
A�!ș"Wimp_SlotSize",appsize%,-1
A��
A�
A�&� ==== filing system routines ====
A�
A� � �standardfilename(wind%)
B=�icontext(wind%,1)
B
B � �save(id%,file$,prepared%)
B"filename$=file$
B, saved%=�
B6� �nameok(filename$) �
B@;� prepared%=� � prepared%=�("FNprepare"+�~(misc%(id%)))
BJȎ prepared% �
BT
� -1
B^J ș"OS_File",10,filename$,misc%(id%),,savebuff%,savebuff%+filesize%
Bh �resetslot
Br
� -2
B|% d%=�("FNsave"+�~(misc%(id%)))
B��
B��closemenu
B�%�seticontext(w%(id%),2,filename$)
B� saved%=�
B��
B��
B��
B�
B� � ==== menu routines ====
B�
B� � �openwindowasmenu(window%)
B��windowinfo(window%)
B��mouseinfo
Cmenux%=mx%-ww%/2
Cmenuy%=my%+wh%/2
C openmenu%=window%
C&id%=�id(window%)
C0�reopenmenu
C:�
CD
CN� �iconbarmenu(text$)
CXmenu%(0)=�menu(text$)
Cbbarheight%=items%*44+96
Cl�
Cv
C�� �menuselect
C� d%=�("FNmenu"+id$(menuid%))
C��mouseinfo
C�� but%=1 � �reopenmenu
C��
C�
C�� �reopenmenu
C�3� sysflags%(id%)�4 � d%=�("FNpremenu"+id$(id%))
C�0ș"Wimp_CreateMenu",,openmenu%,menux%,menuy%
C��
C�
C�� �openmenu(id%)
C�� menu%(id%) �
Dmenuid%=id%
D openmenu%=menu%(id%)
D,� id%=0 � menuy%=barheight% � menuy%=my%
D "menux%=mx%-(openmenu%!16)/2-16
D*�reopenmenu
D4�
D>�
DH
DR � ==== window routines ====
D\
Df'� �window(wind$,name$,menu%,flags%)
Dp
twind%+=1
Dz#w%(twind%)=�loadtemplate(wind$)
D��windowinfo(w%(twind%))
D�� d%=0 � 5
D�)default%(d%,twind%)=!(blk%+(d%<<2)+4)
D�� d%
D�id$(twind%)=name$
D�menu%(twind%)=menu%
D� sysflags%(twind%)=flags%
D� =twind%
D�
D�
� �redraw
D�id%=�id(!blk%)
D��windowinfo(!blk%)
D�'ș"Wimp_RedrawWindow",,blk% � more%
E ȕ more%
Ex0%=blk%!28-wx%
Ey0%=blk%!32-wy%
E$x1%=blk%!36-wx%
E.y1%=blk%!40-wy%
E8 d%=�("FNredraw"+id$(id%))
EB'ș"Wimp_GetRectangle",,blk% � more%
EL�
EV�
E`
Ej� �id(find%)
Etfound%=windows%
E~� i%=0 � windows%
E� � w%(i%)=find% � found%=i%
E�� i%
E� =found%
E�
E�� �openup(wind%)
E�!blk%=wind%
E�id%=�id(wind%)
E�� �active%(id%) �
E�� d%=0 � 5
E�&!(blk%+(d%<<2)+4)=default%(d%,id%)
E�� d%
E��
F !ș"Wimp_GetWindowState",,blk%
F
�
Fblk%!28=-1
F �openwindow
F(�
F2
F<� �openwindow
FFid%=�id(!blk%)
FP ș"Wimp_OpenWindow",,blk%
FZactive%(id%)=�
Fd0� sysflags%(id%)�1 � d%=�("FNopen"+id$(id%))
Fn�
Fx
F� � �frontopenwindow(!blk%)
F�!ș"Wimp_GetWindowState",,blk%
F�blk%!28=-1
F��openwindow
F��
F�
F�%� �redobox(wind%,x0%,y0%,x1%,y1%)
F�� x1%<x0% � Ȕ x0%,x1%
F�� y1%<y0% � Ȕ y0%,y1%
F�.ș"Wimp_ForceRedraw",wind%,x0%,y0%,x1%,y1%
F��
F�
F�� �deletewindow(� !q%)
G ș"Wimp_DeleteWindow",,q%
G !q%=0
G�
G"
G, � ==== icon routines ====
G6
G@&� �click(mx%,my%,but%,wind%,icon%)
GJ7� �buttype(wind%,icon%)=9 � �flashicon(wind%,icon%)
GTid%=�id(wind%)
G^
Ȏ but% �
Gh� 64
Gr" Ȏ �buttype(w%(id%),icon%) �
G|- � 6,7,8,10,14 : �startdrag(id%,icon%)
G� �
G�� 2 : �openmenu(id%)
G�
G� d%=�("FNclick"+id$(id%))
G��
G��
G�
G�� �enddrag
G��mouseinfo
G�"� drag% � ș"DragASprite_Stop"
G� d%=�("FNdrop"+id$(dragid%))
G��
G�
H"� �key(wind%,icon%,xpos%,key%)
H$taken=�("FNkey"+id$(�id(wind%)))
H (� taken=� � ș"Wimp_ProcessKey",key%
H&�
H0
H:(� �incicon(iicon%,dec%,inc%,lb%,ub%)
HD
change%=�
HN � icon%=dec% � icon%=inc% �
HX!val%=��icontext(wind%,iicon%)
Hbval%+=(icon%=dec%)*2+1
Hl1� val%>ub% � val%=ub% � � val%<lb% � val%=lb%
Hv&�seticontext(wind%,iicon%,�(val%))
H� �resetcaret(wind%,iicon%)
H�
change%=�
H��
H��
H� =change%
H�
H�� �removeicon(!q%,q%!4)
H�q%!8=(1<<24)
H�)q%!12=(1<<2)�(1<<5)�(15<<24)�(15<<12)
H� ș"Wimp_SetIconState",,q%
H��
H�
H�� �reiniticon(!q%,q%!4)
I&q%!8=(1<<2)�(1<<5)�(7<<24)�(3<<12)
I )q%!12=(1<<2)�(1<<5)�(15<<12)�(15<<24)
I ș"Wimp_SetIconState",,q%
I �
I*
I4� �iconkeys(data%)
I> taken=�
IH icons%=0
IRȕ data%?icons%<255
I\ icons%+=1
If�
Ip
icons%-=1
Iz
found%=-1
I�� p%=0 � icons%
I�" � data%?p%=icon% � found%=p%
I�� p%
I�newicon%=-1
I�� found%>=0 �
I� Ȏ key% �
I� � 13 : newicon%=found%+1
I�4 � &18E : � found%<icons% � newicon%=found%+1
I�/ � &18F : � found%>0 � newicon%=found%-1
I�* � &19E,&1AE,&1BE : newicon%=icons%
I�% � &19F,&1AF,&1BF : newicon%=0
I�
I� taken=�
J �
J�
J,� newicon%>icons% � taken=-2:newicon%=-1
J$� newicon%>=0 �
J. �getcaret
J8- �putcaret(wind%,data%?newicon%,cindex%)
JB�
JL
=taken
JV
J` � ==== and the rest ====
Jj
Jt� �click=0
J~
J�� �redraw=0
J�
J� � �key=0
J�
J�
� �drop=0
J�
J�� �temp(st$)
J�� a%=1 � �st$
J� �st$,a%,1)
J�� a%
J��
J�
K � �error
K
ș"Hourglass_Smash"
KȎ status% �
K � 1
K( � print � �#print
K2. report$="Print error, print cancelled"
K<
KFO report$="An uncontrolable error has occured ("+�$+�(�)+"), shall I exit?"
KP�
KZexit=�check(report$)
Kd
status%=0
Kn�
� 00000000 0d 00 0a 1d f4 20 3e 20 3c 4c 61 62 65 6c 24 44 |..... > <Label$D|
00000010 69 72 3e 2e 21 52 75 6e 49 6d 61 67 65 0d 00 14 |ir>.!RunImage...|
00000020 0d f2 69 6e 69 74 69 61 74 65 0d 00 1e 0e ee 20 |..initiate..... |
00000030 85 20 f2 65 72 72 6f 72 0d 00 28 04 0d 00 32 0c |. .error..(...2.|
00000040 c8 95 20 ac 65 78 69 74 0d 00 3c 16 f2 70 6f 6c |.. .exit..<..pol|
00000050 6c 28 31 2b 64 72 61 67 67 69 6e 67 25 29 0d 00 |l(1+dragging%)..|
00000060 46 05 ce 0d 00 50 0e f2 63 6c 6f 73 65 64 6f 77 |F....P..closedow|
00000070 6e 0d 00 5a 04 0d 00 64 0f dd 20 f2 69 6e 69 74 |n..Z...d.. .init|
00000080 69 61 74 65 0d 00 6e 0e 63 68 61 6e 67 65 64 25 |iate..n.changed%|
00000090 3d a3 0d 00 78 0c 6c 66 74 25 3d 26 35 30 0d 00 |=...x.lft%=&50..|
000000a0 82 37 f2 77 69 6d 70 69 6e 69 74 28 22 4c 61 62 |.7.wimpinit("Lab|
000000b0 65 6c 20 70 72 69 6e 74 69 6e 67 22 2c 22 21 6c |el printing","!l|
000000c0 61 62 65 6c 22 2c 22 4c 61 62 65 6c 22 2c 37 2c |abel","Label",7,|
000000d0 32 30 30 30 29 0d 00 8c 1b f2 77 69 6e 64 6f 77 |2000).....window|
000000e0 69 6e 66 6f 28 77 25 28 74 6f 6f 6c 73 25 29 29 |info(w%(tools%))|
000000f0 0d 00 96 14 74 6f 6f 6c 73 68 65 69 67 68 74 25 |....toolsheight%|
00000100 3d 77 68 25 0d 00 a0 13 74 6f 6f 6c 73 77 69 64 |=wh%....toolswid|
00000110 74 68 25 3d 77 77 25 0d 00 aa 1d 6d 61 78 77 69 |th%=ww%....maxwi|
00000120 64 74 68 25 3d 34 30 3a 6d 61 78 68 65 69 67 68 |dth%=40:maxheigh|
00000130 74 25 3d 38 0d 00 b4 1f 62 73 69 7a 65 25 3d 6d |t%=8....bsize%=m|
00000140 61 78 77 69 64 74 68 25 2a 6d 61 78 68 65 69 67 |axwidth%*maxheig|
00000150 68 74 25 0d 00 be 0c 6d 61 78 6c 25 3d 36 34 0d |ht%....maxl%=64.|
00000160 00 c8 17 74 73 69 7a 65 25 3d 62 73 69 7a 65 25 |...tsize%=bsize%|
00000170 2a 6d 61 78 6c 25 0d 00 d2 20 de 20 63 68 61 72 |*maxl%... . char|
00000180 25 20 74 73 69 7a 65 25 2c 73 74 79 6c 65 25 20 |% tsize%,style% |
00000190 74 73 69 7a 65 25 0d 00 dc 31 62 6f 6c 64 3d 31 |tsize%...1bold=1|
000001a0 3a 69 74 61 6c 69 63 3d 32 3a 75 6c 69 6e 65 64 |:italic=2:ulined|
000001b0 3d 34 3a 73 75 70 65 72 3d 38 3a 73 75 62 3d 31 |=4:super=8:sub=1|
000001c0 36 3a 64 77 3d 33 32 0d 00 e6 27 77 69 64 74 68 |6:dw=32...'width|
000001d0 25 3d 6d 61 78 77 69 64 74 68 25 3a 68 65 69 67 |%=maxwidth%:heig|
000001e0 68 74 25 3d 6d 61 78 68 65 69 67 68 74 25 0d 00 |ht%=maxheight%..|
000001f0 f0 0f 64 72 61 67 67 69 6e 67 25 3d a3 0d 00 fa |..dragging%=....|
00000200 0d 66 74 79 70 65 25 3d 2d 31 0d 01 04 0b 66 6f |.ftype%=-1....fo|
00000210 6e 74 25 3d 30 0d 01 0e 0f 65 64 69 74 6d 6f 64 |nt%=0....editmod|
00000220 65 25 3d 30 0d 01 18 0d de 20 73 65 74 25 28 34 |e%=0..... set%(4|
00000230 29 0d 01 22 11 de 20 73 69 7a 65 64 61 74 61 25 |)..".. sizedata%|
00000240 20 34 0d 01 2c 10 3f 73 69 7a 65 64 61 74 61 25 | 4..,.?sizedata%|
00000250 3d 37 0d 01 36 11 73 69 7a 65 64 61 74 61 25 3f |=7..6.sizedata%?|
00000260 31 3d 38 0d 01 40 13 73 69 7a 65 64 61 74 61 25 |1=8..@.sizedata%|
00000270 3f 32 3d 32 35 35 0d 01 4a 12 de 20 70 72 69 6e |?2=255..J.. prin|
00000280 74 64 61 74 61 25 20 34 0d 01 54 11 3f 70 72 69 |tdata% 4..T.?pri|
00000290 6e 74 64 61 74 61 25 3d 31 0d 01 5e 12 70 72 69 |ntdata%=1..^.pri|
000002a0 6e 74 64 61 74 61 25 3f 31 3d 36 0d 01 68 12 70 |ntdata%?1=6..h.p|
000002b0 72 69 6e 74 64 61 74 61 25 3f 32 3d 38 0d 01 72 |rintdata%?2=8..r|
000002c0 14 70 72 69 6e 74 64 61 74 61 25 3f 33 3d 32 35 |.printdata%?3=25|
000002d0 35 0d 01 7c 12 f2 72 65 73 65 74 73 65 74 74 69 |5..|..resetsetti|
000002e0 6e 67 73 0d 01 86 11 f2 6c 6f 61 64 73 65 74 74 |ngs.....loadsett|
000002f0 69 6e 67 73 0d 01 90 0b 6c 73 25 3d 32 35 35 0d |ings....ls%=255.|
00000300 01 9a 10 f2 73 65 74 66 6c 61 67 73 28 30 29 0d |....setflags(0).|
00000310 01 a4 27 77 69 64 74 68 25 3d 6d 61 78 77 69 64 |..'width%=maxwid|
00000320 74 68 25 3a 68 65 69 67 68 74 25 3d 6d 61 78 68 |th%:height%=maxh|
00000330 65 69 67 68 74 25 0d 01 ae 10 f2 69 6e 69 74 70 |eight%.....initp|
00000340 72 69 6e 74 65 72 0d 01 b8 15 e7 20 61 75 74 6f |rinter..... auto|
00000350 6c 6f 61 64 24 3c 3e 22 22 20 8c 0d 01 c2 1b 20 |load$<>"" ..... |
00000360 20 64 25 3d a4 6c 6f 61 64 35 30 28 61 75 74 6f | d%=.load50(auto|
00000370 6c 6f 61 64 24 29 0d 01 cc 05 cc 0d 01 d6 26 20 |load$)........& |
00000380 20 e7 20 73 65 74 25 28 34 29 20 8c 20 64 25 3d | . set%(4) . d%=|
00000390 a4 6c 6f 61 64 35 30 28 73 65 74 66 69 6c 65 24 |.load50(setfile$|
000003a0 29 0d 01 e0 05 cd 0d 01 ea 2c f2 73 65 6c 65 63 |)........,.selec|
000003b0 74 69 63 6f 6e 28 77 25 28 74 6f 6f 6c 73 25 29 |ticon(w%(tools%)|
000003c0 2c 31 34 2c 28 65 64 69 74 6d 6f 64 65 25 3d 30 |,14,(editmode%=0|
000003d0 29 29 0d 01 f4 05 e1 0d 01 fe 04 0d 02 08 10 dd |))..............|
000003e0 20 f2 65 64 69 74 74 69 74 6c 65 0d 02 12 20 e7 | .edittitle... .|
000003f0 20 63 68 61 6e 67 65 64 25 20 8c 20 61 24 3d 22 | changed% . a$="|
00000400 20 2a 22 20 8b 20 61 24 3d 22 22 0d 02 1c 38 f2 | *" . a$=""...8.|
00000410 6e 65 77 74 69 74 6c 65 28 77 25 28 65 64 69 74 |newtitle(w%(edit|
00000420 25 29 2c a4 6c 61 73 74 62 69 74 28 66 69 6c 65 |%),.lastbit(file|
00000430 6e 61 6d 65 24 29 2b 22 20 4c 61 62 65 6c 22 2b |name$)+" Label"+|
00000440 61 24 29 0d 02 26 05 e1 0d 02 30 04 0d 02 3a 0e |a$)..&....0...:.|
00000450 dd 20 f2 63 68 61 6e 67 65 64 0d 02 44 0e 63 68 |. .changed..D.ch|
00000460 61 6e 67 65 64 25 3d b9 0d 02 4e 0e f2 65 64 69 |anged%=...N..edi|
00000470 74 74 69 74 6c 65 0d 02 58 05 e1 0d 02 62 04 0d |ttitle..X....b..|
00000480 02 6c 12 dd 20 f2 69 6e 69 74 70 72 69 6e 74 65 |.l.. .initprinte|
00000490 72 0d 02 76 16 de 20 70 63 24 28 35 2c 31 29 2c |r..v.. pc$(5,1),|
000004a0 20 70 64 24 28 35 29 0d 02 80 3c 70 64 24 28 29 | pd$(5)...<pd$()|
000004b0 3d 22 62 6f 6c 64 22 2c 22 69 74 61 6c 69 63 22 |="bold","italic"|
000004c0 2c 22 75 6e 64 65 72 6c 69 6e 65 22 2c 22 73 75 |,"underline","su|
000004d0 70 65 72 22 2c 22 73 75 62 22 2c 22 64 6f 75 62 |per","sub","doub|
000004e0 6c 65 22 0d 02 8a 1e 66 69 6c 65 3d 8e 28 64 69 |le"....file=.(di|
000004f0 72 24 2b 22 2e 50 72 69 6e 74 43 6f 64 65 73 22 |r$+".PrintCodes"|
00000500 29 0d 02 94 0e e3 20 70 25 3d 30 20 b8 20 35 0d |)..... p%=0 . 5.|
00000510 02 9e 22 20 20 70 63 24 28 70 25 2c 31 29 3d a4 |.." pc$(p%,1)=.|
00000520 72 65 61 64 63 6f 64 65 28 70 64 24 28 70 25 29 |readcode(pd$(p%)|
00000530 29 0d 02 a8 26 20 20 70 63 24 28 70 25 2c 30 29 |)...& pc$(p%,0)|
00000540 3d a4 72 65 61 64 63 6f 64 65 28 22 63 22 2b 70 |=.readcode("c"+p|
00000550 64 24 28 70 25 29 29 0d 02 b2 08 ed 20 70 25 0d |d$(p%))..... p%.|
00000560 02 bc 1f 68 65 61 64 65 72 24 3d a4 72 65 61 64 |...header$=.read|
00000570 63 6f 64 65 28 22 68 65 61 64 65 72 22 29 0d 02 |code("header")..|
00000580 c6 1f 66 6f 6f 74 65 72 24 3d a4 72 65 61 64 63 |..footer$=.readc|
00000590 6f 64 65 28 22 66 6f 6f 74 65 72 22 29 0d 02 d0 |ode("footer")...|
000005a0 21 6e 65 77 6c 69 6e 65 24 3d a4 72 65 61 64 63 |!newline$=.readc|
000005b0 6f 64 65 28 22 6e 65 77 6c 69 6e 65 22 29 0d 02 |ode("newline")..|
000005c0 da 0a d9 23 66 69 6c 65 0d 02 e4 05 e1 0d 02 ee |...#file........|
000005d0 04 0d 02 f8 15 dd 20 a4 72 65 61 64 63 6f 64 65 |...... .readcode|
000005e0 28 6b 65 79 24 29 0d 03 02 0d 66 6f 75 6e 64 24 |(key$)....found$|
000005f0 3d 22 22 0d 03 0c 0c cf 23 66 69 6c 65 3d 30 0d |="".....#file=0.|
00000600 03 16 0e c8 95 20 ac c5 23 66 69 6c 65 0d 03 20 |..... ..#file.. |
00000610 12 20 20 72 65 61 64 24 3d be 23 66 69 6c 65 0d |. read$=.#file.|
00000620 03 2a 14 20 20 69 25 3d a7 72 65 61 64 24 2c 22 |.*. i%=.read$,"|
00000630 3a 22 29 0d 03 34 0c 20 20 e7 20 69 25 20 8c 0d |:")..4. . i% ..|
00000640 03 3e 1d 20 20 20 20 e7 20 c0 72 65 61 64 24 2c |.>. . .read$,|
00000650 69 25 2d 31 29 3d 6b 65 79 24 20 8c 0d 03 48 1c |i%-1)=key$ ...H.|
00000660 20 20 20 20 20 20 72 65 61 64 24 3d c1 72 65 61 | read$=.rea|
00000670 64 24 2c 69 25 2b 31 29 0d 03 52 13 20 20 20 20 |d$,i%+1)..R. |
00000680 20 20 66 6f 75 6e 64 24 3d 22 22 0d 03 5c 13 20 | found$=""..\. |
00000690 20 20 20 20 20 c8 95 20 a9 72 65 61 64 24 0d 03 | .. .read$..|
000006a0 66 1d 20 20 20 20 20 20 20 20 e7 20 c0 72 65 61 |f. . .rea|
000006b0 64 24 2c 31 29 3d 22 7c 22 20 8c 0d 03 70 2a 20 |d$,1)="|" ...p* |
000006c0 20 20 20 20 20 20 20 20 20 66 6f 75 6e 64 24 2b | found$+|
000006d0 3d bd 28 97 28 c1 72 65 61 64 24 2c 32 2c 31 29 |=.(.(.read$,2,1)|
000006e0 29 2d 36 34 29 0d 03 7a 1d 20 20 20 20 20 20 20 |)-64)..z. |
000006f0 20 20 20 72 65 61 64 24 3d c1 72 65 61 64 24 2c | read$=.read$,|
00000700 33 29 0d 03 84 0d 20 20 20 20 20 20 20 20 cc 0d |3).... ..|
00000710 03 8e 1f 20 20 20 20 20 20 20 20 20 20 66 6f 75 |... fou|
00000720 6e 64 24 2b 3d c0 72 65 61 64 24 2c 31 29 0d 03 |nd$+=.read$,1)..|
00000730 98 1d 20 20 20 20 20 20 20 20 20 20 72 65 61 64 |.. read|
00000740 24 3d c1 72 65 61 64 24 2c 32 29 0d 03 a2 0d 20 |$=.read$,2).... |
00000750 20 20 20 20 20 20 20 cd 0d 03 ac 0b 20 20 20 20 | ..... |
00000760 20 20 ce 0d 03 b6 09 20 20 20 20 cd 0d 03 c0 07 | ..... .....|
00000770 20 20 cd 0d 03 ca 05 ce 0d 03 d4 0b 3d 66 6f 75 | ..........=fou|
00000780 6e 64 24 0d 03 de 04 0d 03 e8 12 dd 20 f2 69 6e |nd$......... .in|
00000790 69 74 77 69 6e 64 6f 77 73 0d 03 f2 52 69 6e 66 |itwindows...Rinf|
000007a0 6f 25 3d a4 69 6e 66 6f 77 69 6e 64 6f 77 28 22 |o%=.infowindow("|
000007b0 4c 61 62 65 6c 22 2c 22 4c 61 62 65 6c 20 70 72 |Label","Label pr|
000007c0 69 6e 74 65 72 22 2c 22 42 61 72 72 79 20 57 69 |inter","Barry Wi|
000007d0 63 6b 65 74 74 22 2c 22 31 2e 30 31 20 28 31 30 |ckett","1.01 (10|
000007e0 2d 44 65 63 2d 31 39 39 33 22 29 0d 03 fc 2e f2 |-Dec-1993").....|
000007f0 69 63 6f 6e 62 61 72 6d 65 6e 75 28 22 4c 61 62 |iconbarmenu("Lab|
00000800 65 6c 2c 49 6e 66 6f 3e 2c 77 25 28 69 6e 66 6f |el,Info>,w%(info|
00000810 25 29 2c 51 75 69 74 22 29 0d 04 06 24 73 69 7a |%),Quit")...$siz|
00000820 65 25 3d a4 77 69 6e 64 6f 77 28 22 73 69 7a 65 |e%=.window("size|
00000830 22 2c 22 73 69 7a 65 22 2c 30 2c 30 29 0d 04 10 |","size",0,0)...|
00000840 23 73 61 76 65 25 3d a4 73 61 76 65 62 6f 78 28 |#save%=.savebox(|
00000850 6c 66 74 25 2c 22 55 6e 74 69 74 6c 65 64 22 29 |lft%,"Untitled")|
00000860 0d 04 1a 2a 70 72 69 6e 74 25 3d a4 77 69 6e 64 |...*print%=.wind|
00000870 6f 77 28 22 70 72 69 6e 74 22 2c 22 70 72 69 6e |ow("print","prin|
00000880 74 22 2c 30 2c 25 31 30 30 29 0d 04 24 30 73 65 |t",0,%100)..$0se|
00000890 74 74 69 6e 67 73 25 3d a4 77 69 6e 64 6f 77 28 |ttings%=.window(|
000008a0 22 73 65 74 74 69 6e 67 73 22 2c 22 73 65 74 74 |"settings","sett|
000008b0 69 6e 67 73 22 2c 30 2c 30 29 0d 04 2e 2b 6d 65 |ings",0,0)...+me|
000008c0 6e 75 33 25 3d a4 6d 65 6e 75 28 22 4d 6f 76 65 |nu3%=.menu("Move|
000008d0 2c 55 70 2c 44 6f 77 6e 2c 4c 65 66 74 2c 52 69 |,Up,Down,Left,Ri|
000008e0 67 68 74 22 29 0d 04 38 48 6d 65 6e 75 30 25 3d |ght")..8Hmenu0%=|
000008f0 a4 6d 65 6e 75 28 22 4c 61 62 65 6c 2c 53 69 7a |.menu("Label,Siz|
00000900 65 3e 2d 2c 77 25 28 73 69 7a 65 25 29 2c 41 64 |e>-,w%(size%),Ad|
00000910 64 2c 44 65 6c 65 74 65 2c 57 69 70 65 2d 2c 4d |d,Delete,Wipe-,M|
00000920 6f 76 65 3e 2c 6d 65 6e 75 33 25 22 29 0d 04 42 |ove>,menu3%")..B|
00000930 57 73 74 79 6c 65 6d 65 6e 75 25 3d a4 6d 65 6e |Wstylemenu%=.men|
00000940 75 28 22 53 74 79 6c 65 2c 42 6f 6c 64 2c 49 74 |u("Style,Bold,It|
00000950 61 6c 69 63 2c 55 6e 64 65 72 6c 69 6e 65 64 2c |alic,Underlined,|
00000960 53 75 70 65 72 73 63 72 69 70 74 2c 53 75 62 73 |Superscript,Subs|
00000970 63 72 69 70 74 2c 44 6f 75 62 6c 65 20 77 69 64 |cript,Double wid|
00000980 74 68 22 29 0d 04 4c 48 6d 65 6e 75 31 25 3d a4 |th")..LHmenu1%=.|
00000990 6d 65 6e 75 28 22 4d 69 73 63 2c 53 61 76 65 3e |menu("Misc,Save>|
000009a0 2d 2c 77 25 28 73 61 76 65 25 29 2c 50 72 69 6e |-,w%(save%),Prin|
000009b0 74 3e 2d 2c 77 25 28 70 72 69 6e 74 25 29 2c 53 |t>-,w%(print%),S|
000009c0 65 74 74 69 6e 67 73 2e 2e 2e 22 29 0d 04 56 2d |ettings...")..V-|
000009d0 6d 65 6e 75 32 25 3d a4 6d 65 6e 75 28 22 4a 75 |menu2%=.menu("Ju|
000009e0 73 74 69 66 79 2c 4c 65 66 74 2c 43 65 6e 74 72 |stify,Left,Centr|
000009f0 65 2c 52 69 67 68 74 22 29 0d 04 60 72 65 64 69 |e,Right")..`redi|
00000a00 74 25 3d a4 77 69 6e 64 6f 77 28 22 65 64 69 74 |t%=.window("edit|
00000a10 22 2c 22 65 64 69 74 22 2c a4 6d 65 6e 75 28 22 |","edit",.menu("|
00000a20 4c 61 62 65 6c 2c 4d 69 73 63 3e 2d 2c 6d 65 6e |Label,Misc>-,men|
00000a30 75 31 25 2c 4c 61 62 65 6c 3e 2c 6d 65 6e 75 30 |u1%,Label>,menu0|
00000a40 25 2c 53 74 79 6c 65 3e 2c 73 74 79 6c 65 6d 65 |%,Style>,styleme|
00000a50 6e 75 25 2c 4a 75 73 74 69 66 79 3e 2c 6d 65 6e |nu%,Justify>,men|
00000a60 75 32 25 22 29 2c 25 31 31 31 29 0d 04 6a 27 74 |u2%"),%111)..j't|
00000a70 6f 6f 6c 73 25 3d a4 77 69 6e 64 6f 77 28 22 74 |ools%=.window("t|
00000a80 6f 6f 6c 73 22 2c 22 74 6f 6f 6c 73 22 2c 30 2c |ools","tools",0,|
00000a90 30 29 0d 04 74 32 6d 75 6c 74 69 70 72 69 6e 74 |0)..t2multiprint|
00000aa0 25 3d a4 77 69 6e 64 6f 77 28 22 70 72 69 6e 74 |%=.window("print|
00000ab0 69 6e 67 22 2c 22 70 72 69 6e 74 69 6e 67 22 2c |ing","printing",|
00000ac0 30 2c 30 29 0d 04 7e 05 e1 0d 04 88 04 0d 04 92 |0,0)..~.........|
00000ad0 12 dd 20 a4 70 72 65 6d 65 6e 75 65 64 69 74 0d |.. .premenuedit.|
00000ae0 04 9c 0e e3 20 62 25 3d 30 20 b8 20 35 0d 04 a6 |.... b%=0 . 5...|
00000af0 2c 20 20 f2 74 69 63 6b 28 73 74 79 6c 65 6d 65 |, .tick(styleme|
00000b00 6e 75 25 2c 62 25 2c 28 63 73 74 79 6c 65 25 80 |nu%,b%,(cstyle%.|
00000b10 28 31 3c 3c 62 25 29 29 29 0d 04 b0 08 ed 20 62 |(1<<b%)))..... b|
00000b20 25 0d 04 ba 0d f2 67 65 74 63 61 72 65 74 0d 04 |%.....getcaret..|
00000b30 c4 38 e7 20 63 77 69 6e 64 25 3d 77 25 28 65 64 |.8. cwind%=w%(ed|
00000b40 69 74 25 29 20 84 20 73 65 6c 65 63 74 65 64 25 |it%) . selected%|
00000b50 20 8c 20 73 68 61 64 65 25 3d a3 20 8b 20 73 68 | . shade%=. . sh|
00000b60 61 64 65 25 3d b9 0d 04 ce 25 f2 73 68 61 64 65 |ade%=....%.shade|
00000b70 6d 65 6e 75 28 6d 65 6e 75 25 28 65 64 69 74 25 |menu(menu%(edit%|
00000b80 29 2c 32 2c 73 68 61 64 65 25 29 0d 04 d8 32 f2 |),2,shade%)...2.|
00000b90 73 68 61 64 65 6d 65 6e 75 28 6d 65 6e 75 25 28 |shademenu(menu%(|
00000ba0 65 64 69 74 25 29 2c 33 2c 28 63 77 69 6e 64 25 |edit%),3,(cwind%|
00000bb0 3c 3e 77 25 28 65 64 69 74 25 29 29 29 0d 04 e2 |<>w%(edit%)))...|
00000bc0 27 f2 73 65 74 69 63 6f 6e 74 65 78 74 28 77 25 |'.seticontext(w%|
00000bd0 28 73 69 7a 65 25 29 2c 37 2c c3 28 77 69 64 74 |(size%),7,.(widt|
00000be0 68 25 29 29 0d 04 ec 28 f2 73 65 74 69 63 6f 6e |h%))...(.seticon|
00000bf0 74 65 78 74 28 77 25 28 73 69 7a 65 25 29 2c 38 |text(w%(size%),8|
00000c00 2c c3 28 68 65 69 67 68 74 25 29 29 0d 04 f6 14 |,.(height%))....|
00000c10 64 25 3d a4 70 72 65 6d 65 6e 75 70 72 69 6e 74 |d%=.premenuprint|
00000c20 0d 05 00 10 64 25 3d a4 6f 70 65 6e 73 61 76 65 |....d%=.opensave|
00000c30 0d 05 0a 06 3d 30 0d 05 14 04 0d 05 1e 0f dd 20 |....=0......... |
00000c40 a4 6f 70 65 6e 73 61 76 65 0d 05 28 27 f2 73 65 |.opensave..('.se|
00000c50 74 69 63 6f 6e 74 65 78 74 28 77 25 28 73 61 76 |ticontext(w%(sav|
00000c60 65 25 29 2c 32 2c 66 69 6c 65 6e 61 6d 65 24 29 |e%),2,filename$)|
00000c70 0d 05 32 06 3d 30 0d 05 3c 04 0d 05 46 13 dd 20 |..2.=0..<...F.. |
00000c80 a4 70 72 65 6d 65 6e 75 70 72 69 6e 74 0d 05 50 |.premenuprint..P|
00000c90 22 f2 73 65 74 69 63 6f 6e 74 65 78 74 28 77 25 |".seticontext(w%|
00000ca0 28 70 72 69 6e 74 25 29 2c 31 2c 22 31 22 29 0d |(print%),1,"1").|
00000cb0 05 5a 29 f2 73 65 74 69 63 6f 6e 74 65 78 74 28 |.Z).seticontext(|
00000cc0 77 25 28 70 72 69 6e 74 25 29 2c 36 2c c3 28 6c |w%(print%),6,.(l|
00000cd0 61 62 65 6c 73 25 29 29 0d 05 64 22 f2 73 65 74 |abels%))..d".set|
00000ce0 69 63 6f 6e 74 65 78 74 28 77 25 28 70 72 69 6e |icontext(w%(prin|
00000cf0 74 25 29 2c 38 2c 22 31 22 29 0d 05 6e 06 3d 30 |t%),8,"1")..n.=0|
00000d00 0d 05 78 04 0d 05 82 0f dd 20 a4 6f 70 65 6e 65 |..x...... .opene|
00000d10 64 69 74 0d 05 8c 1a f2 77 69 6e 64 6f 77 69 6e |dit.....windowin|
00000d20 66 6f 28 77 25 28 65 64 69 74 25 29 29 0d 05 96 |fo(w%(edit%))...|
00000d30 14 21 62 6c 6b 25 3d 77 25 28 74 6f 6f 6c 73 25 |.!blk%=w%(tools%|
00000d40 29 0d 05 a0 20 62 6c 6b 25 21 38 2d 3d 74 6f 6f |)... blk%!8-=too|
00000d50 6c 73 68 65 69 67 68 74 25 2b 70 69 78 65 6c 68 |lsheight%+pixelh|
00000d60 25 0d 05 aa 1e 62 6c 6b 25 21 31 32 3d 62 6c 6b |%....blk%!12=blk|
00000d70 25 21 34 2b 74 6f 6f 6c 73 77 69 64 74 68 25 0d |%!4+toolswidth%.|
00000d80 05 b4 1f 62 6c 6b 25 21 31 36 3d 62 6c 6b 25 21 |...blk%!16=blk%!|
00000d90 38 2b 74 6f 6f 6c 73 68 65 69 67 68 74 25 0d 05 |8+toolsheight%..|
00000da0 be 0d 62 6c 6b 25 21 32 30 3d 30 0d 05 c8 0d 62 |..blk%!20=0....b|
00000db0 6c 6b 25 21 32 34 3d 30 0d 05 d2 0f f2 6f 70 65 |lk%!24=0.....ope|
00000dc0 6e 77 69 6e 64 6f 77 0d 05 dc 06 3d 30 0d 05 e6 |nwindow....=0...|
00000dd0 04 0d 05 f0 10 dd 20 a4 63 6c 6f 73 65 65 64 69 |...... .closeedi|
00000de0 74 0d 05 fa 10 e7 20 63 68 61 6e 67 65 64 25 20 |t..... changed% |
00000df0 8c 0d 06 04 47 20 20 c8 8e 20 a4 71 75 65 73 74 |....G .. .quest|
00000e00 69 6f 6e 28 22 46 69 6c 65 20 68 61 73 20 62 65 |ion("File has be|
00000e10 65 6e 20 65 64 69 74 65 64 2e 22 2c 22 53 61 76 |en edited.","Sav|
00000e20 65 22 2c 22 44 69 73 63 61 72 64 22 2c 22 43 61 |e","Discard","Ca|
00000e30 6e 63 65 6c 22 29 20 ca 0d 06 0e 2a 20 20 20 20 |ncel") ....* |
00000e40 c9 20 31 20 3a 20 f2 6f 70 65 6e 77 69 6e 64 6f |. 1 : .openwindo|
00000e50 77 61 73 6d 65 6e 75 28 77 25 28 73 61 76 65 25 |wasmenu(w%(save%|
00000e60 29 29 0d 06 18 18 20 20 20 20 c9 20 32 20 3a 20 |)).... . 2 : |
00000e70 63 68 61 6e 67 65 64 25 3d a3 0d 06 22 07 20 20 |changed%=...". |
00000e80 cb 0d 06 2c 05 cd 0d 06 36 2a e7 20 ac 63 68 61 |...,....6*. .cha|
00000e90 6e 67 65 64 25 20 8c 20 f2 63 6c 6f 73 65 77 69 |nged% . .closewi|
00000ea0 6e 64 6f 77 28 77 25 28 74 6f 6f 6c 73 25 29 29 |ndow(w%(tools%))|
00000eb0 0d 06 40 0e 3d ac 63 68 61 6e 67 65 64 25 0d 06 |..@.=.changed%..|
00000ec0 4a 04 0d 06 54 0e dd 20 a4 6b 65 79 65 64 69 74 |J...T.. .keyedit|
00000ed0 0d 06 5e 0b 74 61 6b 65 6e 3d b9 0d 06 68 0a c8 |..^.taken=...h..|
00000ee0 8e 20 b9 20 ca 0d 06 72 1e 20 20 c9 20 6b 65 79 |. . ...r. . key|
00000ef0 25 3d 31 32 37 20 3a 20 f2 64 65 6c 65 74 65 63 |%=127 : .deletec|
00000f00 68 61 72 0d 06 7c 49 20 20 c9 20 6b 65 79 25 3d |har..|I . key%=|
00000f10 26 31 38 43 20 3a 20 e7 20 63 78 25 3e 30 20 8c |&18C : . cx%>0 .|
00000f20 20 f2 6e 65 77 70 6f 73 28 63 78 25 2d 31 2b 28 | .newpos(cx%-1+(|
00000f30 63 68 61 72 25 3f a4 64 70 28 63 78 25 2d 31 2c |char%?.dp(cx%-1,|
00000f40 63 79 25 29 3d 30 29 2c 63 79 25 29 0d 06 86 35 |cy%)=0),cy%)...5|
00000f50 20 20 c9 20 6b 65 79 25 3d 26 31 38 44 20 3a 20 | . key%=&18D : |
00000f60 e7 20 63 78 25 3c 77 69 64 74 68 25 20 8c 20 f2 |. cx%<width% . .|
00000f70 6e 65 77 70 6f 73 28 63 78 25 2b 31 2c 63 79 25 |newpos(cx%+1,cy%|
00000f80 29 0d 06 90 38 20 20 c9 20 6b 65 79 25 3d 26 31 |)...8 . key%=&1|
00000f90 38 45 20 3a 20 e7 20 63 79 25 3c 68 65 69 67 68 |8E : . cy%<heigh|
00000fa0 74 25 2d 31 20 8c 20 f2 6e 65 77 70 6f 73 28 63 |t%-1 . .newpos(c|
00000fb0 78 25 2c 63 79 25 2b 31 29 0d 06 9a 30 20 20 c9 |x%,cy%+1)...0 .|
00000fc0 20 6b 65 79 25 3d 26 31 38 46 20 3a 20 e7 20 63 | key%=&18F : . c|
00000fd0 79 25 3e 30 20 8c 20 f2 6e 65 77 70 6f 73 28 63 |y%>0 . .newpos(c|
00000fe0 78 25 2c 63 79 25 2d 31 29 0d 06 a4 2e 20 20 c9 |x%,cy%-1).... .|
00000ff0 20 6b 65 79 25 3d 26 31 39 43 20 84 20 6b 65 79 | key%=&19C . key|
00001000 25 3d 26 31 41 43 20 3a 20 f2 6e 65 77 70 6f 73 |%=&1AC : .newpos|
00001010 28 30 2c 63 79 25 29 0d 06 ae 33 20 20 c9 20 6b |(0,cy%)...3 . k|
00001020 65 79 25 3d 26 31 39 44 20 84 20 6b 65 79 25 3d |ey%=&19D . key%=|
00001030 26 31 41 44 20 3a 20 f2 6e 65 77 70 6f 73 28 77 |&1AD : .newpos(w|
00001040 69 64 74 68 25 2c 63 79 25 29 0d 06 b8 36 20 20 |idth%,cy%)...6 |
00001050 c9 20 6b 65 79 25 3d 26 31 39 45 20 84 20 6b 65 |. key%=&19E . ke|
00001060 79 25 3d 26 31 41 45 20 3a 20 f2 6e 65 77 70 6f |y%=&1AE : .newpo|
00001070 73 28 63 78 25 2c 68 65 69 67 68 74 25 2d 31 29 |s(cx%,height%-1)|
00001080 0d 06 c2 2e 20 20 c9 20 6b 65 79 25 3d 26 31 39 |.... . key%=&19|
00001090 46 20 84 20 6b 65 79 25 3d 26 31 41 46 20 3a 20 |F . key%=&1AF : |
000010a0 f2 6e 65 77 70 6f 73 28 63 78 25 2c 30 29 0d 06 |.newpos(cx%,0)..|
000010b0 cc 30 20 20 c9 20 6b 65 79 25 3d 31 33 20 3a 20 |.0 . key%=13 : |
000010c0 f2 6e 65 77 70 6f 73 28 30 2c 63 79 25 2d 28 63 |.newpos(0,cy%-(c|
000010d0 79 25 3c 68 65 69 67 68 74 25 2d 31 29 29 0d 06 |y%<height%-1))..|
000010e0 d6 27 20 20 c9 20 6b 65 79 25 3e 3d 33 32 20 80 |.' . key%>=32 .|
000010f0 20 6b 65 79 25 3c 3d 32 35 35 20 3a 20 f2 61 64 | key%<=255 : .ad|
00001100 64 63 68 61 72 0d 06 e0 05 7f 0d 06 ea 0d 20 20 |dchar......... |
00001110 74 61 6b 65 6e 3d a3 0d 06 f4 05 cb 0d 06 fe 0a |taken=..........|
00001120 3d 74 61 6b 65 6e 0d 07 08 04 0d 07 12 11 dd 20 |=taken......... |
00001130 f2 64 65 6c 65 74 65 63 68 61 72 0d 07 1c 0d e7 |.deletechar.....|
00001140 20 63 78 25 3e 30 20 8c 0d 07 26 0e 20 20 6f 63 | cx%>0 ...&. oc|
00001150 78 25 3d 63 78 25 0d 07 30 0e 20 20 f2 63 68 61 |x%=cx%..0. .cha|
00001160 6e 67 65 64 0d 07 3a 0c 20 20 63 78 25 2d 3d 31 |nged..:. cx%-=1|
00001170 0d 07 44 1b 20 20 63 68 61 72 25 3f a4 64 70 28 |..D. char%?.dp(|
00001180 63 78 25 2c 63 79 25 29 3d 33 32 0d 07 4e 20 20 |cx%,cy%)=32..N |
00001190 20 e7 20 73 74 79 6c 65 25 3f a4 64 70 28 63 78 | . style%?.dp(cx|
000011a0 25 2c 63 79 25 29 80 64 77 20 8c 0d 07 58 1d 20 |%,cy%).dw ...X. |
000011b0 20 20 20 73 74 79 6c 65 25 3f a4 64 70 28 63 78 | style%?.dp(cx|
000011c0 25 2c 63 79 25 29 3d 30 0d 07 62 2a 20 20 20 20 |%,cy%)=0..b* |
000011d0 e7 20 65 64 69 74 6d 6f 64 65 25 3e 30 20 8c 20 |. editmode%>0 . |
000011e0 f2 72 65 64 6f 63 68 61 72 28 63 78 25 2c 63 79 |.redochar(cx%,cy|
000011f0 25 29 0d 07 6c 0e 20 20 20 20 63 78 25 2d 3d 31 |%)..l. cx%-=1|
00001200 0d 07 76 1d 20 20 20 20 63 68 61 72 25 3f a4 64 |..v. char%?.d|
00001210 70 28 63 78 25 2c 63 79 25 29 3d 33 32 0d 07 80 |p(cx%,cy%)=32...|
00001220 07 20 20 cd 0d 07 8a 1b 20 20 73 74 79 6c 65 25 |. ..... style%|
00001230 3f a4 64 70 28 63 78 25 2c 63 79 25 29 3d 30 0d |?.dp(cx%,cy%)=0.|
00001240 07 94 15 20 20 e7 20 65 64 69 74 6d 6f 64 65 25 |... . editmode%|
00001250 3d 30 20 8c 0d 07 9e 15 20 20 20 20 65 6e 64 6c |=0 ..... endl|
00001260 69 6e 65 25 3d 6f 63 78 25 0d 07 a8 0f 20 20 20 |ine%=ocx%.... |
00001270 20 74 78 25 3d 63 78 25 0d 07 b2 15 20 20 20 20 | tx%=cx%.... |
00001280 c8 95 20 74 78 25 3c 77 69 64 74 68 25 0d 07 bc |.. tx%<width%...|
00001290 19 20 20 20 20 20 20 e7 20 6f 63 78 25 3c 77 69 |. . ocx%<wi|
000012a0 64 74 68 25 20 8c 0d 07 c6 23 20 20 20 20 20 20 |dth% ....# |
000012b0 20 20 74 63 25 3d 63 68 61 72 25 3f a4 64 70 28 | tc%=char%?.dp(|
000012c0 6f 63 78 25 2c 63 79 25 29 0d 07 d0 24 20 20 20 |ocx%,cy%)...$ |
000012d0 20 20 20 20 20 74 73 25 3d 73 74 79 6c 65 25 3f | ts%=style%?|
000012e0 a4 64 70 28 6f 63 78 25 2c 63 79 25 29 0d 07 da |.dp(ocx%,cy%)...|
000012f0 0b 20 20 20 20 20 20 cc 0d 07 e4 12 20 20 20 20 |. ..... |
00001300 20 20 20 20 74 63 25 3d 33 32 0d 07 ee 11 20 20 | tc%=32.... |
00001310 20 20 20 20 20 20 74 73 25 3d 30 0d 07 f8 0b 20 | ts%=0.... |
00001320 20 20 20 20 20 cd 0d 08 02 2c 20 20 20 20 20 20 | ...., |
00001330 e7 20 74 63 25 3c 3e 33 32 20 84 20 74 73 25 3c |. tc%<>32 . ts%<|
00001340 3e 30 20 8c 20 65 6e 64 6c 69 6e 65 25 3d 6f 63 |>0 . endline%=oc|
00001350 78 25 0d 08 0c 20 20 20 20 20 20 20 63 68 61 72 |x%... char|
00001360 25 3f a4 64 70 28 74 78 25 2c 63 79 25 29 3d 74 |%?.dp(tx%,cy%)=t|
00001370 63 25 0d 08 16 21 20 20 20 20 20 20 73 74 79 6c |c%...! styl|
00001380 65 25 3f a4 64 70 28 74 78 25 2c 63 79 25 29 3d |e%?.dp(tx%,cy%)=|
00001390 74 73 25 0d 08 20 10 20 20 20 20 20 20 74 78 25 |ts%.. . tx%|
000013a0 2b 3d 31 0d 08 2a 11 20 20 20 20 20 20 6f 63 78 |+=1..*. ocx|
000013b0 25 2b 3d 31 0d 08 34 09 20 20 20 20 ce 0d 08 3e |%+=1..4. ...>|
000013c0 25 20 20 20 20 f2 72 65 64 6f 6c 69 6e 65 28 63 |% .redoline(c|
000013d0 79 25 2c 63 78 25 2c 65 6e 64 6c 69 6e 65 25 2b |y%,cx%,endline%+|
000013e0 31 29 0d 08 48 07 20 20 cc 0d 08 52 1a 20 20 20 |1)..H. ...R. |
000013f0 20 f2 72 65 64 6f 63 68 61 72 28 63 78 25 2c 63 | .redochar(cx%,c|
00001400 79 25 29 0d 08 5c 11 20 20 20 20 f2 6c 6f 73 65 |y%)..\. .lose|
00001410 66 6f 6e 74 0d 08 66 07 20 20 cd 0d 08 70 16 20 |font..f. ...p. |
00001420 20 f2 6e 65 77 70 6f 73 28 63 78 25 2c 63 79 25 | .newpos(cx%,cy%|
00001430 29 0d 08 7a 05 cd 0d 08 84 05 e1 0d 08 8e 04 0d |)..z............|
00001440 08 98 0e dd 20 f2 61 64 64 63 68 61 72 0d 08 a2 |.... .addchar...|
00001450 1c 64 77 66 6c 61 67 25 3d 28 28 63 73 74 79 6c |.dwflag%=((cstyl|
00001460 65 25 80 64 77 29 3e 30 29 0d 08 ac 2a 72 65 64 |e%.dw)>0)...*red|
00001470 6f 6e 65 78 74 25 3d 28 28 73 74 79 6c 65 25 3f |onext%=((style%?|
00001480 a4 64 70 28 63 78 25 2c 63 79 25 29 80 64 77 29 |.dp(cx%,cy%).dw)|
00001490 3e 30 29 0d 08 b6 0f 65 6e 64 6c 69 6e 65 25 3d |>0)....endline%=|
000014a0 2d 31 0d 08 c0 0c 6f 63 78 25 3d 63 78 25 0d 08 |-1....ocx%=cx%..|
000014b0 ca 1a e7 20 63 78 25 3c 77 69 64 74 68 25 2b 64 |... cx%<width%+d|
000014c0 77 66 6c 61 67 25 20 8c 0d 08 d4 15 20 20 e7 20 |wflag% ..... . |
000014d0 65 64 69 74 6d 6f 64 65 25 3d 30 20 8c 0d 08 de |editmode%=0 ....|
000014e0 14 20 20 20 20 74 78 25 3d 77 69 64 74 68 25 2d |. tx%=width%-|
000014f0 31 0d 08 e8 1a 20 20 20 20 c8 95 20 74 78 25 3e |1.... .. tx%>|
00001500 63 78 25 2b 64 77 66 6c 61 67 25 0d 08 f2 24 20 |cx%+dwflag%...$ |
00001510 20 20 20 20 20 70 73 25 3d a4 64 70 28 74 78 25 | ps%=.dp(tx%|
00001520 2d 31 2b 64 77 66 6c 61 67 25 2c 63 79 25 29 0d |-1+dwflag%,cy%).|
00001530 08 fc 1a 20 20 20 20 20 20 70 64 25 3d a4 64 70 |... pd%=.dp|
00001540 28 74 78 25 2c 63 79 25 29 0d 09 06 1d 20 20 20 |(tx%,cy%).... |
00001550 20 20 20 63 68 61 72 25 3f 70 64 25 3d 63 68 61 | char%?pd%=cha|
00001560 72 25 3f 70 73 25 0d 09 10 1f 20 20 20 20 20 20 |r%?ps%.... |
00001570 73 74 79 6c 65 25 3f 70 64 25 3d 73 74 79 6c 65 |style%?pd%=style|
00001580 25 3f 70 73 25 0d 09 1a 48 20 20 20 20 20 20 e7 |%?ps%...H .|
00001590 20 28 63 68 61 72 25 3f 70 64 25 3c 3e 33 32 20 | (char%?pd%<>32 |
000015a0 84 20 73 74 79 6c 65 25 3f 70 64 25 3c 3e 30 29 |. style%?pd%<>0)|
000015b0 20 80 20 65 6e 64 6c 69 6e 65 25 3d 2d 31 20 8c | . endline%=-1 .|
000015c0 20 65 6e 64 6c 69 6e 65 25 3d 74 78 25 0d 09 24 | endline%=tx%..$|
000015d0 10 20 20 20 20 20 20 74 78 25 2d 3d 31 0d 09 2e |. tx%-=1...|
000015e0 09 20 20 20 20 ce 0d 09 38 24 20 20 20 20 e7 20 |. ...8$ . |
000015f0 65 6e 64 6c 69 6e 65 25 3d 2d 31 20 8c 20 65 6e |endline%=-1 . en|
00001600 64 6c 69 6e 65 25 3d 63 78 25 0d 09 42 43 20 20 |dline%=cx%..BC |
00001610 20 20 e7 20 73 74 79 6c 65 25 3f a4 64 70 28 77 | . style%?.dp(w|
00001620 69 64 74 68 25 2d 31 2c 63 79 25 29 80 64 77 20 |idth%-1,cy%).dw |
00001630 80 20 63 68 61 72 25 3f a4 64 70 28 77 69 64 74 |. char%?.dp(widt|
00001640 68 25 2d 31 2c 63 79 25 29 3d 30 20 8c 0d 09 4c |h%-1,cy%)=0 ...L|
00001650 23 20 20 20 20 20 20 63 68 61 72 25 3f a4 64 70 |# char%?.dp|
00001660 28 77 69 64 74 68 25 2d 31 2c 63 79 25 29 3d 30 |(width%-1,cy%)=0|
00001670 0d 09 56 25 20 20 20 20 20 20 73 74 79 6c 65 25 |..V% style%|
00001680 3f a4 64 70 28 77 69 64 74 68 25 2d 31 2c 63 79 |?.dp(width%-1,cy|
00001690 25 29 3d 33 32 0d 09 60 09 20 20 20 20 cd 0d 09 |%)=32..`. ...|
000016a0 6a 07 20 20 cd 0d 09 74 0e 20 20 f2 63 68 61 6e |j. ...t. .chan|
000016b0 67 65 64 0d 09 7e 1d 20 20 63 68 61 72 25 3f a4 |ged..~. char%?.|
000016c0 64 70 28 63 78 25 2c 63 79 25 29 3d 6b 65 79 25 |dp(cx%,cy%)=key%|
000016d0 0d 09 88 21 20 20 73 74 79 6c 65 25 3f a4 64 70 |...! style%?.dp|
000016e0 28 63 78 25 2c 63 79 25 29 3d 63 73 74 79 6c 65 |(cx%,cy%)=cstyle|
000016f0 25 0d 09 92 11 20 20 e7 20 64 77 66 6c 61 67 25 |%.... . dwflag%|
00001700 20 8c 0d 09 9c 1e 20 20 20 20 63 68 61 72 25 3f | ..... char%?|
00001710 a4 64 70 28 63 78 25 2b 31 2c 63 79 25 29 3d 30 |.dp(cx%+1,cy%)=0|
00001720 0d 09 a6 25 20 20 20 20 73 74 79 6c 65 25 3f a4 |...% style%?.|
00001730 64 70 28 63 78 25 2b 31 2c 63 79 25 29 3d 63 73 |dp(cx%+1,cy%)=cs|
00001740 74 79 6c 65 25 0d 09 b0 07 20 20 cd 0d 09 ba 15 |tyle%.... .....|
00001750 20 20 e7 20 65 64 69 74 6d 6f 64 65 25 3d 30 20 | . editmode%=0 |
00001760 8c 0d 09 c4 25 20 20 20 20 f2 72 65 64 6f 6c 69 |....% .redoli|
00001770 6e 65 28 63 79 25 2c 63 78 25 2c 65 6e 64 6c 69 |ne(cy%,cx%,endli|
00001780 6e 65 25 2b 31 29 0d 09 ce 07 20 20 cc 0d 09 d8 |ne%+1).... ....|
00001790 20 20 20 20 20 e7 20 72 65 64 6f 6e 65 78 74 25 | . redonext%|
000017a0 20 80 20 ac 64 77 66 6c 61 67 25 20 8c 0d 09 e2 | . .dwflag% ....|
000017b0 21 20 20 20 20 20 20 73 74 79 6c 65 25 3f a4 64 |! style%?.d|
000017c0 70 28 63 78 25 2b 31 2c 63 79 25 29 3d 30 0d 09 |p(cx%+1,cy%)=0..|
000017d0 ec 21 20 20 20 20 20 20 63 68 61 72 25 3f a4 64 |.! char%?.d|
000017e0 70 28 63 78 25 2b 31 2c 63 79 25 29 3d 33 32 0d |p(cx%+1,cy%)=32.|
000017f0 09 f6 1e 20 20 20 20 20 20 f2 72 65 64 6f 63 68 |... .redoch|
00001800 61 72 28 63 78 25 2b 31 2c 63 79 25 29 0d 0a 00 |ar(cx%+1,cy%)...|
00001810 09 20 20 20 20 cd 0d 0a 0a 1a 20 20 20 20 f2 72 |. ..... .r|
00001820 65 64 6f 63 68 61 72 28 63 78 25 2c 63 79 25 29 |edochar(cx%,cy%)|
00001830 0d 0a 14 07 20 20 cd 0d 0a 1e 20 20 20 f2 6e 65 |.... .... .ne|
00001840 77 70 6f 73 28 63 78 25 2b 31 2d 64 77 66 6c 61 |wpos(cx%+1-dwfla|
00001850 67 25 2c 63 79 25 29 0d 0a 28 0f 20 20 f2 6c 6f |g%,cy%)..(. .lo|
00001860 73 65 66 6f 6e 74 0d 0a 32 05 cd 0d 0a 3c 05 e1 |sefont..2....<..|
00001870 0d 0a 46 04 0d 0a 50 1a dd 20 f2 6e 65 77 70 6f |..F...P.. .newpo|
00001880 73 28 6e 65 77 78 25 2c 6e 65 77 79 25 29 0d 0a |s(newx%,newy%)..|
00001890 5a 1a f2 61 6c 69 67 6e 70 6f 73 28 6e 65 77 78 |Z..alignpos(newx|
000018a0 25 2c 6e 65 77 79 25 29 0d 0a 64 27 63 73 74 79 |%,newy%)..d'csty|
000018b0 6c 65 25 3d 73 74 79 6c 65 25 3f a4 64 70 28 63 |le%=style%?.dp(c|
000018c0 78 25 2b 28 63 78 25 3e 30 29 2c 63 79 25 29 0d |x%+(cx%>0),cy%).|
000018d0 0a 6e 16 f2 73 65 74 66 6c 61 67 73 28 63 73 74 |.n..setflags(cst|
000018e0 79 6c 65 25 29 0d 0a 78 0f f2 70 6c 61 63 65 63 |yle%)..x..placec|
000018f0 61 72 65 74 0d 0a 82 05 e1 0d 0a 8c 04 0d 0a 96 |aret............|
00001900 1c dd 20 f2 61 6c 69 67 6e 70 6f 73 28 6e 65 77 |.. .alignpos(new|
00001910 78 25 2c 6e 65 77 79 25 29 0d 0a a0 29 e7 20 63 |x%,newy%)...). c|
00001920 68 61 72 25 3f a4 64 70 28 6e 65 77 78 25 2c 6e |har%?.dp(newx%,n|
00001930 65 77 79 25 29 3d 30 20 8c 20 6e 65 77 78 25 2b |ewy%)=0 . newx%+|
00001940 3d 31 0d 0a aa 0d 63 78 25 3d 6e 65 77 78 25 0d |=1....cx%=newx%.|
00001950 0a b4 0d 63 79 25 3d 6e 65 77 79 25 0d 0a be 05 |...cy%=newy%....|
00001960 e1 0d 0a c8 04 0d 0a d2 16 dd 20 f2 72 65 64 6f |.......... .redo|
00001970 63 68 61 72 28 78 25 2c 79 25 29 0d 0a dc 19 63 |char(x%,y%)....c|
00001980 73 25 3d 73 74 79 6c 65 25 3f a4 64 70 28 78 25 |s%=style%?.dp(x%|
00001990 2c 79 25 29 0d 0a e6 13 f2 73 65 74 66 6f 6e 74 |,y%).....setfont|
000019a0 63 6f 6c 6f 75 72 73 0d 0a f0 1a f2 77 69 6e 64 |colours.....wind|
000019b0 6f 77 69 6e 66 6f 28 77 25 28 65 64 69 74 25 29 |owinfo(w%(edit%)|
000019c0 29 0d 0a fa 13 21 62 6c 6b 25 3d 77 25 28 65 64 |)....!blk%=w%(ed|
000019d0 69 74 25 29 0d 0b 04 14 62 6c 6b 25 21 34 3d 78 |it%)....blk%!4=x|
000019e0 25 2a 78 73 69 7a 65 25 0d 0b 0e 19 62 6c 6b 25 |%*xsize%....blk%|
000019f0 21 38 3d 2d 28 79 25 2b 31 29 2a 79 73 69 7a 65 |!8=-(y%+1)*ysize|
00001a00 25 0d 0b 18 19 62 6c 6b 25 21 31 32 3d 62 6c 6b |%....blk%!12=blk|
00001a10 25 21 34 2b 78 73 69 7a 65 25 0d 0b 22 19 62 6c |%!4+xsize%..".bl|
00001a20 6b 25 21 31 36 3d 62 6c 6b 25 21 38 2b 79 73 69 |k%!16=blk%!8+ysi|
00001a30 7a 65 25 0d 0b 2c 20 e7 20 63 73 25 20 80 20 64 |ze%.., . cs% . d|
00001a40 77 20 8c 20 62 6c 6b 25 21 31 32 2b 3d 78 73 69 |w . blk%!12+=xsi|
00001a50 7a 65 25 0d 0b 36 27 c8 99 22 57 69 6d 70 5f 55 |ze%..6'.."Wimp_U|
00001a60 70 64 61 74 65 57 69 6e 64 6f 77 22 2c 2c 62 6c |pdateWindow",,bl|
00001a70 6b 25 20 b8 20 6d 6f 72 65 25 0d 0b 40 11 f2 67 |k% . more%..@..g|
00001a80 65 74 66 6f 6e 74 28 63 73 25 29 0d 0b 4a 0c c8 |etfont(cs%)..J..|
00001a90 95 20 6d 6f 72 65 25 0d 0b 54 07 20 20 da 0d 0b |. more%..T. ...|
00001aa0 5e 14 20 20 f2 64 6f 63 68 61 72 28 78 25 2c 79 |^. .dochar(x%,y|
00001ab0 25 29 0d 0b 68 29 20 20 c8 99 22 57 69 6d 70 5f |%)..h) .."Wimp_|
00001ac0 47 65 74 52 65 63 74 61 6e 67 6c 65 22 2c 2c 62 |GetRectangle",,b|
00001ad0 6c 6b 25 20 b8 20 6d 6f 72 65 25 0d 0b 72 05 ce |lk% . more%..r..|
00001ae0 0d 0b 7c 05 e1 0d 0b 86 04 0d 0b 90 14 dd 20 f2 |..|........... .|
00001af0 64 6f 63 68 61 72 28 78 25 2c 79 25 29 0d 0b 9a |dochar(x%,y%)...|
00001b00 11 70 25 3d a4 64 70 28 78 25 2c 79 25 29 0d 0b |.p%=.dp(x%,y%)..|
00001b10 a4 0f 63 25 3d 63 68 61 72 25 3f 70 25 0d 0b ae |..c%=char%?p%...|
00001b20 0c e7 20 63 25 3d 30 20 8c 0d 0b b8 0b 20 20 78 |.. c%=0 ..... x|
00001b30 25 2d 3d 31 0d 0b c2 13 20 20 70 25 3d a4 64 70 |%-=1.... p%=.dp|
00001b40 28 78 25 2c 79 25 29 0d 0b cc 11 20 20 63 25 3d |(x%,y%).... c%=|
00001b50 63 68 61 72 25 3f 70 25 0d 0b d6 05 cd 0d 0b e0 |char%?p%........|
00001b60 1d 79 6f 66 66 25 3d 77 79 25 2d 28 79 25 2b 31 |.yoff%=wy%-(y%+1|
00001b70 29 2a 79 73 69 7a 65 25 2b 38 0d 0b ea 2b e7 20 |)*ysize%+8...+. |
00001b80 73 74 79 6c 65 25 3f 70 25 20 80 20 73 75 70 65 |style%?p% . supe|
00001b90 72 20 8c 20 79 6f 66 66 25 2b 3d 79 73 69 7a 65 |r . yoff%+=ysize|
00001ba0 25 2f 32 2d 34 0d 0b f4 41 e7 20 63 25 3c 3e 33 |%/2-4...A. c%<>3|
00001bb0 32 20 8c 20 c8 99 22 46 6f 6e 74 5f 50 61 69 6e |2 . .."Font_Pain|
00001bc0 74 22 2c 2c bd 28 63 25 29 2c 25 31 30 31 30 30 |t",,.(c%),%10100|
00001bd0 2c 77 78 25 2b 78 25 2a 78 73 69 7a 65 25 2b 32 |,wx%+x%*xsize%+2|
00001be0 2c 79 6f 66 66 25 0d 0b fe 1a e7 20 73 74 79 6c |,yoff%..... styl|
00001bf0 65 25 3f 70 25 20 80 20 75 6c 69 6e 65 64 20 8c |e%?p% . ulined .|
00001c00 0d 0c 08 1a 20 20 c8 99 22 57 69 6d 70 5f 53 65 |.... .."Wimp_Se|
00001c10 74 43 6f 6c 6f 75 72 22 2c 37 0d 0c 12 4b 20 20 |tColour",7...K |
00001c20 c8 93 20 c8 90 20 77 78 25 2b 78 25 2a 78 73 69 |.. .. wx%+x%*xsi|
00001c30 7a 65 25 2c 79 6f 66 66 25 2d 34 2c 28 31 2d 28 |ze%,yoff%-4,(1-(|
00001c40 28 73 74 79 6c 65 25 3f 70 25 20 80 20 64 77 29 |(style%?p% . dw)|
00001c50 3e 30 29 29 2a 78 73 69 7a 65 25 2d 70 69 78 65 |>0))*xsize%-pixe|
00001c60 6c 77 25 2c 33 0d 0c 1c 05 cd 0d 0c 26 05 e1 0d |lw%,3.......&...|
00001c70 0c 30 04 0d 0c 3a 15 dd 20 f2 67 65 74 66 6f 6e |.0...:.. .getfon|
00001c80 74 28 74 79 70 65 25 29 0d 0c 44 15 e7 20 74 79 |t(type%)..D.. ty|
00001c90 70 65 25 3c 3e 66 74 79 70 65 25 20 8c 0d 0c 4e |pe%<>ftype% ...N|
00001ca0 17 e7 20 66 6f 6e 74 25 20 8c 20 f2 6c 6f 73 65 |.. font% . .lose|
00001cb0 66 6f 6e 74 0d 0c 58 12 66 6f 6e 74 24 3d 22 43 |font..X.font$="C|
00001cc0 6f 72 70 75 73 22 0d 0c 62 0d 79 73 25 3d 31 34 |orpus"..b.ys%=14|
00001cd0 2a 31 36 0d 0c 6c 0d 78 73 25 3d 31 34 2a 31 36 |*16..l.xs%=14*16|
00001ce0 0d 0c 76 36 e7 20 74 79 70 65 25 20 80 20 62 6f |..v6. type% . bo|
00001cf0 6c 64 20 8c 20 66 6f 6e 74 24 2b 3d 22 2e 42 6f |ld . font$+=".Bo|
00001d00 6c 64 22 20 8b 20 66 6f 6e 74 24 2b 3d 22 2e 4d |ld" . font$+=".M|
00001d10 65 64 69 75 6d 22 0d 0c 80 28 e7 20 74 79 70 65 |edium"...(. type|
00001d20 25 20 80 20 69 74 61 6c 69 63 20 8c 20 66 6f 6e |% . italic . fon|
00001d30 74 24 2b 3d 22 2e 4f 62 6c 69 71 75 65 22 0d 0c |t$+=".Oblique"..|
00001d40 8a 1d e7 20 74 79 70 65 25 20 80 20 73 75 62 20 |... type% . sub |
00001d50 8c 20 79 73 25 3d 79 73 25 2f 32 0d 0c 94 1f e7 |. ys%=ys%/2.....|
00001d60 20 74 79 70 65 25 20 80 20 73 75 70 65 72 20 8c | type% . super .|
00001d70 20 79 73 25 3d 79 73 25 2f 32 0d 0c 9e 1c e7 20 | ys%=ys%/2..... |
00001d80 74 79 70 65 25 20 80 20 64 77 20 8c 20 78 73 25 |type% . dw . xs%|
00001d90 3d 78 73 25 2a 32 0d 0c a8 2c c8 99 22 46 6f 6e |=xs%*2...,.."Fon|
00001da0 74 5f 46 69 6e 64 46 6f 6e 74 22 2c 2c 66 6f 6e |t_FindFont",,fon|
00001db0 74 24 2c 78 73 25 2c 79 73 25 20 b8 20 66 6f 6e |t$,xs%,ys% . fon|
00001dc0 74 25 0d 0c b2 1a c8 99 22 46 6f 6e 74 5f 53 65 |t%......"Font_Se|
00001dd0 74 46 6f 6e 74 22 2c 66 6f 6e 74 25 0d 0c bc 10 |tFont",font%....|
00001de0 66 74 79 70 65 25 3d 74 79 70 65 25 0d 0c c6 05 |ftype%=type%....|
00001df0 cd 0d 0c d0 05 e1 0d 0c da 04 0d 0c e4 0f dd 20 |............... |
00001e00 f2 6c 6f 73 65 66 6f 6e 74 0d 0c ee 25 e7 20 66 |.losefont...%. f|
00001e10 6f 6e 74 25 20 8c 20 c8 99 22 46 6f 6e 74 5f 4c |ont% . .."Font_L|
00001e20 6f 73 65 46 6f 6e 74 22 2c 66 6f 6e 74 25 0d 0c |oseFont",font%..|
00001e30 f8 0b 66 6f 6e 74 25 3d 30 0d 0d 02 0d 66 74 79 |..font%=0....fty|
00001e40 70 65 25 3d 2d 31 0d 0d 0c 05 e1 0d 0d 16 04 0d |pe%=-1..........|
00001e50 0d 20 11 dd 20 a4 72 65 64 72 61 77 65 64 69 74 |. .. .redrawedit|
00001e60 0d 0d 2a 14 6d 69 6e 78 25 3d 78 30 25 2f 78 73 |..*.minx%=x0%/xs|
00001e70 69 7a 65 25 0d 0d 34 15 6d 69 6e 79 25 3d 2d 79 |ize%..4.miny%=-y|
00001e80 31 25 2f 79 73 69 7a 65 25 0d 0d 3e 14 6d 61 78 |1%/ysize%..>.max|
00001e90 78 25 3d 78 31 25 2f 78 73 69 7a 65 25 0d 0d 48 |x%=x1%/xsize%..H|
00001ea0 15 6d 61 78 79 25 3d 2d 79 30 25 2f 79 73 69 7a |.maxy%=-y0%/ysiz|
00001eb0 65 25 0d 0d 52 13 f2 73 65 74 66 6f 6e 74 63 6f |e%..R..setfontco|
00001ec0 6c 6f 75 72 73 0d 0d 5c 16 e3 20 79 25 3d 6d 69 |lours..\.. y%=mi|
00001ed0 6e 79 25 20 b8 20 6d 61 78 79 25 0d 0d 66 18 20 |ny% . maxy%..f. |
00001ee0 20 e3 20 78 25 3d 6d 69 6e 78 25 20 b8 20 6d 61 | . x%=minx% . ma|
00001ef0 78 78 25 0d 0d 70 32 20 20 20 20 e7 20 78 25 3e |xx%..p2 . x%>|
00001f00 3d 30 20 80 20 78 25 3c 77 69 64 74 68 25 20 80 |=0 . x%<width% .|
00001f10 20 79 25 3e 3d 30 20 80 20 79 25 3c 68 65 69 67 | y%>=0 . y%<heig|
00001f20 68 74 25 20 8c 0d 0d 7a 22 20 20 20 20 20 20 e7 |ht% ...z" .|
00001f30 20 63 68 61 72 25 3f a4 64 70 28 78 25 2c 79 25 | char%?.dp(x%,y%|
00001f40 29 3c 3e 33 32 20 8c 0d 0d 84 27 20 20 20 20 20 |)<>32 ....' |
00001f50 20 20 20 f2 67 65 74 66 6f 6e 74 28 73 74 79 6c | .getfont(styl|
00001f60 65 25 3f a4 64 70 28 78 25 2c 79 25 29 29 0d 0d |e%?.dp(x%,y%))..|
00001f70 8e 1a 20 20 20 20 20 20 20 20 f2 64 6f 63 68 61 |.. .docha|
00001f80 72 28 78 25 2c 79 25 29 0d 0d 98 0b 20 20 20 20 |r(x%,y%).... |
00001f90 20 20 cc 0d 0d a2 37 20 20 20 20 20 20 20 20 e7 | ....7 .|
00001fa0 20 73 74 79 6c 65 25 3f a4 64 70 28 78 25 2c 79 | style%?.dp(x%,y|
00001fb0 25 29 80 75 6c 69 6e 65 64 20 8c 20 f2 64 6f 63 |%).ulined . .doc|
00001fc0 68 61 72 28 78 25 2c 79 25 29 0d 0d ac 0b 20 20 |har(x%,y%).... |
00001fd0 20 20 20 20 cd 0d 0d b6 09 20 20 20 20 cd 0d 0d | ..... ...|
00001fe0 c0 0a 20 20 ed 20 78 25 0d 0d ca 08 ed 20 79 25 |.. . x%..... y%|
00001ff0 0d 0d d4 2e e7 20 73 65 6c 65 63 74 65 64 25 20 |..... selected% |
00002000 8c 20 f2 69 6e 76 65 72 74 28 64 73 78 25 2c 64 |. .invert(dsx%,d|
00002010 73 79 25 2c 64 65 78 25 2c 64 65 79 25 29 0d 0d |sy%,dex%,dey%)..|
00002020 de 0d f2 6c 6f 73 65 66 6f 6e 74 0d 0d e8 06 3d |...losefont....=|
00002030 30 0d 0d f2 04 0d 0d fc 14 dd 20 a4 63 6c 69 63 |0......... .clic|
00002040 6b 73 65 74 74 69 6e 67 73 0d 0e 06 0e c8 8e 20 |ksettings...... |
00002050 69 63 6f 6e 25 20 ca 0d 0e 10 09 20 20 c9 20 36 |icon% ..... . 6|
00002060 0d 0e 1a 14 20 20 20 20 f2 67 65 74 73 65 74 74 |.... .getsett|
00002070 69 6e 67 73 0d 0e 24 1b 20 20 20 20 f2 63 6c 6f |ings..$. .clo|
00002080 73 65 77 69 6e 64 6f 77 28 77 69 6e 64 25 29 0d |sewindow(wind%).|
00002090 0e 2e 09 20 20 c9 20 37 0d 0e 38 14 20 20 20 20 |... . 7..8. |
000020a0 f2 67 65 74 73 65 74 74 69 6e 67 73 0d 0e 42 15 |.getsettings..B.|
000020b0 20 20 20 20 f2 73 61 76 65 73 65 74 74 69 6e 67 | .savesetting|
000020c0 73 0d 0e 4c 1b 20 20 20 20 f2 63 6c 6f 73 65 77 |s..L. .closew|
000020d0 69 6e 64 6f 77 28 77 69 6e 64 25 29 0d 0e 56 1a |indow(wind%)..V.|
000020e0 20 20 c9 20 38 20 3a 20 f2 72 65 73 65 74 73 65 | . 8 : .resetse|
000020f0 74 74 69 6e 67 73 0d 0e 60 1f 20 20 c9 20 39 20 |ttings..`. . 9 |
00002100 3a 20 f2 63 6c 6f 73 65 77 69 6e 64 6f 77 28 77 |: .closewindow(w|
00002110 69 6e 64 25 29 0d 0e 6a 39 20 20 c9 20 31 32 20 |ind%)..j9 . 12 |
00002120 3a 20 f2 73 68 61 64 65 69 63 6f 6e 28 77 69 6e |: .shadeicon(win|
00002130 64 25 2c 31 34 2c ac a4 73 65 6c 65 63 74 65 64 |d%,14,..selected|
00002140 28 77 69 6e 64 25 2c 69 63 6f 6e 25 29 29 0d 0e |(wind%,icon%))..|
00002150 74 1a 20 20 c9 20 31 35 20 3a 20 f2 6c 6f 61 64 |t. . 15 : .load|
00002160 73 65 74 74 69 6e 67 73 0d 0e 7e 05 cb 0d 0e 88 |settings..~.....|
00002170 06 3d 30 0d 0e 92 04 0d 0e 9c 13 dd 20 f2 6c 6f |.=0......... .lo|
00002180 61 64 73 65 74 74 69 6e 67 73 0d 0e a6 1c 66 69 |adsettings....fi|
00002190 6c 65 3d 8e 28 64 69 72 24 2b 22 2e 53 65 74 74 |le=.(dir$+".Sett|
000021a0 69 6e 67 73 22 29 0d 0e b0 0e e3 20 69 25 3d 30 |ings")..... i%=0|
000021b0 20 b8 20 34 0d 0e ba 15 20 20 e8 23 66 69 6c 65 | . 4.... .#file|
000021c0 2c 73 65 74 25 28 69 25 29 0d 0e c4 08 ed 20 69 |,set%(i%)..... i|
000021d0 25 0d 0e ce 13 e8 23 66 69 6c 65 2c 73 65 74 66 |%.....#file,setf|
000021e0 69 6c 65 24 0d 0e d8 0a d9 23 66 69 6c 65 0d 0e |ile$.....#file..|
000021f0 e2 10 f2 73 65 74 73 65 74 74 69 6e 67 73 0d 0e |...setsettings..|
00002200 ec 05 e1 0d 0e f6 04 0d 0f 00 13 dd 20 f2 73 61 |............ .sa|
00002210 76 65 73 65 74 74 69 6e 67 73 0d 0f 0a 1c 66 69 |vesettings....fi|
00002220 6c 65 3d ae 28 64 69 72 24 2b 22 2e 53 65 74 74 |le=.(dir$+".Sett|
00002230 69 6e 67 73 22 29 0d 0f 14 0e e3 20 69 25 3d 30 |ings")..... i%=0|
00002240 20 b8 20 34 0d 0f 1e 15 20 20 f1 23 66 69 6c 65 | . 4.... .#file|
00002250 2c 73 65 74 25 28 69 25 29 0d 0f 28 08 ed 20 69 |,set%(i%)..(.. i|
00002260 25 0d 0f 32 13 f1 23 66 69 6c 65 2c 73 65 74 66 |%..2..#file,setf|
00002270 69 6c 65 24 0d 0f 3c 0a d9 23 66 69 6c 65 0d 0f |ile$..<..#file..|
00002280 46 05 e1 0d 0f 50 04 0d 0f 5a 12 dd 20 f2 67 65 |F....P...Z.. .ge|
00002290 74 73 65 74 74 69 6e 67 73 0d 0f 64 0e e3 20 69 |tsettings..d.. i|
000022a0 25 3d 30 20 b8 20 33 0d 0f 6e 2c 20 20 73 65 74 |%=0 . 3..n, set|
000022b0 25 28 69 25 29 3d a4 73 65 6c 65 63 74 65 64 28 |%(i%)=.selected(|
000022c0 77 25 28 73 65 74 74 69 6e 67 73 25 29 2c 69 25 |w%(settings%),i%|
000022d0 2b 32 29 0d 0f 78 08 ed 20 69 25 0d 0f 82 27 73 |+2)..x.. i%...'s|
000022e0 65 74 25 28 34 29 3d a4 73 65 6c 65 63 74 65 64 |et%(4)=.selected|
000022f0 28 77 25 28 73 65 74 74 69 6e 67 73 25 29 2c 31 |(w%(settings%),1|
00002300 32 29 0d 0f 8c 28 73 65 74 66 69 6c 65 24 3d a4 |2)...(setfile$=.|
00002310 69 63 6f 6e 74 65 78 74 28 77 25 28 73 65 74 74 |icontext(w%(sett|
00002320 69 6e 67 73 25 29 2c 31 34 29 0d 0f 96 11 62 65 |ings%),14)....be|
00002330 65 70 25 3d 73 65 74 25 28 33 29 0d 0f a0 05 e1 |ep%=set%(3).....|
00002340 0d 0f aa 04 0d 0f b4 11 dd 20 a4 63 6c 69 63 6b |......... .click|
00002350 70 72 69 6e 74 0d 0f be 0a c8 8e 20 b9 20 ca 0d |print...... . ..|
00002360 0f c8 21 20 20 c9 20 a4 69 6e 63 69 63 6f 6e 28 |..! . .incicon(|
00002370 31 2c 32 2c 33 2c 31 2c 6c 61 62 65 6c 73 25 29 |1,2,3,1,labels%)|
00002380 0d 0f d2 21 20 20 c9 20 a4 69 6e 63 69 63 6f 6e |...! . .incicon|
00002390 28 36 2c 35 2c 37 2c 31 2c 6c 61 62 65 6c 73 25 |(6,5,7,1,labels%|
000023a0 29 0d 0f dc 1d 20 20 c9 20 a4 69 6e 63 69 63 6f |).... . .incico|
000023b0 6e 28 38 2c 31 30 2c 39 2c 31 2c 39 39 29 0d 0f |n(8,10,9,1,99)..|
000023c0 e6 05 7f 0d 0f f0 19 20 20 e7 20 69 63 6f 6e 25 |....... . icon%|
000023d0 3d 31 32 20 8c 20 f2 70 72 69 6e 74 0d 0f fa 05 |=12 . .print....|
000023e0 cb 0d 10 04 06 3d 30 0d 10 0e 04 0d 10 18 0c dd |.....=0.........|
000023f0 20 f2 70 72 69 6e 74 0d 10 22 14 ea 20 6c 61 62 | .print..".. lab|
00002400 65 6c 25 2c 73 74 61 74 75 73 25 0d 10 2c 0b 70 |el%,status%..,.p|
00002410 72 69 6e 74 3d 30 0d 10 36 0d 73 74 61 74 75 73 |rint=0..6.status|
00002420 25 3d 31 0d 10 40 27 66 72 6f 6d 6c 61 62 65 6c |%=1..@'fromlabel|
00002430 25 3d bb a4 69 63 6f 6e 74 65 78 74 28 77 25 28 |%=..icontext(w%(|
00002440 70 72 69 6e 74 25 29 2c 31 29 0d 10 4a 25 74 6f |print%),1)..J%to|
00002450 6c 61 62 65 6c 25 3d bb a4 69 63 6f 6e 74 65 78 |label%=..icontex|
00002460 74 28 77 25 28 70 72 69 6e 74 25 29 2c 36 29 0d |t(w%(print%),6).|
00002470 10 54 23 74 69 6d 65 73 25 3d bb a4 69 63 6f 6e |.T#times%=..icon|
00002480 74 65 78 74 28 77 25 28 70 72 69 6e 74 25 29 2c |text(w%(print%),|
00002490 38 29 0d 10 5e 0e f2 63 6c 6f 73 65 6d 65 6e 75 |8)..^..closemenu|
000024a0 0d 10 68 2e e7 20 66 72 6f 6d 6c 61 62 65 6c 25 |..h.. fromlabel%|
000024b0 3e 74 6f 6c 61 62 65 6c 25 20 84 20 74 6f 6c 61 |>tolabel% . tola|
000024c0 62 65 6c 25 3e 6c 61 62 65 6c 73 25 20 8c 0d 10 |bel%>labels% ...|
000024d0 72 39 20 20 f2 72 65 70 6f 72 74 28 22 42 61 64 |r9 .report("Bad|
000024e0 20 66 72 6f 6d 2f 74 6f 20 70 61 72 61 6d 65 74 | from/to paramet|
000024f0 65 72 73 2c 20 70 72 69 6e 74 20 63 61 6e 63 65 |ers, print cance|
00002500 6c 6c 65 64 2e 22 29 0d 10 7c 05 cc 0d 10 86 0f |lled.")..|......|
00002510 20 20 70 73 74 79 6c 65 25 3d 30 0d 10 90 19 20 | pstyle%=0.... |
00002520 20 70 72 69 6e 74 3d ae 28 22 50 72 69 6e 74 65 | print=.("Printe|
00002530 72 3a 22 29 0d 10 9a 11 20 20 70 72 69 6e 74 69 |r:").... printi|
00002540 6e 67 25 3d b9 0d 10 a4 16 20 20 d5 23 70 72 69 |ng%=..... .#pri|
00002550 6e 74 2c 68 65 61 64 65 72 24 3b 0d 10 ae 24 20 |nt,header$;...$ |
00002560 20 74 69 6d 65 25 3d 31 3a 6c 61 62 65 6c 25 3d | time%=1:label%=|
00002570 66 72 6f 6d 6c 61 62 65 6c 25 3a 79 25 3d 30 0d |fromlabel%:y%=0.|
00002580 10 b8 22 20 20 e7 20 a4 73 65 6c 65 63 74 65 64 |.." . .selected|
00002590 28 77 25 28 70 72 69 6e 74 25 29 2c 31 33 29 20 |(w%(print%),13) |
000025a0 8c 0d 10 c2 11 20 20 20 20 70 61 75 73 65 64 25 |..... paused%|
000025b0 3d a3 0d 10 cc 24 20 20 20 20 f2 71 75 69 63 6b |=....$ .quick|
000025c0 63 6c 6f 73 65 77 69 6e 64 6f 77 28 77 25 28 65 |closewindow(w%(e|
000025d0 64 69 74 25 29 29 0d 10 d6 25 20 20 20 20 f2 71 |dit%))...% .q|
000025e0 75 69 63 6b 63 6c 6f 73 65 77 69 6e 64 6f 77 28 |uickclosewindow(|
000025f0 77 25 28 74 6f 6f 6c 73 25 29 29 0d 10 e0 16 20 |w%(tools%)).... |
00002600 20 20 20 f2 73 65 74 70 72 69 6e 74 69 63 6f 6e | .setprinticon|
00002610 73 0d 10 ea 2f 20 20 20 20 f2 73 65 74 69 63 6f |s.../ .setico|
00002620 6e 74 65 78 74 28 77 25 28 6d 75 6c 74 69 70 72 |ntext(w%(multipr|
00002630 69 6e 74 25 29 2c 35 2c 22 50 61 75 73 65 22 29 |int%),5,"Pause")|
00002640 0d 10 f4 20 20 20 20 20 f2 6f 70 65 6e 75 70 28 |... .openup(|
00002650 77 25 28 6d 75 6c 74 69 70 72 69 6e 74 25 29 29 |w%(multiprint%))|
00002660 0d 10 fe 14 20 20 20 20 c8 95 20 70 72 69 6e 74 |.... .. print|
00002670 69 6e 67 25 0d 11 08 2b 20 20 20 20 20 20 c8 99 |ing%...+ ..|
00002680 22 4f 53 5f 52 65 61 64 4d 6f 6e 6f 74 6f 6e 69 |"OS_ReadMonotoni|
00002690 63 54 69 6d 65 22 20 b8 20 6d 74 69 6d 65 25 0d |cTime" . mtime%.|
000026a0 11 12 14 20 20 20 20 20 20 6d 74 69 6d 65 25 2b |... mtime%+|
000026b0 3d 35 30 0d 11 1c 33 20 20 20 20 20 20 c8 99 22 |=50...3 .."|
000026c0 57 69 6d 70 5f 50 6f 6c 6c 49 64 6c 65 22 2c 30 |Wimp_PollIdle",0|
000026d0 2c 62 6c 6b 25 2c 6d 74 69 6d 65 25 20 b8 20 72 |,blk%,mtime% . r|
000026e0 65 61 73 6f 6e 25 0d 11 26 16 20 20 20 20 20 20 |eason%..&. |
000026f0 c8 8e 20 72 65 61 73 6f 6e 25 20 ca 0d 11 30 3b |.. reason% ...0;|
00002700 20 20 20 20 20 20 20 20 c9 20 30 3a e7 20 ac 70 | . 0:. .p|
00002710 61 75 73 65 64 25 20 80 20 a4 66 72 65 65 69 6e |aused% . .freein|
00002720 62 75 66 66 65 72 3e 32 35 36 20 8c 20 f2 6e 75 |buffer>256 . .nu|
00002730 6c 6c 70 72 69 6e 74 0d 11 3a 17 20 20 20 20 20 |llprint..:. |
00002740 20 20 20 c9 20 31 3a f2 72 65 64 72 61 77 0d 11 | . 1:.redraw..|
00002750 44 1b 20 20 20 20 20 20 20 20 c9 20 32 3a f2 6f |D. . 2:.o|
00002760 70 65 6e 77 69 6e 64 6f 77 0d 11 4e 57 20 20 20 |penwindow..NW |
00002770 20 20 20 20 20 c9 20 36 3a e7 20 62 6c 6b 25 21 | . 6:. blk%!|
00002780 31 32 3d 77 25 28 6d 75 6c 74 69 70 72 69 6e 74 |12=w%(multiprint|
00002790 25 29 20 8c 20 f2 63 6c 69 63 6b 28 21 62 6c 6b |%) . .click(!blk|
000027a0 25 2c 62 6c 6b 25 21 34 2c 62 6c 6b 25 21 38 2c |%,blk%!4,blk%!8,|
000027b0 62 6c 6b 25 21 31 32 2c 62 6c 6b 25 21 31 36 29 |blk%!12,blk%!16)|
000027c0 0d 11 58 33 20 20 20 20 20 20 20 20 c9 20 31 37 |..X3 . 17|
000027d0 2c 31 38 3a f2 6d 65 73 73 61 67 65 28 62 6c 6b |,18:.message(blk|
000027e0 25 21 34 2c 62 6c 6b 25 21 38 2c 62 6c 6b 25 21 |%!4,blk%!8,blk%!|
000027f0 31 36 29 0d 11 62 0b 20 20 20 20 20 20 cb 0d 11 |16)..b. ...|
00002800 6c 09 20 20 20 20 ce 0d 11 76 25 20 20 20 20 f2 |l. ...v% .|
00002810 63 6c 6f 73 65 77 69 6e 64 6f 77 28 77 25 28 6d |closewindow(w%(m|
00002820 75 6c 74 69 70 72 69 6e 74 25 29 29 0d 11 80 23 |ultiprint%))...#|
00002830 20 20 20 20 f2 66 72 6f 6e 74 6f 70 65 6e 77 69 | .frontopenwi|
00002840 6e 64 6f 77 28 77 25 28 65 64 69 74 25 29 29 0d |ndow(w%(edit%)).|
00002850 11 8a 07 20 20 cc 0d 11 94 18 20 20 20 20 c8 99 |... ..... ..|
00002860 22 48 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 0d 11 |"Hourglass_On"..|
00002870 9e 14 20 20 20 20 c8 95 20 70 72 69 6e 74 69 6e |.. .. printin|
00002880 67 25 0d 11 a8 14 20 20 20 20 20 20 f2 6e 75 6c |g%.... .nul|
00002890 6c 70 72 69 6e 74 0d 11 b2 09 20 20 20 20 ce 0d |lprint.... ..|
000028a0 11 bc 19 20 20 20 20 c8 99 22 48 6f 75 72 67 6c |... .."Hourgl|
000028b0 61 73 73 5f 4f 66 66 22 0d 11 c6 07 20 20 cd 0d |ass_Off".... ..|
000028c0 11 d0 16 20 20 d5 23 70 72 69 6e 74 2c 66 6f 6f |... .#print,foo|
000028d0 74 65 72 24 3b 0d 11 da 0d 20 20 d9 23 70 72 69 |ter$;.... .#pri|
000028e0 6e 74 0d 11 e4 05 cd 0d 11 ee 05 e1 0d 11 f8 04 |nt..............|
000028f0 0d 12 02 14 dd 20 a4 63 6c 69 63 6b 70 72 69 6e |..... .clickprin|
00002900 74 69 6e 67 0d 12 0c 0e c8 8e 20 69 63 6f 6e 25 |ting...... icon%|
00002910 20 ca 0d 12 16 09 20 20 c9 20 35 0d 12 20 18 20 | ..... . 5.. . |
00002920 20 20 20 70 61 75 73 65 64 25 3d ac 70 61 75 73 | paused%=.paus|
00002930 65 64 25 0d 12 2a 68 20 20 20 20 e7 20 70 61 75 |ed%..*h . pau|
00002940 73 65 64 25 20 8c 20 f2 73 65 74 69 63 6f 6e 74 |sed% . .seticont|
00002950 65 78 74 28 77 25 28 6d 75 6c 74 69 70 72 69 6e |ext(w%(multiprin|
00002960 74 25 29 2c 35 2c 22 43 6f 6e 74 69 6e 75 65 22 |t%),5,"Continue"|
00002970 29 20 8b 20 f2 73 65 74 69 63 6f 6e 74 65 78 74 |) . .seticontext|
00002980 28 77 25 28 6d 75 6c 74 69 70 72 69 6e 74 25 29 |(w%(multiprint%)|
00002990 2c 35 2c 22 50 61 75 73 65 22 29 0d 12 34 17 20 |,5,"Pause")..4. |
000029a0 20 c9 20 36 20 3a 20 70 72 69 6e 74 69 6e 67 25 | . 6 : printing%|
000029b0 3d a3 0d 12 3e 05 cb 0d 12 48 06 3d 30 0d 12 52 |=...>....H.=0..R|
000029c0 04 0d 12 5c 13 dd 20 a4 66 72 65 65 69 6e 62 75 |...\.. .freeinbu|
000029d0 66 66 65 72 0d 12 66 14 c8 99 22 4f 53 5f 42 79 |ffer..f..."OS_By|
000029e0 74 65 22 2c 32 31 2c 33 0d 12 70 25 c8 99 22 4f |te",21,3..p%.."O|
000029f0 53 5f 42 79 74 65 22 2c 31 32 38 2c 32 35 32 20 |S_Byte",128,252 |
00002a00 b8 20 2c 6c 6f 77 25 2c 68 69 67 68 25 0d 12 7a |. ,low%,high%..z|
00002a10 14 3d 6c 6f 77 25 2b 28 68 69 67 68 25 3c 3c 38 |.=low%+(high%<<8|
00002a20 29 0d 12 84 04 0d 12 8e 14 dd 20 f2 73 65 74 70 |)......... .setp|
00002a30 72 69 6e 74 69 63 6f 6e 73 0d 12 98 2d f2 73 65 |rinticons...-.se|
00002a40 74 69 63 6f 6e 74 65 78 74 28 77 25 28 6d 75 6c |ticontext(w%(mul|
00002a50 74 69 70 72 69 6e 74 25 29 2c 31 2c c3 28 6c 61 |tiprint%),1,.(la|
00002a60 62 65 6c 25 29 29 0d 12 a2 2c f2 73 65 74 69 63 |bel%))...,.setic|
00002a70 6f 6e 74 65 78 74 28 77 25 28 6d 75 6c 74 69 70 |ontext(w%(multip|
00002a80 72 69 6e 74 25 29 2c 34 2c c3 28 74 69 6d 65 25 |rint%),4,.(time%|
00002a90 29 29 0d 12 ac 59 70 63 25 3d 31 30 30 2a 28 28 |))...Ypc%=100*((|
00002aa0 31 2b 74 6f 6c 61 62 65 6c 25 2d 66 72 6f 6d 6c |1+tolabel%-froml|
00002ab0 61 62 65 6c 25 29 2a 28 74 69 6d 65 25 2d 31 29 |abel%)*(time%-1)|
00002ac0 2b 6c 61 62 65 6c 25 2d 31 29 2f 28 28 31 2b 74 |+label%-1)/((1+t|
00002ad0 6f 6c 61 62 65 6c 25 2d 66 72 6f 6d 6c 61 62 65 |olabel%-fromlabe|
00002ae0 6c 25 29 2a 74 69 6d 65 73 25 29 0d 12 b6 15 e7 |l%)*times%).....|
00002af0 20 70 63 25 3e 39 39 20 8c 20 70 63 25 3d 39 39 | pc%>99 . pc%=99|
00002b00 0d 12 c0 2a f2 73 65 74 69 63 6f 6e 74 65 78 74 |...*.seticontext|
00002b10 28 77 25 28 6d 75 6c 74 69 70 72 69 6e 74 25 29 |(w%(multiprint%)|
00002b20 2c 38 2c c3 28 70 63 25 29 29 0d 12 ca 05 e1 0d |,8,.(pc%))......|
00002b30 12 d4 04 0d 12 de 10 dd 20 f2 6e 75 6c 6c 70 72 |........ .nullpr|
00002b40 69 6e 74 0d 12 e8 0c 73 70 65 65 64 25 3d 30 0d |int....speed%=0.|
00002b50 12 f2 1b c8 95 20 70 72 69 6e 74 69 6e 67 25 20 |..... printing% |
00002b60 80 20 73 70 65 65 64 25 3c 34 0d 12 fc 15 e3 20 |. speed%<4..... |
00002b70 78 25 3d 30 20 b8 20 77 69 64 74 68 25 2d 31 0d |x%=0 . width%-1.|
00002b80 13 06 13 20 20 70 25 3d a4 64 70 28 78 25 2c 79 |... p%=.dp(x%,y|
00002b90 25 29 0d 13 10 12 20 20 e7 20 63 68 61 72 25 3f |%).... . char%?|
00002ba0 70 25 20 8c 0d 13 1a 31 20 20 20 20 e7 20 73 74 |p% ....1 . st|
00002bb0 79 6c 65 25 3f 70 25 3c 3e 70 73 74 79 6c 65 25 |yle%?p%<>pstyle%|
00002bc0 20 8c 20 f2 70 73 74 79 6c 65 28 73 74 79 6c 65 | . .pstyle(style|
00002bd0 25 3f 70 25 29 0d 13 24 18 20 20 20 20 d5 23 70 |%?p%)..$. .#p|
00002be0 72 69 6e 74 2c 63 68 61 72 25 3f 70 25 0d 13 2e |rint,char%?p%...|
00002bf0 07 20 20 cd 0d 13 38 08 ed 20 78 25 0d 13 42 0e |. ...8.. x%..B.|
00002c00 f2 70 73 74 79 6c 65 28 30 29 0d 13 4c 15 d5 23 |.pstyle(0)..L..#|
00002c10 70 72 69 6e 74 2c 6e 65 77 6c 69 6e 65 24 3b 0d |print,newline$;.|
00002c20 13 56 09 79 25 2b 3d 31 0d 13 60 12 e7 20 79 25 |.V.y%+=1..`.. y%|
00002c30 3d 68 65 69 67 68 74 25 20 8c 0d 13 6a 17 20 20 |=height% ...j. |
00002c40 d5 23 70 72 69 6e 74 2c 6e 65 77 6c 69 6e 65 24 |.#print,newline$|
00002c50 3b 0d 13 74 0a 20 20 79 25 3d 30 0d 13 7e 0f 20 |;..t. y%=0..~. |
00002c60 20 6c 61 62 65 6c 25 2b 3d 31 0d 13 88 19 20 20 | label%+=1.... |
00002c70 e7 20 6c 61 62 65 6c 25 3e 74 6f 6c 61 62 65 6c |. label%>tolabel|
00002c80 25 20 8c 0d 13 92 19 20 20 20 20 6c 61 62 65 6c |% ..... label|
00002c90 25 3d 66 72 6f 6d 6c 61 62 65 6c 25 0d 13 9c 10 |%=fromlabel%....|
00002ca0 20 20 20 20 74 69 6d 65 25 2b 3d 31 0d 13 a6 24 | time%+=1...$|
00002cb0 20 20 20 20 e7 20 74 69 6d 65 25 3e 74 69 6d 65 | . time%>time|
00002cc0 73 25 20 8c 20 70 72 69 6e 74 69 6e 67 25 3d a3 |s% . printing%=.|
00002cd0 0d 13 b0 07 20 20 cd 0d 13 ba 14 20 20 f2 73 65 |.... ..... .se|
00002ce0 74 70 72 69 6e 74 69 63 6f 6e 73 0d 13 c4 05 cd |tprinticons.....|
00002cf0 0d 13 ce 0d 73 70 65 65 64 25 2b 3d 31 0d 13 d8 |....speed%+=1...|
00002d00 05 ce 0d 13 e2 05 e1 0d 13 ec 04 0d 13 f6 13 dd |................|
00002d10 20 f2 70 73 74 79 6c 65 28 6e 65 77 25 29 0d 14 | .pstyle(new%)..|
00002d20 00 18 63 68 61 6e 67 65 25 3d 6e 65 77 25 82 70 |..change%=new%.p|
00002d30 73 74 79 6c 65 25 0d 14 0a 0e e3 20 63 25 3d 30 |style%..... c%=0|
00002d40 20 b8 20 35 0d 14 14 19 20 20 e7 20 63 68 61 6e | . 5.... . chan|
00002d50 67 65 25 80 28 31 3c 3c 63 25 29 20 8c 0d 14 1e |ge%.(1<<c%) ....|
00002d60 2b 20 20 20 20 d5 23 66 69 6c 65 2c 70 63 24 28 |+ .#file,pc$(|
00002d70 63 25 2c 2d 28 28 6e 65 77 25 80 28 31 3c 3c 63 |c%,-((new%.(1<<c|
00002d80 25 29 29 3e 30 29 29 3b 0d 14 28 07 20 20 cd 0d |%))>0));..(. ..|
00002d90 14 32 08 ed 20 63 25 0d 14 3c 10 70 73 74 79 6c |.2.. c%..<.pstyl|
00002da0 65 25 3d 6e 65 77 25 0d 14 46 05 e1 0d 14 50 04 |e%=new%..F....P.|
00002db0 0d 14 5a 10 dd 20 a4 63 6c 69 63 6b 73 69 7a 65 |..Z.. .clicksize|
00002dc0 0d 14 64 0a c8 8e 20 b9 20 ca 0d 14 6e 23 20 20 |..d... . ...n# |
00002dd0 c9 20 a4 69 6e 63 69 63 6f 6e 28 37 2c 31 2c 32 |. .incicon(7,1,2|
00002de0 2c 38 2c 6d 61 78 77 69 64 74 68 25 29 0d 14 78 |,8,maxwidth%)..x|
00002df0 24 20 20 c9 20 a4 69 6e 63 69 63 6f 6e 28 38 2c |$ . .incicon(8,|
00002e00 34 2c 33 2c 31 2c 6d 61 78 68 65 69 67 68 74 25 |4,3,1,maxheight%|
00002e10 29 0d 14 82 05 7f 0d 14 8c 1a 20 20 e7 20 69 63 |)......... . ic|
00002e20 6f 6e 25 3d 39 20 8c 20 f2 6e 65 77 73 69 7a 65 |on%=9 . .newsize|
00002e30 0d 14 96 05 cb 0d 14 a0 06 3d 30 0d 14 aa 04 0d |.........=0.....|
00002e40 14 b4 0e dd 20 a4 6b 65 79 73 69 7a 65 0d 14 be |.... .keysize...|
00002e50 1e 74 61 6b 65 6e 3d a4 69 63 6f 6e 6b 65 79 73 |.taken=.iconkeys|
00002e60 28 73 69 7a 65 64 61 74 61 25 29 0d 14 c8 19 e7 |(sizedata%).....|
00002e70 20 74 61 6b 65 6e 3d 2d 32 20 8c 20 f2 6e 65 77 | taken=-2 . .new|
00002e80 73 69 7a 65 0d 14 d2 0a 3d 74 61 6b 65 6e 0d 14 |size....=taken..|
00002e90 dc 04 0d 14 e6 0f dd 20 a4 6b 65 79 70 72 69 6e |....... .keyprin|
00002ea0 74 0d 14 f0 1f 74 61 6b 65 6e 3d a4 69 63 6f 6e |t....taken=.icon|
00002eb0 6b 65 79 73 28 70 72 69 6e 74 64 61 74 61 25 29 |keys(printdata%)|
00002ec0 0d 14 fa 17 e7 20 74 61 6b 65 6e 3d 2d 32 20 8c |..... taken=-2 .|
00002ed0 20 f2 70 72 69 6e 74 0d 15 04 0a 3d 74 61 6b 65 | .print....=take|
00002ee0 6e 0d 15 0e 04 0d 15 18 0e dd 20 f2 6e 65 77 73 |n......... .news|
00002ef0 69 7a 65 0d 15 22 1f 74 77 25 3d bb a4 69 63 6f |ize..".tw%=..ico|
00002f00 6e 74 65 78 74 28 77 25 28 73 69 7a 65 25 29 2c |ntext(w%(size%),|
00002f10 37 29 0d 15 2c 1f 74 68 25 3d bb a4 69 63 6f 6e |7)..,.th%=..icon|
00002f20 74 65 78 74 28 77 25 28 73 69 7a 65 25 29 2c 38 |text(w%(size%),8|
00002f30 29 0d 15 36 36 e7 20 74 77 25 3c 38 20 84 20 74 |)..66. tw%<8 . t|
00002f40 77 25 3e 6d 61 78 77 69 64 74 68 25 20 84 20 74 |w%>maxwidth% . t|
00002f50 68 25 3c 31 20 84 20 74 68 25 3e 6d 61 78 68 65 |h%<1 . th%>maxhe|
00002f60 69 67 68 74 25 20 8c 0d 15 40 20 20 20 f2 72 65 |ight% ...@ .re|
00002f70 70 6f 72 74 28 22 42 61 64 20 6c 61 62 65 6c 20 |port("Bad label |
00002f80 73 69 7a 65 2e 22 29 0d 15 4a 05 cc 0d 15 54 10 |size.")..J....T.|
00002f90 20 20 77 69 64 74 68 25 3d 74 77 25 0d 15 5e 11 | width%=tw%..^.|
00002fa0 20 20 68 65 69 67 68 74 25 3d 74 68 25 0d 15 68 | height%=th%..h|
00002fb0 14 20 20 f2 73 65 74 77 69 6e 64 6f 77 73 69 7a |. .setwindowsiz|
00002fc0 65 0d 15 72 21 20 20 f2 6e 65 77 70 6f 73 28 77 |e..r! .newpos(w|
00002fd0 69 64 74 68 25 2f 32 2c 68 65 69 67 68 74 25 2f |idth%/2,height%/|
00002fe0 32 29 0d 15 7c 1d 20 20 f2 6f 70 65 6e 66 75 6c |2)..|. .openful|
00002ff0 6c 79 28 77 25 28 65 64 69 74 25 29 2c a3 29 0d |ly(w%(edit%),.).|
00003000 15 86 0e 20 20 f2 63 68 61 6e 67 65 64 0d 15 90 |... .changed...|
00003010 05 cd 0d 15 9a 0e f2 63 6c 6f 73 65 6d 65 6e 75 |.......closemenu|
00003020 0d 15 a4 05 e1 0d 15 ae 04 0d 15 b8 0f dd 20 a4 |.............. .|
00003030 6d 65 6e 75 65 64 69 74 0d 15 c2 0e c8 8e 20 21 |menuedit...... !|
00003040 62 6c 6b 25 20 ca 0d 15 cc 09 20 20 c9 20 30 0d |blk% ..... . 0.|
00003050 15 d6 13 20 20 20 20 c8 8e 20 62 6c 6b 25 21 34 |... .. blk%!4|
00003060 20 ca 0d 15 e0 2e 20 20 20 20 20 20 c9 20 31 20 | ..... . 1 |
00003070 3a 20 f2 6f 70 65 6e 77 69 6e 64 6f 77 73 61 73 |: .openwindowsas|
00003080 6d 65 6e 75 28 77 25 28 70 72 69 6e 74 25 29 29 |menu(w%(print%))|
00003090 0d 15 ea 0d 20 20 20 20 20 20 c9 20 32 0d 15 f4 |.... . 2...|
000030a0 18 20 20 20 20 20 20 20 20 f2 73 65 74 73 65 74 |. .setset|
000030b0 74 69 6e 67 73 0d 15 fe 22 20 20 20 20 20 20 20 |tings..." |
000030c0 20 f2 6f 70 65 6e 75 70 28 77 25 28 73 65 74 74 | .openup(w%(sett|
000030d0 69 6e 67 73 25 29 29 0d 16 08 09 20 20 20 20 cb |ings%)).... .|
000030e0 0d 16 12 09 20 20 c9 20 31 0d 16 1c 13 20 20 20 |.... . 1.... |
000030f0 20 c8 8e 20 62 6c 6b 25 21 34 20 ca 0d 16 26 19 | .. blk%!4 ...&.|
00003100 20 20 20 20 20 20 c9 20 31 20 3a 20 f2 61 64 64 | . 1 : .add|
00003110 6c 61 62 65 6c 0d 16 30 1c 20 20 20 20 20 20 c9 |label..0. .|
00003120 20 32 20 3a 20 f2 64 65 6c 65 74 65 6c 61 62 65 | 2 : .deletelabe|
00003130 6c 0d 16 3a 1a 20 20 20 20 20 20 c9 20 33 20 3a |l..:. . 3 :|
00003140 20 f2 77 69 70 65 6c 61 62 65 6c 0d 16 44 0d 20 | .wipelabel..D. |
00003150 20 20 20 20 20 c9 20 34 0d 16 4e 17 20 20 20 20 | . 4..N. |
00003160 20 20 20 20 c8 8e 20 62 6c 6b 25 21 38 20 ca 0d | .. blk%!8 ..|
00003170 16 58 24 20 20 20 20 20 20 20 20 20 20 c9 20 30 |.X$ . 0|
00003180 20 3a 20 f2 6d 6f 76 65 6c 61 62 65 6c 28 30 2c | : .movelabel(0,|
00003190 2d 31 29 0d 16 62 23 20 20 20 20 20 20 20 20 20 |-1)..b# |
000031a0 20 c9 20 31 20 3a 20 f2 6d 6f 76 65 6c 61 62 65 | . 1 : .movelabe|
000031b0 6c 28 30 2c 31 29 0d 16 6c 24 20 20 20 20 20 20 |l(0,1)..l$ |
000031c0 20 20 20 20 c9 20 32 20 3a 20 f2 6d 6f 76 65 6c | . 2 : .movel|
000031d0 61 62 65 6c 28 2d 31 2c 30 29 0d 16 76 23 20 20 |abel(-1,0)..v# |
000031e0 20 20 20 20 20 20 20 20 c9 20 33 20 3a 20 f2 6d | . 3 : .m|
000031f0 6f 76 65 6c 61 62 65 6c 28 31 2c 30 29 0d 16 80 |ovelabel(1,0)...|
00003200 0d 20 20 20 20 20 20 20 20 cb 0d 16 8a 09 20 20 |. ..... |
00003210 20 20 cb 0d 16 94 09 20 20 c9 20 32 0d 16 9e 13 | ..... . 2....|
00003220 20 20 20 20 c8 8e 20 62 6c 6b 25 21 34 20 ca 0d | .. blk%!4 ..|
00003230 16 a8 17 20 20 20 20 20 20 c9 20 30 2c 31 2c 32 |... . 0,1,2|
00003240 2c 33 2c 34 2c 35 0d 16 b2 1d 20 20 20 20 20 20 |,3,4,5.... |
00003250 20 20 6f 6c 64 73 74 79 6c 65 25 3d 63 73 74 79 | oldstyle%=csty|
00003260 6c 65 25 0d 16 bc 45 20 20 20 20 20 20 20 20 e7 |le%...E .|
00003270 20 62 6c 6b 25 21 34 3d 33 20 84 20 62 6c 6b 25 | blk%!4=3 . blk%|
00003280 21 34 3d 34 20 8c 20 63 73 74 79 6c 65 25 3d 63 |!4=4 . cstyle%=c|
00003290 73 74 79 6c 65 25 20 80 ac 28 31 3c 3c 28 37 2d |style% ..(1<<(7-|
000032a0 62 6c 6b 25 21 34 29 29 0d 16 c6 2b 20 20 20 20 |blk%!4))...+ |
000032b0 20 20 20 20 63 73 74 79 6c 65 25 3d 63 73 74 79 | cstyle%=csty|
000032c0 6c 65 25 20 82 20 28 31 3c 3c 28 62 6c 6b 25 21 |le% . (1<<(blk%!|
000032d0 34 29 29 0d 16 d0 1e 20 20 20 20 20 20 20 20 f2 |4)).... .|
000032e0 73 65 74 66 6c 61 67 73 28 63 73 74 79 6c 65 25 |setflags(cstyle%|
000032f0 29 0d 16 da 3e 20 20 20 20 20 20 20 20 e7 20 6f |)...> . o|
00003300 6c 64 73 74 79 6c 65 25 3c 3e 63 73 74 79 6c 65 |ldstyle%<>cstyle|
00003310 25 20 80 20 73 65 6c 65 63 74 65 64 25 20 8c 20 |% . selected% . |
00003320 f2 63 68 61 6e 67 65 73 65 6c 65 63 74 65 64 0d |.changeselected.|
00003330 16 e4 09 20 20 20 20 cb 0d 16 ee 29 20 20 c9 20 |... ....) . |
00003340 33 20 3a 20 e7 20 62 6c 6b 25 21 34 3e 2d 31 20 |3 : . blk%!4>-1 |
00003350 8c 20 f2 70 61 72 61 28 62 6c 6b 25 21 34 2d 31 |. .para(blk%!4-1|
00003360 29 0d 16 f8 05 cb 0d 17 02 06 3d 30 0d 17 0c 04 |).........=0....|
00003370 0d 17 16 19 dd 20 f2 6d 6f 76 65 6c 61 62 65 6c |..... .movelabel|
00003380 28 69 78 25 2c 69 79 25 29 0d 17 20 14 c8 99 22 |(ix%,iy%).. ..."|
00003390 48 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 0d 17 2a |Hourglass_On"..*|
000033a0 16 66 78 25 3d 30 3a 74 78 25 3d 77 69 64 74 68 |.fx%=0:tx%=width|
000033b0 25 2d 31 0d 17 34 17 66 79 25 3d 30 3a 74 79 25 |%-1..4.fy%=0:ty%|
000033c0 3d 68 65 69 67 68 74 25 2d 31 0d 17 3e 18 e7 20 |=height%-1..>.. |
000033d0 69 78 25 3e 30 20 8c 20 c8 94 20 66 78 25 2c 74 |ix%>0 . .. fx%,t|
000033e0 78 25 0d 17 48 18 e7 20 69 79 25 3e 30 20 8c 20 |x%..H.. iy%>0 . |
000033f0 c8 94 20 66 79 25 2c 74 79 25 0d 17 52 1f e3 20 |.. fy%,ty%..R.. |
00003400 78 25 3d 66 78 25 20 b8 20 74 78 25 20 88 20 b4 |x%=fx% . tx% . .|
00003410 28 74 78 25 2d 66 78 25 29 0d 17 5c 21 20 20 e3 |(tx%-fx%)..\! .|
00003420 20 79 25 3d 66 79 25 20 b8 20 74 79 25 20 88 20 | y%=fy% . ty% . |
00003430 b4 28 74 79 25 2d 66 79 25 29 0d 17 66 1d 20 20 |.(ty%-fy%)..f. |
00003440 20 20 73 78 25 3d 78 25 2d 69 78 25 3a 73 79 25 | sx%=x%-ix%:sy%|
00003450 3d 79 25 2d 69 79 25 0d 17 70 36 20 20 20 20 e7 |=y%-iy%..p6 .|
00003460 20 73 78 25 3e 3d 30 20 80 20 73 78 25 3c 77 69 | sx%>=0 . sx%<wi|
00003470 64 74 68 25 20 80 20 73 79 25 3e 3d 30 20 80 20 |dth% . sy%>=0 . |
00003480 73 79 25 3c 68 65 69 67 68 74 25 20 8c 0d 17 7a |sy%<height% ...z|
00003490 1f 20 20 20 20 20 20 63 25 3d 63 68 61 72 25 3f |. c%=char%?|
000034a0 a4 64 70 28 73 78 25 2c 73 79 25 29 0d 17 84 20 |.dp(sx%,sy%)... |
000034b0 20 20 20 20 20 20 73 25 3d 73 74 79 6c 65 25 3f | s%=style%?|
000034c0 a4 64 70 28 73 78 25 2c 73 79 25 29 0d 17 8e 09 |.dp(sx%,sy%)....|
000034d0 20 20 20 20 cc 0d 17 98 0f 20 20 20 20 20 20 63 | ..... c|
000034e0 25 3d 33 32 0d 17 a2 0e 20 20 20 20 20 20 73 25 |%=32.... s%|
000034f0 3d 30 0d 17 ac 09 20 20 20 20 cd 0d 17 b6 1b 20 |=0.... ..... |
00003500 20 20 20 63 68 61 72 25 3f a4 64 70 28 78 25 2c | char%?.dp(x%,|
00003510 79 25 29 3d 63 25 0d 17 c0 1c 20 20 20 20 73 74 |y%)=c%.... st|
00003520 79 6c 65 25 3f a4 64 70 28 78 25 2c 79 25 29 3d |yle%?.dp(x%,y%)=|
00003530 73 25 0d 17 ca 0a 20 20 ed 20 79 25 0d 17 d4 08 |s%.... . y%....|
00003540 ed 20 78 25 0d 17 de 16 e3 20 79 25 3d 30 20 b8 |. x%..... y%=0 .|
00003550 20 68 65 69 67 68 74 25 2d 31 0d 17 e8 1b 20 20 | height%-1.... |
00003560 e7 20 63 68 61 72 25 3f a4 64 70 28 30 2c 79 25 |. char%?.dp(0,y%|
00003570 29 3d 30 20 8c 0d 17 f2 1a 20 20 20 20 63 68 61 |)=0 ..... cha|
00003580 72 25 3f a4 64 70 28 30 2c 79 25 29 3d 33 32 0d |r%?.dp(0,y%)=32.|
00003590 17 fc 1a 20 20 20 20 73 74 79 6c 65 25 3f a4 64 |... style%?.d|
000035a0 70 28 30 2c 79 25 29 3d 30 0d 18 06 07 20 20 cd |p(0,y%)=0.... .|
000035b0 0d 18 10 19 20 20 70 25 3d a4 64 70 28 77 69 64 |.... p%=.dp(wid|
000035c0 74 68 25 2d 31 2c 79 25 29 0d 18 1a 29 20 20 e7 |th%-1,y%)...) .|
000035d0 20 63 68 61 72 25 3f 70 25 3e 3d 33 32 20 80 20 | char%?p%>=32 . |
000035e0 28 73 74 79 6c 65 25 3f 70 25 80 64 77 29 3e 30 |(style%?p%.dw)>0|
000035f0 20 8c 0d 18 24 13 20 20 20 20 63 68 61 72 25 3f | ...$. char%?|
00003600 70 25 3d 33 32 0d 18 2e 13 20 20 20 20 73 74 79 |p%=32.... sty|
00003610 6c 65 25 3f 70 25 3d 30 0d 18 38 07 20 20 cd 0d |le%?p%=0..8. ..|
00003620 18 42 08 ed 20 79 25 0d 18 4c 1b f2 66 6f 72 63 |.B.. y%..L..forc|
00003630 65 72 65 64 72 61 77 28 77 25 28 65 64 69 74 25 |eredraw(w%(edit%|
00003640 29 29 0d 18 56 15 c8 99 22 48 6f 75 72 67 6c 61 |))..V..."Hourgla|
00003650 73 73 5f 4f 66 66 22 0d 18 60 05 e1 0d 18 6a 04 |ss_Off"..`....j.|
00003660 0d 18 74 14 dd 20 f2 72 65 73 65 74 73 65 74 74 |..t.. .resetsett|
00003670 69 6e 67 73 0d 18 7e 18 73 65 74 25 28 29 3d 2d |ings..~.set%()=-|
00003680 31 2c 2d 31 2c 2d 31 2c 2d 31 2c 30 0d 18 88 21 |1,-1,-1,-1,0...!|
00003690 64 65 66 61 75 6c 74 66 69 6c 65 24 3d 22 64 72 |defaultfile$="dr|
000036a0 61 67 20 66 69 6c 65 20 68 65 72 65 22 0d 18 92 |ag file here"...|
000036b0 19 73 65 74 66 69 6c 65 24 3d 64 65 66 61 75 6c |.setfile$=defaul|
000036c0 74 66 69 6c 65 24 0d 18 9c 10 f2 73 65 74 73 65 |tfile$.....setse|
000036d0 74 74 69 6e 67 73 0d 18 a6 05 e1 0d 18 b0 04 0d |ttings..........|
000036e0 18 ba 12 dd 20 f2 73 65 74 73 65 74 74 69 6e 67 |.... .setsetting|
000036f0 73 0d 18 c4 0e e3 20 69 25 3d 30 20 b8 20 33 0d |s..... i%=0 . 3.|
00003700 18 ce 2e 20 20 f2 73 65 6c 65 63 74 69 63 6f 6e |... .selecticon|
00003710 28 77 25 28 73 65 74 74 69 6e 67 73 25 29 2c 69 |(w%(settings%),i|
00003720 25 2b 32 2c 73 65 74 25 28 69 25 29 29 0d 18 d8 |%+2,set%(i%))...|
00003730 08 ed 20 69 25 0d 18 e2 29 f2 73 65 6c 65 63 74 |.. i%...).select|
00003740 69 63 6f 6e 28 77 25 28 73 65 74 74 69 6e 67 73 |icon(w%(settings|
00003750 25 29 2c 31 32 2c 73 65 74 25 28 34 29 29 0d 18 |%),12,set%(4))..|
00003760 ec 38 f2 73 68 61 64 65 69 63 6f 6e 28 77 25 28 |.8.shadeicon(w%(|
00003770 73 65 74 74 69 6e 67 73 25 29 2c 31 32 2c 28 73 |settings%),12,(s|
00003780 65 74 66 69 6c 65 24 3d 64 65 66 61 75 6c 74 66 |etfile$=defaultf|
00003790 69 6c 65 24 29 29 0d 18 f6 29 f2 73 68 61 64 65 |ile$))...).shade|
000037a0 69 63 6f 6e 28 77 25 28 73 65 74 74 69 6e 67 73 |icon(w%(settings|
000037b0 25 29 2c 31 34 2c ac 73 65 74 25 28 34 29 29 0d |%),14,.set%(4)).|
000037c0 19 00 2b f2 73 65 74 69 63 6f 6e 74 65 78 74 28 |..+.seticontext(|
000037d0 77 25 28 73 65 74 74 69 6e 67 73 25 29 2c 31 34 |w%(settings%),14|
000037e0 2c 73 65 74 66 69 6c 65 24 29 0d 19 0a 05 e1 0d |,setfile$)......|
000037f0 19 14 04 0d 19 1e 15 dd 20 f2 6c 6f 63 61 74 65 |........ .locate|
00003800 63 61 72 65 74 70 6f 73 0d 19 28 16 f2 77 69 6e |caretpos..(..win|
00003810 64 6f 77 69 6e 66 6f 28 77 69 6e 64 25 29 0d 19 |dowinfo(wind%)..|
00003820 32 23 63 78 25 3d 28 28 6d 78 25 2b 78 73 69 7a |2#cx%=((mx%+xsiz|
00003830 65 25 2f 32 29 2d 77 78 25 29 2f 78 73 69 7a 65 |e%/2)-wx%)/xsize|
00003840 25 0d 19 3c 18 63 79 25 3d 28 77 79 25 2d 6d 79 |%..<.cy%=(wy%-my|
00003850 25 29 2f 79 73 69 7a 65 25 0d 19 46 1d e7 20 63 |%)/ysize%..F.. c|
00003860 78 25 3e 77 69 64 74 68 25 20 8c 20 63 78 25 3d |x%>width% . cx%=|
00003870 77 69 64 74 68 25 0d 19 50 22 e7 20 63 79 25 3e |width%..P". cy%>|
00003880 3d 68 65 69 67 68 74 25 20 8c 20 63 79 25 3d 68 |=height% . cy%=h|
00003890 65 69 67 68 74 25 2d 31 0d 19 5a 05 e1 0d 19 64 |eight%-1..Z....d|
000038a0 04 0d 19 6e 10 dd 20 a4 63 6c 69 63 6b 65 64 69 |...n.. .clickedi|
000038b0 74 0d 19 78 1b e7 20 73 65 6c 65 63 74 65 64 25 |t..x.. selected%|
000038c0 20 8c 20 f2 64 65 73 65 6c 65 63 74 0d 19 82 13 | . .deselect....|
000038d0 f2 6c 6f 63 61 74 65 63 61 72 65 74 70 6f 73 0d |.locatecaretpos.|
000038e0 19 8c 0d c8 8e 20 62 75 74 25 20 ca 0d 19 96 1c |..... but% .....|
000038f0 20 20 c9 20 34 20 3a 20 f2 6e 65 77 70 6f 73 28 | . 4 : .newpos(|
00003900 63 78 25 2c 63 79 25 29 0d 19 a0 09 20 20 c9 20 |cx%,cy%).... . |
00003910 31 0d 19 aa 1a 20 20 20 20 f2 61 6c 69 67 6e 70 |1.... .alignp|
00003920 6f 73 28 63 78 25 2c 63 79 25 29 0d 19 b4 12 20 |os(cx%,cy%).... |
00003930 20 20 20 f2 6c 6f 73 65 63 61 72 65 74 0d 19 be | .losecaret...|
00003940 15 20 20 20 20 64 72 61 67 69 64 25 3d 65 64 69 |. dragid%=edi|
00003950 74 25 0d 19 c8 1e 20 20 20 20 f2 77 69 6e 64 6f |t%.... .windo|
00003960 77 69 6e 66 6f 28 77 25 28 65 64 69 74 25 29 29 |winfo(w%(edit%))|
00003970 0d 19 d2 17 20 20 20 20 21 62 6c 6b 25 3d 77 25 |.... !blk%=w%|
00003980 28 65 64 69 74 25 29 0d 19 dc 10 20 20 20 20 62 |(edit%).... b|
00003990 6c 6b 25 21 34 3d 37 0d 19 e6 12 20 20 20 20 62 |lk%!4=7.... b|
000039a0 6c 6b 25 21 38 3d 6d 78 25 0d 19 f0 13 20 20 20 |lk%!8=mx%.... |
000039b0 20 62 6c 6b 25 21 31 32 3d 6d 79 25 0d 19 fa 13 | blk%!12=my%....|
000039c0 20 20 20 20 62 6c 6b 25 21 31 36 3d 6d 78 25 0d | blk%!16=mx%.|
000039d0 1a 04 13 20 20 20 20 62 6c 6b 25 21 32 30 3d 6d |... blk%!20=m|
000039e0 79 25 0d 1a 0e 13 20 20 20 20 62 6c 6b 25 21 32 |y%.... blk%!2|
000039f0 34 3d 77 78 25 0d 1a 18 17 20 20 20 20 62 6c 6b |4=wx%.... blk|
00003a00 25 21 32 38 3d 77 79 25 2d 77 68 25 0d 1a 22 17 |%!28=wy%-wh%..".|
00003a10 20 20 20 20 62 6c 6b 25 21 33 32 3d 77 78 25 2b | blk%!32=wx%+|
00003a20 77 77 25 0d 1a 2c 13 20 20 20 20 62 6c 6b 25 21 |ww%..,. blk%!|
00003a30 33 36 3d 77 79 25 0d 1a 36 1e 20 20 20 20 c8 99 |36=wy%..6. ..|
00003a40 22 57 69 6d 70 5f 44 72 61 67 42 6f 78 22 2c 2c |"Wimp_DragBox",,|
00003a50 62 6c 6b 25 0d 1a 40 13 20 20 20 20 64 72 61 67 |blk%..@. drag|
00003a60 67 69 6e 67 25 3d b9 0d 1a 4a 19 20 20 20 20 64 |ging%=...J. d|
00003a70 73 78 25 3d 63 78 25 3a 64 73 79 25 3d 63 79 25 |sx%=cx%:dsy%=cy%|
00003a80 0d 1a 54 19 20 20 20 20 64 65 78 25 3d 63 78 25 |..T. dex%=cx%|
00003a90 3a 64 65 79 25 3d 63 79 25 0d 1a 5e 13 20 20 20 |:dey%=cy%..^. |
00003aa0 20 73 65 6c 65 63 74 65 64 25 3d b9 0d 1a 68 05 | selected%=...h.|
00003ab0 cb 0d 1a 72 06 3d 30 0d 1a 7c 04 0d 1a 86 0f dd |...r.=0..|......|
00003ac0 20 a4 64 72 6f 70 65 64 69 74 0d 1a 90 0f 64 72 | .dropedit....dr|
00003ad0 61 67 67 69 6e 67 25 3d a3 0d 1a 9a 0a c8 8e 20 |agging%=....... |
00003ae0 b9 20 ca 0d 1a a4 2b 20 20 c9 20 64 73 78 25 3d |. ....+ . dsx%=|
00003af0 64 65 78 25 20 80 20 64 73 79 25 3d 64 65 79 25 |dex% . dsy%=dey%|
00003b00 20 3a 20 73 65 6c 65 63 74 65 64 25 3d a3 0d 1a | : selected%=...|
00003b10 ae 2f 20 20 c9 20 64 73 79 25 3e 64 65 79 25 20 |./ . dsy%>dey% |
00003b20 3a 20 c8 94 20 64 73 78 25 2c 64 65 78 25 20 3a |: .. dsx%,dex% :|
00003b30 20 c8 94 20 64 73 79 25 2c 64 65 79 25 0d 1a b8 | .. dsy%,dey%...|
00003b40 2c 20 20 c9 20 64 73 79 25 3d 64 65 79 25 20 80 |, . dsy%=dey% .|
00003b50 20 64 73 78 25 3e 64 65 78 25 20 3a 20 c8 94 20 | dsx%>dex% : .. |
00003b60 64 73 78 25 2c 64 65 78 25 0d 1a c2 05 cb 0d 1a |dsx%,dex%.......|
00003b70 cc 11 e7 20 73 65 6c 65 63 74 65 64 25 20 8c 0d |... selected% ..|
00003b80 1a d6 24 20 20 e7 20 64 73 78 25 3d 77 69 64 74 |..$ . dsx%=widt|
00003b90 68 25 20 8c 20 64 73 78 25 3d 30 3a 64 73 79 25 |h% . dsx%=0:dsy%|
00003ba0 2b 3d 31 0d 1a e0 23 20 20 63 73 74 79 6c 65 25 |+=1...# cstyle%|
00003bb0 3d 73 74 79 6c 65 25 3f a4 64 70 28 64 73 78 25 |=style%?.dp(dsx%|
00003bc0 2c 64 73 79 25 29 0d 1a ea 18 20 20 f2 73 65 74 |,dsy%).... .set|
00003bd0 66 6c 61 67 73 28 63 73 74 79 6c 65 25 29 0d 1a |flags(cstyle%)..|
00003be0 f4 05 cd 0d 1a fe 06 3d 30 0d 1b 08 04 0d 1b 12 |.......=0.......|
00003bf0 0b dd 20 f2 6e 75 6c 6c 0d 1b 1c 0e f2 6d 6f 75 |.. .null.....mou|
00003c00 73 65 69 6e 66 6f 0d 1b 26 0e e7 20 62 75 74 25 |seinfo..&.. but%|
00003c10 3d 31 20 8c 0d 1b 30 13 f2 6c 6f 63 61 74 65 63 |=1 ...0..locatec|
00003c20 61 72 65 74 70 6f 73 0d 1b 3a 16 f2 61 6c 69 67 |aretpos..:..alig|
00003c30 6e 70 6f 73 28 63 78 25 2c 63 79 25 29 0d 1b 44 |npos(cx%,cy%)..D|
00003c40 1d e7 20 63 78 25 3c 3e 64 65 78 25 20 84 20 63 |.. cx%<>dex% . c|
00003c50 79 25 3c 3e 64 65 79 25 20 8c 0d 1b 4e 26 20 20 |y%<>dey% ...N& |
00003c60 f2 75 70 64 61 74 65 69 6e 76 65 72 74 28 63 78 |.updateinvert(cx|
00003c70 25 2c 63 79 25 2c 64 65 78 25 2c 64 65 79 25 29 |%,cy%,dex%,dey%)|
00003c80 0d 1b 58 17 20 20 64 65 78 25 3d 63 78 25 3a 64 |..X. dex%=cx%:d|
00003c90 65 79 25 3d 63 79 25 0d 1b 62 05 cd 0d 1b 6c 05 |ey%=cy%..b....l.|
00003ca0 cc 0d 1b 76 0f 64 72 61 67 67 69 6e 67 25 3d a3 |...v.dragging%=.|
00003cb0 0d 1b 80 05 cd 0d 1b 8a 05 e1 0d 1b 94 04 0d 1b |................|
00003cc0 9e 28 dd 20 f2 75 70 64 61 74 65 69 6e 76 65 72 |.(. .updateinver|
00003cd0 74 28 69 78 30 25 2c 69 79 30 25 2c 69 78 31 25 |t(ix0%,iy0%,ix1%|
00003ce0 2c 69 79 31 25 29 0d 1b a8 13 21 62 6c 6b 25 3d |,iy1%)....!blk%=|
00003cf0 77 25 28 65 64 69 74 25 29 0d 1b b2 0c 62 6c 6b |w%(edit%)....blk|
00003d00 25 21 34 3d 30 0d 1b bc 0f 62 6c 6b 25 21 38 3d |%!4=0....blk%!8=|
00003d10 2d 77 68 25 0d 1b c6 0f 62 6c 6b 25 21 31 32 3d |-wh%....blk%!12=|
00003d20 77 77 25 0d 1b d0 0d 62 6c 6b 25 21 31 36 3d 30 |ww%....blk%!16=0|
00003d30 0d 1b da 27 c8 99 22 57 69 6d 70 5f 55 70 64 61 |...'.."Wimp_Upda|
00003d40 74 65 57 69 6e 64 6f 77 22 2c 2c 62 6c 6b 25 20 |teWindow",,blk% |
00003d50 b8 20 6d 6f 72 65 25 0d 1b e4 0c c8 95 20 6d 6f |. more%...... mo|
00003d60 72 65 25 0d 1b ee 22 20 20 f2 69 6e 76 65 72 74 |re%..." .invert|
00003d70 28 69 78 30 25 2c 69 79 30 25 2c 69 78 31 25 2c |(ix0%,iy0%,ix1%,|
00003d80 69 79 31 25 29 0d 1b f8 29 20 20 c8 99 22 57 69 |iy1%)...) .."Wi|
00003d90 6d 70 5f 47 65 74 52 65 63 74 61 6e 67 6c 65 22 |mp_GetRectangle"|
00003da0 2c 2c 62 6c 6b 25 20 b8 20 6d 6f 72 65 25 0d 1c |,,blk% . more%..|
00003db0 02 05 ce 0d 1c 0c 05 e1 0d 1c 16 04 0d 1c 20 22 |.............. "|
00003dc0 dd 20 f2 69 6e 76 65 72 74 28 69 78 30 25 2c 69 |. .invert(ix0%,i|
00003dd0 79 30 25 2c 69 78 31 25 2c 69 79 31 25 29 0d 1c |y0%,ix1%,iy1%)..|
00003de0 2a 11 e7 20 69 79 30 25 3e 69 79 31 25 20 8c 0d |*.. iy0%>iy1% ..|
00003df0 1c 34 12 20 20 c8 94 20 69 78 30 25 2c 69 78 31 |.4. .. ix0%,ix1|
00003e00 25 0d 1c 3e 12 20 20 c8 94 20 69 79 30 25 2c 69 |%..>. .. iy0%,i|
00003e10 79 31 25 0d 1c 48 05 cd 0d 1c 52 1d e7 20 69 79 |y1%..H....R.. iy|
00003e20 30 25 3d 69 79 31 25 20 80 20 69 78 30 25 3e 69 |0%=iy1% . ix0%>i|
00003e30 78 31 25 20 8c 0d 1c 5c 12 20 20 c8 94 20 69 78 |x1% ...\. .. ix|
00003e40 30 25 2c 69 78 31 25 0d 1c 66 05 cd 0d 1c 70 1f |0%,ix1%..f....p.|
00003e50 e7 20 69 78 30 25 3c 3e 69 78 31 25 20 84 20 69 |. ix0%<>ix1% . i|
00003e60 79 30 25 3c 3e 69 79 31 25 20 8c 0d 1c 7a 1f 20 |y0%<>iy1% ...z. |
00003e70 20 c8 99 22 57 69 6d 70 5f 53 65 74 43 6f 6c 6f | .."Wimp_SetColo|
00003e80 75 72 22 2c 37 2b 33 2a 31 36 0d 1c 84 13 20 20 |ur",7+3*16.... |
00003e90 e7 20 69 79 30 25 3d 69 79 31 25 20 8c 0d 1c 8e |. iy0%=iy1% ....|
00003ea0 5c 20 20 20 20 c8 93 20 c8 90 20 69 78 30 25 2a |\ .. .. ix0%*|
00003eb0 78 73 69 7a 65 25 2b 77 78 25 2c 2d 28 69 79 30 |xsize%+wx%,-(iy0|
00003ec0 25 2b 31 29 2a 79 73 69 7a 65 25 2b 77 79 25 2c |%+1)*ysize%+wy%,|
00003ed0 28 69 78 31 25 2d 69 78 30 25 29 2a 78 73 69 7a |(ix1%-ix0%)*xsiz|
00003ee0 65 25 2d 70 69 78 65 6c 77 25 2c 79 73 69 7a 65 |e%-pixelw%,ysize|
00003ef0 25 2d 70 69 78 65 6c 68 25 0d 1c 98 07 20 20 cc |%-pixelh%.... .|
00003f00 0d 1c a2 17 20 20 20 20 e7 20 69 79 31 25 3e 69 |.... . iy1%>i|
00003f10 79 30 25 2b 31 20 8c 0d 1c ac 1e 20 20 20 20 20 |y0%+1 ..... |
00003f20 20 e3 20 79 25 3d 69 79 30 25 2b 31 20 b8 20 69 | . y%=iy0%+1 . i|
00003f30 79 31 25 2d 31 0d 1c b6 45 20 20 20 20 20 20 20 |y1%-1...E |
00003f40 20 c8 93 20 c8 90 20 77 78 25 2c 2d 28 79 25 2b | .. .. wx%,-(y%+|
00003f50 31 29 2a 79 73 69 7a 65 25 2b 77 79 25 2c 77 69 |1)*ysize%+wy%,wi|
00003f60 64 74 68 25 2a 78 73 69 7a 65 25 2c 79 73 69 7a |dth%*xsize%,ysiz|
00003f70 65 25 2d 70 69 78 65 6c 68 25 0d 1c c0 0e 20 20 |e%-pixelh%.... |
00003f80 20 20 20 20 ed 20 79 25 0d 1c ca 09 20 20 20 20 | . y%.... |
00003f90 cd 0d 1c d4 5e 20 20 20 20 c8 93 20 c8 90 20 69 |....^ .. .. i|
00003fa0 78 30 25 2a 78 73 69 7a 65 25 2b 77 78 25 2c 2d |x0%*xsize%+wx%,-|
00003fb0 28 69 79 30 25 2b 31 29 2a 79 73 69 7a 65 25 2b |(iy0%+1)*ysize%+|
00003fc0 77 79 25 2c 28 77 69 64 74 68 25 2d 69 78 30 25 |wy%,(width%-ix0%|
00003fd0 29 2a 78 73 69 7a 65 25 2d 70 69 78 65 6c 77 25 |)*xsize%-pixelw%|
00003fe0 2c 79 73 69 7a 65 25 2d 70 69 78 65 6c 68 25 0d |,ysize%-pixelh%.|
00003ff0 1c de 49 20 20 20 20 c8 93 20 c8 90 20 77 78 25 |..I .. .. wx%|
00004000 2c 2d 28 69 79 31 25 2b 31 29 2a 79 73 69 7a 65 |,-(iy1%+1)*ysize|
00004010 25 2b 77 79 25 2c 69 78 31 25 2a 78 73 69 7a 65 |%+wy%,ix1%*xsize|
00004020 25 2d 70 69 78 65 6c 77 25 2c 79 73 69 7a 65 25 |%-pixelw%,ysize%|
00004030 2d 70 69 78 65 6c 68 25 0d 1c e8 07 20 20 cd 0d |-pixelh%.... ..|
00004040 1c f2 05 cd 0d 1c fc 05 e1 0d 1d 06 04 0d 1d 10 |................|
00004050 0f dd 20 f2 64 65 73 65 6c 65 63 74 0d 1d 1a 26 |.. .deselect...&|
00004060 f2 75 70 64 61 74 65 69 6e 76 65 72 74 28 64 73 |.updateinvert(ds|
00004070 78 25 2c 64 73 79 25 2c 64 65 78 25 2c 64 65 79 |x%,dsy%,dex%,dey|
00004080 25 29 0d 1d 24 0f 73 65 6c 65 63 74 65 64 25 3d |%)..$.selected%=|
00004090 a3 0d 1d 2e 05 e1 0d 1d 38 04 0d 1d 42 11 dd 20 |........8...B.. |
000040a0 f2 70 6c 61 63 65 63 61 72 65 74 0d 1d 4c 4e c8 |.placecaret..LN.|
000040b0 99 22 57 69 6d 70 5f 53 65 74 43 61 72 65 74 50 |."Wimp_SetCaretP|
000040c0 6f 73 69 74 69 6f 6e 22 2c 77 25 28 65 64 69 74 |osition",w%(edit|
000040d0 25 29 2c 2d 31 2c 63 78 25 2a 78 73 69 7a 65 25 |%),-1,cx%*xsize%|
000040e0 2c 2d 28 63 79 25 2b 31 29 2a 79 73 69 7a 65 25 |,-(cy%+1)*ysize%|
000040f0 2c 79 73 69 7a 65 25 2c 30 0d 1d 56 05 e1 0d 1d |,ysize%,0..V....|
00004100 60 04 0d 1d 6a 11 dd 20 a4 63 6c 69 63 6b 74 6f |`...j.. .clickto|
00004110 6f 6c 73 0d 1d 74 0e c8 8e 20 69 63 6f 6e 25 20 |ols..t... icon% |
00004120 ca 0d 1d 7e 26 20 20 c9 20 34 20 3a 20 e7 20 6c |...~& . 4 : . l|
00004130 61 62 65 6c 25 3e 31 20 8c 20 f2 69 6e 63 6c 61 |abel%>1 . .incla|
00004140 62 65 6c 28 2d 31 29 0d 1d 88 2b 20 20 c9 20 36 |bel(-1)...+ . 6|
00004150 20 3a 20 e7 20 6c 61 62 65 6c 25 3c 6c 61 62 65 | : . label%<labe|
00004160 6c 73 25 20 8c 20 f2 69 6e 63 6c 61 62 65 6c 28 |ls% . .inclabel(|
00004170 31 29 0d 1d 92 14 20 20 c9 20 30 2c 37 2c 38 2c |1).... . 0,7,8,|
00004180 39 2c 31 30 2c 33 0d 1d 9c 2b 20 20 20 20 e7 20 |9,10,3...+ . |
00004190 69 63 6f 6e 25 3d 39 20 8c 20 f2 73 65 6c 65 63 |icon%=9 . .selec|
000041a0 74 69 63 6f 6e 28 77 69 6e 64 25 2c 31 30 2c a3 |ticon(wind%,10,.|
000041b0 29 0d 1d a6 2b 20 20 20 20 e7 20 69 63 6f 6e 25 |)...+ . icon%|
000041c0 3d 31 30 20 8c 20 f2 73 65 6c 65 63 74 69 63 6f |=10 . .selectico|
000041d0 6e 28 77 69 6e 64 25 2c 39 2c a3 29 0d 1d b0 19 |n(wind%,9,.)....|
000041e0 20 20 20 20 6f 6c 64 73 74 79 6c 65 25 3d 63 73 | oldstyle%=cs|
000041f0 74 79 6c 65 25 0d 1d ba 11 20 20 20 20 f2 67 65 |tyle%.... .ge|
00004200 74 73 74 79 6c 65 0d 1d c4 3a 20 20 20 20 e7 20 |tstyle...: . |
00004210 6f 6c 64 73 74 79 6c 65 25 3c 3e 63 73 74 79 6c |oldstyle%<>cstyl|
00004220 65 25 20 80 20 73 65 6c 65 63 74 65 64 25 20 8c |e% . selected% .|
00004230 20 f2 63 68 61 6e 67 65 73 65 6c 65 63 74 65 64 | .changeselected|
00004240 0d 1d ce 16 20 20 c9 20 31 33 20 3a 20 f2 70 61 |.... . 13 : .pa|
00004250 72 61 28 2d 31 29 0d 1d d8 15 20 20 c9 20 31 32 |ra(-1).... . 12|
00004260 20 3a 20 f2 70 61 72 61 28 30 29 0d 1d e2 15 20 | : .para(0).... |
00004270 20 c9 20 31 31 20 3a 20 f2 70 61 72 61 28 31 29 | . 11 : .para(1)|
00004280 0d 1d ec 15 20 20 c9 20 31 20 3a 20 f2 61 64 64 |.... . 1 : .add|
00004290 6c 61 62 65 6c 0d 1d f6 18 20 20 c9 20 32 20 3a |label.... . 2 :|
000042a0 20 f2 64 65 6c 65 74 65 6c 61 62 65 6c 0d 1e 00 | .deletelabel...|
000042b0 2f 20 20 c9 20 31 34 20 3a 20 65 64 69 74 6d 6f |/ . 14 : editmo|
000042c0 64 65 25 3d 31 2b a4 73 65 6c 65 63 74 65 64 28 |de%=1+.selected(|
000042d0 77 69 6e 64 25 2c 69 63 6f 6e 25 29 0d 1e 0a 05 |wind%,icon%)....|
000042e0 cb 0d 1e 14 05 cd 0d 1e 1e 06 3d 30 0d 1e 28 04 |..........=0..(.|
000042f0 0d 1e 32 0f dd 20 f2 61 64 64 6c 61 62 65 6c 0d |..2.. .addlabel.|
00004300 1e 3c 15 e7 20 6c 61 62 65 6c 73 25 3c 6d 61 78 |.<.. labels%<max|
00004310 6c 25 20 8c 0d 1e 46 0e 20 20 f2 63 68 61 6e 67 |l% ...F. .chang|
00004320 65 64 0d 1e 50 10 20 20 6c 61 62 65 6c 73 25 2b |ed..P. labels%+|
00004330 3d 31 0d 1e 5a 14 20 20 6c 61 62 65 6c 25 3d 6c |=1..Z. label%=l|
00004340 61 62 65 6c 73 25 0d 1e 64 11 20 20 f2 62 6c 61 |abels%..d. .bla|
00004350 6e 6b 6c 61 62 65 6c 0d 1e 6e 0f 20 20 f2 73 65 |nklabel..n. .se|
00004360 74 6c 61 62 65 6c 0d 1e 78 21 20 20 f2 6e 65 77 |tlabel..x! .new|
00004370 70 6f 73 28 77 69 64 74 68 25 2f 32 2c 68 65 69 |pos(width%/2,hei|
00004380 67 68 74 25 2f 32 29 0d 1e 82 1d 20 20 f2 66 6f |ght%/2).... .fo|
00004390 72 63 65 72 65 64 72 61 77 28 77 25 28 65 64 69 |rceredraw(w%(edi|
000043a0 74 25 29 29 0d 1e 8c 05 cc 0d 1e 96 35 20 20 f2 |t%))........5 .|
000043b0 72 65 70 6f 72 74 28 22 53 6f 72 72 79 2c 20 6e |report("Sorry, n|
000043c0 6f 20 72 6f 6f 6d 20 74 6f 20 61 64 64 20 61 6e |o room to add an|
000043d0 6f 74 68 65 72 20 6c 61 62 65 6c 2e 22 29 0d 1e |other label.")..|
000043e0 a0 05 cd 0d 1e aa 05 e1 0d 1e b4 04 0d 1e be 10 |................|
000043f0 dd 20 f2 77 69 70 65 6c 61 62 65 6c 0d 1e c8 12 |. .wipelabel....|
00004400 6f 6b 61 79 25 3d ac 73 65 74 25 28 32 29 0d 1e |okay%=.set%(2)..|
00004410 d2 62 e7 20 ac 6f 6b 61 79 25 20 8c 20 6f 6b 61 |.b. .okay% . oka|
00004420 79 25 3d 28 a4 71 75 65 73 74 69 6f 6e 28 22 41 |y%=(.question("A|
00004430 72 65 20 79 6f 75 20 73 75 72 65 20 74 68 61 74 |re you sure that|
00004440 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 77 69 70 | you want to wip|
00004450 65 20 74 68 69 73 20 6c 61 62 65 6c 3f 22 2c 22 |e this label?","|
00004460 22 2c 22 59 65 73 22 2c 22 4e 6f 22 29 3d 32 29 |","Yes","No")=2)|
00004470 0d 1e dc 0d e7 20 6f 6b 61 79 25 20 8c 0d 1e e6 |..... okay% ....|
00004480 0e 20 20 f2 63 68 61 6e 67 65 64 0d 1e f0 11 20 |. .changed.... |
00004490 20 f2 62 6c 61 6e 6b 6c 61 62 65 6c 0d 1e fa 21 | .blanklabel...!|
000044a0 20 20 f2 6e 65 77 70 6f 73 28 77 69 64 74 68 25 | .newpos(width%|
000044b0 2f 32 2c 68 65 69 67 68 74 25 2f 32 29 0d 1f 04 |/2,height%/2)...|
000044c0 1d 20 20 f2 66 6f 72 63 65 72 65 64 72 61 77 28 |. .forceredraw(|
000044d0 77 25 28 65 64 69 74 25 29 29 0d 1f 0e 05 cd 0d |w%(edit%))......|
000044e0 1f 18 05 e1 0d 1f 22 04 0d 1f 2c 12 dd 20 f2 64 |......"...,.. .d|
000044f0 65 6c 65 74 65 6c 61 62 65 6c 0d 1f 36 12 6f 6b |eletelabel..6.ok|
00004500 61 79 25 3d ac 73 65 74 25 28 31 29 0d 1f 40 64 |ay%=.set%(1)..@d|
00004510 e7 20 ac 6f 6b 61 79 25 20 8c 20 6f 6b 61 79 25 |. .okay% . okay%|
00004520 3d 28 a4 71 75 65 73 74 69 6f 6e 28 22 41 72 65 |=(.question("Are|
00004530 20 79 6f 75 20 73 75 72 65 20 74 68 61 74 20 79 | you sure that y|
00004540 6f 75 20 77 61 6e 74 20 74 6f 20 64 65 6c 65 74 |ou want to delet|
00004550 65 20 74 68 69 73 20 6c 61 62 65 6c 3f 22 2c 22 |e this label?","|
00004560 22 2c 22 59 65 73 22 2c 22 4e 6f 22 29 3d 32 29 |","Yes","No")=2)|
00004570 0d 1f 4a 0d e7 20 6f 6b 61 79 25 20 8c 0d 1f 54 |..J.. okay% ...T|
00004580 0e 20 20 f2 63 68 61 6e 67 65 64 0d 1f 5e 11 20 |. .changed..^. |
00004590 20 f2 62 6c 61 6e 6b 6c 61 62 65 6c 0d 1f 68 10 | .blanklabel..h.|
000045a0 20 20 6c 61 62 65 6c 73 25 2d 3d 31 0d 1f 72 0f | labels%-=1..r.|
000045b0 20 20 74 25 3d 6c 61 62 65 6c 25 0d 1f 7c 19 20 | t%=label%..|. |
000045c0 20 e7 20 6c 61 62 65 6c 25 3c 3d 6c 61 62 65 6c | . label%<=label|
000045d0 73 25 20 8c 0d 1f 86 13 20 20 20 20 6c 61 62 65 |s% ..... labe|
000045e0 6c 25 3d 74 25 2b 31 0d 1f 90 14 20 20 20 20 73 |l%=t%+1.... s|
000045f0 30 25 3d a4 64 70 28 30 2c 30 29 0d 1f 9a 18 20 |0%=.dp(0,0).... |
00004600 20 20 20 6c 61 62 65 6c 25 3d 6c 61 62 65 6c 73 | label%=labels|
00004610 25 2b 31 0d 1f a4 29 20 20 20 20 73 31 25 3d a4 |%+1...) s1%=.|
00004620 64 70 28 6d 61 78 77 69 64 74 68 25 2d 31 2c 6d |dp(maxwidth%-1,m|
00004630 61 78 68 65 69 67 68 74 25 2d 31 29 0d 1f ae 11 |axheight%-1)....|
00004640 20 20 20 20 6c 61 62 65 6c 25 3d 74 25 0d 1f b8 | label%=t%...|
00004650 14 20 20 20 20 64 30 25 3d a4 64 70 28 30 2c 30 |. d0%=.dp(0,0|
00004660 29 0d 1f c2 16 20 20 20 20 e3 20 70 25 3d 73 30 |).... . p%=s0|
00004670 25 20 b8 20 73 31 25 0d 1f cc 1c 20 20 20 20 20 |% . s1%.... |
00004680 20 63 68 61 72 25 3f 64 30 25 3d 63 68 61 72 25 | char%?d0%=char%|
00004690 3f 70 25 0d 1f d6 1e 20 20 20 20 20 20 73 74 79 |?p%.... sty|
000046a0 6c 65 25 3f 64 30 25 3d 73 74 79 6c 65 25 3f 70 |le%?d0%=style%?p|
000046b0 25 0d 1f e0 10 20 20 20 20 20 20 64 30 25 2b 3d |%.... d0%+=|
000046c0 31 0d 1f ea 0c 20 20 20 20 ed 20 70 25 0d 1f f4 |1.... . p%...|
000046d0 07 20 20 cc 0d 1f fe 1f 20 20 20 20 e7 20 6c 61 |. ..... . la|
000046e0 62 65 6c 73 25 3c 31 20 8c 20 6c 61 62 65 6c 73 |bels%<1 . labels|
000046f0 25 3d 31 0d 20 08 16 20 20 20 20 6c 61 62 65 6c |%=1. .. label|
00004700 25 3d 6c 61 62 65 6c 73 25 0d 20 12 07 20 20 cd |%=labels%. .. .|
00004710 0d 20 1c 0f 20 20 f2 73 65 74 6c 61 62 65 6c 0d |. .. .setlabel.|
00004720 20 26 21 20 20 f2 6e 65 77 70 6f 73 28 77 69 64 | &! .newpos(wid|
00004730 74 68 25 2f 32 2c 68 65 69 67 68 74 25 2f 32 29 |th%/2,height%/2)|
00004740 0d 20 30 1d 20 20 f2 66 6f 72 63 65 72 65 64 72 |. 0. .forceredr|
00004750 61 77 28 77 25 28 65 64 69 74 25 29 29 0d 20 3a |aw(w%(edit%)). :|
00004760 05 cd 0d 20 44 05 e1 0d 20 4e 04 0d 20 58 15 dd |... D... N.. X..|
00004770 20 f2 70 61 72 61 28 6e 65 77 70 61 72 61 25 29 | .para(newpara%)|
00004780 0d 20 62 0d f2 67 65 74 63 61 72 65 74 0d 20 6c |. b..getcaret. l|
00004790 18 e7 20 63 77 69 6e 64 25 3d 77 25 28 65 64 69 |.. cwind%=w%(edi|
000047a0 74 25 29 20 8c 0d 20 76 0d 20 20 66 6c 61 67 25 |t%) .. v. flag%|
000047b0 3d a3 0d 20 80 17 20 20 e3 20 78 25 3d 30 20 b8 |=.. .. . x%=0 .|
000047c0 20 77 69 64 74 68 25 2d 31 0d 20 8a 29 20 20 20 | width%-1. .) |
000047d0 20 e7 20 63 68 61 72 25 3f a4 64 70 28 78 25 2c | . char%?.dp(x%,|
000047e0 63 79 25 29 3c 3e 33 32 20 8c 20 66 6c 61 67 25 |cy%)<>32 . flag%|
000047f0 3d b9 0d 20 94 0a 20 20 ed 20 78 25 0d 20 9e 0f |=.. .. . x%. ..|
00004800 20 20 e7 20 66 6c 61 67 25 20 8c 0d 20 a8 10 20 | . flag% .. .. |
00004810 20 20 20 6c 65 66 74 78 25 3d 30 0d 20 b2 23 20 | leftx%=0. .# |
00004820 20 20 20 c8 95 20 63 68 61 72 25 3f a4 64 70 28 | .. char%?.dp(|
00004830 6c 65 66 74 78 25 2c 63 79 25 29 3d 33 32 0d 20 |leftx%,cy%)=32. |
00004840 bc 13 20 20 20 20 20 20 6c 65 66 74 78 25 2b 3d |.. leftx%+=|
00004850 31 0d 20 c6 09 20 20 20 20 ce 0d 20 d0 18 20 20 |1. .. .. .. |
00004860 20 20 72 69 67 68 74 78 25 3d 77 69 64 74 68 25 | rightx%=width%|
00004870 2d 31 0d 20 da 24 20 20 20 20 c8 95 20 63 68 61 |-1. .$ .. cha|
00004880 72 25 3f a4 64 70 28 72 69 67 68 74 78 25 2c 63 |r%?.dp(rightx%,c|
00004890 79 25 29 3d 33 32 0d 20 e4 14 20 20 20 20 20 20 |y%)=32. .. |
000048a0 72 69 67 68 74 78 25 2d 3d 31 0d 20 ee 09 20 20 |rightx%-=1. .. |
000048b0 20 20 ce 0d 20 f8 15 20 20 20 20 c8 8e 20 6e 65 | .. .. .. ne|
000048c0 77 70 61 72 61 25 20 ca 0d 21 02 2a 20 20 20 20 |wpara% ..!.* |
000048d0 20 20 c9 20 2d 31 20 3a 20 f2 6d 6f 76 65 28 6c | . -1 : .move(l|
000048e0 65 66 74 78 25 2c 72 69 67 68 74 78 25 2c 30 2c |eftx%,rightx%,0,|
000048f0 b9 29 0d 21 0c 44 20 20 20 20 20 20 c9 20 30 20 |.).!.D . 0 |
00004900 20 3a 20 f2 6d 6f 76 65 28 6c 65 66 74 78 25 2c | : .move(leftx%,|
00004910 72 69 67 68 74 78 25 2c 28 77 69 64 74 68 25 2d |rightx%,(width%-|
00004920 28 72 69 67 68 74 78 25 2d 6c 65 66 74 78 25 29 |(rightx%-leftx%)|
00004930 29 2f 32 2c b9 29 0d 21 16 42 20 20 20 20 20 20 |)/2,.).!.B |
00004940 c9 20 31 20 20 3a 20 f2 6d 6f 76 65 28 6c 65 66 |. 1 : .move(lef|
00004950 74 78 25 2c 72 69 67 68 74 78 25 2c 77 69 64 74 |tx%,rightx%,widt|
00004960 68 25 2d 28 31 2b 72 69 67 68 74 78 25 2d 6c 65 |h%-(1+rightx%-le|
00004970 66 74 78 25 29 2c b9 29 0d 21 20 09 20 20 20 20 |ftx%),.).! . |
00004980 cb 0d 21 2a 07 20 20 cd 0d 21 34 05 cd 0d 21 3e |..!*. ..!4...!>|
00004990 05 e1 0d 21 48 04 0d 21 52 22 dd 20 f2 6d 6f 76 |...!H..!R". .mov|
000049a0 65 28 6c 78 25 2c 72 78 25 2c 74 78 25 2c 6d 6f |e(lx%,rx%,tx%,mo|
000049b0 76 65 63 61 72 65 74 29 0d 21 5c 0c f2 63 68 61 |vecaret).!\..cha|
000049c0 6e 67 65 64 0d 21 66 08 69 25 3d 31 0d 21 70 10 |nged.!f.i%=1.!p.|
000049d0 e7 20 6c 78 25 3c 3e 74 78 25 20 8c 0d 21 7a 0f |. lx%<>tx% ..!z.|
000049e0 e7 20 6c 78 25 3c 74 78 25 20 8c 0d 21 84 0c 20 |. lx%<tx% ..!.. |
000049f0 20 69 25 3d 2d 69 25 0d 21 8e 12 20 20 74 78 25 | i%=-i%.!.. tx%|
00004a00 2b 3d 72 78 25 2d 6c 78 25 0d 21 98 10 20 20 c8 |+=rx%-lx%.!.. .|
00004a10 94 20 6c 78 25 2c 72 78 25 0d 21 a2 05 cd 0d 21 |. lx%,rx%.!....!|
00004a20 ac 17 e3 20 78 25 3d 6c 78 25 20 b8 20 72 78 25 |... x%=lx% . rx%|
00004a30 20 88 20 69 25 0d 21 b6 2a 20 20 63 68 61 72 25 | . i%.!.* char%|
00004a40 3f a4 64 70 28 74 78 25 2c 63 79 25 29 3d 63 68 |?.dp(tx%,cy%)=ch|
00004a50 61 72 25 3f a4 64 70 28 78 25 2c 63 79 25 29 0d |ar%?.dp(x%,cy%).|
00004a60 21 c0 2c 20 20 73 74 79 6c 65 25 3f a4 64 70 28 |!., style%?.dp(|
00004a70 74 78 25 2c 63 79 25 29 3d 73 74 79 6c 65 25 3f |tx%,cy%)=style%?|
00004a80 a4 64 70 28 78 25 2c 63 79 25 29 0d 21 ca 1a 20 |.dp(x%,cy%).!.. |
00004a90 20 63 68 61 72 25 3f a4 64 70 28 78 25 2c 63 79 | char%?.dp(x%,cy|
00004aa0 25 29 3d 33 32 0d 21 d4 1a 20 20 73 74 79 6c 65 |%)=32.!.. style|
00004ab0 25 3f a4 64 70 28 78 25 2c 63 79 25 29 3d 30 0d |%?.dp(x%,cy%)=0.|
00004ac0 21 de 0d 20 20 74 78 25 2b 3d 69 25 0d 21 e8 08 |!.. tx%+=i%.!..|
00004ad0 ed 20 78 25 0d 21 f2 11 e7 20 6d 6f 76 65 63 61 |. x%.!... moveca|
00004ae0 72 65 74 20 8c 0d 21 fc 11 20 20 63 78 25 2b 3d |ret ..!.. cx%+=|
00004af0 74 78 25 2d 78 25 0d 22 06 11 20 20 f2 70 6c 61 |tx%-x%.".. .pla|
00004b00 63 65 63 61 72 65 74 0d 22 10 05 cd 0d 22 1a 05 |cecaret."...."..|
00004b10 cd 0d 22 24 1b f2 72 65 64 6f 6c 69 6e 65 28 63 |.."$..redoline(c|
00004b20 79 25 2c 30 2c 77 69 64 74 68 25 29 0d 22 2e 05 |y%,0,width%)."..|
00004b30 e1 0d 22 38 04 0d 22 42 1b dd 20 f2 72 65 64 6f |.."8.."B.. .redo|
00004b40 6c 69 6e 65 28 79 25 2c 78 30 25 2c 78 31 25 29 |line(y%,x0%,x1%)|
00004b50 0d 22 4c 47 f2 72 65 64 6f 62 6f 78 28 77 25 28 |."LG.redobox(w%(|
00004b60 65 64 69 74 25 29 2c 78 30 25 2a 78 73 69 7a 65 |edit%),x0%*xsize|
00004b70 25 2c 2d 28 79 25 2b 31 29 2a 79 73 69 7a 65 25 |%,-(y%+1)*ysize%|
00004b80 2c 78 31 25 2a 78 73 69 7a 65 25 2c 2d 79 25 2a |,x1%*xsize%,-y%*|
00004b90 79 73 69 7a 65 25 29 0d 22 56 05 e1 0d 22 60 04 |ysize%)."V..."`.|
00004ba0 0d 22 6a 15 dd 20 f2 63 68 61 6e 67 65 73 65 6c |."j.. .changesel|
00004bb0 65 63 74 65 64 0d 22 74 0c f2 63 68 61 6e 67 65 |ected."t..change|
00004bc0 64 0d 22 7e 1d 63 68 61 6e 67 65 25 3d 6f 6c 64 |d."~.change%=old|
00004bd0 73 74 79 6c 65 25 82 63 73 74 79 6c 65 25 0d 22 |style%.cstyle%."|
00004be0 88 21 62 69 74 73 25 3d ac 28 28 ac 63 68 61 6e |.!bits%=.((.chan|
00004bf0 67 65 25 29 84 6f 6c 64 73 74 79 6c 65 25 29 0d |ge%).oldstyle%).|
00004c00 22 92 11 e7 20 64 73 79 25 3d 64 65 79 25 20 8c |"... dsy%=dey% .|
00004c10 0d 22 9c 19 20 20 e3 20 63 78 25 3d 64 73 78 25 |.".. . cx%=dsx%|
00004c20 20 b8 20 64 65 78 25 2d 31 0d 22 a6 15 20 20 20 | . dex%-1.".. |
00004c30 20 f2 63 63 28 63 78 25 2c 64 73 79 25 29 0d 22 | .cc(cx%,dsy%)."|
00004c40 b0 0b 20 20 ed 20 63 78 25 0d 22 ba 1f 20 20 f2 |.. . cx%.".. .|
00004c50 72 65 64 6f 6c 69 6e 65 28 64 73 79 25 2c 64 73 |redoline(dsy%,ds|
00004c60 78 25 2c 64 65 78 25 29 0d 22 c4 05 cc 0d 22 ce |x%,dex%)."....".|
00004c70 1b 20 20 e3 20 63 78 25 3d 64 73 78 25 20 b8 20 |. . cx%=dsx% . |
00004c80 77 69 64 74 68 25 2d 31 0d 22 d8 15 20 20 20 20 |width%-1.".. |
00004c90 f2 63 63 28 63 78 25 2c 64 73 79 25 29 0d 22 e2 |.cc(cx%,dsy%).".|
00004ca0 0b 20 20 ed 20 63 78 25 0d 22 ec 21 20 20 f2 72 |. . cx%.".! .r|
00004cb0 65 64 6f 6c 69 6e 65 28 64 73 79 25 2c 64 73 78 |edoline(dsy%,dsx|
00004cc0 25 2c 77 69 64 74 68 25 29 0d 22 f6 15 20 20 e7 |%,width%).".. .|
00004cd0 20 64 65 79 25 3e 64 73 79 25 2b 31 20 8c 0d 23 | dey%>dsy%+1 ..#|
00004ce0 00 1d 20 20 20 20 e3 20 63 79 25 3d 64 73 79 25 |.. . cy%=dsy%|
00004cf0 2b 31 20 b8 20 64 65 79 25 2d 31 0d 23 0a 1c 20 |+1 . dey%-1.#.. |
00004d00 20 20 20 20 20 e3 20 63 78 25 3d 30 20 b8 20 77 | . cx%=0 . w|
00004d10 69 64 74 68 25 2d 31 0d 23 14 18 20 20 20 20 20 |idth%-1.#.. |
00004d20 20 20 20 f2 63 63 28 63 78 25 2c 63 79 25 29 0d | .cc(cx%,cy%).|
00004d30 23 1e 0f 20 20 20 20 20 20 ed 20 63 78 25 0d 23 |#.. . cx%.#|
00004d40 28 21 20 20 20 20 20 20 f2 72 65 64 6f 6c 69 6e |(! .redolin|
00004d50 65 28 63 79 25 2c 30 2c 77 69 64 74 68 25 29 0d |e(cy%,0,width%).|
00004d60 23 32 0d 20 20 20 20 ed 20 63 79 25 0d 23 3c 07 |#2. . cy%.#<.|
00004d70 20 20 cd 0d 23 46 16 20 20 e3 20 63 78 25 3d 30 | ..#F. . cx%=0|
00004d80 20 b8 20 64 65 78 25 2d 31 0d 23 50 15 20 20 20 | . dex%-1.#P. |
00004d90 20 f2 63 63 28 63 78 25 2c 64 65 79 25 29 0d 23 | .cc(cx%,dey%).#|
00004da0 5a 0b 20 20 ed 20 63 78 25 0d 23 64 1c 20 20 f2 |Z. . cx%.#d. .|
00004db0 72 65 64 6f 6c 69 6e 65 28 64 65 79 25 2c 30 2c |redoline(dey%,0,|
00004dc0 64 65 78 25 29 0d 23 6e 05 cd 0d 23 78 05 e1 0d |dex%).#n...#x...|
00004dd0 23 82 04 0d 23 8c 10 dd 20 f2 63 63 28 78 25 2c |#...#... .cc(x%,|
00004de0 79 25 29 0d 23 96 11 70 25 3d a4 64 70 28 78 25 |y%).#..p%=.dp(x%|
00004df0 2c 79 25 29 0d 23 a0 11 6f 73 25 3d 73 74 79 6c |,y%).#..os%=styl|
00004e00 65 25 3f 70 25 0d 23 aa 29 73 74 79 6c 65 25 3f |e%?p%.#.)style%?|
00004e10 70 25 3d 28 73 74 79 6c 65 25 3f 70 25 20 80 ac |p%=(style%?p% ..|
00004e20 63 68 61 6e 67 65 25 29 84 62 69 74 73 25 0d 23 |change%).bits%.#|
00004e30 b4 05 e1 0d 23 be 04 0d 23 c8 0f dd 20 f2 67 65 |....#...#... .ge|
00004e40 74 73 74 79 6c 65 0d 23 d2 28 63 73 74 79 6c 65 |tstyle.#.(cstyle|
00004e50 25 3d a4 73 65 6c 65 63 74 65 64 28 77 25 28 74 |%=.selected(w%(t|
00004e60 6f 6f 6c 73 25 29 2c 30 29 80 62 6f 6c 64 0d 23 |ools%),0).bold.#|
00004e70 dc 36 63 73 74 79 6c 65 25 3d 63 73 74 79 6c 65 |.6cstyle%=cstyle|
00004e80 25 20 84 20 28 a4 73 65 6c 65 63 74 65 64 28 77 |% . (.selected(w|
00004e90 25 28 74 6f 6f 6c 73 25 29 2c 37 29 80 69 74 61 |%(tools%),7).ita|
00004ea0 6c 69 63 29 0d 23 e6 36 63 73 74 79 6c 65 25 3d |lic).#.6cstyle%=|
00004eb0 63 73 74 79 6c 65 25 20 84 20 28 a4 73 65 6c 65 |cstyle% . (.sele|
00004ec0 63 74 65 64 28 77 25 28 74 6f 6f 6c 73 25 29 2c |cted(w%(tools%),|
00004ed0 38 29 80 75 6c 69 6e 65 64 29 0d 23 f0 35 63 73 |8).ulined).#.5cs|
00004ee0 74 79 6c 65 25 3d 63 73 74 79 6c 65 25 20 84 20 |tyle%=cstyle% . |
00004ef0 28 a4 73 65 6c 65 63 74 65 64 28 77 25 28 74 6f |(.selected(w%(to|
00004f00 6f 6c 73 25 29 2c 39 29 80 73 75 70 65 72 29 0d |ols%),9).super).|
00004f10 23 fa 34 63 73 74 79 6c 65 25 3d 63 73 74 79 6c |#.4cstyle%=cstyl|
00004f20 65 25 20 84 20 28 a4 73 65 6c 65 63 74 65 64 28 |e% . (.selected(|
00004f30 77 25 28 74 6f 6f 6c 73 25 29 2c 31 30 29 80 73 |w%(tools%),10).s|
00004f40 75 62 29 0d 24 04 32 63 73 74 79 6c 65 25 3d 63 |ub).$.2cstyle%=c|
00004f50 73 74 79 6c 65 25 20 84 20 28 a4 73 65 6c 65 63 |style% . (.selec|
00004f60 74 65 64 28 77 25 28 74 6f 6f 6c 73 25 29 2c 33 |ted(w%(tools%),3|
00004f70 29 80 64 77 29 0d 24 0e 0f 6c 73 25 3d 63 73 74 |).dw).$..ls%=cst|
00004f80 79 6c 65 25 0d 24 18 05 e1 0d 24 22 04 0d 24 2c |yle%.$....$"..$,|
00004f90 15 dd 20 f2 69 6e 63 6c 61 62 65 6c 28 69 6e 63 |.. .inclabel(inc|
00004fa0 25 29 0d 24 36 10 6c 61 62 65 6c 25 2b 3d 69 6e |%).$6.label%+=in|
00004fb0 63 25 0d 24 40 0d f2 73 65 74 6c 61 62 65 6c 0d |c%.$@..setlabel.|
00004fc0 24 4a 1f f2 6e 65 77 70 6f 73 28 77 69 64 74 68 |$J..newpos(width|
00004fd0 25 2f 32 2c 68 65 69 67 68 74 25 2f 32 29 0d 24 |%/2,height%/2).$|
00004fe0 54 1b f2 66 6f 72 63 65 72 65 64 72 61 77 28 77 |T..forceredraw(w|
00004ff0 25 28 65 64 69 74 25 29 29 0d 24 5e 05 e1 0d 24 |%(edit%)).$^...$|
00005000 68 04 0d 24 72 12 dd 20 a4 6d 65 6e 75 69 63 6f |h..$r.. .menuico|
00005010 6e 62 61 72 0d 24 7c 0f e7 20 21 62 6c 6b 25 3d |nbar.$|.. !blk%=|
00005020 31 20 8c 0d 24 86 30 20 20 e7 20 61 63 74 69 76 |1 ..$.0 . activ|
00005030 65 25 28 65 64 69 74 25 29 20 8c 20 f2 63 6c 6f |e%(edit%) . .clo|
00005040 73 65 77 69 6e 64 6f 77 28 77 25 28 65 64 69 74 |sewindow(w%(edit|
00005050 25 29 29 0d 24 90 24 20 20 e7 20 ac 61 63 74 69 |%)).$.$ . .acti|
00005060 76 65 25 28 65 64 69 74 25 29 20 8c 20 f2 63 6c |ve%(edit%) . .cl|
00005070 6f 73 65 64 6f 77 6e 0d 24 9a 05 cd 0d 24 a4 06 |osedown.$....$..|
00005080 3d 30 0d 24 ae 04 0d 24 b8 13 dd 20 a4 63 6c 69 |=0.$...$... .cli|
00005090 63 6b 69 63 6f 6e 62 61 72 0d 24 c2 17 e7 20 ac |ckiconbar.$... .|
000050a0 61 63 74 69 76 65 25 28 65 64 69 74 25 29 20 8c |active%(edit%) .|
000050b0 0d 24 cc 2a 66 69 6c 65 6e 61 6d 65 24 3d a4 73 |.$.*filename$=.s|
000050c0 74 61 6e 64 61 72 64 66 69 6c 65 6e 61 6d 65 28 |tandardfilename(|
000050d0 77 25 28 73 61 76 65 25 29 29 0d 24 d6 14 77 69 |w%(save%)).$..wi|
000050e0 64 74 68 25 3d 6d 61 78 77 69 64 74 68 25 0d 24 |dth%=maxwidth%.$|
000050f0 e0 16 68 65 69 67 68 74 25 3d 6d 61 78 68 65 69 |..height%=maxhei|
00005100 67 68 74 25 0d 24 ea 0d 6c 61 62 65 6c 73 25 3d |ght%.$..labels%=|
00005110 31 0d 24 f4 0e 63 68 61 6e 67 65 64 25 3d a3 0d |1.$..changed%=..|
00005120 24 fe 0c f2 73 74 61 72 74 75 70 0d 25 08 0f f2 |$...startup.%...|
00005130 62 6c 61 6e 6b 6c 61 62 65 6c 0d 25 12 0e f2 65 |blanklabel.%...e|
00005140 64 69 74 74 69 74 6c 65 0d 25 1c 05 cc 0d 25 26 |dittitle.%....%&|
00005150 16 f2 6f 70 65 6e 75 70 28 77 25 28 65 64 69 74 |..openup(w%(edit|
00005160 25 29 29 0d 25 30 05 cd 0d 25 3a 06 3d 30 0d 25 |%)).%0...%:.=0.%|
00005170 44 04 0d 25 4e 0e dd 20 f2 73 74 61 72 74 75 70 |D..%N.. .startup|
00005180 0d 25 58 0f 73 65 6c 65 63 74 65 64 25 3d a3 0d |.%X.selected%=..|
00005190 25 62 12 f2 73 65 74 77 69 6e 64 6f 77 73 69 7a |%b..setwindowsiz|
000051a0 65 0d 25 6c 0d 63 73 74 79 6c 65 25 3d 30 0d 25 |e.%l.cstyle%=0.%|
000051b0 76 0c 6c 61 62 65 6c 25 3d 31 0d 25 80 0d f2 73 |v.label%=1.%...s|
000051c0 65 74 6c 61 62 65 6c 0d 25 8a 1b f2 6f 70 65 6e |etlabel.%...open|
000051d0 66 75 6c 6c 79 28 77 25 28 65 64 69 74 25 29 2c |fully(w%(edit%),|
000051e0 b9 29 0d 25 94 05 e1 0d 25 9e 04 0d 25 a8 14 dd |.).%....%...%...|
000051f0 20 f2 73 65 74 77 69 6e 64 6f 77 73 69 7a 65 0d | .setwindowsize.|
00005200 25 b2 17 78 73 69 7a 65 25 3d 32 34 3a 79 73 69 |%..xsize%=24:ysi|
00005210 7a 65 25 3d 33 32 0d 25 bc 41 f2 73 65 74 77 69 |ze%=32.%.A.setwi|
00005220 6e 64 6f 77 65 78 74 65 6e 74 28 77 25 28 65 64 |ndowextent(w%(ed|
00005230 69 74 25 29 2c 30 2c 2d 68 65 69 67 68 74 25 2a |it%),0,-height%*|
00005240 79 73 69 7a 65 25 2c 77 69 64 74 68 25 2a 78 73 |ysize%,width%*xs|
00005250 69 7a 65 25 2c 30 29 0d 25 c6 05 e1 0d 25 d0 04 |ize%,0).%....%..|
00005260 0d 25 da 2e dd 20 a4 64 70 28 78 25 2c 79 25 29 |.%... .dp(x%,y%)|
00005270 3d 6c 61 62 65 6c 25 2a 62 73 69 7a 65 25 2b 78 |=label%*bsize%+x|
00005280 25 2b 79 25 2a 6d 61 78 77 69 64 74 68 25 0d 25 |%+y%*maxwidth%.%|
00005290 e4 04 0d 25 ee 13 dd 20 f2 73 65 74 66 6c 61 67 |...%... .setflag|
000052a0 73 28 73 25 29 0d 25 f8 0d 63 25 3d 73 25 82 6c |s(s%).%..c%=s%.l|
000052b0 73 25 0d 26 02 31 e7 20 63 25 80 62 6f 6c 64 20 |s%.&.1. c%.bold |
000052c0 8c 20 f2 73 65 6c 65 63 74 69 63 6f 6e 28 77 25 |. .selecticon(w%|
000052d0 28 74 6f 6f 6c 73 25 29 2c 30 2c 73 25 80 62 6f |(tools%),0,s%.bo|
000052e0 6c 64 29 0d 26 0c 35 e7 20 63 25 80 69 74 61 6c |ld).&.5. c%.ital|
000052f0 69 63 20 8c 20 f2 73 65 6c 65 63 74 69 63 6f 6e |ic . .selecticon|
00005300 28 77 25 28 74 6f 6f 6c 73 25 29 2c 37 2c 73 25 |(w%(tools%),7,s%|
00005310 80 69 74 61 6c 69 63 29 0d 26 16 35 e7 20 63 25 |.italic).&.5. c%|
00005320 80 75 6c 69 6e 65 64 20 8c 20 f2 73 65 6c 65 63 |.ulined . .selec|
00005330 74 69 63 6f 6e 28 77 25 28 74 6f 6f 6c 73 25 29 |ticon(w%(tools%)|
00005340 2c 38 2c 73 25 80 75 6c 69 6e 65 64 29 0d 26 20 |,8,s%.ulined).& |
00005350 33 e7 20 63 25 80 73 75 70 65 72 20 8c 20 f2 73 |3. c%.super . .s|
00005360 65 6c 65 63 74 69 63 6f 6e 28 77 25 28 74 6f 6f |electicon(w%(too|
00005370 6c 73 25 29 2c 39 2c 73 25 80 73 75 70 65 72 29 |ls%),9,s%.super)|
00005380 0d 26 2a 30 e7 20 63 25 80 73 75 62 20 8c 20 f2 |.&*0. c%.sub . .|
00005390 73 65 6c 65 63 74 69 63 6f 6e 28 77 25 28 74 6f |selecticon(w%(to|
000053a0 6f 6c 73 25 29 2c 31 30 2c 73 25 80 73 75 62 29 |ols%),10,s%.sub)|
000053b0 0d 26 34 2d e7 20 63 25 80 64 77 20 8c 20 f2 73 |.&4-. c%.dw . .s|
000053c0 65 6c 65 63 74 69 63 6f 6e 28 77 25 28 74 6f 6f |electicon(w%(too|
000053d0 6c 73 25 29 2c 33 2c 73 25 80 64 77 29 0d 26 3e |ls%),3,s%.dw).&>|
000053e0 0a 6c 73 25 3d 73 25 0d 26 48 05 e1 0d 26 52 04 |.ls%=s%.&H...&R.|
000053f0 0d 26 5c 0f dd 20 f2 73 65 74 6c 61 62 65 6c 0d |.&\.. .setlabel.|
00005400 26 66 37 f2 73 65 74 69 63 6f 6e 74 65 78 74 28 |&f7.seticontext(|
00005410 77 25 28 74 6f 6f 6c 73 25 29 2c 35 2c c3 28 6c |w%(tools%),5,.(l|
00005420 61 62 65 6c 25 29 2b 22 2f 22 2b c3 28 6c 61 62 |abel%)+"/"+.(lab|
00005430 65 6c 73 25 29 29 0d 26 70 05 e1 0d 26 7a 04 0d |els%)).&p...&z..|
00005440 26 84 11 dd 20 f2 62 6c 61 6e 6b 6c 61 62 65 6c |&... .blanklabel|
00005450 0d 26 8e 18 e3 20 78 25 3d 30 20 b8 20 6d 61 78 |.&... x%=0 . max|
00005460 77 69 64 74 68 25 2d 31 0d 26 98 19 e3 20 79 25 |width%-1.&... y%|
00005470 3d 30 20 b8 20 6d 61 78 68 65 69 67 68 74 25 2d |=0 . maxheight%-|
00005480 31 0d 26 a2 11 74 25 3d a4 64 70 28 78 25 2c 79 |1.&..t%=.dp(x%,y|
00005490 25 29 0d 26 ac 0f 63 68 61 72 25 3f 74 25 3d 33 |%).&..char%?t%=3|
000054a0 32 0d 26 b6 0f 73 74 79 6c 65 25 3f 74 25 3d 30 |2.&..style%?t%=0|
000054b0 0d 26 c0 08 ed 20 79 25 0d 26 ca 08 ed 20 78 25 |.&... y%.&... x%|
000054c0 0d 26 d4 05 e1 0d 26 de 04 0d 26 e8 10 dd 20 a4 |.&....&...&... .|
000054d0 70 72 65 70 61 72 65 35 30 0d 26 f2 10 66 69 6c |prepare50.&..fil|
000054e0 65 73 69 7a 65 25 3d 2d 31 0d 26 fc 07 3d 2d 32 |esize%=-1.&..=-2|
000054f0 0d 27 06 04 0d 27 10 0d dd 20 a4 73 61 76 65 35 |.'...'... .save5|
00005500 30 0d 27 1a 0c ea 20 6c 61 62 65 6c 25 0d 27 24 |0.'... label%.'$|
00005510 15 66 69 6c 65 3d ae 28 66 69 6c 65 6e 61 6d 65 |.file=.(filename|
00005520 24 29 0d 27 2e 12 f1 23 66 69 6c 65 2c 6c 61 62 |$).'...#file,lab|
00005530 65 6c 73 25 0d 27 38 11 f1 23 66 69 6c 65 2c 77 |els%.'8..#file,w|
00005540 69 64 74 68 25 0d 27 42 12 f1 23 66 69 6c 65 2c |idth%.'B..#file,|
00005550 68 65 69 67 68 74 25 0d 27 4c 18 e3 20 6c 61 62 |height%.'L.. lab|
00005560 65 6c 25 3d 31 20 b8 20 6c 61 62 65 6c 73 25 0d |el%=1 . labels%.|
00005570 27 56 15 e3 20 78 25 3d 30 20 b8 20 77 69 64 74 |'V.. x%=0 . widt|
00005580 68 25 2d 31 0d 27 60 16 e3 20 79 25 3d 30 20 b8 |h%-1.'`.. y%=0 .|
00005590 20 68 65 69 67 68 74 25 2d 31 0d 27 6a 1b d5 23 | height%-1.'j..#|
000055a0 66 69 6c 65 2c 63 68 61 72 25 3f a4 64 70 28 78 |file,char%?.dp(x|
000055b0 25 2c 79 25 29 0d 27 74 1c d5 23 66 69 6c 65 2c |%,y%).'t..#file,|
000055c0 73 74 79 6c 65 25 3f a4 64 70 28 78 25 2c 79 25 |style%?.dp(x%,y%|
000055d0 29 0d 27 7e 08 ed 20 79 25 0d 27 88 08 ed 20 78 |).'~.. y%.'... x|
000055e0 25 0d 27 92 0c ed 20 6c 61 62 65 6c 25 0d 27 9c |%.'... label%.'.|
000055f0 0a d9 23 66 69 6c 65 0d 27 a6 20 f2 73 65 74 66 |..#file.'. .setf|
00005600 69 6c 65 74 79 70 65 28 66 69 6c 65 6e 61 6d 65 |iletype(filename|
00005610 24 2c 6c 66 74 25 29 0d 27 b0 0c 6c 61 62 65 6c |$,lft%).'..label|
00005620 25 3d 31 0d 27 ba 10 f2 69 6e 63 6c 61 62 65 6c |%=1.'...inclabel|
00005630 28 30 29 0d 27 c4 0e 63 68 61 6e 67 65 64 25 3d |(0).'..changed%=|
00005640 a3 0d 27 ce 0e f2 65 64 69 74 74 69 74 6c 65 0d |..'...edittitle.|
00005650 27 d8 06 3d 30 0d 27 e2 04 0d 27 ec 1c dd 20 f2 |'..=0.'...'... .|
00005660 6c 6f 61 64 28 66 69 6c 65 24 2c 66 69 6c 65 74 |load(file$,filet|
00005670 79 70 65 25 29 0d 27 f6 09 6f 6b 25 3d b9 0d 28 |ype%).'..ok%=..(|
00005680 00 12 c8 8e 20 66 69 6c 65 74 79 70 65 25 20 ca |.... filetype% .|
00005690 0d 28 0a 0c 20 20 c9 20 6c 66 74 25 0d 28 14 05 |.(.. . lft%.(..|
000056a0 7f 0d 28 1e 0b 20 20 6f 6b 25 3d a3 0d 28 28 05 |..(.. ok%=..((.|
000056b0 cb 0d 28 32 21 e7 20 6f 6b 25 20 8c 20 6f 6b 25 |..(2!. ok% . ok%|
000056c0 3d a4 66 69 6c 65 65 78 69 73 74 28 66 69 6c 65 |=.fileexist(file|
000056d0 24 29 0d 28 3c 0b e7 20 6f 6b 25 20 8c 0d 28 46 |$).(<.. ok% ..(F|
000056e0 12 20 20 f2 72 65 70 6c 79 28 31 38 2c 34 29 0d |. .reply(18,4).|
000056f0 28 50 2c 20 20 64 25 3d a0 28 22 46 4e 6c 6f 61 |(P, d%=.("FNloa|
00005700 64 22 2b c3 7e 28 66 69 6c 65 74 79 70 65 25 29 |d"+.~(filetype%)|
00005710 2b 22 28 66 69 6c 65 24 29 22 29 0d 28 5a 05 cc |+"(file$)").(Z..|
00005720 0d 28 64 15 20 20 e7 20 6d 65 73 73 61 67 65 25 |.(d. . message%|
00005730 3c 3e 35 20 8c 0d 28 6e 14 20 20 20 20 f2 72 65 |<>5 ..(n. .re|
00005740 70 6c 79 28 31 38 2c 34 29 0d 28 78 29 20 20 20 |ply(18,4).(x) |
00005750 20 f2 72 65 70 6f 72 74 28 22 43 61 6e 6e 6f 74 | .report("Cannot|
00005760 20 6c 6f 61 64 20 74 68 69 73 20 66 69 6c 65 2e | load this file.|
00005770 22 29 0d 28 82 07 20 20 cd 0d 28 8c 05 cd 0d 28 |").(.. ..(....(|
00005780 96 05 e1 0d 28 a0 04 0d 28 aa 14 dd 20 a4 6c 6f |....(...(... .lo|
00005790 61 64 35 30 28 66 69 6c 65 24 29 0d 28 b4 0e f2 |ad50(file$).(...|
000057a0 6d 6f 75 73 65 69 6e 66 6f 0d 28 be 1b e7 20 77 |mouseinfo.(... w|
000057b0 69 6e 64 25 3d 77 25 28 73 65 74 74 69 6e 67 73 |ind%=w%(settings|
000057c0 25 29 20 8c 0d 28 c8 28 f2 73 65 74 69 63 6f 6e |%) ..(.(.seticon|
000057d0 74 65 78 74 28 77 25 28 73 65 74 74 69 6e 67 73 |text(w%(settings|
000057e0 25 29 2c 31 34 2c 66 69 6c 65 24 29 0d 28 d2 22 |%),14,file$).(."|
000057f0 f2 73 68 61 64 65 69 63 6f 6e 28 77 25 28 73 65 |.shadeicon(w%(se|
00005800 74 74 69 6e 67 73 25 29 2c 31 32 2c a3 29 0d 28 |ttings%),12,.).(|
00005810 dc 23 f2 73 65 6c 65 63 74 69 63 6f 6e 28 77 25 |.#.selecticon(w%|
00005820 28 73 65 74 74 69 6e 67 73 25 29 2c 31 32 2c b9 |(settings%),12,.|
00005830 29 0d 28 e6 05 cc 0d 28 f0 10 e7 20 63 68 61 6e |).(....(... chan|
00005840 67 65 64 25 20 8c 0d 28 fa 50 f2 72 65 70 6f 72 |ged% ..(.P.repor|
00005850 74 28 22 43 75 72 72 65 6e 74 20 66 69 6c 65 20 |t("Current file |
00005860 68 61 73 20 62 65 65 6e 20 63 68 61 6e 67 65 64 |has been changed|
00005870 20 61 6e 64 20 79 6f 75 20 63 61 6e 6e 6f 74 20 | and you cannot |
00005880 65 64 69 74 20 6d 75 6c 74 69 70 6c 65 20 66 69 |edit multiple fi|
00005890 6c 65 73 2e 22 29 0d 29 04 05 cc 0d 29 0e 11 66 |les.").)....)..f|
000058a0 69 6c 65 3d 8e 28 66 69 6c 65 24 29 0d 29 18 12 |ile=.(file$).)..|
000058b0 e8 23 66 69 6c 65 2c 6c 61 62 65 6c 73 25 0d 29 |.#file,labels%.)|
000058c0 22 11 e8 23 66 69 6c 65 2c 77 69 64 74 68 25 0d |"..#file,width%.|
000058d0 29 2c 12 e8 23 66 69 6c 65 2c 68 65 69 67 68 74 |),..#file,height|
000058e0 25 0d 29 36 18 e3 20 6c 61 62 65 6c 25 3d 31 20 |%.)6.. label%=1 |
000058f0 b8 20 6c 61 62 65 6c 73 25 0d 29 40 15 e3 20 78 |. labels%.)@.. x|
00005900 25 3d 30 20 b8 20 77 69 64 74 68 25 2d 31 0d 29 |%=0 . width%-1.)|
00005910 4a 16 e3 20 79 25 3d 30 20 b8 20 68 65 69 67 68 |J.. y%=0 . heigh|
00005920 74 25 2d 31 0d 29 54 1b 63 68 61 72 25 3f a4 64 |t%-1.)T.char%?.d|
00005930 70 28 78 25 2c 79 25 29 3d 9a 23 66 69 6c 65 0d |p(x%,y%)=.#file.|
00005940 29 5e 1c 73 74 79 6c 65 25 3f a4 64 70 28 78 25 |)^.style%?.dp(x%|
00005950 2c 79 25 29 3d 9a 23 66 69 6c 65 0d 29 68 08 ed |,y%)=.#file.)h..|
00005960 20 79 25 0d 29 72 08 ed 20 78 25 0d 29 7c 0c ed | y%.)r.. x%.)|..|
00005970 20 6c 61 62 65 6c 25 0d 29 86 0a d9 23 66 69 6c | label%.)...#fil|
00005980 65 0d 29 90 13 66 69 6c 65 6e 61 6d 65 24 3d 66 |e.)..filename$=f|
00005990 69 6c 65 24 0d 29 9a 0c f2 73 74 61 72 74 75 70 |ile$.)...startup|
000059a0 0d 29 a4 0e f2 6c 6f 73 65 63 61 72 65 74 0d 29 |.)...losecaret.)|
000059b0 ae 1b f2 66 6f 72 63 65 72 65 64 72 61 77 28 77 |...forceredraw(w|
000059c0 25 28 65 64 69 74 25 29 29 0d 29 b8 0e 63 68 61 |%(edit%)).)..cha|
000059d0 6e 67 65 64 25 3d a3 0d 29 c2 0e f2 65 64 69 74 |nged%=..)...edit|
000059e0 74 69 74 6c 65 0d 29 cc 05 cd 0d 29 d6 05 cd 0d |title.)....)....|
000059f0 29 e0 06 3d 30 0d 29 ea 04 0d 29 f4 0f dd 20 a4 |)..=0.)...)... .|
00005a00 64 72 6f 70 73 61 76 65 0d 29 fe 2f 70 72 65 70 |dropsave.)./prep|
00005a10 61 72 65 64 25 3d a0 28 22 46 4e 70 72 65 70 61 |ared%=.("FNprepa|
00005a20 72 65 22 2b c3 7e 28 6d 69 73 63 25 28 64 72 61 |re"+.~(misc%(dra|
00005a30 67 69 64 25 29 29 29 0d 2a 08 4e e7 20 70 72 65 |gid%))).*.N. pre|
00005a40 70 61 72 65 64 25 20 8c 20 f2 64 72 6f 70 66 69 |pared% . .dropfi|
00005a50 6c 65 28 a4 69 63 6f 6e 74 65 78 74 28 77 25 28 |le(.icontext(w%(|
00005a60 64 72 61 67 69 64 25 29 2c 32 29 2c 6d 69 73 63 |dragid%),2),misc|
00005a70 25 28 64 72 61 67 69 64 25 29 2c 66 69 6c 65 73 |%(dragid%),files|
00005a80 69 7a 65 25 29 0d 2a 12 06 3d 30 0d 2a 1c 04 0d |ize%).*..=0.*...|
00005a90 2a 26 10 dd 20 a4 63 6c 69 63 6b 73 61 76 65 0d |*&.. .clicksave.|
00005aa0 2a 30 2f e7 20 69 63 6f 6e 25 3d 30 20 8c 20 f2 |*0/. icon%=0 . .|
00005ab0 73 61 76 65 28 69 64 25 2c a4 69 63 6f 6e 74 65 |save(id%,.iconte|
00005ac0 78 74 28 77 69 6e 64 25 2c 32 29 2c a3 29 0d 2a |xt(wind%,2),.).*|
00005ad0 3a 06 3d 30 0d 2a 44 04 0d 2a 4e 0e dd 20 a4 6b |:.=0.*D..*N.. .k|
00005ae0 65 79 73 61 76 65 0d 2a 58 32 e7 20 6b 65 79 25 |eysave.*X2. key%|
00005af0 3d 31 33 20 8c 20 f2 73 61 76 65 28 69 64 25 2c |=13 . .save(id%,|
00005b00 a4 69 63 6f 6e 74 65 78 74 28 77 69 6e 64 25 2c |.icontext(wind%,|
00005b10 32 29 2c a3 29 3a 3d b9 0d 2a 62 06 3d 30 0d 2a |2),.):=..*b.=0.*|
00005b20 6c 04 0d 2a 76 23 f4 20 2d 2d 2d 2d 57 49 4d 50 |l..*v#. ----WIMP|
00005b30 20 4c 69 62 72 61 72 79 20 72 6f 75 74 69 6e 65 | Library routine|
00005b40 73 2d 2d 2d 2d 0d 2a 80 04 0d 2a 8a 20 f4 20 3d |s----.*...*. . =|
00005b50 3d 3d 3d 20 6d 65 73 73 61 67 65 20 72 6f 75 74 |=== message rout|
00005b60 69 6e 65 73 20 3d 3d 3d 3d 0d 2a 94 04 0d 2a 9e |ines ====.*...*.|
00005b70 17 dd 20 f2 70 6f 6c 6c 28 70 6f 6c 6c 66 6c 61 |.. .poll(pollfla|
00005b80 67 73 25 29 0d 2a a8 2b c8 99 22 57 69 6d 70 5f |gs%).*.+.."Wimp_|
00005b90 50 6f 6c 6c 22 2c 70 6f 6c 6c 66 6c 61 67 73 25 |Poll",pollflags%|
00005ba0 2c 62 6c 6b 25 20 b8 20 72 65 61 73 6f 6e 25 0d |,blk% . reason%.|
00005bb0 2a b2 10 c8 8e 20 72 65 61 73 6f 6e 25 20 ca 0d |*.... reason% ..|
00005bc0 2a bc 0f 20 20 c9 20 30 3a f2 6e 75 6c 6c 0d 2a |*.. . 0:.null.*|
00005bd0 c6 11 20 20 c9 20 31 3a f2 72 65 64 72 61 77 0d |.. . 1:.redraw.|
00005be0 2a d0 15 20 20 c9 20 32 3a f2 6f 70 65 6e 77 69 |*.. . 2:.openwi|
00005bf0 6e 64 6f 77 0d 2a da 1d 20 20 c9 20 33 3a f2 63 |ndow.*.. . 3:.c|
00005c00 6c 6f 73 65 77 69 6e 64 6f 77 28 21 62 6c 6b 25 |losewindow(!blk%|
00005c10 29 0d 2a e4 1b 20 20 c9 20 34 3a f4 20 70 6f 69 |).*.. . 4:. poi|
00005c20 6e 74 65 72 20 6c 65 61 76 69 6e 67 0d 2a ee 1c |nter leaving.*..|
00005c30 20 20 c9 20 35 3a f4 20 70 6f 69 6e 74 65 72 20 | . 5:. pointer |
00005c40 65 6e 74 65 72 69 6e 67 0d 2a f8 35 20 20 c9 20 |entering.*.5 . |
00005c50 36 3a f2 63 6c 69 63 6b 28 21 62 6c 6b 25 2c 62 |6:.click(!blk%,b|
00005c60 6c 6b 25 21 34 2c 62 6c 6b 25 21 38 2c 62 6c 6b |lk%!4,blk%!8,blk|
00005c70 25 21 31 32 2c 62 6c 6b 25 21 31 36 29 0d 2b 02 |%!12,blk%!16).+.|
00005c80 12 20 20 c9 20 37 3a f2 65 6e 64 64 72 61 67 0d |. . 7:.enddrag.|
00005c90 2b 0c 2b 20 20 c9 20 38 3a f2 6b 65 79 28 21 62 |+.+ . 8:.key(!b|
00005ca0 6c 6b 25 2c 62 6c 6b 25 21 34 2c 62 6c 6b 25 21 |lk%,blk%!4,blk%!|
00005cb0 38 2c 62 6c 6b 25 21 32 34 29 0d 2b 16 15 20 20 |8,blk%!24).+.. |
00005cc0 c9 20 39 3a f2 6d 65 6e 75 73 65 6c 65 63 74 0d |. 9:.menuselect.|
00005cd0 2b 20 1b 20 20 c9 20 31 30 3a f4 20 73 63 72 6f |+ . . 10:. scro|
00005ce0 6c 6c 20 72 65 71 75 65 73 74 0d 2b 2a 15 20 20 |ll request.+*. |
00005cf0 c9 20 31 31 3a 6d 79 63 61 72 65 74 25 3d a3 0d |. 11:mycaret%=..|
00005d00 2b 34 15 20 20 c9 20 31 32 3a 6d 79 63 61 72 65 |+4. . 12:mycare|
00005d10 74 25 3d b9 0d 2b 3e 2d 20 20 c9 20 31 37 2c 31 |t%=..+>- . 17,1|
00005d20 38 3a f2 6d 65 73 73 61 67 65 28 62 6c 6b 25 21 |8:.message(blk%!|
00005d30 34 2c 62 6c 6b 25 21 38 2c 62 6c 6b 25 21 31 36 |4,blk%!8,blk%!16|
00005d40 29 0d 2b 48 05 cb 0d 2b 52 05 e1 0d 2b 5c 04 0d |).+H...+R...+\..|
00005d50 2b 66 23 dd 20 f2 6d 65 73 73 61 67 65 28 74 61 |+f#. .message(ta|
00005d60 73 6b 25 2c 72 65 66 25 2c 6d 65 73 73 61 67 65 |sk%,ref%,message|
00005d70 25 29 0d 2b 70 39 e7 20 73 74 61 74 75 73 25 3e |%).+p9. status%>|
00005d80 30 20 80 20 6d 65 73 73 61 67 65 25 3e 3d 31 20 |0 . message%>=1 |
00005d90 80 20 6d 65 73 73 61 67 65 25 3c 3d 37 20 8c 20 |. message%<=7 . |
00005da0 6d 65 73 73 61 67 65 25 3d 2d 31 0d 2b 7a 11 c8 |message%=-1.+z..|
00005db0 8e 20 6d 65 73 73 61 67 65 25 20 ca 0d 2b 84 11 |. message% ..+..|
00005dc0 20 20 c9 20 30 20 3a 20 f2 71 75 69 74 0d 2b 8e | . 0 : .quit.+.|
00005dd0 09 20 20 c9 20 32 0d 2b 98 31 20 20 20 20 f2 73 |. . 2.+.1 .s|
00005de0 61 76 65 28 64 72 61 67 69 64 25 2c a4 73 74 72 |ave(dragid%,.str|
00005df0 69 6e 67 28 62 6c 6b 25 2b 34 34 29 2c 70 72 65 |ing(blk%+44),pre|
00005e00 70 61 72 65 64 25 29 0d 2b a2 3f 20 20 20 20 e7 |pared%).+.? .|
00005e10 20 73 61 76 65 64 25 20 8c 20 f2 74 65 6c 6c 74 | saved% . .tellt|
00005e20 6f 6c 6f 61 64 20 8b 20 f2 72 65 70 6f 72 74 28 |oload . .report(|
00005e30 22 43 6f 75 6c 64 20 6e 6f 74 20 73 61 76 65 20 |"Could not save |
00005e40 66 69 6c 65 22 29 0d 2b ac 2b 20 20 c9 20 33 20 |file").+.+ . 3 |
00005e50 3a 20 f2 6c 6f 61 64 28 a4 73 74 72 69 6e 67 28 |: .load(.string(|
00005e60 62 6c 6b 25 2b 34 34 29 2c 62 6c 6b 25 21 34 30 |blk%+44),blk%!40|
00005e70 29 0d 2b b6 2b 20 20 c9 20 35 20 3a 20 f2 6c 6f |).+.+ . 5 : .lo|
00005e80 61 64 28 a4 73 74 72 69 6e 67 28 62 6c 6b 25 2b |ad(.string(blk%+|
00005e90 34 34 29 2c 62 6c 6b 25 21 34 30 29 0d 2b c0 14 |44),blk%!40).+..|
00005ea0 20 20 c9 20 38 20 3a 20 f2 70 72 65 71 75 69 74 | . 8 : .prequit|
00005eb0 0d 2b ca 23 20 20 c9 20 31 30 3a 20 f2 61 64 64 |.+.# . 10: .add|
00005ec0 74 6f 62 6f 6f 74 66 69 6c 65 28 62 6c 6b 25 21 |tobootfile(blk%!|
00005ed0 32 30 29 0d 2b d4 19 20 20 c9 20 26 34 30 30 43 |20).+.. . &400C|
00005ee0 31 20 3a 20 f2 6e 65 77 6d 6f 64 65 0d 2b de 05 |1 : .newmode.+..|
00005ef0 cb 0d 2b e8 05 e1 0d 2b f2 04 0d 2b fc 0e dd 20 |..+....+...+... |
00005f00 f2 70 72 65 71 75 69 74 0d 2c 06 10 e7 20 63 68 |.prequit.,... ch|
00005f10 61 6e 67 65 64 25 20 8c 0d 2c 10 12 20 20 f2 72 |anged% ..,.. .r|
00005f20 65 70 6c 79 28 31 37 2c 38 29 0d 2c 1a 1d 20 20 |eply(17,8).,.. |
00005f30 f2 63 6c 6f 73 65 77 69 6e 64 6f 77 28 77 25 28 |.closewindow(w%(|
00005f40 65 64 69 74 25 29 29 0d 2c 24 05 cd 0d 2c 2e 05 |edit%)).,$...,..|
00005f50 e1 0d 2c 38 04 0d 2c 42 1d dd 20 f2 61 64 64 74 |..,8..,B.. .addt|
00005f60 6f 62 6f 6f 74 66 69 6c 65 28 68 61 6e 64 6c 65 |obootfile(handle|
00005f70 25 29 0d 2c 4c 16 d5 23 66 69 6c 65 2c 22 52 75 |%).,L..#file,"Ru|
00005f80 6e 20 22 2b 64 69 72 24 0d 2c 56 05 e1 0d 2c 60 |n "+dir$.,V...,`|
00005f90 04 0d 2c 6a 11 dd 20 f2 74 65 6c 6c 74 6f 6c 6f |..,j.. .telltolo|
00005fa0 61 64 0d 2c 74 0e f2 6d 6f 75 73 65 69 6e 66 6f |ad.,t..mouseinfo|
00005fb0 0d 2c 7e 11 62 6c 6b 25 21 32 30 3d 77 69 6e 64 |.,~.blk%!20=wind|
00005fc0 25 0d 2c 88 11 62 6c 6b 25 21 32 34 3d 69 63 6f |%.,..blk%!24=ico|
00005fd0 6e 25 0d 2c 92 0f 62 6c 6b 25 21 32 38 3d 6d 78 |n%.,..blk%!28=mx|
00005fe0 25 0d 2c 9c 0f 62 6c 6b 25 21 33 32 3d 6d 79 25 |%.,..blk%!32=my%|
00005ff0 0d 2c a6 15 62 6c 6b 25 21 33 36 3d 66 69 6c 65 |.,..blk%!36=file|
00006000 73 69 7a 65 25 0d 2c b0 15 62 6c 6b 25 21 34 30 |size%.,..blk%!40|
00006010 3d 66 69 6c 65 74 79 70 65 25 0d 2c ba 1b 24 28 |=filetype%.,..$(|
00006020 62 6c 6b 25 2b 34 34 29 3d 66 69 6c 65 6e 61 6d |blk%+44)=filenam|
00006030 65 24 2b bd 30 0d 2c c4 1d 21 62 6c 6b 25 3d 28 |e$+.0.,..!blk%=(|
00006040 a9 24 28 62 6c 6b 25 2b 34 34 29 2b 34 38 29 80 |.$(blk%+44)+48).|
00006050 ac 33 0d 2c ce 10 f2 72 65 70 6c 79 28 31 37 2c |.3.,...reply(17,|
00006060 33 29 0d 2c d8 05 e1 0d 2c e2 04 0d 2c ec 2e dd |3).,....,...,...|
00006070 20 f2 64 72 6f 70 66 69 6c 65 28 66 69 6c 65 6e | .dropfile(filen|
00006080 61 6d 65 24 2c 66 69 6c 65 74 79 70 65 25 2c 66 |ame$,filetype%,f|
00006090 69 6c 65 73 69 7a 65 25 29 0d 2c f6 0e f2 6d 6f |ilesize%).,...mo|
000060a0 75 73 65 69 6e 66 6f 0d 2d 00 0d 62 6c 6b 25 21 |useinfo.-..blk%!|
000060b0 31 32 3d 30 0d 2d 0a 0d 62 6c 6b 25 21 31 36 3d |12=0.-..blk%!16=|
000060c0 31 0d 2d 14 11 62 6c 6b 25 21 32 30 3d 77 69 6e |1.-..blk%!20=win|
000060d0 64 25 0d 2d 1e 11 62 6c 6b 25 21 32 34 3d 69 63 |d%.-..blk%!24=ic|
000060e0 6f 6e 25 0d 2d 28 0f 62 6c 6b 25 21 32 38 3d 6d |on%.-(.blk%!28=m|
000060f0 78 25 0d 2d 32 0f 62 6c 6b 25 21 33 32 3d 6d 79 |x%.-2.blk%!32=my|
00006100 25 0d 2d 3c 15 62 6c 6b 25 21 33 36 3d 66 69 6c |%.-<.blk%!36=fil|
00006110 65 73 69 7a 65 25 0d 2d 46 15 62 6c 6b 25 21 34 |esize%.-F.blk%!4|
00006120 30 3d 66 69 6c 65 74 79 70 65 25 0d 2d 50 25 24 |0=filetype%.-P%$|
00006130 28 62 6c 6b 25 2b 34 34 29 3d a4 6c 61 73 74 62 |(blk%+44)=.lastb|
00006140 69 74 28 66 69 6c 65 6e 61 6d 65 24 29 2b bd 30 |it(filename$)+.0|
00006150 0d 2d 5a 1d 21 62 6c 6b 25 3d 28 a9 24 28 62 6c |.-Z.!blk%=(.$(bl|
00006160 6b 25 2b 34 34 29 2b 34 38 29 80 ac 33 0d 2d 64 |k%+44)+48)..3.-d|
00006170 30 c8 99 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 |0.."Wimp_SendMes|
00006180 73 61 67 65 22 2c 31 37 2c 62 6c 6b 25 2c 62 6c |sage",17,blk%,bl|
00006190 6b 25 21 32 30 2c 62 6c 6b 25 21 32 34 0d 2d 6e |k%!20,blk%!24.-n|
000061a0 0c 74 72 61 6e 73 25 3d 30 0d 2d 78 05 e1 0d 2d |.trans%=0.-x...-|
000061b0 82 04 0d 2d 8c 12 dd 20 f2 6c 6f 61 64 73 70 72 |...-... .loadspr|
000061c0 69 74 65 73 0d 2d 96 1f 73 70 72 69 74 65 66 69 |ites.-..spritefi|
000061d0 6c 65 24 3d 64 69 72 24 2b 22 2e 53 70 72 69 74 |le$=dir$+".Sprit|
000061e0 65 73 22 0d 2d a0 1a f2 66 69 6c 65 69 6e 66 6f |es".-...fileinfo|
000061f0 28 73 70 72 69 74 65 66 69 6c 65 24 29 0d 2d aa |(spritefile$).-.|
00006200 10 e7 20 65 78 69 73 74 25 3d 31 20 8c 0d 2d b4 |.. exist%=1 ..-.|
00006210 17 73 73 69 7a 65 25 3d 66 69 6c 65 73 69 7a 65 |.ssize%=filesize|
00006220 25 2b 31 36 0d 2d be 15 de 20 73 70 72 69 74 65 |%+16.-... sprite|
00006230 73 25 20 73 73 69 7a 65 25 0d 2d c8 14 21 73 70 |s% ssize%.-..!sp|
00006240 72 69 74 65 73 25 3d 73 73 69 7a 65 25 0d 2d d2 |rites%=ssize%.-.|
00006250 10 73 70 72 69 74 65 73 25 21 34 3d 30 0d 2d dc |.sprites%!4=0.-.|
00006260 11 73 70 72 69 74 65 73 25 21 38 3d 31 36 0d 2d |.sprites%!8=16.-|
00006270 e6 12 73 70 72 69 74 65 73 25 21 31 32 3d 31 36 |..sprites%!12=16|
00006280 0d 2d f0 2f c8 99 22 4f 53 5f 53 70 72 69 74 65 |.-./.."OS_Sprite|
00006290 4f 70 22 2c 31 30 2b 32 35 36 2c 73 70 72 69 74 |Op",10+256,sprit|
000062a0 65 73 25 2c 73 70 72 69 74 65 66 69 6c 65 24 0d |es%,spritefile$.|
000062b0 2d fa 05 cc 0d 2e 04 0f 73 70 72 69 74 65 73 25 |-.......sprites%|
000062c0 3d 2d 31 0d 2e 0e 05 cd 0d 2e 18 05 e1 0d 2e 22 |=-1............"|
000062d0 04 0d 2e 2c 16 dd 20 f2 66 69 6c 65 69 6e 66 6f |...,.. .fileinfo|
000062e0 28 66 69 6c 65 24 29 0d 2e 36 2d c8 99 22 4f 53 |(file$)..6-.."OS|
000062f0 5f 46 69 6c 65 22 2c 35 2c 66 69 6c 65 24 20 b8 |_File",5,file$ .|
00006300 20 65 78 69 73 74 25 2c 2c 2c 2c 66 69 6c 65 73 | exist%,,,,files|
00006310 69 7a 65 25 0d 2e 40 05 e1 0d 2e 4a 04 0d 2e 54 |ize%..@....J...T|
00006320 16 dd 20 a4 66 69 6c 65 73 69 7a 65 28 66 69 6c |.. .filesize(fil|
00006330 65 24 29 0d 2e 5e 16 ea 20 65 78 69 73 74 25 2c |e$)..^.. exist%,|
00006340 66 69 6c 65 73 69 7a 65 25 0d 2e 68 14 f2 66 69 |filesize%..h..fi|
00006350 6c 65 69 6e 66 6f 28 66 69 6c 65 24 29 0d 2e 72 |leinfo(file$)..r|
00006360 0e 3d 66 69 6c 65 73 69 7a 65 25 0d 2e 7c 04 0d |.=filesize%..|..|
00006370 2e 86 17 dd 20 a4 66 69 6c 65 65 78 69 73 74 28 |.... .fileexist(|
00006380 66 69 6c 65 24 29 0d 2e 90 16 ea 20 65 78 69 73 |file$)..... exis|
00006390 74 25 2c 66 69 6c 65 73 69 7a 65 25 0d 2e 9a 14 |t%,filesize%....|
000063a0 f2 66 69 6c 65 69 6e 66 6f 28 66 69 6c 65 24 29 |.fileinfo(file$)|
000063b0 0d 2e a4 0b 3d 65 78 69 73 74 25 0d 2e ae 04 0d |....=exist%.....|
000063c0 2e b8 1b dd 20 f2 72 65 70 6c 79 28 74 79 70 65 |.... .reply(type|
000063d0 25 2c 62 6c 6b 25 21 31 36 29 0d 2e c2 10 62 6c |%,blk%!16)....bl|
000063e0 6b 25 21 31 32 3d 72 65 66 25 0d 2e cc 29 c8 99 |k%!12=ref%...)..|
000063f0 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 |"Wimp_SendMessag|
00006400 65 22 2c 74 79 70 65 25 2c 62 6c 6b 25 2c 74 61 |e",type%,blk%,ta|
00006410 73 6b 25 0d 2e d6 05 e1 0d 2e e0 04 0d 2e ea 0e |sk%.............|
00006420 dd 20 f2 6e 65 77 6d 6f 64 65 0d 2e f4 32 21 71 |. .newmode...2!q|
00006430 25 3d 31 31 3a 71 25 21 34 3d 31 32 3a 71 25 21 |%=11:q%!4=12:q%!|
00006440 38 3d 34 3a 71 25 21 31 32 3d 35 3a 71 25 21 31 |8=4:q%!12=5:q%!1|
00006450 36 3d 33 3a 71 25 21 32 30 3d 2d 31 0d 2e fe 21 |6=3:q%!20=-1...!|
00006460 c8 99 22 4f 53 5f 52 65 61 64 56 64 75 56 61 72 |.."OS_ReadVduVar|
00006470 69 61 62 6c 65 73 22 2c 71 25 2c 71 25 0d 2f 08 |iables",q%,q%./.|
00006480 18 73 63 78 25 3d 28 21 71 25 2b 31 29 3c 3c 28 |.scx%=(!q%+1)<<(|
00006490 71 25 21 38 29 0d 2f 12 1a 73 63 79 25 3d 28 71 |q%!8)./..scy%=(q|
000064a0 25 21 34 2b 31 29 3c 3c 28 71 25 21 31 32 29 0d |%!4+1)<<(q%!12).|
000064b0 2f 1c 24 70 69 78 65 6c 77 25 3d 31 3c 3c 71 25 |/.$pixelw%=1<<q%|
000064c0 21 38 3a 70 69 78 65 6c 68 25 3d 31 3c 3c 71 25 |!8:pixelh%=1<<q%|
000064d0 21 31 32 0d 2f 26 0f 63 6f 6c 73 25 3d 71 25 21 |!12./&.cols%=q%!|
000064e0 31 36 0d 2f 30 1e c8 99 22 57 69 6d 70 5f 52 65 |16./0..."Wimp_Re|
000064f0 61 64 50 61 6c 65 74 74 65 22 2c 2c 70 61 6c 25 |adPalette",,pal%|
00006500 0d 2f 3a 05 e1 0d 2f 44 04 0d 2f 4e 15 dd 20 f2 |./:.../D../N.. .|
00006510 73 65 74 66 6f 6e 74 63 6f 6c 6f 75 72 73 0d 2f |setfontcolours./|
00006520 58 0e c8 8e 20 63 6f 6c 73 25 20 ca 0d 2f 62 2a |X... cols% ../b*|
00006530 20 20 c9 20 31 20 3a 20 c8 99 22 46 6f 6e 74 5f | . 1 : .."Font_|
00006540 53 65 74 46 6f 6e 74 43 6f 6c 6f 75 72 73 22 2c |SetFontColours",|
00006550 2c 30 2c 31 2c 30 0d 2f 6c 2a 20 20 c9 20 33 20 |,0,1,0./l* . 3 |
00006560 3a 20 c8 99 22 46 6f 6e 74 5f 53 65 74 46 6f 6e |: .."Font_SetFon|
00006570 74 43 6f 6c 6f 75 72 73 22 2c 2c 30 2c 31 2c 32 |tColours",,0,1,2|
00006580 0d 2f 76 2b 20 20 c9 20 31 35 20 3a 20 c8 99 22 |./v+ . 15 : .."|
00006590 46 6f 6e 74 5f 53 65 74 46 6f 6e 74 43 6f 6c 6f |Font_SetFontColo|
000065a0 75 72 73 22 2c 2c 30 2c 31 2c 36 0d 2f 80 3a 20 |urs",,0,1,6./.: |
000065b0 20 c9 20 31 35 20 3a 20 c8 99 22 46 6f 6e 74 5f | . 15 : .."Font_|
000065c0 53 65 74 46 6f 6e 74 43 6f 6c 6f 75 72 73 22 2c |SetFontColours",|
000065d0 2c 30 2c 31 2c 31 34 2c 21 70 61 6c 25 2c 70 61 |,0,1,14,!pal%,pa|
000065e0 6c 25 21 32 38 0d 2f 8a 05 cb 0d 2f 94 05 e1 0d |l%!28./..../....|
000065f0 2f 9e 04 0d 2f a8 1b dd 20 a4 6c 6f 61 64 74 65 |/.../... .loadte|
00006600 6d 70 6c 61 74 65 28 74 69 74 6c 65 24 29 0d 2f |mplate(title$)./|
00006610 b2 47 c8 99 22 57 69 6d 70 5f 4c 6f 61 64 54 65 |.G.."Wimp_LoadTe|
00006620 6d 70 6c 61 74 65 22 2c 2c 62 6c 6b 25 2c 69 6e |mplate",,blk%,in|
00006630 64 25 2c 69 6e 64 65 6e 64 25 2c 66 6f 6e 74 74 |d%,indend%,fontt|
00006640 61 62 6c 65 25 2c 74 69 74 6c 65 24 20 b8 20 2c |able%,title$ . ,|
00006650 2c 69 6e 64 25 0d 2f bc 25 e7 20 73 70 72 69 74 |,ind%./.%. sprit|
00006660 65 73 25 3c 3e 2d 31 20 8c 20 62 6c 6b 25 21 36 |es%<>-1 . blk%!6|
00006670 34 3d 73 70 72 69 74 65 73 25 0d 2f c6 27 c8 99 |4=sprites%./.'..|
00006680 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 |"Wimp_CreateWind|
00006690 6f 77 22 2c 2c 62 6c 6b 25 20 b8 20 77 69 6e 64 |ow",,blk% . wind|
000066a0 25 0d 2f d0 0a 3d 77 69 6e 64 25 0d 2f da 04 0d |%./..=wind%./...|
000066b0 2f e4 1e dd 20 f2 74 69 63 6b 28 6d 65 6e 75 25 |/... .tick(menu%|
000066c0 2c 69 74 65 6d 25 2c 74 69 63 6b 25 29 0d 2f ee |,item%,tick%)./.|
000066d0 18 70 25 3d 6d 65 6e 75 25 2b 32 38 2b 69 74 65 |.p%=menu%+28+ite|
000066e0 6d 25 2a 32 34 0d 2f f8 26 e7 20 74 69 63 6b 25 |m%*24./.&. tick%|
000066f0 20 8c 20 21 70 25 3d 21 70 25 20 84 31 20 8b 20 | . !p%=!p% .1 . |
00006700 21 70 25 3d 21 70 25 20 80 ac 31 0d 30 02 05 e1 |!p%=!p% ..1.0...|
00006710 0d 30 0c 04 0d 30 16 12 dd 20 a4 6d 65 6e 75 28 |.0...0... .menu(|
00006720 74 65 78 74 24 29 0d 30 20 14 6f 6c 64 70 74 72 |text$).0 .oldptr|
00006730 25 3d 6d 65 6e 75 70 74 72 25 0d 30 2a 0c 69 74 |%=menuptr%.0*.it|
00006740 65 6d 73 25 3d 30 0d 30 34 0e 74 65 78 74 24 2b |ems%=0.04.text$+|
00006750 3d 22 2c 22 0d 30 3e 1b 74 69 74 6c 65 24 3d a4 |=",".0>.title$=.|
00006760 6e 65 78 74 77 6f 72 64 28 74 65 78 74 24 29 0d |nextword(text$).|
00006770 30 48 14 24 6d 65 6e 75 70 74 72 25 3d 74 69 74 |0H.$menuptr%=tit|
00006780 6c 65 24 0d 30 52 10 6d 61 78 25 3d a9 74 69 74 |le$.0R.max%=.tit|
00006790 6c 65 24 0d 30 5c 16 6d 65 6e 75 70 74 72 25 21 |le$.0\.menuptr%!|
000067a0 31 32 3d 26 37 30 32 30 37 0d 30 66 12 6d 65 6e |12=&70207.0f.men|
000067b0 75 70 74 72 25 21 32 30 3d 34 34 0d 30 70 11 6d |uptr%!20=44.0p.m|
000067c0 65 6e 75 70 74 72 25 21 32 34 3d 30 0d 30 7a 0f |enuptr%!24=0.0z.|
000067d0 6d 65 6e 75 70 74 72 25 2b 3d 34 0d 30 84 10 c8 |menuptr%+=4.0...|
000067e0 95 20 74 65 78 74 24 3c 3e 22 22 0d 30 8e 0d 69 |. text$<>"".0..i|
000067f0 74 65 6d 73 25 2b 3d 31 0d 30 98 10 6d 65 6e 75 |tems%+=1.0..menu|
00006800 70 74 72 25 2b 3d 32 34 0d 30 a2 0f 21 6d 65 6e |ptr%+=24.0..!men|
00006810 75 70 74 72 25 3d 30 0d 30 ac 10 6d 65 6e 75 70 |uptr%=0.0..menup|
00006820 74 72 25 21 34 3d 30 0d 30 b6 1a 77 6f 72 64 24 |tr%!4=0.0..word$|
00006830 3d a4 6e 65 78 74 77 6f 72 64 28 74 65 78 74 24 |=.nextword(text$|
00006840 29 0d 30 c0 18 74 6f 6b 65 6e 24 3d a4 74 6f 6b |).0..token$=.tok|
00006850 65 6e 28 77 6f 72 64 24 29 0d 30 ca 0a 69 31 25 |en(word$).0..i1%|
00006860 3d 2d 31 0d 30 d4 11 c8 95 20 74 6f 6b 65 6e 24 |=-1.0.... token$|
00006870 3c 3e 22 22 0d 30 de 0f c8 8e 20 74 6f 6b 65 6e |<>"".0.... token|
00006880 24 20 ca 0d 30 e8 2a c9 20 22 3e 22 20 3a 20 6d |$ ..0.*. ">" : m|
00006890 65 6e 75 70 74 72 25 21 34 3d a0 28 a4 6e 65 78 |enuptr%!4=.(.nex|
000068a0 74 77 6f 72 64 28 74 65 78 74 24 29 29 0d 30 f2 |tword(text$)).0.|
000068b0 23 c9 20 22 2f 22 20 3a 20 21 6d 65 6e 75 70 74 |#. "/" : !menupt|
000068c0 72 25 3d 21 6d 65 6e 75 70 74 72 25 20 84 20 31 |r%=!menuptr% . 1|
000068d0 0d 30 fc 23 c9 20 22 2d 22 20 3a 20 21 6d 65 6e |.0.#. "-" : !men|
000068e0 75 70 74 72 25 3d 21 6d 65 6e 75 70 74 72 25 20 |uptr%=!menuptr% |
000068f0 84 20 32 0d 31 06 09 c9 20 22 21 22 0d 31 10 1d |. 2.1... "!".1..|
00006900 20 20 21 6d 65 6e 75 70 74 72 25 3d 21 6d 65 6e | !menuptr%=!men|
00006910 75 70 74 72 25 20 84 20 34 0d 31 1a 1d 20 20 76 |uptr% . 4.1.. v|
00006920 61 6c 69 64 24 3d a4 6e 65 78 74 77 6f 72 64 28 |alid$=.nextword(|
00006930 74 65 78 74 24 29 0d 31 24 11 20 20 e7 20 a9 76 |text$).1$. . .v|
00006940 61 6c 69 64 24 20 8c 0d 31 2e 15 20 20 de 20 69 |alid$ ..1.. . i|
00006950 31 25 20 a9 76 61 6c 69 64 24 2b 31 0d 31 38 11 |1% .valid$+1.18.|
00006960 20 20 24 69 31 25 3d 76 61 6c 69 64 24 0d 31 42 | $i1%=valid$.1B|
00006970 07 20 20 cd 0d 31 4c 05 cb 0d 31 56 18 74 6f 6b |. ..1L...1V.tok|
00006980 65 6e 24 3d a4 74 6f 6b 65 6e 28 77 6f 72 64 24 |en$=.token(word$|
00006990 29 0d 31 60 05 ce 0d 31 6a 1f 6d 65 6e 75 70 74 |).1`...1j.menupt|
000069a0 72 25 21 38 3d 28 37 3c 3c 32 34 29 20 84 20 25 |r%!8=(7<<24) . %|
000069b0 31 30 30 30 31 0d 31 74 22 e7 20 21 6d 65 6e 75 |10001.1t". !menu|
000069c0 70 74 72 25 20 80 20 34 20 84 20 74 6f 6b 65 6e |ptr% . 4 . token|
000069d0 24 3d 22 23 22 20 8c 0d 31 7e 2e f2 69 6e 64 69 |$="#" ..1~..indi|
000069e0 74 65 6d 28 a0 28 a4 6e 65 78 74 77 6f 72 64 28 |tem(.(.nextword(|
000069f0 74 65 78 74 24 29 29 2c 69 31 25 2c a0 28 77 6f |text$)),i1%,.(wo|
00006a00 72 64 24 29 29 0d 31 88 05 cc 0d 31 92 12 e7 20 |rd$)).1....1... |
00006a10 a9 77 6f 72 64 24 3c 3d 31 32 20 8c 0d 31 9c 18 |.word$<=12 ..1..|
00006a20 24 28 6d 65 6e 75 70 74 72 25 2b 31 32 29 3d 77 |$(menuptr%+12)=w|
00006a30 6f 72 64 24 0d 31 a6 05 cc 0d 31 b0 12 de 20 69 |ord$.1....1... i|
00006a40 30 25 20 a9 77 6f 72 64 24 2b 31 0d 31 ba 0e 24 |0% .word$+1.1..$|
00006a50 69 30 25 3d 77 6f 72 64 24 0d 31 c4 1d f2 69 6e |i0%=word$.1...in|
00006a60 64 69 74 65 6d 28 69 30 25 2c 2d 31 2c a9 77 6f |ditem(i0%,-1,.wo|
00006a70 72 64 24 2b 31 29 0d 31 ce 05 cd 0d 31 d8 1f e7 |rd$+1).1....1...|
00006a80 20 a9 77 6f 72 64 24 3e 6d 61 78 25 20 8c 20 6d | .word$>max% . m|
00006a90 61 78 25 3d a9 77 6f 72 64 24 0d 31 e2 05 cd 0d |ax%=.word$.1....|
00006aa0 31 ec 05 ce 0d 31 f6 1d 21 6d 65 6e 75 70 74 72 |1....1..!menuptr|
00006ab0 25 3d 21 6d 65 6e 75 70 74 72 25 20 84 20 26 38 |%=!menuptr% . &8|
00006ac0 30 0d 32 00 10 6d 65 6e 75 70 74 72 25 2b 3d 32 |0.2..menuptr%+=2|
00006ad0 34 0d 32 0a 19 6f 6c 64 70 74 72 25 21 31 36 3d |4.2..oldptr%!16=|
00006ae0 6d 61 78 25 2a 31 36 2b 31 32 0d 32 14 0c 3d 6f |max%*16+12.2..=o|
00006af0 6c 64 70 74 72 25 0d 32 1e 04 0d 32 28 1b dd 20 |ldptr%.2...2(.. |
00006b00 f2 69 6e 64 69 74 65 6d 28 69 30 25 2c 69 31 25 |.inditem(i0%,i1%|
00006b10 2c 69 32 25 29 0d 32 32 20 6d 65 6e 75 70 74 72 |,i2%).22 menuptr|
00006b20 25 21 38 3d 6d 65 6e 75 70 74 72 25 21 38 20 84 |%!8=menuptr%!8 .|
00006b30 20 31 3c 3c 38 0d 32 3c 13 6d 65 6e 75 70 74 72 | 1<<8.2<.menuptr|
00006b40 25 21 31 32 3d 69 30 25 0d 32 46 13 6d 65 6e 75 |%!12=i0%.2F.menu|
00006b50 70 74 72 25 21 31 36 3d 69 31 25 0d 32 50 13 6d |ptr%!16=i1%.2P.m|
00006b60 65 6e 75 70 74 72 25 21 32 30 3d 69 32 25 0d 32 |enuptr%!20=i2%.2|
00006b70 5a 31 e7 20 69 32 25 2d 31 3e 6d 61 78 25 20 80 |Z1. i2%-1>max% .|
00006b80 20 28 21 6d 65 6e 75 70 74 72 25 20 80 20 34 29 | (!menuptr% . 4)|
00006b90 3d 30 20 8c 20 6d 61 78 25 3d 69 32 25 2d 31 0d |=0 . max%=i2%-1.|
00006ba0 32 64 05 e1 0d 32 6e 04 0d 32 78 15 dd 20 a4 74 |2d...2n..2x.. .t|
00006bb0 6f 6b 65 6e 28 f8 20 77 6f 72 64 24 29 0d 32 82 |oken(. word$).2.|
00006bc0 0d 74 6f 6b 65 6e 24 3d 22 22 0d 32 8c 19 e7 20 |.token$="".2... |
00006bd0 a7 22 3e 2f 21 23 2d 22 2c c2 77 6f 72 64 24 29 |.">/!#-",.word$)|
00006be0 29 20 8c 0d 32 96 14 74 6f 6b 65 6e 24 3d c2 77 |) ..2..token$=.w|
00006bf0 6f 72 64 24 2c 31 29 0d 32 a0 1a 77 6f 72 64 24 |ord$,1).2..word$|
00006c00 3d c0 77 6f 72 64 24 2c a9 77 6f 72 64 24 2d 31 |=.word$,.word$-1|
00006c10 29 0d 32 aa 05 cd 0d 32 b4 0b 3d 74 6f 6b 65 6e |).2....2..=token|
00006c20 24 0d 32 be 04 0d 32 c8 18 dd 20 a4 6e 65 78 74 |$.2...2... .next|
00006c30 77 6f 72 64 28 f8 20 74 65 78 74 24 29 0d 32 d2 |word(. text$).2.|
00006c40 10 ea 20 77 6f 72 64 24 2c 70 6f 73 25 0d 32 dc |.. word$,pos%.2.|
00006c50 14 70 6f 73 25 3d a7 74 65 78 74 24 2c 22 2c 22 |.pos%=.text$,","|
00006c60 29 0d 32 e6 18 77 6f 72 64 24 3d c0 74 65 78 74 |).2..word$=.text|
00006c70 24 2c 70 6f 73 25 2d 31 29 0d 32 f0 18 74 65 78 |$,pos%-1).2..tex|
00006c80 74 24 3d c1 74 65 78 74 24 2c 70 6f 73 25 2b 31 |t$=.text$,pos%+1|
00006c90 29 0d 32 fa 0a 3d 77 6f 72 64 24 0d 33 04 04 0d |).2..=word$.3...|
00006ca0 33 0e 37 dd 20 a4 63 72 69 63 6f 6e 28 21 71 25 |3.7. .cricon(!q%|
00006cb0 2c 71 25 21 34 2c 71 25 21 38 2c 71 25 21 31 32 |,q%!4,q%!8,q%!12|
00006cc0 2c 71 25 21 31 36 2c 71 25 21 32 30 2c 24 28 71 |,q%!16,q%!20,$(q|
00006cd0 25 2b 32 34 29 29 0d 33 18 23 c8 99 22 57 69 6d |%+24)).3.#.."Wim|
00006ce0 70 5f 43 72 65 61 74 65 49 63 6f 6e 22 2c 2c 71 |p_CreateIcon",,q|
00006cf0 25 20 b8 20 69 63 6f 6e 25 0d 33 22 0a 3d 69 63 |% . icon%.3".=ic|
00006d00 6f 6e 25 0d 33 2c 04 0d 33 36 16 dd 20 a4 63 68 |on%.3,..36.. .ch|
00006d10 65 63 6b 28 6d 65 73 73 61 67 65 24 29 0d 33 40 |eck(message$).3@|
00006d20 17 c8 99 22 57 69 6d 70 5f 44 72 61 67 42 6f 78 |..."Wimp_DragBox|
00006d30 22 2c 2c 30 0d 33 4a 09 21 71 25 3d 30 0d 33 54 |",,0.3J.!q%=0.3T|
00006d40 14 24 28 71 25 2b 34 29 3d 6d 65 73 73 61 67 65 |.$(q%+4)=message|
00006d50 24 0d 33 5e 42 c8 99 22 57 69 6d 70 5f 52 65 70 |$.3^B.."Wimp_Rep|
00006d60 6f 72 74 45 72 72 6f 72 22 2c 71 25 2c 31 39 2c |ortError",q%,19,|
00006d70 22 4d 65 73 73 61 67 65 20 66 72 6f 6d 20 22 2b |"Message from "+|
00006d80 70 72 6f 67 72 61 6d 24 20 b8 20 2c 61 6e 73 77 |program$ . ,answ|
00006d90 65 72 25 0d 33 68 19 e7 20 61 6e 73 77 65 72 25 |er%.3h.. answer%|
00006da0 3d 31 20 8c 20 3d b9 20 8b 20 3d a3 0d 33 72 04 |=1 . =. . =..3r.|
00006db0 0d 33 7c 30 dd 20 a4 71 75 65 73 74 69 6f 6e 28 |.3|0. .question(|
00006dc0 61 6e 73 24 28 30 29 2c 61 6e 73 24 28 31 29 2c |ans$(0),ans$(1),|
00006dd0 61 6e 73 24 28 32 29 2c 61 6e 73 24 28 33 29 29 |ans$(2),ans$(3))|
00006de0 0d 33 86 0d ea 20 73 74 61 74 75 73 25 0d 33 90 |.3... status%.3.|
00006df0 0d 73 74 61 74 75 73 25 3d 32 0d 33 9a 0e f2 63 |.status%=2.3...c|
00006e00 6c 6f 73 65 6d 65 6e 75 0d 33 a4 0e e3 20 69 25 |losemenu.3... i%|
00006e10 3d 30 20 b8 20 33 0d 33 ae 15 20 20 e7 20 61 6e |=0 . 3.3.. . an|
00006e20 73 24 28 69 25 29 3d 22 22 20 8c 0d 33 b8 23 20 |s$(i%)="" ..3.# |
00006e30 20 20 20 f2 72 65 6d 6f 76 65 69 63 6f 6e 28 77 | .removeicon(w|
00006e40 25 28 72 65 70 6f 72 74 25 29 2c 69 25 29 0d 33 |%(report%),i%).3|
00006e50 c2 07 20 20 cc 0d 33 cc 23 20 20 20 20 f2 72 65 |.. ..3.# .re|
00006e60 69 6e 69 74 69 63 6f 6e 28 77 25 28 72 65 70 6f |initicon(w%(repo|
00006e70 72 74 25 29 2c 69 25 29 0d 33 d6 2d 20 20 20 20 |rt%),i%).3.- |
00006e80 f2 73 65 74 69 63 6f 6e 74 65 78 74 28 77 25 28 |.seticontext(w%(|
00006e90 72 65 70 6f 72 74 25 29 2c 69 25 2c 61 6e 73 24 |report%),i%,ans$|
00006ea0 28 69 25 29 29 0d 33 e0 07 20 20 cd 0d 33 ea 08 |(i%)).3.. ..3..|
00006eb0 ed 20 69 25 0d 33 f4 0e f2 6c 6f 73 65 63 61 72 |. i%.3...losecar|
00006ec0 65 74 0d 33 fe 1e f2 6f 70 65 6e 69 6e 63 65 6e |et.3...openincen|
00006ed0 74 72 65 28 77 25 28 72 65 70 6f 72 74 25 29 29 |tre(w%(report%))|
00006ee0 0d 34 08 11 e7 20 62 65 65 70 25 20 8c 20 ef 20 |.4... beep% . . |
00006ef0 37 0d 34 12 0d 61 6e 73 77 65 72 25 3d 30 0d 34 |7.4..answer%=0.4|
00006f00 1c 05 f5 0d 34 26 24 20 20 c8 99 22 57 69 6d 70 |....4&$ .."Wimp|
00006f10 5f 50 6f 6c 6c 22 2c 31 2c 62 6c 6b 25 20 b8 20 |_Poll",1,blk% . |
00006f20 72 65 61 73 6f 6e 25 0d 34 30 12 20 20 c8 8e 20 |reason%.40. .. |
00006f30 72 65 61 73 6f 6e 25 20 ca 0d 34 3a 13 20 20 20 |reason% ..4:. |
00006f40 20 c9 20 31 3a f2 72 65 64 72 61 77 0d 34 44 40 | . 1:.redraw.4D@|
00006f50 20 20 20 20 c9 20 36 3a e7 20 62 6c 6b 25 21 31 | . 6:. blk%!1|
00006f60 32 3d 77 25 28 72 65 70 6f 72 74 25 29 20 80 20 |2=w%(report%) . |
00006f70 62 6c 6b 25 21 31 36 3e 2d 31 20 8c 20 61 6e 73 |blk%!16>-1 . ans|
00006f80 77 65 72 25 3d 62 6c 6b 25 21 31 36 0d 34 4e 2f |wer%=blk%!16.4N/|
00006f90 20 20 20 20 c9 20 31 37 2c 31 38 3a f2 6d 65 73 | . 17,18:.mes|
00006fa0 73 61 67 65 28 62 6c 6b 25 21 34 2c 62 6c 6b 25 |sage(blk%!4,blk%|
00006fb0 21 38 2c 62 6c 6b 25 21 31 36 29 0d 34 58 07 20 |!8,blk%!16).4X. |
00006fc0 20 cb 0d 34 62 0d fd 20 61 6e 73 77 65 72 25 0d | ..4b.. answer%.|
00006fd0 34 6c 1d f2 63 6c 6f 73 65 77 69 6e 64 6f 77 28 |4l..closewindow(|
00006fe0 77 25 28 72 65 70 6f 72 74 25 29 29 0d 34 76 0c |w%(report%)).4v.|
00006ff0 3d 61 6e 73 77 65 72 25 0d 34 80 04 0d 34 8a 11 |=answer%.4...4..|
00007000 dd 20 a4 73 74 72 69 6e 67 28 62 25 29 0d 34 94 |. .string(b%).4.|
00007010 08 ea 20 73 24 0d 34 9e 09 73 24 3d 22 22 0d 34 |.. s$.4..s$="".4|
00007020 a8 0d c8 95 20 3f 62 25 3e 33 31 0d 34 b2 0e 73 |.... ?b%>31.4..s|
00007030 24 2b 3d bd 28 3f 62 25 29 0d 34 bc 09 62 25 2b |$+=.(?b%).4..b%+|
00007040 3d 31 0d 34 c6 05 ce 0d 34 d0 07 3d 73 24 0d 34 |=1.4....4..=s$.4|
00007050 da 04 0d 34 e4 17 dd 20 f2 72 65 70 6f 72 74 28 |...4... .report(|
00007060 6d 65 73 73 61 67 65 24 29 0d 34 ee 25 64 25 3d |message$).4.%d%=|
00007070 a4 71 75 65 73 74 69 6f 6e 28 6d 65 73 73 61 67 |.question(messag|
00007080 65 24 2c 22 4f 4b 22 2c 22 22 2c 22 22 29 0d 34 |e$,"OK","","").4|
00007090 f8 05 e1 0d 35 02 04 0d 35 0c 18 dd 20 a4 62 75 |....5...5... .bu|
000070a0 74 74 79 70 65 28 21 71 25 2c 71 25 21 34 29 0d |ttype(!q%,q%!4).|
000070b0 35 16 33 e7 20 71 25 21 34 3e 3d 30 20 8c 20 c8 |5.3. q%!4>=0 . .|
000070c0 99 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 |."Wimp_GetIconSt|
000070d0 61 74 65 22 2c 2c 71 25 20 8b 20 71 25 21 32 34 |ate",,q% . q%!24|
000070e0 3d 30 0d 35 20 15 3d 28 28 71 25 21 32 34 29 3e |=0.5 .=((q%!24)>|
000070f0 3e 31 32 29 80 31 35 0d 35 2a 04 0d 35 34 23 dd |>12).15.5*..54#.|
00007100 20 f2 73 65 6c 65 63 74 69 63 6f 6e 28 21 71 25 | .selecticon(!q%|
00007110 2c 71 25 21 34 2c 73 65 6c 65 63 74 25 29 0d 35 |,q%!4,select%).5|
00007120 3e 1d c8 99 22 57 69 6d 70 5f 47 65 74 49 63 6f |>..."Wimp_GetIco|
00007130 6e 53 74 61 74 65 22 2c 2c 71 25 0d 35 48 23 e7 |nState",,q%.5H#.|
00007140 20 73 65 6c 65 63 74 25 20 8c 20 71 25 21 38 3d | select% . q%!8=|
00007150 31 3c 3c 32 31 20 8b 20 71 25 21 38 3d 30 0d 35 |1<<21 . q%!8=0.5|
00007160 52 0f 71 25 21 31 32 3d 31 3c 3c 32 31 0d 35 5c |R.q%!12=1<<21.5\|
00007170 37 e7 20 28 71 25 21 32 34 20 80 20 71 25 21 31 |7. (q%!24 . q%!1|
00007180 32 29 3c 3e 71 25 21 38 20 8c 20 c8 99 22 57 69 |2)<>q%!8 . .."Wi|
00007190 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 22 |mp_SetIconState"|
000071a0 2c 2c 71 25 0d 35 66 05 e1 0d 35 70 04 0d 35 7a |,,q%.5f...5p..5z|
000071b0 1f dd 20 f2 73 65 74 69 63 6f 6e 66 63 28 21 71 |.. .seticonfc(!q|
000071c0 25 2c 71 25 21 34 2c 63 6f 6c 25 29 0d 35 84 1d |%,q%!4,col%).5..|
000071d0 c8 99 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 |.."Wimp_GetIconS|
000071e0 74 61 74 65 22 2c 2c 71 25 0d 35 8e 11 71 25 21 |tate",,q%.5..q%!|
000071f0 38 3d 63 6f 6c 25 3c 3c 32 34 0d 35 98 10 71 25 |8=col%<<24.5..q%|
00007200 21 31 32 3d 31 35 3c 3c 32 34 0d 35 a2 37 e7 20 |!12=15<<24.5.7. |
00007210 28 71 25 21 32 34 20 80 20 71 25 21 31 32 29 3c |(q%!24 . q%!12)<|
00007220 3e 71 25 21 38 20 8c 20 c8 99 22 57 69 6d 70 5f |>q%!8 . .."Wimp_|
00007230 53 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 71 |SetIconState",,q|
00007240 25 0d 35 ac 05 e1 0d 35 b6 04 0d 35 c0 22 dd 20 |%.5....5...5.". |
00007250 f2 73 65 74 69 63 6f 6e 74 65 78 74 28 21 71 25 |.seticontext(!q%|
00007260 2c 71 25 21 34 2c 74 65 78 74 24 29 0d 35 ca 1d |,q%!4,text$).5..|
00007270 c8 99 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 |.."Wimp_GetIconS|
00007280 74 61 74 65 22 2c 2c 71 25 0d 35 d4 19 74 65 78 |tate",,q%.5..tex|
00007290 74 24 3d c0 74 65 78 74 24 2c 71 25 21 33 36 2d |t$=.text$,q%!36-|
000072a0 31 29 0d 35 de 17 e7 20 24 28 71 25 21 32 38 29 |1).5... $(q%!28)|
000072b0 3c 3e 74 65 78 74 24 20 8c 0d 35 e8 12 24 28 71 |<>text$ ..5..$(q|
000072c0 25 21 32 38 29 3d 74 65 78 74 24 0d 35 f2 0a 71 |%!28)=text$.5..q|
000072d0 25 21 38 3d 30 0d 35 fc 0b 71 25 21 31 32 3d 30 |%!8=0.5..q%!12=0|
000072e0 0d 36 06 1d c8 99 22 57 69 6d 70 5f 53 65 74 49 |.6...."Wimp_SetI|
000072f0 63 6f 6e 53 74 61 74 65 22 2c 2c 71 25 0d 36 10 |conState",,q%.6.|
00007300 05 cd 0d 36 1a 05 e1 0d 36 24 04 0d 36 2e 17 dd |...6....6$..6...|
00007310 20 a4 69 63 6f 6e 74 70 28 21 71 25 2c 71 25 21 | .icontp(!q%,q%!|
00007320 34 29 0d 36 38 1d c8 99 22 57 69 6d 70 5f 47 65 |4).68..."Wimp_Ge|
00007330 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 71 25 0d |tIconState",,q%.|
00007340 36 42 0a 3d 71 25 21 32 38 0d 36 4c 04 0d 36 56 |6B.=q%!28.6L..6V|
00007350 18 dd 20 f2 77 69 6e 64 6f 77 69 6e 66 6f 28 21 |.. .windowinfo(!|
00007360 62 6c 6b 25 29 0d 36 60 20 c8 99 22 57 69 6d 70 |blk%).6` .."Wimp|
00007370 5f 47 65 74 57 69 6e 64 6f 77 49 6e 66 6f 22 2c |_GetWindowInfo",|
00007380 2c 62 6c 6b 25 0d 36 6a 16 77 78 25 3d 62 6c 6b |,blk%.6j.wx%=blk|
00007390 25 21 34 2d 62 6c 6b 25 21 32 30 0d 36 74 17 77 |%!4-blk%!20.6t.w|
000073a0 79 25 3d 62 6c 6b 25 21 31 36 2d 62 6c 6b 25 21 |y%=blk%!16-blk%!|
000073b0 32 34 0d 36 7e 16 77 77 25 3d 62 6c 6b 25 21 31 |24.6~.ww%=blk%!1|
000073c0 32 2d 62 6c 6b 25 21 34 0d 36 88 16 77 68 25 3d |2-blk%!4.6..wh%=|
000073d0 62 6c 6b 25 21 31 36 2d 62 6c 6b 25 21 38 0d 36 |blk%!16-blk%!8.6|
000073e0 92 05 e1 0d 36 9c 04 0d 36 a6 23 dd 20 a4 73 61 |....6...6.#. .sa|
000073f0 76 65 62 6f 78 28 66 69 6c 65 74 79 70 65 25 2c |vebox(filetype%,|
00007400 73 74 61 6e 64 61 72 64 24 29 0d 36 b0 24 77 69 |standard$).6.$wi|
00007410 6e 64 25 3d a4 77 69 6e 64 6f 77 28 22 73 61 76 |nd%=.window("sav|
00007420 65 22 2c 22 73 61 76 65 22 2c 30 2c 30 29 0d 36 |e","save",0,0).6|
00007430 ba 3c f2 73 65 74 69 63 6f 6e 74 65 78 74 28 77 |.<.seticontext(w|
00007440 25 28 77 69 6e 64 25 29 2c 33 2c 22 66 69 6c 65 |%(wind%),3,"file|
00007450 5f 22 2b c2 22 30 30 22 2b c3 7e 28 66 69 6c 65 |_"+."00"+.~(file|
00007460 74 79 70 65 25 29 2c 33 29 29 0d 36 c4 27 f2 73 |type%),3)).6.'.s|
00007470 65 74 69 63 6f 6e 74 65 78 74 28 77 25 28 77 69 |eticontext(w%(wi|
00007480 6e 64 25 29 2c 31 2c 73 74 61 6e 64 61 72 64 24 |nd%),1,standard$|
00007490 29 0d 36 ce 1a 6d 69 73 63 25 28 77 69 6e 64 25 |).6..misc%(wind%|
000074a0 29 3d 66 69 6c 65 74 79 70 65 25 0d 36 d8 0a 3d |)=filetype%.6..=|
000074b0 77 69 6e 64 25 0d 36 e2 04 0d 36 ec 15 dd 20 a4 |wind%.6...6... .|
000074c0 6c 61 73 74 62 69 74 28 66 69 6c 65 24 29 0d 36 |lastbit(file$).6|
000074d0 f6 12 c8 95 20 a7 66 69 6c 65 24 2c 22 2e 22 29 |.... .file$,".")|
000074e0 0d 37 00 1f 66 69 6c 65 24 3d c1 66 69 6c 65 24 |.7..file$=.file$|
000074f0 2c a7 66 69 6c 65 24 2c 22 2e 22 29 2b 31 29 0d |,.file$,".")+1).|
00007500 37 0a 05 ce 0d 37 14 0a 3d 66 69 6c 65 24 0d 37 |7....7..=file$.7|
00007510 1e 04 0d 37 28 14 dd 20 a4 6e 61 6d 65 6f 6b 28 |...7(.. .nameok(|
00007520 66 69 6c 65 24 29 0d 37 32 0d 72 65 73 75 6c 74 |file$).72.result|
00007530 25 3d b9 0d 37 3c 21 e7 20 a7 66 69 6c 65 24 2c |%=..7<!. .file$,|
00007540 22 3a 22 29 2b a7 66 69 6c 65 24 2c 22 2e 22 29 |":")+.file$,".")|
00007550 3d 30 20 8c 0d 37 46 3e f2 72 65 70 6f 72 74 28 |=0 ..7F>.report(|
00007560 22 54 6f 20 73 61 76 65 2c 20 64 72 61 67 20 69 |"To save, drag i|
00007570 63 6f 6e 20 74 6f 20 61 20 64 69 72 65 63 74 6f |con to a directo|
00007580 72 79 20 76 69 65 77 65 72 20 22 2b 66 69 6c 65 |ry viewer "+file|
00007590 24 29 0d 37 50 0d 72 65 73 75 6c 74 25 3d a3 0d |$).7P.result%=..|
000075a0 37 5a 05 cd 0d 37 64 0c 3d 72 65 73 75 6c 74 25 |7Z...7d.=result%|
000075b0 0d 37 6e 04 0d 37 78 0b dd 20 f2 71 75 69 74 0d |.7n..7x.. .quit.|
000075c0 37 82 0e f2 63 6c 6f 73 65 64 6f 77 6e 0d 37 8c |7...closedown.7.|
000075d0 05 e1 0d 37 96 04 0d 37 a0 10 dd 20 f2 63 6c 6f |...7...7... .clo|
000075e0 73 65 64 6f 77 6e 0d 37 aa 10 e3 20 69 25 3d 31 |sedown.7... i%=1|
000075f0 20 b8 20 32 35 35 0d 37 b4 14 c8 95 20 66 6f 6e | . 255.7.... fon|
00007600 74 74 61 62 6c 65 25 3f 69 25 0d 37 be 18 c8 99 |ttable%?i%.7....|
00007610 22 46 6f 6e 74 5f 4c 6f 73 65 46 6f 6e 74 22 2c |"Font_LoseFont",|
00007620 69 25 0d 37 c8 14 66 6f 6e 74 74 61 62 6c 65 25 |i%.7..fonttable%|
00007630 3f 69 25 2d 3d 31 0d 37 d2 05 ce 0d 37 dc 08 ed |?i%-=1.7....7...|
00007640 20 69 25 0d 37 e6 1e c8 99 22 57 69 6d 70 5f 43 | i%.7...."Wimp_C|
00007650 6c 6f 73 65 44 6f 77 6e 22 2c 6d 79 74 61 73 6b |loseDown",mytask|
00007660 25 0d 37 f0 05 e0 0d 37 fa 04 0d 38 04 19 dd 20 |%.7....7...8... |
00007670 f2 63 6c 6f 73 65 77 69 6e 64 6f 77 28 77 69 6e |.closewindow(win|
00007680 64 25 29 0d 38 0e 11 ea 20 63 69 64 25 2c 63 6c |d%).8... cid%,cl|
00007690 6f 73 65 25 0d 38 18 13 63 69 64 25 3d a4 69 64 |ose%.8..cid%=.id|
000076a0 28 77 69 6e 64 25 29 0d 38 22 42 e7 20 73 79 73 |(wind%).8"B. sys|
000076b0 66 6c 61 67 73 25 28 63 69 64 25 29 80 32 20 8c |flags%(cid%).2 .|
000076c0 20 63 6c 6f 73 65 25 3d a0 28 22 46 4e 63 6c 6f | close%=.("FNclo|
000076d0 73 65 22 2b 69 64 24 28 63 69 64 25 29 29 20 8b |se"+id$(cid%)) .|
000076e0 20 63 6c 6f 73 65 25 3d b9 0d 38 2c 0e e7 20 63 | close%=..8,.. c|
000076f0 6c 6f 73 65 25 20 8c 0d 38 36 15 20 20 61 63 74 |lose% ..86. act|
00007700 69 76 65 25 28 63 69 64 25 29 3d a3 0d 38 40 21 |ive%(cid%)=..8@!|
00007710 20 20 f2 71 75 69 63 6b 63 6c 6f 73 65 77 69 6e | .quickclosewin|
00007720 64 6f 77 28 77 25 28 63 69 64 25 29 29 0d 38 4a |dow(w%(cid%)).8J|
00007730 05 cd 0d 38 54 05 e1 0d 38 5e 04 0d 38 68 1c dd |...8T...8^..8h..|
00007740 20 f2 71 75 69 63 6b 63 6c 6f 73 65 77 69 6e 64 | .quickclosewind|
00007750 6f 77 28 21 71 25 29 0d 38 72 1c c8 99 22 57 69 |ow(!q%).8r..."Wi|
00007760 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c |mp_CloseWindow",|
00007770 2c 71 25 0d 38 7c 05 e1 0d 38 86 04 0d 38 90 10 |,q%.8|...8...8..|
00007780 dd 20 f2 6d 6f 75 73 65 69 6e 66 6f 0d 38 9a 1f |. .mouseinfo.8..|
00007790 c8 99 22 57 69 6d 70 5f 47 65 74 50 6f 69 6e 74 |.."Wimp_GetPoint|
000077a0 65 72 49 6e 66 6f 22 2c 2c 71 25 0d 38 a4 0b 6d |erInfo",,q%.8..m|
000077b0 78 25 3d 21 71 25 0d 38 ae 0c 6d 79 25 3d 71 25 |x%=!q%.8..my%=q%|
000077c0 21 34 0d 38 b8 0d 62 75 74 25 3d 71 25 21 38 0d |!4.8..but%=q%!8.|
000077d0 38 c2 0f 77 69 6e 64 25 3d 71 25 21 31 32 0d 38 |8..wind%=q%!12.8|
000077e0 cc 0f 69 63 6f 6e 25 3d 71 25 21 31 36 0d 38 d6 |..icon%=q%!16.8.|
000077f0 05 e1 0d 38 e0 04 0d 38 ea 10 dd 20 f2 63 6c 6f |...8...8... .clo|
00007800 73 65 6d 65 6e 75 0d 38 f4 1b c8 99 22 57 69 6d |semenu.8...."Wim|
00007810 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 2d |p_CreateMenu",,-|
00007820 31 0d 38 fe 05 e1 0d 39 08 04 0d 39 12 14 dd 20 |1.8....9...9... |
00007830 f2 72 65 6f 70 65 6e 28 21 62 6c 6b 25 29 0d 39 |.reopen(!blk%).9|
00007840 1c 21 c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e |.!.."Wimp_GetWin|
00007850 64 6f 77 53 74 61 74 65 22 2c 2c 62 6c 6b 25 0d |dowState",,blk%.|
00007860 39 26 0f f2 6f 70 65 6e 77 69 6e 64 6f 77 0d 39 |9&..openwindow.9|
00007870 30 17 f2 66 6f 72 63 65 72 65 64 72 61 77 28 21 |0..forceredraw(!|
00007880 62 6c 6b 25 29 0d 39 3a 05 e1 0d 39 44 04 0d 39 |blk%).9:...9D..9|
00007890 4e 31 dd 20 f2 73 65 74 77 69 6e 64 6f 77 65 78 |N1. .setwindowex|
000078a0 74 65 6e 74 28 77 69 6e 64 25 2c 21 71 25 2c 71 |tent(wind%,!q%,q|
000078b0 25 21 34 2c 71 25 21 38 2c 71 25 21 31 32 29 0d |%!4,q%!8,q%!12).|
000078c0 39 58 1f c8 99 22 57 69 6d 70 5f 53 65 74 45 78 |9X..."Wimp_SetEx|
000078d0 74 65 6e 74 22 2c 77 69 6e 64 25 2c 71 25 0d 39 |tent",wind%,q%.9|
000078e0 62 05 e1 0d 39 6c 04 0d 39 76 19 dd 20 f2 66 6f |b...9l..9v.. .fo|
000078f0 72 63 65 72 65 64 72 61 77 28 21 62 6c 6b 25 29 |rceredraw(!blk%)|
00007900 0d 39 80 20 c8 99 22 57 69 6d 70 5f 47 65 74 57 |.9. .."Wimp_GetW|
00007910 69 6e 64 6f 77 49 6e 66 6f 22 2c 2c 62 6c 6b 25 |indowInfo",,blk%|
00007920 0d 39 8a 3e c8 99 22 57 69 6d 70 5f 46 6f 72 63 |.9.>.."Wimp_Forc|
00007930 65 52 65 64 72 61 77 22 2c 21 62 6c 6b 25 2c 62 |eRedraw",!blk%,b|
00007940 6c 6b 25 21 34 34 2c 62 6c 6b 25 21 34 38 2c 62 |lk%!44,blk%!48,b|
00007950 6c 6b 25 21 35 32 2c 62 6c 6b 25 21 35 36 0d 39 |lk%!52,blk%!56.9|
00007960 94 05 e1 0d 39 9e 04 0d 39 a8 1c dd 20 f2 6f 70 |....9...9... .op|
00007970 65 6e 66 75 6c 6c 79 28 21 62 6c 6b 25 2c 74 6f |enfully(!blk%,to|
00007980 70 25 29 0d 39 b2 20 c8 99 22 57 69 6d 70 5f 47 |p%).9. .."Wimp_G|
00007990 65 74 57 69 6e 64 6f 77 49 6e 66 6f 22 2c 2c 62 |etWindowInfo",,b|
000079a0 6c 6b 25 0d 39 bc 24 62 6c 6b 25 21 31 32 3d 62 |lk%.9.$blk%!12=b|
000079b0 6c 6b 25 21 34 2b 28 62 6c 6b 25 21 35 32 2d 62 |lk%!4+(blk%!52-b|
000079c0 6c 6b 25 21 34 34 29 0d 39 c6 24 62 6c 6b 25 21 |lk%!44).9.$blk%!|
000079d0 38 3d 62 6c 6b 25 21 31 36 2d 28 62 6c 6b 25 21 |8=blk%!16-(blk%!|
000079e0 35 36 2d 62 6c 6b 25 21 34 38 29 0d 39 d0 17 e7 |56-blk%!48).9...|
000079f0 20 74 6f 70 25 20 8c 20 62 6c 6b 25 21 32 38 3d | top% . blk%!28=|
00007a00 2d 31 0d 39 da 0f f2 6f 70 65 6e 77 69 6e 64 6f |-1.9...openwindo|
00007a10 77 0d 39 e4 05 e1 0d 39 ee 04 0d 39 f8 1b dd 20 |w.9....9...9... |
00007a20 f2 73 74 61 72 74 64 72 61 67 28 69 64 25 2c 69 |.startdrag(id%,i|
00007a30 63 6f 6e 25 29 0d 3a 02 0f 64 72 61 67 69 64 25 |con%).:..dragid%|
00007a40 3d 69 64 25 0d 3a 0c 13 64 72 61 67 69 63 6f 6e |=id%.:..dragicon|
00007a50 25 3d 69 63 6f 6e 25 0d 3a 16 15 77 69 6e 64 25 |%=icon%.:..wind%|
00007a60 3d 77 25 28 64 72 61 67 69 64 25 29 0d 3a 20 16 |=w%(dragid%).: .|
00007a70 f2 77 69 6e 64 6f 77 69 6e 66 6f 28 77 69 6e 64 |.windowinfo(wind|
00007a80 25 29 0d 3a 2a 0f 21 62 6c 6b 25 3d 77 69 6e 64 |%).:*.!blk%=wind|
00007a90 25 0d 3a 34 10 62 6c 6b 25 21 34 3d 69 63 6f 6e |%.:4.blk%!4=icon|
00007aa0 25 0d 3a 3e 1f c8 99 22 57 69 6d 70 5f 47 65 74 |%.:>..."Wimp_Get|
00007ab0 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 6c 6b 25 |IconState",,blk%|
00007ac0 0d 3a 48 0b 21 62 6c 6b 25 3d 30 0d 3a 52 0c 62 |.:H.!blk%=0.:R.b|
00007ad0 6c 6b 25 21 34 3d 35 0d 3a 5c 0f 62 6c 6b 25 21 |lk%!4=5.:\.blk%!|
00007ae0 38 2b 3d 77 78 25 0d 3a 66 10 62 6c 6b 25 21 31 |8+=wx%.:f.blk%!1|
00007af0 32 2b 3d 77 79 25 0d 3a 70 10 62 6c 6b 25 21 31 |2+=wy%.:p.blk%!1|
00007b00 36 2b 3d 77 78 25 0d 3a 7a 10 62 6c 6b 25 21 32 |6+=wx%.:z.blk%!2|
00007b10 30 2b 3d 77 79 25 0d 3a 84 0d 62 6c 6b 25 21 32 |0+=wy%.:..blk%!2|
00007b20 34 3d 30 0d 3a 8e 0d 62 6c 6b 25 21 32 38 3d 30 |4=0.:..blk%!28=0|
00007b30 0d 3a 98 10 62 6c 6b 25 21 33 32 3d 73 63 78 25 |.:..blk%!32=scx%|
00007b40 0d 3a a2 10 62 6c 6b 25 21 33 36 3d 73 63 79 25 |.:..blk%!36=scy%|
00007b50 0d 3a ac 0d e7 20 64 72 61 67 25 20 8c 0d 3a b6 |.:... drag% ..:.|
00007b60 45 c8 99 22 44 72 61 67 41 53 70 72 69 74 65 5f |E.."DragASprite_|
00007b70 53 74 61 72 74 22 2c 31 39 37 2c 31 2c a4 69 63 |Start",197,1,.ic|
00007b80 6f 6e 74 65 78 74 28 77 69 6e 64 25 2c 69 63 6f |ontext(wind%,ico|
00007b90 6e 25 29 2c 62 6c 6b 25 2b 38 2c 62 6c 6b 25 2b |n%),blk%+8,blk%+|
00007ba0 32 34 0d 3a c0 05 cc 0d 3a ca 1a c8 99 22 57 69 |24.:....:...."Wi|
00007bb0 6d 70 5f 44 72 61 67 42 6f 78 22 2c 2c 62 6c 6b |mp_DragBox",,blk|
00007bc0 25 0d 3a d4 05 cd 0d 3a de 05 e1 0d 3a e8 04 0d |%.:....:....:...|
00007bd0 3a f2 1a dd 20 f2 6f 70 65 6e 69 6e 63 65 6e 74 |:... .openincent|
00007be0 72 65 28 21 62 6c 6b 25 29 0d 3a fc 21 c8 99 22 |re(!blk%).:.!.."|
00007bf0 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 |Wimp_GetWindowSt|
00007c00 61 74 65 22 2c 2c 62 6c 6b 25 0d 3b 06 16 6d 31 |ate",,blk%.;..m1|
00007c10 25 3d 62 6c 6b 25 21 31 32 2d 62 6c 6b 25 21 34 |%=blk%!12-blk%!4|
00007c20 0d 3b 10 16 6d 32 25 3d 62 6c 6b 25 21 31 36 2d |.;..m2%=blk%!16-|
00007c30 62 6c 6b 25 21 38 0d 3b 1a 18 62 6c 6b 25 21 34 |blk%!8.;..blk%!4|
00007c40 3d 28 73 63 78 25 2d 6d 31 25 29 3e 3e 31 0d 3b |=(scx%-m1%)>>1.;|
00007c50 24 18 62 6c 6b 25 21 38 3d 28 73 63 79 25 2d 6d |$.blk%!8=(scy%-m|
00007c60 32 25 29 3e 3e 31 0d 3b 2e 19 62 6c 6b 25 21 31 |2%)>>1.;..blk%!1|
00007c70 32 3d 28 73 63 78 25 2b 6d 31 25 29 3e 3e 31 0d |2=(scx%+m1%)>>1.|
00007c80 3b 38 19 62 6c 6b 25 21 31 36 3d 28 73 63 79 25 |;8.blk%!16=(scy%|
00007c90 2b 6d 32 25 29 3e 3e 31 0d 3b 42 0e 62 6c 6b 25 |+m2%)>>1.;B.blk%|
00007ca0 21 32 38 3d 2d 31 0d 3b 4c 0f f2 6f 70 65 6e 77 |!28=-1.;L..openw|
00007cb0 69 6e 64 6f 77 0d 3b 56 05 e1 0d 3b 60 04 0d 3b |indow.;V...;`..;|
00007cc0 6a 23 dd 20 f2 73 65 74 66 69 6c 65 74 79 70 65 |j#. .setfiletype|
00007cd0 28 66 69 6c 65 24 2c 66 69 6c 65 74 79 70 65 25 |(file$,filetype%|
00007ce0 29 0d 3b 74 23 c8 99 22 4f 53 5f 46 69 6c 65 22 |).;t#.."OS_File"|
00007cf0 2c 26 31 32 2c 66 69 6c 65 24 2c 66 69 6c 65 74 |,&12,file$,filet|
00007d00 79 70 65 25 0d 3b 7e 05 e1 0d 3b 88 04 0d 3b 92 |ype%.;~...;...;.|
00007d10 1d dd 20 f2 6e 65 77 74 69 74 6c 65 28 21 62 6c |.. .newtitle(!bl|
00007d20 6b 25 2c 74 69 74 6c 65 24 29 0d 3b 9c 20 c8 99 |k%,title$).;. ..|
00007d30 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 49 |"Wimp_GetWindowI|
00007d40 6e 66 6f 22 2c 2c 62 6c 6b 25 0d 3b a6 1a e7 20 |nfo",,blk%.;... |
00007d50 24 28 62 6c 6b 25 21 37 36 29 3c 3e 74 69 74 6c |$(blk%!76)<>titl|
00007d60 65 24 20 8c 0d 3b b0 15 24 28 62 6c 6b 25 21 37 |e$ ..;..$(blk%!7|
00007d70 36 29 3d 74 69 74 6c 65 24 0d 3b ba 1b e7 20 61 |6)=title$.;... a|
00007d80 63 74 69 76 65 25 28 a4 69 64 28 21 62 6c 6b 25 |ctive%(.id(!blk%|
00007d90 29 29 20 8c 0d 3b c4 25 20 20 c8 99 22 57 69 6d |)) ..;.% .."Wim|
00007da0 70 5f 47 65 74 57 69 6e 64 6f 77 4f 75 74 6c 69 |p_GetWindowOutli|
00007db0 6e 65 22 2c 2c 62 6c 6b 25 0d 3b ce 3f 20 20 c8 |ne",,blk%.;.? .|
00007dc0 99 22 57 69 6d 70 5f 46 6f 72 63 65 52 65 64 72 |."Wimp_ForceRedr|
00007dd0 61 77 22 2c 2d 31 2c 62 6c 6b 25 21 34 2c 62 6c |aw",-1,blk%!4,bl|
00007de0 6b 25 21 31 36 2d 34 34 2c 62 6c 6b 25 21 31 32 |k%!16-44,blk%!12|
00007df0 2c 62 6c 6b 25 21 31 36 0d 3b d8 05 cd 0d 3b e2 |,blk%!16.;....;.|
00007e00 05 cd 0d 3b ec 05 e1 0d 3b f6 04 0d 3c 00 19 dd |...;....;...<...|
00007e10 20 a4 69 63 6f 6e 74 65 78 74 28 21 71 25 2c 71 | .icontext(!q%,q|
00007e20 25 21 34 29 0d 3c 0a 1d c8 99 22 57 69 6d 70 5f |%!4).<...."Wimp_|
00007e30 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 71 |GetIconState",,q|
00007e40 25 0d 3c 14 34 e7 20 71 25 21 32 34 80 28 31 3c |%.<.4. q%!24.(1<|
00007e50 3c 38 29 20 8c 20 74 65 78 74 24 3d 24 28 71 25 |<8) . text$=$(q%|
00007e60 21 32 38 29 20 8b 20 74 65 78 74 24 3d 24 28 71 |!28) . text$=$(q|
00007e70 25 2b 32 38 29 0d 3c 1e 0a 3d 74 65 78 74 24 0d |%+28).<..=text$.|
00007e80 3c 28 04 0d 3c 32 19 dd 20 f2 72 65 64 6f 69 63 |<(..<2.. .redoic|
00007e90 6f 6e 28 21 71 25 2c 71 25 21 34 29 0d 3c 3c 1d |on(!q%,q%!4).<<.|
00007ea0 c8 99 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 |.."Wimp_GetIconS|
00007eb0 74 61 74 65 22 2c 2c 71 25 0d 3c 46 33 c8 99 22 |tate",,q%.<F3.."|
00007ec0 57 69 6d 70 5f 46 6f 72 63 65 52 65 64 72 61 77 |Wimp_ForceRedraw|
00007ed0 22 2c 21 71 25 2c 71 25 21 38 2c 71 25 21 31 32 |",!q%,q%!8,q%!12|
00007ee0 2c 71 25 21 31 36 2c 71 25 21 32 30 0d 3c 50 05 |,q%!16,q%!20.<P.|
00007ef0 e1 0d 3c 5a 04 0d 3c 64 1b dd 20 f2 64 65 6c 65 |..<Z..<d.. .dele|
00007f00 74 65 69 63 6f 6e 28 21 71 25 2c 71 25 21 34 29 |teicon(!q%,q%!4)|
00007f10 0d 3c 6e 1b c8 99 22 57 69 6d 70 5f 44 65 6c 65 |.<n..."Wimp_Dele|
00007f20 74 65 49 63 6f 6e 22 2c 2c 71 25 0d 3c 78 05 e1 |teIcon",,q%.<x..|
00007f30 0d 3c 82 04 0d 3c 8c 1c dd 20 f2 69 63 6f 6e 69 |.<...<... .iconi|
00007f40 6e 66 6f 28 77 69 6e 64 25 2c 69 63 6f 6e 25 29 |nfo(wind%,icon%)|
00007f50 0d 3c 96 0f 21 62 6c 6b 25 3d 77 69 6e 64 25 0d |.<..!blk%=wind%.|
00007f60 3c a0 10 62 6c 6b 25 21 34 3d 69 63 6f 6e 25 0d |<..blk%!4=icon%.|
00007f70 3c aa 1f c8 99 22 57 69 6d 70 5f 47 65 74 49 63 |<...."Wimp_GetIc|
00007f80 6f 6e 53 74 61 74 65 22 2c 2c 62 6c 6b 25 0d 3c |onState",,blk%.<|
00007f90 b4 05 e1 0d 3c be 04 0d 3c c8 19 dd 20 a4 73 65 |....<...<... .se|
00007fa0 6c 65 63 74 65 64 28 21 71 25 2c 71 25 21 34 29 |lected(!q%,q%!4)|
00007fb0 0d 3c d2 1d c8 99 22 57 69 6d 70 5f 47 65 74 49 |.<...."Wimp_GetI|
00007fc0 63 6f 6e 53 74 61 74 65 22 2c 2c 71 25 0d 3c dc |conState",,q%.<.|
00007fd0 1a 3d 28 28 28 71 25 21 32 34 29 80 28 31 3c 3c |.=(((q%!24).(1<<|
00007fe0 32 31 29 29 3e 30 29 0d 3c e6 04 0d 3c f0 24 dd |21))>0).<...<.$.|
00007ff0 20 f2 73 68 61 64 65 6d 65 6e 75 28 6d 65 6e 75 | .shademenu(menu|
00008000 25 2c 69 74 65 6d 25 2c 73 68 61 64 65 25 29 0d |%,item%,shade%).|
00008010 3c fa 18 70 25 3d 6d 65 6e 75 25 2b 33 36 2b 69 |<..p%=menu%+36+i|
00008020 74 65 6d 25 2a 32 34 0d 3d 04 15 21 70 25 3d 21 |tem%*24.=..!p%=!|
00008030 70 25 20 80 ac 28 31 3c 3c 32 32 29 0d 3d 0e 1f |p% ..(1<<22).=..|
00008040 e7 20 73 68 61 64 65 25 20 8c 20 21 70 25 3d 21 |. shade% . !p%=!|
00008050 70 25 20 84 28 31 3c 3c 32 32 29 0d 3d 18 05 e1 |p% .(1<<22).=...|
00008060 0d 3d 22 04 0d 3d 2c 21 dd 20 f2 73 68 61 64 65 |.="..=,!. .shade|
00008070 69 63 6f 6e 28 21 71 25 2c 71 25 21 34 2c 73 68 |icon(!q%,q%!4,sh|
00008080 61 64 65 25 29 0d 3d 36 22 e7 20 73 68 61 64 65 |ade%).=6". shade|
00008090 25 20 8c 20 71 25 21 38 3d 31 3c 3c 32 32 20 8b |% . q%!8=1<<22 .|
000080a0 20 71 25 21 38 3d 30 0d 3d 40 0f 71 25 21 31 32 | q%!8=0.=@.q%!12|
000080b0 3d 31 3c 3c 32 32 0d 3d 4a 1d c8 99 22 57 69 6d |=1<<22.=J..."Wim|
000080c0 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 22 2c |p_SetIconState",|
000080d0 2c 71 25 0d 3d 54 05 e1 0d 3d 5e 04 0d 3d 68 0f |,q%.=T...=^..=h.|
000080e0 dd 20 f2 67 65 74 63 61 72 65 74 0d 3d 72 21 c8 |. .getcaret.=r!.|
000080f0 99 22 57 69 6d 70 5f 47 65 74 43 61 72 65 74 50 |."Wimp_GetCaretP|
00008100 6f 73 69 74 69 6f 6e 22 2c 2c 71 25 0d 3d 7c 0e |osition",,q%.=|.|
00008110 63 77 69 6e 64 25 3d 21 71 25 0d 3d 86 0f 63 69 |cwind%=!q%.=..ci|
00008120 63 6f 6e 25 3d 71 25 21 34 0d 3d 90 0f 63 78 6f |con%=q%!4.=..cxo|
00008130 66 66 25 3d 71 25 21 38 0d 3d 9a 10 63 79 6f 66 |ff%=q%!8.=..cyof|
00008140 66 25 3d 71 25 21 31 32 0d 3d a4 12 63 68 65 69 |f%=q%!12.=..chei|
00008150 67 68 74 25 3d 71 25 21 31 36 0d 3d ae 11 63 69 |ght%=q%!16.=..ci|
00008160 6e 64 65 78 25 3d 71 25 21 32 30 0d 3d b8 05 e1 |ndex%=q%!20.=...|
00008170 0d 3d c2 04 0d 3d cc 23 dd 20 f2 70 75 74 63 61 |.=...=.#. .putca|
00008180 72 65 74 28 77 69 6e 64 25 2c 69 63 6f 6e 25 2c |ret(wind%,icon%,|
00008190 69 6e 64 65 78 25 29 0d 3d d6 20 6c 65 6e 25 3d |index%).=. len%=|
000081a0 a9 a4 69 63 6f 6e 74 65 78 74 28 77 69 6e 64 25 |..icontext(wind%|
000081b0 2c 69 63 6f 6e 25 29 0d 3d e0 1f e7 20 69 6e 64 |,icon%).=... ind|
000081c0 65 78 25 3e 6c 65 6e 25 20 8c 20 69 6e 64 65 78 |ex%>len% . index|
000081d0 25 3d 6c 65 6e 25 0d 3d ea 35 c8 99 22 57 69 6d |%=len%.=.5.."Wim|
000081e0 70 5f 53 65 74 43 61 72 65 74 50 6f 73 69 74 69 |p_SetCaretPositi|
000081f0 6f 6e 22 2c 77 69 6e 64 25 2c 69 63 6f 6e 25 2c |on",wind%,icon%,|
00008200 2c 2c 2d 31 2c 69 6e 64 65 78 25 0d 3d f4 05 e1 |,,-1,index%.=...|
00008210 0d 3d fe 04 0d 3e 08 1e dd 20 f2 72 65 73 65 74 |.=...>... .reset|
00008220 63 61 72 65 74 28 77 69 6e 64 25 2c 69 63 6f 6e |caret(wind%,icon|
00008230 25 29 0d 3e 12 21 c8 99 22 57 69 6d 70 5f 47 65 |%).>.!.."Wimp_Ge|
00008240 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c |tCaretPosition",|
00008250 2c 71 25 0d 3e 1c 20 e7 20 28 21 71 25 3d 77 69 |,q%.>. . (!q%=wi|
00008260 6e 64 25 20 80 20 71 25 21 34 3d 69 63 6f 6e 25 |nd% . q%!4=icon%|
00008270 29 20 8c 0d 3e 26 12 20 20 69 6e 64 65 78 25 3d |) ..>&. index%=|
00008280 71 25 21 32 30 0d 3e 30 22 20 20 6c 65 6e 25 3d |q%!20.>0" len%=|
00008290 a9 a4 69 63 6f 6e 74 65 78 74 28 77 69 6e 64 25 |..icontext(wind%|
000082a0 2c 69 63 6f 6e 25 29 0d 3e 3a 21 20 20 e7 20 69 |,icon%).>:! . i|
000082b0 6e 64 65 78 25 3e 6c 65 6e 25 20 8c 20 69 6e 64 |ndex%>len% . ind|
000082c0 65 78 25 3d 6c 65 6e 25 0d 3e 44 37 20 20 c8 99 |ex%=len%.>D7 ..|
000082d0 22 57 69 6d 70 5f 53 65 74 43 61 72 65 74 50 6f |"Wimp_SetCaretPo|
000082e0 73 69 74 69 6f 6e 22 2c 77 69 6e 64 25 2c 69 63 |sition",wind%,ic|
000082f0 6f 6e 25 2c 2c 2c 2d 31 2c 69 6e 64 65 78 25 0d |on%,,,-1,index%.|
00008300 3e 4e 05 cd 0d 3e 58 49 e7 20 77 69 6e 64 25 3d |>N...>XI. wind%=|
00008310 30 20 8c 20 c8 99 22 57 69 6d 70 5f 53 65 74 43 |0 . .."Wimp_SetC|
00008320 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c 21 71 |aretPosition",!q|
00008330 25 2c 71 25 21 34 2c 71 25 21 38 2c 71 25 21 31 |%,q%!4,q%!8,q%!1|
00008340 32 2c 71 25 21 31 36 2c 71 25 21 32 30 0d 3e 62 |2,q%!16,q%!20.>b|
00008350 05 e1 0d 3e 6c 04 0d 3e 76 10 dd 20 f2 6c 6f 73 |...>l..>v.. .los|
00008360 65 63 61 72 65 74 0d 3e 80 2d e7 20 6d 79 63 61 |ecaret.>.-. myca|
00008370 72 65 74 25 20 8c 20 c8 99 22 57 69 6d 70 5f 53 |ret% . .."Wimp_S|
00008380 65 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 |etCaretPosition"|
00008390 2c 2d 31 0d 3e 8a 05 e1 0d 3e 94 04 0d 3e 9e 1a |,-1.>....>...>..|
000083a0 dd 20 f2 66 6c 61 73 68 69 63 6f 6e 28 21 71 25 |. .flashicon(!q%|
000083b0 2c 71 25 21 34 29 0d 3e a8 0e e3 20 66 25 3d 31 |,q%!4).>... f%=1|
000083c0 20 b8 20 33 0d 3e b2 09 c8 96 3a c8 96 0d 3e bc | . 3.>....:...>.|
000083d0 1b f2 73 65 6c 65 63 74 69 63 6f 6e 28 21 71 25 |..selecticon(!q%|
000083e0 2c 71 25 21 34 2c a3 29 0d 3e c6 09 c8 96 3a c8 |,q%!4,.).>....:.|
000083f0 96 0d 3e d0 1b f2 73 65 6c 65 63 74 69 63 6f 6e |..>...selecticon|
00008400 28 21 71 25 2c 71 25 21 34 2c b9 29 0d 3e da 08 |(!q%,q%!4,.).>..|
00008410 ed 20 66 25 0d 3e e4 05 e1 0d 3e ee 04 0d 3e f8 |. f%.>....>...>.|
00008420 23 dd 20 f2 6f 70 65 6e 69 63 6f 6e 6d 65 6e 75 |#. .openiconmenu|
00008430 28 21 71 25 2c 71 25 21 34 2c 77 69 6e 64 25 29 |(!q%,q%!4,wind%)|
00008440 0d 3f 02 13 6f 70 65 6e 6d 65 6e 75 25 3d 77 69 |.?..openmenu%=wi|
00008450 6e 64 25 0d 3f 0c 1d c8 99 22 57 69 6d 70 5f 47 |nd%.?...."Wimp_G|
00008460 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 71 25 |etIconState",,q%|
00008470 0d 3f 16 10 6d 65 6e 75 78 25 3d 71 25 21 31 36 |.?..menux%=q%!16|
00008480 0d 3f 20 10 6d 65 6e 75 79 25 3d 71 25 21 32 30 |.? .menuy%=q%!20|
00008490 0d 3f 2a 14 f2 77 69 6e 64 6f 77 69 6e 66 6f 28 |.?*..windowinfo(|
000084a0 21 71 25 29 0d 3f 34 0f 6d 65 6e 75 78 25 2b 3d |!q%).?4.menux%+=|
000084b0 77 78 25 0d 3f 3e 0f 6d 65 6e 75 79 25 2b 3d 77 |wx%.?>.menuy%+=w|
000084c0 79 25 0d 3f 48 30 c8 99 22 57 69 6d 70 5f 43 72 |y%.?H0.."Wimp_Cr|
000084d0 65 61 74 65 4d 65 6e 75 22 2c 2c 6f 70 65 6e 6d |eateMenu",,openm|
000084e0 65 6e 75 25 2c 6d 65 6e 75 78 25 2c 6d 65 6e 75 |enu%,menux%,menu|
000084f0 79 25 0d 3f 52 05 e1 0d 3f 5c 04 0d 3f 66 22 dd |y%.?R...?\..?f".|
00008500 20 a4 69 6e 66 6f 77 69 6e 64 6f 77 28 69 31 24 | .infowindow(i1$|
00008510 2c 69 32 24 2c 69 33 24 2c 69 34 24 29 0d 3f 70 |,i2$,i3$,i4$).?p|
00008520 20 77 69 6e 64 25 3d a4 77 69 6e 64 6f 77 28 22 | wind%=.window("|
00008530 69 6e 66 6f 22 2c 22 22 2c 30 2c 30 29 0d 3f 7a |info","",0,0).?z|
00008540 21 f2 73 65 74 69 63 6f 6e 74 65 78 74 28 77 25 |!.seticontext(w%|
00008550 28 77 69 6e 64 25 29 2c 31 2c 69 31 24 29 0d 3f |(wind%),1,i1$).?|
00008560 84 21 f2 73 65 74 69 63 6f 6e 74 65 78 74 28 77 |.!.seticontext(w|
00008570 25 28 77 69 6e 64 25 29 2c 32 2c 69 32 24 29 0d |%(wind%),2,i2$).|
00008580 3f 8e 21 f2 73 65 74 69 63 6f 6e 74 65 78 74 28 |?.!.seticontext(|
00008590 77 25 28 77 69 6e 64 25 29 2c 33 2c 69 33 24 29 |w%(wind%),3,i3$)|
000085a0 0d 3f 98 21 f2 73 65 74 69 63 6f 6e 74 65 78 74 |.?.!.seticontext|
000085b0 28 77 25 28 77 69 6e 64 25 29 2c 34 2c 69 34 24 |(w%(wind%),4,i4$|
000085c0 29 0d 3f a2 0a 3d 77 69 6e 64 25 0d 3f ac 04 0d |).?..=wind%.?...|
000085d0 3f b6 2f dd 20 f2 77 69 6d 70 69 6e 69 74 28 6e |?./. .wimpinit(n|
000085e0 61 6d 65 24 2c 73 70 72 69 74 65 24 2c 77 6f 72 |ame$,sprite$,wor|
000085f0 6b 24 2c 6e 6f 25 2c 69 73 69 7a 65 25 29 0d 3f |k$,no%,isize%).?|
00008600 c0 1d c8 99 22 4f 53 5f 47 65 74 45 6e 76 22 20 |...."OS_GetEnv" |
00008610 b8 20 61 75 74 6f 6c 6f 61 64 24 0d 3f ca 3d 61 |. autoload$.?.=a|
00008620 75 74 6f 6c 6f 61 64 24 3d c1 61 75 74 6f 6c 6f |utoload$=.autolo|
00008630 61 64 24 2c a7 61 75 74 6f 6c 6f 61 64 24 2c bd |ad$,.autoload$,.|
00008640 33 34 2c a7 61 75 74 6f 6c 6f 61 64 24 2c bd 33 |34,.autoload$,.3|
00008650 34 29 2b 31 29 2b 32 29 0d 3f d4 0d 73 74 61 74 |4)+1)+2).?..stat|
00008660 75 73 25 3d 30 0d 3f de 0e 6d 79 63 61 72 65 74 |us%=0.?..mycaret|
00008670 25 3d a3 0d 3f e8 12 77 69 6e 64 6f 77 73 25 3d |%=..?..windows%=|
00008680 6e 6f 25 2b 33 0d 3f f2 12 70 72 6f 67 72 61 6d |no%+3.?..program|
00008690 24 3d 6e 61 6d 65 24 0d 3f fc 2b de 20 62 6c 6b |$=name$.?.+. blk|
000086a0 25 20 32 30 30 30 2c 71 25 20 32 35 36 2c 69 6e |% 2000,q% 256,in|
000086b0 64 25 20 69 73 69 7a 65 25 2c 70 61 6c 25 20 32 |d% isize%,pal% 2|
000086c0 35 36 0d 40 06 17 69 6e 64 65 6e 64 25 3d 69 6e |56.@..indend%=in|
000086d0 64 25 2b 69 73 69 7a 65 25 0d 40 10 10 24 62 6c |d%+isize%.@..$bl|
000086e0 6b 25 3d 22 54 41 53 4b 22 0d 40 1a 35 c8 99 22 |k%="TASK".@.5.."|
000086f0 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 73 65 22 |Wimp_Initialise"|
00008700 2c 32 30 30 2c 21 62 6c 6b 25 2c 70 72 6f 67 72 |,200,!blk%,progr|
00008710 61 6d 24 20 b8 20 2c 6d 79 74 61 73 6b 25 0d 40 |am$ . ,mytask%.@|
00008720 24 30 69 63 6f 6e 62 61 72 25 3d a4 63 72 69 63 |$0iconbar%=.cric|
00008730 6f 6e 28 2d 31 2c 30 2c 30 2c 36 38 2c 36 38 2c |on(-1,0,0,68,68,|
00008740 26 32 30 30 32 2c 73 70 72 69 74 65 24 29 0d 40 |&2002,sprite$).@|
00008750 2e 14 24 71 25 3d 77 6f 72 6b 24 2b 22 24 44 69 |..$q%=work$+"$Di|
00008760 72 22 0d 40 38 2e c8 99 22 4f 53 5f 52 65 61 64 |r".@8..."OS_Read|
00008770 56 61 72 56 61 6c 22 2c 71 25 2c 62 6c 6b 25 2c |VarVal",q%,blk%,|
00008780 32 35 36 2c 30 2c 33 20 b8 20 2c 2c 6c 65 6e 25 |256,0,3 . ,,len%|
00008790 0d 40 42 10 62 6c 6b 25 3f 6c 65 6e 25 3d 31 33 |.@B.blk%?len%=13|
000087a0 0d 40 4c 0e 64 69 72 24 3d 24 62 6c 6b 25 0d 40 |.@L.dir$=$blk%.@|
000087b0 56 3d c8 99 22 58 4f 53 5f 53 57 49 4e 75 6d 62 |V=.."XOS_SWINumb|
000087c0 65 72 46 72 6f 6d 53 74 72 69 6e 67 22 2c 2c 22 |erFromString",,"|
000087d0 44 72 61 67 41 53 70 72 69 74 65 5f 53 74 61 72 |DragASprite_Star|
000087e0 74 22 20 b8 20 3b 64 72 61 67 25 0d 40 60 17 64 |t" . ;drag%.@`.d|
000087f0 72 61 67 25 3d 28 64 72 61 67 25 20 80 20 31 29 |rag%=(drag% . 1)|
00008800 3d 30 0d 40 6a 1f c8 99 22 4f 53 5f 42 79 74 65 |=0.@j..."OS_Byte|
00008810 22 2c 31 36 31 2c 32 38 20 b8 20 2c 2c 62 69 74 |",161,28 . ,,bit|
00008820 25 0d 40 74 1c e7 20 28 62 69 74 25 20 80 20 32 |%.@t.. (bit% . 2|
00008830 29 3d 30 20 8c 20 64 72 61 67 25 3d a3 0d 40 7e |)=0 . drag%=..@~|
00008840 26 c8 99 22 57 69 6d 70 5f 53 6c 6f 74 53 69 7a |&.."Wimp_SlotSiz|
00008850 65 22 2c 2d 31 2c 2d 31 20 b8 20 61 70 70 73 69 |e",-1,-1 . appsi|
00008860 7a 65 25 0d 40 88 10 f2 6c 6f 61 64 73 70 72 69 |ze%.@...loadspri|
00008870 74 65 73 0d 40 92 0c f2 6e 65 77 6d 6f 64 65 0d |tes.@...newmode.|
00008880 40 9c 0d 74 66 74 25 3d 26 46 46 46 0d 40 a6 0d |@..tft%=&FFF.@..|
00008890 64 66 74 25 3d 26 41 46 46 0d 40 b0 0a 65 78 69 |dft%=&AFF.@..exi|
000088a0 74 3d a3 0d 40 ba 25 de 20 6d 65 6e 75 62 75 66 |t=..@.%. menubuf|
000088b0 66 65 72 25 20 32 30 30 30 2c 66 6f 6e 74 74 61 |fer% 2000,fontta|
000088c0 62 6c 65 25 20 32 35 36 0d 40 c4 0c 74 77 69 6e |ble% 256.@..twin|
000088d0 64 25 3d 30 0d 40 ce 7b de 20 77 25 28 77 69 6e |d%=0.@.{. w%(win|
000088e0 64 6f 77 73 25 29 2c 6d 65 6e 75 25 28 77 69 6e |dows%),menu%(win|
000088f0 64 6f 77 73 25 29 2c 69 64 24 28 77 69 6e 64 6f |dows%),id$(windo|
00008900 77 73 25 29 2c 6d 69 73 63 25 28 77 69 6e 64 6f |ws%),misc%(windo|
00008910 77 73 25 29 2c 61 63 74 69 76 65 25 28 77 69 6e |ws%),active%(win|
00008920 64 6f 77 73 25 29 2c 64 65 66 61 75 6c 74 25 28 |dows%),default%(|
00008930 35 2c 77 69 6e 64 6f 77 73 25 29 2c 73 79 73 66 |5,windows%),sysf|
00008940 6c 61 67 73 25 28 77 69 6e 64 6f 77 73 25 29 0d |lags%(windows%).|
00008950 40 d8 18 6d 65 6e 75 70 74 72 25 3d 6d 65 6e 75 |@..menuptr%=menu|
00008960 62 75 66 66 65 72 25 0d 40 e2 10 e3 20 69 25 3d |buffer%.@... i%=|
00008970 31 20 b8 20 32 35 35 0d 40 ec 13 66 6f 6e 74 74 |1 . 255.@..fontt|
00008980 61 62 6c 65 25 3f 69 25 3d 30 0d 40 f6 08 ed 20 |able%?i%=0.@... |
00008990 69 25 0d 41 00 1d 77 25 28 30 29 3d 2d 32 3a 69 |i%.A..w%(0)=-2:i|
000089a0 64 24 28 30 29 3d 22 69 63 6f 6e 62 61 72 22 0d |d$(0)="iconbar".|
000089b0 41 0a 2c c8 99 22 57 69 6d 70 5f 4f 70 65 6e 54 |A.,.."Wimp_OpenT|
000089c0 65 6d 70 6c 61 74 65 22 2c 2c 64 69 72 24 2b 22 |emplate",,dir$+"|
000089d0 2e 54 65 6d 70 6c 61 74 65 73 22 0d 41 14 10 f2 |.Templates".A...|
000089e0 69 6e 69 74 77 69 6e 64 6f 77 73 0d 41 1e 2a 72 |initwindows.A.*r|
000089f0 65 70 6f 72 74 25 3d a4 77 69 6e 64 6f 77 28 22 |eport%=.window("|
00008a00 72 65 70 6f 72 74 22 2c 22 72 65 70 6f 72 74 22 |report","report"|
00008a10 2c 30 2c 30 29 0d 41 28 1a c8 99 22 57 69 6d 70 |,0,0).A(..."Wimp|
00008a20 5f 43 6c 6f 73 65 54 65 6d 70 6c 61 74 65 22 0d |_CloseTemplate".|
00008a30 41 32 0d de 20 61 6e 73 24 28 33 29 0d 41 3c 0b |A2.. ans$(3).A<.|
00008a40 62 65 65 70 25 3d b9 0d 41 46 05 e1 0d 41 50 04 |beep%=..AF...AP.|
00008a50 0d 41 5a 21 f4 20 3d 3d 3d 3d 20 6d 65 6d 6f 72 |.AZ!. ==== memor|
00008a60 79 20 6d 61 6e 61 67 65 6d 65 6e 74 20 3d 3d 3d |y management ===|
00008a70 3d 0d 41 64 04 0d 41 6e 13 dd 20 a4 73 70 61 63 |=.Ad..An.. .spac|
00008a80 65 28 73 69 7a 65 25 29 0d 41 78 0c 62 6c 6f 63 |e(size%).Ax.bloc|
00008a90 6b 25 3d 93 0d 41 82 37 c8 99 22 58 57 69 6d 70 |k%=..A.7.."XWimp|
00008aa0 5f 53 6c 6f 74 53 69 7a 65 22 2c 61 70 70 73 69 |_SlotSize",appsi|
00008ab0 7a 65 25 2b 73 69 7a 65 25 2c 2d 31 20 b8 20 6e |ze%+size%,-1 . n|
00008ac0 65 77 25 3b 6e 6f 72 6f 6f 6d 25 0d 41 8c 19 72 |ew%;noroom%.A..r|
00008ad0 6f 6f 6d 25 3d 28 28 6e 6f 72 6f 6f 6d 25 80 31 |oom%=((noroom%.1|
00008ae0 29 3d 30 29 0d 41 96 1d e7 20 6e 65 77 25 3d 61 |)=0).A... new%=a|
00008af0 70 70 73 69 7a 65 25 20 8c 20 72 6f 6f 6d 25 3d |ppsize% . room%=|
00008b00 a3 0d 41 a0 19 61 70 70 69 6e 63 25 3d 6e 65 77 |..A..appinc%=new|
00008b10 25 2d 61 70 70 73 69 7a 65 25 0d 41 aa 0a 3d 72 |%-appsize%.A..=r|
00008b20 6f 6f 6d 25 0d 41 b4 04 0d 41 be 10 dd 20 f2 72 |oom%.A...A... .r|
00008b30 65 73 65 74 73 6c 6f 74 0d 41 c8 21 c8 99 22 57 |esetslot.A.!.."W|
00008b40 69 6d 70 5f 53 6c 6f 74 53 69 7a 65 22 2c 61 70 |imp_SlotSize",ap|
00008b50 70 73 69 7a 65 25 2c 2d 31 0d 41 d2 05 e1 0d 41 |psize%,-1.A....A|
00008b60 dc 04 0d 41 e6 26 f4 20 3d 3d 3d 3d 20 66 69 6c |...A.&. ==== fil|
00008b70 69 6e 67 20 73 79 73 74 65 6d 20 72 6f 75 74 69 |ing system routi|
00008b80 6e 65 73 20 3d 3d 3d 3d 0d 41 f0 04 0d 41 fa 1e |nes ====.A...A..|
00008b90 dd 20 a4 73 74 61 6e 64 61 72 64 66 69 6c 65 6e |. .standardfilen|
00008ba0 61 6d 65 28 77 69 6e 64 25 29 0d 42 04 17 3d a4 |ame(wind%).B..=.|
00008bb0 69 63 6f 6e 74 65 78 74 28 77 69 6e 64 25 2c 31 |icontext(wind%,1|
00008bc0 29 0d 42 0e 04 0d 42 18 20 dd 20 f2 73 61 76 65 |).B...B. . .save|
00008bd0 28 69 64 25 2c 66 69 6c 65 24 2c 70 72 65 70 61 |(id%,file$,prepa|
00008be0 72 65 64 25 29 0d 42 22 13 66 69 6c 65 6e 61 6d |red%).B".filenam|
00008bf0 65 24 3d 66 69 6c 65 24 0d 42 2c 0c 73 61 76 65 |e$=file$.B,.save|
00008c00 64 25 3d a3 0d 42 36 1a e7 20 a4 6e 61 6d 65 6f |d%=..B6.. .nameo|
00008c10 6b 28 66 69 6c 65 6e 61 6d 65 24 29 20 8c 0d 42 |k(filename$) ..B|
00008c20 40 3b e7 20 70 72 65 70 61 72 65 64 25 3d a3 20 |@;. prepared%=. |
00008c30 8c 20 70 72 65 70 61 72 65 64 25 3d a0 28 22 46 |. prepared%=.("F|
00008c40 4e 70 72 65 70 61 72 65 22 2b c3 7e 28 6d 69 73 |Nprepare"+.~(mis|
00008c50 63 25 28 69 64 25 29 29 29 0d 42 4a 12 c8 8e 20 |c%(id%))).BJ... |
00008c60 70 72 65 70 61 72 65 64 25 20 ca 0d 42 54 0a 20 |prepared% ..BT. |
00008c70 20 c9 20 2d 31 0d 42 5e 4a 20 20 20 20 c8 99 22 | . -1.B^J .."|
00008c80 4f 53 5f 46 69 6c 65 22 2c 31 30 2c 66 69 6c 65 |OS_File",10,file|
00008c90 6e 61 6d 65 24 2c 6d 69 73 63 25 28 69 64 25 29 |name$,misc%(id%)|
00008ca0 2c 2c 73 61 76 65 62 75 66 66 25 2c 73 61 76 65 |,,savebuff%,save|
00008cb0 62 75 66 66 25 2b 66 69 6c 65 73 69 7a 65 25 0d |buff%+filesize%.|
00008cc0 42 68 12 20 20 20 20 f2 72 65 73 65 74 73 6c 6f |Bh. .resetslo|
00008cd0 74 0d 42 72 0a 20 20 c9 20 2d 32 0d 42 7c 25 20 |t.Br. . -2.B|% |
00008ce0 20 20 20 64 25 3d a0 28 22 46 4e 73 61 76 65 22 | d%=.("FNsave"|
00008cf0 2b c3 7e 28 6d 69 73 63 25 28 69 64 25 29 29 29 |+.~(misc%(id%)))|
00008d00 0d 42 86 05 cb 0d 42 90 0e f2 63 6c 6f 73 65 6d |.B....B...closem|
00008d10 65 6e 75 0d 42 9a 25 f2 73 65 74 69 63 6f 6e 74 |enu.B.%.seticont|
00008d20 65 78 74 28 77 25 28 69 64 25 29 2c 32 2c 66 69 |ext(w%(id%),2,fi|
00008d30 6c 65 6e 61 6d 65 24 29 0d 42 a4 0c 73 61 76 65 |lename$).B..save|
00008d40 64 25 3d b9 0d 42 ae 05 cd 0d 42 b8 05 cd 0d 42 |d%=..B....B....B|
00008d50 c2 05 e1 0d 42 cc 04 0d 42 d6 1d f4 20 3d 3d 3d |....B...B... ===|
00008d60 3d 20 6d 65 6e 75 20 72 6f 75 74 69 6e 65 73 20 |= menu routines |
00008d70 3d 3d 3d 3d 0d 42 e0 04 0d 42 ea 20 dd 20 f2 6f |====.B...B. . .o|
00008d80 70 65 6e 77 69 6e 64 6f 77 61 73 6d 65 6e 75 28 |penwindowasmenu(|
00008d90 77 69 6e 64 6f 77 25 29 0d 42 f4 18 f2 77 69 6e |window%).B...win|
00008da0 64 6f 77 69 6e 66 6f 28 77 69 6e 64 6f 77 25 29 |dowinfo(window%)|
00008db0 0d 42 fe 0e f2 6d 6f 75 73 65 69 6e 66 6f 0d 43 |.B...mouseinfo.C|
00008dc0 08 14 6d 65 6e 75 78 25 3d 6d 78 25 2d 77 77 25 |..menux%=mx%-ww%|
00008dd0 2f 32 0d 43 12 14 6d 65 6e 75 79 25 3d 6d 79 25 |/2.C..menuy%=my%|
00008de0 2b 77 68 25 2f 32 0d 43 1c 15 6f 70 65 6e 6d 65 |+wh%/2.C..openme|
00008df0 6e 75 25 3d 77 69 6e 64 6f 77 25 0d 43 26 14 69 |nu%=window%.C&.i|
00008e00 64 25 3d a4 69 64 28 77 69 6e 64 6f 77 25 29 0d |d%=.id(window%).|
00008e10 43 30 0f f2 72 65 6f 70 65 6e 6d 65 6e 75 0d 43 |C0..reopenmenu.C|
00008e20 3a 05 e1 0d 43 44 04 0d 43 4e 19 dd 20 f2 69 63 |:...CD..CN.. .ic|
00008e30 6f 6e 62 61 72 6d 65 6e 75 28 74 65 78 74 24 29 |onbarmenu(text$)|
00008e40 0d 43 58 19 6d 65 6e 75 25 28 30 29 3d a4 6d 65 |.CX.menu%(0)=.me|
00008e50 6e 75 28 74 65 78 74 24 29 0d 43 62 1b 62 61 72 |nu(text$).Cb.bar|
00008e60 68 65 69 67 68 74 25 3d 69 74 65 6d 73 25 2a 34 |height%=items%*4|
00008e70 34 2b 39 36 0d 43 6c 05 e1 0d 43 76 04 0d 43 80 |4+96.Cl...Cv..C.|
00008e80 11 dd 20 f2 6d 65 6e 75 73 65 6c 65 63 74 0d 43 |.. .menuselect.C|
00008e90 8a 1f 64 25 3d a0 28 22 46 4e 6d 65 6e 75 22 2b |..d%=.("FNmenu"+|
00008ea0 69 64 24 28 6d 65 6e 75 69 64 25 29 29 0d 43 94 |id$(menuid%)).C.|
00008eb0 0e f2 6d 6f 75 73 65 69 6e 66 6f 0d 43 9e 1a e7 |..mouseinfo.C...|
00008ec0 20 62 75 74 25 3d 31 20 8c 20 f2 72 65 6f 70 65 | but%=1 . .reope|
00008ed0 6e 6d 65 6e 75 0d 43 a8 05 e1 0d 43 b2 04 0d 43 |nmenu.C....C...C|
00008ee0 bc 11 dd 20 f2 72 65 6f 70 65 6e 6d 65 6e 75 0d |... .reopenmenu.|
00008ef0 43 c6 33 e7 20 73 79 73 66 6c 61 67 73 25 28 69 |C.3. sysflags%(i|
00008f00 64 25 29 80 34 20 8c 20 64 25 3d a0 28 22 46 4e |d%).4 . d%=.("FN|
00008f10 70 72 65 6d 65 6e 75 22 2b 69 64 24 28 69 64 25 |premenu"+id$(id%|
00008f20 29 29 0d 43 d0 30 c8 99 22 57 69 6d 70 5f 43 72 |)).C.0.."Wimp_Cr|
00008f30 65 61 74 65 4d 65 6e 75 22 2c 2c 6f 70 65 6e 6d |eateMenu",,openm|
00008f40 65 6e 75 25 2c 6d 65 6e 75 78 25 2c 6d 65 6e 75 |enu%,menux%,menu|
00008f50 79 25 0d 43 da 05 e1 0d 43 e4 04 0d 43 ee 14 dd |y%.C....C...C...|
00008f60 20 f2 6f 70 65 6e 6d 65 6e 75 28 69 64 25 29 0d | .openmenu(id%).|
00008f70 43 f8 12 e7 20 6d 65 6e 75 25 28 69 64 25 29 20 |C... menu%(id%) |
00008f80 8c 0d 44 02 0f 6d 65 6e 75 69 64 25 3d 69 64 25 |..D..menuid%=id%|
00008f90 0d 44 0c 18 6f 70 65 6e 6d 65 6e 75 25 3d 6d 65 |.D..openmenu%=me|
00008fa0 6e 75 25 28 69 64 25 29 0d 44 16 2c e7 20 69 64 |nu%(id%).D.,. id|
00008fb0 25 3d 30 20 8c 20 6d 65 6e 75 79 25 3d 62 61 72 |%=0 . menuy%=bar|
00008fc0 68 65 69 67 68 74 25 20 8b 20 6d 65 6e 75 79 25 |height% . menuy%|
00008fd0 3d 6d 79 25 0d 44 20 22 6d 65 6e 75 78 25 3d 6d |=my%.D "menux%=m|
00008fe0 78 25 2d 28 6f 70 65 6e 6d 65 6e 75 25 21 31 36 |x%-(openmenu%!16|
00008ff0 29 2f 32 2d 31 36 0d 44 2a 0f f2 72 65 6f 70 65 |)/2-16.D*..reope|
00009000 6e 6d 65 6e 75 0d 44 34 05 cd 0d 44 3e 05 e1 0d |nmenu.D4...D>...|
00009010 44 48 04 0d 44 52 1f f4 20 3d 3d 3d 3d 20 77 69 |DH..DR.. ==== wi|
00009020 6e 64 6f 77 20 72 6f 75 74 69 6e 65 73 20 3d 3d |ndow routines ==|
00009030 3d 3d 0d 44 5c 04 0d 44 66 27 dd 20 a4 77 69 6e |==.D\..Df'. .win|
00009040 64 6f 77 28 77 69 6e 64 24 2c 6e 61 6d 65 24 2c |dow(wind$,name$,|
00009050 6d 65 6e 75 25 2c 66 6c 61 67 73 25 29 0d 44 70 |menu%,flags%).Dp|
00009060 0d 74 77 69 6e 64 25 2b 3d 31 0d 44 7a 23 77 25 |.twind%+=1.Dz#w%|
00009070 28 74 77 69 6e 64 25 29 3d a4 6c 6f 61 64 74 65 |(twind%)=.loadte|
00009080 6d 70 6c 61 74 65 28 77 69 6e 64 24 29 0d 44 84 |mplate(wind$).D.|
00009090 1b f2 77 69 6e 64 6f 77 69 6e 66 6f 28 77 25 28 |..windowinfo(w%(|
000090a0 74 77 69 6e 64 25 29 29 0d 44 8e 0e e3 20 64 25 |twind%)).D... d%|
000090b0 3d 30 20 b8 20 35 0d 44 98 29 64 65 66 61 75 6c |=0 . 5.D.)defaul|
000090c0 74 25 28 64 25 2c 74 77 69 6e 64 25 29 3d 21 28 |t%(d%,twind%)=!(|
000090d0 62 6c 6b 25 2b 28 64 25 3c 3c 32 29 2b 34 29 0d |blk%+(d%<<2)+4).|
000090e0 44 a2 08 ed 20 64 25 0d 44 ac 15 69 64 24 28 74 |D... d%.D..id$(t|
000090f0 77 69 6e 64 25 29 3d 6e 61 6d 65 24 0d 44 b6 17 |wind%)=name$.D..|
00009100 6d 65 6e 75 25 28 74 77 69 6e 64 25 29 3d 6d 65 |menu%(twind%)=me|
00009110 6e 75 25 0d 44 c0 1c 73 79 73 66 6c 61 67 73 25 |nu%.D..sysflags%|
00009120 28 74 77 69 6e 64 25 29 3d 66 6c 61 67 73 25 0d |(twind%)=flags%.|
00009130 44 ca 0b 3d 74 77 69 6e 64 25 0d 44 d4 04 0d 44 |D..=twind%.D...D|
00009140 de 0d dd 20 f2 72 65 64 72 61 77 0d 44 e8 12 69 |... .redraw.D..i|
00009150 64 25 3d a4 69 64 28 21 62 6c 6b 25 29 0d 44 f2 |d%=.id(!blk%).D.|
00009160 16 f2 77 69 6e 64 6f 77 69 6e 66 6f 28 21 62 6c |..windowinfo(!bl|
00009170 6b 25 29 0d 44 fc 27 c8 99 22 57 69 6d 70 5f 52 |k%).D.'.."Wimp_R|
00009180 65 64 72 61 77 57 69 6e 64 6f 77 22 2c 2c 62 6c |edrawWindow",,bl|
00009190 6b 25 20 b8 20 6d 6f 72 65 25 0d 45 06 0c c8 95 |k% . more%.E....|
000091a0 20 6d 6f 72 65 25 0d 45 10 13 78 30 25 3d 62 6c | more%.E..x0%=bl|
000091b0 6b 25 21 32 38 2d 77 78 25 0d 45 1a 13 79 30 25 |k%!28-wx%.E..y0%|
000091c0 3d 62 6c 6b 25 21 33 32 2d 77 79 25 0d 45 24 13 |=blk%!32-wy%.E$.|
000091d0 78 31 25 3d 62 6c 6b 25 21 33 36 2d 77 78 25 0d |x1%=blk%!36-wx%.|
000091e0 45 2e 13 79 31 25 3d 62 6c 6b 25 21 34 30 2d 77 |E..y1%=blk%!40-w|
000091f0 79 25 0d 45 38 1d 64 25 3d a0 28 22 46 4e 72 65 |y%.E8.d%=.("FNre|
00009200 64 72 61 77 22 2b 69 64 24 28 69 64 25 29 29 0d |draw"+id$(id%)).|
00009210 45 42 27 c8 99 22 57 69 6d 70 5f 47 65 74 52 65 |EB'.."Wimp_GetRe|
00009220 63 74 61 6e 67 6c 65 22 2c 2c 62 6c 6b 25 20 b8 |ctangle",,blk% .|
00009230 20 6d 6f 72 65 25 0d 45 4c 05 ce 0d 45 56 05 e1 | more%.EL...EV..|
00009240 0d 45 60 04 0d 45 6a 10 dd 20 a4 69 64 28 66 69 |.E`..Ej.. .id(fi|
00009250 6e 64 25 29 0d 45 74 13 66 6f 75 6e 64 25 3d 77 |nd%).Et.found%=w|
00009260 69 6e 64 6f 77 73 25 0d 45 7e 15 e3 20 69 25 3d |indows%.E~.. i%=|
00009270 30 20 b8 20 77 69 6e 64 6f 77 73 25 0d 45 88 1e |0 . windows%.E..|
00009280 e7 20 77 25 28 69 25 29 3d 66 69 6e 64 25 20 8c |. w%(i%)=find% .|
00009290 20 66 6f 75 6e 64 25 3d 69 25 0d 45 92 08 ed 20 | found%=i%.E... |
000092a0 69 25 0d 45 9c 0b 3d 66 6f 75 6e 64 25 0d 45 a6 |i%.E..=found%.E.|
000092b0 04 0d 45 b0 14 dd 20 f2 6f 70 65 6e 75 70 28 77 |..E... .openup(w|
000092c0 69 6e 64 25 29 0d 45 ba 0f 21 62 6c 6b 25 3d 77 |ind%).E..!blk%=w|
000092d0 69 6e 64 25 0d 45 c4 12 69 64 25 3d a4 69 64 28 |ind%.E..id%=.id(|
000092e0 77 69 6e 64 25 29 0d 45 ce 15 e7 20 ac 61 63 74 |wind%).E... .act|
000092f0 69 76 65 25 28 69 64 25 29 20 8c 0d 45 d8 0e e3 |ive%(id%) ..E...|
00009300 20 64 25 3d 30 20 b8 20 35 0d 45 e2 26 21 28 62 | d%=0 . 5.E.&!(b|
00009310 6c 6b 25 2b 28 64 25 3c 3c 32 29 2b 34 29 3d 64 |lk%+(d%<<2)+4)=d|
00009320 65 66 61 75 6c 74 25 28 64 25 2c 69 64 25 29 0d |efault%(d%,id%).|
00009330 45 ec 08 ed 20 64 25 0d 45 f6 05 cc 0d 46 00 21 |E... d%.E....F.!|
00009340 c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f |.."Wimp_GetWindo|
00009350 77 53 74 61 74 65 22 2c 2c 62 6c 6b 25 0d 46 0a |wState",,blk%.F.|
00009360 05 cd 0d 46 14 0e 62 6c 6b 25 21 32 38 3d 2d 31 |...F..blk%!28=-1|
00009370 0d 46 1e 0f f2 6f 70 65 6e 77 69 6e 64 6f 77 0d |.F...openwindow.|
00009380 46 28 05 e1 0d 46 32 04 0d 46 3c 11 dd 20 f2 6f |F(...F2..F<.. .o|
00009390 70 65 6e 77 69 6e 64 6f 77 0d 46 46 12 69 64 25 |penwindow.FF.id%|
000093a0 3d a4 69 64 28 21 62 6c 6b 25 29 0d 46 50 1d c8 |=.id(!blk%).FP..|
000093b0 99 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f |."Wimp_OpenWindo|
000093c0 77 22 2c 2c 62 6c 6b 25 0d 46 5a 12 61 63 74 69 |w",,blk%.FZ.acti|
000093d0 76 65 25 28 69 64 25 29 3d b9 0d 46 64 30 e7 20 |ve%(id%)=..Fd0. |
000093e0 73 79 73 66 6c 61 67 73 25 28 69 64 25 29 80 31 |sysflags%(id%).1|
000093f0 20 8c 20 64 25 3d a0 28 22 46 4e 6f 70 65 6e 22 | . d%=.("FNopen"|
00009400 2b 69 64 24 28 69 64 25 29 29 0d 46 6e 05 e1 0d |+id$(id%)).Fn...|
00009410 46 78 04 0d 46 82 1d dd 20 f2 66 72 6f 6e 74 6f |Fx..F... .fronto|
00009420 70 65 6e 77 69 6e 64 6f 77 28 21 62 6c 6b 25 29 |penwindow(!blk%)|
00009430 0d 46 8c 21 c8 99 22 57 69 6d 70 5f 47 65 74 57 |.F.!.."Wimp_GetW|
00009440 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 6c 6b |indowState",,blk|
00009450 25 0d 46 96 0e 62 6c 6b 25 21 32 38 3d 2d 31 0d |%.F..blk%!28=-1.|
00009460 46 a0 0f f2 6f 70 65 6e 77 69 6e 64 6f 77 0d 46 |F...openwindow.F|
00009470 aa 05 e1 0d 46 b4 04 0d 46 be 25 dd 20 f2 72 65 |....F...F.%. .re|
00009480 64 6f 62 6f 78 28 77 69 6e 64 25 2c 78 30 25 2c |dobox(wind%,x0%,|
00009490 79 30 25 2c 78 31 25 2c 79 31 25 29 0d 46 c8 1a |y0%,x1%,y1%).F..|
000094a0 e7 20 78 31 25 3c 78 30 25 20 8c 20 c8 94 20 78 |. x1%<x0% . .. x|
000094b0 30 25 2c 78 31 25 0d 46 d2 1a e7 20 79 31 25 3c |0%,x1%.F... y1%<|
000094c0 79 30 25 20 8c 20 c8 94 20 79 30 25 2c 79 31 25 |y0% . .. y0%,y1%|
000094d0 0d 46 dc 2e c8 99 22 57 69 6d 70 5f 46 6f 72 63 |.F...."Wimp_Forc|
000094e0 65 52 65 64 72 61 77 22 2c 77 69 6e 64 25 2c 78 |eRedraw",wind%,x|
000094f0 30 25 2c 79 30 25 2c 78 31 25 2c 79 31 25 0d 46 |0%,y0%,x1%,y1%.F|
00009500 e6 05 e1 0d 46 f0 04 0d 46 fa 1a dd 20 f2 64 65 |....F...F... .de|
00009510 6c 65 74 65 77 69 6e 64 6f 77 28 f8 20 21 71 25 |letewindow(. !q%|
00009520 29 0d 47 04 1d c8 99 22 57 69 6d 70 5f 44 65 6c |).G...."Wimp_Del|
00009530 65 74 65 57 69 6e 64 6f 77 22 2c 2c 71 25 0d 47 |eteWindow",,q%.G|
00009540 0e 09 21 71 25 3d 30 0d 47 18 05 e1 0d 47 22 04 |..!q%=0.G....G".|
00009550 0d 47 2c 1d f4 20 3d 3d 3d 3d 20 69 63 6f 6e 20 |.G,.. ==== icon |
00009560 72 6f 75 74 69 6e 65 73 20 3d 3d 3d 3d 0d 47 36 |routines ====.G6|
00009570 04 0d 47 40 26 dd 20 f2 63 6c 69 63 6b 28 6d 78 |..G@&. .click(mx|
00009580 25 2c 6d 79 25 2c 62 75 74 25 2c 77 69 6e 64 25 |%,my%,but%,wind%|
00009590 2c 69 63 6f 6e 25 29 0d 47 4a 37 e7 20 a4 62 75 |,icon%).GJ7. .bu|
000095a0 74 74 79 70 65 28 77 69 6e 64 25 2c 69 63 6f 6e |ttype(wind%,icon|
000095b0 25 29 3d 39 20 8c 20 f2 66 6c 61 73 68 69 63 6f |%)=9 . .flashico|
000095c0 6e 28 77 69 6e 64 25 2c 69 63 6f 6e 25 29 0d 47 |n(wind%,icon%).G|
000095d0 54 12 69 64 25 3d a4 69 64 28 77 69 6e 64 25 29 |T.id%=.id(wind%)|
000095e0 0d 47 5e 0d c8 8e 20 62 75 74 25 20 ca 0d 47 68 |.G^... but% ..Gh|
000095f0 08 c9 20 36 34 0d 47 72 22 20 20 c8 8e 20 a4 62 |.. 64.Gr" .. .b|
00009600 75 74 74 79 70 65 28 77 25 28 69 64 25 29 2c 69 |uttype(w%(id%),i|
00009610 63 6f 6e 25 29 20 ca 0d 47 7c 2d 20 20 20 20 c9 |con%) ..G|- .|
00009620 20 36 2c 37 2c 38 2c 31 30 2c 31 34 20 3a 20 f2 | 6,7,8,10,14 : .|
00009630 73 74 61 72 74 64 72 61 67 28 69 64 25 2c 69 63 |startdrag(id%,ic|
00009640 6f 6e 25 29 0d 47 86 07 20 20 cb 0d 47 90 18 c9 |on%).G.. ..G...|
00009650 20 32 20 3a 20 f2 6f 70 65 6e 6d 65 6e 75 28 69 | 2 : .openmenu(i|
00009660 64 25 29 0d 47 9a 05 7f 0d 47 a4 1c 64 25 3d a0 |d%).G....G..d%=.|
00009670 28 22 46 4e 63 6c 69 63 6b 22 2b 69 64 24 28 69 |("FNclick"+id$(i|
00009680 64 25 29 29 0d 47 ae 05 cb 0d 47 b8 05 e1 0d 47 |d%)).G....G....G|
00009690 c2 04 0d 47 cc 0e dd 20 f2 65 6e 64 64 72 61 67 |...G... .enddrag|
000096a0 0d 47 d6 0e f2 6d 6f 75 73 65 69 6e 66 6f 0d 47 |.G...mouseinfo.G|
000096b0 e0 22 e7 20 64 72 61 67 25 20 8c 20 c8 99 22 44 |.". drag% . .."D|
000096c0 72 61 67 41 53 70 72 69 74 65 5f 53 74 6f 70 22 |ragASprite_Stop"|
000096d0 0d 47 ea 1f 64 25 3d a0 28 22 46 4e 64 72 6f 70 |.G..d%=.("FNdrop|
000096e0 22 2b 69 64 24 28 64 72 61 67 69 64 25 29 29 0d |"+id$(dragid%)).|
000096f0 47 f4 05 e1 0d 47 fe 04 0d 48 08 22 dd 20 f2 6b |G....G...H.". .k|
00009700 65 79 28 77 69 6e 64 25 2c 69 63 6f 6e 25 2c 78 |ey(wind%,icon%,x|
00009710 70 6f 73 25 2c 6b 65 79 25 29 0d 48 12 24 74 61 |pos%,key%).H.$ta|
00009720 6b 65 6e 3d a0 28 22 46 4e 6b 65 79 22 2b 69 64 |ken=.("FNkey"+id|
00009730 24 28 a4 69 64 28 77 69 6e 64 25 29 29 29 0d 48 |$(.id(wind%))).H|
00009740 1c 28 e7 20 74 61 6b 65 6e 3d a3 20 8c 20 c8 99 |.(. taken=. . ..|
00009750 22 57 69 6d 70 5f 50 72 6f 63 65 73 73 4b 65 79 |"Wimp_ProcessKey|
00009760 22 2c 6b 65 79 25 0d 48 26 05 e1 0d 48 30 04 0d |",key%.H&...H0..|
00009770 48 3a 28 dd 20 a4 69 6e 63 69 63 6f 6e 28 69 69 |H:(. .incicon(ii|
00009780 63 6f 6e 25 2c 64 65 63 25 2c 69 6e 63 25 2c 6c |con%,dec%,inc%,l|
00009790 62 25 2c 75 62 25 29 0d 48 44 0d 63 68 61 6e 67 |b%,ub%).HD.chang|
000097a0 65 25 3d a3 0d 48 4e 1f e7 20 69 63 6f 6e 25 3d |e%=..HN.. icon%=|
000097b0 64 65 63 25 20 84 20 69 63 6f 6e 25 3d 69 6e 63 |dec% . icon%=inc|
000097c0 25 20 8c 0d 48 58 21 76 61 6c 25 3d bb a4 69 63 |% ..HX!val%=..ic|
000097d0 6f 6e 74 65 78 74 28 77 69 6e 64 25 2c 69 69 63 |ontext(wind%,iic|
000097e0 6f 6e 25 29 0d 48 62 1a 76 61 6c 25 2b 3d 28 69 |on%).Hb.val%+=(i|
000097f0 63 6f 6e 25 3d 64 65 63 25 29 2a 32 2b 31 0d 48 |con%=dec%)*2+1.H|
00009800 6c 31 e7 20 76 61 6c 25 3e 75 62 25 20 8c 20 76 |l1. val%>ub% . v|
00009810 61 6c 25 3d 75 62 25 20 8b 20 e7 20 76 61 6c 25 |al%=ub% . . val%|
00009820 3c 6c 62 25 20 8c 20 76 61 6c 25 3d 6c 62 25 0d |<lb% . val%=lb%.|
00009830 48 76 26 f2 73 65 74 69 63 6f 6e 74 65 78 74 28 |Hv&.seticontext(|
00009840 77 69 6e 64 25 2c 69 69 63 6f 6e 25 2c c3 28 76 |wind%,iicon%,.(v|
00009850 61 6c 25 29 29 0d 48 80 1d f2 72 65 73 65 74 63 |al%)).H...resetc|
00009860 61 72 65 74 28 77 69 6e 64 25 2c 69 69 63 6f 6e |aret(wind%,iicon|
00009870 25 29 0d 48 8a 0d 63 68 61 6e 67 65 25 3d b9 0d |%).H..change%=..|
00009880 48 94 05 cd 0d 48 9e 05 cd 0d 48 a8 0c 3d 63 68 |H....H....H..=ch|
00009890 61 6e 67 65 25 0d 48 b2 04 0d 48 bc 1b dd 20 f2 |ange%.H...H... .|
000098a0 72 65 6d 6f 76 65 69 63 6f 6e 28 21 71 25 2c 71 |removeicon(!q%,q|
000098b0 25 21 34 29 0d 48 c6 10 71 25 21 38 3d 28 31 3c |%!4).H..q%!8=(1<|
000098c0 3c 32 34 29 0d 48 d0 29 71 25 21 31 32 3d 28 31 |<24).H.)q%!12=(1|
000098d0 3c 3c 32 29 84 28 31 3c 3c 35 29 84 28 31 35 3c |<<2).(1<<5).(15<|
000098e0 3c 32 34 29 84 28 31 35 3c 3c 31 32 29 0d 48 da |<24).(15<<12).H.|
000098f0 1d c8 99 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e |..."Wimp_SetIcon|
00009900 53 74 61 74 65 22 2c 2c 71 25 0d 48 e4 05 e1 0d |State",,q%.H....|
00009910 48 ee 04 0d 48 f8 1b dd 20 f2 72 65 69 6e 69 74 |H...H... .reinit|
00009920 69 63 6f 6e 28 21 71 25 2c 71 25 21 34 29 0d 49 |icon(!q%,q%!4).I|
00009930 02 26 71 25 21 38 3d 28 31 3c 3c 32 29 84 28 31 |.&q%!8=(1<<2).(1|
00009940 3c 3c 35 29 84 28 37 3c 3c 32 34 29 84 28 33 3c |<<5).(7<<24).(3<|
00009950 3c 31 32 29 0d 49 0c 29 71 25 21 31 32 3d 28 31 |<12).I.)q%!12=(1|
00009960 3c 3c 32 29 84 28 31 3c 3c 35 29 84 28 31 35 3c |<<2).(1<<5).(15<|
00009970 3c 31 32 29 84 28 31 35 3c 3c 32 34 29 0d 49 16 |<12).(15<<24).I.|
00009980 1d c8 99 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e |..."Wimp_SetIcon|
00009990 53 74 61 74 65 22 2c 2c 71 25 0d 49 20 05 e1 0d |State",,q%.I ...|
000099a0 49 2a 04 0d 49 34 16 dd 20 a4 69 63 6f 6e 6b 65 |I*..I4.. .iconke|
000099b0 79 73 28 64 61 74 61 25 29 0d 49 3e 0b 74 61 6b |ys(data%).I>.tak|
000099c0 65 6e 3d b9 0d 49 48 0c 69 63 6f 6e 73 25 3d 30 |en=..IH.icons%=0|
000099d0 0d 49 52 17 c8 95 20 64 61 74 61 25 3f 69 63 6f |.IR... data%?ico|
000099e0 6e 73 25 3c 32 35 35 0d 49 5c 0f 20 20 69 63 6f |ns%<255.I\. ico|
000099f0 6e 73 25 2b 3d 31 0d 49 66 05 ce 0d 49 70 0d 69 |ns%+=1.If...Ip.i|
00009a00 63 6f 6e 73 25 2d 3d 31 0d 49 7a 0d 66 6f 75 6e |cons%-=1.Iz.foun|
00009a10 64 25 3d 2d 31 0d 49 84 13 e3 20 70 25 3d 30 20 |d%=-1.I... p%=0 |
00009a20 b8 20 69 63 6f 6e 73 25 0d 49 8e 22 20 20 e7 20 |. icons%.I." . |
00009a30 64 61 74 61 25 3f 70 25 3d 69 63 6f 6e 25 20 8c |data%?p%=icon% .|
00009a40 20 66 6f 75 6e 64 25 3d 70 25 0d 49 98 08 ed 20 | found%=p%.I... |
00009a50 70 25 0d 49 a2 0f 6e 65 77 69 63 6f 6e 25 3d 2d |p%.I..newicon%=-|
00009a60 31 0d 49 ac 11 e7 20 66 6f 75 6e 64 25 3e 3d 30 |1.I... found%>=0|
00009a70 20 8c 0d 49 b6 0f 20 20 c8 8e 20 6b 65 79 25 20 | ..I.. .. key% |
00009a80 ca 0d 49 c0 20 20 20 20 20 c9 20 31 33 20 3a 20 |..I. . 13 : |
00009a90 6e 65 77 69 63 6f 6e 25 3d 66 6f 75 6e 64 25 2b |newicon%=found%+|
00009aa0 31 0d 49 ca 34 20 20 20 20 c9 20 26 31 38 45 20 |1.I.4 . &18E |
00009ab0 3a 20 e7 20 66 6f 75 6e 64 25 3c 69 63 6f 6e 73 |: . found%<icons|
00009ac0 25 20 8c 20 6e 65 77 69 63 6f 6e 25 3d 66 6f 75 |% . newicon%=fou|
00009ad0 6e 64 25 2b 31 0d 49 d4 2f 20 20 20 20 c9 20 26 |nd%+1.I./ . &|
00009ae0 31 38 46 20 3a 20 e7 20 66 6f 75 6e 64 25 3e 30 |18F : . found%>0|
00009af0 20 8c 20 6e 65 77 69 63 6f 6e 25 3d 66 6f 75 6e | . newicon%=foun|
00009b00 64 25 2d 31 0d 49 de 2a 20 20 20 20 c9 20 26 31 |d%-1.I.* . &1|
00009b10 39 45 2c 26 31 41 45 2c 26 31 42 45 20 3a 20 6e |9E,&1AE,&1BE : n|
00009b20 65 77 69 63 6f 6e 25 3d 69 63 6f 6e 73 25 0d 49 |ewicon%=icons%.I|
00009b30 e8 25 20 20 20 20 c9 20 26 31 39 46 2c 26 31 41 |.% . &19F,&1A|
00009b40 46 2c 26 31 42 46 20 3a 20 6e 65 77 69 63 6f 6e |F,&1BF : newicon|
00009b50 25 3d 30 0d 49 f2 07 20 20 7f 0d 49 fc 0f 20 20 |%=0.I.. ..I.. |
00009b60 20 20 74 61 6b 65 6e 3d a3 0d 4a 06 07 20 20 cb | taken=..J.. .|
00009b70 0d 4a 10 05 cd 0d 4a 1a 2c e7 20 6e 65 77 69 63 |.J....J.,. newic|
00009b80 6f 6e 25 3e 69 63 6f 6e 73 25 20 8c 20 74 61 6b |on%>icons% . tak|
00009b90 65 6e 3d 2d 32 3a 6e 65 77 69 63 6f 6e 25 3d 2d |en=-2:newicon%=-|
00009ba0 31 0d 4a 24 13 e7 20 6e 65 77 69 63 6f 6e 25 3e |1.J$.. newicon%>|
00009bb0 3d 30 20 8c 0d 4a 2e 0f 20 20 f2 67 65 74 63 61 |=0 ..J.. .getca|
00009bc0 72 65 74 0d 4a 38 2d 20 20 f2 70 75 74 63 61 72 |ret.J8- .putcar|
00009bd0 65 74 28 77 69 6e 64 25 2c 64 61 74 61 25 3f 6e |et(wind%,data%?n|
00009be0 65 77 69 63 6f 6e 25 2c 63 69 6e 64 65 78 25 29 |ewicon%,cindex%)|
00009bf0 0d 4a 42 05 cd 0d 4a 4c 0a 3d 74 61 6b 65 6e 0d |.JB...JL.=taken.|
00009c00 4a 56 04 0d 4a 60 1c f4 20 3d 3d 3d 3d 20 61 6e |JV..J`.. ==== an|
00009c10 64 20 74 68 65 20 72 65 73 74 20 3d 3d 3d 3d 0d |d the rest ====.|
00009c20 4a 6a 04 0d 4a 74 0e dd 20 a4 63 6c 69 63 6b 3d |Jj..Jt.. .click=|
00009c30 30 0d 4a 7e 04 0d 4a 88 0f dd 20 a4 72 65 64 72 |0.J~..J... .redr|
00009c40 61 77 3d 30 0d 4a 92 04 0d 4a 9c 0c dd 20 a4 6b |aw=0.J...J... .k|
00009c50 65 79 3d 30 0d 4a a6 04 0d 4a b0 0d dd 20 a4 64 |ey=0.J...J... .d|
00009c60 72 6f 70 3d 30 0d 4a ba 04 0d 4a c4 10 dd 20 f2 |rop=0.J...J... .|
00009c70 74 65 6d 70 28 73 74 24 29 0d 4a ce 11 e3 20 61 |temp(st$).J... a|
00009c80 25 3d 31 20 b8 20 a9 73 74 24 0d 4a d8 12 20 20 |%=1 . .st$.J.. |
00009c90 f1 97 c1 73 74 24 2c 61 25 2c 31 29 0d 4a e2 08 |...st$,a%,1).J..|
00009ca0 ed 20 61 25 0d 4a ec 05 e1 0d 4a f6 04 0d 4b 00 |. a%.J....J...K.|
00009cb0 0c dd 20 f2 65 72 72 6f 72 0d 4b 0a 17 c8 99 22 |.. .error.K...."|
00009cc0 48 6f 75 72 67 6c 61 73 73 5f 53 6d 61 73 68 22 |Hourglass_Smash"|
00009cd0 0d 4b 14 10 c8 8e 20 73 74 61 74 75 73 25 20 ca |.K.... status% .|
00009ce0 0d 4b 1e 09 20 20 c9 20 31 0d 4b 28 19 20 20 20 |.K.. . 1.K(. |
00009cf0 20 e7 20 70 72 69 6e 74 20 8c 20 d9 23 70 72 69 | . print . .#pri|
00009d00 6e 74 0d 4b 32 2e 20 20 20 20 72 65 70 6f 72 74 |nt.K2. report|
00009d10 24 3d 22 50 72 69 6e 74 20 65 72 72 6f 72 2c 20 |$="Print error, |
00009d20 70 72 69 6e 74 20 63 61 6e 63 65 6c 6c 65 64 22 |print cancelled"|
00009d30 0d 4b 3c 05 7f 0d 4b 46 4f 20 20 72 65 70 6f 72 |.K<...KFO repor|
00009d40 74 24 3d 22 41 6e 20 75 6e 63 6f 6e 74 72 6f 6c |t$="An uncontrol|
00009d50 61 62 6c 65 20 65 72 72 6f 72 20 68 61 73 20 6f |able error has o|
00009d60 63 63 75 72 65 64 20 28 22 2b f6 24 2b c3 28 9e |ccured ("+.$+.(.|
00009d70 29 2b 22 29 2c 20 73 68 61 6c 6c 20 49 20 65 78 |)+"), shall I ex|
00009d80 69 74 3f 22 0d 4b 50 05 cb 0d 4b 5a 18 65 78 69 |it?".KP...KZ.exi|
00009d90 74 3d a4 63 68 65 63 6b 28 72 65 70 6f 72 74 24 |t=.check(report$|
00009da0 29 0d 4b 64 0d 73 74 61 74 75 73 25 3d 30 0d 4b |).Kd.status%=0.K|
00009db0 6e 05 e1 0d ff |n....|
00009db5 
.