DISC COPY

00000000: 01 08 21 08 01 00 81 20  49 B2 38 32 38 20 A4 20  |..!.... I.828 . |
00000010: 38 38 33 3A 87 20 41 3A  97 20 49 2C 41 3A 82 20  |883:. A:. I,A:. |
00000020: 49 00 48 08 0A 00 8F 22  44 3D 44 53 41 56 45 22  |I.H...."D=DSAVE"|
00000030: 40 42 41 43 4B 32 22 2C  44 30 3A 3F 44 53 24 3A  |@BACK2",D0:?DS$:|
00000040: 43 41 54 41 4C 4F 47 30  00 61 08 14 00 42 42 B2  |CATALOG0.a...BB.|
00000050: C2 28 34 34 29 AA 32 37  3A 97 20 39 39 35 2C 42  |.(44).27:. 995,B|
00000060: 42 00 8D 08 1E 00 97 20  39 39 38 2C C2 28 35 35  |B...... 998,.(55|
00000070: 29 3A 97 20 39 39 39 2C  C2 28 35 36 29 3A 97 35  |):. 999,.(56):.5|
00000080: 35 2C 30 3A 97 20 35 36  2C 42 42 3A 9C 00 9B 08  |5,0:. 56,BB:....|
00000090: 28 00 42 42 B2 C2 28 39  39 35 29 00 BE 08 32 00  |(.BB..(995)...2.|
000000A0: 4E B2 C2 28 39 39 39 29  AB 42 42 AB 31 3A 42 41  |N..(999).BB.1:BA|
000000B0: B2 42 42 AC 32 35 36 3A  4D 41 B2 38 32 38 00 CF  |.BB.256:MA.828..|
000000C0: 08 3C 00 86 20 42 4D 25  28 33 35 2C 32 34 29 00  |.<.. BM%(35,24).|
000000D0: E9 08 46 00 81 20 4A B2  30 20 A4 20 37 3A 54 41  |..F.. J.0 . 7:TA|
000000E0: 28 4A 29 B2 32 AE 4A 3A  82 00 02 09 50 00 99 22  |(J).2.J:....P.."|
000000F0: 93 1D 1D 1D 12 42 41 43  4B 55 50 20 31 35 34 31  |.....BACKUP 1541|
00000100: 92 22 00 31 09 5A 00 99  22 11 27 47 4F 54 4F 31  |.".1.Z..".'GOTO1|
00000110: 30 30 30 27 20 49 46 20  50 52 4F 47 52 41 4D 20  |000' IF PROGRAM |
00000120: 51 55 49 54 53 20 41 42  4E 4F 52 4D 41 4C 4C 59  |QUITS ABNORMALLY|
00000130: 22 00 4E 09 64 00 99 22  11 22 4E 22 42 55 46 46  |".N.d.."."N"BUFF|
00000140: 45 52 53 20 41 56 41 49  4C 41 42 4C 45 22 00 5B  |ERS AVAILABLE".[|
00000150: 09 6E 00 9F 20 31 2C 38  2C 31 35 00 77 09 C8 00  |.n.. 1,8,15.w...|
00000160: 8F 20 2A 2A 2A 20 4D 41  49 4E 20 46 55 4E 43 54  |. *** MAIN FUNCT|
00000170: 49 4F 4E 20 2A 2A 2A 00  82 09 D2 00 8D 20 31 30  |ION ***...... 10|
00000180: 30 30 00 9C 09 DC 00 44  24 B2 22 53 22 3A 8D 20  |00.....D$."S":. |
00000190: 33 32 30 30 3A 49 32 24  B2 49 52 24 00 CB 09 E6  |3200:I2$.IR$....|
000001A0: 00 8B 44 52 24 B3 B1 22  32 41 22 A7 99 22 12 49  |..DR$.."2A"..".I|
000001B0: 4C 4C 49 47 41 4C 20 44  4F 53 20 31 2E 30 20 44  |LLIGAL DOS 1.0 D|
000001C0: 49 53 43 92 22 3A 89 31  30 30 30 00 10 0A F0 00  |ISC.":.1000.....|
000001D0: 8B 49 32 24 B2 49 31 24  A7 99 22 12 53 4F 55 52  |.I2$.I1$..".SOUR|
000001E0: 43 45 20 41 4E 44 20 44  45 53 54 49 4E 41 54 49  |CE AND DESTINATI|
000001F0: 4F 4E 20 48 41 56 45 20  54 48 45 20 53 41 4D 45  |ON HAVE THE SAME|
00000200: 20 49 44 20 43 4F 44 45  92 22 3A 89 31 30 30 30  | ID CODE.":.1000|
00000210: 00 1A 0A FA 00 8D 32 35  30 30 00 36 0A 04 01 54  |......2500.6...T|
00000220: B2 54 53 3A 53 B2 30 3A  4E 55 B2 31 3A 54 31 B2  |.TS:S.0:NU.1:T1.|
00000230: 54 3A 53 31 B2 53 00 4D  0A 0E 01 98 31 2C 22 49  |T:S1.S.M....1,"I|
00000240: 30 22 3A 9F 33 2C 38 2C  33 2C 22 23 22 00 65 0A  |0":.3,8,3,"#".e.|
00000250: 18 01 99 22 52 45 41 44  49 4E 47 20 42 4C 4F 43  |..."READING BLOC|
00000260: 4B 20 23 22 3B 00 8F 0A  22 01 8B 42 4D 25 28 54  |K #";..."..BM%(T|
00000270: 31 2C 53 31 29 B2 30 A7  8D 32 30 30 30 3A 4E 55  |1,S1).0..2000:NU|
00000280: B2 4E 55 AA 31 3A 8B 4E  55 B1 4E A7 33 32 30 00  |.NU.1:.NU.N.320.|
00000290: AF 0A 2C 01 53 31 B2 53  31 AA 31 3A 8B 53 31 B1  |..,.S1.S1.1:.S1.|
000002A0: 32 30 A7 53 31 B2 30 3A  54 31 B2 54 31 AA 31 00  |20.S1.0:T1.T1.1.|
000002B0: C1 0A 36 01 8B 54 31 B3  54 46 AA 31 A7 20 32 39  |..6..T1.TF.1. 29|
000002C0: 30 00 CA 0A 40 01 99 22  11 22 00 D2 0A 4A 01 A0  |0...@.."."...J..|
000002D0: 20 33 00 F7 0A 54 01 44  24 B2 22 44 22 3A 8D 20  | 3...T.D$."D":. |
000002E0: 33 32 30 30 3A 8B 20 49  52 24 B3 B1 49 31 24 20  |3200:. IR$..I1$ |
000002F0: A7 20 89 20 33 34 30 00  0F 0B 5E 01 98 31 2C 22  |. . 340...^..1,"|
00000300: 49 30 22 3A 9F 20 33 2C  38 2C 33 2C 22 23 22 00  |I0":. 3,8,3,"#".|
00000310: 29 0B 68 01 99 20 22 57  52 49 54 49 4E 47 20 42  |).h.. "WRITING B|
00000320: 55 46 46 45 52 20 23 22  3B 00 3C 0B 72 01 4E 55  |UFFER #";.<.r.NU|
00000330: B2 31 3A 54 31 B2 54 3A  53 31 B2 53 00 6D 0B 7C  |.1:T1.T:S1.S.m.||
00000340: 01 8B 20 42 4D 25 28 54  31 2C 53 31 29 B2 30 20  |.. BM%(T1,S1).0 |
00000350: A7 20 8D 20 32 32 30 30  3A 4E 55 B2 4E 55 AA 31  |. . 2200:NU.NU.1|
00000360: 3A 8B 20 4E 55 B1 4E 20  A7 20 34 31 30 00 90 0B  |:. NU.N . 410...|
00000370: 86 01 53 31 B2 53 31 AA  31 3A 8B 20 53 31 B1 32  |..S1.S1.1:. S1.2|
00000380: 30 20 A7 20 53 31 B2 30  3A 54 31 B2 54 31 AA 31  |0 . S1.0:T1.T1.1|
00000390: 00 A4 0B 90 01 8B 20 54  31 B3 54 46 AA 31 20 A7  |...... T1.TF.1 .|
000003A0: 20 33 38 30 00 AE 0B 9A  01 99 20 22 11 22 00 B6  | 380...... "."..|
000003B0: 0B A4 01 A0 20 33 00 D6  0B AE 01 53 B2 53 31 AA  |.... 3.....S.S1.|
000003C0: 31 3A 8B 20 53 B1 32 30  20 A7 20 53 B2 30 3A 54  |1:. S.20 . S.0:T|
000003D0: 31 B2 54 31 AA 31 00 EC  0B B8 01 54 B2 54 31 3A  |1.T1.1.....T.T1:|
000003E0: 8B 20 54 B1 54 46 20 A7  20 35 30 30 00 0F 0C C2  |. T.TF . 500....|
000003F0: 01 44 24 B2 22 53 22 3A  8D 20 33 32 30 30 3A 8B  |.D$."S":. 3200:.|
00000400: 20 49 52 24 B3 B1 49 32  24 20 A7 20 34 35 30 00  | IR$..I2$ . 450.|
00000410: 27 0C CC 01 4E 55 B2 31  3A 54 31 B2 54 3A 53 31  |'...NU.1:T1.T:S1|
00000420: B2 53 3A 89 32 37 30 00  44 0C F4 01 8F 20 2A 2A  |.S:.270.D.... **|
00000430: 2A 20 46 49 4E 49 53 48  45 44 20 58 46 45 52 53  |* FINISHED XFERS|
00000440: 20 2A 2A 2A 00 4C 0C FE  01 A0 20 31 00 6A 0C 08  | ***.L.... 1.j..|
00000450: 02 97 20 35 35 2C C2 28  39 39 38 29 3A 97 20 35  |.. 55,.(998):. 5|
00000460: 36 2C C2 28 39 39 39 29  3A 9C 00 84 0C 12 02 99  |6,.(999):.......|
00000470: 20 22 11 11 42 41 43 4B  55 50 20 43 4F 4D 50 4C  | "..BACKUP COMPL|
00000480: 45 54 45 22 00 95 0C 1C  02 9F 20 31 2C 38 2C 30  |ETE"...... 1,8,0|
00000490: 2C 22 24 30 22 00 B0 0C  26 02 A1 23 31 2C 41 24  |,"$0"...&..#1,A$|
000004A0: 3A 8B 20 41 24 B3 B1 22  12 22 20 A7 20 35 35 30  |:. A$.."." . 550|
000004B0: 00 BF 0C 30 02 99 20 41  24 3B 3A 89 36 31 30 00  |...0.. A$;:.610.|
000004C0: E6 0C 3A 02 A1 23 31 2C  41 24 3A 53 53 B2 53 54  |..:..#1,A$:SS.ST|
000004D0: 3A 41 B2 C3 28 41 24 29  3A 8B 20 41 20 A7 20 41  |:A..(A$):. A . A|
000004E0: B2 C6 28 41 24 29 00 0D  0D 44 02 A1 23 31 2C 42  |..(A$)...D..#1,B|
000004F0: 24 3A 53 53 B2 53 54 3A  42 B2 C3 28 42 24 29 3A  |$:SS.ST:B..(B$):|
00000500: 8B 20 42 20 A7 20 41 B2  C6 28 42 24 29 00 1C 0D  |. B . A..(B$)...|
00000510: 4E 02 8B 20 53 53 20 A7  20 36 36 30 00 34 0D 58  |N.. SS . 660.4.X|
00000520: 02 8B 20 41 B2 31 20 AF  20 42 B2 31 20 A7 20 8D  |.. A.1 . B.1 . .|
00000530: 20 36 33 30 00 50 0D 62  02 A1 23 31 2C 41 24 3A  | 630.P.b..#1,A$:|
00000540: 8B 20 41 24 B2 22 22 20  A7 20 99 3A 89 35 37 30  |. A$."" . .:.570|
00000550: 00 5F 0D 6C 02 99 20 41  24 3B 3A 89 36 31 30 00  |._.l.. A$;:.610.|
00000560: 86 0D 76 02 A1 23 31 2C  41 24 3A 53 53 B2 53 54  |..v..#1,A$:SS.ST|
00000570: 3A 41 B2 C3 28 41 24 29  3A 8B 20 41 20 A7 20 41  |:A..(A$):. A . A|
00000580: B2 C6 28 41 24 29 00 AD  0D 80 02 A1 23 31 2C 42  |..(A$)......#1,B|
00000590: 24 3A 53 53 B2 53 54 3A  42 B2 C3 28 42 24 29 3A  |$:SS.ST:B..(B$):|
000005A0: 8B 20 42 20 A7 20 42 B2  C6 28 42 24 29 00 C2 0D  |. B . B..(B$)...|
000005B0: 8A 02 4E B2 42 AC 32 35  36 AA 41 3A 99 20 4E 3B  |..N.B.256.A:. N;|
000005C0: 3A 8E 00 CA 0D 94 02 A0  20 31 00 D0 0D 9E 02 80  |:....... 1......|
000005D0: 00 EE 0D E8 03 8F 20 2A  2A 2A 48 45 41 44 45 52  |...... ***HEADER|
000005E0: 20 44 45 53 54 20 44 49  53 43 20 2A 2A 2A 00 1E  | DEST DISC ***..|
000005F0: 0E F2 03 99 22 11 49 4E  53 45 52 54 20 44 45 53  |....".INSERT DES|
00000600: 54 49 4E 41 54 49 4F 4E  20 44 49 53 43 20 54 4F  |TINATION DISC TO|
00000610: 20 42 45 20 46 4F 52 4D  41 54 54 45 44 22 00 4B  | BE FORMATTED".K|
00000620: 0E FC 03 85 22 11 11 44  49 53 43 20 4E 41 4D 45  |...."..DISC NAME|
00000630: 1D 1D 1D 9D 9D 9D 9D 9D  9D 9D 9D 9D 9D 9D 9D 9D  |................|
00000640: 9D 9D 9D 9D 9D 9D 22 3B  44 4E 24 00 6A 0E 06 04  |......";DN$.j...|
00000650: 8B 20 44 4E 24 B2 22 20  22 20 A7 20 99 22 91 91  |. DN$." " . ."..|
00000660: 91 22 3B 3A 89 20 31 30  32 30 00 83 0E 10 04 8B  |.";:. 1020......|
00000670: 20 C3 28 44 4E 24 29 B1  31 36 20 A7 20 9C 3A 89  | .(DN$).16 . .:.|
00000680: 20 34 30 00 A9 0E 1A 04  46 B2 30 3A 81 20 4A B2  | 40.....F.0:. J.|
00000690: 31 20 A4 20 C3 28 44 4E  24 29 3A 53 31 24 B2 CA  |1 . .(DN$):S1$..|
000006A0: 28 44 4E 24 2C 4A 2C 31  29 00 C9 0E 24 04 8B 20  |(DN$,J,1)...$.. |
000006B0: 53 31 24 B2 22 20 22 20  B0 20 53 31 24 B2 C7 28  |S1$." " . S1$..(|
000006C0: 33 34 29 20 A7 20 46 B2  31 00 E6 0E 2E 04 82 20  |34) . F.1...... |
000006D0: 4A 3A 8B 20 46 20 A7 20  99 22 91 91 91 22 3B 3A  |J:. F . ."...";:|
000006E0: 89 20 31 30 32 30 00 1B  0F 38 04 85 22 11 55 4E  |. 1020...8..".UN|
000006F0: 49 51 55 45 20 44 49 53  43 20 49 44 1D 1D 1D 9D  |IQUE DISC ID....|
00000700: 9D 9D 9D 9D 9D 9D 9D 9D  9D 9D 9D 9D 9D 9D 9D 9D  |................|
00000710: 9D 9D 9D 9D 9D 9D 22 3B  49 31 24 00 3A 0F 42 04  |......";I1$.:.B.|
00000720: 8B 20 49 31 24 B2 22 20  22 20 A7 20 99 20 22 91  |. I1$." " . . ".|
00000730: 91 22 3B 3A 89 20 31 30  38 30 00 59 0F 4C 04 8B  |.";:. 1080.Y.L..|
00000740: 20 C3 28 49 31 24 29 B3  B1 32 20 A7 20 99 22 91  | .(I1$)..2 . .".|
00000750: 91 22 3B 3A 89 31 30 38  30 00 72 0F 56 04 98 31  |.";:.1080.r.V..1|
00000760: 2C 22 4E 30 3A 22 AA 44  4E 24 AA 22 2C 22 AA 49  |,"N0:".DN$.",".I|
00000770: 31 24 00 7D 0F 60 04 8D  20 33 30 30 30 00 95 0F  |1$.}.`.. 3000...|
00000780: 6A 04 8B 20 45 52 20 A7  20 99 20 45 52 24 3A 89  |j.. ER . . ER$:.|
00000790: 31 30 30 30 30 00 9B 0F  74 04 8E 00 C9 0F D0 07  |10000...t.......|
000007A0: 8F 20 2A 2A 2A 20 52 45  41 44 20 42 4C 4F 43 4B  |. *** READ BLOCK|
000007B0: 20 54 31 2C 53 31 20 54  4F 20 42 55 46 46 45 52  | T1,S1 TO BUFFER|
000007C0: 20 23 20 4E 55 20 2A 2A  2A 00 D1 0F DA 07 43 B2  | # NU ***.....C.|
000007D0: 2E 00 E7 0F E4 07 98 31  2C 22 55 31 22 3B 33 3B  |.......1,"U1";3;|
000007E0: 30 3B 54 31 3B 53 31 00  00 10 EE 07 8D 20 33 30  |0;T1;S1...... 30|
000007F0: 30 30 3A 8B 20 A8 20 45  52 20 A7 20 32 30 36 30  |00:. . ER . 2060|
00000800: 00 17 10 F8 07 43 B2 43  AA 31 3A 8B 20 43 B3 33  |.....C.C.1:. C.3|
00000810: 20 89 20 32 30 32 30 00  51 10 02 08 99 20 45 52  | . 2020.Q.... ER|
00000820: 24 3A 81 20 4A B2 28 42  42 AA 4E 55 29 AC 32 35  |$:. J.(BB.NU).25|
00000830: 36 20 A4 20 28 42 42 AA  4E 55 29 AC 32 35 36 AA  |6 . (BB.NU).256.|
00000840: 32 35 35 3A 97 4A 2C 2E  3A 82 4A 3A 89 32 31 30  |255:.J,.:.J:.210|
00000850: 30 00 62 10 0C 08 98 31  2C 22 42 2D 50 22 3B 33  |0.b....1,"B-P";3|
00000860: 3B 30 00 91 10 16 08 8B  20 4E 55 B3 B1 30 20 A7  |;0...... NU..0 .|
00000870: 20 99 22 20 20 20 9D 9D  9D 22 3B C9 28 22 20 20  | ."   ...";.("  |
00000880: 22 AA C4 28 4E 55 29 2C  33 29 3B 22 9D 9D 9D 22  |"..(NU),3);"..."|
00000890: 3B 00 B7 10 20 08 97 39  39 36 2C C2 28 33 29 3A  |;... ..996,.(3):|
000008A0: 97 39 39 37 2C C2 28 34  29 3A 97 34 2C 42 42 AA  |.997,.(4):.4,BB.|
000008B0: 4E 55 3A 9E 20 4D 41 00  CF 10 25 08 97 33 2C C2  |NU:. MA...%..3,.|
000008C0: 28 39 39 36 29 3A 97 34  2C C2 28 39 39 37 29 00  |(996):.4,.(997).|
000008D0: F4 10 2A 08 8B 20 53 54  B3 B1 2E 20 AF 20 53 54  |..*.. ST... . ST|
000008E0: B3 B1 36 34 20 A7 20 8D  20 33 30 30 30 3A 89 20  |..64 . . 3000:. |
000008F0: 32 30 35 30 00 FA 10 34  08 8E 00 13 11 98 08 8F  |2050...4........|
00000900: 20 2A 2A 2A 57 52 49 54  45 20 42 4C 4F 43 4B 20  | ***WRITE BLOCK |
00000910: 2A 2A 2A 00 1B 11 A2 08  43 B2 2E 00 3D 11 AC 08  |***.....C...=...|
00000920: 98 31 2C 22 42 2D 41 22  3B 30 3B 54 31 3B 53 31  |.1,"B-A";0;T1;S1|
00000930: 3A 98 31 2C 22 42 2D 50  22 3B 33 3B 30 00 62 11  |:.1,"B-P";3;0.b.|
00000940: B6 08 99 22 20 20 20 9D  9D 9D 22 3B C9 28 22 20  |..."   ...";.(" |
00000950: 20 22 AA C4 28 4E 55 29  2C 33 29 3B 22 9D 9D 9D  | "..(NU),3);"...|
00000960: 22 3B 00 8B 11 C0 08 97  20 39 39 36 2C C2 28 33  |";...... 996,.(3|
00000970: 29 3A 97 39 39 37 2C C2  28 34 29 3A 97 34 2C 42  |):.997,.(4):.4,B|
00000980: 42 AA 4E 55 3A 9E 20 4D  41 AA 33 00 A3 11 C5 08  |B.NU:. MA.3.....|
00000990: 97 33 2C C2 28 39 39 36  29 3A 97 34 2C C2 28 39  |.3,.(996):.4,.(9|
000009A0: 39 37 29 00 DB 11 CA 08  8B 20 53 54 B3 B1 2E 20  |97)...... ST... |
000009B0: AF 20 53 54 B3 B1 36 34  20 A7 20 99 22 12 49 45  |. ST..64 . .".IE|
000009C0: 45 20 57 52 49 54 45 20  45 52 52 4F 52 22 53 54  |E WRITE ERROR"ST|
000009D0: 22 92 22 3A 89 20 31 30  30 30 30 00 F1 11 D4 08  |".":. 10000.....|
000009E0: 98 31 2C 22 55 32 22 3B  33 3B 30 3B 54 31 3B 53  |.1,"U2";3;0;T1;S|
000009F0: 31 00 0A 12 DE 08 8D 20  33 30 30 30 3A 8B 20 A8  |1...... 3000:. .|
00000A00: 20 45 52 20 A7 20 32 33  30 30 00 20 12 E8 08 43  | ER . 2300. ...C|
00000A10: B2 43 AA 31 3A 8B 43 B3  33 20 A7 20 32 32 36 30  |.C.1:.C.3 . 2260|
00000A20: 00 4D 12 F2 08 99 20 22  12 55 4E 52 45 43 4F 56  |.M.... ".UNRECOV|
00000A30: 45 52 41 42 4C 45 20 57  52 49 54 45 20 45 52 52  |ERABLE WRITE ERR|
00000A40: 4F 52 22 45 52 24 3A 89  31 30 30 30 30 00 53 12  |OR"ER$:.10000.S.|
00000A50: FC 08 8E 00 75 12 C4 09  8F 20 2A 2A 2A 20 47 45  |....u.... *** GE|
00000A60: 54 20 42 41 4D 20 54 4F  20 42 4D 25 28 54 2C 53  |T BAM TO BM%(T,S|
00000A70: 29 20 2A 2A 2A 00 83 12  CE 09 54 53 B2 31 3A 54  |) ***.....TS.1:T|
00000A80: 46 B2 2E 00 9B 12 D8 09  98 31 2C 22 49 30 22 3A  |F........1,"I0":|
00000A90: 9F 20 33 2C 38 2C 33 2C  22 23 22 00 A4 12 E2 09  |. 3,8,3,"#".....|
00000AA0: 53 39 B2 30 00 C5 12 EC  09 99 22 11 54 52 41 43  |S9.0......".TRAC|
00000AB0: 4B 20 23 20 20 20 42 4C  4F 43 4B 53 20 54 4F 20  |K #   BLOCKS TO |
00000AC0: 58 46 45 52 22 00 E5 12  F6 09 99 22 23 23 23 23  |XFER"......"####|
00000AD0: 23 23 23 23 23 23 23 23  23 23 23 23 23 23 23 23  |################|
00000AE0: 23 23 23 23 22 00 08 13  00 0A 4E 55 B2 30 3A 54  |####".....NU.0:T|
00000AF0: 31 B2 31 38 3A 53 31 B2  30 3A 43 30 24 B2 C7 28  |1.18:S1.0:C0$..(|
00000B00: 2E 29 3A 8D 32 30 30 30  00 11 13 0A 0A 42 59 B2  |.):.2000.....BY.|
00000B10: 34 00 23 13 14 0A 54 25  B2 28 42 59 AB 34 29 AD  |4.#...T%.(BY.4).|
00000B20: 34 AA 31 00 32 13 1E 0A  99 22 20 20 20 22 3B 54  |4.1.2...."   ";T|
00000B30: 25 3B 00 6D 13 28 0A 8B  20 C2 28 42 41 AA 42 59  |%;.m.(.. .(BA.BY|
00000B40: 29 B2 2E 20 A7 20 81 20  4A B2 2E 20 A4 20 32 30  |).. . . J.. . 20|
00000B50: 3A 42 4D 25 28 54 25 2C  4A 29 B2 2E 3A 82 3A 42  |:BM%(T%,J)..:.:B|
00000B60: 59 B2 42 59 AA 34 3A 89  20 32 36 35 30 00 75 13  |Y.BY.4:. 2650.u.|
00000B70: 32 0A 53 B2 30 00 B4 13  3C 0A 42 59 B2 42 59 AA  |2.S.0...<.BY.BY.|
00000B80: 31 3A 41 30 B2 C2 28 42  41 AA 42 59 29 3A 81 20  |1:A0..(BA.BY):. |
00000B90: 4A B2 2E 20 A4 20 37 3A  42 4D 25 28 54 25 2C 53  |J.. . 7:BM%(T%,S|
00000BA0: 29 B2 41 30 20 AF 20 54  41 28 4A 29 3A 53 B2 53  |).A0 . TA(J):S.S|
00000BB0: AA 31 3A 82 00 C6 13 46  0A 8B 20 53 B3 32 32 20  |.1:....F.. S.22 |
00000BC0: A7 20 32 36 32 30 00 D2  13 50 0A 42 59 B2 42 59  |. 2620...P.BY.BY|
00000BD0: AA 31 00 EC 13 5A 0A 45  53 B2 32 31 3A 8B 20 54  |.1...Z.ES.21:. T|
00000BE0: 25 B1 31 37 20 A7 20 45  53 B2 31 39 00 00 14 64  |%.17 . ES.19...d|
00000BF0: 0A 8B 20 54 25 B1 32 34  20 A7 20 45 53 B2 31 38  |.. T%.24 . ES.18|
00000C00: 00 14 14 6E 0A 8B 20 54  25 B1 33 30 20 A7 20 45  |...n.. T%.30 . E|
00000C10: 53 B2 31 37 00 33 14 78  0A 81 20 4A B2 45 53 20  |S.17.3.x.. J.ES |
00000C20: A4 20 32 34 3A 42 4D 25  28 54 25 2C 4A 29 B2 AB  |. 24:BM%(T%,J)..|
00000C30: 31 3A 82 00 5F 14 82 0A  53 4D B2 2E 3A 81 20 4A  |1:.._...SM..:. J|
00000C40: B2 2E 20 A4 20 32 30 3A  8B 20 42 4D 25 28 54 25  |.. . 20:. BM%(T%|
00000C50: 2C 4A 29 B2 2E 20 A7 20  53 4D B2 53 4D AA 31 00  |,J).. . SM.SM.1.|
00000C60: 78 14 8C 0A 82 3A 99 20  A3 31 32 29 3B 53 4D 3A  |x....:. .12);SM:|
00000C70: 53 39 B2 53 39 AA 53 4D  00 9C 14 96 0A 8B 20 53  |S9.S9.SM...... S|
00000C80: 4D B2 2E 20 AF 20 54 53  B2 54 25 20 A7 20 54 53  |M.. . TS.T% . TS|
00000C90: B2 54 53 AA 31 3A 89 20  32 37 33 30 00 B0 14 A0  |.TS.1:. 2730....|
00000CA0: 0A 8B 20 53 4D B3 B1 2E  20 A7 20 54 46 B2 54 25  |.. SM... . TF.T%|
00000CB0: 00 C4 14 AA 0A 8B 20 42  59 B3 31 34 33 20 A7 20  |...... BY.143 . |
00000CC0: 32 35 38 30 00 CC 14 B4  0A A0 20 33 00 EE 14 BE  |2580...... 3....|
00000CD0: 0A 99 20 22 53 54 41 52  54 20 3D 22 3B 54 53 3B  |.. "START =";TS;|
00000CE0: 22 20 46 49 4E 49 53 48  20 3D 22 3B 54 46 00 16  |" FINISH =";TF..|
00000CF0: 15 C8 0A 99 20 22 11 41  20 54 4F 54 41 4C 20 4F  |.... ".A TOTAL O|
00000D00: 46 22 3B 53 39 3B 22 42  4C 4F 43 4B 53 20 54 4F  |F";S9;"BLOCKS TO|
00000D10: 20 58 46 45 52 22 00 32  15 D2 0A 53 38 B2 39 30  | XFER".2...S8.90|
00000D20: AA 32 35 AA 28 2E 36 35  30 AA 2E 39 38 30 29 AC  |.25.(.650..980).|
00000D30: 53 39 00 68 15 DC 0A 53  37 B2 B5 28 53 38 AD 36  |S9.h...S7..(S8.6|
00000D40: 30 29 3A 99 22 41 50 50  52 4F 58 22 3B 53 37 22  |0):."APPROX";S7"|
00000D50: 3A 22 B5 28 53 38 AB 53  37 AC 36 30 29 3B 22 46  |:".(S8.S7.60);"F|
00000D60: 4F 52 20 43 4F 50 59 22  00 6E 15 E6 0A 8E 00 91  |OR COPY".n......|
00000D70: 15 B8 0B 8F 20 2A 2A 2A  20 52 45 41 44 20 45 52  |.... *** READ ER|
00000D80: 52 20 43 48 20 54 4F 20  45 52 20 45 52 24 2A 2A  |R CH TO ER ER$**|
00000D90: 2A 00 C8 15 C2 0B 84 31  2C 45 30 24 2C 45 31 24  |*......1,E0$,E1$|
00000DA0: 2C 45 32 24 2C 45 33 24  3A 45 52 24 B2 45 30 24  |,E2$,E3$:ER$.E0$|
00000DB0: AA 22 2C 22 AA 45 31 24  AA 22 2C 22 AA 45 32 24  |.",".E1$.",".E2$|
00000DC0: AA 22 2C 22 AA 45 33 24  00 E7 15 CC 0B 45 52 B2  |.",".E3$.....ER.|
00000DD0: C3 28 45 30 24 29 3A 8B  20 45 52 20 A7 20 45 52  |.(E0$):. ER . ER|
00000DE0: B2 C5 28 45 30 24 29 00  ED 15 D6 0B 8E 00 1C 16  |..(E0$).........|
00000DF0: 80 0C 8F 20 2A 2A 2A 20  49 4E 53 54 52 55 43 54  |... *** INSTRUCT|
00000E00: 20 54 4F 20 53 57 41 50  20 44 49 53 4B 20 47 49  | TO SWAP DISK GI|
00000E10: 56 45 4E 20 49 4E 20 44  24 2A 2A 2A 00 44 16 8A  |VEN IN D$***.D..|
00000E20: 0C 8B 20 44 24 B2 22 44  22 20 A7 20 53 31 24 B2  |.. D$."D" . S1$.|
00000E30: 22 44 45 53 54 49 4E 41  54 49 4F 4E 22 3A 89 20  |"DESTINATION":. |
00000E40: 33 32 33 30 00 55 16 94  0C 53 31 24 B2 22 53 4F  |3230.U...S1$."SO|
00000E50: 55 52 43 45 22 00 81 16  9E 0C 99 20 22 11 49 4E  |URCE"...... ".IN|
00000E60: 53 45 52 54 20 22 3B 53  31 24 3B 22 20 44 49 53  |SERT ";S1$;" DIS|
00000E70: 43 2C 20 50 52 45 53 53  20 12 53 50 41 43 45 92  |C, PRESS .SPACE.|
00000E80: 22 00 9B 16 A8 0C A1 20  41 24 3A 8B 20 41 24 B3  |"...... A$:. A$.|
00000E90: B1 22 20 22 20 A7 20 33  32 34 30 00 AC 16 B2 0C  |." " . 3240.....|
00000EA0: 9F 20 32 2C 38 2C 30 2C  22 24 30 22 00 C6 16 BC  |. 2,8,0,"$0"....|
00000EB0: 0C 8D 20 33 30 30 30 3A  8B 20 45 52 B1 30 20 A7  |.. 3000:. ER.0 .|
00000EC0: 20 31 30 30 30 30 00 E0  16 C6 0C 81 20 4A B2 31  | 10000...... J.1|
00000ED0: 20 A4 20 32 36 3A A1 23  32 2C 41 24 3A 82 20 4A  | . 26:.#2,A$:. J|
00000EE0: 00 FC 16 D0 0C A1 23 32  2C 41 24 3A A1 23 32 2C  |......#2,A$:.#2,|
00000EF0: 42 24 3A 49 52 24 B2 41  24 AA 42 24 00 1F 17 DA  |B$:IR$.A$.B$....|
00000F00: 0C A1 23 32 2C 41 34 3A  A1 23 32 2C 41 24 3A A1  |..#2,A4:.#2,A$:.|
00000F10: 23 32 2C 42 24 3A 44 52  24 B2 41 24 AA 42 24 00  |#2,B$:DR$.A$.B$.|
00000F20: 29 17 E4 0C A0 20 32 3A  8E 00 40 17 10 27 8F 20  |).... 2:..@..'. |
00000F30: 2A 2A 2A 20 44 52 4F 50  20 4F 55 54 20 2A 2A 2A  |*** DROP OUT ***|
00000F40: 00 5F 17 1A 27 97 35 35  2C 28 C2 28 39 39 38 29  |._..'.55,(.(998)|
00000F50: 3A 97 35 36 28 C2 28 39  39 39 29 3A 9C 3A 90 00  |:.56(.(999):.:..|
00000F60: A1 17 98 3A 83 20 37 36  2C 36 36 2C 33 2C 37 36  |...:. 76,66,3,76|
00000F70: 2C 39 31 2C 33 2C 31 36  32 2C 33 2C 33 32 2C 31  |,91,3,162,3,32,1|
00000F80: 39 38 2C 32 35 35 2C 31  36 30 2C 30 2C 31 33 32  |98,255,160,0,132|
00000F90: 2C 33 2C 33 32 2C 32 30  37 2C 32 35 35 2C 31 34  |,3,32,207,255,14|
00000FA0: 35 00 E6 17 A2 3A 83 20  33 2C 31 36 35 2C 31 34  |5....:. 3,165,14|
00000FB0: 34 2C 32 30 38 2C 33 2C  32 30 30 2C 32 30 38 2C  |4,208,3,200,208,|
00000FC0: 32 34 34 2C 33 32 2C 32  30 34 2C 32 35 35 2C 39  |244,32,204,255,9|
00000FD0: 36 2C 31 36 32 2C 33 2C  33 32 2C 32 30 31 2C 32  |6,162,3,32,201,2|
00000FE0: 35 35 2C 31 36 30 00 2D  18 AC 3A 83 20 30 2C 31  |55,160.-..:. 0,1|
00000FF0: 33 32 2C 33 2C 31 37 37  2C 33 2C 33 32 2C 32 31  |32,3,177,3,32,21|
00001000: 30 2C 32 35 35 2C 31 36  35 2C 31 34 34 2C 32 30  |0,255,165,144,20|
00001010: 38 2C 33 2C 32 30 30 2C  32 30 38 2C 32 34 34 2C  |8,3,200,208,244,|
00001020: 33 32 2C 32 30 34 2C 32  35 35 2C 39 36 00 00 00  |32,204,255,96...|

..!.... I.828 . 883:. A:. I,A:. I.H...."
D=DSAVE"@BACK2",D0:?DS$:CATALOG0.A...BB.
B(44).27:. 995,BB...... 998,B(55):. 999,
B(56):.55,0:. 56,BB:....(.BB.B(995)...2.
N.B(999).BB.1:BA.BB.256:MA.828.O.<.. BM%
(35,24)...F.. J.0 . 7:TA(J).2.J:....P.."
.....BACKUP 1541.".1.Z..".'GOTO1000' IF 
PROGRAM QUITS ABNORMALLY".N.D.."."N"BUFF
ERS AVAILABLE".[.N.. 1,8,15.W.H.. *** MA
IN FUNCTION ***...R.. 1000.....D$."S":. 
3200:I2$.IR$.K....DR$.."2A"..".ILLIGAL D
OS 1.0 DISC.":.1000......I2$.I1$..".SOUR
CE AND DESTINATION HAVE THE SAME ID CODE
.":.1000......2500.6...T.TS:S.0:NU.1:T1.
T:S1.S.M....1,"I0":.3,8,3,"#".E...."READ
ING BLOCK #";..."..BM%(T1,S1).0..2000:NU
.NU.1:.NU.N.320...,.S1.S1.1:.S1.20.S1.0:
T1.T1.1.A.6..T1.TF.1. 290.J.@..".".R.J. 
 3...T.D$."D":. 3200:. IR$..I1$ . . 340.
..^..1,"I0":. 3,8,3,"#".).H.. "WRITING B
UFFER #";.<.R.NU.1:T1.T:S1.S.M.|.. BM%(T
1,S1).0 . . 2200:NU.NU.1:. NU.N . 410...
..S1.S1.1:. S1.20 . S1.0:T1.T1.1...... T
1.TF.1 . 380...... ".".....  3.V...S.S1.
1:. S.20 . S.0:T1.T1.1.....T.T1:. T.TF .
 500...B.D$."S":. 3200:. IR$..I2$ . 450.
'.L.NU.1:T1.T:S1.S:.270.D.... *** FINISH
ED XFERS ***.L...  1.J.... 55,B(998):. 5
6,B(999):....... "..BACKUP COMPLETE"....
.. 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 . A.F(B$)...N.. SS . 660.4.X.. A.1 .
 B.1 . . 630.P.B..#1,A$:. A$."" . .:.570
._.L.. A$;:.610...V..#1,A$:SS.ST:A.C(A$)
:. A . A.F(A$)......#1,B$:SS.ST:B.C(B$):
. B . B.F(B$).B...N.B.256.A:. N;:..J... 
 1.P.......... ***HEADER DEST DISC ***..
....".INSERT DESTINATION DISC TO BE FORM
ATTED".K...."..DISC NAME................
......";DN$.J.... DN$." " . ."...";:. 10
20...... C(DN$).16 . .:. 40.....F.0:. J.
1 . C(DN$):S1$.J(DN$,J,1).I.$.. S1$." " 
. S1$.G(34) . F.1...... J:. F . ."...";:
. 1020...8..".UNIQUE DISC ID............
..............";I1$.:.B.. I1$." " . . ".
.";:. 1080.Y.L.. C(I1$)..2 . ."..";:.108
0.R.V..1,"N0:".DN$.",".I1$.}.`.. 3000...
J.. ER . . ER$:.10000...T...I.P.. *** RE
AD BLOCK T1,S1 TO BUFFER # NU ***.Q.Z.C.
.......1,"U1";3;0;T1;S1...... 3000:. . E
R . 2060.....C.C.1:. C.3 . 2020.Q.... ER
$:. J.(BB.NU).256 . (BB.NU).256.255:.J,.
:.J:.2100.B....1,"B-P";3;0...... NU..0 .
 ."   ...";I("  ".D(NU),3);"...";... ..9
96,B(3):.997,B(4):.4,BB.NU:. MA.O.%..3,B
(996):.4,B(997)...*.. ST... . ST..64 . .
 3000:. 2050...4........ ***WRITE BLOCK 
***.....C...=....1,"B-A";0;T1;S1:.1,"B-P
";3;0.B...."   ...";I("  ".D(NU),3);"...
";...... 996,B(3):.997,B(4):.4,BB.NU:. M
A.3...E..3,B(996):.4,B(997)...J.. ST... 
. ST..64 . .".IEE WRITE ERROR"ST".":. 10
000...T..1,"U2";3;0;T1;S1...... 3000:. .
 ER . 2300. ...C.C.1:.C.3 . 2260.M.... "
.UNRECOVERABLE WRITE ERROR"ER$:.10000.S.
....U.D.. *** GET BAM TO BM%(T,S) ***...
N.TS.1:TF.....X..1,"I0":. 3,8,3,"#".....
S9.0.E....".TRACK #   BLOCKS TO XFER"...
..."########################".....NU.0:T
1.18:S1.0:C0$.G(.):.2000.....BY.4.#...T%
.(BY.4).4.1.2...."   ";T%;.M.(.. B(BA.BY
).. . . J.. . 20:BM%(T%,J)..:.:BY.BY.4:.
 2650.U.2.S.0...<.BY.BY.1:A0.B(BA.BY):. 
J.. . 7:BM%(T%,S).A0 . TA(J):S.S.1:..F.F
.. S.22 . 2620.R.P.BY.BY.1...Z.ES.21:. T
%.17 . ES.19...D.. T%.24 . ES.18...N.. T
%.30 . ES.17.3.X.. J.ES . 24:BM%(T%,J)..
1:.._...SM..:. J.. . 20:. BM%(T%,J).. . 
SM.SM.1.X....:. .12);SM:S9.S9.SM...... S
M.. . TS.T% . TS.TS.1:. 2730... .. SM...
 . TF.T%.D.... BY.143 . 2580.L...  3....
.. "START =";TS;" FINISH =";TF...H.. ".A
 TOTAL OF";S9;"BLOCKS TO XFER".2.R.S8.90
.25.(.650..980).S9.H...S7..(S8.60):."APP
ROX";S7":".(S8.S7.60);"FOR COPY".N......
.... *** READ ERR CH TO ER ER$***.H.B..1
,E0$,E1$,E2$,E3$:ER$.E0$.",".E1$.",".E2$
.",".E3$...L.ER.C(E0$):. ER . ER.E(E0$).
..V........ *** INSTRUCT TO SWAP DISK GI
VEN IN D$***.D.... D$."D" . S1$."DESTINA
TION":. 3230.U...S1$."SOURCE"...... ".IN
SERT ";S1$;" DISC, PRESS .SPACE."...... 
A$:. A$.." " . 3240...... 2,8,0,"$0".F..
.. 3000:. ER.0 . 10000...F.. J.1 . 26:.#
2,A$:. J...P..#2,A$:.#2,B$:IR$.A$.B$...Z
..#2,A4:.#2,A$:.#2,B$:DR$.A$.B$.)...  2:
..@..'. *** DROP OUT ***._..'.55,(B(998)
:.56(B(999):.:.....:. 76,66,3,76,91,3,16
2,3,32,198,255,160,0,132,3,32,207,255,14
5....:. 3,165,144,208,3,200,208,244,32,2
04,255,96,162,3,32,201,255,160.-..:. 0,1
32,3,177,3,32,210,255,165,144,208,3,200,
208,244,32,204,255,96...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL