Multiple names: RELFILEX, REL FILE EXAMPLE
FILE INFORMATION
FILENAME(S):
• RELFILEX<br>• REL FILE EXAMPLE
FILE TYPE(S): PRG
FILE SIZE: 5.1K
FIRST SEEN: 2025-11-30 16:59:22
APPEARS ON: 2 disk(s)
FILE HASH
563f2b59a5ead9a3ae5ac2e725caad990d998a072aa4e510405796218fac19b0
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DEMO 1581 2 2 | RELFILEX | PRG | High Voltage Complete C64 Collection | 21 | 0 | DOWNLOAD FILE |
| CHRISTER MODIG | REL FILE EXAMPLE | PRG | hedning, scooby | 3 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 1C 0A 00 8F 20 20 20 55 53 45 20 54 48 |..'.... USE TH| 00000010: 49 53 20 50 52 4F 47 52 41 4D 20 54 4F 20 4C 45 |IS PROGRAM TO LE| 00000020: 41 52 4E 20 48 4F 57 00 4E 1C 14 00 8F 20 20 20 |ARN HOW.N.... | 00000030: 43 52 45 41 54 45 20 41 4E 44 20 55 53 45 20 52 |CREATE AND USE R| 00000040: 45 4C 41 54 49 56 45 20 46 49 4C 45 53 2E 00 74 |ELATIVE FILES..t| 00000050: 1C 1E 00 8F 20 20 20 49 54 20 49 53 20 46 4C 45 |.... IT IS FLE| 00000060: 58 49 42 4C 45 20 45 4E 4F 55 47 48 20 46 4F 52 |XIBLE ENOUGH FOR| 00000070: 20 59 4F 55 00 9A 1C 28 00 8F 20 20 20 54 4F 20 | YOU...(.. TO | 00000080: 43 55 53 54 4F 4D 49 5A 45 20 49 54 20 46 4F 52 |CUSTOMIZE IT FOR| 00000090: 20 59 4F 55 52 20 55 53 45 2E 00 A0 1C 32 00 8F | YOUR USE....2..| 000000A0: 00 B6 1C 37 00 97 35 33 32 38 30 2C 30 3A 97 35 |...7..53280,0:.5| 000000B0: 33 32 38 31 2C 30 00 C0 1C 4B 00 8D 31 34 36 30 |3281,0...K..1460| 000000C0: 00 09 1D 50 00 4C 4C 24 B2 C7 28 31 33 29 20 20 |...P.LL$..(13) | 000000D0: 3A 8F 20 20 54 48 49 53 20 49 53 20 54 48 45 20 |:. THIS IS THE | 000000E0: 46 49 45 4C 44 20 44 45 4C 49 4D 49 54 45 52 20 |FIELD DELIMITER | 000000F0: 55 53 45 44 20 57 48 45 4E 20 57 52 49 54 49 4E |USED WHEN WRITIN| 00000100: 47 20 52 45 43 4F 52 44 53 00 4F 1D 5A 00 85 22 |G RECORDS.O.Z.."| 00000110: 11 9B 20 20 57 48 41 54 20 49 53 20 54 48 45 20 |.. WHAT IS THE | 00000120: 46 49 4C 45 20 4E 41 4D 45 05 22 3B 4E 4D 24 3A |FILE NAME.";NM$:| 00000130: 20 20 8F 20 20 4D 41 58 49 4D 55 4D 20 31 36 20 | . MAXIMUM 16 | 00000140: 43 48 41 52 41 43 54 45 52 20 4E 41 4D 45 2E 00 |CHARACTER NAME..| 00000150: 6B 1D 64 00 8B C3 28 4E 4D 24 29 B1 30 AF C3 28 |k.d...(NM$).0..(| 00000160: 4E 4D 24 29 B3 31 37 A7 31 32 30 00 7A 1D 6E 00 |NM$).17.120.z.n.| 00000170: 99 22 91 91 91 22 3A 89 39 30 00 9E 1D 78 00 85 |."...":.90...x..| 00000180: 22 9B 20 20 4F 4E 20 57 48 41 54 20 44 45 56 49 |". ON WHAT DEVI| 00000190: 43 45 20 4E 55 4D 42 45 52 05 22 3B 44 56 00 D0 |CE NUMBER.";DV..| 000001A0: 1D 82 00 9F 31 35 2C 44 56 2C 31 35 2C 22 49 30 |....15,DV,15,"I0| 000001B0: 22 3A 20 8F 20 20 49 4E 49 54 49 41 4C 49 5A 45 |": . INITIALIZE| 000001C0: 20 54 48 45 20 44 49 53 4B 20 44 52 49 56 45 2E | THE DISK DRIVE.| 000001D0: 00 E8 1D 8C 00 9F 20 38 2C 44 56 2C 38 2C 22 30 |...... 8,DV,8,"0| 000001E0: 3A 22 AA 28 4E 4D 24 29 00 17 1E 96 00 84 31 35 |:".(NM$)......15| 000001F0: 2C 45 2C 45 24 2C 41 2C 42 20 20 20 3A 8F 20 20 |,E,E$,A,B :. | 00000200: 52 45 41 44 20 54 48 45 20 45 52 52 4F 52 20 43 |READ THE ERROR C| 00000210: 48 41 4E 4E 45 4C 2E 00 28 1E A0 00 8B 20 45 B2 |HANNEL..(.... E.| 00000220: 36 32 20 A7 20 32 30 30 00 49 1E AA 00 8B 20 45 |62 . 200.I.... E| 00000230: B2 30 20 A7 20 31 38 30 3A 99 45 2C 45 24 2C 41 |.0 . 180:.E,E$,A| 00000240: 2C 42 3A 89 20 31 32 37 30 00 63 1E B4 00 99 22 |,B:. 1270.c...."| 00000250: 9B 11 20 20 20 28 46 49 4C 45 20 45 58 49 53 54 |.. (FILE EXIST| 00000260: 53 29 22 00 6D 1E BE 00 89 20 32 38 30 00 84 1E |S)".m.... 280...| 00000270: C8 00 99 22 9B 11 20 20 20 28 4E 45 57 20 46 49 |...".. (NEW FI| 00000280: 4C 45 29 22 00 8B 1E D2 00 A0 38 00 D1 1E DC 00 |LE)"......8.....| 00000290: 85 22 11 9B 20 20 48 4F 57 20 4D 41 4E 59 20 43 |.".. HOW MANY C| 000002A0: 48 41 52 41 43 54 45 52 53 20 49 4E 20 45 41 43 |HARACTERS IN EAC| 000002B0: 48 20 52 45 43 4F 52 44 05 22 3B 4C 4E 20 20 3A |H RECORD.";LN :| 000002C0: 8F 20 20 20 20 4D 41 58 49 4D 55 4D 20 32 35 34 |. MAXIMUM 254| 000002D0: 2E 00 EF 1E E6 00 4C 4E B2 B5 28 4C 4E 29 3A 8B |......LN..(LN):.| 000002E0: 4C 4E B1 30 AF 4C 4E B3 32 35 35 A7 32 35 30 00 |LN.0.LN.255.250.| 000002F0: FF 1E F0 00 99 22 91 91 91 22 3A 89 32 32 30 00 |....."...":.220.| 00000300: 22 1F FA 00 9F 38 2C 44 56 2C 38 2C 22 30 3A 22 |"....8,DV,8,"0:"| 00000310: AA 28 4E 4D 24 29 AA 22 2C 4C 2C 22 AA C7 28 4C |.(NM$).",L,"..(L| 00000320: 4E 29 00 2D 1F 04 01 8D 20 31 31 31 30 00 56 1F |N).-.... 1110.V.| 00000330: 18 01 99 22 11 12 9B 1D 1D 20 20 20 20 44 4F 20 |..."..... DO | 00000340: 59 4F 55 20 57 41 4E 54 20 54 4F 20 3A 20 20 20 |YOU WANT TO : | 00000350: 20 20 20 20 20 22 00 71 1F 22 01 99 A6 37 29 22 | ".q."...7)"| 00000360: 11 05 52 9B 45 41 44 20 41 20 52 45 43 4F 52 44 |..R.EAD A RECORD| 00000370: 22 00 8C 1F 2C 01 99 A6 37 29 22 05 57 9B 52 49 |"...,...7)".W.RI| 00000380: 54 45 20 41 20 52 45 43 4F 52 44 22 00 A6 1F 36 |TE A RECORD"...6| 00000390: 01 99 A6 37 29 22 05 53 9B 45 54 20 55 50 20 41 |...7)".S.ET UP A| 000003A0: 20 46 49 4C 45 22 00 B8 1F 40 01 99 A6 37 29 22 | FILE"...@...7)"| 000003B0: 05 51 9B 55 49 54 20 22 00 BE 1F 4A 01 99 00 C8 |.Q.UIT "...J....| 000003C0: 1F 54 01 41 24 B2 22 22 00 D0 1F 5E 01 A1 41 24 |.T.A$.""...^..A$| 000003D0: 00 E3 1F 68 01 8B 20 41 24 B2 22 52 22 20 A7 20 |...h.. A$."R" . | 000003E0: 34 32 30 00 F6 1F 72 01 8B 20 41 24 B2 22 57 22 |420...r.. A$."W"| 000003F0: 20 A7 20 36 34 30 00 09 20 7C 01 8B 20 41 24 B2 | . 640.. |.. A$.| 00000400: 22 53 22 20 A7 20 38 39 30 00 1D 20 86 01 8B 20 |"S" . 890.. ... | 00000410: 41 24 B2 22 51 22 20 A7 20 31 30 35 30 00 26 20 |A$."Q" . 1050.& | 00000420: 90 01 89 33 35 30 00 2C 20 9A 01 3A 00 61 20 A4 |...350., ..:.a .| 00000430: 01 8F 20 20 54 48 49 53 20 53 45 43 54 49 4F 4E |.. THIS SECTION| 00000440: 20 50 4F 53 49 54 49 4F 4E 53 20 54 4F 20 41 4E | POSITIONS TO AN| 00000450: 44 20 52 45 41 44 53 20 41 20 52 45 43 4F 52 44 |D READS A RECORD| 00000460: 2E 00 6E 20 A9 01 8D 20 31 34 36 30 3A 99 00 96 |..n ... 1460:...| 00000470: 20 AE 01 85 22 9B 1D 1D 1D 1D 52 45 41 44 20 57 | ...".....READ W| 00000480: 48 41 54 20 52 45 43 4F 52 44 20 4E 55 4D 42 45 |HAT RECORD NUMBE| 00000490: 52 05 22 3B 52 4E 00 CE 20 B8 01 8D 31 30 36 30 |R.";RN.. ...1060| 000004A0: 20 3A 8F 20 20 43 41 4C 43 55 4C 41 54 45 20 54 | :. CALCULATE T| 000004B0: 48 45 20 4C 4F 57 20 42 59 54 45 2F 48 49 47 48 |HE LOW BYTE/HIGH| 000004C0: 20 42 59 54 45 20 50 4F 49 4E 54 45 52 2E 00 08 | BYTE POINTER...| 000004D0: 21 C2 01 98 31 35 2C 22 50 22 AA C7 28 39 36 AA |!...15,"P"..(96.| 000004E0: 38 29 AA C7 28 52 4C 29 AA C7 28 52 48 29 AA C7 |8)..(RL)..(RH)..| 000004F0: 28 31 29 20 3A 8F 20 20 50 4F 53 49 54 49 4F 4E |(1) :. POSITION| 00000500: 20 43 4F 4D 4D 41 4E 44 00 2F 21 CC 01 8D 20 31 | COMMAND./!... 1| 00000510: 31 31 30 20 3A 8F 20 20 43 48 45 43 4B 20 54 48 |110 :. CHECK TH| 00000520: 45 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 4C 00 |E ERROR CHANNEL.| 00000530: 60 21 D6 01 8B 20 45 B2 35 30 20 A7 99 22 9B 1D |`!... E.50 .."..| 00000540: 1D 1D 1D 52 45 43 4F 52 44 20 4E 55 4D 42 45 52 |...RECORD NUMBER| 00000550: 20 54 4F 4F 20 4C 41 52 47 45 22 3A 89 35 36 30 | TOO LARGE":.560| 00000560: 00 93 21 E0 01 84 38 2C 41 41 24 2C 42 42 24 2C |..!...8,AA$,BB$,| 00000570: 43 43 24 2C 44 44 24 2C 45 45 24 20 3A 8F 20 20 |CC$,DD$,EE$ :. | 00000580: 52 45 41 44 20 49 4E 20 54 48 45 20 46 49 45 4C |READ IN THE FIEL| 00000590: 44 53 2E 00 BA 21 EA 01 8D 20 31 31 31 30 20 3A |DS...!... 1110 :| 000005A0: 8F 20 20 43 48 45 43 4B 20 54 48 45 20 45 52 52 |. CHECK THE ERR| 000005B0: 4F 52 20 43 48 41 4E 4E 45 4C 00 E9 21 F4 01 99 |OR CHANNEL..!...| 000005C0: 22 11 9B 12 1D 1D 1D 1D 52 45 43 4F 52 44 20 4E |".......RECORD N| 000005D0: 55 4D 42 45 52 22 3B 52 4E 3B 22 9D 20 43 4F 4E |UMBER";RN;". CON| 000005E0: 54 41 49 4E 53 3A 22 3A 99 00 00 22 FE 01 99 A6 |TAINS:":..."....| 000005F0: 38 29 22 9B 4E 41 4D 45 3A 20 05 22 3B 41 41 24 |8)".NAME: .";AA$| 00000600: 00 1A 22 08 02 99 A6 35 29 22 9B 41 44 44 52 45 |.."....5)".ADDRE| 00000610: 53 53 3A 20 05 22 3B 42 42 24 00 31 22 12 02 99 |SS: .";BB$.1"...| 00000620: A6 38 29 22 9B 43 49 54 59 3A 20 05 22 3B 43 43 |.8)".CITY: .";CC| 00000630: 24 00 49 22 1C 02 99 A6 37 29 22 9B 53 54 41 54 |$.I"....7)".STAT| 00000640: 45 3A 20 05 22 3B 44 44 24 00 64 22 26 02 99 A6 |E: .";DD$.d"&...| 00000650: 34 29 22 9B 5A 49 50 20 43 4F 44 45 3A 20 05 22 |4)".ZIP CODE: ."| 00000660: 3B 45 45 24 00 A1 22 30 02 98 31 35 2C 22 50 22 |;EE$.."0..15,"P"| 00000670: AA C7 28 39 36 AA 38 29 AA C7 28 52 4C 29 AA C7 |..(96.8)..(RL)..| 00000680: 28 52 48 29 AA C7 28 31 29 3A 8F 20 20 52 45 50 |(RH)..(1):. REP| 00000690: 4F 53 49 54 27 4E 20 46 4F 52 20 53 41 46 45 54 |OSIT'N FOR SAFET| 000006A0: 59 00 C8 22 3A 02 8D 20 31 31 31 30 20 3A 8F 20 |Y..":.. 1110 :. | 000006B0: 20 43 48 45 43 4B 20 54 48 45 20 45 52 52 4F 52 | CHECK THE ERROR| 000006C0: 20 43 48 41 4E 4E 45 4C 00 F2 22 44 02 99 22 11 | CHANNEL.."D..".| 000006D0: 9B 1D 1D 1D 1D 52 45 41 44 20 41 4E 4F 54 48 45 |.....READ ANOTHE| 000006E0: 52 20 52 45 43 4F 52 44 05 3F 22 3B 3A 41 24 B2 |R RECORD.?";:A$.| 000006F0: 22 22 00 18 23 4E 02 A1 41 24 3A 8B 20 28 41 24 |""..#N..A$:. (A$| 00000700: B3 B1 22 59 22 29 20 AF 20 28 41 24 B3 B1 22 4E |.."Y") . (A$.."N| 00000710: 22 29 20 A7 20 35 39 30 00 1E 23 58 02 99 00 30 |") . 590..#X...0| 00000720: 23 62 02 8B 20 41 24 B2 22 59 22 A7 89 34 32 35 |#b.. A$."Y"..425| 00000730: 00 4F 23 6C 02 8D 31 34 36 30 3A 89 32 38 30 20 |.O#l..1460:.280 | 00000740: 3A 8F 20 44 4F 20 4D 41 49 4E 20 4D 45 4E 55 00 |:. DO MAIN MENU.| 00000750: 55 23 76 02 3A 00 8B 23 80 02 8F 20 20 54 48 49 |U#v.:..#... THI| 00000760: 53 20 53 45 43 54 49 4F 4E 20 50 4F 53 49 54 49 |S SECTION POSITI| 00000770: 4F 4E 53 20 54 4F 20 41 4E 44 20 57 52 49 54 45 |ONS TO AND WRITE| 00000780: 53 20 41 20 52 45 43 4F 52 44 2E 00 97 23 85 02 |S A RECORD...#..| 00000790: 8D 31 34 36 30 3A 99 00 C2 23 8A 02 85 22 1D 1D |.1460:...#..."..| 000007A0: 1D 1D 9B 57 52 49 54 45 20 57 48 41 54 20 52 45 |...WRITE WHAT RE| 000007B0: 43 4F 52 44 20 4E 55 4D 42 45 52 05 22 3B 52 4E |CORD NUMBER.";RN| 000007C0: 3A 99 00 0A 24 94 02 85 22 9B 20 20 20 20 20 20 |:...$...". | 000007D0: 4E 41 4D 45 3A 20 05 22 3B 41 41 24 20 3A 8F 20 |NAME: .";AA$ :. | 000007E0: 20 43 48 41 4E 47 45 20 54 48 45 20 50 52 4F 4D | CHANGE THE PROM| 000007F0: 50 54 53 20 54 4F 20 41 53 4B 20 46 4F 52 20 44 |PTS TO ASK FOR D| 00000800: 41 54 41 20 4E 45 45 44 45 44 00 48 24 9E 02 85 |ATA NEEDED.H$...| 00000810: 22 9B 20 20 20 41 44 44 52 45 53 53 3A 20 05 22 |". ADDRESS: ."| 00000820: 3B 42 42 24 20 3A 8F 20 20 49 4E 20 59 4F 55 52 |;BB$ :. IN YOUR| 00000830: 20 50 41 52 54 49 43 55 4C 41 52 20 41 50 50 4C | PARTICULAR APPL| 00000840: 49 43 41 54 49 4F 4E 2E 00 92 24 A8 02 85 22 9B |ICATION...$...".| 00000850: 20 20 20 20 20 20 43 49 54 59 3A 20 05 22 3B 43 | CITY: .";C| 00000860: 43 24 20 3A 8F 20 20 41 4E 59 20 4E 55 4D 42 45 |C$ :. ANY NUMBE| 00000870: 52 20 4F 46 20 46 49 45 4C 44 53 20 43 41 4E 20 |R OF FIELDS CAN | 00000880: 42 45 20 55 53 45 44 20 41 53 20 4C 4F 4E 47 20 |BE USED AS LONG | 00000890: 41 53 00 D6 24 B2 02 85 22 9B 20 20 20 20 20 53 |AS..$...". S| 000008A0: 54 41 54 45 3A 20 05 22 3B 44 44 24 20 3A 8F 20 |TATE: .";DD$ :. | 000008B0: 20 54 48 45 59 20 46 49 54 20 57 49 54 48 49 4E | THEY FIT WITHIN| 000008C0: 20 54 48 45 20 52 45 43 4F 52 44 20 4C 45 4E 47 | THE RECORD LENG| 000008D0: 54 48 20 59 4F 55 00 18 25 BC 02 85 22 9B 20 20 |TH YOU..%...". | 000008E0: 5A 49 50 20 43 4F 44 45 3A 20 05 22 3B 45 45 24 |ZIP CODE: .";EE$| 000008F0: 20 3A 99 3A 8F 20 20 53 50 45 43 49 46 49 45 44 | :.:. SPECIFIED| 00000900: 20 57 48 45 4E 20 43 52 45 41 54 49 4E 47 20 54 | WHEN CREATING T| 00000910: 48 45 20 46 49 4C 45 2E 00 44 25 C6 02 52 43 24 |HE FILE..D%..RC$| 00000920: B2 41 41 24 AA 4C 4C 24 AA 42 42 24 AA 4C 4C 24 |.AA$.LL$.BB$.LL$| 00000930: AA 43 43 24 AA 4C 4C 24 AA 44 44 24 AA 4C 4C 24 |.CC$.LL$.DD$.LL$| 00000940: AA 45 45 24 00 87 25 D0 02 8F 20 20 52 43 24 20 |.EE$..%... RC$ | 00000950: 49 53 20 54 48 45 20 53 54 52 49 4E 47 20 43 4F |IS THE STRING CO| 00000960: 4E 54 41 49 4E 49 4E 47 20 41 4C 4C 20 54 48 45 |NTAINING ALL THE| 00000970: 20 46 49 45 4C 44 53 20 46 4F 52 20 54 48 45 20 | FIELDS FOR THE | 00000980: 52 45 43 4F 52 44 2E 00 C1 25 DA 02 8F 20 20 52 |RECORD...%... R| 00000990: 45 4D 45 4D 42 45 52 20 54 48 45 20 4D 41 58 20 |EMEMBER THE MAX | 000009A0: 4C 45 4E 47 54 48 20 46 4F 52 20 52 43 24 20 49 |LENGTH FOR RC$ I| 000009B0: 53 20 32 35 34 20 43 48 41 52 41 43 54 45 52 53 |S 254 CHARACTERS| 000009C0: 2E 00 F9 25 E4 02 8D 31 30 36 30 20 3A 8F 20 20 |...%...1060 :. | 000009D0: 43 41 4C 43 55 4C 41 54 45 20 54 48 45 20 4C 4F |CALCULATE THE LO| 000009E0: 57 20 42 59 54 45 2F 48 49 47 48 20 42 59 54 45 |W BYTE/HIGH BYTE| 000009F0: 20 50 4F 49 4E 54 45 52 2E 00 33 26 EE 02 98 31 | POINTER..3&...1| 00000A00: 35 2C 22 50 22 AA C7 28 39 36 AA 38 29 AA C7 28 |5,"P"..(96.8)..(| 00000A10: 52 4C 29 AA C7 28 52 48 29 AA C7 28 31 29 20 3A |RL)..(RH)..(1) :| 00000A20: 8F 20 20 50 4F 53 49 54 49 4F 4E 20 43 4F 4D 4D |. POSITION COMM| 00000A30: 41 4E 44 00 5A 26 F8 02 8D 20 31 31 31 30 20 3A |AND.Z&... 1110 :| 00000A40: 8F 20 20 43 48 45 43 4B 20 54 48 45 20 45 52 52 |. CHECK THE ERR| 00000A50: 4F 52 20 43 48 41 4E 4E 45 4C 00 8F 26 02 03 8B |OR CHANNEL..&...| 00000A60: 20 45 B2 35 30 20 A7 99 22 9B 1D 1D 1D 1D 54 48 | E.50 ..".....TH| 00000A70: 45 20 44 4F 53 20 57 49 4C 4C 20 45 58 50 41 4E |E DOS WILL EXPAN| 00000A80: 44 20 54 48 45 20 46 49 4C 45 20 4E 4F 57 22 00 |D THE FILE NOW".| 00000A90: B0 26 0C 03 98 38 2C 52 43 24 20 20 3A 8F 20 20 |.&...8,RC$ :. | 00000AA0: 57 52 49 54 45 20 54 48 45 20 52 45 43 4F 52 44 |WRITE THE RECORD| 00000AB0: 00 D7 26 16 03 8D 20 31 31 31 30 20 3A 8F 20 20 |..&... 1110 :. | 00000AC0: 43 48 45 43 4B 20 54 48 45 20 45 52 52 4F 52 20 |CHECK THE ERROR | 00000AD0: 43 48 41 4E 4E 45 4C 00 14 27 20 03 98 31 35 2C |CHANNEL..' ..15,| 00000AE0: 22 50 22 AA C7 28 39 36 AA 38 29 AA C7 28 52 4C |"P"..(96.8)..(RL| 00000AF0: 29 AA C7 28 52 48 29 AA C7 28 31 29 20 3A 8F 20 |)..(RH)..(1) :. | 00000B00: 52 45 50 4F 53 49 54 27 4E 20 46 4F 52 20 53 41 |REPOSIT'N FOR SA| 00000B10: 46 45 54 59 00 3B 27 2A 03 8D 20 31 31 31 30 20 |FETY.;'*.. 1110 | 00000B20: 3A 8F 20 20 43 48 45 43 4B 20 54 48 45 20 45 52 |:. CHECK THE ER| 00000B30: 52 4F 52 20 43 48 41 4E 4E 45 4C 00 41 27 34 03 |ROR CHANNEL.A'4.| 00000B40: 99 00 6B 27 3E 03 99 22 9B 1D 1D 1D 1D 57 52 49 |..k'>..".....WRI| 00000B50: 54 45 20 41 4E 4F 54 48 45 52 20 52 45 43 4F 52 |TE ANOTHER RECOR| 00000B60: 44 05 3F 22 3B 3A 41 24 B2 22 22 00 91 27 48 03 |D.?";:A$.""..'H.| 00000B70: A1 41 24 3A 8B 20 28 41 24 B3 B1 22 59 22 29 20 |.A$:. (A$.."Y") | 00000B80: AF 20 28 41 24 B3 B1 22 4E 22 29 20 A7 20 38 34 |. (A$.."N") . 84| 00000B90: 30 00 A2 27 5C 03 8B 20 41 24 B2 22 59 22 A7 36 |0..'\.. A$."Y".6| 00000BA0: 34 35 00 C2 27 66 03 8D 31 34 36 30 3A 89 32 38 |45..'f..1460:.28| 00000BB0: 30 20 3A 8F 20 20 44 4F 20 4D 41 49 4E 20 4D 45 |0 :. DO MAIN ME| 00000BC0: 4E 55 00 C8 27 70 03 3A 00 0F 28 7A 03 8F 20 20 |NU..'p.:..(z.. | 00000BD0: 54 48 49 53 20 53 45 43 54 49 4F 4E 20 50 4F 53 |THIS SECTION POS| 00000BE0: 49 54 49 4F 4E 53 20 54 4F 20 41 4E 44 20 57 52 |ITIONS TO AND WR| 00000BF0: 49 54 45 53 20 54 48 45 20 48 49 47 48 45 53 54 |ITES THE HIGHEST| 00000C00: 20 52 45 43 4F 52 44 20 4E 55 4D 42 45 52 2E 00 | RECORD NUMBER..| 00000C10: 57 28 84 03 8F 20 20 41 4C 54 48 4F 55 47 48 20 |W(... ALTHOUGH | 00000C20: 4E 4F 54 20 45 4E 54 49 52 45 4C 59 20 4E 45 43 |NOT ENTIRELY NEC| 00000C30: 45 53 53 41 52 59 2C 20 57 52 49 54 49 4E 47 20 |ESSARY, WRITING | 00000C40: 41 4E 44 20 55 50 44 41 54 49 4E 47 20 4C 4F 4E |AND UPDATING LON| 00000C50: 47 20 46 49 4C 45 53 00 9B 28 8E 03 8F 20 20 49 |G FILES..(... I| 00000C60: 53 20 53 50 45 45 44 45 44 20 57 48 45 4E 20 54 |S SPEEDED WHEN T| 00000C70: 48 49 53 20 50 52 4F 43 45 44 55 52 45 20 49 53 |HIS PROCEDURE IS| 00000C80: 20 55 53 45 44 2E 20 20 54 48 49 53 20 57 49 4C | USED. THIS WIL| 00000C90: 4C 20 43 41 55 53 45 20 54 48 45 00 E2 28 98 03 |L CAUSE THE..(..| 00000CA0: 8F 20 20 44 4F 53 20 53 49 44 45 20 53 45 43 54 |. DOS SIDE SECT| 00000CB0: 4F 52 20 4C 49 53 54 20 54 4F 20 42 45 20 43 52 |OR LIST TO BE CR| 00000CC0: 45 41 54 45 44 20 45 4E 54 49 52 45 4C 59 20 41 |EATED ENTIRELY A| 00000CD0: 54 20 54 48 45 20 53 54 41 52 54 20 52 41 54 48 |T THE START RATH| 00000CE0: 45 52 00 20 29 A2 03 8F 20 20 54 48 41 4E 20 42 |ER. )... THAN B| 00000CF0: 45 49 4E 47 20 41 50 50 45 4E 44 45 44 20 46 4F |EING APPENDED FO| 00000D00: 52 20 45 41 43 48 20 4E 45 57 20 48 49 47 48 45 |R EACH NEW HIGHE| 00000D10: 52 20 52 45 43 4F 52 44 20 4E 55 4D 42 45 52 2E |R RECORD NUMBER.| 00000D20: 00 4B 29 AC 03 99 22 11 9B 57 48 41 54 20 49 53 |.K)..."..WHAT IS| 00000D30: 20 54 48 45 20 48 49 47 48 45 53 54 20 52 45 43 | THE HIGHEST REC| 00000D40: 4F 52 44 20 4E 55 4D 42 45 52 22 00 67 29 B6 03 |ORD NUMBER".g)..| 00000D50: 85 22 9B 59 4F 55 20 57 41 4E 54 20 54 4F 20 55 |.".YOU WANT TO U| 00000D60: 53 45 05 22 3B 52 4E 00 9F 29 C0 03 8D 31 30 36 |SE.";RN..)...106| 00000D70: 30 20 3A 8F 20 20 43 41 4C 43 55 4C 41 54 45 20 |0 :. CALCULATE | 00000D80: 54 48 45 20 4C 4F 57 20 42 59 54 45 2F 48 49 47 |THE LOW BYTE/HIG| 00000D90: 48 20 42 59 54 45 20 50 4F 49 4E 54 45 52 2E 00 |H BYTE POINTER..| 00000DA0: D9 29 CA 03 98 31 35 2C 22 50 22 AA C7 28 39 36 |.)...15,"P"..(96| 00000DB0: AA 38 29 AA C7 28 52 4C 29 AA C7 28 52 48 29 AA |.8)..(RL)..(RH).| 00000DC0: C7 28 31 29 20 3A 8F 20 20 50 4F 53 49 54 49 4F |.(1) :. POSITIO| 00000DD0: 4E 20 43 4F 4D 4D 41 4E 44 00 00 2A D4 03 8D 20 |N COMMAND..*... | 00000DE0: 31 31 31 30 20 3A 8F 20 20 43 48 45 43 4B 20 54 |1110 :. CHECK T| 00000DF0: 48 45 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 4C |HE ERROR CHANNEL| 00000E00: 00 31 2A DE 03 8B 20 45 B2 35 30 20 A7 99 22 9B |.1*... E.50 ..".| 00000E10: 54 48 45 20 44 4F 53 20 57 49 4C 4C 20 45 58 50 |THE DOS WILL EXP| 00000E20: 41 4E 44 20 54 48 45 20 46 49 4C 45 20 4E 4F 57 |AND THE FILE NOW| 00000E30: 22 00 42 2A E8 03 98 38 2C C7 28 32 35 35 29 20 |".B*...8,.(255) | 00000E40: 3A 8F 00 69 2A F2 03 8D 20 31 31 31 30 20 3A 8F |:..i*... 1110 :.| 00000E50: 20 20 43 48 45 43 4B 20 54 48 45 20 45 52 52 4F | CHECK THE ERRO| 00000E60: 52 20 43 48 41 4E 4E 45 4C 00 A6 2A FC 03 98 31 |R CHANNEL..*...1| 00000E70: 35 2C 22 50 22 AA C7 28 39 36 AA 38 29 AA C7 28 |5,"P"..(96.8)..(| 00000E80: 52 4C 29 AA C7 28 52 48 29 AA C7 28 31 29 20 3A |RL)..(RH)..(1) :| 00000E90: 8F 20 52 45 50 4F 53 49 54 27 4E 20 46 4F 52 20 |. REPOSIT'N FOR | 00000EA0: 53 41 46 45 54 59 00 CD 2A 06 04 8D 20 31 31 31 |SAFETY..*... 111| 00000EB0: 30 20 3A 8F 20 20 43 48 45 43 4B 20 54 48 45 20 |0 :. CHECK THE | 00000EC0: 45 52 52 4F 52 20 43 48 41 4E 4E 45 4C 00 E9 2A |ERROR CHANNEL..*| 00000ED0: 10 04 89 32 38 30 20 3A 8F 20 20 47 4F 20 54 4F |...280 :. GO TO| 00000EE0: 20 54 48 45 20 4D 45 4E 55 00 F6 2A 1A 04 A0 38 | THE MENU..*...8| 00000EF0: 3A A0 31 35 3A 80 00 32 2B 24 04 8F 20 20 54 48 |:.15:..2+$.. TH| 00000F00: 49 53 20 53 55 42 52 4F 55 54 49 4E 45 20 43 41 |IS SUBROUTINE CA| 00000F10: 4C 43 55 4C 41 54 45 53 20 54 48 45 20 52 45 43 |LCULATES THE REC| 00000F20: 4F 52 44 20 4E 55 4D 42 45 52 20 50 4F 49 4E 54 |ORD NUMBER POINT| 00000F30: 45 52 00 5B 2B 2E 04 8F 20 20 49 4E 20 54 48 45 |ER.[+... IN THE| 00000F40: 20 4C 4F 57 20 42 59 54 45 2F 48 49 47 48 20 42 | LOW BYTE/HIGH B| 00000F50: 59 54 45 20 46 4F 52 4D 41 54 2E 00 95 2B 38 04 |YTE FORMAT...+8.| 00000F60: 8F 20 20 52 4E 20 28 52 45 43 4F 52 44 20 4E 55 |. RN (RECORD NU| 00000F70: 4D 42 45 52 29 20 49 53 20 55 53 45 44 20 54 4F |MBER) IS USED TO| 00000F80: 20 43 41 4C 43 55 4C 41 54 45 20 52 4C 20 41 4E | CALCULATE RL AN| 00000F90: 44 20 52 48 2E 00 D3 2B 42 04 52 48 B2 B5 28 52 |D RH...+B.RH..(R| 00000FA0: 4E AD 32 35 36 29 3A 52 4C B2 52 4E AB 28 32 35 |N.256):RL.RN.(25| 00000FB0: 36 AC 52 48 29 20 3A 20 8F 20 20 52 4C 20 49 53 |6.RH) : . RL IS| 00000FC0: 20 4C 4F 57 20 2D 2D 20 52 48 20 49 53 20 48 49 | LOW -- RH IS HI| 00000FD0: 47 48 2E 00 D9 2B 4C 04 8E 00 13 2C 56 04 8F 20 |GH...+L....,V.. | 00000FE0: 20 20 54 48 49 53 20 49 53 20 54 48 45 20 44 49 | THIS IS THE DI| 00000FF0: 53 4B 20 44 52 49 56 45 20 45 52 52 4F 52 20 43 |SK DRIVE ERROR C| 00001000: 48 45 43 4B 49 4E 47 20 53 55 42 52 4F 55 54 49 |HECKING SUBROUTI| 00001010: 4E 45 2E 00 42 2C 60 04 84 31 35 2C 45 2C 45 24 |NE..B,`..15,E,E$| 00001020: 2C 41 2C 42 20 20 20 3A 8F 20 20 52 45 41 44 20 |,A,B :. READ | 00001030: 54 48 45 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 |THE ERROR CHANNE| 00001040: 4C 2E 00 6F 2C 6A 04 8B 20 45 B2 30 20 A7 20 8E |L..o,j.. E.0 . .| 00001050: 20 20 3A 8F 20 20 54 48 45 52 45 20 49 53 20 4E | :. THERE IS N| 00001060: 4F 20 45 52 52 4F 52 20 49 46 20 45 3D 30 2E 00 |O ERROR IF E=0..| 00001070: B5 2C 74 04 8F 20 20 20 45 3D 35 30 20 28 52 45 |.,t.. E=50 (RE| 00001080: 43 4F 52 44 20 4E 4F 54 20 50 52 45 53 45 4E 54 |CORD NOT PRESENT| 00001090: 29 20 41 4E 59 20 54 49 4D 45 20 41 20 52 45 43 |) ANY TIME A REC| 000010A0: 4F 52 44 20 4E 55 4D 42 45 52 20 50 4F 49 4E 54 |ORD NUMBER POINT| 000010B0: 45 52 20 49 53 00 F2 2C 7E 04 8F 20 20 20 50 4F |ER IS..,~.. PO| 000010C0: 53 49 54 49 4F 4E 45 44 20 42 45 59 4F 4E 44 20 |SITIONED BEYOND | 000010D0: 54 48 45 20 43 55 52 52 45 4E 54 20 48 49 47 48 |THE CURRENT HIGH| 000010E0: 45 53 54 20 52 45 43 4F 52 44 20 4E 55 4D 42 45 |EST RECORD NUMBE| 000010F0: 52 2E 00 01 2D 88 04 8B 20 45 B2 35 30 20 A7 20 |R...-... E.50 . | 00001100: 8E 00 14 2D 92 04 8B 20 45 B3 B1 35 31 20 A7 20 |...-... E..51 . | 00001110: 31 32 32 30 00 3B 2D 9C 04 99 3A 99 22 9B 1D 1D |1220.;-...:."...| 00001120: 45 52 52 4F 52 2D 35 31 2C 20 52 45 43 4F 52 44 |ERROR-51, RECORD| 00001130: 20 54 4F 4F 20 4C 4F 4E 47 2E 22 00 64 2D A6 04 | TOO LONG.".d-..| 00001140: 99 22 9B 1D 1D 28 52 45 54 55 52 4E 20 43 4F 55 |."...(RETURN COU| 00001150: 4E 54 53 20 41 53 20 41 20 43 48 41 52 41 43 54 |NTS AS A CHARACT| 00001160: 45 52 29 22 00 6F 2D B0 04 8D 20 31 32 38 30 00 |ER)".o-... 1280.| 00001170: 75 2D BA 04 8E 00 95 2D C4 04 99 22 9B 54 48 45 |u-.....-...".THE| 00001180: 52 45 20 49 53 20 41 4E 20 49 2F 4F 20 50 52 4F |RE IS AN I/O PRO| 00001190: 42 4C 45 4D 22 00 B1 2D CE 04 99 22 45 52 52 4F |BLEM"..-..."ERRO| 000011A0: 52 20 4E 55 4D 42 45 52 20 49 53 22 3B 45 2C 45 |R NUMBER IS";E,E| 000011B0: 24 00 D1 2D D8 04 99 22 41 54 20 54 52 41 43 4B |$..-..."AT TRACK| 000011C0: 22 3B 41 3B 22 20 20 20 53 45 43 54 4F 52 22 3B |";A;" SECTOR";| 000011D0: 42 00 09 2E E2 04 8B 20 45 B2 37 30 20 A7 99 22 |B...... E.70 .."| 000011E0: 11 9B 4D 41 4B 45 20 53 55 52 45 20 59 4F 55 20 |..MAKE SURE YOU | 000011F0: 49 4E 50 55 54 20 54 48 45 20 43 4F 52 52 45 43 |INPUT THE CORREC| 00001200: 54 20 52 45 43 4F 52 44 22 00 3B 2E EC 04 8B 20 |T RECORD".;.... | 00001210: 45 B2 37 30 20 A7 99 22 9B 4C 45 4E 47 54 48 20 |E.70 ..".LENGTH | 00001220: 46 4F 52 20 41 4E 20 45 58 49 53 54 49 4E 47 20 |FOR AN EXISTING | 00001230: 46 49 4C 45 20 4E 41 4D 45 2E 22 00 48 2E F6 04 |FILE NAME.".H...| 00001240: A0 38 3A A0 31 35 3A 80 00 8C 2E 00 05 99 22 9B |.8:.15:.......".| 00001250: 11 1D 1D 43 4F 4D 50 55 54 49 4E 47 20 41 4C 4C |...COMPUTING ALL| 00001260: 4F 57 41 42 4C 45 20 52 45 43 4F 52 44 20 4C 45 |OWABLE RECORD LE| 00001270: 4E 47 54 48 22 3A 99 22 20 20 20 28 50 4C 45 41 |NGTH":." (PLEA| 00001280: 53 45 20 57 41 49 54 2E 2E 2E 29 22 00 9F 2E 0A |SE WAIT...)"....| 00001290: 05 8B 20 4C 4E B3 B1 30 20 A7 20 31 33 33 30 00 |.. LN..0 . 1330.| 000012A0: A6 2E 14 05 A0 38 00 E6 2E 1E 05 81 20 4C 4E B2 |.....8...... LN.| 000012B0: 31 20 A4 20 32 35 34 3A 9F 38 2C 44 56 2C 38 2C |1 . 254:.8,DV,8,| 000012C0: 22 30 3A 22 AA 28 4E 4D 24 29 AA 22 2C 4C 2C 22 |"0:".(NM$).",L,"| 000012D0: AA C7 28 4C 4E 29 3A 84 31 35 2C 45 3A 8B 45 B2 |..(LN):.15,E:.E.| 000012E0: 30 A7 31 33 33 30 00 1E 2F 28 05 A0 20 38 3A 82 |0.1330../(.. 8:.| 000012F0: 20 4C 4E 3A 99 22 9B 55 4E 41 42 4C 45 20 54 4F | LN:.".UNABLE TO| 00001300: 20 43 4F 4D 50 55 54 45 20 52 45 43 4F 52 44 20 | COMPUTE RECORD | 00001310: 4C 45 4E 47 54 48 21 22 3A 89 31 32 37 30 00 5A |LENGTH!":.1270.Z| 00001320: 2F 32 05 99 22 91 20 20 20 20 20 20 20 20 20 20 |/2..". | 00001330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001350: 20 20 20 20 20 20 20 20 20 22 00 84 2F 3C 05 99 | "../<..| 00001360: 22 91 9B 1D 1D 41 4C 4C 4F 57 41 42 4C 45 20 52 |"....ALLOWABLE R| 00001370: 45 43 4F 52 44 20 4C 45 4E 47 54 48 20 3D 20 05 |ECORD LENGTH = .| 00001380: 22 3B 4C 4E 00 8A 2F 46 05 8E 00 A1 2F AA 05 8F |";LN../F..../...| 00001390: 20 54 49 54 4C 45 20 53 55 42 52 4F 55 54 49 4E | TITLE SUBROUTIN| 000013A0: 45 00 C8 2F B4 05 99 22 93 9B 20 20 20 20 20 20 |E../...".. | 000013B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000013C0: C0 C0 C0 C0 C0 C0 C0 22 00 EC 2F B9 05 99 A6 36 |......."../....6| 000013D0: 29 22 9F 12 20 20 52 45 4C 41 54 49 56 45 20 46 |)".. RELATIVE F| 000013E0: 49 4C 45 20 44 45 4D 4F 20 20 20 22 00 0F 30 BE |ILE DEMO "..0.| 000013F0: 05 99 A6 36 29 22 12 28 4E 41 4D 45 20 41 4E 44 |...6)".(NAME AND| 00001400: 20 41 44 44 52 45 53 53 20 46 49 4C 45 29 22 00 | ADDRESS FILE)".| 00001410: 35 30 C3 05 99 22 9B 20 20 20 20 20 20 C0 C0 C0 |50...". ...| 00001420: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00001430: C0 C0 C0 C0 22 00 3B 30 C8 05 8E 00 00 00 |....".;0...... |
..'.... USE THIS PROGRAM TO LEARN HOW.
N.... CREATE AND USE RELATIVE FILES..T
.... IT IS FLEXIBLE ENOUGH FOR YOU...(
.. TO CUSTOMIZE IT FOR YOUR USE.. .2..
...7..53280,0:.53281,0...K..1460...P.LL$
.G(13) :. THIS IS THE FIELD DELIMITER
USED WHEN WRITING RECORDS.O.Z..".. WHAT
IS THE FILE NAME.";NM$: . MAXIMUM 16
CHARACTER NAME..K.D..C(NM$).0.C(NM$).17.
120.Z.N.."...":.90...X..". ON WHAT DEVI
CE NUMBER.";DV.P....15,DV,15,"I0": . IN
ITIALIZE THE DISK DRIVE....... 8,DV,8,"0
:".(NM$)......15,E,E$,A,B :. READ THE
ERROR CHANNEL..(. .. E.62 . 200.I.... E
.0 . 180:.E,E$,A,B:. 1270.C....".. (FI
LE EXISTS)".M.... 280...H..".. (NEW FI
LE)"...R. 8.Q....".. HOW MANY CHARACTER
S IN EACH RECORD.";LN :. MAXIMUM 254
......LN..(LN):.LN.0.LN.255.250......"..
.":.220."....8,DV,8,"0:".(NM$).",L,".G(L
N).-.... 1110.V...."..... DO YOU WANT
TO : ".Q."...7)"..R.EAD A RECORD
"...,...7)".W.RITE A RECORD"...6...7)".S
.ET UP A FILE"...@...7)".Q.UIT "...J...H
.T.A$."".P.^..A$...H.. A$."R" . 420...R.
. A$."W" . 640.. |.. A$."S" . 890.. ...
A$."Q" . 1050.& ...350., ..:.A ... THIS
SECTION POSITIONS TO AND READS A RECORD
..N ... 1460:... ...".....READ WHAT RECO
RD NUMBER.";RN.N ...1060 :. CALCULATE T
HE LOW BYTE/HIGH BYTE POINTER...!B..15,"
P".G(96.8).G(RL).G(RH).G(1) :. POSITION
COMMAND./!L.. 1110 :. CHECK THE ERROR
CHANNEL.`!V.. E.50 ..".....RECORD NUMBER
TOO LARGE":.560..!...8,AA$,BB$,CC$,DD$,
EE$ :. READ IN THE FIELDS...!... 1110 :
. CHECK THE ERROR CHANNEL..!...".......
RECORD NUMBER";RN;". CONTAINS:":..."....
8)".NAME: .";AA$.."....5)".ADDRESS: .";B
B$.1"....8)".CITY: .";CC$.I"....7)".STAT
E: .";DD$.D"&...4)".ZIP CODE: .";EE$.."0
..15,"P".G(96.8).G(RL).G(RH).G(1):. REP
OSIT'N FOR SAFETY.H":.. 1110 :. CHECK T
HE ERROR CHANNEL.."D.."......READ ANOTHE
R RECORD.?";:A$.""..#N..A$:. (A$.."Y") .
(A$.."N") . 590..#X...0#B.. A$."Y"..425
.O#L..1460:.280 :. DO MAIN MENU.U#V.:..#
... THIS SECTION POSITIONS TO AND WRITE
S A RECORD...#...1460:..B#...".....WRITE
WHAT RECORD NUMBER.";RN:...$...".
NAME: .";AA$ :. CHANGE THE PROMPTS TO A
SK FOR DATA NEEDED.H$...". ADDRESS: ."
;BB$ :. IN YOUR PARTICULAR APPLICATION.
..$...". CITY: .";CC$ :. ANY NUMBE
R OF FIELDS CAN BE USED AS LONG AS.V$...
". STATE: .";DD$ :. THEY FIT WITHIN
THE RECORD LENGTH YOU..%...". ZIP CODE
: .";EE$ :.:. SPECIFIED WHEN CREATING T
HE FILE..D%F.RC$.AA$.LL$.BB$.LL$.CC$.LL$
.DD$.LL$.EE$..%P.. RC$ IS THE STRING CO
NTAINING ALL THE FIELDS FOR THE RECORD..
A%Z.. REMEMBER THE MAX LENGTH FOR RC$ I
S 254 CHARACTERS...%...1060 :. CALCULAT
E THE LOW BYTE/HIGH BYTE POINTER..3&...1
5,"P".G(96.8).G(RL).G(RH).G(1) :. POSIT
ION COMMAND.Z&... 1110 :. CHECK THE ERR
OR CHANNEL..&... E.50 ..".....THE DOS WI
LL EXPAND THE FILE NOW"..&...8,RC$ :.
WRITE THE RECORD.W&... 1110 :. CHECK TH
E ERROR CHANNEL..' ..15,"P".G(96.8).G(RL
).G(RH).G(1) :. REPOSIT'N FOR SAFETY.;'*
.. 1110 :. CHECK THE ERROR CHANNEL.A'4.
..K'>..".....WRITE ANOTHER RECORD.?";:A$
.""..'H..A$:. (A$.."Y") . (A$.."N") . 84
0..'\.. A$."Y".645.B'F..1460:.280 :. DO
MAIN MENU.H'P.:..(Z.. THIS SECTION POS
ITIONS TO AND WRITES THE HIGHEST RECORD
NUMBER..W(... ALTHOUGH NOT ENTIRELY NEC
ESSARY, WRITING AND UPDATING LONG FILES.
.(... IS SPEEDED WHEN THIS PROCEDURE IS
USED. THIS WILL CAUSE THE..(... DOS S
IDE SECTOR LIST TO BE CREATED ENTIRELY A
T THE START RATHER. )... THAN BEING APP
ENDED FOR EACH NEW HIGHER RECORD NUMBER.
.K)..."..WHAT IS THE HIGHEST RECORD NUMB
ER".G)...".YOU WANT TO USE.";RN..)...106
0 :. CALCULATE THE LOW BYTE/HIGH BYTE P
OINTER..Y)J..15,"P".G(96.8).G(RL).G(RH).
G(1) :. POSITION COMMAND..*T.. 1110 :.
CHECK THE ERROR CHANNEL.1*... E.50 ..".
THE DOS WILL EXPAND THE FILE NOW".B*...8
,G(255) :..I*... 1110 :. CHECK THE ERRO
R CHANNEL..*...15,"P".G(96.8).G(RL).G(RH
).G(1) :. REPOSIT'N FOR SAFETY.M*... 111
0 :. CHECK THE ERROR CHANNEL..*...280 :
. GO TO THE MENU..*.. 8: 15:..2+$.. TH
IS SUBROUTINE CALCULATES THE RECORD NUMB
ER POINTER.[+... IN THE LOW BYTE/HIGH B
YTE FORMAT...+8.. RN (RECORD NUMBER) IS
USED TO CALCULATE RL AND RH..S+B.RH..(R
N.256):RL.RN.(256.RH) : . RL IS LOW --
RH IS HIGH..Y+L....,V.. THIS IS THE DI
SK DRIVE ERROR CHECKING SUBROUTINE..B,`.
.15,E,E$,A,B :. READ THE ERROR CHANNE
L..O,J.. E.0 . . :. THERE IS NO ERROR
IF E=0...,T.. E=50 (RECORD NOT PRESENT
) ANY TIME A RECORD NUMBER POINTER IS..,
~.. POSITIONED BEYOND THE CURRENT HIGH
EST RECORD NUMBER...-... E.50 . ...-...
E..51 . 1220.;-...:."...ERROR-51, RECORD
TOO LONG.".D-..."...(RETURN COUNTS AS A
CHARACTER)".O-... 1280.U-.....-D..".THE
RE IS AN I/O PROBLEM"..-N.."ERROR NUMBER
IS";E,E$.Q-X.."AT TRACK";A;" SECTOR";
B...... E.70 .."..MAKE SURE YOU INPUT TH
E CORRECT RECORD".;.... E.70 ..".LENGTH
FOR AN EXISTING FILE NAME.".H... 8: 15:.
......"....COMPUTING ALLOWABLE RECORD LE
NGTH":." (PLEASE WAIT...)"...... LN..0
. 1330..... 8...... LN.1 . 254:.8,DV,8,
"0:".(NM$).",L,".G(LN):.15,E:.E.0.1330..
/(. 8:. LN:.".UNABLE TO COMPUTE RECORD
LENGTH!":.1270.Z/2..".
"../<..
"....ALLOWABLE RECORD LENGTH = .";LN../F
..../... TITLE SUBROUTINE.H/..."..
......................."../....6)".. RE
LATIVE FILE DEMO "..0....6)".(NAME AND
ADDRESS FILE)".50C..". ...........
............".;0H.....
> CLICK IMAGE PREVIEW FOR FULL MODAL