> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 00 00 8F 20 2A 20 20 20 20 50 52 4F |....... * PRO|
00000010: 47 52 41 4D 20 31 35 2D 31 20 20 20 20 20 2A 00 |GRAM 15-1 *.|
00000020: 25 08 01 00 3A 00 55 08 0A 00 97 20 35 35 2C 30 |%...:.U.... 55,0|
00000030: 3A 20 97 20 35 36 2C 31 32 3A 20 9C 3A 20 8F 20 |: . 56,12: .: . |
00000040: 46 52 45 45 20 52 41 4D 20 53 54 41 52 54 53 20 |FREE RAM STARTS |
00000050: 24 30 43 30 30 00 7A 08 14 00 99 20 22 4E 41 4D |$0C00.z.... "NAM|
00000060: 45 20 4F 46 20 50 52 4F 47 52 41 4D 20 54 4F 20 |E OF PROGRAM TO |
00000070: 42 45 20 43 4F 50 49 45 44 22 00 83 08 1E 00 85 |BE COPIED"......|
00000080: 20 4E 24 00 AA 08 28 00 99 20 22 11 4E 41 4D 45 | N$...(.. ".NAME|
00000090: 20 4F 46 20 50 52 4F 47 52 41 4D 20 41 46 54 45 | OF PROGRAM AFTE|
000000A0: 52 20 43 4F 50 59 49 4E 47 22 00 B3 08 32 00 85 |R COPYING"...2..|
000000B0: 20 4D 24 00 C1 08 3C 00 9F 20 31 35 2C 38 2C 31 | M$...<.. 15,8,1|
000000C0: 35 00 EF 08 64 00 99 20 22 11 49 4E 53 45 52 54 |5...d.. ".INSERT|
000000D0: 20 44 49 53 4B 20 48 4F 4C 44 49 4E 47 20 4F 52 | DISK HOLDING OR|
000000E0: 49 47 49 4E 41 4C 20 50 52 4F 47 52 41 4D 22 00 |IGINAL PROGRAM".|
000000F0: 09 09 6E 00 99 22 20 54 48 45 4E 20 50 52 45 53 |..n.." THEN PRES|
00000100: 53 20 52 45 54 55 52 4E 22 00 25 09 78 00 A1 20 |S RETURN".%.x.. |
00000110: 58 24 3A 20 8B 20 58 24 B3 B1 C7 28 31 33 29 20 |X$: . X$...(13) |
00000120: 89 20 31 32 30 00 43 09 82 00 99 20 22 11 4F 4B |. 120.C.... ".OK|
00000130: 2E 2E 2E 20 52 45 41 44 49 4E 47 20 22 20 4E 24 |... READING " N$|
00000140: 3A 20 99 00 59 09 C8 00 9F 20 31 2C 38 2C 32 2C |: ..Y.... 1,8,2,|
00000150: 4E 24 AA 22 2C 50 2C 52 22 00 6E 09 2C 01 81 20 |N$.",P,R".n.,.. |
00000160: 4A B2 33 30 37 32 20 A4 20 34 30 39 36 30 00 87 |J.3072 . 40960..|
00000170: 09 36 01 A1 23 31 2C 58 24 3A 20 8B 20 53 54 B1 |.6..#1,X$: . ST.|
00000180: 30 20 89 20 34 30 30 00 9A 09 40 01 97 20 4A 2C |0 . 400...@.. J,|
00000190: C6 28 58 24 AA C7 28 30 29 29 00 B1 09 4A 01 82 |.(X$..(0))...J..|
000001A0: 3A 20 99 20 22 54 4F 4F 20 4C 4F 4E 47 22 3A 20 |: . "TOO LONG": |
000001B0: 80 00 D7 09 90 01 A0 20 31 3A 20 99 20 22 11 49 |....... 1: . ".I|
000001C0: 4E 53 45 52 54 20 44 45 53 54 49 4E 41 54 49 4F |NSERT DESTINATIO|
000001D0: 4E 20 44 49 53 4B 22 00 F2 09 9A 01 99 20 22 20 |N DISK"...... " |
000001E0: 54 48 45 4E 20 50 52 45 53 53 20 52 45 54 55 52 |THEN PRESS RETUR|
000001F0: 4E 22 00 0E 0A A4 01 A1 20 58 24 3A 20 8B 20 58 |N"...... X$: . X|
00000200: 24 B3 B1 C7 28 31 33 29 20 89 20 34 32 30 00 29 |$...(13) . 420.)|
00000210: 0A AE 01 99 20 22 11 4F 4B 2E 2E 2E 20 57 52 49 |.... ".OK... WRI|
00000220: 54 49 4E 47 20 22 20 4D 24 00 35 0A B8 01 98 31 |TING " M$.5....1|
00000230: 35 2C 22 49 22 00 4B 0A F4 01 9F 20 31 2C 38 2C |5,"I".K.... 1,8,|
00000240: 32 2C 4D 24 AA 22 2C 50 2C 57 22 00 5C 0A 58 02 |2,M$.",P,W".\.X.|
00000250: 81 20 4B B2 33 30 37 32 20 A4 20 4A 00 6C 0A 62 |. K.3072 . J.l.b|
00000260: 02 98 31 2C C7 28 C2 28 4B 29 29 3B 00 72 0A 6C |..1,.(.(K));.r.l|
00000270: 02 82 00 94 0A BC 02 A0 20 31 3A 20 A0 20 31 35 |........ 1: . 15|
00000280: 3A 20 99 20 22 43 4F 50 59 20 43 4F 4D 50 4C 45 |: . "COPY COMPLE|
00000290: 54 45 44 22 00 00 00 |TED"... |
....... * PROGRAM 15-1 *.%...:.U.
... 55,0: . 56,12: .: . FREE RAM STARTS
$0C00.Z.... "NAME OF PROGRAM TO BE COPIE
D"...... N$...(.. ".NAME OF PROGRAM AFTE
R COPYING"...2.. M$.A.<.. 15,8,15...D..
".INSERT DISK HOLDING ORIGINAL PROGRAM".
..N.." THEN PRESS RETURN".%.X.. X$: . X$
..G(13) . 120.C.... ".OK... READING " N$
: ..Y.H.. 1,8,2,N$.",P,R".N.,.. J.3072 .
40960...6..#1,X$: . ST.0 . 400...@.. J,
F(X$.G(0))...J..: . "TOO LONG": ..W...
1: . ".INSERT DESTINATION DISK"...... "
THEN PRESS RETURN"...... X$: . X$..G(13)
. 420.).... ".OK... WRITING " M$.5....1
5,"I".K.... 1,8,2,M$.",P,W".\.X.. K.3072
. J.L.B..1,G(B(K));.R.L....... 1: 15
: . "COPY COMPLETED"...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL