> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 00 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.|
00000010: 35 33 32 38 31 2C 30 00 21 08 05 00 59 B2 59 AA |53281,0.!...Y.Y.|
00000020: 31 00 38 08 0A 00 8B 20 59 B2 31 A7 93 22 52 41 |1.8.... Y.1.."RA|
00000030: 4D 20 31 22 2C 38 2C 31 00 42 08 14 00 99 22 93 |M 1",8,1.B....".|
00000040: 05 22 00 6F 08 1E 00 99 22 1D 1D 54 48 49 53 20 |.".o...."..THIS |
00000050: 52 4F 55 54 49 4E 45 20 57 49 4C 4C 20 52 45 50 |ROUTINE WILL REP|
00000060: 4C 41 59 20 4D 55 53 49 43 20 54 48 41 54 22 00 |LAY MUSIC THAT".|
00000070: 9E 08 28 00 99 22 11 1D 1D 1D 57 41 53 20 53 41 |..(.."....WAS SA|
00000080: 56 45 44 20 49 4E 20 52 41 4D 20 55 4E 44 45 52 |VED IN RAM UNDER|
00000090: 20 41 20 46 49 4C 45 4E 41 4D 45 20 20 22 00 CC | A FILENAME "..|
000000A0: 08 32 00 99 22 11 1D 1D 1D 4F 46 20 27 4D 55 53 |.2.."....OF 'MUS|
000000B0: 49 43 20 41 54 20 24 58 58 59 59 27 2E 4F 54 48 |IC AT $XXYY'.OTH|
000000C0: 45 52 57 49 53 45 20 55 53 45 20 22 00 EF 08 3C |ERWISE USE "...<|
000000D0: 00 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
000000E0: 1D 52 45 50 4C 41 59 20 49 4E 20 52 4F 4D 22 00 |.REPLAY IN ROM".|
000000F0: 1E 09 64 00 99 22 11 11 12 11 11 11 1D 11 1D 1D |..d.."..........|
00000100: 1D 1D 1D 1D 1D 9E 50 52 45 53 53 20 53 50 41 43 |......PRESS SPAC|
00000110: 45 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 33 |E TO CONTINUE".3|
00000120: 09 6E 00 A1 41 24 3A 8B 41 24 B2 22 20 22 A7 89 |.n..A$:.A$." "..|
00000130: 31 32 30 00 3C 09 73 00 89 31 31 30 00 46 09 78 |120.<.s..110.F.x|
00000140: 00 99 22 93 05 22 00 7E 09 82 00 99 20 22 05 50 |.."..".~.... ".P|
00000150: 4C 45 41 53 45 20 49 4E 50 55 54 20 54 48 45 20 |LEASE INPUT THE |
00000160: 53 54 41 52 54 20 41 44 44 52 45 53 53 20 4F 46 |START ADDRESS OF|
00000170: 20 54 48 45 20 20 20 4D 55 53 49 43 9E 22 00 86 | THE MUSIC."..|
00000180: 09 87 00 85 41 24 00 99 09 8C 00 8B C3 28 41 24 |....A$.......(A$|
00000190: 29 B3 B1 34 A7 89 31 32 30 00 AB 09 A0 00 48 48 |)..4..120.....HH|
000001A0: 24 B2 CA 28 41 24 2C 58 2C 31 29 00 C0 09 AA 00 |$..(A$,X,1).....|
000001B0: 8B 20 C6 28 48 48 24 29 B1 37 30 A7 89 32 30 30 |. .(HH$).70..200|
000001C0: 00 CA 09 B4 00 58 B2 58 AA 31 00 D9 09 B5 00 8B |.....X.X.1......|
000001D0: 20 58 B1 34 A7 89 32 35 30 00 E2 09 B6 00 89 31 | X.4..250......1|
000001E0: 36 30 00 FA 09 C8 00 99 22 50 4C 45 41 53 45 20 |60......"PLEASE |
000001F0: 54 52 59 20 41 47 41 49 4E 22 00 0F 0A D2 00 81 |TRY AGAIN"......|
00000200: 4E B2 30 A4 33 30 30 3A 82 4E 3A 89 31 32 30 00 |N.0.300:.N:.120.|
00000210: 3C 0A FA 00 8B C6 28 C8 28 41 24 2C 31 29 29 B1 |<.....(.(A$,1)).|
00000220: 35 37 A7 48 B2 31 36 AC 28 C6 28 C8 28 41 24 2C |57.H.16.(.(.(A$,|
00000230: 31 29 29 AB 35 35 29 3A 89 32 37 30 00 55 0A 04 |1)).55):.270.U..|
00000240: 01 48 B2 31 36 AC 28 C6 28 C8 28 41 24 2C 31 29 |.H.16.(.(.(A$,1)|
00000250: 29 AB 34 38 29 00 83 0A 0E 01 8B C6 28 CA 28 41 |).48).......(.(A|
00000260: 24 2C 32 2C 31 29 29 B1 35 37 A7 48 B2 48 AA C6 |$,2,1)).57.H.H..|
00000270: 28 CA 28 41 24 2C 32 2C 31 29 29 AB 35 35 3A 89 |(.(A$,2,1)).55:.|
00000280: 33 30 30 00 9B 0A 18 01 48 B2 48 AA C6 28 CA 28 |300.....H.H..(.(|
00000290: 41 24 2C 32 2C 31 29 29 AB 34 38 00 CC 0A 2C 01 |A$,2,1)).48...,.|
000002A0: 8B C6 28 CA 28 41 24 2C 33 2C 31 29 29 B1 35 37 |..(.(A$,3,1)).57|
000002B0: A7 4C B2 31 36 AC 28 C6 28 CA 28 41 24 2C 33 2C |.L.16.(.(.(A$,3,|
000002C0: 31 29 29 AB 35 35 29 3A 89 33 32 30 00 E7 0A 36 |1)).55):.320...6|
000002D0: 01 4C B2 31 36 AC 28 C6 28 CA 28 41 24 2C 33 2C |.L.16.(.(.(A$,3,|
000002E0: 31 29 29 AB 34 38 29 00 11 0B 40 01 8B C6 28 C9 |1)).48)...@...(.|
000002F0: 28 41 24 2C 31 29 29 B1 35 37 A7 4C B2 4C AA C6 |(A$,1)).57.L.L..|
00000300: 28 C9 28 41 24 2C 31 29 29 AB 35 35 3A 89 33 35 |(.(A$,1)).55:.35|
00000310: 30 00 27 0B 4A 01 4C B2 4C AA C6 28 C9 28 41 24 |0.'.J.L.L..(.(A$|
00000320: 2C 31 29 29 AB 34 38 00 3D 0B 5E 01 97 35 33 30 |,1)).48.=.^..530|
00000330: 32 33 2C 4C 3A 97 35 33 30 32 34 2C 48 00 47 0B |23,L:.53024,H.G.|
00000340: 68 01 99 22 93 9F 22 00 75 0B 72 01 99 22 12 1D |h.."..".u.r.."..|
00000350: 1D 1D 1D 1D 1D 11 11 11 4E 4F 57 20 4C 4F 41 44 |........NOW LOAD|
00000360: 20 59 4F 55 52 20 50 49 45 43 45 20 4F 46 20 4D | YOUR PIECE OF M|
00000370: 55 53 49 43 22 00 A1 0B 7C 01 99 22 12 1D 1D 1D |USIC"...|.."....|
00000380: 1D 1D 1D 11 41 4E 44 20 54 48 45 4E 20 54 59 50 |....AND THEN TYP|
00000390: 45 20 27 4E 45 57 27 20 20 2C 20 20 54 48 45 4E |E 'NEW' , THEN|
000003A0: 22 00 CF 0B 86 01 99 22 12 1D 1D 1D 1D 1D 1D 11 |"......"........|
000003B0: 54 59 50 45 20 20 92 27 53 59 53 20 35 33 30 30 |TYPE .'SYS 5300|
000003C0: 30 27 12 20 20 54 4F 20 4C 49 53 54 45 4E 22 00 |0'. TO LISTEN".|
000003D0: FB 0B 90 01 99 22 12 1D 1D 1D 1D 1D 1D 11 54 4F |....."........TO|
000003E0: 20 54 48 45 20 4D 55 53 49 43 2E 20 20 54 4F 20 | THE MUSIC. TO |
000003F0: 41 44 4A 55 53 54 20 54 48 45 22 00 27 0C 9A 01 |ADJUST THE".'...|
00000400: 99 22 12 1D 1D 1D 1D 1D 1D 11 20 20 53 50 45 45 |."........ SPEE|
00000410: 44 20 49 54 20 50 4C 41 59 53 20 54 48 45 20 4D |D IT PLAYS THE M|
00000420: 55 53 49 43 20 20 22 00 55 0C A4 01 99 22 12 1D |USIC ".U...."..|
00000430: 1D 1D 1D 1D 1D 11 54 59 50 45 20 92 27 50 4F 4B |......TYPE .'POK|
00000440: 45 20 35 33 30 38 39 2C 58 27 12 20 20 58 20 42 |E 53089,X'. X B|
00000450: 45 49 4E 47 22 00 81 0C AE 01 99 22 12 1D 1D 1D |EING"......"....|
00000460: 1D 1D 1D 11 20 20 20 41 20 56 41 4C 55 45 20 42 |.... A VALUE B|
00000470: 45 54 57 45 45 4E 20 30 20 26 20 31 30 20 20 20 |ETWEEN 0 & 10 |
00000480: 22 00 87 0C B8 01 A2 00 00 00 A7 0C 5E 01 99 22 |"...........^.."|
00000490: 4F 4E 20 43 4E 45 54 20 4D 59 20 49 44 20 49 53 |ON CNET MY ID IS|
000004A0: 20 50 48 31 31 2E 22 00 BF 0C 68 01 93 22 49 4E | PH11."...h.."IN|
000004B0: 53 54 52 55 43 54 49 4F 4E 53 22 2C 38 2C 31 00 |STRUCTIONS",8,1.|
000004C0: 00 00 |.. |
.......53280,0:.53281,0.!...Y.Y.1.8....
Y.1.."RAM 1",8,1.B...."..".O...."..THIS
ROUTINE WILL REPLAY MUSIC THAT"...(.."..
..WAS SAVED IN RAM UNDER A FILENAME ".L
.2.."....OF 'MUSIC AT $XXYY'.OTHERWISE U
SE "...<.."..............REPLAY IN ROM".
..D.."................PRESS SPACE TO CON
TINUE".3.N..A$:.A$." "..120.<.S..110.F.X
.."..".~.... ".PLEASE INPUT THE START AD
DRESS OF THE MUSIC."......A$......C(A$
)..4..120... .HH$.J(A$,X,1)...... F(HH$)
.70..200.J...X.X.1.Y.... X.4..250......1
60...H.."PLEASE TRY AGAIN"...R..N.0.300:
.N:.120.<....F(H(A$,1)).57.H.16.(F(H(A$,
1)).55):.270.U...H.16.(F(H(A$,1)).48)...
...F(J(A$,2,1)).57.H.H.F(J(A$,2,1)).55:.
300.....H.H.F(J(A$,2,1)).48.L.,..F(J(A$,
3,1)).57.L.16.(F(J(A$,3,1)).55):.320...6
.L.16.(F(J(A$,3,1)).48)...@..F(I(A$,1)).
57.L.L.F(I(A$,1)).55:.350.'.J.L.L.F(I(A$
,1)).48.=.^..53023,L:.53024,H.G.H.."..".
U.R.."..........NOW LOAD YOUR PIECE OF M
USIC"...|.."........AND THEN TYPE 'NEW'
, THEN".O...."........TYPE .'SYS 5300
0'. TO LISTEN"......"........TO THE MUS
IC. TO ADJUST THE".'...."........ SPEE
D IT PLAYS THE MUSIC ".U...."........TY
PE .'POKE 53089,X'. X BEING"......"....
.... A VALUE BETWEEN 0 & 10 ".......
....^.."ON CNET MY ID IS PH11."...H.."IN
STRUCTIONS",8,1...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL