/ APDL Public Domain 1 / APDL_PD1A.iso / utilities / userport / !UserPort / MenuMake

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1e f4 20 3e 3c | 55 73 65 72 50 6f 72 74 |..... ><|UserPort|
|00000010| 24 44 69 72 3e 2e 4d 65 | 6e 75 4d 61 6b 65 0d 00 |$Dir>.Me|nuMake..|
|00000020| 14 36 f4 20 53 61 6e 64 | 69 65 20 74 68 65 20 57 |.6. Sand|ie the W|
|00000030| 61 6c 72 75 73 20 53 65 | 70 74 65 6d 62 65 72 20 |alrus Se|ptember |
|00000040| 31 39 38 39 20 2d 20 74 | 68 61 6e 6b 73 20 66 6c |1989 - t|hanks fl|
|00000050| 69 70 70 79 0d 00 1e 04 | 0d 00 28 12 f4 20 49 6e |ippy....|..(.. In|
|00000060| 73 74 72 75 63 74 69 6f | 6e 73 0d 00 32 12 f4 20 |structio|ns..2.. |
|00000070| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 00 3c 05 |========|====..<.|
|00000080| f4 0d 00 46 47 f4 20 49 | 6e 73 65 72 74 20 79 6f |...FG. I|nsert yo|
|00000090| 75 72 20 61 70 70 27 73 | 20 70 61 74 68 6e 61 6d |ur app's| pathnam|
|000000a0| 65 20 76 61 72 69 61 62 | 6c 65 20 2d 20 73 75 63 |e variab|le - suc|
|000000b0| 68 20 61 73 20 3c 43 61 | 6c 63 24 44 69 72 3e 20 |h as <Ca|lc$Dir> |
|000000c0| 2d 20 69 6e 20 74 68 65 | 0d 00 50 46 f4 20 72 65 |- in the|..PF. re|
|000000d0| 6c 65 76 61 6e 74 20 70 | 6c 61 63 65 73 2c 20 6f |levant p|laces, o|
|000000e0| 6e 63 65 20 61 74 20 74 | 68 65 20 76 65 72 79 20 |nce at t|he very |
|000000f0| 73 74 61 72 74 20 6f 66 | 20 74 68 69 73 20 70 72 |start of| this pr|
|00000100| 6f 67 72 61 6d 20 61 6e | 64 20 6f 6e 63 65 0d 00 |ogram an|d once..|
|00000110| 5a 47 f4 20 61 74 20 74 | 68 65 20 65 6e 64 2e 20 |ZG. at t|he end. |
|00000120| 4e 6f 77 20 73 65 74 20 | 75 70 20 64 61 74 61 20 |Now set |up data |
|00000130| 62 6c 6f 63 6b 73 20 66 | 6f 72 20 65 61 63 68 20 |blocks f|or each |
|00000140| 6d 65 6e 75 20 79 6f 75 | 20 77 61 6e 74 20 63 72 |menu you| want cr|
|00000150| 65 61 74 65 64 0d 00 64 | 1e f4 20 69 6e 20 74 68 |eated..d|.. in th|
|00000160| 65 20 6d 65 6e 75 20 64 | 61 74 61 20 73 65 63 74 |e menu d|ata sect|
|00000170| 69 6f 6e 0d 00 6e 04 0d | 00 78 0f f4 20 46 6f 72 |ion..n..|.x.. For|
|00000180| 6d 61 74 20 69 73 0d 00 | 82 2f f4 20 44 41 54 41 |mat is..|./. DATA|
|00000190| 20 4d 65 6e 75 20 54 69 | 74 6c 65 2c 20 4d 65 6e | Menu Ti|tle, Men|
|000001a0| 75 20 77 69 64 74 68 20 | 69 6e 20 63 68 61 72 61 |u width |in chara|
|000001b0| 63 74 65 72 73 0d 00 8c | 3b f4 20 4f 70 74 69 6f |cters...|;. Optio|
|000001c0| 6e 20 74 65 78 74 2c 20 | 6d 65 6e 75 20 66 6c 61 |n text, |menu fla|
|000001d0| 67 73 2c 20 73 75 62 2d | 6d 65 6e 75 20 70 6f 69 |gs, sub-|menu poi|
|000001e0| 6e 74 65 72 2c 20 69 63 | 6f 6e 20 66 6c 61 67 73 |nter, ic|on flags|
|000001f0| 0d 00 96 38 f4 20 53 65 | 74 74 69 6e 67 20 62 69 |...8. Se|tting bi|
|00000200| 74 20 37 20 6f 66 20 6d | 65 6e 75 20 66 6c 61 67 |t 7 of m|enu flag|
|00000210| 20 6d 61 72 6b 73 20 74 | 68 65 20 65 6e 64 20 6f | marks t|he end o|
|00000220| 66 20 61 20 6d 65 6e 75 | 0d 00 a0 44 f4 20 53 75 |f a menu|...D. Su|
|00000230| 62 2d 6d 65 6e 75 73 20 | 73 68 6f 75 6c 64 20 62 |b-menus |should b|
|00000240| 65 20 63 72 65 61 74 65 | 64 20 61 66 74 65 72 20 |e create|d after |
|00000250| 74 68 65 69 72 20 70 61 | 72 65 6e 74 73 20 69 2e |their pa|rents i.|
|00000260| 65 2e 20 77 6f 72 6b 20 | 66 72 6f 6d 0d 00 aa 47 |e. work |from...G|
|00000270| f4 20 74 68 65 20 72 6f | 6f 74 20 74 6f 77 61 72 |. the ro|ot towar|
|00000280| 64 73 20 6c 65 61 66 20 | 69 74 65 6d 73 2e 20 41 |ds leaf |items. A|
|00000290| 6e 79 20 6d 65 6e 75 20 | 69 63 6f 6e 20 77 69 74 |ny menu |icon wit|
|000002a0| 68 20 61 20 73 75 62 2d | 6d 65 6e 75 20 73 68 6f |h a sub-|menu sho|
|000002b0| 75 6c 64 0d 00 b4 3d f4 | 20 68 61 76 65 20 69 74 |uld...=.| have it|
|000002c0| 73 20 73 75 62 2d 6d 65 | 6e 75 20 70 6f 69 6e 74 |s sub-me|nu point|
|000002d0| 65 72 20 73 65 74 20 74 | 6f 20 74 68 65 20 6e 75 |er set t|o the nu|
|000002e0| 6d 62 65 72 20 6f 66 20 | 74 68 65 20 6d 65 6e 75 |mber of |the menu|
|000002f0| 0d 00 be 04 0d 00 c8 4c | f4 20 48 65 72 65 27 73 |.......L|. Here's|
|00000300| 20 61 6e 20 65 78 61 6d | 70 6c 65 2e 20 49 74 20 | an exam|ple. It |
|00000310| 63 72 65 61 74 65 73 20 | 61 20 6d 65 6e 75 20 77 |creates |a menu w|
|00000320| 69 74 68 20 44 69 73 70 | 6c 61 79 89 2c 43 6f 6e |ith Disp|lay.,Con|
|00000330| 66 69 67 89 2c 49 6e 66 | 6f 20 26 20 51 75 69 74 |fig.,Inf|o & Quit|
|00000340| 0d 00 d2 04 0d 00 dc 17 | f4 20 44 41 54 41 20 4d |........|. DATA M|
|00000350| 61 69 6e 20 4d 65 6e 75 | 2c 31 30 0d 00 e6 21 f4 |ain Menu|,10...!.|
|00000360| 20 44 41 54 41 20 44 69 | 73 70 6c 61 79 2c 26 30 | DATA Di|splay,&0|
|00000370| 30 2c 32 2c 26 37 30 30 | 30 30 32 31 0d 00 f0 20 |0,2,&700|0021... |
|00000380| f4 20 44 41 54 41 20 43 | 6f 6e 66 69 67 2c 26 30 |. DATA C|onfig,&0|
|00000390| 32 2c 33 2c 26 37 30 30 | 30 30 32 31 0d 00 fa 1f |2,3,&700|0021....|
|000003a0| f4 20 44 41 54 41 20 49 | 6e 66 6f 2c 26 30 30 2c |. DATA I|nfo,&00,|
|000003b0| 2d 31 2c 26 37 30 30 30 | 30 32 31 0d 01 04 1f f4 |-1,&7000|021.....|
|000003c0| 20 44 41 54 41 20 51 75 | 69 74 2c 26 38 30 2c 2d | DATA Qu|it,&80,-|
|000003d0| 31 2c 26 37 30 30 30 30 | 32 31 0d 01 0e 04 0d 01 |1,&70000|21......|
|000003e0| 18 15 f4 20 44 41 54 41 | 20 44 69 73 70 6c 61 79 |... DATA| Display|
|000003f0| 2c 31 32 0d 01 22 26 f4 | 20 44 41 54 41 20 4c 61 |,12.."&.| DATA La|
|00000400| 72 67 65 20 49 63 6f 6e | 73 2c 26 30 30 2c 2d 31 |rge Icon|s,&00,-1|
|00000410| 2c 26 37 30 30 30 30 32 | 31 0d 01 2c 26 f4 20 44 |,&700002|1..,&. D|
|00000420| 41 54 41 20 53 6d 61 6c | 6c 20 49 63 6f 6e 73 2c |ATA Smal|l Icons,|
|00000430| 26 30 32 2c 2d 31 2c 26 | 37 30 30 30 30 32 31 0d |&02,-1,&|7000021.|
|00000440| 01 36 25 f4 20 44 41 54 | 41 20 42 6c 61 63 6b 20 |.6%. DAT|A Black |
|00000450| 54 65 78 74 2c 26 30 30 | 2c 2d 31 2c 26 37 30 30 |Text,&00|,-1,&700|
|00000460| 30 30 32 31 0d 01 40 25 | f4 20 44 41 54 41 20 57 |0021..@%|. DATA W|
|00000470| 68 69 74 65 20 54 65 78 | 74 2c 26 38 30 2c 2d 31 |hite Tex|t,&80,-1|
|00000480| 2c 26 37 30 30 30 30 32 | 31 0d 01 4a 04 0d 01 54 |,&700002|1..J...T|
|00000490| 14 f4 20 44 41 54 41 20 | 43 6f 6e 66 69 67 2c 31 |.. DATA |Config,1|
|000004a0| 30 0d 01 5e 24 f4 20 44 | 41 54 41 20 41 75 74 6f |0..^$. D|ATA Auto|
|000004b0| 2d 62 6f 6f 74 2c 26 30 | 30 2c 2d 31 2c 26 37 30 |-boot,&0|0,-1,&70|
|000004c0| 30 30 30 32 31 0d 01 68 | 22 f4 20 44 41 54 41 20 |00021..h|". DATA |
|000004d0| 43 6f 6e 66 69 72 6d 2c | 26 30 30 2c 2d 31 2c 26 |Confirm,|&00,-1,&|
|000004e0| 37 30 30 30 30 32 31 0d | 01 72 21 f4 20 44 41 54 |7000021.|.r!. DAT|
|000004f0| 41 20 57 69 6e 64 6f 77 | 2c 26 38 30 2c 2d 31 2c |A Window|,&80,-1,|
|00000500| 26 37 30 30 30 30 32 31 | 0d 01 7c 04 0d 01 86 48 |&7000021|..|....H|
|00000510| f4 20 57 68 65 6e 20 72 | 75 6e 20 74 68 65 20 70 |. When r|un the p|
|00000520| 72 6f 67 72 61 6d 20 77 | 6f 75 6c 64 20 63 72 65 |rogram w|ould cre|
|00000530| 61 74 65 20 74 68 65 20 | 6d 65 6e 75 20 62 6c 6f |ate the |menu blo|
|00000540| 63 6b 20 61 6e 64 20 70 | 72 69 6e 74 20 6f 75 74 |ck and p|rint out|
|00000550| 20 74 68 65 0d 01 90 49 | f4 20 73 74 61 72 74 20 | the...I|. start |
|00000560| 6f 66 66 73 65 74 73 20 | 6f 66 20 65 61 63 68 20 |offsets |of each |
|00000570| 6d 65 6e 75 20 69 74 65 | 6d 2e 20 49 66 20 79 6f |menu ite|m. If yo|
|00000580| 75 20 77 65 72 65 20 74 | 6f 6c 64 20 74 68 61 74 |u were t|old that|
|00000590| 20 74 68 65 20 27 57 69 | 6e 64 6f 77 27 0d 01 9a | the 'Wi|ndow'...|
|000005a0| 47 f4 20 6f 70 74 69 6f | 6e 20 73 74 61 72 74 65 |G. optio|n starte|
|000005b0| 64 20 61 74 20 28 73 61 | 79 29 20 31 34 34 2c 20 |d at (sa|y) 144, |
|000005c0| 74 68 65 6e 20 79 6f 75 | 72 20 70 72 6f 67 72 61 |then you|r progra|
|000005d0| 6d 20 63 6f 75 6c 64 20 | 73 65 74 20 69 74 73 20 |m could |set its |
|000005e0| 74 69 63 6b 0d 01 a4 33 | f4 20 62 69 74 20 28 26 |tick...3|. bit (&|
|000005f0| 30 32 29 20 62 79 20 22 | 20 6d 65 6e 75 25 21 31 |02) by "| menu%!1|
|00000600| 34 34 20 3d 20 6d 65 6e | 75 25 21 31 34 34 20 4f |44 = men|u%!144 O|
|00000610| 52 20 26 30 32 20 22 0d | 01 ae 04 0d 01 b8 48 f4 |R &02 ".|......H.|
|00000620| 20 59 6f 75 72 20 70 72 | 6f 67 72 61 6d 20 6d 75 | Your pr|ogram mu|
|00000630| 73 74 2c 20 68 6f 77 65 | 76 65 72 2c 20 61 73 73 |st, howe|ver, ass|
|00000640| 65 6d 62 6c 65 20 73 75 | 62 2d 6d 65 6e 75 73 20 |emble su|b-menus |
|00000650| 61 73 20 74 68 65 20 6d | 65 6e 75 20 63 72 65 61 |as the m|enu crea|
|00000660| 74 6f 72 0d 01 c2 44 f4 | 20 63 61 6e 27 74 20 64 |tor...D.| can't d|
|00000670| 6f 20 73 6f 20 61 73 20 | 74 68 65 20 6d 65 6e 75 |o so as |the menu|
|00000680| 20 62 6c 6f 63 6b 20 77 | 69 6c 6c 20 62 65 20 72 | block w|ill be r|
|00000690| 65 6c 6f 63 61 74 65 64 | 20 77 68 65 6e 20 6c 6f |elocated| when lo|
|000006a0| 61 64 65 64 20 69 6e 0d | 01 cc 2f f4 20 22 20 53 |aded in.|../. " S|
|000006b0| 65 74 20 6d 65 6e 75 25 | 21 31 34 34 20 74 6f 20 |et menu%|!144 to |
|000006c0| 6d 65 6e 75 25 2b 32 38 | 38 20 22 20 6d 65 61 6e |menu%+28|8 " mean|
|000006d0| 73 20 64 6f 20 61 0d 01 | d6 48 f4 20 22 20 6d 65 |s do a..|.H. " me|
|000006e0| 6e 75 25 21 31 34 34 3d | 6d 65 6e 75 25 2b 32 38 |nu%!144=|menu%+28|
|000006f0| 38 20 22 20 69 6e 20 74 | 68 65 20 6d 61 69 6e 20 |8 " in t|he main |
|00000700| 70 72 6f 67 72 61 6d 20 | 74 6f 20 61 63 63 65 73 |program |to acces|
|00000710| 73 20 74 68 65 20 73 75 | 62 2d 6d 65 6e 75 0d 01 |s the su|b-menu..|
|00000720| e0 0e f4 20 70 72 6f 70 | 65 72 6c 79 0d 01 ea 04 |... prop|erly....|
|00000730| 0d 01 f4 47 f4 20 44 6f | 6e 27 74 20 63 68 61 6e |...G. Do|n't chan|
|00000740| 67 65 20 61 6e 79 74 68 | 69 6e 67 20 65 6c 73 65 |ge anyth|ing else|
|00000750| 20 61 73 20 61 20 72 6f | 67 75 65 20 6d 65 6e 75 | as a ro|gue menu|
|00000760| 20 62 6c 6f 63 6b 20 63 | 6f 75 6c 64 20 63 61 75 | block c|ould cau|
|00000770| 73 65 20 79 6f 75 72 0d | 01 fe 28 f4 20 61 70 70 |se your.|..(. app|
|00000780| 6c 69 63 61 74 69 6f 6e | 20 74 6f 20 63 72 61 73 |lication| to cras|
|00000790| 68 20 69 67 6e 6f 6d 69 | 6e 69 6f 75 73 6c 79 0d |h ignomi|niously.|
|000007a0| 02 08 04 0d 02 12 04 0d | 02 1c 19 f4 20 20 53 74 |........|....  St|
|000007b0| 61 72 74 20 6f 66 20 6d | 65 6e 75 20 64 61 74 61 |art of m|enu data|
|000007c0| 0d 02 26 19 f4 20 20 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..&..  =|========|
|000007d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 02 30 04 0d 02 3a |========|=..0...:|
|000007e0| 11 dc 20 55 73 65 72 50 | 6f 72 74 2c 31 30 0d 02 |.. UserP|ort,10..|
|000007f0| 44 1a dc 20 49 6e 66 6f | 2c 26 30 30 2c 2d 31 2c |D.. Info|,&00,-1,|
|00000800| 26 37 30 30 30 30 32 31 | 0d 02 4e 1a dc 20 51 75 |&7000021|..N.. Qu|
|00000810| 69 74 2c 26 38 30 2c 2d | 31 2c 26 37 30 30 30 30 |it,&80,-|1,&70000|
|00000820| 32 31 0d 02 58 04 0d 02 | 62 17 f4 20 20 3d 3d 3d |21..X...|b..  ===|
|00000830| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 0d 02 6c |========|=====..l|
|00000840| 17 f4 20 20 45 6e 64 20 | 6f 66 20 6d 65 6e 75 20 |..  End |of menu |
|00000850| 64 61 74 61 0d 02 76 0a | dc 20 22 22 2c 30 0d 02 |data..v.|. "",0..|
|00000860| 80 04 0d 02 8a 04 0d 02 | 94 25 de 20 6d 65 6e 75 |........|.%. menu|
|00000870| 25 20 34 30 39 36 2c 73 | 74 61 72 74 25 28 32 30 |% 4096,s|tart%(20|
|00000880| 29 2c 73 6d 25 28 32 30 | 2c 31 29 0d 02 9e 25 40 |),sm%(20|,1)...%@|
|00000890| 25 3d 34 3a 74 68 69 73 | 5f 6d 65 6e 75 3d 30 3a |%=4:this|_menu=0:|
|000008a0| 73 6d 73 3d 30 3a 70 74 | 72 25 3d 6d 65 6e 75 25 |sms=0:pt|r%=menu%|
|000008b0| 0d 02 a8 17 f3 20 6d 65 | 6e 75 5f 74 69 74 6c 65 |..... me|nu_title|
|000008c0| 24 2c 77 69 64 74 68 0d | 02 b2 32 eb 20 33 3a f1 |$,width.|..2. 3:.|
|000008d0| 22 4d 65 6e 75 20 69 74 | 65 6d 73 20 73 74 61 72 |"Menu it|ems star|
|000008e0| 74 20 6c 6f 63 61 74 69 | 6f 6e 20 69 6e 20 64 61 |t locati|on in da|
|000008f0| 74 61 20 62 6c 6f 63 6b | 22 0d 02 bc 3b f1 22 75 |ta block|"...;."u|
|00000900| 73 65 20 66 6f 72 20 77 | 6f 72 6b 69 6e 67 20 6f |se for w|orking o|
|00000910| 75 74 20 6f 66 66 73 65 | 74 73 20 66 6f 72 20 74 |ut offse|ts for t|
|00000920| 69 63 6b 20 62 69 74 73 | 2c 20 66 6c 61 67 73 20 |ick bits|, flags |
|00000930| 65 74 63 22 0d 02 c6 15 | c8 95 20 6d 65 6e 75 5f |etc"....|.. menu_|
|00000940| 74 69 74 6c 65 24 3e 22 | 22 0d 02 d0 13 20 20 74 |title$>"|"....  t|
|00000950| 68 69 73 5f 6d 65 6e 75 | 20 2b 3d 31 0d 02 da 1c |his_menu| +=1....|
|00000960| 20 20 73 74 61 72 74 25 | 28 74 68 69 73 5f 6d 65 |  start%|(this_me|
|00000970| 6e 75 29 3d 70 74 72 25 | 0d 02 e4 32 20 20 f1 22 |nu)=ptr%|...2  ."|
|00000980| 4d 65 6e 75 20 3a 20 22 | 6d 65 6e 75 5f 74 69 74 |Menu : "|menu_tit|
|00000990| 6c 65 24 3b 8a 33 30 29 | 3b 22 20 61 74 20 22 3b |le$;.30)|;" at ";|
|000009a0| 70 74 72 25 2d 6d 65 6e | 75 25 0d 02 ee 17 20 20 |ptr%-men|u%....  |
|000009b0| 24 70 74 72 25 3d 6d 65 | 6e 75 5f 74 69 74 6c 65 |$ptr%=me|nu_title|
|000009c0| 24 0d 02 f8 14 20 20 70 | 74 72 25 21 31 32 3d 26 |$....  p|tr%!12=&|
|000009d0| 37 30 32 30 37 0d 03 02 | 16 20 20 70 74 72 25 21 |70207...|.  ptr%!|
|000009e0| 31 36 3d 77 69 64 74 68 | 2a 31 36 0d 03 0c 1a 20 |16=width|*16.... |
|000009f0| 20 70 74 72 25 21 32 30 | 3d 34 34 3a 70 74 72 25 | ptr%!20|=44:ptr%|
|00000a00| 21 32 34 3d 30 0d 03 16 | 0e 20 20 70 74 72 25 2b |!24=0...|.  ptr%+|
|00000a10| 3d 32 38 0d 03 20 07 20 | 20 f5 0d 03 2a 27 20 20 |=28.. . | ...*'  |
|00000a20| 20 20 f3 20 69 74 65 6d | 24 2c 6d 65 6e 75 66 6c |  . item|$,menufl|
|00000a30| 61 67 24 2c 73 6d 25 2c | 69 63 6f 6e 66 6c 61 67 |ag$,sm%,|iconflag|
|00000a40| 24 0d 03 34 1b 20 20 20 | 20 70 74 72 25 21 30 3d |$..4.   | ptr%!0=|
|00000a50| a0 28 6d 65 6e 75 66 6c | 61 67 24 29 0d 03 3e 12 |.(menufl|ag$)..>.|
|00000a60| 20 20 20 20 70 74 72 25 | 21 34 3d 73 6d 25 0d 03 |    ptr%|!4=sm%..|
|00000a70| 48 14 20 20 20 20 e7 20 | 70 74 72 25 21 34 3e 30 |H.    . |ptr%!4>0|
|00000a80| 20 8c 0d 03 52 11 20 20 | 20 20 20 20 73 6d 73 20 | ...R.  |    sms |
|00000a90| 2b 3d 31 0d 03 5c 1b 20 | 20 20 20 20 20 73 6d 25 |+=1..\. |     sm%|
|00000aa0| 28 73 6d 73 2c 30 29 3d | 70 74 72 25 2b 34 0d 03 |(sms,0)=|ptr%+4..|
|00000ab0| 66 1b 20 20 20 20 20 20 | 73 6d 25 28 73 6d 73 2c |f.      |sm%(sms,|
|00000ac0| 31 29 3d 70 74 72 25 21 | 34 0d 03 70 09 20 20 20 |1)=ptr%!|4..p.   |
|00000ad0| 20 cd 0d 03 7a 1b 20 20 | 20 20 70 74 72 25 21 38 | ...z.  |  ptr%!8|
|00000ae0| 3d a0 28 69 63 6f 6e 66 | 6c 61 67 24 29 0d 03 84 |=.(iconf|lag$)...|
|00000af0| 1d 20 20 20 20 24 28 70 | 74 72 25 2b 31 32 29 3d |.    $(p|tr%+12)=|
|00000b00| c0 69 74 65 6d 24 2c 31 | 31 29 0d 03 8e 1d 20 20 |.item$,1|1)....  |
|00000b10| 20 20 f1 20 69 74 65 6d | 24 8a 31 33 29 70 74 72 |  . item|$.13)ptr|
|00000b20| 25 2d 6d 65 6e 75 25 0d | 03 98 10 20 20 20 20 70 |%-menu%.|...    p|
|00000b30| 74 72 25 2b 3d 32 34 0d | 03 a2 16 20 20 fd 20 70 |tr%+=24.|...  . p|
|00000b40| 74 72 25 21 2d 32 34 20 | 80 20 26 38 30 0d 03 ac |tr%!-24 |. &80...|
|00000b50| 0d 20 20 70 74 72 25 2b | 3d 34 0d 03 b6 19 20 20 |.  ptr%+|=4....  |
|00000b60| f3 20 6d 65 6e 75 5f 74 | 69 74 6c 65 24 2c 77 69 |. menu_t|itle$,wi|
|00000b70| 64 74 68 0d 03 c0 05 ce | 0d 03 ca 04 0d 03 d4 0d |dth.....|........|
|00000b80| e7 20 73 6d 73 3e 30 20 | 8c 0d 03 de 37 20 20 f1 |. sms>0 |....7  .|
|00000b90| 27 22 53 75 62 2d 6d 65 | 6e 75 20 70 6f 69 6e 74 |'"Sub-me|nu point|
|00000ba0| 65 72 73 20 2d 20 73 65 | 74 20 74 68 65 73 65 20 |ers - se|t these |
|00000bb0| 69 6e 20 6d 61 69 6e 20 | 70 72 6f 67 72 61 6d 22 |in main |program"|
|00000bc0| 0d 03 e8 12 20 20 e3 20 | 49 25 3d 31 20 b8 20 73 |....  . |I%=1 . s|
|00000bd0| 6d 73 0d 03 f2 4a 20 20 | 20 20 f1 22 53 65 74 20 |ms...J  |  ."Set |
|00000be0| 6d 65 6e 75 25 21 22 3b | 73 6d 25 28 49 25 2c 30 |menu%!";|sm%(I%,0|
|00000bf0| 29 2d 6d 65 6e 75 25 3b | 22 20 74 6f 20 6d 65 6e |)-menu%;|" to men|
|00000c00| 75 25 2b 22 3b 73 74 61 | 72 74 25 28 73 6d 25 28 |u%+";sta|rt%(sm%(|
|00000c10| 49 25 2c 31 29 29 2d 6d | 65 6e 75 25 0d 03 fc 07 |I%,1))-m|enu%....|
|00000c20| 20 20 ed 0d 04 06 31 20 | 20 f1 22 44 6f 6e 27 74 |  ....1 | ."Don't|
|00000c30| 20 66 6f 72 67 65 74 20 | 74 6f 20 75 73 65 20 72 | forget |to use r|
|00000c40| 65 6c 61 74 69 76 65 20 | 61 64 64 72 65 73 73 69 |elative |addressi|
|00000c50| 6e 67 21 22 0d 04 10 05 | cd 0d 04 1a 04 0d 04 24 |ng!"....|.......$|
|00000c60| 3c c8 99 22 4f 53 5f 46 | 69 6c 65 22 2c 31 30 2c |<.."OS_F|ile",10,|
|00000c70| 20 22 3c 55 73 65 72 50 | 6f 72 74 24 44 69 72 3e | "<UserP|ort$Dir>|
|00000c80| 2e 4d 65 6e 75 73 22 20 | 2c 26 46 46 44 2c 2c 6d |.Menus" |,&FFD,,m|
|00000c90| 65 6e 75 25 2c 70 74 72 | 25 0d 04 2e 49 f1 20 27 |enu%,ptr|%...I. '|
|00000ca0| 22 4d 65 6e 75 20 62 6c | 6f 63 6b 20 6c 65 6e 67 |"Menu bl|ock leng|
|00000cb0| 74 68 20 3d 20 22 3b 70 | 74 72 25 2d 6d 65 6e 75 |th = ";p|tr%-menu|
|00000cc0| 25 3b 22 20 28 44 49 4d | 20 74 68 69 73 20 73 70 |%;" (DIM| this sp|
|00000cd0| 61 63 65 20 69 6e 20 6d | 61 69 6e 20 70 72 6f 67 |ace in m|ain prog|
|00000ce0| 29 22 0d 04 38 04 0d 04 | 42 05 e0 0d 04 4c 04 0d |)"..8...|B....L..|
|00000cf0| 04 56 04 0d 04 60 04 0d | 04 6a 04 0d 04 74 04 0d |.V...`..|.j...t..|
|00000d00| 04 7e 1b dd f2 66 6c 61 | 67 3a ea 66 6c 61 67 25 |.~...fla|g:.flag%|
|00000d10| 3a 66 6c 61 67 25 3d 30 | 3a f5 0d 04 88 2c e8 22 |:flag%=0|:....,."|
|00000d20| 45 6e 74 65 72 20 62 69 | 74 20 3a 20 22 62 69 74 |Enter bi|t : "bit|
|00000d30| 3a e7 62 69 74 3e 3d 30 | 20 66 6c 61 67 25 2b 3d |:.bit>=0| flag%+=|
|00000d40| 31 3c 3c 62 69 74 0d 04 | 92 15 fd 62 69 74 3c 30 |1<<bit..|...bit<0|
|00000d50| 3a f1 20 7e 66 6c 61 67 | 25 3a e1 0d ff          |:. ~flag|%:...   |
+--------+-------------------------+-------------------------+--------+--------+