DISK BACKUP
FILE INFORMATION
FILENAME(S): DISK BACKUP
FILE TYPE(S): PRG
FILE SIZE: 3.9K
FIRST SEEN: 2025-11-30 18:13:09
APPEARS ON: 1 disk(s)
FILE HASH
a2bd4134bfd673c395ddb2f809aa11d7a7c566722cbc0ae263bdf6b16debb5e9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COPY PROGRAMS | DISK BACKUP | PRG | Sailor, Ganheden | 11 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 01 00 8F 20 2A 2A 2A 20 44 49 53 4B |....... *** DISK|
00000010: 20 42 41 43 4B 55 50 20 2A 2A 2A 00 39 08 02 00 | BACKUP ***.9...|
00000020: 8F 20 2A 2A 2A 20 43 4F 4D 50 55 54 45 20 4A 55 |. *** COMPUTE JU|
00000030: 4C 59 20 38 33 20 2A 2A 2A 00 53 08 05 00 81 49 |LY 83 ***.S....I|
00000040: B2 38 32 38 A4 38 38 33 3A 87 41 3A 97 49 2C 41 |.828.883:.A:.I,A|
00000050: 3A 82 49 00 7B 08 0A 00 8F 22 44 3D 44 53 41 56 |:.I.{...."D=DSAV|
00000060: 45 22 40 42 41 43 4B 32 22 2C 44 30 3A 3F 44 53 |E"@BACK2",D0:?DS|
00000070: 24 3A 43 41 54 41 4C 4F 47 44 30 00 93 08 14 00 |$:CATALOGD0.....|
00000080: 42 42 B2 C2 28 34 34 29 AA 32 37 3A 97 39 39 35 |BB..(44).27:.995|
00000090: 2C 42 42 00 BC 08 1E 00 97 39 39 38 2C C2 28 35 |,BB......998,.(5|
000000A0: 35 29 3A 97 39 39 39 2C C2 28 35 36 29 3A 97 35 |5):.999,.(56):.5|
000000B0: 35 2C 30 3A 97 35 36 2C 42 42 3A 9C 00 CA 08 28 |5,0:.56,BB:....(|
000000C0: 00 42 42 B2 C2 28 39 39 35 29 00 ED 08 32 00 4E |.BB..(995)...2.N|
000000D0: B2 C2 28 39 39 39 29 AB 42 42 AB 31 3A 42 41 B2 |..(999).BB.1:BA.|
000000E0: 42 42 AC 32 35 36 3A 4D 41 B2 38 32 38 00 FD 08 |BB.256:MA.828...|
000000F0: 3C 00 86 42 4D 25 28 33 35 2C 32 34 29 00 14 09 |<..BM%(35,24)...|
00000100: 46 00 81 4A B2 30 A4 37 3A 54 41 28 4A 29 B2 32 |F..J.0.7:TA(J).2|
00000110: AE 4A 3A 82 00 2D 09 50 00 99 22 93 1D 1D 1D 12 |.J:..-.P..".....|
00000120: 42 41 43 4B 55 50 20 31 35 34 31 92 22 00 5D 09 |BACKUP 1541.".].|
00000130: 5A 00 99 22 11 27 47 4F 54 4F 31 30 30 30 30 27 |Z..".'GOTO10000'|
00000140: 20 49 46 20 50 52 4F 47 52 41 4D 20 51 55 49 54 | IF PROGRAM QUIT|
00000150: 53 20 41 42 4E 4F 52 4D 41 4C 4C 59 22 00 7A 09 |S ABNORMALLY".z.|
00000160: 64 00 99 22 11 22 4E 22 42 55 46 46 45 52 53 20 |d.."."N"BUFFERS |
00000170: 41 56 41 49 4C 41 42 4C 45 22 00 86 09 6E 00 9F |AVAILABLE"...n..|
00000180: 31 2C 38 2C 31 35 00 A3 09 C8 00 8F 20 2A 2A 2A |1,8,15...... ***|
00000190: 20 4D 41 49 4E 20 46 55 4E 43 54 49 4F 4E 53 20 | MAIN FUNCTIONS |
000001A0: 2A 2A 2A 00 AD 09 D2 00 8D 31 30 30 30 00 C6 09 |***......1000...|
000001B0: DC 00 44 24 B2 22 53 22 3A 8D 33 32 30 30 3A 49 |..D$."S":.3200:I|
000001C0: 32 24 B2 49 52 24 00 F6 09 E6 00 8B 44 52 24 B3 |2$.IR$......DR$.|
000001D0: B1 22 32 41 22 A7 99 22 12 49 4C 4C 49 47 41 4C |."2A"..".ILLIGAL|
000001E0: 20 44 4F 53 20 31 2E 30 20 44 49 53 4B 92 22 3A | DOS 1.0 DISK.":|
000001F0: 89 31 30 30 30 30 00 38 0A F0 00 8B 49 32 24 B2 |.10000.8....I2$.|
00000200: 49 31 24 A7 99 22 12 53 4F 55 52 43 45 20 41 4E |I1$..".SOURCE AN|
00000210: 44 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 48 41 |D DESTINATION HA|
00000220: 56 45 20 53 41 4D 45 20 49 44 20 43 4F 44 45 92 |VE SAME ID CODE.|
00000230: 22 3A 89 31 30 30 30 30 00 42 0A FA 00 8D 32 35 |":.10000.B....25|
00000240: 30 30 00 5E 0A 04 01 54 B2 54 53 3A 53 B2 30 3A |00.^...T.TS:S.0:|
00000250: 4E 55 B2 31 3A 54 31 B2 54 3A 53 31 B2 53 00 75 |NU.1:T1.T:S1.S.u|
00000260: 0A 0E 01 98 31 2C 22 49 30 22 3A 9F 33 2C 38 2C |....1,"I0":.3,8,|
00000270: 33 2C 22 23 22 00 8D 0A 18 01 99 22 52 45 41 44 |3,"#"......"READ|
00000280: 49 4E 47 20 42 4C 4F 43 4B 20 23 22 3B 00 B7 0A |ING BLOCK #";...|
00000290: 22 01 8B 42 4D 25 28 54 31 2C 53 31 29 B2 30 A7 |"..BM%(T1,S1).0.|
000002A0: 8D 32 30 30 30 3A 4E 55 B2 4E 55 AA 31 3A 8B 4E |.2000:NU.NU.1:.N|
000002B0: 55 B1 4E A7 33 32 30 00 D7 0A 2C 01 53 31 B2 53 |U.N.320...,.S1.S|
000002C0: 31 AA 31 3A 8B 53 31 B1 32 30 A7 53 31 B2 30 3A |1.1:.S1.20.S1.0:|
000002D0: 54 31 B2 54 31 AA 31 00 E8 0A 36 01 8B 54 31 B3 |T1.T1.1...6..T1.|
000002E0: 54 46 AA 31 A7 32 39 30 00 F1 0A 40 01 99 22 11 |TF.1.290...@..".|
000002F0: 22 00 F8 0A 4A 01 A0 33 00 18 0B 54 01 44 24 B2 |"...J..3...T.D$.|
00000300: 22 44 22 3A 8D 33 32 30 30 3A 8B 49 52 24 B3 B1 |"D":.3200:.IR$..|
00000310: 49 31 24 A7 89 33 34 30 00 2F 0B 5E 01 98 31 2C |I1$..340./.^..1,|
00000320: 22 49 30 22 3A 9F 33 2C 38 2C 33 2C 22 23 22 00 |"I0":.3,8,3,"#".|
00000330: 48 0B 68 01 99 22 57 52 49 54 49 4E 47 20 42 55 |H.h.."WRITING BU|
00000340: 46 46 45 52 20 23 22 3B 00 5B 0B 72 01 4E 55 B2 |FFER #";.[.r.NU.|
00000350: 31 3A 54 31 B2 54 3A 53 31 B2 53 00 85 0B 7C 01 |1:T1.T:S1.S...|.|
00000360: 8B 42 4D 25 28 54 31 2C 53 31 29 B2 30 A7 8D 32 |.BM%(T1,S1).0..2|
00000370: 32 30 30 3A 4E 55 B2 4E 55 AA 31 3A 8B 4E 55 B1 |200:NU.NU.1:.NU.|
00000380: 4E A7 34 31 30 00 A5 0B 86 01 53 31 B2 53 31 AA |N.410.....S1.S1.|
00000390: 31 3A 8B 53 31 B1 32 30 A7 53 31 B2 30 3A 54 31 |1:.S1.20.S1.0:T1|
000003A0: B2 54 31 AA 31 00 B6 0B 90 01 8B 54 31 B3 54 46 |.T1.1......T1.TF|
000003B0: AA 31 A7 33 38 30 00 BF 0B 9A 01 99 22 11 22 00 |.1.380......".".|
000003C0: C6 0B A4 01 A0 33 00 E3 0B AE 01 53 B2 53 31 AA |.....3.....S.S1.|
000003D0: 31 3A 8B 53 B1 32 30 A7 53 B2 30 3A 54 31 B2 54 |1:.S.20.S.0:T1.T|
000003E0: 31 AA 31 00 F6 0B B8 01 54 B2 54 31 3A 8B 54 B1 |1.1.....T.T1:.T.|
000003F0: 54 46 A7 35 30 30 00 15 0C C2 01 44 24 B2 22 53 |TF.500.....D$."S|
00000400: 22 3A 8D 33 32 30 30 3A 8B 49 52 24 B3 B1 49 32 |":.3200:.IR$..I2|
00000410: 24 A7 34 35 30 00 2D 0C CC 01 4E 55 B2 31 3A 54 |$.450.-...NU.1:T|
00000420: 31 B2 54 3A 53 31 B2 53 3A 89 32 37 30 00 42 0C |1.T:S1.S:.270.B.|
00000430: F4 01 8F 20 46 49 4E 49 53 48 45 44 20 58 46 45 |... FINISHED XFE|
00000440: 52 53 00 49 0C FE 01 A0 31 00 65 0C 08 02 97 35 |RS.I....1.e....5|
00000450: 35 2C C2 28 39 39 38 29 3A 97 35 36 2C C2 28 39 |5,.(998):.56,.(9|
00000460: 39 39 29 3A 9C 00 7E 0C 12 02 99 22 11 11 42 41 |99):..~...."..BA|
00000470: 43 4B 55 50 20 43 4F 4D 50 4C 45 54 45 22 00 8E |CKUP COMPLETE"..|
00000480: 0C 1C 02 9F 31 2C 38 2C 30 2C 22 24 30 22 00 A6 |....1,8,0,"$0"..|
00000490: 0C 26 02 A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 22 |.&..#1,A$:.A$.."|
000004A0: 12 22 A7 35 35 30 00 B4 0C 30 02 99 41 24 3B 3A |.".550...0..A$;:|
000004B0: 89 36 31 30 00 D8 0C 3A 02 A1 23 31 2C 41 24 3A |.610...:..#1,A$:|
000004C0: 53 53 B2 53 54 3A 41 B2 C3 28 41 24 29 3A 8B 41 |SS.ST:A..(A$):.A|
000004D0: A7 41 B2 C6 28 41 24 29 00 FC 0C 44 02 A1 23 31 |.A..(A$)...D..#1|
000004E0: 2C 42 24 3A 53 53 B2 53 54 3A 42 B2 C3 28 42 24 |,B$:SS.ST:B..(B$|
000004F0: 29 3A 8B 42 A7 41 B2 C6 28 42 24 29 00 08 0D 4E |):.B.A..(B$)...N|
00000500: 02 8B 53 53 A7 36 36 30 00 1A 0D 58 02 8B 41 B2 |..SS.660...X..A.|
00000510: 31 AF 42 B2 31 A7 8D 36 33 30 00 33 0D 62 02 A1 |1.B.1..630.3.b..|
00000520: 23 31 2C 41 24 3A 8B 41 24 B2 22 22 A7 99 3A 89 |#1,A$:.A$.""..:.|
00000530: 35 37 30 00 41 0D 6C 02 99 41 24 3B 3A 89 36 31 |570.A.l..A$;:.61|
00000540: 30 00 65 0D 76 02 A1 23 31 2C 41 24 3A 53 53 B2 |0.e.v..#1,A$:SS.|
00000550: 53 54 3A 41 B2 C3 28 41 24 29 3A 8B 41 A7 41 B2 |ST:A..(A$):.A.A.|
00000560: C6 28 41 24 29 00 89 0D 80 02 A1 23 31 2C 42 24 |.(A$)......#1,B$|
00000570: 3A 53 53 B2 53 54 3A 42 B2 C3 28 42 24 29 3A 8B |:SS.ST:B..(B$):.|
00000580: 42 A7 42 B2 C6 28 42 24 29 00 9D 0D 8A 02 4E B2 |B.B..(B$).....N.|
00000590: 42 AC 32 35 36 AA 41 3A 99 4E 3B 3A 8E 00 A4 0D |B.256.A:.N;:....|
000005A0: 94 02 A0 31 00 AA 0D 9E 02 80 00 C1 0D E8 03 8F |...1............|
000005B0: 20 48 45 41 44 45 52 20 44 45 53 54 20 44 49 53 | HEADER DEST DIS|
000005C0: 4B 00 F1 0D F2 03 99 22 11 49 4E 53 45 52 54 20 |K......".INSERT |
000005D0: 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 49 53 4B |DESTINATION DISK|
000005E0: 20 54 4F 20 42 45 20 46 4F 52 4D 41 54 54 45 44 | TO BE FORMATTED|
000005F0: 22 00 2F 0E FC 03 85 22 11 11 44 49 53 4B 20 4E |"./...."..DISK N|
00000600: 41 4D 45 1D 1D 1D A0 20 20 20 20 20 20 20 20 20 |AME.... |
00000610: 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D | .........|
00000620: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 44 4E 24 00 |..........";DN$.|
00000630: 4A 0E 06 04 8B 44 4E 24 B2 22 A0 22 A7 99 22 91 |J....DN$."."..".|
00000640: 91 91 22 3B 3A 89 31 30 32 30 00 5F 0E 10 04 8B |..";:.1020._....|
00000650: C3 28 44 4E 24 29 B1 31 36 A7 9C 3A 89 34 30 00 |.(DN$).16..:.40.|
00000660: 82 0E 1A 04 46 B2 30 3A 81 4A B2 31 A4 C3 28 44 |....F.0:.J.1..(D|
00000670: 4E 24 29 3A 53 31 24 B2 CA 28 44 4E 24 2C 4A 2C |N$):S1$..(DN$,J,|
00000680: 31 29 00 9D 0E 24 04 8B 53 31 24 B2 22 A0 22 B0 |1)...$..S1$.".".|
00000690: 53 31 24 B2 C7 28 33 34 29 A7 46 B2 31 00 B5 0E |S1$..(34).F.1...|
000006A0: 2E 04 82 4A 3A 8B 46 A7 99 22 91 91 91 22 3B 3A |...J:.F.."...";:|
000006B0: 89 31 30 32 30 00 FF 0E 38 04 85 22 11 55 4E 49 |.1020...8..".UNI|
000006C0: 51 55 45 20 44 49 53 4B 20 49 44 1D 1D 1D A0 20 |QUE DISK ID.... |
000006D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006E0: 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D | .............|
000006F0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 49 31 24 00 |..........";I1$.|
00000700: 19 0F 42 04 8B 49 31 24 B2 22 20 22 A7 99 22 91 |..B..I1$." "..".|
00000710: 91 22 3B 3A 89 31 30 38 30 00 35 0F 4C 04 8B C3 |.";:.1080.5.L...|
00000720: 28 49 31 24 29 B3 B1 32 A7 99 22 91 91 22 3B 3A |(I1$)..2.."..";:|
00000730: 89 31 30 38 30 00 4E 0F 56 04 98 31 2C 22 4E 30 |.1080.N.V..1,"N0|
00000740: 3A 22 AA 44 4E 24 AA 22 2C 22 AA 49 31 24 00 58 |:".DN$.",".I1$.X|
00000750: 0F 60 04 8D 33 30 30 30 00 6C 0F 6A 04 8B 45 52 |.`..3000.l.j..ER|
00000760: A7 99 45 52 24 3A 89 31 30 30 30 30 00 72 0F 74 |..ER$:.10000.r.t|
00000770: 04 8E 00 98 0F D0 07 8F 20 52 45 41 44 20 42 4C |........ READ BL|
00000780: 4F 43 4B 20 54 31 2C 53 31 20 54 4F 20 42 55 46 |OCK T1,S1 TO BUF|
00000790: 46 45 52 20 23 20 4E 55 00 A0 0F DA 07 43 B2 2E |FER # NU.....C..|
000007A0: 00 B6 0F E4 07 98 31 2C 22 55 31 22 3B 33 3B 30 |......1,"U1";3;0|
000007B0: 3B 54 31 3B 53 31 00 CA 0F EE 07 8D 33 30 30 30 |;T1;S1......3000|
000007C0: 3A 8B A8 45 52 A7 32 30 36 30 00 DE 0F F8 07 43 |:..ER.2060.....C|
000007D0: B2 43 AA 31 3A 8B 43 B3 33 89 32 30 32 30 00 14 |.C.1:.C.3.2020..|
000007E0: 10 02 08 99 45 52 24 3A 81 4A B2 28 42 42 AA 4E |....ER$:.J.(BB.N|
000007F0: 55 29 AC 32 35 36 A4 28 42 42 AA 4E 55 29 AC 32 |U).256.(BB.NU).2|
00000800: 35 36 AA 32 35 35 3A 97 4A 2C 2E 3A 82 4A 3A 89 |56.255:.J,.:.J:.|
00000810: 32 31 30 30 00 25 10 0C 08 98 31 2C 22 42 2D 50 |2100.%....1,"B-P|
00000820: 22 3B 33 3B 30 00 51 10 16 08 8B 4E 55 B3 B1 30 |";3;0.Q....NU..0|
00000830: A7 99 22 20 20 20 9D 9D 9D 22 3B C9 28 22 20 20 |.." ...";.(" |
00000840: 22 AA C4 28 4E 55 29 2C 33 29 3B 22 9D 9D 9D 22 |"..(NU),3);"..."|
00000850: 3B 00 76 10 20 08 97 39 39 36 2C C2 28 33 29 3A |;.v. ..996,.(3):|
00000860: 97 39 39 37 2C C2 28 34 29 3A 97 34 2C 42 42 AA |.997,.(4):.4,BB.|
00000870: 4E 55 3A 9E 4D 41 00 8E 10 25 08 97 33 2C C2 28 |NU:.MA...%..3,.(|
00000880: 39 39 36 29 3A 97 34 2C C2 28 39 39 37 29 00 AC |996):.4,.(997)..|
00000890: 10 2A 08 8B 53 54 B3 B1 2E AF 53 54 B3 B1 36 34 |.*..ST....ST..64|
000008A0: A7 8D 33 30 30 30 3A 89 32 30 35 30 00 B2 10 34 |..3000:.2050...4|
000008B0: 08 8E 00 DB 10 98 08 8F 20 57 52 49 54 45 20 42 |........ WRITE B|
000008C0: 4C 4F 43 4B 20 54 31 2C 53 31 20 46 52 4F 4D 20 |LOCK T1,S1 FROM |
000008D0: 42 55 46 46 45 52 20 23 20 4E 55 00 E3 10 A2 08 |BUFFER # NU.....|
000008E0: 43 B2 2E 00 05 11 AC 08 98 31 2C 22 42 2D 41 22 |C........1,"B-A"|
000008F0: 3B 30 3B 54 31 3B 53 31 3A 98 31 2C 22 42 2D 50 |;0;T1;S1:.1,"B-P|
00000900: 22 3B 33 3B 30 00 2A 11 B6 08 99 22 20 20 20 9D |";3;0.*...." .|
00000910: 9D 9D 22 3B C9 28 22 20 20 22 AA C4 28 4E 55 29 |..";.(" "..(NU)|
00000920: 2C 33 29 3B 22 9D 9D 9D 22 3B 00 51 11 C0 08 97 |,3);"...";.Q....|
00000930: 39 39 36 2C C2 28 33 29 3A 97 39 39 37 2C C2 28 |996,.(3):.997,.(|
00000940: 34 29 3A 97 34 2C 42 42 AA 4E 55 3A 9E 4D 41 AA |4):.4,BB.NU:.MA.|
00000950: 33 00 69 11 C5 08 97 33 2C C2 28 39 39 36 29 3A |3.i....3,.(996):|
00000960: 97 34 2C C2 28 39 39 37 29 00 9C 11 CA 08 8B 53 |.4,.(997)......S|
00000970: 54 B3 B1 2E AF 53 54 B3 B1 36 34 A7 99 22 12 49 |T....ST..64..".I|
00000980: 45 45 45 20 57 52 49 54 45 20 48 52 52 4F 52 22 |EEE WRITE HRROR"|
00000990: 53 54 22 98 88 8D FF 9F 9F 8F 8F 8F FF C9 FF E7 |ST".............|
000009A0: FF FF 9F FF 98 FF 99 88 8D 99 9D 9F 8D 77 8F 9D |.............w..|
000009B0: 79 9F FF FF FF FF FF FF 99 9F 8F 8F 8D FF FF FF |y...............|
000009C0: 79 C1 99 89 9F 8F FF 4D FF FF FF 78 D9 FF DC 8F |y......M...x....|
000009D0: 9D FF 78 D9 99 D1 99 89 8B 8F FF FF FF 09 FF FF |..x.............|
000009E0: 98 FF FF 75 FF FF 78 70 7B FF 79 FF 42 4C 45 20 |...u..xp{.y.BLE |
000009F0: 57 52 49 54 45 20 45 52 52 4F 52 22 45 52 24 3A |WRITE ERROR"ER$:|
00000A00: 89 31 30 30 30 30 00 0C 12 FC 08 8E 00 26 12 C4 |.10000.......&..|
00000A10: 09 8F 20 47 45 54 20 42 41 4D 20 54 4F 20 42 4D |.. GET BAM TO BM|
00000A20: 25 28 54 2C 53 29 00 34 12 CE 09 54 53 B2 31 3A |%(T,S).4...TS.1:|
00000A30: 54 46 B2 2E 00 4B 12 D8 09 98 31 2C 22 49 30 22 |TF...K....1,"I0"|
00000A40: 3A 9F 33 2C 38 2C 33 2C 22 23 22 00 54 12 E2 09 |:.3,8,3,"#".T...|
00000A50: 53 39 B2 30 00 75 12 EC 09 99 22 11 54 52 41 43 |S9.0.u....".TRAC|
00000A60: 4B 20 23 20 20 20 42 4C 4F 43 4B 53 20 54 4F 20 |K # BLOCKS TO |
00000A70: 58 46 45 52 22 00 95 12 F6 09 99 22 23 23 23 23 |XFER"......"####|
00000A80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000A90: 23 23 23 23 22 00 B8 12 00 0A 4E 55 B2 30 3A 54 |####".....NU.0:T|
00000AA0: 31 B2 31 38 3A 53 31 B2 30 3A 43 30 24 B2 C7 28 |1.18:S1.0:C0$..(|
00000AB0: 2E 29 3A 8D 32 30 30 30 00 C1 12 0A 0A 42 59 B2 |.):.2000.....BY.|
00000AC0: 34 00 D3 12 14 0A 54 25 B2 28 42 59 AB 34 29 AD |4.....T%.(BY.4).|
00000AD0: 34 AA 31 00 E1 12 1E 0A 99 22 20 20 22 3B 54 25 |4.1......" ";T%|
00000AE0: 3B 00 15 13 28 0A 8B C2 28 42 41 AA 42 59 29 B2 |;...(...(BA.BY).|
00000AF0: 2E A7 81 4A B2 2E A4 32 30 3A 42 4D 25 28 54 25 |...J...20:BM%(T%|
00000B00: 2C 4A 29 B2 2E 3A 82 3A 42 59 B2 42 59 AA 34 3A |,J)..:.:BY.BY.4:|
00000B10: 89 32 36 35 30 00 1D 13 32 0A 53 B2 30 00 57 13 |.2650...2.S.0.W.|
00000B20: 3C 0A 42 59 B2 42 59 AA 31 3A 41 30 B2 C2 28 42 |<.BY.BY.1:A0..(B|
00000B30: 41 AA 42 59 29 3A 81 4A B2 2E A4 37 3A 42 4D 25 |A.BY):.J...7:BM%|
00000B40: 28 54 25 2C 53 29 B2 41 30 AF 54 41 28 4A 29 3A |(T%,S).A0.TA(J):|
00000B50: 53 B2 53 AA 31 3A 82 00 66 13 46 0A 8B 53 B3 32 |S.S.1:..f.F..S.2|
00000B60: 32 A7 32 36 32 30 00 72 13 50 0A 42 59 B2 42 59 |2.2620.r.P.BY.BY|
00000B70: AA 31 00 89 13 5A 0A 45 53 B2 32 31 3A 8B 54 25 |.1...Z.ES.21:.T%|
00000B80: B1 31 37 A7 45 53 B2 31 39 00 9A 13 64 0A 8B 54 |.17.ES.19...d..T|
00000B90: 25 B1 32 34 A7 45 53 B2 31 38 00 AB 13 6E 0A 8B |%.24.ES.18...n..|
00000BA0: 54 25 B1 33 30 A7 45 53 B2 31 37 00 C7 13 78 0A |T%.30.ES.17...x.|
00000BB0: 81 4A B2 45 53 A4 32 34 3A 42 4D 25 28 54 25 2C |.J.ES.24:BM%(T%,|
00000BC0: 4A 29 B2 AB 31 3A 82 00 ED 13 82 0A 53 4D B2 2E |J)..1:......SM..|
00000BD0: 3A 81 4A B2 2E A4 32 30 3A 8B 42 4D 25 28 54 25 |:.J...20:.BM%(T%|
00000BE0: 2C 4A 29 B2 2E A7 53 4D B2 53 4D AA 31 00 05 14 |,J)...SM.SM.1...|
00000BF0: 8C 0A 82 3A 99 A3 31 32 29 3B 53 4D 3A 53 39 B2 |...:..12);SM:S9.|
00000C00: 53 39 AA 53 4D 00 23 14 96 0A 8B 53 4D B2 2E AF |S9.SM.#....SM...|
00000C10: 54 53 B2 54 25 A7 54 53 B2 54 53 AA 31 3A 89 32 |TS.T%.TS.TS.1:.2|
00000C20: 37 33 30 00 34 14 A0 0A 8B 53 4D B3 B1 2E A7 54 |730.4....SM....T|
00000C30: 46 B2 54 25 00 45 14 AA 0A 8B 42 59 B3 31 34 33 |F.T%.E....BY.143|
00000C40: A7 32 35 38 30 00 4C 14 B4 0A A0 33 00 6D 14 BE |.2580.L....3.m..|
00000C50: 0A 99 22 53 54 41 52 54 20 3D 22 3B 54 53 3B 22 |.."START =";TS;"|
00000C60: 20 46 49 4E 49 53 48 20 3D 22 3B 54 46 00 94 14 | FINISH =";TF...|
00000C70: C8 0A 99 22 11 41 20 54 4F 54 41 4C 20 4F 46 22 |...".A TOTAL OF"|
00000C80: 3B 53 39 3B 22 42 4C 4F 43 4B 53 20 54 4F 20 58 |;S9;"BLOCKS TO X|
00000C90: 46 45 52 22 00 B0 14 D2 0A 53 38 B2 39 30 AA 32 |FER".....S8.90.2|
00000CA0: 35 AA 28 2E 36 35 30 AA 2E 39 38 30 29 AC 53 39 |5.(.650..980).S9|
00000CB0: 00 E6 14 DC 0A 53 37 B2 B5 28 53 38 AD 36 30 29 |.....S7..(S8.60)|
00000CC0: 3A 99 22 41 50 50 52 4F 58 22 3B 53 37 22 3A 22 |:."APPROX";S7":"|
00000CD0: B5 28 53 38 AB 53 37 AC 36 30 29 3B 22 46 4F 52 |.(S8.S7.60);"FOR|
00000CE0: 20 43 4F 50 59 22 00 EC 14 E6 0A 8E 00 08 15 B8 | COPY"..........|
00000CF0: 0B 8F 20 52 45 41 44 20 45 52 52 20 43 48 20 54 |.. READ ERR CH T|
00000D00: 4F 20 45 52 2C 45 52 24 00 3F 15 C2 0B 84 31 2C |O ER,ER$.?....1,|
00000D10: 45 30 24 2C 45 31 24 2C 45 32 24 2C 45 33 24 3A |E0$,E1$,E2$,E3$:|
00000D20: 45 52 24 B2 45 30 24 AA 22 2C 22 AA 45 31 24 AA |ER$.E0$.",".E1$.|
00000D30: 22 2C 22 AA 45 32 24 AA 22 2C 22 AA 45 33 24 00 |",".E2$.",".E3$.|
00000D40: 5B 15 CC 0B 45 52 B2 C3 28 45 30 24 29 3A 8B 45 |[...ER..(E0$):.E|
00000D50: 52 A7 45 52 B2 C5 28 45 30 24 29 00 61 15 D6 0B |R.ER..(E0$).a...|
00000D60: 8E 00 8C 15 80 0C 8F 20 49 4E 53 54 52 55 43 54 |....... INSTRUCT|
00000D70: 20 54 4F 20 53 57 41 50 20 54 4F 20 44 49 53 4B | TO SWAP TO DISK|
00000D80: 20 47 49 56 45 4E 20 49 4E 20 44 24 00 B0 15 8A | GIVEN IN D$....|
00000D90: 0C 8B 44 24 B2 22 44 22 A7 53 31 24 B2 22 44 45 |..D$."D".S1$."DE|
00000DA0: 53 54 49 4E 41 54 49 4F 4E 22 3A 89 33 32 33 30 |STINATION":.3230|
00000DB0: 00 C1 15 94 0C 53 31 24 B2 22 53 4F 55 52 43 45 |.....S1$."SOURCE|
00000DC0: 22 00 EC 15 9E 0C 99 22 11 49 4E 53 45 52 54 20 |"......".INSERT |
00000DD0: 22 3B 53 31 24 3B 22 20 44 49 53 4B 2C 20 50 52 |";S1$;" DISK, PR|
00000DE0: 45 53 53 20 12 53 50 41 43 45 92 22 00 02 16 A8 |ESS .SPACE."....|
00000DF0: 0C A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 33 32 |..A$:.A$.." ".32|
00000E00: 34 30 00 12 16 B2 0C 9F 32 2C 38 2C 30 2C 22 24 |40......2,8,0,"$|
00000E10: 30 22 00 28 16 BC 0C 8D 33 30 30 30 3A 8B 45 52 |0".(....3000:.ER|
00000E20: B1 30 A7 31 30 30 30 30 00 3E 16 C6 0C 81 4A B2 |.0.10000.>....J.|
00000E30: 31 A4 32 36 3A A1 23 32 2C 41 24 3A 82 4A 00 5A |1.26:.#2,A$:.J.Z|
00000E40: 16 D0 0C A1 23 32 2C 41 24 3A A1 23 32 2C 42 24 |....#2,A$:.#2,B$|
00000E50: 3A 49 52 24 B2 41 24 AA 42 24 00 7D 16 DA 0C A1 |:IR$.A$.B$.}....|
00000E60: 23 32 2C 41 24 3A A1 23 32 2C 41 24 3A A1 23 32 |#2,A$:.#2,A$:.#2|
00000E70: 2C 42 24 3A 44 52 24 B2 41 24 AA 42 24 00 86 16 |,B$:DR$.A$.B$...|
00000E80: E4 0C A0 32 3A 8E 00 95 16 10 27 8F 20 44 52 4F |...2:.....'. DRO|
00000E90: 50 20 4F 55 54 00 B3 16 1A 27 97 35 35 2C C2 28 |P OUT....'.55,.(|
00000EA0: 39 39 38 29 3A 97 35 36 2C C2 28 39 39 39 29 3A |998):.56,.(999):|
00000EB0: 9C 3A 90 00 F4 16 98 3A 83 37 36 2C 36 36 2C 33 |.:.....:.76,66,3|
00000EC0: 2C 37 36 2C 39 31 2C 33 2C 31 36 32 2C 33 2C 33 |,76,91,3,162,3,3|
00000ED0: 32 2C 31 39 38 2C 32 35 35 2C 31 36 30 2C 30 2C |2,198,255,160,0,|
00000EE0: 31 33 32 2C 33 2C 33 32 2C 32 30 37 2C 32 35 35 |132,3,32,207,255|
00000EF0: 2C 31 34 35 00 38 17 A2 3A 83 33 2C 31 36 35 2C |,145.8..:.3,165,|
00000F00: 31 34 34 2C 32 30 38 2C 33 2C 32 30 30 2C 32 30 |144,208,3,200,20|
00000F10: 38 2C 32 34 34 2C 33 32 2C 32 30 34 2C 32 35 35 |8,244,32,204,255|
00000F20: 2C 39 36 2C 31 36 32 2C 33 2C 33 32 2C 32 30 31 |,96,162,3,32,201|
00000F30: 2C 32 35 35 2C 31 36 30 00 7E 17 AC 3A 83 30 2C |,255,160.~..:.0,|
00000F40: 31 33 32 2C 33 2C 31 37 37 2C 33 2C 33 32 2C 32 |132,3,177,3,32,2|
00000F50: 31 30 2C 32 35 35 2C 31 36 35 2C 31 34 34 2C 32 |10,255,165,144,2|
00000F60: 30 38 2C 33 2C 32 30 30 2C 32 30 38 2C 32 34 34 |08,3,200,208,244|
00000F70: 2C 33 32 2C 32 30 34 2C 32 35 35 2C 39 36 00 00 |,32,204,255,96..|
00000F80: 00 |. |
....... *** DISK BACKUP ***.9.... *** CO
MPUTE JULY 83 ***.S....I.828.883:.A:.I,A
:.I.{...."D=DSAVE"@BACK2",D0:?DS$:CATALO
GD0.....BB.B(44).27:.995,BB......998,B(5
5):.999,B(56):.55,0:.56,BB:..J.(.BB.B(99
5)...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..".'GOTO10000'
IF PROGRAM QUITS ABNORMALLY".Z.D.."."N"
BUFFERS AVAILABLE"...N..1,8,15...H.. ***
MAIN FUNCTIONS ***...R..1000.F...D$."S"
:.3200:I2$.IR$......DR$.."2A"..".ILLIGAL
DOS 1.0 DISK.":.10000.8....I2$.I1$..".S
OURCE AND DESTINATION HAVE SAME ID CODE.
":.10000.B....2500.^...T.TS:S.0:NU.1:T1.
T:S1.S.U....1,"I0":.3,8,3,"#"......"READ
ING BLOCK #";..."..BM%(T1,S1).0..2000:NU
.NU.1:.NU.N.320.W.,.S1.S1.1:.S1.20.S1.0:
T1.T1.1...6..T1.TF.1.290...@.."."...J. 3
...T.D$."D":.3200:.IR$..I1$..340./.^..1,
"I0":.3,8,3,"#".H.H.."WRITING BUFFER #";
.[.R.NU.1:T1.T:S1.S...|..BM%(T1,S1).0..2
200:NU.NU.1:.NU.N.410.....S1.S1.1:.S1.20
.S1.0:T1.T1.1......T1.TF.1.380......".".
F... 3.....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.B.... FINI
SHED XFERS.I... 1.E....55,B(998):.56,B(9
99):..~...."..BACKUP COMPLETE"......1,8,
0,"$0"...&..#1,A$:.A$..".".550...0..A$;:
.610.X.:..#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...X..A.1.B.1..630.3.B..#1,A$:.A
$.""..:.570.A.L..A$;:.610.E.V..#1,A$:SS.
ST:A.C(A$):.A.A.F(A$)......#1,B$:SS.ST:B
.C(B$):.B.B.F(B$).....N.B.256.A:.N;:....
.. 1.......A.... HEADER DEST DISK......"
.INSERT DESTINATION DISK TO BE FORMATTED
"./...."..DISK NAME... .
..................";DN$.J....DN$." "..".
..";:.1020._....C(DN$).16..:.40.....F.0:
.J.1.C(DN$):S1$.J(DN$,J,1)...$..S1$." ".
S1$.G(34).F.1......J:.F.."...";:.1020...
8..".UNIQUE DISK ID...
.......................";I1$...B..I1$
." ".."..";:.1080.5.L..C(I1$)..2.."..";:
.1080.N.V..1,"N0:".DN$.",".I1$.X.`..3000
.L.J..ER..ER$:.10000.R.T.....P.. READ BL
OCK T1,S1 TO BUFFER # NU. .Z.C........1,
"U1";3;0;T1;S1.J....3000:..ER.2060.....C
.C.1:.C.3.2020......ER$:.J.(BB.NU).256.(
BB.NU).256.255:.J,.:.J:.2100.%....1,"B-P
";3;0.Q....NU..0.." ...";I(" ".D(NU),
3);"...";.V. ..996,B(3):.997,B(4):.4,BB.
NU:.MA...%..3,B(996):.4,B(997)...*..ST..
..ST..64..3000:.2050...4........ WRITE B
LOCK T1,S1 FROM BUFFER # NU.....C.......
.1,"B-A";0;T1;S1:.1,"B-P";3;0.*...." .
..";I(" ".D(NU),3);"...";.Q....996,B(3)
:.997,B(4):.4,BB.NU:.MA.3.I.E..3,B(996):
.4,B(997)...J..ST....ST..64..".IEEE WRIT
E HRROR"ST"..........I...............W..
Y...............YA.....M...XY.....XY.Q..
...........U..XP{.Y.BLE WRITE ERROR"ER$:
.10000.......&.D.. GET BAM TO BM%(T,S).4
.N.TS.1:TF...K.X..1,"I0":.3,8,3,"#".T...
S9.0.U....".TRACK # BLOCKS TO XFER"...
..."########################".....NU.0:T
1.18:S1.0:C0$.G(.):.2000.A...BY.4.S...T%
.(BY.4).4.1......" ";T%;...(..B(BA.BY).
...J...20:BM%(T%,J)..:.:BY.BY.4:.2650...
2.S.0.W.<.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.G.X..J.ES.24
:BM%(T%,J)..1:......SM..:.J...20:.BM%(T%
,J)...SM.SM.1......:..12);SM:S9.S9.SM.#.
...SM...TS.T%.TS.TS.1:.2730.4. ..SM....T
F.T%.E....BY.143.2580.L... 3.M...."START
=";TS;" FINISH =";TF...H..".A TOTAL OF"
;S9;"BLOCKS TO XFER"...R.S8.90.25.(.650.
.980).S9.....S7..(S8.60):."APPROX";S7":"
.(S8.S7.60);"FOR COPY"............ READ
ERR CH TO ER,ER$.?.B..1,E0$,E1$,E2$,E3$:
ER$.E0$.",".E1$.",".E2$.",".E3$.[.L.ER.C
(E0$):.ER.ER.E(E0$).A.V........ INSTRUCT
TO SWAP TO DISK GIVEN IN D$......D$."D"
.S1$."DESTINATION":.3230.A...S1$."SOURCE
"......".INSERT ";S1$;" DISK, PRESS .SPA
CE."......A$:.A$.." ".3240......2,8,0,"$
0".(....3000:.ER.0.10000.>.F..J.1.26:.#2
,A$:.J.Z.P..#2,A$:.#2,B$:IR$.A$.B$.}.Z..
#2,A$:.#2,A$:.#2,B$:DR$.A$.B$..... 2:...
..'. DROP OUT....'.55,B(998):.56,B(999):
.:.....:.76,66,3,76,91,3,162,3,32,198,25
5,160,0,132,3,32,207,255,145.8..:.3,165,
144,208,3,200,208,244,32,204,255,96,162,
3,32,201,255,160.~..:.0,132,3,177,3,32,2
10,255,165,144,208,3,200,208,244,32,204,
255,96...
> CLICK IMAGE PREVIEW FOR FULL MODAL