DISKCOPY
FILE INFORMATION
FILENAME(S): DISKCOPY
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-11-30 18:12:38
APPEARS ON: 1 disk(s)
FILE HASH
cec2c2a1b4387a5787a8b2bc94fd4d2f102d57d7471eace958788f4397fdf4e5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PC917 | DISKCOPY | PRG | Sailor, Ganheden | 34 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 0A 00 89 35 30 30 30 00 32 08 14 00 |.......5000.2...|
00000010: 97 39 39 39 2C C2 28 35 36 29 3A 97 35 36 2C C2 |.999,.(56):.56,.|
00000020: 28 34 36 29 AA 30 39 3A 9C 3A 42 42 B2 C2 28 35 |(46).09:.:BB..(5|
00000030: 36 29 00 52 08 1E 00 4E B2 32 35 35 3A 8B C2 28 |6).R...N.255:..(|
00000040: 39 39 39 29 B3 B1 31 36 30 A7 4E B2 C2 28 39 39 |999)..160.N..(99|
00000050: 39 29 00 8F 08 28 00 4E B2 4E AB 42 42 AB 31 3A |9)...(.N.N.BB.1:|
00000060: 42 41 B2 42 42 AC 32 35 36 3A 4D 41 B2 38 32 38 |BA.BB.256:MA.828|
00000070: 3A 86 42 4D 25 28 33 35 2C 32 34 29 3A 81 4A B2 |:.BM%(35,24):.J.|
00000080: 30 A4 37 3A 54 41 28 4A 29 B2 32 AE 4A 3A 82 00 |0.7:TA(J).2.J:..|
00000090: A9 08 2D 00 99 4E 22 42 55 46 46 45 52 53 20 41 |..-..N"BUFFERS A|
000000A0: 56 41 49 4C 41 42 4C 45 22 00 BA 08 32 00 9F 31 |VAILABLE"...2..1|
000000B0: 2C 38 2C 31 35 3A 8D 33 31 30 00 D3 08 3C 00 44 |,8,15:.310...<.D|
000000C0: 24 B2 22 53 22 3A 8D 32 30 31 30 3A 49 32 24 B2 |$."S":.2010:I2$.|
000000D0: 49 52 24 00 02 09 46 00 8B 44 52 24 B3 B1 22 32 |IR$...F..DR$.."2|
000000E0: 41 22 A7 99 22 12 49 4C 4C 45 47 41 4C 20 44 4F |A"..".ILLEGAL DO|
000000F0: 53 20 31 2E 30 20 44 49 53 4B 92 22 3A 89 34 30 |S 1.0 DISK.":.40|
00000100: 30 30 00 43 09 50 00 8B 49 32 24 B2 49 31 24 A7 |00.C.P..I2$.I1$.|
00000110: 99 22 12 53 4F 55 52 43 45 20 41 4E 44 20 44 45 |.".SOURCE AND DE|
00000120: 53 54 49 4E 41 54 49 4F 4E 20 48 41 56 45 20 53 |STINATION HAVE S|
00000130: 41 4D 45 20 49 44 20 43 4F 44 45 92 22 3A 89 34 |AME ID CODE.":.4|
00000140: 30 30 30 00 4C 09 5A 00 8D 36 37 30 00 68 09 64 |000.L.Z..670.h.d|
00000150: 00 54 B2 54 53 3A 53 B2 30 3A 4E 55 B2 31 3A 54 |.T.TS:S.0:NU.1:T|
00000160: 31 B2 54 3A 53 31 B2 53 00 7F 09 6E 00 98 31 2C |1.T:S1.S...n..1,|
00000170: 22 49 30 22 3A 9F 33 2C 38 2C 33 2C 22 23 22 00 |"I0":.3,8,3,"#".|
00000180: 98 09 78 00 99 22 52 45 41 44 49 4E 47 20 42 55 |..x.."READING BU|
00000190: 46 46 45 52 20 23 22 3B 00 C1 09 82 00 8B 42 4D |FFER #";......BM|
000001A0: 25 28 54 31 2C 53 31 29 B2 30 A7 8D 34 35 30 3A |%(T1,S1).0..450:|
000001B0: 4E 55 B2 4E 55 AA 31 3A 8B 4E 55 B1 4E A7 31 36 |NU.NU.1:.NU.N.16|
000001C0: 30 00 E1 09 8C 00 53 31 B2 53 31 AA 31 3A 8B 53 |0.....S1.S1.1:.S|
000001D0: 31 B1 32 30 A7 53 31 B2 30 3A 54 31 B2 54 31 AA |1.20.S1.0:T1.T1.|
000001E0: 31 00 F2 09 96 00 8B 54 31 B3 54 46 AA 31 A7 31 |1......T1.TF.1.1|
000001F0: 33 30 00 FE 09 A0 00 99 22 11 22 3A A0 33 00 1E |30......".":.3..|
00000200: 0A AA 00 44 24 B2 22 44 22 3A 8D 32 30 31 30 3A |...D$."D":.2010:|
00000210: 8B 49 52 24 B3 B1 49 31 24 A7 89 31 37 30 00 35 |.IR$..I1$..170.5|
00000220: 0A B4 00 98 31 2C 22 49 30 22 3A 9F 33 2C 38 2C |....1,"I0":.3,8,|
00000230: 33 2C 22 23 22 00 4E 0A BE 00 99 22 57 52 49 54 |3,"#".N...."WRIT|
00000240: 49 4E 47 20 42 55 46 46 45 52 20 23 22 3B 00 61 |ING BUFFER #";.a|
00000250: 0A C8 00 4E 55 B2 31 3A 54 31 B2 54 3A 53 31 B2 |...NU.1:T1.T:S1.|
00000260: 53 00 8A 0A D2 00 8B 42 4D 25 28 54 31 2C 53 31 |S......BM%(T1,S1|
00000270: 29 B2 30 A7 8D 35 36 30 3A 4E 55 B2 4E 55 AA 31 |).0..560:NU.NU.1|
00000280: 3A 8B 4E 55 B1 4E A7 32 34 30 00 AA 0A DC 00 53 |:.NU.N.240.....S|
00000290: 31 B2 53 31 AA 31 3A 8B 53 31 B1 32 30 A7 53 31 |1.S1.1:.S1.20.S1|
000002A0: B2 30 3A 54 31 B2 54 31 AA 31 00 BB 0A E6 00 8B |.0:T1.T1.1......|
000002B0: 54 31 B3 54 46 AA 31 A7 32 31 30 00 C7 0A F0 00 |T1.TF.1.210.....|
000002C0: 99 22 11 22 3A A0 33 00 E4 0A FA 00 53 B2 53 31 |.".":.3.....S.S1|
000002D0: AA 31 3A 8B 53 B1 32 30 A7 53 B2 30 3A 54 31 B2 |.1:.S.20.S.0:T1.|
000002E0: 54 31 AA 31 00 F7 0A 04 01 54 B2 54 31 3A 8B 54 |T1.1.....T.T1:.T|
000002F0: B1 54 46 A7 32 39 30 00 16 0B 0E 01 44 24 B2 22 |.TF.290.....D$."|
00000300: 53 22 3A 8D 32 30 31 30 3A 8B 49 52 24 B3 B1 49 |S":.2010:.IR$..I|
00000310: 32 24 A7 32 37 30 00 2E 0B 18 01 4E 55 B2 31 3A |2$.270.....NU.1:|
00000320: 54 31 B2 54 3A 53 31 B2 53 3A 89 31 31 30 00 35 |T1.T:S1.S:.110.5|
00000330: 0B 22 01 A0 31 00 5D 0B 2C 01 97 35 36 2C C2 28 |."..1.].,..56,.(|
00000340: 39 39 39 29 3A 9C 3A 99 22 11 11 42 41 43 4B 55 |999):.:."..BACKU|
00000350: 50 20 43 4F 4D 50 4C 45 54 45 22 3A 80 00 8D 0B |P COMPLETE":....|
00000360: 36 01 99 22 11 49 4E 53 45 52 54 20 44 45 53 54 |6..".INSERT DEST|
00000370: 49 4E 41 54 49 4F 4E 20 44 49 53 4B 20 54 4F 20 |INATION DISK TO |
00000380: 42 45 20 46 4F 52 4D 41 54 54 45 44 22 00 CB 0B |BE FORMATTED"...|
00000390: 40 01 85 22 11 11 44 49 53 4B 20 4E 41 4D 45 1D |@.."..DISK NAME.|
000003A0: 1D 1D A0 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
000003B0: 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D | .............|
000003C0: 9D 9D 9D 9D 9D 9D 22 3B 44 4E 24 00 E5 0B 4A 01 |......";DN$...J.|
000003D0: 8B 44 4E 24 B2 22 A0 22 A7 99 22 91 91 91 22 3B |.DN$.".".."...";|
000003E0: 3A 89 33 32 30 00 F8 0B 54 01 8B C3 28 44 4E 24 |:.320...T...(DN$|
000003F0: 29 B1 31 36 A7 33 32 30 00 1B 0C 5E 01 46 B2 30 |).16.320...^.F.0|
00000400: 3A 81 4A B2 31 A4 C3 28 44 4E 24 29 3A 53 31 24 |:.J.1..(DN$):S1$|
00000410: B2 CA 28 44 4E 24 2C 4A 2C 31 29 00 36 0C 68 01 |..(DN$,J,1).6.h.|
00000420: 8B 53 31 24 B2 22 A0 22 B0 53 31 24 B2 C7 28 33 |.S1$.".".S1$..(3|
00000430: 34 29 A7 46 B2 31 00 4D 0C 72 01 82 4A 3A 8B 46 |4).F.1.M.r..J:.F|
00000440: A7 99 22 91 91 91 22 3B 3A 89 33 32 30 00 77 0C |.."...";:.320.w.|
00000450: 7C 01 85 22 11 55 4E 49 51 55 45 20 44 49 53 4B ||..".UNIQUE DISK|
00000460: 20 49 44 1D 1D 1D A0 20 20 20 20 20 9D 9D 9D 9D | ID.... ....|
00000470: 9D 9D 22 3B 49 31 24 00 90 0C 86 01 8B 49 31 24 |..";I1$......I1$|
00000480: B2 22 A0 22 A7 99 22 91 91 22 3B 3A 89 33 38 30 |.".".."..";:.380|
00000490: 00 AB 0C 90 01 8B C3 28 49 31 24 29 B3 B1 32 A7 |.......(I1$)..2.|
000004A0: 99 22 91 91 22 3B 3A 89 33 38 30 00 CB 0C 9A 01 |."..";:.380.....|
000004B0: 98 31 2C 22 4E 30 3A 22 AA 44 4E 24 AA 22 2C 22 |.1,"N0:".DN$.","|
000004C0: AA 49 31 24 3A 44 4E 24 B2 22 22 00 D5 0C A4 01 |.I1$:DN$."".....|
000004D0: 8D 32 30 30 30 00 E8 0C AE 01 8B 45 52 A7 99 45 |.2000......ER..E|
000004E0: 52 24 3A 89 34 30 30 30 00 EE 0C B8 01 8E 00 18 |R$:.4000........|
000004F0: 0D C2 01 43 B2 30 3A 8F 20 52 45 41 44 20 42 4C |...C.0:. READ BL|
00000500: 4F 43 4B 20 54 31 2C 53 31 20 54 4F 20 42 55 46 |OCK T1,S1 TO BUF|
00000510: 46 45 52 20 23 20 4E 55 00 2E 0D CC 01 98 31 2C |FER # NU......1,|
00000520: 22 55 31 22 3B 33 3B 30 3B 54 31 3B 53 31 00 41 |"U1";3;0;T1;S1.A|
00000530: 0D D6 01 8D 32 30 30 30 3A 8B A8 45 52 A7 35 30 |....2000:..ER.50|
00000540: 30 00 54 0D E0 01 43 B2 43 AA 31 3A 8B 43 B3 33 |0.T...C.C.1:.C.3|
00000550: 89 34 36 30 00 65 0D F4 01 98 31 2C 22 42 2D 50 |.460.e....1,"B-P|
00000560: 22 3B 33 3B 30 00 91 0D FE 01 8B 4E 55 B3 B1 30 |";3;0......NU..0|
00000570: A7 99 22 20 20 20 9D 9D 9D 22 3B C9 28 22 20 20 |.." ...";.(" |
00000580: 22 AA C4 28 4E 55 29 2C 33 29 3B 22 9D 9D 9D 22 |"..(NU),3);"..."|
00000590: 3B 00 BE 0D 08 02 50 33 B2 C2 28 33 29 3A 50 34 |;.....P3..(3):P4|
000005A0: B2 C2 28 34 29 3A 97 34 2C 42 42 AA 4E 55 3A 9E |..(4):.4,BB.NU:.|
000005B0: 4D 41 3A 97 33 2C 50 33 3A 97 34 2C 50 34 00 DB |MA:.3,P3:.4,P4..|
000005C0: 0D 1C 02 8B 53 54 B3 B1 2E AF 53 54 B3 B1 36 34 |....ST....ST..64|
000005D0: A7 8D 32 30 30 30 3A 99 45 52 24 00 E1 0D 21 02 |..2000:.ER$...!.|
000005E0: 8E 00 0A 0E 30 02 8F 20 57 52 49 54 45 20 42 4C |....0.. WRITE BL|
000005F0: 4F 43 4B 20 54 31 2C 53 31 20 46 52 4F 4D 20 42 |OCK T1,S1 FROM B|
00000600: 55 46 46 45 52 20 23 20 4E 55 00 30 0E 3A 02 43 |UFFER # NU.0.:.C|
00000610: B2 30 3A 98 31 2C 22 42 2D 41 22 3B 30 3B 54 31 |.0:.1,"B-A";0;T1|
00000620: 3B 53 31 3A 98 31 2C 22 42 2D 50 22 3B 33 3B 30 |;S1:.1,"B-P";3;0|
00000630: 00 55 0E 44 02 99 22 20 20 20 9D 9D 9D 22 3B C9 |.U.D.." ...";.|
00000640: 28 22 20 20 22 AA C4 28 4E 55 29 2C 33 29 3B 22 |(" "..(NU),3);"|
00000650: 9D 9D 9D 22 3B 00 84 0E 4E 02 50 33 B2 C2 28 33 |...";...N.P3..(3|
00000660: 29 3A 50 34 B2 C2 28 34 29 3A 97 34 2C 42 42 AA |):P4..(4):.4,BB.|
00000670: 4E 55 3A 9E 4D 41 AA 33 3A 97 33 2C 50 33 3A 97 |NU:.MA.3:.3,P3:.|
00000680: 34 2C 50 34 00 B1 0E 62 02 8B 53 54 B3 B1 2E AF |4,P4...b..ST....|
00000690: 53 54 B3 B1 36 34 A7 99 22 12 57 52 49 54 45 20 |ST..64..".WRITE |
000006A0: 45 52 52 4F 52 22 53 54 22 92 22 3A 89 34 30 30 |ERROR"ST".":.400|
000006B0: 30 00 C7 0E 6C 02 98 31 2C 22 55 32 22 3B 33 3B |0...l..1,"U2";3;|
000006C0: 30 3B 54 31 3B 53 31 00 DA 0E 76 02 8D 32 30 30 |0;T1;S1...v..200|
000006D0: 30 3A 8B A8 45 52 A7 36 36 30 00 ED 0E 80 02 43 |0:..ER.660.....C|
000006E0: B2 43 AA 31 3A 8B 43 B3 33 A7 36 32 30 00 18 0F |.C.1:.C.3.620...|
000006F0: 8A 02 99 22 12 55 4E 52 45 43 4F 56 45 52 41 42 |...".UNRECOVERAB|
00000700: 4C 45 20 57 52 49 54 45 20 45 52 52 4F 52 22 45 |LE WRITE ERROR"E|
00000710: 52 24 3A 89 34 30 30 30 00 1E 0F 94 02 8E 00 38 |R$:.4000.......8|
00000720: 0F 9E 02 8F 20 47 45 54 20 42 41 4D 20 54 4F 20 |.... GET BAM TO |
00000730: 42 4D 25 28 54 2C 53 29 00 46 0F A8 02 54 53 B2 |BM%(T,S).F...TS.|
00000740: 31 3A 54 46 B2 30 00 5D 0F B2 02 98 31 2C 22 49 |1:TF.0.]....1,"I|
00000750: 30 22 3A 9F 33 2C 38 2C 33 2C 22 23 22 00 66 0F |0":.3,8,3,"#".f.|
00000760: BC 02 53 39 B2 30 00 8B 0F C6 02 99 22 11 54 52 |..S9.0......".TR|
00000770: 41 43 4B 20 23 20 20 20 42 4C 4F 43 4B 53 20 54 |ACK # BLOCKS T|
00000780: 4F 20 54 52 41 4E 53 46 45 52 22 00 AF 0F D0 02 |O TRANSFER".....|
00000790: 99 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |."..............|
000007A0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 |..............".|
000007B0: D6 0F DA 02 42 59 B2 34 3A 4E 55 B2 30 3A 54 31 |....BY.4:NU.0:T1|
000007C0: B2 31 38 3A 53 31 B2 30 3A 43 30 24 B2 C7 28 2E |.18:S1.0:C0$..(.|
000007D0: 29 3A 8D 34 35 30 00 E8 0F E4 02 54 25 B2 28 42 |):.450.....T%.(B|
000007E0: 59 AB 34 29 AD 34 AA 31 00 F6 0F EE 02 99 22 20 |Y.4).4.1......" |
000007F0: 20 22 3B 54 25 3B 00 29 10 F8 02 8B C2 28 42 41 | ";T%;.).....(BA|
00000800: AA 42 59 29 B2 2E A7 81 4A B2 2E A4 32 30 3A 42 |.BY)....J...20:B|
00000810: 4D 25 28 54 25 2C 4A 29 B2 2E 3A 82 3A 42 59 B2 |M%(T%,J)..:.:BY.|
00000820: 42 59 AA 34 3A 89 38 31 30 00 31 10 02 03 53 B2 |BY.4:.810.1...S.|
00000830: 30 00 6B 10 0C 03 42 59 B2 42 59 AA 31 3A 41 30 |0.k...BY.BY.1:A0|
00000840: B2 C2 28 42 41 AA 42 59 29 3A 81 4A B2 2E A4 37 |..(BA.BY):.J...7|
00000850: 3A 42 4D 25 28 54 25 2C 53 29 B2 41 30 AF 54 41 |:BM%(T%,S).A0.TA|
00000860: 28 4A 29 3A 53 B2 53 AA 31 3A 82 00 79 10 16 03 |(J):S.S.1:..y...|
00000870: 8B 53 B3 32 32 A7 37 38 30 00 85 10 20 03 42 59 |.S.22.780... .BY|
00000880: B2 42 59 AA 31 00 9C 10 2A 03 45 53 B2 32 31 3A |.BY.1...*.ES.21:|
00000890: 8B 54 25 B1 31 37 A7 45 53 B2 31 39 00 AD 10 34 |.T%.17.ES.19...4|
000008A0: 03 8B 54 25 B1 32 34 A7 45 53 B2 31 38 00 BE 10 |..T%.24.ES.18...|
000008B0: 3E 03 8B 54 25 B1 33 30 A7 45 53 B2 31 37 00 DA |>..T%.30.ES.17..|
000008C0: 10 48 03 81 4A B2 45 53 A4 32 34 3A 42 4D 25 28 |.H..J.ES.24:BM%(|
000008D0: 54 25 2C 4A 29 B2 AB 31 3A 82 00 00 11 52 03 53 |T%,J)..1:....R.S|
000008E0: 4D B2 2E 3A 81 4A B2 2E A4 32 30 3A 8B 42 4D 25 |M..:.J...20:.BM%|
000008F0: 28 54 25 2C 4A 29 B2 2E A7 53 4D B2 53 4D AA 31 |(T%,J)...SM.SM.1|
00000900: 00 18 11 5C 03 82 3A 99 A3 31 32 29 3B 53 4D 3A |...\..:..12);SM:|
00000910: 53 39 B2 53 39 AA 53 4D 00 35 11 66 03 8B 53 4D |S9.S9.SM.5.f..SM|
00000920: B2 2E AF 54 53 B2 54 25 A7 54 53 B2 54 53 AA 31 |...TS.T%.TS.TS.1|
00000930: 3A 89 38 39 30 00 46 11 70 03 8B 53 4D B3 B1 2E |:.890.F.p..SM...|
00000940: A7 54 46 B2 54 25 00 56 11 7A 03 8B 42 59 B3 31 |.TF.T%.V.z..BY.1|
00000950: 34 33 A7 37 34 30 00 7A 11 84 03 A0 33 3A 99 22 |43.740.z....3:."|
00000960: 53 54 41 52 54 20 3D 22 3B 54 53 3B 22 20 46 49 |START =";TS;" FI|
00000970: 4E 49 53 48 20 3D 22 3B 54 46 00 98 11 8E 03 99 |NISH =";TF......|
00000980: 3A 99 53 39 22 42 4C 4F 43 4B 53 20 54 4F 20 54 |:.S9"BLOCKS TO T|
00000990: 52 41 4E 53 46 45 52 22 00 C7 11 98 03 99 22 41 |RANSFER"......"A|
000009A0: 50 50 52 4F 58 22 B5 28 28 32 2E 34 35 AC 53 39 |PPROX".((2.45.S9|
000009B0: 29 AD 36 30 29 22 4D 49 4E 55 54 45 53 20 46 4F |).60)"MINUTES FO|
000009C0: 52 20 43 4F 50 59 22 00 CD 11 A2 03 8E 00 04 12 |R COPY".........|
000009D0: D0 07 84 31 2C 45 52 24 2C 45 31 24 2C 45 32 24 |...1,ER$,E1$,E2$|
000009E0: 2C 45 33 24 3A 45 52 B2 C5 28 45 52 24 29 3A 45 |,E3$:ER..(ER$):E|
000009F0: 52 24 B2 45 52 24 AA 45 31 24 AA 45 32 24 AA 45 |R$.ER$.E1$.E2$.E|
00000A00: 33 24 3A 8E 00 2F 12 DA 07 53 31 24 B2 22 53 4F |3$:../...S1$."SO|
00000A10: 55 52 43 45 22 3A 8B 44 24 B2 22 44 22 A7 53 31 |URCE":.D$."D".S1|
00000A20: 24 B2 22 44 45 53 54 49 4E 41 54 49 4F 4E 22 00 |$."DESTINATION".|
00000A30: 59 12 E4 07 99 22 49 4E 53 45 52 54 20 22 3B 53 |Y...."INSERT ";S|
00000A40: 31 24 3B 22 20 44 49 53 4B 2C 20 50 52 45 53 53 |1$;" DISK, PRESS|
00000A50: 20 12 53 50 41 43 45 92 22 00 6F 12 EE 07 A1 41 | .SPACE.".o....A|
00000A60: 24 3A 8B 41 24 B3 B1 22 20 22 A7 32 30 33 30 00 |$:.A$.." ".2030.|
00000A70: 8E 12 F8 07 9F 32 2C 38 2C 30 2C 22 24 30 22 3A |.....2,8,0,"$0":|
00000A80: 8D 32 30 30 30 3A 8B 45 52 A7 34 30 30 30 00 B5 |.2000:.ER.4000..|
00000A90: 12 02 08 81 4A B2 31 A4 32 37 3A A1 23 32 2C 41 |....J.1.27:.#2,A|
00000AA0: 24 3A 82 4A 3A A1 23 32 2C 42 24 3A 49 52 24 B2 |$:.J:.#2,B$:IR$.|
00000AB0: 41 24 AA 42 24 00 DD 12 0C 08 A1 23 32 2C 41 24 |A$.B$......#2,A$|
00000AC0: 3A A1 23 32 2C 41 24 3A A1 23 32 2C 42 24 3A 44 |:.#2,A$:.#2,B$:D|
00000AD0: 52 24 B2 41 24 AA 42 24 3A A0 32 3A 8E 00 F0 12 |R$.A$.B$:.2:....|
00000AE0: A0 0F 97 35 36 2C C2 28 39 39 39 29 3A 9C 3A 90 |...56,.(999):.:.|
00000AF0: 00 0C 13 88 13 8B C2 28 34 35 29 B2 30 34 34 AF |.......(45).044.|
00000B00: C2 28 34 36 29 B2 30 31 39 A7 32 30 00 2A 13 92 |.(46).019.20.*..|
00000B10: 13 8F 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |..::::::::::::::|
00000B20: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 00 43 13 97 13 99 |::::::::::.C....|
00000B30: 22 93 22 2C 22 20 12 44 49 53 4B 43 4F 50 59 92 |"."," .DISKCOPY.|
00000B40: 22 3A 99 00 6E 13 9C 13 99 22 4F 52 49 47 49 4E |":..n...."ORIGIN|
00000B50: 41 4C 4C 59 20 12 42 41 43 4B 55 50 36 34 4B 92 |ALLY .BACKUP64K.|
00000B60: 20 2D 20 4B 45 49 54 48 20 48 4F 50 45 22 00 91 | - KEITH HOPE"..|
00000B70: 13 A6 13 99 3A 99 22 4D 4F 44 49 46 49 45 44 20 |....:."MODIFIED |
00000B80: 46 52 4F 4D 20 42 41 43 4B 55 50 20 32 30 33 31 |FROM BACKUP 2031|
00000B90: 22 00 B0 13 B0 13 99 22 42 59 20 4A 49 4D 20 4C |"......"BY JIM L|
00000BA0: 41 57 20 2F 20 4B 45 49 54 48 20 48 4F 50 45 22 |AW / KEITH HOPE"|
00000BB0: 00 E1 13 BA 13 99 3A 99 22 27 47 4F 54 4F 20 34 |......:."'GOTO 4|
00000BC0: 30 30 30 27 20 49 46 20 50 52 4F 47 52 41 4D 20 |000' IF PROGRAM |
00000BD0: 51 55 49 54 53 20 41 42 4E 4F 52 4D 41 4C 4C 59 |QUITS ABNORMALLY|
00000BE0: 22 00 0F 14 C4 13 99 3A 99 22 44 4F 20 4E 4F 54 |"......:."DO NOT|
00000BF0: 20 53 41 56 45 20 50 52 4F 47 52 41 4D 20 41 46 | SAVE PROGRAM AF|
00000C00: 54 45 52 20 52 55 4E 4E 49 4E 47 21 22 3A 99 00 |TER RUNNING!":..|
00000C10: 3C 14 D8 13 8F 20 50 4F 4B 45 20 4D 41 43 48 49 |<.... POKE MACHI|
00000C20: 4E 45 20 43 4F 44 45 20 49 4E 54 4F 20 43 41 53 |NE CODE INTO CAS|
00000C30: 53 45 54 54 45 20 42 55 46 46 45 52 00 55 14 E2 |SETTE BUFFER.U..|
00000C40: 13 81 49 B2 38 32 38 A4 39 31 35 3A 87 41 3A 97 |..I.828.915:.A:.|
00000C50: 49 2C 41 3A 82 00 81 14 EC 13 8F 20 4E 4F 57 20 |I,A:....... NOW |
00000C60: 4D 4F 56 45 20 45 4E 44 20 4F 46 20 50 52 4F 47 |MOVE END OF PROG|
00000C70: 52 41 4D 20 50 4F 49 4E 54 45 52 53 20 44 4F 57 |RAM POINTERS DOW|
00000C80: 4E 00 A2 14 F6 13 8F 20 41 4E 44 20 49 4E 53 54 |N...... AND INST|
00000C90: 41 4C 4C 20 54 57 4F 20 5A 45 52 4F 20 42 59 54 |ALL TWO ZERO BYT|
00000CA0: 45 53 00 CA 14 00 14 97 34 35 2C 30 34 34 3A 97 |ES......45,044:.|
00000CB0: 34 36 2C 30 31 39 3A 97 34 39 30 36 2C 30 3A 97 |46,019:.4906,0:.|
00000CC0: 34 39 30 37 2C 30 3A 89 32 30 00 D0 14 0A 14 8F |4907,0:.20......|
00000CD0: 00 16 15 14 14 83 37 36 2C 36 36 2C 33 2C 37 36 |......76,66,3,76|
00000CE0: 2C 39 37 2C 33 2C 31 36 32 2C 33 2C 33 32 2C 31 |,97,3,162,3,32,1|
00000CF0: 39 38 2C 32 35 35 2C 31 36 30 2C 30 2C 31 33 32 |98,255,160,0,132|
00000D00: 2C 33 2C 33 32 2C 32 30 37 2C 32 35 35 2C 33 32 |,3,32,207,255,32|
00000D10: 2C 31 33 38 2C 33 00 40 15 1E 14 83 31 34 35 2C |,138,3.@....145,|
00000D20: 33 2C 33 32 2C 31 32 38 2C 33 2C 31 36 35 2C 31 |3,32,128,3,165,1|
00000D30: 34 34 2C 32 30 38 2C 33 2C 32 30 30 2C 32 30 38 |44,208,3,200,208|
00000D40: 00 72 15 28 14 83 32 33 38 2C 33 32 2C 32 30 34 |.r.(..238,32,204|
00000D50: 2C 32 35 35 2C 39 36 2C 31 36 32 2C 33 2C 33 32 |,255,96,162,3,32|
00000D60: 2C 32 30 31 2C 32 35 35 2C 31 36 30 2C 30 2C 31 |,201,255,160,0,1|
00000D70: 33 32 00 94 15 32 14 83 33 2C 33 32 2C 31 33 38 |32...2..3,32,138|
00000D80: 2C 33 2C 31 37 37 2C 33 2C 33 32 2C 31 32 38 2C |,3,177,3,32,128,|
00000D90: 33 2C 33 32 00 C6 15 3C 14 83 32 31 30 2C 32 35 |3,32...<..210,25|
00000DA0: 35 2C 31 36 35 2C 31 34 34 2C 32 30 38 2C 33 2C |5,165,144,208,3,|
00000DB0: 32 30 30 2C 32 30 38 2C 32 33 38 2C 33 32 2C 32 |200,208,238,32,2|
00000DC0: 30 34 2C 32 35 35 00 0C 16 46 14 83 39 36 2C 37 |04,255...F..96,7|
00000DD0: 32 2C 31 36 35 2C 31 2C 39 2C 33 2C 31 33 33 2C |2,165,1,9,3,133,|
00000DE0: 31 2C 38 38 2C 31 30 34 2C 39 36 2C 37 32 2C 31 |1,88,104,96,72,1|
00000DF0: 32 30 2C 31 36 35 2C 31 2C 34 31 2C 32 35 32 2C |20,165,1,41,252,|
00000E00: 31 33 33 2C 31 2C 31 30 34 2C 39 36 00 00 00 |133,1,104,96... |
.......5000.2....999,B(56):.56,B(46).09:
.:BB.B(56).R...N.255:.B(999)..160.N.B(99
9)...(.N.N.BB.1:BA.BB.256:MA.828:.BM%(35
,24):.J.0.7:TA(J).2.J:....-..N"BUFFERS A
VAILABLE"...2..1,8,15:.310.S.<.D$."S":.2
010:I2$.IR$...F..DR$.."2A"..".ILLEGAL DO
S 1.0 DISK.":.4000.C.P..I2$.I1$..".SOURC
E AND DESTINATION HAVE SAME ID CODE.":.4
000.L.Z..670.H.D.T.TS:S.0:NU.1:T1.T:S1.S
..N..1,"I0":.3,8,3,"#"...X.."READING BU
FFER #";.A....BM%(T1,S1).0..450:NU.NU.1:
.NU.N.160.....S1.S1.1:.S1.20.S1.0:T1.T1.
1......T1.TF.1.130... ..".": 3.....D$."D
":.2010:.IR$..I1$..170.5....1,"I0":.3,8,
3,"#".N...."WRITING BUFFER #";.A.H.NU.1:
T1.T:S1.S...R..BM%(T1,S1).0..560:NU.NU.1
:.NU.N.240.....S1.S1.1:.S1.20.S1.0:T1.T1
.1......T1.TF.1.210.G....".": 3.....S.S1
.1:.S.20.S.0:T1.T1.1.....T.T1:.T.TF.290.
....D$."S":.2010:.IR$..I2$.270.....NU.1:
T1.T:S1.S:.110.5.". 1.].,..56,B(999):.:.
"..BACKUP COMPLETE":....6..".INSERT DEST
INATION DISK TO BE FORMATTED".K.@.."..DI
SK NAME... .............
......";DN$...J..DN$." ".."...";:.320...
T..C(DN$).16.320...^.F.0:.J.1.C(DN$):S1$
.J(DN$,J,1).6.H..S1$." ".S1$.G(34).F.1.M
.R..J:.F.."...";:.320.W.|..".UNIQUE DISK
ID... ......";I1$......I1$." "..".
.";:.380......C(I1$)..2.."..";:.380.K...
.1,"N0:".DN$.",".I1$:DN$."".U....2000...
...ER..ER$:.4000.........B.C.0:. READ BL
OCK T1,S1 TO BUFFER # NU...L..1,"U1";3;0
;T1;S1.A.V..2000:..ER.500.T...C.C.1:.C.3
.460.E....1,"B-P";3;0......NU..0.." ..
.";I(" ".D(NU),3);"...";.....P3.B(3):P4
.B(4):.4,BB.NU:.MA:.3,P3:.4,P4......ST..
..ST..64..2000:.ER$...!.....0.. WRITE BL
OCK T1,S1 FROM BUFFER # NU.0.:.C.0:.1,"B
-A";0;T1;S1:.1,"B-P";3;0.U.D.." ...";I
(" ".D(NU),3);"...";...N.P3.B(3):P4.B(4
):.4,BB.NU:.MA.3:.3,P3:.4,P4...B..ST....
ST..64..".WRITE ERROR"ST".":.4000.G.L..1
,"U2";3;0;T1;S1.Z.V..2000:..ER.660.....C
.C.1:.C.3.620......".UNRECOVERABLE WRITE
ERROR"ER$:.4000.......8.... GET BAM TO
BM%(T,S).F...TS.1:TF.0.]....1,"I0":.3,8,
3,"#".F...S9.0...F..".TRACK # BLOCKS T
O TRANSFER"...P.."......................
......".V.Z.BY.4:NU.0:T1.18:S1.0:C0$.G(.
):.450.....T%.(BY.4).4.1......" ";T%;.)
....B(BA.BY)....J...20:BM%(T%,J)..:.:BY.
BY.4:.810.1...S.0.K...BY.BY.1:A0.B(BA.BY
):.J...7:BM%(T%,S).A0.TA(J):S.S.1:..Y...
.S.22.780... .BY.BY.1...*.ES.21:.T%.17.E
S.19...4..T%.24.ES.18...>..T%.30.ES.17.Z
.H..J.ES.24:BM%(T%,J)..1:....R.SM..:.J..
.20:.BM%(T%,J)...SM.SM.1...\..:..12);SM:
S9.S9.SM.5.F..SM...TS.T%.TS.TS.1:.890.F.
P..SM....TF.T%.V.Z..BY.143.740.Z... 3:."
START =";TS;" FINISH =";TF......:.S9"BLO
CKS TO TRANSFER".G...."APPROX".((2.45.S9
).60)"MINUTES FOR COPY".M.......P..1,ER$
,E1$,E2$,E3$:ER.E(ER$):ER$.ER$.E1$.E2$.E
3$:../.Z.S1$."SOURCE":.D$."D".S1$."DESTI
NATION".Y...."INSERT ";S1$;" DISK, PRESS
.SPACE.".O....A$:.A$.." ".2030......2,8
,0,"$0":.2000:.ER.4000......J.1.27:.#2,A
$:.J:.#2,B$:IR$.A$.B$......#2,A$:.#2,A$:
.#2,B$:DR$.A$.B$: 2:.... ..56,B(999):.:.
......B(45).044.B(46).019.20.*....::::::
::::::::::::::::::.C...."."," .DISKCOPY.
":..N...."ORIGINALLY .BACKUP64K. - KEITH
HOPE"......:."MODIFIED FROM BACKUP 2031
"......"BY JIM LAW / KEITH HOPE"......:.
"'GOTO 4000' IF PROGRAM QUITS ABNORMALLY
"...D..:."DO NOT SAVE PROGRAM AFTER RUNN
ING!":..<.X.. POKE MACHINE CODE INTO CAS
SETTE BUFFER.U....I.828.915:.A:.I,A:....
... NOW MOVE END OF PROGRAM POINTERS DOW
N...... AND INSTALL TWO ZERO BYTES.J....
45,044:.46,019:.4906,0:.4907,0:.20.P....
......76,66,3,76,97,3,162,3,32,198,255,1
60,0,132,3,32,207,255,32,138,3.@....145,
3,32,128,3,165,144,208,3,200,208.R.(..23
8,32,204,255,96,162,3,32,201,255,160,0,1
32...2..3,32,138,3,177,3,32,128,3,32.F.<
..210,255,165,144,208,3,200,208,238,32,2
04,255...F..96,72,165,1,9,3,133,1,88,104
,96,72,120,165,1,41,252,133,1,104,96...
> CLICK IMAGE PREVIEW FOR FULL MODAL