DISK FILE RECVRY
FILE INFORMATION
FILENAME(S): DISK FILE RECVRY
FILE TYPE(S): PRG
FILE SIZE: 9.5K
FIRST SEEN: 2025-12-01 02:26:43
APPEARS ON: 1 disk(s)
FILE HASH
82c2875b61259a5fd795edd30c3a51dec719146f59552620b656ec0a5d883a34
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TONSOFT | DISK FILE RECVRY | PRG | Shine | 17 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 00 00 89 34 30 30 00 1E 08 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: 08 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 08 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 08 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 08 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 09 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 09 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 09 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 09 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: 09 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 09 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 09 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 0A | *...|
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 0A 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 0A 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 0A 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 0A 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 0A 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 0A 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 0B 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 0B 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 0B 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 0B 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 0B 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 0B 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 0B |*************...|
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 0B 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 0C 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 0C 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 0C |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 0C 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 0C 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 0C 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 0C 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 0C 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 0C 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 0D 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 0D 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 0D 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 0D |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 0D 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 0D 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 0D 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 0D 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 0E 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 0E 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 0E 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 0E 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 0E |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 0E 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 0E 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 0E 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 0E 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 0F 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 0F 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 0F 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 0F 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 0F 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 0F 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 0F 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 0F 12 02 8F 20 2A 2A 00 |IABLES...... **.|
000007D0: E9 0F 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 10 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: 10 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 10 | 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 10 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 10 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 10 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 10 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: 10 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 11 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 11 3F 02 8F 20 2A 2A 00 |TILITY...?.. **.|
00000920: 39 11 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 11 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 11 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 11 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 11 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 11 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: 11 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 12 |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 12 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 12 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 12 4E 02 8F 20 2A 2A 00 | BLOCK.o.N.. **.|
00000A70: 89 12 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 12 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 12 |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 13 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 13 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 13 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 13 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 13 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 13 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 14 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 14 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: 14 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 14 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 14 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 14 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 15 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 15 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 15 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 15 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 15 |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 15 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 15 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 16 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 16 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 16 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 16 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 16 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 16 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 17 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 17 B4 02 8D | ANY TIME..:....|
00000F30: 34 30 30 30 3A 42 24 B2 41 24 00 57 17 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 17 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 17 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 17 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 17 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 18 | @ 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 18 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 18 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 18 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 18 DF 02 82 00 A8 | NXT BLK........|
00001090: 18 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 18 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 18 |OR EACH START...|
000010D0: EE 02 50 28 30 29 B2 54 52 00 F0 18 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 19 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 19 |(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 19 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 19 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 19 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 19 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 19 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 19 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 19 20 03 3A 89 37 37 |):N.N.1... .:.77|
000011F0: 35 00 15 1A 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 1A 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 1A 2F 03 3A 53 25 28 4D 2C 34 29 B2 50 |).C./.:S%(M,4).P|
00001240: 28 31 29 00 63 1A 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 1A 39 03 3A 8B 42 24 B2 22 53 22 |LAY.u.9.:.B$."S"|
00001270: A7 4B B2 53 4D 00 93 1A 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 1A 43 03 82 00 AA 1A 48 03 8B 42 |ETS...C.....H..B|
000012A0: 24 B2 22 53 22 A7 31 30 30 30 00 DD 1A 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 1A |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 1B 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: 1B 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 1B 61 03 89 37 30 30 00 48 1B |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 1B ED 03 4B B2 30 | SUMMARY.W...K.0|
00001350: 3A 42 24 B2 22 48 22 00 76 1B 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 1B 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 1B 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 1B 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 1B 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 1C |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 1C 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 1C 15 04 82 00 42 1C |),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 1C 1F 04 8B 4A B3 4D A7 31 30 31 30 |30.P....J.M.1010|
00001450: 00 61 1C 4C 04 8F 20 2A 2A 20 43 48 4F 49 43 45 |.a.L.. ** CHOICE|
00001460: 53 00 95 1C 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 1C 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 1C 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: 1C 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 1D |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 1D 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 1D 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 1D 74 |.A$."L".1200.M.t|
00001540: 04 8B 41 24 B2 22 53 22 A7 31 30 30 30 00 5E 1D |..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: 1D 7E 04 8B 41 24 B2 22 42 22 A7 A0 38 3A 89 36 |.~..A$."B"..8:.6|
00001570: 30 30 00 89 1D 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 1D 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 1D 8D 04 89 31 31 33 35 00 CF 1D 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 1D 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 1E BA 04 8B 4A B1 33 35 B0 4A B3 31 A7 |K......J.35.J.1.|
00001600: 31 31 30 30 00 24 1E 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 1E 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 1E 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 1E 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 1E 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 1E 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 1E 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 1E E2 04 5A 24 B2 22 22 00 06 1F E7 04 81 4A |....Z$.""......J|
00001700: B2 30 A4 32 35 30 00 21 1F 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 1F F1 04 82 00 41 1F 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 1F 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 1F 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 1F 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 1F 0A 05 99 A3 31 35 |0),P(1).......15|
000017B0: 29 22 12 42 59 54 45 53 22 00 E1 1F 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 1F 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 20 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 20 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 20 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 20 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: 20 2D 05 81 4A B2 30 A4 35 00 99 20 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 20 37 05 3A 81 |A$" : ";.. 7.:.|
000018A0: 4B B2 30 A4 37 00 C0 20 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 20 41 05 3A 3A 8D 35 30 38 30 3A 99 41 24 |.. A.::.5080:.A$|
000018D0: 22 20 22 3B 00 DD 20 46 05 3A 82 3A 99 00 E3 20 |" ";.. F.:.:... |
000018E0: 4B 05 82 00 FE 20 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: 21 55 05 4B B2 30 00 12 21 5A 05 81 4A B2 31 A4 |!U.K.0..!Z..J.1.|
00001910: 38 30 00 2B 21 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 21 64 05 |,J.80.K,1)).6!d.|
00001930: 3A 8D 35 30 39 30 00 3C 21 69 05 82 00 6A 21 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 21 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 21 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 21 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 21 82 05 |K.K.1:.1370..!..|
000019D0: 89 31 33 39 35 00 EE 21 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: 22 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 22 E6 05 8B 4A B1 33 35 B0 4A B3 |J,K.&"...J.35.J.|
00001A20: 31 A7 31 31 30 30 00 4D 22 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 22 |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 22 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 22 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: 22 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 23 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 23 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 23 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 23 13 06 89 31 35 |L":.1560..#...15|
00001B80: 34 35 00 C0 23 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 23 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 24 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 24 27 06 8D 34 30 33 30 00 3B 24 |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 24 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 24 36 06 |RT).":.4000.}$6.|
00001C70: 8B 41 24 B3 B1 22 43 22 A7 31 31 30 30 00 97 24 |.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 24 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 24 45 06 45 4C B2 |00:.5100..$E.EL.|
00001CD0: 31 35 35 35 3A 8D 35 31 30 30 00 05 25 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 25 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 25 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 25 59 06 81 |).0.A.P(1).U%Y..|
00001D50: 4A B2 32 A4 41 00 6F 25 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 25 63 06 3A A1 23 31 35 2C 41 24 3A 8D 35 30 |.%c.:.#15,A$:.50|
00001D80: 36 30 00 8E 25 68 06 3A 98 39 2C 41 24 3B 00 9C |60..%h.:.9,A$;..|
00001D90: 25 6D 06 82 3A 45 4C B2 31 35 37 30 00 C1 25 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 25 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 25 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 26 A1 0F 81 41 B2 30 A4 31 30 3A A1 41 24 3A |.&...A.0.10:.A$:|
00001E10: 82 00 25 26 A2 0F A1 41 24 3A 8B 41 24 B2 22 22 |..%&...A$:.A$.""|
00001E20: A7 34 30 30 32 00 58 26 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 26 A5 0F 41 B2 C5 |EN DUMP'.d&..A..|
00001E60: 28 41 24 29 00 6A 26 A9 0F 8E 00 98 26 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 26 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 26 AC 0F 99 A3 31 32 29 22 11 53 45 51 55 |..&....12)".SEQU|
00001ED0: 45 4E 43 45 22 4D 00 0B 27 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 27 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 27 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: 27 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 27 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 27 |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 27 B8 0F 8D | S-SUMMARY..'...|
00001FB0: 34 30 37 30 3A 8E 00 CF 27 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 27 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 28 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 28 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 28 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 28 CB 0F 8E 00 8E 28 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: 28 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 28 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 28 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 29 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 29 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 29 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 29 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 29 E2 0F 8D 34 30 37 30 3A 8E 00 97 29 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 29 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 29 E8 0F 8B 42 24 B2 22 48 22 A7 |.A$..)...B$."H".|
000021D0: 8D 34 30 33 30 3A 8E 00 EF 29 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 2A 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 2A 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 2A EC 0F 8E 00 50 2A |".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 2A 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 2A 94 13 8B 50 |.31.SM.17.|*...P|
00002270: 28 30 29 B3 32 35 A7 53 4D B2 31 38 00 8F 2A 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 2A 96 13 8E 00 CD 2A 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 2A |-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 2A 9E 13 45 4C |P(0);P(1)..*..EL|
000022F0: B2 35 30 32 31 3A 8D 35 31 30 30 00 14 2B 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 2B 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: 2B A2 13 3A A1 23 31 35 2C 41 24 3A 8D 35 30 36 |+..:.#15,A$:.506|
00002340: 30 00 68 2B 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 2B A6 13 82 3A 41 |.2).L(J).z+...:A|
00002370: B2 32 3A 8D 35 30 37 30 3A 8E 00 9F 2B 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 2B B1 13 3A 81 4A B2 30 A4 31 00 C6 2B 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 2B B3 13 3A 82 3A 8E 00 |).P(J)..+..:.:..|
000023D0: EE 2B 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: 2C 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 2C BC 13 41 B2 C6 28 41 |. @ LO..,..A..(A|
00002410: 24 29 00 2A 2C 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 2C 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: 2C C4 13 8F 20 2A 2A 20 57 48 45 4E 20 41 24 3D |,... ** WHEN A$=|
00002450: 22 22 00 65 2C C5 13 8B 41 24 B2 22 22 A7 41 24 |"".e,...A$."".A$|
00002460: B2 C7 28 30 29 00 6B 2C C6 13 8E 00 7C 2C CE 13 |..(0).k,....|,..|
00002470: 8F 20 2A 2A 20 53 45 54 20 42 2D 50 00 8F 2C 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 2C D0 13 45 4C B2 35 30 37 31 3A 8D 35 31 30 |.,..EL.5071:.510|
000024A0: 30 3A 8E 00 B4 2C D8 13 8F 20 2A 2A 20 44 45 43 |0:...,... ** DEC|
000024B0: 3E 48 45 58 00 E9 2C 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 2D 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 2D 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 2D 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 2D E5 13 8B 41 B3 31 32 38 A7 35 30 |:..R-...A.128.50|
00002550: 39 35 00 6F 2D 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 2D E7 13 99 C7 28 41 29 3B 3A 8E 00 96 2D 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 2D 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 2D 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 2E 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 2E 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: 2E F5 13 80 00 00 00 AA AA 20 85 D1 64 19 42 FF |......... ..d.B.|
.......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.$
......... .QD.B.
> CLICK IMAGE PREVIEW FOR FULL MODAL