BACKUP 1.0

00000000: 01 08 1B 08 01 00 81 49  B2 38 32 38 A4 38 38 33  |.......I.828.883|
00000010: 3A 87 41 3A 97 49 2C 41  3A 82 49 00 2C 08 02 00  |:.A:.I,A:.I.,...|
00000020: 8F 20 42 41 43 4B 55 50  20 31 2E 30 00 53 08 03  |. BACKUP 1.0.S..|
00000030: 00 8F 20 46 52 4F 4D 20  43 4F 4D 50 55 54 45 21  |.. FROM COMPUTE!|
00000040: 56 4F 4C 2E 35 20 4E 4F  2E 37 20 50 41 47 45 20  |VOL.5 NO.7 PAGE |
00000050: 31 36 30 00 78 08 04 00  8F 20 53 4D 41 4C 4C 20  |160.x.... SMALL |
00000060: 43 48 41 4E 47 45 53 20  42 59 20 57 41 4D 4D 45  |CHANGES BY WAMME|
00000070: 53 20 57 49 54 4B 4F 50  00 A0 08 0A 00 8F 22 44  |S WITKOP......"D|
00000080: 3D 44 53 41 56 45 22 40  42 41 43 4B 32 22 2C 44  |=DSAVE"@BACK2",D|
00000090: 30 3A 3F 44 53 24 3A 43  41 54 41 4C 4F 47 44 30  |0:?DS$:CATALOGD0|
000000A0: 00 B8 08 14 00 42 42 B2  C2 28 34 34 29 AA 32 37  |.....BB..(44).27|
000000B0: 3A 97 39 39 35 2C 42 42  00 E1 08 1E 00 97 39 39  |:.995,BB......99|
000000C0: 38 2C C2 28 35 35 29 3A  97 39 39 39 2C C2 28 35  |8,.(55):.999,.(5|
000000D0: 36 29 3A 97 35 35 2C 30  3A 97 35 36 2C 42 42 3A  |6):.55,0:.56,BB:|
000000E0: 9C 00 EF 08 28 00 42 42  B2 C2 28 39 39 35 29 00  |....(.BB..(995).|
000000F0: 12 09 32 00 4E B2 C2 28  39 39 39 29 AB 42 42 AB  |..2.N..(999).BB.|
00000100: 31 3A 42 41 B2 42 42 AC  32 35 36 3A 4D 41 B2 38  |1:BA.BB.256:MA.8|
00000110: 32 38 00 22 09 3C 00 86  42 4D 25 28 33 35 2C 32  |28.".<..BM%(35,2|
00000120: 34 29 00 39 09 46 00 81  4A B2 30 A4 37 3A 54 41  |4).9.F..J.0.7:TA|
00000130: 28 4A 29 B2 32 AE 4A 3A  82 00 52 09 50 00 99 22  |(J).2.J:..R.P.."|
00000140: 93 1D 1D 1D 12 42 41 43  4B 55 50 20 31 35 34 31  |.....BACKUP 1541|
00000150: 92 22 00 81 09 55 00 99  22 11 46 4F 52 20 41 20  |."...U..".FOR A |
00000160: 53 45 43 4F 4E 44 20 44  49 53 4B 3A 20 43 4F 4C  |SECOND DISK: COL|
00000170: 44 20 53 54 41 52 54 20  26 20 52 45 4C 4F 41 44  |D START & RELOAD|
00000180: 22 00 B1 09 5A 00 99 22  11 27 47 4F 54 4F 31 30  |"...Z..".'GOTO10|
00000190: 30 30 30 27 20 49 46 20  50 52 4F 47 52 41 4D 20  |000' IF PROGRAM |
000001A0: 51 55 49 54 53 20 41 42  4E 4F 52 4D 41 4C 4C 59  |QUITS ABNORMALLY|
000001B0: 22 00 CE 09 64 00 99 22  11 22 4E 22 42 55 46 46  |"...d.."."N"BUFF|
000001C0: 45 52 53 20 41 56 41 49  4C 41 42 4C 45 22 00 DA  |ERS AVAILABLE"..|
000001D0: 09 6E 00 9F 31 2C 38 2C  31 35 00 F7 09 C8 00 8F  |.n..1,8,15......|
000001E0: 20 2A 2A 2A 20 4D 41 49  4E 20 46 55 4E 43 54 49  | *** MAIN FUNCTI|
000001F0: 4F 4E 53 20 2A 2A 2A 00  01 0A D2 00 8D 31 30 30  |ONS ***......100|
00000200: 30 00 1A 0A DC 00 44 24  B2 22 53 22 3A 8D 33 32  |0.....D$."S":.32|
00000210: 30 30 3A 49 32 24 B2 49  52 24 00 49 0A E6 00 8B  |00:I2$.IR$.I....|
00000220: 44 52 24 B3 B1 22 32 41  22 A7 99 22 12 49 4C 4C  |DR$.."2A"..".ILL|
00000230: 45 47 41 4C 20 44 4F 53  20 31 2E 30 20 44 49 53  |EGAL DOS 1.0 DIS|
00000240: 4B 22 3A 89 31 30 30 30  30 00 8B 0A F0 00 8B 49  |K":.10000......I|
00000250: 32 24 B2 49 31 24 A7 99  22 12 53 4F 55 52 43 45  |2$.I1$..".SOURCE|
00000260: 20 41 4E 44 20 44 45 53  54 49 4E 41 54 49 4F 4E  | AND DESTINATION|
00000270: 20 48 41 56 45 20 53 41  4D 45 20 49 44 20 43 4F  | HAVE SAME ID CO|
00000280: 44 45 92 22 3A 89 31 30  30 30 30 00 95 0A FA 00  |DE.":.10000.....|
00000290: 8D 32 35 30 30 00 B1 0A  04 01 54 B2 54 53 3A 53  |.2500.....T.TS:S|
000002A0: B2 30 3A 4E 55 B2 31 3A  54 31 B2 54 3A 53 31 B2  |.0:NU.1:T1.T:S1.|
000002B0: 53 00 C8 0A 0E 01 98 31  2C 22 49 30 22 3A 9F 33  |S......1,"I0":.3|
000002C0: 2C 38 2C 33 2C 22 23 22  00 E0 0A 18 01 99 22 52  |,8,3,"#"......"R|
000002D0: 45 41 44 49 4E 47 20 42  4C 4F 43 4B 20 23 22 3B  |EADING BLOCK #";|
000002E0: 00 0A 0B 22 01 8B 42 4D  25 28 54 31 2C 53 31 29  |..."..BM%(T1,S1)|
000002F0: B2 30 A7 8D 32 30 30 30  3A 4E 55 B2 4E 55 AA 31  |.0..2000:NU.NU.1|
00000300: 3A 8B 4E 55 B1 4E A7 33  32 30 00 2A 0B 2C 01 53  |:.NU.N.320.*.,.S|
00000310: 31 B2 53 31 AA 31 3A 8B  53 31 B1 32 30 A7 53 31  |1.S1.1:.S1.20.S1|
00000320: B2 30 3A 54 31 B2 54 31  AA 31 00 3B 0B 36 01 8B  |.0:T1.T1.1.;.6..|
00000330: 54 31 B3 54 46 AA 31 A7  32 39 30 00 44 0B 40 01  |T1.TF.1.290.D.@.|
00000340: 99 22 11 22 00 4B 0B 4A  01 A0 33 00 6B 0B 54 01  |.".".K.J..3.k.T.|
00000350: 44 24 B2 22 44 22 3A 8D  33 32 30 30 3A 8B 49 52  |D$."D":.3200:.IR|
00000360: 24 B3 B1 49 31 24 A7 89  33 34 30 00 82 0B 5E 01  |$..I1$..340...^.|
00000370: 98 31 2C 22 49 30 22 3A  9F 33 2C 38 2C 33 2C 22  |.1,"I0":.3,8,3,"|
00000380: 23 22 00 9B 0B 68 01 99  22 57 52 49 54 49 4E 47  |#"...h.."WRITING|
00000390: 20 42 55 46 46 45 52 20  23 22 3B 00 AE 0B 72 01  | BUFFER #";...r.|
000003A0: 4E 55 B2 31 3A 54 31 B2  54 3A 53 31 B2 53 00 D8  |NU.1:T1.T:S1.S..|
000003B0: 0B 7C 01 8B 42 4D 25 28  54 31 2C 53 31 29 B2 30  |.|..BM%(T1,S1).0|
000003C0: A7 8D 32 32 30 30 3A 4E  55 B2 4E 55 AA 31 3A 8B  |..2200:NU.NU.1:.|
000003D0: 4E 55 B1 4E A7 34 31 30  00 F8 0B 86 01 53 31 B2  |NU.N.410.....S1.|
000003E0: 53 31 AA 31 3A 8B 53 31  B1 32 30 A7 53 31 B2 30  |S1.1:.S1.20.S1.0|
000003F0: 3A 54 31 B2 54 31 AA 31  00 09 0C 90 01 8B 54 31  |:T1.T1.1......T1|
00000400: B3 54 46 AA 31 A7 33 38  30 00 12 0C 9A 01 99 22  |.TF.1.380......"|
00000410: 11 22 00 19 0C A4 01 A0  33 00 36 0C AE 01 53 B2  |."......3.6...S.|
00000420: 53 31 AA 31 3A 8B 53 B1  32 30 A7 53 B2 30 3A 54  |S1.1:.S.20.S.0:T|
00000430: 31 B2 54 31 AA 31 00 49  0C B8 01 54 B2 54 31 3A  |1.T1.1.I...T.T1:|
00000440: 8B 54 B1 54 46 A7 35 30  30 00 68 0C C2 01 44 24  |.T.TF.500.h...D$|
00000450: B2 22 53 22 3A 8D 33 32  30 30 3A 8B 49 52 24 B3  |."S":.3200:.IR$.|
00000460: B1 49 32 24 A7 34 35 30  00 80 0C CC 01 4E 55 B2  |.I2$.450.....NU.|
00000470: 31 3A 54 31 B2 54 3A 53  31 B2 53 3A 89 32 37 30  |1:T1.T:S1.S:.270|
00000480: 00 95 0C F4 01 8F 20 46  49 4E 49 53 48 45 44 20  |...... FINISHED |
00000490: 58 46 45 52 53 00 9C 0C  FE 01 A0 31 00 B8 0C 08  |XFERS......1....|
000004A0: 02 97 35 35 2C C2 28 39  39 38 29 3A 97 35 36 2C  |..55,.(998):.56,|
000004B0: C2 28 39 39 39 29 3A 9C  00 D1 0C 12 02 99 22 11  |.(999):.......".|
000004C0: 11 42 41 43 4B 55 50 20  43 4F 4D 50 4C 45 54 45  |.BACKUP COMPLETE|
000004D0: 22 00 E1 0C 1C 02 9F 31  2C 38 2C 30 2C 22 24 30  |"......1,8,0,"$0|
000004E0: 22 00 F9 0C 26 02 A1 23  31 2C 41 24 3A 8B 41 24  |"...&..#1,A$:.A$|
000004F0: B3 B1 22 12 22 A7 35 35  30 00 07 0D 30 02 99 41  |..".".550...0..A|
00000500: 24 3B 3A 89 36 31 30 00  2B 0D 3A 02 A1 23 31 2C  |$;:.610.+.:..#1,|
00000510: 41 24 3A 53 53 B2 53 54  3A 41 B2 C3 28 41 24 29  |A$:SS.ST:A..(A$)|
00000520: 3A 8B 41 A7 41 B2 C6 28  41 24 29 00 4F 0D 44 02  |:.A.A..(A$).O.D.|
00000530: A1 23 31 2C 42 24 3A 53  53 B2 53 54 3A 42 B2 C3  |.#1,B$:SS.ST:B..|
00000540: 28 42 24 29 3A 8B 42 A7  41 B2 C6 28 42 24 29 00  |(B$):.B.A..(B$).|
00000550: 5B 0D 4E 02 8B 53 53 A7  36 36 30 00 6D 0D 58 02  |[.N..SS.660.m.X.|
00000560: 8B 41 B2 31 AF 42 B2 31  A7 8D 36 33 30 00 86 0D  |.A.1.B.1..630...|
00000570: 62 02 A1 23 31 2C 41 24  3A 8B 41 24 B2 22 22 A7  |b..#1,A$:.A$."".|
00000580: 99 3A 89 35 37 30 00 94  0D 6C 02 99 41 24 3B 3A  |.:.570...l..A$;:|
00000590: 89 36 31 30 00 B8 0D 76  02 A1 23 31 2C 41 24 3A  |.610...v..#1,A$:|
000005A0: 53 53 B2 53 54 3A 41 B2  C3 28 41 24 29 3A 8B 41  |SS.ST:A..(A$):.A|
000005B0: A7 41 B2 C6 28 41 24 29  00 DC 0D 80 02 A1 23 31  |.A..(A$)......#1|
000005C0: 2C 42 24 3A 53 53 B2 53  54 3A 42 B2 C3 28 42 24  |,B$:SS.ST:B..(B$|
000005D0: 29 3A 8B 42 A7 42 B2 C6  28 42 24 29 00 F0 0D 8A  |):.B.B..(B$)....|
000005E0: 02 4E B2 42 AC 32 35 36  AA 41 3A 99 4E 3B 3A 8E  |.N.B.256.A:.N;:.|
000005F0: 00 F7 0D 94 02 A0 31 00  FD 0D 9E 02 80 00 14 0E  |......1.........|
00000600: E8 03 8F 20 48 45 41 44  45 52 20 44 45 53 54 20  |... HEADER DEST |
00000610: 44 49 53 4B 00 44 0E F2  03 99 22 11 49 4E 53 45  |DISK.D....".INSE|
00000620: 52 54 20 44 45 53 54 49  4E 41 54 49 4F 4E 20 44  |RT DESTINATION D|
00000630: 49 53 4B 20 54 4F 20 42  45 20 46 4F 52 4D 41 54  |ISK TO BE FORMAT|
00000640: 54 45 44 22 00 81 0E FC  03 85 22 11 11 44 49 53  |TED"......"..DIS|
00000650: 4B 20 4E 41 4D 45 1D 1D  1D A0 20 20 20 20 20 20  |K NAME....      |
00000660: 20 20 20 20 20 20 20 20  20 9D 9D 9D 9D 9D 9D 9D  |         .......|
00000670: 9D 9D 9D 9D 9D 9D 9D 9D  9D 9D 9D 9D 22 3B 44 4E  |............";DN|
00000680: 24 00 9C 0E 06 04 8B 44  4E 24 B2 22 A0 22 A7 99  |$......DN$."."..|
00000690: 22 91 91 91 22 3B 3A 89  31 30 32 30 00 B1 0E 10  |"...";:.1020....|
000006A0: 04 8B C3 28 44 4E 24 29  B1 31 36 A7 9C 3A 89 34  |...(DN$).16..:.4|
000006B0: 30 00 D4 0E 1A 04 46 B2  30 3A 81 4A B2 31 A4 C3  |0.....F.0:.J.1..|
000006C0: 28 44 4E 24 29 3A 53 31  24 B2 CA 28 44 4E 24 2C  |(DN$):S1$..(DN$,|
000006D0: 4A 2C 31 29 00 EF 0E 24  04 8B 53 31 24 B2 22 A0  |J,1)...$..S1$.".|
000006E0: 22 B0 53 31 24 B2 C7 28  33 34 29 A7 46 B2 31 00  |".S1$..(34).F.1.|
000006F0: 0C 0F 2E 04 82 4A 3A 8B  46 A7 50 52 49 4E 4E 54  |.....J:.F.PRINNT|
00000700: 22 91 91 91 22 3B 3A 89  31 30 32 30 00 55 0F 38  |"...";:.1020.U.8|
00000710: 04 85 22 11 55 4E 49 51  55 45 20 44 49 53 4B 20  |..".UNIQUE DISK |
00000720: 49 44 1D 1D 1D A0 20 20  20 20 20 20 20 20 20 20  |ID....          |
00000730: 20 20 20 20 20 20 20 20  20 9D 9D 9D 9D 9D 9D 9D  |         .......|
00000740: 9D 9D 9D 9D 9D 9D 9D 9D  9D 9D 9D 9D 9D 9D 9D 9D  |................|
00000750: 22 3B 49 31 24 00 6F 0F  42 04 8B 49 31 24 B2 22  |";I1$.o.B..I1$."|
00000760: A0 22 A7 99 22 91 91 22  3B 3A 89 31 30 38 30 00  |.".."..";:.1080.|
00000770: 8B 0F 4C 04 8B C3 28 49  31 24 29 B3 B1 32 A7 99  |..L...(I1$)..2..|
00000780: 22 91 91 22 3B 3A 89 31  30 38 30 00 A4 0F 56 04  |"..";:.1080...V.|
00000790: 98 31 2C 22 4E 30 3A 22  AA 44 4E 24 AA 22 2C 22  |.1,"N0:".DN$.","|
000007A0: AA 49 31 24 00 AE 0F 60  04 8D 33 30 30 30 00 C2  |.I1$...`..3000..|
000007B0: 0F 6A 04 8B 45 52 A7 99  45 52 24 3A 89 31 30 30  |.j..ER..ER$:.100|
000007C0: 30 30 00 C8 0F 74 04 8E  00 EE 0F D0 07 8F 20 52  |00...t........ R|
000007D0: 45 41 44 20 42 4C 4F 43  4B 20 54 31 2C 53 31 20  |EAD BLOCK T1,S1 |
000007E0: 54 4F 20 42 55 46 46 45  52 20 23 20 4E 55 00 F6  |TO BUFFER # NU..|
000007F0: 0F DA 07 43 B2 2E 00 0C  10 E4 07 98 31 2C 22 55  |...C........1,"U|
00000800: 31 22 3B 33 3B 30 3B 54  31 3B 53 31 00 20 10 EE  |1";3;0;T1;S1. ..|
00000810: 07 8D 33 30 30 30 3A 8B  A8 45 52 A7 32 30 36 30  |..3000:..ER.2060|
00000820: 00 34 10 F8 07 43 B2 43  AA 31 3A 8B 43 B3 33 89  |.4...C.C.1:.C.3.|
00000830: 32 30 32 30 00 6A 10 02  08 99 45 52 24 3A 81 4A  |2020.j....ER$:.J|
00000840: B2 28 42 42 AA 4E 55 29  AC 32 35 36 A4 28 42 42  |.(BB.NU).256.(BB|
00000850: AA 4E 55 29 AC 32 35 36  AA 32 35 35 3A 97 4A 2C  |.NU).256.255:.J,|
00000860: 2E 3A 82 4A 3A 89 32 31  30 30 00 7B 10 0C 08 98  |.:.J:.2100.{....|
00000870: 31 2C 22 42 2D 50 22 3B  33 3B 30 00 A7 10 16 08  |1,"B-P";3;0.....|
00000880: 8B 4E 55 B3 B1 30 A7 99  22 20 20 20 9D 9D 9D 22  |.NU..0.."   ..."|
00000890: 3B C9 28 22 20 20 22 AA  C4 28 4E 55 29 2C 33 29  |;.("  "..(NU),3)|
000008A0: 3B 22 9D 9D 9D 22 3B 00  CC 10 20 08 97 39 39 36  |;"...";... ..996|
000008B0: 2C C2 28 33 29 3A 97 39  39 37 2C C2 28 34 29 3A  |,.(3):.997,.(4):|
000008C0: 97 34 2C 42 42 AA 4E 55  3A 9E 4D 41 00 E4 10 25  |.4,BB.NU:.MA...%|
000008D0: 08 97 33 2C C2 28 39 39  36 29 3A 97 34 2C C2 28  |..3,.(996):.4,.(|
000008E0: 39 39 37 29 00 02 11 2A  08 8B 53 54 B3 B1 2E AF  |997)...*..ST....|
000008F0: 53 54 B3 B1 36 34 A7 8D  33 30 30 30 3A 89 32 30  |ST..64..3000:.20|
00000900: 35 30 00 08 11 34 08 8E  00 31 11 98 08 8F 20 57  |50...4...1.... W|
00000910: 52 49 54 45 20 42 4C 4F  43 4B 20 54 31 2C 53 31  |RITE BLOCK T1,S1|
00000920: 20 46 52 4F 4D 20 42 55  46 46 45 52 20 23 20 4E  | FROM BUFFER # N|
00000930: 55 00 39 11 A2 08 43 B2  2E 00 5B 11 AC 08 98 31  |U.9...C...[....1|
00000940: 2C 22 42 2D 41 22 3B 30  3B 54 31 3B 53 31 3A 98  |,"B-A";0;T1;S1:.|
00000950: 31 2C 22 42 2D 50 22 3B  33 3B 30 00 80 11 B6 08  |1,"B-P";3;0.....|
00000960: 99 22 20 20 20 9D 9D 9D  22 3B C9 28 22 20 20 22  |."   ...";.("  "|
00000970: AA C4 28 4E 55 29 2C 33  29 3B 22 9D 9D 9D 22 3B  |..(NU),3);"...";|
00000980: 00 A7 11 C0 08 97 39 39  36 2C C2 28 33 29 3A 97  |......996,.(3):.|
00000990: 39 39 37 2C C2 28 34 29  3A 97 34 2C 42 42 AA 4E  |997,.(4):.4,BB.N|
000009A0: 55 3A 9E 4D 41 AA 33 00  BF 11 C5 08 97 33 2C C2  |U:.MA.3......3,.|
000009B0: 28 39 39 36 29 3A 97 34  2C C2 28 39 39 37 29 00  |(996):.4,.(997).|
000009C0: F2 11 CA 08 8B 53 54 B3  B1 2E AF 53 54 B3 B1 36  |.....ST....ST..6|
000009D0: 34 A7 99 22 12 49 45 45  45 20 57 52 49 54 45 20  |4..".IEEE WRITE |
000009E0: 45 52 52 4F 52 22 53 54  22 92 22 3A 89 31 30 30  |ERROR"ST".":.100|
000009F0: 30 30 00 08 12 D4 08 98  31 2C 22 55 32 22 3B 33  |00......1,"U2";3|
00000A00: 3B 30 3B 54 31 3B 53 31  00 1C 12 DE 08 8D 33 30  |;0;T1;S1......30|
00000A10: 30 30 3A 8B A8 45 52 A7  32 33 30 30 00 30 12 E8  |00:..ER.2300.0..|
00000A20: 08 43 B2 43 AA 31 3A 8B  43 B3 33 A7 32 32 36 30  |.C.C.1:.C.3.2260|
00000A30: 00 5C 12 F2 08 99 22 12  55 4E 52 45 43 4F 56 45  |.\....".UNRECOVE|
00000A40: 52 41 42 4C 45 20 57 52  49 54 45 20 45 52 52 4F  |RABLE WRITE ERRO|
00000A50: 52 22 45 52 24 3A 89 31  30 30 30 30 00 62 12 FC  |R"ER$:.10000.b..|
00000A60: 08 8E 00 7C 12 C4 09 8F  20 47 45 54 20 42 41 4D  |...|.... GET BAM|
00000A70: 20 54 4F 20 42 4D 25 28  54 2C 53 29 00 8A 12 CE  | TO BM%(T,S)....|
00000A80: 09 54 53 B2 31 3A 54 46  B2 2E 00 A1 12 D8 09 98  |.TS.1:TF........|
00000A90: 31 2C 22 49 30 22 3A 9F  33 2C 38 2C 33 2C 22 23  |1,"I0":.3,8,3,"#|
00000AA0: 22 00 AA 12 E2 09 53 39  B2 30 00 CB 12 EC 09 99  |".....S9.0......|
00000AB0: 22 11 54 52 41 43 4B 20  23 20 20 20 42 4C 4F 43  |".TRACK #   BLOC|
00000AC0: 4B 53 20 54 4F 20 58 46  45 52 22 00 E6 12 F6 09  |KS TO XFER".....|
00000AD0: 99 22 23 23 23 23 23 23  23 23 23 23 23 23 23 23  |."##############|
00000AE0: 23 23 23 23 23 22 00 09  13 00 0A 4E 55 B2 30 3A  |#####".....NU.0:|
00000AF0: 54 31 B2 31 38 3A 53 31  B2 30 3A 43 30 24 B2 C7  |T1.18:S1.0:C0$..|
00000B00: 28 2E 29 3A 8D 32 30 30  30 00 12 13 0A 0A 42 59  |(.):.2000.....BY|
00000B10: B2 34 00 24 13 14 0A 54  25 B2 28 42 59 AB 34 29  |.4.$...T%.(BY.4)|
00000B20: AD 34 AA 31 00 32 13 1E  0A 99 22 20 20 22 3B 54  |.4.1.2...."  ";T|
00000B30: 25 3B 00 66 13 28 0A 8B  C2 28 42 41 AA 42 59 29  |%;.f.(...(BA.BY)|
00000B40: B2 2E A7 81 4A B2 2E A4  32 30 3A 42 4D 25 28 54  |....J...20:BM%(T|
00000B50: 25 2C 4A 29 B2 2E 3A 82  3A 42 59 B2 42 59 AA 34  |%,J)..:.:BY.BY.4|
00000B60: 3A 89 32 36 35 30 00 6E  13 32 0A 53 B2 30 00 A8  |:.2650.n.2.S.0..|
00000B70: 13 3C 0A 42 59 B2 42 59  AA 31 3A 41 30 B2 C2 28  |.<.BY.BY.1:A0..(|
00000B80: 42 41 AA 42 59 29 3A 81  4A B2 2E A4 37 3A 42 4D  |BA.BY):.J...7:BM|
00000B90: 25 28 54 25 2C 53 29 B2  41 30 AF 54 41 28 4A 29  |%(T%,S).A0.TA(J)|
00000BA0: 3A 53 B2 53 AA 31 3A 82  00 B7 13 46 0A 8B 53 B3  |:S.S.1:....F..S.|
00000BB0: 32 32 A7 32 36 32 30 00  C3 13 50 0A 42 59 B2 42  |22.2620...P.BY.B|
00000BC0: 59 AA 31 00 DA 13 5A 0A  45 53 B2 32 31 3A 8B 54  |Y.1...Z.ES.21:.T|
00000BD0: 25 B1 31 37 A7 45 53 B2  31 39 00 EB 13 64 0A 8B  |%.17.ES.19...d..|
00000BE0: 54 25 B1 32 34 A7 45 53  B2 31 38 00 FC 13 6E 0A  |T%.24.ES.18...n.|
00000BF0: 8B 54 25 B1 33 30 A7 45  53 B2 31 37 00 18 14 78  |.T%.30.ES.17...x|
00000C00: 0A 81 4A B2 45 53 A4 32  34 3A 42 4D 25 28 54 25  |..J.ES.24:BM%(T%|
00000C10: 2C 4A 29 B2 AB 31 3A 82  00 3E 14 82 0A 53 4D B2  |,J)..1:..>...SM.|
00000C20: 2E 3A 81 4A B2 2E A4 32  30 3A 8B 42 4D 25 28 54  |.:.J...20:.BM%(T|
00000C30: 25 2C 4A 29 B2 2E A7 53  4D B2 53 4D AA 31 00 57  |%,J)...SM.SM.1.W|
00000C40: 14 8C 0A 82 3A 99 20 A3  31 32 29 3B 53 4D 3A 53  |....:. .12);SM:S|
00000C50: 39 B2 53 39 AA 53 4D 00  75 14 96 0A 8B 53 4D B2  |9.S9.SM.u....SM.|
00000C60: 2E AF 54 53 B2 54 25 A7  54 53 B2 54 53 AA 31 3A  |..TS.T%.TS.TS.1:|
00000C70: 89 32 37 33 30 00 86 14  A0 0A 8B 53 4D B3 B1 2E  |.2730......SM...|
00000C80: A7 54 46 B2 54 25 00 97  14 AA 0A 8B 42 59 B3 31  |.TF.T%......BY.1|
00000C90: 34 33 A7 32 35 38 30 00  9E 14 B4 0A A0 33 00 BF  |43.2580......3..|
00000CA0: 14 BE 0A 99 22 53 54 41  52 54 20 3D 22 3B 54 53  |...."START =";TS|
00000CB0: 3B 22 20 46 49 4E 49 53  48 20 3D 22 3B 54 46 00  |;" FINISH =";TF.|
00000CC0: E6 14 C8 0A 99 22 11 41  20 54 4F 54 41 4C 20 4F  |.....".A TOTAL O|
00000CD0: 46 22 3B 53 39 3B 22 42  4C 4F 43 4B 53 20 54 4F  |F";S9;"BLOCKS TO|
00000CE0: 20 58 46 45 52 22 00 02  15 D2 0A 53 38 B2 39 30  | XFER".....S8.90|
00000CF0: AA 32 35 AA 28 2E 36 35  30 AA 2E 39 38 30 29 AC  |.25.(.650..980).|
00000D00: 53 39 00 39 15 DC 0A 53  37 B2 B5 28 53 38 AD 36  |S9.9...S7..(S8.6|
00000D10: 30 29 3A 99 22 41 50 50  52 4F 58 22 3B 53 37 3B  |0):."APPROX";S7;|
00000D20: 22 3A 22 B5 28 53 38 AB  53 37 AC 36 30 29 3B 22  |":".(S8.S7.60);"|
00000D30: 46 4F 52 20 43 4F 50 59  22 00 3F 15 E6 0A 8E 00  |FOR COPY".?.....|
00000D40: 5B 15 B8 0B 8F 20 52 45  41 44 20 45 52 52 20 43  |[.... READ ERR C|
00000D50: 48 20 54 4F 20 45 52 2C  45 52 24 00 92 15 C2 0B  |H TO ER,ER$.....|
00000D60: 84 31 2C 45 30 24 2C 45  31 24 2C 45 32 24 2C 45  |.1,E0$,E1$,E2$,E|
00000D70: 33 24 3A 45 52 24 B2 45  30 24 AA 22 2C 22 AA 45  |3$:ER$.E0$.",".E|
00000D80: 31 24 AA 22 2C 22 AA 45  32 24 AA 22 2C 22 AA 45  |1$.",".E2$.",".E|
00000D90: 33 24 00 AE 15 CC 0B 45  52 B2 C3 28 45 30 24 29  |3$.....ER..(E0$)|
00000DA0: 3A 8B 45 52 A7 45 52 B2  C5 28 45 30 24 29 00 B4  |:.ER.ER..(E0$)..|
00000DB0: 15 D6 0B 8E 00 DF 15 80  0C 8F 20 49 4E 53 54 52  |.......... INSTR|
00000DC0: 55 43 54 20 54 4F 20 53  57 41 50 20 54 4F 20 44  |UCT TO SWAP TO D|
00000DD0: 49 53 4B 20 47 49 56 45  4E 20 49 4E 20 44 24 00  |ISK GIVEN IN D$.|
00000DE0: 03 16 8A 0C 8B 44 24 B2  22 44 22 A7 53 31 24 B2  |.....D$."D".S1$.|
00000DF0: 22 44 45 53 54 49 4E 41  54 49 4F 4E 22 3A 89 33  |"DESTINATION":.3|
00000E00: 32 33 30 00 14 16 94 0C  53 31 24 B2 22 53 4F 55  |230.....S1$."SOU|
00000E10: 52 43 45 22 00 3F 16 9E  0C 99 22 11 49 4E 53 45  |RCE".?....".INSE|
00000E20: 52 54 20 22 3B 53 31 24  3B 22 20 44 49 53 4B 2C  |RT ";S1$;" DISK,|
00000E30: 20 50 52 45 53 53 20 12  53 50 41 43 45 92 22 00  | PRESS .SPACE.".|
00000E40: 55 16 A8 0C A1 41 24 3A  8B 41 24 B3 B1 22 20 22  |U....A$:.A$.." "|
00000E50: A7 33 32 34 30 00 65 16  B2 0C 9F 32 2C 38 2C 30  |.3240.e....2,8,0|
00000E60: 2C 22 24 30 22 00 7B 16  BC 0C 8D 33 30 30 30 3A  |,"$0".{....3000:|
00000E70: 8B 45 52 B1 30 A7 31 30  30 30 30 00 91 16 C6 0C  |.ER.0.10000.....|
00000E80: 81 4A B2 31 A4 32 36 3A  A1 23 32 2C 41 24 3A 82  |.J.1.26:.#2,A$:.|
00000E90: 4A 00 AD 16 D0 0C A1 23  32 2C 41 24 3A A1 23 32  |J......#2,A$:.#2|
00000EA0: 2C 42 24 3A 49 52 24 B2  41 24 AA 42 24 00 D0 16  |,B$:IR$.A$.B$...|
00000EB0: DA 0C A1 23 32 2C 41 24  3A A1 23 32 2C 41 24 3A  |...#2,A$:.#2,A$:|
00000EC0: A1 23 32 2C 42 24 3A 44  52 24 B2 41 24 AA 42 24  |.#2,B$:DR$.A$.B$|
00000ED0: 00 D9 16 E4 0C A0 32 3A  8E 00 E8 16 10 27 8F 20  |......2:.....'. |
00000EE0: 44 52 4F 50 20 4F 55 54  00 06 17 1A 27 97 35 35  |DROP OUT....'.55|
00000EF0: 2C C2 28 39 39 38 29 3A  97 35 36 2C C2 28 39 39  |,.(998):.56,.(99|
00000F00: 39 29 3A 9C 3A 90 00 48  17 98 3A 83 20 37 36 2C  |9):.:..H..:. 76,|
00000F10: 36 36 2C 33 2C 37 36 2C  39 31 2C 33 2C 31 36 32  |66,3,76,91,3,162|
00000F20: 2C 33 2C 33 32 2C 31 39  38 2C 32 35 35 2C 31 36  |,3,32,198,255,16|
00000F30: 30 2C 30 2C 31 33 32 2C  33 2C 33 32 2C 32 30 37  |0,0,132,3,32,207|
00000F40: 2C 32 35 35 2C 31 34 35  00 8D 17 A2 3A 83 20 33  |,255,145....:. 3|
00000F50: 2C 31 36 35 2C 31 34 34  2C 32 30 38 2C 33 2C 32  |,165,144,208,3,2|
00000F60: 30 30 2C 32 30 38 2C 32  34 34 2C 33 32 2C 32 30  |00,208,244,32,20|
00000F70: 34 2C 32 35 35 2C 39 36  2C 31 36 32 2C 33 2C 33  |4,255,96,162,3,3|
00000F80: 32 2C 32 30 31 2C 32 35  35 2C 31 36 30 00 D4 17  |2,201,255,160...|
00000F90: AC 3A 83 20 30 2C 31 33  32 2C 33 2C 31 37 37 2C  |.:. 0,132,3,177,|
00000FA0: 33 2C 33 32 2C 32 31 30  2C 32 35 35 2C 31 36 35  |3,32,210,255,165|
00000FB0: 2C 31 34 34 2C 32 30 38  2C 33 2C 32 30 30 2C 32  |,144,208,3,200,2|
00000FC0: 30 38 2C 32 34 34 2C 33  32 2C 32 30 34 2C 32 35  |08,244,32,204,25|
00000FD0: 35 2C 39 36 00 00 00 FF  FF FF FF B2 FF           |5,96.........   |

.......I.828.883:.A:.I,A:.I.,.... BACKUP
 1.0.S.... FROM COMPUTE!VOL.5 NO.7 PAGE 
160.X.... SMALL CHANGES BY WAMMES WITKOP
. ...."D=DSAVE"@BACK2",D0:?DS$:CATALOGD0
.....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.".<..
BM%(35,24).9.F..J.0.7:TA(J).2.J:..R.P.."
.....BACKUP 1541."...U..".FOR A SECOND D
ISK: COLD START & RELOAD"...Z..".'GOTO10
000' IF PROGRAM QUITS ABNORMALLY".N.D.."
."N"BUFFERS AVAILABLE".Z.N..1,8,15...H..
 *** MAIN FUNCTIONS ***...R..1000.....D$
."S":.3200:I2$.IR$.I....DR$.."2A"..".ILL
EGAL DOS 1.0 DISK":.10000......I2$.I1$..
".SOURCE AND DESTINATION HAVE SAME ID CO
DE.":.10000......2500.....T.TS:S.0:NU.1:
T1.T:S1.S.H....1,"I0":.3,8,3,"#"......"R
EADING BLOCK #";..."..BM%(T1,S1).0..2000
:NU.NU.1:.NU.N.320.*.,.S1.S1.1:.S1.20.S1
.0:T1.T1.1.;.6..T1.TF.1.290.D.@..".".K.J
. 3.K.T.D$."D":.3200:.IR$..I1$..340...^.
.1,"I0":.3,8,3,"#"...H.."WRITING BUFFER 
#";...R.NU.1:T1.T:S1.S.X.|..BM%(T1,S1).0
..2200:NU.NU.1:.NU.N.410.....S1.S1.1:.S1
.20.S1.0:T1.T1.1......T1.TF.1.380......"
."..... 3.6...S.S1.1:.S.20.S.0:T1.T1.1.I
...T.T1:.T.TF.500.H.B.D$."S":.3200:.IR$.
.I2$.450...L.NU.1:T1.T:S1.S:.270...... F
INISHED XFERS..... 1......55,B(998):.56,
B(999):..Q...."..BACKUP COMPLETE"......1
,8,0,"$0"...&..#1,A$:.A$..".".550...0..A
$;:.610.+.:..#1,A$:SS.ST:A.C(A$):.A.A.F(
A$).O.D..#1,B$:SS.ST:B.C(B$):.B.A.F(B$).
[.N..SS.660.M.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.S
T:B.C(B$):.B.B.F(B$).....N.B.256.A:.N;:.
..... 1............ HEADER DEST DISK.D..
..".INSERT DESTINATION DISK TO BE FORMAT
TED"......"..DISK NAME...               
 ...................";DN$......DN$." "..
"...";:.1020......C(DN$).16..:.40.T...F.
0:.J.1.C(DN$):S1$.J(DN$,J,1)...$..S1$." 
".S1$.G(34).F.1......J:.F.PRINNT"...";:.
1020.U.8..".UNIQUE DISK ID...           
         .......................";I1$.O.
B..I1$." ".."..";:.1080...L..C(I1$)..2..
"..";:.1080...V..1,"N0:".DN$.",".I1$...`
..3000.B.J..ER..ER$:.10000.H.T.....P.. R
EAD BLOCK T1,S1 TO BUFFER # NU...Z.C....
....1,"U1";3;0;T1;S1. ....3000:..ER.2060
.4...C.C.1:.C.3.2020.J....ER$:.J.(BB.NU)
.256.(BB.NU).256.255:.J,.:.J:.2100.{....
1,"B-P";3;0......NU..0.."   ...";I("  ".
D(NU),3);"...";.L. ..996,B(3):.997,B(4):
.4,BB.NU:.MA...%..3,B(996):.4,B(997)...*
..ST....ST..64..3000:.2050...4...1.... W
RITE BLOCK T1,S1 FROM BUFFER # NU.9...C.
..[....1,"B-A";0;T1;S1:.1,"B-P";3;0.....
."   ...";I("  ".D(NU),3);"...";......99
6,B(3):.997,B(4):.4,BB.NU:.MA.3...E..3,B
(996):.4,B(997)...J..ST....ST..64..".IEE
E WRITE ERROR"ST".":.10000...T..1,"U2";3
;0;T1;S1......3000:..ER.2300.0...C.C.1:.
C.3.2260.\....".UNRECOVERABLE WRITE ERRO
R"ER$:.10000.B.....|.D.. GET BAM TO BM%(
T,S)...N.TS.1:TF.....X..1,"I0":.3,8,3,"#
".....S9.0.K....".TRACK #   BLOCKS TO XF
ER"......"###################".....NU.0:
T1.18:S1.0:C0$.G(.):.2000.....BY.4.$...T
%.(BY.4).4.1.2...."  ";T%;.F.(..B(BA.BY)
....J...20:BM%(T%,J)..:.:BY.BY.4:.2650.N
.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.
C.P.BY.BY.1.Z.Z.ES.21:.T%.17.ES.19...D..
T%.24.ES.18...N..T%.30.ES.17...X..J.ES.2
4:BM%(T%,J)..1:..>...SM..:.J...20:.BM%(T
%,J)...SM.SM.1.W....:. .12);SM:S9.S9.SM.
U....SM...TS.T%.TS.TS.1:.2730... ..SM...
.TF.T%......BY.143.2580..... 3......"STA
RT =";TS;" FINISH =";TF...H..".A TOTAL O
F";S9;"BLOCKS TO XFER"...R.S8.90.25.(.65
0..980).S9.9...S7..(S8.60):."APPROX";S7;
":".(S8.S7.60);"FOR COPY".?.....[.... RE
AD ERR CH TO ER,ER$...B..1,E0$,E1$,E2$,E
3$:ER$.E0$.",".E1$.",".E2$.",".E3$...L.E
R.C(E0$):.ER.ER.E(E0$)...V........ INSTR
UCT TO SWAP TO DISK GIVEN IN D$......D$.
"D".S1$."DESTINATION":.3230.....S1$."SOU
RCE".?....".INSERT ";S1$;" DISK, PRESS .
SPACE.".U....A$:.A$.." ".3240.E....2,8,0
,"$0".{....3000:.ER.0.10000...F..J.1.26:
.#2,A$:.J...P..#2,A$:.#2,B$:IR$.A$.B$.P.
Z..#2,A$:.#2,A$:.#2,B$:DR$.A$.B$.Y... 2:
.....'. DROP OUT....'.55,B(998):.56,B(99
9):.:..H..:. 76,66,3,76,91,3,162,3,32,19
8,255,160,0,132,3,32,207,255,145....:. 3
,165,144,208,3,200,208,244,32,204,255,96
,162,3,32,201,255,160.T..:. 0,132,3,177,
3,32,210,255,165,144,208,3,200,208,244,3
2,204,255,96.........

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL