COPY PRG

FILE INFORMATION

FILENAME(S): COPY PRG

FILE TYPE(S): PRG

FILE SIZE: 1.2K

FIRST SEEN: 2025-11-30 21:27:13

APPEARS ON: 1 disk(s)

FILE HASH

1322cbb1a7baadf339a53c7dd791f7aba9ffffb65b4be00e19ee1b8ed61d91a8

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
MARCO	COPY PRG	PRG	DuncanTwain	25	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 25 08 01 00 97 34  39 31 35 32 2C 31 30 3A  |..%....49152,10:|
00000010: 8B C2 28 34 39 31 35 32  29 B3 B1 31 30 A7 43 30  |..(49152)..10.C0|
00000020: B2 31 3A 89 36 00 2E 08  02 00 43 30 B2 32 00 3C  |.1:.6.....C0.2.<|
00000030: 08 06 00 86 44 4F 53 25  28 36 35 29 00 5B 08 07  |....DOS%(65).[..|
00000040: 00 46 52 B2 B8 28 30 29  3A 8B 46 52 B2 B3 30 A7  |.FR..(0):.FR..0.|
00000050: 46 52 B2 46 52 AA 36 35  35 33 36 00 7A 08 08 00  |FR.FR.65536.z...|
00000060: 53 B2 28 46 52 AB 34 30  30 29 AD 32 3A 4D 32 B2  |S.(FR.400).2:M2.|
00000070: B5 28 53 AD 32 35 36 29  AA 31 00 88 08 09 00 86  |.(S.256).1......|
00000080: 54 45 4D 50 25 28 53 29  00 91 08 0A 00 8D 38 30  |TEMP%(S)......80|
00000090: 30 00 97 08 0B 00 80 00  BA 08 20 03 8F 2A 2A 2A  |0......... ..***|
000000A0: 20 43 4F 50 59 20 46 49  4C 45 20 4F 4E 20 4E 45  | COPY FILE ON NE|
000000B0: 57 20 44 49 53 4B 20 2A  2A 2A 00 C3 08 21 03 99  |W DISK ***...!..|
000000C0: 22 93 22 00 C9 08 22 03  3A 00 DA 08 23 03 4D 41  |"."...".:...#.MA|
000000D0: 58 B2 B5 28 53 AD 32 35  36 29 00 F7 08 24 03 99  |X..(S.256)...$..|
000000E0: 22 20 20 4D 41 58 49 4D  55 4D 20 49 20 44 4F 4E  |"  MAXIMUM I DON|
000000F0: 27 54 20 4E 4F 57 22 00  09 09 26 03 8B 4D 41 58  |'T NOW"...&..MAX|
00000100: B1 B2 4D 32 A7 89 38 30  39 00 0F 09 27 03 3A 00  |..M2..809...'.:.|
00000110: 3C 09 28 03 99 22 54 55  52 4E 20 43 4F 4D 50 20  |<.(.."TURN COMP |
00000120: 4F 46 20 41 4E 44 20 52  45 4C 4F 41 44 20 54 48  |OF AND RELOAD TH|
00000130: 49 53 20 50 52 4F 47 52  41 4D 4D 22 00 42 09 29  |IS PROGRAMM".B.)|
00000140: 03 3A 00 5C 09 2A 03 99  22 49 4E 50 55 54 20 4E  |.:.\.*.."INPUT N|
00000150: 41 4D 45 20 4F 46 20 46  49 4C 45 22 00 67 09 34  |AME OF FILE".g.4|
00000160: 03 85 46 49 4C 45 24 00  7A 09 3E 03 99 3A 99 22  |..FILE$.z.>..:."|
00000170: 46 49 4C 45 20 54 59 50  45 22 00 88 09 48 03 99  |FILE TYPE"...H..|
00000180: 22 50 52 47 3D 28 50 29  00 96 09 52 03 99 22 53  |"PRG=(P)...R.."S|
00000190: 45 51 3D 28 53 29 00 A4  09 5C 03 99 22 55 53 52  |EQ=(S)...\.."USR|
000001A0: 3D 28 55 29 00 B2 09 66  03 99 22 52 45 4C 3D 28  |=(U)...f.."REL=(|
000001B0: 52 29 00 BD 09 70 03 85  54 59 50 45 24 00 E9 09  |R)...p..TYPE$...|
000001C0: 7A 03 99 3A 99 22 49 4E  53 45 52 54 20 53 4F 55  |z..:."INSERT SOU|
000001D0: 52 43 45 20 44 49 53 4B  20 41 4E 44 20 50 52 45  |RCE DISK AND PRE|
000001E0: 53 53 20 41 20 4B 45 59  22 00 FD 09 84 03 A1 57  |SS A KEY"......W|
000001F0: 24 3A 8B 57 24 B2 22 22  A7 89 39 30 30 00 1D 0A  |$:.W$.""..900...|
00000200: 8E 03 8D 31 30 30 30 3A  8F 20 52 45 41 44 20 46  |...1000:. READ F|
00000210: 49 4C 45 20 49 4E 54 4F  20 54 45 4D 50 00 4E 0A  |ILE INTO TEMP.N.|
00000220: 98 03 99 3A 99 22 49 4E  53 45 52 54 20 44 45 53  |...:."INSERT DES|
00000230: 54 49 4E 41 54 49 4F 4E  20 44 49 53 4B 20 41 4E  |TINATION DISK AN|
00000240: 44 20 50 52 45 53 53 20  41 20 4B 45 59 22 00 61  |D PRESS A KEY".a|
00000250: 0A A2 03 A1 57 24 3A 8B  57 24 B2 22 22 A7 39 33  |....W$:.W$."".93|
00000260: 30 00 6B 0A AC 03 8D 31  30 35 30 00 8B 0A B6 03  |0.k....1050.....|
00000270: 99 3A 99 22 4D 41 4B 45  20 41 4E 4F 54 48 45 52  |.:."MAKE ANOTHER|
00000280: 20 43 4F 50 59 22 3B 3A  85 57 24 00 A4 0A C0 03  | COPY";:.W$.....|
00000290: 8B 20 C8 28 57 24 2C 31  29 B2 22 59 22 A7 20 89  |. .(W$,1)."Y". .|
000002A0: 20 39 32 30 00 AA 0A CA  03 8E 00 C4 0A D4 03 8F  | 920............|
000002B0: 20 43 48 45 43 4B 20 46  4F 52 20 47 4F 4F 44 20  | CHECK FOR GOOD |
000002C0: 4F 50 45 4E 00 D8 0A D9  03 84 31 35 2C 41 24 2C  |OPEN......15,A$,|
000002D0: 42 24 2C 43 24 2C 44 24  00 E9 0A DE 03 8B 20 C5  |B$,C$,D$...... .|
000002E0: 28 41 24 29 B2 30 A7 20  8E 00 FC 0A E3 03 99 41  |(A$).0. .......A|
000002F0: 24 2C 42 24 2C 43 24 2C  44 24 3A 90 00 0C 0B E8  |$,B$,C$,D$:.....|
00000300: 03 8F 20 52 45 41 44 20  46 49 4C 45 00 14 0B EA  |.. READ FILE....|
00000310: 03 49 B2 31 00 21 0B EC  03 9F 31 35 2C 38 2C 31  |.I.1.!....15,8,1|
00000320: 35 00 46 0B EE 03 9F 35  2C 38 2C 35 2C 22 30 3A  |5.F....5,8,5,"0:|
00000330: 22 AA 46 49 4C 45 24 AA  22 2C 22 AA 54 59 50 45  |".FILE$.",".TYPE|
00000340: 24 AA 22 2C 52 22 00 4F  0B F0 03 8D 39 38 30 00  |$.",R".O....980.|
00000350: 6F 0B F1 03 99 22 93 4E  4F 57 20 52 45 41 44 49  |o....".NOW READI|
00000360: 4E 47 20 20 20 2E 20 20  20 2E 20 20 20 2E 22 00  |NG   .   .   .".|
00000370: 7A 0B F2 03 A1 23 35 2C  41 24 00 92 0B F4 03 54  |z....#5,A$.....T|
00000380: 45 4D 50 25 28 49 29 B2  C6 28 41 24 AA C7 28 30  |EMP%(I)..(A$..(0|
00000390: 29 29 00 9C 0B F6 03 49  B2 49 AA 31 00 AC 0B F8  |)).....I.I.1....|
000003A0: 03 8B 20 53 54 B2 30 A7  31 30 31 30 00 DE 0B FA  |.. ST.0.1010....|
000003B0: 03 99 3A 99 22 46 49 4C  45 3D 3F 20 22 3B 46 49  |..:."FILE=? ";FI|
000003C0: 4C 45 24 2C 22 53 54 3D  22 3B 53 54 2C 22 42 59  |LE$,"ST=";ST,"BY|
000003D0: 54 45 53 3D 22 3B 49 3A  A0 35 3A A0 31 35 00 E4  |TES=";I:.5:.15..|
000003E0: 0B FC 03 8E 00 FA 0B 1A  04 8F 20 20 20 20 20 20  |..........      |
000003F0: 57 52 49 54 45 20 46 49  4C 45 00 07 0C 1C 04 9F  |WRITE FILE......|
00000400: 31 35 2C 38 2C 31 35 00  2C 0C 1E 04 9F 35 2C 38  |15,8,15.,....5,8|
00000410: 2C 35 2C 22 30 3A 22 AA  46 49 4C 45 24 AA 22 2C  |,5,"0:".FILE$.",|
00000420: 22 AA 54 59 50 45 24 AA  22 2C 57 22 00 35 0C 20  |".TYPE$.",W".5. |
00000430: 04 8D 39 38 30 00 49 0C  21 04 99 22 93 4E 4F 57  |..980.I.!..".NOW|
00000440: 20 57 52 49 54 49 4E 47  22 00 51 0C 22 04 4A B2  | WRITING".Q.".J.|
00000450: 31 00 65 0C 24 04 98 35  2C C7 28 54 45 4D 50 25  |1.e.$..5,.(TEMP%|
00000460: 28 4A 29 29 3B 00 6F 0C  26 04 4A B2 4A AA 31 00  |(J));.o.&.J.J.1.|
00000470: 7D 0C 28 04 8B 4A B3 49  A7 31 30 36 30 00 A4 0C  |}.(..J.I.1060...|
00000480: 2A 04 99 3A 99 22 46 49  4C 45 3D 20 22 3B 46 49  |*..:."FILE= ";FI|
00000490: 4C 45 24 2C 22 42 59 54  45 53 22 3B 4A 3A A0 35  |LE$,"BYTES";J:.5|
000004A0: 3A A0 31 35 00 AA 0C 2C  04 8E 00 B0 0C 2E 04 8E  |:.15...,........|
000004B0: 00 B7 0C 30 04 9B 3A 00  00 00                    |...0..:...      |

..%....49152,10:.B(49152)..10.C0.1:.6...
..C0.2.<....DOS%(65).[...FR..(0):.FR..0.
FR.FR.65536.Z...S.(FR.400).2:M2..(S.256)
.1......TEMP%(S)......800......... ..***
 COPY FILE ON NEW DISK ***.C.!..".".I.".
:.Z.#.MAX..(S.256)...$.."  MAXIMUM I DON
'T NOW"...&..MAX..M2..809...'.:.<.(.."TU
RN COMP OF AND RELOAD THIS PROGRAMM".B.)
.:.\.*.."INPUT NAME OF FILE".G.4..FILE$.
Z.>..:."FILE TYPE"...H.."PRG=(P)...R.."S
EQ=(S)...\.."USR=(U)...F.."REL=(R)...P..
TYPE$...Z..:."INSERT SOURCE DISK AND PRE
SS A KEY"......W$:.W$.""..900......1000:
. READ FILE INTO TEMP.N....:."INSERT DES
TINATION DISK AND PRESS A KEY".A....W$:.
W$."".930.K....1050......:."MAKE ANOTHER
 COPY";:.W$...... H(W$,1)."Y". . 920...J
...D.T.. CHECK FOR GOOD OPEN.X.Y..15,A$,
B$,C$,D$...... E(A$).0. .......A$,B$,C$,
D$:....... READ FILE.....I.1.!....15,8,1
5.F....5,8,5,"0:".FILE$.",".TYPE$.",R".O
....980.O....".NOW READING   .   .   .".
Z....#5,A$.....TEMP%(I).F(A$.G(0)).....I
.I.1...... ST.0.1010......:."FILE=? ";FI
LE$,"ST=";ST,"BYTES=";I: 5: 15..........
..      WRITE FILE......15,8,15.,....5,8
,5,"0:".FILE$.",".TYPE$.",W".5. ..980.I.
!..".NOW WRITING".Q.".J.1.E.$..5,G(TEMP%
(J));.O.&.J.J.1.}.(..J.I.1060...*..:."FI
LE= ";FILE$,"BYTES";J: 5: 15...,........
...0..:...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL