home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1990-08-17 | 17.9 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 4e f4 20 3e 20 | 21 52 75 6e 49 6d 61 67 |...N. > |!RunImag|
|00000010| 65 20 45 64 69 74 65 64 | 20 62 79 20 4d 69 6b 65 |e Edited| by Mike|
|00000020| 20 47 72 65 67 6f 72 79 | 20 6f 6e 20 31 37 74 68 | Gregory| on 17th|
|00000030| 20 41 75 67 75 73 74 20 | 31 39 39 30 20 74 6f 20 | August |1990 to |
|00000040| 75 73 65 20 57 69 6d 70 | 24 53 63 72 61 70 0d 00 |use Wimp|$Scrap..|
|00000050| 14 05 f4 0d 00 1e 1f 76 | 65 72 73 69 6f 6e 24 3d |.......v|ersion$=|
|00000060| 22 30 2e 38 34 20 28 31 | 36 2d 53 65 70 2d 38 39 |"0.84 (1|6-Sep-89|
|00000070| 29 22 0d 00 28 0f f2 69 | 6e 69 74 69 61 6c 69 73 |)"..(..i|nitialis|
|00000080| 65 0d 00 32 0e ee 20 85 | 20 f2 65 72 72 6f 72 0d |e..2.. .| .error.|
|00000090| 00 3c 05 f5 0d 00 46 1d | 20 c8 99 22 57 69 6d 70 |.<....F.| .."Wimp|
|000000a0| 5f 50 6f 6c 6c 22 2c 31 | 2c 71 31 25 20 b8 20 72 |_Poll",1|,q1% . r|
|000000b0| 25 0d 00 50 0c 20 c8 8e | 20 72 25 20 ca 0d 00 5a |%..P. ..| r% ...Z|
|000000c0| 26 20 c9 20 32 20 20 20 | 20 3a 20 c8 99 22 57 69 |& . 2 | : .."Wi|
|000000d0| 6d 70 5f 4f 70 65 6e 57 | 69 6e 64 6f 77 22 2c 2c |mp_OpenW|indow",,|
|000000e0| 71 31 25 0d 00 64 27 20 | c9 20 33 20 20 20 20 3a |q1%..d' |. 3 :|
|000000f0| 20 c8 99 22 57 69 6d 70 | 5f 43 6c 6f 73 65 57 69 | .."Wimp|_CloseWi|
|00000100| 6e 64 6f 77 22 2c 2c 71 | 31 25 0d 00 6e 29 20 20 |ndow",,q|1%..n) |
|00000110| 20 20 20 20 20 20 20 20 | 20 20 20 e7 21 71 31 25 | | .!q1%|
|00000120| 3d 73 61 76 65 25 20 f2 | 69 6e 69 74 5f 73 79 73 |=save% .|init_sys|
|00000130| 74 65 6d 0d 00 78 19 20 | c9 20 36 20 20 20 20 3a |tem..x. |. 6 :|
|00000140| 20 f2 6d 6f 75 73 65 63 | 6c 69 63 6b 0d 00 82 19 | .mousec|lick....|
|00000150| 20 c9 20 37 20 20 20 20 | 3a 20 f2 64 65 63 6f 64 | . 7 |: .decod|
|00000160| 65 64 72 61 67 0d 00 8c | 17 20 c9 20 38 20 20 20 |edrag...|. . 8 |
|00000170| 20 3a 20 f2 6b 65 79 70 | 72 65 73 73 0d 00 96 19 | : .keyp|ress....|
|00000180| 20 c9 20 39 20 20 20 20 | 3a 20 f2 6d 65 6e 75 73 | . 9 |: .menus|
|00000190| 65 6c 65 63 74 0d 00 a0 | 1a 20 c9 20 31 37 2c 31 |elect...|. . 17,1|
|000001a0| 38 3a 20 f2 72 65 63 65 | 69 76 65 28 72 25 29 0d |8: .rece|ive(r%).|
|000001b0| 00 aa 12 20 c9 20 31 39 | 20 20 20 3a 20 f2 61 63 |... . 19| : .ac|
|000001c0| 6b 0d 00 b4 05 cb 0d 00 | be 07 fd 20 a3 0d 00 c8 |k.......|... ....|
|000001d0| 05 e0 0d 00 d2 05 3a 0d | 00 dc 10 dd f2 69 6e 69 |......:.|.....ini|
|000001e0| 74 69 61 6c 69 73 65 0d | 00 e6 24 f4 20 2a 2a 2a |tialise.|..$. ***|
|000001f0| 2a 2a 20 64 65 63 6c 61 | 72 65 20 64 61 74 61 20 |** decla|re data |
|00000200| 62 6c 6f 63 6b 73 20 75 | 73 65 64 0d 00 f0 3c f4 |blocks u|sed...<.|
|00000210| 20 31 29 20 77 6f 72 6b | 73 70 61 63 65 20 66 6f | 1) work|space fo|
|00000220| 72 20 69 6e 64 69 72 65 | 63 74 65 64 20 69 63 6f |r indire|cted ico|
|00000230| 6e 73 20 69 6e 20 77 69 | 6e 64 6f 77 73 20 26 20 |ns in wi|ndows & |
|00000240| 77 69 6e 64 6f 77 73 0d | 00 fa 2f 6d 61 78 77 73 |windows.|../maxws|
|00000250| 25 3d 26 31 34 30 30 3a | de 20 77 73 25 20 6d 61 |%=&1400:|. ws% ma|
|00000260| 78 77 73 25 3a 77 73 65 | 6e 64 25 3d 77 73 25 2b |xws%:wse|nd%=ws%+|
|00000270| 6d 61 78 77 73 25 0d 01 | 04 25 f4 20 32 29 20 64 |maxws%..|.%. 2) d|
|00000280| 61 74 61 20 62 6c 6f 63 | 6b 20 66 6f 72 20 77 69 |ata bloc|k for wi|
|00000290| 6d 70 20 6d 65 73 73 61 | 67 65 73 0d 01 0e 0d de |mp messa|ges.....|
|000002a0| 20 71 31 25 20 32 35 36 | 0d 01 18 2c f4 20 33 29 | q1% 256|...,. 3)|
|000002b0| 20 64 61 74 61 20 62 6c | 6f 63 6b 20 66 6f 72 20 | data bl|ock for |
|000002c0| 67 65 6e 65 72 61 6c 20 | 70 75 72 70 6f 73 65 20 |general |purpose |
|000002d0| 75 73 65 73 0d 01 22 0e | de 20 71 32 25 20 31 30 |uses..".|. q2% 10|
|000002e0| 32 34 0d 01 2c 26 f4 20 | 34 29 20 64 61 74 61 20 |24..,&. |4) data |
|000002f0| 62 6c 6f 63 6b 20 66 6f | 72 20 6d 65 6e 75 20 73 |block fo|r menu s|
|00000300| 74 72 75 63 74 75 72 65 | 0d 01 36 30 de 20 6d 65 |tructure|..60. me|
|00000310| 6e 75 66 72 65 65 25 20 | 26 33 37 30 3a 6d 65 6e |nufree% |&370:men|
|00000320| 75 65 6e 64 25 20 3d 20 | 6d 65 6e 75 66 72 65 65 |uend% = |menufree|
|00000330| 25 20 2b 20 26 33 37 30 | 0d 01 40 28 f4 20 2a 2a |% + &370|..@(. **|
|00000340| 2a 2a 2a 20 69 6e 69 74 | 69 61 6c 69 73 65 20 70 |*** init|ialise p|
|00000350| 72 6f 67 72 61 6d 20 61 | 73 20 61 20 74 61 73 6b |rogram a|s a task|
|00000360| 0d 01 4a 2e c8 99 22 57 | 69 6d 70 5f 49 6e 69 74 |..J..."W|imp_Init|
|00000370| 69 61 6c 69 73 65 22 2c | 32 30 30 2c 26 34 42 35 |ialise",|200,&4B5|
|00000380| 33 34 31 35 34 2c 22 42 | 61 73 54 78 74 22 0d 01 |34154,"B|asTxt"..|
|00000390| 54 20 f4 20 2a 2a 2a 2a | 2a 20 67 65 74 20 77 69 |T . ****|* get wi|
|000003a0| 6e 64 6f 77 20 74 65 6d | 70 6c 61 74 65 73 0d 01 |ndow tem|plates..|
|000003b0| 5e 33 c8 99 22 57 69 6d | 70 5f 4f 70 65 6e 54 65 |^3.."Wim|p_OpenTe|
|000003c0| 6d 70 6c 61 74 65 22 2c | 2c 22 3c 42 61 73 54 78 |mplate",|,"<BasTx|
|000003d0| 74 24 44 69 72 3e 2e 54 | 65 6d 70 6c 61 74 65 73 |t$Dir>.T|emplates|
|000003e0| 22 0d 01 68 1e f4 20 2a | 2a 2a 2a 2a 20 69 6e 66 |"..h.. *|**** inf|
|000003f0| 6f 72 6d 61 74 69 6f 6e | 20 77 69 6e 64 6f 77 0d |ormation| window.|
|00000400| 01 72 3d c8 99 22 57 69 | 6d 70 5f 4c 6f 61 64 54 |.r=.."Wi|mp_LoadT|
|00000410| 65 6d 70 6c 61 74 65 22 | 2c 2c 71 32 25 2c 77 73 |emplate"|,,q2%,ws|
|00000420| 25 2c 77 73 65 6e 64 25 | 2c 2d 31 2c 22 69 6e 66 |%,wsend%|,-1,"inf|
|00000430| 6f 22 2c 30 20 b8 20 2c | 2c 77 73 25 0d 01 7c 1e |o",0 . ,|,ws%..|.|
|00000440| 24 28 71 32 25 21 28 38 | 38 2b 39 36 2b 32 30 29 |$(q2%!(8|8+96+20)|
|00000450| 29 3d 76 65 72 73 69 6f | 6e 24 0d 01 86 26 c8 99 |)=versio|n$...&..|
|00000460| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|00000470| 6f 77 22 2c 2c 71 32 25 | 20 b8 20 69 6e 66 6f 25 |ow",,q2%| . info%|
|00000480| 0d 01 90 23 f4 20 2a 2a | 2a 2a 2a 20 73 61 76 65 |...#. **|*** save|
|00000490| 20 61 20 74 65 78 74 20 | 66 69 6c 65 20 77 69 6e | a text |file win|
|000004a0| 64 6f 77 0d 01 9a 40 c8 | 99 22 57 69 6d 70 5f 4c |dow...@.|."Wimp_L|
|000004b0| 6f 61 64 54 65 6d 70 6c | 61 74 65 22 2c 2c 71 32 |oadTempl|ate",,q2|
|000004c0| 25 2c 77 73 25 2c 77 73 | 65 6e 64 25 2c 2d 31 2c |%,ws%,ws|end%,-1,|
|000004d0| 22 73 61 76 65 66 66 66 | 22 2c 30 20 b8 20 2c 2c |"savefff|",0 . ,,|
|000004e0| 77 73 25 0d 01 a4 1f 66 | 69 6c 65 6e 61 6d 65 66 |ws%....f|ilenamef|
|000004f0| 66 66 25 3d 71 32 25 21 | 28 38 38 2b 36 34 2b 32 |ff%=q2%!|(88+64+2|
|00000500| 30 29 0d 01 ae 29 c8 99 | 22 57 69 6d 70 5f 43 72 |0)...)..|"Wimp_Cr|
|00000510| 65 61 74 65 57 69 6e 64 | 6f 77 22 2c 2c 71 32 25 |eateWind|ow",,q2%|
|00000520| 20 b8 20 73 61 76 65 66 | 66 66 25 0d 01 b8 24 f4 | . savef|ff%...$.|
|00000530| 20 2a 2a 2a 2a 2a 20 73 | 61 76 65 20 61 20 42 41 | ***** s|ave a BA|
|00000540| 53 49 43 20 66 69 6c 65 | 20 77 69 6e 64 6f 77 0d |SIC file| window.|
|00000550| 01 c2 40 c8 99 22 57 69 | 6d 70 5f 4c 6f 61 64 54 |..@.."Wi|mp_LoadT|
|00000560| 65 6d 70 6c 61 74 65 22 | 2c 2c 71 32 25 2c 77 73 |emplate"|,,q2%,ws|
|00000570| 25 2c 77 73 65 6e 64 25 | 2c 2d 31 2c 22 73 61 76 |%,wsend%|,-1,"sav|
|00000580| 65 66 66 62 22 2c 30 20 | b8 20 2c 2c 77 73 25 0d |effb",0 |. ,,ws%.|
|00000590| 01 cc 1f 66 69 6c 65 6e | 61 6d 65 66 66 62 25 3d |...filen|ameffb%=|
|000005a0| 71 32 25 21 28 38 38 2b | 36 34 2b 32 30 29 0d 01 |q2%!(88+|64+20)..|
|000005b0| d6 29 c8 99 22 57 69 6d | 70 5f 43 72 65 61 74 65 |.).."Wim|p_Create|
|000005c0| 57 69 6e 64 6f 77 22 2c | 2c 71 32 25 20 b8 20 73 |Window",|,q2% . s|
|000005d0| 61 76 65 66 66 62 25 0d | 01 e0 1a f4 20 2a 2a 2a |aveffb%.|.... ***|
|000005e0| 2a 2a 20 6f 70 74 69 6f | 6e 73 20 77 69 6e 64 6f |** optio|ns windo|
|000005f0| 77 0d 01 ea 40 c8 99 22 | 57 69 6d 70 5f 4c 6f 61 |w...@.."|Wimp_Loa|
|00000600| 64 54 65 6d 70 6c 61 74 | 65 22 2c 2c 71 32 25 2c |dTemplat|e",,q2%,|
|00000610| 77 73 25 2c 77 73 65 6e | 64 25 2c 2d 31 2c 22 6f |ws%,wsen|d%,-1,"o|
|00000620| 70 74 69 6f 6e 73 22 2c | 30 20 b8 20 2c 2c 77 73 |ptions",|0 . ,,ws|
|00000630| 25 0d 01 f4 29 c8 99 22 | 57 69 6d 70 5f 43 72 65 |%...).."|Wimp_Cre|
|00000640| 61 74 65 57 69 6e 64 6f | 77 22 2c 2c 71 32 25 20 |ateWindo|w",,q2% |
|00000650| b8 20 6f 70 74 69 6f 6e | 73 25 0d 01 fe 1a c8 99 |. option|s%......|
|00000660| 22 57 69 6d 70 5f 43 6c | 6f 73 65 54 65 6d 70 6c |"Wimp_Cl|oseTempl|
|00000670| 61 74 65 22 0d 02 08 1b | f4 20 2a 2a 2a 2a 2a 20 |ate"....|. ***** |
|00000680| 63 72 65 61 74 65 20 74 | 68 65 20 6d 65 6e 75 0d |create t|he menu.|
|00000690| 02 12 15 6d 61 69 6e 6d | 65 6e 75 25 3d a4 63 72 |...mainm|enu%=.cr|
|000006a0| 6d 65 6e 75 0d 02 1c 2f | 20 dc 20 22 23 42 61 73 |menu.../| . "#Bas|
|000006b0| 54 78 74 2c 49 6e 66 6f | 2c 4f 70 74 69 6f 6e 73 |Txt,Info|,Options|
|000006c0| 2c 53 61 76 65 20 6f 70 | 74 69 6f 6e 73 2c 51 75 |,Save op|tions,Qu|
|000006d0| 69 74 22 0d 02 26 24 20 | f2 61 74 74 61 63 68 5f |it"..&$ |.attach_|
|000006e0| 6d 65 6e 75 28 6d 61 69 | 6e 6d 65 6e 75 25 2c 30 |menu(mai|nmenu%,0|
|000006f0| 2c 69 6e 66 6f 25 29 0d | 02 30 27 20 f2 61 74 74 |,info%).|.0' .att|
|00000700| 61 63 68 5f 6d 65 6e 75 | 28 6d 61 69 6e 6d 65 6e |ach_menu|(mainmen|
|00000710| 75 25 2c 31 2c 6f 70 74 | 69 6f 6e 73 25 29 0d 02 |u%,1,opt|ions%)..|
|00000720| 3a 2b f4 20 2a 2a 2a 2a | 2a 20 69 6e 69 74 69 61 |:+. ****|* initia|
|00000730| 6c 69 73 65 20 74 68 65 | 20 67 6c 6f 62 61 6c 20 |lise the| global |
|00000740| 76 61 72 69 61 62 6c 65 | 73 0d 02 44 10 f2 69 6e |variable|s..D..in|
|00000750| 69 74 5f 73 79 73 74 65 | 6d 0d 02 4e 0e 73 61 76 |it_syste|m..N.sav|
|00000760| 65 72 65 66 25 3d 30 0d | 02 58 39 73 61 76 65 25 |eref%=0.|.X9save%|
|00000770| 3d 73 61 76 65 66 66 62 | 25 3a f4 20 67 6c 6f 62 |=saveffb|%:. glob|
|00000780| 61 6c 20 72 65 66 65 72 | 65 6e 63 65 20 74 6f 20 |al refer|ence to |
|00000790| 73 61 76 65 20 77 69 6e | 64 6f 77 20 75 73 65 64 |save win|dow used|
|000007a0| 0d 02 62 45 66 69 6c 65 | 6e 61 6d 65 25 3d 66 69 |..bEfile|name%=fi|
|000007b0| 6c 65 6e 61 6d 65 66 66 | 62 25 3a f4 20 67 6c 6f |lenameff|b%:. glo|
|000007c0| 62 61 6c 20 72 65 66 65 | 72 65 6e 63 65 20 74 6f |bal refe|rence to|
|000007d0| 20 66 69 6c 65 6e 61 6d | 65 20 62 75 66 66 65 72 | filenam|e buffer|
|000007e0| 20 75 73 65 64 0d 02 6c | 11 65 72 72 6f 72 5f 66 | used..l|.error_f|
|000007f0| 6c 61 67 25 3d 33 0d 02 | 76 10 f2 67 65 74 6d 6f |lag%=3..|v..getmo|
|00000800| 64 65 69 6e 66 6f 0d 02 | 80 39 f4 20 2a 2a 2a 2a |deinfo..|.9. ****|
|00000810| 2a 20 69 6e 69 74 69 61 | 6c 69 73 65 20 74 68 65 |* initia|lise the|
|00000820| 20 66 6c 61 67 73 20 69 | 66 20 61 20 63 68 6f 69 | flags i|f a choi|
|00000830| 63 65 73 20 66 69 6c 65 | 20 65 78 69 73 74 73 0d |ces file| exists.|
|00000840| 02 8a 21 63 25 3d 8e 28 | 22 3c 42 61 73 54 78 74 |..!c%=.(|"<BasTxt|
|00000850| 24 44 69 72 3e 2e 21 43 | 68 6f 69 63 65 73 22 29 |$Dir>.!C|hoices")|
|00000860| 0d 02 94 0c e7 63 25 3c | 3e 30 20 8c 0d 02 9e 2b |.....c%<|>0 ....+|
|00000870| 20 21 71 31 25 3d 6f 70 | 74 69 6f 6e 73 25 3a 71 | !q1%=op|tions%:q|
|00000880| 31 25 21 38 3d 31 3c 3c | 32 31 3a 71 31 25 21 31 |1%!8=1<<|21:q1%!1|
|00000890| 32 3d 31 3c 3c 32 31 0d | 02 a8 21 20 64 25 3d 9a |2=1<<21.|..! d%=.|
|000008a0| 23 63 25 3a f4 20 73 74 | 72 69 70 20 6c 69 6e 65 |#c%:. st|rip line|
|000008b0| 20 6e 75 6d 62 65 72 73 | 0d 02 b2 2b 20 e7 64 25 | numbers|...+ .d%|
|000008c0| 20 71 31 25 21 34 3d 32 | 3a c8 99 22 57 69 6d 70 | q1%!4=2|:.."Wimp|
|000008d0| 5f 53 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_SetIcon|State",,|
|000008e0| 71 31 25 0d 02 bc 22 20 | 64 25 3d 9a 23 63 25 3a |q1%..." |d%=.#c%:|
|000008f0| f4 20 73 65 6e 64 20 74 | 65 78 74 20 74 6f 20 65 |. send t|ext to e|
|00000900| 64 69 74 6f 72 0d 02 c6 | 2b 20 e7 64 25 20 71 31 |ditor...|+ .d% q1|
|00000910| 25 21 34 3d 33 3a c8 99 | 22 57 69 6d 70 5f 53 65 |%!4=3:..|"Wimp_Se|
|00000920| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 71 31 25 |tIconSta|te",,q1%|
|00000930| 0d 02 d0 1e 20 64 25 3d | 9a 23 63 25 3a f4 20 66 |.... d%=|.#c%:. f|
|00000940| 61 73 74 20 63 6f 6e 76 | 65 72 73 69 6f 6e 0d 02 |ast conv|ersion..|
|00000950| da 2b 20 e7 64 25 20 71 | 31 25 21 34 3d 34 3a c8 |.+ .d% q|1%!4=4:.|
|00000960| 99 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 |."Wimp_S|etIconSt|
|00000970| 61 74 65 22 2c 2c 71 31 | 25 0d 02 e4 2b 20 64 25 |ate",,q1|%...+ d%|
|00000980| 3d 9a 23 63 25 3a f4 20 | 73 61 76 65 20 70 72 6f |=.#c%:. |save pro|
|00000990| 67 72 61 6d 20 69 66 20 | 6e 61 6d 65 20 70 72 65 |gram if |name pre|
|000009a0| 73 65 6e 74 0d 02 ee 2b | 20 e7 64 25 20 71 31 25 |sent...+| .d% q1%|
|000009b0| 21 34 3d 37 3a c8 99 22 | 57 69 6d 70 5f 53 65 74 |!4=7:.."|Wimp_Set|
|000009c0| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 71 31 25 0d |IconStat|e",,q1%.|
|000009d0| 02 f8 09 20 d9 23 63 25 | 0d 03 02 05 cd 0d 03 0c |... .#c%|........|
|000009e0| 30 f4 20 2a 2a 2a 2a 2a | 20 61 6e 64 20 69 6e 73 |0. *****| and ins|
|000009f0| 74 61 6c 6c 20 74 68 65 | 20 69 63 6f 6e 20 6f 6e |tall the| icon on|
|00000a00| 20 74 68 65 20 69 63 6f | 6e 20 62 61 72 0d 03 16 | the ico|n bar...|
|00000a10| 3c 21 71 31 25 3d 2d 31 | 3a 71 31 25 21 34 3d 30 |<!q1%=-1|:q1%!4=0|
|00000a20| 3a 71 31 25 21 38 3d 30 | 3a 71 31 25 21 31 32 3d |:q1%!8=0|:q1%!12=|
|00000a30| 36 39 3a 71 31 25 21 31 | 36 3d 36 38 3a 71 31 25 |69:q1%!1|6=68:q1%|
|00000a40| 21 32 30 3d 26 33 30 30 | 32 0d 03 20 36 24 28 71 |!20=&300|2.. 6$(q|
|00000a50| 31 25 2b 32 34 29 3d 22 | 21 62 61 73 74 78 74 22 |1%+24)="|!bastxt"|
|00000a60| 3a c8 99 22 57 69 6d 70 | 5f 43 72 65 61 74 65 49 |:.."Wimp|_CreateI|
|00000a70| 63 6f 6e 22 2c 2c 71 31 | 25 20 b8 20 69 63 25 0d |con",,q1|% . ic%.|
|00000a80| 03 2a 0e f2 66 69 6e 64 | 5f 65 64 69 74 0d 03 34 |.*..find|_edit..4|
|00000a90| 05 e1 0d 03 3e 05 3a 0d | 03 48 11 dd f2 69 6e 69 |....>.:.|.H...ini|
|00000aa0| 74 5f 73 79 73 74 65 6d | 0d 03 52 20 2a 25 52 65 |t_system|..R *%Re|
|00000ab0| 6d 6f 76 65 20 3c 42 61 | 73 54 78 74 24 44 69 72 |move <Ba|sTxt$Dir|
|00000ac0| 3e 2e 53 63 72 69 70 74 | 0d 03 5c 20 2a 25 52 65 |>.Script|..\ *%Re|
|00000ad0| 6d 6f 76 65 20 3c 42 61 | 73 54 78 74 24 44 69 72 |move <Ba|sTxt$Dir|
|00000ae0| 3e 2e 4f 75 74 70 75 74 | 0d 03 66 20 2a 25 52 65 |>.Output|..f *%Re|
|00000af0| 6d 6f 76 65 20 3c 42 61 | 73 54 78 74 24 44 69 72 |move <Ba|sTxt$Dir|
|00000b00| 3e 2e 42 61 73 54 78 74 | 0d 03 70 05 e1 0d 03 7a |>.BasTxt|..p....z|
|00000b10| 05 3a 0d 03 84 11 dd f2 | 67 65 74 6d 6f 64 65 69 |.:......|getmodei|
|00000b20| 6e 66 6f 0d 03 8e 0d 71 | 31 25 21 30 20 3d 20 34 |nfo....q|1%!0 = 4|
|00000b30| 0d 03 98 0d 71 31 25 21 | 34 20 3d 20 35 0d 03 a2 |....q1%!|4 = 5...|
|00000b40| 0e 71 31 25 21 38 20 3d | 20 31 31 0d 03 ac 0e 71 |.q1%!8 =| 11....q|
|00000b50| 31 25 21 31 32 3d 20 31 | 32 0d 03 b6 0e 71 31 25 |1%!12= 1|2....q1%|
|00000b60| 21 31 36 3d 20 2d 31 0d | 03 c0 26 c8 99 22 4f 53 |!16= -1.|..&.."OS|
|00000b70| 5f 52 65 61 64 56 64 75 | 56 61 72 69 61 62 6c 65 |_ReadVdu|Variable|
|00000b80| 73 22 2c 71 31 25 2c 71 | 31 25 2b 32 30 0d 03 ca |s",q1%,q|1%+20...|
|00000b90| 13 64 78 25 3d 31 3c 3c | 28 71 31 25 21 32 30 29 |.dx%=1<<|(q1%!20)|
|00000ba0| 0d 03 d4 13 64 79 25 3d | 31 3c 3c 28 71 31 25 21 |....dy%=|1<<(q1%!|
|00000bb0| 32 34 29 0d 03 de 19 73 | 63 72 78 31 25 3d 28 71 |24)....s|crx1%=(q|
|00000bc0| 31 25 21 32 38 2b 31 29 | 2a 64 78 25 0d 03 e8 19 |1%!28+1)|*dx%....|
|00000bd0| 73 63 72 79 31 25 3d 28 | 71 31 25 21 33 32 2b 31 |scry1%=(|q1%!32+1|
|00000be0| 29 2a 64 79 25 0d 03 f2 | 05 e1 0d 03 fc 05 3a 0d |)*dy%...|......:.|
|00000bf0| 04 06 0f dd f2 66 69 6e | 64 5f 65 64 69 74 0d 04 |.....fin|d_edit..|
|00000c00| 10 11 ea 20 69 25 2c 74 | 25 2c 72 25 2c 66 25 0d |... i%,t|%,r%,f%.|
|00000c10| 04 1a 13 65 64 69 74 5f | 74 61 73 6b 69 64 25 3d |...edit_|taskid%=|
|00000c20| 2d 31 0d 04 24 11 e3 69 | 25 3d 30 20 b8 20 69 63 |-1..$..i|%=0 . ic|
|00000c30| 25 2d 31 0d 04 2e 30 20 | 21 71 31 25 3d 2d 32 3a |%-1...0 |!q1%=-2:|
|00000c40| 71 31 25 21 34 3d 69 25 | 3a c8 99 22 57 69 6d 70 |q1%!4=i%|:.."Wimp|
|00000c50| 5f 47 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_GetIcon|State",,|
|00000c60| 71 31 25 0d 04 38 1a 20 | e7 28 71 31 25 21 32 34 |q1%..8. |.(q1%!24|
|00000c70| 20 80 20 31 3c 3c 32 33 | 29 3d 30 20 8c 0d 04 42 | . 1<<23|)=0 ...B|
|00000c80| 0e 20 20 71 31 25 21 31 | 32 3d 30 0d 04 4c 2e 20 |. q1%!1|2=0..L. |
|00000c90| 20 c8 99 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 | .."Wimp|_SendMes|
|00000ca0| 73 61 67 65 22 2c 31 39 | 2c 71 31 25 2c 2d 32 2c |sage",19|,q1%,-2,|
|00000cb0| 69 25 20 b8 20 2c 2c 74 | 25 0d 04 56 2e 20 20 21 |i% . ,,t|%..V. !|
|00000cc0| 71 31 25 3d 32 34 3a 71 | 31 25 21 31 32 3d 30 3a |q1%=24:q|1%!12=0:|
|00000cd0| 71 31 25 21 31 36 3d 26 | 34 30 30 43 36 3a 71 31 |q1%!16=&|400C6:q1|
|00000ce0| 25 21 32 30 3d 74 25 0d | 04 60 23 20 20 c8 99 22 |%!20=t%.|.`# .."|
|00000cf0| 57 69 6d 70 5f 53 65 6e | 64 4d 65 73 73 61 67 65 |Wimp_Sen|dMessage|
|00000d00| 22 2c 31 38 2c 71 31 25 | 2c 30 0d 04 6a 0a 20 20 |",18,q1%|,0..j. |
|00000d10| 66 25 3d a3 0d 04 74 07 | 20 20 f5 0d 04 7e 1f 20 |f%=...t.| ...~. |
|00000d20| 20 20 c8 99 22 57 69 6d | 70 5f 50 6f 6c 6c 22 2c | .."Wim|p_Poll",|
|00000d30| 31 2c 71 31 25 20 b8 20 | 72 25 0d 04 88 17 20 20 |1,q1% . |r%.... |
|00000d40| 20 e7 72 25 3d 31 37 20 | 84 20 72 25 3d 31 38 20 | .r%=17 |. r%=18 |
|00000d50| 8c 0d 04 92 1b 20 20 20 | 20 e7 71 31 25 21 31 36 |..... | .q1%!16|
|00000d60| 3d 26 34 30 30 43 37 20 | 66 25 3d b9 0d 04 9c 14 |=&400C7 |f%=.....|
|00000d70| 20 20 20 20 f2 72 65 63 | 65 69 76 65 28 72 25 29 | .rec|eive(r%)|
|00000d80| 0d 04 a6 08 20 20 20 cd | 0d 04 b0 0a 20 20 fd 20 |.... .|.... . |
|00000d90| 66 25 0d 04 ba 20 20 20 | e7 65 64 69 74 5f 74 61 |f%... |.edit_ta|
|00000da0| 73 6b 69 64 25 3c 3e 2d | 31 20 69 25 3d 69 63 25 |skid%<>-|1 i%=ic%|
|00000db0| 2d 31 0d 04 c4 06 20 cd | 0d 04 ce 05 ed 0d 04 d8 |-1.... .|........|
|00000dc0| 05 e1 0d 04 e2 05 3a 0d | 04 ec 10 dd f2 6d 6f 75 |......:.|.....mou|
|00000dd0| 73 65 63 6c 69 63 6b 0d | 04 f6 0d c8 8e 71 31 25 |seclick.|.....q1%|
|00000de0| 21 38 20 ca 0d 05 00 37 | c9 32 3a 20 20 20 e7 71 |!8 ....7|.2: .q|
|00000df0| 31 25 21 31 32 3d 2d 32 | 20 f2 64 6f 6d 65 6e 75 |1%!12=-2| .domenu|
|00000e00| 28 6d 61 69 6e 6d 65 6e | 75 25 2c 21 71 31 25 2d |(mainmen|u%,!q1%-|
|00000e10| 36 34 2c 39 36 2b 34 2a | 34 34 29 0d 05 0a 30 c9 |64,96+4*|44)...0.|
|00000e20| 34 3a 20 20 20 e7 71 31 | 25 21 31 32 3d 73 61 76 |4: .q1|%!12=sav|
|00000e30| 65 25 80 71 31 25 21 31 | 36 3d 30 20 f2 73 61 76 |e%.q1%!1|6=0 .sav|
|00000e40| 65 66 69 6c 65 28 a3 2c | 22 22 29 0d 05 14 35 c9 |efile(.,|"")...5.|
|00000e50| 26 34 30 3a 20 e7 71 31 | 25 21 31 32 3d 73 61 76 |&40: .q1|%!12=sav|
|00000e60| 65 25 20 f2 64 72 61 67 | 69 63 6f 6e 28 21 71 31 |e% .drag|icon(!q1|
|00000e70| 25 2c 71 31 25 21 34 2c | 73 61 76 65 25 2c 33 29 |%,q1%!4,|save%,3)|
|00000e80| 0d 05 1e 05 cb 0d 05 28 | 05 e1 0d 05 32 05 3a 0d |.......(|....2.:.|
|00000e90| 05 3c 2d dd f2 64 72 61 | 67 69 63 6f 6e 28 6d 6f |.<-..dra|gicon(mo|
|00000ea0| 75 73 65 78 25 2c 6d 6f | 75 73 65 79 25 2c 68 61 |usex%,mo|usey%,ha|
|00000eb0| 6e 64 6c 65 25 2c 69 63 | 6f 6e 25 29 0d 05 46 21 |ndle%,ic|on%)..F!|
|00000ec0| ea 20 62 78 25 2c 62 79 | 25 2c 69 78 30 25 2c 69 |. bx%,by|%,ix0%,i|
|00000ed0| 78 31 25 2c 69 79 30 25 | 2c 69 79 31 25 0d 05 50 |x1%,iy0%|,iy1%..P|
|00000ee0| 15 73 61 76 65 77 69 6e | 64 25 3d 68 61 6e 64 6c |.savewin|d%=handl|
|00000ef0| 65 25 0d 05 5a 2d 21 71 | 31 25 3d 68 61 6e 64 6c |e%..Z-!q|1%=handl|
|00000f00| 65 25 3a c8 99 22 57 69 | 6d 70 5f 47 65 74 57 69 |e%:.."Wi|mp_GetWi|
|00000f10| 6e 64 6f 77 53 74 61 74 | 65 22 2c 2c 71 31 25 0d |ndowStat|e",,q1%.|
|00000f20| 05 64 16 62 78 25 3d 71 | 31 25 21 34 20 2d 20 71 |.d.bx%=q|1%!4 - q|
|00000f30| 31 25 21 32 30 0d 05 6e | 17 62 79 25 3d 71 31 25 |1%!20..n|.by%=q1%|
|00000f40| 21 31 36 20 2d 20 71 31 | 25 21 32 34 0d 05 78 37 |!16 - q1|%!24..x7|
|00000f50| 21 71 31 25 3d 68 61 6e | 64 6c 65 25 3a 71 31 25 |!q1%=han|dle%:q1%|
|00000f60| 21 34 3d 69 63 6f 6e 25 | 3a c8 99 22 57 69 6d 70 |!4=icon%|:.."Wimp|
|00000f70| 5f 47 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_GetIcon|State",,|
|00000f80| 71 31 25 0d 05 82 0e 69 | 78 30 25 3d 71 31 25 21 |q1%....i|x0%=q1%!|
|00000f90| 38 0d 05 8c 0f 69 79 30 | 25 3d 71 31 25 21 31 32 |8....iy0|%=q1%!12|
|00000fa0| 0d 05 96 0f 69 78 31 25 | 3d 71 31 25 21 31 36 0d |....ix1%|=q1%!16.|
|00000fb0| 05 a0 0f 69 79 31 25 3d | 71 31 25 21 32 30 0d 05 |...iy1%=|q1%!20..|
|00000fc0| aa 10 21 71 31 25 3d 68 | 61 6e 64 6c 65 25 0d 05 |..!q1%=h|andle%..|
|00000fd0| b4 0b 71 31 25 21 34 3d | 35 0d 05 be 12 71 31 25 |..q1%!4=|5....q1%|
|00000fe0| 21 38 3d 62 78 25 2b 69 | 78 30 25 0d 05 c8 13 71 |!8=bx%+i|x0%....q|
|00000ff0| 31 25 21 31 32 3d 62 79 | 25 2b 69 79 30 25 0d 05 |1%!12=by|%+iy0%..|
|00001000| d2 13 71 31 25 21 31 36 | 3d 62 78 25 2b 69 78 31 |..q1%!16|=bx%+ix1|
|00001010| 25 0d 05 dc 13 71 31 25 | 21 32 30 3d 62 79 25 2b |%....q1%|!20=by%+|
|00001020| 69 79 31 25 0d 05 e6 18 | 71 31 25 21 32 34 3d 71 |iy1%....|q1%!24=q|
|00001030| 31 25 21 38 2d 6d 6f 75 | 73 65 78 25 0d 05 f0 19 |1%!8-mou|sex%....|
|00001040| 71 31 25 21 32 38 3d 71 | 31 25 21 31 32 2d 6d 6f |q1%!28=q|1%!12-mo|
|00001050| 75 73 65 79 25 0d 05 fa | 20 71 31 25 21 33 32 3d |usey%...| q1%!32=|
|00001060| 73 63 72 78 31 25 2b 71 | 31 25 21 31 36 2d 6d 6f |scrx1%+q|1%!16-mo|
|00001070| 75 73 65 78 25 0d 06 04 | 20 71 31 25 21 33 36 3d |usex%...| q1%!36=|
|00001080| 73 63 72 79 31 25 2b 71 | 31 25 21 32 30 2d 6d 6f |scry1%+q|1%!20-mo|
|00001090| 75 73 65 79 25 0d 06 0e | 19 c8 99 22 57 69 6d 70 |usey%...|..."Wimp|
|000010a0| 5f 44 72 61 67 42 6f 78 | 22 2c 2c 71 31 25 0d 06 |_DragBox|",,q1%..|
|000010b0| 18 05 e1 0d 06 22 05 3a | 0d 06 2c 15 dd f2 73 61 |.....".:|..,...sa|
|000010c0| 76 65 66 69 6c 65 28 66 | 25 2c 6e 24 29 0d 06 36 |vefile(f|%,n$)..6|
|000010d0| 11 ea 20 6c 24 2c 63 25 | 2c 64 24 2c 64 25 0d 06 |.. l$,c%|,d$,d%..|
|000010e0| 40 09 e7 66 25 20 8c 0d | 06 4a 0a 20 6c 24 3d 6e |@..f% ..|.J. l$=n|
|000010f0| 24 0d 06 54 05 cc 0d 06 | 5e 12 20 6c 24 3d 24 66 |$..T....|^. l$=$f|
|00001100| 69 6c 65 6e 61 6d 65 25 | 0d 06 68 5b 20 e7 a7 6c |ilename%|..h[ ..l|
|00001110| 24 2c 22 2e 22 29 3d 30 | 20 80 20 a7 6c 24 2c 22 |$,".")=0| . .l$,"|
|00001120| 3a 22 29 3d 30 20 f2 6f | 6b 28 22 54 6f 20 73 61 |:")=0 .o|k("To sa|
|00001130| 76 65 20 74 68 65 20 66 | 69 6c 65 2c 20 64 72 61 |ve the f|ile, dra|
|00001140| 67 20 74 68 65 20 69 63 | 6f 6e 20 74 6f 20 61 20 |g the ic|on to a |
|00001150| 64 69 72 65 63 74 6f 72 | 79 20 76 69 65 77 65 72 |director|y viewer|
|00001160| 2e 22 29 0d 06 72 05 cd | 0d 06 7c 26 65 72 72 6f |.")..r..|..|&erro|
|00001170| 72 5f 66 6c 61 67 25 3d | 31 3a f4 20 61 6c 6c 20 |r_flag%=|1:. all |
|00001180| 65 72 72 6f 72 73 20 61 | 72 65 20 4f 4b 21 0d 06 |errors a|re OK!..|
|00001190| 86 37 ff 22 43 6f 70 79 | 20 3c 57 69 6d 70 24 53 |.7."Copy| <Wimp$S|
|000011a0| 63 72 61 70 3e 20 22 2b | 6c 24 2b 22 20 7e 41 7e |crap> "+|l$+" ~A~|
|000011b0| 43 7e 44 46 7e 4c 7e 4e | 7e 50 7e 51 7e 52 7e 53 |C~DF~L~N|~P~Q~R~S|
|000011c0| 7e 54 7e 56 22 0d 06 90 | 33 65 72 72 6f 72 5f 66 |~T~V"...|3error_f|
|000011d0| 6c 61 67 25 3d 33 3a f4 | 20 61 6c 6c 20 65 72 72 |lag%=3:.| all err|
|000011e0| 6f 72 73 20 61 72 65 20 | 75 6e 65 78 70 65 63 74 |ors are |unexpect|
|000011f0| 65 64 20 61 67 61 69 6e | 0d 06 9a 28 21 71 32 25 |ed again|...(!q2%|
|00001200| 3d 73 61 76 65 25 3a c8 | 99 22 57 69 6d 70 5f 43 |=save%:.|."Wimp_C|
|00001210| 6c 6f 73 65 57 69 6e 64 | 6f 77 22 2c 2c 71 32 25 |loseWind|ow",,q2%|
|00001220| 0d 06 a4 10 f2 69 6e 69 | 74 5f 73 79 73 74 65 6d |.....ini|t_system|
|00001230| 0d 06 ae 05 e1 0d 06 b8 | 05 3a 0d 06 c2 17 dd a4 |........|.:......|
|00001240| 6c 65 61 66 6e 61 6d 65 | 5f 70 74 72 28 66 31 25 |leafname|_ptr(f1%|
|00001250| 29 0d 06 cc 09 ea 20 66 | 32 25 0d 06 d6 05 f5 0d |)..... f|2%......|
|00001260| 06 e0 0c 20 66 32 25 3d | 66 31 25 0d 06 ea 14 20 |... f2%=|f1%.... |
|00001270| 66 31 25 2b 3d a7 24 66 | 31 25 2c 22 3a 22 29 0d |f1%+=.$f|1%,":").|
|00001280| 06 f4 0d fd 20 66 31 25 | 3d 66 32 25 0d 06 fe 05 |.... f1%|=f2%....|
|00001290| f5 0d 07 08 0c 20 66 32 | 25 3d 66 31 25 0d 07 12 |..... f2|%=f1%...|
|000012a0| 14 20 66 31 25 2b 3d a7 | 24 66 31 25 2c 22 2e 22 |. f1%+=.|$f1%,"."|
|000012b0| 29 0d 07 1c 0d fd 20 66 | 31 25 3d 66 32 25 0d 07 |)..... f|1%=f2%..|
|000012c0| 26 08 3d 66 31 25 0d 07 | 30 05 3a 0d 07 3a 13 dd |&.=f1%..|0.:..:..|
|000012d0| a4 6c 65 61 66 6e 61 6d | 65 28 66 31 24 29 0d 07 |.leafnam|e(f1$)..|
|000012e0| 44 08 ea 20 69 25 0d 07 | 4e 05 f5 0d 07 58 11 20 |D.. i%..|N....X. |
|000012f0| 69 25 3d a7 66 31 24 2c | 22 2e 22 29 0d 07 62 1a |i%=.f1$,|".")..b.|
|00001300| 20 e7 69 25 3c 3e 30 20 | 66 31 24 3d c1 66 31 24 | .i%<>0 |f1$=.f1$|
|00001310| 2c 69 25 2b 31 29 0d 07 | 6c 0a fd 20 69 25 3d 30 |,i%+1)..|l.. i%=0|
|00001320| 0d 07 76 08 3d 66 31 24 | 0d 07 80 05 3a 0d 07 8a |..v.=f1$|....:...|
|00001330| 10 dd f2 64 65 63 6f 64 | 65 64 72 61 67 0d 07 94 |...decod|edrag...|
|00001340| 17 ea 20 68 25 2c 69 25 | 2c 6d 78 25 2c 6d 79 25 |.. h%,i%|,mx%,my%|
|00001350| 2c 66 74 25 0d 07 9e 20 | c8 99 22 57 69 6d 70 5f |,ft%... |.."Wimp_|
|00001360| 47 65 74 50 6f 69 6e 74 | 65 72 49 6e 66 6f 22 2c |GetPoint|erInfo",|
|00001370| 2c 71 31 25 0d 07 a8 0c | 6d 78 25 3d 21 71 31 25 |,q1%....|mx%=!q1%|
|00001380| 0d 07 b2 0d 6d 79 25 3d | 71 31 25 21 34 0d 07 bc |....my%=|q1%!4...|
|00001390| 0d 68 25 3d 71 31 25 21 | 31 32 0d 07 c6 0d 69 25 |.h%=q1%!|12....i%|
|000013a0| 3d 71 31 25 21 31 36 0d | 07 d0 24 e7 68 25 3d 73 |=q1%!16.|..$.h%=s|
|000013b0| 61 76 65 25 20 e1 3a f4 | 20 64 72 6f 70 70 65 64 |ave% .:.| dropped|
|000013c0| 20 6f 6e 20 6d 79 73 65 | 6c 66 21 0d 07 da 27 e7 | on myse|lf!...'.|
|000013d0| 73 61 76 65 25 3d 73 61 | 76 65 66 66 66 25 20 66 |save%=sa|vefff% f|
|000013e0| 74 25 3d 26 46 46 46 20 | 8b 20 66 74 25 3d 26 46 |t%=&FFF |. ft%=&F|
|000013f0| 46 42 0d 07 e4 28 f2 64 | 72 61 67 5f 73 61 76 65 |FB...(.d|rag_save|
|00001400| 66 69 6c 65 28 68 25 2c | 69 25 2c 6d 78 25 2c 6d |file(h%,|i%,mx%,m|
|00001410| 79 25 2c 66 74 25 2c 2d | 31 29 0d 07 ee 05 e1 0d |y%,ft%,-|1)......|
|00001420| 07 f8 05 3a 0d 08 02 2c | dd f2 64 72 61 67 5f 73 |...:...,|..drag_s|
|00001430| 61 76 65 66 69 6c 65 28 | 68 25 2c 69 25 2c 6d 78 |avefile(|h%,i%,mx|
|00001440| 25 2c 6d 79 25 2c 66 74 | 25 2c 74 61 73 6b 25 29 |%,my%,ft|%,task%)|
|00001450| 0d 08 0c 0e ea 20 66 31 | 25 2c 65 78 74 25 0d 08 |..... f1|%,ext%..|
|00001460| 16 2a 66 31 25 3d 8e 28 | 22 3c 57 69 6d 70 24 53 |.*f1%=.(|"<Wimp$S|
|00001470| 63 72 61 70 3e 22 29 3a | 65 78 74 25 3d a2 23 66 |crap>"):|ext%=.#f|
|00001480| 31 25 3a d9 23 66 31 25 | 0d 08 20 20 66 31 25 3d |1%:.#f1%|.. f1%=|
|00001490| a4 6c 65 61 66 6e 61 6d | 65 5f 70 74 72 28 66 69 |.leafnam|e_ptr(fi|
|000014a0| 6c 65 6e 61 6d 65 25 29 | 0d 08 2a 16 21 71 31 25 |lename%)|..*.!q1%|
|000014b0| 3d 28 34 38 2b a9 24 66 | 31 25 29 80 ac 33 0d 08 |=(48+.$f|1%)..3..|
|000014c0| 34 0c 71 31 25 21 31 32 | 3d 30 0d 08 3e 0c 71 31 |4.q1%!12|=0..>.q1|
|000014d0| 25 21 31 36 3d 31 0d 08 | 48 0d 71 31 25 21 32 30 |%!16=1..|H.q1%!20|
|000014e0| 3d 68 25 0d 08 52 0d 71 | 31 25 21 32 34 3d 69 25 |=h%..R.q|1%!24=i%|
|000014f0| 0d 08 5c 0e 71 31 25 21 | 32 38 3d 6d 78 25 0d 08 |..\.q1%!|28=mx%..|
|00001500| 66 0e 71 31 25 21 33 32 | 3d 6d 79 25 0d 08 70 0f |f.q1%!32|=my%..p.|
|00001510| 71 31 25 21 33 36 3d 65 | 78 74 25 0d 08 7a 0e 71 |q1%!36=e|xt%..z.q|
|00001520| 31 25 21 34 30 3d 66 74 | 25 0d 08 84 12 24 28 71 |1%!40=ft|%....$(q|
|00001530| 31 25 2b 34 34 29 3d 24 | 66 31 25 0d 08 8e 1a 3f |1%+44)=$|f1%....?|
|00001540| 28 71 31 25 2b 34 34 2b | a9 24 28 71 31 25 2b 34 |(q1%+44+|.$(q1%+4|
|00001550| 34 29 29 3d 30 0d 08 98 | 0f e7 74 61 73 6b 25 3d |4))=0...|..task%=|
|00001560| 2d 31 20 8c 0d 08 a2 26 | 20 c8 99 22 57 69 6d 70 |-1 ....&| .."Wimp|
|00001570| 5f 53 65 6e 64 4d 65 73 | 73 61 67 65 22 2c 31 37 |_SendMes|sage",17|
|00001580| 2c 71 31 25 2c 68 25 2c | 69 25 0d 08 ac 05 cc 0d |,q1%,h%,|i%......|
|00001590| 08 b6 26 20 c8 99 22 57 | 69 6d 70 5f 53 65 6e 64 |..& .."W|imp_Send|
|000015a0| 4d 65 73 73 61 67 65 22 | 2c 31 38 2c 71 31 25 2c |Message"|,18,q1%,|
|000015b0| 74 61 73 6b 25 0d 08 c0 | 05 cd 0d 08 ca 12 73 61 |task%...|......sa|
|000015c0| 76 65 72 65 66 25 3d 71 | 31 25 21 38 0d 08 d4 05 |veref%=q|1%!8....|
|000015d0| e1 0d 08 de 05 3a 0d 08 | e8 0e dd f2 6b 65 79 70 |.....:..|....keyp|
|000015e0| 72 65 73 73 0d 08 f2 3b | e7 71 31 25 21 32 34 3d |ress...;|.q1%!24=|
|000015f0| 31 33 20 f2 73 61 76 65 | 66 69 6c 65 28 a3 2c 22 |13 .save|file(.,"|
|00001600| 22 29 20 8b 20 c8 99 22 | 57 69 6d 70 5f 50 72 6f |") . .."|Wimp_Pro|
|00001610| 63 65 73 73 4b 65 79 22 | 2c 71 31 25 21 32 34 0d |cessKey"|,q1%!24.|
|00001620| 08 fc 05 e1 0d 09 06 05 | 3a 0d 09 10 16 dd f2 64 |........|:......d|
|00001630| 6f 6d 65 6e 75 28 68 25 | 2c 78 25 2c 79 25 29 0d |omenu(h%|,x%,y%).|
|00001640| 09 1a 24 6d 65 6e 75 64 | 61 74 61 25 3d 68 25 3a |..$menud|ata%=h%:|
|00001650| 6d 65 6e 75 78 25 3d 78 | 25 3a 6d 65 6e 75 79 25 |menux%=x|%:menuy%|
|00001660| 3d 79 25 0d 09 24 21 c8 | 99 22 57 69 6d 70 5f 43 |=y%..$!.|."Wimp_C|
|00001670| 72 65 61 74 65 4d 65 6e | 75 22 2c 2c 68 25 2c 78 |reateMen|u",,h%,x|
|00001680| 25 2c 79 25 0d 09 2e 05 | e1 0d 09 38 05 3a 0d 09 |%,y%....|...8.:..|
|00001690| 42 10 dd f2 6d 65 6e 75 | 73 65 6c 65 63 74 0d 09 |B...menu|select..|
|000016a0| 4c 13 ea 20 61 24 2c 69 | 25 2c 61 64 6a 75 73 74 |L.. a$,i|%,adjust|
|000016b0| 25 0d 09 56 34 c8 99 22 | 57 69 6d 70 5f 47 65 74 |%..V4.."|Wimp_Get|
|000016c0| 50 6f 69 6e 74 65 72 49 | 6e 66 6f 22 2c 2c 71 32 |PointerI|nfo",,q2|
|000016d0| 25 3a 61 64 6a 75 73 74 | 25 3d 28 71 32 25 21 38 |%:adjust|%=(q2%!8|
|000016e0| 20 80 20 31 29 0d 09 60 | 38 c8 99 22 57 69 6d 70 | . 1)..`|8.."Wimp|
|000016f0| 5f 44 65 63 6f 64 65 4d | 65 6e 75 22 2c 2c 6d 65 |_DecodeM|enu",,me|
|00001700| 6e 75 64 61 74 61 25 2c | 71 31 25 2c c4 32 30 30 |nudata%,|q1%,.200|
|00001710| 2c 22 20 22 29 20 b8 20 | 2c 2c 2c 61 24 0d 09 6a |," ") . |,,,a$..j|
|00001720| 0c e7 61 24 3d 22 22 20 | e1 0d 09 74 1a e7 61 24 |..a$="" |...t..a$|
|00001730| 3d 22 51 75 69 74 22 20 | f2 73 68 75 74 64 6f 77 |="Quit" |.shutdow|
|00001740| 6e 3a e0 0d 09 7e 18 e7 | 61 24 3d 22 53 61 76 65 |n:...~..|a$="Save|
|00001750| 20 6f 70 74 69 6f 6e 73 | 22 20 8c 0d 09 88 22 20 | options|" ...." |
|00001760| 69 25 3d ae 28 22 3c 42 | 61 73 54 78 74 24 44 69 |i%=.("<B|asTxt$Di|
|00001770| 72 3e 2e 21 43 68 6f 69 | 63 65 73 22 29 0d 09 92 |r>.!Choi|ces")...|
|00001780| 18 20 d5 23 69 25 2c a4 | 73 74 72 69 70 5f 6e 75 |. .#i%,.|strip_nu|
|00001790| 6d 62 65 72 73 0d 09 9c | 19 20 d5 23 69 25 2c a4 |mbers...|. .#i%,.|
|000017a0| 73 65 6e 64 5f 74 6f 5f | 65 64 69 74 6f 72 0d 09 |send_to_|editor..|
|000017b0| a6 1a 20 d5 23 69 25 2c | a4 66 61 73 74 5f 63 6f |.. .#i%,|.fast_co|
|000017c0| 6e 76 65 72 73 69 6f 6e | 0d 09 b0 18 20 d5 23 69 |nversion|.... .#i|
|000017d0| 25 2c a4 73 61 76 65 5f | 69 66 5f 6e 61 6d 65 64 |%,.save_|if_named|
|000017e0| 0d 09 ba 09 20 d9 23 69 | 25 0d 09 c4 05 cd 0d 09 |.... .#i|%.......|
|000017f0| ce 2d e7 61 64 6a 75 73 | 74 25 20 f2 64 6f 6d 65 |.-.adjus|t% .dome|
|00001800| 6e 75 28 6d 65 6e 75 64 | 61 74 61 25 2c 6d 65 6e |nu(menud|ata%,men|
|00001810| 75 78 25 2c 6d 65 6e 75 | 79 25 29 0d 09 d8 05 e1 |ux%,menu|y%).....|
|00001820| 0d 09 e2 05 3a 0d 09 ec | 0e dd a4 72 74 6f 7a 28 |....:...|...rtoz(|
|00001830| 70 25 29 0d 09 f6 08 ea | 20 71 24 0d 0a 00 1e c8 |p%).....| q$.....|
|00001840| 95 20 3f 70 25 3c 3e 30 | 20 71 24 2b 3d bd 3f 70 |. ?p%<>0| q$+=.?p|
|00001850| 25 3a 70 25 2b 3d 31 3a | ce 0d 0a 0a 07 3d 71 24 |%:p%+=1:|.....=q$|
|00001860| 0d 0a 14 05 3a 0d 0a 1e | 11 dd f2 72 65 63 65 69 |....:...|...recei|
|00001870| 76 65 28 72 25 29 0d 0a | 28 14 ea 20 6e 61 6d 65 |ve(r%)..|(.. name|
|00001880| 24 2c 69 25 2c 78 25 2c | 7a 25 0d 0a 32 0f c8 8e |$,i%,x%,|z%..2...|
|00001890| 20 71 31 25 21 31 36 20 | ca 0d 0a 3c 13 c9 30 3a | q1%!16 |...<..0:|
|000018a0| 20 f2 73 68 75 74 64 6f | 77 6e 3a e0 0d 0a 46 39 | .shutdo|wn:...F9|
|000018b0| c9 31 3a 20 f4 20 66 69 | 6c 65 20 64 72 6f 70 70 |.1: . fi|le dropp|
|000018c0| 65 64 20 66 72 6f 6d 20 | 61 70 70 6c 69 63 61 74 |ed from |applicat|
|000018d0| 69 6f 6e 20 2d 20 72 65 | 74 75 72 6e 20 66 69 6c |ion - re|turn fil|
|000018e0| 65 6e 61 6d 65 0d 0a 50 | 32 20 20 20 20 20 20 20 |ename..P|2 |
|000018f0| 21 71 31 25 3d 28 34 38 | 2b 32 30 29 80 ac 33 3a |!q1%=(48|+20)..3:|
|00001900| f4 20 61 64 6a 75 73 74 | 20 73 69 7a 65 20 6f 66 |. adjust| size of|
|00001910| 20 70 61 63 6b 65 74 0d | 0a 5a 24 20 20 20 20 20 | packet.|.Z$ |
|00001920| 20 20 71 31 25 21 31 32 | 3d 71 31 25 21 38 3a f4 | q1%!12|=q1%!8:.|
|00001930| 20 63 6f 70 79 20 6d 79 | 72 65 66 0d 0a 64 28 20 | copy my|ref..d( |
|00001940| 20 20 20 20 20 20 71 31 | 25 21 31 36 3d 32 3a f4 | q1|%!16=2:.|
|00001950| 20 73 65 74 20 74 6f 20 | 44 61 74 61 4c 6f 61 64 | set to |DataLoad|
|00001960| 41 63 6b 0d 0a 6e 36 20 | 20 20 20 20 20 20 e7 ac |Ack..n6 | ..|
|00001970| 28 a4 73 61 76 65 5f 69 | 66 5f 6e 61 6d 65 64 29 |(.save_i|f_named)|
|00001980| 20 71 31 25 21 33 36 3d | 2d 31 3a f4 20 75 6e 73 | q1%!36=|-1:. uns|
|00001990| 61 66 65 20 66 69 6c 65 | 21 0d 0a 78 2f 20 20 20 |afe file|!..x/ |
|000019a0| 20 20 20 20 24 28 71 31 | 25 2b 34 34 29 3d 22 3c | $(q1|%+44)="<|
|000019b0| 42 61 73 54 78 74 24 44 | 69 72 3e 2e 42 61 73 54 |BasTxt$D|ir>.BasT|
|000019c0| 78 74 22 2b bd 28 30 29 | 0d 0a 82 2c 20 20 20 20 |xt"+.(0)|..., |
|000019d0| 20 20 20 c8 99 22 57 69 | 6d 70 5f 53 65 6e 64 4d | .."Wi|mp_SendM|
|000019e0| 65 73 73 61 67 65 22 2c | 31 37 2c 71 31 25 2c 71 |essage",|17,q1%,q|
|000019f0| 31 25 21 34 0d 0a 8c 0c | 20 20 20 20 20 20 20 e1 |1%!4....| .|
|00001a00| 0d 0a 96 1b c9 32 3a 20 | e7 71 31 25 21 31 32 3c |.....2: |.q1%!12<|
|00001a10| 3e 73 61 76 65 72 65 66 | 25 20 8c 0d 0a a0 32 20 |>saveref|% ....2 |
|00001a20| 20 20 20 20 20 20 20 f2 | 6f 6b 28 22 55 6e 65 78 | .|ok("Unex|
|00001a30| 70 65 63 74 65 64 20 73 | 61 76 65 20 70 61 63 6b |pected s|ave pack|
|00001a40| 65 74 20 72 65 63 65 69 | 76 65 64 22 29 0d 0a aa |et recei|ved")...|
|00001a50| 0c 20 20 20 20 20 20 20 | cd 0d 0a b4 17 20 20 20 |. |..... |
|00001a60| 20 20 20 20 e7 71 31 25 | 21 33 36 3d 2d 31 20 8c | .q1%|!36=-1 .|
|00001a70| 0d 0a be 26 20 20 20 20 | 20 20 20 20 f2 73 61 76 |...& | .sav|
|00001a80| 65 66 69 6c 65 28 b9 2c | a4 72 74 6f 7a 28 71 31 |efile(.,|.rtoz(q1|
|00001a90| 25 2b 34 34 29 29 0d 0a | c8 0c 20 20 20 20 20 20 |%+44))..|.. |
|00001aa0| 20 cc 0d 0a d2 24 20 20 | 20 20 20 20 20 20 24 66 | ....$ | $f|
|00001ab0| 69 6c 65 6e 61 6d 65 25 | 3d a4 72 74 6f 7a 28 71 |ilename%|=.rtoz(q|
|00001ac0| 31 25 2b 34 34 29 0d 0a | dc 1b 20 20 20 20 20 20 |1%+44)..|.. |
|00001ad0| 20 20 f2 73 61 76 65 66 | 69 6c 65 28 a3 2c 22 22 | .savef|ile(.,""|
|00001ae0| 29 0d 0a e6 0c 20 20 20 | 20 20 20 20 cd 0d 0a f0 |).... | ....|
|00001af0| 13 20 20 20 20 20 20 20 | 71 31 25 21 31 36 3d 33 |. |q1%!16=3|
|00001b00| 0d 0a fa 17 20 20 20 20 | 20 20 20 71 31 25 21 31 |.... | q1%!1|
|00001b10| 32 3d 71 31 25 21 38 0d | 0b 04 2c 20 20 20 20 20 |2=q1%!8.|.., |
|00001b20| 20 20 c8 99 22 57 69 6d | 70 5f 53 65 6e 64 4d 65 | .."Wim|p_SendMe|
|00001b30| 73 73 61 67 65 22 2c 31 | 37 2c 71 31 25 2c 71 31 |ssage",1|7,q1%,q1|
|00001b40| 25 21 34 0d 0b 0e 39 c9 | 33 3a 20 f4 20 66 69 6c |%!4...9.|3: . fil|
|00001b50| 65 20 64 72 6f 70 70 65 | 64 20 66 72 6f 6d 20 46 |e droppe|d from F|
|00001b60| 69 6c 65 72 20 2d 20 74 | 72 61 6e 73 66 65 72 20 |iler - t|ransfer |
|00001b70| 74 6f 20 64 61 74 61 20 | 66 69 6c 65 0d 0b 18 16 |to data |file....|
|00001b80| 20 20 20 20 20 20 20 f2 | 63 68 65 63 6b 5f 74 79 | .|check_ty|
|00001b90| 70 65 0d 0b 22 20 20 20 | 20 20 20 20 20 71 31 25 |pe.." | q1%|
|00001ba0| 21 31 36 3d 34 3a 71 31 | 25 21 31 32 3d 71 31 25 |!16=4:q1|%!12=q1%|
|00001bb0| 21 38 0d 0b 2c 2c 20 20 | 20 20 20 20 20 c8 99 22 |!8..,, | .."|
|00001bc0| 57 69 6d 70 5f 53 65 6e | 64 4d 65 73 73 61 67 65 |Wimp_Sen|dMessage|
|00001bd0| 22 2c 31 37 2c 71 31 25 | 2c 71 31 25 21 34 0d 0b |",17,q1%|,q1%!4..|
|00001be0| 36 1c 20 20 20 20 20 20 | 20 66 69 6c 65 5f 74 79 |6. | file_ty|
|00001bf0| 70 65 25 3d 71 31 25 21 | 34 30 0d 0b 40 1f 20 20 |pe%=q1%!|40..@. |
|00001c00| 20 20 20 20 20 66 69 6c | 65 31 24 3d a4 72 74 6f | fil|e1$=.rto|
|00001c10| 7a 28 71 31 25 2b 34 34 | 29 0d 0b 4a 19 20 20 20 |z(q1%+44|)..J. |
|00001c20| 20 20 20 20 f2 63 6f 6e | 76 65 72 74 5f 66 69 6c | .con|vert_fil|
|00001c30| 65 73 0d 0b 54 36 c9 34 | 3a 20 f4 20 61 63 6b 6e |es..T6.4|: . ackn|
|00001c40| 6f 77 6c 65 64 67 65 6d | 65 6e 74 20 6f 66 20 66 |owledgem|ent of f|
|00001c50| 69 6c 65 20 6c 6f 61 64 | 65 64 20 2d 20 64 65 6c |ile load|ed - del|
|00001c60| 65 74 65 20 66 69 6c 65 | 0d 0b 5e 17 20 20 20 20 |ete file|..^. |
|00001c70| 20 20 20 f2 69 6e 69 74 | 5f 73 79 73 74 65 6d 0d | .init|_system.|
|00001c80| 0b 68 25 c9 26 35 30 32 | 3a 20 f4 20 69 6e 74 65 |.h%.&502|: . inte|
|00001c90| 72 61 63 74 69 76 65 20 | 68 65 6c 70 20 72 65 71 |ractive |help req|
|00001ca0| 75 65 73 74 0d 0b 72 1f | 20 20 20 20 20 20 20 20 |uest..r.| |
|00001cb0| 20 20 f2 69 6e 74 65 72 | 61 63 74 69 76 65 5f 68 | .inter|active_h|
|00001cc0| 65 6c 70 0d 0b 7c 19 c9 | 26 34 30 30 43 31 3a 20 |elp..|..|&400C1: |
|00001cd0| f2 67 65 74 6d 6f 64 65 | 69 6e 66 6f 0d 0b 86 35 |.getmode|info...5|
|00001ce0| c9 26 34 30 30 43 32 3a | 20 e7 a4 72 74 6f 7a 28 |.&400C2:| ..rtoz(|
|00001cf0| 71 31 25 2b 32 38 29 3d | 22 45 64 69 74 22 20 65 |q1%+28)=|"Edit" e|
|00001d00| 64 69 74 5f 74 61 73 6b | 69 64 25 3d 71 31 25 21 |dit_task|id%=q1%!|
|00001d10| 34 0d 0b 90 30 c9 26 34 | 30 30 43 33 3a 20 e7 71 |4...0.&4|00C3: .q|
|00001d20| 31 25 21 34 3d 65 64 69 | 74 5f 74 61 73 6b 69 64 |1%!4=edi|t_taskid|
|00001d30| 25 20 65 64 69 74 5f 74 | 61 73 6b 69 64 25 3d 2d |% edit_t|askid%=-|
|00001d40| 31 0d 0b 9a 36 c9 26 34 | 30 30 43 37 3a 20 e7 a4 |1...6.&4|00C7: ..|
|00001d50| 72 74 6f 7a 28 71 31 25 | 2b 32 38 29 3d 22 45 64 |rtoz(q1%|+28)="Ed|
|00001d60| 69 74 22 20 65 64 69 74 | 5f 74 61 73 6b 69 64 25 |it" edit|_taskid%|
|00001d70| 3d 71 31 25 21 32 30 0d | 0b a4 1c c9 26 38 30 31 |=q1%!20.|....&801|
|00001d80| 34 35 3a 20 e7 20 71 31 | 25 21 34 30 3d 26 46 46 |45: . q1|%!40=&FF|
|00001d90| 42 20 8c 0d 0b ae 21 20 | 20 20 20 20 20 20 20 20 |B ....! | |
|00001da0| 20 20 20 20 c8 99 22 48 | 6f 75 72 67 6c 61 73 73 | .."H|ourglass|
|00001db0| 5f 4f 6e 22 0d 0b b8 41 | 20 20 20 20 20 20 20 20 |_On"...A| |
|00001dc0| 20 20 20 20 20 f2 63 6f | 6e 76 65 72 74 5f 74 6f | .co|nvert_to|
|00001dd0| 5f 74 65 78 74 28 a4 72 | 74 6f 7a 28 71 31 25 2b |_text(.r|toz(q1%+|
|00001de0| 34 34 29 2c 22 3c 50 72 | 69 6e 74 65 72 24 54 65 |44),"<Pr|inter$Te|
|00001df0| 6d 70 3e 22 29 0d 0b c2 | 22 20 20 20 20 20 20 20 |mp>")...|" |
|00001e00| 20 20 20 20 20 20 c8 99 | 22 48 6f 75 72 67 6c 61 | ..|"Hourgla|
|00001e10| 73 73 5f 4f 66 66 22 0d | 0b cc 1d 20 20 20 20 20 |ss_Off".|... |
|00001e20| 20 20 20 20 20 20 20 20 | 71 31 25 21 26 34 30 3d | |q1%!&40=|
|00001e30| 26 46 46 46 0d 0b d6 1e | 20 20 20 20 20 20 20 20 |&FFF....| |
|00001e40| 20 20 20 20 20 71 31 25 | 21 31 36 3d 26 38 30 31 | q1%|!16=&801|
|00001e50| 34 36 0d 0b e0 1d 20 20 | 20 20 20 20 20 20 20 20 |46.... | |
|00001e60| 20 20 20 71 31 25 21 31 | 32 3d 71 31 25 21 38 0d | q1%!1|2=q1%!8.|
|00001e70| 0b ea 32 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..2 | |
|00001e80| c8 99 22 57 69 6d 70 5f | 53 65 6e 64 4d 65 73 73 |.."Wimp_|SendMess|
|00001e90| 61 67 65 22 2c 31 37 2c | 71 31 25 2c 71 31 25 21 |age",17,|q1%,q1%!|
|00001ea0| 34 0d 0b f4 11 20 20 20 | 20 20 20 20 20 20 20 20 |4.... | |
|00001eb0| 20 cd 0d 0b fe 05 cb 0d | 0c 08 05 e1 0d 0c 12 05 | .......|........|
|00001ec0| 3a 0d 0c 1c 09 dd f2 61 | 63 6b 0d 0c 26 41 f4 20 |:......a|ck..&A. |
|00001ed0| 2a 2a 2a 2a 2a 20 61 63 | 6b 20 63 61 6e 20 6f 6e |***** ac|k can on|
|00001ee0| 6c 79 20 62 65 20 69 66 | 20 62 72 6f 61 64 63 61 |ly be if| broadca|
|00001ef0| 73 74 20 66 6f 72 20 74 | 65 78 74 20 66 69 6c 65 |st for t|ext file|
|00001f00| 20 68 61 73 20 66 61 69 | 6c 65 64 0d 0c 30 14 24 | has fai|led..0.$|
|00001f10| 66 69 6c 65 6e 61 6d 65 | 66 66 66 25 3d 22 22 0d |filename|fff%="".|
|00001f20| 0c 3a 2a f2 70 6f 70 75 | 70 5f 73 61 76 65 64 62 |.:*.popu|p_savedb|
|00001f30| 6f 78 28 73 61 76 65 66 | 66 66 25 2c 66 69 6c 65 |ox(savef|ff%,file|
|00001f40| 6e 61 6d 65 66 66 66 25 | 29 0d 0c 44 05 e1 0d 0c |namefff%|)..D....|
|00001f50| 4e 05 3a 0d 0c 58 16 dd | f2 69 6e 74 65 72 61 63 |N.:..X..|.interac|
|00001f60| 74 69 76 65 5f 68 65 6c | 70 0d 0c 62 08 ea 20 74 |tive_hel|p..b.. t|
|00001f70| 24 0d 0c 6c 0f c8 8e 20 | 71 31 25 21 33 32 20 ca |$..l... |q1%!32 .|
|00001f80| 0d 0c 76 99 c9 2d 32 3a | 20 74 24 3d 22 54 68 69 |..v..-2:| t$="Thi|
|00001f90| 73 20 69 73 20 74 68 65 | 20 42 41 53 49 43 20 7c |s is the| BASIC ||
|00001fa0| 3c 3d 3e 20 74 65 78 74 | 20 69 63 6f 6e 2e 7c 4d |<=> text| icon.|M|
|00001fb0| 44 72 6f 70 20 61 20 42 | 41 53 49 43 20 66 69 6c |Drop a B|ASIC fil|
|00001fc0| 65 20 6f 6e 20 69 74 20 | 74 6f 20 63 6f 6e 76 65 |e on it |to conve|
|00001fd0| 72 74 20 69 74 20 74 6f | 20 74 65 78 74 2c 20 6f |rt it to| text, o|
|00001fe0| 72 20 76 69 63 65 2d 76 | 65 72 73 61 2e 7c 4d 43 |r vice-v|ersa.|MC|
|00001ff0| 6c 69 63 6b 20 4d 45 4e | 55 20 74 6f 20 73 65 74 |lick MEN|U to set|
|00002000| 20 74 68 65 20 63 6f 6e | 76 65 72 73 69 6f 6e 20 | the con|version |
|00002010| 6f 70 74 69 6f 6e 73 2e | 22 0d 0c 80 55 c9 73 61 |options.|"...U.sa|
|00002020| 76 65 25 3a 20 74 24 3d | 22 44 72 61 67 20 74 68 |ve%: t$=|"Drag th|
|00002030| 65 20 69 63 6f 6e 20 74 | 6f 20 73 61 76 65 20 74 |e icon t|o save t|
|00002040| 68 65 20 66 69 6c 65 20 | 6f 72 20 74 79 70 65 20 |he file |or type |
|00002050| 69 6e 20 61 20 66 69 6c | 65 6e 61 6d 65 20 26 20 |in a fil|ename & |
|00002060| 70 72 65 73 73 20 52 45 | 54 55 52 4e 2e 22 0d 0c |press RE|TURN."..|
|00002070| 8a 1a c9 6f 70 74 69 6f | 6e 73 25 3a 20 c8 8e 20 |...optio|ns%: .. |
|00002080| 71 31 25 21 33 36 20 ca | 0d 0c 94 1a 20 c9 32 3a |q1%!36 .|.... .2:|
|00002090| 20 e7 a4 73 74 72 69 70 | 5f 6e 75 6d 62 65 72 73 | ..strip|_numbers|
|000020a0| 20 8c 0d 0c 9e 41 20 20 | 20 20 20 20 20 20 20 74 | ....A | t|
|000020b0| 24 3d 22 43 6c 69 63 6b | 20 53 45 4c 45 43 54 20 |$="Click| SELECT |
|000020c0| 74 6f 20 6c 65 61 76 65 | 20 6c 69 6e 65 20 6e 75 |to leave| line nu|
|000020d0| 6d 62 65 72 73 20 69 6e | 20 74 68 65 20 74 65 78 |mbers in| the tex|
|000020e0| 74 2e 22 0d 0c a8 0d 20 | 20 20 20 20 20 20 20 cc |t.".... | .|
|000020f0| 0d 0c b2 44 20 20 20 20 | 20 20 20 20 20 74 24 3d |...D | t$=|
|00002100| 22 43 6c 69 63 6b 20 53 | 45 4c 45 43 54 20 74 6f |"Click S|ELECT to|
|00002110| 20 72 65 6d 6f 76 65 20 | 6c 69 6e 65 20 6e 75 6d | remove |line num|
|00002120| 62 65 72 73 20 66 72 6f | 6d 20 74 68 65 20 74 65 |bers fro|m the te|
|00002130| 78 74 2e 22 0d 0c bc 0d | 20 20 20 20 20 20 20 20 |xt."....| |
|00002140| cd 0d 0c c6 1b 20 c9 33 | 3a 20 e7 a4 73 65 6e 64 |..... .3|: ..send|
|00002150| 5f 74 6f 5f 65 64 69 74 | 6f 72 20 8c 0d 0c d0 62 |_to_edit|or ....b|
|00002160| 20 20 20 20 20 20 20 20 | 20 74 24 3d 22 43 6c 69 | | t$="Cli|
|00002170| 63 6b 20 53 45 4c 45 43 | 54 20 74 6f 20 63 61 75 |ck SELEC|T to cau|
|00002180| 73 65 20 61 20 64 69 61 | 6c 6f 67 75 65 20 62 6f |se a dia|logue bo|
|00002190| 78 20 74 6f 20 70 6f 70 | 20 75 70 20 77 68 65 6e |x to pop| up when|
|000021a0| 20 74 68 65 20 66 69 6c | 65 20 68 61 73 20 62 65 | the fil|e has be|
|000021b0| 65 6e 20 63 6f 6e 76 65 | 72 74 65 64 2e 22 0d 0c |en conve|rted."..|
|000021c0| da 0d 20 20 20 20 20 20 | 20 20 cc 0d 0c e4 5d 20 |.. | ....] |
|000021d0| 20 20 20 20 20 20 20 20 | 74 24 3d 22 43 6c 69 63 | |t$="Clic|
|000021e0| 6b 20 53 45 4c 45 43 54 | 20 74 6f 20 73 65 6e 64 |k SELECT| to send|
|000021f0| 20 74 68 65 20 72 65 73 | 75 6c 74 69 6e 67 20 74 | the res|ulting t|
|00002200| 65 78 74 20 64 69 72 65 | 63 74 6c 79 20 74 6f 20 |ext dire|ctly to |
|00002210| 61 20 72 65 73 69 64 65 | 6e 74 20 74 65 78 74 20 |a reside|nt text |
|00002220| 65 64 69 74 6f 72 2e 22 | 0d 0c ee 0d 20 20 20 20 |editor."|.... |
|00002230| 20 20 20 20 cd 0d 0c f8 | 1c 20 c9 34 3a 20 e7 a4 | ....|. .4: ..|
|00002240| 66 61 73 74 5f 63 6f 6e | 76 65 72 73 69 6f 6e 20 |fast_con|version |
|00002250| 8c 0d 0d 02 5b 20 20 20 | 20 20 20 20 20 20 74 24 |....[ | t$|
|00002260| 3d 22 43 6c 69 63 6b 20 | 53 45 4c 45 43 54 20 74 |="Click |SELECT t|
|00002270| 6f 20 63 6f 6e 76 65 72 | 74 20 66 72 6f 6d 20 42 |o conver|t from B|
|00002280| 41 53 49 43 20 74 6f 20 | 74 65 78 74 20 75 73 69 |ASIC to |text usi|
|00002290| 6e 67 20 6c 65 73 73 20 | 6d 65 6d 6f 72 79 20 28 |ng less |memory (|
|000022a0| 69 65 20 73 6c 6f 77 6c | 79 29 2e 22 0d 0d 0c 0d |ie slowl|y)."....|
|000022b0| 20 20 20 20 20 20 20 20 | cc 0d 0d 16 5c 20 20 20 | |....\ |
|000022c0| 20 20 20 20 20 20 74 24 | 3d 22 43 6c 69 63 6b 20 | t$|="Click |
|000022d0| 53 45 4c 45 43 54 20 74 | 6f 20 63 6f 6e 76 65 72 |SELECT t|o conver|
|000022e0| 74 20 66 72 6f 6d 20 42 | 41 53 49 43 20 74 6f 20 |t from B|ASIC to |
|000022f0| 74 65 78 74 20 75 73 69 | 6e 67 20 6d 6f 72 65 20 |text usi|ng more |
|00002300| 6d 65 6d 6f 72 79 20 28 | 69 65 20 71 75 69 63 6b |memory (|ie quick|
|00002310| 6c 79 29 2e 22 0d 0d 20 | 0d 20 20 20 20 20 20 20 |ly).".. |. |
|00002320| 20 cd 0d 0d 2a 1a 20 c9 | 37 3a 20 e7 a4 73 61 76 | ...*. .|7: ..sav|
|00002330| 65 5f 69 66 5f 6e 61 6d | 65 64 20 8c 0d 0d 34 62 |e_if_nam|ed ...4b|
|00002340| 20 20 20 20 20 20 20 20 | 20 74 24 3d 22 43 6c 69 | | t$="Cli|
|00002350| 63 6b 20 53 45 4c 45 43 | 54 20 74 6f 20 63 61 75 |ck SELEC|T to cau|
|00002360| 73 65 20 61 20 64 69 61 | 6c 6f 67 75 65 20 62 6f |se a dia|logue bo|
|00002370| 78 20 74 6f 20 70 6f 70 | 20 75 70 20 77 68 65 6e |x to pop| up when|
|00002380| 20 74 68 65 20 66 69 6c | 65 20 68 61 73 20 62 65 | the fil|e has be|
|00002390| 65 6e 20 63 6f 6e 76 65 | 72 74 65 64 2e 22 0d 0d |en conve|rted."..|
|000023a0| 3e 0d 20 20 20 20 20 20 | 20 20 cc 0d 0d 48 59 20 |>. | ...HY |
|000023b0| 20 20 20 20 20 20 20 20 | 74 24 3d 22 43 6c 69 63 | |t$="Clic|
|000023c0| 6b 20 53 45 4c 45 43 54 | 20 74 6f 20 63 61 75 73 |k SELECT| to caus|
|000023d0| 65 20 74 68 65 20 70 72 | 6f 67 72 61 6d 20 74 6f |e the pr|ogram to|
|000023e0| 20 62 65 20 73 61 76 65 | 64 20 69 66 20 69 74 20 | be save|d if it |
|000023f0| 68 61 73 20 61 6e 20 69 | 6e 63 6f 72 65 20 6e 61 |has an i|ncore na|
|00002400| 6d 65 2e 22 0d 0d 52 0d | 20 20 20 20 20 20 20 20 |me."..R.| |
|00002410| cd 0d 0d 5c 3b 20 7f 3a | 20 74 24 3d 22 44 65 74 |...\; .:| t$="Det|
|00002420| 65 72 6d 69 6e 65 20 68 | 6f 77 20 74 68 65 20 63 |ermine h|ow the c|
|00002430| 6f 6e 76 65 72 73 69 6f | 6e 20 70 72 6f 63 65 73 |onversio|n proces|
|00002440| 73 20 6f 70 65 72 61 74 | 65 73 2e 22 0d 0d 66 06 |s operat|es."..f.|
|00002450| 20 cb 0d 0d 70 05 cb 0d | 0d 7a 0d e7 74 24 3c 3e | ...p...|.z..t$<>|
|00002460| 22 22 20 8c 0d 0d 84 11 | 20 71 31 25 21 31 32 3d |"" .....| q1%!12=|
|00002470| 71 31 25 21 38 0d 0d 8e | 10 20 71 31 25 21 31 36 |q1%!8...|. q1%!16|
|00002480| 3d 26 35 30 33 0d 0d 98 | 14 20 24 28 71 31 25 2b |=&503...|. $(q1%+|
|00002490| 32 30 29 3d 74 24 2b bd | 30 0d 0d a2 15 20 21 71 |20)=t$+.|0.... !q|
|000024a0| 31 25 3d 28 32 35 2b a9 | 74 24 29 80 ac 33 0d 0d |1%=(25+.|t$)..3..|
|000024b0| ac 26 20 c8 99 22 57 69 | 6d 70 5f 53 65 6e 64 4d |.& .."Wi|mp_SendM|
|000024c0| 65 73 73 61 67 65 22 2c | 31 37 2c 71 31 25 2c 71 |essage",|17,q1%,q|
|000024d0| 31 25 21 34 0d 0d b6 05 | cd 0d 0d c0 05 e1 0d 0d |1%!4....|........|
|000024e0| ca 05 3a 0d 0d d4 10 dd | f2 63 68 65 63 6b 5f 74 |..:.....|.check_t|
|000024f0| 79 70 65 0d 0d de 32 e7 | 71 31 25 21 34 30 3d 26 |ype...2.|q1%!40=&|
|00002500| 31 30 30 30 20 f2 6f 6b | 28 22 43 61 6e 27 74 20 |1000 .ok|("Can't |
|00002510| 63 6f 6e 76 65 72 74 20 | 61 20 64 69 72 65 63 74 |convert |a direct|
|00002520| 6f 72 79 22 29 0d 0d e8 | 35 e7 71 31 25 21 34 30 |ory")...|5.q1%!40|
|00002530| 3d 26 32 30 30 30 20 f2 | 6f 6b 28 22 43 61 6e 27 |=&2000 .|ok("Can'|
|00002540| 74 20 63 6f 6e 76 65 72 | 74 20 61 6e 20 61 70 70 |t conver|t an app|
|00002550| 6c 69 63 61 74 69 6f 6e | 22 29 0d 0d f2 42 e7 71 |lication|")...B.q|
|00002560| 31 25 21 34 30 3c 3e 26 | 46 46 46 20 80 20 71 31 |1%!40<>&|FFF . q1|
|00002570| 25 21 34 30 3c 3e 26 46 | 46 42 20 f2 6f 6b 28 22 |%!40<>&F|FB .ok("|
|00002580| 4d 75 73 74 20 62 65 20 | 42 41 53 49 43 20 6f 72 |Must be |BASIC or|
|00002590| 20 54 45 58 54 20 66 69 | 6c 65 22 29 0d 0d fc 05 | TEXT fi|le")....|
|000025a0| e1 0d 0e 06 05 3a 0d 0e | 10 0e dd f2 73 68 75 74 |.....:..|....shut|
|000025b0| 64 6f 77 6e 0d 0e 1a 10 | f2 69 6e 69 74 5f 73 79 |down....|.init_sy|
|000025c0| 73 74 65 6d 0d 0e 24 16 | c8 99 22 57 69 6d 70 5f |stem..$.|.."Wimp_|
|000025d0| 43 6c 6f 73 65 44 6f 77 | 6e 22 0d 0e 2e 05 e1 0d |CloseDow|n"......|
|000025e0| 0e 38 05 3a 0d 0e 42 0b | dd f2 65 72 72 6f 72 0d |.8.:..B.|..error.|
|000025f0| 0e 4c 14 e7 65 72 72 6f | 72 5f 66 6c 61 67 25 3d |.L..erro|r_flag%=|
|00002600| 33 20 8c 0d 0e 56 37 20 | f2 65 72 72 6f 72 62 6f |3 ...V7 |.errorbo|
|00002610| 78 28 22 55 6e 65 78 70 | 65 63 74 65 64 20 65 72 |x("Unexp|ected er|
|00002620| 72 6f 72 20 3a 2d 20 22 | 2b f6 24 2b 22 20 28 22 |ror :- "|+.$+" ("|
|00002630| 2b c3 28 9e 29 2b 22 29 | 22 29 0d 0e 60 05 cc 0d |+.(.)+")|")..`...|
|00002640| 0e 6a 12 20 f2 65 72 72 | 6f 72 62 6f 78 28 f6 24 |.j. .err|orbox(.$|
|00002650| 29 0d 0e 74 05 cd 0d 0e | 7e 11 65 72 72 6f 72 5f |)..t....|~.error_|
|00002660| 66 6c 61 67 25 3d 33 0d | 0e 88 05 e1 0d 0e 92 05 |flag%=3.|........|
|00002670| 3a 0d 0e 9c 0c dd f2 6f | 6b 28 65 24 29 0d 0e a6 |:......o|k(e$)...|
|00002680| 11 65 72 72 6f 72 5f 66 | 6c 61 67 25 3d 31 0d 0e |.error_f|lag%=1..|
|00002690| b0 0a 85 20 31 2c 65 24 | 0d 0e ba 05 e1 0d 0e c4 |... 1,e$|........|
|000026a0| 05 3a 0d 0e ce 0f dd f2 | 66 61 74 61 6c 28 65 24 |.:......|fatal(e$|
|000026b0| 29 0d 0e d8 11 65 72 72 | 6f 72 5f 66 6c 61 67 25 |)....err|or_flag%|
|000026c0| 3d 32 0d 0e e2 0a 85 20 | 31 2c 65 24 0d 0e ec 05 |=2..... |1,e$....|
|000026d0| e1 0d 0e f6 05 3a 0d 0f | 00 12 dd f2 65 72 72 6f |.....:..|....erro|
|000026e0| 72 62 6f 78 28 72 24 29 | 0d 0f 0a 08 ea 20 72 25 |rbox(r$)|..... r%|
|000026f0| 0d 0f 14 19 21 71 31 25 | 3d 9f 3a 24 28 71 31 25 |....!q1%|=.:$(q1%|
|00002700| 2b 34 29 3d 72 24 2b bd | 30 0d 0f 1e 47 c8 99 22 |+4)=r$+.|0...G.."|
|00002710| 57 69 6d 70 5f 52 65 70 | 6f 72 74 45 72 72 6f 72 |Wimp_Rep|ortError|
|00002720| 22 2c 71 31 25 2c 65 72 | 72 6f 72 5f 66 6c 61 67 |",q1%,er|ror_flag|
|00002730| 25 2c 22 42 41 53 49 43 | 20 3c 3d 3e 20 54 65 78 |%,"BASIC| <=> Tex|
|00002740| 74 20 75 74 69 6c 69 74 | 79 22 20 b8 20 2c 72 25 |t utilit|y" . ,r%|
|00002750| 0d 0f 28 20 e7 65 72 72 | 6f 72 5f 66 6c 61 67 25 |..( .err|or_flag%|
|00002760| 3c 3e 31 20 f2 69 6e 69 | 74 5f 73 79 73 74 65 6d |<>1 .ini|t_system|
|00002770| 0d 0f 32 1e e7 72 25 3d | 32 20 c8 99 22 57 69 6d |..2..r%=|2 .."Wim|
|00002780| 70 5f 43 6c 6f 73 65 44 | 6f 77 6e 22 3a e0 0d 0f |p_CloseD|own":...|
|00002790| 3c 05 e1 0d 0f 46 05 3a | 0d 0f 50 12 dd a4 69 63 |<....F.:|..P...ic|
|000027a0| 6f 6e 5f 73 65 74 28 69 | 25 29 0d 0f 5a 35 21 71 |on_set(i|%)..Z5!q|
|000027b0| 32 25 3d 6f 70 74 69 6f | 6e 73 25 3a 71 32 25 21 |2%=optio|ns%:q2%!|
|000027c0| 34 3d 69 25 3a c8 99 22 | 57 69 6d 70 5f 47 65 74 |4=i%:.."|Wimp_Get|
|000027d0| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 71 32 25 0d |IconStat|e",,q2%.|
|000027e0| 0f 64 1a 3d 28 28 71 32 | 25 21 32 34 20 80 20 31 |.d.=((q2|%!24 . 1|
|000027f0| 3c 3c 32 31 29 3c 3e 30 | 29 0d 0f 6e 05 3a 0d 0f |<<21)<>0|)..n.:..|
|00002800| 78 20 dd a4 73 74 72 69 | 70 5f 6e 75 6d 62 65 72 |x ..stri|p_number|
|00002810| 73 3d a4 69 63 6f 6e 5f | 73 65 74 28 32 29 0d 0f |s=.icon_|set(2)..|
|00002820| 82 05 3a 0d 0f 8c 21 dd | a4 73 65 6e 64 5f 74 6f |..:...!.|.send_to|
|00002830| 5f 65 64 69 74 6f 72 3d | a4 69 63 6f 6e 5f 73 65 |_editor=|.icon_se|
|00002840| 74 28 33 29 0d 0f 96 05 | 3a 0d 0f a0 22 dd a4 66 |t(3)....|:..."..f|
|00002850| 61 73 74 5f 63 6f 6e 76 | 65 72 73 69 6f 6e 3d a4 |ast_conv|ersion=.|
|00002860| 69 63 6f 6e 5f 73 65 74 | 28 34 29 0d 0f aa 05 3a |icon_set|(4)....:|
|00002870| 0d 0f b4 20 dd a4 73 61 | 76 65 5f 69 66 5f 6e 61 |... ..sa|ve_if_na|
|00002880| 6d 65 64 3d a4 69 63 6f | 6e 5f 73 65 74 28 37 29 |med=.ico|n_set(7)|
|00002890| 0d 0f be 05 3a 0d 0f c8 | 13 dd f2 63 6f 6e 76 65 |....:...|...conve|
|000028a0| 72 74 5f 66 69 6c 65 73 | 0d 0f d2 0b ea 20 70 25 |rt_files|..... p%|
|000028b0| 2c 73 25 0d 0f dc 21 c8 | 99 22 57 69 6d 70 5f 53 |,s%...!.|."Wimp_S|
|000028c0| 6c 6f 74 53 69 7a 65 22 | 2c 2d 31 2c 2d 31 20 b8 |lotSize"|,-1,-1 .|
|000028d0| 20 2c 70 25 0d 0f e6 21 | c8 99 22 4f 53 5f 46 69 | ,p%...!|.."OS_Fi|
|000028e0| 6c 65 22 2c 35 2c 66 69 | 6c 65 31 24 20 b8 20 2c |le",5,fi|le1$ . ,|
|000028f0| 2c 2c 2c 73 25 0d 0f f0 | 3e e7 28 73 25 2b 26 46 |,,,s%...|>.(s%+&F|
|00002900| 30 30 29 3e 70 25 20 f2 | 6f 6b 28 22 4e 6f 74 20 |00)>p% .|ok("Not |
|00002910| 65 6e 6f 75 67 68 20 6d | 65 6d 6f 72 79 20 74 6f |enough m|emory to|
|00002920| 20 6c 6f 61 64 20 74 68 | 65 20 70 72 6f 67 72 61 | load th|e progra|
|00002930| 6d 22 29 0d 0f fa 33 e7 | 66 69 6c 65 5f 74 79 70 |m")...3.|file_typ|
|00002940| 65 25 3d 26 46 46 46 20 | f2 63 6f 6e 76 65 72 74 |e%=&FFF |.convert|
|00002950| 5f 74 65 78 74 20 8b 20 | f2 63 6f 6e 76 65 72 74 |_text . |.convert|
|00002960| 5f 62 61 73 69 63 0d 10 | 04 05 e1 0d 10 0e 05 3a |_basic..|.......:|
|00002970| 0d 10 18 23 dd a4 64 6f | 65 73 5f 74 68 69 73 5f |...#..do|es_this_|
|00002980| 6c 6f 6f 6b 5f 6c 69 6b | 65 5f 42 41 53 49 43 28 |look_lik|e_BASIC(|
|00002990| 73 24 29 0d 10 22 0b ea | 20 63 25 2c 62 25 0d 10 |s$).."..| c%,b%..|
|000029a0| 2c 0c 63 25 3d 8e 28 73 | 24 29 0d 10 36 42 f4 20 |,.c%=.(s|$)..6B. |
|000029b0| 63 68 65 63 6b 20 66 69 | 72 73 74 20 62 79 74 65 |check fi|rst byte|
|000029c0| 20 61 73 20 62 65 69 6e | 67 20 26 44 20 61 6e 64 | as bein|g &D and|
|000029d0| 20 66 6f 75 72 74 68 20 | 62 79 74 65 20 61 73 20 | fourth |byte as |
|000029e0| 62 65 69 6e 67 20 6f 66 | 66 73 65 74 0d 10 40 0b |being of|fset..@.|
|000029f0| f4 20 74 6f 20 26 44 0d | 10 4a 0b 62 25 3d 9a 23 |. to &D.|.J.b%=.#|
|00002a00| 63 25 0d 10 54 0c e7 62 | 25 3d 31 33 20 8c 0d 10 |c%..T..b|%=13 ...|
|00002a10| 5e 1b 20 62 25 3d 9a 23 | 63 25 2b 9a 23 63 25 3a |^. b%=.#|c%+.#c%:|
|00002a20| cf 23 63 25 3d 9a 23 63 | 25 0d 10 68 0c 20 62 25 |.#c%=.#c|%..h. b%|
|00002a30| 3d 9a 23 63 25 0d 10 72 | 05 cc 0d 10 7c 24 20 f4 |=.#c%..r|....|$ .|
|00002a40| 20 74 68 69 73 20 64 6f | 65 73 20 6e 6f 74 20 6c | this do|es not l|
|00002a50| 6f 6f 6b 20 6c 69 6b 65 | 20 42 41 53 49 43 0d 10 |ook like| BASIC..|
|00002a60| 86 05 cd 0d 10 90 08 d9 | 23 63 25 0d 10 9a 0c 3d |........|#c%....=|
|00002a70| 28 62 25 3d 31 33 29 0d | 10 a4 05 3a 0d 10 ae 12 |(b%=13).|...:....|
|00002a80| dd f2 63 6f 6e 76 65 72 | 74 5f 74 65 78 74 0d 10 |..conver|t_text..|
|00002a90| b8 0e ea 20 66 24 2c 62 | 25 2c 63 25 0d 10 c2 29 |... f$,b|%,c%...)|
|00002aa0| 62 25 3d a4 64 6f 65 73 | 5f 74 68 69 73 5f 6c 6f |b%=.does|_this_lo|
|00002ab0| 6f 6b 5f 6c 69 6b 65 5f | 42 41 53 49 43 28 66 69 |ok_like_|BASIC(fi|
|00002ac0| 6c 65 31 24 29 0d 10 cc | 09 e7 62 25 20 8c 0d 10 |le1$)...|..b% ...|
|00002ad0| d6 52 20 62 25 3d 28 a4 | 77 61 72 6e 69 6e 67 28 |.R b%=(.|warning(|
|00002ae0| 22 54 68 69 73 20 6c 6f | 6f 6b 73 20 6c 69 6b 65 |"This lo|oks like|
|00002af0| 20 61 20 42 41 53 49 43 | 20 66 69 6c 65 2e 20 50 | a BASIC| file. P|
|00002b00| 72 6f 63 65 65 64 20 74 | 6f 20 63 6f 6e 76 65 72 |roceed t|o conver|
|00002b10| 74 20 74 6f 20 42 41 53 | 49 43 3f 22 29 3d 32 29 |t to BAS|IC?")=2)|
|00002b20| 0d 10 e0 05 cd 0d 10 ea | 0c e7 ac 28 62 25 29 20 |........|...(b%) |
|00002b30| 8c 0d 10 f4 15 20 c8 99 | 22 48 6f 75 72 67 6c 61 |..... ..|"Hourgla|
|00002b40| 73 73 5f 4f 6e 22 0d 10 | fe 30 20 66 24 3d a4 63 |ss_On"..|.0 f$=.c|
|00002b50| 6f 6e 76 65 72 74 5f 74 | 6f 5f 62 61 73 69 63 28 |onvert_t|o_basic(|
|00002b60| 66 69 6c 65 31 24 2c 22 | 3c 57 69 6d 70 24 53 63 |file1$,"|<Wimp$Sc|
|00002b70| 72 61 70 3e 22 29 0d 11 | 08 16 20 c8 99 22 48 6f |rap>")..|.. .."Ho|
|00002b80| 75 72 67 6c 61 73 73 5f | 4f 66 66 22 0d 11 12 16 |urglass_|Off"....|
|00002b90| 20 e7 a4 73 61 76 65 5f | 69 66 5f 6e 61 6d 65 64 | ..save_|if_named|
|00002ba0| 20 8c 0d 11 1c 0f 20 20 | e7 66 24 3c 3e 22 22 20 | ..... |.f$<>"" |
|00002bb0| 8c 0d 11 26 15 20 20 20 | e7 a7 66 24 2c 22 2e 22 |...&. |..f$,"."|
|00002bc0| 29 3c 3e 30 20 8c 0d 11 | 30 1f 20 20 20 20 e7 20 |)<>0 ...|0. . |
|00002bd0| a4 66 69 6c 65 6e 61 6d | 65 5f 76 61 6c 69 64 28 |.filenam|e_valid(|
|00002be0| 66 24 29 20 8c 0d 11 3a | 18 20 20 20 20 20 f2 73 |f$) ...:|. .s|
|00002bf0| 61 76 65 66 69 6c 65 28 | b9 2c 66 24 29 0d 11 44 |avefile(|.,f$)..D|
|00002c00| 0a 20 20 20 20 20 e1 0d | 11 4e 09 20 20 20 20 cd |. ..|.N. .|
|00002c10| 0d 11 58 08 20 20 20 cd | 0d 11 62 07 20 20 cd 0d |..X. .|..b. ..|
|00002c20| 11 6c 06 20 cd 0d 11 76 | 15 20 24 66 69 6c 65 6e |.l. ...v|. $filen|
|00002c30| 61 6d 65 66 66 62 25 3d | 66 24 0d 11 80 2b 20 f2 |ameffb%=|f$...+ .|
|00002c40| 70 6f 70 75 70 5f 73 61 | 76 65 64 62 6f 78 28 73 |popup_sa|vedbox(s|
|00002c50| 61 76 65 66 66 62 25 2c | 66 69 6c 65 6e 61 6d 65 |aveffb%,|filename|
|00002c60| 66 66 62 25 29 0d 11 8a | 05 cd 0d 11 94 05 e1 0d |ffb%)...|........|
|00002c70| 11 9e 05 3a 0d 11 a8 18 | dd a4 66 69 6c 65 6e 61 |...:....|..filena|
|00002c80| 6d 65 5f 76 61 6c 69 64 | 28 66 24 29 0d 11 b2 0b |me_valid|(f$)....|
|00002c90| ea 20 66 25 2c 63 25 0d | 11 bc 07 ea 20 85 0d 11 |. f%,c%.|.... ...|
|00002ca0| c6 08 66 25 3d b9 0d 11 | d0 0e ee 20 85 20 ea 20 |..f%=...|... . . |
|00002cb0| 66 25 3d a3 0d 11 da 10 | e7 66 25 20 63 25 3d ae |f%=.....|.f% c%=.|
|00002cc0| 28 66 24 29 0d 11 e4 0f | e7 63 25 3c 3e 30 20 d9 |(f$)....|.c%<>0 .|
|00002cd0| 23 63 25 0d 11 ee 07 3d | 66 25 0d 11 f8 05 3a 0d |#c%....=|f%....:.|
|00002ce0| 12 02 13 dd f2 63 6f 6e | 76 65 72 74 5f 62 61 73 |.....con|vert_bas|
|00002cf0| 69 63 0d 12 0c 0b ea 20 | 62 25 2c 63 25 0d 12 16 |ic..... |b%,c%...|
|00002d00| 29 62 25 3d a4 64 6f 65 | 73 5f 74 68 69 73 5f 6c |)b%=.doe|s_this_l|
|00002d10| 6f 6f 6b 5f 6c 69 6b 65 | 5f 42 41 53 49 43 28 66 |ook_like|_BASIC(f|
|00002d20| 69 6c 65 31 24 29 0d 12 | 20 0c e7 ac 28 62 25 29 |ile1$)..| ...(b%)|
|00002d30| 20 8c 0d 12 2a 59 20 62 | 25 3d 28 a4 77 61 72 6e | ...*Y b|%=(.warn|
|00002d40| 69 6e 67 28 22 54 68 69 | 73 20 64 6f 65 73 20 6e |ing("Thi|s does n|
|00002d50| 6f 74 20 6c 6f 6f 6b 20 | 6c 69 6b 65 20 61 20 42 |ot look |like a B|
|00002d60| 41 53 49 43 20 66 69 6c | 65 2e 20 50 72 6f 63 65 |ASIC fil|e. Proce|
|00002d70| 65 64 20 74 6f 20 63 6f | 6e 76 65 72 74 20 74 6f |ed to co|nvert to|
|00002d80| 20 74 65 78 74 3f 22 29 | 3d 31 29 0d 12 34 05 cd | text?")|=1)..4..|
|00002d90| 0d 12 3e 09 e7 62 25 20 | 8c 0d 12 48 15 20 c8 99 |..>..b% |...H. ..|
|00002da0| 22 48 6f 75 72 67 6c 61 | 73 73 5f 4f 6e 22 0d 12 |"Hourgla|ss_On"..|
|00002db0| 52 2c 20 f2 63 6f 6e 76 | 65 72 74 5f 74 6f 5f 74 |R, .conv|ert_to_t|
|00002dc0| 65 78 74 28 66 69 6c 65 | 31 24 2c 22 3c 57 69 6d |ext(file|1$,"<Wim|
|00002dd0| 70 24 53 63 72 61 70 3e | 22 29 0d 12 5c 16 20 c8 |p$Scrap>|")..\. .|
|00002de0| 99 22 48 6f 75 72 67 6c | 61 73 73 5f 4f 66 66 22 |."Hourgl|ass_Off"|
|00002df0| 0d 12 66 26 20 c8 99 22 | 4f 53 5f 46 69 6c 65 22 |..f& .."|OS_File"|
|00002e00| 2c 35 2c 22 3c 57 69 6d | 70 24 53 63 72 61 70 3e |,5,"<Wim|p$Scrap>|
|00002e10| 22 20 b8 20 63 25 0d 12 | 70 0c 20 e7 63 25 3d 31 |" . c%..|p. .c%=1|
|00002e20| 20 8c 0d 12 7a 18 20 20 | e7 a4 73 65 6e 64 5f 74 | ...z. |..send_t|
|00002e30| 6f 5f 65 64 69 74 6f 72 | 20 8c 0d 12 84 1a 20 20 |o_editor| ..... |
|00002e40| 20 e7 65 64 69 74 5f 74 | 61 73 6b 69 64 25 3c 3e | .edit_t|askid%<>|
|00002e50| 2d 31 20 8c 0d 12 8e 32 | 20 20 20 20 f2 64 72 61 |-1 ....2| .dra|
|00002e60| 67 5f 73 61 76 65 66 69 | 6c 65 28 2d 32 2c 30 2c |g_savefi|le(-2,0,|
|00002e70| 30 2c 30 2c 26 46 46 46 | 2c 65 64 69 74 5f 74 61 |0,0,&FFF|,edit_ta|
|00002e80| 73 6b 69 64 25 29 0d 12 | 98 08 20 20 20 cc 0d 12 |skid%)..|.. ...|
|00002e90| a2 17 20 20 20 20 21 71 | 32 25 3d 28 34 38 2b 31 |.. !q|2%=(48+1|
|00002ea0| 39 29 80 ac 33 0d 12 ac | 10 20 20 20 20 71 32 25 |9)..3...|. q2%|
|00002eb0| 21 31 32 3d 30 0d 12 b6 | 10 20 20 20 20 71 32 25 |!12=0...|. q2%|
|00002ec0| 21 31 36 3d 35 0d 12 c0 | 11 20 20 20 20 71 32 25 |!16=5...|. q2%|
|00002ed0| 21 33 36 3d 2d 31 0d 12 | ca 13 20 20 20 20 71 32 |!36=-1..|.. q2|
|00002ee0| 25 21 34 30 3d 26 46 46 | 46 0d 12 d4 20 20 20 20 |%!40=&FF|F... |
|00002ef0| 20 24 28 71 32 25 2b 34 | 34 29 3d 22 3c 57 69 6d | $(q2%+4|4)="<Wim|
|00002f00| 70 24 53 63 72 61 70 3e | 22 0d 12 de 16 20 20 20 |p$Scrap>|".... |
|00002f10| 20 3f 28 71 32 25 2b 34 | 34 2b 31 39 29 3d 30 0d | ?(q2%+4|4+19)=0.|
|00002f20| 12 e8 25 20 20 20 20 c8 | 99 22 57 69 6d 70 5f 53 |..% .|."Wimp_S|
|00002f30| 65 6e 64 4d 65 73 73 61 | 67 65 22 2c 31 38 2c 71 |endMessa|ge",18,q|
|00002f40| 32 25 2c 30 0d 12 f2 08 | 20 20 20 cd 0d 12 fc 07 |2%,0....| .....|
|00002f50| 20 20 cc 0d 13 06 17 20 | 20 20 24 66 69 6c 65 6e | ..... | $filen|
|00002f60| 61 6d 65 66 66 66 25 3d | 22 22 0d 13 10 2d 20 20 |amefff%=|""...- |
|00002f70| 20 f2 70 6f 70 75 70 5f | 73 61 76 65 64 62 6f 78 | .popup_|savedbox|
|00002f80| 28 73 61 76 65 66 66 66 | 25 2c 66 69 6c 65 6e 61 |(savefff|%,filena|
|00002f90| 6d 65 66 66 66 25 29 0d | 13 1a 07 20 20 cd 0d 13 |mefff%).|... ...|
|00002fa0| 24 06 20 cd 0d 13 2e 05 | cd 0d 13 38 05 e1 0d 13 |$. .....|...8....|
|00002fb0| 42 05 3a 0d 13 4c 1b dd | f2 70 6f 70 75 70 5f 73 |B.:..L..|.popup_s|
|00002fc0| 61 76 65 64 62 6f 78 28 | 73 25 2c 66 25 29 0d 13 |avedbox(|s%,f%)..|
|00002fd0| 56 08 ea 20 78 25 0d 13 | 60 0c 73 61 76 65 25 3d |V.. x%..|`.save%=|
|00002fe0| 73 25 0d 13 6a 10 66 69 | 6c 65 6e 61 6d 65 25 3d |s%..j.fi|lename%=|
|00002ff0| 66 25 0d 13 74 1b c8 99 | 22 57 69 6d 70 5f 43 72 |f%..t...|"Wimp_Cr|
|00003000| 65 61 74 65 4d 65 6e 75 | 22 2c 2c 2d 31 0d 13 7e |eateMenu|",,-1..~|
|00003010| 2f e7 24 66 69 6c 65 6e | 61 6d 65 25 3d 22 22 20 |/.$filen|ame%="" |
|00003020| 24 66 69 6c 65 6e 61 6d | 65 25 3d a4 6c 65 61 66 |$filenam|e%=.leaf|
|00003030| 6e 61 6d 65 28 66 69 6c | 65 31 24 29 0d 13 88 3c |name(fil|e1$)...<|
|00003040| 21 71 31 25 3d 2d 31 3a | 71 31 25 21 34 3d 69 63 |!q1%=-1:|q1%!4=ic|
|00003050| 25 3a c8 99 22 57 69 6d | 70 5f 47 65 74 49 63 6f |%:.."Wim|p_GetIco|
|00003060| 6e 53 74 61 74 65 22 2c | 2c 71 31 25 3a 78 25 3d |nState",|,q1%:x%=|
|00003070| 71 31 25 21 38 2d 36 34 | 0d 13 92 2b 21 71 31 25 |q1%!8-64|...+!q1%|
|00003080| 3d 73 61 76 65 25 3a c8 | 99 22 57 69 6d 70 5f 47 |=save%:.|."Wimp_G|
|00003090| 65 74 57 69 6e 64 6f 77 | 53 74 61 74 65 22 2c 2c |etWindow|State",,|
|000030a0| 71 31 25 0d 13 9c 1c 71 | 31 25 21 31 32 3d 28 71 |q1%....q|1%!12=(q|
|000030b0| 31 25 21 31 32 2d 71 31 | 25 21 34 29 2b 78 25 0d |1%!12-q1|%!4)+x%.|
|000030c0| 13 a6 0c 71 31 25 21 34 | 3d 78 25 0d 13 b0 1c 71 |...q1%!4|=x%....q|
|000030d0| 31 25 21 31 36 3d 28 71 | 31 25 21 31 36 2d 71 31 |1%!16=(q|1%!16-q1|
|000030e0| 25 21 38 29 2b 39 36 0d | 13 ba 0c 71 31 25 21 38 |%!8)+96.|...q1%!8|
|000030f0| 3d 39 36 0d 13 c4 1c c8 | 99 22 57 69 6d 70 5f 4f |=96.....|."Wimp_O|
|00003100| 70 65 6e 57 69 6e 64 6f | 77 22 2c 2c 71 31 25 0d |penWindo|w",,q1%.|
|00003110| 13 ce 3a c8 99 22 57 69 | 6d 70 5f 53 65 74 43 61 |..:.."Wi|mp_SetCa|
|00003120| 72 65 74 50 6f 73 69 74 | 69 6f 6e 22 2c 73 61 76 |retPosit|ion",sav|
|00003130| 65 25 2c 32 2c 2d 31 2c | 2d 31 2c 2d 31 2c a9 24 |e%,2,-1,|-1,-1,.$|
|00003140| 66 69 6c 65 6e 61 6d 65 | 25 0d 13 d8 05 e1 0d 13 |filename|%.......|
|00003150| e2 05 3a 0d 13 ec 1c dd | f2 63 6f 6e 76 65 72 74 |..:.....|.convert|
|00003160| 5f 74 6f 5f 74 65 78 74 | 28 73 24 2c 64 24 29 0d |_to_text|(s$,d$).|
|00003170| 13 f6 11 ea 20 70 25 2c | 63 25 2c 64 25 2c 6c 24 |.... p%,|c%,d%,l$|
|00003180| 0d 14 00 1c ea 20 61 6c | 69 61 73 74 77 69 6e 24 |..... al|iastwin$|
|00003190| 2c 20 61 6c 69 61 73 74 | 77 69 6e 25 0d 14 0a 18 |, aliast|win%....|
|000031a0| ea 20 61 6c 69 61 73 62 | 74 24 2c 20 61 6c 69 61 |. aliasb|t$, alia|
|000031b0| 73 62 74 25 0d 14 14 1e | ea 20 70 72 69 6e 74 65 |sbt%....|. printe|
|000031c0| 72 32 35 35 24 2c 20 70 | 72 69 6e 74 65 72 32 35 |r255$, p|rinter25|
|000031d0| 35 25 0d 14 1e 18 ea 20 | 69 67 6e 6f 72 65 31 25 |5%..... |ignore1%|
|000031e0| 2c 20 69 67 6e 6f 72 65 | 32 25 0d 14 28 3c ff 22 |, ignore|2%..(<."|
|000031f0| 43 6f 70 79 20 22 2b 73 | 24 2b 22 20 3c 42 61 73 |Copy "+s|$+" <Bas|
|00003200| 54 78 74 24 44 69 72 3e | 2e 54 65 6d 70 20 7e 41 |Txt$Dir>|.Temp ~A|
|00003210| 7e 43 7e 44 46 7e 4c 7e | 4e 7e 50 7e 51 7e 52 7e |~C~DF~L~|N~P~Q~R~|
|00003220| 53 7e 54 7e 56 22 0d 14 | 32 17 e7 a4 66 61 73 74 |S~T~V"..|2...fast|
|00003230| 5f 63 6f 6e 76 65 72 73 | 69 6f 6e 20 8c 0d 14 3c |_convers|ion ...<|
|00003240| 37 20 61 6c 69 61 73 74 | 77 69 6e 25 3d a4 72 65 |7 aliast|win%=.re|
|00003250| 61 64 5f 76 61 72 69 61 | 62 6c 65 28 22 41 6c 69 |ad_varia|ble("Ali|
|00003260| 61 73 24 54 77 69 6e 22 | 2c 61 6c 69 61 73 74 77 |as$Twin"|,aliastw|
|00003270| 69 6e 24 29 0d 14 46 31 | 20 61 6c 69 61 73 62 74 |in$)..F1| aliasbt|
|00003280| 25 3d a4 72 65 61 64 5f | 76 61 72 69 61 62 6c 65 |%=.read_|variable|
|00003290| 28 22 41 6c 69 61 73 24 | 42 54 22 2c 61 6c 69 61 |("Alias$|BT",alia|
|000032a0| 73 62 74 24 29 0d 14 50 | 78 20 ff 28 22 53 65 74 |sbt$)..P|x .("Set|
|000032b0| 20 41 6c 69 61 73 24 54 | 77 69 6e 20 53 65 74 45 | Alias$T|win SetE|
|000032c0| 76 61 6c 20 41 6c 69 61 | 73 24 42 54 20 22 22 53 |val Alia|s$BT ""S|
|000032d0| 61 76 65 20 22 2b 64 24 | 2b 22 20 22 22 2b 28 28 |ave "+d$|+" ""+((|
|000032e0| 22 22 25 30 22 22 29 4c | 45 46 54 39 29 52 49 47 |""%0"")L|EFT9)RIG|
|000032f0| 48 54 38 2b 22 22 20 22 | 22 2b 28 28 22 22 25 30 |HT8+"" "|"+((""%0|
|00003300| 22 22 29 52 49 47 48 54 | 31 34 29 4c 45 46 54 38 |"")RIGHT|14)LEFT8|
|00003310| 7c 4d 42 54 7c 4d 42 41 | 53 49 43 22 29 0d 14 5a ||MBT|MBA|SIC")..Z|
|00003320| 24 20 f2 73 63 72 69 70 | 74 32 28 22 3c 42 61 73 |$ .scrip|t2("<Bas|
|00003330| 54 78 74 24 44 69 72 3e | 2e 54 65 6d 70 22 2c b9 |Txt$Dir>|.Temp",.|
|00003340| 29 0d 14 64 2c 20 f2 72 | 75 6e 5f 73 63 72 69 70 |)..d, .r|un_scrip|
|00003350| 74 28 32 2c 22 3c 42 61 | 73 54 78 74 24 44 69 72 |t(2,"<Ba|sTxt$Dir|
|00003360| 3e 2e 54 65 6d 70 22 2c | 64 24 2c b9 29 0d 14 6e |>.Temp",|d$,.)..n|
|00003370| 38 20 f2 77 72 69 74 65 | 5f 76 61 72 69 61 62 6c |8 .write|_variabl|
|00003380| 65 28 22 41 6c 69 61 73 | 24 54 77 69 6e 22 2c 61 |e("Alias|$Twin",a|
|00003390| 6c 69 61 73 74 77 69 6e | 24 2c 61 6c 69 61 73 74 |liastwin|$,aliast|
|000033a0| 77 69 6e 25 29 0d 14 78 | 32 20 f2 77 72 69 74 65 |win%)..x|2 .write|
|000033b0| 5f 76 61 72 69 61 62 6c | 65 28 22 41 6c 69 61 73 |_variabl|e("Alias|
|000033c0| 24 42 54 22 2c 61 6c 69 | 61 73 62 74 24 2c 61 6c |$BT",ali|asbt$,al|
|000033d0| 69 61 73 62 74 25 29 0d | 14 82 05 cc 0d 14 8c 3e |iasbt%).|.......>|
|000033e0| 20 70 72 69 6e 74 65 72 | 32 35 35 25 3d a4 72 65 | printer|255%=.re|
|000033f0| 61 64 5f 76 61 72 69 61 | 62 6c 65 28 22 50 72 69 |ad_varia|ble("Pri|
|00003400| 6e 74 65 72 54 79 70 65 | 24 32 35 35 22 2c 70 72 |nterType|$255",pr|
|00003410| 69 6e 74 65 72 32 35 35 | 24 29 0d 14 96 21 20 ff |inter255|$)...! .|
|00003420| 28 22 53 65 74 20 50 72 | 69 6e 74 65 72 54 79 70 |("Set Pr|interTyp|
|00003430| 65 24 32 35 35 20 22 2b | 64 24 29 0d 14 a0 1c 20 |e$255 "+|d$).... |
|00003440| c8 99 22 4f 53 5f 42 79 | 74 65 22 2c 35 2c 32 35 |.."OS_By|te",5,25|
|00003450| 35 20 b8 20 2c 70 25 0d | 14 aa 23 20 c8 99 22 4f |5 . ,p%.|..# .."O|
|00003460| 53 5f 42 79 74 65 22 2c | 32 34 36 2c 31 30 20 b8 |S_Byte",|246,10 .|
|00003470| 20 2c 69 67 6e 6f 72 65 | 31 25 0d 14 b4 22 20 c8 | ,ignore|1%..." .|
|00003480| 99 22 4f 53 5f 42 79 74 | 65 22 2c 31 38 32 2c 30 |."OS_Byt|e",182,0|
|00003490| 20 b8 20 2c 69 67 6e 6f | 72 65 32 25 0d 14 be 24 | . ,igno|re2%...$|
|000034a0| 20 f2 73 63 72 69 70 74 | 31 28 22 3c 42 61 73 54 | .script|1("<BasT|
|000034b0| 78 74 24 44 69 72 3e 2e | 54 65 6d 70 22 2c b9 29 |xt$Dir>.|Temp",.)|
|000034c0| 0d 14 c8 2c 20 f2 72 75 | 6e 5f 73 63 72 69 70 74 |..., .ru|n_script|
|000034d0| 28 32 2c 22 3c 42 61 73 | 54 78 74 24 44 69 72 3e |(2,"<Bas|Txt$Dir>|
|000034e0| 2e 54 65 6d 70 22 2c 64 | 24 2c b9 29 0d 14 d2 15 |.Temp",d|$,.)....|
|000034f0| 20 c8 99 22 4f 53 5f 42 | 79 74 65 22 2c 35 2c 70 | .."OS_B|yte",5,p|
|00003500| 25 0d 14 dc 1d 20 c8 99 | 22 4f 53 5f 42 79 74 65 |%.... ..|"OS_Byte|
|00003510| 22 2c 32 34 36 2c 69 67 | 6e 6f 72 65 31 25 0d 14 |",246,ig|nore1%..|
|00003520| e6 1d 20 c8 99 22 4f 53 | 5f 42 79 74 65 22 2c 31 |.. .."OS|_Byte",1|
|00003530| 38 32 2c 69 67 6e 6f 72 | 65 32 25 0d 14 f0 3f 20 |82,ignor|e2%...? |
|00003540| f2 77 72 69 74 65 5f 76 | 61 72 69 61 62 6c 65 28 |.write_v|ariable(|
|00003550| 22 50 72 69 6e 74 65 72 | 54 79 70 65 24 32 35 35 |"Printer|Type$255|
|00003560| 22 2c 70 72 69 6e 74 65 | 72 32 35 35 24 2c 70 72 |",printe|r255$,pr|
|00003570| 69 6e 74 65 72 32 35 35 | 25 29 0d 14 fa 1e 20 64 |inter255|%).... d|
|00003580| 25 3d ae 28 22 3c 42 61 | 73 54 78 74 24 44 69 72 |%=.("<Ba|sTxt$Dir|
|00003590| 3e 2e 54 65 6d 70 22 29 | 0d 15 04 0d 20 63 25 3d |>.Temp")|.... c%=|
|000035a0| 8e 28 64 24 29 0d 15 0e | 24 20 6c 24 3d be 23 63 |.(d$)...|$ l$=.#c|
|000035b0| 25 3a f4 20 6c 6f 73 65 | 20 74 68 65 20 4c 49 53 |%:. lose| the LIS|
|000035c0| 54 20 63 6f 6d 6d 61 6e | 64 0d 15 18 0e 20 c8 95 |T comman|d.... ..|
|000035d0| 20 ac 20 c5 23 63 25 0d | 15 22 0d 20 20 6c 24 3d | . .#c%.|.". l$=|
|000035e0| be 23 63 25 0d 15 2c 34 | 20 20 e7 ac c5 23 63 25 |.#c%..,4| ...#c%|
|000035f0| 20 d5 23 64 25 2c 6c 24 | 3a f4 20 6c 6f 73 65 73 | .#d%,l$|:. loses|
|00003600| 20 6c 61 73 74 20 6c 69 | 6e 65 20 61 75 74 6f 6d | last li|ne autom|
|00003610| 61 74 69 63 61 6c 6c 79 | 0d 15 36 06 20 ce 0d 15 |atically|..6. ...|
|00003620| 40 09 20 d9 23 64 25 0d | 15 4a 09 20 d9 23 63 25 |@. .#d%.|.J. .#c%|
|00003630| 0d 15 54 3d 20 ff 22 43 | 6f 70 79 20 3c 42 61 73 |..T= ."C|opy <Bas|
|00003640| 54 78 74 24 44 69 72 3e | 2e 54 65 6d 70 20 22 2b |Txt$Dir>|.Temp "+|
|00003650| 64 24 2b 22 20 7e 41 7e | 43 7e 44 46 7e 4c 7e 4e |d$+" ~A~|C~DF~L~N|
|00003660| 7e 50 7e 51 7e 52 7e 53 | 7e 54 7e 56 22 0d 15 5e |~P~Q~R~S|~T~V"..^|
|00003670| 05 cd 0d 15 68 1e 2a 25 | 52 65 6d 6f 76 65 20 3c |....h.*%|Remove <|
|00003680| 42 61 73 54 78 74 24 44 | 69 72 3e 2e 54 65 6d 70 |BasTxt$D|ir>.Temp|
|00003690| 0d 15 72 19 c8 99 22 4f | 53 5f 46 69 6c 65 22 2c |..r..."O|S_File",|
|000036a0| 35 2c 64 24 20 b8 20 63 | 25 0d 15 7c 21 e7 63 25 |5,d$ . c|%..|!.c%|
|000036b0| 3d 31 20 ff 28 22 53 65 | 74 74 79 70 65 20 22 2b |=1 .("Se|ttype "+|
|000036c0| 64 24 2b 22 20 46 46 46 | 22 29 0d 15 86 05 e1 0d |d$+" FFF|")......|
|000036d0| 15 90 05 3a 0d 15 9a 21 | dd a4 72 65 61 64 5f 76 |...:...!|..read_v|
|000036e0| 61 72 69 61 62 6c 65 28 | 6e 61 6d 65 24 2c f8 20 |ariable(|name$,. |
|000036f0| 76 61 72 24 29 0d 15 a4 | 24 f4 20 72 65 74 75 72 |var$)...|$. retur|
|00003700| 6e 73 20 74 79 70 65 20 | 6f 66 20 76 61 72 69 61 |ns type |of varia|
|00003710| 62 6c 65 20 66 6f 75 6e | 64 0d 15 ae 0e ea 20 73 |ble foun|d..... s|
|00003720| 25 2c 74 25 2c 69 25 0d | 15 b8 33 c8 99 22 58 4f |%,t%,i%.|..3.."XO|
|00003730| 53 5f 52 65 61 64 56 61 | 72 56 61 6c 22 2c 6e 61 |S_ReadVa|rVal",na|
|00003740| 6d 65 24 2c 71 32 25 2c | 32 35 36 2c 30 2c 30 20 |me$,q2%,|256,0,0 |
|00003750| b8 20 2c 2c 73 25 2c 2c | 74 25 0d 15 c2 0b e7 73 |. ,,s%,,|t%.....s|
|00003760| 25 3d 30 20 8c 0d 15 cc | 08 20 3d 2d 31 0d 15 d6 |%=0 ....|. =-1...|
|00003770| 05 cc 0d 15 e0 0c 20 76 | 61 72 24 3d 22 22 0d 15 |...... v|ar$=""..|
|00003780| ea 0f 20 e3 69 25 3d 30 | b8 73 25 2d 31 0d 15 f4 |.. .i%=0|.s%-1...|
|00003790| 15 20 20 76 61 72 24 2b | 3d bd 28 71 32 25 3f 69 |. var$+|=.(q2%?i|
|000037a0| 25 29 0d 15 fe 06 20 ed | 0d 16 08 08 20 3d 74 25 |%).... .|.... =t%|
|000037b0| 0d 16 12 05 cd 0d 16 1c | 05 3a 0d 16 26 2a dd f2 |........|.:..&*..|
|000037c0| 77 72 69 74 65 5f 76 61 | 72 69 61 62 6c 65 28 6e |write_va|riable(n|
|000037d0| 61 6d 65 24 2c 63 6f 6e | 74 65 6e 74 24 2c 74 79 |ame$,con|tent$,ty|
|000037e0| 70 65 25 29 0d 16 30 0f | e7 74 79 70 65 25 3d 2d |pe%)..0.|.type%=-|
|000037f0| 31 20 8c 0d 16 3a 16 20 | ff 28 22 55 6e 73 65 74 |1 ...:. |.("Unset|
|00003800| 20 22 2b 6e 61 6d 65 24 | 29 0d 16 44 05 cc 0d 16 | "+name$|)..D....|
|00003810| 4e 36 20 c8 99 22 4f 53 | 5f 53 65 74 56 61 72 56 |N6 .."OS|_SetVarV|
|00003820| 61 6c 22 2c 6e 61 6d 65 | 24 2c 63 6f 6e 74 65 6e |al",name|$,conten|
|00003830| 74 24 2c a9 63 6f 6e 74 | 65 6e 74 24 2c 30 2c 74 |t$,.cont|ent$,0,t|
|00003840| 79 70 65 25 0d 16 58 05 | cd 0d 16 62 05 e1 0d 16 |ype%..X.|...b....|
|00003850| 6c 05 3a 0d 16 76 11 dd | a4 77 61 72 6e 69 6e 67 |l.:..v..|.warning|
|00003860| 28 73 24 29 0d 16 80 08 | ea 20 72 25 0d 16 8a 19 |(s$)....|. r%....|
|00003870| 21 71 31 25 3d 30 3a 24 | 28 71 31 25 2b 34 29 3d |!q1%=0:$|(q1%+4)=|
|00003880| 73 24 2b bd 30 0d 16 94 | 3f c8 99 22 57 69 6d 70 |s$+.0...|?.."Wimp|
|00003890| 5f 52 65 70 6f 72 74 45 | 72 72 6f 72 22 2c 71 31 |_ReportE|rror",q1|
|000038a0| 25 2c 25 31 30 31 31 31 | 2c 22 57 61 72 6e 69 6e |%,%10111|,"Warnin|
|000038b0| 67 20 66 72 6f 6d 20 42 | 61 73 54 78 74 22 20 b8 |g from B|asTxt" .|
|000038c0| 20 2c 72 25 0d 16 9e 07 | 3d 72 25 0d 16 a8 05 3a | ,r%....|=r%....:|
|000038d0| 0d 16 b2 1d dd a4 63 6f | 6e 76 65 72 74 5f 74 6f |......co|nvert_to|
|000038e0| 5f 62 61 73 69 63 28 73 | 24 2c 64 24 29 0d 16 bc |_basic(s|$,d$)...|
|000038f0| 0e ea 20 63 25 2c 62 25 | 2c 66 24 0d 16 c6 0c 63 |.. c%,b%|,f$....c|
|00003900| 25 3d 8e 28 73 24 29 0d | 16 d0 1c 66 24 3d be 23 |%=.(s$).|...f$=.#|
|00003910| 63 25 3a f4 20 67 65 74 | 20 66 69 72 73 74 20 6c |c%:. get| first l|
|00003920| 69 6e 65 0d 16 da 0f cf | 23 63 25 3d a2 23 63 25 |ine.....|#c%=.#c%|
|00003930| 2d 31 0d 16 e4 0b 62 25 | 3d 9a 23 63 25 0d 16 ee |-1....b%|=.#c%...|
|00003940| 08 d9 23 63 25 0d 16 f8 | 3d e7 62 25 3c 3e 31 33 |..#c%...|=.b%<>13|
|00003950| 20 80 20 62 25 3c 3e 31 | 30 20 f2 6f 6b 28 22 54 | . b%<>1|0 .ok("T|
|00003960| 65 78 74 20 66 69 6c 65 | 20 6d 75 73 74 20 65 6e |ext file| must en|
|00003970| 64 20 77 69 74 68 20 61 | 20 6e 65 77 6c 69 6e 65 |d with a| newline|
|00003980| 22 29 0d 17 02 13 f2 73 | 63 72 69 70 74 33 28 73 |").....s|cript3(s|
|00003990| 24 2c 64 24 29 0d 17 0c | 1a f2 72 75 6e 5f 73 63 |$,d$)...|..run_sc|
|000039a0| 72 69 70 74 28 31 2c 73 | 24 2c 64 24 2c a3 29 0d |ript(1,s|$,d$,.).|
|000039b0| 17 16 18 3d a4 69 6e 63 | 6f 72 65 66 69 6c 65 6e |...=.inc|orefilen|
|000039c0| 61 6d 65 28 66 24 29 0d | 17 20 05 3a 0d 17 2a 18 |ame(f$).|. .:..*.|
|000039d0| dd a4 69 6e 63 6f 72 65 | 66 69 6c 65 6e 61 6d 65 |..incore|filename|
|000039e0| 28 6c 24 29 0d 17 34 08 | ea 20 69 25 0d 17 3e 0f |(l$)..4.|. i%..>.|
|000039f0| e7 6c 24 3d 22 22 20 3a | 3d 22 22 0d 17 48 20 c8 |.l$="" :|=""..H .|
|00003a00| 95 c0 6c 24 2c 31 29 3d | 22 20 22 20 6c 24 3d c1 |..l$,1)=|" " l$=.|
|00003a10| 6c 24 2c 32 29 3a ef 34 | 32 3a ce 0d 17 52 0f e7 |l$,2):.4|2:...R..|
|00003a20| 6c 24 3d 22 22 20 3a 3d | 22 22 0d 17 5c 33 c8 95 |l$="" :=|""..\3..|
|00003a30| a7 22 31 32 33 34 35 36 | 37 38 39 30 22 2c c0 6c |."123456|7890",.l|
|00003a40| 24 2c 31 29 29 3c 3e 30 | 20 f1 c0 6c 24 2c 31 29 |$,1))<>0| ..l$,1)|
|00003a50| 3b 3a 6c 24 3d c1 6c 24 | 2c 32 29 3a ce 0d 17 66 |;:l$=.l$|,2):...f|
|00003a60| 0f e7 6c 24 3d 22 22 20 | 3a 3d 22 22 0d 17 70 1c |..l$="" |:=""..p.|
|00003a70| c8 95 c0 6c 24 2c 31 29 | 3d 22 20 22 20 6c 24 3d |...l$,1)|=" " l$=|
|00003a80| c1 6c 24 2c 32 29 3a ce | 0d 17 7a 17 e7 c0 6c 24 |.l$,2):.|..z...l$|
|00003a90| 2c 33 29 3c 3e 22 52 45 | 4d 22 20 3a 3d 22 22 0d |,3)<>"RE|M" :="".|
|00003aa0| 17 84 26 6c 24 3d c1 6c | 24 2c 34 29 3a f4 20 6c |..&l$=.l|$,4):. l|
|00003ab0| 6f 73 65 20 74 68 65 20 | 52 45 4d 20 73 74 61 74 |ose the |REM stat|
|00003ac0| 65 6d 65 6e 74 0d 17 8e | 0f e7 6c 24 3d 22 22 20 |ement...|..l$="" |
|00003ad0| 3a 3d 22 22 0d 17 98 1d | c8 95 20 c0 6c 24 2c 31 |:=""....|.. .l$,1|
|00003ae0| 29 3d 22 20 22 20 6c 24 | 3d c1 6c 24 2c 32 29 3a |)=" " l$|=.l$,2):|
|00003af0| ce 0d 17 a2 15 e7 c0 6c | 24 2c 31 29 3c 3e 22 3e |.......l|$,1)<>">|
|00003b00| 22 20 3a 3d 22 22 0d 17 | ac 1f 6c 24 3d c1 6c 24 |" :=""..|..l$=.l$|
|00003b10| 2c 32 29 3a f4 20 6c 6f | 73 65 20 74 68 65 20 3e |,2):. lo|se the >|
|00003b20| 20 63 68 61 72 0d 17 b6 | 0f e7 6c 24 3d 22 22 20 | char...|..l$="" |
|00003b30| 3a 3d 22 22 0d 17 c0 1d | c8 95 20 c0 6c 24 2c 31 |:=""....|.. .l$,1|
|00003b40| 29 3d 22 20 22 20 6c 24 | 3d c1 6c 24 2c 32 29 3a |)=" " l$|=.l$,2):|
|00003b50| ce 0d 17 ca 0f e7 6c 24 | 3d 22 22 20 3a 3d 22 22 |......l$|="" :=""|
|00003b60| 0d 17 d4 1e 69 25 3d a7 | 6c 24 2c 22 20 22 29 3a |....i%=.|l$," "):|
|00003b70| e7 69 25 3d 30 20 69 25 | 3d a9 6c 24 2b 31 0d 17 |.i%=0 i%|=.l$+1..|
|00003b80| de 0e 3d c0 6c 24 2c 69 | 25 2d 31 29 0d 17 e8 05 |..=.l$,i|%-1)....|
|00003b90| 3a 0d 17 f2 21 dd f2 72 | 75 6e 5f 73 63 72 69 70 |:...!..r|un_scrip|
|00003ba0| 74 28 61 25 2c 73 24 2c | 64 24 2c 73 74 72 69 70 |t(a%,s$,|d$,strip|
|00003bb0| 25 29 0d 17 fc 17 ea 20 | 62 25 2c 72 30 25 2c 72 |%)..... |b%,r0%,r|
|00003bc0| 31 25 2c 72 32 25 2c 6c | 25 0d 18 06 29 c8 99 22 |1%,r2%,l|%...).."|
|00003bd0| 57 69 6d 70 5f 53 6c 6f | 74 53 69 7a 65 22 2c 2d |Wimp_Slo|tSize",-|
|00003be0| 31 2c 2d 31 20 b8 20 72 | 30 25 2c 72 31 25 2c 72 |1,-1 . r|0%,r1%,r|
|00003bf0| 32 25 0d 18 10 19 62 25 | 3d 8e 28 73 24 29 3a 6c |2%....b%|=.(s$):l|
|00003c00| 25 3d a2 23 62 25 3a d9 | 23 62 25 0d 18 1a 50 e7 |%=.#b%:.|#b%...P.|
|00003c10| 72 32 25 3c 28 6c 25 2b | 26 31 30 30 30 29 20 f2 |r2%<(l%+|&1000) .|
|00003c20| 69 6e 69 74 5f 73 79 73 | 74 65 6d 3a f2 6f 6b 28 |init_sys|tem:.ok(|
|00003c30| 22 4e 6f 74 20 65 6e 6f | 75 67 68 20 66 72 65 65 |"Not eno|ugh free|
|00003c40| 20 6d 65 6d 6f 72 79 20 | 74 6f 20 74 72 61 6e 73 | memory |to trans|
|00003c50| 6c 61 74 65 20 66 69 6c | 65 22 29 0d 18 24 33 c8 |late fil|e")..$3.|
|00003c60| 99 22 57 69 6d 70 5f 53 | 6c 6f 74 53 69 7a 65 22 |."Wimp_S|lotSize"|
|00003c70| 2c 2d 31 2c 72 32 25 3a | f4 20 67 72 61 62 20 61 |,-1,r2%:|. grab a|
|00003c80| 6c 6c 20 74 68 65 20 6d | 65 6d 6f 72 79 21 0d 18 |ll the m|emory!..|
|00003c90| 2e 1c c8 99 22 4f 53 5f | 42 79 74 65 22 2c 33 2c |...."OS_|Byte",3,|
|00003ca0| 25 31 31 30 20 b8 20 2c | 62 25 0d 18 38 31 c8 99 |%110 . ,|b%..81..|
|00003cb0| 22 57 69 6d 70 5f 53 74 | 61 72 74 54 61 73 6b 22 |"Wimp_St|artTask"|
|00003cc0| 2c 22 45 78 65 63 20 3c | 42 61 73 54 78 74 24 44 |,"Exec <|BasTxt$D|
|00003cd0| 69 72 3e 2e 53 63 72 69 | 70 74 22 0d 18 42 32 c8 |ir>.Scri|pt"..B2.|
|00003ce0| 99 22 57 69 6d 70 5f 53 | 6c 6f 74 53 69 7a 65 22 |."Wimp_S|lotSize"|
|00003cf0| 2c 2d 31 2c 72 31 25 3a | f4 20 72 65 73 74 6f 72 |,-1,r1%:|. restor|
|00003d00| 65 20 61 6c 6c 6f 63 61 | 74 69 6f 6e 73 0d 18 4c |e alloca|tions..L|
|00003d10| 14 c8 99 22 4f 53 5f 42 | 79 74 65 22 2c 33 2c 62 |..."OS_B|yte",3,b|
|00003d20| 25 0d 18 56 19 c8 99 22 | 4f 53 5f 46 69 6c 65 22 |%..V..."|OS_File"|
|00003d30| 2c 35 2c 64 24 20 b8 20 | 62 25 0d 18 60 0c e7 62 |,5,d$ . |b%..`..b|
|00003d40| 25 3c 3e 31 20 8c 0d 18 | 6a 0c 20 e7 61 25 3d 31 |%<>1 ...|j. .a%=1|
|00003d50| 20 8c 0d 18 74 2b 20 20 | f2 6f 6b 28 22 55 6e 61 | ...t+ |.ok("Una|
|00003d60| 62 6c 65 20 74 6f 20 63 | 72 65 61 74 65 20 42 41 |ble to c|reate BA|
|00003d70| 53 49 43 20 70 72 6f 67 | 72 61 6d 22 29 0d 18 7e |SIC prog|ram")..~|
|00003d80| 06 20 cc 0d 18 88 20 20 | 20 e7 a4 73 74 72 69 70 |. .... | ..strip|
|00003d90| 5f 6e 75 6d 62 65 72 73 | 20 80 20 73 74 72 69 70 |_numbers| . strip|
|00003da0| 25 20 8c 0d 18 92 5f 20 | 20 20 62 25 3d 28 a4 77 |% ...._ | b%=(.w|
|00003db0| 61 72 6e 69 6e 67 28 22 | 42 41 53 49 43 20 70 72 |arning("|BASIC pr|
|00003dc0| 6f 67 72 61 6d 20 6d 61 | 79 20 68 61 76 65 20 61 |ogram ma|y have a|
|00003dd0| 20 6c 69 6e 65 20 72 65 | 66 65 72 65 6e 63 65 2e | line re|ference.|
|00003de0| 20 54 72 79 20 61 67 61 | 69 6e 20 77 69 74 68 20 | Try aga|in with |
|00003df0| 6c 69 6e 65 20 6e 75 6d | 62 65 72 73 3f 22 29 3d |line num|bers?")=|
|00003e00| 31 29 0d 18 9c 0c 20 20 | 20 e7 62 25 20 8c 0d 18 |1).... | .b% ...|
|00003e10| a6 1b 20 20 20 20 e7 a4 | 66 61 73 74 5f 63 6f 6e |.. ..|fast_con|
|00003e20| 76 65 72 73 69 6f 6e 20 | 8c 0d 18 b0 17 20 20 20 |version |..... |
|00003e30| 20 20 f2 73 63 72 69 70 | 74 32 28 73 24 2c a3 29 | .scrip|t2(s$,.)|
|00003e40| 0d 18 ba 09 20 20 20 20 | cc 0d 18 c4 17 20 20 20 |.... |..... |
|00003e50| 20 20 f2 73 63 72 69 70 | 74 31 28 73 24 2c a3 29 | .scrip|t1(s$,.)|
|00003e60| 0d 18 ce 09 20 20 20 20 | cd 0d 18 d8 1e 20 20 20 |.... |..... |
|00003e70| 20 f2 72 75 6e 5f 73 63 | 72 69 70 74 28 32 2c 73 | .run_sc|ript(2,s|
|00003e80| 24 2c 64 24 2c a3 29 0d | 18 e2 08 20 20 20 cd 0d |$,d$,.).|... ..|
|00003e90| 18 ec 07 20 20 cc 0d 18 | f6 28 20 20 20 f2 6f 6b |... ...|.( .ok|
|00003ea0| 28 22 55 6e 61 62 6c 65 | 20 74 6f 20 63 72 65 61 |("Unable| to crea|
|00003eb0| 74 65 20 74 65 78 74 20 | 66 69 6c 65 22 29 0d 19 |te text |file")..|
|00003ec0| 00 07 20 20 cd 0d 19 0a | 06 20 cd 0d 19 14 05 cd |.. ....|. ......|
|00003ed0| 0d 19 1e 05 e1 0d 19 28 | 05 3a 0d 19 32 14 dd f2 |.......(|.:..2...|
|00003ee0| 73 63 72 69 70 74 31 28 | 73 24 2c 66 25 29 0d 19 |script1(|s$,f%)..|
|00003ef0| 3c 08 ea 20 63 25 0d 19 | 46 1f 63 25 3d ae 28 22 |<.. c%..|F.c%=.("|
|00003f00| 3c 42 61 73 54 78 74 24 | 44 69 72 3e 2e 53 63 72 |<BasTxt$|Dir>.Scr|
|00003f10| 69 70 74 22 29 0d 19 50 | 1a d5 23 63 25 2c 22 42 |ipt")..P|..#c%,"B|
|00003f20| 61 73 69 63 20 2d 6c 6f | 61 64 20 22 2b 73 24 0d |asic -lo|ad "+s$.|
|00003f30| 19 5a 27 e7 a4 73 74 72 | 69 70 5f 6e 75 6d 62 65 |.Z'..str|ip_numbe|
|00003f40| 72 73 20 80 20 66 25 20 | d5 23 63 25 2c 22 4c 49 |rs . f% |.#c%,"LI|
|00003f50| 53 54 4f 20 38 22 0d 19 | 64 22 d5 23 63 25 2c 22 |STO 8"..|d".#c%,"|
|00003f60| 53 59 53 36 2c 32 32 39 | 2c 30 3a 53 59 53 36 2c |SYS6,229|,0:SYS6,|
|00003f70| 33 2c 25 31 30 30 30 22 | 0d 19 6e 0f d5 23 63 25 |3,%1000"|..n..#c%|
|00003f80| 2c 22 4c 49 53 54 22 0d | 19 78 33 d5 23 63 25 2c |,"LIST".|.x3.#c%,|
|00003f90| 22 53 59 53 36 2c 32 32 | 39 2c 31 3a 53 59 53 36 |"SYS6,22|9,1:SYS6|
|00003fa0| 2c 33 2c 25 31 31 30 3a | 53 59 53 26 34 30 30 45 |,3,%110:|SYS&400E|
|00003fb0| 46 2c 2d 31 3a 51 55 49 | 54 22 0d 19 82 08 d9 23 |F,-1:QUI|T".....#|
|00003fc0| 63 25 0d 19 8c 05 e1 0d | 19 96 05 3a 0d 19 a0 14 |c%......|...:....|
|00003fd0| dd f2 73 63 72 69 70 74 | 32 28 73 24 2c 66 25 29 |..script|2(s$,f%)|
|00003fe0| 0d 19 aa 08 ea 20 63 25 | 0d 19 b4 1f 63 25 3d ae |..... c%|....c%=.|
|00003ff0| 28 22 3c 42 61 73 54 78 | 74 24 44 69 72 3e 2e 53 |("<BasTx|t$Dir>.S|
|00004000| 63 72 69 70 74 22 29 0d | 19 be 1a d5 23 63 25 2c |cript").|....#c%,|
|00004010| 22 42 61 73 69 63 20 2d | 6c 6f 61 64 20 22 2b 73 |"Basic -|load "+s|
|00004020| 24 0d 19 c8 34 e7 a4 73 | 74 72 69 70 5f 6e 75 6d |$...4..s|trip_num|
|00004030| 62 65 72 73 20 80 20 66 | 25 20 d5 23 63 25 2c 22 |bers . f|% .#c%,"|
|00004040| 54 57 49 4e 4f 38 22 20 | 8b 20 d5 23 63 25 2c 22 |TWINO8" |. .#c%,"|
|00004050| 54 57 49 4e 22 0d 19 d2 | 1c d5 23 63 25 2c 22 53 |TWIN"...|..#c%,"S|
|00004060| 59 53 26 34 30 30 45 46 | 2c 2d 31 3a 51 55 49 54 |YS&400EF|,-1:QUIT|
|00004070| 22 0d 19 dc 08 d9 23 63 | 25 0d 19 e6 05 e1 0d 19 |".....#c|%.......|
|00004080| f0 05 3a 0d 19 fa 14 dd | f2 73 63 72 69 70 74 33 |..:.....|.script3|
|00004090| 28 73 24 2c 64 24 29 0d | 1a 04 08 ea 20 63 25 0d |(s$,d$).|.... c%.|
|000040a0| 1a 0e 1f 63 25 3d ae 28 | 22 3c 42 61 73 54 78 74 |...c%=.(|"<BasTxt|
|000040b0| 24 44 69 72 3e 2e 53 63 | 72 69 70 74 22 29 0d 1a |$Dir>.Sc|ript")..|
|000040c0| 18 1a d5 23 63 25 2c 22 | 42 61 73 69 63 20 2d 6c |...#c%,"|Basic -l|
|000040d0| 6f 61 64 20 22 2b 73 24 | 0d 1a 22 1b d5 23 63 25 |oad "+s$|.."..#c%|
|000040e0| 2c 22 53 41 56 45 20 22 | 2b bd 33 34 2b 64 24 2b |,"SAVE "|+.34+d$+|
|000040f0| bd 33 34 0d 1a 2c 1c d5 | 23 63 25 2c 22 53 59 53 |.34..,..|#c%,"SYS|
|00004100| 26 34 30 30 45 46 2c 2d | 31 3a 51 55 49 54 22 0d |&400EF,-|1:QUIT".|
|00004110| 1a 36 08 d9 23 63 25 0d | 1a 40 05 e1 0d 1a 4a 05 |.6..#c%.|.@....J.|
|00004120| 3a 0d 1a 54 0c dd a4 63 | 72 6d 65 6e 75 0d 1a 5e |:..T...c|rmenu..^|
|00004130| 1a ea 20 4d 25 2c 6d 65 | 6e 75 24 2c 6d 24 2c 49 |.. M%,me|nu$,m$,I|
|00004140| 25 2c 6d 61 78 78 25 0d | 1a 68 36 e7 20 28 6d 65 |%,maxx%.|.h6. (me|
|00004150| 6e 75 66 72 65 65 25 2b | 32 38 3e 6d 65 6e 75 65 |nufree%+|28>menue|
|00004160| 6e 64 25 29 20 f2 66 61 | 74 61 6c 28 22 4d 65 6e |nd%) .fa|tal("Men|
|00004170| 75 20 61 72 65 61 20 66 | 75 6c 6c 22 29 0d 1a 72 |u area f|ull")..r|
|00004180| 0b f3 20 6d 65 6e 75 24 | 0d 1a 7c 15 c8 95 20 c2 |.. menu$|..|... .|
|00004190| 6d 65 6e 75 24 2c 32 29 | 3d 22 2b 2b 22 0d 1a 86 |menu$,2)|="++"...|
|000041a0| 09 20 f3 20 6d 24 0d 1a | 90 1e 20 6d 65 6e 75 24 |. . m$..|.. menu$|
|000041b0| 3d c0 6d 65 6e 75 24 2c | a9 6d 65 6e 75 24 2d 32 |=.menu$,|.menu$-2|
|000041c0| 29 2b 6d 24 0d 1a 9a 05 | ce 0d 1a a4 16 6d 65 6e |)+m$....|.....men|
|000041d0| 75 70 74 72 25 3d 6d 65 | 6e 75 66 72 65 65 25 0d |uptr%=me|nufree%.|
|000041e0| 1a ae 08 49 25 3d 30 0d | 1a b8 15 e7 20 c0 6d 65 |...I%=0.|.... .me|
|000041f0| 6e 75 24 2c 31 29 3d 22 | 23 22 20 8c 0d 1a c2 09 |nu$,1)="|#" .....|
|00004200| 20 49 25 3d 31 0d 1a cc | 19 20 6d 65 6e 75 74 69 | I%=1...|. menuti|
|00004210| 74 6c 65 24 3d a4 70 61 | 72 28 22 2c 22 29 0d 1a |tle$=.pa|r(",")..|
|00004220| d6 05 cc 0d 1a e0 12 20 | 6d 65 6e 75 74 69 74 6c |....... |menutitl|
|00004230| 65 24 3d 22 22 0d 1a ea | 05 cd 0d 1a f4 18 24 6d |e$=""...|......$m|
|00004240| 65 6e 75 70 74 72 25 3d | 6d 65 6e 75 74 69 74 6c |enuptr%=|menutitl|
|00004250| 65 24 0d 1a fe 11 6d 65 | 6e 75 70 74 72 25 3f 31 |e$....me|nuptr%?1|
|00004260| 32 3d 37 0d 1b 08 11 6d | 65 6e 75 70 74 72 25 3f |2=7....m|enuptr%?|
|00004270| 31 33 3d 32 0d 1b 12 11 | 6d 65 6e 75 70 74 72 25 |13=2....|menuptr%|
|00004280| 3f 31 34 3d 37 0d 1b 1c | 11 6d 65 6e 75 70 74 72 |?14=7...|.menuptr|
|00004290| 25 3f 31 35 3d 30 0d 1b | 26 13 6d 65 6e 75 70 74 |%?15=0..|&.menupt|
|000042a0| 72 25 21 31 36 3d 31 39 | 36 0d 1b 30 12 6d 65 6e |r%!16=19|6..0.men|
|000042b0| 75 70 74 72 25 21 32 30 | 3d 34 34 0d 1b 3a 11 6d |uptr%!20|=44..:.m|
|000042c0| 65 6e 75 70 74 72 25 21 | 32 34 3d 30 0d 1b 44 10 |enuptr%!|24=0..D.|
|000042d0| 6d 65 6e 75 70 74 72 25 | 2b 3d 32 38 0d 1b 4e 17 |menuptr%|+=28..N.|
|000042e0| 6d 61 78 78 25 3d a9 6d | 65 6e 75 74 69 74 6c 65 |maxx%=.m|enutitle|
|000042f0| 24 2d 33 0d 1b 58 05 f5 | 0d 1b 62 14 20 69 74 65 |$-3..X..|..b. ite|
|00004300| 6d 24 3d a4 70 61 72 28 | 22 2c 22 29 0d 1b 6c 15 |m$=.par(|",")..l.|
|00004310| 20 f2 6d 65 6e 75 69 74 | 65 6d 28 69 74 65 6d 24 | .menuit|em(item$|
|00004320| 29 0d 1b 76 0e fd 20 69 | 74 65 6d 24 3d 22 22 0d |)..v.. i|tem$="".|
|00004330| 1b 80 10 4d 25 3d 6d 65 | 6e 75 66 72 65 65 25 0d |...M%=me|nufree%.|
|00004340| 1b 8a 17 4d 25 21 31 36 | 3d 28 6d 61 78 78 25 2a |...M%!16|=(maxx%*|
|00004350| 38 2b 36 29 2a 32 0d 1b | 94 16 6d 65 6e 75 66 72 |8+6)*2..|..menufr|
|00004360| 65 65 25 3d 6d 65 6e 75 | 70 74 72 25 0d 1b 9e 07 |ee%=menu|ptr%....|
|00004370| 3d 4d 25 0d 1b a8 05 3a | 0d 1b b2 15 dd f2 6d 65 |=M%....:|......me|
|00004380| 6e 75 69 74 65 6d 28 74 | 65 78 74 24 29 0d 1b bc |nuitem(t|ext$)...|
|00004390| 0e ea 20 49 25 2c 46 25 | 2c 4c 25 0d 1b c6 10 e7 |.. I%,F%|,L%.....|
|000043a0| 20 74 65 78 74 24 3d 22 | 22 20 8c 0d 1b d0 24 20 | text$="|" ....$ |
|000043b0| 6d 65 6e 75 70 74 72 25 | 21 2d 32 34 3d 28 6d 65 |menuptr%|!-24=(me|
|000043c0| 6e 75 70 74 72 25 21 2d | 32 34 29 84 26 38 30 0d |nuptr%!-|24).&80.|
|000043d0| 1b da 06 20 e1 0d 1b e4 | 05 cd 0d 1b ee 35 e7 20 |... ....|.....5. |
|000043e0| 6d 65 6e 75 70 74 72 25 | 2b 32 34 20 3e 20 6d 65 |menuptr%|+24 > me|
|000043f0| 6e 75 65 6e 64 25 20 f2 | 66 61 74 61 6c 28 22 4d |nuend% .|fatal("M|
|00004400| 65 6e 75 20 61 72 65 61 | 20 66 75 6c 6c 22 29 0d |enu area| full").|
|00004410| 1b f8 0a 46 25 3d 26 30 | 30 0d 1c 02 29 e7 20 c2 |...F%=&0|0...). .|
|00004420| 74 65 78 74 24 2c 31 29 | 3d 22 23 22 20 74 65 78 |text$,1)|="#" tex|
|00004430| 74 24 3d c0 74 65 78 74 | 24 29 3a 46 25 2b 3d 26 |t$=.text|$):F%+=&|
|00004440| 30 32 0d 1c 0c 29 e7 20 | c2 74 65 78 74 24 2c 31 |02...). |.text$,1|
|00004450| 29 3d 22 40 22 20 74 65 | 78 74 24 3d c0 74 65 78 |)="@" te|xt$=.tex|
|00004460| 74 24 29 3a 46 25 2b 3d | 26 30 38 0d 1c 16 11 6d |t$):F%+=|&08....m|
|00004470| 65 6e 75 70 74 72 25 21 | 30 3d 46 25 0d 1c 20 11 |enuptr%!|0=F%.. .|
|00004480| 6d 65 6e 75 70 74 72 25 | 21 34 3d 2d 31 0d 1c 2a |menuptr%|!4=-1..*|
|00004490| 18 6d 65 6e 75 70 74 72 | 25 21 38 3d 26 30 37 30 |.menuptr|%!8=&070|
|000044a0| 30 30 30 32 31 0d 1c 34 | 15 e7 20 c0 74 65 78 74 |00021..4|.. .text|
|000044b0| 24 2c 31 29 3d 22 24 22 | 20 8c 0d 1c 3e 13 20 49 |$,1)="$"| ...>. I|
|000044c0| 25 3d a7 74 65 78 74 24 | 2c 22 28 22 29 0d 1c 48 |%=.text$|,"(")..H|
|000044d0| 0d 20 e7 20 49 25 3e 30 | 20 8c 0d 1c 52 16 20 20 |. . I%>0| ...R. |
|000044e0| 4c 25 3d bb c1 74 65 78 | 74 24 2c 49 25 2b 31 29 |L%=..tex|t$,I%+1)|
|000044f0| 0d 1c 5c 18 20 20 74 65 | 78 74 24 3d c0 74 65 78 |..\. te|xt$=.tex|
|00004500| 74 24 2c 49 25 2d 31 29 | 0d 1c 66 06 20 cc 0d 1c |t$,I%-1)|..f. ...|
|00004510| 70 0b 20 20 4c 25 3d 31 | 32 0d 1c 7a 06 20 cd 0d |p. L%=1|2..z. ..|
|00004520| 1c 84 13 20 21 6d 65 6e | 75 70 74 72 25 2b 3d 26 |... !men|uptr%+=&|
|00004530| 30 34 0d 1c 8e 15 20 6d | 65 6e 75 70 74 72 25 21 |04.... m|enuptr%!|
|00004540| 38 2b 3d 26 31 30 30 0d | 1c 98 1b 20 6d 65 6e 75 |8+=&100.|... menu|
|00004550| 70 74 72 25 21 31 32 3d | a0 c1 74 65 78 74 24 2c |ptr%!12=|..text$,|
|00004560| 32 29 0d 1c a2 13 20 6d | 65 6e 75 70 74 72 25 21 |2).... m|enuptr%!|
|00004570| 31 36 3d 2d 31 0d 1c ac | 13 20 6d 65 6e 75 70 74 |16=-1...|. menupt|
|00004580| 72 25 21 32 30 3d 4c 25 | 0d 1c b6 11 20 e7 4c 25 |r%!20=L%|.... .L%|
|00004590| 3e 31 36 20 4c 25 3d 31 | 36 0d 1c c0 13 20 74 65 |>16 L%=1|6.... te|
|000045a0| 78 74 24 3d c4 4c 25 2c | 22 20 22 29 0d 1c ca 05 |xt$=.L%,|" ")....|
|000045b0| cc 0d 1c d4 11 20 e7 a9 | 74 65 78 74 24 3c 3d 31 |..... ..|text$<=1|
|000045c0| 32 8c 0d 1c de 1a 20 20 | 24 28 6d 65 6e 75 70 74 |2..... |$(menupt|
|000045d0| 72 25 2b 31 32 29 3d 74 | 65 78 74 24 0d 1c e8 06 |r%+12)=t|ext$....|
|000045e0| 20 cc 0d 1c f2 1d 20 20 | 49 25 3d a4 77 6f 72 6b | ..... |I%=.work|
|000045f0| 73 70 61 63 65 28 a9 74 | 65 78 74 24 2b 31 29 0d |space(.t|ext$+1).|
|00004600| 1c fc 0f 20 20 24 49 25 | 3d 74 65 78 74 24 0d 1d |... $I%|=text$..|
|00004610| 06 22 20 20 6d 65 6e 75 | 70 74 72 25 21 38 3d 6d |." menu|ptr%!8=m|
|00004620| 65 6e 75 70 74 72 25 21 | 38 20 84 20 26 31 30 30 |enuptr%!|8 . &100|
|00004630| 0d 1d 10 14 20 20 6d 65 | 6e 75 70 74 72 25 21 31 |.... me|nuptr%!1|
|00004640| 32 3d 49 25 0d 1d 1a 14 | 20 20 6d 65 6e 75 70 74 |2=I%....| menupt|
|00004650| 72 25 21 31 36 3d 2d 31 | 0d 1d 24 1a 20 20 6d 65 |r%!16=-1|..$. me|
|00004660| 6e 75 70 74 72 25 21 32 | 30 3d a9 74 65 78 74 24 |nuptr%!2|0=.text$|
|00004670| 2b 31 0d 1d 2e 06 20 cd | 0d 1d 38 05 cd 0d 1d 42 |+1.... .|..8....B|
|00004680| 1f e7 20 a9 74 65 78 74 | 24 3e 6d 61 78 78 25 20 |.. .text|$>maxx% |
|00004690| 6d 61 78 78 25 3d a9 74 | 65 78 74 24 0d 1d 4c 10 |maxx%=.t|ext$..L.|
|000046a0| 6d 65 6e 75 70 74 72 25 | 2b 3d 32 34 0d 1d 56 05 |menuptr%|+=24..V.|
|000046b0| e1 0d 1d 60 05 3a 0d 1d | 6a 0f dd a4 70 61 72 28 |...`.:..|j...par(|
|000046c0| 73 65 70 24 29 0d 1d 74 | 08 ea 20 4c 25 0d 1d 7e |sep$)..t|.. L%..~|
|000046d0| 0b 4c 25 3d 49 25 2b 31 | 0d 1d 88 1b 49 25 3d a7 |.L%=I%+1|....I%=.|
|000046e0| 6d 65 6e 75 24 2b 73 65 | 70 24 2c 73 65 70 24 2c |menu$+se|p$,sep$,|
|000046f0| 4c 25 29 0d 1d 92 15 3d | c1 6d 65 6e 75 24 2c 4c |L%)....=|.menu$,L|
|00004700| 25 2c 49 25 2d 4c 25 29 | 0d 1d 9c 05 3a 0d 1d a6 |%,I%-L%)|....:...|
|00004710| 13 dd a4 77 6f 72 6b 73 | 70 61 63 65 28 4c 25 29 |...works|pace(L%)|
|00004720| 0d 1d b0 36 e7 20 63 75 | 72 77 73 25 2b 4c 25 3e |...6. cu|rws%+L%>|
|00004730| 77 73 25 2b 6d 61 78 77 | 73 25 20 f2 66 61 74 61 |ws%+maxw|s% .fata|
|00004740| 6c 28 22 4e 6f 20 6d 6f | 72 65 20 77 6f 72 6b 73 |l("No mo|re works|
|00004750| 70 61 63 65 22 29 0d 1d | ba 0e 63 75 72 77 73 25 |pace")..|..curws%|
|00004760| 2b 3d 4c 25 0d 1d c4 0e | 3d 63 75 72 77 73 25 2d |+=L%....|=curws%-|
|00004770| 4c 25 0d 1d ce 05 3a 0d | 1d d8 1b dd f2 61 74 74 |L%....:.|.....att|
|00004780| 61 63 68 5f 6d 65 6e 75 | 28 6d 25 2c 6f 25 2c 70 |ach_menu|(m%,o%,p|
|00004790| 25 29 0d 1d e2 17 21 28 | 6d 25 2b 32 38 2b 6f 25 |%)....!(|m%+28+o%|
|000047a0| 2a 32 34 2b 34 29 3d 70 | 25 0d 1d ec 05 e1 0d ff |*24+4)=p|%.......|
+--------+-------------------------+-------------------------+--------+--------+
