00000000: 01 1C 31 1C 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 4E 1C 14 00 91 4C 46 AA 31 89 33 30 2C 31 |L.N....LF.1.30,1|
00000040: 33 30 2C 35 30 30 2C 34 38 30 2C 35 30 30 00 7F |30,500,480,500..|
00000050: 1C 1E 00 55 B2 C2 28 31 38 36 29 3A 53 41 B2 39 |...U..(186):SA.9|
00000060: 30 30 30 3A 52 53 B2 36 35 35 33 33 3A 44 44 B2 |000:RS.65533:DD.|
00000070: 35 36 35 38 34 3A 97 53 41 AB 31 2C 31 32 38 00 |56584:.SA.1,128.|
00000080: B9 1C 28 00 43 55 B2 30 38 3A 97 53 41 AB 37 2C |..(.CU.08:.SA.7,|
00000090: C6 28 22 31 22 29 3A 97 53 41 AB 36 2C C6 28 22 |.("1"):.SA.6,.("|
000000A0: 39 22 29 3A 97 53 41 AB 38 2C 31 32 38 3A 97 53 |9"):.SA.8,128:.S|
000000B0: 41 53 41 AB 39 2C 31 32 38 00 EF 1C 32 00 8B C2 |ASA.9,128...2...|
000000C0: 28 52 53 29 B2 32 35 35 A7 97 39 38 31 2C 31 35 |(RS).255..981,15|
000000D0: 3A 9E 34 30 39 39 34 3A 97 32 31 36 2C 30 3A 97 |:.40994:.216,0:.|
000000E0: 37 31 36 38 2C 30 3A 53 B2 C2 28 32 31 35 29 00 |7168,0:S..(215).|
000000F0: 10 1D 3C 00 8B C2 28 52 53 29 B3 B1 32 35 35 A7 |..<...(RS)..255.|
00000100: 50 4E B2 C2 28 36 37 38 29 3A 54 56 B2 31 34 35 |PN..(678):TV.145|
00000110: 00 31 1D 46 00 8B C2 28 52 53 29 B2 32 35 35 A7 |.1.F...(RS).255.|
00000120: 50 4E B2 C2 28 32 35 36 33 29 3A 54 56 B2 31 31 |PN..(2563):TV.11|
00000130: 35 00 4F 1D 50 00 8B 50 4E B2 30 A7 97 44 44 AA |5.O.P..PN.0..DD.|
00000140: 36 2C 28 C2 28 44 44 AA 36 29 AF 31 32 37 29 00 |6,(.(DD.6).127).|
00000150: 6F 1D 5A 00 8B 50 4E B2 32 35 35 A7 97 44 44 AA |o.Z..PN.255..DD.|
00000160: 36 2C 28 C2 28 44 44 AA 36 29 B0 31 32 38 29 00 |6,(.(DD.6).128).|
00000170: 96 1D 64 00 97 35 33 32 38 30 2C 30 3A 97 35 33 |..d..53280,0:.53|
00000180: 32 38 31 2C 30 3A 8B 53 A7 54 56 B2 31 33 30 3A |281,0:.S.TV.130:|
00000190: 9E 33 30 36 34 33 00 A5 1D 6E 00 8B 43 55 B3 B1 |.30643...n..CU..|
000001A0: 30 A7 31 39 30 00 CD 1D 78 00 4C 46 B2 31 3A 4D |0.190...x.LF.1:M|
000001B0: 44 B2 37 31 36 30 3A 93 22 4D 54 53 4D 28 24 31 |D.7160:."MTSM($1|
000001C0: 41 38 30 29 2E 4F 42 4A 22 2C 55 2C 31 00 FF 1D |A80).OBJ",U,1...|
000001D0: 82 00 97 32 35 31 2C 32 34 38 3A 97 32 35 32 2C |...251,248:.252,|
000001E0: 32 37 3A 97 4D 44 2C 32 35 35 3A 9E 36 37 38 34 |27:.MD,255:.6784|
000001F0: 3A 8B C2 28 4D 44 29 B2 32 35 35 A7 33 30 30 00 |:..(MD).255.300.|
00000200: 1E 1E 8C 00 58 B2 C2 28 4D 44 AA 35 29 3A 58 B2 |....X..(MD.5):X.|
00000210: 58 AB 31 3A 41 24 28 30 29 B2 C7 28 58 29 00 59 |X.1:A$(0)..(X).Y|
00000220: 1E 96 00 41 24 28 31 29 B2 C7 28 C2 28 4D 44 AA |...A$(1)..(.(MD.|
00000230: 36 29 29 3A 41 24 28 32 29 B2 C7 28 C2 28 4D 44 |6)):A$(2)..(.(MD|
00000240: AA 34 29 29 3A 41 24 28 33 29 B2 C7 28 C2 28 4D |.4)):A$(3)..(.(M|
00000250: 44 AA 33 29 B0 31 32 38 29 00 82 1E A0 00 41 24 |D.3).128).....A$|
00000260: 28 34 29 B2 C7 28 C2 28 4D 44 AA 32 29 AF 39 35 |(4)..(.(MD.2).95|
00000270: 29 3A 41 24 28 35 29 B2 C7 28 C2 28 4D 44 AA 31 |):A$(5)..(.(MD.1|
00000280: 29 29 00 AD 1E AA 00 41 24 28 36 29 B2 C7 28 C2 |)).....A$(6)..(.|
00000290: 28 4D 44 29 AF 31 32 37 29 3A 41 24 28 37 29 B2 |(MD).127):A$(7).|
000002A0: C7 28 C2 28 4D 44 AA 32 29 AF 33 32 29 00 BE 1E |.(.(MD.2).32)...|
000002B0: B4 00 97 53 41 AB 31 2C 30 3A 89 34 30 30 00 DE |...SA.1,0:.400..|
000002C0: 1E BE 00 9F 31 35 2C 43 55 2C 31 35 3A A0 31 35 |....15,CU,15:.15|
000002D0: 3A 8B C2 28 31 34 34 29 B2 30 A7 32 32 30 00 F6 |:..(144).0.220..|
000002E0: 1E C8 00 43 55 B2 43 55 AA 31 3A 8B 43 55 B1 B2 |...CU.CU.1:.CU..|
000002F0: 33 31 A7 33 30 30 00 FF 1E D2 00 89 31 39 30 00 |31.300......190.|
00000300: 14 1F DC 00 9F 31 35 2C 43 55 2C 31 35 2C 22 54 |.....15,CU,15,"T|
00000310: 2D 52 42 22 00 1F 1F E6 00 81 58 B2 30 A4 38 00 |-RB"......X.0.8.|
00000320: 45 1F F0 00 A1 23 31 35 2C 41 24 28 58 29 3A 8B |E....#15,A$(X):.|
00000330: 20 41 24 28 58 29 B2 22 22 A7 20 41 24 28 58 29 | A$(X)."". A$(X)|
00000340: B2 C7 28 30 29 00 4C 1F FA 00 82 58 00 6A 1F 04 |..(0).L....X.j..|
00000350: 01 8B 28 41 24 28 30 29 B2 22 33 22 29 AF 28 53 |..(A$(0)."3").(S|
00000360: 54 B3 B1 36 34 29 A7 32 38 30 00 95 1F 0E 01 97 |T..64).280......|
00000370: 53 41 AB 31 2C 30 3A A0 31 35 3A 41 24 28 33 29 |SA.1,0:.15:A$(3)|
00000380: B2 C7 28 C6 28 41 24 28 33 29 29 B0 31 32 38 29 |..(.(A$(3)).128)|
00000390: 3A 89 34 30 30 00 AB 1F 18 01 A1 23 31 35 2C 45 |:.400......#15,E|
000003A0: 24 3A 8B 53 54 B2 30 A7 32 38 30 00 B8 1F 22 01 |$:.ST.0.280...".|
000003B0: A0 31 35 3A 89 32 30 30 00 EA 1F 2C 01 54 49 24 |.15:.200...,.TI$|
000003C0: B2 22 30 30 30 30 30 30 22 3A 99 C7 28 31 34 37 |."000000":..(147|
000003D0: 29 3B C7 28 31 34 29 3B 22 53 45 54 20 43 4C 4F |);.(14);"SET CLO|
000003E0: 43 4B 20 59 2F CE 20 3F 20 22 00 0E 20 36 01 50 |CK Y/. ? ".. 6.P|
000003F0: 24 B2 C7 28 31 39 29 3A 81 58 B2 31 A4 31 35 3A |$..(19):.X.1.15:|
00000400: 50 24 B2 50 24 AA C7 28 32 39 29 3A 82 58 00 1A |P$.P$..(29):.X..|
00000410: 20 40 01 81 58 B2 30 A4 54 56 00 50 20 4A 01 A1 | @..X.0.TV.P J..|
00000420: 54 24 3A 91 AB 28 54 24 B2 22 59 22 29 AB 28 54 |T$:..(T$."Y").(T|
00000430: 24 B3 B1 22 22 29 89 34 34 30 2C 33 35 30 3A 99 |$.."").440,350:.|
00000440: 50 24 3B C4 28 35 AB B5 28 54 49 AD 36 30 29 29 |P$;.(5..(TI.60))|
00000450: 00 5B 20 54 01 82 3A 89 34 34 30 00 81 20 5E 01 |.[ T..:.440.. ^.|
00000460: 99 C7 28 31 37 29 3A 85 22 45 4E 54 45 52 20 54 |..(17):."ENTER T|
00000470: 49 4D 45 20 28 48 48 4D 4D 53 53 58 29 22 3B 54 |IME (HHMMSSX)";T|
00000480: 24 00 92 20 68 01 59 B2 34 3A 81 58 B2 31 A4 35 |$.. h.Y.4:.X.1.5|
00000490: A9 32 00 C4 20 72 01 41 24 28 59 29 B2 C7 28 31 |.2.. r.A$(Y)..(1|
000004A0: 36 AC C5 28 CA 28 54 24 2C 58 2C 31 29 29 AA C5 |6..(.(T$,X,1))..|
000004B0: 28 CA 28 54 24 2C 58 AA 31 2C 31 29 29 29 3A 59 |(.(T$,X.1,1))):Y|
000004C0: B2 59 AA 31 00 DE 20 7C 01 82 58 3A 97 53 41 AB |.Y.1.. |..X:.SA.|
000004D0: 31 2C 28 30 B0 C6 28 41 24 28 32 29 29 29 00 09 |1,(0..(A$(2)))..|
000004E0: 21 86 01 41 24 28 59 29 B2 C7 28 31 32 38 29 3A |!..A$(Y)..(128):|
000004F0: 8B CA 28 54 24 2C 58 2C 31 29 B2 22 41 22 A7 41 |..(T$,X,1)."A".A|
00000500: 24 28 58 29 B2 C7 28 30 29 00 30 21 90 01 8B 41 |$(X)..(0).0!...A|
00000510: 24 28 37 29 B3 B1 C7 28 30 29 A7 41 24 28 34 29 |$(7)...(0).A$(4)|
00000520: B2 C7 28 C6 28 41 24 28 34 29 29 AA 31 32 38 29 |..(.(A$(4)).128)|
00000530: 00 65 21 9A 01 48 B2 C6 28 41 24 28 34 29 29 3A |.e!..H..(A$(4)):|
00000540: 8B 28 48 AF 31 32 37 29 B2 31 38 A7 41 24 28 34 |.(H.127).18.A$(4|
00000550: 29 B2 C7 28 48 AB 28 B4 28 48 AB 31 32 38 29 AC |)..(H.(.(H.128).|
00000560: 31 32 38 29 29 00 7D 21 A4 01 97 44 44 AA 37 2C |128)).}!...DD.7,|
00000570: 28 C2 28 44 44 AA 37 29 AF 31 32 37 29 00 9B 21 |(.(DD.7).127)..!|
00000580: AE 01 81 58 B2 34 A4 37 3A 97 44 44 AA 37 AB 58 |...X.4.7:.DD.7.X|
00000590: 2C C6 28 41 24 28 58 29 29 3A 82 00 B9 21 B8 01 |,.(A$(X)):...!..|
000005A0: 81 58 B2 30 A4 33 3A 97 53 41 AB 35 AA 58 2C C6 |.X.0.3:.SA.5.X,.|
000005B0: 28 41 24 28 58 29 29 3A 82 00 D1 21 C2 01 4C 46 |(A$(X)):...!..LF|
000005C0: B2 32 3A 8B C2 28 52 53 29 B2 32 35 35 A7 34 39 |.2:..(RS).255.49|
000005D0: 30 00 E4 21 CC 01 8B C2 28 53 41 AB 39 29 B2 30 |0..!....(SA.9).0|
000005E0: A7 34 39 30 00 01 22 D6 01 4C 46 B2 33 3A 93 22 |.490.."..LF.3:."|
000005F0: 4D 45 4E 55 2E 4C 4F 41 44 2E 4D 4C 22 2C 55 2C |MENU.LOAD.ML",U,|
00000600: 31 00 10 22 E0 01 4C 46 B2 34 3A 9E 38 31 39 32 |1.."..LF.4:.8192|
00000610: 00 23 22 EA 01 93 22 4D 45 4E 55 2E 4D 4C 22 2C |.#"..."MENU.ML",|
00000620: 55 2C 31 00 2B 22 F4 01 9E 53 41 00 00 00 |U,1.+"...SA... |
..1.... SAVE"@0:MENU.BAS",08:REM BY DAVI
D SCHMOLL.N....LF.1.30,130,500,480,500.
...U.B(186):SA.9000:RS.65533:DD.56584:.S
A.1,128...(.CU.08:.SA.7,F("1"):.SA.6,F("
9"):.SA.8,128:.SASA.9,128...2..B(RS).255
..981,15:.40994:.216,0:.7168,0:S.B(215).
..<..B(RS)..255.PN.B(678):TV.145.1.F..B(
RS).255.PN.B(2563):TV.115.O.P..PN.0..DD.
6,(B(DD.6).127).O.Z..PN.255..DD.6,(B(DD.
6).128)...D..53280,0:.53281,0:.S.TV.130:
.30643...N..CU..0.190.M.X.LF.1:MD.7160:.
"MTSM($1A80).OBJ",U,1......251,248:.252,
27:.MD,255:.6784:.B(MD).255.300.....X.B(
MD.5):X.X.1:A$(0).G(X).Y...A$(1).G(B(MD.
6)):A$(2).G(B(MD.4)):A$(3).G(B(MD.3).128
)... .A$(4).G(B(MD.2).95):A$(5).G(B(MD.1
)).....A$(6).G(B(MD).127):A$(7).G(B(MD.2
).32)......SA.1,0:.400......15,CU,15: 15
:.B(144).0.220...H.CU.CU.1:.CU..31.300..
.R..190......15,CU,15,"T-RB"......X.0.8.
E....#15,A$(X):. A$(X)."". A$(X).G(0).L.
...X.J....(A$(0)."3").(ST..64).280......
SA.1,0: 15:A$(3).G(F(A$(3)).128):.400...
...#15,E$:.ST.0.280...". 15:.200...,.TI$
."000000":.G(147);G(14);"SET CLOCK Y/N ?
".. 6.P$.G(19):.X.1.15:P$.P$.G(29):.X..
@..X.0.TV.P J..T$:..(T$."Y").(T$.."").4
40,350:.P$;D(5..(TI.60)).[ T..:.440.. ^.
.G(17):."ENTER TIME (HHMMSSX)";T$.. H.Y.
4:.X.1.5.2.D R.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)))..!..A$(Y).G(128):.J(T$,X,1)."A".A
$(X).G(0).0!...A$(7)..G(0).A$(4).G(F(A$(
4)).128).E!..H.F(A$(4)):.(H.127).18.A$(4
).G(H.(.(H.128).128)).}!...DD.7,(B(DD.7)
.127)..!...X.4.7:.DD.7.X,F(A$(X)):...!..
.X.0.3:.SA.5.X,F(A$(X)):..Q!B.LF.2:.B(RS
).255.490..!L..B(SA.9).0.490.."V.LF.3:."
MENU.LOAD.ML",U,1.."..LF.4:.8192.#"..."M
ENU.ML",U,1.+"...SA...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL