/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / print / progs / label / !Label / Label

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0d f4 20 3e 20 | 4c 61 62 65 6c 0d 00 14 |..... > |Label...|
|00000010| 04 0d 00 1e 20 ee 20 85 | 20 f2 65 72 72 6f 72 20 |.... . .| .error |
|00000020| 3a 20 f2 63 6c 6f 73 65 | 5f 64 6f 77 6e 20 3a 20 |: .close|_down : |
|00000030| e0 0d 00 28 04 0d 00 32 | 05 3a 0d 00 3c 23 3a 20 |...(...2|.:..<#: |
|00000040| f4 20 49 6e 69 74 69 61 | 6c 69 73 65 20 57 69 6d |. Initia|lise Wim|
|00000050| 70 20 65 6e 76 69 72 6f | 6e 6d 65 6e 74 0d 00 46 |p enviro|nment..F|
|00000060| 05 3a 0d 00 50 04 0d 00 | 5a 15 c8 99 20 22 48 6f |.:..P...|Z... "Ho|
|00000070| 75 72 67 6c 61 73 73 5f | 4f 6e 22 0d 00 64 18 c8 |urglass_|On"..d..|
|00000080| 99 20 22 4f 53 5f 47 65 | 74 45 6e 76 22 20 b8 20 |. "OS_Ge|tEnv" . |
|00000090| 63 6d 64 0d 00 6e 04 0d | 00 78 10 f2 77 69 6d 70 |cmd..n..|.x..wimp|
|000000a0| 5f 63 6f 6e 73 74 73 0d | 00 82 1b f2 76 61 72 69 |_consts.|....vari|
|000000b0| 61 62 6c 65 73 20 3a 20 | f2 74 65 6d 70 5f 76 61 |ables : |.temp_va|
|000000c0| 72 73 0d 00 8c 25 76 65 | 72 73 20 3d 20 a4 77 69 |rs...%ve|rs = .wi|
|000000d0| 6d 70 5f 69 6e 69 74 28 | 62 6c 6b 2c 22 4c 61 62 |mp_init(|blk,"Lab|
|000000e0| 65 6c 6c 65 72 22 29 0d | 00 96 04 0d 00 a0 20 e7 |eller").|...... .|
|000000f0| 20 a4 67 65 74 65 6e 76 | 28 22 57 69 6d 70 24 53 | .getenv|("Wimp$S|
|00000100| 63 72 61 70 22 29 3d 22 | 22 20 8c 0d 00 aa 28 20 |crap")="|" ....( |
|00000110| 85 20 a2 20 30 2c 22 3c | 57 69 6d 70 24 53 63 72 |. . 0,"<|Wimp$Scr|
|00000120| 61 70 3e 20 69 73 20 6e | 6f 74 20 64 65 66 69 6e |ap> is n|ot defin|
|00000130| 65 64 22 0d 00 b4 05 cd | 0d 00 be 04 0d 00 c8 32 |ed".....|.......2|
|00000140| 73 70 72 69 74 65 73 20 | 3d 20 a4 6c 6f 61 64 5f |sprites |= .load_|
|00000150| 73 70 72 69 74 65 73 28 | 22 3c 4c 61 62 65 6c 24 |sprites(|"<Label$|
|00000160| 44 69 72 3e 2e 53 70 72 | 69 74 65 73 22 29 0d 00 |Dir>.Spr|ites")..|
|00000170| d2 1f 69 5f 69 63 6f 6e | 20 3d 20 a4 69 63 6f 6e |..i_icon| = .icon|
|00000180| 62 61 72 28 22 21 6c 61 | 62 65 6c 22 29 0d 00 dc |bar("!la|bel")...|
|00000190| 04 0d 00 e6 33 c8 99 20 | 22 57 69 6d 70 5f 4f 70 |....3.. |"Wimp_Op|
|000001a0| 65 6e 54 65 6d 70 6c 61 | 74 65 22 2c 2c 22 3c 4c |enTempla|te",,"<L|
|000001b0| 61 62 65 6c 24 44 69 72 | 3e 2e 54 65 6d 70 6c 61 |abel$Dir|>.Templa|
|000001c0| 74 65 73 22 0d 00 f0 20 | 77 5f 69 6e 66 6f 20 3d |tes"... |w_info =|
|000001d0| 20 a4 6c 6f 61 64 5f 64 | 65 66 28 22 49 4e 46 4f | .load_d|ef("INFO|
|000001e0| 22 2c 30 29 0d 00 fa 27 | 77 5f 66 69 6c 65 20 3d |",0)...'|w_file =|
|000001f0| 20 a4 6c 6f 61 64 5f 64 | 65 66 28 22 46 49 4c 45 | .load_d|ef("FILE|
|00000200| 53 22 2c 73 70 72 69 74 | 65 73 29 0d 01 04 29 77 |S",sprit|es)...)w|
|00000210| 5f 73 65 74 20 3d 20 a4 | 6c 6f 61 64 5f 64 65 66 |_set = .|load_def|
|00000220| 28 22 53 45 54 54 49 4e | 47 53 22 2c 73 70 72 69 |("SETTIN|GS",spri|
|00000230| 74 65 73 29 0d 01 0e 25 | 77 5f 64 69 6d 20 3d 20 |tes)...%|w_dim = |
|00000240| a4 6c 6f 61 64 5f 64 65 | 66 28 22 44 49 4d 45 4e |.load_de|f("DIMEN|
|00000250| 53 49 4f 4e 53 22 2c 30 | 29 0d 01 18 26 77 5f 73 |SIONS",0|)...&w_s|
|00000260| 61 76 65 20 3d 20 a4 6c | 6f 61 64 5f 64 65 66 28 |ave = .l|oad_def(|
|00000270| 22 53 41 56 45 22 2c 73 | 70 72 69 74 65 73 29 0d |"SAVE",s|prites).|
|00000280| 01 22 2c 77 5f 74 65 78 | 74 20 3d 20 a4 6c 6f 61 |.",w_tex|t = .loa|
|00000290| 64 5f 64 65 66 28 22 54 | 45 58 54 22 2c 30 29 20 |d_def("T|EXT",0) |
|000002a0| 3a 20 f2 67 65 74 5f 69 | 63 6f 6e 0d 01 2c 1b c8 |: .get_i|con..,..|
|000002b0| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 54 65 6d |. "Wimp_|CloseTem|
|000002c0| 70 6c 61 74 65 22 0d 01 | 36 04 0d 01 40 3b 69 5f |plate"..|6...@;i_|
|000002d0| 66 5f 64 61 74 61 20 3d | 20 34 20 3a 20 69 5f 66 |f_data =| 4 : i_f|
|000002e0| 5f 73 65 74 20 3d 20 33 | 20 3a 20 69 5f 66 5f 70 |_set = 3| : i_f_p|
|000002f0| 72 74 20 3d 20 35 20 3a | 20 69 5f 66 5f 74 79 70 |rt = 5 :| i_f_typ|
|00000300| 65 20 3d 20 30 0d 01 4a | 4d 69 5f 64 5f 77 69 64 |e = 0..J|Mi_d_wid|
|00000310| 74 68 20 3d 20 37 20 3a | 20 69 5f 64 5f 68 70 20 |th = 7 :| i_d_hp |
|00000320| 3d 20 38 20 3a 20 69 5f | 64 5f 6f 66 66 20 3d 20 |= 8 : i_|d_off = |
|00000330| 31 31 20 3a 20 69 5f 64 | 5f 69 6e 64 20 3d 20 31 |11 : i_d|_ind = 1|
|00000340| 32 20 3a 20 69 5f 64 5f | 68 65 69 67 68 74 20 3d |2 : i_d_|height =|
|00000350| 20 39 0d 01 54 3d 69 5f | 64 5f 76 70 20 3d 20 31 | 9..T=i_|d_vp = 1|
|00000360| 30 20 3a 20 69 5f 64 5f | 75 6e 69 74 20 3d 20 31 |0 : i_d_|unit = 1|
|00000370| 34 20 3a 20 69 5f 64 5f | 75 70 20 3d 20 31 35 20 |4 : i_d_|up = 15 |
|00000380| 3a 20 69 5f 64 5f 64 6f | 77 6e 20 3d 20 31 36 0d |: i_d_do|wn = 16.|
|00000390| 01 5e 42 69 5f 73 5f 73 | 31 20 3d 20 35 20 3a 20 |.^Bi_s_s|1 = 5 : |
|000003a0| 69 5f 73 5f 73 32 20 3d | 20 36 20 3a 20 69 5f 73 |i_s_s2 =| 6 : i_s|
|000003b0| 5f 73 33 20 3d 20 37 20 | 3a 20 69 5f 73 5f 6a 6c |_s3 = 7 |: i_s_jl|
|000003c0| 20 3d 20 38 20 3a 20 69 | 5f 73 5f 6a 63 20 3d 20 | = 8 : i|_s_jc = |
|000003d0| 39 0d 01 68 4e 69 5f 73 | 5f 6a 72 20 3d 20 31 30 |9..hNi_s|_jr = 10|
|000003e0| 20 3a 20 69 5f 73 5f 6e | 6f 72 6d 20 3d 20 31 38 | : i_s_n|orm = 18|
|000003f0| 20 3a 20 69 5f 73 5f 6e | 6c 71 20 3d 20 31 39 20 | : i_s_n|lq = 19 |
|00000400| 3a 20 69 5f 73 5f 62 6f | 6c 64 20 3d 20 32 30 20 |: i_s_bo|ld = 20 |
|00000410| 3a 20 69 5f 73 5f 69 74 | 61 6c 20 3d 20 32 31 0d |: i_s_it|al = 21.|
|00000420| 01 72 4d 69 5f 73 5f 72 | 65 64 20 3d 20 32 32 20 |.rMi_s_r|ed = 22 |
|00000430| 3a 20 69 5f 73 5f 75 6e | 64 65 72 20 3d 20 32 33 |: i_s_un|der = 23|
|00000440| 20 3a 20 69 5f 73 5f 70 | 35 20 3d 20 31 31 20 3a | : i_s_p|5 = 11 :|
|00000450| 20 69 5f 73 5f 70 31 30 | 20 3d 20 31 32 20 3a 20 | i_s_p10| = 12 : |
|00000460| 69 5f 73 5f 70 31 32 20 | 3d 20 31 33 0d 01 7c 3a |i_s_p12 |= 13..|:|
|00000470| 69 5f 73 5f 70 31 37 20 | 3d 20 31 34 20 3a 20 69 |i_s_p17 |= 14 : i|
|00000480| 5f 73 5f 6c 34 20 3d 20 | 31 35 20 3a 20 69 5f 73 |_s_l4 = |15 : i_s|
|00000490| 5f 6c 36 20 3d 20 31 36 | 20 3a 20 69 5f 73 5f 6c |_l6 = 16| : i_s_l|
|000004a0| 38 20 3d 20 31 37 0d 01 | 86 0f 69 5f 74 5f 64 65 |8 = 17..|..i_t_de|
|000004b0| 66 20 3d 20 30 0d 01 90 | 2c 69 5f 76 5f 69 63 6f |f = 0...|,i_v_ico|
|000004c0| 6e 20 3d 20 30 20 3a 20 | 69 5f 76 5f 6e 61 6d 65 |n = 0 : |i_v_name|
|000004d0| 20 3d 20 31 20 3a 20 69 | 5f 76 5f 6f 6b 20 3d 20 | = 1 : i|_v_ok = |
|000004e0| 32 0d 01 9a 35 65 73 67 | 5f 73 5f 73 74 6f 63 6b |2...5esg|_s_stock|
|000004f0| 20 3d 20 31 20 3a 20 65 | 73 67 5f 73 5f 6a 75 73 | = 1 : e|sg_s_jus|
|00000500| 74 20 3d 20 32 20 3a 20 | 65 73 67 5f 73 5f 74 79 |t = 2 : |esg_s_ty|
|00000510| 70 65 20 3d 20 35 0d 01 | a4 22 65 73 67 5f 73 5f |pe = 5..|."esg_s_|
|00000520| 70 69 74 20 3d 20 33 20 | 3a 20 65 73 67 5f 73 5f |pit = 3 |: esg_s_|
|00000530| 6c 69 6e 65 20 3d 20 34 | 0d 01 ae 11 65 73 67 5f |line = 4|....esg_|
|00000540| 64 5f 73 65 74 20 3d 20 | 31 0d 01 b8 11 46 20 3d |d_set = |1....F =|
|00000550| 20 a3 20 3a 20 54 20 3d | 20 b9 0d 01 c2 04 0d 01 | . : T =| .......|
|00000560| cc 05 3a 0d 01 d6 45 3a | 20 f4 20 46 69 6c 65 20 |..:...E:| . File |
|00000570| 74 79 70 65 20 6e 75 6d | 62 65 72 20 2d 20 63 68 |type num|ber - ch|
|00000580| 61 6e 67 65 20 74 68 69 | 73 20 69 66 20 6e 65 63 |ange thi|s if nec|
|00000590| 65 73 73 61 72 79 20 74 | 6f 20 61 76 6f 69 64 20 |essary t|o avoid |
|000005a0| 63 6c 61 73 68 69 6e 67 | 0d 01 e0 46 3a 20 f4 20 |clashing|...F: . |
|000005b0| 28 61 6c 73 6f 20 72 65 | 6e 61 6d 65 20 73 70 72 |(also re|name spr|
|000005c0| 69 74 65 73 20 69 6e 20 | 21 53 70 72 69 74 65 73 |ites in |!Sprites|
|000005d0| 20 61 6e 64 20 53 70 72 | 69 74 65 73 20 66 69 6c | and Spr|ites fil|
|000005e0| 65 73 2c 20 61 6e 64 20 | 63 68 61 6e 67 65 0d 01 |es, and |change..|
|000005f0| ea 26 3a 20 f4 20 76 61 | 72 69 61 62 6c 65 20 64 |.&: . va|riable d|
|00000600| 65 66 69 6e 69 74 69 6f | 6e 73 20 69 6e 20 21 42 |efinitio|ns in !B|
|00000610| 6f 6f 74 29 0d 01 f4 05 | 3a 0d 01 fe 04 0d 02 08 |oot)....|:.......|
|00000620| 13 66 69 6c 65 74 79 70 | 65 20 3d 20 26 34 30 37 |.filetyp|e = &407|
|00000630| 0d 02 12 04 0d 02 1c 3a | 73 65 74 66 69 6c 65 24 |.......:|setfile$|
|00000640| 20 3d 20 22 22 20 3a 20 | 6c 61 62 66 69 6c 65 24 | = "" : |labfile$|
|00000650| 20 3d 20 22 22 20 3a 20 | 65 6e 74 65 72 20 3d 20 | = "" : |enter = |
|00000660| 54 20 3a 20 64 69 72 65 | 63 74 20 3d 20 46 0d 02 |T : dire|ct = F..|
|00000670| 26 27 73 63 72 61 70 66 | 69 6c 65 24 20 3d 20 a4 |&'scrapf|ile$ = .|
|00000680| 67 65 74 65 6e 76 28 22 | 4c 61 62 65 6c 24 53 63 |getenv("|Label$Sc|
|00000690| 72 61 70 22 29 0d 02 30 | 60 e7 20 73 63 72 61 70 |rap")..0|`. scrap|
|000006a0| 66 69 6c 65 24 3d 22 22 | 20 8c 20 f2 77 61 72 6e |file$=""| . .warn|
|000006b0| 28 22 3c 4c 61 62 65 6c | 24 53 63 72 61 70 3e 20 |("<Label|$Scrap> |
|000006c0| 69 73 20 6e 6f 74 20 64 | 65 66 69 6e 65 64 2c 20 |is not d|efined, |
|000006d0| 6d 61 69 6c 20 6d 65 72 | 67 65 20 6d 6f 64 65 20 |mail mer|ge mode |
|000006e0| 77 69 6c 6c 20 62 65 20 | 75 6e 61 76 61 69 6c 61 |will be |unavaila|
|000006f0| 62 6c 65 22 29 0d 02 3a | 0d f2 64 65 66 61 75 6c |ble")..:|..defaul|
|00000700| 74 73 0d 02 44 04 0d 02 | 4e 0f 6c 6f 61 64 5f 6f |ts..D...|N.load_o|
|00000710| 6b 20 3d 20 46 0d 02 58 | 44 c8 99 20 22 58 4f 53 |k = F..X|D.. "XOS|
|00000720| 5f 52 65 61 64 41 72 67 | 73 22 2c 22 70 61 72 61 |_ReadArg|s","para|
|00000730| 6d 2f 6b 2c 71 75 69 74 | 2f 73 2c 2c 2c 2c 2c 2c |m/k,quit|/s,,,,,,|
|00000740| 2c 2c 2c 22 2c 63 6d 64 | 2c 62 6c 6b 2c 34 30 30 |,,,",cmd|,blk,400|
|00000750| 20 b8 20 3b 66 6c 61 67 | 73 0d 02 62 1a e7 20 28 | . ;flag|s..b.. (|
|00000760| 66 6c 61 67 73 20 80 20 | 31 29 3d 31 20 8c 20 8d |flags . |1)=1 . .|
|00000770| 74 5e 42 0d 02 6c 0f 20 | 70 70 20 3d 20 62 6c 6b |t^B..l. |pp = blk|
|00000780| 21 30 0d 02 76 0e 20 e7 | 20 70 70 3c 3e 30 20 8c |!0..v. .| pp<>0 .|
|00000790| 0d 02 80 0f 20 20 f2 7a | 65 72 6f 28 70 70 29 0d |....  .z|ero(pp).|
|000007a0| 02 8a 1b 20 20 f2 6c 6f | 61 64 5f 70 61 72 61 6d |...  .lo|ad_param|
|000007b0| 73 28 24 70 70 2c 54 2c | 54 29 0d 02 94 06 20 cc |s($pp,T,|T).... .|
|000007c0| 0d 02 9e 2e 20 20 f2 6c | 6f 61 64 5f 70 61 72 61 |....  .l|oad_para|
|000007d0| 6d 73 28 22 3c 4c 61 62 | 65 6c 24 44 69 72 3e 2e |ms("<Lab|el$Dir>.|
|000007e0| 44 65 66 61 75 6c 74 73 | 22 2c 54 2c 46 29 0d 02 |Defaults|",T,F)..|
|000007f0| a8 06 20 cd 0d 02 b2 05 | cd 0d 02 bc 18 e7 20 ac |.. .....|...... .|
|00000800| 20 6c 6f 61 64 5f 6f 6b | 20 8c 20 e5 20 8d 54 74 | load_ok| . . .Tt|
|00000810| 43 0d 02 c6 0d f2 63 6c | 72 5f 74 65 78 74 0d 02 |C.....cl|r_text..|
|00000820| d0 04 0d 02 da 0e 64 69 | 72 65 63 74 20 3d 20 46 |......di|rect = F|
|00000830| 0d 02 e4 07 ea 20 85 0d | 02 ee 1d ee 20 85 20 ea |..... ..|.... . .|
|00000840| 20 64 69 72 65 63 74 20 | 3d 20 54 20 3a 20 e5 20 | direct |= T : . |
|00000850| 8d 54 42 43 0d 02 f8 16 | c8 99 20 22 58 50 44 72 |.TBC....|.. "XPDr|
|00000860| 69 76 65 72 5f 49 6e 66 | 6f 22 0d 03 02 07 f7 20 |iver_Inf|o"..... |
|00000870| 85 0d 03 0c 04 0d 03 16 | 16 c8 99 20 22 48 6f 75 |........|... "Hou|
|00000880| 72 67 6c 61 73 73 5f 4f | 66 66 22 0d 03 20 2b f2 |rglass_O|ff".. +.|
|00000890| 70 6f 6c 6c 28 22 69 64 | 6c 65 22 2c 52 6d 5f 4e |poll("id|le",Rm_N|
|000008a0| 75 6c 6c 2b 52 6d 5f 45 | 6e 74 65 72 2b 52 6d 5f |ull+Rm_E|nter+Rm_|
|000008b0| 4c 65 61 76 65 29 0d 03 | 2a 2d e7 20 73 63 72 61 |Leave)..|*-. scra|
|000008c0| 70 66 69 6c 65 24 3c 3e | 22 22 20 8c 20 ff 20 22 |pfile$<>|"" . . "|
|000008d0| 52 65 6d 6f 76 65 20 22 | 2b 73 63 72 61 70 66 69 |Remove "|+scrapfi|
|000008e0| 6c 65 24 0d 03 34 0f f2 | 63 6c 6f 73 65 5f 64 6f |le$..4..|close_do|
|000008f0| 77 6e 0d 03 3e 05 e0 0d | 03 48 04 0d 03 52 0e dd |wn..>...|.H...R..|
|00000900| 20 f2 7a 65 72 6f 28 73 | 29 0d 03 5c 05 3a 0d 03 | .zero(s|)..\.:..|
|00000910| 66 35 3a 20 f4 20 43 52 | 2d 74 65 72 6d 69 6e 61 |f5: . CR|-termina|
|00000920| 74 65 20 74 68 65 20 67 | 69 76 65 6e 20 7a 65 72 |te the g|iven zer|
|00000930| 6f 2d 74 65 72 6d 69 6e | 61 74 65 64 20 73 74 72 |o-termin|ated str|
|00000940| 69 6e 67 0d 03 70 05 3a | 0d 03 7a 0d 20 e7 20 73 |ing..p.:|..z. . s|
|00000950| 3c 3e 30 20 8c 0d 03 84 | 1c 20 20 c8 95 20 3f 73 |<>0 ....|.  .. ?s|
|00000960| 3e 3d 33 32 20 3a 20 73 | 20 2b 3d 20 31 20 3a 20 |>=32 : s| += 1 : |
|00000970| ce 0d 03 8e 0d 20 20 3f | 73 20 3d 20 31 33 0d 03 |.....  ?|s = 13..|
|00000980| 98 06 20 cd 0d 03 a2 05 | e1 0d 03 ac 04 0d 03 b6 |.. .....|........|
|00000990| 18 dd 20 f2 68 65 6c 70 | 28 77 69 6e 64 6f 77 2c |.. .help|(window,|
|000009a0| 69 63 6f 6e 29 0d 03 c0 | 0b ea 20 62 6c 6f 63 6b |icon)...|.. block|
|000009b0| 0d 03 ca 05 3a 0d 03 d4 | 2c 3a 20 f4 20 53 65 6e |....:...|,: . Sen|
|000009c0| 64 20 62 61 63 6b 20 61 | 6e 20 61 70 70 72 6f 70 |d back a|n approp|
|000009d0| 72 69 61 74 65 20 68 65 | 6c 70 20 73 74 72 69 6e |riate he|lp strin|
|000009e0| 67 0d 03 de 05 3a 0d 03 | e8 2c 20 6c 69 6e 65 31 |g....:..|., line1|
|000009f0| 24 20 3d 20 22 22 20 3a | 20 6c 69 6e 65 32 24 20 |$ = "" :| line2$ |
|00000a00| 3d 20 22 22 20 3a 20 6c | 69 6e 65 33 24 20 3d 20 |= "" : l|ine3$ = |
|00000a10| 22 22 0d 03 f2 15 20 62 | 6c 6f 63 6b 20 3d 20 62 |"".... b|lock = b|
|00000a20| 6c 6b 2b 26 31 30 30 0d | 03 fc 10 20 c8 8e 20 77 |lk+&100.|... .. w|
|00000a30| 69 6e 64 6f 77 20 ca 0d | 04 06 0b 20 20 c9 20 2d |indow ..|...  . -|
|00000a40| 32 3a 0d 04 10 4a 20 20 | 20 6c 69 6e 65 31 24 20 |2:...J  | line1$ |
|00000a50| 3d 20 22 54 68 69 73 20 | 69 73 20 74 68 65 20 4c |= "This |is the L|
|00000a60| 61 62 65 6c 6c 65 72 20 | 69 63 6f 6e 2e 20 20 43 |abeller |icon.  C|
|00000a70| 6c 69 63 6b 20 4d 45 4e | 55 20 66 6f 72 20 63 6f |lick MEN|U for co|
|00000a80| 6e 74 72 6f 6c 20 6d 65 | 6e 75 2e 22 0d 04 1a 4e |ntrol me|nu."...N|
|00000a90| 20 20 20 6c 69 6e 65 32 | 24 20 3d 20 22 44 72 61 |   line2|$ = "Dra|
|00000aa0| 67 20 61 20 70 61 72 61 | 6d 65 74 65 72 20 6f 72 |g a para|meter or|
|00000ab0| 20 74 65 78 74 20 66 69 | 6c 65 20 68 65 72 65 20 | text fi|le here |
|00000ac0| 74 6f 20 6c 6f 61 64 20 | 73 65 74 74 69 6e 67 73 |to load |settings|
|00000ad0| 20 6f 72 20 74 65 78 74 | 2e 22 0d 04 24 44 20 20 | or text|."..$D  |
|00000ae0| 20 e7 20 65 6e 74 65 72 | 20 8c 20 6c 69 6e 65 33 | . enter| . line3|
|00000af0| 24 20 3d 20 22 43 6c 69 | 63 6b 20 53 45 4c 45 43 |$ = "Cli|ck SELEC|
|00000b00| 54 20 74 6f 20 64 69 73 | 70 6c 61 79 20 74 68 65 |T to dis|play the|
|00000b10| 20 74 65 78 74 20 77 69 | 6e 64 6f 77 2e 22 0d 04 | text wi|ndow."..|
|00000b20| 2e 0f 20 20 c9 20 77 5f | 66 69 6c 65 3a 0d 04 38 |..  . w_|file:..8|
|00000b30| 45 20 20 20 6c 69 6e 65 | 31 24 20 3d 20 22 54 68 |E   line|1$ = "Th|
|00000b40| 69 73 20 73 68 6f 77 73 | 20 74 68 65 20 6c 61 73 |is shows| the las|
|00000b50| 74 20 66 69 6c 65 6e 61 | 6d 65 73 20 75 73 65 64 |t filena|mes used|
|00000b60| 20 74 6f 20 6c 6f 61 64 | 20 6f 72 20 73 61 76 65 | to load| or save|
|00000b70| 2e 22 0d 04 42 0e 20 20 | c9 20 77 5f 64 69 6d 3a |."..B.  |. w_dim:|
|00000b80| 0d 04 4c 4e 20 20 20 6c | 69 6e 65 31 24 20 3d 20 |..LN   l|ine1$ = |
|00000b90| 22 54 68 69 73 20 77 69 | 6e 64 6f 77 20 61 6c 6c |"This wi|ndow all|
|00000ba0| 6f 77 73 20 74 68 65 20 | 64 69 6d 65 6e 73 69 6f |ows the |dimensio|
|00000bb0| 6e 73 20 6f 66 20 74 68 | 65 20 6c 61 62 65 6c 20 |ns of th|e label |
|00000bc0| 74 6f 20 62 65 20 73 65 | 74 20 75 70 2e 22 0d 04 |to be se|t up."..|
|00000bd0| 56 10 20 20 20 c8 8e 20 | 69 63 6f 6e 20 ca 0d 04 |V.   .. |icon ...|
|00000be0| 60 14 20 20 20 20 c9 20 | 69 5f 64 5f 77 69 64 74 |`.    . |i_d_widt|
|00000bf0| 68 3a 0d 04 6a 48 20 20 | 20 20 20 6c 69 6e 65 32 |h:..jH  |   line2|
|00000c00| 24 20 3d 20 22 43 6c 69 | 63 6b 20 74 6f 20 73 65 |$ = "Cli|ck to se|
|00000c10| 74 20 74 68 65 20 6c 61 | 62 65 6c 20 77 69 64 74 |t the la|bel widt|
|00000c20| 68 20 61 76 61 69 6c 61 | 62 6c 65 20 66 6f 72 20 |h availa|ble for |
|00000c30| 70 72 69 6e 74 69 6e 67 | 2e 22 0d 04 74 11 20 20 |printing|."..t.  |
|00000c40| 20 20 c9 20 69 5f 64 5f | 68 70 3a 0d 04 7e 48 20 |  . i_d_|hp:..~H |
|00000c50| 20 20 20 20 6c 69 6e 65 | 32 24 20 3d 20 22 43 6c |    line|2$ = "Cl|
|00000c60| 69 63 6b 20 74 6f 20 73 | 65 74 20 74 68 65 20 68 |ick to s|et the h|
|00000c70| 6f 72 69 7a 6f 6e 74 61 | 6c 20 64 69 73 74 61 6e |orizonta|l distan|
|00000c80| 63 65 20 62 65 74 77 65 | 65 6e 20 6c 61 62 65 6c |ce betwe|en label|
|00000c90| 73 2e 22 0d 04 88 12 20 | 20 20 20 c9 20 69 5f 64 |s.".... |   . i_d|
|00000ca0| 5f 6f 66 66 3a 0d 04 92 | 43 20 20 20 20 20 6c 69 |_off:...|C     li|
|00000cb0| 6e 65 32 24 20 3d 20 22 | 43 6c 69 63 6b 20 74 6f |ne2$ = "|Click to|
|00000cc0| 20 73 65 74 20 74 68 65 | 20 6f 66 66 73 65 74 20 | set the| offset |
|00000cd0| 6f 66 20 74 68 65 20 66 | 69 72 73 74 20 6c 61 62 |of the f|irst lab|
|00000ce0| 65 6c 20 66 72 6f 6d 22 | 0d 04 9c 30 20 20 20 20 |el from"|...0    |
|00000cf0| 20 6c 69 6e 65 33 24 20 | 3d 20 22 74 68 65 20 70 | line3$ |= "the p|
|00000d00| 72 69 6e 74 65 72 27 73 | 20 68 6f 6d 65 20 70 6f |rinter's| home po|
|00000d10| 73 69 74 69 6f 6e 2e 22 | 0d 04 a6 12 20 20 20 20 |sition."|....    |
|00000d20| c9 20 69 5f 64 5f 69 6e | 64 3a 0d 04 b0 51 20 20 |. i_d_in|d:...Q  |
|00000d30| 20 20 20 6c 69 6e 65 32 | 24 20 3d 20 22 43 6c 69 |   line2|$ = "Cli|
|00000d40| 63 6b 20 74 6f 20 73 65 | 74 20 74 68 65 20 6c 65 |ck to se|t the le|
|00000d50| 66 74 20 6d 61 72 67 69 | 6e 20 74 68 61 74 20 77 |ft margi|n that w|
|00000d60| 69 6c 6c 20 62 65 20 6c | 65 66 74 20 6f 6e 20 65 |ill be l|eft on e|
|00000d70| 61 63 68 20 6c 61 62 65 | 6c 2e 22 0d 04 ba 15 20 |ach labe|l.".... |
|00000d80| 20 20 20 c9 20 69 5f 64 | 5f 68 65 69 67 68 74 3a |   . i_d|_height:|
|00000d90| 0d 04 c4 49 20 20 20 20 | 20 6c 69 6e 65 32 24 20 |...I    | line2$ |
|00000da0| 3d 20 22 43 6c 69 63 6b | 20 74 6f 20 73 65 74 20 |= "Click| to set |
|00000db0| 74 68 65 20 6c 61 62 65 | 6c 20 68 65 69 67 68 74 |the labe|l height|
|00000dc0| 20 61 76 61 69 6c 61 62 | 6c 65 20 66 6f 72 20 70 | availab|le for p|
|00000dd0| 72 69 6e 74 69 6e 67 2e | 22 0d 04 ce 11 20 20 20 |rinting.|"....   |
|00000de0| 20 c9 20 69 5f 64 5f 76 | 70 3a 0d 04 d8 46 20 20 | . i_d_v|p:...F  |
|00000df0| 20 20 20 6c 69 6e 65 32 | 24 20 3d 20 22 43 6c 69 |   line2|$ = "Cli|
|00000e00| 63 6b 20 74 6f 20 73 65 | 74 20 74 68 65 20 76 65 |ck to se|t the ve|
|00000e10| 72 74 69 63 61 6c 20 64 | 69 73 74 61 6e 63 65 20 |rtical d|istance |
|00000e20| 62 65 74 77 65 65 6e 20 | 6c 61 62 65 6c 73 2e 22 |between |labels."|
|00000e30| 0d 04 e2 13 20 20 20 20 | c9 20 69 5f 64 5f 75 6e |....    |. i_d_un|
|00000e40| 69 74 3a 0d 04 ec 3e 20 | 20 20 20 20 6c 69 6e 65 |it:...> |    line|
|00000e50| 32 24 20 3d 20 22 43 6c | 69 63 6b 20 74 6f 20 73 |2$ = "Cl|ick to s|
|00000e60| 65 74 20 74 68 65 20 75 | 6e 69 74 73 20 6f 66 20 |et the u|nits of |
|00000e70| 6d 65 61 73 75 72 65 6d | 65 6e 74 20 75 73 65 64 |measurem|ent used|
|00000e80| 22 0d 04 f6 3d 20 20 20 | 20 20 6c 69 6e 65 33 24 |"...=   |  line3$|
|00000e90| 20 3d 20 22 28 4f 6e 6c | 79 20 27 69 6e 63 68 65 | = "(Onl|y 'inche|
|00000ea0| 73 27 20 61 72 65 20 73 | 75 70 70 6f 72 74 65 64 |s' are s|upported|
|00000eb0| 20 61 74 20 70 72 65 73 | 65 6e 74 29 2e 22 0d 05 | at pres|ent)."..|
|00000ec0| 00 11 20 20 20 20 c9 20 | 69 5f 64 5f 75 70 3a 0d |..    . |i_d_up:.|
|00000ed0| 05 0a 53 20 20 20 20 20 | e7 20 73 65 74 74 69 6e |..S     |. settin|
|00000ee0| 67 3e 30 20 8c 20 6c 69 | 6e 65 32 24 20 3d 20 22 |g>0 . li|ne2$ = "|
|00000ef0| 43 6c 69 63 6b 20 6f 72 | 20 68 6f 6c 64 20 74 6f |Click or| hold to|
|00000f00| 20 69 6e 63 72 65 61 73 | 65 20 74 68 65 20 73 65 | increas|e the se|
|00000f10| 6c 65 63 74 65 64 20 64 | 69 6d 65 6e 73 69 6f 6e |lected d|imension|
|00000f20| 2e 22 0d 05 14 13 20 20 | 20 20 c9 20 69 5f 64 5f |."....  |  . i_d_|
|00000f30| 64 6f 77 6e 3a 0d 05 1e | 53 20 20 20 20 20 e7 20 |down:...|S     . |
|00000f40| 73 65 74 74 69 6e 67 3e | 30 20 8c 20 6c 69 6e 65 |setting>|0 . line|
|00000f50| 32 24 20 3d 20 22 43 6c | 69 63 6b 20 6f 72 20 68 |2$ = "Cl|ick or h|
|00000f60| 6f 6c 64 20 74 6f 20 64 | 65 63 72 65 61 73 65 20 |old to d|ecrease |
|00000f70| 74 68 65 20 73 65 6c 65 | 63 74 65 64 20 64 69 6d |the sele|cted dim|
|00000f80| 65 6e 73 69 6f 6e 2e 22 | 0d 05 28 0a 20 20 20 20 |ension."|..(.    |
|00000f90| 7f 3a 0d 05 32 3e 20 20 | 20 20 20 6c 69 6e 65 32 |.:..2>  |   line2|
|00000fa0| 24 20 3d 20 22 43 6c 69 | 63 6b 20 84 20 77 68 65 |$ = "Cli|ck . whe|
|00000fb0| 6e 20 74 68 65 20 73 65 | 74 74 69 6e 67 73 20 61 |n the se|ttings a|
|00000fc0| 72 65 20 61 73 20 72 65 | 71 75 69 72 65 64 2e 22 |re as re|quired."|
|00000fd0| 0d 05 3c 08 20 20 20 cb | 0d 05 46 0e 20 20 c9 20 |..<.   .|..F.  . |
|00000fe0| 77 5f 73 65 74 3a 0d 05 | 50 43 20 20 20 6c 69 6e |w_set:..|PC   lin|
|00000ff0| 65 31 24 20 3d 20 22 54 | 68 69 73 20 77 69 6e 64 |e1$ = "T|his wind|
|00001000| 6f 77 20 61 6c 6c 6f 77 | 73 20 70 72 69 6e 74 69 |ow allow|s printi|
|00001010| 6e 67 20 6f 70 74 69 6f | 6e 73 20 74 6f 20 62 65 |ng optio|ns to be|
|00001020| 20 73 65 74 20 75 70 2e | 22 0d 05 5a 10 20 20 20 | set up.|"..Z.   |
|00001030| c8 8e 20 69 63 6f 6e 20 | ca 0d 05 64 1f 20 20 20 |.. icon |...d.   |
|00001040| 20 c9 20 69 5f 73 5f 73 | 31 2c 69 5f 73 5f 73 32 | . i_s_s|1,i_s_s2|
|00001050| 2c 69 5f 73 5f 73 33 3a | 0d 05 6e 40 20 20 20 20 |,i_s_s3:|..n@    |
|00001060| 20 6c 69 6e 65 32 24 20 | 3d 20 22 53 65 6c 65 63 | line2$ |= "Selec|
|00001070| 74 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |t the nu|mber of |
|00001080| 6c 61 62 65 6c 73 20 61 | 63 72 6f 73 73 20 74 68 |labels a|cross th|
|00001090| 65 20 70 61 67 65 2e 22 | 0d 05 78 11 20 20 20 20 |e page."|..x.    |
|000010a0| c9 20 69 5f 73 5f 6a 6c | 3a 0d 05 82 33 20 20 20 |. i_s_jl|:...3   |
|000010b0| 20 20 6c 69 6e 65 32 24 | 20 3d 20 22 53 65 6c 65 |  line2$| = "Sele|
|000010c0| 63 74 20 66 6f 72 20 6c | 65 66 74 2d 6a 75 73 74 |ct for l|eft-just|
|000010d0| 69 66 69 65 64 20 74 65 | 78 74 2e 22 0d 05 8c 11 |ified te|xt."....|
|000010e0| 20 20 20 20 c9 20 69 5f | 73 5f 6a 63 3a 0d 05 96 |    . i_|s_jc:...|
|000010f0| 2d 20 20 20 20 20 6c 69 | 6e 65 32 24 20 3d 20 22 |-     li|ne2$ = "|
|00001100| 53 65 6c 65 63 74 20 66 | 6f 72 20 63 65 6e 74 65 |Select f|or cente|
|00001110| 72 65 64 20 74 65 78 74 | 2e 22 0d 05 a0 11 20 20 |red text|."....  |
|00001120| 20 20 c9 20 69 5f 73 5f | 6a 72 3a 0d 05 aa 34 20 |  . i_s_|jr:...4 |
|00001130| 20 20 20 20 6c 69 6e 65 | 32 24 20 3d 20 22 53 65 |    line|2$ = "Se|
|00001140| 6c 65 63 74 20 66 6f 72 | 20 72 69 67 68 74 2d 6a |lect for| right-j|
|00001150| 75 73 74 69 66 69 65 64 | 20 74 65 78 74 2e 22 0d |ustified| text.".|
|00001160| 05 b4 13 20 20 20 20 c9 | 20 69 5f 73 5f 6e 6f 72 |...    .| i_s_nor|
|00001170| 6d 3a 0d 05 be 38 20 20 | 20 20 20 6c 69 6e 65 32 |m:...8  |   line2|
|00001180| 24 20 3d 20 22 53 65 6c | 65 63 74 20 66 6f 72 20 |$ = "Sel|ect for |
|00001190| 6e 6f 72 6d 61 6c 20 28 | 75 6e 61 64 6f 72 6e 65 |normal (|unadorne|
|000011a0| 64 29 20 70 72 69 6e 74 | 2e 22 0d 05 c8 12 20 20 |d) print|."....  |
|000011b0| 20 20 c9 20 69 5f 73 5f | 6e 6c 71 3a 0d 05 d2 42 |  . i_s_|nlq:...B|
|000011c0| 20 20 20 20 20 6c 69 6e | 65 32 24 20 3d 20 22 53 |     lin|e2$ = "S|
|000011d0| 65 6c 65 63 74 20 74 6f | 20 70 72 69 6e 74 20 69 |elect to| print i|
|000011e0| 6e 20 61 20 4e 65 61 72 | 20 4c 65 74 74 65 72 20 |n a Near| Letter |
|000011f0| 51 75 61 6c 69 74 79 20 | 66 6f 6e 74 2e 22 0d 05 |Quality |font."..|
|00001200| dc 13 20 20 20 20 c9 20 | 69 5f 73 5f 62 6f 6c 64 |..    . |i_s_bold|
|00001210| 3a 0d 05 e6 35 20 20 20 | 20 20 6c 69 6e 65 32 24 |:...5   |  line2$|
|00001220| 20 3d 20 22 53 65 6c 65 | 63 74 20 74 6f 20 70 72 | = "Sele|ct to pr|
|00001230| 69 6e 74 20 74 68 65 20 | 74 65 78 74 20 69 6e 20 |int the |text in |
|00001240| 62 6f 6c 64 2e 22 0d 05 | f0 13 20 20 20 20 c9 20 |bold."..|..    . |
|00001250| 69 5f 73 5f 69 74 61 6c | 3a 0d 05 fa 38 20 20 20 |i_s_ital|:...8   |
|00001260| 20 20 6c 69 6e 65 32 24 | 20 3d 20 22 53 65 6c 65 |  line2$| = "Sele|
|00001270| 63 74 20 74 6f 20 70 72 | 69 6e 74 20 74 68 65 20 |ct to pr|int the |
|00001280| 74 65 78 74 20 69 6e 20 | 69 74 61 6c 69 63 73 2e |text in |italics.|
|00001290| 22 0d 06 04 12 20 20 20 | 20 c9 20 69 5f 73 5f 72 |"....   | . i_s_r|
|000012a0| 65 64 3a 0d 06 0e 44 20 | 20 20 20 20 6c 69 6e 65 |ed:...D |    line|
|000012b0| 32 24 20 3d 20 22 53 65 | 6c 65 63 74 20 74 6f 20 |2$ = "Se|lect to |
|000012c0| 70 72 69 6e 74 20 74 68 | 65 20 74 65 78 74 20 69 |print th|e text i|
|000012d0| 6e 20 61 6e 20 61 6c 74 | 65 72 6e 61 74 65 20 63 |n an alt|ernate c|
|000012e0| 6f 6c 6f 75 72 2e 22 0d | 06 18 14 20 20 20 20 c9 |olour.".|...    .|
|000012f0| 20 69 5f 73 5f 75 6e 64 | 65 72 3a 0d 06 22 38 20 | i_s_und|er:.."8 |
|00001300| 20 20 20 20 6c 69 6e 65 | 32 24 20 3d 20 22 53 65 |    line|2$ = "Se|
|00001310| 6c 65 63 74 20 74 6f 20 | 70 72 69 6e 74 20 74 68 |lect to |print th|
|00001320| 65 20 74 65 78 74 20 75 | 6e 64 65 72 6c 69 6e 65 |e text u|nderline|
|00001330| 64 2e 22 0d 06 2c 29 20 | 20 20 20 c9 20 69 5f 73 |d."..,) |   . i_s|
|00001340| 5f 70 35 2c 69 5f 73 5f | 70 31 30 2c 69 5f 73 5f |_p5,i_s_|p10,i_s_|
|00001350| 70 31 32 2c 69 5f 73 5f | 70 31 37 3a 0d 06 36 3c |p12,i_s_|p17:..6<|
|00001360| 20 20 20 20 20 6c 69 6e | 65 32 24 20 3d 20 22 53 |     lin|e2$ = "S|
|00001370| 65 6c 65 63 74 20 74 68 | 65 20 68 6f 72 69 7a 6f |elect th|e horizo|
|00001380| 6e 74 61 6c 20 28 63 68 | 61 72 61 63 74 65 72 29 |ntal (ch|aracter)|
|00001390| 20 70 69 74 63 68 2e 22 | 0d 06 40 1f 20 20 20 20 | pitch."|..@.    |
|000013a0| c9 20 69 5f 73 5f 6c 34 | 2c 69 5f 73 5f 6c 36 2c |. i_s_l4|,i_s_l6,|
|000013b0| 69 5f 73 5f 6c 38 3a 0d | 06 4a 35 20 20 20 20 20 |i_s_l8:.|.J5     |
|000013c0| 6c 69 6e 65 32 24 20 3d | 20 22 53 65 6c 65 63 74 |line2$ =| "Select|
|000013d0| 20 74 68 65 20 76 65 72 | 74 69 63 61 6c 20 28 6c | the ver|tical (l|
|000013e0| 69 6e 65 29 20 70 69 74 | 63 68 2e 22 0d 06 54 0a |ine) pit|ch."..T.|
|000013f0| 20 20 20 20 7f 3a 0d 06 | 5e 3e 20 20 20 20 20 6c |    .:..|^>     l|
|00001400| 69 6e 65 32 24 20 3d 20 | 22 43 6c 69 63 6b 20 84 |ine2$ = |"Click .|
|00001410| 20 77 68 65 6e 20 74 68 | 65 20 73 65 74 74 69 6e | when th|e settin|
|00001420| 67 73 20 61 72 65 20 61 | 73 20 72 65 71 75 69 72 |gs are a|s requir|
|00001430| 65 64 2e 22 0d 06 68 08 | 20 20 20 cb 0d 06 72 0f |ed."..h.|   ...r.|
|00001440| 20 20 c9 20 77 5f 74 65 | 78 74 3a 0d 06 7c 35 20 |  . w_te|xt:..|5 |
|00001450| 20 20 6c 69 6e 65 31 24 | 20 3d 20 22 45 6e 74 65 |  line1$| = "Ente|
|00001460| 72 20 74 68 65 20 6c 61 | 62 65 6c 20 74 65 78 74 |r the la|bel text|
|00001470| 20 69 6e 20 74 68 69 73 | 20 77 69 6e 64 6f 77 22 | in this| window"|
|00001480| 0d 06 86 3e 20 20 20 e7 | 20 69 63 6f 6e 3e 3d 30 |...>   .| icon>=0|
|00001490| 20 8c 20 6c 69 6e 65 31 | 24 20 2b 3d 20 22 20 2d | . line1|$ += " -|
|000014a0| 20 74 68 69 73 20 69 73 | 20 74 65 78 74 20 6c 69 | this is| text li|
|000014b0| 6e 65 20 22 2b c3 28 69 | 63 6f 6e 2b 31 29 0d 06 |ne "+.(i|con+1)..|
|000014c0| 90 14 20 20 20 6c 69 6e | 65 31 24 20 2b 3d 20 22 |..   lin|e1$ += "|
|000014d0| 2e 22 0d 06 9a 28 20 20 | 20 c8 99 20 22 57 69 6d |."...(  | .. "Wim|
|000014e0| 70 5f 47 65 74 43 61 72 | 65 74 50 6f 73 69 74 69 |p_GetCar|etPositi|
|000014f0| 6f 6e 22 2c 2c 62 6c 6f | 63 6b 0d 06 a4 19 20 20 |on",,blo|ck....  |
|00001500| 20 e7 20 62 6c 6f 63 6b | 21 30 3d 77 5f 74 65 78 | . block|!0=w_tex|
|00001510| 74 20 8c 0d 06 ae 5b 20 | 20 20 20 6c 69 6e 65 32 |t ....[ |   line2|
|00001520| 24 20 3d 20 22 88 20 89 | 20 8a 20 8b 2c 20 52 65 |$ = ". .| . ., Re|
|00001530| 74 75 72 6e 20 6f 72 20 | 54 61 62 20 6d 6f 76 65 |turn or |Tab move|
|00001540| 20 74 68 65 20 63 75 72 | 73 6f 72 2e 20 20 45 73 | the cur|sor.  Es|
|00001550| 63 61 70 65 20 63 6c 65 | 61 72 73 20 74 68 65 20 |cape cle|ars the |
|00001560| 63 75 72 72 65 6e 74 20 | 6c 69 6e 65 2e 22 0d 06 |current |line."..|
|00001570| b8 42 20 20 20 20 6c 69 | 6e 65 33 24 20 3d 20 22 |.B    li|ne3$ = "|
|00001580| 49 6e 73 65 72 74 20 61 | 6e 64 20 53 68 69 66 74 |Insert a|nd Shift|
|00001590| 2d 49 6e 73 65 72 74 20 | 69 6e 73 65 72 74 20 6f |-Insert |insert o|
|000015a0| 72 20 64 65 6c 65 74 65 | 20 6c 69 6e 65 73 2e 22 |r delete| lines."|
|000015b0| 0d 06 c2 08 20 20 20 cc | 0d 06 cc 42 20 20 20 20 |....   .|...B    |
|000015c0| 6c 69 6e 65 32 24 20 3d | 20 22 43 6c 69 63 6b 20 |line2$ =| "Click |
|000015d0| 53 45 4c 45 43 54 20 74 | 6f 20 70 6f 73 69 74 69 |SELECT t|o positi|
|000015e0| 6f 6e 20 74 68 65 20 63 | 75 72 73 6f 72 20 66 6f |on the c|ursor fo|
|000015f0| 72 20 74 79 70 69 6e 67 | 2e 22 0d 06 d6 08 20 20 |r typing|."....  |
|00001600| 20 cd 0d 06 e0 06 20 cb | 0d 06 ea 04 0d 06 f4 37 | ..... .|.......7|
|00001610| 20 24 28 62 6c 6b 2b 32 | 30 29 20 3d 20 6c 69 6e | $(blk+2|0) = lin|
|00001620| 65 31 24 2b 22 7c 4d 22 | 2b 6c 69 6e 65 32 24 2b |e1$+"|M"|+line2$+|
|00001630| 22 7c 4d 22 2b 6c 69 6e | 65 33 24 2b 22 7c 4d 22 |"|M"+lin|e3$+"|M"|
|00001640| 2b bd 30 0d 06 fe 13 20 | 62 6c 6b 21 31 32 20 3d |+.0.... |blk!12 =|
|00001650| 20 62 6c 6b 21 38 0d 07 | 08 19 20 62 6c 6b 21 31 | blk!8..|.. blk!1|
|00001660| 36 20 3d 20 4d 73 67 5f | 48 65 6c 70 52 65 70 0d |6 = Msg_|HelpRep.|
|00001670| 07 12 1e 20 62 6c 6b 21 | 30 20 3d 20 32 30 2b a9 |... blk!|0 = 20+.|
|00001680| 28 24 28 62 6c 6b 2b 32 | 30 29 29 2b 32 0d 07 1c |($(blk+2|0))+2...|
|00001690| 1c 20 62 6c 6b 21 30 20 | 3d 20 34 2b 34 2a 28 62 |. blk!0 |= 4+4*(b|
|000016a0| 6c 6b 21 30 20 81 20 34 | 29 0d 07 26 2f 20 c8 99 |lk!0 . 4|)..&/ ..|
|000016b0| 20 22 57 69 6d 70 5f 53 | 65 6e 64 4d 65 73 73 61 | "Wimp_S|endMessa|
|000016c0| 67 65 22 2c 52 63 5f 4d | 65 73 73 61 67 65 2c 62 |ge",Rc_M|essage,b|
|000016d0| 6c 6b 2c 62 6c 6b 21 34 | 0d 07 30 05 e1 0d 07 3a |lk,blk!4|..0....:|
|000016e0| 04 0d 07 44 11 dd 20 f2 | 73 68 6f 77 5f 66 69 6c |...D.. .|show_fil|
|000016f0| 65 73 0d 07 4e 05 3a 0d | 07 58 39 3a 20 f4 20 50 |es..N.:.|.X9: . P|
|00001700| 6f 70 20 75 70 20 74 68 | 65 20 66 69 6c 65 20 69 |op up th|e file i|
|00001710| 6e 66 6f 20 77 69 6e 64 | 6f 77 20 61 73 20 61 20 |nfo wind|ow as a |
|00001720| 28 74 72 61 6e 73 69 65 | 6e 74 29 20 6d 65 6e 75 |(transie|nt) menu|
|00001730| 0d 07 62 05 3a 0d 07 6c | 0f 20 f2 66 69 6c 65 5f |..b.:..l|. .file_|
|00001740| 69 6e 66 6f 0d 07 76 29 | 20 c8 99 20 22 57 69 6d |info..v)| .. "Wim|
|00001750| 70 5f 43 72 65 61 74 65 | 4d 65 6e 75 22 2c 2c 77 |p_Create|Menu",,w|
|00001760| 5f 66 69 6c 65 2c 35 30 | 30 2c 34 30 30 0d 07 80 |_file,50|0,400...|
|00001770| 05 e1 0d 07 8a 04 0d 07 | 94 0d dd 20 f2 6f 75 74 |........|... .out|
|00001780| 6c 61 62 0d 07 9e 16 ea | 20 4a 25 2c 6c 69 24 2c |lab.....| J%,li$,|
|00001790| 73 65 70 24 2c 74 65 73 | 74 0d 07 a8 05 3a 0d 07 |sep$,tes|t....:..|
|000017a0| b2 28 3a 20 f4 20 4f 75 | 74 70 75 74 20 6f 6e 65 |.(: . Ou|tput one|
|000017b0| 20 6c 61 62 65 6c 20 6f | 72 20 74 65 73 74 20 70 | label o|r test p|
|000017c0| 61 74 74 65 72 6e 0d 07 | bc 05 3a 0d 07 c6 38 20 |attern..|..:...8 |
|000017d0| 73 65 70 24 20 3d 20 c4 | a8 28 28 70 61 72 61 6d |sep$ = .|.((param|
|000017e0| 28 70 5f 68 70 29 2d 70 | 61 72 61 6d 28 70 5f 77 |(p_hp)-p|aram(p_w|
|000017f0| 69 64 74 68 29 29 2a 63 | 70 69 2b 2e 31 29 2c 22 |idth))*c|pi+.1),"|
|00001800| 20 22 29 0d 07 d0 17 20 | 74 65 73 74 20 3d 20 6e | ").... |test = n|
|00001810| 5f 63 6f 70 69 65 73 3d | 2d 31 0d 07 da 05 3a 0d |_copies=|-1....:.|
|00001820| 07 e4 17 20 e3 20 4a 25 | 20 3d 20 31 20 b8 20 6e |... . J%| = 1 . n|
|00001830| 5f 6c 69 6e 65 73 0d 07 | ee 42 20 20 6c 69 24 20 |_lines..|.B  li$ |
|00001840| 3d 20 c4 a8 28 70 61 72 | 61 6d 28 70 5f 6f 66 66 |= ..(par|am(p_off|
|00001850| 29 2a 63 70 69 2b 2e 31 | 29 2c 22 20 22 29 20 20 |)*cpi+.1|)," ")  |
|00001860| 20 20 20 20 20 20 20 20 | 3a 20 f4 20 66 69 72 73 |        |: . firs|
|00001870| 74 20 6f 66 66 73 65 74 | 0d 07 f8 49 20 20 6c 69 |t offset|...I  li|
|00001880| 24 20 2b 3d 20 a4 6d 61 | 6b 65 6c 69 6e 65 28 74 |$ += .ma|keline(t|
|00001890| 65 73 74 2c 4a 25 2c 31 | 29 20 20 20 20 20 20 20 |est,J%,1|)       |
|000018a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000018b0| 20 20 3a 20 f4 20 66 69 | 72 73 74 20 6c 61 62 65 |  : . fi|rst labe|
|000018c0| 6c 0d 08 02 11 20 20 e7 | 20 73 74 6f 63 6b 3e 31 |l....  .| stock>1|
|000018d0| 20 8c 0d 08 0c 4a 20 20 | 20 6c 69 24 20 2b 3d 20 | ....J  | li$ += |
|000018e0| 73 65 70 24 2b a4 6d 61 | 6b 65 6c 69 6e 65 28 74 |sep$+.ma|keline(t|
|000018f0| 65 73 74 2c 4a 25 2c 32 | 29 20 20 20 20 20 20 20 |est,J%,2|)       |
|00001900| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 20 f4 20 |        |    : . |
|00001910| 73 65 63 6f 6e 64 20 6c | 61 62 65 6c 0d 08 16 12 |second l|abel....|
|00001920| 20 20 20 e7 20 73 74 6f | 63 6b 3e 32 20 8c 0d 08 |   . sto|ck>2 ...|
|00001930| 20 49 20 20 20 20 6c 69 | 24 20 2b 3d 20 73 65 70 | I    li|$ += sep|
|00001940| 24 2b a4 6d 61 6b 65 6c | 69 6e 65 28 74 65 73 74 |$+.makel|ine(test|
|00001950| 2c 4a 25 2c 33 29 20 20 | 20 20 20 20 20 20 20 20 |,J%,3)  |        |
|00001960| 20 20 20 20 20 20 20 20 | 3a 20 f4 20 74 68 69 72 |        |: . thir|
|00001970| 64 20 6c 61 62 65 6c 0d | 08 2a 08 20 20 20 cd 0d |d label.|.*.   ..|
|00001980| 08 34 07 20 20 cd 0d 08 | 3e 10 20 20 d5 20 23 70 |.4.  ...|>.  . #p|
|00001990| 72 74 2c 6c 69 24 0d 08 | 48 06 20 ed 0d 08 52 05 |rt,li$..|H. ...R.|
|000019a0| 3a 0d 08 5c 2f 20 e7 20 | 70 61 72 61 6d 28 70 5f |:..\/ . |param(p_|
|000019b0| 76 70 29 3c 3e 70 61 72 | 61 6d 28 70 5f 68 65 69 |vp)<>par|am(p_hei|
|000019c0| 67 68 74 29 20 8c 20 d5 | 20 23 70 72 74 2c 31 32 |ght) . .| #prt,12|
|000019d0| 0d 08 66 05 e1 0d 08 70 | 04 0d 08 7a 1e dd 20 a4 |..f....p|...z.. .|
|000019e0| 6d 61 6b 65 6c 69 6e 65 | 28 74 65 73 74 2c 6c 69 |makeline|(test,li|
|000019f0| 6e 65 2c 70 6f 73 29 0d | 08 84 11 ea 20 6c 69 24 |ne,pos).|.... li$|
|00001a00| 2c 6c 77 2c 69 6e 64 24 | 0d 08 8e 05 3a 0d 08 98 |,lw,ind$|....:...|
|00001a10| 2a 3a 20 f4 20 41 73 73 | 65 6d 62 6c 65 20 6f 6e |*: . Ass|emble on|
|00001a20| 65 20 6c 61 62 65 6c 20 | 6f 72 20 74 65 73 74 20 |e label |or test |
|00001a30| 70 61 74 74 65 72 6e 0d | 08 a2 05 3a 0d 08 ac 0e |pattern.|...:....|
|00001a40| 20 20 e7 20 74 65 73 74 | 20 8c 0d 08 b6 40 20 20 |  . test| ....@  |
|00001a50| 20 6c 69 24 20 3d 20 c4 | 6e 5f 63 68 61 72 73 2c | li$ = .|n_chars,|
|00001a60| 22 58 22 29 20 20 20 20 | 20 20 20 20 20 20 20 20 |"X")    |        |
|00001a70| 20 20 20 20 20 20 20 20 | 20 20 3a 20 f4 20 54 65 |        |  : . Te|
|00001a80| 73 74 20 70 61 74 74 65 | 72 6e 0d 08 c0 07 20 20 |st patte|rn....  |
|00001a90| cc 0d 08 ca 46 20 20 20 | 6c 69 24 20 3d 20 c0 6c |....F   |li$ = .l|
|00001aa0| 69 6e 65 24 28 6c 69 6e | 65 2c 70 6f 73 29 2c 6e |ine$(lin|e,pos),n|
|00001ab0| 5f 63 68 61 72 73 29 20 | 20 20 20 20 20 20 20 20 |_chars) |        |
|00001ac0| 20 20 20 3a 20 f4 20 4c | 69 6e 65 20 66 72 6f 6d |   : . L|ine from|
|00001ad0| 20 73 6f 75 72 63 65 0d | 08 d4 07 20 20 cd 0d 08 | source.|...  ...|
|00001ae0| de 19 20 20 6c 77 20 3d | 20 6e 5f 63 68 61 72 73 |..  lw =| n_chars|
|00001af0| 2d a9 28 6c 69 24 29 0d | 08 e8 1f 20 20 6c 69 24 |-.(li$).|...  li$|
|00001b00| 20 3d 20 75 6e 64 65 72 | 31 24 2b 6c 69 24 2b 75 | = under|1$+li$+u|
|00001b10| 6e 64 65 72 30 24 0d 08 | f2 05 3a 0d 08 fc 0f 20 |nder0$..|..:.... |
|00001b20| 20 c8 8e 20 6a 75 73 74 | 20 ca 0d 09 06 1b 20 20 | .. just| .....  |
|00001b30| 20 c9 20 31 3a 20 6c 69 | 24 20 2b 3d 20 c4 6c 77 | . 1: li|$ += .lw|
|00001b40| 2c 22 20 22 29 0d 09 10 | 34 20 20 20 c9 20 32 3a |," ")...|4   . 2:|
|00001b50| 20 6c 69 24 20 3d 20 c4 | 6c 77 20 81 20 32 2c 22 | li$ = .|lw . 2,"|
|00001b60| 20 22 29 2b 6c 69 24 2b | c4 6c 77 2d 28 6c 77 20 | ")+li$+|.lw-(lw |
|00001b70| 81 20 32 29 2c 22 20 22 | 29 0d 09 1a 1e 20 20 20 |. 2)," "|)....   |
|00001b80| c9 20 33 3a 20 6c 69 24 | 20 3d 20 c4 6c 77 2c 22 |. 3: li$| = .lw,"|
|00001b90| 20 22 29 2b 6c 69 24 0d | 09 24 07 20 20 cb 0d 09 | ")+li$.|.$.  ...|
|00001ba0| 2e 05 3a 0d 09 38 3e 20 | 20 69 6e 64 24 20 3d 20 |..:..8> | ind$ = |
|00001bb0| c4 a8 28 70 61 72 61 6d | 28 70 5f 69 6e 64 29 2a |..(param|(p_ind)*|
|00001bc0| 63 70 69 2b 2e 31 29 2c | 22 20 22 29 20 20 20 20 |cpi+.1),|" ")    |
|00001bd0| 20 3a 20 f4 20 50 72 69 | 6e 74 20 69 6e 64 65 6e | : . Pri|nt inden|
|00001be0| 74 0d 09 42 2d 20 20 e7 | 20 6a 75 73 74 3d 33 20 |t..B-  .| just=3 |
|00001bf0| 8c 20 6c 69 24 20 2b 3d | 20 69 6e 64 24 20 8b 20 |. li$ +=| ind$ . |
|00001c00| 6c 69 24 20 3d 20 69 6e | 64 24 2b 6c 69 24 0d 09 |li$ = in|d$+li$..|
|00001c10| 4c 05 3a 0d 09 56 09 3d | 20 6c 69 24 0d 09 60 04 |L.:..V.=| li$..`.|
|00001c20| 0d 09 6a 14 dd 20 f2 6f | 75 74 70 75 74 28 66 69 |..j.. .o|utput(fi|
|00001c30| 6c 65 24 29 0d 09 74 12 | ea 20 4a 25 2c 4e 25 2c |le$)..t.|. J%,N%,|
|00001c40| 64 66 2c 6c 69 24 0d 09 | 7e 07 ea 20 85 0d 09 88 |df,li$..|~.. ....|
|00001c50| 05 3a 0d 09 92 46 3a 20 | f4 20 4f 75 74 70 75 74 |.:...F: |. Output|
|00001c60| 20 74 68 65 20 6c 61 62 | 65 6c 73 20 66 72 6f 6d | the lab|els from|
|00001c70| 20 69 6e 70 75 74 20 74 | 65 78 74 20 6f 72 20 64 | input t|ext or d|
|00001c80| 61 74 61 20 66 69 6c 65 | 20 61 73 20 61 70 70 72 |ata file| as appr|
|00001c90| 6f 70 72 69 61 74 65 2e | 0d 09 9c 44 3a 20 f4 20 |opriate.|...D: . |
|00001ca0| 4e 75 6d 62 65 72 20 72 | 65 71 75 65 73 74 65 64 |Number r|equested|
|00001cb0| 20 69 73 20 69 6e 20 74 | 68 65 20 67 6c 6f 62 61 | is in t|he globa|
|00001cc0| 6c 20 27 6e 5f 63 6f 70 | 69 65 73 27 20 28 2d 31 |l 'n_cop|ies' (-1|
|00001cd0| 20 3d 3e 20 6c 69 6e 65 | 20 75 70 2c 0d 09 a6 19 | => line| up,....|
|00001ce0| 3a 20 f4 20 2d 32 20 3d | 3e 20 66 6f 72 6d 20 66 |: . -2 =|> form f|
|00001cf0| 65 65 64 29 2e 0d 09 b0 | 05 3a 0d 09 ba 13 20 70 |eed)....|.:.... p|
|00001d00| 72 74 20 3d 20 ae 28 66 | 69 6c 65 24 29 0d 09 c4 |rt = .(f|ile$)...|
|00001d10| 0f 20 e7 20 70 72 74 3c | 3d 30 20 8c 0d 09 ce 35 |. . prt<|=0 ....5|
|00001d20| 20 20 f2 77 61 72 6e 28 | 22 43 6f 75 6c 64 6e 27 |  .warn(|"Couldn'|
|00001d30| 74 20 6f 70 65 6e 20 70 | 72 69 6e 74 65 72 20 66 |t open p|rinter f|
|00001d40| 69 6c 65 20 27 22 2b 66 | 69 6c 65 24 2b 22 27 22 |ile '"+f|ile$+"'"|
|00001d50| 29 0d 09 d8 06 20 cc 0d | 09 e2 17 20 20 c8 99 20 |).... ..|...  .. |
|00001d60| 22 48 6f 75 72 67 6c 61 | 73 73 5f 4f 6e 22 0d 09 |"Hourgla|ss_On"..|
|00001d70| ec 05 3a 0d 09 f6 2e 3a | 20 f4 20 45 6e 61 62 6c |..:....:| . Enabl|
|00001d80| 65 20 45 73 63 61 70 65 | 20 77 68 69 6c 65 20 6f |e Escape| while o|
|00001d90| 75 74 70 75 74 20 69 6e | 20 70 72 6f 67 72 65 73 |utput in| progres|
|00001da0| 73 0d 0a 00 05 3a 0d 0a | 0a 5d 20 ee 20 85 20 ea |s....:..|.] . . .|
|00001db0| 20 e7 20 9f 3c 3e 31 37 | 20 8c 20 f7 20 85 20 3a | . .<>17| . . . :|
|00001dc0| 20 85 20 9f 2c f6 24 2b | 22 20 28 6c 69 6e 65 20 | . .,.$+|" (line |
|00001dd0| 22 2b c3 9e 2b 22 29 22 | 20 8b 20 f2 77 61 72 6e |"+..+")"| . .warn|
|00001de0| 28 22 45 73 63 61 70 65 | 20 2d 20 70 72 69 6e 74 |("Escape| - print|
|00001df0| 20 61 62 6f 72 74 65 64 | 22 29 20 3a 20 e5 20 8d | aborted|") : . .|
|00001e00| 64 70 4a 0d 0a 14 19 20 | c8 99 20 22 4f 53 5f 42 |dpJ.... |.. "OS_B|
|00001e10| 79 74 65 22 2c 32 32 39 | 2c 30 2c 30 0d 0a 1e 0f |yte",229|,0,0....|
|00001e20| 20 20 f2 69 6e 69 74 5f | 70 72 74 0d 0a 28 05 3a |  .init_|prt..(.:|
|00001e30| 0d 0a 32 15 20 20 e7 20 | 6e 5f 63 6f 70 69 65 73 |..2.  . |n_copies|
|00001e40| 3d 2d 32 20 8c 0d 0a 3c | 10 20 20 20 d5 20 23 70 |=-2 ...<|.   . #p|
|00001e50| 72 74 2c 31 32 0d 0a 46 | 0d 20 20 20 e5 20 8d 54 |rt,12..F|.   . .T|
|00001e60| 58 4b 0d 0a 50 07 20 20 | cd 0d 0a 5a 05 3a 0d 0a |XK..P.  |...Z.:..|
|00001e70| 64 1f 20 20 e7 20 65 6e | 74 65 72 20 84 20 28 6e |d.  . en|ter . (n|
|00001e80| 5f 63 6f 70 69 65 73 3d | 2d 31 29 20 8c 0d 0a 6e |_copies=|-1) ...n|
|00001e90| 19 20 20 20 76 6f 69 64 | 20 3d 20 a4 72 65 61 64 |.   void| = .read|
|00001ea0| 73 65 74 28 30 29 0d 0a | 78 3f 20 20 20 4e 25 20 |set(0)..|x?   N% |
|00001eb0| 3d 20 28 6e 5f 63 6f 70 | 69 65 73 2b 73 74 6f 63 |= (n_cop|ies+stoc|
|00001ec0| 6b 2d 31 29 20 81 20 73 | 74 6f 63 6b 20 3a 20 e7 |k-1) . s|tock : .|
|00001ed0| 20 6e 5f 63 6f 70 69 65 | 73 3d 2d 31 20 8c 20 4e | n_copie|s=-1 . N|
|00001ee0| 25 20 3d 20 31 0d 0a 82 | 22 20 20 20 e3 20 4a 25 |% = 1...|"   . J%|
|00001ef0| 20 3d 20 31 20 b8 20 4e | 25 20 3a 20 f2 6f 75 74 | = 1 . N|% : .out|
|00001f00| 6c 61 62 20 3a 20 ed 0d | 0a 8c 07 20 20 cc 0d 0a |lab : ..|...  ...|
|00001f10| 96 17 20 20 20 64 66 20 | 3d 20 8e 28 6c 61 62 66 |..   df |= .(labf|
|00001f20| 69 6c 65 24 29 0d 0a a0 | 10 20 20 20 e7 20 64 66 |ile$)...|.   . df|
|00001f30| 3c 3d 30 20 8c 0d 0a aa | 3d 20 20 20 20 f2 77 61 |<=0 ....|=    .wa|
|00001f40| 72 6e 28 22 43 6f 75 6c | 64 6e 27 74 20 6f 70 65 |rn("Coul|dn't ope|
|00001f50| 6e 20 6c 61 62 65 6c 20 | 64 61 74 61 20 66 69 6c |n label |data fil|
|00001f60| 65 20 27 22 2b 6c 61 62 | 66 69 6c 65 24 2b 22 27 |e '"+lab|file$+"'|
|00001f70| 22 29 0d 0a b4 0e 20 20 | 20 20 e5 20 8d 54 76 4b |")....  |  . .TvK|
|00001f80| 0d 0a be 08 20 20 20 cd | 0d 0a c8 0e 20 20 20 65 |....   .|....   e|
|00001f90| 6f 66 20 3d 20 46 0d 0a | d2 11 20 20 20 c8 95 20 |of = F..|..   .. |
|00001fa0| 28 ac 20 65 6f 66 29 0d | 0a dc 18 20 20 20 20 e7 |(. eof).|...    .|
|00001fb0| 20 a4 72 65 61 64 73 65 | 74 28 64 66 29 20 8c 0d | .readse|t(df) ..|
|00001fc0| 0a e6 2a 20 20 20 20 20 | e3 20 4a 25 20 3d 20 31 |..*     |. J% = 1|
|00001fd0| 20 b8 20 6e 5f 63 6f 70 | 69 65 73 20 3a 20 f2 6f | . n_cop|ies : .o|
|00001fe0| 75 74 6c 61 62 20 3a 20 | ed 0d 0a f0 09 20 20 20 |utlab : |.....   |
|00001ff0| 20 cd 0d 0a fa 08 20 20 | 20 ce 0d 0b 04 0c 20 20 | .....  | .....  |
|00002000| 20 d9 20 23 64 66 0d 0b | 0e 07 20 20 cd 0d 0b 18 | . #df..|..  ....|
|00002010| 05 3a 0d 0b 22 39 3a 20 | f4 20 43 6c 65 61 72 20 |.:.."9: |. Clear |
|00002020| 61 6e 64 20 64 69 73 61 | 62 6c 65 20 45 73 63 61 |and disa|ble Esca|
|00002030| 70 65 20 62 65 66 6f 72 | 65 20 72 65 74 75 72 6e |pe befor|e return|
|00002040| 69 6e 67 20 74 6f 20 57 | 69 6d 70 0d 0b 2c 05 3a |ing to W|imp..,.:|
|00002050| 0d 0b 36 16 20 20 c8 99 | 20 22 4f 53 5f 42 79 74 |..6.  ..| "OS_Byt|
|00002060| 65 22 2c 31 32 34 0d 0b | 40 1a 20 20 c8 99 20 22 |e",124..|@.  .. "|
|00002070| 4f 53 5f 42 79 74 65 22 | 2c 32 32 39 2c 31 2c 30 |OS_Byte"|,229,1,0|
|00002080| 0d 0b 4a 09 20 20 f7 20 | 85 0d 0b 54 0c 20 20 d9 |..J.  . |...T.  .|
|00002090| 20 23 70 72 74 0d 0b 5e | 18 20 20 c8 99 20 22 48 | #prt..^|.  .. "H|
|000020a0| 6f 75 72 67 6c 61 73 73 | 5f 4f 66 66 22 0d 0b 68 |ourglass|_Off"..h|
|000020b0| 06 20 cd 0d 0b 72 05 e1 | 0d 0b 7c 04 0d 0b 86 12 |. ...r..|..|.....|
|000020c0| dd 20 a4 72 65 61 64 73 | 65 74 28 64 66 29 0d 0b |. .reads|et(df)..|
|000020d0| 90 0f ea 20 61 6e 79 2c | 49 25 2c 4a 25 0d 0b 9a |... any,|I%,J%...|
|000020e0| 05 3a 0d 0b a4 4b 3a 20 | f4 20 46 69 6c 6c 20 75 |.:...K: |. Fill u|
|000020f0| 70 20 74 68 65 20 6c 69 | 6e 65 20 61 72 72 61 79 |p the li|ne array|
|00002100| 20 77 69 74 68 20 6c 61 | 62 65 6c 20 73 74 72 69 | with la|bel stri|
|00002110| 6e 67 73 2c 20 66 72 6f | 6d 20 74 68 65 20 72 65 |ngs, fro|m the re|
|00002120| 71 75 69 72 65 64 20 73 | 6f 75 72 63 65 0d 0b ae |quired s|ource...|
|00002130| 05 3a 0d 0b b8 44 3a 20 | f4 20 49 66 20 74 68 65 |.:...D: |. If the|
|00002140| 20 65 6e 64 20 6f 66 20 | 66 69 6c 65 20 69 73 20 | end of |file is |
|00002150| 72 65 61 63 68 65 64 2c | 20 73 65 74 20 74 68 65 |reached,| set the|
|00002160| 20 67 6c 6f 62 61 6c 20 | 27 65 6f 66 27 20 74 6f | global |'eof' to|
|00002170| 20 54 52 55 45 2e 0d 0b | c2 32 3a 20 f4 20 52 65 | TRUE...|.2: . Re|
|00002180| 74 75 72 6e 20 54 52 55 | 45 20 69 66 20 74 68 65 |turn TRU|E if the|
|00002190| 72 65 20 69 73 20 61 6e | 79 74 68 69 6e 67 20 74 |re is an|ything t|
|000021a0| 6f 20 70 72 69 6e 74 2e | 0d 0b cc 05 3a 0d 0b d6 |o print.|....:...|
|000021b0| 0d 20 e7 20 64 66 3d 30 | 20 8c 0d 0b e0 22 20 20 |. . df=0| ...."  |
|000021c0| e3 20 49 25 20 3d 20 31 | 20 b8 20 33 32 20 3a 20 |. I% = 1| . 32 : |
|000021d0| e3 20 4a 25 20 3d 20 31 | 20 b8 20 33 0d 0b ea 1d |. J% = 1| . 3....|
|000021e0| 20 20 20 6c 69 6e 65 24 | 28 49 25 2c 4a 25 29 20 |   line$|(I%,J%) |
|000021f0| 3d 20 24 6c 70 28 49 25 | 29 0d 0b f4 0b 20 20 ed |= $lp(I%|)....  .|
|00002200| 20 3a 20 ed 0d 0b fe 0d | 20 20 61 6e 79 20 3d 20 | : .....|  any = |
|00002210| 54 0d 0c 08 06 20 cc 0d | 0c 12 3e 20 20 e3 20 49 |T.... ..|..>  . I|
|00002220| 25 20 3d 20 31 20 b8 20 | 33 32 20 3a 20 e3 20 4a |% = 1 . |32 : . J|
|00002230| 25 20 3d 20 31 20 b8 20 | 33 20 3a 20 6c 69 6e 65 |% = 1 . |3 : line|
|00002240| 24 28 49 25 2c 4a 25 29 | 20 3d 20 22 22 20 3a 20 |$(I%,J%)| = "" : |
|00002250| ed 20 3a 20 ed 0d 0c 1c | 0d 20 20 61 6e 79 20 3d |. : ....|.  any =|
|00002260| 20 46 0d 0c 26 16 20 20 | e3 20 49 25 20 3d 20 31 | F..&.  |. I% = 1|
|00002270| 20 b8 20 73 74 6f 63 6b | 0d 0c 30 0d 20 20 20 4a | . stock|..0.   J|
|00002280| 25 20 3d 20 31 0d 0c 3a | 08 20 20 20 f5 0d 0c 44 |% = 1..:|.   ...D|
|00002290| 1a 20 20 20 20 6c 69 24 | 20 3d 20 a4 67 65 74 6c |.    li$| = .getl|
|000022a0| 69 6e 65 28 64 66 29 0d | 0c 4e 19 20 20 20 20 e7 |ine(df).|.N.    .|
|000022b0| 20 6c 69 24 3d 65 6f 66 | 24 20 8c 20 8d 74 7c 4c | li$=eof|$ . .t|L|
|000022c0| 0d 0c 58 12 20 20 20 fd | 20 6c 69 24 3c 3e 64 65 |..X.   .| li$<>de|
|000022d0| 6c 24 0d 0c 62 13 20 20 | 20 c8 95 20 6c 69 24 3c |l$..b.  | .. li$<|
|000022e0| 3e 64 65 6c 24 0d 0c 6c | 0f 20 20 20 20 61 6e 79 |>del$..l|.    any|
|000022f0| 20 3d 20 54 0d 0c 76 25 | 20 20 20 20 e7 20 4a 25 | = T..v%|    . J%|
|00002300| 3c 3d 33 32 20 8c 20 6c | 69 6e 65 24 28 4a 25 2c |<=32 . l|ine$(J%,|
|00002310| 49 25 29 20 3d 20 6c 69 | 24 0d 0c 80 0f 20 20 20 |I%) = li|$....   |
|00002320| 20 4a 25 20 2b 3d 20 31 | 0d 0c 8a 1a 20 20 20 20 | J% += 1|....    |
|00002330| 6c 69 24 20 3d 20 a4 67 | 65 74 6c 69 6e 65 28 64 |li$ = .g|etline(d|
|00002340| 66 29 0d 0c 94 19 20 20 | 20 20 e7 20 6c 69 24 3d |f)....  |  . li$=|
|00002350| 65 6f 66 24 20 8c 20 8d | 74 7c 4c 0d 0c 9e 08 20 |eof$ . .|t|L.... |
|00002360| 20 20 ce 0d 0c a8 07 20 | 20 ed 0d 0c b2 06 20 cd |  ..... | ..... .|
|00002370| 0d 0c bc 09 3d 20 61 6e | 79 0d 0c c6 04 0d 0c d0 |....= an|y.......|
|00002380| 11 dd 20 a4 67 65 74 6c | 69 6e 65 28 66 29 0d 0c |.. .getl|ine(f)..|
|00002390| da 09 ea 20 6c 69 24 0d | 0c e4 05 3a 0d 0c ee 35 |... li$.|...:...5|
|000023a0| 3a 20 f4 20 52 65 61 64 | 20 61 20 6c 69 6e 65 20 |: . Read| a line |
|000023b0| 6f 66 20 74 65 78 74 20 | 66 72 6f 6d 20 74 68 65 |of text |from the|
|000023c0| 20 6c 61 62 65 6c 20 64 | 61 74 61 20 66 69 6c 65 | label d|ata file|
|000023d0| 2e 0d 0c f8 42 3a 20 f4 | 20 52 65 74 75 72 6e 20 |....B: .| Return |
|000023e0| 74 68 65 20 6c 69 6e 65 | 2c 20 6f 72 20 65 6f 66 |the line|, or eof|
|000023f0| 2f 64 65 6c 69 6d 69 74 | 65 72 20 69 6e 64 69 63 |/delimit|er indic|
|00002400| 61 74 6f 72 20 61 73 20 | 61 70 70 72 6f 70 72 69 |ator as |appropri|
|00002410| 61 74 65 0d 0d 02 05 3a | 0d 0d 0c 0c 20 e7 20 c5 |ate....:|.... . .|
|00002420| 23 66 20 8c 0d 0d 16 0d | 20 20 65 6f 66 20 3d 20 |#f .....|  eof = |
|00002430| 54 0d 0d 20 10 20 20 6c | 69 24 20 3d 20 65 6f 66 |T.. .  l|i$ = eof|
|00002440| 24 0d 0d 2a 06 20 cc 0d | 0d 34 0f 20 20 6c 69 24 |$..*. ..|.4.  li$|
|00002450| 20 3d 20 be 23 66 0d 0d | 3e 20 20 20 e7 20 a4 64 | = .#f..|>   . .d|
|00002460| 65 6c 69 6d 28 6c 69 24 | 29 20 8c 20 6c 69 24 20 |elim(li$|) . li$ |
|00002470| 3d 20 64 65 6c 24 0d 0d | 48 06 20 cd 0d 0d 52 09 |= del$..|H. ...R.|
|00002480| 3d 20 6c 69 24 0d 0d 5c | 04 0d 0d 66 0f dd 20 f2 |= li$..\|...f.. .|
|00002490| 69 6e 69 74 5f 70 72 74 | 0d 0d 70 0b ea 20 69 6e |init_prt|..p.. in|
|000024a0| 69 74 24 0d 0d 7a 05 3a | 0d 0d 84 1d 3a 20 f4 20 |it$..z.:|....: . |
|000024b0| 53 65 74 20 75 70 20 70 | 72 69 6e 74 65 72 20 66 |Set up p|rinter f|
|000024c0| 6f 72 6d 61 74 0d 0d 8e | 05 3a 0d 0d 98 45 20 69 |ormat...|.:...E i|
|000024d0| 6e 69 74 24 20 3d 20 65 | 73 63 24 2b 22 40 22 20 |nit$ = e|sc$+"@" |
|000024e0| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:       |        |
|000024f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002500| 20 20 20 f4 20 49 6e 69 | 74 69 61 6c 69 73 65 0d |   . Ini|tialise.|
|00002510| 0d a2 05 3a 0d 0d ac 0d | 20 c8 8e 20 63 70 69 20 |...:....| .. cpi |
|00002520| ca 0d 0d b6 44 20 20 c9 | 20 35 3a 20 20 69 6e 69 |....D  .| 5:  ini|
|00002530| 74 24 20 2b 3d 20 65 73 | 63 24 2b 22 57 31 22 20 |t$ += es|c$+"W1" |
|00002540| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:       |        |
|00002550| 20 20 20 20 20 20 20 f4 | 20 44 6f 75 62 6c 65 20 |       .| Double |
|00002560| 77 69 64 74 68 0d 0d c0 | 0b 20 20 c9 20 31 30 3a |width...|.  . 10:|
|00002570| 0d 0d ca 43 20 20 c9 20 | 31 32 3a 20 69 6e 69 74 |...C  . |12: init|
|00002580| 24 20 2b 3d 20 65 73 63 | 24 2b 22 4d 22 20 3a 20 |$ += esc|$+"M" : |
|00002590| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000025a0| 20 20 20 20 20 20 f4 20 | 45 6c 69 74 65 20 70 69 |      . |Elite pi|
|000025b0| 74 63 68 0d 0d d4 44 20 | 20 c9 20 31 37 3a 20 69 |tch...D | . 17: i|
|000025c0| 6e 69 74 24 20 2b 3d 20 | bd 28 31 35 29 20 3a 20 |nit$ += |.(15) : |
|000025d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000025e0| 20 20 20 20 20 20 f4 20 | 43 6f 6e 64 65 6e 73 65 |      . |Condense|
|000025f0| 64 20 70 69 74 63 68 0d | 0d de 06 20 cb 0d 0d e8 |d pitch.|... ....|
|00002600| 05 3a 0d 0d f2 0d 20 c8 | 8e 20 6c 70 69 20 ca 0d |.:.... .|. lpi ..|
|00002610| 0d fc 49 20 20 c9 20 34 | 3a 20 20 69 6e 69 74 24 |..I  . 4|:  init$|
|00002620| 20 2b 3d 20 65 73 63 24 | 2b 22 33 36 22 20 3a 20 | += esc$|+"36" : |
|00002630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002640| 20 20 20 20 20 f4 20 35 | 34 2f 32 31 36 20 6c 69 |     . 5|4/216 li|
|00002650| 6e 65 20 70 69 74 63 68 | 0d 0e 06 0a 20 20 c9 20 |ne pitch|....  . |
|00002660| 36 3a 0d 0e 10 46 20 20 | c9 20 38 3a 20 20 69 6e |6:...F  |. 8:  in|
|00002670| 69 74 24 20 2b 3d 20 65 | 73 63 24 2b 22 30 22 20 |it$ += e|sc$+"0" |
|00002680| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:       |        |
|00002690| 20 20 20 20 20 20 20 20 | f4 20 31 2f 38 20 6c 69 |        |. 1/8 li|
|000026a0| 6e 65 20 70 69 74 63 68 | 0d 0e 1a 06 20 cb 0d 0e |ne pitch|.... ...|
|000026b0| 24 05 3a 0d 0e 2e 38 20 | e7 20 28 74 5f 74 79 70 |$.:...8 |. (t_typ|
|000026c0| 65 20 80 20 25 30 30 30 | 30 31 29 3e 30 20 8c 20 |e . %000|01)>0 . |
|000026d0| 69 6e 69 74 24 20 2b 3d | 20 65 73 63 24 2b 22 78 |init$ +=| esc$+"x|
|000026e0| 31 22 20 3a 20 20 f4 20 | 4e 4c 51 0d 0e 38 39 20 |1" :  . |NLQ..89 |
|000026f0| e7 20 28 74 5f 74 79 70 | 65 20 80 20 25 30 30 30 |. (t_typ|e . %000|
|00002700| 31 30 29 3e 30 20 8c 20 | 69 6e 69 74 24 20 2b 3d |10)>0 . |init$ +=|
|00002710| 20 65 73 63 24 2b 22 47 | 22 20 3a 20 20 20 f4 20 | esc$+"G|" :   . |
|00002720| 42 6f 6c 64 0d 0e 42 3b | 20 e7 20 28 74 5f 74 79 |Bold..B;| . (t_ty|
|00002730| 70 65 20 80 20 25 30 30 | 31 30 30 29 3e 30 20 8c |pe . %00|100)>0 .|
|00002740| 20 69 6e 69 74 24 20 2b | 3d 20 65 73 63 24 2b 22 | init$ +|= esc$+"|
|00002750| 34 22 20 3a 20 20 20 f4 | 20 49 74 61 6c 69 63 0d |4" :   .| Italic.|
|00002760| 0e 4c 38 20 e7 20 28 74 | 5f 74 79 70 65 20 80 20 |.L8 . (t|_type . |
|00002770| 25 30 31 30 30 30 29 3e | 30 20 8c 20 69 6e 69 74 |%01000)>|0 . init|
|00002780| 24 20 2b 3d 20 65 73 63 | 24 2b 22 72 31 22 20 3a |$ += esc|$+"r1" :|
|00002790| 20 20 f4 20 52 65 64 0d | 0e 56 04 0d 0e 60 1c 20 |  . Red.|.V...`. |
|000027a0| e7 20 28 74 5f 74 79 70 | 65 20 80 20 25 31 30 30 |. (t_typ|e . %100|
|000027b0| 30 30 29 3e 30 20 8c 0d | 0e 6a 44 20 20 75 6e 64 |00)>0 ..|.jD  und|
|000027c0| 65 72 31 24 20 3d 20 65 | 73 63 24 2b 22 2d 31 22 |er1$ = e|sc$+"-1"|
|000027d0| 20 3a 20 75 6e 64 65 72 | 30 24 20 3d 20 65 73 63 | : under|0$ = esc|
|000027e0| 24 2b 22 2d 30 22 20 3a | 20 20 20 20 20 20 20 20 |$+"-0" :|        |
|000027f0| f4 20 55 6e 64 65 72 6c | 69 6e 65 0d 0e 74 06 20 |. Underl|ine..t. |
|00002800| cc 0d 0e 7e 47 20 20 75 | 6e 64 65 72 31 24 20 3d |...~G  u|nder1$ =|
|00002810| 20 22 22 20 3a 20 75 6e | 64 65 72 30 24 20 3d 20 | "" : un|der0$ = |
|00002820| 22 22 20 3a 20 20 20 20 | 20 20 20 20 20 20 20 20 |"" :    |        |
|00002830| 20 20 20 20 20 20 20 20 | 20 20 f4 20 4e 6f 20 75 |        |  . No u|
|00002840| 6e 64 65 72 6c 69 6e 65 | 0d 0e 88 06 20 cd 0d 0e |nderline|.... ...|
|00002850| 92 04 0d 0e 9c 42 20 69 | 6e 69 74 24 20 2b 3d 20 |.....B i|nit$ += |
|00002860| 65 73 63 24 2b 22 43 22 | 2b bd 28 a8 28 70 61 72 |esc$+"C"|+.(.(par|
|00002870| 61 6d 28 70 5f 76 70 29 | 2a 6c 70 69 2b 2e 31 29 |am(p_vp)|*lpi+.1)|
|00002880| 29 20 3a 20 20 20 f4 20 | 46 6f 72 6d 20 28 6c 69 |) :   . |Form (li|
|00002890| 6e 65 73 29 0d 0e a6 05 | 3a 0d 0e b0 12 20 d5 20 |nes)....|:.... . |
|000028a0| 23 70 72 74 2c 69 6e 69 | 74 24 3b 0d 0e ba 05 e1 |#prt,ini|t$;.....|
|000028b0| 0d 0e c4 04 0d 0e ce 18 | dd 20 a4 6d 65 73 73 61 |........|. .messa|
|000028c0| 67 65 5f 69 64 6c 65 28 | 62 6c 6b 29 0d 0e d8 1c |ge_idle(|blk)....|
|000028d0| ea 20 73 70 24 2c 66 69 | 6c 65 24 2c 64 70 2c 73 |. sp$,fi|le$,dp,s|
|000028e0| 61 66 65 2c 74 79 70 65 | 0d 0e e2 11 ea 20 62 62 |afe,type|..... bb|
|000028f0| 31 2c 62 62 32 2c 62 62 | 33 0d 0e ec 05 3a 0d 0e |1,bb2,bb|3....:..|
|00002900| f6 28 3a 20 f4 20 4d 65 | 73 73 61 67 65 20 72 65 |.(: . Me|ssage re|
|00002910| 63 65 69 76 65 64 20 69 | 6e 20 69 64 6c 65 20 70 |ceived i|n idle p|
|00002920| 72 6f 63 65 73 73 0d 0f | 00 05 3a 0d 0f 0a 10 20 |rocess..|..:.... |
|00002930| c8 8e 20 62 6c 6b 21 31 | 36 20 ca 0d 0f 14 05 3a |.. blk!1|6 .....:|
|00002940| 0d 0f 1e 11 20 20 c9 20 | 4d 73 67 5f 48 65 6c 70 |....  . |Msg_Help|
|00002950| 3a 0d 0f 28 1b 20 20 20 | f2 68 65 6c 70 28 62 6c |:..(.   |.help(bl|
|00002960| 6b 21 33 32 2c 62 6c 6b | 21 33 36 29 0d 0f 32 05 |k!32,blk|!36)..2.|
|00002970| 3a 0d 0f 3c 15 20 20 c9 | 20 4d 73 67 5f 4d 65 6e |:..<.  .| Msg_Men|
|00002980| 75 57 61 72 6e 3a 0d 0f | 46 31 20 20 20 62 62 31 |uWarn:..|F1   bb1|
|00002990| 20 3d 20 62 6c 6b 21 32 | 30 20 3a 20 62 62 32 20 | = blk!2|0 : bb2 |
|000029a0| 3d 20 62 6c 6b 21 32 34 | 20 3a 20 62 62 33 20 3d |= blk!24| : bb3 =|
|000029b0| 20 62 6c 6b 21 32 38 0d | 0f 50 12 20 20 20 c8 8e | blk!28.|.P.   ..|
|000029c0| 20 62 6c 6b 21 33 32 20 | ca 0d 0f 5a 12 20 20 20 | blk!32 |...Z.   |
|000029d0| 20 c9 20 69 6d 5f 66 69 | 6c 65 3a 0d 0f 64 13 20 | . im_fi|le:..d. |
|000029e0| 20 20 20 20 f2 66 69 6c | 65 5f 69 6e 66 6f 0d 0f |    .fil|e_info..|
|000029f0| 6e 12 20 20 20 20 c9 20 | 69 6d 5f 73 61 76 65 3a |n.    . |im_save:|
|00002a00| 0d 0f 78 18 20 20 20 20 | 20 73 61 76 69 6e 67 20 |..x.    | saving |
|00002a10| 3d 20 62 6c 6b 21 33 36 | 0d 0f 82 14 20 20 20 20 |= blk!36|....    |
|00002a20| 20 c8 8e 20 73 61 76 69 | 6e 67 20 ca 0d 0f 8c 14 | .. savi|ng .....|
|00002a30| 20 20 20 20 20 20 c9 20 | 73 6d 5f 74 65 78 74 3a |      . |sm_text:|
|00002a40| 0d 0f 96 1b 20 20 20 20 | 20 20 20 73 70 24 20 3d |....    |   sp$ =|
|00002a50| 20 22 66 69 6c 65 5f 66 | 66 66 22 0d 0f a0 41 20 | "file_f|ff"...A |
|00002a60| 20 20 20 20 20 20 e7 20 | 6c 61 62 66 69 6c 65 24 |      . |labfile$|
|00002a70| 3d 22 22 20 8c 20 66 69 | 6c 65 24 20 3d 20 22 4c |="" . fi|le$ = "L|
|00002a80| 61 62 65 6c 46 69 6c 65 | 22 20 8b 20 66 69 6c 65 |abelFile|" . file|
|00002a90| 24 20 3d 20 6c 61 62 66 | 69 6c 65 24 0d 0f aa 13 |$ = labf|ile$....|
|00002aa0| 20 20 20 20 20 20 c9 20 | 73 6d 5f 73 65 74 3a 0d |      . |sm_set:.|
|00002ab0| 0f b4 2f 20 20 20 20 20 | 20 20 73 70 24 20 3d 20 |../     |  sp$ = |
|00002ac0| 22 66 69 6c 65 5f 22 2b | c2 22 30 30 30 22 2b c3 |"file_"+|."000"+.|
|00002ad0| 7e 28 66 69 6c 65 74 79 | 70 65 29 2c 33 29 0d 0f |~(filety|pe),3)..|
|00002ae0| be 41 20 20 20 20 20 20 | 20 e7 20 73 65 74 66 69 |.A      | . setfi|
|00002af0| 6c 65 24 3d 22 22 20 8c | 20 66 69 6c 65 24 20 3d |le$="" .| file$ =|
|00002b00| 20 22 50 61 72 61 6d 46 | 69 6c 65 22 20 8b 20 66 | "ParamF|ile" . f|
|00002b10| 69 6c 65 24 20 3d 20 73 | 65 74 66 69 6c 65 24 0d |ile$ = s|etfile$.|
|00002b20| 0f c8 0c 20 20 20 20 20 | 20 7f 3a 0d 0f d2 26 20 |...     | .:...& |
|00002b30| 20 20 20 20 20 20 73 70 | 24 20 3d 20 22 65 72 72 |      sp|$ = "err|
|00002b40| 6f 72 21 22 20 3a 20 66 | 69 6c 65 24 20 3d 20 22 |or!" : f|ile$ = "|
|00002b50| 22 0d 0f dc 0a 20 20 20 | 20 20 cb 0d 0f e6 31 20 |"....   |  ....1 |
|00002b60| 20 20 20 20 c8 99 20 22 | 4f 53 5f 53 70 72 69 74 |    .. "|OS_Sprit|
|00002b70| 65 4f 70 22 2c 26 31 31 | 39 2c 73 70 72 69 74 65 |eOp",&11|9,sprite|
|00002b80| 73 2c 22 66 69 6c 65 5f | 78 78 78 22 0d 0f f0 35 |s,"file_|xxx"...5|
|00002b90| 20 20 20 20 20 c8 99 20 | 22 4f 53 5f 53 70 72 69 |     .. |"OS_Spri|
|00002ba0| 74 65 4f 70 22 2c 26 31 | 31 42 2c 73 70 72 69 74 |teOp",&1|1B,sprit|
|00002bb0| 65 73 2c 73 70 24 2c 22 | 66 69 6c 65 5f 78 78 78 |es,sp$,"|file_xxx|
|00002bc0| 22 0d 0f fa 29 20 20 20 | 20 20 f2 73 65 74 5f 74 |"...)   |  .set_t|
|00002bd0| 65 78 74 28 77 5f 73 61 | 76 65 2c 69 5f 76 5f 6e |ext(w_sa|ve,i_v_n|
|00002be0| 61 6d 65 2c 66 69 6c 65 | 24 29 0d 10 04 08 20 20 |ame,file|$)....  |
|00002bf0| 20 cb 0d 10 0e 2b 20 20 | 20 c8 99 20 22 57 69 6d | ....+  | .. "Wim|
|00002c00| 70 5f 43 72 65 61 74 65 | 53 75 62 4d 65 6e 75 22 |p_Create|SubMenu"|
|00002c10| 2c 2c 62 62 31 2c 62 62 | 32 2c 62 62 33 0d 10 18 |,,bb1,bb|2,bb3...|
|00002c20| 05 3a 0d 10 22 18 20 20 | c9 20 4d 73 67 5f 44 61 |.:..".  |. Msg_Da|
|00002c30| 74 61 53 61 76 65 41 63 | 6b 3a 0d 10 2c 35 20 20 |taSaveAc|k:..,5  |
|00002c40| 20 64 70 20 3d 20 62 6c | 6b 2b 34 34 20 3a 20 f5 | dp = bl|k+44 : .|
|00002c50| 20 3a 20 64 70 20 2b 3d | 20 31 20 3a 20 fd 20 3f | : dp +=| 1 : . ?|
|00002c60| 64 70 3d 30 20 3a 20 3f | 64 70 20 3d 20 31 33 0d |dp=0 : ?|dp = 13.|
|00002c70| 10 36 2e 20 20 20 66 69 | 6c 65 24 20 3d 20 24 28 |.6.   fi|le$ = $(|
|00002c80| 62 6c 6b 2b 34 34 29 20 | 3a 20 73 61 66 65 20 3d |blk+44) |: safe =|
|00002c90| 20 28 62 6c 6b 21 33 36 | 3c 3e 2d 31 29 0d 10 40 | (blk!36|<>-1)..@|
|00002ca0| 19 20 20 20 e7 20 73 61 | 76 69 6e 67 3d 73 6d 5f |.   . sa|ving=sm_|
|00002cb0| 74 65 78 74 20 8c 0d 10 | 4a 1e 20 20 20 20 f2 73 |text ...|J.    .s|
|00002cc0| 61 76 65 5f 74 65 78 74 | 28 66 69 6c 65 24 2c 73 |ave_text|(file$,s|
|00002cd0| 61 66 65 29 0d 10 54 08 | 20 20 20 cc 0d 10 5e 20 |afe)..T.|   ...^ |
|00002ce0| 20 20 20 20 f2 73 61 76 | 65 5f 70 61 72 61 6d 73 |    .sav|e_params|
|00002cf0| 28 66 69 6c 65 24 2c 73 | 61 66 65 29 0d 10 68 08 |(file$,s|afe)..h.|
|00002d00| 20 20 20 cd 0d 10 72 2d | 20 20 20 c8 99 20 22 57 |   ...r-|   .. "W|
|00002d10| 69 6d 70 5f 43 72 65 61 | 74 65 4d 65 6e 75 22 2c |imp_Crea|teMenu",|
|00002d20| 2c 2d 31 20 3a 20 73 61 | 76 69 6e 67 20 3d 20 2d |,-1 : sa|ving = -|
|00002d30| 31 0d 10 7c 2d 20 20 20 | 62 6c 6b 21 31 36 20 3d |1..|-   |blk!16 =|
|00002d40| 20 4d 73 67 5f 44 61 74 | 61 4c 6f 61 64 20 3a 20 | Msg_Dat|aLoad : |
|00002d50| 62 6c 6b 21 31 32 20 3d | 20 62 6c 6b 21 38 0d 10 |blk!12 =| blk!8..|
|00002d60| 86 1d 20 20 20 3f 28 62 | 6c 6b 2b 34 34 2b a9 28 |..   ?(b|lk+44+.(|
|00002d70| 66 69 6c 65 24 29 29 20 | 3d 20 30 0d 10 90 34 20 |file$)) |= 0...4 |
|00002d80| 20 20 c8 99 20 22 57 69 | 6d 70 5f 53 65 6e 64 4d |  .. "Wi|mp_SendM|
|00002d90| 65 73 73 61 67 65 22 2c | 52 63 5f 4d 65 73 73 61 |essage",|Rc_Messa|
|00002da0| 67 65 52 65 63 2c 62 6c | 6b 2c 62 6c 6b 21 34 0d |geRec,bl|k,blk!4.|
|00002db0| 10 9a 05 3a 0d 10 a4 15 | 20 20 c9 20 4d 73 67 5f |...:....|  . Msg_|
|00002dc0| 44 61 74 61 4c 6f 61 64 | 3a 0d 10 ae 35 20 20 20 |DataLoad|:...5   |
|00002dd0| 64 70 20 3d 20 62 6c 6b | 2b 34 34 20 3a 20 f5 20 |dp = blk|+44 : . |
|00002de0| 3a 20 64 70 20 2b 3d 20 | 31 20 3a 20 fd 20 3f 64 |: dp += |1 : . ?d|
|00002df0| 70 3d 30 20 3a 20 3f 64 | 70 20 3d 20 31 33 0d 10 |p=0 : ?d|p = 13..|
|00002e00| b8 3c 20 20 20 66 69 6c | 65 24 20 3d 20 24 28 62 |.<   fil|e$ = $(b|
|00002e10| 6c 6b 2b 34 34 29 20 3a | 20 74 79 70 65 20 3d 20 |lk+44) :| type = |
|00002e20| 62 6c 6b 21 34 30 20 3a | 20 73 61 66 65 20 3d 20 |blk!40 :| safe = |
|00002e30| 28 62 6c 6b 21 31 32 3d | 30 29 0d 10 c2 24 20 20 |(blk!12=|0)...$  |
|00002e40| 20 e7 20 74 79 70 65 3d | 66 69 6c 65 74 79 70 65 | . type=|filetype|
|00002e50| 20 84 20 74 79 70 65 3d | 26 46 46 46 20 8c 0d 10 | . type=|&FFF ...|
|00002e60| cc 31 20 20 20 20 62 6c | 6b 21 31 36 20 3d 20 4d |.1    bl|k!16 = M|
|00002e70| 73 67 5f 44 61 74 61 4c | 6f 61 64 41 63 6b 20 3a |sg_DataL|oadAck :|
|00002e80| 20 62 6c 6b 21 31 32 20 | 3d 20 62 6c 6b 21 38 0d | blk!12 |= blk!8.|
|00002e90| 10 d6 32 20 20 20 20 c8 | 99 20 22 57 69 6d 70 5f |..2    .|. "Wimp_|
|00002ea0| 53 65 6e 64 4d 65 73 73 | 61 67 65 22 2c 52 63 5f |SendMess|age",Rc_|
|00002eb0| 4d 65 73 73 61 67 65 2c | 62 6c 6b 2c 62 6c 6b 21 |Message,|blk,blk!|
|00002ec0| 34 0d 10 e0 19 20 20 20 | 20 e7 20 74 79 70 65 3d |4....   | . type=|
|00002ed0| 66 69 6c 65 74 79 70 65 | 20 8c 0d 10 ea 26 20 20 |filetype| ....&  |
|00002ee0| 20 20 20 f2 6c 6f 61 64 | 5f 70 61 72 61 6d 73 28 |   .load|_params(|
|00002ef0| 66 69 6c 65 24 2c 73 61 | 66 65 2c 73 61 66 65 29 |file$,sa|fe,safe)|
|00002f00| 0d 10 f4 09 20 20 20 20 | cc 0d 10 fe 1f 20 20 20 |....    |.....   |
|00002f10| 20 20 f2 6c 6f 61 64 5f | 74 65 78 74 28 66 69 6c |  .load_|text(fil|
|00002f20| 65 24 2c 73 61 66 65 29 | 0d 11 08 27 20 20 20 20 |e$,safe)|...'    |
|00002f30| 20 e7 20 65 6e 74 65 72 | 20 8c 20 f2 77 69 6d 70 | . enter| . .wimp|
|00002f40| 5f 6f 70 65 6e 28 77 5f | 74 65 78 74 2c 54 29 0d |_open(w_|text,T).|
|00002f50| 11 12 09 20 20 20 20 cd | 0d 11 1c 08 20 20 20 cd |...    .|....   .|
|00002f60| 0d 11 26 05 3a 0d 11 30 | 15 20 20 c9 20 4d 73 67 |..&.:..0|.  . Msg|
|00002f70| 5f 44 61 74 61 4f 70 65 | 6e 3a 0d 11 3a 21 20 20 |_DataOpe|n:..:!  |
|00002f80| 20 e7 20 62 6c 6b 21 34 | 30 3d 66 69 6c 65 74 79 | . blk!4|0=filety|
|00002f90| 70 65 20 8c 20 e5 20 8d | 74 6e 50 0d 11 44 05 3a |pe . . .|tnP..D.:|
|00002fa0| 0d 11 4e 15 20 20 c9 20 | 4d 73 67 5f 44 61 74 61 |..N.  . |Msg_Data|
|00002fb0| 53 61 76 65 3a 0d 11 58 | 14 20 20 20 74 79 70 65 |Save:..X|.   type|
|00002fc0| 20 3d 20 62 6c 6b 21 34 | 30 0d 11 62 24 20 20 20 | = blk!4|0..b$   |
|00002fd0| e7 20 74 79 70 65 3d 66 | 69 6c 65 74 79 70 65 20 |. type=f|iletype |
|00002fe0| 84 20 74 79 70 65 3d 26 | 46 46 46 20 8c 0d 11 6c |. type=&|FFF ...l|
|00002ff0| 25 20 20 20 20 24 28 62 | 6c 6b 2b 34 34 29 20 3d |%    $(b|lk+44) =|
|00003000| 20 22 3c 57 69 6d 70 24 | 53 63 72 61 70 3e 22 2b | "<Wimp$|Scrap>"+|
|00003010| bd 30 0d 11 76 20 20 20 | 20 20 62 6c 6b 21 33 36 |.0..v   |  blk!36|
|00003020| 20 3d 20 2d 31 20 3a 20 | 62 6c 6b 21 30 20 3d 20 | = -1 : |blk!0 = |
|00003030| 36 30 0d 11 80 31 20 20 | 20 20 62 6c 6b 21 31 36 |60...1  |  blk!16|
|00003040| 20 3d 20 4d 73 67 5f 44 | 61 74 61 53 61 76 65 41 | = Msg_D|ataSaveA|
|00003050| 63 6b 20 3a 20 62 6c 6b | 21 31 32 20 3d 20 62 6c |ck : blk|!12 = bl|
|00003060| 6b 21 38 0d 11 8a 32 20 | 20 20 20 c8 99 20 22 57 |k!8...2 |   .. "W|
|00003070| 69 6d 70 5f 53 65 6e 64 | 4d 65 73 73 61 67 65 22 |imp_Send|Message"|
|00003080| 2c 52 63 5f 4d 65 73 73 | 61 67 65 2c 62 6c 6b 2c |,Rc_Mess|age,blk,|
|00003090| 62 6c 6b 21 34 0d 11 94 | 08 20 20 20 cd 0d 11 9e |blk!4...|.   ....|
|000030a0| 05 3a 0d 11 a8 16 20 20 | c9 20 4d 73 67 5f 50 72 |.:....  |. Msg_Pr|
|000030b0| 69 6e 74 42 75 73 79 3a | 0d 11 b2 1f 20 20 20 f2 |intBusy:|....   .|
|000030c0| 77 61 72 6e 28 22 50 72 | 69 6e 74 65 72 20 69 73 |warn("Pr|inter is|
|000030d0| 20 62 75 73 79 22 29 0d | 11 bc 05 3a 0d 11 c6 16 | busy").|...:....|
|000030e0| 20 20 c9 20 4d 73 67 5f | 50 72 69 6e 74 46 69 6c |  . Msg_|PrintFil|
|000030f0| 65 3a 0d 11 d0 35 20 20 | 20 64 70 20 3d 20 62 6c |e:...5  | dp = bl|
|00003100| 6b 2b 34 34 20 3a 20 f5 | 20 3a 20 64 70 20 2b 3d |k+44 : .| : dp +=|
|00003110| 20 31 20 3a 20 fd 20 3f | 64 70 3d 30 20 3a 20 3f | 1 : . ?|dp=0 : ?|
|00003120| 64 70 20 3d 20 31 33 0d | 11 da 18 20 20 20 66 69 |dp = 13.|...   fi|
|00003130| 6c 65 24 20 3d 20 24 28 | 62 6c 6b 2b 34 34 29 0d |le$ = $(|blk+44).|
|00003140| 11 e4 15 20 20 20 f2 6f | 75 74 70 75 74 28 66 69 |...   .o|utput(fi|
|00003150| 6c 65 24 29 0d 11 ee 1b | 20 20 20 24 28 62 6c 6b |le$)....|   $(blk|
|00003160| 2b 34 34 29 20 3d 20 66 | 69 6c 65 24 2b bd 30 0d |+44) = f|ile$+.0.|
|00003170| 11 f8 14 20 20 20 62 6c | 6b 21 34 30 20 3d 20 26 |...   bl|k!40 = &|
|00003180| 46 46 46 0d 12 02 15 20 | 20 20 62 6c 6b 21 31 32 |FFF.... |  blk!12|
|00003190| 20 3d 20 62 6c 6b 21 38 | 0d 12 0c 1c 20 20 20 62 | = blk!8|....   b|
|000031a0| 6c 6b 21 31 36 20 3d 20 | 4d 73 67 5f 44 61 74 61 |lk!16 = |Msg_Data|
|000031b0| 4c 6f 61 64 0d 12 16 31 | 20 20 20 c8 99 20 22 57 |Load...1|   .. "W|
|000031c0| 69 6d 70 5f 53 65 6e 64 | 4d 65 73 73 61 67 65 22 |imp_Send|Message"|
|000031d0| 2c 52 63 5f 4d 65 73 73 | 61 67 65 2c 62 6c 6b 2c |,Rc_Mess|age,blk,|
|000031e0| 62 6c 6b 21 34 0d 12 20 | 05 3a 0d 12 2a 06 20 cb |blk!4.. |.:..*. .|
|000031f0| 0d 12 34 07 3d 20 31 0d | 12 3e 04 0d 12 48 14 dd |..4.= 1.|.>...H..|
|00003200| 20 a4 6e 61 6b 5f 69 64 | 6c 65 28 62 6c 6b 29 0d | .nak_id|le(blk).|
|00003210| 12 52 05 3a 0d 12 5c 27 | 3a 20 f4 20 41 20 72 65 |.R.:..\'|: . A re|
|00003220| 63 6f 72 64 65 64 20 6d | 65 73 73 61 67 65 20 6e |corded m|essage n|
|00003230| 6f 74 20 72 65 63 65 69 | 76 65 64 0d 12 66 05 3a |ot recei|ved..f.:|
|00003240| 0d 12 70 10 20 c8 8e 20 | 62 6c 6b 21 31 36 20 ca |..p. .. |blk!16 .|
|00003250| 0d 12 7a 16 20 20 c9 20 | 4d 73 67 5f 50 72 69 6e |..z.  . |Msg_Prin|
|00003260| 74 53 61 76 65 3a 0d 12 | 84 42 20 20 20 f2 77 61 |tSave:..|.B   .wa|
|00003270| 72 6e 28 22 4e 6f 20 72 | 65 73 70 6f 6e 73 65 20 |rn("No r|esponse |
|00003280| 66 72 6f 6d 20 70 72 69 | 6e 74 65 72 20 64 72 69 |from pri|nter dri|
|00003290| 76 65 72 20 2d 20 69 73 | 20 69 74 20 69 6e 73 74 |ver - is| it inst|
|000032a0| 61 6c 6c 65 64 3f 22 29 | 0d 12 8e 15 20 20 c9 20 |alled?")|....  . |
|000032b0| 4d 73 67 5f 44 61 74 61 | 4c 6f 61 64 3a 0d 12 98 |Msg_Data|Load:...|
|000032c0| 1e 20 20 20 ff 20 22 52 | 65 6d 6f 76 65 20 3c 57 |.   . "R|emove <W|
|000032d0| 69 6d 70 24 53 63 72 61 | 70 3e 22 0d 12 a2 33 20 |imp$Scra|p>"...3 |
|000032e0| 20 20 f2 77 61 72 6e 28 | 22 44 61 74 61 20 74 72 |  .warn(|"Data tr|
|000032f0| 61 6e 73 66 65 72 20 66 | 61 69 6c 65 64 2c 20 72 |ansfer f|ailed, r|
|00003300| 65 63 65 69 76 65 72 20 | 64 65 61 64 22 29 0d 12 |eceiver |dead")..|
|00003310| ac 06 20 cb 0d 12 b6 07 | 3d 20 31 0d 12 c0 04 0d |.. .....|= 1.....|
|00003320| 12 ca 11 dd 20 f2 70 72 | 69 6e 74 28 6e 75 6d 29 |.... .pr|int(num)|
|00003330| 0d 12 d4 05 3a 0d 12 de | 39 3a 20 f4 20 47 6f 69 |....:...|9: . Goi|
|00003340| 6e 67 20 74 6f 20 70 72 | 69 6e 74 20 73 6f 6d 65 |ng to pr|int some|
|00003350| 74 68 69 6e 67 3a 20 20 | 6e 75 6d 20 3d 20 6e 75 |thing:  |num = nu|
|00003360| 6d 62 65 72 20 6f 66 20 | 63 6f 70 69 65 73 0d 12 |mber of |copies..|
|00003370| e8 31 3a 20 f4 20 20 20 | 20 20 20 20 20 20 20 20 |.1: .   |        |
|00003380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003390| 20 20 2d 31 20 3d 3e 20 | 6c 69 6e 65 20 75 70 0d |  -1 => |line up.|
|000033a0| 12 f2 33 3a 20 f4 20 20 | 20 20 20 20 20 20 20 20 |..3: .  |        |
|000033b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000033c0| 20 20 20 2d 32 20 3d 3e | 20 66 6f 72 6d 20 66 65 |   -2 =>| form fe|
|000033d0| 65 64 0d 12 fc 05 3a 0d | 13 10 13 20 6e 5f 63 6f |ed....:.|... n_co|
|000033e0| 70 69 65 73 20 3d 20 6e | 75 6d 0d 13 1a 11 20 e7 |pies = n|um.... .|
|000033f0| 20 ac 20 64 69 72 65 63 | 74 20 8c 0d 13 24 10 20 | . direc|t ...$. |
|00003400| 20 62 6c 6b 21 30 20 3d | 20 36 30 0d 13 2e 10 20 | blk!0 =| 60.... |
|00003410| 20 62 6c 6b 21 31 32 20 | 3d 20 30 0d 13 38 1c 20 | blk!12 |= 0..8. |
|00003420| 20 62 6c 6b 21 31 36 20 | 3d 20 4d 73 67 5f 50 72 | blk!16 |= Msg_Pr|
|00003430| 69 6e 74 53 61 76 65 0d | 13 42 14 20 20 24 28 62 |intSave.|.B.  $(b|
|00003440| 6c 6b 2b 34 34 29 20 3d | 20 bd 30 0d 13 4c 2f 20 |lk+44) =| .0..L/ |
|00003450| 20 c8 99 20 22 57 69 6d | 70 5f 53 65 6e 64 4d 65 | .. "Wim|p_SendMe|
|00003460| 73 73 61 67 65 22 2c 52 | 63 5f 4d 65 73 73 61 67 |ssage",R|c_Messag|
|00003470| 65 52 65 63 2c 62 6c 6b | 2c 30 0d 13 56 06 20 cc |eRec,blk|,0..V. .|
|00003480| 0d 13 60 19 20 20 f2 6f | 75 74 70 75 74 28 22 70 |..`.  .o|utput("p|
|00003490| 72 69 6e 74 65 72 3a 22 | 29 0d 13 6a 06 20 cd 0d |rinter:"|)..j. ..|
|000034a0| 13 74 05 e1 0d 13 7e 04 | 0d 13 92 1c dd 20 f2 6c |.t....~.|..... .l|
|000034b0| 6f 61 64 5f 74 65 78 74 | 28 66 69 6c 65 24 2c 73 |oad_text|(file$,s|
|000034c0| 61 66 65 29 0d 13 9c 17 | ea 20 69 66 2c 4a 25 2c |afe)....|. if,J%,|
|000034d0| 6c 69 6e 65 24 2c 66 6c | 61 67 73 0d 13 a6 05 3a |line$,fl|ags....:|
|000034e0| 0d 13 b0 4b 3a 20 f4 20 | 4c 6f 61 64 20 74 68 65 |...K: . |Load the|
|000034f0| 20 6c 61 62 65 6c 20 74 | 65 78 74 20 66 72 6f 6d | label t|ext from|
|00003500| 20 61 20 66 69 6c 65 20 | 2d 20 69 66 20 69 6e 20 | a file |- if in |
|00003510| 6d 61 69 6c 20 6d 65 72 | 67 65 20 6d 6f 64 65 20 |mail mer|ge mode |
|00003520| 61 6e 64 20 6c 6f 61 64 | 69 6e 67 0d 13 ba 3f 3a |and load|ing...?:|
|00003530| 20 f4 20 66 72 6f 6d 20 | 61 6e 6f 74 68 65 72 20 | . from |another |
|00003540| 61 70 70 6c 69 63 61 74 | 69 6f 6e 2c 20 63 6f 70 |applicat|ion, cop|
|00003550| 79 20 74 68 65 20 64 61 | 74 61 20 74 6f 20 61 20 |y the da|ta to a |
|00003560| 73 63 72 61 70 20 66 69 | 6c 65 0d 13 c4 05 3a 0d |scrap fi|le....:.|
|00003570| 13 ce 12 20 69 66 20 3d | 20 8e 28 66 69 6c 65 24 |... if =| .(file$|
|00003580| 29 0d 13 d8 0d 20 e7 20 | 69 66 3d 30 20 8c 0d 13 |).... . |if=0 ...|
|00003590| e2 33 20 20 f2 77 61 72 | 6e 28 22 43 6f 75 6c 64 |.3  .war|n("Could|
|000035a0| 20 6e 6f 74 20 6c 6f 61 | 64 20 74 65 78 74 20 66 | not loa|d text f|
|000035b0| 72 6f 6d 20 27 22 2b 66 | 69 6c 65 24 2b 22 27 22 |rom '"+f|ile$+"'"|
|000035c0| 29 0d 13 ec 06 20 cc 0d | 13 f6 0f 20 20 e7 20 65 |).... ..|...  . e|
|000035d0| 6e 74 65 72 20 8c 0d 14 | 00 30 20 20 20 e3 20 4a |nter ...|.0   . J|
|000035e0| 25 20 3d 20 31 20 b8 20 | 33 32 20 3a 20 24 6c 70 |% = 1 . |32 : $lp|
|000035f0| 28 4a 25 29 20 3d 20 22 | 22 20 3a 20 ed 20 3a 20 |(J%) = "|" : . : |
|00003600| 4a 25 20 3d 20 31 0d 14 | 0a 1d 20 20 20 c8 95 20 |J% = 1..|..   .. |
|00003610| 28 ac 20 c5 23 69 66 29 | 20 80 20 28 4a 25 3c 3d |(. .#if)| . (J%<=|
|00003620| 33 32 29 0d 14 14 14 20 | 20 20 20 6c 69 6e 65 24 |32).... |   line$|
|00003630| 20 3d 20 be 23 69 66 0d | 14 1e 19 20 20 20 20 e7 | = .#if.|...    .|
|00003640| 20 a4 64 65 6c 69 6d 28 | 6c 69 6e 65 24 29 20 8c | .delim(|line$) .|
|00003650| 0d 14 28 13 20 20 20 20 | 20 4a 25 20 3d 20 39 39 |..(.    | J% = 99|
|00003660| 39 39 39 0d 14 32 09 20 | 20 20 20 cc 0d 14 3c 22 |999..2. |   ...<"|
|00003670| 20 20 20 20 20 24 6c 70 | 28 4a 25 29 20 3d 20 6c |     $lp|(J%) = l|
|00003680| 69 6e 65 24 20 3a 20 4a | 25 20 2b 3d 20 31 0d 14 |ine$ : J|% += 1..|
|00003690| 46 09 20 20 20 20 cd 0d | 14 50 08 20 20 20 ce 0d |F.    ..|.P.   ..|
|000036a0| 14 5a 0c 20 20 20 d9 20 | 23 69 66 0d 14 64 0f 20 |.Z.   . |#if..d. |
|000036b0| 20 20 e7 20 73 61 66 65 | 20 8c 0d 14 6e 18 20 20 |  . safe| ...n.  |
|000036c0| 20 20 6c 61 62 66 69 6c | 65 24 20 3d 20 66 69 6c |  labfil|e$ = fil|
|000036d0| 65 24 0d 14 78 08 20 20 | 20 cc 0d 14 82 19 20 20 |e$..x.  | .....  |
|000036e0| 20 20 ff 20 22 52 65 6d | 6f 76 65 20 22 2b 66 69 |  . "Rem|ove "+fi|
|000036f0| 6c 65 24 0d 14 8c 15 20 | 20 20 20 6c 61 62 66 69 |le$.... |   labfi|
|00003700| 6c 65 24 20 3d 20 22 22 | 0d 14 96 08 20 20 20 cd |le$ = ""|....   .|
|00003710| 0d 14 a0 07 20 20 cc 0d | 14 aa 0c 20 20 20 d9 20 |....  ..|...   . |
|00003720| 23 69 66 0d 14 b4 0f 20 | 20 20 e7 20 73 61 66 65 |#if.... |  . safe|
|00003730| 20 8c 0d 14 be 18 20 20 | 20 20 6c 61 62 66 69 6c | .....  |  labfil|
|00003740| 65 24 20 3d 20 66 69 6c | 65 24 0d 14 c8 08 20 20 |e$ = fil|e$....  |
|00003750| 20 cc 0d 14 d2 48 20 20 | 20 20 c8 99 20 22 58 4f | ....H  |  .. "XO|
|00003760| 53 5f 46 53 43 6f 6e 74 | 72 6f 6c 22 2c 32 36 2c |S_FSCont|rol",26,|
|00003770| 66 69 6c 65 24 2c 73 63 | 72 61 70 66 69 6c 65 24 |file$,sc|rapfile$|
|00003780| 2c 25 31 30 30 30 31 30 | 30 31 30 30 30 30 30 31 |,%100010|01000001|
|00003790| 30 20 b8 20 3b 66 6c 61 | 67 73 0d 14 dc 71 20 20 |0 . ;fla|gs...q  |
|000037a0| 20 20 e7 20 28 66 6c 61 | 67 73 20 80 20 31 29 3e |  . (fla|gs . 1)>|
|000037b0| 30 20 8c 20 f2 77 61 72 | 6e 28 22 43 6f 75 6c 64 |0 . .war|n("Could|
|000037c0| 20 6e 6f 74 20 6d 6f 76 | 65 20 27 22 2b 66 69 6c | not mov|e '"+fil|
|000037d0| 65 24 2b 22 27 20 74 6f | 20 73 63 72 61 70 20 66 |e$+"' to| scrap f|
|000037e0| 69 6c 65 20 27 22 2b 73 | 63 72 61 70 66 69 6c 65 |ile '"+s|crapfile|
|000037f0| 24 2b 22 27 2c 20 63 68 | 65 63 6b 20 3c 4c 61 62 |$+"', ch|eck <Lab|
|00003800| 65 6c 24 53 63 72 61 70 | 3e 22 29 0d 14 e6 1d 20 |el$Scrap|>").... |
|00003810| 20 20 20 6c 61 62 66 69 | 6c 65 24 20 3d 20 73 63 |   labfi|le$ = sc|
|00003820| 72 61 70 66 69 6c 65 24 | 0d 14 f0 19 20 20 20 20 |rapfile$|....    |
|00003830| ff 20 22 52 65 6d 6f 76 | 65 20 22 2b 66 69 6c 65 |. "Remov|e "+file|
|00003840| 24 0d 14 fa 08 20 20 20 | cd 0d 15 04 07 20 20 cd |$....   |.....  .|
|00003850| 0d 15 0e 26 20 20 f2 73 | 69 7a 65 5f 74 65 78 74 |...&  .s|ize_text|
|00003860| 20 3a 20 f4 20 72 65 64 | 72 61 77 73 20 61 6c 6c | : . red|raws all|
|00003870| 20 69 63 6f 6e 73 0d 15 | 18 48 20 20 f2 6e 65 77 | icons..|.H  .new|
|00003880| 5f 6a 75 73 74 20 3a 20 | f4 20 46 69 78 65 64 20 |_just : |. Fixed |
|00003890| 62 75 67 20 77 68 65 72 | 65 20 6c 6f 61 64 65 64 |bug wher|e loaded|
|000038a0| 20 74 65 78 74 20 77 61 | 73 20 61 6c 77 61 79 73 | text wa|s always|
|000038b0| 20 6c 65 66 74 2d 6a 20 | 28 32 2e 30 31 29 0d 15 | left-j |(2.01)..|
|000038c0| 22 11 20 20 f2 73 68 6f | 77 5f 66 69 6c 65 73 0d |".  .sho|w_files.|
|000038d0| 15 2c 06 20 cd 0d 15 36 | 05 e1 0d 15 40 04 0d 15 |.,. ...6|....@...|
|000038e0| 4a 13 dd 20 a4 67 65 74 | 65 6e 76 28 76 61 72 24 |J.. .get|env(var$|
|000038f0| 29 0d 15 54 09 ea 20 6c | 65 6e 0d 15 5e 05 3a 0d |)..T.. l|en..^.:.|
|00003900| 15 68 31 3a 20 f4 20 4c | 6f 6f 6b 20 75 70 20 74 |.h1: . L|ook up t|
|00003910| 68 65 20 76 61 6c 75 65 | 20 6f 66 20 74 68 61 74 |he value| of that|
|00003920| 20 73 79 73 74 65 6d 20 | 76 61 72 69 61 62 6c 65 | system |variable|
|00003930| 0d 15 72 05 3a 0d 15 7c | 31 20 c8 99 20 22 58 4f |..r.:..||1 .. "XO|
|00003940| 53 5f 52 65 61 64 56 61 | 72 56 61 6c 22 2c 76 61 |S_ReadVa|rVal",va|
|00003950| 72 24 2c 62 6c 6b 2c 31 | 30 30 2c 30 2c 33 20 b8 |r$,blk,1|00,0,3 .|
|00003960| 20 2c 2c 6c 65 6e 0d 15 | 86 11 20 62 6c 6b 3f 6c | ,,len..|.. blk?l|
|00003970| 65 6e 20 3d 20 31 33 0d | 15 90 0a 3d 20 24 62 6c |en = 13.|...= $bl|
|00003980| 6b 0d 15 9a 04 0d 15 a4 | 0f dd 20 f2 6e 65 77 5f |k.......|.. .new_|
|00003990| 6a 75 73 74 0d 15 ae 05 | 3a 0d 15 b8 44 3a 20 f4 |just....|:...D: .|
|000039a0| 20 43 68 61 6e 67 65 20 | 61 6c 6c 20 74 68 65 20 | Change |all the |
|000039b0| 74 65 78 74 20 69 63 6f | 6e 20 66 6c 61 67 73 20 |text ico|n flags |
|000039c0| 74 6f 20 72 65 66 6c 65 | 63 74 20 74 68 65 20 6a |to refle|ct the j|
|000039d0| 75 73 74 69 66 79 20 6f | 70 74 69 6f 6e 0d 15 c2 |ustify o|ption...|
|000039e0| 05 3a 0d 15 cc 13 20 6a | 75 73 74 5f 66 6c 61 67 |.:.... j|ust_flag|
|000039f0| 73 20 3d 20 30 0d 15 d6 | 0e 20 c8 8e 20 6a 75 73 |s = 0...|. .. jus|
|00003a00| 74 20 ca 0d 15 e0 1a 20 | 20 c9 20 31 3a 20 20 6a |t ..... | . 1:  j|
|00003a10| 75 73 74 5f 66 6c 61 67 | 73 20 3d 20 30 0d 15 ea |ust_flag|s = 0...|
|00003a20| 25 20 20 c9 20 32 3a 20 | 20 6a 75 73 74 5f 66 6c |%  . 2: | just_fl|
|00003a30| 61 67 73 20 3d 20 49 66 | 5f 48 6f 72 69 7a 43 65 |ags = If|_HorizCe|
|00003a40| 6e 74 0d 15 f4 25 20 20 | c9 20 33 3a 20 20 6a 75 |nt...%  |. 3:  ju|
|00003a50| 73 74 5f 66 6c 61 67 73 | 20 3d 20 49 66 5f 52 69 |st_flags| = If_Ri|
|00003a60| 67 68 74 4a 75 73 74 0d | 15 fe 06 20 cb 0d 16 08 |ghtJust.|... ....|
|00003a70| 05 3a 0d 16 12 19 20 e3 | 20 4a 25 20 3d 20 30 20 |.:.... .| J% = 0 |
|00003a80| b8 20 6e 5f 6c 69 6e 65 | 73 2d 31 0d 16 1c 32 20 |. n_line|s-1...2 |
|00003a90| 20 f2 75 70 64 61 74 65 | 5f 69 63 6f 6e 28 77 5f | .update|_icon(w_|
|00003aa0| 74 65 78 74 2c 4a 25 2c | 6a 75 73 74 5f 66 6c 61 |text,J%,|just_fla|
|00003ab0| 67 73 2c 6a 75 73 74 5f | 6d 61 73 6b 29 0d 16 26 |gs,just_|mask)..&|
|00003ac0| 06 20 ed 0d 16 30 11 20 | f2 72 65 64 72 61 77 5f |. ...0. |.redraw_|
|00003ad0| 74 65 78 74 0d 16 3a 05 | e1 0d 16 44 04 0d 16 4e |text..:.|...D...N|
|00003ae0| 10 dd 20 f2 73 69 7a 65 | 5f 74 65 78 74 0d 16 58 |.. .size|_text..X|
|00003af0| 20 ea 20 77 61 73 5f 6f | 70 65 6e 2c 62 6c 6f 63 | . was_o|pen,bloc|
|00003b00| 6b 2c 69 70 74 72 2c 62 | 65 68 69 6e 64 0d 16 62 |k,iptr,b|ehind..b|
|00003b10| 05 3a 0d 16 6c 40 3a 20 | f4 20 52 65 73 69 7a 65 |.:..l@: |. Resize|
|00003b20| 20 74 68 65 20 74 65 78 | 74 20 77 69 6e 64 6f 77 | the tex|t window|
|00003b30| 20 61 63 63 6f 72 64 69 | 6e 67 20 74 6f 20 74 68 | accordi|ng to th|
|00003b40| 65 20 63 75 72 72 65 6e | 74 20 73 65 74 74 69 6e |e curren|t settin|
|00003b50| 67 73 0d 16 76 05 3a 0d | 16 80 32 20 77 61 73 5f |gs..v.:.|..2 was_|
|00003b60| 6f 70 65 6e 20 3d 20 a4 | 69 73 5f 6f 70 65 6e 28 |open = .|is_open(|
|00003b70| 77 5f 74 65 78 74 29 20 | 3a 20 62 65 68 69 6e 64 |w_text) |: behind|
|00003b80| 20 3d 20 62 6c 6b 21 32 | 38 0d 16 8a 25 20 e7 20 | = blk!2|8...% . |
|00003b90| 77 61 73 5f 6f 70 65 6e | 20 8c 20 f2 77 69 6d 70 |was_open| . .wimp|
|00003ba0| 5f 63 6c 6f 73 65 28 77 | 5f 74 65 78 74 29 0d 16 |_close(w|_text)..|
|00003bb0| 94 25 20 6e 5f 6c 69 6e | 65 73 20 3d 20 a8 28 70 |.% n_lin|es = .(p|
|00003bc0| 61 72 61 6d 28 70 5f 68 | 65 69 67 68 74 29 2a 6c |aram(p_h|eight)*l|
|00003bd0| 70 69 29 0d 16 9e 36 20 | 6e 5f 63 68 61 72 73 20 |pi)...6 |n_chars |
|00003be0| 3d 20 a8 28 28 70 61 72 | 61 6d 28 70 5f 77 69 64 |= .((par|am(p_wid|
|00003bf0| 74 68 29 2d 70 61 72 61 | 6d 28 70 5f 69 6e 64 29 |th)-para|m(p_ind)|
|00003c00| 29 2a 63 70 69 2b 2e 31 | 29 0d 16 a8 13 20 62 6c |)*cpi+.1|).... bl|
|00003c10| 6b 21 30 20 3d 20 77 5f | 74 65 78 74 0d 16 b2 21 |k!0 = w_|text...!|
|00003c20| 20 c8 99 20 22 57 69 6d | 70 5f 47 65 74 57 69 6e | .. "Wim|p_GetWin|
|00003c30| 64 6f 77 49 6e 66 6f 22 | 2c 2c 62 6c 6b 0d 16 bc |dowInfo"|,,blk...|
|00003c40| 20 20 c8 99 20 22 57 69 | 6d 70 5f 44 65 6c 65 74 |  .. "Wi|mp_Delet|
|00003c50| 65 57 69 6e 64 6f 77 22 | 2c 2c 62 6c 6b 0d 16 c6 |eWindow"|,,blk...|
|00003c60| 12 20 62 6c 6f 63 6b 20 | 3d 20 62 6c 6b 2b 34 0d |. block |= blk+4.|
|00003c70| 16 d0 29 20 62 6c 6f 63 | 6b 21 38 34 20 3d 20 6e |..) bloc|k!84 = n|
|00003c80| 5f 6c 69 6e 65 73 20 3a | 20 69 70 74 72 20 3d 20 |_lines :| iptr = |
|00003c90| 62 6c 6f 63 6b 2b 38 38 | 0d 16 da 05 3a 0d 16 e4 |block+88|....:...|
|00003ca0| 17 20 e3 20 4a 25 20 3d | 20 31 20 b8 20 6e 5f 6c |. . J% =| 1 . n_l|
|00003cb0| 69 6e 65 73 0d 16 ee 31 | 20 20 e3 20 4b 25 20 3d |ines...1|  . K% =|
|00003cc0| 20 30 20 b8 20 32 38 20 | 88 20 34 20 3a 20 69 70 | 0 . 28 |. 4 : ip|
|00003cd0| 74 72 21 4b 25 20 3d 20 | 6c 69 6e 65 5f 69 21 4b |tr!K% = |line_i!K|
|00003ce0| 25 20 3a 20 ed 0d 16 f8 | 48 20 20 69 70 74 72 21 |% : ....|H  iptr!|
|00003cf0| 34 20 3d 20 2d 6c 69 6e | 65 5f 73 70 2a 4a 25 20 |4 = -lin|e_sp*J% |
|00003d00| 3a 20 69 70 74 72 21 38 | 20 3d 20 6e 5f 63 68 61 |: iptr!8| = n_cha|
|00003d10| 72 73 2a 31 36 2b 38 20 | 3a 20 69 70 74 72 21 31 |rs*16+8 |: iptr!1|
|00003d20| 32 20 3d 20 69 70 74 72 | 21 34 2b 34 30 0d 17 02 |2 = iptr|!4+40...|
|00003d30| 2c 20 20 69 70 74 72 21 | 32 30 20 3d 20 6c 70 28 |,  iptr!|20 = lp(|
|00003d40| 4a 25 29 20 3a 20 69 70 | 74 72 21 32 38 20 3d 20 |J%) : ip|tr!28 = |
|00003d50| 6e 5f 63 68 61 72 73 2b | 31 0d 17 0c 19 20 20 6c |n_chars+|1....  l|
|00003d60| 70 28 4a 25 29 3f 6e 5f | 63 68 61 72 73 20 3d 20 |p(J%)?n_|chars = |
|00003d70| 31 33 0d 17 16 10 20 20 | 69 70 74 72 20 2b 3d 20 |13....  |iptr += |
|00003d80| 33 32 0d 17 20 06 20 ed | 0d 17 2a 05 3a 0d 17 34 |32.. . .|..*.:..4|
|00003d90| 3c 20 62 6c 6f 63 6b 21 | 34 34 20 3d 20 2d 34 2d |< block!|44 = -4-|
|00003da0| 6c 69 6e 65 5f 73 70 2a | 6e 5f 6c 69 6e 65 73 20 |line_sp*|n_lines |
|00003db0| 3a 20 62 6c 6f 63 6b 21 | 34 38 20 3d 20 6e 5f 63 |: block!|48 = n_c|
|00003dc0| 68 61 72 73 2a 31 36 2b | 38 0d 17 3e 05 3a 0d 17 |hars*16+|8..>.:..|
|00003dd0| 48 2b 20 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |H+ .. "W|imp_Crea|
|00003de0| 74 65 57 69 6e 64 6f 77 | 22 2c 2c 62 6c 6f 63 6b |teWindow|",,block|
|00003df0| 20 b8 20 77 5f 74 65 78 | 74 0d 17 52 11 20 e7 20 | . w_tex|t..R. . |
|00003e00| 77 61 73 5f 6f 70 65 6e | 20 8c 0d 17 5c 14 20 20 |was_open| ...\.  |
|00003e10| 62 6c 6b 21 30 20 3d 20 | 77 5f 74 65 78 74 0d 17 |blk!0 = |w_text..|
|00003e20| 66 15 20 20 62 6c 6b 21 | 32 38 20 3d 20 62 65 68 |f.  blk!|28 = beh|
|00003e30| 69 6e 64 0d 17 70 1f 20 | 20 c8 99 20 22 57 69 6d |ind..p. | .. "Wim|
|00003e40| 70 5f 4f 70 65 6e 57 69 | 6e 64 6f 77 22 2c 2c 62 |p_OpenWi|ndow",,b|
|00003e50| 6c 6b 0d 17 7a 06 20 cd | 0d 17 84 05 e1 0d 17 8e |lk..z. .|........|
|00003e60| 04 0d 17 98 0f dd 20 f2 | 67 65 74 5f 69 63 6f 6e |...... .|get_icon|
|00003e70| 0d 17 a2 05 3a 0d 17 ac | 48 3a 20 f4 20 52 65 61 |....:...|H: . Rea|
|00003e80| 64 20 74 68 65 20 64 65 | 66 69 6e 69 74 69 6f 6e |d the de|finition|
|00003e90| 20 6f 66 20 61 20 74 65 | 78 74 20 6c 69 6e 65 20 | of a te|xt line |
|00003ea0| 69 63 6f 6e 20 66 72 6f | 6d 20 74 68 65 20 77 69 |icon fro|m the wi|
|00003eb0| 6e 64 6f 77 20 74 65 6d | 70 6c 61 74 65 0d 17 b6 |ndow tem|plate...|
|00003ec0| 05 3a 0d 17 c0 12 20 de | 20 6c 69 6e 65 5f 69 20 |.:.... .| line_i |
|00003ed0| 33 32 2b 38 0d 17 ca 25 | 20 6c 69 6e 65 5f 69 21 |32+8...%| line_i!|
|00003ee0| 30 20 3d 20 77 5f 74 65 | 78 74 20 3a 20 6c 69 6e |0 = w_te|xt : lin|
|00003ef0| 65 5f 69 21 34 20 3d 20 | 30 0d 17 d4 23 20 c8 99 |e_i!4 = |0...# ..|
|00003f00| 20 22 57 69 6d 70 5f 47 | 65 74 49 63 6f 6e 53 74 | "Wimp_G|etIconSt|
|00003f10| 61 74 65 22 2c 2c 6c 69 | 6e 65 5f 69 0d 17 de 10 |ate",,li|ne_i....|
|00003f20| 20 6c 69 6e 65 5f 69 20 | 2b 3d 20 38 0d 17 e8 05 | line_i |+= 8....|
|00003f30| e1 0d 17 f2 04 0d 17 fc | 1c dd 20 f2 73 61 76 65 |........|.. .save|
|00003f40| 5f 74 65 78 74 28 66 69 | 6c 65 24 2c 73 61 66 65 |_text(fi|le$,safe|
|00003f50| 29 0d 18 06 08 ea 20 4a | 25 0d 18 10 05 3a 0d 18 |)..... J|%....:..|
|00003f60| 1a 25 3a 20 f4 20 53 61 | 76 65 20 74 68 65 20 6c |.%: . Sa|ve the l|
|00003f70| 61 62 65 6c 20 74 65 78 | 74 20 74 6f 20 61 20 66 |abel tex|t to a f|
|00003f80| 69 6c 65 0d 18 24 05 3a | 0d 18 2e 12 20 6f 66 20 |ile..$.:|.... of |
|00003f90| 3d 20 ae 28 66 69 6c 65 | 24 29 0d 18 38 0d 20 e7 |= .(file|$)..8. .|
|00003fa0| 20 6f 66 3d 30 20 8c 0d | 18 42 31 20 20 f2 77 61 | of=0 ..|.B1  .wa|
|00003fb0| 72 6e 28 22 43 6f 75 6c | 64 20 6e 6f 74 20 73 61 |rn("Coul|d not sa|
|00003fc0| 76 65 20 74 65 78 74 20 | 74 6f 20 27 22 2b 66 69 |ve text |to '"+fi|
|00003fd0| 6c 65 24 2b 22 27 22 29 | 0d 18 4c 06 20 cc 0d 18 |le$+"'")|..L. ...|
|00003fe0| 56 18 20 20 e3 20 4a 25 | 20 3d 20 31 20 b8 20 6e |V.  . J%| = 1 . n|
|00003ff0| 5f 6c 69 6e 65 73 0d 18 | 60 14 20 20 20 d5 20 23 |_lines..|`.   . #|
|00004000| 6f 66 2c 24 6c 70 28 4a | 25 29 0d 18 6a 07 20 20 |of,$lp(J|%)..j.  |
|00004010| ed 0d 18 74 12 20 20 d5 | 20 23 6f 66 2c 64 65 6c |...t.  .| #of,del|
|00004020| 69 6d 24 0d 18 7e 0b 20 | 20 d9 20 23 6f 66 0d 18 |im$..~. | . #of..|
|00004030| 88 20 20 20 c8 99 20 22 | 4f 53 5f 46 69 6c 65 22 |.   .. "|OS_File"|
|00004040| 2c 31 38 2c 66 69 6c 65 | 24 2c 26 46 46 46 0d 18 |,18,file|$,&FFF..|
|00004050| 92 1f 20 20 e7 20 73 61 | 66 65 20 8c 20 6c 61 62 |..  . sa|fe . lab|
|00004060| 66 69 6c 65 24 20 3d 20 | 66 69 6c 65 24 0d 18 9c |file$ = |file$...|
|00004070| 06 20 cd 0d 18 a6 05 e1 | 0d 18 b0 04 0d 18 ba 13 |. ......|........|
|00004080| dd 20 a4 64 65 6c 69 6d | 28 74 65 73 74 24 29 0d |. .delim|(test$).|
|00004090| 18 c4 05 3a 0d 18 ce 3c | 3a 20 f4 20 53 65 65 20 |...:...<|: . See |
|000040a0| 69 66 20 74 68 61 74 20 | 6c 69 6e 65 20 6d 61 74 |if that |line mat|
|000040b0| 63 68 65 73 20 74 68 65 | 20 63 75 72 72 65 6e 74 |ches the| current|
|000040c0| 6c 79 20 73 65 74 20 64 | 65 6c 69 6d 69 74 65 72 |ly set d|elimiter|
|000040d0| 0d 18 d8 05 3a 0d 18 e2 | 25 20 e7 20 28 64 65 6c |....:...|% . (del|
|000040e0| 69 6d 24 3d 22 22 29 20 | 80 20 28 74 65 73 74 24 |im$="") |. (test$|
|000040f0| 3d 22 22 29 20 8c 20 3d | 20 54 0d 18 ec 36 20 e7 |="") . =| T...6 .|
|00004100| 20 28 64 65 6c 69 6d 24 | 3c 3e 22 22 29 20 80 20 | (delim$|<>"") . |
|00004110| 28 c0 74 65 73 74 24 2c | a9 28 64 65 6c 69 6d 24 |(.test$,|.(delim$|
|00004120| 29 29 3d 64 65 6c 69 6d | 24 29 20 8c 20 3d 20 54 |))=delim|$) . = T|
|00004130| 0d 18 f6 07 3d 20 46 0d | 19 00 04 0d 19 0a 1e dd |....= F.|........|
|00004140| 20 f2 73 61 76 65 5f 70 | 61 72 61 6d 73 28 66 69 | .save_p|arams(fi|
|00004150| 6c 65 24 2c 73 61 66 65 | 29 0d 19 14 08 ea 20 6f |le$,safe|)..... o|
|00004160| 66 0d 19 1e 05 3a 0d 19 | 28 32 3a 20 f4 20 53 61 |f....:..|(2: . Sa|
|00004170| 76 65 20 74 68 65 20 73 | 65 74 74 69 6e 67 73 20 |ve the s|ettings |
|00004180| 61 6e 64 20 64 69 6d 65 | 6e 73 69 6f 6e 73 20 74 |and dime|nsions t|
|00004190| 6f 20 61 20 66 69 6c 65 | 0d 19 32 05 3a 0d 19 3c |o a file|..2.:..<|
|000041a0| 12 20 6f 66 20 3d 20 ae | 28 66 69 6c 65 24 29 0d |. of = .|(file$).|
|000041b0| 19 46 0d 20 e7 20 6f 66 | 3d 30 20 8c 0d 19 50 35 |.F. . of|=0 ...P5|
|000041c0| 20 20 f2 77 61 72 6e 28 | 22 43 6f 75 6c 64 20 6e |  .warn(|"Could n|
|000041d0| 6f 74 20 73 61 76 65 20 | 73 65 74 74 69 6e 67 73 |ot save |settings|
|000041e0| 20 74 6f 20 27 22 2b 66 | 69 6c 65 24 2b 22 27 22 | to '"+f|ile$+"'"|
|000041f0| 29 0d 19 5a 06 20 cc 0d | 19 64 1e 20 20 f1 20 23 |)..Z. ..|.d.  . #|
|00004200| 6f 66 2c 73 74 6f 63 6b | 2c 6a 75 73 74 2c 63 70 |of,stock|,just,cp|
|00004210| 69 2c 6c 70 69 0d 19 6e | 40 20 20 f1 20 23 6f 66 |i,lpi..n|@  . #of|
|00004220| 2c 70 61 72 61 6d 28 70 | 5f 77 69 64 74 68 29 2c |,param(p|_width),|
|00004230| 70 61 72 61 6d 28 70 5f | 68 70 29 2c 70 61 72 61 |param(p_|hp),para|
|00004240| 6d 28 70 5f 6f 66 66 29 | 2c 70 61 72 61 6d 28 70 |m(p_off)|,param(p|
|00004250| 5f 69 6e 64 29 0d 19 78 | 27 20 20 f1 20 23 6f 66 |_ind)..x|'  . #of|
|00004260| 2c 70 61 72 61 6d 28 70 | 5f 68 65 69 67 68 74 29 |,param(p|_height)|
|00004270| 2c 70 61 72 61 6d 28 70 | 5f 76 70 29 0d 19 82 12 |,param(p|_vp)....|
|00004280| 20 20 f1 20 23 6f 66 2c | 74 5f 74 79 70 65 0d 19 |  . #of,|t_type..|
|00004290| 8c 0d 20 20 f1 20 23 6f | 66 2c 30 0d 19 96 0b 20 |..  . #o|f,0.... |
|000042a0| 20 d9 20 23 6f 66 0d 19 | a0 24 20 20 c8 99 20 22 | . #of..|.$  .. "|
|000042b0| 4f 53 5f 46 69 6c 65 22 | 2c 31 38 2c 66 69 6c 65 |OS_File"|,18,file|
|000042c0| 24 2c 66 69 6c 65 74 79 | 70 65 0d 19 aa 1f 20 20 |$,filety|pe....  |
|000042d0| e7 20 73 61 66 65 20 8c | 20 73 65 74 66 69 6c 65 |. safe .| setfile|
|000042e0| 24 20 3d 20 66 69 6c 65 | 24 0d 19 b4 06 20 cd 0d |$ = file|$.... ..|
|000042f0| 19 be 05 e1 0d 19 c8 04 | 0d 19 d2 25 dd 20 f2 6c |........|...%. .l|
|00004300| 6f 61 64 5f 70 61 72 61 | 6d 73 28 66 69 6c 65 24 |oad_para|ms(file$|
|00004310| 2c 73 61 66 65 2c 75 70 | 64 61 74 65 29 0d 19 dc |,safe,up|date)...|
|00004320| 08 ea 20 69 66 0d 19 e6 | 05 3a 0d 19 f0 34 3a 20 |.. if...|.:...4: |
|00004330| f4 20 4c 6f 61 64 20 74 | 68 65 20 73 65 74 74 69 |. Load t|he setti|
|00004340| 6e 67 73 20 61 6e 64 20 | 64 69 6d 65 6e 73 69 6f |ngs and |dimensio|
|00004350| 6e 73 20 66 72 6f 6d 20 | 61 20 66 69 6c 65 0d 19 |ns from |a file..|
|00004360| fa 05 3a 0d 1a 04 12 20 | 69 66 20 3d 20 8e 28 66 |..:.... |if = .(f|
|00004370| 69 6c 65 24 29 0d 1a 0e | 0d 20 e7 20 69 66 3d 30 |ile$)...|. . if=0|
|00004380| 20 8c 0d 1a 18 37 20 20 | f2 77 61 72 6e 28 22 43 | ....7  |.warn("C|
|00004390| 6f 75 6c 64 20 6e 6f 74 | 20 6c 6f 61 64 20 73 65 |ould not| load se|
|000043a0| 74 74 69 6e 67 73 20 66 | 72 6f 6d 20 27 22 2b 66 |ttings f|rom '"+f|
|000043b0| 69 6c 65 24 2b 22 27 22 | 29 0d 1a 22 06 20 cc 0d |ile$+"'"|)..". ..|
|000043c0| 1a 2c 1e 20 20 e8 20 23 | 69 66 2c 73 74 6f 63 6b |.,.  . #|if,stock|
|000043d0| 2c 6a 75 73 74 2c 63 70 | 69 2c 6c 70 69 0d 1a 36 |,just,cp|i,lpi..6|
|000043e0| 40 20 20 e8 20 23 69 66 | 2c 70 61 72 61 6d 28 70 |@  . #if|,param(p|
|000043f0| 5f 77 69 64 74 68 29 2c | 70 61 72 61 6d 28 70 5f |_width),|param(p_|
|00004400| 68 70 29 2c 70 61 72 61 | 6d 28 70 5f 6f 66 66 29 |hp),para|m(p_off)|
|00004410| 2c 70 61 72 61 6d 28 70 | 5f 69 6e 64 29 0d 1a 40 |,param(p|_ind)..@|
|00004420| 27 20 20 e8 20 23 69 66 | 2c 70 61 72 61 6d 28 70 |'  . #if|,param(p|
|00004430| 5f 68 65 69 67 68 74 29 | 2c 70 61 72 61 6d 28 70 |_height)|,param(p|
|00004440| 5f 76 70 29 0d 1a 4a 12 | 20 20 e8 20 23 69 66 2c |_vp)..J.|  . #if,|
|00004450| 74 5f 74 79 70 65 0d 1a | 54 0b 20 20 d9 20 23 69 |t_type..|T.  . #i|
|00004460| 66 0d 1a 5e 3f 20 20 e7 | 20 75 70 64 61 74 65 20 |f..^?  .| update |
|00004470| 8c 20 73 65 74 66 69 6c | 65 24 20 3d 20 66 69 6c |. setfil|e$ = fil|
|00004480| 65 24 20 3a 20 f2 73 68 | 6f 77 5f 66 69 6c 65 73 |e$ : .sh|ow_files|
|00004490| 20 8b 20 73 65 74 66 69 | 6c 65 24 20 3d 20 22 22 | . setfi|le$ = ""|
|000044a0| 0d 1a 68 22 20 20 e7 20 | ac 20 73 61 66 65 20 8c |..h"  . |. safe .|
|000044b0| 20 ff 20 22 52 65 6d 6f | 76 65 20 22 2b 66 69 6c | . "Remo|ve "+fil|
|000044c0| 65 24 0d 1a 72 17 20 20 | f2 73 65 74 73 65 74 20 |e$..r.  |.setset |
|000044d0| 3a 20 f2 64 69 6d 73 65 | 74 0d 1a 7c 1c 20 20 f2 |: .dimse|t..|.  .|
|000044e0| 73 69 7a 65 5f 74 65 78 | 74 20 3a 20 f2 6e 65 77 |size_tex|t : .new|
|000044f0| 5f 6a 75 73 74 0d 1a 86 | 11 20 20 6c 6f 61 64 5f |_just...|.  load_|
|00004500| 6f 6b 20 3d 20 54 0d 1a | 90 06 20 cd 0d 1a 9a 05 |ok = T..|.. .....|
|00004510| e1 0d 1a a4 04 0d 1a ae | 11 dd 20 f2 64 69 6d 65 |........|.. .dime|
|00004520| 6e 73 69 6f 6e 73 0d 1a | b8 0c 20 f2 64 69 6d 73 |nsions..|.. .dims|
|00004530| 65 74 0d 1a c2 18 20 f2 | 77 69 6d 70 5f 6f 70 65 |et.... .|wimp_ope|
|00004540| 6e 28 77 5f 64 69 6d 2c | 54 29 0d 1a cc 06 20 f5 |n(w_dim,|T).... .|
|00004550| 0d 1a d6 33 20 20 f2 70 | 6f 6c 6c 28 22 64 69 6d |...3  .p|oll("dim|
|00004560| 22 2c 52 6d 5f 4e 75 6c | 6c 2b 52 6d 5f 4b 65 79 |",Rm_Nul|l+Rm_Key|
|00004570| 2b 52 6d 5f 45 6e 74 65 | 72 2b 52 6d 5f 4c 65 61 |+Rm_Ente|r+Rm_Lea|
|00004580| 76 65 29 0d 1a e0 18 20 | fd 20 a4 63 68 65 63 6b |ve).... |. .check|
|00004590| 20 84 20 66 69 6e 69 73 | 68 3c 30 0d 1a ea 17 20 | . finis|h<0.... |
|000045a0| f2 77 69 6d 70 5f 63 6c | 6f 73 65 28 77 5f 64 69 |.wimp_cl|ose(w_di|
|000045b0| 6d 29 0d 1a f4 05 3a 0d | 1a fe 0f 20 f2 73 69 7a |m)....:.|... .siz|
|000045c0| 65 5f 74 65 78 74 0d 1b | 08 05 e1 0d 1b 12 04 0d |e_text..|........|
|000045d0| 1b 1c 0d dd 20 f2 64 69 | 6d 73 65 74 0d 1b 26 05 |.... .di|mset..&.|
|000045e0| 3a 0d 1b 30 29 3a 20 f4 | 20 53 65 74 20 75 70 20 |:..0): .| Set up |
|000045f0| 61 6c 6c 20 74 68 65 20 | 64 69 6d 65 6e 73 69 6f |all the |dimensio|
|00004600| 6e 20 64 69 73 70 6c 61 | 79 73 0d 1b 3a 05 3a 0d |n displa|ys..:.:.|
|00004610| 1b 44 32 20 f2 73 65 74 | 5f 74 65 78 74 28 77 5f |.D2 .set|_text(w_|
|00004620| 64 69 6d 2c 69 5f 64 5f | 77 69 64 74 68 2c a4 64 |dim,i_d_|width,.d|
|00004630| 65 63 32 28 70 5f 77 69 | 64 74 68 2c 63 70 69 29 |ec2(p_wi|dth,cpi)|
|00004640| 29 0d 1b 4e 34 20 f2 73 | 65 74 5f 74 65 78 74 28 |)..N4 .s|et_text(|
|00004650| 77 5f 64 69 6d 2c 69 5f | 64 5f 68 65 69 67 68 74 |w_dim,i_|d_height|
|00004660| 2c a4 64 65 63 32 28 70 | 5f 68 65 69 67 68 74 2c |,.dec2(p|_height,|
|00004670| 6c 70 69 29 29 0d 1b 58 | 2c 20 f2 73 65 74 5f 74 |lpi))..X|, .set_t|
|00004680| 65 78 74 28 77 5f 64 69 | 6d 2c 69 5f 64 5f 68 70 |ext(w_di|m,i_d_hp|
|00004690| 2c a4 64 65 63 32 28 70 | 5f 68 70 2c 63 70 69 29 |,.dec2(p|_hp,cpi)|
|000046a0| 29 0d 1b 62 2c 20 f2 73 | 65 74 5f 74 65 78 74 28 |)..b, .s|et_text(|
|000046b0| 77 5f 64 69 6d 2c 69 5f | 64 5f 76 70 2c a4 64 65 |w_dim,i_|d_vp,.de|
|000046c0| 63 32 28 70 5f 76 70 2c | 6c 70 69 29 29 0d 1b 6c |c2(p_vp,|lpi))..l|
|000046d0| 2e 20 f2 73 65 74 5f 74 | 65 78 74 28 77 5f 64 69 |. .set_t|ext(w_di|
|000046e0| 6d 2c 69 5f 64 5f 6f 66 | 66 2c a4 64 65 63 32 28 |m,i_d_of|f,.dec2(|
|000046f0| 70 5f 6f 66 66 2c 63 70 | 69 29 29 0d 1b 76 2e 20 |p_off,cp|i))..v. |
|00004700| f2 73 65 74 5f 74 65 78 | 74 28 77 5f 64 69 6d 2c |.set_tex|t(w_dim,|
|00004710| 69 5f 64 5f 69 6e 64 2c | a4 64 65 63 32 28 70 5f |i_d_ind,|.dec2(p_|
|00004720| 69 6e 64 2c 63 70 69 29 | 29 0d 1b 80 24 20 f2 73 |ind,cpi)|)...$ .s|
|00004730| 65 74 5f 74 65 78 74 28 | 77 5f 64 69 6d 2c 69 5f |et_text(|w_dim,i_|
|00004740| 64 5f 75 6e 69 74 2c 75 | 6e 69 74 24 29 0d 1b 8a |d_unit,u|nit$)...|
|00004750| 3c 20 e7 20 73 65 74 74 | 69 6e 67 3e 3d 30 20 8c |< . sett|ing>=0 .|
|00004760| 20 f2 69 63 6f 6e 73 65 | 6c 28 77 5f 64 69 6d 2c | .iconse|l(w_dim,|
|00004770| 73 65 74 74 69 6e 67 2c | 46 29 20 3a 20 73 65 74 |setting,|F) : set|
|00004780| 74 69 6e 67 20 3d 20 2d | 31 0d 1b 94 28 20 76 6f |ting = -|1...( vo|
|00004790| 69 64 20 3d 20 a4 73 65 | 6c 65 63 74 5f 64 69 6d |id = .se|lect_dim|
|000047a0| 28 77 5f 64 69 6d 2c 69 | 5f 64 5f 77 69 64 74 68 |(w_dim,i|_d_width|
|000047b0| 29 0d 1b 9e 05 e1 0d 1b | a8 04 0d 1b b2 05 3a 0d |).......|......:.|
|000047c0| 1b bc 28 3a 20 f4 20 45 | 76 65 6e 74 20 68 61 6e |..(: . E|vent han|
|000047d0| 64 6c 65 72 73 20 66 6f | 72 20 73 69 7a 65 73 20 |dlers fo|r sizes |
|000047e0| 70 72 6f 63 65 73 73 0d | 1b c6 05 3a 0d 1b d0 04 |process.|...:....|
|000047f0| 0d 1b da 34 dd 20 a4 6f | 70 65 6e 5f 64 69 6d 28 |...4. .o|pen_dim(|
|00004800| 77 69 6e 64 6f 77 2c 6e | 65 77 29 20 3d 20 a4 6f |window,n|ew) = .o|
|00004810| 70 65 6e 5f 69 64 6c 65 | 28 77 69 6e 64 6f 77 2c |pen_idle|(window,|
|00004820| 6e 65 77 29 0d 1b e4 2c | dd 20 a4 6d 65 73 73 61 |new)...,|. .messa|
|00004830| 67 65 5f 64 69 6d 28 62 | 6c 6b 29 20 3d 20 a4 6d |ge_dim(b|lk) = .m|
|00004840| 65 73 73 61 67 65 5f 69 | 64 6c 65 28 62 6c 6b 29 |essage_i|dle(blk)|
|00004850| 0d 1b ee 04 0d 1b f8 1c | dd 20 a4 6d 65 6e 75 5f |........|. .menu_|
|00004860| 64 69 6d 28 77 69 6e 64 | 6f 77 2c 69 63 6f 6e 29 |dim(wind|ow,icon)|
|00004870| 0d 1c 02 08 ea 20 6d 70 | 0d 1c 0c 21 20 e7 20 77 |..... mp|...! . w|
|00004880| 69 6e 64 6f 77 3d 2d 32 | 20 8c 20 f2 6d 61 6b 65 |indow=-2| . .make|
|00004890| 5f 6d 65 6e 75 73 28 54 | 29 0d 1c 16 08 3d 20 6d |_menus(T|)....= m|
|000048a0| 70 0d 1c 20 04 0d 1c 2a | 40 dd 20 a4 63 68 6f 6f |p.. ...*|@. .choo|
|000048b0| 73 65 5f 64 69 6d 28 73 | 65 6c 31 2c 73 65 6c 32 |se_dim(s|el1,sel2|
|000048c0| 2c 73 65 6c 33 29 20 3d | 20 a4 63 68 6f 6f 73 65 |,sel3) =| .choose|
|000048d0| 5f 69 64 6c 65 28 73 65 | 6c 31 2c 73 65 6c 32 2c |_idle(se|l1,sel2,|
|000048e0| 73 65 6c 33 29 0d 1c 34 | 04 0d 1c 3e 0f dd 20 a4 |sel3)..4|...>.. .|
|000048f0| 71 75 69 74 5f 64 69 6d | 0d 1c 48 10 20 66 69 6e |quit_dim|..H. fin|
|00004900| 69 73 68 20 3d 20 2d 31 | 0d 1c 52 07 3d 20 31 0d |ish = -1|..R.= 1.|
|00004910| 1c 5c 04 0d 1c 66 18 dd | 20 a4 63 6c 6f 73 65 5f |.\...f..| .close_|
|00004920| 64 69 6d 28 77 69 6e 64 | 6f 77 29 0d 1c 70 2c 20 |dim(wind|ow)..p, |
|00004930| e7 20 77 69 6e 64 6f 77 | 3d 77 5f 64 69 6d 20 8c |. window|=w_dim .|
|00004940| 20 66 69 6e 69 73 68 20 | 3d 20 31 20 3a 20 3d 20 | finish |= 1 : = |
|00004950| 31 20 8b 20 3d 20 30 0d | 1c 7a 04 0d 1c 84 1e dd |1 . = 0.|.z......|
|00004960| 20 a4 73 65 6c 65 63 74 | 5f 64 69 6d 28 77 69 6e | .select|_dim(win|
|00004970| 64 6f 77 2c 69 63 6f 6e | 29 0d 1c 8e 05 3a 0d 1c |dow,icon|)....:..|
|00004980| 98 2e 3a 20 f4 20 53 65 | 6c 65 63 74 20 6f 76 65 |..: . Se|lect ove|
|00004990| 72 20 61 20 64 69 6d 65 | 6e 73 69 6f 6e 73 20 77 |r a dime|nsions w|
|000049a0| 69 6e 64 6f 77 20 62 75 | 74 74 6f 6e 0d 1c a2 05 |indow bu|tton....|
|000049b0| 3a 0d 1c ac 1f 20 e7 20 | 77 69 6e 64 6f 77 3d 77 |:.... . |window=w|
|000049c0| 5f 64 69 6d 20 80 20 69 | 63 6f 6e 3e 3d 30 20 8c |_dim . i|con>=0 .|
|000049d0| 0d 1c b6 0f 20 20 c8 8e | 20 69 63 6f 6e 20 ca 0d |....  ..| icon ..|
|000049e0| 1c c0 3e 20 20 20 c9 20 | 69 5f 64 5f 77 69 64 74 |..>   . |i_d_widt|
|000049f0| 68 3a 20 20 f2 73 74 61 | 72 74 5f 61 64 6a 28 70 |h:  .sta|rt_adj(p|
|00004a00| 5f 77 69 64 74 68 2c 69 | 63 6f 6e 2c 2d 70 5f 68 |_width,i|con,-p_h|
|00004a10| 70 2c 2d 70 5f 69 6e 64 | 2c 63 70 69 29 0d 1c ca |p,-p_ind|,cpi)...|
|00004a20| 3a 20 20 20 c9 20 69 5f | 64 5f 68 65 69 67 68 74 |:   . i_|d_height|
|00004a30| 3a 20 f2 73 74 61 72 74 | 5f 61 64 6a 28 70 5f 68 |: .start|_adj(p_h|
|00004a40| 65 69 67 68 74 2c 69 63 | 6f 6e 2c 2d 70 5f 76 70 |eight,ic|on,-p_vp|
|00004a50| 2c 30 2c 6c 70 69 29 0d | 1c d4 20 20 20 20 c9 20 |,0,lpi).|..    . |
|00004a60| 69 5f 64 5f 68 70 3a 20 | 20 20 20 20 e7 20 73 74 |i_d_hp: |    . st|
|00004a70| 6f 63 6b 3d 31 20 8c 0d | 1c de 57 20 20 20 20 20 |ock=1 ..|..W     |
|00004a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004a90| f2 77 61 72 6e 28 22 54 | 68 69 73 20 73 65 74 74 |.warn("T|his sett|
|00004aa0| 69 6e 67 20 69 73 20 6e | 6f 74 20 61 70 70 6c 69 |ing is n|ot appli|
|00004ab0| 63 61 62 6c 65 20 74 6f | 20 73 69 6e 67 6c 65 2d |cable to| single-|
|00004ac0| 73 74 6f 63 6b 20 6c 61 | 62 65 6c 73 22 29 0d 1c |stock la|bels")..|
|00004ad0| e8 19 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00004ae0| 20 20 20 20 20 20 cc 0d | 1c f2 3d 20 20 20 20 20 |      ..|..=     |
|00004af0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004b00| f2 73 74 61 72 74 5f 61 | 64 6a 28 70 5f 68 70 2c |.start_a|dj(p_hp,|
|00004b10| 69 63 6f 6e 2c 34 2c 2d | 70 5f 77 69 64 74 68 2c |icon,4,-|p_width,|
|00004b20| 63 70 69 29 0d 1c fc 19 | 20 20 20 20 20 20 20 20 |cpi)....|        |
|00004b30| 20 20 20 20 20 20 20 20 | 20 20 20 20 cd 0d 1d 06 |        |    ....|
|00004b40| 3a 20 20 20 c9 20 69 5f | 64 5f 76 70 3a 20 20 20 |:   . i_|d_vp:   |
|00004b50| 20 20 f2 73 74 61 72 74 | 5f 61 64 6a 28 70 5f 76 |  .start|_adj(p_v|
|00004b60| 70 2c 69 63 6f 6e 2c 34 | 2c 2d 70 5f 68 65 69 67 |p,icon,4|,-p_heig|
|00004b70| 68 74 2c 6c 70 69 29 0d | 1d 10 33 20 20 20 c9 20 |ht,lpi).|..3   . |
|00004b80| 69 5f 64 5f 6f 66 66 3a | 20 20 20 20 f2 73 74 61 |i_d_off:|    .sta|
|00004b90| 72 74 5f 61 64 6a 28 70 | 5f 6f 66 66 2c 69 63 6f |rt_adj(p|_off,ico|
|00004ba0| 6e 2c 31 2c 30 2c 63 70 | 69 29 0d 1d 1a 3a 20 20 |n,1,0,cp|i)...:  |
|00004bb0| 20 c9 20 69 5f 64 5f 69 | 6e 64 3a 20 20 20 20 f2 | . i_d_i|nd:    .|
|00004bc0| 73 74 61 72 74 5f 61 64 | 6a 28 70 5f 69 6e 64 2c |start_ad|j(p_ind,|
|00004bd0| 69 63 6f 6e 2c 2d 70 5f | 77 69 64 74 68 2c 30 2c |icon,-p_|width,0,|
|00004be0| 63 70 69 29 0d 1d 24 04 | 0d 1d 2e 22 20 20 20 c9 |cpi)..$.|..."   .|
|00004bf0| 20 69 5f 64 5f 75 70 3a | 20 20 20 20 20 e7 20 73 | i_d_up:|     . s|
|00004c00| 65 74 74 69 6e 67 3e 30 | 20 8c 0d 1d 38 2e 20 20 |etting>0| ...8.  |
|00004c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004c20| 20 20 20 70 61 72 61 6d | 28 73 65 74 5f 69 78 29 |   param|(set_ix)|
|00004c30| 20 2b 3d 20 73 74 65 70 | 0d 1d 42 46 20 20 20 20 | += step|..BF    |
|00004c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004c50| 20 e7 20 70 61 72 61 6d | 28 73 65 74 5f 69 78 29 | . param|(set_ix)|
|00004c60| 3e 75 70 6c 69 6d 20 8c | 20 70 61 72 61 6d 28 73 |>uplim .| param(s|
|00004c70| 65 74 5f 69 78 29 20 3d | 20 75 70 6c 69 6d 0d 1d |et_ix) =| uplim..|
|00004c80| 4c 43 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |LC      |        |
|00004c90| 20 20 20 20 20 20 20 f2 | 73 65 74 5f 74 65 78 74 |       .|set_text|
|00004ca0| 28 77 5f 64 69 6d 2c 73 | 65 74 74 69 6e 67 2c a4 |(w_dim,s|etting,.|
|00004cb0| 64 65 63 32 28 73 65 74 | 5f 69 78 2c 72 6e 64 29 |dec2(set|_ix,rnd)|
|00004cc0| 29 0d 1d 56 19 20 20 20 | 20 20 20 20 20 20 20 20 |)..V.   |        |
|00004cd0| 20 20 20 20 20 20 20 20 | 20 cd 0d 1d 60 22 20 20 |        | ...`"  |
|00004ce0| 20 c9 20 69 5f 64 5f 64 | 6f 77 6e 3a 20 20 20 e7 | . i_d_d|own:   .|
|00004cf0| 20 73 65 74 74 69 6e 67 | 3e 30 20 8c 0d 1d 6a 2e | setting|>0 ...j.|
|00004d00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004d10| 20 20 20 20 20 70 61 72 | 61 6d 28 73 65 74 5f 69 |     par|am(set_i|
|00004d20| 78 29 20 2d 3d 20 73 74 | 65 70 0d 1d 74 48 20 20 |x) -= st|ep..tH  |
|00004d30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004d40| 20 20 20 e7 20 70 61 72 | 61 6d 28 73 65 74 5f 69 |   . par|am(set_i|
|00004d50| 78 29 3c 6c 6f 77 6c 69 | 6d 20 8c 20 70 61 72 61 |x)<lowli|m . para|
|00004d60| 6d 28 73 65 74 5f 69 78 | 29 20 3d 20 6c 6f 77 6c |m(set_ix|) = lowl|
|00004d70| 69 6d 0d 1d 7e 43 20 20 | 20 20 20 20 20 20 20 20 |im..~C  |        |
|00004d80| 20 20 20 20 20 20 20 20 | 20 20 20 f2 73 65 74 5f |        |   .set_|
|00004d90| 74 65 78 74 28 77 5f 64 | 69 6d 2c 73 65 74 74 69 |text(w_d|im,setti|
|00004da0| 6e 67 2c a4 64 65 63 32 | 28 73 65 74 5f 69 78 2c |ng,.dec2|(set_ix,|
|00004db0| 72 6e 64 29 29 0d 1d 88 | 19 20 20 20 20 20 20 20 |rnd))...|.       |
|00004dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 cd 0d 1d |        |     ...|
|00004dd0| 92 4e 20 20 20 c9 20 69 | 5f 64 5f 75 6e 69 74 3a |.N   . i|_d_unit:|
|00004de0| 20 20 20 f2 77 61 72 6e | 28 22 54 68 69 73 20 70 |   .warn|("This p|
|00004df0| 72 6f 67 72 61 6d 20 6f | 6e 6c 79 20 73 75 70 70 |rogram o|nly supp|
|00004e00| 6f 72 74 73 20 22 22 69 | 6e 63 68 65 73 22 22 20 |orts ""i|nches"" |
|00004e10| 61 74 20 70 72 65 73 65 | 6e 74 22 29 0d 1d 9c 07 |at prese|nt")....|
|00004e20| 20 20 cb 0d 1d a6 06 20 | cd 0d 1d b0 07 3d 20 31 |  ..... |.....= 1|
|00004e30| 0d 1d ba 04 0d 1d c4 2c | dd 20 f2 73 74 61 72 74 |.......,|. .start|
|00004e40| 5f 61 64 6a 28 77 68 61 | 74 2c 69 63 6f 6e 2c 75 |_adj(wha|t,icon,u|
|00004e50| 70 70 65 72 2c 6c 6f 77 | 65 72 2c 69 6e 63 72 29 |pper,low|er,incr)|
|00004e60| 0d 1d ce 05 3a 0d 1d d8 | 35 3a 20 f4 20 4e 6f 74 |....:...|5: . Not|
|00004e70| 65 20 74 68 61 74 20 77 | 65 20 61 72 65 20 6e 6f |e that w|e are no|
|00004e80| 77 20 61 64 6a 75 73 74 | 69 6e 67 20 74 68 61 74 |w adjust|ing that|
|00004e90| 20 70 61 72 61 6d 65 74 | 65 72 0d 1d e2 05 3a 0d | paramet|er....:.|
|00004ea0| 1d ec 2c 20 e7 20 73 65 | 74 74 69 6e 67 3e 30 20 |.., . se|tting>0 |
|00004eb0| 8c 20 f2 69 63 6f 6e 73 | 65 6c 28 77 5f 64 69 6d |. .icons|el(w_dim|
|00004ec0| 2c 73 65 74 74 69 6e 67 | 2c 46 29 0d 1d f6 1b 20 |,setting|,F).... |
|00004ed0| f2 69 63 6f 6e 73 65 6c | 28 77 5f 64 69 6d 2c 69 |.iconsel|(w_dim,i|
|00004ee0| 63 6f 6e 2c 54 29 0d 1e | 00 23 20 73 65 74 5f 69 |con,T)..|.# set_i|
|00004ef0| 78 20 3d 20 77 68 61 74 | 20 3a 20 73 65 74 74 69 |x = what| : setti|
|00004f00| 6e 67 20 3d 20 69 63 6f | 6e 0d 1e 0a 40 20 75 70 |ng = ico|n...@ up|
|00004f10| 6c 69 6d 20 3d 20 75 70 | 70 65 72 20 3a 20 6c 6f |lim = up|per : lo|
|00004f20| 77 6c 69 6d 20 3d 20 6c | 6f 77 65 72 20 3a 20 73 |wlim = l|ower : s|
|00004f30| 74 65 70 20 3d 20 31 2f | 69 6e 63 72 20 3a 20 72 |tep = 1/|incr : r|
|00004f40| 6e 64 20 3d 20 69 6e 63 | 72 0d 1e 14 26 20 e7 20 |nd = inc|r...& . |
|00004f50| 75 70 6c 69 6d 3c 30 20 | 8c 20 75 70 6c 69 6d 20 |uplim<0 |. uplim |
|00004f60| 3d 20 70 61 72 61 6d 28 | 2d 75 70 6c 69 6d 29 0d |= param(|-uplim).|
|00004f70| 1e 1e 29 20 e7 20 6c 6f | 77 6c 69 6d 3c 30 20 8c |..) . lo|wlim<0 .|
|00004f80| 20 6c 6f 77 6c 69 6d 20 | 3d 20 70 61 72 61 6d 28 | lowlim |= param(|
|00004f90| 2d 6c 6f 77 6c 69 6d 29 | 0d 1e 28 05 e1 0d 1e 32 |-lowlim)|..(....2|
|00004fa0| 04 0d 1e 3c 15 dd 20 a4 | 64 65 63 32 28 69 78 2c |...<.. .|dec2(ix,|
|00004fb0| 72 6f 75 6e 64 29 0d 1e | 46 0b ea 20 40 25 2c 78 |round)..|F.. @%,x|
|00004fc0| 78 0d 1e 50 05 3a 0d 1e | 5a 49 3a 20 f4 20 46 6f |x..P.:..|ZI: . Fo|
|00004fd0| 72 6d 61 74 20 61 20 70 | 61 72 61 6d 65 74 65 72 |rmat a p|arameter|
|00004fe0| 20 69 6e 74 6f 20 61 20 | 73 74 72 69 6e 67 20 77 | into a |string w|
|00004ff0| 69 74 68 20 32 20 64 65 | 63 69 6d 61 6c 20 70 6c |ith 2 de|cimal pl|
|00005000| 61 63 65 73 2c 20 61 6e | 64 20 72 6f 75 6e 64 0d |aces, an|d round.|
|00005010| 1e 64 05 3a 0d 1e 6e 24 | 20 40 25 20 3d 20 26 30 |.d.:..n$| @% = &0|
|00005020| 31 30 32 30 32 30 35 20 | 3a 20 78 78 20 3d 20 70 |1020205 |: xx = p|
|00005030| 61 72 61 6d 28 69 78 29 | 0d 1e 78 2c 20 70 61 72 |aram(ix)|..x, par|
|00005040| 61 6d 28 69 78 29 20 3d | 20 a8 28 70 61 72 61 6d |am(ix) =| .(param|
|00005050| 28 69 78 29 2a 72 6f 75 | 6e 64 2b 2e 35 29 2f 72 |(ix)*rou|nd+.5)/r|
|00005060| 6f 75 6e 64 0d 1e 82 12 | 3d 20 c3 28 70 61 72 61 |ound....|= .(para|
|00005070| 6d 28 69 78 29 29 0d 1e | 8c 04 0d 1e 96 0f dd 20 |m(ix))..|....... |
|00005080| f2 64 65 66 61 75 6c 74 | 73 0d 1e a0 05 3a 0d 1e |.default|s....:..|
|00005090| aa 34 3a 20 f4 20 52 65 | 74 75 72 6e 20 61 6c 6c |.4: . Re|turn all|
|000050a0| 20 73 65 74 74 69 6e 67 | 73 20 61 6e 64 20 73 69 | setting|s and si|
|000050b0| 7a 65 73 20 74 6f 20 74 | 68 65 20 64 65 66 61 75 |zes to t|he defau|
|000050c0| 6c 74 0d 1e b4 05 3a 0d | 1e be 21 20 75 6e 69 74 |lt....:.|..! unit|
|000050d0| 24 20 3d 20 22 69 6e 63 | 68 65 73 22 20 3a 20 77 |$ = "inc|hes" : w|
|000050e0| 69 64 74 68 20 3d 20 38 | 0d 1e c8 2c 20 e7 20 73 |idth = 8|..., . s|
|000050f0| 65 74 74 69 6e 67 3e 30 | 20 8c 20 f2 69 63 6f 6e |etting>0| . .icon|
|00005100| 73 65 6c 28 77 5f 73 65 | 74 2c 73 65 74 74 69 6e |sel(w_se|t,settin|
|00005110| 67 2c 46 29 0d 1e d2 10 | 20 73 65 74 74 69 6e 67 |g,F)....| setting|
|00005120| 20 3d 20 30 0d 1e dc 15 | 20 64 65 6c 69 6d 24 20 | = 0....| delim$ |
|00005130| 3d 20 22 25 25 25 25 25 | 22 0d 1e e6 05 e1 0d 1e |= "%%%%%|".......|
|00005140| f0 04 0d 1e fa 0f dd 20 | f2 73 65 74 74 69 6e 67 |....... |.setting|
|00005150| 73 0d 1f 04 1e ea 20 6f | 6c 64 5f 6a 75 73 74 2c |s..... o|ld_just,|
|00005160| 6f 6c 64 5f 63 70 69 2c | 6f 6c 64 5f 6c 70 69 0d |old_cpi,|old_lpi.|
|00005170| 1f 0e 05 3a 0d 1f 18 26 | 3a 20 f4 20 53 65 74 74 |...:...&|: . Sett|
|00005180| 69 6e 67 20 6f 70 74 69 | 6f 6e 73 20 61 63 74 69 |ing opti|ons acti|
|00005190| 6f 6e 20 70 72 6f 63 65 | 73 73 0d 1f 22 05 3a 0d |on proce|ss..".:.|
|000051a0| 1f 2c 34 20 6f 6c 64 5f | 6a 75 73 74 20 3d 20 6a |.,4 old_|just = j|
|000051b0| 75 73 74 20 3a 20 6f 6c | 64 5f 63 70 69 20 3d 20 |ust : ol|d_cpi = |
|000051c0| 63 70 69 20 3a 20 6f 6c | 64 5f 6c 70 69 20 3d 20 |cpi : ol|d_lpi = |
|000051d0| 6c 70 69 0d 1f 36 0c 20 | f2 73 65 74 73 65 74 0d |lpi..6. |.setset.|
|000051e0| 1f 40 18 20 f2 77 69 6d | 70 5f 6f 70 65 6e 28 77 |.@. .wim|p_open(w|
|000051f0| 5f 73 65 74 2c 54 29 0d | 1f 4a 06 20 f5 0d 1f 54 |_set,T).|.J. ...T|
|00005200| 33 20 20 f2 70 6f 6c 6c | 28 22 73 65 74 22 2c 52 |3  .poll|("set",R|
|00005210| 6d 5f 4e 75 6c 6c 2b 52 | 6d 5f 4b 65 79 2b 52 6d |m_Null+R|m_Key+Rm|
|00005220| 5f 45 6e 74 65 72 2b 52 | 6d 5f 4c 65 61 76 65 29 |_Enter+R|m_Leave)|
|00005230| 0d 1f 5e 18 20 fd 20 a4 | 63 68 65 63 6b 20 84 20 |..^. . .|check . |
|00005240| 66 69 6e 69 73 68 3c 30 | 0d 1f 68 17 20 f2 77 69 |finish<0|..h. .wi|
|00005250| 6d 70 5f 63 6c 6f 73 65 | 28 77 5f 73 65 74 29 0d |mp_close|(w_set).|
|00005260| 1f 72 05 3a 0d 1f 7c 2f | 20 e7 20 63 70 69 3c 3e |.r.:..|/| . cpi<>|
|00005270| 6f 6c 64 5f 63 70 69 20 | 84 20 6c 70 69 3c 3e 6f |old_cpi |. lpi<>o|
|00005280| 6c 64 5f 6c 70 69 20 8c | 20 f2 73 69 7a 65 5f 74 |ld_lpi .| .size_t|
|00005290| 65 78 74 0d 1f 86 21 20 | e7 20 6a 75 73 74 3c 3e |ext...! |. just<>|
|000052a0| 6f 6c 64 5f 6a 75 73 74 | 20 8c 20 f2 6e 65 77 5f |old_just| . .new_|
|000052b0| 6a 75 73 74 0d 1f 90 05 | e1 0d 1f 9a 04 0d 1f a4 |just....|........|
|000052c0| 0d dd 20 f2 73 65 74 73 | 65 74 0d 1f ae 05 3a 0d |.. .sets|et....:.|
|000052d0| 1f b8 42 3a 20 f4 20 53 | 65 74 20 75 70 20 74 68 |..B: . S|et up th|
|000052e0| 65 20 73 65 74 74 69 6e | 67 20 77 69 6e 64 6f 77 |e settin|g window|
|000052f0| 20 62 75 74 74 6f 6e 73 | 20 66 72 6f 6d 20 74 68 | buttons| from th|
|00005300| 65 20 63 75 72 72 65 6e | 74 20 63 68 6f 69 63 65 |e curren|t choice|
|00005310| 73 0d 1f c2 05 3a 0d 1f | cc 1f 20 f2 65 73 67 6f |s....:..|.. .esgo|
|00005320| 66 66 28 77 5f 73 65 74 | 2c 65 73 67 5f 73 5f 73 |ff(w_set|,esg_s_s|
|00005330| 74 6f 63 6b 29 0d 1f d6 | 1e 20 f2 65 73 67 6f 66 |tock)...|. .esgof|
|00005340| 66 28 77 5f 73 65 74 2c | 65 73 67 5f 73 5f 6a 75 |f(w_set,|esg_s_ju|
|00005350| 73 74 29 0d 1f e0 1e 20 | f2 65 73 67 6f 66 66 28 |st).... |.esgoff(|
|00005360| 77 5f 73 65 74 2c 65 73 | 67 5f 73 5f 74 79 70 65 |w_set,es|g_s_type|
|00005370| 29 0d 1f ea 1d 20 f2 65 | 73 67 6f 66 66 28 77 5f |).... .e|sgoff(w_|
|00005380| 73 65 74 2c 65 73 67 5f | 73 5f 70 69 74 29 0d 1f |set,esg_|s_pit)..|
|00005390| f4 1e 20 f2 65 73 67 6f | 66 66 28 77 5f 73 65 74 |.. .esgo|ff(w_set|
|000053a0| 2c 65 73 67 5f 73 5f 6c | 69 6e 65 29 0d 1f fe 05 |,esg_s_l|ine)....|
|000053b0| 3a 0d 20 08 0f 20 c8 8e | 20 73 74 6f 63 6b 20 ca |:. .. ..| stock .|
|000053c0| 0d 20 12 23 20 20 c9 20 | 31 3a 20 f2 69 63 6f 6e |. .#  . |1: .icon|
|000053d0| 73 65 6c 28 77 5f 73 65 | 74 2c 69 5f 73 5f 73 31 |sel(w_se|t,i_s_s1|
|000053e0| 2c 54 29 0d 20 1c 23 20 | 20 c9 20 32 3a 20 f2 69 |,T). .# | . 2: .i|
|000053f0| 63 6f 6e 73 65 6c 28 77 | 5f 73 65 74 2c 69 5f 73 |consel(w|_set,i_s|
|00005400| 5f 73 32 2c 54 29 0d 20 | 26 23 20 20 c9 20 33 3a |_s2,T). |&#  . 3:|
|00005410| 20 f2 69 63 6f 6e 73 65 | 6c 28 77 5f 73 65 74 2c | .iconse|l(w_set,|
|00005420| 69 5f 73 5f 73 33 2c 54 | 29 0d 20 30 06 20 cb 0d |i_s_s3,T|). 0. ..|
|00005430| 20 3a 05 3a 0d 20 44 0e | 20 c8 8e 20 6a 75 73 74 | :.:. D.| .. just|
|00005440| 20 ca 0d 20 4e 23 20 20 | c9 20 31 3a 20 f2 69 63 | .. N#  |. 1: .ic|
|00005450| 6f 6e 73 65 6c 28 77 5f | 73 65 74 2c 69 5f 73 5f |onsel(w_|set,i_s_|
|00005460| 6a 6c 2c 54 29 0d 20 58 | 23 20 20 c9 20 32 3a 20 |jl,T). X|#  . 2: |
|00005470| f2 69 63 6f 6e 73 65 6c | 28 77 5f 73 65 74 2c 69 |.iconsel|(w_set,i|
|00005480| 5f 73 5f 6a 63 2c 54 29 | 0d 20 62 23 20 20 c9 20 |_s_jc,T)|. b#  . |
|00005490| 33 3a 20 f2 69 63 6f 6e | 73 65 6c 28 77 5f 73 65 |3: .icon|sel(w_se|
|000054a0| 74 2c 69 5f 73 5f 6a 72 | 2c 54 29 0d 20 6c 06 20 |t,i_s_jr|,T). l. |
|000054b0| cb 0d 20 76 05 3a 0d 20 | 80 0d 20 c8 8e 20 63 70 |.. v.:. |.. .. cp|
|000054c0| 69 20 ca 0d 20 8a 23 20 | 20 c9 20 35 3a 20 f2 69 |i .. .# | . 5: .i|
|000054d0| 63 6f 6e 73 65 6c 28 77 | 5f 73 65 74 2c 69 5f 73 |consel(w|_set,i_s|
|000054e0| 5f 70 35 2c 54 29 0d 20 | 94 25 20 20 c9 20 31 30 |_p5,T). |.%  . 10|
|000054f0| 3a 20 f2 69 63 6f 6e 73 | 65 6c 28 77 5f 73 65 74 |: .icons|el(w_set|
|00005500| 2c 69 5f 73 5f 70 31 30 | 2c 54 29 0d 20 9e 25 20 |,i_s_p10|,T). .% |
|00005510| 20 c9 20 31 32 3a 20 f2 | 69 63 6f 6e 73 65 6c 28 | . 12: .|iconsel(|
|00005520| 77 5f 73 65 74 2c 69 5f | 73 5f 70 31 32 2c 54 29 |w_set,i_|s_p12,T)|
|00005530| 0d 20 a8 25 20 20 c9 20 | 31 37 3a 20 f2 69 63 6f |. .%  . |17: .ico|
|00005540| 6e 73 65 6c 28 77 5f 73 | 65 74 2c 69 5f 73 5f 70 |nsel(w_s|et,i_s_p|
|00005550| 31 37 2c 54 29 0d 20 b2 | 06 20 cb 0d 20 bc 05 3a |17,T). .|. .. ..:|
|00005560| 0d 20 c6 0d 20 c8 8e 20 | 6c 70 69 20 ca 0d 20 d0 |. .. .. |lpi .. .|
|00005570| 23 20 20 c9 20 34 3a 20 | f2 69 63 6f 6e 73 65 6c |#  . 4: |.iconsel|
|00005580| 28 77 5f 73 65 74 2c 69 | 5f 73 5f 6c 34 2c 54 29 |(w_set,i|_s_l4,T)|
|00005590| 0d 20 da 23 20 20 c9 20 | 36 3a 20 f2 69 63 6f 6e |. .#  . |6: .icon|
|000055a0| 73 65 6c 28 77 5f 73 65 | 74 2c 69 5f 73 5f 6c 36 |sel(w_se|t,i_s_l6|
|000055b0| 2c 54 29 0d 20 e4 23 20 | 20 c9 20 38 3a 20 f2 69 |,T). .# | . 8: .i|
|000055c0| 63 6f 6e 73 65 6c 28 77 | 5f 73 65 74 2c 69 5f 73 |consel(w|_set,i_s|
|000055d0| 5f 6c 38 2c 54 29 0d 20 | ee 06 20 cb 0d 20 f8 05 |_l8,T). |.. .. ..|
|000055e0| 3a 0d 21 02 16 20 e7 20 | 74 5f 74 79 70 65 3d 25 |:.!.. . |t_type=%|
|000055f0| 30 30 30 30 30 20 8c 0d | 21 0c 20 20 20 f2 69 63 |00000 ..|!.   .ic|
|00005600| 6f 6e 73 65 6c 28 77 5f | 73 65 74 2c 69 5f 73 5f |onsel(w_|set,i_s_|
|00005610| 6e 6f 72 6d 2c 54 29 0d | 21 16 06 20 cc 0d 21 20 |norm,T).|!.. ..! |
|00005620| 37 20 20 e7 20 28 74 5f | 74 79 70 65 20 80 20 25 |7  . (t_|type . %|
|00005630| 30 30 30 30 31 29 3e 30 | 20 8c 20 f2 69 63 6f 6e |00001)>0| . .icon|
|00005640| 73 65 6c 28 77 5f 73 65 | 74 2c 69 5f 73 5f 6e 6c |sel(w_se|t,i_s_nl|
|00005650| 71 2c 54 29 0d 21 2a 38 | 20 20 e7 20 28 74 5f 74 |q,T).!*8|  . (t_t|
|00005660| 79 70 65 20 80 20 25 30 | 30 30 31 30 29 3e 30 20 |ype . %0|0010)>0 |
|00005670| 8c 20 f2 69 63 6f 6e 73 | 65 6c 28 77 5f 73 65 74 |. .icons|el(w_set|
|00005680| 2c 69 5f 73 5f 62 6f 6c | 64 2c 54 29 0d 21 34 38 |,i_s_bol|d,T).!48|
|00005690| 20 20 e7 20 28 74 5f 74 | 79 70 65 20 80 20 25 30 |  . (t_t|ype . %0|
|000056a0| 30 31 30 30 29 3e 30 20 | 8c 20 f2 69 63 6f 6e 73 |0100)>0 |. .icons|
|000056b0| 65 6c 28 77 5f 73 65 74 | 2c 69 5f 73 5f 69 74 61 |el(w_set|,i_s_ita|
|000056c0| 6c 2c 54 29 0d 21 3e 37 | 20 20 e7 20 28 74 5f 74 |l,T).!>7|  . (t_t|
|000056d0| 79 70 65 20 80 20 25 30 | 31 30 30 30 29 3e 30 20 |ype . %0|1000)>0 |
|000056e0| 8c 20 f2 69 63 6f 6e 73 | 65 6c 28 77 5f 73 65 74 |. .icons|el(w_set|
|000056f0| 2c 69 5f 73 5f 72 65 64 | 2c 54 29 0d 21 48 39 20 |,i_s_red|,T).!H9 |
|00005700| 20 e7 20 28 74 5f 74 79 | 70 65 20 80 20 25 31 30 | . (t_ty|pe . %10|
|00005710| 30 30 30 29 3e 30 20 8c | 20 f2 69 63 6f 6e 73 65 |000)>0 .| .iconse|
|00005720| 6c 28 77 5f 73 65 74 2c | 69 5f 73 5f 75 6e 64 65 |l(w_set,|i_s_unde|
|00005730| 72 2c 54 29 0d 21 52 06 | 20 cd 0d 21 5c 05 3a 0d |r,T).!R.| ..!\.:.|
|00005740| 21 66 05 e1 0d 21 70 04 | 0d 21 7a 05 3a 0d 21 84 |!f...!p.|.!z.:.!.|
|00005750| 2b 3a 20 f4 20 45 76 65 | 6e 74 20 68 61 6e 64 6c |+: . Eve|nt handl|
|00005760| 65 72 73 20 66 6f 72 20 | 73 65 74 74 69 6e 67 73 |ers for |settings|
|00005770| 20 70 72 6f 63 65 73 73 | 0d 21 8e 05 3a 0d 21 98 | process|.!..:.!.|
|00005780| 04 0d 21 a2 34 dd 20 a4 | 6f 70 65 6e 5f 73 65 74 |..!.4. .|open_set|
|00005790| 28 77 69 6e 64 6f 77 2c | 6e 65 77 29 20 3d 20 a4 |(window,|new) = .|
|000057a0| 6f 70 65 6e 5f 69 64 6c | 65 28 77 69 6e 64 6f 77 |open_idl|e(window|
|000057b0| 2c 6e 65 77 29 0d 21 ac | 2c dd 20 a4 6d 65 73 73 |,new).!.|,. .mess|
|000057c0| 61 67 65 5f 73 65 74 28 | 62 6c 6b 29 20 3d 20 a4 |age_set(|blk) = .|
|000057d0| 6d 65 73 73 61 67 65 5f | 69 64 6c 65 28 62 6c 6b |message_|idle(blk|
|000057e0| 29 0d 21 b6 04 0d 21 c0 | 1c dd 20 a4 6d 65 6e 75 |).!...!.|.. .menu|
|000057f0| 5f 73 65 74 28 77 69 6e | 64 6f 77 2c 69 63 6f 6e |_set(win|dow,icon|
|00005800| 29 0d 21 ca 08 ea 20 6d | 70 0d 21 d4 21 20 e7 20 |).!... m|p.!.! . |
|00005810| 77 69 6e 64 6f 77 3d 2d | 32 20 8c 20 f2 6d 61 6b |window=-|2 . .mak|
|00005820| 65 5f 6d 65 6e 75 73 28 | 54 29 0d 21 de 08 3d 20 |e_menus(|T).!..= |
|00005830| 6d 70 0d 21 e8 04 0d 21 | f2 40 dd 20 a4 63 68 6f |mp.!...!|.@. .cho|
|00005840| 6f 73 65 5f 73 65 74 28 | 73 65 6c 31 2c 73 65 6c |ose_set(|sel1,sel|
|00005850| 32 2c 73 65 6c 33 29 20 | 3d 20 a4 63 68 6f 6f 73 |2,sel3) |= .choos|
|00005860| 65 5f 69 64 6c 65 28 73 | 65 6c 31 2c 73 65 6c 32 |e_idle(s|el1,sel2|
|00005870| 2c 73 65 6c 33 29 0d 21 | fc 04 0d 22 06 0f dd 20 |,sel3).!|..."... |
|00005880| a4 71 75 69 74 5f 73 65 | 74 0d 22 10 10 20 66 69 |.quit_se|t.".. fi|
|00005890| 6e 69 73 68 20 3d 20 2d | 31 0d 22 1a 07 3d 20 31 |nish = -|1."..= 1|
|000058a0| 0d 22 24 04 0d 22 2e 18 | dd 20 a4 63 6c 6f 73 65 |."$.."..|. .close|
|000058b0| 5f 73 65 74 28 77 69 6e | 64 6f 77 29 0d 22 38 2c |_set(win|dow)."8,|
|000058c0| 20 e7 20 77 69 6e 64 6f | 77 3d 77 5f 73 65 74 20 | . windo|w=w_set |
|000058d0| 8c 20 66 69 6e 69 73 68 | 20 3d 20 31 20 3a 20 3d |. finish| = 1 : =|
|000058e0| 20 31 20 8b 20 3d 20 30 | 0d 22 42 04 0d 22 4c 1e | 1 . = 0|."B.."L.|
|000058f0| dd 20 a4 73 65 6c 65 63 | 74 5f 73 65 74 28 77 69 |. .selec|t_set(wi|
|00005900| 6e 64 6f 77 2c 69 63 6f | 6e 29 0d 22 56 18 ea 20 |ndow,ico|n)."V.. |
|00005910| 6f 5f 6a 75 73 74 2c 6f | 5f 63 70 69 2c 6f 5f 6c |o_just,o|_cpi,o_l|
|00005920| 70 69 0d 22 60 05 3a 0d | 22 6a 48 3a 20 f4 20 53 |pi."`.:.|"jH: . S|
|00005930| 65 6c 65 63 74 20 6f 76 | 65 72 20 61 20 73 65 74 |elect ov|er a set|
|00005940| 74 69 6e 67 20 77 69 6e | 64 6f 77 20 62 75 74 74 |ting win|dow butt|
|00005950| 6f 6e 20 2d 20 75 70 64 | 61 74 65 20 63 68 6f 69 |on - upd|ate choi|
|00005960| 63 65 73 20 61 73 20 72 | 65 71 75 69 72 65 64 0d |ces as r|equired.|
|00005970| 22 74 05 3a 0d 22 7e 1f | 20 e7 20 77 69 6e 64 6f |"t.:."~.| . windo|
|00005980| 77 3d 77 5f 73 65 74 20 | 80 20 69 63 6f 6e 3e 3d |w=w_set |. icon>=|
|00005990| 30 20 8c 0d 22 88 2f 20 | 20 6f 5f 6a 75 73 74 20 |0 .."./ | o_just |
|000059a0| 3d 20 6a 75 73 74 20 3a | 20 6f 5f 63 70 69 20 3d |= just :| o_cpi =|
|000059b0| 20 63 70 69 20 3a 20 6f | 5f 6c 70 69 20 3d 20 6c | cpi : o|_lpi = l|
|000059c0| 70 69 0d 22 92 05 3a 0d | 22 9c 0f 20 20 c8 8e 20 |pi."..:.|"..  .. |
|000059d0| 69 63 6f 6e 20 ca 0d 22 | a6 3b 20 20 20 c9 20 69 |icon .."|.;   . i|
|000059e0| 5f 73 5f 73 31 3a 20 20 | 20 20 f2 65 73 67 6f 66 |_s_s1:  |  .esgof|
|000059f0| 66 28 77 69 6e 64 6f 77 | 2c 65 73 67 5f 73 5f 73 |f(window|,esg_s_s|
|00005a00| 74 6f 63 6b 29 20 3a 20 | 73 74 6f 63 6b 20 3d 20 |tock) : |stock = |
|00005a10| 31 0d 22 b0 3b 20 20 20 | c9 20 69 5f 73 5f 73 32 |1.".;   |. i_s_s2|
|00005a20| 3a 20 20 20 20 f2 65 73 | 67 6f 66 66 28 77 69 6e |:    .es|goff(win|
|00005a30| 64 6f 77 2c 65 73 67 5f | 73 5f 73 74 6f 63 6b 29 |dow,esg_|s_stock)|
|00005a40| 20 3a 20 73 74 6f 63 6b | 20 3d 20 32 0d 22 ba 3b | : stock| = 2.".;|
|00005a50| 20 20 20 c9 20 69 5f 73 | 5f 73 33 3a 20 20 20 20 |   . i_s|_s3:    |
|00005a60| f2 65 73 67 6f 66 66 28 | 77 69 6e 64 6f 77 2c 65 |.esgoff(|window,e|
|00005a70| 73 67 5f 73 5f 73 74 6f | 63 6b 29 20 3a 20 73 74 |sg_s_sto|ck) : st|
|00005a80| 6f 63 6b 20 3d 20 33 0d | 22 c4 39 20 20 20 c9 20 |ock = 3.|".9   . |
|00005a90| 69 5f 73 5f 6a 6c 3a 20 | 20 20 20 f2 65 73 67 6f |i_s_jl: |   .esgo|
|00005aa0| 66 66 28 77 69 6e 64 6f | 77 2c 65 73 67 5f 73 5f |ff(windo|w,esg_s_|
|00005ab0| 6a 75 73 74 29 20 3a 20 | 6a 75 73 74 20 3d 20 31 |just) : |just = 1|
|00005ac0| 0d 22 ce 39 20 20 20 c9 | 20 69 5f 73 5f 6a 63 3a |.".9   .| i_s_jc:|
|00005ad0| 20 20 20 20 f2 65 73 67 | 6f 66 66 28 77 69 6e 64 |    .esg|off(wind|
|00005ae0| 6f 77 2c 65 73 67 5f 73 | 5f 6a 75 73 74 29 20 3a |ow,esg_s|_just) :|
|00005af0| 20 6a 75 73 74 20 3d 20 | 32 0d 22 d8 39 20 20 20 | just = |2.".9   |
|00005b00| c9 20 69 5f 73 5f 6a 72 | 3a 20 20 20 20 f2 65 73 |. i_s_jr|:    .es|
|00005b10| 67 6f 66 66 28 77 69 6e | 64 6f 77 2c 65 73 67 5f |goff(win|dow,esg_|
|00005b20| 73 5f 6a 75 73 74 29 20 | 3a 20 6a 75 73 74 20 3d |s_just) |: just =|
|00005b30| 20 33 0d 22 e2 40 20 20 | 20 c9 20 69 5f 73 5f 6e | 3.".@  | . i_s_n|
|00005b40| 6f 72 6d 3a 20 20 f2 65 | 73 67 6f 66 66 28 77 69 |orm:  .e|sgoff(wi|
|00005b50| 6e 64 6f 77 2c 65 73 67 | 5f 73 5f 74 79 70 65 29 |ndow,esg|_s_type)|
|00005b60| 20 3a 20 74 5f 74 79 70 | 65 20 3d 20 25 30 30 30 | : t_typ|e = %000|
|00005b70| 30 30 0d 22 ec 26 20 20 | 20 c9 20 69 5f 73 5f 6e |00.".&  | . i_s_n|
|00005b80| 6c 71 3a 20 20 20 f2 74 | 79 70 65 28 69 63 6f 6e |lq:   .t|ype(icon|
|00005b90| 2c 25 30 30 30 30 31 29 | 0d 22 f6 26 20 20 20 c9 |,%00001)|.".&   .|
|00005ba0| 20 69 5f 73 5f 62 6f 6c | 64 3a 20 20 f2 74 79 70 | i_s_bol|d:  .typ|
|00005bb0| 65 28 69 63 6f 6e 2c 25 | 30 30 30 31 30 29 0d 23 |e(icon,%|00010).#|
|00005bc0| 00 26 20 20 20 c9 20 69 | 5f 73 5f 69 74 61 6c 3a |.&   . i|_s_ital:|
|00005bd0| 20 20 f2 74 79 70 65 28 | 69 63 6f 6e 2c 25 30 30 |  .type(|icon,%00|
|00005be0| 31 30 30 29 0d 23 0a 26 | 20 20 20 c9 20 69 5f 73 |100).#.&|   . i_s|
|00005bf0| 5f 72 65 64 3a 20 20 20 | f2 74 79 70 65 28 69 63 |_red:   |.type(ic|
|00005c00| 6f 6e 2c 25 30 31 30 30 | 30 29 0d 23 14 26 20 20 |on,%0100|0).#.&  |
|00005c10| 20 c9 20 69 5f 73 5f 75 | 6e 64 65 72 3a 20 f2 74 | . i_s_u|nder: .t|
|00005c20| 79 70 65 28 69 63 6f 6e | 2c 25 31 30 30 30 30 29 |ype(icon|,%10000)|
|00005c30| 0d 23 1e 37 20 20 20 c9 | 20 69 5f 73 5f 70 35 3a |.#.7   .| i_s_p5:|
|00005c40| 20 20 20 20 f2 65 73 67 | 6f 66 66 28 77 69 6e 64 |    .esg|off(wind|
|00005c50| 6f 77 2c 65 73 67 5f 73 | 5f 70 69 74 29 20 3a 20 |ow,esg_s|_pit) : |
|00005c60| 63 70 69 20 3d 20 35 0d | 23 28 38 20 20 20 c9 20 |cpi = 5.|#(8   . |
|00005c70| 69 5f 73 5f 70 31 30 3a | 20 20 20 f2 65 73 67 6f |i_s_p10:|   .esgo|
|00005c80| 66 66 28 77 69 6e 64 6f | 77 2c 65 73 67 5f 73 5f |ff(windo|w,esg_s_|
|00005c90| 70 69 74 29 20 3a 20 63 | 70 69 20 3d 20 31 30 0d |pit) : c|pi = 10.|
|00005ca0| 23 32 38 20 20 20 c9 20 | 69 5f 73 5f 70 31 32 3a |#28   . |i_s_p12:|
|00005cb0| 20 20 20 f2 65 73 67 6f | 66 66 28 77 69 6e 64 6f |   .esgo|ff(windo|
|00005cc0| 77 2c 65 73 67 5f 73 5f | 70 69 74 29 20 3a 20 63 |w,esg_s_|pit) : c|
|00005cd0| 70 69 20 3d 20 31 32 0d | 23 3c 38 20 20 20 c9 20 |pi = 12.|#<8   . |
|00005ce0| 69 5f 73 5f 70 31 37 3a | 20 20 20 f2 65 73 67 6f |i_s_p17:|   .esgo|
|00005cf0| 66 66 28 77 69 6e 64 6f | 77 2c 65 73 67 5f 73 5f |ff(windo|w,esg_s_|
|00005d00| 70 69 74 29 20 3a 20 63 | 70 69 20 3d 20 31 37 0d |pit) : c|pi = 17.|
|00005d10| 23 46 38 20 20 20 c9 20 | 69 5f 73 5f 6c 34 3a 20 |#F8   . |i_s_l4: |
|00005d20| 20 20 20 f2 65 73 67 6f | 66 66 28 77 69 6e 64 6f |   .esgo|ff(windo|
|00005d30| 77 2c 65 73 67 5f 73 5f | 6c 69 6e 65 29 20 3a 20 |w,esg_s_|line) : |
|00005d40| 6c 70 69 20 3d 20 34 0d | 23 50 38 20 20 20 c9 20 |lpi = 4.|#P8   . |
|00005d50| 69 5f 73 5f 6c 36 3a 20 | 20 20 20 f2 65 73 67 6f |i_s_l6: |   .esgo|
|00005d60| 66 66 28 77 69 6e 64 6f | 77 2c 65 73 67 5f 73 5f |ff(windo|w,esg_s_|
|00005d70| 6c 69 6e 65 29 20 3a 20 | 6c 70 69 20 3d 20 36 0d |line) : |lpi = 6.|
|00005d80| 23 5a 38 20 20 20 c9 20 | 69 5f 73 5f 6c 38 3a 20 |#Z8   . |i_s_l8: |
|00005d90| 20 20 20 f2 65 73 67 6f | 66 66 28 77 69 6e 64 6f |   .esgo|ff(windo|
|00005da0| 77 2c 65 73 67 5f 73 5f | 6c 69 6e 65 29 20 3a 20 |w,esg_s_|line) : |
|00005db0| 6c 70 69 20 3d 20 38 0d | 23 64 07 20 20 cb 0d 23 |lpi = 8.|#d.  ..#|
|00005dc0| 6e 29 20 20 e7 20 69 63 | 6f 6e 3e 3d 30 20 8c 20 |n)  . ic|on>=0 . |
|00005dd0| f2 69 63 6f 6e 73 65 6c | 28 77 69 6e 64 6f 77 2c |.iconsel|(window,|
|00005de0| 69 63 6f 6e 2c 54 29 0d | 23 78 05 3a 0d 23 82 06 |icon,T).|#x.:.#..|
|00005df0| 20 cd 0d 23 8c 07 3d 20 | 31 0d 23 96 04 0d 23 a0 | ..#..= |1.#...#.|
|00005e00| 18 dd 20 f2 74 79 70 65 | 28 f8 20 69 63 6f 6e 2c |.. .type|(. icon,|
|00005e10| 6d 61 73 6b 29 0d 23 aa | 05 3a 0d 23 b4 2a 3a 20 |mask).#.|.:.#.*: |
|00005e20| f4 20 41 20 74 79 70 65 | 20 65 6e 68 61 6e 63 65 |. A type| enhance|
|00005e30| 6d 65 6e 74 20 62 75 74 | 74 6f 6e 20 63 6c 69 63 |ment but|ton clic|
|00005e40| 6b 65 64 2e 0d 23 be 43 | 3a 20 f4 20 49 66 20 6f |ked..#.C|: . If o|
|00005e50| 75 74 20 6f 70 74 69 6f | 6e 20 69 73 20 6e 6f 74 |ut optio|n is not|
|00005e60| 20 61 6c 72 65 61 64 79 | 20 73 65 6c 65 63 74 65 | already| selecte|
|00005e70| 64 2c 20 73 65 6c 65 63 | 74 20 6f 75 72 73 65 6c |d, selec|t oursel|
|00005e80| 76 65 73 20 61 6e 64 0d | 23 c8 48 3a 20 f4 20 64 |ves and.|#.H: . d|
|00005e90| 65 73 65 6c 65 63 74 20 | 4e 6f 72 6d 61 6c 2e 20 |eselect |Normal. |
|00005ea0| 20 49 66 20 77 65 27 72 | 65 20 61 6c 72 65 61 64 | If we'r|e alread|
|00005eb0| 79 20 73 65 6c 65 63 74 | 65 64 2c 20 74 75 72 6e |y select|ed, turn|
|00005ec0| 20 6f 75 72 20 62 75 74 | 74 6f 6e 20 61 6e 64 0d | our but|ton and.|
|00005ed0| 23 d2 48 3a 20 f4 20 65 | 6e 68 61 6e 63 65 6d 65 |#.H: . e|nhanceme|
|00005ee0| 6e 74 20 6f 66 66 2e 20 | 20 49 66 20 6e 6f 20 6d |nt off. | If no m|
|00005ef0| 6f 72 65 20 65 6e 68 61 | 6e 63 65 6d 65 6e 74 73 |ore enha|ncements|
|00005f00| 20 72 65 6d 61 69 6e 2c | 20 73 65 6c 65 63 74 20 | remain,| select |
|00005f10| 4e 6f 72 6d 61 6c 2e 0d | 23 dc 05 3a 0d 23 e6 1a |Normal..|#..:.#..|
|00005f20| 20 e7 20 28 74 5f 74 79 | 70 65 20 80 20 6d 61 73 | . (t_ty|pe . mas|
|00005f30| 6b 29 3d 30 20 8c 0d 23 | f0 20 20 20 f2 69 63 6f |k)=0 ..#|.   .ico|
|00005f40| 6e 73 65 6c 28 77 5f 73 | 65 74 2c 69 5f 73 5f 6e |nsel(w_s|et,i_s_n|
|00005f50| 6f 72 6d 2c 46 29 0d 23 | fa 1c 20 20 74 5f 74 79 |orm,F).#|..  t_ty|
|00005f60| 70 65 20 3d 20 74 5f 74 | 79 70 65 20 84 20 6d 61 |pe = t_t|ype . ma|
|00005f70| 73 6b 0d 24 04 06 20 cc | 0d 24 0e 20 20 20 74 5f |sk.$.. .|.$.   t_|
|00005f80| 74 79 70 65 20 3d 20 74 | 5f 74 79 70 65 20 80 20 |type = t|_type . |
|00005f90| 28 ac 20 6d 61 73 6b 29 | 0d 24 18 1c 20 20 f2 69 |(. mask)|.$..  .i|
|00005fa0| 63 6f 6e 73 65 6c 28 77 | 5f 73 65 74 2c 69 63 6f |consel(w|_set,ico|
|00005fb0| 6e 2c 46 29 0d 24 22 33 | 20 20 e7 20 28 74 5f 74 |n,F).$"3|  . (t_t|
|00005fc0| 79 70 65 3d 25 30 30 30 | 30 30 29 20 69 63 6f 6e |ype=%000|00) icon|
|00005fd0| 20 3d 20 69 5f 73 5f 6e | 6f 72 6d 20 8b 20 69 63 | = i_s_n|orm . ic|
|00005fe0| 6f 6e 20 3d 20 2d 31 0d | 24 2c 06 20 cd 0d 24 36 |on = -1.|$,. ..$6|
|00005ff0| 05 e1 0d 24 40 04 0d 24 | 4a 16 dd 20 f2 65 73 67 |...$@..$|J.. .esg|
|00006000| 6f 66 66 28 77 69 6e 2c | 65 73 67 29 0d 24 54 0e |off(win,|esg).$T.|
|00006010| ea 20 62 6c 6f 63 6b 2c | 62 70 0d 24 5e 05 3a 0d |. block,|bp.$^.:.|
|00006020| 24 68 2d 3a 20 f4 20 44 | 65 73 65 6c 65 63 74 20 |$h-: . D|eselect |
|00006030| 61 6c 6c 20 74 68 65 20 | 69 63 6f 6e 73 20 69 6e |all the |icons in|
|00006040| 20 61 20 67 69 76 65 6e | 20 45 53 47 0d 24 72 3e | a given| ESG.$r>|
|00006050| 3a 20 f4 20 55 73 65 20 | 61 20 70 73 65 75 64 6f |: . Use |a pseudo|
|00006060| 20 64 61 74 61 20 62 6c | 6f 63 6b 20 61 20 67 6f | data bl|ock a go|
|00006070| 6f 64 20 77 61 79 20 75 | 70 20 74 68 65 20 73 74 |od way u|p the st|
|00006080| 61 6e 64 61 72 64 20 6f | 6e 65 0d 24 7c 05 3a 0d |andard o|ne.$|.:.|
|00006090| 24 86 22 20 62 6c 6f 63 | 6b 20 3d 20 62 6c 6b 2b |$." bloc|k = blk+|
|000060a0| 26 31 30 30 20 3a 20 62 | 70 20 3d 20 62 6c 6f 63 |&100 : b|p = bloc|
|000060b0| 6b 0d 24 90 41 20 c8 99 | 20 22 57 69 6d 70 5f 57 |k.$.A ..| "Wimp_W|
|000060c0| 68 69 63 68 49 63 6f 6e | 22 2c 77 69 6e 2c 62 6c |hichIcon|",win,bl|
|000060d0| 6f 63 6b 2c 31 35 3c 3c | 53 68 5f 49 63 6f 6e 45 |ock,15<<|Sh_IconE|
|000060e0| 53 47 2c 65 73 67 3c 3c | 53 68 5f 49 63 6f 6e 45 |SG,esg<<|Sh_IconE|
|000060f0| 53 47 0d 24 9a 0e 20 c8 | 95 20 21 62 70 3e 3d 30 |SG.$.. .|. !bp>=0|
|00006100| 0d 24 a4 19 20 20 f2 69 | 63 6f 6e 73 65 6c 28 77 |.$..  .i|consel(w|
|00006110| 69 6e 2c 21 62 70 2c 46 | 29 0d 24 ae 0d 20 20 62 |in,!bp,F|).$..  b|
|00006120| 70 20 2b 3d 20 34 0d 24 | b8 06 20 ce 0d 24 c2 05 |p += 4.$|.. ..$..|
|00006130| e1 0d 24 cc 04 0d 24 d6 | 1c dd 20 f2 69 63 6f 6e |..$...$.|.. .icon|
|00006140| 73 65 6c 28 77 69 6e 2c | 69 63 6f 6e 2c 6e 65 77 |sel(win,|icon,new|
|00006150| 29 0d 24 e0 05 3a 0d 24 | ea 30 3a 20 f4 20 43 68 |).$..:.$|.0: . Ch|
|00006160| 61 6e 67 65 20 74 68 65 | 20 27 68 69 67 68 6c 69 |ange the| 'highli|
|00006170| 67 68 74 65 64 27 20 66 | 6c 61 67 20 6f 66 20 61 |ghted' f|lag of a|
|00006180| 6e 20 69 63 6f 6e 0d 24 | f4 05 3a 0d 24 fe 10 20 |n icon.$|..:.$.. |
|00006190| 62 6c 6b 21 30 20 3d 20 | 77 69 6e 0d 25 08 11 20 |blk!0 = |win.%.. |
|000061a0| 62 6c 6b 21 34 20 3d 20 | 69 63 6f 6e 0d 25 12 2c |blk!4 = |icon.%.,|
|000061b0| 20 e7 20 6e 65 77 20 8c | 20 62 6c 6b 21 38 20 3d | . new .| blk!8 =|
|000061c0| 20 49 66 5f 49 6e 76 65 | 72 74 65 64 20 8b 20 62 | If_Inve|rted . b|
|000061d0| 6c 6b 21 38 20 3d 20 30 | 0d 25 1c 19 20 62 6c 6b |lk!8 = 0|.%.. blk|
|000061e0| 21 31 32 20 3d 20 49 66 | 5f 49 6e 76 65 72 74 65 |!12 = If|_Inverte|
|000061f0| 64 0d 25 26 20 20 c8 99 | 20 22 57 69 6d 70 5f 53 |d.%&  ..| "Wimp_S|
|00006200| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 62 6c |etIconSt|ate",,bl|
|00006210| 6b 0d 25 30 05 e1 0d 25 | 3a 04 0d 25 44 05 3a 0d |k.%0...%|:..%D.:.|
|00006220| 25 4e 27 3a 20 f4 20 45 | 76 65 6e 74 20 68 61 6e |%N': . E|vent han|
|00006230| 64 6c 65 72 73 20 66 6f | 72 20 69 64 6c 65 20 70 |dlers fo|r idle p|
|00006240| 72 6f 63 65 73 73 0d 25 | 58 05 3a 0d 25 62 04 0d |rocess.%|X.:.%b..|
|00006250| 25 6c 1c dd 20 a4 6f 70 | 65 6e 5f 69 64 6c 65 28 |%l.. .op|en_idle(|
|00006260| 77 69 6e 64 6f 77 2c 6e | 65 77 29 0d 25 76 13 20 |window,n|ew).%v. |
|00006270| 62 6c 6b 21 30 20 3d 20 | 77 69 6e 64 6f 77 0d 25 |blk!0 = |window.%|
|00006280| 80 0c 20 e7 20 6e 65 77 | 20 8c 0d 25 8a 22 20 20 |.. . new| ..%."  |
|00006290| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 57 69 6e 64 |.. "Wimp|_GetWind|
|000062a0| 6f 77 49 6e 66 6f 22 2c | 2c 62 6c 6b 0d 25 94 11 |owInfo",|,blk.%..|
|000062b0| 20 20 62 6c 6b 21 32 38 | 20 3d 20 2d 31 0d 25 9e |  blk!28| = -1.%.|
|000062c0| 06 20 cd 0d 25 a8 49 20 | e7 20 77 69 6e 64 6f 77 |. ..%.I |. window|
|000062d0| 3d 77 5f 74 65 78 74 20 | 8c 20 62 6c 6b 21 32 34 |=w_text |. blk!24|
|000062e0| 20 3d 20 2d 6c 69 6e 65 | 5f 73 70 2a a8 28 2d 28 | = -line|_sp*.(-(|
|000062f0| 62 6c 6b 21 32 34 2d 6c | 69 6e 65 5f 73 70 2f 32 |blk!24-l|ine_sp/2|
|00006300| 29 20 81 20 6c 69 6e 65 | 5f 73 70 29 0d 25 b2 1e |) . line|_sp).%..|
|00006310| 20 c8 99 20 22 57 69 6d | 70 5f 4f 70 65 6e 57 69 | .. "Wim|p_OpenWi|
|00006320| 6e 64 6f 77 22 2c 2c 62 | 6c 6b 0d 25 bc 07 3d 20 |ndow",,b|lk.%..= |
|00006330| 31 0d 25 c6 04 0d 25 d0 | 1d dd 20 a4 63 6c 6f 73 |1.%...%.|.. .clos|
|00006340| 65 5f 69 64 6c 65 28 77 | 69 6e 64 6f 77 29 20 3d |e_idle(w|indow) =|
|00006350| 20 30 0d 25 da 04 0d 25 | e4 20 dd 20 a4 6b 65 79 | 0.%...%|. . .key|
|00006360| 5f 69 64 6c 65 28 77 69 | 6e 64 6f 77 2c 69 63 6f |_idle(wi|ndow,ico|
|00006370| 6e 2c 6b 65 79 29 0d 25 | ee 11 ea 20 6c 69 6e 65 |n,key).%|... line|
|00006380| 2c 6c 65 6e 2c 4a 25 0d | 25 f8 05 3a 0d 26 02 29 |,len,J%.|%..:.&.)|
|00006390| 3a 20 f4 20 4b 65 79 20 | 70 72 65 73 73 2c 20 69 |: . Key |press, i|
|000063a0| 6e 20 53 61 76 65 20 6f | 72 20 74 65 78 74 20 77 |n Save o|r text w|
|000063b0| 69 6e 64 6f 77 0d 26 0c | 05 3a 0d 26 16 10 20 c8 |indow.&.|.:.&.. .|
|000063c0| 8e 20 77 69 6e 64 6f 77 | 20 ca 0d 26 20 0f 20 20 |. window| ..& .  |
|000063d0| c9 20 77 5f 73 61 76 65 | 3a 0d 26 2a 48 20 20 20 |. w_save|:.&*H   |
|000063e0| e7 20 69 63 6f 6e 3d 69 | 5f 76 5f 6e 61 6d 65 20 |. icon=i|_v_name |
|000063f0| 80 20 6b 65 79 3d 31 33 | 20 8c 20 5a 25 20 3d 20 |. key=13| . Z% = |
+--------+-------------------------+-------------------------+--------+--------+