MENU SYSTEM
FILE INFORMATION
FILENAME(S): MENU SYSTEM
FILE TYPE(S): PRG
FILE SIZE: 2.4K
FIRST SEEN: 2025-10-19 22:48:33
APPEARS ON: 1 disk(s)
FILE HASH
e980c334224a5d389351d2e7bb13dcf2dbc633b665975cf06bafbacdb8a95d68
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAZETTE OCT 86 | MENU SYSTEM | PRG | Radd Maxx | 23 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3A 08 0A 00 86 20 50 24 28 32 30 29 2C 4C |..:.... P$(20),L| 00000010: 24 28 32 30 29 2C 45 24 28 32 30 29 2C 53 24 28 |$(20),E$(20),S$(| 00000020: 32 30 29 2C 52 24 28 32 30 29 3A 51 24 B2 C7 28 |20),R$(20):Q$..(| 00000030: 33 34 29 3A 43 24 B2 22 2C 22 00 64 08 14 00 4D |34):C$.",".d...M| 00000040: 24 B2 22 49 4E 53 45 52 54 20 44 49 53 4B 20 41 |$."INSERT DISK A| 00000050: 4E 44 20 50 52 45 53 53 20 41 20 4B 45 59 22 3A |ND PRESS A KEY":| 00000060: 8D 35 36 30 00 9D 08 1E 00 53 31 24 B2 22 35 20 |.560.....S1$."5 | 00000070: 44 49 4D 50 24 28 32 30 29 2C 4C 24 28 32 30 29 |DIMP$(20),L$(20)| 00000080: 2C 4A 24 28 32 30 29 2C 53 24 28 32 30 29 2C 52 |,J$(20),S$(20),R| 00000090: 24 28 32 30 29 2C 45 24 28 32 30 29 22 00 B8 08 |$(20),E$(20)"...| 000000A0: 28 00 53 32 24 B2 22 31 30 20 58 3D 31 3A 46 24 |(.S2$."10 X=1:F$| 000000B0: 3D 22 AA C7 28 33 34 29 00 E5 08 32 00 53 32 24 |="..(34)...2.S2$| 000000C0: B2 53 32 24 AA 22 93 11 11 11 11 11 11 11 11 11 |.S2$."..........| 000000D0: 11 11 11 11 11 11 11 11 11 11 11 11 11 53 45 4C |.............SEL| 000000E0: 45 43 54 13 22 00 15 09 3C 00 53 33 24 B2 22 32 |ECT."...<.S3$."2| 000000F0: 30 20 46 4F 52 4E 3D 31 54 4F 32 30 3A 45 24 28 |0 FORN=1TO20:E$(| 00000100: 4E 29 3D 22 AA C7 28 33 34 29 AA 22 2C 38 22 AA |N)="..(34).",8".| 00000110: C7 28 33 34 29 00 3A 09 46 00 53 33 24 B2 53 33 |.(34).:.F.S3$.S3| 00000120: 24 AA 22 3A 4E 45 58 54 3A 4F 50 45 4E 32 2C 38 |$.":NEXT:OPEN2,8| 00000130: 2C 32 2C 22 AA C7 28 33 34 29 00 80 09 50 00 53 |,2,"..(34)...P.S| 00000140: 33 24 B2 53 33 24 AA 22 30 3A 2E 4D 2C 53 2C 52 |3$.S3$."0:.M,S,R| 00000150: 22 AA C7 28 33 34 29 AA 22 3A 4D 24 3D 22 AA C7 |"..(34).":M$="..| 00000160: 28 33 34 29 AA 22 2C 38 2C 31 22 AA C7 28 33 34 |(34).",8,1"..(34| 00000170: 29 AA 22 3A 51 24 3D 43 48 52 24 28 33 34 29 22 |).":Q$=CHR$(34)"| 00000180: 00 CD 09 5A 00 53 34 24 B2 22 33 30 20 46 4F 52 |...Z.S4$."30 FOR| 00000190: 4E 3D 31 54 4F 32 30 3A 49 4E 50 55 54 23 32 2C |N=1TO20:INPUT#2,| 000001A0: 50 24 28 4E 29 2C 4C 24 28 4E 29 2C 4A 24 28 4E |P$(N),L$(N),J$(N| 000001B0: 29 2C 53 24 28 4E 29 2C 52 24 28 4E 29 3A 49 46 |),S$(N),R$(N):IF| 000001C0: 4A 24 28 4E 29 3D 22 AA C7 28 33 34 29 00 F2 09 |J$(N)="..(34)...| 000001D0: 64 00 53 34 24 B2 53 34 24 AA 22 31 22 AA C7 28 |d.S4$.S4$."1"..(| 000001E0: 33 34 29 AA 22 54 48 45 4E 45 24 28 4E 29 3D 4D |34)."THENE$(N)=M| 000001F0: 24 22 00 2B 0A 6E 00 53 35 24 B2 22 34 30 20 4E |$".+.n.S5$."40 N| 00000200: 45 58 54 3A 43 4C 4F 53 45 32 3A 50 52 49 4E 54 |EXT:CLOSE2:PRINT| 00000210: 46 24 3A 46 4F 52 4E 3D 31 54 4F 32 30 3A 50 52 |F$:FORN=1TO20:PR| 00000220: 49 4E 54 4E 3B 54 41 42 28 34 29 00 67 0A 78 00 |INTN;TAB(4).g.x.| 00000230: 53 35 24 B2 53 35 24 AA 22 3B 50 24 28 4E 29 3A |S5$.S5$.";P$(N):| 00000240: 4E 45 58 54 3A 49 4E 50 55 54 22 AA C7 28 33 34 |NEXT:INPUT"..(34| 00000250: 29 AA 22 1D 1D 1D 1D 1D 1D 1D 11 22 AA C7 28 33 |)."........"..(3| 00000260: 34 29 AA 22 3B 4B 22 00 AF 0A 82 00 53 36 24 B2 |4).";K".....S6$.| 00000270: 22 35 30 20 50 52 49 4E 54 22 AA C7 28 33 34 29 |"50 PRINT"..(34)| 00000280: AA 22 93 11 11 11 4C 4F 41 44 22 AA C7 28 33 34 |."....LOAD"..(34| 00000290: 29 AA 22 3B 51 24 3B 50 24 28 4B 29 3B 51 24 3B |).";Q$;P$(K);Q$;| 000002A0: 45 24 28 4B 29 3A 49 46 53 24 28 4B 29 3E 22 00 |E$(K):IFS$(K)>".| 000002B0: ED 0A 8C 00 53 36 24 B2 53 36 24 AA C7 28 33 34 |....S6$.S6$..(34| 000002C0: 29 AA 22 30 22 AA C7 28 33 34 29 AA 22 54 48 45 |)."0"..(34)."THE| 000002D0: 4E 50 52 49 4E 54 22 AA C7 28 33 34 29 AA 22 11 |NPRINT"..(34).".| 000002E0: 11 11 11 53 59 53 22 AA C7 28 33 34 29 00 08 0B |...SYS"..(34)...| 000002F0: 96 00 53 36 24 B2 53 36 24 AA 22 3B 53 24 28 4B |..S6$.S6$.";S$(K| 00000300: 29 3A 58 3D 58 2B 31 22 00 4A 0B A0 00 53 37 24 |):X=X+1".J...S7$| 00000310: B2 22 36 30 20 49 46 52 24 28 4B 29 3D 22 AA C7 |."60 IFR$(K)="..| 00000320: 28 33 34 29 AA 22 59 22 AA C7 28 33 34 29 AA 22 |(34)."Y"..(34)."| 00000330: 54 48 45 4E 50 52 49 4E 54 22 AA C7 28 33 34 29 |THENPRINT"..(34)| 00000340: AA 22 11 11 11 11 52 55 4E 22 00 8A 0B AA 00 53 |."....RUN".....S| 00000350: 37 24 B2 53 37 24 AA C7 28 33 34 29 AA 22 3A 58 |7$.S7$..(34).":X| 00000360: 3D 58 2B 31 3A 49 46 53 24 28 4B 29 3E 22 AA C7 |=X+1:IFS$(K)>"..| 00000370: 28 33 34 29 AA 22 30 22 AA C7 28 33 34 29 AA 22 |(34)."0"..(34)."| 00000380: 54 48 45 4E 50 52 49 4E 54 22 00 AA 0B B4 00 53 |THENPRINT".....S| 00000390: 37 24 B2 53 37 24 AA C7 28 33 34 29 AA 22 91 91 |7$.S7$..(34)."..| 000003A0: 52 55 4E 22 AA C7 28 33 34 29 00 F1 0B BE 00 53 |RUN"..(34).....S| 000003B0: 38 24 B2 22 37 30 20 46 4F 52 5A 3D 30 54 4F 58 |8$."70 FORZ=0TOX| 000003C0: 3A 42 3D 36 33 31 2B 5A 3A 50 4F 4B 45 42 2C 31 |:B=631+Z:POKEB,1| 000003D0: 33 3A 50 4F 4B 45 31 39 38 2C 5A 3A 4E 45 58 54 |3:POKE198,Z:NEXT| 000003E0: 3A 50 52 49 4E 54 22 AA C7 28 33 34 29 AA 22 13 |:PRINT"..(34).".| 000003F0: 22 00 03 0C C8 00 53 38 24 B2 53 38 24 AA C7 28 |".....S8$.S8$..(| 00000400: 33 34 29 00 29 0C D2 00 99 22 93 05 11 11 11 20 |34).)...."..... | 00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E | MEN| 00000420: 55 20 53 59 53 54 45 4D 22 00 57 0C DC 00 99 22 |U SYSTEM".W...."| 00000430: 11 11 11 11 11 20 20 20 20 20 20 20 20 12 20 46 |..... . F| 00000440: 31 20 92 2E 2E 2E 43 52 45 41 54 45 20 4D 45 4E |1 ....CREATE MEN| 00000450: 55 20 46 49 4C 45 22 00 7F 0C E6 00 99 22 11 20 |U FILE"......". | 00000460: 20 20 20 20 20 20 20 12 20 46 32 20 92 2E 2E 2E | . F2 ....| 00000470: 4C 4F 41 44 20 4D 45 4E 55 20 46 49 4C 45 22 00 |LOAD MENU FILE".| 00000480: A7 0C F0 00 99 22 11 20 20 20 20 20 20 20 20 12 |.....". .| 00000490: 20 46 33 20 92 2E 2E 2E 45 44 49 54 20 4D 45 4E | F3 ....EDIT MEN| 000004A0: 55 20 46 49 4C 45 22 00 CF 0C FA 00 99 22 11 20 |U FILE"......". | 000004B0: 20 20 20 20 20 20 20 12 20 46 34 20 92 2E 2E 2E | . F4 ....| 000004C0: 53 41 56 45 20 4D 45 4E 55 20 46 49 4C 45 22 00 |SAVE MENU FILE".| 000004D0: FA 0C 04 01 99 22 11 20 20 20 20 20 20 20 20 12 |.....". .| 000004E0: 20 46 35 20 92 2E 2E 2E 57 52 49 54 45 20 4D 45 | F5 ....WRITE ME| 000004F0: 4E 55 20 44 52 49 56 45 52 22 00 17 0D 0E 01 A1 |NU DRIVER"......| 00000500: 4B 24 3A 8B 4B 24 B2 C7 28 31 33 33 29 A7 8D 35 |K$:.K$..(133)..5| 00000510: 36 30 3A 89 33 39 30 00 2A 0D 18 01 8B 4B 24 B2 |60:.390.*....K$.| 00000520: C7 28 31 33 37 29 A7 33 33 30 00 3D 0D 22 01 8B |.(137).330.=."..| 00000530: 4B 24 B2 C7 28 31 33 34 29 A7 33 39 30 00 50 0D |K$..(134).390.P.| 00000540: 2C 01 8B 4B 24 B2 C7 28 31 33 38 29 A7 33 36 30 |,..K$..(138).360| 00000550: 00 63 0D 36 01 8B 4B 24 B2 C7 28 31 33 35 29 A7 |.c.6..K$..(135).| 00000560: 36 30 30 00 6C 0D 40 01 89 32 37 30 00 87 0D 4A |600.l.@..270...J| 00000570: 01 8D 35 37 30 3A 9F 32 2C 38 2C 32 2C 22 30 3A |..570:.2,8,2,"0:| 00000580: 2E 4D 2C 53 2C 52 22 00 B6 0D 54 01 81 4E B2 31 |.M,S,R"...T..N.1| 00000590: A4 32 30 3A 84 32 2C 50 24 28 4E 29 2C 4C 24 28 |.20:.2,P$(N),L$(| 000005A0: 4E 29 2C 45 24 28 4E 29 2C 53 24 28 4E 29 2C 52 |N),E$(N),S$(N),R| 000005B0: 24 28 4E 29 3A 82 00 C2 0D 5E 01 A0 32 3A 89 33 |$(N):....^..2:.3| 000005C0: 39 30 00 DE 0D 68 01 8D 35 37 30 3A 9F 32 2C 38 |90...h..570:.2,8| 000005D0: 2C 32 2C 22 40 30 3A 2E 4D 2C 53 2C 57 22 00 13 |,2,"@0:.M,S,W"..| 000005E0: 0E 72 01 81 4E B2 31 A4 32 30 3A 98 32 2C 50 24 |.r..N.1.20:.2,P$| 000005F0: 28 4E 29 43 24 4C 24 28 4E 29 43 24 45 24 28 4E |(N)C$L$(N)C$E$(N| 00000600: 29 43 24 53 24 28 4E 29 43 24 52 24 28 4E 29 43 |)C$S$(N)C$R$(N)C| 00000610: 24 3A 82 00 1F 0E 7C 01 A0 32 3A 89 32 31 30 00 |$:....|..2:.210.| 00000620: 4D 0E 86 01 99 22 93 12 45 44 49 54 20 4F 50 54 |M...."..EDIT OPT| 00000630: 49 4F 4E 11 22 3A 81 4E B2 31 A4 39 3A 99 4E 3B |ION.":.N.1.9:.N;| 00000640: C8 28 50 24 28 4E 29 2C 31 36 29 3A 82 00 83 0E |.(P$(N),16):....| 00000650: 90 01 99 22 31 30 20 22 3B C8 28 50 24 28 31 30 |..."10 ";.(P$(10| 00000660: 29 2C 31 36 29 3B 22 91 91 91 91 91 91 91 91 91 |),16);".........| 00000670: 91 22 3A 81 4E B2 31 31 A4 32 30 3A 99 A3 31 39 |.":.N.11.20:..19| 00000680: 29 4E 3B 00 BC 0E 9A 01 99 C8 28 50 24 28 4E 29 |)N;.......(P$(N)| 00000690: 2C 31 36 29 3A 82 3A 99 22 11 20 12 45 92 20 54 |,16):.:.". .E. T| 000006A0: 4F 20 45 44 49 54 20 4F 52 20 12 52 45 54 55 52 |O EDIT OR .RETUR| 000006B0: 4E 92 20 46 4F 52 20 4D 45 4E 55 22 00 CF 0E A4 |N. FOR MENU"....| 000006C0: 01 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 34 32 30 00 |..K$:.K$."".420.| 000006D0: E1 0E AE 01 8B 4B 24 B2 C7 28 31 33 29 A7 32 31 |.....K$..(13).21| 000006E0: 30 00 F2 0E B8 01 8B 4B 24 B3 B1 22 45 22 A7 34 |0......K$.."E".4| 000006F0: 32 30 00 30 0F C2 01 99 22 13 11 11 11 11 11 11 |20.0....".......| 00000700: 11 11 11 11 11 11 11 20 20 20 20 20 20 20 20 20 |....... | 00000710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 91 22 | ."| 00000730: 00 64 0F CC 01 85 22 57 48 49 43 48 20 44 49 47 |.d...."WHICH DIG| 00000740: 49 54 20 54 4F 20 45 44 49 54 22 3B 4E 24 3A 4E |IT TO EDIT";N$:N| 00000750: B2 C5 28 4E 24 29 3A 8B 4E B3 31 B0 4E B1 32 30 |..(N$):.N.1.N.20| 00000760: A7 34 35 30 00 97 0F D6 01 85 22 11 45 4E 54 45 |.450......".ENTE| 00000770: 52 20 50 52 4F 47 52 41 4D 20 4E 41 4D 45 22 3B |R PROGRAM NAME";| 00000780: 50 24 28 4E 29 3A 50 24 28 4E 29 B2 C8 28 50 24 |P$(N):P$(N)..(P$| 00000790: 28 4E 29 2C 33 35 29 00 C7 0F E0 01 85 22 11 45 |(N),35)......".E| 000007A0: 4E 54 45 52 20 42 4F 4F 54 20 4E 41 4D 45 22 3B |NTER BOOT NAME";| 000007B0: 4C 24 28 4E 29 3A 4C 24 28 4E 29 B2 C8 28 4C 24 |L$(N):L$(N)..(L$| 000007C0: 28 4E 29 2C 31 36 29 00 F9 0F EA 01 85 22 11 45 |(N),16)......".E| 000007D0: 4E 54 45 52 20 12 20 31 20 92 20 46 4F 52 20 38 |NTER . 1 . FOR 8| 000007E0: 2C 31 A0 4F 52 20 12 20 30 20 92 20 46 4F 52 20 |,1.OR . 0 . FOR | 000007F0: 2C 38 22 3B 45 24 28 4E 29 00 1C 10 F4 01 85 22 |,8";E$(N)......"| 00000800: 11 45 4E 54 45 52 20 53 59 53 23 20 4F 52 20 52 |.ENTER SYS# OR R| 00000810: 45 54 55 52 4E 22 3B 53 24 28 4E 29 00 46 10 FE |ETURN";S$(N).F..| 00000820: 01 8B 20 53 24 28 4E 29 B2 C7 28 31 33 29 B0 53 |.. S$(N)..(13).S| 00000830: 24 28 4E 29 B2 22 22 A7 53 24 28 4E 29 B2 22 20 |$(N)."".S$(N)." | 00000840: 22 3A 89 35 33 30 00 5E 10 08 02 8B 53 24 28 4E |":.530.^....S$(N| 00000850: 29 B2 22 22 A7 53 24 28 4E 29 B2 22 20 22 00 92 |)."".S$(N)." "..| 00000860: 10 12 02 85 22 11 52 55 4E 20 43 4F 4D 4D 41 4E |....".RUN COMMAN| 00000870: 44 20 4E 45 45 44 45 44 22 3B 52 24 28 4E 29 3A |D NEEDED";R$(N):| 00000880: 52 24 28 4E 29 B2 C8 28 28 52 24 28 4E 29 29 2C |R$(N)..((R$(N)),| 00000890: 31 29 00 B9 10 1C 02 8B 52 24 28 4E 29 B3 B1 22 |1)......R$(N).."| 000008A0: 4E 22 AF 52 24 28 4E 29 B3 B1 22 59 22 A7 99 22 |N".R$(N).."Y".."| 000008B0: 91 91 91 22 3A 89 35 33 30 00 C2 10 26 02 89 33 |...":.530...&..3| 000008C0: 39 30 00 04 11 30 02 81 4E B2 31 A4 32 30 3A 50 |90...0..N.1.20:P| 000008D0: 24 28 4E 29 B2 22 20 22 3A 4C 24 28 4E 29 B2 22 |$(N)." ":L$(N)."| 000008E0: 20 22 3A 45 24 28 4E 29 B2 22 20 22 3A 53 24 28 | ":E$(N)." ":S$(| 000008F0: 4E 29 B2 22 20 22 3A 52 24 28 4E 29 B2 22 20 22 |N)." ":R$(N)." "| 00000900: 3A 82 3A 8E 00 1F 11 3A 02 99 22 93 11 11 11 11 |:.:....:..".....| 00000910: 11 11 11 11 1D 1D 1D 1D 1D 1D 12 22 3B 4D 24 00 |...........";M$.| 00000920: 32 11 44 02 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 35 |2.D..K$:.K$."".5| 00000930: 38 30 00 38 11 4E 02 8E 00 49 11 58 02 99 22 93 |80.8.N...I.X..".| 00000940: 11 11 11 4E 45 57 11 11 22 00 75 11 62 02 99 53 |...NEW..".u.b..S| 00000950: 31 24 3A 99 53 32 24 3A 99 53 33 24 3A 99 53 34 |1$:.S2$:.S3$:.S4| 00000960: 24 3A 99 53 35 24 3A 99 53 36 24 3A 99 53 37 24 |$:.S5$:.S6$:.S7$| 00000970: 3A 99 53 38 24 00 A6 11 6C 02 99 22 53 41 56 45 |:.S8$...l.."SAVE| 00000980: 22 AA C7 28 33 34 29 AA 22 40 30 3A 4D 45 4E 55 |"..(34)."@0:MENU| 00000990: 22 AA C7 28 33 34 29 AA 22 2C 38 3A 53 59 53 36 |"..(34).",8:SYS6| 000009A0: 34 37 33 38 13 22 00 C9 11 76 02 81 5A B2 30 A4 |4738."...v..Z.0.| 000009B0: 31 30 3A 97 36 33 31 AA 5A 2C 31 33 3A 97 31 39 |10:.631.Z,13:.19| 000009C0: 38 2C 5A AA 31 3A 82 3A 80 00 00 00 |8,Z.1:.:.... |
..:.... P$(20),L$(20),E$(20),S$(20),R$(2
0):Q$.G(34):C$.",".D...M$."INSERT DISK A
ND PRESS A KEY":.560.....S1$."5 DIMP$(20
),L$(20),J$(20),S$(20),R$(20),E$(20)"...
(.S2$."10 X=1:F$=".G(34)...2.S2$.S2$."..
.....................SELECT."...<.S3$."2
0 FORN=1TO20:E$(N)=".G(34).",8".G(34).:.
F.S3$.S3$.":NEXT:OPEN2,8,2,".G(34)...P.S
3$.S3$."0:.M,S,R".G(34).":M$=".G(34).",8
,1".G(34).":Q$=CHR$(34)".M.Z.S4$."30 FOR
N=1TO20:INPUT#2,P$(N),L$(N),J$(N),S$(N),
R$(N):IFJ$(N)=".G(34)...D.S4$.S4$."1".G(
34)."THENE$(N)=M$".+.N.S5$."40 NEXT:CLOS
E2:PRINTF$:FORN=1TO20:PRINTN;TAB(4).G.X.
S5$.S5$.";P$(N):NEXT:INPUT".G(34).".....
...".G(34).";K".....S6$."50 PRINT".G(34)
."....LOAD".G(34).";Q$;P$(K);Q$;E$(K):IF
S$(K)>".....S6$.S6$.G(34)."0".G(34)."THE
NPRINT".G(34)."....SYS".G(34).....S6$.S6
$.";S$(K):X=X+1".J. .S7$."60 IFR$(K)=".G
(34)."Y".G(34)."THENPRINT".G(34)."....RU
N".....S7$.S7$.G(34).":X=X+1:IFS$(K)>".G
(34)."0".G(34)."THENPRINT".....S7$.S7$.G
(34)."..RUN".G(34).....S8$."70 FORZ=0TOX
:B=631+Z:POKEB,13:POKE198,Z:NEXT:PRINT".
G(34)."."...H.S8$.S8$.G(34).).R..".....
MENU SYSTEM".W....".....
. F1 ....CREATE MENU FILE".....".
. F2 ....LOAD MENU FILE"......".
. F3 ....EDIT MENU FILE".O....".
. F4 ....SAVE MENU FILE"......".
. F5 ....WRITE MENU DRIVER"......
K$:.K$.G(133)..560:.390.*....K$.G(137).3
30.=."..K$.G(134).390.P.,..K$.G(138).360
.C.6..K$.G(135).600.L.@..270...J..570:.2
,8,2,"0:.M,S,R"...T..N.1.20:.2,P$(N),L$(
N),E$(N),S$(N),R$(N):..B.^. 2:.390...H..
570:.2,8,2,"@0:.M,S,W"...R..N.1.20:.2,P$
(N)C$L$(N)C$E$(N)C$S$(N)C$R$(N)C$:....|.
2:.210.M...."..EDIT OPTION.":.N.1.9:.N;
H(P$(N),16):......."10 ";H(P$(10),16);".
.........":.N.11.20:..19)N;......H(P$(N)
,16):.:.". .E. TO EDIT OR .RETURN. FOR M
ENU".O....K$:.K$."".420......K$.G(13).21
0......K$.."E".420.0.B.."..............
."
.D.L.."WHICH DIGIT TO EDIT";N$:N.E(N$):.
N.1.N.20.450...V..".ENTER PROGRAM NAME";
P$(N):P$(N).H(P$(N),35).G....".ENTER BOO
T NAME";L$(N):L$(N).H(L$(N),16)......".E
NTER . 1 . FOR 8,1 OR . 0 . FOR ,8";E$(N
)......".ENTER SYS# OR RETURN";S$(N).F..
.. S$(N).G(13).S$(N)."".S$(N)." ":.530.^
....S$(N)."".S$(N)." "......".RUN COMMAN
D NEEDED";R$(N):R$(N).H((R$(N)),1)......
R$(N).."N".R$(N).."Y".."...":.530.B.&..3
90...0..N.1.20:P$(N)." ":L$(N)." ":E$(N)
." ":S$(N)." ":R$(N)." ":.:....:..".....
...........";M$.2.D..K$:.K$."".580.8.N..
.I.X.."....NEW..".U.B..S1$:.S2$:.S3$:.S4
$:.S5$:.S6$:.S7$:.S8$...L.."SAVE".G(34).
"@0:MENU".G(34).",8:SYS64738.".I.V..Z.0.
10:.631.Z,13:.198,Z.1:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL