MENUWRITER
FILE INFORMATION
FILENAME(S): MENUWRITER
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 21:11:27
APPEARS ON: 1 disk(s)
FILE HASH
6f332cb441706cf9aee541025483a9476f354dc357849783ae41b64b2d0e2f4c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VERZAMEL 22 5 | MENUWRITER | PRG | DuncanTwain | 17 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 00 00 9E 32 30 37 33 00 00 00 20 52 |.......2073... R|
00000010: 08 4C 45 B7 20 52 08 4C 99 A4 20 52 08 AD FF 02 |.LE. R.L.. R....|
00000020: C9 64 F0 17 A9 3F 85 BB A9 08 85 BC A9 06 85 B7 |.d...?..........|
00000030: A9 00 85 B9 A2 00 A0 A0 20 D5 FF 68 68 4C 48 A0 |........ ..hhLH.|
00000040: 52 54 4C 2D 36 34 20 52 08 20 71 AF 20 5F 08 60 |RTL-64 R. q. _.`|
00000050: A2 01 60 A9 03 05 00 85 00 A9 FE 25 01 85 01 60 |..`........%...`|
00000060: 48 A9 03 05 00 85 00 A5 01 09 01 85 01 68 60 20 |H............h` |
00000070: 5F 08 20 47 A3 20 52 08 60 40 00 02 87 00 87 00 |_. G. R.`@......|
00000080: A6 00 00 00 E5 44 00 01 00 54 5B 0E 56 4C 2D 4D |.....D...T[.VL-M|
00000090: 45 4E 55 57 52 54 52 2F 44 50 00 86 44 4E 24 28 |ENUWRTR/DP..DN$(|
000000A0: 31 30 29 3A 41 00 2A 57 5E 02 8A 18 13 11 11 11 |10):A.*W^.......|
000000B0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000000C0: 11 11 11 11 D2 02 8A 28 1D 1D 1D 1D 1D 1D 1D 1D |.......(........|
000000D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000000E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000000F0: D2 09 00 99 C7 28 31 34 29 3B C7 28 38 29 3A 4A |.....(14);.(8):J|
00000100: BD 99 00 99 22 93 22 3A 88 90 50 20 00 00 86 50 |....".":..P ...P|
00000110: 88 90 50 21 00 00 80 50 8D 02 86 83 50 4A C7 AB |..P!...P....PJ..|
00000120: 8A 18 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000130: 11 11 11 11 11 11 11 11 11 11 D2 02 8A 28 1D 1D |.............(..|
00000140: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000150: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000160: 1D 1D 1D 1D 1D 1D D2 09 00 86 4E 4F 24 28 31 36 |..........NO$(16|
00000170: 29 3A 41 00 04 00 86 4E 52 24 28 31 36 29 3A 41 |):A....NR$(16):A|
00000180: 00 06 00 86 4E 46 24 28 31 36 29 3A 41 00 08 00 |....NF$(16):A...|
00000190: 86 4E 53 24 28 31 36 29 3A 41 00 0A 00 86 4E 52 |.NS$(16):A....NR|
000001A0: 28 31 36 29 3A 41 00 0C 00 86 48 24 28 36 35 29 |(16):A....H$(65)|
000001B0: 3A 41 00 0E 00 86 46 49 24 28 32 30 2C 31 35 29 |:A....FI$(20,15)|
000001C0: 3A 41 00 10 00 86 4F 50 24 28 32 30 2C 31 35 29 |:A....OP$(20,15)|
000001D0: 3A 41 00 12 00 86 52 45 24 28 32 30 2C 31 35 29 |:A....RE$(20,15)|
000001E0: 3A 41 00 14 00 86 52 4E 28 32 30 2C 31 35 29 3A |:A....RN(20,15):|
000001F0: 41 00 16 00 86 41 28 33 30 29 3A 41 00 18 00 99 |A....A(30):A....|
00000200: 22 93 22 3B 00 86 52 50 24 28 32 30 2C 31 35 29 |".";..RP$(20,15)|
00000210: 3A 41 00 1A 00 86 4E 54 28 32 30 29 3A 41 00 1C |:A....NT(20):A..|
00000220: 00 86 43 56 28 32 30 29 3A 41 00 1E 00 86 45 4E |..CV(20):A....EN|
00000230: 28 32 30 29 3A 41 00 20 00 86 54 24 28 32 30 2C |(20):A. ..T$(20,|
00000240: 35 29 3A 41 00 22 00 86 50 52 24 28 32 30 29 3A |5):A."..PR$(20):|
00000250: 41 00 24 00 86 4E 4D 24 28 32 30 32 29 3A 41 00 |A.$..NM$(202):A.|
00000260: 26 00 86 53 4C 24 28 32 30 29 3A 41 00 28 89 14 |&..SL$(20):A.(..|
00000270: D0 10 8A 28 20 20 20 20 20 20 20 20 20 20 20 20 |...( |
00000280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000290: 20 20 20 20 20 20 20 20 20 20 20 91 D2 17 8A 29 | ....)|
000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002C0: 20 20 20 20 20 20 20 20 91 D2 1E 90 2C D0 25 8A | ....,.%.|
000002D0: 00 D2 33 80 D0 3A 8A 01 20 D2 41 89 22 B8 13 D2 |..3..:.. .A."...|
000002E0: 48 48 F4 94 80 D1 4F 81 D0 56 92 5D B8 0F 42 00 |HH....O..V.]..B.|
000002F0: 56 92 5D 90 56 81 B8 16 92 33 2B 4F 0C 90 56 D1 |V.].V....3+O..V.|
00000300: 4F 92 5D B8 0F D0 56 47 00 56 4C 00 99 22 13 22 |O.]...VG.VL.."."|
00000310: 3B 43 24 00 99 22 13 22 3B A3 33 33 29 3B 22 D3 |;C$..".";.33);".|
00000320: C3 3A CD 22 3B 53 43 24 3A 4C 89 08 90 72 B8 10 |.:.";SC$:L...r..|
00000330: B8 0F 01 D0 25 89 28 92 6B B8 0F 02 90 25 02 D0 |....%.(.k....%..|
00000340: 2C 00 99 22 13 D6 4F 4C 55 4D 45 22 3B C4 28 43 |,.."..OLUME";.(C|
00000350: 56 29 3B 22 20 22 3B CA 28 54 50 24 2C 53 2C 4C |V);" ";.(TP$,S,L|
00000360: 4E 29 3B 22 20 22 3B 53 43 24 3A 4C 89 13 B8 13 |N);" ";SC$:L....|
00000370: 89 13 B8 13 01 89 93 B8 13 01 D2 80 92 02 89 16 |................|
00000380: B8 14 89 9D B8 13 01 89 8F B8 13 01 89 93 B8 13 |................|
00000390: 01 D2 87 92 87 89 13 B8 13 01 92 02 82 B8 14 01 |................|
000003A0: 89 0F B8 13 01 D2 87 92 02 89 17 B8 14 92 1E 01 |................|
000003B0: 92 02 89 18 B8 14 01 92 1E 01 8A 01 91 01 92 02 |................|
000003C0: 89 17 B8 14 01 D2 8E 8A 29 C0 C0 C0 C0 C0 C0 C0 |........).......|
000003D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000003E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000003F0: C0 91 D2 95 92 95 89 0C B8 14 D2 79 92 79 8A 10 |...........y.y..|
00000400: 20 CD 45 4E 55 20 C7 45 4E 45 52 41 54 4F 52 20 | .ENU .ENERATOR |
00000410: 01 92 79 01 D2 79 89 1B B8 13 D2 9C 8A 00 D2 A3 |..y..y..........|
00000420: 89 22 B8 13 D2 48 48 F2 F3 8A 00 D2 33 48 F3 45 |."...HH.....3H.E|
00000430: 00 A1 41 41 24 3A 92 41 8A 00 2B 4F 05 48 F3 D0 |..AA$:.A..+O.H..|
00000440: 92 41 B8 12 D0 AA 90 AA 89 14 2B 4F 05 48 F3 56 |.A........+O.H.V|
00000450: 90 AA 89 0D 2B 4F 03 4C 90 AA 89 20 2D 90 AA 89 |....+O.L... -...|
00000460: 7F 2A 90 AA 89 95 2D 06 07 90 AA 89 9B 2A 90 AA |.*....-......*..|
00000470: 89 A1 2D 06 07 90 AA 89 22 2B 07 90 AA 89 2C 2B |..-....."+....,+|
00000480: 07 90 AA 89 3A 2B 07 90 AA 89 3B 2B 07 4F 05 48 |....:+....;+.O.H|
00000490: F3 D0 92 33 92 33 B8 0F 91 B1 2B 92 33 B8 0F 01 |...3.3....+.3...|
000004A0: B8 14 92 41 01 D2 33 48 F3 45 92 33 92 33 B8 0F |...A..3H.E.3.3..|
000004B0: 92 33 B8 0F 80 2A 01 B8 14 D2 33 92 33 8A 03 12 |.3...*....3.3...|
000004C0: 20 92 01 92 17 01 91 B1 83 01 B8 14 D2 41 92 33 | ............A.3|
000004D0: B8 0F 91 B1 2B 4F 16 92 33 91 B1 81 02 B8 14 8A |....+O..3.......|
000004E0: 01 12 01 92 33 81 B8 15 01 D2 41 00 99 C8 28 59 |....3.....A...(Y|
000004F0: 24 2C 59 25 29 3B C8 28 58 24 2C 58 25 AB 31 29 |$,Y%);.(X$,X%.1)|
00000500: 3B 41 41 24 3B 22 92 22 3B 3A 48 F3 D0 00 99 22 |;AA$;".";:H...."|
00000510: 93 22 3B 00 99 C8 28 59 24 2C 36 29 3B A3 39 29 |.";...(Y$,6);.9)|
00000520: 3B 22 12 CD 45 4E 55 20 D0 52 4F 47 52 41 4D 20 |;"..ENU .ROGRAM |
00000530: C7 45 4E 45 52 41 54 4F 52 22 00 99 C8 28 59 24 |.ENERATOR"...(Y$|
00000540: 2C 31 30 29 3B A3 35 29 3B 22 CD 45 4E 55 20 47 |,10);.5);".ENU G|
00000550: 45 4E 45 52 41 54 49 4F 4E 20 2E 2E 2E 2E 2E 2E |ENERATION ......|
00000560: 2E 2E 2E 2E 2E 2E 4D 22 00 99 A3 35 29 3B 22 C4 |......M"...5);".|
00000570: 49 52 45 43 54 4F 52 59 20 2E 2E 2E 2E 2E 2E 2E |IRECTORY .......|
00000580: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 44 22 00 99 A3 |.........."D"...|
00000590: 27 9C 01 22 1F EF 1E EE EE 2E EE 22 2E EE E6 EE |'.."......."....|
000005A0: E8 EE 80 82 82 0E 38 02 E2 E2 FE EE 9E 9E 9E EE |......8.........|
000005B0: EE EE F2 EE EE 3E 2E 7E E1 EE 22 DE E2 EE 2E EE |.....>.~..".....|
000005C0: EE ED 2E EE EE AE 6E 3E ED ED 0E AD 0E EE EE DE |......n>........|
000005D0: DE DE DE DE EE EE EE F3 3F EE EE 3E 7E EA EE 2D |........?..>~..-|
000005E0: 2E DE FE DE DE DE DE DE DE DE DE DE DE DE DE DE |................|
000005F0: DE DE DE DE 2E 2E 2E 2E 2E 2E 58 22 00 99 C8 28 |..........X"...(|
00000600: 59 24 2C 32 34 29 3B A3 35 29 3B 22 C3 4F 50 59 |Y$,24);.5);".OPY|
00000610: 52 49 47 48 54 20 31 39 38 32 2C 20 C3 4F 52 54 |RIGHT 1982, .ORT|
00000620: 45 43 48 53 20 C3 4F 52 50 2E 22 3B 00 99 C8 28 |ECHS .ORP.";...(|
00000630: 59 24 2C 32 30 29 3B A3 35 29 3B 22 D0 52 45 53 |Y$,20);.5);".RES|
00000640: 53 20 4C 45 54 54 45 52 20 4F 46 20 59 4F 55 52 |S LETTER OF YOUR|
00000650: 20 43 48 4F 49 43 45 20 22 3B 3A 89 14 D1 B8 89 | CHOICE ";:.....|
00000660: 22 D1 BF 81 D1 B1 4A F3 D7 92 33 8A 01 58 2E 4F |".....J...3..X.O|
00000670: 05 48 F0 64 8D 03 FB B8 0E 89 FF 2E 4F 0C 00 99 |.H.d........O...|
00000680: 22 93 22 3A 5E 03 00 80 00 9F 31 35 2C 38 2C 31 |".":^.....15,8,1|
00000690: 35 00 9F 32 2C 38 2C 32 2C 22 4D 45 4E 55 22 3A |5..2,8,2,"MENU":|
000006A0: 4A C5 C4 00 A0 32 3A 90 C6 89 14 2D 4F 05 48 F0 |J....2:....-O.H.|
000006B0: F5 00 99 22 93 11 11 11 11 11 20 20 20 20 20 20 |..."...... |
000006C0: 20 27 CD 45 4E 55 27 20 49 53 20 4E 4F 54 20 4F | '.ENU' IS NOT O|
000006D0: 4E 20 54 48 49 53 20 44 49 53 4B 2C 22 00 99 22 |N THIS DISK,".."|
000006E0: 20 20 20 20 20 20 20 20 20 D0 52 45 53 53 20 12 | .RESS .|
000006F0: D2 C5 D4 D5 D2 CE 92 20 57 48 45 4E 20 52 45 41 |....... WHEN REA|
00000700: 44 59 2E 22 3A 4A C8 05 48 F2 F3 00 99 22 93 11 |DY.":J..H...."..|
00000710: 11 11 11 11 11 22 3B A3 37 29 22 2A 2A 2A 2A 2A |.....";.7)"*****|
00000720: 2A 20 12 CC 4F 41 44 49 4E 47 20 CD 45 4E 55 92 |* ..OADING .ENU.|
00000730: 20 2A 2A 2A 2A 2A 2A 22 3A 8D 03 FA 8D 02 86 B8 | ******":.......|
00000740: 0E 50 8D 02 86 88 90 50 21 00 00 B8 0E 50 89 22 |.P.....P!....P."|
00000750: B8 13 D2 48 00 99 22 13 4C 4F 41 44 22 3B 51 24 |...H..".LOAD";Q$|
00000760: 3B 22 4D 45 4E 55 22 3B 51 24 3B 22 2C 38 22 3A |;"MENU";Q$;",8":|
00000770: 89 C6 86 50 8D 02 77 89 13 50 8D 02 78 89 0D 50 |...P..w..P..x..P|
00000780: 8D 02 79 89 52 50 8D 02 7A 89 55 50 8D 02 7B 89 |..y.RP..z.UP..{.|
00000790: 4E 50 8D 02 7C 89 0D 50 5E 03 00 80 3A 8A 04 4D |NP..|..P^...:..M|
000007A0: 46 44 53 D2 5D 4A F5 1C 91 4F 4E 08 EB 9B F0 49 |FDS.]J...ON....I|
000007B0: CB A6 C5 B0 48 F2 F3 00 99 22 93 22 00 99 A3 31 |....H...."."...1|
000007C0: 30 29 3B 22 12 C6 4F 52 4D 41 54 20 D5 54 49 4C |0);"..ORMAT .TIL|
000007D0: 49 54 59 12 22 00 99 00 99 A3 32 29 3B 22 D4 48 |ITY.".....2);".H|
000007E0: 49 53 20 57 49 4C 4C 20 46 4F 52 4D 41 54 20 41 |IS WILL FORMAT A|
000007F0: 20 42 4C 41 4E 4B 20 44 49 53 4B 2C 22 00 99 A3 | BLANK DISK,"...|
00000800: 32 29 3B 22 44 45 53 54 52 4F 59 49 4E 47 20 41 |2);"DESTROYING A|
00000810: 4E 59 20 4F 4C 44 20 44 41 54 41 20 4F 4E 20 49 |NY OLD DATA ON I|
00000820: 54 22 00 99 00 99 A3 32 29 3B 22 D4 4F 20 52 45 |T".....2);".O RE|
00000830: 54 55 52 4E 20 54 4F 20 4D 45 4E 55 20 48 49 54 |TURN TO MENU HIT|
00000840: 20 12 46 31 92 2E 22 00 99 00 99 A3 32 29 3B 22 | .F1..".....2);"|
00000850: D4 4F 20 46 4F 52 4D 41 54 20 41 20 44 49 53 4B |.O FORMAT A DISK|
00000860: 2C 20 50 4C 41 43 45 20 49 54 20 49 4E 20 44 52 |, PLACE IT IN DR|
00000870: 49 56 45 22 00 99 A3 32 29 3B 22 41 4E 44 20 48 |IVE"...2);"AND H|
00000880: 49 54 20 12 D2 C5 D4 D5 D2 CE 92 22 3B 00 A1 41 |IT ........";..A|
00000890: 41 24 3A 92 41 89 0D B8 13 2E 92 41 89 85 B8 13 |A$:.A......A....|
000008A0: 2E 06 4F 05 48 EF 73 92 41 89 85 B8 13 2B 4F 03 |..O.H.s.A....+O.|
000008B0: 4C 00 99 22 93 22 3B 00 99 00 99 00 99 22 C9 4E |L..".";......".N|
000008C0: 50 55 54 20 41 20 C4 49 53 4B 20 D4 49 54 4C 45 |PUT A .ISK .ITLE|
000008D0: 20 28 31 36 20 43 48 41 52 41 43 54 45 52 53 20 | (16 CHARACTERS |
000008E0: 4D 41 58 29 22 00 99 22 D4 49 54 4C 45 20 3A 22 |MAX)"..".ITLE :"|
000008F0: 3A 89 08 D1 BF 84 D1 B8 89 10 D1 B1 4A F3 D7 92 |:...........J...|
00000900: 33 8A 00 2B 4F 05 48 EF 10 92 33 D2 CD 00 99 22 |3..+O.H...3...."|
00000910: 93 11 11 11 11 20 CD 41 4B 45 20 53 55 52 45 20 |..... .AKE SURE |
00000920: 54 48 45 20 43 4F 52 52 45 43 54 20 44 49 53 4B |THE CORRECT DISK|
00000930: 20 49 53 20 49 4E 20 54 48 45 22 00 99 22 20 44 | IS IN THE".." D|
00000940: 52 49 56 45 2E 20 D0 52 45 53 53 20 27 43 27 20 |RIVE. .RESS 'C' |
00000950: 54 4F 20 43 4F 4E 46 49 52 4D 20 46 4F 52 4D 41 |TO CONFIRM FORMA|
00000960: 54 2C 20 4F 52 22 00 99 22 20 12 D2 C5 D4 D5 D2 |T, OR".." ......|
00000970: CE 92 20 54 4F 20 41 42 4F 52 54 2E 22 00 A1 41 |.. TO ABORT."..A|
00000980: 41 24 3A 92 41 8A 01 43 2E 92 41 89 0D B8 13 2E |A$:.A..C..A.....|
00000990: 06 4F 05 48 EE 83 92 41 89 0D B8 13 2B 4F 03 4C |.O.H...A....+O.L|
000009A0: 00 9F 31 35 2C 38 2C 31 35 00 9F 32 2C 38 2C 32 |..15,8,15..2,8,2|
000009B0: 2C 22 24 30 22 3A 4A C5 C4 00 A0 32 3A 90 C6 89 |,"$0":J....2:...|
000009C0: 13 2A 4F 05 48 ED EB 00 99 22 93 22 3B C8 28 59 |.*O.H....".";.(Y|
000009D0: 24 2C 35 29 3B A3 31 31 29 22 12 CE 4F 57 20 C6 |$,5);.11)"..OW .|
000009E0: 4F 52 4D 41 54 54 49 4E 47 20 C4 49 53 4B 12 22 |ORMATTING .ISK."|
000009F0: 00 9F 31 35 2C 38 2C 31 35 00 98 31 35 2C 22 4E |..15,8,15..15,"N|
00000A00: 30 3A 22 3B 44 54 24 3B 22 2C 30 32 22 00 A0 31 |0:";DT$;",02"..1|
00000A10: 35 3A 48 ED 94 00 99 22 93 22 3B C8 28 59 24 2C |5:H....".";.(Y$,|
00000A20: 35 29 3B 22 20 20 20 20 C4 52 49 56 45 20 4E 4F |5);" .RIVE NO|
00000A30: 54 20 52 45 41 44 59 2E 20 D0 52 45 53 53 20 12 |T READY. .RESS .|
00000A40: D2 C5 D4 D5 D2 CE 92 22 00 A1 41 41 24 3A 92 41 |......."..AA$:.A|
00000A50: 8A 00 2B 4F 05 48 ED B8 92 41 B8 12 89 0D 2E 4F |..+O.H...A.....O|
00000A60: 05 48 ED B8 00 A0 31 35 3A 48 F0 49 00 99 22 93 |.H....15:H.I..".|
00000A70: 22 00 99 00 99 A3 31 33 29 22 C4 C9 D3 CB A0 C6 |".....13)"......|
00000A80: CF D2 CD C1 D4 D4 C5 C4 22 3A 4A C8 05 4C 00 99 |........":J..L..|
00000A90: 22 93 11 11 11 11 20 D0 4C 41 43 45 20 54 48 45 |"..... .LACE THE|
00000AA0: 20 44 49 53 4B 20 43 4F 4E 54 41 49 4E 49 4E 47 | DISK CONTAINING|
00000AB0: 20 54 48 45 20 50 52 4F 47 52 41 4D 53 22 00 99 | THE PROGRAMS"..|
00000AC0: 22 20 59 4F 55 20 57 49 53 48 20 54 4F 20 49 4E |" YOU WISH TO IN|
00000AD0: 43 4C 55 44 45 20 49 4E 20 59 4F 55 52 20 4D 45 |CLUDE IN YOUR ME|
00000AE0: 4E 55 20 49 4E 22 00 99 22 20 |NU IN".." |
.......2073... R.LE. R.L.. R....ID...?..
.............. U.HHLH RTL-64 R. Q. _.`
..`........%...`H............H` _. G. R.
`@...........D...T[.VL-MENUWRTR/DP..DN$(
10):A.*W^...........................R..(
........................................
R...G(14);G(8):J....".":..P ...P..P!...P
....PJG...........................R..(..
......................................R.
..NO$(16):A....NR$(16):A....NF$(16):A...
.NS$(16):A....NR(16):A....H$(65):A....FI
$(20,15):A....OP$(20,15):A....RE$(20,15)
:A....RN(20,15):A....A(30):A....".";..RP
$(20,15):A....NT(20):A....CV(20):A....EN
(20):A. ..T$(20,5):A."..PR$(20):A.$..NM$
(202):A.&..SL$(20):A.(..P..(
.R..)
.R..,P%.
.R3.P:.. RA."..RHH...QO.PV.]..B.V.].V...
.3+O..VQO.]..PVG.VL..".";C$..".";.33);"S
C:M";SC$:L...R.....P%.(.K....%.P,..".VOL
UME";D(CV);" ";J(TP$,S,LN);" ";SC$:L....
..........R......................R......
.............R..........................
.....R..)...............................
..........R.......RY.Y.. MENU GENERATOR
..Y.RY....R...R.."..RHH....R3H.E..AA$:.A
..+O.H.P.A..P.....+O.H.V....+O.L... -...
*....-......*....-....."+....,+....:+..
..;+.O.H.P.3.3....+.3......A.R3H.E.3.3..
.3...*...R3.3... ...........RA.3....+O..
3...........3....RA..H(Y$,Y%);H(X$,X%.1)
;AA$;".";:H.P..".";..H(Y$,6);.9);".MENU
PROGRAM GENERATOR"..H(Y$,10);.5);"MENU G
ENERATION ............M"...5);"DIRECTORY
................."D"...'.."......."....
......8..............>.~.."...........N>
................?..>~..-................
..........X"..H(Y$,24);.5);"COPYRIGHT 19
82, CORTECHS CORP.";..H(Y$,20);.5);"PRES
S LETTER OF YOUR CHOICE ";:..Q.."Q..Q.J.
W.3..X.O.H.D........O...".":^.....15,8,1
5..2,8,2,"MENU":JED. 2:.F..-O.H...."....
.. 'MENU' IS NOT ON THIS DISK,".."
PRESS .RETURN. WHEN READY.":JH.
H....".......";.7)"****** .LOADING MENU.
******":........P.....P!....P."..RH..".
LOAD";Q$;"MENU";Q$;",8":.F.P..W..P..X..P
..Y.RP..Z.UP..{.NP..|..P^...:..MFDSR]J..
.ON....IK.E.H...."."...10);".FORMAT UTIL
ITY.".....2);"THIS WILL FORMAT A BLANK D
ISK,"...2);"DESTROYING ANY OLD DATA ON I
T".....2);"TO RETURN TO MENU HIT .F1..".
....2);"TO FORMAT A DISK, PLACE IT IN DR
IVE"...2);"AND HIT .RETURN.";..AA$:.A...
...A......O.H.S.A....+O.L..".";......"IN
PUT A DISK TITLE (16 CHARACTERS MAX)".."
TITLE :":..Q..Q...Q.J.W.3..+O.H...3RM.."
..... MAKE SURE THE CORRECT DISK IS IN T
HE".." DRIVE. PRESS 'C' TO CONFIRM FORMA
T, OR".." .RETURN. TO ABORT."..AA$:.A..C
..A......O.H...A....+O.L..15,8,15..2,8,2
,"$0":JED. 2:.F..*O.H....".";H(Y$,5);.11
)".NOW FORMATTING DISK."..15,8,15..15,"N
0:";DT$;",02". 15:H....".";H(Y$,5);"
DRIVE NOT READY. PRESS .RETURN."..AA$:.A
..+O.H...A.....O.H... 15:H.I..".".....13
)"DISK FORMATTED":JH.L.."..... PLACE THE
DISK CONTAINING THE PROGRAMS".." YOU WI
SH TO INCLUDE IN YOUR MENU IN".."
> CLICK IMAGE PREVIEW FOR FULL MODAL