BACK UP 1541
FILE INFORMATION
FILENAME(S): BACK UP 1541
FILE TYPE(S): PRG
FILE SIZE: 3.9K
FIRST SEEN: 2025-12-01 01:09:58
APPEARS ON: 1 disk(s)
FILE HASH
ad7cef74f394acd10d9213f97a10eda5c1b7ab3ef73816a794009e8b437c7f90
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CA EN NYTTO DISK | BACK UP 1541 | PRG | hedning, Martin L0fgren | 27 | 15 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
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 43 08 0A 00 |:.A:.I,A:.I.C...|
00000020: 8F 22 44 3D 44 53 41 56 45 22 40 42 41 43 4B 32 |."D=DSAVE"@BACK2|
00000030: 22 2C 44 30 3A 3F 44 53 24 3A 43 41 54 41 4C 4F |",D0:?DS$:CATALO|
00000040: 47 44 30 00 5B 08 14 00 42 42 B2 C2 28 34 34 29 |GD0.[...BB..(44)|
00000050: AA 32 37 3A 97 39 39 35 2C 42 42 00 84 08 1E 00 |.27:.995,BB.....|
00000060: 97 39 39 38 2C C2 28 35 35 29 3A 97 39 39 39 2C |.998,.(55):.999,|
00000070: C2 28 35 36 29 3A 97 35 35 2C 30 3A 97 35 36 2C |.(56):.55,0:.56,|
00000080: 42 42 3A 9C 00 92 08 28 00 42 42 B2 C2 28 39 39 |BB:....(.BB..(99|
00000090: 35 29 00 B5 08 32 00 4E B2 C2 28 39 39 39 29 AB |5)...2.N..(999).|
000000A0: 42 42 AB 31 3A 42 41 B2 42 42 AC 32 35 36 3A 4D |BB.1:BA.BB.256:M|
000000B0: 41 B2 38 32 38 00 C5 08 3C 00 86 42 4D 25 28 33 |A.828...<..BM%(3|
000000C0: 35 2C 32 34 29 00 DC 08 46 00 81 4A B2 30 A4 37 |5,24)...F..J.0.7|
000000D0: 3A 54 41 28 4A 29 B2 32 AE 4A 3A 82 00 F5 08 50 |:TA(J).2.J:....P|
000000E0: 00 99 22 93 1D 1D 1D 12 42 41 43 4B 55 50 20 31 |..".....BACKUP 1|
000000F0: 35 34 31 92 22 00 25 09 5A 00 99 22 11 27 47 4F |541.".%.Z..".'GO|
00000100: 54 4F 31 30 30 30 30 27 20 49 46 20 50 52 4F 47 |TO10000' IF PROG|
00000110: 52 41 4D 20 51 55 49 54 53 20 41 42 4E 4F 52 4D |RAM QUITS ABNORM|
00000120: 41 4C 4C 59 22 00 42 09 64 00 99 22 11 22 4E 22 |ALLY".B.d.."."N"|
00000130: 42 55 46 46 45 52 53 20 41 56 41 49 4C 41 42 4C |BUFFERS AVAILABL|
00000140: 45 22 00 4E 09 6E 00 9F 31 2C 38 2C 31 35 00 6C |E".N.n..1,8,15.l|
00000150: 09 C8 00 8F 20 2A 2A 2A 20 4D 41 49 4E 20 46 55 |.... *** MAIN FU|
00000160: 4E 43 54 49 4F 4E 53 20 2A 2A 2A 2A 00 76 09 D2 |NCTIONS ****.v..|
00000170: 00 8D 31 30 30 30 00 8F 09 DC 00 44 24 B2 22 53 |..1000.....D$."S|
00000180: 22 3A 8D 33 32 30 30 3A 49 32 24 B2 49 52 24 00 |":.3200:I2$.IR$.|
00000190: BF 09 E6 00 8B 44 52 24 B3 B1 22 32 41 22 A7 99 |.....DR$.."2A"..|
000001A0: 22 12 49 4C 4C 45 47 41 4C 20 44 4F 53 20 31 2E |".ILLEGAL DOS 1.|
000001B0: 30 20 44 49 53 4B 92 22 3A 89 31 30 30 30 30 00 |0 DISK.":.10000.|
000001C0: 01 0A F0 00 8B 49 32 24 B2 49 31 24 A7 99 22 12 |.....I2$.I1$..".|
000001D0: 53 4F 55 52 43 45 20 41 4E 44 20 44 45 53 54 49 |SOURCE AND DESTI|
000001E0: 4E 41 54 49 4F 4E 20 48 41 56 45 20 53 41 4D 45 |NATION HAVE SAME|
000001F0: 20 49 44 20 43 4F 44 45 92 22 3A 89 31 30 30 30 | ID CODE.":.1000|
00000200: 30 00 0B 0A FA 00 8D 32 35 30 30 00 27 0A 04 01 |0......2500.'...|
00000210: 54 B2 54 53 3A 53 B2 30 3A 4E 55 B2 31 3A 54 31 |T.TS:S.0:NU.1:T1|
00000220: B2 54 3A 53 31 B2 53 00 3E 0A 0E 01 98 31 2C 22 |.T:S1.S.>....1,"|
00000230: 49 30 22 3A 9F 33 2C 38 2C 33 2C 22 23 22 00 56 |I0":.3,8,3,"#".V|
00000240: 0A 18 01 99 22 52 45 41 44 49 4E 47 20 42 4C 4F |...."READING BLO|
00000250: 43 4B 20 23 22 3B 00 80 0A 22 01 8B 42 4D 25 28 |CK #";..."..BM%(|
00000260: 54 31 2C 53 31 29 B2 30 A7 8D 32 30 30 30 3A 4E |T1,S1).0..2000:N|
00000270: 55 B2 4E 55 AA 31 3A 8B 4E 55 B1 4E A7 33 32 30 |U.NU.1:.NU.N.320|
00000280: 00 A0 0A 2C 01 53 31 B2 53 31 AA 31 3A 8B 53 31 |...,.S1.S1.1:.S1|
00000290: B1 32 30 A7 53 31 B2 30 3A 54 31 B2 54 31 AA 31 |.20.S1.0:T1.T1.1|
000002A0: 00 B1 0A 36 01 8B 54 31 B3 54 46 AA 31 A7 32 39 |...6..T1.TF.1.29|
000002B0: 30 00 BA 0A 40 01 99 22 11 22 00 C1 0A 4A 01 A0 |0...@.."."...J..|
000002C0: 33 00 E1 0A 54 01 44 24 B2 22 44 22 3A 8D 33 32 |3...T.D$."D":.32|
000002D0: 30 30 3A 8B 49 52 24 B3 B1 49 31 24 A7 89 33 34 |00:.IR$..I1$..34|
000002E0: 30 00 F8 0A 5E 01 98 31 2C 22 49 30 22 3A 9F 33 |0...^..1,"I0":.3|
000002F0: 2C 38 2C 33 2C 22 23 22 00 11 0B 68 01 99 22 57 |,8,3,"#"...h.."W|
00000300: 52 49 54 49 4E 47 20 42 55 46 46 45 52 20 23 22 |RITING BUFFER #"|
00000310: 3B 00 24 0B 72 01 4E 55 B2 31 3A 54 31 B2 54 3A |;.$.r.NU.1:T1.T:|
00000320: 53 31 B2 53 00 4E 0B 7C 01 8B 42 4D 25 28 54 31 |S1.S.N.|..BM%(T1|
00000330: 2C 53 31 29 B2 30 A7 8D 32 32 30 30 3A 4E 55 B2 |,S1).0..2200:NU.|
00000340: 4E 55 AA 31 3A 8B 4E 55 B1 4E A7 34 31 30 00 6E |NU.1:.NU.N.410.n|
00000350: 0B 86 01 53 31 B2 53 31 AA 31 3A 8B 53 31 B1 32 |...S1.S1.1:.S1.2|
00000360: 30 A7 53 31 B2 30 3A 54 31 B2 54 31 AA 31 00 7F |0.S1.0:T1.T1.1..|
00000370: 0B 90 01 8B 54 31 B3 54 46 AA 31 A7 33 38 30 00 |....T1.TF.1.380.|
00000380: 88 0B 9A 01 99 22 11 22 00 8F 0B A4 01 A0 33 00 |....."."......3.|
00000390: AD 0B AE 01 53 B2 53 31 AA 31 3A 8B 53 B1 32 30 |....S.S1.1:.S.20|
000003A0: A7 53 B2 30 3A 3A 54 31 B2 54 31 AA 31 00 C0 0B |.S.0::T1.T1.1...|
000003B0: B8 01 54 B2 54 31 3A 8B 54 B1 54 46 A7 35 30 30 |..T.T1:.T.TF.500|
000003C0: 00 DF 0B C2 01 44 24 B2 22 53 22 3A 8D 33 32 30 |.....D$."S":.320|
000003D0: 30 3A 8B 49 52 24 B3 B1 49 32 24 A7 34 35 30 00 |0:.IR$..I2$.450.|
000003E0: F7 0B CC 01 4E 55 B2 31 3A 54 31 B2 54 3A 53 31 |....NU.1:T1.T:S1|
000003F0: B2 53 3A 89 32 37 30 00 0C 0C F4 01 8F 20 46 49 |.S:.270...... FI|
00000400: 4E 49 53 48 45 44 20 58 46 45 52 53 00 13 0C FE |NISHED XFERS....|
00000410: 01 A0 31 00 2F 0C 08 02 97 35 35 2C C2 28 39 39 |..1./....55,.(99|
00000420: 38 29 3A 97 35 36 2C C2 28 39 39 39 29 3A 9C 00 |8):.56,.(999):..|
00000430: 48 0C 12 02 99 22 11 11 42 41 43 4B 55 50 20 43 |H...."..BACKUP C|
00000440: 4F 4D 50 4C 45 54 45 22 00 58 0C 1C 02 9F 31 2C |OMPLETE".X....1,|
00000450: 38 2C 30 2C 22 24 30 22 00 70 0C 26 02 A1 23 31 |8,0,"$0".p.&..#1|
00000460: 2C 41 24 3A 8B 41 24 B3 B1 22 12 22 A7 35 35 30 |,A$:.A$..".".550|
00000470: 00 7E 0C 30 02 99 41 24 3B 3A 89 36 31 30 00 A2 |.~.0..A$;:.610..|
00000480: 0C 3A 02 A1 23 31 2C 41 24 3A 53 53 B2 53 54 3A |.:..#1,A$:SS.ST:|
00000490: 41 B2 C3 28 41 24 29 3A 8B 41 A7 41 B2 C6 28 41 |A..(A$):.A.A..(A|
000004A0: 24 29 00 C6 0C 44 02 A1 23 31 2C 42 24 3A 53 53 |$)...D..#1,B$:SS|
000004B0: B2 53 54 3A 42 B2 C3 28 42 24 29 3A 8B 42 A7 41 |.ST:B..(B$):.B.A|
000004C0: B2 C6 28 42 24 29 00 D2 0C 4E 02 8B 53 53 A7 36 |..(B$)...N..SS.6|
000004D0: 36 30 00 E4 0C 58 02 8B 41 B2 31 AF 42 B2 31 A7 |60...X..A.1.B.1.|
000004E0: 8D 36 33 30 00 FD 0C 62 02 A1 23 31 2C 41 24 3A |.630...b..#1,A$:|
000004F0: 8B 41 24 B2 22 22 A7 99 3A 89 35 37 30 00 0B 0D |.A$.""..:.570...|
00000500: 6C 02 99 41 24 3B 3A 89 36 31 30 00 2F 0D 76 02 |l..A$;:.610./.v.|
00000510: A1 23 31 2C 41 24 3A 53 53 B2 53 54 3A 41 B2 C3 |.#1,A$:SS.ST:A..|
00000520: 28 41 24 29 3A 8B 41 A7 41 B2 C6 28 41 24 29 00 |(A$):.A.A..(A$).|
00000530: 53 0D 80 02 A1 23 31 2C 42 24 3A 53 53 B2 53 54 |S....#1,B$:SS.ST|
00000540: 3A 42 B2 C3 28 42 24 29 3A 8B 42 A7 42 B2 C6 28 |:B..(B$):.B.B..(|
00000550: 42 24 29 00 67 0D 8A 02 4E B2 42 AC 32 35 36 AA |B$).g...N.B.256.|
00000560: 41 3A 99 4E 3B 3A 8E 00 6E 0D 94 02 A0 31 00 74 |A:.N;:..n....1.t|
00000570: 0D 9E 02 80 00 8B 0D E8 03 8F 20 48 45 41 44 45 |.......... HEADE|
00000580: 52 20 44 45 53 54 20 44 49 53 4B 00 BB 0D F2 03 |R DEST DISK.....|
00000590: 99 22 11 49 4E 53 45 52 54 20 44 45 53 54 49 4E |.".INSERT DESTIN|
000005A0: 41 54 49 4F 4E 20 44 49 53 4B 20 54 4F 20 42 45 |ATION DISK TO BE|
000005B0: 20 46 4F 52 4D 41 54 54 45 44 22 00 F8 0D FC 03 | FORMATTED".....|
000005C0: 85 22 11 11 44 49 53 4B 20 4E 41 4D 45 1D 1D 1D |."..DISK NAME...|
000005D0: A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000005E0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
000005F0: 9D 9D 9D 22 3B 44 4E 24 00 13 0E 06 04 8B 44 4E |...";DN$......DN|
00000600: 24 B2 22 A0 22 A7 99 22 91 91 91 22 3B 3A 89 31 |$.".".."...";:.1|
00000610: 30 32 30 00 28 0E 10 04 8B C3 28 44 4E 24 29 B1 |020.(.....(DN$).|
00000620: 31 36 A7 9C 3A 89 34 30 00 4B 0E 1A 04 46 B2 30 |16..:.40.K...F.0|
00000630: 3A 81 4A B2 31 A4 C3 28 44 4E 24 29 3A 53 31 24 |:.J.1..(DN$):S1$|
00000640: B2 CA 28 44 4E 24 2C 4A 2C 31 29 00 66 0E 24 04 |..(DN$,J,1).f.$.|
00000650: 8B 53 31 24 B2 22 A0 22 B0 53 31 24 B2 C7 28 33 |.S1$.".".S1$..(3|
00000660: 34 29 A7 46 B2 31 00 7E 0E 2E 04 82 4A 3A 8B 46 |4).F.1.~....J:.F|
00000670: A7 99 22 91 91 91 22 3B 3A 89 31 30 32 30 00 C7 |.."...";:.1020..|
00000680: 0E 38 04 85 22 11 55 4E 49 51 55 45 20 44 49 53 |.8..".UNIQUE DIS|
00000690: 4B 20 49 44 1D 1D 1D A0 20 20 20 20 20 20 20 20 |K ID.... |
000006A0: 20 20 20 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D | .....|
000006B0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
000006C0: 9D 9D 22 3B 49 31 24 00 E1 0E 42 04 8B 49 31 24 |..";I1$...B..I1$|
000006D0: B2 22 A0 22 A7 99 22 91 91 22 3B 3A 89 31 30 38 |.".".."..";:.108|
000006E0: 30 00 FD 0E 4C 04 8B C3 28 49 31 24 29 B3 B1 32 |0...L...(I1$)..2|
000006F0: A7 99 22 91 91 22 3B 3A 89 31 30 38 30 00 16 0F |.."..";:.1080...|
00000700: 56 04 98 31 2C 22 4E 30 3A 22 AA 44 4E 24 AA 22 |V..1,"N0:".DN$."|
00000710: 2C 22 AA 49 31 24 00 20 0F 60 04 8D 33 30 30 30 |,".I1$. .`..3000|
00000720: 00 34 0F 6A 04 8B 45 52 A7 99 45 52 24 3A 89 31 |.4.j..ER..ER$:.1|
00000730: 30 30 30 30 00 3A 0F 74 04 8E 00 60 0F D0 07 8F |0000.:.t...`....|
00000740: 20 52 45 41 44 20 42 4C 4F 43 4B 20 54 31 2C 53 | READ BLOCK T1,S|
00000750: 31 20 54 4F 20 42 55 46 46 45 52 20 23 20 4E 55 |1 TO BUFFER # NU|
00000760: 00 68 0F DA 07 43 B2 2E 00 7E 0F E4 07 98 31 2C |.h...C...~....1,|
00000770: 22 55 31 22 3B 33 3B 30 3B 54 31 3B 53 31 00 92 |"U1";3;0;T1;S1..|
00000780: 0F EE 07 8D 33 30 30 30 3A 8B A8 45 52 A7 32 30 |....3000:..ER.20|
00000790: 36 30 00 A6 0F F8 07 43 B2 43 AA 31 3A 8B 43 B3 |60.....C.C.1:.C.|
000007A0: 33 89 32 30 32 30 00 DC 0F 02 08 99 45 52 24 3A |3.2020......ER$:|
000007B0: 81 4A B2 28 42 42 AA 4E 55 29 AC 32 35 36 A4 28 |.J.(BB.NU).256.(|
000007C0: 42 42 AA 4E 55 29 AC 32 35 36 AA 32 35 35 3A 97 |BB.NU).256.255:.|
000007D0: 4A 2C 2E 3A 82 4A 3A 89 32 31 30 30 00 ED 0F 0C |J,.:.J:.2100....|
000007E0: 08 98 31 2C 22 42 2D 50 22 3B 33 3B 30 00 19 10 |..1,"B-P";3;0...|
000007F0: 16 08 8B 4E 55 B3 B1 30 A7 99 22 20 20 20 9D 9D |...NU..0.." ..|
00000800: 9D 22 3B C9 28 22 20 20 22 AA C4 28 4E 55 29 2C |.";.(" "..(NU),|
00000810: 33 29 3B 22 9D 9D 9D 22 3B 00 3E 10 20 08 97 39 |3);"...";.>. ..9|
00000820: 39 36 2C C2 28 33 29 3A 97 39 39 37 2C C2 28 34 |96,.(3):.997,.(4|
00000830: 29 3A 97 34 2C 42 42 AA 4E 55 3A 9E 4D 41 00 56 |):.4,BB.NU:.MA.V|
00000840: 10 25 08 97 33 2C C2 28 39 39 36 29 3A 97 34 2C |.%..3,.(996):.4,|
00000850: C2 28 39 39 37 29 00 74 10 2A 08 8B 53 54 B3 B1 |.(997).t.*..ST..|
00000860: 2E AF 53 54 B3 B1 36 34 A7 8D 33 30 30 30 3A 89 |..ST..64..3000:.|
00000870: 32 30 35 30 00 7A 10 34 08 8E 00 A3 10 98 08 8F |2050.z.4........|
00000880: 20 57 52 49 54 45 20 42 4C 4F 43 4B 20 54 31 2C | WRITE BLOCK T1,|
00000890: 53 31 20 46 52 4F 4D 20 42 55 46 46 45 52 20 23 |S1 FROM BUFFER #|
000008A0: 20 4E 55 00 AB 10 A2 08 43 B2 2E 00 CD 10 AC 08 | NU.....C.......|
000008B0: 98 31 2C 22 42 2D 41 22 3B 30 3B 54 31 3B 53 31 |.1,"B-A";0;T1;S1|
000008C0: 3A 98 31 2C 22 42 2D 50 22 3B 33 3B 30 00 F2 10 |:.1,"B-P";3;0...|
000008D0: B6 08 99 22 20 20 20 9D 9D 9D 22 3B C9 28 22 20 |..." ...";.(" |
000008E0: 20 22 AA C4 28 4E 55 29 2C 33 29 3B 22 9D 9D 9D | "..(NU),3);"...|
000008F0: 22 3B 00 19 11 C0 08 97 39 39 36 2C C2 28 33 29 |";......996,.(3)|
00000900: 3A 97 39 39 37 2C C2 28 34 29 3A 97 34 2C 42 42 |:.997,.(4):.4,BB|
00000910: AA 4E 55 3A 9E 4D 41 AA 33 00 31 11 C5 08 97 33 |.NU:.MA.3.1....3|
00000920: 2C C2 28 39 39 36 29 3A 97 34 2C C2 28 39 39 37 |,.(996):.4,.(997|
00000930: 29 00 64 11 CA 08 8B 53 54 B3 B1 2E AF 53 54 B3 |).d....ST....ST.|
00000940: B1 36 34 A7 99 22 12 49 45 45 45 20 57 52 49 54 |.64..".IEEE WRIT|
00000950: 45 20 45 52 52 4F 52 22 53 54 22 92 22 3A 89 31 |E ERROR"ST".":.1|
00000960: 30 30 30 30 00 7A 11 D4 08 98 31 2C 22 55 32 22 |0000.z....1,"U2"|
00000970: 3B 33 3B 30 3B 54 31 3B 53 31 00 8E 11 DE 08 8D |;3;0;T1;S1......|
00000980: 33 30 30 30 3A 8B A8 45 52 A7 32 33 30 30 00 A2 |3000:..ER.2300..|
00000990: 11 E8 08 43 B2 43 AA 31 3A 8B 43 B3 33 A7 32 32 |...C.C.1:.C.3.22|
000009A0: 36 30 00 CF 11 F2 08 99 22 12 55 4E 52 45 43 4F |60......".UNRECO|
000009B0: 56 45 52 41 4E 42 4C 45 20 57 52 49 54 45 20 45 |VERANBLE WRITE E|
000009C0: 52 52 4F 52 22 45 52 24 3A 89 31 30 30 30 30 00 |RROR"ER$:.10000.|
000009D0: D5 11 FC 08 8E 00 EF 11 C4 09 8F 20 47 45 54 20 |........... GET |
000009E0: 42 41 4D 20 54 4F 20 42 4D 25 28 54 2C 53 29 00 |BAM TO BM%(T,S).|
000009F0: FD 11 CE 09 54 53 B2 31 3A 54 46 B2 2E 00 14 12 |....TS.1:TF.....|
00000A00: D8 09 98 31 2C 22 49 30 22 3A 9F 33 2C 38 2C 33 |...1,"I0":.3,8,3|
00000A10: 2C 22 23 22 00 1D 12 E2 09 53 39 B2 30 00 3E 12 |,"#".....S9.0.>.|
00000A20: EC 09 99 22 11 54 52 41 43 4B 20 23 20 20 20 42 |...".TRACK # B|
00000A30: 4C 4F 43 4B 53 20 54 4F 20 58 46 45 52 22 00 5E |LOCKS TO XFER".^|
00000A40: 12 F6 09 99 22 23 23 23 23 23 23 23 23 23 23 23 |...."###########|
00000A50: 23 23 23 23 23 23 23 23 23 23 23 23 23 22 00 81 |#############"..|
00000A60: 12 00 0A 4E 55 B2 30 3A 54 31 B2 31 38 3A 53 31 |...NU.0:T1.18:S1|
00000A70: B2 30 3A 43 30 24 B2 C7 28 2E 29 3A 8D 32 30 30 |.0:C0$..(.):.200|
00000A80: 30 00 8A 12 0A 0A 42 59 B2 34 00 9C 12 14 0A 54 |0.....BY.4.....T|
00000A90: 25 B2 28 42 59 AB 34 29 AD 34 AA 31 00 AA 12 1E |%.(BY.4).4.1....|
00000AA0: 0A 99 22 20 20 22 3B 54 25 3B 00 DE 12 28 0A 8B |.." ";T%;...(..|
00000AB0: C2 28 42 41 AA 42 59 29 B2 2E A7 81 4A B2 2E A4 |.(BA.BY)....J...|
00000AC0: 32 30 3A 42 4D 25 28 54 25 2C 4A 29 B2 2E 3A 82 |20:BM%(T%,J)..:.|
00000AD0: 3A 42 59 B2 42 59 AA 34 3A 89 32 36 35 30 00 E6 |:BY.BY.4:.2650..|
00000AE0: 12 32 0A 53 B2 30 00 20 13 3C 0A 42 59 B2 42 59 |.2.S.0. .<.BY.BY|
00000AF0: AA 31 3A 41 30 B2 C2 28 42 41 AA 42 59 29 3A 81 |.1:A0..(BA.BY):.|
00000B00: 4A B2 2E A4 37 3A 42 4D 25 28 54 25 2C 53 29 B2 |J...7:BM%(T%,S).|
00000B10: 41 30 AF 54 41 28 4A 29 3A 53 B2 53 AA 31 3A 82 |A0.TA(J):S.S.1:.|
00000B20: 00 2F 13 46 0A 8B 53 B3 32 32 A7 32 36 32 30 00 |./.F..S.22.2620.|
00000B30: 3B 13 50 0A 42 59 B2 42 59 AA 31 00 52 13 5A 0A |;.P.BY.BY.1.R.Z.|
00000B40: 45 53 B2 32 31 3A 8B 54 25 B1 31 37 A7 45 53 B2 |ES.21:.T%.17.ES.|
00000B50: 31 39 00 63 13 64 0A 8B 54 25 B1 32 34 A7 45 53 |19.c.d..T%.24.ES|
00000B60: B2 31 38 00 74 13 6E 0A 8B 54 25 B1 33 30 A7 45 |.18.t.n..T%.30.E|
00000B70: 53 B2 31 37 00 90 13 78 0A 81 4A B2 45 53 A4 32 |S.17...x..J.ES.2|
00000B80: 34 3A 42 4D 25 28 54 25 2C 4A 29 B2 AB 31 3A 82 |4:BM%(T%,J)..1:.|
00000B90: 00 B6 13 82 0A 53 4D B2 2E 3A 81 4A B2 2E A4 32 |.....SM..:.J...2|
00000BA0: 30 3A 8B 42 4D 25 28 54 25 2C 4A 29 B2 2E A7 53 |0:.BM%(T%,J)...S|
00000BB0: 4D B2 53 4D AA 31 00 CF 13 8C 0A 82 3A 99 20 A3 |M.SM.1......:. .|
00000BC0: 31 32 29 3B 53 4D 3A 53 39 B2 53 39 AA 53 4D 00 |12);SM:S9.S9.SM.|
00000BD0: ED 13 96 0A 8B 53 4D B2 2E AF 54 53 B2 54 25 A7 |.....SM...TS.T%.|
00000BE0: 54 53 B2 54 53 AA 31 3A 89 32 37 33 30 00 FE 13 |TS.TS.1:.2730...|
00000BF0: A0 0A 8B 53 4D B3 B1 2E A7 54 46 B2 54 25 00 0F |...SM....TF.T%..|
00000C00: 14 AA 0A 8B 42 59 B3 31 34 33 A7 32 35 38 30 00 |....BY.143.2580.|
00000C10: 16 14 B4 0A A0 33 00 37 14 BE 0A 99 22 53 54 41 |.....3.7...."STA|
00000C20: 52 54 20 3D 22 3B 54 53 3B 22 20 46 49 4E 49 53 |RT =";TS;" FINIS|
00000C30: 48 20 3D 22 3B 54 46 00 5E 14 C8 0A 99 22 11 41 |H =";TF.^....".A|
00000C40: 20 54 4F 54 41 4C 20 4F 46 22 3B 53 39 3B 22 42 | TOTAL OF";S9;"B|
00000C50: 4C 4F 43 4B 53 20 54 4F 20 58 46 45 52 22 00 7A |LOCKS TO XFER".z|
00000C60: 14 D2 0A 53 38 B2 39 30 AA 32 35 AA 28 2E 36 35 |...S8.90.25.(.65|
00000C70: 30 AA 2E 39 38 30 29 AC 53 39 00 B0 14 DC 0A 53 |0..980).S9.....S|
00000C80: 37 B2 B5 28 53 38 AD 36 30 29 3A 99 22 41 50 50 |7..(S8.60):."APP|
00000C90: 52 4F 58 22 3B 53 37 22 3A 22 B5 28 53 38 AB 53 |ROX";S7":".(S8.S|
00000CA0: 37 AC 36 30 29 3B 22 46 4F 52 20 43 4F 50 59 22 |7.60);"FOR COPY"|
00000CB0: 00 B6 14 E6 0A 8E 00 D2 14 B8 0B 8F 20 52 45 41 |............ REA|
00000CC0: 44 20 45 52 52 20 43 48 20 54 4F 20 45 52 2C 45 |D ERR CH TO ER,E|
00000CD0: 52 24 00 09 15 C2 0B 84 31 2C 45 30 24 2C 45 31 |R$......1,E0$,E1|
00000CE0: 24 2C 45 32 24 2C 45 33 24 3A 45 52 24 B2 45 30 |$,E2$,E3$:ER$.E0|
00000CF0: 24 AA 22 2C 22 AA 45 31 24 AA 22 2C 22 AA 45 32 |$.",".E1$.",".E2|
00000D00: 24 AA 22 2C 22 AA 45 33 24 00 25 15 CC 0B 45 52 |$.",".E3$.%...ER|
00000D10: B2 C3 28 45 30 24 29 3A 8B 45 52 A7 45 52 B2 C5 |..(E0$):.ER.ER..|
00000D20: 28 45 30 24 29 00 2B 15 D6 0B 8E 00 56 15 80 0C |(E0$).+.....V...|
00000D30: 8F 20 49 4E 53 54 52 55 43 54 20 54 4F 20 53 57 |. INSTRUCT TO SW|
00000D40: 41 50 20 54 4F 20 44 49 53 4B 20 47 49 56 45 4E |AP TO DISK GIVEN|
00000D50: 20 49 4E 20 44 24 00 7A 15 8A 0C 8B 44 24 B2 22 | IN D$.z....D$."|
00000D60: 44 22 A7 53 31 24 B2 22 44 45 53 54 49 4E 41 54 |D".S1$."DESTINAT|
00000D70: 49 4F 4E 22 3A 89 33 32 33 30 00 8B 15 94 0C 53 |ION":.3230.....S|
00000D80: 31 24 B2 22 53 4F 55 52 43 45 22 00 B6 15 9E 0C |1$."SOURCE".....|
00000D90: 99 22 11 49 4E 53 45 52 54 20 22 3B 53 31 24 3B |.".INSERT ";S1$;|
00000DA0: 22 20 44 49 53 4B 2C 20 50 52 45 53 53 20 12 53 |" DISK, PRESS .S|
00000DB0: 50 41 43 45 92 22 00 FB 15 A2 0C 53 4F B2 35 34 |PACE.".....SO.54|
00000DC0: 32 37 32 3A 81 4C B2 4F A4 32 34 3A 97 53 4F AA |272:.L.O.24:.SO.|
00000DD0: 4C 2C 30 3A 82 3A 97 53 4F AA 31 2C 31 33 30 3A |L,0:.:.SO.1,130:|
00000DE0: 97 53 4F AA 35 2C 39 3A 97 53 4F AA 31 35 2C 33 |.SO.5,9:.SO.15,3|
00000DF0: 30 3A 97 53 4F AA 32 34 2C 31 35 00 12 16 A3 0C |0:.SO.24,15.....|
00000E00: 97 53 4F AA 34 2C 32 31 3A 81 51 51 B2 31 A4 34 |.SO.4,21:.QQ.1.4|
00000E10: 30 30 00 35 16 A8 0C A1 41 24 3A 8B 41 24 B3 B1 |00.5....A$:.A$..|
00000E20: 22 20 22 A7 82 51 51 3A 97 53 4F AA 34 2C 30 3A |" "..QQ:.SO.4,0:|
00000E30: 89 33 32 33 35 00 41 16 AD 0C 97 53 4F AA 34 2C |.3235.A....SO.4,|
00000E40: 30 00 51 16 B2 0C 9F 32 2C 38 2C 30 2C 22 24 30 |0.Q....2,8,0,"$0|
00000E50: 22 00 67 16 BC 0C 8D 33 30 30 30 3A 8B 45 52 B1 |".g....3000:.ER.|
00000E60: 30 A7 31 30 30 30 30 00 7D 16 C6 0C 81 4A B2 31 |0.10000.}....J.1|
00000E70: A4 32 36 3A A1 23 32 2C 41 24 3A 82 4A 00 99 16 |.26:.#2,A$:.J...|
00000E80: D0 0C A1 23 32 2C 41 24 3A A1 23 32 2C 42 24 3A |...#2,A$:.#2,B$:|
00000E90: 49 52 24 B2 41 24 AA 42 24 00 BC 16 DA 0C A1 23 |IR$.A$.B$......#|
00000EA0: 32 2C 41 24 3A A1 23 32 2C 41 24 3A A1 23 32 2C |2,A$:.#2,A$:.#2,|
00000EB0: 42 24 3A 44 52 24 B2 41 24 AA 42 24 00 C5 16 E4 |B$:DR$.A$.B$....|
00000EC0: 0C A0 32 3A 8E 00 D4 16 10 27 8F 20 44 52 4F 50 |..2:.....'. DROP|
00000ED0: 20 4F 55 54 00 F2 16 1A 27 97 35 35 2C C2 28 39 | OUT....'.55,.(9|
00000EE0: 39 38 29 3A 97 35 36 2C C2 28 39 39 39 29 3A 9C |98):.56,.(999):.|
00000EF0: 3A 90 00 34 17 98 3A 83 20 37 36 2C 36 36 2C 33 |:..4..:. 76,66,3|
00000F00: 2C 37 36 2C 39 31 2C 33 2C 31 36 32 2C 33 2C 33 |,76,91,3,162,3,3|
00000F10: 32 2C 31 39 38 2C 32 35 35 2C 31 36 30 2C 30 2C |2,198,255,160,0,|
00000F20: 31 33 32 2C 33 2C 33 32 2C 32 30 37 2C 32 35 35 |132,3,32,207,255|
00000F30: 2C 31 34 35 00 79 17 A2 3A 83 20 33 2C 31 36 35 |,145.y..:. 3,165|
00000F40: 2C 31 34 34 2C 32 30 38 2C 33 2C 32 30 30 2C 32 |,144,208,3,200,2|
00000F50: 30 38 2C 32 34 34 2C 33 32 2C 32 30 34 2C 32 35 |08,244,32,204,25|
00000F60: 35 2C 39 36 2C 31 36 32 2C 33 2C 33 32 2C 32 30 |5,96,162,3,32,20|
00000F70: 31 2C 32 35 35 2C 31 36 30 00 C0 17 AC 3A 83 20 |1,255,160....:. |
00000F80: 30 2C 31 33 32 2C 33 2C 31 37 37 2C 33 2C 33 32 |0,132,3,177,3,32|
00000F90: 2C 32 31 30 2C 32 35 35 2C 31 36 35 2C 31 34 34 |,210,255,165,144|
00000FA0: 2C 32 30 38 2C 33 2C 32 30 30 2C 32 30 38 2C 32 |,208,3,200,208,2|
00000FB0: 34 34 2C 33 32 2C 32 30 34 2C 32 35 35 2C 39 36 |44,32,204,255,96|
00000FC0: 00 00 00 |... |
.......I.828.883:.A:.I,A:.I.C...."D=DSAV
E"@BACK2",D0:?DS$:CATALOGD0.[...BB.B(44)
.27:.995,BB......998,B(55):.999,B(56):.5
5,0:.56,BB:....(.BB.B(995)...2.N.B(999).
BB.1:BA.BB.256:MA.828.E.<..BM%(35,24)...
F..J.0.7:TA(J).2.J:....P..".....BACKUP 1
541.".%.Z..".'GOTO10000' IF PROGRAM QUIT
S ABNORMALLY".B.D.."."N"BUFFERS AVAILABL
E".N.N..1,8,15.L.H.. *** MAIN FUNCTIONS
****.V.R..1000.....D$."S":.3200:I2$.IR$.
.....DR$.."2A"..".ILLEGAL DOS 1.0 DISK."
:.10000......I2$.I1$..".SOURCE AND DESTI
NATION HAVE SAME ID CODE.":.10000......2
500.'...T.TS:S.0:NU.1:T1.T:S1.S.>....1,"
I0":.3,8,3,"#".V...."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...@..".".A.J. 3...T.D$."D":.32
00:.IR$..I1$..340...^..1,"I0":.3,8,3,"#"
...H.."WRITING BUFFER #";.$.R.NU.1:T1.T:
S1.S.N.|..BM%(T1,S1).0..2200:NU.NU.1:.NU
.N.410.N...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.....T.T1:.T.TF.500
...B.D$."S":.3200:.IR$..I2$.450...L.NU.1
:T1.T:S1.S:.270...... FINISHED XFERS....
. 1./....55,B(998):.56,B(999):..H...."..
BACKUP COMPLETE".X....1,8,0,"$0".P.&..#1
,A$:.A$..".".550.~.0..A$;:.610...:..#1,A
$:SS.ST:A.C(A$):.A.A.F(A$).F.D..#1,B$:SS
.ST:B.C(B$):.B.A.F(B$).R.N..SS.660...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$).S....#1,B$:SS.ST:B.C(B$):.B.B.F(
B$).G...N.B.256.A:.N;:..N... 1.T........
.. HEADER DEST DISK......".INSERT DESTIN
ATION DISK TO BE FORMATTED"......"..DISK
NAME... ................
...";DN$......DN$." ".."...";:.1020.(...
.C(DN$).16..:.40.K...F.0:.J.1.C(DN$):S1$
.J(DN$,J,1).F.$..S1$." ".S1$.G(34).F.1.~
....J:.F.."...";:.1020.G.8..".UNIQUE DIS
K ID... .............
..........";I1$...B..I1$." ".."..";:.108
0...L..C(I1$)..2.."..";:.1080...V..1,"N0
:".DN$.",".I1$. .`..3000.4.J..ER..ER$:.1
0000.:.T...`.P.. READ BLOCK T1,S1 TO BUF
FER # NU.H.Z.C...~....1,"U1";3;0;T1;S1..
....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......NU..0
.." ...";I(" ".D(NU),3);"...";.>. ..9
96,B(3):.997,B(4):.4,BB.NU:.MA.V.%..3,B(
996):.4,B(997).T.*..ST....ST..64..3000:.
2050.Z.4........ WRITE BLOCK T1,S1 FROM
BUFFER # NU.....C...M....1,"B-A";0;T1;S1
:.1,"B-P";3;0......" ...";I(" ".D(NU)
,3);"...";......996,B(3):.997,B(4):.4,BB
.NU:.MA.3.1.E..3,B(996):.4,B(997).D.J..S
T....ST..64..".IEEE WRITE ERROR"ST".":.1
0000.Z.T..1,"U2";3;0;T1;S1......3000:..E
R.2300.....C.C.1:.C.3.2260.O....".UNRECO
VERANBLE WRITE ERROR"ER$:.10000.U.......
D.. GET BAM TO BM%(T,S)...N.TS.1:TF.....
X..1,"I0":.3,8,3,"#".....S9.0.>....".TRA
CK # BLOCKS TO XFER".^...."###########
#############".....NU.0:T1.18:S1.0:C0$.G
(.):.2000.....BY.4.....T%.(BY.4).4.1....
.." ";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:../.F..S.22.2620.;.P.BY.BY.1.R.Z.
ES.21:.T%.17.ES.19.C.D..T%.24.ES.18.T.N.
.T%.30.ES.17...X..J.ES.24:BM%(T%,J)..1:.
.....SM..:.J...20:.BM%(T%,J)...SM.SM.1.O
....:. .12);SM:S9.S9.SM......SM...TS.T%.
TS.TS.1:.2730... ..SM....TF.T%......BY.1
43.2580..... 3.7...."START =";TS;" FINIS
H =";TF.^.H..".A TOTAL OF";S9;"BLOCKS TO
XFER".Z.R.S8.90.25.(.650..980).S9.....S
7..(S8.60):."APPROX";S7":".(S8.S7.60);"F
OR COPY".......R.... READ ERR CH TO ER,E
R$...B..1,E0$,E1$,E2$,E3$:ER$.E0$.",".E1
$.",".E2$.",".E3$.%.L.ER.C(E0$):.ER.ER.E
(E0$).+.V...V.... INSTRUCT TO SWAP TO DI
SK GIVEN IN D$.Z....D$."D".S1$."DESTINAT
ION":.3230.....S1$."SOURCE"......".INSER
T ";S1$;" DISK, PRESS .SPACE.".....SO.54
272:.L.O.24:.SO.L,0:.:.SO.1,130:.SO.5,9:
.SO.15,30:.SO.24,15......SO.4,21:.QQ.1.4
00.5....A$:.A$.." "..QQ:.SO.4,0:.3235.A.
...SO.4,0.Q....2,8,0,"$0".G....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$.E... 2:..T..'. DROP OUT....
'.55,B(998):.56,B(999):.:..4..:. 76,66,3
,76,91,3,162,3,32,198,255,160,0,132,3,32
,207,255,145.Y..:. 3,165,144,208,3,200,2
08,244,32,204,255,96,162,3,32,201,255,16
0....:. 0,132,3,177,3,32,210,255,165,144
,208,3,200,208,244,32,204,255,96...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL