_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

COPY V

FILE INFORMATION

FILENAME(S): COPY V

FILE TYPE(S): PRG

FILE SIZE: 419b

FIRST SEEN: 2025-12-01 13:48:12

APPEARS ON: 1 disk(s)

FILE HASH

10e1ce12b23e83c0327d169330666cf88b6a5b10c8a9452001a2cd6c018261b0

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
PROGRAMS COPY V PRG hedning, Gemcutter 25 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 0F 08 01 00 9F 20  31 35 2C 38 2C 31 35 00  |....... 15,8,15.|
00000010: 20 08 02 00 84 31 35 2C  45 24 2C 46 24 2C 47 24  | ....15,E$,F$,G$|
00000020: 00 2E 08 03 00 99 45 24  2C 46 24 2C 47 24 00 34  |......E$,F$,G$.4|
00000030: 08 04 00 80 00 4C 08 0A  00 85 22 20 43 4F 50 59  |.....L...." COPY|
00000040: 46 52 4F 4D 20 22 3B 46  52 4F 4D 24 00 61 08 14  |FROM ";FROM$.a..|
00000050: 00 85 22 20 43 4F 50 59  54 4F 20 20 20 22 3B 54  |.." COPYTO   ";T|
00000060: 24 00 7A 08 1E 00 85 22  20 46 49 4C 54 59 50 28  |$.z...." FILTYP(|
00000070: 53 2F 50 29 22 3B 54 59  50 24 00 9B 08 28 00 9F  |S/P)";TYP$...(..|
00000080: 20 31 2C 38 2C 31 2C 22  30 3A 22 AA 46 52 4F 4D  | 1,8,1,"0:".FROM|
00000090: 24 AA 54 59 50 24 AA 22  2C 52 22 00 BC 08 32 00  |$.TYP$.",R"...2.|
000000A0: 4F 50 45 4E 20 32 2C 38  2C 32 2C 22 30 3A 22 2B  |OPEN 2,8,2,"0:"+|
000000B0: 54 24 2B 54 59 50 24 2B  22 2C 57 22 00 D6 08 37  |T$+TYP$+",W"...7|
000000C0: 00 99 22 49 4E 53 45 52  54 20 4F 55 54 50 55 54  |.."INSERT OUTPUT|
000000D0: 20 44 49 53 4B 22 00 EC  08 38 00 A1 20 44 24 3A  | DISK"...8.. D$:|
000000E0: 8B 20 44 24 B2 22 22 20  A7 20 39 36 00 FC 08 3C  |. D$."" . 96...<|
000000F0: 00 81 20 41 B2 31 20 A4  20 32 35 35 00 12 09 3D  |.. A.1 . 255...=|
00000100: 00 49 46 20 53 54 3D 36  34 20 54 48 45 4E 20 31  |.IF ST=64 THEN 1|
00000110: 32 30 00 24 09 41 00 50  52 49 4E 54 43 48 52 24  |20.$.A.PRINTCHR$|
00000120: 28 31 39 29 00 2F 09 42  00 50 52 49 4E 54 41 00  |(19)./.B.PRINTA.|
00000130: 3A 09 46 00 A1 23 31 2C  41 24 00 47 09 50 00 42  |:.F..#1,A$.G.P.B|
00000140: 24 B2 42 24 AA 41 24 00  4F 09 5A 00 82 20 41 00  |$.B$.A$.O.Z.. A.|
00000150: 68 09 5F 00 99 22 49 4E  53 45 52 54 20 49 4E 50  |h._.."INSERT INP|
00000160: 55 54 20 44 49 53 4B 22  00 7E 09 60 00 A1 20 43  |UT DISK".~.`.. C|
00000170: 24 3A 8B 20 43 24 B2 22  22 20 A7 20 39 36 00 88  |$:. C$."" . 96..|
00000180: 09 64 00 98 32 2C 42 24  00 94 09 6E 00 47 4F 54  |.d..2,B$...n.GOT|
00000190: 4F 20 36 30 00 A0 09 78  00 A0 20 31 3A A0 20 32  |O 60...x.. 1:. 2|
000001A0: 00 00 00                                          |...             |

....... 15,8,15. ....15,E$,F$,G$......E$
,F$,G$.4.....L...." COPYFROM ";FROM$.A..
.." COPYTO   ";T$.Z...." FILTYP(S/P)";TY
P$...(.. 1,8,1,"0:".FROM$.TYP$.",R"...2.
OPEN 2,8,2,"0:"+T$+TYP$+",W".V.7.."INSER
T OUTPUT DISK"...8.. D$:. D$."" . 96...<
.. A.1 . 255...=.IF ST=64 THEN 120.$.A.P
RINTCHR$(19)./.B.PRINTA.:.F..#1,A$.G.P.B
$.B$.A$.O.Z.. A.H._.."INSERT INPUT DISK"
.~.`.. C$:. C$."" . 96...D..2,B$...N.GOT
O 60. .X.  1:  2...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL