GOOD COPY 2

FILE INFORMATION

FILENAME(S): GOOD COPY 2

FILE TYPE(S): PRG

FILE SIZE: 1.6K

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

APPEARS ON: 1 disk(s)

FILE HASH

61b91e6c39582c96645fdd8b701ac2713012f66cb764cb2c587f0323249b3cda

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
MARCO	GOOD COPY 2	PRG	DuncanTwain	12	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 2C 08 00 00 9F 31  2C 38 2C 31 35 2C 22 4D  |..,....1,8,15,"M|
00000010: 2D 57 22 AA C7 28 37 29  AA C7 28 32 38 29 AA C7  |-W"..(7)..(28)..|
00000020: 28 31 29 AA C7 28 35 35  29 3A A0 31 00 62 08 01  |(1)..(55):.1.b..|
00000030: 00 97 35 33 32 38 31 2C  30 3A 97 35 33 32 38 30  |..53281,0:.53280|
00000040: 2C 30 3A 97 34 39 31 35  32 2C 31 30 3A 8B C2 28  |,0:.49152,10:..(|
00000050: 34 39 31 35 32 29 B3 B1  31 30 A7 43 30 B2 31 3A  |49152)..10.C0.1:|
00000060: 89 33 00 6B 08 02 00 43  30 B2 32 00 79 08 03 00  |.3.k...C0.2.y...|
00000070: 86 44 4F 53 25 28 36 35  29 00 80 08 04 00 8D 36  |.DOS%(65)......6|
00000080: 00 86 08 05 00 80 00 A9  08 06 00 8F 2A 2A 2A 20  |............*** |
00000090: 43 4F 50 59 20 46 49 4C  45 20 4F 4E 20 4E 45 57  |COPY FILE ON NEW|
000000A0: 20 44 49 53 4B 20 2A 2A  2A 00 B2 08 07 00 99 22  | DISK ***......"|
000000B0: 93 22 00 C3 08 08 00 4D  41 58 B2 B5 28 53 AD 32  |.".....MAX..(S.2|
000000C0: 35 36 29 00 E0 08 09 00  99 22 20 20 4D 41 58 49  |56)......"  MAXI|
000000D0: 4D 55 4D 20 49 20 44 4F  4E 27 54 20 4E 4F 57 22  |MUM I DON'T NOW"|
000000E0: 00 F1 08 0A 00 8B 4D 41  58 B1 B2 4D 32 A7 89 31  |......MAX..M2..1|
000000F0: 33 00 F7 08 0B 00 3A 00  24 09 0C 00 99 22 54 55  |3.....:.$...."TU|
00000100: 52 4E 20 43 4F 4D 50 20  4F 46 20 41 4E 44 20 52  |RN COMP OF AND R|
00000110: 45 4C 4F 41 44 20 54 48  49 53 20 50 52 4F 47 52  |ELOAD THIS PROGR|
00000120: 41 4D 4D 22 00 2A 09 0D  00 3A 00 44 09 0E 00 99  |AMM".*...:.D....|
00000130: 22 49 4E 50 55 54 20 4E  41 4D 45 20 4F 46 20 46  |"INPUT NAME OF F|
00000140: 49 4C 45 22 00 4F 09 0F  00 85 46 49 4C 45 24 00  |ILE".O....FILE$.|
00000150: 62 09 10 00 99 3A 99 22  46 49 4C 45 20 54 59 50  |b....:."FILE TYP|
00000160: 45 22 00 70 09 11 00 99  22 50 52 47 3D 28 50 29  |E".p...."PRG=(P)|
00000170: 00 7E 09 12 00 99 22 53  45 51 3D 28 53 29 00 8C  |.~...."SEQ=(S)..|
00000180: 09 13 00 99 22 55 53 52  3D 28 55 29 00 9A 09 14  |...."USR=(U)....|
00000190: 00 99 22 52 45 4C 3D 28  52 29 00 A5 09 15 00 85  |.."REL=(R)......|
000001A0: 54 59 50 45 24 00 D1 09  16 00 99 3A 99 22 49 4E  |TYPE$......:."IN|
000001B0: 53 45 52 54 20 53 4F 55  52 43 45 20 44 49 53 4B  |SERT SOURCE DISK|
000001C0: 20 41 4E 44 20 50 52 45  53 53 20 41 20 4B 45 59  | AND PRESS A KEY|
000001D0: 22 00 E4 09 17 00 A1 57  24 3A 8B 57 24 B2 22 22  |"......W$:.W$.""|
000001E0: A7 89 32 33 00 0B 0A 18  00 97 35 33 32 36 35 2C  |..23......53265,|
000001F0: 30 3A 8D 33 35 3A 8F 20  52 45 41 44 20 46 49 4C  |0:.35:. READ FIL|
00000200: 45 20 49 4E 54 4F 20 54  45 4D 50 00 3C 0A 19 00  |E INTO TEMP.<...|
00000210: 99 3A 99 22 49 4E 53 45  52 54 20 44 45 53 54 49  |.:."INSERT DESTI|
00000220: 4E 41 54 49 4F 4E 20 44  49 53 4B 20 41 4E 44 20  |NATION DISK AND |
00000230: 50 52 45 53 53 20 41 20  4B 45 59 22 00 4E 0A 1A  |PRESS A KEY".N..|
00000240: 00 A1 57 24 3A 8B 57 24  B2 22 22 A7 32 36 00 56  |..W$:.W$."".26.V|
00000250: 0A 1B 00 8D 34 38 00 76  0A 1C 00 99 3A 99 22 4D  |....48.v....:."M|
00000260: 41 4B 45 20 41 4E 4F 54  48 45 52 20 43 4F 50 59  |AKE ANOTHER COPY|
00000270: 22 3B 3A 85 57 24 00 8E  0A 1D 00 8B 20 C8 28 57  |";:.W$...... .(W|
00000280: 24 2C 31 29 B2 22 59 22  A7 20 89 20 32 35 00 94  |$,1)."Y". . 25..|
00000290: 0A 1E 00 8E 00 AE 0A 1F  00 8F 20 43 48 45 43 4B  |.......... CHECK|
000002A0: 20 46 4F 52 20 47 4F 4F  44 20 4F 50 45 4E 00 C2  | FOR GOOD OPEN..|
000002B0: 0A 20 00 84 31 35 2C 41  24 2C 42 24 2C 43 24 2C  |. ..15,A$,B$,C$,|
000002C0: 44 24 00 D3 0A 21 00 8B  20 C5 28 41 24 29 B2 30  |D$...!.. .(A$).0|
000002D0: A7 20 8E 00 E6 0A 22 00  99 41 24 2C 42 24 2C 43  |. ...."..A$,B$,C|
000002E0: 24 2C 44 24 3A 90 00 F6  0A 23 00 8F 20 52 45 41  |$,D$:....#.. REA|
000002F0: 44 20 46 49 4C 45 00 FE  0A 24 00 49 B2 31 00 0B  |D FILE...$.I.1..|
00000300: 0B 25 00 9F 31 35 2C 38  2C 31 35 00 30 0B 26 00  |.%..15,8,15.0.&.|
00000310: 9F 35 2C 38 2C 35 2C 22  30 3A 22 AA 46 49 4C 45  |.5,8,5,"0:".FILE|
00000320: 24 AA 22 2C 22 AA 54 59  50 45 24 AA 22 2C 52 22  |$.",".TYPE$.",R"|
00000330: 00 38 0B 27 00 8D 33 31  00 58 0B 28 00 99 22 93  |.8.'..31.X.(..".|
00000340: 4E 4F 57 20 52 45 41 44  49 4E 47 20 20 20 2E 20  |NOW READING   . |
00000350: 20 20 2E 20 20 20 2E 22  00 63 0B 29 00 A1 23 35  |  .   .".c.)..#5|
00000360: 2C 41 24 00 86 0B 2A 00  54 45 4D 50 25 B2 C6 28  |,A$...*.TEMP%..(|
00000370: 41 24 AA C7 28 30 29 29  3A 97 38 33 30 30 AA 49  |A$..(0)):.8300.I|
00000380: 2C 54 45 4D 50 25 00 90  0B 2B 00 49 B2 49 AA 31  |,TEMP%...+.I.I.1|
00000390: 00 9E 0B 2C 00 8B 20 53  54 B2 30 A7 34 31 00 DA  |...,.. ST.0.41..|
000003A0: 0B 2D 00 99 3A 99 22 46  49 4C 45 3D 3F 20 22 3B  |.-..:."FILE=? ";|
000003B0: 46 49 4C 45 24 2C 22 53  54 3D 22 3B 53 54 2C 22  |FILE$,"ST=";ST,"|
000003C0: 42 59 54 45 53 3D 22 3B  49 3A A0 35 3A A0 31 35  |BYTES=";I:.5:.15|
000003D0: 3A 97 35 33 32 36 35 2C  32 37 00 E2 0B 2E 00 8D  |:.53265,27......|
000003E0: 35 38 00 E8 0B 2F 00 8E  00 07 0C 30 00 97 35 33  |58.../.....0..53|
000003F0: 32 36 35 2C 30 3A 8F 20  20 20 20 20 20 57 52 49  |265,0:.      WRI|
00000400: 54 45 20 46 49 4C 45 00  14 0C 31 00 9F 31 35 2C  |TE FILE...1..15,|
00000410: 38 2C 31 35 00 39 0C 32  00 9F 35 2C 38 2C 35 2C  |8,15.9.2..5,8,5,|
00000420: 22 30 3A 22 AA 46 49 4C  45 24 AA 22 2C 22 AA 54  |"0:".FILE$.",".T|
00000430: 59 50 45 24 AA 22 2C 57  22 00 41 0C 33 00 8D 33  |YPE$.",W".A.3..3|
00000440: 31 00 55 0C 34 00 99 22  93 4E 4F 57 20 57 52 49  |1.U.4..".NOW WRI|
00000450: 54 49 4E 47 22 00 6F 0C  35 00 4A B2 4A AA 31 3A  |TING".o.5.J.J.1:|
00000460: 54 45 4D 50 25 B2 C2 28  38 33 30 30 AA 4A 29 00  |TEMP%..(8300.J).|
00000470: 80 0C 36 00 98 35 2C C7  28 54 45 4D 50 25 29 3B  |..6..5,.(TEMP%);|
00000480: 00 8C 0C 37 00 8B 4A B3  49 A7 35 33 00 B3 0C 38  |...7..J.I.53...8|
00000490: 00 99 3A 99 22 46 49 4C  45 3D 20 22 3B 46 49 4C  |..:."FILE= ";FIL|
000004A0: 45 24 2C 22 42 59 54 45  53 22 3B 4A 3A A0 35 3A  |E$,"BYTES";J:.5:|
000004B0: A0 31 35 00 C3 0C 39 00  97 35 33 32 36 35 2C 32  |.15...9..53265,2|
000004C0: 37 3A 8E 00 E8 0C 3A 00  99 22 5A 4F 45 4B 20 42  |7:....:.."ZOEK B|
000004D0: 45 56 45 49 4C 49 47 45  4E 20 28 41 4C 4C 45 45  |EVEILIGEN (ALLEE|
000004E0: 4E 20 42 41 53 49 43 22  00 05 0D 3B 00 A1 41 24  |N BASIC"...;..A$|
000004F0: 3A 8B 41 24 B3 B1 22 4A  22 AF 20 41 24 B3 B1 22  |:.A$.."J". A$.."|
00000500: 4E 22 A7 35 39 00 15 0D  3C 00 8B 20 41 24 B2 22  |N".59...<.. A$."|
00000510: 4E 22 A7 20 8E 00 2F 0D  3D 00 42 B2 38 33 30 30  |N". ../.=.B.8300|
00000520: 3A 4B B2 4B AA 31 3A 4C  B2 C2 28 42 AA 4B 29 00  |:K.K.1:L..(B.K).|
00000530: 58 0D 3E 00 8B 4C B2 31  35 31 A7 5A B2 5A AA 31  |X.>..L.151.Z.Z.1|
00000540: 3A 99 22 93 46 4F 55 4E  44 20 50 4F 4B 45 28 53  |:.".FOUND POKE(S|
00000550: 29 22 3B 5A 3A 89 36 35  00 65 0D 3F 00 8B 20 4B  |)";Z:.65.e.?.. K|
00000560: B2 B1 49 A7 8E 00 6D 0D  40 00 89 36 31 00 8D 0D  |..I...m.@..61...|
00000570: 41 00 8B C2 28 38 33 30  30 AA 4B AA 31 29 B2 33  |A...(8300.K.1).3|
00000580: 32 A7 52 B2 52 AA 31 3A  44 B2 44 AA 31 00 AB 0D  |2.R.R.1:D.D.1...|
00000590: 42 00 52 B2 52 AA 31 3A  8B C2 28 42 AA 4B AA 52  |B.R.R.1:..(B.K.R|
000005A0: 29 B3 B1 35 36 A7 20 89  20 36 31 00 C8 0D 43 00  |)..56. . 61...C.|
000005B0: 52 B2 52 AA 31 3A 8B C2  28 42 AA 4B AA 52 29 B3  |R.R.1:..(B.K.R).|
000005C0: B1 34 38 A7 20 89 36 31  00 E5 0D 44 00 52 B2 52  |.48. .61...D.R.R|
000005D0: AA 31 3A 8B C2 28 42 AA  4B AA 52 29 B3 B1 35 36  |.1:..(B.K.R)..56|
000005E0: A7 20 89 36 31 00 07 0E  45 00 99 22 44 45 20 42  |. .61...E.."DE B|
000005F0: 45 56 45 49 4C 49 47 49  4E 47 20 56 45 52 4E 49  |EVEILIGING VERNI|
00000600: 45 54 49 47 45 4E 22 00  24 0E 46 00 A1 41 24 3A  |ETIGEN".$.F..A$:|
00000610: 8B 41 24 B3 B1 22 4A 22  AF 20 41 24 B3 B1 22 4E  |.A$.."J". A$.."N|
00000620: 22 A7 37 30 00 37 0E 47  00 8B 20 41 24 B2 22 4E  |".70.7.G.. A$."N|
00000630: 22 A7 20 89 20 36 31 00  6C 0E 48 00 97 42 AA 4B  |". . 61.l.H..B.K|
00000640: AA 44 AA 31 2C 35 34 3A  97 4B AA 42 AA 44 AA 32  |.D.1,54:.K.B.D.2|
00000650: 2C 35 33 3A 97 4B AA 42  AA 44 AA 33 2C 34 38 3A  |,53:.K.B.D.3,48:|
00000660: 52 B2 30 3A 44 B2 30 3A  89 20 36 31 00 00 00     |R.0:D.0:. 61... |

..,....1,8,15,"M-W".G(7).G(28).G(1).G(55
): 1.B....53281,0:.53280,0:.49152,10:.B(
49152)..10.C0.1:.3.K...C0.2.Y....DOS%(65
)......6............*** COPY FILE ON NEW
 DISK ***......".".C...MAX..(S.256).....
."  MAXIMUM I DON'T NOW"......MAX..M2..1
3.....:.$...."TURN COMP OF AND RELOAD TH
IS PROGRAMM".*...:.D...."INPUT NAME OF F
ILE".O....FILE$.B....:."FILE TYPE".P....
"PRG=(P).~...."SEQ=(S)......"USR=(U)....
.."REL=(R)......TYPE$.Q....:."INSERT SOU
RCE DISK AND PRESS A KEY"......W$:.W$.""
..23......53265,0:.35:. READ FILE INTO T
EMP.<....:."INSERT DESTINATION DISK AND 
PRESS A KEY".N....W$:.W$."".26.V....48.V
....:."MAKE ANOTHER COPY";:.W$...... H(W
$,1)."Y". . 25............ CHECK FOR GOO
D OPEN.B. ..15,A$,B$,C$,D$.S.!.. E(A$).0
. ...."..A$,B$,C$,D$:....#.. READ FILE..
.$.I.1...%..15,8,15.0.&..5,8,5,"0:".FILE
$.",".TYPE$.",R".8.'..31.X.(..".NOW READ
ING   .   .   .".C.)..#5,A$...*.TEMP%.F(
A$.G(0)):.8300.I,TEMP%...+.I.I.1...,.. S
T.0.41.Z.-..:."FILE=? ";FILE$,"ST=";ST,"
BYTES=";I: 5: 15:.53265,27......58.../..
...0..53265,0:.      WRITE FILE...1..15,
8,15.9.2..5,8,5,"0:".FILE$.",".TYPE$.",W
".A.3..31.U.4..".NOW WRITING".O.5.J.J.1:
TEMP%.B(8300.J)...6..5,G(TEMP%);...7..J.
I.53...8..:."FILE= ";FILE$,"BYTES";J: 5:
 15.C.9..53265,27:....:.."ZOEK BEVEILIGE
N (ALLEEN BASIC"...;..A$:.A$.."J". A$.."
N".59...<.. A$."N". ../.=.B.8300:K.K.1:L
.B(B.K).X.>..L.151.Z.Z.1:.".FOUND POKE(S
)";Z:.65.E.?.. K..I...M.@..61...A..B(830
0.K.1).32.R.R.1:D.D.1...B.R.R.1:.B(B.K.R
)..56. . 61.H.C.R.R.1:.B(B.K.R)..48. .61
...D.R.R.1:.B(B.K.R)..56. .61...E.."DE B
EVEILIGING VERNIETIGEN".$.F..A$:.A$.."J"
. A$.."N".70.7.G.. A$."N". . 61.L.H..B.K
.D.1,54:.K.B.D.2,53:.K.B.D.3,48:R.0:D.0:
. 61...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL