home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / lineed_1 / !LineEdit_!RunImage < prev    next >
Unknown  |  1991-01-02  |  12.4 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.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% xdgMime image/x-tga default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1c f4 20 3e 24 | 2e 21 4c 69 6e 65 45 64 |..... >$|.!LineEd|
|00000010| 69 74 2e 21 52 75 6e 49 | 6d 61 67 65 0d 00 14 2f |it.!RunI|mage.../|
|00000020| f4 20 42 41 53 49 43 20 | 46 72 6f 6e 74 2d 65 6e |. BASIC |Front-en|
|00000030| 64 20 66 6f 72 20 74 68 | 65 20 4c 69 6e 65 20 45 |d for th|e Line E|
|00000040| 64 69 74 6f 72 20 56 32 | 2e 33 30 0d 00 15 24 f4 |ditor V2|.30...$.|
|00000050| 20 28 43 29 20 52 69 63 | 68 61 72 64 20 4b 2e 20 | (C) Ric|hard K. |
|00000060| 4c 6c 6f 79 64 20 31 39 | 39 30 2c 31 39 39 31 0d |Lloyd 19|90,1991.|
|00000070| 00 1e 04 0d 00 28 15 f4 | 20 52 65 63 6f 6d 6d 65 |.....(..| Recomme|
|00000080| 6e 64 65 64 20 43 44 3a | 0d 00 32 1f f4 20 22 41 |nded CD:|..2.. "A|
|00000090| 70 72 69 6c 20 4d 6f 6f | 6e 22 20 62 79 20 53 61 |pril Moo|n" by Sa|
|000000a0| 6d 20 42 72 6f 77 6e 0d | 00 3c 4a f4 20 45 78 74 |m Brown.|.<J. Ext|
|000000b0| 72 61 20 74 72 61 63 6b | 73 20 6f 6e 20 74 68 65 |ra track|s on the|
|000000c0| 20 43 44 20 6f 6e 6c 79 | 20 61 6e 64 20 73 68 65 | CD only| and she|
|000000d0| 27 73 20 67 65 74 74 69 | 6e 67 20 62 65 74 74 65 |'s getti|ng bette|
|000000e0| 72 20 61 6c 6c 20 74 68 | 65 20 74 69 6d 65 2e 2e |r all th|e time..|
|000000f0| 2e 0d 00 46 04 0d 00 50 | 1b f4 20 47 65 6e 65 72 |...F...P|.. Gener|
|00000100| 61 6c 20 65 72 72 6f 72 | 20 74 72 61 70 70 65 72 |al error| trapper|
|00000110| 0d 00 5a 14 ee 20 85 20 | f2 73 79 73 74 65 6d 65 |..Z.. . |.systeme|
|00000120| 72 72 6f 72 0d 00 64 04 | 0d 00 6e 1b f4 20 41 70 |rror..d.|..n.. Ap|
|00000130| 70 6c 69 63 61 74 69 6f | 6e 20 43 6f 6e 73 74 61 |plicatio|n Consta|
|00000140| 6e 74 73 0d 00 78 36 70 | 72 6f 67 24 3d 22 4c 69 |nts..x6p|rog$="Li|
|00000150| 6e 65 20 45 64 69 74 6f | 72 22 3a f4 20 45 6e 67 |ne Edito|r":. Eng|
|00000160| 6c 69 73 68 20 74 65 78 | 74 20 6e 61 6d 65 20 6f |lish tex|t name o|
|00000170| 66 20 70 72 6f 67 72 61 | 6d 0d 00 96 42 65 76 61 |f progra|m...Beva|
|00000180| 6c 76 61 72 24 3d 22 3c | 4c 69 6e 65 45 64 69 74 |lvar$="<|LineEdit|
|00000190| 6f 72 24 44 69 72 3e 22 | 3a f4 20 45 56 41 4c 75 |or$Dir>"|:. EVALu|
|000001a0| 61 74 6f 72 20 65 6e 76 | 69 72 6f 6e 6d 65 6e 74 |ator env|ironment|
|000001b0| 61 6c 20 76 61 72 69 61 | 62 6c 65 0d 00 a0 4a 69 |al varia|ble...Ji|
|000001c0| 63 6f 6e 62 61 72 74 79 | 70 65 25 3d 2d 31 3a f4 |conbarty|pe%=-1:.|
|000001d0| 20 2d 31 20 3d 20 55 74 | 69 6c 69 74 79 20 28 52 | -1 = Ut|ility (R|
|000001e0| 48 53 20 6f 66 20 62 61 | 72 29 2c 20 2d 32 20 3d |HS of ba|r), -2 =|
|000001f0| 20 53 65 72 76 69 63 65 | 20 28 4c 48 53 20 6f 66 | Service| (LHS of|
|00000200| 20 62 61 72 29 0d 00 aa | 2b 62 61 74 74 65 72 79 | bar)...|+battery|
|00000210| 25 3d 33 37 3a f4 20 42 | 61 73 65 20 66 6f 72 20 |%=37:. B|ase for |
|00000220| 43 4d 4f 53 20 52 41 4d | 20 73 74 6f 72 61 67 65 |CMOS RAM| storage|
|00000230| 0d 00 b4 13 77 69 6e 64 | 73 74 72 24 3d 22 32 2e |....wind|str$="2.|
|00000240| 30 30 22 0d 00 be 4a 77 | 69 6e 64 6d 61 6e 25 3d |00"...Jw|indman%=|
|00000250| bb 28 77 69 6e 64 73 74 | 72 24 29 2a 31 30 30 3a |.(windst|r$)*100:|
|00000260| f4 20 45 78 70 65 63 74 | 20 61 74 20 4c 45 41 53 |. Expect| at LEAS|
|00000270| 54 20 56 32 2e 30 30 20 | 6f 66 20 74 68 65 20 57 |T V2.00 |of the W|
|00000280| 69 6e 64 6f 77 20 4d 61 | 6e 61 67 65 72 0d 00 c8 |indow Ma|nager...|
|00000290| 32 62 6c 24 3d bd 28 30 | 29 3a f4 20 4e 55 4c 4c |2bl$=.(0|):. NULL|
|000002a0| 20 63 68 61 72 20 75 73 | 65 64 20 74 6f 20 74 65 | char us|ed to te|
|000002b0| 72 6d 69 6e 61 74 65 20 | 73 74 72 69 6e 67 73 0d |rminate |strings.|
|000002c0| 00 d2 04 0d 00 dc 16 f4 | 20 4f 53 20 76 65 72 73 |........| OS vers|
|000002d0| 69 6f 6e 20 63 68 65 63 | 6b 0d 00 e6 47 e7 20 a6 |ion chec|k...G. .|
|000002e0| 28 2d 32 35 36 29 3c 31 | 36 31 3a f2 66 61 74 61 |(-256)<1|61:.fata|
|000002f0| 6c 28 22 44 65 73 6b 74 | 6f 70 20 66 72 6f 6e 74 |l("Deskt|op front|
|00000300| 2d 65 6e 64 20 72 65 71 | 75 69 72 65 73 20 61 74 |-end req|uires at|
|00000310| 20 6c 65 61 73 74 20 52 | 49 53 43 20 4f 53 22 29 | least R|ISC OS")|
|00000320| 0d 00 f0 04 0d 00 fa 1f | f4 20 57 6f 72 6b 73 70 |........|. Worksp|
|00000330| 61 63 65 20 66 6f 72 20 | 61 70 70 6c 69 63 61 74 |ace for |applicat|
|00000340| 69 6f 6e 0d 01 04 29 de | 20 69 6e 66 6f 77 69 6e |ion...).| infowin|
|00000350| 64 25 20 26 34 30 30 3a | f4 20 54 65 6d 70 6c 61 |d% &400:|. Templa|
|00000360| 74 65 20 77 6f 72 6b 73 | 70 61 63 65 0d 01 0e 25 |te works|pace...%|
|00000370| de 20 70 6f 6c 6c 25 20 | 32 35 36 3a f4 20 57 69 |. poll% |256:. Wi|
|00000380| 6d 70 5f 50 6f 6c 6c 20 | 77 6f 72 6b 73 70 61 63 |mp_Poll |workspac|
|00000390| 65 0d 01 18 28 de 20 69 | 63 6f 6e 25 20 34 38 3a |e...(. i|con% 48:|
|000003a0| f4 20 49 63 6f 6e 20 62 | 61 72 20 69 63 6f 6e 20 |. Icon b|ar icon |
|000003b0| 77 6f 72 6b 73 70 61 63 | 65 0d 01 22 2b de 20 6d |workspac|e.."+. m|
|000003c0| 65 6e 75 25 20 26 34 30 | 30 3a f4 20 4d 65 6e 75 |enu% &40|0:. Menu|
|000003d0| 20 73 74 72 75 63 74 75 | 72 65 20 77 6f 72 6b 73 | structu|re works|
|000003e0| 70 61 63 65 0d 01 2c 40 | de 20 74 61 73 6b 63 6f |pace..,@|. taskco|
|000003f0| 6e 73 74 25 20 38 3a 24 | 74 61 73 6b 63 6f 6e 73 |nst% 8:$|taskcons|
|00000400| 74 25 3d 22 54 41 53 4b | 22 3a f4 20 53 74 6f 72 |t%="TASK|":. Stor|
|00000410| 65 20 54 61 73 6b 20 63 | 6f 6e 73 74 61 6e 74 20 |e Task c|onstant |
|00000420| 68 65 72 65 0d 01 36 39 | de 20 69 63 6f 6e 64 61 |here..69|. iconda|
|00000430| 74 61 25 20 32 35 36 3a | f4 20 54 65 6d 70 20 77 |ta% 256:|. Temp w|
|00000440| 6f 72 6b 73 70 61 63 65 | 20 74 6f 20 67 65 74 2f |orkspace| to get/|
|00000450| 70 75 74 20 69 63 6f 6e | 20 64 61 74 61 0d 01 40 |put icon| data..@|
|00000460| 04 0d 01 4a 15 f4 20 49 | 6e 69 74 69 61 6c 69 73 |...J.. I|nitialis|
|00000470| 65 20 57 49 4d 50 0d 01 | 54 4a c8 99 20 22 58 57 |e WIMP..|TJ.. "XW|
|00000480| 69 6d 70 5f 49 6e 69 74 | 69 61 6c 69 73 65 22 2c |imp_Init|ialise",|
|00000490| 77 69 6e 64 6d 61 6e 25 | 2c 21 74 61 73 6b 63 6f |windman%|,!taskco|
|000004a0| 6e 73 74 25 2c 70 72 6f | 67 24 2b 62 6c 24 20 b8 |nst%,pro|g$+bl$ .|
|000004b0| 20 77 69 6e 64 76 65 72 | 73 25 2c 74 61 73 6b 25 | windver|s%,task%|
|000004c0| 0d 01 5e 5a e7 20 77 69 | 6e 64 76 65 72 73 25 3c |..^Z. wi|ndvers%<|
|000004d0| 77 69 6e 64 6d 61 6e 25 | 20 8c 20 f2 66 61 74 61 |windman%| . .fata|
|000004e0| 6c 28 70 72 6f 67 24 2b | 22 20 72 65 71 75 69 72 |l(prog$+|" requir|
|000004f0| 65 73 20 57 69 6e 64 6f | 77 20 4d 61 6e 61 67 65 |es Windo|w Manage|
|00000500| 72 20 56 22 2b 77 69 6e | 64 73 74 72 24 2b 22 20 |r V"+win|dstr$+" |
|00000510| 6f 72 20 6c 61 74 65 72 | 22 29 0d 01 68 04 0d 01 |or later|")..h...|
|00000520| 72 33 f2 72 65 6c 6f 61 | 64 3a f4 20 4d 61 6b 65 |r3.reloa|d:. Make|
|00000530| 20 73 75 72 65 20 4c 69 | 6e 65 20 45 64 69 74 6f | sure Li|ne Edito|
|00000540| 72 20 6d 6f 64 75 6c 65 | 20 69 73 20 74 68 65 72 |r module| is ther|
|00000550| 65 0d 01 7c 42 f2 6d 61 | 6b 65 6d 65 6e 75 3a f4 |e..|B.ma|kemenu:.|
|00000560| 20 43 6f 6e 73 74 72 75 | 63 74 20 6d 65 6e 75 20 | Constru|ct menu |
|00000570| 28 73 68 6f 75 6c 64 20 | 62 65 20 42 45 46 4f 52 |(should |be BEFOR|
|00000580| 45 20 74 65 6d 70 6c 61 | 74 65 20 6c 6f 61 64 69 |E templa|te loadi|
|00000590| 6e 67 29 0d 01 86 32 f2 | 67 65 74 74 65 6d 70 6c |ng)...2.|gettempl|
|000005a0| 61 74 65 73 3a f4 20 47 | 65 74 20 77 69 6e 64 6f |ates:. G|et windo|
|000005b0| 77 20 74 65 6d 70 6c 61 | 74 65 73 20 66 72 6f 6d |w templa|tes from|
|000005c0| 20 66 69 6c 65 0d 01 90 | 24 f2 6d 61 6b 65 69 63 | file...|$.makeic|
|000005d0| 6f 6e 3a f4 20 43 72 65 | 61 74 65 20 69 63 6f 6e |on:. Cre|ate icon|
|000005e0| 20 62 61 72 20 69 63 6f | 6e 0d 01 9a 1c f2 69 6e | bar ico|n.....in|
|000005f0| 69 74 5f 64 69 61 6c 6f | 67 28 22 45 64 43 75 72 |it_dialo|g("EdCur|
|00000600| 73 6f 72 22 29 0d 01 a4 | 1b f2 69 6e 69 74 5f 64 |sor")...|..init_d|
|00000610| 69 61 6c 6f 67 28 22 45 | 64 4c 69 6e 65 73 22 29 |ialog("E|dLines")|
|00000620| 0d 01 ae 1a f2 69 6e 69 | 74 5f 64 69 61 6c 6f 67 |.....ini|t_dialog|
|00000630| 28 22 45 64 53 69 7a 65 | 22 29 0d 01 b8 04 0d 01 |("EdSize|")......|
|00000640| c2 22 71 75 69 74 25 3d | a3 3a f4 20 4e 6f 74 68 |."quit%=|.:. Noth|
|00000650| 69 6e 67 20 68 61 70 70 | 65 6e 65 64 20 79 65 74 |ing happ|ened yet|
|00000660| 0d 01 cc 2e 6d 75 6c 74 | 69 25 3d a3 3a f4 20 4e |....mult|i%=.:. N|
|00000670| 6f 20 73 69 67 6e 20 6f | 66 20 6d 75 6c 74 69 70 |o sign o|f multip|
|00000680| 6c 65 20 69 6e 76 6f 63 | 61 74 69 6f 6e 73 0d 01 |le invoc|ations..|
|00000690| d6 29 6b 69 6c 6c 6d 6f | 64 25 3d a3 3a f4 20 44 |.)killmo|d%=.:. D|
|000006a0| 6f 6e 27 74 20 6b 69 6c | 6c 20 6d 6f 64 75 6c 65 |on't kil|l module|
|000006b0| 20 70 6c 65 61 73 65 0d | 01 e0 05 f5 0d 01 ea 28 | please.|.......(|
|000006c0| 20 20 20 c8 99 20 22 58 | 57 69 6d 70 5f 50 6f 6c | .. "X|Wimp_Pol|
|000006d0| 6c 22 2c 30 2c 70 6f 6c | 6c 25 20 b8 20 72 65 61 |l",0,pol|l% . rea|
|000006e0| 73 6f 6e 25 0d 01 f4 13 | 20 20 20 c8 8e 20 72 65 |son%....| .. re|
|000006f0| 61 73 6f 6e 25 20 ca 0d | 01 fe 42 20 20 20 20 20 |ason% ..|..B |
|00000700| 20 c9 20 20 20 20 20 20 | 32 3a c8 99 20 22 58 57 | . |2:.. "XW|
|00000710| 69 6d 70 5f 4f 70 65 6e | 57 69 6e 64 6f 77 22 2c |imp_Open|Window",|
|00000720| 2c 70 6f 6c 6c 25 3a f4 | 20 49 6e 66 6f 20 77 69 |,poll%:.| Info wi|
|00000730| 6e 64 6f 77 20 64 72 61 | 67 0d 02 08 1e 20 20 20 |ndow dra|g.... |
|00000740| 20 20 20 c9 20 20 20 20 | 20 20 36 3a f2 6d 6f 75 | . | 6:.mou|
|00000750| 73 65 63 6c 69 63 6b 0d | 02 12 1e 20 20 20 20 20 |seclick.|... |
|00000760| 20 c9 20 20 20 20 20 20 | 39 3a f2 6d 65 6e 75 73 | . |9:.menus|
|00000770| 65 6c 65 63 74 0d 02 1c | 1f 20 20 20 20 20 20 c9 |elect...|. .|
|00000780| 20 20 31 37 2c 31 38 3a | f2 77 69 6d 70 6d 65 73 | 17,18:|.wimpmes|
|00000790| 73 61 67 65 0d 02 26 08 | 20 20 20 cb 0d 02 30 0b |sage..&.| ...0.|
|000007a0| fd 20 71 75 69 74 25 0d | 02 3a 2a c8 99 20 22 58 |. quit%.|.:*.. "X|
|000007b0| 57 69 6d 70 5f 43 6c 6f | 73 65 44 6f 77 6e 22 2c |Wimp_Clo|seDown",|
|000007c0| 74 61 73 6b 25 2c 21 74 | 61 73 6b 63 6f 6e 73 74 |task%,!t|askconst|
|000007d0| 25 0d 02 44 1d e7 20 6d | 75 6c 74 69 25 3d a3 20 |%..D.. m|ulti%=. |
|000007e0| 80 20 6b 69 6c 6c 6d 6f | 64 25 3d b9 20 8c 0d 02 |. killmo|d%=. ...|
|000007f0| 4e 40 20 20 20 71 75 69 | 74 25 3d a4 6f 73 63 6c |N@ qui|t%=.oscl|
|00000800| 69 28 22 52 4d 4b 69 6c | 6c 20 4c 69 6e 65 45 64 |i("RMKil|l LineEd|
|00000810| 69 74 6f 72 22 29 3a f4 | 20 42 79 65 2d 62 79 65 |itor"):.| Bye-bye|
|00000820| 20 6c 6f 76 65 6c 79 20 | 6d 6f 64 75 6c 65 0d 02 | lovely |module..|
|00000830| 62 05 cd 0d 02 6c 10 c8 | 99 20 22 4f 53 5f 45 78 |b....l..|. "OS_Ex|
|00000840| 69 74 22 0d 02 76 04 0d | 02 80 10 dd f2 6d 6f 75 |it"..v..|.....mou|
|00000850| 73 65 63 6c 69 63 6b 0d | 02 8a 10 c8 8e 20 70 6f |seclick.|..... po|
|00000860| 6c 6c 25 21 38 20 ca 0d | 02 94 19 20 20 20 c9 20 |ll%!8 ..|... . |
|00000870| 20 20 32 3a f2 73 68 6f | 77 6e 65 77 6d 65 6e 75 | 2:.sho|wnewmenu|
|00000880| 0d 02 9e 05 cb 0d 02 a8 | 05 e1 0d 02 b2 04 0d 02 |........|........|
|00000890| bc 11 dd f2 73 68 6f 77 | 6e 65 77 6d 65 6e 75 0d |....show|newmenu.|
|000008a0| 02 c6 08 ea 20 79 25 0d | 02 d0 3a e7 20 70 6f 6c |.... y%.|..:. pol|
|000008b0| 6c 25 21 31 32 3d 2d 32 | 3a 79 25 3d 39 36 2b 21 |l%!12=-2|:y%=96+!|
|000008c0| 73 70 61 63 69 6e 67 2a | 6e 75 6d 69 74 65 6d 73 |spacing*|numitems|
|000008d0| 25 20 8b 20 79 25 3d 70 | 6f 6c 6c 25 21 34 2b 31 |% . y%=p|oll%!4+1|
|000008e0| 36 0d 02 da 1c 6f 6c 64 | 78 25 3d 21 70 6f 6c 6c |6....old|x%=!poll|
|000008f0| 25 2d 36 34 3a 6f 6c 64 | 79 25 3d 79 25 0d 02 e4 |%-64:old|y%=y%...|
|00000900| 10 f2 73 68 6f 77 6f 6c | 64 6d 65 6e 75 0d 02 ee |..showol|dmenu...|
|00000910| 05 e1 0d 02 f8 04 0d 03 | 02 11 dd f2 73 68 6f 77 |........|....show|
|00000920| 6f 6c 64 6d 65 6e 75 0d | 03 0c 2c c8 99 20 22 58 |oldmenu.|..,.. "X|
|00000930| 57 69 6d 70 5f 43 72 65 | 61 74 65 4d 65 6e 75 22 |Wimp_Cre|ateMenu"|
|00000940| 2c 2c 6d 65 6e 75 25 2c | 6f 6c 64 78 25 2c 6f 6c |,,menu%,|oldx%,ol|
|00000950| 64 79 25 0d 03 16 05 e1 | 0d 03 20 04 0d 03 2a 10 |dy%.....|.. ...*.|
|00000960| dd f2 6d 65 6e 75 73 65 | 6c 65 63 74 0d 03 34 21 |..menuse|lect..4!|
|00000970| ea 20 6d 6f 75 73 65 25 | 2c 69 74 65 6d 25 3a 69 |. mouse%|,item%:i|
|00000980| 74 65 6d 25 3d 21 70 6f | 6c 6c 25 2b 31 0d 03 3e |tem%=!po|ll%+1..>|
|00000990| 33 c8 99 20 22 58 57 69 | 6d 70 5f 47 65 74 50 6f |3.. "XWi|mp_GetPo|
|000009a0| 69 6e 74 65 72 49 6e 66 | 6f 22 2c 2c 70 6f 6c 6c |interInf|o",,poll|
|000009b0| 25 3a 6d 6f 75 73 65 25 | 3d 70 6f 6c 6c 25 21 38 |%:mouse%|=poll%!8|
|000009c0| 0d 03 48 0e c8 8e 20 69 | 74 65 6d 25 20 ca 0d 03 |..H... i|tem% ...|
|000009d0| 52 2b 20 20 20 c9 20 20 | 20 20 20 20 20 20 20 32 |R+ . | 2|
|000009e0| 3a f2 6d 6f 64 75 6c 65 | 63 6f 6d 6d 61 6e 64 28 |:.module|command(|
|000009f0| 22 52 65 63 61 6c 6c 22 | 29 0d 03 5c 2d 20 20 20 |"Recall"|)..\- |
|00000a00| c9 20 20 20 20 20 20 20 | 20 20 33 3a f2 6d 6f 64 |. | 3:.mod|
|00000a10| 75 6c 65 63 6f 6d 6d 61 | 6e 64 28 22 45 64 53 74 |ulecomma|nd("EdSt|
|00000a20| 61 74 75 73 22 29 0d 03 | 66 31 20 20 20 c9 20 20 |atus")..|f1 . |
|00000a30| 20 20 20 20 20 20 20 34 | 3a f2 6d 6f 64 75 6c 65 | 4|:.module|
|00000a40| 63 6f 6d 6d 61 6e 64 28 | 22 45 72 61 73 65 48 69 |command(|"EraseHi|
|00000a50| 73 74 6f 72 79 22 29 0d | 03 70 2e 20 20 20 c9 20 |story").|.p. . |
|00000a60| 20 20 20 20 20 20 20 20 | 35 3a f2 64 69 61 6c 6f | |5:.dialo|
|00000a70| 67 5f 63 68 61 6e 67 65 | 64 28 22 45 64 43 75 72 |g_change|d("EdCur|
|00000a80| 73 6f 72 22 29 0d 03 7a | 2d 20 20 20 c9 20 20 20 |sor")..z|- . |
|00000a90| 20 20 20 20 20 20 36 3a | f2 64 69 61 6c 6f 67 5f | 6:|.dialog_|
|00000aa0| 63 68 61 6e 67 65 64 28 | 22 45 64 4c 69 6e 65 73 |changed(|"EdLines|
|00000ab0| 22 29 0d 03 84 2c 20 20 | 20 c9 20 20 20 20 20 20 |")..., | . |
|00000ac0| 20 20 20 37 3a f2 64 69 | 61 6c 6f 67 5f 63 68 61 | 7:.di|alog_cha|
|00000ad0| 6e 67 65 64 28 22 45 64 | 53 69 7a 65 22 29 0d 03 |nged("Ed|Size")..|
|00000ae0| 8e 38 20 20 20 c9 20 6e | 75 6d 69 74 65 6d 73 25 |.8 . n|umitems%|
|00000af0| 3a 71 75 69 74 25 3d b9 | 3a 6b 69 6c 6c 6d 6f 64 |:quit%=.|:killmod|
|00000b00| 25 3d b9 3a f4 20 4c 61 | 73 74 20 49 74 65 6d 20 |%=.:. La|st Item |
|00000b10| 3d 20 51 75 69 74 0d 03 | 98 05 cb 0d 03 a2 1b e7 |= Quit..|........|
|00000b20| 20 6d 6f 75 73 65 25 3d | 31 3a f2 73 68 6f 77 6f | mouse%=|1:.showo|
|00000b30| 6c 64 6d 65 6e 75 0d 03 | ac 05 e1 0d 03 b6 04 0d |ldmenu..|........|
|00000b40| 03 c0 11 dd f2 77 69 6d | 70 6d 65 73 73 61 67 65 |.....wim|pmessage|
|00000b50| 0d 03 ca 11 c8 8e 20 70 | 6f 6c 6c 25 21 31 36 20 |...... p|oll%!16 |
|00000b60| ca 0d 03 d4 45 20 20 20 | c9 20 20 20 20 20 20 30 |....E |. 0|
|00000b70| 3a 71 75 69 74 25 3d b9 | 3a f4 20 53 68 75 74 20 |:quit%=.|:. Shut |
|00000b80| 64 6f 77 6e 20 28 44 65 | 73 6b 74 6f 70 20 45 78 |down (De|sktop Ex|
|00000b90| 69 74 2c 20 54 61 73 6b | 20 4d 61 6e 61 67 65 72 |it, Task| Manager|
|00000ba0| 20 51 75 69 74 29 0d 03 | de 19 20 20 20 c9 20 26 | Quit)..|.. . &|
|00000bb0| 34 30 30 43 32 3a f2 61 | 70 70 73 74 61 72 74 0d |400C2:.a|ppstart.|
|00000bc0| 03 e8 05 cb 0d 03 f2 05 | e1 0d 03 fc 04 0d 04 06 |........|........|
|00000bd0| 0e dd f2 61 70 70 73 74 | 61 72 74 0d 04 10 4a f4 |...appst|art...J.|
|00000be0| 20 55 6e 6c 69 6b 65 2c | 20 61 68 65 6d 2c 20 63 | Unlike,| ahem, c|
|00000bf0| 65 72 74 61 69 6e 20 41 | 63 6f 72 6e 20 61 70 70 |ertain A|corn app|
|00000c00| 6c 69 63 61 74 69 6f 6e | 73 20 77 65 20 63 6f 75 |lication|s we cou|
|00000c10| 6c 64 20 6d 65 6e 74 69 | 6f 6e 2c 20 69 74 20 72 |ld menti|on, it r|
|00000c20| 65 61 6c 6c 79 0d 04 1a | 46 f4 20 69 73 20 6e 69 |eally...|F. is ni|
|00000c30| 63 65 20 74 6f 20 6d 61 | 6b 65 20 73 75 72 65 20 |ce to ma|ke sure |
|00000c40| 6f 6e 6c 79 20 6f 6e 65 | 20 69 6e 76 6f 63 61 74 |only one| invocat|
|00000c50| 69 6f 6e 20 6f 66 20 74 | 68 65 20 70 72 6f 67 72 |ion of t|he progr|
|00000c60| 61 6d 20 68 61 73 20 62 | 65 65 6e 0d 04 24 43 f4 |am has b|een..$C.|
|00000c70| 20 61 63 74 69 76 61 74 | 65 64 20 2d 20 74 68 69 | activat|ed - thi|
|00000c80| 73 20 69 73 20 64 6f 6e | 65 20 62 79 20 63 68 65 |s is don|e by che|
|00000c90| 63 6b 69 6e 67 20 61 20 | 6e 65 77 20 74 61 73 6b |cking a |new task|
|00000ca0| 27 73 20 6e 61 6d 65 2f | 68 61 6e 64 6c 65 0d 04 |'s name/|handle..|
|00000cb0| 2e 11 ea 20 41 25 2c 42 | 25 2c 73 61 6d 65 25 0d |... A%,B|%,same%.|
|00000cc0| 04 38 16 e7 20 70 6f 6c | 6c 25 21 34 3c 3e 74 61 |.8.. pol|l%!4<>ta|
|00000cd0| 73 6b 25 20 8c 0d 04 42 | 18 20 20 20 41 25 3d 70 |sk% ...B|. A%=p|
|00000ce0| 6f 6c 6c 25 2b 32 38 3a | 42 25 3d 2d 31 0d 04 4c |oll%+28:|B%=-1..L|
|00000cf0| 08 20 20 20 f5 0d 04 56 | 31 20 20 20 20 20 20 42 |. ...V|1 B|
|00000d00| 25 2b 3d 31 3a 73 61 6d | 65 25 3d 28 41 25 3f 42 |%+=1:sam|e%=(A%?B|
|00000d10| 25 3d 97 28 c1 70 72 6f | 67 24 2b 62 6c 24 2c 42 |%=.(.pro|g$+bl$,B|
|00000d20| 25 2b 31 29 29 29 0d 04 | 60 1a 20 20 20 fd 20 41 |%+1)))..|`. . A|
|00000d30| 25 3f 42 25 3d 30 20 84 | 20 ac 20 73 61 6d 65 25 |%?B%=0 .| . same%|
|00000d40| 0d 04 6a 1f 20 20 20 e7 | 20 73 61 6d 65 25 3a 71 |..j. .| same%:q|
|00000d50| 75 69 74 25 3d b9 3a 6d | 75 6c 74 69 25 3d b9 0d |uit%=.:m|ulti%=..|
|00000d60| 04 74 05 cd 0d 04 7e 05 | e1 0d 04 88 04 0d 04 92 |.t....~.|........|
|00000d70| 28 dd f2 70 75 74 64 61 | 74 61 28 77 69 6e 64 25 |(..putda|ta(wind%|
|00000d80| 2c 69 63 6f 6e 25 2c 72 | 65 64 72 61 77 25 2c 6d |,icon%,r|edraw%,m|
|00000d90| 65 73 73 24 29 0d 04 9c | 3f f4 20 43 68 61 6e 67 |ess$)...|?. Chang|
|00000da0| 65 20 69 63 6f 6e 20 27 | 69 63 6f 6e 25 27 20 69 |e icon '|icon%' i|
|00000db0| 6e 20 77 69 6e 64 6f 77 | 20 27 77 69 6e 64 25 27 |n window| 'wind%'|
|00000dc0| 20 74 6f 20 74 68 65 20 | 73 74 72 69 6e 67 20 6d | to the |string m|
|00000dd0| 65 73 73 24 0d 04 a6 3b | f4 20 4e 6f 74 65 20 74 |ess$...;|. Note t|
|00000de0| 68 61 74 20 74 68 69 73 | 20 61 73 73 75 6d 65 73 |hat this| assumes|
|00000df0| 20 61 6e 20 69 6e 64 69 | 72 65 63 74 65 64 20 69 | an indi|rected i|
|00000e00| 63 6f 6e 20 6f 66 20 63 | 6f 75 72 73 65 20 21 0d |con of c|ourse !.|
|00000e10| 04 b0 26 21 69 63 6f 6e | 64 61 74 61 25 3d 77 69 |..&!icon|data%=wi|
|00000e20| 6e 64 25 3a 69 63 6f 6e | 64 61 74 61 25 21 34 3d |nd%:icon|data%!4=|
|00000e30| 69 63 6f 6e 25 0d 04 ba | 26 c8 99 20 22 58 57 69 |icon%...|&.. "XWi|
|00000e40| 6d 70 5f 47 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_GetIc|onState"|
|00000e50| 2c 2c 69 63 6f 6e 64 61 | 74 61 25 0d 04 c4 19 24 |,,iconda|ta%....$|
|00000e60| 28 69 63 6f 6e 64 61 74 | 61 25 21 32 38 29 3d 6d |(icondat|a%!28)=m|
|00000e70| 65 73 73 24 0d 04 ce 5d | e7 20 72 65 64 72 61 77 |ess$...]|. redraw|
|00000e80| 25 3a c8 99 20 22 58 57 | 69 6d 70 5f 46 6f 72 63 |%:.. "XW|imp_Forc|
|00000e90| 65 52 65 64 72 61 77 22 | 2c 77 69 6e 64 25 2c 69 |eRedraw"|,wind%,i|
|00000ea0| 63 6f 6e 64 61 74 61 25 | 21 38 2c 69 63 6f 6e 64 |condata%|!8,icond|
|00000eb0| 61 74 61 25 21 31 32 2c | 69 63 6f 6e 64 61 74 61 |ata%!12,|icondata|
|00000ec0| 25 21 31 36 2c 69 63 6f | 6e 64 61 74 61 25 21 32 |%!16,ico|ndata%!2|
|00000ed0| 30 0d 04 d8 05 e1 0d 04 | e2 04 0d 04 ec 1a dd a4 |0.......|........|
|00000ee0| 67 65 74 64 61 74 61 28 | 77 69 6e 64 25 2c 69 63 |getdata(|wind%,ic|
|00000ef0| 6f 6e 25 29 0d 04 f6 36 | f4 20 52 65 61 64 20 74 |on%)...6|. Read t|
|00000f00| 68 65 20 76 61 6c 75 65 | 20 6f 66 20 69 63 6f 6e |he value| of icon|
|00000f10| 20 27 69 63 6f 6e 25 27 | 20 69 6e 20 77 69 6e 64 | 'icon%'| in wind|
|00000f20| 6f 77 20 27 77 69 6e 64 | 25 27 0d 05 00 3b f4 20 |ow 'wind|%'...;. |
|00000f30| 4e 6f 74 65 20 74 68 61 | 74 20 74 68 69 73 20 61 |Note tha|t this a|
|00000f40| 73 73 75 6d 65 73 20 61 | 6e 20 69 6e 64 69 72 65 |ssumes a|n indire|
|00000f50| 63 74 65 64 20 69 63 6f | 6e 20 6f 66 20 63 6f 75 |cted ico|n of cou|
|00000f60| 72 73 65 20 21 0d 05 0a | 26 21 69 63 6f 6e 64 61 |rse !...|&!iconda|
|00000f70| 74 61 25 3d 77 69 6e 64 | 25 3a 69 63 6f 6e 64 61 |ta%=wind|%:iconda|
|00000f80| 74 61 25 21 34 3d 69 63 | 6f 6e 25 0d 05 14 26 c8 |ta%!4=ic|on%...&.|
|00000f90| 99 20 22 58 57 69 6d 70 | 5f 47 65 74 49 63 6f 6e |. "XWimp|_GetIcon|
|00000fa0| 53 74 61 74 65 22 2c 2c | 69 63 6f 6e 64 61 74 61 |State",,|icondata|
|00000fb0| 25 0d 05 1e 14 3d 24 28 | 69 63 6f 6e 64 61 74 61 |%....=$(|icondata|
|00000fc0| 25 21 32 38 29 0d 05 28 | 04 0d 05 32 0e dd f2 6d |%!28)..(|...2...m|
|00000fd0| 61 6b 65 69 63 6f 6e 0d | 05 3c 3f 50 25 3d 69 63 |akeicon.|.<?P%=ic|
|00000fe0| 6f 6e 25 3a f4 20 55 73 | 65 20 62 75 69 6c 74 20 |on%:. Us|e built |
|00000ff0| 69 6e 20 61 73 73 65 6d | 62 6c 65 72 20 2d 20 65 |in assem|bler - e|
|00001000| 61 73 69 65 72 20 74 6f | 20 73 65 65 20 73 74 72 |asier to| see str|
|00001010| 75 63 74 75 72 65 0d 05 | 46 0a 5b 4f 50 54 20 30 |ucture..|F.[OPT 0|
|00001020| 0d 05 50 45 20 20 20 20 | 20 20 20 20 20 20 20 20 |..PE | |
|00001030| 20 20 20 20 45 51 55 44 | 20 20 20 20 69 63 6f 6e | EQUD| icon|
|00001040| 62 61 72 74 79 70 65 25 | 20 20 20 20 3b 20 49 63 |bartype%| ; Ic|
|00001050| 6f 6e 20 62 61 72 20 27 | 75 74 69 6c 69 74 79 27 |on bar '|utility'|
|00001060| 20 66 6c 61 67 0d 05 5a | 3b 20 20 20 20 20 20 20 | flag..Z|; |
|00001070| 20 20 20 20 20 20 20 20 | 20 45 51 55 44 20 20 20 | | EQUD |
|00001080| 20 30 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | 0 | |
|00001090| 20 3b 20 42 6f 74 74 6f | 6d 20 6c 65 66 74 20 58 | ; Botto|m left X|
|000010a0| 0d 05 64 3b 20 20 20 20 | 20 20 20 20 20 20 20 20 |..d; | |
|000010b0| 20 20 20 20 45 51 55 44 | 20 20 20 20 30 20 20 20 | EQUD| 0 |
|000010c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 42 6f | | ; Bo|
|000010d0| 74 74 6f 6d 20 6c 65 66 | 74 20 59 0d 05 6e 39 20 |ttom lef|t Y..n9 |
|000010e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 45 | | E|
|000010f0| 51 55 44 20 20 20 20 36 | 39 20 20 20 20 20 20 20 |QUD 6|9 |
|00001100| 20 20 20 20 20 20 20 3b | 20 54 6f 70 20 72 69 67 | ;| Top rig|
|00001110| 68 74 20 58 0d 05 78 39 | 20 20 20 20 20 20 20 20 |ht X..x9| |
|00001120| 20 20 20 20 20 20 20 20 | 45 51 55 44 20 20 20 20 | |EQUD |
|00001130| 36 38 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |68 | |
|00001140| 3b 20 54 6f 70 20 72 69 | 67 68 74 20 59 0d 05 82 |; Top ri|ght Y...|
|00001150| 3e 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |> | |
|00001160| 20 45 51 55 42 20 20 20 | 20 25 30 30 30 30 30 30 | EQUB | %000000|
|00001170| 31 30 20 20 20 20 20 20 | 20 3b 20 49 63 6f 6e 20 |10 | ; Icon |
|00001180| 69 73 20 61 20 73 70 72 | 69 74 65 0d 05 8c 47 20 |is a spr|ite...G |
|00001190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 45 | | E|
|000011a0| 51 55 42 20 20 20 20 25 | 30 30 31 31 30 30 30 31 |QUB %|00110001|
|000011b0| 20 20 20 20 20 20 20 3b | 20 43 6c 69 63 6b 20 6e | ;| Click n|
|000011c0| 6f 74 69 66 69 65 73 2f | 49 6e 64 69 72 65 63 74 |otifies/|Indirect|
|000011d0| 65 64 0d 05 96 48 20 20 | 20 20 20 20 20 20 20 20 |ed...H | |
|000011e0| 20 20 20 20 20 20 45 51 | 55 42 20 20 20 20 25 30 | EQ|UB %0|
|000011f0| 30 30 30 30 30 30 30 20 | 20 20 20 20 20 20 3b 20 |0000000 | ; |
|00001200| 4e 6f 74 68 69 6e 67 20 | 73 70 65 63 69 61 6c 20 |Nothing |special |
|00001210| 61 62 6f 75 74 20 69 63 | 6f 6e 0d 05 a0 46 20 20 |about ic|on...F |
|00001220| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 51 | | EQ|
|00001230| 55 42 20 20 20 20 25 30 | 30 30 30 30 30 30 31 20 |UB %0|0000001 |
|00001240| 20 20 20 20 20 20 3b 20 | 46 6f 72 65 63 6f 6c 20 | ; |Forecol |
|00001250| 3d 20 31 2c 20 42 61 63 | 6b 63 6f 6c 20 3d 20 30 |= 1, Bac|kcol = 0|
|00001260| 0d 05 aa 44 2e 70 6f 6b | 65 73 70 6e 61 6d 65 20 |...D.pok|espname |
|00001270| 20 20 20 20 45 51 55 44 | 20 20 20 20 70 6f 6b 65 | EQUD| poke|
|00001280| 73 70 6e 61 6d 65 2b 31 | 32 20 20 20 3b 20 50 6f |spname+1|2 ; Po|
|00001290| 69 6e 74 65 72 20 74 6f | 20 73 70 72 69 74 65 20 |inter to| sprite |
|000012a0| 6e 61 6d 65 0d 05 b4 45 | 20 20 20 20 20 20 20 20 |name...E| |
|000012b0| 20 20 20 20 20 20 20 20 | 45 51 55 44 20 20 20 20 | |EQUD |
|000012c0| 31 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1 | |
|000012d0| 3b 20 50 6f 69 6e 74 65 | 72 20 74 6f 20 57 49 4d |; Pointe|r to WIM|
|000012e0| 50 20 73 70 72 69 74 65 | 73 0d 05 be 43 20 20 20 |P sprite|s...C |
|000012f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 45 51 55 | | EQU|
|00001300| 44 20 20 20 20 31 32 20 | 20 20 20 20 20 20 20 20 |D 12 | |
|00001310| 20 20 20 20 20 3b 20 4c | 65 6e 67 74 68 20 6f 66 | ; L|ength of|
|00001320| 20 73 70 72 69 74 65 20 | 6e 61 6d 65 0d 05 c8 3d | sprite |name...=|
|00001330| 2e 73 70 72 69 74 65 6e | 61 6d 65 20 20 20 20 20 |.spriten|ame |
|00001340| 45 51 55 53 20 20 20 20 | 22 21 6c 69 6e 65 65 64 |EQUS |"!lineed|
|00001350| 69 74 22 2b c4 33 2c 62 | 6c 24 29 20 3b 20 53 70 |it"+.3,b|l$) ; Sp|
|00001360| 72 69 74 65 20 6e 61 6d | 65 0d 05 d2 05 5d 0d 05 |rite nam|e....]..|
|00001370| dc 2c c8 99 20 22 58 57 | 69 6d 70 5f 43 72 65 61 |.,.. "XW|imp_Crea|
|00001380| 74 65 49 63 6f 6e 22 2c | 2c 69 63 6f 6e 25 20 b8 |teIcon",|,icon% .|
|00001390| 20 69 63 6f 6e 68 61 6e | 64 25 0d 05 e6 05 e1 0d | iconhan|d%......|
|000013a0| 05 f0 04 0d 05 fa 0e dd | f2 6d 61 6b 65 6d 65 6e |........|.makemen|
|000013b0| 75 0d 06 04 08 ea 20 41 | 25 0d 06 0e 28 6e 75 6d |u..... A|%...(num|
|000013c0| 69 74 65 6d 73 25 3d 38 | 3a f4 20 43 68 61 6e 67 |items%=8|:. Chang|
|000013d0| 65 20 69 66 20 79 6f 75 | 20 61 64 64 20 6d 6f 72 |e if you| add mor|
|000013e0| 65 0d 06 18 12 e3 20 41 | 25 3d 30 20 b8 20 32 20 |e..... A|%=0 . 2 |
|000013f0| 88 20 32 0d 06 22 1c 50 | 25 3d 6d 65 6e 75 25 3a |. 2..".P|%=menu%:|
|00001400| f4 20 55 73 65 20 61 73 | 73 65 6d 62 6c 65 72 0d |. Use as|sembler.|
|00001410| 06 2c 0b 5b 4f 50 54 20 | 41 25 0d 06 36 40 20 20 |.,.[OPT |A%..6@ |
|00001420| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 51 | | EQ|
|00001430| 55 53 20 20 20 20 70 72 | 6f 67 24 2b c4 31 32 2d |US pr|og$+.12-|
|00001440| a9 28 70 72 6f 67 24 29 | 2c 62 6c 24 29 20 3b 20 |.(prog$)|,bl$) ; |
|00001450| 4d 65 6e 75 20 74 69 74 | 6c 65 0d 06 40 37 20 20 |Menu tit|le..@7 |
|00001460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 51 | | EQ|
|00001470| 55 42 20 20 20 20 37 20 | 20 20 20 20 20 20 3b 20 |UB 7 | ; |
|00001480| 46 6f 72 65 67 72 6f 75 | 6e 64 20 63 6f 6c 6f 75 |Foregrou|nd colou|
|00001490| 72 0d 06 4a 37 20 20 20 | 20 20 20 20 20 20 20 20 |r..J7 | |
|000014a0| 20 20 20 20 20 45 51 55 | 42 20 20 20 20 32 20 20 | EQU|B 2 |
|000014b0| 20 20 20 20 20 3b 20 42 | 61 63 6b 67 72 6f 75 6e | ; B|ackgroun|
|000014c0| 64 20 63 6f 6c 6f 75 72 | 0d 06 54 39 20 20 20 20 |d colour|..T9 |
|000014d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 45 51 55 42 | | EQUB|
|000014e0| 20 20 20 20 37 20 20 20 | 20 20 20 20 3b 20 57 6f | 7 | ; Wo|
|000014f0| 72 6b 20 66 6f 72 65 67 | 72 64 20 63 6f 6c 6f 75 |rk foreg|rd colou|
|00001500| 72 0d 06 5e 39 20 20 20 | 20 20 20 20 20 20 20 20 |r..^9 | |
|00001510| 20 20 20 20 20 45 51 55 | 42 20 20 20 20 30 20 20 | EQU|B 0 |
|00001520| 20 20 20 20 20 3b 20 57 | 6f 72 6b 20 62 61 63 6b | ; W|ork back|
|00001530| 67 72 64 20 63 6f 6c 6f | 75 72 0d 06 68 31 20 20 |grd colo|ur..h1 |
|00001540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 51 | | EQ|
|00001550| 55 44 20 20 20 20 31 34 | 38 20 20 20 20 20 3b 20 |UD 14|8 ; |
|00001560| 54 6f 74 61 6c 20 77 69 | 64 74 68 0d 06 72 32 2e |Total wi|dth..r2.|
|00001570| 73 70 61 63 69 6e 67 20 | 20 20 20 20 20 20 20 45 |spacing | E|
|00001580| 51 55 44 20 20 20 20 34 | 34 20 20 20 20 20 20 3b |QUD 4|4 ;|
|00001590| 20 54 6f 74 61 6c 20 68 | 65 69 67 68 74 0d 06 7c | Total h|eight..||
|000015a0| 32 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |2 | |
|000015b0| 20 45 51 55 44 20 20 20 | 20 30 20 20 20 20 20 20 | EQUD | 0 |
|000015c0| 20 3b 20 4c 69 6e 65 20 | 73 70 61 63 69 6e 67 0d | ; Line |spacing.|
|000015d0| 06 86 0d 3b 20 49 74 65 | 6d 20 23 31 0d 06 90 35 |...; Ite|m #1...5|
|000015e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000015f0| 45 51 55 44 20 20 20 20 | 30 20 20 20 20 20 20 20 |EQUD |0 |
|00001600| 3b 20 4e 6f 74 68 69 6e | 67 20 73 70 65 63 69 61 |; Nothin|g specia|
|00001610| 6c 0d 06 9a 41 2e 73 75 | 62 6d 65 6e 75 70 6f 6b |l...A.su|bmenupok|
|00001620| 65 20 20 20 20 45 51 55 | 44 20 20 20 20 30 20 20 |e EQU|D 0 |
|00001630| 20 20 20 20 20 3b 20 53 | 75 62 2d 6d 65 6e 75 20 | ; S|ub-menu |
|00001640| 61 64 64 72 20 70 6f 6b | 65 64 20 69 6e 20 68 65 |addr pok|ed in he|
|00001650| 72 65 0d 06 a4 3e 20 20 | 20 20 20 20 20 20 20 20 |re...> | |
|00001660| 20 20 20 20 20 20 45 51 | 55 44 20 20 20 20 28 37 | EQ|UD (7|
|00001670| 3c 3c 32 34 29 20 84 20 | 31 20 3b 20 49 74 65 6d |<<24) . |1 ; Item|
|00001680| 20 69 73 20 74 65 78 74 | 20 26 20 62 6c 61 63 6b | is text| & black|
|00001690| 0d 06 ae 2d 20 20 20 20 | 20 20 20 20 20 20 20 20 |...- | |
|000016a0| 20 20 20 20 45 51 55 53 | 20 20 20 20 22 49 6e 66 | EQUS| "Inf|
|000016b0| 6f 20 20 20 20 20 20 20 | 22 2b 62 6c 24 0d 06 b8 |o |"+bl$...|
|000016c0| 1a 3b 20 2e 2e 2e 74 68 | 65 6e 20 4d 65 6e 75 20 |.; ...th|en Menu |
|000016d0| 69 74 65 6d 20 23 32 0d | 06 c2 35 20 20 20 20 20 |item #2.|..5 |
|000016e0| 20 20 20 20 20 20 20 20 | 20 20 20 45 51 55 44 20 | | EQUD |
|000016f0| 20 20 20 30 20 20 20 20 | 20 20 20 3b 20 4e 6f 74 | 0 | ; Not|
|00001700| 68 69 6e 67 20 73 70 65 | 63 69 61 6c 0d 06 cc 31 |hing spe|cial...1|
|00001710| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001720| 45 51 55 44 20 20 20 20 | 30 20 20 20 20 20 20 20 |EQUD |0 |
|00001730| 3b 20 4e 6f 20 73 75 62 | 2d 6d 65 6e 75 0d 06 d6 |; No sub|-menu...|
|00001740| 46 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |F | |
|00001750| 20 45 51 55 44 20 20 20 | 20 28 37 3c 3c 32 34 29 | EQUD | (7<<24)|
|00001760| 20 84 20 26 32 31 20 3b | 20 49 74 65 6d 20 68 61 | . &21 ;| Item ha|
|00001770| 73 20 74 65 78 74 20 61 | 6e 64 20 69 73 20 62 6c |s text a|nd is bl|
|00001780| 61 63 6b 0d 06 e0 2d 20 | 20 20 20 20 20 20 20 20 |ack...- | |
|00001790| 20 20 20 20 20 20 20 45 | 51 55 53 20 20 20 20 22 | E|QUS "|
|000017a0| 52 65 63 61 6c 6c 20 20 | 20 20 20 22 2b 62 6c 24 |Recall | "+bl$|
|000017b0| 0d 06 ea 1a 3b 20 2e 2e | 2e 74 68 65 6e 20 4d 65 |....; ..|.then Me|
|000017c0| 6e 75 20 69 74 65 6d 20 | 23 33 0d 06 f4 35 20 20 |nu item |#3...5 |
|000017d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 51 | | EQ|
|000017e0| 55 44 20 20 20 20 30 20 | 20 20 20 20 20 20 3b 20 |UD 0 | ; |
|000017f0| 4e 6f 74 68 69 6e 67 20 | 73 70 65 63 69 61 6c 0d |Nothing |special.|
|00001800| 06 fe 31 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..1 | |
|00001810| 20 20 20 45 51 55 44 20 | 20 20 20 30 20 20 20 20 | EQUD | 0 |
|00001820| 20 20 20 3b 20 4e 6f 20 | 73 75 62 2d 6d 65 6e 75 | ; No |sub-menu|
|00001830| 0d 07 08 46 20 20 20 20 | 20 20 20 20 20 20 20 20 |...F | |
|00001840| 20 20 20 20 45 51 55 44 | 20 20 20 20 28 37 3c 3c | EQUD| (7<<|
|00001850| 32 34 29 20 84 20 26 32 | 31 20 3b 20 49 74 65 6d |24) . &2|1 ; Item|
|00001860| 20 68 61 73 20 74 65 78 | 74 20 61 6e 64 20 69 73 | has tex|t and is|
|00001870| 20 62 6c 61 63 6b 0d 07 | 12 2d 20 20 20 20 20 20 | black..|.- |
|00001880| 20 20 20 20 20 20 20 20 | 20 20 45 51 55 53 20 20 | | EQUS |
|00001890| 20 20 22 45 64 53 74 61 | 74 75 73 20 20 20 22 2b | "EdSta|tus "+|
|000018a0| 62 6c 24 0d 07 1c 1a 3b | 20 2e 2e 2e 74 68 65 6e |bl$....;| ...then|
|000018b0| 20 4d 65 6e 75 20 69 74 | 65 6d 20 23 34 0d 07 26 | Menu it|em #4..&|
|000018c0| 35 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |5 | |
|000018d0| 20 45 51 55 44 20 20 20 | 20 30 20 20 20 20 20 20 | EQUD | 0 |
|000018e0| 20 3b 20 4e 6f 74 68 69 | 6e 67 20 73 70 65 63 69 | ; Nothi|ng speci|
|000018f0| 61 6c 0d 07 30 31 20 20 | 20 20 20 20 20 20 20 20 |al..01 | |
|00001900| 20 20 20 20 20 20 45 51 | 55 44 20 20 20 20 30 20 | EQ|UD 0 |
|00001910| 20 20 20 20 20 20 3b 20 | 4e 6f 20 73 75 62 2d 6d | ; |No sub-m|
|00001920| 65 6e 75 0d 07 3a 46 20 | 20 20 20 20 20 20 20 20 |enu..:F | |
|00001930| 20 20 20 20 20 20 20 45 | 51 55 44 20 20 20 20 28 | E|QUD (|
|00001940| 37 3c 3c 32 34 29 20 84 | 20 26 32 31 20 3b 20 49 |7<<24) .| &21 ; I|
|00001950| 74 65 6d 20 68 61 73 20 | 74 65 78 74 20 61 6e 64 |tem has |text and|
|00001960| 20 69 73 20 62 6c 61 63 | 6b 0d 07 44 2d 20 20 20 | is blac|k..D- |
|00001970| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 45 51 55 | | EQU|
|00001980| 53 20 20 20 20 22 45 72 | 61 73 65 48 69 73 74 20 |S "Er|aseHist |
|00001990| 20 22 2b 62 6c 24 0d 07 | 4e 1a 3b 20 2e 2e 2e 74 | "+bl$..|N.; ...t|
|000019a0| 68 65 6e 20 4d 65 6e 75 | 20 69 74 65 6d 20 23 35 |hen Menu| item #5|
|000019b0| 0d 07 58 35 20 20 20 20 | 20 20 20 20 20 20 20 20 |..X5 | |
|000019c0| 20 20 20 20 45 51 55 44 | 20 20 20 20 30 20 20 20 | EQUD| 0 |
|000019d0| 20 20 20 20 3b 20 4e 6f | 74 68 69 6e 67 20 73 70 | ; No|thing sp|
|000019e0| 65 63 69 61 6c 0d 07 62 | 38 20 20 20 20 20 20 20 |ecial..b|8 |
|000019f0| 20 20 20 20 20 20 20 20 | 20 45 51 55 44 20 20 20 | | EQUD |
|00001a00| 20 65 64 63 75 72 73 6f | 72 61 64 64 72 20 3b 20 | edcurso|raddr ; |
|00001a10| 53 75 62 2d 6d 65 6e 75 | 20 61 64 64 72 0d 07 6c |Sub-menu| addr..l|
|00001a20| 46 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |F | |
|00001a30| 20 45 51 55 44 20 20 20 | 20 28 37 3c 3c 32 34 29 | EQUD | (7<<24)|
|00001a40| 20 84 20 26 32 31 20 3b | 20 49 74 65 6d 20 68 61 | . &21 ;| Item ha|
|00001a50| 73 20 74 65 78 74 20 61 | 6e 64 20 69 73 20 62 6c |s text a|nd is bl|
|00001a60| 61 63 6b 0d 07 76 2d 20 | 20 20 20 20 20 20 20 20 |ack..v- | |
|00001a70| 20 20 20 20 20 20 20 45 | 51 55 53 20 20 20 20 22 | E|QUS "|
|00001a80| 45 64 43 75 72 73 6f 72 | 20 20 20 22 2b 62 6c 24 |EdCursor| "+bl$|
|00001a90| 0d 07 80 1a 3b 20 2e 2e | 2e 74 68 65 6e 20 4d 65 |....; ..|.then Me|
|00001aa0| 6e 75 20 69 74 65 6d 20 | 23 36 0d 07 8a 35 20 20 |nu item |#6...5 |
|00001ab0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 51 | | EQ|
|00001ac0| 55 44 20 20 20 20 30 20 | 20 20 20 20 20 20 3b 20 |UD 0 | ; |
|00001ad0| 4e 6f 74 68 69 6e 67 20 | 73 70 65 63 69 61 6c 0d |Nothing |special.|
|00001ae0| 07 94 37 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..7 | |
|00001af0| 20 20 20 45 51 55 44 20 | 20 20 20 65 64 6c 69 6e | EQUD | edlin|
|00001b00| 65 73 61 64 64 72 20 3b | 20 53 75 62 2d 6d 65 6e |esaddr ;| Sub-men|
|00001b10| 75 20 61 64 64 72 0d 07 | 9e 46 20 20 20 20 20 20 |u addr..|.F |
|00001b20| 20 20 20 20 20 20 20 20 | 20 20 45 51 55 44 20 20 | | EQUD |
|00001b30| 20 20 28 37 3c 3c 32 34 | 29 20 84 20 26 32 31 20 | (7<<24|) . &21 |
|00001b40| 3b 20 49 74 65 6d 20 68 | 61 73 20 74 65 78 74 20 |; Item h|as text |
|00001b50| 61 6e 64 20 69 73 20 62 | 6c 61 63 6b 0d 07 a8 2d |and is b|lack...-|
|00001b60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001b70| 45 51 55 53 20 20 20 20 | 22 45 64 4c 69 6e 65 73 |EQUS |"EdLines|
|00001b80| 20 20 20 20 22 2b 62 6c | 24 0d 07 b2 1a 3b 20 2e | "+bl|$....; .|
|00001b90| 2e 2e 74 68 65 6e 20 4d | 65 6e 75 20 69 74 65 6d |..then M|enu item|
|00001ba0| 20 23 37 0d 07 bc 35 20 | 20 20 20 20 20 20 20 20 | #7...5 | |
|00001bb0| 20 20 20 20 20 20 20 45 | 51 55 44 20 20 20 20 30 | E|QUD 0|
|00001bc0| 20 20 20 20 20 20 20 3b | 20 4e 6f 74 68 69 6e 67 | ;| Nothing|
|00001bd0| 20 73 70 65 63 69 61 6c | 0d 07 c6 37 20 20 20 20 | special|...7 |
|00001be0| 20 20 20 20 20 20 20 20 | 20 20 20 20 45 51 55 44 | | EQUD|
|00001bf0| 20 20 20 20 65 64 73 69 | 7a 65 61 64 64 72 20 20 | edsi|zeaddr |
|00001c00| 3b 20 53 75 62 2d 6d 65 | 6e 75 20 61 64 64 72 0d |; Sub-me|nu addr.|
|00001c10| 07 d0 46 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..F | |
|00001c20| 20 20 20 45 51 55 44 20 | 20 20 20 28 37 3c 3c 32 | EQUD | (7<<2|
|00001c30| 34 29 20 84 20 26 32 31 | 20 3b 20 49 74 65 6d 20 |4) . &21| ; Item |
|00001c40| 68 61 73 20 74 65 78 74 | 20 61 6e 64 20 69 73 20 |has text| and is |
|00001c50| 62 6c 61 63 6b 0d 07 da | 2d 20 20 20 20 20 20 20 |black...|- |
|00001c60| 20 20 20 20 20 20 20 20 | 20 45 51 55 53 20 20 20 | | EQUS |
|00001c70| 20 22 45 64 53 69 7a 65 | 20 20 20 20 20 22 2b 62 | "EdSize| "+b|
|00001c80| 6c 24 0d 07 e4 21 3b 20 | 2e 2e 2e 61 6e 64 20 66 |l$...!; |...and f|
|00001c90| 69 6e 61 6c 6c 79 20 4d | 65 6e 75 20 69 74 65 6d |inally M|enu item|
|00001ca0| 20 23 38 0d 07 ee 34 20 | 20 20 20 20 20 20 20 20 | #8...4 | |
|00001cb0| 20 20 20 20 20 20 20 45 | 51 55 44 20 20 20 20 26 | E|QUD &|
|00001cc0| 38 30 20 20 20 20 20 3b | 20 4c 61 73 74 20 6d 65 |80 ;| Last me|
|00001cd0| 6e 75 20 69 74 65 6d 0d | 07 f8 31 20 20 20 20 20 |nu item.|..1 |
|00001ce0| 20 20 20 20 20 20 20 20 | 20 20 20 45 51 55 44 20 | | EQUD |
|00001cf0| 20 20 20 2d 31 20 20 20 | 20 20 20 3b 20 4e 6f 20 | -1 | ; No |
|00001d00| 73 75 62 2d 6d 65 6e 75 | 0d 08 02 46 20 20 20 20 |sub-menu|...F |
|00001d10| 20 20 20 20 20 20 20 20 | 20 20 20 20 45 51 55 44 | | EQUD|
|00001d20| 20 20 20 20 28 37 3c 3c | 32 34 29 20 84 20 26 32 | (7<<|24) . &2|
|00001d30| 31 20 3b 20 49 74 65 6d | 20 68 61 73 20 74 65 78 |1 ; Item| has tex|
|00001d40| 74 20 61 6e 64 20 69 73 | 20 62 6c 61 63 6b 0d 08 |t and is| black..|
|00001d50| 0c 3f 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.? | |
|00001d60| 20 20 45 51 55 53 20 20 | 20 20 22 51 75 69 74 20 | EQUS | "Quit |
|00001d70| 20 20 20 20 20 20 22 2b | 62 6c 24 20 20 20 20 20 | "+|bl$ |
|00001d80| 20 20 3b 20 4d 65 6e 75 | 20 69 74 65 6d 0d 08 16 | ; Menu| item...|
|00001d90| 04 0d 08 20 2e 2e 65 64 | 63 75 72 73 6f 72 61 64 |... ..ed|cursorad|
|00001da0| 64 72 20 20 20 45 51 55 | 53 20 20 20 20 22 45 64 |dr EQU|S "Ed|
|00001db0| 43 75 72 73 6f 72 22 2b | c4 34 2c 62 6c 24 29 0d |Cursor"+|.4,bl$).|
|00001dc0| 08 2a 45 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.*E | |
|00001dd0| 20 20 20 45 51 55 42 20 | 20 20 20 37 20 20 20 20 | EQUB | 7 |
|00001de0| 20 20 20 3b 20 46 6f 72 | 65 67 72 6f 75 6e 64 20 | ; For|eground |
|00001df0| 3d 20 37 20 28 6e 6f 72 | 6d 61 6c 6c 79 20 62 6c |= 7 (nor|mally bl|
|00001e00| 61 63 6b 29 0d 08 34 44 | 20 20 20 20 20 20 20 20 |ack)..4D| |
|00001e10| 20 20 20 20 20 20 20 20 | 45 51 55 42 20 20 20 20 | |EQUB |
|00001e20| 32 20 20 20 20 20 20 20 | 3b 20 42 61 63 6b 67 72 |2 |; Backgr|
|00001e30| 6f 75 6e 64 20 3d 20 32 | 20 28 6e 6f 72 6d 61 6c |ound = 2| (normal|
|00001e40| 6c 79 20 67 72 65 79 29 | 0d 08 3e 45 20 20 20 20 |ly grey)|..>E |
|00001e50| 20 20 20 20 20 20 20 20 | 20 20 20 20 45 51 55 42 | | EQUB|
|00001e60| 20 20 20 20 37 20 20 20 | 20 20 20 20 3b 20 57 6f | 7 | ; Wo|
|00001e70| 72 6b 20 66 6f 72 65 20 | 20 3d 20 37 20 28 6e 6f |rk fore | = 7 (no|
|00001e80| 72 6d 61 6c 6c 79 20 62 | 6c 61 63 6b 29 0d 08 48 |rmally b|lack)..H|
|00001e90| 45 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |E | |
|00001ea0| 20 45 51 55 42 20 20 20 | 20 30 20 20 20 20 20 20 | EQUB | 0 |
|00001eb0| 20 3b 20 57 6f 72 6b 20 | 62 61 63 6b 20 20 3d 20 | ; Work |back = |
|00001ec0| 30 20 28 6e 6f 72 6d 61 | 6c 6c 79 20 77 68 69 74 |0 (norma|lly whit|
|00001ed0| 65 29 0d 08 52 3f 20 20 | 20 20 20 20 20 20 20 20 |e)..R? | |
|00001ee0| 20 20 20 20 20 20 45 51 | 55 44 20 20 20 20 31 30 | EQ|UD 10|
|00001ef0| 30 20 20 20 20 20 3b 20 | 54 6f 74 61 6c 20 77 69 |0 ; |Total wi|
|00001f00| 64 74 68 20 6f 66 20 6d | 65 6e 75 20 69 74 65 6d |dth of m|enu item|
|00001f10| 73 0d 08 5c 40 20 20 20 | 20 20 20 20 20 20 20 20 |s..\@ | |
|00001f20| 20 20 20 20 20 45 51 55 | 44 20 20 20 20 34 30 20 | EQU|D 40 |
|00001f30| 20 20 20 20 20 3b 20 54 | 6f 74 61 6c 20 68 65 69 | ; T|otal hei|
|00001f40| 67 68 74 20 6f 66 20 6d | 65 6e 75 20 69 74 65 6d |ght of m|enu item|
|00001f50| 73 0d 08 66 40 20 20 20 | 20 20 20 20 20 20 20 20 |s..f@ | |
|00001f60| 20 20 20 20 20 45 51 55 | 44 20 20 20 20 30 20 20 | EQU|D 0 |
|00001f70| 20 20 20 20 20 3b 20 4c | 69 6e 65 20 73 70 61 63 | ; L|ine spac|
|00001f80| 69 6e 67 20 62 65 74 77 | 65 65 6e 20 69 74 65 6d |ing betw|een item|
|00001f90| 73 0d 08 70 12 3b 20 4d | 65 6e 75 20 69 74 65 6d |s..p.; M|enu item|
|00001fa0| 20 23 31 0d 08 7a 47 20 | 20 20 20 20 20 20 20 20 | #1..zG | |
|00001fb0| 20 20 20 20 20 20 20 45 | 51 55 44 20 20 20 20 26 | E|QUD &|
|00001fc0| 38 34 20 20 20 20 20 3b | 20 4c 61 73 74 20 6d 65 |84 ;| Last me|
|00001fd0| 6e 75 20 69 74 65 6d 20 | 61 6e 64 20 77 72 69 74 |nu item |and writ|
|00001fe0| 65 61 62 6c 65 20 74 65 | 78 74 0d 08 84 31 20 20 |eable te|xt...1 |
|00001ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 51 | | EQ|
|00002000| 55 44 20 20 20 20 2d 31 | 20 20 20 20 20 20 3b 20 |UD -1| ; |
|00002010| 4e 6f 20 73 75 62 2d 6d | 65 6e 75 0d 08 8e 3d 20 |No sub-m|enu...= |
|00002020| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 45 | | E|
|00002030| 51 55 44 20 20 20 20 28 | 37 3c 3c 32 34 29 20 84 |QUD (|7<<24) .|
|00002040| 20 26 46 31 32 31 20 3b | 20 49 6e 64 69 72 65 63 | &F121 ;| Indirec|
|00002050| 74 65 64 20 69 63 6f 6e | 0d 08 98 47 20 20 20 20 |ted icon|...G |
|00002060| 20 20 20 20 20 20 20 20 | 20 20 20 20 45 51 55 44 | | EQUD|
|00002070| 20 20 20 20 45 64 43 75 | 72 73 6f 72 3b 20 50 6f | EdCu|rsor; Po|
|00002080| 6b 65 20 65 64 63 75 72 | 73 6f 72 20 62 75 66 66 |ke edcur|sor buff|
|00002090| 65 72 20 61 64 64 72 20 | 69 6e 20 68 65 72 65 0d |er addr |in here.|
|000020a0| 08 a2 49 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..I | |
|000020b0| 20 20 20 45 51 55 44 20 | 20 20 20 76 61 6c 69 64 | EQUD | valid|
|000020c0| 61 74 69 6f 6e 73 74 72 | 20 3b 20 44 69 74 74 6f |ationstr| ; Ditto|
|000020d0| 20 66 6f 72 20 76 61 6c | 69 64 61 74 69 6f 6e 20 | for val|idation |
|000020e0| 73 74 72 20 61 64 64 72 | 0d 08 ac 2c 20 20 20 20 |str addr|..., |
|000020f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 45 51 55 44 | | EQUD|
|00002100| 20 20 20 20 34 20 20 20 | 20 20 20 20 3b 20 4c 65 | 4 | ; Le|
|00002110| 6e 67 74 68 0d 08 b6 39 | 2e 45 64 43 75 72 73 6f |ngth...9|.EdCurso|
|00002120| 72 20 20 20 20 20 20 20 | 45 51 55 44 20 20 20 20 |r |EQUD |
|00002130| 30 20 20 20 20 20 20 20 | 3b 20 50 6f 6b 65 20 73 |0 |; Poke s|
|00002140| 74 72 69 6e 67 20 69 6e | 20 68 65 72 65 0d 08 c0 |tring in| here...|
|00002150| 04 0d 08 ca 2d 2e 65 64 | 6c 69 6e 65 73 61 64 64 |....-.ed|linesadd|
|00002160| 72 20 20 20 20 45 51 55 | 53 20 20 20 20 22 45 64 |r EQU|S "Ed|
|00002170| 4c 69 6e 65 73 22 2b c4 | 35 2c 62 6c 24 29 0d 08 |Lines"+.|5,bl$)..|
|00002180| d4 45 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.E | |
|00002190| 20 20 45 51 55 42 20 20 | 20 20 37 20 20 20 20 20 | EQUB | 7 |
|000021a0| 20 20 3b 20 46 6f 72 65 | 67 72 6f 75 6e 64 20 3d | ; Fore|ground =|
|000021b0| 20 37 20 28 6e 6f 72 6d | 61 6c 6c 79 20 62 6c 61 | 7 (norm|ally bla|
|000021c0| 63 6b 29 0d 08 de 44 20 | 20 20 20 20 20 20 20 20 |ck)...D | |
|000021d0| 20 20 20 20 20 20 20 45 | 51 55 42 20 20 20 20 32 | E|QUB 2|
|000021e0| 20 20 20 20 20 20 20 3b | 20 42 61 63 6b 67 72 6f | ;| Backgro|
|000021f0| 75 6e 64 20 3d 20 32 20 | 28 6e 6f 72 6d 61 6c 6c |und = 2 |(normall|
|00002200| 79 20 67 72 65 79 29 0d | 08 e8 45 20 20 20 20 20 |y grey).|..E |
|00002210| 20 20 20 20 20 20 20 20 | 20 20 20 45 51 55 42 20 | | EQUB |
|00002220| 20 20 20 37 20 20 20 20 | 20 20 20 3b 20 57 6f 72 | 7 | ; Wor|
|00002230| 6b 20 66 6f 72 65 20 20 | 3d 20 37 20 28 6e 6f 72 |k fore |= 7 (nor|
|00002240| 6d 61 6c 6c 79 20 62 6c | 61 63 6b 29 0d 08 f2 45 |mally bl|ack)...E|
|00002250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002260| 45 51 55 42 20 20 20 20 | 30 20 20 20 20 20 20 20 |EQUB |0 |
|00002270| 3b 20 57 6f 72 6b 20 62 | 61 63 6b 20 20 3d 20 30 |; Work b|ack = 0|
|00002280| 20 28 6e 6f 72 6d 61 6c | 6c 79 20 77 68 69 74 65 | (normal|ly white|
|00002290| 29 0d 08 fc 3f 20 20 20 | 20 20 20 20 20 20 20 20 |)...? | |
|000022a0| 20 20 20 20 20 45 51 55 | 44 20 20 20 20 31 30 30 | EQU|D 100|
|000022b0| 20 20 20 20 20 3b 20 54 | 6f 74 61 6c 20 77 69 64 | ; T|otal wid|
|000022c0| 74 68 20 6f 66 20 6d 65 | 6e 75 20 69 74 65 6d 73 |th of me|nu items|
|000022d0| 0d 09 06 40 20 20 20 20 | 20 20 20 20 20 20 20 20 |...@ | |
|000022e0| 20 20 20 20 45 51 55 44 | 20 20 20 20 34 30 20 20 | EQUD| 40 |
|000022f0| 20 20 20 20 3b 20 54 6f | 74 61 6c 20 68 65 69 67 | ; To|tal heig|
|00002300| 68 74 20 6f 66 20 6d 65 | 6e 75 20 69 74 65 6d 73 |ht of me|nu items|
|00002310| 0d 09 10 40 20 20 20 20 | 20 20 20 20 20 20 20 20 |...@ | |
|00002320| 20 20 20 20 45 51 55 44 | 20 20 20 20 30 20 20 20 | EQUD| 0 |
|00002330| 20 20 20 20 3b 20 4c 69 | 6e 65 20 73 70 61 63 69 | ; Li|ne spaci|
|00002340| 6e 67 20 62 65 74 77 65 | 65 6e 20 69 74 65 6d 73 |ng betwe|en items|
|00002350| 0d 09 1a 12 3b 20 4d 65 | 6e 75 20 69 74 65 6d 20 |....; Me|nu item |
|00002360| 23 31 0d 09 24 47 20 20 | 20 20 20 20 20 20 20 20 |#1..$G | |
|00002370| 20 20 20 20 20 20 45 51 | 55 44 20 20 20 20 26 38 | EQ|UD &8|
|00002380| 34 20 20 20 20 20 3b 20 | 4c 61 73 74 20 6d 65 6e |4 ; |Last men|
|00002390| 75 20 69 74 65 6d 20 61 | 6e 64 20 77 72 69 74 65 |u item a|nd write|
|000023a0| 61 62 6c 65 20 74 65 78 | 74 0d 09 2e 31 20 20 20 |able tex|t...1 |
|000023b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 45 51 55 | | EQU|
|000023c0| 44 20 20 20 20 2d 31 20 | 20 20 20 20 20 3b 20 4e |D -1 | ; N|
|000023d0| 6f 20 73 75 62 2d 6d 65 | 6e 75 0d 09 38 3d 20 20 |o sub-me|nu..8= |
|000023e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 51 | | EQ|
|000023f0| 55 44 20 20 20 20 28 37 | 3c 3c 32 34 29 20 84 20 |UD (7|<<24) . |
|00002400| 26 46 31 32 31 20 3b 20 | 49 6e 64 69 72 65 63 74 |&F121 ; |Indirect|
|00002410| 65 64 20 69 63 6f 6e 0d | 09 42 46 20 20 20 20 20 |ed icon.|.BF |
|00002420| 20 20 20 20 20 20 20 20 | 20 20 20 45 51 55 44 20 | | EQUD |
|00002430| 20 20 20 45 64 4c 69 6e | 65 73 20 3b 20 50 6f 6b | EdLin|es ; Pok|
|00002440| 65 20 65 64 6c 69 6e 65 | 73 20 62 75 66 66 65 72 |e edline|s buffer|
|00002450| 20 61 64 64 72 20 69 6e | 20 68 65 72 65 0d 09 4c | addr in| here..L|
|00002460| 49 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |I | |
|00002470| 20 45 51 55 44 20 20 20 | 20 76 61 6c 69 64 61 74 | EQUD | validat|
|00002480| 69 6f 6e 73 74 72 20 3b | 20 44 69 74 74 6f 20 66 |ionstr ;| Ditto f|
|00002490| 6f 72 20 76 61 6c 69 64 | 61 74 69 6f 6e 20 73 74 |or valid|ation st|
|000024a0| 72 20 61 64 64 72 0d 09 | 56 2c 20 20 20 20 20 20 |r addr..|V, |
|000024b0| 20 20 20 20 20 20 20 20 | 20 20 45 51 55 44 20 20 | | EQUD |
|000024c0| 20 20 34 20 20 20 20 20 | 20 20 3b 20 4c 65 6e 67 | 4 | ; Leng|
|000024d0| 74 68 0d 09 60 39 2e 45 | 64 4c 69 6e 65 73 20 20 |th..`9.E|dLines |
|000024e0| 20 20 20 20 20 20 45 51 | 55 44 20 20 20 20 30 20 | EQ|UD 0 |
|000024f0| 20 20 20 20 20 20 3b 20 | 50 6f 6b 65 20 73 74 72 | ; |Poke str|
|00002500| 69 6e 67 20 69 6e 20 68 | 65 72 65 0d 09 6a 04 0d |ing in h|ere..j..|
|00002510| 09 74 2c 2e 65 64 73 69 | 7a 65 61 64 64 72 20 20 |.t,.edsi|zeaddr |
|00002520| 20 20 20 45 51 55 53 20 | 20 20 20 22 45 64 53 69 | EQUS | "EdSi|
|00002530| 7a 65 22 2b c4 36 2c 62 | 6c 24 29 0d 09 7e 45 20 |ze"+.6,b|l$)..~E |
|00002540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 45 | | E|
|00002550| 51 55 42 20 20 20 20 37 | 20 20 20 20 20 20 20 3b |QUB 7| ;|
|00002560| 20 46 6f 72 65 67 72 6f | 75 6e 64 20 3d 20 37 20 | Foregro|und = 7 |
|00002570| 28 6e 6f 72 6d 61 6c 6c | 79 20 62 6c 61 63 6b 29 |(normall|y black)|
|00002580| 0d 09 88 44 20 20 20 20 | 20 20 20 20 20 20 20 20 |...D | |
|00002590| 20 20 20 20 45 51 55 42 | 20 20 20 20 32 20 20 20 | EQUB| 2 |
|000025a0| 20 20 20 20 3b 20 42 61 | 63 6b 67 72 6f 75 6e 64 | ; Ba|ckground|
|000025b0| 20 3d 20 32 20 28 6e 6f | 72 6d 61 6c 6c 79 20 67 | = 2 (no|rmally g|
|000025c0| 72 65 79 29 0d 09 92 45 | 20 20 20 20 20 20 20 20 |rey)...E| |
|000025d0| 20 20 20 20 20 20 20 20 | 45 51 55 42 20 20 20 20 | |EQUB |
|000025e0| 37 20 20 20 20 20 20 20 | 3b 20 57 6f 72 6b 20 66 |7 |; Work f|
|000025f0| 6f 72 65 20 20 3d 20 37 | 20 28 6e 6f 72 6d 61 6c |ore = 7| (normal|
|00002600| 6c 79 20 62 6c 61 63 6b | 29 0d 09 9c 45 20 20 20 |ly black|)...E |
|00002610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 45 51 55 | | EQU|
|00002620| 42 20 20 20 20 30 20 20 | 20 20 20 20 20 3b 20 57 |B 0 | ; W|
|00002630| 6f 72 6b 20 62 61 63 6b | 20 20 3d 20 30 20 28 6e |ork back| = 0 (n|
|00002640| 6f 72 6d 61 6c 6c 79 20 | 77 68 69 74 65 29 0d 09 |ormally |white)..|
|00002650| a6 3f 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.? | |
|00002660| 20 20 45 51 55 44 20 20 | 20 20 31 30 30 20 20 20 | EQUD | 100 |
|00002670| 20 20 3b 20 54 6f 74 61 | 6c 20 77 69 64 74 68 20 | ; Tota|l width |
|00002680| 6f 66 20 6d 65 6e 75 20 | 69 74 65 6d 73 0d 09 b0 |of menu |items...|
|00002690| 40 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |@ | |
|000026a0| 20 45 51 55 44 20 20 20 | 20 34 30 20 20 20 20 20 | EQUD | 40 |
|000026b0| 20 3b 20 54 6f 74 61 6c | 20 68 65 69 67 68 74 20 | ; Total| height |
|000026c0| 6f 66 20 6d 65 6e 75 20 | 69 74 65 6d 73 0d 09 ba |of menu |items...|
|000026d0| 40 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |@ | |
|000026e0| 20 45 51 55 44 20 20 20 | 20 30 20 20 20 20 20 20 | EQUD | 0 |
|000026f0| 20 3b 20 4c 69 6e 65 20 | 73 70 61 63 69 6e 67 20 | ; Line |spacing |
|00002700| 62 65 74 77 65 65 6e 20 | 69 74 65 6d 73 0d 09 c4 |between |items...|
|00002710| 12 3b 20 4d 65 6e 75 20 | 69 74 65 6d 20 23 31 0d |.; Menu |item #1.|
|00002720| 09 ce 47 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..G | |
|00002730| 20 20 20 45 51 55 44 20 | 20 20 20 26 38 34 20 20 | EQUD | &84 |
|00002740| 20 20 20 3b 20 4c 61 73 | 74 20 6d 65 6e 75 20 69 | ; Las|t menu i|
|00002750| 74 65 6d 20 61 6e 64 20 | 77 72 69 74 65 61 62 6c |tem and |writeabl|
|00002760| 65 20 74 65 78 74 0d 09 | d8 31 20 20 20 20 20 20 |e text..|.1 |
|00002770| 20 20 20 20 20 20 20 20 | 20 20 45 51 55 44 20 20 | | EQUD |
|00002780| 20 20 2d 31 20 20 20 20 | 20 20 3b 20 4e 6f 20 73 | -1 | ; No s|
|00002790| 75 62 2d 6d 65 6e 75 0d | 09 e2 3d 20 20 20 20 20 |ub-menu.|..= |
|000027a0| 20 20 20 20 20 20 20 20 | 20 20 20 45 51 55 44 20 | | EQUD |
|000027b0| 20 20 20 28 37 3c 3c 32 | 34 29 20 84 20 26 46 31 | (7<<2|4) . &F1|
|000027c0| 32 31 20 3b 20 49 6e 64 | 69 72 65 63 74 65 64 20 |21 ; Ind|irected |
|000027d0| 69 63 6f 6e 0d 09 ec 38 | 20 20 20 20 20 20 20 20 |icon...8| |
|000027e0| 20 20 20 20 20 20 20 20 | 45 51 55 44 20 20 20 20 | |EQUD |
|000027f0| 45 64 53 69 7a 65 20 20 | 3b 20 45 64 73 69 7a 65 |EdSize |; Edsize|
|00002800| 20 62 75 66 66 65 72 20 | 61 64 64 72 0d 09 f6 49 | buffer |addr...I|
|00002810| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002820| 45 51 55 44 20 20 20 20 | 76 61 6c 69 64 61 74 69 |EQUD |validati|
|00002830| 6f 6e 73 74 72 20 3b 20 | 44 69 74 74 6f 20 66 6f |onstr ; |Ditto fo|
|00002840| 72 20 76 61 6c 69 64 61 | 74 69 6f 6e 20 73 74 72 |r valida|tion str|
|00002850| 20 61 64 64 72 0d 0a 00 | 2c 20 20 20 20 20 20 20 | addr...|, |
|00002860| 20 20 20 20 20 20 20 20 | 20 45 51 55 44 20 20 20 | | EQUD |
|00002870| 20 34 20 20 20 20 20 20 | 20 3b 20 4c 65 6e 67 74 | 4 | ; Lengt|
|00002880| 68 0d 0a 0a 39 2e 45 64 | 53 69 7a 65 20 20 20 20 |h...9.Ed|Size |
|00002890| 20 20 20 20 20 45 51 55 | 44 20 20 20 20 30 20 20 | EQU|D 0 |
|000028a0| 20 20 20 20 20 3b 20 50 | 6f 6b 65 20 73 74 72 69 | ; P|oke stri|
|000028b0| 6e 67 20 69 6e 20 68 65 | 72 65 0d 0a 14 26 2e 76 |ng in he|re...&.v|
|000028c0| 61 6c 69 64 61 74 69 6f | 6e 73 74 72 20 20 45 51 |alidatio|nstr EQ|
|000028d0| 55 53 20 20 20 20 22 61 | 30 2d 39 22 2b 62 6c 24 |US "a|0-9"+bl$|
|000028e0| 0d 0a 1e 19 20 20 20 20 | 20 20 20 20 20 20 20 20 |.... | |
|000028f0| 20 20 20 20 41 4c 49 47 | 4e 0d 0a 28 06 5d ed 0d | ALIG|N..(.]..|
|00002900| 0a 32 05 e1 0d 0a 3c 04 | 0d 0a 46 15 dd f2 69 6e |.2....<.|..F...in|
|00002910| 69 74 5f 64 69 61 6c 6f | 67 28 63 24 29 0d 0a 50 |it_dialo|g(c$)..P|
|00002920| 10 ea 20 61 64 64 72 25 | 2c 6c 65 6e 25 0d 0a 5a |.. addr%|,len%..Z|
|00002930| 42 c8 99 20 22 58 4f 53 | 5f 42 69 6e 61 72 79 54 |B.. "XOS|_BinaryT|
|00002940| 6f 44 65 63 69 6d 61 6c | 22 2c a4 67 65 74 62 61 |oDecimal|",.getba|
|00002950| 74 74 65 72 79 28 63 24 | 29 2c a0 28 63 24 29 2c |ttery(c$|),.(c$),|
|00002960| 34 20 b8 20 2c 61 64 64 | 72 25 2c 6c 65 6e 25 0d |4 . ,add|r%,len%.|
|00002970| 0a 64 3a 61 64 64 72 25 | 3f 6c 65 6e 25 3d 30 3a |.d:addr%|?len%=0:|
|00002980| f4 20 53 74 75 70 69 64 | 20 4f 53 20 63 61 6c 6c |. Stupid| OS call|
|00002990| 20 64 6f 65 73 6e 27 74 | 20 7a 65 72 6f 2d 74 65 | doesn't| zero-te|
|000029a0| 72 6d 69 6e 61 74 65 20 | 21 0d 0a 6e 05 e1 0d 0a |rminate |!..n....|
|000029b0| 78 04 0d 0a 82 18 dd f2 | 64 69 61 6c 6f 67 5f 63 |x.......|dialog_c|
|000029c0| 68 61 6e 67 65 64 28 63 | 24 29 0d 0a 8c 08 ea 20 |hanged(c|$)..... |
|000029d0| 76 25 0d 0a 96 29 c8 99 | 20 22 58 4f 53 5f 52 65 |v%...)..| "XOS_Re|
|000029e0| 61 64 55 6e 73 69 67 6e | 65 64 22 2c 31 30 2c a0 |adUnsign|ed",10,.|
|000029f0| 28 63 24 29 20 b8 20 2c | 2c 76 25 0d 0a a0 16 f2 |(c$) . ,|,v%.....|
|00002a00| 73 65 74 62 61 74 74 65 | 72 79 28 63 24 2c 76 25 |setbatte|ry(c$,v%|
|00002a10| 29 0d 0a aa 14 f2 69 6e | 69 74 5f 64 69 61 6c 6f |).....in|it_dialo|
|00002a20| 67 28 63 24 29 0d 0a b4 | 05 e1 0d 0a be 04 0d 0a |g(c$)...|........|
|00002a30| c8 14 dd a4 67 65 74 62 | 61 74 74 65 72 79 28 63 |....getb|attery(c|
|00002a40| 24 29 0d 0a d2 28 ea 20 | 6c 6f 63 25 2c 6d 69 6e |$)...(. |loc%,min|
|00002a50| 25 2c 64 65 66 25 2c 76 | 61 6c 75 65 25 2c 6d 61 |%,def%,v|alue%,ma|
|00002a60| 73 6b 25 2c 73 68 69 66 | 74 25 0d 0a dc 0b c8 8e |sk%,shif|t%......|
|00002a70| 20 63 24 20 ca 0d 0a e6 | 41 c9 20 22 45 64 43 75 | c$ ....|A. "EdCu|
|00002a80| 72 73 6f 72 22 3a 6c 6f | 63 25 3d 62 61 74 74 65 |rsor":lo|c%=batte|
|00002a90| 72 79 25 2b 31 3a 6d 69 | 6e 25 3d 30 3a 64 65 66 |ry%+1:mi|n%=0:def|
|00002aa0| 25 3d 30 3a 6d 61 73 6b | 25 3d 26 43 30 3a 73 68 |%=0:mask|%=&C0:sh|
|00002ab0| 69 66 74 25 3d 36 0d 0a | f0 40 c9 20 22 45 64 4c |ift%=6..|.@. "EdL|
|00002ac0| 69 6e 65 73 22 20 3a 6c | 6f 63 25 3d 62 61 74 74 |ines" :l|oc%=batt|
|00002ad0| 65 72 79 25 3a 6d 69 6e | 25 3d 32 3a 64 65 66 25 |ery%:min|%=2:def%|
|00002ae0| 3d 33 30 3a 6d 61 73 6b | 25 3d 26 46 46 3a 73 68 |=30:mask|%=&FF:sh|
|00002af0| 69 66 74 25 3d 30 0d 0a | fa 41 c9 20 22 45 64 53 |ift%=0..|.A. "EdS|
|00002b00| 69 7a 65 22 20 20 3a 6c | 6f 63 25 3d 62 61 74 74 |ize" :l|oc%=batt|
|00002b10| 65 72 79 25 2b 31 3a 6d | 69 6e 25 3d 31 3a 64 65 |ery%+1:m|in%=1:de|
|00002b20| 66 25 3d 34 3a 6d 61 73 | 6b 25 3d 26 33 46 3a 73 |f%=4:mas|k%=&3F:s|
|00002b30| 68 69 66 74 25 3d 30 0d | 0b 04 3e 7f 20 f2 66 61 |hift%=0.|..>. .fa|
|00002b40| 74 61 6c 28 22 42 61 64 | 20 63 61 6c 6c 20 74 6f |tal("Bad| call to|
|00002b50| 20 46 4e 67 65 74 62 61 | 74 74 65 72 79 20 28 22 | FNgetba|ttery ("|
|00002b60| 2b 63 24 2b 22 20 6e 6f | 6e 2d 65 78 69 73 74 65 |+c$+" no|n-existe|
|00002b70| 6e 74 29 22 29 0d 0b 0e | 05 cb 0d 0b 18 25 c8 99 |nt)")...|.....%..|
|00002b80| 20 22 58 4f 53 5f 42 79 | 74 65 22 2c 31 36 31 2c | "XOS_By|te",161,|
|00002b90| 6c 6f 63 25 20 b8 20 2c | 2c 76 61 6c 75 65 25 0d |loc% . ,|,value%.|
|00002ba0| 0b 22 25 76 61 6c 75 65 | 25 3d 28 28 76 61 6c 75 |."%value|%=((valu|
|00002bb0| 65 25 20 80 20 6d 61 73 | 6b 25 29 3e 3e 73 68 69 |e% . mas|k%)>>shi|
|00002bc0| 66 74 25 29 0d 0b 2c 34 | e7 20 76 61 6c 75 65 25 |ft%)..,4|. value%|
|00002bd0| 3c 6d 69 6e 25 3a 76 61 | 6c 75 65 25 3d 64 65 66 |<min%:va|lue%=def|
|00002be0| 25 3a f2 73 65 74 62 61 | 74 74 65 72 79 28 63 24 |%:.setba|ttery(c$|
|00002bf0| 2c 76 61 6c 75 65 25 29 | 0d 0b 36 0b 3d 76 61 6c |,value%)|..6.=val|
|00002c00| 75 65 25 0d 0b 40 04 0d | 0b 4a 17 dd f2 73 65 74 |ue%..@..|.J...set|
|00002c10| 62 61 74 74 65 72 79 28 | 63 24 2c 76 25 29 0d 0b |battery(|c$,v%)..|
|00002c20| 54 2d f2 6d 6f 64 75 6c | 65 63 6f 6d 6d 61 6e 64 |T-.modul|ecommand|
|00002c30| 28 22 43 6f 6e 66 69 67 | 75 72 65 20 22 2b 63 24 |("Config|ure "+c$|
|00002c40| 2b 22 20 22 2b c3 28 76 | 25 29 29 0d 0b 5e 05 e1 |+" "+.(v|%))..^..|
|00002c50| 0d 0b 68 04 0d 0b 72 1a | dd f2 6d 6f 64 75 6c 65 |..h...r.|..module|
|00002c60| 63 6f 6d 6d 61 6e 64 28 | 63 6f 6d 6d 24 29 0d 0b |command(|comm$)..|
|00002c70| 7c 2e f2 72 65 6c 6f 61 | 64 3a f4 20 4d 61 6b 65 ||..reloa|d:. Make|
|00002c80| 20 73 75 72 65 20 4c 69 | 6e 65 20 45 64 69 74 6f | sure Li|ne Edito|
|00002c90| 72 20 69 73 20 70 72 65 | 73 65 6e 74 0d 0b 86 1e |r is pre|sent....|
|00002ca0| c8 99 20 22 58 57 69 6d | 70 5f 53 74 61 72 74 54 |.. "XWim|p_StartT|
|00002cb0| 61 73 6b 22 2c 63 6f 6d | 6d 24 0d 0b 90 05 e1 0d |ask",com|m$......|
|00002cc0| 0b 9a 04 0d 0b a4 12 dd | f2 67 65 74 74 65 6d 70 |........|.gettemp|
|00002cd0| 6c 61 74 65 73 0d 0b ae | 13 ea 20 66 6c 61 67 73 |lates...|.. flags|
|00002ce0| 25 2c 64 75 6d 6d 79 25 | 0d 0b b8 3c c8 99 20 22 |%,dummy%|...<.. "|
|00002cf0| 58 57 69 6d 70 5f 4f 70 | 65 6e 54 65 6d 70 6c 61 |XWimp_Op|enTempla|
|00002d00| 74 65 22 2c 2c 65 76 61 | 6c 76 61 72 24 2b 22 2e |te",,eva|lvar$+".|
|00002d10| 54 65 6d 70 6c 61 74 65 | 73 22 20 b8 20 3b 66 6c |Template|s" . ;fl|
|00002d20| 61 67 73 25 0d 0b c2 3c | e7 20 66 6c 61 67 73 25 |ags%...<|. flags%|
|00002d30| 20 80 20 31 3a f2 66 61 | 74 61 6c 28 22 4d 69 73 | . 1:.fa|tal("Mis|
|00002d40| 73 69 6e 67 20 54 65 6d | 70 6c 61 74 65 73 20 66 |sing Tem|plates f|
|00002d50| 69 6c 65 20 66 6f 72 20 | 22 2b 70 72 6f 67 24 29 |ile for |"+prog$)|
|00002d60| 0d 0b cc 30 77 69 6e 64 | 70 74 72 25 3d 30 3a f4 |...0wind|ptr%=0:.|
|00002d70| 20 52 65 73 65 74 20 28 | 67 6c 6f 62 61 6c 29 20 | Reset (|global) |
|00002d80| 54 65 6d 70 6c 61 74 65 | 20 70 6f 69 6e 74 65 72 |Template| pointer|
|00002d90| 0d 0b d6 30 21 73 75 62 | 6d 65 6e 75 70 6f 6b 65 |...0!sub|menupoke|
|00002da0| 3d a4 6c 6f 61 64 74 65 | 6d 70 6c 61 74 65 28 69 |=.loadte|mplate(i|
|00002db0| 6e 66 6f 77 69 6e 64 25 | 2c 22 49 6e 66 6f 22 29 |nfowind%|,"Info")|
|00002dc0| 0d 0b e0 1c c8 99 20 22 | 58 57 69 6d 70 5f 43 6c |...... "|XWimp_Cl|
|00002dd0| 6f 73 65 54 65 6d 70 6c | 61 74 65 22 0d 0b ea 05 |oseTempl|ate"....|
|00002de0| e1 0d 0b f4 04 0d 0b fe | 1f dd a4 6c 6f 61 64 74 |........|...loadt|
|00002df0| 65 6d 70 6c 61 74 65 28 | 61 64 64 72 25 2c 77 69 |emplate(|addr%,wi|
|00002e00| 6e 64 24 29 0d 0c 08 47 | f4 20 4e 6f 74 65 20 74 |nd$)...G|. Note t|
|00002e10| 68 65 20 2b 34 20 6f 6e | 20 74 68 65 20 61 64 64 |he +4 on| the add|
|00002e20| 72 65 73 73 20 2d 20 74 | 68 69 73 20 61 6c 6c 6f |ress - t|his allo|
|00002e30| 77 73 20 74 68 65 20 70 | 6f 6b 69 6e 67 20 6f 66 |ws the p|oking of|
|00002e40| 20 74 68 65 20 68 61 6e | 64 6c 65 0d 0c 12 0f ea | the han|dle.....|
|00002e50| 20 77 69 6e 64 68 61 6e | 64 25 0d 0c 1c 56 c8 99 | windhan|d%...V..|
|00002e60| 20 22 58 57 69 6d 70 5f | 4c 6f 61 64 54 65 6d 70 | "XWimp_|LoadTemp|
|00002e70| 6c 61 74 65 22 2c 2c 61 | 64 64 72 25 2b 34 2c 61 |late",,a|ddr%+4,a|
|00002e80| 64 64 72 25 2b 26 33 30 | 30 2c 61 64 64 72 25 2b |ddr%+&30|0,addr%+|
|00002e90| 26 34 30 30 2c 2d 31 2c | 77 69 6e 64 24 2c 30 20 |&400,-1,|wind$,0 |
|00002ea0| b8 20 2c 2c 2c 2c 2c 2c | 77 69 6e 64 70 74 72 25 |. ,,,,,,|windptr%|
|00002eb0| 0d 0c 26 53 e7 20 77 69 | 6e 64 70 74 72 25 3d 30 |..&S. wi|ndptr%=0|
|00002ec0| 3a f2 66 61 74 61 6c 28 | 22 4d 69 73 73 69 6e 67 |:.fatal(|"Missing|
|00002ed0| 20 22 2b 77 69 6e 64 24 | 2b 22 20 77 69 6e 64 6f | "+wind$|+" windo|
|00002ee0| 77 20 66 72 6f 6d 20 22 | 2b 70 72 6f 67 24 2b 22 |w from "|+prog$+"|
|00002ef0| 27 73 20 54 65 6d 70 6c | 61 74 65 73 20 66 69 6c |'s Templ|ates fil|
|00002f00| 65 22 29 0d 0c 30 30 c8 | 99 20 22 58 57 69 6d 70 |e")..00.|. "XWimp|
|00002f10| 5f 43 72 65 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_CreateW|indow",,|
|00002f20| 61 64 64 72 25 2b 34 20 | b8 20 77 69 6e 64 68 61 |addr%+4 |. windha|
|00002f30| 6e 64 25 0d 0c 3a 48 21 | 61 64 64 72 25 3d 77 69 |nd%..:H!|addr%=wi|
|00002f40| 6e 64 68 61 6e 64 25 3a | f4 20 53 74 6f 72 65 20 |ndhand%:|. Store |
|00002f50| 77 69 6e 64 6f 77 20 68 | 61 6e 64 6c 65 20 62 65 |window h|andle be|
|00002f60| 63 61 75 73 65 20 6e 65 | 65 64 65 64 20 62 79 20 |cause ne|eded by |
|00002f70| 6c 61 74 65 72 20 63 61 | 6c 6c 73 0d 0c 44 0e 3d |later ca|lls..D.=|
|00002f80| 77 69 6e 64 68 61 6e 64 | 25 0d 0c 4e 04 0d 0c 58 |windhand|%..N...X|
|00002f90| 11 dd f2 73 79 73 74 65 | 6d 65 72 72 6f 72 0d 0c |...syste|merror..|
|00002fa0| 62 41 f4 20 57 68 79 20 | 64 6f 20 49 20 6e 65 65 |bA. Why |do I nee|
|00002fb0| 64 20 74 68 69 73 20 70 | 72 6f 63 20 3f 20 57 65 |d this p|roc ? We|
|00002fc0| 6c 6c 2c 20 74 68 65 20 | 57 69 6d 70 20 64 6f 65 |ll, the |Wimp doe|
|00002fd0| 73 6e 27 74 20 72 65 70 | 6f 72 74 20 74 68 65 0d |sn't rep|ort the.|
|00002fe0| 0c 6c 29 f4 20 6f 66 66 | 65 6e 64 69 6e 67 20 6c |.l). off|ending l|
|00002ff0| 69 6e 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 61 6e |ine numb|er of an|
|00003000| 20 65 72 72 6f 72 20 21 | 0d 0c 76 0a ea 20 65 72 | error !|..v.. er|
|00003010| 72 24 0d 0c 80 27 e7 20 | 9f 3a 65 72 72 24 3d 22 |r$...'. |.:err$="|
|00003020| 20 61 74 20 6c 69 6e 65 | 20 22 2b c3 28 9e 29 20 | at line| "+.(.) |
|00003030| 8b 20 65 72 72 24 3d 22 | 22 0d 0c 8a 09 ee 20 85 |. err$="|"..... .|
|00003040| 20 87 0d 0c 94 13 f2 66 | 61 74 61 6c 28 f6 24 2b | ......f|atal(.$+|
|00003050| 65 72 72 24 29 0d 0c 9e | 05 e1 0d 0c a8 04 0d 0c |err$)...|........|
|00003060| b2 13 dd f2 66 61 74 61 | 6c 28 65 72 72 6f 72 24 |....fata|l(error$|
|00003070| 29 0d 0c bc 16 ff 22 45 | 72 72 6f 72 20 30 20 22 |)....."E|rror 0 "|
|00003080| 2b 65 72 72 6f 72 24 0d | 0c c6 05 e1 0d 0c d0 04 |+error$.|........|
|00003090| 0d 0c da 10 dd a4 6f 73 | 63 6c 69 28 6f 73 24 29 |......os|cli(os$)|
|000030a0| 0d 0c e4 0c ea 20 66 6c | 61 67 73 25 0d 0c ee 2d |..... fl|ags%...-|
|000030b0| c8 99 20 22 58 4f 53 5f | 43 4c 49 22 2c 6f 73 24 |.. "XOS_|CLI",os$|
|000030c0| 2b 22 20 7b 20 3e 20 6e | 75 6c 6c 3a 20 7d 22 20 |+" { > n|ull: }" |
|000030d0| b8 20 3b 66 6c 61 67 73 | 25 0d 0c f8 11 3d 28 66 |. ;flags|%....=(f|
|000030e0| 6c 61 67 73 25 20 80 20 | 31 29 0d 0d 02 04 0d 0d |lags% . |1)......|
|000030f0| 0c 0c dd f2 72 65 6c 6f | 61 64 0d 0d 16 49 e7 20 |....relo|ad...I. |
|00003100| a4 6f 73 63 6c 69 28 22 | 52 4d 45 6e 73 75 72 65 |.oscli("|RMEnsure|
|00003110| 20 4c 69 6e 65 45 64 69 | 74 6f 72 20 32 2e 33 30 | LineEdi|tor 2.30|
|00003120| 20 52 4d 4c 6f 61 64 20 | 22 2b 65 76 61 6c 76 61 | RMLoad |"+evalva|
|00003130| 72 24 2b 22 2e 4c 69 6e | 65 45 64 69 74 6f 72 22 |r$+".Lin|eEditor"|
|00003140| 29 20 8c 0d 0d 20 38 20 | 20 20 f2 66 61 74 61 6c |) ... 8 | .fatal|
|00003150| 28 22 43 6f 75 6c 64 6e | 27 74 20 69 6e 73 74 61 |("Couldn|'t insta|
|00003160| 6c 6c 20 74 68 65 20 22 | 2b 70 72 6f 67 24 2b 22 |ll the "|+prog$+"|
|00003170| 20 6d 6f 64 75 6c 65 20 | 21 22 29 0d 0d 2a 05 cd | module |!")..*..|
|00003180| 0d 0d 34 05 e1 0d ff | |..4.... | |
+--------+-------------------------+-------------------------+--------+--------+