GOOD COPY 3
FILE INFORMATION
FILENAME(S): GOOD COPY 3
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 21:27:13
APPEARS ON: 1 disk(s)
FILE HASH
3afc16d3f429d35506e3b6ebb4d73ef75f2792f8ade8dc409d89d1a0afab14da
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MARCO | GOOD COPY 3 | PRG | DuncanTwain | 23 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 5E 08 01 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 3A 97 35 33 |(1)..(55):.1:.53|
00000030: 32 38 31 2C 30 3A 97 35 33 32 38 30 2C 30 3A 97 |281,0:.53280,0:.|
00000040: 34 39 31 35 32 2C 31 30 3A 8B C2 28 34 39 31 35 |49152,10:..(4915|
00000050: 32 29 B3 B1 31 30 A7 43 30 B2 31 3A 89 33 00 67 |2)..10.C0.1:.3.g|
00000060: 08 02 00 43 30 B2 32 00 7A 08 03 00 86 44 4F 53 |...C0.2.z....DOS|
00000070: 25 28 36 35 29 3A 8D 34 3A 80 00 B5 08 04 00 99 |%(65):.4:.......|
00000080: 22 93 22 3A 4D 41 58 B2 B5 28 53 AD 32 35 36 29 |".":MAX..(S.256)|
00000090: 3A 99 22 20 20 4D 41 58 49 4D 55 4D 20 49 20 44 |:." MAXIMUM I D|
000000A0: 4F 4E 27 54 20 4E 4F 57 22 3A 8B 4D 41 58 B1 B2 |ON'T NOW":.MAX..|
000000B0: 4D 32 A7 89 36 00 E2 08 05 00 99 22 54 55 52 4E |M2..6......"TURN|
000000C0: 20 43 4F 4D 50 20 4F 46 20 41 4E 44 20 52 45 4C | COMP OF AND REL|
000000D0: 4F 41 44 20 54 48 49 53 20 50 52 4F 47 52 41 4D |OAD THIS PROGRAM|
000000E0: 4D 22 00 6D 09 06 00 99 22 49 4E 50 55 54 20 4E |M".m...."INPUT N|
000000F0: 41 4D 45 20 4F 46 20 46 49 4C 45 22 3A 85 46 49 |AME OF FILE":.FI|
00000100: 4C 45 24 3A 99 3A 99 22 46 49 4C 45 20 54 59 50 |LE$:.:."FILE TYP|
00000110: 45 22 3A 99 22 50 52 47 3D 28 50 29 22 3A 99 22 |E":."PRG=(P)":."|
00000120: 53 45 51 3D 28 53 29 22 3A 99 22 55 53 52 3D 28 |SEQ=(S)":."USR=(|
00000130: 55 29 22 3A 99 22 52 45 4C 3D 28 52 29 22 3A 85 |U)":."REL=(R)":.|
00000140: 54 59 50 45 24 3A 99 3A 99 22 49 4E 53 45 52 54 |TYPE$:.:."INSERT|
00000150: 20 53 4F 55 52 43 45 20 44 49 53 4B 20 41 4E 44 | SOURCE DISK AND|
00000160: 20 50 52 45 53 53 20 41 20 4B 45 59 22 00 7F 09 | PRESS A KEY"...|
00000170: 07 00 A1 57 24 3A 8B 57 24 B2 22 22 A7 89 37 00 |...W$:.W$.""..7.|
00000180: 90 09 08 00 97 35 33 32 36 35 2C 30 3A 8D 31 35 |.....53265,0:.15|
00000190: 00 C1 09 09 00 99 3A 99 22 49 4E 53 45 52 54 20 |......:."INSERT |
000001A0: 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 49 53 4B |DESTINATION DISK|
000001B0: 20 41 4E 44 20 50 52 45 53 53 20 41 20 4B 45 59 | AND PRESS A KEY|
000001C0: 22 00 D3 09 0A 00 A1 57 24 3A 8B 57 24 B2 22 22 |"......W$:.W$.""|
000001D0: A7 31 30 00 07 0A 0B 00 8D 31 38 3A 99 3A 99 22 |.10......18:.:."|
000001E0: 4D 41 4B 45 20 41 4E 4F 54 48 45 52 20 43 4F 50 |MAKE ANOTHER COP|
000001F0: 59 22 3B 3A 85 57 24 3A 8B C8 28 57 24 2C 31 29 |Y";:.W$:..(W$,1)|
00000200: B2 22 59 22 A7 89 39 00 0D 0A 0C 00 8E 00 2C 0A |."Y"..9.......,.|
00000210: 0D 00 84 31 35 2C 41 24 2C 42 24 2C 43 24 2C 44 |...15,A$,B$,C$,D|
00000220: 24 3A 8B C5 28 41 24 29 B2 30 A7 8E 00 3F 0A 0E |$:..(A$).0...?..|
00000230: 00 99 41 24 2C 42 24 2C 43 24 2C 44 24 3A 90 00 |..A$,B$,C$,D$:..|
00000240: 91 0A 0F 00 49 B2 31 3A 9F 31 35 2C 38 2C 31 35 |....I.1:.15,8,15|
00000250: 3A 9F 35 2C 38 2C 35 2C 22 30 3A 22 AA 46 49 4C |:.5,8,5,"0:".FIL|
00000260: 45 24 AA 22 2C 22 AA 54 59 50 45 24 AA 22 2C 52 |E$.",".TYPE$.",R|
00000270: 22 3A 8D 31 33 3A 99 22 93 4E 4F 57 20 52 45 41 |":.13:.".NOW REA|
00000280: 44 49 4E 47 20 20 20 2E 20 20 20 2E 20 20 20 2E |DING . . .|
00000290: 22 00 CA 0A 10 00 A1 23 35 2C 41 24 3A 54 45 4D |"......#5,A$:TEM|
000002A0: 50 25 B2 C6 28 41 24 AA C7 28 30 29 29 3A 97 38 |P%..(A$..(0)):.8|
000002B0: 33 30 30 AA 49 2C 54 45 4D 50 25 3A 49 B2 49 AA |300.I,TEMP%:I.I.|
000002C0: 31 3A 8B 53 54 B2 30 A7 31 36 00 0C 0B 11 00 99 |1:.ST.0.16......|
000002D0: 3A 99 22 46 49 4C 45 3D 3F 20 22 3B 46 49 4C 45 |:."FILE=? ";FILE|
000002E0: 24 2C 22 53 54 3D 22 3B 53 54 2C 22 42 59 54 45 |$,"ST=";ST,"BYTE|
000002F0: 53 3D 22 3B 49 3A A0 35 3A A0 31 35 3A 97 35 33 |S=";I:.5:.15:.53|
00000300: 32 36 35 2C 32 37 3A 8D 32 31 3A 8E 00 57 0B 12 |265,27:.21:..W..|
00000310: 00 97 35 33 32 36 35 2C 30 3A 9F 31 35 2C 38 2C |..53265,0:.15,8,|
00000320: 31 35 3A 9F 35 2C 38 2C 35 2C 22 30 3A 22 AA 46 |15:.5,8,5,"0:".F|
00000330: 49 4C 45 24 AA 22 2C 22 AA 54 59 50 45 24 AA 22 |ILE$.",".TYPE$."|
00000340: 2C 57 22 3A 8D 31 33 3A 99 22 93 4E 4F 57 20 57 |,W":.13:.".NOW W|
00000350: 52 49 54 49 4E 47 22 00 86 0B 13 00 4A B2 4A AA |RITING".....J.J.|
00000360: 31 3A 54 45 4D 50 25 B2 C2 28 38 33 30 30 AA 4A |1:TEMP%..(8300.J|
00000370: 29 3A 98 35 2C C7 28 54 45 4D 50 25 29 3B 3A 8B |):.5,.(TEMP%);:.|
00000380: 4A B3 49 A7 31 39 00 B9 0B 14 00 99 3A 99 22 46 |J.I.19......:."F|
00000390: 49 4C 45 3D 20 22 3B 46 49 4C 45 24 2C 22 42 59 |ILE= ";FILE$,"BY|
000003A0: 54 45 53 22 3B 4A 3A A0 35 3A A0 31 35 3A 97 35 |TES";J:.5:.15:.5|
000003B0: 33 32 36 35 2C 32 37 3A 8E 00 DE 0B 15 00 99 22 |3265,27:......."|
000003C0: 5A 4F 45 4B 20 42 45 56 45 49 4C 49 47 45 4E 20 |ZOEK BEVEILIGEN |
000003D0: 28 41 4C 4C 45 45 4E 20 42 41 53 49 43 22 00 FA |(ALLEEN BASIC"..|
000003E0: 0B 16 00 A1 41 24 3A 8B 41 24 B3 B1 22 4A 22 AF |....A$:.A$.."J".|
000003F0: 41 24 B3 B1 22 4E 22 A7 32 32 00 08 0C 17 00 8B |A$.."N".22......|
00000400: 41 24 B2 22 4E 22 A7 8E 00 47 0C 18 00 42 B2 38 |A$."N"...G...B.8|
00000410: 33 30 30 3A 4B B2 4B AA 31 3A 4C B2 C2 28 42 AA |300:K.K.1:L..(B.|
00000420: 4B 29 3A 8B 4C B2 31 35 31 A7 5A B2 5A AA 31 3A |K):.L.151.Z.Z.1:|
00000430: 99 22 93 46 4F 55 4E 44 20 50 4F 4B 45 28 53 29 |.".FOUND POKE(S)|
00000440: 22 3B 5A 3A 89 32 37 00 53 0C 19 00 8B 4B B2 B1 |";Z:.27.S....K..|
00000450: 49 A7 8E 00 5B 0C 1A 00 89 32 34 00 7B 0C 1B 00 |I...[....24.{...|
00000460: 8B C2 28 38 33 30 30 AA 4B AA 31 29 B2 33 32 A7 |..(8300.K.1).32.|
00000470: 52 B2 52 AA 31 3A 44 B2 44 AA 31 00 97 0C 1C 00 |R.R.1:D.D.1.....|
00000480: 52 B2 52 AA 31 3A 8B C2 28 42 AA 4B AA 52 29 B3 |R.R.1:..(B.K.R).|
00000490: B1 35 36 A7 89 32 34 00 B3 0C 1D 00 52 B2 52 AA |.56..24.....R.R.|
000004A0: 31 3A 8B C2 28 42 AA 4B AA 52 29 B3 B1 34 38 A7 |1:..(B.K.R)..48.|
000004B0: 89 32 34 00 CF 0C 1E 00 52 B2 52 AA 31 3A 8B C2 |.24.....R.R.1:..|
000004C0: 28 42 AA 4B AA 52 29 B3 B1 35 36 A7 89 32 34 00 |(B.K.R)..56..24.|
000004D0: F1 0C 1F 00 99 22 44 45 20 42 45 56 45 49 4C 49 |....."DE BEVEILI|
000004E0: 47 49 4E 47 20 56 45 52 4E 49 45 54 49 47 45 4E |GING VERNIETIGEN|
000004F0: 22 00 0D 0D 20 00 A1 41 24 3A 8B 41 24 B3 B1 22 |"... ..A$:.A$.."|
00000500: 4A 22 AF 41 24 B3 B1 22 4E 22 A7 33 32 00 1D 0D |J".A$.."N".32...|
00000510: 21 00 8B 41 24 B2 22 4E 22 A7 89 32 34 00 51 0D |!..A$."N"..24.Q.|
00000520: 22 00 97 42 AA 4B AA 44 AA 31 2C 35 34 3A 97 4B |"..B.K.D.1,54:.K|
00000530: AA 42 AA 44 AA 32 2C 35 33 3A 97 4B AA 42 AA 44 |.B.D.2,53:.K.B.D|
00000540: AA 33 2C 34 38 3A 52 B2 30 3A 44 B2 30 3A 89 32 |.3,48:R.0:D.0:.2|
00000550: 34 00 00 00 |4... |
..^....1,8,15,"M-W".G(7).G(28).G(1).G(55
): 1:.53281,0:.53280,0:.49152,10:.B(4915
2)..10.C0.1:.3.G...C0.2.Z....DOS%(65):.4
:.......".":MAX..(S.256):." MAXIMUM I D
ON'T NOW":.MAX..M2..6......"TURN COMP OF
AND RELOAD THIS PROGRAMM".M...."INPUT N
AME OF FILE":.FILE$:.:."FILE TYPE":."PRG
=(P)":."SEQ=(S)":."USR=(U)":."REL=(R)":.
TYPE$:.:."INSERT SOURCE DISK AND PRESS A
KEY".....W$:.W$.""..7......53265,0:.15
.A....:."INSERT DESTINATION DISK AND PRE
SS A KEY".S....W$:.W$."".10......18:.:."
MAKE ANOTHER COPY";:.W$:.H(W$,1)."Y"..9.
......,....15,A$,B$,C$,D$:.E(A$).0...?..
..A$,B$,C$,D$:......I.1:.15,8,15:.5,8,5,
"0:".FILE$.",".TYPE$.",R":.13:.".NOW REA
DING . . .".J....#5,A$:TEMP%.F(A$.
G(0)):.8300.I,TEMP%:I.I.1:.ST.0.16......
:."FILE=? ";FILE$,"ST=";ST,"BYTES=";I: 5
: 15:.53265,27:.21:..W....53265,0:.15,8,
15:.5,8,5,"0:".FILE$.",".TYPE$.",W":.13:
.".NOW WRITING".....J.J.1:TEMP%.B(8300.J
):.5,G(TEMP%);:.J.I.19......:."FILE= ";F
ILE$,"BYTES";J: 5: 15:.53265,27:......."
ZOEK BEVEILIGEN (ALLEEN BASIC"......A$:.
A$.."J".A$.."N".22......A$."N"...G...B.8
300:K.K.1:L.B(B.K):.L.151.Z.Z.1:.".FOUND
POKE(S)";Z:.27.S....K..I...[....24.{...
.B(8300.K.1).32.R.R.1:D.D.1.....R.R.1:.B
(B.K.R)..56..24.....R.R.1:.B(B.K.R)..48.
.24.O...R.R.1:.B(B.K.R)..56..24......"DE
BEVEILIGING VERNIETIGEN"... ..A$:.A$.."
J".A$.."N".32...!..A$."N"..24.Q."..B.K.D
.1,54:.K.B.D.2,53:.K.B.D.3,48:R.0:D.0:.2
4...
> CLICK IMAGE PREVIEW FOR FULL MODAL