Home » Archimedes archive » Apps » Acorn Fonts - Starter Pack (1989)(Acorn Computers).adf » !FontCtrl/!RunImage
!FontCtrl/!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 » Apps » Acorn Fonts - Starter Pack (1989)(Acorn Computers).adf |
| Filename: | !FontCtrl/!RunImage |
| Read OK: | ✔ |
| File size: | 2F65 bytes |
| Load address: | FFFFFB42 |
| Exec address: | 9C6FF0B |
File contents
10REM > !FontCtrl.!RunImage (version 0.12, 17-Nov-89)
15
20DIM taskid%4:$taskid%="TASK"
30SYS "Wimp_Initialise",200,!taskid%,"Font Control" TO version%
40`wbcol=&0:`tbcol=15:`sco=&4:`mbcol=&2:`wfcol=&7:`tfcol=&7:`sci=&D:`tbcol2=&C
50PROCvars
60DIM q% &800,temp% 1000
70
80DIM buffers% 256
90DIM block 12
100SYS "Wimp_OpenTemplate",,"<Obey$Dir>.Templates"
110ON ERROR SYS "Wimp_CloseTemplate":ERROR EXT 99,REPORT$+"("+STR$ERR+","+STR$ERL+")"
120SYS "Wimp_LoadTemplate",,q%,temp%,temp%+1000,-1,"fontctrl",0
130SYS "Wimp_CreateWindow",,q% TO fctrl%
140SYS "Wimp_CloseTemplate"
150REM information related to template file
160fname%=temp%+13:fnameicon%=1
170fsize%=fname%+255:fsizeicon%=4
180fheight%=fsize%+4:fheighticon%=5
190screenx%=fheight%+4:screenxicon%=9
200printerx%=screenx%+4:printerxicon%=10
210screeny%=printerx%+4:screenyicon%=11
220printery%=screeny%+4:printeryicon%=12
230screenmakeicon=15:printermakeicon=16:screendelicon=47:printerdelicon=48
240rescupicon=33:rescdownicon=34:scrresc%=printery%+204
250 prtresc%=scrresc%+4:scrresc=24:prtresc=25:resc$="configure fontmax1 "
260aaupicon=36:aadownicon=38:scraa%=prtresc%+4:prtaa%=scraa%+8
270 scraa=26:prtaa=28:aa$="configure fontmax2 "
280cacheupicon=37:cachedownicon=39:scrcache%=scraa%+4
290 prtcache%=scrcache%+8:scrcache=27:prtcache=29:cache$="configure fontmax3 "
300horizupicon=41:horizdownicon=40:scrhoriz%=prtcache%+4
310 scrhoriz=30:horiz$="configure fontmax4 "
320vertupicon=42:vertdownicon=43:scrvert%=scrhoriz%+4:scrvert=31
330 vert$="configure fontmax5 "
340fontmaxicon=44:fontmax%=scrvert%+4:dispfontmax=32
350 fontmax$="configure fontmax "
360 !q%=fctrl%:q%!4=fontmaxicon:SYS "Wimp_GetIconState",,q%
370 fontmaxbarx=q%!8:fontmaxbary=q%!12+8
380!q%=fctrl%:q%!4=23:SYS"Wimp_GetIconState",,q%:helpbar%=q%!12
390redrawicon=45:reseticon=46:saveicon=49
400
410PROCgetpointer:PROCpopup(fctrl%)
420ONERROR PROCerrorbox
430SYS Drag,,-1:flg%=1
440SYS"Font_ReadFontMax" TO Ifontmax,Iresc,Iaa,Icache,Ihoriz,Ivert:PROCreset
450PROCsetold:PROCreadprintvalues:PROCgetmodestuff:PROCgetprintstuff:PROCfontmax
460MenuData=FALSE:HIMEM=END+1024:END=HIMEM+8*1024:menulimit=HIMEM:HIMEM=END+2048
470REPEAT
480 SYS Poll%,flg%,q% TO A%
490 CASE A% OF
500 WHEN 0 :IFflg%=0 PROCdragbar
510 WHEN 1 :PROCredraw_window(!q%)
520 WHEN 2 :PROCopen_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
530 WHEN 3 :PROCcloseawindow(!q%)
540 WHEN 4 :PROCupdateconfig
550 WHEN 5 :PROCsetold
560 WHEN 6 :PROCcheckmouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
570 WHEN 8 :PROCupdateconfig:SYS "Wimp_ProcessKey",q%!24
580 WHEN 9 :PROCmenuselect(q%)
590 WHEN 10:IF!q%=fctrl% PROCopen_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20+32*q%!32,q%!24+64*q%!36,q%!28)
600 WHEN 17,18:PROCreceive(q%)
610 ENDCASE
620UNTIL FALSE
630
640DEF PROCreceive(q%)
650CASE q%!16 OF
660WHEN 0:PROCfinish:END
670WHEN &502:PROCdohelp
680WHEN &400C1:PROCgetmodestuff
690WHEN &80143,&80147:PROCgetprintstuff
700ENDCASE
710ENDPROC
720
730DEFPROCdohelp
740IF q%!32=fctrl% THEN
750 mess1%=q%!4:mess2%=q%!8:messy%=q%!24
760 !q%=fctrl%:SYSGetW,,q%:PROCinfo(q%+4)
770 IFmessy%>helpbar%+by% THEN
780 a$="Cache outline fonts on disc for quicker use. MENU gives a list of the fonts available. Click 'Make' for screen or printer font, 'Del' to remove from disc. Height is the same as size if not specified."
790 ELSE
800 a$="Change persistent settings of outline font manager. Click 'Redraw' to see the effect of the changes. Click 'Reset' to reset the values to those on entry, 'Save' to remember the current values."
810 ENDIF
820 !q%=((20+LENa$+1)+3)ANDNOT3
830 q%!12=mess2%:q%!16=&503
840 $(q%+20)=a$:q%?(20+LENa$)=0
850 SYS"Wimp_SendMessage",17,q%,mess1%
860ENDIF
870ENDPROC
880
890DEF PROCgetmodestuff
900mode%=MODE
910SYS RMV,mode%,3 TO,,NColour
920SYS RMV,mode%,4 TO,,XEig
930SYS RMV,mode%,5 TO,,YEig
940SYS RMV,mode%,11 TO,,XWind
950SYS RMV,mode%,12 TO,,YWind
960Xpixels=XWind<<XEig:Ypixels=YWind<<YEig
970scrxppi=(1280>>XEig)/1280*180
980scryppi=(1024>>YEig)/1024*180
990$screenx%=STR$scrxppi:PROCupdateicon(screenxicon%)
1000$screeny%=STR$scryppi:PROCupdateicon(screenyicon%)
1010PROCresc:PROCaa:PROCcache:PROChoriz:PROCvert
1020ENDPROC
1030
1040DEF PROCreset
1050resc=Iresc/1152:aa=Iaa/1152:cache=Icache/1152:horiz=Ihoriz/1152
1060vert=Ivert/1152:fontmax=Ifontmax
1070ENDPROC
1080
1090DEF PROCgetprintstuff
1100PROCreadprintvalues
1110PROCupdateicon(printerxicon%)
1120PROCupdateicon(printeryicon%)
1130PROCresc:PROCaa:PROCcache
1140ENDPROC
1150
1160DEF PROCreadprintvalues
1170prtxppi=300:prtyppi=300
1180LOCAL ERROR
1190ON ERROR LOCAL $printerx%="?":$printery%="?":ENDPROC
1200SYS "PDriver_Info" TO,prtxppi,prtyppi
1210$printerx%=STR$prtxppi:$printery%=STR$prtyppi
1220ENDPROC
1230
1240DEF PROCresc
1250$scrresc%=FNstr(resc*72/scryppi):PROCupdateicon(scrresc)
1260$prtresc%=FNstr(resc*72/prtyppi):PROCupdateicon(prtresc)
1270ENDPROC
1280
1290DEF PROCaa
1300$scraa%=FNstr(aa*72/scryppi):PROCupdateicon(scraa)
1310$prtaa%=FNstr(aa*72/prtyppi):PROCupdateicon(prtaa)
1320ENDPROC
1330
1340DEF PROCcache
1350$scrcache%=FNstr(cache*72/scryppi):PROCupdateicon(scrcache)
1360$prtcache%=FNstr(cache*72/prtyppi):PROCupdateicon(prtcache)
1370ENDPROC
1380
1390DEF PROChoriz
1400IFhoriz=0 a$="OFF" ELSE a$=FNstr(horiz*72/scrxppi)
1410$scrhoriz%=a$:PROCupdateicon(scrhoriz)
1420ENDPROC
1430
1440DEF PROCvert
1450IFvert=0 a$="OFF" ELSE a$=FNstr(vert*72/scryppi)
1460$scrvert%=a$:PROCupdateicon(scrvert)
1470ENDPROC
1480
1490DEF PROCfontmax
1500$fontmax%=STR$(fontmax DIV1024)+"K":PROCupdateicon(dispfontmax):PROCupdateicon(fontmaxicon)
1510ENDPROC
1520
1530DEF FNstr(a)
1540LOCAL a$
1550a$=STR$INTa:a=a-VALa$:IFa>.74 a$+="�" ELSEIFa>.49 a$+="�" ELSE IFa>.24 a$+="�"
1560=LEFT$(a$,3)
1570
1580DEF PROCcheckmouse(mousex%,mousey%,b%,handle%,icon%,ob%)
1590IF(b%AND2)THEN
1600 CASE handle% OF
1610 WHEN fctrl%
1620 IF NOT MenuData THEN
1630 SYS "Hourglass_On"
1640 menustrings%=HIMEM:menudata%=menulimit-&1000
1650 menuptr%=menudata%:$menuptr%="Font Choice"
1660 menuptr%?12=7:menuptr%?13=2:menuptr%?14=7:menuptr%?15=0
1670 menuptr%!20=44:menuptr%!24=0:menuptr%+=28
1680 maxmw%=0:I%=1:c%=0:REPEAT
1690 SYS "Font_ListFonts",,q%,c% TO ,,c%
1700 IFc%>=0 THEN
1710 !menuptr%=0:menuptr%!4=-1:menuptr%!8=&07000021
1720 A%=LEN$q%:IFA%>maxmw% maxmw%=A%
1730 IFA%<12 THEN
1740 $(menuptr%+12)=$q%
1750 ELSE
1760 IFmenustrings%+A%+1>menudata% PROCmorespace
1770 B%=menustrings%:menustrings%+=A%+1:$B%=$q%
1780 menuptr%!12=B%:menuptr%!16=-1:menuptr%!20=A%+1:menuptr%!8+=&100
1790 ENDIF
1800 menuptr%+=24:I%+=1:IFmenuptr%+24>menulimit PROCmorespace
1810 ENDIF
1820 UNTIL c%<0
1830 menudata%!16=maxmw%*16+24
1840 menuptr%!-24+=&80 : REM set 'last' bit
1850 MenuData=TRUE
1860 SYS "Hourglass_Off"
1870 ENDIF
1880 menuhandle%=fctrl%
1890 SYS CrMenu,,menudata%,mousex%-102,mousey%+64
1900 ENDCASE
1910ENDIF
1920IF(b%AND4)THEN
1930 IFhandle%<>-1THENPROCgetw(handle%)
1940 CASE handle% OF
1950 WHEN fctrl%
1960 CASE icon% OF
1970 WHEN screenmakeicon
1980 PROCupdateconfig
1990 xsize=VAL$fsize%:ysize=VAL$fheight%:IFysize=0 ysize=xsize
2000 IFLEN$fname% SYS"Font_MakeBitmap",,$fname%,16*xsize,16*ysize,VAL$screenx%,VAL$screeny%,NColour>1 AND 1 OR xsize<=horiz*72/scrxppi AND 2 OR ysize<=vert*72/scryppi AND 4
2010 WHEN screendelicon
2020 xsize=VAL$fsize%:ysize=VAL$fheight%:IFysize=0 ysize=xsize
2030 IFLEN$fname% SYS"Font_MakeBitmap",,$fname%,16*xsize,16*ysize,VAL$screenx%,VAL$screeny%,NColour>1 AND 1 OR 8
2040 WHEN printermakeicon
2050 PROCupdateconfig
2060 xsize=VAL$fsize%:ysize=VAL$fheight%:IFysize=0 ysize=xsize
2070 IFLEN$fname% SYS"Font_MakeBitmap",,$fname%,16*xsize,16*ysize,VAL$printerx%,VAL$printery%,0
2080 WHEN printerdelicon
2090 xsize=VAL$fsize%:ysize=VAL$fheight%:IFysize=0 ysize=xsize
2100 IFLEN$fname% SYS"Font_MakeBitmap",,$fname%,16*xsize,16*ysize,VAL$printerx%,VAL$printery%,8
2110 WHEN rescupicon
2120 IFresc<256 resc+=1:PROCresc
2130 WHEN rescdownicon
2140 IFresc>0 resc-=1:PROCresc
2150 WHEN aaupicon
2160 IFaa<256 aa+=1:PROCaa
2170 WHEN aadownicon
2180 IFaa>0 aa-=1:PROCaa
2190 WHEN cacheupicon
2200 IFcache<256 cache+=1:PROCcache
2210 WHEN cachedownicon
2220 IFcache>0 cache-=1:PROCcache
2230 WHEN horizupicon
2240 IFhoriz<256 horiz+=1:PROChoriz
2250 WHEN horizdownicon
2260 IFhoriz>0 horiz-=1:PROChoriz
2270 WHEN vertupicon
2280 IFvert<256 vert+=1:PROCvert
2290 WHEN vertdownicon
2300 IFvert>0 vert-=1:PROCvert
2310 WHEN fontmaxicon
2320 !q%=fctrl%:SYSGetW,,q%:PROCinfo(q%+4)
2330 flg%=0:!q%=fctrl%:q%!4=7:q%!24=fontmaxbarx+bx%:q%!28=fontmaxbary+by%
2340 q%!32=q%!24+256:q%!36=q%!28+16:q%!8=mousex%:q%!12=q%!28+4
2350 q%!16=q%!8:q%!20=q%!12
2360 SYS Drag,,q%:oldfontmax=-1
2370 PROCdragbar
2380 WHEN redrawicon
2390 PROCupdateconfig:SYS "Wimp_ForceRedraw",-1,0,0,Xpixels,Ypixels
2400 WHEN reseticon
2410 PROCreset:PROCupdateconfig:PROCsetold
2420 PROCresc:PROCaa:PROCcache:PROChoriz:PROCvert:PROCfontmax
2430 WHEN saveicon
2440 Iresc=resc*1152:Iaa=aa*1152:Icache=cache*1152:Ihoriz=horiz*1152
2450 Ivert=vert*1152:Ifontmax=fontmax:PROCupdateconfig:PROCsetold
2460 ENDCASE
2470 ENDCASE
2480ENDIF
2490IF(b%AND1)THEN
2500 IFhandle%<>-1THENPROCgetw(handle%)
2510 CASE handle% OF
2520 WHEN fctrl%
2530 CASE icon% OF
2540 WHEN rescdownicon
2550 IFresc<256 resc+=1:PROCresc
2560 WHEN rescupicon
2570 IFresc>0 resc-=1:PROCresc
2580 WHEN aadownicon
2590 IFaa<256 aa+=1:PROCaa
2600 WHEN aaupicon
2610 IFaa>0 aa-=1:PROCaa
2620 WHEN cachedownicon
2630 IFcache<256 cache+=1:PROCcache
2640 WHEN cacheupicon
2650 IFcache>0 cache-=1:PROCcache
2660 WHEN horizdownicon
2670 IFhoriz<256 horiz+=1:PROChoriz
2680 WHEN horizupicon
2690 IFhoriz>0 horiz-=1:PROChoriz
2700 WHEN vertdownicon
2710 IFvert<256 vert+=1:PROCvert
2720 WHEN vertupicon
2730 IFvert>0 vert-=1:PROCvert
2740 ENDCASE
2750 ENDCASE
2760ENDIF
2770ENDPROC
2780
2790DEF PROCsetold
2800oldresc=resc:oldaa=aa:oldcache=cache:oldhoriz=horiz:oldvert=vert
2810ENDPROC
2820
2830DEF PROCupdateconfig
2840SYS"Hourglass_On"
2850IFoldresc<>resc OSCLIresc$+STR$resc
2860IFoldaa<>aa OSCLIaa$+STR$aa
2870IFoldcache<>cache OSCLIcache$+STR$cache
2880IFoldhoriz<>horiz OSCLIhoriz$+STR$horiz
2890IFoldvert<>vert OSCLIvert$+STR$vert
2900PROCsetold
2910SYS"Hourglass_Off"
2920ENDPROC
2930
2940DEF PROCmorespace
2950LOCAL A%,B%
2960SYS"Wimp_SlotSize",menulimit-&8000+&1000,-1 TO A%
2970IFA%+&8000=menulimit ERROR 224,"Can't get more space for menu"
2980menulimit=A%+&8000
2990B%=(menulimit-menuptr%+menudata%-menustrings%)/2 AND NOT 3
3000IFB%>menulimit-menuptr% B%=(menulimit-menuptr%)/2 AND NOT3
3010FORA%=menuptr% TO menudata% STEP-4
3020A%!B%=!A%:NEXT
3030menuptr%+=B%:menudata%+=B%
3040ENDPROC
3050
3060DEF PROCdragbar
3070PROCgetpointer:fontmax=(mousex%-(fontmaxbarx+bx%))*4096
3080IFfontmax>1020*1024 fontmax=1020*1024
3090IFfontmax<>oldfontmax OSCLIfontmax$+STR$(fontmax DIV1024)+"K":PROCfontmax:oldfontmax=fontmax
3100IFb%=0 flg%=1
3110ENDPROC
3120
3130DEF PROCcloseawindow(handle%)
3140PROCclose_window(handle%)
3150PROCfinish:END
3160ENDPROC
3170
3180DEF PROCfinish
3190SYS "Wimp_CloseDown":PROCupdateconfig
3200ENDPROC
3210
3220DEF PROCmenuselect(menus%)
3230ptsize%=12
3240SYS DcMenu,,menudata%,menus%,STRING$(200," ")TO,,,a$
3250IF a$="" THEN ENDPROC
3260CASE menuhandle% OF
3270WHEN fctrl%:$fname%=a$+CHR$0:PROCupdateicon(fnameicon%)
3280 SYS GetP,,q%:IFq%?8AND1 SYS CrMenu,,menudata%,mousex%-102,mousey%+64
3290ENDCASE
3300ENDPROC
3310
3320DEF PROCfctrl
3330WHILE more%
3340 SYS Col%,11:RECTANGLE FILL bx%+fontmaxbarx,by%+fontmaxbary,fontmax >>12,16
3350 SYS Col%,7:RECTANGLE bx%+fontmaxbarx,by%+fontmaxbary,fontmax >>12,16
3360 SYS GetR%,,q% TO more%
3370ENDWHILE
3380ENDPROC
3390
3400DEF PROCfront(handle%)
3410IFhandle%=-1THENENDPROC
3420PROCgetw(handle%)
3430PROCopen_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,-1)
3440ENDPROC
3450
3460DEF PROCpopup(handle%)
3470PROCgetw(handle%)
3480xo%=mousex%-(x0%+x1%)/2:yo%=mousey%-(y1%+64)
3490PROCopen_window(handle%,x0%+xo%,y0%+yo%,x1%+xo%,y1%+yo%,scx%,scy%,-1)
3500ENDPROC
3510
3520DEF PROCopen_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
3530IFhandle%=-1THENENDPROC
3540q%!0=handle%:q%!28=bhandle%
3550q%!4=x0%:q%!8=y0%:q%!12=x1%:q%!16=y1%
3560q%!20=scx%:q%!24=scy%
3570SYS OpenW,,q%
3580ENDPROC
3590
3600DEF PROCgetw(handle%)
3610!q%=handle%:SYS GetW,,q%
3620PROCinfo(q%+4):bhandle%=q%!28:flags%=q%!32
3630ENDPROC
3640
3650DEF PROCinfo(q%)
3660x0%=!q%:y0%=q%!4:x1%=q%!8:y1%=q%!12:scx%=q%!16:scy%=q%!20
3670bx%=x0%-scx%:by%=y1%-scy%
3680ENDPROC
3690
3700DEF PROCupdate(handle%,ux0%,uy0%,ux1%,uy1%)
3710!q%=handle%:q%!4=ux0%:q%!8=uy0%:q%!12=ux1%:q%!16=uy1%
3720SYS UpdateW,,q% TO more%:PROCinfo(q%+4)
3730ENDPROC
3740
3750DEF PROCredraw_window(handle%)
3760IFhandle%=fctrl% THEN
3770!q%=handle%
3780SYS RedrawW,,q% TO more%
3790PROCinfo(q%+4)
3800PROCfctrl
3810ENDIF
3820ENDPROC
3830
3840DEF PROCclose_window(handle%)
3850!q%=handle%:SYS CloseW,,q%
3860ENDPROC
3870
3880DEF PROCupdateicon(q%!4)
3890!q%=fctrl%:q%!8=0:q%!12=0
3900SYS SetIcon,,q%
3910ENDPROC
3920
3930DEF PROCvars
3940Font = (1<<18) + (2<<6)
3950FindFont= Font+1
3960LoseFont= Font+2
3970FontDefn= Font+3
3980Width = Font+5
3990Paint% = Font+6
4000Caret = Font+7
4010Wimp = (1<<18) + (3<<6)
4020CreateW = Wimp+1
4030OpenW = Wimp+5
4040CloseW = Wimp+6
4050Poll% = Wimp+7
4060RedrawW = Wimp+8
4070UpdateW = Wimp+9
4080GetR% = Wimp+10
4090GetW = Wimp+11
4100GetP = Wimp+15
4110Drag = Wimp+16
4120CrMenu = Wimp+20
4130DcMenu = Wimp+21
4140SetIcon = &400CD
4150SYS "OS_SWINumberFromString",,"Wimp_SetColour" TO Col%
4160SYS "OS_SWINumberFromString",,"OS_ReadModeVariable" TO RMV
4170SYS "OS_SWINumberFromString",,"OS_Byte" TO Byte
4180ENDPROC
4190
4200DEF PROCgetpointer
4210SYS GetP,,q%
4220mousex%=!q%:mousey%=q%!4:b%=q%!8:handle%=q%!12:icon%=q%!16:ob%=q%!20
4230ENDPROC
4240
4250DEF PROCerrorbox
4260SYS Drag,,-1:flg%=1
4270!buffers%=ERR:$(buffers%+4)=REPORT$+" at line "+STR$ERL+CHR$0
4280SYS "Wimp_ReportError",buffers%,1,"Font Control"
4290ENDPROC
5� > !FontCtrl.!RunImage (version 0.12, 17-Nov-89)
� taskid%4:$taskid%="TASK"
?ș "Wimp_Initialise",200,!taskid%,"Font Control" � version%
(P`wbcol=&0:`tbcol=15:`sco=&4:`mbcol=&2:`wfcol=&7:`tfcol=&7:`sci=&D:`tbcol2=&C
2 �vars
<� q% &800,temp% 1000
F
P� buffers% 256
Z� block 12
d2ș "Wimp_OpenTemplate",,"<Obey$Dir>.Templates"
n;� � ș "Wimp_CloseTemplate":� � 99,�$+"("+ß+","+Þ+")"
x?ș "Wimp_LoadTemplate",,q%,temp%,temp%+1000,-1,"fontctrl",0
�'ș "Wimp_CreateWindow",,q% � fctrl%
�ș "Wimp_CloseTemplate"
�*� information related to template file
� fname%=temp%+13:fnameicon%=1
�"fsize%=fname%+255:fsizeicon%=4
�$fheight%=fsize%+4:fheighticon%=5
�&screenx%=fheight%+4:screenxicon%=9
�)printerx%=screenx%+4:printerxicon%=10
�(screeny%=printerx%+4:screenyicon%=11
�)printery%=screeny%+4:printeryicon%=12
�Kscreenmakeicon=15:printermakeicon=16:screendelicon=47:printerdelicon=48
�8rescupicon=33:rescdownicon=34:scrresc%=printery%+204
�J prtresc%=scrresc%+4:scrresc=24:prtresc=25:resc$="configure fontmax1 "
?aaupicon=36:aadownicon=38:scraa%=prtresc%+4:prtaa%=scraa%+8
0 scraa=26:prtaa=28:aa$="configure fontmax2 "
6cacheupicon=37:cachedownicon=39:scrcache%=scraa%+4
"O prtcache%=scrcache%+8:scrcache=27:prtcache=29:cache$="configure fontmax3 "
,9horizupicon=41:horizdownicon=40:scrhoriz%=prtcache%+4
6- scrhoriz=30:horiz$="configure fontmax4 "
@Avertupicon=42:vertdownicon=43:scrvert%=scrhoriz%+4:scrvert=31
J vert$="configure fontmax5 "
T5fontmaxicon=44:fontmax%=scrvert%+4:dispfontmax=32
^" fontmax$="configure fontmax "
h; !q%=fctrl%:q%!4=fontmaxicon:ș "Wimp_GetIconState",,q%
r) fontmaxbarx=q%!8:fontmaxbary=q%!12+8
|?!q%=fctrl%:q%!4=23:ș"Wimp_GetIconState",,q%:helpbar%=q%!12
�*redrawicon=45:reseticon=46:saveicon=49
�
� �getpointer:�popup(fctrl%)
�� �errorbox
�ș Drag,,-1:flg%=1
�Hș"Font_ReadFontMax" � Ifontmax,Iresc,Iaa,Icache,Ihoriz,Ivert:�reset
�B�setold:�readprintvalues:�getmodestuff:�getprintstuff:�fontmax
�7MenuData=�:�=�+1024:�=�+8*1024:menulimit=�:�=�+2048
��
� ș Poll%,flg%,q% � A%
� Ȏ A% �
� � 0 :�flg%=0 �dragbar
� � 1 :�redraw_window(!q%)
C � 2 :�open_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
� 3 :�closeawindow(!q%)
� 4 :�updateconfig
& � 5 :�setold
06 � 6 :�checkmouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
:2 � 8 :�updateconfig:ș "Wimp_ProcessKey",q%!24
D � 9 :�menuselect(q%)
Na � 10:�!q%=fctrl% �open_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20+32*q%!32,q%!24+64*q%!36,q%!28)
X � 17,18:�receive(q%)
b �
l� �
v
�� �receive(q%)
�Ȏ q%!16 �
�� 0:�finish:�
�� &502:�dohelp
�� &400C1:�getmodestuff
�"� &80143,&80147:�getprintstuff
��
��
�
� ��dohelp
�� q%!32=fctrl% �
�) mess1%=q%!4:mess2%=q%!8:messy%=q%!24
�& !q%=fctrl%:șGetW,,q%:�info(q%+4)
�messy%>helpbar%+by% �
� a$="Cache outline fonts on disc for quicker use. MENU gives a list of the fonts available. Click 'Make' for screen or printer font, 'Del' to remove from disc. Height is the same as size if not specified."
�
� a$="Change persistent settings of outline font manager. Click 'Redraw' to see the effect of the changes. Click 'Reset' to reset the values to those on entry, 'Save' to remember the current values."
* �
4 !q%=((20+�a$+1)+3)��3
> q%!12=mess2%:q%!16=&503
H $(q%+20)=a$:q%?(20+�a$)=0
R& ș"Wimp_SendMessage",17,q%,mess1%
\�
f�
p
z� �getmodestuff
� mode%=�
� ș RMV,mode%,3 �,,NColour
�ș RMV,mode%,4 �,,XEig
�ș RMV,mode%,5 �,,YEig
� ș RMV,mode%,11 �,,XWind
� ș RMV,mode%,12 �,,YWind
�+Xpixels=XWind<<XEig:Ypixels=YWind<<YEig
�!scrxppi=(1280>>XEig)/1280*180
�!scryppi=(1024>>YEig)/1024*180
�0$screenx%=�scrxppi:�updateicon(screenxicon%)
�0$screeny%=�scryppi:�updateicon(screenyicon%)
�!�resc:�aa:�cache:�horiz:�vert
��
� �reset
Cresc=Iresc/1152:aa=Iaa/1152:cache=Icache/1152:horiz=Ihoriz/1152
$$vert=Ivert/1152:fontmax=Ifontmax
.�
8
B� �getprintstuff
L�readprintvalues
V �updateicon(printerxicon%)
` �updateicon(printeryicon%)
j�resc:�aa:�cache
t�
~
�� �readprintvalues
�prtxppi=300:prtyppi=300
�� �
�)� � � $printerx%="?":$printery%="?":�
�'ș "PDriver_Info" �,prtxppi,prtyppi
�+$printerx%=�prtxppi:$printery%=�prtyppi
��
�
� � �resc
�8$scrresc%=�str(resc*72/scryppi):�updateicon(scrresc)
�8$prtresc%=�str(resc*72/prtyppi):�updateicon(prtresc)
��
� �aa
2$scraa%=�str(aa*72/scryppi):�updateicon(scraa)
2$prtaa%=�str(aa*72/prtyppi):�updateicon(prtaa)
(�
2
< � �cache
F;$scrcache%=�str(cache*72/scryppi):�updateicon(scrcache)
P;$prtcache%=�str(cache*72/prtyppi):�updateicon(prtcache)
Z�
d
n � �horiz
x1�horiz=0 a$="OFF" � a$=�str(horiz*72/scrxppi)
�'$scrhoriz%=a$:�updateicon(scrhoriz)
��
�
� � �vert
�/�vert=0 a$="OFF" � a$=�str(vert*72/scryppi)
�%$scrvert%=a$:�updateicon(scrvert)
��
�
�� �fontmax
�T$fontmax%=�(fontmax �1024)+"K":�updateicon(dispfontmax):�updateicon(fontmaxicon)
��
�
�
� �str(a)
� a$
Ba$=èa:a=a-�a$:�a>.74 a$+="�" ��a>.49 a$+="�" � �a>.24 a$+="�"
=�a$,3)
"
,7� �checkmouse(mousex%,mousey%,b%,handle%,icon%,ob%)
6 �(b%�2)�
@ Ȏ handle% �
J
� fctrl%
T � � MenuData �
^ ș "Hourglass_On"
h. menustrings%=�:menudata%=menulimit-&1000
r0 menuptr%=menudata%:$menuptr%="Font Choice"
|= menuptr%?12=7:menuptr%?13=2:menuptr%?14=7:menuptr%?15=0
�/ menuptr%!20=44:menuptr%!24=0:menuptr%+=28
� maxmw%=0:I%=1:c%=0:�
�' ș "Font_ListFonts",,q%,c% � ,,c%
� �c%>=0 �
�5 !menuptr%=0:menuptr%!4=-1:menuptr%!8=&07000021
�# A%=�$q%:�A%>maxmw% maxmw%=A%
� �A%<12 �
� $(menuptr%+12)=$q%
� �
�. �menustrings%+A%+1>menudata% �morespace
�1 B%=menustrings%:menustrings%+=A%+1:$B%=$q%
�F menuptr%!12=B%:menuptr%!16=-1:menuptr%!20=A%+1:menuptr%!8+=&100
� �
; menuptr%+=24:I%+=1:�menuptr%+24>menulimit �morespace
�
� c%<0
& menudata%!16=maxmw%*16+24
0+ menuptr%!-24+=&80 : � set 'last' bit
: MenuData=�
D ș "Hourglass_Off"
N �
X menuhandle%=fctrl%
b0 ș CrMenu,,menudata%,mousex%-102,mousey%+64
l �
v�
� �(b%�4)�
� �handle%<>-1��getw(handle%)
� Ȏ handle% �
�
� fctrl%
� Ȏ icon% �
� � screenmakeicon
� �updateconfig
�; xsize=�$fsize%:ysize=�$fheight%:�ysize=0 ysize=xsize
О �$fname% ș"Font_MakeBitmap",,$fname%,16*xsize,16*ysize,�$screenx%,�$screeny%,NColour>1 � 1 � xsize<=horiz*72/scrxppi � 2 � ysize<=vert*72/scryppi � 4
� � screendelicon
�; xsize=�$fsize%:ysize=�$fheight%:�ysize=0 ysize=xsize
�g �$fname% ș"Font_MakeBitmap",,$fname%,16*xsize,16*ysize,�$screenx%,�$screeny%,NColour>1 � 1 � 8
� � printermakeicon
�updateconfig
; xsize=�$fsize%:ysize=�$fheight%:�ysize=0 ysize=xsize
Y �$fname% ș"Font_MakeBitmap",,$fname%,16*xsize,16*ysize,�$printerx%,�$printery%,0
� printerdelicon
*; xsize=�$fsize%:ysize=�$fheight%:�ysize=0 ysize=xsize
4Y �$fname% ș"Font_MakeBitmap",,$fname%,16*xsize,16*ysize,�$printerx%,�$printery%,8
> � rescupicon
H �resc<256 resc+=1:�resc
R � rescdownicon
\ �resc>0 resc-=1:�resc
f � aaupicon
p �aa<256 aa+=1:�aa
z � aadownicon
� �aa>0 aa-=1:�aa
� � cacheupicon
�! �cache<256 cache+=1:�cache
� � cachedownicon
� �cache>0 cache-=1:�cache
� � horizupicon
�! �horiz<256 horiz+=1:�horiz
� � horizdownicon
� �horiz>0 horiz-=1:�horiz
� � vertupicon
� �vert<256 vert+=1:�vert
� � vertdownicon
� �vert>0 vert-=1:�vert
� fontmaxicon
( !q%=fctrl%:șGetW,,q%:�info(q%+4)
K flg%=0:!q%=fctrl%:q%!4=7:q%!24=fontmaxbarx+bx%:q%!28=fontmaxbary+by%
$@ q%!32=q%!24+256:q%!36=q%!28+16:q%!8=mousex%:q%!12=q%!28+4
. q%!16=q%!8:q%!20=q%!12
8 ș Drag,,q%:oldfontmax=-1
B �dragbar
L � redrawicon
VA �updateconfig:ș "Wimp_ForceRedraw",-1,0,0,Xpixels,Ypixels
` � reseticon
j# �reset:�updateconfig:�setold
t- �resc:�aa:�cache:�horiz:�vert:�fontmax
~ � saveicon
�F Iresc=resc*1152:Iaa=aa*1152:Icache=cache*1152:Ihoriz=horiz*1152
�= Ivert=vert*1152:Ifontmax=fontmax:�updateconfig:�setold
� �
� �
��
� �(b%�1)�
� �handle%<>-1��getw(handle%)
� Ȏ handle% �
�
� fctrl%
� Ȏ icon% �
� � rescdownicon
� �resc<256 resc+=1:�resc
� rescupicon
�resc>0 resc-=1:�resc
� aadownicon
�aa<256 aa+=1:�aa
( � aaupicon
2 �aa>0 aa-=1:�aa
< � cachedownicon
F! �cache<256 cache+=1:�cache
P � cacheupicon
Z �cache>0 cache-=1:�cache
d � horizdownicon
n! �horiz<256 horiz+=1:�horiz
x � horizupicon
� �horiz>0 horiz-=1:�horiz
� � vertdownicon
� �vert<256 vert+=1:�vert
� � vertupicon
� �vert>0 vert-=1:�vert
� �
� �
��
��
�
�
� �setold
�Doldresc=resc:oldaa=aa:oldcache=cache:oldhoriz=horiz:oldvert=vert
��
� �updateconfig
ș"Hourglass_On"
" �oldresc<>resc �resc$+�resc
,�oldaa<>aa �aa$+�aa
6#�oldcache<>cache �cache$+�cache
@#�oldhoriz<>horiz �horiz$+�horiz
J �oldvert<>vert �vert$+�vert
T �setold
^ș"Hourglass_Off"
h�
r
|� �morespace
� � A%,B%
�3ș"Wimp_SlotSize",menulimit-&8000+&1000,-1 � A%
�=�A%+&8000=menulimit � 224,"Can't get more space for menu"
�menulimit=A%+&8000
�:B%=(menulimit-menuptr%+menudata%-menustrings%)/2 � � 3
�9�B%>menulimit-menuptr% B%=(menulimit-menuptr%)/2 � �3
� �A%=menuptr% � menudata% �-4
�A%!B%=!A%:�
� menuptr%+=B%:menudata%+=B%
��
�
�� �dragbar
�8�getpointer:fontmax=(mousex%-(fontmaxbarx+bx%))*4096
(�fontmax>1020*1024 fontmax=1020*1024
S�fontmax<>oldfontmax �fontmax$+�(fontmax �1024)+"K":�fontmax:oldfontmax=fontmax
�b%=0 flg%=1
&�
0
: � �closeawindow(handle%)
D�close_window(handle%)
N
�finish:�
X�
b
l
� �finish
v%ș "Wimp_CloseDown":�updateconfig
��
�
�� �menuselect(menus%)
�ptsize%=12
�/ș DcMenu,,menudata%,menus%,�200," ")�,,,a$
�� a$="" � �
�Ȏ menuhandle% �
�2� fctrl%:$fname%=a$+�0:�updateicon(fnameicon%)
�D ș GetP,,q%:�q%?8�1 ș CrMenu,,menudata%,mousex%-102,mousey%+64
��
��
�
� � �fctrl
ȕ more%
E ș Col%,11:ȓ Ȑ bx%+fontmaxbarx,by%+fontmaxbary,fontmax >>12,16
A ș Col%,7:ȓ bx%+fontmaxbarx,by%+fontmaxbary,fontmax >>12,16
ș GetR%,,q% � more%
*�
4�
>
H� �front(handle%)
R�handle%=-1��
\�getw(handle%)
f6�open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,-1)
p�
z
�� �popup(handle%)
��getw(handle%)
�0xo%=mousex%-(x0%+x1%)/2:yo%=mousey%-(y1%+64)
�F�open_window(handle%,x0%+xo%,y0%+yo%,x1%+xo%,y1%+yo%,scx%,scy%,-1)
��
�
�>� �open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
��handle%=-1��
� q%!0=handle%:q%!28=bhandle%
�)q%!4=x0%:q%!8=y0%:q%!12=x1%:q%!16=y1%
�q%!20=scx%:q%!24=scy%
�ș OpenW,,q%
��
� �getw(handle%)
!q%=handle%:ș GetW,,q%
$+�info(q%+4):bhandle%=q%!28:flags%=q%!32
.�
8
B� �info(q%)
L=x0%=!q%:y0%=q%!4:x1%=q%!8:y1%=q%!12:scx%=q%!16:scy%=q%!20
V bx%=x0%-scx%:by%=y1%-scy%
`�
j
t*� �update(handle%,ux0%,uy0%,ux1%,uy1%)
~9!q%=handle%:q%!4=ux0%:q%!8=uy0%:q%!12=ux1%:q%!16=uy1%
�&ș UpdateW,,q% � more%:�info(q%+4)
��
�
� � �redraw_window(handle%)
��handle%=fctrl% �
�!q%=handle%
�ș RedrawW,,q% � more%
��info(q%+4)
�
�fctrl
��
��
�
� �close_window(handle%)
!q%=handle%:ș CloseW,,q%
�
(� �updateicon(q%!4)
2 !q%=fctrl%:q%!8=0:q%!12=0
<ș SetIcon,,q%
F�
P
Z � �vars
d Font = (1<<18) + (2<<6)
nFindFont= Font+1
xLoseFont= Font+2
�FontDefn= Font+3
�Width = Font+5
�Paint% = Font+6
�Caret = Font+7
� Wimp = (1<<18) + (3<<6)
�CreateW = Wimp+1
�OpenW = Wimp+5
�CloseW = Wimp+6
�Poll% = Wimp+7
�RedrawW = Wimp+8
�UpdateW = Wimp+9
�GetR% = Wimp+10
�GetW = Wimp+11
GetP = Wimp+15
Drag = Wimp+16
CrMenu = Wimp+20
"DcMenu = Wimp+21
,SetIcon = &400CD
68ș "OS_SWINumberFromString",,"Wimp_SetColour" � Col%
@<ș "OS_SWINumberFromString",,"OS_ReadModeVariable" � RMV
J1ș "OS_SWINumberFromString",,"OS_Byte" � Byte
T�
^
h� �getpointer
rș GetP,,q%
|Hmousex%=!q%:mousey%=q%!4:b%=q%!8:handle%=q%!12:icon%=q%!16:ob%=q%!20
��
�
�� �errorbox
�ș Drag,,-1:flg%=1
�2!buffers%=�:$(buffers%+4)=�$+" at line "+Þ+�0
�3ș "Wimp_ReportError",buffers%,1,"Font Control"
��
� 00000000 0d 00 0a 35 f4 20 3e 20 21 46 6f 6e 74 43 74 72 |...5. > !FontCtr|
00000010 6c 2e 21 52 75 6e 49 6d 61 67 65 20 28 76 65 72 |l.!RunImage (ver|
00000020 73 69 6f 6e 20 30 2e 31 32 2c 20 31 37 2d 4e 6f |sion 0.12, 17-No|
00000030 76 2d 38 39 29 0d 00 0f 05 20 0d 00 14 1e de 20 |v-89).... ..... |
00000040 74 61 73 6b 69 64 25 34 3a 24 74 61 73 6b 69 64 |taskid%4:$taskid|
00000050 25 3d 22 54 41 53 4b 22 0d 00 1e 3f c8 99 20 22 |%="TASK"...?.. "|
00000060 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 73 65 22 |Wimp_Initialise"|
00000070 2c 32 30 30 2c 21 74 61 73 6b 69 64 25 2c 22 46 |,200,!taskid%,"F|
00000080 6f 6e 74 20 43 6f 6e 74 72 6f 6c 22 20 b8 20 76 |ont Control" . v|
00000090 65 72 73 69 6f 6e 25 0d 00 28 50 60 77 62 63 6f |ersion%..(P`wbco|
000000a0 6c 3d 26 30 3a 60 74 62 63 6f 6c 3d 31 35 3a 60 |l=&0:`tbcol=15:`|
000000b0 73 63 6f 3d 26 34 3a 60 6d 62 63 6f 6c 3d 26 32 |sco=&4:`mbcol=&2|
000000c0 3a 60 77 66 63 6f 6c 3d 26 37 3a 60 74 66 63 6f |:`wfcol=&7:`tfco|
000000d0 6c 3d 26 37 3a 60 73 63 69 3d 26 44 3a 60 74 62 |l=&7:`sci=&D:`tb|
000000e0 63 6f 6c 32 3d 26 43 0d 00 32 09 f2 76 61 72 73 |col2=&C..2..vars|
000000f0 0d 00 3c 18 de 20 71 25 20 26 38 30 30 2c 74 65 |..<.. q% &800,te|
00000100 6d 70 25 20 31 30 30 30 0d 00 46 04 0d 00 50 12 |mp% 1000..F...P.|
00000110 de 20 62 75 66 66 65 72 73 25 20 32 35 36 0d 00 |. buffers% 256..|
00000120 5a 0e de 20 62 6c 6f 63 6b 20 31 32 0d 00 64 32 |Z.. block 12..d2|
00000130 c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e 54 65 6d |.. "Wimp_OpenTem|
00000140 70 6c 61 74 65 22 2c 2c 22 3c 4f 62 65 79 24 44 |plate",,"<Obey$D|
00000150 69 72 3e 2e 54 65 6d 70 6c 61 74 65 73 22 0d 00 |ir>.Templates"..|
00000160 6e 3b ee 20 85 20 c8 99 20 22 57 69 6d 70 5f 43 |n;. . .. "Wimp_C|
00000170 6c 6f 73 65 54 65 6d 70 6c 61 74 65 22 3a 85 20 |loseTemplate":. |
00000180 a2 20 39 39 2c f6 24 2b 22 28 22 2b c3 9f 2b 22 |. 99,.$+"("+..+"|
00000190 2c 22 2b c3 9e 2b 22 29 22 0d 00 78 3f c8 99 20 |,"+..+")"..x?.. |
000001a0 22 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 |"Wimp_LoadTempla|
000001b0 74 65 22 2c 2c 71 25 2c 74 65 6d 70 25 2c 74 65 |te",,q%,temp%,te|
000001c0 6d 70 25 2b 31 30 30 30 2c 2d 31 2c 22 66 6f 6e |mp%+1000,-1,"fon|
000001d0 74 63 74 72 6c 22 2c 30 0d 00 82 27 c8 99 20 22 |tctrl",0...'.. "|
000001e0 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f |Wimp_CreateWindo|
000001f0 77 22 2c 2c 71 25 20 b8 20 66 63 74 72 6c 25 0d |w",,q% . fctrl%.|
00000200 00 8c 1b c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 |..... "Wimp_Clos|
00000210 65 54 65 6d 70 6c 61 74 65 22 0d 00 96 2a f4 20 |eTemplate"...*. |
00000220 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 72 65 6c 61 |information rela|
00000230 74 65 64 20 74 6f 20 74 65 6d 70 6c 61 74 65 20 |ted to template |
00000240 66 69 6c 65 0d 00 a0 20 66 6e 61 6d 65 25 3d 74 |file... fname%=t|
00000250 65 6d 70 25 2b 31 33 3a 66 6e 61 6d 65 69 63 6f |emp%+13:fnameico|
00000260 6e 25 3d 31 0d 00 aa 22 66 73 69 7a 65 25 3d 66 |n%=1..."fsize%=f|
00000270 6e 61 6d 65 25 2b 32 35 35 3a 66 73 69 7a 65 69 |name%+255:fsizei|
00000280 63 6f 6e 25 3d 34 0d 00 b4 24 66 68 65 69 67 68 |con%=4...$fheigh|
00000290 74 25 3d 66 73 69 7a 65 25 2b 34 3a 66 68 65 69 |t%=fsize%+4:fhei|
000002a0 67 68 74 69 63 6f 6e 25 3d 35 0d 00 be 26 73 63 |ghticon%=5...&sc|
000002b0 72 65 65 6e 78 25 3d 66 68 65 69 67 68 74 25 2b |reenx%=fheight%+|
000002c0 34 3a 73 63 72 65 65 6e 78 69 63 6f 6e 25 3d 39 |4:screenxicon%=9|
000002d0 0d 00 c8 29 70 72 69 6e 74 65 72 78 25 3d 73 63 |...)printerx%=sc|
000002e0 72 65 65 6e 78 25 2b 34 3a 70 72 69 6e 74 65 72 |reenx%+4:printer|
000002f0 78 69 63 6f 6e 25 3d 31 30 0d 00 d2 28 73 63 72 |xicon%=10...(scr|
00000300 65 65 6e 79 25 3d 70 72 69 6e 74 65 72 78 25 2b |eeny%=printerx%+|
00000310 34 3a 73 63 72 65 65 6e 79 69 63 6f 6e 25 3d 31 |4:screenyicon%=1|
00000320 31 0d 00 dc 29 70 72 69 6e 74 65 72 79 25 3d 73 |1...)printery%=s|
00000330 63 72 65 65 6e 79 25 2b 34 3a 70 72 69 6e 74 65 |creeny%+4:printe|
00000340 72 79 69 63 6f 6e 25 3d 31 32 0d 00 e6 4b 73 63 |ryicon%=12...Ksc|
00000350 72 65 65 6e 6d 61 6b 65 69 63 6f 6e 3d 31 35 3a |reenmakeicon=15:|
00000360 70 72 69 6e 74 65 72 6d 61 6b 65 69 63 6f 6e 3d |printermakeicon=|
00000370 31 36 3a 73 63 72 65 65 6e 64 65 6c 69 63 6f 6e |16:screendelicon|
00000380 3d 34 37 3a 70 72 69 6e 74 65 72 64 65 6c 69 63 |=47:printerdelic|
00000390 6f 6e 3d 34 38 0d 00 f0 38 72 65 73 63 75 70 69 |on=48...8rescupi|
000003a0 63 6f 6e 3d 33 33 3a 72 65 73 63 64 6f 77 6e 69 |con=33:rescdowni|
000003b0 63 6f 6e 3d 33 34 3a 73 63 72 72 65 73 63 25 3d |con=34:scrresc%=|
000003c0 70 72 69 6e 74 65 72 79 25 2b 32 30 34 0d 00 fa |printery%+204...|
000003d0 4a 20 70 72 74 72 65 73 63 25 3d 73 63 72 72 65 |J prtresc%=scrre|
000003e0 73 63 25 2b 34 3a 73 63 72 72 65 73 63 3d 32 34 |sc%+4:scrresc=24|
000003f0 3a 70 72 74 72 65 73 63 3d 32 35 3a 72 65 73 63 |:prtresc=25:resc|
00000400 24 3d 22 63 6f 6e 66 69 67 75 72 65 20 66 6f 6e |$="configure fon|
00000410 74 6d 61 78 31 20 22 0d 01 04 3f 61 61 75 70 69 |tmax1 "...?aaupi|
00000420 63 6f 6e 3d 33 36 3a 61 61 64 6f 77 6e 69 63 6f |con=36:aadownico|
00000430 6e 3d 33 38 3a 73 63 72 61 61 25 3d 70 72 74 72 |n=38:scraa%=prtr|
00000440 65 73 63 25 2b 34 3a 70 72 74 61 61 25 3d 73 63 |esc%+4:prtaa%=sc|
00000450 72 61 61 25 2b 38 0d 01 0e 30 20 73 63 72 61 61 |raa%+8...0 scraa|
00000460 3d 32 36 3a 70 72 74 61 61 3d 32 38 3a 61 61 24 |=26:prtaa=28:aa$|
00000470 3d 22 63 6f 6e 66 69 67 75 72 65 20 66 6f 6e 74 |="configure font|
00000480 6d 61 78 32 20 22 0d 01 18 36 63 61 63 68 65 75 |max2 "...6cacheu|
00000490 70 69 63 6f 6e 3d 33 37 3a 63 61 63 68 65 64 6f |picon=37:cachedo|
000004a0 77 6e 69 63 6f 6e 3d 33 39 3a 73 63 72 63 61 63 |wnicon=39:scrcac|
000004b0 68 65 25 3d 73 63 72 61 61 25 2b 34 0d 01 22 4f |he%=scraa%+4.."O|
000004c0 20 70 72 74 63 61 63 68 65 25 3d 73 63 72 63 61 | prtcache%=scrca|
000004d0 63 68 65 25 2b 38 3a 73 63 72 63 61 63 68 65 3d |che%+8:scrcache=|
000004e0 32 37 3a 70 72 74 63 61 63 68 65 3d 32 39 3a 63 |27:prtcache=29:c|
000004f0 61 63 68 65 24 3d 22 63 6f 6e 66 69 67 75 72 65 |ache$="configure|
00000500 20 66 6f 6e 74 6d 61 78 33 20 22 0d 01 2c 39 68 | fontmax3 "..,9h|
00000510 6f 72 69 7a 75 70 69 63 6f 6e 3d 34 31 3a 68 6f |orizupicon=41:ho|
00000520 72 69 7a 64 6f 77 6e 69 63 6f 6e 3d 34 30 3a 73 |rizdownicon=40:s|
00000530 63 72 68 6f 72 69 7a 25 3d 70 72 74 63 61 63 68 |crhoriz%=prtcach|
00000540 65 25 2b 34 0d 01 36 2d 20 73 63 72 68 6f 72 69 |e%+4..6- scrhori|
00000550 7a 3d 33 30 3a 68 6f 72 69 7a 24 3d 22 63 6f 6e |z=30:horiz$="con|
00000560 66 69 67 75 72 65 20 66 6f 6e 74 6d 61 78 34 20 |figure fontmax4 |
00000570 22 0d 01 40 41 76 65 72 74 75 70 69 63 6f 6e 3d |"..@Avertupicon=|
00000580 34 32 3a 76 65 72 74 64 6f 77 6e 69 63 6f 6e 3d |42:vertdownicon=|
00000590 34 33 3a 73 63 72 76 65 72 74 25 3d 73 63 72 68 |43:scrvert%=scrh|
000005a0 6f 72 69 7a 25 2b 34 3a 73 63 72 76 65 72 74 3d |oriz%+4:scrvert=|
000005b0 33 31 0d 01 4a 20 20 76 65 72 74 24 3d 22 63 6f |31..J vert$="co|
000005c0 6e 66 69 67 75 72 65 20 66 6f 6e 74 6d 61 78 35 |nfigure fontmax5|
000005d0 20 22 0d 01 54 35 66 6f 6e 74 6d 61 78 69 63 6f | "..T5fontmaxico|
000005e0 6e 3d 34 34 3a 66 6f 6e 74 6d 61 78 25 3d 73 63 |n=44:fontmax%=sc|
000005f0 72 76 65 72 74 25 2b 34 3a 64 69 73 70 66 6f 6e |rvert%+4:dispfon|
00000600 74 6d 61 78 3d 33 32 0d 01 5e 22 20 66 6f 6e 74 |tmax=32..^" font|
00000610 6d 61 78 24 3d 22 63 6f 6e 66 69 67 75 72 65 20 |max$="configure |
00000620 66 6f 6e 74 6d 61 78 20 22 0d 01 68 3b 20 21 71 |fontmax "..h; !q|
00000630 25 3d 66 63 74 72 6c 25 3a 71 25 21 34 3d 66 6f |%=fctrl%:q%!4=fo|
00000640 6e 74 6d 61 78 69 63 6f 6e 3a c8 99 20 22 57 69 |ntmaxicon:.. "Wi|
00000650 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 |mp_GetIconState"|
00000660 2c 2c 71 25 0d 01 72 29 20 66 6f 6e 74 6d 61 78 |,,q%..r) fontmax|
00000670 62 61 72 78 3d 71 25 21 38 3a 66 6f 6e 74 6d 61 |barx=q%!8:fontma|
00000680 78 62 61 72 79 3d 71 25 21 31 32 2b 38 0d 01 7c |xbary=q%!12+8..||
00000690 3f 21 71 25 3d 66 63 74 72 6c 25 3a 71 25 21 34 |?!q%=fctrl%:q%!4|
000006a0 3d 32 33 3a c8 99 22 57 69 6d 70 5f 47 65 74 49 |=23:.."Wimp_GetI|
000006b0 63 6f 6e 53 74 61 74 65 22 2c 2c 71 25 3a 68 65 |conState",,q%:he|
000006c0 6c 70 62 61 72 25 3d 71 25 21 31 32 0d 01 86 2a |lpbar%=q%!12...*|
000006d0 72 65 64 72 61 77 69 63 6f 6e 3d 34 35 3a 72 65 |redrawicon=45:re|
000006e0 73 65 74 69 63 6f 6e 3d 34 36 3a 73 61 76 65 69 |seticon=46:savei|
000006f0 63 6f 6e 3d 34 39 0d 01 90 04 0d 01 9a 1e f2 67 |con=49.........g|
00000700 65 74 70 6f 69 6e 74 65 72 3a f2 70 6f 70 75 70 |etpointer:.popup|
00000710 28 66 63 74 72 6c 25 29 0d 01 a4 10 ee 85 20 f2 |(fctrl%)...... .|
00000720 65 72 72 6f 72 62 6f 78 0d 01 ae 16 c8 99 20 44 |errorbox...... D|
00000730 72 61 67 2c 2c 2d 31 3a 66 6c 67 25 3d 31 0d 01 |rag,,-1:flg%=1..|
00000740 b8 48 c8 99 22 46 6f 6e 74 5f 52 65 61 64 46 6f |.H.."Font_ReadFo|
00000750 6e 74 4d 61 78 22 20 b8 20 49 66 6f 6e 74 6d 61 |ntMax" . Ifontma|
00000760 78 2c 49 72 65 73 63 2c 49 61 61 2c 49 63 61 63 |x,Iresc,Iaa,Icac|
00000770 68 65 2c 49 68 6f 72 69 7a 2c 49 76 65 72 74 3a |he,Ihoriz,Ivert:|
00000780 f2 72 65 73 65 74 0d 01 c2 42 f2 73 65 74 6f 6c |.reset...B.setol|
00000790 64 3a f2 72 65 61 64 70 72 69 6e 74 76 61 6c 75 |d:.readprintvalu|
000007a0 65 73 3a f2 67 65 74 6d 6f 64 65 73 74 75 66 66 |es:.getmodestuff|
000007b0 3a f2 67 65 74 70 72 69 6e 74 73 74 75 66 66 3a |:.getprintstuff:|
000007c0 f2 66 6f 6e 74 6d 61 78 0d 01 cc 37 4d 65 6e 75 |.fontmax...7Menu|
000007d0 44 61 74 61 3d a3 3a d3 3d e0 2b 31 30 32 34 3a |Data=.:.=.+1024:|
000007e0 e0 3d 93 2b 38 2a 31 30 32 34 3a 6d 65 6e 75 6c |.=.+8*1024:menul|
000007f0 69 6d 69 74 3d 93 3a d3 3d e0 2b 32 30 34 38 0d |imit=.:.=.+2048.|
00000800 01 d6 05 f5 0d 01 e0 1a 20 c8 99 20 50 6f 6c 6c |........ .. Poll|
00000810 25 2c 66 6c 67 25 2c 71 25 20 b8 20 41 25 0d 01 |%,flg%,q% . A%..|
00000820 ea 0c 20 c8 8e 20 41 25 20 ca 0d 01 f4 1a 20 c9 |.. .. A% ..... .|
00000830 20 30 20 3a e7 66 6c 67 25 3d 30 20 f2 64 72 61 | 0 :.flg%=0 .dra|
00000840 67 62 61 72 0d 01 fe 1d 20 c9 20 31 20 3a f2 72 |gbar.... . 1 :.r|
00000850 65 64 72 61 77 5f 77 69 6e 64 6f 77 28 21 71 25 |edraw_window(!q%|
00000860 29 0d 02 08 43 20 c9 20 32 20 3a f2 6f 70 65 6e |)...C . 2 :.open|
00000870 5f 77 69 6e 64 6f 77 28 21 71 25 2c 71 25 21 34 |_window(!q%,q%!4|
00000880 2c 71 25 21 38 2c 71 25 21 31 32 2c 71 25 21 31 |,q%!8,q%!12,q%!1|
00000890 36 2c 71 25 21 32 30 2c 71 25 21 32 34 2c 71 25 |6,q%!20,q%!24,q%|
000008a0 21 32 38 29 0d 02 12 1c 20 c9 20 33 20 3a f2 63 |!28).... . 3 :.c|
000008b0 6c 6f 73 65 61 77 69 6e 64 6f 77 28 21 71 25 29 |loseawindow(!q%)|
000008c0 0d 02 1c 17 20 c9 20 34 20 3a f2 75 70 64 61 74 |.... . 4 :.updat|
000008d0 65 63 6f 6e 66 69 67 0d 02 26 11 20 c9 20 35 20 |econfig..&. . 5 |
000008e0 3a f2 73 65 74 6f 6c 64 0d 02 30 36 20 c9 20 36 |:.setold..06 . 6|
000008f0 20 3a f2 63 68 65 63 6b 6d 6f 75 73 65 28 21 71 | :.checkmouse(!q|
00000900 25 2c 71 25 21 34 2c 71 25 21 38 2c 71 25 21 31 |%,q%!4,q%!8,q%!1|
00000910 32 2c 71 25 21 31 36 2c 71 25 21 32 30 29 0d 02 |2,q%!16,q%!20)..|
00000920 3a 32 20 c9 20 38 20 3a f2 75 70 64 61 74 65 63 |:2 . 8 :.updatec|
00000930 6f 6e 66 69 67 3a c8 99 20 22 57 69 6d 70 5f 50 |onfig:.. "Wimp_P|
00000940 72 6f 63 65 73 73 4b 65 79 22 2c 71 25 21 32 34 |rocessKey",q%!24|
00000950 0d 02 44 19 20 c9 20 39 20 3a f2 6d 65 6e 75 73 |..D. . 9 :.menus|
00000960 65 6c 65 63 74 28 71 25 29 0d 02 4e 61 20 c9 20 |elect(q%)..Na . |
00000970 31 30 3a e7 21 71 25 3d 66 63 74 72 6c 25 20 f2 |10:.!q%=fctrl% .|
00000980 6f 70 65 6e 5f 77 69 6e 64 6f 77 28 21 71 25 2c |open_window(!q%,|
00000990 71 25 21 34 2c 71 25 21 38 2c 71 25 21 31 32 2c |q%!4,q%!8,q%!12,|
000009a0 71 25 21 31 36 2c 71 25 21 32 30 2b 33 32 2a 71 |q%!16,q%!20+32*q|
000009b0 25 21 33 32 2c 71 25 21 32 34 2b 36 34 2a 71 25 |%!32,q%!24+64*q%|
000009c0 21 33 36 2c 71 25 21 32 38 29 0d 02 58 19 20 c9 |!36,q%!28)..X. .|
000009d0 20 31 37 2c 31 38 3a f2 72 65 63 65 69 76 65 28 | 17,18:.receive(|
000009e0 71 25 29 0d 02 62 06 20 cb 0d 02 6c 07 fd 20 a3 |q%)..b. ...l.. .|
000009f0 0d 02 76 04 0d 02 80 12 dd 20 f2 72 65 63 65 69 |..v...... .recei|
00000a00 76 65 28 71 25 29 0d 02 8a 0e c8 8e 20 71 25 21 |ve(q%)...... q%!|
00000a10 31 36 20 ca 0d 02 94 11 c9 20 30 3a f2 66 69 6e |16 ...... 0:.fin|
00000a20 69 73 68 3a e0 0d 02 9e 12 c9 20 26 35 30 32 3a |ish:...... &502:|
00000a30 f2 64 6f 68 65 6c 70 0d 02 a8 1a c9 20 26 34 30 |.dohelp..... &40|
00000a40 30 43 31 3a f2 67 65 74 6d 6f 64 65 73 74 75 66 |0C1:.getmodestuf|
00000a50 66 0d 02 b2 22 c9 20 26 38 30 31 34 33 2c 26 38 |f...". &80143,&8|
00000a60 30 31 34 37 3a f2 67 65 74 70 72 69 6e 74 73 74 |0147:.getprintst|
00000a70 75 66 66 0d 02 bc 05 cb 0d 02 c6 05 e1 0d 02 d0 |uff.............|
00000a80 04 0d 02 da 0c dd f2 64 6f 68 65 6c 70 0d 02 e4 |.......dohelp...|
00000a90 14 e7 20 71 25 21 33 32 3d 66 63 74 72 6c 25 20 |.. q%!32=fctrl% |
00000aa0 8c 0d 02 ee 29 20 6d 65 73 73 31 25 3d 71 25 21 |....) mess1%=q%!|
00000ab0 34 3a 6d 65 73 73 32 25 3d 71 25 21 38 3a 6d 65 |4:mess2%=q%!8:me|
00000ac0 73 73 79 25 3d 71 25 21 32 34 0d 02 f8 26 20 21 |ssy%=q%!24...& !|
00000ad0 71 25 3d 66 63 74 72 6c 25 3a c8 99 47 65 74 57 |q%=fctrl%:..GetW|
00000ae0 2c 2c 71 25 3a f2 69 6e 66 6f 28 71 25 2b 34 29 |,,q%:.info(q%+4)|
00000af0 0d 03 02 1b 20 e7 6d 65 73 73 79 25 3e 68 65 6c |.... .messy%>hel|
00000b00 70 62 61 72 25 2b 62 79 25 20 8c 0d 03 0c d2 20 |pbar%+by% ..... |
00000b10 20 61 24 3d 22 43 61 63 68 65 20 6f 75 74 6c 69 | a$="Cache outli|
00000b20 6e 65 20 66 6f 6e 74 73 20 6f 6e 20 64 69 73 63 |ne fonts on disc|
00000b30 20 66 6f 72 20 71 75 69 63 6b 65 72 20 75 73 65 | for quicker use|
00000b40 2e 20 4d 45 4e 55 20 67 69 76 65 73 20 61 20 6c |. MENU gives a l|
00000b50 69 73 74 20 6f 66 20 74 68 65 20 66 6f 6e 74 73 |ist of the fonts|
00000b60 20 61 76 61 69 6c 61 62 6c 65 2e 20 43 6c 69 63 | available. Clic|
00000b70 6b 20 27 4d 61 6b 65 27 20 66 6f 72 20 73 63 72 |k 'Make' for scr|
00000b80 65 65 6e 20 6f 72 20 70 72 69 6e 74 65 72 20 66 |een or printer f|
00000b90 6f 6e 74 2c 20 27 44 65 6c 27 20 74 6f 20 72 65 |ont, 'Del' to re|
00000ba0 6d 6f 76 65 20 66 72 6f 6d 20 64 69 73 63 2e 20 |move from disc. |
00000bb0 48 65 69 67 68 74 20 69 73 20 74 68 65 20 73 61 |Height is the sa|
00000bc0 6d 65 20 61 73 20 73 69 7a 65 20 69 66 20 6e 6f |me as size if no|
00000bd0 74 20 73 70 65 63 69 66 69 65 64 2e 22 0d 03 16 |t specified."...|
00000be0 06 20 cc 0d 03 20 cb 20 20 61 24 3d 22 43 68 61 |. ... . a$="Cha|
00000bf0 6e 67 65 20 70 65 72 73 69 73 74 65 6e 74 20 73 |nge persistent s|
00000c00 65 74 74 69 6e 67 73 20 6f 66 20 6f 75 74 6c 69 |ettings of outli|
00000c10 6e 65 20 66 6f 6e 74 20 6d 61 6e 61 67 65 72 2e |ne font manager.|
00000c20 20 43 6c 69 63 6b 20 27 52 65 64 72 61 77 27 20 | Click 'Redraw' |
00000c30 74 6f 20 73 65 65 20 74 68 65 20 65 66 66 65 63 |to see the effec|
00000c40 74 20 6f 66 20 74 68 65 20 63 68 61 6e 67 65 73 |t of the changes|
00000c50 2e 20 43 6c 69 63 6b 20 27 52 65 73 65 74 27 20 |. Click 'Reset' |
00000c60 74 6f 20 72 65 73 65 74 20 74 68 65 20 76 61 6c |to reset the val|
00000c70 75 65 73 20 74 6f 20 74 68 6f 73 65 20 6f 6e 20 |ues to those on |
00000c80 65 6e 74 72 79 2c 20 27 53 61 76 65 27 20 74 6f |entry, 'Save' to|
00000c90 20 72 65 6d 65 6d 62 65 72 20 74 68 65 20 63 75 | remember the cu|
00000ca0 72 72 65 6e 74 20 76 61 6c 75 65 73 2e 22 0d 03 |rrent values."..|
00000cb0 2a 06 20 cd 0d 03 34 1a 20 21 71 25 3d 28 28 32 |*. ...4. !q%=((2|
00000cc0 30 2b a9 61 24 2b 31 29 2b 33 29 80 ac 33 0d 03 |0+.a$+1)+3)..3..|
00000cd0 3e 1c 20 71 25 21 31 32 3d 6d 65 73 73 32 25 3a |>. q%!12=mess2%:|
00000ce0 71 25 21 31 36 3d 26 35 30 33 0d 03 48 1e 20 24 |q%!16=&503..H. $|
00000cf0 28 71 25 2b 32 30 29 3d 61 24 3a 71 25 3f 28 32 |(q%+20)=a$:q%?(2|
00000d00 30 2b a9 61 24 29 3d 30 0d 03 52 26 20 c8 99 22 |0+.a$)=0..R& .."|
00000d10 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 |Wimp_SendMessage|
00000d20 22 2c 31 37 2c 71 25 2c 6d 65 73 73 31 25 0d 03 |",17,q%,mess1%..|
00000d30 5c 05 cd 0d 03 66 05 e1 0d 03 70 04 0d 03 7a 13 |\....f....p...z.|
00000d40 dd 20 f2 67 65 74 6d 6f 64 65 73 74 75 66 66 0d |. .getmodestuff.|
00000d50 03 84 0b 6d 6f 64 65 25 3d eb 0d 03 8e 1d c8 99 |...mode%=.......|
00000d60 20 52 4d 56 2c 6d 6f 64 65 25 2c 33 20 b8 2c 2c | RMV,mode%,3 .,,|
00000d70 4e 43 6f 6c 6f 75 72 0d 03 98 1a c8 99 20 52 4d |NColour...... RM|
00000d80 56 2c 6d 6f 64 65 25 2c 34 20 b8 2c 2c 58 45 69 |V,mode%,4 .,,XEi|
00000d90 67 0d 03 a2 1a c8 99 20 52 4d 56 2c 6d 6f 64 65 |g...... RMV,mode|
00000da0 25 2c 35 20 b8 2c 2c 59 45 69 67 0d 03 ac 1c c8 |%,5 .,,YEig.....|
00000db0 99 20 52 4d 56 2c 6d 6f 64 65 25 2c 31 31 20 b8 |. RMV,mode%,11 .|
00000dc0 2c 2c 58 57 69 6e 64 0d 03 b6 1c c8 99 20 52 4d |,,XWind...... RM|
00000dd0 56 2c 6d 6f 64 65 25 2c 31 32 20 b8 2c 2c 59 57 |V,mode%,12 .,,YW|
00000de0 69 6e 64 0d 03 c0 2b 58 70 69 78 65 6c 73 3d 58 |ind...+Xpixels=X|
00000df0 57 69 6e 64 3c 3c 58 45 69 67 3a 59 70 69 78 65 |Wind<<XEig:Ypixe|
00000e00 6c 73 3d 59 57 69 6e 64 3c 3c 59 45 69 67 0d 03 |ls=YWind<<YEig..|
00000e10 ca 21 73 63 72 78 70 70 69 3d 28 31 32 38 30 3e |.!scrxppi=(1280>|
00000e20 3e 58 45 69 67 29 2f 31 32 38 30 2a 31 38 30 0d |>XEig)/1280*180.|
00000e30 03 d4 21 73 63 72 79 70 70 69 3d 28 31 30 32 34 |..!scryppi=(1024|
00000e40 3e 3e 59 45 69 67 29 2f 31 30 32 34 2a 31 38 30 |>>YEig)/1024*180|
00000e50 0d 03 de 30 24 73 63 72 65 65 6e 78 25 3d c3 73 |...0$screenx%=.s|
00000e60 63 72 78 70 70 69 3a f2 75 70 64 61 74 65 69 63 |crxppi:.updateic|
00000e70 6f 6e 28 73 63 72 65 65 6e 78 69 63 6f 6e 25 29 |on(screenxicon%)|
00000e80 0d 03 e8 30 24 73 63 72 65 65 6e 79 25 3d c3 73 |...0$screeny%=.s|
00000e90 63 72 79 70 70 69 3a f2 75 70 64 61 74 65 69 63 |cryppi:.updateic|
00000ea0 6f 6e 28 73 63 72 65 65 6e 79 69 63 6f 6e 25 29 |on(screenyicon%)|
00000eb0 0d 03 f2 21 f2 72 65 73 63 3a f2 61 61 3a f2 63 |...!.resc:.aa:.c|
00000ec0 61 63 68 65 3a f2 68 6f 72 69 7a 3a f2 76 65 72 |ache:.horiz:.ver|
00000ed0 74 0d 03 fc 05 e1 0d 04 06 04 0d 04 10 0c dd 20 |t.............. |
00000ee0 f2 72 65 73 65 74 0d 04 1a 43 72 65 73 63 3d 49 |.reset...Cresc=I|
00000ef0 72 65 73 63 2f 31 31 35 32 3a 61 61 3d 49 61 61 |resc/1152:aa=Iaa|
00000f00 2f 31 31 35 32 3a 63 61 63 68 65 3d 49 63 61 63 |/1152:cache=Icac|
00000f10 68 65 2f 31 31 35 32 3a 68 6f 72 69 7a 3d 49 68 |he/1152:horiz=Ih|
00000f20 6f 72 69 7a 2f 31 31 35 32 0d 04 24 24 76 65 72 |oriz/1152..$$ver|
00000f30 74 3d 49 76 65 72 74 2f 31 31 35 32 3a 66 6f 6e |t=Ivert/1152:fon|
00000f40 74 6d 61 78 3d 49 66 6f 6e 74 6d 61 78 0d 04 2e |tmax=Ifontmax...|
00000f50 05 e1 0d 04 38 04 0d 04 42 14 dd 20 f2 67 65 74 |....8...B.. .get|
00000f60 70 72 69 6e 74 73 74 75 66 66 0d 04 4c 14 f2 72 |printstuff..L..r|
00000f70 65 61 64 70 72 69 6e 74 76 61 6c 75 65 73 0d 04 |eadprintvalues..|
00000f80 56 1e f2 75 70 64 61 74 65 69 63 6f 6e 28 70 72 |V..updateicon(pr|
00000f90 69 6e 74 65 72 78 69 63 6f 6e 25 29 0d 04 60 1e |interxicon%)..`.|
00000fa0 f2 75 70 64 61 74 65 69 63 6f 6e 28 70 72 69 6e |.updateicon(prin|
00000fb0 74 65 72 79 69 63 6f 6e 25 29 0d 04 6a 14 f2 72 |teryicon%)..j..r|
00000fc0 65 73 63 3a f2 61 61 3a f2 63 61 63 68 65 0d 04 |esc:.aa:.cache..|
00000fd0 74 05 e1 0d 04 7e 04 0d 04 88 16 dd 20 f2 72 65 |t....~...... .re|
00000fe0 61 64 70 72 69 6e 74 76 61 6c 75 65 73 0d 04 92 |adprintvalues...|
00000ff0 1b 70 72 74 78 70 70 69 3d 33 30 30 3a 70 72 74 |.prtxppi=300:prt|
00001000 79 70 70 69 3d 33 30 30 0d 04 9c 07 ea 20 85 0d |yppi=300..... ..|
00001010 04 a6 29 ee 20 85 20 ea 20 24 70 72 69 6e 74 65 |..). . . $printe|
00001020 72 78 25 3d 22 3f 22 3a 24 70 72 69 6e 74 65 72 |rx%="?":$printer|
00001030 79 25 3d 22 3f 22 3a e1 0d 04 b0 27 c8 99 20 22 |y%="?":....'.. "|
00001040 50 44 72 69 76 65 72 5f 49 6e 66 6f 22 20 b8 2c |PDriver_Info" .,|
00001050 70 72 74 78 70 70 69 2c 70 72 74 79 70 70 69 0d |prtxppi,prtyppi.|
00001060 04 ba 2b 24 70 72 69 6e 74 65 72 78 25 3d c3 70 |..+$printerx%=.p|
00001070 72 74 78 70 70 69 3a 24 70 72 69 6e 74 65 72 79 |rtxppi:$printery|
00001080 25 3d c3 70 72 74 79 70 70 69 0d 04 c4 05 e1 0d |%=.prtyppi......|
00001090 04 ce 04 0d 04 d8 0b dd 20 f2 72 65 73 63 0d 04 |........ .resc..|
000010a0 e2 38 24 73 63 72 72 65 73 63 25 3d a4 73 74 72 |.8$scrresc%=.str|
000010b0 28 72 65 73 63 2a 37 32 2f 73 63 72 79 70 70 69 |(resc*72/scryppi|
000010c0 29 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 73 63 |):.updateicon(sc|
000010d0 72 72 65 73 63 29 0d 04 ec 38 24 70 72 74 72 65 |rresc)...8$prtre|
000010e0 73 63 25 3d a4 73 74 72 28 72 65 73 63 2a 37 32 |sc%=.str(resc*72|
000010f0 2f 70 72 74 79 70 70 69 29 3a f2 75 70 64 61 74 |/prtyppi):.updat|
00001100 65 69 63 6f 6e 28 70 72 74 72 65 73 63 29 0d 04 |eicon(prtresc)..|
00001110 f6 05 e1 0d 05 00 04 0d 05 0a 09 dd 20 f2 61 61 |............ .aa|
00001120 0d 05 14 32 24 73 63 72 61 61 25 3d a4 73 74 72 |...2$scraa%=.str|
00001130 28 61 61 2a 37 32 2f 73 63 72 79 70 70 69 29 3a |(aa*72/scryppi):|
00001140 f2 75 70 64 61 74 65 69 63 6f 6e 28 73 63 72 61 |.updateicon(scra|
00001150 61 29 0d 05 1e 32 24 70 72 74 61 61 25 3d a4 73 |a)...2$prtaa%=.s|
00001160 74 72 28 61 61 2a 37 32 2f 70 72 74 79 70 70 69 |tr(aa*72/prtyppi|
00001170 29 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 70 72 |):.updateicon(pr|
00001180 74 61 61 29 0d 05 28 05 e1 0d 05 32 04 0d 05 3c |taa)..(....2...<|
00001190 0c dd 20 f2 63 61 63 68 65 0d 05 46 3b 24 73 63 |.. .cache..F;$sc|
000011a0 72 63 61 63 68 65 25 3d a4 73 74 72 28 63 61 63 |rcache%=.str(cac|
000011b0 68 65 2a 37 32 2f 73 63 72 79 70 70 69 29 3a f2 |he*72/scryppi):.|
000011c0 75 70 64 61 74 65 69 63 6f 6e 28 73 63 72 63 61 |updateicon(scrca|
000011d0 63 68 65 29 0d 05 50 3b 24 70 72 74 63 61 63 68 |che)..P;$prtcach|
000011e0 65 25 3d a4 73 74 72 28 63 61 63 68 65 2a 37 32 |e%=.str(cache*72|
000011f0 2f 70 72 74 79 70 70 69 29 3a f2 75 70 64 61 74 |/prtyppi):.updat|
00001200 65 69 63 6f 6e 28 70 72 74 63 61 63 68 65 29 0d |eicon(prtcache).|
00001210 05 5a 05 e1 0d 05 64 04 0d 05 6e 0c dd 20 f2 68 |.Z....d...n.. .h|
00001220 6f 72 69 7a 0d 05 78 31 e7 68 6f 72 69 7a 3d 30 |oriz..x1.horiz=0|
00001230 20 61 24 3d 22 4f 46 46 22 20 8b 20 61 24 3d a4 | a$="OFF" . a$=.|
00001240 73 74 72 28 68 6f 72 69 7a 2a 37 32 2f 73 63 72 |str(horiz*72/scr|
00001250 78 70 70 69 29 0d 05 82 27 24 73 63 72 68 6f 72 |xppi)...'$scrhor|
00001260 69 7a 25 3d 61 24 3a f2 75 70 64 61 74 65 69 63 |iz%=a$:.updateic|
00001270 6f 6e 28 73 63 72 68 6f 72 69 7a 29 0d 05 8c 05 |on(scrhoriz)....|
00001280 e1 0d 05 96 04 0d 05 a0 0b dd 20 f2 76 65 72 74 |.......... .vert|
00001290 0d 05 aa 2f e7 76 65 72 74 3d 30 20 61 24 3d 22 |.../.vert=0 a$="|
000012a0 4f 46 46 22 20 8b 20 61 24 3d a4 73 74 72 28 76 |OFF" . a$=.str(v|
000012b0 65 72 74 2a 37 32 2f 73 63 72 79 70 70 69 29 0d |ert*72/scryppi).|
000012c0 05 b4 25 24 73 63 72 76 65 72 74 25 3d 61 24 3a |..%$scrvert%=a$:|
000012d0 f2 75 70 64 61 74 65 69 63 6f 6e 28 73 63 72 76 |.updateicon(scrv|
000012e0 65 72 74 29 0d 05 be 05 e1 0d 05 c8 04 0d 05 d2 |ert)............|
000012f0 0e dd 20 f2 66 6f 6e 74 6d 61 78 0d 05 dc 54 24 |.. .fontmax...T$|
00001300 66 6f 6e 74 6d 61 78 25 3d c3 28 66 6f 6e 74 6d |fontmax%=.(fontm|
00001310 61 78 20 81 31 30 32 34 29 2b 22 4b 22 3a f2 75 |ax .1024)+"K":.u|
00001320 70 64 61 74 65 69 63 6f 6e 28 64 69 73 70 66 6f |pdateicon(dispfo|
00001330 6e 74 6d 61 78 29 3a f2 75 70 64 61 74 65 69 63 |ntmax):.updateic|
00001340 6f 6e 28 66 6f 6e 74 6d 61 78 69 63 6f 6e 29 0d |on(fontmaxicon).|
00001350 05 e6 05 e1 0d 05 f0 04 0d 05 fa 0d dd 20 a4 73 |............. .s|
00001360 74 72 28 61 29 0d 06 04 08 ea 20 61 24 0d 06 0e |tr(a)..... a$...|
00001370 42 61 24 3d c3 a8 61 3a 61 3d 61 2d bb 61 24 3a |Ba$=..a:a=a-.a$:|
00001380 e7 61 3e 2e 37 34 20 61 24 2b 3d 22 be 22 20 8b |.a>.74 a$+="." .|
00001390 e7 61 3e 2e 34 39 20 61 24 2b 3d 22 bd 22 20 8b |.a>.49 a$+="." .|
000013a0 20 e7 61 3e 2e 32 34 20 61 24 2b 3d 22 bc 22 0d | .a>.24 a$+=".".|
000013b0 06 18 0b 3d c0 61 24 2c 33 29 0d 06 22 04 0d 06 |...=.a$,3).."...|
000013c0 2c 37 dd 20 f2 63 68 65 63 6b 6d 6f 75 73 65 28 |,7. .checkmouse(|
000013d0 6d 6f 75 73 65 78 25 2c 6d 6f 75 73 65 79 25 2c |mousex%,mousey%,|
000013e0 62 25 2c 68 61 6e 64 6c 65 25 2c 69 63 6f 6e 25 |b%,handle%,icon%|
000013f0 2c 6f 62 25 29 0d 06 36 0c e7 28 62 25 80 32 29 |,ob%)..6..(b%.2)|
00001400 8c 0d 06 40 11 20 c8 8e 20 68 61 6e 64 6c 65 25 |...@. .. handle%|
00001410 20 ca 0d 06 4a 0d 20 c9 20 66 63 74 72 6c 25 0d | ...J. . fctrl%.|
00001420 06 54 13 20 e7 20 ac 20 4d 65 6e 75 44 61 74 61 |.T. . . MenuData|
00001430 20 8c 0d 06 5e 17 20 20 c8 99 20 22 48 6f 75 72 | ...^. .. "Hour|
00001440 67 6c 61 73 73 5f 4f 6e 22 0d 06 68 2e 20 20 6d |glass_On"..h. m|
00001450 65 6e 75 73 74 72 69 6e 67 73 25 3d 93 3a 6d 65 |enustrings%=.:me|
00001460 6e 75 64 61 74 61 25 3d 6d 65 6e 75 6c 69 6d 69 |nudata%=menulimi|
00001470 74 2d 26 31 30 30 30 0d 06 72 30 20 20 6d 65 6e |t-&1000..r0 men|
00001480 75 70 74 72 25 3d 6d 65 6e 75 64 61 74 61 25 3a |uptr%=menudata%:|
00001490 24 6d 65 6e 75 70 74 72 25 3d 22 46 6f 6e 74 20 |$menuptr%="Font |
000014a0 43 68 6f 69 63 65 22 0d 06 7c 3d 20 20 6d 65 6e |Choice"..|= men|
000014b0 75 70 74 72 25 3f 31 32 3d 37 3a 6d 65 6e 75 70 |uptr%?12=7:menup|
000014c0 74 72 25 3f 31 33 3d 32 3a 6d 65 6e 75 70 74 72 |tr%?13=2:menuptr|
000014d0 25 3f 31 34 3d 37 3a 6d 65 6e 75 70 74 72 25 3f |%?14=7:menuptr%?|
000014e0 31 35 3d 30 0d 06 86 2f 20 20 6d 65 6e 75 70 74 |15=0.../ menupt|
000014f0 72 25 21 32 30 3d 34 34 3a 6d 65 6e 75 70 74 72 |r%!20=44:menuptr|
00001500 25 21 32 34 3d 30 3a 6d 65 6e 75 70 74 72 25 2b |%!24=0:menuptr%+|
00001510 3d 32 38 0d 06 90 1a 20 20 6d 61 78 6d 77 25 3d |=28.... maxmw%=|
00001520 30 3a 49 25 3d 31 3a 63 25 3d 30 3a f5 0d 06 9a |0:I%=1:c%=0:....|
00001530 27 20 20 c8 99 20 22 46 6f 6e 74 5f 4c 69 73 74 |' .. "Font_List|
00001540 46 6f 6e 74 73 22 2c 2c 71 25 2c 63 25 20 b8 20 |Fonts",,q%,c% . |
00001550 2c 2c 63 25 0d 06 a4 0e 20 20 e7 63 25 3e 3d 30 |,,c%.... .c%>=0|
00001560 20 8c 0d 06 ae 35 20 20 20 21 6d 65 6e 75 70 74 | ....5 !menupt|
00001570 72 25 3d 30 3a 6d 65 6e 75 70 74 72 25 21 34 3d |r%=0:menuptr%!4=|
00001580 2d 31 3a 6d 65 6e 75 70 74 72 25 21 38 3d 26 30 |-1:menuptr%!8=&0|
00001590 37 30 30 30 30 32 31 0d 06 b8 23 20 20 20 41 25 |7000021...# A%|
000015a0 3d a9 24 71 25 3a e7 41 25 3e 6d 61 78 6d 77 25 |=.$q%:.A%>maxmw%|
000015b0 20 6d 61 78 6d 77 25 3d 41 25 0d 06 c2 0f 20 20 | maxmw%=A%.... |
000015c0 20 e7 41 25 3c 31 32 20 8c 0d 06 cc 19 20 20 20 | .A%<12 ..... |
000015d0 24 28 6d 65 6e 75 70 74 72 25 2b 31 32 29 3d 24 |$(menuptr%+12)=$|
000015e0 71 25 0d 06 d6 08 20 20 20 cc 0d 06 e0 2e 20 20 |q%.... ..... |
000015f0 20 e7 6d 65 6e 75 73 74 72 69 6e 67 73 25 2b 41 | .menustrings%+A|
00001600 25 2b 31 3e 6d 65 6e 75 64 61 74 61 25 20 f2 6d |%+1>menudata% .m|
00001610 6f 72 65 73 70 61 63 65 0d 06 ea 31 20 20 20 42 |orespace...1 B|
00001620 25 3d 6d 65 6e 75 73 74 72 69 6e 67 73 25 3a 6d |%=menustrings%:m|
00001630 65 6e 75 73 74 72 69 6e 67 73 25 2b 3d 41 25 2b |enustrings%+=A%+|
00001640 31 3a 24 42 25 3d 24 71 25 0d 06 f4 46 20 20 20 |1:$B%=$q%...F |
00001650 6d 65 6e 75 70 74 72 25 21 31 32 3d 42 25 3a 6d |menuptr%!12=B%:m|
00001660 65 6e 75 70 74 72 25 21 31 36 3d 2d 31 3a 6d 65 |enuptr%!16=-1:me|
00001670 6e 75 70 74 72 25 21 32 30 3d 41 25 2b 31 3a 6d |nuptr%!20=A%+1:m|
00001680 65 6e 75 70 74 72 25 21 38 2b 3d 26 31 30 30 0d |enuptr%!8+=&100.|
00001690 06 fe 08 20 20 20 cd 0d 07 08 3b 20 20 20 6d 65 |... ....; me|
000016a0 6e 75 70 74 72 25 2b 3d 32 34 3a 49 25 2b 3d 31 |nuptr%+=24:I%+=1|
000016b0 3a e7 6d 65 6e 75 70 74 72 25 2b 32 34 3e 6d 65 |:.menuptr%+24>me|
000016c0 6e 75 6c 69 6d 69 74 20 f2 6d 6f 72 65 73 70 61 |nulimit .morespa|
000016d0 63 65 0d 07 12 07 20 20 cd 0d 07 1c 0c 20 20 fd |ce.... ..... .|
000016e0 20 63 25 3c 30 0d 07 26 1f 20 20 6d 65 6e 75 64 | c%<0..&. menud|
000016f0 61 74 61 25 21 31 36 3d 6d 61 78 6d 77 25 2a 31 |ata%!16=maxmw%*1|
00001700 36 2b 32 34 0d 07 30 2b 20 20 6d 65 6e 75 70 74 |6+24..0+ menupt|
00001710 72 25 21 2d 32 34 2b 3d 26 38 30 20 20 3a 20 f4 |r%!-24+=&80 : .|
00001720 20 73 65 74 20 27 6c 61 73 74 27 20 62 69 74 0d | set 'last' bit.|
00001730 07 3a 10 20 20 4d 65 6e 75 44 61 74 61 3d b9 0d |.:. MenuData=..|
00001740 07 44 18 20 20 c8 99 20 22 48 6f 75 72 67 6c 61 |.D. .. "Hourgla|
00001750 73 73 5f 4f 66 66 22 0d 07 4e 06 20 cd 0d 07 58 |ss_Off"..N. ...X|
00001760 17 20 6d 65 6e 75 68 61 6e 64 6c 65 25 3d 66 63 |. menuhandle%=fc|
00001770 74 72 6c 25 0d 07 62 30 20 c8 99 20 43 72 4d 65 |trl%..b0 .. CrMe|
00001780 6e 75 2c 2c 6d 65 6e 75 64 61 74 61 25 2c 6d 6f |nu,,menudata%,mo|
00001790 75 73 65 78 25 2d 31 30 32 2c 6d 6f 75 73 65 79 |usex%-102,mousey|
000017a0 25 2b 36 34 0d 07 6c 06 20 cb 0d 07 76 05 cd 0d |%+64..l. ...v...|
000017b0 07 80 0c e7 28 62 25 80 34 29 8c 0d 07 8a 20 20 |....(b%.4).... |
000017c0 e7 68 61 6e 64 6c 65 25 3c 3e 2d 31 8c f2 67 65 |.handle%<>-1..ge|
000017d0 74 77 28 68 61 6e 64 6c 65 25 29 0d 07 94 11 20 |tw(handle%).... |
000017e0 c8 8e 20 68 61 6e 64 6c 65 25 20 ca 0d 07 9e 0d |.. handle% .....|
000017f0 20 c9 20 66 63 74 72 6c 25 0d 07 a8 10 20 20 c8 | . fctrl%.... .|
00001800 8e 20 69 63 6f 6e 25 20 ca 0d 07 b2 16 20 20 c9 |. icon% ..... .|
00001810 20 73 63 72 65 65 6e 6d 61 6b 65 69 63 6f 6e 0d | screenmakeicon.|
00001820 07 bc 14 20 20 20 f2 75 70 64 61 74 65 63 6f 6e |... .updatecon|
00001830 66 69 67 0d 07 c6 3b 20 20 20 78 73 69 7a 65 3d |fig...; xsize=|
00001840 bb 24 66 73 69 7a 65 25 3a 79 73 69 7a 65 3d bb |.$fsize%:ysize=.|
00001850 24 66 68 65 69 67 68 74 25 3a e7 79 73 69 7a 65 |$fheight%:.ysize|
00001860 3d 30 20 79 73 69 7a 65 3d 78 73 69 7a 65 0d 07 |=0 ysize=xsize..|
00001870 d0 9e 20 20 20 e7 a9 24 66 6e 61 6d 65 25 20 c8 |.. ..$fname% .|
00001880 99 22 46 6f 6e 74 5f 4d 61 6b 65 42 69 74 6d 61 |."Font_MakeBitma|
00001890 70 22 2c 2c 24 66 6e 61 6d 65 25 2c 31 36 2a 78 |p",,$fname%,16*x|
000018a0 73 69 7a 65 2c 31 36 2a 79 73 69 7a 65 2c bb 24 |size,16*ysize,.$|
000018b0 73 63 72 65 65 6e 78 25 2c bb 24 73 63 72 65 65 |screenx%,.$scree|
000018c0 6e 79 25 2c 4e 43 6f 6c 6f 75 72 3e 31 20 80 20 |ny%,NColour>1 . |
000018d0 31 20 84 20 78 73 69 7a 65 3c 3d 68 6f 72 69 7a |1 . xsize<=horiz|
000018e0 2a 37 32 2f 73 63 72 78 70 70 69 20 80 20 32 20 |*72/scrxppi . 2 |
000018f0 84 20 79 73 69 7a 65 3c 3d 76 65 72 74 2a 37 32 |. ysize<=vert*72|
00001900 2f 73 63 72 79 70 70 69 20 80 20 34 0d 07 da 15 |/scryppi . 4....|
00001910 20 20 c9 20 73 63 72 65 65 6e 64 65 6c 69 63 6f | . screendelico|
00001920 6e 0d 07 e4 3b 20 20 20 78 73 69 7a 65 3d bb 24 |n...; xsize=.$|
00001930 66 73 69 7a 65 25 3a 79 73 69 7a 65 3d bb 24 66 |fsize%:ysize=.$f|
00001940 68 65 69 67 68 74 25 3a e7 79 73 69 7a 65 3d 30 |height%:.ysize=0|
00001950 20 79 73 69 7a 65 3d 78 73 69 7a 65 0d 07 ee 67 | ysize=xsize...g|
00001960 20 20 20 e7 a9 24 66 6e 61 6d 65 25 20 c8 99 22 | ..$fname% .."|
00001970 46 6f 6e 74 5f 4d 61 6b 65 42 69 74 6d 61 70 22 |Font_MakeBitmap"|
00001980 2c 2c 24 66 6e 61 6d 65 25 2c 31 36 2a 78 73 69 |,,$fname%,16*xsi|
00001990 7a 65 2c 31 36 2a 79 73 69 7a 65 2c bb 24 73 63 |ze,16*ysize,.$sc|
000019a0 72 65 65 6e 78 25 2c bb 24 73 63 72 65 65 6e 79 |reenx%,.$screeny|
000019b0 25 2c 4e 43 6f 6c 6f 75 72 3e 31 20 80 20 31 20 |%,NColour>1 . 1 |
000019c0 84 20 38 0d 07 f8 17 20 20 c9 20 70 72 69 6e 74 |. 8.... . print|
000019d0 65 72 6d 61 6b 65 69 63 6f 6e 0d 08 02 14 20 20 |ermakeicon.... |
000019e0 20 f2 75 70 64 61 74 65 63 6f 6e 66 69 67 0d 08 | .updateconfig..|
000019f0 0c 3b 20 20 20 78 73 69 7a 65 3d bb 24 66 73 69 |.; xsize=.$fsi|
00001a00 7a 65 25 3a 79 73 69 7a 65 3d bb 24 66 68 65 69 |ze%:ysize=.$fhei|
00001a10 67 68 74 25 3a e7 79 73 69 7a 65 3d 30 20 79 73 |ght%:.ysize=0 ys|
00001a20 69 7a 65 3d 78 73 69 7a 65 0d 08 16 59 20 20 20 |ize=xsize...Y |
00001a30 e7 a9 24 66 6e 61 6d 65 25 20 c8 99 22 46 6f 6e |..$fname% .."Fon|
00001a40 74 5f 4d 61 6b 65 42 69 74 6d 61 70 22 2c 2c 24 |t_MakeBitmap",,$|
00001a50 66 6e 61 6d 65 25 2c 31 36 2a 78 73 69 7a 65 2c |fname%,16*xsize,|
00001a60 31 36 2a 79 73 69 7a 65 2c bb 24 70 72 69 6e 74 |16*ysize,.$print|
00001a70 65 72 78 25 2c bb 24 70 72 69 6e 74 65 72 79 25 |erx%,.$printery%|
00001a80 2c 30 0d 08 20 16 20 20 c9 20 70 72 69 6e 74 65 |,0.. . . printe|
00001a90 72 64 65 6c 69 63 6f 6e 0d 08 2a 3b 20 20 20 78 |rdelicon..*; x|
00001aa0 73 69 7a 65 3d bb 24 66 73 69 7a 65 25 3a 79 73 |size=.$fsize%:ys|
00001ab0 69 7a 65 3d bb 24 66 68 65 69 67 68 74 25 3a e7 |ize=.$fheight%:.|
00001ac0 79 73 69 7a 65 3d 30 20 79 73 69 7a 65 3d 78 73 |ysize=0 ysize=xs|
00001ad0 69 7a 65 0d 08 34 59 20 20 20 e7 a9 24 66 6e 61 |ize..4Y ..$fna|
00001ae0 6d 65 25 20 c8 99 22 46 6f 6e 74 5f 4d 61 6b 65 |me% .."Font_Make|
00001af0 42 69 74 6d 61 70 22 2c 2c 24 66 6e 61 6d 65 25 |Bitmap",,$fname%|
00001b00 2c 31 36 2a 78 73 69 7a 65 2c 31 36 2a 79 73 69 |,16*xsize,16*ysi|
00001b10 7a 65 2c bb 24 70 72 69 6e 74 65 72 78 25 2c bb |ze,.$printerx%,.|
00001b20 24 70 72 69 6e 74 65 72 79 25 2c 38 0d 08 3e 12 |$printery%,8..>.|
00001b30 20 20 c9 20 72 65 73 63 75 70 69 63 6f 6e 0d 08 | . rescupicon..|
00001b40 48 1e 20 20 20 e7 72 65 73 63 3c 32 35 36 20 72 |H. .resc<256 r|
00001b50 65 73 63 2b 3d 31 3a f2 72 65 73 63 0d 08 52 14 |esc+=1:.resc..R.|
00001b60 20 20 c9 20 72 65 73 63 64 6f 77 6e 69 63 6f 6e | . rescdownicon|
00001b70 0d 08 5c 1c 20 20 20 e7 72 65 73 63 3e 30 20 72 |..\. .resc>0 r|
00001b80 65 73 63 2d 3d 31 3a f2 72 65 73 63 0d 08 66 10 |esc-=1:.resc..f.|
00001b90 20 20 c9 20 61 61 75 70 69 63 6f 6e 0d 08 70 18 | . aaupicon..p.|
00001ba0 20 20 20 e7 61 61 3c 32 35 36 20 61 61 2b 3d 31 | .aa<256 aa+=1|
00001bb0 3a f2 61 61 0d 08 7a 12 20 20 c9 20 61 61 64 6f |:.aa..z. . aado|
00001bc0 77 6e 69 63 6f 6e 0d 08 84 16 20 20 20 e7 61 61 |wnicon.... .aa|
00001bd0 3e 30 20 61 61 2d 3d 31 3a f2 61 61 0d 08 8e 13 |>0 aa-=1:.aa....|
00001be0 20 20 c9 20 63 61 63 68 65 75 70 69 63 6f 6e 0d | . cacheupicon.|
00001bf0 08 98 21 20 20 20 e7 63 61 63 68 65 3c 32 35 36 |..! .cache<256|
00001c00 20 63 61 63 68 65 2b 3d 31 3a f2 63 61 63 68 65 | cache+=1:.cache|
00001c10 0d 08 a2 15 20 20 c9 20 63 61 63 68 65 64 6f 77 |.... . cachedow|
00001c20 6e 69 63 6f 6e 0d 08 ac 1f 20 20 20 e7 63 61 63 |nicon.... .cac|
00001c30 68 65 3e 30 20 63 61 63 68 65 2d 3d 31 3a f2 63 |he>0 cache-=1:.c|
00001c40 61 63 68 65 0d 08 b6 13 20 20 c9 20 68 6f 72 69 |ache.... . hori|
00001c50 7a 75 70 69 63 6f 6e 0d 08 c0 21 20 20 20 e7 68 |zupicon...! .h|
00001c60 6f 72 69 7a 3c 32 35 36 20 68 6f 72 69 7a 2b 3d |oriz<256 horiz+=|
00001c70 31 3a f2 68 6f 72 69 7a 0d 08 ca 15 20 20 c9 20 |1:.horiz.... . |
00001c80 68 6f 72 69 7a 64 6f 77 6e 69 63 6f 6e 0d 08 d4 |horizdownicon...|
00001c90 1f 20 20 20 e7 68 6f 72 69 7a 3e 30 20 68 6f 72 |. .horiz>0 hor|
00001ca0 69 7a 2d 3d 31 3a f2 68 6f 72 69 7a 0d 08 de 12 |iz-=1:.horiz....|
00001cb0 20 20 c9 20 76 65 72 74 75 70 69 63 6f 6e 0d 08 | . vertupicon..|
00001cc0 e8 1e 20 20 20 e7 76 65 72 74 3c 32 35 36 20 76 |.. .vert<256 v|
00001cd0 65 72 74 2b 3d 31 3a f2 76 65 72 74 0d 08 f2 14 |ert+=1:.vert....|
00001ce0 20 20 c9 20 76 65 72 74 64 6f 77 6e 69 63 6f 6e | . vertdownicon|
00001cf0 0d 08 fc 1c 20 20 20 e7 76 65 72 74 3e 30 20 76 |.... .vert>0 v|
00001d00 65 72 74 2d 3d 31 3a f2 76 65 72 74 0d 09 06 13 |ert-=1:.vert....|
00001d10 20 20 c9 20 66 6f 6e 74 6d 61 78 69 63 6f 6e 0d | . fontmaxicon.|
00001d20 09 10 28 20 20 20 21 71 25 3d 66 63 74 72 6c 25 |..( !q%=fctrl%|
00001d30 3a c8 99 47 65 74 57 2c 2c 71 25 3a f2 69 6e 66 |:..GetW,,q%:.inf|
00001d40 6f 28 71 25 2b 34 29 0d 09 1a 4b 20 20 20 66 6c |o(q%+4)...K fl|
00001d50 67 25 3d 30 3a 21 71 25 3d 66 63 74 72 6c 25 3a |g%=0:!q%=fctrl%:|
00001d60 71 25 21 34 3d 37 3a 71 25 21 32 34 3d 66 6f 6e |q%!4=7:q%!24=fon|
00001d70 74 6d 61 78 62 61 72 78 2b 62 78 25 3a 71 25 21 |tmaxbarx+bx%:q%!|
00001d80 32 38 3d 66 6f 6e 74 6d 61 78 62 61 72 79 2b 62 |28=fontmaxbary+b|
00001d90 79 25 0d 09 24 40 20 20 20 71 25 21 33 32 3d 71 |y%..$@ q%!32=q|
00001da0 25 21 32 34 2b 32 35 36 3a 71 25 21 33 36 3d 71 |%!24+256:q%!36=q|
00001db0 25 21 32 38 2b 31 36 3a 71 25 21 38 3d 6d 6f 75 |%!28+16:q%!8=mou|
00001dc0 73 65 78 25 3a 71 25 21 31 32 3d 71 25 21 32 38 |sex%:q%!12=q%!28|
00001dd0 2b 34 0d 09 2e 1d 20 20 20 71 25 21 31 36 3d 71 |+4.... q%!16=q|
00001de0 25 21 38 3a 71 25 21 32 30 3d 71 25 21 31 32 0d |%!8:q%!20=q%!12.|
00001df0 09 38 20 20 20 20 c8 99 20 44 72 61 67 2c 2c 71 |.8 .. Drag,,q|
00001e00 25 3a 6f 6c 64 66 6f 6e 74 6d 61 78 3d 2d 31 0d |%:oldfontmax=-1.|
00001e10 09 42 0f 20 20 20 f2 64 72 61 67 62 61 72 0d 09 |.B. .dragbar..|
00001e20 4c 12 20 20 c9 20 72 65 64 72 61 77 69 63 6f 6e |L. . redrawicon|
00001e30 0d 09 56 41 20 20 20 f2 75 70 64 61 74 65 63 6f |..VA .updateco|
00001e40 6e 66 69 67 3a c8 99 20 22 57 69 6d 70 5f 46 6f |nfig:.. "Wimp_Fo|
00001e50 72 63 65 52 65 64 72 61 77 22 2c 2d 31 2c 30 2c |rceRedraw",-1,0,|
00001e60 30 2c 58 70 69 78 65 6c 73 2c 59 70 69 78 65 6c |0,Xpixels,Ypixel|
00001e70 73 0d 09 60 11 20 20 c9 20 72 65 73 65 74 69 63 |s..`. . resetic|
00001e80 6f 6e 0d 09 6a 23 20 20 20 f2 72 65 73 65 74 3a |on..j# .reset:|
00001e90 f2 75 70 64 61 74 65 63 6f 6e 66 69 67 3a f2 73 |.updateconfig:.s|
00001ea0 65 74 6f 6c 64 0d 09 74 2d 20 20 20 f2 72 65 73 |etold..t- .res|
00001eb0 63 3a f2 61 61 3a f2 63 61 63 68 65 3a f2 68 6f |c:.aa:.cache:.ho|
00001ec0 72 69 7a 3a f2 76 65 72 74 3a f2 66 6f 6e 74 6d |riz:.vert:.fontm|
00001ed0 61 78 0d 09 7e 10 20 20 c9 20 73 61 76 65 69 63 |ax..~. . saveic|
00001ee0 6f 6e 0d 09 88 46 20 20 20 49 72 65 73 63 3d 72 |on...F Iresc=r|
00001ef0 65 73 63 2a 31 31 35 32 3a 49 61 61 3d 61 61 2a |esc*1152:Iaa=aa*|
00001f00 31 31 35 32 3a 49 63 61 63 68 65 3d 63 61 63 68 |1152:Icache=cach|
00001f10 65 2a 31 31 35 32 3a 49 68 6f 72 69 7a 3d 68 6f |e*1152:Ihoriz=ho|
00001f20 72 69 7a 2a 31 31 35 32 0d 09 92 3d 20 20 20 49 |riz*1152...= I|
00001f30 76 65 72 74 3d 76 65 72 74 2a 31 31 35 32 3a 49 |vert=vert*1152:I|
00001f40 66 6f 6e 74 6d 61 78 3d 66 6f 6e 74 6d 61 78 3a |fontmax=fontmax:|
00001f50 f2 75 70 64 61 74 65 63 6f 6e 66 69 67 3a f2 73 |.updateconfig:.s|
00001f60 65 74 6f 6c 64 0d 09 9c 07 20 20 cb 0d 09 a6 06 |etold.... .....|
00001f70 20 cb 0d 09 b0 05 cd 0d 09 ba 0c e7 28 62 25 80 | ...........(b%.|
00001f80 31 29 8c 0d 09 c4 20 20 e7 68 61 6e 64 6c 65 25 |1).... .handle%|
00001f90 3c 3e 2d 31 8c f2 67 65 74 77 28 68 61 6e 64 6c |<>-1..getw(handl|
00001fa0 65 25 29 0d 09 ce 11 20 c8 8e 20 68 61 6e 64 6c |e%).... .. handl|
00001fb0 65 25 20 ca 0d 09 d8 0d 20 c9 20 66 63 74 72 6c |e% ..... . fctrl|
00001fc0 25 0d 09 e2 10 20 20 c8 8e 20 69 63 6f 6e 25 20 |%.... .. icon% |
00001fd0 ca 0d 09 ec 14 20 20 c9 20 72 65 73 63 64 6f 77 |..... . rescdow|
00001fe0 6e 69 63 6f 6e 0d 09 f6 1e 20 20 20 e7 72 65 73 |nicon.... .res|
00001ff0 63 3c 32 35 36 20 72 65 73 63 2b 3d 31 3a f2 72 |c<256 resc+=1:.r|
00002000 65 73 63 0d 0a 00 12 20 20 c9 20 72 65 73 63 75 |esc.... . rescu|
00002010 70 69 63 6f 6e 0d 0a 0a 1c 20 20 20 e7 72 65 73 |picon.... .res|
00002020 63 3e 30 20 72 65 73 63 2d 3d 31 3a f2 72 65 73 |c>0 resc-=1:.res|
00002030 63 0d 0a 14 12 20 20 c9 20 61 61 64 6f 77 6e 69 |c.... . aadowni|
00002040 63 6f 6e 0d 0a 1e 18 20 20 20 e7 61 61 3c 32 35 |con.... .aa<25|
00002050 36 20 61 61 2b 3d 31 3a f2 61 61 0d 0a 28 10 20 |6 aa+=1:.aa..(. |
00002060 20 c9 20 61 61 75 70 69 63 6f 6e 0d 0a 32 16 20 | . aaupicon..2. |
00002070 20 20 e7 61 61 3e 30 20 61 61 2d 3d 31 3a f2 61 | .aa>0 aa-=1:.a|
00002080 61 0d 0a 3c 15 20 20 c9 20 63 61 63 68 65 64 6f |a..<. . cachedo|
00002090 77 6e 69 63 6f 6e 0d 0a 46 21 20 20 20 e7 63 61 |wnicon..F! .ca|
000020a0 63 68 65 3c 32 35 36 20 63 61 63 68 65 2b 3d 31 |che<256 cache+=1|
000020b0 3a f2 63 61 63 68 65 0d 0a 50 13 20 20 c9 20 63 |:.cache..P. . c|
000020c0 61 63 68 65 75 70 69 63 6f 6e 0d 0a 5a 1f 20 20 |acheupicon..Z. |
000020d0 20 e7 63 61 63 68 65 3e 30 20 63 61 63 68 65 2d | .cache>0 cache-|
000020e0 3d 31 3a f2 63 61 63 68 65 0d 0a 64 15 20 20 c9 |=1:.cache..d. .|
000020f0 20 68 6f 72 69 7a 64 6f 77 6e 69 63 6f 6e 0d 0a | horizdownicon..|
00002100 6e 21 20 20 20 e7 68 6f 72 69 7a 3c 32 35 36 20 |n! .horiz<256 |
00002110 68 6f 72 69 7a 2b 3d 31 3a f2 68 6f 72 69 7a 0d |horiz+=1:.horiz.|
00002120 0a 78 13 20 20 c9 20 68 6f 72 69 7a 75 70 69 63 |.x. . horizupic|
00002130 6f 6e 0d 0a 82 1f 20 20 20 e7 68 6f 72 69 7a 3e |on.... .horiz>|
00002140 30 20 68 6f 72 69 7a 2d 3d 31 3a f2 68 6f 72 69 |0 horiz-=1:.hori|
00002150 7a 0d 0a 8c 14 20 20 c9 20 76 65 72 74 64 6f 77 |z.... . vertdow|
00002160 6e 69 63 6f 6e 0d 0a 96 1e 20 20 20 e7 76 65 72 |nicon.... .ver|
00002170 74 3c 32 35 36 20 76 65 72 74 2b 3d 31 3a f2 76 |t<256 vert+=1:.v|
00002180 65 72 74 0d 0a a0 12 20 20 c9 20 76 65 72 74 75 |ert.... . vertu|
00002190 70 69 63 6f 6e 0d 0a aa 1c 20 20 20 e7 76 65 72 |picon.... .ver|
000021a0 74 3e 30 20 76 65 72 74 2d 3d 31 3a f2 76 65 72 |t>0 vert-=1:.ver|
000021b0 74 0d 0a b4 07 20 20 cb 0d 0a be 06 20 cb 0d 0a |t.... ..... ...|
000021c0 c8 05 cd 0d 0a d2 05 e1 0d 0a dc 04 0d 0a e6 0d |................|
000021d0 dd 20 f2 73 65 74 6f 6c 64 0d 0a f0 44 6f 6c 64 |. .setold...Dold|
000021e0 72 65 73 63 3d 72 65 73 63 3a 6f 6c 64 61 61 3d |resc=resc:oldaa=|
000021f0 61 61 3a 6f 6c 64 63 61 63 68 65 3d 63 61 63 68 |aa:oldcache=cach|
00002200 65 3a 6f 6c 64 68 6f 72 69 7a 3d 68 6f 72 69 7a |e:oldhoriz=horiz|
00002210 3a 6f 6c 64 76 65 72 74 3d 76 65 72 74 0d 0a fa |:oldvert=vert...|
00002220 05 e1 0d 0b 04 04 0d 0b 0e 13 dd 20 f2 75 70 64 |........... .upd|
00002230 61 74 65 63 6f 6e 66 69 67 0d 0b 18 14 c8 99 22 |ateconfig......"|
00002240 48 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 0d 0b 22 |Hourglass_On".."|
00002250 1f e7 6f 6c 64 72 65 73 63 3c 3e 72 65 73 63 20 |..oldresc<>resc |
00002260 ff 72 65 73 63 24 2b c3 72 65 73 63 0d 0b 2c 17 |.resc$+.resc..,.|
00002270 e7 6f 6c 64 61 61 3c 3e 61 61 20 ff 61 61 24 2b |.oldaa<>aa .aa$+|
00002280 c3 61 61 0d 0b 36 23 e7 6f 6c 64 63 61 63 68 65 |.aa..6#.oldcache|
00002290 3c 3e 63 61 63 68 65 20 ff 63 61 63 68 65 24 2b |<>cache .cache$+|
000022a0 c3 63 61 63 68 65 0d 0b 40 23 e7 6f 6c 64 68 6f |.cache..@#.oldho|
000022b0 72 69 7a 3c 3e 68 6f 72 69 7a 20 ff 68 6f 72 69 |riz<>horiz .hori|
000022c0 7a 24 2b c3 68 6f 72 69 7a 0d 0b 4a 1f e7 6f 6c |z$+.horiz..J..ol|
000022d0 64 76 65 72 74 3c 3e 76 65 72 74 20 ff 76 65 72 |dvert<>vert .ver|
000022e0 74 24 2b c3 76 65 72 74 0d 0b 54 0b f2 73 65 74 |t$+.vert..T..set|
000022f0 6f 6c 64 0d 0b 5e 15 c8 99 22 48 6f 75 72 67 6c |old..^..."Hourgl|
00002300 61 73 73 5f 4f 66 66 22 0d 0b 68 05 e1 0d 0b 72 |ass_Off"..h....r|
00002310 04 0d 0b 7c 10 dd 20 f2 6d 6f 72 65 73 70 61 63 |...|.. .morespac|
00002320 65 0d 0b 86 0b ea 20 41 25 2c 42 25 0d 0b 90 33 |e..... A%,B%...3|
00002330 c8 99 22 57 69 6d 70 5f 53 6c 6f 74 53 69 7a 65 |.."Wimp_SlotSize|
00002340 22 2c 6d 65 6e 75 6c 69 6d 69 74 2d 26 38 30 30 |",menulimit-&800|
00002350 30 2b 26 31 30 30 30 2c 2d 31 20 b8 20 41 25 0d |0+&1000,-1 . A%.|
00002360 0b 9a 3d e7 41 25 2b 26 38 30 30 30 3d 6d 65 6e |..=.A%+&8000=men|
00002370 75 6c 69 6d 69 74 20 85 20 32 32 34 2c 22 43 61 |ulimit . 224,"Ca|
00002380 6e 27 74 20 67 65 74 20 6d 6f 72 65 20 73 70 61 |n't get more spa|
00002390 63 65 20 66 6f 72 20 6d 65 6e 75 22 0d 0b a4 16 |ce for menu"....|
000023a0 6d 65 6e 75 6c 69 6d 69 74 3d 41 25 2b 26 38 30 |menulimit=A%+&80|
000023b0 30 30 0d 0b ae 3a 42 25 3d 28 6d 65 6e 75 6c 69 |00...:B%=(menuli|
000023c0 6d 69 74 2d 6d 65 6e 75 70 74 72 25 2b 6d 65 6e |mit-menuptr%+men|
000023d0 75 64 61 74 61 25 2d 6d 65 6e 75 73 74 72 69 6e |udata%-menustrin|
000023e0 67 73 25 29 2f 32 20 80 20 ac 20 33 0d 0b b8 39 |gs%)/2 . . 3...9|
000023f0 e7 42 25 3e 6d 65 6e 75 6c 69 6d 69 74 2d 6d 65 |.B%>menulimit-me|
00002400 6e 75 70 74 72 25 20 42 25 3d 28 6d 65 6e 75 6c |nuptr% B%=(menul|
00002410 69 6d 69 74 2d 6d 65 6e 75 70 74 72 25 29 2f 32 |imit-menuptr%)/2|
00002420 20 80 20 ac 33 0d 0b c2 20 e3 41 25 3d 6d 65 6e | . .3... .A%=men|
00002430 75 70 74 72 25 20 b8 20 6d 65 6e 75 64 61 74 61 |uptr% . menudata|
00002440 25 20 88 2d 34 0d 0b cc 0f 41 25 21 42 25 3d 21 |% .-4....A%!B%=!|
00002450 41 25 3a ed 0d 0b d6 1e 6d 65 6e 75 70 74 72 25 |A%:.....menuptr%|
00002460 2b 3d 42 25 3a 6d 65 6e 75 64 61 74 61 25 2b 3d |+=B%:menudata%+=|
00002470 42 25 0d 0b e0 05 e1 0d 0b ea 05 20 0d 0b f4 0e |B%......... ....|
00002480 dd 20 f2 64 72 61 67 62 61 72 0d 0b fe 38 f2 67 |. .dragbar...8.g|
00002490 65 74 70 6f 69 6e 74 65 72 3a 66 6f 6e 74 6d 61 |etpointer:fontma|
000024a0 78 3d 28 6d 6f 75 73 65 78 25 2d 28 66 6f 6e 74 |x=(mousex%-(font|
000024b0 6d 61 78 62 61 72 78 2b 62 78 25 29 29 2a 34 30 |maxbarx+bx%))*40|
000024c0 39 36 0d 0c 08 28 e7 66 6f 6e 74 6d 61 78 3e 31 |96...(.fontmax>1|
000024d0 30 32 30 2a 31 30 32 34 20 66 6f 6e 74 6d 61 78 |020*1024 fontmax|
000024e0 3d 31 30 32 30 2a 31 30 32 34 0d 0c 12 53 e7 66 |=1020*1024...S.f|
000024f0 6f 6e 74 6d 61 78 3c 3e 6f 6c 64 66 6f 6e 74 6d |ontmax<>oldfontm|
00002500 61 78 20 ff 66 6f 6e 74 6d 61 78 24 2b c3 28 66 |ax .fontmax$+.(f|
00002510 6f 6e 74 6d 61 78 20 81 31 30 32 34 29 2b 22 4b |ontmax .1024)+"K|
00002520 22 3a f2 66 6f 6e 74 6d 61 78 3a 6f 6c 64 66 6f |":.fontmax:oldfo|
00002530 6e 74 6d 61 78 3d 66 6f 6e 74 6d 61 78 0d 0c 1c |ntmax=fontmax...|
00002540 10 e7 62 25 3d 30 20 66 6c 67 25 3d 31 0d 0c 26 |..b%=0 flg%=1..&|
00002550 05 e1 0d 0c 30 04 0d 0c 3a 1c dd 20 f2 63 6c 6f |....0...:.. .clo|
00002560 73 65 61 77 69 6e 64 6f 77 28 68 61 6e 64 6c 65 |seawindow(handle|
00002570 25 29 0d 0c 44 1a f2 63 6c 6f 73 65 5f 77 69 6e |%)..D..close_win|
00002580 64 6f 77 28 68 61 6e 64 6c 65 25 29 0d 0c 4e 0d |dow(handle%)..N.|
00002590 f2 66 69 6e 69 73 68 3a e0 0d 0c 58 05 e1 0d 0c |.finish:...X....|
000025a0 62 04 0d 0c 6c 0d dd 20 f2 66 69 6e 69 73 68 0d |b...l.. .finish.|
000025b0 0c 76 25 c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 |.v%.. "Wimp_Clos|
000025c0 65 44 6f 77 6e 22 3a f2 75 70 64 61 74 65 63 6f |eDown":.updateco|
000025d0 6e 66 69 67 0d 0c 80 05 e1 0d 0c 8a 04 0d 0c 94 |nfig............|
000025e0 19 dd 20 f2 6d 65 6e 75 73 65 6c 65 63 74 28 6d |.. .menuselect(m|
000025f0 65 6e 75 73 25 29 0d 0c 9e 0e 70 74 73 69 7a 65 |enus%)....ptsize|
00002600 25 3d 31 32 0d 0c a8 2f c8 99 20 44 63 4d 65 6e |%=12.../.. DcMen|
00002610 75 2c 2c 6d 65 6e 75 64 61 74 61 25 2c 6d 65 6e |u,,menudata%,men|
00002620 75 73 25 2c c4 32 30 30 2c 22 20 22 29 b8 2c 2c |us%,.200," ").,,|
00002630 2c 61 24 0d 0c b2 0f e7 20 61 24 3d 22 22 20 8c |,a$..... a$="" .|
00002640 20 e1 0d 0c bc 14 c8 8e 20 6d 65 6e 75 68 61 6e | ....... menuhan|
00002650 64 6c 65 25 20 ca 0d 0c c6 32 c9 20 66 63 74 72 |dle% ....2. fctr|
00002660 6c 25 3a 24 66 6e 61 6d 65 25 3d 61 24 2b bd 30 |l%:$fname%=a$+.0|
00002670 3a f2 75 70 64 61 74 65 69 63 6f 6e 28 66 6e 61 |:.updateicon(fna|
00002680 6d 65 69 63 6f 6e 25 29 0d 0c d0 44 20 c8 99 20 |meicon%)...D .. |
00002690 47 65 74 50 2c 2c 71 25 3a e7 71 25 3f 38 80 31 |GetP,,q%:.q%?8.1|
000026a0 20 c8 99 20 43 72 4d 65 6e 75 2c 2c 6d 65 6e 75 | .. CrMenu,,menu|
000026b0 64 61 74 61 25 2c 6d 6f 75 73 65 78 25 2d 31 30 |data%,mousex%-10|
000026c0 32 2c 6d 6f 75 73 65 79 25 2b 36 34 0d 0c da 05 |2,mousey%+64....|
000026d0 cb 0d 0c e4 05 e1 0d 0c ee 04 0d 0c f8 0c dd 20 |............... |
000026e0 f2 66 63 74 72 6c 0d 0d 02 0c c8 95 20 6d 6f 72 |.fctrl...... mor|
000026f0 65 25 0d 0d 0c 45 20 c8 99 20 43 6f 6c 25 2c 31 |e%...E .. Col%,1|
00002700 31 3a c8 93 20 c8 90 20 62 78 25 2b 66 6f 6e 74 |1:.. .. bx%+font|
00002710 6d 61 78 62 61 72 78 2c 62 79 25 2b 66 6f 6e 74 |maxbarx,by%+font|
00002720 6d 61 78 62 61 72 79 2c 66 6f 6e 74 6d 61 78 20 |maxbary,fontmax |
00002730 3e 3e 31 32 2c 31 36 0d 0d 16 41 20 c8 99 20 43 |>>12,16...A .. C|
00002740 6f 6c 25 2c 37 3a c8 93 20 62 78 25 2b 66 6f 6e |ol%,7:.. bx%+fon|
00002750 74 6d 61 78 62 61 72 78 2c 62 79 25 2b 66 6f 6e |tmaxbarx,by%+fon|
00002760 74 6d 61 78 62 61 72 79 2c 66 6f 6e 74 6d 61 78 |tmaxbary,fontmax|
00002770 20 3e 3e 31 32 2c 31 36 0d 0d 20 19 20 c8 99 20 | >>12,16.. . .. |
00002780 47 65 74 52 25 2c 2c 71 25 20 b8 20 6d 6f 72 65 |GetR%,,q% . more|
00002790 25 0d 0d 2a 05 ce 0d 0d 34 05 e1 0d 0d 3e 04 0d |%..*....4....>..|
000027a0 0d 48 15 dd 20 f2 66 72 6f 6e 74 28 68 61 6e 64 |.H.. .front(hand|
000027b0 6c 65 25 29 0d 0d 52 11 e7 68 61 6e 64 6c 65 25 |le%)..R..handle%|
000027c0 3d 2d 31 8c e1 0d 0d 5c 12 f2 67 65 74 77 28 68 |=-1....\..getw(h|
000027d0 61 6e 64 6c 65 25 29 0d 0d 66 36 f2 6f 70 65 6e |andle%)..f6.open|
000027e0 5f 77 69 6e 64 6f 77 28 68 61 6e 64 6c 65 25 2c |_window(handle%,|
000027f0 78 30 25 2c 79 30 25 2c 78 31 25 2c 79 31 25 2c |x0%,y0%,x1%,y1%,|
00002800 73 63 78 25 2c 73 63 79 25 2c 2d 31 29 0d 0d 70 |scx%,scy%,-1)..p|
00002810 05 e1 0d 0d 7a 04 0d 0d 84 15 dd 20 f2 70 6f 70 |....z...... .pop|
00002820 75 70 28 68 61 6e 64 6c 65 25 29 0d 0d 8e 12 f2 |up(handle%).....|
00002830 67 65 74 77 28 68 61 6e 64 6c 65 25 29 0d 0d 98 |getw(handle%)...|
00002840 30 78 6f 25 3d 6d 6f 75 73 65 78 25 2d 28 78 30 |0xo%=mousex%-(x0|
00002850 25 2b 78 31 25 29 2f 32 3a 79 6f 25 3d 6d 6f 75 |%+x1%)/2:yo%=mou|
00002860 73 65 79 25 2d 28 79 31 25 2b 36 34 29 0d 0d a2 |sey%-(y1%+64)...|
00002870 46 f2 6f 70 65 6e 5f 77 69 6e 64 6f 77 28 68 61 |F.open_window(ha|
00002880 6e 64 6c 65 25 2c 78 30 25 2b 78 6f 25 2c 79 30 |ndle%,x0%+xo%,y0|
00002890 25 2b 79 6f 25 2c 78 31 25 2b 78 6f 25 2c 79 31 |%+yo%,x1%+xo%,y1|
000028a0 25 2b 79 6f 25 2c 73 63 78 25 2c 73 63 79 25 2c |%+yo%,scx%,scy%,|
000028b0 2d 31 29 0d 0d ac 05 e1 0d 0d b6 04 0d 0d c0 3e |-1)............>|
000028c0 dd 20 f2 6f 70 65 6e 5f 77 69 6e 64 6f 77 28 68 |. .open_window(h|
000028d0 61 6e 64 6c 65 25 2c 78 30 25 2c 79 30 25 2c 78 |andle%,x0%,y0%,x|
000028e0 31 25 2c 79 31 25 2c 73 63 78 25 2c 73 63 79 25 |1%,y1%,scx%,scy%|
000028f0 2c 62 68 61 6e 64 6c 65 25 29 0d 0d ca 11 e7 68 |,bhandle%).....h|
00002900 61 6e 64 6c 65 25 3d 2d 31 8c e1 0d 0d d4 1f 71 |andle%=-1......q|
00002910 25 21 30 3d 68 61 6e 64 6c 65 25 3a 71 25 21 32 |%!0=handle%:q%!2|
00002920 38 3d 62 68 61 6e 64 6c 65 25 0d 0d de 29 71 25 |8=bhandle%...)q%|
00002930 21 34 3d 78 30 25 3a 71 25 21 38 3d 79 30 25 3a |!4=x0%:q%!8=y0%:|
00002940 71 25 21 31 32 3d 78 31 25 3a 71 25 21 31 36 3d |q%!12=x1%:q%!16=|
00002950 79 31 25 0d 0d e8 19 71 25 21 32 30 3d 73 63 78 |y1%....q%!20=scx|
00002960 25 3a 71 25 21 32 34 3d 73 63 79 25 0d 0d f2 10 |%:q%!24=scy%....|
00002970 c8 99 20 4f 70 65 6e 57 2c 2c 71 25 0d 0d fc 05 |.. OpenW,,q%....|
00002980 e1 0d 0e 06 04 0d 0e 10 14 dd 20 f2 67 65 74 77 |.......... .getw|
00002990 28 68 61 6e 64 6c 65 25 29 0d 0e 1a 1b 21 71 25 |(handle%)....!q%|
000029a0 3d 68 61 6e 64 6c 65 25 3a c8 99 20 47 65 74 57 |=handle%:.. GetW|
000029b0 2c 2c 71 25 0d 0e 24 2b f2 69 6e 66 6f 28 71 25 |,,q%..$+.info(q%|
000029c0 2b 34 29 3a 62 68 61 6e 64 6c 65 25 3d 71 25 21 |+4):bhandle%=q%!|
000029d0 32 38 3a 66 6c 61 67 73 25 3d 71 25 21 33 32 0d |28:flags%=q%!32.|
000029e0 0e 2e 05 e1 0d 0e 38 04 0d 0e 42 0f dd 20 f2 69 |......8...B.. .i|
000029f0 6e 66 6f 28 71 25 29 0d 0e 4c 3d 78 30 25 3d 21 |nfo(q%)..L=x0%=!|
00002a00 71 25 3a 79 30 25 3d 71 25 21 34 3a 78 31 25 3d |q%:y0%=q%!4:x1%=|
00002a10 71 25 21 38 3a 79 31 25 3d 71 25 21 31 32 3a 73 |q%!8:y1%=q%!12:s|
00002a20 63 78 25 3d 71 25 21 31 36 3a 73 63 79 25 3d 71 |cx%=q%!16:scy%=q|
00002a30 25 21 32 30 0d 0e 56 1d 62 78 25 3d 78 30 25 2d |%!20..V.bx%=x0%-|
00002a40 73 63 78 25 3a 62 79 25 3d 79 31 25 2d 73 63 79 |scx%:by%=y1%-scy|
00002a50 25 0d 0e 60 05 e1 0d 0e 6a 04 0d 0e 74 2a dd 20 |%..`....j...t*. |
00002a60 f2 75 70 64 61 74 65 28 68 61 6e 64 6c 65 25 2c |.update(handle%,|
00002a70 75 78 30 25 2c 75 79 30 25 2c 75 78 31 25 2c 75 |ux0%,uy0%,ux1%,u|
00002a80 79 31 25 29 0d 0e 7e 39 21 71 25 3d 68 61 6e 64 |y1%)..~9!q%=hand|
00002a90 6c 65 25 3a 71 25 21 34 3d 75 78 30 25 3a 71 25 |le%:q%!4=ux0%:q%|
00002aa0 21 38 3d 75 79 30 25 3a 71 25 21 31 32 3d 75 78 |!8=uy0%:q%!12=ux|
00002ab0 31 25 3a 71 25 21 31 36 3d 75 79 31 25 0d 0e 88 |1%:q%!16=uy1%...|
00002ac0 26 c8 99 20 55 70 64 61 74 65 57 2c 2c 71 25 20 |&.. UpdateW,,q% |
00002ad0 b8 20 6d 6f 72 65 25 3a f2 69 6e 66 6f 28 71 25 |. more%:.info(q%|
00002ae0 2b 34 29 0d 0e 92 05 e1 0d 0e 9c 04 0d 0e a6 1d |+4).............|
00002af0 dd 20 f2 72 65 64 72 61 77 5f 77 69 6e 64 6f 77 |. .redraw_window|
00002b00 28 68 61 6e 64 6c 65 25 29 0d 0e b0 15 e7 68 61 |(handle%).....ha|
00002b10 6e 64 6c 65 25 3d 66 63 74 72 6c 25 20 8c 0d 0e |ndle%=fctrl% ...|
00002b20 ba 0f 21 71 25 3d 68 61 6e 64 6c 65 25 0d 0e c4 |..!q%=handle%...|
00002b30 1a c8 99 20 52 65 64 72 61 77 57 2c 2c 71 25 20 |... RedrawW,,q% |
00002b40 b8 20 6d 6f 72 65 25 0d 0e ce 0f f2 69 6e 66 6f |. more%.....info|
00002b50 28 71 25 2b 34 29 0d 0e d8 0a f2 66 63 74 72 6c |(q%+4).....fctrl|
00002b60 0d 0e e2 05 cd 0d 0e ec 05 e1 0d 0e f6 04 0d 0f |................|
00002b70 00 1c dd 20 f2 63 6c 6f 73 65 5f 77 69 6e 64 6f |... .close_windo|
00002b80 77 28 68 61 6e 64 6c 65 25 29 0d 0f 0a 1d 21 71 |w(handle%)....!q|
00002b90 25 3d 68 61 6e 64 6c 65 25 3a c8 99 20 43 6c 6f |%=handle%:.. Clo|
00002ba0 73 65 57 2c 2c 71 25 0d 0f 14 05 e1 0d 0f 1e 04 |seW,,q%.........|
00002bb0 0d 0f 28 17 dd 20 f2 75 70 64 61 74 65 69 63 6f |..(.. .updateico|
00002bc0 6e 28 71 25 21 34 29 0d 0f 32 1d 21 71 25 3d 66 |n(q%!4)..2.!q%=f|
00002bd0 63 74 72 6c 25 3a 71 25 21 38 3d 30 3a 71 25 21 |ctrl%:q%!8=0:q%!|
00002be0 31 32 3d 30 0d 0f 3c 12 c8 99 20 53 65 74 49 63 |12=0..<... SetIc|
00002bf0 6f 6e 2c 2c 71 25 0d 0f 46 05 e1 0d 0f 50 04 0d |on,,q%..F....P..|
00002c00 0f 5a 0b dd 20 f2 76 61 72 73 0d 0f 64 1c 46 6f |.Z.. .vars..d.Fo|
00002c10 6e 74 20 20 3d 20 28 31 3c 3c 31 38 29 20 2b 20 |nt = (1<<18) + |
00002c20 28 32 3c 3c 36 29 0d 0f 6e 14 46 69 6e 64 46 6f |(2<<6)..n.FindFo|
00002c30 6e 74 3d 20 46 6f 6e 74 2b 31 0d 0f 78 14 4c 6f |nt= Font+1..x.Lo|
00002c40 73 65 46 6f 6e 74 3d 20 46 6f 6e 74 2b 32 0d 0f |seFont= Font+2..|
00002c50 82 14 46 6f 6e 74 44 65 66 6e 3d 20 46 6f 6e 74 |..FontDefn= Font|
00002c60 2b 33 0d 0f 8c 13 57 69 64 74 68 20 20 3d 20 46 |+3....Width = F|
00002c70 6f 6e 74 2b 35 0d 0f 96 13 50 61 69 6e 74 25 20 |ont+5....Paint% |
00002c80 3d 20 46 6f 6e 74 2b 36 0d 0f a0 13 43 61 72 65 |= Font+6....Care|
00002c90 74 20 20 3d 20 46 6f 6e 74 2b 37 0d 0f aa 1c 57 |t = Font+7....W|
00002ca0 69 6d 70 20 20 3d 20 28 31 3c 3c 31 38 29 20 2b |imp = (1<<18) +|
00002cb0 20 28 33 3c 3c 36 29 0d 0f b4 14 43 72 65 61 74 | (3<<6)....Creat|
00002cc0 65 57 20 3d 20 57 69 6d 70 2b 31 0d 0f be 13 4f |eW = Wimp+1....O|
00002cd0 70 65 6e 57 20 20 3d 20 57 69 6d 70 2b 35 0d 0f |penW = Wimp+5..|
00002ce0 c8 13 43 6c 6f 73 65 57 20 3d 20 57 69 6d 70 2b |..CloseW = Wimp+|
00002cf0 36 0d 0f d2 13 50 6f 6c 6c 25 20 20 3d 20 57 69 |6....Poll% = Wi|
00002d00 6d 70 2b 37 0d 0f dc 14 52 65 64 72 61 77 57 20 |mp+7....RedrawW |
00002d10 3d 20 57 69 6d 70 2b 38 0d 0f e6 14 55 70 64 61 |= Wimp+8....Upda|
00002d20 74 65 57 20 3d 20 57 69 6d 70 2b 39 0d 0f f0 14 |teW = Wimp+9....|
00002d30 47 65 74 52 25 20 20 3d 20 57 69 6d 70 2b 31 30 |GetR% = Wimp+10|
00002d40 0d 0f fa 13 47 65 74 57 20 20 3d 20 57 69 6d 70 |....GetW = Wimp|
00002d50 2b 31 31 0d 10 04 13 47 65 74 50 20 20 3d 20 57 |+11....GetP = W|
00002d60 69 6d 70 2b 31 35 0d 10 0e 13 44 72 61 67 20 20 |imp+15....Drag |
00002d70 3d 20 57 69 6d 70 2b 31 36 0d 10 18 14 43 72 4d |= Wimp+16....CrM|
00002d80 65 6e 75 20 3d 20 57 69 6d 70 2b 32 30 0d 10 22 |enu = Wimp+20.."|
00002d90 14 44 63 4d 65 6e 75 20 3d 20 57 69 6d 70 2b 32 |.DcMenu = Wimp+2|
00002da0 31 0d 10 2c 14 53 65 74 49 63 6f 6e 20 3d 20 26 |1..,.SetIcon = &|
00002db0 34 30 30 43 44 0d 10 36 38 c8 99 20 22 4f 53 5f |400CD..68.. "OS_|
00002dc0 53 57 49 4e 75 6d 62 65 72 46 72 6f 6d 53 74 72 |SWINumberFromStr|
00002dd0 69 6e 67 22 2c 2c 22 57 69 6d 70 5f 53 65 74 43 |ing",,"Wimp_SetC|
00002de0 6f 6c 6f 75 72 22 20 b8 20 43 6f 6c 25 0d 10 40 |olour" . Col%..@|
00002df0 3c c8 99 20 22 4f 53 5f 53 57 49 4e 75 6d 62 65 |<.. "OS_SWINumbe|
00002e00 72 46 72 6f 6d 53 74 72 69 6e 67 22 2c 2c 22 4f |rFromString",,"O|
00002e10 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 69 61 62 |S_ReadModeVariab|
00002e20 6c 65 22 20 b8 20 52 4d 56 0d 10 4a 31 c8 99 20 |le" . RMV..J1.. |
00002e30 22 4f 53 5f 53 57 49 4e 75 6d 62 65 72 46 72 6f |"OS_SWINumberFro|
00002e40 6d 53 74 72 69 6e 67 22 2c 2c 22 4f 53 5f 42 79 |mString",,"OS_By|
00002e50 74 65 22 20 b8 20 42 79 74 65 0d 10 54 05 e1 0d |te" . Byte..T...|
00002e60 10 5e 04 0d 10 68 11 dd 20 f2 67 65 74 70 6f 69 |.^...h.. .getpoi|
00002e70 6e 74 65 72 0d 10 72 0f c8 99 20 47 65 74 50 2c |nter..r... GetP,|
00002e80 2c 71 25 0d 10 7c 48 6d 6f 75 73 65 78 25 3d 21 |,q%..|Hmousex%=!|
00002e90 71 25 3a 6d 6f 75 73 65 79 25 3d 71 25 21 34 3a |q%:mousey%=q%!4:|
00002ea0 62 25 3d 71 25 21 38 3a 68 61 6e 64 6c 65 25 3d |b%=q%!8:handle%=|
00002eb0 71 25 21 31 32 3a 69 63 6f 6e 25 3d 71 25 21 31 |q%!12:icon%=q%!1|
00002ec0 36 3a 6f 62 25 3d 71 25 21 32 30 0d 10 86 05 e1 |6:ob%=q%!20.....|
00002ed0 0d 10 90 04 0d 10 9a 0f dd 20 f2 65 72 72 6f 72 |......... .error|
00002ee0 62 6f 78 0d 10 a4 16 c8 99 20 44 72 61 67 2c 2c |box...... Drag,,|
00002ef0 2d 31 3a 66 6c 67 25 3d 31 0d 10 ae 32 21 62 75 |-1:flg%=1...2!bu|
00002f00 66 66 65 72 73 25 3d 9f 3a 24 28 62 75 66 66 65 |ffers%=.:$(buffe|
00002f10 72 73 25 2b 34 29 3d f6 24 2b 22 20 61 74 20 6c |rs%+4)=.$+" at l|
00002f20 69 6e 65 20 22 2b c3 9e 2b bd 30 0d 10 b8 33 c8 |ine "+..+.0...3.|
00002f30 99 20 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 |. "Wimp_ReportEr|
00002f40 72 6f 72 22 2c 62 75 66 66 65 72 73 25 2c 31 2c |ror",buffers%,1,|
00002f50 22 46 6f 6e 74 20 43 6f 6e 74 72 6f 6c 22 0d 10 |"Font Control"..|
00002f60 c2 05 e1 0d ff |.....|
00002f65 
.