/ Really Useful CD 1 / ReallyUsefulCD1.iso / extras / utilities / _extfiler / _runimage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 20 | 21 52 75 6e 49 6d 61 67 |..... > |!RunImag|
|00000010| 65 0d 00 14 25 f4 20 77 | 72 69 74 74 65 6e 20 62 |e...%. w|ritten b|
|00000020| 79 20 52 2e 54 68 6f 72 | 6e 62 75 72 72 6f 77 20 |y R.Thor|nburrow |
|00000030| 34 2f 38 2f 39 30 0d 00 | 1e 2f f4 20 68 61 73 20 |4/8/90..|./. has |
|00000040| 62 65 65 6e 20 6d 6f 64 | 69 66 69 65 64 20 71 75 |been mod|ified qu|
|00000050| 69 74 65 20 61 20 6c 6f | 74 20 73 69 6e 63 65 20 |ite a lo|t since |
|00000060| 74 68 65 6e 21 0d 00 28 | 38 f4 20 54 68 69 73 20 |then!..(|8. This |
|00000070| 70 72 6f 67 72 61 6d 20 | 69 73 20 50 55 42 4c 49 |program |is PUBLI|
|00000080| 43 20 44 4f 4d 41 49 4e | 2e 20 20 41 4c 4c 20 74 |C DOMAIN|.  ALL t|
|00000090| 68 65 20 61 73 73 6f 63 | 69 61 74 65 64 0d 00 32 |he assoc|iated..2|
|000000a0| 25 f4 20 66 69 6c 65 73 | 20 4d 55 53 54 20 62 65 |%. files| MUST be|
|000000b0| 20 69 6e 63 6c 75 64 65 | 64 20 77 69 74 68 20 69 | include|d with i|
|000000c0| 74 2e 0d 00 3c 05 3a 0d | 00 46 1d ee 20 85 20 eb |t...<.:.|.F.. . .|
|000000d0| 30 3a f6 3a f1 22 20 61 | 74 20 6c 69 6e 65 20 22 |0:.:." a|t line "|
|000000e0| 3b 9e 3a e0 0d 00 50 05 | 3a 0d 00 5a 13 61 70 70 |;.:...P.|:..Z.app|
|000000f0| 24 3d 22 45 78 74 46 69 | 6c 65 72 22 0d 00 64 21 |$="ExtFi|ler"..d!|
|00000100| 76 65 72 73 69 6f 6e 24 | 3d 22 31 2e 33 36 20 28 |version$|="1.36 (|
|00000110| 30 34 20 41 75 67 20 31 | 39 39 31 29 22 0d 00 6e |04 Aug 1|991)"..n|
|00000120| 05 3a 0d 00 78 21 74 61 | 73 6b 5f 68 61 6e 64 6c |.:..x!ta|sk_handl|
|00000130| 65 25 3d a4 77 69 6d 70 | 5f 69 6e 69 74 28 61 70 |e%=.wimp|_init(ap|
|00000140| 70 24 29 0d 00 82 14 ee | 20 85 20 f2 65 72 72 6f |p$).....| . .erro|
|00000150| 72 28 61 70 70 24 29 0d | 00 8c 11 f2 67 65 6e 65 |r(app$).|....gene|
|00000160| 72 61 6c 5f 69 6e 69 74 | 0d 00 96 14 ee 20 85 20 |ral_init|..... . |
|00000170| f2 65 72 72 6f 72 28 61 | 70 70 24 29 0d 00 a0 0b |.error(a|pp$)....|
|00000180| 71 75 69 74 25 3d a3 0d | 00 aa 05 f5 0d 00 b4 31 |quit%=..|.......1|
|00000190| c8 99 20 22 57 69 6d 70 | 5f 50 6f 6c 6c 49 64 6c |.. "Wimp|_PollIdl|
|000001a0| 65 22 2c 30 2c 70 6f 6c | 6c 2c 6d 6f 6e 6f 74 69 |e",0,pol|l,monoti|
|000001b0| 6d 65 25 20 b8 20 72 65 | 61 73 6f 6e 25 0d 00 be |me% . re|ason%...|
|000001c0| 10 c8 8e 20 72 65 61 73 | 6f 6e 25 20 ca 0d 00 c8 |... reas|on% ....|
|000001d0| 15 c9 20 30 3a f2 75 70 | 64 61 74 65 5f 63 6c 6f |.. 0:.up|date_clo|
|000001e0| 63 6b 0d 00 d2 1d c9 20 | 31 3a f2 72 65 64 72 61 |ck..... |1:.redra|
|000001f0| 77 5f 77 69 6e 64 6f 77 | 28 21 70 6f 6c 6c 29 0d |w_window|(!poll).|
|00000200| 00 dc 20 c9 20 32 3a f2 | 6f 70 65 6e 5f 77 69 6e |.. . 2:.|open_win|
|00000210| 64 6f 77 28 21 70 6f 6c | 6c 2c 70 6f 6c 6c 29 0d |dow(!pol|l,poll).|
|00000220| 00 e6 85 20 20 20 20 20 | 20 20 e7 20 28 71 25 21 |...     |  . (q%!|
|00000230| 30 3d 6d 6f 64 66 69 6c | 65 72 5f 77 69 6e 64 25 |0=modfil|er_wind%|
|00000240| 29 20 80 20 28 63 6f 6c | 75 6d 6e 73 20 3c 3e 20 |) . (col|umns <> |
|00000250| a8 28 28 71 25 21 31 32 | 2d 71 25 21 34 29 2f 77 |.((q%!12|-q%!4)/w|
|00000260| 69 64 74 68 29 29 20 80 | 20 ac 28 63 6f 6c 75 6d |idth)) .| .(colum|
|00000270| 6e 73 3d 31 20 80 20 a8 | 28 28 71 25 21 31 32 2d |ns=1 . .|((q%!12-|
|00000280| 71 25 21 34 29 2f 77 69 | 64 74 68 29 20 3c 20 31 |q%!4)/wi|dth) < 1|
|00000290| 29 20 8c 20 f2 63 72 65 | 61 74 65 5f 6d 6f 64 5f |) . .cre|ate_mod_|
|000002a0| 77 69 6e 64 0d 00 f0 1c | c9 20 33 3a f2 63 6c 6f |wind....|. 3:.clo|
|000002b0| 73 65 5f 77 69 6e 64 6f | 77 28 21 70 6f 6c 6c 29 |se_windo|w(!poll)|
|000002c0| 0d 00 fa 1b c9 20 36 3a | f2 6d 6f 75 73 65 5f 62 |..... 6:|.mouse_b|
|000002d0| 75 74 74 6f 6e 28 70 6f | 6c 6c 29 0d 01 04 13 c9 |utton(po|ll).....|
|000002e0| 20 37 3a f2 73 74 61 72 | 74 5f 73 61 76 65 0d 01 | 7:.star|t_save..|
|000002f0| 0e 1b c9 20 38 3a f2 70 | 72 6f 63 65 73 73 5f 6b |... 8:.p|rocess_k|
|00000300| 65 79 73 28 70 6f 6c 6c | 29 0d 01 18 1a c9 20 39 |eys(poll|)..... 9|
|00000310| 3a f2 6d 65 6e 75 5f 73 | 65 6c 65 63 74 28 70 6f |:.menu_s|elect(po|
|00000320| 6c 6c 29 0d 01 22 1a c9 | 20 31 37 2c 31 38 3a f2 |ll).."..| 17,18:.|
|00000330| 72 65 63 65 69 76 65 28 | 70 6f 6c 6c 29 0d 01 2c |receive(|poll)..,|
|00000340| 4a c9 20 31 39 3a c8 99 | 22 4f 53 5f 46 69 6c 65 |J. 19:..|"OS_File|
|00000350| 22 2c 36 2c 70 6f 6c 6c | 2b 34 34 3a 85 20 32 35 |",6,poll|+44:. 25|
|00000360| 35 2c 22 44 61 74 61 20 | 74 72 61 6e 73 66 65 72 |5,"Data |transfer|
|00000370| 20 66 61 69 6c 65 64 3a | 20 52 65 63 69 65 76 65 | failed:| Recieve|
|00000380| 72 20 64 69 65 64 22 0d | 01 36 05 cb 0d 01 40 0b |r died".|.6....@.|
|00000390| fd 20 71 75 69 74 25 0d | 01 4a 1d f2 63 6c 6f 73 |. quit%.|.J..clos|
|000003a0| 65 5f 64 6f 77 6e 28 74 | 61 73 6b 5f 68 61 6e 64 |e_down(t|ask_hand|
|000003b0| 6c 65 25 29 0d 01 54 15 | c8 99 22 55 74 69 6c 73 |le%)..T.|.."Utils|
|000003c0| 5f 53 6c 6f 77 52 4f 4d | 22 0d 01 5e 05 e0 0d 01 |_SlowROM|"..^....|
|000003d0| 68 05 3a 0d 01 72 05 3a | 0d 01 7c 12 dd f2 67 65 |h.:..r.:|..|...ge|
|000003e0| 6e 65 72 61 6c 5f 69 6e | 69 74 0d 01 86 13 f2 6c |neral_in|it.....l|
|000003f0| 6f 61 64 5f 74 65 6d 70 | 6c 61 74 65 73 0d 01 90 |oad_temp|lates...|
|00000400| 16 f4 20 64 69 6d 65 6e | 73 69 6f 6e 20 61 72 72 |.. dimen|sion arr|
|00000410| 61 79 73 0d 01 9a 41 de | 20 62 6c 6f 63 6b 20 26 |ays...A.| block &|
|00000420| 46 46 2c 69 63 6f 6e 20 | 31 30 2c 70 6f 6c 6c 20 |FF,icon |10,poll |
|00000430| 26 46 46 2c 71 25 20 26 | 34 30 30 2c 69 63 6f 6e |&FF,q% &|400,icon|
|00000440| 5f 62 75 66 25 20 34 30 | 2c 66 74 69 63 6f 6e 25 |_buf% 40|,fticon%|
|00000450| 20 26 46 46 0d 01 a4 45 | de 20 66 62 75 66 66 25 | &FF...E|. fbuff%|
|00000460| 20 26 46 46 2c 6d 6f 64 | 75 6c 65 24 28 37 35 29 | &FF,mod|ule$(75)|
|00000470| 2c 61 64 64 72 65 73 73 | 25 28 37 35 29 2c 77 6f |,address|%(75),wo|
|00000480| 72 6b 73 70 63 25 28 37 | 35 29 2c 69 63 6f 6e 5f |rkspc%(7|5),icon_|
|00000490| 68 61 6e 64 25 28 37 35 | 29 0d 01 ae 2d de 20 6d |hand%(75|)...-. m|
|000004a0| 6f 64 74 65 78 74 20 26 | 31 30 30 30 2c 73 65 6c |odtext &|1000,sel|
|000004b0| 65 63 74 65 64 25 28 37 | 35 29 2c 73 74 61 74 75 |ected%(7|5),statu|
|000004c0| 73 25 28 37 35 29 0d 01 | b8 11 f2 63 72 65 61 74 |s%(75)..|...creat|
|000004d0| 65 5f 6d 65 6e 75 73 0d | 01 c2 1a f4 20 63 72 65 |e_menus.|.... cre|
|000004e0| 61 74 65 20 69 63 6f 6e | 5f 62 61 72 20 69 63 6f |ate icon|_bar ico|
|000004f0| 6e 0d 01 cc 24 6d 79 5f | 69 63 6f 6e 25 3d a4 62 |n...$my_|icon%=.b|
|00000500| 61 72 5f 69 63 6f 6e 28 | 22 66 69 6c 65 72 63 6c |ar_icon(|"filercl|
|00000510| 6f 63 6b 22 29 0d 01 d6 | 11 f4 20 73 65 74 20 75 |ock")...|.. set u|
|00000520| 70 20 76 61 72 73 0d 01 | e0 27 72 78 5f 62 61 75 |p vars..|.'rx_bau|
|00000530| 64 3d 31 32 30 30 3a 74 | 78 5f 62 61 75 64 3d 31 |d=1200:t|x_baud=1|
|00000540| 32 30 30 3a 70 61 72 69 | 74 79 25 3d 32 0d 01 ea |200:pari|ty%=2...|
|00000550| 32 73 74 6f 70 25 3d 31 | 3a 77 6f 72 64 5f 6c 65 |2stop%=1|:word_le|
|00000560| 6e 25 3d 38 3a 72 74 73 | 25 3d 30 3a 74 78 5f 69 |n%=8:rts|%=0:tx_i|
|00000570| 6e 74 25 3d 30 3a 72 78 | 5f 69 6e 74 25 3d 30 0d |nt%=0:rx|_int%=0.|
|00000580| 01 f4 28 f2 73 65 74 75 | 70 5f 73 65 72 69 61 6c |..(.setu|p_serial|
|00000590| 28 31 32 30 30 2c 31 32 | 30 30 2c 32 2c 38 2c 31 |(1200,12|00,2,8,1|
|000005a0| 2c 30 2c 30 2c 30 29 0d | 01 fe 13 f2 6c 6f 61 64 |,0,0,0).|....load|
|000005b0| 5f 66 69 6c 65 74 79 70 | 65 73 0d 02 08 23 63 75 |_filetyp|es...#cu|
|000005c0| 72 72 65 6e 74 25 3d 6e | 75 6d 6f 66 74 79 70 65 |rrent%=n|umoftype|
|000005d0| 73 25 3a 64 69 73 70 6c | 61 79 25 3d 32 0d 02 12 |s%:displ|ay%=2...|
|000005e0| 28 c8 99 22 4f 53 5f 52 | 65 61 64 4d 6f 6e 6f 74 |(.."OS_R|eadMonot|
|000005f0| 6f 6e 69 63 54 69 6d 65 | 22 20 b8 20 6d 6f 6e 6f |onicTime|" . mono|
|00000600| 74 69 6d 65 25 0d 02 1c | 24 6d 6f 6e 6f 74 69 6d |time%...|$monotim|
|00000610| 65 25 2b 3d 28 36 30 2d | bb 28 c1 91 24 2c 32 33 |e%+=(60-|.(..$,23|
|00000620| 2c 32 29 29 29 2a 31 30 | 30 0d 02 26 14 6f 74 69 |,2)))*10|0..&.oti|
|00000630| 6d 65 24 3d c1 91 24 2c | 31 37 2c 35 29 0d 02 30 |me$=..$,|17,5)..0|
|00000640| 23 f2 73 65 74 5f 73 74 | 72 69 6e 67 28 2d 32 2c |#.set_st|ring(-2,|
|00000650| 6d 79 5f 69 63 6f 6e 25 | 2c 6f 74 69 6d 65 24 29 |my_icon%|,otime$)|
|00000660| 0d 02 3a 35 f2 73 65 74 | 5f 73 74 72 69 6e 67 28 |..:5.set|_string(|
|00000670| 66 69 6c 65 74 79 70 65 | 73 5f 77 69 6e 64 25 2c |filetype|s_wind%,|
|00000680| 31 2c 74 79 70 65 24 28 | 6e 75 6d 6f 66 74 79 70 |1,type$(|numoftyp|
|00000690| 65 73 25 29 29 0d 02 44 | 38 f2 73 65 74 5f 73 74 |es%))..D|8.set_st|
|000006a0| 72 69 6e 67 28 66 69 6c | 65 74 79 70 65 73 5f 77 |ring(fil|etypes_w|
|000006b0| 69 6e 64 25 2c 33 2c 74 | 79 70 65 6e 75 6d 24 28 |ind%,3,t|ypenum$(|
|000006c0| 6e 75 6d 6f 66 74 79 70 | 65 73 25 29 29 0d 02 4e |numoftyp|es%))..N|
|000006d0| 3b f4 20 69 6e 66 6f 72 | 6d 20 75 73 65 72 20 6f |;. infor|m user o|
|000006e0| 66 20 6f 75 72 20 63 75 | 72 72 65 6e 74 20 76 65 |f our cu|rrent ve|
|000006f0| 72 73 69 6f 6e 20 6e 75 | 6d 62 65 72 20 69 6e 20 |rsion nu|mber in |
|00000700| 70 72 6f 67 69 6e 66 6f | 0d 02 58 2a f2 73 65 74 |proginfo|..X*.set|
|00000710| 5f 73 74 72 69 6e 67 28 | 70 72 6f 67 69 6e 66 6f |_string(|proginfo|
|00000720| 5f 77 69 6e 64 25 2c 34 | 2c 76 65 72 73 69 6f 6e |_wind%,4|,version|
|00000730| 24 29 0d 02 62 12 f2 72 | 65 61 64 5f 6d 6f 64 5f |$)..b..r|ead_mod_|
|00000740| 6c 69 73 74 0d 02 6c 14 | f2 63 72 65 61 74 65 5f |list..l.|.create_|
|00000750| 6d 6f 64 5f 77 69 6e 64 | 0d 02 76 05 e1 0d 02 80 |mod_wind|..v.....|
|00000760| 05 3a 0d 02 8a 14 dd f2 | 6c 6f 61 64 5f 74 65 6d |.:......|load_tem|
|00000770| 70 6c 61 74 65 73 0d 02 | 94 1d f4 20 74 65 73 74 |plates..|... test|
|00000780| 20 66 6f 72 20 74 65 6d | 70 6c 61 74 65 73 20 66 | for tem|plates f|
|00000790| 69 6c 65 0d 02 9e 24 46 | 25 3d 8e 28 22 3c 45 78 |ile...$F|%=.("<Ex|
|000007a0| 74 46 69 6c 65 72 24 44 | 69 72 3e 2e 54 65 6d 70 |tFiler$D|ir>.Temp|
|000007b0| 6c 61 74 65 73 22 29 0d | 02 a8 4a e7 20 46 25 3d |lates").|..J. F%=|
|000007c0| 30 20 8c 20 ff 28 22 45 | 52 52 4f 52 20 30 2c 43 |0 . .("E|RROR 0,C|
|000007d0| 61 6e 27 74 20 66 69 6e | 64 20 74 65 6d 70 6c 61 |an't fin|d templa|
|000007e0| 74 65 73 22 29 3a f2 63 | 6c 6f 73 65 5f 64 6f 77 |tes"):.c|lose_dow|
|000007f0| 6e 28 74 61 73 6b 5f 68 | 61 6e 64 6c 65 25 29 3a |n(task_h|andle%):|
|00000800| e0 0d 02 b2 16 74 65 6d | 70 6c 65 6e 25 3d a2 23 |.....tem|plen%=.#|
|00000810| 46 25 3a d9 23 46 25 0d | 02 bc 16 f4 20 64 69 6d |F%:.#F%.|.... dim|
|00000820| 65 6e 73 69 6f 6e 20 61 | 72 72 61 79 73 0d 02 c6 |ension a|rrays...|
|00000830| 1f de 20 42 25 20 74 65 | 6d 70 6c 65 6e 25 2c 69 |.. B% te|mplen%,i|
|00000840| 63 6e 25 20 74 65 6d 70 | 6c 65 6e 25 0d 02 d0 14 |cn% temp|len%....|
|00000850| f4 20 6c 6f 61 64 20 74 | 65 6d 70 6c 61 74 65 73 |. load t|emplates|
|00000860| 0d 02 da 35 c8 99 22 57 | 69 6d 70 5f 4f 70 65 6e |...5.."W|imp_Open|
|00000870| 54 65 6d 70 6c 61 74 65 | 22 2c 2c 22 3c 45 78 74 |Template|",,"<Ext|
|00000880| 46 69 6c 65 72 24 44 69 | 72 3e 2e 54 65 6d 70 6c |Filer$Di|r>.Templ|
|00000890| 61 74 65 73 22 0d 02 e4 | 49 c8 99 22 57 69 6d 70 |ates"...|I.."Wimp|
|000008a0| 5f 4c 6f 61 64 54 65 6d | 70 6c 61 74 65 22 2c 2c |_LoadTem|plate",,|
|000008b0| 42 25 2c 69 63 6e 25 2c | 69 63 6e 25 2b 74 65 6d |B%,icn%,|icn%+tem|
|000008c0| 70 6c 65 6e 25 2c 2d 31 | 2c 22 50 72 6f 67 49 6e |plen%,-1|,"ProgIn|
|000008d0| 66 6f 22 2c 30 20 b8 20 | 2c 2c 6e 65 78 74 0d 02 |fo",0 . |,,next..|
|000008e0| ee 2e c8 99 22 57 69 6d | 70 5f 43 72 65 61 74 65 |...."Wim|p_Create|
|000008f0| 57 69 6e 64 6f 77 22 2c | 2c 42 25 20 b8 20 70 72 |Window",|,B% . pr|
|00000900| 6f 67 69 6e 66 6f 5f 77 | 69 6e 64 25 0d 02 f8 49 |oginfo_w|ind%...I|
|00000910| c8 99 22 57 69 6d 70 5f | 4c 6f 61 64 54 65 6d 70 |.."Wimp_|LoadTemp|
|00000920| 6c 61 74 65 22 2c 2c 42 | 25 2c 6e 65 78 74 2c 69 |late",,B|%,next,i|
|00000930| 63 6e 25 2b 74 65 6d 70 | 6c 65 6e 25 2c 2d 31 2c |cn%+temp|len%,-1,|
|00000940| 22 46 69 6c 65 54 79 70 | 65 22 2c 30 20 b8 20 2c |"FileTyp|e",0 . ,|
|00000950| 2c 6e 65 78 74 0d 03 02 | 2f c8 99 22 57 69 6d 70 |,next...|/.."Wimp|
|00000960| 5f 43 72 65 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_CreateW|indow",,|
|00000970| 42 25 20 b8 20 66 69 6c | 65 74 79 70 65 73 5f 77 |B% . fil|etypes_w|
|00000980| 69 6e 64 25 0d 03 0c 48 | c8 99 22 57 69 6d 70 5f |ind%...H|.."Wimp_|
|00000990| 4c 6f 61 64 54 65 6d 70 | 6c 61 74 65 22 2c 2c 42 |LoadTemp|late",,B|
|000009a0| 25 2c 6e 65 78 74 2c 69 | 63 6e 25 2b 74 65 6d 70 |%,next,i|cn%+temp|
|000009b0| 6c 65 6e 25 2c 2d 31 2c | 22 50 72 69 6e 74 65 72 |len%,-1,|"Printer|
|000009c0| 22 2c 30 20 b8 20 2c 2c | 6e 65 78 74 0d 03 16 2d |",0 . ,,|next...-|
|000009d0| c8 99 22 57 69 6d 70 5f | 43 72 65 61 74 65 57 69 |.."Wimp_|CreateWi|
|000009e0| 6e 64 6f 77 22 2c 2c 42 | 25 20 b8 20 70 72 69 6e |ndow",,B|% . prin|
|000009f0| 74 65 72 5f 77 69 6e 64 | 25 0d 03 20 47 c8 99 22 |ter_wind|%.. G.."|
|00000a00| 57 69 6d 70 5f 4c 6f 61 | 64 54 65 6d 70 6c 61 74 |Wimp_Loa|dTemplat|
|00000a10| 65 22 2c 2c 42 25 2c 6e | 65 78 74 2c 69 63 6e 25 |e",,B%,n|ext,icn%|
|00000a20| 2b 74 65 6d 70 6c 65 6e | 25 2c 2d 31 2c 22 53 65 |+templen|%,-1,"Se|
|00000a30| 72 69 61 6c 22 2c 30 20 | b8 20 2c 2c 6e 65 78 74 |rial",0 |. ,,next|
|00000a40| 0d 03 2a 2c c8 99 22 57 | 69 6d 70 5f 43 72 65 61 |..*,.."W|imp_Crea|
|00000a50| 74 65 57 69 6e 64 6f 77 | 22 2c 2c 42 25 20 b8 20 |teWindow|",,B% . |
|00000a60| 73 65 72 69 61 6c 5f 77 | 69 6e 64 25 0d 03 34 4a |serial_w|ind%..4J|
|00000a70| c8 99 22 57 69 6d 70 5f | 4c 6f 61 64 54 65 6d 70 |.."Wimp_|LoadTemp|
|00000a80| 6c 61 74 65 22 2c 2c 42 | 25 2c 6e 65 78 74 2c 69 |late",,B|%,next,i|
|00000a90| 63 6e 25 2b 74 65 6d 70 | 6c 65 6e 25 2c 2d 31 2c |cn%+temp|len%,-1,|
|00000aa0| 22 44 69 72 65 63 74 6f | 72 79 22 2c 30 20 b8 20 |"Directo|ry",0 . |
|00000ab0| 2c 2c 6e 65 78 74 0d 03 | 3e 2f c8 99 22 57 69 6d |,,next..|>/.."Wim|
|00000ac0| 70 5f 43 72 65 61 74 65 | 57 69 6e 64 6f 77 22 2c |p_Create|Window",|
|00000ad0| 2c 42 25 20 b8 20 73 79 | 73 64 65 76 69 63 65 5f |,B% . sy|sdevice_|
|00000ae0| 77 69 6e 64 25 0d 03 48 | 4c c8 99 22 57 69 6d 70 |wind%..H|L.."Wimp|
|00000af0| 5f 4c 6f 61 64 54 65 6d | 70 6c 61 74 65 22 2c 2c |_LoadTem|plate",,|
|00000b00| 42 25 2c 6e 65 78 74 2c | 69 63 6e 25 2b 74 65 6d |B%,next,|icn%+tem|
|00000b10| 70 6c 65 6e 25 2c 2d 31 | 2c 22 53 61 76 65 53 70 |plen%,-1|,"SaveSp|
|00000b20| 72 69 74 65 73 22 2c 30 | 20 b8 20 2c 2c 6e 65 78 |rites",0| . ,,nex|
|00000b30| 74 0d 03 52 2d c8 99 22 | 57 69 6d 70 5f 43 72 65 |t..R-.."|Wimp_Cre|
|00000b40| 61 74 65 57 69 6e 64 6f | 77 22 2c 2c 42 25 20 b8 |ateWindo|w",,B% .|
|00000b50| 20 73 61 76 65 73 70 72 | 5f 77 69 6e 64 25 0d 03 | savespr|_wind%..|
|00000b60| 5c 48 c8 99 22 57 69 6d | 70 5f 4c 6f 61 64 54 65 |\H.."Wim|p_LoadTe|
|00000b70| 6d 70 6c 61 74 65 22 2c | 2c 42 25 2c 6e 65 78 74 |mplate",|,B%,next|
|00000b80| 2c 69 63 6e 25 2b 74 65 | 6d 70 6c 65 6e 25 2c 2d |,icn%+te|mplen%,-|
|00000b90| 31 2c 22 6d 6f 64 75 6c | 65 3a 22 2c 30 20 b8 20 |1,"modul|e:",0 . |
|00000ba0| 2c 2c 6e 65 78 74 0d 03 | 66 2e c8 99 22 57 69 6d |,,next..|f..."Wim|
|00000bb0| 70 5f 43 72 65 61 74 65 | 57 69 6e 64 6f 77 22 2c |p_Create|Window",|
|00000bc0| 2c 42 25 20 b8 20 6d 6f | 64 66 69 6c 65 72 5f 77 |,B% . mo|dfiler_w|
|00000bd0| 69 6e 64 25 0d 03 70 1a | c8 99 22 57 69 6d 70 5f |ind%..p.|.."Wimp_|
|00000be0| 43 6c 6f 73 65 54 65 6d | 70 6c 61 74 65 22 0d 03 |CloseTem|plate"..|
|00000bf0| 7a 05 e1 0d 03 84 05 3a | 0d 03 8e 12 dd f2 63 72 |z......:|......cr|
|00000c00| 65 61 74 65 5f 6d 65 6e | 75 73 0d 03 98 16 f4 20 |eate_men|us..... |
|00000c10| 64 69 6d 65 6e 73 69 6f | 6e 20 61 72 72 61 79 73 |dimensio|n arrays|
|00000c20| 0d 03 a2 44 de 20 6d 65 | 6e 75 62 6c 6f 63 6b 20 |...D. me|nublock |
|00000c30| 26 31 30 30 30 2c 6d 65 | 6e 75 62 6c 6f 63 6b 32 |&1000,me|nublock2|
|00000c40| 20 26 31 30 30 30 2c 6d | 65 6e 75 62 6c 6f 63 6b | &1000,m|enublock|
|00000c50| 33 20 26 46 46 2c 6d 65 | 6e 75 62 6c 6f 63 6b 34 |3 &FF,me|nublock4|
|00000c60| 20 26 46 46 0d 03 ac 14 | de 20 6d 65 6e 75 62 6c | &FF....|. menubl|
|00000c70| 6f 63 6b 35 20 26 46 46 | 0d 03 b6 12 f4 20 64 65 |ock5 &FF|..... de|
|00000c80| 66 69 6e 65 20 6d 65 6e | 75 73 0d 03 c0 94 6d 61 |fine men|us....ma|
|00000c90| 69 6e 5f 6d 65 6e 75 24 | 3d 22 45 78 74 46 69 6c |in_menu$|="ExtFil|
|00000ca0| 65 72 2c 32 30 30 7c 5b | 49 2c 70 72 6f 67 69 6e |er,200|[|I,progin|
|00000cb0| 66 6f 5f 77 69 6e 64 25 | 5d 49 6e 66 6f 2c 5b 49 |fo_wind%|]Info,[I|
|00000cc0| 2c 73 61 76 65 73 70 72 | 5f 77 69 6e 64 25 5d 53 |,savespr|_wind%]S|
|00000cd0| 79 73 20 53 70 72 69 74 | 65 73 2c 5b 53 2c 63 6d |ys Sprit|es,[S,cm|
|00000ce0| 6f 73 5f 6d 65 6e 75 24 | 5d 43 4d 4f 53 20 52 41 |os_menu$|]CMOS RA|
|00000cf0| 4d 2c 5b 53 2c 73 70 65 | 65 64 5f 6d 65 6e 75 24 |M,[S,spe|ed_menu$|
|00000d00| 5d 52 4f 4d 20 53 70 65 | 65 64 2c 46 69 6c 65 74 |]ROM Spe|ed,Filet|
|00000d10| 79 70 65 2c 48 65 6c 70 | 2c 51 75 69 74 22 0d 03 |ype,Help|,Quit"..|
|00000d20| ca 27 63 6d 6f 73 5f 6d | 65 6e 75 24 3d 22 43 4d |.'cmos_m|enu$="CM|
|00000d30| 4f 53 20 52 41 4d 2c 31 | 30 30 7c 4c 6f 61 64 2c |OS RAM,1|00|Load,|
|00000d40| 53 61 76 65 22 0d 03 d4 | 2f 73 70 65 65 64 5f 6d |Save"...|/speed_m|
|00000d50| 65 6e 75 24 3d 22 52 4f | 4d 20 53 70 65 65 64 2c |enu$="RO|M Speed,|
|00000d60| 31 30 30 7c 38 20 4d 48 | 7a 2c 5b 4f 4e 5d 34 20 |100|8 MH|z,[ON]4 |
|00000d70| 4d 48 7a 22 0d 03 de 31 | 6d 61 69 6e 5f 6d 65 6e |MHz"...1|main_men|
|00000d80| 75 25 3d a4 64 65 66 69 | 6e 65 5f 6d 65 6e 75 28 |u%=.defi|ne_menu(|
|00000d90| 6d 61 69 6e 5f 6d 65 6e | 75 24 2c 6d 65 6e 75 62 |main_men|u$,menub|
|00000da0| 6c 6f 63 6b 29 0d 03 e8 | 7f 6d 6f 64 75 6c 65 5f |lock)...|.module_|
|00000db0| 6d 65 6e 75 24 3d 22 27 | 27 2c 32 30 30 7c 5b 53 |menu$="'|',200|[S|
|00000dc0| 2c 64 69 73 70 6c 61 79 | 5f 6d 65 6e 75 24 5d 44 |,display|_menu$]D|
|00000dd0| 69 73 70 6c 61 79 2c 5b | 53 2c 6d 6f 64 6f 70 74 |isplay,[|S,modopt|
|00000de0| 73 5f 6d 65 6e 75 24 5d | 4d 6f 64 75 6c 65 20 27 |s_menu$]|Module '|
|00000df0| 27 2c 53 65 6c 65 63 74 | 20 61 6c 6c 2c 5b 53 48 |',Select| all,[SH|
|00000e00| 41 44 45 5d 43 6c 65 61 | 72 20 73 65 6c 65 63 74 |ADE]Clea|r select|
|00000e10| 69 6f 6e 2c 52 65 2d 72 | 65 61 64 20 6d 6f 64 75 |ion,Re-r|ead modu|
|00000e20| 6c 65 73 22 0d 03 f2 45 | 64 69 73 70 6c 61 79 5f |les"...E|display_|
|00000e30| 6d 65 6e 75 24 3d 22 44 | 69 73 70 6c 61 79 2c 32 |menu$="D|isplay,2|
|00000e40| 30 30 7c 4c 61 72 67 65 | 20 69 63 6f 6e 73 2c 53 |00|Large| icons,S|
|00000e50| 6d 61 6c 6c 20 69 63 6f | 6e 73 2c 5b 4f 4e 5d 46 |mall ico|ns,[ON]F|
|00000e60| 75 6c 6c 20 69 6e 66 6f | 22 0d 03 fc 38 6d 6f 64 |ull info|"...8mod|
|00000e70| 6f 70 74 73 5f 6d 65 6e | 75 24 3d 22 4d 6f 64 75 |opts_men|u$="Modu|
|00000e80| 6c 65 2c 31 35 30 7c 52 | 65 49 6e 69 74 2c 4b 69 |le,150|R|eInit,Ki|
|00000e90| 6c 6c 2c 55 6e 70 6c 75 | 67 2c 46 61 73 74 65 72 |ll,Unplu|g,Faster|
|00000ea0| 22 0d 04 06 36 6d 6f 64 | 75 6c 65 5f 6d 65 6e 75 |"...6mod|ule_menu|
|00000eb0| 25 3d a4 64 65 66 69 6e | 65 5f 6d 65 6e 75 28 6d |%=.defin|e_menu(m|
|00000ec0| 6f 64 75 6c 65 5f 6d 65 | 6e 75 24 2c 6d 65 6e 75 |odule_me|nu$,menu|
|00000ed0| 62 6c 6f 63 6b 32 29 0d | 04 10 39 63 73 64 5f 6d |block2).|..9csd_m|
|00000ee0| 65 6e 75 24 3d a4 62 75 | 69 6c 64 5f 66 73 5f 6d |enu$=.bu|ild_fs_m|
|00000ef0| 65 6e 75 28 22 43 53 44 | 20 46 53 20 69 73 3a 22 |enu("CSD| FS is:"|
|00000f00| 2c 22 61 64 66 73 22 2c | 63 73 64 5f 66 73 24 29 |,"adfs",|csd_fs$)|
|00000f10| 0d 04 1a 30 63 73 64 5f | 6d 65 6e 75 25 3d a4 64 |...0csd_|menu%=.d|
|00000f20| 65 66 69 6e 65 5f 6d 65 | 6e 75 28 63 73 64 5f 6d |efine_me|nu(csd_m|
|00000f30| 65 6e 75 24 2c 6d 65 6e | 75 62 6c 6f 63 6b 33 29 |enu$,men|ublock3)|
|00000f40| 0d 04 24 39 6c 69 62 5f | 6d 65 6e 75 24 3d a4 62 |..$9lib_|menu$=.b|
|00000f50| 75 69 6c 64 5f 66 73 5f | 6d 65 6e 75 28 22 4c 49 |uild_fs_|menu("LI|
|00000f60| 42 20 46 53 20 69 73 3a | 22 2c 22 61 64 66 73 22 |B FS is:|","adfs"|
|00000f70| 2c 6c 69 62 5f 66 73 24 | 29 0d 04 2e 30 6c 69 62 |,lib_fs$|)...0lib|
|00000f80| 5f 6d 65 6e 75 25 3d a4 | 64 65 66 69 6e 65 5f 6d |_menu%=.|define_m|
|00000f90| 65 6e 75 28 6c 69 62 5f | 6d 65 6e 75 24 2c 6d 65 |enu(lib_|menu$,me|
|00000fa0| 6e 75 62 6c 6f 63 6b 34 | 29 0d 04 38 39 75 72 64 |nublock4|)..89urd|
|00000fb0| 5f 6d 65 6e 75 24 3d a4 | 62 75 69 6c 64 5f 66 73 |_menu$=.|build_fs|
|00000fc0| 5f 6d 65 6e 75 28 22 55 | 52 44 20 46 53 20 69 73 |_menu("U|RD FS is|
|00000fd0| 3a 22 2c 22 61 64 66 73 | 22 2c 75 72 64 5f 66 73 |:","adfs|",urd_fs|
|00000fe0| 24 29 0d 04 42 30 75 72 | 64 5f 6d 65 6e 75 25 3d |$)..B0ur|d_menu%=|
|00000ff0| a4 64 65 66 69 6e 65 5f | 6d 65 6e 75 28 75 72 64 |.define_|menu(urd|
|00001000| 5f 6d 65 6e 75 24 2c 6d | 65 6e 75 62 6c 6f 63 6b |_menu$,m|enublock|
|00001010| 35 29 0d 04 4c 05 e1 0d | 04 56 05 3a 0d 04 60 10 |5)..L...|.V.:..`.|
|00001020| dd f2 72 65 63 65 69 76 | 65 28 62 29 0d 04 6a 0d |..receiv|e(b)..j.|
|00001030| c8 8e 20 62 21 31 36 20 | ca 0d 04 74 0f c9 20 30 |.. b!16 |...t.. 0|
|00001040| 3a 71 75 69 74 25 3d b9 | 0d 04 7e 14 c9 20 32 3a |:quit%=.|..~.. 2:|
|00001050| f2 64 61 74 61 73 61 76 | 65 28 62 29 0d 04 88 17 |.datasav|e(b)....|
|00001060| c9 20 33 3a f4 20 44 61 | 74 61 4c 6f 61 64 2f 4f |. 3:. Da|taLoad/O|
|00001070| 70 65 6e 0d 04 92 43 20 | 20 20 62 21 31 32 3d 62 |pen...C |  b!12=b|
|00001080| 21 38 3a 62 21 31 36 3d | 34 3a c8 99 22 57 69 6d |!8:b!16=|4:.."Wim|
|00001090| 70 5f 53 65 6e 64 4d 65 | 73 73 61 67 65 22 2c 31 |p_SendMe|ssage",1|
|000010a0| 37 2c 62 3a f4 20 53 65 | 6e 64 20 44 61 74 61 4c |7,b:. Se|nd DataL|
|000010b0| 6f 61 64 41 63 6b 0d 04 | 9c 25 20 20 20 66 69 6c |oadAck..|.%   fil|
|000010c0| 65 24 3d a4 73 74 72 69 | 6e 67 28 62 2b 34 34 29 |e$=.stri|ng(b+44)|
|000010d0| 3a f4 20 46 69 6c 65 6e | 61 6d 65 0d 04 a6 2e 20 |:. Filen|ame.... |
|000010e0| 20 20 f2 73 65 74 5f 66 | 69 6c 65 74 79 70 65 28 |  .set_f|iletype(|
|000010f0| 66 69 6c 65 24 29 3a f4 | 20 61 6e 64 20 66 69 6c |file$):.| and fil|
|00001100| 65 74 79 70 65 20 69 74 | 21 0d 04 b0 05 cb 0d 04 |etype it|!.......|
|00001110| ba 05 e1 0d 04 c4 05 3a | 0d 04 ce 15 dd f2 6d 6f |.......:|......mo|
|00001120| 75 73 65 5f 62 75 74 74 | 6f 6e 28 62 29 0d 04 d8 |use_butt|on(b)...|
|00001130| 28 6d 6f 75 73 65 78 25 | 3d 62 21 30 3a 6d 6f 75 |(mousex%|=b!0:mou|
|00001140| 73 65 79 25 3d 62 21 34 | 3a 62 75 74 74 6f 6e 73 |sey%=b!4|:buttons|
|00001150| 25 3d 62 21 38 0d 04 e2 | 1b 68 61 6e 64 6c 65 25 |%=b!8...|.handle%|
|00001160| 3d 62 21 31 32 3a 69 63 | 6f 6e 25 3d 62 21 31 36 |=b!12:ic|on%=b!16|
|00001170| 0d 04 ec 10 c8 8e 20 68 | 61 6e 64 6c 65 25 20 ca |...... h|andle% .|
|00001180| 0d 04 f6 09 c9 20 2d 32 | 3a 0d 05 00 4a 20 20 20 |..... -2|:...J   |
|00001190| e7 20 28 62 75 74 74 6f | 6e 73 25 20 80 20 35 29 |. (butto|ns% . 5)|
|000011a0| 20 80 20 69 63 6f 6e 25 | 3d 6d 79 5f 69 63 6f 6e | . icon%|=my_icon|
|000011b0| 25 20 8c 20 f2 6f 70 65 | 6e 5f 77 69 6e 64 6f 77 |% . .ope|n_window|
|000011c0| 28 73 79 73 64 65 76 69 | 63 65 5f 77 69 6e 64 25 |(sysdevi|ce_wind%|
|000011d0| 2c 30 29 0d 05 0a 53 20 | 20 20 e7 20 28 62 75 74 |,0)...S |  . (but|
|000011e0| 74 6f 6e 73 25 20 80 20 | 32 29 20 80 20 69 63 6f |tons% . |2) . ico|
|000011f0| 6e 25 3d 6d 79 5f 69 63 | 6f 6e 25 20 8c 20 f2 6f |n%=my_ic|on% . .o|
|00001200| 70 65 6e 5f 6d 65 6e 75 | 28 6d 61 69 6e 5f 6d 65 |pen_menu|(main_me|
|00001210| 6e 75 25 2c 6d 6f 75 73 | 65 78 25 2d 31 30 30 2c |nu%,mous|ex%-100,|
|00001220| 33 37 35 29 3a e1 0d 05 | 14 28 c9 20 66 69 6c 65 |375):...|.(. file|
|00001230| 74 79 70 65 73 5f 77 69 | 6e 64 25 3a f2 66 69 6c |types_wi|nd%:.fil|
|00001240| 65 74 79 70 65 5f 69 63 | 6f 6e 73 28 62 29 0d 05 |etype_ic|ons(b)..|
|00001250| 1e 25 c9 20 70 72 69 6e | 74 65 72 5f 77 69 6e 64 |.%. prin|ter_wind|
|00001260| 25 3a f2 70 72 69 6e 74 | 65 72 5f 69 63 6f 6e 73 |%:.print|er_icons|
|00001270| 28 62 29 0d 05 28 23 c9 | 20 73 65 72 69 61 6c 5f |(b)..(#.| serial_|
|00001280| 77 69 6e 64 25 3a f2 73 | 65 72 69 61 6c 5f 69 63 |wind%:.s|erial_ic|
|00001290| 6f 6e 73 28 62 29 0d 05 | 32 32 c9 20 73 79 73 64 |ons(b)..|22. sysd|
|000012a0| 65 76 69 63 65 5f 77 69 | 6e 64 25 3a f2 73 79 73 |evice_wi|nd%:.sys|
|000012b0| 64 65 76 69 63 65 5f 69 | 63 6f 6e 73 28 62 2c 62 |device_i|cons(b,b|
|000012c0| 75 74 74 6f 6e 73 25 29 | 0d 05 3c 14 c9 20 73 61 |uttons%)|..<.. sa|
|000012d0| 76 65 73 70 72 5f 77 69 | 6e 64 25 3a 0d 05 46 1b |vespr_wi|nd%:..F.|
|000012e0| 20 20 20 e7 20 28 62 75 | 74 74 6f 6e 73 25 20 80 |   . (bu|ttons% .|
|000012f0| 20 26 35 30 29 20 8c 0d | 05 50 12 20 20 20 20 20 | &50) ..|.P.     |
|00001300| 20 f2 64 72 61 67 62 6f | 78 0d 05 5a 08 20 20 20 | .dragbo|x..Z.   |
|00001310| cc 0d 05 64 2f 20 20 20 | 20 20 20 e7 20 69 63 6f |...d/   |   . ico|
|00001320| 6e 25 3d 32 20 80 20 28 | 62 75 74 74 6f 6e 73 25 |n%=2 . (|buttons%|
|00001330| 20 80 20 35 29 20 8c 20 | f2 6f 6b 5f 73 61 76 65 | . 5) . |.ok_save|
|00001340| 0d 05 6e 08 20 20 20 cd | 0d 05 78 30 c9 20 6d 6f |..n.   .|..x0. mo|
|00001350| 64 66 69 6c 65 72 5f 77 | 69 6e 64 25 3a f2 6d 6f |dfiler_w|ind%:.mo|
|00001360| 64 66 69 6c 65 72 5f 69 | 63 6f 6e 73 28 62 2c 62 |dfiler_i|cons(b,b|
|00001370| 21 38 2c 62 21 31 36 29 | 0d 05 82 05 cb 0d 05 8c |!8,b!16)|........|
|00001380| 05 e1 0d 05 96 05 3a 0d | 05 a0 17 dd f2 66 69 6c |......:.|.....fil|
|00001390| 65 74 79 70 65 5f 69 63 | 6f 6e 73 28 62 29 0d 05 |etype_ic|ons(b)..|
|000013a0| aa 11 6f 6c 64 25 3d 63 | 75 72 72 65 6e 74 25 0d |..old%=c|urrent%.|
|000013b0| 05 b4 0d c8 8e 20 62 21 | 31 36 20 ca 0d 05 be 2c |..... b!|16 ....,|
|000013c0| c9 20 30 3a f4 20 63 75 | 72 72 65 6e 74 20 66 69 |. 0:. cu|rrent fi|
|000013d0| 6c 65 74 79 70 65 20 69 | 63 6f 6e 20 2d 20 64 6f |letype i|con - do|
|000013e0| 20 6e 6f 74 68 69 6e 67 | 0d 05 c8 1d c9 20 31 3a | nothing|..... 1:|
|000013f0| f2 73 65 74 5f 66 69 6c | 65 74 79 70 65 5f 62 79 |.set_fil|etype_by|
|00001400| 5f 6e 61 6d 65 0d 05 d2 | 37 c9 20 32 3a 63 75 72 |_name...|7. 2:cur|
|00001410| 72 65 6e 74 25 2d 3d 31 | 3a e7 20 63 75 72 72 65 |rent%-=1|:. curre|
|00001420| 6e 74 25 3c 30 20 8c 20 | 63 75 72 72 65 6e 74 25 |nt%<0 . |current%|
|00001430| 3d 6e 75 6d 6f 66 74 79 | 70 65 73 25 0d 05 dc 1f |=numofty|pes%....|
|00001440| c9 20 33 3a f2 73 65 74 | 5f 66 69 6c 65 74 79 70 |. 3:.set|_filetyp|
|00001450| 65 5f 62 79 5f 6e 75 6d | 62 65 72 0d 05 e6 37 c9 |e_by_num|ber...7.|
|00001460| 20 34 3a 63 75 72 72 65 | 6e 74 25 2b 3d 31 3a e7 | 4:curre|nt%+=1:.|
|00001470| 20 63 75 72 72 65 6e 74 | 25 3e 6e 75 6d 6f 66 74 | current|%>numoft|
|00001480| 79 70 65 73 25 20 8c 20 | 63 75 72 72 65 6e 74 25 |ypes% . |current%|
|00001490| 3d 30 0d 05 f0 05 cb 0d | 05 fa 1c f2 63 68 61 6e |=0......|....chan|
|000014a0| 67 65 5f 66 69 6c 65 74 | 79 70 65 5f 73 65 74 74 |ge_filet|ype_sett|
|000014b0| 69 6e 67 0d 06 04 05 e1 | 0d 06 0e 05 3a 0d 06 18 |ing.....|....:...|
|000014c0| 1a dd f2 73 65 74 5f 66 | 69 6c 65 74 79 70 65 5f |...set_f|iletype_|
|000014d0| 62 79 5f 6e 61 6d 65 0d | 06 22 0f 6e 3d 2d 31 3a |by_name.|.".n=-1:|
|000014e0| f5 3a 6e 2b 3d 31 0d 06 | 2c 3f fd 20 74 79 70 65 |.:n+=1..|,?. type|
|000014f0| 24 28 6e 29 3d 24 28 a4 | 69 63 6f 6e 5f 61 64 64 |$(n)=$(.|icon_add|
|00001500| 72 28 66 69 6c 65 74 79 | 70 65 73 5f 77 69 6e 64 |r(filety|pes_wind|
|00001510| 25 2c 31 29 29 20 84 20 | 6e 3d 6e 75 6d 6f 66 74 |%,1)) . |n=numoft|
|00001520| 79 70 65 73 25 0d 06 36 | 50 e7 20 74 79 70 65 24 |ypes%..6|P. type$|
|00001530| 28 6e 29 3d 24 28 a4 69 | 63 6f 6e 5f 61 64 64 72 |(n)=$(.i|con_addr|
|00001540| 28 66 69 6c 65 74 79 70 | 65 73 5f 77 69 6e 64 25 |(filetyp|es_wind%|
|00001550| 2c 31 29 29 20 8c 20 63 | 75 72 72 65 6e 74 25 3d |,1)) . c|urrent%=|
|00001560| 6e 3a 63 75 72 6e 75 6d | 24 3d 74 79 70 65 6e 75 |n:curnum|$=typenu|
|00001570| 6d 24 28 6e 29 0d 06 40 | 05 e1 0d 06 4a 05 3a 0d |m$(n)..@|....J.:.|
|00001580| 06 54 1c dd f2 73 65 74 | 5f 66 69 6c 65 74 79 70 |.T...set|_filetyp|
|00001590| 65 5f 62 79 5f 6e 75 6d | 62 65 72 0d 06 5e 0f 6e |e_by_num|ber..^.n|
|000015a0| 3d 2d 31 3a f5 3a 6e 2b | 3d 31 0d 06 68 42 fd 20 |=-1:.:n+|=1..hB. |
|000015b0| 74 79 70 65 6e 75 6d 24 | 28 6e 29 3d 24 28 a4 69 |typenum$|(n)=$(.i|
|000015c0| 63 6f 6e 5f 61 64 64 72 | 28 66 69 6c 65 74 79 70 |con_addr|(filetyp|
|000015d0| 65 73 5f 77 69 6e 64 25 | 2c 33 29 29 20 84 20 6e |es_wind%|,3)) . n|
|000015e0| 3d 6e 75 6d 6f 66 74 79 | 70 65 73 25 0d 06 72 7c |=numofty|pes%..r||
|000015f0| e7 20 74 79 70 65 6e 75 | 6d 24 28 6e 29 3d 24 28 |. typenu|m$(n)=$(|
|00001600| a4 69 63 6f 6e 5f 61 64 | 64 72 28 66 69 6c 65 74 |.icon_ad|dr(filet|
|00001610| 79 70 65 73 5f 77 69 6e | 64 25 2c 33 29 29 20 8c |ypes_win|d%,3)) .|
|00001620| 20 63 75 72 72 65 6e 74 | 25 3d 6e 3a 63 75 72 6e | current|%=n:curn|
|00001630| 75 6d 24 3d 74 79 70 65 | 6e 75 6d 24 28 6e 29 20 |um$=type|num$(n) |
|00001640| 8b 20 63 75 72 72 65 6e | 74 25 3d 2d 31 3a 6f 6c |. curren|t%=-1:ol|
|00001650| 64 6e 75 6d 24 3d 63 75 | 72 6e 75 6d 24 3a 63 75 |dnum$=cu|rnum$:cu|
|00001660| 72 6e 75 6d 24 3d 22 22 | 0d 06 7c 05 e1 0d 06 86 |rnum$=""|..|.....|
|00001670| 05 3a 0d 06 90 1d dd f2 | 63 68 61 6e 67 65 5f 66 |.:......|change_f|
|00001680| 69 6c 65 74 79 70 65 5f | 73 65 74 74 69 6e 67 0d |iletype_|setting.|
|00001690| 06 9a 13 e7 20 63 75 72 | 72 65 6e 74 25 3d 2d 31 |.... cur|rent%=-1|
|000016a0| 20 8c 0d 06 a4 4c 20 20 | 20 e7 20 a9 24 28 a4 69 | ....L  | . .$(.i|
|000016b0| 63 6f 6e 5f 61 64 64 72 | 28 66 69 6c 65 74 79 70 |con_addr|(filetyp|
|000016c0| 65 73 5f 77 69 6e 64 25 | 2c 33 29 29 3c 33 20 8c |es_wind%|,3))<3 .|
|000016d0| 20 63 75 72 72 65 6e 74 | 25 3d 6f 6c 64 25 3a 63 | current|%=old%:c|
|000016e0| 75 72 6e 75 6d 24 3d 6f | 6c 64 6e 75 6d 24 0d 06 |urnum$=o|ldnum$..|
|000016f0| ae 3e 20 20 20 e7 20 63 | 75 72 6e 75 6d 24 3d 22 |.>   . c|urnum$="|
|00001700| 22 20 8c 20 63 75 72 6e | 75 6d 24 3d 24 28 a4 69 |" . curn|um$=$(.i|
|00001710| 63 6f 6e 5f 61 64 64 72 | 28 66 69 6c 65 74 79 70 |con_addr|(filetyp|
|00001720| 65 73 5f 77 69 6e 64 25 | 2c 33 29 29 0d 06 b8 2d |es_wind%|,3))...-|
|00001730| 20 20 20 f2 73 65 74 5f | 73 74 72 69 6e 67 28 66 |   .set_|string(f|
|00001740| 69 6c 65 74 79 70 65 73 | 5f 77 69 6e 64 25 2c 33 |iletypes|_wind%,3|
|00001750| 2c 63 75 72 6e 75 6d 24 | 29 0d 06 c2 05 cd 0d 06 |,curnum$|).......|
|00001760| cc 3f 21 62 6c 6f 63 6b | 3d 66 69 6c 65 74 79 70 |.?!block|=filetyp|
|00001770| 65 73 5f 77 69 6e 64 25 | 3a 62 6c 6f 63 6b 21 34 |es_wind%|:block!4|
|00001780| 3d 30 3a c8 99 22 57 69 | 6d 70 5f 44 65 6c 65 74 |=0:.."Wi|mp_Delet|
|00001790| 65 49 63 6f 6e 22 2c 2c | 62 6c 6f 63 6b 0d 06 d6 |eIcon",,|block...|
|000017a0| 17 24 66 74 69 63 6f 6e | 25 3d 22 66 69 6c 65 6d |.$fticon|%="filem|
|000017b0| 61 73 6b 22 0d 06 e0 48 | 6e 65 77 5f 69 63 6f 6e |ask"...H|new_icon|
|000017c0| 25 3d a4 69 63 6f 6e 28 | 66 69 6c 65 74 79 70 65 |%=.icon(|filetype|
|000017d0| 73 5f 77 69 6e 64 25 2c | 31 31 30 2c 2d 37 35 2c |s_wind%,|110,-75,|
|000017e0| 36 38 2c 36 38 2c 26 36 | 31 30 32 2c 22 22 2c 66 |68,68,&6|102,"",f|
|000017f0| 74 69 63 6f 6e 25 2c 2b | 31 2c 38 29 0d 06 ea 23 |ticon%,+|1,8)...#|
|00001800| f2 75 70 64 61 74 65 5f | 77 69 6e 64 6f 77 28 66 |.update_|window(f|
|00001810| 69 6c 65 74 79 70 65 73 | 5f 77 69 6e 64 25 29 0d |iletypes|_wind%).|
|00001820| 06 f4 3f 21 62 6c 6f 63 | 6b 3d 66 69 6c 65 74 79 |..?!bloc|k=filety|
|00001830| 70 65 73 5f 77 69 6e 64 | 25 3a 62 6c 6f 63 6b 21 |pes_wind|%:block!|
|00001840| 34 3d 30 3a c8 99 22 57 | 69 6d 70 5f 44 65 6c 65 |4=0:.."W|imp_Dele|
|00001850| 74 65 49 63 6f 6e 22 2c | 2c 62 6c 6f 63 6b 0d 06 |teIcon",|,block..|
|00001860| fe 13 e7 20 63 75 72 72 | 65 6e 74 25 3e 3d 30 20 |... curr|ent%>=0 |
|00001870| 8c 0d 07 08 35 20 20 20 | f2 73 65 74 5f 73 74 72 |....5   |.set_str|
|00001880| 69 6e 67 28 66 69 6c 65 | 74 79 70 65 73 5f 77 69 |ing(file|types_wi|
|00001890| 6e 64 25 2c 31 2c 74 79 | 70 65 24 28 63 75 72 72 |nd%,1,ty|pe$(curr|
|000018a0| 65 6e 74 25 29 29 0d 07 | 12 38 20 20 20 f2 73 65 |ent%))..|.8   .se|
|000018b0| 74 5f 73 74 72 69 6e 67 | 28 66 69 6c 65 74 79 70 |t_string|(filetyp|
|000018c0| 65 73 5f 77 69 6e 64 25 | 2c 33 2c 74 79 70 65 6e |es_wind%|,3,typen|
|000018d0| 75 6d 24 28 63 75 72 72 | 65 6e 74 25 29 29 0d 07 |um$(curr|ent%))..|
|000018e0| 1c 2d 20 20 20 24 66 74 | 69 63 6f 6e 25 3d 22 66 |.-   $ft|icon%="f|
|000018f0| 69 6c 65 5f 22 2b 74 79 | 70 65 6e 75 6d 24 28 63 |ile_"+ty|penum$(c|
|00001900| 75 72 72 65 6e 74 25 29 | 2b bd 30 0d 07 26 05 cc |urrent%)|+.0..&..|
|00001910| 0d 07 30 31 20 20 20 f2 | 73 65 74 5f 73 74 72 69 |..01   .|set_stri|
|00001920| 6e 67 28 66 69 6c 65 74 | 79 70 65 73 5f 77 69 6e |ng(filet|ypes_win|
|00001930| 64 25 2c 31 2c 22 3c 55 | 6e 6b 6e 6f 77 6e 3e 22 |d%,1,"<U|nknown>"|
|00001940| 29 0d 07 3a 1d 20 20 20 | 24 66 74 69 63 6f 6e 25 |)..:.   |$fticon%|
|00001950| 3d 22 66 69 6c 65 5f 78 | 78 78 22 2b bd 30 0d 07 |="file_x|xx"+.0..|
|00001960| 44 05 cd 0d 07 4e 48 6e | 65 77 5f 69 63 6f 6e 25 |D....NHn|ew_icon%|
|00001970| 3d a4 69 63 6f 6e 28 66 | 69 6c 65 74 79 70 65 73 |=.icon(f|iletypes|
|00001980| 5f 77 69 6e 64 25 2c 31 | 31 30 2c 2d 37 35 2c 36 |_wind%,1|10,-75,6|
|00001990| 38 2c 36 38 2c 26 36 31 | 30 32 2c 22 22 2c 66 74 |8,68,&61|02,"",ft|
|000019a0| 69 63 6f 6e 25 2c 2b 31 | 2c 38 29 0d 07 58 23 f2 |icon%,+1|,8)..X#.|
|000019b0| 75 70 64 61 74 65 5f 77 | 69 6e 64 6f 77 28 66 69 |update_w|indow(fi|
|000019c0| 6c 65 74 79 70 65 73 5f | 77 69 6e 64 25 29 0d 07 |letypes_|wind%)..|
|000019d0| 62 05 e1 0d 07 6c 05 3a | 0d 07 76 16 dd f2 70 72 |b....l.:|..v...pr|
|000019e0| 69 6e 74 65 72 5f 69 63 | 6f 6e 73 28 62 29 0d 07 |inter_ic|ons(b)..|
|000019f0| 80 0d c8 8e 20 62 21 31 | 36 20 ca 0d 07 8a 1e c9 |.... b!1|6 ......|
|00001a00| 20 30 3a ef 20 32 2c 31 | 2c 31 31 2c 33 3a f4 20 | 0:. 2,1|,11,3:. |
|00001a10| 46 6f 72 6d 20 46 65 65 | 64 0d 07 94 1e c9 20 31 |Form Fee|d..... 1|
|00001a20| 3a ef 20 32 2c 31 2c 31 | 32 2c 33 3a f4 20 4c 69 |:. 2,1,1|2,3:. Li|
|00001a30| 6e 65 20 46 65 65 64 0d | 07 9e 11 c9 20 32 3a f4 |ne Feed.|.... 2:.|
|00001a40| 20 6f 6e 20 6c 69 6e 65 | 0d 07 a8 0f c9 20 33 3a | on line|..... 3:|
|00001a50| f4 20 70 61 70 65 72 0d | 07 b2 05 cb 0d 07 bc 05 |. paper.|........|
|00001a60| e1 0d 07 c6 05 3a 0d 07 | d0 15 dd f2 73 65 72 69 |.....:..|....seri|
|00001a70| 61 6c 5f 69 63 6f 6e 73 | 28 62 29 0d 07 da 0d c8 |al_icons|(b).....|
|00001a80| 8e 20 62 21 31 36 20 ca | 0d 07 e4 9b c9 20 30 3a |. b!16 .|..... 0:|
|00001a90| 74 65 6d 70 3d bb 24 28 | a4 69 63 6f 6e 5f 61 64 |temp=.$(|.icon_ad|
|00001aa0| 64 72 28 73 65 72 69 61 | 6c 5f 77 69 6e 64 25 2c |dr(seria|l_wind%,|
|00001ab0| 30 29 29 3a e7 20 a4 62 | 61 75 64 28 74 65 6d 70 |0)):. .b|aud(temp|
|00001ac0| 29 20 8c 20 72 78 5f 62 | 61 75 64 3d 74 65 6d 70 |) . rx_b|aud=temp|
|00001ad0| 20 8b 20 f2 73 65 74 5f | 73 74 72 69 6e 67 28 73 | . .set_|string(s|
|00001ae0| 65 72 69 61 6c 5f 77 69 | 6e 64 25 2c 30 2c c3 72 |erial_wi|nd%,0,.r|
|00001af0| 78 5f 62 61 75 64 29 3a | 64 75 6d 6d 79 25 3d a4 |x_baud):|dummy%=.|
|00001b00| 64 69 61 6c 6f 67 28 22 | 49 6e 76 61 6c 69 64 20 |dialog("|Invalid |
|00001b10| 72 65 63 65 69 76 65 20 | 62 61 75 64 20 72 61 74 |receive |baud rat|
|00001b20| 65 22 29 0d 07 ee 9c c9 | 20 31 3a 74 65 6d 70 3d |e").....| 1:temp=|
|00001b30| bb 24 28 a4 69 63 6f 6e | 5f 61 64 64 72 28 73 65 |.$(.icon|_addr(se|
|00001b40| 72 69 61 6c 5f 77 69 6e | 64 25 2c 31 29 29 3a e7 |rial_win|d%,1)):.|
|00001b50| 20 a4 62 61 75 64 28 74 | 65 6d 70 29 20 8c 20 74 | .baud(t|emp) . t|
|00001b60| 78 5f 62 61 75 64 3d 74 | 65 6d 70 20 8b 20 f2 73 |x_baud=t|emp . .s|
|00001b70| 65 74 5f 73 74 72 69 6e | 67 28 73 65 72 69 61 6c |et_strin|g(serial|
|00001b80| 5f 77 69 6e 64 25 2c 31 | 2c c3 74 78 5f 62 61 75 |_wind%,1|,.tx_bau|
|00001b90| 64 29 3a 64 75 6d 6d 79 | 25 3d a4 64 69 61 6c 6f |d):dummy|%=.dialo|
|00001ba0| 67 28 22 49 6e 76 61 6c | 69 64 20 74 72 61 6e 73 |g("Inval|id trans|
|00001bb0| 6d 69 74 20 62 61 75 64 | 20 72 61 74 65 22 29 0d |mit baud| rate").|
|00001bc0| 07 f8 1a c9 20 32 2c 33 | 2c 34 3a 70 61 72 69 74 |.... 2,3|,4:parit|
|00001bd0| 79 25 3d 62 21 31 36 2d | 32 0d 08 02 1e c9 20 35 |y%=b!16-|2..... 5|
|00001be0| 2c 36 3a 77 6f 72 64 5f | 6c 65 6e 25 3d 37 2b 28 |,6:word_|len%=7+(|
|00001bf0| 62 21 31 36 2d 35 29 0d | 08 0c 1a c9 20 37 2c 38 |b!16-5).|.... 7,8|
|00001c00| 3a 73 74 6f 70 25 3d 31 | 2b 28 62 21 31 36 2d 37 |:stop%=1|+(b!16-7|
|00001c10| 29 0d 08 16 19 c9 20 39 | 2c 31 30 2c 31 31 3a 72 |)..... 9|,10,11:r|
|00001c20| 74 73 25 3d 62 21 31 36 | 2d 39 0d 08 20 1b c9 20 |ts%=b!16|-9.. .. |
|00001c30| 31 32 2c 31 33 3a 74 78 | 5f 69 6e 74 25 3d 62 21 |12,13:tx|_int%=b!|
|00001c40| 31 36 2d 31 32 0d 08 2a | 1b c9 20 31 34 2c 31 35 |16-12..*|.. 14,15|
|00001c50| 3a 72 78 5f 69 6e 74 25 | 3d 62 21 31 36 2d 31 34 |:rx_int%|=b!16-14|
|00001c60| 0d 08 34 05 cb 0d 08 3e | 4f f2 73 65 74 75 70 5f |..4....>|O.setup_|
|00001c70| 73 65 72 69 61 6c 28 72 | 78 5f 62 61 75 64 2c 74 |serial(r|x_baud,t|
|00001c80| 78 5f 62 61 75 64 2c 70 | 61 72 69 74 79 25 2c 77 |x_baud,p|arity%,w|
|00001c90| 6f 72 64 5f 6c 65 6e 25 | 2c 73 74 6f 70 25 2c 72 |ord_len%|,stop%,r|
|00001ca0| 74 73 25 2c 74 78 5f 69 | 6e 74 25 2c 72 78 5f 69 |ts%,tx_i|nt%,rx_i|
|00001cb0| 6e 74 25 29 0d 08 48 05 | e1 0d 08 52 05 3a 0d 08 |nt%)..H.|...R.:..|
|00001cc0| 5c 21 dd f2 73 79 73 64 | 65 76 69 63 65 5f 69 63 |\!..sysd|evice_ic|
|00001cd0| 6f 6e 73 28 62 2c 62 75 | 74 74 6f 6e 73 25 29 0d |ons(b,bu|ttons%).|
|00001ce0| 08 66 0d c8 8e 20 62 21 | 31 36 20 ca 0d 08 70 36 |.f... b!|16 ...p6|
|00001cf0| c9 20 30 3a e7 20 28 62 | 75 74 74 6f 6e 73 25 20 |. 0:. (b|uttons% |
|00001d00| 80 20 35 29 20 8c 20 ff | 28 22 46 69 6c 65 72 5f |. 5) . .|("Filer_|
|00001d10| 4f 70 65 6e 44 69 72 20 | 70 72 69 6e 74 65 72 3a |OpenDir |printer:|
|00001d20| 22 29 0d 08 7a 3b 20 20 | 20 20 20 20 20 e7 20 28 |")..z;  |     . (|
|00001d30| 62 75 74 74 6f 6e 73 25 | 20 80 20 32 29 20 8c 20 |buttons%| . 2) . |
|00001d40| f2 6f 70 65 6e 5f 77 69 | 6e 64 6f 77 28 70 72 69 |.open_wi|ndow(pri|
|00001d50| 6e 74 65 72 5f 77 69 6e | 64 25 2c 30 29 0d 08 84 |nter_win|d%,0)...|
|00001d60| 20 c9 20 31 3a ff 28 22 | 46 69 6c 65 72 5f 4f 70 | . 1:.("|Filer_Op|
|00001d70| 65 6e 44 69 72 20 6e 75 | 6c 6c 3a 22 29 0d 08 8e |enDir nu|ll:")...|
|00001d80| 35 c9 20 32 3a e7 20 28 | 62 75 74 74 6f 6e 73 25 |5. 2:. (|buttons%|
|00001d90| 20 80 20 35 29 20 8c 20 | ff 28 22 46 69 6c 65 72 | . 5) . |.("Filer|
|00001da0| 5f 4f 70 65 6e 44 69 72 | 20 73 65 72 69 61 6c 3a |_OpenDir| serial:|
|00001db0| 22 29 0d 08 98 3a 20 20 | 20 20 20 20 20 e7 20 28 |")...:  |     . (|
|00001dc0| 62 75 74 74 6f 6e 73 25 | 20 80 20 32 29 20 8c 20 |buttons%| . 2) . |
|00001dd0| f2 6f 70 65 6e 5f 77 69 | 6e 64 6f 77 28 73 65 72 |.open_wi|ndow(ser|
|00001de0| 69 61 6c 5f 77 69 6e 64 | 25 2c 30 29 0d 08 a2 1f |ial_wind|%,0)....|
|00001df0| c9 20 33 3a ff 28 22 46 | 69 6c 65 72 5f 4f 70 65 |. 3:.("F|iler_Ope|
|00001e00| 6e 44 69 72 20 76 64 75 | 3a 22 29 0d 08 ac 24 c9 |nDir vdu|:")...$.|
|00001e10| 20 34 3a ff 28 22 46 69 | 6c 65 72 5f 4f 70 65 6e | 4:.("Fi|ler_Open|
|00001e20| 44 69 72 20 6e 65 74 70 | 72 69 6e 74 3a 22 29 0d |Dir netp|rint:").|
|00001e30| 08 b6 22 c9 20 35 3a ff | 28 22 46 69 6c 65 72 5f |..". 5:.|("Filer_|
|00001e40| 4f 70 65 6e 44 69 72 20 | 64 65 73 6b 66 73 3a 22 |OpenDir |deskfs:"|
|00001e50| 29 0d 08 c0 3b c9 20 36 | 3a e7 20 28 62 75 74 74 |)...;. 6|:. (butt|
|00001e60| 6f 6e 73 25 20 80 20 35 | 29 20 8c 20 ff 28 22 46 |ons% . 5|) . .("F|
|00001e70| 69 6c 65 72 5f 4f 70 65 | 6e 44 69 72 20 22 2b 63 |iler_Ope|nDir "+c|
|00001e80| 73 64 5f 66 73 24 2b 22 | 3a 40 22 29 0d 08 ca ab |sd_fs$+"|:@")....|
|00001e90| 20 20 20 20 20 20 20 e7 | 20 28 62 75 74 74 6f 6e |       .| (button|
|00001ea0| 73 25 20 80 20 32 29 20 | 8c 20 63 73 64 5f 6d 65 |s% . 2) |. csd_me|
|00001eb0| 6e 75 24 3d a4 62 75 69 | 6c 64 5f 66 73 5f 6d 65 |nu$=.bui|ld_fs_me|
|00001ec0| 6e 75 28 22 43 53 44 20 | 46 53 20 69 73 3a 22 2c |nu("CSD |FS is:",|
|00001ed0| 63 73 64 5f 66 73 24 2c | 63 73 64 5f 66 73 24 29 |csd_fs$,|csd_fs$)|
|00001ee0| 3a 63 73 64 5f 6d 65 6e | 75 25 3d a4 64 65 66 69 |:csd_men|u%=.defi|
|00001ef0| 6e 65 5f 6d 65 6e 75 28 | 63 73 64 5f 6d 65 6e 75 |ne_menu(|csd_menu|
|00001f00| 24 2c 6d 65 6e 75 62 6c | 6f 63 6b 33 29 3a f2 6f |$,menubl|ock3):.o|
|00001f10| 70 65 6e 5f 6d 65 6e 75 | 28 63 73 64 5f 6d 65 6e |pen_menu|(csd_men|
|00001f20| 75 25 2c 6d 6f 75 73 65 | 78 25 2d 31 30 30 2c 6d |u%,mouse|x%-100,m|
|00001f30| 6f 75 73 65 79 25 29 0d | 08 d4 3b c9 20 37 3a e7 |ousey%).|..;. 7:.|
|00001f40| 20 28 62 75 74 74 6f 6e | 73 25 20 80 20 35 29 20 | (button|s% . 5) |
|00001f50| 8c 20 ff 28 22 46 69 6c | 65 72 5f 4f 70 65 6e 44 |. .("Fil|er_OpenD|
|00001f60| 69 72 20 22 2b 6c 69 62 | 5f 66 73 24 2b 22 3a 25 |ir "+lib|_fs$+":%|
|00001f70| 22 29 0d 08 de ab 20 20 | 20 20 20 20 20 e7 20 28 |")....  |     . (|
|00001f80| 62 75 74 74 6f 6e 73 25 | 20 80 20 32 29 20 8c 20 |buttons%| . 2) . |
|00001f90| 6c 69 62 5f 6d 65 6e 75 | 24 3d a4 62 75 69 6c 64 |lib_menu|$=.build|
|00001fa0| 5f 66 73 5f 6d 65 6e 75 | 28 22 4c 49 42 20 46 53 |_fs_menu|("LIB FS|
|00001fb0| 20 69 73 3a 22 2c 6c 69 | 62 5f 66 73 24 2c 6c 69 | is:",li|b_fs$,li|
|00001fc0| 62 5f 66 73 24 29 3a 6c | 69 62 5f 6d 65 6e 75 25 |b_fs$):l|ib_menu%|
|00001fd0| 3d a4 64 65 66 69 6e 65 | 5f 6d 65 6e 75 28 6c 69 |=.define|_menu(li|
|00001fe0| 62 5f 6d 65 6e 75 24 2c | 6d 65 6e 75 62 6c 6f 63 |b_menu$,|menubloc|
|00001ff0| 6b 34 29 3a f2 6f 70 65 | 6e 5f 6d 65 6e 75 28 6c |k4):.ope|n_menu(l|
|00002000| 69 62 5f 6d 65 6e 75 25 | 2c 6d 6f 75 73 65 78 25 |ib_menu%|,mousex%|
|00002010| 2d 31 30 30 2c 6d 6f 75 | 73 65 79 25 29 0d 08 e8 |-100,mou|sey%)...|
|00002020| 3b c9 20 38 3a e7 20 28 | 62 75 74 74 6f 6e 73 25 |;. 8:. (|buttons%|
|00002030| 20 80 20 35 29 20 8c 20 | ff 28 22 46 69 6c 65 72 | . 5) . |.("Filer|
|00002040| 5f 4f 70 65 6e 44 69 72 | 20 22 2b 75 72 64 5f 66 |_OpenDir| "+urd_f|
|00002050| 73 24 2b 22 3a 26 22 29 | 0d 08 f2 ab 20 20 20 20 |s$+":&")|....    |
|00002060| 20 20 20 e7 20 28 62 75 | 74 74 6f 6e 73 25 20 80 |   . (bu|ttons% .|
|00002070| 20 32 29 20 8c 20 75 72 | 64 5f 6d 65 6e 75 24 3d | 2) . ur|d_menu$=|
|00002080| a4 62 75 69 6c 64 5f 66 | 73 5f 6d 65 6e 75 28 22 |.build_f|s_menu("|
|00002090| 55 52 44 20 46 53 20 69 | 73 3a 22 2c 75 72 64 5f |URD FS i|s:",urd_|
|000020a0| 66 73 24 2c 75 72 64 5f | 66 73 24 29 3a 75 72 64 |fs$,urd_|fs$):urd|
|000020b0| 5f 6d 65 6e 75 25 3d a4 | 64 65 66 69 6e 65 5f 6d |_menu%=.|define_m|
|000020c0| 65 6e 75 28 75 72 64 5f | 6d 65 6e 75 24 2c 6d 65 |enu(urd_|menu$,me|
|000020d0| 6e 75 62 6c 6f 63 6b 35 | 29 3a f2 6f 70 65 6e 5f |nublock5|):.open_|
|000020e0| 6d 65 6e 75 28 75 72 64 | 5f 6d 65 6e 75 25 2c 6d |menu(urd|_menu%,m|
|000020f0| 6f 75 73 65 78 25 2d 31 | 30 30 2c 6d 6f 75 73 65 |ousex%-1|00,mouse|
|00002100| 79 25 29 0d 08 fc 26 c9 | 20 39 3a f2 6f 70 65 6e |y%)...&.| 9:.open|
|00002110| 5f 77 69 6e 64 6f 77 28 | 6d 6f 64 66 69 6c 65 72 |_window(|modfiler|
|00002120| 5f 77 69 6e 64 25 2c 30 | 29 0d 09 06 05 cb 0d 09 |_wind%,0|).......|
|00002130| 10 05 e1 0d 09 1a 05 3a | 0d 09 24 20 dd f2 6d 6f |.......:|..$ ..mo|
|00002140| 64 66 69 6c 65 72 5f 69 | 63 6f 6e 73 28 62 2c 62 |dfiler_i|cons(b,b|
|00002150| 75 74 74 25 2c 69 25 29 | 0d 09 2e 1b e7 20 28 62 |utt%,i%)|..... (b|
|00002160| 75 74 74 25 20 80 20 34 | 29 20 80 20 69 25 3e 3d |utt% . 4|) . i%>=|
|00002170| 30 20 8c 0d 09 38 14 20 | 20 20 73 65 6c 65 63 74 |0 ...8. |  select|
|00002180| 65 64 25 28 29 3d a3 0d | 09 42 18 20 20 20 73 65 |ed%()=..|.B.   se|
|00002190| 6c 65 63 74 65 64 25 28 | 69 25 2b 31 29 3d b9 0d |lected%(|i%+1)=..|
|000021a0| 09 4c 05 cd 0d 09 56 13 | e7 20 28 62 75 74 74 25 |.L....V.|. (butt%|
|000021b0| 20 80 20 32 29 20 8c 0d | 09 60 2f 20 20 20 e7 20 | . 2) ..|.`/   . |
|000021c0| 6e 75 6d 5f 73 65 6c 65 | 63 74 65 64 25 3e 30 20 |num_sele|cted%>0 |
|000021d0| 80 20 69 25 3c 30 20 8c | 20 73 65 6c 65 63 74 65 |. i%<0 .| selecte|
|000021e0| 64 25 28 29 3d a3 0d 09 | 6a 47 20 20 20 e7 20 69 |d%()=...|jG   . i|
|000021f0| 25 3e 3d 30 20 8c 20 e7 | 20 73 65 6c 65 63 74 65 |%>=0 . .| selecte|
|00002200| 64 25 28 69 25 2b 31 29 | 3c 3e b9 20 8c 20 73 65 |d%(i%+1)|<>. . se|
|00002210| 6c 65 63 74 65 64 25 28 | 29 3d a3 3a 73 65 6c 65 |lected%(|)=.:sele|
|00002220| 63 74 65 64 25 28 69 25 | 2b 31 29 3d b9 0d 09 74 |cted%(i%|+1)=...t|
|00002230| 05 cd 0d 09 7e 1b e7 20 | 28 62 75 74 74 25 20 80 |....~.. |(butt% .|
|00002240| 20 31 29 20 80 20 69 25 | 3e 3d 30 20 8c 0d 09 88 | 1) . i%|>=0 ....|
|00002250| 42 20 20 20 e7 20 73 65 | 6c 65 63 74 65 64 25 28 |B   . se|lected%(|
|00002260| 69 25 2b 31 29 3d a3 20 | 8c 20 73 65 6c 65 63 74 |i%+1)=. |. select|
|00002270| 65 64 25 28 69 25 2b 31 | 29 3d b9 20 8b 20 73 65 |ed%(i%+1|)=. . se|
|00002280| 6c 65 63 74 65 64 25 28 | 69 25 2b 31 29 3d a3 0d |lected%(|i%+1)=..|
|00002290| 09 92 05 cd 0d 09 9c 13 | 6e 75 6d 5f 73 65 6c 65 |........|num_sele|
|000022a0| 63 74 65 64 25 3d 30 0d | 09 a6 1b e3 20 6e 3d 31 |cted%=0.|.... n=1|
|000022b0| 20 b8 20 6e 75 6d 5f 6f | 66 5f 6d 6f 64 75 6c 65 | . num_o|f_module|
|000022c0| 73 25 0d 09 b0 4b e7 20 | 73 65 6c 65 63 74 65 64 |s%...K. |selected|
|000022d0| 25 28 6e 29 20 8c 20 6e | 75 6d 5f 73 65 6c 65 63 |%(n) . n|um_selec|
|000022e0| 74 65 64 25 2b 3d 31 3a | e7 20 6e 75 6d 5f 73 65 |ted%+=1:|. num_se|
|000022f0| 6c 65 63 74 65 64 25 3d | 31 20 8c 20 66 69 72 73 |lected%=|1 . firs|
|00002300| 74 5f 73 65 6c 65 63 74 | 65 64 25 3d 6e 0d 09 ba |t_select|ed%=n...|
|00002310| 05 ed 0d 09 c4 29 e7 20 | 6e 75 6d 5f 73 65 6c 65 |.....). |num_sele|
|00002320| 63 74 65 64 25 3d 30 20 | 8c 20 66 69 72 73 74 5f |cted%=0 |. first_|
|00002330| 73 65 6c 65 63 74 65 64 | 25 3d 30 0d 09 ce 13 e7 |selected|%=0.....|
|00002340| 20 28 62 75 74 74 25 20 | 80 20 32 29 20 8c 0d 09 | (butt% |. 2) ...|
|00002350| d8 3c 20 20 20 6d 6f 64 | 75 6c 65 5f 6d 65 6e 75 |.<   mod|ule_menu|
|00002360| 24 3d 22 45 78 74 46 69 | 6c 65 72 2c 32 30 30 7c |$="ExtFi|ler,200||
|00002370| 5b 53 2c 64 69 73 70 6c | 61 79 5f 6d 65 6e 75 24 |[S,displ|ay_menu$|
|00002380| 5d 44 69 73 70 6c 61 79 | 2c 22 0d 09 e2 19 20 20 |]Display|,"....  |
|00002390| 20 c8 8e 20 6e 75 6d 5f | 73 65 6c 65 63 74 65 64 | .. num_|selected|
|000023a0| 25 20 ca 0d 09 ec 72 20 | 20 20 20 20 20 c9 20 30 |% ....r |     . 0|
|000023b0| 3a 6d 6f 64 75 6c 65 5f | 6d 65 6e 75 24 2b 3d 22 |:module_|menu$+="|
|000023c0| 5b 53 2c 6d 6f 64 6f 70 | 74 73 5f 6d 65 6e 75 24 |[S,modop|ts_menu$|
|000023d0| 5d 52 4d 20 27 27 2c 53 | 65 6c 65 63 74 20 61 6c |]RM '',S|elect al|
|000023e0| 6c 2c 5b 53 48 41 44 45 | 5d 43 6c 65 61 72 20 73 |l,[SHADE|]Clear s|
|000023f0| 65 6c 65 63 74 69 6f 6e | 22 3a 6d 6f 64 6f 70 74 |election|":modopt|
|00002400| 73 5f 6d 65 6e 75 24 3d | 22 4d 6f 64 75 6c 65 2c |s_menu$=|"Module,|
|00002410| 31 35 30 7c 22 0d 09 f6 | 80 20 20 20 20 20 20 c9 |150|"...|.      .|
|00002420| 20 31 3a 6d 6f 64 75 6c | 65 5f 6d 65 6e 75 24 2b | 1:modul|e_menu$+|
|00002430| 3d 22 5b 53 2c 6d 6f 64 | 6f 70 74 73 5f 6d 65 6e |="[S,mod|opts_men|
|00002440| 75 24 5d 52 4d 20 27 22 | 2b c0 6d 6f 64 75 6c 65 |u$]RM '"|+.module|
|00002450| 24 28 69 25 2b 31 29 2c | 36 29 2b 22 27 2c 53 65 |$(i%+1),|6)+"',Se|
|00002460| 6c 65 63 74 20 61 6c 6c | 2c 43 6c 65 61 72 20 73 |lect all|,Clear s|
|00002470| 65 6c 65 63 74 69 6f 6e | 22 3a 6d 6f 64 6f 70 74 |election|":modopt|
|00002480| 73 5f 6d 65 6e 75 24 3d | 22 4d 6f 64 75 6c 65 2c |s_menu$=|"Module,|
|00002490| 31 35 30 7c 22 0d 0a 00 | 70 20 20 20 20 20 20 7f |150|"...|p      .|
|000024a0| 3a 6d 6f 64 75 6c 65 5f | 6d 65 6e 75 24 2b 3d 22 |:module_|menu$+="|
|000024b0| 5b 53 2c 6d 6f 64 6f 70 | 74 73 5f 6d 65 6e 75 24 |[S,modop|ts_menu$|
|000024c0| 5d 53 65 6c 65 63 74 69 | 6f 6e 2c 53 65 6c 65 63 |]Selecti|on,Selec|
|000024d0| 74 20 61 6c 6c 2c 43 6c | 65 61 72 20 73 65 6c 65 |t all,Cl|ear sele|
|000024e0| 63 74 69 6f 6e 22 3a 6d | 6f 64 6f 70 74 73 5f 6d |ction":m|odopts_m|
|000024f0| 65 6e 75 24 3d 22 53 65 | 6c 65 63 74 69 6f 6e 2c |enu$="Se|lection,|
|00002500| 31 35 30 7c 22 0d 0a 0a | 08 20 20 20 cb 0d 0a 14 |150|"...|.   ....|
|00002510| 27 20 20 20 6d 6f 64 75 | 6c 65 5f 6d 65 6e 75 24 |'   modu|le_menu$|
|00002520| 2b 3d 22 2c 52 65 2d 72 | 65 61 64 20 6d 6f 64 75 |+=",Re-r|ead modu|
|00002530| 6c 65 73 22 0d 0a 1e 9c | 20 20 20 e7 20 66 69 72 |les"....|   . fir|
|00002540| 73 74 5f 73 65 6c 65 63 | 74 65 64 25 3d 30 20 8c |st_selec|ted%=0 .|
|00002550| 20 6d 6f 64 6f 70 74 73 | 5f 6d 65 6e 75 24 2b 3d | modopts|_menu$+=|
|00002560| 22 5b 53 48 41 44 45 5d | 52 65 49 6e 69 74 2c 5b |"[SHADE]|ReInit,[|
|00002570| 53 48 41 44 45 5d 4b 69 | 6c 6c 2c 5b 53 48 41 44 |SHADE]Ki|ll,[SHAD|
|00002580| 45 5d 55 6e 70 6c 75 67 | 2c 5b 53 48 41 44 45 5d |E]Unplug|,[SHADE]|
|00002590| 46 61 73 74 65 72 22 20 | 8b 20 6d 6f 64 6f 70 74 |Faster" |. modopt|
|000025a0| 73 5f 6d 65 6e 75 24 2b | 3d a4 6d 6f 64 6f 70 74 |s_menu$+|=.modopt|
|000025b0| 73 5f 6d 65 6e 75 28 73 | 74 61 74 75 73 25 28 66 |s_menu(s|tatus%(f|
|000025c0| 69 72 73 74 5f 73 65 6c | 65 63 74 65 64 25 29 29 |irst_sel|ected%))|
|000025d0| 0d 0a 28 39 20 20 20 6d | 6f 64 75 6c 65 5f 6d 65 |..(9   m|odule_me|
|000025e0| 6e 75 25 3d a4 64 65 66 | 69 6e 65 5f 6d 65 6e 75 |nu%=.def|ine_menu|
|000025f0| 28 6d 6f 64 75 6c 65 5f | 6d 65 6e 75 24 2c 6d 65 |(module_|menu$,me|
|00002600| 6e 75 62 6c 6f 63 6b 32 | 29 0d 0a 32 17 20 20 20 |nublock2|)..2.   |
|00002610| f2 63 72 65 61 74 65 5f | 6d 6f 64 5f 77 69 6e 64 |.create_|mod_wind|
|00002620| 0d 0a 3c 33 20 20 20 f2 | 6f 70 65 6e 5f 6d 65 6e |..<3   .|open_men|
|00002630| 75 28 6d 6f 64 75 6c 65 | 5f 6d 65 6e 75 25 2c 6d |u(module|_menu%,m|
|00002640| 6f 75 73 65 78 25 2d 31 | 30 30 2c 6d 6f 75 73 65 |ousex%-1|00,mouse|
|00002650| 79 25 29 0d 0a 46 05 cc | 0d 0a 50 14 f2 63 72 65 |y%)..F..|..P..cre|
|00002660| 61 74 65 5f 6d 6f 64 5f | 77 69 6e 64 0d 0a 5a 05 |ate_mod_|wind..Z.|
|00002670| cd 0d 0a 64 05 e1 0d 0a | 6e 05 3a 0d 0a 78 15 dd |...d....|n.:..x..|
|00002680| a4 6d 6f 64 6f 70 74 73 | 5f 6d 65 6e 75 28 6e 29 |.modopts|_menu(n)|
|00002690| 0d 0a 82 0b ea 20 6d 65 | 6e 75 24 0d 0a 8c 13 6d |..... me|nu$....m|
|000026a0| 65 6e 75 24 3d 22 52 65 | 49 6e 69 74 2c 22 0d 0a |enu$="Re|Init,"..|
|000026b0| 96 2a e7 20 28 6e 20 80 | 31 29 3d 31 20 84 20 28 |.*. (n .|1)=1 . (|
|000026c0| 6e 20 80 32 29 3d 32 20 | 6d 65 6e 75 24 2b 3d 22 |n .2)=2 |menu$+="|
|000026d0| 5b 53 48 41 44 45 5d 22 | 0d 0a a0 12 6d 65 6e 75 |[SHADE]"|....menu|
|000026e0| 24 2b 3d 22 4b 69 6c 6c | 2c 22 0d 0a aa 1d e7 20 |$+="Kill|,"..... |
|000026f0| 6e 3c 3e 30 20 8c 20 6d | 65 6e 75 24 2b 3d 22 5b |n<>0 . m|enu$+="[|
|00002700| 53 48 41 44 45 5d 22 0d | 0a b4 14 6d 65 6e 75 24 |SHADE]".|...menu$|
|00002710| 2b 3d 22 55 6e 70 6c 75 | 67 2c 22 0d 0a be 1d e7 |+="Unplu|g,".....|
|00002720| 20 6e 3c 3e 30 20 8c 20 | 6d 65 6e 75 24 2b 3d 22 | n<>0 . |menu$+="|
|00002730| 5b 53 48 41 44 45 5d 22 | 0d 0a c8 13 6d 65 6e 75 |[SHADE]"|....menu|
|00002740| 24 2b 3d 22 46 61 73 74 | 65 72 22 0d 0a d2 0a 3d |$+="Fast|er"....=|
|00002750| 6d 65 6e 75 24 0d 0a dc | 05 3a 0d 0a e6 14 dd f2 |menu$...|.:......|
|00002760| 6d 65 6e 75 5f 73 65 6c | 65 63 74 28 62 29 0d 0a |menu_sel|ect(b)..|
|00002770| f0 22 c8 99 22 57 69 6d | 70 5f 47 65 74 50 6f 69 |.".."Wim|p_GetPoi|
|00002780| 6e 74 65 72 49 6e 66 6f | 22 2c 2c 62 6c 6f 63 6b |nterInfo|",,block|
|00002790| 0d 0a fa 34 6d 6f 75 73 | 65 78 25 3d 62 6c 6f 63 |...4mous|ex%=bloc|
|000027a0| 6b 21 30 3a 6d 6f 75 73 | 65 79 25 3d 62 6c 6f 63 |k!0:mous|ey%=bloc|
|000027b0| 6b 21 34 3a 62 75 74 74 | 6f 6e 73 25 3d 62 6c 6f |k!4:butt|ons%=blo|
|000027c0| 63 6b 21 38 0d 0b 04 16 | c8 8e 20 63 75 72 72 65 |ck!8....|.. curre|
|000027d0| 6e 74 5f 6d 65 6e 75 25 | 20 ca 0d 0b 0e 25 c9 20 |nt_menu%| ....%. |
|000027e0| 6d 61 69 6e 5f 6d 65 6e | 75 25 3a f2 6d 61 69 6e |main_men|u%:.main|
|000027f0| 5f 6d 65 6e 75 5f 73 65 | 6c 65 63 74 28 62 29 0d |_menu_se|lect(b).|
|00002800| 0b 18 23 c9 20 63 73 64 | 5f 6d 65 6e 75 25 3a f2 |..#. csd|_menu%:.|
|00002810| 63 73 64 5f 6d 65 6e 75 | 5f 73 65 6c 65 63 74 28 |csd_menu|_select(|
|00002820| 62 29 0d 0b 22 23 c9 20 | 6c 69 62 5f 6d 65 6e 75 |b).."#. |lib_menu|
|00002830| 25 3a f2 6c 69 62 5f 6d | 65 6e 75 5f 73 65 6c 65 |%:.lib_m|enu_sele|
|00002840| 63 74 28 62 29 0d 0b 2c | 23 c9 20 75 72 64 5f 6d |ct(b)..,|#. urd_m|
|00002850| 65 6e 75 25 3a f2 75 72 | 64 5f 6d 65 6e 75 5f 73 |enu%:.ur|d_menu_s|
|00002860| 65 6c 65 63 74 28 62 29 | 0d 0b 36 2b c9 20 6d 6f |elect(b)|..6+. mo|
|00002870| 64 75 6c 65 5f 6d 65 6e | 75 25 3a f2 6d 6f 64 66 |dule_men|u%:.modf|
|00002880| 69 6c 65 72 5f 6d 65 6e | 75 5f 73 65 6c 65 63 74 |iler_men|u_select|
|00002890| 28 62 29 0d 0b 40 05 cb | 0d 0b 4a 62 e7 20 28 62 |(b)..@..|..Jb. (b|
|000028a0| 75 74 74 6f 6e 73 25 3d | 31 20 80 20 ac 20 71 75 |uttons%=|1 . . qu|
|000028b0| 69 74 25 29 20 8c 20 f2 | 6f 70 65 6e 5f 6d 65 6e |it%) . .|open_men|
|000028c0| 75 28 63 75 72 72 65 6e | 74 5f 6d 65 6e 75 25 2c |u(curren|t_menu%,|
|000028d0| 63 75 72 72 5f 6d 65 6e | 75 78 25 2c 63 75 72 72 |curr_men|ux%,curr|
|000028e0| 5f 6d 65 6e 75 79 25 29 | 20 8b 20 63 75 72 72 65 |_menuy%)| . curre|
|000028f0| 6e 74 5f 6d 65 6e 75 25 | 3d 30 0d 0b 54 05 e1 0d |nt_menu%|=0..T...|
|00002900| 0b 5e 05 3a 0d 0b 68 19 | dd f2 6d 61 69 6e 5f 6d |.^.:..h.|..main_m|
|00002910| 65 6e 75 5f 73 65 6c 65 | 63 74 28 62 29 0d 0b 72 |enu_sele|ct(b)..r|
|00002920| 0c c8 8e 20 62 21 30 20 | ca 0d 0b 7c 12 c9 20 30 |... b!0 |...|.. 0|
|00002930| 3a f4 20 69 6e 66 6f 20 | 62 6f 78 0d 0b 86 16 c9 |:. info |box.....|
|00002940| 20 31 3a f4 20 73 61 76 | 65 20 73 70 72 69 74 65 | 1:. sav|e sprite|
|00002950| 73 0d 0b 90 15 c9 20 32 | 3a f2 63 6d 6f 73 5f 6d |s..... 2|:.cmos_m|
|00002960| 65 6e 75 28 62 29 0d 0b | 9a 16 c9 20 33 3a f2 73 |enu(b)..|... 3:.s|
|00002970| 70 65 65 64 5f 6d 65 6e | 75 28 62 29 0d 0b a4 27 |peed_men|u(b)...'|
|00002980| c9 20 34 3a f2 6f 70 65 | 6e 5f 77 69 6e 64 6f 77 |. 4:.ope|n_window|
|00002990| 28 66 69 6c 65 74 79 70 | 65 73 5f 77 69 6e 64 25 |(filetyp|es_wind%|
|000029a0| 2c 30 29 0d 0b ae 31 c9 | 20 35 3a c8 99 22 57 69 |,0)...1.| 5:.."Wi|
|000029b0| 6d 70 5f 53 74 61 72 74 | 54 61 73 6b 22 2c 22 3c |mp_Start|Task","<|
|000029c0| 45 78 74 46 69 6c 65 72 | 24 44 69 72 3e 2e 21 48 |ExtFiler|$Dir>.!H|
|000029d0| 65 6c 70 22 0d 0b b8 0f | c9 20 36 3a 71 75 69 74 |elp"....|. 6:quit|
|000029e0| 25 3d b9 0d 0b c2 05 cb | 0d 0b cc 05 e1 0d 0b d6 |%=......|........|
|000029f0| 05 3a 0d 0b e0 12 dd f2 | 63 6d 6f 73 5f 6d 65 6e |.:......|cmos_men|
|00002a00| 75 28 62 29 0d 0b ea 0c | c8 8e 20 62 21 34 20 ca |u(b)....|.. b!4 .|
|00002a10| 0d 0b f4 12 c9 20 30 3a | f2 6c 6f 61 64 5f 63 6d |..... 0:|.load_cm|
|00002a20| 6f 73 0d 0b fe 12 c9 20 | 31 3a f2 73 61 76 65 5f |os..... |1:.save_|
|00002a30| 63 6d 6f 73 0d 0c 08 05 | cb 0d 0c 12 05 e1 0d 0c |cmos....|........|
|00002a40| 1c 05 3a 0d 0c 26 13 dd | f2 73 70 65 65 64 5f 6d |..:..&..|.speed_m|
|00002a50| 65 6e 75 28 62 29 0d 0c | 30 0c c8 8e 20 62 21 34 |enu(b)..|0... b!4|
|00002a60| 20 ca 0d 0c 3a 45 c9 20 | 30 3a c8 99 22 55 74 69 | ...:E. |0:.."Uti|
|00002a70| 6c 73 5f 46 61 73 74 52 | 4f 4d 22 3a 73 70 65 65 |ls_FastR|OM":spee|
|00002a80| 64 5f 6d 65 6e 75 24 3d | 22 52 4f 4d 20 53 70 65 |d_menu$=|"ROM Spe|
|00002a90| 65 64 2c 31 30 30 7c 5b | 4f 4e 5d 38 20 4d 48 7a |ed,100|[|ON]8 MHz|
|00002aa0| 2c 34 20 4d 48 7a 22 0d | 0c 44 45 c9 20 31 3a c8 |,4 MHz".|.DE. 1:.|
|00002ab0| 99 22 55 74 69 6c 73 5f | 53 6c 6f 77 52 4f 4d 22 |."Utils_|SlowROM"|
|00002ac0| 3a 73 70 65 65 64 5f 6d | 65 6e 75 24 3d 22 52 4f |:speed_m|enu$="RO|
|00002ad0| 4d 20 53 70 65 65 64 2c | 31 30 30 7c 38 20 4d 48 |M Speed,|100|8 MH|
|00002ae0| 7a 2c 5b 4f 4e 5d 34 20 | 4d 48 7a 22 0d 0c 4e 05 |z,[ON]4 |MHz"..N.|
|00002af0| cb 0d 0c 58 43 e7 20 62 | 21 34 3d 30 20 84 20 62 |...XC. b|!4=0 . b|
|00002b00| 21 34 3d 31 20 8c 20 6d | 61 69 6e 5f 6d 65 6e 75 |!4=1 . m|ain_menu|
|00002b10| 25 3d a4 64 65 66 69 6e | 65 5f 6d 65 6e 75 28 6d |%=.defin|e_menu(m|
|00002b20| 61 69 6e 5f 6d 65 6e 75 | 24 2c 6d 65 6e 75 62 6c |ain_menu|$,menubl|
|00002b30| 6f 63 6b 29 0d 0c 62 05 | e1 0d 0c 6c 05 3a 0d 0c |ock)..b.|...l.:..|
|00002b40| 76 18 dd f2 63 73 64 5f | 6d 65 6e 75 5f 73 65 6c |v...csd_|menu_sel|
|00002b50| 65 63 74 28 62 29 0d 0c | 80 27 63 73 64 5f 66 73 |ect(b)..|.'csd_fs|
|00002b60| 24 3d a4 6d 65 6e 75 5f | 6f 70 74 69 6f 6e 28 63 |$=.menu_|option(c|
|00002b70| 73 64 5f 6d 65 6e 75 24 | 2c 62 21 30 29 0d 0c 8a |sd_menu$|,b!0)...|
|00002b80| 3a 63 73 64 5f 6d 65 6e | 75 24 3d a4 62 75 69 6c |:csd_men|u$=.buil|
|00002b90| 64 5f 66 73 5f 6d 65 6e | 75 28 22 43 53 44 20 46 |d_fs_men|u("CSD F|
|00002ba0| 53 20 69 73 3a 22 2c 63 | 73 64 5f 66 73 24 2c 63 |S is:",c|sd_fs$,c|
|00002bb0| 73 64 5f 66 73 24 29 0d | 0c 94 30 63 73 64 5f 6d |sd_fs$).|..0csd_m|
|00002bc0| 65 6e 75 25 3d a4 64 65 | 66 69 6e 65 5f 6d 65 6e |enu%=.de|fine_men|
|00002bd0| 75 28 63 73 64 5f 6d 65 | 6e 75 24 2c 6d 65 6e 75 |u(csd_me|nu$,menu|
|00002be0| 62 6c 6f 63 6b 33 29 0d | 0c 9e 05 e1 0d 0c a8 05 |block3).|........|
|00002bf0| 3a 0d 0c b2 18 dd f2 6c | 69 62 5f 6d 65 6e 75 5f |:......l|ib_menu_|
|00002c00| 73 65 6c 65 63 74 28 62 | 29 0d 0c bc 27 6c 69 62 |select(b|)...'lib|
|00002c10| 5f 66 73 24 3d a4 6d 65 | 6e 75 5f 6f 70 74 69 6f |_fs$=.me|nu_optio|
|00002c20| 6e 28 6c 69 62 5f 6d 65 | 6e 75 24 2c 62 21 30 29 |n(lib_me|nu$,b!0)|
|00002c30| 0d 0c c6 3a 6c 69 62 5f | 6d 65 6e 75 24 3d a4 62 |...:lib_|menu$=.b|
|00002c40| 75 69 6c 64 5f 66 73 5f | 6d 65 6e 75 28 22 4c 49 |uild_fs_|menu("LI|
|00002c50| 42 20 46 53 20 69 73 3a | 22 2c 6c 69 62 5f 66 73 |B FS is:|",lib_fs|
|00002c60| 24 2c 6c 69 62 5f 66 73 | 24 29 0d 0c d0 30 6c 69 |$,lib_fs|$)...0li|
|00002c70| 62 5f 6d 65 6e 75 25 3d | a4 64 65 66 69 6e 65 5f |b_menu%=|.define_|
|00002c80| 6d 65 6e 75 28 6c 69 62 | 5f 6d 65 6e 75 24 2c 6d |menu(lib|_menu$,m|
|00002c90| 65 6e 75 62 6c 6f 63 6b | 34 29 0d 0c da 05 e1 0d |enublock|4)......|
|00002ca0| 0c e4 05 3a 0d 0c ee 18 | dd f2 75 72 64 5f 6d 65 |...:....|..urd_me|
|00002cb0| 6e 75 5f 73 65 6c 65 63 | 74 28 62 29 0d 0c f8 27 |nu_selec|t(b)...'|
|00002cc0| 75 72 64 5f 66 73 24 3d | a4 6d 65 6e 75 5f 6f 70 |urd_fs$=|.menu_op|
|00002cd0| 74 69 6f 6e 28 75 72 64 | 5f 6d 65 6e 75 24 2c 62 |tion(urd|_menu$,b|
|00002ce0| 21 30 29 0d 0d 02 3a 75 | 72 64 5f 6d 65 6e 75 24 |!0)...:u|rd_menu$|
|00002cf0| 3d a4 62 75 69 6c 64 5f | 66 73 5f 6d 65 6e 75 28 |=.build_|fs_menu(|
|00002d00| 22 55 52 44 20 46 53 20 | 69 73 3a 22 2c 75 72 64 |"URD FS |is:",urd|
|00002d10| 5f 66 73 24 2c 75 72 64 | 5f 66 73 24 29 0d 0d 0c |_fs$,urd|_fs$)...|
|00002d20| 30 75 72 64 5f 6d 65 6e | 75 25 3d a4 64 65 66 69 |0urd_men|u%=.defi|
|00002d30| 6e 65 5f 6d 65 6e 75 28 | 75 72 64 5f 6d 65 6e 75 |ne_menu(|urd_menu|
|00002d40| 24 2c 6d 65 6e 75 62 6c | 6f 63 6b 35 29 0d 0d 16 |$,menubl|ock5)...|
|00002d50| 05 e1 0d 0d 20 05 3a 0d | 0d 2a 1d dd f2 6d 6f 64 |.... .:.|.*...mod|
|00002d60| 66 69 6c 65 72 5f 6d 65 | 6e 75 5f 73 65 6c 65 63 |filer_me|nu_selec|
|00002d70| 74 28 62 29 0d 0d 34 0c | c8 8e 20 62 21 30 20 ca |t(b)..4.|.. b!0 .|
|00002d80| 0d 0d 3e 1f c9 20 30 3a | f2 64 69 73 70 6c 61 79 |..>.. 0:|.display|
|00002d90| 5f 6d 65 6e 75 5f 73 65 | 6c 65 63 74 28 62 29 0d |_menu_se|lect(b).|
|00002da0| 0d 48 1f c9 20 31 3a f2 | 6d 6f 64 6f 70 74 73 5f |.H.. 1:.|modopts_|
|00002db0| 6d 65 6e 75 5f 73 65 6c | 65 63 74 28 62 29 0d 0d |menu_sel|ect(b)..|
|00002dc0| 52 44 c9 20 32 3a 73 65 | 6c 65 63 74 65 64 25 28 |RD. 2:se|lected%(|
|00002dd0| 29 3d b9 3a 6e 75 6d 5f | 73 65 6c 65 63 74 65 64 |)=.:num_|selected|
|00002de0| 25 3d 6e 75 6d 5f 6f 66 | 5f 6d 6f 64 75 6c 65 73 |%=num_of|_modules|
|00002df0| 25 3a f2 63 72 65 61 74 | 65 5f 6d 6f 64 5f 77 69 |%:.creat|e_mod_wi|
|00002e00| 6e 64 0d 0d 5c 36 c9 20 | 33 3a 73 65 6c 65 63 74 |nd..\6. |3:select|
|00002e10| 65 64 25 28 29 3d a3 3a | 6e 75 6d 5f 73 65 6c 65 |ed%()=.:|num_sele|
|00002e20| 63 74 65 64 25 3d 30 3a | f2 63 72 65 61 74 65 5f |cted%=0:|.create_|
|00002e30| 6d 6f 64 5f 77 69 6e 64 | 0d 0d 66 27 c9 20 34 3a |mod_wind|..f'. 4:|
|00002e40| f2 72 65 61 64 5f 6d 6f | 64 5f 6c 69 73 74 3a f2 |.read_mo|d_list:.|
|00002e50| 63 72 65 61 74 65 5f 6d | 6f 64 5f 77 69 6e 64 0d |create_m|od_wind.|
|00002e60| 0d 70 05 cb 0d 0d 7a 05 | e1 0d 0d 84 05 3a 0d 0d |.p....z.|.....:..|
|00002e70| 8e 1c dd f2 64 69 73 70 | 6c 61 79 5f 6d 65 6e 75 |....disp|lay_menu|
|00002e80| 5f 73 65 6c 65 63 74 28 | 62 29 0d 0d 98 0f e7 20 |_select(|b)..... |
|00002e90| 62 21 34 3c 30 20 8c 20 | e1 0d 0d a2 20 64 69 73 |b!4<0 . |.... dis|
|00002ea0| 70 6c 61 79 5f 6d 65 6e | 75 24 3d 22 44 69 73 70 |play_men|u$="Disp|
|00002eb0| 6c 61 79 2c 32 30 30 7c | 22 0d 0d ac 0c c8 8e 20 |lay,200||"...... |
|00002ec0| 62 21 34 20 ca 0d 0d b6 | 3e c9 20 30 3a 64 69 73 |b!4 ....|>. 0:dis|
|00002ed0| 70 6c 61 79 5f 6d 65 6e | 75 24 2b 3d 22 5b 4f 4e |play_men|u$+="[ON|
|00002ee0| 5d 4c 61 72 67 65 20 69 | 63 6f 6e 73 2c 53 6d 61 |]Large i|cons,Sma|
|00002ef0| 6c 6c 20 69 63 6f 6e 73 | 2c 46 75 6c 6c 20 69 6e |ll icons|,Full in|
|00002f00| 66 6f 22 0d 0d c0 3e c9 | 20 31 3a 64 69 73 70 6c |fo"...>.| 1:displ|
|00002f10| 61 79 5f 6d 65 6e 75 24 | 2b 3d 22 4c 61 72 67 65 |ay_menu$|+="Large|
|00002f20| 20 69 63 6f 6e 73 2c 5b | 4f 4e 5d 53 6d 61 6c 6c | icons,[|ON]Small|
|00002f30| 20 69 63 6f 6e 73 2c 46 | 75 6c 6c 20 69 6e 66 6f | icons,F|ull info|
|00002f40| 22 0d 0d ca 3e c9 20 32 | 3a 64 69 73 70 6c 61 79 |"...>. 2|:display|
|00002f50| 5f 6d 65 6e 75 24 2b 3d | 22 4c 61 72 67 65 20 69 |_menu$+=|"Large i|
|00002f60| 63 6f 6e 73 2c 53 6d 61 | 6c 6c 20 69 63 6f 6e 73 |cons,Sma|ll icons|
|00002f70| 2c 5b 4f 4e 5d 46 75 6c | 6c 20 69 6e 66 6f 22 0d |,[ON]Ful|l info".|
|00002f80| 0d d4 05 cb 0d 0d de 36 | 6d 6f 64 75 6c 65 5f 6d |.......6|module_m|
|00002f90| 65 6e 75 25 3d a4 64 65 | 66 69 6e 65 5f 6d 65 6e |enu%=.de|fine_men|
|00002fa0| 75 28 6d 6f 64 75 6c 65 | 5f 6d 65 6e 75 24 2c 6d |u(module|_menu$,m|
|00002fb0| 65 6e 75 62 6c 6f 63 6b | 32 29 0d 0d e8 21 64 69 |enublock|2)...!di|
|00002fc0| 73 70 6c 61 79 25 3d 62 | 21 34 3a f2 63 72 65 61 |splay%=b|!4:.crea|
|00002fd0| 74 65 5f 6d 6f 64 5f 77 | 69 6e 64 0d 0d f2 05 e1 |te_mod_w|ind.....|
|00002fe0| 0d 0d fc 05 3a 0d 0e 06 | 1c dd f2 6d 6f 64 6f 70 |....:...|...modop|
|00002ff0| 74 73 5f 6d 65 6e 75 5f | 73 65 6c 65 63 74 28 62 |ts_menu_|select(b|
|00003000| 29 0d 0e 10 0c c8 8e 20 | 62 21 34 20 ca 0d 0e 1a |)...... |b!4 ....|
|00003010| 25 c9 20 30 3a f2 6d 6f | 64 75 6c 65 5f 6f 70 65 |%. 0:.mo|dule_ope|
|00003020| 72 61 74 69 6f 6e 28 22 | 52 4d 52 65 49 6e 69 74 |ration("|RMReInit|
|00003030| 22 29 0d 0e 24 23 c9 20 | 31 3a f2 6d 6f 64 75 6c |")..$#. |1:.modul|
|00003040| 65 5f 6f 70 65 72 61 74 | 69 6f 6e 28 22 52 4d 4b |e_operat|ion("RMK|
|00003050| 69 6c 6c 22 29 0d 0e 2e | 23 c9 20 32 3a f2 6d 6f |ill")...|#. 2:.mo|
|00003060| 64 75 6c 65 5f 6f 70 65 | 72 61 74 69 6f 6e 28 22 |dule_ope|ration("|
|00003070| 55 6e 70 6c 75 67 22 29 | 0d 0e 38 25 c9 20 33 3a |Unplug")|..8%. 3:|
|00003080| f2 6d 6f 64 75 6c 65 5f | 6f 70 65 72 61 74 69 6f |.module_|operatio|
|00003090| 6e 28 22 52 4d 46 61 73 | 74 65 72 22 29 0d 0e 42 |n("RMFas|ter")..B|
|000030a0| 05 cb 0d 0e 4c 05 e1 0d | 0e 56 05 3a 0d 0e 60 1b |....L...|.V.:..`.|
|000030b0| dd f2 6d 6f 64 75 6c 65 | 5f 6f 70 65 72 61 74 69 |..module|_operati|
|000030c0| 6f 6e 28 6f 70 24 29 0d | 0e 6a 1b e3 20 6e 3d 31 |on(op$).|.j.. n=1|
|000030d0| 20 b8 20 6e 75 6d 5f 6f | 66 5f 6d 6f 64 75 6c 65 | . num_o|f_module|
|000030e0| 73 25 0d 0e 74 14 e7 20 | 73 65 6c 65 63 74 65 64 |s%..t.. |selected|
|000030f0| 25 28 6e 29 20 8c 0d 0e | 7e 0f 20 20 20 c8 8e 20 |%(n) ...|~.   .. |
|00003100| 6f 70 24 20 ca 0d 0e 88 | 5d 20 20 20 20 20 20 c9 |op$ ....|]      .|
|00003110| 22 52 4d 52 65 49 6e 69 | 74 22 3a ff 28 6f 70 24 |"RMReIni|t":.(op$|
|00003120| 2b 22 20 22 2b 6d 6f 64 | 75 6c 65 24 28 6e 29 29 |+" "+mod|ule$(n))|
|00003130| 3a e7 20 28 73 74 61 74 | 75 73 25 28 6e 29 20 80 |:. (stat|us%(n) .|
|00003140| 34 29 3d 34 20 8c 20 73 | 74 61 74 75 73 25 28 6e |4)=4 . s|tatus%(n|
|00003150| 29 3d 34 20 8b 20 73 74 | 61 74 75 73 25 28 6e 29 |)=4 . st|atus%(n)|
|00003160| 3d 30 0d 0e 92 61 20 20 | 20 20 20 20 c9 22 52 4d |=0...a  |    ."RM|
|00003170| 4b 69 6c 6c 22 3a e7 20 | 28 73 74 61 74 75 73 25 |Kill":. |(status%|
|00003180| 28 6e 29 20 80 31 29 3d | 30 20 80 20 28 73 74 61 |(n) .1)=|0 . (sta|
|00003190| 74 75 73 25 28 6e 29 20 | 80 32 29 3d 30 20 8c 20 |tus%(n) |.2)=0 . |
|000031a0| ff 28 6f 70 24 2b 22 20 | 22 2b 6d 6f 64 75 6c 65 |.(op$+" |"+module|
|000031b0| 24 28 6e 29 29 3a 73 74 | 61 74 75 73 25 28 6e 29 |$(n)):st|atus%(n)|
|000031c0| 2b 3d 32 0d 0e 9c 47 20 | 20 20 20 20 20 c9 22 55 |+=2...G |     ."U|
|000031d0| 6e 70 6c 75 67 22 3a e7 | 20 73 74 61 74 75 73 25 |nplug":.| status%|
|000031e0| 28 6e 29 3d 30 20 8c 20 | 73 74 61 74 75 73 25 28 |(n)=0 . |status%(|
|000031f0| 6e 29 3d 31 3a ff 28 6f | 70 24 2b 22 20 22 2b 6d |n)=1:.(o|p$+" "+m|
|00003200| 6f 64 75 6c 65 24 28 6e | 29 29 0d 0e a6 49 20 20 |odule$(n|))...I  |
|00003210| 20 20 20 20 c9 22 52 4d | 46 61 73 74 65 72 22 3a |    ."RM|Faster":|
|00003220| e7 20 73 74 61 74 75 73 | 25 28 6e 29 3d 30 20 8c |. status|%(n)=0 .|
|00003230| 20 73 74 61 74 75 73 25 | 28 6e 29 3d 34 3a ff 28 | status%|(n)=4:.(|
|00003240| 6f 70 24 2b 22 20 22 2b | 6d 6f 64 75 6c 65 24 28 |op$+" "+|module$(|
|00003250| 6e 29 29 0d 0e b0 08 20 | 20 20 cb 0d 0e ba 05 cd |n)).... |  ......|
|00003260| 0d 0e c4 05 ed 0d 0e ce | 35 f4 20 50 52 4f 43 72 |........|5. PROCr|
|00003270| 65 61 64 5f 6d 6f 64 5f | 6c 69 73 74 20 2d 20 75 |ead_mod_|list - u|
|00003280| 70 64 61 74 65 20 77 6f | 75 6c 64 20 62 65 20 70 |pdate wo|uld be p|
|00003290| 72 65 66 65 72 61 62 6c | 65 21 0d 0e d8 14 f2 63 |referabl|e!.....c|
|000032a0| 72 65 61 74 65 5f 6d 6f | 64 5f 77 69 6e 64 0d 0e |reate_mo|d_wind..|
|000032b0| e2 05 e1 0d 0e ec 05 3a | 0d 0e f6 0f dd f2 6c 6f |.......:|......lo|
|000032c0| 61 64 5f 63 6d 6f 73 0d | 0f 00 23 46 25 3d 8e 28 |ad_cmos.|..#F%=.(|
|000032d0| 22 3c 45 78 74 46 69 6c | 65 72 24 44 69 72 3e 2e |"<ExtFil|er$Dir>.|
|000032e0| 43 4d 4f 53 5f 52 41 4d | 22 29 0d 0f 0a 47 e7 20 |CMOS_RAM|")...G. |
|000032f0| 46 25 3d 30 20 8c 20 64 | 75 6d 6d 79 25 3d a4 64 |F%=0 . d|ummy%=.d|
|00003300| 69 61 6c 6f 67 28 22 43 | 4d 4f 53 20 52 41 4d 20 |ialog("C|MOS RAM |
|00003310| 73 65 74 74 69 6e 67 73 | 20 68 61 76 65 20 6e 6f |settings| have no|
|00003320| 74 20 62 65 65 6e 20 73 | 61 76 65 64 2e 22 29 3a |t been s|aved."):|
|00003330| e1 0d 0f 14 13 e3 20 62 | 79 74 65 25 3d 30 20 b8 |...... b|yte%=0 .|
|00003340| 20 32 33 39 0d 0f 1e 1f | c8 99 20 22 4f 53 5f 42 | 239....|.. "OS_B|
|00003350| 79 74 65 22 2c 31 36 32 | 2c 62 79 74 65 25 2c 9a |yte",162|,byte%,.|
|00003360| 23 46 25 0d 0f 28 05 ed | 0d 0f 32 08 d9 23 46 25 |#F%..(..|..2..#F%|
|00003370| 0d 0f 3c 05 e1 0d 0f 46 | 05 3a 0d 0f 50 0f dd f2 |..<....F|.:..P...|
|00003380| 73 61 76 65 5f 63 6d 6f | 73 0d 0f 5a 23 46 25 3d |save_cmo|s..Z#F%=|
|00003390| 8e 28 22 3c 45 78 74 46 | 69 6c 65 72 24 44 69 72 |.("<ExtF|iler$Dir|
|000033a0| 3e 2e 43 4d 4f 53 5f 52 | 41 4d 22 29 0d 0f 64 5f |>.CMOS_R|AM")..d_|
|000033b0| e7 20 46 25 20 8c 20 d9 | 23 46 25 3a e7 20 a4 64 |. F% . .|#F%:. .d|
|000033c0| 69 61 6c 6f 67 28 22 43 | 4d 4f 53 20 52 41 4d 20 |ialog("C|MOS RAM |
|000033d0| 73 65 74 74 69 6e 67 73 | 20 68 61 76 65 20 61 6c |settings| have al|
|000033e0| 72 65 61 64 79 20 62 65 | 65 6e 20 73 61 76 65 64 |ready be|en saved|
|000033f0| 2e 20 20 4f 4b 20 74 6f | 20 6f 76 65 72 77 72 69 |.  OK to| overwri|
|00003400| 74 65 3f 22 29 3d 30 20 | 8c 20 e1 0d 0f 6e 23 46 |te?")=0 |. ...n#F|
|00003410| 25 3d ae 28 22 3c 45 78 | 74 46 69 6c 65 72 24 44 |%=.("<Ex|tFiler$D|
|00003420| 69 72 3e 2e 43 4d 4f 53 | 5f 52 41 4d 22 29 0d 0f |ir>.CMOS|_RAM")..|
|00003430| 78 13 e3 20 62 79 74 65 | 25 3d 30 20 b8 20 32 33 |x.. byte|%=0 . 23|
|00003440| 39 0d 0f 82 26 c8 99 20 | 22 4f 53 5f 42 79 74 65 |9...&.. |"OS_Byte|
|00003450| 22 2c 31 36 31 2c 62 79 | 74 65 25 20 b8 20 2c 2c |",161,by|te% . ,,|
|00003460| 72 65 73 75 6c 74 25 0d | 0f 8c 10 d5 23 46 25 2c |result%.|....#F%,|
|00003470| 72 65 73 75 6c 74 25 0d | 0f 96 05 ed 0d 0f a0 08 |result%.|........|
|00003480| d9 23 46 25 0d 0f aa 05 | e1 0d 0f b4 05 3a 0d 0f |.#F%....|.....:..|
|00003490| be 14 dd f2 6c 6f 61 64 | 5f 66 69 6c 65 74 79 70 |....load|_filetyp|
|000034a0| 65 73 0d 0f c8 24 46 25 | 3d 8e 28 22 3c 45 78 74 |es...$F%|=.("<Ext|
|000034b0| 46 69 6c 65 72 24 44 69 | 72 3e 2e 46 69 6c 65 54 |Filer$Di|r>.FileT|
|000034c0| 79 70 65 73 22 29 0d 0f | d2 3f e7 20 46 25 3d 30 |ypes")..|.?. F%=0|
|000034d0| 20 8c 20 c8 99 22 57 69 | 6d 70 5f 43 6c 6f 73 65 | . .."Wi|mp_Close|
|000034e0| 44 6f 77 6e 22 3a f1 22 | 55 6e 61 62 6c 65 20 74 |Down":."|Unable t|
|000034f0| 6f 20 6c 6f 61 64 20 27 | 46 69 6c 65 54 79 70 65 |o load '|FileType|
|00003500| 73 27 22 3a e0 0d 0f dc | 0f 6e 3d 2d 31 3a f5 3a |s'":....|.n=-1:.:|
|00003510| 6e 2b 3d 31 0d 0f e6 0b | 61 24 3d be 23 46 25 0d |n+=1....|a$=.#F%.|
|00003520| 0f f0 0a fd 20 c5 23 46 | 25 0d 0f fa 11 6e 75 6d |.... .#F|%....num|
|00003530| 6f 66 74 79 70 65 73 25 | 3d 6e 0d 10 04 2e de 20 |oftypes%|=n..... |
|00003540| 74 79 70 65 6e 75 6d 24 | 28 6e 75 6d 6f 66 74 79 |typenum$|(numofty|
|00003550| 70 65 73 25 29 2c 74 79 | 70 65 24 28 6e 75 6d 6f |pes%),ty|pe$(numo|
|00003560| 66 74 79 70 65 73 25 29 | 0d 10 0e 0a cf 23 46 25 |ftypes%)|.....#F%|
|00003570| 3d 30 0d 10 18 0f 6e 3d | 2d 31 3a f5 3a 6e 2b 3d |=0....n=|-1:.:n+=|
|00003580| 31 0d 10 22 0b 61 24 3d | be 23 46 25 0d 10 2c 26 |1..".a$=|.#F%..,&|
|00003590| 74 79 70 65 6e 75 6d 24 | 28 6e 29 3d c0 61 24 2c |typenum$|(n)=.a$,|
|000035a0| 33 29 3a 74 79 70 65 24 | 28 6e 29 3d c1 61 24 2c |3):type$|(n)=.a$,|
|000035b0| 35 29 0d 10 36 2f ff 20 | 22 53 65 74 20 46 69 6c |5)..6/. |"Set Fil|
|000035c0| 65 24 54 79 70 65 5f 22 | 2b 74 79 70 65 6e 75 6d |e$Type_"|+typenum|
|000035d0| 24 28 6e 29 2b 22 20 22 | 2b 74 79 70 65 24 28 6e |$(n)+" "|+type$(n|
|000035e0| 29 0d 10 40 0a fd 20 c5 | 23 46 25 0d 10 4a 08 d9 |)..@.. .|#F%..J..|
|000035f0| 23 46 25 0d 10 54 05 e1 | 0d 10 5e 05 3a 0d 10 68 |#F%..T..|..^.:..h|
|00003600| 19 dd f2 73 65 74 5f 66 | 69 6c 65 74 79 70 65 28 |...set_f|iletype(|
|00003610| 66 69 6c 65 24 29 0d 10 | 72 45 e7 20 66 69 6c 65 |file$)..|rE. file|
|00003620| 24 3c 3e 22 22 20 80 20 | 63 75 72 72 65 6e 74 25 |$<>"" . |current%|
|00003630| 3e 3d 30 20 8c 20 ff 22 | 53 65 74 74 79 70 65 20 |>=0 . ."|Settype |
|00003640| 22 2b 66 69 6c 65 24 2b | 22 20 22 2b 74 79 70 65 |"+file$+|" "+type|
|00003650| 24 28 63 75 72 72 65 6e | 74 25 29 0d 10 7c 56 e7 |$(curren|t%)..|V.|
|00003660| 20 66 69 6c 65 24 3c 3e | 22 22 20 80 20 63 75 72 | file$<>|"" . cur|
|00003670| 72 65 6e 74 25 3d 2d 31 | 20 8c 20 ff 22 53 65 74 |rent%=-1| . ."Set|
|00003680| 74 79 70 65 20 22 2b 66 | 69 6c 65 24 2b 22 20 22 |type "+f|ile$+" "|
|00003690| 2b 24 28 a4 69 63 6f 6e | 5f 61 64 64 72 28 66 69 |+$(.icon|_addr(fi|
|000036a0| 6c 65 74 79 70 65 73 5f | 77 69 6e 64 25 2c 33 29 |letypes_|wind%,3)|
|000036b0| 29 0d 10 86 05 e1 0d 10 | 90 05 3a 0d 10 9a 35 dd |).......|..:...5.|
|000036c0| f2 64 72 61 77 5f 72 65 | 63 74 61 6e 67 6c 65 28 |.draw_re|ctangle(|
|000036d0| 4d 69 6e 58 25 2c 4d 69 | 6e 59 25 2c 4d 61 78 58 |MinX%,Mi|nY%,MaxX|
|000036e0| 25 2c 4d 61 78 59 25 2c | 68 61 6e 64 6c 65 25 29 |%,MaxY%,|handle%)|
|000036f0| 0d 10 a4 10 c8 8e 20 68 | 61 6e 64 6c 65 25 20 ca |...... h|andle% .|
|00003700| 0d 10 ae 24 c9 20 66 69 | 6c 65 74 79 70 65 73 5f |...$. fi|letypes_|
|00003710| 77 69 6e 64 25 3a f4 20 | 61 75 74 6f 20 72 65 5f |wind%:. |auto re_|
|00003720| 64 72 61 77 0d 10 b8 05 | cb 0d 10 c2 05 e1 0d 10 |draw....|........|
|00003730| cc 05 3a 0d 10 d6 12 dd | f2 75 70 64 61 74 65 5f |..:.....|.update_|
|00003740| 63 6c 6f 63 6b 0d 10 e0 | 1a e7 20 c1 91 24 2c 31 |clock...|.. ..$,1|
|00003750| 37 2c 35 29 3d 6f 74 69 | 6d 65 24 20 8c 20 e1 0d |7,5)=oti|me$ . ..|
|00003760| 10 ea 14 6f 74 69 6d 65 | 24 3d c1 91 24 2c 31 37 |...otime|$=..$,17|
|00003770| 2c 35 29 0d 10 f4 23 f2 | 73 65 74 5f 73 74 72 69 |,5)...#.|set_stri|
|00003780| 6e 67 28 2d 32 2c 6d 79 | 5f 69 63 6f 6e 25 2c 6f |ng(-2,my|_icon%,o|
|00003790| 74 69 6d 65 24 29 0d 10 | fe 28 c8 99 20 22 4f 53 |time$)..|.(.. "OS|
|000037a0| 5f 52 65 61 64 4d 6f 6e | 6f 74 6f 6e 69 63 54 69 |_ReadMon|otonicTi|
|000037b0| 6d 65 22 20 b8 20 6e 65 | 77 74 69 6d 65 25 0d 11 |me" . ne|wtime%..|
|000037c0| 08 19 c8 95 20 6d 6f 6e | 6f 74 69 6d 65 25 3c 6e |.... mon|otime%<n|
|000037d0| 65 77 74 69 6d 65 25 0d | 11 12 16 20 20 20 6d 6f |ewtime%.|...   mo|
|000037e0| 6e 6f 74 69 6d 65 25 2b | 3d 36 30 30 30 0d 11 1c |notime%+|=6000...|
|000037f0| 05 ce 0d 11 26 05 e1 0d | 11 30 05 3a 0d 11 3a 0d |....&...|.0.:..:.|
|00003800| dd f2 64 72 61 67 62 6f | 78 0d 11 44 18 21 62 6c |..dragbo|x..D.!bl|
|00003810| 6f 63 6b 3d 73 61 76 65 | 73 70 72 5f 77 69 6e 64 |ock=save|spr_wind|
|00003820| 25 0d 11 4e 23 c8 99 20 | 22 57 69 6d 70 5f 47 65 |%..N#.. |"Wimp_Ge|
|00003830| 74 57 69 6e 64 6f 77 53 | 74 61 74 65 22 2c 2c 62 |tWindowS|tate",,b|
|00003840| 6c 6f 63 6b 0d 11 58 2c | 78 25 3d 62 6c 6f 63 6b |lock..X,|x%=block|
|00003850| 21 34 2d 62 6c 6f 63 6b | 21 32 30 3a 79 25 3d 62 |!4-block|!20:y%=b|
|00003860| 6c 6f 63 6b 21 31 36 2d | 62 6c 6f 63 6b 21 32 34 |lock!16-|block!24|
|00003870| 0d 11 62 0d 62 6c 6f 63 | 6b 21 34 3d 30 0d 11 6c |..b.bloc|k!4=0..l|
|00003880| 21 c8 99 20 22 57 69 6d | 70 5f 47 65 74 49 63 6f |!.. "Wim|p_GetIco|
|00003890| 6e 53 74 61 74 65 22 2c | 2c 62 6c 6f 63 6b 0d 11 |nState",|,block..|
|000038a0| 76 22 21 62 6c 6f 63 6b | 3d 73 61 76 65 73 70 72 |v"!block|=savespr|
|000038b0| 5f 77 69 6e 64 25 3a 62 | 6c 6f 63 6b 21 34 3d 35 |_wind%:b|lock!4=5|
|000038c0| 0d 11 80 1c 62 6c 6f 63 | 6b 21 38 2b 3d 78 25 3a |....bloc|k!8+=x%:|
|000038d0| 62 6c 6f 63 6b 21 31 32 | 2b 3d 79 25 0d 11 8a 1d |block!12|+=y%....|
|000038e0| 62 6c 6f 63 6b 21 31 36 | 2b 3d 78 25 3a 62 6c 6f |block!16|+=x%:blo|
|000038f0| 63 6b 21 32 30 2b 3d 79 | 25 0d 11 94 19 62 6c 6f |ck!20+=y|%....blo|
|00003900| 63 6b 21 32 34 3d 30 3a | 62 6c 6f 63 6b 21 32 38 |ck!24=0:|block!28|
|00003910| 3d 30 0d 11 9e 16 62 6c | 6f 63 6b 21 33 32 3d 26 |=0....bl|ock!32=&|
|00003920| 37 46 46 46 46 46 46 46 | 0d 11 a8 16 62 6c 6f 63 |7FFFFFFF|....bloc|
|00003930| 6b 21 33 36 3d 26 37 46 | 46 46 46 46 46 46 0d 11 |k!36=&7F|FFFFFF..|
|00003940| b2 1c c8 99 20 22 57 69 | 6d 70 5f 44 72 61 67 42 |.... "Wi|mp_DragB|
|00003950| 6f 78 22 2c 2c 62 6c 6f | 63 6b 0d 11 bc 05 e1 0d |ox",,blo|ck......|
|00003960| 11 c6 05 3a 0d 11 d0 0d | dd f2 6f 6b 5f 73 61 76 |...:....|..ok_sav|
|00003970| 65 0d 11 da 2a e7 20 a7 | 24 a4 69 63 6f 6e 5f 61 |e...*. .|$.icon_a|
|00003980| 64 64 72 28 73 61 76 65 | 73 70 72 5f 77 69 6e 64 |ddr(save|spr_wind|
|00003990| 25 2c 31 29 2c 22 2e 22 | 29 20 8c 0d 11 e4 32 20 |%,1),"."|) ....2 |
|000039a0| 20 20 f2 73 61 76 65 5f | 73 70 72 69 74 65 73 28 |  .save_|sprites(|
|000039b0| 24 a4 69 63 6f 6e 5f 61 | 64 64 72 28 73 61 76 65 |$.icon_a|ddr(save|
|000039c0| 73 70 72 5f 77 69 6e 64 | 25 2c 31 29 29 0d 11 ee |spr_wind|%,1))...|
|000039d0| 05 cc 0d 11 f8 41 20 20 | 20 64 75 6d 6d 79 25 3d |.....A  | dummy%=|
|000039e0| a4 64 69 61 6c 6f 67 28 | 22 54 6f 20 73 61 76 65 |.dialog(|"To save|
|000039f0| 2c 20 64 72 61 67 20 69 | 63 6f 6e 20 74 6f 20 61 |, drag i|con to a|
|00003a00| 20 64 69 72 65 63 74 6f | 72 79 20 76 69 65 77 65 | directo|ry viewe|
|00003a10| 72 22 29 0d 12 02 05 cd | 0d 12 0c 05 e1 0d 12 16 |r").....|........|
|00003a20| 05 3a 0d 12 20 1d dd f2 | 73 61 76 65 5f 73 70 72 |.:.. ...|save_spr|
|00003a30| 69 74 65 73 28 66 69 6c | 65 6e 61 6d 65 24 29 0d |ites(fil|ename$).|
|00003a40| 12 2a 3e e7 20 66 69 6c | 65 6e 61 6d 65 24 3d 22 |.*>. fil|ename$="|
|00003a50| 22 20 8c 20 64 75 6d 6d | 79 25 3d a4 64 69 61 6c |" . dumm|y%=.dial|
|00003a60| 6f 67 28 22 48 6f 77 20 | 61 62 6f 75 74 20 61 20 |og("How |about a |
|00003a70| 66 69 6c 65 6e 61 6d 65 | 3f 22 29 3a e1 0d 12 34 |filename|?"):...4|
|00003a80| 29 c8 99 22 57 69 6d 70 | 5f 42 61 73 65 4f 66 53 |).."Wimp|_BaseOfS|
|00003a90| 70 72 69 74 65 73 22 20 | b8 20 73 70 72 69 74 65 |prites" |. sprite|
|00003aa0| 5f 61 64 64 72 25 0d 12 | 3e 2e c8 99 22 4f 53 5f |_addr%..|>..."OS_|
|00003ab0| 53 70 72 69 74 65 4f 70 | 22 2c 32 36 38 2c 73 70 |SpriteOp|",268,sp|
|00003ac0| 72 69 74 65 5f 61 64 64 | 72 25 2c 66 69 6c 65 6e |rite_add|r%,filen|
|00003ad0| 61 6d 65 24 0d 12 48 1b | c8 99 22 57 69 6d 70 5f |ame$..H.|.."Wimp_|
|00003ae0| 43 72 65 61 74 65 4d 65 | 6e 75 22 2c 2c 2d 31 0d |CreateMe|nu",,-1.|
|00003af0| 12 52 05 e1 0d 12 5c 05 | 3a 0d 12 66 15 dd f2 70 |.R....\.|:..f...p|
|00003b00| 72 6f 63 65 73 73 5f 6b | 65 79 73 28 62 29 0d 12 |rocess_k|eys(b)..|
|00003b10| 70 23 68 61 6e 64 6c 65 | 25 3d 62 21 30 3a 69 63 |p#handle|%=b!0:ic|
|00003b20| 6f 6e 25 3d 62 21 34 3a | 6b 65 79 25 3d 62 21 32 |on%=b!4:|key%=b!2|
|00003b30| 34 0d 12 7a 32 e7 20 68 | 61 6e 64 6c 65 25 3d 73 |4..z2. h|andle%=s|
|00003b40| 61 76 65 73 70 72 5f 77 | 69 6e 64 25 20 80 20 6b |avespr_w|ind% . k|
|00003b50| 65 79 25 3d 31 33 20 8c | 20 f2 6f 6b 5f 73 61 76 |ey%=13 .| .ok_sav|
|00003b60| 65 3a e1 0d 12 84 49 e7 | 20 ac 20 28 68 61 6e 64 |e:....I.| . (hand|
|00003b70| 6c 65 25 3d 66 69 6c 65 | 74 79 70 65 73 5f 77 69 |le%=file|types_wi|
|00003b80| 6e 64 25 20 80 20 6b 65 | 79 25 3d 31 33 29 20 8c |nd% . ke|y%=13) .|
|00003b90| 20 c8 99 20 22 57 69 6d | 70 5f 50 72 6f 63 65 73 | .. "Wim|p_Proces|
|00003ba0| 73 4b 65 79 22 2c 6b 65 | 79 25 3a e1 0d 12 8e 11 |sKey",ke|y%:.....|
|00003bb0| 6f 6c 64 25 3d 63 75 72 | 72 65 6e 74 25 0d 12 98 |old%=cur|rent%...|
|00003bc0| 0e c8 8e 20 69 63 6f 6e | 25 20 ca 0d 12 a2 1d c9 |... icon|% ......|
|00003bd0| 20 31 3a f2 73 65 74 5f | 66 69 6c 65 74 79 70 65 | 1:.set_|filetype|
|00003be0| 5f 62 79 5f 6e 61 6d 65 | 0d 12 ac 1f c9 20 33 3a |_by_name|..... 3:|
|00003bf0| f2 73 65 74 5f 66 69 6c | 65 74 79 70 65 5f 62 79 |.set_fil|etype_by|
|00003c00| 5f 6e 75 6d 62 65 72 0d | 12 b6 05 cb 0d 12 c0 1c |_number.|........|
|00003c10| f2 63 68 61 6e 67 65 5f | 66 69 6c 65 74 79 70 65 |.change_|filetype|
|00003c20| 5f 73 65 74 74 69 6e 67 | 0d 12 ca 05 e1 0d 12 d4 |_setting|........|
|00003c30| 05 3a 0d 12 de 11 dd f2 | 64 61 74 61 73 61 76 65 |.:......|datasave|
|00003c40| 28 62 29 0d 12 e8 1b 66 | 69 6c 65 6e 61 6d 65 24 |(b)....f|ilename$|
|00003c50| 3d a4 73 74 72 69 6e 67 | 28 62 2b 34 34 29 0d 12 |=.string|(b+44)..|
|00003c60| f2 1c f2 73 61 76 65 5f | 73 70 72 69 74 65 73 28 |...save_|sprites(|
|00003c70| 66 69 6c 65 6e 61 6d 65 | 24 29 0d 12 fc 3a e7 20 |filename|$)...:. |
|00003c80| 62 6c 6f 63 6b 21 33 36 | 3e 2d 31 20 8c 20 f2 73 |block!36|>-1 . .s|
|00003c90| 65 74 5f 73 74 72 69 6e | 67 28 73 61 76 65 73 70 |et_strin|g(savesp|
|00003ca0| 72 5f 77 69 6e 64 25 2c | 31 2c 66 69 6c 65 6e 61 |r_wind%,|1,filena|
|00003cb0| 6d 65 24 29 0d 13 06 2a | 62 6c 6f 63 6b 21 31 32 |me$)...*|block!12|
|00003cc0| 3d 62 6c 6f 63 6b 21 38 | 3a 62 6c 6f 63 6b 21 31 |=block!8|:block!1|
|00003cd0| 36 3d 33 3a 21 62 6c 6f | 63 6b 3d 32 35 36 0d 13 |6=3:!blo|ck=256..|
|00003ce0| 10 34 c8 99 20 22 57 69 | 6d 70 5f 53 65 6e 64 4d |.4.. "Wi|mp_SendM|
|00003cf0| 65 73 73 61 67 65 22 2c | 31 38 2c 62 6c 6f 63 6b |essage",|18,block|
|00003d00| 2c 62 6c 6f 63 6b 21 32 | 30 2c 62 6c 6f 63 6b 21 |,block!2|0,block!|
|00003d10| 32 34 0d 13 1a 05 e1 0d | 13 24 05 3a 0d 13 2e 10 |24......|.$.:....|
|00003d20| dd f2 73 74 61 72 74 5f | 73 61 76 65 0d 13 38 23 |..start_|save..8#|
|00003d30| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 50 6f 69 6e |.. "Wimp|_GetPoin|
|00003d40| 74 65 72 49 6e 66 6f 22 | 2c 2c 62 6c 6f 63 6b 0d |terInfo"|,,block.|
|00003d50| 13 42 27 62 6c 6f 63 6b | 21 32 30 3d 62 6c 6f 63 |.B'block|!20=bloc|
|00003d60| 6b 21 31 32 3a 62 6c 6f | 63 6b 21 32 34 3d 62 6c |k!12:blo|ck!24=bl|
|00003d70| 6f 63 6b 21 31 36 0d 13 | 4c 25 62 6c 6f 63 6b 21 |ock!16..|L%block!|
|00003d80| 32 38 3d 62 6c 6f 63 6b | 21 30 3a 62 6c 6f 63 6b |28=block|!0:block|
|00003d90| 21 33 32 3d 62 6c 6f 63 | 6b 21 34 0d 13 56 1e 62 |!32=bloc|k!4..V.b|
|00003da0| 6c 6f 63 6b 21 33 36 3d | 30 3a f4 20 61 70 70 72 |lock!36=|0:. appr|
|00003db0| 6f 78 20 6c 65 6e 67 74 | 68 0d 13 60 19 62 6c 6f |ox lengt|h..`.blo|
|00003dc0| 63 6b 21 30 3d 36 34 3a | 62 6c 6f 63 6b 21 31 32 |ck!0=64:|block!12|
|00003dd0| 3d 30 0d 13 6a 1c 62 6c | 6f 63 6b 21 31 36 3d 31 |=0..j.bl|ock!16=1|
|00003de0| 3a 62 6c 6f 63 6b 21 34 | 30 3d 26 46 46 39 0d 13 |:block!4|0=&FF9..|
|00003df0| 74 3b 24 28 62 6c 6f 63 | 6b 2b 34 34 29 3d a4 6e |t;$(bloc|k+44)=.n|
|00003e00| 61 6d 65 5f 6f 66 5f 66 | 69 6c 65 28 24 a4 69 63 |ame_of_f|ile($.ic|
|00003e10| 6f 6e 5f 61 64 64 72 28 | 73 61 76 65 73 70 72 5f |on_addr(|savespr_|
|00003e20| 77 69 6e 64 25 2c 31 29 | 29 0d 13 7e 34 c8 99 20 |wind%,1)|)..~4.. |
|00003e30| 22 57 69 6d 70 5f 53 65 | 6e 64 4d 65 73 73 61 67 |"Wimp_Se|ndMessag|
|00003e40| 65 22 2c 31 37 2c 62 6c | 6f 63 6b 2c 62 6c 6f 63 |e",17,bl|ock,bloc|
|00003e50| 6b 21 32 30 2c 62 6c 6f | 63 6b 21 32 34 0d 13 88 |k!20,blo|ck!24...|
|00003e60| 05 e1 0d 13 92 05 3a 0d | 13 9c 19 dd a4 6e 61 6d |......:.|.....nam|
|00003e70| 65 5f 6f 66 5f 66 69 6c | 65 28 6e 61 6d 65 24 29 |e_of_fil|e(name$)|
|00003e80| 0d 13 a6 12 c8 95 20 a7 | 6e 61 6d 65 24 2c 22 3a |...... .|name$,":|
|00003e90| 22 29 0d 13 b0 22 20 20 | 20 6e 61 6d 65 24 3d c1 |")..."  | name$=.|
|00003ea0| 6e 61 6d 65 24 2c a7 6e | 61 6d 65 24 2c 22 3a 22 |name$,.n|ame$,":"|
|00003eb0| 29 2b 31 29 0d 13 ba 05 | ce 0d 13 c4 12 c8 95 20 |)+1)....|....... |
|00003ec0| a7 6e 61 6d 65 24 2c 22 | 2e 22 29 0d 13 ce 22 20 |.name$,"|.")..." |
|00003ed0| 20 20 6e 61 6d 65 24 3d | c1 6e 61 6d 65 24 2c a7 |  name$=|.name$,.|
|00003ee0| 6e 61 6d 65 24 2c 22 2e | 22 29 2b 31 29 0d 13 d8 |name$,".|")+1)...|
|00003ef0| 05 ce 0d 13 e2 0d 3d 6e | 61 6d 65 24 2b bd 30 0d |......=n|ame$+.0.|
|00003f00| 13 ec 05 3a 0d 13 f6 50 | dd f2 73 65 74 75 70 5f |...:...P|..setup_|
|00003f10| 73 65 72 69 61 6c 28 72 | 78 5f 62 61 75 64 2c 74 |serial(r|x_baud,t|
|00003f20| 78 5f 62 61 75 64 2c 70 | 61 72 69 74 79 25 2c 77 |x_baud,p|arity%,w|
|00003f30| 6f 72 64 5f 6c 65 6e 25 | 2c 73 74 6f 70 25 2c 72 |ord_len%|,stop%,r|
|00003f40| 74 73 25 2c 74 78 5f 69 | 6e 74 25 2c 72 78 5f 69 |ts%,tx_i|nt%,rx_i|
|00003f50| 6e 74 25 29 0d 14 00 0b | ea 20 62 79 74 65 25 0d |nt%)....|. byte%.|
|00003f60| 14 0a 60 e7 20 a4 62 61 | 75 64 28 72 78 5f 62 61 |..`. .ba|ud(rx_ba|
|00003f70| 75 64 29 20 8c 20 ff 28 | 22 46 58 37 2c 22 2b c3 |ud) . .(|"FX7,"+.|
|00003f80| a4 62 61 75 64 28 72 78 | 5f 62 61 75 64 29 29 20 |.baud(rx|_baud)) |
|00003f90| 8b 20 64 75 6d 6d 79 25 | 3d a4 64 69 61 6c 6f 67 |. dummy%|=.dialog|
|00003fa0| 28 22 49 6e 76 61 6c 69 | 64 20 72 65 63 69 65 76 |("Invali|d reciev|
|00003fb0| 65 20 62 61 75 64 20 72 | 61 74 65 22 29 3a e1 0d |e baud r|ate"):..|
|00003fc0| 14 14 61 e7 20 a4 62 61 | 75 64 28 74 78 5f 62 61 |..a. .ba|ud(tx_ba|
|00003fd0| 75 64 29 20 8c 20 ff 28 | 22 46 58 38 2c 22 2b c3 |ud) . .(|"FX8,"+.|
|00003fe0| a4 62 61 75 64 28 74 78 | 5f 62 61 75 64 29 29 20 |.baud(tx|_baud)) |
|00003ff0| 8b 20 64 75 6d 6d 79 25 | 3d a4 64 69 61 6c 6f 67 |. dummy%|=.dialog|
|00004000| 28 22 49 6e 76 61 6c 69 | 64 20 74 72 61 6e 73 6d |("Invali|d transm|
|00004010| 69 74 20 62 75 61 64 20 | 72 61 74 65 22 29 3a e1 |it buad |rate"):.|
|00004020| 0d 14 1e 28 62 79 74 65 | 25 3d a4 64 61 74 61 28 |...(byte|%=.data(|
|00004030| 77 6f 72 64 5f 6c 65 6e | 25 2c 70 61 72 69 74 79 |word_len|%,parity|
|00004040| 25 2c 73 74 6f 70 25 29 | 0d 14 28 48 e7 20 62 79 |%,stop%)|..(H. by|
|00004050| 74 65 25 3d 2d 31 20 8c | 20 64 75 6d 6d 79 25 3d |te%=-1 .| dummy%=|
|00004060| a4 64 69 61 6c 6f 67 28 | 22 49 6e 76 61 6c 69 64 |.dialog(|"Invalid|
|00004070| 20 63 6f 6d 62 69 6e 61 | 74 69 6f 6e 20 66 6f 72 | combina|tion for|
|00004080| 20 64 61 74 61 20 66 6f | 72 6d 61 74 22 29 3a e1 | data fo|rmat"):.|
|00004090| 0d 14 32 25 e7 20 74 78 | 5f 69 6e 74 25 3d 31 20 |..2%. tx|_int%=1 |
|000040a0| 84 20 72 74 73 25 3d 32 | 20 8c 20 62 79 74 65 25 |. rts%=2| . byte%|
|000040b0| 2b 3d 32 5e 35 0d 14 3c | 22 e7 20 72 74 73 25 3d |+=2^5..<|". rts%=|
|000040c0| 31 20 84 20 72 74 73 25 | 3d 32 20 8c 20 62 79 74 |1 . rts%|=2 . byt|
|000040d0| 65 25 2b 3d 32 5e 36 0d | 14 46 1c e7 20 72 78 5f |e%+=2^6.|.F.. rx_|
|000040e0| 69 6e 74 25 3d 31 20 8c | 20 62 79 74 65 25 2b 3d |int%=1 .| byte%+=|
|000040f0| 32 5e 37 0d 14 50 16 ff | 28 22 46 58 31 35 36 2c |2^7..P..|("FX156,|
|00004100| 22 2b c3 62 79 74 65 25 | 29 0d 14 5a 05 e1 0d 14 |"+.byte%|)..Z....|
|00004110| 64 05 3a 0d 14 6e 10 dd | a4 62 61 75 64 28 62 61 |d.:..n..|.baud(ba|
|00004120| 75 64 29 0d 14 78 0f ea | 20 66 78 25 3a 66 78 25 |ud)..x..| fx%:fx%|
|00004130| 3d 30 0d 14 82 0d c8 8e | 20 62 61 75 64 20 ca 0d |=0......| baud ..|
|00004140| 14 8c 0e c9 20 37 35 3a | 66 78 25 3d 31 0d 14 96 |.... 75:|fx%=1...|
|00004150| 0f c9 20 31 35 30 3a 66 | 78 25 3d 32 0d 14 a0 0f |.. 150:f|x%=2....|
|00004160| c9 20 33 30 30 3a 66 78 | 25 3d 33 0d 14 aa 10 c9 |. 300:fx|%=3.....|
|00004170| 20 31 32 30 30 3a 66 78 | 25 3d 34 0d 14 b4 10 c9 | 1200:fx|%=4.....|
|00004180| 20 32 34 30 30 3a 66 78 | 25 3d 35 0d 14 be 10 c9 | 2400:fx|%=5.....|
|00004190| 20 34 38 30 30 3a 66 78 | 25 3d 36 0d 14 c8 10 c9 | 4800:fx|%=6.....|
|000041a0| 20 39 36 30 30 3a 66 78 | 25 3d 37 0d 14 d2 11 c9 | 9600:fx|%=7.....|
|000041b0| 20 31 39 32 30 30 3a 66 | 78 25 3d 38 0d 14 dc 0e | 19200:f|x%=8....|
|000041c0| c9 20 35 30 3a 66 78 25 | 3d 39 0d 14 e6 10 c9 20 |. 50:fx%|=9..... |
|000041d0| 31 31 30 3a 66 78 25 3d | 31 30 0d 14 f0 12 c9 20 |110:fx%=|10..... |
|000041e0| 31 33 34 2e 35 3a 66 78 | 25 3d 31 31 0d 14 fa 10 |134.5:fx|%=11....|
|000041f0| c9 20 36 30 30 3a 66 78 | 25 3d 31 32 0d 15 04 11 |. 600:fx|%=12....|
|00004200| c9 20 31 38 30 30 3a 66 | 78 25 3d 31 33 0d 15 0e |. 1800:f|x%=13...|
|00004210| 11 c9 20 33 36 30 30 3a | 66 78 25 3d 31 34 0d 15 |.. 3600:|fx%=14..|
|00004220| 18 11 c9 20 37 32 30 30 | 3a 66 78 25 3d 31 35 0d |... 7200|:fx%=15.|
|00004230| 15 22 05 cb 0d 15 2c 08 | 3d 66 78 25 0d 15 36 05 |."....,.|=fx%..6.|
|00004240| 3a 0d 15 40 15 dd a4 64 | 61 74 61 28 77 6c 25 2c |:..@...d|ata(wl%,|
|00004250| 70 25 2c 73 25 29 0d 15 | 4a 1e e7 20 77 6c 25 3d |p%,s%)..|J.. wl%=|
|00004260| 37 20 80 20 70 25 3d 30 | 20 80 20 73 25 3d 32 20 |7 . p%=0| . s%=2 |
|00004270| 8c 20 3d 30 0d 15 54 1e | e7 20 77 6c 25 3d 37 20 |. =0..T.|. wl%=7 |
|00004280| 80 20 70 25 3d 31 20 80 | 20 73 25 3d 32 20 8c 20 |. p%=1 .| s%=2 . |
|00004290| 3d 31 0d 15 5e 1e e7 20 | 77 6c 25 3d 37 20 80 20 |=1..^.. |wl%=7 . |
|000042a0| 70 25 3d 30 20 80 20 73 | 25 3d 31 20 8c 20 3d 32 |p%=0 . s|%=1 . =2|
|000042b0| 0d 15 68 1e e7 20 77 6c | 25 3d 37 20 80 20 70 25 |..h.. wl|%=7 . p%|
|000042c0| 3d 31 20 80 20 73 25 3d | 31 20 8c 20 3d 33 0d 15 |=1 . s%=|1 . =3..|
|000042d0| 72 1e e7 20 77 6c 25 3d | 38 20 80 20 70 25 3d 32 |r.. wl%=|8 . p%=2|
|000042e0| 20 80 20 73 25 3d 32 20 | 8c 20 3d 34 0d 15 7c 1e | . s%=2 |. =4..|.|
|000042f0| e7 20 77 6c 25 3d 38 20 | 80 20 70 25 3d 32 20 80 |. wl%=8 |. p%=2 .|
|00004300| 20 73 25 3d 31 20 8c 20 | 3d 35 0d 15 86 1e e7 20 | s%=1 . |=5..... |
|00004310| 77 6c 25 3d 38 20 80 20 | 70 25 3d 30 20 80 20 73 |wl%=8 . |p%=0 . s|
|00004320| 25 3d 31 20 8c 20 3d 36 | 0d 15 90 1e e7 20 77 6c |%=1 . =6|..... wl|
|00004330| 25 3d 38 20 80 20 70 25 | 3d 31 20 80 20 73 25 3d |%=8 . p%|=1 . s%=|
|00004340| 31 20 8c 20 3d 37 0d 15 | 9a 07 3d 2d 31 0d 15 a4 |1 . =7..|..=-1...|
|00004350| 05 3a 0d 15 ae 2d dd a4 | 62 75 69 6c 64 5f 66 73 |.:...-..|build_fs|
|00004360| 5f 6d 65 6e 75 28 66 73 | 5f 6d 65 6e 75 24 2c 6f |_menu(fs|_menu$,o|
|00004370| 6e 5f 66 73 24 2c f8 20 | 6f 6e 5f 66 73 24 29 0d |n_fs$,. |on_fs$).|
|00004380| 15 b8 1b ea 20 66 73 6e | 75 6d 25 2c 66 73 6e 61 |.... fsn|um%,fsna|
|00004390| 6d 65 25 2c 66 6e 61 6d | 65 24 0d 15 c2 15 66 73 |me%,fnam|e$....fs|
|000043a0| 5f 6d 65 6e 75 24 2b 3d | 22 2c 32 30 30 7c 22 0d |_menu$+=|",200|".|
|000043b0| 15 cc 14 e3 20 66 73 6e | 75 6d 25 3d 31 20 b8 20 |.... fsn|um%=1 . |
|000043c0| 31 32 37 0d 15 d6 36 c8 | 99 20 22 58 4f 53 5f 46 |127...6.|. "XOS_F|
|000043d0| 53 43 6f 6e 74 72 6f 6c | 22 2c 33 33 2c 66 73 6e |SControl|",33,fsn|
|000043e0| 75 6d 25 2c 66 62 75 66 | 66 25 2c 31 32 20 b8 20 |um%,fbuf|f%,12 . |
|000043f0| 2c 2c 66 73 6e 61 6d 65 | 25 0d 15 e0 10 e7 20 3f |,,fsname|%..... ?|
|00004400| 66 73 6e 61 6d 65 25 20 | 8c 0d 15 ea 1e 20 20 20 |fsname% |.....   |
|00004410| 66 6e 61 6d 65 24 3d a4 | 73 74 72 69 6e 67 28 66 |fname$=.|string(f|
|00004420| 73 6e 61 6d 65 25 29 0d | 15 f4 12 20 20 20 c8 8e |sname%).|...   ..|
|00004430| 20 66 6e 61 6d 65 24 20 | ca 0d 15 fe 7c 20 20 20 | fname$ |....|   |
|00004440| c9 20 22 6e 75 6c 6c 22 | 2c 22 70 72 69 6e 74 65 |. "null"|,"printe|
|00004450| 72 22 2c 22 73 65 72 69 | 61 6c 22 2c 22 76 64 75 |r","seri|al","vdu|
|00004460| 22 2c 22 72 61 77 76 64 | 75 22 2c 22 6b 62 64 22 |","rawvd|u","kbd"|
|00004470| 2c 22 72 61 77 6b 62 64 | 22 2c 22 64 65 73 6b 66 |,"rawkbd|","deskf|
|00004480| 73 22 2c 22 6d 73 64 6f | 73 22 2c 22 6e 65 74 70 |s","msdo|s","netp|
|00004490| 72 69 6e 74 22 2c 22 70 | 69 70 65 22 3a 66 6e 61 |rint","p|ipe":fna|
|000044a0| 6d 65 24 3d 22 22 3a f4 | 20 6e 6f 74 20 72 65 61 |me$="":.| not rea|
|000044b0| 64 61 62 6c 65 0d 16 08 | 1d 20 20 20 7f 3a 66 73 |dable...|.   .:fs|
|000044c0| 5f 6d 65 6e 75 24 2b 3d | 66 6e 61 6d 65 24 2b 22 |_menu$+=|fname$+"|
|000044d0| 2c 22 0d 16 12 08 20 20 | 20 cb 0d 16 1c 05 cd 0d |,"....  | .......|
|000044e0| 16 26 05 ed 0d 16 30 2c | e7 20 c2 66 73 5f 6d 65 |.&....0,|. .fs_me|
|000044f0| 6e 75 24 2c 31 29 3d 22 | 2c 22 20 8c 20 66 73 5f |nu$,1)="|," . fs_|
|00004500| 6d 65 6e 75 24 3d c0 66 | 73 5f 6d 65 6e 75 24 29 |menu$=.f|s_menu$)|
|00004510| 0d 16 3a 37 e7 20 c2 66 | 73 5f 6d 65 6e 75 24 2c |..:7. .f|s_menu$,|
|00004520| 31 29 3d 22 7c 22 20 8c | 20 6f 6e 5f 66 73 24 3d |1)="|" .| on_fs$=|
|00004530| 22 6e 75 6c 6c 22 3a 3d | 66 73 5f 6d 65 6e 75 24 |"null":=|fs_menu$|
|00004540| 2b 22 6e 6f 6e 65 22 0d | 16 44 17 78 3d a7 66 73 |+"none".|.D.x=.fs|
|00004550| 5f 6d 65 6e 75 24 2c 6f | 6e 5f 66 73 24 29 0d 16 |_menu$,o|n_fs$)..|
|00004560| 4e 3f e7 20 78 3d 30 20 | 8c 20 6f 6e 5f 66 73 24 |N?. x=0 |. on_fs$|
|00004570| 3d 22 61 64 66 73 22 3a | 78 3d a7 66 73 5f 6d 65 |="adfs":|x=.fs_me|
|00004580| 6e 75 24 2c 6f 6e 5f 66 | 73 24 29 3a e7 20 78 3d |nu$,on_f|s$):. x=|
|00004590| 30 20 8c 20 3d 66 73 5f | 6d 65 6e 75 24 0d 16 58 |0 . =fs_|menu$..X|
|000045a0| 2f 66 73 5f 6d 65 6e 75 | 24 3d c0 66 73 5f 6d 65 |/fs_menu|$=.fs_me|
|000045b0| 6e 75 24 2c 78 2d 31 29 | 2b 22 5b 4f 4e 5d 22 2b |nu$,x-1)|+"[ON]"+|
|000045c0| c1 66 73 5f 6d 65 6e 75 | 24 2c 78 29 0d 16 62 0d |.fs_menu|$,x)..b.|
|000045d0| 3d 66 73 5f 6d 65 6e 75 | 24 0d 16 6c 05 3a 0d 16 |=fs_menu|$..l.:..|
|000045e0| 76 21 dd a4 6d 65 6e 75 | 5f 6f 70 74 69 6f 6e 28 |v!..menu|_option(|
|000045f0| 6d 65 6e 75 5f 64 65 66 | 24 2c 6f 70 74 25 29 0d |menu_def|$,opt%).|
|00004600| 16 80 2b 6d 65 6e 75 5f | 64 65 66 24 3d c1 6d 65 |..+menu_|def$=.me|
|00004610| 6e 75 5f 64 65 66 24 2c | a7 6d 65 6e 75 5f 64 65 |nu_def$,|.menu_de|
|00004620| 66 24 2c 22 7c 22 29 2b | 31 29 0d 16 8a 05 f5 0d |f$,"|")+|1)......|
|00004630| 16 94 3e e7 20 6f 70 74 | 25 3e 30 20 8c 20 6d 65 |..>. opt|%>0 . me|
|00004640| 6e 75 5f 64 65 66 24 3d | c1 6d 65 6e 75 5f 64 65 |nu_def$=|.menu_de|
|00004650| 66 24 2c a7 6d 65 6e 75 | 5f 64 65 66 24 2c 22 2c |f$,.menu|_def$,",|
|00004660| 22 29 2b 31 29 3a 6f 70 | 74 25 2d 3d 31 0d 16 9e |")+1):op|t%-=1...|
|00004670| 0d fd 20 6f 70 74 25 3c | 3d 30 0d 16 a8 13 e7 20 |.. opt%<|=0..... |
|00004680| 6f 70 74 25 3c 30 20 8c | 20 3d 22 23 22 0d 16 b2 |opt%<0 .| ="#"...|
|00004690| 34 e7 20 c0 6d 65 6e 75 | 5f 64 65 66 24 2c 34 29 |4. .menu|_def$,4)|
|000046a0| 3d 22 5b 4f 4e 5d 22 20 | 8c 20 6d 65 6e 75 5f 64 |="[ON]" |. menu_d|
|000046b0| 65 66 24 3d c1 6d 65 6e | 75 5f 64 65 66 24 2c 35 |ef$=.men|u_def$,5|
|000046c0| 29 0d 16 bc 24 e7 20 a7 | 6d 65 6e 75 5f 64 65 66 |)...$. .|menu_def|
|000046d0| 24 2c 22 2c 22 29 3d 30 | 20 8c 20 3d 6d 65 6e 75 |$,",")=0| . =menu|
|000046e0| 5f 64 65 66 24 0d 16 c6 | 22 3d c0 6d 65 6e 75 5f |_def$...|"=.menu_|
|000046f0| 64 65 66 24 2c a7 6d 65 | 6e 75 5f 64 65 66 24 2c |def$,.me|nu_def$,|
|00004700| 22 2c 22 29 2d 31 29 0d | 16 d0 05 3a 0d 16 da 13 |",")-1).|...:....|
|00004710| dd f2 72 65 61 64 5f 6d | 6f 64 5f 6c 69 73 74 0d |..read_m|od_list.|
|00004720| 16 e4 16 f4 20 72 65 61 | 64 20 6d 6f 64 75 6c 65 |.... rea|d module|
|00004730| 20 6c 69 73 74 0d 16 ee | 17 6e 3d 30 3a 52 30 3d | list...|.n=0:R0=|
|00004740| 31 32 3a 52 31 3d 30 3a | 52 32 3d 30 0d 16 f8 0a |12:R1=0:|R2=0....|
|00004750| f5 3a 6e 2b 3d 31 0d 17 | 02 30 c8 99 20 22 58 4f |.:n+=1..|.0.. "XO|
|00004760| 53 5f 4d 6f 64 75 6c 65 | 22 2c 31 32 2c 52 31 2c |S_Module|",12,R1,|
|00004770| 52 32 20 b8 20 52 30 2c | 52 31 2c 52 32 2c 52 33 |R2 . R0,|R1,R2,R3|
|00004780| 2c 52 34 2c 52 35 0d 17 | 0c 46 e7 20 52 30 3d 31 |,R4,R5..|.F. R0=1|
|00004790| 32 20 6d 6f 64 75 6c 65 | 24 28 6e 29 3d a4 73 74 |2 module|$(n)=.st|
|000047a0| 72 69 6e 67 28 52 33 2b | 52 33 21 31 36 29 3a 61 |ring(R3+|R3!16):a|
|000047b0| 64 64 72 65 73 73 25 28 | 6e 29 3d 52 33 3a 77 6f |ddress%(|n)=R3:wo|
|000047c0| 72 6b 73 70 63 25 28 6e | 29 3d 52 35 0d 17 16 0c |rkspc%(n|)=R5....|
|000047d0| fd 20 52 30 3c 3e 31 32 | 0d 17 20 2d 69 63 6f 6e |. R0<>12|.. -icon|
|000047e0| 5f 68 61 6e 64 25 28 29 | 3d 2d 31 3a 73 65 6c 65 |_hand%()|=-1:sele|
|000047f0| 63 74 65 64 25 28 29 3d | a3 3a 73 74 61 74 75 73 |cted%()=|.:status|
|00004800| 25 28 29 3d 30 0d 17 2a | 27 6e 75 6d 5f 6f 66 5f |%()=0..*|'num_of_|
|00004810| 6d 6f 64 75 6c 65 73 25 | 3d 6e 2d 31 3a 6e 75 6d |modules%|=n-1:num|
|00004820| 5f 73 65 6c 65 63 74 65 | 64 25 3d 30 0d 17 34 2a |_selecte|d%=0..4*|
|00004830| f4 20 76 61 6c 69 64 61 | 74 69 6f 6e 20 73 74 72 |. valida|tion str|
|00004840| 69 6e 67 20 2d 20 53 70 | 72 69 74 65 20 27 73 6d |ing - Sp|rite 'sm|
|00004850| 61 6c 6c 72 6d 27 0d 17 | 3e 32 24 6d 6f 64 74 65 |allrm'..|>2$modte|
|00004860| 78 74 3d 22 73 73 6d 61 | 6c 6c 72 6d 22 3a 6d 6f |xt="ssma|llrm":mo|
|00004870| 64 70 74 72 3d 6d 6f 64 | 74 65 78 74 2b a9 24 6d |dptr=mod|text+.$m|
|00004880| 6f 64 74 65 78 74 2b 31 | 0d 17 48 05 e1 0d 17 52 |odtext+1|..H....R|
|00004890| 05 3a 0d 17 5c 15 dd f2 | 63 72 65 61 74 65 5f 6d |.:..\...|create_m|
|000048a0| 6f 64 5f 77 69 6e 64 0d | 17 66 1b e3 20 6e 3d 31 |od_wind.|.f.. n=1|
|000048b0| 20 b8 20 6e 75 6d 5f 6f | 66 5f 6d 6f 64 75 6c 65 | . num_o|f_module|
|000048c0| 73 25 0d 17 70 19 e7 20 | 69 63 6f 6e 5f 68 61 6e |s%..p.. |icon_han|
|000048d0| 64 25 28 6e 29 3c 3e 2d | 31 20 8c 0d 17 7a 1a 20 |d%(n)<>-|1 ...z. |
|000048e0| 20 20 71 25 21 30 3d 6d | 6f 64 66 69 6c 65 72 5f |  q%!0=m|odfiler_|
|000048f0| 77 69 6e 64 25 0d 17 84 | 19 20 20 20 71 25 21 34 |wind%...|.   q%!4|
|00004900| 3d 69 63 6f 6e 5f 68 61 | 6e 64 25 28 6e 29 0d 17 |=icon_ha|nd%(n)..|
|00004910| 8e 1e 20 20 20 c8 99 22 | 57 69 6d 70 5f 44 65 6c |..   .."|Wimp_Del|
|00004920| 65 74 65 49 63 6f 6e 22 | 2c 2c 71 25 0d 17 98 05 |eteIcon"|,,q%....|
|00004930| cd 0d 17 a2 05 ed 0d 17 | ac 11 78 70 6f 73 3d 30 |........|..xpos=0|
|00004940| 3a 79 70 6f 73 3d 30 0d | 17 b6 11 c8 8e 20 64 69 |:ypos=0.|..... di|
|00004950| 73 70 6c 61 79 25 20 ca | 0d 17 c0 30 c9 20 30 3a |splay% .|...0. 0:|
|00004960| 77 69 64 74 68 3d 31 38 | 38 3a 68 65 69 67 68 74 |width=18|8:height|
|00004970| 3d 31 32 34 3a 24 6d 6f | 64 74 65 78 74 3d 22 73 |=124:$mo|dtext="s|
|00004980| 6c 61 72 67 65 72 6d 22 | 0d 17 ca 31 c9 20 31 3a |largerm"|...1. 1:|
|00004990| 77 69 64 74 68 3d 31 35 | 2a 33 32 3a 68 65 69 67 |width=15|*32:heig|
|000049a0| 68 74 3d 34 34 3a 24 6d | 6f 64 74 65 78 74 3d 22 |ht=44:$m|odtext="|
|000049b0| 73 73 6d 61 6c 6c 72 6d | 22 0d 17 d4 31 c9 20 32 |ssmallrm|"...1. 2|
|000049c0| 3a 77 69 64 74 68 3d 32 | 30 2a 33 32 3a 68 65 69 |:width=2|0*32:hei|
|000049d0| 67 68 74 3d 34 34 3a 24 | 6d 6f 64 74 65 78 74 3d |ght=44:$|modtext=|
|000049e0| 22 73 73 6d 61 6c 6c 72 | 6d 22 0d 17 de 05 cb 0d |"ssmallr|m"......|
|000049f0| 17 e8 1e 6d 6f 64 70 74 | 72 3d 6d 6f 64 74 65 78 |...modpt|r=modtex|
|00004a00| 74 2b a9 24 6d 6f 64 74 | 65 78 74 2b 31 0d 17 f2 |t+.$modt|ext+1...|
|00004a10| 17 71 25 21 30 3d 6d 6f | 64 66 69 6c 65 72 5f 77 |.q%!0=mo|dfiler_w|
|00004a20| 69 6e 64 25 0d 17 fc 1f | c8 99 22 57 69 6d 70 5f |ind%....|.."Wimp_|
|00004a30| 47 65 74 57 69 6e 64 6f | 77 53 74 61 74 65 22 2c |GetWindo|wState",|
|00004a40| 2c 71 25 0d 18 06 21 63 | 6f 6c 75 6d 6e 73 3d a8 |,q%...!c|olumns=.|
|00004a50| 28 28 71 25 21 31 32 2d | 71 25 21 34 29 2f 77 69 |((q%!12-|q%!4)/wi|
|00004a60| 64 74 68 29 0d 18 10 1b | e7 20 63 6f 6c 75 6d 6e |dth)....|. column|
|00004a70| 73 3d 30 20 8c 20 63 6f | 6c 75 6d 6e 73 3d 31 0d |s=0 . co|lumns=1.|
|00004a80| 18 1a 40 72 6f 77 73 3d | 28 6e 75 6d 5f 6f 66 5f |..@rows=|(num_of_|
|00004a90| 6d 6f 64 75 6c 65 73 25 | 20 81 20 63 6f 6c 75 6d |modules%| . colum|
|00004aa0| 6e 73 29 2b 28 6e 75 6d | 5f 6f 66 5f 6d 6f 64 75 |ns)+(num|_of_modu|
|00004ab0| 6c 65 73 25 20 83 20 63 | 6f 6c 75 6d 6e 73 29 0d |les% . c|olumns).|
|00004ac0| 18 24 12 71 25 21 30 3d | 30 3a 71 25 21 31 32 3d |.$.q%!0=|0:q%!12=|
|00004ad0| 30 0d 18 2e 53 e7 20 77 | 69 64 74 68 2a 6e 75 6d |0...S. w|idth*num|
|00004ae0| 5f 6f 66 5f 6d 6f 64 75 | 6c 65 73 25 2b 36 3e 77 |_of_modu|les%+6>w|
|00004af0| 69 64 74 68 2b 36 20 8c | 20 71 25 21 38 3d 77 69 |idth+6 .| q%!8=wi|
|00004b00| 64 74 68 2a 6e 75 6d 5f | 6f 66 5f 6d 6f 64 75 6c |dth*num_|of_modul|
|00004b10| 65 73 25 2b 36 20 8b 20 | 71 25 21 38 3d 77 69 64 |es%+6 . |q%!8=wid|
|00004b20| 74 68 2b 36 0d 18 38 1a | 71 25 21 34 3d 2d 28 68 |th+6..8.|q%!4=-(h|
|00004b30| 65 69 67 68 74 2a 72 6f | 77 73 2b 31 34 29 0d 18 |eight*ro|ws+14)..|
|00004b40| 42 28 c8 99 22 57 69 6d | 70 5f 53 65 74 45 78 74 |B(.."Wim|p_SetExt|
|00004b50| 65 6e 74 22 2c 6d 6f 64 | 66 69 6c 65 72 5f 77 69 |ent",mod|filer_wi|
|00004b60| 6e 64 25 2c 71 25 0d 18 | 4c 1b e3 20 6e 3d 31 20 |nd%,q%..|L.. n=1 |
|00004b70| b8 20 6e 75 6d 5f 6f 66 | 5f 6d 6f 64 75 6c 65 73 |. num_of|_modules|
|00004b80| 25 0d 18 56 1a 62 6c 6f | 63 6b 21 30 3d 6d 6f 64 |%..V.blo|ck!0=mod|
|00004b90| 66 69 6c 65 72 5f 77 69 | 6e 64 25 0d 18 60 18 62 |filer_wi|nd%..`.b|
|00004ba0| 6c 6f 63 6b 21 34 3d 78 | 70 6f 73 2a 77 69 64 74 |lock!4=x|pos*widt|
|00004bb0| 68 2b 36 0d 18 6a 1e 62 | 6c 6f 63 6b 21 38 3d 2d |h+6..j.b|lock!8=-|
|00004bc0| 28 79 70 6f 73 2b 31 29 | 2a 68 65 69 67 68 74 2d |(ypos+1)|*height-|
|00004bd0| 38 0d 18 74 1b 62 6c 6f | 63 6b 21 31 32 3d 28 78 |8..t.blo|ck!12=(x|
|00004be0| 70 6f 73 2b 31 29 2a 77 | 69 64 74 68 0d 18 7e 45 |pos+1)*w|idth..~E|
|00004bf0| e7 20 64 69 73 70 6c 61 | 79 25 3d 30 20 8c 20 62 |. displa|y%=0 . b|
|00004c00| 6c 6f 63 6b 21 31 36 3d | 2d 79 70 6f 73 2a 68 65 |lock!16=|-ypos*he|
|00004c10| 69 67 68 74 2d 31 34 20 | 8b 20 62 6c 6f 63 6b 21 |ight-14 |. block!|
|00004c20| 31 36 3d 2d 79 70 6f 73 | 2a 68 65 69 67 68 74 2d |16=-ypos|*height-|
|00004c30| 38 0d 18 88 3a e7 20 64 | 69 73 70 6c 61 79 25 3d |8...:. d|isplay%=|
|00004c40| 30 20 8c 20 62 6c 6f 63 | 6b 21 32 30 3d 26 31 37 |0 . bloc|k!20=&17|
|00004c50| 30 31 41 35 30 42 20 8b | 20 62 6c 6f 63 6b 21 32 |01A50B .| block!2|
|00004c60| 30 3d 26 31 37 30 31 41 | 35 31 33 0d 18 92 2a e7 |0=&1701A|513...*.|
|00004c70| 20 73 65 6c 65 63 74 65 | 64 25 28 6e 29 20 8c 20 | selecte|d%(n) . |
|00004c80| 62 6c 6f 63 6b 21 32 30 | 2b 3d 31 3c 3c 32 31 3a |block!20|+=1<<21:|
|00004c90| f4 20 73 65 6c 0d 18 9c | 13 62 6c 6f 63 6b 21 32 |. sel...|.block!2|
|00004ca0| 34 3d 6d 6f 64 70 74 72 | 0d 18 a6 18 64 61 74 61 |4=modptr|....data|
|00004cb0| 24 3d 22 20 22 2b 6d 6f | 64 75 6c 65 24 28 6e 29 |$=" "+mo|dule$(n)|
|00004cc0| 0d 18 b0 9f e7 20 64 69 | 73 70 6c 61 79 25 3d 32 |..... di|splay%=2|
|00004cd0| 20 8c 20 64 61 74 61 24 | 3d 22 20 22 2b a4 66 69 | . data$|=" "+.fi|
|00004ce0| 6c 6c 5f 6f 75 74 28 c0 | 6d 6f 64 75 6c 65 24 28 |ll_out(.|module$(|
|00004cf0| 6e 29 2c 31 35 29 2c 22 | 20 22 2c 31 36 2c 22 4c |n),15),"| ",16,"L|
|00004d00| 22 29 2b a4 6d 6f 64 5f | 73 74 61 74 75 73 28 6e |")+.mod_|status(n|
|00004d10| 29 2b 22 20 22 2b a4 66 | 69 6c 6c 5f 6f 75 74 28 |)+" "+.f|ill_out(|
|00004d20| c3 7e 61 64 64 72 65 73 | 73 25 28 6e 29 2c 22 30 |.~addres|s%(n),"0|
|00004d30| 22 2c 38 2c 22 52 22 29 | 2b 22 20 22 2b a4 66 69 |",8,"R")|+" "+.fi|
|00004d40| 6c 6c 5f 6f 75 74 28 c3 | 7e 77 6f 72 6b 73 70 63 |ll_out(.|~workspc|
|00004d50| 25 28 6e 29 2c 22 30 22 | 2c 38 2c 22 52 22 29 0d |%(n),"0"|,8,"R").|
|00004d60| 18 ba 11 24 6d 6f 64 70 | 74 72 3d 64 61 74 61 24 |...$modp|tr=data$|
|00004d70| 0d 18 c4 26 62 6c 6f 63 | 6b 21 33 32 3d a9 64 61 |...&bloc|k!32=.da|
|00004d80| 74 61 24 2b 31 3a 6d 6f | 64 70 74 72 2b 3d 62 6c |ta$+1:mo|dptr+=bl|
|00004d90| 6f 63 6b 21 33 32 0d 18 | ce 14 62 6c 6f 63 6b 21 |ock!32..|..block!|
|00004da0| 32 38 3d 6d 6f 64 74 65 | 78 74 0d 18 d8 2e c8 99 |28=modte|xt......|
|00004db0| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 49 63 6f 6e |"Wimp_Cr|eateIcon|
|00004dc0| 22 2c 2c 62 6c 6f 63 6b | 20 b8 20 69 63 6f 6e 5f |",,block| . icon_|
|00004dd0| 68 61 6e 64 25 28 6e 29 | 0d 18 e2 2b 78 70 6f 73 |hand%(n)|...+xpos|
|00004de0| 2b 3d 31 3a e7 20 78 70 | 6f 73 3d 63 6f 6c 75 6d |+=1:. xp|os=colum|
|00004df0| 6e 73 20 8c 20 78 70 6f | 73 3d 30 3a 79 70 6f 73 |ns . xpo|s=0:ypos|
|00004e00| 2b 3d 31 0d 18 ec 05 ed | 0d 18 f6 39 c8 99 20 22 |+=1.....|...9.. "|
|00004e10| 57 69 6d 70 5f 46 6f 72 | 63 65 52 65 64 72 61 77 |Wimp_For|ceRedraw|
|00004e20| 22 2c 6d 6f 64 66 69 6c | 65 72 5f 77 69 6e 64 25 |",modfil|er_wind%|
|00004e30| 2c 30 2c 2d 31 30 30 30 | 30 2c 31 30 30 30 30 2c |,0,-1000|0,10000,|
|00004e40| 30 0d 19 00 17 71 25 21 | 30 3d 6d 6f 64 66 69 6c |0....q%!|0=modfil|
|00004e50| 65 72 5f 77 69 6e 64 25 | 0d 19 0a 20 c8 99 20 22 |er_wind%|... .. "|
|00004e60| 57 69 6d 70 5f 47 65 74 | 57 69 6e 64 6f 77 53 74 |Wimp_Get|WindowSt|
|00004e70| 61 74 65 22 2c 2c 71 25 | 0d 19 14 33 e7 20 28 71 |ate",,q%|...3. (q|
|00004e80| 25 21 33 32 20 80 20 32 | 5e 31 36 29 3d 32 5e 31 |%!32 . 2|^16)=2^1|
|00004e90| 36 20 8c 20 c8 99 22 57 | 69 6d 70 5f 4f 70 65 6e |6 . .."W|imp_Open|
|00004ea0| 57 69 6e 64 6f 77 22 2c | 2c 71 25 0d 19 1e 05 e1 |Window",|,q%.....|
|00004eb0| 0d 19 28 05 3a 0d 19 32 | 2b dd a4 66 69 6c 6c 5f |..(.:..2|+..fill_|
|00004ec0| 6f 75 74 28 73 74 72 69 | 6e 67 24 2c 66 69 6c 6c |out(stri|ng$,fill|
|00004ed0| 5f 63 68 61 72 24 2c 6c | 65 6e 2c 65 6e 64 24 29 |_char$,l|en,end$)|
|00004ee0| 0d 19 3c 33 e7 20 65 6e | 64 24 3d 22 4c 22 20 8c |..<3. en|d$="L" .|
|00004ef0| 20 3d 73 74 72 69 6e 67 | 24 2b c4 6c 65 6e 2d a9 | =string|$+.len-.|
|00004f00| 73 74 72 69 6e 67 24 2c | 66 69 6c 6c 5f 63 68 61 |string$,|fill_cha|
|00004f10| 72 24 29 0d 19 46 26 3d | c4 6c 65 6e 2d a9 73 74 |r$)..F&=|.len-.st|
|00004f20| 72 69 6e 67 24 2c 66 69 | 6c 6c 5f 63 68 61 72 24 |ring$,fi|ll_char$|
|00004f30| 29 2b 73 74 72 69 6e 67 | 24 0d 19 50 05 3a 0d 19 |)+string|$..P.:..|
|00004f40| 5a 13 dd a4 6d 6f 64 5f | 73 74 61 74 75 73 28 6e |Z...mod_|status(n|
|00004f50| 29 0d 19 64 0d ea 20 73 | 74 61 74 75 73 24 0d 19 |)..d.. s|tatus$..|
|00004f60| 6e 35 e7 20 28 73 74 61 | 74 75 73 25 28 6e 29 20 |n5. (sta|tus%(n) |
|00004f70| 80 34 29 3d 34 20 8c 20 | 73 74 61 74 75 73 24 2b |.4)=4 . |status$+|
|00004f80| 3d 22 52 22 20 8b 20 73 | 74 61 74 75 73 24 2b 3d |="R" . s|tatus$+=|
|00004f90| 22 20 22 0d 19 78 35 e7 | 20 28 73 74 61 74 75 73 |" "..x5.| (status|
|00004fa0| 25 28 6e 29 20 80 32 29 | 3d 32 20 8c 20 73 74 61 |%(n) .2)|=2 . sta|
|00004fb0| 74 75 73 24 2b 3d 22 4b | 22 20 8b 20 73 74 61 74 |tus$+="K|" . stat|
|00004fc0| 75 73 24 2b 3d 22 20 22 | 0d 19 82 35 e7 20 28 73 |us$+=" "|...5. (s|
|00004fd0| 74 61 74 75 73 25 28 6e | 29 20 80 31 29 3d 31 20 |tatus%(n|) .1)=1 |
|00004fe0| 8c 20 73 74 61 74 75 73 | 24 2b 3d 22 55 22 20 8b |. status|$+="U" .|
|00004ff0| 20 73 74 61 74 75 73 24 | 2b 3d 22 20 22 0d 19 8c | status$|+=" "...|
|00005000| 0c 3d 73 74 61 74 75 73 | 24 0d 19 96 05 3a 0d 19 |.=status|$....:..|
|00005010| a0 4a f4 20 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.J. ====|========|
|00005020| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005030| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005040| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005050| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 19 aa 4a f4 20 7c 7c |========|...J. |||
|00005060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005070| 20 57 69 6d 70 20 4c 69 | 62 72 61 72 79 20 52 6f | Wimp Li|brary Ro|
|00005080| 75 74 69 6e 65 73 20 20 | 20 20 20 20 20 20 20 20 |utines  |        |
|00005090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000050a0| 7c 7c 0d 19 b4 4a f4 20 | 3d 3d 3d 3d 3d 3d 3d 3d |||...J. |========|
|000050b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000050c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000050d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000050e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 19 be 05 |========|====....|
|000050f0| 3a 0d 19 c8 22 f4 20 2a | 2a 2a 2a 2a 20 47 65 6e |:...". *|**** Gen|
|00005100| 65 72 61 6c 20 72 6f 75 | 74 69 6e 65 73 20 2a 2a |eral rou|tines **|
|00005110| 2a 2a 2a 0d 19 d2 05 3a | 0d 19 dc 1a dd a4 77 69 |***....:|......wi|
|00005120| 6d 70 5f 69 6e 69 74 28 | 61 70 70 5f 6e 61 6d 65 |mp_init(|app_name|
|00005130| 24 29 0d 19 e6 0d ea 20 | 74 61 73 6b 69 64 25 0d |$)..... |taskid%.|
|00005140| 19 f0 1b de 20 74 61 73 | 6b 25 20 34 3a 24 74 61 |.... tas|k% 4:$ta|
|00005150| 73 6b 25 3d 22 54 41 53 | 4b 22 0d 19 fa 38 c8 99 |sk%="TAS|K"...8..|
|00005160| 20 22 57 69 6d 70 5f 49 | 6e 69 74 69 61 6c 69 73 | "Wimp_I|nitialis|
|00005170| 65 22 2c 32 30 30 2c 21 | 74 61 73 6b 25 2c 61 70 |e",200,!|task%,ap|
|00005180| 70 5f 6e 61 6d 65 24 20 | b8 20 2c 74 61 73 6b 69 |p_name$ |. ,taski|
|00005190| 64 25 0d 1a 04 0c 3d 74 | 61 73 6b 69 64 25 0d 1a |d%....=t|askid%..|
|000051a0| 0e 05 3a 0d 1a 18 19 dd | f2 63 6c 6f 73 65 5f 64 |..:.....|.close_d|
|000051b0| 6f 77 6e 28 74 61 73 6b | 69 64 25 29 0d 1a 22 26 |own(task|id%).."&|
|000051c0| c8 99 20 22 57 69 6d 70 | 5f 43 6c 6f 73 65 44 6f |.. "Wimp|_CloseDo|
|000051d0| 77 6e 22 2c 74 61 73 6b | 69 64 25 2c 21 74 61 73 |wn",task|id%,!tas|
|000051e0| 6b 25 0d 1a 2c 05 e1 0d | 1a 36 05 3a 0d 1a 40 16 |k%..,...|.6.:..@.|
|000051f0| dd f2 65 72 72 6f 72 28 | 61 70 70 5f 6e 61 6d 65 |..error(|app_name|
|00005200| 24 29 0d 1a 4a 19 c8 99 | 20 22 57 69 6d 70 5f 44 |$)..J...| "Wimp_D|
|00005210| 72 61 67 42 6f 78 22 2c | 2c 2d 31 0d 1a 54 7e e7 |ragBox",|,-1..T~.|
|00005220| 20 a4 64 69 61 6c 6f 67 | 28 22 45 72 72 6f 72 20 | .dialog|("Error |
|00005230| 6e 75 6d 62 65 72 20 22 | 2b c3 9f 2b 22 3a 20 22 |number "|+..+": "|
|00005240| 2b f6 24 2b 22 20 28 49 | 6e 74 65 72 6e 61 6c 20 |+.$+" (I|nternal |
|00005250| 65 72 72 6f 72 20 63 6f | 64 65 20 22 2b c3 9e 2b |error co|de "+..+|
|00005260| 22 29 2e 20 20 44 6f 20 | 79 6f 75 20 77 61 6e 74 |").  Do |you want|
|00005270| 20 74 6f 20 71 75 69 74 | 3f 22 29 20 8c 20 f2 63 | to quit|?") . .c|
|00005280| 6c 6f 73 65 5f 64 6f 77 | 6e 28 74 61 73 6b 5f 68 |lose_dow|n(task_h|
|00005290| 61 6e 64 6c 65 25 29 3a | e0 0d 1a 5e 05 e1 0d 1a |andle%):|...^....|
|000052a0| 68 05 3a 0d 1a 72 16 dd | a4 64 69 61 6c 6f 67 28 |h.:..r..|.dialog(|
|000052b0| 6d 65 73 73 61 67 65 24 | 29 0d 1a 7c 23 21 62 6c |message$|)..|#!bl|
|000052c0| 6f 63 6b 3d 31 3a 24 28 | 62 6c 6f 63 6b 2b 34 29 |ock=1:$(|block+4)|
|000052d0| 3d 6d 65 73 73 61 67 65 | 24 2b bd 30 0d 1a 86 40 |=message|$+.0...@|
|000052e0| c8 99 20 22 57 69 6d 70 | 5f 52 65 70 6f 72 74 45 |.. "Wimp|_ReportE|
|000052f0| 72 72 6f 72 22 2c 62 6c | 6f 63 6b 2c 31 39 2c 22 |rror",bl|ock,19,"|
|00005300| 45 78 74 65 6e 64 65 64 | 20 46 69 6c 65 72 22 20 |Extended| Filer" |
|00005310| b8 20 2c 72 65 73 70 6f | 6e 73 65 25 0d 1a 90 12 |. ,respo|nse%....|
|00005320| 3d 28 72 65 73 70 6f 6e | 73 65 25 3d 31 29 0d 1a |=(respon|se%=1)..|
|00005330| 9a 05 3a 0d 1a a4 13 dd | a4 73 74 72 69 6e 67 28 |..:.....|.string(|
|00005340| 61 64 64 72 25 29 0d 1a | ae 32 f4 20 52 65 74 75 |addr%)..|.2. Retu|
|00005350| 72 6e 73 20 43 54 52 4c | 2d 63 68 61 72 20 74 65 |rns CTRL|-char te|
|00005360| 72 6d 69 6e 61 74 65 64 | 20 73 74 72 69 6e 67 20 |rminated| string |
|00005370| 61 74 20 61 64 64 72 25 | 0d 1a b8 0a ea 20 61 24 |at addr%|..... a$|
|00005380| 2c 6e 0d 1a c2 11 c8 95 | 20 61 64 64 72 25 3f 6e |,n......| addr%?n|
|00005390| 3e 33 31 0d 1a cc 15 61 | 24 2b 3d bd 61 64 64 72 |>31....a|$+=.addr|
|000053a0| 25 3f 6e 3a 6e 2b 3d 31 | 0d 1a d6 05 ce 0d 1a e0 |%?n:n+=1|........|
|000053b0| 07 3d 61 24 0d 1a ea 05 | 3a 0d 1a f4 21 f4 20 2a |.=a$....|:...!. *|
|000053c0| 2a 2a 2a 2a 20 57 69 6e | 64 6f 77 20 72 6f 75 74 |**** Win|dow rout|
|000053d0| 69 6e 65 73 20 2a 2a 2a | 2a 2a 0d 1a fe 05 3a 0d |ines ***|**....:.|
|000053e0| 1b 08 1d dd f2 6f 70 65 | 6e 5f 77 69 6e 64 6f 77 |.....ope|n_window|
|000053f0| 28 68 61 6e 64 25 2c 70 | 6f 73 25 29 0d 1b 12 07 |(hand%,p|os%)....|
|00005400| ea 20 62 0d 1b 1c 0e e7 | 20 70 6f 73 25 3d 30 20 |. b.....| pos%=0 |
|00005410| 8c 0d 1b 26 15 62 3d 62 | 6c 6f 63 6b 3a 62 21 30 |...&.b=b|lock:b!0|
|00005420| 3d 68 61 6e 64 25 0d 1b | 30 1e c8 99 22 57 69 6d |=hand%..|0..."Wim|
|00005430| 70 5f 47 65 74 57 69 6e | 64 6f 77 53 74 61 74 65 |p_GetWin|dowState|
|00005440| 22 2c 2c 62 0d 1b 3a 05 | cc 0d 1b 44 0a 62 3d 70 |",,b..:.|...D.b=p|
|00005450| 6f 73 25 0d 1b 4e 05 cd | 0d 1b 58 1a c8 99 22 57 |os%..N..|..X..."W|
|00005460| 69 6d 70 5f 4f 70 65 6e | 57 69 6e 64 6f 77 22 2c |imp_Open|Window",|
|00005470| 2c 62 0d 1b 62 05 e1 0d | 1b 6c 05 3a 0d 1b 76 19 |,b..b...|.l.:..v.|
|00005480| dd f2 63 6c 6f 73 65 5f | 77 69 6e 64 6f 77 28 68 |..close_|window(h|
|00005490| 61 6e 64 25 29 0d 1b 80 | 11 62 6c 6f 63 6b 21 30 |and%)...|.block!0|
|000054a0| 3d 68 61 6e 64 25 0d 1b | 8a 20 c8 99 20 22 57 69 |=hand%..|. .. "Wi|
|000054b0| 6d 70 5f 43 6c 6f 73 65 | 57 69 6e 64 6f 77 22 2c |mp_Close|Window",|
|000054c0| 2c 62 6c 6f 63 6b 0d 1b | 94 05 e1 0d 1b 9e 05 3a |,block..|.......:|
|000054d0| 0d 1b a8 1a dd f2 72 65 | 64 72 61 77 5f 77 69 6e |......re|draw_win|
|000054e0| 64 6f 77 28 68 61 6e 64 | 25 29 0d 1b b2 10 21 62 |dow(hand|%)....!b|
|000054f0| 6c 6f 63 6b 3d 68 61 6e | 64 25 0d 1b bc 28 c8 99 |lock=han|d%...(..|
|00005500| 22 57 69 6d 70 5f 52 65 | 64 72 61 77 57 69 6e 64 |"Wimp_Re|drawWind|
|00005510| 6f 77 22 2c 2c 62 6c 6f | 63 6b 20 b8 20 6d 6f 72 |ow",,blo|ck . mor|
|00005520| 65 25 0d 1b c6 0c c8 95 | 20 6d 6f 72 65 25 0d 1b |e%......| more%..|
|00005530| d0 1f 4d 69 6e 58 25 3d | 62 6c 6f 63 6b 21 34 3a |..MinX%=|block!4:|
|00005540| 4d 69 6e 59 25 3d 62 6c | 6f 63 6b 21 38 0d 1b da |MinY%=bl|ock!8...|
|00005550| 21 4d 61 78 58 25 3d 62 | 6c 6f 63 6b 21 31 32 3a |!MaxX%=b|lock!12:|
|00005560| 4d 61 78 59 25 3d 62 6c | 6f 63 6b 21 31 36 0d 1b |MaxY%=bl|ock!16..|
|00005570| e4 34 f2 64 72 61 77 5f | 72 65 63 74 61 6e 67 6c |.4.draw_|rectangl|
|00005580| 65 28 4d 69 6e 58 25 2c | 4d 69 6e 59 25 2c 4d 61 |e(MinX%,|MinY%,Ma|
|00005590| 78 58 25 2c 4d 61 78 59 | 25 2c 62 6c 6f 63 6b 21 |xX%,MaxY|%,block!|
|000055a0| 30 29 0d 1b ee 28 c8 99 | 22 57 69 6d 70 5f 47 65 |0)...(..|"Wimp_Ge|
|000055b0| 74 52 65 63 74 61 6e 67 | 6c 65 22 2c 2c 62 6c 6f |tRectang|le",,blo|
|000055c0| 63 6b 20 b8 20 6d 6f 72 | 65 25 0d 1b f8 05 ce 0d |ck . mor|e%......|
|000055d0| 1c 02 05 e1 0d 1c 0c 05 | 3a 0d 1c 16 1c dd f2 75 |........|:......u|
|000055e0| 70 64 61 74 65 5f 77 69 | 6e 64 6f 77 28 68 61 6e |pdate_wi|ndow(han|
|000055f0| 64 6c 65 25 29 0d 1c 20 | 12 21 62 6c 6f 63 6b 3d |dle%).. |.!block=|
|00005600| 68 61 6e 64 6c 65 25 0d | 1c 2a 21 c8 99 22 57 69 |handle%.|.*!.."Wi|
|00005610| 6d 70 5f 47 65 74 57 69 | 6e 64 6f 77 49 6e 66 6f |mp_GetWi|ndowInfo|
|00005620| 22 2c 2c 62 6c 6f 63 6b | 0d 1c 34 1f 4d 69 6e 58 |",,block|..4.MinX|
|00005630| 25 3d 62 6c 6f 63 6b 21 | 34 3a 4d 69 6e 59 25 3d |%=block!|4:MinY%=|
|00005640| 62 6c 6f 63 6b 21 38 0d | 1c 3e 21 4d 61 78 58 25 |block!8.|.>!MaxX%|
|00005650| 3d 62 6c 6f 63 6b 21 31 | 32 3a 4d 61 78 59 25 3d |=block!1|2:MaxY%=|
|00005660| 62 6c 6f 63 6b 21 31 36 | 0d 1c 48 25 62 6c 6f 63 |block!16|..H%bloc|
|00005670| 6b 21 34 3d 62 6c 6f 63 | 6b 21 34 34 3a 62 6c 6f |k!4=bloc|k!44:blo|
|00005680| 63 6b 21 38 3d 62 6c 6f | 63 6b 21 34 38 0d 1c 52 |ck!8=blo|ck!48..R|
|00005690| 27 62 6c 6f 63 6b 21 31 | 32 3d 62 6c 6f 63 6b 21 |'block!1|2=block!|
|000056a0| 35 32 3a 62 6c 6f 63 6b | 21 31 36 3d 62 6c 6f 63 |52:block|!16=bloc|
|000056b0| 6b 21 35 36 0d 1c 5c 28 | c8 99 22 57 69 6d 70 5f |k!56..\(|.."Wimp_|
|000056c0| 55 70 64 61 74 65 57 69 | 6e 64 6f 77 22 2c 2c 62 |UpdateWi|ndow",,b|
|000056d0| 6c 6f 63 6b 20 b8 20 6d | 6f 72 65 25 0d 1c 66 0c |lock . m|ore%..f.|
|000056e0| c8 95 20 6d 6f 72 65 25 | 0d 1c 70 34 f2 64 72 61 |.. more%|..p4.dra|
|000056f0| 77 5f 72 65 63 74 61 6e | 67 6c 65 28 4d 69 6e 58 |w_rectan|gle(MinX|
|00005700| 25 2c 4d 69 6e 59 25 2c | 4d 61 78 58 25 2c 4d 61 |%,MinY%,|MaxX%,Ma|
|00005710| 78 59 25 2c 68 61 6e 64 | 6c 65 25 29 0d 1c 7a 28 |xY%,hand|le%)..z(|
|00005720| c8 99 22 57 69 6d 70 5f | 47 65 74 52 65 63 74 61 |.."Wimp_|GetRecta|
|00005730| 6e 67 6c 65 22 2c 2c 62 | 6c 6f 63 6b 20 b8 20 6d |ngle",,b|lock . m|
|00005740| 6f 72 65 25 0d 1c 84 05 | ce 0d 1c 8e 05 e1 0d 1c |ore%....|........|
|00005750| 98 05 3a 0d 1c a2 1f f4 | 20 2a 2a 2a 2a 2a 20 49 |..:.....| ***** I|
|00005760| 63 6f 6e 20 72 6f 75 74 | 69 6e 65 73 20 2a 2a 2a |con rout|ines ***|
|00005770| 2a 2a 0d 1c ac 05 3a 0d | 1c b6 3a dd a4 69 63 6f |**....:.|..:..ico|
|00005780| 6e 28 77 68 61 6e 64 25 | 2c 69 78 25 2c 69 79 25 |n(whand%|,ix%,iy%|
|00005790| 2c 69 77 25 2c 69 68 25 | 2c 66 6c 61 67 25 2c 74 |,iw%,ih%|,flag%,t|
|000057a0| 65 78 74 24 2c 64 31 25 | 2c 64 32 25 2c 64 33 25 |ext$,d1%|,d2%,d3%|
|000057b0| 29 0d 1c c0 12 24 62 6c | 6f 63 6b 3d c4 34 30 2c |)....$bl|ock=.40,|
|000057c0| bd 30 29 0d 1c ca 2a 62 | 6c 6f 63 6b 21 30 3d 77 |.0)...*b|lock!0=w|
|000057d0| 68 61 6e 64 25 3a 62 6c | 6f 63 6b 21 34 3d 69 78 |hand%:bl|ock!4=ix|
|000057e0| 25 3a 62 6c 6f 63 6b 21 | 38 3d 69 79 25 0d 1c d4 |%:block!|8=iy%...|
|000057f0| 25 62 6c 6f 63 6b 21 31 | 32 3d 69 78 25 2b 69 77 |%block!1|2=ix%+iw|
|00005800| 25 3a 62 6c 6f 63 6b 21 | 31 36 3d 69 79 25 2b 69 |%:block!|16=iy%+i|
|00005810| 68 25 0d 1c de 12 62 6c | 6f 63 6b 21 32 30 3d 66 |h%....bl|ock!20=f|
|00005820| 6c 61 67 25 0d 1c e8 0d | e7 20 64 31 25 3d 30 20 |lag%....|. d1%=0 |
|00005830| 8c 0d 1c f2 15 24 28 62 | 6c 6f 63 6b 2b 32 34 29 |.....$(b|lock+24)|
|00005840| 3d 74 65 78 74 24 0d 1c | fc 05 cc 0d 1d 06 2a 62 |=text$..|......*b|
|00005850| 6c 6f 63 6b 21 32 34 3d | 64 31 25 3a 62 6c 6f 63 |lock!24=|d1%:bloc|
|00005860| 6b 21 32 38 3d 64 32 25 | 3a 62 6c 6f 63 6b 21 33 |k!28=d2%|:block!3|
|00005870| 32 3d 64 33 25 0d 1d 10 | 05 cd 0d 1d 1a 27 c8 99 |2=d3%...|.....'..|
|00005880| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 49 63 6f 6e |"Wimp_Cr|eateIcon|
|00005890| 22 2c 2c 62 6c 6f 63 6b | 20 b8 20 69 68 61 6e 64 |",,block| . ihand|
|000058a0| 25 0d 1d 24 0b 3d 69 68 | 61 6e 64 25 0d 1d 2e 05 |%..$.=ih|and%....|
|000058b0| 3a 0d 1d 38 1a dd a4 62 | 61 72 5f 69 63 6f 6e 28 |:..8...b|ar_icon(|
|000058c0| 69 63 6f 6e 5f 6e 61 6d | 65 24 29 0d 1d 42 33 f4 |icon_nam|e$)..B3.|
|000058d0| 20 74 68 69 73 20 63 72 | 65 61 74 65 73 20 61 20 | this cr|eates a |
|000058e0| 73 70 72 69 74 65 2b 74 | 65 78 74 20 69 63 6f 6e |sprite+t|ext icon|
|000058f0| 20 66 6f 72 20 74 68 65 | 20 63 6c 6f 63 6b 0d 1d | for the| clock..|
|00005900| 4c 12 de 20 62 61 72 5f | 74 65 78 74 25 20 32 35 |L.. bar_|text% 25|
|00005910| 0d 1d 56 18 62 6c 6f 63 | 6b 21 30 3d 2d 32 3a 62 |..V.bloc|k!0=-2:b|
|00005920| 6c 6f 63 6b 21 34 3d 30 | 0d 1d 60 1a 62 6c 6f 63 |lock!4=0|..`.bloc|
|00005930| 6b 21 38 3d 30 3a 62 6c | 6f 63 6b 21 31 32 3d 31 |k!8=0:bl|ock!12=1|
|00005940| 30 30 0d 1d 6a 22 62 6c | 6f 63 6b 21 31 36 3d 36 |00..j"bl|ock!16=6|
|00005950| 38 3a 62 6c 6f 63 6b 21 | 32 30 3d 26 31 37 30 30 |8:block!|20=&1700|
|00005960| 36 31 31 42 0d 1d 74 29 | 62 6c 6f 63 6b 21 32 34 |611B..t)|block!24|
|00005970| 3d 62 61 72 5f 74 65 78 | 74 25 3a 24 62 61 72 5f |=bar_tex|t%:$bar_|
|00005980| 74 65 78 74 25 3d 22 31 | 32 3a 30 30 22 0d 1d 7e |text%="1|2:00"..~|
|00005990| 2b 62 6c 6f 63 6b 21 33 | 32 3d a9 22 31 32 3a 30 |+block!3|2=."12:0|
|000059a0| 30 22 2b 31 3a 62 61 72 | 5f 74 65 78 74 25 2b 3d |0"+1:bar|_text%+=|
|000059b0| 62 6c 6f 63 6b 21 33 32 | 0d 1d 88 30 62 6c 6f 63 |block!32|...0bloc|
|000059c0| 6b 21 32 38 3d 62 61 72 | 5f 74 65 78 74 25 3a 24 |k!28=bar|_text%:$|
|000059d0| 62 61 72 5f 74 65 78 74 | 25 3d 22 53 22 2b 69 63 |bar_text|%="S"+ic|
|000059e0| 6f 6e 5f 6e 61 6d 65 24 | 0d 1d 92 26 c8 99 22 57 |on_name$|...&.."W|
|000059f0| 69 6d 70 5f 43 72 65 61 | 74 65 49 63 6f 6e 22 2c |imp_Crea|teIcon",|
|00005a00| 2c 62 6c 6f 63 6b 20 b8 | 20 69 63 6f 6e 25 0d 1d |,block .| icon%..|
|00005a10| 9c 0a 3d 69 63 6f 6e 25 | 0d 1d a6 05 3a 0d 1d b0 |..=icon%|....:...|
|00005a20| 20 dd a4 69 63 6f 6e 5f | 61 64 64 72 28 77 69 6e | ..icon_|addr(win|
|00005a30| 5f 68 61 6e 64 25 2c 69 | 63 6f 6e 25 29 0d 1d ba |_hand%,i|con%)...|
|00005a40| 11 21 71 25 3d 77 69 6e | 5f 68 61 6e 64 25 0d 1d |.!q%=win|_hand%..|
|00005a50| c4 0e 71 25 21 34 3d 69 | 63 6f 6e 25 0d 1d ce 1e |..q%!4=i|con%....|
|00005a60| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 49 63 6f 6e |.. "Wimp|_GetIcon|
|00005a70| 53 74 61 74 65 22 2c 2c | 71 25 0d 1d d8 0a 3d 71 |State",,|q%....=q|
|00005a80| 25 21 32 38 0d 1d e2 05 | 3a 0d 1d ec 25 dd f2 73 |%!28....|:...%..s|
|00005a90| 65 6c 65 63 74 5f 69 63 | 6f 6e 28 77 69 6e 5f 68 |elect_ic|on(win_h|
|00005aa0| 61 6e 64 25 2c 69 63 6f | 6e 25 2c 73 25 29 0d 1d |and%,ico|n%,s%)..|
|00005ab0| f6 31 f2 73 65 74 5f 69 | 63 6f 6e 5f 73 74 61 74 |.1.set_i|con_stat|
|00005ac0| 65 28 77 69 6e 5f 68 61 | 6e 64 25 2c 69 63 6f 6e |e(win_ha|nd%,icon|
|00005ad0| 25 2c 73 25 3c 3c 32 31 | 2c 31 3c 3c 32 31 29 0d |%,s%<<21|,1<<21).|
|00005ae0| 1e 00 05 e1 0d 1e 0a 05 | 3a 0d 1e 14 30 dd f2 73 |........|:...0..s|
|00005af0| 65 74 5f 69 63 6f 6e 5f | 73 74 61 74 65 28 77 69 |et_icon_|state(wi|
|00005b00| 6e 5f 68 61 6e 64 25 2c | 69 63 6f 6e 25 2c 65 6f |n_hand%,|icon%,eo|
|00005b10| 72 25 2c 6d 61 73 6b 25 | 29 0d 1e 1e 18 21 69 63 |r%,mask%|)....!ic|
|00005b20| 6f 6e 5f 62 75 66 25 3d | 77 69 6e 5f 68 61 6e 64 |on_buf%=|win_hand|
|00005b30| 25 0d 1e 28 15 69 63 6f | 6e 5f 62 75 66 25 21 34 |%..(.ico|n_buf%!4|
|00005b40| 3d 69 63 6f 6e 25 0d 1e | 32 14 69 63 6f 6e 5f 62 |=icon%..|2.icon_b|
|00005b50| 75 66 25 21 38 3d 65 6f | 72 25 0d 1e 3c 16 69 63 |uf%!8=eo|r%..<.ic|
|00005b60| 6f 6e 5f 62 75 66 25 21 | 31 32 3d 6d 61 73 6b 25 |on_buf%!|12=mask%|
|00005b70| 0d 1e 46 25 c8 99 20 22 | 57 69 6d 70 5f 53 65 74 |..F%.. "|Wimp_Set|
|00005b80| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 69 63 6f 6e |IconStat|e",,icon|
|00005b90| 5f 62 75 66 25 0d 1e 50 | 05 e1 0d 1e 5a 05 3a 0d |_buf%..P|....Z.:.|
|00005ba0| 1e 64 24 dd f2 73 65 74 | 5f 73 74 72 69 6e 67 28 |.d$..set|_string(|
|00005bb0| 77 69 6e 5f 68 61 6e 64 | 25 2c 69 63 6f 6e 25 2c |win_hand|%,icon%,|
|00005bc0| 73 24 29 0d 1e 6e 08 ea | 20 53 25 0d 1e 78 22 53 |s$)..n..| S%..x"S|
|00005bd0| 25 3d a4 69 63 6f 6e 5f | 61 64 64 72 28 77 69 6e |%=.icon_|addr(win|
|00005be0| 5f 68 61 6e 64 25 2c 69 | 63 6f 6e 25 29 0d 1e 82 |_hand%,i|con%)...|
|00005bf0| 0a 24 53 25 3d 73 24 0d | 1e 8c 28 f2 73 65 74 5f |.$S%=s$.|..(.set_|
|00005c00| 69 63 6f 6e 5f 73 74 61 | 74 65 28 77 69 6e 5f 68 |icon_sta|te(win_h|
|00005c10| 61 6e 64 25 2c 69 63 6f | 6e 25 2c 30 2c 30 29 0d |and%,ico|n%,0,0).|
|00005c20| 1e 96 05 e1 0d 1e a0 05 | 3a 0d 1e aa 1f f4 20 2a |........|:..... *|
|00005c30| 2a 2a 2a 2a 20 4d 65 6e | 75 20 72 6f 75 74 69 6e |**** Men|u routin|
|00005c40| 65 73 20 2a 2a 2a 2a 2a | 0d 1e b4 05 3a 0d 1e be |es *****|....:...|
|00005c50| 19 dd a4 64 65 66 69 6e | 65 5f 6d 65 6e 75 28 6d |...defin|e_menu(m|
|00005c60| 24 2c 6d 62 25 29 0d 1e | c8 43 ea 20 74 69 74 6c |$,mb%)..|.C. titl|
|00005c70| 65 24 2c 77 69 64 74 68 | 25 2c 74 69 63 6b 2c 77 |e$,width|%,tick,w|
|00005c80| 72 69 74 65 2c 6c 69 6e | 65 2c 73 68 61 64 65 2c |rite,lin|e,shade,|
|00005c90| 73 75 62 2c 66 6c 61 67 | 2c 63 6f 64 65 24 2c 70 |sub,flag|,code$,p|
|00005ca0| 25 2c 6e 6f 69 25 2c 69 | 24 0d 1e d2 1b e7 20 c2 |%,noi%,i|$..... .|
|00005cb0| 6d 24 2c 31 29 3c 3e 22 | 2c 22 20 8c 20 6d 24 2b |m$,1)<>"|," . m$+|
|00005cc0| 3d 22 2c 22 0d 1e dc 1a | 74 69 74 6c 65 24 3d c0 |=","....|title$=.|
|00005cd0| 6d 24 2c a7 6d 24 2c 22 | 7c 22 29 2d 31 29 0d 1e |m$,.m$,"||")-1)..|
|00005ce0| e6 16 6d 24 3d c1 6d 24 | 2c a7 6d 24 2c 22 7c 22 |..m$=.m$|,.m$,"|"|
|00005cf0| 29 2b 31 29 0d 1e f0 25 | 77 69 64 74 68 25 3d a0 |)+1)...%|width%=.|
|00005d00| 28 c1 74 69 74 6c 65 24 | 2c a7 74 69 74 6c 65 24 |(.title$|,.title$|
|00005d10| 2c 22 2c 22 29 2b 31 29 | 29 0d 1e fa 22 74 69 74 |,",")+1)|)..."tit|
|00005d20| 6c 65 24 3d c0 74 69 74 | 6c 65 24 2c a7 74 69 74 |le$=.tit|le$,.tit|
|00005d30| 6c 65 24 2c 22 2c 22 29 | 2d 31 29 0d 1f 04 09 69 |le$,",")|-1)....i|
|00005d40| 24 3d 6d 24 0d 1f 0e 0a | 6e 6f 69 25 3d 30 0d 1f |$=m$....|noi%=0..|
|00005d50| 18 05 f5 0d 1f 22 23 e7 | 20 c0 69 24 2c 31 29 3d |....."#.| .i$,1)=|
|00005d60| 22 5b 22 20 69 24 3d c1 | 69 24 2c a7 69 24 2c 22 |"[" i$=.|i$,.i$,"|
|00005d70| 5d 22 29 2b 31 29 0d 1f | 2c 0b 6e 6f 69 25 2b 3d |]")+1)..|,.noi%+=|
|00005d80| 31 0d 1f 36 16 69 24 3d | c1 69 24 2c a7 69 24 2c |1..6.i$=|.i$,.i$,|
|00005d90| 22 2c 22 29 2b 31 29 0d | 1f 40 0b fd 20 69 24 3d |",")+1).|.@.. i$=|
|00005da0| 22 22 0d 1f 4a 18 6e 65 | 78 74 25 3d 6d 62 25 2b |""..J.ne|xt%=mb%+|
|00005db0| 32 38 2b 32 34 2a 6e 6f | 69 25 0d 1f 54 10 24 6d |28+24*no|i%..T.$m|
|00005dc0| 62 25 3d c4 31 32 2c bd | 30 29 0d 1f 5e 14 24 6d |b%=.12,.|0)..^.$m|
|00005dd0| 62 25 3d c0 74 69 74 6c | 65 24 2c 31 31 29 0d 1f |b%=.titl|e$,11)..|
|00005de0| 68 15 6d 62 25 3f 31 32 | 3d 37 3a 6d 62 25 3f 31 |h.mb%?12|=7:mb%?1|
|00005df0| 33 3d 32 0d 1f 72 15 6d | 62 25 3f 31 34 3d 37 3a |3=2..r.m|b%?14=7:|
|00005e00| 6d 62 25 3f 31 35 3d 30 | 0d 1f 7c 1b 6d 62 25 21 |mb%?15=0|..|.mb%!|
|00005e10| 31 36 3d 77 69 64 74 68 | 25 3a 6d 62 25 21 32 30 |16=width|%:mb%!20|
|00005e20| 3d 34 30 0d 1f 86 16 6d | 62 25 21 32 34 3d 30 3a |=40....m|b%!24=0:|
|00005e30| 70 25 3d 6d 62 25 2b 32 | 38 0d 1f 90 05 f5 0d 1f |p%=mb%+2|8.......|
|00005e40| 9a 21 74 69 63 6b 3d 30 | 3a 77 72 69 74 65 3d 30 |.!tick=0|:write=0|
|00005e50| 3a 6c 69 6e 65 3d 30 3a | 73 68 61 64 65 3d 30 0d |:line=0:|shade=0.|
|00005e60| 1f a4 19 73 75 62 3d 2d | 31 3a 66 6c 61 67 3d 26 |...sub=-|1:flag=&|
|00005e70| 30 37 30 31 30 30 32 31 | 0d 1f ae 50 e7 20 c0 6d |07010021|...P. .m|
|00005e80| 24 2c 31 29 3d 22 5b 22 | 20 8c 20 6d 24 3d c1 6d |$,1)="["| . m$=.m|
|00005e90| 24 2c 32 29 3a 63 6f 64 | 65 24 3d c0 6d 24 2c a7 |$,2):cod|e$=.m$,.|
|00005ea0| 6d 24 2c 22 5d 22 29 2d | 31 29 3a 6d 24 3d c1 6d |m$,"]")-|1):m$=.m|
|00005eb0| 24 2c a7 6d 24 2c 22 5d | 22 29 2b 31 29 20 8b 20 |$,.m$,"]|")+1) . |
|00005ec0| 63 6f 64 65 24 3d 22 22 | 0d 1f b8 19 e7 20 63 6f |code$=""|..... co|
|00005ed0| 64 65 24 3d 22 4f 4e 22 | 20 8c 20 74 69 63 6b 3d |de$="ON"| . tick=|
|00005ee0| 31 0d 1f c2 1a e7 20 63 | 6f 64 65 24 3d 22 4f 46 |1..... c|ode$="OF|
|00005ef0| 46 22 20 8c 20 74 69 63 | 6b 3d 30 0d 1f cc 26 e7 |F" . tic|k=0...&.|
|00005f00| 20 63 6f 64 65 24 3d 22 | 53 48 41 44 45 22 20 8c | code$="|SHADE" .|
|00005f10| 20 73 68 61 64 65 3d 31 | 3a 63 6f 64 65 24 3d 22 | shade=1|:code$="|
|00005f20| 22 0d 1f d6 1e e7 20 63 | 6f 64 65 24 3d 22 4e 53 |"..... c|ode$="NS|
|00005f30| 48 41 44 45 22 20 8c 20 | 73 68 61 64 65 3d 30 0d |HADE" . |shade=0.|
|00005f40| 1f e0 1d e7 20 c0 63 6f | 64 65 24 2c 31 29 3d 22 |.... .co|de$,1)="|
|00005f50| 57 22 20 8c 20 77 72 69 | 74 65 3d 31 0d 1f ea 15 |W" . wri|te=1....|
|00005f60| e7 20 c0 63 6f 64 65 24 | 2c 31 29 3d 22 53 22 20 |. .code$|,1)="S" |
|00005f70| 8c 0d 1f f4 13 63 6f 64 | 65 24 3d c1 63 6f 64 65 |.....cod|e$=.code|
|00005f80| 24 2c 33 29 0d 1f fe 24 | 73 75 62 3d a4 64 65 66 |$,3)...$|sub=.def|
|00005f90| 69 6e 65 5f 6d 65 6e 75 | 28 a0 28 63 6f 64 65 24 |ine_menu|(.(code$|
|00005fa0| 29 2c 6e 65 78 74 25 29 | 0d 20 08 05 cd 0d 20 12 |),next%)|. .... .|
|00005fb0| 15 e7 20 c0 63 6f 64 65 | 24 2c 31 29 3d 22 49 22 |.. .code|$,1)="I"|
|00005fc0| 20 8c 0d 20 1c 13 63 6f | 64 65 24 3d c1 63 6f 64 | .. ..co|de$=.cod|
|00005fd0| 65 24 2c 33 29 0d 20 26 | 10 73 75 62 3d a0 28 63 |e$,3). &|.sub=.(c|
|00005fe0| 6f 64 65 24 29 0d 20 30 | 05 cd 0d 20 3a 23 e7 20 |ode$). 0|... :#. |
|00005ff0| c0 6d 24 2c 31 29 3d 22 | 2d 22 20 8c 20 6c 69 6e |.m$,1)="|-" . lin|
|00006000| 65 3d 31 3a 6d 24 3d c1 | 6d 24 2c 32 29 0d 20 44 |e=1:m$=.|m$,2). D|
|00006010| 0d e7 20 77 72 69 74 65 | 20 8c 0d 20 4e 13 63 6f |.. write| .. N.co|
|00006020| 64 65 24 3d c1 63 6f 64 | 65 24 2c 33 29 0d 20 58 |de$=.cod|e$,3). X|
|00006030| 22 70 25 21 31 32 3d a0 | 28 c0 63 6f 64 65 24 2c |"p%!12=.|(.code$,|
|00006040| a7 63 6f 64 65 24 2c 22 | 2c 22 29 2d 31 29 29 0d |.code$,"|,")-1)).|
|00006050| 20 62 0c 70 25 21 31 36 | 3d 2d 31 0d 20 6c 22 70 | b.p%!16|=-1. l"p|
|00006060| 25 21 32 30 3d a0 28 c1 | 63 6f 64 65 24 2c a7 63 |%!20=.(.|code$,.c|
|00006070| 6f 64 65 24 2c 22 2c 22 | 29 2b 31 29 29 0d 20 76 |ode$,","|)+1)). v|
|00006080| 16 6d 24 3d c1 6d 24 2c | a7 6d 24 2c 22 2c 22 29 |.m$=.m$,|.m$,",")|
|00006090| 2b 31 29 0d 20 80 05 cc | 0d 20 8a 19 64 61 74 61 |+1). ...|. ..data|
|000060a0| 24 3d c0 6d 24 2c a7 6d | 24 2c 22 2c 22 29 2d 31 |$=.m$,.m|$,",")-1|
|000060b0| 29 0d 20 94 2a 24 28 70 | 25 2b 31 32 29 3d c0 64 |). .*$(p|%+12)=.d|
|000060c0| 61 74 61 24 2c 31 31 29 | 3a 6d 24 3d c1 6d 24 2c |ata$,11)|:m$=.m$,|
|000060d0| a7 6d 24 2c 22 2c 22 29 | 2b 31 29 0d 20 9e 05 cd |.m$,",")|+1). ...|
|000060e0| 0d 20 a8 1e e7 20 77 72 | 69 74 65 20 8c 20 66 6c |. ... wr|ite . fl|
|000060f0| 61 67 3d 66 6c 61 67 20 | 84 20 26 31 30 30 0d 20 |ag=flag |. &100. |
|00006100| b2 1b 66 6c 61 67 3d 66 | 6c 61 67 20 84 20 28 73 |..flag=f|lag . (s|
|00006110| 68 61 64 65 3c 3c 32 32 | 29 0d 20 bc 36 70 25 21 |hade<<22|). .6p%!|
|00006120| 30 3d 74 69 63 6b 20 84 | 20 28 6c 69 6e 65 3c 3c |0=tick .| (line<<|
|00006130| 31 29 20 84 20 28 77 72 | 69 74 65 3c 3c 32 29 20 |1) . (wr|ite<<2) |
|00006140| 84 20 28 94 28 6d 24 3d | 22 22 29 3c 3c 37 29 0d |. (.(m$=|"")<<7).|
|00006150| 20 c6 16 70 25 21 34 3d | 73 75 62 3a 70 25 21 38 | ..p%!4=|sub:p%!8|
|00006160| 3d 66 6c 61 67 0d 20 d0 | 0a 70 25 2b 3d 32 34 0d |=flag. .|.p%+=24.|
|00006170| 20 da 0b fd 20 6d 24 3d | 22 22 0d 20 e4 08 3d 6d | ... m$=|"". ..=m|
|00006180| 62 25 0d 20 ee 05 3a 0d | 20 f8 1c dd f2 6f 70 65 |b%. ..:.| ....ope|
|00006190| 6e 5f 6d 65 6e 75 28 6d | 62 25 2c 6d 78 25 2c 6d |n_menu(m|b%,mx%,m|
|000061a0| 79 25 29 0d 21 02 25 c8 | 99 20 22 57 69 6d 70 5f |y%).!.%.|. "Wimp_|
|000061b0| 43 72 65 61 74 65 4d 65 | 6e 75 22 2c 2c 6d 62 25 |CreateMe|nu",,mb%|
|000061c0| 2c 6d 78 25 2c 6d 79 25 | 0d 21 0c 35 63 75 72 72 |,mx%,my%|.!.5curr|
|000061d0| 65 6e 74 5f 6d 65 6e 75 | 25 3d 6d 62 25 3a 63 75 |ent_menu|%=mb%:cu|
|000061e0| 72 72 5f 6d 65 6e 75 78 | 25 3d 6d 78 25 3a 63 75 |rr_menux|%=mx%:cu|
|000061f0| 72 72 5f 6d 65 6e 75 79 | 25 3d 6d 79 25 0d 21 16 |rr_menuy|%=my%.!.|
|00006200| 05 e1 0d ff             |                         |....    |        |
+--------+-------------------------+-------------------------+--------+--------+