20-1
FILE INFORMATION
FILENAME(S): 20-1
FILE TYPE(S): PRG
FILE SIZE: 4K
FIRST SEEN: 2025-10-19 22:48:23
APPEARS ON: 1 disk(s)
FILE HASH
27c3b373090abd5a995f7b6aab4e85b59ad938e86e9c0db596d771d9ea2e892e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK BACKUP | 20-1 | PRG | Radd Maxx | 9 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 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 3A 97 33 36 38 |:.A:.I,A:.I:.368|
00000020: 37 39 2C 39 3A 99 22 1F 22 00 54 08 05 00 85 22 |79,9:.".".T...."|
00000030: 93 11 11 11 11 11 11 11 11 11 11 11 57 48 49 43 |............WHIC|
00000040: 48 20 44 52 49 56 45 20 28 38 20 4F 52 20 39 29 |H DRIVE (8 OR 9)|
00000050: 22 3B 57 44 00 7B 08 0A 00 8F 22 44 3D 53 41 56 |";WD.{...."D=SAV|
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 30 09 50 00 99 22 93 1D 1D 1D 12 |.J:..0.P..".....|
00000120: 4B 49 44 53 20 32 30 20 42 41 43 4B 55 50 92 22 |KIDS 20 BACKUP."|
00000130: 00 60 09 5A 00 99 22 11 27 47 4F 54 4F 31 30 30 |.`.Z..".'GOTO100|
00000140: 30 30 27 20 49 46 20 50 52 4F 47 52 41 4D 20 51 |00' IF PROGRAM Q|
00000150: 55 49 54 53 20 41 42 4E 4F 52 4D 41 4C 4C 59 22 |UITS ABNORMALLY"|
00000160: 00 7D 09 64 00 99 22 11 22 4E 22 42 55 46 46 45 |.}.d.."."N"BUFFE|
00000170: 52 53 20 41 56 41 49 4C 41 42 4C 45 22 00 8A 09 |RS AVAILABLE"...|
00000180: 6E 00 9F 31 2C 57 44 2C 31 35 00 A8 09 C8 00 8F |n..1,WD,15......|
00000190: 20 2A 2A 2A 20 4D 41 49 4E 20 46 55 4E 43 54 49 | *** MAIN FUNCTI|
000001A0: 4F 4E 53 20 2A 2A 2A 2A 00 B2 09 D2 00 8D 31 30 |ONS ****......10|
000001B0: 30 30 00 CB 09 DC 00 44 24 B2 22 53 22 3A 8D 33 |00.....D$."S":.3|
000001C0: 32 30 30 3A 49 32 24 B2 49 52 24 00 FB 09 E6 00 |200:I2$.IR$.....|
000001D0: 8B 44 52 24 B3 B1 22 32 41 22 A7 99 22 12 49 4C |.DR$.."2A"..".IL|
000001E0: 4C 45 47 41 4C 20 44 4F 53 20 31 2E 30 20 44 49 |LEGAL DOS 1.0 DI|
000001F0: 53 4B 92 3A 47 CF 31 30 30 30 30 00 3D 0A F0 00 |SK.:G.10000.=...|
00000200: 8B 49 32 24 B2 49 31 24 A7 99 22 12 53 4F 55 52 |.I2$.I1$..".SOUR|
00000210: 43 45 20 41 4E 44 20 44 45 53 54 49 4E 41 54 49 |CE AND DESTINATI|
00000220: 4F 4E 20 48 41 56 45 20 53 41 4D 45 20 49 44 20 |ON HAVE SAME ID |
00000230: 43 4F 44 45 92 22 3A 89 31 30 30 30 30 00 47 0A |CODE.":.10000.G.|
00000240: FA 00 8D 32 35 30 30 00 63 0A 04 01 54 B2 54 53 |...2500.c...T.TS|
00000250: 3A 53 B2 30 3A 4E 55 B2 31 3A 54 31 B2 54 3A 53 |:S.0:NU.1:T1.T:S|
00000260: 31 B2 53 00 7B 0A 0E 01 98 31 2C 22 49 30 22 3A |1.S.{....1,"I0":|
00000270: 9F 33 2C 57 44 2C 33 2C 22 23 22 00 93 0A 18 01 |.3,WD,3,"#".....|
00000280: 99 22 52 45 41 44 49 4E 47 20 42 4C 4F 43 4B 20 |."READING BLOCK |
00000290: 23 22 3B 00 BD 0A 22 01 8B 42 4D 25 28 54 31 2C |#";..."..BM%(T1,|
000002A0: 53 31 29 B2 30 A7 8D 32 30 30 30 3A 4E 55 B2 4E |S1).0..2000:NU.N|
000002B0: 55 AA 31 3A 8B 4E 55 B1 4E A7 33 32 30 00 DD 0A |U.1:.NU.N.320...|
000002C0: 2C 01 53 31 B2 53 31 AA 31 3A 8B 53 31 B1 32 30 |,.S1.S1.1:.S1.20|
000002D0: A7 53 31 B2 30 3A 54 31 B2 54 31 AA 31 00 EE 0A |.S1.0:T1.T1.1...|
000002E0: 36 01 8B 54 31 B3 54 46 AA 31 A7 32 39 30 00 F7 |6..T1.TF.1.290..|
000002F0: 0A 40 01 99 22 11 22 00 FE 0A 4A 01 A0 33 00 1E |.@.."."...J..3..|
00000300: 0B 54 01 44 24 B2 22 44 22 3A 8D 33 32 30 30 3A |.T.D$."D":.3200:|
00000310: 8B 49 52 24 B3 B1 49 31 24 A7 89 33 34 30 00 36 |.IR$..I1$..340.6|
00000320: 0B 5E 01 98 31 2C 22 49 30 22 3A 9F 33 2C 57 44 |.^..1,"I0":.3,WD|
00000330: 2C 33 2C 22 23 22 00 4F 0B 68 01 99 22 57 52 49 |,3,"#".O.h.."WRI|
00000340: 54 49 4E 47 20 42 55 46 46 45 52 20 23 22 3B 00 |TING BUFFER #";.|
00000350: 62 0B 72 01 4E 55 B2 31 3A 54 31 B2 54 3A 53 31 |b.r.NU.1:T1.T:S1|
00000360: B2 53 00 8C 0B 7C 01 8B 42 4D 25 28 54 31 2C 53 |.S...|..BM%(T1,S|
00000370: 31 29 B2 30 A7 8D 32 32 30 30 3A 4E 55 B2 4E 55 |1).0..2200:NU.NU|
00000380: AA 31 3A 8B 4E 55 B1 4E A7 34 31 30 00 AC 0B 86 |.1:.NU.N.410....|
00000390: 01 53 31 B2 53 31 AA 31 3A 8B 53 31 B1 32 30 A7 |.S1.S1.1:.S1.20.|
000003A0: 53 31 B2 30 3A 54 31 B2 54 31 AA 31 00 BD 0B 90 |S1.0:T1.T1.1....|
000003B0: 01 8B 54 31 B3 54 46 AA 31 A7 33 38 30 00 C6 0B |..T1.TF.1.380...|
000003C0: 9A 01 99 22 11 22 00 CD 0B A4 01 A0 33 00 EA 0B |..."."......3...|
000003D0: AE 01 53 B2 53 31 AA 31 3A 8B 53 B1 32 30 A7 53 |..S.S1.1:.S.20.S|
000003E0: B2 30 3A 54 31 B2 54 31 AA 31 00 FD 0B B8 01 54 |.0:T1.T1.1.....T|
000003F0: B2 54 31 3A 8B 54 B1 54 46 A7 35 30 30 00 1C 0C |.T1:.T.TF.500...|
00000400: C2 01 44 24 B2 22 53 22 3A 8D 33 32 30 30 3A 8B |..D$."S":.3200:.|
00000410: 49 52 24 B3 B1 49 32 24 A7 34 35 30 00 34 0C CC |IR$..I2$.450.4..|
00000420: 01 4E 55 B2 31 3A 54 31 B2 54 3A 53 31 B2 53 3A |.NU.1:T1.T:S1.S:|
00000430: 89 32 37 30 00 49 0C F4 01 8F 20 46 49 4E 49 53 |.270.I.... FINIS|
00000440: 48 45 44 20 58 46 45 52 53 00 50 0C FE 01 A0 31 |HED XFERS.P....1|
00000450: 00 6C 0C 08 02 97 35 35 2C C2 28 39 39 38 29 3A |.l....55,.(998):|
00000460: 97 35 36 2C C2 28 39 39 39 29 3A 9C 00 8B 0C 12 |.56,.(999):.....|
00000470: 02 99 22 11 11 42 41 43 4B 55 50 20 43 4F 4D 50 |.."..BACKUP COMP|
00000480: 4C 45 54 45 22 3A 8D 34 30 30 30 00 9C 0C 1C 02 |LETE":.4000.....|
00000490: 9F 31 2C 57 44 2C 30 2C 22 24 30 22 00 B4 0C 26 |.1,WD,0,"$0"...&|
000004A0: 02 A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 22 12 22 |..#1,A$:.A$.."."|
000004B0: A7 35 35 30 00 C2 0C 30 02 99 41 24 3B 3A 89 36 |.550...0..A$;:.6|
000004C0: 31 30 00 E6 0C 3A 02 A1 23 31 2C 41 24 3A 53 53 |10...:..#1,A$:SS|
000004D0: B2 53 54 3A 41 B2 C3 28 41 24 29 3A 8B 41 A7 41 |.ST:A..(A$):.A.A|
000004E0: B2 C6 28 41 24 29 00 0A 0D 44 02 A1 23 31 2C 42 |..(A$)...D..#1,B|
000004F0: 24 3A 53 53 B2 53 54 3A 42 B2 C3 28 42 24 29 3A |$:SS.ST:B..(B$):|
00000500: 8B 42 A7 41 B2 C6 28 42 24 29 00 16 0D 4E 02 8B |.B.A..(B$)...N..|
00000510: 53 53 A7 36 36 30 00 28 0D 58 02 8B 41 B2 31 AF |SS.660.(.X..A.1.|
00000520: 42 B2 31 A7 8D 36 33 30 00 41 0D 62 02 A1 23 31 |B.1..630.A.b..#1|
00000530: 2C 41 24 3A 8B 41 24 B2 22 22 A7 99 3A 89 35 37 |,A$:.A$.""..:.57|
00000540: 30 00 4F 0D 6C 02 99 41 24 3B 3A 89 36 31 30 00 |0.O.l..A$;:.610.|
00000550: 73 0D 76 02 A1 23 31 2C 41 24 3A 53 53 B2 53 54 |s.v..#1,A$:SS.ST|
00000560: 3A 41 B2 C3 28 41 24 29 3A 8B 41 A7 41 B2 C6 28 |:A..(A$):.A.A..(|
00000570: 41 24 29 00 97 0D 80 02 A1 23 31 2C 42 24 3A 53 |A$)......#1,B$:S|
00000580: 53 B2 53 54 3A 42 B2 C3 28 42 24 29 3A 8B 42 A7 |S.ST:B..(B$):.B.|
00000590: 41 B2 C6 28 42 24 29 00 AA 0D 8A 02 4E B2 42 AC |A..(B$).....N.B.|
000005A0: 32 35 36 AA 41 3A 99 4E 3A 8E 00 B1 0D 94 02 A0 |256.A:.N:.......|
000005B0: 31 00 B7 0D 9E 02 80 00 CE 0D E8 03 8F 20 48 45 |1............ HE|
000005C0: 41 44 45 52 20 44 45 53 54 20 44 49 53 4B 00 D8 |ADER DEST DISK..|
000005D0: 0D ED 03 8D 34 30 30 30 00 0B 0E F2 03 99 22 11 |....4000......".|
000005E0: 49 4E 53 45 52 54 20 44 45 53 54 49 4E 41 54 49 |INSERT DESTINATI|
000005F0: 4F 4E 20 20 20 20 44 49 53 4B 20 54 4F 20 42 45 |ON DISK TO BE|
00000600: 20 46 4F 52 4D 41 54 54 45 44 22 00 48 0E FC 03 | FORMATTED".H...|
00000610: 85 22 11 11 44 49 53 4B 20 4E 41 4D 45 1D 1D 1D |."..DISK NAME...|
00000620: A4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000630: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00000640: 9D 9D 9D 22 3B 44 4E 24 00 63 0E 06 04 8B 44 4E |...";DN$.c....DN|
00000650: 24 B2 22 A4 22 A7 99 22 91 91 91 22 3B 3A 89 31 |$.".".."...";:.1|
00000660: 30 32 30 00 78 0E 10 04 8B C3 28 44 4E 24 29 B1 |020.x.....(DN$).|
00000670: 31 36 A7 9C 3A 89 34 30 00 9B 0E 1A 04 46 B2 30 |16..:.40.....F.0|
00000680: 3A 81 4A B2 31 A4 C3 28 44 4E 24 29 3A 53 31 24 |:.J.1..(DN$):S1$|
00000690: B2 CA 28 44 4E 24 2C 4A 2C 31 29 00 B6 0E 24 04 |..(DN$,J,1)...$.|
000006A0: 8B 53 31 24 B2 22 A4 22 B0 53 31 24 B2 C7 28 33 |.S1$.".".S1$..(3|
000006B0: 34 29 A7 46 B2 31 00 CE 0E 2E 04 82 4A 3A 8B 46 |4).F.1......J:.F|
000006C0: A7 99 22 91 91 91 22 3B 3A 89 31 30 32 30 00 17 |.."...";:.1020..|
000006D0: 0F 38 04 85 22 11 55 4E 49 51 55 45 20 44 49 53 |.8..".UNIQUE DIS|
000006E0: 4B 20 49 44 1D 1D 1D A4 20 20 20 20 20 20 20 20 |K ID.... |
000006F0: 20 20 20 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D | .....|
00000700: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00000710: 9D 9D 22 3B 49 31 24 00 31 0F 42 04 8B 49 31 24 |..";I1$.1.B..I1$|
00000720: B2 22 A4 22 A7 99 22 91 91 22 3B 3A 89 31 30 38 |.".".."..";:.108|
00000730: 30 00 4D 0F 4C 04 8B C3 28 49 31 24 29 B3 B1 32 |0.M.L...(I1$)..2|
00000740: A7 99 22 91 91 22 3B 3A 89 31 30 38 30 00 66 0F |.."..";:.1080.f.|
00000750: 56 04 98 31 2C 22 4E 30 3A 22 AA 44 4E 24 AA 22 |V..1,"N0:".DN$."|
00000760: 2C 22 AA 49 31 24 00 70 0F 60 04 8D 33 30 30 30 |,".I1$.p.`..3000|
00000770: 00 84 0F 6A 04 8B 45 52 A7 99 45 52 24 3A 89 31 |...j..ER..ER$:.1|
00000780: 30 30 30 30 00 8A 0F 74 04 8E 00 B0 0F D0 07 8F |0000...t........|
00000790: 20 52 45 41 44 20 42 4C 4F 43 4B 20 54 31 2C 53 | READ BLOCK T1,S|
000007A0: 31 20 54 4F 20 42 55 46 46 45 52 20 23 20 4E 55 |1 TO BUFFER # NU|
000007B0: 00 B8 0F DA 07 43 B2 2E 00 CE 0F E4 07 98 31 2C |.....C........1,|
000007C0: 22 55 31 22 3B 33 3B 30 3B 54 31 3B 53 31 00 E2 |"U1";3;0;T1;S1..|
000007D0: 0F EE 07 8D 33 30 30 30 3A 8B A8 45 52 A7 32 30 |....3000:..ER.20|
000007E0: 36 30 00 F6 0F F8 07 43 B2 43 AA 31 3A 8B 43 B3 |60.....C.C.1:.C.|
000007F0: 33 A7 32 30 32 30 00 2C 10 02 08 99 45 52 24 3A |3.2020.,....ER$:|
00000800: 81 4A B2 28 42 42 AA 4E 55 29 AC 32 35 36 A4 28 |.J.(BB.NU).256.(|
00000810: 42 42 AA 4E 55 29 AC 32 35 36 AA 32 35 35 3A 97 |BB.NU).256.255:.|
00000820: 4A 2C 2E 3A 82 4A 3A 89 32 31 30 30 00 3D 10 0C |J,.:.J:.2100.=..|
00000830: 08 98 31 2C 22 42 2D 50 22 3B 33 3B 30 00 69 10 |..1,"B-P";3;0.i.|
00000840: 16 08 8B 4E 55 B3 B1 30 A7 99 22 20 20 20 9D 9D |...NU..0.." ..|
00000850: 9D 22 3B C9 28 22 20 20 22 AA C4 28 4E 55 29 2C |.";.(" "..(NU),|
00000860: 33 29 3B 22 9D 9D 9D 22 3B 00 8E 10 20 08 97 39 |3);"...";... ..9|
00000870: 39 36 2C C2 28 33 29 3A 97 39 39 37 2C C2 28 34 |96,.(3):.997,.(4|
00000880: 29 3A 97 34 2C 42 42 AA 4E 55 3A 9E 4D 41 00 A6 |):.4,BB.NU:.MA..|
00000890: 10 25 08 97 33 2C C2 28 39 39 36 29 3A 97 34 2C |.%..3,.(996):.4,|
000008A0: C2 28 39 39 37 29 00 C4 10 2A 08 8B 53 54 B3 B1 |.(997)...*..ST..|
000008B0: 2E AF 53 54 B3 B1 36 34 A7 8D 33 30 30 30 3A 89 |..ST..64..3000:.|
000008C0: 32 30 35 30 00 CA 10 34 08 8E 00 F3 10 98 08 8F |2050...4........|
000008D0: 20 57 52 49 54 45 20 42 4C 4F 43 4B 20 54 31 2C | WRITE BLOCK T1,|
000008E0: 53 31 20 46 52 4F 4D 20 42 55 46 46 45 52 20 23 |S1 FROM BUFFER #|
000008F0: 20 4E 55 00 FB 10 A2 08 43 B2 2E 00 1D 11 AC 08 | NU.....C.......|
00000900: 98 31 2C 22 42 2D 41 22 3B 30 3B 54 31 3B 53 31 |.1,"B-A";0;T1;S1|
00000910: 3A 98 31 2C 22 42 2D 50 22 3B 33 3B 30 00 42 11 |:.1,"B-P";3;0.B.|
00000920: B6 08 99 22 20 20 20 9D 9D 9D 22 3B C9 28 22 20 |..." ...";.(" |
00000930: 20 22 AA C4 28 4E 55 29 2C 33 29 3B 22 9D 9D 9D | "..(NU),3);"...|
00000940: 22 3B 00 69 11 C0 08 97 39 39 36 2C C2 28 33 29 |";.i....996,.(3)|
00000950: 3A 97 39 39 37 2C C2 28 34 29 3A 97 34 2C 42 42 |:.997,.(4):.4,BB|
00000960: AA 4E 55 3A 9E 4D 41 AA 33 00 81 11 C5 08 97 33 |.NU:.MA.3......3|
00000970: 2C C2 28 39 39 36 29 3A 97 34 2C C2 28 39 39 37 |,.(996):.4,.(997|
00000980: 29 00 B4 11 CA 08 8B 53 54 B3 B1 2E AF 53 54 B3 |)......ST....ST.|
00000990: B1 36 34 A7 99 22 12 49 45 45 45 20 57 52 49 54 |.64..".IEEE WRIT|
000009A0: 45 20 45 52 52 4F 52 22 53 54 22 92 3A 47 CF 31 |E ERROR"ST".:G.1|
000009B0: 30 30 30 30 00 CA 11 D4 08 98 31 2C 22 55 32 22 |0000......1,"U2"|
000009C0: 3B 33 3B 30 3B 54 31 3B 53 31 00 DE 11 DE 08 8D |;3;0;T1;S1......|
000009D0: 33 30 30 30 3A 8B A8 45 52 A7 32 33 30 30 00 F2 |3000:..ER.2300..|
000009E0: 11 E8 08 43 B2 43 AA 31 3A 8B 43 B3 33 A7 32 32 |...C.C.1:.C.3.22|
000009F0: 36 30 00 1E 12 F2 08 99 22 12 55 4E 52 45 43 4F |60......".UNRECO|
00000A00: 56 45 52 41 42 4C 45 20 57 52 49 54 45 20 45 52 |VERABLE WRITE ER|
00000A10: 52 4F 52 22 45 52 24 3A 89 31 30 30 30 30 00 24 |ROR"ER$:.10000.$|
00000A20: 12 FC 08 8E 00 3E 12 C4 09 8F 20 47 45 54 20 42 |.....>.... GET B|
00000A30: 41 4D 20 54 4F 20 42 4D 24 28 54 2C 53 29 00 4C |AM TO BM$(T,S).L|
00000A40: 12 CE 09 54 53 B2 31 3A 54 46 B2 2E 00 64 12 D8 |...TS.1:TF...d..|
00000A50: 09 98 31 2C 22 49 30 22 3A 9F 33 2C 57 44 2C 33 |..1,"I0":.3,WD,3|
00000A60: 2C 22 23 22 00 6D 12 E2 09 53 39 B2 30 00 8E 12 |,"#".m...S9.0...|
00000A70: EC 09 99 22 11 54 52 41 43 4B 20 23 20 20 20 42 |...".TRACK # B|
00000A80: 4C 4F 43 4B 53 20 54 4F 20 58 46 45 52 22 00 AE |LOCKS TO XFER"..|
00000A90: 12 F6 09 99 22 23 23 23 23 23 23 23 23 23 23 23 |...."###########|
00000AA0: 23 23 23 23 23 23 23 23 23 23 23 23 23 22 00 D1 |#############"..|
00000AB0: 12 00 0A 4E 55 B2 30 3A 54 31 B2 31 38 3A 53 31 |...NU.0:T1.18:S1|
00000AC0: B2 30 3A 43 30 24 B2 C7 28 2E 29 3A 8D 32 30 30 |.0:C0$..(.):.200|
00000AD0: 30 00 DA 12 0A 0A 42 59 B2 34 00 EC 12 14 0A 54 |0.....BY.4.....T|
00000AE0: 25 B2 28 42 59 AB 34 29 AD 34 AA 31 00 FA 12 1E |%.(BY.4).4.1....|
00000AF0: 0A 99 22 20 20 22 3B 54 25 3B 00 2E 13 28 0A 8B |.." ";T%;...(..|
00000B00: C2 28 42 41 AA 42 59 29 B2 2E A7 81 4A B2 2E A4 |.(BA.BY)....J...|
00000B10: 32 30 3A 42 4D 25 28 54 25 2C 4A 29 B2 2E 3A 82 |20:BM%(T%,J)..:.|
00000B20: 3A 42 59 B2 42 59 AA 34 3A 89 32 36 35 30 00 36 |:BY.BY.4:.2650.6|
00000B30: 13 32 0A 53 B2 30 00 70 13 3C 0A 42 59 B2 42 59 |.2.S.0.p.<.BY.BY|
00000B40: AA 31 3A 41 30 B2 C2 28 42 41 AA 42 59 29 3A 81 |.1:A0..(BA.BY):.|
00000B50: 4A B2 2E A4 37 3A 42 4D 25 28 54 25 2C 53 29 B2 |J...7:BM%(T%,S).|
00000B60: 41 30 AF 54 41 28 4A 29 3A 53 B2 53 AA 31 3A 82 |A0.TA(J):S.S.1:.|
00000B70: 00 7F 13 46 0A 8B 53 B3 32 32 A7 32 36 32 30 00 |...F..S.22.2620.|
00000B80: 8B 13 50 0A 42 59 B2 42 59 AA 31 00 A2 13 5A 0A |..P.BY.BY.1...Z.|
00000B90: 45 53 B2 32 31 3A 8B 54 25 B1 31 37 A7 45 53 B2 |ES.21:.T%.17.ES.|
00000BA0: 31 39 00 B3 13 64 0A 8B 54 25 B1 32 34 A7 45 53 |19...d..T%.24.ES|
00000BB0: B2 31 38 00 C4 13 6E 0A 8B 54 25 B1 33 30 A7 45 |.18...n..T%.30.E|
00000BC0: 53 B2 31 37 00 E0 13 78 0A 81 4A B2 45 53 A4 32 |S.17...x..J.ES.2|
00000BD0: 34 3A 42 4D 25 28 54 25 2C 4A 29 B2 AB 31 3A 82 |4:BM%(T%,J)..1:.|
00000BE0: 00 06 14 82 0A 53 4D B2 2E 3A 81 4A B2 2E A4 32 |.....SM..:.J...2|
00000BF0: 30 3A 8B 42 4D 25 28 54 25 2C 4A 29 B2 2E A7 53 |0:.BM%(T%,J)...S|
00000C00: 4D B2 53 4D AA 31 00 1E 14 8C 0A 82 3A 99 A3 31 |M.SM.1......:..1|
00000C10: 32 29 3B 53 4D 3A 53 39 B2 53 39 AA 53 4D 00 3C |2);SM:S9.S9.SM.<|
00000C20: 14 96 0A 8B 53 4D B2 2E AF 54 53 B2 54 25 A7 54 |....SM...TS.T%.T|
00000C30: 53 B2 54 53 AA 31 3A 89 32 37 33 30 00 4D 14 A0 |S.TS.1:.2730.M..|
00000C40: 0A 8B 53 4D B3 B1 2E A7 54 46 B2 54 25 00 5E 14 |..SM....TF.T%.^.|
00000C50: AA 0A 8B 42 59 B3 31 34 33 A7 32 35 38 30 00 65 |...BY.143.2580.e|
00000C60: 14 B4 0A A0 33 00 86 14 BE 0A 99 22 53 54 41 52 |....3......"STAR|
00000C70: 54 20 3D 22 3B 54 53 3B 22 20 46 49 4E 49 53 48 |T =";TS;" FINISH|
00000C80: 20 3D 22 3B 54 46 00 AD 14 C8 0A 99 22 11 41 20 | =";TF......".A |
00000C90: 54 4F 54 41 4C 20 4F 46 22 3B 53 39 3B 22 42 4C |TOTAL OF";S9;"BL|
00000CA0: 4F 43 4B 53 20 54 4F 20 58 46 45 52 22 00 C9 14 |OCKS TO XFER"...|
00000CB0: D2 0A 53 38 B2 39 30 AA 32 35 AA 28 2E 36 35 30 |..S8.90.25.(.650|
00000CC0: AA 2E 39 38 30 29 AC 53 39 00 FF 14 DC 0A 53 37 |..980).S9.....S7|
00000CD0: B2 B5 28 53 38 AD 36 30 29 3A 99 22 41 50 50 52 |..(S8.60):."APPR|
00000CE0: 4F 58 22 3B 53 37 22 3A 22 B5 28 53 38 AB 53 37 |OX";S7":".(S8.S7|
00000CF0: AC 36 30 29 3B 22 46 4F 52 20 43 4F 50 59 22 00 |.60);"FOR COPY".|
00000D00: 05 15 E6 0A 8E 00 21 15 B8 0B 8F 20 52 45 41 44 |......!.... READ|
00000D10: 20 45 52 52 20 43 48 20 54 4F 20 45 52 2C 45 52 | ERR CH TO ER,ER|
00000D20: 24 00 58 15 C2 0B 84 31 2C 45 30 24 2C 45 31 24 |$.X....1,E0$,E1$|
00000D30: 2C 45 32 24 2C 45 33 24 3A 45 52 24 B2 45 30 24 |,E2$,E3$:ER$.E0$|
00000D40: AA 22 2C 22 AA 45 31 24 AA 22 2C 22 AA 45 32 24 |.",".E1$.",".E2$|
00000D50: AA 22 2C 22 AA 45 33 24 00 74 15 CC 0B 45 52 B2 |.",".E3$.t...ER.|
00000D60: C3 28 45 30 24 29 3A 8B 45 52 A7 45 52 B2 C5 28 |.(E0$):.ER.ER..(|
00000D70: 45 30 24 29 00 7A 15 D6 0B 8E 00 A5 15 80 0C 8F |E0$).z..........|
00000D80: 20 49 4E 53 54 52 55 43 54 20 54 4F 20 53 57 41 | INSTRUCT TO SWA|
00000D90: 50 20 54 4F 20 44 49 53 4B 20 47 49 56 45 4E 20 |P TO DISK GIVEN |
00000DA0: 49 4E 20 44 24 00 C9 15 8A 0C 8B 44 24 B2 22 44 |IN D$......D$."D|
00000DB0: 22 A7 53 31 24 B2 22 44 45 53 54 49 4E 41 54 49 |".S1$."DESTINATI|
00000DC0: 4F 4E 22 3A 89 33 32 33 30 00 DA 15 94 0C 53 31 |ON":.3230.....S1|
00000DD0: 24 B2 22 53 4F 55 52 43 45 22 00 E4 15 99 0C 8D |$."SOURCE"......|
00000DE0: 34 30 30 30 00 11 16 9E 0C 99 22 93 11 1F 49 4E |4000......"...IN|
00000DF0: 53 45 52 54 20 22 3B 53 31 24 3B 22 20 44 49 53 |SERT ";S1$;" DIS|
00000E00: 4B 2C 20 50 52 45 53 53 12 53 50 41 43 45 92 1F |K, PRESS.SPACE..|
00000E10: 22 00 27 16 A8 0C A1 41 24 3A 8B 41 24 B3 B1 22 |".'....A$:.A$.."|
00000E20: 20 22 A7 33 32 34 30 00 38 16 B2 0C 9F 32 2C 57 | ".3240.8....2,W|
00000E30: 44 2C 30 2C 22 24 30 22 00 4E 16 BC 0C 8D 33 30 |D,0,"$0".N....30|
00000E40: 30 30 3A 8B 45 52 B1 30 A7 31 30 30 30 30 00 64 |00:.ER.0.10000.d|
00000E50: 16 C6 0C 81 4A B2 31 A4 32 36 3A A1 23 32 2C 41 |....J.1.26:.#2,A|
00000E60: 24 3A 82 4A 00 80 16 D0 0C A1 23 32 2C 41 24 3A |$:.J......#2,A$:|
00000E70: A1 23 32 2C 42 24 3A 49 52 24 B2 41 24 AA 42 24 |.#2,B$:IR$.A$.B$|
00000E80: 00 A3 16 DA 0C A1 23 32 2C 41 24 3A A1 23 32 2C |......#2,A$:.#2,|
00000E90: 41 24 3A A1 23 32 2C 42 24 3A 44 52 24 B2 41 24 |A$:.#2,B$:DR$.A$|
00000EA0: AA 42 24 00 AC 16 E4 0C A0 32 3A 8E 00 CF 16 A0 |.B$......2:.....|
00000EB0: 0F 56 4F B2 33 36 38 37 38 3A 56 4A B2 33 36 38 |.VO.36878:VJ.368|
00000EC0: 37 35 3A 58 54 B2 30 3A 97 56 4A 2C 32 32 30 00 |75:XT.0:.VJ,220.|
00000ED0: FA 16 A1 0F 97 56 4F 2C 31 35 3A 81 54 55 B2 31 |.....VO,15:.TU.1|
00000EE0: A4 34 30 3A 82 54 55 3A 97 56 4F 2C 30 3A 81 54 |.40:.TU:.VO,0:.T|
00000EF0: 51 B2 31 A4 34 30 3A 82 54 51 00 0F 17 A2 0F 58 |Q.1.40:.TQ.....X|
00000F00: 54 B2 58 54 AA 31 3A 8B 58 54 B1 B2 35 A7 8E 00 |T.XT.1:.XT..5...|
00000F10: 19 17 A3 0F 89 34 30 30 31 00 28 17 10 27 8F 20 |.....4001.(..'. |
00000F20: 44 52 4F 50 20 4F 55 54 00 46 17 1A 27 97 35 35 |DROP OUT.F..'.55|
00000F30: 2C C2 28 39 39 38 29 3A 97 35 36 2C C2 28 39 39 |,.(998):.56,.(99|
00000F40: 39 29 3A 9C 3A 90 00 87 17 98 3A 83 37 36 2C 36 |9):.:.....:.76,6|
00000F50: 36 2C 33 2C 37 36 2C 39 31 2C 33 2C 31 36 32 2C |6,3,76,91,3,162,|
00000F60: 33 2C 33 32 2C 31 39 38 2C 32 35 35 2C 31 36 30 |3,32,198,255,160|
00000F70: 2C 30 2C 31 33 32 2C 33 2C 33 32 2C 32 30 37 2C |,0,132,3,32,207,|
00000F80: 32 35 35 2C 31 34 35 00 CB 17 A2 3A 83 33 2C 31 |255,145....:.3,1|
00000F90: 36 35 2C 31 34 34 2C 32 30 38 2C 33 2C 32 30 30 |65,144,208,3,200|
00000FA0: 2C 32 30 38 2C 32 34 34 2C 33 32 2C 32 30 34 2C |,208,244,32,204,|
00000FB0: 32 35 35 2C 39 36 2C 31 36 32 2C 33 2C 33 32 2C |255,96,162,3,32,|
00000FC0: 32 30 31 2C 32 35 35 2C 31 36 30 00 11 18 AC 3A |201,255,160....:|
00000FD0: 83 30 2C 31 33 32 2C 33 2C 31 37 37 2C 33 2C 33 |.0,132,3,177,3,3|
00000FE0: 32 2C 32 31 30 2C 32 35 35 2C 31 36 35 2C 31 34 |2,210,255,165,14|
00000FF0: 34 2C 32 30 38 2C 33 2C 32 30 30 2C 32 30 38 2C |4,208,3,200,208,|
00001000: 32 34 34 2C 33 32 2C 32 30 34 2C 32 35 35 2C 39 |244,32,204,255,9|
00001010: 36 00 00 00 |6... |
..)....I.828.883:.A:.I,A:.I:.36879,9:.".
".T...."............WHICH DRIVE (8 OR 9)
";WD.{...."D=SAVE"@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:..0.P
..".....KIDS 20 BACKUP.".`.Z..".'GOTO100
00' IF PROGRAM QUITS ABNORMALLY".}.D..".
"N"BUFFERS AVAILABLE"...N..1,WD,15...H..
*** MAIN FUNCTIONS ****...R..1000.K...D
$."S":.3200:I2$.IR$......DR$.."2A"..".IL
LEGAL DOS 1.0 DISK.:GO10000.=....I2$.I1$
..".SOURCE AND DESTINATION HAVE SAME ID
CODE.":.10000.G....2500.C...T.TS:S.0:NU.
1:T1.T:S1.S.{....1,"I0":.3,WD,3,"#".....
."READING BLOCK #";..."..BM%(T1,S1).0..2
000:NU.NU.1:.NU.N.320...,.S1.S1.1:.S1.20
.S1.0:T1.T1.1...6..T1.TF.1.290...@..".".
..J. 3...T.D$."D":.3200:.IR$..I1$..340.6
.^..1,"I0":.3,WD,3,"#".O.H.."WRITING BUF
FER #";.B.R.NU.1:T1.T:S1.S...|..BM%(T1,S
1).0..2200:NU.NU.1:.NU.N.410.....S1.S1.1
:.S1.20.S1.0:T1.T1.1......T1.TF.1.380.F.
...".".M... 3.....S.S1.1:.S.20.S.0:T1.T1
.1.....T.T1:.T.TF.500...B.D$."S":.3200:.
IR$..I2$.450.4.L.NU.1:T1.T:S1.S:.270.I..
.. FINISHED XFERS.P... 1.L....55,B(998):
.56,B(999):......."..BACKUP COMPLETE":.4
000......1,WD,0,"$0"...&..#1,A$:.A$.."."
.550.B.0..A$;:.610...:..#1,A$:SS.ST:A.C(
A$):.A.A.F(A$)...D..#1,B$:SS.ST:B.C(B$):
.B.A.F(B$)...N..SS.660.(.X..A.1.B.1..630
.A.B..#1,A$:.A$.""..:.570.O.L..A$;:.610.
S.V..#1,A$:SS.ST:A.C(A$):.A.A.F(A$).....
.#1,B$:SS.ST:B.C(B$):.B.A.F(B$).....N.B.
256.A:.N:...... 1.......N.... HEADER DES
T DISK.X....4000......".INSERT DESTINATI
ON DISK TO BE FORMATTED".H...."..DISK
NAME.... ................
...";DN$.C....DN$.".".."...";:.1020.X...
.C(DN$).16..:.40.....F.0:.J.1.C(DN$):S1$
.J(DN$,J,1)...$..S1$.".".S1$.G(34).F.1.N
....J:.F.."...";:.1020...8..".UNIQUE DIS
K ID.... .............
..........";I1$.1.B..I1$.".".."..";:.108
0.M.L..C(I1$)..2.."..";:.1080.F.V..1,"N0
:".DN$.",".I1$.P.`..3000...J..ER..ER$:.1
0000...T.....P.. READ BLOCK T1,S1 TO BUF
FER # NU...Z.C...N....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.I....NU..0
.." ...";I(" ".D(NU),3);"...";... ..9
96,B(3):.997,B(4):.4,BB.NU:.MA...%..3,B(
996):.4,B(997).D.*..ST....ST..64..3000:.
2050.J.4........ WRITE BLOCK T1,S1 FROM
BUFFER # NU.....C........1,"B-A";0;T1;S1
:.1,"B-P";3;0.B...." ...";I(" ".D(NU)
,3);"...";.I....996,B(3):.997,B(4):.4,BB
.NU:.MA.3...E..3,B(996):.4,B(997)...J..S
T....ST..64..".IEEE WRITE ERROR"ST".:GO1
0000.J.T..1,"U2";3;0;T1;S1......3000:..E
R.2300.....C.C.1:.C.3.2260......".UNRECO
VERABLE WRITE ERROR"ER$:.10000.$.....>.D
.. GET BAM TO BM$(T,S).L.N.TS.1:TF...D.X
..1,"I0":.3,WD,3,"#".M...S9.0......".TRA
CK # BLOCKS TO XFER"......"###########
#############".Q...NU.0:T1.18:S1.0:C0$.G
(.):.2000.Z...BY.4.....T%.(BY.4).4.1....
.." ";T%;...(..B(BA.BY)....J...20:BM%(T
%,J)..:.:BY.BY.4:.2650.6.2.S.0.P.<.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...Z.
ES.21:.T%.17.ES.19...D..T%.24.ES.18.D.N.
.T%.30.ES.17...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%.T
S.TS.1:.2730.M. ..SM....TF.T%.^....BY.14
3.2580.E... 3......"START =";TS;" FINISH
=";TF...H..".A TOTAL OF";S9;"BLOCKS TO
XFER".I.R.S8.90.25.(.650..980).S9.....S7
..(S8.60):."APPROX";S7":".(S8.S7.60);"FO
R COPY".......!.... READ ERR CH TO ER,ER
$.X.B..1,E0$,E1$,E2$,E3$:ER$.E0$.",".E1$
.",".E2$.",".E3$.T.L.ER.C(E0$):.ER.ER.E(
E0$).Z.V........ INSTRUCT TO SWAP TO DIS
K GIVEN IN D$.I....D$."D".S1$."DESTINATI
ON":.3230.Z...S1$."SOURCE"......4000....
.."...INSERT ";S1$;" DISK, PRESS.SPACE..
".'....A$:.A$.." ".3240.8....2,WD,0,"$0"
.N....3000:.ER.0.10000.D.F..J.1.26:.#2,A
$:.J...P..#2,A$:.#2,B$:IR$.A$.B$...Z..#2
,A$:.#2,A$:.#2,B$:DR$.A$.B$..... 2:..O.
.VO.36878:VJ.36875:XT.0:.VJ,220......VO,
15:.TU.1.40:.TU:.VO,0:.TQ.1.40:.TQ.....X
T.XT.1:.XT..5........4001.(..'. DROP OUT
.F..'.55,B(998):.56,B(999):.:.....:.76,6
6,3,76,91,3,162,3,32,198,255,160,0,132,3
,32,207,255,145.K..:.3,165,144,208,3,200
,208,244,32,204,255,96,162,3,32,201,255,
160....:.0,132,3,177,3,32,210,255,165,14
4,208,3,200,208,244,32,204,255,96...
> CLICK IMAGE PREVIEW FOR FULL MODAL