BACKUP BLOCK
FILE INFORMATION
FILENAME(S): BACKUP BLOCK
FILE TYPE(S): PRG
FILE SIZE: 3.9K
FIRST SEEN: 2025-12-02 23:21:47
APPEARS ON: 1 disk(s)
FILE HASH
9183526b1c81f35d97aefd81f76c1c669dd95f1d7564678922c5d7bd0f06e3dc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HILFSPROGRAMME | BACKUP BLOCK | PRG | swasti, dinkel | 22 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 01 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 33 08 02 00 8F |**********.3....|
00000020: 20 2A 20 36 34 20 44 49 53 4B 20 42 41 43 4B 55 | * 64 DISK BACKU|
00000030: 50 20 2A 00 4C 08 03 00 8F 20 2A 2A 2A 2A 2A 2A |P *.L.... ******|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 52 08 04 |************.R..|
00000050: 00 3A 00 6A 08 05 00 8F 20 41 55 53 20 43 4F 4D |.:.j.... AUS COM|
00000060: 50 55 54 45 21 20 37 2F 38 33 00 70 08 06 00 3A |PUTE! 7/83.p...:|
00000070: 00 76 08 07 00 3A 00 90 08 08 00 81 49 B2 38 32 |.v...:......I.82|
00000080: 38 A4 38 38 33 3A 87 41 3A 97 49 2C 41 3A 82 49 |8.883:.A:.I,A:.I|
00000090: 00 B8 08 0A 00 8F 22 44 3D 44 53 41 56 45 22 40 |......"D=DSAVE"@|
000000A0: 42 41 43 4B 32 22 2C 44 30 3A 3F 44 53 24 3A 43 |BACK2",D0:?DS$:C|
000000B0: 41 54 41 4C 4F 47 44 30 00 D0 08 14 00 42 42 B2 |ATALOGD0.....BB.|
000000C0: C2 28 34 34 29 AA 32 37 3A 97 39 39 35 2C 42 42 |.(44).27:.995,BB|
000000D0: 00 F9 08 1E 00 97 39 39 38 2C C2 28 35 35 29 3A |......998,.(55):|
000000E0: 97 39 39 39 2C C2 28 35 36 29 3A 97 35 35 2C 30 |.999,.(56):.55,0|
000000F0: 3A 97 35 36 2C 42 42 3A 9C 00 07 09 28 00 42 42 |:.56,BB:....(.BB|
00000100: B2 C2 28 39 39 35 29 00 2A 09 32 00 4E B2 C2 28 |..(995).*.2.N..(|
00000110: 39 39 39 29 AB 42 42 AB 31 3A 42 41 B2 42 42 AC |999).BB.1:BA.BB.|
00000120: 32 35 36 3A 4D 41 B2 38 32 38 00 3A 09 3C 00 86 |256:MA.828.:.<..|
00000130: 42 4D 25 28 33 35 2C 32 34 29 00 51 09 46 00 81 |BM%(35,24).Q.F..|
00000140: 4A B2 30 A4 37 3A 54 41 28 4A 29 B2 32 AE 4A 3A |J.0.7:TA(J).2.J:|
00000150: 82 00 6A 09 50 00 99 22 93 1D 1D 1D 12 42 41 43 |..j.P..".....BAC|
00000160: 4B 55 50 20 31 35 34 31 92 22 00 9B 09 5A 00 99 |KUP 1541."...Z..|
00000170: 22 11 27 47 4F 54 4F 31 30 30 30 30 27 20 49 46 |".'GOTO10000' IF|
00000180: 20 50 52 4F 47 52 41 4D 20 51 55 49 54 45 53 20 | PROGRAM QUITES |
00000190: 41 42 4E 4F 52 4D 41 4C 4C 59 22 00 B8 09 64 00 |ABNORMALLY"...d.|
000001A0: 99 22 11 22 4E 22 42 55 46 46 45 52 53 20 41 56 |."."N"BUFFERS AV|
000001B0: 41 49 4C 41 42 4C 45 22 00 C4 09 6E 00 9F 31 2C |AILABLE"...n..1,|
000001C0: 38 2C 31 35 00 E1 09 C8 00 8F 20 2A 2A 2A 20 4D |8,15...... *** M|
000001D0: 41 49 4E 20 46 55 4E 43 54 49 4F 4E 53 20 2A 2A |AIN FUNCTIONS **|
000001E0: 2A 00 EB 09 D2 00 8D 31 30 30 30 00 04 0A DC 00 |*......1000.....|
000001F0: 44 24 B2 22 53 22 3A 8D 33 32 30 30 3A 49 32 24 |D$."S":.3200:I2$|
00000200: B2 49 52 24 00 34 0A E6 00 8B 44 52 24 B3 B1 22 |.IR$.4....DR$.."|
00000210: 32 41 22 A7 99 22 12 49 4C 4C 45 47 41 4C 20 44 |2A"..".ILLEGAL D|
00000220: 4F 53 20 31 2E 30 20 44 49 53 4B 92 22 3A 89 31 |OS 1.0 DISK.":.1|
00000230: 30 30 30 30 00 76 0A F0 00 8B 49 32 24 B2 49 31 |0000.v....I2$.I1|
00000240: 24 A7 99 22 12 53 4F 55 52 43 45 20 41 4E 44 20 |$..".SOURCE AND |
00000250: 44 45 53 54 49 4E 41 54 49 4F 4E 20 48 41 56 45 |DESTINATION HAVE|
00000260: 20 53 41 4D 45 20 49 44 20 43 4F 44 45 92 22 3A | SAME ID CODE.":|
00000270: 89 31 30 30 30 30 00 80 0A FA 00 8D 32 35 30 30 |.10000......2500|
00000280: 00 9C 0A 04 01 54 B2 54 53 3A 53 B2 30 3A 4E 55 |.....T.TS:S.0:NU|
00000290: B2 31 3A 54 31 B2 54 3A 53 31 B2 53 00 B3 0A 0E |.1:T1.T:S1.S....|
000002A0: 01 98 31 2C 22 49 30 22 3A 9F 33 2C 38 2C 33 2C |..1,"I0":.3,8,3,|
000002B0: 22 23 22 00 CB 0A 18 01 99 22 52 45 41 44 49 4E |"#"......"READIN|
000002C0: 47 20 42 4C 4F 43 4B 20 23 22 3B 00 F5 0A 22 01 |G BLOCK #";...".|
000002D0: 8B 42 4D 25 28 54 31 2C 53 31 29 B2 30 A7 8D 32 |.BM%(T1,S1).0..2|
000002E0: 30 30 30 3A 4E 55 B2 4E 55 AA 31 3A 8B 4E 55 B1 |000:NU.NU.1:.NU.|
000002F0: 4E A7 33 32 30 00 15 0B 2C 01 53 31 B2 53 31 AA |N.320...,.S1.S1.|
00000300: 31 3A 8B 53 31 B1 32 30 A7 53 31 B2 30 3A 54 31 |1:.S1.20.S1.0:T1|
00000310: B2 54 31 AA 31 00 26 0B 36 01 8B 54 31 B3 54 46 |.T1.1.&.6..T1.TF|
00000320: AA 31 A7 32 39 30 00 2F 0B 40 01 99 22 11 22 00 |.1.290./.@..".".|
00000330: 36 0B 4A 01 A0 33 00 56 0B 54 01 44 24 B2 22 44 |6.J..3.V.T.D$."D|
00000340: 22 3A 8D 33 32 30 30 3A 8B 49 52 24 B3 B1 49 31 |":.3200:.IR$..I1|
00000350: 24 A7 89 33 34 30 00 6D 0B 5E 01 98 31 2C 22 49 |$..340.m.^..1,"I|
00000360: 30 22 3A 9F 33 2C 38 2C 33 2C 22 23 22 00 86 0B |0":.3,8,3,"#"...|
00000370: 68 01 99 22 57 52 49 54 49 4E 47 20 42 55 46 46 |h.."WRITING BUFF|
00000380: 45 52 20 23 22 3B 00 99 0B 72 01 4E 55 B2 31 3A |ER #";...r.NU.1:|
00000390: 54 31 B2 54 3A 53 31 B2 53 00 C3 0B 7C 01 8B 42 |T1.T:S1.S...|..B|
000003A0: 4D 25 28 54 31 2C 53 31 29 B2 30 A7 8D 32 32 30 |M%(T1,S1).0..220|
000003B0: 30 3A 4E 55 B2 4E 55 AA 31 3A 8B 4E 55 B1 4E A7 |0:NU.NU.1:.NU.N.|
000003C0: 34 31 30 00 E3 0B 86 01 53 31 B2 53 31 AA 31 3A |410.....S1.S1.1:|
000003D0: 8B 53 31 B1 32 30 A7 53 31 B2 30 3A 54 31 B2 54 |.S1.20.S1.0:T1.T|
000003E0: 31 AA 31 00 F4 0B 90 01 8B 54 31 B3 54 46 AA 31 |1.1......T1.TF.1|
000003F0: A7 33 38 30 00 FD 0B 9A 01 99 22 11 22 00 04 0C |.380......"."...|
00000400: A4 01 A0 33 00 21 0C AE 01 53 B2 53 31 AA 31 3A |...3.!...S.S1.1:|
00000410: 8B 53 B1 32 30 A7 53 B2 30 3A 54 31 B2 54 31 AA |.S.20.S.0:T1.T1.|
00000420: 31 00 34 0C B8 01 54 B2 54 31 3A 8B 54 B1 54 46 |1.4...T.T1:.T.TF|
00000430: A7 35 30 30 00 53 0C C2 01 44 24 B2 22 53 22 3A |.500.S...D$."S":|
00000440: 8D 33 32 30 30 3A 8B 49 52 24 B3 B1 49 32 24 A7 |.3200:.IR$..I2$.|
00000450: 34 35 30 00 6B 0C CC 01 4E 55 B2 31 3A 54 31 B2 |450.k...NU.1:T1.|
00000460: 54 3A 53 31 B2 53 3A 89 32 37 30 00 80 0C F4 01 |T:S1.S:.270.....|
00000470: 8F 20 46 49 4E 49 53 48 45 44 20 58 46 45 52 53 |. FINISHED XFERS|
00000480: 00 87 0C FE 01 A0 31 00 A3 0C 08 02 97 35 35 2C |......1......55,|
00000490: C2 28 39 39 38 29 3A 97 35 36 2C C2 28 39 39 39 |.(998):.56,.(999|
000004A0: 29 3A 9C 00 BC 0C 12 02 99 22 11 11 42 41 43 4B |):......."..BACK|
000004B0: 55 50 20 43 4F 4D 50 4C 45 54 45 22 00 CC 0C 1C |UP COMPLETE"....|
000004C0: 02 9F 31 2C 38 2C 30 2C 22 24 30 22 00 E4 0C 26 |..1,8,0,"$0"...&|
000004D0: 02 A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 22 12 22 |..#1,A$:.A$.."."|
000004E0: A7 35 35 30 00 F2 0C 30 02 99 41 24 3B 3A 89 36 |.550...0..A$;:.6|
000004F0: 31 30 00 16 0D 3A 02 A1 23 31 2C 41 24 3A 53 53 |10...:..#1,A$:SS|
00000500: B2 53 54 3A 41 B2 C3 28 41 24 29 3A 8B 41 A7 41 |.ST:A..(A$):.A.A|
00000510: B2 C6 28 41 24 29 00 3A 0D 44 02 A1 23 31 2C 42 |..(A$).:.D..#1,B|
00000520: 24 3A 53 53 B2 53 54 3A 42 B2 C3 28 42 24 29 3A |$:SS.ST:B..(B$):|
00000530: 8B 42 A7 41 B2 C6 28 42 24 29 00 46 0D 4E 02 8B |.B.A..(B$).F.N..|
00000540: 53 53 A7 36 36 30 00 58 0D 58 02 8B 41 B2 31 AF |SS.660.X.X..A.1.|
00000550: 42 B2 31 A7 8D 36 33 30 00 71 0D 62 02 A1 23 31 |B.1..630.q.b..#1|
00000560: 2C 41 24 3A 8B 41 24 B2 22 22 A7 99 3A 89 35 37 |,A$:.A$.""..:.57|
00000570: 30 00 7F 0D 6C 02 99 41 24 3B 3A 89 36 31 30 00 |0...l..A$;:.610.|
00000580: A3 0D 76 02 A1 23 31 2C 41 24 3A 53 53 B2 53 54 |..v..#1,A$:SS.ST|
00000590: 3A 41 B2 C3 28 41 24 29 3A 8B 41 A7 41 B2 C6 28 |:A..(A$):.A.A..(|
000005A0: 41 24 29 00 C7 0D 80 02 A1 23 31 2C 42 24 3A 53 |A$)......#1,B$:S|
000005B0: 53 B2 53 54 3A 42 B2 C3 28 42 24 29 3A 8B 42 A7 |S.ST:B..(B$):.B.|
000005C0: 41 B2 C6 28 42 24 29 00 DB 0D 8A 02 4E B2 42 AC |A..(B$).....N.B.|
000005D0: 32 35 36 AA 41 3A 99 4E 3B 3A 8E 00 E2 0D 94 02 |256.A:.N;:......|
000005E0: A0 31 00 E8 0D 9E 02 80 00 FF 0D E8 03 8F 20 48 |.1............ H|
000005F0: 45 41 44 45 52 20 44 45 53 54 20 44 49 53 4B 00 |EADER DEST DISK.|
00000600: 2F 0E F2 03 99 22 11 49 4E 53 45 52 54 20 44 45 |/....".INSERT DE|
00000610: 53 54 49 4E 41 54 49 4F 4E 20 44 49 53 4B 20 54 |STINATION DISK T|
00000620: 4F 20 42 45 20 46 4F 52 4D 41 54 54 45 44 22 00 |O BE FORMATTED".|
00000630: 6C 0E FC 03 85 22 11 11 44 49 53 4B 20 4E 41 4D |l...."..DISK NAM|
00000640: 45 1D 1D 1D A0 20 20 20 20 20 20 20 20 20 20 20 |E.... |
00000650: 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D | ............|
00000660: 9D 9D 9D 9D 9D 9D 9D 22 3B 44 4E 24 00 87 0E 06 |.......";DN$....|
00000670: 04 8B 44 4E 24 B2 22 A0 22 A7 99 22 11 11 11 22 |..DN$.".".."..."|
00000680: 3B 3A 89 31 30 32 30 00 9C 0E 10 04 8B C3 28 44 |;:.1020.......(D|
00000690: 4E 24 29 B1 31 36 A7 9C 3A 89 34 30 00 BF 0E 1A |N$).16..:.40....|
000006A0: 04 46 B2 30 3A 81 4A B2 31 A4 C3 28 44 4E 24 29 |.F.0:.J.1..(DN$)|
000006B0: 3A 53 31 24 B2 CA 28 44 4E 24 2C 4A 2C 31 29 00 |:S1$..(DN$,J,1).|
000006C0: DA 0E 24 04 8B 53 31 24 B2 22 A0 22 B0 53 31 24 |..$..S1$.".".S1$|
000006D0: B2 C7 28 33 34 29 A7 46 B2 31 00 F2 0E 2E 04 82 |..(34).F.1......|
000006E0: 4A 3A 8B 46 A7 99 22 11 11 11 22 3B 3A 89 31 30 |J:.F.."...";:.10|
000006F0: 32 30 00 3B 0F 38 04 85 22 11 55 4E 49 51 55 45 |20.;.8..".UNIQUE|
00000700: 20 44 49 53 4B 20 49 44 1D 1D 1D 20 20 20 20 20 | DISK ID... |
00000710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 9D | .|
00000720: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00000730: 9D 9D 9D 9D 9D 9D 22 3B 49 31 24 00 55 0F 42 04 |......";I1$.U.B.|
00000740: 8B 49 31 24 B2 22 20 22 A7 99 22 11 11 22 3B 3A |.I1$." ".."..";:|
00000750: 89 31 30 38 30 00 71 0F 4C 04 8B C3 28 49 31 24 |.1080.q.L...(I1$|
00000760: 29 B3 B1 32 A7 99 22 11 11 22 3B 3A 89 31 30 38 |)..2.."..";:.108|
00000770: 30 00 8A 0F 56 04 98 31 2C 22 4E 30 3A 22 AA 44 |0...V..1,"N0:".D|
00000780: 4E 24 AA 22 2C 22 AA 49 31 24 00 94 0F 60 04 8D |N$.",".I1$...`..|
00000790: 33 30 30 30 00 A8 0F 6A 04 8B 45 52 A7 99 45 52 |3000...j..ER..ER|
000007A0: 24 3A 89 31 30 30 30 30 00 AE 0F 74 04 8E 00 D4 |$:.10000...t....|
000007B0: 0F D0 07 8F 20 52 45 41 44 20 42 4C 4F 43 4B 20 |.... READ BLOCK |
000007C0: 54 31 2C 53 31 20 54 4F 5D 42 55 46 46 45 52 20 |T1,S1 TO]BUFFER |
000007D0: 23 20 4E 55 00 DC 0F DA 07 43 B2 2E 00 F2 0F E4 |# NU.....C......|
000007E0: 07 98 31 2C 22 55 31 22 3B 33 3B 30 3B 54 31 3B |..1,"U1";3;0;T1;|
000007F0: 53 31 00 06 10 EE 07 8D 33 30 30 30 3A 8B A8 45 |S1......3000:..E|
00000800: 52 A7 32 30 36 30 00 1A 10 F8 07 43 B2 43 AA 31 |R.2060.....C.C.1|
00000810: 3A 8B 43 B3 33 89 32 30 32 30 00 50 10 02 08 99 |:.C.3.2020.P....|
00000820: 45 52 24 3A 81 4A B2 28 42 42 AA 4E 55 29 AC 32 |ER$:.J.(BB.NU).2|
00000830: 35 36 A4 28 42 42 AA 4E 55 29 AC 32 35 36 AA 32 |56.(BB.NU).256.2|
00000840: 35 35 3A 97 4A 2C 2E 3A 82 4A 3A 89 32 31 30 30 |55:.J,.:.J:.2100|
00000850: 00 61 10 0C 08 98 31 2C 22 42 2D 50 22 3B 33 3B |.a....1,"B-P";3;|
00000860: 30 00 8D 10 16 08 8B 4E 55 B3 B1 30 A7 99 22 20 |0......NU..0.." |
00000870: 20 20 9D 9D 9D 22 3B C9 28 22 20 20 22 AA C4 28 | ...";.(" "..(|
00000880: 4E 55 29 2C 33 29 3B 22 9D 9D 9D 22 3B 00 B2 10 |NU),3);"...";...|
00000890: 20 08 97 39 39 36 2C C2 28 33 29 3A 97 39 39 37 | ..996,.(3):.997|
000008A0: 2C C2 28 34 29 3A 97 34 2C 42 42 AA 4E 55 3A 9E |,.(4):.4,BB.NU:.|
000008B0: 4D 41 00 CA 10 25 08 97 33 2C C2 28 39 39 36 29 |MA...%..3,.(996)|
000008C0: 3A 97 34 2C C2 28 39 39 37 29 00 E8 10 2A 08 8B |:.4,.(997)...*..|
000008D0: 53 54 B3 B1 2E AF 53 54 B3 B1 36 34 A7 8D 33 30 |ST....ST..64..30|
000008E0: 30 30 3A 89 32 30 35 30 00 EE 10 34 08 8E 00 17 |00:.2050...4....|
000008F0: 11 98 08 8F 20 57 52 49 54 45 20 42 4C 4F 43 4B |.... WRITE BLOCK|
00000900: 20 54 31 2C 53 31 20 46 52 4F 4D 20 42 55 46 46 | T1,S1 FROM BUFF|
00000910: 45 52 20 23 20 4E 55 00 1F 11 A2 08 43 B2 2E 00 |ER # NU.....C...|
00000920: 41 11 AC 08 98 31 2C 22 42 2D 41 22 3B 30 3B 54 |A....1,"B-A";0;T|
00000930: 31 3B 53 31 3A 98 31 2C 22 42 2D 50 22 3B 33 3B |1;S1:.1,"B-P";3;|
00000940: 30 00 66 11 B6 08 99 22 20 20 20 9D 9D 9D 22 3B |0.f...." ...";|
00000950: C9 28 22 20 20 22 AA C4 28 4E 55 29 2C 33 29 3B |.(" "..(NU),3);|
00000960: 22 9D 9D 9D 22 3B 00 8D 11 C0 08 97 39 39 36 2C |"...";......996,|
00000970: C2 28 33 29 3A 97 39 39 37 2C C2 28 34 29 3A 97 |.(3):.997,.(4):.|
00000980: 34 2C 42 42 AA 4E 55 3A 9E 4D 41 AA 33 00 A5 11 |4,BB.NU:.MA.3...|
00000990: C5 08 97 33 2C C2 28 39 39 36 29 3A 97 34 2C C2 |...3,.(996):.4,.|
000009A0: 28 39 39 37 29 00 D8 11 CA 08 8B 53 54 B3 B1 2E |(997)......ST...|
000009B0: AF 53 54 B3 B1 36 34 A7 99 22 12 49 45 45 45 20 |.ST..64..".IEEE |
000009C0: 57 52 49 54 45 20 45 52 52 4F 52 22 53 54 22 92 |WRITE ERROR"ST".|
000009D0: 22 3A 89 31 30 30 30 30 00 EE 11 D4 08 98 31 2C |":.10000......1,|
000009E0: 22 55 32 22 3B 33 3B 30 3B 54 31 3B 53 31 00 02 |"U2";3;0;T1;S1..|
000009F0: 12 DE 08 8D 33 30 30 30 3A 8B A8 45 52 A7 32 33 |....3000:..ER.23|
00000A00: 30 30 00 16 12 E8 08 43 B2 43 AA 31 3A 8B 43 B3 |00.....C.C.1:.C.|
00000A10: 33 A7 32 32 36 30 00 42 12 F2 08 99 22 12 55 4E |3.2260.B....".UN|
00000A20: 52 45 43 4F 56 45 52 41 42 4C 45 20 57 52 49 54 |RECOVERABLE WRIT|
00000A30: 45 20 45 52 52 4F 52 22 45 52 24 3A 89 31 30 30 |E ERROR"ER$:.100|
00000A40: 30 30 00 48 12 FC 08 8E 00 62 12 C4 09 8F 20 47 |00.H.....b.... G|
00000A50: 45 54 20 42 41 4D 20 54 4F 20 42 4D 25 28 54 2C |ET BAM TO BM%(T,|
00000A60: 53 29 00 70 12 CE 09 54 53 B2 31 3A 54 46 B2 2E |S).p...TS.1:TF..|
00000A70: 00 87 12 D8 09 98 31 2C 22 49 30 22 3A 9F 33 2C |......1,"I0":.3,|
00000A80: 38 2C 33 2C 22 23 22 00 90 12 E2 09 53 39 B2 30 |8,3,"#".....S9.0|
00000A90: 00 B1 12 EC 09 99 22 11 54 52 41 43 4B 20 23 20 |......".TRACK # |
00000AA0: 20 20 42 4C 4F 43 4B 53 20 54 4F 20 58 46 45 52 | BLOCKS TO XFER|
00000AB0: 22 00 D1 12 F6 09 99 22 23 23 23 23 23 23 23 23 |"......"########|
00000AC0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000AD0: 22 00 F4 12 00 0A 4E 55 B2 30 3A 54 31 B2 31 38 |".....NU.0:T1.18|
00000AE0: 3A 53 31 B2 30 3A 43 30 24 B2 C7 28 2E 29 3A 8D |:S1.0:C0$..(.):.|
00000AF0: 32 30 30 30 00 FD 12 0A 0A 42 59 B2 34 00 0F 13 |2000.....BY.4...|
00000B00: 14 0A 54 25 B2 28 42 59 AB 34 29 AD 34 AA 31 00 |..T%.(BY.4).4.1.|
00000B10: 1D 13 1E 0A 99 22 20 20 22 3B 54 25 3B 00 51 13 |....." ";T%;.Q.|
00000B20: 28 0A 8B C2 28 42 41 AA 42 59 29 B2 2E A7 81 4A |(...(BA.BY)....J|
00000B30: B2 2E A4 32 30 3A 42 4D 25 28 54 25 2C 4A 29 B2 |...20:BM%(T%,J).|
00000B40: 2E 3A 82 3A 42 59 B2 42 59 AA 34 3A 89 32 36 35 |.:.:BY.BY.4:.265|
00000B50: 30 00 59 13 32 0A 53 B2 30 00 93 13 3C 0A 42 59 |0.Y.2.S.0...<.BY|
00000B60: B2 42 59 AA 31 3A 41 30 B2 C2 28 42 41 AA 42 59 |.BY.1:A0..(BA.BY|
00000B70: 29 3A 81 4A B2 2E A4 37 3A 42 4D 25 28 54 25 2C |):.J...7:BM%(T%,|
00000B80: 53 29 B2 41 30 AF 54 41 28 4A 29 3A 53 B2 53 AA |S).A0.TA(J):S.S.|
00000B90: 31 3A 82 00 A2 13 46 0A 8B 53 B3 32 32 A7 32 36 |1:....F..S.22.26|
00000BA0: 32 30 00 AE 13 50 0A 42 59 B2 42 59 AA 31 00 C5 |20...P.BY.BY.1..|
00000BB0: 13 5A 0A 45 53 B2 32 31 3A 8B 54 25 B1 31 37 A7 |.Z.ES.21:.T%.17.|
00000BC0: 45 53 B2 31 39 00 D6 13 64 0A 8B 54 25 B1 32 34 |ES.19...d..T%.24|
00000BD0: A7 45 53 B2 31 38 00 E7 13 6E 0A 8B 54 25 B1 33 |.ES.18...n..T%.3|
00000BE0: 30 A7 45 53 B2 31 37 00 03 14 78 0A 81 4A B2 45 |0.ES.17...x..J.E|
00000BF0: 53 A4 32 34 3A 42 4D 25 28 54 25 2C 4A 29 B2 AB |S.24:BM%(T%,J)..|
00000C00: 31 3A 82 00 29 14 82 0A 53 4D B2 2E 3A 81 4A B2 |1:..)...SM..:.J.|
00000C10: 2E A4 32 30 3A 8B 42 4D 25 28 54 25 2C 4A 29 B2 |..20:.BM%(T%,J).|
00000C20: 2E A7 53 4D B2 53 4D AA 31 00 42 14 8C 0A 82 3A |..SM.SM.1.B....:|
00000C30: 99 20 A3 31 32 29 3B 53 4D 3A 53 39 B2 53 39 AA |. .12);SM:S9.S9.|
00000C40: 53 4D 00 60 14 96 0A 8B 53 4D B2 2E AF 54 53 B2 |SM.`....SM...TS.|
00000C50: 54 25 A7 54 53 B2 54 53 AA 31 3A 89 32 37 33 30 |T%.TS.TS.1:.2730|
00000C60: 00 71 14 A0 0A 8B 53 4D B3 B1 2E A7 54 46 B2 54 |.q....SM....TF.T|
00000C70: 25 00 82 14 AA 0A 8B 42 59 B3 31 34 33 A7 32 35 |%......BY.143.25|
00000C80: 38 30 00 89 14 B4 0A A0 33 00 AA 14 BE 0A 99 22 |80......3......"|
00000C90: 53 54 41 52 54 20 3D 22 3B 54 53 3B 22 20 46 49 |START =";TS;" FI|
00000CA0: 4E 49 53 48 20 3D 22 3B 54 46 00 D1 14 C8 0A 99 |NISH =";TF......|
00000CB0: 22 11 41 20 54 4F 54 41 4C 20 4F 46 22 3B 53 39 |".A TOTAL OF";S9|
00000CC0: 3B 22 42 4C 4F 43 4B 53 20 54 4F 20 58 46 45 52 |;"BLOCKS TO XFER|
00000CD0: 22 00 ED 14 D2 0A 53 38 B2 39 30 AA 32 35 AA 28 |".....S8.90.25.(|
00000CE0: 2E 36 35 30 AA 2E 39 38 30 29 AC 53 39 00 23 15 |.650..980).S9.#.|
00000CF0: DC 0A 53 37 B2 B5 28 53 38 AD 36 30 29 3A 99 22 |..S7..(S8.60):."|
00000D00: 41 50 50 52 4F 58 22 3B 53 37 22 3A 22 B5 28 53 |APPROX";S7":".(S|
00000D10: 38 AB 53 37 AC 36 30 29 3B 22 46 4F 52 20 43 4F |8.S7.60);"FOR CO|
00000D20: 50 59 22 00 29 15 E6 0A 8E 00 45 15 B8 0B 8F 20 |PY".).....E.... |
00000D30: 52 45 41 44 20 45 52 52 20 43 48 20 54 4F 20 45 |READ ERR CH TO E|
00000D40: 52 2C 45 52 24 00 7C 15 C2 0B 84 31 2C 45 30 24 |R,ER$.|....1,E0$|
00000D50: 2C 45 31 24 2C 45 32 24 2C 45 33 24 3A 45 52 24 |,E1$,E2$,E3$:ER$|
00000D60: B2 45 30 24 AA 22 2C 22 AA 45 31 24 AA 22 2C 22 |.E0$.",".E1$.","|
00000D70: AA 45 32 24 AA 22 2C 22 AA 45 33 24 00 98 15 CC |.E2$.",".E3$....|
00000D80: 0B 45 52 B2 C3 28 45 30 24 29 3A 8B 45 52 A7 45 |.ER..(E0$):.ER.E|
00000D90: 52 B2 C5 28 45 30 24 29 00 9E 15 D6 0B 8E 00 C9 |R..(E0$)........|
00000DA0: 15 80 0C 8F 20 49 4E 53 54 52 55 43 54 20 54 4F |.... INSTRUCT TO|
00000DB0: 20 53 57 41 50 20 54 4F 20 44 49 53 4B 20 47 49 | SWAP TO DISK GI|
00000DC0: 56 45 4E 20 49 4E 20 44 24 00 ED 15 8A 0C 8B 44 |VEN IN D$......D|
00000DD0: 24 B2 22 44 22 A7 53 31 24 B2 22 44 45 53 54 49 |$."D".S1$."DESTI|
00000DE0: 4E 41 54 49 4F 4E 22 3A 89 33 32 33 30 00 FE 15 |NATION":.3230...|
00000DF0: 94 0C 53 31 24 B2 22 53 4F 55 52 43 45 22 00 29 |..S1$."SOURCE".)|
00000E00: 16 9E 0C 99 22 11 49 4E 53 45 52 54 20 22 3B 53 |....".INSERT ";S|
00000E10: 31 24 3B 22 20 44 49 53 4B 2C 20 50 52 45 53 53 |1$;" DISK, PRESS|
00000E20: 20 12 53 50 41 43 45 92 22 00 3F 16 A8 0C A1 41 | .SPACE.".?....A|
00000E30: 24 3A 8B 41 24 B3 B1 22 20 22 A7 33 32 34 30 00 |$:.A$.." ".3240.|
00000E40: 4F 16 B2 0C 9F 32 2C 38 2C 30 2C 22 24 30 22 00 |O....2,8,0,"$0".|
00000E50: 65 16 BC 0C 8D 33 30 30 30 3A 8B 45 52 B1 30 A7 |e....3000:.ER.0.|
00000E60: 31 30 30 30 30 00 7B 16 C6 0C 81 4A B2 31 A4 32 |10000.{....J.1.2|
00000E70: 36 3A A1 23 32 2C 41 24 3A 82 4A 00 97 16 D0 0C |6:.#2,A$:.J.....|
00000E80: A1 23 32 2C 41 24 3A A1 23 32 2C 42 24 3A 49 52 |.#2,A$:.#2,B$:IR|
00000E90: 24 B2 41 24 AA 42 24 00 BA 16 DA 0C A1 23 32 2C |$.A$.B$......#2,|
00000EA0: 41 24 3A A1 23 32 2C 41 24 3A A1 23 32 2C 42 24 |A$:.#2,A$:.#2,B$|
00000EB0: 3A 44 52 24 B2 41 24 AA 42 24 00 C3 16 E4 0C A0 |:DR$.A$.B$......|
00000EC0: 32 3A 8E 00 D3 16 10 27 8F 20 20 44 52 4F 50 20 |2:.....'. DROP |
00000ED0: 4F 55 54 00 F1 16 1A 27 97 35 35 2C C2 28 39 39 |OUT....'.55,.(99|
00000EE0: 38 29 3A 97 35 36 2C C2 28 39 39 39 29 3A 9C 3A |8):.56,.(999):.:|
00000EF0: 90 00 33 17 98 3A 83 20 37 36 2C 36 36 2C 33 2C |..3..:. 76,66,3,|
00000F00: 37 36 2C 39 31 2C 33 2C 31 36 32 2C 33 2C 33 32 |76,91,3,162,3,32|
00000F10: 2C 31 39 38 2C 32 35 35 2C 31 36 30 2C 30 2C 31 |,198,255,160,0,1|
00000F20: 33 32 2C 33 2C 33 32 2C 32 30 37 2C 32 35 35 2C |32,3,32,207,255,|
00000F30: 31 34 35 00 78 17 A2 3A 83 20 33 2C 31 36 35 2C |145.x..:. 3,165,|
00000F40: 31 34 34 2C 32 30 38 2C 33 2C 32 30 30 2C 32 30 |144,208,3,200,20|
00000F50: 38 2C 32 34 34 2C 33 32 2C 32 30 34 2C 32 35 35 |8,244,32,204,255|
00000F60: 2C 39 36 2C 31 36 32 2C 33 2C 33 32 2C 32 30 31 |,96,162,3,32,201|
00000F70: 2C 32 35 35 2C 31 36 30 00 BF 17 AC 3A 83 20 30 |,255,160....:. 0|
00000F80: 2C 31 33 32 2C 33 2C 31 37 37 2C 33 2C 33 32 2C |,132,3,177,3,32,|
00000F90: 32 31 30 2C 32 35 35 2C 31 36 35 2C 31 34 34 2C |210,255,165,144,|
00000FA0: 32 30 38 2C 33 2C 32 30 30 2C 32 30 38 2C 32 34 |208,3,200,208,24|
00000FB0: 34 2C 33 32 2C 32 30 34 2C 32 35 35 2C 39 36 00 |4,32,204,255,96.|
00000FC0: 00 00 48 00 FF |..H.. |
....... ******************.3.... * 64 DI
SK BACKUP *.L.... ******************.R..
.:.J.... AUS COMPUTE! 7/83.P...:.V...:..
....I.828.883:.A:.I,A:.I......"D=DSAVE"@
BACK2",D0:?DS$:CATALOGD0.P...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).Q.F..
J.0.7:TA(J).2.J:..J.P..".....BACKUP 1541
."...Z..".'GOTO10000' IF PROGRAM QUITES
ABNORMALLY"...D.."."N"BUFFERS AVAILABLE"
.D.N..1,8,15...H.. *** MAIN FUNCTIONS **
*...R..1000.....D$."S":.3200:I2$.IR$.4..
..DR$.."2A"..".ILLEGAL DOS 1.0 DISK.":.1
0000.V....I2$.I1$..".SOURCE AND DESTINAT
ION HAVE SAME ID CODE.":.10000......2500
.....T.TS:S.0:NU.1:T1.T:S1.S......1,"I0"
:.3,8,3,"#".K...."READING 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./.@..".".6.J. 3.V.T.D$."D":.3200:
.IR$..I1$..340.M.^..1,"I0":.3,8,3,"#"...
H.."WRITING BUFFER #";...R.NU.1:T1.T:S1.
S.C.|..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.!...S.S1.1:
.S.20.S.0:T1.T1.1.4...T.T1:.T.TF.500.S.B
.D$."S":.3200:.IR$..I2$.450.K.L.NU.1:T1.
T:S1.S:.270...... FINISHED XFERS..... 1.
.....55,B(998):.56,B(999):......."..BACK
UP COMPLETE".L....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$).F.N..SS.660.X.X..A.1.
B.1..630.Q.B..#1,A$:.A$.""..:.570..L..A
$;:.610...V..#1,A$:SS.ST:A.C(A$):.A.A.F(
A$).G....#1,B$:SS.ST:B.C(B$):.B.A.F(B$).
....N.B.256.A:.N;:...... 1............ H
EADER DEST DISK./....".INSERT DESTINATIO
N DISK TO BE FORMATTED".L...."..DISK NAM
E... ..................."
;DN$......DN$." ".."...";:.1020......C(D
N$).16..:.40.....F.0:.J.1.C(DN$):S1$.J(D
N$,J,1).Z.$..S1$." ".S1$.G(34).F.1......
J:.F.."...";:.1020.;.8..".UNIQUE DISK ID
... .................
......";I1$.U.B..I1$." ".."..";:.1080.Q.
L..C(I1$)..2.."..";:.1080...V..1,"N0:".D
N$.",".I1$...`..3000...J..ER..ER$:.10000
...T...T.P.. READ BLOCK T1,S1 TO]BUFFER
# NU...Z.C........1,"U1";3;0;T1;S1......
3000:..ER.2060.....C.C.1:.C.3.2020.P....
ER$:.J.(BB.NU).256.(BB.NU).256.255:.J,.:
.J:.2100.A....1,"B-P";3;0......NU..0.."
...";I(" ".D(NU),3);"...";... ..996,B
(3):.997,B(4):.4,BB.NU:.MA.J.%..3,B(996)
:.4,B(997)...*..ST....ST..64..3000:.2050
...4........ WRITE BLOCK T1,S1 FROM BUFF
ER # NU.....C...A....1,"B-A";0;T1;S1:.1,
"B-P";3;0.F...." ...";I(" ".D(NU),3);
"...";......996,B(3):.997,B(4):.4,BB.NU:
.MA.3...E..3,B(996):.4,B(997).X.J..ST...
.ST..64..".IEEE WRITE ERROR"ST".":.10000
...T..1,"U2";3;0;T1;S1......3000:..ER.23
00.....C.C.1:.C.3.2260.B....".UNRECOVERA
BLE WRITE ERROR"ER$:.10000.H.....B.D.. G
ET BAM TO BM%(T,S).P.N.TS.1:TF.....X..1,
"I0":.3,8,3,"#".....S9.0......".TRACK #
BLOCKS TO XFER".Q...."################
########".....NU.0:T1.18:S1.0:C0$.G(.):.
2000.....BY.4.....T%.(BY.4).4.1......"
";T%;.Q.(..B(BA.BY)....J...20:BM%(T%,J).
.:.:BY.BY.4:.2650.Y.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...P.BY.BY.1.E.Z.ES.21
:.T%.17.ES.19.V.D..T%.24.ES.18...N..T%.3
0.ES.17...X..J.ES.24:BM%(T%,J)..1:..)...
SM..:.J...20:.BM%(T%,J)...SM.SM.1.B....:
. .12);SM:S9.S9.SM.`....SM...TS.T%.TS.TS
.1:.2730.Q. ..SM....TF.T%......BY.143.25
80..... 3......"START =";TS;" FINISH =";
TF.Q.H..".A TOTAL OF";S9;"BLOCKS TO XFER
"...R.S8.90.25.(.650..980).S9.#...S7..(S
8.60):."APPROX";S7":".(S8.S7.60);"FOR CO
PY".).....E.... 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$)
...V...I.... INSTRUCT TO SWAP TO DISK GI
VEN IN D$......D$."D".S1$."DESTINATION":
.3230.....S1$."SOURCE".)....".INSERT ";S
1$;" DISK, PRESS .SPACE.".?....A$:.A$.."
".3240.O....2,8,0,"$0".E....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$.C... 2:..S..'. DROP OUT....'
.55,B(998):.56,B(999):.:..3..:. 76,66,3,
76,91,3,162,3,32,198,255,160,0,132,3,32,
207,255,145.X..:. 3,165,144,208,3,200,20
8,244,32,204,255,96,162,3,32,201,255,160
....:. 0,132,3,177,3,32,210,255,165,144,
208,3,200,208,244,32,204,255,96...H..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL