> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 39 08 18 F6 99 22 93 11 05 44 41 54 41 4D |..9...."...DATAM|
00000010: 41 4B 45 52 20 44 45 43 49 4D 41 4C 20 42 59 20 |AKER DECIMAL BY |
00000020: 44 41 56 49 44 20 50 41 4E 4B 48 55 52 53 54 22 |DAVID PANKHURST"|
00000030: 3A 97 35 33 32 38 31 2C 30 00 78 08 22 F6 85 22 |:.53281,0.x.".."|
00000040: 4D 45 4D 4F 52 59 20 53 54 41 52 54 2C 20 45 4E |MEMORY START, EN|
00000050: 44 2C 20 41 4E 44 20 31 53 54 20 4C 49 4E 45 20 |D, AND 1ST LINE |
00000060: 4E 55 4D 42 45 52 22 3B 41 53 2C 41 45 2C 4C 53 |NUMBER";AS,AE,LS|
00000070: 3A 58 B2 36 33 30 33 30 00 C0 08 2C F6 58 24 B2 |:X.63030...,.X$.|
00000080: 22 52 45 D3 3A 46 CF 49 3D 30 54 4F 2D 31 53 54 |"RE.:F.I=0TO-1ST|
00000090: C5 2D 31 3A 52 C5 58 24 3A 49 3D 56 C1 28 58 24 |.-1:R.X$:I=V.(X$|
000000A0: 29 3D 2D 31 3A 4E C5 3A 58 3D 22 AA C4 28 41 53 |)=-1:N.:X="..(AS|
000000B0: 29 AA 22 3A 44 C1 2D 31 22 3A 89 36 33 30 37 30 |).":D.-1":.63070|
000000C0: 00 FB 08 36 F6 58 24 B2 22 52 C5 59 3A 49 46 59 |...6.X$."R.Y:IFY|
000000D0: 3C 3E 39 39 39 54 C8 50 CF 58 2C 59 3A 58 3D 58 |<>999T.P.X,Y:X=X|
000000E0: 2B 31 3A 47 CF 22 AA C4 28 4C 53 29 3A 58 B2 36 |+1:G."..(LS):X.6|
000000F0: 33 30 34 30 3A 89 36 33 30 37 30 00 17 09 40 F6 |3040:.63070...@.|
00000100: 58 24 B2 22 52 45 D4 22 3A 58 B2 36 33 30 35 30 |X$."RE.":X.63050|
00000110: 3A 89 36 33 30 37 30 00 54 09 4A F6 81 49 B2 30 |:.63070.T.J..I.0|
00000120: A4 36 3A 58 24 B2 58 24 AA C9 28 C4 28 31 45 37 |.6:X$.X$..(.(1E7|
00000130: AA C2 28 41 53 29 29 2C 33 29 AA 22 2C 22 3A 41 |..(AS)),3).",":A|
00000140: 53 B2 41 53 AA 31 3A 49 B2 49 AB 28 41 53 B1 41 |S.AS.1:I.I.(AS.A|
00000150: 45 29 AC 39 00 79 09 54 F6 82 3A 58 24 B2 22 44 |E).9.y.T..:X$."D|
00000160: C1 20 22 AA C8 28 58 24 2C C3 28 58 24 29 AB 31 |. "..(X$,.(X$).1|
00000170: 29 3A 58 B2 36 33 30 39 30 00 B7 09 5E F6 99 22 |):X.63090...^.."|
00000180: 93 11 11 22 4C 53 3B 58 24 3A 99 22 41 53 3D 22 |..."LS;X$:."AS="|
00000190: 41 53 22 3A 41 45 3D 22 41 45 22 3A 4C 53 3D 22 |AS":AE="AE":LS="|
000001A0: 4C 53 AA 31 30 22 3A 47 CF 22 58 22 13 22 3B 3A |LS.10":G."X".";:|
000001B0: 97 36 33 31 2C 31 33 00 CC 09 68 F6 97 36 33 32 |.631,13...h..632|
000001C0: 2C 31 33 3A 97 31 39 38 2C 32 3A 80 00 DE 09 72 |,13:.198,2:....r|
000001D0: F6 8B 41 53 B3 B2 41 45 A7 36 33 30 35 30 00 FD |..AS..AE.63050..|
000001E0: 09 7C F6 58 24 B2 22 44 C1 20 39 39 39 22 3A 58 |.|.X$."D. 999":X|
000001F0: B2 36 33 31 31 30 3A 89 36 33 30 37 30 00 1F 0A |.63110:.63070...|
00000200: 86 F6 58 B2 36 33 30 30 30 3A 85 22 52 45 41 44 |..X.63000:."READ|
00000210: 59 20 54 4F 20 44 45 4C 45 54 45 22 3B 58 24 00 |Y TO DELETE";X$.|
00000220: 5A 0A 90 F6 99 22 93 11 11 22 58 3A 99 22 58 3D |Z...."..."X:."X=|
00000230: 22 58 AA 31 30 22 3A 47 CF 36 33 31 32 30 13 22 |"X.10":G.63120."|
00000240: 3B 3A 97 36 33 31 2C 31 33 3A 97 36 33 32 2C 31 |;:.631,13:.632,1|
00000250: 33 3A 97 31 39 38 2C 32 3A 80 00 00 00 |3:.198,2:.... |
..9...."...DATAMAKER DECIMAL BY DAVID PA
NKHURST":.53281,0.X.".."MEMORY START, EN
D, AND 1ST LINE NUMBER";AS,AE,LS:X.63030
...,.X$."RES:FOI=0TO-1STE-1:REX$:I=VA(X$
)=-1:NE:X=".D(AS).":DA-1":.63070...6.X$.
"REY:IFY<>999THPOX,Y:X=X+1:GO".D(LS):X.6
3040:.63070...@.X$."RET":X.63050:.63070.
T.J..I.0.6:X$.X$.I(D(1E7.B(AS)),3).",":A
S.AS.1:I.I.(AS.AE).9.Y.T..:X$."DA ".H(X$
,C(X$).1):X.63090...^.."..."LS;X$:."AS="
AS":AE="AE":LS="LS.10":GO"X".";:.631,13.
L.H..632,13:.198,2:....R..AS..AE.63050..
.|.X$."DA 999":X.63110:.63070.....X.6300
0:."READY TO DELETE";X$.Z...."..."X:."X=
"X.10":GO63120.";:.631,13:.632,13:.198,2
:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL