MENU MAKER
FILE INFORMATION
FILENAME(S): MENU MAKER
FILE TYPE(S): PRG
FILE SIZE: 7.1K
FIRST SEEN: 2025-11-30 17:31:21
APPEARS ON: 1 disk(s)
FILE HASH
cf46723daf07c8afc4d4c44b76127d5a524cd669308d38ab9befadcb8c6cd8dd
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMM DISK USER 8 | MENU MAKER | PRG | UK CD | 20 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 41 1C 40 1F 8F 20 20 20 20 20 20 4D 45 4E |..A.@.. MEN|
00000010: 55 20 43 52 45 41 54 49 4F 4E 20 52 4F 55 54 49 |U CREATION ROUTI|
00000020: 4E 45 53 20 46 4F 52 20 43 42 4D 20 31 32 38 20 |NES FOR CBM 128 |
00000030: 28 34 30 20 4F 52 20 38 30 20 43 4F 4C 55 4D 4E |(40 OR 80 COLUMN|
00000040: 29 00 6C 1C 4A 1F 8F 20 20 20 20 20 20 4E 2E 50 |).l.J.. N.P|
00000050: 2E 20 47 52 45 47 4F 52 59 20 20 20 20 20 20 20 |. GREGORY |
00000060: 41 55 47 55 53 54 20 20 31 39 38 38 00 72 1C 54 |AUGUST 1988.r.T|
00000070: 1F 8F 00 89 1C 5E 1F FE 11 20 22 4D 45 4E 55 20 |.....^... "MENU |
00000080: 4D 41 4B 45 52 2E 4D 43 22 00 AB 1C 68 1F 99 20 |MAKER.MC"...h.. |
00000090: C7 28 31 34 29 3A 8B 20 C2 28 D1 28 22 44 37 22 |.(14):. .(.("D7"|
000000A0: 29 29 B1 31 32 37 20 A7 20 FE 25 00 B4 1C 72 1F |)).127 . .%...r.|
000000B0: FE 02 31 35 00 E8 1C 7C 1F 8D 20 38 32 32 30 3A |..15...|.. 8220:|
000000C0: 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4E | IN|
000000E0: 49 54 49 41 4C 49 53 45 00 19 1D 86 1F 8D 20 38 |ITIALISE...... 8|
000000F0: 37 31 30 3A 8F 20 20 20 20 20 20 20 20 20 20 20 |710:. |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000110: 20 20 44 4F 20 4D 45 4E 55 00 1F 1D 90 1F 80 00 | DO MENU.......|
00000120: 25 1D 9A 1F 3A 00 2B 1D A4 1F 8F 00 4C 1D AE 1F |%...:.+.....L...|
00000130: 8F 20 20 20 20 20 20 20 20 4D 45 4E 55 20 49 4E |. MENU IN|
00000140: 49 54 49 41 4C 49 53 41 54 49 4F 4E 00 97 1D B8 |ITIALISATION....|
00000150: 1F 8F 20 20 20 20 20 20 20 20 54 48 49 53 20 52 |.. THIS R|
00000160: 4F 55 54 49 4E 45 20 4D 55 53 54 20 42 45 20 43 |OUTINE MUST BE C|
00000170: 41 4C 4C 45 44 20 41 54 20 54 48 45 20 42 45 47 |ALLED AT THE BEG|
00000180: 49 4E 49 4E 47 20 4F 46 20 54 48 45 20 50 52 4F |INING OF THE PRO|
00000190: 47 52 41 4D 20 53 4F 00 CA 1D C2 1F 8F 20 20 20 |GRAM SO...... |
000001A0: 20 20 20 20 20 54 48 41 54 20 54 48 45 20 4D 45 | THAT THE ME|
000001B0: 4E 55 20 56 41 52 49 41 42 4C 45 53 20 43 41 4E |NU VARIABLES CAN|
000001C0: 20 42 45 20 53 45 54 20 55 50 00 D0 1D CC 1F 8F | BE SET UP......|
000001D0: 00 19 1E D6 1F 8F 20 20 20 20 20 20 20 20 49 46 |...... IF|
000001E0: 20 41 20 43 4F 4D 50 49 4C 45 52 20 49 53 20 54 | A COMPILER IS T|
000001F0: 4F 20 42 45 20 55 53 45 44 20 4E 4F 54 45 20 54 |O BE USED NOTE T|
00000200: 48 41 54 20 41 52 52 41 59 53 20 4D 41 59 20 48 |HAT ARRAYS MAY H|
00000210: 41 56 45 20 54 4F 20 42 45 00 63 1E E0 1F 8F 20 |AVE TO BE.c.... |
00000220: 20 20 20 20 20 20 20 44 49 4D 45 4E 54 49 4F 4E | DIMENTION|
00000230: 45 44 20 41 54 20 54 48 45 20 42 45 47 49 4E 49 |ED AT THE BEGINI|
00000240: 4E 47 20 4F 46 20 41 20 50 52 4F 47 52 41 4D 20 |NG OF A PROGRAM |
00000250: 41 4E 44 20 54 48 41 54 20 54 48 45 20 4E 55 4D |AND THAT THE NUM|
00000260: 42 45 52 00 A8 1E EA 1F 8F 20 20 20 20 20 20 20 |BER...... |
00000270: 20 4F 46 20 53 55 42 53 43 52 49 50 54 53 20 4D | OF SUBSCRIPTS M|
00000280: 41 59 20 48 41 56 45 20 54 4F 20 42 45 20 41 42 |AY HAVE TO BE AB|
00000290: 53 4F 4C 55 54 45 20 41 4E 44 20 4E 4F 54 20 56 |SOLUTE AND NOT V|
000002A0: 41 52 49 41 42 4C 45 53 00 F4 1E F4 1F 8F 20 20 |ARIABLES...... |
000002B0: 20 20 20 20 20 20 41 20 41 4E 44 20 41 31 20 48 | A AND A1 H|
000002C0: 4F 4C 44 20 54 48 45 20 41 42 53 4F 55 54 45 20 |OLD THE ABSOUTE |
000002D0: 56 41 4C 55 45 53 20 46 4F 52 20 54 48 45 20 44 |VALUES FOR THE D|
000002E0: 49 4D 45 4E 54 49 4F 4E 53 20 41 46 54 45 52 20 |IMENTIONS AFTER |
000002F0: 54 48 49 53 00 10 1F FE 1F 8F 20 20 20 20 20 20 |THIS...... |
00000300: 20 20 52 4F 55 54 49 4E 45 20 49 53 20 52 55 4E | ROUTINE IS RUN|
00000310: 00 5D 1F 08 20 8F 20 20 20 20 20 20 20 20 41 4C |.].. . AL|
00000320: 4C 20 56 41 52 49 41 42 4C 45 53 20 42 45 47 49 |L VARIABLES BEGI|
00000330: 4E 49 4E 47 20 57 49 54 48 20 27 41 27 20 41 52 |NING WITH 'A' AR|
00000340: 45 20 4E 4F 54 20 55 53 45 44 20 41 46 54 45 52 |E NOT USED AFTER|
00000350: 20 54 48 49 53 20 52 4F 55 54 49 4E 45 00 63 1F | THIS ROUTINE.c.|
00000360: 0D 20 8F 00 69 1F 12 20 3A 00 AF 1F 1C 20 4D 53 |. ..i.. :.... MS|
00000370: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000390: 20 20 20 20 22 3A 8F 20 53 50 41 43 45 20 46 4F | ":. SPACE FO|
000003A0: 52 20 4D 45 4E 55 20 42 41 52 20 28 33 33 29 00 |R MENU BAR (33).|
000003B0: FA 1F 26 20 4D 4C 24 B2 22 C0 C0 C0 C0 C0 C0 C0 |..& ML$.".......|
000003C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000003D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 3A 8F 20 4C 49 |..........":. LI|
000003E0: 4E 45 20 46 4F 52 20 4D 45 4E 55 20 28 33 33 29 |NE FOR MENU (33)|
000003F0: 3A 43 48 52 24 28 31 39 32 29 00 3C 20 30 20 41 |:CHR$(192).< 0 A|
00000400: B2 30 3A 41 31 B2 30 3A 41 32 B2 30 3A 41 33 B2 |.0:A1.0:A2.0:A3.|
00000410: 30 3A 41 34 B2 30 3A 41 35 B2 30 3A 8F 20 20 20 |0:A4.0:A5.0:. |
00000420: 20 20 20 20 20 20 20 20 5A 45 52 4F 20 4C 4F 43 | ZERO LOC|
00000430: 41 4C 20 56 41 52 49 41 42 4C 45 53 00 76 20 3A |AL VARIABLES.v :|
00000440: 20 8C 3A 8F 20 20 20 20 20 20 20 20 20 20 20 20 | .:. |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000460: 20 20 20 20 52 45 53 45 54 20 44 41 54 41 20 50 | RESET DATA P|
00000470: 4F 49 4E 54 45 52 00 BB 20 44 20 87 20 41 3A 8F |OINTER.. D . A:.|
00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004A0: 20 4E 55 4D 42 45 52 20 4F 46 20 54 4F 50 20 4D | NUMBER OF TOP M|
000004B0: 45 4E 55 20 4F 50 54 49 4F 4E 53 00 F3 20 4E 20 |ENU OPTIONS.. N |
000004C0: 87 20 41 35 3A 8F 20 20 20 20 20 20 20 20 20 20 |. A5:. |
000004D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004E0: 20 20 20 20 20 20 45 58 49 54 2F 45 4E 44 20 46 | EXIT/END F|
000004F0: 4C 41 47 00 FD 20 58 20 41 B2 41 AB 31 00 3D 21 |LAG.. X A.A.1.=!|
00000500: 62 20 86 20 4D 45 4E 55 24 28 41 29 2C 4D 45 4E |b . MENU$(A),MEN|
00000510: 55 25 28 35 29 3A 8F 20 20 20 20 20 20 20 20 20 |U%(5):. |
00000520: 20 20 20 20 20 20 20 20 20 4F 50 45 4E 20 54 4F | OPEN TO|
00000530: 50 20 4D 45 4E 55 20 41 52 52 41 59 53 00 4C 21 |P MENU ARRAYS.L!|
00000540: 6C 20 81 20 41 31 B2 30 20 A4 20 41 00 95 21 76 |l . A1.0 . A..!v|
00000550: 20 3A 87 20 4D 45 4E 55 24 28 41 31 29 3A 8F 20 | :. MENU$(A1):. |
00000560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000570: 20 20 20 20 20 20 20 41 4E 44 20 46 49 4C 4C 20 | AND FILL |
00000580: 57 49 54 48 20 54 4F 50 20 4D 45 4E 55 20 4F 50 |WITH TOP MENU OP|
00000590: 54 49 4F 4E 53 00 B6 21 80 20 3A 4D 45 4E 55 24 |TIONS..!. :MENU$|
000005A0: 28 41 31 29 B2 22 20 22 AA 4D 45 4E 55 24 28 41 |(A1)." ".MENU$(A|
000005B0: 31 29 AA 22 20 22 00 FE 21 8A 20 3A 41 32 B2 41 |1)." "..!. :A2.A|
000005C0: 32 AA C3 28 4D 45 4E 55 24 28 41 31 29 29 3A 8F |2..(MENU$(A1)):.|
000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005E0: 20 20 41 44 44 20 55 50 20 4F 50 54 49 4F 4E 20 | ADD UP OPTION |
000005F0: 53 54 52 49 4E 47 20 4C 45 4E 47 54 48 53 00 07 |STRING LENGTHS..|
00000600: 22 94 20 82 20 41 31 00 44 22 9E 20 81 20 41 31 |". . A1.D". . A1|
00000610: B2 30 20 A4 20 35 3A 8F 20 20 20 20 20 20 20 20 |.0 . 5:. |
00000620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000630: 20 20 5A 45 52 4F 20 4E 55 4D 45 52 49 43 20 41 | ZERO NUMERIC A|
00000640: 52 52 41 59 00 55 22 A8 20 3A 4D 45 4E 55 25 28 |RRAY.U". :MENU%(|
00000650: 41 31 29 B2 30 00 5E 22 B2 20 82 20 41 31 00 A7 |A1).0.^". . A1..|
00000660: 22 BC 20 4D 45 4E 55 25 28 33 29 B2 41 32 AB C3 |". MENU%(3).A2..|
00000670: 28 4D 45 4E 55 24 28 41 29 29 3A 8F 20 20 20 20 |(MENU$(A)):. |
00000680: 20 20 20 20 20 20 20 20 20 20 54 4F 54 41 4C 20 | TOTAL |
00000690: 4C 45 4E 47 54 48 20 4D 49 4E 55 53 20 4F 4E 45 |LENGTH MINUS ONE|
000006A0: 20 4F 50 54 49 4F 4E 00 EC 22 C6 20 4D 45 4E 55 | OPTION..". MENU|
000006B0: 25 28 35 29 B2 41 3A 8F 20 20 20 20 20 20 20 20 |%(5).A:. |
000006C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006D0: 20 20 20 20 20 54 4F 54 41 4C 20 4E 55 4D 42 45 | TOTAL NUMBE|
000006E0: 52 20 4F 46 20 4F 50 54 49 4F 4E 53 00 23 23 D0 |R OF OPTIONS.##.|
000006F0: 20 8B 20 41 35 20 A7 20 4D 45 4E 55 25 28 35 29 | . A5 . MENU%(5)|
00000700: B2 41 AA 31 32 38 3A 8F 20 20 20 20 20 20 20 20 |.A.128:. |
00000710: 20 20 20 20 20 20 53 45 54 20 45 58 49 54 20 46 | SET EXIT F|
00000720: 4C 41 47 00 29 23 DA 20 8F 00 52 23 E4 20 8F 20 |LAG.)#. ..R#. . |
00000730: 20 20 20 20 20 20 20 49 4E 49 54 49 41 4C 49 53 | INITIALIS|
00000740: 45 20 53 55 42 20 4D 45 4E 55 20 4F 50 54 49 4F |E SUB MENU OPTIO|
00000750: 4E 53 00 58 23 EE 20 8F 00 9E 23 F8 20 87 20 41 |NS.X#. ...#. . A|
00000760: 31 3A 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 |1:. |
00000770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000780: 20 20 20 52 45 41 44 20 54 4F 54 41 4C 20 53 55 | READ TOTAL SU|
00000790: 42 20 4D 45 4E 55 20 4F 50 54 49 4F 4E 53 00 AA |B MENU OPTIONS..|
000007A0: 23 02 21 41 31 B2 41 31 AB 31 00 B3 23 0C 21 41 |#.!A1.A1.1..#.!A|
000007B0: 35 B2 30 00 F9 23 16 21 86 20 53 55 42 4D 45 4E |5.0..#.!. SUBMEN|
000007C0: 55 24 28 41 31 29 2C 53 55 42 4D 45 4E 55 25 28 |U$(A1),SUBMENU%(|
000007D0: 41 AC 32 AA 31 29 3A 8F 20 20 20 20 20 20 20 4F |A.2.1):. O|
000007E0: 50 45 4E 20 53 55 42 4D 45 4E 55 20 4F 50 54 49 |PEN SUBMENU OPTI|
000007F0: 4F 4E 53 20 41 52 52 41 59 00 41 24 20 21 81 20 |ONS ARRAY.A$ !. |
00000800: 41 32 B2 30 20 A4 20 41 3A 8F 20 20 20 20 20 20 |A2.0 . A:. |
00000810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000820: 20 20 20 20 41 4E 44 20 46 49 4C 4C 20 57 49 54 | AND FILL WIT|
00000830: 48 20 53 55 42 4D 45 4E 55 20 4F 50 54 49 4F 4E |H SUBMENU OPTION|
00000840: 53 00 82 24 2A 21 3A 41 36 B2 30 3A 8F 20 20 20 |S..$*!:A6.0:. |
00000850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5A | Z|
00000870: 45 52 4F 20 4C 45 4E 47 54 48 20 50 4F 49 4E 54 |ERO LENGTH POINT|
00000880: 45 52 00 C8 24 34 21 3A 87 20 41 33 3A 8F 20 20 |ER..$4!:. A3:. |
00000890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 4E 55 4D | NUM|
000008B0: 42 45 52 20 49 4E 20 43 55 52 52 45 4E 54 20 53 |BER IN CURRENT S|
000008C0: 55 42 4F 50 54 49 4F 4E 00 10 25 3E 21 3A 53 55 |UBOPTION..%>!:SU|
000008D0: 42 4D 45 4E 55 25 28 41 32 AC 32 29 B2 41 35 3A |BMENU%(A2.2).A5:|
000008E0: 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000008F0: 20 20 20 20 20 20 53 54 41 52 54 20 53 55 42 53 | START SUBS|
00000900: 43 52 49 50 54 20 4F 46 20 53 55 42 4D 45 4E 55 |CRIPT OF SUBMENU|
00000910: 00 23 25 48 21 3A 81 20 41 34 B2 30 20 A4 20 41 |.#%H!:. A4.0 . A|
00000920: 33 AB 31 00 62 25 52 21 3A 20 87 20 53 55 42 4D |3.1.b%R!: . SUBM|
00000930: 45 4E 55 24 28 41 35 AA 41 34 29 3A 8F 20 20 20 |ENU$(A5.A4):. |
00000940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 | RE|
00000950: 41 44 20 53 55 42 4D 45 4E 55 20 4F 50 54 49 4F |AD SUBMENU OPTIO|
00000960: 4E 53 00 98 25 5C 21 3A 20 8B 20 C3 28 53 55 42 |NS..%\!: . .(SUB|
00000970: 4D 45 4E 55 24 28 41 35 AA 41 34 29 29 B1 41 36 |MENU$(A5.A4)).A6|
00000980: 20 A7 20 41 36 B2 C3 28 53 55 42 4D 45 4E 55 24 | . A6..(SUBMENU$|
00000990: 28 41 35 AA 41 34 29 29 00 A2 25 66 21 3A 82 20 |(A5.A4))..%f!:. |
000009A0: 41 34 00 E9 25 70 21 3A 81 20 41 34 B2 30 20 A4 |A4..%p!:. A4.0 .|
000009B0: 20 41 33 AB 31 3A 8F 20 20 20 20 20 20 20 20 20 | A3.1:. |
000009C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 41 44 4A | ADJ|
000009D0: 55 53 54 20 4F 50 54 49 4F 4E 20 53 54 52 49 4E |UST OPTION STRIN|
000009E0: 47 20 4C 45 4E 47 54 48 53 00 09 26 7A 21 3A 20 |G LENGTHS..&z!: |
000009F0: 8B 20 C3 28 53 55 42 4D 45 4E 55 24 28 41 35 29 |. .(SUBMENU$(A5)|
00000A00: 29 B3 41 36 20 A7 20 FE 18 00 44 26 84 21 3A 20 |).A6 . ...D&.!: |
00000A10: 20 53 55 42 4D 45 4E 55 24 28 41 35 29 B2 53 55 | SUBMENU$(A5).SU|
00000A20: 42 4D 45 4E 55 24 28 41 35 29 AA C8 28 4D 53 24 |BMENU$(A5)..(MS$|
00000A30: 2C 41 36 AB C3 28 53 55 42 4D 45 4E 55 24 28 41 |,A6..(SUBMENU$(A|
00000A40: 35 29 29 29 00 4D 26 8E 21 3A 20 FE 19 00 84 26 |5))).M&.!: ....&|
00000A50: 98 21 3A 20 41 35 B2 41 35 AA 31 3A 8F 20 20 20 |.!: A5.A5.1:. |
00000A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A70: 20 20 20 20 20 20 20 20 20 20 20 55 50 44 41 54 | UPDAT|
00000A80: 45 20 41 35 00 8E 26 A2 21 3A 82 20 41 34 00 C9 |E A5..&.!:. A4..|
00000A90: 26 AC 21 3A 53 55 42 4D 45 4E 55 25 28 41 32 AC |&.!:SUBMENU%(A2.|
00000AA0: 32 AA 31 29 B2 41 35 AB 31 3A 8F 20 20 20 20 20 |2.1).A5.1:. |
00000AB0: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 20 | END |
00000AC0: 53 55 42 53 43 52 49 50 54 00 D2 26 B6 21 82 20 |SUBSCRIPT..&.!. |
00000AD0: 41 32 00 D8 26 C0 21 8E 00 DE 26 CA 21 3A 00 1C |A2..&.!...&.!:..|
00000AE0: 27 D4 21 8F 20 20 43 41 4C 4C 20 54 48 49 53 20 |'.!. CALL THIS |
00000AF0: 52 4F 55 54 49 4E 45 20 54 4F 20 41 43 54 49 56 |ROUTINE TO ACTIV|
00000B00: 41 54 45 20 54 48 45 20 4D 45 4E 55 3A 20 20 4F |ATE THE MENU: O|
00000B10: 4E 20 52 45 54 55 52 4E 2E 2E 2E 2E 00 5C 27 DE |N RETURN.....\'.|
00000B20: 21 8F 20 20 4D 32 25 20 49 53 20 54 48 45 20 4E |!. M2% IS THE N|
00000B30: 55 4D 42 45 52 20 4F 46 20 54 48 45 20 48 4F 52 |UMBER OF THE HOR|
00000B40: 49 5A 4F 4E 54 41 4C 20 4F 50 54 49 4F 4E 20 43 |IZONTAL OPTION C|
00000B50: 48 4F 53 45 4E 20 46 52 4F 4D 20 31 00 9A 27 E8 |HOSEN FROM 1..'.|
00000B60: 21 8F 20 20 4D 38 25 20 49 53 20 54 48 45 20 4E |!. M8% IS THE N|
00000B70: 55 4D 42 45 52 20 4F 46 20 54 48 45 20 56 45 52 |UMBER OF THE VER|
00000B80: 54 49 43 41 4C 20 4F 50 54 49 4F 4E 20 43 48 4F |TICAL OPTION CHO|
00000B90: 53 45 4E 20 46 52 4F 4D 20 31 00 C4 27 F2 21 8F |SEN FROM 1..'.!.|
00000BA0: 20 20 49 46 20 4D 25 3E 31 32 37 20 54 48 45 4E | IF M%>127 THEN|
00000BB0: 20 42 41 52 20 4F 4E 4C 59 20 49 53 20 50 52 49 | BAR ONLY IS PRI|
00000BC0: 4E 54 45 44 00 CA 27 FC 21 3A 00 13 28 06 22 4D |NTED..'.!:..(."M|
00000BD0: 30 25 B2 4D 45 4E 55 25 28 30 29 3A 4D 31 25 B2 |0%.MENU%(0):M1%.|
00000BE0: 4D 45 4E 55 25 28 31 29 3A 4D 32 25 B2 4D 45 4E |MENU%(1):M2%.MEN|
00000BF0: 55 25 28 32 29 3A 8F 20 20 20 20 20 20 20 20 20 |U%(2):. |
00000C00: 53 45 54 20 4C 4F 43 41 4C 20 56 41 52 49 41 42 |SET LOCAL VARIAB|
00000C10: 4C 45 53 00 44 28 10 22 4D 33 25 B2 4D 45 4E 55 |LES.D(."M3%.MENU|
00000C20: 25 28 33 29 3A 4D 34 25 B2 4D 45 4E 55 25 28 34 |%(3):M4%.MENU%(4|
00000C30: 29 3A 4D 35 25 B2 4D 45 4E 55 25 28 35 29 20 AF |):M5%.MENU%(5) .|
00000C40: 20 31 32 37 00 83 28 1A 22 8B 20 C2 28 32 31 35 | 127..(.". .(215|
00000C50: 29 B2 31 32 38 20 A7 20 4D 44 25 B2 37 39 3A D5 |).128 . MD%.79:.|
00000C60: 20 4D 44 25 B2 33 39 3A 8F 20 20 20 20 20 20 20 | MD%.39:. |
00000C70: 53 45 54 20 46 4F 52 20 53 43 52 45 45 4E 20 4D |SET FOR SCREEN M|
00000C80: 4F 44 45 00 CD 28 24 22 4D 36 25 B2 28 4D 44 25 |ODE..($"M6%.(MD%|
00000C90: AB 28 4D 33 25 AA C3 28 4D 45 4E 55 24 28 4D 35 |.(M3%..(MENU$(M5|
00000CA0: 25 29 29 29 29 AD 32 3A 8F 20 20 20 20 20 20 20 |%)))).2:. |
00000CB0: 20 20 20 20 20 20 20 43 41 4C 43 55 4C 41 54 45 | CALCULATE|
00000CC0: 20 54 41 42 20 50 4F 53 49 54 49 4F 4E 00 0A 29 | TAB POSITION..)|
00000CD0: 2E 22 8B 20 4D 36 25 B3 31 20 A7 20 99 3A 99 20 |.". M6%.1 . .:. |
00000CE0: 22 54 4F 4F 20 4D 41 4E 59 20 4F 50 54 49 4F 4E |"TOO MANY OPTION|
00000CF0: 53 20 49 4E 20 54 4F 50 20 4D 45 4E 55 20 54 4F |S IN TOP MENU TO|
00000D00: 20 46 4F 52 4D 41 54 22 3A 80 00 4A 29 38 22 4D | FORMAT":..J)8"M|
00000D10: 24 B2 C7 28 31 38 29 AA C8 28 4D 53 24 2C 4D 36 |$..(18)..(MS$,M6|
00000D20: 25 29 3A 8F 20 20 20 20 20 20 20 20 20 20 20 20 |%):. |
00000D30: 20 20 20 20 20 20 20 20 20 54 41 42 20 53 54 52 | TAB STR|
00000D40: 49 4E 47 20 49 4E 20 52 56 53 00 93 29 42 22 8B |ING IN RVS..)B".|
00000D50: 20 4D 30 25 B2 30 20 A7 20 4D 30 25 B2 4D 36 25 | M0%.0 . M0%.M6%|
00000D60: 3A 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |:. |
00000D70: 20 20 20 20 20 20 20 20 20 20 20 20 53 54 41 52 | STAR|
00000D80: 54 20 4F 50 54 49 4F 4E 20 43 4F 4F 52 44 49 4E |T OPTION COORDIN|
00000D90: 41 54 45 00 D1 29 4C 22 4D 45 25 B2 C2 28 32 32 |ATE..)L"ME%..(22|
00000DA0: 38 29 3A 4D 46 25 B2 C2 28 32 32 39 29 3A 4D 47 |8):MF%..(229):MG|
00000DB0: 25 B2 C2 28 32 33 30 29 3A 4D 48 25 B2 C2 28 32 |%..(230):MH%..(2|
00000DC0: 33 31 29 3A 8F 20 53 41 56 45 20 57 49 4E 44 4F |31):. SAVE WINDO|
00000DD0: 57 00 09 2A 56 22 99 20 C7 28 31 39 29 3B C7 28 |W..*V". .(19);.(|
00000DE0: 31 39 29 3B 3A 8F 20 20 20 20 20 20 20 20 20 20 |19);:. |
00000DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4C 45 | CLE|
00000E00: 41 52 20 57 49 4E 44 4F 57 00 48 2A 60 22 99 20 |AR WINDOW.H*`". |
00000E10: 4D 24 3B 3A 8F 20 20 20 20 20 20 20 20 20 20 20 |M$;:. |
00000E20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E30: 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4E 54 | PRINT|
00000E40: 20 4F 50 54 49 4F 4E 53 00 58 2A 6A 22 81 20 4D | OPTIONS.X*j". M|
00000E50: B2 30 20 A4 20 4D 35 25 00 83 2A 74 22 3A 99 20 |.0 . M5%..*t":. |
00000E60: C7 28 31 38 29 3B 3A 8B 20 4D B2 4D 32 25 20 AF |.(18);:. M.M2% .|
00000E70: 20 4D 25 B3 31 32 37 20 A7 20 99 20 C7 28 31 34 | M%.127 . . .(14|
00000E80: 36 29 3B 00 94 2A 7E 22 3A 99 20 4D 45 4E 55 24 |6);..*~":. MENU$|
00000E90: 28 4D 29 3B 00 9C 2A 88 22 82 20 4D 00 B1 2A 92 |(M);..*.". M..*.|
00000EA0: 22 99 20 4D 24 3B 22 20 22 3B C7 28 31 34 36 29 |". M$;" ";.(146)|
00000EB0: 3B 00 F0 2A 9C 22 8B 20 4D 25 20 B1 20 31 32 37 |;..*.". M% . 127|
00000EC0: 20 A7 20 8E 3A 8F 20 20 20 20 20 20 20 20 20 20 | . .:. |
00000ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 | PR|
00000EE0: 49 4E 54 20 4F 50 54 49 4F 4E 53 20 4F 4E 4C 59 |INT OPTIONS ONLY|
00000EF0: 00 F6 2A A6 22 EB 00 09 2B B0 22 3A A1 F9 20 4D |..*."...+.":.. M|
00000F00: 24 3A 4D B2 C6 28 4D 24 29 00 4B 2B BA 22 3A 8B |$:M..(M$).K+.":.|
00000F10: 20 4D B2 31 33 20 B0 20 4D B2 31 37 20 A7 20 8D | M.13 . M.17 . .|
00000F20: 20 39 30 39 30 3A 8F 20 20 20 20 20 20 20 20 20 | 9090:. |
00000F30: 20 20 20 20 20 20 43 52 20 4F 52 20 43 55 52 20 | CR OR CUR |
00000F40: 44 4F 57 4E 20 28 53 55 42 53 29 00 83 2B C4 22 |DOWN (SUBS)..+."|
00000F50: 3A 8B 20 4D B2 32 39 20 A7 20 FE 18 3A 8F 20 20 |:. M.29 . ..:. |
00000F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F70: 20 20 20 20 20 20 20 20 20 20 43 55 52 20 52 49 | CUR RI|
00000F80: 47 48 54 00 A0 2B CE 22 3A 20 E0 20 31 2C 4D 30 |GHT..+.": . 1,M0|
00000F90: 25 2C 30 2C 4D 45 4E 55 24 28 4D 32 25 29 2C 31 |%,0,MENU$(M2%),1|
00000FA0: 00 E0 2B D8 22 3A 20 4D 30 25 B2 4D 30 25 AA C3 |..+.": M0%.M0%..|
00000FB0: 28 4D 45 4E 55 24 28 4D 32 25 29 29 3A 4D 32 25 |(MENU$(M2%)):M2%|
00000FC0: B2 4D 32 25 AA 31 3A 8B 20 4D 32 25 B1 4D 35 25 |.M2%.1:. M2%.M5%|
00000FD0: 20 A7 20 4D 32 25 B2 30 3A 4D 30 25 B2 4D 36 25 | . M2%.0:M0%.M6%|
00000FE0: 00 FB 2B E2 22 3A 20 E0 20 31 2C 4D 30 25 2C 30 |..+.": . 1,M0%,0|
00000FF0: 2C 4D 45 4E 55 24 28 4D 32 25 29 00 03 2C EC 22 |,MENU$(M2%)..,."|
00001000: 3A FE 19 00 3A 2C F6 22 3A 8B 20 4D B2 31 35 37 |:...:,.":. M.157|
00001010: 20 A7 20 FE 18 3A 8F 20 20 20 20 20 20 20 20 20 | . ..:. |
00001020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001030: 20 20 43 55 52 20 4C 45 46 54 00 57 2C 00 23 3A | CUR LEFT.W,.#:|
00001040: 20 E0 20 31 2C 4D 30 25 2C 30 2C 4D 45 4E 55 24 | . 1,M0%,0,MENU$|
00001050: 28 4D 32 25 29 2C 31 00 67 2C 0A 23 3A 20 4D 32 |(M2%),1.g,.#: M2|
00001060: 25 B2 4D 32 25 AB 31 00 A3 2C 14 23 3A 20 8B 20 |%.M2%.1..,.#: . |
00001070: 4D 32 25 B3 30 20 A7 20 4D 32 25 B2 4D 35 25 3A |M2%.0 . M2%.M5%:|
00001080: 4D 30 25 B2 4D 33 25 AA 4D 36 25 3A D5 20 4D 30 |M0%.M3%.M6%:. M0|
00001090: 25 B2 4D 30 25 AB C3 28 4D 45 4E 55 24 28 4D 32 |%.M0%..(MENU$(M2|
000010A0: 25 29 29 00 BE 2C 1E 23 3A 20 E0 20 31 2C 4D 30 |%))..,.#: . 1,M0|
000010B0: 25 2C 30 2C 4D 45 4E 55 24 28 4D 32 25 29 00 C6 |%,0,MENU$(M2%)..|
000010C0: 2C 28 23 3A FE 19 00 03 2D 32 23 EC 20 FC 20 4D |,(#:....-2#. . M|
000010D0: B2 30 20 B0 20 4D B2 32 37 20 B0 20 4D B2 32 35 |.0 . M.27 . M.25|
000010E0: 35 3A 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 |5:. |
000010F0: 20 20 20 32 35 35 20 49 53 20 45 58 49 54 20 43 | 255 IS EXIT C|
00001100: 4F 44 45 00 1E 2D 3C 23 E0 20 31 2C 4D 30 25 2C |ODE..-<#. 1,M0%,|
00001110: 30 2C 4D 45 4E 55 24 28 4D 32 25 29 2C 31 00 62 |0,MENU$(M2%),1.b|
00001120: 2D 46 23 4D 45 4E 55 25 28 30 29 B2 4D 30 25 3A |-F#MENU%(0).M0%:|
00001130: 4D 45 4E 55 25 28 32 29 B2 4D 32 25 3A 4D 32 25 |MENU%(2).M2%:M2%|
00001140: B2 4D 32 25 AA 31 3A 8F 20 20 20 20 20 20 20 20 |.M2%.1:. |
00001150: 20 20 20 20 45 58 49 54 20 56 41 52 49 41 42 4C | EXIT VARIABL|
00001160: 45 53 00 9E 2D 50 23 97 20 32 32 38 2C 4D 45 25 |ES..-P#. 228,ME%|
00001170: 3A 97 20 32 32 39 2C 4D 46 25 3A 97 20 32 33 30 |:. 229,MF%:. 230|
00001180: 2C 4D 47 25 3A 97 20 32 33 31 2C 4D 48 25 3A 8F |,MG%:. 231,MH%:.|
00001190: 20 20 52 45 4E 45 57 20 57 49 4E 44 4F 57 00 A4 | RENEW WINDOW..|
000011A0: 2D 5A 23 8E 00 AA 2D 64 23 3A 00 D4 2D 6E 23 8F |-Z#...-d#:..-n#.|
000011B0: 20 20 50 55 54 20 56 45 52 54 49 43 41 4C 20 4F | PUT VERTICAL O|
000011C0: 50 54 49 4F 4E 53 20 4F 4E 54 4F 20 42 41 52 20 |PTIONS ONTO BAR |
000011D0: 4D 45 4E 55 00 DA 2D 78 23 3A 00 23 2E 82 23 4D |MENU..-x#:.#..#M|
000011E0: 41 25 B2 30 3A 4D 42 25 B2 28 4D 32 25 AB 4D 34 |A%.0:MB%.(M2%.M4|
000011F0: 25 29 AC 32 3A 4D 43 25 B2 4D 30 25 3A 8F 20 20 |%).2:MC%.M0%:. |
00001200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001210: 53 45 54 20 4C 4F 43 41 4C 20 56 41 52 49 41 42 |SET LOCAL VARIAB|
00001220: 4C 45 53 00 61 2E 8C 23 9E 20 D1 28 22 30 43 30 |LES.a..#. .("0C0|
00001230: 33 22 29 2C 33 AA 53 55 42 4D 45 4E 55 25 28 4D |3"),3.SUBMENU%(M|
00001240: 42 25 AA 31 29 AB 53 55 42 4D 45 4E 55 25 28 4D |B%.1).SUBMENU%(M|
00001250: 42 25 29 3A 8F 20 53 41 56 45 20 53 43 52 45 45 |B%):. SAVE SCREE|
00001260: 4E 00 95 2E 96 23 8B 20 C3 28 53 55 42 4D 45 4E |N....#. .(SUBMEN|
00001270: 55 24 28 53 55 42 4D 45 4E 55 25 28 4D 42 25 29 |U$(SUBMENU%(MB%)|
00001280: 29 29 AA 33 AA 4D 30 25 20 B1 20 4D 44 25 AB 31 |)).3.M0% . MD%.1|
00001290: 20 A7 20 FE 18 00 E0 2E A0 23 3A 4D 43 25 B2 4D | . ......#:MC%.M|
000012A0: 44 25 AB 28 C3 28 53 55 42 4D 45 4E 55 24 28 53 |D%.(.(SUBMENU$(S|
000012B0: 55 42 4D 45 4E 55 25 28 4D 42 25 29 29 29 AA 33 |UBMENU%(MB%))).3|
000012C0: 29 3A 8F 20 20 20 20 20 20 41 44 4A 55 53 54 20 |):. ADJUST |
000012D0: 53 55 42 4D 45 4E 55 20 50 52 49 4E 54 49 4E 47 |SUBMENU PRINTING|
000012E0: 00 E7 2E AA 23 FE 19 00 2F 2F B4 23 81 20 4D B2 |....#...//.#. M.|
000012F0: 53 55 42 4D 45 4E 55 25 28 4D 42 25 29 20 A4 20 |SUBMENU%(MB%) . |
00001300: 53 55 42 4D 45 4E 55 25 28 4D 42 25 AA 31 29 3A |SUBMENU%(MB%.1):|
00001310: 8F 20 20 20 20 20 20 20 20 20 41 4E 44 20 50 52 |. AND PR|
00001320: 49 4E 54 20 53 55 42 20 4F 50 54 49 4F 4E 53 00 |INT SUB OPTIONS.|
00001330: 64 2F BE 23 3A 4D 41 25 B2 4D 41 25 AA 31 3A E0 |d/.#:MA%.MA%.1:.|
00001340: 20 31 2C 4D 43 25 2C 4D 31 25 AA 4D 41 25 2C 22 | 1,MC%,M1%.MA%,"|
00001350: DD 22 AA 53 55 42 4D 45 4E 55 24 28 4D 29 AA 22 |.".SUBMENU$(M)."|
00001360: DD 22 2C 31 00 6C 2F C8 23 82 20 4D 00 A4 2F D2 |.",1.l/.#. M../.|
00001370: 23 E0 20 31 2C 4D 43 25 2C 4D 31 25 AA 4D 41 25 |#. 1,MC%,M1%.MA%|
00001380: AA 31 2C 22 AD 22 AA C8 28 4D 4C 24 2C C3 28 53 |.1,"."..(ML$,.(S|
00001390: 55 42 4D 45 4E 55 24 28 4D AB 31 29 29 29 AA 22 |UBMENU$(M.1)))."|
000013A0: BD 22 2C 31 00 E8 2F DC 23 4D 37 25 B2 53 55 42 |.",1../.#M7%.SUB|
000013B0: 4D 45 4E 55 25 28 4D 42 25 AA 31 29 AB 53 55 42 |MENU%(MB%.1).SUB|
000013C0: 4D 45 4E 55 25 28 4D 42 25 29 3A 4D 38 25 B2 30 |MENU%(MB%):M8%.0|
000013D0: 3A 4D 39 25 B2 30 3A 4D 41 25 B2 53 55 42 4D 45 |:M9%.0:MA%.SUBME|
000013E0: 4E 55 25 28 4D 42 25 29 00 00 30 E6 23 E0 20 31 |NU%(MB%)..0.#. 1|
000013F0: 2C 4D 43 25 AA 31 2C 4D 31 25 AA 4D 38 25 AA 31 |,MC%.1,M1%.M8%.1|
00001400: 00 2F 30 F0 23 8B 20 4D 37 25 B2 30 20 A7 20 99 |./0.#. M7%.0 . .|
00001410: 20 C7 28 31 38 29 3B 53 55 42 4D 45 4E 55 24 28 | .(18);SUBMENU$(|
00001420: 4D 41 25 AA 4D 38 25 29 3B C7 28 31 34 36 29 00 |MA%.M8%);.(146).|
00001430: 51 30 FA 23 8B 20 4D 37 25 B1 30 20 A7 20 99 20 |Q0.#. M7%.0 . . |
00001440: 53 55 42 4D 45 4E 55 24 28 4D 41 25 AA 4D 38 25 |SUBMENU$(MA%.M8%|
00001450: 29 00 57 30 04 24 EB 00 6A 30 0E 24 3A A1 F9 20 |).W0.$..j0.$:.. |
00001460: 4D 24 3A 4D B2 C6 28 4D 24 29 00 AB 30 18 24 3A |M$:M..(M$)..0.$:|
00001470: 8B 20 4D 32 25 AB 4D 34 25 B2 4D 35 25 20 AF 20 |. M2%.M4%.M5% . |
00001480: 4D 45 4E 55 25 28 35 29 B1 31 32 37 20 A7 20 FE |MENU%(5).127 . .|
00001490: 18 3A 8F 20 20 20 20 45 58 49 54 20 57 49 54 48 |.:. EXIT WITH|
000014A0: 20 27 59 27 20 4F 52 20 27 4E 27 00 E8 30 22 24 | 'Y' OR 'N'..0"$|
000014B0: 3A 20 EB 20 FC 20 28 4D 20 AF 20 31 32 37 29 B2 |: . . (M . 127).|
000014C0: 37 38 20 B0 20 28 4D 20 AF 20 31 32 37 29 B2 38 |78 . (M . 127).8|
000014D0: 39 3A 8F 20 20 20 20 44 45 50 45 4E 44 49 4E 47 |9:. DEPENDING|
000014E0: 20 4F 4E 20 46 4C 41 47 00 FD 30 2C 24 3A 20 20 | ON FLAG..0,$: |
000014F0: A1 F9 20 4D 24 3A 4D B2 C6 28 4D 24 29 00 05 31 |.. M$:M..(M$)..1|
00001500: 36 24 3A 20 EC 00 29 31 40 24 3A 20 8B 20 28 4D |6$: ..)1@$: . (M|
00001510: 20 AF 20 31 32 37 29 B2 37 38 20 A7 20 4D B2 32 | . 127).78 . M.2|
00001520: 37 3A D5 20 4D B2 32 35 35 00 31 31 4A 24 3A FE |7:. M.255.11J$:.|
00001530: 19 00 68 31 54 24 3A 8B 20 4D B2 31 37 20 A7 20 |..h1T$:. M.17 . |
00001540: FE 18 3A 8F 20 20 20 20 20 20 20 20 20 20 20 20 |..:. |
00001550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001560: 43 55 52 20 44 4F 57 4E 00 8A 31 5E 24 3A 20 4D |CUR DOWN..1^$: M|
00001570: 38 25 B2 4D 38 25 AA 31 3A 8B 20 4D 38 25 B1 4D |8%.M8%.1:. M8%.M|
00001580: 37 25 20 A7 20 4D 38 25 B2 30 00 92 31 68 24 3A |7% . M8%.0..1h$:|
00001590: FE 19 00 C7 31 72 24 3A 8B 20 4D B2 31 34 35 20 |....1r$:. M.145 |
000015A0: A7 20 FE 18 3A 8F 20 20 20 20 20 20 20 20 20 20 |. ..:. |
000015B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000015C0: 20 43 55 52 20 55 50 00 E9 31 7C 24 3A 20 4D 38 | CUR UP..1|$: M8|
000015D0: 25 B2 4D 38 25 AB 31 3A 8B 20 4D 38 25 B3 30 20 |%.M8%.1:. M8%.0 |
000015E0: A7 20 4D 38 25 B2 4D 37 25 00 F1 31 86 24 3A FE |. M8%.M7%..1.$:.|
000015F0: 19 00 32 32 90 24 3A E0 20 31 2C 4D 43 25 AA 31 |..22.$:. 1,MC%.1|
00001600: 2C 4D 31 25 AA 4D 39 25 AA 31 2C 53 55 42 4D 45 |,M1%.M9%.1,SUBME|
00001610: 4E 55 24 28 4D 41 25 AA 4D 39 25 29 2C 31 3A 8F |NU$(MA%.M9%),1:.|
00001620: 20 20 20 20 52 45 50 52 49 4E 54 20 4F 50 54 49 | REPRINT OPTI|
00001630: 4F 4E 00 5D 32 9A 24 3A E0 20 31 2C 4D 43 25 AA |ON.]2.$:. 1,MC%.|
00001640: 31 2C 4D 31 25 AA 4D 38 25 AA 31 2C 53 55 42 4D |1,M1%.M8%.1,SUBM|
00001650: 45 4E 55 24 28 4D 41 25 AA 4D 38 25 29 00 6A 32 |ENU$(MA%.M8%).j2|
00001660: A4 24 3A 4D 39 25 B2 4D 38 25 00 95 32 AE 24 EC |.$:M9%.M8%..2.$.|
00001670: 20 FC 20 4D B2 31 33 20 B0 20 4D B2 32 39 20 B0 | . M.13 . M.29 .|
00001680: 20 4D B2 31 35 37 20 B0 20 4D B2 32 37 20 B0 20 | M.157 . M.27 . |
00001690: 4D B2 32 35 35 00 B0 32 B8 24 8B 20 4D B2 31 33 |M.255..2.$. M.13|
000016A0: 20 A7 20 4D 38 25 B2 4D 38 25 AA 31 3A 4D B2 30 | . M8%.M8%.1:M.0|
000016B0: 00 C1 32 C2 24 8B 20 4D B2 32 37 20 A7 20 4D B2 |..2.$. M.27 . M.|
000016C0: 31 00 D1 32 CC 24 9E 20 D1 28 22 30 43 30 36 22 |1..2.$. .("0C06"|
000016D0: 29 00 D7 32 D6 24 8E 00 DD 32 E0 24 3A 00 FF 32 |)..2.$...2.$:..2|
000016E0: EA 24 8F 20 20 20 44 41 54 41 20 46 4F 52 20 54 |.$. DATA FOR T|
000016F0: 48 45 20 4D 45 4E 55 20 4F 50 54 49 4F 4E 53 00 |HE MENU OPTIONS.|
00001700: 11 33 F4 24 8F 20 20 20 54 4F 50 20 4D 45 4E 55 |.3.$. TOP MENU|
00001710: 3A 00 42 33 FE 24 8F 20 20 20 20 20 20 20 20 20 |:.B3.$. |
00001720: 31 3A 20 20 20 4E 55 4D 42 45 52 20 4F 46 20 4F |1: NUMBER OF O|
00001730: 50 54 49 4F 4E 53 20 4F 4E 20 54 4F 50 20 4D 45 |PTIONS ON TOP ME|
00001740: 4E 55 00 8F 33 08 25 8F 20 20 20 20 20 20 20 20 |NU..3.%. |
00001750: 20 32 3A 20 20 20 49 53 20 4C 41 53 54 20 4F 50 | 2: IS LAST OP|
00001760: 54 49 4F 4E 20 41 4E 20 49 4E 53 54 52 55 43 54 |TION AN INSTRUCT|
00001770: 49 4F 4E 20 57 48 49 43 48 20 52 45 51 55 49 52 |ION WHICH REQUIR|
00001780: 45 53 20 41 20 27 59 27 20 4F 52 20 27 4E 27 00 |ES A 'Y' OR 'N'.|
00001790: C1 33 12 25 8F 20 20 20 20 20 20 20 20 20 20 20 |.3.%. |
000017A0: 20 20 20 4B 45 59 20 50 52 45 53 53 20 28 2D 31 | KEY PRESS (-1|
000017B0: 20 49 46 20 59 45 53 2C 20 30 20 49 46 20 4E 4F | IF YES, 0 IF NO|
000017C0: 29 00 E1 33 1C 25 8F 20 20 20 20 20 20 20 20 20 |)..3.%. |
000017D0: 33 3A 20 20 20 4F 50 54 49 4F 4E 53 20 4C 49 53 |3: OPTIONS LIS|
000017E0: 54 00 E7 33 26 25 8F 00 F9 33 30 25 8F 20 20 20 |T..3&%...30%. |
000017F0: 53 55 42 20 4D 45 4E 55 3A 00 2C 34 3A 25 8F 20 |SUB MENU:.,4:%. |
00001800: 20 20 20 20 20 20 20 20 31 3A 20 20 20 54 4F 54 | 1: TOT|
00001810: 41 4C 20 4E 55 4D 42 45 52 20 4F 46 20 53 55 42 |AL NUMBER OF SUB|
00001820: 4D 45 4E 55 20 4F 50 54 49 4F 4E 53 00 5C 34 44 |MENU OPTIONS.\4D|
00001830: 25 8F 20 20 20 20 20 20 20 20 20 32 3A 20 20 20 |%. 2: |
00001840: 4E 55 4D 42 45 52 20 4F 46 20 4F 50 54 49 4F 4E |NUMBER OF OPTION|
00001850: 53 20 49 4E 20 53 55 42 4D 45 4E 55 00 84 34 4E |S IN SUBMENU..4N|
00001860: 25 8F 20 20 20 20 20 20 20 20 20 33 3A 20 20 20 |%. 3: |
00001870: 53 55 42 4D 45 4E 55 20 4F 50 54 49 4F 4E 53 20 |SUBMENU OPTIONS |
00001880: 4C 49 53 54 00 8A 34 58 25 8F 00 D1 34 62 25 8F |LIST..4X%...4b%.|
00001890: 20 20 21 21 21 20 4E 4F 54 45 20 2E 2E 20 4E 55 | !!! NOTE .. NU|
000018A0: 4D 42 45 52 20 4F 46 20 53 55 42 4D 45 4E 55 53 |MBER OF SUBMENUS|
000018B0: 20 4D 55 53 54 20 42 45 20 54 48 45 20 53 41 4D | MUST BE THE SAM|
000018C0: 45 20 41 53 20 54 4F 50 20 4D 45 4E 55 20 21 21 |E AS TOP MENU !!|
000018D0: 21 00 D7 34 6C 25 8F 00 DD 34 76 25 3A 00 1D 35 |!..4l%...4v%:..5|
000018E0: 80 25 83 20 35 3A 8F 20 20 20 20 20 20 20 20 20 |.%. 5:. |
000018F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001900: 4E 55 4D 42 45 52 20 4F 46 20 45 4E 54 52 49 45 |NUMBER OF ENTRIE|
00001910: 53 20 4F 4E 20 54 4F 50 20 4D 45 4E 55 00 5D 35 |S ON TOP MENU.]5|
00001920: 8A 25 83 20 2D 31 3A 8F 20 20 20 20 20 20 20 20 |.%. -1:. |
00001930: 49 46 20 4C 41 53 54 20 4F 50 54 49 4F 4E 20 49 |IF LAST OPTION I|
00001940: 53 20 45 58 49 54 2F 45 4E 44 2F 45 54 43 20 54 |S EXIT/END/ETC T|
00001950: 48 45 4E 20 2D 31 20 45 4C 53 45 20 30 00 69 35 |HEN -1 ELSE 0.i5|
00001960: 94 25 83 20 22 CE 45 57 22 00 7B 35 9E 25 83 20 |.%. ".EW".{5.%. |
00001970: 22 C3 48 41 52 41 43 54 45 52 22 00 88 35 A8 25 |".HARACTER"..5.%|
00001980: 83 20 22 C4 49 53 4B 22 00 97 35 B2 25 83 20 22 |. ".ISK"..5.%. "|
00001990: CF 55 54 50 55 54 22 00 A4 35 BC 25 83 20 22 C5 |.UTPUT"..5.%. ".|
000019A0: 58 49 54 22 00 AA 35 C6 25 3A 00 C4 35 D0 25 8F |XIT"..5.%:..5.%.|
000019B0: 20 20 56 45 52 54 49 43 41 4C 20 4D 45 4E 55 20 | VERTICAL MENU |
000019C0: 42 41 52 53 00 CA 35 DA 25 3A 00 03 36 E4 25 83 |BARS..5.%:..6.%.|
000019D0: 20 32 32 3A 8F 20 20 20 20 20 20 20 20 20 20 20 | 22:. |
000019E0: 20 20 20 20 20 20 20 20 54 4F 54 41 4C 20 4E 55 | TOTAL NU|
000019F0: 4D 42 45 52 20 4F 46 20 53 55 42 20 4F 50 54 49 |MBER OF SUB OPTI|
00001A00: 4F 4E 53 00 09 36 EE 25 3A 00 49 36 F8 25 83 20 |ONS..6.%:.I6.%. |
00001A10: 34 3A 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 |4:. |
00001A20: 20 20 20 20 20 20 20 4E 55 4D 42 45 52 20 4F 46 | NUMBER OF|
00001A30: 20 4F 50 54 49 4F 4E 53 20 49 4E 20 45 41 43 48 | OPTIONS IN EACH|
00001A40: 20 53 55 42 20 4D 45 4E 55 00 63 36 02 26 83 20 | SUB MENU.c6.&. |
00001A50: 22 D5 50 50 20 43 41 53 45 20 54 45 4D 50 4C 41 |".PP CASE TEMPLA|
00001A60: 54 45 22 00 7D 36 0C 26 83 20 22 CC 57 52 20 43 |TE".}6.&. ".WR C|
00001A70: 41 53 45 20 54 45 4D 50 4C 41 54 45 22 00 93 36 |ASE TEMPLATE"..6|
00001A80: 16 26 83 20 22 CC 4F 41 44 20 54 45 4D 50 4C 41 |.&. ".OAD TEMPLA|
00001A90: 54 45 22 00 AA 36 20 26 83 20 22 C5 4D 50 54 59 |TE"..6 &. ".MPTY|
00001AA0: 20 54 45 4D 50 4C 41 54 45 22 00 B0 36 2A 26 3A | TEMPLATE"..6*&:|
00001AB0: 00 B8 36 34 26 83 20 37 00 C8 36 3E 26 83 20 22 |..64&. 7..6>&. "|
00001AC0: D2 CF CD 20 D3 45 54 22 00 D8 36 48 26 83 20 22 |... .ET"..6H&. "|
00001AD0: D2 45 53 54 4F 52 45 22 00 E6 36 52 26 83 20 22 |.ESTORE"..6R&. "|
00001AE0: C3 4C 45 41 52 22 00 F3 36 5C 26 83 20 22 C6 49 |.LEAR"..6\&. ".I|
00001AF0: 4C 4C 22 00 00 37 66 26 83 20 22 D3 57 4F 50 22 |LL"..7f&. ".WOP"|
00001B00: 00 12 37 70 26 83 20 22 C3 4F 50 59 20 46 52 4F |..7p&. ".OPY FRO|
00001B10: 4D 22 00 22 37 7A 26 83 20 22 C3 4F 50 59 20 54 |M"."7z&. ".OPY T|
00001B20: 4F 22 00 28 37 84 26 3A 00 30 37 8E 26 83 20 35 |O".(7.&:.07.&. 5|
00001B30: 00 44 37 98 26 83 20 22 C4 49 53 4B 20 C4 45 56 |.D7.&. ".ISK .EV|
00001B40: 49 43 45 22 00 57 37 A2 26 83 20 22 C4 49 53 4B |ICE".W7.&. ".ISK|
00001B50: 20 C4 52 49 56 45 22 00 69 37 AC 26 83 20 22 C4 | .RIVE".i7.&. ".|
00001B60: 49 52 45 43 54 4F 52 59 22 00 78 37 B6 26 83 20 |IRECTORY".x7.&. |
00001B70: 22 C5 52 52 4F 52 53 22 00 87 37 C0 26 83 20 22 |".RRORS"..7.&. "|
00001B80: C4 45 4C 45 54 45 22 00 8D 37 CA 26 3A 00 95 37 |.ELETE"..7.&:..7|
00001B90: D4 26 83 20 35 00 AC 37 DE 26 83 20 22 D0 52 49 |.&. 5..7.&. ".RI|
00001BA0: 4E 54 45 52 20 C4 45 56 49 43 45 22 00 C9 37 E8 |NTER .EVICE"..7.|
00001BB0: 26 83 20 22 C3 48 41 52 20 C4 41 54 41 20 54 4F |&. ".HAR .ATA TO|
00001BC0: 20 D0 52 49 4E 54 45 52 22 00 E4 37 F2 26 83 20 | .RINTER"..7.&. |
00001BD0: 22 D3 45 54 20 C4 41 54 41 20 54 4F 20 D3 43 52 |".ET .ATA TO .CR|
00001BE0: 45 45 4E 22 00 00 38 FC 26 83 20 22 D3 45 54 20 |EEN"..8.&. ".ET |
00001BF0: C4 41 54 41 20 54 4F 20 D0 52 49 4E 54 45 52 22 |.ATA TO .RINTER"|
00001C00: 00 19 38 06 27 83 20 22 D3 45 54 20 C4 41 54 41 |..8.'. ".ET .ATA|
00001C10: 20 54 4F 20 C4 49 53 4B 22 00 1F 38 10 27 3A 00 | TO .ISK"..8.':.|
00001C20: 27 38 1A 27 83 20 31 00 44 38 24 27 83 20 22 C1 |'8.'. 1.D8$'. ".|
00001C30: 52 45 20 59 4F 55 20 53 55 52 45 20 3F 20 28 59 |RE YOU SURE ? (Y|
00001C40: 2F 4E 29 22 00 4A 38 2E 27 3A 00 50 38 38 27 80 |/N)".J8.':.P88'.|
00001C50: 00 00 00 |... |
..A.@.. MENU CREATION ROUTINES FOR
CBM 128 (40 OR 80 COLUMN).L.J.. N.P
. GREGORY AUGUST 1988.R.T.....^..
. "MENU MAKER.MC"...H.. G(14):. B(Q("D7"
)).127 . .%...R...15...|.. 8220:.
INITIALISE...... 8
710:. DO MEN
U.......%...:.+.....L.... MENU IN
ITIALISATION...... THIS ROUTINE M
UST BE CALLED AT THE BEGINING OF THE PRO
GRAM SO.J.B.. THAT THE MENU VARIA
BLES CAN BE SET UP.P.L.....V.. IF
A COMPILER IS TO BE USED NOTE THAT ARRA
YS MAY HAVE TO BE.C.... DIMENTION
ED AT THE BEGINING OF A PROGRAM AND THAT
THE NUMBER...... OF SUBSCRIPTS M
AY HAVE TO BE ABSOLUTE AND NOT VARIABLES
...... A AND A1 HOLD THE ABSOUTE
VALUES FOR THE DIMENTIONS AFTER THIS....
.. ROUTINE IS RUN.].. . AL
L VARIABLES BEGINING WITH 'A' ARE NOT US
ED AFTER THIS ROUTINE.C.. ..I.. :.... MS
$." ":.
SPACE FOR MENU BAR (33)...& ML$.".......
..........................":. LINE FOR M
ENU (33):CHR$(192).< 0 A.0:A1.0:A2.0:A3.
0:A4.0:A5.0:. ZERO LOCAL VARIA
BLES.V : .:.
RESET DATA POINTER.. D . A:.
NUMBER OF TOP M
ENU OPTIONS.. N . A5:.
EXIT/END FLAG.. X A.A.1.=!
B . MENU$(A),MENU%(5):.
OPEN TOP MENU ARRAYS.L!L . A1.0 . A..!V
:. MENU$(A1):. A
ND FILL WITH TOP MENU OPTIONS..!. :MENU$
(A1)." ".MENU$(A1)." "..!. :A2.A2.C(MENU
$(A1)):. ADD UP OPTION
STRING LENGTHS..". . A1.D". . A1.0 . 5:.
ZERO NUMERIC A
RRAY.U". :MENU%(A1).0.^". . A1..". MENU%
(3).A2.C(MENU$(A)):. TOTAL
LENGTH MINUS ONE OPTION.."F MENU%(5).A:.
TOTAL NUMBE
R OF OPTIONS.##P . A5 . MENU%(5).A.128:.
SET EXIT FLAG.)#Z ..R#. .
INITIALISE SUB MENU OPTIONS.X#. .
..#. . A1:.
READ TOTAL SUB MENU OPTIONS..#.!A1.A1
.1..#.!A5.0..#.!. SUBMENU$(A1),SUBMENU%(
A.2.1):. OPEN SUBMENU OPTIONS ARRA
Y.A$ !. A2.0 . A:.
AND FILL WITH SUBMENU OPTIONS..$*!:A
6.0:. Z
ERO LENGTH POINTER.H$4!:. A3:.
NUMBER IN CURRENT S
UBOPTION..%>!:SUBMENU%(A2.2).A5:.
START SUBSCRIPT OF SUBMENU
.#%H!:. A4.0 . A3.1.B%R!: . SUBMENU$(A5.
A4):. READ SUBMENU OPTIO
NS..%\!: . C(SUBMENU$(A5.A4)).A6 . A6.C(
SUBMENU$(A5.A4))..%F!:. A4..%P!:. A4.0 .
A3.1:. ADJUST OPTI
ON STRING LENGTHS..&Z!: . C(SUBMENU$(A5)
).A6 . ...D&.!: SUBMENU$(A5).SUBMENU$(A
5).H(MS$,A6.C(SUBMENU$(A5))).M&.!: ....&
.!: A5.A5.1:.
UPDATE A5..&.!:. A4.I&.!:SUBMENU%(A2.
2.1).A5.1:. END SUBSCRIP
T.R&.!. A2.X&.!...&J!:..'T!. CALL THIS
ROUTINE TO ACTIVATE THE MENU: ON RETURN
.....\'.!. M2% IS THE NUMBER OF THE HOR
IZONTAL OPTION CHOSEN FROM 1..'.!. M8%
IS THE NUMBER OF THE VERTICAL OPTION CHO
SEN FROM 1.D'.!. IF M%>127 THEN BAR ONL
Y IS PRINTED.J'.!:..(."M0%.MENU%(0):M1%.
MENU%(1):M2%.MENU%(2):. SET LOCA
L VARIABLES.D(."M3%.MENU%(3):M4%.MENU%(4
):M5%.MENU%(5) . 127..(.". B(215).128 .
MD%.79:U MD%.39:. SET FOR SCREEN M
ODE.M($"M6%.(MD%.(M3%.C(MENU$(M5%)))).2:
. CALCULATE TAB POSITION..)
.". M6%.1 . .:. "TOO MANY OPTIONS IN TOP
MENU TO FORMAT":..J)8"M$.G(18).H(MS$,M6
%):. TAB STRING IN R
VS..)B". M0%.0 . M0%.M6%:.
START OPTION COORDINATE.Q)L"
ME%.B(228):MF%.B(229):MG%.B(230):MH%.B(2
31):. SAVE WINDOW..*V". G(19);G(19);:.
CLEAR WINDOW.H*`".
M$;:.
PRINT OPTIONS.X*J". M.0 . M5%..*T":.
G(18);:. M.M2% . M%.127 . . G(146);..*~"
:. MENU$(M);..*.". M..*.". M$;" ";G(146)
;..*.". M% . 127 . .:.
PRINT OPTIONS ONLY..*."...+.":.. M
$:M.F(M$).K+.":. M.13 . M.17 . . 9090:.
CR OR CUR DOWN (SUBS)..+D"
:. M.29 . ..:.
CUR RIGHT. +N": . 1,M0%,0,MENU$(M2%),1
..+X": M0%.M0%.C(MENU$(M2%)):M2%.M2%.1:.
M2%.M5% . M2%.0:M0%.M6%..+.": . 1,M0%,0
,MENU$(M2%)..,.":...:,.":. M.157 . ..:.
CUR LEFT.W,.#:
. 1,M0%,0,MENU$(M2%),1.G,.#: M2%.M2%.1.
.,.#: . M2%.0 . M2%.M5%:M0%.M3%.M6%:U M0
%.M0%.C(MENU$(M2%))..,.#: . 1,M0%,0,MENU
$(M2%).F,(#:....-2#. . M.0 . M.27 . M.25
5:. 255 IS EXIT CODE..-<#
. 1,M0%,0,MENU$(M2%),1.B-F#MENU%(0).M0%:
MENU%(2).M2%:M2%.M2%.1:. EXIT
VARIABLES..-P#. 228,ME%:. 229,MF%:. 230
,MG%:. 231,MH%:. RENEW WINDOW..-Z#...-D
#:.T-N#. PUT VERTICAL OPTIONS ONTO BAR
MENU.Z-X#:.#..#MA%.0:MB%.(M2%.M4%).2:MC%
.M0%:. SET LOCAL VARIAB
LES.A..#. Q("0C03"),3.SUBMENU%(MB%.1).SU
BMENU%(MB%):. SAVE SCREEN....#. C(SUBMEN
U$(SUBMENU%(MB%))).3.M0% . MD%.1 . .....
#:MC%.MD%.(C(SUBMENU$(SUBMENU%(MB%))).3
):. ADJUST SUBMENU PRINTING....#...
//.#. M.SUBMENU%(MB%) . SUBMENU%(MB%.1):
. AND PRINT SUB OPTIONS.D/.#:MA%
.MA%.1:. 1,MC%,M1%.MA%,".".SUBMENU$(M)."
.",1.L/H#. M../R#. 1,MC%,M1%.MA%.1,".".H
(ML$,C(SUBMENU$(M.1))).".",1../.#M7%.SUB
MENU%(MB%.1).SUBMENU%(MB%):M8%.0:M9%.0:M
A%.SUBMENU%(MB%)..0.#. 1,MC%.1,M1%.M8%.1
./0.#. M7%.0 . . G(18);SUBMENU$(MA%.M8%)
;G(146).Q0.#. M7%.0 . . SUBMENU$(MA%.M8%
).W0.$..J0.$:.. M$:M.F(M$)..0.$:. M2%.M4
%.M5% . MENU%(5).127 . ..:. EXIT WITH
'Y' OR 'N'..0"$: . . (M . 127).78 . (M
. 127).89:. DEPENDING ON FLAG..0,$:
.. M$:M.F(M$)..16$: ..)1@$: . (M . 127).
78 . M.27:U M.255.11J$:...H1T$:. M.17 .
..:. CUR DOWN
..1^$: M8%.M8%.1:. M8%.M7% . M8%.0..1H$:
...G1R$:. M.145 . ..:.
CUR UP..1|$: M8%.M8%.1:. M8%.0
. M8%.M7%..1.$:...22.$:. 1,MC%.1,M1%.M9%
.1,SUBMENU$(MA%.M9%),1:. REPRINT OPTI
ON.]2.$:. 1,MC%.1,M1%.M8%.1,SUBMENU$(MA%
.M8%).J2.$:M9%.M8%..2.$. . M.13 . M.29 .
M.157 . M.27 . M.255..2.$. M.13 . M8%.M
8%.1:M.0.A2B$. M.27 . M.1.Q2L$. Q("0C06"
).W2V$...2.$:..2.$. DATA FOR THE MENU
OPTIONS..3.$. TOP MENU:.B3.$.
1: NUMBER OF OPTIONS ON TOP MENU..3.%.
2: IS LAST OPTION AN INSTRUCT
ION WHICH REQUIRES A 'Y' OR 'N'.A3.%.
KEY PRESS (-1 IF YES, 0 IF NO
)..3.%. 3: OPTIONS LIST..3&%..
.30%. SUB MENU:.,4:%. 1: TOT
AL NUMBER OF SUBMENU OPTIONS.\4D%.
2: NUMBER OF OPTIONS IN SUBMENU..4N
%. 3: SUBMENU OPTIONS LIST..4X
%..Q4B%. !!! NOTE .. NUMBER OF SUBMENUS
MUST BE THE SAME AS TOP MENU !!!.W4L%..
.4V%:..5.%. 5:.
NUMBER OF ENTRIES ON TOP MENU.]5.%. -1:.
IF LAST OPTION IS EXIT/END/ETC T
HEN -1 ELSE 0.I5.%. "NEW".{5.%. "CHARACT
ER"..5.%. "DISK"..5.%. "OUTPUT"..5.%. "E
XIT"..5F%:.D5P%. VERTICAL MENU BARS.J5Z
%:..6.%. 22:. TOTAL NU
MBER OF SUB OPTIONS..6.%:.I6.%. 4:.
NUMBER OF OPTIONS IN EACH
SUB MENU.C6.&. "UPP CASE TEMPLATE".}6.&
. "LWR CASE TEMPLATE"..6.&. "LOAD TEMPLA
TE"..6 &. "EMPTY TEMPLATE"..6*&:..64&. 7
.H6>&. "ROM SET".X6H&. "RESTORE"..6R&. "
CLEAR"..6\&. "FILL"..7F&. "SWOP"..7P&. "
COPY FROM"."7Z&. "COPY TO".(7.&:.07.&. 5
.D7.&. "DISK DEVICE".W7.&. "DISK DRIVE".
I7.&. "DIRECTORY".X7.&. "ERRORS"..7.&. "
DELETE"..7J&:..7T&. 5..7.&. "PRINTER DEV
ICE".I7.&. "CHAR DATA TO PRINTER"..7.&.
"SET DATA TO SCREEN"..8.&. "SET DATA TO
PRINTER"..8.'. "SET DATA TO DISK"..8.':.
'8.'. 1.D8$'. "ARE YOU SURE ? (Y/N)".J8.
':.P88'....
> CLICK IMAGE PREVIEW FOR FULL MODAL