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

COPY T&S-1541

FILE INFORMATION

FILENAME(S): COPY T&S-1541

FILE TYPE(S): PRG

FILE SIZE: 1.2K

FIRST SEEN: 2025-11-30 21:23:31

APPEARS ON: 1 disk(s)

FILE HASH

92f5a45005bb99e090597e9d9c9c772797c0bf638179f328f0b0533f195ab14b

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
C64 HULP 43 1 COPY T&S-1541 PRG DuncanTwain 12 3 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 22 08 64 00 8F 20  43 4F 50 59 20 54 52 41  |..".d.. COPY TRA|
00000010: 43 4B 20 26 20 53 45 43  54 4F 52 20 2D 20 31 35  |CK & SECTOR - 15|
00000020: 34 31 00 45 08 6E 00 99  22 93 43 4F 50 59 20 54  |41.E.n..".COPY T|
00000030: 52 41 43 4B 20 26 20 53  45 43 54 4F 52 20 2D 20  |RACK & SECTOR - |
00000040: 31 35 34 31 22 00 64 08  78 00 99 22 11 49 4E 53  |1541".d.x..".INS|
00000050: 45 52 54 20 4D 41 53 54  45 52 20 49 4E 20 44 52  |ERT MASTER IN DR|
00000060: 49 56 45 22 00 87 08 82  00 85 22 11 54 52 41 43  |IVE"......".TRAC|
00000070: 4B 20 41 4E 44 20 53 45  43 54 4F 52 20 28 54 2C  |K AND SECTOR (T,|
00000080: 53 29 22 3B 54 2C 53 00  97 08 8C 00 8B 54 B3 31  |S)";T,S......T.1|
00000090: B0 54 B1 33 35 A7 80 00  B8 08 96 00 4E 53 B2 32  |.T.35.......NS.2|
000000A0: 30 AA 32 AC 28 54 B1 31  37 29 AA 28 54 B1 32 34  |0.2.(T.17).(T.24|
000000B0: 29 AA 28 54 B1 33 30 29  00 C8 08 A0 00 8B 53 B3  |).(T.30)......S.|
000000C0: 30 B0 53 B1 4E 53 A7 80  00 E6 08 AA 00 85 22 11  |0.S.NS........".|
000000D0: 41 52 45 20 59 4F 55 20  53 55 52 45 20 20 59 9D  |ARE YOU SURE  Y.|
000000E0: 9D 9D 22 3B 51 24 00 F5  08 B4 00 8B 51 24 B3 B1  |..";Q$......Q$..|
000000F0: 22 59 22 A7 80 00 02 09  BE 00 9F 31 35 2C 38 2C  |"Y"........15,8,|
00000100: 31 35 00 0F 09 C8 00 98  31 35 2C 22 49 30 22 00  |15......15,"I0".|
00000110: 27 09 D2 00 84 31 35 2C  45 4E 24 2C 45 4D 24 2C  |'....15,EN$,EM$,|
00000120: 45 54 24 2C 45 53 24 00  39 09 DC 00 8B 45 4E 24  |ET$,ES$.9....EN$|
00000130: B2 22 30 30 22 89 32 37  30 00 58 09 E6 00 99 22  |."00".270.X...."|
00000140: 11 22 45 4E 24 22 2C 20  22 45 4D 24 22 2C 22 45  |."EN$", "EM$","E|
00000150: 54 24 22 2C 22 45 53 24  00 60 09 F0 00 A0 31 35  |T$","ES$.`....15|
00000160: 00 66 09 FA 00 80 00 71  09 04 01 8F 20 53 45 45  |.f.....q.... SEE|
00000170: 4B 00 7D 09 0E 01 4A 4F  42 B2 31 37 36 00 86 09  |K.}...JOB.176...|
00000180: 18 01 8D 35 37 30 00 93  09 22 01 8B 45 B2 31 89  |...570..."..E.1.|
00000190: 33 32 30 00 9C 09 2C 01  89 36 39 30 00 A7 09 36  |320...,..690...6|
000001A0: 01 8F 20 52 45 41 44 00  B3 09 40 01 4A 4F 42 B2  |.. READ...@.JOB.|
000001B0: 31 32 38 00 BC 09 4A 01  8D 35 37 30 00 C9 09 54  |128...J..570...T|
000001C0: 01 8B 45 B2 31 89 33 36  30 00 D2 09 5E 01 89 36  |..E.1.360...^..6|
000001D0: 39 30 00 DA 09 68 01 A0  31 35 00 F8 09 72 01 99  |90...h..15...r..|
000001E0: 22 11 49 4E 53 45 52 54  20 43 4C 4F 4E 45 20 49  |".INSERT CLONE I|
000001F0: 4E 20 44 52 49 56 45 22  00 1A 0A 7C 01 99 22 50  |N DRIVE"...|.."P|
00000200: 52 45 53 53 20 12 52 45  54 55 52 4E 92 20 54 4F  |RESS .RETURN. TO|
00000210: 20 43 4F 4E 54 49 4E 55  45 22 00 2E 0A 86 01 A1  | CONTINUE"......|
00000220: 23 43 24 3A 8B 43 24 B2  22 22 A7 33 39 30 00 41  |#C$:.C$."".390.A|
00000230: 0A 90 01 8B 43 24 B3 B1  C7 28 31 33 29 89 33 39  |....C$...(13).39|
00000240: 30 00 4B 0A 9A 01 99 22  4F 4B 22 00 58 0A A4 01  |0.K...."OK".X...|
00000250: 9F 31 35 2C 38 2C 31 35  00 63 0A AE 01 8F 20 53  |.15,8,15.c.... S|
00000260: 45 45 4B 00 6F 0A B8 01  4A 4F 42 B2 31 37 36 00  |EEK.o...JOB.176.|
00000270: 78 0A C2 01 8D 35 37 30  00 85 0A CC 01 8B 45 B2  |x....570......E.|
00000280: 31 89 34 39 30 00 8E 0A  D6 01 89 36 39 30 00 9A  |1.490......690..|
00000290: 0A E0 01 8F 20 57 52 49  54 45 00 A6 0A EA 01 4A  |.... WRITE.....J|
000002A0: 4F 42 B2 31 34 34 00 AF  0A F4 01 8D 35 37 30 00  |OB.144......570.|
000002B0: BC 0A FE 01 8B 45 B2 31  89 35 33 30 00 C5 0A 08  |.....E.1.530....|
000002C0: 02 89 36 39 30 00 CD 0A  12 02 A0 31 35 00 DB 0A  |..690......15...|
000002D0: 1C 02 99 22 11 44 4F 4E  45 21 22 00 E1 0A 26 02  |...".DONE!"...&.|
000002E0: 80 00 F1 0A 30 02 8F 20  4A 4F 42 20 51 55 45 55  |....0.. JOB QUEU|
000002F0: 45 00 FB 0A 3A 02 54 52  59 B2 30 00 1D 0B 44 02  |E...:.TRY.0...D.|
00000300: 98 31 35 2C 22 4D 2D 57  22 C7 28 38 29 C7 28 30  |.15,"M-W".(8).(0|
00000310: 29 C7 28 32 29 C7 28 54  29 C7 28 53 29 00 3D 0B  |).(2).(T).(S).=.|
00000320: 4E 02 98 31 35 2C 22 4D  2D 57 22 C7 28 31 29 C7  |N..15,"M-W".(1).|
00000330: 28 30 29 C7 28 31 29 C7  28 4A 4F 42 29 00 4B 0B  |(0).(1).(JOB).K.|
00000340: 58 02 54 52 59 B2 54 52  59 AA 31 00 61 0B 62 02  |X.TRY.TRY.1.a.b.|
00000350: 98 31 35 2C 22 4D 2D 52  22 C7 28 31 29 C7 28 30  |.15,"M-R".(1).(0|
00000360: 29 00 6E 0B 6C 02 A1 23  31 35 2C 45 53 24 00 81  |).n.l..#15,ES$..|
00000370: 0B 76 02 8B 45 24 B2 22  22 A7 45 24 B2 C7 28 30  |.v..E$."".E$..(0|
00000380: 29 00 8D 0B 80 02 45 B2  C6 28 45 24 29 00 9E 0B  |).....E..(E$)...|
00000390: 8A 02 8B 54 52 59 B2 35  30 30 89 36 39 30 00 AD  |...TRY.500.690..|
000003A0: 0B 94 02 8B 45 B1 31 32  37 89 36 30 30 00 B3 0B  |....E.127.600...|
000003B0: 9E 02 8E 00 C7 0B A8 02  8F 20 45 52 52 4F 52 20  |......... ERROR |
000003C0: 48 41 4E 44 4C 45 52 00  E1 0B B2 02 45 54 24 B2  |HANDLER.....ET$.|
000003D0: C9 28 C4 28 54 29 2C C3  28 C4 28 54 29 29 AB 31  |.(.(T),.(.(T)).1|
000003E0: 29 00 F7 0B BC 02 8B 54  B3 31 30 A7 45 54 24 B2  |)......T.10.ET$.|
000003F0: 22 30 22 AA 45 54 24 00  11 0C C6 02 45 53 24 B2  |"0".ET$.....ES$.|
00000400: C9 28 C4 28 53 29 2C C3  28 C4 28 53 29 29 AB 31  |.(.(S),.(.(S)).1|
00000410: 29 00 27 0C D0 02 8B 53  B3 31 30 A7 45 53 24 B2  |).'....S.10.ES$.|
00000420: 22 30 22 AA 45 53 24 00  4B 0C DA 02 8B 45 B1 31  |"0".ES$.K....E.1|
00000430: AF 45 B3 31 32 A7 45 4E  24 B2 C9 28 C4 28 45 AA  |.E.12.EN$..(.(E.|
00000440: 31 38 29 2C 32 29 3A 89  37 35 30 00 6D 0C E4 02  |18),2):.750.m...|
00000450: 45 4E 24 B2 22 30 32 22  3A 45 4D 24 B2 22 3F 54  |EN$."02":EM$."?T|
00000460: 49 4D 45 20 4F 55 54 22  3A 89 37 37 30 00 91 0C  |IME OUT":.770...|
00000470: EE 02 8B 45 B2 37 B0 45  B2 38 A7 45 4D 24 B2 22  |...E.7.E.8.EM$."|
00000480: 57 52 49 54 52 20 45 52  52 4F 52 22 3A 89 37 37  |WRITR ERROR":.77|
00000490: 30 00 A6 0C F8 02 45 4D  24 B2 22 52 45 41 44 20  |0.....EM$."READ |
000004A0: 45 52 52 4F 52 22 00 C5  0C 02 03 99 22 11 22 45  |ERROR"......"."E|
000004B0: 4E 24 22 2C 20 22 45 4D  24 22 2C 22 45 54 24 22  |N$", "EM$","ET$"|
000004C0: 2C 22 45 53 24 00 D6 0C  0C 03 99 22 11 12 46 41  |,"ES$......"..FA|
000004D0: 49 4C 45 44 92 22 00 DE  0C 16 03 A0 31 35 00 E4  |ILED."......15..|
000004E0: 0C 20 03 80 00 00 00 FF                           |. ......        |
..".D.. COPY TRACK & SECTOR - 1541.E.N..
".COPY TRACK & SECTOR - 1541".D.X..".INS
ERT MASTER IN DRIVE"......".TRACK AND SE
CTOR (T,S)";T,S......T.1.T.35.......NS.2
0.2.(T.17).(T.24).(T.30).H. ..S.0.S.NS..
......".ARE YOU SURE  Y...";Q$......Q$..
"Y"........15,8,15...H..15,"I0".'.R..15,
EN$,EM$,ET$,ES$.9....EN$."00".270.X...."
."EN$", "EM$","ET$","ES$.`... 15.F.....Q
.... SEEK.}...JOB.176......570..."..E.1.
320...,..690...6.. READ...@.JOB.128...J.
.570.I.T..E.1.360.R.^..690.Z.H. 15...R..
".INSERT CLONE IN DRIVE"...|.."PRESS .RE
TURN. TO CONTINUE"......#C$:.C$."".390.A
....C$..G(13).390.K...."OK".X....15,8,15
.C.... SEEK.O...JOB.176.X.B..570...L..E.
1.490...V..690...... WRITE.....JOB.144..
....570......E.1.530.E....690.M... 15...
...".DONE!"...&.....0.. JOB QUEUE...:.TR
Y.0...D..15,"M-W"G(8)G(0)G(2)G(T)G(S).=.
N..15,"M-W"G(1)G(0)G(1)G(JOB).K.X.TRY.TR
Y.1.A.B..15,"M-R"G(1)G(0).N.L..#15,ES$..
.V..E$."".E$.G(0).....E.F(E$)......TRY.5
00.690......E.127.600.......G.... ERROR 
HANDLER.....ET$.I(D(T),C(D(T)).1)......T
.10.ET$."0".ET$...F.ES$.I(D(S),C(D(S)).1
).'.P..S.10.ES$."0".ES$.K.Z..E.1.E.12.EN
$.I(D(E.18),2):.750.M...EN$."02":EM$."?T
IME OUT":.770......E.7.E.8.EM$."WRITR ER
ROR":.770.....EM$."READ ERROR".E...."."E
N$", "EM$","ET$","ES$.V...."..FAILED."..
... 15... ......
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL