GOOD COPY 4

FILE INFORMATION

FILENAME(S): GOOD COPY 4

FILE TYPE(S): PRG

FILE SIZE: 1.6K

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

APPEARS ON: 1 disk(s)

FILE HASH

4d66a5238999f673aa43d2cb4cd7cd2425e64f99f0724ea515b4c6f945bcbe72

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
MARCO	GOOD COPY 4	PRG	DuncanTwain	32	1	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 DE 08 09 00  99 22 4D 41 58 49 4D 55  |56)......"MAXIMU|
000000D0: 4D 3D 32 30 34 20 42 4C  4F 4B 4B 45 4E 22 00 E4  |M=204 BLOKKEN"..|
000000E0: 08 0A 00 3A 00 EA 08 0B  00 3A 00 F0 08 0C 00 3A  |...:.....:.....:|
000000F0: 00 F6 08 0D 00 3A 00 11  09 0E 00 99 22 49 4E 50  |.....:......"INP|
00000100: 55 54 20 4E 41 4D 45 20  4F 46 20 46 49 4C 45 22  |UT NAME OF FILE"|
00000110: 3B 00 1C 09 0F 00 85 46  49 4C 45 24 00 2F 09 10  |;......FILE$./..|
00000120: 00 99 3A 99 22 46 49 4C  45 20 54 59 50 45 22 00  |..:."FILE TYPE".|
00000130: 3D 09 11 00 99 22 50 52  47 3D 28 50 29 00 4B 09  |=...."PRG=(P).K.|
00000140: 12 00 99 22 53 45 51 3D  28 53 29 00 59 09 13 00  |..."SEQ=(S).Y...|
00000150: 99 22 55 53 52 3D 28 55  29 00 67 09 14 00 99 22  |."USR=(U).g...."|
00000160: 52 45 4C 3D 28 52 29 00  72 09 15 00 85 54 59 50  |REL=(R).r....TYP|
00000170: 45 24 00 9E 09 16 00 99  3A 99 22 49 4E 53 45 52  |E$......:."INSER|
00000180: 54 20 53 4F 55 52 43 45  20 44 49 53 4B 20 41 4E  |T SOURCE DISK AN|
00000190: 44 20 50 52 45 53 53 20  41 20 4B 45 59 22 00 B1  |D PRESS A KEY"..|
000001A0: 09 17 00 A1 57 24 3A 8B  57 24 B2 22 22 A7 89 32  |....W$:.W$.""..2|
000001B0: 33 00 D8 09 18 00 97 35  33 32 36 35 2C 30 3A 8D  |3......53265,0:.|
000001C0: 33 35 3A 8F 20 52 45 41  44 20 46 49 4C 45 20 49  |35:. READ FILE I|
000001D0: 4E 54 4F 20 54 45 4D 50  00 09 0A 19 00 99 3A 99  |NTO TEMP......:.|
000001E0: 22 49 4E 53 45 52 54 20  44 45 53 54 49 4E 41 54  |"INSERT DESTINAT|
000001F0: 49 4F 4E 20 44 49 53 4B  20 41 4E 44 20 50 52 45  |ION DISK AND PRE|
00000200: 53 53 20 41 20 4B 45 59  22 00 1B 0A 1A 00 A1 57  |SS A KEY"......W|
00000210: 24 3A 8B 57 24 B2 22 22  A7 32 36 00 23 0A 1B 00  |$:.W$."".26.#...|
00000220: 8D 34 38 00 43 0A 1C 00  99 3A 99 22 4D 41 4B 45  |.48.C....:."MAKE|
00000230: 20 41 4E 4F 54 48 45 52  20 43 4F 50 59 22 3B 3A  | ANOTHER COPY";:|
00000240: 85 57 24 00 5B 0A 1D 00  8B 20 C8 28 57 24 2C 31  |.W$.[.... .(W$,1|
00000250: 29 B2 22 59 22 A7 20 89  20 32 35 00 61 0A 1E 00  |)."Y". . 25.a...|
00000260: 8E 00 7B 0A 1F 00 8F 20  43 48 45 43 4B 20 46 4F  |..{.... CHECK FO|
00000270: 52 20 47 4F 4F 44 20 4F  50 45 4E 00 8F 0A 20 00  |R GOOD OPEN... .|
00000280: 84 31 35 2C 41 24 2C 42  24 2C 43 24 2C 44 24 00  |.15,A$,B$,C$,D$.|
00000290: A0 0A 21 00 8B 20 C5 28  41 24 29 B2 30 A7 20 8E  |..!.. .(A$).0. .|
000002A0: 00 B3 0A 22 00 99 41 24  2C 42 24 2C 43 24 2C 44  |..."..A$,B$,C$,D|
000002B0: 24 3A 90 00 C3 0A 23 00  8F 20 52 45 41 44 20 46  |$:....#.. READ F|
000002C0: 49 4C 45 00 CB 0A 24 00  49 B2 31 00 D8 0A 25 00  |ILE...$.I.1...%.|
000002D0: 9F 31 35 2C 38 2C 31 35  00 FD 0A 26 00 9F 35 2C  |.15,8,15...&..5,|
000002E0: 38 2C 35 2C 22 30 3A 22  AA 46 49 4C 45 24 AA 22  |8,5,"0:".FILE$."|
000002F0: 2C 22 AA 54 59 50 45 24  AA 22 2C 52 22 00 05 0B  |,".TYPE$.",R"...|
00000300: 27 00 8D 33 31 00 25 0B  28 00 99 22 93 4E 4F 57  |'..31.%.(..".NOW|
00000310: 20 52 45 41 44 49 4E 47  20 20 20 2E 20 20 20 2E  | READING   .   .|
00000320: 20 20 20 2E 22 00 30 0B  29 00 A1 23 35 2C 41 24  |   .".0.)..#5,A$|
00000330: 00 53 0B 2A 00 54 45 4D  50 25 B2 C6 28 41 24 AA  |.S.*.TEMP%..(A$.|
00000340: C7 28 30 29 29 3A 97 38  33 30 30 AA 49 2C 54 45  |.(0)):.8300.I,TE|
00000350: 4D 50 25 00 5D 0B 2B 00  49 B2 49 AA 31 00 6B 0B  |MP%.].+.I.I.1.k.|
00000360: 2C 00 8B 20 53 54 B2 30  A7 34 31 00 AC 0B 2D 00  |,.. ST.0.41...-.|
00000370: 99 3A 99 22 46 49 4C 45  3D 3F 20 22 3B 46 49 4C  |.:."FILE=? ";FIL|
00000380: 45 24 2C 22 53 54 3D 22  3B 53 54 2C 22 42 4C 4F  |E$,"ST=";ST,"BLO|
00000390: 4B 4B 45 4E 22 3B 49 AD  32 35 36 3A A0 35 3A A0  |KKEN";I.256:.5:.|
000003A0: 31 35 3A 97 35 33 32 36  35 2C 32 37 00 B4 0B 2E  |15:.53265,27....|
000003B0: 00 8D 35 38 00 BA 0B 2F  00 8E 00 D9 0B 30 00 97  |..58.../.....0..|
000003C0: 35 33 32 36 35 2C 30 3A  8F 20 20 20 20 20 20 57  |53265,0:.      W|
000003D0: 52 49 54 45 20 46 49 4C  45 00 E6 0B 31 00 9F 31  |RITE FILE...1..1|
000003E0: 35 2C 38 2C 31 35 00 0B  0C 32 00 9F 35 2C 38 2C  |5,8,15...2..5,8,|
000003F0: 35 2C 22 30 3A 22 AA 46  49 4C 45 24 AA 22 2C 22  |5,"0:".FILE$.","|
00000400: AA 54 59 50 45 24 AA 22  2C 57 22 00 13 0C 33 00  |.TYPE$.",W"...3.|
00000410: 8D 33 31 00 27 0C 34 00  99 22 93 4E 4F 57 20 57  |.31.'.4..".NOW W|
00000420: 52 49 54 49 4E 47 22 00  41 0C 35 00 4A B2 4A AA  |RITING".A.5.J.J.|
00000430: 31 3A 54 45 4D 50 25 B2  C2 28 38 33 30 30 AA 4A  |1:TEMP%..(8300.J|
00000440: 29 00 52 0C 36 00 98 35  2C C7 28 54 45 4D 50 25  |).R.6..5,.(TEMP%|
00000450: 29 3B 00 5E 0C 37 00 8B  4A B3 49 A7 35 33 00 8B  |);.^.7..J.I.53..|
00000460: 0C 38 00 99 3A 99 22 46  49 4C 45 3D 20 22 3B 46  |.8..:."FILE= ";F|
00000470: 49 4C 45 24 2C 22 42 4C  4F 4B 4B 45 4E 22 3B 4A  |ILE$,"BLOKKEN";J|
00000480: AD 32 35 36 3A A0 35 3A  A0 31 35 00 9B 0C 39 00  |.256:.5:.15...9.|
00000490: 97 35 33 32 36 35 2C 32  37 3A 8E 00 C0 0C 3A 00  |.53265,27:....:.|
000004A0: 99 22 5A 4F 45 4B 20 42  45 56 45 49 4C 49 47 45  |."ZOEK BEVEILIGE|
000004B0: 4E 20 28 41 4C 4C 45 45  4E 20 42 41 53 49 43 22  |N (ALLEEN BASIC"|
000004C0: 00 DD 0C 3B 00 A1 41 24  3A 8B 41 24 B3 B1 22 4A  |...;..A$:.A$.."J|
000004D0: 22 AF 20 41 24 B3 B1 22  4E 22 A7 35 39 00 ED 0C  |". A$.."N".59...|
000004E0: 3C 00 8B 20 41 24 B2 22  4E 22 A7 20 8E 00 07 0D  |<.. A$."N". ....|
000004F0: 3D 00 42 B2 38 33 30 30  3A 4B B2 4B AA 31 3A 4C  |=.B.8300:K.K.1:L|
00000500: B2 C2 28 42 AA 4B 29 00  30 0D 3E 00 8B 4C B2 31  |..(B.K).0.>..L.1|
00000510: 35 31 A7 5A B2 5A AA 31  3A 99 22 93 46 4F 55 4E  |51.Z.Z.1:.".FOUN|
00000520: 44 20 50 4F 4B 45 28 53  29 22 3B 5A 3A 89 36 35  |D POKE(S)";Z:.65|
00000530: 00 3D 0D 3F 00 8B 20 4B  B2 B1 49 A7 8E 00 45 0D  |.=.?.. K..I...E.|
00000540: 40 00 89 36 31 00 65 0D  41 00 8B C2 28 38 33 30  |@..61.e.A...(830|
00000550: 30 AA 4B AA 31 29 B2 33  32 A7 52 B2 52 AA 31 3A  |0.K.1).32.R.R.1:|
00000560: 44 B2 44 AA 31 00 83 0D  42 00 52 B2 52 AA 31 3A  |D.D.1...B.R.R.1:|
00000570: 8B C2 28 42 AA 4B AA 52  29 B3 B1 35 36 A7 20 89  |..(B.K.R)..56. .|
00000580: 20 36 31 00 A0 0D 43 00  52 B2 52 AA 31 3A 8B C2  | 61...C.R.R.1:..|
00000590: 28 42 AA 4B AA 52 29 B3  B1 34 38 A7 20 89 36 31  |(B.K.R)..48. .61|
000005A0: 00 BD 0D 44 00 52 B2 52  AA 31 3A 8B C2 28 42 AA  |...D.R.R.1:..(B.|
000005B0: 4B AA 52 29 B3 B1 35 36  A7 20 89 36 31 00 DF 0D  |K.R)..56. .61...|
000005C0: 45 00 99 22 44 45 20 42  45 56 45 49 4C 49 47 49  |E.."DE BEVEILIGI|
000005D0: 4E 47 20 56 45 52 4E 49  45 54 49 47 45 4E 22 00  |NG VERNIETIGEN".|
000005E0: FC 0D 46 00 A1 41 24 3A  8B 41 24 B3 B1 22 4A 22  |..F..A$:.A$.."J"|
000005F0: AF 20 41 24 B3 B1 22 4E  22 A7 37 30 00 0F 0E 47  |. A$.."N".70...G|
00000600: 00 8B 20 41 24 B2 22 4E  22 A7 20 89 20 36 31 00  |.. A$."N". . 61.|
00000610: 44 0E 48 00 97 42 AA 4B  AA 44 AA 31 2C 35 34 3A  |D.H..B.K.D.1,54:|
00000620: 97 4B AA 42 AA 44 AA 32  2C 35 33 3A 97 4B AA 42  |.K.B.D.2,53:.K.B|
00000630: AA 44 AA 33 2C 34 38 3A  52 B2 30 3A 44 B2 30 3A  |.D.3,48:R.0:D.0:|
00000640: 89 20 36 31 00 00 00                              |. 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=204 BLOKKEN".....:.....:.....:
.....:......"INPUT NAME OF FILE";......F
ILE$./....:."FILE TYPE".=...."PRG=(P).K.
..."SEQ=(S).Y...."USR=(U).G...."REL=(R).
R....TYPE$......:."INSERT SOURCE DISK AN
D PRESS A KEY"......W$:.W$.""..23.X....5
3265,0:.35:. READ FILE INTO TEMP......:.
"INSERT DESTINATION DISK AND PRESS A KEY
"......W$:.W$."".26.#....48.C....:."MAKE
 ANOTHER COPY";:.W$.[.... H(W$,1)."Y". .
 25.A.....{.... CHECK FOR GOOD OPEN... .
.15,A$,B$,C$,D$. .!.. E(A$).0. ...."..A$
,B$,C$,D$:..C.#.. READ FILE.K.$.I.1.X.%.
.15,8,15...&..5,8,5,"0:".FILE$.",".TYPE$
.",R"...'..31.%.(..".NOW READING   .   .
   .".0.)..#5,A$.S.*.TEMP%.F(A$.G(0)):.8
300.I,TEMP%.].+.I.I.1.K.,.. ST.0.41...-.
.:."FILE=? ";FILE$,"ST=";ST,"BLOKKEN";I.
256: 5: 15:.53265,27......58.../...Y.0..
53265,0:.      WRITE FILE...1..15,8,15..
.2..5,8,5,"0:".FILE$.",".TYPE$.",W"...3.
.31.'.4..".NOW WRITING".A.5.J.J.1:TEMP%.
B(8300.J).R.6..5,G(TEMP%);.^.7..J.I.53..
.8..:."FILE= ";FILE$,"BLOKKEN";J.256: 5:
 15...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).0.>..L.151.Z.Z.1:.".FOUND POKE(S
)";Z:.65.=.?.. K..I...E.@..61.E.A..B(830
0.K.1).32.R.R.1:D.D.1...B.R.R.1:.B(B.K.R
)..56. . 61. .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...G.. A$."N". . 61.D.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