DIRECT
FILE INFORMATION
FILENAME(S): DIRECT
FILE TYPE(S): PRG
FILE SIZE: 9.8K
FIRST SEEN: 2025-11-30 20:14:47
APPEARS ON: 3 disk(s)
FILE HASH
943b6dd6a73cbd1914e22df02ad0d443a20d2c7e0454d39de5bfa8aa494354a0
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PER CEDERHOLM | DIRECT | PRG | Curtcool, LPN | 15 | 0 | DOWNLOAD FILE |
| PRACTIFILE | DIRECT | PRG | Curtcool, LPN | 15 | 0 | DOWNLOAD FILE |
| PRACTIFILE | DIRECT | PRG | Curtcool, LPN | 15 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 1A 04 00 00 8F 20 44 41 54 41 20 42 41 53 |....... DATA BAS|
00000010: 45 20 34 36 20 31 32 2F 31 38 00 25 04 01 00 89 |E 46 12/18.%....|
00000020: 20 31 31 30 30 00 58 04 02 00 9F 20 31 35 2C 38 | 1100.X.... 15,8|
00000030: 2C 31 35 2C 22 49 30 22 3A 98 31 35 2C 22 53 30 |,15,"I0":.15,"S0|
00000040: 3A 44 49 52 45 43 54 22 3A 94 22 30 3A 44 49 52 |:DIRECT":."0:DIR|
00000050: 45 43 54 22 2C 38 3A 80 00 84 04 03 00 99 22 43 |ECT",8:......."C|
00000060: 4F 52 52 45 43 54 49 4F 4E 53 3F 28 12 59 92 2F |ORRECTIONS?(.Y./|
00000070: 12 4E 92 29 22 3A 47 31 24 B2 22 59 4E 22 3A 8D |.N.)":G1$."YN":.|
00000080: 20 35 3A 8E 00 92 04 04 00 9F 34 2C 34 3A 9D 34 | 5:.......4,4:.4|
00000090: 3A 9B 00 BC 04 05 00 A1 47 24 3A 81 56 B2 31 A4 |:.......G$:.V.1.|
000000A0: C3 28 47 31 24 29 3A 8B 47 24 B3 B1 CA 28 47 31 |.(G1$):.G$...(G1|
000000B0: 24 2C 56 2C 31 29 A7 82 56 3A 89 35 00 C2 04 06 |$,V,1)..V:.5....|
000000C0: 00 8E 00 DE 04 08 00 84 4B 4B 28 56 4F 29 2C 45 |........KK(VO),E|
000000D0: 2C 45 24 2C 53 2C 54 3A 8B 45 B3 32 A7 8E 00 F9 |,E$,S,T:.E.2....|
000000E0: 04 09 00 99 22 44 49 53 4B 20 45 52 52 4F 52 3A |...."DISK ERROR:|
000000F0: 22 45 3B 45 24 3B 53 3B 54 00 17 05 0A 00 99 22 |"E;E$;S;T......"|
00000100: 11 12 52 92 45 41 44 59 3F 22 3A 47 31 24 B2 22 |..R.EADY?":G1$."|
00000110: 52 22 3A 8D 35 3A 8E 00 22 05 0B 00 8F 20 4D 41 |R":.5:..".... MA|
00000120: 49 4E 00 34 05 0D 00 8F 20 53 48 4F 57 20 46 49 |IN.4.... SHOW FI|
00000130: 45 4C 44 53 00 3F 05 10 00 8F 20 45 58 49 54 00 |ELDS.?.... EXIT.|
00000140: 4B 05 11 00 8F 20 4C 4F 57 45 52 00 5B 05 13 00 |K.... LOWER.[...|
00000150: 8F 20 53 41 56 45 20 42 4F 4F 4B 00 6C 05 15 00 |. SAVE BOOK.l...|
00000160: 8F 20 41 44 44 20 52 45 43 4F 52 44 00 80 05 16 |. ADD RECORD....|
00000170: 00 8F 20 43 48 41 4E 47 45 20 52 45 43 4F 52 44 |.. CHANGE RECORD|
00000180: 00 9A 05 17 00 8F 20 4E 45 58 54 2C 50 52 45 56 |...... NEXT,PREV|
00000190: 2C 47 4F 54 4F 2C 46 49 4E 44 00 A2 05 19 00 41 |,GOTO,FIND.....A|
000001A0: 44 44 00 B1 05 1B 00 8F 20 44 45 4C 45 20 52 45 |DD...... DELE RE|
000001B0: 43 00 C2 05 1C 00 8F 20 4B 45 59 20 43 48 41 4E |C...... KEY CHAN|
000001C0: 47 45 00 CE 05 1D 00 8F 20 4C 49 4D 49 54 00 E2 |GE...... LIMIT..|
000001D0: 05 21 00 8F 20 42 49 4E 41 52 59 20 53 45 41 52 |.!.. BINARY SEAR|
000001E0: 43 48 00 F4 05 23 00 8F 20 44 49 53 50 4C 41 59 |CH...#.. DISPLAY|
000001F0: 20 52 45 43 00 02 06 25 00 8F 20 41 53 4B 20 52 | REC...%.. ASK R|
00000200: 45 43 00 0F 06 26 00 8F 20 42 52 4F 57 53 45 00 |EC...&.. BROWSE.|
00000210: 21 06 29 00 8F 20 57 52 49 54 45 20 41 20 52 45 |!.).. WRITE A RE|
00000220: 43 00 35 06 2A 00 8F 20 52 45 41 44 20 41 20 52 |C.5.*.. READ A R|
00000230: 45 43 4F 52 44 00 4C 06 2B 00 8F 20 50 4F 53 49 |ECORD.L.+.. POSI|
00000240: 54 49 4F 4E 20 50 4F 49 4E 54 45 52 00 5B 06 2D |TION POINTER.[.-|
00000250: 00 8F 20 47 41 52 44 20 49 4E 50 00 66 06 2E 00 |.. GARD INP.f...|
00000260: 8F 20 57 49 50 45 00 77 06 31 00 8F 20 41 53 4B |. WIPE.w.1.. ASK|
00000270: 20 4E 55 4D 42 45 52 00 88 06 33 00 8F 20 43 48 | NUMBER...3.. CH|
00000280: 55 4E 4B 20 44 4F 57 4E 00 97 06 34 00 8F 20 43 |UNK DOWN...4.. C|
00000290: 48 55 4E 4B 20 55 50 00 AA 06 35 00 8F 20 46 49 |HUNK UP...5.. FI|
000002A0: 4E 44 20 50 4F 49 4E 54 45 52 00 B5 06 36 00 8F |ND POINTER...6..|
000002B0: 20 53 4E 41 50 00 C5 06 3A 00 8F 20 50 4F 4B 45 | SNAP...:.. POKE|
000002C0: 20 43 41 53 45 00 D7 06 3B 00 8F 20 50 41 53 53 | CASE...;.. PASS|
000002D0: 20 50 41 52 41 4D 53 00 E6 06 3D 00 8F 20 55 53 | PARAMS...=.. US|
000002E0: 45 52 20 53 55 42 00 F2 06 3E 00 8F 20 55 50 2B |ER SUB...>.. UP+|
000002F0: 4C 4F 00 00 07 5D 00 8F 20 4F 50 45 4E 20 52 41 |LO...].. OPEN RA|
00000300: 00 06 07 E8 03 8F 00 11 07 4C 04 8F 20 4D 41 49 |.........L.. MAI|
00000310: 4E 00 2A 07 4D 04 8B 20 4C 49 B3 32 35 33 20 A7 |N.*.M.. LI.253 .|
00000320: 20 97 20 49 56 2C 4C 49 AA 33 00 4D 07 51 04 8D | . IV,LI.3.M.Q..|
00000330: 20 39 33 30 30 3A A0 20 50 52 3A 9F 20 50 52 2C | 9300:. PR:. PR,|
00000340: 33 3A 50 44 B2 33 3A 44 4E 24 B2 22 22 00 79 07 |3:PD.3:DN$."".y.|
00000350: 56 04 52 52 B2 30 3A 99 22 93 20 20 20 20 20 20 |V.RR.0:.". |
00000360: 20 12 44 49 52 45 43 54 20 46 49 4C 45 20 4D 41 | .DIRECT FILE MA|
00000370: 49 4E 54 45 4E 41 4E 43 45 00 B5 07 58 04 99 22 |INTENANCE...X.."|
00000380: 11 4D 41 58 49 4D 55 4D 20 52 45 43 4F 52 44 53 |.MAXIMUM RECORDS|
00000390: 3A 22 4D 52 3B 52 24 22 4D 41 58 49 4D 55 4D 20 |:"MR;R$"MAXIMUM |
000003A0: 43 48 41 52 41 43 54 45 52 53 2F 52 45 43 4F 52 |CHARACTERS/RECOR|
000003B0: 44 3A 22 52 53 00 D5 07 59 04 99 22 43 55 52 52 |D:"RS...Y.."CURR|
000003C0: 45 4E 54 20 4E 4F 20 4F 46 20 52 45 43 4F 52 44 |ENT NO OF RECORD|
000003D0: 53 3A 22 48 52 00 F3 07 5B 04 58 24 B2 22 22 3A |S:"HR...[.X$."":|
000003E0: 8B 20 46 46 20 A7 20 58 24 B2 22 2C 12 55 92 53 |. FF . X$.",.U.S|
000003F0: 45 52 22 00 35 08 5D 04 99 22 11 12 41 92 44 44 |ER".5.].."..A.DD|
00000400: 2C 12 52 92 45 50 4C 2C 12 43 92 48 41 4E 47 45 |,.R.EPL,.C.HANGE|
00000410: 2C 12 44 92 45 4C 2C 12 4E 92 45 58 54 2C 12 50 |,.D.EL,.N.EXT,.P|
00000420: 92 52 45 56 2C 12 47 92 4F 54 4F 2C 12 46 92 49 |.REV,.G.OTO,.F.I|
00000430: 4E 44 2C 22 3B 00 6E 08 60 04 99 22 12 42 92 52 |ND,";.n.`..".B.R|
00000440: 4F 57 53 45 2C 12 4B 92 45 59 22 58 24 22 2C 12 |OWSE,.K.EY"X$",.|
00000450: 57 92 49 50 45 2C 12 4C 92 49 4D 49 54 2C 12 53 |W.IPE,.L.IMIT,.S|
00000460: 92 4E 41 50 2C 12 5E 92 52 45 54 55 52 4E 00 AB |.NAP,.^.RETURN..|
00000470: 08 65 04 47 31 24 B2 22 41 52 43 44 4E 50 47 46 |.e.G1$."ARCDNPGF|
00000480: 22 AA 22 42 4B 4B 57 4C 53 5E 22 3A 8B 20 46 46 |"."BKKWLS^":. FF|
00000490: 20 A7 20 47 31 24 B2 22 41 52 43 44 4E 50 47 46 | . G1$."ARCDNPGF|
000004A0: 22 AA 22 42 4B 55 57 4C 53 5E 22 00 BA 08 67 04 |"."BKUWLS^"...g.|
000004B0: 3A 8D 20 35 3A 99 22 93 22 3B 00 FC 08 6A 04 91 |:. 5:.".";...j..|
000004C0: 20 56 20 8D 20 20 20 20 20 20 20 20 20 20 20 20 | V . |
000004D0: 20 20 20 20 20 32 35 30 30 2C 32 35 30 30 2C 32 | 2500,2500,2|
000004E0: 32 30 30 2C 32 37 30 30 2C 32 33 30 30 2C 32 33 |200,2700,2300,23|
000004F0: 30 30 2C 32 33 30 30 2C 32 33 30 30 00 35 09 6F |00,2300,2300.5.o|
00000500: 04 8B 20 56 B1 20 38 20 A7 20 91 20 56 AB 38 20 |.. V. 8 . . V.8 |
00000510: 20 8D 20 33 38 30 30 2C 32 38 30 30 2C 36 31 30 | . 3800,2800,610|
00000520: 30 2C 34 36 30 30 2C 32 39 30 30 2C 35 34 30 30 |0,4600,2900,5400|
00000530: 2C 31 36 30 30 00 40 09 74 04 89 20 31 31 31 35 |,1600.@.t.. 1115|
00000540: 00 52 09 14 05 8F 20 53 48 4F 57 20 46 49 45 4C |.R.... SHOW FIEL|
00000550: 44 53 00 87 09 19 05 99 22 46 49 45 4C 44 53 3A |DS......"FIELDS:|
00000560: 22 3A 81 20 57 46 B2 31 A4 48 46 3A 99 57 46 22 |":. WF.1.HF:.WF"|
00000570: 3A 22 46 54 24 28 57 46 29 22 20 20 20 22 3B 3A |:"FT$(WF)" ";:|
00000580: 82 57 46 3A 99 3A 8E 00 92 09 40 06 8F 20 45 58 |.WF:.:....@.. EX|
00000590: 49 54 00 AA 09 41 06 50 44 B2 50 55 3A 8B 20 53 |IT...A.PD.PU:. S|
000005A0: 50 20 A7 20 8D 20 31 39 30 30 00 D0 09 4A 06 A0 |P . . 1900...J..|
000005B0: 20 50 52 3A 58 24 B2 22 46 49 4C 45 20 4D 45 4E | PR:X$."FILE MEN|
000005C0: 55 22 3A 8D 20 39 32 30 30 3A 89 20 31 36 30 31 |U":. 9200:. 1601|
000005D0: 00 DC 09 A4 06 8F 20 4C 4F 57 45 52 00 03 0A A9 |...... LOWER....|
000005E0: 06 50 35 B2 31 32 AA 31 34 AB 50 35 3A 97 35 39 |.P5.12.14.P5:.59|
000005F0: 34 36 38 2C 50 35 3A 99 22 93 22 3B 3A 53 50 B2 |468,P5:.".";:SP.|
00000600: 31 3A 8E 00 13 0A 6C 07 8F 20 53 41 56 45 20 42 |1:....l.. SAVE B|
00000610: 4F 4F 4B 00 43 0A 71 07 A0 20 53 45 3A 55 4B B2 |OOK.C.q.. SE:UK.|
00000620: 57 4B 3A 99 22 11 28 53 43 52 41 54 43 48 49 4E |WK:.".(SCRATCHIN|
00000630: 47 20 4F 4C 44 20 42 4F 4F 4B 4B 45 45 50 49 4E |G OLD BOOKKEEPIN|
00000640: 47 29 22 00 71 0A 76 07 3A 98 4B 4B 28 52 56 29 |G)".q.v.:.KK(RV)|
00000650: 2C 22 53 22 AA 44 52 24 28 52 56 29 AA 22 3A 44 |,"S".DR$(RV).":D|
00000660: 42 A2 22 AA 4E 41 24 3A 56 4F B2 52 56 3A 8D 20 |B.".NA$:VO.RV:. |
00000670: 38 00 AF 0A 7C 07 9F 20 53 45 2C 44 56 28 52 56 |8...|.. SE,DV(RV|
00000680: 29 2C 53 45 2C 44 52 24 28 52 56 29 AA 22 3A 44 |),SE,DR$(RV).":D|
00000690: 42 A2 22 AA 4E 41 24 AA 22 2C 53 2C 57 22 3A 56 |B.".NA$.",S,W":V|
000006A0: 4F B2 52 56 3A 8D 20 38 3A 8B 45 20 A7 20 8E 00 |O.RV:. 8:.E . ..|
000006B0: F5 0A 80 07 98 53 45 2C 4D 52 3B 52 24 48 52 3B |.....SE,MR;R$HR;|
000006C0: 52 24 52 53 3B 52 24 48 42 3B 52 24 48 46 3B 52 |R$RS;R$HB;R$HF;R|
000006D0: 24 53 46 3B 52 24 52 42 3B 52 24 48 4B 3B 52 24 |$SF;R$RB;R$HK;R$|
000006E0: 57 4B 3B 52 24 44 4B 3B 52 24 44 45 3B 52 24 4D |WK;R$DK;R$DE;R$M|
000006F0: 43 3B 52 24 3B 00 1D 0B 85 07 81 20 57 46 B2 31 |C;R$;...... WF.1|
00000700: 20 A4 20 48 46 3A 98 53 45 2C 51 24 3B 46 54 24 | . HF:.SE,Q$;FT$|
00000710: 28 57 46 29 3B 52 24 3B 3A 82 20 57 46 00 49 0B |(WF);R$;:. WF.I.|
00000720: 8A 07 81 20 44 B2 30 A4 35 3A 81 20 58 B2 30 A4 |... D.0.5:. X.0.|
00000730: 48 4B 3A 98 53 45 2C 53 46 25 28 58 2C 44 29 3B |HK:.SE,SF%(X,D);|
00000740: 52 24 3B 3A 82 20 58 2C 44 00 62 0B 8F 07 99 22 |R$;:. X,D.b...."|
00000750: 28 53 41 56 49 4E 47 20 50 4F 49 4E 54 45 52 53 |(SAVING POINTERS|
00000760: 29 22 00 96 0B 94 07 3A 81 20 58 B2 30 A4 48 4B |)".....:. X.0.HK|
00000770: 3A 81 20 52 52 B2 31 20 A4 20 48 52 3A 98 53 45 |:. RR.1 . HR:.SE|
00000780: 2C 50 4F 25 28 52 52 2C 58 29 3B 52 24 3B 3A 82 |,PO%(RR,X);R$;:.|
00000790: 20 52 52 3A 82 58 00 C4 0B 99 07 8B 20 52 33 20 | RR:.X...... R3 |
000007A0: A7 20 99 22 28 53 41 56 49 4E 47 20 42 4C 4F 43 |. ."(SAVING BLOC|
000007B0: 4B 20 4D 41 50 29 22 3A 81 20 58 B2 31 A4 31 30 |K MAP)":. X.1.10|
000007C0: 3A 82 20 58 00 FC 0B 9E 07 3A 8B 20 52 33 20 A7 |:. X.....:. R3 .|
000007D0: 20 81 20 57 42 B2 31 20 A4 20 48 42 3A 98 53 45 | . WB.1 . HB:.SE|
000007E0: 2C 22 20 22 54 25 28 57 42 29 52 24 22 20 22 53 |," "T%(WB)R$" "S|
000007F0: 25 28 57 42 29 52 24 3B 3A 82 57 42 00 2E 0C A3 |%(WB)R$;:.WB....|
00000800: 07 8B 52 34 A7 CE 23 28 52 41 29 3A CD 23 28 52 |..R4..#(RA):.#(R|
00000810: 41 29 2C 28 22 52 41 A2 22 AA 4E 41 24 29 2C 4C |A),("RA.".NA$),L|
00000820: 28 52 53 29 2C 44 28 44 52 28 52 56 29 29 00 4F |(RS),D(DR(RV)).O|
00000830: 0C A8 07 81 58 B2 31 A4 48 46 3A 98 53 45 2C 22 |....X.1.HF:.SE,"|
00000840: 20 22 4D 46 25 28 58 29 3B 52 24 3B 3A 82 58 00 | "MF%(X);R$;:.X.|
00000850: 69 0C AD 07 53 50 B2 30 3A A0 20 53 45 3A 56 4F |i...SP.0:. SE:VO|
00000860: B2 52 56 3A 8D 20 38 3A 8E 00 7A 0C 34 08 8F 20 |.RV:. 8:..z.4.. |
00000870: 41 44 44 20 52 45 43 4F 52 44 00 A1 0C 39 08 8B |ADD RECORD...9..|
00000880: 20 44 44 20 A7 20 99 22 11 12 44 45 41 4C 45 52 | DD . ."..DEALER|
00000890: 20 44 45 4D 4F 20 43 41 4E 54 20 41 44 44 22 3A | DEMO CANT ADD":|
000008A0: 8E 00 C3 0C 3E 08 45 B2 30 3A 8B 48 52 B2 4D 52 |....>.E.0:.HR.MR|
000008B0: 20 A7 20 99 22 4F 55 54 20 4F 46 20 52 4F 4F 4D | . ."OUT OF ROOM|
000008C0: 22 3A 8E 00 E2 0C 43 08 99 22 28 41 44 44 49 4E |":....C.."(ADDIN|
000008D0: 47 20 52 45 43 4F 52 44 23 22 48 52 AA 31 22 9D |G RECORD#"HR.1".|
000008E0: 29 22 00 08 0D 48 08 57 52 B2 48 52 AA 31 3A 8D |)"...H.WR.HR.1:.|
000008F0: 34 31 30 30 3A 8B 20 45 20 A7 20 8E 3A 8F 20 41 |4100:. E . .:. A|
00000900: 53 4B 2C 57 52 49 54 45 00 3D 0D 4D 08 53 50 B2 |SK,WRITE.=.M.SP.|
00000910: 31 3A 55 4B B2 57 4B 3A 81 20 57 4B B2 30 A4 48 |1:UK.WK:. WK.0.H|
00000920: 4B 3A 46 49 24 B2 22 22 3A 8F 20 45 4E 54 52 59 |K:FI$."":. ENTRY|
00000930: 20 46 4F 52 20 34 36 30 30 21 21 21 21 00 7E 0D | FOR 4600!!!!.~.|
00000940: 52 08 3A 81 20 44 B2 31 20 A4 20 53 46 25 28 57 |R.:. D.1 . SF%(W|
00000950: 4B 2C 30 29 3A 46 49 24 B2 46 49 24 AA 46 24 28 |K,0):FI$.FI$.F$(|
00000960: 53 46 25 28 57 4B 2C 44 29 29 AA 5A 24 3A 82 20 |SF%(WK,D)).Z$:. |
00000970: 44 3A 8D 20 33 33 30 30 3A 8F 53 52 43 48 00 AD |D:. 3300:.SRCH..|
00000980: 0D 57 08 3A 8B 20 46 52 B3 48 52 AA 31 20 A7 20 |.W.:. FR.HR.1 . |
00000990: 42 52 B2 46 52 3A 54 52 B2 48 52 3A 8D 20 35 32 |BR.FR:TR.HR:. 52|
000009A0: 30 30 3A 8F 20 43 48 55 4E 4B 20 55 50 00 D0 0D |00:. CHUNK UP...|
000009B0: 5C 08 3A 50 4F 25 28 46 52 2C 57 4B 29 B2 48 52 |\.:PO%(FR,WK).HR|
000009C0: AA 31 3A 8B 57 4B B2 55 4B A7 20 52 52 B2 46 52 |.1:.WK.UK. RR.FR|
000009D0: 00 E7 0D 61 08 82 20 57 4B 3A 48 52 B2 48 52 AA |...a.. WK:HR.HR.|
000009E0: 31 3A 57 4B B2 55 4B 00 F8 0D 66 08 8E 3A 8F 20 |1:WK.UK...f..:. |
000009F0: 57 52 54 2C 44 49 53 50 00 0C 0E 98 08 8F 20 43 |WRT,DISP...... C|
00000A00: 48 41 4E 47 45 20 52 45 43 4F 52 44 00 37 0E 99 |HANGE RECORD.7..|
00000A10: 08 99 22 11 12 43 48 41 4E 47 45 20 52 45 43 4F |.."..CHANGE RECO|
00000A20: 52 44 23 22 52 52 3A 8B 52 52 B3 31 B0 20 52 52 |RD#"RR:.RR.1. RR|
00000A30: B1 48 52 20 A7 20 8E 00 4F 0E 9B 08 57 52 B2 50 |.HR . ..O...WR.P|
00000A40: 4F 25 28 52 52 2C 57 4B 29 3A 8D 31 33 30 30 00 |O%(RR,WK):.1300.|
00000A50: 90 0E 9C 08 99 22 57 48 49 43 48 20 46 49 45 4C |....."WHICH FIEL|
00000A60: 44 3F 20 28 45 4E 54 45 52 20 30 20 46 4F 52 20 |D? (ENTER 0 FOR |
00000A70: 41 4C 4C 29 22 3A 58 31 B2 30 3A 58 32 B2 48 46 |ALL)":X1.0:X2.HF|
00000A80: 3A 58 B2 46 43 3A 8D 34 39 30 30 3A 46 43 B2 58 |:X.FC:.4900:FC.X|
00000A90: 00 C4 0E 9D 08 43 52 B2 31 3A 8D 20 33 37 30 30 |.....CR.1:. 3700|
00000AA0: 3A 43 52 B2 30 3A 8B 20 43 4B B2 30 20 A7 20 8D |:CR.0:. CK.0 . .|
00000AB0: 20 34 31 30 30 3A 8D 20 33 35 30 30 3A 8E 3A 8F | 4100:. 3500:.:.|
00000AC0: 20 41 53 4B 00 E6 0E A2 08 53 50 B2 31 3A 55 52 | ASK.....SP.1:UR|
00000AD0: B2 57 52 3A 55 4B B2 57 4B 3A 8F 45 4D 42 45 52 |.WR:UK.WK:.EMBER|
00000AE0: 20 57 52 2C 57 4B 00 F3 0E A7 08 81 57 4B B2 30 | WR,WK......WK.0|
00000AF0: A4 48 4B 00 1A 0F AC 08 3A 46 49 B2 55 52 3A 8D |.HK.....:FI.UR:.|
00000B00: 35 33 30 30 3A 42 52 B2 46 52 AA 31 3A 54 52 B2 |5300:BR.FR.1:TR.|
00000B10: 48 52 3A 48 52 B2 48 52 AB 31 00 37 0F AE 08 3A |HR:HR.HR.1.7...:|
00000B20: 8B 42 52 B3 B2 54 52 A7 8D 35 31 30 30 3A 8F 20 |.BR..TR..5100:. |
00000B30: 44 45 4C 20 50 54 52 00 75 0F B1 08 3A 46 49 24 |DEL PTR.u...:FI$|
00000B40: B2 22 22 3A 81 20 44 B2 31 A4 53 46 25 28 57 4B |."":. D.1.SF%(WK|
00000B50: 2C 30 29 3A 46 49 24 B2 46 49 24 AA 46 24 28 53 |,0):FI$.FI$.F$(S|
00000B60: 46 25 28 57 4B 2C 44 29 29 AA 5A 24 3A 82 44 3A |F%(WK,D)).Z$:.D:|
00000B70: 8D 33 33 30 30 00 A9 0F B3 08 3A 42 52 B2 46 52 |.3300.....:BR.FR|
00000B80: 3A 54 52 B2 48 52 3A 8B 42 52 B3 B2 54 52 A7 20 |:TR.HR:.BR..TR. |
00000B90: 8D 35 32 30 30 3A 8F 20 49 4E 53 52 54 20 46 4F |.5200:. INSRT FO|
00000BA0: 52 20 4E 45 57 20 50 4E 54 00 CE 0F B6 08 3A 48 |R NEW PNT.....:H|
00000BB0: 52 B2 48 52 AA 31 3A 50 4F 25 28 46 52 2C 57 4B |R.HR.1:PO%(FR,WK|
00000BC0: 29 B2 55 52 3A 8F 20 4E 45 57 20 50 54 52 00 ED |).UR:. NEW PTR..|
00000BD0: 0F C0 08 82 57 4B 3A 57 52 B2 55 52 3A 8D 20 34 |....WK:WR.UR:. 4|
00000BE0: 31 30 30 3A 8F 20 4E 45 57 20 52 45 43 00 11 10 |100:. NEW REC...|
00000BF0: C5 08 57 4B B2 55 4B 3A 46 49 B2 57 52 3A 8D 35 |..WK.UK:FI.WR:.5|
00000C00: 33 30 30 3A 52 52 B2 46 52 3A 8D 33 35 30 30 3A |300:RR.FR:.3500:|
00000C10: 8E 00 2B 10 FC 08 8F 20 4E 45 58 54 2C 50 52 45 |..+.... NEXT,PRE|
00000C20: 56 2C 47 4F 54 4F 2C 46 49 4E 44 00 48 10 FD 08 |V,GOTO,FIND.H...|
00000C30: 8B 20 48 52 B2 30 20 A7 20 99 22 45 4D 50 54 59 |. HR.0 . ."EMPTY|
00000C40: 20 46 49 4C 45 22 3A 8E 00 5E 10 01 09 8B 20 47 | FILE":..^.... G|
00000C50: 24 B2 22 4E 22 20 A7 52 52 B2 52 52 AA 31 00 74 |$."N" .RR.RR.1.t|
00000C60: 10 06 09 8B 20 47 24 B2 22 50 22 20 A7 52 52 B2 |.... G$."P" .RR.|
00000C70: 52 52 AB 31 00 AC 10 10 09 8B 47 24 B2 22 47 22 |RR.1......G$."G"|
00000C80: A7 20 99 22 47 4F 54 4F 20 52 45 43 4F 52 44 23 |. ."GOTO RECORD#|
00000C90: 22 3A 58 B2 30 3A 58 31 B2 31 3A 58 32 B2 48 52 |":X.0:X1.1:X2.HR|
00000CA0: 3A 8D 20 34 39 30 30 3A 52 52 B2 58 00 BF 10 15 |:. 4900:RR.X....|
00000CB0: 09 8B 47 24 B3 B1 22 46 22 A7 20 32 33 33 32 00 |..G$.."F". 2332.|
00000CC0: 00 11 17 09 3A 99 22 12 46 49 4E 44 20 52 45 43 |....:.".FIND REC|
00000CD0: 4F 52 44 22 3A 46 49 24 B2 22 22 3A 81 20 58 B2 |ORD":FI$."":. X.|
00000CE0: 31 20 A4 20 53 46 25 28 57 4B 2C 30 29 3A 99 46 |1 . SF%(WK,0):.F|
00000CF0: 54 24 28 53 46 25 28 57 4B 2C 58 29 29 22 3F 22 |T$(SF%(WK,X))"?"|
00000D00: 00 11 11 1A 09 3A 58 24 B2 22 22 3A 8D 34 35 30 |.....:X$."":.450|
00000D10: 30 00 44 11 1B 09 3A 46 49 24 B2 46 49 24 AA 58 |0.D...:FI$.FI$.X|
00000D20: 24 AA 5A 24 3A 99 3A 82 20 58 3A 8D 20 33 33 30 |$.Z$:.:. X:. 330|
00000D30: 30 3A 52 52 B2 46 52 3A 8F 20 42 49 4E 20 53 45 |0:RR.FR:. BIN SE|
00000D40: 41 52 43 48 00 57 11 1C 09 8B 52 52 B1 48 52 20 |ARCH.W....RR.HR |
00000D50: A7 20 52 52 B2 48 52 00 68 11 1D 09 8B 52 52 B3 |. RR.HR.h....RR.|
00000D60: 31 20 A7 20 52 52 B2 31 00 98 11 24 09 57 52 B2 |1 . RR.1...$.WR.|
00000D70: 50 4F 25 28 52 52 2C 57 4B 29 3A 8D 20 34 32 30 |PO%(RR,WK):. 420|
00000D80: 30 3A 8D 20 33 35 30 30 3A 8F 20 52 45 41 44 2C |0:. 3500:. READ,|
00000D90: 20 44 49 53 50 4C 41 59 00 9E 11 29 09 8E 00 D3 | DISPLAY...)....|
00000DA0: 11 C4 09 99 22 93 22 3A 8B 20 47 24 B3 B1 22 52 |....".":. G$.."R|
00000DB0: 22 A7 20 81 20 57 46 B2 31 20 A4 20 48 46 3A 46 |". . WF.1 . HF:F|
00000DC0: 24 28 57 46 29 B2 22 22 3A 82 20 57 46 3A 8F 20 |$(WF)."":. WF:. |
00000DD0: 41 44 44 00 EB 11 DD 09 8D 33 37 30 30 3A 8D 32 |ADD......3700:.2|
00000DE0: 31 30 30 3A 8D 33 35 30 30 3A 8E 00 FA 11 8C 0A |100:.3500:......|
00000DF0: 8F 20 44 45 4C 45 20 52 45 43 00 11 12 8D 0A 8B |. DELE REC......|
00000E00: 20 52 52 B3 31 20 B0 20 52 52 B1 48 52 20 A7 20 | RR.1 . RR.HR . |
00000E10: 8E 00 4C 12 91 0A 99 22 44 45 4C 45 54 45 20 52 |..L...."DELETE R|
00000E20: 45 43 20 23 22 52 52 22 9D 3F 28 12 59 92 2F 12 |EC #"RR".?(.Y./.|
00000E30: 4E 92 29 22 3A 47 31 24 B2 22 59 4E 22 3A 8D 35 |N.)":G1$."YN":.5|
00000E40: 3A 8B 20 47 24 B2 22 4E 22 A7 20 8E 00 7F 12 92 |:. G$."N". .....|
00000E50: 0A 55 4B B2 57 4B 3A 55 52 B2 50 4F 25 28 52 52 |.UK.WK:UR.PO%(RR|
00000E60: 2C 57 4B 29 3A 8F 45 4D 42 45 52 20 4B 45 59 2C |,WK):.EMBER KEY,|
00000E70: 50 48 59 53 20 50 4F 53 20 4F 46 20 52 45 43 00 |PHYS POS OF REC.|
00000E80: B4 12 93 0A 57 52 B2 48 52 3A 8B 57 52 B3 B1 55 |....WR.HR:.WR..U|
00000E90: 52 A7 8D 34 32 30 30 3A 57 52 B2 55 52 3A 8D 34 |R..4200:WR.UR:.4|
00000EA0: 31 30 30 3A 8B 20 45 20 A7 8E 3A 8F 54 4F 50 3E |100:. E ..:.TOP>|
00000EB0: 48 4F 4C 45 00 C1 12 96 0A 81 57 4B B2 30 A4 48 |HOLE......WK.0.H|
00000EC0: 4B 00 F7 12 A0 0A 3A 20 46 49 B2 55 52 3A 8D 20 |K.....: FI.UR:. |
00000ED0: 35 33 30 30 3A 42 52 B2 46 52 AA 31 3A 54 52 B2 |5300:BR.FR.1:TR.|
00000EE0: 48 52 3A 8D 20 35 31 30 30 3A 8F 20 44 45 4C 20 |HR:. 5100:. DEL |
00000EF0: 50 4F 49 4E 54 45 52 00 3C 13 A5 0A 3A 20 46 49 |POINTER.<...: FI|
00000F00: B2 48 52 3A 8D 20 35 33 30 30 3A 50 4F 25 28 46 |.HR:. 5300:PO%(F|
00000F10: 52 2C 57 4B 29 B2 55 52 3A 8F 20 50 4F 49 4E 54 |R,WK).UR:. POINT|
00000F20: 45 52 20 54 4F 20 54 4F 50 20 4E 4F 57 20 50 4F |ER TO TOP NOW PO|
00000F30: 49 4E 54 53 20 54 4F 20 48 4F 4C 45 00 5A 13 AA |INTS TO HOLE.Z..|
00000F40: 0A 82 20 57 4B 3A 57 4B B2 55 4B 3A 48 52 B2 48 |.. WK:WK.UK:HR.H|
00000F50: 52 AB 31 3A 53 50 B2 31 3A 8E 00 6B 13 F0 0A 8F |R.1:SP.1:..k....|
00000F60: 20 4B 45 59 20 43 48 41 4E 47 45 00 8E 13 F5 0A | KEY CHANGE.....|
00000F70: 99 22 4B 45 59 53 3A 22 3A 81 58 B2 30 A4 48 4B |."KEYS:":.X.0.HK|
00000F80: 3A 99 22 12 22 58 AA 31 22 9D 92 20 22 3B 00 C1 |:."."X.1".. ";..|
00000F90: 13 F7 0A 3A 81 20 44 B2 31 A4 53 46 25 28 58 2C |...:. D.1.SF%(X,|
00000FA0: 30 29 3A 99 46 54 24 28 53 46 25 28 58 2C 44 29 |0):.FT$(SF%(X,D)|
00000FB0: 29 22 3A 22 3B 3A 82 44 3A 99 22 9D 20 22 3A 82 |)":";:.D:.". ":.|
00000FC0: 58 00 E7 13 FA 0A 99 22 11 57 48 49 43 48 20 4B |X......".WHICH K|
00000FD0: 45 59 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 |EY DO YOU WANT T|
00000FE0: 4F 20 55 53 45 3F 22 00 0C 14 FF 0A 58 31 B2 31 |O USE?".....X1.1|
00000FF0: 3A 58 32 B2 48 4B AA 31 3A 58 B2 57 4B AA 31 3A |:X2.HK.1:X.WK.1:|
00001000: 8D 34 39 30 30 3A 57 4B B2 58 AB 31 00 12 14 09 |.4900:WK.X.1....|
00001010: 0B 8E 00 1E 14 54 0B 8F 20 4C 49 4D 49 54 00 5D |.....T.. LIMIT.]|
00001020: 14 59 0B 8D 31 33 30 30 3A 99 22 11 57 48 49 43 |.Y..1300:.".WHIC|
00001030: 48 20 46 49 45 4C 44 20 44 4F 20 59 4F 55 20 57 |H FIELD DO YOU W|
00001040: 41 4E 54 20 54 4F 20 4C 49 4D 49 54 3F 22 52 24 |ANT TO LIMIT?"R$|
00001050: 22 28 30 20 46 4F 52 20 4E 4F 4E 45 29 00 87 14 |"(0 FOR NONE)...|
00001060: 5E 0B 58 B2 30 3A 58 31 B2 30 3A 58 32 B2 48 46 |^.X.0:X1.0:X2.HF|
00001070: 3A 8D 20 34 39 30 30 3A 57 46 B2 58 3A 8B 20 57 |:. 4900:WF.X:. W|
00001080: 46 B2 30 20 A7 20 8E 00 C5 14 63 0B 99 22 4D 41 |F.0 . ....c.."MA|
00001090: 58 20 4E 4F 20 43 48 41 52 41 43 54 45 52 53 20 |X NO CHARACTERS |
000010A0: 41 4C 4C 4F 57 45 44 3F 22 3A 58 B2 4D 46 25 28 |ALLOWED?":X.MF%(|
000010B0: 57 46 29 3A 58 31 B2 31 3A 58 32 B2 37 39 3A 8D |WF):X1.1:X2.79:.|
000010C0: 20 34 39 30 30 00 DB 14 68 0B 4D 46 25 28 57 46 | 4900...h.MF%(WF|
000010D0: 29 B2 58 3A 99 22 93 22 3B 3A 8E 00 EF 14 E4 0C |).X:.".";:......|
000010E0: 8F 20 42 49 4E 41 52 59 20 53 45 41 52 43 48 00 |. BINARY SEARCH.|
000010F0: 14 15 E6 0C 54 4C B2 30 3A 54 48 B2 48 52 AA 31 |....TL.0:TH.HR.1|
00001100: 3A 8F 20 54 4F 4F 20 4C 4F 57 2C 20 54 4F 4F 20 |:. TOO LOW, TOO |
00001110: 48 49 47 48 00 29 15 EE 0C 8B 54 48 AB 54 4C B2 |HIGH.)....TH.TL.|
00001120: 31 A7 46 52 B2 54 48 3A 8E 00 61 15 F3 0C 3A 50 |1.FR.TH:..a...:P|
00001130: 25 B2 28 54 4C AA 54 48 29 AD 32 AA 2E 31 3A 57 |%.(TL.TH).2..1:W|
00001140: 52 B2 50 4F 25 28 50 25 2C 57 4B 29 3A 8B 20 52 |R.PO%(P%,WK):. R|
00001150: 34 20 A7 20 8D 20 33 33 35 30 3A 89 20 33 33 31 |4 . . 3350:. 331|
00001160: 37 00 8D 15 F4 0C 3A 8D 20 34 33 30 30 3A 81 20 |7.....:. 4300:. |
00001170: 58 B2 31 20 A4 20 44 4B 3A 84 52 41 2C 58 24 28 |X.1 . DK:.RA,X$(|
00001180: 58 29 3A 82 20 58 3A 46 4F 24 B2 22 22 00 BD 15 |X):. X:FO$.""...|
00001190: F5 0C 3A 81 58 B2 31 A4 53 46 25 28 57 4B 2C 30 |..:.X.1.SF%(WK,0|
000011A0: 29 3A 46 4F 24 B2 46 4F 24 AA 58 24 28 53 46 25 |):FO$.FO$.X$(SF%|
000011B0: 28 57 4B 2C 58 29 29 AA 5A 24 3A 82 58 00 DB 15 |(WK,X)).Z$:.X...|
000011C0: 02 0D 3A 8B 20 46 49 24 B3 B2 46 4F 24 20 A7 20 |..:. FI$..FO$ . |
000011D0: 54 48 B2 50 25 3A 89 33 33 31 30 00 EC 15 07 0D |TH.P%:.3310.....|
000011E0: 3A 54 4C B2 50 25 3A 89 33 33 31 30 00 28 16 16 |:TL.P%:.3310.(..|
000011F0: 0D 4C B2 31 3A 81 58 B2 31 A4 44 4B 3A CF 23 28 |.L.1:.X.1.DK:.#(|
00001200: 52 41 29 2C 28 57 52 29 2C 28 4C 29 3A 84 52 41 |RA),(WR),(L):.RA|
00001210: 2C 58 24 28 58 29 3A 4C B2 4C AA C3 28 58 24 28 |,X$(X):L.L..(X$(|
00001220: 58 29 29 AA 32 3A 82 58 00 2E 16 1B 0D 8E 00 40 |X)).2:.X.......@|
00001230: 16 AC 0D 8F 20 44 49 53 50 4C 41 59 20 52 45 43 |.... DISPLAY REC|
00001240: 00 73 16 B1 0D 8B 52 52 B1 48 52 20 B0 20 52 52 |.s....RR.HR . RR|
00001250: B3 31 20 A7 20 99 22 52 45 43 4F 52 44 23 22 52 |.1 . ."RECORD#"R|
00001260: 52 22 44 4F 45 53 20 4E 4F 54 20 45 58 49 53 54 |R"DOES NOT EXIST|
00001270: 22 3A 8E 00 AB 16 B6 0D 58 24 B2 22 4B 45 59 23 |":......X$."KEY#|
00001280: 22 AA C4 28 57 4B AA 31 29 AA 22 20 20 20 52 45 |"..(WK.1)." RE|
00001290: 43 4F 52 44 23 22 AA C4 28 52 52 29 3A 8B 20 50 |CORD#"..(RR):. P|
000012A0: 44 B2 33 20 A7 99 22 93 12 22 3B 00 BF 16 BB 0D |D.3 .."..";.....|
000012B0: 98 50 52 2C 44 4E 24 58 24 52 24 4C 46 24 3B 00 |.PR,DN$X$R$LF$;.|
000012C0: F2 16 C0 0D 81 20 57 46 B2 31 20 A4 20 48 46 3A |..... WF.1 . HF:|
000012D0: 58 24 B2 46 54 24 28 57 46 29 AA 22 3A 22 3A 8B |X$.FT$(WF).":":.|
000012E0: 50 44 B2 33 A7 58 24 B2 22 12 22 AA 58 24 AA 22 |PD.3.X$.".".X$."|
000012F0: 92 22 00 17 17 C2 0D 3A 8B C3 28 58 24 29 B3 31 |.".....:..(X$).1|
00001300: 35 AF 4D 54 B3 B1 32 A7 58 24 B2 C8 28 58 24 AA |5.MT..2.X$..(X$.|
00001310: 53 50 24 2C 31 35 29 00 3E 17 C5 0D 3A 58 31 24 |SP$,15).>...:X1$|
00001320: B2 52 24 3A 8B C9 28 46 54 24 28 57 46 29 2C 31 |.R$:..(FT$(WF),1|
00001330: 29 B2 22 A0 22 A7 58 31 24 B2 22 20 20 22 00 7B |).".".X1$." ".{|
00001340: 17 C7 0D 3A 4C 4C 24 B2 C9 28 53 50 24 AA C4 28 |...:LL$..(SP$..(|
00001350: 57 46 29 2C 32 29 AA 22 20 22 AA 58 24 AA 46 24 |WF),2)." ".X$.F$|
00001360: 28 57 46 29 AA 58 31 24 AA 4C 46 24 3A 8B 50 44 |(WF).X1$.LF$:.PD|
00001370: B3 B1 33 A7 9E 4D 4C AA 31 35 33 00 A3 17 CA 0D |..3..ML.153.....|
00001380: 3A 98 50 52 2C 44 4E 24 4C 4C 24 3B 3A 8B 20 57 |:.PR,DN$LL$;:. W|
00001390: 46 B2 32 30 20 AF 20 48 46 B1 32 30 20 A7 20 8D |F.20 . HF.20 . .|
000013A0: 20 31 30 00 C4 17 CF 0D 82 20 57 46 3A 58 24 B2 | 10...... WF:X$.|
000013B0: 22 20 22 AA 52 24 AA 4C 46 24 3A 98 50 52 2C 58 |" ".R$.LF$:.PR,X|
000013C0: 24 3B 3A 8E 00 D7 17 74 0E 43 4B B2 30 3A 8F 20 |$;:....t.CK.0:. |
000013D0: 41 53 4B 20 52 45 43 00 F5 17 7E 0E 4C B2 30 3A |ASK REC...~.L.0:|
000013E0: 81 20 57 46 B2 31 20 A4 20 48 46 3A 58 24 B2 46 |. WF.1 . HF:X$.F|
000013F0: 24 28 57 46 29 00 19 18 80 0E 3A 8B 20 43 52 20 |$(WF).....:. CR |
00001400: A7 20 8B 20 46 43 20 A7 20 8B 20 57 46 B3 B1 46 |. . FC . . WF..F|
00001410: 43 20 A7 20 89 33 37 34 35 00 32 18 88 0E 3A 20 |C . .3745.2...: |
00001420: 99 20 46 54 24 28 57 46 29 22 3A 22 3A 8D 34 35 |. FT$(WF)":":.45|
00001430: 30 30 00 53 18 8A 0E 3A 20 58 B2 C3 28 58 24 29 |00.S...: X..(X$)|
00001440: AB 4D 46 25 28 57 46 29 3A 8B 58 B3 31 A7 20 33 |.MF%(WF):.X.1. 3|
00001450: 37 33 30 00 93 18 8B 0E 3A 20 20 99 C7 28 37 29 |730.....: ..(7)|
00001460: 22 12 46 49 45 4C 44 20 54 4F 4F 20 4C 4F 4E 47 |".FIELD TOO LONG|
00001470: 20 42 59 22 58 22 9D 20 43 48 41 52 41 43 54 45 | BY"X". CHARACTE|
00001480: 52 53 22 3A 46 24 28 57 46 29 B2 58 24 3A 89 33 |RS":F$(WF).X$:.3|
00001490: 37 32 30 00 A9 18 92 0E 3A 20 8B 58 24 B2 46 24 |720.....: .X$.F$|
000014A0: 28 57 46 29 A7 33 37 34 35 00 E5 18 97 0E 3A 20 |(WF).3745.....: |
000014B0: 20 81 58 32 B2 30 A4 48 4B 3A 81 44 B2 31 A4 53 | .X2.0.HK:.D.1.S|
000014C0: 46 25 28 58 32 2C 30 29 3A 43 4B B2 43 4B 20 B0 |F%(X2,0):CK.CK .|
000014D0: 20 28 57 46 B2 53 46 25 28 58 32 2C 44 29 29 3A | (WF.SF%(X2,D)):|
000014E0: 82 44 2C 58 32 00 00 19 A1 0E 3A 4C B2 4C AA C3 |.D,X2.....:L.L..|
000014F0: 28 58 24 29 AA 32 3A 46 24 28 57 46 29 B2 58 24 |(X$).2:F$(WF).X$|
00001500: 00 2F 19 A6 0E 82 20 57 46 3A 8B 20 4C B1 52 53 |./.... WF:. L.RS|
00001510: 20 A7 20 99 22 52 45 43 20 54 4F 4F 20 4C 41 52 | . ."REC TOO LAR|
00001520: 47 45 22 3A 46 43 B2 30 3A 89 20 33 37 31 30 00 |GE":FC.0:. 3710.|
00001530: 4E 19 AB 0E 8B 20 43 52 B2 30 A7 20 8D 33 3A 8B |N.... CR.0. .3:.|
00001540: 20 47 24 B2 22 59 22 20 A7 20 33 37 31 30 00 54 | G$."Y" . 3710.T|
00001550: 19 B0 0E 8E 00 61 19 D8 0E 8F 20 42 52 4F 57 53 |.....a.... BROWS|
00001560: 45 00 6D 19 DA 0E 8B 48 52 B3 31 A7 8E 00 82 19 |E.m....HR.1.....|
00001570: DD 0E 8B 52 52 B1 48 52 B0 52 52 B3 31 A7 52 52 |...RR.HR.RR.1.RR|
00001580: B2 31 00 BF 19 E2 0E 8D 31 33 30 30 3A 99 22 23 |.1......1300:."#|
00001590: 20 4F 46 20 46 49 45 4C 44 20 54 4F 20 56 49 45 | OF FIELD TO VIE|
000015A0: 57 3A 22 3A 58 31 B2 30 3A 58 32 B2 48 46 3A 58 |W:":X1.0:X2.HF:X|
000015B0: B2 42 46 3A 8D 20 34 39 30 30 3A 42 46 B2 58 00 |.BF:. 4900:BF.X.|
000015C0: EF 19 EC 0E 99 22 93 22 3B 3A 81 52 52 B2 52 52 |.....".";:.RR.RR|
000015D0: A4 48 52 3A 57 52 B2 50 4F 25 28 52 52 2C 57 4B |.HR:WR.PO%(RR,WK|
000015E0: 29 3A 8D 34 32 30 30 3A 99 52 52 22 12 22 3B 00 |):.4200:.RR".";.|
000015F0: 26 1A ED 0E 3A 81 44 B2 31 A4 53 46 25 28 57 4B |&...:.D.1.SF%(WK|
00001600: 2C 30 29 3A 99 46 24 28 53 46 25 28 57 4B 2C 44 |,0):.F$(SF%(WK,D|
00001610: 29 29 22 3A 22 3B 3A 82 44 3A 99 22 9D 92 20 22 |))":";:.D:.".. "|
00001620: 46 24 28 42 46 29 00 3A 1A F1 0E A1 47 24 3A 8B |F$(BF).:....G$:.|
00001630: 47 24 B2 22 22 A7 82 20 52 52 00 40 1A F6 0E 8E |G$."".. RR.@....|
00001640: 00 52 1A 04 10 8F 20 57 52 49 54 45 20 41 20 52 |.R.... WRITE A R|
00001650: 45 43 00 7D 1A 0E 10 58 24 B2 22 22 3A 81 20 58 |EC.}...X$."":. X|
00001660: B2 31 20 A4 20 48 46 3A 58 24 B2 58 24 AA 51 24 |.1 . HF:X$.X$.Q$|
00001670: AA 46 24 28 58 29 AA 52 24 3A 82 20 58 00 A0 1A |.F$(X).R$:. X...|
00001680: 18 10 8B 20 52 34 20 A7 20 CF 23 28 52 41 29 2C |... R4 . .#(RA),|
00001690: 28 57 52 29 3A 98 28 52 41 29 2C 58 24 3B 3A 8E |(WR):.(RA),X$;:.|
000016A0: 00 B3 1A 22 10 8D 20 34 33 30 30 3A 98 52 41 2C |...".. 4300:.RA,|
000016B0: 58 24 3B 00 E8 1A 27 10 98 4B 4B 28 52 56 29 2C |X$;...'..KK(RV),|
000016C0: 22 55 32 3A 22 52 41 3B 44 52 28 52 56 29 3B 54 |"U2:"RA;DR(RV);T|
000016D0: 25 28 42 4C 29 3B 53 25 28 42 4C 29 3A 56 4F B2 |%(BL);S%(BL):VO.|
000016E0: 52 56 3A 8D 20 38 3A 8E 00 FC 1A 68 10 8F 20 52 |RV:. 8:....h.. R|
000016F0: 45 41 44 20 41 20 52 45 43 4F 52 44 00 2C 1B 6D |EAD A RECORD.,.m|
00001700: 10 8B 20 52 33 20 A7 20 8D 20 34 33 30 30 3A 81 |.. R3 . . 4300:.|
00001710: 20 57 46 B2 31 20 A4 20 48 46 3A 84 52 41 2C 46 | WF.1 . HF:.RA,F|
00001720: 24 28 57 46 29 3A 82 20 57 46 3A 8E 00 68 1B 72 |$(WF):. WF:..h.r|
00001730: 10 4C B2 31 3A 81 58 B2 31 A4 48 46 3A CF 23 28 |.L.1:.X.1.HF:.#(|
00001740: 52 41 29 2C 28 57 52 29 2C 28 4C 29 3A 84 52 41 |RA),(WR),(L):.RA|
00001750: 2C 46 24 28 58 29 3A 4C B2 4C AA C3 28 46 24 28 |,F$(X):L.L..(F$(|
00001760: 58 29 29 AA 32 3A 82 58 00 6E 1B 77 10 8E 00 85 |X)).2:.X.n.w....|
00001770: 1B CC 10 8F 20 50 4F 53 49 54 49 4F 4E 20 50 4F |.... POSITION PO|
00001780: 49 4E 54 45 52 00 A2 1B D1 10 42 4C B2 B5 28 28 |INTER.....BL..((|
00001790: 57 52 AB 31 29 AD 52 42 AA 2E 30 30 30 30 31 29 |WR.1).RB..00001)|
000017A0: AA 31 00 D9 1B D4 10 98 4B 4B 28 52 56 29 2C 22 |.1......KK(RV),"|
000017B0: 55 31 3A 22 52 41 3B 44 52 28 52 56 29 3B 54 25 |U1:"RA;DR(RV);T%|
000017C0: 28 42 4C 29 3B 53 25 28 42 4C 29 3A 56 4F B2 52 |(BL);S%(BL):VO.R|
000017D0: 56 3A 8D 38 3A 8B 45 A7 8E 00 14 1C DB 10 58 B2 |V:.8:.E.......X.|
000017E0: 28 57 52 AB 31 29 AB 28 42 4C AB 31 29 AC 52 42 |(WR.1).(BL.1).RB|
000017F0: 3A 8F 20 4E 4F 2E 20 52 45 43 53 20 42 45 46 4F |:. NO. RECS BEFO|
00001800: 52 20 54 48 49 53 20 49 4E 20 54 48 49 53 20 42 |R THIS IN THIS B|
00001810: 4C 4F 43 4B 00 39 1C DF 10 42 50 B2 31 AA 52 53 |LOCK.9...BP.1.RS|
00001820: AC 58 3A 98 4B 4B 28 52 56 29 2C 22 42 2D 50 3A |.X:.KK(RV),"B-P:|
00001830: 22 3B 52 41 3B 42 50 3A 8E 00 5E 1C 94 11 99 58 |";RA;BP:..^....X|
00001840: 24 C8 28 4C 45 24 2C C3 28 58 24 29 29 3B 3A 43 |$.(LE$,.(X$));:C|
00001850: 58 B2 31 3A 8F 20 47 41 52 44 20 49 4E 50 00 91 |X.1:. GARD INP..|
00001860: 1C 99 11 4D 24 B2 CA 28 58 24 AA 22 20 22 2C 43 |...M$..(X$." ",C|
00001870: 58 2C 31 29 3A 99 22 12 22 4D 24 22 92 9D 22 3B |X,1):."."M$"..";|
00001880: 3A A1 47 24 3A 8B 47 24 B2 22 22 A7 8D 34 35 36 |:.G$:.G$.""..456|
00001890: 35 00 C4 1C 9E 11 3A 41 B2 C6 28 47 24 29 3A 99 |5.....:A..(G$):.|
000018A0: 4D 24 22 9D 22 3B 3A 8B 28 41 20 AF 20 31 32 37 |M$".";:.(A . 127|
000018B0: 29 B3 33 32 B0 43 58 B1 37 37 B0 41 B2 33 34 A7 |).32.CX.77.A.34.|
000018C0: 34 35 32 30 00 F9 1C A3 11 3A 20 99 47 24 3B 3A |4520.....: .G$;:|
000018D0: 58 24 B2 C8 28 58 24 2C 43 58 AB 31 29 AA 47 24 |X$..(X$,CX.1).G$|
000018E0: AA CA 28 58 24 2C 43 58 AA 31 29 3A 43 58 B2 43 |..(X$,CX.1):CX.C|
000018F0: 58 AA 31 3A 89 34 35 30 35 00 23 1D A8 11 3A 8B |X.1:.4505.#...:.|
00001900: 41 B2 31 35 37 A7 8B 43 58 B1 31 A7 43 58 B2 43 |A.157..CX.1.CX.C|
00001910: 58 AB 31 3A 99 47 24 3B 3A 89 34 35 30 35 3A 8F |X.1:.G$;:.4505:.|
00001920: 20 4C 46 00 4E 1D AD 11 3A 8B 41 B2 32 39 AF 43 | LF.N...:.A.29.C|
00001930: 58 B3 B2 C3 28 58 24 29 A7 43 58 B2 43 58 AA 31 |X...(X$).CX.CX.1|
00001940: 3A 99 47 24 3B 3A 89 34 35 30 35 3A 52 49 00 64 |:.G$;:.4505:RI.d|
00001950: 1D B2 11 3A 8B 41 B2 31 33 A7 34 35 38 30 3A 8F |...:.A.13.4580:.|
00001960: 20 52 45 54 00 99 1D B7 11 3A 8B 41 B2 32 30 A7 | RET.....:.A.20.|
00001970: 8B 43 58 B1 31 A7 99 47 24 3B 3A 58 24 B2 C8 28 |.CX.1..G$;:X$..(|
00001980: 58 24 2C 43 58 AB 32 29 AA CA 28 58 24 2C 43 58 |X$,CX.2)..(X$,CX|
00001990: 29 3A 43 58 B2 43 58 AB 31 00 B4 1D BC 11 3A 8B |):CX.CX.1.....:.|
000019A0: 41 B2 31 34 38 AF C3 28 58 24 29 B3 37 38 A7 8D |A.148..(X$).78..|
000019B0: 34 35 35 35 00 D9 1D C1 11 3A 8B 41 B2 31 34 37 |4555.....:.A.147|
000019C0: A7 4C B2 C3 28 58 24 29 3A 8D 34 35 36 30 3A 43 |.L..(X$):.4560:C|
000019D0: 58 B2 31 3A 58 24 B2 22 22 00 E4 1D C6 11 3A 89 |X.1:X$."".....:.|
000019E0: 34 35 30 35 00 13 1E CB 11 58 24 B2 C8 28 58 24 |4505.....X$..(X$|
000019F0: 2C 43 58 AB 31 29 AA 22 20 22 AA CA 28 58 24 2C |,CX.1)." "..(X$,|
00001A00: 43 58 29 3A 99 47 24 22 20 9D 22 3B 3A 8E 3A 8F |CX):.G$" .";:.:.|
00001A10: 20 49 4E 00 3C 1E D0 11 99 C8 28 4C 45 24 2C 43 | IN.<.....(LE$,C|
00001A20: 58 AB 31 29 C8 28 53 50 24 2C 4C 29 C8 28 4C 45 |X.1).(SP$,L).(LE|
00001A30: 24 2C 4C 29 3B 3A 8E 3A 8F 20 43 4C 00 6A 1E D5 |$,L);:.:. CL.j..|
00001A40: 11 99 22 12 22 4D 24 22 9D 92 22 3B 3A 81 57 B2 |.."."M$"..";:.W.|
00001A50: 31 A4 35 30 3A A1 47 24 3A 8B 47 24 B3 B1 22 22 |1.50:.G$:.G$..""|
00001A60: A7 99 4D 24 22 9D 22 3B 3A 8E 00 90 1E DA 11 3A |..M$".";:......:|
00001A70: 82 57 3A 99 4D 24 22 9D 22 3B 3A 81 57 B2 31 A4 |.W:.M$".";:.W.1.|
00001A80: 35 30 3A A1 47 24 3A 8B 47 24 B3 B1 22 22 A7 8E |50:.G$:.G$..""..|
00001A90: 00 9E 1E DF 11 3A 82 57 3A 89 34 35 36 35 00 C0 |.....:.W:.4565..|
00001AA0: 1E E4 11 8B C8 28 58 24 2C 31 29 B2 22 20 22 A7 |.....(X$,1)." ".|
00001AB0: 58 24 B2 CA 28 58 24 2C 32 29 3A 89 34 35 38 30 |X$..(X$,2):.4580|
00001AC0: 00 E9 1E E9 11 3A 8B C9 28 58 24 2C 31 29 B2 22 |.....:..(X$,1)."|
00001AD0: 20 22 A7 58 24 B2 C8 28 58 24 2C C3 28 58 24 29 | ".X$..(X$,.(X$)|
00001AE0: AB 31 29 3A 89 34 35 38 35 00 F2 1E EE 11 3A 99 |.1):.4585.....:.|
00001AF0: 3A 8E 00 FD 1E F8 11 8F 20 57 49 50 45 00 31 1F |:....... WIPE.1.|
00001B00: FD 11 3A 99 22 11 57 49 50 45 3A 22 52 24 22 1D |..:.".WIPE:"R$".|
00001B10: 1D 12 4F 92 4E 45 20 52 45 43 4F 52 44 22 52 24 |..O.NE RECORD"R$|
00001B20: 22 1D 1D 12 41 92 4C 4C 20 52 45 43 4F 52 44 53 |"...A.LL RECORDS|
00001B30: 22 00 6C 1F 02 12 3A 99 22 1D 1D 12 45 92 4E 54 |".l...:."...E.NT|
00001B40: 49 52 45 20 46 49 4C 45 22 52 24 22 1D 1D 12 52 |IRE FILE"R$"...R|
00001B50: 92 45 43 4F 56 45 52 20 42 4F 4F 4B 22 52 24 22 |.ECOVER BOOK"R$"|
00001B60: 1D 1D 12 5E 92 20 52 45 54 55 52 4E 00 9B 1F 03 |...^. RETURN....|
00001B70: 12 3A 47 31 24 B2 22 41 45 4F 52 5E 22 3A 8D 35 |.:G1$."AEOR^":.5|
00001B80: 3A 58 31 B2 56 3A 8B 47 24 B3 B1 22 5E 22 A7 8D |:X1.V:.G$.."^"..|
00001B90: 33 3A 8B 47 24 B2 22 59 22 A7 8E 00 BD 1F 04 12 |3:.G$."Y".......|
00001BA0: 3A 91 20 58 31 20 8D 20 34 36 32 30 2C 34 36 32 |:. X1 . 4620,462|
00001BB0: 35 2C 34 36 31 35 2C 34 36 34 30 3A 8E 00 F3 1F |5,4615,4640:....|
00001BC0: 07 12 99 22 11 52 45 43 4F 52 44 20 23 3F 22 3A |...".RECORD #?":|
00001BD0: 58 B2 30 3A 58 31 B2 30 3A 58 32 B2 48 52 3A 8D |X.0:X1.0:X2.HR:.|
00001BE0: 20 34 39 30 30 3A 52 52 B2 58 3A 8D 20 32 37 30 | 4900:RR.X:. 270|
00001BF0: 30 3A 8E 00 03 20 0C 12 48 52 B2 30 3A 53 50 B2 |0:... ..HR.0:SP.|
00001C00: 31 3A 8E 00 26 20 11 12 98 4B 4B 28 52 56 29 2C |1:..& ...KK(RV),|
00001C10: 22 53 22 AA 44 52 24 28 52 56 29 AA 22 3A 44 42 |"S".DR$(RV).":DB|
00001C20: 3F 22 AA 4E 41 24 00 60 20 16 12 3A A0 20 52 41 |?".NA$.` ..:. RA|
00001C30: 3A 81 20 58 B2 31 20 A4 20 48 42 3A 98 4B 4B 28 |:. X.1 . HB:.KK(|
00001C40: 52 56 29 2C 22 42 2D 46 22 3B 44 52 28 52 56 29 |RV),"B-F";DR(RV)|
00001C50: 3B 54 25 28 58 29 3B 53 25 28 58 29 3A 82 20 58 |;T%(X);S%(X):. X|
00001C60: 00 82 20 1B 12 3A 58 24 B2 22 44 49 53 4B 20 4D |.. ..:X$."DISK M|
00001C70: 45 4E 55 22 3A 8D 20 39 32 30 30 3A 89 20 34 36 |ENU":. 9200:. 46|
00001C80: 33 35 00 BF 20 20 12 99 22 11 52 45 50 4C 41 43 |35.. ..".REPLAC|
00001C90: 45 20 47 4F 4F 44 20 44 41 54 41 20 44 49 53 4B |E GOOD DATA DISK|
00001CA0: 20 57 49 54 48 20 42 41 44 20 4F 4E 45 22 3A A0 | WITH BAD ONE":.|
00001CB0: 20 52 41 3A 8D 20 31 30 3A 8D 20 39 33 30 37 00 | RA:. 10:. 9307.|
00001CC0: EC 20 22 12 3A 57 52 B2 48 52 AA 31 3A 8D 20 34 |. ".:WR.HR.1:. 4|
00001CD0: 32 30 30 3A 8B 20 46 24 28 31 29 B2 C7 28 32 35 |200:. F$(1)..(25|
00001CE0: 35 29 A7 20 8D 20 31 36 30 30 3A 90 00 FE 20 25 |5). . 1600:... %|
00001CF0: 12 3A 8D 32 31 32 35 3A 89 20 34 36 34 32 00 0F |.:.2125:. 4642..|
00001D00: 21 24 13 8F 20 41 53 4B 20 4E 55 4D 42 45 52 00 |!$.. ASK NUMBER.|
00001D10: 40 21 2E 13 58 24 B2 CA 28 C4 28 58 29 2C 32 29 |@!..X$..(.(X),2)|
00001D20: 3A 8D 34 35 30 30 3A 58 B2 C5 28 58 24 29 3A 8B |:.4500:X..(X$):.|
00001D30: 58 B2 30 AF 58 24 B3 B1 22 30 22 A7 34 39 31 32 |X.0.X$.."0".4912|
00001D40: 00 53 21 2F 13 8B 58 B2 B1 58 31 AF 58 B2 B3 58 |.S!/..X..X1.X..X|
00001D50: 32 A7 8E 00 81 21 30 13 99 22 12 49 4C 4C 45 47 |2....!0..".ILLEG|
00001D60: 41 4C 20 45 4E 54 52 59 20 2D 20 50 4C 45 41 53 |AL ENTRY - PLEAS|
00001D70: 45 20 45 4E 54 45 52 20 41 20 4E 55 4D 42 45 52 |E ENTER A NUMBER|
00001D80: 22 00 A9 21 33 13 99 22 12 49 4E 20 54 48 45 20 |"..!3..".IN THE |
00001D90: 52 41 4E 47 45 20 4F 46 22 58 31 22 9D 20 54 4F |RANGE OF"X1". TO|
00001DA0: 22 58 32 3A 89 34 39 30 30 00 BA 21 EC 13 8F 20 |"X2:.4900..!... |
00001DB0: 43 48 55 4E 4B 20 44 4F 57 4E 00 FA 21 F1 13 3A |CHUNK DOWN..!..:|
00001DC0: 8F 20 20 20 20 20 20 20 46 4F 52 20 58 3D 42 52 |. FOR X=BR|
00001DD0: 20 54 4F 20 54 52 3A 50 4F 25 28 58 2D 31 2C 57 | TO TR:PO%(X-1,W|
00001DE0: 4B 29 3D 50 4F 25 28 58 2C 57 4B 29 3A 4E 45 58 |K)=PO%(X,WK):NEX|
00001DF0: 54 20 58 3A 52 45 54 55 52 4E 00 07 22 F3 13 8B |T X:RETURN.."...|
00001E00: 42 52 B1 54 52 A7 8E 00 26 22 F6 13 53 B2 42 52 |BR.TR...&"..S.BR|
00001E10: AC 32 3A 44 B2 28 42 52 AB 31 29 AC 32 3A 45 B2 |.2:D.(BR.1).2:E.|
00001E20: 28 54 52 29 AC 32 00 37 22 FB 13 8D 35 39 30 30 |(TR).2.7"...5900|
00001E30: 3A 9E 20 4D 4C 3A 8E 00 46 22 50 14 8F 20 43 48 |:. ML:..F"P.. CH|
00001E40: 55 4E 4B 20 55 50 00 89 22 55 14 8F 20 20 20 20 |UNK UP.."U.. |
00001E50: 46 4F 52 20 58 3D 54 52 20 54 4F 20 42 52 20 53 |FOR X=TR TO BR S|
00001E60: 54 45 50 2D 31 3A 50 4F 25 28 58 2B 31 2C 57 4B |TEP-1:PO%(X+1,WK|
00001E70: 29 3D 50 4F 25 28 58 2C 57 4B 29 3A 4E 45 58 54 |)=PO%(X,WK):NEXT|
00001E80: 20 58 3A 52 45 54 55 52 4E 00 AA 22 5A 14 53 B2 | X:RETURN.."Z.S.|
00001E90: 28 54 52 29 AC 32 3A 44 B2 28 54 52 AA 31 29 AC |(TR).2:D.(TR.1).|
00001EA0: 32 3A 45 B2 28 42 52 29 AC 32 00 BD 22 5F 14 8D |2:E.(BR).2.."_..|
00001EB0: 35 39 30 30 3A 9E 20 4D 4C AB 36 3A 8E 00 D0 22 |5900:. ML.6:..."|
00001EC0: B4 14 8F 20 46 49 4E 44 20 50 4F 49 4E 54 45 52 |... FIND POINTER|
00001ED0: 00 0A 23 B5 14 3A 8F 20 20 20 20 20 20 46 4F 52 |..#..:. FOR|
00001EE0: 20 46 52 3D 31 20 54 4F 20 48 52 3A 49 46 20 50 | FR=1 TO HR:IF P|
00001EF0: 4F 25 28 46 52 2C 57 4B 29 3C 3E 46 49 20 54 48 |O%(FR,WK)<>FI TH|
00001F00: 45 4E 20 4E 45 58 54 20 46 52 00 1D 23 B6 14 3A |EN NEXT FR..#..:|
00001F10: 8F 20 20 20 20 20 3A 52 45 54 55 52 4E 00 2D 23 |. :RETURN.-#|
00001F20: B9 14 53 B2 31 AC 32 3A 8D 35 39 30 30 00 59 23 |..S.1.2:.5900.Y#|
00001F30: BE 14 97 20 42 37 AA 32 2C 46 49 AD 32 35 36 3A |... B7.2,FI.256:|
00001F40: 97 20 42 37 AA 33 2C 46 49 20 AF 20 32 35 35 3A |. B7.3,FI . 255:|
00001F50: 8F 20 48 49 20 4C 4F 20 21 00 77 23 C3 14 97 20 |. HI LO !.w#... |
00001F60: 42 37 AA 34 2C 31 3A 97 20 42 37 AA 35 2C 30 3A |B7.4,1:. B7.5,0:|
00001F70: 8F 20 4C 4F 20 48 49 00 A3 23 C5 14 97 20 42 37 |. LO HI..#... B7|
00001F80: AA 36 2C 48 52 AD 32 35 36 3A 97 20 42 37 AA 37 |.6,HR.256:. B7.7|
00001F90: 2C 48 52 20 AF 20 32 35 35 3A 8F 20 48 49 20 4C |,HR . 255:. HI L|
00001FA0: 4F 20 21 00 C9 23 C8 14 9E 20 4D 4C AA 31 30 34 |O !..#... ML.104|
00001FB0: 3A 46 52 B2 C2 28 42 37 AA 34 29 AA 32 35 36 AC |:FR..(B7.4).256.|
00001FC0: C2 28 42 37 AA 35 29 3A 8E 00 D4 23 18 15 8F 20 |.(B7.5):...#... |
00001FD0: 53 4E 41 50 00 01 24 22 15 A0 20 50 52 3A 9F 20 |SNAP..$".. PR:. |
00001FE0: 50 52 2C 50 55 3A 50 44 B2 50 55 3A 57 50 B2 30 |PR,PU:PD.PU:WP.0|
00001FF0: 3A 41 43 B2 30 3A 8D 35 38 30 30 3A 8D 33 35 30 |:AC.0:.5800:.350|
00002000: 30 00 1F 24 27 15 44 4E 24 B2 22 22 3A A0 20 50 |0..$'.DN$."":. P|
00002010: 52 3A 9F 20 50 52 2C 33 3A 50 44 B2 33 3A 8E 00 |R:. PR,3:PD.3:..|
00002020: 2F 24 A8 16 8F 20 50 4F 4B 45 20 43 41 53 45 00 |/$... POKE CASE.|
00002030: 69 24 AD 16 97 20 42 37 AA 32 2C 30 3A 8B 20 41 |i$... B7.2,0:. A|
00002040: 43 B3 B1 30 20 A7 20 97 20 42 37 AA 32 2C 31 32 |C..0 . . B7.2,12|
00002050: 38 3A 8F 20 41 4C 4C 20 43 41 50 53 20 49 4E 20 |8:. ALL CAPS IN |
00002060: 4D 49 58 20 46 4F 52 4D 54 00 9E 24 B2 16 97 42 |MIX FORMT..$...B|
00002070: 37 AA 33 2C 30 3A 8B 20 57 50 B3 B1 30 20 AF 20 |7.3,0:. WP..0 . |
00002080: 4D 43 B2 30 20 A7 20 97 20 42 37 AA 33 2C 31 32 |MC.0 . . B7.3,12|
00002090: 38 3A 8F 20 57 50 20 4E 4F 54 2D 4D 49 58 00 AA |8:. WP NOT-MIX..|
000020A0: 24 B7 16 97 42 37 AA 34 2C 30 00 E8 24 B9 16 3A |$...B7.4,0..$..:|
000020B0: 8B 20 50 44 B2 50 55 20 AF 20 43 50 B2 30 20 AF |. PD.PU . CP.0 .|
000020C0: 20 4D 43 B3 B1 30 20 A7 20 97 20 42 37 AA 33 2C | MC..0 . . B7.3,|
000020D0: 31 32 38 3A 97 20 42 37 AA 34 2C 31 36 30 3A 8F |128:. B7.4,160:.|
000020E0: 20 41 53 43 20 4D 49 58 00 1F 25 BC 16 44 4E 24 | ASC MIX..%..DN$|
000020F0: B2 22 22 3A 8B 20 50 44 B2 50 55 20 AF 20 43 50 |."":. PD.PU . CP|
00002100: B3 B1 30 20 AF 20 4D 43 B3 B1 30 20 A7 20 44 4E |..0 . MC..0 . DN|
00002110: 24 B2 22 11 22 3A 8F 20 43 42 4D 20 4D 49 58 00 |$.".":. CBM MIX.|
00002120: 25 25 C1 16 8E 00 59 25 C6 16 8F 20 4F 52 41 20 |%%....Y%... ORA |
00002130: 42 37 2B 32 2C 45 4F 52 20 42 37 2B 33 2C 43 4D |B7+2,EOR B7+3,CM|
00002140: 50 23 31 32 38 2C 49 46 20 47 45 2C 45 4F 52 20 |P#128,IF GE,EOR |
00002150: 42 37 2B 34 2C 54 48 45 4E 00 6B 25 0C 17 8F 20 |B7+4,THEN.k%... |
00002160: 50 41 53 53 20 50 41 52 41 4D 53 00 81 25 11 17 |PASS PARAMS..%..|
00002170: 50 4F 25 28 30 2C 30 29 B2 35 AA 32 35 36 AC 31 |PO%(0,0).5.256.1|
00002180: 30 00 B2 25 16 17 58 B2 C2 28 5A 56 AA 32 29 AA |0..%..X..(ZV.2).|
00002190: 32 35 36 AC C2 28 5A 56 AA 33 29 AA 39 AA 41 4F |256..(ZV.3).9.AO|
000021A0: 3A 8F 20 50 4F 53 20 4F 46 20 50 4F 25 28 30 2C |:. POS OF PO%(0,|
000021B0: 30 29 00 E4 25 1B 17 58 B2 58 AA 28 4D 52 AA 31 |0)..%..X.X.(MR.1|
000021C0: 29 AC 32 AC 57 4B 3A 8F 20 50 4F 53 20 4F 46 20 |).2.WK:. POS OF |
000021D0: 50 4F 25 28 30 2C 57 4B 29 20 48 49 20 4C 4F 20 |PO%(0,WK) HI LO |
000021E0: 42 59 54 45 00 08 26 20 17 97 20 42 37 2C 28 58 |BYTE..& .. B7,(X|
000021F0: AA 53 29 AF 32 35 35 3A 97 20 42 37 AA 31 2C 28 |.S).255:. B7.1,(|
00002200: 58 AA 53 29 AD 32 35 36 00 2E 26 25 17 97 20 42 |X.S).256..&%.. B|
00002210: 37 AA 32 2C 28 58 AA 44 29 AF 32 35 35 3A 97 20 |7.2,(X.D).255:. |
00002220: 42 37 AA 33 2C 28 58 AA 44 29 AD 32 35 36 00 54 |B7.3,(X.D).256.T|
00002230: 26 2A 17 97 20 42 37 AA 34 2C 28 58 AA 45 29 AF |&*.. B7.4,(X.E).|
00002240: 32 35 35 3A 97 20 42 37 AA 35 2C 28 58 AA 45 29 |255:. B7.5,(X.E)|
00002250: AD 32 35 36 00 5A 26 2F 17 8E 00 69 26 D4 17 8F |.256.Z&/...i&...|
00002260: 20 55 53 45 52 20 53 55 42 00 7F 26 D9 17 99 22 | USER SUB..&..."|
00002270: 11 12 55 53 45 52 20 52 4F 55 54 49 4E 45 22 00 |..USER ROUTINE".|
00002280: B4 26 DE 17 99 22 41 52 45 20 59 4F 55 20 53 55 |.&..."ARE YOU SU|
00002290: 52 45 3F 28 12 59 92 2F 12 4E 92 29 22 3A 47 31 |RE?(.Y./.N.)":G1|
000022A0: 24 B2 22 59 4E 22 3A 8D 35 3A 8B 47 24 B2 22 4E |$."YN":.5:.G$."N|
000022B0: 22 A7 20 8E 00 D3 26 E3 17 81 20 52 52 B2 31 20 |". ...&... RR.1 |
000022C0: A4 20 48 52 3A 8F 20 53 4F 52 54 45 44 20 4F 52 |. HR:. SORTED OR|
000022D0: 44 45 52 00 F8 26 E8 17 3A 57 52 B2 50 4F 25 28 |DER..&..:WR.PO%(|
000022E0: 52 52 2C 57 4B 29 3A 8F 20 50 48 59 53 20 50 4F |RR,WK):. PHYS PO|
000022F0: 53 20 4F 46 20 52 45 43 00 0F 27 ED 17 3A 8D 20 |S OF REC..'..:. |
00002300: 34 32 30 30 3A 8F 20 52 45 41 44 20 52 45 43 00 |4200:. READ REC.|
00002310: 2F 27 F2 17 3A 8F 20 46 24 28 32 29 3D 53 54 52 |/'..:. F$(2)=STR|
00002320: 24 28 56 41 4C 28 46 24 28 32 29 29 2B 35 29 00 |$(VAL(F$(2))+5).|
00002330: 59 27 F7 17 3A 8F 20 47 4F 53 55 42 20 36 32 30 |Y'..:. GOSUB 620|
00002340: 30 3A 52 45 4D 20 55 50 50 45 52 20 43 41 53 45 |0:REM UPPER CASE|
00002350: 20 54 4F 20 4D 49 58 45 44 00 80 27 FC 17 3A 20 | TO MIXED..'..: |
00002360: 4C B2 30 3A 81 20 58 B2 31 A4 20 48 46 3A 4C B2 |L.0:. X.1. HF:L.|
00002370: 4C AA C3 28 46 24 28 58 29 29 AA 32 3A 82 20 58 |L..(F$(X)).2:. X|
00002380: 00 A6 27 01 18 3A 8B 20 4C B1 52 53 20 A7 20 99 |..'..:. L.RS . .|
00002390: 22 12 52 45 43 20 54 4F 4F 20 4C 4F 4E 47 22 3A |".REC TOO LONG":|
000023A0: 8D 20 33 37 30 30 00 CD 27 06 18 3A 8D 20 33 35 |. 3700..'..:. 35|
000023B0: 30 30 3A 8D 20 34 31 30 30 3A 8F 20 44 49 53 50 |00:. 4100:. DISP|
000023C0: 4C 41 59 2C 57 52 49 54 45 20 52 45 43 00 DD 27 |LAY,WRITE REC..'|
000023D0: 0B 18 82 20 52 52 3A 53 50 B2 31 3A 8E 00 EB 27 |... RR:SP.1:...'|
000023E0: 38 18 8F 20 55 50 3E 42 4F 54 48 00 1B 28 3D 18 |8.. UP>BOTH..(=.|
000023F0: 50 35 B2 31 34 3A 97 35 39 34 36 38 2C 50 35 3A |P5.14:.59468,P5:|
00002400: 81 20 57 46 B2 31 A4 48 46 3A 46 24 B2 46 24 28 |. WF.1.HF:F$.F$(|
00002410: 57 46 29 3A 4C B2 C3 28 46 24 29 00 44 28 42 18 |WF):L..(F$).D(B.|
00002420: 3A 81 20 58 B2 31 20 A4 20 4C 3A 8B 20 CA 28 22 |:. X.1 . L:. .("|
00002430: 20 22 AA 46 24 2C 58 2C 31 29 B3 B1 22 20 22 A7 | ".F$,X,1).." ".|
00002440: 36 32 32 35 00 72 28 47 18 3A 20 41 B2 C6 28 CA |6225.r(G.: A..(.|
00002450: 28 46 24 AA 22 3F 22 2C 58 2C 31 29 29 3A 8B 20 |(F$."?",X,1)):. |
00002460: 41 B3 36 35 20 B0 20 41 B1 39 30 20 A7 20 36 32 |A.65 . A.90 . 62|
00002470: 32 35 00 98 28 4C 18 3A 46 24 B2 C8 28 46 24 2C |25..(L.:F$..(F$,|
00002480: 58 AB 31 29 AA C7 28 41 20 B0 31 32 38 29 AA CA |X.1)..(A .128)..|
00002490: 28 46 24 2C 58 AA 31 29 00 B5 28 51 18 82 58 3A |(F$,X.1)..(Q..X:|
000024A0: 46 24 28 57 46 29 B2 46 24 3A 82 20 57 46 3A 4D |F$(WF).F$:. WF:M|
000024B0: 43 B2 31 3A 8E 00 C4 28 9C 18 8F 20 41 4C 4C 20 |C.1:...(... ALL |
000024C0: 43 41 50 53 00 F4 28 A1 18 50 35 B2 31 32 3A 97 |CAPS..(..P5.12:.|
000024D0: 35 39 34 36 38 2C 50 35 3A 81 20 57 46 B2 31 A4 |59468,P5:. WF.1.|
000024E0: 48 46 3A 46 24 B2 46 24 28 57 46 29 3A 4C B2 C3 |HF:F$.F$(WF):L..|
000024F0: 28 46 24 29 00 04 29 A6 18 3A 81 20 58 B2 31 20 |(F$)..)..:. X.1 |
00002500: A4 20 4C 3A 00 3A 29 AB 18 3A 20 41 B2 C6 28 CA |. L:.:)..: A..(.|
00002510: 28 46 24 AA 22 3F 22 2C 58 2C 31 29 29 3A 8B 20 |(F$."?",X,1)):. |
00002520: 41 B3 36 35 AA 31 32 38 20 B0 20 41 B1 39 30 AA |A.65.128 . A.90.|
00002530: 31 32 38 20 A7 20 36 33 32 35 00 60 29 B0 18 3A |128 . 6325.`)..:|
00002540: 46 24 B2 C8 28 46 24 2C 58 AB 31 29 AA C7 28 41 |F$..(F$,X.1)..(A|
00002550: 20 AF 31 32 37 29 AA CA 28 46 24 2C 58 AA 31 29 | .127)..(F$,X.1)|
00002560: 00 78 29 B5 18 82 58 3A 46 24 28 57 46 29 B2 46 |.x)...X:F$(WF).F|
00002570: 24 3A 82 20 57 46 3A 8E 00 88 29 F0 23 8F 20 4C |$:. WF:...).#. L|
00002580: 4F 41 44 20 50 52 4F 47 00 BF 29 F1 23 A0 20 52 |OAD PROG..).#. R|
00002590: 41 3A 8B 20 44 54 B2 31 20 AF 20 52 56 B2 31 20 |A:. DT.1 . RV.1 |
000025A0: A7 20 99 22 11 12 49 4E 53 45 52 54 20 50 52 4F |. ."..INSERT PRO|
000025B0: 47 52 41 4D 20 44 49 53 4B 22 3A 8D 20 31 30 00 |GRAM DISK":. 10.|
000025C0: E2 29 F5 23 98 4B 4B 28 30 29 2C 22 49 30 22 3A |.).#.KK(0),"I0":|
000025D0: 99 22 11 28 4C 4F 41 44 49 4E 47 20 22 58 24 22 |.".(LOADING "X$"|
000025E0: 29 22 00 15 2A FA 23 9F 20 53 45 2C 38 2C 53 45 |)"..*.#. SE,8,SE|
000025F0: 2C 22 30 3A 22 AA 58 24 AA 22 2C 50 2C 52 22 3A |,"0:".X$.",P,R":|
00002600: 56 4F B2 30 3A 8D 20 38 3A A0 20 53 45 3A 8B 20 |VO.0:. 8:. SE:. |
00002610: 45 20 A7 20 8E 00 2C 2A FF 23 8B 20 4C 49 B3 32 |E . ..,*.#. LI.2|
00002620: 35 33 20 A7 20 97 20 49 56 2C 4C 49 00 3E 2A 04 |53 . . IV,LI.>*.|
00002630: 24 93 20 22 30 3A 22 AA 58 24 2C 38 3A 90 00 4C |$. "0:".X$,8:..L|
00002640: 2A 54 24 8F 20 4F 50 45 4E 20 52 41 00 7B 2A 59 |*T$. OPEN RA.{*Y|
00002650: 24 8B 20 44 54 B2 31 20 AF 20 52 56 B2 31 20 A7 |$. DT.1 . RV.1 .|
00002660: 20 99 22 11 12 49 4E 53 45 52 54 20 44 41 54 41 | ."..INSERT DATA|
00002670: 20 44 49 53 4B 22 3A 8D 20 31 30 00 AD 2A 5B 24 | DISK":. 10..*[$|
00002680: 98 4B 4B 28 52 56 29 2C 22 49 22 44 52 24 28 52 |.KK(RV),"I"DR$(R|
00002690: 56 29 3A 8F 20 45 4E 54 52 59 20 50 4F 49 4E 54 |V):. ENTRY POINT|
000026A0: 20 46 52 4F 4D 20 34 36 30 30 21 21 21 00 E3 2A | FROM 4600!!!..*|
000026B0: 5E 24 9F 20 53 45 2C 44 56 28 52 56 29 2C 53 45 |^$. SE,DV(RV),SE|
000026C0: 2C 44 52 24 28 52 56 29 AA 22 3A 44 42 22 AA C7 |,DR$(RV).":DB"..|
000026D0: 28 33 34 AA 31 32 38 29 AA 4E 41 24 AA 22 2C 53 |(34.128).NA$.",S|
000026E0: 2C 52 22 00 01 2B 60 24 56 4F B2 52 56 3A 8D 20 |,R"..+`$VO.RV:. |
000026F0: 38 3A A0 20 53 45 3A 8B 20 45 20 A7 20 39 33 30 |8:. SE:. E . 930|
00002700: 35 00 1F 2B 63 24 9F 20 52 41 2C 44 56 28 52 56 |5..+c$. RA,DV(RV|
00002710: 29 2C 52 41 2C 22 23 22 3A 42 4C B2 30 3A 8E 00 |),RA,"#":BL.0:..|
00002720: 00 00 |.. |
....... DATA BASE 46 12/18.%.... 1100.X.
... 15,8,15,"I0":.15,"S0:DIRECT":."0:DIR
ECT",8:......."CORRECTIONS?(.Y./.N.)":G1
$."YN":. 5:.......4,4:.4:.......G$:.V.1.
C(G1$):.G$..J(G1$,V,1)..V:.5.B..........
KK(VO),E,E$,S,T:.E.2........"DISK ERROR:
"E;E$;S;T......"..R.EADY?":G1$."R":.5:..
".... MAIN.4.... SHOW FIELDS.?.... EXIT.
K.... LOWER.[.... SAVE BOOK.L.... ADD RE
CORD...... CHANGE RECORD...... NEXT,PREV
,GOTO,FIND.....ADD...... DELE REC.B....
KEY CHANGE.N.... LIMIT...!.. BINARY SEAR
CH...#.. DISPLAY REC...%.. ASK REC...&..
BROWSE.!.).. WRITE A REC.5.*.. READ A R
ECORD.L.+.. POSITION POINTER.[.-.. GARD
INP.F.... WIPE.W.1.. ASK NUMBER...3.. CH
UNK DOWN...4.. CHUNK UP...5.. FIND POINT
ER...6.. SNAP.E.:.. POKE CASE.W.;.. PASS
PARAMS...=.. USER SUB...>.. UP+LO...]..
OPEN RA.........L.. MAIN.*.M.. LI.253 .
. IV,LI.3.M.Q.. 9300: PR:. PR,3:PD.3:D
N$."".Y.V.RR.0:.". .DIRECT FILE MA
INTENANCE...X..".MAXIMUM RECORDS:"MR;R$"
MAXIMUM CHARACTERS/RECORD:"RS.U.Y.."CURR
ENT NO OF RECORDS:"HR...[.X$."":. FF . X
$.",.U.SER".5.].."..A.DD,.R.EPL,.C.HANGE
,.D.EL,.N.EXT,.P.REV,.G.OTO,.F.IND,";.N.
`..".B.ROWSE,.K.EY"X$",.W.IPE,.L.IMIT,.S
.NAP,.^.RETURN...E.G1$."ARCDNPGF"."BKKWL
S^":. FF . G1$."ARCDNPGF"."BKUWLS^"...G.
:. 5:.".";...J.. V . 250
0,2500,2200,2700,2300,2300,2300,2300.5.O
.. V. 8 . . V.8 . 3800,2800,6100,4600,2
900,5400,1600.@.T.. 1115.R.... SHOW FIEL
DS......"FIELDS:":. WF.1.HF:.WF":"FT$(WF
)" ";:.WF:.:....@.. EXIT...A.PD.PU:. S
P . . 1900.P.J. PR:X$."FILE MENU":. 920
0:. 1601...... LOWER.....P5.12.14.P5:.59
468,P5:.".";:SP.1:....L.. SAVE BOOK.C.Q.
SE:UK.WK:.".(SCRATCHING OLD BOOKKEEPIN
G)".Q.V.:.KK(RV),"S".DR$(RV).":DB.".NA$:
VO.RV:. 8...|.. SE,DV(RV),SE,DR$(RV).":D
B.".NA$.",S,W":VO.RV:. 8:.E . .......SE,
MR;R$HR;R$RS;R$HB;R$HF;R$SF;R$RB;R$HK;R$
WK;R$DK;R$DE;R$MC;R$;...... WF.1 . HF:.S
E,Q$;FT$(WF);R$;:. WF.I.... D.0.5:. X.0.
HK:.SE,SF%(X,D);R$;:. X,D.B...."(SAVING
POINTERS)".....:. X.0.HK:. RR.1 . HR:.SE
,PO%(RR,X);R$;:. RR:.X.D.... R3 . ."(SAV
ING BLOCK MAP)":. X.1.10:. X.....:. R3 .
. WB.1 . HB:.SE," "T%(WB)R$" "S%(WB)R$;
:.WB......R4.N#(RA):M#(RA),("RA.".NA$),L
(RS),D(DR(RV)).O....X.1.HF:.SE," "MF%(X)
;R$;:.X.I...SP.0: SE:VO.RV:. 8:..Z.4..
ADD RECORD...9.. DD . ."..DEALER DEMO CA
NT ADD":..C.>.E.0:.HR.MR . ."OUT OF ROOM
":....C.."(ADDING RECORD#"HR.1".)"...H.W
R.HR.1:.4100:. E . .:. ASK,WRITE.=.M.SP.
1:UK.WK:. WK.0.HK:FI$."":. ENTRY FOR 460
0!!!!.~.R.:. D.1 . SF%(WK,0):FI$.FI$.F$(
SF%(WK,D)).Z$:. D:. 3300:.SRCH...W.:. FR
.HR.1 . BR.FR:TR.HR:. 5200:. CHUNK UP.P.
\.:PO%(FR,WK).HR.1:.WK.UK. RR.FR...A.. W
K:HR.HR.1:WK.UK...F..:. WRT,DISP...... C
HANGE RECORD.7...."..CHANGE RECORD#"RR:.
RR.1. RR.HR . ..O...WR.PO%(RR,WK):.1300.
....."WHICH FIELD? (ENTER 0 FOR ALL)":X1
.0:X2.HF:X.FC:.4900:FC.X.D...CR.1:. 3700
:CR.0:. CK.0 . . 4100:. 3500:.:. ASK....
.SP.1:UR.WR:UK.WK:.EMBER WR,WK......WK.0
.HK.....:FI.UR:.5300:BR.FR.1:TR.HR:HR.HR
.1.7...:.BR..TR..5100:. DEL PTR.U...:FI$
."":. D.1.SF%(WK,0):FI$.FI$.F$(SF%(WK,D)
).Z$:.D:.3300.....:BR.FR:TR.HR:.BR..TR.
.5200:. INSRT FOR NEW PNT.N...:HR.HR.1:P
O%(FR,WK).UR:. NEW PTR......WK:WR.UR:. 4
100:. NEW REC...E.WK.UK:FI.WR:.5300:RR.F
R:.3500:..+.... NEXT,PREV,GOTO,FIND.H...
. HR.0 . ."EMPTY FILE":..^.... G$."N" .R
R.RR.1.T.... G$."P" .RR.RR.1......G$."G"
. ."GOTO RECORD#":X.0:X1.1:X2.HR:. 4900:
RR.X......G$.."F". 2332.....:.".FIND REC
ORD":FI$."":. X.1 . SF%(WK,0):.FT$(SF%(W
K,X))"?".....:X$."":.4500.D...:FI$.FI$.X
$.Z$:.:. X:. 3300:RR.FR:. BIN SEARCH.W..
..RR.HR . RR.HR.H....RR.1 . RR.1...$.WR.
PO%(RR,WK):. 4200:. 3500:. READ, DISPLAY
...)...S.D..".":. G$.."R". . WF.1 . HF:F
$(WF)."":. WF:. ADD......3700:.2100:.350
0:....... DELE REC...... RR.1 . RR.HR .
..L...."DELETE REC #"RR".?(.Y./.N.)":G1$
."YN":.5:. G$."N". .....UK.WK:UR.PO%(RR
,WK):.EMBER KEY,PHYS POS OF REC.....WR.H
R:.WR..UR..4200:WR.UR:.4100:. E ..:.TOP>
HOLE.A....WK.0.HK... .: FI.UR:. 5300:BR.
FR.1:TR.HR:. 5100:. DEL POINTER.<...: FI
.HR:. 5300:PO%(FR,WK).UR:. POINTER TO TO
P NOW POINTS TO HOLE.Z.... WK:WK.UK:HR.H
R.1:SP.1:..K.... KEY CHANGE......"KEYS:"
:.X.0.HK:."."X.1".. ";.A...:. D.1.SF%(X,
0):.FT$(SF%(X,D))":";:.D:.". ":.X......"
.WHICH KEY DO YOU WANT TO USE?".....X1.1
:X2.HK.1:X.WK.1:.4900:WK.X.1.........T..
LIMIT.].Y..1300:.".WHICH FIELD DO YOU W
ANT TO LIMIT?"R$"(0 FOR NONE)...^.X.0:X1
.0:X2.HF:. 4900:WF.X:. WF.0 . ..E.C.."MA
X NO CHARACTERS ALLOWED?":X.MF%(WF):X1.1
:X2.79:. 4900...H.MF%(WF).X:.".";:......
. BINARY SEARCH.....TL.0:TH.HR.1:. TOO L
OW, TOO HIGH.)....TH.TL.1.FR.TH:..A...:P
%.(TL.TH).2..1:WR.PO%(P%,WK):. R4 . . 33
50:. 3317.....:. 4300:. X.1 . DK:.RA,X$(
X):. X:FO$."".....:.X.1.SF%(WK,0):FO$.FO
$.X$(SF%(WK,X)).Z$:.X.....:. FI$..FO$ .
TH.P%:.3310.....:TL.P%:.3310.(...L.1:.X.
1.DK:O#(RA),(WR),(L):.RA,X$(X):L.L.C(X$(
X)).2:.X.......@.... DISPLAY REC.S....RR
.HR . RR.1 . ."RECORD#"RR"DOES NOT EXIST
":......X$."KEY#".D(WK.1)." RECORD#".D
(RR):. PD.3 .."..";......PR,DN$X$R$LF$;.
..... WF.1 . HF:X$.FT$(WF).":":.PD.3.X$.
".".X$."."...B.:.C(X$).15.MT..2.X$.H(X$.
SP$,15).>.E.:X1$.R$:.I(FT$(WF),1)." ".X1
$." ".{.G.:LL$.I(SP$.D(WF),2)." ".X$.F$
(WF).X1$.LF$:.PD..3..ML.153...J.:.PR,DN$
LL$;:. WF.20 . HF.20 . . 10.D.O.. WF:X$.
" ".R$.LF$:.PR,X$;:..W.T.CK.0:. ASK REC.
..~.L.0:. WF.1 . HF:X$.F$(WF).....:. CR
. . FC . . WF..FC . .3745.2...: . FT$(WF
)":":.4500.S...: X.C(X$).MF%(WF):.X.1. 3
730.....: .G(7)".FIELD TOO LONG BY"X".
CHARACTERS":F$(WF).X$:.3720.....: .X$.F$
(WF).3745.....: .X2.0.HK:.D.1.SF%(X2,0)
:CK.CK . (WF.SF%(X2,D)):.D,X2.....:L.L.C
(X$).2:F$(WF).X$./.... WF:. L.RS . ."REC
TOO LARGE":FC.0:. 3710.N.... CR.0. .3:.
G$."Y" . 3710.T.....A.X.. BROWSE.M.Z..H
R.1........RR.HR.RR.1.RR.1......1300:."#
OF FIELD TO VIEW:":X1.0:X2.HF:X.BF:. 49
00:BF.X......".";:.RR.RR.HR:WR.PO%(RR,WK
):.4200:.RR".";.&...:.D.1.SF%(WK,0):.F$(
SF%(WK,D))":";:.D:.".. "F$(BF).:....G$:.
G$."".. RR.@.....R.... WRITE A REC.}...X
$."":. X.1 . HF:X$.X$.Q$.F$(X).R$:. X. .
... R4 . O#(RA),(WR):.(RA),X$;:....".. 4
300:.RA,X$;...'..KK(RV),"U2:"RA;DR(RV);T
%(BL);S%(BL):VO.RV:. 8:....H.. READ A RE
CORD.,.M.. R3 . . 4300:. WF.1 . HF:.RA,F
$(WF):. WF:..H.R.L.1:.X.1.HF:O#(RA),(WR)
,(L):.RA,F$(X):L.L.C(F$(X)).2:.X.N.W....
.L.. POSITION POINTER...Q.BL..((WR.1).RB
..00001).1.Y.T..KK(RV),"U1:"RA;DR(RV);T%
(BL);S%(BL):VO.RV:.8:.E.......X.(WR.1).(
BL.1).RB:. NO. RECS BEFOR THIS IN THIS B
LOCK.9...BP.1.RS.X:.KK(RV),"B-P:";RA;BP:
..^....X$H(LE$,C(X$));:CX.1:. GARD INP..
...M$.J(X$." ",CX,1):."."M$"..";:.G$:.G$
.""..4565.D...:A.F(G$):.M$".";:.(A . 127
).32.CX.77.A.34.4520.....: .G$;:X$.H(X$,
CX.1).G$.J(X$,CX.1):CX.CX.1:.4505.#...:.
A.157..CX.1.CX.CX.1:.G$;:.4505:. LF.N...
:.A.29.CX..C(X$).CX.CX.1:.G$;:.4505:RI.D
...:.A.13.4580:. RET.....:.A.20..CX.1..G
$;:X$.H(X$,CX.2).J(X$,CX):CX.CX.1.....:.
A.148.C(X$).78..4555.Y.A.:.A.147.L.C(X$)
:.4560:CX.1:X$.""...F.:.4505...K.X$.H(X$
,CX.1)." ".J(X$,CX):.G$" .";:.:. IN.<.P.
.H(LE$,CX.1)H(SP$,L)H(LE$,L);:.:. CL.J.U
.."."M$"..";:.W.1.50:.G$:.G$..""..M$".";
:....Z.:.W:.M$".";:.W.1.50:.G$:.G$..""..
.....:.W:.4565......H(X$,1)." ".X$.J(X$,
2):.4580.....:.I(X$,1)." ".X$.H(X$,C(X$)
.1):.4585.....:.:....... WIPE.1...:.".WI
PE:"R$"...O.NE RECORD"R$"...A.LL RECORDS
".L...:."...E.NTIRE FILE"R$"...R.ECOVER
BOOK"R$"...^. RETURN.....:G1$."AEOR^":.5
:X1.V:.G$.."^"..3:.G$."Y".......:. X1 .
4620,4625,4615,4640:.......".RECORD #?":
X.0:X1.0:X2.HR:. 4900:RR.X:. 2700:... ..
HR.0:SP.1:..& ...KK(RV),"S".DR$(RV).":DB
?".NA$.` ..: RA:. X.1 . HB:.KK(RV),"B-F
";DR(RV);T%(X);S%(X):. X.. ..:X$."DISK M
ENU":. 9200:. 4635.. ..".REPLACE GOOD D
ATA DISK WITH BAD ONE": RA:. 10:. 9307.
. ".:WR.HR.1:. 4200:. F$(1).G(255). . 16
00:... %.:.2125:. 4642..!$.. ASK NUMBER.
@!..X$.J(D(X),2):.4500:X.E(X$):.X.0.X$..
"0".4912.S!/..X..X1.X..X2....!0..".ILLEG
AL ENTRY - PLEASE ENTER A NUMBER"..!3.."
.IN THE RANGE OF"X1". TO"X2:.4900..!...
CHUNK DOWN..!..:. FOR X=BR TO TR:P
O%(X-1,WK)=PO%(X,WK):NEXT X:RETURN.."...
BR.TR...&"..S.BR.2:D.(BR.1).2:E.(TR).2.7
"...5900:. ML:..F"P.. CHUNK UP.."U..
FOR X=TR TO BR STEP-1:PO%(X+1,WK)=PO%(X,
WK):NEXT X:RETURN.."Z.S.(TR).2:D.(TR.1).
2:E.(BR).2.."_..5900:. ML.6:..P"... FIND
POINTER..#..:. FOR FR=1 TO HR:IF P
O%(FR,WK)<>FI THEN NEXT FR..#..:. :R
ETURN.-#..S.1.2:.5900.Y#... B7.2,FI.256:
. B7.3,FI . 255:. HI LO !.W#C.. B7.4,1:.
B7.5,0:. LO HI..#E.. B7.6,HR.256:. B7.7
,HR . 255:. HI LO !.I#H.. ML.104:FR.B(B7
.4).256.B(B7.5):..T#... SNAP..$". PR:.
PR,PU:PD.PU:WP.0:AC.0:.5800:.3500..$'.DN
$."": PR:. PR,3:PD.3:../$... POKE CASE.
I$... B7.2,0:. AC..0 . . B7.2,128:. ALL
CAPS IN MIX FORMT..$...B7.3,0:. WP..0 .
MC.0 . . B7.3,128:. WP NOT-MIX..$...B7.4
,0..$..:. PD.PU . CP.0 . MC..0 . . B7.3,
128:. B7.4,160:. ASC MIX..%..DN$."":. PD
.PU . CP..0 . MC..0 . DN$.".":. CBM MIX.
%%A...Y%F.. ORA B7+2,EOR B7+3,CMP#128,IF
GE,EOR B7+4,THEN.K%... PASS PARAMS..%..
PO%(0,0).5.256.10..%..X.B(ZV.2).256.B(ZV
.3).9.AO:. POS OF PO%(0,0)..%..X.X.(MR.1
).2.WK:. POS OF PO%(0,WK) HI LO BYTE..&
.. B7,(X.S).255:. B7.1,(X.S).256..&%.. B
7.2,(X.D).255:. B7.3,(X.D).256.T&*.. B7.
4,(X.E).255:. B7.5,(X.E).256.Z&/...I&T..
USER SUB.&Y.."..USER ROUTINE"..&..."AR
E YOU SURE?(.Y./.N.)":G1$."YN":.5:.G$."N
". ..S&... RR.1 . HR:. SORTED ORDER..&..
:WR.PO%(RR,WK):. PHYS POS OF REC..'..:.
4200:. READ REC./'..:. F$(2)=STR$(VAL(F$
(2))+5).Y'..:. GOSUB 6200:REM UPPER CASE
TO MIXED..'..: L.0:. X.1. HF:L.L.C(F$(X
)).2:. X..'..:. L.RS . .".REC TOO LONG":
. 3700.M'..:. 3500:. 4100:. DISPLAY,WRIT
E REC..'... RR:SP.1:...'8.. UP>BOTH..(=.
P5.14:.59468,P5:. WF.1.HF:F$.F$(WF):L.C(
F$).D(B.:. X.1 . L:. J(" ".F$,X,1).." ".
6225.R(G.: A.F(J(F$."?",X,1)):. A.65 . A
.90 . 6225..(L.:F$.H(F$,X.1).G(A .128).J
(F$,X.1)..(Q..X:F$(WF).F$:. WF:MC.1:..D(
... ALL CAPS..(..P5.12:.59468,P5:. WF.1.
HF:F$.F$(WF):L.C(F$)..)..:. X.1 . L:.:).
.: A.F(J(F$."?",X,1)):. A.65.128 . A.90.
128 . 6325.`)..:F$.H(F$,X.1).G(A .127).J
(F$,X.1).X)...X:F$(WF).F$:. WF:...).#. L
OAD PROG..).# RA:. DT.1 . RV.1 . ."..IN
SERT PROGRAM DISK":. 10..).#.KK(0),"I0":
.".(LOADING "X$")"..*.#. SE,8,SE,"0:".X$
.",P,R":VO.0:. 8: SE:. E . ..,*.#. LI.2
53 . . IV,LI.>*.$. "0:".X$,8:..L*T$. OPE
N RA.{*Y$. DT.1 . RV.1 . ."..INSERT DATA
DISK":. 10..*[$.KK(RV),"I"DR$(RV):. ENT
RY POINT FROM 4600!!!..*^$. SE,DV(RV),SE
,DR$(RV).":DB".G(34.128).NA$.",S,R"..+`$
VO.RV:. 8: SE:. E . 9305..+C$. RA,DV(RV
),RA,"#":BL.0:....
> CLICK IMAGE PREVIEW FOR FULL MODAL