COPYPRG
FILE INFORMATION
FILENAME(S): COPYPRG
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-12-01 02:25:52
APPEARS ON: 1 disk(s)
FILE HASH
ce90689bc91ae69984febd6101e6dc84bbf43ecdd6bcd64471ee14d9dcb0e136
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COPY PROGRAMMA S | COPYPRG | PRG | hedning, shine | 20 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 C0 1D C0 00 00 8F 20 2A 20 53 49 4E 47 4C 45 |....... * SINGLE| 00000010: 20 44 52 49 56 45 20 43 4F 50 59 20 2A 00 5C C0 | DRIVE COPY *.\.| 00000020: 01 00 97 35 33 32 38 30 2C 30 20 3A 97 35 33 32 |...53280,0 :.532| 00000030: 38 31 2C 30 20 3A 99 22 93 9A 20 20 20 20 20 53 |81,0 :.".. S| 00000040: 49 4E 47 4C 45 20 44 52 49 56 45 20 43 4F 50 59 |INGLE DRIVE COPY| 00000050: 20 43 36 34 20 26 20 31 35 34 31 22 00 8E C0 02 | C64 & 1541"....| 00000060: 00 99 22 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D |.." --------| 00000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000080: 2D 2D 2D 2D 11 22 3A 86 54 24 28 33 30 29 00 BD |----.":.T$(30)..| 00000090: C0 03 00 99 22 20 20 20 20 20 12 28 43 29 92 20 |...." .(C). | 000000A0: 31 39 38 33 20 42 59 20 53 54 45 46 41 4E 20 42 |1983 BY STEFAN B| 000000B0: 55 45 48 4E 45 11 22 3A 8D 32 33 3A 99 00 FC C0 |UEHNE.":.23:....| 000000C0: 04 00 9F 31 2C 38 2C 31 35 2C 22 49 22 3A 9F 32 |...1,8,15,"I":.2| 000000D0: 2C 38 2C 30 2C 22 24 22 3A 8D 33 30 3A 86 4E 24 |,8,0,"$":.30:.N$| 000000E0: 28 33 30 29 2C 42 28 33 30 29 2C 55 28 33 30 29 |(30),B(30),U(30)| 000000F0: 2C 56 28 33 30 29 2C 57 28 33 30 29 00 19 C1 05 |,V(30),W(30)....| 00000100: 00 8D 33 30 3A 8D 32 39 3A 99 42 3B 3A 8D 33 31 |..30:.29:.B;:.31| 00000110: 3A 8D 33 30 3A 99 22 11 22 00 39 C1 06 00 8D 32 |:.30:.".".9....2| 00000120: 39 3A 99 22 9A 22 42 3B 3A 43 24 B2 22 22 3A 8D |9:."."B;:C$."":.| 00000130: 33 31 3A 99 A3 33 32 29 3B 00 56 C1 07 00 8D 32 |31:..32);.V....2| 00000140: 38 3A 54 B2 41 3A 8D 32 38 3A 8B 41 AA 54 B2 30 |8:T.A:.28:.A.T.0| 00000150: A7 99 3A 89 31 33 00 8B C1 08 00 8B 42 B1 31 38 |..:.13......B.18| 00000160: 34 A7 99 3A 99 22 20 12 1C 5E 92 9A 20 46 49 4C |4..:." ..^.. FIL| 00000170: 45 20 54 4F 4F 20 4C 4F 4E 47 20 46 4F 52 20 43 |E TOO LONG FOR C| 00000180: 4F 50 59 49 4E 47 2E 22 3A 89 36 00 BE C1 09 00 |OPYING.":.6.....| 00000190: 99 22 1C 59 45 53 2F 4E 4F 9D 9D 9D 9D 9D 9D 22 |.".YES/NO......"| 000001A0: 3B 3A 8D 32 35 3A 8B 41 24 B3 B1 22 59 22 A7 99 |;:.25:.A$.."Y"..| 000001B0: 22 1E 12 4E 4F 92 20 20 20 20 22 3A 89 36 00 FA |"..NO. ":.6..| 000001C0: C1 0A 00 54 B2 31 3A 42 28 52 29 B2 42 3A 8D 33 |...T.1:B(R).B:.3| 000001D0: 33 3A 42 B2 54 3A 8D 33 33 3A 4E 24 28 52 29 B2 |3:B.T:.33:N$(R).| 000001E0: CA 28 43 24 2C 42 2C 54 AB 42 AB 31 29 3A 99 22 |.(C$,B,T.B.1):."| 000001F0: 12 1E 59 45 53 92 20 20 20 22 00 39 C2 0B 00 54 |..YES. ".9...T| 00000200: B2 54 AA 31 3A 91 AB 28 CA 28 43 24 2C 54 2C 31 |.T.1:..(.(C$,T,1| 00000210: 29 B3 B1 22 50 22 AF CA 28 43 24 2C 54 2C 31 29 |).."P"..(C$,T,1)| 00000220: B3 B1 22 53 22 29 89 31 31 3A 54 24 28 52 29 B2 |.."S").11:T$(R).| 00000230: CA 28 43 24 2C 54 2C 31 29 00 70 C2 0C 00 52 B2 |.(C$,T,1).p...R.| 00000240: 52 AA 31 3A 91 AB 28 52 B3 33 31 29 89 36 3A 99 |R.1:..(R.31).6:.| 00000250: 22 11 9A 4C 49 53 54 20 46 4F 52 20 43 4F 50 59 |"..LIST FOR COPY| 00000260: 49 4E 47 20 12 1C 46 55 4C 4C 92 9A 20 21 11 22 |ING ..FULL.. !."| 00000270: 00 92 C2 0D 00 A0 32 3A 81 54 B2 30 A4 52 AB 31 |......2:.T.0.R.1| 00000280: 3A 55 28 54 29 B2 38 3A 41 B2 30 3A 8B 54 A7 8D |:U(T).8:A.0:.T..| 00000290: 32 33 00 A8 C2 0E 00 99 22 11 52 45 41 44 49 4E |23......".READIN| 000002A0: 47 20 22 4E 24 28 54 29 00 E3 C2 0F 00 9F 32 2C |G "N$(T)......2,| 000002B0: 38 2C 32 2C 4E 24 28 54 29 AA 22 2C 22 AA 54 24 |8,2,N$(T).",".T$| 000002C0: 28 54 29 AA 22 2C 52 22 3A 97 32 35 31 2C 30 3A |(T).",R":.251,0:| 000002D0: 97 32 35 32 2C 55 28 54 29 3A 9E 35 32 39 39 32 |.252,U(T):.52992| 000002E0: 3A A0 32 00 FF C2 10 00 56 28 54 29 B2 C2 28 32 |:.2.....V(T)..(2| 000002F0: 35 32 29 3A 57 28 54 29 B2 C2 28 32 35 31 29 00 |52):W(T)..(251).| 00000300: 38 C3 11 00 8B 54 B3 52 AB 31 AF 56 28 54 29 AA |8....T.R.1.V(T).| 00000310: 42 28 54 AA 31 29 B3 31 38 33 A7 54 B2 54 AA 31 |B(T.1).183.T.T.1| 00000320: 3A 41 B2 41 AA 31 3A 55 28 54 29 B2 56 28 54 AB |:A.A.1:U(T).V(T.| 00000330: 31 29 AA 31 3A 89 31 34 00 46 C3 12 00 54 B2 54 |1).1:.14.F...T.T| 00000340: AB 41 3A 8D 32 34 00 5C C3 13 00 99 22 11 57 52 |.A:.24.\....".WR| 00000350: 49 54 49 4E 47 20 22 4E 24 28 54 29 00 97 C3 14 |ITING "N$(T)....| 00000360: 00 9F 32 2C 38 2C 32 2C 4E 24 28 54 29 AA 22 2C |..2,8,2,N$(T).",| 00000370: 22 AA 54 24 28 54 29 AA 22 2C 57 22 3A 97 32 35 |".T$(T).",W":.25| 00000380: 31 2C 30 3A 97 32 35 32 2C 55 28 54 29 3A 97 32 |1,0:.252,U(T):.2| 00000390: 35 33 2C 57 28 54 29 00 C2 C3 15 00 97 32 35 34 |53,W(T)......254| 000003A0: 2C 56 28 54 29 3A 9E 35 33 30 33 38 3A A0 32 3A |,V(T):.53038:.2:| 000003B0: 8B 41 A7 41 B2 41 AB 31 3A 54 B2 54 AA 31 3A 89 |.A.A.A.1:T.T.1:.| 000003C0: 31 39 00 CD C3 16 00 82 3A A0 31 3A 8A 00 FB C3 |19......:.1:....| 000003D0: 17 00 99 22 11 49 4E 53 45 52 54 20 12 1C 53 4F |...".INSERT ..SO| 000003E0: 55 52 43 45 92 9A 20 44 49 53 4B 20 49 4E 54 4F |URCE.. DISK INTO| 000003F0: 20 44 52 49 56 45 22 3A 89 32 35 00 2A C4 18 00 | DRIVE":.25.*...| 00000400: 99 22 11 49 4E 53 45 52 54 20 12 1C 44 45 53 54 |.".INSERT ..DEST| 00000410: 49 4E 41 54 49 4F 4E 92 9A 20 44 49 53 4B 20 49 |INATION.. DISK I| 00000420: 4E 54 4F 20 44 52 49 56 45 22 00 35 C4 19 00 97 |NTO DRIVE".5....| 00000430: 31 39 38 2C 30 00 47 C4 1A 00 A1 41 24 3A 8B 41 |198,0.G....A$:.A| 00000440: 24 B2 22 22 A7 32 36 00 4D C4 1B 00 8E 00 72 C4 |$."".26.M.....r.| 00000450: 1C 00 A1 23 32 2C 41 24 3A 41 24 B2 C8 28 41 24 |...#2,A$:A$..(A$| 00000460: AA C7 28 30 29 2C 31 29 3A 41 B2 C6 28 41 24 29 |..(0),1):A..(A$)| 00000470: 3A 8E 00 8E C4 1D 00 8D 32 38 3A 42 B2 41 3A 8D |:.......28:B.A:.| 00000480: 32 38 3A 42 B2 42 AA 32 35 36 AC 41 3A 8E 00 A2 |28:B.B.256.A:...| 00000490: C4 1E 00 A1 23 32 2C 41 24 3A A1 23 32 2C 41 24 |....#2,A$:.#2,A$| 000004A0: 3A 8E 00 BF C4 1F 00 8D 32 38 3A 8B 41 A7 99 41 |:.......28:.A..A| 000004B0: 24 3B 3A 43 24 B2 43 24 AA 41 24 3A 89 33 31 00 |$;:C$.C$.A$:.31.| 000004C0: C5 C4 20 00 8E 00 E5 C4 21 00 8B CA 28 43 24 2C |.. .....!...(C$,| 000004D0: 54 2C 31 29 B3 B1 C7 28 33 34 29 A7 54 B2 54 AA |T,1)...(34).T.T.| 000004E0: 31 3A 89 33 33 00 F1 C4 22 00 54 B2 54 AA 31 3A |1:.33...".T.T.1:| 000004F0: 8E 00 00 00 35 AD FF FF FF F7 FF |....5...... |
....... * SINGLE DRIVE COPY *.\....53280 ,0 :.53281,0 :.".. SINGLE DRIVE COPY C64 & 1541"......" ---------------- ------------.":.T$(30)......" .(C). 1983 BY STEFAN BUEHNE.":.23:.......1,8,1 5,"I":.2,8,0,"$":.30:.N$(30),B(30),U(30) ,V(30),W(30)..A...30:.29:.B;:.31:.30:.". ".9A...29:."."B;:C$."":.31:..32);.VA...2 8:T.A:.28:.A.T.0..:.13..A...B.184..:." . .^.. FILE TOO LONG FOR COPYING.":.6..A.. .".YES/NO......";:.25:.A$.."Y".."..NO. ":.6..A..T.1:B(R).B:.33:B.T:.33:N$(R). J(C$,B,T.B.1):."..YES. ".9B..T.T.1:..( J(C$,T,1).."P".J(C$,T,1).."S").11:T$(R). J(C$,T,1).PB..R.R.1:..(R.31).6:."..LIST FOR COPYING ..FULL.. !."..B.. 2:.T.0.R.1 :U(T).8:A.0:.T..23..B...".READING "N$(T) ..B...2,8,2,N$(T).",".T$(T).",R":.251,0: .252,U(T):.52992: 2..B..V(T).B(252):W(T) .B(251).8C...T.R.1.V(T).B(T.1).183.T.T.1 :A.A.1:U(T).V(T.1).1:.14.FC..T.T.A:.24.\ C...".WRITING "N$(T)..C...2,8,2,N$(T).", ".T$(T).",W":.251,0:.252,U(T):.253,W(T). BC...254,V(T):.53038: 2:.A.A.A.1:T.T.1:. 19.MC...: 1:...C...".INSERT ..SOURCE.. D ISK INTO DRIVE":.25.*D...".INSERT ..DEST INATION.. DISK INTO DRIVE".5D...198,0.GD ...A$:.A$."".26.MD....RD...#2,A$:A$.H(A$ .G(0),1):A.F(A$):...D...28:B.A:.28:B.B.2 56.A:...D...#2,A$:.#2,A$:...D...28:.A..A $;:C$.C$.A$:.31.ED ....D!..J(C$,T,1)..G( 34).T.T.1:.33..D".T.T.1:....5......
> CLICK IMAGE PREVIEW FOR FULL MODAL