BACKUP 2031 1.0

00000000: 01 04 29 04 0A 00 8F 22  44 3D 44 53 41 56 45 22  |..)...."D=DSAVE"|
00000010: 40 42 41 43 4B 32 22 2C  44 30 3A 3F 44 53 24 3A  |@BACK2",D0:?DS$:|
00000020: 43 41 54 41 4C 4F 47 44  30 00 33 04 14 00 42 42  |CATALOGD0.3...BB|
00000030: B2 33 31 00 5C 04 1E 00  97 36 33 32 2C C2 28 35  |.31.\....632,.(5|
00000040: 32 29 3A 97 36 33 33 2C  C2 28 35 33 29 3A 97 35  |2):.633,.(53):.5|
00000050: 32 2C 30 3A 97 35 33 2C  42 42 3A 9C 00 66 04 28  |2,0:.53,BB:..f.(|
00000060: 00 42 42 B2 33 31 00 8A  04 32 00 4E B2 C2 28 36  |.BB.31...2.N..(6|
00000070: 33 33 29 AB 42 42 AB 31  3A 42 41 B2 42 42 AC 32  |33).BB.1:BA.BB.2|
00000080: 35 36 3A 4D 41 B2 34 36  37 32 00 9A 04 3C 00 86  |56:MA.4672...<..|
00000090: 42 4D 25 28 33 35 2C 32  34 29 00 B1 04 46 00 81  |BM%(35,24)...F..|
000000A0: 4A B2 30 A4 37 3A 54 41  28 4A 29 B2 32 AE 4A 3A  |J.0.7:TA(J).2.J:|
000000B0: 82 00 E1 04 50 00 99 22  93 1D 1D 1D 12 42 41 43  |....P..".....BAC|
000000C0: 4B 55 50 20 32 30 33 31  92 20 2D 20 4A 49 4D 20  |KUP 2031. - JIM |
000000D0: 4C 41 57 20 2F 20 4B 45  49 54 48 20 48 4F 50 45  |LAW / KEITH HOPE|
000000E0: 22 00 11 05 5A 00 99 22  11 27 47 4F 54 4F 31 30  |"...Z..".'GOTO10|
000000F0: 30 30 30 27 20 49 46 20  50 52 4F 47 52 41 4D 20  |000' IF PROGRAM |
00000100: 51 55 49 54 53 20 41 42  4E 4F 52 4D 41 4C 4C 59  |QUITS ABNORMALLY|
00000110: 22 00 2E 05 64 00 99 22  11 22 4E 22 42 55 46 46  |"...d.."."N"BUFF|
00000120: 45 52 53 20 41 56 41 49  4C 41 42 4C 45 22 00 3A  |ERS AVAILABLE".:|
00000130: 05 6E 00 9F 31 2C 38 2C  31 35 00 58 05 C8 00 8F  |.n..1,8,15.X....|
00000140: 20 2A 2A 2A 20 4D 41 49  4E 20 46 55 4E 43 54 49  | *** MAIN FUNCTI|
00000150: 4F 4E 53 20 2A 2A 2A 2A  00 62 05 D2 00 8D 31 30  |ONS ****.b....10|
00000160: 30 30 00 7B 05 DC 00 44  24 B2 22 53 22 3A 8D 33  |00.{...D$."S":.3|
00000170: 32 30 30 3A 49 32 24 B2  49 52 24 00 AB 05 E6 00  |200:I2$.IR$.....|
00000180: 8B 44 52 24 B3 B1 22 32  41 22 A7 99 22 12 49 4C  |.DR$.."2A"..".IL|
00000190: 4C 45 47 41 4C 20 44 4F  53 20 31 2E 30 20 44 49  |LEGAL DOS 1.0 DI|
000001A0: 53 4B 92 22 3A 89 31 30  30 30 30 00 ED 05 F0 00  |SK.":.10000.....|
000001B0: 8B 49 32 24 B2 49 31 24  A7 99 22 12 53 4F 55 52  |.I2$.I1$..".SOUR|
000001C0: 43 45 20 41 4E 44 20 44  45 53 54 49 4E 41 54 49  |CE AND DESTINATI|
000001D0: 4F 4E 20 48 41 56 45 20  53 41 4D 45 20 49 44 20  |ON HAVE SAME ID |
000001E0: 43 4F 44 45 92 22 3A 89  31 30 30 30 30 00 F7 05  |CODE.":.10000...|
000001F0: FA 00 8D 32 35 30 30 00  13 06 04 01 54 B2 54 53  |...2500.....T.TS|
00000200: 3A 53 B2 30 3A 4E 55 B2  31 3A 54 31 B2 54 3A 53  |:S.0:NU.1:T1.T:S|
00000210: 31 B2 53 00 2A 06 0E 01  98 31 2C 22 49 30 22 3A  |1.S.*....1,"I0":|
00000220: 9F 33 2C 38 2C 33 2C 22  23 22 00 42 06 18 01 99  |.3,8,3,"#".B....|
00000230: 22 52 45 41 44 49 4E 47  20 42 4C 4F 43 4B 20 23  |"READING BLOCK #|
00000240: 22 3B 00 6C 06 22 01 8B  42 4D 25 28 54 31 2C 53  |";.l."..BM%(T1,S|
00000250: 31 29 B2 30 A7 8D 32 30  30 30 3A 4E 55 B2 4E 55  |1).0..2000:NU.NU|
00000260: AA 31 3A 8B 4E 55 B1 4E  A7 33 32 30 00 8C 06 2C  |.1:.NU.N.320...,|
00000270: 01 53 31 B2 53 31 AA 31  3A 8B 53 31 B1 32 30 A7  |.S1.S1.1:.S1.20.|
00000280: 53 31 B2 30 3A 54 31 B2  54 31 AA 31 00 9D 06 36  |S1.0:T1.T1.1...6|
00000290: 01 8B 54 31 B3 54 46 AA  31 A7 32 39 30 00 A6 06  |..T1.TF.1.290...|
000002A0: 40 01 99 22 11 22 00 AD  06 4A 01 A0 33 00 CD 06  |@.."."...J..3...|
000002B0: 54 01 44 24 B2 22 44 22  3A 8D 33 32 30 30 3A 8B  |T.D$."D":.3200:.|
000002C0: 49 52 24 B3 B1 49 31 24  A7 89 33 34 30 00 E4 06  |IR$..I1$..340...|
000002D0: 5E 01 98 31 2C 22 49 30  22 3A 9F 33 2C 38 2C 33  |^..1,"I0":.3,8,3|
000002E0: 2C 22 23 22 00 FD 06 68  01 99 22 57 52 49 54 49  |,"#"...h.."WRITI|
000002F0: 4E 47 20 42 55 46 46 45  52 20 23 22 3B 00 10 07  |NG BUFFER #";...|
00000300: 72 01 4E 55 B2 31 3A 54  31 B2 54 3A 53 31 B2 53  |r.NU.1:T1.T:S1.S|
00000310: 00 3A 07 7C 01 8B 42 4D  25 28 54 31 2C 53 31 29  |.:.|..BM%(T1,S1)|
00000320: B2 30 A7 8D 32 32 30 30  3A 4E 55 B2 4E 55 AA 31  |.0..2200:NU.NU.1|
00000330: 3A 8B 4E 55 B1 4E A7 34  31 30 00 5A 07 86 01 53  |:.NU.N.410.Z...S|
00000340: 31 B2 53 31 AA 31 3A 8B  53 31 B1 32 30 A7 53 31  |1.S1.1:.S1.20.S1|
00000350: B2 30 3A 54 31 B2 54 31  AA 31 00 6B 07 90 01 8B  |.0:T1.T1.1.k....|
00000360: 54 31 B3 54 46 AA 31 A7  33 38 30 00 74 07 9A 01  |T1.TF.1.380.t...|
00000370: 99 22 11 22 00 7B 07 A4  01 A0 33 00 98 07 AE 01  |.".".{....3.....|
00000380: 53 B2 53 31 AA 31 3A 8B  53 B1 32 30 A7 53 B2 30  |S.S1.1:.S.20.S.0|
00000390: 3A 54 31 B2 54 31 AA 31  00 AB 07 B8 01 54 B2 54  |:T1.T1.1.....T.T|
000003A0: 31 3A 8B 54 B1 54 46 A7  35 30 30 00 CA 07 C2 01  |1:.T.TF.500.....|
000003B0: 44 24 B2 22 53 22 3A 8D  33 32 30 30 3A 8B 49 52  |D$."S":.3200:.IR|
000003C0: 24 B3 B1 49 32 24 A7 34  35 30 00 E2 07 CC 01 4E  |$..I2$.450.....N|
000003D0: 55 B2 31 3A 54 31 B2 54  3A 53 31 B2 53 3A 89 32  |U.1:T1.T:S1.S:.2|
000003E0: 37 30 00 F7 07 F4 01 8F  20 46 49 4E 49 53 48 45  |70...... FINISHE|
000003F0: 44 20 58 46 45 52 53 00  FE 07 FE 01 A0 31 00 1C  |D XFERS......1..|
00000400: 08 08 02 97 35 32 2C C2  28 36 33 32 29 3A 97 35  |....52,.(632):.5|
00000410: 33 2C 20 20 C2 28 36 33  33 29 3A 9C 00 35 08 12  |3,  .(633):..5..|
00000420: 02 99 22 11 11 42 41 43  4B 55 50 20 43 4F 4D 50  |.."..BACKUP COMP|
00000430: 4C 45 54 45 22 00 45 08  1C 02 9F 31 2C 38 2C 30  |LETE".E....1,8,0|
00000440: 2C 22 24 30 22 00 5D 08  26 02 A1 23 31 2C 41 24  |,"$0".].&..#1,A$|
00000450: 3A 8B 41 24 B3 B1 22 12  22 A7 35 35 30 00 6B 08  |:.A$..".".550.k.|
00000460: 30 02 99 41 24 3B 3A 89  36 31 30 00 8F 08 3A 02  |0..A$;:.610...:.|
00000470: A1 23 31 2C 41 24 3A 53  53 B2 53 54 3A 41 B2 C3  |.#1,A$:SS.ST:A..|
00000480: 28 41 24 29 3A 8B 41 A7  41 B2 C6 28 41 24 29 00  |(A$):.A.A..(A$).|
00000490: B3 08 44 02 A1 23 31 2C  42 24 3A 53 53 B2 53 54  |..D..#1,B$:SS.ST|
000004A0: 3A 42 B2 C3 28 42 24 29  3A 8B 42 A7 41 B2 C6 28  |:B..(B$):.B.A..(|
000004B0: 42 24 29 00 BF 08 4E 02  8B 53 53 A7 36 36 30 00  |B$)...N..SS.660.|
000004C0: D1 08 58 02 8B 41 B2 31  AF 42 B2 31 A7 8D 36 33  |..X..A.1.B.1..63|
000004D0: 30 00 EA 08 62 02 A1 23  31 2C 41 24 3A 8B 41 24  |0...b..#1,A$:.A$|
000004E0: B2 22 22 A7 99 3A 89 35  37 30 00 F8 08 6C 02 99  |.""..:.570...l..|
000004F0: 41 24 3B 3A 89 36 31 30  00 1C 09 76 02 A1 23 31  |A$;:.610...v..#1|
00000500: 2C 41 24 3A 53 53 B2 53  54 3A 41 B2 C3 28 41 24  |,A$:SS.ST:A..(A$|
00000510: 29 3A 8B 41 A7 41 B2 C6  28 41 24 29 00 40 09 80  |):.A.A..(A$).@..|
00000520: 02 A1 23 31 2C 42 24 3A  53 53 B2 53 54 3A 42 B2  |..#1,B$:SS.ST:B.|
00000530: C3 28 42 24 29 3A 8B 42  A7 42 B2 C6 28 42 24 29  |.(B$):.B.B..(B$)|
00000540: 00 54 09 8A 02 4E B2 42  AC 32 35 36 AA 41 3A 99  |.T...N.B.256.A:.|
00000550: 4E 3B 3A 8E 00 5B 09 94  02 A0 31 00 61 09 9E 02  |N;:..[....1.a...|
00000560: 80 00 78 09 E8 03 8F 20  48 45 41 44 45 52 20 44  |..x.... HEADER D|
00000570: 45 53 54 20 44 49 53 4B  00 A8 09 F2 03 99 22 11  |EST DISK......".|
00000580: 49 4E 53 45 52 54 20 44  45 53 54 49 4E 41 54 49  |INSERT DESTINATI|
00000590: 4F 4E 20 44 49 53 4B 20  54 4F 20 42 45 20 46 4F  |ON DISK TO BE FO|
000005A0: 52 4D 41 54 54 45 44 22  00 E6 09 FC 03 85 22 11  |RMATTED"......".|
000005B0: 11 44 49 53 4B 20 4E 41  4D 45 1D 1D 1D A0 20 20  |.DISK NAME....  |
000005C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 9D 9D  |              ..|
000005D0: 9D 9D 9D 9D 9D 9D 9D 9D  9D 9D 9D 9D 9D 9D 9D 9D  |................|
000005E0: 9D 22 3B 44 4E 24 00 01  0A 06 04 8B 44 4E 24 B2  |.";DN$......DN$.|
000005F0: 22 A0 22 A7 99 22 91 91  91 22 3B 3A 89 31 30 32  |".".."...";:.102|
00000600: 30 00 16 0A 10 04 8B C3  28 44 4E 24 29 B1 31 36  |0.......(DN$).16|
00000610: A7 9C 3A 89 34 30 00 39  0A 1A 04 46 B2 30 3A 81  |..:.40.9...F.0:.|
00000620: 4A B2 31 A4 C3 28 44 4E  24 29 3A 53 31 24 B2 CA  |J.1..(DN$):S1$..|
00000630: 28 44 4E 24 2C 4A 2C 31  29 00 54 0A 24 04 8B 53  |(DN$,J,1).T.$..S|
00000640: 31 24 B2 22 A0 22 B0 53  31 24 B2 C7 28 33 34 29  |1$.".".S1$..(34)|
00000650: A7 46 B2 31 00 6C 0A 2E  04 82 4A 3A 8B 46 A7 99  |.F.1.l....J:.F..|
00000660: 22 91 91 91 22 3B 3A 89  31 30 32 30 00 B6 0A 38  |"...";:.1020...8|
00000670: 04 85 22 11 55 4E 49 51  55 45 20 44 49 53 4B 20  |..".UNIQUE DISK |
00000680: 49 44 1D 1D 1D A0 20 20  20 20 20 20 20 20 20 20  |ID....          |
00000690: 20 20 20 20 20 20 20 20  20 20 9D 9D 9D 9D 9D 9D  |          ......|
000006A0: 9D 9D 9D 9D 9D 9D 9D 9D  9D 9D 9D 9D 9D 9D 9D 9D  |................|
000006B0: 9D 22 3B 49 31 24 00 D0  0A 42 04 8B 49 31 24 B2  |.";I1$...B..I1$.|
000006C0: 22 A0 22 A7 99 22 91 91  22 3B 3A 89 31 30 38 30  |".".."..";:.1080|
000006D0: 00 EC 0A 4C 04 8B C3 28  49 31 24 29 B3 B1 32 A7  |...L...(I1$)..2.|
000006E0: 99 22 91 91 22 3B 3A 89  31 30 38 30 00 05 0B 56  |."..";:.1080...V|
000006F0: 04 98 31 2C 22 4E 30 3A  22 AA 44 4E 24 AA 22 2C  |..1,"N0:".DN$.",|
00000700: 22 AA 49 31 24 00 0F 0B  60 04 8D 33 30 30 30 00  |".I1$...`..3000.|
00000710: 23 0B 6A 04 8B 45 52 A7  99 45 52 24 3A 89 31 30  |#.j..ER..ER$:.10|
00000720: 30 30 30 00 29 0B 74 04  8E 00 4F 0B D0 07 8F 20  |000.).t...O.... |
00000730: 52 45 41 44 20 42 4C 4F  43 4B 20 54 31 2C 53 31  |READ BLOCK T1,S1|
00000740: 20 54 4F 20 42 55 46 46  45 52 20 23 20 4E 55 00  | TO BUFFER # NU.|
00000750: 57 0B DA 07 43 B2 2E 00  6D 0B E4 07 98 31 2C 22  |W...C...m....1,"|
00000760: 55 31 22 3B 33 3B 30 3B  54 31 3B 53 31 00 81 0B  |U1";3;0;T1;S1...|
00000770: EE 07 8D 33 30 30 30 3A  8B A8 45 52 A7 32 30 36  |...3000:..ER.206|
00000780: 30 00 95 0B F8 07 43 B2  43 AA 31 3A 8B 43 B3 33  |0.....C.C.1:.C.3|
00000790: 89 32 30 32 30 00 CB 0B  02 08 99 45 52 24 3A 81  |.2020......ER$:.|
000007A0: 4A B2 28 42 42 AA 4E 55  29 AC 32 35 36 A4 28 42  |J.(BB.NU).256.(B|
000007B0: 42 AA 4E 55 29 AC 32 35  36 AA 32 35 35 3A 97 4A  |B.NU).256.255:.J|
000007C0: 2C 2E 3A 82 4A 3A 89 32  31 30 30 00 DC 0B 0C 08  |,.:.J:.2100.....|
000007D0: 98 31 2C 22 42 2D 50 22  3B 33 3B 30 00 08 0C 16  |.1,"B-P";3;0....|
000007E0: 08 8B 4E 55 B3 B1 30 A7  99 22 20 20 20 9D 9D 9D  |..NU..0.."   ...|
000007F0: 22 3B C9 28 22 20 20 22  AA C4 28 4E 55 29 2C 33  |";.("  "..(NU),3|
00000800: 29 3B 22 9D 9D 9D 22 3B  00 19 0C 20 08 97 32 2C  |);"...";... ..2,|
00000810: 42 42 AA 4E 55 3A 9E 4D  41 00 37 0C 2A 08 8B 53  |BB.NU:.MA.7.*..S|
00000820: 54 B3 B1 2E AF 53 54 B3  B1 36 34 A7 8D 33 30 30  |T....ST..64..300|
00000830: 30 3A 89 32 30 35 30 00  3D 0C 34 08 8E 00 66 0C  |0:.2050.=.4...f.|
00000840: 98 08 8F 20 57 52 49 54  45 20 42 4C 4F 43 4B 20  |... WRITE BLOCK |
00000850: 54 31 2C 53 31 20 46 52  4F 4D 20 42 55 46 46 45  |T1,S1 FROM BUFFE|
00000860: 52 20 23 20 4E 55 00 6E  0C A2 08 43 B2 2E 00 90  |R # NU.n...C....|
00000870: 0C AC 08 98 31 2C 22 42  2D 41 22 3B 30 3B 54 31  |....1,"B-A";0;T1|
00000880: 3B 53 31 3A 98 31 2C 22  42 2D 50 22 3B 33 3B 30  |;S1:.1,"B-P";3;0|
00000890: 00 B5 0C B6 08 99 22 20  20 20 9D 9D 9D 22 3B C9  |......"   ...";.|
000008A0: 28 22 20 20 22 AA C4 28  4E 55 29 2C 33 29 3B 22  |("  "..(NU),3);"|
000008B0: 9D 9D 9D 22 3B 00 C8 0C  C0 08 97 32 2C 42 42 AA  |...";......2,BB.|
000008C0: 4E 55 3A 9E 4D 41 AA 33  00 FB 0C CA 08 8B 53 54  |NU:.MA.3......ST|
000008D0: B3 B1 2E AF 53 54 B3 B1  36 34 A7 99 22 12 49 45  |....ST..64..".IE|
000008E0: 45 45 20 57 52 49 54 45  20 45 52 52 4F 52 22 53  |EE WRITE ERROR"S|
000008F0: 54 22 92 22 3A 89 31 30  30 30 30 00 11 0D D4 08  |T".":.10000.....|
00000900: 98 31 2C 22 55 32 22 3B  33 3B 30 3B 54 31 3B 53  |.1,"U2";3;0;T1;S|
00000910: 31 00 25 0D DE 08 8D 33  30 30 30 3A 8B A8 45 52  |1.%....3000:..ER|
00000920: A7 32 33 30 30 00 39 0D  E8 08 43 B2 43 AA 31 3A  |.2300.9...C.C.1:|
00000930: 8B 43 B3 33 A7 32 32 36  30 00 65 0D F2 08 99 22  |.C.3.2260.e...."|
00000940: 12 55 4E 52 45 43 4F 56  45 52 41 42 4C 45 20 57  |.UNRECOVERABLE W|
00000950: 52 49 54 45 20 45 52 52  4F 52 22 45 52 24 3A 89  |RITE ERROR"ER$:.|
00000960: 31 30 30 30 30 00 6B 0D  FC 08 8E 00 85 0D C4 09  |10000.k.........|
00000970: 8F 20 47 45 54 20 42 41  4D 20 54 4F 20 42 4D 25  |. GET BAM TO BM%|
00000980: 28 54 2C 53 29 00 93 0D  CE 09 54 53 B2 31 3A 54  |(T,S).....TS.1:T|
00000990: 46 B2 2E 00 AA 0D D8 09  98 31 2C 22 49 30 22 3A  |F........1,"I0":|
000009A0: 9F 33 2C 38 2C 33 2C 22  23 22 00 B3 0D E2 09 53  |.3,8,3,"#".....S|
000009B0: 39 B2 30 00 D4 0D EC 09  99 22 11 54 52 41 43 4B  |9.0......".TRACK|
000009C0: 20 23 20 20 20 42 4C 4F  43 4B 53 20 54 4F 20 58  | #   BLOCKS TO X|
000009D0: 46 45 52 22 00 F4 0D F6  09 99 22 A3 A3 A3 A3 A3  |FER"......".....|
000009E0: A3 A3 A3 A3 A3 A3 A3 A3  A3 A3 A3 A3 A3 A3 A3 A3  |................|
000009F0: A3 A3 A3 22 00 17 0E 00  0A 4E 55 B2 30 3A 54 31  |...".....NU.0:T1|
00000A00: B2 31 38 3A 53 31 B2 30  3A 43 30 24 B2 C7 28 2E  |.18:S1.0:C0$..(.|
00000A10: 29 3A 8D 32 30 30 30 00  20 0E 0A 0A 42 59 B2 34  |):.2000. ...BY.4|
00000A20: 00 32 0E 14 0A 54 25 B2  28 42 59 AB 34 29 AD 34  |.2...T%.(BY.4).4|
00000A30: AA 31 00 40 0E 1E 0A 99  22 20 20 22 3B 54 25 3B  |.1.@...."  ";T%;|
00000A40: 00 74 0E 28 0A 8B C2 28  42 41 AA 42 59 29 B2 2E  |.t.(...(BA.BY)..|
00000A50: A7 81 4A B2 2E A4 32 30  3A 42 4D 25 28 54 25 2C  |..J...20:BM%(T%,|
00000A60: 4A 29 B2 2E 3A 82 3A 42  59 B2 42 59 AA 34 3A 89  |J)..:.:BY.BY.4:.|
00000A70: 32 36 35 30 00 7C 0E 32  0A 53 B2 30 00 B6 0E 3C  |2650.|.2.S.0...<|
00000A80: 0A 42 59 B2 42 59 AA 31  3A 41 30 B2 C2 28 42 41  |.BY.BY.1:A0..(BA|
00000A90: AA 42 59 29 3A 81 4A B2  2E A4 37 3A 42 4D 25 28  |.BY):.J...7:BM%(|
00000AA0: 54 25 2C 53 29 B2 41 30  AF 54 41 28 4A 29 3A 53  |T%,S).A0.TA(J):S|
00000AB0: B2 53 AA 31 3A 82 00 C5  0E 46 0A 8B 53 B3 32 32  |.S.1:....F..S.22|
00000AC0: A7 32 36 32 30 00 D1 0E  50 0A 42 59 B2 42 59 AA  |.2620...P.BY.BY.|
00000AD0: 31 00 E8 0E 5A 0A 45 53  B2 32 31 3A 8B 54 25 B1  |1...Z.ES.21:.T%.|
00000AE0: 31 37 A7 45 53 B2 31 39  00 F9 0E 64 0A 8B 54 25  |17.ES.19...d..T%|
00000AF0: B1 32 34 A7 45 53 B2 31  38 00 0A 0F 6E 0A 8B 54  |.24.ES.18...n..T|
00000B00: 25 B1 33 30 A7 45 53 B2  31 37 00 26 0F 78 0A 81  |%.30.ES.17.&.x..|
00000B10: 4A B2 45 53 A4 32 34 3A  42 4D 25 28 54 25 2C 4A  |J.ES.24:BM%(T%,J|
00000B20: 29 B2 AB 31 3A 82 00 4C  0F 82 0A 53 4D B2 2E 3A  |)..1:..L...SM..:|
00000B30: 81 4A B2 2E A4 32 30 3A  8B 42 4D 25 28 54 25 2C  |.J...20:.BM%(T%,|
00000B40: 4A 29 B2 2E A7 53 4D B2  53 4D AA 31 00 64 0F 8C  |J)...SM.SM.1.d..|
00000B50: 0A 82 3A 99 A3 31 32 29  3B 53 4D 3A 53 39 B2 53  |..:..12);SM:S9.S|
00000B60: 39 AA 53 4D 00 82 0F 96  0A 8B 53 4D B2 2E AF 54  |9.SM......SM...T|
00000B70: 53 B2 54 25 A7 54 53 B2  54 53 AA 31 3A 89 32 37  |S.T%.TS.TS.1:.27|
00000B80: 33 30 00 93 0F A0 0A 8B  53 4D B3 B1 2E A7 54 46  |30......SM....TF|
00000B90: B2 54 25 00 A4 0F AA 0A  8B 42 59 B3 31 34 33 A7  |.T%......BY.143.|
00000BA0: 32 35 38 30 00 AB 0F B4  0A A0 33 00 CC 0F BE 0A  |2580......3.....|
00000BB0: 99 22 53 54 41 52 54 20  3D 22 3B 54 53 3B 22 20  |."START =";TS;" |
00000BC0: 46 49 4E 49 53 48 20 3D  22 3B 54 46 00 F3 0F C8  |FINISH =";TF....|
00000BD0: 0A 99 22 11 41 20 54 4F  54 41 4C 20 4F 46 22 3B  |..".A TOTAL OF";|
00000BE0: 53 39 3B 22 42 4C 4F 43  4B 53 20 54 4F 20 58 46  |S9;"BLOCKS TO XF|
00000BF0: 45 52 22 00 0F 10 D2 0A  53 38 B2 39 30 AA 32 35  |ER".....S8.90.25|
00000C00: AA 28 2E 36 35 30 AA 2E  39 38 30 29 AC 53 39 00  |.(.650..980).S9.|
00000C10: 45 10 DC 0A 53 37 B2 B5  28 53 38 AD 36 30 29 3A  |E...S7..(S8.60):|
00000C20: 99 22 41 50 50 52 4F 58  22 3B 53 37 22 3A 22 B5  |."APPROX";S7":".|
00000C30: 28 53 38 AB 53 37 AC 36  30 29 3B 22 46 4F 52 20  |(S8.S7.60);"FOR |
00000C40: 43 4F 50 59 22 00 4B 10  E6 0A 8E 00 67 10 B8 0B  |COPY".K.....g...|
00000C50: 8F 20 52 45 41 44 20 45  52 52 20 43 48 20 54 4F  |. READ ERR CH TO|
00000C60: 20 45 52 2C 45 52 24 00  9E 10 C2 0B 84 31 2C 45  | ER,ER$......1,E|
00000C70: 30 24 2C 45 31 24 2C 45  32 24 2C 45 33 24 3A 45  |0$,E1$,E2$,E3$:E|
00000C80: 52 24 B2 45 30 24 AA 22  2C 22 AA 45 31 24 AA 22  |R$.E0$.",".E1$."|
00000C90: 2C 22 AA 45 32 24 AA 22  2C 22 AA 45 33 24 00 BA  |,".E2$.",".E3$..|
00000CA0: 10 CC 0B 45 52 B2 C3 28  45 30 24 29 3A 8B 45 52  |...ER..(E0$):.ER|
00000CB0: A7 45 52 B2 C5 28 45 30  24 29 00 C0 10 D6 0B 8E  |.ER..(E0$)......|
00000CC0: 00 EB 10 80 0C 8F 20 49  4E 53 54 52 55 43 54 20  |...... INSTRUCT |
00000CD0: 54 4F 20 53 57 41 50 20  54 4F 20 44 49 53 4B 20  |TO SWAP TO DISK |
00000CE0: 47 49 56 45 4E 20 49 4E  20 44 24 00 0F 11 8A 0C  |GIVEN IN D$.....|
00000CF0: 8B 44 24 B2 22 44 22 A7  53 31 24 B2 22 44 45 53  |.D$."D".S1$."DES|
00000D00: 54 49 4E 41 54 49 4F 4E  22 3A 89 33 32 33 30 00  |TINATION":.3230.|
00000D10: 20 11 94 0C 53 31 24 B2  22 53 4F 55 52 43 45 22  | ...S1$."SOURCE"|
00000D20: 00 4B 11 9E 0C 99 22 11  49 4E 53 45 52 54 20 22  |.K....".INSERT "|
00000D30: 3B 53 31 24 3B 22 20 44  49 53 4B 2C 20 50 52 45  |;S1$;" DISK, PRE|
00000D40: 53 53 20 12 53 50 41 43  45 92 22 00 61 11 A8 0C  |SS .SPACE.".a...|
00000D50: A1 41 24 3A 8B 41 24 B3  B1 22 20 22 A7 33 32 34  |.A$:.A$.." ".324|
00000D60: 30 00 71 11 B2 0C 9F 32  2C 38 2C 30 2C 22 24 30  |0.q....2,8,0,"$0|
00000D70: 22 00 87 11 BC 0C 8D 33  30 30 30 3A 8B 45 52 B1  |"......3000:.ER.|
00000D80: 30 A7 31 30 30 30 30 00  9D 11 C6 0C 81 4A B2 31  |0.10000......J.1|
00000D90: A4 32 36 3A A1 23 32 2C  41 24 3A 82 4A 00 B9 11  |.26:.#2,A$:.J...|
00000DA0: D0 0C A1 23 32 2C 41 24  3A A1 23 32 2C 42 24 3A  |...#2,A$:.#2,B$:|
00000DB0: 49 52 24 B2 41 24 AA 42  24 00 DC 11 DA 0C A1 23  |IR$.A$.B$......#|
00000DC0: 32 2C 41 24 3A A1 23 32  2C 41 24 3A A1 23 32 2C  |2,A$:.#2,A$:.#2,|
00000DD0: 42 24 3A 44 52 24 B2 41  24 AA 42 24 00 E5 11 E4  |B$:DR$.A$.B$....|
00000DE0: 0C A0 32 3A 8E 00 F4 11  10 27 8F 20 44 52 4F 50  |..2:.....'. DROP|
00000DF0: 20 4F 55 54 00 12 12 1A  27 97 35 32 2C C2 28 36  | OUT....'.52,.(6|
00000E00: 33 32 29 3A 97 35 33 2C  C2 28 36 33 33 29 3A 9C  |32):.53,.(633):.|
00000E10: 3A 90 00 00 00 00 00 50  00 00 00 00 00 00 00 00  |:......P........|
00000E20: 00 00 00 00 97 35 32 2C  C2 28 36 33 32 29 3A 97  |.....52,.(632):.|
00000E30: 35 33 2C C2 28 36 33 33  29 3A 9C 3A 90 00 00 00  |53,.(633):.:....|
00000E40: 4F 4C 46 12 4C 5F 12 A2  03 20 C6 FF A0 00 84 01  |OLF.L_... ......|
00000E50: 20 CF FF 91 01 A5 96 D0  03 C8 D0 F4 20 CC FF 60  | ........... ..`|
00000E60: A2 03 20 C9 FF A0 00 84  01 B1 01 20 D2 FF A5 96  |.. ........ ....|
00000E70: D0 03 C8 D0 F4 20 CC FF  60 60 50 20 4F 55 54 00  |..... ..``P OUT.|
00000E80: 9D                                                |.               |

..)...."D=DSAVE"@BACK2",D0:?DS$:CATALOGD
0.3...BB.31.\....632,B(52):.633,B(53):.5
2,0:.53,BB:..F.(.BB.31...2.N.B(633).BB.1
:BA.BB.256:MA.4672...<..BM%(35,24)...F..
J.0.7:TA(J).2.J:....P..".....BACKUP 2031
. - JIM LAW / KEITH HOPE"...Z..".'GOTO10
000' IF PROGRAM QUITS ABNORMALLY"...D.."
."N"BUFFERS AVAILABLE".:.N..1,8,15.X.H..
 *** MAIN FUNCTIONS ****.B.R..1000.{...D
$."S":.3200:I2$.IR$......DR$.."2A"..".IL
LEGAL DOS 1.0 DISK.":.10000......I2$.I1$
..".SOURCE AND DESTINATION HAVE SAME ID 
CODE.":.10000......2500.....T.TS:S.0:NU.
1:T1.T:S1.S.*....1,"I0":.3,8,3,"#".B....
"READING BLOCK #";.L."..BM%(T1,S1).0..20
00:NU.NU.1:.NU.N.320...,.S1.S1.1:.S1.20.
S1.0:T1.T1.1...6..T1.TF.1.290...@.."."..
.J. 3.M.T.D$."D":.3200:.IR$..I1$..340...
^..1,"I0":.3,8,3,"#"...H.."WRITING BUFFE
R #";...R.NU.1:T1.T:S1.S.:.|..BM%(T1,S1)
.0..2200:NU.NU.1:.NU.N.410.Z...S1.S1.1:.
S1.20.S1.0:T1.T1.1.K....T1.TF.1.380.T...
.".".{... 3.....S.S1.1:.S.20.S.0:T1.T1.1
.....T.T1:.T.TF.500.J.B.D$."S":.3200:.IR
$..I2$.450...L.NU.1:T1.T:S1.S:.270......
 FINISHED XFERS..... 1......52,B(632):.5
3,  B(633):..5...."..BACKUP COMPLETE".E.
...1,8,0,"$0".].&..#1,A$:.A$..".".550.K.
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.Q.X..A.1.B.1..630...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$).T...N.B.256.A:.
N;:..[... 1.A.....X.... HEADER DEST DISK
......".INSERT DESTINATION DISK TO BE FO
RMATTED"......"..DISK NAME...           
      ...................";DN$......DN$.
" ".."...";:.1020......C(DN$).16..:.40.9
...F.0:.J.1.C(DN$):S1$.J(DN$,J,1).T.$..S
1$." ".S1$.G(34).F.1.L....J:.F.."...";:.
1020...8..".UNIQUE DISK ID...           
          .......................";I1$.P
.B..I1$." ".."..";:.1080...L..C(I1$)..2.
."..";:.1080...V..1,"N0:".DN$.",".I1$...
`..3000.#.J..ER..ER$:.10000.).T...O.P.. 
READ BLOCK T1,S1 TO BUFFER # NU.W.Z.C...
M....1,"U1";3;0;T1;S1......3000:..ER.206
0.....C.C.1:.C.3.2020.K....ER$:.J.(BB.NU
).256.(BB.NU).256.255:.J,.:.J:.2100.....
.1,"B-P";3;0......NU..0.."   ...";I("  "
.D(NU),3);"...";... ..2,BB.NU:.MA.7.*..S
T....ST..64..3000:.2050.=.4...F.... WRIT
E BLOCK T1,S1 FROM BUFFER # NU.N...C....
....1,"B-A";0;T1;S1:.1,"B-P";3;0......" 
  ...";I("  ".D(NU),3);"...";.H....2,BB.
NU:.MA.3...J..ST....ST..64..".IEEE WRITE
 ERROR"ST".":.10000...T..1,"U2";3;0;T1;S
1.%....3000:..ER.2300.9...C.C.1:.C.3.226
0.E....".UNRECOVERABLE WRITE ERROR"ER$:.
10000.K.......D.. GET BAM TO BM%(T,S)...
N.TS.1:TF.....X..1,"I0":.3,8,3,"#".....S
9.0.T....".TRACK #   BLOCKS TO XFER"....
.."........................".....NU.0:T1
.18:S1.0:C0$.G(.):.2000. ...BY.4.2...T%.
(BY.4).4.1.@...."  ";T%;.T.(..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:..E.F..S.22.2620.Q.
P.BY.BY.1...Z.ES.21:.T%.17.ES.19...D..T%
.24.ES.18...N..T%.30.ES.17.&.X..J.ES.24:
BM%(T%,J)..1:..L...SM..:.J...20:.BM%(T%,
J)...SM.SM.1.D....:..12);SM:S9.S9.SM....
..SM...TS.T%.TS.TS.1:.2730... ..SM....TF
.T%......BY.143.2580..... 3.L...."START 
=";TS;" FINISH =";TF...H..".A TOTAL OF";
S9;"BLOCKS TO XFER"...R.S8.90.25.(.650..
980).S9.E...S7..(S8.60):."APPROX";S7":".
(S8.S7.60);"FOR COPY".K.....G.... READ E
RR CH TO ER,ER$...B..1,E0$,E1$,E2$,E3$:E
R$.E0$.",".E1$.",".E2$.",".E3$...L.ER.C(
E0$):.ER.ER.E(E0$)...V........ INSTRUCT 
TO SWAP TO DISK GIVEN IN D$......D$."D".
S1$."DESTINATION":.3230. ...S1$."SOURCE"
.K....".INSERT ";S1$;" DISK, PRESS .SPAC
E.".A....A$:.A$.." ".3240.Q....2,8,0,"$0
"......3000:.ER.0.10000...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$..... 2:....
.'. DROP OUT....'.52,B(632):.53,B(633):.
:......P.............52,B(632):.53,B(633
):.:....OLF.L_... F. ... O.....P.HP. L.`
.. I. ..... R...P.HP. L.``P OUT..

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL