/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / d / drwimp / DrWimp / Examples / !PrintTest / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 3e 21 52 | 75 6e 49 6d 61 67 65 0d |.....>!R|unImage.|
|00000010| 00 14 1f c8 9b 20 22 3c | 44 72 57 69 6d 70 4c 69 |..... "<|DrWimpLi|
|00000020| 62 24 44 69 72 3e 2e 44 | 72 57 69 6d 70 22 0d 00 |b$Dir>.D|rWimp"..|
|00000030| 1e 05 3a 0d 00 28 18 61 | 70 70 6e 61 6d 65 24 3d |..:..(.a|ppname$=|
|00000040| 22 50 72 69 6e 74 54 65 | 73 74 22 0d 00 32 05 3a |"PrintTe|st"..2.:|
|00000050| 0d 00 3c 4e 20 20 f4 20 | 2a 2a 20 74 68 69 73 20 |..<N  . |** this |
|00000060| 69 73 20 71 75 69 74 65 | 20 61 6e 20 69 6e 76 6f |is quite| an invo|
|00000070| 6c 76 65 64 20 65 78 61 | 6d 70 6c 65 20 6f 66 20 |lved exa|mple of |
|00000080| 68 6f 77 20 74 6f 20 70 | 72 69 6e 74 20 66 72 6f |how to p|rint fro|
|00000090| 6d 20 44 72 57 69 6d 70 | 20 75 73 69 6e 67 0d 00 |m DrWimp| using..|
|000000a0| 46 4c 20 20 f4 20 2a 2a | 20 6d 6f 73 74 20 6f 66 |FL  . **| most of|
|000000b0| 20 74 68 65 20 66 65 61 | 74 75 72 65 73 20 61 76 | the fea|tures av|
|000000c0| 61 69 6c 61 62 6c 65 2c | 20 61 6e 64 20 61 73 20 |ailable,| and as |
|000000d0| 73 75 63 68 20 69 73 20 | 6e 6f 74 20 65 78 70 65 |such is |not expe|
|000000e0| 63 74 65 64 20 74 6f 20 | 62 65 0d 00 50 4d 20 20 |cted to |be..PM  |
|000000f0| f4 20 2a 2a 20 75 6e 64 | 65 72 73 74 6f 6f 64 20 |. ** und|erstood |
|00000100| 62 79 20 73 6f 6d 65 6f | 6e 65 20 77 68 6f 20 68 |by someo|ne who h|
|00000110| 61 73 20 6a 75 73 74 20 | 73 74 61 72 74 65 64 20 |as just |started |
|00000120| 74 6f 20 6c 65 61 72 6e | 20 74 6f 20 75 73 65 20 |to learn| to use |
|00000130| 44 72 57 69 6d 70 2e 0d | 00 5a 04 0d 00 64 4f 20 |DrWimp..|.Z...dO |
|00000140| 20 f4 20 2a 2a 20 74 68 | 69 73 20 65 78 61 6d 70 | . ** th|is examp|
|00000150| 6c 65 20 73 68 6f 77 73 | 20 6d 6f 73 74 20 6f 66 |le shows| most of|
|00000160| 20 74 68 65 20 64 65 74 | 61 69 6c 73 20 67 69 76 | the det|ails giv|
|00000170| 65 6e 20 69 6e 20 74 68 | 65 20 70 72 69 6e 74 69 |en in th|e printi|
|00000180| 6e 67 20 73 65 63 74 69 | 6f 6e 0d 00 6e 4c 20 20 |ng secti|on..nL  |
|00000190| f4 20 2a 2a 20 6f 66 20 | 74 68 65 20 6d 61 6e 75 |. ** of |the manu|
|000001a0| 61 6c 20 69 6e 20 61 63 | 74 69 6f 6e 2c 20 61 6e |al in ac|tion, an|
|000001b0| 64 20 49 20 77 6f 75 6c | 64 20 61 64 76 69 73 65 |d I woul|d advise|
|000001c0| 20 79 6f 75 20 74 6f 20 | 72 65 61 64 20 69 74 20 | you to |read it |
|000001d0| 66 69 72 73 74 2e 0d 00 | 78 04 0d 00 82 1b 76 65 |first...|x.....ve|
|000001e0| 72 24 3d 22 31 2e 30 30 | 20 28 31 37 2d 4a 61 6e |r$="1.00| (17-Jan|
|000001f0| 2d 39 37 29 22 0d 00 8c | 35 ee 20 85 20 f2 77 69 |-97)"...|5. . .wi|
|00000200| 6d 70 5f 65 72 72 6f 72 | 28 61 70 70 6e 61 6d 65 |mp_error|(appname|
|00000210| 24 2c f6 24 2b 22 20 61 | 74 20 6c 69 6e 65 20 22 |$,.$+" a|t line "|
|00000220| 2b c3 9e 2c 31 2c 31 29 | 3a e0 0d 00 96 04 0d 00 |+..,1,1)|:.......|
|00000230| a0 43 20 20 f4 20 2a 2a | 20 69 6e 69 74 69 61 6c |.C  . **| initial|
|00000240| 69 73 65 20 74 61 73 6b | 20 61 6e 64 20 6c 6f 61 |ise task| and loa|
|00000250| 64 20 69 6e 20 77 69 6e | 64 6f 77 73 20 66 72 6f |d in win|dows fro|
|00000260| 6d 20 74 65 6d 70 6c 61 | 74 65 73 20 66 69 6c 65 |m templa|tes file|
|00000270| 2e 0d 00 aa 32 74 61 73 | 6b 25 3d a4 77 69 6d 70 |....2tas|k%=.wimp|
|00000280| 5f 69 6e 69 74 69 61 6c | 69 73 65 28 61 70 70 6e |_initial|ise(appn|
|00000290| 61 6d 65 24 2c 37 30 30 | 30 2c 37 30 30 30 2c 33 |ame$,700|0,7000,3|
|000002a0| 30 30 29 0d 00 b4 40 69 | 6e 66 6f 25 3d a4 77 69 |00)...@i|nfo%=.wi|
|000002b0| 6d 70 5f 6c 6f 61 64 77 | 69 6e 64 6f 77 28 22 3c |mp_loadw|indow("<|
|000002c0| 50 72 69 6e 74 54 65 73 | 74 24 44 69 72 3e 2e 54 |PrintTes|t$Dir>.T|
|000002d0| 65 6d 70 6c 61 74 65 73 | 22 2c 22 69 6e 66 6f 22 |emplates|","info"|
|000002e0| 2c 30 29 0d 00 be 40 6d | 61 69 6e 25 3d a4 77 69 |,0)...@m|ain%=.wi|
|000002f0| 6d 70 5f 6c 6f 61 64 77 | 69 6e 64 6f 77 28 22 3c |mp_loadw|indow("<|
|00000300| 50 72 69 6e 74 54 65 73 | 74 24 44 69 72 3e 2e 54 |PrintTes|t$Dir>.T|
|00000310| 65 6d 70 6c 61 74 65 73 | 22 2c 22 6d 61 69 6e 22 |emplates|","main"|
|00000320| 2c 30 29 0d 00 c8 40 70 | 72 6e 74 25 3d a4 77 69 |,0)...@p|rnt%=.wi|
|00000330| 6d 70 5f 6c 6f 61 64 77 | 69 6e 64 6f 77 28 22 3c |mp_loadw|indow("<|
|00000340| 50 72 69 6e 74 54 65 73 | 74 24 44 69 72 3e 2e 54 |PrintTes|t$Dir>.T|
|00000350| 65 6d 70 6c 61 74 65 73 | 22 2c 22 70 72 6e 74 22 |emplates|","prnt"|
|00000360| 2c 30 29 0d 00 d2 40 70 | 72 6f 67 25 3d a4 77 69 |,0)...@p|rog%=.wi|
|00000370| 6d 70 5f 6c 6f 61 64 77 | 69 6e 64 6f 77 28 22 3c |mp_loadw|indow("<|
|00000380| 50 72 69 6e 74 54 65 73 | 74 24 44 69 72 3e 2e 54 |PrintTes|t$Dir>.T|
|00000390| 65 6d 70 6c 61 74 65 73 | 22 2c 22 70 72 6f 67 22 |emplates|","prog"|
|000003a0| 2c 30 29 0d 00 dc 40 70 | 61 6e 65 25 3d a4 77 69 |,0)...@p|ane%=.wi|
|000003b0| 6d 70 5f 6c 6f 61 64 77 | 69 6e 64 6f 77 28 22 3c |mp_loadw|indow("<|
|000003c0| 50 72 69 6e 74 54 65 73 | 74 24 44 69 72 3e 2e 54 |PrintTes|t$Dir>.T|
|000003d0| 65 6d 70 6c 61 74 65 73 | 22 2c 22 70 61 6e 65 22 |emplates|","pane"|
|000003e0| 2c 30 29 0d 00 e6 04 0d | 00 f0 28 20 20 f4 20 2a |,0).....|..(  . *|
|000003f0| 2a 20 70 75 74 20 64 65 | 74 61 69 6c 73 20 69 6e |* put de|tails in|
|00000400| 74 6f 20 69 6e 66 6f 20 | 77 69 6e 64 6f 77 2e 0d |to info |window..|
|00000410| 00 fa 2a f2 77 69 6d 70 | 5f 70 75 74 69 63 6f 6e |..*.wimp|_puticon|
|00000420| 74 65 78 74 28 69 6e 66 | 6f 25 2c 30 2c 22 50 72 |text(inf|o%,0,"Pr|
|00000430| 69 6e 74 54 65 73 74 22 | 29 0d 01 04 35 f2 77 69 |intTest"|)...5.wi|
|00000440| 6d 70 5f 70 75 74 69 63 | 6f 6e 74 65 78 74 28 69 |mp_putic|ontext(i|
|00000450| 6e 66 6f 25 2c 31 2c 22 | 44 72 57 69 6d 70 20 70 |nfo%,1,"|DrWimp p|
|00000460| 72 69 6e 74 69 6e 67 20 | 74 65 73 74 22 29 0d 01 |rinting |test")..|
|00000470| 0e 33 f2 77 69 6d 70 5f | 70 75 74 69 63 6f 6e 74 |.3.wimp_|puticont|
|00000480| 65 78 74 28 69 6e 66 6f | 25 2c 32 2c 22 a9 20 41 |ext(info|%,2,". A|
|00000490| 6e 64 72 65 77 20 41 79 | 72 65 20 31 39 39 36 22 |ndrew Ay|re 1996"|
|000004a0| 29 0d 01 18 23 f2 77 69 | 6d 70 5f 70 75 74 69 63 |)...#.wi|mp_putic|
|000004b0| 6f 6e 74 65 78 74 28 69 | 6e 66 6f 25 2c 34 2c 76 |ontext(i|nfo%,4,v|
|000004c0| 65 72 24 29 0d 01 22 04 | 0d 01 2c 41 20 20 f4 20 |er$)..".|..,A  . |
|000004d0| 2a 2a 20 70 75 74 20 69 | 63 6f 6e 20 6f 6e 20 69 |** put i|con on i|
|000004e0| 63 6f 6e 62 61 72 2c 20 | 6f 6e 20 72 69 67 68 74 |conbar, |on right|
|000004f0| 20 77 69 74 68 20 6e 6f | 20 74 65 78 74 20 75 6e | with no| text un|
|00000500| 64 65 72 6e 65 61 74 68 | 2e 0d 01 36 29 62 61 72 |derneath|...6)bar|
|00000510| 25 3d a4 77 69 6d 70 5f | 69 63 6f 6e 62 61 72 28 |%=.wimp_|iconbar(|
|00000520| 22 21 22 2b 61 70 70 6e | 61 6d 65 24 2c 22 22 2c |"!"+appn|ame$,"",|
|00000530| 31 29 0d 01 40 04 0d 01 | 4a 59 20 20 f4 20 2a 2a |1)..@...|JY  . **|
|00000540| 20 63 72 65 61 74 65 20 | 69 63 6f 6e 62 61 72 20 | create |iconbar |
|00000550| 61 6e 64 20 6d 61 69 6e | 20 6d 65 6e 75 73 2c 20 |and main| menus, |
|00000560| 75 73 69 6e 67 20 69 6e | 66 6f 20 77 69 6e 64 6f |using in|fo windo|
|00000570| 77 20 61 6e 64 20 70 72 | 69 6e 74 20 77 69 6e 64 |w and pr|int wind|
|00000580| 6f 77 20 61 73 20 73 75 | 62 6d 65 6e 75 73 2e 0d |ow as su|bmenus..|
|00000590| 01 54 36 62 61 72 6d 65 | 6e 75 25 3d a4 77 69 6d |.T6barme|nu%=.wim|
|000005a0| 70 5f 63 72 65 61 74 65 | 6d 65 6e 75 28 22 50 72 |p_create|menu("Pr|
|000005b0| 69 6e 74 54 65 73 74 2f | 49 6e 66 6f 2f 51 75 69 |intTest/|Info/Qui|
|000005c0| 74 22 2c 30 29 0d 01 5e | 29 f2 77 69 6d 70 5f 61 |t",0)..^|).wimp_a|
|000005d0| 74 74 61 63 68 73 75 62 | 6d 65 6e 75 28 62 61 72 |ttachsub|menu(bar|
|000005e0| 6d 65 6e 75 25 2c 31 2c | 69 6e 66 6f 25 29 0d 01 |menu%,1,|info%)..|
|000005f0| 68 33 6d 61 69 6e 6d 65 | 6e 75 25 3d a4 77 69 6d |h3mainme|nu%=.wim|
|00000600| 70 5f 63 72 65 61 74 65 | 6d 65 6e 75 28 22 50 72 |p_create|menu("Pr|
|00000610| 69 6e 74 54 65 73 74 2f | 50 72 69 6e 74 22 2c 30 |intTest/|Print",0|
|00000620| 29 0d 01 72 2a f2 77 69 | 6d 70 5f 61 74 74 61 63 |)..r*.wi|mp_attac|
|00000630| 68 73 75 62 6d 65 6e 75 | 28 6d 61 69 6e 6d 65 6e |hsubmenu|(mainmen|
|00000640| 75 25 2c 31 2c 70 72 6e | 74 25 29 0d 01 7c 04 0d |u%,1,prn|t%)..|..|
|00000650| 01 86 43 20 20 f4 20 2a | 2a 20 77 6f 72 6b 20 6f |..C  . *|* work o|
|00000660| 75 74 20 74 68 65 20 77 | 69 64 74 68 20 61 6e 64 |ut the w|idth and|
|00000670| 20 68 65 69 67 68 74 20 | 6f 66 20 61 6e 20 41 34 | height |of an A4|
|00000680| 20 70 61 67 65 20 69 6e | 20 4f 53 20 75 6e 69 74 | page in| OS unit|
|00000690| 73 2e 0d 01 90 26 77 69 | 64 74 68 25 3d a4 77 69 |s....&wi|dth%=.wi|
|000006a0| 6d 70 5f 6c 65 6e 67 74 | 68 74 6f 4f 53 28 32 31 |mp_lengt|htoOS(21|
|000006b0| 30 2c 31 30 30 2c 30 29 | 0d 01 9a 27 68 65 69 67 |0,100,0)|...'heig|
|000006c0| 68 74 25 3d a4 77 69 6d | 70 5f 6c 65 6e 67 74 68 |ht%=.wim|p_length|
|000006d0| 74 6f 4f 53 28 32 39 37 | 2c 31 30 30 2c 30 29 0d |toOS(297|,100,0).|
|000006e0| 01 a4 04 0d 01 ae 31 20 | 20 f4 20 2a 2a 20 72 65 |......1 | . ** re|
|000006f0| 73 69 7a 65 20 6d 61 69 | 6e 20 77 69 6e 64 6f 77 |size mai|n window|
|00000700| 20 74 6f 20 73 69 7a 65 | 20 6f 66 20 41 34 20 70 | to size| of A4 p|
|00000710| 61 67 65 2e 0d 01 b8 2c | f2 77 69 6d 70 5f 72 65 |age....,|.wimp_re|
|00000720| 73 69 7a 65 77 69 6e 64 | 6f 77 28 6d 61 69 6e 25 |sizewind|ow(main%|
|00000730| 2c 77 69 64 74 68 25 2c | 68 65 69 67 68 74 25 29 |,width%,|height%)|
|00000740| 0d 01 c2 04 0d 01 cc 2b | 20 20 f4 20 2a 2a 20 6c |.......+|  . ** l|
|00000750| 6f 61 64 20 69 6e 20 74 | 68 65 20 73 70 72 69 74 |oad in t|he sprit|
|00000760| 65 20 61 6e 64 20 74 68 | 65 20 74 65 78 74 2e 0d |e and th|e text..|
|00000770| 01 d6 0f f2 6c 6f 61 64 | 73 70 72 69 74 65 0d 01 |....load|sprite..|
|00000780| e0 25 f2 72 65 61 64 74 | 65 78 74 28 22 3c 50 72 |.%.readt|ext("<Pr|
|00000790| 69 6e 74 54 65 73 74 24 | 44 69 72 3e 2e 54 65 78 |intTest$|Dir>.Tex|
|000007a0| 74 22 29 0d 01 ea 04 0d | 01 f4 4a 20 20 f4 20 2a |t").....|..J  . *|
|000007b0| 2a 20 70 75 74 20 64 65 | 74 61 69 6c 73 20 69 6e |* put de|tails in|
|000007c0| 74 6f 20 69 6e 66 6f 20 | 77 69 6e 64 6f 77 20 61 |to info |window a|
|000007d0| 6e 64 20 73 65 74 20 75 | 70 20 66 6f 72 20 31 20 |nd set u|p for 1 |
|000007e0| 70 61 67 65 20 70 65 72 | 20 41 34 20 70 61 67 65 |page per| A4 page|
|000007f0| 2e 0d 01 fe 4c f2 77 69 | 6d 70 5f 70 75 74 69 63 |....L.wi|mp_putic|
|00000800| 6f 6e 74 65 78 74 28 70 | 72 6e 74 25 2c 31 31 2c |ontext(p|rnt%,11,|
|00000810| 22 31 22 29 3a f2 77 69 | 6d 70 5f 70 75 74 69 63 |"1"):.wi|mp_putic|
|00000820| 6f 6e 74 65 78 74 28 70 | 72 6e 74 25 2c 31 33 2c |ontext(p|rnt%,13,|
|00000830| c3 74 6f 74 61 6c 70 61 | 67 65 73 25 29 0d 02 08 |.totalpa|ges%)...|
|00000840| 31 63 6f 70 69 65 73 25 | 3d 31 3a f2 77 69 6d 70 |1copies%|=1:.wimp|
|00000850| 5f 70 75 74 69 63 6f 6e | 74 65 78 74 28 70 72 6e |_puticon|text(prn|
|00000860| 74 25 2c 33 2c c3 63 6f | 70 69 65 73 25 29 0d 02 |t%,3,.co|pies%)..|
|00000870| 12 1a 70 65 72 70 61 67 | 65 25 3d 31 3a f2 70 65 |..perpag|e%=1:.pe|
|00000880| 72 70 61 67 65 28 31 29 | 0d 02 1c 04 0d 02 26 57 |rpage(1)|......&W|
|00000890| 20 20 f4 20 2a 2a 20 73 | 65 74 20 6d 61 69 6e 20 |  . ** s|et main |
|000008a0| 77 69 6e 64 6f 77 20 74 | 69 74 6c 65 20 74 6f 20 |window t|itle to |
|000008b0| 73 68 6f 77 20 70 61 67 | 65 20 6e 75 6d 62 65 72 |show pag|e number|
|000008c0| 20 61 6e 64 20 67 65 74 | 20 66 6f 6e 74 20 68 61 | and get| font ha|
|000008d0| 6e 64 6c 65 73 20 74 6f | 20 74 77 6f 20 66 6f 6e |ndles to| two fon|
|000008e0| 74 73 2e 0d 02 30 34 f2 | 77 69 6d 70 5f 70 75 74 |ts...04.|wimp_put|
|000008f0| 77 69 6e 64 6f 77 74 69 | 74 6c 65 28 6d 61 69 6e |windowti|tle(main|
|00000900| 25 2c 22 50 72 69 6e 74 | 54 65 73 74 20 2d 20 50 |%,"Print|Test - P|
|00000910| 61 67 65 20 31 22 29 0d | 02 3a 31 74 72 69 6e 69 |age 1").|.:1trini|
|00000920| 74 79 31 32 25 3d a4 77 | 69 6d 70 5f 67 65 74 66 |ty12%=.w|imp_getf|
|00000930| 6f 6e 74 28 22 54 72 69 | 6e 69 74 79 2e 4d 65 64 |ont("Tri|nity.Med|
|00000940| 69 75 6d 22 2c 31 32 29 | 0d 02 44 39 74 72 69 6e |ium",12)|..D9trin|
|00000950| 69 74 79 31 32 69 25 3d | a4 77 69 6d 70 5f 67 65 |ity12i%=|.wimp_ge|
|00000960| 74 66 6f 6e 74 28 22 54 | 72 69 6e 69 74 79 2e 4d |tfont("T|rinity.M|
|00000970| 65 64 69 75 6d 2e 49 74 | 61 6c 69 63 22 2c 31 32 |edium.It|alic",12|
|00000980| 29 0d 02 4e 04 0d 02 58 | 25 20 20 f4 20 2a 2a 20 |)..N...X|%  . ** |
|00000990| 73 65 74 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |set the |current |
|000009a0| 70 61 67 65 20 74 6f 20 | 31 2e 0d 02 62 12 63 75 |page to |1...b.cu|
|000009b0| 72 72 65 6e 74 70 61 67 | 65 25 3d 31 0d 02 6c 04 |rrentpag|e%=1..l.|
|000009c0| 0d 02 76 19 20 20 f4 20 | 2a 2a 20 70 6f 6c 6c 20 |..v.  . |** poll |
|000009d0| 74 68 65 20 77 69 6d 70 | 2e 0d 02 80 0e f2 77 69 |the wimp|......wi|
|000009e0| 6d 70 5f 70 6f 6c 6c 0d | 02 8a 04 0d 02 94 2d 20 |mp_poll.|......- |
|000009f0| 20 f4 20 2a 2a 20 72 65 | 74 75 72 6e 20 66 6f 6e | . ** re|turn fon|
|00000a00| 74 20 68 61 6e 64 6c 65 | 73 20 77 68 65 6e 20 71 |t handle|s when q|
|00000a10| 75 69 74 74 69 6e 67 2e | 0d 02 9e 1e f2 77 69 6d |uitting.|.....wim|
|00000a20| 70 5f 6c 6f 73 65 66 6f | 6e 74 28 74 72 69 6e 69 |p_losefo|nt(trini|
|00000a30| 74 79 31 32 25 29 0d 02 | a8 1f f2 77 69 6d 70 5f |ty12%)..|...wimp_|
|00000a40| 6c 6f 73 65 66 6f 6e 74 | 28 74 72 69 6e 69 74 79 |losefont|(trinity|
|00000a50| 31 32 69 25 29 0d 02 b2 | 05 e0 0d 02 bc 05 3a 0d |12i%)...|......:.|
|00000a60| 02 c6 43 dd 20 f2 75 73 | 65 72 5f 72 65 64 72 61 |..C. .us|er_redra|
|00000a70| 77 28 77 69 6e 64 6f 77 | 25 2c 6d 69 6e 78 25 2c |w(window|%,minx%,|
|00000a80| 6d 69 6e 79 25 2c 6d 61 | 78 78 25 2c 6d 61 78 79 |miny%,ma|xx%,maxy|
|00000a90| 25 2c 70 72 69 6e 74 69 | 6e 67 25 2c 70 61 67 65 |%,printi|ng%,page|
|00000aa0| 25 29 0d 02 d0 15 e7 20 | 77 69 6e 64 6f 77 25 3d |%)..... |window%=|
|00000ab0| 6d 61 69 6e 25 20 8c 0d | 02 da 04 0d 02 e4 34 20 |main% ..|......4 |
|00000ac0| 20 20 20 f4 20 2a 2a 20 | 69 66 20 6d 61 69 6e 20 |   . ** |if main |
|00000ad0| 77 69 6e 64 6f 77 20 6e | 65 65 64 73 20 72 65 64 |window n|eeds red|
|00000ae0| 72 61 77 69 6e 67 20 74 | 68 65 6e 2e 2e 2e 2e 0d |rawing t|hen.....|
|00000af0| 02 ee 49 20 20 20 20 f4 | 20 2a 2a 20 69 66 20 70 |..I    .| ** if p|
|00000b00| 72 69 6e 74 69 6e 67 20 | 74 68 65 6e 20 6d 61 6b |rinting |then mak|
|00000b10| 65 20 63 6f 70 79 20 6f | 66 20 63 75 72 72 65 6e |e copy o|f curren|
|00000b20| 74 20 70 61 67 65 20 62 | 65 69 6e 67 20 73 68 6f |t page b|eing sho|
|00000b30| 77 6e 20 74 6f 20 62 65 | 0d 02 f8 50 20 20 20 20 |wn to be|...P    |
|00000b40| f4 20 2a 2a 20 70 75 74 | 20 62 61 63 6b 20 61 74 |. ** put| back at|
|00000b50| 20 74 68 65 20 65 6e 64 | 2e 20 53 65 74 20 63 75 | the end|. Set cu|
|00000b60| 72 72 65 6e 74 20 70 61 | 67 65 20 62 65 69 6e 67 |rrent pa|ge being|
|00000b70| 20 70 72 69 6e 74 65 64 | 20 61 73 20 63 75 72 72 | printed| as curr|
|00000b80| 65 6e 74 20 70 61 67 65 | 0d 03 02 41 20 20 20 20 |ent page|...A    |
|00000b90| f4 20 2a 2a 20 73 6f 20 | 74 68 69 73 20 66 75 6e |. ** so |this fun|
|00000ba0| 63 74 69 6f 6e 20 72 65 | 64 72 61 77 73 20 74 68 |ction re|draws th|
|00000bb0| 61 74 20 70 61 67 65 20 | 66 6f 72 20 74 68 65 20 |at page |for the |
|00000bc0| 70 72 69 6e 74 69 6e 67 | 2e 0d 03 0c 36 20 20 e7 |printing|....6  .|
|00000bd0| 20 70 72 69 6e 74 69 6e | 67 25 3d b9 20 63 25 3d | printin|g%=. c%=|
|00000be0| 63 75 72 72 65 6e 74 70 | 61 67 65 25 3a 63 75 72 |currentp|age%:cur|
|00000bf0| 72 65 6e 74 70 61 67 65 | 25 3d 70 61 67 65 25 0d |rentpage|%=page%.|
|00000c00| 03 16 04 0d 03 20 51 20 | 20 20 20 f4 20 2a 2a 20 |..... Q |   . ** |
|00000c10| 61 6c 6c 20 74 68 65 20 | 73 74 75 66 66 20 74 6f |all the |stuff to|
|00000c20| 20 72 65 64 72 61 77 20 | 74 68 65 20 70 61 67 65 | redraw |the page|
|00000c30| 73 2e 20 49 66 20 70 72 | 69 6e 74 69 6e 67 20 74 |s. If pr|inting t|
|00000c40| 68 65 6e 20 73 6f 6d 65 | 20 63 6f 6f 72 64 69 6e |hen some| coordin|
|00000c50| 61 74 65 73 0d 03 2a 22 | 20 20 20 20 f4 20 2a 2a |ates..*"|    . **|
|00000c60| 20 6e 65 65 64 20 74 6f | 20 62 65 20 63 6f 6e 76 | need to| be conv|
|00000c70| 65 72 74 65 64 2e 0d 03 | 34 18 20 20 e7 20 63 75 |erted...|4.  . cu|
|00000c80| 72 72 65 6e 74 70 61 67 | 65 25 3d 31 20 8c 0d 03 |rrentpag|e%=1 ...|
|00000c90| 3e 32 20 20 20 20 77 25 | 3d a4 77 69 6d 70 5f 67 |>2    w%|=.wimp_g|
|00000ca0| 65 74 73 70 72 69 74 65 | 73 69 7a 65 28 22 64 77 |etsprite|size("dw|
|00000cb0| 6c 6f 67 6f 22 2c 73 70 | 72 69 74 65 25 2c 30 29 |logo",sp|rite%,0)|
|00000cc0| 0d 03 48 2c 20 20 20 20 | 77 70 25 3d a4 77 69 6d |..H,    |wp%=.wim|
|00000cd0| 70 5f 67 65 74 77 69 6e | 64 6f 77 77 6f 72 6b 73 |p_getwin|dowworks|
|00000ce0| 69 7a 65 28 6d 61 69 6e | 25 2c 30 29 0d 03 52 1d |ize(main|%,0)..R.|
|00000cf0| 20 20 20 20 78 25 3d 28 | 77 70 25 2d 77 25 29 2f |    x%=(|wp%-w%)/|
|00000d00| 32 3a 79 25 3d 2d 34 30 | 30 0d 03 5c 17 20 20 20 |2:y%=-40|0..\.   |
|00000d10| 20 e7 20 70 72 69 6e 74 | 69 6e 67 25 3d b9 20 8c | . print|ing%=. .|
|00000d20| 0d 03 66 24 20 20 20 20 | 20 20 78 25 3d a4 77 69 |..f$    |  x%=.wi|
|00000d30| 6d 70 5f 77 6f 72 6b 74 | 6f 70 61 70 65 72 28 78 |mp_workt|opaper(x|
|00000d40| 25 2c 30 29 0d 03 70 24 | 20 20 20 20 20 20 79 25 |%,0)..p$|      y%|
|00000d50| 3d a4 77 69 6d 70 5f 77 | 6f 72 6b 74 6f 70 61 70 |=.wimp_w|orktopap|
|00000d60| 65 72 28 79 25 2c 31 29 | 0d 03 7a 09 20 20 20 20 |er(y%,1)|..z.    |
|00000d70| cd 0d 03 84 56 20 20 20 | 20 f2 77 69 6d 70 5f 72 |....V   | .wimp_r|
|00000d80| 65 6e 64 65 72 77 69 6e | 64 6f 77 73 70 72 69 74 |enderwin|dowsprit|
|00000d90| 65 28 6d 61 69 6e 25 2c | 22 64 77 6c 6f 67 6f 22 |e(main%,|"dwlogo"|
|00000da0| 2c 73 70 72 69 74 65 25 | 2c 78 25 2c 79 25 2c 6d |,sprite%|,x%,y%,m|
|00000db0| 69 6e 78 25 2c 6d 69 6e | 79 25 2c 6d 61 78 78 25 |inx%,min|y%,maxx%|
|00000dc0| 2c 6d 61 78 79 25 29 0d | 03 8e 54 20 20 20 20 78 |,maxy%).|..T    x|
|00000dd0| 25 3d 28 77 70 25 2d a4 | 77 69 6d 70 5f 67 65 74 |%=(wp%-.|wimp_get|
|00000de0| 74 65 78 74 73 69 7a 65 | 68 28 22 a9 20 41 6e 64 |textsize|h(". And|
|00000df0| 72 65 77 20 41 79 72 65 | 20 31 39 39 35 2d 39 37 |rew Ayre| 1995-97|
|00000e00| 22 2c 74 72 69 6e 69 74 | 79 31 32 69 25 2c 30 29 |",trinit|y12i%,0)|
|00000e10| 29 2f 32 3a 79 25 3d 2d | 34 33 30 0d 03 98 17 20 |)/2:y%=-|430.... |
|00000e20| 20 20 20 e7 20 70 72 69 | 6e 74 69 6e 67 25 3d b9 |   . pri|nting%=.|
|00000e30| 20 8c 0d 03 a2 24 20 20 | 20 20 20 20 78 25 3d a4 | ....$  |    x%=.|
|00000e40| 77 69 6d 70 5f 77 6f 72 | 6b 74 6f 70 61 70 65 72 |wimp_wor|ktopaper|
|00000e50| 28 78 25 2c 30 29 0d 03 | ac 24 20 20 20 20 20 20 |(x%,0)..|.$      |
|00000e60| 79 25 3d a4 77 69 6d 70 | 5f 77 6f 72 6b 74 6f 70 |y%=.wimp|_worktop|
|00000e70| 61 70 65 72 28 79 25 2c | 31 29 0d 03 b6 09 20 20 |aper(y%,|1)....  |
|00000e80| 20 20 cd 0d 03 c0 78 20 | 20 20 20 f2 77 69 6d 70 |  ....x |   .wimp|
|00000e90| 5f 70 6c 6f 74 77 69 6e | 64 6f 77 74 65 78 74 68 |_plotwin|dowtexth|
|00000ea0| 28 6d 61 69 6e 25 2c 22 | a9 20 41 6e 64 72 65 77 |(main%,"|. Andrew|
|00000eb0| 20 41 79 72 65 20 31 39 | 39 35 2d 39 37 22 2c 74 | Ayre 19|95-97",t|
|00000ec0| 72 69 6e 69 74 79 31 32 | 69 25 2c 78 25 2c 79 25 |rinity12|i%,x%,y%|
|00000ed0| 2c 30 2c 30 2c 30 2c 32 | 35 35 2c 32 35 35 2c 32 |,0,0,0,2|55,255,2|
|00000ee0| 35 35 2c 6d 69 6e 78 25 | 2c 6d 69 6e 79 25 2c 6d |55,minx%|,miny%,m|
|00000ef0| 61 78 78 25 2c 6d 61 78 | 79 25 29 0d 03 ca 16 20 |axx%,max|y%).... |
|00000f00| 20 20 20 78 25 3d 31 35 | 30 3a 79 25 3d 2d 35 35 |   x%=15|0:y%=-55|
|00000f10| 30 0d 03 d4 07 20 20 cc | 0d 03 de 16 20 20 20 20 |0....  .|....    |
|00000f20| 78 25 3d 31 35 30 3a 79 | 25 3d 2d 32 31 30 0d 03 |x%=150:y|%=-210..|
|00000f30| e8 07 20 20 cd 0d 03 f2 | 15 20 20 e7 20 70 72 69 |..  ....|.  . pri|
|00000f40| 6e 74 69 6e 67 25 3d b9 | 20 8c 0d 03 fc 22 20 20 |nting%=.| ...."  |
|00000f50| 20 20 78 25 3d a4 77 69 | 6d 70 5f 77 6f 72 6b 74 |  x%=.wi|mp_workt|
|00000f60| 6f 70 61 70 65 72 28 78 | 25 2c 30 29 0d 04 06 22 |opaper(x|%,0)..."|
|00000f70| 20 20 20 20 79 25 3d a4 | 77 69 6d 70 5f 77 6f 72 |    y%=.|wimp_wor|
|00000f80| 6b 74 6f 70 61 70 65 72 | 28 79 25 2c 31 29 0d 04 |ktopaper|(y%,1)..|
|00000f90| 10 07 20 20 cd 0d 04 1a | 18 20 20 e7 20 63 75 72 |..  ....|.  . cur|
|00000fa0| 72 65 6e 74 70 61 67 65 | 25 3d 31 20 8c 0d 04 24 |rentpage|%=1 ...$|
|00000fb0| 16 20 20 20 20 6d 69 6e | 25 3d 31 3a 6d 61 78 25 |.    min|%=1:max%|
|00000fc0| 3d 34 36 0d 04 2e 07 20 | 20 cc 0d 04 38 30 20 20 |=46.... | ...80  |
|00000fd0| 20 20 6d 69 6e 25 3d 34 | 37 2b 35 37 2a 28 63 75 |  min%=4|7+57*(cu|
|00000fe0| 72 72 65 6e 74 70 61 67 | 65 25 2d 32 29 3a 6d 61 |rrentpag|e%-2):ma|
|00000ff0| 78 25 3d 6d 69 6e 25 2b | 35 36 0d 04 42 2b 20 20 |x%=min%+|56..B+  |
|00001000| 20 20 e7 20 6d 61 78 25 | 3e 74 6f 74 61 6c 6c 69 |  . max%|>totalli|
|00001010| 6e 65 73 25 20 6d 61 78 | 25 3d 74 6f 74 61 6c 6c |nes% max|%=totall|
|00001020| 69 6e 65 73 25 0d 04 4c | 07 20 20 cd 0d 04 56 15 |ines%..L|.  ...V.|
|00001030| 20 20 e3 20 4c 3d 6d 69 | 6e 25 20 b8 20 6d 61 78 |  . L=mi|n% . max|
|00001040| 25 0d 04 60 68 20 20 20 | 20 f2 77 69 6d 70 5f 70 |%..`h   | .wimp_p|
|00001050| 6c 6f 74 77 69 6e 64 6f | 77 74 65 78 74 68 28 6d |lotwindo|wtexth(m|
|00001060| 61 69 6e 25 2c 6c 69 6e | 65 24 28 4c 29 2c 74 72 |ain%,lin|e$(L),tr|
|00001070| 69 6e 69 74 79 31 32 25 | 2c 78 25 2c 79 25 2c 30 |inity12%|,x%,y%,0|
|00001080| 2c 30 2c 30 2c 32 35 35 | 2c 32 35 35 2c 32 35 35 |,0,0,255|,255,255|
|00001090| 2c 6d 69 6e 78 25 2c 6d | 69 6e 79 25 2c 6d 61 78 |,minx%,m|iny%,max|
|000010a0| 78 25 2c 6d 61 78 79 25 | 29 0d 04 6a 0e 20 20 20 |x%,maxy%|)..j.   |
|000010b0| 20 79 25 2d 3d 33 30 0d | 04 74 09 20 20 ed 20 4c | y%-=30.|.t.  . L|
|000010c0| 0d 04 7e 34 20 20 78 25 | 3d 31 35 30 3a 79 25 3d |..~4  x%|=150:y%=|
|000010d0| a4 77 69 6d 70 5f 67 65 | 74 77 69 6e 64 6f 77 77 |.wimp_ge|twindoww|
|000010e0| 6f 72 6b 73 69 7a 65 28 | 6d 61 69 6e 25 2c 31 29 |orksize(|main%,1)|
|000010f0| 2b 31 35 30 0d 04 88 15 | 20 20 e7 20 70 72 69 6e |+150....|  . prin|
|00001100| 74 69 6e 67 25 3d b9 20 | 8c 0d 04 92 22 20 20 20 |ting%=. |...."   |
|00001110| 20 78 25 3d a4 77 69 6d | 70 5f 77 6f 72 6b 74 6f | x%=.wim|p_workto|
|00001120| 70 61 70 65 72 28 78 25 | 2c 30 29 0d 04 9c 22 20 |paper(x%|,0)..." |
|00001130| 20 20 20 79 25 3d a4 77 | 69 6d 70 5f 77 6f 72 6b |   y%=.w|imp_work|
|00001140| 74 6f 70 61 70 65 72 28 | 79 25 2c 31 29 0d 04 a6 |topaper(|y%,1)...|
|00001150| 07 20 20 cd 0d 04 b0 73 | 20 20 f2 77 69 6d 70 5f |.  ....s|  .wimp_|
|00001160| 70 6c 6f 74 77 69 6e 64 | 6f 77 74 65 78 74 68 28 |plotwind|owtexth(|
|00001170| 6d 61 69 6e 25 2c 22 50 | 61 67 65 20 22 2b c3 63 |main%,"P|age "+.c|
|00001180| 75 72 72 65 6e 74 70 61 | 67 65 25 2c 74 72 69 6e |urrentpa|ge%,trin|
|00001190| 69 74 79 31 32 25 2c 78 | 25 2c 79 25 2c 30 2c 30 |ity12%,x|%,y%,0,0|
|000011a0| 2c 30 2c 32 35 35 2c 32 | 35 35 2c 32 35 35 2c 6d |,0,255,2|55,255,m|
|000011b0| 69 6e 78 25 2c 6d 69 6e | 79 25 2c 6d 61 78 78 25 |inx%,min|y%,maxx%|
|000011c0| 2c 6d 61 78 79 25 29 0d | 04 ba 1c 20 20 f2 77 69 |,maxy%).|...  .wi|
|000011d0| 6d 70 5f 73 65 74 63 6f | 6c 6f 75 72 28 30 2c 30 |mp_setco|lour(0,0|
|000011e0| 2c 30 29 0d 04 c4 34 20 | 20 78 25 3d 31 35 30 3a |,0)...4 | x%=150:|
|000011f0| 79 25 3d a4 77 69 6d 70 | 5f 67 65 74 77 69 6e 64 |y%=.wimp|_getwind|
|00001200| 6f 77 77 6f 72 6b 73 69 | 7a 65 28 6d 61 69 6e 25 |owworksi|ze(main%|
|00001210| 2c 31 29 2b 31 38 30 0d | 04 ce 27 20 20 78 25 3d |,1)+180.|..'  x%=|
|00001220| a4 77 69 6d 70 5f 77 6f | 72 6b 74 6f 73 63 72 65 |.wimp_wo|rktoscre|
|00001230| 65 6e 28 6d 61 69 6e 25 | 2c 78 25 2c 30 29 0d 04 |en(main%|,x%,0)..|
|00001240| d8 27 20 20 79 25 3d a4 | 77 69 6d 70 5f 77 6f 72 |.'  y%=.|wimp_wor|
|00001250| 6b 74 6f 73 63 72 65 65 | 6e 28 6d 61 69 6e 25 2c |ktoscree|n(main%,|
|00001260| 79 25 2c 31 29 0d 04 e2 | 15 20 20 e7 20 70 72 69 |y%,1)...|.  . pri|
|00001270| 6e 74 69 6e 67 25 3d b9 | 20 8c 0d 04 ec 2a 20 20 |nting%=.| ....*  |
|00001280| 20 20 78 25 3d a4 77 69 | 6d 70 5f 73 63 72 65 65 |  x%=.wi|mp_scree|
|00001290| 6e 74 6f 70 61 70 65 72 | 28 6d 61 69 6e 25 2c 78 |ntopaper|(main%,x|
|000012a0| 25 2c 30 29 0d 04 f6 2a | 20 20 20 20 79 25 3d a4 |%,0)...*|    y%=.|
|000012b0| 77 69 6d 70 5f 73 63 72 | 65 65 6e 74 6f 70 61 70 |wimp_scr|eentopap|
|000012c0| 65 72 28 6d 61 69 6e 25 | 2c 79 25 2c 31 29 0d 05 |er(main%|,y%,1)..|
|000012d0| 00 07 20 20 cd 0d 05 0a | 17 20 20 86 20 78 25 2c |..  ....|.  . x%,|
|000012e0| 79 25 2c 78 25 2b 34 30 | 30 2c 79 25 0d 05 14 38 |y%,x%+40|0,y%...8|
|000012f0| 20 20 86 20 78 25 2c 79 | 25 2c 78 25 2b a4 77 69 |  . x%,y|%,x%+.wi|
|00001300| 6d 70 5f 67 65 74 77 69 | 6e 64 6f 77 77 6f 72 6b |mp_getwi|ndowwork|
|00001310| 73 69 7a 65 28 6d 61 69 | 6e 25 2c 30 29 2d 33 30 |size(mai|n%,0)-30|
|00001320| 30 2c 79 25 0d 05 1e 04 | 0d 05 28 58 20 20 20 20 |0,y%....|..(X    |
|00001330| f4 20 2a 2a 20 69 66 20 | 70 72 69 6e 74 69 6e 67 |. ** if |printing|
|00001340| 20 74 68 65 6e 20 72 65 | 73 74 6f 72 65 20 63 75 | then re|store cu|
|00001350| 72 72 65 6e 74 20 70 61 | 67 65 20 73 6f 20 77 68 |rrent pa|ge so wh|
|00001360| 65 6e 20 70 72 69 6e 74 | 69 6e 67 20 69 73 20 66 |en print|ing is f|
|00001370| 69 6e 69 73 68 65 64 20 | 74 68 65 20 73 61 6d 65 |inished |the same|
|00001380| 0d 05 32 46 20 20 20 20 | f4 20 2a 2a 20 70 61 67 |..2F    |. ** pag|
|00001390| 65 20 77 6f 6e 27 74 20 | 62 65 20 73 68 6f 77 6e |e won't |be shown|
|000013a0| 2e 20 69 65 2e 20 74 68 | 65 20 76 61 72 69 61 62 |. ie. th|e variab|
|000013b0| 6c 65 20 77 6f 6e 27 74 | 20 62 65 20 63 6f 72 72 |le won't| be corr|
|000013c0| 75 70 74 65 64 2e 0d 05 | 3c 23 20 20 e7 20 70 72 |upted...|<#  . pr|
|000013d0| 69 6e 74 69 6e 67 25 3d | b9 20 63 75 72 72 65 6e |inting%=|. curren|
|000013e0| 74 70 61 67 65 25 3d 63 | 25 0d 05 46 05 cd 0d 05 |tpage%=c|%..F....|
|000013f0| 50 05 e1 0d 05 5a 05 3a | 0d 05 64 3b dd 20 f2 75 |P....Z.:|..d;. .u|
|00001400| 73 65 72 5f 6d 6f 75 73 | 65 63 6c 69 63 6b 28 77 |ser_mous|eclick(w|
|00001410| 69 6e 64 6f 77 25 2c 69 | 63 6f 6e 25 2c 62 75 74 |indow%,i|con%,but|
|00001420| 74 6f 6e 25 2c 77 6f 72 | 6b 78 25 2c 77 6f 72 6b |ton%,wor|kx%,work|
|00001430| 79 25 29 0d 05 6e 04 0d | 05 78 50 20 20 f4 20 2a |y%)..n..|.xP  . *|
|00001440| 2a 20 69 66 20 69 63 6f | 6e 62 61 72 20 69 63 6f |* if ico|nbar ico|
|00001450| 6e 20 63 6c 69 63 6b 65 | 64 20 6f 6e 20 74 68 65 |n clicke|d on the|
|00001460| 6e 20 6f 70 65 6e 20 6d | 61 69 6e 20 77 69 6e 64 |n open m|ain wind|
|00001470| 6f 77 20 69 6e 20 63 65 | 6e 74 72 65 20 6f 66 20 |ow in ce|ntre of |
|00001480| 73 63 72 65 65 6e 2e 0d | 05 82 2f e7 20 77 69 6e |screen..|../. win|
|00001490| 64 6f 77 25 3d 62 61 72 | 25 20 f2 77 69 6d 70 5f |dow%=bar|% .wimp_|
|000014a0| 6f 70 65 6e 77 69 6e 64 | 6f 77 28 6d 61 69 6e 25 |openwind|ow(main%|
|000014b0| 2c 31 2c 2d 31 29 0d 05 | 8c 04 0d 05 96 62 20 20 |,1,-1)..|.....b  |
|000014c0| f4 20 2a 2a 20 69 66 20 | 70 72 69 6e 74 20 62 75 |. ** if |print bu|
|000014d0| 74 74 6f 6e 20 69 6e 20 | 70 61 6e 65 20 63 6c 69 |tton in |pane cli|
|000014e0| 63 6b 65 64 20 6f 6e 20 | 74 68 65 6e 20 63 68 65 |cked on |then che|
|000014f0| 63 6b 20 66 6f 72 20 70 | 72 69 6e 74 65 72 20 64 |ck for p|rinter d|
|00001500| 72 69 76 65 72 20 61 6e | 64 20 6f 70 65 6e 20 70 |river an|d open p|
|00001510| 72 69 6e 74 20 77 69 6e | 64 6f 77 2e 0d 05 a0 4b |rint win|dow....K|
|00001520| e7 20 77 69 6e 64 6f 77 | 25 3d 70 61 6e 65 25 20 |. window|%=pane% |
|00001530| 80 20 69 63 6f 6e 25 3d | 32 20 f2 63 68 65 63 6b |. icon%=|2 .check|
|00001540| 66 6f 72 70 64 72 69 76 | 65 72 3a f2 77 69 6d 70 |forpdriv|er:.wimp|
|00001550| 5f 6f 70 65 6e 77 69 6e | 64 6f 77 28 70 72 6e 74 |_openwin|dow(prnt|
|00001560| 25 2c 32 2c 2d 31 29 0d | 05 aa 04 0d 05 b4 4a 20 |%,2,-1).|......J |
|00001570| 20 f4 20 2a 2a 20 69 66 | 20 27 70 72 69 6e 74 27 | . ** if| 'print'|
|00001580| 20 69 63 6f 6e 20 63 6c | 69 63 6b 65 64 20 6f 6e | icon cl|icked on|
|00001590| 20 69 6e 20 70 72 69 6e | 74 20 77 69 6e 64 6f 77 | in prin|t window|
|000015a0| 20 74 68 65 6e 20 73 74 | 61 72 74 20 70 72 69 6e | then st|art prin|
|000015b0| 74 69 6e 67 2e 0d 05 be | 24 e7 20 77 69 6e 64 6f |ting....|$. windo|
|000015c0| 77 25 3d 70 72 6e 74 25 | 20 80 20 69 63 6f 6e 25 |w%=prnt%| . icon%|
|000015d0| 3d 31 20 f2 70 72 69 6e | 74 0d 05 c8 04 0d 05 d2 |=1 .prin|t.......|
|000015e0| 57 20 20 f4 20 2a 2a 20 | 6c 69 6e 65 73 20 74 6f |W  . ** |lines to|
|000015f0| 20 63 6f 6e 74 72 6f 6c | 20 74 68 65 20 6f 70 65 | control| the ope|
|00001600| 72 61 74 69 6f 6e 20 6f | 66 20 74 68 65 20 62 75 |ration o|f the bu|
|00001610| 6d 70 20 28 61 72 72 6f | 77 29 20 69 63 6f 6e 73 |mp (arro|w) icons|
|00001620| 20 69 6e 20 74 68 65 20 | 70 72 69 6e 74 20 77 69 | in the |print wi|
|00001630| 6e 64 6f 77 0d 05 dc 30 | 20 20 f4 20 2a 2a 20 74 |ndow...0|  . ** t|
|00001640| 6f 20 73 65 74 20 74 68 | 65 20 6e 75 6d 62 65 72 |o set th|e number|
|00001650| 20 6f 66 20 63 6f 70 69 | 65 73 20 74 6f 20 70 72 | of copi|es to pr|
|00001660| 69 6e 74 2e 0d 05 e6 28 | e7 20 77 69 6e 64 6f 77 |int....(|. window|
|00001670| 25 3d 70 72 6e 74 25 20 | 80 20 69 63 6f 6e 25 3d |%=prnt% |. icon%=|
|00001680| 34 20 f2 64 65 63 63 6f | 70 69 65 73 0d 05 f0 28 |4 .decco|pies...(|
|00001690| e7 20 77 69 6e 64 6f 77 | 25 3d 70 72 6e 74 25 20 |. window|%=prnt% |
|000016a0| 80 20 69 63 6f 6e 25 3d | 35 20 f2 69 6e 63 63 6f |. icon%=|5 .incco|
|000016b0| 70 69 65 73 0d 05 fa 04 | 0d 06 04 54 20 20 f4 20 |pies....|...T  . |
|000016c0| 2a 2a 20 6c 69 6e 65 73 | 20 74 6f 20 63 6f 6e 74 |** lines| to cont|
|000016d0| 72 6f 6c 20 74 68 65 20 | 73 65 74 74 69 6e 67 20 |rol the |setting |
|000016e0| 6f 66 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |of the n|umber of|
|000016f0| 20 70 61 67 65 73 20 74 | 6f 20 70 72 69 6e 74 20 | pages t|o print |
|00001700| 70 65 72 20 41 34 20 70 | 61 67 65 2e 0d 06 0e 34 |per A4 p|age....4|
|00001710| e7 20 77 69 6e 64 6f 77 | 25 3d 70 72 6e 74 25 20 |. window|%=prnt% |
|00001720| 80 20 69 63 6f 6e 25 3d | 37 20 70 65 72 70 61 67 |. icon%=|7 perpag|
|00001730| 65 25 3d 31 3a f2 70 65 | 72 70 61 67 65 28 31 29 |e%=1:.pe|rpage(1)|
|00001740| 0d 06 18 34 e7 20 77 69 | 6e 64 6f 77 25 3d 70 72 |...4. wi|ndow%=pr|
|00001750| 6e 74 25 20 80 20 69 63 | 6f 6e 25 3d 38 20 70 65 |nt% . ic|on%=8 pe|
|00001760| 72 70 61 67 65 25 3d 32 | 3a f2 70 65 72 70 61 67 |rpage%=2|:.perpag|
|00001770| 65 28 32 29 0d 06 22 34 | e7 20 77 69 6e 64 6f 77 |e(2).."4|. window|
|00001780| 25 3d 70 72 6e 74 25 20 | 80 20 69 63 6f 6e 25 3d |%=prnt% |. icon%=|
|00001790| 39 20 70 65 72 70 61 67 | 65 25 3d 34 3a f2 70 65 |9 perpag|e%=4:.pe|
|000017a0| 72 70 61 67 65 28 34 29 | 0d 06 2c 04 0d 06 36 4d |rpage(4)|..,...6M|
|000017b0| 20 20 f4 20 2a 2a 20 69 | 66 20 27 63 61 6e 63 65 |  . ** i|f 'cance|
|000017c0| 6c 27 20 62 75 74 74 6f | 6e 20 63 6c 69 63 6b 65 |l' butto|n clicke|
|000017d0| 64 20 6f 6e 20 69 6e 20 | 70 72 69 6e 74 69 6e 67 |d on in |printing|
|000017e0| 20 70 72 6f 67 72 65 73 | 73 20 77 69 6e 64 6f 77 | progres|s window|
|000017f0| 20 74 68 65 6e 20 73 65 | 74 0d 06 40 52 20 20 f4 | then se|t..@R  .|
|00001800| 20 2a 2a 20 70 72 69 6e | 74 69 6e 67 20 63 61 6e | ** prin|ting can|
|00001810| 63 65 6c 6c 65 64 20 66 | 6c 61 67 20 74 6f 20 31 |celled f|lag to 1|
|00001820| 20 73 6f 20 46 4e 75 73 | 65 72 5f 70 72 69 6e 74 | so FNus|er_print|
|00001830| 69 6e 67 20 63 61 6e 20 | 72 65 74 75 72 6e 20 69 |ing can |return i|
|00001840| 74 20 74 6f 20 63 61 6e | 63 65 6c 0d 06 4a 18 20 |t to can|cel..J. |
|00001850| 20 f4 20 2a 2a 20 74 68 | 65 20 70 72 69 6e 74 69 | . ** th|e printi|
|00001860| 6e 67 2e 0d 06 54 27 e7 | 20 77 69 6e 64 6f 77 25 |ng...T'.| window%|
|00001870| 3d 70 72 6f 67 25 20 80 | 20 69 63 6f 6e 25 3d 34 |=prog% .| icon%=4|
|00001880| 20 63 61 6e 63 65 6c 25 | 3d 31 0d 06 5e 04 0d 06 | cancel%|=1..^...|
|00001890| 68 4e 20 20 f4 20 2a 2a | 20 6c 69 6e 65 73 20 74 |hN  . **| lines t|
|000018a0| 6f 20 63 6f 6e 74 72 6f | 6c 20 74 68 65 20 61 72 |o contro|l the ar|
|000018b0| 72 6f 77 20 62 75 74 74 | 6f 6e 73 20 69 6e 20 74 |row butt|ons in t|
|000018c0| 68 65 20 70 61 67 65 20 | 77 69 6e 64 6f 77 2c 20 |he page |window, |
|000018d0| 77 68 69 63 68 20 73 65 | 6c 65 63 74 0d 06 72 26 |which se|lect..r&|
|000018e0| 20 20 f4 20 2a 2a 20 74 | 68 65 20 63 75 72 72 65 |  . ** t|he curre|
|000018f0| 6e 74 20 70 61 67 65 20 | 64 69 73 70 6c 61 79 65 |nt page |displaye|
|00001900| 64 2e 0d 06 7c 26 e7 20 | 77 69 6e 64 6f 77 25 3d |d...|&. |window%=|
|00001910| 70 61 6e 65 25 20 80 20 | 69 63 6f 6e 25 3d 30 20 |pane% . |icon%=0 |
|00001920| f2 64 65 63 70 61 67 65 | 0d 06 86 26 e7 20 77 69 |.decpage|...&. wi|
|00001930| 6e 64 6f 77 25 3d 70 61 | 6e 65 25 20 80 20 69 63 |ndow%=pa|ne% . ic|
|00001940| 6f 6e 25 3d 31 20 f2 69 | 6e 63 70 61 67 65 0d 06 |on%=1 .i|ncpage..|
|00001950| 90 05 e1 0d 06 9a 05 3a | 0d 06 a4 1f dd 20 a4 75 |.......:|..... .u|
|00001960| 73 65 72 5f 6d 65 6e 75 | 28 77 69 6e 64 6f 77 25 |ser_menu|(window%|
|00001970| 2c 69 63 6f 6e 25 29 0d | 06 ae 04 0d 06 b8 4c 20 |,icon%).|......L |
|00001980| 20 f4 20 2a 2a 20 61 74 | 74 61 63 68 20 69 63 6f | . ** at|tach ico|
|00001990| 6e 62 61 72 20 6d 65 6e | 75 20 74 6f 20 69 63 6f |nbar men|u to ico|
|000019a0| 6e 62 61 72 20 69 63 6f | 6e 20 61 6e 64 20 6d 61 |nbar ico|n and ma|
|000019b0| 69 6e 20 6d 65 6e 75 20 | 74 6f 20 6d 61 69 6e 20 |in menu |to main |
|000019c0| 77 69 6e 64 6f 77 2e 0d | 06 c2 1c e7 20 77 69 6e |window..|.... win|
|000019d0| 64 6f 77 25 3d 62 61 72 | 25 20 3d 62 61 72 6d 65 |dow%=bar|% =barme|
|000019e0| 6e 75 25 0d 06 cc 1e e7 | 20 77 69 6e 64 6f 77 25 |nu%.....| window%|
|000019f0| 3d 6d 61 69 6e 25 20 3d | 6d 61 69 6e 6d 65 6e 75 |=main% =|mainmenu|
|00001a00| 25 0d 06 d6 06 3d 30 0d | 06 e0 05 3a 0d 06 ea 2c |%....=0.|...:...,|
|00001a10| dd 20 f2 75 73 65 72 5f | 6f 70 65 6e 77 69 6e 64 |. .user_|openwind|
|00001a20| 6f 77 28 77 69 6e 64 6f | 77 25 2c 78 25 2c 79 25 |ow(windo|w%,x%,y%|
|00001a30| 2c 73 74 61 63 6b 25 29 | 0d 06 f4 04 0d 06 fe 3d |,stack%)|.......=|
|00001a40| 20 20 f4 20 2a 2a 20 6d | 61 6b 65 20 70 61 6e 65 |  . ** m|ake pane|
|00001a50| 20 77 69 6e 64 6f 77 20 | 6f 70 65 6e 20 77 69 74 | window |open wit|
|00001a60| 68 20 6d 61 69 6e 20 77 | 69 6e 64 6f 77 2c 20 61 |h main w|indow, a|
|00001a70| 6c 6f 6e 67 73 69 64 65 | 2e 0d 07 08 57 e7 20 77 |longside|....W. w|
|00001a80| 69 6e 64 6f 77 25 3d 6d | 61 69 6e 25 20 f2 77 69 |indow%=m|ain% .wi|
|00001a90| 6d 70 5f 6f 70 65 6e 77 | 69 6e 64 6f 77 61 74 28 |mp_openw|indowat(|
|00001aa0| 70 61 6e 65 25 2c 78 25 | 2d a4 77 69 6d 70 5f 67 |pane%,x%|-.wimp_g|
|00001ab0| 65 74 77 69 6e 64 6f 77 | 73 69 7a 65 28 70 61 6e |etwindow|size(pan|
|00001ac0| 65 25 2c 30 29 2c 79 25 | 2c 73 74 61 63 6b 25 29 |e%,0),y%|,stack%)|
|00001ad0| 0d 07 12 05 e1 0d 07 1c | 05 3a 0d 07 26 20 dd 20 |........|.:..& . |
|00001ae0| f2 75 73 65 72 5f 63 6c | 6f 73 65 77 69 6e 64 6f |.user_cl|osewindo|
|00001af0| 77 28 77 69 6e 64 6f 77 | 25 29 0d 07 30 04 0d 07 |w(window|%)..0...|
|00001b00| 3a 31 20 20 f4 20 2a 2a | 20 69 66 20 6d 61 69 6e |:1  . **| if main|
|00001b10| 20 77 69 6e 64 6f 77 20 | 63 6c 6f 73 65 64 20 74 | window |closed t|
|00001b20| 68 65 6e 20 63 6c 6f 73 | 65 20 70 61 6e 65 2e 0d |hen clos|e pane..|
|00001b30| 07 44 2c e7 20 77 69 6e | 64 6f 77 25 3d 6d 61 69 |.D,. win|dow%=mai|
|00001b40| 6e 25 20 f2 77 69 6d 70 | 5f 63 6c 6f 73 65 77 69 |n% .wimp|_closewi|
|00001b50| 6e 64 6f 77 28 70 61 6e | 65 25 29 0d 07 4e 05 e1 |ndow(pan|e%)..N..|
|00001b60| 0d 07 58 05 3a 0d 07 62 | 27 dd 20 a4 75 73 65 72 |..X.:..b|'. .user|
|00001b70| 5f 6b 65 79 70 72 65 73 | 73 28 77 69 6e 64 6f 77 |_keypres|s(window|
|00001b80| 25 2c 69 63 6f 6e 25 2c | 6b 65 79 29 0d 07 6c 06 |%,icon%,|key)..l.|
|00001b90| 3d 30 0d 07 76 05 3a 0d | 07 80 26 dd 20 f2 75 73 |=0..v.:.|..&. .us|
|00001ba0| 65 72 5f 6d 65 6e 75 73 | 65 6c 65 63 74 69 6f 6e |er_menus|election|
|00001bb0| 28 6d 65 6e 75 25 2c 69 | 74 65 6d 25 29 0d 07 8a |(menu%,i|tem%)...|
|00001bc0| 04 0d 07 94 4d 20 20 f4 | 20 2a 2a 20 69 66 20 73 |....M  .| ** if s|
|00001bd0| 65 63 6f 6e 64 20 69 74 | 65 6d 20 66 72 6f 6d 20 |econd it|em from |
|00001be0| 69 63 6f 6e 62 61 72 20 | 6d 65 6e 75 20 63 68 6f |iconbar |menu cho|
|00001bf0| 73 65 6e 20 74 68 65 6e | 20 73 65 74 20 66 69 6e |sen then| set fin|
|00001c00| 69 73 68 65 64 25 20 74 | 6f 20 54 52 55 45 0d 07 |ished% t|o TRUE..|
|00001c10| 9e 20 20 20 f4 20 2a 2a | 20 73 6f 20 61 70 70 6c |.   . **| so appl|
|00001c20| 69 63 61 74 69 6f 6e 20 | 71 75 69 74 73 2e 0d 07 |ication |quits...|
|00001c30| a8 2a e7 20 6d 65 6e 75 | 25 3d 62 61 72 6d 65 6e |.*. menu|%=barmen|
|00001c40| 75 25 20 80 20 69 74 65 | 6d 25 3d 32 20 66 69 6e |u% . ite|m%=2 fin|
|00001c50| 69 73 68 65 64 25 3d b9 | 0d 07 b2 05 e1 0d 07 bc |ished%=.|........|
|00001c60| 05 3a 0d 07 c6 21 dd 20 | a4 75 73 65 72 5f 73 61 |.:...!. |.user_sa|
|00001c70| 76 65 66 69 6c 65 74 79 | 70 65 28 77 69 6e 64 6f |vefilety|pe(windo|
|00001c80| 77 25 29 0d 07 d0 07 3d | 22 22 0d 07 da 05 3a 0d |w%)....=|""....:.|
|00001c90| 07 e4 34 dd 20 f2 75 73 | 65 72 5f 73 61 76 65 69 |..4. .us|er_savei|
|00001ca0| 63 6f 6e 28 77 69 6e 64 | 6f 77 25 2c f8 20 64 72 |con(wind|ow%,. dr|
|00001cb0| 61 67 25 2c f8 20 77 72 | 69 74 65 25 2c f8 20 6f |ag%,. wr|ite%,. o|
|00001cc0| 6b 25 29 0d 07 ee 05 e1 | 0d 07 f8 05 3a 0d 08 02 |k%).....|....:...|
|00001cd0| 23 dd 20 a4 75 73 65 72 | 5f 73 61 76 65 64 61 74 |#. .user|_savedat|
|00001ce0| 61 28 70 61 74 68 24 2c | 77 69 6e 64 6f 77 25 29 |a(path$,|window%)|
|00001cf0| 0d 08 0c 06 3d 31 0d 08 | 16 05 3a 0d 08 20 1f dd |....=1..|..:.. ..|
|00001d00| 20 a4 75 73 65 72 5f 68 | 65 6c 70 28 77 69 6e 64 | .user_h|elp(wind|
|00001d10| 6f 77 25 2c 69 63 6f 6e | 25 29 0d 08 2a 07 3d 22 |ow%,icon|%)..*.="|
|00001d20| 22 0d 08 34 05 3a 0d 08 | 3e 21 dd 20 a4 75 73 65 |"..4.:..|>!. .use|
|00001d30| 72 5f 6d 65 6e 75 68 65 | 6c 70 28 6d 65 6e 75 25 |r_menuhe|lp(menu%|
|00001d40| 2c 69 74 65 6d 25 29 0d | 08 48 07 3d 22 22 0d 08 |,item%).|.H.=""..|
|00001d50| 52 05 3a 0d 08 5c 3e dd | 20 a4 75 73 65 72 5f 6c |R.:..\>.| .user_l|
|00001d60| 6f 61 64 64 61 74 61 28 | 70 61 74 68 24 2c 77 69 |oaddata(|path$,wi|
|00001d70| 6e 64 6f 77 25 2c 69 63 | 6f 6e 25 2c 66 74 79 70 |ndow%,ic|on%,ftyp|
|00001d80| 65 24 2c 77 6f 72 6b 78 | 25 2c 77 6f 72 6b 79 25 |e$,workx|%,worky%|
|00001d90| 29 0d 08 66 06 3d 30 0d | 08 70 05 3a 0d 08 7a 23 |)..f.=0.|.p.:..z#|
|00001da0| dd 20 f2 75 73 65 72 5f | 65 6e 74 65 72 69 6e 67 |. .user_|entering|
|00001db0| 77 69 6e 64 6f 77 28 77 | 69 6e 64 6f 77 25 29 0d |window(w|indow%).|
|00001dc0| 08 84 05 e1 0d 08 8e 05 | 3a 0d 08 98 22 dd 20 f2 |........|:...". .|
|00001dd0| 75 73 65 72 5f 6c 65 61 | 76 69 6e 67 77 69 6e 64 |user_lea|vingwind|
|00001de0| 6f 77 28 77 69 6e 64 6f | 77 25 29 0d 08 a2 05 e1 |ow(windo|w%).....|
|00001df0| 0d 08 ac 05 3a 0d 08 b6 | 19 dd 20 a4 75 73 65 72 |....:...|.. .user|
|00001e00| 5f 70 61 6e 65 28 77 69 | 6e 64 6f 77 25 29 0d 08 |_pane(wi|ndow%)..|
|00001e10| c0 04 0d 08 ca 2d 20 20 | f4 20 2a 2a 20 61 74 74 |.....-  |. ** att|
|00001e20| 61 63 68 20 70 61 6e 65 | 20 77 69 6e 64 6f 77 20 |ach pane| window |
|00001e30| 74 6f 20 6d 61 69 6e 20 | 77 69 6e 64 6f 77 2e 0d |to main |window..|
|00001e40| 08 d4 1a e7 20 77 69 6e | 64 6f 77 25 3d 6d 61 69 |.... win|dow%=mai|
|00001e50| 6e 25 20 3d 70 61 6e 65 | 25 0d 08 de 07 3d 2d 31 |n% =pane|%....=-1|
|00001e60| 0d 08 e8 05 3a 0d 08 f2 | 10 dd 20 f2 75 73 65 72 |....:...|.. .user|
|00001e70| 5f 6e 75 6c 6c 0d 08 fc | 05 e1 0d 09 06 05 3a 0d |_null...|......:.|
|00001e80| 09 10 21 dd 20 f2 75 73 | 65 72 5f 6d 65 6e 75 6f |..!. .us|er_menuo|
|00001e90| 70 65 6e 28 6d 65 6e 75 | 25 2c 69 63 6f 6e 25 29 |pen(menu|%,icon%)|
|00001ea0| 0d 09 1a 04 0d 09 24 50 | 20 20 f4 20 2a 2a 20 69 |......$P|  . ** i|
|00001eb0| 66 20 6d 61 69 6e 20 6d | 65 6e 75 20 6f 70 65 6e |f main m|enu open|
|00001ec0| 65 64 20 74 68 65 6e 20 | 63 68 65 63 6b 20 66 6f |ed then |check fo|
|00001ed0| 72 20 70 72 69 6e 74 65 | 72 20 64 72 69 76 65 72 |r printe|r driver|
|00001ee0| 20 73 6f 20 70 72 69 6e | 74 20 77 69 6e 64 6f 77 | so prin|t window|
|00001ef0| 20 63 61 6e 0d 09 2e 2a | 20 20 f4 20 2a 2a 20 62 | can...*|  . ** b|
|00001f00| 65 20 73 65 74 20 75 70 | 20 28 61 73 20 69 74 20 |e set up| (as it |
|00001f10| 69 73 20 61 20 73 75 62 | 6d 65 6e 75 29 2e 0d 09 |is a sub|menu)...|
|00001f20| 38 26 e7 20 6d 65 6e 75 | 25 3d 6d 61 69 6e 6d 65 |8&. menu|%=mainme|
|00001f30| 6e 75 25 20 f2 63 68 65 | 63 6b 66 6f 72 70 64 72 |nu% .che|ckforpdr|
|00001f40| 69 76 65 72 0d 09 42 05 | e1 0d 09 4c 05 3a 0d 09 |iver..B.|...L.:..|
|00001f50| 56 25 dd 20 a4 75 73 65 | 72 5f 73 6c 69 64 65 72 |V%. .use|r_slider|
|00001f60| 62 61 63 6b 28 77 69 6e | 64 6f 77 25 2c 69 63 6f |back(win|dow%,ico|
|00001f70| 6e 25 29 0d 09 60 07 3d | 2d 31 0d 09 6a 05 3a 0d |n%)..`.=|-1..j.:.|
|00001f80| 09 74 21 dd 20 a4 75 73 | 65 72 5f 73 6c 69 64 65 |.t!. .us|er_slide|
|00001f90| 72 28 77 69 6e 64 6f 77 | 25 2c 69 63 6f 6e 25 29 |r(window|%,icon%)|
|00001fa0| 0d 09 7e 07 3d 2d 31 0d | 09 88 05 3a 0d 09 92 2d |..~.=-1.|...:...-|
|00001fb0| dd 20 f2 75 73 65 72 5f | 73 6c 69 64 65 72 76 61 |. .user_|sliderva|
|00001fc0| 6c 75 65 28 77 69 6e 64 | 6f 77 25 2c 69 63 6f 6e |lue(wind|ow%,icon|
|00001fd0| 25 2c 70 63 65 6e 74 25 | 29 0d 09 9c 05 e1 0d 09 |%,pcent%|).......|
|00001fe0| a6 05 3a 0d 09 b0 16 dd | 20 f2 75 73 65 72 5f 6d |..:.....| .user_m|
|00001ff0| 6f 64 65 63 68 61 6e 67 | 65 0d 09 ba 05 e1 0d 09 |odechang|e.......|
|00002000| c4 05 3a 0d 09 ce 18 dd | 20 f2 75 73 65 72 5f 64 |..:.....| .user_d|
|00002010| 65 63 6c 61 72 65 66 6f | 6e 74 73 0d 09 d8 04 0d |eclarefo|nts.....|
|00002020| 09 e2 31 20 20 f4 20 2a | 2a 20 64 65 63 6c 61 72 |..1  . *|* declar|
|00002030| 65 20 61 6c 6c 20 66 6f | 6e 74 73 20 6e 65 65 64 |e all fo|nts need|
|00002040| 65 64 20 66 6f 72 20 70 | 72 69 6e 74 69 6e 67 2e |ed for p|rinting.|
|00002050| 0d 09 ec 27 f2 77 69 6d | 70 5f 64 65 63 6c 61 72 |...'.wim|p_declar|
|00002060| 65 66 6f 6e 74 28 22 54 | 72 69 6e 69 74 79 2e 4d |efont("T|rinity.M|
|00002070| 65 64 69 75 6d 22 29 0d | 09 f6 2e f2 77 69 6d 70 |edium").|....wimp|
|00002080| 5f 64 65 63 6c 61 72 65 | 66 6f 6e 74 28 22 54 72 |_declare|font("Tr|
|00002090| 69 6e 69 74 79 2e 4d 65 | 64 69 75 6d 2e 49 74 61 |inity.Me|dium.Ita|
|000020a0| 6c 69 63 22 29 0d 0a 00 | 05 e1 0d 0a 0a 05 3a 0d |lic")...|......:.|
|000020b0| 0a 14 30 dd 20 f2 75 73 | 65 72 5f 70 72 69 6e 74 |..0. .us|er_print|
|000020c0| 28 6d 69 6e 78 25 2c 6d | 69 6e 79 25 2c 6d 61 78 |(minx%,m|iny%,max|
|000020d0| 78 25 2c 6d 61 78 79 25 | 2c 70 61 67 65 25 29 0d |x%,maxy%|,page%).|
|000020e0| 0a 1e 05 e1 0d 0a 28 05 | 3a 0d 0a 32 34 dd 20 a4 |......(.|:..24. .|
|000020f0| 75 73 65 72 5f 70 72 69 | 6e 74 69 6e 67 28 63 6f |user_pri|nting(co|
|00002100| 70 79 25 2c 70 61 67 65 | 25 2c 74 6f 74 70 61 67 |py%,page|%,totpag|
|00002110| 65 73 25 2c 70 61 67 65 | 70 6f 73 25 29 0d 0a 3c |es%,page|pos%)..<|
|00002120| 04 0d 0a 46 43 20 20 f4 | 20 2a 2a 20 70 75 74 20 |...FC  .| ** put |
|00002130| 63 75 72 72 65 6e 74 20 | 70 61 67 65 20 61 6e 64 |current |page and|
|00002140| 20 63 6f 70 79 20 69 6e | 74 6f 20 70 72 69 6e 74 | copy in|to print|
|00002150| 69 6e 67 20 70 72 6f 67 | 72 65 73 73 20 77 69 6e |ing prog|ress win|
|00002160| 64 6f 77 2e 0d 0a 50 4b | f2 77 69 6d 70 5f 70 75 |dow...PK|.wimp_pu|
|00002170| 74 69 63 6f 6e 74 65 78 | 74 28 70 72 6f 67 25 2c |ticontex|t(prog%,|
|00002180| 30 2c 22 50 72 69 6e 74 | 69 6e 67 20 70 61 67 65 |0,"Print|ing page|
|00002190| 20 22 2b c3 70 61 67 65 | 25 2b 22 20 28 63 6f 70 | "+.page|%+" (cop|
|000021a0| 79 20 22 2b c3 63 6f 70 | 79 25 2b 22 29 22 29 0d |y "+.cop|y%+")").|
|000021b0| 0a 5a 04 0d 0a 64 38 20 | 20 f4 20 2a 2a 20 73 65 |.Z...d8 | . ** se|
|000021c0| 74 20 70 72 6f 67 72 65 | 73 73 20 62 61 72 20 69 |t progre|ss bar i|
|000021d0| 6e 20 70 72 69 6e 74 69 | 6e 67 20 70 72 6f 67 72 |n printi|ng progr|
|000021e0| 65 73 73 20 77 69 6e 64 | 6f 77 2e 0d 0a 6e 31 f2 |ess wind|ow...n1.|
|000021f0| 77 69 6d 70 5f 62 61 72 | 28 70 72 6f 67 25 2c 32 |wimp_bar|(prog%,2|
|00002200| 2c 28 70 61 67 65 70 6f | 73 25 2f 74 6f 74 70 61 |,(pagepo|s%/totpa|
|00002210| 67 65 73 25 29 2a 34 36 | 36 2c 30 29 0d 0a 78 0c |ges%)*46|6,0)..x.|
|00002220| 3d 63 61 6e 63 65 6c 25 | 0d 0a 82 05 3a 0d 0a 8c |=cancel%|....:...|
|00002230| 19 dd 20 f2 75 73 65 72 | 5f 70 72 69 6e 74 65 72 |.. .user|_printer|
|00002240| 63 68 61 6e 67 65 0d 0a | 96 04 0d 0a a0 4d 20 20 |change..|.....M  |
|00002250| f4 20 2a 2a 20 69 66 20 | 74 68 65 72 65 20 69 73 |. ** if |there is|
|00002260| 20 61 20 70 72 69 6e 74 | 65 72 20 64 72 69 76 65 | a print|er drive|
|00002270| 72 20 63 68 61 6e 67 65 | 20 74 68 65 6e 20 63 68 |r change| then ch|
|00002280| 65 63 6b 20 66 6f 72 20 | 70 72 69 6e 74 65 72 20 |eck for |printer |
|00002290| 64 72 69 76 65 72 2e 0d | 0a aa 14 f2 63 68 65 63 |driver..|....chec|
|000022a0| 6b 66 6f 72 70 64 72 69 | 76 65 72 0d 0a b4 05 e1 |kforpdri|ver.....|
|000022b0| 0d 0a be 05 3a 0d 0a c8 | 16 dd 20 f2 63 68 65 63 |....:...|.. .chec|
|000022c0| 6b 66 6f 72 70 64 72 69 | 76 65 72 0d 0a d2 1c e7 |kforpdri|ver.....|
|000022d0| 20 a4 77 69 6d 70 5f 70 | 64 72 69 76 65 72 70 72 | .wimp_p|driverpr|
|000022e0| 65 73 65 6e 74 20 8c 0d | 0a dc 04 0d 0a e6 52 20 |esent ..|......R |
|000022f0| 20 20 20 f4 20 2a 2a 20 | 69 66 20 70 72 69 6e 74 |   . ** |if print|
|00002300| 65 72 20 64 72 69 76 65 | 72 20 70 72 65 73 65 6e |er drive|r presen|
|00002310| 74 20 74 68 65 6e 20 67 | 65 74 20 6e 61 6d 65 20 |t then g|et name |
|00002320| 61 6e 64 20 70 75 74 20 | 69 74 20 69 6e 74 6f 20 |and put |it into |
|00002330| 70 72 69 6e 74 20 77 69 | 6e 64 6f 77 2e 0d 0a f0 |print wi|ndow....|
|00002340| 21 20 20 20 20 f4 20 2a | 2a 20 65 6e 61 62 6c 65 |!    . *|* enable|
|00002350| 20 27 70 72 69 6e 74 27 | 20 69 63 6f 6e 2e 0d 0a | 'print'| icon...|
|00002360| fa 20 20 20 6e 61 6d 65 | 24 3d a4 77 69 6d 70 5f |.   name|$=.wimp_|
|00002370| 67 65 74 70 64 72 69 76 | 65 72 6e 61 6d 65 0d 0b |getpdriv|ername..|
|00002380| 04 26 20 20 f2 77 69 6d | 70 5f 70 75 74 69 63 6f |.&  .wim|p_putico|
|00002390| 6e 74 65 78 74 28 70 72 | 6e 74 25 2c 32 2c 6e 61 |ntext(pr|nt%,2,na|
|000023a0| 6d 65 24 29 0d 0b 0e 1f | 20 20 f2 77 69 6d 70 5f |me$)....|  .wimp_|
|000023b0| 69 63 6f 6e 65 6e 61 62 | 6c 65 28 70 72 6e 74 25 |iconenab|le(prnt%|
|000023c0| 2c 31 29 0d 0b 18 05 cc | 0d 0b 22 04 0d 0b 2c 57 |,1).....|.."...,W|
|000023d0| 20 20 20 20 f4 20 2a 2a | 20 69 66 20 70 72 69 6e |    . **| if prin|
|000023e0| 74 65 72 20 64 72 69 76 | 65 72 20 6e 6f 74 20 70 |ter driv|er not p|
|000023f0| 72 65 73 65 6e 74 20 74 | 68 65 6e 20 70 75 74 20 |resent t|hen put |
|00002400| 72 65 6c 65 76 65 6e 74 | 20 6d 65 73 73 61 67 65 |relevent| message|
|00002410| 20 69 6e 74 6f 20 70 72 | 69 6e 74 20 77 69 6e 64 | into pr|int wind|
|00002420| 6f 77 2e 0d 0b 36 40 20 | 20 20 20 f4 20 2a 2a 20 |ow...6@ |   . ** |
|00002430| 64 69 73 61 62 6c 65 20 | 27 70 72 69 6e 74 27 20 |disable |'print' |
|00002440| 69 63 6f 6e 20 73 6f 20 | 70 72 69 6e 74 69 6e 67 |icon so |printing|
|00002450| 20 63 61 6e 6e 6f 74 20 | 62 65 20 73 74 61 72 74 | cannot |be start|
|00002460| 65 64 2e 0d 0b 40 33 20 | 20 f2 77 69 6d 70 5f 70 |ed...@3 | .wimp_p|
|00002470| 75 74 69 63 6f 6e 74 65 | 78 74 28 70 72 6e 74 25 |uticonte|xt(prnt%|
|00002480| 2c 32 2c 22 4e 6f 20 70 | 72 69 6e 74 65 72 20 66 |,2,"No p|rinter f|
|00002490| 6f 75 6e 64 22 29 0d 0b | 4a 20 20 20 f2 77 69 6d |ound")..|J   .wim|
|000024a0| 70 5f 69 63 6f 6e 64 69 | 73 61 62 6c 65 28 70 72 |p_icondi|sable(pr|
|000024b0| 6e 74 25 2c 31 29 0d 0b | 54 05 cd 0d 0b 5e 05 e1 |nt%,1)..|T....^..|
|000024c0| 0d 0b 68 05 3a 0d 0b 72 | 13 dd 20 f2 6c 6f 61 64 |..h.:..r|.. .load|
|000024d0| 64 72 61 77 66 69 6c 65 | 0d 0b 7c 04 0d 0b 86 40 |drawfile|..|....@|
|000024e0| 20 20 f4 20 2a 2a 20 6c | 6f 61 64 20 64 72 61 77 |  . ** l|oad draw|
|000024f0| 66 69 6c 65 20 66 72 6f | 6d 20 66 69 6c 65 2c 20 |file fro|m file, |
|00002500| 73 65 74 74 69 6e 67 20 | 68 61 6e 64 6c 65 20 74 |setting |handle t|
|00002510| 6f 20 64 72 61 77 66 69 | 6c 65 25 2e 0d 0b 90 24 |o drawfi|le%....$|
|00002520| 70 61 74 68 24 3d 22 3c | 50 72 69 6e 74 54 65 73 |path$="<|PrintTes|
|00002530| 74 24 44 69 72 3e 2e 44 | 72 61 77 66 69 6c 65 22 |t$Dir>.D|rawfile"|
|00002540| 0d 0b 9a 14 f2 77 69 6d | 70 5f 69 6e 69 74 64 66 |.....wim|p_initdf|
|00002550| 69 6c 65 73 0d 0b a4 22 | 73 69 7a 65 25 3d a4 77 |iles..."|size%=.w|
|00002560| 69 6d 70 5f 6d 65 61 73 | 75 72 65 66 69 6c 65 28 |imp_meas|urefile(|
|00002570| 70 61 74 68 24 29 0d 0b | ae 15 de 20 64 72 61 77 |path$)..|... draw|
|00002580| 66 69 6c 65 25 20 73 69 | 7a 65 25 0d 0b b8 27 64 |file% si|ze%...'d|
|00002590| 25 3d a4 77 69 6d 70 5f | 6c 6f 61 64 64 66 69 6c |%=.wimp_|loaddfil|
|000025a0| 65 28 70 61 74 68 24 2c | 64 72 61 77 66 69 6c 65 |e(path$,|drawfile|
|000025b0| 25 29 0d 0b c2 05 e1 0d | 0b cc 05 3a 0d 0b d6 11 |%)......|...:....|
|000025c0| dd 20 f2 6c 6f 61 64 73 | 70 72 69 74 65 0d 0b e0 |. .loads|prite...|
|000025d0| 04 0d 0b ea 36 20 20 f4 | 20 2a 2a 20 6c 6f 61 64 |....6  .| ** load|
|000025e0| 20 73 70 72 69 74 65 66 | 69 6c 65 2c 20 73 65 74 | spritef|ile, set|
|000025f0| 74 69 6e 67 20 68 61 6e | 64 6c 65 20 74 6f 20 73 |ting han|dle to s|
|00002600| 70 72 69 74 65 25 2e 0d | 0b f4 36 73 69 7a 65 25 |prite%..|..6size%|
|00002610| 3d a4 77 69 6d 70 5f 6d | 65 61 73 75 72 65 66 69 |=.wimp_m|easurefi|
|00002620| 6c 65 28 22 3c 50 72 69 | 6e 74 54 65 73 74 24 44 |le("<Pri|ntTest$D|
|00002630| 69 72 3e 2e 53 70 72 69 | 74 65 73 22 29 0d 0b fe |ir>.Spri|tes")...|
|00002640| 13 de 20 73 70 72 69 74 | 65 25 20 73 69 7a 65 25 |.. sprit|e% size%|
|00002650| 0d 0c 08 3b 64 25 3d a4 | 77 69 6d 70 5f 6c 6f 61 |...;d%=.|wimp_loa|
|00002660| 64 73 70 72 69 74 65 73 | 28 22 3c 50 72 69 6e 74 |dsprites|("<Print|
|00002670| 54 65 73 74 24 44 69 72 | 3e 2e 53 70 72 69 74 65 |Test$Dir|>.Sprite|
|00002680| 73 22 2c 73 70 72 69 74 | 65 25 29 0d 0c 12 05 e1 |s",sprit|e%).....|
|00002690| 0d 0c 1c 05 3a 0d 0c 26 | 16 dd 20 f2 72 65 61 64 |....:..&|.. .read|
|000026a0| 74 65 78 74 28 70 61 74 | 68 24 29 0d 0c 30 04 0d |text(pat|h$)..0..|
|000026b0| 0c 3a 4e 20 20 f4 20 2a | 2a 20 6c 6f 61 64 20 69 |.:N  . *|* load i|
|000026c0| 6e 20 74 65 78 74 66 69 | 6c 65 20 74 6f 20 61 72 |n textfi|le to ar|
|000026d0| 72 61 79 20 6c 69 6e 65 | 24 20 61 6e 64 20 63 61 |ray line|$ and ca|
|000026e0| 6c 63 75 6c 61 74 65 20 | 74 6f 74 61 6c 20 6e 75 |lculate |total nu|
|000026f0| 6d 62 65 72 20 6f 66 20 | 70 61 67 65 73 0d 0c 44 |mber of |pages..D|
|00002700| 4f 20 20 f4 20 2a 2a 20 | 6e 65 65 64 65 64 20 74 |O  . ** |needed t|
|00002710| 6f 20 64 69 73 70 6c 61 | 79 20 69 74 2c 20 74 61 |o displa|y it, ta|
|00002720| 6b 69 6e 67 20 69 6e 74 | 6f 20 61 63 63 6f 75 6e |king int|o accoun|
|00002730| 74 20 74 68 65 20 73 70 | 72 69 74 65 20 6f 6e 20 |t the sp|rite on |
|00002740| 70 61 67 65 20 31 20 6d | 65 61 6e 73 0d 0c 4e 32 |page 1 m|eans..N2|
|00002750| 20 20 f4 20 2a 2a 20 74 | 68 65 72 65 20 61 72 65 |  . ** t|here are|
|00002760| 20 6c 65 73 73 20 6c 69 | 6e 65 73 20 6f 6e 20 74 | less li|nes on t|
|00002770| 68 65 20 66 69 72 73 74 | 20 70 61 67 65 2e 0d 0c |he first| page...|
|00002780| 58 35 20 20 f4 20 2a 2a | 20 28 34 37 20 6c 69 6e |X5  . **| (47 lin|
|00002790| 65 73 20 6f 6e 20 66 69 | 72 73 74 20 70 61 67 65 |es on fi|rst page|
|000027a0| 2c 20 35 36 20 6f 6e 20 | 74 68 65 20 6f 74 68 65 |, 56 on |the othe|
|000027b0| 72 73 29 0d 0c 62 0e 58 | 3d 8e 28 70 61 74 68 24 |rs)..b.X|=.(path$|
|000027c0| 29 0d 0c 6c 11 74 6f 74 | 61 6c 6c 69 6e 65 73 25 |)..l.tot|allines%|
|000027d0| 3d 30 0d 0c 76 05 f5 0d | 0c 80 0c 20 20 61 24 3d |=0..v...|...  a$=|
|000027e0| be 23 58 0d 0c 8a 14 20 | 20 74 6f 74 61 6c 6c 69 |.#X.... | totalli|
|000027f0| 6e 65 73 25 2b 3d 31 0d | 0c 94 09 fd 20 c5 23 58 |nes%+=1.|.... .#X|
|00002800| 0d 0c 9e 07 d9 23 58 0d | 0c a8 18 de 20 6c 69 6e |.....#X.|.... lin|
|00002810| 65 24 28 74 6f 74 61 6c | 6c 69 6e 65 73 25 29 0d |e$(total|lines%).|
|00002820| 0c b2 0e 58 3d 8e 28 70 | 61 74 68 24 29 0d 0c bc |...X=.(p|ath$)...|
|00002830| 17 e3 20 4c 3d 31 20 b8 | 20 74 6f 74 61 6c 6c 69 |.. L=1 .| totalli|
|00002840| 6e 65 73 25 0d 0c c6 12 | 20 20 6c 69 6e 65 24 28 |nes%....|  line$(|
|00002850| 4c 29 3d be 23 58 0d 0c | d0 07 ed 20 4c 0d 0c da |L)=.#X..|... L...|
|00002860| 07 d9 23 58 0d 0c e4 1c | 6d 25 3d 28 74 6f 74 61 |..#X....|m%=(tota|
|00002870| 6c 6c 69 6e 65 73 25 2d | 34 37 29 20 83 20 35 36 |llines%-|47) . 56|
|00002880| 0d 0c ee 25 74 6f 74 61 | 6c 70 61 67 65 73 25 3d |...%tota|lpages%=|
|00002890| 28 74 6f 74 61 6c 6c 69 | 6e 65 73 25 2d 34 37 29 |(totalli|nes%-47)|
|000028a0| 20 81 20 35 36 0d 0c f8 | 19 e7 20 6d 25 3e 30 20 | . 56...|.. m%>0 |
|000028b0| 74 6f 74 61 6c 70 61 67 | 65 73 25 2b 3d 31 0d 0d |totalpag|es%+=1..|
|000028c0| 02 12 74 6f 74 61 6c 70 | 61 67 65 73 25 2b 3d 31 |..totalp|ages%+=1|
|000028d0| 0d 0d 0c 05 e1 0d 0d 16 | 05 3a 0d 0d 20 10 dd 20 |........|.:.. .. |
|000028e0| f2 64 65 63 63 6f 70 69 | 65 73 0d 0d 2a 04 0d 0d |.deccopi|es..*...|
|000028f0| 34 45 20 20 f4 20 2a 2a | 20 66 75 6e 63 74 69 6f |4E  . **| functio|
|00002900| 6e 20 74 6f 20 64 65 63 | 72 65 61 73 65 20 74 68 |n to dec|rease th|
|00002910| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 63 6f 70 69 |e number| of copi|
|00002920| 65 73 20 69 6e 20 70 72 | 69 6e 74 20 77 69 6e 64 |es in pr|int wind|
|00002930| 6f 77 2e 0d 0d 3e 11 e7 | 20 63 6f 70 69 65 73 25 |ow...>..| copies%|
|00002940| 3d 31 20 e1 0d 0d 48 0e | 63 6f 70 69 65 73 25 2d |=1 ...H.|copies%-|
|00002950| 3d 31 0d 0d 52 27 f2 77 | 69 6d 70 5f 70 75 74 69 |=1..R'.w|imp_puti|
|00002960| 63 6f 6e 74 65 78 74 28 | 70 72 6e 74 25 2c 33 2c |context(|prnt%,3,|
|00002970| c3 63 6f 70 69 65 73 25 | 29 0d 0d 5c 05 e1 0d 0d |.copies%|)..\....|
|00002980| 66 05 3a 0d 0d 70 10 dd | 20 f2 69 6e 63 63 6f 70 |f.:..p..| .inccop|
|00002990| 69 65 73 0d 0d 7a 04 0d | 0d 84 45 20 20 f4 20 2a |ies..z..|..E  . *|
|000029a0| 2a 20 66 75 6e 63 74 69 | 6f 6e 20 74 6f 20 69 6e |* functi|on to in|
|000029b0| 63 72 65 61 73 65 20 74 | 68 65 20 6e 75 6d 62 65 |crease t|he numbe|
|000029c0| 72 20 6f 66 20 63 6f 70 | 69 65 73 20 69 6e 20 70 |r of cop|ies in p|
|000029d0| 72 69 6e 74 20 77 69 6e | 64 6f 77 2e 0d 0d 8e 12 |rint win|dow.....|
|000029e0| e7 20 63 6f 70 69 65 73 | 25 3d 39 39 20 e1 0d 0d |. copies|%=99 ...|
|000029f0| 98 0e 63 6f 70 69 65 73 | 25 2b 3d 31 0d 0d a2 27 |..copies|%+=1...'|
|00002a00| f2 77 69 6d 70 5f 70 75 | 74 69 63 6f 6e 74 65 78 |.wimp_pu|ticontex|
|00002a10| 74 28 70 72 6e 74 25 2c | 33 2c c3 63 6f 70 69 65 |t(prnt%,|3,.copie|
|00002a20| 73 25 29 0d 0d ac 05 e1 | 0d 0d b6 05 3a 0d 0d c0 |s%).....|....:...|
|00002a30| 12 dd 20 f2 70 65 72 70 | 61 67 65 28 70 25 29 0d |.. .perp|age(p%).|
|00002a40| 0d ca 04 0d 0d d4 47 20 | 20 f4 20 2a 2a 20 66 75 |......G | . ** fu|
|00002a50| 6e 63 74 69 6f 6e 20 74 | 6f 20 63 6f 6e 74 72 6f |nction t|o contro|
|00002a60| 6c 20 74 68 65 20 70 65 | 72 70 61 67 65 20 72 61 |l the pe|rpage ra|
|00002a70| 64 69 6f 20 69 63 6f 6e | 73 20 69 6e 20 70 72 69 |dio icon|s in pri|
|00002a80| 6e 74 20 77 69 6e 64 6f | 77 2e 0d 0d de 5e e7 20 |nt windo|w....^. |
|00002a90| 70 25 3d 31 20 f2 77 69 | 6d 70 5f 69 63 6f 6e 73 |p%=1 .wi|mp_icons|
|00002aa0| 65 6c 65 63 74 28 70 72 | 6e 74 25 2c 37 2c 31 29 |elect(pr|nt%,7,1)|
|00002ab0| 3a f2 77 69 6d 70 5f 69 | 63 6f 6e 73 65 6c 65 63 |:.wimp_i|conselec|
|00002ac0| 74 28 70 72 6e 74 25 2c | 38 2c 30 29 3a f2 77 69 |t(prnt%,|8,0):.wi|
|00002ad0| 6d 70 5f 69 63 6f 6e 73 | 65 6c 65 63 74 28 70 72 |mp_icons|elect(pr|
|00002ae0| 6e 74 25 2c 39 2c 30 29 | 0d 0d e8 5e e7 20 70 25 |nt%,9,0)|...^. p%|
|00002af0| 3d 32 20 f2 77 69 6d 70 | 5f 69 63 6f 6e 73 65 6c |=2 .wimp|_iconsel|
|00002b00| 65 63 74 28 70 72 6e 74 | 25 2c 37 2c 30 29 3a f2 |ect(prnt|%,7,0):.|
|00002b10| 77 69 6d 70 5f 69 63 6f | 6e 73 65 6c 65 63 74 28 |wimp_ico|nselect(|
|00002b20| 70 72 6e 74 25 2c 38 2c | 31 29 3a f2 77 69 6d 70 |prnt%,8,|1):.wimp|
|00002b30| 5f 69 63 6f 6e 73 65 6c | 65 63 74 28 70 72 6e 74 |_iconsel|ect(prnt|
|00002b40| 25 2c 39 2c 30 29 0d 0d | f2 5e e7 20 70 25 3d 34 |%,9,0)..|.^. p%=4|
|00002b50| 20 f2 77 69 6d 70 5f 69 | 63 6f 6e 73 65 6c 65 63 | .wimp_i|conselec|
|00002b60| 74 28 70 72 6e 74 25 2c | 37 2c 30 29 3a f2 77 69 |t(prnt%,|7,0):.wi|
|00002b70| 6d 70 5f 69 63 6f 6e 73 | 65 6c 65 63 74 28 70 72 |mp_icons|elect(pr|
|00002b80| 6e 74 25 2c 38 2c 30 29 | 3a f2 77 69 6d 70 5f 69 |nt%,8,0)|:.wimp_i|
|00002b90| 63 6f 6e 73 65 6c 65 63 | 74 28 70 72 6e 74 25 2c |conselec|t(prnt%,|
|00002ba0| 39 2c 31 29 0d 0d fc 05 | e1 0d 0e 06 05 3a 0d 0e |9,1)....|.....:..|
|00002bb0| 10 0e dd 20 f2 69 6e 63 | 70 61 67 65 0d 0e 1a 04 |... .inc|page....|
|00002bc0| 0d 0e 24 3e 20 20 f4 20 | 2a 2a 20 66 75 6e 63 74 |..$>  . |** funct|
|00002bd0| 69 6f 6e 20 74 6f 20 69 | 6e 63 72 65 6d 65 6e 74 |ion to i|ncrement|
|00002be0| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 70 61 67 | the cur|rent pag|
|00002bf0| 65 20 62 65 69 6e 67 20 | 73 68 6f 77 6e 2e 0d 0e |e being |shown...|
|00002c00| 2e 22 e7 20 63 75 72 72 | 65 6e 74 70 61 67 65 25 |.". curr|entpage%|
|00002c10| 2b 31 3e 74 6f 74 61 6c | 70 61 67 65 73 25 20 e1 |+1>total|pages% .|
|00002c20| 0d 0e 38 13 63 75 72 72 | 65 6e 74 70 61 67 65 25 |..8.curr|entpage%|
|00002c30| 2b 3d 31 0d 0e 42 41 f2 | 77 69 6d 70 5f 70 75 74 |+=1..BA.|wimp_put|
|00002c40| 77 69 6e 64 6f 77 74 69 | 74 6c 65 28 6d 61 69 6e |windowti|tle(main|
|00002c50| 25 2c 22 50 72 69 6e 74 | 54 65 73 74 20 2d 20 50 |%,"Print|Test - P|
|00002c60| 61 67 65 20 22 2b c3 63 | 75 72 72 65 6e 74 70 61 |age "+.c|urrentpa|
|00002c70| 67 65 25 29 0d 0e 4c 1d | f2 77 69 6d 70 5f 72 65 |ge%)..L.|.wimp_re|
|00002c80| 64 72 61 77 77 69 6e 64 | 6f 77 28 6d 61 69 6e 25 |drawwind|ow(main%|
|00002c90| 29 0d 0e 56 05 e1 0d 0e | 60 05 3a 0d 0e 6a 0e dd |)..V....|`.:..j..|
|00002ca0| 20 f2 64 65 63 70 61 67 | 65 0d 0e 74 04 0d 0e 7e | .decpag|e..t...~|
|00002cb0| 3e 20 20 f4 20 2a 2a 20 | 66 75 6e 63 74 69 6f 6e |>  . ** |function|
|00002cc0| 20 74 6f 20 64 65 63 72 | 65 6d 65 6e 74 20 74 68 | to decr|ement th|
|00002cd0| 65 20 63 75 72 72 65 6e | 74 20 70 61 67 65 20 62 |e curren|t page b|
|00002ce0| 65 69 6e 67 20 73 68 6f | 77 6e 2e 0d 0e 88 18 e7 |eing sho|wn......|
|00002cf0| 20 63 75 72 72 65 6e 74 | 70 61 67 65 25 2d 31 3c | current|page%-1<|
|00002d00| 31 20 e1 0d 0e 92 13 63 | 75 72 72 65 6e 74 70 61 |1 .....c|urrentpa|
|00002d10| 67 65 25 2d 3d 31 0d 0e | 9c 41 f2 77 69 6d 70 5f |ge%-=1..|.A.wimp_|
|00002d20| 70 75 74 77 69 6e 64 6f | 77 74 69 74 6c 65 28 6d |putwindo|wtitle(m|
|00002d30| 61 69 6e 25 2c 22 50 72 | 69 6e 74 54 65 73 74 20 |ain%,"Pr|intTest |
|00002d40| 2d 20 50 61 67 65 20 22 | 2b c3 63 75 72 72 65 6e |- Page "|+.curren|
|00002d50| 74 70 61 67 65 25 29 0d | 0e a6 1d f2 77 69 6d 70 |tpage%).|....wimp|
|00002d60| 5f 72 65 64 72 61 77 77 | 69 6e 64 6f 77 28 6d 61 |_redraww|indow(ma|
|00002d70| 69 6e 25 29 0d 0e b0 05 | e1 0d 0e ba 05 3a 0d 0e |in%)....|.....:..|
|00002d80| c4 0c dd 20 f2 70 72 69 | 6e 74 0d 0e ce 04 0d 0e |... .pri|nt......|
|00002d90| d8 2d 20 20 f4 20 2a 2a | 20 63 6c 6f 73 65 20 6d |.-  . **| close m|
|00002da0| 65 6e 75 20 61 6e 64 20 | 63 6c 6f 73 65 20 70 72 |enu and |close pr|
|00002db0| 69 6e 74 20 77 69 6e 64 | 6f 77 2e 0d 0e e2 2c f2 |int wind|ow....,.|
|00002dc0| 77 69 6d 70 5f 6d 65 6e | 75 63 6c 6f 73 65 3a f2 |wimp_men|uclose:.|
|00002dd0| 77 69 6d 70 5f 63 6c 6f | 73 65 77 69 6e 64 6f 77 |wimp_clo|sewindow|
|00002de0| 28 70 72 6e 74 25 29 0d | 0e ec 04 0d 0e f6 4c 20 |(prnt%).|......L |
|00002df0| 20 f4 20 2a 2a 20 72 65 | 61 64 20 72 61 6e 67 65 | . ** re|ad range|
|00002e00| 20 6f 66 20 70 61 67 65 | 73 20 74 6f 20 70 72 69 | of page|s to pri|
|00002e10| 6e 74 20 66 72 6f 6d 20 | 70 72 69 6e 74 20 77 69 |nt from |print wi|
|00002e20| 6e 64 6f 77 20 61 6e 64 | 20 6d 61 6b 65 20 73 75 |ndow and| make su|
|00002e30| 72 65 20 74 68 61 74 0d | 0f 00 40 20 20 f4 20 2a |re that.|..@  . *|
|00002e40| 2a 20 69 66 20 74 68 65 | 79 20 61 72 65 20 6e 6f |* if the|y are no|
|00002e50| 74 20 76 61 6c 69 64 2c | 20 63 68 61 6e 67 65 20 |t valid,| change |
|00002e60| 74 68 65 6d 20 73 6f 20 | 74 68 65 79 20 61 72 65 |them so |they are|
|00002e70| 20 76 61 6c 69 64 2e 0d | 0f 0a 17 20 20 f4 20 2a | valid..|...  . *|
|00002e80| 2a 20 28 66 72 6f 6d 20 | 3c 3d 20 74 6f 29 0d 0f |* (from |<= to)..|
|00002e90| 14 28 66 72 6f 6d 25 3d | bb 28 a4 77 69 6d 70 5f |.(from%=|.(.wimp_|
|00002ea0| 67 65 74 69 63 6f 6e 74 | 65 78 74 28 70 72 6e 74 |geticont|ext(prnt|
|00002eb0| 25 2c 31 31 29 29 0d 0f | 1e 26 74 6f 25 3d bb 28 |%,11))..|.&to%=.(|
|00002ec0| a4 77 69 6d 70 5f 67 65 | 74 69 63 6f 6e 74 65 78 |.wimp_ge|ticontex|
|00002ed0| 74 28 70 72 6e 74 25 2c | 31 33 29 29 0d 0f 28 15 |t(prnt%,|13))..(.|
|00002ee0| e7 20 66 72 6f 6d 25 3c | 31 20 66 72 6f 6d 25 3d |. from%<|1 from%=|
|00002ef0| 31 0d 0f 32 29 e7 20 66 | 72 6f 6d 25 3e 74 6f 74 |1..2). f|rom%>tot|
|00002f00| 61 6c 70 61 67 65 73 25 | 20 66 72 6f 6d 25 3d 74 |alpages%| from%=t|
|00002f10| 6f 74 61 6c 70 61 67 65 | 73 25 0d 0f 3c 11 e7 20 |otalpage|s%..<.. |
|00002f20| 74 6f 25 3c 31 20 74 6f | 25 3d 31 0d 0f 46 25 e7 |to%<1 to|%=1..F%.|
|00002f30| 20 74 6f 25 3e 74 6f 74 | 61 6c 70 61 67 65 73 25 | to%>tot|alpages%|
|00002f40| 20 74 6f 25 3d 74 6f 74 | 61 6c 70 61 67 65 73 25 | to%=tot|alpages%|
|00002f50| 0d 0f 50 19 e7 20 74 6f | 25 3c 66 72 6f 6d 25 20 |..P.. to|%<from% |
|00002f60| 74 6f 25 3d 66 72 6f 6d | 25 0d 0f 5a 04 0d 0f 64 |to%=from|%..Z...d|
|00002f70| 4c 20 20 f4 20 2a 2a 20 | 70 75 74 20 72 61 6e 67 |L  . ** |put rang|
|00002f80| 65 20 6f 66 20 70 61 67 | 65 20 6e 75 6d 62 65 72 |e of pag|e number|
|00002f90| 73 20 62 61 63 6b 20 69 | 6e 74 6f 20 70 72 69 6e |s back i|nto prin|
|00002fa0| 74 20 77 69 6e 64 6f 77 | 20 69 6e 63 61 73 65 20 |t window| incase |
|00002fb0| 74 68 65 79 20 68 61 76 | 65 0d 0f 6e 1a 20 20 f4 |they hav|e..n.  .|
|00002fc0| 20 2a 2a 20 62 65 65 6e | 20 63 6f 72 72 65 63 74 | ** been| correct|
|00002fd0| 65 64 2e 0d 0f 78 47 f2 | 77 69 6d 70 5f 70 75 74 |ed...xG.|wimp_put|
|00002fe0| 69 63 6f 6e 74 65 78 74 | 28 70 72 6e 74 25 2c 31 |icontext|(prnt%,1|
|00002ff0| 31 2c c3 66 72 6f 6d 25 | 29 3a f2 77 69 6d 70 5f |1,.from%|):.wimp_|
|00003000| 70 75 74 69 63 6f 6e 74 | 65 78 74 28 70 72 6e 74 |puticont|ext(prnt|
|00003010| 25 2c 31 33 2c c3 74 6f | 25 29 0d 0f 82 04 0d 0f |%,13,.to|%)......|
|00003020| 8c 40 20 20 f4 20 2a 2a | 20 6f 70 65 6e 20 70 72 |.@  . **| open pr|
|00003030| 69 6e 74 20 70 72 6f 67 | 72 65 73 73 20 77 69 6e |int prog|ress win|
|00003040| 64 6f 77 20 61 6e 64 20 | 73 65 74 20 70 72 6f 67 |dow and |set prog|
|00003050| 72 65 73 73 20 62 61 72 | 20 74 6f 20 30 2e 0d 0f |ress bar| to 0...|
|00003060| 96 20 f2 77 69 6d 70 5f | 6f 70 65 6e 77 69 6e 64 |. .wimp_|openwind|
|00003070| 6f 77 28 70 72 6f 67 25 | 2c 31 2c 2d 31 29 0d 0f |ow(prog%|,1,-1)..|
|00003080| a0 1a f2 77 69 6d 70 5f | 62 61 72 28 70 72 6f 67 |...wimp_|bar(prog|
|00003090| 25 2c 32 2c 30 2c 30 29 | 0d 0f aa 04 0d 0f b4 2c |%,2,0,0)|.......,|
|000030a0| 20 20 f4 20 2a 2a 20 73 | 65 74 20 70 72 69 6e 74 |  . ** s|et print|
|000030b0| 69 6e 67 20 63 61 6e 63 | 65 6c 6c 65 64 20 66 61 |ing canc|elled fa|
|000030c0| 6c 67 20 74 6f 20 30 2e | 0d 0f be 0d 63 61 6e 63 |lg to 0.|....canc|
|000030d0| 65 6c 25 3d 30 0d 0f c8 | 04 0d 0f d2 11 20 20 f4 |el%=0...|.....  .|
|000030e0| 20 2a 2a 20 70 72 69 6e | 74 2e 0d 0f dc 33 f2 77 | ** prin|t....3.w|
|000030f0| 69 6d 70 5f 70 72 69 6e | 74 28 30 2c 6d 61 69 6e |imp_prin|t(0,main|
|00003100| 25 2c 66 72 6f 6d 25 2c | 74 6f 25 2c 70 65 72 70 |%,from%,|to%,perp|
|00003110| 61 67 65 25 2c 63 6f 70 | 69 65 73 25 29 0d 0f e6 |age%,cop|ies%)...|
|00003120| 04 0d 0f f0 38 20 20 f4 | 20 2a 2a 20 77 68 65 6e |....8  .| ** when|
|00003130| 20 70 72 69 6e 74 69 6e | 67 20 66 69 6e 69 73 68 | printin|g finish|
|00003140| 65 64 20 63 6c 6f 73 65 | 20 70 72 69 6e 74 69 6e |ed close| printin|
|00003150| 67 20 77 69 6e 64 6f 77 | 2e 0d 0f fa 1c f2 77 69 |g window|......wi|
|00003160| 6d 70 5f 63 6c 6f 73 65 | 77 69 6e 64 6f 77 28 70 |mp_close|window(p|
|00003170| 72 6f 67 25 29 0d 10 04 | 05 e1 0d ff             |rog%)...|....    |
+--------+-------------------------+-------------------------+--------+--------+