00000000: 01 1C 1B 1C 0A 00 E7 35 2C 36 3A 4E 50 B2 36 3A |.......5,6:NP.6:|
00000010: 99 C7 28 31 34 32 29 22 93 11 22 00 29 1C 14 00 |..(142)"..".)...|
00000020: 8B 4E 50 B2 30 A7 34 35 30 00 57 1C 1E 00 41 24 |.NP.0.450.W...A$|
00000030: B2 22 D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |."..............|
00000040: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C9 20 20 20 |............. |
00000050: 20 22 3A 8D 33 31 30 00 82 1C 28 00 41 24 B2 22 | ":.310...(.A$."|
00000060: DD 20 20 56 41 2E 20 42 45 41 43 48 20 55 4E 44 |. VA. BEACH UND|
00000070: 45 52 47 52 4F 55 4E 44 20 20 DD 20 22 3A 8D 33 |ERGROUND . ":.3|
00000080: 31 30 00 AD 1C 32 00 41 24 B2 22 DD 20 20 20 20 |10...2.A$.". |
00000090: 31 32 38 20 4D 45 4E 55 20 20 50 41 47 45 20 31 |128 MENU PAGE 1|
000000A0: 20 20 20 20 20 C2 20 22 3A 8D 33 31 30 00 D7 1C | . ":.310...|
000000B0: 3C 00 41 24 B2 22 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 |<.A$."..........|
000000C0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000000D0: CB 22 3A 8D 33 31 30 00 02 1D 46 00 41 24 B2 22 |.":.310...F.A$."|
000000E0: 0F 11 20 20 20 20 20 2A 2A 20 43 48 4F 4F 53 45 |.. ** CHOOSE|
000000F0: 20 4F 4E 45 20 2A 2A 20 20 20 20 20 22 3A 8D 33 | ONE ** ":.3|
00000100: 31 30 00 2D 1D 50 00 41 24 B2 22 0F 11 20 20 4F |10.-.P.A$.".. O|
00000110: 50 54 49 4F 4E 53 20 2D 2D 20 50 52 4F 47 52 41 |PTIONS -- PROGRA|
00000120: 4D 20 4E 41 4D 45 20 22 3A 8D 33 31 30 00 57 1D |M NAME ":.310.W.|
00000130: 5A 00 41 24 B2 22 0F 20 20 B8 B8 B8 B8 B8 B8 B8 |Z.A$.". .......|
00000140: 20 20 20 20 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 | ............|
00000150: 20 22 3A 8D 33 31 30 00 66 1D 64 00 81 20 54 B2 | ":.310.f.d.. T.|
00000160: 31 20 A4 20 4E 50 00 99 1D 6E 00 87 50 47 24 28 |1 . NP...n..PG$(|
00000170: 54 29 3A 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1F 3C 22 |T):.".........<"|
00000180: C7 28 36 34 AA 54 29 22 3E 20 20 20 20 20 2D 2D |.(64.T)"> --|
00000190: 1F 20 22 50 47 24 28 54 29 00 A1 1D 78 00 82 20 |. "PG$(T)...x.. |
000001A0: 54 00 D1 1D 82 00 99 3A 99 22 1D 1D 1D 1D 1D 1D |T......:."......|
000001B0: 1D 1D 11 0F 3C 51 3E 20 20 20 20 20 2D 2D 1F 20 |....<Q> --. |
000001C0: 51 55 49 54 20 31 32 38 20 4D 45 4E 55 20 20 20 |QUIT 128 MENU |
000001D0: 22 00 F2 1D 8C 00 A1 54 24 3A 8B 54 24 B1 B2 22 |"......T$:.T$.."|
000001E0: 41 22 AF 54 24 B3 C7 28 36 35 AA 4E 50 29 A7 31 |A".T$..(65.NP).1|
000001F0: 37 30 00 03 1E 96 00 8B 54 24 B2 22 51 22 A7 20 |70......T$."Q". |
00000200: 35 33 30 00 0C 1E A0 00 89 31 34 30 00 1B 1E AA |530......140....|
00000210: 00 54 B2 C6 28 54 24 29 AB 36 34 00 35 1E B4 00 |.T..(T$).64.5...|
00000220: 99 22 93 13 11 11 4C 4F 41 44 20 50 47 24 28 54 |."....LOAD PG$(T|
00000230: 29 2C 38 3A 22 00 47 1E BE 00 99 22 11 11 11 11 |),8:".G...."....|
00000240: 52 55 4E 3A 13 22 3B 00 64 1E C8 00 97 38 34 32 |RUN:.";.d....842|
00000250: 2C 31 33 3A 97 38 34 33 2C 31 33 3A 97 32 30 38 |,13:.843,13:.208|
00000260: 2C 32 3A 80 00 79 1E D2 00 8F 20 2A 2A 2A 20 42 |,2:..y.... *** B|
00000270: 4F 52 44 45 52 20 2A 2A 2A 00 97 1E DC 00 42 43 |ORDER ***.....BC|
00000280: B2 31 34 3A 42 50 B2 31 36 30 3A 81 54 B2 31 30 |.14:BP.160:.T.10|
00000290: 32 34 A4 31 30 36 33 00 AD 1E E6 00 97 54 2C 42 |24.1063......T,B|
000002A0: 50 3A 97 54 AA 35 34 32 37 32 2C 42 43 00 CB 1E |P:.T.54272,BC...|
000002B0: F0 00 97 54 AA 39 36 30 2C 42 50 3A 97 54 AA 35 |...T.960,BP:.T.5|
000002C0: 34 32 37 32 AA 39 36 30 2C 42 43 00 D2 1E FA 00 |4272.960,BC.....|
000002D0: 82 3A 00 E6 1E 04 01 81 54 B2 31 30 36 34 A4 31 |.:......T.1064.1|
000002E0: 39 34 34 A9 34 30 00 FC 1E 0E 01 97 54 2C 42 50 |944.40......T,BP|
000002F0: 3A 97 54 AA 35 34 32 37 32 2C 42 43 00 18 1F 18 |:.T.54272,BC....|
00000300: 01 97 54 AA 33 39 2C 42 50 3A 97 54 AA 35 34 32 |..T.39,BP:.T.542|
00000310: 37 32 AA 33 39 2C 42 43 00 20 1F 22 01 82 3A 8E |72.39,BC. ."..:.|
00000320: 00 3D 1F 2C 01 8F 20 2A 2A 2A 20 43 45 4E 54 45 |.=.,.. *** CENTE|
00000330: 52 20 52 4F 55 54 49 4E 45 20 2A 2A 2A 00 63 1F |R ROUTINE ***.c.|
00000340: 36 01 4C B2 28 34 30 AB C3 28 41 24 29 29 AD 32 |6.L.(40..(A$)).2|
00000350: AA 31 2E 35 20 20 20 20 20 20 20 20 20 20 20 20 |.1.5 |
00000360: 20 20 20 00 70 1F 40 01 99 A3 36 29 41 24 3A 8E | .p.@...6)A$:.|
00000370: 00 8C 1F 4A 01 8F 20 2A 2A 2A 20 50 52 4F 47 52 |...J.. *** PROGR|
00000380: 41 4D 20 4E 41 4D 45 53 20 2A 2A 2A 00 A2 1F 54 |AM NAMES ***...T|
00000390: 01 83 20 22 31 32 38 20 53 45 43 54 4F 52 20 45 |.. "128 SECTOR E|
000003A0: 44 22 00 B7 1F 5E 01 83 20 22 31 32 38 20 41 55 |D"...^.. "128 AU|
000003B0: 54 4F 42 4F 4F 54 22 00 D0 1F 68 01 83 20 22 44 |TOBOOT"...h.. "D|
000003C0: 49 53 4B 20 4C 41 42 45 4C 20 34 30 43 4F 4C 22 |ISK LABEL 40COL"|
000003D0: 00 E9 1F 72 01 83 20 22 44 49 53 4B 20 4C 41 42 |...r.. "DISK LAB|
000003E0: 45 4C 20 38 30 43 4F 4C 22 00 FD 1F 7C 01 83 20 |EL 80COL"...|.. |
000003F0: 22 59 41 48 54 5A 45 45 20 31 32 38 22 00 15 20 |"YAHTZEE 128".. |
00000400: 86 01 83 20 22 31 32 38 20 4D 45 4E 55 2D 50 41 |... "128 MENU-PA|
00000410: 47 45 20 32 22 00 1B 20 90 01 83 00 21 20 9A 01 |GE 2".. ....! ..|
00000420: 83 00 27 20 A4 01 83 00 2D 20 AE 01 83 00 36 20 |..' ....- ....6 |
00000430: B8 01 8D 32 32 30 00 6B 20 C2 01 99 22 90 11 11 |...220.k ..."...|
00000440: 11 22 3A 41 24 B2 22 54 48 45 52 45 20 41 52 45 |.":A$."THERE ARE|
00000450: 20 4E 4F 20 31 32 38 20 50 52 4F 47 52 41 4D 53 | NO 128 PROGRAMS|
00000460: 20 1D 1D 1D 1D 22 3A 8D 33 31 30 00 9D 20 CC 01 | ....":.310.. ..|
00000470: 99 3A 41 24 B2 22 49 4E 20 54 48 45 20 4D 45 4E |.:A$."IN THE MEN|
00000480: 55 20 59 45 54 2E 20 59 4F 55 20 4D 41 59 20 45 |U YET. YOU MAY E|
00000490: 4E 54 45 52 1D 1D 1D 22 3A 8D 33 31 30 00 CF 20 |NTER...":.310.. |
000004A0: D6 01 99 3A 41 24 B2 22 50 52 4F 47 52 41 4D 20 |...:A$."PROGRAM |
000004B0: 4E 41 4D 45 53 20 41 54 20 4C 49 4E 45 20 32 30 |NAMES AT LINE 20|
000004C0: 30 30 20 54 4F 20 20 20 20 22 3A 8D 33 31 30 00 |00 TO ":.310.|
000004D0: 01 21 E0 01 99 3A 41 24 B2 22 32 30 30 39 2E 20 |.!...:A$."2009. |
000004E0: 45 4E 53 55 52 45 20 59 4F 55 20 43 48 41 4E 47 |ENSURE YOU CHANG|
000004F0: 45 20 4E 50 20 49 4E 20 20 20 20 22 3A 8D 33 31 |E NP IN ":.31|
00000500: 30 00 33 21 EA 01 99 3A 41 24 B2 22 4C 49 4E 45 |0.3!...:A$."LINE|
00000510: 20 31 30 20 54 4F 20 54 4F 54 41 4C 20 4E 55 4D | 10 TO TOTAL NUM|
00000520: 42 45 52 20 4F 46 20 20 20 20 20 20 20 22 3A 8D |BER OF ":.|
00000530: 33 31 30 00 62 21 F4 01 99 3A 41 24 B2 22 50 52 |310.b!...:A$."PR|
00000540: 4F 47 52 41 4D 53 20 49 4E 20 54 48 45 20 4D 45 |OGRAMS IN THE ME|
00000550: 4E 55 2E 20 54 48 45 20 4D 41 58 2E 22 3A 8D 33 |NU. THE MAX.":.3|
00000560: 31 30 00 93 21 F5 01 99 3A 41 24 B2 22 50 52 4F |10..!...:A$."PRO|
00000570: 47 52 41 4D 53 20 46 4F 52 20 45 41 43 48 20 4D |GRAMS FOR EACH M|
00000580: 45 4E 55 20 49 53 20 54 45 4E 2E 20 20 22 3A 8D |ENU IS TEN. ":.|
00000590: 33 31 30 00 C4 21 F6 01 99 3A 41 24 B2 22 59 4F |310..!...:A$."YO|
000005A0: 55 20 4D 41 59 20 4C 49 4E 4B 20 4D 55 4C 54 49 |U MAY LINK MULTI|
000005B0: 50 4C 45 20 4D 45 4E 55 53 20 42 59 20 20 22 3A |PLE MENUS BY ":|
000005C0: 8D 33 31 30 00 F5 21 F7 01 99 3A 41 24 B2 22 4D |.310..!...:A$."M|
000005D0: 41 4B 49 4E 47 20 54 48 45 20 4C 41 53 54 20 50 |AKING THE LAST P|
000005E0: 52 4F 47 52 41 4D 20 4C 4F 41 44 20 20 20 20 22 |ROGRAM LOAD "|
000005F0: 3A 8D 33 31 30 00 26 22 F8 01 99 3A 41 24 B2 22 |:.310.&"...:A$."|
00000600: 54 48 45 20 4E 45 58 54 20 4F 4E 45 2E 20 20 20 |THE NEXT ONE. |
00000610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000620: 22 3A 8D 33 31 30 00 57 22 F9 01 99 3A 41 24 B2 |":.310.W"...:A$.|
00000630: 22 45 58 41 4D 50 4C 45 3A 20 20 20 31 32 38 20 |"EXAMPLE: 128 |
00000640: 4D 45 4E 55 2D 50 41 47 45 20 32 20 20 20 20 20 |MENU-PAGE 2 |
00000650: 20 22 3A 8D 33 31 30 00 78 22 FE 01 A1 54 24 3A | ":.310.x"...T$:|
00000660: 8B 54 24 B3 B1 22 09 22 A7 35 31 30 20 20 20 20 |.T$..".".510 |
00000670: 20 20 20 20 20 20 20 20 00 88 22 08 02 54 24 B2 | .."..T$.|
00000680: 22 51 22 3A 89 31 35 30 00 B7 22 12 02 99 22 93 |"Q":.150.."...".|
00000690: 11 11 11 11 11 11 11 11 11 11 11 22 A3 31 30 29 |...........".10)|
000006A0: 22 2A 2A 20 48 41 56 45 20 41 20 4E 49 43 45 20 |"** HAVE A NICE |
000006B0: 44 41 59 20 2A 2A 22 00 BF 22 1C 02 FE 0B 32 00 |DAY **".."....2.|
000006C0: C9 22 26 02 E8 3A A2 3A 80 00 00 00 |."&..:.:.... |
.......5,6:NP.6:.G(142)"..".)....NP.0.45
0.W...A$."UCCCCCCCCCCCCCCCCCCCCCCCCCI
":.310...(.A$.". VA. BEACH UNDERGROUND
. ":.310...2.A$.". 128 MENU PAGE 1
B ":.310.W.<.A$."JCCCCCCCCCCCCCCCCC
CCCCCCCCK":.310...F.A$.".. ** CHOOSE
ONE ** ":.310.-.P.A$.".. OPTIONS -
- PROGRAM NAME ":.310.W.Z.A$.". .......
............ ":.310.F.D.. T.1 . NP..
.N..PG$(T):.".........<"G(64.T)"> --
. "PG$(T)...X.. T.Q....:."..........<Q>
--. QUIT 128 MENU "......T$:.T$.."
A".T$.G(65.NP).170......T$."Q". 530... .
.140.....T.F(T$).64.5...."....LOAD PG$(T
),8:".G...."....RUN:.";.D.H..842,13:.843
,13:.208,2:..Y.R.. *** BORDER ***.....BC
.14:BP.160:.T.1024.1063......T,BP:.T.542
72,BC.K....T.960,BP:.T.54272.960,BC.R...
.:......T.1064.1944.40......T,BP:.T.5427
2,BC......T.39,BP:.T.54272.39,BC. ."..:.
.=.,.. *** CENTER ROUTINE ***.C.6.L.(40.
C(A$)).2.1.5 .P.@...6)A$:.
...J.. *** PROGRAM NAMES ***...T.. "128
SECTOR ED"...^.. "128 AUTOBOOT".P.H.. "D
ISK LABEL 40COL"...R.. "DISK LABEL 80COL
"...|.. "YAHTZEE 128".. ... "128 MENU-PA
GE 2".. ....! ....' ....- ....6 ...220.K
B.."....":A$."THERE ARE NO 128 PROGRAMS
....":.310.. L..:A$."IN THE MENU YET. Y
OU MAY ENTER...":.310.O V..:A$."PROGRAM
NAMES AT LINE 2000 TO ":.310..!...:A$
."2009. ENSURE YOU CHANGE NP IN ":.31
0.3!...:A$."LINE 10 TO TOTAL NUMBER OF
":.310.B!...:A$."PROGRAMS IN THE ME
NU. THE MAX.":.310..!...:A$."PROGRAMS FO
R EACH MENU IS TEN. ":.310.D!...:A$."YO
U MAY LINK MULTIPLE MENUS BY ":.310..!.
..:A$."MAKING THE LAST PROGRAM LOAD "
:.310.&"...:A$."THE NEXT ONE.
":.310.W"...:A$."EXAMPLE: 128
MENU-PAGE 2 ":.310.X"...T$:.T$.."."
.510 .."..T$."Q":.150.."...".
...........".10)"** HAVE A NICE DAY **".
."....2.I"&..:.:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL