HI-LITE BARS
FILE INFORMATION
FILENAME(S): HI-LITE BARS
FILE TYPE(S): PRG
FILE SIZE: 5.8K
FIRST SEEN: 2025-11-30 17:31:21
APPEARS ON: 1 disk(s)
FILE HASH
fc0d72a9d6bb8ed4b0da7489543b4427cd6d277d6e8380feeaf993b1b4a07fa7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CDU APRIL 1990 | HI-LITE BARS | PRG | UK CD | 22 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 0A 00 8F 20 20 2A 2A 2A 2A 2A 2A 2A |..'.... *******| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 00 4D 08 14 00 8F 20 20 2A |*******.M.... *| 00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 73 08 | *.s.| 00000050: 1E 00 8F 20 20 2A 20 20 20 48 49 4C 49 54 45 20 |... * HILITE | 00000060: 42 41 52 20 4D 45 4E 55 20 4D 41 4B 45 52 20 20 |BAR MENU MAKER | 00000070: 20 20 2A 00 99 08 28 00 8F 20 20 2A 20 20 20 20 | *...(.. * | 00000080: 20 20 20 20 20 20 20 42 59 20 20 20 20 20 20 20 | BY | 00000090: 20 20 20 20 20 20 20 20 2A 00 BF 08 32 00 8F 20 | *...2.. | 000000A0: 20 2A 20 20 20 20 20 20 20 20 20 20 20 42 4F 4E | * BON| 000000B0: 45 53 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 |ES *.| 000000C0: E5 08 3C 00 8F 20 20 2A 20 20 20 20 20 20 20 20 |..<.. * | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000E0: 20 20 20 20 2A 00 0B 09 46 00 8F 20 20 2A 2A 2A | *...F.. ***| 000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 11 09 50 00 |***********...P.| 00000110: 3A 00 17 09 5A 00 3A 00 3C 09 64 00 8F 20 2A 2A |:...Z.:.<.d.. **| 00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 61 09 6E |************.a.n| 00000140: 00 8F 20 2A 20 20 20 20 20 20 20 20 20 4D 45 4E |.. * MEN| 00000150: 55 20 4C 49 53 54 53 20 20 20 20 20 20 20 20 20 |U LISTS | 00000160: 2A 00 86 09 78 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...x.. ********| 00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000180: 2A 2A 2A 2A 2A 2A 00 8C 09 82 00 3A 00 92 09 8C |******.....:....| 00000190: 00 3A 00 B3 09 96 00 8F 20 20 20 2A 2A 2A 2A 2D |.:...... ****-| 000001A0: 2D 2D 2D 4D 45 4E 55 20 4F 4E 45 2D 2D 2D 2D 2A |---MENU ONE----*| 000001B0: 2A 2A 2A 00 B9 09 A0 00 3A 00 BF 09 AA 00 3A 00 |***.....:.....:.| 000001C0: E9 09 B4 00 4D 49 24 28 30 29 B2 20 22 20 D1 20 |....MI$(0). " . | 000001D0: 20 20 47 4F 54 4F 20 53 45 43 4F 4E 44 20 4D 45 | GOTO SECOND ME| 000001E0: 4E 55 20 20 20 20 D1 20 22 00 13 0A BE 00 4D 49 |NU . ".....MI| 000001F0: 24 28 31 29 B2 20 22 20 D1 20 20 20 4D 45 4E 55 |$(1). " . MENU| 00000200: 20 4F 50 54 49 4F 4E 20 54 57 4F 20 20 20 20 20 | OPTION TWO | 00000210: D1 20 22 00 3D 0A C8 00 4D 49 24 28 32 29 B2 20 |. ".=...MI$(2). | 00000220: 22 20 D1 20 20 20 4D 45 4E 55 20 4F 50 54 49 4F |" . MENU OPTIO| 00000230: 4E 20 54 48 52 45 45 20 20 20 D1 20 22 00 67 0A |N THREE . ".g.| 00000240: D2 00 4D 49 24 28 33 29 B2 20 22 20 D1 20 20 20 |..MI$(3). " . | 00000250: 4D 45 4E 55 20 4F 50 54 49 4F 4E 20 46 4F 55 52 |MENU OPTION FOUR| 00000260: 20 20 20 20 D1 20 22 00 91 0A DC 00 4D 49 24 28 | . ".....MI$(| 00000270: 34 29 B2 20 22 20 D1 20 20 20 20 20 20 20 45 4E |4). " . EN| 00000280: 44 20 44 45 4D 4F 20 20 20 20 20 20 20 20 D1 20 |D DEMO . | 00000290: 22 00 97 0A E0 00 3A 00 B8 0A E1 00 8F 20 20 20 |".....:...... | 000002A0: 2A 2A 2A 2A 2D 2D 2D 2D 4D 45 4E 55 20 54 57 4F |****----MENU TWO| 000002B0: 2D 2D 2D 2D 2A 2A 2A 2A 00 BE 0A E2 00 3A 00 C4 |----****.....:..| 000002C0: 0A E3 00 3A 00 EE 0A E6 00 4D 49 24 28 35 29 B2 |...:.....MI$(5).| 000002D0: 20 22 20 D1 20 20 20 47 4F 54 4F 20 54 48 49 52 | " . GOTO THIR| 000002E0: 44 20 4D 45 4E 55 20 20 20 20 20 D1 20 22 00 18 |D MENU . "..| 000002F0: 0B F0 00 4D 49 24 28 36 29 B2 20 22 20 D1 20 20 |...MI$(6). " . | 00000300: 20 41 4E 4F 54 48 45 52 20 4F 50 54 49 4F 4E 20 | ANOTHER OPTION | 00000310: 20 20 20 20 20 D1 20 22 00 42 0B FA 00 4D 49 24 | . ".B...MI$| 00000320: 28 37 29 B2 20 22 20 D1 20 20 4F 50 54 49 4E 47 |(7). " . OPTING| 00000330: 20 42 41 43 4B 20 54 4F 20 4F 4E 45 20 20 20 D1 | BACK TO ONE .| 00000340: 20 22 00 48 0B FE 00 3A 00 6B 0B FF 00 8F 20 20 | ".H...:.k.... | 00000350: 20 2A 2A 2A 2A 2D 2D 2D 2D 4D 45 4E 55 20 54 48 | ****----MENU TH| 00000360: 52 45 45 2D 2D 2D 2D 2A 2A 2A 2A 00 71 0B 00 01 |REE----****.q...| 00000370: 3A 00 77 0B 01 01 3A 00 A2 0B 04 01 4D 49 24 28 |:.w...:.....MI$(| 00000380: 38 29 B2 22 20 D1 20 4D 4F 52 45 20 4F 50 54 49 |8)." . MORE OPTI| 00000390: 4F 4E 20 41 44 56 45 4E 54 55 52 45 53 20 20 D1 |ON ADVENTURES .| 000003A0: 20 22 00 CD 0B 0E 01 4D 49 24 28 39 29 B2 22 20 | ".....MI$(9)." | 000003B0: D1 20 41 4C 4D 4F 53 54 20 54 48 45 20 4C 41 53 |. ALMOST THE LAS| 000003C0: 54 20 4F 50 54 49 4F 4E 20 20 D1 20 22 00 F9 0B |T OPTION . "...| 000003D0: 18 01 4D 49 24 28 31 30 29 B2 22 20 D1 20 20 20 |..MI$(10)." . | 000003E0: 47 45 54 54 49 4E 47 20 42 41 43 4B 20 54 4F 20 |GETTING BACK TO | 000003F0: 54 57 4F 20 20 20 D1 20 22 00 FF 0B 22 01 3A 00 |TWO . "...".:.| 00000400: 05 0C 27 01 3A 00 29 0C 2C 01 8F 20 20 2A 2A 2A |..'.:.).,.. ***| 00000410: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000420: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4D 0C 36 01 8F 20 |*********.M.6.. | 00000430: 20 2A 2A 20 20 4D 4F 52 45 20 55 53 45 46 55 4C | ** MORE USEFUL| 00000440: 20 53 54 52 49 4E 47 53 20 20 20 2A 2A 00 71 0C | STRINGS **.q.| 00000450: 40 01 8F 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |@.. ***********| 00000460: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000470: 2A 00 77 0C 45 01 3A 00 7D 0C 4A 01 3A 00 B0 0C |*.w.E.:.}.J.:...| 00000480: 54 01 4E 55 4C 24 B2 22 20 20 20 20 20 20 20 20 |T.NUL$." | 00000490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "| 000004B0: 00 D9 0C 5E 01 59 4E 24 B2 22 20 20 20 3C 3C 20 |...^.YN$." << | 000004C0: 20 41 52 45 20 59 4F 55 20 53 55 52 45 20 5B 59 | ARE YOU SURE [Y| 000004D0: 2F 4E 5D 20 3F 20 3E 3E 22 00 0D 0D 68 01 53 4B |/N] ? >>"...h.SK| 000004E0: 24 B2 22 11 11 11 11 11 11 11 11 20 20 20 20 20 |$."........ | 000004F0: 3C 3C 20 53 54 52 49 4B 45 20 41 4E 59 20 4B 45 |<< STRIKE ANY KE| 00000500: 59 20 4F 52 20 46 49 52 45 20 3E 3E 22 00 13 0D |Y OR FIRE >>"...| 00000510: 86 01 3A 00 19 0D 8B 01 3A 00 3D 0D 90 01 8F 20 |..:.....:.=.... | 00000520: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 00000530: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 61 0D |*************.a.| 00000540: 9A 01 8F 20 20 2A 2A 20 20 20 4D 41 49 4E 20 4C |... ** MAIN L| 00000550: 4F 4F 50 20 41 4E 44 20 45 58 49 54 20 20 20 2A |OOP AND EXIT *| 00000560: 2A 00 85 0D A4 01 8F 20 20 2A 2A 2A 2A 2A 2A 2A |*...... *******| 00000570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000580: 2A 2A 2A 2A 2A 00 8B 0D A9 01 3A 00 B2 0D AE 01 |*****.....:.....| 00000590: 42 4F B2 35 33 32 38 31 3A 97 42 4F 2C 36 3A 42 |BO.53281:.BO,6:B| 000005A0: 41 B2 42 4F AB 31 3A 97 42 41 2C 36 3A 99 22 93 |A.BO.1:.BA,6:.".| 000005B0: 9A 22 00 B8 0D B4 01 3A 00 D9 0D B8 01 8D 20 36 |.".....:...... 6| 000005C0: 30 35 30 30 3A 8F 20 50 52 49 4E 54 20 42 4F 54 |0500:. PRINT BOT| 000005D0: 54 4F 4D 20 50 41 4E 45 4C 00 DF 0D BD 01 3A 00 |TOM PANEL.....:.| 000005E0: F7 0D C2 01 8D 20 31 30 30 30 3A 8F 20 46 49 52 |..... 1000:. FIR| 000005F0: 53 54 20 4D 45 4E 55 00 FD 0D C7 01 3A 00 17 0E |ST MENU.....:...| 00000600: CC 01 8B 51 A7 34 38 30 3A 8F 20 51 55 49 54 20 |...Q.480:. QUIT | 00000610: 50 52 4F 47 52 41 4D 00 1D 0E D1 01 3A 00 36 0E |PROGRAM.....:.6.| 00000620: D6 01 89 34 34 30 3A 8F 20 42 41 43 4B 20 54 4F |...440:. BACK TO| 00000630: 20 53 54 41 52 54 00 3C 0E DB 01 3A 00 4B 0E E0 | START.<...:.K..| 00000640: 01 99 22 93 11 11 11 22 59 4E 24 00 51 0E E5 01 |.."...."YN$.Q...| 00000650: 3A 00 68 0E EA 01 8D 36 30 33 32 30 3A 8F 20 47 |:.h....60320:. G| 00000660: 45 54 20 4B 45 59 49 4E 00 6E 0E EF 01 3A 00 89 |ET KEYIN.n...:..| 00000670: 0E F4 01 8B 43 48 B2 38 39 A7 35 33 30 8F 20 59 |....CH.89.530. Y| 00000680: 45 53 20 2D 20 51 55 49 54 00 8F 0E F9 01 3A 00 |ES - QUIT.....:.| 00000690: B0 0E FE 01 8B 43 48 B2 37 38 A7 34 34 30 3A 8F |.....CH.78.440:.| 000006A0: 20 4E 4F 20 2D 20 44 4F 4E 27 54 20 51 55 49 54 | NO - DON'T QUIT| 000006B0: 00 B6 0E 03 02 3A 00 CD 0E 08 02 89 34 39 30 3A |.....:......490:| 000006C0: 8F 20 4E 4F 20 4B 45 59 50 52 45 53 53 00 D3 0E |. NO KEYPRESS...| 000006D0: 0D 02 3A 00 EF 0E 12 02 9E 36 34 37 33 38 3A 8F |..:......64738:.| 000006E0: 20 52 45 53 45 54 20 43 4F 4D 50 55 54 45 52 00 | RESET COMPUTER.| 000006F0: F5 0E 17 02 3A 00 FB 0E DE 03 3A 00 20 0F DF 03 |....:.....:. ...| 00000700: 8F 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. *************| 00000710: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000720: 00 45 0F E0 03 8F 20 20 2A 2A 20 20 20 20 20 20 |.E.... ** | 00000730: 4D 45 4E 55 20 41 43 54 49 4F 4E 53 20 20 20 20 |MENU ACTIONS | 00000740: 20 20 20 2A 2A 00 6A 0F E1 03 8F 20 20 2A 2A 2A | **.j.... ***| 00000750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 70 0F E2 03 3A |**********.p...:| 00000770: 00 76 0F E3 03 3A 00 95 0F E5 03 8F 20 20 2A 2A |.v...:...... **| 00000780: 2A 2A 2D 2D 2D 2D 4D 45 4E 55 20 23 31 2D 2D 2D |**----MENU #1---| 00000790: 2D 2A 2A 2A 2A 00 9B 0F E6 03 3A 00 A1 0F E7 03 |-****.....:.....| 000007A0: 3A 00 BF 0F E8 03 4D 31 B2 34 3A 8F 20 4D 41 58 |:.....M1.4:. MAX| 000007B0: 49 4D 55 4D 20 4D 45 4E 55 20 45 4E 54 52 59 00 |IMUM MENU ENTRY.| 000007C0: DD 0F F2 03 4D 32 B2 30 3A 8F 20 4D 49 4E 49 4D |....M2.0:. MINIM| 000007D0: 55 4D 20 4D 45 4E 55 20 45 4E 54 52 59 00 F8 0F |UM MENU ENTRY...| 000007E0: FC 03 8D 20 36 30 30 30 30 3A 8F 20 4D 45 4E 55 |... 60000:. MENU| 000007F0: 20 43 52 45 41 54 4F 52 00 11 10 06 04 8B 20 4D | CREATOR...... M| 00000800: B2 35 20 A7 20 51 B2 31 3A 8E 3A 8F 20 51 55 49 |.5 . Q.1:.:. QUI| 00000810: 54 00 2F 10 10 04 91 20 4D 20 8D 20 31 35 30 30 |T./.... M . 1500| 00000820: 2C 33 30 30 30 2C 34 30 30 30 2C 34 35 30 30 00 |,3000,4000,4500.| 00000830: 5D 10 1A 04 8D 20 36 30 35 30 30 3A 89 31 30 30 |].... 60500:.100| 00000840: 30 3A 8F 20 50 52 49 4E 54 20 50 41 4E 45 4C 20 |0:. PRINT PANEL | 00000850: 41 4E 44 20 4D 45 4E 55 20 4C 4F 4F 50 00 63 10 |AND MENU LOOP.c.| 00000860: D6 05 3A 00 69 10 D7 05 3A 00 88 10 D9 05 8F 20 |..:.i...:...... | 00000870: 20 2A 2A 2A 2A 2D 2D 2D 2D 4D 45 4E 55 20 23 32 | ****----MENU #2| 00000880: 2D 2D 2D 2D 2A 2A 2A 2A 00 8E 10 DA 05 3A 00 94 |----****.....:..| 00000890: 10 DB 05 3A 00 B9 10 DC 05 8D 36 30 35 30 30 3A |...:......60500:| 000008A0: 4D 31 B2 37 3A 8F 20 4D 41 58 49 4D 55 4D 20 4D |M1.7:. MAXIMUM M| 000008B0: 45 4E 55 20 45 4E 54 52 59 00 D7 10 E6 05 4D 32 |ENU ENTRY.....M2| 000008C0: B2 35 3A 8F 20 4D 49 4E 49 4D 55 4D 20 4D 45 4E |.5:. MINIMUM MEN| 000008D0: 55 20 45 4E 54 52 59 00 F2 10 F0 05 8D 20 36 30 |U ENTRY...... 60| 000008E0: 30 30 30 3A 8F 20 4D 45 4E 55 20 43 52 45 41 54 |000:. MENU CREAT| 000008F0: 4F 52 00 0C 11 FA 05 8B 20 4D B2 38 20 A7 20 8E |OR...... M.8 . .| 00000900: 3A 8F 20 42 41 43 4B 20 54 4F 20 31 00 23 11 04 |:. BACK TO 1.#..| 00000910: 06 91 20 4D AB 4D 32 20 8D 20 32 30 30 30 2C 35 |.. M.M2 . 2000,5| 00000920: 30 30 30 00 49 11 0E 06 89 31 35 30 30 3A 8F 20 |000.I....1500:. | 00000930: 50 52 49 4E 54 20 50 41 4E 45 4C 20 41 4E 44 20 |PRINT PANEL AND | 00000940: 4D 45 4E 55 20 4C 4F 4F 50 00 4F 11 CA 07 3A 00 |MENU LOOP.O...:.| 00000950: 55 11 CB 07 3A 00 74 11 CD 07 8F 20 20 2A 2A 2A |U...:.t.... ***| 00000960: 2A 2D 2D 2D 2D 4D 45 4E 55 20 23 33 2D 2D 2D 2D |*----MENU #3----| 00000970: 2A 2A 2A 2A 00 7A 11 CE 07 3A 00 80 11 CF 07 3A |****.z...:.....:| 00000980: 00 A6 11 D0 07 8D 36 30 35 30 30 3A 4D 31 B2 31 |......60500:M1.1| 00000990: 30 3A 8F 20 4D 41 58 49 4D 55 4D 20 4D 45 4E 55 |0:. MAXIMUM MENU| 000009A0: 20 45 4E 54 52 59 00 C4 11 DA 07 4D 32 B2 38 3A | ENTRY.....M2.8:| 000009B0: 8F 20 4D 49 4E 49 4D 55 4D 20 4D 45 4E 55 20 45 |. MINIMUM MENU E| 000009C0: 4E 54 52 59 00 DF 11 E4 07 8D 20 36 30 30 30 30 |NTRY...... 60000| 000009D0: 3A 8F 20 4D 45 4E 55 20 43 52 45 41 54 4F 52 00 |:. MENU CREATOR.| 000009E0: FA 11 EE 07 8B 20 4D B2 31 31 20 A7 20 8E 3A 8F |..... M.11 . .:.| 000009F0: 20 42 41 43 4B 20 54 4F 20 32 00 11 12 F8 07 91 | BACK TO 2......| 00000A00: 20 4D AB 4D 32 20 8D 20 36 30 30 30 2C 37 30 30 | M.M2 . 6000,700| 00000A10: 30 00 37 12 02 08 89 32 30 30 30 3A 8F 20 50 52 |0.7....2000:. PR| 00000A20: 49 4E 54 20 50 41 4E 45 4C 20 41 4E 44 20 4D 45 |INT PANEL AND ME| 00000A30: 4E 55 20 4C 4F 4F 50 00 3D 12 AE 0B 3A 00 43 12 |NU LOOP.=...:.C.| 00000A40: AF 0B 3A 00 67 12 B0 0B 8F 20 20 2A 2A 2A 2A 2A |..:.g.... *****| 00000A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A60: 2A 2A 2A 2A 2A 2A 2A 00 8B 12 B1 0B 8F 20 20 2A |*******...... *| 00000A70: 2A 20 20 20 53 55 42 52 4F 55 54 49 4E 45 53 20 |* SUBROUTINES | 00000A80: 43 41 4C 4C 45 44 20 20 20 2A 2A 00 AF 12 B2 0B |CALLED **.....| 00000A90: 8F 20 20 2A 2A 20 20 20 20 20 20 20 20 4D 45 4E |. ** MEN| 00000AA0: 55 27 53 20 20 20 20 20 20 20 20 20 20 2A 2A 00 |U'S **.| 00000AB0: D3 12 B3 0B 8F 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... *********| 00000AC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000AD0: 2A 2A 2A 00 D9 12 B8 0B 3A 00 DF 12 C2 0B 3A 00 |***.....:.....:.| 00000AE0: 0B 13 CC 0B 97 42 4F 2C 30 3A 97 42 41 2C 30 3A |.....BO,0:.BA,0:| 00000AF0: 99 22 93 9C 20 54 48 49 53 20 49 53 20 4F 50 54 |.".. THIS IS OPT| 00000B00: 49 4F 4E 20 54 57 4F 21 21 21 22 00 2E 13 D6 0B |ION TWO!!!".....| 00000B10: 99 53 4B 24 3A 8D 36 30 33 32 30 3A 97 42 4F 2C |.SK$:.60320:.BO,| 00000B20: 36 3A 97 42 41 2C 36 3A 99 22 9A 22 3A 8E 00 34 |6:.BA,6:.".":..4| 00000B30: 13 A0 0F 3A 00 3A 13 AA 0F 3A 00 67 13 B4 0F 97 |...:.:...:.g....| 00000B40: 42 4F 2C 32 3A 97 42 41 2C 32 3A 99 22 93 96 20 |BO,2:.BA,2:.".. | 00000B50: 54 48 49 53 20 49 53 20 4F 50 54 49 4F 4E 20 54 |THIS IS OPTION T| 00000B60: 48 52 45 45 21 21 22 00 8A 13 BE 0F 99 53 4B 24 |HREE!!"......SK$| 00000B70: 3A 8D 36 30 33 32 30 3A 97 42 4F 2C 36 3A 97 42 |:.60320:.BO,6:.B| 00000B80: 41 2C 36 3A 99 22 9A 22 3A 8E 00 90 13 94 11 3A |A,6:.".":......:| 00000B90: 00 96 13 9E 11 3A 00 C4 13 A8 11 97 42 4F 2C 31 |.....:......BO,1| 00000BA0: 30 3A 97 42 41 2C 31 30 3A 99 22 93 95 20 54 48 |0:.BA,10:.".. TH| 00000BB0: 49 53 20 49 53 20 4F 50 54 49 4F 4E 20 46 4F 55 |IS IS OPTION FOU| 00000BC0: 52 21 21 22 00 E7 13 B2 11 99 53 4B 24 3A 8D 36 |R!!"......SK$:.6| 00000BD0: 30 33 32 30 3A 97 42 4F 2C 36 3A 97 42 41 2C 36 |0320:.BO,6:.BA,6| 00000BE0: 3A 99 22 9A 22 3A 8E 00 ED 13 88 13 3A 00 F3 13 |:.".":......:...| 00000BF0: 92 13 3A 00 25 14 9C 13 97 42 4F 2C 31 34 3A 97 |..:.%....BO,14:.| 00000C00: 42 41 2C 31 34 3A 99 22 93 1F 20 54 48 49 53 20 |BA,14:.".. THIS | 00000C10: 49 53 20 41 4E 4F 54 48 45 52 20 4F 50 54 49 4F |IS ANOTHER OPTIO| 00000C20: 4E 20 21 21 22 00 48 14 A6 13 99 53 4B 24 3A 8D |N !!".H....SK$:.| 00000C30: 36 30 33 32 30 3A 97 42 4F 2C 36 3A 97 42 41 2C |60320:.BO,6:.BA,| 00000C40: 36 3A 99 22 9A 22 3A 8E 00 4E 14 70 17 3A 00 54 |6:.".":..N.p.:.T| 00000C50: 14 7A 17 3A 00 85 14 84 17 97 42 4F 2C 31 3A 97 |.z.:......BO,1:.| 00000C60: 42 41 2C 31 3A 99 22 93 90 20 4D 4F 52 45 20 4F |BA,1:.".. MORE O| 00000C70: 50 54 49 4F 4E 41 4C 20 41 44 56 45 4E 54 55 52 |PTIONAL ADVENTUR| 00000C80: 45 53 21 21 22 00 A8 14 8E 17 99 53 4B 24 3A 8D |ES!!"......SK$:.| 00000C90: 36 30 33 32 30 3A 97 42 4F 2C 36 3A 97 42 41 2C |60320:.BO,6:.BA,| 00000CA0: 36 3A 99 22 9A 22 3A 8E 00 AE 14 58 1B 3A 00 B4 |6:.".":....X.:..| 00000CB0: 14 62 1B 3A 00 E3 14 6C 1B 97 42 4F 2C 35 3A 97 |.b.:...l..BO,5:.| 00000CC0: 42 41 2C 35 3A 99 22 93 99 20 41 4C 4D 4F 53 54 |BA,5:.".. ALMOST| 00000CD0: 20 54 48 45 20 4C 41 53 54 20 4F 50 54 49 4F 4E | THE LAST OPTION| 00000CE0: 21 21 22 00 06 15 76 1B 99 53 4B 24 3A 8D 36 30 |!!"...v..SK$:.60| 00000CF0: 33 32 30 3A 97 42 4F 2C 36 3A 97 42 41 2C 36 3A |320:.BO,6:.BA,6:| 00000D00: 99 22 9A 22 3A 8E 00 0C 15 51 EA 3A 00 12 15 52 |.".":....Q.:...R| 00000D10: EA 3A 00 37 15 56 EA 8F 20 20 2A 2A 2A 2A 2A 2A |.:.7.V.. ******| 00000D20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000D30: 2A 2A 2A 2A 2A 2A 2A 00 5C 15 57 EA 8F 20 20 2A |*******.\.W.. *| 00000D40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000D50: 20 20 20 20 20 20 20 20 20 20 20 2A 00 81 15 58 | *...X| 00000D60: EA 8F 20 20 2A 20 20 20 20 20 4D 45 4E 55 20 26 |.. * MENU &| 00000D70: 20 48 49 4C 49 54 45 20 42 41 52 20 20 20 20 20 | HILITE BAR | 00000D80: 2A 00 A6 15 59 EA 8F 20 20 2A 20 20 20 20 20 20 |*...Y.. * | 00000D90: 20 20 20 20 20 50 52 49 4E 54 20 20 20 20 20 20 | PRINT | 00000DA0: 20 20 20 20 20 2A 00 CB 15 5A EA 8F 20 20 2A 20 | *...Z.. * | 00000DB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000DC0: 20 20 20 20 20 20 20 20 20 20 2A 00 F0 15 5B EA | *...[.| 00000DD0: 8F 20 20 2A 20 20 44 45 4C 45 54 45 20 41 4C 4C |. * DELETE ALL| 00000DE0: 20 52 45 4D 41 52 4B 53 20 41 4E 44 20 20 20 2A | REMARKS AND *| 00000DF0: 00 15 16 5C EA 8F 20 20 2A 20 20 20 43 52 55 4E |...\.. * CRUN| 00000E00: 43 48 20 44 4F 57 4E 20 43 4F 4D 4D 41 4E 44 53 |CH DOWN COMMANDS| 00000E10: 20 20 20 20 2A 00 3A 16 5D EA 8F 20 20 2A 20 20 | *.:.].. * | 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 2A 00 5F 16 5E EA 8F | *._.^..| 00000E40: 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | **************| 00000E50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00000E60: 65 16 5F EA 3A 00 8E 16 60 EA 4C 4E B2 32 31 34 |e._.:...`.LN.214| 00000E70: 3A 8F 20 43 55 52 53 45 52 20 50 48 59 53 49 43 |:. CURSER PHYSIC| 00000E80: 41 4C 20 4C 49 4E 45 20 4E 55 4D 42 45 52 00 94 |AL LINE NUMBER..| 00000E90: 16 65 EA 3A 00 BA 16 6A EA 43 42 B2 31 39 38 3A |.e.:...j.CB.198:| 00000EA0: 8F 20 4E 4F 2E 20 43 48 41 52 41 43 54 45 52 53 |. NO. CHARACTERS| 00000EB0: 20 49 4E 20 42 55 46 46 45 52 00 C0 16 6F EA 3A | IN BUFFER...o.:| 00000EC0: 00 E8 16 74 EA 4D 4D B2 4D 31 3A 8F 20 54 52 41 |...t.MM.M1:. TRA| 00000ED0: 4E 53 46 45 52 20 4D 41 58 49 4D 55 4D 20 4D 45 |NSFER MAXIMUM ME| 00000EE0: 4E 55 20 49 54 45 4D 53 00 EE 16 79 EA 3A 00 16 |NU ITEMS...y.:..| 00000EF0: 17 7E EA 4D 4E B2 4D 32 3A 8F 20 54 52 41 4E 53 |.~.MN.M2:. TRANS| 00000F00: 46 45 52 20 4D 49 4E 49 4D 55 4D 20 4D 45 4E 55 |FER MINIMUM MENU| 00000F10: 20 49 54 45 4D 53 00 1C 17 83 EA 3A 00 3D 17 88 | ITEMS.....:.=..| 00000F20: EA 99 22 13 22 3A 8F 20 48 4F 4D 45 20 43 55 52 |..".":. HOME CUR| 00000F30: 53 45 52 20 28 58 3D 30 3A 59 3D 30 29 00 43 17 |SER (X=0:Y=0).C.| 00000F40: 8D EA 3A 00 72 17 92 EA 81 20 43 20 B2 20 4D 32 |..:.r.... C . M2| 00000F50: 20 A4 20 4D 31 3A 8F 20 53 45 54 54 49 4E 47 20 | . M1:. SETTING | 00000F60: 55 50 20 4D 45 4E 55 20 50 41 52 41 4D 45 54 45 |UP MENU PARAMETE| 00000F70: 52 53 00 78 17 97 EA 3A 00 9A 17 9C EA 99 22 1D |RS.x...:......".| 00000F80: 22 3B 4D 49 24 28 43 29 3A 8F 20 50 52 49 4E 54 |";MI$(C):. PRINT| 00000F90: 20 4D 45 4E 55 20 49 54 45 4D 00 A0 17 A1 EA 3A | MENU ITEM.....:| 00000FA0: 00 D3 17 A6 EA 82 3A 8F 20 20 20 44 4F 20 4C 4F |......:. DO LO| 00000FB0: 4F 50 20 55 4E 54 49 4C 20 41 4C 4C 20 4D 45 4E |OP UNTIL ALL MEN| 00000FC0: 55 20 49 54 45 4D 53 20 41 52 45 20 50 52 49 4E |U ITEMS ARE PRIN| 00000FD0: 54 45 44 00 D9 17 AB EA 3A 00 FB 17 B0 EA 97 4C |TED.....:......L| 00000FE0: 4E 2C 30 3A 8F 20 43 4C 45 41 52 20 4B 45 59 42 |N,0:. CLEAR KEYB| 00000FF0: 4F 41 52 44 20 42 55 46 46 45 52 00 01 18 B5 EA |OARD BUFFER.....| 00001000: 3A 00 3A 18 BA EA 52 42 B2 4D 4E 3A 43 4C B2 4D |:.:...RB.MN:CL.M| 00001010: 4E 3A 8F 20 53 45 54 54 49 4E 47 20 42 41 52 2F |N:. SETTING BAR/| 00001020: 43 4C 45 41 52 20 54 4F 20 4D 49 4E 49 4D 55 4D |CLEAR TO MINIMUM| 00001030: 20 4D 45 4E 55 20 49 54 45 4D 00 40 18 BF EA 3A | MENU ITEM.@...:| 00001040: 00 63 18 C4 EA 8D 20 36 30 32 36 30 3A 8F 20 44 |.c.... 60260:. D| 00001050: 4F 20 52 45 56 45 52 53 45 20 42 41 52 20 50 52 |O REVERSE BAR PR| 00001060: 49 4E 54 00 69 18 C9 EA 3A 00 92 18 CE EA 81 20 |INT.i...:...... | 00001070: 52 45 20 B2 20 30 20 A4 20 31 20 A9 20 30 3A 8F |RE . 0 . 1 . 0:.| 00001080: 20 53 45 54 54 55 50 20 46 49 52 53 54 20 4C 4F | SETTUP FIRST LO| 00001090: 4F 50 00 98 18 D3 EA 3A 00 C2 18 D8 EA 8D 20 36 |OP.....:...... 6| 000010A0: 30 33 32 30 3A 8F 20 47 45 54 20 4A 4F 59 53 54 |0320:. GET JOYST| 000010B0: 49 43 4B 2F 4B 45 59 42 4F 41 52 44 20 49 4E 50 |ICK/KEYBOARD INP| 000010C0: 55 54 00 C8 18 DD EA 3A 00 ED 18 E2 EA 43 31 B2 |UT.....:.....C1.| 000010D0: 43 4C 3A 52 31 B2 52 42 3A 8F 20 53 45 54 54 55 |CL:R1.RB:. SETTU| 000010E0: 50 20 54 45 53 54 20 56 41 4C 55 45 53 00 F3 18 |P TEST VALUES...| 000010F0: E7 EA 3A 00 1C 19 EC EA 81 20 59 20 B2 20 30 20 |..:...... Y . 0 | 00001100: A4 20 31 20 A9 20 30 3A 8F 20 53 45 54 54 55 50 |. 1 . 0:. SETTUP| 00001110: 20 53 45 43 4F 4E 44 20 4C 4F 4F 50 00 22 19 F1 | SECOND LOOP."..| 00001120: EA 3A 00 48 19 F6 EA 8F 20 54 45 53 54 49 4E 47 |.:.H.... TESTING| 00001130: 20 4A 4F 59 53 54 49 43 4B 2F 4B 45 59 42 4F 41 | JOYSTICK/KEYBOA| 00001140: 52 44 20 49 4E 50 55 54 00 4E 19 FB EA 3A 00 90 |RD INPUT.N...:..| 00001150: 19 00 EB 8B 43 48 B2 31 37 A7 52 42 B2 52 42 AA |....CH.17.RB.RB.| 00001160: 31 3A 8B 52 42 B2 4D 4D AA 31 A7 52 42 B2 4D 4E |1:.RB.MM.1.RB.MN| 00001170: 3A 8F 20 54 45 53 54 20 49 46 20 42 45 59 4F 4E |:. TEST IF BEYON| 00001180: 44 20 4C 41 53 54 20 4D 45 4E 55 20 49 54 45 4D |D LAST MENU ITEM| 00001190: 00 96 19 05 EB 3A 00 DA 19 0A EB 8B 43 48 B2 31 |.....:......CH.1| 000011A0: 34 35 A7 52 42 B2 52 42 AB 31 3A 8B 52 42 B2 4D |45.RB.RB.1:.RB.M| 000011B0: 4E AB 31 A7 52 42 B2 4D 4D 3A 8F 20 54 45 53 54 |N.1.RB.MM:. TEST| 000011C0: 20 49 46 20 42 45 46 4F 52 45 20 46 49 52 53 54 | IF BEFORE FIRST| 000011D0: 20 4D 45 4E 55 20 49 54 45 4D 00 E0 19 0F EB 3A | MENU ITEM.....:| 000011E0: 00 12 1A 14 EB 8B 43 48 B2 31 33 A7 52 45 B2 31 |......CH.13.RE.1| 000011F0: 3A 8F 20 54 45 53 54 20 49 46 20 46 49 52 45 2F |:. TEST IF FIRE/| 00001200: 52 45 54 55 52 4E 20 49 53 20 53 45 4C 45 43 54 |RETURN IS SELECT| 00001210: 45 44 00 18 1A 19 EB 3A 00 50 1A 1E EB 8B 20 4D |ED.....:.P.... M| 00001220: 49 24 B3 B1 4E 55 4C 24 A7 59 B2 31 3A 8F 20 54 |I$..NUL$.Y.1:. T| 00001230: 45 53 54 20 49 46 20 4D 45 4E 55 20 49 54 45 4D |EST IF MENU ITEM| 00001240: 20 49 53 20 45 4D 50 54 59 20 53 54 52 49 4E 47 | IS EMPTY STRING| 00001250: 00 56 1A 23 EB 3A 00 78 1A 28 EB 82 20 59 3A 8F |.V.#.:.x.(.. Y:.| 00001260: 20 44 4F 20 54 4F 20 45 4E 44 20 4F 46 20 49 4E | DO TO END OF IN| 00001270: 4E 45 52 20 4C 4F 4F 50 00 7E 1A 2D EB 3A 00 C0 |NER LOOP.~.-.:..| 00001280: 1A 32 EB 8B 20 28 43 31 B3 B1 43 4C 29 20 B0 20 |.2.. (C1..CL) . | 00001290: 28 52 31 B3 B1 20 52 42 29 20 A7 20 8D 20 36 30 |(R1.. RB) . . 60| 000012A0: 32 34 30 3A 8F 20 52 55 4E 20 54 45 53 54 20 46 |240:. RUN TEST F| 000012B0: 4F 52 20 52 45 56 45 52 53 45 2F 43 4C 45 41 52 |OR REVERSE/CLEAR| 000012C0: 00 C6 1A 37 EB 3A 00 E9 1A 3C EB 82 20 52 45 3A |...7.:...<.. RE:| 000012D0: 8F 20 44 4F 20 54 4F 20 45 4E 44 20 4F 46 20 4F |. DO TO END OF O| 000012E0: 55 54 45 52 20 4C 4F 4F 50 00 EF 1A 41 EB 3A 00 |UTER LOOP...A.:.| 000012F0: 17 1B 46 EB 89 20 36 30 32 39 30 3A 8F 20 41 53 |..F.. 60290:. AS| 00001300: 53 49 47 4E 20 56 41 4C 55 45 20 4F 46 20 4D 45 |SIGN VALUE OF ME| 00001310: 4E 55 20 4C 49 4E 45 00 1D 1B 4B EB 3A 00 4E 1B |NU LINE...K.:.N.| 00001320: 50 EB 97 20 4C 4E 2C 52 31 AB 4D 4E 3A 8F 20 4D |P.. LN,R1.MN:. M| 00001330: 4F 56 45 20 43 55 52 53 4F 52 20 54 4F 20 43 4F |OVE CURSOR TO CO| 00001340: 52 52 45 43 54 20 50 4F 53 49 54 49 4F 4E 00 54 |RRECT POSITION.T| 00001350: 1B 55 EB 3A 00 7E 1B 5A EB 99 22 11 1D 22 3B 4D |.U.:.~.Z.."..";M| 00001360: 49 24 28 52 31 29 3A 8F 20 50 52 49 4E 54 20 43 |I$(R1):. PRINT C| 00001370: 4C 45 41 52 20 4D 45 4E 55 20 49 54 45 4D 00 84 |LEAR MENU ITEM..| 00001380: 1B 5F EB 3A 00 B4 1B 64 EB 97 4C 4E 2C 52 42 AB |._.:...d..LN,RB.| 00001390: 4D 4E 3A 8F 20 4D 4F 56 45 20 43 55 52 53 4F 52 |MN:. MOVE CURSOR| 000013A0: 20 54 4F 20 43 4F 52 52 45 43 54 20 50 4F 53 49 | TO CORRECT POSI| 000013B0: 54 49 4F 4E 00 BA 1B 69 EB 3A 00 E7 1B 6E EB 99 |TION...i.:...n..| 000013C0: 22 12 11 1D 22 3B 4D 49 24 28 52 42 29 3A 8F 20 |"...";MI$(RB):. | 000013D0: 50 52 49 4E 54 20 52 45 56 45 52 53 45 20 4D 45 |PRINT REVERSE ME| 000013E0: 4E 55 20 49 54 45 4D 00 ED 1B 73 EB 3A 00 F8 1B |NU ITEM...s.:...| 000013F0: 78 EB 89 36 30 33 30 30 00 FE 1B 7D EB 3A 00 2C |x..60300...}.:.,| 00001400: 1C 82 EB 4D B2 52 42 AA 31 3A 8F 20 41 53 53 49 |...M.RB.1:. ASSI| 00001410: 4E 47 20 49 54 45 4D 20 4E 55 4D 42 45 52 20 54 |NG ITEM NUMBER T| 00001420: 4F 20 56 41 52 49 41 42 4C 45 20 4D 00 32 1C 87 |O VARIABLE M.2..| 00001430: EB 3A 00 38 1C 8C EB 8E 00 3E 1C 91 EB 3A 00 5F |.:.8.....>...:._| 00001440: 1C 92 EB 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********| 00001450: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00001460: 80 1C 96 EB 8F 20 2A 2A 2A 20 47 45 54 20 49 4E |..... *** GET IN| 00001470: 4B 45 59 2F 4A 4F 59 53 54 49 43 4B 20 2A 2A 2A |KEY/JOYSTICK ***| 00001480: 00 A1 1C 97 EB 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********| 00001490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000014A0: 2A 00 A7 1C 9B EB 3A 00 E6 1C A0 EB 43 48 B2 30 |*.....:.....CH.0| 000014B0: 3A A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 43 48 B2 |:.A$:.A$.."".CH.| 000014C0: C6 28 41 24 29 3A 8E 3A 8F 20 49 46 20 41 20 4B |.(A$):.:. IF A K| 000014D0: 45 59 20 49 53 20 50 52 45 53 53 45 44 20 2D 20 |EY IS PRESSED - | 000014E0: 47 45 54 20 49 54 00 EC 1C A5 EB 3A 00 0C 1D AA |GET IT.....:....| 000014F0: EB 4A B2 C2 28 35 36 33 32 30 29 3A 8F 20 4A 4F |.J..(56320):. JO| 00001500: 59 53 54 49 43 4B 20 50 4F 52 54 32 00 12 1D AF |YSTICK PORT2....| 00001510: EB 3A 00 2B 1D B4 EB 8B 4A B2 31 32 36 A7 43 48 |.:.+....J.126.CH| 00001520: B2 31 34 35 3A 8E 3A 8F 20 55 50 00 31 1D B9 EB |.145:.:. UP.1...| 00001530: 3A 00 4B 1D BE EB 8B 4A B2 31 32 35 A7 43 48 B2 |:.K....J.125.CH.| 00001540: 31 37 3A 8E 3A 8F 20 44 4F 57 4E 00 51 1D C3 EB |17:.:. DOWN.Q...| 00001550: 3A 00 6B 1D C8 EB 8B 4A B2 31 31 31 A7 43 48 B2 |:.k....J.111.CH.| 00001560: 31 33 3A 8E 3A 8F 20 46 49 52 45 00 71 1D CD EB |13:.:. FIRE.q...| 00001570: 3A 00 99 1D D2 EB 89 36 30 33 32 30 3A 8F 20 4E |:......60320:. N| 00001580: 4F 54 48 49 4E 47 2C 20 53 4F 20 4B 45 45 50 20 |OTHING, SO KEEP | 00001590: 43 48 45 43 4B 49 4E 47 21 00 9F 1D 4E EC 3A 00 |CHECKING!...N.:.| 000015A0: A5 1D 4F EC 3A 00 BF 1D 50 EC 8F 20 20 20 2A 2A |..O.:...P.. **| 000015B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 000015C0: D9 1D 51 EC 8F 20 20 20 2A 2A 20 43 55 52 53 4F |..Q.. ** CURSO| 000015D0: 52 20 50 4C 4F 54 20 2A 2A 00 F3 1D 52 EC 8F 20 |R PLOT **...R.. | 000015E0: 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | **************| 000015F0: 2A 2A 2A 00 F9 1D 53 EC 3A 00 18 1E 54 EC 99 22 |***...S.:...T.."| 00001600: 93 22 3A 97 37 38 31 2C 32 30 3A 97 37 38 32 2C |.":.781,20:.782,| 00001610: 30 3A 9E 36 35 35 32 30 00 1E 1E 55 EC 3A 00 24 |0:.65520...U.:.$| 00001620: 1E 56 EC 3A 00 3F 1E 57 EC 8F 20 20 20 2A 2A 2A |.V.:.?.W.. ***| 00001630: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00001640: 5A 1E 58 EC 8F 20 20 20 2A 2A 20 42 4F 54 54 4F |Z.X.. ** BOTTO| 00001650: 4D 20 50 41 4E 45 4C 20 2A 2A 00 75 1E 59 EC 8F |M PANEL **.u.Y..| 00001660: 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | *************| 00001670: 2A 2A 2A 2A 2A 00 A4 1E 5E EC 99 22 99 20 D5 A2 |*****...^..". ..| 00001680: B9 A2 B9 A2 B9 A2 B9 A2 B9 A2 B9 A2 B9 A2 B9 A2 |................| 00001690: B9 A2 B9 A2 B9 A2 B9 A2 B9 A2 B9 A2 B9 A2 B9 A2 |................| 000016A0: B9 A2 C9 22 00 D4 1E 68 EC 99 22 20 DD 12 A9 DF |..."...h.." ....| 000016B0: 92 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000016C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000016D0: 20 20 DD 22 00 02 1F 72 EC 99 22 20 3C 43 55 52 | ."...r.." <CUR| 000016E0: 53 4F 52 2F 4A 4F 59 53 54 49 43 4B 3E 2D 2D 2D |SOR/JOYSTICK>---| 000016F0: 2D 2D 2D 2D 3C 52 45 54 55 52 4E 2F 46 49 52 45 |----<RETURN/FIRE| 00001700: 3E 22 00 12 1F 7C EC 99 22 20 20 20 20 20 DF A9 |>"...|.." ..| 00001710: 9A 22 00 18 1F 86 EC 8E 00 00 00 |."......... |
..'.... ******************************.
M.... * *.S.
... * HILITE BAR MENU MAKER *...(.
. * BY *...2..
* BONES *...<.. *
*...F.. ***
***************************...P.:...Z.:.
<.D.. ******************************.A.N
.. * MENU LISTS *...X..
******************************.....:....
.:...... ****----MENU ONE----****... .
:.....:.....MI$(0). " Q GOTO SECOND ME
NU Q ".....MI$(1). " Q MENU OPTION
TWO Q ".=.H.MI$(2). " Q MENU OPTIO
N THREE Q ".G.R.MI$(3). " Q MENU OPT
ION FOUR Q ".....MI$(4). " Q EN
D DEMO Q ".....:...... ****----
MENU TWO----****.....:.D...:.....MI$(5).
" Q GOTO THIRD MENU Q ".....MI$(6
). " Q ANOTHER OPTION Q ".B...MI$
(7). " Q OPTING BACK TO ONE Q ".H...:
.K.... ****----MENU THREE----****.Q...
:.W...:.....MI$(8)." Q MORE OPTION ADVEN
TURES Q ".M...MI$(9)." Q ALMOST THE LAS
T OPTION Q ".....MI$(10)." Q GETTING
BACK TO TWO Q "...".:...'.:.).,.. ***
*************************.M.6.. ** MOR
E USEFUL STRINGS **.Q.@.. ***********
*****************.W.E.:.}.J.:...T.NUL$."
"
.Y.^.YN$." << ARE YOU SURE [Y/N] ? >>
"...H.SK$."........ << STRIKE ANY KE
Y OR FIRE >>".....:.....:.=.... *******
*********************.A.... ** MAIN L
OOP AND EXIT **...... ***************
*************.....:.....BO.53281:.BO,6:B
A.BO.1:.BA,6:."..".....:.Y.... 60500:. P
RINT BOTTOM PANEL.....:...B.. 1000:. FIR
ST MENU...G.:...L..Q.480:. QUIT PROGRAM.
..Q.:.6.V..440:. BACK TO START.<...:.K..
.."...."YN$.Q...:.H....60320:. GET KEYIN
.N...:......CH.89.530. YES - QUIT.....:.
.....CH.78.440:. NO - DON'T QUIT.....:.M
....490:. NO KEYPRESS.S...:......64738:.
RESET COMPUTER.....:.....:. .... *****
************************.E.... **
MENU ACTIONS **.J.... ***********
******************.P...:.V...:...... **
**----MENU #1----****.....:.....:.....M1
.4:. MAXIMUM MENU ENTRY.....M2.0:. MINIM
UM MENU ENTRY...... 60000:. MENU CREATOR
...... M.5 . Q.1:.:. QUIT./.... M . 1500
,3000,4000,4500.].... 60500:.1000:. PRIN
T PANEL AND MENU LOOP.C.V.:.I.W.:...Y..
****----MENU #2----****...Z.:.....:....
..60500:M1.7:. MAXIMUM MENU ENTRY.W...M2
.5:. MINIMUM MENU ENTRY...... 60000:. ME
NU CREATOR...... M.8 . .:. BACK TO 1.#..
.. M.M2 . 2000,5000.I....1500:. PRINT PA
NEL AND MENU LOOP.O.J.:.U.K.:.T.M.. ***
*----MENU #3----****.Z.N.:...O.:...P..60
500:M1.10:. MAXIMUM MENU ENTRY.D.Z.M2.8:
. MINIMUM MENU ENTRY...... 60000:. MENU
CREATOR...... M.11 . .:. BACK TO 2......
M.M2 . 6000,7000.7....2000:. PRINT PANE
L AND MENU LOOP.=...:.C...:.G.... *****
***********************...... ** SUBR
OUTINES CALLED **...... ** MEN
U'S **.S.... *****************
***********.Y...:...B.:...L..BO,0:.BA,0:
.".. THIS IS OPTION TWO!!!"...V..SK$:.60
320:.BO,6:.BA,6:.".":..4. .:.:...:.G....
BO,2:.BA,2:.".. THIS IS OPTION THREE!!".
.....SK$:.60320:.BO,6:.BA,6:.".":......:
.....:.D....BO,10:.BA,10:.".. THIS IS OP
TION FOUR!!"......SK$:.60320:.BO,6:.BA,6
:.".":......:.....:.%....BO,14:.BA,14:."
.. THIS IS ANOTHER OPTION !!".H....SK$:.
60320:.BO,6:.BA,6:.".":..N.P.:.T.Z.:....
..BO,1:.BA,1:.".. MORE OPTIONAL ADVENTUR
ES!!"......SK$:.60320:.BO,6:.BA,6:.".":.
...X.:...B.:...L..BO,5:.BA,5:.".. ALMOST
THE LAST OPTION!!"...V..SK$:.60320:.BO,
6:.BA,6:.".":....Q.:...R.:.7.V.. ******
***********************.\.W.. *
*...X.. * MENU &
HILITE BAR *...Y.. * PRI
NT *.K.Z.. *
*...[.. * DELETE ALL REMARKS
AND *...\.. * CRUNCH DOWN COMMANDS
*.:.].. *
*._.^.. *****************************.
E._.:...`.LN.214:. CURSER PHYSICAL LINE
NUMBER...E.:...J.CB.198:. NO. CHARACTERS
IN BUFFER...O.:...T.MM.M1:. TRANSFER MA
XIMUM MENU ITEMS...Y.:...~.MN.M2:. TRANS
FER MINIMUM MENU ITEMS.....:.=....".":.
HOME CURSER (X=0:Y=0).C...:.R.... C . M2
. M1:. SETTING UP MENU PARAMETERS.X...:
......".";MI$(C):. PRINT MENU ITEM. ...:
.S....:. DO LOOP UNTIL ALL MENU ITEMS
ARE PRINTED.Y...:......LN,0:. CLEAR KEYB
OARD BUFFER.....:.:...RB.MN:CL.MN:. SETT
ING BAR/CLEAR TO MINIMUM MENU ITEM.@...:
.C.D.. 60260:. DO REVERSE BAR PRINT.I.I.
:...N.. RE . 0 . 1 . 0:. SETTUP FIRST LO
OP...S.:.B.X.. 60320:. GET JOYSTICK/KEYB
OARD INPUT.H...:.....C1.CL:R1.RB:. SETTU
P TEST VALUES.....:...... Y . 0 . 1 . 0:
. SETTUP SECOND LOOP."...:.H.... TESTING
JOYSTICK/KEYBOARD INPUT.N...:......CH.1
7.RB.RB.1:.RB.MM.1.RB.MN:. TEST IF BEYON
D LAST MENU ITEM.....:.Z....CH.145.RB.RB
.1:.RB.MN.1.RB.MM:. TEST IF BEFORE FIRST
MENU ITEM.....:......CH.13.RE.1:. TEST
IF FIRE/RETURN IS SELECTED.....:.P.... M
I$..NUL$.Y.1:. TEST IF MENU ITEM IS EMPT
Y STRING.V.#.:.X.(.. Y:. DO TO END OF IN
NER LOOP.~.-.:...2.. (C1..CL) . (R1.. RB
) . . 60240:. RUN TEST FOR REVERSE/CLEAR
.F.7.:...<.. RE:. DO TO END OF OUTER LOO
P...A.:...F.. 60290:. ASSIGN VALUE OF ME
NU LINE...K.:.N.P.. LN,R1.MN:. MOVE CURS
OR TO CORRECT POSITION.T.U.:.~.Z.."..";M
I$(R1):. PRINT CLEAR MENU ITEM..._.:...D
..LN,RB.MN:. MOVE CURSOR TO CORRECT POSI
TION...I.:...N.."...";MI$(RB):. PRINT RE
VERSE MENU ITEM...S.:...X..60300...}.:.,
...M.RB.1:. ASSING ITEM NUMBER TO VARIAB
LE M.2...:.8.....>...:._.... ***********
***************...... *** GET INKEY/JOYS
TICK ***...... *************************
*.....:... .CH.0:.A$:.A$.."".CH.F(A$):.:
. IF A KEY IS PRESSED - GET IT.....:....
.J.B(56320):. JOYSTICK PORT2.....:.+....
J.126.CH.145:.:. UP.1...:.K....J.125.CH.
17:.:. DOWN.Q.C.:.K.H..J.111.CH.13:.:. F
IRE.Q.M.:...R..60320:. NOTHING, SO KEEP
CHECKING!...N.:...O.:...P.. **********
*******.Y.Q.. ** CURSOR PLOT **...R..
*****************...S.:...T..".":.781,
20:.782,0:.65520...U.:.$.V.:.?.W.. ***
***************.Z.X.. ** BOTTOM PANEL
**.U.Y.. ******************...^..". U.
..................................I".T.H
.." .....
."...R.." <CURSOR/JOYSTICK>-------<RET
URN/FIRE>"...|.." ...".........
> CLICK IMAGE PREVIEW FOR FULL MODAL