JELLE'S BACKUP
FILE INFORMATION
FILENAME(S): JELLE'S BACKUP
FILE TYPE(S): PRG
FILE SIZE: 3.8K
FIRST SEEN: 2025-11-30 21:08:56
APPEARS ON: 1 disk(s)
FILE HASH
e7e69b6cbdf759498bb497fdf8abfe73cc7d1b08519968c367c562940102a7f9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HULPPROGRAM | JELLE'S BACKUP | PRG | DuncanTwain | 19 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 02 00 8F 20 43 4F 4D 50 55 54 45 20 |..".... COMPUTE |
00000010: 4A 55 4C 59 20 31 39 38 33 20 50 41 47 45 20 31 |JULY 1983 PAGE 1|
00000020: 36 30 00 3B 08 03 00 81 49 B2 38 32 38 A4 39 31 |60.;....I.828.91|
00000030: 34 3A 87 41 3A 97 49 2C 41 3A 82 00 52 08 14 00 |4:.A:.I,A:..R...|
00000040: 9E 39 30 32 3A 42 42 B2 33 34 3A 97 39 39 35 2C |.902:BB.34:.995,|
00000050: 42 42 00 75 08 1E 00 97 39 39 38 2C 30 3A 97 39 |BB.u....998,0:.9|
00000060: 39 39 2C 32 35 35 3A 97 35 35 2C 30 3A 97 35 36 |99,255:.55,0:.56|
00000070: 2C 42 42 3A 9C 00 83 08 28 00 42 42 B2 C2 28 39 |,BB:....(.BB..(9|
00000080: 39 35 29 00 A6 08 32 00 4E B2 C2 28 39 39 39 29 |95)...2.N..(999)|
00000090: AB 42 42 AB 31 3A 42 41 B2 42 42 AC 32 35 36 3A |.BB.1:BA.BB.256:|
000000A0: 4D 41 B2 38 32 38 00 B6 08 3C 00 86 42 4D 25 28 |MA.828...<..BM%(|
000000B0: 33 35 2C 32 34 29 00 CD 08 46 00 81 4A B2 30 A4 |35,24)...F..J.0.|
000000C0: 37 3A 54 41 28 4A 29 B2 32 AE 4A 3A 82 00 E6 08 |7:TA(J).2.J:....|
000000D0: 50 00 99 22 93 9D 9D 9D 12 42 41 43 4B 55 50 20 |P..".....BACKUP |
000000E0: 31 35 34 31 92 22 00 17 09 5A 00 99 22 11 27 47 |1541."...Z..".'G|
000000F0: 4F 54 4F 20 31 30 30 30 30 27 20 49 46 20 50 52 |OTO 10000' IF PR|
00000100: 4F 47 52 41 4D 20 51 55 49 54 53 20 41 42 4E 4F |OGRAM QUITS ABNO|
00000110: 52 4D 41 4C 4C 59 22 00 34 09 64 00 99 22 11 22 |RMALLY".4.d.."."|
00000120: 4E 22 42 55 46 46 45 52 53 20 41 56 41 49 4C 45 |N"BUFFERS AVAILE|
00000130: 42 4C 45 22 00 40 09 6E 00 9F 31 2C 38 2C 31 35 |BLE".@.n..1,8,15|
00000140: 00 5D 09 C8 00 8F 20 2A 2A 2A 20 4D 41 49 4E 20 |.].... *** MAIN |
00000150: 46 55 4E 43 54 49 4F 4E 53 20 2A 2A 2A 00 67 09 |FUNCTIONS ***.g.|
00000160: D2 00 8D 31 30 30 30 00 80 09 DC 00 44 24 B2 22 |...1000.....D$."|
00000170: 53 22 3A 8D 33 32 30 30 3A 49 32 24 B2 49 52 24 |S":.3200:I2$.IR$|
00000180: 00 B0 09 E6 00 8B 44 52 24 B3 B1 22 32 41 22 A7 |......DR$.."2A".|
00000190: 99 22 12 49 4C 4C 45 47 41 4C 20 44 4F 53 20 31 |.".ILLEGAL DOS 1|
000001A0: 2E 30 20 44 49 53 4B 92 22 3A 89 31 30 30 30 30 |.0 DISK.":.10000|
000001B0: 00 F2 09 F0 00 8B 49 32 24 B2 49 31 24 A7 99 22 |......I2$.I1$.."|
000001C0: 12 53 4F 55 52 43 45 20 41 4E 44 20 44 45 53 54 |.SOURCE AND DEST|
000001D0: 49 4E 41 54 49 4F 4E 20 48 41 56 45 20 53 41 4D |INATION HAVE SAM|
000001E0: 45 20 49 44 20 43 4F 44 45 92 22 3A 89 31 30 30 |E ID CODE.":.100|
000001F0: 30 30 00 FC 09 FA 00 8D 32 35 30 30 00 18 0A 04 |00......2500....|
00000200: 01 54 B2 54 53 3A 53 B2 30 3A 4E 55 B2 31 3A 54 |.T.TS:S.0:NU.1:T|
00000210: 31 B2 54 3A 53 31 B2 53 00 2F 0A 0E 01 98 31 2C |1.T:S1.S./....1,|
00000220: 22 49 30 22 3A 9F 33 2C 38 2C 33 2C 22 23 22 00 |"I0":.3,8,3,"#".|
00000230: 47 0A 18 01 99 22 52 45 41 44 49 4E 47 20 42 4C |G...."READING BL|
00000240: 4F 43 4B 20 23 22 3B 00 71 0A 22 01 8B 42 4D 25 |OCK #";.q."..BM%|
00000250: 28 54 31 2C 53 31 29 B2 30 A7 8D 32 30 30 30 3A |(T1,S1).0..2000:|
00000260: 4E 55 B2 4E 55 AA 31 3A 8B 4E 55 B1 4E A7 33 32 |NU.NU.1:.NU.N.32|
00000270: 30 00 91 0A 2C 01 53 31 B2 53 31 AA 31 3A 8B 53 |0...,.S1.S1.1:.S|
00000280: 31 B1 32 30 A7 53 31 B2 30 3A 54 31 B2 54 31 AA |1.20.S1.0:T1.T1.|
00000290: 31 00 A2 0A 36 01 8B 54 31 B3 54 46 AA 31 A7 32 |1...6..T1.TF.1.2|
000002A0: 39 30 00 AB 0A 40 01 99 22 11 22 00 B2 0A 4A 01 |90...@.."."...J.|
000002B0: A0 33 00 D1 0A 54 01 44 24 B2 22 44 22 3A 8D 33 |.3...T.D$."D":.3|
000002C0: 32 30 30 3A 8B 49 52 24 B3 B1 49 31 24 A7 33 34 |200:.IR$..I1$.34|
000002D0: 30 00 E8 0A 5E 01 98 31 2C 22 49 30 22 3A 9F 33 |0...^..1,"I0":.3|
000002E0: 2C 38 2C 33 2C 22 23 22 00 01 0B 68 01 99 22 57 |,8,3,"#"...h.."W|
000002F0: 52 49 54 49 4E 47 20 42 55 46 46 45 52 20 23 22 |RITING BUFFER #"|
00000300: 3B 00 14 0B 72 01 4E 55 B2 31 3A 54 31 B2 54 3A |;...r.NU.1:T1.T:|
00000310: 53 31 B2 53 00 3E 0B 7C 01 8B 42 4D 25 28 54 31 |S1.S.>.|..BM%(T1|
00000320: 2C 53 31 29 B2 30 A7 8D 32 32 30 30 3A 4E 55 B2 |,S1).0..2200:NU.|
00000330: 4E 55 AA 31 3A 8B 4E 55 B1 4E A7 34 31 30 00 5E |NU.1:.NU.N.410.^|
00000340: 0B 86 01 53 31 B2 53 31 AA 31 3A 8B 53 31 B1 32 |...S1.S1.1:.S1.2|
00000350: 30 A7 53 31 B2 30 3A 54 31 B2 54 31 AA 31 00 6F |0.S1.0:T1.T1.1.o|
00000360: 0B 90 01 8B 54 31 B3 54 46 AA 31 A7 33 38 30 00 |....T1.TF.1.380.|
00000370: 78 0B 9A 01 99 22 11 22 00 7F 0B A4 01 A0 33 00 |x...."."......3.|
00000380: 9C 0B AE 01 53 B2 53 31 AA 31 3A 8B 53 B1 32 30 |....S.S1.1:.S.20|
00000390: A7 53 B2 30 3A 54 31 B2 54 31 AA 31 00 AF 0B B8 |.S.0:T1.T1.1....|
000003A0: 01 54 B2 54 31 3A 8B 54 B1 54 46 A7 35 30 30 00 |.T.T1:.T.TF.500.|
000003B0: CE 0B C2 01 44 24 B2 22 53 22 3A 8D 33 32 30 30 |....D$."S":.3200|
000003C0: 3A 8B 49 52 24 B3 B1 49 32 24 A7 34 35 30 00 E6 |:.IR$..I2$.450..|
000003D0: 0B CC 01 4E 55 B2 31 3A 54 31 B2 54 3A 53 31 B2 |...NU.1:T1.T:S1.|
000003E0: 53 3A 89 32 37 30 00 07 0C F4 01 8F 20 2A 2A 2A |S:.270...... ***|
000003F0: 20 46 49 4E 49 53 48 45 44 20 54 52 41 4E 53 46 | FINISHED TRANSF|
00000400: 45 52 53 20 2A 2A 2A 00 0E 0C FE 01 A0 31 00 22 |ERS ***......1."|
00000410: 0C 08 02 97 35 35 2C 30 3A 97 35 36 2C 31 36 30 |....55,0:.56,160|
00000420: 3A 9C 00 3C 0C 12 02 99 22 11 11 42 41 43 4B 55 |:..<...."..BACKU|
00000430: 50 20 43 4F 4D 50 4C 45 54 45 2E 22 00 4C 0C 1C |P COMPLETE.".L..|
00000440: 02 9F 31 2C 38 2C 30 2C 22 24 30 22 00 64 0C 26 |..1,8,0,"$0".d.&|
00000450: 02 A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 22 12 22 |..#1,A$:.A$.."."|
00000460: A7 35 35 30 00 72 0C 30 02 99 41 24 3B 3A 89 36 |.550.r.0..A$;:.6|
00000470: 31 30 00 96 0C 3A 02 A1 23 31 2C 41 24 3A 53 53 |10...:..#1,A$:SS|
00000480: B2 53 54 3A 41 B2 C3 28 41 24 29 3A 8B 41 A7 41 |.ST:A..(A$):.A.A|
00000490: B2 C6 28 41 24 29 00 BA 0C 44 02 A1 23 31 2C 42 |..(A$)...D..#1,B|
000004A0: 24 3A 53 53 B2 53 54 3A 42 B2 C3 28 42 24 29 3A |$:SS.ST:B..(B$):|
000004B0: 8B 42 A7 41 B2 C6 28 42 24 29 00 C6 0C 4E 02 8B |.B.A..(B$)...N..|
000004C0: 53 53 A7 36 36 30 00 D8 0C 58 02 8B 41 B2 31 AF |SS.660...X..A.1.|
000004D0: 42 B2 31 A7 8D 36 33 30 00 F1 0C 62 02 A1 23 31 |B.1..630...b..#1|
000004E0: 2C 41 24 3A 8B 41 24 B2 22 22 A7 99 3A 89 35 37 |,A$:.A$.""..:.57|
000004F0: 30 00 FF 0C 6C 02 99 41 24 3B 3A 89 36 31 30 00 |0...l..A$;:.610.|
00000500: 23 0D 76 02 A1 23 31 2C 41 24 3A 53 53 B2 53 54 |#.v..#1,A$:SS.ST|
00000510: 3A 41 B2 C3 28 41 24 29 3A 8B 41 A7 41 B2 C6 28 |:A..(A$):.A.A..(|
00000520: 41 24 29 00 47 0D 80 02 A1 23 31 2C 42 24 3A 53 |A$).G....#1,B$:S|
00000530: 53 B2 53 54 3A 42 B2 C3 28 42 24 29 3A 8B 42 A7 |S.ST:B..(B$):.B.|
00000540: 42 B2 C6 28 42 24 29 00 5B 0D 8A 02 4E B2 42 AC |B..(B$).[...N.B.|
00000550: 32 35 36 AA 41 3A 99 4E 3B 3A 8E 00 62 0D 94 02 |256.A:.N;:..b...|
00000560: A0 31 00 68 0D 9E 02 80 00 87 0D E8 03 8F 20 2A |.1.h.......... *|
00000570: 2A 2A 20 48 45 41 44 45 52 20 44 45 53 54 20 44 |** HEADER DEST D|
00000580: 49 53 4B 20 2A 2A 2A 00 B7 0D F2 03 99 22 11 49 |ISK ***......".I|
00000590: 4E 53 45 52 54 20 44 45 53 54 49 4E 41 54 49 4F |NSERT DESTINATIO|
000005A0: 4E 20 44 49 53 4B 20 54 4F 20 42 45 20 46 4F 52 |N DISK TO BE FOR|
000005B0: 4D 41 54 54 45 44 22 00 F4 0D FC 03 85 22 11 11 |MATTED"......"..|
000005C0: 44 49 53 4B 20 4E 41 4D 45 1D 1D 1D A0 20 20 20 |DISK NAME.... |
000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 9D 9D 9D 9D | ....|
000005E0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 |..............."|
000005F0: 3B 44 4E 24 00 0F 0E 06 04 8B 44 4E 24 B2 22 A0 |;DN$......DN$.".|
00000600: 22 A7 99 22 91 91 91 22 3B 3A 89 31 30 32 30 00 |".."...";:.1020.|
00000610: 24 0E 10 04 8B C3 28 44 4E 24 29 B1 31 36 A7 9C |$.....(DN$).16..|
00000620: 3A 89 34 30 00 47 0E 1A 04 46 B2 30 3A 81 4A B2 |:.40.G...F.0:.J.|
00000630: 31 A4 C3 28 44 4E 24 29 3A 53 31 24 B2 CA 28 44 |1..(DN$):S1$..(D|
00000640: 4E 24 2C 4A 2C 31 29 00 62 0E 24 04 8B 53 31 24 |N$,J,1).b.$..S1$|
00000650: B2 22 A0 22 B0 53 31 24 B2 C7 28 33 34 29 A7 46 |.".".S1$..(34).F|
00000660: B2 31 00 7A 0E 2E 04 82 4A 3A 8B 46 A7 99 22 91 |.1.z....J:.F..".|
00000670: 91 91 22 3B 3A 89 31 30 32 30 00 C4 0E 38 04 85 |..";:.1020...8..|
00000680: 22 11 55 4E 49 51 55 45 20 44 49 53 4B 20 49 44 |".UNIQUE DISK ID|
00000690: 1D 1D 1D A0 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
000006A0: 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D | ........|
000006B0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 |..............."|
000006C0: 3B 49 31 24 00 DE 0E 42 04 8B 49 31 24 B2 22 A0 |;I1$...B..I1$.".|
000006D0: 22 A7 99 22 91 91 22 3B 3A 89 31 30 38 30 00 FA |".."..";:.1080..|
000006E0: 0E 4C 04 8B C3 28 49 31 24 29 B3 B1 32 A7 99 22 |.L...(I1$)..2.."|
000006F0: 91 91 22 3B 3A 89 31 30 38 30 00 13 0F 56 04 98 |..";:.1080...V..|
00000700: 31 2C 22 4E 30 3A 22 AA 44 4E 24 AA 22 2C 22 AA |1,"N0:".DN$.",".|
00000710: 49 31 24 00 1D 0F 60 04 8D 33 30 30 30 00 31 0F |I1$...`..3000.1.|
00000720: 6A 04 8B 45 52 A7 99 45 52 24 3A 89 31 30 30 30 |j..ER..ER$:.1000|
00000730: 30 00 37 0F 74 04 8E 00 5D 0F D0 07 8F 20 52 45 |0.7.t...].... RE|
00000740: 41 44 20 42 4C 4F 43 4B 20 54 31 2C 53 31 20 54 |AD BLOCK T1,S1 T|
00000750: 4F 20 42 55 46 46 45 52 20 23 20 4E 55 00 65 0F |O BUFFER # NU.e.|
00000760: DA 07 43 B2 2E 00 7B 0F E4 07 98 31 2C 22 55 31 |..C...{....1,"U1|
00000770: 22 3B 33 3B 30 3B 54 31 3B 53 31 00 8F 0F EE 07 |";3;0;T1;S1.....|
00000780: 8D 33 30 30 30 3A 8B A8 45 52 A7 32 30 36 30 00 |.3000:..ER.2060.|
00000790: A3 0F F8 07 43 B2 43 AA 31 3A 8B 43 B3 33 A7 32 |....C.C.1:.C.3.2|
000007A0: 30 32 30 00 D9 0F 02 08 99 45 52 24 3A 81 4A B2 |020......ER$:.J.|
000007B0: 28 42 42 AA 4E 55 29 AC 32 35 36 A4 28 42 42 AA |(BB.NU).256.(BB.|
000007C0: 4E 55 29 AC 32 35 36 AA 32 35 35 3A 97 4A 2C 2E |NU).256.255:.J,.|
000007D0: 3A 82 4A 3A 89 32 31 30 30 00 EA 0F 0C 08 98 31 |:.J:.2100......1|
000007E0: 2C 22 42 2D 50 22 3B 33 3B 30 00 16 10 16 08 8B |,"B-P";3;0......|
000007F0: 4E 55 B3 B1 30 A7 99 22 20 20 20 9D 9D 9D 22 3B |NU..0.." ...";|
00000800: C9 28 22 20 20 22 AA C4 28 4E 55 29 2C 33 29 3B |.(" "..(NU),3);|
00000810: 22 9D 9D 9D 22 3B 00 3B 10 20 08 97 39 39 36 2C |"...";.;. ..996,|
00000820: C2 28 33 29 3A 97 39 39 37 2C C2 28 34 29 3A 97 |.(3):.997,.(4):.|
00000830: 34 2C 42 42 AA 4E 55 3A 9E 4D 41 00 53 10 25 08 |4,BB.NU:.MA.S.%.|
00000840: 97 33 2C C2 28 39 39 36 29 3A 97 34 2C C2 28 39 |.3,.(996):.4,.(9|
00000850: 39 37 29 00 71 10 2A 08 8B 53 54 B3 B1 2E AF 53 |97).q.*..ST....S|
00000860: 54 B3 B1 36 34 A7 8D 33 30 30 30 3A 89 32 30 35 |T..64..3000:.205|
00000870: 30 00 77 10 34 08 8E 00 9F 10 98 08 8F 20 57 52 |0.w.4........ WR|
00000880: 49 54 45 20 42 4C 4F 43 4B 20 54 31 2C 53 31 20 |ITE BLOCK T1,S1 |
00000890: 46 52 4F 4D 20 42 55 46 46 45 52 20 23 4E 55 00 |FROM BUFFER #NU.|
000008A0: A7 10 A2 08 43 B2 2E 00 C9 10 AC 08 98 31 2C 22 |....C........1,"|
000008B0: 42 2D 41 22 3B 30 3B 54 31 3B 53 31 3A 98 31 2C |B-A";0;T1;S1:.1,|
000008C0: 22 42 2D 50 22 3B 33 3B 30 00 EE 10 B6 08 99 22 |"B-P";3;0......"|
000008D0: 20 20 20 9D 9D 9D 22 3B C9 28 22 20 20 22 AA C4 | ...";.(" "..|
000008E0: 28 4E 55 29 2C 33 29 3B 22 9D 9D 9D 22 3B 00 16 |(NU),3);"...";..|
000008F0: 11 C0 08 97 39 39 36 2C C2 28 33 29 3A 97 39 39 |....996,.(3):.99|
00000900: 37 2C C2 28 34 29 3A 97 34 2C 42 42 AA 4E 55 3A |7,.(4):.4,BB.NU:|
00000910: 9E 4D 41 AA 33 37 00 2E 11 C5 08 97 33 2C C2 28 |.MA.37......3,.(|
00000920: 39 39 36 29 3A 97 34 2C C2 28 39 39 37 29 00 61 |996):.4,.(997).a|
00000930: 11 CA 08 8B 53 54 B3 B1 2E AF 53 54 B3 B1 36 34 |....ST....ST..64|
00000940: A7 99 22 12 49 45 45 45 20 57 52 49 54 45 20 45 |..".IEEE WRITE E|
00000950: 52 52 4F 52 22 53 54 22 92 22 3A 89 31 30 30 30 |RROR"ST".":.1000|
00000960: 30 00 77 11 D4 08 98 31 2C 22 55 32 22 3B 33 3B |0.w....1,"U2";3;|
00000970: 30 3B 54 31 3B 53 31 00 8B 11 DE 08 8D 33 30 30 |0;T1;S1......300|
00000980: 30 3A 8B A8 45 52 A7 32 33 30 30 00 9F 11 E8 08 |0:..ER.2300.....|
00000990: 43 B2 43 AA 31 3A 8B 43 B3 33 A7 32 32 36 30 00 |C.C.1:.C.3.2260.|
000009A0: CB 11 F2 08 99 22 12 55 4E 52 45 43 4F 56 45 52 |.....".UNRECOVER|
000009B0: 41 42 4C 45 20 57 52 49 54 45 20 45 52 52 4F 52 |ABLE WRITE ERROR|
000009C0: 22 45 52 24 3A 89 31 30 30 30 30 00 D1 11 FC 08 |"ER$:.10000.....|
000009D0: 8E 00 EB 11 C4 09 8F 20 47 45 54 20 42 41 4D 20 |....... GET BAM |
000009E0: 54 4F 20 42 4D 25 28 54 2C 53 29 00 F9 11 CE 09 |TO BM%(T,S).....|
000009F0: 54 53 B2 31 3A 54 46 B2 2E 00 10 12 D8 09 98 31 |TS.1:TF........1|
00000A00: 2C 22 49 30 22 3A 9F 33 2C 38 2C 33 2C 22 23 22 |,"I0":.3,8,3,"#"|
00000A10: 00 19 12 E2 09 53 39 B2 30 00 3A 12 EC 09 99 22 |.....S9.0.:...."|
00000A20: 11 54 52 41 43 4B 20 23 20 20 20 42 4C 4F 43 4B |.TRACK # BLOCK|
00000A30: 53 20 54 4F 20 58 46 45 52 22 00 5A 12 F6 09 99 |S TO XFER".Z....|
00000A40: 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |"...............|
00000A50: A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 7D 12 00 0A 4E |.........".}...N|
00000A60: 55 B2 30 3A 54 31 B2 31 38 3A 53 31 B2 30 3A 43 |U.0:T1.18:S1.0:C|
00000A70: 30 24 B2 C7 28 2E 29 3A 8D 32 30 30 30 00 86 12 |0$..(.):.2000...|
00000A80: 0A 0A 42 59 B2 34 00 98 12 14 0A 54 25 B2 28 42 |..BY.4.....T%.(B|
00000A90: 59 AB 34 29 AD 34 AA 31 00 A6 12 1E 0A 99 22 20 |Y.4).4.1......" |
00000AA0: 20 22 3B 54 25 3B 00 DA 12 28 0A 8B C2 28 42 41 | ";T%;...(...(BA|
00000AB0: AA 42 59 29 B2 2E A7 81 4A B2 2E A4 32 30 3A 42 |.BY)....J...20:B|
00000AC0: 4D 25 28 54 25 2C 4A 29 B2 2E 3A 82 3A 42 59 B2 |M%(T%,J)..:.:BY.|
00000AD0: 42 59 AA 34 3A 89 32 36 35 30 00 E2 12 32 0A 53 |BY.4:.2650...2.S|
00000AE0: B2 30 00 22 13 3C 0A 42 59 B2 42 59 AA 31 3A 45 |.0.".<.BY.BY.1:E|
00000AF0: 53 B2 32 31 3A 41 30 B2 C2 28 42 41 AA 42 59 29 |S.21:A0..(BA.BY)|
00000B00: 3A 81 4A B2 2E A4 37 3A 42 4D 25 28 54 25 2C 53 |:.J...7:BM%(T%,S|
00000B10: 29 B2 41 30 AF 54 41 28 4A 29 3A 53 B2 53 AA 31 |).A0.TA(J):S.S.1|
00000B20: 3A 82 00 31 13 46 0A 8B 53 B3 32 32 A7 32 36 32 |:..1.F..S.22.262|
00000B30: 30 00 3D 13 50 0A 42 59 B2 42 59 AA 31 00 54 13 |0.=.P.BY.BY.1.T.|
00000B40: 5A 0A 45 53 B2 32 31 3A 8B 54 25 B1 31 37 A7 45 |Z.ES.21:.T%.17.E|
00000B50: 53 B2 31 39 00 65 13 64 0A 8B 54 25 B1 32 34 A7 |S.19.e.d..T%.24.|
00000B60: 45 53 B2 31 38 00 76 13 6E 0A 8B 54 25 B1 33 30 |ES.18.v.n..T%.30|
00000B70: A7 45 53 B2 31 37 00 92 13 78 0A 81 4A B2 45 53 |.ES.17...x..J.ES|
00000B80: A4 32 34 3A 42 4D 25 28 54 25 2C 4A 29 B2 AB 31 |.24:BM%(T%,J)..1|
00000B90: 3A 82 00 B8 13 82 0A 53 4D B2 2E 3A 81 4A B2 2E |:......SM..:.J..|
00000BA0: A4 32 30 3A 8B 42 4D 25 28 54 25 2C 4A 29 B2 2E |.20:.BM%(T%,J)..|
00000BB0: A7 53 4D B2 53 4D AA 31 00 D0 13 8C 0A 82 3A 99 |.SM.SM.1......:.|
00000BC0: A3 31 32 29 3B 53 4D 3A 53 39 B2 53 39 AA 53 4D |.12);SM:S9.S9.SM|
00000BD0: 00 EE 13 96 0A 8B 53 4D B2 2E AF 54 53 B2 54 25 |......SM...TS.T%|
00000BE0: A7 54 53 B2 54 53 AA 31 3A 89 32 37 33 30 00 FF |.TS.TS.1:.2730..|
00000BF0: 13 A0 0A 8B 53 4D B3 B1 2E A7 54 46 B2 54 25 00 |....SM....TF.T%.|
00000C00: 10 14 AA 0A 8B 42 59 B3 31 34 33 A7 32 35 38 30 |.....BY.143.2580|
00000C10: 00 17 14 B4 0A A0 33 00 38 14 BE 0A 99 22 53 54 |......3.8...."ST|
00000C20: 41 52 54 20 3D 22 3B 54 53 3B 22 20 46 49 4E 49 |ART =";TS;" FINI|
00000C30: 53 48 20 3D 22 3B 54 46 00 5F 14 C8 0A 99 22 11 |SH =";TF._....".|
00000C40: 41 20 54 4F 54 41 4C 20 4F 46 22 3B 53 39 3B 22 |A TOTAL OF";S9;"|
00000C50: 42 4C 4F 43 4B 53 20 54 4F 20 58 46 45 52 22 00 |BLOCKS TO XFER".|
00000C60: 65 14 D2 0A 8E 00 9C 14 B8 0B 84 31 2C 45 30 24 |e..........1,E0$|
00000C70: 2C 45 31 24 2C 45 32 24 2C 45 33 24 3A 45 52 24 |,E1$,E2$,E3$:ER$|
00000C80: B2 45 30 24 AA 22 2C 22 AA 45 31 24 AA 22 2C 22 |.E0$.",".E1$.","|
00000C90: AA 45 32 24 AA 22 2C 22 AA 45 33 24 00 B8 14 C2 |.E2$.",".E3$....|
00000CA0: 0B 45 52 B2 C3 28 45 30 24 29 3A 8B 45 52 A7 45 |.ER..(E0$):.ER.E|
00000CB0: 52 B2 C5 28 45 30 24 29 00 BE 14 CC 0B 8E 00 E2 |R..(E0$)........|
00000CC0: 14 80 0C 8B 44 24 B2 22 44 22 A7 53 31 24 B2 22 |....D$."D".S1$."|
00000CD0: 44 45 53 54 49 4E 41 54 49 4F 4E 22 3A 89 33 32 |DESTINATION":.32|
00000CE0: 33 30 00 F3 14 94 0C 53 31 24 B2 22 53 4F 55 52 |30.....S1$."SOUR|
00000CF0: 43 45 22 00 1E 15 9E 0C 99 22 11 49 4E 53 45 52 |CE"......".INSER|
00000D00: 54 20 22 3B 53 31 24 3B 22 20 44 49 53 4B 2C 20 |T ";S1$;" DISK, |
00000D10: 50 52 45 53 53 20 12 53 50 41 43 45 92 22 00 34 |PRESS .SPACE.".4|
00000D20: 15 A8 0C A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 |....A$:.A$.." ".|
00000D30: 33 32 34 30 00 44 15 B2 0C 9F 32 2C 38 2C 30 2C |3240.D....2,8,0,|
00000D40: 22 24 30 22 00 5A 15 BC 0C 8D 33 30 30 30 3A 8B |"$0".Z....3000:.|
00000D50: 45 52 B1 30 A7 31 30 30 30 30 00 6F 15 C6 0C 81 |ER.0.10000.o....|
00000D60: 4A B2 31 A4 32 36 3A A1 23 32 2C 41 24 3A 82 00 |J.1.26:.#2,A$:..|
00000D70: 8B 15 D0 0C A1 23 32 2C 41 24 3A A1 23 32 2C 42 |.....#2,A$:.#2,B|
00000D80: 24 3A 49 52 24 B2 41 24 AA 42 24 00 AE 15 DA 0C |$:IR$.A$.B$.....|
00000D90: A1 23 32 2C 41 24 3A A1 23 32 2C 41 24 3A A1 23 |.#2,A$:.#2,A$:.#|
00000DA0: 32 2C 42 24 3A 44 52 24 B2 41 24 AA 42 24 00 B7 |2,B$:DR$.A$.B$..|
00000DB0: 15 E4 0C A0 32 3A 8E 00 CD 15 10 27 97 35 35 2C |....2:.....'.55,|
00000DC0: 30 3A 97 35 36 2C 31 36 30 3A 9C 3A 90 00 18 16 |0:.56,160:.:....|
00000DD0: 98 3A 83 31 36 32 2C 33 2C 33 32 2C 31 39 38 2C |.:.162,3,32,198,|
00000DE0: 32 35 35 2C 31 36 30 2C 30 2C 31 33 32 2C 33 2C |255,160,0,132,3,|
00000DF0: 33 32 2C 32 30 37 2C 32 35 35 2C 37 32 2C 31 32 |32,207,255,72,12|
00000E00: 30 2C 31 36 39 2C 35 32 2C 31 33 33 2C 31 2C 31 |0,169,52,133,1,1|
00000E10: 30 34 2C 31 34 35 2C 33 00 62 16 99 3A 83 31 36 |04,145,3.b..:.16|
00000E20: 39 2C 35 35 2C 31 33 33 2C 31 2C 38 38 2C 31 36 |9,55,133,1,88,16|
00000E30: 35 2C 31 34 34 2C 32 30 38 2C 33 2C 32 30 30 2C |5,144,208,3,200,|
00000E40: 32 30 38 2C 32 33 32 2C 33 32 2C 32 30 34 2C 32 |208,232,32,204,2|
00000E50: 35 35 2C 39 36 2C 31 36 32 2C 33 2C 33 32 2C 32 |55,96,162,3,32,2|
00000E60: 30 31 00 A8 16 9A 3A 83 32 35 35 2C 31 36 30 2C |01....:.255,160,|
00000E70: 30 2C 31 33 32 2C 33 2C 31 32 30 2C 31 36 39 2C |0,132,3,120,169,|
00000E80: 35 32 2C 31 33 33 2C 31 2C 31 37 37 2C 33 2C 37 |52,133,1,177,3,7|
00000E90: 32 2C 31 36 39 2C 35 35 2C 31 33 33 2C 31 2C 38 |2,169,55,133,1,8|
00000EA0: 38 2C 31 30 34 2C 33 32 00 E1 16 9B 3A 83 32 31 |8,104,32....:.21|
00000EB0: 30 2C 32 35 35 2C 31 36 35 2C 31 34 34 2C 32 30 |0,255,165,144,20|
00000EC0: 38 2C 33 2C 32 30 30 2C 32 30 38 2C 32 33 32 2C |8,3,200,208,232,|
00000ED0: 33 32 2C 32 30 34 2C 32 35 35 2C 39 36 2C 31 36 |32,204,255,96,16|
00000EE0: 39 00 14 17 9C 3A 83 32 30 31 2C 31 36 32 2C 35 |9....:.201,162,5|
00000EF0: 38 2C 31 36 30 2C 31 37 36 2C 31 33 33 2C 31 32 |8,160,176,133,12|
00000F00: 34 2C 31 33 34 2C 31 32 35 2C 31 33 32 2C 31 32 |4,134,125,132,12|
00000F10: 36 2C 39 36 00 00 00 00 D0 9C 50 |6,96......P |
..".... COMPUTE JULY 1983 PAGE 160.;....
I.828.914:.A:.I,A:..R....902:BB.34:.995,
BB.U....998,0:.999,255:.55,0:.56,BB:....
(.BB.B(995)...2.N.B(999).BB.1:BA.BB.256:
MA.828...<..BM%(35,24).M.F..J.0.7:TA(J).
2.J:....P..".....BACKUP 1541."...Z..".'G
OTO 10000' IF PROGRAM QUITS ABNORMALLY".
4.D.."."N"BUFFERS AVAILEBLE".@.N..1,8,15
.].H.. *** MAIN FUNCTIONS ***.G.R..1000.
....D$."S":.3200:I2$.IR$......DR$.."2A".
.".ILLEGAL DOS 1.0 DISK.":.10000......I2
$.I1$..".SOURCE AND DESTINATION HAVE SAM
E ID CODE.":.10000......2500.....T.TS:S.
0:NU.1:T1.T:S1.S./....1,"I0":.3,8,3,"#".
G...."READING BLOCK #";.Q."..BM%(T1,S1).
0..2000:NU.NU.1:.NU.N.320...,.S1.S1.1:.S
1.20.S1.0:T1.T1.1...6..T1.TF.1.290...@..
"."...J. 3.Q.T.D$."D":.3200:.IR$..I1$.34
0...^..1,"I0":.3,8,3,"#"...H.."WRITING B
UFFER #";...R.NU.1:T1.T:S1.S.>.|..BM%(T1
,S1).0..2200:NU.NU.1:.NU.N.410.^...S1.S1
.1:.S1.20.S1.0:T1.T1.1.O....T1.TF.1.380.
X....".".... 3.....S.S1.1:.S.20.S.0:T1.
T1.1.....T.T1:.T.TF.500.N.B.D$."S":.3200
:.IR$..I2$.450...L.NU.1:T1.T:S1.S:.270..
.... *** FINISHED TRANSFERS ***..... 1."
....55,0:.56,160:..<...."..BACKUP COMPLE
TE.".L....1,8,0,"$0".D.&..#1,A$:.A$.."."
.550.R.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
...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.B.F(B$).[...N.B.
256.A:.N;:..B... 1.H.......... *** HEADE
R DEST DISK ***......".INSERT DESTINATIO
N DISK TO BE FORMATTED"......"..DISK NAM
E... ..................."
;DN$......DN$." ".."...";:.1020.$....C(D
N$).16..:.40.G...F.0:.J.1.C(DN$):S1$.J(D
N$,J,1).B.$..S1$." ".S1$.G(34).F.1.Z....
J:.F.."...";:.1020.D.8..".UNIQUE DISK ID
... ................
.......";I1$...B..I1$." ".."..";:.1080..
.L..C(I1$)..2.."..";:.1080...V..1,"N0:".
DN$.",".I1$...`..3000.1.J..ER..ER$:.1000
0.7.T...].P.. READ BLOCK T1,S1 TO BUFFER
# NU.E.Z.C...{....1,"U1";3;0;T1;S1.....
.3000:..ER.2060.....C.C.1:.C.3.2020.Y...
.ER$:.J.(BB.NU).256.(BB.NU).256.255:.J,.
:.J:.2100......1,"B-P";3;0......NU..0.."
...";I(" ".D(NU),3);"...";.;. ..996,
B(3):.997,B(4):.4,BB.NU:.MA.S.%..3,B(996
):.4,B(997).Q.*..ST....ST..64..3000:.205
0.W.4........ WRITE BLOCK T1,S1 FROM BUF
FER #NU.....C...I....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.37...E..3,B(996):.4,B(997).A.J..ST..
..ST..64..".IEEE WRITE ERROR"ST".":.1000
0.W.T..1,"U2";3;0;T1;S1......3000:..ER.2
300.....C.C.1:.C.3.2260.K....".UNRECOVER
ABLE WRITE ERROR"ER$:.10000.Q.......D..
GET BAM TO BM%(T,S)...N.TS.1:TF.....X..1
,"I0":.3,8,3,"#".....S9.0.:....".TRACK #
BLOCKS TO XFER".Z...."...............
.........".}...NU.0:T1.18:S1.0:C0$.G(.):
.2000.....BY.4.....T%.(BY.4).4.1......"
";T%;.Z.(..B(BA.BY)....J...20:BM%(T%,J)
..:.:BY.BY.4:.2650...2.S.0.".<.BY.BY.1:E
S.21:A0.B(BA.BY):.J...7:BM%(T%,S).A0.TA(
J):S.S.1:..1.F..S.22.2620.=.P.BY.BY.1.T.
Z.ES.21:.T%.17.ES.19.E.D..T%.24.ES.18.V.
N..T%.30.ES.17...X..J.ES.24:BM%(T%,J)..1
:......SM..:.J...20:.BM%(T%,J)...SM.SM.1
.P....:..12);SM:S9.S9.SM......SM...TS.T%
.TS.TS.1:.2730... ..SM....TF.T%......BY.
143.2580..... 3.8...."START =";TS;" FINI
SH =";TF._.H..".A TOTAL OF";S9;"BLOCKS T
O XFER".E.R........1,E0$,E1$,E2$,E3$:ER$
.E0$.",".E1$.",".E2$.",".E3$...B.ER.C(E0
$):.ER.ER.E(E0$)...L........D$."D".S1$."
DESTINATION":.3230.....S1$."SOURCE".....
.".INSERT ";S1$;" DISK, PRESS .SPACE.".4
....A$:.A$.." ".3240.D....2,8,0,"$0".Z..
..3000:.ER.0.10000.O.F..J.1.26:.#2,A$:..
..P..#2,A$:.#2,B$:IR$.A$.B$...Z..#2,A$:.
#2,A$:.#2,B$:DR$.A$.B$..... 2:..M..'.55,
0:.56,160:.:.....:.162,3,32,198,255,160,
0,132,3,32,207,255,72,120,169,52,133,1,1
04,145,3.B..:.169,55,133,1,88,165,144,20
8,3,200,208,232,32,204,255,96,162,3,32,2
01....:.255,160,0,132,3,120,169,52,133,1
,177,3,72,169,55,133,1,88,104,32....:.21
0,255,165,144,208,3,200,208,232,32,204,2
55,96,169....:.201,162,58,160,176,133,12
4,134,125,132,126,96....P.P
> CLICK IMAGE PREVIEW FOR FULL MODAL