00000000: 01 1C 23 1C E8 03 8F 20 31 32 38 20 44 41 54 41 |..#.... 128 DATA|
00000010: 20 4D 41 4B 45 52 20 42 59 20 44 49 43 4B 20 42 | MAKER BY DICK B|
00000020: 45 53 54 00 40 1C F2 03 41 B2 35 30 30 30 3A 43 |EST.@...A.5000:C|
00000030: B2 30 3A 43 4C 24 B2 C7 28 32 37 29 AA 22 40 22 |.0:CL$..(27)."@"|
00000040: 00 5B 1C FC 03 E7 30 2C 31 36 3A E7 34 2C 31 36 |.[....0,16:.4,16|
00000050: 3A E7 36 2C 31 36 3A E7 35 2C 31 00 96 1C 01 04 |:.6,16:.5,1.....|
00000060: 99 22 93 0E 11 11 11 20 C3 31 32 38 20 C4 C1 D4 |."..... .128 ...|
00000070: C1 20 CD C1 CB C5 D2 20 20 20 C2 59 20 20 C4 49 |. ..... .Y .I|
00000080: 43 4B 20 C2 45 53 54 22 3A 42 B2 30 3A 44 B2 30 |CK .EST":B.0:D.0|
00000090: 3A 8F 22 8D 91 91 00 CA 1C 06 04 99 22 11 20 20 |:.".........". |
000000A0: 28 D0 52 45 43 45 45 44 20 C8 C5 D8 20 C4 C9 C7 |(.RECEED ... ...|
000000B0: C9 D4 D3 20 57 49 54 48 20 22 C7 28 33 34 29 22 |... WITH ".(34)"|
000000C0: 24 22 C7 28 33 34 29 22 29 22 00 FB 1C 10 04 E0 |$".(34)")"......|
000000D0: 2C 32 2C 30 38 2C 22 CC 49 4E 45 20 23 20 46 4F |,2,08,".INE # FO|
000000E0: 52 20 31 53 54 20 C4 C1 D4 C1 20 D3 54 41 54 45 |R 1ST .... .TATE|
000000F0: 4D 45 4E 54 20 22 AA C4 28 41 29 00 18 1D 1A 04 |MENT "..(A).....|
00000100: E0 2C 33 31 2C 30 38 2C 22 22 3A 85 20 41 3A 8B |.,31,08,"":. A:.|
00000110: 41 B2 30 A7 31 30 34 30 00 46 1D 24 04 E0 2C 32 |A.0.1040.F.$..,2|
00000120: 2C 31 30 2C 22 D3 54 41 52 54 20 20 C1 44 44 52 |,10,".TART .DDR|
00000130: 45 53 53 20 4F 46 20 C4 41 54 41 20 22 AA C4 28 |ESS OF .ATA "..(|
00000140: 43 29 AA 43 4C 24 00 6E 1D 2E 04 E0 2C 32 34 2C |C).CL$.n....,24,|
00000150: 31 30 2C 22 22 3A 8D 31 33 39 30 3A 42 B2 43 3A |10,"":.1390:B.C:|
00000160: 8B 4E 47 A7 4E 47 B2 30 3A 89 31 30 36 30 00 96 |.NG.NG.0:.1060..|
00000170: 1D 38 04 E0 2C 32 2C 31 32 2C 22 C5 4E 44 49 4E |.8..,2,12,".NDIN|
00000180: 47 20 C1 44 44 52 45 53 53 20 4F 46 20 C4 41 54 |G .DDRESS OF .AT|
00000190: 41 22 AA 43 4C 24 00 BE 1D 42 04 E0 2C 32 34 2C |A".CL$...B..,24,|
000001A0: 31 32 2C 22 22 3A 8D 31 33 39 30 3A 46 B2 43 3A |12,"":.1390:F.C:|
000001B0: 8B 4E 47 A7 4E 47 B2 30 3A 89 31 30 38 30 00 F3 |.NG.NG.0:.1080..|
000001C0: 1D 4C 04 8B 43 B3 B2 42 B0 43 B2 30 A7 E0 2C 32 |.L..C..B.C.0..,2|
000001D0: 2C 31 34 2C 22 C9 4C 4C 45 47 41 4C 20 C5 4E 44 |,14,".LLEGAL .ND|
000001E0: 20 C1 44 44 52 45 53 53 22 3A FE 0B 32 3A 89 31 | .DDRESS":..2:.1|
000001F0: 30 38 30 00 17 1E 56 04 8B 20 CC 28 58 29 20 A7 |080...V.. .(X) .|
00000200: 20 4E B2 33 33 36 3A 4C B2 31 36 3A D5 20 4E B2 | N.336:L.16:. N.|
00000210: 31 34 37 3A 4C B2 37 00 1D 1E 60 04 3A 00 38 1E |147:L.7...`.:.8.|
00000220: 6A 04 99 22 93 0E 11 22 3A 54 B2 43 AB 42 3A 43 |j.."...":T.C.B:C|
00000230: B2 42 AA 4E 3A 4D B2 4C 00 3E 1E 74 04 3A 00 57 |.B.N:M.L.>.t.:.W|
00000240: 1E 7E 04 3A 20 3A 99 41 3B 22 44 41 54 41 20 22 |.~.: :.A;"DATA "|
00000250: 3B 3A 44 B2 44 AA 31 00 70 1E 88 04 3A 20 20 20 |;:D.D.1.p...: |
00000260: 3A 8B 20 46 AB 45 B3 4C 20 A7 20 4C B2 46 AB 45 |:. F.E.L . L.F.E|
00000270: 00 8D 1E 92 04 3A 20 20 20 3A 81 45 B2 42 A4 42 |.....: :.E.B.B|
00000280: AA 4C 3A 43 24 B2 C4 28 C2 28 45 29 29 00 A7 1E |.L:C$..(.(E))...|
00000290: 9C 04 3A 20 20 20 3A 43 24 B2 C9 28 43 24 2C C3 |..: :C$..(C$,.|
000002A0: 28 43 24 29 AB 31 29 00 C2 1E A6 04 3A 20 20 20 |(C$).1).....: |
000002B0: 3A 8B 45 B3 B1 42 20 A7 20 43 24 B2 22 2C 22 AA |:.E..B . C$.",".|
000002C0: 43 24 00 DF 1E B0 04 3A 20 20 20 3A 8B 45 B2 B1 |C$.....: :.E..|
000002D0: 46 20 A7 20 45 B2 42 AA 4C 3A 89 31 32 35 30 00 |F . E.B.L:.1250.|
000002E0: F7 1E BA 04 3A 20 20 20 3A 99 43 24 3B 3A 53 44 |....: :.C$;:SD|
000002F0: B2 53 44 AA 31 3A 82 00 0F 1F C4 04 3A 20 20 20 |.SD.1:......: |
00000300: 3A 41 B2 41 AA 31 30 3A 42 B2 42 AA 4C AA 31 00 |:A.A.10:B.B.L.1.|
00000310: 26 1F CE 04 3A 20 3A 8B 20 42 B3 43 20 A7 20 99 |&...: :. B.C . .|
00000320: 3A 89 31 31 35 30 00 2C 1F D8 04 3A 00 51 1F E2 |:.1150.,...:.Q..|
00000330: 04 99 3A 99 22 47 4F 54 4F 20 31 33 31 30 22 3A |..:."GOTO 1310":|
00000340: 99 22 20 20 20 20 20 20 22 53 44 22 4F 46 22 54 |." "SD"OF"T|
00000350: 3B 00 88 1F EC 04 8B 20 CC 28 58 29 20 A7 20 99 |;...... .(X) . .|
00000360: 22 4E 4F 57 20 45 4E 54 45 52 45 44 20 2E 2E 2E |"NOW ENTERED ...|
00000370: 22 B8 28 58 29 22 42 59 54 45 53 20 46 52 45 45 |".(X)"BYTES FREE|
00000380: 22 3B 3A 89 31 32 38 30 00 B2 1F F6 04 99 22 4E |";:.1280......"N|
00000390: 4F 57 20 45 4E 54 45 52 45 44 20 2E 2E 2E 22 3A |OW ENTERED ...":|
000003A0: 99 B8 28 58 29 22 42 59 54 45 53 20 46 52 45 45 |..(X)"BYTES FREE|
000003B0: 22 3B 00 D1 1F 00 05 8B 20 45 B3 46 20 A7 20 99 |";...... E.F . .|
000003C0: 22 20 3C D0 CC C5 C1 D3 C5 20 D7 C1 C9 D4 21 3E |" <...... ....!>|
000003D0: 22 00 F4 1F 0A 05 97 32 30 38 2C 44 AA 31 3A 81 |"......208,D.1:.|
000003E0: 49 B2 31 A4 44 AA 31 3A 97 38 34 31 AA 49 2C 31 |I.1.D.1:.841.I,1|
000003F0: 33 3A 82 49 00 0F 20 14 05 41 B2 41 AA 31 30 3A |3:.I.. ..A.A.10:|
00000400: 44 B2 30 3A 4C B2 4D 3A 99 22 13 22 3B 3A 80 00 |D.0:L.M:.".";:..|
00000410: 15 20 1E 05 3A 00 3C 20 28 05 8B 45 B3 46 A7 43 |. ..:.< (..E.F.C|
00000420: B2 45 AA 4E 3A 45 B2 30 3A 97 32 30 38 2C 30 3A |.E.N:E.0:.208,0:|
00000430: 99 22 93 0E 11 22 3A 89 31 31 35 30 00 42 20 32 |."...":.1150.B 2|
00000440: 05 3A 00 6B 20 3C 05 99 A6 36 29 22 11 11 0E C4 |.:.k <...6)"....|
00000450: C1 D4 C1 20 D3 54 41 54 45 4D 45 4E 54 53 20 CE |... .TATEMENTS .|
00000460: 4F 57 20 C5 4E 54 45 52 45 44 22 00 91 20 46 05 |OW .NTERED".. F.|
00000470: 99 A6 36 29 22 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |..6)"...........|
00000480: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000490: 22 00 B8 20 50 05 99 A6 36 29 22 12 20 D0 52 45 |".. P...6)". .RE|
000004A0: 53 53 20 C1 4E 59 20 CB 45 59 20 54 4F 20 C3 4F |SS .NY .EY TO .O|
000004B0: 4E 54 49 4E 55 45 20 22 00 DE 20 5A 05 97 32 30 |NTINUE ".. Z..20|
000004C0: 38 2C 30 3A A1 F9 20 4B 24 3A 43 B2 45 AA 31 3A |8,0:.. K$:C.E.1:|
000004D0: 53 44 B2 30 3A 45 B2 30 3A 89 31 30 32 35 00 02 |SD.0:E.0:.1025..|
000004E0: 21 64 05 8F 20 2D 20 2D 20 41 44 44 52 45 53 53 |!d.. - - ADDRESS|
000004F0: 20 49 4E 50 55 54 20 2D 20 2D 20 2D 20 2D 20 2D | INPUT - - - - -|
00000500: 20 2D 00 26 21 6E 05 41 44 24 B2 22 22 3A 85 20 | -.&!n.AD$."":. |
00000510: 41 44 24 3A 41 4C B2 C3 28 41 44 24 29 3A 43 B2 |AD$:AL..(AD$):C.|
00000520: 30 3A 4E 47 B2 30 00 43 21 78 05 8B 20 41 44 24 |0:NG.0.C!x.. AD$|
00000530: B2 22 22 20 B0 20 41 4C B2 30 20 A7 20 4E 47 B2 |."" . AL.0 . NG.|
00000540: 31 3A 8E 00 67 21 82 05 8F 20 2D 20 2D 20 48 45 |1:..g!... - - HE|
00000550: 58 20 49 4E 50 55 54 20 2D 20 2D 20 2D 20 2D 20 |X INPUT - - - - |
00000560: 2D 20 2D 20 2D 20 2D 00 7C 21 8C 05 8B 20 C6 28 |- - - -.|!... .(|
00000570: 41 44 24 29 B2 33 36 20 A7 20 FE 18 00 99 21 96 |AD$).36 . ....!.|
00000580: 05 3A 20 3A 41 4C B2 41 4C AB 31 3A 41 44 24 B2 |.: :AL.AL.1:AD$.|
00000590: C9 28 41 44 24 2C 41 4C 29 00 B5 21 A0 05 3A 20 |.(AD$,AL)..!..: |
000005A0: 3A D7 31 35 31 30 3A 43 B2 D1 28 41 44 24 29 3A |:.1510:C..(AD$):|
000005B0: 89 31 35 30 30 00 BC 21 AA 05 FE 19 00 E0 21 B4 |.1500..!......!.|
000005C0: 05 8F 20 2D 20 2D 20 4A 55 4E 4B 20 49 4E 50 55 |.. - - JUNK INPU|
000005D0: 54 20 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D |T - - - - - - -|
000005E0: 00 FE 21 BE 05 8B C6 28 41 44 24 29 B3 34 38 B0 |..!....(AD$).48.|
000005F0: C6 28 41 44 24 29 B1 35 37 A7 31 35 31 30 00 22 |.(AD$).57.1510."|
00000600: 22 C8 05 8F 20 2D 20 2D 20 44 45 43 20 49 4E 50 |"... - - DEC INP|
00000610: 55 54 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D |UT - - - - - - -|
00000620: 20 2D 00 2F 22 D2 05 43 B2 C5 28 41 44 24 29 00 | -./"..C..(AD$).|
00000630: 45 22 DC 05 4E 47 B2 43 B1 36 35 35 33 35 3A 8B |E"..NG.C.65535:.|
00000640: A8 4E 47 A7 8E 00 7D 22 E6 05 99 22 11 11 CE 4F |.NG...}"..."...O|
00000650: 20 D3 55 43 48 20 41 44 44 52 45 53 53 20 41 53 | .UCH ADDRESS AS|
00000660: 20 22 41 44 24 22 20 4F 4E 20 41 20 C3 31 32 38 | "AD$" ON A .128|
00000670: 20 22 3A FE 0B 32 3A 4E 47 B2 31 3A 8E 00 00 00 | ":..2:NG.1:....|
..#.... 128 DATA MAKER BY DICK BEST.@...
A.5000:C.0:CL$.G(27)."@".[....0,16:.4,16
:.6,16:.5,1......"..... C128 DATA MAKER
BY DICK BEST":B.0:D.0:."....J....".
(PRECEED HEX DIGITS WITH "G(34)"$"G(34)"
)"......,2,08,"LINE # FOR 1ST DATA STATE
MENT ".D(A)......,31,08,"":. A:.A.0.1040
.F.$..,2,10,"START ADDRESS OF DATA ".D(
C).CL$.N....,24,10,"":.1390:B.C:.NG.NG.0
:.1060...8..,2,12,"ENDING ADDRESS OF DAT
A".CL$...B..,24,12,"":.1390:F.C:.NG.NG.0
:.1080...L..C..B.C.0..,2,14,"ILLEGAL END
ADDRESS":..2:.1080...V.. L(X) . N.336:L
.16:U N.147:L.7...`.:.8.J.."...":T.C.B:C
.B.N:M.L.>.T.:.W.~.: :.A;"DATA ";:D.D.1.
P...: :. F.E.L . L.F.E.....: :.E.B.B
.L:C$.D(B(E)).....: :C$.I(C$,C(C$).1).
B...: :.E..B . C$.",".C$.....: :.E..
F . E.B.L:.1250.....: :.C$;:SD.SD.1:..
..D.: :A.A.10:B.B.L.1.&.N.: :. B.C . .
:.1150.,.X.:.Q....:."GOTO 1310":."
"SD"OF"T;...... L(X) . ."NOW ENTERED ...
".(X)"BYTES FREE";:.1280......"NOW ENTER
ED ...":..(X)"BYTES FREE";.Q.... E.F . .
" <PLEASE WAIT!>"......208,D.1:.I.1.D.1:
.841.I,13:.I.. ..A.A.10:D.0:L.M:.".";:..
. ..:.< (..E.F.C.E.N:E.0:.208,0:."...":.
1150.B 2.:.K <...6)"...DATA STATEMENTS N
OW ENTERED".. F...6)"...................
........".. P...6)". PRESS ANY KEY TO CO
NTINUE ".. Z..208,0:.. K$:C.E.1:SD.0:E.0
:.1025..!D.. - - ADDRESS INPUT - - - - -
-.&!N.AD$."":. AD$:AL.C(AD$):C.0:NG.0.C
!X.. AD$."" . AL.0 . NG.1:..G!... - - HE
X INPUT - - - - - - - -.|!... F(AD$).36
. ....!..: :AL.AL.1:AD$.I(AD$,AL)..! .:
:W1510:C.Q(AD$):.1500..!......!... - - J
UNK INPUT - - - - - - -..!...F(AD$).48.
F(AD$).57.1510.""H.. - - DEC INPUT - - -
- - - - -./"R.C.E(AD$).E"..NG.C.65535:.
.NG...}"..."..NO SUCH ADDRESS AS "AD$" O
N A C128 ":..2:NG.1:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL