DISK FILE RECVRY
FILE INFORMATION
FILENAME(S): DISK FILE RECVRY
FILE TYPE(S): PRG
FILE SIZE: 9.5K
FIRST SEEN: 2025-11-30 21:05:48
APPEARS ON: 2 disk(s)
FILE HASH
cb20e7f3d00baa241499493144209613c5bfa5f62665cb242391f9daf4d01274
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VAN DOUWEN | DISK FILE RECVRY | PRG | DuncanTwain | 9 | 7 | DOWNLOAD FILE |
| C64 HULP 9 2 | DISK FILE RECVRY | PRG | DuncanTwain | 20 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 0A 04 00 00 89 34 30 30 00 1E 04 05 00 99 |.......400......|
00000010: 22 52 55 4E 22 3A 9B 35 30 30 AB 35 32 35 00 62 |"RUN":.500.525.b|
00000020: 04 0A 00 85 22 53 41 56 45 20 4F 4E 20 44 52 49 |...."SAVE ON DRI|
00000030: 56 45 20 23 A0 A0 A0 A0 9D 9D 9D 22 3B 41 3A 41 |VE #.......";A:A|
00000040: 24 B2 22 44 49 53 4B 20 46 49 4C 45 20 52 45 43 |$."DISK FILE REC|
00000050: 56 52 59 22 3A 8B 41 B3 B1 30 AF 41 B3 B1 31 A7 |VRY":.A..0.A..1.|
00000060: 31 30 00 99 04 0B 00 42 24 B2 C4 28 41 29 AA 22 |10.....B$..(A)."|
00000070: 3A 22 AA 41 24 3A 9F 31 35 2C 38 2C 31 35 2C 22 |:".A$:.15,8,15,"|
00000080: 53 22 AA 42 24 3A A0 31 35 3A 99 41 24 22 20 12 |S".B$:.15:.A$" .|
00000090: 53 43 52 41 54 43 48 45 44 00 C5 04 0C 00 94 42 |SCRATCHED......B|
000000A0: 24 2C 38 3A 95 42 24 2C 38 3A 99 41 24 22 20 12 |$,8:.B$,8:.A$" .|
000000B0: 53 41 56 45 44 20 41 4E 44 20 56 45 52 49 46 49 |SAVED AND VERIFI|
000000C0: 45 44 22 3A 80 00 EA 04 90 01 8F 20 2A 2A 2A 2A |ED":....... ****|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0F 05 91 01 8F |**********......|
000000F0: 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | * |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
00000110: 34 05 92 01 8F 20 2A 20 20 20 20 44 49 53 4B 20 |4.... * DISK |
00000120: 46 49 4C 45 20 52 45 54 52 49 45 56 45 52 20 20 |FILE RETRIEVER |
00000130: 20 20 20 2A 00 59 05 93 01 8F 20 2A 20 20 20 20 | *.Y.... * |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000150: 20 20 20 20 20 20 20 20 2A 00 7E 05 94 01 8F 20 | *.~.... |
00000160: 2A 20 20 20 20 20 20 42 59 20 44 41 56 49 44 20 |* BY DAVID |
00000170: 43 4F 4E 45 20 20 20 20 20 20 20 20 20 2A 00 A3 |CONE *..|
00000180: 05 95 01 8F 20 2A 20 20 20 20 20 20 20 20 20 20 |.... * |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 2A 00 C8 05 96 01 8F 20 2A 20 20 43 4F 4D | *...... * COM|
000001B0: 50 55 54 45 20 23 31 30 20 2D 20 4D 41 52 43 48 |PUTE #10 - MARCH|
000001C0: 20 31 39 38 31 20 20 2A 00 ED 05 97 01 8F 20 2A | 1981 *...... *|
000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 12 06 | *...|
000001F0: A9 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000210: 2A 2A 00 33 06 AB 01 8F 20 2A 20 50 55 54 20 44 |**.3.... * PUT D|
00000220: 49 53 4B 20 57 49 54 48 20 4C 4F 53 54 20 46 49 |ISK WITH LOST FI|
00000230: 4C 45 53 00 56 06 AD 01 8F 20 2A 20 49 4E 54 4F |LES.V.... * INTO|
00000240: 20 44 52 49 56 45 20 31 2E 20 54 48 49 53 20 50 | DRIVE 1. THIS P|
00000250: 52 4F 47 52 41 4D 00 79 06 AF 01 8F 20 2A 20 57 |ROGRAM.y.... * W|
00000260: 49 4C 4C 20 54 48 45 4E 20 53 45 41 52 43 48 20 |ILL THEN SEARCH |
00000270: 46 4F 52 20 46 49 4C 45 53 00 9C 06 B1 01 8F 20 |FOR FILES...... |
00000280: 2A 20 49 4E 20 54 52 41 43 4B 53 20 31 37 2D 31 |* IN TRACKS 17-1|
00000290: 20 26 20 31 39 2D 33 35 20 41 4E 44 00 C0 06 B3 | & 19-35 AND....|
000002A0: 01 8F 20 2A 20 52 45 54 55 52 4E 20 54 48 45 20 |.. * RETURN THE |
000002B0: 53 54 41 52 54 20 42 4C 4F 43 4B 2C 20 45 4E 44 |START BLOCK, END|
000002C0: 00 E5 06 B5 01 8F 20 2A 20 42 4C 4F 43 4B 2C 20 |...... * BLOCK, |
000002D0: 41 4E 44 20 4E 55 4D 42 45 52 20 4F 46 20 42 4C |AND NUMBER OF BL|
000002E0: 4F 43 4B 53 2E 00 08 07 B7 01 8F 20 2A 20 54 48 |OCKS....... * TH|
000002F0: 45 20 46 49 52 53 54 20 32 35 36 20 42 59 54 45 |E FIRST 256 BYTE|
00000300: 53 20 4F 46 20 41 4E 59 00 28 07 B9 01 8F 20 2A |S OF ANY.(.... *|
00000310: 20 46 49 4C 45 20 4D 41 59 20 42 45 20 45 58 41 | FILE MAY BE EXA|
00000320: 4D 49 4E 45 44 20 54 4F 00 46 07 BB 01 8F 20 2A |MINED TO.F.... *|
00000330: 20 41 4C 4C 4F 57 20 49 44 45 4E 54 49 46 49 43 | ALLOW IDENTIFIC|
00000340: 41 54 49 4F 4E 2E 00 69 07 BD 01 8F 20 2A 20 41 |ATION..i.... * A|
00000350: 4E 59 20 49 44 45 4E 54 49 46 49 45 44 20 46 49 |NY IDENTIFIED FI|
00000360: 4C 45 20 43 41 4E 20 42 45 00 88 07 BF 01 8F 20 |LE CAN BE...... |
00000370: 2A 20 43 4F 50 49 45 44 20 4F 4E 20 54 4F 20 44 |* COPIED ON TO D|
00000380: 52 49 56 45 20 23 30 2E 00 AD 07 C2 01 8F 20 2A |RIVE #0....... *|
00000390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C4 07 |*************...|
000003B0: C4 01 8F 20 2A 20 55 53 41 47 45 3A 20 44 52 49 |... * USAGE: DRI|
000003C0: 56 45 53 3A 00 E3 07 C6 01 8F 20 2A 20 20 20 20 |VES:...... * |
000003D0: 44 52 49 56 45 20 30 3A 20 20 47 4F 4F 44 20 44 |DRIVE 0: GOOD D|
000003E0: 49 53 4B 00 05 08 C8 01 8F 20 2A 20 20 20 20 44 |ISK...... * D|
000003F0: 52 49 56 45 20 31 3A 20 20 44 41 4D 41 47 45 44 |RIVE 1: DAMAGED|
00000400: 20 44 49 53 4B 00 1D 08 CA 01 8F 20 2A 20 20 4C | DISK...... * L|
00000410: 4F 47 49 43 41 4C 20 46 49 4C 45 53 3A 00 3F 08 |OGICAL FILES:.?.|
00000420: D6 01 8F 20 2A 20 20 20 20 31 3A 20 57 52 49 54 |... * 1: WRIT|
00000430: 45 20 46 52 4F 4D 20 4B 45 59 42 4F 41 52 44 00 |E FROM KEYBOARD.|
00000440: 5C 08 D8 01 8F 20 2A 20 20 20 20 38 3A 20 52 45 |\.... * 8: RE|
00000450: 41 44 20 46 52 4F 4D 20 44 49 53 4B 00 78 08 DA |AD FROM DISK.x..|
00000460: 01 8F 20 2A 20 20 20 20 39 3A 20 57 52 49 54 45 |.. * 9: WRITE|
00000470: 20 54 4F 20 44 49 53 4B 00 93 08 DC 01 8F 20 2A | TO DISK...... *|
00000480: 20 20 20 31 35 3A 20 44 49 53 4B 20 43 4F 4E 54 | 15: DISK CONT|
00000490: 52 4F 4C 00 AC 08 DE 01 8F 20 2A 20 20 44 49 53 |ROL...... * DIS|
000004A0: 4B 20 43 48 41 4E 4E 45 4C 3A 20 32 00 D1 08 E0 |K CHANNEL: 2....|
000004B0: 01 8F 20 2A 20 20 44 49 53 4B 20 42 55 46 46 45 |.. * DISK BUFFE|
000004C0: 52 3A 20 23 32 20 28 31 39 30 30 2D 31 39 46 46 |R: #2 (1900-19FF|
000004D0: 29 00 F6 08 E2 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |)...... ********|
000004E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004F0: 2A 2A 2A 2A 2A 2A 00 14 09 E4 01 8F 20 2A 20 20 |******...... * |
00000500: 50 52 4F 47 52 41 4D 20 45 4E 54 52 59 20 50 4F |PROGRAM ENTRY PO|
00000510: 49 4E 54 53 00 38 09 E6 01 8F 20 2A 20 20 20 20 |INTS.8.... * |
00000520: 20 31 30 20 2D 20 53 41 56 45 20 26 20 56 45 52 | 10 - SAVE & VER|
00000530: 49 46 59 20 50 52 47 4D 00 5D 09 E8 01 8F 20 2A |IFY PRGM.].... *|
00000540: 20 20 20 31 30 30 30 20 2D 20 50 52 49 4E 54 20 | 1000 - PRINT |
00000550: 53 55 4D 4D 41 52 59 20 54 41 42 4C 45 00 76 09 |SUMMARY TABLE.v.|
00000560: EA 01 8F 20 2A 20 20 20 31 31 30 30 20 2D 20 43 |... * 1100 - C|
00000570: 48 4F 49 43 45 53 00 9B 09 EC 01 8F 20 2A 2A 2A |HOICES...... ***|
00000580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B8 09 F4 01 |***********.....|
000005A0: 8F 20 2A 2A 20 4E 55 4D 45 52 49 43 41 4C 20 56 |. ** NUMERICAL V|
000005B0: 41 52 49 41 42 4C 45 53 00 D5 09 F5 01 50 28 30 |ARIABLES.....P(0|
000005C0: 29 B2 30 3A 8F 20 50 52 45 53 45 4E 54 20 54 52 |).0:. PRESENT TR|
000005D0: 41 43 4B 20 23 00 F3 09 F6 01 50 28 31 29 B2 30 |ACK #.....P(1).0|
000005E0: 3A 8F 20 50 52 45 53 45 4E 54 20 53 45 43 54 4F |:. PRESENT SECTO|
000005F0: 52 20 23 00 0B 0A F7 01 4C 28 30 29 B2 30 3A 8F |R #.....L(0).0:.|
00000600: 20 54 52 41 43 4B 20 4C 49 4E 4B 00 24 0A F8 01 | TRACK LINK.$...|
00000610: 4C 28 31 29 B2 30 3A 8F 20 53 45 43 54 4F 52 20 |L(1).0:. SECTOR |
00000620: 4C 49 4E 4B 00 47 0A F9 01 53 52 B2 31 37 3A 8F |LINK.G...SR.17:.|
00000630: 20 53 54 41 52 54 20 54 52 41 43 4B 20 28 31 37 | START TRACK (17|
00000640: 20 4F 52 20 31 39 29 00 5D 0A FA 01 53 50 B2 30 | OR 19).]...SP.0|
00000650: 30 3A 8F 20 45 4E 44 20 54 52 41 43 4B 00 81 0A |0:. END TRACK...|
00000660: FB 01 53 4D B2 32 30 3A 8F 20 4D 41 58 20 23 20 |..SM.20:. MAX # |
00000670: 4F 46 20 53 43 54 52 53 20 49 4E 20 54 52 41 43 |OF SCTRS IN TRAC|
00000680: 4B 00 A2 0A FC 01 54 52 B2 53 52 3A 8F 20 56 41 |K.....TR.SR:. VA|
00000690: 52 49 41 42 4C 45 20 54 52 41 43 4B 20 56 41 4C |RIABLE TRACK VAL|
000006A0: 55 45 00 B9 0A FD 01 3A 4D B2 30 31 3A 8F 20 53 |UE.....:M.01:. S|
000006B0: 45 51 55 45 4E 43 45 20 23 00 D8 0A FE 01 4D 4D |EQUENCE #.....MM|
000006C0: B2 35 30 3A 8F 20 4D 41 58 20 23 20 4F 46 20 53 |.50:. MAX # OF S|
000006D0: 45 51 55 45 4E 43 45 53 00 F7 0A FF 01 3A 4E B2 |EQUENCES.....:N.|
000006E0: 30 30 3A 8F 20 23 20 4F 46 20 42 4C 4F 43 4B 53 |00:. # OF BLOCKS|
000006F0: 20 49 4E 20 53 45 51 00 12 0B 00 02 50 53 B2 30 | IN SEQ.....PS.0|
00000700: 30 3A 8F 20 53 54 41 52 54 20 4F 46 20 42 41 53 |0:. START OF BAS|
00000710: 49 43 00 2F 0B 01 02 50 4C B2 30 30 3A 8F 20 31 |IC./...PL.00:. 1|
00000720: 53 54 20 4C 49 4E 4B 20 50 4F 49 4E 54 45 52 00 |ST LINK POINTER.|
00000730: 4A 0B 02 02 50 4E B2 30 30 3A 8F 20 52 45 4D 20 |J...PN.00:. REM |
00000740: 31 53 54 20 4C 49 4E 45 20 23 00 66 0B 03 02 45 |1ST LINE #.f...E|
00000750: 53 B2 30 30 3A 8F 20 45 52 52 4F 52 20 49 4E 20 |S.00:. ERROR IN |
00000760: 53 45 43 54 4F 52 00 81 0B 04 02 45 54 B2 30 30 |SECTOR.....ET.00|
00000770: 3A 8F 20 45 52 52 4F 52 20 49 4E 20 54 52 41 43 |:. ERROR IN TRAC|
00000780: 4B 00 A2 0B 05 02 45 4C B2 30 30 3A 8F 20 44 49 |K.....EL.00:. DI|
00000790: 53 4B 20 45 52 52 4F 52 20 49 4E 20 4C 49 4E 45 |SK ERROR IN LINE|
000007A0: 20 23 00 C6 0B 0C 02 3A 20 20 20 20 3A 8F 20 41 | #.....: :. A|
000007B0: 2C 4A 2C 4B 20 47 45 4E 45 52 41 4C 20 56 41 52 |,J,K GENERAL VAR|
000007C0: 49 41 42 4C 45 53 00 CF 0B 12 02 8F 20 2A 2A 00 |IABLES...... **.|
000007D0: E9 0B 13 02 8F 20 2A 2A 20 53 54 52 49 4E 47 20 |..... ** STRING |
000007E0: 56 41 52 49 41 42 4C 45 53 00 0E 0C 14 02 3A 20 |VARIABLES.....: |
000007F0: 20 20 20 20 3A 8F 20 41 24 2C 5A 24 20 47 45 4E | :. A$,Z$ GEN|
00000800: 45 52 41 4C 20 56 41 52 49 41 42 4C 45 53 00 2D |ERAL VARIABLES.-|
00000810: 0C 15 02 42 24 B2 22 22 3A 8F 20 20 43 4F 4E 54 |...B$."":. CONT|
00000820: 20 52 55 4E 20 56 41 52 49 41 42 4C 45 00 48 0C | RUN VARIABLE.H.|
00000830: 16 02 46 24 B2 22 22 3A 8F 20 20 4E 45 57 20 46 |..F$."":. NEW F|
00000840: 49 4C 45 20 4E 41 4D 45 00 6A 0C 17 02 54 24 B2 |ILE NAME.j...T$.|
00000850: 22 22 3A 8F 20 20 54 59 50 45 20 4F 46 20 46 49 |"":. TYPE OF FI|
00000860: 4C 45 20 43 52 45 41 54 45 44 00 88 0C 18 02 45 |LE CREATED.....E|
00000870: 4E 24 B2 22 30 30 22 20 3A 8F 20 20 44 49 53 4B |N$."00" :. DISK|
00000880: 20 45 52 52 4F 52 20 23 00 AC 0C 19 02 45 4D 24 | ERROR #.....EM$|
00000890: B2 22 20 4F 4B 22 3A 8F 20 20 44 49 53 4B 20 45 |." OK":. DISK E|
000008A0: 52 52 4F 52 20 4D 45 53 53 41 47 45 00 CE 0C 1A |RROR MESSAGE....|
000008B0: 02 53 24 B2 22 A0 A0 A0 9D 9D 9D 22 3A 8F 20 20 |.S$."......":. |
000008C0: 53 54 52 49 4E 47 20 55 54 49 4C 49 54 59 00 F3 |STRING UTILITY..|
000008D0: 0C 1B 02 48 24 B2 22 30 31 32 33 34 35 36 37 38 |...H$."012345678|
000008E0: 39 41 42 43 44 45 46 22 3A 8F 20 48 45 58 20 44 |9ABCDEF":. HEX D|
000008F0: 47 54 53 00 16 0D 1C 02 5A 47 24 B2 22 93 47 4F |GTS.....ZG$.".GO|
00000900: 54 4F 35 22 3A 8F 20 20 53 54 52 49 4E 47 20 55 |TO5":. STRING U|
00000910: 54 49 4C 49 54 59 00 1F 0D 3F 02 8F 20 2A 2A 00 |TILITY...?.. **.|
00000920: 39 0D 40 02 8F 20 2A 2A 20 4D 41 54 52 49 58 20 |9.@.. ** MATRIX |
00000930: 56 41 52 49 41 42 4C 45 53 00 5C 0D 41 02 86 44 |VARIABLES.\.A..D|
00000940: 25 28 33 35 2C 32 30 2C 33 29 3A 8F 20 20 42 4C |%(35,20,3):. BL|
00000950: 4F 43 4B 20 50 4F 49 4E 54 45 52 53 00 81 0D 42 |OCK POINTERS...B|
00000960: 02 3A 20 8F 20 20 5E 20 20 5E 20 30 2C 31 20 49 |.: . ^ ^ 0,1 I|
00000970: 4E 20 54 52 4B 20 26 20 42 4C 4B 20 50 4E 54 52 |N TRK & BLK PNTR|
00000980: 53 00 A6 0D 43 02 3A 20 8F 20 20 5E 20 20 5E 20 |S...C.: . ^ ^ |
00000990: 32 2C 33 4F 55 54 20 54 52 4B 20 26 20 42 4C 4B |2,3OUT TRK & BLK|
000009A0: 20 50 4E 54 52 53 00 C2 0D 44 02 3A 20 8F 20 20 | PNTRS...D.: . |
000009B0: 5E 20 20 32 30 2D 42 4C 4F 43 4B 20 4E 55 4D 42 |^ 20-BLOCK NUMB|
000009C0: 45 52 00 DE 0D 45 02 3A 20 8F 20 33 35 2D 20 2D |ER...E.: . 35- -|
000009D0: 20 2D 54 52 41 43 4B 20 4E 55 4D 42 45 52 00 FD | -TRACK NUMBER..|
000009E0: 0D 46 02 86 53 25 28 4D 4D 2C 34 29 3A 8F 20 20 |.F..S%(MM,4):. |
000009F0: 53 45 51 55 45 4E 43 45 20 44 41 54 41 00 21 0E |SEQUENCE DATA.!.|
00000A00: 47 02 3A 20 8F 20 20 20 20 30 2C 31 20 20 53 54 |G.: . 0,1 ST|
00000A10: 41 52 54 20 54 52 41 43 4B 20 26 20 42 4C 4F 43 |ART TRACK & BLOC|
00000A20: 4B 00 42 0E 48 02 3A 20 8F 20 20 20 20 32 20 20 |K.B.H.: . 2 |
00000A30: 20 20 4E 55 4D 42 45 52 20 4F 46 20 42 4C 4F 43 | NUMBER OF BLOC|
00000A40: 4B 53 00 66 0E 49 02 3A 20 8F 20 20 20 20 33 2C |KS.f.I.: . 3,|
00000A50: 34 20 20 45 4E 44 20 20 20 54 52 41 43 4B 20 26 |4 END TRACK &|
00000A60: 20 42 4C 4F 43 4B 00 6F 0E 4E 02 8F 20 2A 2A 00 | BLOCK.o.N.. **.|
00000A70: 89 0E 53 02 9F 31 35 2C 38 2C 31 35 3A 45 4C B2 |..S..15,8,15:EL.|
00000A80: 35 39 35 3A 8D 35 31 30 30 00 AD 0E 58 02 8F 20 |595:.5100...X.. |
00000A90: 2A 2A 20 50 41 47 45 20 31 2F 49 4E 54 52 4F 44 |** PAGE 1/INTROD|
00000AA0: 55 43 54 49 4F 4E 2C 54 52 41 43 4B 53 00 D9 0E |UCTION,TRACKS...|
00000AB0: 5D 02 9F 31 2C 30 3A 99 5A 47 24 3A 99 A3 39 29 |]..1,0:.ZG$:..9)|
00000AC0: 22 11 11 12 44 49 53 4B 20 52 45 43 4F 56 45 52 |"...DISK RECOVER|
00000AD0: 59 20 50 52 4F 47 52 41 4D 00 09 0F 62 02 99 22 |Y PROGRAM...b.."|
00000AE0: 11 11 20 20 20 50 55 54 20 44 49 53 4B 20 46 4F |.. PUT DISK FO|
00000AF0: 52 20 52 45 43 4F 56 45 52 59 20 49 4E 20 20 12 |R RECOVERY IN .|
00000B00: 44 52 49 56 45 92 20 12 31 00 3A 0F 67 02 99 22 |DRIVE. .1.:.g.."|
00000B10: 11 11 11 20 20 20 48 49 54 20 41 4E 59 20 4B 45 |... HIT ANY KE|
00000B20: 59 20 57 48 45 4E 20 12 44 49 53 4B 92 20 49 53 |Y WHEN .DISK. IS|
00000B30: 20 49 4E 20 50 4C 41 43 45 2E 00 6C 0F 6C 02 99 | IN PLACE..l.l..|
00000B40: 22 11 20 20 20 20 28 44 49 53 4B 20 57 49 4C 4C |". (DISK WILL|
00000B50: 20 54 48 45 4E 20 42 45 20 49 4E 49 54 49 41 4C | THEN BE INITIAL|
00000B60: 49 5A 45 44 29 22 3A 8D 34 30 30 30 00 86 0F 71 |IZED)":.4000...q|
00000B70: 02 98 31 35 2C 22 49 31 22 3A 45 4C B2 36 32 35 |..15,"I1":EL.625|
00000B80: 3A 8D 35 31 30 30 00 C8 0F 76 02 99 22 11 11 20 |:.5100...v..".. |
00000B90: 53 54 41 52 54 3A 20 54 52 41 43 4B 20 12 31 37 |START: TRACK .17|
00000BA0: 92 20 28 44 4F 57 4E 29 20 4F 52 20 12 31 39 92 |. (DOWN) OR .19.|
00000BB0: 20 28 55 50 29 3F 20 12 31 37 92 9D 9D 12 22 3B | (UP)? .17....";|
00000BC0: 3A 84 31 2C 53 52 3A 99 00 E8 0F 7B 02 8B 53 52 |:.1,SR:....{..SR|
00000BD0: B3 B1 31 37 AF 53 52 B3 B1 31 39 A7 99 22 91 91 |..17.SR..19.."..|
00000BE0: 91 91 22 3A 89 36 33 30 00 1B 10 80 02 99 A3 37 |..":.630.......7|
00000BF0: 29 22 11 45 4E 44 20 53 45 41 52 43 48 20 41 54 |)".END SEARCH AT|
00000C00: 20 54 52 41 43 4B 3A 20 20 20 20 20 9D 9D 9D 9D | TRACK: ....|
00000C10: 12 22 3B 3A 84 31 2C 53 50 3A 99 00 3E 10 85 02 |.";:.1,SP:..>...|
00000C20: 8B 53 52 B2 31 37 A7 8B 53 50 B3 31 B0 53 50 B1 |.SR.17..SP.1.SP.|
00000C30: 31 36 A7 99 22 91 91 91 22 3A 89 36 34 30 00 62 |16.."...":.640.b|
00000C40: 10 8A 02 8B 53 52 B2 31 39 A7 8B 53 50 B3 32 30 |....SR.19..SP.20|
00000C50: B0 53 50 B1 33 35 A7 99 22 91 91 91 22 3A 89 36 |.SP.35.."...":.6|
00000C60: 34 30 00 75 10 8F 02 A0 31 3A 81 4A B2 31 A4 31 |40.u....1:.J.1.1|
00000C70: 30 30 30 3A 82 00 91 10 94 02 8F 20 2A 2A 20 50 |000:....... ** P|
00000C80: 41 47 45 20 32 2F 44 45 53 43 52 49 50 54 49 4F |AGE 2/DESCRIPTIO|
00000C90: 4E 00 D0 10 96 02 97 35 39 34 36 38 2C 31 34 3A |N......59468,14:|
00000CA0: 99 5A 47 24 3A 99 22 11 D4 52 41 43 4B 53 22 53 |.ZG$:."..RACKS"S|
00000CB0: 52 22 54 4F 22 53 50 22 57 49 4C 4C 20 4E 4F 57 |R"TO"SP"WILL NOW|
00000CC0: 20 42 45 20 53 45 41 52 43 48 45 44 20 46 4F 52 | BE SEARCHED FOR|
00000CD0: 00 00 11 98 02 99 22 13 11 11 11 46 49 4C 45 53 |......"....FILES|
00000CE0: 2E 20 20 D4 48 45 20 49 4E 49 54 49 41 4C 20 41 |. .HE INITIAL A|
00000CF0: 4E 44 20 45 4E 44 49 4E 47 20 42 4C 4F 43 4B 53 |ND ENDING BLOCKS|
00000D00: 00 2C 11 9A 02 99 22 41 4E 44 20 54 48 45 20 4C |.,...."AND THE L|
00000D10: 45 4E 47 54 48 20 4F 46 20 45 41 43 48 20 52 45 |ENGTH OF EACH RE|
00000D20: 43 4F 56 45 52 45 44 20 46 49 4C 45 00 56 11 9C |COVERED FILE.V..|
00000D30: 02 99 22 41 52 45 20 52 45 43 4F 52 44 45 44 2E |.."ARE RECORDED.|
00000D40: 20 20 28 D4 52 41 43 4B 20 53 55 4D 4D 41 52 49 | (.RACK SUMMARI|
00000D50: 45 53 20 41 52 45 00 6D 11 9E 02 99 22 41 4C 53 |ES ARE.m...."ALS|
00000D60: 4F 20 44 49 53 50 4C 41 59 45 44 29 2E 00 99 11 |O DISPLAYED)....|
00000D70: A0 02 99 22 11 D4 48 49 53 20 53 45 41 52 43 48 |..."..HIS SEARCH|
00000D80: 20 43 41 4E 20 52 55 4E 20 43 4F 4E 54 49 4E 55 | CAN RUN CONTINU|
00000D90: 4F 55 53 4C 59 2C 20 42 45 00 C3 11 A2 02 99 22 |OUSLY, BE......"|
00000DA0: 48 41 4C 54 45 44 20 41 46 54 45 52 20 45 41 43 |HALTED AFTER EAC|
00000DB0: 48 20 4F 50 45 52 41 54 49 4F 4E 2C 20 48 41 56 |H OPERATION, HAV|
00000DC0: 45 20 41 00 F2 11 A4 02 99 22 50 41 55 53 45 20 |E A......"PAUSE |
00000DD0: 41 46 54 45 52 20 45 41 43 48 20 4F 50 45 52 41 |AFTER EACH OPERA|
00000DE0: 54 49 4F 4E 2C 20 4F 52 20 42 45 20 45 4E 44 45 |TION, OR BE ENDE|
00000DF0: 44 22 00 14 12 A6 02 99 22 57 49 54 48 20 41 20 |D"......"WITH A |
00000E00: 4A 55 4D 50 20 54 4F 20 54 48 45 20 53 55 4D 4D |JUMP TO THE SUMM|
00000E10: 41 52 59 2E 00 41 12 A8 02 99 22 11 11 20 20 20 |ARY..A....".. |
00000E20: 20 20 D4 59 50 45 20 12 C3 92 20 46 4F 52 20 43 | .YPE ... FOR C|
00000E30: 4F 4E 54 49 4E 55 4F 55 53 20 52 55 4E 4E 49 4E |ONTINUOUS RUNNIN|
00000E40: 47 00 6B 12 AA 02 99 22 20 20 20 20 20 D4 59 50 |G.k...." .YP|
00000E50: 45 20 12 C8 92 20 46 4F 52 20 48 41 4C 54 20 49 |E ... FOR HALT I|
00000E60: 4E 20 4F 50 45 52 41 54 49 4F 4E 00 97 12 AC 02 |N OPERATION.....|
00000E70: 99 22 20 20 20 20 20 D4 59 50 45 20 12 D0 92 20 |." .YPE ... |
00000E80: 46 4F 52 20 50 41 55 53 45 53 20 49 4E 20 4F 50 |FOR PAUSES IN OP|
00000E90: 45 52 41 54 49 4F 4E 00 C0 12 AE 02 99 22 20 20 |ERATION......" |
00000EA0: 20 20 20 D4 59 50 45 20 12 D3 92 20 54 4F 20 45 | .YPE ... TO E|
00000EB0: 53 43 41 50 45 20 54 4F 20 53 55 4D 4D 41 52 59 |SCAPE TO SUMMARY|
00000EC0: 00 EF 12 B0 02 99 22 11 11 CF 50 45 52 41 54 49 |......"...PERATI|
00000ED0: 4F 4E 41 4C 20 4D 4F 44 45 20 4D 41 59 20 42 45 |ONAL MODE MAY BE|
00000EE0: 20 43 48 41 4E 47 45 44 20 44 55 52 49 4E 47 00 | CHANGED DURING.|
00000EF0: 2A 13 B2 02 99 22 54 48 45 20 53 45 41 52 43 48 |*...."THE SEARCH|
00000F00: 20 42 59 20 54 59 50 49 4E 47 20 54 48 45 20 41 | BY TYPING THE A|
00000F10: 42 4F 56 45 20 43 4F 4D 4D 41 4E 44 53 20 41 54 |BOVE COMMANDS AT|
00000F20: 20 41 4E 59 20 54 49 4D 45 2E 00 3A 13 B4 02 8D | ANY TIME..:....|
00000F30: 34 30 30 30 3A 42 24 B2 41 24 00 57 13 B6 02 99 |4000:B$.A$.W....|
00000F40: 5A 47 24 3A 97 35 39 34 36 38 2C 31 32 3A 54 52 |ZG$:.59468,12:TR|
00000F50: B2 53 52 3A 4D B2 31 00 74 13 B8 02 9F 38 2C 38 |.SR:M.1.t....8,8|
00000F60: 2C 32 2C 22 23 32 22 3A 45 4C B2 36 39 36 3A 8D |,2,"#2":EL.696:.|
00000F70: 35 31 30 30 00 93 13 BC 02 8F 20 2A 2A 20 46 49 |5100...... ** FI|
00000F80: 4E 44 20 49 4E 49 54 49 41 54 4F 52 20 42 4C 4F |ND INITIATOR BLO|
00000F90: 43 4B 53 00 CA 13 C1 02 50 28 30 29 B2 54 52 3A |CKS.....P(0).TR:|
00000FA0: 8D 35 30 31 30 3A 8F 20 40 20 47 45 54 20 4E 55 |.5010:. @ GET NU|
00000FB0: 4D 42 45 52 20 4F 46 20 42 4C 4F 43 4B 53 20 49 |MBER OF BLOCKS I|
00000FC0: 4E 20 54 52 41 43 4B 20 54 52 00 ED 13 C6 02 81 |N TRACK TR......|
00000FD0: 20 4B B2 30 A4 53 4D 3A 50 28 31 29 B2 4B 3A 8F | K.0.SM:P(1).K:.|
00000FE0: 20 40 20 53 45 41 52 43 48 20 54 52 4B 00 0A 14 | @ SEARCH TRK...|
00000FF0: CB 02 3A 8B 44 25 28 50 28 30 29 2C 50 28 31 29 |..:.D%(P(0),P(1)|
00001000: 2C 32 29 B3 B1 30 A7 37 33 35 00 2B 14 D0 02 3A |,2)..0.735.+...:|
00001010: 8D 35 30 32 30 3A 8F 20 40 20 47 45 54 20 4C 4E |.5020:. @ GET LN|
00001020: 4B 53 2F 4F 55 54 20 50 54 52 53 00 66 14 D5 02 |KS/OUT PTRS.f...|
00001030: 3A 8B 4C 28 30 29 B2 30 A7 44 25 28 50 28 30 29 |:.L(0).0.D%(P(0)|
00001040: 2C 50 28 31 29 2C 32 29 B2 36 34 3A 89 37 33 35 |,P(1),2).64:.735|
00001050: 3A 8F 20 40 20 45 4E 44 20 4F 46 20 46 49 4C 45 |:. @ END OF FILE|
00001060: 20 46 4F 55 4E 44 00 88 14 DA 02 3A 8D 35 30 34 | FOUND.....:.504|
00001070: 30 3A 8F 20 40 20 49 4E 20 50 54 52 53 20 54 4F |0:. @ IN PTRS TO|
00001080: 20 4E 58 54 20 42 4C 4B 00 8E 14 DF 02 82 00 A8 | NXT BLK........|
00001090: 14 E4 02 8D 34 30 36 30 3A 8F 20 40 20 54 52 41 |....4060:. @ TRA|
000010A0: 43 4B 20 54 41 42 4C 45 00 CD 14 E9 02 8F 20 2A |CK TABLE...... *|
000010B0: 2A 20 46 4F 4C 4C 4F 57 20 4C 49 4E 4B 53 20 46 |* FOLLOW LINKS F|
000010C0: 4F 52 20 45 41 43 48 20 53 54 41 52 54 00 D9 14 |OR EACH START...|
000010D0: EE 02 50 28 30 29 B2 54 52 00 F0 14 F3 02 81 4B |..P(0).TR......K|
000010E0: B2 30 A4 53 4D 3A 50 28 31 29 B2 4B 3A 4E B2 31 |.0.SM:P(1).K:N.1|
000010F0: 00 0D 15 F8 02 3A 8B 44 25 28 50 28 30 29 2C 50 |.....:.D%(P(0),P|
00001100: 28 31 29 2C 30 29 B3 B1 30 A7 38 33 35 00 2C 15 |(1),0)..0.835.,.|
00001110: FD 02 3A 53 25 28 4D 2C 30 29 B2 50 28 30 29 3A |..:S%(M,0).P(0):|
00001120: 53 25 28 4D 2C 31 29 B2 50 28 31 29 00 49 15 02 |S%(M,1).P(1).I..|
00001130: 03 3A 8D 34 30 31 30 3A 8F 20 40 20 50 52 49 4E |.:.4010:. @ PRIN|
00001140: 54 20 44 49 53 50 4C 41 59 00 68 15 07 03 3A 99 |T DISPLAY.h...:.|
00001150: 22 91 22 A3 31 34 29 53 24 4E 2C 53 24 50 28 30 |".".14)S$N,S$P(0|
00001160: 29 2C 53 24 50 28 31 29 00 81 15 0C 03 3A 8D 35 |),S$P(1).....:.5|
00001170: 30 32 30 3A 8F 20 40 20 47 45 54 20 4C 49 4E 4B |020:. @ GET LINK|
00001180: 53 00 A6 15 11 03 3A 8B 4C 28 30 29 B2 30 A7 44 |S.....:.L(0).0.D|
00001190: 25 28 50 28 30 29 2C 50 28 31 29 2C 32 29 B2 36 |%(P(0),P(1),2).6|
000011A0: 34 3A 89 38 30 35 00 C8 15 16 03 3A 8D 35 30 34 |4:.805.....:.504|
000011B0: 30 3A 8F 20 40 20 49 4E 20 50 54 52 53 20 54 4F |0:. @ IN PTRS TO|
000011C0: 20 4C 4E 4B 20 42 4C 4B 00 E7 15 1B 03 3A 50 28 | LNK BLK.....:P(|
000011D0: 30 29 B2 4C 28 30 29 3A 50 28 31 29 B2 4C 28 31 |0).L(0):P(1).L(1|
000011E0: 29 3A 4E B2 4E AA 31 00 F1 15 20 03 3A 89 37 37 |):N.N.1... .:.77|
000011F0: 35 00 15 16 25 03 3A 8F 20 40 20 43 4C 4F 53 45 |5...%.:. @ CLOSE|
00001200: 20 45 4E 44 20 4F 46 20 4C 49 4E 4B 20 53 45 51 | END OF LINK SEQ|
00001210: 55 45 4E 43 45 00 31 16 2A 03 3A 53 25 28 4D 2C |UENCE.1.*.:S%(M,|
00001220: 32 29 B2 4E 3A 53 25 28 4D 2C 33 29 B2 50 28 30 |2).N:S%(M,3).P(0|
00001230: 29 00 43 16 2F 03 3A 53 25 28 4D 2C 34 29 B2 50 |).C./.:S%(M,4).P|
00001240: 28 31 29 00 63 16 34 03 3A 8D 34 30 32 30 3A 8F |(1).c.4.:.4020:.|
00001250: 20 40 20 43 4F 4D 50 4C 45 54 45 20 44 49 53 50 | @ COMPLETE DISP|
00001260: 4C 41 59 00 75 16 39 03 3A 8B 42 24 B2 22 53 22 |LAY.u.9.:.B$."S"|
00001270: A7 4B B2 53 4D 00 93 16 3E 03 3A 4D B2 4D AA 31 |.K.SM...>.:M.M.1|
00001280: 3A 50 28 30 29 B2 54 52 3A 8F 20 40 20 52 45 53 |:P(0).TR:. @ RES|
00001290: 45 54 53 00 99 16 43 03 82 00 AA 16 48 03 8B 42 |ETS...C.....H..B|
000012A0: 24 B2 22 53 22 A7 31 30 30 30 00 DD 16 4D 03 54 |$."S".1000...M.T|
000012B0: 52 B2 54 52 AB 31 3A 8B 53 52 B2 31 39 A7 54 52 |R.TR.1:.SR.19.TR|
000012C0: B2 54 52 AA 32 3A 8F 20 40 20 47 4F 20 4F 4E 20 |.TR.2:. @ GO ON |
000012D0: 54 4F 20 4E 45 58 54 20 54 52 41 43 4B 00 F8 16 |TO NEXT TRACK...|
000012E0: 52 03 8F 20 40 20 54 45 53 54 20 46 4F 52 20 45 |R.. @ TEST FOR E|
000012F0: 4E 44 20 54 52 41 43 4B 00 0E 17 57 03 8B 53 52 |ND TRACK...W..SR|
00001300: B2 31 37 AF 54 52 B3 53 50 A7 31 30 30 30 00 24 |.17.TR.SP.1000.$|
00001310: 17 5C 03 8B 53 52 B2 31 39 AF 54 52 B1 53 50 A7 |.\..SR.19.TR.SP.|
00001320: 31 30 30 30 00 2D 17 61 03 89 37 30 30 00 48 17 |1000.-.a..700.H.|
00001330: E8 03 8F 20 2A 2A 20 50 52 49 4E 54 20 4F 55 54 |... ** PRINT OUT|
00001340: 20 53 55 4D 4D 41 52 59 00 57 17 ED 03 4B B2 30 | SUMMARY.W...K.0|
00001350: 3A 42 24 B2 22 48 22 00 76 17 F2 03 99 5A 47 24 |:B$."H".v....ZG$|
00001360: 3B 3A 99 A3 31 31 29 22 11 12 46 49 4C 45 20 53 |;:..11)"..FILE S|
00001370: 55 4D 4D 41 52 59 00 A1 17 F7 03 99 22 11 12 53 |UMMARY......"..S|
00001380: 45 51 20 23 22 2C 22 42 4C 4F 43 4B 53 22 2C 22 |EQ #","BLOCKS","|
00001390: 20 53 54 41 52 54 20 22 2C 22 20 46 49 4E 49 53 | START "," FINIS|
000013A0: 48 00 BB 17 FC 03 99 2C 2C 22 54 52 20 20 53 45 |H......,,"TR SE|
000013B0: 43 22 2C 22 54 52 20 20 53 45 43 00 D1 17 01 04 |C","TR SEC.....|
000013C0: 81 4A B2 31 AA 31 35 AC 4B A4 31 35 AA 31 35 AC |.J.1.15.K.15.15.|
000013D0: 4B 00 ED 17 06 04 3A 8B 4A B1 4D AB 31 A7 4A B2 |K.....:.J.M.1.J.|
000013E0: 31 35 AA 31 35 AC 4B 3A 89 31 30 34 35 00 0B 18 |15.15.K:.1045...|
000013F0: 0B 04 3A 8D 34 30 34 30 3A 8F 20 40 20 46 4F 52 |..:.4040:. @ FOR|
00001400: 4D 41 54 20 4E 55 4D 42 45 52 53 00 27 18 10 04 |MAT NUMBERS.'...|
00001410: 3A 99 22 20 22 4A 2C 22 20 22 53 25 28 4A 2C 32 |:." "J," "S%(J,2|
00001420: 29 2C 41 24 2C 5A 24 00 2D 18 15 04 82 00 42 18 |),A$,Z$.-.....B.|
00001430: 1A 04 4B B2 4B AA 31 3A 99 22 11 22 3A 8D 34 30 |..K.K.1:.".":.40|
00001440: 33 30 00 50 18 1F 04 8B 4A B3 4D A7 31 30 31 30 |30.P....J.M.1010|
00001450: 00 61 18 4C 04 8F 20 2A 2A 20 43 48 4F 49 43 45 |.a.L.. ** CHOICE|
00001460: 53 00 95 18 51 04 99 5A 47 24 3A 99 22 11 11 11 |S...Q..ZG$:."...|
00001470: 12 43 48 4F 49 43 45 53 92 3A 20 20 20 20 12 4C |.CHOICES.: .L|
00001480: 92 4F 4F 4B 3A 20 46 49 52 53 54 20 32 34 30 20 |.OOK: FIRST 240 |
00001490: 42 59 54 45 53 00 B1 18 56 04 99 A3 31 32 29 22 |BYTES...V...12)"|
000014A0: 11 12 53 92 55 4D 4D 41 52 59 20 52 45 56 49 45 |..S.UMMARY REVIE|
000014B0: 57 00 CE 18 5B 04 99 A3 31 32 29 22 11 12 52 92 |W...[...12)"..R.|
000014C0: 45 54 52 49 45 56 45 20 41 20 46 49 4C 45 00 ED |ETRIEVE A FILE..|
000014D0: 18 60 04 99 A3 31 32 29 22 11 12 42 92 20 53 43 |.`...12)"..B. SC|
000014E0: 41 4E 20 4F 54 48 45 52 20 42 41 4E 44 00 0B 19 |AN OTHER BAND...|
000014F0: 65 04 99 A3 31 32 29 22 11 12 5E 92 20 44 49 46 |e...12)"..^. DIF|
00001500: 46 45 52 45 4E 54 20 44 49 53 4B 00 25 19 6A 04 |FERENT DISK.%.j.|
00001510: 99 A3 31 32 29 22 11 12 45 92 58 49 54 20 50 52 |..12)"..E.XIT PR|
00001520: 4F 47 52 41 4D 00 3C 19 6F 04 8D 34 30 30 30 3A |OGRAM.<.o..4000:|
00001530: 8B 41 24 B2 22 4C 22 A7 31 32 30 30 00 4D 19 74 |.A$."L".1200.M.t|
00001540: 04 8B 41 24 B2 22 53 22 A7 31 30 30 30 00 5E 19 |..A$."S".1000.^.|
00001550: 79 04 8B 41 24 B2 22 52 22 A7 31 35 30 30 00 72 |y..A$."R".1500.r|
00001560: 19 7E 04 8B 41 24 B2 22 42 22 A7 A0 38 3A 89 36 |.~..A$."B"..8:.6|
00001570: 30 30 00 89 19 83 04 8B 41 24 B2 22 5E 22 A7 8D |00......A$."^"..|
00001580: 34 30 35 30 3A 8A 34 30 30 00 A2 19 88 04 8B 41 |4050:.400......A|
00001590: 24 B2 22 45 22 A7 8D 34 30 35 30 3A 99 5A 47 24 |$."E"..4050:.ZG$|
000015A0: 3A 80 00 AC 19 8D 04 89 31 31 33 35 00 CF 19 B0 |:.......1135....|
000015B0: 04 8F 20 2A 2A 20 47 45 54 20 31 53 54 20 50 41 |.. ** GET 1ST PA|
000015C0: 47 45 20 4F 46 20 46 49 4C 45 20 44 41 54 41 00 |GE OF FILE DATA.|
000015D0: F1 19 B5 04 85 22 11 11 11 49 4E 50 55 54 20 54 |....."...INPUT T|
000015E0: 52 41 43 4B 2C 20 53 45 43 54 4F 52 22 3B 4A 2C |RACK, SECTOR";J,|
000015F0: 4B 00 04 1A BA 04 8B 4A B1 33 35 B0 4A B3 31 A7 |K......J.35.J.1.|
00001600: 31 31 30 30 00 24 1A BF 04 50 28 30 29 B2 4A 3A |1100.$...P(0).J:|
00001610: 8D 35 30 31 30 3A 8B 4B B3 30 B0 4B B1 53 4D A7 |.5010:.K.0.K.SM.|
00001620: 31 31 30 30 00 48 1A C4 04 50 28 31 29 B2 4B 3A |1100.H...P(1).K:|
00001630: 8D 35 30 32 30 3A 8F 20 40 20 4C 4E 4B 53 20 4C |.5020:. @ LNKS L|
00001640: 28 30 29 20 4C 28 31 29 00 74 1A C9 04 41 B2 32 |(0) L(1).t...A.2|
00001650: 3A 8D 35 30 37 30 3A 8F 20 40 20 52 45 41 44 20 |:.5070:. @ READ |
00001660: 4E 45 58 54 20 42 59 54 45 53 20 20 28 53 45 54 |NEXT BYTES (SET|
00001670: 20 42 50 29 00 93 1A CE 04 8D 35 30 35 30 3A 50 | BP)......5050:P|
00001680: 53 B2 41 3A 8F 20 40 20 53 54 41 52 54 20 42 41 |S.A:. @ START BA|
00001690: 53 49 43 00 B4 1A D3 04 8D 35 30 35 30 3A 50 4C |SIC......5050:PL|
000016A0: B2 41 3A 8F 20 40 20 31 53 54 20 50 52 4F 47 20 |.A:. @ 1ST PROG |
000016B0: 4C 49 4E 4B 00 D2 1A D8 04 8D 35 30 35 30 3A 50 |LINK......5050:P|
000016C0: 4E B2 41 3A 8F 20 40 20 31 53 54 20 4C 49 4E 45 |N.A:. @ 1ST LINE|
000016D0: 20 23 00 EF 1A DD 04 41 B2 32 3A 8D 35 30 37 30 | #.....A.2:.5070|
000016E0: 3A 8F 20 40 20 47 45 54 20 53 54 52 49 4E 47 00 |:. @ GET STRING.|
000016F0: F9 1A E2 04 5A 24 B2 22 22 00 06 1B E7 04 81 4A |....Z$.""......J|
00001700: B2 30 A4 32 35 30 00 21 1B EC 04 3A A1 23 38 2C |.0.250.!...:.#8,|
00001710: 41 24 3A 8D 35 30 36 30 3A 5A 24 B2 5A 24 AA 41 |A$:.5060:Z$.Z$.A|
00001720: 24 00 27 1B F1 04 82 00 41 1B F6 04 5A 24 B2 C7 |$.'.....A...Z$..|
00001730: 28 4C 28 30 29 29 AA C7 28 4C 28 31 29 29 AA 5A |(L(0))..(L(1)).Z|
00001740: 24 00 6F 1B FB 04 99 5A 47 24 A3 31 32 29 22 12 |$.o....ZG$.12)".|
00001750: 46 49 52 53 54 20 50 41 47 45 20 44 41 54 41 22 |FIRST PAGE DATA"|
00001760: 3A 8F 20 40 20 50 52 49 4E 54 20 44 41 54 41 00 |:. @ PRINT DATA.|
00001770: 88 1B 00 05 99 2C 2C 22 11 12 54 52 41 43 4B 22 |.....,,"..TRACK"|
00001780: 2C 22 53 45 43 54 4F 52 00 A7 1B 05 05 99 22 49 |,"SECTOR......"I|
00001790: 4E 49 54 49 41 4C 20 42 4C 4F 43 4B 22 2C 50 28 |NITIAL BLOCK",P(|
000017A0: 30 29 2C 50 28 31 29 00 B9 1B 0A 05 99 A3 31 35 |0),P(1).......15|
000017B0: 29 22 12 42 59 54 45 53 22 00 E1 1B 0F 05 99 22 |)".BYTES"......"|
000017C0: 42 4C 4F 43 4B 20 50 4F 49 4E 54 45 52 22 A3 31 |BLOCK POINTER".1|
000017D0: 36 29 22 30 26 31 22 2C 4C 28 30 29 2C 4C 28 31 |6)"0&1",L(0),L(1|
000017E0: 29 00 FA 1B 14 05 99 A3 32 30 29 22 12 44 45 43 |).......20)".DEC|
000017F0: 49 4D 41 4C 20 56 41 4C 55 45 00 1C 1C 19 05 99 |IMAL VALUE......|
00001800: 22 50 52 47 52 4D 20 53 54 41 52 54 22 A3 31 36 |"PRGRM START".16|
00001810: 29 22 32 26 33 22 A3 32 33 29 50 53 00 3B 1C 1E |)"2&3".23)PS.;..|
00001820: 05 99 22 31 53 54 20 4C 49 4E 4B 22 A3 31 36 29 |.."1ST LINK".16)|
00001830: 22 34 26 35 22 A3 32 33 29 50 4C 00 5C 1C 23 05 |"4&5".23)PL.\.#.|
00001840: 99 22 31 53 54 20 4C 49 4E 45 20 23 22 A3 31 36 |."1ST LINE #".16|
00001850: 29 22 36 26 37 22 A3 32 33 29 50 4E 00 6E 1C 28 |)"6&7".23)PN.n.(|
00001860: 05 99 22 12 48 45 58 20 56 41 4C 55 45 53 00 79 |..".HEX VALUES.y|
00001870: 1C 2D 05 81 4A B2 30 A4 35 00 99 1C 32 05 3A 41 |.-..J.0.5...2.:A|
00001880: B2 38 AC 4A 3A 8D 35 30 38 30 3A 99 22 20 20 22 |.8.J:.5080:." "|
00001890: 41 24 22 20 3A 20 20 22 3B 00 A5 1C 37 05 3A 81 |A$" : ";...7.:.|
000018A0: 4B B2 30 A4 37 00 C0 1C 3C 05 3A 3A 41 B2 C6 28 |K.0.7...<.::A..(|
000018B0: CA 28 5A 24 2C 38 AC 4A AA 4B AA 31 2C 31 29 29 |.(Z$,8.J.K.1,1))|
000018C0: 00 D4 1C 41 05 3A 3A 8D 35 30 38 30 3A 99 41 24 |...A.::.5080:.A$|
000018D0: 22 20 22 3B 00 DD 1C 46 05 3A 82 3A 99 00 E3 1C |" ";...F.:.:....|
000018E0: 4B 05 82 00 FE 1C 50 05 99 22 11 12 43 48 41 52 |K.....P.."..CHAR|
000018F0: 41 43 54 45 52 20 56 41 4C 55 45 53 3A 11 00 06 |ACTER VALUES:...|
00001900: 1D 55 05 4B B2 30 00 12 1D 5A 05 81 4A B2 31 A4 |.U.K.0...Z..J.1.|
00001910: 38 30 00 2B 1D 5F 05 3A 41 B2 C6 28 CA 28 5A 24 |80.+._.:A..(.(Z$|
00001920: 2C 4A AA 38 30 AC 4B 2C 31 29 29 00 36 1D 64 05 |,J.80.K,1)).6.d.|
00001930: 3A 8D 35 30 39 30 00 3C 1D 69 05 82 00 6A 1D 6E |:.5090.<.i...j.n|
00001940: 05 99 22 11 20 27 43 27 20 54 4F 20 43 4F 4E 54 |..". 'C' TO CONT|
00001950: 49 4E 55 45 3A 20 2B 2F 2D 20 43 48 41 4E 47 45 |INUE: +/- CHANGE|
00001960: 20 4C 49 4E 45 20 53 43 41 4E 00 81 1D 73 05 8D | LINE SCAN...s..|
00001970: 34 30 30 30 3A 8B 41 24 B2 22 43 22 A7 31 31 30 |4000:.A$."C".110|
00001980: 30 00 A6 1D 78 05 8B 41 24 B2 22 2B 22 AF 4B B3 |0...x..A$."+".K.|
00001990: 32 A7 99 22 91 91 91 91 22 3B 3A 4B B2 4B AA 31 |2.."....";:K.K.1|
000019A0: 3A 89 31 33 37 30 00 CB 1D 7D 05 8B 41 24 B2 22 |:.1370...}..A$."|
000019B0: 2D 22 AF 4B B1 30 A7 99 22 91 91 91 91 22 3B 3A |-".K.0.."....";:|
000019C0: 4B B2 4B AB 31 3A 89 31 33 37 30 00 D5 1D 82 05 |K.K.1:.1370.....|
000019D0: 89 31 33 39 35 00 EE 1D DC 05 8F 20 2A 2A 20 52 |.1395...... ** R|
000019E0: 45 54 52 49 45 56 45 20 41 20 46 49 4C 45 00 13 |ETRIEVE A FILE..|
000019F0: 1E E1 05 85 22 11 11 11 53 54 41 52 54 49 4E 47 |...."...STARTING|
00001A00: 20 54 52 41 43 4B 2C 20 53 45 43 54 4F 52 22 3B | TRACK, SECTOR";|
00001A10: 4A 2C 4B 00 26 1E E6 05 8B 4A B1 33 35 B0 4A B3 |J,K.&....J.35.J.|
00001A20: 31 A7 31 31 30 30 00 4D 1E EB 05 50 28 30 29 B2 |1.1100.M...P(0).|
00001A30: 4A 3A 50 28 31 29 B2 4B 3A 8D 35 30 31 30 3A 8B |J:P(1).K:.5010:.|
00001A40: 4B B3 30 B0 4B B1 53 4D A7 31 31 30 30 00 6A 1E |K.0.K.SM.1100.j.|
00001A50: F0 05 99 5A 47 24 A6 31 30 29 22 12 46 49 4C 45 |...ZG$.10)".FILE|
00001A60: 20 52 45 54 52 49 45 56 41 4C 00 93 1E F5 05 99 | RETRIEVAL......|
00001A70: 22 11 11 52 45 54 52 49 45 56 49 4E 47 20 54 48 |"..RETRIEVING TH|
00001A80: 45 20 46 49 4C 45 20 53 54 41 52 54 49 4E 47 20 |E FILE STARTING |
00001A90: 41 54 3A 00 BE 1E FA 05 99 A3 33 29 22 54 52 41 |AT:.......3)"TRA|
00001AA0: 43 4B 20 12 22 50 28 30 29 22 92 22 A3 32 30 29 |CK ."P(0)".".20)|
00001AB0: 22 53 45 43 54 4F 52 20 12 22 50 28 31 29 00 E9 |"SECTOR ."P(1)..|
00001AC0: 1E FF 05 99 22 11 4E 41 4D 45 20 46 4F 52 20 52 |....".NAME FOR R|
00001AD0: 45 54 52 49 45 56 45 44 20 46 49 4C 45 3A 22 3A |ETRIEVED FILE:":|
00001AE0: 85 22 20 20 20 22 3B 46 24 00 1B 1F 04 06 99 22 |." ";F$......"|
00001AF0: 11 49 53 20 54 48 49 53 20 41 20 12 50 92 52 4F |.IS THIS A .P.RO|
00001B00: 47 52 41 4D 20 4F 52 20 41 20 12 53 92 45 51 55 |GRAM OR A .S.EQU|
00001B10: 45 4E 54 49 41 4C 20 46 49 4C 45 00 4B 1F 09 06 |ENTIAL FILE.K...|
00001B20: 8D 34 30 30 30 3A 8B 41 24 B2 22 50 22 A7 54 24 |.4000:.A$."P".T$|
00001B30: B2 22 50 52 47 22 3A 99 22 20 20 20 12 50 52 4F |."PRG":." .PRO|
00001B40: 47 52 41 4D 22 3A 89 31 35 36 30 00 78 1F 0E 06 |GRAM":.1560.x...|
00001B50: 8B 41 24 B2 22 53 22 A7 54 24 B2 22 53 45 51 22 |.A$."S".T$."SEQ"|
00001B60: 3A 99 22 20 20 20 12 53 45 51 55 45 4E 54 49 41 |:." .SEQUENTIA|
00001B70: 4C 22 3A 89 31 35 36 30 00 82 1F 13 06 89 31 35 |L":.1560......15|
00001B80: 34 35 00 C0 1F 18 06 99 22 11 50 55 54 20 47 4F |45......".PUT GO|
00001B90: 4F 44 20 44 49 53 4B 20 57 49 54 48 20 53 55 46 |OD DISK WITH SUF|
00001BA0: 46 49 43 49 45 4E 54 20 42 4C 4F 43 4B 53 20 20 |FICIENT BLOCKS |
00001BB0: 20 20 20 20 20 49 4E 20 44 52 49 56 45 20 12 30 | IN DRIVE .0|
00001BC0: 00 E0 1F 1D 06 99 22 11 49 4E 49 54 49 41 4C 49 |......".INITIALI|
00001BD0: 5A 45 3F 20 28 59 2F 4E 29 22 3A 8D 34 30 30 30 |ZE? (Y/N)":.4000|
00001BE0: 00 03 20 22 06 8B 41 24 B2 22 59 22 A7 98 31 35 |.. "..A$."Y"..15|
00001BF0: 2C 22 49 30 22 3A 45 4C B2 31 35 33 35 3A 8D 35 |,"I0":EL.1535:.5|
00001C00: 31 30 30 00 0D 20 27 06 8D 34 30 33 30 00 3B 20 |100.. '..4030.; |
00001C10: 2C 06 99 22 11 12 49 53 20 45 56 45 52 59 54 48 |,.."..IS EVERYTH|
00001C20: 49 4E 47 20 4F 4B 92 3F 20 20 54 59 50 45 20 20 |ING OK.? TYPE |
00001C30: 27 43 27 20 20 54 4F 20 47 4F 21 00 6B 20 31 06 |'C' TO GO!.k 1.|
00001C40: 99 22 20 20 20 11 28 41 4E 59 20 4F 54 48 45 52 |." .(ANY OTHER|
00001C50: 20 4C 45 54 54 45 52 20 57 49 4C 4C 20 41 42 4F | LETTER WILL ABO|
00001C60: 52 54 29 11 22 3A 8D 34 30 30 30 00 7D 20 36 06 |RT).":.4000.} 6.|
00001C70: 8B 41 24 B3 B1 22 43 22 A7 31 31 30 30 00 97 20 |.A$.."C".1100.. |
00001C80: 3B 06 8F 20 2A 2A 20 52 45 54 52 49 45 56 45 20 |;.. ** RETRIEVE |
00001C90: 50 52 4F 47 52 41 4D 00 C8 20 40 06 9F 39 2C 38 |PROGRAM.. @..9,8|
00001CA0: 2C 34 2C 22 30 3A 22 AA 46 24 AA 22 2C 22 AA 54 |,4,"0:".F$.",".T|
00001CB0: 24 AA 22 2C 57 52 49 54 45 22 3A 45 4C B2 31 36 |$.",WRITE":EL.16|
00001CC0: 30 30 3A 8D 35 31 30 30 00 DA 20 45 06 45 4C B2 |00:.5100.. E.EL.|
00001CD0: 31 35 35 35 3A 8D 35 31 30 30 00 05 21 4A 06 99 |1555:.5100..!J..|
00001CE0: 22 43 4F 50 59 49 4E 47 20 54 52 41 43 4B 3A 22 |"COPYING TRACK:"|
00001CF0: 50 28 30 29 A3 32 31 29 22 53 45 43 54 4F 52 3A |P(0).21)"SECTOR:|
00001D00: 22 50 28 31 29 00 31 21 4F 06 8D 35 30 32 30 3A |"P(1).1!O..5020:|
00001D10: 50 28 30 29 B2 4C 28 30 29 3A 50 28 31 29 B2 4C |P(0).L(0):P(1).L|
00001D20: 28 31 29 3A 8F 20 40 20 47 45 54 20 4C 49 4E 4B |(1):. @ GET LINK|
00001D30: 53 00 4A 21 54 06 41 B2 32 35 35 3A 8B 50 28 30 |S.J!T.A.255:.P(0|
00001D40: 29 B2 30 A7 41 B2 50 28 31 29 00 55 21 59 06 81 |).0.A.P(1).U!Y..|
00001D50: 4A B2 32 A4 41 00 6F 21 5E 06 3A 98 31 35 2C 22 |J.2.A.o!^.:.15,"|
00001D60: 4D 2D 52 22 3B C7 28 4A 29 3B C7 28 31 39 29 00 |M-R";.(J);.(19).|
00001D70: 82 21 63 06 3A A1 23 31 35 2C 41 24 3A 8D 35 30 |.!c.:.#15,A$:.50|
00001D80: 36 30 00 8E 21 68 06 3A 98 39 2C 41 24 3B 00 9C |60..!h.:.9,A$;..|
00001D90: 21 6D 06 82 3A 45 4C B2 31 35 37 30 00 C1 21 72 |!m..:EL.1570..!r|
00001DA0: 06 8B 50 28 30 29 B3 B1 30 A7 31 36 31 30 3A 8F |..P(0)..0.1610:.|
00001DB0: 20 40 20 47 45 54 20 4E 45 58 54 20 42 4C 4F 43 | @ GET NEXT BLOC|
00001DC0: 4B 00 E9 21 77 06 A0 39 3A 99 22 11 12 46 49 4C |K..!w..9:."..FIL|
00001DD0: 45 20 52 45 43 4F 56 45 52 45 44 11 22 3A 8D 34 |E RECOVERED.":.4|
00001DE0: 30 33 30 3A 89 31 31 30 30 00 FF 21 A0 0F 8F 20 |030:.1100..!... |
00001DF0: 2A 2A 20 47 45 54 20 41 4E 44 20 48 4F 4C 44 00 |** GET AND HOLD.|
00001E00: 11 22 A1 0F 81 41 B2 30 A4 31 30 3A A1 41 24 3A |."...A.0.10:.A$:|
00001E10: 82 00 25 22 A2 0F A1 41 24 3A 8B 41 24 B2 22 22 |..%"...A$:.A$.""|
00001E20: A7 34 30 30 32 00 58 22 A3 0F 8F 20 40 20 53 43 |.4002.X"... @ SC|
00001E30: 52 45 45 4E 20 44 55 4D 50 3A 49 46 41 24 3D 22 |REEN DUMP:IFA$="|
00001E40: D0 22 54 48 45 4E 47 4F 53 55 42 27 53 43 52 45 |."THENGOSUB'SCRE|
00001E50: 45 4E 20 44 55 4D 50 27 00 64 22 A5 0F 41 B2 C5 |EN DUMP'.d"..A..|
00001E60: 28 41 24 29 00 6A 22 A9 0F 8E 00 98 22 AA 0F 8F |(A$).j"....."...|
00001E70: 20 2A 2A 20 50 52 49 4E 54 20 44 49 53 50 4C 41 | ** PRINT DISPLA|
00001E80: 59 20 4F 46 20 52 45 43 4F 56 45 52 45 44 20 53 |Y OF RECOVERED S|
00001E90: 45 51 55 45 4E 43 45 53 00 C0 22 AB 0F 99 5A 47 |EQUENCES.."...ZG|
00001EA0: 24 3A 99 A3 37 29 22 11 52 45 43 4F 56 45 52 45 |$:..7)".RECOVERE|
00001EB0: 44 20 44 49 53 4B 20 53 45 51 55 45 4E 43 45 53 |D DISK SEQUENCES|
00001EC0: 00 D6 22 AC 0F 99 A3 31 32 29 22 11 53 45 51 55 |.."....12)".SEQU|
00001ED0: 45 4E 43 45 22 4D 00 0B 23 AD 0F 99 2C 2C 22 11 |ENCE"M..#...,,".|
00001EE0: 54 52 41 43 4B 22 2C 22 53 45 43 54 4F 52 22 3A |TRACK","SECTOR":|
00001EF0: 99 22 11 12 53 54 41 52 54 22 2C 2C 53 25 28 4D |."..START",,S%(M|
00001F00: 2C 30 29 2C 53 25 28 4D 2C 31 29 00 23 23 AE 0F |,0),S%(M,1).##..|
00001F10: 99 22 11 50 52 45 53 45 4E 54 20 42 4C 4F 43 4B |.".PRESENT BLOCK|
00001F20: 22 3A 8E 00 3E 23 B4 0F 8F 20 2A 2A 20 42 4F 54 |":..>#... ** BOT|
00001F30: 54 4F 4D 20 4F 46 20 44 49 53 50 4C 41 59 00 5C |TOM OF DISPLAY.\|
00001F40: 23 B5 0F 99 22 11 12 45 4E 44 22 2C 2C 53 25 28 |#..."..END",,S%(|
00001F50: 4D 2C 33 29 2C 53 25 28 4D 2C 34 29 00 7D 23 B6 |M,3),S%(M,4).}#.|
00001F60: 0F 99 22 11 4E 55 4D 42 45 52 20 4F 46 20 42 4C |..".NUMBER OF BL|
00001F70: 4F 43 4B 53 22 2C 53 25 28 4D 2C 32 29 00 AA 23 |OCKS",S%(M,2)..#|
00001F80: B7 0F 99 22 11 11 20 28 43 2D 43 4F 4E 54 20 20 |...".. (C-CONT |
00001F90: 50 2D 50 41 55 53 45 20 20 48 2D 48 41 4C 54 20 |P-PAUSE H-HALT |
00001FA0: 20 53 2D 53 55 4D 4D 41 52 59 00 B6 23 B8 0F 8D | S-SUMMARY..#...|
00001FB0: 34 30 37 30 3A 8E 00 CF 23 BE 0F 8F 20 2A 2A 20 |4070:...#... ** |
00001FC0: 54 59 50 45 20 41 4E 59 20 4B 45 59 2D 2D 2D 00 |TYPE ANY KEY---.|
00001FD0: FA 23 BF 0F 99 A3 37 29 22 54 59 50 45 20 41 4E |.#....7)"TYPE AN|
00001FE0: 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 |Y KEY TO CONTINU|
00001FF0: 45 22 3A 8D 34 30 30 30 3A 8E 00 12 24 C8 0F 8F |E":.4000:...$...|
00002000: 20 2A 2A 20 46 4F 52 4D 41 54 20 4E 55 4D 42 45 | ** FORMAT NUMBE|
00002010: 52 53 00 46 24 C9 0F 41 24 B2 22 12 22 AA C9 28 |RS.F$..A$."."..(|
00002020: C4 28 53 25 28 4A 2C 30 29 29 2C 32 29 AA 22 20 |.(S%(J,0)),2)." |
00002030: 20 20 22 AA C9 28 C4 28 53 25 28 4A 2C 31 29 29 | "..(.(S%(J,1))|
00002040: 2C 32 29 AA 22 92 00 73 24 CA 0F 5A 24 B2 C9 28 |,2)."..s$..Z$..(|
00002050: C4 28 53 25 28 4A 2C 33 29 29 2C 32 29 AA 22 20 |.(S%(J,3)),2)." |
00002060: 20 20 22 AA C9 28 C4 28 53 25 28 4A 2C 34 29 29 | "..(.(S%(J,4))|
00002070: 2C 32 29 00 79 24 CB 0F 8E 00 8E 24 D2 0F 8F 20 |,2).y$.....$... |
00002080: 2A 2A 20 43 4C 4F 53 45 20 46 49 4C 45 53 00 A9 |** CLOSE FILES..|
00002090: 24 D3 0F 98 31 35 2C 22 42 2D 50 2C 32 2C 30 22 |$...15,"B-P,2,0"|
000020A0: 3A A0 38 3A A0 31 35 3A 8E 00 CC 24 DC 0F 8F 20 |:.8:.15:...$... |
000020B0: 2A 2A 20 50 52 49 4E 54 20 54 52 41 43 4B 20 53 |** PRINT TRACK S|
000020C0: 55 4D 4D 41 52 59 20 54 41 42 4C 45 00 F4 24 DD |UMMARY TABLE..$.|
000020D0: 0F 99 5A 47 24 3A 99 A3 38 29 22 54 52 41 43 4B |..ZG$:..8)"TRACK|
000020E0: 20 12 22 54 52 22 92 53 55 4D 4D 41 52 59 20 54 | ."TR".SUMMARY T|
000020F0: 41 42 4C 45 00 22 25 DE 0F 99 22 53 45 43 20 A1 |ABLE."%..."SEC .|
00002100: 20 54 52 20 20 12 49 4E 92 20 20 20 53 43 20 20 | TR .IN. SC |
00002110: DD 20 20 20 20 54 52 20 20 12 4F 55 54 92 20 20 |. TR .OUT. |
00002120: 53 43 00 39 25 DF 0F 81 4A B2 30 A4 53 4D 3A 99 |SC.9%...J.0.SM:.|
00002130: 4A 3B 3A 81 4B B2 30 A4 33 00 53 25 E0 0F 99 A3 |J;:.K.0.3.S%....|
00002140: 35 AA 39 AC 4B 29 44 25 28 50 28 30 29 2C 4A 2C |5.9.K)D%(P(0),J,|
00002150: 4B 29 3B 00 6F 25 E1 0F 82 3A 99 3A 99 22 91 22 |K);.o%...:.:."."|
00002160: A3 34 29 22 A1 22 A6 31 34 29 22 DD 22 3A 82 00 |.4)".".14)".":..|
00002170: 7B 25 E2 0F 8D 34 30 37 30 3A 8E 00 97 25 E6 0F |{%...4070:...%..|
00002180: 8F 20 2A 2A 20 50 41 55 53 45 2F 53 54 4F 50 20 |. ** PAUSE/STOP |
00002190: 43 4F 4E 54 52 4F 4C 00 C3 25 E7 0F A1 41 24 3A |CONTROL..%...A$:|
000021A0: 8B 41 24 B2 22 48 22 B0 20 41 24 B2 22 43 22 B0 |.A$."H". A$."C".|
000021B0: 41 24 B2 22 50 22 B0 41 24 B2 22 53 22 A7 42 24 |A$."P".A$."S".B$|
000021C0: B2 41 24 00 D7 25 E8 0F 8B 42 24 B2 22 48 22 A7 |.A$..%...B$."H".|
000021D0: 8D 34 30 33 30 3A 8E 00 EF 25 E9 0F 8B 42 24 B2 |.4030:...%...B$.|
000021E0: 22 50 22 A7 81 4A B2 30 A4 35 30 30 30 3A 82 00 |"P"..J.0.5000:..|
000021F0: 07 26 EA 0F A1 41 24 3A 8B 41 24 B2 22 D0 22 A7 |.&...A$:.A$.".".|
00002200: 8D 34 30 30 33 3A 8E 00 27 26 EB 0F 8B 41 24 B2 |.4003:..'&...A$.|
00002210: 22 48 22 B0 41 24 B2 22 43 22 B0 41 24 B2 22 53 |"H".A$."C".A$."S|
00002220: 22 A7 42 24 B2 41 24 00 2D 26 EC 0F 8E 00 50 26 |".B$.A$.-&....P&|
00002230: 92 13 8F 20 2A 2A 20 4E 55 4D 42 45 52 20 4F 46 |... ** NUMBER OF|
00002240: 20 42 4C 4F 43 4B 53 20 49 4E 20 54 52 41 43 4B | BLOCKS IN TRACK|
00002250: 00 69 26 93 13 53 4D B2 31 36 3A 8B 50 28 30 29 |.i&..SM.16:.P(0)|
00002260: B3 33 31 A7 53 4D B2 31 37 00 7C 26 94 13 8B 50 |.31.SM.17.|&...P|
00002270: 28 30 29 B3 32 35 A7 53 4D B2 31 38 00 8F 26 95 |(0).25.SM.18..&.|
00002280: 13 8B 50 28 30 29 B3 31 38 A7 53 4D B2 32 30 00 |..P(0).18.SM.20.|
00002290: 95 26 96 13 8E 00 CD 26 9C 13 8F 20 2A 2A 20 47 |.&.....&... ** G|
000022A0: 45 54 20 4C 4E 4B 53 2D 2D 50 28 30 29 50 28 31 |ET LNKS--P(0)P(1|
000022B0: 29 49 4E 3A 4C 28 30 29 4C 28 31 29 4F 55 54 2D |)IN:L(0)L(1)OUT-|
000022C0: 2D 4F 55 54 20 50 54 52 53 20 53 45 54 00 E9 26 |-OUT PTRS SET..&|
000022D0: 9D 13 98 31 35 2C 22 55 31 3A 22 3B 32 3B 31 3B |...15,"U1:";2;1;|
000022E0: 50 28 30 29 3B 50 28 31 29 00 FB 26 9E 13 45 4C |P(0);P(1)..&..EL|
000022F0: B2 35 30 32 31 3A 8D 35 31 30 30 00 14 27 9F 13 |.5021:.5100..'..|
00002300: 81 4A B2 30 A4 31 3A 8F 20 40 20 47 45 54 20 4C |.J.0.1:. @ GET L|
00002310: 49 4E 4B 53 00 2E 27 A0 13 3A 98 31 35 2C 22 4D |INKS..'..:.15,"M|
00002320: 2D 52 22 3B C7 28 4A 29 3B C7 28 31 39 29 00 41 |-R";.(J);.(19).A|
00002330: 27 A2 13 3A A1 23 31 35 2C 41 24 3A 8D 35 30 36 |'..:.#15,A$:.506|
00002340: 30 00 68 27 A4 13 3A 4C 28 4A 29 B2 C6 28 41 24 |0.h'..:L(J)..(A$|
00002350: 29 3A 44 25 28 50 28 30 29 2C 50 28 31 29 2C 4A |):D%(P(0),P(1),J|
00002360: AA 32 29 B2 4C 28 4A 29 00 7A 27 A6 13 82 3A 41 |.2).L(J).z'...:A|
00002370: B2 32 3A 8D 35 30 37 30 3A 8E 00 9F 27 B0 13 3A |.2:.5070:...'..:|
00002380: 8F 20 2A 2A 20 49 4E 20 50 4F 49 4E 54 45 52 53 |. ** IN POINTERS|
00002390: 20 46 4F 52 20 4C 49 4E 4B 20 42 4C 4F 43 4B 00 | FOR LINK BLOCK.|
000023A0: AB 27 B1 13 3A 81 4A B2 30 A4 31 00 C6 27 B2 13 |.'..:.J.0.1..'..|
000023B0: 3A 3A 44 25 28 4C 28 30 29 2C 4C 28 31 29 2C 4A |::D%(L(0),L(1),J|
000023C0: 29 B2 50 28 4A 29 00 CF 27 B3 13 3A 82 3A 8E 00 |).P(J)..'..:.:..|
000023D0: EE 27 BA 13 8F 20 2A 2A 20 47 45 54 20 44 45 43 |.'... ** GET DEC|
000023E0: 20 56 41 4C 55 45 2D 32 20 42 59 54 45 53 00 06 | VALUE-2 BYTES..|
000023F0: 28 BB 13 A1 23 38 2C 41 24 3A 8D 35 30 36 30 3A |(...#8,A$:.5060:|
00002400: 8F 20 40 20 4C 4F 00 12 28 BC 13 41 B2 C6 28 41 |. @ LO..(..A..(A|
00002410: 24 29 00 2A 28 BD 13 A1 23 38 2C 41 24 3A 8D 35 |$).*(...#8,A$:.5|
00002420: 30 36 30 3A 8F 20 40 20 48 49 00 3E 28 BE 13 41 |060:. @ HI.>(..A|
00002430: B2 C6 28 41 24 29 AC 32 35 36 AA 41 3A 8E 00 52 |..(A$).256.A:..R|
00002440: 28 C4 13 8F 20 2A 2A 20 57 48 45 4E 20 41 24 3D |(... ** WHEN A$=|
00002450: 22 22 00 65 28 C5 13 8B 41 24 B2 22 22 A7 41 24 |"".e(...A$."".A$|
00002460: B2 C7 28 30 29 00 6B 28 C6 13 8E 00 7C 28 CE 13 |..(0).k(....|(..|
00002470: 8F 20 2A 2A 20 53 45 54 20 42 2D 50 00 8F 28 CF |. ** SET B-P..(.|
00002480: 13 98 31 35 2C 22 42 2D 50 2C 32 2C 22 3B 41 00 |..15,"B-P,2,";A.|
00002490: A3 28 D0 13 45 4C B2 35 30 37 31 3A 8D 35 31 30 |.(..EL.5071:.510|
000024A0: 30 3A 8E 00 B4 28 D8 13 8F 20 2A 2A 20 44 45 43 |0:...(... ** DEC|
000024B0: 3E 48 45 58 00 E9 28 D9 13 41 24 B2 CA 28 48 24 |>HEX..(..A$..(H$|
000024C0: 2C 31 AA 28 32 34 30 AF 41 29 AD 31 36 2C 31 29 |,1.(240.A).16,1)|
000024D0: AA CA 28 48 24 2C 31 AA 28 31 35 AF 41 29 2C 31 |..(H$,1.(15.A),1|
000024E0: 29 3A 8D 35 30 36 30 3A 8E 00 03 29 E2 13 8F 20 |):.5060:...)... |
000024F0: 2A 2A 20 41 53 43 20 3E 20 43 48 41 52 41 43 54 |** ASC > CHARACT|
00002500: 45 52 53 00 1F 29 E3 13 8B 41 B3 33 32 A7 99 22 |ERS..)...A.32.."|
00002510: 12 22 C7 28 41 AA 36 34 29 22 92 22 3B 3A 8E 00 |.".(A.64)".";:..|
00002520: 42 29 E4 13 8B 41 B2 33 34 B0 41 B2 39 38 A7 99 |B)...A.34.A.98..|
00002530: C7 28 33 34 29 C7 28 33 34 29 C7 28 32 30 29 3B |.(34).(34).(20);|
00002540: 3A 8E 00 52 29 E5 13 8B 41 B3 31 32 38 A7 35 30 |:..R)...A.128.50|
00002550: 39 35 00 6F 29 E6 13 8B 41 B3 31 36 30 A7 99 22 |95.o)...A.160.."|
00002560: 12 22 C7 28 41 AA 33 32 29 22 92 22 3B 3A 8E 00 |.".(A.32)".";:..|
00002570: 7C 29 E7 13 99 C7 28 41 29 3B 3A 8E 00 96 29 EC ||)....(A);:...).|
00002580: 13 8F 20 2A 2A 20 43 48 45 43 4B 20 44 49 53 4B |.. ** CHECK DISK|
00002590: 20 45 52 52 4F 52 00 B8 29 ED 13 84 31 35 2C 45 | ERROR..)...15,E|
000025A0: 4E 24 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B 45 4E |N$,EM$,ET,ES:.EN|
000025B0: 24 B2 22 30 30 22 A7 8E 00 E1 29 EE 13 99 22 11 |$."00"....)...".|
000025C0: 11 12 44 49 53 4B 20 45 52 52 4F 52 92 20 41 54 |..DISK ERROR. AT|
000025D0: 20 50 52 4F 47 52 41 4D 20 4C 49 4E 45 20 22 45 | PROGRAM LINE "E|
000025E0: 4C 00 0B 2A F1 13 99 22 11 45 52 52 4F 52 20 4D |L..*...".ERROR M|
000025F0: 45 53 53 41 47 45 3A 20 22 45 4E 24 22 20 20 22 |ESSAGE: "EN$" "|
00002600: 45 4D 24 2C 45 54 22 2C 22 45 53 00 1E 2A F3 13 |EM$,ET","ES..*..|
00002610: 8B 45 4E 24 B2 22 32 32 22 A7 31 30 30 30 00 24 |.EN$."22".1000.$|
00002620: 2A F5 13 80 00 00 00 AA AA |*........ |
.......400......"RUN":.500.525.B...."SAV
E ON DRIVE # ...";A:A$."DISK FILE REC
VRY":.A..0.A..1.10.....B$.D(A).":".A$:.1
5,8,15,"S".B$: 15:.A$" .SCRATCHED.E....B
$,8:.B$,8:.A$" .SAVED AND VERIFIED":....
... ******************************......
* *.4.... *
DISK FILE RETRIEVER *.Y.... *
*.~.... * B
Y DAVID CONE *...... *
*.H.... * COMPUTE #10
- MARCH 1981 *...... *
*...... ********************
**********.3.... * PUT DISK WITH LOST FI
LES.V.... * INTO DRIVE 1. THIS PROGRAM.Y
.... * WILL THEN SEARCH FOR FILES......
* IN TRACKS 17-1 & 19-35 AND...... * RET
URN THE START BLOCK, END...... * BLOCK,
AND NUMBER OF BLOCKS....... * THE FIRST
256 BYTES OF ANY.(.... * FILE MAY BE EXA
MINED TO.F.... * ALLOW IDENTIFICATION..I
.... * ANY IDENTIFIED FILE CAN BE......
* COPIED ON TO DRIVE #0....B.. *********
*********************.D.D.. * USAGE: DRI
VES:...F.. * DRIVE 0: GOOD DISK...H.
. * DRIVE 1: DAMAGED DISK...J.. * L
OGICAL FILES:.?.V.. * 1: WRITE FROM K
EYBOARD.\.X.. * 8: READ FROM DISK.X.Z
.. * 9: WRITE TO DISK...... * 15: D
ISK CONTROL...... * DISK CHANNEL: 2.Q..
.. * DISK BUFFER: #2 (1900-19FF)......
******************************...... *
PROGRAM ENTRY POINTS.8.... * 10 - SA
VE & VERIFY PRGM.].... * 1000 - PRINT
SUMMARY TABLE.V.... * 1100 - CHOICES..
.... ******************************.....
. ** NUMERICAL VARIABLES.U...P(0).0:. PR
ESENT TRACK #.....P(1).0:. PRESENT SECTO
R #.....L(0).0:. TRACK LINK.$...L(1).0:.
SECTOR LINK.G...SR.17:. START TRACK (17
OR 19).]...SP.00:. END TRACK.....SM.20:
. MAX # OF SCTRS IN TRACK.....TR.SR:. VA
RIABLE TRACK VALUE.....:M.01:. SEQUENCE
#.X...MM.50:. MAX # OF SEQUENCES.....:N.
00:. # OF BLOCKS IN SEQ.....PS.00:. STAR
T OF BASIC./...PL.00:. 1ST LINK POINTER.
J...PN.00:. REM 1ST LINE #.F...ES.00:. E
RROR IN SECTOR.....ET.00:. ERROR IN TRAC
K.....EL.00:. DISK ERROR IN LINE #.F...:
:. A,J,K GENERAL VARIABLES.O.... **.
..... ** STRING VARIABLES.....: :. A
$,Z$ GENERAL VARIABLES.-...B$."":. CONT
RUN VARIABLE.H...F$."":. NEW FILE NAME
.J...T$."":. TYPE OF FILE CREATED.....E
N$."00" :. DISK ERROR #.....EM$." OK":.
DISK ERROR MESSAGE.N...S$." ...":.
STRING UTILITY.....H$."0123456789ABCDEF"
:. HEX DGTS.....ZG$.".GOTO5":. STRING U
TILITY...?.. **.9.@.. ** MATRIX VARIABLE
S.\.A..D%(35,20,3):. BLOCK POINTERS...B
.: . ^ ^ 0,1 IN TRK & BLK PNTRS...C.:
. ^ ^ 2,3OUT TRK & BLK PNTRS.B.D.: .
^ 20-BLOCK NUMBER...E.: . 35- - -TRACK
NUMBER...F..S%(MM,4):. SEQUENCE DATA.!.
G.: . 0,1 START TRACK & BLOCK.B.H.:
. 2 NUMBER OF BLOCKS.F.I.: . 3,
4 END TRACK & BLOCK.O.N.. **...S..15,
8,15:EL.595:.5100...X.. ** PAGE 1/INTROD
UCTION,TRACKS.Y.]..1,0:.ZG$:..9)"...DISK
RECOVERY PROGRAM...B..".. PUT DISK FO
R RECOVERY IN .DRIVE. .1.:.G.."... HI
T ANY KEY WHEN .DISK. IS IN PLACE..L.L..
". (DISK WILL THEN BE INITIALIZED)":.
4000...Q..15,"I1":EL.625:.5100.H.V.."..
START: TRACK .17. (DOWN) OR .19. (UP)? .
17....";:.1,SR:....{..SR..17.SR..19.."..
..":.630.......7)".END SEARCH AT TRACK:
.....";:.1,SP:..>....SR.17..SP.1.SP.
16.."...":.640.B....SR.19..SP.20.SP.35..
"...":.640.U... 1:.J.1.1000:....... ** P
AGE 2/DESCRIPTION.P....59468,14:.ZG$:.".
TRACKS"SR"TO"SP"WILL NOW BE SEARCHED FOR
......"....FILES. THE INITIAL AND ENDIN
G BLOCKS.,...."AND THE LENGTH OF EACH RE
COVERED FILE.V...."ARE RECORDED. (TRACK
SUMMARIES ARE.M...."ALSO DISPLAYED)....
..".THIS SEARCH CAN RUN CONTINUOUSLY, B
E.C...."HALTED AFTER EACH OPERATION, HAV
E A......"PAUSE AFTER EACH OPERATION, OR
BE ENDED"......"WITH A JUMP TO THE SUMM
ARY..A....".. TYPE .C. FOR CONTINUOU
S RUNNING.K...." TYPE .H. FOR HALT I
N OPERATION......" TYPE .P. FOR PAUS
ES IN OPERATION......" TYPE .S. TO E
SCAPE TO SUMMARY......"..OPERATIONAL MOD
E MAY BE CHANGED DURING.*...."THE SEARCH
BY TYPING THE ABOVE COMMANDS AT ANY TIM
E..:....4000:B$.A$.W....ZG$:.59468,12:TR
.SR:M.1.T....8,8,2,"#2":EL.696:.5100....
.. ** FIND INITIATOR BLOCKS.J.A.P(0).TR:
.5010:. @ GET NUMBER OF BLOCKS IN TRACK
TR...F.. K.0.SM:P(1).K:. @ SEARCH TRK...
K.:.D%(P(0),P(1),2)..0.735.+.P.:.5020:.
@ GET LNKS/OUT PTRS.F.U.:.L(0).0.D%(P(0)
,P(1),2).64:.735:. @ END OF FILE FOUND..
.Z.:.5040:. @ IN PTRS TO NXT BLK........
....4060:. @ TRACK TABLE.M.... ** FOLLOW
LINKS FOR EACH START.Y...P(0).TR......K
.0.SM:P(1).K:N.1.....:.D%(P(0),P(1),0)..
0.835.,...:S%(M,0).P(0):S%(M,1).P(1).I..
.:.4010:. @ PRINT DISPLAY.H...:.".".14)S
$N,S$P(0),S$P(1).....:.5020:. @ GET LINK
S.....:.L(0).0.D%(P(0),P(1),2).64:.805.H
...:.5040:. @ IN PTRS TO LNK BLK.....:P(
0).L(0):P(1).L(1):N.N.1... .:.775...%.:.
@ CLOSE END OF LINK SEQUENCE.1.*.:S%(M,
2).N:S%(M,3).P(0).C./.:S%(M,4).P(1).C.4.
:.4020:. @ COMPLETE DISPLAY.U.9.:.B$."S"
.K.SM...>.:M.M.1:P(0).TR:. @ RESETS...C.
....H..B$."S".1000...M.TR.TR.1:.SR.19.TR
.TR.2:. @ GO ON TO NEXT TRACK...R.. @ TE
ST FOR END TRACK...W..SR.17.TR.SP.1000.$
.\..SR.19.TR.SP.1000.-.A..700.H.... ** P
RINT OUT SUMMARY.W...K.0:B$."H".V....ZG$
;:..11)"..FILE SUMMARY......"..SEQ #","B
LOCKS"," START "," FINISH......,,"TR SE
C","TR SEC.Q....J.1.15.K.15.15.K.....:.
J.M.1.J.15.15.K:.1045.....:.4040:. @ FOR
MAT NUMBERS.'...:." "J," "S%(J,2),A$,Z$.
-.....B...K.K.1:.".":.4030.P....J.M.1010
.A.L.. ** CHOICES...Q..ZG$:."....CHOICES
.: .L.OOK: FIRST 240 BYTES...V...12)"
..S.UMMARY REVIEW.N.[...12)"..R.ETRIEVE
A FILE...`...12)"..B. SCAN OTHER BAND...
E...12)"..^. DIFFERENT DISK.%.J...12)"..
E.XIT PROGRAM.<.O..4000:.A$."L".1200.M.T
..A$."S".1000.^.Y..A$."R".1500.R.~..A$."
B". 8:.600......A$."^"..4050:.400......A
$."E"..4050:.ZG$:.......1135.O.... ** GE
T 1ST PAGE OF FILE DATA......"...INPUT T
RACK, SECTOR";J,K......J.35.J.1.1100.$..
.P(0).J:.5010:.K.0.K.SM.1100.H.D.P(1).K:
.5020:. @ LNKS L(0) L(1).T.I.A.2:.5070:.
@ READ NEXT BYTES (SET BP)...N..5050:P
S.A:. @ START BASIC...S..5050:PL.A:. @ 1
ST PROG LINK.R.X..5050:PN.A:. @ 1ST LINE
#.....A.2:.5070:. @ GET STRING.....Z$."
"......J.0.250.!...:.#8,A$:.5060:Z$.Z$.A
$.'.....A...Z$.G(L(0)).G(L(1)).Z$.O....Z
G$.12)".FIRST PAGE DATA":. @ PRINT DATA.
.....,,"..TRACK","SECTOR......"INITIAL B
LOCK",P(0),P(1).......15)".BYTES"......"
BLOCK POINTER".16)"0&1",L(0),L(1).......
20)".DECIMAL VALUE......"PRGRM START".16
)"2&3".23)PS.;...."1ST LINK".16)"4&5".23
)PL.\.#.."1ST LINE #".16)"6&7".23)PN.N.(
..".HEX VALUES.Y.-..J.0.5...2.:A.8.J:.50
80:." "A$" : ";...7.:.K.0.7...<.::A.F(
J(Z$,8.J.K.1,1)).T.A.::.5080:.A$" ";...F
.:.:....K.....P.."..CHARACTER VALUES:...
.U.K.0...Z..J.1.80.+._.:A.F(J(Z$,J.80.K,
1)).6.D.:.5090.<.I...J.N..". 'C' TO CONT
INUE: +/- CHANGE LINE SCAN...S..4000:.A$
."C".1100...X..A$."+".K.2.."....";:K.K.1
:.1370.K.}..A$."-".K.0.."....";:K.K.1:.1
370.U....1395...... ** RETRIEVE A FILE..
...."...STARTING TRACK, SECTOR";J,K.&...
.J.35.J.1.1100.M...P(0).J:P(1).K:.5010:.
K.0.K.SM.1100.J....ZG$.10)".FILE RETRIEV
AL......"..RETRIEVING THE FILE STARTING
AT:.......3)"TRACK ."P(0)".".20)"SECTOR
."P(1)......".NAME FOR RETRIEVED FILE:":
." ";F$......".IS THIS A .P.ROGRAM OR
A .S.EQUENTIAL FILE.K....4000:.A$."P".T$
."PRG":." .PROGRAM":.1560.X....A$."S".
T$."SEQ":." .SEQUENTIAL":.1560......15
45......".PUT GOOD DISK WITH SUFFICIENT
BLOCKS IN DRIVE .0......".INITIALI
ZE? (Y/N)":.4000.. "..A$."Y"..15,"I0":EL
.1535:.5100.. '..4030.; ,.."..IS EVERYTH
ING OK.? TYPE 'C' TO GO!.K 1.." .(A
NY OTHER LETTER WILL ABORT).":.4000.} 6.
.A$.."C".1100.. ;.. ** RETRIEVE PROGRAM.
H @..9,8,4,"0:".F$.",".T$.",WRITE":EL.16
00:.5100.Z E.EL.1555:.5100..!J.."COPYING
TRACK:"P(0).21)"SECTOR:"P(1).1!O..5020:
P(0).L(0):P(1).L(1):. @ GET LINKS.J!T.A.
255:.P(0).0.A.P(1).U!Y..J.2.A.O!^.:.15,"
M-R";G(J);G(19)..!C.:.#15,A$:.5060..!H.:
.9,A$;..!M..:EL.1570.A!R..P(0)..0.1610:.
@ GET NEXT BLOCK..!W. 9:."..FILE RECOVE
RED.":.4030:.1100..! .. ** GET AND HOLD.
."...A.0.10:.A$:..%"...A$:.A$."".4002.X"
... @ SCREEN DUMP:IFA$="P"THENGOSUB'SCRE
EN DUMP'.D"..A.E(A$).J"....."... ** PRIN
T DISPLAY OF RECOVERED SEQUENCES.."...ZG
$:..7)".RECOVERED DISK SEQUENCES.V"....1
2)".SEQUENCE"M..#...,,".TRACK","SECTOR":
."..START",,S%(M,0),S%(M,1).##...".PRESE
NT BLOCK":..>#... ** BOTTOM OF DISPLAY.\
#..."..END",,S%(M,3),S%(M,4).}#...".NUMB
ER OF BLOCKS",S%(M,2)..#...".. (C-CONT
P-PAUSE H-HALT S-SUMMARY..#...4070:..O
#... ** TYPE ANY KEY---..#....7)"TYPE AN
Y KEY TO CONTINUE":.4000:...$H.. ** FORM
AT NUMBERS.F$I.A$.".".I(D(S%(J,0)),2)."
".I(D(S%(J,1)),2)."..S$J.Z$.I(D(S%(J,3
)),2)." ".I(D(S%(J,4)),2).Y$K....$R..
** CLOSE FILES..$S..15,"B-P,2,0": 8: 15:
..L$... ** PRINT TRACK SUMMARY TABLE..$.
..ZG$:..8)"TRACK ."TR".SUMMARY TABLE."%.
.."SEC . TR .IN. SC . TR .OUT.
SC.9%...J.0.SM:.J;:.K.0.3.S%....5.9.K)D%
(P(0),J,K);.O%...:.:.".".4)".".14)".":..
{%...4070:...%... ** PAUSE/STOP CONTROL.
C%...A$:.A$."H". A$."C".A$."P".A$."S".B$
.A$.W%...B$."H"..4030:...%...B$."P"..J.0
.5000:...&...A$:.A$."P"..4003:..'&...A$.
"H".A$."C".A$."S".B$.A$.-&....P&... ** N
UMBER OF BLOCKS IN TRACK.I&..SM.16:.P(0)
.31.SM.17.|&...P(0).25.SM.18..&...P(0).1
8.SM.20..&....M&... ** GET LNKS--P(0)P(1
)IN:L(0)L(1)OUT--OUT PTRS SET..&...15,"U
1:";2;1;P(0);P(1)..&..EL.5021:.5100..'..
.J.0.1:. @ GET LINKS..' .:.15,"M-R";G(J)
;G(19).A'..:.#15,A$:.5060.H'..:L(J).F(A$
):D%(P(0),P(1),J.2).L(J).Z'...:A.2:.5070
:...'..:. ** IN POINTERS FOR LINK BLOCK.
.'..:.J.0.1.F'..::D%(L(0),L(1),J).P(J).O
'..:.:...'... ** GET DEC VALUE-2 BYTES..
(...#8,A$:.5060:. @ LO..(..A.F(A$).*(...
#8,A$:.5060:. @ HI.>(..A.F(A$).256.A:..R
(D.. ** WHEN A$="".E(E..A$."".A$.G(0).K(
F...|(N.. ** SET B-P..(O..15,"B-P,2,";A.
.(P.EL.5071:.5100:...(X.. ** DEC>HEX..(Y
.A$.J(H$,1.(240.A).16,1).J(H$,1.(15.A),1
):.5060:...)... ** ASC > CHARACTERS..)..
.A.32.."."G(A.64)".";:..B)...A.34.A.98..
G(34)G(34)G(20);:..R)...A.128.5095.O)...
A.160.."."G(A.32)".";:..|)...G(A);:...).
.. ** CHECK DISK ERROR..)...15,EN$,EM$,E
T,ES:.EN$."00"....)..."...DISK ERROR. AT
PROGRAM LINE "EL..*...".ERROR MESSAGE:
"EN$" "EM$,ET","ES..*...EN$."22".1000.$
*........
> CLICK IMAGE PREVIEW FOR FULL MODAL