Home » Archimedes archive » Archimedes World » AW-1993-08.adf » AWAug93 » !AWAug93/Goodies/Staves/!STAVESPRN/!RunImage
!AWAug93/Goodies/Staves/!STAVESPRN/!RunImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Archimedes World » AW-1993-08.adf » AWAug93 |
| Filename: | !AWAug93/Goodies/Staves/!STAVESPRN/!RunImage |
| Read OK: | ✔ |
| File size: | 3DD1 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >scsi::Butler.$.JamesFiles.Programs.StavesPrn.!StavesPrn.!RunImage
20 LIBRARY "<Obey$Dir>.Wimp"
30 PROCWimp_Start("StavesPrn",4000,4000)
40 PROCUser_SetInitialData
50 PROCCreate_Windows
60 PROCCreate_Menus
70 PROCWimp_WaitForEvent
80 PROCWimp_CloseDown
90 END
100 :
110 DEF PROCUser_SetInitialData
120 gap%=2:stavesnum%=13:width%=100:percent%=0:Go%=FALSE:N=0:Started%=FALSE:xb%=458:yb%=676:DIM drawfile% 60*1024:DIM cols% 80:path%=FALSE:stcol%=7 : precol%=7
130 ENDPROC
140 :
150 DEF PROCCreate_Windows
160 PROCWimp_SpritesLoad
170 save_setup_Window%=FNWimp_WindowLoad("save_setup")
180 save_draw_Window%=FNWimp_WindowLoad("save_draw")
190 Info_Window%=FNWimp_WindowLoad("Info")
200 PrnSetup_Window%=FNWimp_WindowLoad("PrnSetup")
210 printerInfo_Window%=FNWimp_WindowLoad("printerInfo")
220 PROCWimp_WindowBringToTop(PrnSetup_Window%)
230 Bar_Icon%=FNWimp_IconBar("!StavesPrn")
240 PROCDefault:PROCMessage("Hello. Welcome to Staves Printer.")
250 ENDPROC
260 :
270 DEF FNEvent_Save(window%)
280 CASE window% OF
290 WHEN save_setup_Window% :=TRUE
300 WHEN save_draw_Window% :=TRUE
310 OTHERWISE :=FALSE
320 ENDCASE
330 :
340 DEF FNEvent_Sprites(window%)=sprites%
350 :
360 DEF PROCCreate_Menus
370 Colours_Menu%=FNWimp_MenuCreateColours("Stave Colour")
380 menu$ ="Save\Stave Colour>Colours_Menu%\Drawfile>save_draw_Window%\Setup>save_setup_Window%\Default"
390 Save_Menu%=FNWimp_MenuCreate(menu$)
400 menu$ ="!StavesPrn\Info>Info_Window%\"
410 menu$+="Save>Save_Menu%\Print>printerInfo_Window%\Restore\Quit"
420 Bar_Menu%=FNWimp_MenuCreate(menu$)
430 PrnSetup_Menu%=FNWimp_MenuCreate(menu$)
440 PROCWimp_MenuTick(Colours_Menu%,8)
450 ENDPROC
460 :
470 DEF FNEvent_Menu(window%)
480 CASE window% OF
490 WHEN Bar_Window% : =Bar_Menu%
500 WHEN PrnSetup_Window% : =PrnSetup_Menu%
510 OTHERWISE : =FALSE
520 ENDCASE
530 :
540 DEF PROCEvent_WindowClose(window%,buttons%)
550 CASE window% OF
560 WHEN save_setup_Window% : PROCWimp_MenuClose
570 WHEN printerInfo_Window% : PROCWimp_MenuClose
580 ENDCASE
590 ENDPROC
600 :
610 DEF PROCEvent_Draw(window%,x_origin%,y_origin%)
620 CASE window% OF
630 WHEN save_setup_Window% : PROCUser_Drawsave_setupWindow
640 WHEN Info_Window% : PROCUser_DrawInfoWindow
650 WHEN PrnSetup_Window% : PROCUser_DrawPrnSetupWindow
660 WHEN printerInfo_Window% : PROCUser_DrawprinterInfoWindow
670 ENDCASE
680 ENDPROC
690 :
700 DEF PROCUser_Drawsave_setupWindow
710 ENDPROC
720 :
730 DEF PROCUser_DrawInfoWindow
740 ENDPROC
750 :
760 DEF PROCUser_DrawPrnSetupWindow
770 ENDPROC
780 :
790 DEF PROCUser_DrawprinterInfoWindow
800 ENDPROC
810 :
820 DEF PROCEvent_MouseClick(window%,icon%,button%,x%,y%)
830 CASE window% OF
840 WHEN Bar_Window% : PROCUser_MouseBar
850 WHEN Info_Window% : PROCUser_MouseInfo( button%,icon%)
860 WHEN PrnSetup_Window% : PROCUser_MousePrnSetup( button%,icon%,x%,y%)
870 WHEN printerInfo_Window%: PROCUser_MouseprinterInfo( button%,icon%)
880 WHEN Percentage_Window% : PROCUser_MousePercentage( button%,icon%)
890 ENDCASE
900 ENDPROC
910 :
920 DEF PROCUser_MousePercentage( button%,icon%)
930 CASE icon% OF
940 WHEN 2 : T=stavesnum% : N=stavesnum% : Go%=FALSE : PROCMessage("Printing Stopped!")
950 ENDCASE
960 ENDPROC
970 :
980 DEF PROCUser_MouseBar
990 PROCWimp_WindowBringToTop(PrnSetup_Window%)
1000 ENDPROC
1010 :
1020 DEF PROCUser_MouseInfo( button%,icon%)
1030 PROCWimp_WindowClose(Info_Window%)
1040 ENDPROC
1050 :
1060 DEF PROCUser_MousePrnSetup( button%,icon%,x%,y%)
1070 CASE icon% OF
1080 WHEN 25 : PROCDefault
1090 WHEN 27 : PROCWimp_MenuPopUp(Save_Menu%,x%,y%)
1100 WHEN 29 : finished%=TRUE
1110 WHEN 31 : PROCWimp_WindowBringToTop(printerInfo_Window%)
1120 WHEN 39 : IF button%=1 OR button%=4 PROCChangeStaves(TRUE)
1130 WHEN 38 : IF button%=1 OR button%=4 PROCChangeStaves(FALSE)
1140 WHEN 40 : IF button%=1 OR button%=4 PROCChangeWidth(TRUE)
1150 WHEN 41 : IF button%=1 OR button%=4 PROCChangeWidth(FALSE)
1160 WHEN 42 : IF button%=1 OR button%=4 PROCChangeGap(TRUE)
1170 WHEN 43 : IF button%=1 OR button%=4 PROCChangeGap(FALSE)
1180 ENDCASE
1190 ENDPROC
1200 :
1210 DEF PROCUser_MouseprinterInfo( button%,icon%)
1220 CASE icon% OF
1230 WHEN 8 : PROCWimp_WindowClose(printerInfo_Window%) : PROCMessage("Printing.... 0% completed") : percent%=0 : SYS"Hourglass_On" : PROCPrint
1240
1250 ENDCASE
1260 ENDPROC
1270 :
1280 DEF PROCEvent_KeyPress(window%,icon%,key%)
1290 CASE window% OF
1300 WHEN PrnSetup_Window% : PROCUser_KeyPressPrnSetup( icon%,key%)
1310 ENDCASE
1320 ENDPROC
1330 :
1340 DEF PROCUser_KeyPressPrnSetup( icon%,key%)
1350 ENDPROC
1360 :
1370 DEF PROCEvent_MenuChoice(menu%)
1380 CASE menu% OF
1390 WHEN Bar_Menu% : PROCUser_MenuChoiceBar
1400 WHEN PrnSetup_Menu% : PROCUser_MenuChoicePrnSetup
1410 WHEN Save_Menu% : PROCUser_MenuChoiceSave
1420 ENDCASE
1430 ENDPROC
1440 :
1450 DEF PROCUser_MenuChoiceSave
1460 CASE FNWimp_MenuChoice(0) OF
1470 WHEN 1 : PROCWimp_WindowBringToTop(save_draw_Window%)
1480 WHEN 2 : PROCWimp_WindowBringToTop(save_setup_Window%)
1490 WHEN 3 : PROCSave("<StavesPrn$Dir>.Defaults") : PROCMessage("New defaults have been saved.")
1500 ENDCASE
1510 ENDPROC
1520 :
1530 DEF PROCUser_MenuChoiceBar
1540 CASE FNWimp_MenuChoice(0) OF
1550 WHEN 1 : PROCWimp_WindowBringToTop(Info_Window%)
1560 WHEN 2 : CASE FNWimp_MenuChoice(1) OF
1570 WHEN 1 : CASE FNWimp_MenuChoice(2) OF
1580 WHEN 1 : stcol%=0 : PROCWimp_MenuTick(Colours_Menu%,1) : PROCUnTick
1590 WHEN 2 : stcol%=1 : PROCWimp_MenuTick(Colours_Menu%,2) : PROCUnTick
1600 WHEN 3 : stcol%=2 : PROCWimp_MenuTick(Colours_Menu%,3) : PROCUnTick
1610 WHEN 4 : stcol%=3 : PROCWimp_MenuTick(Colours_Menu%,4) : PROCUnTick
1620 WHEN 5 : stcol%=4 : PROCWimp_MenuTick(Colours_Menu%,5) : PROCUnTick
1630 WHEN 6 : stcol%=5 : PROCWimp_MenuTick(Colours_Menu%,6) : PROCUnTick
1640 WHEN 7 : stcol%=6 : PROCWimp_MenuTick(Colours_Menu%,7) : PROCUnTick
1650 WHEN 8 : stcol%=7 : PROCWimp_MenuTick(Colours_Menu%,8) : PROCUnTick
1660 WHEN 9 : stcol%=8 : PROCWimp_MenuTick(Colours_Menu%,9) : PROCUnTick
1670 WHEN 10 : stcol%=9 : PROCWimp_MenuTick(Colours_Menu%,10) : PROCUnTick
1680 WHEN 11 : stcol%=10 : PROCWimp_MenuTick(Colours_Menu%,11) : PROCUnTick
1690 WHEN 12 : stcol%=11 : PROCWimp_MenuTick(Colours_Menu%,12) : PROCUnTick
1700 WHEN 13 : stcol%=12 : PROCWimp_MenuTick(Colours_Menu%,13) : PROCUnTick
1710 WHEN 14 : stcol%=13 : PROCWimp_MenuTick(Colours_Menu%,14) : PROCUnTick
1720 WHEN 15 : stcol%=14 : PROCWimp_MenuTick(Colours_Menu%,15) : PROCUnTick
1730 WHEN 16 : stcol%=15 : PROCWimp_MenuTick(Colours_Menu%,16) : PROCUnTick
1740 ENDCASE
1750 WHEN 2 : PROCWimp_WindowBringToTop(save_draw_Window%)
1760 WHEN 3 : PROCWimp_WindowBringToTop(save_setup_Window%)
1770 WHEN 4 : PROCSave("<StavesPrn$Dir>.Defaults") : PROCMessage("New defaults have been saved.")
1780 ENDCASE
1790 WHEN 3 : PROCWimp_WindowBringToTop(printerInfo_Window%)
1800 WHEN 4 : PROCRestoreDefaults
1810 WHEN 5 :finished%=TRUE
1820 ENDCASE
1830 ENDPROC
1840 :
1850 DEF PROCUser_MenuChoicePrnSetup
1860 CASE FNWimp_MenuChoice(0) OF
1870 WHEN 1 : PROCWimp_WindowBringToTop(Info_Window%)
1880 WHEN 2 : CASE FNWimp_MenuChoice(1) OF
1890 WHEN 1 : CASE FNWimp_MenuChoice(2) OF
1900 WHEN 1 : stcol%=0 : PROCWimp_MenuTick(Colours_Menu%,1) : PROCUnTick
1910 WHEN 2 : stcol%=1 : PROCWimp_MenuTick(Colours_Menu%,2) : PROCUnTick
1920 WHEN 3 : stcol%=2 : PROCWimp_MenuTick(Colours_Menu%,3) : PROCUnTick
1930 WHEN 4 : stcol%=3 : PROCWimp_MenuTick(Colours_Menu%,4) : PROCUnTick
1940 WHEN 5 : stcol%=4 : PROCWimp_MenuTick(Colours_Menu%,5) : PROCUnTick
1950 WHEN 6 : stcol%=5 : PROCWimp_MenuTick(Colours_Menu%,6) : PROCUnTick
1960 WHEN 7 : stcol%=6 : PROCWimp_MenuTick(Colours_Menu%,7) : PROCUnTick
1970 WHEN 8 : stcol%=7 : PROCWimp_MenuTick(Colours_Menu%,8) : PROCUnTick
1980 WHEN 9 : stcol%=8 : PROCWimp_MenuTick(Colours_Menu%,9) : PROCUnTick
1990 WHEN 10 : stcol%=9 : PROCWimp_MenuTick(Colours_Menu%,10) : PROCUnTick
2000 WHEN 11 : stcol%=10 : PROCWimp_MenuTick(Colours_Menu%,11) : PROCUnTick
2010 WHEN 12 : stcol%=11 : PROCWimp_MenuTick(Colours_Menu%,12) : PROCUnTick
2020 WHEN 13 : stcol%=12 : PROCWimp_MenuTick(Colours_Menu%,13) : PROCUnTick
2030 WHEN 14 : stcol%=13 : PROCWimp_MenuTick(Colours_Menu%,14) : PROCUnTick
2040 WHEN 15 : stcol%=14 : PROCWimp_MenuTick(Colours_Menu%,15) : PROCUnTick
2050 WHEN 16 : stcol%=15 : PROCWimp_MenuTick(Colours_Menu%,16) : PROCUnTick
2060 ENDCASE
2070 WHEN 2 : PROCWimp_WindowBringToTop(save_draw_Window%)
2080 WHEN 3 : PROCWimp_WindowBringToTop(save_setup_Window%)
2090 WHEN 4 : PROCSave("<StavesPrn$Dir>.Defaults") : PROCMessage("New defaults have been saved.")
2100 ENDCASE
2110 WHEN 3 : PROCWimp_WindowBringToTop(printerInfo_Window%)
2120 WHEN 4 : PROCRestoreDefaults
2130 WHEN 5 :finished%=TRUE
2140 ENDCASE
2150 ENDPROC
2160 :
2170 DEF PROCEvent_LoadFile(file$,type$)
2180 IF type$="7FB" THEN PROCLoad(file$)
2190 IF type$="Draw" THEN PROCWimp_WindowAlert("StavesPrn","StavesPrn can only save drawfiles, not load them.")
2200 IF type$<>"7FB" AND type$<>"Draw" THEN PROCWimp_WindowAlert("StavesPrn","StavesPrn cannot load this type of file.")
2210 ENDPROC
2220 :
2230 DEF PROCEvent_SaveFile(file$,window%)
2240 CASE window% OF
2250 WHEN save_setup_Window% : PROCSave(file$) : PROCWimp_MenuClose
2260 WHEN save_draw_Window% : PROCSaveDraw(file$) : PROCWimp_MenuClose
2270 ENDCASE
2280 ENDPROC
2290 :
2300 DEF PROCDefault
2310 PROCLoad("<StavesPrn$Dir>.Defaults")
2320 PROCMessage("Settings set to default.")
2330 ENDPROC
2340 :
2350 DEFPROCPutTextInSetupIcons
2360 PROCWimp_IconPutText(PrnSetup_Window%,37,STR$(stavesnum%))
2370 PROCWimp_IconPutText(PrnSetup_Window%,35,STR$(width%)+"%")
2380 PROCWimp_IconPutText(PrnSetup_Window%,33,STR$(gap%))
2390 PROCWimp_IconPutText(printerInfo_Window%,14,STR$(stavesnum%))
2400 PROCWimp_IconPutText(printerInfo_Window%,12,STR$(width%)+"%")
2410 PROCWimp_IconPutText(printerInfo_Window%,10,STR$(gap%))
2420 ENDPROC
2430 :
2440 DEF PROCSave(file$)
2450 y=OPENOUT file$
2460 PRINT#y,gap%
2470 PRINT#y,width%
2480 PRINT#y,stavesnum%
2490 CLOSE#y
2500 OSCLI"SETTYPE "+file$+" 7FB"
2510 PROCWimp_WindowClose(save_setup_Window%)
2520 PROCMessage("Settings saved to file.")
2530 ENDPROC
2540 :
2550 DEF PROCLoad(file$)
2560 y=OPENIN file$
2570 INPUT#y,gap%
2580 INPUT#y,width%
2590 INPUT#y,stavesnum%
2600 CLOSE#y
2610 PROCPutTextInSetupIcons
2620 ENDPROC
2630 :
2640 DEFPROCPrint
2650 *FX 6,0
2660 VDU 2:length%=width%*4.93
2670 FOR N=1 TO stavesnum%
2680 FOR G=1 TO gap%:PRINT:NEXT G
2690 FOR P=1 TO 2:VDU 1,27,1,76
2700 VDU 1,(2*length%) MOD 256
2710 VDU 1,(2*length%) DIV 256
2720 FOR I=1 TO (2*length%):VDU 1,132:NEXT
2730 VDU 1,10:NEXT:VDU 1,27,1,76
2740 VDU 1,(2*length%) MOD 256
2750 VDU 1,(2*length%) DIV 256
2760 FOR I=1 TO (2*length%):VDU 1,128:NEXT
2770 VDU 1,10:PROCUpdate(N):NEXT N:VDU 3:*FX 6,10
2780 SYS"Hourglass_Off":PROCMessage("Printing finished.")
2790 ENDPROC
2800 :
2810 DEFPROCChangeStaves(UpDown%)
2820 IF UpDown%=FALSE AND stavesnum%=1 THEN ENDPROC
2830 IF UpDown%=TRUE AND stavesnum%=1000 THEN ENDPROC
2840 IF UpDown%=TRUE THEN stavesnum%=stavesnum%+1
2850 IF UpDown%=FALSE THEN stavesnum%=stavesnum%-1
2860 PROCPutTextInSetupIcons : PROCMessage("Settings changed.")
2870 ENDPROC
2880 :
2890 DEFPROCChangeGap(UpDown%)
2900 IF UpDown%=FALSE AND gap%=1 THEN ENDPROC
2910 IF UpDown%=TRUE AND gap%=100 THEN ENDPROC
2920 IF UpDown%=TRUE THEN gap%=gap%+1
2930 IF UpDown%=FALSE THEN gap%=gap%-1
2940 PROCPutTextInSetupIcons : PROCMessage("Settings changed.")
2950 ENDPROC
2960 :
2970 DEFPROCChangeWidth(UpDown%)
2980 IF UpDown%=FALSE AND width%=1 THEN ENDPROC
2990 IF UpDown%=TRUE AND width%=500 THEN ENDPROC
3000 IF UpDown%=TRUE THEN width%=width%+1
3010 IF UpDown%=FALSE THEN width%=width%-1
3020 PROCPutTextInSetupIcons : PROCMessage("Settings changed.")
3030 ENDPROC
3040 :
3050 DEF PROCUpdate(num%)
3060 VDU3
3070 IF stavesnum%<>num% THEN percent%=((100/stavesnum%)*num%)
3080 IF stavesnum%=num% THEN percent%=100
3090 PROCMessage("Printing.... "+STR$(percent%)+"% completed")
3100 VDU2
3110 ENDPROC
3120 :
3130 DEF PROCMessage(message$)
3140 PROCWimp_IconPutText(PrnSetup_Window%,23,message$)
3150 ENDPROC
3160 :
3170 DEF PROCRestoreDefaults
3180 gap%=2
3190 stavesnum%=13
3200 width%=100
3210 PROCSave("<StavesPrn$Dir>.Defaults")
3220 PROCPutTextInSetupIcons : PROCMessage("Settings restored to A4 size.")
3230 ENDPROC
3240 :
3250 DEF PROCSaveDraw(file$)
3260 PROCSetUp_DrawFile
3270 PROCGenerateStaves
3280 PROCsavedrawfile(file$)
3290 PROCWimp_WindowClose(save_draw_Window%)
3300 PROCMessage("Staves saved in Drawfile.")
3310 ENDPROC
3320 :
3330 DEFPROCSetUp_DrawFile
3340 nt%=drawfile%
3350 $nt%="Draw":nt%+=4
3360 !nt%=201:nt%+=4
3370 !nt%=0:nt%+=4
3380 $nt%=LEFT$("StavesPrn"+STRING$(12," "),12):nt%+=12
3390 nt%!0=FNxdraw(0):nt%!4=FNydraw(0)
3400 nt%!8=FNxdraw(2940):nt%!12=FNydraw(4144):nt%+=16
3410 ah%=FALSE:drawfl%=TRUE
3420 SYS "Wimp_ReadPalette",,cols%
3430 ENDPROC
3440 :
3450 DEFFNxdraw(x):=INT(x*256)
3460 DEFFNydraw(y):=INT(y*256)
3470 DEFFNcdraw(c%):c%=c% MOD 16
3480 IF c%>=0 THEN =!(cols%+c%*4) AND &FFFFFF00 ELSE =-1
3490 :
3500 DEFPROCopenpath(x1,y1,x2,y2,col%)
3510 IF path%=TRUE PROCclosepath
3520 x1%=FNxdraw(x1):y1%=FNydraw(y1):x2%=FNxdraw(x2):y2%=FNydraw(y2)
3530 objaddr%=nt%:path%=TRUE
3540 bx%=x1%:by%=y1%:bx1%=x2%:by1%=y2%:IF bx%>bx1% SWAP bx%,bx1%
3550 IF by%>by1% SWAP by%,by1%
3560 nt%=FNobjecthead(nt%,2,0,bx%,by%,bx1%,by1%)
3570 !nt%=-1:nt%+=4
3580 !nt%=FNcdraw(col%):nt%+=4
3590 !nt%=0:nt%+=4
3600 !nt%=&42:nt%+=4
3610 nt%=FNtag(nt%,2,x1%,y1%)
3620 nt%=FNtag(nt%,8,x2%,y2%)
3630 ENDPROC
3640 :
3650 DEFFNtag(addr%,tag%,x%,y%)
3660 !addr%=tag%:addr%+=4
3670 IF tag%=0 =addr%
3680 !addr%=x%:addr%+=4
3690 !addr%=y%:addr%+=4
3700 =addr%
3710 :
3720 DEFFNobjecthead(addr%,type%,size%,x1%,y1%,x2%,y2%)
3730 !addr%=type%:addr%+=4
3740 !addr%=size%:addr%+=4
3750 !addr%=x1%:addr%+=4
3760 !addr%=y1%:addr%+=4
3770 !addr%=x2%:addr%+=4
3780 !addr%=y2%:addr%+=4
3790 =addr%
3800 :
3810 DEFPROCsavedrawfile(file$)
3820 PROCclosepath
3830 SYS "OS_File",10,file$,&AFF,,drawfile%,nt%
3840 ENDPROC
3850 :
3860 DEFPROCclosepath
3870 IF drawfl%=FALSE ENDPROC
3880 IF path%=FALSE ENDPROC
3890 path%=FALSE:nt%=FNtag(nt%,0,0,0)
3900 objaddr%!4=nt%-objaddr%
3910 ENDPROC
3920 :
3930 DEFPROCGenerateStaves
3940 FOR I=1 TO stavesnum%
3950 FOR GS=1 TO 5
3960 Y=(GS-1)*15.9+(I*(gap%*74.5))
3970 PROCopenpath(25,(FNWork_Y_Out-Y)+18,14.7*width%,(FNWork_Y_Out-Y)+18,stcol%)
3980 NEXT GS
3990 NEXT I
4000 ENDPROC
4010 :
4020 DEFFNWork_Y_Out
4030 J=(4*15.9)+(stavesnum%*(gap%*74.5))
4040 IF J<1488 THEN =1487
4050 IF J<2103 THEN =2102
4060 IF J<2976 THEN =2975
4070 IF J<4209 THEN =4208
4080 IF J<5951 THEN =5950
4090 IF J<8419 THEN =8418
4100 =0
4110 :
4120 DEFPROCUnTick
4130 PROCWimp_MenuTick(Colours_Menu%,precol%+1)
4140 precol%=stcol%
4150 ENDPROC
H� >scsi::Butler.$.JamesFiles.Programs.StavesPrn.!StavesPrn.!RunImage
3 ț "<Obey$Dir>.Wimp"
A �Wimp_Start("StavesPrn",4000,4000)
(3 �User_SetInitialData
2. �Create_Windows
<, �Create_Menus
F1 �Wimp_WaitForEvent
P. �Wimp_CloseDown
Z �
d :
n! � �User_SetInitialData
x� gap%=2:stavesnum%=13:width%=100:percent%=0:Go%=�:N=0:Started%=�:xb%=458:yb%=676:� drawfile% 60*1024:� cols% 80:path%=�:stcol%=7 : precol%=7
� �
� :
� � �Create_Windows
� �Wimp_SpritesLoad
�A save_setup_Window%=�Wimp_WindowLoad("save_setup")
�@ save_draw_Window%=�Wimp_WindowLoad("save_draw")
�; Info_Window%=�Wimp_WindowLoad("Info")
�? PrnSetup_Window%=�Wimp_WindowLoad("PrnSetup")
�B printerInfo_Window%=�Wimp_WindowLoad("printerInfo")
�4 �Wimp_WindowBringToTop(PrnSetup_Window%)
�1 Bar_Icon%=�Wimp_IconBar("!StavesPrn")
�B �Default:�Message("Hello. Welcome to Staves Printer.")
� �
:
" � �Event_Save(window%)
Ȏ window% �
"( � save_setup_Window% :=�
,( � save_draw_Window% :=�
6 :=�
@ �
J
:
T. � �Event_Sprites(window%)=sprites%
^ :
h � �Create_Menus
rA Colours_Menu%=�Wimp_MenuCreateColours("Stave Colour")
|p menu$ ="Save\Stave Colour>Colours_Menu%\Drawfile>save_draw_Window%\Setup>save_setup_Window%\Default"
�. Save_Menu%=�Wimp_MenuCreate(menu$)
�2 menu$ ="!StavesPrn\Info>Info_Window%\"
�K menu$+="Save>Save_Menu%\Print>printerInfo_Window%\Restore\Quit"
�- Bar_Menu%=�Wimp_MenuCreate(menu$)
�2 PrnSetup_Menu%=�Wimp_MenuCreate(menu$)
�+ �Wimp_MenuTick(Colours_Menu%,8)
� �
�
:
�" � �Event_Menu(window%)
� Ȏ window% �
�. � Bar_Window% : =Bar_Menu%
�3 � PrnSetup_Window% : =PrnSetup_Menu%
�! : =�
�
:
1 � �Event_WindowClose(window%,buttons%)
& Ȏ window% �
02 � save_setup_Window% : �Wimp_MenuClose
:3 � printerInfo_Window% : �Wimp_MenuClose
D �
N �
X :
b5 � �Event_Draw(window%,x_origin%,y_origin%)
l Ȏ window% �
v> � save_setup_Window% : �User_Drawsave_setupWindow
�8 � Info_Window% : �User_DrawInfoWindow
�< � PrnSetup_Window% : �User_DrawPrnSetupWindow
�? � printerInfo_Window% : �User_DrawprinterInfoWindow
� �
� �
� :
�- � �User_Drawsave_setupWindow
� �
� :
�' � �User_DrawInfoWindow
� �
� :
�+ � �User_DrawPrnSetupWindow
�
:
. � �User_DrawprinterInfoWindow
�
* :
4; � �Event_MouseClick(window%,icon%,button%,x%,y%)
> Ȏ window% �
H1 � Bar_Window% : �User_MouseBar
RB � Info_Window% : �User_MouseInfo( button%,icon%)
\L � PrnSetup_Window% : �User_MousePrnSetup( button%,icon%,x%,y%)
fI � printerInfo_Window%: �User_MouseprinterInfo( button%,icon%)
pH � Percentage_Window% : �User_MousePercentage( button%,icon%)
z �
� �
� :
�4 � �User_MousePercentage( button%,icon%)
� Ȏ icon% �
�X � 2 : T=stavesnum% : N=stavesnum% : Go%=� : �Message("Printing Stopped!")
� �
� �
� :
� � �User_MouseBar
�6 �Wimp_WindowBringToTop(PrnSetup_Window%)
� �
� :
�. � �User_MouseInfo( button%,icon%)
- �Wimp_WindowClose(Info_Window%)
�
:
$8 � �User_MousePrnSetup( button%,icon%,x%,y%)
. Ȏ icon% �
8 � 25 : �Default
B7 � 27 : �Wimp_MenuPopUp(Save_Menu%,x%,y%)
L! � 29 : finished%=�
VA � 31 : �Wimp_WindowBringToTop(printerInfo_Window%)
`> � 39 : � button%=1 � button%=4 �ChangeStaves(�)
j> � 38 : � button%=1 � button%=4 �ChangeStaves(�)
t= � 40 : � button%=1 � button%=4 �ChangeWidth(�)
~= � 41 : � button%=1 � button%=4 �ChangeWidth(�)
�; � 42 : � button%=1 � button%=4 �ChangeGap(�)
�; � 43 : � button%=1 � button%=4 �ChangeGap(�)
� �
� �
� :
�5 � �User_MouseprinterInfo( button%,icon%)
� Ȏ icon% �
Ό � 8 : �Wimp_WindowClose(printerInfo_Window%) : �Message("Printing.... 0% completed") : percent%=0 : ș"Hourglass_On" : �Print
�
� �
� �
� :
0 � �Event_KeyPress(window%,icon%,key%)
Ȏ window% �
G � PrnSetup_Window% : �User_KeyPressPrnSetup( icon%,key%)
�
( �
2 :
<2 � �User_KeyPressPrnSetup( icon%,key%)
F �
P :
Z% � �Event_MenuChoice(menu%)
d Ȏ menu% �
n7 � Bar_Menu% : �User_MenuChoiceBar
x< � PrnSetup_Menu% : �User_MenuChoicePrnSetup
�8 � Save_Menu% : �User_MenuChoiceSave
�
�
� �
� :
�! � �User_MenuChoiceSave
�$ Ȏ �Wimp_MenuChoice(0) �
�< � 1 : �Wimp_WindowBringToTop(save_draw_Window%)
�= � 2 : �Wimp_WindowBringToTop(save_setup_Window%)
�` � 3 : �Save("<StavesPrn$Dir>.Defaults") : �Message("New defaults have been saved.")
�
�
� �
� :
� � �User_MenuChoiceBar
$ Ȏ �Wimp_MenuChoice(0) �
7 � 1 : �Wimp_WindowBringToTop(Info_Window%)
+ � 2 : Ȏ �Wimp_MenuChoice(1) �
"- � 1 : Ȏ �Wimp_MenuChoice(2) �
,K � 1 : stcol%=0 : �Wimp_MenuTick(Colours_Menu%,1) : �UnTick
6K � 2 : stcol%=1 : �Wimp_MenuTick(Colours_Menu%,2) : �UnTick
@K � 3 : stcol%=2 : �Wimp_MenuTick(Colours_Menu%,3) : �UnTick
JK � 4 : stcol%=3 : �Wimp_MenuTick(Colours_Menu%,4) : �UnTick
TK � 5 : stcol%=4 : �Wimp_MenuTick(Colours_Menu%,5) : �UnTick
^K � 6 : stcol%=5 : �Wimp_MenuTick(Colours_Menu%,6) : �UnTick
hK � 7 : stcol%=6 : �Wimp_MenuTick(Colours_Menu%,7) : �UnTick
rK � 8 : stcol%=7 : �Wimp_MenuTick(Colours_Menu%,8) : �UnTick
|K � 9 : stcol%=8 : �Wimp_MenuTick(Colours_Menu%,9) : �UnTick
�M � 10 : stcol%=9 : �Wimp_MenuTick(Colours_Menu%,10) : �UnTick
�N � 11 : stcol%=10 : �Wimp_MenuTick(Colours_Menu%,11) : �UnTick
�N � 12 : stcol%=11 : �Wimp_MenuTick(Colours_Menu%,12) : �UnTick
�N � 13 : stcol%=12 : �Wimp_MenuTick(Colours_Menu%,13) : �UnTick
�N � 14 : stcol%=13 : �Wimp_MenuTick(Colours_Menu%,14) : �UnTick
�N � 15 : stcol%=14 : �Wimp_MenuTick(Colours_Menu%,15) : �UnTick
�N � 16 : stcol%=15 : �Wimp_MenuTick(Colours_Menu%,16) : �UnTick
� �
�> � 2 : �Wimp_WindowBringToTop(save_draw_Window%)
�? � 3 : �Wimp_WindowBringToTop(save_setup_Window%)
�b � 4 : �Save("<StavesPrn$Dir>.Defaults") : �Message("New defaults have been saved.")
� �
�> � 3 : �Wimp_WindowBringToTop(printerInfo_Window%)
# � 4 : �RestoreDefaults
� 5 :finished%=�
�
& �
0 :
:% � �User_MenuChoicePrnSetup
D$ Ȏ �Wimp_MenuChoice(0) �
N7 � 1 : �Wimp_WindowBringToTop(Info_Window%)
X+ � 2 : Ȏ �Wimp_MenuChoice(1) �
b- � 1 : Ȏ �Wimp_MenuChoice(2) �
lK � 1 : stcol%=0 : �Wimp_MenuTick(Colours_Menu%,1) : �UnTick
vK � 2 : stcol%=1 : �Wimp_MenuTick(Colours_Menu%,2) : �UnTick
�K � 3 : stcol%=2 : �Wimp_MenuTick(Colours_Menu%,3) : �UnTick
�K � 4 : stcol%=3 : �Wimp_MenuTick(Colours_Menu%,4) : �UnTick
�K � 5 : stcol%=4 : �Wimp_MenuTick(Colours_Menu%,5) : �UnTick
�K � 6 : stcol%=5 : �Wimp_MenuTick(Colours_Menu%,6) : �UnTick
�K � 7 : stcol%=6 : �Wimp_MenuTick(Colours_Menu%,7) : �UnTick
�K � 8 : stcol%=7 : �Wimp_MenuTick(Colours_Menu%,8) : �UnTick
�K � 9 : stcol%=8 : �Wimp_MenuTick(Colours_Menu%,9) : �UnTick
�M � 10 : stcol%=9 : �Wimp_MenuTick(Colours_Menu%,10) : �UnTick
�N � 11 : stcol%=10 : �Wimp_MenuTick(Colours_Menu%,11) : �UnTick
�N � 12 : stcol%=11 : �Wimp_MenuTick(Colours_Menu%,12) : �UnTick
�N � 13 : stcol%=12 : �Wimp_MenuTick(Colours_Menu%,13) : �UnTick
�N � 14 : stcol%=13 : �Wimp_MenuTick(Colours_Menu%,14) : �UnTick
�N � 15 : stcol%=14 : �Wimp_MenuTick(Colours_Menu%,15) : �UnTick
N � 16 : stcol%=15 : �Wimp_MenuTick(Colours_Menu%,16) : �UnTick
�
> � 2 : �Wimp_WindowBringToTop(save_draw_Window%)
? � 3 : �Wimp_WindowBringToTop(save_setup_Window%)
*b � 4 : �Save("<StavesPrn$Dir>.Defaults") : �Message("New defaults have been saved.")
4 �
>> � 3 : �Wimp_WindowBringToTop(printerInfo_Window%)
H# � 4 : �RestoreDefaults
R � 5 :finished%=�
\
�
f �
p :
z) � �Event_LoadFile(file$,type$)
�( � type$="7FB" � �Load(file$)
�o � type$="Draw" � �Wimp_WindowAlert("StavesPrn","StavesPrn can only save drawfiles, not load them.")
�v � type$<>"7FB" � type$<>"Draw" � �Wimp_WindowAlert("StavesPrn","StavesPrn cannot load this type of file.")
� �
� :
�+ � �Event_SaveFile(file$,window%)
� Ȏ window% �
�D � save_setup_Window% : �Save(file$) : �Wimp_MenuClose
�H � save_draw_Window% : �SaveDraw(file$) : �Wimp_MenuClose
� �
� �
� :
� � �Default
- �Load("<StavesPrn$Dir>.Defaults")
0 �Message("Settings set to default.")
�
$ :
. ��PutTextInSetupIcons
8@ �Wimp_IconPutText(PrnSetup_Window%,37,�(stavesnum%))
B@ �Wimp_IconPutText(PrnSetup_Window%,35,�(width%)+"%")
L: �Wimp_IconPutText(PrnSetup_Window%,33,�(gap%))
VC �Wimp_IconPutText(printerInfo_Window%,14,�(stavesnum%))
`C �Wimp_IconPutText(printerInfo_Window%,12,�(width%)+"%")
j= �Wimp_IconPutText(printerInfo_Window%,10,�(gap%))
t �
~ :
� � �Save(file$)
� y=� file$
� �#y,gap%
� �#y,width%
� �#y,stavesnum%
� �#y
�$ �"SETTYPE "+file$+" 7FB"
�1 �Wimp_WindowClose(save_setup_Window%)
�/ �Message("Settings saved to file.")
� �
� :
� � �Load(file$)
y=� file$
�#y,gap%
�#y,width%
�#y,stavesnum%
( �#y
2 �PutTextInSetupIcons
< �
F :
P ��Print
Z *FX 6,0
d# � 2:length%=width%*4.93
n � N=1 � stavesnum%
x � G=1 � gap%:�:� G
�! � P=1 � 2:� 1,27,1,76
�! � 1,(2*length%) � 256
�! � 1,(2*length%) � 256
�) � I=1 � (2*length%):� 1,132:�
� � 1,10:�:� 1,27,1,76
�! � 1,(2*length%) � 256
�! � 1,(2*length%) � 256
�) � I=1 � (2*length%):� 1,128:�
�. � 1,10:�Update(N):� N:� 3:*FX 6,10
�< ș"Hourglass_Off":�Message("Printing finished.")
� �
� :
�" ��ChangeStaves(UpDown%)
* � UpDown%=� � stavesnum%=1 � �
- � UpDown%=� � stavesnum%=1000 � �
1 � UpDown%=� � stavesnum%=stavesnum%+1
"1 � UpDown%=� � stavesnum%=stavesnum%-1
,@ �PutTextInSetupIcons : �Message("Settings changed.")
6 �
@ :
J ��ChangeGap(UpDown%)
T$ � UpDown%=� � gap%=1 � �
^& � UpDown%=� � gap%=100 � �
h% � UpDown%=� � gap%=gap%+1
r% � UpDown%=� � gap%=gap%-1
|@ �PutTextInSetupIcons : �Message("Settings changed.")
� �
� :
�! ��ChangeWidth(UpDown%)
�& � UpDown%=� � width%=1 � �
�( � UpDown%=� � width%=500 � �
�) � UpDown%=� � width%=width%+1
�) � UpDown%=� � width%=width%-1
�@ �PutTextInSetupIcons : �Message("Settings changed.")
� �
� :
� � �Update(num%)
� �3
�A � stavesnum%<>num% � percent%=((100/stavesnum%)*num%)
, � stavesnum%=num% � percent%=100
? �Message("Printing.... "+�(percent%)+"% completed")
�2
& �
0 :
: � �Message(message$)
D; �Wimp_IconPutText(PrnSetup_Window%,23,message$)
N �
X :
b � �RestoreDefaults
l gap%=2
v stavesnum%=13
� width%=100
�- �Save("<StavesPrn$Dir>.Defaults")
�L �PutTextInSetupIcons : �Message("Settings restored to A4 size.")
� �
� :
� � �SaveDraw(file$)
� �SetUp_DrawFile
� �GenerateStaves
� �savedrawfile(file$)
�0 �Wimp_WindowClose(save_draw_Window%)
�1 �Message("Staves saved in Drawfile.")
� �
� :
��SetUp_DrawFile
nt%=drawfile%
$nt%="Draw":nt%+=4
!nt%=201:nt%+=4
* !nt%=0:nt%+=4
42 $nt%=�"StavesPrn"+�12," "),12):nt%+=12
>+ nt%!0=�xdraw(0):nt%!4=�ydraw(0)
H: nt%!8=�xdraw(2940):nt%!12=�ydraw(4144):nt%+=16
R ah%=�:drawfl%=�
\( ș "Wimp_ReadPalette",,cols%
f �
p :
z ݤxdraw(x):=�(x*256)
� ݤydraw(y):=�(y*256)
�! ݤcdraw(c%):c%=c% � 16
�6 � c%>=0 � =!(cols%+c%*4) � &FFFFFF00 � =-1
� :
�' ��openpath(x1,y1,x2,y2,col%)
� � path%=� �closepath
�G x1%=�xdraw(x1):y1%=�ydraw(y1):x2%=�xdraw(x2):y2%=�ydraw(y2)
� objaddr%=nt%:path%=�
�D bx%=x1%:by%=y1%:bx1%=x2%:by1%=y2%:� bx%>bx1% Ȕ bx%,bx1%
�" � by%>by1% Ȕ by%,by1%
�6 nt%=�objecthead(nt%,2,0,bx%,by%,bx1%,by1%)
� !nt%=-1:nt%+=4
�$ !nt%=�cdraw(col%):nt%+=4
!nt%=0:nt%+=4
!nt%=&42:nt%+=4
# nt%=�tag(nt%,2,x1%,y1%)
$# nt%=�tag(nt%,8,x2%,y2%)
. �
8 :
B" ݤtag(addr%,tag%,x%,y%)
L !addr%=tag%:addr%+=4
V � tag%=0 =addr%
` !addr%=x%:addr%+=4
j !addr%=y%:addr%+=4
t =addr%
~ :
�: ݤobjecthead(addr%,type%,size%,x1%,y1%,x2%,y2%)
�! !addr%=type%:addr%+=4
�! !addr%=size%:addr%+=4
� !addr%=x1%:addr%+=4
� !addr%=y1%:addr%+=4
� !addr%=x2%:addr%+=4
� !addr%=y2%:addr%+=4
� =addr%
� :
� ��savedrawfile(file$)
� �closepath
�5 ș "OS_File",10,file$,&AFF,,drawfile%,nt%
�
:
��closepath
� drawfl%=� �
( � path%=� �
2' path%=�:nt%=�tag(nt%,0,0,0)
<# objaddr%!4=nt%-objaddr%
F �
P :
Z ��GenerateStaves
d � I=1 � stavesnum%
n � GS=1 � 5
x+ Y=(GS-1)*15.9+(I*(gap%*74.5))
�T �openpath(25,(�Work_Y_Out-Y)+18,14.7*width%,(�Work_Y_Out-Y)+18,stcol%)
� � GS
� � I
� �
� :
� ݤWork_Y_Out
�/ J=(4*15.9)+(stavesnum%*(gap%*74.5))
� � J<1488 � =1487
� � J<2103 � =2102
� � J<2976 � =2975
� � J<4209 � =4208
� � J<5951 � =5950
� � J<8419 � =8418
=0
:
��UnTick
"3 �Wimp_MenuTick(Colours_Menu%,precol%+1)
, precol%=stcol%
6 �
� 00000000 0d 00 0a 48 f4 20 3e 73 63 73 69 3a 3a 42 75 74 |...H. >scsi::But|
00000010 6c 65 72 2e 24 2e 4a 61 6d 65 73 46 69 6c 65 73 |ler.$.JamesFiles|
00000020 2e 50 72 6f 67 72 61 6d 73 2e 53 74 61 76 65 73 |.Programs.Staves|
00000030 50 72 6e 2e 21 53 74 61 76 65 73 50 72 6e 2e 21 |Prn.!StavesPrn.!|
00000040 52 75 6e 49 6d 61 67 65 0d 00 14 33 20 20 20 20 |RunImage...3 |
00000050 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000060 20 20 20 20 20 20 20 c8 9b 20 22 3c 4f 62 65 79 | .. "<Obey|
00000070 24 44 69 72 3e 2e 57 69 6d 70 22 0d 00 1e 41 20 |$Dir>.Wimp"...A |
00000080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090 20 20 20 20 20 20 20 20 20 20 f2 57 69 6d 70 5f | .Wimp_|
000000a0 53 74 61 72 74 28 22 53 74 61 76 65 73 50 72 6e |Start("StavesPrn|
000000b0 22 2c 34 30 30 30 2c 34 30 30 30 29 0d 00 28 33 |",4000,4000)..(3|
000000c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000d0 20 20 20 20 20 20 20 20 20 20 20 f2 55 73 65 72 | .User|
000000e0 5f 53 65 74 49 6e 69 74 69 61 6c 44 61 74 61 0d |_SetInitialData.|
000000f0 00 32 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 |.2. |
00000100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 f2 43 | .C|
00000110 72 65 61 74 65 5f 57 69 6e 64 6f 77 73 0d 00 3c |reate_Windows..<|
00000120 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |, |
00000130 20 20 20 20 20 20 20 20 20 20 20 20 f2 43 72 65 | .Cre|
00000140 61 74 65 5f 4d 65 6e 75 73 0d 00 46 31 20 20 20 |ate_Menus..F1 |
00000150 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000160 20 20 20 20 20 20 20 20 f2 57 69 6d 70 5f 57 61 | .Wimp_Wa|
00000170 69 74 46 6f 72 45 76 65 6e 74 0d 00 50 2e 20 20 |itForEvent..P. |
00000180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000190 20 20 20 20 20 20 20 20 20 f2 57 69 6d 70 5f 43 | .Wimp_C|
000001a0 6c 6f 73 65 44 6f 77 6e 0d 00 5a 20 20 20 20 20 |loseDown..Z |
000001b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001c0 20 20 20 20 20 20 20 e0 0d 00 64 0c 20 20 20 20 | ...d. |
000001d0 20 20 20 3a 0d 00 6e 21 20 20 20 20 20 20 20 dd | :..n! .|
000001e0 20 f2 55 73 65 72 5f 53 65 74 49 6e 69 74 69 61 | .User_SetInitia|
000001f0 6c 44 61 74 61 0d 00 78 97 20 20 20 20 20 20 20 |lData..x. |
00000200 20 67 61 70 25 3d 32 3a 73 74 61 76 65 73 6e 75 | gap%=2:stavesnu|
00000210 6d 25 3d 31 33 3a 77 69 64 74 68 25 3d 31 30 30 |m%=13:width%=100|
00000220 3a 70 65 72 63 65 6e 74 25 3d 30 3a 47 6f 25 3d |:percent%=0:Go%=|
00000230 a3 3a 4e 3d 30 3a 53 74 61 72 74 65 64 25 3d a3 |.:N=0:Started%=.|
00000240 3a 78 62 25 3d 34 35 38 3a 79 62 25 3d 36 37 36 |:xb%=458:yb%=676|
00000250 3a de 20 64 72 61 77 66 69 6c 65 25 20 36 30 2a |:. drawfile% 60*|
00000260 31 30 32 34 3a de 20 63 6f 6c 73 25 20 38 30 3a |1024:. cols% 80:|
00000270 70 61 74 68 25 3d a3 3a 73 74 63 6f 6c 25 3d 37 |path%=.:stcol%=7|
00000280 20 3a 20 70 72 65 63 6f 6c 25 3d 37 0d 00 82 0c | : precol%=7....|
00000290 20 20 20 20 20 20 20 e1 0d 00 8c 0c 20 20 20 20 | ..... |
000002a0 20 20 20 3a 0d 00 96 1c 20 20 20 20 20 20 20 dd | :.... .|
000002b0 20 f2 43 72 65 61 74 65 5f 57 69 6e 64 6f 77 73 | .Create_Windows|
000002c0 0d 00 a0 1d 20 20 20 20 20 20 20 20 f2 57 69 6d |.... .Wim|
000002d0 70 5f 53 70 72 69 74 65 73 4c 6f 61 64 0d 00 aa |p_SpritesLoad...|
000002e0 41 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 |A sav|
000002f0 65 5f 73 65 74 75 70 5f 57 69 6e 64 6f 77 25 3d |e_setup_Window%=|
00000300 a4 57 69 6d 70 5f 57 69 6e 64 6f 77 4c 6f 61 64 |.Wimp_WindowLoad|
00000310 28 22 73 61 76 65 5f 73 65 74 75 70 22 29 0d 00 |("save_setup")..|
00000320 b4 40 20 20 20 20 20 20 20 20 20 20 20 20 20 73 |.@ s|
00000330 61 76 65 5f 64 72 61 77 5f 57 69 6e 64 6f 77 25 |ave_draw_Window%|
00000340 3d a4 57 69 6d 70 5f 57 69 6e 64 6f 77 4c 6f 61 |=.Wimp_WindowLoa|
00000350 64 28 22 73 61 76 65 5f 64 72 61 77 22 29 0d 00 |d("save_draw")..|
00000360 be 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; |
00000370 20 20 20 20 49 6e 66 6f 5f 57 69 6e 64 6f 77 25 | Info_Window%|
00000380 3d a4 57 69 6d 70 5f 57 69 6e 64 6f 77 4c 6f 61 |=.Wimp_WindowLoa|
00000390 64 28 22 49 6e 66 6f 22 29 0d 00 c8 3f 20 20 20 |d("Info")...? |
000003a0 20 20 20 20 20 20 20 20 20 20 20 50 72 6e 53 65 | PrnSe|
000003b0 74 75 70 5f 57 69 6e 64 6f 77 25 3d a4 57 69 6d |tup_Window%=.Wim|
000003c0 70 5f 57 69 6e 64 6f 77 4c 6f 61 64 28 22 50 72 |p_WindowLoad("Pr|
000003d0 6e 53 65 74 75 70 22 29 0d 00 d2 42 20 20 20 20 |nSetup")...B |
000003e0 20 20 20 20 20 20 20 70 72 69 6e 74 65 72 49 6e | printerIn|
000003f0 66 6f 5f 57 69 6e 64 6f 77 25 3d a4 57 69 6d 70 |fo_Window%=.Wimp|
00000400 5f 57 69 6e 64 6f 77 4c 6f 61 64 28 22 70 72 69 |_WindowLoad("pri|
00000410 6e 74 65 72 49 6e 66 6f 22 29 0d 00 dc 34 20 20 |nterInfo")...4 |
00000420 20 20 20 20 20 20 f2 57 69 6d 70 5f 57 69 6e 64 | .Wimp_Wind|
00000430 6f 77 42 72 69 6e 67 54 6f 54 6f 70 28 50 72 6e |owBringToTop(Prn|
00000440 53 65 74 75 70 5f 57 69 6e 64 6f 77 25 29 0d 00 |Setup_Window%)..|
00000450 e6 31 20 20 20 20 20 20 20 20 42 61 72 5f 49 63 |.1 Bar_Ic|
00000460 6f 6e 25 3d a4 57 69 6d 70 5f 49 63 6f 6e 42 61 |on%=.Wimp_IconBa|
00000470 72 28 22 21 53 74 61 76 65 73 50 72 6e 22 29 0d |r("!StavesPrn").|
00000480 00 f0 42 20 20 20 20 20 20 20 20 f2 44 65 66 61 |..B .Defa|
00000490 75 6c 74 3a f2 4d 65 73 73 61 67 65 28 22 48 65 |ult:.Message("He|
000004a0 6c 6c 6f 2e 20 57 65 6c 63 6f 6d 65 20 74 6f 20 |llo. Welcome to |
000004b0 53 74 61 76 65 73 20 50 72 69 6e 74 65 72 2e 22 |Staves Printer."|
000004c0 29 0d 00 fa 0c 20 20 20 20 20 20 20 e1 0d 01 04 |).... ....|
000004d0 0d 20 20 20 20 20 20 20 20 3a 0d 01 0e 22 20 20 |. :..." |
000004e0 20 20 20 20 20 20 dd 20 a4 45 76 65 6e 74 5f 53 | . .Event_S|
000004f0 61 76 65 28 77 69 6e 64 6f 77 25 29 0d 01 18 1a |ave(window%)....|
00000500 20 20 20 20 20 20 20 20 20 20 c8 8e 20 77 69 6e | .. win|
00000510 64 6f 77 25 20 ca 0d 01 22 28 20 20 20 20 20 20 |dow% ..."( |
00000520 20 20 20 20 20 20 c9 20 73 61 76 65 5f 73 65 74 | . save_set|
00000530 75 70 5f 57 69 6e 64 6f 77 25 20 3a 3d b9 0d 01 |up_Window% :=...|
00000540 2c 28 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 |,( . |
00000550 73 61 76 65 5f 64 72 61 77 5f 57 69 6e 64 6f 77 |save_draw_Window|
00000560 25 20 20 3a 3d b9 0d 01 36 15 20 20 20 20 20 20 |% :=...6. |
00000570 20 20 20 20 20 20 7f 20 3a 3d a3 0d 01 40 0f 20 | . :=...@. |
00000580 20 20 20 20 20 20 20 20 20 cb 0d 01 4a 0d 20 20 | ...J. |
00000590 20 20 20 20 20 20 3a 0d 01 54 2e 20 20 20 20 20 | :..T. |
000005a0 20 20 20 dd 20 a4 45 76 65 6e 74 5f 53 70 72 69 | . .Event_Spri|
000005b0 74 65 73 28 77 69 6e 64 6f 77 25 29 3d 73 70 72 |tes(window%)=spr|
000005c0 69 74 65 73 25 0d 01 5e 0c 20 20 20 20 20 20 20 |ites%..^. |
000005d0 3a 0d 01 68 1a 20 20 20 20 20 20 20 dd 20 f2 43 |:..h. . .C|
000005e0 72 65 61 74 65 5f 4d 65 6e 75 73 0d 01 72 41 20 |reate_Menus..rA |
000005f0 20 20 20 20 20 20 20 43 6f 6c 6f 75 72 73 5f 4d | Colours_M|
00000600 65 6e 75 25 3d a4 57 69 6d 70 5f 4d 65 6e 75 43 |enu%=.Wimp_MenuC|
00000610 72 65 61 74 65 43 6f 6c 6f 75 72 73 28 22 53 74 |reateColours("St|
00000620 61 76 65 20 43 6f 6c 6f 75 72 22 29 0d 01 7c 70 |ave Colour")..|p|
00000630 20 20 20 20 20 20 20 20 6d 65 6e 75 24 20 3d 22 | menu$ ="|
00000640 53 61 76 65 5c 53 74 61 76 65 20 43 6f 6c 6f 75 |Save\Stave Colou|
00000650 72 3e 43 6f 6c 6f 75 72 73 5f 4d 65 6e 75 25 5c |r>Colours_Menu%\|
00000660 44 72 61 77 66 69 6c 65 3e 73 61 76 65 5f 64 72 |Drawfile>save_dr|
00000670 61 77 5f 57 69 6e 64 6f 77 25 5c 53 65 74 75 70 |aw_Window%\Setup|
00000680 3e 73 61 76 65 5f 73 65 74 75 70 5f 57 69 6e 64 |>save_setup_Wind|
00000690 6f 77 25 5c 44 65 66 61 75 6c 74 22 0d 01 86 2e |ow%\Default"....|
000006a0 20 20 20 20 20 20 20 20 53 61 76 65 5f 4d 65 6e | Save_Men|
000006b0 75 25 3d a4 57 69 6d 70 5f 4d 65 6e 75 43 72 65 |u%=.Wimp_MenuCre|
000006c0 61 74 65 28 6d 65 6e 75 24 29 0d 01 90 32 20 20 |ate(menu$)...2 |
000006d0 20 20 20 20 20 20 6d 65 6e 75 24 20 3d 22 21 53 | menu$ ="!S|
000006e0 74 61 76 65 73 50 72 6e 5c 49 6e 66 6f 3e 49 6e |tavesPrn\Info>In|
000006f0 66 6f 5f 57 69 6e 64 6f 77 25 5c 22 0d 01 9a 4b |fo_Window%\"...K|
00000700 20 20 20 20 20 20 20 20 6d 65 6e 75 24 2b 3d 22 | menu$+="|
00000710 53 61 76 65 3e 53 61 76 65 5f 4d 65 6e 75 25 5c |Save>Save_Menu%\|
00000720 50 72 69 6e 74 3e 70 72 69 6e 74 65 72 49 6e 66 |Print>printerInf|
00000730 6f 5f 57 69 6e 64 6f 77 25 5c 52 65 73 74 6f 72 |o_Window%\Restor|
00000740 65 5c 51 75 69 74 22 0d 01 a4 2d 20 20 20 20 20 |e\Quit"...- |
00000750 20 20 20 42 61 72 5f 4d 65 6e 75 25 3d a4 57 69 | Bar_Menu%=.Wi|
00000760 6d 70 5f 4d 65 6e 75 43 72 65 61 74 65 28 6d 65 |mp_MenuCreate(me|
00000770 6e 75 24 29 0d 01 ae 32 20 20 20 20 20 20 20 20 |nu$)...2 |
00000780 50 72 6e 53 65 74 75 70 5f 4d 65 6e 75 25 3d a4 |PrnSetup_Menu%=.|
00000790 57 69 6d 70 5f 4d 65 6e 75 43 72 65 61 74 65 28 |Wimp_MenuCreate(|
000007a0 6d 65 6e 75 24 29 0d 01 b8 2b 20 20 20 20 20 20 |menu$)...+ |
000007b0 20 20 f2 57 69 6d 70 5f 4d 65 6e 75 54 69 63 6b | .Wimp_MenuTick|
000007c0 28 43 6f 6c 6f 75 72 73 5f 4d 65 6e 75 25 2c 38 |(Colours_Menu%,8|
000007d0 29 0d 01 c2 0c 20 20 20 20 20 20 20 e1 0d 01 cc |).... ....|
000007e0 0d 20 20 20 20 20 20 20 20 3a 0d 01 d6 22 20 20 |. :..." |
000007f0 20 20 20 20 20 20 dd 20 a4 45 76 65 6e 74 5f 4d | . .Event_M|
00000800 65 6e 75 28 77 69 6e 64 6f 77 25 29 0d 01 e0 18 |enu(window%)....|
00000810 20 20 20 20 20 20 20 20 c8 8e 20 77 69 6e 64 6f | .. windo|
00000820 77 25 20 ca 0d 01 ea 2e 20 20 20 20 20 20 20 20 |w% ..... |
00000830 20 c9 20 42 61 72 5f 57 69 6e 64 6f 77 25 20 20 | . Bar_Window% |
00000840 20 20 20 20 20 20 3a 20 3d 42 61 72 5f 4d 65 6e | : =Bar_Men|
00000850 75 25 0d 01 f4 33 20 20 20 20 20 20 20 20 20 c9 |u%...3 .|
00000860 20 50 72 6e 53 65 74 75 70 5f 57 69 6e 64 6f 77 | PrnSetup_Window|
00000870 25 20 20 20 3a 20 3d 50 72 6e 53 65 74 75 70 5f |% : =PrnSetup_|
00000880 4d 65 6e 75 25 0d 01 fe 21 20 20 20 20 20 20 20 |Menu%...! |
00000890 20 20 7f 20 20 20 20 20 20 20 20 20 20 20 20 20 | . |
000008a0 20 20 3a 20 3d a3 0d 02 08 0d 20 20 20 20 20 20 | : =..... |
000008b0 20 20 cb 0d 02 12 0c 20 20 20 20 20 20 20 3a 0d | ..... :.|
000008c0 02 1c 31 20 20 20 20 20 20 20 dd 20 f2 45 76 65 |..1 . .Eve|
000008d0 6e 74 5f 57 69 6e 64 6f 77 43 6c 6f 73 65 28 77 |nt_WindowClose(w|
000008e0 69 6e 64 6f 77 25 2c 62 75 74 74 6f 6e 73 25 29 |indow%,buttons%)|
000008f0 0d 02 26 17 20 20 20 20 20 20 20 c8 8e 20 77 69 |..&. .. wi|
00000900 6e 64 6f 77 25 20 ca 0d 02 30 32 20 20 20 20 20 |ndow% ...02 |
00000910 20 20 20 c9 20 73 61 76 65 5f 73 65 74 75 70 5f | . save_setup_|
00000920 57 69 6e 64 6f 77 25 20 3a 20 f2 57 69 6d 70 5f |Window% : .Wimp_|
00000930 4d 65 6e 75 43 6c 6f 73 65 0d 02 3a 33 20 20 20 |MenuClose..:3 |
00000940 20 20 20 20 20 c9 20 70 72 69 6e 74 65 72 49 6e | . printerIn|
00000950 66 6f 5f 57 69 6e 64 6f 77 25 20 3a 20 f2 57 69 |fo_Window% : .Wi|
00000960 6d 70 5f 4d 65 6e 75 43 6c 6f 73 65 0d 02 44 0c |mp_MenuClose..D.|
00000970 20 20 20 20 20 20 20 cb 0d 02 4e 0c 20 20 20 20 | ...N. |
00000980 20 20 20 e1 0d 02 58 0c 20 20 20 20 20 20 20 3a | ...X. :|
00000990 0d 02 62 35 20 20 20 20 20 20 20 dd 20 f2 45 76 |..b5 . .Ev|
000009a0 65 6e 74 5f 44 72 61 77 28 77 69 6e 64 6f 77 25 |ent_Draw(window%|
000009b0 2c 78 5f 6f 72 69 67 69 6e 25 2c 79 5f 6f 72 69 |,x_origin%,y_ori|
000009c0 67 69 6e 25 29 0d 02 6c 17 20 20 20 20 20 20 20 |gin%)..l. |
000009d0 c8 8e 20 77 69 6e 64 6f 77 25 20 ca 0d 02 76 3e |.. window% ...v>|
000009e0 20 20 20 20 20 20 20 20 c9 20 73 61 76 65 5f 73 | . save_s|
000009f0 65 74 75 70 5f 57 69 6e 64 6f 77 25 20 20 3a 20 |etup_Window% : |
00000a00 f2 55 73 65 72 5f 44 72 61 77 73 61 76 65 5f 73 |.User_Drawsave_s|
00000a10 65 74 75 70 57 69 6e 64 6f 77 0d 02 80 38 20 20 |etupWindow...8 |
00000a20 20 20 20 20 20 20 c9 20 49 6e 66 6f 5f 57 69 6e | . Info_Win|
00000a30 64 6f 77 25 20 20 20 20 20 20 20 20 3a 20 f2 55 |dow% : .U|
00000a40 73 65 72 5f 44 72 61 77 49 6e 66 6f 57 69 6e 64 |ser_DrawInfoWind|
00000a50 6f 77 0d 02 8a 3c 20 20 20 20 20 20 20 20 c9 20 |ow...< . |
00000a60 50 72 6e 53 65 74 75 70 5f 57 69 6e 64 6f 77 25 |PrnSetup_Window%|
00000a70 20 20 20 20 3a 20 f2 55 73 65 72 5f 44 72 61 77 | : .User_Draw|
00000a80 50 72 6e 53 65 74 75 70 57 69 6e 64 6f 77 0d 02 |PrnSetupWindow..|
00000a90 94 3f 20 20 20 20 20 20 20 20 c9 20 70 72 69 6e |.? . prin|
00000aa0 74 65 72 49 6e 66 6f 5f 57 69 6e 64 6f 77 25 20 |terInfo_Window% |
00000ab0 3a 20 f2 55 73 65 72 5f 44 72 61 77 70 72 69 6e |: .User_Drawprin|
00000ac0 74 65 72 49 6e 66 6f 57 69 6e 64 6f 77 0d 02 9e |terInfoWindow...|
00000ad0 0c 20 20 20 20 20 20 20 cb 0d 02 a8 0c 20 20 20 |. ..... |
00000ae0 20 20 20 20 e1 0d 02 b2 12 20 20 20 20 20 20 20 | ..... |
00000af0 20 20 20 20 20 20 3a 0d 02 bc 2d 20 20 20 20 20 | :...- |
00000b00 20 20 20 20 20 20 20 20 dd 20 f2 55 73 65 72 5f | . .User_|
00000b10 44 72 61 77 73 61 76 65 5f 73 65 74 75 70 57 69 |Drawsave_setupWi|
00000b20 6e 64 6f 77 0d 02 c6 12 20 20 20 20 20 20 20 20 |ndow.... |
00000b30 20 20 20 20 20 e1 0d 02 d0 12 20 20 20 20 20 20 | ..... |
00000b40 20 20 20 20 20 20 20 3a 0d 02 da 27 20 20 20 20 | :...' |
00000b50 20 20 20 20 20 20 20 20 20 dd 20 f2 55 73 65 72 | . .User|
00000b60 5f 44 72 61 77 49 6e 66 6f 57 69 6e 64 6f 77 0d |_DrawInfoWindow.|
00000b70 02 e4 12 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
00000b80 e1 0d 02 ee 12 20 20 20 20 20 20 20 20 20 20 20 |..... |
00000b90 20 20 3a 0d 02 f8 2b 20 20 20 20 20 20 20 20 20 | :...+ |
00000ba0 20 20 20 20 dd 20 f2 55 73 65 72 5f 44 72 61 77 | . .User_Draw|
00000bb0 50 72 6e 53 65 74 75 70 57 69 6e 64 6f 77 0d 03 |PrnSetupWindow..|
00000bc0 02 12 20 20 20 20 20 20 20 20 20 20 20 20 20 e1 |.. .|
00000bd0 0d 03 0c 12 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00000be0 20 3a 0d 03 16 2e 20 20 20 20 20 20 20 20 20 20 | :.... |
00000bf0 20 20 20 dd 20 f2 55 73 65 72 5f 44 72 61 77 70 | . .User_Drawp|
00000c00 72 69 6e 74 65 72 49 6e 66 6f 57 69 6e 64 6f 77 |rinterInfoWindow|
00000c10 0d 03 20 12 20 20 20 20 20 20 20 20 20 20 20 20 |.. . |
00000c20 20 e1 0d 03 2a 0c 20 20 20 20 20 20 20 3a 0d 03 | ...*. :..|
00000c30 34 3b 20 20 20 20 20 20 20 dd 20 f2 45 76 65 6e |4; . .Even|
00000c40 74 5f 4d 6f 75 73 65 43 6c 69 63 6b 28 77 69 6e |t_MouseClick(win|
00000c50 64 6f 77 25 2c 69 63 6f 6e 25 2c 62 75 74 74 6f |dow%,icon%,butto|
00000c60 6e 25 2c 78 25 2c 79 25 29 0d 03 3e 17 20 20 20 |n%,x%,y%)..>. |
00000c70 20 20 20 20 c8 8e 20 77 69 6e 64 6f 77 25 20 ca | .. window% .|
00000c80 0d 03 48 31 20 20 20 20 20 20 20 20 c9 20 42 61 |..H1 . Ba|
00000c90 72 5f 57 69 6e 64 6f 77 25 20 20 20 20 20 20 20 |r_Window% |
00000ca0 20 3a 20 f2 55 73 65 72 5f 4d 6f 75 73 65 42 61 | : .User_MouseBa|
00000cb0 72 0d 03 52 42 20 20 20 20 20 20 20 20 c9 20 49 |r..RB . I|
00000cc0 6e 66 6f 5f 57 69 6e 64 6f 77 25 20 20 20 20 20 |nfo_Window% |
00000cd0 20 20 3a 20 f2 55 73 65 72 5f 4d 6f 75 73 65 49 | : .User_MouseI|
00000ce0 6e 66 6f 28 20 62 75 74 74 6f 6e 25 2c 69 63 6f |nfo( button%,ico|
00000cf0 6e 25 29 0d 03 5c 4c 20 20 20 20 20 20 20 20 c9 |n%)..\L .|
00000d00 20 50 72 6e 53 65 74 75 70 5f 57 69 6e 64 6f 77 | PrnSetup_Window|
00000d10 25 20 20 20 3a 20 f2 55 73 65 72 5f 4d 6f 75 73 |% : .User_Mous|
00000d20 65 50 72 6e 53 65 74 75 70 28 20 62 75 74 74 6f |ePrnSetup( butto|
00000d30 6e 25 2c 69 63 6f 6e 25 2c 78 25 2c 79 25 29 0d |n%,icon%,x%,y%).|
00000d40 03 66 49 20 20 20 20 20 20 20 20 c9 20 70 72 69 |.fI . pri|
00000d50 6e 74 65 72 49 6e 66 6f 5f 57 69 6e 64 6f 77 25 |nterInfo_Window%|
00000d60 3a 20 f2 55 73 65 72 5f 4d 6f 75 73 65 70 72 69 |: .User_Mousepri|
00000d70 6e 74 65 72 49 6e 66 6f 28 20 62 75 74 74 6f 6e |nterInfo( button|
00000d80 25 2c 69 63 6f 6e 25 29 0d 03 70 48 20 20 20 20 |%,icon%)..pH |
00000d90 20 20 20 20 c9 20 50 65 72 63 65 6e 74 61 67 65 | . Percentage|
00000da0 5f 57 69 6e 64 6f 77 25 20 3a 20 f2 55 73 65 72 |_Window% : .User|
00000db0 5f 4d 6f 75 73 65 50 65 72 63 65 6e 74 61 67 65 |_MousePercentage|
00000dc0 28 20 62 75 74 74 6f 6e 25 2c 69 63 6f 6e 25 29 |( button%,icon%)|
00000dd0 0d 03 7a 0c 20 20 20 20 20 20 20 cb 0d 03 84 0c |..z. .....|
00000de0 20 20 20 20 20 20 20 e1 0d 03 8e 0e 20 20 20 20 | ..... |
00000df0 20 20 20 20 20 3a 0d 03 98 34 20 20 20 20 20 20 | :...4 |
00000e00 20 20 20 dd 20 f2 55 73 65 72 5f 4d 6f 75 73 65 | . .User_Mouse|
00000e10 50 65 72 63 65 6e 74 61 67 65 28 20 62 75 74 74 |Percentage( butt|
00000e20 6f 6e 25 2c 69 63 6f 6e 25 29 0d 03 a2 18 20 20 |on%,icon%).... |
00000e30 20 20 20 20 20 20 20 20 c8 8e 20 69 63 6f 6e 25 | .. icon%|
00000e40 20 ca 0d 03 ac 58 20 20 20 20 20 20 20 20 20 20 | ....X |
00000e50 20 c9 20 32 20 3a 20 54 3d 73 74 61 76 65 73 6e | . 2 : T=stavesn|
00000e60 75 6d 25 20 3a 20 4e 3d 73 74 61 76 65 73 6e 75 |um% : N=stavesnu|
00000e70 6d 25 20 3a 20 47 6f 25 3d a3 20 3a 20 f2 4d 65 |m% : Go%=. : .Me|
00000e80 73 73 61 67 65 28 22 50 72 69 6e 74 69 6e 67 20 |ssage("Printing |
00000e90 53 74 6f 70 70 65 64 21 22 29 0d 03 b6 0f 20 20 |Stopped!").... |
00000ea0 20 20 20 20 20 20 20 20 cb 0d 03 c0 0e 20 20 20 | ..... |
00000eb0 20 20 20 20 20 20 e1 0d 03 ca 0e 20 20 20 20 20 | ..... |
00000ec0 20 20 20 20 3a 0d 03 d4 1d 20 20 20 20 20 20 20 | :.... |
00000ed0 20 20 dd 20 f2 55 73 65 72 5f 4d 6f 75 73 65 42 | . .User_MouseB|
00000ee0 61 72 0d 03 de 36 20 20 20 20 20 20 20 20 20 20 |ar...6 |
00000ef0 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 42 72 69 6e |.Wimp_WindowBrin|
00000f00 67 54 6f 54 6f 70 28 50 72 6e 53 65 74 75 70 5f |gToTop(PrnSetup_|
00000f10 57 69 6e 64 6f 77 25 29 0d 03 e8 0e 20 20 20 20 |Window%).... |
00000f20 20 20 20 20 20 e1 0d 03 f2 0e 20 20 20 20 20 20 | ..... |
00000f30 20 20 20 3a 0d 03 fc 2e 20 20 20 20 20 20 20 20 | :.... |
00000f40 20 dd 20 f2 55 73 65 72 5f 4d 6f 75 73 65 49 6e | . .User_MouseIn|
00000f50 66 6f 28 20 62 75 74 74 6f 6e 25 2c 69 63 6f 6e |fo( button%,icon|
00000f60 25 29 0d 04 06 2d 20 20 20 20 20 20 20 20 20 20 |%)...- |
00000f70 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 43 6c 6f 73 |.Wimp_WindowClos|
00000f80 65 28 49 6e 66 6f 5f 57 69 6e 64 6f 77 25 29 0d |e(Info_Window%).|
00000f90 04 10 0e 20 20 20 20 20 20 20 20 20 e1 0d 04 1a |... ....|
00000fa0 0e 20 20 20 20 20 20 20 20 20 3a 0d 04 24 38 20 |. :..$8 |
00000fb0 20 20 20 20 20 20 20 20 dd 20 f2 55 73 65 72 5f | . .User_|
00000fc0 4d 6f 75 73 65 50 72 6e 53 65 74 75 70 28 20 62 |MousePrnSetup( b|
00000fd0 75 74 74 6f 6e 25 2c 69 63 6f 6e 25 2c 78 25 2c |utton%,icon%,x%,|
00000fe0 79 25 29 0d 04 2e 18 20 20 20 20 20 20 20 20 20 |y%).... |
00000ff0 20 c8 8e 20 69 63 6f 6e 25 20 ca 0d 04 38 1e 20 | .. icon% ...8. |
00001000 20 20 20 20 20 20 20 20 20 20 c9 20 32 35 20 3a | . 25 :|
00001010 20 f2 44 65 66 61 75 6c 74 0d 04 42 37 20 20 20 | .Default..B7 |
00001020 20 20 20 20 20 20 20 20 c9 20 32 37 20 3a 20 f2 | . 27 : .|
00001030 57 69 6d 70 5f 4d 65 6e 75 50 6f 70 55 70 28 53 |Wimp_MenuPopUp(S|
00001040 61 76 65 5f 4d 65 6e 75 25 2c 78 25 2c 79 25 29 |ave_Menu%,x%,y%)|
00001050 0d 04 4c 21 20 20 20 20 20 20 20 20 20 20 20 c9 |..L! .|
00001060 20 32 39 20 3a 20 66 69 6e 69 73 68 65 64 25 3d | 29 : finished%=|
00001070 b9 0d 04 56 41 20 20 20 20 20 20 20 20 20 20 20 |...VA |
00001080 c9 20 33 31 20 3a 20 f2 57 69 6d 70 5f 57 69 6e |. 31 : .Wimp_Win|
00001090 64 6f 77 42 72 69 6e 67 54 6f 54 6f 70 28 70 72 |dowBringToTop(pr|
000010a0 69 6e 74 65 72 49 6e 66 6f 5f 57 69 6e 64 6f 77 |interInfo_Window|
000010b0 25 29 0d 04 60 3e 20 20 20 20 20 20 20 20 20 20 |%)..`> |
000010c0 20 c9 20 33 39 20 3a 20 e7 20 62 75 74 74 6f 6e | . 39 : . button|
000010d0 25 3d 31 20 84 20 62 75 74 74 6f 6e 25 3d 34 20 |%=1 . button%=4 |
000010e0 f2 43 68 61 6e 67 65 53 74 61 76 65 73 28 b9 29 |.ChangeStaves(.)|
000010f0 0d 04 6a 3e 20 20 20 20 20 20 20 20 20 20 20 c9 |..j> .|
00001100 20 33 38 20 3a 20 e7 20 62 75 74 74 6f 6e 25 3d | 38 : . button%=|
00001110 31 20 84 20 62 75 74 74 6f 6e 25 3d 34 20 f2 43 |1 . button%=4 .C|
00001120 68 61 6e 67 65 53 74 61 76 65 73 28 a3 29 0d 04 |hangeStaves(.)..|
00001130 74 3d 20 20 20 20 20 20 20 20 20 20 20 c9 20 34 |t= . 4|
00001140 30 20 3a 20 e7 20 62 75 74 74 6f 6e 25 3d 31 20 |0 : . button%=1 |
00001150 84 20 62 75 74 74 6f 6e 25 3d 34 20 f2 43 68 61 |. button%=4 .Cha|
00001160 6e 67 65 57 69 64 74 68 28 b9 29 0d 04 7e 3d 20 |ngeWidth(.)..~= |
00001170 20 20 20 20 20 20 20 20 20 20 c9 20 34 31 20 3a | . 41 :|
00001180 20 e7 20 62 75 74 74 6f 6e 25 3d 31 20 84 20 62 | . button%=1 . b|
00001190 75 74 74 6f 6e 25 3d 34 20 f2 43 68 61 6e 67 65 |utton%=4 .Change|
000011a0 57 69 64 74 68 28 a3 29 0d 04 88 3b 20 20 20 20 |Width(.)...; |
000011b0 20 20 20 20 20 20 20 c9 20 34 32 20 3a 20 e7 20 | . 42 : . |
000011c0 62 75 74 74 6f 6e 25 3d 31 20 84 20 62 75 74 74 |button%=1 . butt|
000011d0 6f 6e 25 3d 34 20 f2 43 68 61 6e 67 65 47 61 70 |on%=4 .ChangeGap|
000011e0 28 b9 29 0d 04 92 3b 20 20 20 20 20 20 20 20 20 |(.)...; |
000011f0 20 20 c9 20 34 33 20 3a 20 e7 20 62 75 74 74 6f | . 43 : . butto|
00001200 6e 25 3d 31 20 84 20 62 75 74 74 6f 6e 25 3d 34 |n%=1 . button%=4|
00001210 20 f2 43 68 61 6e 67 65 47 61 70 28 a3 29 0d 04 | .ChangeGap(.)..|
00001220 9c 0f 20 20 20 20 20 20 20 20 20 20 cb 0d 04 a6 |.. ....|
00001230 0e 20 20 20 20 20 20 20 20 20 e1 0d 04 b0 0e 20 |. ..... |
00001240 20 20 20 20 20 20 20 20 3a 0d 04 ba 35 20 20 20 | :...5 |
00001250 20 20 20 20 20 20 dd 20 f2 55 73 65 72 5f 4d 6f | . .User_Mo|
00001260 75 73 65 70 72 69 6e 74 65 72 49 6e 66 6f 28 20 |useprinterInfo( |
00001270 62 75 74 74 6f 6e 25 2c 69 63 6f 6e 25 29 0d 04 |button%,icon%)..|
00001280 c4 18 20 20 20 20 20 20 20 20 20 20 c8 8e 20 69 |.. .. i|
00001290 63 6f 6e 25 20 ca 0d 04 ce 8c 20 20 20 20 20 20 |con% ..... |
000012a0 20 20 20 20 20 c9 20 38 20 3a 20 f2 57 69 6d 70 | . 8 : .Wimp|
000012b0 5f 57 69 6e 64 6f 77 43 6c 6f 73 65 28 70 72 69 |_WindowClose(pri|
000012c0 6e 74 65 72 49 6e 66 6f 5f 57 69 6e 64 6f 77 25 |nterInfo_Window%|
000012d0 29 20 3a 20 f2 4d 65 73 73 61 67 65 28 22 50 72 |) : .Message("Pr|
000012e0 69 6e 74 69 6e 67 2e 2e 2e 2e 20 30 25 20 63 6f |inting.... 0% co|
000012f0 6d 70 6c 65 74 65 64 22 29 20 3a 20 70 65 72 63 |mpleted") : perc|
00001300 65 6e 74 25 3d 30 20 3a 20 c8 99 22 48 6f 75 72 |ent%=0 : .."Hour|
00001310 67 6c 61 73 73 5f 4f 6e 22 20 3a 20 f2 50 72 69 |glass_On" : .Pri|
00001320 6e 74 0d 04 d8 04 0d 04 e2 0f 20 20 20 20 20 20 |nt........ |
00001330 20 20 20 20 cb 0d 04 ec 0e 20 20 20 20 20 20 20 | ..... |
00001340 20 20 e1 0d 04 f6 0c 20 20 20 20 20 20 20 3a 0d | ..... :.|
00001350 05 00 30 20 20 20 20 20 20 20 dd 20 f2 45 76 65 |..0 . .Eve|
00001360 6e 74 5f 4b 65 79 50 72 65 73 73 28 77 69 6e 64 |nt_KeyPress(wind|
00001370 6f 77 25 2c 69 63 6f 6e 25 2c 6b 65 79 25 29 0d |ow%,icon%,key%).|
00001380 05 0a 18 20 20 20 20 20 20 20 20 c8 8e 20 77 69 |... .. wi|
00001390 6e 64 6f 77 25 20 ca 0d 05 14 47 20 20 20 20 20 |ndow% ....G |
000013a0 20 20 20 20 c9 20 50 72 6e 53 65 74 75 70 5f 57 | . PrnSetup_W|
000013b0 69 6e 64 6f 77 25 20 20 20 3a 20 f2 55 73 65 72 |indow% : .User|
000013c0 5f 4b 65 79 50 72 65 73 73 50 72 6e 53 65 74 75 |_KeyPressPrnSetu|
000013d0 70 28 20 69 63 6f 6e 25 2c 6b 65 79 25 29 0d 05 |p( icon%,key%)..|
000013e0 1e 0d 20 20 20 20 20 20 20 20 cb 0d 05 28 0c 20 |.. ...(. |
000013f0 20 20 20 20 20 20 e1 0d 05 32 0e 20 20 20 20 20 | ...2. |
00001400 20 20 20 20 3a 0d 05 3c 32 20 20 20 20 20 20 20 | :..<2 |
00001410 20 20 dd 20 f2 55 73 65 72 5f 4b 65 79 50 72 65 | . .User_KeyPre|
00001420 73 73 50 72 6e 53 65 74 75 70 28 20 69 63 6f 6e |ssPrnSetup( icon|
00001430 25 2c 6b 65 79 25 29 0d 05 46 0e 20 20 20 20 20 |%,key%)..F. |
00001440 20 20 20 20 e1 0d 05 50 0c 20 20 20 20 20 20 20 | ...P. |
00001450 3a 0d 05 5a 25 20 20 20 20 20 20 20 dd 20 f2 45 |:..Z% . .E|
00001460 76 65 6e 74 5f 4d 65 6e 75 43 68 6f 69 63 65 28 |vent_MenuChoice(|
00001470 6d 65 6e 75 25 29 0d 05 64 16 20 20 20 20 20 20 |menu%)..d. |
00001480 20 20 c8 8e 20 6d 65 6e 75 25 20 ca 0d 05 6e 37 | .. menu% ...n7|
00001490 20 20 20 20 20 20 20 20 20 c9 20 42 61 72 5f 4d | . Bar_M|
000014a0 65 6e 75 25 20 20 20 20 20 20 20 20 20 20 3a 20 |enu% : |
000014b0 f2 55 73 65 72 5f 4d 65 6e 75 43 68 6f 69 63 65 |.User_MenuChoice|
000014c0 42 61 72 0d 05 78 3c 20 20 20 20 20 20 20 20 20 |Bar..x< |
000014d0 c9 20 50 72 6e 53 65 74 75 70 5f 4d 65 6e 75 25 |. PrnSetup_Menu%|
000014e0 20 20 20 20 20 3a 20 f2 55 73 65 72 5f 4d 65 6e | : .User_Men|
000014f0 75 43 68 6f 69 63 65 50 72 6e 53 65 74 75 70 0d |uChoicePrnSetup.|
00001500 05 82 38 20 20 20 20 20 20 20 20 20 c9 20 53 61 |..8 . Sa|
00001510 76 65 5f 4d 65 6e 75 25 20 20 20 20 20 20 20 20 |ve_Menu% |
00001520 20 3a 20 f2 55 73 65 72 5f 4d 65 6e 75 43 68 6f | : .User_MenuCho|
00001530 69 63 65 53 61 76 65 0d 05 8c 0d 20 20 20 20 20 |iceSave.... |
00001540 20 20 20 cb 0d 05 96 0c 20 20 20 20 20 20 20 e1 | ..... .|
00001550 0d 05 a0 0c 20 20 20 20 20 20 20 3a 0d 05 aa 21 |.... :...!|
00001560 20 20 20 20 20 20 20 dd 20 f2 55 73 65 72 5f 4d | . .User_M|
00001570 65 6e 75 43 68 6f 69 63 65 53 61 76 65 0d 05 b4 |enuChoiceSave...|
00001580 24 20 20 20 20 20 20 20 20 c8 8e 20 a4 57 69 6d |$ .. .Wim|
00001590 70 5f 4d 65 6e 75 43 68 6f 69 63 65 28 30 29 20 |p_MenuChoice(0) |
000015a0 ca 0d 05 be 3c 20 20 20 20 20 20 20 20 20 c9 20 |....< . |
000015b0 31 20 3a 20 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 |1 : .Wimp_Window|
000015c0 42 72 69 6e 67 54 6f 54 6f 70 28 73 61 76 65 5f |BringToTop(save_|
000015d0 64 72 61 77 5f 57 69 6e 64 6f 77 25 29 0d 05 c8 |draw_Window%)...|
000015e0 3d 20 20 20 20 20 20 20 20 20 c9 20 32 20 3a 20 |= . 2 : |
000015f0 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 42 72 69 6e |.Wimp_WindowBrin|
00001600 67 54 6f 54 6f 70 28 73 61 76 65 5f 73 65 74 75 |gToTop(save_setu|
00001610 70 5f 57 69 6e 64 6f 77 25 29 0d 05 d2 60 20 20 |p_Window%)...` |
00001620 20 20 20 20 20 20 20 c9 20 33 20 3a 20 f2 53 61 | . 3 : .Sa|
00001630 76 65 28 22 3c 53 74 61 76 65 73 50 72 6e 24 44 |ve("<StavesPrn$D|
00001640 69 72 3e 2e 44 65 66 61 75 6c 74 73 22 29 20 3a |ir>.Defaults") :|
00001650 20 f2 4d 65 73 73 61 67 65 28 22 4e 65 77 20 64 | .Message("New d|
00001660 65 66 61 75 6c 74 73 20 68 61 76 65 20 62 65 65 |efaults have bee|
00001670 6e 20 73 61 76 65 64 2e 22 29 0d 05 dc 0d 20 20 |n saved.").... |
00001680 20 20 20 20 20 20 cb 0d 05 e6 0c 20 20 20 20 20 | ..... |
00001690 20 20 e1 0d 05 f0 0c 20 20 20 20 20 20 20 3a 0d | ..... :.|
000016a0 05 fa 20 20 20 20 20 20 20 20 dd 20 f2 55 73 65 |.. . .Use|
000016b0 72 5f 4d 65 6e 75 43 68 6f 69 63 65 42 61 72 0d |r_MenuChoiceBar.|
000016c0 06 04 24 20 20 20 20 20 20 20 20 c8 8e 20 a4 57 |..$ .. .W|
000016d0 69 6d 70 5f 4d 65 6e 75 43 68 6f 69 63 65 28 30 |imp_MenuChoice(0|
000016e0 29 20 ca 0d 06 0e 37 20 20 20 20 20 20 20 20 20 |) ....7 |
000016f0 c9 20 31 20 3a 20 f2 57 69 6d 70 5f 57 69 6e 64 |. 1 : .Wimp_Wind|
00001700 6f 77 42 72 69 6e 67 54 6f 54 6f 70 28 49 6e 66 |owBringToTop(Inf|
00001710 6f 5f 57 69 6e 64 6f 77 25 29 0d 06 18 2b 20 20 |o_Window%)...+ |
00001720 20 20 20 20 20 20 20 c9 20 32 20 3a 20 c8 8e 20 | . 2 : .. |
00001730 a4 57 69 6d 70 5f 4d 65 6e 75 43 68 6f 69 63 65 |.Wimp_MenuChoice|
00001740 28 31 29 20 ca 0d 06 22 2d 20 20 20 20 20 20 20 |(1) ..."- |
00001750 20 20 20 20 c9 20 31 20 3a 20 c8 8e 20 a4 57 69 | . 1 : .. .Wi|
00001760 6d 70 5f 4d 65 6e 75 43 68 6f 69 63 65 28 32 29 |mp_MenuChoice(2)|
00001770 20 ca 0d 06 2c 4b 20 20 20 20 20 20 20 20 20 20 | ...,K |
00001780 20 20 20 c9 20 31 20 3a 20 73 74 63 6f 6c 25 3d | . 1 : stcol%=|
00001790 30 20 3a 20 f2 57 69 6d 70 5f 4d 65 6e 75 54 69 |0 : .Wimp_MenuTi|
000017a0 63 6b 28 43 6f 6c 6f 75 72 73 5f 4d 65 6e 75 25 |ck(Colours_Menu%|
000017b0 2c 31 29 20 3a 20 f2 55 6e 54 69 63 6b 0d 06 36 |,1) : .UnTick..6|
000017c0 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 |K . |
000017d0 32 20 3a 20 73 74 63 6f 6c 25 3d 31 20 3a 20 f2 |2 : stcol%=1 : .|
000017e0 57 69 6d 70 5f 4d 65 6e 75 54 69 63 6b 28 43 6f |Wimp_MenuTick(Co|
000017f0 6c 6f 75 72 73 5f 4d 65 6e 75 25 2c 32 29 20 3a |lours_Menu%,2) :|
00001800 20 f2 55 6e 54 69 63 6b 0d 06 40 4b 20 20 20 20 | .UnTick..@K |
00001810 20 20 20 20 20 20 20 20 20 c9 20 33 20 3a 20 73 | . 3 : s|
00001820 74 63 6f 6c 25 3d 32 20 3a 20 f2 57 69 6d 70 5f |tcol%=2 : .Wimp_|
00001830 4d 65 6e 75 54 69 63 6b 28 43 6f 6c 6f 75 72 73 |MenuTick(Colours|
00001840 5f 4d 65 6e 75 25 2c 33 29 20 3a 20 f2 55 6e 54 |_Menu%,3) : .UnT|
00001850 69 63 6b 0d 06 4a 4b 20 20 20 20 20 20 20 20 20 |ick..JK |
00001860 20 20 20 20 c9 20 34 20 3a 20 73 74 63 6f 6c 25 | . 4 : stcol%|
00001870 3d 33 20 3a 20 f2 57 69 6d 70 5f 4d 65 6e 75 54 |=3 : .Wimp_MenuT|
00001880 69 63 6b 28 43 6f 6c 6f 75 72 73 5f 4d 65 6e 75 |ick(Colours_Menu|
00001890 25 2c 34 29 20 3a 20 f2 55 6e 54 69 63 6b 0d 06 |%,4) : .UnTick..|
000018a0 54 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 |TK .|
000018b0 20 35 20 3a 20 73 74 63 6f 6c 25 3d 34 20 3a 20 | 5 : stcol%=4 : |
000018c0 f2 57 69 6d 70 5f 4d 65 6e 75 54 69 63 6b 28 43 |.Wimp_MenuTick(C|
000018d0 6f 6c 6f 75 72 73 5f 4d 65 6e 75 25 2c 35 29 20 |olours_Menu%,5) |
000018e0 3a 20 f2 55 6e 54 69 63 6b 0d 06 5e 4b 20 20 20 |: .UnTick..^K |
000018f0 20 20 20 20 20 20 20 20 20 20 c9 20 36 20 3a 20 | . 6 : |
00001900 73 74 63 6f 6c 25 3d 35 20 3a 20 f2 57 69 6d 70 |stcol%=5 : .Wimp|
00001910 5f 4d 65 6e 75 54 69 63 6b 28 43 6f 6c 6f 75 72 |_MenuTick(Colour|
00001920 73 5f 4d 65 6e 75 25 2c 36 29 20 3a 20 f2 55 6e |s_Menu%,6) : .Un|
00001930 54 69 63 6b 0d 06 68 4b 20 20 20 20 20 20 20 20 |Tick..hK |
00001940 20 20 20 20 20 c9 20 37 20 3a 20 73 74 63 6f 6c | . 7 : stcol|
00001950 25 3d 36 20 3a 20 f2 57 69 6d 70 5f 4d 65 6e 75 |%=6 : .Wimp_Menu|
00001960 54 69 63 6b 28 43 6f 6c 6f 75 72 73 5f 4d 65 6e |Tick(Colours_Men|
00001970 75 25 2c 37 29 20 3a 20 f2 55 6e 54 69 63 6b 0d |u%,7) : .UnTick.|
00001980 06 72 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 |.rK |
00001990 c9 20 38 20 3a 20 73 74 63 6f 6c 25 3d 37 20 3a |. 8 : stcol%=7 :|
000019a0 20 f2 57 69 6d 70 5f 4d 65 6e 75 54 69 63 6b 28 | .Wimp_MenuTick(|
000019b0 43 6f 6c 6f 75 72 73 5f 4d 65 6e 75 25 2c 38 29 |Colours_Menu%,8)|
000019c0 20 3a 20 f2 55 6e 54 69 63 6b 0d 06 7c 4b 20 20 | : .UnTick..|K |
000019d0 20 20 20 20 20 20 20 20 20 20 20 c9 20 39 20 3a | . 9 :|
000019e0 20 73 74 63 6f 6c 25 3d 38 20 3a 20 f2 57 69 6d | stcol%=8 : .Wim|
000019f0 70 5f 4d 65 6e 75 54 69 63 6b 28 43 6f 6c 6f 75 |p_MenuTick(Colou|
00001a00 72 73 5f 4d 65 6e 75 25 2c 39 29 20 3a 20 f2 55 |rs_Menu%,9) : .U|
00001a10 6e 54 69 63 6b 0d 06 86 4d 20 20 20 20 20 20 20 |nTick...M |
00001a20 20 20 20 20 20 20 c9 20 31 30 20 3a 20 73 74 63 | . 10 : stc|
00001a30 6f 6c 25 3d 39 20 3a 20 f2 57 69 6d 70 5f 4d 65 |ol%=9 : .Wimp_Me|
00001a40 6e 75 54 69 63 6b 28 43 6f 6c 6f 75 72 73 5f 4d |nuTick(Colours_M|
00001a50 65 6e 75 25 2c 31 30 29 20 3a 20 f2 55 6e 54 69 |enu%,10) : .UnTi|
00001a60 63 6b 0d 06 90 4e 20 20 20 20 20 20 20 20 20 20 |ck...N |
00001a70 20 20 20 c9 20 31 31 20 3a 20 73 74 63 6f 6c 25 | . 11 : stcol%|
00001a80 3d 31 30 20 3a 20 f2 57 69 6d 70 5f 4d 65 6e 75 |=10 : .Wimp_Menu|
00001a90 54 69 63 6b 28 43 6f 6c 6f 75 72 73 5f 4d 65 6e |Tick(Colours_Men|
00001aa0 75 25 2c 31 31 29 20 3a 20 f2 55 6e 54 69 63 6b |u%,11) : .UnTick|
00001ab0 0d 06 9a 4e 20 20 20 20 20 20 20 20 20 20 20 20 |...N |
00001ac0 20 c9 20 31 32 20 3a 20 73 74 63 6f 6c 25 3d 31 | . 12 : stcol%=1|
00001ad0 31 20 3a 20 f2 57 69 6d 70 5f 4d 65 6e 75 54 69 |1 : .Wimp_MenuTi|
00001ae0 63 6b 28 43 6f 6c 6f 75 72 73 5f 4d 65 6e 75 25 |ck(Colours_Menu%|
00001af0 2c 31 32 29 20 3a 20 f2 55 6e 54 69 63 6b 0d 06 |,12) : .UnTick..|
00001b00 a4 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 |.N .|
00001b10 20 31 33 20 3a 20 73 74 63 6f 6c 25 3d 31 32 20 | 13 : stcol%=12 |
00001b20 3a 20 f2 57 69 6d 70 5f 4d 65 6e 75 54 69 63 6b |: .Wimp_MenuTick|
00001b30 28 43 6f 6c 6f 75 72 73 5f 4d 65 6e 75 25 2c 31 |(Colours_Menu%,1|
00001b40 33 29 20 3a 20 f2 55 6e 54 69 63 6b 0d 06 ae 4e |3) : .UnTick...N|
00001b50 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 31 | . 1|
00001b60 34 20 3a 20 73 74 63 6f 6c 25 3d 31 33 20 3a 20 |4 : stcol%=13 : |
00001b70 f2 57 69 6d 70 5f 4d 65 6e 75 54 69 63 6b 28 43 |.Wimp_MenuTick(C|
00001b80 6f 6c 6f 75 72 73 5f 4d 65 6e 75 25 2c 31 34 29 |olours_Menu%,14)|
00001b90 20 3a 20 f2 55 6e 54 69 63 6b 0d 06 b8 4e 20 20 | : .UnTick...N |
00001ba0 20 20 20 20 20 20 20 20 20 20 20 c9 20 31 35 20 | . 15 |
00001bb0 3a 20 73 74 63 6f 6c 25 3d 31 34 20 3a 20 f2 57 |: stcol%=14 : .W|
00001bc0 69 6d 70 5f 4d 65 6e 75 54 69 63 6b 28 43 6f 6c |imp_MenuTick(Col|
00001bd0 6f 75 72 73 5f 4d 65 6e 75 25 2c 31 35 29 20 3a |ours_Menu%,15) :|
00001be0 20 f2 55 6e 54 69 63 6b 0d 06 c2 4e 20 20 20 20 | .UnTick...N |
00001bf0 20 20 20 20 20 20 20 20 20 c9 20 31 36 20 3a 20 | . 16 : |
00001c00 73 74 63 6f 6c 25 3d 31 35 20 3a 20 f2 57 69 6d |stcol%=15 : .Wim|
00001c10 70 5f 4d 65 6e 75 54 69 63 6b 28 43 6f 6c 6f 75 |p_MenuTick(Colou|
00001c20 72 73 5f 4d 65 6e 75 25 2c 31 36 29 20 3a 20 f2 |rs_Menu%,16) : .|
00001c30 55 6e 54 69 63 6b 0d 06 cc 11 20 20 20 20 20 20 |UnTick.... |
00001c40 20 20 20 20 20 20 cb 0d 06 d6 3e 20 20 20 20 20 | ....> |
00001c50 20 20 20 20 20 20 c9 20 32 20 3a 20 f2 57 69 6d | . 2 : .Wim|
00001c60 70 5f 57 69 6e 64 6f 77 42 72 69 6e 67 54 6f 54 |p_WindowBringToT|
00001c70 6f 70 28 73 61 76 65 5f 64 72 61 77 5f 57 69 6e |op(save_draw_Win|
00001c80 64 6f 77 25 29 0d 06 e0 3f 20 20 20 20 20 20 20 |dow%)...? |
00001c90 20 20 20 20 c9 20 33 20 3a 20 f2 57 69 6d 70 5f | . 3 : .Wimp_|
00001ca0 57 69 6e 64 6f 77 42 72 69 6e 67 54 6f 54 6f 70 |WindowBringToTop|
00001cb0 28 73 61 76 65 5f 73 65 74 75 70 5f 57 69 6e 64 |(save_setup_Wind|
00001cc0 6f 77 25 29 0d 06 ea 62 20 20 20 20 20 20 20 20 |ow%)...b |
00001cd0 20 20 20 c9 20 34 20 3a 20 f2 53 61 76 65 28 22 | . 4 : .Save("|
00001ce0 3c 53 74 61 76 65 73 50 72 6e 24 44 69 72 3e 2e |<StavesPrn$Dir>.|
00001cf0 44 65 66 61 75 6c 74 73 22 29 20 3a 20 f2 4d 65 |Defaults") : .Me|
00001d00 73 73 61 67 65 28 22 4e 65 77 20 64 65 66 61 75 |ssage("New defau|
00001d10 6c 74 73 20 68 61 76 65 20 62 65 65 6e 20 73 61 |lts have been sa|
00001d20 76 65 64 2e 22 29 0d 06 f4 0f 20 20 20 20 20 20 |ved.").... |
00001d30 20 20 20 20 cb 0d 06 fe 3e 20 20 20 20 20 20 20 | ....> |
00001d40 20 20 c9 20 33 20 3a 20 f2 57 69 6d 70 5f 57 69 | . 3 : .Wimp_Wi|
00001d50 6e 64 6f 77 42 72 69 6e 67 54 6f 54 6f 70 28 70 |ndowBringToTop(p|
00001d60 72 69 6e 74 65 72 49 6e 66 6f 5f 57 69 6e 64 6f |rinterInfo_Windo|
00001d70 77 25 29 0d 07 08 23 20 20 20 20 20 20 20 20 20 |w%)...# |
00001d80 c9 20 34 20 3a 20 f2 52 65 73 74 6f 72 65 44 65 |. 4 : .RestoreDe|
00001d90 66 61 75 6c 74 73 0d 07 12 1d 20 20 20 20 20 20 |faults.... |
00001da0 20 20 20 c9 20 35 20 3a 66 69 6e 69 73 68 65 64 | . 5 :finished|
00001db0 25 3d b9 0d 07 1c 0d 20 20 20 20 20 20 20 20 cb |%=..... .|
00001dc0 0d 07 26 0c 20 20 20 20 20 20 20 e1 0d 07 30 0c |..&. ...0.|
00001dd0 20 20 20 20 20 20 20 3a 0d 07 3a 25 20 20 20 20 | :..:% |
00001de0 20 20 20 dd 20 f2 55 73 65 72 5f 4d 65 6e 75 43 | . .User_MenuC|
00001df0 68 6f 69 63 65 50 72 6e 53 65 74 75 70 0d 07 44 |hoicePrnSetup..D|
00001e00 24 20 20 20 20 20 20 20 20 c8 8e 20 a4 57 69 6d |$ .. .Wim|
00001e10 70 5f 4d 65 6e 75 43 68 6f 69 63 65 28 30 29 20 |p_MenuChoice(0) |
00001e20 ca 0d 07 4e 37 20 20 20 20 20 20 20 20 20 c9 20 |...N7 . |
00001e30 31 20 3a 20 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 |1 : .Wimp_Window|
00001e40 42 72 69 6e 67 54 6f 54 6f 70 28 49 6e 66 6f 5f |BringToTop(Info_|
00001e50 57 69 6e 64 6f 77 25 29 0d 07 58 2b 20 20 20 20 |Window%)..X+ |
00001e60 20 20 20 20 20 c9 20 32 20 3a 20 c8 8e 20 a4 57 | . 2 : .. .W|
00001e70 69 6d 70 5f 4d 65 6e 75 43 68 6f 69 63 65 28 31 |imp_MenuChoice(1|
00001e80 29 20 ca 0d 07 62 2d 20 20 20 20 20 20 20 20 20 |) ...b- |
00001e90 20 20 c9 20 31 20 3a 20 c8 8e 20 a4 57 69 6d 70 | . 1 : .. .Wimp|
00001ea0 5f 4d 65 6e 75 43 68 6f 69 63 65 28 32 29 20 ca |_MenuChoice(2) .|
00001eb0 0d 07 6c 4b 20 20 20 20 20 20 20 20 20 20 20 20 |..lK |
00001ec0 20 c9 20 31 20 3a 20 73 74 63 6f 6c 25 3d 30 20 | . 1 : stcol%=0 |
00001ed0 3a 20 f2 57 69 6d 70 5f 4d 65 6e 75 54 69 63 6b |: .Wimp_MenuTick|
00001ee0 28 43 6f 6c 6f 75 72 73 5f 4d 65 6e 75 25 2c 31 |(Colours_Menu%,1|
00001ef0 29 20 3a 20 f2 55 6e 54 69 63 6b 0d 07 76 4b 20 |) : .UnTick..vK |
00001f00 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 32 20 | . 2 |
00001f10 3a 20 73 74 63 6f 6c 25 3d 31 20 3a 20 f2 57 69 |: stcol%=1 : .Wi|
00001f20 6d 70 5f 4d 65 6e 75 54 69 63 6b 28 43 6f 6c 6f |mp_MenuTick(Colo|
00001f30 75 72 73 5f 4d 65 6e 75 25 2c 32 29 20 3a 20 f2 |urs_Menu%,2) : .|
00001f40 55 6e 54 69 63 6b 0d 07 80 4b 20 20 20 20 20 20 |UnTick...K |
00001f50 20 20 20 20 20 20 20 c9 20 33 20 3a 20 73 74 63 | . 3 : stc|
00001f60 6f 6c 25 3d 32 20 3a 20 f2 57 69 6d 70 5f 4d 65 |ol%=2 : .Wimp_Me|
00001f70 6e 75 54 69 63 6b 28 43 6f 6c 6f 75 72 73 5f 4d |nuTick(Colours_M|
00001f80 65 6e 75 25 2c 33 29 20 3a 20 f2 55 6e 54 69 63 |enu%,3) : .UnTic|
00001f90 6b 0d 07 8a 4b 20 20 20 20 20 20 20 20 20 20 20 |k...K |
00001fa0 20 20 c9 20 34 20 3a 20 73 74 63 6f 6c 25 3d 33 | . 4 : stcol%=3|
00001fb0 20 3a 20 f2 57 69 6d 70 5f 4d 65 6e 75 54 69 63 | : .Wimp_MenuTic|
00001fc0 6b 28 43 6f 6c 6f 75 72 73 5f 4d 65 6e 75 25 2c |k(Colours_Menu%,|
00001fd0 34 29 20 3a 20 f2 55 6e 54 69 63 6b 0d 07 94 4b |4) : .UnTick...K|
00001fe0 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 35 | . 5|
00001ff0 20 3a 20 73 74 63 6f 6c 25 3d 34 20 3a 20 f2 57 | : stcol%=4 : .W|
00002000 69 6d 70 5f 4d 65 6e 75 54 69 63 6b 28 43 6f 6c |imp_MenuTick(Col|
00002010 6f 75 72 73 5f 4d 65 6e 75 25 2c 35 29 20 3a 20 |ours_Menu%,5) : |
00002020 f2 55 6e 54 69 63 6b 0d 07 9e 4b 20 20 20 20 20 |.UnTick...K |
00002030 20 20 20 20 20 20 20 20 c9 20 36 20 3a 20 73 74 | . 6 : st|
00002040 63 6f 6c 25 3d 35 20 3a 20 f2 57 69 6d 70 5f 4d |col%=5 : .Wimp_M|
00002050 65 6e 75 54 69 63 6b 28 43 6f 6c 6f 75 72 73 5f |enuTick(Colours_|
00002060 4d 65 6e 75 25 2c 36 29 20 3a 20 f2 55 6e 54 69 |Menu%,6) : .UnTi|
00002070 63 6b 0d 07 a8 4b 20 20 20 20 20 20 20 20 20 20 |ck...K |
00002080 20 20 20 c9 20 37 20 3a 20 73 74 63 6f 6c 25 3d | . 7 : stcol%=|
00002090 36 20 3a 20 f2 57 69 6d 70 5f 4d 65 6e 75 54 69 |6 : .Wimp_MenuTi|
000020a0 63 6b 28 43 6f 6c 6f 75 72 73 5f 4d 65 6e 75 25 |ck(Colours_Menu%|
000020b0 2c 37 29 20 3a 20 f2 55 6e 54 69 63 6b 0d 07 b2 |,7) : .UnTick...|
000020c0 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 |K . |
000020d0 38 20 3a 20 73 74 63 6f 6c 25 3d 37 20 3a 20 f2 |8 : stcol%=7 : .|
000020e0 57 69 6d 70 5f 4d 65 6e 75 54 69 63 6b 28 43 6f |Wimp_MenuTick(Co|
000020f0 6c 6f 75 72 73 5f 4d 65 6e 75 25 2c 38 29 20 3a |lours_Menu%,8) :|
00002100 20 f2 55 6e 54 69 63 6b 0d 07 bc 4b 20 20 20 20 | .UnTick...K |
00002110 20 20 20 20 20 20 20 20 20 c9 20 39 20 3a 20 73 | . 9 : s|
00002120 74 63 6f 6c 25 3d 38 20 3a 20 f2 57 69 6d 70 5f |tcol%=8 : .Wimp_|
00002130 4d 65 6e 75 54 69 63 6b 28 43 6f 6c 6f 75 72 73 |MenuTick(Colours|
00002140 5f 4d 65 6e 75 25 2c 39 29 20 3a 20 f2 55 6e 54 |_Menu%,9) : .UnT|
00002150 69 63 6b 0d 07 c6 4d 20 20 20 20 20 20 20 20 20 |ick...M |
00002160 20 20 20 20 c9 20 31 30 20 3a 20 73 74 63 6f 6c | . 10 : stcol|
00002170 25 3d 39 20 3a 20 f2 57 69 6d 70 5f 4d 65 6e 75 |%=9 : .Wimp_Menu|
00002180 54 69 63 6b 28 43 6f 6c 6f 75 72 73 5f 4d 65 6e |Tick(Colours_Men|
00002190 75 25 2c 31 30 29 20 3a 20 f2 55 6e 54 69 63 6b |u%,10) : .UnTick|
000021a0 0d 07 d0 4e 20 20 20 20 20 20 20 20 20 20 20 20 |...N |
000021b0 20 c9 20 31 31 20 3a 20 73 74 63 6f 6c 25 3d 31 | . 11 : stcol%=1|
000021c0 30 20 3a 20 f2 57 69 6d 70 5f 4d 65 6e 75 54 69 |0 : .Wimp_MenuTi|
000021d0 63 6b 28 43 6f 6c 6f 75 72 73 5f 4d 65 6e 75 25 |ck(Colours_Menu%|
000021e0 2c 31 31 29 20 3a 20 f2 55 6e 54 69 63 6b 0d 07 |,11) : .UnTick..|
000021f0 da 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 |.N .|
00002200 20 31 32 20 3a 20 73 74 63 6f 6c 25 3d 31 31 20 | 12 : stcol%=11 |
00002210 3a 20 f2 57 69 6d 70 5f 4d 65 6e 75 54 69 63 6b |: .Wimp_MenuTick|
00002220 28 43 6f 6c 6f 75 72 73 5f 4d 65 6e 75 25 2c 31 |(Colours_Menu%,1|
00002230 32 29 20 3a 20 f2 55 6e 54 69 63 6b 0d 07 e4 4e |2) : .UnTick...N|
00002240 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 31 | . 1|
00002250 33 20 3a 20 73 74 63 6f 6c 25 3d 31 32 20 3a 20 |3 : stcol%=12 : |
00002260 f2 57 69 6d 70 5f 4d 65 6e 75 54 69 63 6b 28 43 |.Wimp_MenuTick(C|
00002270 6f 6c 6f 75 72 73 5f 4d 65 6e 75 25 2c 31 33 29 |olours_Menu%,13)|
00002280 20 3a 20 f2 55 6e 54 69 63 6b 0d 07 ee 4e 20 20 | : .UnTick...N |
00002290 20 20 20 20 20 20 20 20 20 20 20 c9 20 31 34 20 | . 14 |
000022a0 3a 20 73 74 63 6f 6c 25 3d 31 33 20 3a 20 f2 57 |: stcol%=13 : .W|
000022b0 69 6d 70 5f 4d 65 6e 75 54 69 63 6b 28 43 6f 6c |imp_MenuTick(Col|
000022c0 6f 75 72 73 5f 4d 65 6e 75 25 2c 31 34 29 20 3a |ours_Menu%,14) :|
000022d0 20 f2 55 6e 54 69 63 6b 0d 07 f8 4e 20 20 20 20 | .UnTick...N |
000022e0 20 20 20 20 20 20 20 20 20 c9 20 31 35 20 3a 20 | . 15 : |
000022f0 73 74 63 6f 6c 25 3d 31 34 20 3a 20 f2 57 69 6d |stcol%=14 : .Wim|
00002300 70 5f 4d 65 6e 75 54 69 63 6b 28 43 6f 6c 6f 75 |p_MenuTick(Colou|
00002310 72 73 5f 4d 65 6e 75 25 2c 31 35 29 20 3a 20 f2 |rs_Menu%,15) : .|
00002320 55 6e 54 69 63 6b 0d 08 02 4e 20 20 20 20 20 20 |UnTick...N |
00002330 20 20 20 20 20 20 20 c9 20 31 36 20 3a 20 73 74 | . 16 : st|
00002340 63 6f 6c 25 3d 31 35 20 3a 20 f2 57 69 6d 70 5f |col%=15 : .Wimp_|
00002350 4d 65 6e 75 54 69 63 6b 28 43 6f 6c 6f 75 72 73 |MenuTick(Colours|
00002360 5f 4d 65 6e 75 25 2c 31 36 29 20 3a 20 f2 55 6e |_Menu%,16) : .Un|
00002370 54 69 63 6b 0d 08 0c 11 20 20 20 20 20 20 20 20 |Tick.... |
00002380 20 20 20 20 cb 0d 08 16 3e 20 20 20 20 20 20 20 | ....> |
00002390 20 20 20 20 c9 20 32 20 3a 20 f2 57 69 6d 70 5f | . 2 : .Wimp_|
000023a0 57 69 6e 64 6f 77 42 72 69 6e 67 54 6f 54 6f 70 |WindowBringToTop|
000023b0 28 73 61 76 65 5f 64 72 61 77 5f 57 69 6e 64 6f |(save_draw_Windo|
000023c0 77 25 29 0d 08 20 3f 20 20 20 20 20 20 20 20 20 |w%).. ? |
000023d0 20 20 c9 20 33 20 3a 20 f2 57 69 6d 70 5f 57 69 | . 3 : .Wimp_Wi|
000023e0 6e 64 6f 77 42 72 69 6e 67 54 6f 54 6f 70 28 73 |ndowBringToTop(s|
000023f0 61 76 65 5f 73 65 74 75 70 5f 57 69 6e 64 6f 77 |ave_setup_Window|
00002400 25 29 0d 08 2a 62 20 20 20 20 20 20 20 20 20 20 |%)..*b |
00002410 20 c9 20 34 20 3a 20 f2 53 61 76 65 28 22 3c 53 | . 4 : .Save("<S|
00002420 74 61 76 65 73 50 72 6e 24 44 69 72 3e 2e 44 65 |tavesPrn$Dir>.De|
00002430 66 61 75 6c 74 73 22 29 20 3a 20 f2 4d 65 73 73 |faults") : .Mess|
00002440 61 67 65 28 22 4e 65 77 20 64 65 66 61 75 6c 74 |age("New default|
00002450 73 20 68 61 76 65 20 62 65 65 6e 20 73 61 76 65 |s have been save|
00002460 64 2e 22 29 0d 08 34 0f 20 20 20 20 20 20 20 20 |d.")..4. |
00002470 20 20 cb 0d 08 3e 3e 20 20 20 20 20 20 20 20 20 | ...>> |
00002480 c9 20 33 20 3a 20 f2 57 69 6d 70 5f 57 69 6e 64 |. 3 : .Wimp_Wind|
00002490 6f 77 42 72 69 6e 67 54 6f 54 6f 70 28 70 72 69 |owBringToTop(pri|
000024a0 6e 74 65 72 49 6e 66 6f 5f 57 69 6e 64 6f 77 25 |nterInfo_Window%|
000024b0 29 0d 08 48 23 20 20 20 20 20 20 20 20 20 c9 20 |)..H# . |
000024c0 34 20 3a 20 f2 52 65 73 74 6f 72 65 44 65 66 61 |4 : .RestoreDefa|
000024d0 75 6c 74 73 0d 08 52 1d 20 20 20 20 20 20 20 20 |ults..R. |
000024e0 20 c9 20 35 20 3a 66 69 6e 69 73 68 65 64 25 3d | . 5 :finished%=|
000024f0 b9 0d 08 5c 0d 20 20 20 20 20 20 20 20 cb 0d 08 |...\. ...|
00002500 66 0c 20 20 20 20 20 20 20 e1 0d 08 70 0c 20 20 |f. ...p. |
00002510 20 20 20 20 20 3a 0d 08 7a 29 20 20 20 20 20 20 | :..z) |
00002520 20 dd 20 f2 45 76 65 6e 74 5f 4c 6f 61 64 46 69 | . .Event_LoadFi|
00002530 6c 65 28 66 69 6c 65 24 2c 74 79 70 65 24 29 0d |le(file$,type$).|
00002540 08 84 28 20 20 20 20 20 20 20 20 e7 20 74 79 70 |..( . typ|
00002550 65 24 3d 22 37 46 42 22 20 8c 20 f2 4c 6f 61 64 |e$="7FB" . .Load|
00002560 28 66 69 6c 65 24 29 0d 08 8e 6f 20 20 20 20 20 |(file$)...o |
00002570 20 20 20 e7 20 74 79 70 65 24 3d 22 44 72 61 77 | . type$="Draw|
00002580 22 20 8c 20 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 |" . .Wimp_Window|
00002590 41 6c 65 72 74 28 22 53 74 61 76 65 73 50 72 6e |Alert("StavesPrn|
000025a0 22 2c 22 53 74 61 76 65 73 50 72 6e 20 63 61 6e |","StavesPrn can|
000025b0 20 6f 6e 6c 79 20 73 61 76 65 20 64 72 61 77 66 | only save drawf|
000025c0 69 6c 65 73 2c 20 6e 6f 74 20 6c 6f 61 64 20 74 |iles, not load t|
000025d0 68 65 6d 2e 22 29 0d 08 98 76 20 20 20 20 20 20 |hem.")...v |
000025e0 20 20 e7 20 74 79 70 65 24 3c 3e 22 37 46 42 22 | . type$<>"7FB"|
000025f0 20 80 20 74 79 70 65 24 3c 3e 22 44 72 61 77 22 | . type$<>"Draw"|
00002600 20 8c 20 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 41 | . .Wimp_WindowA|
00002610 6c 65 72 74 28 22 53 74 61 76 65 73 50 72 6e 22 |lert("StavesPrn"|
00002620 2c 22 53 74 61 76 65 73 50 72 6e 20 63 61 6e 6e |,"StavesPrn cann|
00002630 6f 74 20 6c 6f 61 64 20 74 68 69 73 20 74 79 70 |ot load this typ|
00002640 65 20 6f 66 20 66 69 6c 65 2e 22 29 0d 08 a2 0c |e of file.")....|
00002650 20 20 20 20 20 20 20 e1 0d 08 ac 0c 20 20 20 20 | ..... |
00002660 20 20 20 3a 0d 08 b6 2b 20 20 20 20 20 20 20 dd | :...+ .|
00002670 20 f2 45 76 65 6e 74 5f 53 61 76 65 46 69 6c 65 | .Event_SaveFile|
00002680 28 66 69 6c 65 24 2c 77 69 6e 64 6f 77 25 29 0d |(file$,window%).|
00002690 08 c0 19 20 20 20 20 20 20 20 20 20 c8 8e 20 77 |... .. w|
000026a0 69 6e 64 6f 77 25 20 ca 0d 08 ca 44 20 20 20 20 |indow% ....D |
000026b0 20 20 20 20 20 20 20 c9 20 73 61 76 65 5f 73 65 | . save_se|
000026c0 74 75 70 5f 57 69 6e 64 6f 77 25 20 3a 20 f2 53 |tup_Window% : .S|
000026d0 61 76 65 28 66 69 6c 65 24 29 20 3a 20 f2 57 69 |ave(file$) : .Wi|
000026e0 6d 70 5f 4d 65 6e 75 43 6c 6f 73 65 0d 08 d4 48 |mp_MenuClose...H|
000026f0 20 20 20 20 20 20 20 20 20 20 20 c9 20 73 61 76 | . sav|
00002700 65 5f 64 72 61 77 5f 57 69 6e 64 6f 77 25 20 20 |e_draw_Window% |
00002710 3a 20 f2 53 61 76 65 44 72 61 77 28 66 69 6c 65 |: .SaveDraw(file|
00002720 24 29 20 3a 20 f2 57 69 6d 70 5f 4d 65 6e 75 43 |$) : .Wimp_MenuC|
00002730 6c 6f 73 65 0d 08 de 0e 20 20 20 20 20 20 20 20 |lose.... |
00002740 20 cb 0d 08 e8 0c 20 20 20 20 20 20 20 e1 0d 08 | ..... ...|
00002750 f2 0c 20 20 20 20 20 20 20 3a 0d 08 fc 15 20 20 |.. :.... |
00002760 20 20 20 20 20 dd 20 f2 44 65 66 61 75 6c 74 0d | . .Default.|
00002770 09 06 2d 20 20 20 20 20 20 20 20 f2 4c 6f 61 64 |..- .Load|
00002780 28 22 3c 53 74 61 76 65 73 50 72 6e 24 44 69 72 |("<StavesPrn$Dir|
00002790 3e 2e 44 65 66 61 75 6c 74 73 22 29 0d 09 10 30 |>.Defaults")...0|
000027a0 20 20 20 20 20 20 20 20 f2 4d 65 73 73 61 67 65 | .Message|
000027b0 28 22 53 65 74 74 69 6e 67 73 20 73 65 74 20 74 |("Settings set t|
000027c0 6f 20 64 65 66 61 75 6c 74 2e 22 29 0d 09 1a 0c |o default.")....|
000027d0 20 20 20 20 20 20 20 e1 0d 09 24 0c 20 20 20 20 | ...$. |
000027e0 20 20 20 3a 0d 09 2e 20 20 20 20 20 20 20 20 dd | :... .|
000027f0 f2 50 75 74 54 65 78 74 49 6e 53 65 74 75 70 49 |.PutTextInSetupI|
00002800 63 6f 6e 73 0d 09 38 40 20 20 20 20 20 20 20 20 |cons..8@ |
00002810 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 |.Wimp_IconPutTex|
00002820 74 28 50 72 6e 53 65 74 75 70 5f 57 69 6e 64 6f |t(PrnSetup_Windo|
00002830 77 25 2c 33 37 2c c3 28 73 74 61 76 65 73 6e 75 |w%,37,.(stavesnu|
00002840 6d 25 29 29 0d 09 42 40 20 20 20 20 20 20 20 20 |m%))..B@ |
00002850 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 |.Wimp_IconPutTex|
00002860 74 28 50 72 6e 53 65 74 75 70 5f 57 69 6e 64 6f |t(PrnSetup_Windo|
00002870 77 25 2c 33 35 2c c3 28 77 69 64 74 68 25 29 2b |w%,35,.(width%)+|
00002880 22 25 22 29 0d 09 4c 3a 20 20 20 20 20 20 20 20 |"%")..L: |
00002890 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 |.Wimp_IconPutTex|
000028a0 74 28 50 72 6e 53 65 74 75 70 5f 57 69 6e 64 6f |t(PrnSetup_Windo|
000028b0 77 25 2c 33 33 2c c3 28 67 61 70 25 29 29 0d 09 |w%,33,.(gap%))..|
000028c0 56 43 20 20 20 20 20 20 20 20 f2 57 69 6d 70 5f |VC .Wimp_|
000028d0 49 63 6f 6e 50 75 74 54 65 78 74 28 70 72 69 6e |IconPutText(prin|
000028e0 74 65 72 49 6e 66 6f 5f 57 69 6e 64 6f 77 25 2c |terInfo_Window%,|
000028f0 31 34 2c c3 28 73 74 61 76 65 73 6e 75 6d 25 29 |14,.(stavesnum%)|
00002900 29 0d 09 60 43 20 20 20 20 20 20 20 20 f2 57 69 |)..`C .Wi|
00002910 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 70 |mp_IconPutText(p|
00002920 72 69 6e 74 65 72 49 6e 66 6f 5f 57 69 6e 64 6f |rinterInfo_Windo|
00002930 77 25 2c 31 32 2c c3 28 77 69 64 74 68 25 29 2b |w%,12,.(width%)+|
00002940 22 25 22 29 0d 09 6a 3d 20 20 20 20 20 20 20 20 |"%")..j= |
00002950 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 |.Wimp_IconPutTex|
00002960 74 28 70 72 69 6e 74 65 72 49 6e 66 6f 5f 57 69 |t(printerInfo_Wi|
00002970 6e 64 6f 77 25 2c 31 30 2c c3 28 67 61 70 25 29 |ndow%,10,.(gap%)|
00002980 29 0d 09 74 0c 20 20 20 20 20 20 20 e1 0d 09 7e |)..t. ...~|
00002990 0c 20 20 20 20 20 20 20 3a 0d 09 88 19 20 20 20 |. :.... |
000029a0 20 20 20 20 dd 20 f2 53 61 76 65 28 66 69 6c 65 | . .Save(file|
000029b0 24 29 0d 09 92 15 20 20 20 20 20 20 20 20 79 3d |$).... y=|
000029c0 ae 20 66 69 6c 65 24 0d 09 9c 14 20 20 20 20 20 |. file$.... |
000029d0 20 20 20 f1 23 79 2c 67 61 70 25 0d 09 a6 16 20 | .#y,gap%.... |
000029e0 20 20 20 20 20 20 20 f1 23 79 2c 77 69 64 74 68 | .#y,width|
000029f0 25 0d 09 b0 1a 20 20 20 20 20 20 20 20 f1 23 79 |%.... .#y|
00002a00 2c 73 74 61 76 65 73 6e 75 6d 25 0d 09 ba 0f 20 |,stavesnum%.... |
00002a10 20 20 20 20 20 20 20 d9 23 79 0d 09 c4 24 20 20 | .#y...$ |
00002a20 20 20 20 20 20 20 ff 22 53 45 54 54 59 50 45 20 | ."SETTYPE |
00002a30 22 2b 66 69 6c 65 24 2b 22 20 37 46 42 22 0d 09 |"+file$+" 7FB"..|
00002a40 ce 31 20 20 20 20 20 20 20 20 f2 57 69 6d 70 5f |.1 .Wimp_|
00002a50 57 69 6e 64 6f 77 43 6c 6f 73 65 28 73 61 76 65 |WindowClose(save|
00002a60 5f 73 65 74 75 70 5f 57 69 6e 64 6f 77 25 29 0d |_setup_Window%).|
00002a70 09 d8 2f 20 20 20 20 20 20 20 20 f2 4d 65 73 73 |../ .Mess|
00002a80 61 67 65 28 22 53 65 74 74 69 6e 67 73 20 73 61 |age("Settings sa|
00002a90 76 65 64 20 74 6f 20 66 69 6c 65 2e 22 29 0d 09 |ved to file.")..|
00002aa0 e2 0c 20 20 20 20 20 20 20 e1 0d 09 ec 0c 20 20 |.. ..... |
00002ab0 20 20 20 20 20 3a 0d 09 f6 19 20 20 20 20 20 20 | :.... |
00002ac0 20 dd 20 f2 4c 6f 61 64 28 66 69 6c 65 24 29 0d | . .Load(file$).|
00002ad0 0a 00 15 20 20 20 20 20 20 20 20 79 3d 8e 20 66 |... y=. f|
00002ae0 69 6c 65 24 0d 0a 0a 14 20 20 20 20 20 20 20 20 |ile$.... |
00002af0 e8 23 79 2c 67 61 70 25 0d 0a 14 16 20 20 20 20 |.#y,gap%.... |
00002b00 20 20 20 20 e8 23 79 2c 77 69 64 74 68 25 0d 0a | .#y,width%..|
00002b10 1e 1a 20 20 20 20 20 20 20 20 e8 23 79 2c 73 74 |.. .#y,st|
00002b20 61 76 65 73 6e 75 6d 25 0d 0a 28 0f 20 20 20 20 |avesnum%..(. |
00002b30 20 20 20 20 d9 23 79 0d 0a 32 20 20 20 20 20 20 | .#y..2 |
00002b40 20 20 20 f2 50 75 74 54 65 78 74 49 6e 53 65 74 | .PutTextInSet|
00002b50 75 70 49 63 6f 6e 73 0d 0a 3c 0c 20 20 20 20 20 |upIcons..<. |
00002b60 20 20 e1 0d 0a 46 0c 20 20 20 20 20 20 20 3a 0d | ...F. :.|
00002b70 0a 50 12 20 20 20 20 20 20 20 dd f2 50 72 69 6e |.P. ..Prin|
00002b80 74 0d 0a 5a 13 20 20 20 20 20 20 20 20 2a 46 58 |t..Z. *FX|
00002b90 20 36 2c 30 0d 0a 64 23 20 20 20 20 20 20 20 20 | 6,0..d# |
00002ba0 ef 20 32 3a 6c 65 6e 67 74 68 25 3d 77 69 64 74 |. 2:length%=widt|
00002bb0 68 25 2a 34 2e 39 33 0d 0a 6e 1e 20 20 20 20 20 |h%*4.93..n. |
00002bc0 20 20 20 e3 20 4e 3d 31 20 b8 20 73 74 61 76 65 | . N=1 . stave|
00002bd0 73 6e 75 6d 25 0d 0a 78 1e 20 20 20 20 20 20 20 |snum%..x. |
00002be0 20 e3 20 47 3d 31 20 b8 20 67 61 70 25 3a f1 3a | . G=1 . gap%:.:|
00002bf0 ed 20 47 0d 0a 82 21 20 20 20 20 20 20 20 20 e3 |. G...! .|
00002c00 20 50 3d 31 20 b8 20 32 3a ef 20 31 2c 32 37 2c | P=1 . 2:. 1,27,|
00002c10 31 2c 37 36 0d 0a 8c 21 20 20 20 20 20 20 20 20 |1,76...! |
00002c20 ef 20 31 2c 28 32 2a 6c 65 6e 67 74 68 25 29 20 |. 1,(2*length%) |
00002c30 83 20 32 35 36 0d 0a 96 21 20 20 20 20 20 20 20 |. 256...! |
00002c40 20 ef 20 31 2c 28 32 2a 6c 65 6e 67 74 68 25 29 | . 1,(2*length%)|
00002c50 20 81 20 32 35 36 0d 0a a0 29 20 20 20 20 20 20 | . 256...) |
00002c60 20 20 e3 20 49 3d 31 20 b8 20 28 32 2a 6c 65 6e | . I=1 . (2*len|
00002c70 67 74 68 25 29 3a ef 20 31 2c 31 33 32 3a ed 0d |gth%):. 1,132:..|
00002c80 0a aa 20 20 20 20 20 20 20 20 20 ef 20 31 2c 31 |.. . 1,1|
00002c90 30 3a ed 3a ef 20 31 2c 32 37 2c 31 2c 37 36 0d |0:.:. 1,27,1,76.|
00002ca0 0a b4 21 20 20 20 20 20 20 20 20 ef 20 31 2c 28 |..! . 1,(|
00002cb0 32 2a 6c 65 6e 67 74 68 25 29 20 83 20 32 35 36 |2*length%) . 256|
00002cc0 0d 0a be 21 20 20 20 20 20 20 20 20 ef 20 31 2c |...! . 1,|
00002cd0 28 32 2a 6c 65 6e 67 74 68 25 29 20 81 20 32 35 |(2*length%) . 25|
00002ce0 36 0d 0a c8 29 20 20 20 20 20 20 20 20 e3 20 49 |6...) . I|
00002cf0 3d 31 20 b8 20 28 32 2a 6c 65 6e 67 74 68 25 29 |=1 . (2*length%)|
00002d00 3a ef 20 31 2c 31 32 38 3a ed 0d 0a d2 2e 20 20 |:. 1,128:..... |
00002d10 20 20 20 20 20 20 ef 20 31 2c 31 30 3a f2 55 70 | . 1,10:.Up|
00002d20 64 61 74 65 28 4e 29 3a ed 20 4e 3a ef 20 33 3a |date(N):. N:. 3:|
00002d30 2a 46 58 20 36 2c 31 30 0d 0a dc 3c 20 20 20 20 |*FX 6,10...< |
00002d40 20 20 20 20 c8 99 22 48 6f 75 72 67 6c 61 73 73 | .."Hourglass|
00002d50 5f 4f 66 66 22 3a f2 4d 65 73 73 61 67 65 28 22 |_Off":.Message("|
00002d60 50 72 69 6e 74 69 6e 67 20 66 69 6e 69 73 68 65 |Printing finishe|
00002d70 64 2e 22 29 0d 0a e6 0c 20 20 20 20 20 20 20 e1 |d.").... .|
00002d80 0d 0a f0 0c 20 20 20 20 20 20 20 3a 0d 0a fa 22 |.... :..."|
00002d90 20 20 20 20 20 20 20 dd f2 43 68 61 6e 67 65 53 | ..ChangeS|
00002da0 74 61 76 65 73 28 55 70 44 6f 77 6e 25 29 0d 0b |taves(UpDown%)..|
00002db0 04 2a 20 20 20 20 20 20 20 20 e7 20 55 70 44 6f |.* . UpDo|
00002dc0 77 6e 25 3d a3 20 80 20 73 74 61 76 65 73 6e 75 |wn%=. . stavesnu|
00002dd0 6d 25 3d 31 20 8c 20 e1 0d 0b 0e 2d 20 20 20 20 |m%=1 . ....- |
00002de0 20 20 20 20 e7 20 55 70 44 6f 77 6e 25 3d b9 20 | . UpDown%=. |
00002df0 80 20 73 74 61 76 65 73 6e 75 6d 25 3d 31 30 30 |. stavesnum%=100|
00002e00 30 20 8c 20 e1 0d 0b 18 31 20 20 20 20 20 20 20 |0 . ....1 |
00002e10 20 e7 20 55 70 44 6f 77 6e 25 3d b9 20 8c 20 73 | . UpDown%=. . s|
00002e20 74 61 76 65 73 6e 75 6d 25 3d 73 74 61 76 65 73 |tavesnum%=staves|
00002e30 6e 75 6d 25 2b 31 0d 0b 22 31 20 20 20 20 20 20 |num%+1.."1 |
00002e40 20 20 e7 20 55 70 44 6f 77 6e 25 3d a3 20 8c 20 | . UpDown%=. . |
00002e50 73 74 61 76 65 73 6e 75 6d 25 3d 73 74 61 76 65 |stavesnum%=stave|
00002e60 73 6e 75 6d 25 2d 31 0d 0b 2c 40 20 20 20 20 20 |snum%-1..,@ |
00002e70 20 20 20 f2 50 75 74 54 65 78 74 49 6e 53 65 74 | .PutTextInSet|
00002e80 75 70 49 63 6f 6e 73 20 3a 20 f2 4d 65 73 73 61 |upIcons : .Messa|
00002e90 67 65 28 22 53 65 74 74 69 6e 67 73 20 63 68 61 |ge("Settings cha|
00002ea0 6e 67 65 64 2e 22 29 0d 0b 36 0c 20 20 20 20 20 |nged.")..6. |
00002eb0 20 20 e1 0d 0b 40 0c 20 20 20 20 20 20 20 3a 0d | ...@. :.|
00002ec0 0b 4a 1f 20 20 20 20 20 20 20 dd f2 43 68 61 6e |.J. ..Chan|
00002ed0 67 65 47 61 70 28 55 70 44 6f 77 6e 25 29 0d 0b |geGap(UpDown%)..|
00002ee0 54 24 20 20 20 20 20 20 20 20 e7 20 55 70 44 6f |T$ . UpDo|
00002ef0 77 6e 25 3d a3 20 80 20 67 61 70 25 3d 31 20 8c |wn%=. . gap%=1 .|
00002f00 20 e1 0d 0b 5e 26 20 20 20 20 20 20 20 20 e7 20 | ...^& . |
00002f10 55 70 44 6f 77 6e 25 3d b9 20 80 20 67 61 70 25 |UpDown%=. . gap%|
00002f20 3d 31 30 30 20 8c 20 e1 0d 0b 68 25 20 20 20 20 |=100 . ...h% |
00002f30 20 20 20 20 e7 20 55 70 44 6f 77 6e 25 3d b9 20 | . UpDown%=. |
00002f40 8c 20 67 61 70 25 3d 67 61 70 25 2b 31 0d 0b 72 |. gap%=gap%+1..r|
00002f50 25 20 20 20 20 20 20 20 20 e7 20 55 70 44 6f 77 |% . UpDow|
00002f60 6e 25 3d a3 20 8c 20 67 61 70 25 3d 67 61 70 25 |n%=. . gap%=gap%|
00002f70 2d 31 0d 0b 7c 40 20 20 20 20 20 20 20 20 f2 50 |-1..|@ .P|
00002f80 75 74 54 65 78 74 49 6e 53 65 74 75 70 49 63 6f |utTextInSetupIco|
00002f90 6e 73 20 3a 20 f2 4d 65 73 73 61 67 65 28 22 53 |ns : .Message("S|
00002fa0 65 74 74 69 6e 67 73 20 63 68 61 6e 67 65 64 2e |ettings changed.|
00002fb0 22 29 0d 0b 86 0c 20 20 20 20 20 20 20 e1 0d 0b |").... ...|
00002fc0 90 0b 20 20 20 20 20 20 3a 0d 0b 9a 21 20 20 20 |.. :...! |
00002fd0 20 20 20 20 dd f2 43 68 61 6e 67 65 57 69 64 74 | ..ChangeWidt|
00002fe0 68 28 55 70 44 6f 77 6e 25 29 0d 0b a4 26 20 20 |h(UpDown%)...& |
00002ff0 20 20 20 20 20 20 e7 20 55 70 44 6f 77 6e 25 3d | . UpDown%=|
00003000 a3 20 80 20 77 69 64 74 68 25 3d 31 20 8c 20 e1 |. . width%=1 . .|
00003010 0d 0b ae 28 20 20 20 20 20 20 20 20 e7 20 55 70 |...( . Up|
00003020 44 6f 77 6e 25 3d b9 20 80 20 77 69 64 74 68 25 |Down%=. . width%|
00003030 3d 35 30 30 20 8c 20 e1 0d 0b b8 29 20 20 20 20 |=500 . ....) |
00003040 20 20 20 20 e7 20 55 70 44 6f 77 6e 25 3d b9 20 | . UpDown%=. |
00003050 8c 20 77 69 64 74 68 25 3d 77 69 64 74 68 25 2b |. width%=width%+|
00003060 31 0d 0b c2 29 20 20 20 20 20 20 20 20 e7 20 55 |1...) . U|
00003070 70 44 6f 77 6e 25 3d a3 20 8c 20 77 69 64 74 68 |pDown%=. . width|
00003080 25 3d 77 69 64 74 68 25 2d 31 0d 0b cc 40 20 20 |%=width%-1...@ |
00003090 20 20 20 20 20 20 f2 50 75 74 54 65 78 74 49 6e | .PutTextIn|
000030a0 53 65 74 75 70 49 63 6f 6e 73 20 3a 20 f2 4d 65 |SetupIcons : .Me|
000030b0 73 73 61 67 65 28 22 53 65 74 74 69 6e 67 73 20 |ssage("Settings |
000030c0 63 68 61 6e 67 65 64 2e 22 29 0d 0b d6 0c 20 20 |changed.").... |
000030d0 20 20 20 20 20 e1 0d 0b e0 0c 20 20 20 20 20 20 | ..... |
000030e0 20 3a 0d 0b ea 1a 20 20 20 20 20 20 20 dd 20 f2 | :.... . .|
000030f0 55 70 64 61 74 65 28 6e 75 6d 25 29 0d 0b f4 0e |Update(num%)....|
00003100 20 20 20 20 20 20 20 20 ef 33 0d 0b fe 41 20 20 | .3...A |
00003110 20 20 20 20 20 20 e7 20 73 74 61 76 65 73 6e 75 | . stavesnu|
00003120 6d 25 3c 3e 6e 75 6d 25 20 8c 20 70 65 72 63 65 |m%<>num% . perce|
00003130 6e 74 25 3d 28 28 31 30 30 2f 73 74 61 76 65 73 |nt%=((100/staves|
00003140 6e 75 6d 25 29 2a 6e 75 6d 25 29 0d 0c 08 2c 20 |num%)*num%)..., |
00003150 20 20 20 20 20 20 20 e7 20 73 74 61 76 65 73 6e | . stavesn|
00003160 75 6d 25 3d 6e 75 6d 25 20 8c 20 70 65 72 63 65 |um%=num% . perce|
00003170 6e 74 25 3d 31 30 30 0d 0c 12 3f 20 20 20 20 20 |nt%=100...? |
00003180 20 20 20 f2 4d 65 73 73 61 67 65 28 22 50 72 69 | .Message("Pri|
00003190 6e 74 69 6e 67 2e 2e 2e 2e 20 22 2b c3 28 70 65 |nting.... "+.(pe|
000031a0 72 63 65 6e 74 25 29 2b 22 25 20 63 6f 6d 70 6c |rcent%)+"% compl|
000031b0 65 74 65 64 22 29 0d 0c 1c 0e 20 20 20 20 20 20 |eted").... |
000031c0 20 20 ef 32 0d 0c 26 0c 20 20 20 20 20 20 20 e1 | .2..&. .|
000031d0 0d 0c 30 0c 20 20 20 20 20 20 20 3a 0d 0c 3a 1f |..0. :..:.|
000031e0 20 20 20 20 20 20 20 dd 20 f2 4d 65 73 73 61 67 | . .Messag|
000031f0 65 28 6d 65 73 73 61 67 65 24 29 0d 0c 44 3b 20 |e(message$)..D; |
00003200 20 20 20 20 20 20 20 f2 57 69 6d 70 5f 49 63 6f | .Wimp_Ico|
00003210 6e 50 75 74 54 65 78 74 28 50 72 6e 53 65 74 75 |nPutText(PrnSetu|
00003220 70 5f 57 69 6e 64 6f 77 25 2c 32 33 2c 6d 65 73 |p_Window%,23,mes|
00003230 73 61 67 65 24 29 0d 0c 4e 0c 20 20 20 20 20 20 |sage$)..N. |
00003240 20 e1 0d 0c 58 0c 20 20 20 20 20 20 20 3a 0d 0c | ...X. :..|
00003250 62 1d 20 20 20 20 20 20 20 dd 20 f2 52 65 73 74 |b. . .Rest|
00003260 6f 72 65 44 65 66 61 75 6c 74 73 0d 0c 6c 12 20 |oreDefaults..l. |
00003270 20 20 20 20 20 20 20 67 61 70 25 3d 32 0d 0c 76 | gap%=2..v|
00003280 19 20 20 20 20 20 20 20 20 73 74 61 76 65 73 6e |. stavesn|
00003290 75 6d 25 3d 31 33 0d 0c 80 16 20 20 20 20 20 20 |um%=13.... |
000032a0 20 20 77 69 64 74 68 25 3d 31 30 30 0d 0c 8a 2d | width%=100...-|
000032b0 20 20 20 20 20 20 20 20 f2 53 61 76 65 28 22 3c | .Save("<|
000032c0 53 74 61 76 65 73 50 72 6e 24 44 69 72 3e 2e 44 |StavesPrn$Dir>.D|
000032d0 65 66 61 75 6c 74 73 22 29 0d 0c 94 4c 20 20 20 |efaults")...L |
000032e0 20 20 20 20 20 f2 50 75 74 54 65 78 74 49 6e 53 | .PutTextInS|
000032f0 65 74 75 70 49 63 6f 6e 73 20 3a 20 f2 4d 65 73 |etupIcons : .Mes|
00003300 73 61 67 65 28 22 53 65 74 74 69 6e 67 73 20 72 |sage("Settings r|
00003310 65 73 74 6f 72 65 64 20 74 6f 20 41 34 20 73 69 |estored to A4 si|
00003320 7a 65 2e 22 29 0d 0c 9e 0c 20 20 20 20 20 20 20 |ze.").... |
00003330 e1 0d 0c a8 0c 20 20 20 20 20 20 20 3a 0d 0c b2 |..... :...|
00003340 1d 20 20 20 20 20 20 20 dd 20 f2 53 61 76 65 44 |. . .SaveD|
00003350 72 61 77 28 66 69 6c 65 24 29 0d 0c bc 1b 20 20 |raw(file$).... |
00003360 20 20 20 20 20 20 f2 53 65 74 55 70 5f 44 72 61 | .SetUp_Dra|
00003370 77 46 69 6c 65 0d 0c c6 1b 20 20 20 20 20 20 20 |wFile.... |
00003380 20 f2 47 65 6e 65 72 61 74 65 53 74 61 76 65 73 | .GenerateStaves|
00003390 0d 0c d0 20 20 20 20 20 20 20 20 20 f2 73 61 76 |... .sav|
000033a0 65 64 72 61 77 66 69 6c 65 28 66 69 6c 65 24 29 |edrawfile(file$)|
000033b0 0d 0c da 30 20 20 20 20 20 20 20 20 f2 57 69 6d |...0 .Wim|
000033c0 70 5f 57 69 6e 64 6f 77 43 6c 6f 73 65 28 73 61 |p_WindowClose(sa|
000033d0 76 65 5f 64 72 61 77 5f 57 69 6e 64 6f 77 25 29 |ve_draw_Window%)|
000033e0 0d 0c e4 31 20 20 20 20 20 20 20 20 f2 4d 65 73 |...1 .Mes|
000033f0 73 61 67 65 28 22 53 74 61 76 65 73 20 73 61 76 |sage("Staves sav|
00003400 65 64 20 69 6e 20 44 72 61 77 66 69 6c 65 2e 22 |ed in Drawfile."|
00003410 29 0d 0c ee 0c 20 20 20 20 20 20 20 e1 0d 0c f8 |).... ....|
00003420 0c 20 20 20 20 20 20 20 3a 0d 0d 02 1b 20 20 20 |. :.... |
00003430 20 20 20 20 dd f2 53 65 74 55 70 5f 44 72 61 77 | ..SetUp_Draw|
00003440 46 69 6c 65 0d 0d 0c 19 20 20 20 20 20 20 20 20 |File.... |
00003450 6e 74 25 3d 64 72 61 77 66 69 6c 65 25 0d 0d 16 |nt%=drawfile%...|
00003460 1e 20 20 20 20 20 20 20 20 24 6e 74 25 3d 22 44 |. $nt%="D|
00003470 72 61 77 22 3a 6e 74 25 2b 3d 34 0d 0d 20 1b 20 |raw":nt%+=4.. . |
00003480 20 20 20 20 20 20 20 21 6e 74 25 3d 32 30 31 3a | !nt%=201:|
00003490 6e 74 25 2b 3d 34 0d 0d 2a 19 20 20 20 20 20 20 |nt%+=4..*. |
000034a0 20 20 21 6e 74 25 3d 30 3a 6e 74 25 2b 3d 34 0d | !nt%=0:nt%+=4.|
000034b0 0d 34 32 20 20 20 20 20 20 20 20 24 6e 74 25 3d |.42 $nt%=|
000034c0 c0 22 53 74 61 76 65 73 50 72 6e 22 2b c4 31 32 |."StavesPrn"+.12|
000034d0 2c 22 20 22 29 2c 31 32 29 3a 6e 74 25 2b 3d 31 |," "),12):nt%+=1|
000034e0 32 0d 0d 3e 2b 20 20 20 20 20 20 20 20 6e 74 25 |2..>+ nt%|
000034f0 21 30 3d a4 78 64 72 61 77 28 30 29 3a 6e 74 25 |!0=.xdraw(0):nt%|
00003500 21 34 3d a4 79 64 72 61 77 28 30 29 0d 0d 48 3a |!4=.ydraw(0)..H:|
00003510 20 20 20 20 20 20 20 20 6e 74 25 21 38 3d a4 78 | nt%!8=.x|
00003520 64 72 61 77 28 32 39 34 30 29 3a 6e 74 25 21 31 |draw(2940):nt%!1|
00003530 32 3d a4 79 64 72 61 77 28 34 31 34 34 29 3a 6e |2=.ydraw(4144):n|
00003540 74 25 2b 3d 31 36 0d 0d 52 1b 20 20 20 20 20 20 |t%+=16..R. |
00003550 20 20 61 68 25 3d a3 3a 64 72 61 77 66 6c 25 3d | ah%=.:drawfl%=|
00003560 b9 0d 0d 5c 28 20 20 20 20 20 20 20 20 c8 99 20 |...\( .. |
00003570 22 57 69 6d 70 5f 52 65 61 64 50 61 6c 65 74 74 |"Wimp_ReadPalett|
00003580 65 22 2c 2c 63 6f 6c 73 25 0d 0d 66 0c 20 20 20 |e",,cols%..f. |
00003590 20 20 20 20 e1 0d 0d 70 0c 20 20 20 20 20 20 20 | ...p. |
000035a0 3a 0d 0d 7a 1f 20 20 20 20 20 20 20 dd a4 78 64 |:..z. ..xd|
000035b0 72 61 77 28 78 29 3a 3d a8 28 78 2a 32 35 36 29 |raw(x):=.(x*256)|
000035c0 0d 0d 84 1f 20 20 20 20 20 20 20 dd a4 79 64 72 |.... ..ydr|
000035d0 61 77 28 79 29 3a 3d a8 28 79 2a 32 35 36 29 0d |aw(y):=.(y*256).|
000035e0 0d 8e 21 20 20 20 20 20 20 20 dd a4 63 64 72 61 |..! ..cdra|
000035f0 77 28 63 25 29 3a 63 25 3d 63 25 20 83 20 31 36 |w(c%):c%=c% . 16|
00003600 0d 0d 98 36 20 20 20 20 20 20 20 20 e7 20 63 25 |...6 . c%|
00003610 3e 3d 30 20 8c 20 3d 21 28 63 6f 6c 73 25 2b 63 |>=0 . =!(cols%+c|
00003620 25 2a 34 29 20 80 20 26 46 46 46 46 46 46 30 30 |%*4) . &FFFFFF00|
00003630 20 8b 20 3d 2d 31 0d 0d a2 0c 20 20 20 20 20 20 | . =-1.... |
00003640 20 3a 0d 0d ac 27 20 20 20 20 20 20 20 dd f2 6f | :...' ..o|
00003650 70 65 6e 70 61 74 68 28 78 31 2c 79 31 2c 78 32 |penpath(x1,y1,x2|
00003660 2c 79 32 2c 63 6f 6c 25 29 0d 0d b6 20 20 20 20 |,y2,col%)... |
00003670 20 20 20 20 20 e7 20 70 61 74 68 25 3d b9 20 f2 | . path%=. .|
00003680 63 6c 6f 73 65 70 61 74 68 0d 0d c0 47 20 20 20 |closepath...G |
00003690 20 20 20 20 20 78 31 25 3d a4 78 64 72 61 77 28 | x1%=.xdraw(|
000036a0 78 31 29 3a 79 31 25 3d a4 79 64 72 61 77 28 79 |x1):y1%=.ydraw(y|
000036b0 31 29 3a 78 32 25 3d a4 78 64 72 61 77 28 78 32 |1):x2%=.xdraw(x2|
000036c0 29 3a 79 32 25 3d a4 79 64 72 61 77 28 79 32 29 |):y2%=.ydraw(y2)|
000036d0 0d 0d ca 20 20 20 20 20 20 20 20 20 6f 62 6a 61 |... obja|
000036e0 64 64 72 25 3d 6e 74 25 3a 70 61 74 68 25 3d b9 |ddr%=nt%:path%=.|
000036f0 0d 0d d4 44 20 20 20 20 20 20 20 20 62 78 25 3d |...D bx%=|
00003700 78 31 25 3a 62 79 25 3d 79 31 25 3a 62 78 31 25 |x1%:by%=y1%:bx1%|
00003710 3d 78 32 25 3a 62 79 31 25 3d 79 32 25 3a e7 20 |=x2%:by1%=y2%:. |
00003720 62 78 25 3e 62 78 31 25 20 c8 94 20 62 78 25 2c |bx%>bx1% .. bx%,|
00003730 62 78 31 25 0d 0d de 22 20 20 20 20 20 20 20 20 |bx1%..." |
00003740 e7 20 62 79 25 3e 62 79 31 25 20 c8 94 20 62 79 |. by%>by1% .. by|
00003750 25 2c 62 79 31 25 0d 0d e8 36 20 20 20 20 20 20 |%,by1%...6 |
00003760 20 20 6e 74 25 3d a4 6f 62 6a 65 63 74 68 65 61 | nt%=.objecthea|
00003770 64 28 6e 74 25 2c 32 2c 30 2c 62 78 25 2c 62 79 |d(nt%,2,0,bx%,by|
00003780 25 2c 62 78 31 25 2c 62 79 31 25 29 0d 0d f2 1a |%,bx1%,by1%)....|
00003790 20 20 20 20 20 20 20 20 21 6e 74 25 3d 2d 31 3a | !nt%=-1:|
000037a0 6e 74 25 2b 3d 34 0d 0d fc 24 20 20 20 20 20 20 |nt%+=4...$ |
000037b0 20 20 21 6e 74 25 3d a4 63 64 72 61 77 28 63 6f | !nt%=.cdraw(co|
000037c0 6c 25 29 3a 6e 74 25 2b 3d 34 0d 0e 06 19 20 20 |l%):nt%+=4.... |
000037d0 20 20 20 20 20 20 21 6e 74 25 3d 30 3a 6e 74 25 | !nt%=0:nt%|
000037e0 2b 3d 34 0d 0e 10 1b 20 20 20 20 20 20 20 20 21 |+=4.... !|
000037f0 6e 74 25 3d 26 34 32 3a 6e 74 25 2b 3d 34 0d 0e |nt%=&42:nt%+=4..|
00003800 1a 23 20 20 20 20 20 20 20 20 6e 74 25 3d a4 74 |.# nt%=.t|
00003810 61 67 28 6e 74 25 2c 32 2c 78 31 25 2c 79 31 25 |ag(nt%,2,x1%,y1%|
00003820 29 0d 0e 24 23 20 20 20 20 20 20 20 20 6e 74 25 |)..$# nt%|
00003830 3d a4 74 61 67 28 6e 74 25 2c 38 2c 78 32 25 2c |=.tag(nt%,8,x2%,|
00003840 79 32 25 29 0d 0e 2e 0c 20 20 20 20 20 20 20 e1 |y2%).... .|
00003850 0d 0e 38 0c 20 20 20 20 20 20 20 3a 0d 0e 42 22 |..8. :..B"|
00003860 20 20 20 20 20 20 20 dd a4 74 61 67 28 61 64 64 | ..tag(add|
00003870 72 25 2c 74 61 67 25 2c 78 25 2c 79 25 29 0d 0e |r%,tag%,x%,y%)..|
00003880 4c 20 20 20 20 20 20 20 20 20 21 61 64 64 72 25 |L !addr%|
00003890 3d 74 61 67 25 3a 61 64 64 72 25 2b 3d 34 0d 0e |=tag%:addr%+=4..|
000038a0 56 1b 20 20 20 20 20 20 20 20 e7 20 74 61 67 25 |V. . tag%|
000038b0 3d 30 20 3d 61 64 64 72 25 0d 0e 60 1e 20 20 20 |=0 =addr%..`. |
000038c0 20 20 20 20 20 21 61 64 64 72 25 3d 78 25 3a 61 | !addr%=x%:a|
000038d0 64 64 72 25 2b 3d 34 0d 0e 6a 1e 20 20 20 20 20 |ddr%+=4..j. |
000038e0 20 20 20 21 61 64 64 72 25 3d 79 25 3a 61 64 64 | !addr%=y%:add|
000038f0 72 25 2b 3d 34 0d 0e 74 12 20 20 20 20 20 20 20 |r%+=4..t. |
00003900 20 3d 61 64 64 72 25 0d 0e 7e 0c 20 20 20 20 20 | =addr%..~. |
00003910 20 20 3a 0d 0e 88 3a 20 20 20 20 20 20 20 dd a4 | :...: ..|
00003920 6f 62 6a 65 63 74 68 65 61 64 28 61 64 64 72 25 |objecthead(addr%|
00003930 2c 74 79 70 65 25 2c 73 69 7a 65 25 2c 78 31 25 |,type%,size%,x1%|
00003940 2c 79 31 25 2c 78 32 25 2c 79 32 25 29 0d 0e 92 |,y1%,x2%,y2%)...|
00003950 21 20 20 20 20 20 20 20 20 21 61 64 64 72 25 3d |! !addr%=|
00003960 74 79 70 65 25 3a 61 64 64 72 25 2b 3d 34 0d 0e |type%:addr%+=4..|
00003970 9c 21 20 20 20 20 20 20 20 20 21 61 64 64 72 25 |.! !addr%|
00003980 3d 73 69 7a 65 25 3a 61 64 64 72 25 2b 3d 34 0d |=size%:addr%+=4.|
00003990 0e a6 1f 20 20 20 20 20 20 20 20 21 61 64 64 72 |... !addr|
000039a0 25 3d 78 31 25 3a 61 64 64 72 25 2b 3d 34 0d 0e |%=x1%:addr%+=4..|
000039b0 b0 1f 20 20 20 20 20 20 20 20 21 61 64 64 72 25 |.. !addr%|
000039c0 3d 79 31 25 3a 61 64 64 72 25 2b 3d 34 0d 0e ba |=y1%:addr%+=4...|
000039d0 1f 20 20 20 20 20 20 20 20 21 61 64 64 72 25 3d |. !addr%=|
000039e0 78 32 25 3a 61 64 64 72 25 2b 3d 34 0d 0e c4 1f |x2%:addr%+=4....|
000039f0 20 20 20 20 20 20 20 20 21 61 64 64 72 25 3d 79 | !addr%=y|
00003a00 32 25 3a 61 64 64 72 25 2b 3d 34 0d 0e ce 12 20 |2%:addr%+=4.... |
00003a10 20 20 20 20 20 20 20 3d 61 64 64 72 25 0d 0e d8 | =addr%...|
00003a20 0c 20 20 20 20 20 20 20 3a 0d 0e e2 20 20 20 20 |. :... |
00003a30 20 20 20 20 dd f2 73 61 76 65 64 72 61 77 66 69 | ..savedrawfi|
00003a40 6c 65 28 66 69 6c 65 24 29 0d 0e ec 16 20 20 20 |le(file$).... |
00003a50 20 20 20 20 20 f2 63 6c 6f 73 65 70 61 74 68 0d | .closepath.|
00003a60 0e f6 35 20 20 20 20 20 20 20 20 c8 99 20 22 4f |..5 .. "O|
00003a70 53 5f 46 69 6c 65 22 2c 31 30 2c 66 69 6c 65 24 |S_File",10,file$|
00003a80 2c 26 41 46 46 2c 2c 64 72 61 77 66 69 6c 65 25 |,&AFF,,drawfile%|
00003a90 2c 6e 74 25 0d 0f 00 0c 20 20 20 20 20 20 20 e1 |,nt%.... .|
00003aa0 0d 0f 0a 0c 20 20 20 20 20 20 20 3a 0d 0f 14 16 |.... :....|
00003ab0 20 20 20 20 20 20 20 dd f2 63 6c 6f 73 65 70 61 | ..closepa|
00003ac0 74 68 0d 0f 1e 19 20 20 20 20 20 20 20 20 e7 20 |th.... . |
00003ad0 64 72 61 77 66 6c 25 3d a3 20 e1 0d 0f 28 17 20 |drawfl%=. ...(. |
00003ae0 20 20 20 20 20 20 20 e7 20 70 61 74 68 25 3d a3 | . path%=.|
00003af0 20 e1 0d 0f 32 27 20 20 20 20 20 20 20 20 70 61 | ...2' pa|
00003b00 74 68 25 3d a3 3a 6e 74 25 3d a4 74 61 67 28 6e |th%=.:nt%=.tag(n|
00003b10 74 25 2c 30 2c 30 2c 30 29 0d 0f 3c 23 20 20 20 |t%,0,0,0)..<# |
00003b20 20 20 20 20 20 6f 62 6a 61 64 64 72 25 21 34 3d | objaddr%!4=|
00003b30 6e 74 25 2d 6f 62 6a 61 64 64 72 25 0d 0f 46 0c |nt%-objaddr%..F.|
00003b40 20 20 20 20 20 20 20 e1 0d 0f 50 0c 20 20 20 20 | ...P. |
00003b50 20 20 20 3a 0d 0f 5a 1b 20 20 20 20 20 20 20 dd | :..Z. .|
00003b60 f2 47 65 6e 65 72 61 74 65 53 74 61 76 65 73 0d |.GenerateStaves.|
00003b70 0f 64 1e 20 20 20 20 20 20 20 20 e3 20 49 3d 31 |.d. . I=1|
00003b80 20 b8 20 73 74 61 76 65 73 6e 75 6d 25 0d 0f 6e | . stavesnum%..n|
00003b90 17 20 20 20 20 20 20 20 20 20 e3 20 47 53 3d 31 |. . GS=1|
00003ba0 20 b8 20 35 0d 0f 78 2b 20 20 20 20 20 20 20 20 | . 5..x+ |
00003bb0 20 20 59 3d 28 47 53 2d 31 29 2a 31 35 2e 39 2b | Y=(GS-1)*15.9+|
00003bc0 28 49 2a 28 67 61 70 25 2a 37 34 2e 35 29 29 0d |(I*(gap%*74.5)).|
00003bd0 0f 82 54 20 20 20 20 20 20 20 20 20 20 f2 6f 70 |..T .op|
00003be0 65 6e 70 61 74 68 28 32 35 2c 28 a4 57 6f 72 6b |enpath(25,(.Work|
00003bf0 5f 59 5f 4f 75 74 2d 59 29 2b 31 38 2c 31 34 2e |_Y_Out-Y)+18,14.|
00003c00 37 2a 77 69 64 74 68 25 2c 28 a4 57 6f 72 6b 5f |7*width%,(.Work_|
00003c10 59 5f 4f 75 74 2d 59 29 2b 31 38 2c 73 74 63 6f |Y_Out-Y)+18,stco|
00003c20 6c 25 29 0d 0f 8c 11 20 20 20 20 20 20 20 20 20 |l%).... |
00003c30 ed 20 47 53 0d 0f 96 0f 20 20 20 20 20 20 20 20 |. GS.... |
00003c40 ed 20 49 0d 0f a0 0c 20 20 20 20 20 20 20 e1 0d |. I.... ..|
00003c50 0f aa 0c 20 20 20 20 20 20 20 3a 0d 0f b4 17 20 |... :.... |
00003c60 20 20 20 20 20 20 dd a4 57 6f 72 6b 5f 59 5f 4f | ..Work_Y_O|
00003c70 75 74 0d 0f be 2f 20 20 20 20 20 20 20 20 4a 3d |ut.../ J=|
00003c80 28 34 2a 31 35 2e 39 29 2b 28 73 74 61 76 65 73 |(4*15.9)+(staves|
00003c90 6e 75 6d 25 2a 28 67 61 70 25 2a 37 34 2e 35 29 |num%*(gap%*74.5)|
00003ca0 29 0d 0f c8 1c 20 20 20 20 20 20 20 20 e7 20 4a |).... . J|
00003cb0 3c 31 34 38 38 20 8c 20 3d 31 34 38 37 0d 0f d2 |<1488 . =1487...|
00003cc0 1c 20 20 20 20 20 20 20 20 e7 20 4a 3c 32 31 30 |. . J<210|
00003cd0 33 20 8c 20 3d 32 31 30 32 0d 0f dc 1c 20 20 20 |3 . =2102.... |
00003ce0 20 20 20 20 20 e7 20 4a 3c 32 39 37 36 20 8c 20 | . J<2976 . |
00003cf0 3d 32 39 37 35 0d 0f e6 1c 20 20 20 20 20 20 20 |=2975.... |
00003d00 20 e7 20 4a 3c 34 32 30 39 20 8c 20 3d 34 32 30 | . J<4209 . =420|
00003d10 38 0d 0f f0 1c 20 20 20 20 20 20 20 20 e7 20 4a |8.... . J|
00003d20 3c 35 39 35 31 20 8c 20 3d 35 39 35 30 0d 0f fa |<5951 . =5950...|
00003d30 1c 20 20 20 20 20 20 20 20 e7 20 4a 3c 38 34 31 |. . J<841|
00003d40 39 20 8c 20 3d 38 34 31 38 0d 10 04 0e 20 20 20 |9 . =8418.... |
00003d50 20 20 20 20 20 3d 30 0d 10 0e 0c 20 20 20 20 20 | =0.... |
00003d60 20 20 3a 0d 10 18 13 20 20 20 20 20 20 20 dd f2 | :.... ..|
00003d70 55 6e 54 69 63 6b 0d 10 22 33 20 20 20 20 20 20 |UnTick.."3 |
00003d80 20 20 f2 57 69 6d 70 5f 4d 65 6e 75 54 69 63 6b | .Wimp_MenuTick|
00003d90 28 43 6f 6c 6f 75 72 73 5f 4d 65 6e 75 25 2c 70 |(Colours_Menu%,p|
00003da0 72 65 63 6f 6c 25 2b 31 29 0d 10 2c 1a 20 20 20 |recol%+1)..,. |
00003db0 20 20 20 20 20 70 72 65 63 6f 6c 25 3d 73 74 63 | precol%=stc|
00003dc0 6f 6c 25 0d 10 36 0c 20 20 20 20 20 20 20 e1 0d |ol%..6. ..|
00003dd0 ff |.|
00003dd1 
.