/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / d / drwimp / DrWimp / Examples / !ViewPage / !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 17 61 | 70 70 6e 61 6d 65 24 3d |..:..(.a|ppname$=|
|00000040| 22 56 69 65 77 50 61 67 | 65 22 0d 00 32 05 3a 0d |"ViewPag|e"..2.:.|
|00000050| 00 3c 1b 76 65 72 24 3d | 22 31 2e 30 30 20 28 32 |.<.ver$=|"1.00 (2|
|00000060| 39 2d 4d 61 79 2d 39 37 | 29 22 0d 00 46 35 ee 20 |9-May-97|)"..F5. |
|00000070| 85 20 f2 77 69 6d 70 5f | 65 72 72 6f 72 28 61 70 |. .wimp_|error(ap|
|00000080| 70 6e 61 6d 65 24 2c f6 | 24 2b 22 20 61 74 20 6c |pname$,.|$+" at l|
|00000090| 69 6e 65 20 22 2b c3 9e | 2c 31 2c 31 29 3a e0 0d |ine "+..|,1,1):..|
|000000a0| 00 50 04 0d 00 5a 4e 20 | 20 f4 20 2a 2a 20 69 6e |.P...ZN | . ** in|
|000000b0| 69 74 61 6c 69 73 65 20 | 74 68 65 20 74 61 73 6b |italise |the task|
|000000c0| 20 61 6e 64 20 6c 6f 61 | 64 20 69 6e 20 74 68 65 | and loa|d in the|
|000000d0| 20 77 69 6e 64 6f 77 73 | 20 66 72 6f 6d 20 74 68 | windows| from th|
|000000e0| 65 20 74 65 6d 70 6c 61 | 74 65 73 20 66 69 6c 65 |e templa|tes file|
|000000f0| 2e 0d 00 64 32 74 61 73 | 6b 25 3d a4 77 69 6d 70 |...d2tas|k%=.wimp|
|00000100| 5f 69 6e 69 74 69 61 6c | 69 73 65 28 61 70 70 6e |_initial|ise(appn|
|00000110| 61 6d 65 24 2c 37 30 30 | 30 2c 37 30 30 30 2c 33 |ame$,700|0,7000,3|
|00000120| 30 30 29 0d 00 6e 3f 69 | 6e 66 6f 25 3d a4 77 69 |00)..n?i|nfo%=.wi|
|00000130| 6d 70 5f 6c 6f 61 64 77 | 69 6e 64 6f 77 28 22 3c |mp_loadw|indow("<|
|00000140| 56 69 65 77 50 61 67 65 | 24 44 69 72 3e 2e 54 65 |ViewPage|$Dir>.Te|
|00000150| 6d 70 6c 61 74 65 73 22 | 2c 22 69 6e 66 6f 22 2c |mplates"|,"info",|
|00000160| 30 29 0d 00 78 3f 6d 61 | 69 6e 25 3d a4 77 69 6d |0)..x?ma|in%=.wim|
|00000170| 70 5f 6c 6f 61 64 77 69 | 6e 64 6f 77 28 22 3c 56 |p_loadwi|ndow("<V|
|00000180| 69 65 77 50 61 67 65 24 | 44 69 72 3e 2e 54 65 6d |iewPage$|Dir>.Tem|
|00000190| 70 6c 61 74 65 73 22 2c | 22 6d 61 69 6e 22 2c 30 |plates",|"main",0|
|000001a0| 29 0d 00 82 04 0d 00 8c | 28 20 20 f4 20 2a 2a 20 |).......|(  . ** |
|000001b0| 70 75 74 20 64 65 74 61 | 69 6c 73 20 69 6e 74 6f |put deta|ils into|
|000001c0| 20 69 6e 66 6f 20 77 69 | 6e 64 6f 77 2e 0d 00 96 | info wi|ndow....|
|000001d0| 29 f2 77 69 6d 70 5f 70 | 75 74 69 63 6f 6e 74 65 |).wimp_p|uticonte|
|000001e0| 78 74 28 69 6e 66 6f 25 | 2c 30 2c 22 56 69 65 77 |xt(info%|,0,"View|
|000001f0| 50 61 67 65 22 29 0d 00 | a0 35 f2 77 69 6d 70 5f |Page")..|.5.wimp_|
|00000200| 70 75 74 69 63 6f 6e 74 | 65 78 74 28 69 6e 66 6f |puticont|ext(info|
|00000210| 25 2c 31 2c 22 44 72 57 | 69 6d 70 20 64 65 6d 6f |%,1,"DrW|imp demo|
|00000220| 6e 73 74 72 61 74 69 6f | 6e 22 29 0d 00 aa 33 f2 |nstratio|n")...3.|
|00000230| 77 69 6d 70 5f 70 75 74 | 69 63 6f 6e 74 65 78 74 |wimp_put|icontext|
|00000240| 28 69 6e 66 6f 25 2c 32 | 2c 22 a9 20 41 6e 64 72 |(info%,2|,". Andr|
|00000250| 65 77 20 41 79 72 65 20 | 31 39 39 36 22 29 0d 00 |ew Ayre |1996")..|
|00000260| b4 23 f2 77 69 6d 70 5f | 70 75 74 69 63 6f 6e 74 |.#.wimp_|puticont|
|00000270| 65 78 74 28 69 6e 66 6f | 25 2c 34 2c 76 65 72 24 |ext(info|%,4,ver$|
|00000280| 29 0d 00 be 04 0d 00 c8 | 4c 20 20 f4 20 2a 2a 20 |).......|L  . ** |
|00000290| 70 75 74 20 69 63 6f 6e | 20 6f 6e 74 6f 20 69 63 |put icon| onto ic|
|000002a0| 6f 6e 62 61 72 20 69 63 | 6f 6e 2c 20 6f 6e 20 74 |onbar ic|on, on t|
|000002b0| 68 65 20 72 69 67 68 74 | 20 77 69 74 68 20 6e 6f |he right| with no|
|000002c0| 20 74 65 78 74 20 75 6e | 64 65 72 6e 65 61 74 68 | text un|derneath|
|000002d0| 2e 0d 00 d2 29 62 61 72 | 25 3d a4 77 69 6d 70 5f |....)bar|%=.wimp_|
|000002e0| 69 63 6f 6e 62 61 72 28 | 22 21 22 2b 61 70 70 6e |iconbar(|"!"+appn|
|000002f0| 61 6d 65 24 2c 22 22 2c | 31 29 0d 00 dc 04 0d 00 |ame$,"",|1)......|
|00000300| e6 4b 20 20 f4 20 2a 2a | 20 63 72 65 61 74 65 20 |.K  . **| create |
|00000310| 69 63 6f 6e 62 61 72 20 | 6d 65 6e 75 20 61 6e 64 |iconbar |menu and|
|00000320| 20 61 74 74 61 63 68 20 | 69 6e 66 6f 20 77 69 6e | attach |info win|
|00000330| 64 6f 77 20 61 73 20 73 | 75 62 6d 65 6e 75 20 74 |dow as s|ubmenu t|
|00000340| 6f 20 69 74 65 6d 20 31 | 2e 0d 00 f0 35 62 61 72 |o item 1|....5bar|
|00000350| 6d 65 6e 75 25 3d a4 77 | 69 6d 70 5f 63 72 65 61 |menu%=.w|imp_crea|
|00000360| 74 65 6d 65 6e 75 28 22 | 56 69 65 77 50 61 67 65 |temenu("|ViewPage|
|00000370| 2f 49 6e 66 6f 2f 51 75 | 69 74 22 2c 30 29 0d 00 |/Info/Qu|it",0)..|
|00000380| fa 29 f2 77 69 6d 70 5f | 61 74 74 61 63 68 73 75 |.).wimp_|attachsu|
|00000390| 62 6d 65 6e 75 28 62 61 | 72 6d 65 6e 75 25 2c 31 |bmenu(ba|rmenu%,1|
|000003a0| 2c 69 6e 66 6f 25 29 0d | 01 04 04 0d 01 0e 19 20 |,info%).|....... |
|000003b0| 20 f4 20 2a 2a 20 70 6f | 6c 6c 20 74 68 65 20 77 | . ** po|ll the w|
|000003c0| 69 6d 70 2e 0d 01 18 0e | f2 77 69 6d 70 5f 70 6f |imp.....|.wimp_po|
|000003d0| 6c 6c 0d 01 22 05 e0 0d | 01 2c 05 3a 0d 01 36 43 |ll.."...|.,.:..6C|
|000003e0| dd 20 f2 75 73 65 72 5f | 72 65 64 72 61 77 28 77 |. .user_|redraw(w|
|000003f0| 69 6e 64 6f 77 25 2c 6d | 69 6e 78 25 2c 6d 69 6e |indow%,m|inx%,min|
|00000400| 79 25 2c 6d 61 78 78 25 | 2c 6d 61 78 79 25 2c 70 |y%,maxx%|,maxy%,p|
|00000410| 72 69 6e 74 69 6e 67 25 | 2c 70 61 67 65 25 29 0d |rinting%|,page%).|
|00000420| 01 40 15 e7 20 77 69 6e | 64 6f 77 25 3d 6d 61 69 |.@.. win|dow%=mai|
|00000430| 6e 25 20 8c 0d 01 4a 04 | 0d 01 54 37 20 20 20 20 |n% ...J.|..T7    |
|00000440| f4 20 2a 2a 20 69 66 20 | 6d 61 69 6e 20 77 69 6e |. ** if |main win|
|00000450| 64 6f 77 20 6e 65 65 64 | 73 20 74 6f 20 62 65 20 |dow need|s to be |
|00000460| 72 65 64 72 61 77 6e 20 | 74 68 65 6e 2e 2e 2e 0d |redrawn |then....|
|00000470| 01 5e 53 20 20 20 20 f4 | 20 2a 2a 20 63 61 6c 63 |.^S    .| ** calc|
|00000480| 75 6c 61 74 65 20 73 63 | 72 65 65 6e 20 63 6f 6f |ulate sc|reen coo|
|00000490| 72 64 73 20 66 6f 72 20 | 62 6f 74 74 6f 6d 20 6c |rds for |bottom l|
|000004a0| 65 66 74 20 63 6f 72 6e | 65 72 20 6f 66 20 70 61 |eft corn|er of pa|
|000004b0| 67 65 20 72 65 70 72 65 | 73 65 6e 74 61 74 69 6f |ge repre|sentatio|
|000004c0| 6e 2e 0d 01 68 2f 20 20 | 78 25 3d a4 77 69 6d 70 |n...h/  |x%=.wimp|
|000004d0| 5f 77 6f 72 6b 74 6f 73 | 63 72 65 65 6e 28 6d 61 |_worktos|creen(ma|
|000004e0| 69 6e 25 2c 28 35 31 36 | 2d 77 25 29 2f 32 2c 30 |in%,(516|-w%)/2,0|
|000004f0| 29 0d 01 72 29 20 20 79 | 25 3d a4 77 69 6d 70 5f |)..r)  y|%=.wimp_|
|00000500| 77 6f 72 6b 74 6f 73 63 | 72 65 65 6e 28 6d 61 69 |worktosc|reen(mai|
|00000510| 6e 25 2c 2d 34 39 32 2c | 31 29 0d 01 7c 04 0d 01 |n%,-492,|1)..|...|
|00000520| 86 3e 20 20 20 20 f4 20 | 2a 2a 20 73 65 74 20 47 |.>    . |** set G|
|00000530| 43 4f 4c 20 63 6f 6c 6f | 75 72 20 74 6f 20 6d 69 |COL colo|ur to mi|
|00000540| 64 2d 67 72 65 79 20 61 | 6e 64 20 64 72 61 77 20 |d-grey a|nd draw |
|00000550| 61 20 72 65 63 74 61 6e | 67 6c 65 2e 0d 01 90 22 |a rectan|gle...."|
|00000560| 20 20 f2 77 69 6d 70 5f | 73 65 74 63 6f 6c 6f 75 |  .wimp_|setcolou|
|00000570| 72 28 31 36 30 2c 31 36 | 30 2c 31 36 30 29 0d 01 |r(160,16|0,160)..|
|00000580| 9a 17 20 20 c8 93 20 c8 | 90 20 78 25 2c 79 25 2c |..  .. .|. x%,y%,|
|00000590| 77 25 2c 68 25 0d 01 a4 | 04 0d 01 ae 41 20 20 20 |w%,h%...|....A   |
|000005a0| 20 f4 20 2a 2a 20 73 65 | 74 20 47 43 4f 4c 20 63 | . ** se|t GCOL c|
|000005b0| 6f 6c 6f 75 72 20 74 6f | 20 77 68 69 74 65 20 61 |olour to| white a|
|000005c0| 6e 64 20 64 72 61 77 20 | 61 6e 6f 74 68 65 72 20 |nd draw |another |
|000005d0| 72 65 63 74 61 6e 67 6c | 65 2e 0d 01 b8 22 20 20 |rectangl|e...."  |
|000005e0| f2 77 69 6d 70 5f 73 65 | 74 63 6f 6c 6f 75 72 28 |.wimp_se|tcolour(|
|000005f0| 32 35 35 2c 32 35 35 2c | 32 35 35 29 0d 01 c2 27 |255,255,|255)...'|
|00000600| 20 20 c8 93 20 c8 90 20 | 78 25 2b 6c 6d 25 2c 79 |  .. .. |x%+lm%,y|
|00000610| 25 2b 62 6d 25 2c 72 25 | 2d 6c 6d 25 2c 74 25 2d |%+bm%,r%|-lm%,t%-|
|00000620| 62 6d 25 0d 01 cc 05 cd | 0d 01 d6 05 e1 0d 01 e0 |bm%.....|........|
|00000630| 05 3a 0d 01 ea 3b dd 20 | f2 75 73 65 72 5f 6d 6f |.:...;. |.user_mo|
|00000640| 75 73 65 63 6c 69 63 6b | 28 77 69 6e 64 6f 77 25 |useclick|(window%|
|00000650| 2c 69 63 6f 6e 25 2c 62 | 75 74 74 6f 6e 25 2c 77 |,icon%,b|utton%,w|
|00000660| 6f 72 6b 78 25 2c 77 6f | 72 6b 79 25 29 0d 01 f4 |orkx%,wo|rky%)...|
|00000670| 04 0d 01 fe 47 20 20 f4 | 20 2a 2a 20 69 66 20 69 |....G  .| ** if i|
|00000680| 63 6f 6e 62 61 72 20 69 | 63 6f 6e 20 63 6c 69 63 |conbar i|con clic|
|00000690| 6b 65 64 20 6f 6e 20 74 | 68 65 6e 20 63 68 65 63 |ked on t|hen chec|
|000006a0| 6b 20 70 72 69 6e 74 65 | 72 20 64 72 69 76 65 72 |k printe|r driver|
|000006b0| 20 6c 6f 61 64 65 64 2e | 0d 02 08 23 e7 20 77 69 | loaded.|...#. wi|
|000006c0| 6e 64 6f 77 25 3d 62 61 | 72 25 20 f2 63 68 65 63 |ndow%=ba|r% .chec|
|000006d0| 6b 66 6f 72 70 64 72 69 | 76 65 72 0d 02 12 04 0d |kforpdri|ver.....|
|000006e0| 02 1c 4c 20 20 f4 20 2a | 2a 20 69 66 20 63 6c 6f |..L  . *|* if clo|
|000006f0| 73 65 20 62 75 74 74 6f | 6e 20 63 6c 69 63 6b 65 |se butto|n clicke|
|00000700| 64 20 6f 6e 20 69 6e 20 | 6d 61 69 6e 20 77 69 6e |d on in |main win|
|00000710| 64 6f 77 20 74 68 65 6e | 20 63 6c 6f 73 65 20 6d |dow then| close m|
|00000720| 61 69 6e 20 77 69 6e 64 | 6f 77 2e 0d 02 26 36 e7 |ain wind|ow...&6.|
|00000730| 20 77 69 6e 64 6f 77 25 | 3d 6d 61 69 6e 25 20 80 | window%|=main% .|
|00000740| 20 69 63 6f 6e 25 3d 31 | 20 f2 77 69 6d 70 5f 63 | icon%=1| .wimp_c|
|00000750| 6c 6f 73 65 77 69 6e 64 | 6f 77 28 6d 61 69 6e 25 |losewind|ow(main%|
|00000760| 29 0d 02 30 05 e1 0d 02 | 3a 05 3a 0d 02 44 1f dd |)..0....|:.:..D..|
|00000770| 20 a4 75 73 65 72 5f 6d | 65 6e 75 28 77 69 6e 64 | .user_m|enu(wind|
|00000780| 6f 77 25 2c 69 63 6f 6e | 25 29 0d 02 4e 04 0d 02 |ow%,icon|%)..N...|
|00000790| 58 2f 20 20 f4 20 2a 2a | 20 61 74 74 61 63 68 20 |X/  . **| attach |
|000007a0| 69 63 6f 6e 62 61 72 20 | 6d 65 6e 75 20 74 6f 20 |iconbar |menu to |
|000007b0| 69 63 6f 6e 62 61 72 20 | 69 63 6f 6e 2e 0d 02 62 |iconbar |icon...b|
|000007c0| 1c e7 20 77 69 6e 64 6f | 77 25 3d 62 61 72 25 20 |.. windo|w%=bar% |
|000007d0| 3d 62 61 72 6d 65 6e 75 | 25 0d 02 6c 06 3d 30 0d |=barmenu|%..l.=0.|
|000007e0| 02 76 05 3a 0d 02 80 2c | dd 20 f2 75 73 65 72 5f |.v.:...,|. .user_|
|000007f0| 6f 70 65 6e 77 69 6e 64 | 6f 77 28 77 69 6e 64 6f |openwind|ow(windo|
|00000800| 77 25 2c 78 25 2c 79 25 | 2c 73 74 61 63 6b 25 29 |w%,x%,y%|,stack%)|
|00000810| 0d 02 8a 05 e1 0d 02 94 | 05 3a 0d 02 9e 20 dd 20 |........|.:... . |
|00000820| f2 75 73 65 72 5f 63 6c | 6f 73 65 77 69 6e 64 6f |.user_cl|osewindo|
|00000830| 77 28 77 69 6e 64 6f 77 | 25 29 0d 02 a8 05 e1 0d |w(window|%)......|
|00000840| 02 b2 05 3a 0d 02 bc 27 | dd 20 a4 75 73 65 72 5f |...:...'|. .user_|
|00000850| 6b 65 79 70 72 65 73 73 | 28 77 69 6e 64 6f 77 25 |keypress|(window%|
|00000860| 2c 69 63 6f 6e 25 2c 6b | 65 79 29 0d 02 c6 06 3d |,icon%,k|ey)....=|
|00000870| 30 0d 02 d0 05 3a 0d 02 | da 26 dd 20 f2 75 73 65 |0....:..|.&. .use|
|00000880| 72 5f 6d 65 6e 75 73 65 | 6c 65 63 74 69 6f 6e 28 |r_menuse|lection(|
|00000890| 6d 65 6e 75 25 2c 69 74 | 65 6d 25 29 0d 02 e4 04 |menu%,it|em%)....|
|000008a0| 0d 02 ee 4e 20 20 f4 20 | 2a 2a 20 69 66 20 73 65 |...N  . |** if se|
|000008b0| 63 6f 6e 64 20 69 74 65 | 6d 20 6f 6e 20 69 63 6f |cond ite|m on ico|
|000008c0| 6e 62 61 72 20 6d 65 6e | 75 20 63 68 6f 73 65 6e |nbar men|u chosen|
|000008d0| 20 74 68 65 6e 20 73 65 | 74 20 66 69 6e 69 73 68 | then se|t finish|
|000008e0| 65 64 25 20 74 6f 20 54 | 52 55 45 20 73 6f 0d 02 |ed% to T|RUE so..|
|000008f0| f8 1d 20 20 f4 20 2a 2a | 20 61 70 70 6c 69 63 61 |..  . **| applica|
|00000900| 74 69 6f 6e 20 71 75 69 | 74 73 2e 0d 03 02 2a e7 |tion qui|ts....*.|
|00000910| 20 6d 65 6e 75 25 3d 62 | 61 72 6d 65 6e 75 25 20 | menu%=b|armenu% |
|00000920| 80 20 69 74 65 6d 25 3d | 32 20 66 69 6e 69 73 68 |. item%=|2 finish|
|00000930| 65 64 25 3d b9 0d 03 0c | 05 e1 0d 03 16 05 3a 0d |ed%=....|......:.|
|00000940| 03 20 21 dd 20 a4 75 73 | 65 72 5f 73 61 76 65 66 |. !. .us|er_savef|
|00000950| 69 6c 65 74 79 70 65 28 | 77 69 6e 64 6f 77 25 29 |iletype(|window%)|
|00000960| 0d 03 2a 07 3d 22 22 0d | 03 34 05 3a 0d 03 3e 34 |..*.="".|.4.:..>4|
|00000970| dd 20 f2 75 73 65 72 5f | 73 61 76 65 69 63 6f 6e |. .user_|saveicon|
|00000980| 28 77 69 6e 64 6f 77 25 | 2c f8 20 64 72 61 67 25 |(window%|,. drag%|
|00000990| 2c f8 20 77 72 69 74 65 | 25 2c f8 20 6f 6b 25 29 |,. write|%,. ok%)|
|000009a0| 0d 03 48 05 e1 0d 03 52 | 05 3a 0d 03 5c 23 dd 20 |..H....R|.:..\#. |
|000009b0| a4 75 73 65 72 5f 73 61 | 76 65 64 61 74 61 28 70 |.user_sa|vedata(p|
|000009c0| 61 74 68 24 2c 77 69 6e | 64 6f 77 25 29 0d 03 66 |ath$,win|dow%)..f|
|000009d0| 06 3d 31 0d 03 70 05 3a | 0d 03 7a 1f dd 20 a4 75 |.=1..p.:|..z.. .u|
|000009e0| 73 65 72 5f 68 65 6c 70 | 28 77 69 6e 64 6f 77 25 |ser_help|(window%|
|000009f0| 2c 69 63 6f 6e 25 29 0d | 03 84 07 3d 22 22 0d 03 |,icon%).|...=""..|
|00000a00| 8e 05 3a 0d 03 98 21 dd | 20 a4 75 73 65 72 5f 6d |..:...!.| .user_m|
|00000a10| 65 6e 75 68 65 6c 70 28 | 6d 65 6e 75 25 2c 69 74 |enuhelp(|menu%,it|
|00000a20| 65 6d 25 29 0d 03 a2 07 | 3d 22 22 0d 03 ac 05 3a |em%)....|=""....:|
|00000a30| 0d 03 b6 3e dd 20 a4 75 | 73 65 72 5f 6c 6f 61 64 |...>. .u|ser_load|
|00000a40| 64 61 74 61 28 70 61 74 | 68 24 2c 77 69 6e 64 6f |data(pat|h$,windo|
|00000a50| 77 25 2c 69 63 6f 6e 25 | 2c 66 74 79 70 65 24 2c |w%,icon%|,ftype$,|
|00000a60| 77 6f 72 6b 78 25 2c 77 | 6f 72 6b 79 25 29 0d 03 |workx%,w|orky%)..|
|00000a70| c0 06 3d 30 0d 03 ca 05 | 3a 0d 03 d4 23 dd 20 f2 |..=0....|:...#. .|
|00000a80| 75 73 65 72 5f 65 6e 74 | 65 72 69 6e 67 77 69 6e |user_ent|eringwin|
|00000a90| 64 6f 77 28 77 69 6e 64 | 6f 77 25 29 0d 03 de 05 |dow(wind|ow%)....|
|00000aa0| e1 0d 03 e8 05 3a 0d 03 | f2 22 dd 20 f2 75 73 65 |.....:..|.". .use|
|00000ab0| 72 5f 6c 65 61 76 69 6e | 67 77 69 6e 64 6f 77 28 |r_leavin|gwindow(|
|00000ac0| 77 69 6e 64 6f 77 25 29 | 0d 03 fc 05 e1 0d 04 06 |window%)|........|
|00000ad0| 05 3a 0d 04 10 19 dd 20 | a4 75 73 65 72 5f 70 61 |.:..... |.user_pa|
|00000ae0| 6e 65 28 77 69 6e 64 6f | 77 25 29 0d 04 1a 07 3d |ne(windo|w%)....=|
|00000af0| 2d 31 0d 04 24 05 3a 0d | 04 2e 10 dd 20 f2 75 73 |-1..$.:.|.... .us|
|00000b00| 65 72 5f 6e 75 6c 6c 0d | 04 38 05 e1 0d 04 42 05 |er_null.|.8....B.|
|00000b10| 3a 0d 04 4c 21 dd 20 f2 | 75 73 65 72 5f 6d 65 6e |:..L!. .|user_men|
|00000b20| 75 6f 70 65 6e 28 6d 65 | 6e 75 25 2c 69 63 6f 6e |uopen(me|nu%,icon|
|00000b30| 25 29 0d 04 56 05 e1 0d | 04 60 05 3a 0d 04 6a 25 |%)..V...|.`.:..j%|
|00000b40| dd 20 a4 75 73 65 72 5f | 73 6c 69 64 65 72 62 61 |. .user_|sliderba|
|00000b50| 63 6b 28 77 69 6e 64 6f | 77 25 2c 69 63 6f 6e 25 |ck(windo|w%,icon%|
|00000b60| 29 0d 04 74 07 3d 2d 31 | 0d 04 7e 05 3a 0d 04 88 |)..t.=-1|..~.:...|
|00000b70| 21 dd 20 a4 75 73 65 72 | 5f 73 6c 69 64 65 72 28 |!. .user|_slider(|
|00000b80| 77 69 6e 64 6f 77 25 2c | 69 63 6f 6e 25 29 0d 04 |window%,|icon%)..|
|00000b90| 92 07 3d 2d 31 0d 04 9c | 05 3a 0d 04 a6 2d dd 20 |..=-1...|.:...-. |
|00000ba0| f2 75 73 65 72 5f 73 6c | 69 64 65 72 76 61 6c 75 |.user_sl|idervalu|
|00000bb0| 65 28 77 69 6e 64 6f 77 | 25 2c 69 63 6f 6e 25 2c |e(window|%,icon%,|
|00000bc0| 70 63 65 6e 74 25 29 0d | 04 b0 05 e1 0d 04 ba 05 |pcent%).|........|
|00000bd0| 3a 0d 04 c4 16 dd 20 f2 | 75 73 65 72 5f 6d 6f 64 |:..... .|user_mod|
|00000be0| 65 63 68 61 6e 67 65 0d | 04 ce 05 e1 0d 04 d8 05 |echange.|........|
|00000bf0| 3a 0d 04 e2 18 dd 20 f2 | 75 73 65 72 5f 64 65 63 |:..... .|user_dec|
|00000c00| 6c 61 72 65 66 6f 6e 74 | 73 0d 04 ec 05 e1 0d 04 |larefont|s.......|
|00000c10| f6 05 3a 0d 05 00 30 dd | 20 f2 75 73 65 72 5f 70 |..:...0.| .user_p|
|00000c20| 72 69 6e 74 28 6d 69 6e | 78 25 2c 6d 69 6e 79 25 |rint(min|x%,miny%|
|00000c30| 2c 6d 61 78 78 25 2c 6d | 61 78 79 25 2c 70 61 67 |,maxx%,m|axy%,pag|
|00000c40| 65 25 29 0d 05 0a 05 e1 | 0d 05 14 05 3a 0d 05 1e |e%).....|....:...|
|00000c50| 34 dd 20 a4 75 73 65 72 | 5f 70 72 69 6e 74 69 6e |4. .user|_printin|
|00000c60| 67 28 63 6f 70 79 25 2c | 70 61 67 65 25 2c 74 6f |g(copy%,|page%,to|
|00000c70| 74 70 61 67 65 73 25 2c | 70 61 67 65 70 6f 73 25 |tpages%,|pagepos%|
|00000c80| 29 0d 05 28 06 3d 30 0d | 05 32 05 3a 0d 05 3c 19 |)..(.=0.|.2.:..<.|
|00000c90| dd 20 f2 75 73 65 72 5f | 70 72 69 6e 74 65 72 63 |. .user_|printerc|
|00000ca0| 68 61 6e 67 65 0d 05 46 | 04 0d 05 50 53 20 20 f4 |hange..F|...PS  .|
|00000cb0| 20 2a 2a 20 69 66 20 70 | 72 69 6e 74 65 72 20 68 | ** if p|rinter h|
|00000cc0| 61 73 20 63 68 61 6e 67 | 65 64 20 74 68 65 6e 20 |as chang|ed then |
|00000cd0| 72 65 61 64 20 6e 65 77 | 20 70 61 70 65 72 20 73 |read new| paper s|
|00000ce0| 69 7a 65 73 20 61 6e 64 | 20 72 65 64 72 61 77 20 |izes and| redraw |
|00000cf0| 6d 61 69 6e 20 77 69 6e | 64 6f 77 2e 0d 05 5a 12 |main win|dow...Z.|
|00000d00| f2 72 65 61 64 70 61 70 | 65 72 73 69 7a 65 0d 05 |.readpap|ersize..|
|00000d10| 64 1d f2 77 69 6d 70 5f | 72 65 64 72 61 77 77 69 |d..wimp_|redrawwi|
|00000d20| 6e 64 6f 77 28 6d 61 69 | 6e 25 29 0d 05 6e 05 e1 |ndow(mai|n%)..n..|
|00000d30| 0d 05 78 05 3a 0d 05 82 | 16 dd 20 f2 63 68 65 63 |..x.:...|.. .chec|
|00000d40| 6b 66 6f 72 70 64 72 69 | 76 65 72 0d 05 8c 04 0d |kforpdri|ver.....|
|00000d50| 05 96 4f 20 20 f4 20 2a | 2a 20 63 68 65 63 6b 20 |..O  . *|* check |
|00000d60| 74 6f 20 73 65 65 20 69 | 66 20 70 72 69 6e 74 65 |to see i|f printe|
|00000d70| 72 20 64 72 69 76 65 72 | 20 69 73 20 6c 6f 61 64 |r driver| is load|
|00000d80| 65 64 2e 20 49 66 20 6e | 6f 74 20 74 68 65 6e 20 |ed. If n|ot then |
|00000d90| 67 69 76 65 20 61 6e 20 | 65 72 72 6f 72 2e 0d 05 |give an |error...|
|00000da0| a0 20 6c 6f 61 64 65 64 | 25 3d a4 77 69 6d 70 5f |. loaded|%=.wimp_|
|00000db0| 70 64 72 69 76 65 72 70 | 72 65 73 65 6e 74 0d 05 |pdriverp|resent..|
|00000dc0| aa 5f e7 20 6c 6f 61 64 | 65 64 25 3d 30 20 f2 77 |._. load|ed%=0 .w|
|00000dd0| 69 6d 70 5f 65 72 72 6f | 72 28 61 70 70 6e 61 6d |imp_erro|r(appnam|
|00000de0| 65 24 2c 22 50 72 69 6e | 74 65 72 20 6d 6f 64 75 |e$,"Prin|ter modu|
|00000df0| 6c 65 20 6e 6f 74 20 6c | 6f 61 64 65 64 2e 20 54 |le not l|oaded. T|
|00000e00| 72 79 20 6c 6f 61 64 69 | 6e 67 20 21 50 72 69 6e |ry loadi|ng !Prin|
|00000e10| 74 65 72 73 2e 22 2c 31 | 2c 31 29 3a e1 0d 05 b4 |ters.",1|,1):....|
|00000e20| 04 0d 05 be 4a 20 20 f4 | 20 2a 2a 20 69 66 20 70 |....J  .| ** if p|
|00000e30| 72 69 6e 74 65 72 20 64 | 72 69 76 65 72 20 6c 6f |rinter d|river lo|
|00000e40| 61 64 65 64 20 72 65 61 | 64 20 70 61 70 65 72 20 |aded rea|d paper |
|00000e50| 73 69 7a 65 73 20 61 6e | 64 20 6f 70 65 6e 20 6d |sizes an|d open m|
|00000e60| 61 69 6e 20 77 69 6e 64 | 6f 77 2e 0d 05 c8 12 f2 |ain wind|ow......|
|00000e70| 72 65 61 64 70 61 70 65 | 72 73 69 7a 65 0d 05 d2 |readpape|rsize...|
|00000e80| 20 f2 77 69 6d 70 5f 6f | 70 65 6e 77 69 6e 64 6f | .wimp_o|penwindo|
|00000e90| 77 28 6d 61 69 6e 25 2c | 31 2c 2d 31 29 0d 05 dc |w(main%,|1,-1)...|
|00000ea0| 05 e1 0d 05 e6 05 3a 0d | 05 f0 14 dd 20 f2 72 65 |......:.|.... .re|
|00000eb0| 61 64 70 61 70 65 72 73 | 69 7a 65 0d 05 fa 04 0d |adpapers|ize.....|
|00000ec0| 06 04 37 20 20 f4 20 2a | 2a 20 72 65 61 64 20 70 |..7  . *|* read p|
|00000ed0| 61 70 65 72 73 69 7a 65 | 73 20 61 6e 64 20 73 63 |apersize|s and sc|
|00000ee0| 61 6c 65 20 74 6f 20 66 | 69 74 20 69 6e 74 6f 20 |ale to f|it into |
|00000ef0| 77 69 6e 64 6f 77 0d 06 | 0e 34 20 20 f4 20 2a 2a |window..|.4  . **|
|00000f00| 20 28 34 36 38 20 77 69 | 64 65 20 6f 72 20 68 69 | (468 wi|de or hi|
|00000f10| 67 68 20 77 68 69 63 68 | 20 65 76 65 72 20 69 73 |gh which| ever is|
|00000f20| 20 67 72 65 61 74 65 72 | 29 2e 0d 06 18 1e 77 25 | greater|).....w%|
|00000f30| 3d a4 77 69 6d 70 5f 67 | 65 74 70 61 70 65 72 73 |=.wimp_g|etpapers|
|00000f40| 69 7a 65 28 30 2c 30 29 | 0d 06 22 1e 68 25 3d a4 |ize(0,0)|..".h%=.|
|00000f50| 77 69 6d 70 5f 67 65 74 | 70 61 70 65 72 73 69 7a |wimp_get|papersiz|
|00000f60| 65 28 31 2c 30 29 0d 06 | 2c 19 e7 20 68 25 3e 3d |e(1,0)..|,.. h%>=|
|00000f70| 77 25 20 73 63 61 6c 65 | 3d 68 25 2f 34 36 38 0d |w% scale|=h%/468.|
|00000f80| 06 36 18 e7 20 77 25 3e | 68 25 20 73 63 61 6c 65 |.6.. w%>|h% scale|
|00000f90| 3d 77 25 2f 34 36 38 0d | 06 40 0f 77 25 3d 77 25 |=w%/468.|.@.w%=w%|
|00000fa0| 2f 73 63 61 6c 65 0d 06 | 4a 0f 68 25 3d 68 25 2f |/scale..|J.h%=h%/|
|00000fb0| 73 63 61 6c 65 0d 06 54 | 25 6c 6d 25 3d a4 77 69 |scale..T|%lm%=.wi|
|00000fc0| 6d 70 5f 67 65 74 70 61 | 70 65 72 73 69 7a 65 28 |mp_getpa|persize(|
|00000fd0| 30 2c 31 29 2f 73 63 61 | 6c 65 0d 06 5e 24 72 25 |0,1)/sca|le..^$r%|
|00000fe0| 3d a4 77 69 6d 70 5f 67 | 65 74 70 61 70 65 72 73 |=.wimp_g|etpapers|
|00000ff0| 69 7a 65 28 30 2c 33 29 | 2f 73 63 61 6c 65 0d 06 |ize(0,3)|/scale..|
|00001000| 68 25 62 6d 25 3d a4 77 | 69 6d 70 5f 67 65 74 70 |h%bm%=.w|imp_getp|
|00001010| 61 70 65 72 73 69 7a 65 | 28 31 2c 31 29 2f 73 63 |apersize|(1,1)/sc|
|00001020| 61 6c 65 0d 06 72 24 74 | 25 3d a4 77 69 6d 70 5f |ale..r$t|%=.wimp_|
|00001030| 67 65 74 70 61 70 65 72 | 73 69 7a 65 28 31 2c 33 |getpaper|size(1,3|
|00001040| 29 2f 73 63 61 6c 65 0d | 06 7c 05 e1 0d ff       |)/scale.|.|....  |
+--------+-------------------------+-------------------------+--------+--------+