SINGLE COPY
FILE INFORMATION
FILENAME(S): SINGLE COPY
FILE TYPE(S): PRG
FILE SIZE: 3.8K
FIRST SEEN: 2025-11-30 19:47:38
APPEARS ON: 2 disk(s)
FILE HASH
d145ca0af29baa09a712f190f5821390fab6f9d6db07d530369039d9fef8cc8c
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK 43 | SINGLE COPY | PRG | Curtcool, Frank | 23 | 17 | DOWNLOAD FILE |
| DISK NR20 | SINGLE COPY | PRG | hedning, pewp | 24 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 32 08 01 00 81 49 B2 38 32 38 A4 38 38 33 |..2....I.828.883|
00000010: 3A 87 41 3A 97 49 2C 41 3A 82 49 3A 99 22 05 22 |:.A:.I,A:.I:."."|
00000020: 3A 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 |:.53280,0:.53281|
00000030: 2C 30 00 5A 08 0A 00 8F 22 44 3D 44 53 41 56 45 |,0.Z...."D=DSAVE|
00000040: 22 40 42 41 43 4B 32 22 2C 44 30 3A 3F 44 53 24 |"@BACK2",D0:?DS$|
00000050: 3A 43 41 54 41 4C 4F 47 44 30 00 72 08 14 00 42 |:CATALOGD0.r...B|
00000060: 42 B2 C2 28 34 34 29 AA 32 37 3A 97 39 39 35 2C |B..(44).27:.995,|
00000070: 42 42 00 9B 08 1E 00 97 39 39 38 2C C2 28 35 35 |BB......998,.(55|
00000080: 29 3A 97 39 39 39 2C C2 28 35 36 29 3A 97 35 35 |):.999,.(56):.55|
00000090: 2C 30 3A 97 35 36 2C 42 42 3A 9C 00 A9 08 28 00 |,0:.56,BB:....(.|
000000A0: 42 42 B2 C2 28 39 39 35 29 00 CC 08 32 00 4E B2 |BB..(995)...2.N.|
000000B0: C2 28 39 39 39 29 AB 42 42 AB 31 3A 42 41 B2 42 |.(999).BB.1:BA.B|
000000C0: 42 AC 32 35 36 3A 4D 41 B2 38 32 38 00 DC 08 3C |B.256:MA.828...<|
000000D0: 00 86 42 4D 25 28 33 35 2C 32 34 29 00 F3 08 46 |..BM%(35,24)...F|
000000E0: 00 81 4A B2 30 A4 37 3A 54 41 28 4A 29 B2 32 AE |..J.0.7:TA(J).2.|
000000F0: 4A 3A 82 00 0C 09 50 00 99 22 93 1D 1D 1D 12 42 |J:....P..".....B|
00000100: 41 43 4B 55 50 20 31 35 34 31 92 22 00 3C 09 5A |ACKUP 1541.".<.Z|
00000110: 00 99 22 11 27 47 4F 54 4F 31 30 30 30 30 27 20 |..".'GOTO10000' |
00000120: 49 46 20 50 52 4F 47 52 41 4D 20 51 55 49 54 53 |IF PROGRAM QUITS|
00000130: 20 41 42 4E 4F 52 4D 41 4C 4C 59 22 00 59 09 64 | ABNORMALLY".Y.d|
00000140: 00 99 22 11 22 4E 22 42 55 46 46 45 52 53 20 41 |.."."N"BUFFERS A|
00000150: 56 41 49 4C 41 42 4C 45 22 00 65 09 6E 00 9F 31 |VAILABLE".e.n..1|
00000160: 2C 38 2C 31 35 00 81 09 C8 00 8F 20 2A 2A 2A 20 |,8,15...... *** |
00000170: 4D 41 49 4E 20 50 52 4F 47 52 41 4D 20 2A 2A 2A |MAIN PROGRAM ***|
00000180: 2A 00 8C 09 D2 00 8D 20 31 30 30 30 00 A5 09 DC |*...... 1000....|
00000190: 00 44 24 B2 22 53 22 3A 8D 33 32 30 30 3A 49 32 |.D$."S":.3200:I2|
000001A0: 24 B2 49 52 24 00 D5 09 E6 00 8B 44 52 24 B3 B1 |$.IR$......DR$..|
000001B0: 22 32 41 22 A7 99 22 12 49 4C 4C 45 47 41 4C 20 |"2A"..".ILLEGAL |
000001C0: 44 4F 53 20 31 2E 30 20 44 49 53 4B 92 22 3A 89 |DOS 1.0 DISK.":.|
000001D0: 31 30 30 30 30 00 17 0A F0 00 8B 49 32 24 B2 49 |10000......I2$.I|
000001E0: 31 24 A7 99 22 12 53 4F 55 52 43 45 20 41 4E 44 |1$..".SOURCE AND|
000001F0: 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 48 41 56 | DESTINATION HAV|
00000200: 45 20 53 41 4D 45 20 49 44 20 43 4F 44 45 92 22 |E SAME ID CODE."|
00000210: 3A 89 31 30 30 30 30 00 21 0A FA 00 8D 32 35 30 |:.10000.!....250|
00000220: 30 00 3D 0A 04 01 54 B2 54 53 3A 53 B2 30 3A 4E |0.=...T.TS:S.0:N|
00000230: 55 B2 31 3A 54 31 B2 54 3A 53 31 B2 53 00 54 0A |U.1:T1.T:S1.S.T.|
00000240: 0E 01 98 31 2C 22 49 30 22 3A 9F 33 2C 38 2C 33 |...1,"I0":.3,8,3|
00000250: 2C 22 23 22 00 6C 0A 18 01 99 22 52 45 41 44 49 |,"#".l...."READI|
00000260: 4E 47 20 42 4C 4F 43 4B 20 23 22 3B 00 96 0A 22 |NG BLOCK #";..."|
00000270: 01 8B 42 4D 25 28 54 31 2C 53 31 29 B2 30 A7 8D |..BM%(T1,S1).0..|
00000280: 32 30 30 30 3A 4E 55 B2 4E 55 AA 31 3A 8B 4E 55 |2000:NU.NU.1:.NU|
00000290: B1 4E A7 33 32 30 00 B6 0A 2C 01 53 31 B2 53 31 |.N.320...,.S1.S1|
000002A0: AA 31 3A 8B 53 31 B1 32 30 A7 53 31 B2 30 3A 54 |.1:.S1.20.S1.0:T|
000002B0: 31 B2 54 31 AA 31 00 C7 0A 36 01 8B 54 31 B3 54 |1.T1.1...6..T1.T|
000002C0: 46 AA 31 A7 32 39 30 00 D0 0A 40 01 99 22 11 22 |F.1.290...@.."."|
000002D0: 00 D7 0A 4A 01 A0 33 00 F7 0A 54 01 44 24 B2 22 |...J..3...T.D$."|
000002E0: 44 22 3A 8D 33 32 30 30 3A 8B 49 52 24 B3 B1 49 |D":.3200:.IR$..I|
000002F0: 31 24 A7 89 33 34 30 00 0E 0B 5E 01 98 31 2C 22 |1$..340...^..1,"|
00000300: 49 30 22 3A 9F 33 2C 38 2C 33 2C 22 23 22 00 27 |I0":.3,8,3,"#".'|
00000310: 0B 68 01 99 22 57 52 49 54 49 4E 47 20 42 55 46 |.h.."WRITING BUF|
00000320: 46 45 52 20 23 22 3B 00 3A 0B 72 01 4E 55 B2 31 |FER #";.:.r.NU.1|
00000330: 3A 54 31 B2 54 3A 53 31 B2 53 00 64 0B 7C 01 8B |:T1.T:S1.S.d.|..|
00000340: 42 4D 25 28 54 31 2C 53 31 29 B2 30 A7 8D 32 32 |BM%(T1,S1).0..22|
00000350: 30 30 3A 4E 55 B2 4E 55 AA 31 3A 8B 4E 55 B1 4E |00:NU.NU.1:.NU.N|
00000360: A7 34 31 30 00 84 0B 86 01 53 31 B2 53 31 AA 31 |.410.....S1.S1.1|
00000370: 3A 8B 53 31 B1 32 30 A7 53 31 B2 30 3A 54 31 B2 |:.S1.20.S1.0:T1.|
00000380: 54 31 AA 31 00 95 0B 90 01 8B 54 31 B3 54 46 AA |T1.1......T1.TF.|
00000390: 31 A7 33 38 30 00 9E 0B 9A 01 99 22 11 22 00 A5 |1.380......"."..|
000003A0: 0B A4 01 A0 33 00 C2 0B AE 01 53 B2 53 31 AA 31 |....3.....S.S1.1|
000003B0: 3A 8B 53 B1 32 30 A7 53 B2 30 3A 54 31 B2 54 31 |:.S.20.S.0:T1.T1|
000003C0: AA 31 00 D5 0B B8 01 54 B2 54 31 3A 8B 54 B1 54 |.1.....T.T1:.T.T|
000003D0: 46 A7 35 30 30 00 F4 0B C2 01 44 24 B2 22 53 22 |F.500.....D$."S"|
000003E0: 3A 8D 33 32 30 30 3A 8B 49 52 24 B3 B1 49 32 24 |:.3200:.IR$..I2$|
000003F0: A7 34 35 30 00 0C 0C CC 01 4E 55 B2 31 3A 54 31 |.450.....NU.1:T1|
00000400: B2 54 3A 53 31 B2 53 3A 89 32 37 30 00 21 0C F4 |.T:S1.S:.270.!..|
00000410: 01 8F 20 46 49 4E 49 53 48 45 44 20 58 46 45 52 |.. FINISHED XFER|
00000420: 53 00 28 0C FE 01 A0 31 00 44 0C 08 02 97 35 35 |S.(....1.D....55|
00000430: 2C C2 28 39 39 38 29 3A 97 35 36 2C C2 28 39 39 |,.(998):.56,.(99|
00000440: 39 29 3A 9C 00 5D 0C 12 02 99 22 11 11 42 41 43 |9):..]...."..BAC|
00000450: 4B 55 50 20 43 4F 4D 50 4C 45 54 45 22 00 6D 0C |KUP COMPLETE".m.|
00000460: 1C 02 9F 31 2C 38 2C 30 2C 22 24 30 22 00 85 0C |...1,8,0,"$0"...|
00000470: 26 02 A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 22 12 |&..#1,A$:.A$..".|
00000480: 22 A7 35 35 30 00 93 0C 30 02 99 41 24 3B 3A 89 |".550...0..A$;:.|
00000490: 36 31 30 00 B7 0C 3A 02 A1 23 31 2C 41 24 3A 53 |610...:..#1,A$:S|
000004A0: 53 B2 53 54 3A 41 B2 C3 28 41 24 29 3A 8B 41 A7 |S.ST:A..(A$):.A.|
000004B0: 41 B2 C6 28 41 24 29 00 DB 0C 44 02 A1 23 31 2C |A..(A$)...D..#1,|
000004C0: 42 24 3A 53 53 B2 53 54 3A 42 B2 C3 28 42 24 29 |B$:SS.ST:B..(B$)|
000004D0: 3A 8B 42 A7 42 B2 C6 28 42 24 29 00 E7 0C 4E 02 |:.B.B..(B$)...N.|
000004E0: 8B 53 53 A7 36 36 30 00 F9 0C 58 02 8B 41 B2 31 |.SS.660...X..A.1|
000004F0: AF 42 B2 31 A7 8D 36 33 30 00 12 0D 62 02 A1 23 |.B.1..630...b..#|
00000500: 31 2C 41 24 3A 8B 41 24 B2 22 22 A7 99 3A 89 35 |1,A$:.A$.""..:.5|
00000510: 37 30 00 20 0D 6C 02 99 41 24 3B 3A 89 36 31 30 |70. .l..A$;:.610|
00000520: 00 44 0D 76 02 A1 23 31 2C 41 24 3A 53 53 B2 53 |.D.v..#1,A$:SS.S|
00000530: 54 3A 41 B2 C3 28 41 24 29 3A 8B 41 A7 41 B2 C6 |T:A..(A$):.A.A..|
00000540: 28 41 24 29 00 68 0D 80 02 A1 23 31 2C 42 24 3A |(A$).h....#1,B$:|
00000550: 53 53 B2 53 54 3A 42 B2 C3 28 42 24 29 3A 8B 42 |SS.ST:B..(B$):.B|
00000560: A7 42 B2 C6 28 42 24 29 00 7C 0D 8A 02 4E B2 42 |.B..(B$).|...N.B|
00000570: AC 32 35 36 AA 41 3A 99 4E 3B 3A 8E 00 83 0D 94 |.256.A:.N;:.....|
00000580: 02 A0 31 00 89 0D 9E 02 80 00 A0 0D E8 03 8F 20 |..1............ |
00000590: 48 45 41 44 45 52 20 44 45 53 54 20 44 49 53 4B |HEADER DEST DISK|
000005A0: 00 D0 0D F2 03 99 22 11 49 4E 53 45 52 54 20 44 |......".INSERT D|
000005B0: 45 53 54 49 4E 41 54 49 4F 4E 20 44 49 53 4B 20 |ESTINATION DISK |
000005C0: 54 4F 20 42 45 20 46 4F 52 4D 41 54 54 45 44 22 |TO BE FORMATTED"|
000005D0: 00 0D 0E FC 03 85 22 11 11 44 49 53 4B 20 4E 41 |......"..DISK NA|
000005E0: 4D 45 1D 1D 1D 20 20 20 20 20 20 20 20 20 20 20 |ME... |
000005F0: 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D | ...........|
00000600: 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 44 4E 24 00 27 0E |........";DN$.'.|
00000610: 06 04 8B 44 4E 24 B2 22 22 A7 99 22 91 91 91 22 |...DN$."".."..."|
00000620: 3B 3A 89 31 30 32 30 00 3C 0E 10 04 8B C3 28 44 |;:.1020.<.....(D|
00000630: 4E 24 29 B1 31 36 A7 9C 3A 89 34 30 00 5F 0E 1A |N$).16..:.40._..|
00000640: 04 46 B2 30 3A 81 4A B2 31 A4 C3 28 44 4E 24 29 |.F.0:.J.1..(DN$)|
00000650: 3A 53 31 24 B2 CA 28 44 4E 24 2C 4A 2C 31 29 00 |:S1$..(DN$,J,1).|
00000660: 7A 0E 24 04 8B 53 31 24 B2 22 20 22 B0 53 31 24 |z.$..S1$." ".S1$|
00000670: B2 C7 28 33 34 29 A7 46 B2 31 00 92 0E 2E 04 82 |..(34).F.1......|
00000680: 4A 3A 8B 46 A7 99 22 91 91 91 22 3B 3A 89 31 30 |J:.F.."...";:.10|
00000690: 32 30 00 DB 0E 38 04 85 22 11 55 4E 49 51 55 45 |20...8..".UNIQUE|
000006A0: 20 44 49 53 4B 20 49 44 1D 1D 1D 20 20 20 20 20 | DISK ID... |
000006B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 9D | .|
000006C0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
000006D0: 9D 9D 9D 9D 9D 9D 22 3B 49 31 24 00 F4 0E 42 04 |......";I1$...B.|
000006E0: 8B 49 31 24 B2 22 22 A7 99 22 91 91 22 3B 3A 89 |.I1$."".."..";:.|
000006F0: 31 30 38 30 00 10 0F 4C 04 8B C3 28 49 31 24 29 |1080...L...(I1$)|
00000700: B3 B1 32 A7 99 22 91 91 22 3B 3A 89 31 30 38 30 |..2.."..";:.1080|
00000710: 00 29 0F 56 04 98 31 2C 22 4E 30 3A 22 AA 44 4E |.).V..1,"N0:".DN|
00000720: 24 AA 22 2C 22 AA 49 31 24 00 33 0F 60 04 8D 33 |$.",".I1$.3.`..3|
00000730: 30 30 30 00 47 0F 6A 04 8B 45 52 A7 99 45 52 24 |000.G.j..ER..ER$|
00000740: 3A 89 31 30 30 30 30 00 4D 0F 74 04 8E 00 73 0F |:.10000.M.t...s.|
00000750: D0 07 8F 20 52 45 41 44 20 42 4C 4F 43 4B 20 54 |... READ BLOCK T|
00000760: 31 2C 53 31 20 54 4F 20 42 55 46 46 45 52 20 23 |1,S1 TO BUFFER #|
00000770: 20 4E 55 00 7B 0F DA 07 43 B2 2E 00 91 0F E4 07 | NU.{...C.......|
00000780: 98 31 2C 22 55 31 22 3B 33 3B 30 3B 54 31 3B 53 |.1,"U1";3;0;T1;S|
00000790: 31 00 A5 0F EE 07 8D 33 30 30 30 3A 8B A8 45 52 |1......3000:..ER|
000007A0: A7 32 30 36 30 00 B9 0F F8 07 43 B2 43 AA 31 3A |.2060.....C.C.1:|
000007B0: 8B 43 B3 33 89 32 30 32 30 00 EF 0F 02 08 99 45 |.C.3.2020......E|
000007C0: 52 24 3A 81 4A B2 28 42 42 AA 4E 55 29 AC 32 35 |R$:.J.(BB.NU).25|
000007D0: 36 A4 28 42 42 AA 4E 55 29 AC 32 35 36 AA 32 35 |6.(BB.NU).256.25|
000007E0: 35 3A 97 4A 2C 2E 3A 82 4A 3A 89 32 31 30 30 00 |5:.J,.:.J:.2100.|
000007F0: 00 10 0C 08 98 31 2C 22 42 2D 50 22 3B 33 3B 30 |.....1,"B-P";3;0|
00000800: 00 2C 10 16 08 8B 4E 55 B3 B1 30 A7 99 22 20 20 |.,....NU..0.." |
00000810: 20 9D 9D 9D 22 3B C9 28 22 20 20 22 AA C4 28 4E | ...";.(" "..(N|
00000820: 55 29 2C 33 29 3B 22 9D 9D 9D 22 3B 00 51 10 20 |U),3);"...";.Q. |
00000830: 08 97 39 39 36 2C C2 28 33 29 3A 97 39 39 37 2C |..996,.(3):.997,|
00000840: C2 28 34 29 3A 97 34 2C 42 42 AA 4E 55 3A 9E 4D |.(4):.4,BB.NU:.M|
00000850: 41 00 69 10 25 08 97 33 2C C2 28 39 39 36 29 3A |A.i.%..3,.(996):|
00000860: 97 34 2C C2 28 39 39 37 29 00 87 10 2A 08 8B 53 |.4,.(997)...*..S|
00000870: 54 B3 B1 2E AF 53 54 B3 B1 36 34 A7 8D 33 30 30 |T....ST..64..300|
00000880: 30 3A 89 32 30 35 30 00 8D 10 34 08 8E 00 B6 10 |0:.2050...4.....|
00000890: 98 08 8F 20 57 52 49 54 45 20 42 4C 4F 43 4B 20 |... WRITE BLOCK |
000008A0: 54 31 2C 53 31 20 46 52 4F 4D 20 42 55 46 46 45 |T1,S1 FROM BUFFE|
000008B0: 52 20 23 20 4E 55 00 BE 10 A2 08 43 B2 2E 00 E0 |R # NU.....C....|
000008C0: 10 AC 08 98 31 2C 22 42 2D 41 22 3B 30 3B 54 31 |....1,"B-A";0;T1|
000008D0: 3B 53 31 3A 98 31 2C 22 42 2D 50 22 3B 33 3B 30 |;S1:.1,"B-P";3;0|
000008E0: 00 05 11 B6 08 99 22 20 20 20 9D 9D 9D 22 3B C9 |......" ...";.|
000008F0: 28 22 20 20 22 AA C4 28 4E 55 29 2C 33 29 3B 22 |(" "..(NU),3);"|
00000900: 9D 9D 9D 22 3B 00 2C 11 C0 08 97 39 39 36 2C C2 |...";.,....996,.|
00000910: 28 33 29 3A 97 39 39 37 2C C2 28 34 29 3A 97 34 |(3):.997,.(4):.4|
00000920: 2C 42 42 AA 4E 55 3A 9E 4D 41 AA 33 00 5F 11 CA |,BB.NU:.MA.3._..|
00000930: 08 8B 53 54 B3 B1 2E AF 53 54 B3 B1 36 34 A7 99 |..ST....ST..64..|
00000940: 22 12 49 45 45 45 20 57 52 49 54 45 20 45 52 52 |".IEEE WRITE ERR|
00000950: 4F 52 22 53 54 22 92 22 3A 89 31 30 30 30 30 00 |OR"ST".":.10000.|
00000960: 75 11 D4 08 98 31 2C 22 55 32 22 3B 33 3B 30 3B |u....1,"U2";3;0;|
00000970: 54 31 3B 53 31 00 89 11 DE 08 8D 33 30 30 30 3A |T1;S1......3000:|
00000980: 8B A8 45 52 A7 32 33 30 30 00 9D 11 E8 08 43 B2 |..ER.2300.....C.|
00000990: 43 AA 31 3A 8B 43 B3 33 A7 32 32 36 30 00 C9 11 |C.1:.C.3.2260...|
000009A0: F2 08 99 22 12 55 4E 52 45 43 4F 56 45 52 41 42 |...".UNRECOVERAB|
000009B0: 4C 45 20 57 52 49 54 45 20 45 52 52 4F 52 22 45 |LE WRITE ERROR"E|
000009C0: 52 24 3A 89 31 30 30 30 30 00 CF 11 FC 08 8E 00 |R$:.10000.......|
000009D0: E9 11 C4 09 8F 20 47 45 54 20 42 41 4D 20 54 4F |..... GET BAM TO|
000009E0: 20 42 4D 25 28 54 2C 53 29 00 F7 11 CE 09 54 53 | BM%(T,S).....TS|
000009F0: B2 31 3A 54 46 B2 2E 00 0E 12 D8 09 98 31 2C 22 |.1:TF........1,"|
00000A00: 49 30 22 3A 9F 33 2C 38 2C 33 2C 22 23 22 00 17 |I0":.3,8,3,"#"..|
00000A10: 12 E2 09 53 39 B2 30 00 38 12 EC 09 99 22 11 54 |...S9.0.8....".T|
00000A20: 52 41 43 4B 20 23 20 20 20 42 4C 4F 43 4B 53 20 |RACK # BLOCKS |
00000A30: 54 4F 20 58 46 45 52 22 00 58 12 F6 09 99 22 23 |TO XFER".X...."#|
00000A40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000A50: 23 23 23 23 23 23 23 22 00 7B 12 00 0A 4E 55 B2 |#######".{...NU.|
00000A60: 30 3A 54 31 B2 31 38 3A 53 31 B2 30 3A 43 30 24 |0:T1.18:S1.0:C0$|
00000A70: B2 C7 28 2E 29 3A 8D 32 30 30 30 00 84 12 0A 0A |..(.):.2000.....|
00000A80: 42 59 B2 34 00 96 12 14 0A 54 25 B2 28 42 59 AB |BY.4.....T%.(BY.|
00000A90: 34 29 AD 34 AA 31 00 A4 12 1E 0A 99 22 20 20 22 |4).4.1......" "|
00000AA0: 3B 54 25 3B 00 D8 12 28 0A 8B C2 28 42 41 AA 42 |;T%;...(...(BA.B|
00000AB0: 59 29 B2 2E A7 81 4A B2 2E A4 32 30 3A 42 4D 25 |Y)....J...20:BM%|
00000AC0: 28 54 25 2C 4A 29 B2 2E 3A 82 3A 42 59 B2 42 59 |(T%,J)..:.:BY.BY|
00000AD0: AA 34 3A 89 32 36 35 30 00 E0 12 32 0A 53 B2 30 |.4:.2650...2.S.0|
00000AE0: 00 1A 13 3C 0A 42 59 B2 42 59 AA 31 3A 41 30 B2 |...<.BY.BY.1:A0.|
00000AF0: C2 28 42 41 AA 42 59 29 3A 81 4A B2 2E A4 37 3A |.(BA.BY):.J...7:|
00000B00: 42 4D 25 28 54 25 2C 53 29 B2 41 30 AF 54 41 28 |BM%(T%,S).A0.TA(|
00000B10: 4A 29 3A 53 B2 53 AA 31 3A 82 00 29 13 46 0A 8B |J):S.S.1:..).F..|
00000B20: 53 B3 32 32 A7 32 36 32 30 00 35 13 50 0A 42 59 |S.22.2620.5.P.BY|
00000B30: B2 42 59 AA 31 00 4C 13 5A 0A 45 53 B2 32 31 3A |.BY.1.L.Z.ES.21:|
00000B40: 8B 54 25 B1 31 37 A7 45 53 B2 31 39 00 5D 13 64 |.T%.17.ES.19.].d|
00000B50: 0A 8B 54 25 B1 32 34 A7 45 53 B2 31 38 00 6E 13 |..T%.24.ES.18.n.|
00000B60: 6E 0A 8B 54 25 B1 33 30 A7 45 53 B2 31 37 00 8A |n..T%.30.ES.17..|
00000B70: 13 78 0A 81 4A B2 45 53 A4 32 34 3A 42 4D 25 28 |.x..J.ES.24:BM%(|
00000B80: 54 25 2C 4A 29 B2 AB 31 3A 82 00 B0 13 82 0A 53 |T%,J)..1:......S|
00000B90: 4D B2 2E 3A 81 4A B2 2E A4 32 30 3A 8B 42 4D 25 |M..:.J...20:.BM%|
00000BA0: 28 54 25 2C 4A 29 B2 2E A7 53 4D B2 53 4D AA 31 |(T%,J)...SM.SM.1|
00000BB0: 00 C8 13 8C 0A 82 3A 99 A3 31 32 29 3B 53 4D 3A |......:..12);SM:|
00000BC0: 53 39 B2 53 39 AA 53 4D 00 E6 13 96 0A 8B 53 4D |S9.S9.SM......SM|
00000BD0: B2 2E AF 54 53 B2 54 25 A7 54 53 B2 54 53 AA 31 |...TS.T%.TS.TS.1|
00000BE0: 3A 89 32 37 33 30 00 F7 13 A0 0A 8B 53 4D B3 B1 |:.2730......SM..|
00000BF0: 2E A7 54 46 B2 54 25 00 08 14 AA 0A 8B 42 59 B3 |..TF.T%......BY.|
00000C00: 31 34 33 A7 32 35 38 30 00 0F 14 B4 0A A0 33 00 |143.2580......3.|
00000C10: 30 14 BE 0A 99 22 53 54 41 52 54 20 3D 22 3B 54 |0...."START =";T|
00000C20: 53 3B 22 20 46 49 4E 49 53 48 20 3D 22 3B 54 46 |S;" FINISH =";TF|
00000C30: 00 57 14 C8 0A 99 22 11 41 20 54 4F 54 41 4C 20 |.W....".A TOTAL |
00000C40: 4F 46 22 3B 53 39 3B 22 42 4C 4F 43 4B 53 20 54 |OF";S9;"BLOCKS T|
00000C50: 4F 20 58 46 45 52 22 00 73 14 D2 0A 53 38 B2 39 |O XFER".s...S8.9|
00000C60: 30 AA 32 35 AA 28 2E 36 35 30 AA 2E 39 38 30 29 |0.25.(.650..980)|
00000C70: AC 53 39 00 A9 14 DC 0A 53 37 B2 B5 28 53 38 AD |.S9.....S7..(S8.|
00000C80: 36 30 29 3A 99 22 41 50 50 52 4F 58 22 3B 53 37 |60):."APPROX";S7|
00000C90: 22 3A 22 B5 28 53 38 AB 53 37 AC 36 30 29 3B 22 |":".(S8.S7.60);"|
00000CA0: 46 4F 52 20 43 4F 50 59 22 00 AF 14 E6 0A 8E 00 |FOR COPY".......|
00000CB0: CB 14 B8 0B 8F 20 52 45 41 44 20 45 52 52 20 43 |..... READ ERR C|
00000CC0: 48 20 54 4F 20 45 52 2C 45 52 24 00 02 15 C2 0B |H TO ER,ER$.....|
00000CD0: 84 31 2C 45 30 24 2C 45 31 24 2C 45 32 24 2C 45 |.1,E0$,E1$,E2$,E|
00000CE0: 33 24 3A 45 52 24 B2 45 30 24 AA 22 2C 22 AA 45 |3$:ER$.E0$.",".E|
00000CF0: 31 24 AA 22 2C 22 AA 45 32 24 AA 22 2C 22 AA 45 |1$.",".E2$.",".E|
00000D00: 33 24 00 1E 15 CC 0B 45 52 B2 C3 28 45 30 24 29 |3$.....ER..(E0$)|
00000D10: 3A 8B 45 52 A7 45 52 B2 C5 28 45 30 24 29 00 24 |:.ER.ER..(E0$).$|
00000D20: 15 D6 0B 8E 00 4F 15 80 0C 8F 20 49 4E 53 54 52 |.....O.... INSTR|
00000D30: 55 43 54 20 54 4F 20 53 57 41 50 20 54 4F 20 44 |UCT TO SWAP TO D|
00000D40: 49 53 4B 20 47 49 56 45 4E 20 49 4E 20 44 24 00 |ISK GIVEN IN D$.|
00000D50: 73 15 8A 0C 8B 44 24 B2 22 44 22 A7 53 31 24 B2 |s....D$."D".S1$.|
00000D60: 22 44 45 53 54 49 4E 41 54 49 4F 4E 22 3A 89 33 |"DESTINATION":.3|
00000D70: 32 33 30 00 84 15 94 0C 53 31 24 B2 22 53 4F 55 |230.....S1$."SOU|
00000D80: 52 43 45 22 00 AE 15 9E 0C 99 22 11 49 4E 53 45 |RCE"......".INSE|
00000D90: 52 54 20 22 3B 53 31 24 3B 22 20 44 49 53 4B 2C |RT ";S1$;" DISK,|
00000DA0: 20 50 52 45 53 53 12 53 50 41 43 45 92 22 00 C4 | PRESS.SPACE."..|
00000DB0: 15 A8 0C A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 |....A$:.A$.." ".|
00000DC0: 33 32 34 30 00 D4 15 B2 0C 9F 32 2C 38 2C 30 2C |3240......2,8,0,|
00000DD0: 22 24 30 22 00 EA 15 BC 0C 8D 33 30 30 30 3A 8B |"$0"......3000:.|
00000DE0: 45 52 B1 30 A7 31 30 30 30 30 00 00 16 C6 0C 81 |ER.0.10000......|
00000DF0: 4A B2 31 A4 32 36 3A A1 23 32 2C 41 24 3A 82 4A |J.1.26:.#2,A$:.J|
00000E00: 00 1C 16 D0 0C A1 23 32 2C 41 24 3A A1 23 32 2C |......#2,A$:.#2,|
00000E10: 42 24 3A 49 52 24 B2 41 24 AA 42 24 00 3F 16 DA |B$:IR$.A$.B$.?..|
00000E20: 0C A1 23 32 2C 41 24 3A A1 23 32 2C 41 24 3A A1 |..#2,A$:.#2,A$:.|
00000E30: 23 32 2C 42 24 3A 44 52 24 B2 41 24 AA 42 24 00 |#2,B$:DR$.A$.B$.|
00000E40: 48 16 E4 0C A0 32 3A 8E 00 57 16 10 27 8F 20 44 |H....2:..W..'. D|
00000E50: 52 4F 50 20 4F 55 54 00 75 16 1A 27 97 35 35 2C |ROP OUT.u..'.55,|
00000E60: C2 28 39 39 38 29 3A 97 35 36 2C C2 28 39 39 39 |.(998):.56,.(999|
00000E70: 29 3A 9C 3A 90 00 B6 16 98 3A 83 37 36 2C 36 36 |):.:.....:.76,66|
00000E80: 2C 33 2C 37 36 2C 39 31 2C 33 2C 31 36 32 2C 33 |,3,76,91,3,162,3|
00000E90: 2C 33 32 2C 31 39 38 2C 32 35 35 2C 31 36 30 2C |,32,198,255,160,|
00000EA0: 30 2C 31 33 32 2C 33 2C 33 32 2C 32 30 37 2C 32 |0,132,3,32,207,2|
00000EB0: 35 35 2C 31 34 35 00 FA 16 A2 3A 83 33 2C 31 36 |55,145....:.3,16|
00000EC0: 35 2C 31 34 34 2C 32 30 38 2C 33 2C 32 30 30 2C |5,144,208,3,200,|
00000ED0: 32 30 38 2C 32 34 34 2C 33 32 2C 32 30 34 2C 32 |208,244,32,204,2|
00000EE0: 35 35 2C 39 36 2C 31 36 32 2C 33 2C 33 32 2C 32 |55,96,162,3,32,2|
00000EF0: 30 31 2C 32 35 35 2C 31 36 30 00 40 17 AC 3A 83 |01,255,160.@..:.|
00000F00: 30 2C 31 33 32 2C 33 2C 31 37 37 2C 33 2C 33 32 |0,132,3,177,3,32|
00000F10: 2C 32 31 30 2C 32 35 35 2C 31 36 35 2C 31 34 34 |,210,255,165,144|
00000F20: 2C 32 30 38 2C 33 2C 32 30 30 2C 32 30 38 2C 32 |,208,3,200,208,2|
00000F30: 34 34 2C 33 32 2C 32 30 34 2C 32 35 35 2C 39 36 |44,32,204,255,96|
00000F40: 00 00 00 |... |
..2....I.828.883:.A:.I,A:.I:.".":.53280,
0:.53281,0.Z...."D=DSAVE"@BACK2",D0:?DS$
:CATALOGD0.R...BB.B(44).27:.995,BB......
998,B(55):.999,B(56):.55,0:.56,BB:....(.
BB.B(995).L.2.N.B(999).BB.1:BA.BB.256:MA
.828...<..BM%(35,24)...F..J.0.7:TA(J).2.
J:....P..".....BACKUP 1541.".<.Z..".'GOT
O10000' IF PROGRAM QUITS ABNORMALLY".Y.D
.."."N"BUFFERS AVAILABLE".E.N..1,8,15...
H.. *** MAIN PROGRAM ****...R.. 1000....
.D$."S":.3200:I2$.IR$.U....DR$.."2A"..".
ILLEGAL DOS 1.0 DISK.":.10000......I2$.I
1$..".SOURCE AND DESTINATION HAVE SAME I
D CODE.":.10000.!....2500.=...T.TS:S.0:N
U.1:T1.T:S1.S.T....1,"I0":.3,8,3,"#".L..
.."READING BLOCK #";..."..BM%(T1,S1).0..
2000:NU.NU.1:.NU.N.320...,.S1.S1.1:.S1.2
0.S1.0:T1.T1.1.G.6..T1.TF.1.290.P.@.."."
.W.J. 3...T.D$."D":.3200:.IR$..I1$..340.
..^..1,"I0":.3,8,3,"#".'.H.."WRITING BUF
FER #";.:.R.NU.1:T1.T:S1.S.D.|..BM%(T1,S
1).0..2200:NU.NU.1:.NU.N.410.....S1.S1.1
:.S1.20.S1.0:T1.T1.1......T1.TF.1.380...
..."."..... 3.B...S.S1.1:.S.20.S.0:T1.T1
.1.U...T.T1:.T.TF.500...B.D$."S":.3200:.
IR$..I2$.450...L.NU.1:T1.T:S1.S:.270.!..
.. FINISHED XFERS.(... 1.D....55,B(998):
.56,B(999):..]...."..BACKUP COMPLETE".M.
...1,8,0,"$0"...&..#1,A$:.A$..".".550...
0..A$;:.610...:..#1,A$:SS.ST:A.C(A$):.A.
A.F(A$)...D..#1,B$:SS.ST:B.C(B$):.B.B.F(
B$)...N..SS.660...X..A.1.B.1..630...B..#
1,A$:.A$.""..:.570. .L..A$;:.610.D.V..#1
,A$:SS.ST:A.C(A$):.A.A.F(A$).H....#1,B$:
SS.ST:B.C(B$):.B.B.F(B$).|...N.B.256.A:.
N;:...... 1....... .... HEADER DEST DISK
.P....".INSERT DESTINATION DISK TO BE FO
RMATTED"......"..DISK NAME...
...................";DN$.'....DN$."
".."...";:.1020.<....C(DN$).16..:.40._..
.F.0:.J.1.C(DN$):S1$.J(DN$,J,1).Z.$..S1$
." ".S1$.G(34).F.1......J:.F.."...";:.10
20...8..".UNIQUE DISK ID...
.......................";I1$...B.
.I1$."".."..";:.1080...L..C(I1$)..2.."..
";:.1080.).V..1,"N0:".DN$.",".I1$.3.`..3
000.G.J..ER..ER$:.10000.M.T...S.P.. READ
BLOCK T1,S1 TO BUFFER # NU.{.Z.C.......
.1,"U1";3;0;T1;S1......3000:..ER.2060...
..C.C.1:.C.3.2020......ER$:.J.(BB.NU).25
6.(BB.NU).256.255:.J,.:.J:.2100......1,"
B-P";3;0.,....NU..0.." ...";I(" ".D(N
U),3);"...";.Q. ..996,B(3):.997,B(4):.4,
BB.NU:.MA.I.%..3,B(996):.4,B(997)...*..S
T....ST..64..3000:.2050...4........ WRIT
E BLOCK T1,S1 FROM BUFFER # NU.....C....
....1,"B-A";0;T1;S1:.1,"B-P";3;0......"
...";I(" ".D(NU),3);"...";.,....996,B
(3):.997,B(4):.4,BB.NU:.MA.3._.J..ST....
ST..64..".IEEE WRITE ERROR"ST".":.10000.
U.T..1,"U2";3;0;T1;S1......3000:..ER.230
0.....C.C.1:.C.3.2260.I....".UNRECOVERAB
LE WRITE ERROR"ER$:.10000.O.......D.. GE
T BAM TO BM%(T,S)...N.TS.1:TF.....X..1,"
I0":.3,8,3,"#".....S9.0.8....".TRACK #
BLOCKS TO XFER".X...."#################
#######".{...NU.0:T1.18:S1.0:C0$.G(.):.2
000.....BY.4.....T%.(BY.4).4.1......" "
;T%;.X.(..B(BA.BY)....J...20:BM%(T%,J)..
:.:BY.BY.4:.2650...2.S.0...<.BY.BY.1:A0.
B(BA.BY):.J...7:BM%(T%,S).A0.TA(J):S.S.1
:..).F..S.22.2620.5.P.BY.BY.1.L.Z.ES.21:
.T%.17.ES.19.].D..T%.24.ES.18.N.N..T%.30
.ES.17...X..J.ES.24:BM%(T%,J)..1:......S
M..:.J...20:.BM%(T%,J)...SM.SM.1.H....:.
.12);SM:S9.S9.SM......SM...TS.T%.TS.TS.1
:.2730... ..SM....TF.T%......BY.143.2580
..... 3.0...."START =";TS;" FINISH =";TF
.W.H..".A TOTAL OF";S9;"BLOCKS TO XFER".
S.R.S8.90.25.(.650..980).S9.....S7..(S8.
60):."APPROX";S7":".(S8.S7.60);"FOR COPY
".......K.... READ ERR CH TO ER,ER$...B.
.1,E0$,E1$,E2$,E3$:ER$.E0$.",".E1$.",".E
2$.",".E3$...L.ER.C(E0$):.ER.ER.E(E0$).$
.V...O.... INSTRUCT TO SWAP TO DISK GIVE
N IN D$.S....D$."D".S1$."DESTINATION":.3
230.....S1$."SOURCE"......".INSERT ";S1$
;" DISK, PRESS.SPACE.".D....A$:.A$.." ".
3240.T....2,8,0,"$0"......3000:.ER.0.100
00...F..J.1.26:.#2,A$:.J...P..#2,A$:.#2,
B$:IR$.A$.B$.?.Z..#2,A$:.#2,A$:.#2,B$:DR
$.A$.B$.H... 2:..W..'. DROP OUT.U..'.55,
B(998):.56,B(999):.:.....:.76,66,3,76,91
,3,162,3,32,198,255,160,0,132,3,32,207,2
55,145....:.3,165,144,208,3,200,208,244,
32,204,255,96,162,3,32,201,255,160.@..:.
0,132,3,177,3,32,210,255,165,144,208,3,2
00,208,244,32,204,255,96...
> CLICK IMAGE PREVIEW FOR FULL MODAL