00000000: 01 08 31 08 0A 00 8F 20 53 41 56 45 22 40 30 3A |..1.... SAVE"@0:|
00000010: 4D 45 4E 55 2E 42 41 53 22 2C 30 38 3A 52 45 4D |MENU.BAS",08:REM|
00000020: 20 42 59 20 44 41 56 49 44 20 53 43 48 4D 4F 4C | BY DAVID SCHMOL|
00000030: 4C 00 3F 08 14 00 8B 4C 46 B2 31 A7 33 39 30 00 |L.?....LF.1.390.|
00000040: 85 08 1E 00 55 B2 C2 28 31 38 36 29 3A 53 41 B2 |....U..(186):SA.|
00000050: 38 35 30 30 3A 52 53 B2 36 35 35 33 33 3A 44 44 |8500:RS.65533:DD|
00000060: B2 35 36 35 38 34 3A 43 55 B2 30 38 3A 8F 20 43 |.56584:CU.08:. C|
00000070: 55 20 49 53 20 44 45 56 49 43 45 20 46 4F 52 20 |U IS DEVICE FOR |
00000080: 43 4C 4F 43 4B 00 BB 08 28 00 8B C2 28 52 53 29 |CLOCK...(...(RS)|
00000090: B2 32 35 35 A7 97 39 38 31 2C 31 35 3A 9E 34 30 |.255..981,15:.40|
000000A0: 39 39 34 3A 97 32 31 36 2C 30 3A 97 37 31 36 38 |994:.216,0:.7168|
000000B0: 2C 30 3A 53 B2 C2 28 32 31 35 29 00 E6 08 32 00 |,0:S..(215)...2.|
000000C0: 8B C2 28 52 53 29 B3 B1 32 35 35 A7 50 4E B2 C2 |..(RS)..255.PN..|
000000D0: 28 36 37 38 29 3A 54 56 B2 32 36 30 3A 8F 20 36 |(678):TV.260:. 6|
000000E0: 34 20 4D 4F 44 45 00 12 09 3C 00 8B C2 28 52 53 |4 MODE...<...(RS|
000000F0: 29 B2 32 35 35 A7 50 4E B2 C2 28 32 35 36 33 29 |).255.PN..(2563)|
00000100: 3A 54 56 B2 32 30 30 3A 8F 20 31 32 38 20 4D 4F |:TV.200:. 128 MO|
00000110: 44 45 00 37 09 46 00 8B 50 4E B2 30 A7 97 44 44 |DE.7.F..PN.0..DD|
00000120: AA 36 2C 28 C2 28 44 44 AA 36 29 AF 31 32 37 29 |.6,(.(DD.6).127)|
00000130: 3A 8F 20 4E 54 53 43 00 5D 09 50 00 8B 50 4E B2 |:. NTSC.].P..PN.|
00000140: 32 35 35 A7 97 44 44 AA 36 2C 28 C2 28 44 44 AA |255..DD.6,(.(DD.|
00000150: 36 29 B0 31 32 38 29 3A 8F 20 50 41 4C 00 84 09 |6).128):. PAL...|
00000160: 5A 00 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 |Z..53280,0:.5328|
00000170: 31 2C 30 3A 8B 53 A7 54 56 B2 32 33 30 3A 9E 33 |1,0:.S.TV.230:.3|
00000180: 30 36 34 33 00 A4 09 6E 00 9F 31 35 2C 43 55 2C |0643...n..15,CU,|
00000190: 31 35 3A A0 31 35 3A 8B C2 28 31 34 34 29 B2 30 |15:.15:..(144).0|
000001A0: A7 31 34 30 00 BC 09 78 00 43 55 B2 43 55 AA 31 |.140...x.CU.CU.1|
000001B0: 3A 8B 43 55 B1 B2 33 31 A7 32 32 30 00 C5 09 82 |:.CU..31.220....|
000001C0: 00 89 31 31 30 00 E9 09 8C 00 9F 31 35 2C 43 55 |..110......15,CU|
000001D0: 2C 31 35 2C 22 54 2D 52 42 22 3A 8F 20 43 4D 44 |,15,"T-RB":. CMD|
000001E0: 20 52 54 43 20 43 4F 44 45 00 F4 09 96 00 81 58 | RTC CODE......X|
000001F0: B2 30 A4 38 00 1A 0A A0 00 A1 23 31 35 2C 41 24 |.0.8......#15,A$|
00000200: 28 58 29 3A 8B 20 41 24 28 58 29 B2 22 22 A7 20 |(X):. A$(X)."". |
00000210: 41 24 28 58 29 B2 C7 28 30 29 00 21 0A AA 00 82 |A$(X)..(0).!....|
00000220: 58 00 57 0A B4 00 8B 28 41 24 28 30 29 B3 B1 22 |X.W....(A$(0).."|
00000230: 33 22 29 AF 28 53 54 B2 36 34 29 A7 97 53 41 AB |3").(ST.64)..SA.|
00000240: 31 2C 28 30 B0 C6 28 41 24 28 32 29 29 29 3A A0 |1,(0..(A$(2))):.|
00000250: 31 35 3A 89 33 32 30 00 70 0A BE 00 97 53 41 AB |15:.320.p....SA.|
00000260: 31 2C 28 31 32 38 B0 C6 28 41 24 28 32 29 29 29 |1,(128..(A$(2)))|
00000270: 00 86 0A C8 00 A1 23 31 35 2C 45 24 3A 8B 53 54 |......#15,E$:.ST|
00000280: B2 30 A7 32 30 30 00 93 0A D2 00 A0 31 35 3A 89 |.0.200......15:.|
00000290: 31 32 30 00 C5 0A DC 00 54 49 24 B2 22 30 30 30 |120.....TI$."000|
000002A0: 30 30 30 22 3A 99 C7 28 31 34 37 29 3B C7 28 31 |000":..(147);.(1|
000002B0: 34 29 3B 22 53 45 54 20 43 4C 4F 43 4B 20 59 2F |4);"SET CLOCK Y/|
000002C0: CE 20 3F 20 22 00 E9 0A E6 00 50 24 B2 C7 28 31 |. ? ".....P$..(1|
000002D0: 39 29 3A 81 58 B2 31 A4 31 35 3A 50 24 B2 50 24 |9):.X.1.15:P$.P$|
000002E0: AA C7 28 32 39 29 3A 82 58 00 F5 0A F0 00 81 58 |..(29):.X......X|
000002F0: B2 30 A4 54 56 00 2D 0B FA 00 A1 54 24 3A 91 AB |.0.TV.-....T$:..|
00000300: 28 54 24 B2 22 59 22 29 AB 28 54 24 B3 B1 22 22 |(T$."Y").(T$..""|
00000310: 29 89 20 33 38 30 2C 32 37 30 3A 99 20 50 24 3B |). 380,270:. P$;|
00000320: C4 28 39 AB B5 28 54 49 AD 36 30 29 29 00 38 0B |.(9..(TI.60)).8.|
00000330: 04 01 82 3A 89 33 38 30 00 5E 0B 0E 01 99 C7 28 |...:.380.^.....(|
00000340: 31 37 29 3A 85 22 45 4E 54 45 52 20 54 49 4D 45 |17):."ENTER TIME|
00000350: 20 28 48 48 4D 4D 53 53 58 29 22 3B 54 24 00 6F | (HHMMSSX)";T$.o|
00000360: 0B 18 01 59 B2 34 3A 81 58 B2 31 A4 35 A9 32 00 |...Y.4:.X.1.5.2.|
00000370: A1 0B 22 01 41 24 28 59 29 B2 C7 28 31 36 AC C5 |..".A$(Y)..(16..|
00000380: 28 CA 28 54 24 2C 58 2C 31 29 29 AA C5 28 CA 28 |(.(T$,X,1))..(.(|
00000390: 54 24 2C 58 AA 31 2C 31 29 29 29 3A 59 B2 59 AA |T$,X.1,1))):Y.Y.|
000003A0: 31 00 BB 0B 2C 01 82 58 3A 97 53 41 AB 31 2C 28 |1...,..X:.SA.1,(|
000003B0: 30 B0 C6 28 41 24 28 32 29 29 29 00 E6 0B 36 01 |0..(A$(2)))...6.|
000003C0: 41 24 28 59 29 B2 C7 28 31 32 38 29 3A 8B CA 28 |A$(Y)..(128):..(|
000003D0: 54 24 2C 58 2C 31 29 B2 22 41 22 A7 41 24 28 58 |T$,X,1)."A".A$(X|
000003E0: 29 B2 C7 28 30 29 00 0D 0C 40 01 8B 41 24 28 37 |)..(0)...@..A$(7|
000003F0: 29 B3 B1 C7 28 30 29 A7 41 24 28 34 29 B2 C7 28 |)...(0).A$(4)..(|
00000400: C6 28 41 24 28 34 29 29 AA 31 32 38 29 00 42 0C |.(A$(4)).128).B.|
00000410: 4A 01 48 B2 C6 28 41 24 28 34 29 29 3A 8B 28 48 |J.H..(A$(4)):.(H|
00000420: AF 31 32 37 29 B2 31 38 A7 41 24 28 34 29 B2 C7 |.127).18.A$(4)..|
00000430: 28 48 AB 28 B4 28 48 AB 31 32 38 29 AC 31 32 38 |(H.(.(H.128).128|
00000440: 29 29 00 5A 0C 54 01 97 44 44 AA 37 2C 28 C2 28 |)).Z.T..DD.7,(.(|
00000450: 44 44 AA 37 29 AF 31 32 37 29 00 78 0C 5E 01 81 |DD.7).127).x.^..|
00000460: 58 B2 34 A4 37 3A 97 44 44 AA 37 AB 58 2C C6 28 |X.4.7:.DD.7.X,.(|
00000470: 41 24 28 58 29 29 3A 82 00 AB 0C 68 01 8F 20 45 |A$(X)):....h.. E|
00000480: 5A 20 4C 4F 41 44 45 52 20 55 53 45 53 20 43 49 |Z LOADER USES CI|
00000490: 41 23 32 20 52 45 47 49 53 54 45 52 53 20 46 4F |A#2 REGISTERS FO|
000004A0: 52 20 54 4F 44 20 43 4C 4F 43 4B 00 C3 0C 7C 01 |R TOD CLOCK...|.|
000004B0: 4C 46 B2 31 3A 93 22 4D 45 4E 55 2E 4D 4C 22 2C |LF.1:."MENU.ML",|
000004C0: 55 2C 31 00 CB 0C 86 01 9E 53 41 00 00 00 |U,1......SA... |
..1.... SAVE"@0:MENU.BAS",08:REM BY DAVI
D SCHMOLL.?....LF.1.390.....U.B(186):SA.
8500:RS.65533:DD.56584:CU.08:. CU IS DEV
ICE FOR CLOCK...(..B(RS).255..981,15:.40
994:.216,0:.7168,0:S.B(215)...2..B(RS)..
255.PN.B(678):TV.260:. 64 MODE...<..B(RS
).255.PN.B(2563):TV.200:. 128 MODE.7.F..
PN.0..DD.6,(B(DD.6).127):. NTSC.].P..PN.
255..DD.6,(B(DD.6).128):. PAL...Z..53280
,0:.53281,0:.S.TV.230:.30643...N..15,CU,
15: 15:.B(144).0.140...X.CU.CU.1:.CU..31
.220.E....110......15,CU,15,"T-RB":. CMD
RTC CODE......X.0.8... ..#15,A$(X):. A$
(X)."". A$(X).G(0).!....X.W....(A$(0).."
3").(ST.64)..SA.1,(0.F(A$(2))): 15:.320.
P....SA.1,(128.F(A$(2)))...H..#15,E$:.ST
.0.200...R. 15:.120.E...TI$."000000":.G(
147);G(14);"SET CLOCK Y/N ? ".....P$.G(1
9):.X.1.15:P$.P$.G(29):.X......X.0.TV.-.
...T$:..(T$."Y").(T$..""). 380,270:. P$;
D(9..(TI.60)).8....:.380.^....G(17):."EN
TER TIME (HHMMSSX)";T$.O...Y.4:.X.1.5.2.
..".A$(Y).G(16.E(J(T$,X,1)).E(J(T$,X.1,1
))):Y.Y.1...,..X:.SA.1,(0.F(A$(2)))...6.
A$(Y).G(128):.J(T$,X,1)."A".A$(X).G(0)..
.@..A$(7)..G(0).A$(4).G(F(A$(4)).128).B.
J.H.F(A$(4)):.(H.127).18.A$(4).G(H.(.(H.
128).128)).Z.T..DD.7,(B(DD.7).127).X.^..
X.4.7:.DD.7.X,F(A$(X)):....H.. EZ LOADER
USES CIA#2 REGISTERS FOR TOD CLOCK.C.|.
LF.1:."MENU.ML",U,1.K....SA...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL