DISK-DUMP
FILE INFORMATION
FILENAME(S): DISK-DUMP
FILE TYPE(S): PRG
FILE SIZE: 8.3K
FIRST SEEN: 2025-10-20 14:30:39
APPEARS ON: 2 disk(s)
FILE HASH
d713e9c7d841a134420c3003cf798986f3e544cbae49fe14167d84a2235b6621
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAZETTE | DISK-DUMP | PRG | Treasure Chest - Klaus Der Suhler | 2 | 12 | DOWNLOAD FILE |
| 128 ER TIGERDISK | DISK-DUMP | PRG | Xii | 5 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 0D 1C 14 00 99 22 13 13 93 22 3B 00 18 1C |......."...";...|
00000010: 1E 00 8D 20 36 30 30 30 00 3E 1C 28 00 8F 20 20 |... 6000.>.(.. |
00000020: 20 55 53 45 20 54 48 49 53 20 50 52 4F 47 52 41 | USE THIS PROGRA|
00000030: 4D 20 54 4F 20 4C 45 41 52 4E 20 48 4F 57 00 65 |M TO LEARN HOW.e|
00000040: 1C 32 00 8F 20 20 20 43 52 45 41 54 45 20 41 4E |.2.. CREATE AN|
00000050: 44 20 55 53 45 20 52 45 4C 41 54 49 56 45 20 46 |D USE RELATIVE F|
00000060: 49 4C 45 53 2E 00 8B 1C 3C 00 8F 20 20 20 49 54 |ILES....<.. IT|
00000070: 20 49 53 20 46 4C 45 58 49 42 4C 45 20 45 4E 4F | IS FLEXIBLE ENO|
00000080: 55 47 48 20 46 4F 52 20 59 4F 55 00 B1 1C 46 00 |UGH FOR YOU...F.|
00000090: 8F 20 20 20 54 4F 20 43 55 53 54 4F 4D 49 5A 45 |. TO CUSTOMIZE|
000000A0: 20 49 54 20 46 4F 52 20 59 4F 55 52 20 55 53 45 | IT FOR YOUR USE|
000000B0: 2E 00 B7 1C 4B 00 8F 00 DD 1C 4C 00 E0 2C 33 30 |....K.....L..,30|
000000C0: 2C 31 2C 22 2A 20 52 45 4C 41 54 49 56 45 20 46 |,1,"* RELATIVE F|
000000D0: 49 4C 45 20 44 45 4D 4F 20 2A 22 3A 99 00 26 1D |ILE DEMO *":..&.|
000000E0: 50 00 4C 4C 24 B2 C7 28 31 33 29 20 20 3A 8F 20 |P.LL$..(13) :. |
000000F0: 20 54 48 49 53 20 49 53 20 54 48 45 20 46 49 45 | THIS IS THE FIE|
00000100: 4C 44 20 44 45 4C 49 4D 49 54 45 52 20 55 53 45 |LD DELIMITER USE|
00000110: 44 20 57 48 45 4E 20 57 52 49 54 49 4E 47 20 52 |D WHEN WRITING R|
00000120: 45 43 4F 52 44 53 00 5C 1D 5A 00 9F 31 35 2C 38 |ECORDS.\.Z..15,8|
00000130: 2C 31 35 2C 22 49 30 22 3A A0 31 35 20 3A 20 8F |,15,"I0":.15 : .|
00000140: 20 20 49 4E 49 54 49 41 4C 49 5A 45 20 54 48 45 | INITIALIZE THE|
00000150: 20 44 49 53 4B 20 44 52 49 56 45 2E 00 A3 1D 64 | DISK DRIVE....d|
00000160: 00 85 22 11 C2 49 54 54 45 20 C6 49 4C 45 2D CE |.."..ITTE .ILE-.|
00000170: 41 4D 45 20 20 20 22 3B 4E 4D 24 3A 4E 46 24 B2 |AME ";NM$:NF$.|
00000180: 4E 4D 24 3A 20 20 8F 20 20 4D 41 58 49 4D 55 4D |NM$: . MAXIMUM|
00000190: 20 31 36 20 43 48 41 52 41 43 54 45 52 20 4E 41 | 16 CHARACTER NA|
000001A0: 4D 45 2E 00 BF 1D 69 00 8B C3 28 4E 4D 24 29 B1 |ME....i...(NM$).|
000001B0: 30 AF C3 28 4E 4D 24 29 B3 31 37 A7 31 31 30 00 |0..(NM$).17.110.|
000001C0: CF 1D 6A 00 99 22 91 91 91 22 3A 89 31 30 30 00 |..j.."...":.100.|
000001D0: D5 1D 6E 00 8F 00 17 1E 6F 00 E0 2C 30 2C 35 2C |..n.....o..,0,5,|
000001E0: 22 D2 45 4B 4F 52 44 2D CC 41 45 4E 47 45 20 57 |".EKORD-.AENGE W|
000001F0: 49 52 44 20 45 52 4D 49 54 54 45 4C 54 22 3A E0 |IRD ERMITTELT":.|
00000200: 2C 30 2C 36 2C 22 42 49 54 54 45 20 57 41 52 54 |,0,6,"BITTE WART|
00000210: 45 4E 20 2E 2E 2E 22 00 23 1E 70 00 8D 20 31 30 |EN ...".#.p.. 10|
00000220: 30 30 30 00 65 1E 71 00 E0 2C 30 2C 35 2C 22 20 |000.e.q..,0,5," |
00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000240: 20 20 20 20 20 20 20 20 20 20 20 22 3A E0 2C 30 | ":.,0|
00000250: 2C 36 2C 22 20 20 20 20 20 20 20 20 20 20 20 20 |,6," |
00000260: 20 20 20 20 22 00 9B 1E 72 00 4C 4E B2 53 20 3A | "...r.LN.S :|
00000270: E0 2C 30 2C 35 2C 22 D2 45 43 4F 52 44 2D CC 41 |.,0,5,".ECORD-.A|
00000280: 45 4E 47 45 3A 20 20 54 4F 54 41 4C 20 22 3A E0 |ENGE: TOTAL ":.|
00000290: 2C 32 34 2C 35 2C C4 28 4C 4E 29 00 CB 1E 73 00 |,24,5,.(LN)...s.|
000002A0: E0 2C 30 2C 36 2C 22 20 20 20 20 20 20 20 20 20 |.,0,6," |
000002B0: 20 20 20 20 20 20 20 42 45 4C 45 47 54 20 22 3A | BELEGT ":|
000002C0: E0 2C 32 34 2C 36 2C C4 28 43 29 00 E8 1E 78 00 |.,24,6,.(C)...x.|
000002D0: E0 2C 35 30 2C 33 2C 22 20 C1 55 53 57 41 48 4C |.,50,3," .USWAHL|
000002E0: 20 20 20 20 20 20 20 22 00 08 1F 7A 00 E0 2C 34 | "...z..,4|
000002F0: 35 2C 34 2C 22 12 D2 92 20 D2 45 43 4F 52 44 20 |5,4,"... .ECORD |
00000300: 4C 45 53 45 4E 20 20 22 00 2A 1F 7C 00 E0 2C 34 |LESEN ".*.|..,4|
00000310: 35 2C 35 2C 22 12 D7 92 20 D2 45 43 4F 52 44 20 |5,5,"... .ECORD |
00000320: 53 43 48 52 45 49 42 45 4E 22 00 48 1F 7E 00 E0 |SCHREIBEN".H.~..|
00000330: 2C 34 35 2C 36 2C 22 12 D3 92 20 C6 49 4C 45 20 |,45,6,"... .ILE |
00000340: 41 4E 4C 45 47 45 4E 22 00 6C 1F 7F 00 E0 2C 34 |ANLEGEN".l....,4|
00000350: 35 2C 37 2C 22 12 D1 92 20 C5 4E 44 45 20 20 20 |5,7,"... .NDE |
00000360: 20 20 20 20 20 20 20 20 20 20 20 22 00 76 1F 80 | ".v..|
00000370: 00 85 20 20 41 24 00 89 1F 82 00 8B 20 41 24 B2 |.. A$...... A$.|
00000380: 22 52 22 20 A7 20 32 30 30 00 9C 1F 8C 00 8B 20 |"R" . 200...... |
00000390: 41 24 B2 22 57 22 20 A7 20 34 30 30 00 AF 1F 96 |A$."W" . 400....|
000003A0: 00 8B 20 41 24 B2 22 53 22 20 A7 20 36 30 30 00 |.. A$."S" . 600.|
000003B0: C2 1F A0 00 8B 20 41 24 B2 22 51 22 20 A7 20 38 |..... A$."Q" . 8|
000003C0: 30 30 00 23 20 AA 00 99 C7 28 31 35 29 3B 3A E0 |00.# ....(15);:.|
000003D0: 2C 34 35 2C 38 2C 22 20 46 41 4C 53 43 48 45 20 |,45,8," FALSCHE |
000003E0: C5 49 4E 47 41 42 45 20 22 2C 31 3A 99 C7 28 37 |.INGABE ",1:..(7|
000003F0: 29 3B 3A FE 0B 20 32 3A E0 2C 34 35 2C 38 2C 22 |);:.. 2:.,45,8,"|
00000400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000410: 20 22 3A 99 C7 28 32 37 29 AA 22 4F 22 3B 3A 89 | ":..(27)."O";:.|
00000420: 31 32 30 00 29 20 BE 00 3A 00 5E 20 C8 00 8F 20 |120.) ..:.^ ... |
00000430: 20 54 48 49 53 20 53 45 43 54 49 4F 4E 20 50 4F | THIS SECTION PO|
00000440: 53 49 54 49 4F 4E 53 20 54 4F 20 41 4E 44 20 52 |SITIONS TO AND R|
00000450: 45 41 44 53 20 41 20 52 45 43 4F 52 44 2E 00 6F |EADS A RECORD..o|
00000460: 20 D1 00 FE 1A 20 30 2C 39 2C 37 39 2C 32 34 00 | .... 0,9,79,24.|
00000470: A2 20 D2 00 9F 31 35 2C 38 2C 31 35 20 20 20 20 |. ...15,8,15 |
00000480: 20 20 20 20 20 20 20 3A 8F 20 4F 50 45 4E 20 54 | :. OPEN T|
00000490: 48 45 20 43 4F 4D 4D 41 4E 44 20 43 48 41 4E 4E |HE COMMAND CHANN|
000004A0: 45 4C 00 C9 20 DC 00 8D 20 35 30 30 30 20 3A 8F |EL.. ... 5000 :.|
000004B0: 20 20 43 48 45 43 4B 20 54 48 45 20 45 52 52 4F | CHECK THE ERRO|
000004C0: 52 20 43 48 41 4E 4E 45 4C 00 10 21 E6 00 9F 38 |R CHANNEL..!...8|
000004D0: 2C 38 2C 38 2C 22 30 3A 22 AA 28 4E 4D 24 29 AA |,8,8,"0:".(NM$).|
000004E0: 22 2C 4C 2C 22 AA C7 28 4C 4E 29 20 3A 8F 20 20 |",L,"..(LN) :. |
000004F0: 4F 50 45 4E 20 46 49 4C 45 20 57 49 54 48 20 52 |OPEN FILE WITH R|
00000500: 45 43 4F 52 44 20 4C 45 4E 47 54 48 20 4C 4E 2E |ECORD LENGTH LN.|
00000510: 00 37 21 F0 00 8D 20 35 30 30 30 20 3A 8F 20 20 |.7!... 5000 :. |
00000520: 43 48 45 43 4B 20 54 48 45 20 45 52 52 4F 52 20 |CHECK THE ERROR |
00000530: 43 48 41 4E 4E 45 4C 00 6F 21 FA 00 E0 2C 30 2C |CHANNEL.o!...,0,|
00000540: 31 2C 22 57 45 4C 43 48 45 20 D2 45 4B 4F 52 44 |1,"WELCHE .EKORD|
00000550: 2D CE 52 2E 20 4C 45 53 45 4E 20 20 22 AA C4 28 |-.R. LESEN "..(|
00000560: 52 4E 29 3A E0 2C 32 34 2C 31 3A 85 20 52 4E 00 |RN):.,24,1:. RN.|
00000570: A7 21 04 01 8D 31 30 30 30 20 3A 8F 20 20 43 41 |.!...1000 :. CA|
00000580: 4C 43 55 4C 41 54 45 20 54 48 45 20 4C 4F 57 20 |LCULATE THE LOW |
00000590: 42 59 54 45 2F 48 49 47 48 20 42 59 54 45 20 50 |BYTE/HIGH BYTE P|
000005A0: 4F 49 4E 54 45 52 2E 00 E1 21 0E 01 98 31 35 2C |OINTER...!...15,|
000005B0: 22 50 22 AA C7 28 39 36 AA 38 29 AA C7 28 52 4C |"P"..(96.8)..(RL|
000005C0: 29 AA C7 28 52 48 29 AA C7 28 31 29 20 3A 8F 20 |)..(RH)..(1) :. |
000005D0: 20 50 4F 53 49 54 49 4F 4E 20 43 4F 4D 4D 41 4E | POSITION COMMAN|
000005E0: 44 00 08 22 18 01 8D 20 35 30 30 30 20 3A 8F 20 |D.."... 5000 :. |
000005F0: 20 43 48 45 43 4B 20 54 48 45 20 45 52 52 4F 52 | CHECK THE ERROR|
00000600: 20 43 48 41 4E 4E 45 4C 00 34 22 1D 01 8B 20 45 | CHANNEL.4"... E|
00000610: B2 35 30 20 A7 99 22 52 45 43 4F 52 44 20 4E 55 |.50 .."RECORD NU|
00000620: 4D 42 45 52 20 54 4F 4F 20 4C 41 52 47 45 22 3A |MBER TOO LARGE":|
00000630: 89 33 33 36 00 70 22 22 01 84 38 2C 41 41 24 2C |.336.p""..8,AA$,|
00000640: 42 42 24 2C 43 43 24 2C 44 44 24 2C 45 45 24 2C |BB$,CC$,DD$,EE$,|
00000650: 46 46 24 2C 47 47 24 20 20 3A 8F 20 20 52 45 41 |FF$,GG$ :. REA|
00000660: 44 20 49 4E 20 54 48 45 20 46 49 45 4C 44 53 2E |D IN THE FIELDS.|
00000670: 00 97 22 2C 01 8D 20 35 30 30 30 20 3A 8F 20 20 |..",.. 5000 :. |
00000680: 43 48 45 43 4B 20 54 48 45 20 45 52 52 4F 52 20 |CHECK THE ERROR |
00000690: 43 48 41 4E 4E 45 4C 00 C4 22 31 01 99 22 91 20 |CHANNEL.."1..". |
000006A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006C0: 20 20 20 22 00 E8 22 36 01 99 22 91 D2 45 4B 4F | ".."6.."..EKO|
000006D0: 52 44 2D CE 52 2E 22 3B 52 4E 3B 22 42 45 49 4E |RD-.R.";RN;"BEIN|
000006E0: 48 41 4C 54 45 54 3A 22 00 40 23 37 01 53 50 24 |HALTET:".@#7.SP$|
000006F0: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00000700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000740: 00 63 23 38 01 99 22 13 11 11 22 53 50 24 3A 81 |.c#8.."..."SP$:.|
00000750: 49 B2 31 A4 37 3A 99 53 50 24 3A 82 3A 99 22 13 |I.1.7:.SP$:.:.".|
00000760: 11 11 22 00 75 23 3B 01 99 22 C6 2E 31 20 3A 12 |..".u#;.."..1 :.|
00000770: 22 3B 41 41 24 00 87 23 40 01 99 22 C6 2E 32 20 |";AA$..#@.."..2 |
00000780: 3A 12 22 3B 42 42 24 00 99 23 45 01 99 22 C6 2E |:.";BB$..#E.."..|
00000790: 33 20 3A 12 22 3B 43 43 24 00 AB 23 4A 01 99 22 |3 :.";CC$..#J.."|
000007A0: C6 2E 34 20 3A 12 22 3B 44 44 24 00 D9 23 4F 01 |..4 :.";DD$..#O.|
000007B0: 99 22 C6 2E 35 20 3A 12 22 3B 45 45 24 3A 99 22 |."..5 :.";EE$:."|
000007C0: C6 2E 36 20 3A 12 22 3B 46 46 24 3A 99 22 C6 2E |..6 :.";FF$:."..|
000007D0: 37 20 3A 12 22 3B 47 47 24 00 16 24 50 01 98 31 |7 :.";GG$..$P..1|
000007E0: 35 2C 22 50 22 AA C7 28 39 36 AA 38 29 AA C7 28 |5,"P"..(96.8)..(|
000007F0: 52 4C 29 AA C7 28 52 48 29 AA C7 28 31 29 3A 8F |RL)..(RH)..(1):.|
00000800: 20 20 52 45 50 4F 53 49 54 27 4E 20 46 4F 52 20 | REPOSIT'N FOR |
00000810: 53 41 46 45 54 59 00 3D 24 51 01 8D 20 35 30 30 |SAFETY.=$Q.. 500|
00000820: 30 20 3A 8F 20 20 43 48 45 43 4B 20 54 48 45 20 |0 :. CHECK THE |
00000830: 45 52 52 4F 52 20 43 48 41 4E 4E 45 4C 00 6F 24 |ERROR CHANNEL.o$|
00000840: 54 01 E0 2C 30 2C 31 33 3A 85 22 11 4E 41 45 43 |T..,0,13:.".NAEC|
00000850: 48 53 54 45 4E 20 D2 45 4B 4F 52 44 20 4C 45 53 |HSTEN .EKORD LES|
00000860: 45 4E 20 22 3B 41 24 3A 52 4E B2 52 4E AA 31 00 |EN ";A$:RN.RN.1.|
00000870: 82 24 5E 01 8B 20 41 24 B2 22 4A 22 20 A7 20 32 |.$^.. A$."J" . 2|
00000880: 35 30 00 AC 24 68 01 A0 38 3A A0 31 35 3A 99 22 |50..$h..8:.15:."|
00000890: 13 13 22 3B 3A 89 31 32 30 20 3A 8F 20 20 47 4F |..";:.120 :. GO|
000008A0: 20 54 4F 20 54 48 45 20 4D 45 4E 55 00 B2 24 86 | TO THE MENU..$.|
000008B0: 01 3A 00 E8 24 90 01 8F 20 20 54 48 49 53 20 53 |.:..$... THIS S|
000008C0: 45 43 54 49 4F 4E 20 50 4F 53 49 54 49 4F 4E 53 |ECTION POSITIONS|
000008D0: 20 54 4F 20 41 4E 44 20 57 52 49 54 45 53 20 41 | TO AND WRITES A|
000008E0: 20 52 45 43 4F 52 44 2E 00 1B 25 9A 01 9F 31 35 | RECORD...%...15|
000008F0: 2C 38 2C 31 35 20 20 20 20 20 20 20 20 20 20 20 |,8,15 |
00000900: 3A 8F 20 4F 50 45 4E 20 54 48 45 20 43 4F 4D 4D |:. OPEN THE COMM|
00000910: 41 4E 44 20 43 48 41 4E 4E 45 4C 00 42 25 9F 01 |AND CHANNEL.B%..|
00000920: 8D 20 35 30 30 30 20 3A 8F 20 20 43 48 45 43 4B |. 5000 :. CHECK|
00000930: 20 54 48 45 20 45 52 52 4F 52 20 43 48 41 4E 4E | THE ERROR CHANN|
00000940: 45 4C 00 89 25 A4 01 9F 38 2C 38 2C 38 2C 22 30 |EL..%...8,8,8,"0|
00000950: 3A 22 AA 28 4E 4D 24 29 AA 22 2C 4C 2C 22 AA C7 |:".(NM$).",L,"..|
00000960: 28 4C 4E 29 20 3A 8F 20 20 4F 50 45 4E 20 46 49 |(LN) :. OPEN FI|
00000970: 4C 45 20 57 49 54 48 20 52 45 43 4F 52 44 20 4C |LE WITH RECORD L|
00000980: 45 4E 47 54 48 20 4C 4E 2E 00 B0 25 AE 01 8D 20 |ENGTH LN...%... |
00000990: 35 30 30 30 20 3A 8F 20 20 43 48 45 43 4B 20 54 |5000 :. CHECK T|
000009A0: 48 45 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 4C |HE ERROR CHANNEL|
000009B0: 00 D4 25 B8 01 85 22 11 57 52 49 54 45 20 57 48 |..%...".WRITE WH|
000009C0: 41 54 20 52 45 43 4F 52 44 20 4E 55 4D 42 45 52 |AT RECORD NUMBER|
000009D0: 22 3B 52 4E 00 1C 26 BD 01 85 22 4E 41 4D 45 22 |";RN..&..."NAME"|
000009E0: 3B 41 41 24 20 20 20 20 20 20 20 3A 8F 20 20 43 |;AA$ :. C|
000009F0: 48 41 4E 47 45 20 54 48 45 20 50 52 4F 4D 50 54 |HANGE THE PROMPT|
00000A00: 53 20 54 4F 20 41 53 4B 20 46 4F 52 20 54 48 45 |S TO ASK FOR THE|
00000A10: 20 44 41 54 41 20 4E 45 45 44 45 44 00 56 26 C2 | DATA NEEDED.V&.|
00000A20: 01 85 22 41 44 44 52 45 53 53 22 3B 42 42 24 20 |.."ADDRESS";BB$ |
00000A30: 20 20 20 3A 8F 20 20 49 4E 20 59 4F 55 52 20 50 | :. IN YOUR P|
00000A40: 41 52 54 49 43 55 4C 41 52 20 41 50 50 4C 49 43 |ARTICULAR APPLIC|
00000A50: 41 54 49 4F 4E 2E 00 9C 26 C7 01 85 22 43 49 54 |ATION...&..."CIT|
00000A60: 59 22 3B 43 43 24 20 20 20 20 20 20 20 3A 8F 20 |Y";CC$ :. |
00000A70: 20 41 4E 59 20 4E 55 4D 42 45 52 20 4F 46 20 46 | ANY NUMBER OF F|
00000A80: 49 45 4C 44 53 20 43 41 4E 20 42 45 20 55 53 45 |IELDS CAN BE USE|
00000A90: 44 20 41 53 20 4C 4F 4E 47 20 41 53 00 DC 26 CC |D AS LONG AS..&.|
00000AA0: 01 85 22 53 54 41 54 45 22 3B 44 44 24 20 20 20 |.."STATE";DD$ |
00000AB0: 20 20 20 3A 8F 20 20 54 48 45 59 20 46 49 54 20 | :. THEY FIT |
00000AC0: 57 49 54 48 49 4E 20 54 48 45 20 52 45 43 4F 52 |WITHIN THE RECOR|
00000AD0: 44 20 4C 45 4E 47 54 48 20 59 4F 55 00 18 27 D6 |D LENGTH YOU..'.|
00000AE0: 01 85 22 5A 49 50 20 43 4F 44 45 22 3B 45 45 24 |.."ZIP CODE";EE$|
00000AF0: 20 20 20 3A 8F 20 20 53 50 45 43 49 46 49 45 44 | :. SPECIFIED|
00000B00: 20 57 48 45 4E 20 43 52 45 41 54 49 4E 47 20 54 | WHEN CREATING T|
00000B10: 48 45 20 46 49 4C 45 2E 00 44 27 E0 01 52 43 24 |HE FILE..D'..RC$|
00000B20: B2 41 41 24 AA 4C 4C 24 AA 42 42 24 AA 4C 4C 24 |.AA$.LL$.BB$.LL$|
00000B30: AA 43 43 24 AA 4C 4C 24 AA 44 44 24 AA 4C 4C 24 |.CC$.LL$.DD$.LL$|
00000B40: AA 45 45 24 00 87 27 EA 01 8F 20 20 52 43 24 20 |.EE$..'... RC$ |
00000B50: 49 53 20 54 48 45 20 53 54 52 49 4E 47 20 43 4F |IS THE STRING CO|
00000B60: 4E 54 41 49 4E 49 4E 47 20 41 4C 4C 20 54 48 45 |NTAINING ALL THE|
00000B70: 20 46 49 45 4C 44 53 20 46 4F 52 20 54 48 45 20 | FIELDS FOR THE |
00000B80: 52 45 43 4F 52 44 2E 00 C1 27 F4 01 8F 20 20 52 |RECORD...'... R|
00000B90: 45 4D 45 4D 42 45 52 20 54 48 45 20 4D 41 58 20 |EMEMBER THE MAX |
00000BA0: 4C 45 4E 47 54 48 20 46 4F 52 20 52 43 24 20 49 |LENGTH FOR RC$ I|
00000BB0: 53 20 32 35 34 20 43 48 41 52 41 43 54 45 52 53 |S 254 CHARACTERS|
00000BC0: 2E 00 F9 27 FE 01 8D 31 30 30 30 20 3A 8F 20 20 |...'...1000 :. |
00000BD0: 43 41 4C 43 55 4C 41 54 45 20 54 48 45 20 4C 4F |CALCULATE THE LO|
00000BE0: 57 20 42 59 54 45 2F 48 49 47 48 20 42 59 54 45 |W BYTE/HIGH BYTE|
00000BF0: 20 50 4F 49 4E 54 45 52 2E 00 33 28 08 02 98 31 | POINTER..3(...1|
00000C00: 35 2C 22 50 22 AA C7 28 39 36 AA 38 29 AA C7 28 |5,"P"..(96.8)..(|
00000C10: 52 4C 29 AA C7 28 52 48 29 AA C7 28 31 29 20 3A |RL)..(RH)..(1) :|
00000C20: 8F 20 20 50 4F 53 49 54 49 4F 4E 20 43 4F 4D 4D |. POSITION COMM|
00000C30: 41 4E 44 00 5A 28 12 02 8D 20 35 30 30 30 20 3A |AND.Z(... 5000 :|
00000C40: 8F 20 20 43 48 45 43 4B 20 54 48 45 20 45 52 52 |. CHECK THE ERR|
00000C50: 4F 52 20 43 48 41 4E 4E 45 4C 00 8A 28 17 02 8B |OR CHANNEL..(...|
00000C60: 20 45 B2 35 30 20 A7 99 22 54 48 45 20 44 4F 53 | E.50 .."THE DOS|
00000C70: 20 57 49 4C 4C 20 45 58 50 41 4E 44 20 54 48 45 | WILL EXPAND THE|
00000C80: 20 46 49 4C 45 20 4E 4F 57 22 00 AB 28 1C 02 98 | FILE NOW"..(...|
00000C90: 38 2C 52 43 24 20 20 3A 8F 20 20 57 52 49 54 45 |8,RC$ :. WRITE|
00000CA0: 20 54 48 45 20 52 45 43 4F 52 44 00 D2 28 26 02 | THE RECORD..(&.|
00000CB0: 8D 20 35 30 30 30 20 3A 8F 20 20 43 48 45 43 4B |. 5000 :. CHECK|
00000CC0: 20 54 48 45 20 45 52 52 4F 52 20 43 48 41 4E 4E | THE ERROR CHANN|
00000CD0: 45 4C 00 0F 29 2B 02 98 31 35 2C 22 50 22 AA C7 |EL..)+..15,"P"..|
00000CE0: 28 39 36 AA 38 29 AA C7 28 52 4C 29 AA C7 28 52 |(96.8)..(RL)..(R|
00000CF0: 48 29 AA C7 28 31 29 20 3A 8F 20 52 45 50 4F 53 |H)..(1) :. REPOS|
00000D00: 49 54 27 4E 20 46 4F 52 20 53 41 46 45 54 59 00 |IT'N FOR SAFETY.|
00000D10: 36 29 2C 02 8D 20 35 30 30 30 20 3A 8F 20 20 43 |6),.. 5000 :. C|
00000D20: 48 45 43 4B 20 54 48 45 20 45 52 52 4F 52 20 43 |HECK THE ERROR C|
00000D30: 48 41 4E 4E 45 4C 00 55 29 30 02 85 22 57 52 49 |HANNEL.U)0.."WRI|
00000D40: 54 45 20 41 4E 4F 54 48 45 52 20 52 45 43 4F 52 |TE ANOTHER RECOR|
00000D50: 44 22 3B 41 24 00 66 29 3A 02 8B 20 41 24 B2 22 |D";A$.f):.. A$."|
00000D60: 59 22 A7 34 33 30 00 89 29 44 02 A0 38 3A A0 31 |Y".430..)D..8:.1|
00000D70: 35 3A 89 31 32 30 20 3A 8F 20 20 47 4F 20 54 4F |5:.120 :. GO TO|
00000D80: 20 54 48 45 20 4D 45 4E 55 00 8F 29 4E 02 3A 00 | THE MENU..)N.:.|
00000D90: D6 29 58 02 8F 20 20 54 48 49 53 20 53 45 43 54 |.)X.. THIS SECT|
00000DA0: 49 4F 4E 20 50 4F 53 49 54 49 4F 4E 53 20 54 4F |ION POSITIONS TO|
00000DB0: 20 41 4E 44 20 57 52 49 54 45 53 20 54 48 45 20 | AND WRITES THE |
00000DC0: 48 49 47 48 45 53 54 20 52 45 43 4F 52 44 20 4E |HIGHEST RECORD N|
00000DD0: 55 4D 42 45 52 2E 00 1E 2A 62 02 8F 20 20 41 4C |UMBER...*b.. AL|
00000DE0: 54 48 4F 55 47 48 20 4E 4F 54 20 45 4E 54 49 52 |THOUGH NOT ENTIR|
00000DF0: 45 4C 59 20 4E 45 43 45 53 53 41 52 59 2C 20 57 |ELY NECESSARY, W|
00000E00: 52 49 54 49 4E 47 20 41 4E 44 20 55 50 44 41 54 |RITING AND UPDAT|
00000E10: 49 4E 47 20 4C 4F 4E 47 20 46 49 4C 45 53 00 62 |ING LONG FILES.b|
00000E20: 2A 6C 02 8F 20 20 49 53 20 53 50 45 45 44 45 44 |*l.. IS SPEEDED|
00000E30: 20 57 48 45 4E 20 54 48 49 53 20 50 52 4F 43 45 | WHEN THIS PROCE|
00000E40: 44 55 52 45 20 49 53 20 55 53 45 44 2E 20 20 54 |DURE IS USED. T|
00000E50: 48 49 53 20 57 49 4C 4C 20 43 41 55 53 45 20 54 |HIS WILL CAUSE T|
00000E60: 48 45 00 A9 2A 76 02 8F 20 20 44 4F 53 20 53 49 |HE..*v.. DOS SI|
00000E70: 44 45 20 53 45 43 54 4F 52 20 4C 49 53 54 20 54 |DE SECTOR LIST T|
00000E80: 4F 20 42 45 20 43 52 45 41 54 45 44 20 45 4E 54 |O BE CREATED ENT|
00000E90: 49 52 45 4C 59 20 41 54 20 54 48 45 20 53 54 41 |IRELY AT THE STA|
00000EA0: 52 54 20 52 41 54 48 45 52 00 E7 2A 80 02 8F 20 |RT RATHER..*... |
00000EB0: 20 54 48 41 4E 20 42 45 49 4E 47 20 41 50 50 45 | THAN BEING APPE|
00000EC0: 4E 44 45 44 20 46 4F 52 20 45 41 43 48 20 4E 45 |NDED FOR EACH NE|
00000ED0: 57 20 48 49 47 48 45 52 20 52 45 43 4F 52 44 20 |W HIGHER RECORD |
00000EE0: 4E 55 4D 42 45 52 2E 00 1A 2B 8A 02 9F 31 35 2C |NUMBER...+...15,|
00000EF0: 38 2C 31 35 20 20 20 20 20 20 20 20 20 20 20 3A |8,15 :|
00000F00: 8F 20 4F 50 45 4E 20 54 48 45 20 43 4F 4D 4D 41 |. OPEN THE COMMA|
00000F10: 4E 44 20 43 48 41 4E 4E 45 4C 00 41 2B 94 02 8D |ND CHANNEL.A+...|
00000F20: 20 35 30 30 30 20 3A 8F 20 20 43 48 45 43 4B 20 | 5000 :. CHECK |
00000F30: 54 48 45 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 |THE ERROR CHANNE|
00000F40: 4C 00 88 2B 9E 02 9F 38 2C 38 2C 38 2C 22 30 3A |L..+...8,8,8,"0:|
00000F50: 22 AA 28 4E 4D 24 29 AA 22 2C 4C 2C 22 AA C7 28 |".(NM$).",L,"..(|
00000F60: 4C 4E 29 20 3A 8F 20 20 4F 50 45 4E 20 46 49 4C |LN) :. OPEN FIL|
00000F70: 45 20 57 49 54 48 20 52 45 43 4F 52 44 20 4C 45 |E WITH RECORD LE|
00000F80: 4E 47 54 48 20 4C 4E 2E 00 AF 2B A8 02 8D 20 35 |NGTH LN...+... 5|
00000F90: 30 30 30 20 3A 8F 20 20 43 48 45 43 4B 20 54 48 |000 :. CHECK TH|
00000FA0: 45 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 4C 00 |E ERROR CHANNEL.|
00000FB0: D9 2B B2 02 99 22 11 57 48 41 54 20 49 53 20 54 |.+...".WHAT IS T|
00000FC0: 48 45 20 48 49 47 48 45 53 54 20 52 45 43 4F 52 |HE HIGHEST RECOR|
00000FD0: 44 20 4E 55 4D 42 45 52 22 00 F3 2B B7 02 85 22 |D NUMBER"..+..."|
00000FE0: 59 4F 55 20 57 41 4E 54 20 54 4F 20 55 53 45 22 |YOU WANT TO USE"|
00000FF0: 3B 52 4E 00 2B 2C BC 02 8D 31 30 30 30 20 3A 8F |;RN.+,...1000 :.|
00001000: 20 20 43 41 4C 43 55 4C 41 54 45 20 54 48 45 20 | CALCULATE THE |
00001010: 4C 4F 57 20 42 59 54 45 2F 48 49 47 48 20 42 59 |LOW BYTE/HIGH BY|
00001020: 54 45 20 50 4F 49 4E 54 45 52 2E 00 65 2C C6 02 |TE POINTER..e,..|
00001030: 98 31 35 2C 22 50 22 AA C7 28 39 36 AA 38 29 AA |.15,"P"..(96.8).|
00001040: C7 28 52 4C 29 AA C7 28 52 48 29 AA C7 28 31 29 |.(RL)..(RH)..(1)|
00001050: 20 3A 8F 20 20 50 4F 53 49 54 49 4F 4E 20 43 4F | :. POSITION CO|
00001060: 4D 4D 41 4E 44 00 8C 2C D0 02 8D 20 35 30 30 30 |MMAND..,... 5000|
00001070: 20 3A 8F 20 20 43 48 45 43 4B 20 54 48 45 20 45 | :. CHECK THE E|
00001080: 52 52 4F 52 20 43 48 41 4E 4E 45 4C 00 BC 2C D5 |RROR CHANNEL..,.|
00001090: 02 8B 20 45 B2 35 30 20 A7 99 22 54 48 45 20 44 |.. E.50 .."THE D|
000010A0: 4F 53 20 57 49 4C 4C 20 45 58 50 41 4E 44 20 54 |OS WILL EXPAND T|
000010B0: 48 45 20 46 49 4C 45 20 4E 4F 57 22 00 CD 2C DA |HE FILE NOW"..,.|
000010C0: 02 98 38 2C C7 28 32 35 35 29 20 3A 8F 00 F4 2C |..8,.(255) :...,|
000010D0: E4 02 8D 20 35 30 30 30 20 3A 8F 20 20 43 48 45 |... 5000 :. CHE|
000010E0: 43 4B 20 54 48 45 20 45 52 52 4F 52 20 43 48 41 |CK THE ERROR CHA|
000010F0: 4E 4E 45 4C 00 31 2D E9 02 98 31 35 2C 22 50 22 |NNEL.1-...15,"P"|
00001100: AA C7 28 39 36 AA 38 29 AA C7 28 52 4C 29 AA C7 |..(96.8)..(RL)..|
00001110: 28 52 48 29 AA C7 28 31 29 20 3A 8F 20 52 45 50 |(RH)..(1) :. REP|
00001120: 4F 53 49 54 27 4E 20 46 4F 52 20 53 41 46 45 54 |OSIT'N FOR SAFET|
00001130: 59 00 58 2D EA 02 8D 20 35 30 30 30 20 3A 8F 20 |Y.X-... 5000 :. |
00001140: 20 43 48 45 43 4B 20 54 48 45 20 45 52 52 4F 52 | CHECK THE ERROR|
00001150: 20 43 48 41 4E 4E 45 4C 00 7B 2D EE 02 A0 38 3A | CHANNEL.{-...8:|
00001160: A0 31 35 3A 89 31 32 30 20 3A 8F 20 20 47 4F 20 |.15:.120 :. GO |
00001170: 54 4F 20 54 48 45 20 4D 45 4E 55 00 88 2D 20 03 |TO THE MENU..- .|
00001180: A0 38 3A A0 31 35 3A 80 00 C4 2D E8 03 8F 20 20 |.8:.15:...-... |
00001190: 54 48 49 53 20 53 55 42 52 4F 55 54 49 4E 45 20 |THIS SUBROUTINE |
000011A0: 43 41 4C 43 55 4C 41 54 45 53 20 54 48 45 20 52 |CALCULATES THE R|
000011B0: 45 43 4F 52 44 20 4E 55 4D 42 45 52 20 50 4F 49 |ECORD NUMBER POI|
000011C0: 4E 54 45 52 00 ED 2D F2 03 8F 20 20 49 4E 20 54 |NTER..-... IN T|
000011D0: 48 45 20 4C 4F 57 20 42 59 54 45 2F 48 49 47 48 |HE LOW BYTE/HIGH|
000011E0: 20 42 59 54 45 20 46 4F 52 4D 41 54 2E 00 27 2E | BYTE FORMAT..'.|
000011F0: FC 03 8F 20 20 52 4E 20 28 52 45 43 4F 52 44 20 |... RN (RECORD |
00001200: 4E 55 4D 42 45 52 29 20 49 53 20 55 53 45 44 20 |NUMBER) IS USED |
00001210: 54 4F 20 43 41 4C 43 55 4C 41 54 45 20 52 4C 20 |TO CALCULATE RL |
00001220: 41 4E 44 20 52 48 2E 00 65 2E 06 04 52 48 B2 B5 |AND RH..e...RH..|
00001230: 28 52 4E AD 32 35 36 29 3A 52 4C B2 52 4E AB 28 |(RN.256):RL.RN.(|
00001240: 32 35 36 AC 52 48 29 20 3A 20 8F 20 20 52 4C 20 |256.RH) : . RL |
00001250: 49 53 20 4C 4F 57 20 2D 2D 20 52 48 20 49 53 20 |IS LOW -- RH IS |
00001260: 48 49 47 48 2E 00 6B 2E 10 04 8E 00 A5 2E 88 13 |HIGH..k.........|
00001270: 8F 20 20 20 54 48 49 53 20 49 53 20 54 48 45 20 |. THIS IS THE |
00001280: 44 49 53 4B 20 44 52 49 56 45 20 45 52 52 4F 52 |DISK DRIVE ERROR|
00001290: 20 43 48 45 43 4B 49 4E 47 20 53 55 42 52 4F 55 | CHECKING SUBROU|
000012A0: 54 49 4E 45 2E 00 D4 2E 92 13 84 31 35 2C 45 2C |TINE.......15,E,|
000012B0: 45 24 2C 41 2C 42 20 20 20 3A 8F 20 20 52 45 41 |E$,A,B :. REA|
000012C0: 44 20 54 48 45 20 45 52 52 4F 52 20 43 48 41 4E |D THE ERROR CHAN|
000012D0: 4E 45 4C 2E 00 01 2F 9C 13 8B 20 45 B2 30 20 A7 |NEL.../... E.0 .|
000012E0: 20 8E 20 20 3A 8F 20 20 54 48 45 52 45 20 49 53 | . :. THERE IS|
000012F0: 20 4E 4F 20 45 52 52 4F 52 20 49 46 20 45 3D 30 | NO ERROR IF E=0|
00001300: 2E 00 47 2F A6 13 8F 20 20 20 45 3D 35 30 20 28 |..G/... E=50 (|
00001310: 52 45 43 4F 52 44 20 4E 4F 54 20 50 52 45 53 45 |RECORD NOT PRESE|
00001320: 4E 54 29 20 41 4E 59 20 54 49 4D 45 20 41 20 52 |NT) ANY TIME A R|
00001330: 45 43 4F 52 44 20 4E 55 4D 42 45 52 20 50 4F 49 |ECORD NUMBER POI|
00001340: 4E 54 45 52 20 49 53 00 84 2F B0 13 8F 20 20 20 |NTER IS../... |
00001350: 50 4F 53 49 54 49 4F 4E 45 44 20 42 45 59 4F 4E |POSITIONED BEYON|
00001360: 44 20 54 48 45 20 43 55 52 52 45 4E 54 20 48 49 |D THE CURRENT HI|
00001370: 47 48 45 53 54 20 52 45 43 4F 52 44 20 4E 55 4D |GHEST RECORD NUM|
00001380: 42 45 52 2E 00 93 2F BA 13 8B 20 45 B2 35 30 20 |BER.../... E.50 |
00001390: A7 20 8E 00 A6 2F BB 13 8B 20 45 B3 B1 35 31 20 |. .../... E..51 |
000013A0: A7 20 35 30 36 30 00 CB 2F BC 13 99 3A 99 22 45 |. 5060../...:."E|
000013B0: 52 52 4F 52 20 23 35 31 2C 20 52 45 43 4F 52 44 |RROR #51, RECORD|
000013C0: 20 54 4F 4F 20 4C 4F 4E 47 2E 22 00 F3 2F BD 13 | TOO LONG."../..|
000013D0: 99 22 4D 41 58 49 4D 55 4D 20 4C 45 4E 47 54 48 |."MAXIMUM LENGTH|
000013E0: 20 49 53 22 4C 4E 22 43 48 41 52 41 43 54 45 52 | IS"LN"CHARACTER|
000013F0: 53 2E 22 00 1A 30 BE 13 99 22 52 45 54 55 52 4E |S."..0..."RETURN|
00001400: 20 43 4F 55 4E 54 53 20 41 53 20 41 20 43 48 41 | COUNTS AS A CHA|
00001410: 52 41 43 54 45 52 2E 22 3A 8E 00 39 30 C4 13 99 |RACTER.":..90...|
00001420: 22 54 48 45 52 45 20 49 53 20 41 4E 20 49 2F 4F |"THERE IS AN I/O|
00001430: 20 50 52 4F 42 4C 45 4D 22 00 55 30 CE 13 99 22 | PROBLEM".U0..."|
00001440: 45 52 52 4F 52 20 4E 55 4D 42 45 52 20 49 53 22 |ERROR NUMBER IS"|
00001450: 3B 45 2C 45 24 00 75 30 D8 13 99 22 41 54 20 54 |;E,E$.u0..."AT T|
00001460: 52 41 43 4B 22 3B 41 3B 22 20 20 20 53 45 43 54 |RACK";A;" SECT|
00001470: 4F 52 22 3B 42 00 AC 30 E2 13 8B 20 45 B2 37 30 |OR";B..0... E.70|
00001480: 20 A7 99 22 11 4D 41 4B 45 20 53 55 52 45 20 59 | ..".MAKE SURE Y|
00001490: 4F 55 20 49 4E 50 55 54 20 54 48 45 20 43 4F 52 |OU INPUT THE COR|
000014A0: 52 45 43 54 20 52 45 43 4F 52 44 22 00 DD 30 EC |RECT RECORD"..0.|
000014B0: 13 8B 20 45 B2 37 30 20 A7 99 22 4C 45 4E 47 54 |.. E.70 .."LENGT|
000014C0: 48 20 46 4F 52 20 41 4E 20 45 58 49 53 54 49 4E |H FOR AN EXISTIN|
000014D0: 47 20 46 49 4C 45 20 4E 41 4D 45 2E 22 00 EA 30 |G FILE NAME."..0|
000014E0: F6 13 A0 38 3A A0 31 35 3A 80 00 FF 30 70 17 E8 |...8:.15:...0p..|
000014F0: 3A E7 20 35 2C 38 3A 99 C7 28 31 34 32 29 3B 00 |:. 5,8:..(142);.|
00001500: 21 31 7A 17 99 22 D5 22 3B 3A 81 20 49 B2 31 20 |!1z..".";:. I.1 |
00001510: A4 20 37 38 3A 99 22 C0 22 3B 3A 82 3A 99 22 C9 |. 78:.".";:.:.".|
00001520: 22 00 34 31 84 17 99 22 DD 22 3B 3A 99 A3 37 39 |".41...".";:..79|
00001530: 29 22 DD 22 00 56 31 8E 17 99 22 CA 22 3B 3A 81 |)".".V1...".";:.|
00001540: 20 49 B2 31 20 A4 20 37 38 3A 99 22 C0 22 3B 3A | I.1 . 78:.".";:|
00001550: 82 3A 99 22 CB 22 00 68 31 98 17 E7 20 35 2C 34 |.:.".".h1... 5,4|
00001560: 3A 99 C7 28 31 34 29 3B 00 6E 31 A2 17 8E 00 87 |:..(14);.n1.....|
00001570: 31 10 27 9F 31 35 2C 38 2C 31 35 2C 22 55 30 3E |1.'.15,8,15,"U0>|
00001580: 4D 31 22 3A A0 31 35 00 91 31 1A 27 52 24 B2 22 |M1":.15..1.'R$."|
00001590: 22 00 99 31 24 27 5A B2 30 00 C9 31 2E 27 41 B2 |"..1$'Z.0..1.'A.|
000015A0: 31 3A 20 51 B2 31 36 3A 20 54 B2 31 30 30 30 3A |1: Q.16: T.1000:|
000015B0: 20 43 48 B2 39 38 3A 20 43 24 B2 C7 28 31 33 29 | CH.98: C$..(13)|
000015C0: 3A 20 5A 24 B2 C7 28 5A 29 00 02 32 38 27 56 31 |: Z$..(Z)..28'V1|
000015D0: B2 33 32 3A 20 56 32 B2 31 32 37 3A 20 56 33 B2 |.32: V2.127: V3.|
000015E0: 31 36 30 3A 20 46 46 B2 32 35 36 3A 20 58 24 B2 |160: FF.256: X$.|
000015F0: 22 30 31 32 33 34 35 36 37 38 39 41 42 43 44 45 |"0123456789ABCDE|
00001600: 46 22 00 36 32 4C 27 56 24 B2 22 53 22 20 20 3A |F".62L'V$."S" :|
00001610: 20 8B 20 56 24 B3 B1 22 53 22 20 AF 20 56 24 B3 | . V$.."S" . V$.|
00001620: B1 22 50 22 20 AF 20 56 24 B3 B1 22 42 22 20 A7 |."P" . V$.."B" .|
00001630: 20 31 30 30 35 30 00 53 32 56 27 53 57 B2 34 30 | 10050.S2V'SW.40|
00001640: 3A 20 8B 20 56 24 B3 B1 22 53 22 20 A7 20 9F 20 |: . V$.."S" . . |
00001650: 34 2C 34 00 75 32 6A 27 55 B2 38 20 20 20 20 3A |4,4.u2j'U.8 :|
00001660: 20 8B 20 55 B3 38 20 B0 20 55 B1 31 35 20 A7 20 | . U.8 . U.15 . |
00001670: 31 30 30 38 30 00 96 32 7E 27 44 B2 30 20 20 20 |10080..2~'D.0 |
00001680: 20 3A 20 8B 20 44 B3 30 20 B0 20 44 B1 31 20 A7 | : . D.0 . D.1 .|
00001690: 20 31 30 31 30 30 00 C3 32 92 27 44 54 24 B2 22 | 10100..2.'DT$."|
000016A0: 46 22 20 20 3A 20 8B 20 44 54 24 B3 B1 22 46 22 |F" : . DT$.."F"|
000016B0: 20 AF 20 44 54 24 B3 B1 22 54 22 20 A7 20 31 30 | . DT$.."T" . 10|
000016C0: 31 32 30 00 DF 32 B0 27 46 54 B2 5A 3A 20 8B 20 |120..2.'FT.Z: . |
000016D0: 44 54 24 B2 22 46 22 20 A7 20 31 30 32 30 30 00 |DT$."F" . 10200.|
000016E0: 1C 33 BA 27 9F 20 31 35 2C 55 2C 31 35 2C 22 49 |.3.'. 15,U,15,"I|
000016F0: 22 AA C9 28 C4 28 44 29 2C 31 29 3A 9F 20 32 2C |"..(.(D),1):. 2,|
00001700: 55 2C 32 2C 22 23 22 3A 8D 20 31 30 38 34 30 3A |U,2,"#":. 10840:|
00001710: 8B 20 45 4E 20 A7 20 31 30 38 39 30 00 2F 33 C4 |. EN . 10890./3.|
00001720: 27 53 B2 32 35 34 3A 20 89 20 31 30 33 35 30 00 |'S.254: . 10350.|
00001730: 43 33 D8 27 8B 20 4E 46 24 B2 22 45 4E 44 22 20 |C3.'. NF$."END" |
00001740: A7 20 80 00 67 33 E2 27 9F 31 35 2C 55 2C 31 35 |. ..g3.'.15,U,15|
00001750: 3A 20 4E 46 24 B2 C9 28 C4 28 44 29 2C 31 29 AA |: NF$..(.(D),1).|
00001760: 22 3A 22 AA 4E 46 24 00 93 33 EC 27 46 54 B2 5A |":".NF$..3.'FT.Z|
00001770: 3A 20 53 B2 5A 3A 20 54 24 B2 4E 46 24 AA 22 2C |: S.Z: T$.NF$.",|
00001780: 4C 22 AA C7 28 41 29 3A 20 9F 20 32 2C 55 2C 32 |L"..(A): . 2,U,2|
00001790: 2C 54 24 00 B7 33 F6 27 8D 20 31 30 38 34 30 3A |,T$..3.'. 10840:|
000017A0: 20 8B 20 45 4E B2 36 34 20 A7 20 A0 20 32 3A 20 | . EN.64 . . 2: |
000017B0: 89 20 31 30 32 38 30 00 D6 33 00 28 8B 20 45 4E |. 10280..3.(. EN|
000017C0: B2 36 32 20 A7 20 8D 20 31 30 39 30 30 3A 20 89 |.62 . . 10900: .|
000017D0: 20 31 30 31 39 30 00 FB 33 0A 28 53 B2 53 AA 41 | 10190..3.(S.S.A|
000017E0: 3A 20 98 31 35 2C 22 50 22 AA C7 28 43 48 29 C7 |: .15,"P"..(CH).|
000017F0: 28 41 29 C7 28 5A 29 C7 28 53 29 00 19 34 14 28 |(A).(Z).(S)..4.(|
00001800: 8D 20 31 30 38 34 30 3A 20 8B 20 45 4E B3 B1 35 |. 10840: . EN..5|
00001810: 31 20 A7 20 31 30 32 35 30 00 4D 34 1E 28 98 31 |1 . 10250.M4.(.1|
00001820: 35 2C 22 50 22 AA C7 28 43 48 29 C7 28 41 29 C7 |5,"P"..(CH).(A).|
00001830: 28 5A 29 C7 28 41 29 3A 20 46 54 B2 34 3A 20 53 |(Z).(A): FT.4: S|
00001840: B2 53 AB 31 3A 20 89 20 31 30 33 35 30 00 74 34 |.S.1: . 10350.t4|
00001850: 28 28 54 24 B2 4E 46 24 AA 22 2C 50 2C 52 22 3A |((T$.NF$.",P,R":|
00001860: 20 9F 20 32 2C 55 2C 32 2C 54 24 3A 20 8D 20 31 | . 2,U,2,T$: . 1|
00001870: 30 38 34 30 00 8F 34 32 28 8B 20 45 4E B2 36 34 |0840..42(. EN.64|
00001880: 20 A7 20 A0 20 32 3A 20 89 20 31 30 33 31 30 00 | . . 2: . 10310.|
00001890: A8 34 3C 28 46 54 B2 32 3A 20 53 B2 32 35 34 3A |.4<(FT.2: S.254:|
000018A0: 20 89 20 31 30 33 35 30 00 CD 34 46 28 54 24 B2 | . 10350..4F(T$.|
000018B0: 4E 46 24 AA 22 2C 52 22 3A 20 9F 20 32 2C 55 2C |NF$.",R": . 2,U,|
000018C0: 32 2C 54 24 3A 20 8D 20 31 30 38 34 30 00 E8 34 |2,T$: . 10840..4|
000018D0: 50 28 8B 20 45 4E B2 36 34 20 A7 20 A0 20 32 3A |P(. EN.64 . . 2:|
000018E0: 20 89 20 31 30 33 34 30 00 01 35 5A 28 46 54 B2 | . 10340..5Z(FT.|
000018F0: 31 3A 20 53 B2 32 35 34 3A 20 89 20 31 30 33 35 |1: S.254: . 1035|
00001900: 30 00 2D 35 64 28 99 20 22 20 43 41 4E 27 54 20 |0.-5d(. " CAN'T |
00001910: 44 55 4D 50 20 55 53 45 52 2D 54 59 50 45 20 46 |DUMP USER-TYPE F|
00001920: 49 4C 45 22 3A 20 89 20 31 30 31 39 30 00 52 35 |ILE": . 10190.R5|
00001930: 6E 28 43 31 B2 32 33 3A 20 50 31 B2 36 32 3A 20 |n(C1.23: P1.62: |
00001940: 50 32 B2 33 31 3A 20 50 33 B2 38 3A 20 50 37 B2 |P2.31: P3.8: P7.|
00001950: 36 36 00 76 35 78 28 50 34 B2 B5 28 53 AD 50 33 |66.v5x(P4..(S.P3|
00001960: 29 3A 20 8B 20 53 AB 50 33 AC 50 34 20 A7 20 50 |): . S.P3.P4 . P|
00001970: 34 B2 50 34 AA 41 00 A9 35 82 28 50 34 B2 50 34 |4.P4.A..5.(P4.P4|
00001980: AA 33 3A 20 50 35 B2 B5 28 50 31 AD 50 34 29 3A |.3: P5..(P1.P4):|
00001990: 20 50 36 B2 50 37 AB 50 34 AC 50 35 3A 20 43 32 | P6.P7.P4.P5: C2|
000019A0: B2 B5 28 43 31 AD 50 34 29 00 CF 35 8C 28 52 B2 |..(C1.P4)..5.(R.|
000019B0: 5A 3A 20 4A 50 B2 5A 3A 20 4A 43 B2 5A 3A 8B 20 |Z: JP.Z: JC.Z:. |
000019C0: 44 54 24 B2 22 46 22 20 A7 20 31 30 34 34 30 00 |DT$."F" . 10440.|
000019D0: FE 35 96 28 99 20 22 11 20 54 52 41 43 4B 2C 20 |.5.(. ". TRACK, |
000019E0: 53 45 43 54 4F 52 20 54 4F 20 44 55 4D 50 3A 20 |SECTOR TO DUMP: |
000019F0: 20 28 30 2C 30 20 3D 20 45 4E 44 29 20 22 00 1A | (0,0 = END) "..|
00001A00: 36 A0 28 85 20 54 52 2C 53 43 3A 20 8B 20 54 52 |6.(. TR,SC: . TR|
00001A10: B3 31 20 A7 20 31 30 38 39 30 00 48 36 AA 28 98 |.1 . 10890.H6.(.|
00001A20: 31 35 2C 22 55 31 3A 22 32 3B 44 3B 54 52 3B 53 |15,"U1:"2;D;TR;S|
00001A30: 43 3A 20 8D 20 31 30 38 34 30 3A 20 8B 20 45 4E |C: . 10840: . EN|
00001A40: 20 A7 20 31 30 33 39 30 00 71 36 B4 28 98 31 35 | . 10390.q6.(.15|
00001A50: 2C 22 42 2D 50 3A 22 32 3B 5A 3A 20 8D 20 31 30 |,"B-P:"2;Z: . 10|
00001A60: 38 34 30 3A 20 8B 20 45 4E 20 A7 20 31 30 38 39 |840: . EN . 1089|
00001A70: 30 00 9D 36 BE 28 A1 23 32 2C 54 52 24 3A 20 A1 |0..6.(.#2,TR$: .|
00001A80: 23 32 2C 53 43 24 3A 20 8D 20 31 30 38 34 30 3A |#2,SC$: . 10840:|
00001A90: 20 8B 20 45 4E 20 A7 20 31 30 38 39 30 00 C9 36 | . EN . 10890..6|
00001AA0: C8 28 52 24 B2 22 22 3A 20 52 B2 52 AA 41 3A 20 |.(R$."": R.R.A: |
00001AB0: 43 B2 5A 3A 20 4E 43 B2 5A 3A 20 8B 20 46 54 B3 |C.Z: NC.Z: . FT.|
00001AC0: 34 20 A7 20 31 30 34 37 30 00 F7 36 D2 28 98 31 |4 . 10470..6.(.1|
00001AD0: 35 2C 22 50 22 AA C7 28 43 48 29 C7 28 52 AB 28 |5,"P"..(CH).(R.(|
00001AE0: B5 28 52 AD 46 46 29 AC 46 46 29 29 C7 28 52 AD |.(R.FF).FF)).(R.|
00001AF0: 46 46 29 C7 28 41 29 00 1F 37 DC 28 8D 20 31 30 |FF).(A)..7.(. 10|
00001B00: 38 34 30 3A 20 8B 20 45 4E B2 35 30 20 A7 20 8D |840: . EN.50 . .|
00001B10: 20 31 30 39 34 30 3A 20 89 20 31 30 31 39 30 00 | 10940: . 10190.|
00001B20: 42 37 E6 28 A1 23 32 2C 42 24 3A 20 43 B2 43 AA |B7.(.#2,B$: C.C.|
00001B30: 41 3A 20 8B 20 42 24 B2 22 22 20 A7 20 42 24 B2 |A: . B$."" . B$.|
00001B40: 5A 24 00 5E 37 F0 28 52 24 B2 52 24 AA 42 24 3A |Z$.^7.(R$.R$.B$:|
00001B50: 20 8B 20 43 B2 53 20 A7 20 31 30 35 33 30 00 73 | . C.S . 10530.s|
00001B60: 37 FA 28 8B 44 54 24 B2 22 54 22 20 A7 20 31 30 |7.(.DT$."T" . 10|
00001B70: 34 37 30 00 85 37 04 29 8B 53 54 B3 B1 36 34 A7 |470..7.).ST..64.|
00001B80: 31 30 34 37 30 00 A1 37 0E 29 8B 20 46 54 B3 34 |10470..7.). FT.4|
00001B90: 20 20 A7 20 45 46 B2 41 3A 20 8D 20 31 30 39 30 | . EF.A: . 1090|
00001BA0: 30 00 AD 37 18 29 89 20 31 30 35 33 30 00 D5 37 |0..7.). 10530..7|
00001BB0: 22 29 4A 50 B2 4A 50 AA 41 3A 20 4A 43 B2 4A 43 |")JP.JP.A: JC.JC|
00001BC0: AA 41 3A 20 8B 20 44 54 24 B2 22 46 22 20 A7 20 |.A: . DT$."F" . |
00001BD0: 31 30 35 36 30 00 05 38 2C 29 4D 24 B2 43 24 AA |10560..8,)M$.C$.|
00001BE0: 22 54 52 4B 2D 53 45 43 3A 22 AA C4 28 54 52 29 |"TRK-SEC:"..(TR)|
00001BF0: AA C4 28 53 43 29 AA 22 20 20 4E 45 58 54 2D 4C |..(SC)." NEXT-L|
00001C00: 49 4E 4B 3A 22 00 38 38 36 29 4D 24 B2 4D 24 AA |INK:".886)M$.M$.|
00001C10: C4 28 C6 28 54 52 24 AA 5A 24 29 29 AA C4 28 C6 |.(.(TR$.Z$))..(.|
00001C20: 28 53 43 24 AA 5A 24 29 29 AA 43 24 AA 43 24 3A |(SC$.Z$)).C$.C$:|
00001C30: 20 89 20 31 30 36 30 30 00 4B 38 40 29 8B 20 46 | . 10600.K8@). F|
00001C40: 54 B3 34 20 A7 20 31 30 35 39 30 00 85 38 4A 29 |T.4 . 10590..8J)|
00001C50: 4D 24 B2 22 52 45 43 4F 52 44 20 4E 4F 3A 22 AA |M$."RECORD NO:".|
00001C60: C4 28 52 29 AA AA 43 24 AA 43 24 AA 22 55 53 45 |.(R)..C$.C$."USE|
00001C70: 44 2F 54 4F 54 41 4C 20 4C 45 4E 47 54 48 3A 22 |D/TOTAL LENGTH:"|
00001C80: AA C4 28 43 29 00 94 38 4F 29 FE 0F 3A 20 20 20 |..(C)..8O)..: |
00001C90: 20 20 20 8E 00 C1 38 54 29 4D 24 B2 4D 24 AA 22 | ...8T)M$.M$."|
00001CA0: 2F 22 AA C9 28 C4 28 53 29 2C C3 28 C4 28 53 29 |/"..(.(S),.(.(S)|
00001CB0: 29 AB 31 29 AA 43 24 AA 43 24 3A 89 31 30 36 30 |).1).C$.C$:.1060|
00001CC0: 30 00 F6 38 5E 29 4D 24 B2 43 24 AA 22 42 4C 4F |0..8^)M$.C$."BLO|
00001CD0: 43 4B 3A 20 22 AA C4 28 52 29 AA 22 20 20 42 59 |CK: "..(R)." BY|
00001CE0: 54 45 53 20 55 53 45 44 3A 20 22 AA C4 28 43 29 |TES USED: "..(C)|
00001CF0: AA 43 24 AA 43 24 00 0C 39 68 29 4B B2 5A 3A 20 |.C$.C$..9h)K.Z: |
00001D00: 4E B2 5A 3A 20 8D 20 31 30 38 30 30 00 3F 39 72 |N.Z: . 10800.?9r|
00001D10: 29 50 50 24 B2 22 22 3A 20 50 43 24 B2 22 22 3A |)PP$."": PC$."":|
00001D20: 20 4D 24 B2 C9 28 C4 28 4E 43 AA 54 29 2C 33 29 | M$..(.(NC.T),3)|
00001D30: AA 22 3A 20 20 22 3A 20 8D 20 31 30 38 30 30 00 |.": ": . 10800.|
00001D40: 6F 39 7C 29 4E B2 4E AA 41 3A 20 4B B2 4B AA 41 |o9|)N.N.A: K.K.A|
00001D50: 3A 20 8D 20 31 30 37 36 30 3A 20 8B 20 4E B3 43 |: . 10760: . N.C|
00001D60: 20 AF 20 4B B3 50 33 20 A7 20 31 30 36 32 30 00 | . K.P3 . 10620.|
00001D70: 95 39 86 29 8B 20 56 24 B3 B1 22 50 22 20 A7 20 |.9.). V$.."P" . |
00001D80: 99 20 22 22 3B A6 50 32 AB 28 4B AC 33 AA 36 29 |. "";.P2.(K.3.6)|
00001D90: 29 3B 50 43 24 00 BC 39 90 29 8B 20 56 24 B3 B1 |);PC$..9.). V$..|
00001DA0: 22 53 22 20 A7 20 98 34 2C 22 22 3B A6 50 32 AB |"S" . .4,"";.P2.|
00001DB0: 28 4B AC 33 AA 36 29 29 3B 50 50 24 00 DC 39 9A |(K.3.6));PP$..9.|
00001DC0: 29 8B 20 4E B2 31 32 38 20 AF 20 56 24 B3 B1 22 |). N.128 . V$.."|
00001DD0: 50 22 20 A7 20 8D 20 31 30 39 39 30 00 FF 39 A4 |P" . . 10990..9.|
00001DE0: 29 8B 20 4E B3 43 20 A7 20 4E 43 B2 4E 43 AA 50 |). N.C . NC.NC.P|
00001DF0: 33 3A 20 4B B2 5A 3A 20 89 20 31 30 36 31 30 00 |3: K.Z: . 10610.|
00001E00: 12 3A AE 29 8B 20 45 46 20 A7 20 8D 20 31 30 39 |.:.). EF . . 109|
00001E10: 34 30 00 27 3A B8 29 8B 20 56 24 B2 22 53 22 20 |40.':.). V$."S" |
00001E20: A7 20 31 30 37 30 30 00 44 3A C2 29 8B 20 4A 50 |. 10700.D:.). JP|
00001E30: B2 50 35 20 AF 20 50 36 B1 5A 20 A7 20 8D 20 31 |.P5 . P6.Z . . 1|
00001E40: 30 37 34 30 00 5A 3A CC 29 8B 20 44 54 24 B2 22 |0740.Z:.). DT$."|
00001E50: 54 22 20 A7 20 31 30 33 39 30 00 73 3A D6 29 8B |T" . 10390.s:.).|
00001E60: 20 45 46 20 A7 20 45 46 B2 5A 3A 20 89 20 31 30 | EF . EF.Z: . 10|
00001E70: 31 39 30 00 90 3A E0 29 8B 20 56 24 B2 22 50 22 |190..:.). V$."P"|
00001E80: 20 B0 20 4A 43 B3 43 32 20 A7 20 31 30 34 34 30 | . JC.C2 . 10440|
00001E90: 00 AB 3A EA 29 8D 20 31 30 39 39 30 3A 20 4A 43 |..:.). 10990: JC|
00001EA0: B2 5A 3A 20 89 20 31 30 34 34 30 00 C3 3A F4 29 |.Z: . 10440..:.)|
00001EB0: 81 20 58 B2 31 20 A4 20 50 36 3A 20 98 34 3A 20 |. X.1 . P6: .4: |
00001EC0: 82 20 58 00 CF 3A FE 29 4A 50 B2 5A 3A 20 8E 00 |. X..:.)JP.Z: ..|
00001ED0: FC 3A 08 2A 42 24 B2 CA 28 52 24 2C 4E 2C 41 29 |.:.*B$..(R$,N,A)|
00001EE0: 3A 20 42 B2 C6 28 42 24 29 3A 20 47 B2 B5 28 42 |: B..(B$): G..(B|
00001EF0: AD 51 29 3A 20 48 B2 42 AB 47 AC 51 00 1F 3B 12 |.Q): H.B.G.Q..;.|
00001F00: 2A 4D 24 B2 CA 28 58 24 2C 47 AA 41 2C 41 29 AA |*M$..(X$,G.A,A).|
00001F10: CA 28 58 24 2C 48 AA 41 2C 41 29 AA 22 20 22 00 |.(X$,H.A,A)." ".|
00001F20: 4C 3B 1C 2A 8D 20 31 30 38 30 30 3A 20 8B 20 42 |L;.*. 10800: . B|
00001F30: B3 56 31 20 B0 20 28 42 B1 56 32 20 AF 20 42 B3 |.V1 . (B.V2 . B.|
00001F40: 56 33 29 20 A7 20 42 24 B2 22 2E 22 00 6A 3B 26 |V3) . B$.".".j;&|
00001F50: 2A 50 43 24 B2 50 43 24 AA 42 24 3A 20 50 50 24 |*PC$.PC$.B$: PP$|
00001F60: B2 50 50 24 AA 42 24 3A 20 8E 00 80 3B 30 2A 8B |.PP$.B$: ...;0*.|
00001F70: 20 56 24 B3 B1 22 50 22 20 A7 20 99 20 4D 24 3B | V$.."P" . . M$;|
00001F80: 00 97 3B 44 2A 8B 20 56 24 B3 B1 22 53 22 20 A7 |..;D*. V$.."S" .|
00001F90: 20 98 34 2C 4D 24 3B 00 9D 3B 4E 2A 8E 00 B5 3B | .4,M$;..;N*...;|
00001FA0: 58 2A 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C |X*.15,EN,EM$,ET,|
00001FB0: 45 53 2C 45 44 00 CC 3B 62 2A 8B 20 45 4E B2 30 |ES,ED..;b*. EN.0|
00001FC0: 20 B0 20 45 4E B2 36 34 20 A7 20 8E 00 E4 3B 6C | . EN.64 . ...;l|
00001FD0: 2A 8B 20 45 4E B2 35 30 20 B0 20 45 4E B2 35 31 |*. EN.50 . EN.51|
00001FE0: 20 A7 20 8E 00 FD 3B 76 2A 99 20 43 24 3B 45 4E | . ...;v*. C$;EN|
00001FF0: 3B 45 4D 24 3B 45 54 3B 45 53 3B 45 44 00 15 3C |;EM$;ET;ES;ED..<|
00002000: 80 2A 8B 20 45 4E B2 36 32 20 B0 20 45 4E B2 36 |.*. EN.62 . EN.6|
00002010: 36 20 A7 20 8E 00 2B 3C 8A 2A A0 20 32 3A 20 A0 |6 . ..+<.*. 2: .|
00002020: 20 34 3A 20 A0 20 31 35 3A 20 80 00 3C 3C 94 2A | 4: . 15: ..<<.*|
00002030: A0 20 32 3A 20 A0 20 31 35 3A 20 8E 00 58 3C 9E |. 2: . 15: ..X<.|
00002040: 2A A0 20 32 3A 20 A0 20 31 35 3A 20 8B 20 56 24 |*. 2: . 15: . V$|
00002050: B2 22 53 22 20 A7 20 8E 00 78 3C A8 2A 50 36 B2 |."S" . ..x<.*P6.|
00002060: 50 37 AB 4A 50 AC 50 34 3A 20 8B 20 50 36 20 A7 |P7.JP.P4: . P6 .|
00002070: 20 8D 20 31 30 37 34 30 00 7E 3C B2 2A 8E 00 A7 | . 10740.~<.*...|
00002080: 3C BC 2A 8D 20 31 30 39 30 30 3A 20 50 36 B2 50 |<.*. 10900: P6.P|
00002090: 37 AB 28 28 4A 50 AB 31 29 AC 50 34 AA B5 28 43 |7.((JP.1).P4..(C|
000020A0: AD 50 33 29 AA 35 29 00 C4 3C C6 2A 8B 20 43 AB |.P3).5)..<.*. C.|
000020B0: B5 28 43 AD 50 33 29 AC 50 33 20 A7 20 50 36 B2 |.(C.P3).P3 . P6.|
000020C0: 50 36 AB 41 00 EC 3C D0 2A 8B 20 56 24 B3 B1 22 |P6.A..<.*. V$.."|
000020D0: 50 22 20 A7 20 99 20 22 11 45 4E 44 20 4F 46 20 |P" . . ".END OF |
000020E0: 46 49 4C 45 22 3A 20 4A 43 B2 43 32 00 14 3D DA |FILE": JC.C2..=.|
000020F0: 2A 8B 20 56 24 B3 B1 22 53 22 20 A7 20 98 34 2C |*. V$.."S" . .4,|
00002100: 22 45 4E 44 20 4F 46 20 46 49 4C 45 22 3A 20 4A |"END OF FILE": J|
00002110: 50 B2 50 35 00 1A 3D E4 2A 8E 00 3E 3D EE 2A 99 |P.P5..=.*..>=.*.|
00002120: 20 22 11 20 50 52 45 53 53 20 41 4E 59 20 4B 45 | ". PRESS ANY KE|
00002130: 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 58 |Y TO CONTINUE".X|
00002140: 3D F8 2A A1 20 41 24 3A 20 8B 20 41 24 B2 22 22 |=.*. A$: . A$.""|
00002150: 20 A7 20 31 31 30 30 30 00 5E 3D 02 2B 8E 00 00 | . 11000.^=.+...|
00002160: 00 |. |
......."...";...... 6000.>.(.. USE THI
S PROGRAM TO LEARN HOW.E.2.. CREATE AN
D USE RELATIVE FILES....<.. IT IS FLEX
IBLE ENOUGH FOR YOU...F.. TO CUSTOMIZE
IT FOR YOUR USE....K.....L..,30,1,"* RE
LATIVE FILE DEMO *":..&.P.LL$.G(13) :.
THIS IS THE FIELD DELIMITER USED WHEN W
RITING RECORDS.\.Z..15,8,15,"I0": 15 : .
INITIALIZE THE DISK DRIVE....D..".BITT
E FILE-NAME ";NM$:NF$.NM$: . MAXIMUM
16 CHARACTER NAME....I..C(NM$).0.C(NM$)
.17.110.O.J.."...":.100.U.N.....O..,0,5,
"REKORD-LAENGE WIRD ERMITTELT":.,0,6,"BI
TTE WARTEN ...".#.P.. 10000.E.Q..,0,5,"
":.,0,6,"
"...R.LN.S :.,0,5,"RECORD-LA
ENGE: TOTAL ":.,24,5,D(LN).K.S..,0,6,"
BELEGT ":.,24,6,D(C)...X.
.,50,3," AUSWAHL "...Z..,45,4,".R.
RECORD LESEN ".*.|..,45,5,".W. RECORD
SCHREIBEN".H.~..,45,6,".S. FILE ANLEGEN"
.L...,45,7,".Q. ENDE ".V..
.. A$...... A$."R" . 200...... A$."W" .
400...... A$."S" . 600.B. .. A$."Q" . 8
00.# ...G(15);:.,45,8," FALSCHE EINGABE
",1:.G(7);:.. 2:.,45,8,"
":.G(27)."O";:.120.) ..:.^ H.. THIS SE
CTION POSITIONS TO AND READS A RECORD..O
Q... 0,9,79,24.. R..15,8,15 :
. OPEN THE COMMAND CHANNEL.I ... 5000 :.
CHECK THE ERROR CHANNEL..!...8,8,8,"0:
".(NM$).",L,".G(LN) :. OPEN FILE WITH R
ECORD LENGTH LN..7!... 5000 :. CHECK TH
E ERROR CHANNEL.O!...,0,1,"WELCHE REKORD
-NR. LESEN ".D(RN):.,24,1:. RN..!...100
0 :. CALCULATE THE LOW BYTE/HIGH BYTE P
OINTER...!...15,"P".G(96.8).G(RL).G(RH).
G(1) :. POSITION COMMAND.."... 5000 :.
CHECK THE ERROR CHANNEL.4"... E.50 .."R
ECORD NUMBER TOO LARGE":.336.P""..8,AA$,
BB$,CC$,DD$,EE$,FF$,GG$ :. READ IN THE
FIELDS...",.. 5000 :. CHECK THE ERROR
CHANNEL.D"1..".
".."6..".REKORD-NR.";RN;"BEIN
HALTET:".@#7.SP$."
".C#8.."..."SP$:.I.1.7:.S
P$:.:."...".U#;.."F.1 :.";AA$..#@.."F.2
:.";BB$..#E.."F.3 :.";CC$..#J.."F.4 :.";
DD$.Y#O.."F.5 :.";EE$:."F.6 :.";FF$:."F.
7 :.";GG$..$P..15,"P".G(96.8).G(RL).G(RH
).G(1):. REPOSIT'N FOR SAFETY.=$Q.. 500
0 :. CHECK THE ERROR CHANNEL.O$T..,0,13
:.".NAECHSTEN REKORD LESEN ";A$:RN.RN.1.
.$^.. A$."J" . 250..$H. 8: 15:."..";:.12
0 :. GO TO THE MENU..$..:..$... THIS S
ECTION POSITIONS TO AND WRITES A RECORD.
..%...15,8,15 :. OPEN THE COMM
AND CHANNEL.B%... 5000 :. CHECK THE ERR
OR CHANNEL..%...8,8,8,"0:".(NM$).",L,".G
(LN) :. OPEN FILE WITH RECORD LENGTH LN
...%... 5000 :. CHECK THE ERROR CHANNEL
.T%...".WRITE WHAT RECORD NUMBER";RN..&.
.."NAME";AA$ :. CHANGE THE PROMPT
S TO ASK FOR THE DATA NEEDED.V&B.."ADDRE
SS";BB$ :. IN YOUR PARTICULAR APPLIC
ATION...&G.."CITY";CC$ :. ANY NUM
BER OF FIELDS CAN BE USED AS LONG AS..&L
.."STATE";DD$ :. THEY FIT WITHIN T
HE RECORD LENGTH YOU..'V.."ZIP CODE";EE$
:. SPECIFIED WHEN CREATING THE FILE.
.D'..RC$.AA$.LL$.BB$.LL$.CC$.LL$.DD$.LL$
.EE$..'... RC$ IS THE STRING CONTAINING
ALL THE FIELDS FOR THE RECORD..A'... R
EMEMBER THE MAX LENGTH FOR RC$ IS 254 CH
ARACTERS...'...1000 :. CALCULATE THE LO
W BYTE/HIGH BYTE POINTER..3(...15,"P".G(
96.8).G(RL).G(RH).G(1) :. POSITION COMM
AND.Z(... 5000 :. CHECK THE ERROR CHANN
EL..(... E.50 .."THE DOS WILL EXPAND THE
FILE NOW"..(...8,RC$ :. WRITE THE REC
ORD.R(&.. 5000 :. CHECK THE ERROR CHANN
EL..)+..15,"P".G(96.8).G(RL).G(RH).G(1)
:. REPOSIT'N FOR SAFETY.6),.. 5000 :. C
HECK THE ERROR CHANNEL.U)0.."WRITE ANOTH
ER RECORD";A$.F):.. A$."Y".430..)D. 8: 1
5:.120 :. GO TO THE MENU..)N.:.V)X.. T
HIS SECTION POSITIONS TO AND WRITES THE
HIGHEST RECORD NUMBER...*B.. ALTHOUGH N
OT ENTIRELY NECESSARY, WRITING AND UPDAT
ING LONG FILES.B*L.. IS SPEEDED WHEN TH
IS PROCEDURE IS USED. THIS WILL CAUSE T
HE..*V.. DOS SIDE SECTOR LIST TO BE CRE
ATED ENTIRELY AT THE START RATHER..*...
THAN BEING APPENDED FOR EACH NEW HIGHER
RECORD NUMBER...+...15,8,15 :
. OPEN THE COMMAND CHANNEL.A+... 5000 :.
CHECK THE ERROR CHANNEL..+...8,8,8,"0:
".(NM$).",L,".G(LN) :. OPEN FILE WITH R
ECORD LENGTH LN...+... 5000 :. CHECK TH
E ERROR CHANNEL.Y+...".WHAT IS THE HIGHE
ST RECORD NUMBER"..+..."YOU WANT TO USE"
;RN.+,...1000 :. CALCULATE THE LOW BYTE
/HIGH BYTE POINTER..E,F..15,"P".G(96.8).
G(RL).G(RH).G(1) :. POSITION COMMAND..,
P.. 5000 :. CHECK THE ERROR CHANNEL..,U
.. E.50 .."THE DOS WILL EXPAND THE FILE
NOW".M,Z..8,G(255) :...,... 5000 :. CHE
CK THE ERROR CHANNEL.1-...15,"P".G(96.8)
.G(RL).G(RH).G(1) :. REPOSIT'N FOR SAFET
Y.X-... 5000 :. CHECK THE ERROR CHANNEL
.{-.. 8: 15:.120 :. GO TO THE MENU..- .
8: 15:..D-... THIS SUBROUTINE CALCULAT
ES THE RECORD NUMBER POINTER..-... IN T
HE LOW BYTE/HIGH BYTE FORMAT..'.... RN
(RECORD NUMBER) IS USED TO CALCULATE RL
AND RH..E...RH..(RN.256):RL.RN.(256.RH)
: . RL IS LOW -- RH IS HIGH..K.........
. THIS IS THE DISK DRIVE ERROR CHECKIN
G SUBROUTINE..T....15,E,E$,A,B :. REA
D THE ERROR CHANNEL.../... E.0 . . :.
THERE IS NO ERROR IF E=0..G/... E=50 (
RECORD NOT PRESENT) ANY TIME A RECORD NU
MBER POINTER IS../... POSITIONED BEYON
D THE CURRENT HIGHEST RECORD NUMBER.../.
.. E.50 . .../... E..51 . 5060.K/...:."E
RROR #51, RECORD TOO LONG."../..."MAXIMU
M LENGTH IS"LN"CHARACTERS."..0..."RETURN
COUNTS AS A CHARACTER.":..90D.."THERE I
S AN I/O PROBLEM".U0N.."ERROR NUMBER IS"
;E,E$.U0X.."AT TRACK";A;" SECTOR";B..0
... E.70 ..".MAKE SURE YOU INPUT THE COR
RECT RECORD"..0... E.70 .."LENGTH FOR AN
EXISTING FILE NAME."..0.. 8: 15:...0P..
:. 5,8:.G(142);.!1Z.."U";:. I.1 . 78:.".
";:.:."I".41...".";:..79)".".V1..."J";:.
I.1 . 78:.".";:.:."K".H1... 5,4:.G(14);
.N1.....1.'.15,8,15,"U0>M1": 15..1.'R$."
"..1$'Z.0.I1.'A.1: Q.16: T.1000: CH.98:
C$.G(13): Z$.G(Z)..28'V1.32: V2.127: V3.
160: FF.256: X$."0123456789ABCDEF".62L'V
$."S" : . V$.."S" . V$.."P" . V$.."B" .
10050.S2V'SW.40: . V$.."S" . . 4,4.U2J'
U.8 : . U.8 . U.15 . 10080..2~'D.0
: . D.0 . D.1 . 10100.C2.'DT$."F" : .
DT$.."F" . DT$.."T" . 10120..2.'FT.Z: .
DT$."F" . 10200..3.'. 15,U,15,"I".I(D(D)
,1):. 2,U,2,"#":. 10840:. EN . 10890./3D
'S.254: . 10350.C3X'. NF$."END" . ..G3.'
.15,U,15: NF$.I(D(D),1).":".NF$..3.'FT.Z
: S.Z: T$.NF$.",L".G(A): . 2,U,2,T$..3.'
. 10840: . EN.64 . 2: . 10280.V3.(. EN
.62 . . 10900: . 10190..3.(S.S.A: .15,"P
".G(CH)G(A)G(Z)G(S)..4.(. 10840: . EN..5
1 . 10250.M4.(.15,"P".G(CH)G(A)G(Z)G(A):
FT.4: S.S.1: . 10350.T4((T$.NF$.",P,R":
. 2,U,2,T$: . 10840..42(. EN.64 . 2:
. 10310..4<(FT.2: S.254: . 10350.M4F(T$.
NF$.",R": . 2,U,2,T$: . 10840..4P(. EN.6
4 . 2: . 10340..5Z(FT.1: S.254: . 1035
0.-5D(. " CAN'T DUMP USER-TYPE FILE": .
10190.R5N(C1.23: P1.62: P2.31: P3.8: P7.
66.V5X(P4..(S.P3): . S.P3.P4 . P4.P4.A..
5.(P4.P4.3: P5..(P1.P4): P6.P7.P4.P5: C2
..(C1.P4).O5.(R.Z: JP.Z: JC.Z:. DT$."F"
. 10440..5.(. ". TRACK, SECTOR TO DUMP:
(0,0 = END) "..6 (. TR,SC: . TR.1 . 108
90.H6.(.15,"U1:"2;D;TR;SC: . 10840: . EN
. 10390.Q6.(.15,"B-P:"2;Z: . 10840: . E
N . 10890..6.(.#2,TR$: .#2,SC$: . 10840:
. EN . 10890.I6H(R$."": R.R.A: C.Z: NC.
Z: . FT.4 . 10470..6R(.15,"P".G(CH)G(R.(
.(R.FF).FF))G(R.FF)G(A)..7.(. 10840: . E
N.50 . . 10940: . 10190.B7.(.#2,B$: C.C.
A: . B$."" . B$.Z$.^7.(R$.R$.B$: . C.S .
10530.S7.(.DT$."T" . 10470..7.).ST..64.
10470..7.). FT.4 . EF.A: . 10900..7.).
10530.U7")JP.JP.A: JC.JC.A: . DT$."F" .
10560..8,)M$.C$."TRK-SEC:".D(TR).D(SC)."
NEXT-LINK:".886)M$.M$.D(F(TR$.Z$)).D(F
(SC$.Z$)).C$.C$: . 10600.K8@). FT.4 . 10
590..8J)M$."RECORD NO:".D(R)..C$.C$."USE
D/TOTAL LENGTH:".D(C)..8O)..: ..A8T
)M$.M$."/".I(D(S),C(D(S)).1).C$.C$:.1060
0..8^)M$.C$."BLOCK: ".D(R)." BYTES USED
: ".D(C).C$.C$..9H)K.Z: N.Z: . 10800.?9R
)PP$."": PC$."": M$.I(D(NC.T),3).": ":
. 10800.O9|)N.N.A: K.K.A: . 10760: . N.C
. K.P3 . 10620..9.). V$.."P" . . "";.P2
.(K.3.6));PC$..9.). V$.."S" . .4,"";.P2.
(K.3.6));PP$..9.). N.128 . V$.."P" . . 1
0990..9.). N.C . NC.NC.P3: K.Z: . 10610.
.:.). EF . . 10940.':.). V$."S" . 10700.
D:B). JP.P5 . P6.Z . . 10740.Z:L). DT$."
T" . 10390.S:V). EF . EF.Z: . 10190..:.)
. V$."P" . JC.C2 . 10440..:.). 10990: JC
.Z: . 10440.C:.). X.1 . P6: .4: . X.O:.)
JP.Z: ...:.*B$.J(R$,N,A): B.F(B$): G..(B
.Q): H.B.G.Q..;.*M$.J(X$,G.A,A).J(X$,H.A
,A)." ".L;.*. 10800: . B.V1 . (B.V2 . B.
V3) . B$.".".J;&*PC$.PC$.B$: PP$.PP$.B$:
...;0*. V$.."P" . . M$;..;D*. V$.."S" .
.4,M$;..;N*...;X*.15,EN,EM$,ET,ES,ED.L;
B*. EN.0 . EN.64 . ...;L*. EN.50 . EN.51
. ...;V*. C$;EN;EM$;ET;ES;ED..<.*. EN.6
2 . EN.66 . ..+<.* 2: 4: 15: ..<<.*
2: 15: ..X<.* 2: 15: . V$."S" . .
.X<.*P6.P7.JP.P4: . P6 . . 10740.~<.*...
<.*. 10900: P6.P7.((JP.1).P4..(C.P3).5).
D<F*. C..(C.P3).P3 . P6.P6.A..<P*. V$.."
P" . . ".END OF FILE": JC.C2..=Z*. V$.."
S" . .4,"END OF FILE": JP.P5..=.*..>=.*.
". PRESS ANY KEY TO CONTINUE".X=.*. A$:
. A$."" . 11000.^=.+....
> CLICK IMAGE PREVIEW FOR FULL MODAL