INQUIRE
FILE INFORMATION
FILENAME(S): INQUIRE
FILE TYPE(S): PRG
FILE SIZE: 25.1K
FIRST SEEN: 2025-11-30 21:23:47
APPEARS ON: 1 disk(s)
FILE HASH
c79cf489e201073c40a7f3fca11c18976b1d30628e03ace57c92e13d95cb586a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 153 1 | INQUIRE | PRG | DuncanTwain | 29 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3D 08 01 00 9C 3A 99 22 93 11 20 53 59 53 |..=....:.".. SYS|
00000010: 54 45 4D 20 4F 4B 2E 2E 2E 22 3A 97 36 38 30 2C |TEM OK...":.680,|
00000020: 30 3A 97 36 38 35 2C 30 3A 97 36 38 33 2C 30 3A |0:.685,0:.683,0:|
00000030: 97 36 38 32 2C 30 3A 97 37 30 31 2C 30 00 65 08 |.682,0:.701,0.e.|
00000040: 02 00 97 37 34 30 2C 30 3A 99 22 05 22 3A 97 38 |...740,0:.".":.8|
00000050: 30 38 2C 32 32 35 3A 86 4E 24 28 31 36 29 2C 4C |08,225:.N$(16),L|
00000060: 24 28 31 36 29 00 79 08 03 00 8B 20 C2 28 36 39 |$(16).y.... .(69|
00000070: 39 29 B2 31 20 A7 20 36 30 00 99 08 04 00 8D 31 |9).1 . 60......1|
00000080: 31 30 30 30 3A 8D 31 31 30 35 30 3A 8D 31 31 31 |1000:.11050:.111|
00000090: 30 30 3A 8D 31 31 30 30 30 00 DA 08 05 00 99 22 |00:.11000......"|
000000A0: 11 11 22 3B A6 31 29 3B 22 20 20 20 52 45 4D 4F |..";.1);" REMO|
000000B0: 56 45 20 50 52 4F 47 52 41 4D 20 44 49 53 4B 20 |VE PROGRAM DISK |
000000C0: 46 52 4F 4D 20 44 52 49 56 45 2E 22 3A 8D 31 31 |FROM DRIVE.":.11|
000000D0: 31 30 30 3A 8D 31 31 30 30 30 00 0D 09 06 00 99 |100:.11000......|
000000E0: 22 11 11 22 3B A6 31 29 3B 22 20 20 20 49 53 20 |"..";.1);" IS |
000000F0: 54 48 49 53 20 54 48 45 20 46 49 52 53 54 20 52 |THIS THE FIRST R|
00000100: 55 4E 20 4F 4E 20 41 20 4E 45 57 2C 22 00 4E 09 |UN ON A NEW,".N.|
00000110: 07 00 99 A6 31 29 3B 22 11 20 20 20 52 41 57 20 |....1);". RAW |
00000120: 44 41 54 41 20 44 49 53 4B 20 28 45 4E 54 45 52 |DATA DISK (ENTER|
00000130: 20 59 20 4F 52 20 4E 29 2E 2E 2E 22 3A 99 22 11 | Y OR N)...":.".|
00000140: 22 3B A6 31 38 29 3B C7 28 31 31 34 29 3B 00 62 |";.18);.(114);.b|
00000150: 09 08 00 53 51 B2 31 3A 8D 35 38 31 33 3A 53 51 |...SQ.1:.5813:SQ|
00000160: B2 30 00 83 09 09 00 A1 20 41 24 3A 8B 20 41 24 |.0...... A$:. A$|
00000170: B3 B1 22 59 22 20 AF 20 41 24 B3 B1 22 4E 22 20 |.."Y" . A$.."N" |
00000180: A7 20 39 00 8F 09 0A 00 99 22 9D 22 3B 41 24 00 |. 9......".";A$.|
00000190: AA 09 0C 00 8B 20 41 24 B2 22 59 22 20 A7 20 97 |..... A$."Y" . .|
000001A0: 36 38 30 2C 31 3A 89 20 33 30 00 E8 09 0F 00 99 |680,1:. 30......|
000001B0: 22 11 22 3B A6 31 29 3B 22 20 20 20 20 20 20 49 |".";.1);" I|
000001C0: 4E 53 45 52 54 20 50 52 4F 50 45 52 20 44 41 54 |NSERT PROPER DAT|
000001D0: 41 20 44 49 53 4B 2E 11 11 11 22 3A 8D 20 31 31 |A DISK....":. 11|
000001E0: 31 30 30 3A 89 20 36 30 00 22 0A 1E 00 99 22 11 |100:. 60."....".|
000001F0: 22 3B A6 31 29 3B 22 20 20 20 20 20 49 4E 53 45 |";.1);" INSE|
00000200: 52 54 20 4E 45 57 2C 20 52 41 57 20 44 41 54 41 |RT NEW, RAW DATA|
00000210: 20 44 49 53 4B 2E 11 11 11 22 3A 8D 20 31 31 31 | DISK....":. 111|
00000220: 30 30 00 37 0A 3C 00 4C 51 B2 31 3A 59 35 B2 31 |00.7.<.LQ.1:Y5.1|
00000230: 39 20 3A 4A 49 B2 30 00 87 0A 3E 00 4C 4C 24 B2 |9 :JI.0...>.LL$.|
00000240: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00000250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000280: 20 20 20 20 20 20 22 00 94 0A 46 00 4D 24 B2 C7 | "...F.M$..|
00000290: 28 31 33 29 00 D8 0A 50 00 53 50 24 B2 22 20 20 |(13)...P.SP$." |
000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002D0: 20 20 20 20 22 AA 22 22 00 FD 0A 5A 00 43 30 B2 | ".""...Z.C0.|
000002E0: 32 3A 43 31 B2 33 3A 43 43 B2 31 35 3A 44 B2 30 |2:C1.3:CC.15:D.0|
000002F0: 3A 54 B2 30 3A 53 B2 30 3A 44 44 B2 30 00 07 0B |:T.0:S.0:DD.0...|
00000300: 63 00 89 20 31 35 30 00 32 0B 64 00 4E B2 51 51 |c.. 150.2.d.N.QQ|
00000310: 3A 53 B2 31 3A 99 22 91 22 3B A6 32 33 29 3B 22 |:S.1:.".";.23);"|
00000320: 53 4F 52 54 49 4E 47 20 56 41 4C 55 45 53 20 20 |SORTING VALUES |
00000330: 20 22 00 55 0B 65 00 81 51 B2 31 A4 51 51 3A 41 | ".U.e..Q.1.QQ:A|
00000340: 24 28 51 29 B2 C4 28 B5 28 BB 28 58 29 AC 31 30 |$(Q)..(.(.(X).10|
00000350: 30 AA 31 29 29 00 75 0B 66 00 4D 4E 24 B2 41 24 |0.1)).u.f.MN$.A$|
00000360: 28 53 29 3A 49 4D B2 53 3A 4D 58 24 B2 4D 4E 24 |(S):IM.S:MX$.MN$|
00000370: 3A 49 58 B2 53 00 80 0B 67 00 81 51 B2 53 A4 4E |:IX.S...g..Q.S.N|
00000380: 00 9E 0B 68 00 8B 41 24 28 51 29 B1 4D 58 24 A7 |...h..A$(Q).MX$.|
00000390: 4D 58 24 B2 41 24 28 51 29 3A 49 58 B2 51 00 BC |MX$.A$(Q):IX.Q..|
000003A0: 0B 69 00 8B 41 24 28 51 29 B3 4D 4E 24 A7 4D 4E |.i..A$(Q).MN$.MN|
000003B0: 24 B2 41 24 28 51 29 3A 49 4D B2 51 00 C2 0B 6A |$.A$(Q):IM.Q...j|
000003C0: 00 82 00 D2 0B 6B 00 8B 49 4D B2 4E A7 49 4D B2 |.....k..IM.N.IM.|
000003D0: 49 58 00 FE 0B 6C 00 41 41 24 B2 41 24 28 4E 29 |IX...l.AA$.A$(N)|
000003E0: 3A 41 24 28 4E 29 B2 41 24 28 49 58 29 3A 41 24 |:A$(N).A$(IX):A$|
000003F0: 28 49 58 29 B2 41 41 24 3A 4E B2 4E AB 31 00 2A |(IX).AA$:N.N.1.*|
00000400: 0C 6D 00 41 41 24 B2 41 24 28 53 29 3A 41 24 28 |.m.AA$.A$(S):A$(|
00000410: 53 29 B2 41 24 28 49 4D 29 3A 41 24 28 49 4D 29 |S).A$(IM):A$(IM)|
00000420: B2 41 41 24 3A 53 B2 53 AA 31 00 37 0C 6E 00 8B |.AA$:S.S.1.7.n..|
00000430: 4E B1 53 A7 31 30 32 00 62 0C 6F 00 99 22 93 11 |N.S.102.b.o.."..|
00000440: 20 20 53 4F 52 54 20 43 4F 4D 50 4C 45 54 45 2E | SORT COMPLETE.|
00000450: 2E 2E 52 45 41 44 49 4E 47 20 52 45 43 4F 52 44 |..READING RECORD|
00000460: 53 22 00 84 0C 71 00 81 57 B2 31 A4 51 51 3A 49 |S"...q..W.1.QQ:I|
00000470: 56 28 57 29 B2 C5 28 CA 28 41 24 28 57 29 2C 37 |V(W)..(.(A$(W),7|
00000480: 2C 34 29 29 00 8D 0C 72 00 82 57 3A 8E 00 B2 0C |,4))...r..W:....|
00000490: 96 00 86 49 56 28 32 30 30 29 2C 4B 32 24 28 32 |...IV(200),K2$(2|
000004A0: 30 30 29 2C 41 24 28 32 30 30 29 2C 5A 28 32 30 |00),A$(200),Z(20|
000004B0: 30 29 00 C5 0C A0 00 86 51 56 28 34 30 29 2C 4B |0)......QV(40),K|
000004C0: 32 28 32 37 29 00 06 0D B4 00 52 44 B2 30 3A 49 |2(27).....RD.0:I|
000004D0: 44 24 B2 22 22 3A 4E 52 B2 30 3A 43 52 B2 30 3A |D$."":NR.0:CR.0:|
000004E0: 46 52 B2 30 3A 4E 46 B2 30 3A 43 46 B2 30 3A 52 |FR.0:NF.0:CF.0:R|
000004F0: 42 B2 30 3A 52 53 B2 30 3A 4E 42 B2 30 3A 45 B2 |B.0:RS.0:NB.0:E.|
00000500: 30 3A 41 53 B2 30 00 14 0D 2C 01 45 50 B2 2E 35 |0:AS.0...,.EP..5|
00000510: AD 32 35 36 00 33 0D 40 01 86 58 39 24 28 35 29 |.256.3.@..X9$(5)|
00000520: 2C 50 46 24 28 32 30 2C 33 29 2C 50 46 28 32 30 |,PF$(20,3),PF(20|
00000530: 2C 33 29 00 41 0D 5E 01 54 39 24 B2 C7 28 31 33 |,3).A.^.T9$..(13|
00000540: 29 00 54 0D 86 01 54 36 24 B2 C7 28 32 30 29 3A |).T...T6$..(20):|
00000550: 4C 42 B2 30 00 71 0D 9A 01 53 4C 24 B2 22 20 20 |LB.0.q...SL$." |
00000560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000570: 22 00 7E 0D A4 01 9F 43 43 2C 38 2C 43 43 00 A3 |".~....CC,8,CC..|
00000580: 0D A9 01 8B 20 C2 28 37 30 30 29 B2 31 20 A7 20 |.... .(700).1 . |
00000590: 97 37 30 30 2C 30 3A 97 36 39 39 2C 30 3A 89 35 |.700,0:.699,0:.5|
000005A0: 34 32 30 00 C0 0D AE 01 8B 20 C2 28 36 39 39 29 |420...... .(699)|
000005B0: B2 31 20 A7 20 97 36 39 39 2C 30 3A 89 34 34 30 |.1 . .699,0:.440|
000005C0: 00 DD 0D B3 01 8B 20 C2 28 36 38 30 29 B3 B1 30 |...... .(680)..0|
000005D0: 20 A7 20 99 22 93 22 3A 89 35 34 36 30 00 EA 0D | . .".":.5460...|
000005E0: B8 01 98 43 43 2C 22 49 30 22 00 F5 0D C2 01 89 |...CC,"I0"......|
000005F0: 34 35 38 30 05 00 FF 0D FE 01 8D 36 32 30 04 00 |4580.......620..|
00000600: 0D 0E 08 02 8B 46 50 25 B2 AB 31 A7 8E 00 18 0E |.....FP%..1.....|
00000610: 12 02 46 50 25 B2 AB 31 00 26 0E 1C 02 86 20 46 |..FP%..1.&.... F|
00000620: 53 25 28 4E 46 29 00 34 0E 26 02 86 20 46 50 25 |S%(NF).4.&.. FP%|
00000630: 28 4E 46 29 00 42 0E 3A 02 86 20 46 54 25 28 4E |(NF).B.:.. FT%(N|
00000640: 46 29 00 50 0E 44 02 86 20 46 48 24 28 4E 46 29 |F).P.D.. FH$(NF)|
00000650: 00 5F 0E 4E 02 86 20 46 24 28 4E 46 AA 31 29 00 |._.N.. F$(NF.1).|
00000660: 6B 0E 58 02 86 20 46 28 4E 46 29 00 71 0E 62 02 |k.X.. F(NF).q.b.|
00000670: 8E 00 7F 0E 6C 02 8B 49 54 25 B2 AB 31 A7 8E 00 |....l..IT%..1...|
00000680: 8A 0E 76 02 49 54 25 B2 AB 31 00 98 0E 80 02 86 |..v.IT%..1......|
00000690: 20 49 54 25 28 4E 42 29 00 A6 0E 8A 02 86 20 49 | IT%(NB)...... I|
000006A0: 53 25 28 4E 42 29 00 B4 0E 94 02 86 20 4B 31 24 |S%(NB)...... K1$|
000006B0: 28 4E 52 29 00 C2 0E 9E 02 86 20 52 52 25 28 4E |(NR)...... RR%(N|
000006C0: 52 29 00 C8 0E A8 02 8E 00 CE 0E B2 02 8F 00 D9 |R)..............|
000006D0: 0E C6 02 8D 32 35 33 30 05 00 E4 0E D0 02 8D 31 |....2530.......1|
000006E0: 36 34 30 05 00 FA 0E DA 02 98 43 43 2C 22 55 31 |640.......CC,"U1|
000006F0: 3A 22 43 30 3B 44 3B 54 3B 53 00 0E 0F E4 02 98 |:"C0;D;T;S......|
00000700: 43 43 2C 22 42 2D 50 3A 22 43 30 3B 52 50 00 1B |CC,"B-P:"C0;RP..|
00000710: 0F EE 02 81 43 46 B2 31 A4 4E 46 00 26 0F F8 02 |....CF.1.NF.&...|
00000720: 8D 31 31 32 30 05 00 2E 0F 02 03 82 43 46 00 44 |.1120.......CF.D|
00000730: 0F 0C 03 98 43 43 2C 22 55 32 3A 22 43 30 3B 44 |....CC,"U2:"C0;D|
00000740: 3B 54 3B 53 00 58 0F 16 03 8D 31 37 35 30 05 3A |;T;S.X....1750.:|
00000750: 8B 45 A7 32 37 35 30 05 00 5E 0F 20 03 8E 00 69 |.E.2750..^. ...i|
00000760: 0F 48 03 8D 31 36 34 30 05 00 7F 0F 52 03 98 43 |.H..1640....R..C|
00000770: 43 2C 22 55 31 3A 22 43 30 3B 44 3B 54 3B 53 00 |C,"U1:"C0;D;T;S.|
00000780: 93 0F 5C 03 98 43 43 2C 22 42 2D 50 3A 22 43 30 |..\..CC,"B-P:"C0|
00000790: 3B 52 50 00 A7 0F 66 03 8D 31 37 35 30 05 3A 8B |;RP...f..1750.:.|
000007A0: 45 A7 32 37 35 30 05 00 B4 0F 70 03 81 43 46 B2 |E.2750....p..CF.|
000007B0: 31 A4 4E 46 00 BF 0F 7A 03 8D 31 32 30 30 05 00 |1.NF...z..1200..|
000007C0: C7 0F 84 03 82 43 46 00 CD 0F 8E 03 8E 00 D3 0F |.....CF.........|
000007D0: 98 03 8F 00 DE 0F B6 03 8D 31 36 34 30 05 00 F4 |.........1640...|
000007E0: 0F C0 03 98 43 43 2C 22 55 31 3A 22 43 30 3B 44 |....CC,"U1:"C0;D|
000007F0: 3B 54 3B 53 00 08 10 CA 03 8D 31 37 35 30 05 3A |;T;S......1750.:|
00000800: 8B 45 A7 32 37 35 30 05 00 24 10 D4 03 98 43 43 |.E.2750..$....CC|
00000810: 2C 22 42 2D 50 3A 22 43 30 3B 46 50 25 28 43 46 |,"B-P:"C0;FP%(CF|
00000820: 29 AA 52 50 00 3F 10 DE 03 8D 31 31 32 20 30 05 |).RP.?....112 0.|
00000830: 3A 8F 20 55 50 44 41 54 45 20 46 49 45 4C 44 00 |:. UPDATE FIELD.|
00000840: 55 10 E8 03 98 43 43 2C 22 55 32 3A 22 43 30 3B |U....CC,"U2:"C0;|
00000850: 44 3B 54 3B 53 00 69 10 F2 03 8D 31 37 35 30 05 |D;T;S.i....1750.|
00000860: 3A 8B 45 A7 32 37 35 30 05 00 6F 10 FC 03 8E 00 |:.E.2750..o.....|
00000870: 75 10 06 04 8F 00 80 10 24 04 8D 31 36 34 30 05 |u.......$..1640.|
00000880: 00 96 10 2E 04 98 43 43 2C 22 55 31 3A 22 43 30 |......CC,"U1:"C0|
00000890: 3B 44 3B 54 3B 53 00 AA 10 38 04 8D 31 37 35 30 |;D;T;S...8..1750|
000008A0: 05 3A 8B 45 A7 32 37 35 30 05 00 C6 10 42 04 98 |.:.E.2750....B..|
000008B0: 43 43 2C 22 42 2D 50 3A 22 43 30 3B 46 50 25 28 |CC,"B-P:"C0;FP%(|
000008C0: 43 46 29 AA 52 50 00 DF 10 4C 04 8D 31 32 30 20 |CF).RP...L..120 |
000008D0: 30 05 3A 8F 20 52 45 41 44 20 46 49 45 4C 44 00 |0.:. READ FIELD.|
000008E0: E5 10 56 04 8E 00 EB 10 60 04 8F 00 01 11 7E 04 |..V.....`.....~.|
000008F0: 8B 46 54 25 28 43 46 29 B3 B1 31 A7 31 31 37 30 |.FT%(CF)..1.1170|
00000900: 05 00 27 11 88 04 41 24 B2 C9 28 53 50 24 AA C4 |..'...A$..(SP$..|
00000910: 28 46 28 43 46 29 29 2C 46 53 25 28 43 46 29 29 |(F(CF)),FS%(CF))|
00000920: 3A 89 31 31 38 30 05 00 44 11 92 04 41 24 B2 C8 |:.1180..D...A$..|
00000930: 28 46 24 28 43 46 29 AA 53 50 24 2C 46 53 25 28 |(F$(CF).SP$,FS%(|
00000940: 43 46 29 29 00 53 11 9C 04 98 43 30 2C 41 24 3B |CF)).S....C0,A$;|
00000950: 4D 24 3B 00 59 11 A6 04 8E 00 5F 11 B0 04 8F 00 |M$;.Y....._.....|
00000960: 74 11 CE 04 8B 20 46 54 25 28 43 46 29 20 A7 31 |t.... FT%(CF) .1|
00000970: 33 30 30 05 00 7F 11 D8 04 41 31 24 B2 22 22 00 |300......A1$."".|
00000980: 90 11 E2 04 81 4A B2 31 A4 46 53 25 28 43 46 29 |.....J.1.FS%(CF)|
00000990: 00 AB 11 EC 04 A1 23 43 30 2C 41 24 3A 8B 41 24 |......#C0,A$:.A$|
000009A0: B2 22 22 A7 41 24 B2 C7 28 30 29 00 BA 11 F6 04 |."".A$..(0).....|
000009B0: 41 31 24 B2 41 31 24 AA 41 24 00 CB 11 00 05 82 |A1$.A1$.A$......|
000009C0: 3A 46 24 28 43 46 29 B2 41 31 24 00 D9 11 0A 05 |:F$(CF).A1$.....|
000009D0: A1 23 43 30 2C 41 24 3A 8E 00 E8 11 14 05 84 43 |.#C0,A$:.......C|
000009E0: 30 2C 46 24 28 43 46 29 00 FB 11 1E 05 8B 46 54 |0,F$(CF)......FT|
000009F0: 25 28 43 46 29 B3 B1 31 A7 20 8E 00 11 12 28 05 |%(CF)..1. ....(.|
00000A00: 46 28 43 46 29 B2 C5 28 46 24 28 43 46 29 29 3A |F(CF)..(F$(CF)):|
00000A10: 8E 00 17 12 32 05 8F 00 29 12 5A 05 8D 31 35 33 |....2...).Z..153|
00000A20: 30 3A 8B 45 A7 32 37 35 30 00 3D 12 64 05 98 31 |0:.E.2750.=.d..1|
00000A30: 35 2C 22 42 2D 41 3A 22 44 3B 54 3B 53 00 52 12 |5,"B-A:"D;T;S.R.|
00000A40: 6E 05 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C |n..15,EN,EM$,ET,|
00000A50: 45 53 00 5E 12 78 05 8B 45 4E B2 30 A7 8E 00 70 |ES.^.x..EN.0...p|
00000A60: 12 82 05 8B 45 4E B3 B1 36 35 A7 32 37 35 30 05 |....EN..65.2750.|
00000A70: 00 8B 12 8C 05 8B 45 54 B2 31 38 A7 54 B2 31 39 |......ET.18.T.19|
00000A80: 3A 53 B2 30 3A 89 31 33 38 30 05 00 99 12 96 05 |:S.0:.1380......|
00000A90: 54 B2 45 54 3A 53 B2 45 53 00 A4 12 A0 05 89 31 |T.ET:S.ES......1|
00000AA0: 33 38 30 05 00 AA 12 AA 05 8F 00 BC 12 C8 05 8D |380.............|
00000AB0: 31 35 33 30 3A 8B 45 A7 32 37 35 30 00 D0 12 D2 |1530:.E.2750....|
00000AC0: 05 98 43 43 2C 22 42 2D 46 3A 22 44 3B 54 3B 53 |..CC,"B-F:"D;T;S|
00000AD0: 00 E5 12 DC 05 84 43 43 2C 45 4E 2C 45 4D 24 2C |......CC,EN,EM$,|
00000AE0: 45 54 2C 45 53 00 F1 12 E6 05 8B 45 4E B2 30 A7 |ET,ES......EN.0.|
00000AF0: 8E 00 FC 12 F0 05 89 32 37 35 30 05 00 02 13 FA |.......2750.....|
00000B00: 05 8F 00 12 13 18 06 8B 54 B1 33 35 A7 32 37 35 |........T.35.275|
00000B10: 30 05 00 2A 13 22 06 45 B2 30 3A 8B 54 B2 30 A7 |0..*.".E.0:.T.0.|
00000B20: 54 B2 34 30 3A 89 32 37 35 30 00 40 13 2C 06 41 |T.40:.2750.@.,.A|
00000B30: 33 B2 31 36 3A 8B 54 B1 33 30 A7 31 36 32 30 05 |3.16:.T.30.1620.|
00000B40: 00 56 13 36 06 41 33 B2 31 37 3A 8B 54 B1 32 34 |.V.6.A3.17:.T.24|
00000B50: A7 31 36 32 30 05 00 6C 13 40 06 41 33 B2 31 39 |.1620..l.@.A3.19|
00000B60: 3A 8B 54 B1 31 37 A7 31 36 32 30 05 00 76 13 4A |:.T.17.1620..v.J|
00000B70: 06 41 33 B2 32 30 00 86 13 54 06 8B 53 B1 41 33 |.A3.20...T..S.A3|
00000B80: A7 32 37 35 30 05 00 8C 13 5E 06 8E 00 92 13 68 |.2750....^.....h|
00000B90: 06 8F 00 9B 13 86 06 44 B2 52 44 00 A3 13 90 06 |.......D.RD.....|
00000BA0: 45 B2 30 00 C0 13 9A 06 8B 41 53 B2 AB 31 A7 52 |E.0......AS..1.R|
00000BB0: 50 B2 43 52 AC 52 53 AA 31 3A 89 31 37 33 30 05 |P.CR.RS.1:.1730.|
00000BC0: 00 F2 13 A4 06 52 50 B2 B5 28 28 43 52 AB 31 29 |.....RP..((CR.1)|
00000BD0: AD 52 42 AA 45 50 29 3A 8B 52 50 B1 4E 42 20 B0 |.RB.EP):.RP.NB .|
00000BE0: 20 52 50 B3 30 A7 45 4E B2 34 31 3A 89 32 37 35 | RP.0.EN.41:.275|
00000BF0: 30 05 00 0A 14 AE 06 54 B2 49 54 25 28 52 50 29 |0......T.IT%(RP)|
00000C00: 3A 53 B2 49 53 25 28 52 50 29 00 2E 14 B8 06 52 |:S.IS%(RP).....R|
00000C10: 50 B2 B5 28 28 28 43 52 AB 31 29 AD 52 42 AB 52 |P..(((CR.1).RB.R|
00000C20: 50 AA 45 50 29 AC 52 53 AC 52 42 29 AA 31 00 48 |P.EP).RS.RB).1.H|
00000C30: 14 C2 06 8B 52 50 B1 32 35 34 A7 20 45 4E B2 34 |....RP.254. EN.4|
00000C40: 31 3A 89 32 37 35 30 05 00 4E 14 CC 06 8E 00 54 |1:.2750..N.....T|
00000C50: 14 D6 06 8F 00 6A 14 F4 06 84 31 35 2C 45 4E 24 |.....j....15,EN$|
00000C60: 2C 45 4D 24 2C 45 54 2C 45 53 00 7C 14 FE 06 45 |,EM$,ET,ES.|...E|
00000C70: 4E B2 C5 28 45 4E 24 29 3A 45 B2 30 00 8F 14 08 |N..(EN$):E.0....|
00000C80: 07 8B 20 45 4E 24 B2 22 30 30 22 20 A7 20 8E 00 |.. EN$."00" . ..|
00000C90: A7 14 12 07 45 54 24 B2 C4 28 45 54 29 3A 45 53 |....ET$..(ET):ES|
00000CA0: 24 B2 C4 28 45 53 29 00 CB 14 1C 07 8B 45 4E 24 |$..(ES)......EN$|
00000CB0: B3 B1 C9 28 22 30 22 AA CA 28 C4 28 45 4E 29 2C |...("0"..(.(EN),|
00000CC0: 32 29 2C 32 29 A7 31 38 38 30 05 00 EC 14 26 07 |2),2).1880....&.|
00000CD0: 8B 20 45 4E B2 31 20 A7 20 45 4D 24 B2 20 45 54 |. EN.1 . EM$. ET|
00000CE0: 24 AA 22 20 22 AA 45 4D 24 3A 20 8E 00 F6 14 30 |$." ".EM$: ....0|
00000CF0: 07 45 B2 45 AA 31 00 0F 15 3A 07 45 4D 24 B2 22 |.E.E.1...:.EM$."|
00000D00: 12 22 AA 45 4E 24 AA 22 92 20 22 AA 45 4D 24 00 |.".EN$.". ".EM$.|
00000D10: 41 15 44 07 8B 20 45 4E B3 33 30 20 B0 20 45 4E |A.D.. EN.30 . EN|
00000D20: B2 36 35 20 A7 20 45 4D 24 B2 45 4D 24 AA 22 20 |.65 . EM$.EM$." |
00000D30: 4F 4E 20 22 AA 45 54 24 AA 22 2C 20 22 AA 45 53 |ON ".ET$.", ".ES|
00000D40: 24 00 47 15 4E 07 8E 00 71 15 58 07 45 4D 24 B2 |$.G.N...q.X.EM$.|
00000D50: 22 12 53 59 53 54 45 4D 20 4E 4F 54 20 52 45 53 |".SYSTEM NOT RES|
00000D60: 50 4F 4E 44 49 4E 47 20 50 52 4F 50 45 52 4C 59 |PONDING PROPERLY|
00000D70: 22 00 8D 15 62 07 45 4D 24 B2 45 4D 24 AA 45 4E |"...b.EM$.EM$.EN|
00000D80: 24 AA 45 4D 24 AA 45 54 24 AA 45 53 24 00 97 15 |$.EM$.ET$.ES$...|
00000D90: 6C 07 45 B2 45 AA 31 00 9D 15 76 07 8E 00 B6 15 |l.E.E.1...v.....|
00000DA0: 80 07 57 58 B2 31 3A 8D 37 30 30 30 3A 57 58 B2 |..WX.1:.7000:WX.|
00000DB0: 30 3A 53 35 B2 30 00 CF 15 81 07 48 43 B2 30 3A |0:S5.0.....HC.0:|
00000DC0: 53 57 B2 31 3A 8D 32 39 39 30 3A 53 57 B2 30 00 |SW.1:.2990:SW.0.|
00000DD0: 03 16 82 07 8B 20 57 51 B2 31 20 A7 20 99 22 93 |..... WQ.1 . .".|
00000DE0: 11 20 20 54 48 52 45 53 48 4F 4C 44 20 46 49 45 |. THRESHOLD FIE|
00000DF0: 4C 44 20 53 45 41 52 43 48 2E 2E 2E 22 3A 89 31 |LD SEARCH...":.1|
00000E00: 39 32 34 00 2A 16 83 07 99 22 93 11 20 20 43 4F |924.*....".. CO|
00000E10: 4E 44 49 54 49 4F 4E 41 4C 20 46 49 45 4C 44 20 |NDITIONAL FIELD |
00000E20: 53 45 41 52 43 48 2E 2E 2E 22 00 4F 16 84 07 99 |SEARCH...".O....|
00000E30: 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |"---------------|
00000E40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
00000E50: 84 16 85 07 99 22 11 20 20 44 49 53 50 4C 41 59 |.....". DISPLAY|
00000E60: 20 4F 52 20 50 52 49 4E 54 45 52 2F 20 28 44 20 | OR PRINTER/ (D |
00000E70: 4F 52 20 50 29 3F 20 22 3B C7 28 31 31 34 29 3B |OR P)? ";.(114);|
00000E80: 22 9D 22 3B 00 B2 16 86 07 A1 20 41 24 3A 8B 20 |".";...... A$:. |
00000E90: 41 24 B3 B1 22 44 22 20 AF 20 41 24 B3 B1 22 50 |A$.."D" . A$.."P|
00000EA0: 22 20 AF 20 41 24 B3 B1 22 85 22 20 A7 20 31 39 |" . A$.."." . 19|
00000EB0: 32 36 00 CA 16 87 07 8B 20 41 24 B2 22 85 22 20 |26...... A$."." |
00000EC0: A7 20 99 3A 89 20 31 39 36 36 00 F3 16 88 07 99 |. .:. 1966......|
00000ED0: 41 24 3A 49 58 24 B2 41 24 3A 8B 49 58 24 B2 22 |A$:IX$.A$:.IX$."|
00000EE0: 50 22 20 A7 20 48 43 B2 31 3A 50 31 B2 31 3A 50 |P" . HC.1:P1.1:P|
00000EF0: 32 B2 30 00 05 17 89 07 8B 20 57 51 B2 31 20 A7 |2.0...... WQ.1 .|
00000F00: 20 31 39 38 34 00 10 17 8A 07 8D 20 37 37 35 30 | 1984...... 7750|
00000F10: 00 51 17 8C 07 4F 49 24 B2 22 91 20 4E 55 4D 42 |.Q...OI$.". NUMB|
00000F20: 45 52 20 4F 46 20 46 49 45 4C 44 53 20 54 4F 20 |ER OF FIELDS TO |
00000F30: 53 45 41 52 43 48 3A 20 22 3A 8D 35 38 31 30 3A |SEARCH: ":.5810:|
00000F40: 8B 42 24 B3 B1 22 22 A7 97 36 39 39 2C 31 3A 89 |.B$..""..699,1:.|
00000F50: 31 00 87 17 8D 07 41 24 B2 49 4F 24 3A 8B C5 28 |1.....A$.IO$:..(|
00000F60: 41 24 29 B3 31 B0 C5 28 41 24 29 B1 4E 46 A7 99 |A$).1..(A$).NF..|
00000F70: 22 91 91 22 3B 3A 8D 36 30 34 30 3A 99 22 11 22 |"..";:.6040:."."|
00000F80: 3B 3A 89 31 39 33 32 00 C7 17 91 07 53 58 B2 C5 |;:.1932.....SX..|
00000F90: 28 41 24 29 3A 81 49 B2 31 A4 53 58 3A 4F 49 24 |(A$):.I.1.SX:OI$|
00000FA0: B2 22 11 43 4F 4E 44 49 54 49 4F 4E 41 4C 20 46 |.".CONDITIONAL F|
00000FB0: 49 45 4C 44 20 23 22 AA C4 28 49 29 AA 22 3A 20 |IELD #"..(I).": |
00000FC0: 22 3A 8D 35 38 31 30 00 DE 17 92 07 8B 20 42 24 |":.5810...... B$|
00000FD0: B3 B1 22 22 A7 97 36 39 39 2C 31 3A 89 31 00 0E |..""..699,1:.1..|
00000FE0: 18 94 07 41 24 B2 49 4F 24 3A 8B 20 C5 28 41 24 |...A$.IO$:. .(A$|
00000FF0: 29 B3 31 20 B0 20 C5 28 41 24 29 B1 4E 46 20 A7 |).1 . .(A$).NF .|
00001000: 20 99 22 91 91 22 3B 3A 89 20 31 39 33 37 00 24 | ."..";:. 1937.$|
00001010: 18 96 07 46 44 28 49 29 B2 C5 28 41 24 29 3A 41 |...FD(I)..(A$):A|
00001020: 24 B2 22 22 00 4E 18 99 07 4F 49 24 B2 22 43 4F |$."".N...OI$."CO|
00001030: 4E 44 20 46 49 45 4C 44 27 53 20 48 49 54 20 54 |ND FIELD'S HIT T|
00001040: 49 54 4C 45 3A 20 22 3A 8D 20 35 38 31 30 00 6C |ITLE: ":. 5810.l|
00001050: 18 9A 07 8B 20 42 24 B2 22 85 22 20 A7 20 42 24 |.... B$."." . B$|
00001060: B2 22 22 3A 99 3A 89 20 31 39 36 36 00 87 18 9B |."":.:. 1966....|
00001070: 07 46 54 24 28 49 29 B2 49 4F 24 3A 46 4C 28 49 |.FT$(I).IO$:FL(I|
00001080: 29 B2 49 4F 3A 82 49 00 AF 18 9E 07 4B 59 24 B2 |).IO:.I.....KY$.|
00001090: 22 22 3A 81 49 49 B2 31 A4 53 58 3A 4B 59 24 B2 |"":.II.1.SX:KY$.|
000010A0: 4B 59 24 AA 46 54 24 28 49 49 29 3A 82 49 49 00 |KY$.FT$(II):.II.|
000010B0: D0 18 A0 07 99 22 93 11 20 43 4F 4E 44 49 54 49 |.....".. CONDITI|
000010C0: 4F 4E 41 4C 20 52 45 43 4F 52 44 53 2E 2E 2E 22 |ONAL RECORDS..."|
000010D0: 00 F5 18 A1 07 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D |......"---------|
000010E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 11 11 |--------------..|
000010F0: 22 3A 4B B2 32 00 31 19 A2 07 8B 20 53 35 B2 31 |":K.2.1.... S5.1|
00001100: 20 A7 20 99 22 13 11 11 11 11 20 53 45 41 52 43 | . ."..... SEARC|
00001110: 48 49 4E 47 20 4F 4E 20 46 49 45 4C 44 20 53 4F |HING ON FIELD SO|
00001120: 52 54 2E 2E 2E 50 4C 45 41 53 45 20 57 41 49 54 |RT...PLEASE WAIT|
00001130: 22 00 57 19 A3 07 81 50 B2 30 A4 52 52 AB 31 3A |".W....P.0.RR.1:|
00001140: 8D 34 32 32 30 3A 8B 20 52 54 B2 31 A7 52 54 B2 |.4220:. RT.1.RT.|
00001150: 30 3A 89 31 39 36 36 00 67 19 A5 07 43 52 B2 50 |0:.1966.g...CR.P|
00001160: AA 31 3A 8D 38 34 30 00 98 19 A8 07 53 4B 24 B2 |.1:.840.....SK$.|
00001170: 22 22 3A 81 54 B2 31 A4 53 58 3A 53 4B 24 B2 53 |"":.T.1.SX:SK$.S|
00001180: 4B 24 AA C8 28 46 24 28 46 44 28 54 29 29 2C 46 |K$..(F$(FD(T)),F|
00001190: 4C 28 54 29 29 3A 82 54 00 B2 19 A9 07 8B 20 4B |L(T)):.T...... K|
000011A0: 59 24 B3 B1 53 4B 24 20 A7 20 82 50 3A 89 31 39 |Y$..SK$ . .P:.19|
000011B0: 36 36 00 D6 19 AA 07 8B 20 53 35 B2 31 20 A7 20 |66...... S5.1 . |
000011C0: 5A 28 4B 29 B2 43 52 3A 4B B2 4B AA 31 3A 82 50 |Z(K).CR:K.K.1:.P|
000011D0: 3A 89 37 38 30 30 00 E8 19 AB 07 8B 20 48 43 B2 |:.7800...... HC.|
000011E0: 31 20 A7 20 31 39 37 30 00 1B 1A AC 07 81 46 B2 |1 . 1970......F.|
000011F0: 31 A4 4E 46 3A 99 22 20 20 22 3B 46 24 28 46 29 |1.NF:." ";F$(F)|
00001200: 3A 82 46 3A 99 3A 8D 34 32 32 30 3A 8B 52 54 B2 |:.F:.:.4220:.RT.|
00001210: 31 A7 97 36 39 39 2C 31 3A 89 31 00 23 1A AD 07 |1..699,1:.1.#...|
00001220: 82 20 50 00 35 1A AE 07 8B 20 53 35 B2 31 20 A7 |. P.5.... S5.1 .|
00001230: 20 37 38 30 30 00 47 1A AF 07 8B 20 48 43 B2 31 | 7800.G.... HC.1|
00001240: 20 A7 20 31 39 37 36 00 65 1A B0 07 52 54 B2 30 | . 1976.e...RT.0|
00001250: 3A 50 41 B2 30 3A 8D 31 31 31 30 30 3A A0 32 3A |:PA.0:.11100:.2:|
00001260: 89 33 39 32 30 00 77 1A B2 07 8B 20 53 35 B2 31 |.3920.w.... S5.1|
00001270: 20 A7 20 37 38 30 30 00 9B 1A B3 07 8B 20 50 32 | . 7800...... P2|
00001280: B2 30 20 A7 20 8D 38 37 30 30 3A 9F 34 2C 34 3A |.0 . .8700:.4,4:|
00001290: 9D 34 3A 97 35 33 32 36 35 2C 30 00 A6 1A B6 07 |.4:.53265,0.....|
000012A0: 8D 31 30 30 30 30 00 AD 1A B7 07 82 50 00 CA 1A |.10000......P...|
000012B0: B8 07 97 35 33 32 36 35 2C 32 37 3A 98 34 2C 22 |...53265,27:.4,"|
000012C0: 20 22 3A A0 34 3A 48 43 B2 30 00 D5 1A B9 07 89 | ":.4:HC.0......|
000012D0: 20 31 39 36 37 00 13 1B BB 07 99 22 93 11 11 4E | 1967......"...N|
000012E0: 55 4D 42 45 52 20 54 48 52 45 53 48 4F 4C 44 2F |UMBER THRESHOLD/|
000012F0: 43 4F 4E 44 49 54 49 4F 4E 41 4C 3F 28 54 20 4F |CONDITIONAL?(T O|
00001300: 52 20 43 29 3A 20 22 3B C7 28 31 31 34 29 3B 22 |R C): ";.(114);"|
00001310: 9D 22 3B 00 41 1B BC 07 A1 20 41 24 3A 8B 20 41 |.";.A.... A$:. A|
00001320: 24 B3 B1 22 54 22 20 AF 20 41 24 B3 B1 22 43 22 |$.."T" . A$.."C"|
00001330: 20 AF 20 41 24 B3 B1 22 85 22 20 A7 20 31 39 38 | . A$.."." . 198|
00001340: 30 00 55 1B BD 07 8B 20 41 24 B2 22 85 22 20 A7 |0.U.... A$."." .|
00001350: 20 35 31 30 30 00 6D 1B BE 07 99 41 24 3A 8B 20 | 5100.m....A$:. |
00001360: 41 24 B2 22 54 22 20 A7 20 57 51 B2 31 00 78 1B |A$."T" . WQ.1.x.|
00001370: BF 07 89 20 31 39 32 30 00 BF 1B C0 07 9F 34 2C |... 1920......4,|
00001380: 34 3A 9D 34 3A 4F 49 24 B2 22 91 20 53 45 41 52 |4:.4:OI$.". SEAR|
00001390: 43 48 20 4F 4E 20 57 48 41 54 20 46 49 45 4C 44 |CH ON WHAT FIELD|
000013A0: 3A 20 20 20 20 20 20 20 20 20 20 20 20 9D 9D 9D |: ...|
000013B0: 9D 9D 9D 9D 9D 9D 9D 9D 22 3A 8D 35 38 31 30 00 |........":.5810.|
000013C0: D8 1B C1 07 8B 20 42 24 B2 22 85 22 A7 42 24 B2 |..... B$.".".B$.|
000013D0: 22 22 3A 89 35 31 30 30 00 FA 1B C2 07 8B 20 C5 |"":.5100...... .|
000013E0: 28 49 4F 24 29 B3 31 20 B0 20 C5 28 49 4F 24 29 |(IO$).1 . .(IO$)|
000013F0: B1 4E 46 20 A7 20 31 39 38 34 00 1A 1C C3 07 46 |.NF . 1984.....F|
00001400: 46 B2 C5 28 49 4F 24 29 3A 81 49 B2 31 A4 52 52 |F..(IO$):.I.1.RR|
00001410: 3A 43 52 B2 49 3A 8D 38 34 30 00 46 1C C4 07 41 |:CR.I:.840.F...A|
00001420: 24 28 49 29 B2 C8 28 46 24 28 46 46 29 AA 22 20 |$(I)..(F$(FF)." |
00001430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2C | ",|
00001440: 31 35 29 3A 82 49 00 7A 1C C5 07 4F 49 24 B2 22 |15):.I.z...OI$."|
00001450: 47 52 45 41 54 45 52 20 54 48 41 4E 3A 20 22 3A |GREATER THAN: ":|
00001460: 8D 20 35 38 31 30 3A 8B 42 24 B2 22 85 22 A7 42 |. 5810:.B$.".".B|
00001470: 24 B2 22 22 3A 89 35 31 30 30 00 87 1C C6 07 47 |$."":.5100.....G|
00001480: B2 C5 28 49 4F 24 29 00 BA 1C C7 07 4F 49 24 B2 |..(IO$).....OI$.|
00001490: 22 20 20 20 4C 45 53 53 20 54 48 41 4E 3A 20 22 |" LESS THAN: "|
000014A0: 3A 8D 35 38 31 30 3A 8B 42 24 B2 22 85 22 A7 42 |:.5810:.B$.".".B|
000014B0: 24 B2 22 22 3A 89 35 31 30 30 00 C7 1C C8 07 4C |$."":.5100.....L|
000014C0: B2 C5 28 49 4F 24 29 00 E5 1C C9 07 81 51 B2 31 |..(IO$)......Q.1|
000014D0: A4 52 52 3A 8B 20 41 24 28 51 29 B2 22 22 20 A7 |.RR:. A$(Q)."" .|
000014E0: 20 31 39 39 35 00 08 1D CA 07 8B C5 28 41 24 28 | 1995.......(A$(|
000014F0: 51 29 29 B1 47 20 AF 20 C5 28 41 24 28 51 29 29 |Q)).G . .(A$(Q))|
00001500: B3 4C 20 A7 31 39 39 36 00 15 1D CB 07 82 51 3A |.L .1996......Q:|
00001510: 89 31 39 39 39 00 27 1D CC 07 8B 20 48 43 B2 31 |.1999.'.... HC.1|
00001520: 20 A7 20 31 39 39 38 00 55 1D CD 07 43 52 B2 51 | . 1998.U...CR.Q|
00001530: 3A 8D 38 34 30 3A 81 49 49 B2 31 A4 4E 46 3A 99 |:.840:.II.1.NF:.|
00001540: 46 24 28 49 49 29 3A 82 49 49 3A 99 3A 82 51 3A |F$(II):.II:.:.Q:|
00001550: 89 31 39 39 39 00 8A 1D CE 07 43 52 B2 51 3A 8D |.1999.....CR.Q:.|
00001560: 38 34 30 3A 81 49 49 B2 31 A4 4E 46 3A 98 34 2C |840:.II.1.NF:.4,|
00001570: 46 24 28 49 49 29 3A 82 49 49 3A 98 34 2C 22 20 |F$(II):.II:.4," |
00001580: 22 3A 82 51 3A 89 31 39 39 39 00 AD 1D CF 07 98 |":.Q:.1999......|
00001590: 34 2C 22 20 22 3A A0 34 3A A0 31 35 3A 97 36 39 |4," ":.4:.15:.69|
000015A0: 39 2C 31 3A 8D 31 31 31 30 30 3A 89 31 00 BB 1D |9,1:.11100:.1...|
000015B0: D0 07 52 53 B2 31 3A 44 B2 52 44 00 ED 1D DA 07 |..RS.1:D.RD.....|
000015C0: 81 41 30 B2 31 A4 4E 46 3A 46 50 25 28 41 30 29 |.A0.1.NF:FP%(A0)|
000015D0: B2 52 53 3A 52 53 B2 46 53 25 28 41 30 29 AA 52 |.RS:RS.FS%(A0).R|
000015E0: 53 AA 31 3A 82 3A 52 53 B2 52 53 AB 31 00 01 1E |S.1:.:RS.RS.1...|
000015F0: E4 07 52 42 B2 B5 28 32 35 34 AD 52 53 AA 45 50 |..RB..(254.RS.EP|
00001600: 29 00 20 1E EE 07 9F 43 30 2C 38 2C 43 30 2C 22 |). ....C0,8,C0,"|
00001610: 23 22 3A 8D 31 37 35 30 3A 8B 45 A7 32 37 35 30 |#":.1750:.E.2750|
00001620: 00 2A 1E F8 07 8D 32 34 37 30 00 3D 1E 02 08 98 |.*....2470.=....|
00001630: 43 43 2C 22 42 2D 50 3A 22 43 30 3B 31 00 53 1E |CC,"B-P:"C0;1.S.|
00001640: 0C 08 81 41 30 B2 31 A4 52 42 3A 81 41 31 B2 31 |...A0.1.RB:.A1.1|
00001650: A4 4E 46 00 6E 1E 16 08 98 43 30 2C C8 28 53 50 |.NF.n....C0,.(SP|
00001660: 24 2C 46 53 25 28 41 31 29 29 3B 4D 24 3B 00 79 |$,FS%(A1));M$;.y|
00001670: 1E 20 08 82 41 31 2C 41 30 00 A6 1E 2A 08 4E 42 |. ..A1,A0...*.NB|
00001680: B2 B5 28 4E 52 AD 52 42 AA 45 50 29 3A 8B 28 4E |..(NR.RB.EP):.(N|
00001690: 52 AD 52 42 AB 4E 42 29 AC 52 42 B1 B2 31 A7 4E |R.RB.NB).RB..1.N|
000016A0: 42 B2 4E 42 AA 31 00 B8 1E 34 08 54 B2 31 3A 53 |B.NB.1...4.T.1:S|
000016B0: B2 30 3A 8D 36 32 30 04 00 D7 1E 3E 08 81 41 30 |.0:.620....>..A0|
000016C0: B2 30 A4 4E 42 AB 31 3A 8D 31 33 37 30 05 3A 8B |.0.NB.1:.1370.:.|
000016D0: 45 A7 32 37 35 30 05 00 F8 1E 48 08 49 54 25 28 |E.2750....H.IT%(|
000016E0: 41 30 29 B2 54 3A 49 53 25 28 41 30 29 B2 53 3A |A0).T:IS%(A0).S:|
000016F0: 8D 31 30 30 30 05 3A 82 00 03 1F 52 08 8D 31 33 |.1000.:....R..13|
00001700: 37 30 05 00 16 1F 5C 08 98 43 43 2C 22 42 2D 50 |70....\..CC,"B-P|
00001710: 3A 22 43 30 3B 31 00 42 1F 66 08 98 43 30 2C 4E |:"C0;1.B.f..C0,N|
00001720: 52 3B 4D 24 3B 31 3B 4D 24 3B 4E 42 3B 4D 24 3B |R;M$;1;M$;NB;M$;|
00001730: 52 53 3B 4D 24 3B 52 42 3B 4D 24 3B 4E 46 3B 4D |RS;M$;RB;M$;NF;M|
00001740: 24 3B 00 59 1F 70 08 98 43 43 2C 22 42 2D 57 3A |$;.Y.p..CC,"B-W:|
00001750: 22 43 30 3B 44 3B 54 3B 53 00 84 1F 7A 08 41 24 |"C0;D;T;S...z.A$|
00001760: B2 C4 28 44 44 29 AA 22 3A 22 AA C8 28 46 24 AA |..(DD).":"..(F$.|
00001770: 53 50 24 2C 31 30 29 AA 22 2E 44 45 53 43 52 2C |SP$,10).".DESCR,|
00001780: 55 2C 57 22 00 94 1F 84 08 9F 43 31 2C 38 2C 43 |U,W"......C1,8,C|
00001790: 31 2C 41 24 00 A8 1F 8E 08 8D 31 37 35 30 05 3A |1,A$......1750.:|
000017A0: 8B 45 A7 32 37 35 30 05 00 C2 1F 98 08 98 43 31 |.E.2750.......C1|
000017B0: 2C 49 44 24 3B 4D 24 3B 54 3B 4D 24 3B 53 3B 4D |,ID$;M$;T;M$;S;M|
000017C0: 24 3B 00 F7 1F A2 08 81 41 30 B2 31 A4 4E 46 3A |$;......A0.1.NF:|
000017D0: 98 43 31 2C C7 28 46 53 25 28 41 30 29 29 3B C7 |.C1,.(FS%(A0));.|
000017E0: 28 46 54 25 28 41 30 29 29 3B 46 48 24 28 41 30 |(FT%(A0));FH$(A0|
000017F0: 29 3B 4D 24 3B 3A 82 00 23 20 AC 08 81 41 30 B2 |);M$;:..# ...A0.|
00001800: 30 A4 4E 42 AB 31 3A 98 43 31 2C C7 28 49 54 25 |0.NB.1:.C1,.(IT%|
00001810: 28 41 30 29 29 3B C7 28 49 53 25 28 41 30 29 29 |(A0));.(IS%(A0))|
00001820: 3B 3A 82 00 31 20 B6 08 A0 43 31 3A A0 43 30 3A |;:..1 ...C1:.C0:|
00001830: 8E 00 37 20 C0 08 8F 00 62 20 06 09 41 24 B2 C4 |..7 ....b ..A$..|
00001840: 28 44 44 29 AA 22 3A 22 AA C8 28 46 24 AA 53 50 |(DD).":"..(F$.SP|
00001850: 24 2C 31 30 29 AA 22 2E 44 45 53 43 52 2C 55 2C |$,10).".DESCR,U,|
00001860: 52 22 00 80 20 10 09 9F 43 31 2C 38 2C 43 31 2C |R".. ...C1,8,C1,|
00001870: 41 24 3A 8D 31 37 35 30 3A 8B 45 A7 32 37 35 30 |A$:.1750:.E.2750|
00001880: 00 90 20 1A 09 84 43 31 2C 49 44 24 2C 54 2C 53 |.. ...C1,ID$,T,S|
00001890: 00 AF 20 24 09 9F 43 30 2C 38 2C 43 30 2C 22 23 |.. $..C0,8,C0,"#|
000018A0: 22 3A 8D 31 37 35 30 3A 8B 45 A7 32 37 35 30 00 |":.1750:.E.2750.|
000018B0: BA 20 2E 09 8D 32 34 37 30 05 00 E1 20 38 09 98 |. ...2470... 8..|
000018C0: 43 43 2C 22 42 2D 52 3A 22 3B 43 30 3B 52 44 3B |CC,"B-R:";C0;RD;|
000018D0: 54 3B 53 3A 8D 31 37 35 30 3A 8B 45 A7 32 37 35 |T;S:.1750:.E.275|
000018E0: 30 00 FB 20 42 09 84 43 30 2C 4E 52 2C 46 52 2C |0.. B..C0,NR,FR,|
000018F0: 4E 42 2C 52 53 2C 52 42 2C 4E 46 00 16 21 4C 09 |NB,RS,RB,NF..!L.|
00001900: 8D 35 31 30 3A 46 54 25 28 30 29 B2 54 3A 46 53 |.510:FT%(0).T:FS|
00001910: 25 28 30 29 B2 53 00 29 21 56 09 81 41 30 B2 31 |%(0).S.)!V..A0.1|
00001920: A4 4E 46 3A 8D 32 35 31 30 00 3B 21 5B 09 46 53 |.NF:.2510.;![.FS|
00001930: 25 28 41 30 29 B2 C6 28 41 24 29 00 54 21 60 09 |%(A0)..(A$).T!`.|
00001940: 8D 32 35 31 30 05 3A 46 54 25 28 41 30 29 B2 C6 |.2510.:FT%(A0)..|
00001950: 28 41 24 29 00 68 21 6A 09 84 43 31 2C 46 48 24 |(A$).h!j..C1,FH$|
00001960: 28 41 30 29 3A 82 41 30 00 8C 21 74 09 81 41 30 |(A0):.A0..!t..A0|
00001970: B2 30 A4 4E 42 AB 31 3A 8D 32 35 31 30 05 3A 49 |.0.NB.1:.2510.:I|
00001980: 54 25 28 41 30 29 B2 C6 28 41 24 29 00 A7 21 7E |T%(A0)..(A$)..!~|
00001990: 09 8D 32 35 31 30 05 3A 49 53 25 28 41 30 29 B2 |..2510.:IS%(A0).|
000019A0: C6 28 41 24 29 3A 82 00 BB 21 88 09 8D 31 37 35 |.(A$):...!...175|
000019B0: 30 05 3A 8B 45 A7 32 37 35 30 05 00 C3 21 92 09 |0.:.E.2750...!..|
000019C0: A0 43 31 00 C9 21 9C 09 8E 00 F3 21 A6 09 98 31 |.C1..!.....!...1|
000019D0: 35 2C 22 55 31 3A 22 3B 43 30 3B 52 44 3B 22 2C |5,"U1:";C0;RD;",|
000019E0: 31 38 2C 30 22 3A 8D 31 37 35 30 3A 8B 45 A7 32 |18,0":.1750:.E.2|
000019F0: 37 35 30 00 09 22 B0 09 98 31 35 2C 22 42 2D 50 |750.."...15,"B-P|
00001A00: 3A 22 3B 43 30 3B 31 36 32 00 4C 22 BA 09 8D 31 |:";C0;162.L"...1|
00001A10: 37 35 30 3A A1 23 32 2C 41 24 2C 41 31 24 3A 41 |750:.#2,A$,A1$:A|
00001A20: 24 B2 41 24 AA 41 31 24 3A 8B 49 44 24 B3 B1 41 |$.A$.A1$:.ID$..A|
00001A30: 24 A7 45 4E B2 34 33 3A 45 4D 24 B2 22 42 41 44 |$.EN.43:EM$."BAD|
00001A40: 20 44 49 53 4B 22 3A 89 32 37 35 30 00 52 22 C4 | DISK":.2750.R".|
00001A50: 09 8E 00 6C 22 CE 09 A1 23 33 2C 41 24 3A 8B 41 |...l"...#3,A$:.A|
00001A60: 24 B2 22 22 A7 41 24 B2 C7 28 30 29 00 72 22 D8 |$."".A$..(0).r".|
00001A70: 09 8E 00 7F 22 E2 09 81 4A 38 B2 31 A4 4E 46 00 |...."...J8.1.NF.|
00001A80: 9B 22 EC 09 8B C3 28 46 24 28 4A 38 29 29 B3 31 |."....(F$(J8)).1|
00001A90: A7 46 24 28 4A 38 29 B2 22 3A 22 00 A5 22 F6 09 |.F$(J8).":".."..|
00001AA0: 82 4A 38 3A 8E 00 B8 22 00 0A 5A 38 24 B2 22 22 |.J8:..."..Z8$.""|
00001AB0: 3A 5A 39 24 B2 49 4F 24 00 C9 22 14 0A 81 4A 39 |:Z9$.IO$.."...J9|
00001AC0: B2 31 A4 C3 28 5A 39 24 29 00 E7 22 1E 0A 5A 37 |.1..(Z9$).."..Z7|
00001AD0: 24 B2 CA 28 5A 39 24 2C 4A 39 2C 31 29 3A 5A 37 |$..(Z9$,J9,1):Z7|
00001AE0: B2 C6 28 5A 37 24 29 00 00 23 32 0A 8B 5A 37 B2 |..(Z7$)..#2..Z7.|
00001AF0: 34 34 A7 5A 37 24 B2 22 2F 22 3A 89 32 36 33 30 |44.Z7$."/":.2630|
00001B00: 00 13 23 3C 0A 8B 5A 37 B2 35 39 A7 5A 37 24 B2 |..#<..Z7.59.Z7$.|
00001B10: 22 2F 22 00 27 23 46 0A 5A 38 24 B2 5A 38 24 AA |"/".'#F.Z8$.Z8$.|
00001B20: 5A 37 24 3A 82 4A 39 00 46 23 50 0A 8B C3 28 5A |Z7$:.J9.F#P...(Z|
00001B30: 38 24 29 B1 59 35 A7 5A 38 24 B2 C8 28 5A 38 24 |8$).Y5.Z8$..(Z8$|
00001B40: 2C 59 35 AA 31 29 00 5E 23 5A 0A 49 4F 24 B2 5A |,Y5.1).^#Z.IO$.Z|
00001B50: 38 24 3A 49 4F B2 C3 28 49 4F 24 29 3A 8E 00 64 |8$:IO..(IO$):..d|
00001B60: 23 64 0A 8F 00 77 23 8C 0A 98 43 43 2C 22 42 2D |#d...w#...CC,"B-|
00001B70: 50 3A 22 43 30 3B 31 00 A4 23 91 0A 98 43 30 2C |P:"C0;1..#...C0,|
00001B80: 4E 52 3B 4D 24 3B 46 52 3B 4D 24 3B 4E 42 3B 4D |NR;M$;FR;M$;NB;M|
00001B90: 24 3B 52 53 3B 4D 24 3B 52 42 3B 4D 24 3B 4E 46 |$;RS;M$;RB;M$;NF|
00001BA0: 3B 4D 24 3B 00 B5 23 96 0A 8D 31 37 35 30 3A 8B |;M$;..#...1750:.|
00001BB0: 45 A7 45 B2 30 00 D6 23 A0 0A 98 43 43 2C 22 42 |E.E.0..#...CC,"B|
00001BC0: 2D 57 3A 22 43 30 3B 44 3B 46 54 25 28 30 29 3B |-W:"C0;D;FT%(0);|
00001BD0: 46 53 25 28 30 29 00 E4 23 AA 0A 8D 31 37 35 30 |FS%(0)..#...1750|
00001BE0: 3A A0 43 30 00 EA 23 B4 0A 8E 00 F6 23 BE 0A 45 |:.C0..#.....#..E|
00001BF0: B2 45 AA 31 3A 8E 00 01 24 C8 0A 89 35 30 34 30 |.E.1:...$...5040|
00001C00: 05 00 1F 24 D2 0A 44 44 B2 30 3A 52 44 B2 30 3A |...$..DD.0:RD.0:|
00001C10: 49 44 24 B2 22 41 41 22 3A 4E 52 B2 32 30 30 00 |ID$."AA":NR.200.|
00001C20: 2A 24 DC 0A 8D 34 38 34 30 05 00 34 24 E6 0A 46 |*$...4840..4$..F|
00001C30: 39 B2 AB 31 00 64 24 F0 0A 99 22 93 11 11 20 20 |9..1.d$..."... |
00001C40: 20 50 4C 45 41 53 45 20 57 41 49 54 2E 2E 2E 46 | PLEASE WAIT...F|
00001C50: 4F 52 4D 41 54 54 49 4E 47 20 44 49 53 4B 45 54 |ORMATTING DISKET|
00001C60: 54 45 2E 22 00 92 24 04 0B A0 31 3A 9F 31 2C 38 |TE."..$...1:.1,8|
00001C70: 2C 31 35 3A 98 31 2C 22 4E 30 3A 46 49 4C 45 20 |,15:.1,"N0:FILE |
00001C80: 44 41 54 41 2C 30 31 22 3A A0 31 20 3A 45 4E B2 |DATA,01":.1 :EN.|
00001C90: 44 53 00 9C 24 0E 0B 8D 35 32 30 04 00 A5 24 18 |DS..$...520...$.|
00001CA0: 0B 52 53 B2 30 00 C2 24 22 0B 81 49 B2 31 A4 4E |.RS.0..$"..I.1.N|
00001CB0: 46 3A 52 53 B2 46 53 25 28 49 29 AA 52 53 AA 31 |F:RS.FS%(I).RS.1|
00001CC0: 3A 82 00 E3 24 2C 0B 41 24 B2 22 49 30 22 3A 8B |:...$,.A$."I0":.|
00001CD0: 44 44 B2 52 44 A7 41 24 B2 22 49 30 22 AA C4 28 |DD.RD.A$."I0"..(|
00001CE0: 44 44 29 00 EE 24 36 0B 98 43 43 2C 41 24 00 00 |DD)..$6..CC,A$..|
00001CF0: 25 40 0B 8D 32 30 30 30 3A 8B 45 A7 33 39 39 30 |%@..2000:.E.3990|
00001D00: 00 2F 25 4A 0B 9F 34 2C 38 2C 34 2C C4 28 44 44 |./%J..4,8,4,.(DD|
00001D10: 29 AA 22 3A 22 AA C8 28 46 24 AA 53 50 24 2C 31 |).":"..(F$.SP$,1|
00001D20: 30 29 AA 22 2E 4B 45 59 30 31 2C 55 2C 57 22 00 |0).".KEY01,U,W".|
00001D30: 3F 25 54 0B 98 34 2C 30 3B 4D 24 3B 3A A0 34 00 |?%T..4,0;M$;:.4.|
00001D40: 59 25 5E 0B 9F 37 2C 38 2C 37 2C 22 30 3A 4C 45 |Y%^..7,8,7,"0:LE|
00001D50: 4E 47 54 48 2C 53 2C 57 22 00 69 25 68 0B 98 37 |NGTH,S,W".i%h..7|
00001D60: 2C 31 3B C7 28 31 33 29 3B 00 77 25 72 0B A0 37 |,1;.(13);.w%r..7|
00001D70: 3A 59 35 B2 32 35 30 00 90 25 7C 0B 9F 37 2C 38 |:Y5.250..%|..7,8|
00001D80: 2C 37 2C 22 30 3A 4C 41 42 45 4C 2C 53 2C 57 22 |,7,"0:LABEL,S,W"|
00001D90: 00 A1 25 86 0B 98 37 2C 46 24 3B C7 28 31 33 29 |..%...7,F$;.(13)|
00001DA0: 3B 00 B1 25 90 0B 98 37 2C 31 3B C7 28 31 33 29 |;..%...7,1;.(13)|
00001DB0: 3B 00 BD 25 9A 0B A0 37 3A 4E 50 B2 31 00 C8 25 |;..%...7:NP.1..%|
00001DC0: A4 0B 89 33 30 35 30 05 00 CE 25 AE 0B 8F 00 D9 |...3050...%.....|
00001DD0: 25 B8 0B 89 35 32 39 30 05 00 F2 25 C2 0B 99 22 |%...5290...%..."|
00001DE0: 93 11 11 20 20 52 45 41 44 49 4E 47 20 46 49 4C |... READING FIL|
00001DF0: 45 22 00 1E 26 CC 0B 8D 34 34 33 30 3A 8B 45 4E |E"..&...4430:.EN|
00001E00: B2 36 32 A7 99 46 24 AA 22 44 4F 45 53 20 4E 4F |.62..F$."DOES NO|
00001E10: 54 20 45 58 49 53 54 22 3A 89 34 34 36 30 00 2E |T EXIST":.4460..|
00001E20: 26 D6 0B 8B 4E 50 B2 30 A7 35 33 34 30 05 00 3C |&...NP.0.5340..<|
00001E30: 26 E0 0B 44 44 B2 30 3A 52 44 B2 30 00 50 26 EA |&..DD.0:RD.0.P&.|
00001E40: 0B 8D 32 32 34 30 05 3A 8B 45 A7 33 39 39 30 05 |..2240.:.E.3990.|
00001E50: 00 5E 26 F4 0B 8B C2 28 37 30 31 29 A7 8E 00 67 |.^&....(701)...g|
00001E60: 26 FE 0B 43 58 B2 30 00 94 26 08 0C 9F 34 2C 38 |&..CX.0..&...4,8|
00001E70: 2C 34 2C C4 28 44 44 29 AA 22 3A 22 AA C8 28 46 |,4,.(DD).":"..(F|
00001E80: 24 AA 53 50 24 2C 31 30 29 AA 22 2E 4B 45 59 30 |$.SP$,10).".KEY0|
00001E90: 31 2C 55 22 00 9D 26 12 0C 43 58 B2 30 00 B2 26 |1,U"..&..CX.0..&|
00001EA0: 1C 0C 84 34 2C 52 52 3A 8B 52 52 B2 30 A7 33 31 |...4,RR:.RR.0.31|
00001EB0: 34 30 00 CB 26 21 0C 8B 20 57 57 B2 31 20 A7 20 |40..&!.. WW.1 . |
00001EC0: 57 57 B2 30 3A 89 20 33 31 34 30 00 E8 26 26 0C |WW.0:. 3140..&&.|
00001ED0: 81 49 B2 31 A4 52 52 3A 84 34 2C 4B 31 24 28 49 |.I.1.RR:.4,K1$(I|
00001EE0: 29 2C 52 52 25 28 49 29 00 0F 27 30 0C 43 58 B2 |),RR%(I)..'0.CX.|
00001EF0: 43 58 AA 31 3A 8B C8 28 4B 31 24 28 49 29 2C 33 |CX.1:..(K1$(I),3|
00001F00: 29 B2 22 58 44 58 22 A7 43 58 B2 43 58 AB 31 00 |)."XDX".CX.CX.1.|
00001F10: 16 27 3A 0C 82 49 00 29 27 44 0C A0 34 3A 8B 46 |.':..I.)'D..4:.F|
00001F20: 39 B2 AB 31 A7 34 33 36 30 00 38 27 4E 0C 8B 20 |9..1.4360.8'N.. |
00001F30: 53 57 B2 31 20 A7 20 8E 00 4B 27 58 0C 8B 20 C2 |SW.1 . ..K'X.. .|
00001F40: 28 36 39 39 29 B2 31 20 A7 20 31 00 56 27 62 0C |(699).1 . 1.V'b.|
00001F50: 89 35 34 39 30 05 00 5C 27 6C 0C 8F 00 96 27 76 |.5490..\'l....'v|
00001F60: 0C 42 24 B2 22 22 3A 99 22 93 22 3A 4F 49 24 B2 |.B$."":.".":OI$.|
00001F70: 22 45 4E 54 45 52 20 46 49 52 53 54 20 46 49 45 |"ENTER FIRST FIE|
00001F80: 4C 44 3A 20 22 3A 8D 35 38 31 30 3A 8B 49 4F B2 |LD: ":.5810:.IO.|
00001F90: 30 A7 35 34 39 30 00 B2 27 7B 0C 8B 20 42 24 B2 |0.5490..'{.. B$.|
00001FA0: 22 85 22 20 A7 20 42 24 B2 22 22 3A 89 20 35 34 |"." . B$."":. 54|
00001FB0: 39 30 00 CC 27 80 0C 46 46 B2 30 3A 52 52 24 B2 |90..'..FF.0:RR$.|
00001FC0: 49 4F 24 3A 81 49 49 B2 31 A4 52 52 00 ED 27 8A |IO$:.II.1.RR..'.|
00001FD0: 0C 8B C8 28 4B 31 24 28 49 49 29 2C C3 28 52 52 |...(K1$(II),.(RR|
00001FE0: 24 29 29 B2 52 52 24 A7 33 32 33 30 05 00 FA 27 |$)).RR$.3230...'|
00001FF0: 94 0C 82 3A 89 33 34 38 30 05 00 16 28 9E 0C 43 |...:.3480...(..C|
00002000: 52 B2 52 52 25 28 49 49 29 3A 8D 38 34 30 3A 49 |R.RR%(II):.840:I|
00002010: 49 B2 49 49 AB 31 00 24 28 A8 0C 46 46 B2 30 3A |I.II.1.$(..FF.0:|
00002020: 53 57 B2 30 00 40 28 B2 0C 99 22 93 11 52 45 43 |SW.0.@(..."..REC|
00002030: 4F 52 44 20 4E 55 4D 42 45 52 20 3D 22 3B 43 52 |ORD NUMBER =";CR|
00002040: 00 5F 28 B3 0C 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D |._(..."---------|
00002050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
00002060: 70 28 BC 0C 81 49 B2 31 A4 4E 46 3A 4A 38 B2 49 |p(...I.1.NF:J8.I|
00002070: 00 93 28 C6 0C 49 4F 24 B2 22 20 20 20 20 20 20 |..(..IO$." |
00002080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002090: 20 20 22 00 C6 28 D0 0C 99 C8 28 C4 28 4A 38 29 | "..(....(.(J8)|
000020A0: AA 49 4F 24 2C 33 29 3B C8 28 46 48 24 28 49 29 |.IO$,3);.(FH$(I)|
000020B0: AA 49 4F 24 2C 31 30 29 AA 22 3A 20 22 A3 31 35 |.IO$,10).": ".15|
000020C0: 29 46 24 28 49 29 00 E0 28 D5 0C 8B 20 53 57 B2 |)F$(I)..(... SW.|
000020D0: 31 20 AF 20 49 B2 41 20 A7 20 53 57 B2 30 3A 99 |1 . I.A . SW.0:.|
000020E0: 00 E8 28 DA 0C 82 3A 99 00 20 29 E4 0C 99 22 43 |..(...:.. )..."C|
000020F0: 48 41 4E 47 45 53 20 28 59 20 4F 52 20 4E 29 20 |HANGES (Y OR N) |
00002100: 45 4E 54 45 52 20 44 20 54 4F 20 44 45 4C 45 54 |ENTER D TO DELET|
00002110: 45 3A 20 22 3B C7 28 31 31 34 29 3B 22 9D 22 3B |E: ";.(114);".";|
00002120: 00 58 29 E9 0C A1 20 41 24 3A 8B 20 41 24 B3 B1 |.X)... A$:. A$..|
00002130: 22 59 22 20 AF 20 41 24 B3 B1 22 4E 22 20 AF 20 |"Y" . A$.."N" . |
00002140: 41 24 B3 B1 22 44 22 20 AF 20 41 24 B3 B1 22 85 |A$.."D" . A$..".|
00002150: 22 20 A7 20 33 33 30 35 00 74 29 EA 0C 8B 20 41 |" . 3305.t)... A|
00002160: 24 B2 22 85 22 20 A7 20 41 24 B2 22 22 3A 89 20 |$."." . A$."":. |
00002170: 35 34 39 30 00 7D 29 EB 0C 99 20 41 24 00 8E 29 |5490.})... A$..)|
00002180: EE 0C 8B 41 24 B2 22 4E 22 A7 33 34 32 30 00 A7 |...A$."N".3420..|
00002190: 29 EF 0C 44 35 B2 44 35 AA 31 3A 8B 41 24 B2 22 |)..D5.D5.1:.A$."|
000021A0: 59 22 A7 33 33 32 30 00 EA 29 F0 0C 49 4F 24 B2 |Y".3320..)..IO$.|
000021B0: 22 44 45 4C 45 54 45 22 3A 99 22 11 22 3B 49 4F |"DELETE":.".";IO|
000021C0: 24 3B 22 2E 2E 2E 41 52 45 20 59 4F 55 20 53 55 |$;"...ARE YOU SU|
000021D0: 52 45 3F 20 28 59 20 4F 52 20 4E 29 20 22 3B C7 |RE? (Y OR N) ";.|
000021E0: 28 31 31 34 29 3B 22 9D 22 3B 00 0E 2A F1 0C A1 |(114);".";..*...|
000021F0: 20 41 24 3A 8B 20 41 24 B3 B1 22 59 22 20 AF 20 | A$:. A$.."Y" . |
00002200: 41 24 B3 B1 22 4E 22 20 A7 20 33 33 31 33 00 1F |A$.."N" . 3313..|
00002210: 2A F2 0C 8B 41 24 B2 22 4E 22 A7 33 32 34 30 00 |*...A$."N".3240.|
00002220: 2A 2A F3 0C 89 20 33 34 32 30 00 4E 2A F8 0C 99 |**... 3420.N*...|
00002230: 22 11 22 3B 3A 4F 49 24 B2 22 45 4E 54 45 52 20 |".";:OI$."ENTER |
00002240: 46 49 45 4C 44 3A 20 22 3A 8D 35 38 31 30 00 5E |FIELD: ":.5810.^|
00002250: 2A 02 0D 8B 49 4F B2 30 A7 33 32 35 30 05 00 76 |*...IO.0.3250..v|
00002260: 2A 0C 0D 41 B2 C5 28 49 4F 24 29 3A 8B 41 B1 4E |*..A..(IO$):.A.N|
00002270: 46 A7 41 B2 4E 46 00 83 2A 0E 0D 8B 41 B3 31 A7 |F.A.NF..*...A.1.|
00002280: 41 B2 31 00 8C 2A 0F 0D 53 57 B2 31 00 B7 2A 20 |A.1..*..SW.1..* |
00002290: 0D 99 22 4E 4F 57 3A 20 22 3B 46 24 28 41 29 3A |.."NOW: ";F$(A):|
000022A0: 4F 49 24 B2 22 43 48 41 4E 47 45 20 54 4F 3A 20 |OI$."CHANGE TO: |
000022B0: 22 3A 8D 35 38 31 30 00 C7 2A 2A 0D 8B 49 4F B2 |":.5810..**..IO.|
000022C0: 30 A7 33 32 35 30 05 00 D2 2A 34 0D 8D 32 35 36 |0.3250...*4..256|
000022D0: 30 05 00 E7 2A 3E 0D 46 24 28 41 29 B2 49 4F 24 |0...*>.F$(A).IO$|
000022E0: 3A 46 28 41 29 B2 30 00 FE 2A 48 0D 8B 41 B2 31 |:F(A).0..*H..A.1|
000022F0: A7 4B 31 24 28 43 52 29 B2 46 24 28 41 29 00 0E |.K1$(CR).F$(A)..|
00002300: 2B 52 0D 46 46 B2 31 3A 89 33 32 35 30 05 00 2B |+R.FF.1:.3250..+|
00002310: 2B 5C 0D 99 22 93 22 3A 99 22 11 20 20 55 50 44 |+\..".":.". UPD|
00002320: 41 54 49 4E 47 20 46 49 4C 45 22 00 4D 2B 66 0D |ATING FILE".M+f.|
00002330: 8F 20 2A 2A 2A 2A 2A 20 43 4C 4F 53 45 20 52 45 |. ***** CLOSE RE|
00002340: 43 4F 52 44 20 26 20 55 50 44 41 54 45 00 6B 2B |CORD & UPDATE.k+|
00002350: 70 0D 8B 20 C8 28 49 4F 24 2C 36 29 B2 22 44 45 |p.. .(IO$,6)."DE|
00002360: 4C 45 54 45 22 A7 34 35 30 30 05 00 7B 2B 7A 0D |LETE".4500..{+z.|
00002370: 8B 46 46 B2 30 A7 35 34 39 30 05 00 85 2B 84 0D |.FF.0.5490...+..|
00002380: 8D 36 39 30 04 00 90 2B 8E 0D 89 35 34 39 30 05 |.690...+...5490.|
00002390: 00 AB 2B 98 0D 99 22 11 52 45 43 4F 52 44 20 4E |..+...".RECORD N|
000023A0: 4F 54 20 50 52 45 53 45 4E 54 22 00 C2 2B A2 0D |OT PRESENT"..+..|
000023B0: 81 49 49 B2 31 A4 38 30 30 3A 82 3A 89 35 34 39 |.II.1.800:.:.549|
000023C0: 30 05 00 C8 2B AC 0D 8F 00 F4 2B B6 0D 97 36 38 |0...+.....+...68|
000023D0: 33 2C 31 3A 44 35 B2 44 35 AA 31 3A 99 22 93 22 |3,1:D5.D5.1:."."|
000023E0: 3A 20 99 22 41 44 44 20 4E 45 57 20 52 45 43 4F |: ."ADD NEW RECO|
000023F0: 52 44 53 22 00 2C 2C B7 0D 8B 44 35 B1 31 30 A7 |RDS".,,...D5.10.|
00002400: 99 22 93 11 20 20 55 50 44 41 54 49 4E 47 20 44 |.".. UPDATING D|
00002410: 49 52 45 43 54 4F 52 59 20 52 45 43 4F 52 44 53 |IRECTORY RECORDS|
00002420: 22 3A 55 37 B2 31 3A 89 33 38 33 30 00 43 2C BB |":U7.1:.3830.C,.|
00002430: 0D 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.."-------------|
00002440: 2D 2D 22 00 55 2C C0 0D 43 58 B2 43 58 AA 31 3A |--".U,..CX.CX.1:|
00002450: 42 24 B2 22 22 00 65 2C CA 0D 8B 43 58 B1 4E 52 |B$."".e,...CX.NR|
00002460: A7 33 39 35 30 00 85 2C DE 0D 99 22 43 55 52 52 |.3950..,..."CURR|
00002470: 45 4E 54 20 54 4F 54 41 4C 20 52 45 43 20 3D 22 |ENT TOTAL REC ="|
00002480: 3B 43 58 3A 99 00 91 2C E8 0D 81 49 B2 31 A4 4E |;CX:...,...I.1.N|
00002490: 46 00 AB 2C F2 0D 4F 49 24 B2 46 48 24 28 49 29 |F..,..OI$.FH$(I)|
000024A0: AA 22 3A 20 22 3A 8D 35 38 31 30 00 BE 2C F7 0D |.": ":.5810..,..|
000024B0: 8B 20 42 24 B2 22 22 20 A7 20 33 36 33 30 00 E6 |. B$."" . 3630..|
000024C0: 2C 1A 0E 42 24 B2 22 22 3A 43 58 B2 43 58 AB 31 |,..B$."":CX.CX.1|
000024D0: 3A 44 35 B2 44 35 AB 31 3A 8B 20 44 35 B3 30 20 |:D5.D5.1:. D5.0 |
000024E0: A7 20 44 35 B2 30 00 F1 2C 1F 0E 89 20 35 34 39 |. D5.0..,... 549|
000024F0: 30 00 09 2D 2E 0E 46 24 28 49 29 B2 49 4F 24 3A |0..-..F$(I).IO$:|
00002500: 46 28 49 29 B2 30 3A 82 49 00 26 2D 38 0E 99 22 |F(I).0:.I.&-8.."|
00002510: 93 22 3A 20 99 22 41 44 44 20 4E 45 57 20 52 45 |.": ."ADD NEW RE|
00002520: 43 4F 52 44 53 22 00 3D 2D 3A 0E 99 22 2D 2D 2D |CORDS".=-:.."---|
00002530: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 5D 2D |------------".]-|
00002540: 40 0E 99 22 43 55 52 52 45 4E 54 20 54 4F 54 41 |@.."CURRENT TOTA|
00002550: 4C 20 52 45 43 20 3D 22 3B 43 58 3A 99 00 6E 2D |L REC =";CX:..n-|
00002560: 42 0E 81 49 B2 31 A4 4E 46 3A 4A 38 B2 49 00 8B |B..I.1.NF:J8.I..|
00002570: 2D 4C 0E 49 4F 24 B2 22 20 20 20 20 20 20 20 20 |-L.IO$." |
00002580: 20 20 20 20 20 20 20 20 20 20 22 00 BE 2D 56 0E | "..-V.|
00002590: 99 C8 28 C4 28 4A 38 29 AA 49 4F 24 2C 33 29 AA |..(.(J8).IO$,3).|
000025A0: C8 28 46 48 24 28 49 29 AA 49 4F 24 2C 31 30 29 |.(FH$(I).IO$,10)|
000025B0: AA 22 3A 20 22 A3 31 36 29 46 24 28 49 29 00 C4 |.": ".16)F$(I)..|
000025C0: 2D 60 0E 82 00 CD 2D 6A 0E 99 22 20 22 00 F0 2D |-`....-j.." "..-|
000025D0: 74 0E 4F 49 24 B2 22 43 48 41 4E 47 45 53 20 28 |t.OI$."CHANGES (|
000025E0: 59 20 4F 52 20 4E 29 3A 20 22 3A 8D 35 38 31 30 |Y OR N): ":.5810|
000025F0: 00 14 2E 7E 0E 8B 20 42 24 B2 22 85 22 20 A7 20 |...~.. B$."." . |
00002600: 42 24 B2 22 22 3A 58 43 B2 58 43 AB 31 3A 89 20 |B$."":XC.XC.1:. |
00002610: 35 34 39 30 00 2C 2E 7F 0E 8B C8 28 49 4F 24 2C |5490.,.....(IO$,|
00002620: 31 29 B3 B1 22 59 22 A7 33 37 33 30 00 37 2E 88 |1).."Y".3730.7..|
00002630: 0E 89 33 37 35 30 05 00 5C 2E 92 0E 99 22 93 22 |..3750..\...."."|
00002640: 3A 99 22 11 20 20 20 57 52 49 54 49 4E 47 20 52 |:.". WRITING R|
00002650: 45 43 4F 52 44 22 3A 89 34 35 33 30 00 94 2E 9C |ECORD":.4530....|
00002660: 0E 43 52 B2 46 52 3A 46 52 B2 46 52 AA 31 3A 52 |.CR.FR:FR.FR.1:R|
00002670: 52 B2 52 52 AA 31 3A 8D 36 39 30 3A 4B 31 24 28 |R.RR.1:.690:K1$(|
00002680: 52 52 29 B2 46 24 28 31 29 3A 52 52 25 28 52 52 |RR).F$(1):RR%(RR|
00002690: 29 B2 43 52 00 AE 2E 9D 0E 9F 35 2C 38 2C 35 2C |).CR......5,8,5,|
000026A0: 22 30 3A 46 2D 46 4F 52 4D 2C 53 2C 57 22 00 CB |"0:F-FORM,S,W"..|
000026B0: 2E 9E 0E 8D 31 37 35 30 3A 8B 20 45 4E B2 36 33 |....1750:. EN.63|
000026C0: 20 A7 20 A0 35 3A 89 33 37 34 34 00 D9 2E 9F 0E | . .5:.3744.....|
000026D0: 98 35 2C 58 46 24 3A A0 35 00 EC 2E A0 0E 8B 20 |.5,XF$:.5...... |
000026E0: C2 28 36 39 39 29 B2 31 20 A7 20 31 00 02 2F A1 |.(699).1 . 1../.|
000026F0: 0E 8B 20 C2 28 36 38 33 29 B2 31 20 A7 20 33 35 |.. .(683).1 . 35|
00002700: 31 30 00 0C 2F A2 0E 89 35 34 39 30 00 2B 2F A6 |10../...5490.+/.|
00002710: 0E 4F 49 24 B2 22 46 49 45 4C 44 20 4E 55 4D 42 |.OI$."FIELD NUMB|
00002720: 45 52 3F 20 22 3A 8D 35 38 31 30 00 3B 2F B0 0E |ER? ":.5810.;/..|
00002730: 8B 49 4F B2 30 A7 33 36 34 30 05 00 49 2F BA 0E |.IO.0.3640..I/..|
00002740: 43 35 B2 C5 28 49 4F 24 29 00 5A 2F C4 0E 8B 43 |C5..(IO$).Z/...C|
00002750: 35 B1 4E 46 A7 33 37 35 30 05 00 69 2F C5 0E 8B |5.NF.3750..i/...|
00002760: 43 35 B3 31 A7 33 37 35 30 00 82 2F CE 0E 99 22 |C5.1.3750../..."|
00002770: 4E 4F 57 3A 20 22 3B 46 24 28 43 35 29 3B 22 11 |NOW: ";F$(C5);".|
00002780: 22 3B 00 A9 2F D8 0E 4F 49 24 B2 22 43 48 41 4E |";../..OI$."CHAN|
00002790: 47 45 20 54 4F 3A 20 22 3A 8D 35 38 31 30 3A 8B |GE TO: ":.5810:.|
000027A0: 49 4F B2 30 A7 33 36 34 30 00 B4 2F E2 0E 8D 32 |IO.0.3640../...2|
000027B0: 35 36 30 05 00 DA 2F EC 0E 46 24 28 43 35 29 B2 |560.../..F$(C5).|
000027C0: 49 4F 24 3A 46 28 43 35 29 B2 C5 28 46 24 28 43 |IO$:F(C5)..(F$(C|
000027D0: 35 29 29 3A 89 33 36 34 30 05 00 E3 2F F6 0E 44 |5)):.3640.../..D|
000027E0: 35 B2 30 00 05 30 FB 0E 41 51 24 B2 C8 28 46 24 |5.0..0..AQ$..(F$|
000027F0: AA 53 50 24 2C 31 30 29 AA 22 2E 4B 45 59 30 31 |.SP$,10).".KEY01|
00002800: 2C 55 2C 57 22 00 17 30 00 0F 98 43 43 2C 22 53 |,U,W"..0...CC,"S|
00002810: 30 3A 22 AA 41 51 24 00 1D 30 0A 0F 8F 00 31 30 |0:".AQ$..0....10|
00002820: 14 0F 8D 32 36 36 30 05 3A 98 43 43 2C 22 49 30 |...2660.:.CC,"I0|
00002830: 22 00 5B 30 1E 0F 9F 34 2C 38 2C 34 2C 22 30 3A |".[0...4,8,4,"0:|
00002840: 22 AA C8 28 46 24 AA 53 50 24 2C 31 30 29 AA 22 |"..(F$.SP$,10)."|
00002850: 2E 4B 45 59 30 31 2C 55 2C 57 22 00 6F 30 28 0F |.KEY01,U,W".o0(.|
00002860: 8D 31 37 35 30 05 3A 8B 45 A7 33 39 39 30 05 00 |.1750.:.E.3990..|
00002870: 96 30 32 0F 98 34 2C 52 52 3B 4D 24 3B 20 3A 8B |.02..4,RR;M$; :.|
00002880: C3 28 4B 31 24 28 31 29 29 B3 31 A7 4B 31 24 28 |.(K1$(1)).1.K1$(|
00002890: 31 29 B2 22 20 22 00 BD 30 3C 0F 81 49 B2 31 A4 |1)." "..0<..I.1.|
000028A0: 52 52 3A 98 34 2C 4B 31 24 28 49 29 3B 4D 24 3B |RR:.4,K1$(I);M$;|
000028B0: 52 52 25 28 49 29 3B 4D 24 3B 3A 82 49 00 D1 30 |RR%(I);M$;:.I..0|
000028C0: 46 0F 8D 31 37 35 30 05 3A 8B 45 A7 33 39 39 30 |F..1750.:.E.3990|
000028D0: 05 00 D8 30 50 0F A0 34 00 EC 30 5A 0F 8D 31 37 |...0P..4..0Z..17|
000028E0: 35 30 05 3A 8B 45 A7 33 39 39 30 05 00 FB 30 5B |50.:.E.3990...0[|
000028F0: 0F 8B 20 C2 28 36 38 32 29 A7 8E 00 0D 31 5C 0F |.. .(682)....1\.|
00002900: 8B 20 55 37 B2 31 20 A7 20 32 39 39 30 00 17 31 |. U7.1 . 2990..1|
00002910: 5D 0F 89 35 31 30 30 00 1D 31 64 0F 8F 00 42 31 |]..5100..1d...B1|
00002920: 6E 0F 81 49 B2 31 A4 52 52 3A 8B C8 28 4B 31 24 |n..I.1.RR:..(K1$|
00002930: 28 49 29 2C 33 29 B2 22 58 44 58 22 A7 33 35 34 |(I),3)."XDX".354|
00002940: 30 05 00 49 31 78 0F 82 49 00 90 31 82 0F 99 22 |0..I1x..I..1..."|
00002950: 11 20 20 54 48 45 20 46 49 4C 45 20 49 53 20 46 |. THE FILE IS F|
00002960: 55 4C 4C 2E 2E 2E 22 3A 99 22 11 20 20 4E 4F 20 |ULL...":.". NO |
00002970: 41 44 44 49 54 49 4F 4E 41 4C 20 52 45 43 4F 52 |ADDITIONAL RECOR|
00002980: 44 53 20 4D 41 59 20 42 45 20 41 44 44 45 44 22 |DS MAY BE ADDED"|
00002990: 00 A2 31 84 0F 43 58 B2 32 30 30 3A 52 52 B2 32 |..1..CX.200:RR.2|
000029A0: 30 30 00 B3 31 8C 0F 8D 31 31 31 30 30 3A 89 35 |00..1...11100:.5|
000029B0: 34 39 30 00 D9 31 96 0F 99 22 93 22 3A 20 99 22 |490..1...".": ."|
000029C0: 11 20 20 45 52 52 4F 52 20 45 58 49 53 54 53 20 |. ERROR EXISTS |
000029D0: 2D 22 3A 99 45 3B 45 4D 24 00 E8 31 A0 0F 81 49 |-":.E;EM$..1...I|
000029E0: B2 31 A4 37 30 30 3A 82 00 F6 31 AA 0F A0 20 43 |.1.700:...1... C|
000029F0: 30 3A A0 20 43 31 00 07 32 B4 0F 8B 45 4E B2 36 |0:. C1..2...EN.6|
00002A00: 30 A7 33 38 33 30 05 00 22 32 BE 0F A0 31 3A 9F |0.3830.."2...1:.|
00002A10: 31 2C 38 2C 31 35 3A 98 31 2C 22 49 30 22 3A A0 |1,8,15:.1,"I0":.|
00002A20: 20 31 00 57 32 C8 0F 8B 45 4E B2 36 33 20 A7 99 | 1.W2...EN.63 ..|
00002A30: 22 20 22 3A 99 46 24 AA 22 20 46 49 4C 45 20 45 |" ":.F$." FILE E|
00002A40: 58 49 53 54 53 3A 20 53 59 53 54 45 4D 20 4F 4B |XISTS: SYSTEM OK|
00002A50: 22 3A 89 33 30 31 30 00 72 32 D2 0F 8B 28 45 4E |":.3010.r2...(EN|
00002A60: B1 36 30 29 AF 28 45 4E B3 36 36 29 A7 32 37 36 |.60).(EN.66).276|
00002A70: 30 05 00 78 32 DC 0F 8A 00 81 32 E6 0F 43 35 B2 |0..x2.....2..C5.|
00002A80: 30 00 A4 32 0E 10 99 22 93 22 3A 99 22 46 49 4C |0..2...".":."FIL|
00002A90: 45 20 44 49 52 45 43 54 4F 52 59 2E 2E 2E 45 4E |E DIRECTORY...EN|
00002AA0: 54 45 52 3A 00 D1 32 10 10 99 22 2D 2D 2D 2D 2D |TER:..2..."-----|
00002AB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002AC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002AD0: 22 00 FE 32 12 10 99 22 50 20 54 4F 20 50 41 55 |"..2..."P TO PAU|
00002AE0: 53 45 2C 20 43 20 54 4F 20 43 4F 4E 54 49 4E 55 |SE, C TO CONTINU|
00002AF0: 45 2C 20 53 20 54 4F 20 53 54 4F 50 11 22 00 18 |E, S TO STOP."..|
00002B00: 33 13 10 99 22 52 45 43 20 20 46 49 45 4C 44 20 |3..."REC FIELD |
00002B10: 23 31 20 44 41 54 41 22 00 45 33 14 10 99 22 2D |#1 DATA".E3..."-|
00002B20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002B30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002B40: 2D 2D 2D 2D 22 00 5B 33 21 10 81 49 B2 31 A4 52 |----".[3!..I.1.R|
00002B50: 52 3A 49 56 28 49 29 B2 49 3A 82 00 68 33 22 10 |R:IV(I).I:..h3".|
00002B60: 81 49 49 B2 31 A4 52 52 00 84 33 2C 10 8B C3 28 |.II.1.RR..3,...(|
00002B70: 4B 31 24 28 49 56 28 49 49 29 29 29 B3 32 A7 34 |K1$(IV(II))).2.4|
00002B80: 31 39 30 05 00 A6 33 36 10 8B C8 28 4B 31 24 28 |190...36...(K1$(|
00002B90: 49 56 28 49 49 29 29 2C 33 29 B2 22 58 44 58 22 |IV(II)),3)."XDX"|
00002BA0: A7 34 31 39 30 05 00 DF 33 40 10 99 C9 28 22 20 |.4190...3@...(" |
00002BB0: 20 20 22 AA C4 28 49 49 29 2C 33 29 AA 22 20 20 | "..(II),3)." |
00002BC0: 22 AA C8 28 4B 31 24 28 49 56 28 49 49 29 29 AA |"..(K1$(IV(II)).|
00002BD0: 53 4C 24 2C 32 30 29 3A 43 35 B2 43 35 AA 31 00 |SL$,20):C5.C5.1.|
00002BE0: FB 33 4A 10 8B 43 35 B1 31 34 A7 8D 31 31 31 30 |.3J..C5.14..1110|
00002BF0: 30 3A 99 22 93 22 3A 43 35 B2 30 00 0C 34 54 10 |0:.".":C5.0..4T.|
00002C00: 8B 52 54 B2 31 A7 52 54 B2 30 3A 8E 00 16 34 5E |.RT.1.RT.0:...4^|
00002C10: 10 8D 34 32 32 30 00 1E 34 68 10 82 49 49 00 29 |..4220..4h..II.)|
00002C20: 34 6D 10 8D 31 31 31 30 30 00 2F 34 72 10 8E 00 |4m..11100./4r...|
00002C30: 50 34 7C 10 A1 20 41 24 3A 8B 20 41 24 B3 B1 22 |P4|.. A$:. A$.."|
00002C40: 50 22 20 AF 20 41 24 B3 B1 22 53 22 20 A7 20 8E |P" . A$.."S" . .|
00002C50: 00 68 34 81 10 52 54 B2 30 3A 8B 41 24 B2 22 53 |.h4..RT.0:.A$."S|
00002C60: 22 A7 52 54 B2 31 3A 8E 00 8C 34 86 10 A1 20 41 |".RT.1:...4... A|
00002C70: 24 3A 8B 20 41 24 B3 B1 22 43 22 20 AF 20 41 24 |$:. A$.."C" . A$|
00002C80: B3 B1 22 53 22 20 A7 20 34 32 33 30 00 92 34 9A |.."S" . 4230..4.|
00002C90: 10 8E 00 AE 34 A4 10 8B 28 43 36 B3 32 30 29 AF |....4...(C6.20).|
00002CA0: 28 54 37 24 B2 22 22 29 A7 34 32 34 30 05 00 BD |(T7$."").4240...|
00002CB0: 34 AE 10 8B 28 43 36 B1 31 39 29 A7 8E 00 D1 34 |4...(C6.19)....4|
00002CC0: B8 10 8B 54 37 24 B3 B1 22 22 A7 43 46 B2 31 3A |...T7$.."".CF.1:|
00002CD0: 8E 00 D7 34 C2 10 8E 00 E6 34 CC 10 8B 54 37 24 |...4.....4...T7$|
00002CE0: B2 54 39 24 A7 8E 00 EF 34 D6 10 43 46 B2 30 00 |.T9$....4..CF.0.|
00002CF0: 01 35 E0 10 54 37 24 B2 22 22 3A 8D 36 30 38 30 |.5..T7$."":.6080|
00002D00: 05 00 10 35 EA 10 8B 54 37 24 B2 54 39 24 A7 8E |...5...T7$.T9$..|
00002D10: 00 21 35 F4 10 8B 49 49 B3 52 52 A7 34 31 39 30 |.!5...II.RR.4190|
00002D20: 05 00 27 35 FE 10 8E 00 2D 35 08 11 8F 00 33 35 |..'5....-5....35|
00002D30: 12 11 8F 00 43 35 1C 11 46 39 B2 30 3A 89 33 37 |....C5..F9.0:.37|
00002D40: 33 30 05 00 6E 35 4E 11 41 24 B2 C4 28 44 44 29 |30..n5N.A$..(DD)|
00002D50: AA 22 3A 22 AA C8 28 46 24 AA 53 50 24 2C 31 30 |.":"..(F$.SP$,10|
00002D60: 29 AA 22 2E 44 45 53 43 52 2C 55 2C 52 22 00 8A |).".DESCR,U,R"..|
00002D70: 35 58 11 9F 43 31 2C 44 4E 2C 43 31 2C 41 24 3A |5X..C1,DN,C1,A$:|
00002D80: 8D 31 37 35 30 05 3A A0 43 31 00 90 35 62 11 8E |.1750.:.C1..5b..|
00002D90: 00 AF 35 6C 11 99 22 93 22 3A 99 46 24 AA 22 20 |..5l..".":.F$." |
00002DA0: 49 53 20 4E 4F 54 20 50 52 45 53 45 4E 54 22 00 |IS NOT PRESENT".|
00002DB0: D3 35 76 11 81 49 B2 31 A4 31 30 30 30 3A 82 3A |.5v..I.1.1000:.:|
00002DC0: 46 24 B2 22 4E 4F 20 54 49 54 4C 45 22 3A 89 35 |F$."NO TITLE":.5|
00002DD0: 30 34 30 00 F3 35 80 11 99 22 93 22 3A 99 49 4F |040..5...".":.IO|
00002DE0: 24 AA 22 20 41 4C 52 45 41 44 59 20 45 58 49 53 |$." ALREADY EXIS|
00002DF0: 54 53 22 00 09 36 8A 11 81 49 B2 31 A4 38 30 30 |TS"..6...I.1.800|
00002E00: 3A 82 3A 89 35 34 39 30 05 00 37 36 94 11 43 58 |:.:.5490..76..CX|
00002E10: B2 43 58 AB 31 3A 20 46 24 28 31 29 B2 22 58 44 |.CX.1: F$(1)."XD|
00002E20: 58 22 3A 46 28 31 29 B2 30 3A 4B 31 24 28 43 52 |X":F(1).0:K1$(CR|
00002E30: 29 B2 46 24 28 31 29 00 51 36 9E 11 81 49 34 B2 |).F$(1).Q6...I4.|
00002E40: 32 A4 4E 46 3A 46 24 28 49 34 29 B2 22 20 22 3A |2.NF:F$(I4)." ":|
00002E50: 82 00 65 36 A3 11 8B 20 C2 28 36 38 35 29 B3 B1 |..e6... .(685)..|
00002E60: 30 20 A7 20 8E 00 74 36 A8 11 8D 36 39 30 3A 89 |0 . ..t6...690:.|
00002E70: 35 34 39 30 00 7A 36 B2 11 8F 00 8B 36 BC 11 53 |5490.z6.....6..S|
00002E80: B2 30 3A 81 49 34 B2 31 A4 52 52 00 B0 36 C6 11 |.0:.I4.1.RR..6..|
00002E90: 8B 28 C8 28 4B 31 24 28 49 34 29 2C 33 29 B2 22 |.(.(K1$(I4),3)."|
00002EA0: 58 44 58 22 29 AF 28 53 B2 30 29 A7 53 B2 49 34 |XDX").(S.0).S.I4|
00002EB0: 00 C3 36 D0 11 82 49 34 3A 8B 53 B2 30 A7 33 37 |..6...I4:.S.0.37|
00002EC0: 34 30 05 00 FC 36 DA 11 43 52 B2 53 3A 8D 36 39 |40...6..CR.S:.69|
00002ED0: 30 3A 4B 31 24 28 43 52 29 B2 46 24 28 31 29 3A |0:K1$(CR).F$(1):|
00002EE0: 52 52 25 28 43 52 29 B2 43 52 3A 8B 20 C2 28 36 |RR%(CR).CR:. .(6|
00002EF0: 38 33 29 B2 31 20 A7 20 33 35 31 30 00 07 37 DF |83).1 . 3510..7.|
00002F00: 11 89 20 35 34 39 30 00 0D 37 E4 11 8F 00 26 37 |.. 5490..7....&7|
00002F10: EE 11 9F 37 2C 38 2C 37 2C 22 30 3A 4C 41 42 45 |...7,8,7,"0:LABE|
00002F20: 4C 2C 53 2C 52 22 00 3D 37 F8 11 45 4E B2 44 53 |L,S,R".=7..EN.DS|
00002F30: 3A 8B 45 4E B2 36 32 A7 31 34 30 30 30 00 47 37 |:.EN.62.14000.G7|
00002F40: 02 12 84 37 2C 46 24 00 51 37 0C 12 84 37 2C 4E |...7,F$.Q7...7,N|
00002F50: 50 00 5F 37 16 12 A0 37 3A 89 34 36 39 30 05 00 |P._7...7:.4690..|
00002F60: 6B 37 20 12 A0 37 3A 4E 50 B2 30 00 84 37 2A 12 |k7 ..7:NP.0..7*.|
00002F70: 9F 37 2C 38 2C 37 2C 22 30 3A 4C 41 42 45 4C 2C |.7,8,7,"0:LABEL,|
00002F80: 53 2C 57 22 00 9B 37 34 12 98 37 2C 22 4E 4F 4E |S,W"..74..7,"NON|
00002F90: 41 4D 45 22 3B C7 28 31 33 29 3B 00 AB 37 3E 12 |AME";.(13);..7>.|
00002FA0: 98 37 2C 30 3B C7 28 31 33 29 3B 00 B2 37 48 12 |.7,0;.(13);..7H.|
00002FB0: A0 37 00 CC 37 52 12 9F 37 2C 38 2C 37 2C 22 30 |.7..7R..7,8,7,"0|
00002FC0: 3A 4C 45 4E 47 54 48 2C 53 2C 52 22 00 E7 37 5C |:LENGTH,S,R"..7\|
00002FD0: 12 45 4E B2 44 53 3A 8B 45 4E B2 36 32 A7 A0 37 |.EN.DS:.EN.62..7|
00002FE0: 3A 89 20 35 30 34 30 00 F5 37 66 12 A0 37 3A 59 |:. 5040..7f..7:Y|
00002FF0: 35 B2 32 35 30 00 14 38 67 12 A0 31 3A 9F 31 2C |5.250..8g..1:.1,|
00003000: 38 2C 31 35 3A 98 31 2C 22 49 22 3A A0 31 3A 89 |8,15:.1,"I":.1:.|
00003010: 35 30 34 30 00 1E 38 70 12 42 24 B2 22 22 00 3F |5040..8p.B$."".?|
00003020: 38 7A 12 99 22 93 11 53 45 41 52 43 48 20 42 59 |8z.."..SEARCH BY|
00003030: 20 52 45 43 4F 52 44 20 4E 55 4D 42 45 52 22 00 | RECORD NUMBER".|
00003040: 5F 38 7C 12 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |_8|.."----------|
00003050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 11 22 00 |-------------.".|
00003060: 79 38 82 12 4F 49 24 B2 22 52 45 43 4F 52 44 20 |y8..OI$."RECORD |
00003070: 4E 55 4D 42 45 52 3F 20 22 00 92 38 84 12 99 3A |NUMBER? "..8...:|
00003080: 8D 35 38 31 30 05 3A 8B 49 4F B2 30 A7 35 34 39 |.5810.:.IO.0.549|
00003090: 30 05 00 AE 38 89 12 8B 20 42 24 B2 22 85 22 20 |0...8... B$."." |
000030A0: A7 20 42 24 B2 22 22 3A 89 20 35 34 39 30 00 D1 |. B$."":. 5490..|
000030B0: 38 8E 12 8B 28 C6 28 49 4F 24 29 B3 34 39 29 B0 |8...(.(IO$).49).|
000030C0: 28 C6 28 49 4F 24 29 B1 35 37 29 A7 35 34 39 30 |(.(IO$).57).5490|
000030D0: 05 00 EC 38 98 12 49 4B B2 C5 28 49 4F 24 29 3A |...8..IK..(IO$):|
000030E0: 8B 49 4B B1 52 52 A7 35 34 39 30 05 00 FB 38 A2 |.IK.RR.5490...8.|
000030F0: 12 43 52 B2 49 4B 3A 8D 38 34 30 00 06 39 AC 12 |.CR.IK:.840..9..|
00003100: 89 33 32 34 30 05 00 18 39 E8 12 8F 20 23 20 4F |.3240...9... # O|
00003110: 46 20 46 49 45 4C 44 53 00 3E 39 FC 12 4F 49 24 |F FIELDS.>9..OI$|
00003120: B2 22 11 45 4E 54 45 52 20 23 20 4F 46 20 46 49 |.".ENTER # OF FI|
00003130: 45 4C 44 53 20 3A 20 22 3A 8D 35 38 31 30 00 63 |ELDS : ":.5810.c|
00003140: 39 FD 12 8B 42 24 B2 22 85 22 A7 42 24 B2 22 22 |9...B$.".".B$.""|
00003150: 3A 46 24 B2 46 32 24 3A 99 22 41 42 4F 52 54 22 |:F$.F2$:."ABORT"|
00003160: 3A 89 31 00 84 39 FE 12 4E 46 B2 C5 28 49 4F 24 |:.1..9..NF..(IO$|
00003170: 29 3A 8B 4E 46 B1 30 20 AF 20 4E 46 B3 31 36 A7 |):.NF.0 . NF.16.|
00003180: 34 38 37 30 00 C3 39 FF 12 99 22 11 22 3B A6 34 |4870..9...".";.4|
00003190: 29 3B 22 49 4C 4C 45 47 41 4C 20 45 4E 54 52 59 |);"ILLEGAL ENTRY|
000031A0: 2C 20 4D 55 53 54 20 42 45 20 31 20 54 4F 20 31 |, MUST BE 1 TO 1|
000031B0: 35 2E 22 3A 8D 31 31 31 30 30 3A 99 22 91 91 91 |5.":.11100:."...|
000031C0: 91 22 3B 00 DE 39 00 13 8D 36 30 34 30 3A 99 22 |.";..9...6040:."|
000031D0: 91 91 91 91 91 22 3B 3A 89 20 34 38 36 30 00 E8 |.....";:. 4860..|
000031E0: 39 06 13 8D 35 32 30 04 00 02 3A 10 13 8F 20 47 |9...520...:... G|
000031F0: 45 54 20 50 41 52 41 4D 20 46 4F 52 20 46 49 45 |ET PARAM FOR FIE|
00003200: 4C 44 00 13 3A 1A 13 54 59 B2 30 3A 81 49 B2 31 |LD..:..TY.0:.I.1|
00003210: A4 4E 46 00 23 3A 24 13 41 53 B2 30 3A 8D 20 34 |.NF.#:$.AS.0:. 4|
00003220: 39 35 30 00 5B 3A 2E 13 8B 41 53 AF 49 B3 4E 46 |950.[:...AS.I.NF|
00003230: A7 99 22 20 20 20 20 20 20 49 4C 4C 45 47 41 4C |.." ILLEGAL|
00003240: 20 46 49 4C 45 2E 2E 2E 52 45 2D 45 4E 54 45 52 | FILE...RE-ENTER|
00003250: 2E 2E 2E 22 3A 89 20 35 34 33 30 00 7E 3A 33 13 |...":. 5430.~:3.|
00003260: 46 48 24 28 49 29 B2 59 31 24 3A 46 53 25 28 49 |FH$(I).Y1$:FS%(I|
00003270: 29 B2 59 31 25 3A 46 54 25 28 49 29 B2 32 00 85 |).Y1%:FT%(I).2..|
00003280: 3A 38 13 82 49 00 8F 3A 39 13 99 22 93 22 3B 00 |:8..I..:9..".";.|
00003290: BE 3A 3A 13 99 22 13 11 11 22 3B A6 34 29 3B 22 |.::.."...";.4);"|
000032A0: 46 49 45 4C 44 2F 46 49 45 4C 44 20 4E 41 4D 45 |FIELD/FIELD NAME|
000032B0: 20 20 20 20 20 20 20 4C 45 4E 47 54 48 22 00 E7 | LENGTH"..|
000032C0: 3A 3B 13 99 A6 34 29 3B 22 2D 2D 2D 2D 2D 2D 2D |:;...4);"-------|
000032D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000032E0: 2D 2D 2D 2D 2D 2D 22 00 08 3B 3C 13 81 49 B2 31 |------"..;<..I.1|
000032F0: A4 4E 46 3A 49 24 B2 C8 28 C4 28 49 29 AA 22 20 |.NF:I$..(.(I)." |
00003300: 20 20 20 20 22 2C 35 29 00 2F 3B 3D 13 99 A6 33 | ",5)./;=...3|
00003310: 29 3B 49 24 3B C8 28 46 48 24 28 49 29 AA 4C 4C |);I$;.(FH$(I).LL|
00003320: 24 2C 32 30 29 3B 46 53 25 28 49 29 3A 82 49 00 |$,20);FS%(I):.I.|
00003330: 58 3B 3E 13 99 A6 34 29 3B 22 2D 2D 2D 2D 2D 2D |X;>...4);"------|
00003340: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003350: 2D 2D 2D 2D 2D 2D 2D 22 00 83 3B 3F 13 99 A6 34 |-------"..;?...4|
00003360: 29 3B 22 43 48 41 4E 47 45 53 3F 20 28 59 20 4F |);"CHANGES? (Y O|
00003370: 52 20 4E 29 3A 20 22 3B C7 28 31 31 34 29 3B 22 |R N): ";.(114);"|
00003380: 9D 22 3B 00 B1 3B 40 13 A1 20 41 24 3A 8B 20 41 |.";..;@.. A$:. A|
00003390: 24 B3 B1 22 59 22 20 AF 20 41 24 B3 B1 22 4E 22 |$.."Y" . A$.."N"|
000033A0: 20 AF 20 41 24 B3 B1 22 85 22 20 A7 20 34 39 32 | . A$.."." . 492|
000033B0: 38 00 DA 3B 41 13 8B 20 41 24 B2 22 85 22 20 A7 |8..;A.. A$."." .|
000033C0: 20 41 24 B2 22 22 3A 46 24 B2 46 32 24 3A 99 22 | A$."":F$.F2$:."|
000033D0: 41 42 4F 52 54 22 3A 89 20 31 00 F2 3B 42 13 99 |ABORT":. 1..;B..|
000033E0: 41 24 3A 8B 20 41 24 B2 22 4E 22 20 A7 20 34 39 |A$:. A$."N" . 49|
000033F0: 33 38 00 29 3C 43 13 4F 49 24 B2 22 45 4E 54 45 |38.)<C.OI$."ENTE|
00003400: 52 20 46 49 45 4C 44 20 23 3A 20 22 3A 99 22 91 |R FIELD #: ":.".|
00003410: 22 3B 3A 8D 36 30 36 30 3A 99 22 11 11 22 3B A6 |";:.6060:."..";.|
00003420: 34 29 3B 3A 8D 35 38 31 35 00 52 3C 44 13 49 B2 |4);:.5815.R<D.I.|
00003430: C5 28 49 4F 24 29 3A 8B 20 49 B3 31 20 B0 20 49 |.(IO$):. I.1 . I|
00003440: B1 4E 46 20 A7 20 99 22 91 22 3B 3A 89 20 34 39 |.NF . .".";:. 49|
00003450: 33 31 00 6E 3C 45 13 54 59 B2 54 59 AB 28 46 53 |31.n<E.TY.TY.(FS|
00003460: 25 28 49 29 AA 31 29 3A 8D 20 34 39 35 30 00 98 |%(I).1):. 4950..|
00003470: 3C 46 13 46 48 24 28 49 29 B2 59 31 24 3A 46 53 |<F.FH$(I).Y1$:FS|
00003480: 25 28 49 29 B2 59 31 25 3A 46 54 25 28 49 29 B2 |%(I).Y1%:FT%(I).|
00003490: 32 3A 89 20 34 39 32 31 00 AF 3C 4A 13 41 24 B2 |2:. 4921..<J.A$.|
000034A0: C7 28 31 33 29 3A 4E 46 24 B2 C4 28 4E 46 29 00 |.(13):NF$..(NF).|
000034B0: F1 3C 4B 13 58 46 24 B2 22 22 3A 58 46 24 B2 4E |.<K.XF$."":XF$.N|
000034C0: 46 24 AA 41 24 3A 81 49 B2 31 A4 4E 46 3A 58 46 |F$.A$:.I.1.NF:XF|
000034D0: 24 B2 58 46 24 AA 46 48 24 28 49 29 AA 41 24 AA |$.XF$.FH$(I).A$.|
000034E0: C4 28 46 53 25 28 49 29 29 AA 41 24 3A 82 49 3A |.(FS%(I)).A$:.I:|
000034F0: 8E 00 F7 3C 4C 13 8F 00 FD 3C 56 13 8F 00 41 3D |...<L....<V...A=|
00003500: 60 13 4F 49 24 B2 22 11 45 4E 54 45 52 20 4E 41 |`.OI$.".ENTER NA|
00003510: 4D 45 20 46 4F 52 20 46 49 45 4C 44 22 AA C4 28 |ME FOR FIELD"..(|
00003520: 49 29 AA 22 3A 20 22 3A 8D 35 38 31 30 3A 59 31 |I).": ":.5810:Y1|
00003530: 24 B2 49 4F 24 3A 8B 49 4F B3 31 31 A7 34 39 38 |$.IO$:.IO.11.498|
00003540: 30 00 5F 3D 61 13 99 3A 99 22 11 11 20 54 49 54 |0._=a..:.".. TIT|
00003550: 4C 45 20 54 4F 4F 20 4C 4F 4E 47 2C 20 22 3B 00 |LE TOO LONG, ";.|
00003560: 82 3D 62 13 99 22 4C 45 53 53 20 54 48 41 4E 20 |.=b.."LESS THAN |
00003570: 31 31 20 50 4C 45 41 53 45 11 22 3A 8D 31 31 31 |11 PLEASE.":.111|
00003580: 30 30 00 A8 3D 63 13 99 22 91 91 91 91 22 3B 3A |00..=c.."....";:|
00003590: 8D 36 30 34 30 3A 99 22 91 91 91 91 91 91 91 22 |.6040:."......."|
000035A0: 3B 3A 89 20 34 39 36 30 00 D1 3D 74 13 8B 20 42 |;:. 4960..=t.. B|
000035B0: 24 B2 22 85 22 20 A7 20 42 24 B2 22 22 3A 46 24 |$."." . B$."":F$|
000035C0: B2 46 32 24 3A 99 22 41 42 4F 52 54 22 3A 89 20 |.F2$:."ABORT":. |
000035D0: 31 00 10 3E 76 13 4F 49 24 B2 22 4C 45 4E 47 54 |1..>v.OI$."LENGT|
000035E0: 48 20 28 20 52 45 4D 41 49 4E 49 4E 47 22 AA C4 |H ( REMAINING"..|
000035F0: 28 32 35 32 AB 54 59 29 AA 22 20 29 3A 20 22 3A |(252.TY)." ): ":|
00003600: 8D 35 38 31 30 3A 59 31 25 B2 C5 28 49 4F 24 29 |.5810:Y1%..(IO$)|
00003610: 00 39 3E 77 13 8B 20 42 24 B2 22 85 22 20 A7 20 |.9>w.. B$."." . |
00003620: 42 24 B2 22 22 3A 46 24 B2 46 32 24 3A 99 22 41 |B$."":F$.F2$:."A|
00003630: 42 4F 52 54 22 3A 89 20 31 00 50 3E 79 13 8B 49 |BORT":. 1.P>y..I|
00003640: B2 31 AF 59 31 25 B1 33 30 20 A7 20 34 39 39 32 |.1.Y1%.30 . 4992|
00003650: 00 6F 3E 7E 13 8B 59 31 25 B3 28 32 35 33 AB 54 |.o>~..Y1%.(253.T|
00003660: 59 29 AF 59 31 25 B1 30 20 A7 20 35 30 30 30 00 |Y).Y1%.0 . 5000.|
00003670: 9C 3E 80 13 99 22 11 22 3B A6 31 33 29 3B 22 49 |.>...".";.13);"I|
00003680: 4C 4C 45 47 41 4C 20 45 4E 54 52 59 22 3A 8D 31 |LLEGAL ENTRY":.1|
00003690: 31 31 30 30 3A 99 22 91 91 91 22 3B 00 B7 3E 82 |1100:."...";..>.|
000036A0: 13 8D 36 30 34 30 3A 99 22 91 91 91 91 91 22 3B |..6040:.".....";|
000036B0: 3A 89 20 34 39 38 30 00 CA 3E 88 13 54 59 B2 54 |:. 4980..>..TY.T|
000036C0: 59 AA C5 28 49 4F 24 29 AA 31 00 05 3F 89 13 8B |Y..(IO$).1..?...|
000036D0: 20 54 59 B1 B2 32 35 33 20 A7 20 99 22 11 11 22 | TY..253 . .".."|
000036E0: 3B A6 37 29 3B 22 52 45 43 4F 52 44 20 4C 45 4E |;.7);"RECORD LEN|
000036F0: 47 54 48 20 49 53 20 46 55 4C 4C 2E 2E 2E 11 22 |GTH IS FULL...."|
00003700: 3A 41 53 B2 31 00 0B 3F 8D 13 8E 00 11 3F 92 13 |:AS.1..?.....?..|
00003710: 8F 00 17 3F B0 13 8F 00 32 3F BA 13 99 22 93 22 |...?....2?..."."|
00003720: 3A 8B 55 37 B2 31 A7 44 35 B2 30 3A 89 32 39 39 |:.U7.1.D5.0:.299|
00003730: 30 05 00 47 3F CE 13 8B 28 5A 37 B2 31 29 B0 28 |0..G?...(Z7.1).(|
00003740: 4A 49 B2 31 29 A7 8A 00 52 3F EC 13 8D 31 31 30 |JI.1)...R?...110|
00003750: 30 30 00 76 3F EE 13 99 22 13 11 22 3B A6 31 31 |00.v?..."..";.11|
00003760: 29 3B 22 43 55 52 52 45 4E 54 20 46 49 4C 45 20 |);"CURRENT FILE |
00003770: 42 41 53 45 20 22 00 96 3F F1 13 99 A6 31 30 29 |BASE "..?....10)|
00003780: 3B 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;"--------------|
00003790: 2D 2D 2D 2D 2D 22 00 A9 3F F6 13 46 39 B2 30 3A |-----"..?..F9.0:|
000037A0: 46 38 B2 30 3A 5A 37 B2 30 00 C5 3F 00 14 4C 42 |F8.0:Z7.0..?..LB|
000037B0: B2 30 3A 52 36 B2 30 3A 97 36 38 30 2C 30 3A 97 |.0:R6.0:.680,0:.|
000037C0: 37 30 30 2C 30 00 E5 3F 1E 14 50 43 B2 30 3A 99 |700,0..?..PC.0:.|
000037D0: A6 31 31 29 3B 22 46 49 4C 45 20 54 49 54 4C 45 |.11);"FILE TITLE|
000037E0: 3A 20 22 46 24 00 02 40 32 14 99 A6 31 31 29 3B |: "F$..@2...11);|
000037F0: 22 31 29 20 4D 41 49 4E 54 41 49 4E 20 46 49 4C |"1) MAINTAIN FIL|
00003800: 45 22 00 20 40 3C 14 99 A6 31 31 29 3B 22 32 29 |E". @<...11);"2)|
00003810: 20 46 4F 52 4D 41 54 20 50 52 49 4E 54 45 52 22 | FORMAT PRINTER"|
00003820: 00 3C 40 3E 14 99 A6 31 31 29 3B 22 33 29 20 53 |.<@>...11);"3) S|
00003830: 4F 52 54 20 52 45 43 4F 52 44 53 22 00 5A 40 3F |ORT RECORDS".Z@?|
00003840: 14 99 A6 31 31 29 3B 22 34 29 20 53 45 41 52 43 |...11);"4) SEARC|
00003850: 48 20 52 45 43 4F 52 44 53 22 00 79 40 40 14 99 |H RECORDS".y@@..|
00003860: A6 31 31 29 3B 22 35 29 20 43 48 41 4E 47 45 20 |.11);"5) CHANGE |
00003870: 44 49 53 4B 45 54 54 45 22 00 97 40 46 14 99 A6 |DISKETTE"..@F...|
00003880: 31 31 29 3B 22 36 29 20 53 54 41 52 54 20 4E 45 |11);"6) START NE|
00003890: 57 20 46 49 4C 45 22 00 B5 40 48 14 99 A6 31 31 |W FILE"..@H...11|
000038A0: 29 3B 22 37 29 20 44 49 53 4B 20 44 49 52 45 43 |);"7) DISK DIREC|
000038B0: 54 4F 52 59 22 00 D3 40 4B 14 99 A6 31 31 29 3B |TORY"..@K...11);|
000038C0: 22 38 29 20 51 55 49 54 20 4F 50 45 52 41 54 49 |"8) QUIT OPERATI|
000038D0: 4F 4E 22 00 DC 40 50 14 44 35 B2 30 00 00 41 5A |ON"..@P.D5.0..AZ|
000038E0: 14 99 A6 31 34 29 3B 22 53 45 4C 45 43 54 49 4F |...14);"SELECTIO|
000038F0: 4E 3A 20 22 3B C7 28 31 31 34 29 3B 22 9D 22 3B |N: ";.(114);".";|
00003900: 00 14 41 5F 14 53 51 B2 31 3A 8D 35 38 31 33 3A |..A_.SQ.1:.5813:|
00003910: 53 51 B2 30 00 2C 41 64 14 A1 20 41 24 3A 8B 20 |SQ.0.,Ad.. A$:. |
00003920: 41 24 B2 22 22 20 A7 20 35 32 32 30 00 4E 41 66 |A$."" . 5220.NAf|
00003930: 14 54 38 B2 C5 28 41 24 29 3A 8B 20 54 38 B3 31 |.T8..(A$):. T8.1|
00003940: 20 B0 20 54 38 B1 38 20 A7 20 35 32 32 30 00 5C | . T8.8 . 5220.\|
00003950: 41 68 14 99 20 54 38 3A 53 57 B2 30 00 77 41 6E |Ah.. T8:SW.0.wAn|
00003960: 14 8B 54 38 B2 36 A7 97 36 39 39 2C 31 3A 97 37 |..T8.6..699,1:.7|
00003970: 30 30 2C 31 3A 89 31 00 86 41 72 14 8B 54 38 B2 |00,1:.1..Ar..T8.|
00003980: 35 A7 35 33 30 30 00 95 41 75 14 8B 54 38 B2 34 |5.5300..Au..T8.4|
00003990: A7 31 39 37 39 00 AB 41 78 14 8B 54 38 B2 31 A7 |.1979..Ax..T8.1.|
000039A0: 44 35 B2 30 3A 89 20 32 39 39 30 00 BB 41 7D 14 |D5.0:. 2990..A}.|
000039B0: 8B 54 38 B2 37 A7 31 34 34 30 30 00 CA 41 82 14 |.T8.7.14400..A..|
000039C0: 8B 54 38 B2 33 A7 37 30 30 30 00 D9 41 84 14 8B |.T8.3.7000..A...|
000039D0: 54 38 B2 32 A7 39 30 30 30 00 0F 42 8E 14 99 22 |T8.2.9000..B..."|
000039E0: 93 22 3A 4F 49 24 B2 22 43 4F 4E 46 49 52 4D 20 |.":OI$."CONFIRM |
000039F0: 54 4F 20 51 55 49 54 20 28 45 4E 54 45 52 20 59 |TO QUIT (ENTER Y|
00003A00: 20 4F 52 20 4E 29 3A 20 22 3A 8D 35 38 31 30 00 | OR N): ":.5810.|
00003A10: 27 42 90 14 8B C8 28 49 4F 24 2C 31 29 B3 B1 22 |'B....(IO$,1).."|
00003A20: 59 22 A7 35 31 30 30 00 64 42 96 14 99 22 93 9A |Y".5100.dB..."..|
00003A30: 22 3B 3A 97 38 30 38 2C 32 33 37 3A 99 22 11 20 |";:.808,237:.". |
00003A40: 20 20 20 2A 2A 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 | **** COMMODOR|
00003A50: 45 20 36 34 20 42 41 53 49 43 20 56 32 20 2A 2A |E 64 BASIC V2 **|
00003A60: 2A 2A 11 22 00 93 42 9B 14 99 22 20 36 34 4B 20 |**."..B..." 64K |
00003A70: 52 41 4D 20 53 59 53 54 45 4D 20 20 33 38 39 31 |RAM SYSTEM 3891|
00003A80: 31 20 42 41 53 49 43 20 42 59 54 45 53 20 46 52 |1 BASIC BYTES FR|
00003A90: 45 45 22 00 9B 42 A0 14 A2 3A 80 00 BA 42 AA 14 |EE"..B...:...B..|
00003AA0: 8B 4E 50 B2 31 AF 28 46 24 B3 B1 22 4E 4F 4E 41 |.NP.1.(F$.."NONA|
00003AB0: 4D 45 22 29 A7 33 30 31 30 05 00 C7 42 B4 14 99 |ME").3010...B...|
00003AC0: 22 93 11 20 20 22 3B 00 F3 42 B5 14 99 22 43 48 |".. ";..B..."CH|
00003AD0: 41 4E 47 45 20 44 49 53 4B 45 54 54 45 53 2E 2E |ANGE DISKETTES..|
00003AE0: 2E 22 3A 8D 31 31 31 30 30 3A 97 36 39 39 2C 31 |.":.11100:.699,1|
00003AF0: 3A 89 31 00 1B 43 BE 14 4F 49 24 B2 22 93 11 20 |:.1..C..OI$.".. |
00003B00: 20 45 4E 54 45 52 20 46 49 4C 45 20 4E 41 4D 45 | ENTER FILE NAME|
00003B10: 3A 20 22 3A 99 3A 8D 35 38 31 30 00 37 43 C8 14 |: ":.:.5810.7C..|
00003B20: 8B 20 42 24 B2 22 85 22 20 A7 20 42 24 B2 22 22 |. B$."." . B$.""|
00003B30: 3A 89 20 35 31 30 30 00 4A 43 D2 14 46 24 B2 49 |:. 5100.JC..F$.I|
00003B40: 4F 24 20 3A 89 33 30 31 30 05 00 64 43 DC 14 9F |O$ :.3010..dC...|
00003B50: 37 2C 38 2C 37 2C 22 40 30 3A 4C 41 42 45 4C 2C |7,8,7,"@0:LABEL,|
00003B60: 53 2C 57 22 00 75 43 E6 14 98 37 2C 46 24 3B C7 |S,W".uC...7,F$;.|
00003B70: 28 31 33 29 3B 00 85 43 F0 14 98 37 2C 31 3B C7 |(13);..C...7,1;.|
00003B80: 28 31 33 29 3B 00 98 43 FA 14 A0 37 3A 4E 50 B2 |(13);..C...7:NP.|
00003B90: 31 3A 89 33 30 34 30 05 00 BF 43 04 15 8B 4E 50 |1:.3040...C...NP|
00003BA0: B2 31 AF 28 46 24 B3 B1 22 4E 4F 4E 41 4D 45 22 |.1.(F$.."NONAME"|
00003BB0: 29 A7 49 4F 24 B2 46 24 3A 99 22 93 22 3A 8A 00 |).IO$.F$:.".":..|
00003BC0: CA 43 0E 15 89 34 38 33 30 05 00 E0 43 18 15 8B |.C...4830...C...|
00003BD0: 4C 51 B2 31 A7 4C 51 B2 30 3A 89 35 31 31 30 05 |LQ.1.LQ.0:.5110.|
00003BE0: 00 F0 43 22 15 4C 51 B2 31 3A 89 35 31 31 30 05 |..C".LQ.1:.5110.|
00003BF0: 00 1D 44 2C 15 99 22 93 22 3A 99 22 11 20 20 20 |..D,..".":.". |
00003C00: 20 20 20 49 4E 53 45 52 54 20 4E 45 57 2C 20 52 | INSERT NEW, R|
00003C10: 41 57 20 44 41 54 41 20 44 49 53 4B 22 00 2D 44 |AW DATA DISK".-D|
00003C20: 36 15 8D 31 31 31 30 30 3A 99 22 93 22 00 60 44 |6..11100:.".".`D|
00003C30: 54 15 46 32 24 B2 46 24 3A 99 3A 4F 49 24 B2 22 |T.F2$.F$:.:OI$."|
00003C40: 45 4E 54 45 52 20 46 49 4C 45 20 54 49 54 4C 45 |ENTER FILE TITLE|
00003C50: 3A 20 22 3A 8D 35 38 31 30 3A 97 36 39 39 2C 31 |: ":.5810:.699,1|
00003C60: 00 82 44 56 15 8B 20 42 24 B2 22 85 22 20 A7 20 |..DV.. B$."." . |
00003C70: 42 24 B2 22 22 3A 99 22 41 42 4F 52 54 22 3A 89 |B$."":."ABORT":.|
00003C80: 20 31 00 95 44 58 15 8B 20 49 4F B3 31 31 20 A7 | 1..DX.. IO.11 .|
00003C90: 20 35 34 37 30 00 B7 44 59 15 99 3A 99 22 11 11 | 5470..DY..:."..|
00003CA0: 46 49 4C 45 20 54 49 54 4C 45 20 54 4F 4F 20 4C |FILE TITLE TOO L|
00003CB0: 4F 4E 47 2C 20 22 3B 00 DA 44 5A 15 99 22 4C 45 |ONG, ";..DZ.."LE|
00003CC0: 53 53 20 54 48 41 4E 20 31 31 20 50 4C 45 41 53 |SS THAN 11 PLEAS|
00003CD0: 45 11 22 3A 89 20 35 34 33 30 00 E5 44 5E 15 46 |E.":. 5430..D^.F|
00003CE0: 24 B2 49 4F 24 00 F0 44 68 15 89 32 37 37 30 05 |$.IO$..Dh..2770.|
00003CF0: 00 04 45 72 15 8F 20 52 45 43 4F 52 44 20 41 43 |..Er.. RECORD AC|
00003D00: 43 45 53 53 00 11 45 7C 15 8B 46 38 B2 AB 31 A7 |CESS..E|..F8..1.|
00003D10: 8E 00 1F 45 86 15 46 39 B2 30 3A 55 37 B2 30 00 |...E..F9.0:U7.0.|
00003D20: 31 45 90 15 52 44 B2 30 3A 44 44 B2 30 3A 44 B2 |1E..RD.0:DD.0:D.|
00003D30: 30 00 46 45 9A 15 54 39 24 B2 C7 28 31 33 29 3A |0.FE..T9$..(13):|
00003D40: 4C 54 24 B2 22 22 00 54 45 A4 15 54 36 24 B2 C7 |LT$."".TE..T6$..|
00003D50: 28 32 30 29 00 5F 45 AE 15 97 36 38 33 2C 30 00 |(20)._E...683,0.|
00003D60: 6F 45 C2 15 99 4C 54 24 3A 8D 31 31 30 30 30 00 |oE...LT$:.11000.|
00003D70: 8E 45 CC 15 99 22 11 11 22 3B A6 31 33 29 3B 22 |.E..."..";.13);"|
00003D80: 4D 41 49 4E 54 41 49 4E 20 46 49 4C 45 22 00 B3 |MAINTAIN FILE"..|
00003D90: 45 D1 15 99 22 91 22 3B A6 39 29 3B 22 2D 2D 2D |E...".";.9);"---|
00003DA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003DB0: 2D 2D 22 00 CD 45 D6 15 99 A6 31 32 29 3B 22 46 |--"..E....12);"F|
00003DC0: 49 4C 45 20 4E 41 4D 45 20 3A 22 46 24 00 EE 45 |ILE NAME :"F$..E|
00003DD0: DB 15 99 A6 31 32 29 3B 22 23 20 4F 46 20 52 45 |....12);"# OF RE|
00003DE0: 43 4F 52 44 53 3A 22 3B 43 58 3B 22 11 22 00 0D |CORDS:";CX;"."..|
00003DF0: 46 E0 15 99 A6 31 31 29 3B 22 31 29 20 46 49 4C |F....11);"1) FIL|
00003E00: 45 20 44 49 52 45 43 54 4F 52 59 20 22 00 2C 46 |E DIRECTORY ".,F|
00003E10: EA 15 99 A6 31 31 29 3B 22 32 29 20 41 44 44 20 |....11);"2) ADD |
00003E20: 4E 45 57 20 52 45 43 4F 52 44 53 22 00 4F 46 F4 |NEW RECORDS".OF.|
00003E30: 15 99 A6 31 31 29 3B 22 33 29 20 53 45 41 52 43 |...11);"3) SEARC|
00003E40: 48 20 42 59 20 31 53 54 20 46 49 45 4C 44 22 00 |H BY 1ST FIELD".|
00003E50: 71 46 FE 15 99 A6 31 31 29 3B 22 34 29 20 53 45 |qF....11);"4) SE|
00003E60: 41 52 43 48 20 42 59 20 52 45 43 4F 52 44 20 23 |ARCH BY RECORD #|
00003E70: 22 00 8F 46 0A 16 99 A6 31 31 29 3B 22 35 29 20 |"..F....11);"5) |
00003E80: 4D 55 4C 54 49 50 4C 45 20 44 45 4C 45 54 45 00 |MULTIPLE DELETE.|
00003E90: AC 46 0D 16 99 A6 31 31 29 3B 22 36 29 20 43 4F |.F....11);"6) CO|
00003EA0: 4C 4C 45 43 54 20 46 49 4C 45 53 22 00 CA 46 12 |LLECT FILES"..F.|
00003EB0: 16 99 A6 31 31 29 3B 22 37 29 20 47 4F 54 4F 20 |...11);"7) GOTO |
00003EC0: 4D 41 49 4E 20 4D 45 4E 55 22 00 EE 46 1C 16 99 |MAIN MENU"..F...|
00003ED0: A6 31 33 29 3B 22 53 45 4C 45 43 54 49 4F 4E 3A |.13);"SELECTION:|
00003EE0: 20 22 3B C7 28 31 31 34 29 3B 22 9D 22 3B 00 02 | ";.(114);".";..|
00003EF0: 47 1D 16 53 51 B2 31 3A 8D 35 38 31 33 3A 53 51 |G..SQ.1:.5813:SQ|
00003F00: B2 30 00 1A 47 1E 16 A1 20 41 24 3A 8B 20 41 24 |.0..G... A$:. A$|
00003F10: B2 22 22 20 A7 20 35 36 36 32 00 3C 47 20 16 54 |."" . 5662.<G .T|
00003F20: 38 B2 C5 28 41 24 29 3A 8B 20 54 38 B3 31 20 B0 |8..(A$):. T8.1 .|
00003F30: 20 54 38 B1 37 20 A7 20 35 36 36 32 00 4C 47 22 | T8.7 . 5662.LG"|
00003F40: 16 99 20 54 38 3A 97 36 38 33 2C 30 00 5B 47 3A |.. T8:.683,0.[G:|
00003F50: 16 8B 54 38 B2 32 A7 33 35 31 30 00 6A 47 44 16 |..T8.2.3510.jGD.|
00003F60: 8B 54 38 B2 34 A7 34 37 32 30 00 79 47 62 16 8B |.T8.4.4720.yGb..|
00003F70: 54 38 B2 31 A7 35 37 37 30 00 88 47 6C 16 8B 54 |T8.1.5770..Gl..T|
00003F80: 38 B2 33 A7 33 31 39 30 00 98 47 6E 16 8B 54 38 |8.3.3190..Gn..T8|
00003F90: B2 36 A7 31 32 30 30 30 00 A8 47 70 16 8B 54 38 |.6.12000..Gp..T8|
00003FA0: B2 39 A7 31 32 31 32 30 00 B8 47 72 16 8B 54 38 |.9.12120..Gr..T8|
00003FB0: B2 35 A7 31 32 33 30 30 00 C8 47 76 16 8B 54 38 |.5.12300..Gv..T8|
00003FC0: B3 B1 37 A7 35 35 35 30 00 E6 47 7B 16 97 36 38 |..7.5550..G{..68|
00003FD0: 30 2C 30 3A 8B 20 44 35 B2 30 20 A7 20 97 36 39 |0,0:. D5.0 . .69|
00003FE0: 39 2C 31 3A 89 31 00 0C 48 80 16 99 22 93 11 20 |9,1:.1..H...".. |
00003FF0: 20 55 50 44 41 54 49 4E 47 20 44 49 52 45 43 54 | UPDATING DIRECT|
00004000: 4F 52 59 20 52 45 43 4F 52 44 53 22 00 16 48 85 |ORY RECORDS"..H.|
00004010: 16 89 33 38 33 30 00 3C 48 8A 16 99 22 93 22 3A |..3830.<H...".":|
00004020: 99 22 11 20 20 53 4F 52 54 49 4E 47 2E 2E 2E 50 |.". SORTING...P|
00004030: 4C 45 41 53 45 20 57 41 49 54 2E 22 00 4E 48 94 |LEASE WAIT.".NH.|
00004040: 16 8D 34 30 37 30 05 3A 89 35 34 39 30 05 00 5E |..4070.:.5490..^|
00004050: 48 9E 16 44 35 B2 30 3A 89 33 30 31 30 05 00 67 |H..D5.0:.3010..g|
00004060: 48 A8 16 44 35 B2 30 00 7B 48 B2 16 8F 20 49 4E |H..D5.0.{H... IN|
00004070: 50 55 54 20 52 4F 55 54 49 4E 45 00 86 48 B4 16 |PUT ROUTINE..H..|
00004080: 8D 20 36 30 34 30 00 9C 48 B5 16 81 20 57 45 B2 |. 6040..H... WE.|
00004090: 31 A4 33 3A A1 41 24 3A 82 20 57 45 00 A9 48 B6 |1.3:.A$:. WE..H.|
000040A0: 16 8B 20 53 51 B2 31 A7 8E 00 B9 48 B7 16 49 4F |.. SQ.1....H..IO|
000040B0: B2 30 3A 49 4F 24 B2 22 22 00 C3 48 B9 16 99 4F |.0:IO$.""..H...O|
000040C0: 49 24 3B 00 D5 48 BC 16 8B 20 49 4F B3 30 20 A7 |I$;..H... IO.0 .|
000040D0: 20 49 4F B2 30 00 E6 48 BE 16 99 C7 28 31 31 34 | IO.0..H....(114|
000040E0: 29 3B 22 9D 22 3B 00 FE 48 C1 16 A1 20 41 24 3A |);".";..H... A$:|
000040F0: 8B 20 41 24 B2 22 22 20 A7 20 35 38 32 35 00 21 |. A$."" . 5825.!|
00004100: 49 C2 16 8B 20 41 24 B2 22 85 22 20 A7 20 42 24 |I... A$."." . B$|
00004110: B2 22 85 22 3A 41 24 B2 22 22 3A 49 4F B2 33 3A |.".":A$."":IO.3:|
00004120: 8E 00 59 49 C3 16 8B 20 41 24 B2 C7 28 31 37 29 |..YI... A$..(17)|
00004130: 20 B0 20 41 24 B2 C7 28 31 39 29 20 B0 20 41 24 | . A$..(19) . A$|
00004140: B2 C7 28 32 39 29 20 B0 20 41 24 B2 C7 28 31 34 |..(29) . A$..(14|
00004150: 35 29 20 A7 20 35 38 32 35 00 88 49 C4 16 8B 20 |5) . 5825..I... |
00004160: 41 24 B2 C7 28 31 34 37 29 20 B0 20 41 24 B2 C7 |A$..(147) . A$..|
00004170: 28 31 34 38 29 20 B0 20 41 24 B2 C7 28 31 35 37 |(148) . A$..(157|
00004180: 29 20 A7 20 35 38 32 35 00 A3 49 C6 16 8B 20 49 |) . 5825..I... I|
00004190: 4F B2 30 20 AF 20 41 24 B2 54 39 24 20 A7 20 35 |O.0 . A$.T9$ . 5|
000041A0: 38 32 35 00 BE 49 C7 16 8B 20 49 4F B2 30 20 AF |825..I... IO.0 .|
000041B0: 20 41 24 B2 54 36 24 20 A7 20 35 38 32 35 00 DB | A$.T6$ . 5825..|
000041C0: 49 CB 16 8B 20 41 24 B2 54 39 24 20 A7 20 99 22 |I... A$.T9$ . ."|
000041D0: 20 22 3A 99 3A 89 20 35 38 35 30 00 11 4A D0 16 | ":.:. 5850..J..|
000041E0: 8B 20 41 24 B2 54 36 24 20 A7 20 99 22 20 9D 9D |. A$.T6$ . ." ..|
000041F0: 20 9D 22 3B 3A 49 4F B2 49 4F AB 31 3A 49 4F 24 | .";:IO.IO.1:IO$|
00004200: B2 C8 28 49 4F 24 2C 49 4F 29 3A 89 20 35 38 32 |..(IO$,IO):. 582|
00004210: 30 00 3B 4A D5 16 99 20 41 24 3B 3A 49 4F 24 B2 |0.;J... A$;:IO$.|
00004220: 49 4F 24 AA 41 24 3A 41 24 B2 22 22 3A 49 4F B2 |IO$.A$:A$."":IO.|
00004230: 49 4F AA 31 3A 89 20 35 38 32 30 00 51 4A DA 16 |IO.1:. 5820.QJ..|
00004240: 49 4F B2 C3 28 49 4F 24 29 3A 8D 32 35 36 30 3A |IO..(IO$):.2560:|
00004250: 8E 00 80 4A 98 17 99 22 20 20 20 20 20 20 20 20 |...J..." |
00004260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00004280: 00 AF 4A A2 17 99 22 20 20 20 20 20 20 20 20 20 |..J..." |
00004290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000042A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
000042B0: DE 4A AC 17 99 22 20 20 20 20 20 20 20 20 20 20 |.J..." |
000042C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000042D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 0D | "..|
000042E0: 4B B1 17 99 22 20 20 20 20 20 20 20 20 20 20 20 |K..." |
000042F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004300: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 1C 4B | "..K|
00004310: B6 17 99 22 91 91 91 91 91 22 3A 8E 00 33 4B C0 |...".....":..3K.|
00004320: 17 A1 20 54 37 24 3A 8B 54 37 24 B2 22 22 89 36 |.. T7$:.T7$."".6|
00004330: 30 38 30 00 39 4B CA 17 8E 00 6C 4B D4 17 99 22 |080.9K....lK..."|
00004340: 93 22 3A 99 22 41 20 43 4F 52 52 45 43 54 49 4F |.":."A CORRECTIO|
00004350: 4E 20 4D 55 53 54 20 42 45 20 4D 41 44 45 20 4F |N MUST BE MADE O|
00004360: 4E 20 44 49 53 4B 20 44 41 54 41 22 00 8A 4B DE |N DISK DATA"..K.|
00004370: 17 99 22 45 58 50 45 43 54 20 41 42 4F 55 54 20 |.."EXPECT ABOUT |
00004380: 35 20 4D 49 4E 55 54 45 53 22 00 C3 4B E8 17 99 |5 MINUTES"..K...|
00004390: 22 49 46 20 50 52 4F 42 4C 45 4D 53 20 50 52 45 |"IF PROBLEMS PRE|
000043A0: 53 53 20 52 55 4E 2F 53 54 4F 50 20 41 4E 44 20 |SS RUN/STOP AND |
000043B0: 54 59 50 45 20 52 55 4E 20 54 48 45 4E 20 45 58 |TYPE RUN THEN EX|
000043C0: 49 54 22 00 FA 4B F2 17 81 49 49 B2 31 A4 52 52 |IT"..K...II.1.RR|
000043D0: 3A 43 52 B2 52 52 25 28 49 49 29 3A 8D 38 31 30 |:CR.RR%(II):.810|
000043E0: 04 3A 43 52 B2 49 49 3A 52 52 25 28 49 49 29 B2 |.:CR.II:RR%(II).|
000043F0: 49 49 3A 8D 36 39 30 04 3A 82 00 0D 4C FC 17 46 |II:.690.:...L..F|
00004400: 52 B2 52 52 AA 31 3A 89 33 38 33 30 05 00 13 4C |R.RR.1:.3830...L|
00004410: 06 18 80 00 39 4C 58 1B 99 22 93 11 20 20 20 20 |....9LX..".. |
00004420: 20 20 20 20 20 20 44 49 53 50 4C 41 59 20 4F 52 | DISPLAY OR|
00004430: 20 50 52 49 4E 54 45 52 22 00 5E 4C 59 1B 99 22 | PRINTER".^LY.."|
00004440: 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D | -------|
00004450: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 87 |-------------"..|
00004460: 4C 5A 1B 99 22 11 20 20 20 20 20 20 20 59 4F 55 |LZ..". YOU|
00004470: 20 4D 41 59 20 45 4E 54 45 52 20 50 20 54 4F 20 | MAY ENTER P TO |
00004480: 50 41 55 53 45 2C 22 00 C9 4C 5B 1B 99 22 11 20 |PAUSE,"..L[..". |
00004490: 20 20 20 20 20 43 20 54 4F 20 43 4F 4E 54 49 4E | C TO CONTIN|
000044A0: 55 45 20 4F 52 20 53 20 54 4F 20 53 54 4F 50 2C |UE OR S TO STOP,|
000044B0: 22 3A 99 22 11 41 54 20 41 4E 59 20 54 49 4D 45 |":.".AT ANY TIME|
000044C0: 20 44 55 52 49 4E 47 22 3B 00 04 4D 5C 1B 99 22 | DURING";..M\.."|
000044D0: 20 44 55 52 49 4E 47 20 45 49 54 48 45 52 20 44 | DURING EITHER D|
000044E0: 49 53 50 4C 41 59 22 3A 99 22 20 20 20 20 20 20 |ISPLAY":." |
000044F0: 20 20 20 20 20 20 4F 52 20 50 52 49 4E 54 45 52 | OR PRINTER|
00004500: 2E 2E 2E 22 00 3C 4D 5D 1B 99 22 11 20 20 50 52 |...".<M]..". PR|
00004510: 49 4E 54 20 52 45 43 4F 52 44 20 4E 55 4D 42 45 |INT RECORD NUMBE|
00004520: 52 20 4F 4E 20 50 52 49 4E 54 4F 55 54 3F 20 22 |R ON PRINTOUT? "|
00004530: 3B C7 28 31 31 34 29 3B 22 9D 22 3B 00 5A 4D 5E |;.(114);".";.ZM^|
00004540: 1B A1 41 24 3A 8B 41 24 B3 B1 22 59 22 AF 41 24 |..A$:.A$.."Y".A$|
00004550: B3 B1 22 4E 22 A7 37 30 30 36 00 74 4D 5F 1B 99 |.."N".7006.tM_..|
00004560: 41 24 3A 8B 20 41 24 B2 22 59 22 20 A7 20 97 37 |A$:. A$."Y" . .7|
00004570: 34 30 2C 31 00 8B 4D 60 1B 8D 20 31 31 31 30 30 |40,1..M`.. 11100|
00004580: 3A 8B 20 57 58 B2 31 20 A7 20 8E 00 A9 4D 61 1B |:. WX.1 . ...Ma.|
00004590: 97 37 30 31 2C 31 3A 8D 32 39 39 30 3A 97 37 30 |.701,1:.2990:.70|
000045A0: 31 2C 30 3A A0 32 3A A0 33 00 D9 4D 62 1B 99 22 |1,0:.2:.3..Mb.."|
000045B0: 93 11 20 20 53 4F 52 54 20 54 48 45 20 46 49 4C |.. SORT THE FIL|
000045C0: 45 20 28 59 20 4F 52 20 4E 29 3A 20 22 3B C7 28 |E (Y OR N): ";.(|
000045D0: 31 31 34 29 3B 22 9D 22 3B 00 ED 4D 6C 1B 53 51 |114);".";..Ml.SQ|
000045E0: B2 31 3A 8D 35 38 31 33 3A 53 51 B2 30 00 13 4E |.1:.5813:SQ.0..N|
000045F0: 76 1B A1 41 24 3A 8B 41 24 B3 B1 22 59 22 AF 41 |v..A$:.A$.."Y".A|
00004600: 24 B3 B1 22 4E 22 AF 41 24 B3 B1 22 85 22 A7 37 |$.."N".A$..".".7|
00004610: 30 33 30 00 2C 4E 77 1B 8B 20 41 24 B2 22 85 22 |030.,Nw.. A$."."|
00004620: 20 A7 20 97 36 39 39 2C 31 3A 89 31 00 35 4E 78 | . .699,1:.1.5Nx|
00004630: 1B 5A 37 B2 30 00 4A 4E 80 1B 99 41 24 3A 8B 41 |.Z7.0.JN...A$:.A|
00004640: 24 B2 22 4E 22 A7 37 35 30 30 00 7E 4E 8A 1B 99 |$."N".7500.~N...|
00004650: 22 93 11 20 20 22 3B 3A 4F 49 24 B2 22 20 20 45 |".. ";:OI$." E|
00004660: 4E 54 45 52 20 46 49 45 4C 44 20 54 4F 20 53 4F |NTER FIELD TO SO|
00004670: 52 54 20 4F 4E 3A 20 22 3A 8D 35 38 31 30 00 9D |RT ON: ":.5810..|
00004680: 4E 8F 1B 8B 20 42 24 B2 22 85 22 20 A7 20 42 24 |N... B$."." . B$|
00004690: B2 22 22 3A 97 36 39 39 2C 31 3A 89 31 00 B4 4E |."":.699,1:.1..N|
000046A0: 94 1B 8B 20 C5 28 49 4F 24 29 B1 4E 46 20 A7 20 |... .(IO$).NF . |
000046B0: 37 30 35 30 00 C2 4E 9E 1B 5A 37 B2 C5 28 49 4F |7050..N..Z7..(IO|
000046C0: 24 29 00 01 4F 4C 1D 50 31 B2 30 3A 50 43 B2 30 |$)..OL.P1.0:PC.0|
000046D0: 3A 99 22 11 20 20 44 49 53 50 4C 41 59 20 4F 52 |:.". DISPLAY OR|
000046E0: 20 50 52 49 4E 54 45 52 3F 20 28 44 20 4F 52 20 | PRINTER? (D OR |
000046F0: 50 29 3A 20 22 3B C7 28 31 31 34 29 3B 22 9D 22 |P): ";.(114);"."|
00004700: 3B 00 15 4F 56 1D 53 51 B2 31 3A 8D 35 38 31 33 |;..OV.SQ.1:.5813|
00004710: 3A 53 51 B2 30 00 3C 4F 5B 1D A1 41 24 3A 8B 41 |:SQ.0.<O[..A$:.A|
00004720: 24 B3 B1 22 44 22 AF 41 24 B3 B1 22 50 22 AF 41 |$.."D".A$.."P".A|
00004730: 24 B3 B1 22 85 22 A7 20 37 35 31 35 00 55 4F 5D |$..".". 7515.UO]|
00004740: 1D 8B 20 41 24 B2 22 85 22 20 A7 20 97 36 39 39 |.. A$."." . .699|
00004750: 2C 31 3A 89 31 00 5D 4F 60 1D 99 41 24 00 80 4F |,1:.1.]O`..A$..O|
00004760: 6A 1D 46 38 B2 AB 31 3A 46 5A B2 30 3A 49 58 24 |j.F8..1:FZ.0:IX$|
00004770: B2 41 24 3A 8B 20 5A 37 B3 B1 30 A7 57 57 B2 31 |.A$:. Z7..0.WW.1|
00004780: 00 8A 4F 74 1D 8D 35 32 39 30 00 9C 4F 75 1D 8B |..Ot..5290..Ou..|
00004790: 5A 37 B3 B1 30 20 A7 20 37 35 35 30 00 B4 4F 76 |Z7..0 . 7550..Ov|
000047A0: 1D 81 20 49 B2 31 A4 52 52 3A 49 56 28 49 29 B2 |.. I.1.RR:IV(I).|
000047B0: 49 3A 82 49 00 C6 4F 7E 1D 8B 49 58 24 B2 22 44 |I:.I..O~..IX$."D|
000047C0: 22 A7 37 35 36 32 00 E0 4F 83 1D 58 4A B2 30 3A |".7562..O..XJ.0:|
000047D0: 8D 38 37 30 30 3A 8B 58 4A B2 30 A7 37 35 36 30 |.8700:.XJ.0.7560|
000047E0: 00 1B 50 84 1D 99 22 93 11 20 20 4E 4F 20 50 52 |..P...".. NO PR|
000047F0: 49 4E 54 20 46 4F 52 4D 41 54 2E 2E 2E 47 4F 20 |INT FORMAT...GO |
00004800: 4F 4E 3F 20 28 59 20 4F 52 20 4E 29 3A 20 22 3B |ON? (Y OR N): ";|
00004810: C7 28 31 31 34 29 3B 22 9D 22 3B 00 41 50 85 1D |.(114);".";.AP..|
00004820: A1 41 24 3A 8B 41 24 B3 B1 22 59 22 AF 41 24 B3 |.A$:.A$.."Y".A$.|
00004830: B1 22 4E 22 AF 41 24 B3 B1 22 85 22 A7 37 35 35 |."N".A$..".".755|
00004840: 37 00 5E 50 86 1D 8B 41 24 B2 22 85 22 B0 41 24 |7.^P...A$.".".A$|
00004850: B2 22 4E 22 A7 97 36 39 39 2C 31 3A 89 31 00 68 |."N"..699,1:.1.h|
00004860: 50 87 1D 99 22 4F 4B 22 00 76 50 88 1D 50 31 B2 |P..."OK".vP..P1.|
00004870: 31 3A 50 32 B2 30 00 7F 50 8A 1D 4E 47 B2 30 00 |1:P2.0..P..NG.0.|
00004880: 96 50 8D 1D 8B 5A 37 B3 B1 30 A7 8D 38 30 30 30 |.P...Z7..0..8000|
00004890: 3A 89 37 35 37 30 00 A2 50 8F 1D 51 51 B2 52 52 |:.7570..P..QQ.RR|
000048A0: AA 31 00 BD 50 92 1D 46 5A B2 46 5A AA 31 3A 43 |.1..P..FZ.FZ.1:C|
000048B0: 52 B2 49 56 28 46 5A 29 3A 8D 38 34 30 00 D2 50 |R.IV(FZ):.840..P|
000048C0: 94 1D 8B C3 28 46 24 28 31 29 29 B2 30 A7 37 36 |....(F$(1)).0.76|
000048D0: 30 35 00 ED 50 96 1D 8B C8 28 46 24 28 31 29 2C |05..P....(F$(1),|
000048E0: 33 29 B2 22 58 44 58 22 A7 37 36 30 35 00 12 51 |3)."XDX".7605..Q|
000048F0: 97 1D 8B 20 50 31 B2 31 20 AF 20 50 32 B2 30 20 |... P1.1 . P2.0 |
00004900: A7 20 9F 34 2C 34 3A 9D 34 3A 97 35 33 32 36 35 |. .4,4:.4:.53265|
00004910: 2C 30 00 23 51 9C 1D 8B 50 31 B2 31 A7 8D 31 30 |,0.#Q...P1.1..10|
00004920: 30 30 30 00 3B 51 9D 1D 8B 20 52 54 B2 31 A7 20 |000.;Q... RT.1. |
00004930: 52 54 B2 30 3A 89 20 37 37 30 30 00 41 51 A1 1D |RT.0:. 7700.AQ..|
00004940: 99 00 53 51 A2 1D 8B 20 43 52 B2 30 20 A7 20 37 |..SQ... CR.0 . 7|
00004950: 35 39 31 00 73 51 A3 1D 99 22 52 45 43 20 23 3A |591.sQ..."REC #:|
00004960: 22 AA C9 28 22 20 20 20 20 22 AA C4 28 43 52 29 |"..(" "..(CR)|
00004970: 2C 33 29 00 9A 51 A6 1D 8B 50 31 B3 B1 31 20 A7 |,3)..Q...P1..1 .|
00004980: 20 99 3A 81 49 B2 31 A4 4E 46 3A 99 22 20 20 22 | .:.I.1.NF:." "|
00004990: 3B 46 24 28 49 29 20 3A 82 49 00 D1 51 A7 1D 8D |;F$(I) :.I..Q...|
000049A0: 34 32 32 30 3A 8B 52 54 B2 31 20 A7 20 99 22 11 |4220:.RT.1 . .".|
000049B0: 11 2A 2A 45 4E 44 2E 2E 2E 43 4C 4F 53 49 4E 47 |.**END...CLOSING|
000049C0: 20 46 49 4C 45 22 3A 52 54 B2 30 3A 89 37 37 30 | FILE":RT.0:.770|
000049D0: 30 00 EA 51 B5 1D 8B 46 5A B1 51 51 AB 31 A7 37 |0..Q...FZ.QQ.1.7|
000049E0: 37 30 30 3A 8F 20 45 58 49 54 00 F4 51 BA 1D 89 |700:. EXIT..Q...|
000049F0: 37 35 37 30 00 05 52 14 1E 97 20 36 38 32 2C 31 |7570..R... 682,1|
00004A00: 3A 50 32 B2 30 00 17 52 19 1E 8D 31 37 35 30 3A |:P2.0..R...1750:|
00004A10: 8B 45 A7 33 39 39 30 00 36 52 1E 1E 8B 50 31 B3 |.E.3990.6R...P1.|
00004A20: B1 30 A7 98 34 2C 22 20 22 3A A0 34 3A 97 35 33 |.0..4," ":.4:.53|
00004A30: 32 36 35 2C 32 37 00 52 52 28 1E 97 36 39 39 2C |265,27.RR(..699,|
00004A40: 31 3A 97 36 38 32 2C 30 3A 8D 31 31 31 30 30 3A |1:.682,0:.11100:|
00004A50: 89 31 00 95 52 46 1E 99 22 13 11 11 11 11 11 11 |.1..RF..".......|
00004A60: 20 20 53 4F 52 54 20 4F 4E 20 41 20 46 49 45 4C | SORT ON A FIEL|
00004A70: 44 3F 20 28 59 20 4F 52 20 4E 29 3A 20 22 3B C7 |D? (Y OR N): ";.|
00004A80: 28 31 31 34 29 3B 22 9D 22 3B 3A 53 51 B2 31 3A |(114);".";:SQ.1:|
00004A90: 8D 35 38 31 33 00 C0 52 47 1E 53 51 B2 30 3A A1 |.5813..RG.SQ.0:.|
00004AA0: 41 24 3A 8B 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 |A$:.A$.."Y".A$..|
00004AB0: 22 4E 22 AF 41 24 B3 B1 22 85 22 A7 37 37 35 31 |"N".A$..".".7751|
00004AC0: 00 D8 52 48 1E 8B 20 41 24 B2 22 85 22 A7 20 97 |..RH.. A$.".". .|
00004AD0: 36 39 39 2C 31 3A 89 31 00 EA 52 49 1E 99 41 24 |699,1:.1..RI..A$|
00004AE0: 3A 8B 41 24 B2 22 4E 22 A7 8E 00 2D 53 4A 1E 4F |:.A$."N"...-SJ.O|
00004AF0: 49 24 B2 22 13 11 11 11 11 11 11 20 20 53 4F 52 |I$."....... SOR|
00004B00: 54 20 4F 4E 20 57 48 49 43 48 20 46 49 45 4C 44 |T ON WHICH FIELD|
00004B10: 3F 20 20 20 20 20 20 20 20 20 20 20 9D 9D 9D 9D |? ....|
00004B20: 9D 9D 9D 9D 9D 9D 22 3A 8D 35 38 31 30 00 4C 53 |......":.5810.LS|
00004B30: 4B 1E 8B 20 42 24 B2 22 85 22 20 A7 20 42 24 B2 |K.. B$."." . B$.|
00004B40: 22 22 3A 97 36 39 39 2C 31 3A 89 31 00 6E 53 4C |"":.699,1:.1.nSL|
00004B50: 1E 8B 20 C5 28 49 4F 24 29 B3 31 20 B0 20 C5 28 |.. .(IO$).1 . .(|
00004B60: 49 4F 24 29 B1 4E 46 20 A7 20 37 37 35 34 00 89 |IO$).NF . 7754..|
00004B70: 53 4D 1E 53 37 B2 C5 28 49 4F 24 29 3A 53 35 B2 |SM.S7..(IO$):S5.|
00004B80: 31 3A 8D 38 37 30 30 3A 8E 00 D0 53 78 1E 99 22 |1:.8700:...Sx.."|
00004B90: 93 11 20 20 53 54 41 52 54 20 53 4F 52 54 20 52 |.. START SORT R|
00004BA0: 4F 55 54 49 4E 45 2E 2E 2E 41 53 53 49 47 4E 49 |OUTINE...ASSIGNI|
00004BB0: 4E 47 20 56 41 4C 55 45 53 22 3A 51 51 B2 31 3A |NG VALUES":QQ.1:|
00004BC0: 41 24 28 31 29 B2 22 44 55 4D 4D 59 20 20 31 22 |A$(1)."DUMMY 1"|
00004BD0: 00 EA 53 AA 1E 81 51 B2 32 A4 4B AA 31 3A 43 52 |..S...Q.2.K.1:CR|
00004BE0: B2 5A 28 51 29 3A 8D 38 34 30 00 04 54 AF 1E 8B |.Z(Q):.840..T...|
00004BF0: C3 28 46 24 28 53 37 29 29 B3 B2 33 32 20 A7 20 |.(F$(S7))..32 . |
00004C00: 37 38 37 30 00 34 54 B4 1E 99 22 11 11 20 20 49 |7870.4T...".. I|
00004C10: 4C 4C 45 47 41 4C 20 46 49 45 4C 44 20 54 4F 20 |LLEGAL FIELD TO |
00004C20: 53 4F 52 54 20 4F 4E 2E 2E 2E 11 11 22 3A 8D 31 |SORT ON.....":.1|
00004C30: 31 31 30 30 00 47 54 B9 1E 97 36 39 39 2C 31 3A |1100.GT...699,1:|
00004C40: A0 31 35 3A 89 20 31 00 64 54 BE 1E 8B 20 46 24 |.15:. 1.dT... F$|
00004C50: 28 53 37 29 B2 22 22 20 A7 20 82 20 51 3A 89 20 |(S7)."" . . Q:. |
00004C60: 37 38 39 35 00 93 54 C8 1E 51 51 B2 51 51 AA 31 |7895..T..QQ.QQ.1|
00004C70: 3A 41 24 28 51 51 29 B2 C8 28 46 24 28 53 37 29 |:A$(QQ)..(F$(S7)|
00004C80: AA 22 20 20 20 20 20 20 20 22 2C 36 29 AA C4 28 |." ",6)..(|
00004C90: 43 52 29 00 9A 54 D2 1E 82 51 00 AF 54 D7 1E 8D |CR)..T...Q..T...|
00004CA0: 20 31 30 30 3A 46 5A B2 30 3A 89 37 35 37 30 00 | 100:FZ.0:.7570.|
00004CB0: F6 54 40 1F 99 22 93 11 20 20 53 54 41 52 54 20 |.T@..".. START |
00004CC0: 53 4F 52 54 20 52 4F 55 54 49 4E 45 2E 2E 2E 41 |SORT ROUTINE...A|
00004CD0: 53 53 49 47 4E 49 4E 47 20 56 41 4C 55 45 53 22 |SSIGNING VALUES"|
00004CE0: 3A 51 51 B2 31 3A 41 24 28 31 29 B2 22 44 55 4D |:QQ.1:A$(1)."DUM|
00004CF0: 4D 59 20 20 31 22 00 10 55 3A 20 81 51 B2 32 A4 |MY 1"..U: .Q.2.|
00004D00: 52 52 AA 31 3A 43 52 B2 51 AB 31 3A 8D 38 34 30 |RR.1:CR.Q.1:.840|
00004D10: 00 2A 55 3F 20 8B C3 28 46 24 28 5A 37 29 29 B3 |.*U? ..(F$(Z7)).|
00004D20: B2 33 32 20 A7 20 38 32 37 30 00 5A 55 44 20 99 |.32 . 8270.ZUD .|
00004D30: 22 11 11 20 20 49 4C 4C 45 47 41 4C 20 46 49 45 |".. ILLEGAL FIE|
00004D40: 4C 44 20 54 4F 20 53 4F 52 54 20 4F 4E 2E 2E 2E |LD TO SORT ON...|
00004D50: 11 11 22 3A 8D 31 31 31 30 30 00 6D 55 49 20 97 |..":.11100.mUI .|
00004D60: 36 39 39 2C 31 3A A0 31 35 3A 89 20 31 00 84 55 |699,1:.15:. 1..U|
00004D70: 4E 20 8B 20 46 24 28 5A 37 29 B2 22 22 20 A7 20 |N . F$(Z7)."" . |
00004D80: 38 32 39 30 00 B3 55 58 20 51 51 B2 51 51 AA 31 |8290..UX QQ.QQ.1|
00004D90: 3A 41 24 28 51 51 29 B2 C8 28 46 24 28 5A 37 29 |:A$(QQ)..(F$(Z7)|
00004DA0: AA 22 20 20 20 20 20 20 20 22 2C 36 29 AA C4 28 |." ",6)..(|
00004DB0: 43 52 29 00 BA 55 62 20 82 51 00 C3 55 6C 20 89 |CR)..Ub .Q..Ul .|
00004DC0: 31 30 30 00 C9 55 80 20 8F 00 CF 55 34 21 8F 00 |100..U. ...U4!..|
00004DD0: F2 55 36 21 48 46 B2 30 3A 99 22 11 20 20 52 45 |.U6!HF.0:.". RE|
00004DE0: 41 44 49 4E 47 20 46 4F 52 4D 41 54 20 46 49 4C |ADING FORMAT FIL|
00004DF0: 45 22 00 0D 56 3E 21 9F 37 2C 38 2C 37 2C 22 30 |E"..V>!.7,8,7,"0|
00004E00: 3A 46 4F 52 4D 41 54 31 2C 53 2C 52 22 00 23 56 |:FORMAT1,S,R".#V|
00004E10: 48 21 8D 31 37 35 30 3A 8B 45 4E B2 36 32 A7 38 |H!.1750:.EN.62.8|
00004E20: 35 39 30 00 2D 56 52 21 84 37 2C 48 46 00 57 56 |590.-VR!.7,HF.WV|
00004E30: 5C 21 81 49 B2 31 A4 48 46 3A 84 37 2C 50 46 24 |\!.I.1.HF:.7,PF$|
00004E40: 28 49 2C 31 29 2C 50 46 24 28 49 2C 32 29 2C 50 |(I,1),PF$(I,2),P|
00004E50: 46 24 28 49 2C 33 29 00 5E 56 66 21 82 49 00 73 |F$(I,3).^Vf!.I.s|
00004E60: 56 6B 21 84 37 2C 50 42 24 3A 50 42 B2 C5 28 50 |Vk!.7,PB$:PB..(P|
00004E70: 42 24 29 00 7C 56 70 21 A0 37 3A 8E 00 82 56 7A |B$).|Vp!.7:...Vz|
00004E80: 21 8F 00 8B 56 8E 21 A0 37 3A 8E 00 91 56 93 21 |!...V.!.7:...V.!|
00004E90: 8F 00 AC 56 98 21 9F 37 2C 38 2C 37 2C 22 30 3A |...V.!.7,8,7,"0:|
00004EA0: 46 4F 52 4D 41 54 31 2C 53 2C 57 22 00 B6 56 9D |FORMAT1,S,W"..V.|
00004EB0: 21 8D 31 37 35 30 00 DC 56 A2 21 8B 45 4E B2 36 |!.1750..V.!.EN.6|
00004EC0: 33 A7 A0 37 3A 9F 37 2C 38 2C 37 2C 22 40 30 3A |3..7:.7,8,7,"@0:|
00004ED0: 46 4F 52 4D 41 54 31 2C 53 2C 57 22 00 E6 56 A7 |FORMAT1,S,W"..V.|
00004EE0: 21 98 37 2C 48 46 00 F2 56 AC 21 81 49 B2 31 A4 |!.7,HF..V.!.I.1.|
00004EF0: 48 46 00 1E 57 B1 21 98 37 2C 50 46 24 28 49 2C |HF..W.!.7,PF$(I,|
00004F00: 31 29 3B 4D 24 3B 50 46 24 28 49 2C 32 29 3B 4D |1);M$;PF$(I,2);M|
00004F10: 24 3B 50 46 24 28 49 2C 33 29 3B 4D 24 3B 00 2F |$;PF$(I,3);M$;./|
00004F20: 57 B6 21 82 49 3A 98 37 2C 50 42 24 3B 4D 24 00 |W.!.I:.7,PB$;M$.|
00004F30: 38 57 BB 21 A0 37 3A 8E 00 3E 57 C0 21 8F 00 44 |8W.!.7:..>W.!..D|
00004F40: 57 FC 21 8F 00 67 57 06 22 81 49 B2 31 A4 4E 46 |W.!..gW.".I.1.NF|
00004F50: 3A 50 46 28 49 2C 31 29 B2 49 3A 50 46 28 49 2C |:PF(I,1).I:PF(I,|
00004F60: 32 29 B2 30 3A 82 49 00 71 57 08 22 50 42 B2 36 |2).0:.I.qW."PB.6|
00004F70: 36 00 7B 57 10 22 8D 38 35 30 30 00 92 57 1A 22 |6.{W.".8500..W."|
00004F80: 8B 48 46 B2 30 A7 48 46 B2 4E 46 3A 58 4A B2 31 |.HF.0.HF.NF:XJ.1|
00004F90: 3A 8E 00 9E 57 24 22 81 49 B2 31 A4 48 46 00 B6 |:...W$".I.1.HF..|
00004FA0: 57 2E 22 50 46 28 49 2C 31 29 B2 C5 28 50 46 24 |W."PF(I,1)..(PF$|
00004FB0: 28 49 2C 32 29 29 00 CE 57 38 22 50 46 28 49 2C |(I,2))..W8"PF(I,|
00004FC0: 32 29 B2 C5 28 50 46 24 28 49 2C 33 29 29 00 E0 |2)..(PF$(I,3))..|
00004FD0: 57 42 22 82 49 20 3A 50 42 B2 C5 28 50 42 24 29 |WB".I :PB..(PB$)|
00004FE0: 00 E6 57 4C 22 8E 00 EC 57 56 22 8F 00 F2 57 28 |..WL"...WV"...W(|
00004FF0: 23 8F 00 01 58 32 23 99 22 93 22 20 3A 4B 31 B2 |#...X2#."." :K1.|
00005000: 30 00 3D 58 33 23 8D 38 35 30 30 20 3A 8B 20 48 |0.=X3#.8500 :. H|
00005010: 46 B2 30 20 A7 20 99 22 93 11 22 3B A6 39 29 3B |F.0 . ."..";.9);|
00005020: 22 4E 4F 20 46 4F 52 4D 41 54 20 4F 4E 20 46 49 |"NO FORMAT ON FI|
00005030: 4C 45 2E 2E 2E 22 3A 89 20 39 30 32 30 00 68 58 |LE...":. 9020.hX|
00005040: 34 23 99 22 93 11 54 49 54 4C 45 20 20 20 20 20 |4#."..TITLE |
00005050: 20 20 20 20 52 4F 57 2F 43 4F 4C 55 4D 4E 20 20 | ROW/COLUMN |
00005060: 20 20 46 49 45 4C 44 22 00 94 58 35 23 99 22 2D | FIELD"..X5#."-|
00005070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00005080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00005090: 2D 2D 2D 22 00 A0 58 36 23 81 49 B2 31 A4 48 46 |---"..X6#.I.1.HF|
000050A0: 00 D3 58 37 23 99 50 46 24 28 49 2C 31 29 3B A3 |..X7#.PF$(I,1);.|
000050B0: 31 35 29 3B 50 46 24 28 49 2C 32 29 3B A3 32 30 |15);PF$(I,2);.20|
000050C0: 29 50 46 24 28 49 2C 33 29 3B A3 33 30 29 3B C4 |)PF$(I,3);.30);.|
000050D0: 28 49 29 00 F7 58 38 23 82 49 3A 99 3A 99 22 52 |(I)..X8#.I:.:."R|
000050E0: 4F 57 53 20 54 4F 20 41 20 50 41 47 45 20 3D 20 |OWS TO A PAGE = |
000050F0: 22 AA 50 42 24 3A 99 00 31 59 3C 23 99 22 11 20 |".PB$:..1Y<#.". |
00005100: 43 4F 4E 54 49 4E 55 45 20 57 49 54 48 20 4E 45 |CONTINUE WITH NE|
00005110: 57 20 46 4F 52 4D 41 54 3F 20 28 59 20 4F 52 20 |W FORMAT? (Y OR |
00005120: 4E 29 3A 20 22 3B C7 28 31 31 34 29 3B 22 9D 22 |N): ";.(114);"."|
00005130: 3B 00 45 59 3E 23 53 51 B2 31 3A 8D 35 38 31 33 |;.EY>#SQ.1:.5813|
00005140: 3A 53 51 B2 30 00 67 59 40 23 A1 20 41 24 3A 8B |:SQ.0.gY@#. A$:.|
00005150: 20 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 22 4E 22 | A$.."Y".A$.."N"|
00005160: 20 A7 20 39 30 32 34 00 7F 59 46 23 99 41 24 3A | . 9024..YF#.A$:|
00005170: 8B 20 41 24 B2 22 4E 22 20 A7 20 35 31 30 30 00 |. A$."N" . 5100.|
00005180: B4 59 50 23 99 22 93 11 20 20 22 3B 3A 4F 49 24 |.YP#.".. ";:OI$|
00005190: B2 22 45 4E 54 45 52 20 23 20 4F 46 20 46 49 45 |."ENTER # OF FIE|
000051A0: 4C 44 53 20 49 4E 20 46 49 4C 45 3A 20 22 3A 8D |LDS IN FILE: ":.|
000051B0: 35 38 31 30 00 CF 59 5A 23 8B 20 42 24 B2 22 85 |5810..YZ#. B$.".|
000051C0: 22 20 A7 20 42 24 B2 22 22 3A 89 35 31 30 30 00 |" . B$."":.5100.|
000051D0: F7 59 5B 23 48 46 B2 C5 28 49 4F 24 29 20 3A 4B |.Y[#HF..(IO$) :K|
000051E0: 31 B2 31 3A 8B 20 48 46 B2 30 20 A7 20 4B 31 B2 |1.1:. HF.0 . K1.|
000051F0: 30 3A 89 39 30 34 30 00 30 5A 5C 23 99 22 20 20 |0:.9040.0Z\#." |
00005200: 22 3B 3A 4F 49 24 B2 22 45 4E 54 45 52 20 23 20 |";:OI$."ENTER # |
00005210: 4F 46 20 52 4F 57 53 20 54 4F 20 41 20 50 41 47 |OF ROWS TO A PAG|
00005220: 45 3A 20 22 3A 8D 35 38 31 30 3A 8D 39 38 30 30 |E: ":.5810:.9800|
00005230: 00 55 5A 5D 23 8B 20 42 24 B2 22 85 22 20 A7 20 |.UZ]#. B$."." . |
00005240: 42 24 B2 22 22 3A 4B 31 B2 30 3A 48 46 B2 30 3A |B$."":K1.0:HF.0:|
00005250: 89 35 31 30 30 00 61 5A 5E 23 50 42 24 B2 49 4F |.5100.aZ^#PB$.IO|
00005260: 24 00 90 5A 5F 23 8B C5 28 50 42 24 29 B1 36 30 |$..Z_#..(PB$).60|
00005270: B0 C5 28 50 42 24 29 B3 31 20 A7 20 99 22 91 91 |..(PB$).1 . ."..|
00005280: 91 91 22 3B 3A 8D 36 30 34 30 3A 89 39 30 35 32 |..";:.6040:.9052|
00005290: 00 B9 5A 64 23 99 22 93 11 45 4E 54 45 52 20 46 |..Zd#."..ENTER F|
000052A0: 37 20 46 4F 52 20 42 4C 41 4E 4B 20 46 49 45 4C |7 FOR BLANK FIEL|
000052B0: 44 20 54 49 54 4C 45 2E 22 00 DF 5A 69 23 99 22 |D TITLE."..Zi#."|
000052C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000052D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
000052E0: EB 5A 6E 23 81 49 B2 31 A4 48 46 00 FF 5A 78 23 |.Zn#.I.1.HF..Zx#|
000052F0: 99 22 11 46 49 45 4C 44 20 22 AA C4 28 49 29 00 |.".FIELD "..(I).|
00005300: 1E 5B 82 23 4F 49 24 B2 22 11 45 4E 54 45 52 20 |.[.#OI$.".ENTER |
00005310: 54 49 54 4C 45 3A 20 22 3A 8D 35 38 31 30 00 43 |TITLE: ":.5810.C|
00005320: 5B 87 23 8B 20 42 24 B2 22 85 22 20 A7 20 42 24 |[.#. B$."." . B$|
00005330: B2 22 22 3A 4B 31 B2 30 3A 48 46 B2 30 3A 89 35 |."":K1.0:HF.0:.5|
00005340: 31 30 30 00 7F 5B 8C 23 8B 49 4F 24 B2 22 88 22 |100..[.#.IO$."."|
00005350: A7 50 46 24 28 49 2C 31 29 B2 22 20 20 20 20 20 |.PF$(I,1)." |
00005360: 20 20 20 20 20 22 3A 99 22 91 91 22 3B A3 31 33 | ":."..";.13|
00005370: 29 3B 22 42 4C 41 4E 4B 22 3A 89 39 31 31 30 00 |);"BLANK":.9110.|
00005380: 9A 5B 91 23 50 46 24 28 49 2C 31 29 B2 C8 28 49 |.[.#PF$(I,1)..(I|
00005390: 4F 24 AA 53 4C 24 2C 31 30 29 00 CE 5B 96 23 4F |O$.SL$,10)..[.#O|
000053A0: 49 24 B2 22 11 45 4E 54 45 52 20 52 4F 57 20 4C |I$.".ENTER ROW L|
000053B0: 4F 43 41 54 49 4F 4E 20 4F 4E 20 50 41 47 45 3A |OCATION ON PAGE:|
000053C0: 20 22 3A 8D 35 38 31 30 3A 8D 39 38 30 30 00 F3 | ":.5810:.9800..|
000053D0: 5B 9B 23 8B 20 42 24 B2 22 85 22 20 A7 20 42 24 |[.#. B$."." . B$|
000053E0: B2 22 22 3A 4B 31 B2 30 3A 48 46 B2 30 3A 89 35 |."":K1.0:HF.0:.5|
000053F0: 31 30 30 00 2E 5C A0 23 50 46 24 28 49 2C 32 29 |100..\.#PF$(I,2)|
00005400: B2 49 4F 24 3A 8B C5 28 49 4F 24 29 B2 30 A7 99 |.IO$:..(IO$).0..|
00005410: 22 91 22 3B A3 32 39 29 3B 22 20 20 20 20 20 22 |".";.29);" "|
00005420: 3A 99 22 91 91 91 22 3B 3A 89 39 31 31 30 00 64 |:."...";:.9110.d|
00005430: 5C AA 23 4F 49 24 B2 22 11 45 4E 54 45 52 20 43 |\.#OI$.".ENTER C|
00005440: 4F 4C 55 4D 4E 20 4C 4F 43 41 54 49 4F 4E 20 49 |OLUMN LOCATION I|
00005450: 4E 20 52 4F 57 3A 20 22 3A 8D 35 38 31 30 3A 8D |N ROW: ":.5810:.|
00005460: 39 38 30 30 00 89 5C AF 23 8B 20 42 24 B2 22 85 |9800..\.#. B$.".|
00005470: 22 20 A7 20 42 24 B2 22 22 3A 4B 31 B2 30 3A 48 |" . B$."":K1.0:H|
00005480: 46 B2 30 3A 89 35 31 30 30 00 C4 5C B4 23 50 46 |F.0:.5100..\.#PF|
00005490: 24 28 49 2C 33 29 B2 49 4F 24 3A 8B C5 28 49 4F |$(I,3).IO$:..(IO|
000054A0: 24 29 B2 30 A7 99 22 91 22 3B A3 33 31 29 3B 22 |$).0..".";.31);"|
000054B0: 20 20 20 20 20 22 3A 99 22 91 91 91 22 3B 3A 89 | ":."...";:.|
000054C0: 39 31 33 30 00 CB 5C BE 23 82 49 00 F6 5C C8 23 |9130..\.#.I..\.#|
000054D0: 99 22 93 11 54 49 54 4C 45 20 20 20 20 20 20 20 |."..TITLE |
000054E0: 20 20 52 4F 57 2F 43 4F 4C 55 4D 4E 20 20 20 20 | ROW/COLUMN |
000054F0: 46 49 45 4C 44 22 00 22 5D CD 23 99 22 2D 2D 2D |FIELD"."].#."---|
00005500: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00005510: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00005520: 2D 22 00 2E 5D D2 23 81 49 B2 31 A4 48 46 00 61 |-"..].#.I.1.HF.a|
00005530: 5D DC 23 99 50 46 24 28 49 2C 31 29 3B A3 31 35 |].#.PF$(I,1);.15|
00005540: 29 3B 50 46 24 28 49 2C 32 29 3B A3 32 30 29 50 |);PF$(I,2);.20)P|
00005550: 46 24 28 49 2C 33 29 3B A3 33 30 29 3B C4 28 49 |F$(I,3);.30);.(I|
00005560: 29 00 86 5D E6 23 82 49 3A 99 3A 99 22 52 4F 57 |)..].#.I:.:."ROW|
00005570: 53 20 54 4F 20 41 20 50 41 47 45 20 3D 20 22 AA |S TO A PAGE = ".|
00005580: 50 42 24 20 3A 99 00 A9 5D E8 23 4F 49 24 B2 22 |PB$ :...].#OI$."|
00005590: 43 48 41 4E 47 45 53 20 28 59 20 4F 52 20 4E 29 |CHANGES (Y OR N)|
000055A0: 3A 20 22 3A 8D 35 38 31 30 00 CE 5D E9 23 8B 20 |: ":.5810..].#. |
000055B0: 42 24 B2 22 85 22 20 A7 20 42 24 B2 22 22 3A 4B |B$."." . B$."":K|
000055C0: 31 B2 30 3A 48 46 B2 30 3A 89 35 31 30 30 00 E5 |1.0:HF.0:.5100..|
000055D0: 5D EB 23 8B C8 28 49 4F 24 2C 31 29 B2 22 59 22 |].#..(IO$,1)."Y"|
000055E0: A7 39 39 30 30 00 F5 5D F0 23 8B 4B 31 B2 31 A7 |.9900..].#.K1.1.|
000055F0: 8D 38 36 30 30 00 FF 5D F2 23 89 35 31 30 30 00 |.8600..].#.5100.|
00005600: 05 5E 48 26 8F 00 1D 5E 52 26 8B C3 28 49 4F 24 |.^H&...^R&..(IO$|
00005610: 29 B2 30 A7 49 4F 24 B2 22 30 22 3A 8E 00 3A 5E |).0.IO$."0":..:^|
00005620: 5C 26 8B C6 28 49 4F 24 29 B3 C6 28 22 30 22 29 |\&..(IO$)..("0")|
00005630: A7 49 4F 24 B2 22 30 22 3A 8E 00 57 5E 66 26 8B |.IO$."0":..W^f&.|
00005640: C6 28 49 4F 24 29 B1 C6 28 22 39 22 29 A7 49 4F |.(IO$)..("9").IO|
00005650: 24 B2 22 30 22 3A 8E 00 75 5E 67 26 5A B2 C5 28 |$."0":..u^g&Z..(|
00005660: 49 4F 24 29 3A 8B 5A B1 37 30 A7 49 4F 24 B2 22 |IO$):.Z.70.IO$."|
00005670: 37 30 22 3A 8E 00 7B 5E 70 26 8E 00 81 5E 7A 26 |70":..{^p&...^z&|
00005680: 8F 00 8A 5E AC 26 4B 31 B2 31 00 C0 5E B8 26 4F |...^.&K1.1..^.&O|
00005690: 49 24 B2 22 11 45 4E 54 45 52 20 4E 55 4D 42 45 |I$.".ENTER NUMBE|
000056A0: 52 20 4F 46 20 52 4F 57 53 3A 20 22 3A 8D 35 38 |R OF ROWS: ":.58|
000056B0: 31 30 3A 8D 39 38 30 30 3A 50 42 24 B2 49 4F 24 |10:.9800:PB$.IO$|
000056C0: 00 E5 5E BB 26 8B 20 42 24 B2 22 85 22 20 A7 20 |..^.&. B$."." . |
000056D0: 42 24 B2 22 22 3A 4B 31 B2 30 3A 48 46 B2 30 3A |B$."":K1.0:HF.0:|
000056E0: 89 35 31 30 30 00 11 5F BE 26 4F 49 24 B2 22 11 |.5100.._.&OI$.".|
000056F0: 45 4E 54 45 52 20 46 49 45 4C 44 20 4E 55 4D 42 |ENTER FIELD NUMB|
00005700: 45 52 3A 20 22 3A 8D 35 38 31 30 3A 8D 39 38 30 |ER: ":.5810:.980|
00005710: 30 00 36 5F BF 26 8B 20 42 24 B2 22 85 22 20 A7 |0.6_.&. B$."." .|
00005720: 20 42 24 B2 22 22 3A 4B 31 B2 30 3A 48 46 B2 30 | B$."":K1.0:HF.0|
00005730: 3A 89 35 31 30 30 00 48 5F C0 26 8B 49 4F 24 B2 |:.5100.H_.&.IO$.|
00005740: 22 30 22 A7 39 31 36 30 00 62 5F CA 26 5A 31 B2 |"0".9160.b_.&Z1.|
00005750: C5 28 49 4F 24 29 3A 8B 5A 31 B1 48 46 A7 39 39 |.(IO$):.Z1.HF.99|
00005760: 31 30 00 87 5F D4 26 4F 49 24 B2 22 11 45 4E 54 |10.._.&OI$.".ENT|
00005770: 45 52 20 46 49 45 4C 44 20 54 49 54 4C 45 3A 20 |ER FIELD TITLE: |
00005780: 22 3A 8D 35 38 31 30 00 AC 5F D6 26 8B 20 42 24 |":.5810.._.&. B$|
00005790: B2 22 85 22 20 A7 20 42 24 B2 22 22 3A 4B 31 B2 |."." . B$."":K1.|
000057A0: 30 3A 48 46 B2 30 3A 89 35 31 30 30 00 E9 5F D9 |0:HF.0:.5100.._.|
000057B0: 26 8B 49 4F 24 B2 22 88 22 A7 50 46 24 28 5A 31 |&.IO$.".".PF$(Z1|
000057C0: 2C 31 29 B2 22 20 20 20 20 20 20 20 20 20 20 22 |,1)." "|
000057D0: 3A 99 22 91 91 22 3B A3 31 39 29 3B 22 42 4C 41 |:."..";.19);"BLA|
000057E0: 4E 4B 22 3A 89 39 39 36 30 00 05 60 DE 26 50 46 |NK":.9960..`.&PF|
000057F0: 24 28 5A 31 2C 31 29 B2 C8 28 49 4F 24 AA 53 4C |$(Z1,1)..(IO$.SL|
00005800: 24 2C 31 30 29 00 32 60 E8 26 4F 49 24 B2 22 52 |$,10).2`.&OI$."R|
00005810: 4F 57 20 4C 4F 43 41 54 49 4F 4E 20 4F 4E 20 50 |OW LOCATION ON P|
00005820: 41 47 45 3A 20 22 3A 8D 35 38 31 30 3A 8D 39 38 |AGE: ":.5810:.98|
00005830: 30 30 00 57 60 ED 26 8B 20 42 24 B2 22 85 22 20 |00.W`.&. B$."." |
00005840: A7 20 42 24 B2 22 22 3A 4B 31 B2 30 3A 48 46 B2 |. B$."":K1.0:HF.|
00005850: 30 3A 89 35 31 30 30 00 69 60 F2 26 50 46 24 28 |0:.5100.i`.&PF$(|
00005860: 5A 31 2C 32 29 B2 49 4F 24 00 98 60 FC 26 4F 49 |Z1,2).IO$..`.&OI|
00005870: 24 B2 22 43 4F 4C 55 4D 4E 20 4C 4F 43 41 54 49 |$."COLUMN LOCATI|
00005880: 4F 4E 20 49 4E 20 52 4F 57 3A 20 22 3A 8D 35 38 |ON IN ROW: ":.58|
00005890: 31 30 3A 8D 39 38 30 30 00 BD 60 01 27 8B 20 42 |10:.9800..`.'. B|
000058A0: 24 B2 22 85 22 20 A7 20 42 24 B2 22 22 3A 4B 31 |$."." . B$."":K1|
000058B0: B2 30 3A 48 46 B2 30 3A 89 35 31 30 30 00 D5 60 |.0:HF.0:.5100..`|
000058C0: 06 27 50 46 24 28 5A 31 2C 33 29 B2 49 4F 24 3A |.'PF$(Z1,3).IO$:|
000058D0: 89 39 31 36 30 00 E6 60 10 27 50 32 B2 32 3A 8B |.9160..`.'P2.2:.|
000058E0: 43 52 B2 30 A7 8E 00 FE 60 1A 27 50 47 B2 AB 31 |CR.0....`.'PG..1|
000058F0: 20 3A 8B 48 46 B1 4E 46 A7 48 46 B2 4E 46 00 28 | :.HF.NF.HF.NF.(|
00005900: 61 1F 27 8B C2 28 37 34 30 29 A7 98 34 2C 22 20 |a.'..(740)..4," |
00005910: 22 3A 98 34 2C 22 52 45 43 20 23 3A 22 3B 43 52 |":.4,"REC #:";CR|
00005920: 3A 50 43 B2 50 43 AA 32 00 3A 61 24 27 81 49 B2 |:PC.PC.2.:a$'.I.|
00005930: 31 A4 20 48 46 3A 49 47 B2 49 00 49 61 25 27 52 |1. HF:IG.I.Ia%'R|
00005940: 54 B2 30 3A 8D 34 32 32 30 00 85 61 26 27 8B 20 |T.0:.4220..a&'. |
00005950: 52 54 B2 31 20 A7 20 97 35 33 32 36 35 2C 32 37 |RT.1 . .53265,27|
00005960: 3A 99 22 11 11 2A 2A 45 4E 44 20 50 52 49 4E 54 |:."..**END PRINT|
00005970: 49 4E 47 2E 2E 2E 43 4C 4F 53 49 4E 47 20 46 49 |ING...CLOSING FI|
00005980: 4C 45 22 3A 8E 00 91 61 2E 27 50 47 B2 50 47 AA |LE":...a.'PG.PG.|
00005990: 31 00 AF 61 38 27 8B 50 47 B3 50 46 28 49 2C 31 |1..a8'.PG.PF(I,1|
000059A0: 29 A7 98 34 2C 22 20 22 3A 89 31 30 30 33 30 00 |)..4," ":.10030.|
000059B0: DD 61 3D 27 4B 4C 24 B2 C8 28 4C 4C 24 2C 50 46 |.a='KL$..(LL$,PF|
000059C0: 28 49 47 2C 32 29 29 AA 50 46 24 28 49 47 2C 31 |(IG,2)).PF$(IG,1|
000059D0: 29 AA 22 20 20 22 AA 46 24 28 49 47 29 00 FE 61 |)." ".F$(IG)..a|
000059E0: 42 27 8B 50 47 B2 50 46 28 49 47 2C 31 29 A7 98 |B'.PG.PF(IG,1)..|
000059F0: 34 2C 4B 4C 24 3B 3A 50 43 B2 50 43 AA 31 00 21 |4,KL$;:PC.PC.1.!|
00005A00: 62 44 27 8B 20 50 47 B2 50 46 28 49 AA 31 2C 31 |bD'. PG.PF(I.1,1|
00005A10: 29 20 A7 20 49 47 B2 49 AA 31 3A 89 31 30 30 34 |) . IG.I.1:.1004|
00005A20: 35 00 2C 62 46 27 98 34 2C 22 20 22 00 3B 62 4C |5.,bF'.4," ".;bL|
00005A30: 27 82 49 3A 50 43 B2 50 43 AA 31 00 59 62 4D 27 |'.I:PC.PC.1.YbM'|
00005A40: 4B 37 B2 30 3A 4B 39 B2 30 3A 8B 20 C2 28 37 34 |K7.0:K9.0:. .(74|
00005A50: 30 29 20 A7 20 4B 37 B2 32 00 79 62 4E 27 4B 39 |0) . K7.2.ybN'K9|
00005A60: B2 50 43 AA 4B 37 AA 31 AA 48 46 3A 8B 4B 39 B1 |.PC.K7.1.HF:.K9.|
00005A70: 50 42 A7 8D 31 30 30 37 35 00 7F 62 56 27 8E 00 |PB..10075..bV'..|
00005A80: A4 62 5B 27 81 4A B2 31 A4 20 28 36 36 AB 50 43 |.b['.J.1. (66.PC|
00005A90: 29 20 3A 52 54 B2 30 3A 8D 34 32 32 30 3A 98 34 |) :RT.0:.4220:.4|
00005AA0: 2C 22 20 22 00 BD 62 5C 27 8B 52 54 A7 4A B2 28 |," "..b\'.RT.J.(|
00005AB0: 36 36 AB 50 43 29 3A 89 31 30 30 32 32 00 CB 62 |66.PC):.10022..b|
00005AC0: 5D 27 82 4A 3A 50 43 B2 30 3A 8E 00 D8 62 F8 2A |]'.J:PC.0:...b.*|
00005AD0: 8F 20 42 4F 52 44 45 52 00 07 63 FD 2A 99 22 93 |. BORDER..c.*.".|
00005AE0: 22 3B C7 28 31 31 37 29 3B 3A 81 49 49 B2 31 A4 |";.(117);:.II.1.|
00005AF0: 33 38 3A 99 C7 28 39 39 29 3B 3A 82 49 49 3A 99 |38:..(99);:.II:.|
00005B00: C7 28 31 30 35 29 3B 00 35 63 02 2B 81 20 49 49 |.(105);.5c.+. II|
00005B10: B2 31 20 A4 20 32 32 3A 99 C7 28 31 32 35 29 3B |.1 . 22:..(125);|
00005B20: A6 33 38 29 3B C7 28 31 32 35 29 3A 99 22 91 22 |.38);.(125):."."|
00005B30: 3B 3A 82 49 49 00 64 63 07 2B 99 C7 28 31 30 36 |;:.II.dc.+..(106|
00005B40: 29 3B 3A 81 49 49 B2 31 A4 33 38 3A 99 C7 28 39 |);:.II.1.38:..(9|
00005B50: 39 29 3B 3A 82 49 49 3A 99 C7 28 31 30 37 29 3B |9);:.II:..(107);|
00005B60: 22 13 22 3B 00 6A 63 0C 2B 8E 00 7D 63 2A 2B 8F |".";.jc.+..}c*+.|
00005B70: 20 49 4E 54 52 4F 20 48 45 41 44 45 52 00 9C 63 | INTRO HEADER..c|
00005B80: 2F 2B 99 22 11 11 11 22 3B A6 31 33 29 3B 22 49 |/+."...";.13);"I|
00005B90: 4E 51 55 49 52 45 20 20 50 41 43 22 00 AF 63 34 |NQUIRE PAC"..c4|
00005BA0: 2B 99 22 11 22 3B A6 31 38 29 3B 22 42 59 22 00 |+.".";.18);"BY".|
00005BB0: D5 63 39 2B 99 22 11 22 3B A6 38 29 3B 22 50 41 |.c9+.".";.8);"PA|
00005BC0: 43 49 46 49 43 20 43 4F 41 53 54 20 53 4F 46 54 |CIFIC COAST SOFT|
00005BD0: 57 41 52 45 22 00 FB 63 3E 2B 99 22 11 22 3B A6 |WARE"..c>+.".";.|
00005BE0: 38 29 3B 22 33 32 32 30 20 53 2E 20 42 52 45 41 |8);"3220 S. BREA|
00005BF0: 20 43 41 4E 59 4F 4E 20 52 44 22 00 21 64 43 2B | CANYON RD".!dC+|
00005C00: 99 22 11 22 3B A6 38 29 3B 22 44 49 41 4D 4F 4E |.".";.8);"DIAMON|
00005C10: 44 20 42 41 52 2C 20 43 41 2E 20 39 31 37 36 35 |D BAR, CA. 91765|
00005C20: 22 00 3B 64 48 2B 99 22 11 11 22 3B A6 31 35 29 |".;dH+."..";.15)|
00005C30: 3B 22 28 43 29 20 31 39 38 33 22 00 41 64 4D 2B |;"(C) 1983".AdM+|
00005C40: 8E 00 76 64 5C 2B 99 22 11 22 3B A6 33 29 3B 22 |..vd\+.".";.3);"|
00005C50: 50 4C 45 41 53 45 20 54 4F 55 43 48 20 12 52 45 |PLEASE TOUCH .RE|
00005C60: 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 |TURN. TO CONTINU|
00005C70: 45 2E 2E 2E 22 3B 00 8A 64 61 2B 53 51 B2 31 3A |E...";..da+SQ.1:|
00005C80: 8D 35 38 31 33 3A 53 51 B2 30 00 A7 64 66 2B A1 |.5813:SQ.0..df+.|
00005C90: 20 41 24 3A 8B 20 41 24 B3 B1 C7 28 31 33 29 20 | A$:. A$...(13) |
00005CA0: A7 20 31 31 31 31 30 00 AD 64 70 2B 8E 00 E7 64 |. 11110..dp+...d|
00005CB0: E0 2E 99 22 93 11 20 20 43 4F 4C 4C 45 43 54 20 |...".. COLLECT |
00005CC0: 44 45 4C 45 54 45 44 20 52 45 43 4F 52 44 53 20 |DELETED RECORDS |
00005CD0: 28 59 20 4F 52 20 4E 29 3A 20 22 3B C7 28 31 31 |(Y OR N): ";.(11|
00005CE0: 34 29 3B 22 9D 22 3B 00 FB 64 E1 2E 53 51 B2 31 |4);".";..d..SQ.1|
00005CF0: 3A 8D 35 38 31 33 3A 53 51 B2 30 00 20 65 E2 2E |:.5813:SQ.0. e..|
00005D00: A1 20 41 24 3A 8B 20 41 24 B3 B1 22 59 22 20 AF |. A$:. A$.."Y" .|
00005D10: 20 41 24 B3 B1 22 4E 22 20 A7 20 31 32 30 30 32 | A$.."N" . 12002|
00005D20: 00 38 65 E3 2E 99 41 24 3A 8B 20 41 24 B2 22 4E |.8e...A$:. A$."N|
00005D30: 22 20 A7 20 35 35 30 30 00 70 65 EA 2E 4B 31 B2 |" . 5500.pe..K1.|
00005D40: 30 3A 4B 32 B2 30 20 3A 99 22 93 11 20 20 43 4F |0:K2.0 :.".. CO|
00005D50: 4C 4C 45 43 54 49 4E 47 20 52 45 43 4F 52 44 53 |LLECTING RECORDS|
00005D60: 2E 2E 2E 50 4C 45 41 53 45 20 57 41 49 54 2E 22 |...PLEASE WAIT."|
00005D70: 00 89 65 F4 2E 4B 31 B2 4B 31 AA 31 3A 8B 4B 31 |..e..K1.K1.1:.K1|
00005D80: B1 52 52 A7 31 32 31 30 30 00 93 65 FE 2E 43 52 |.RR.12100..e..CR|
00005D90: B2 4B 31 00 B2 65 FF 2E 99 22 13 11 11 11 11 20 |.K1..e..."..... |
00005DA0: 52 45 43 4F 52 44 53 20 52 45 41 44 20 3D 22 3B |RECORDS READ =";|
00005DB0: 4B 31 00 BC 65 08 2F 8D 20 38 34 30 00 E9 65 12 |K1..e./. 840..e.|
00005DC0: 2F 8B C8 28 46 24 28 31 29 2C 33 29 B3 B1 22 58 |/..(F$(1),3).."X|
00005DD0: 44 58 22 A7 4B 32 B2 4B 32 AA 31 3A 4B 33 B2 4B |DX".K2.K2.1:K3.K|
00005DE0: 32 3A 89 20 31 32 30 36 32 00 07 66 1C 2F 8B C8 |2:. 12062..f./..|
00005DF0: 28 46 24 28 31 29 2C 33 29 B2 22 58 44 58 22 A7 |(F$(1),3)."XDX".|
00005E00: 4B 39 B2 4B 39 AA 31 00 35 66 1D 2F 99 22 13 11 |K9.K9.1.5f./."..|
00005E10: 11 11 11 11 11 20 52 45 43 4F 52 44 53 20 43 4F |..... RECORDS CO|
00005E20: 4C 4C 45 43 54 45 44 20 3D 22 3B 4B 39 3A 89 20 |LLECTED =";K9:. |
00005E30: 31 32 30 32 30 00 46 66 1E 2F 8B 4B 31 B2 4B 32 |12020.Ff./.K1.K2|
00005E40: A7 31 32 30 32 30 00 63 66 1F 2F 4B 31 24 28 4B |.12020.cf./K1$(K|
00005E50: 32 29 B2 46 24 28 31 29 3A 52 52 25 28 4B 32 29 |2).F$(1):RR%(K2)|
00005E60: B2 4B 32 00 73 66 26 2F 43 52 B2 4B 32 3A 8D 20 |.K2.sf&/CR.K2:. |
00005E70: 36 39 30 00 7E 66 30 2F 89 31 32 30 32 30 00 A2 |690.~f0/.12020..|
00005E80: 66 44 2F 52 52 B2 4B 33 3A 46 52 B2 4B 33 AA 31 |fD/RR.K3:FR.K3.1|
00005E90: 3A 43 58 B2 4B 33 3A 44 35 B2 31 32 3A 89 33 35 |:CX.K3:D5.12:.35|
00005EA0: 31 31 00 AD 66 A8 2F 8D 31 32 39 30 30 00 B7 66 |11..f./.12900..f|
00005EB0: B2 2F 54 4B B2 5A 31 00 CE 66 BC 2F 97 36 38 35 |./TK.Z1..f./.685|
00005EC0: 2C 31 3A 49 49 B2 42 35 3A 8D 34 35 30 30 00 E6 |,1:II.B5:.4500..|
00005ED0: 66 C6 2F 8D 36 39 30 20 3A 4B 31 24 28 43 52 29 |f./.690 :K1$(CR)|
00005EE0: B2 22 58 44 58 22 00 F2 66 C8 2F 8B 42 36 B2 31 |."XDX"..f./.B6.1|
00005EF0: A7 8E 00 FD 66 D0 2F 89 20 35 35 30 30 00 06 67 |....f./. 5500..g|
00005F00: 0C 30 99 22 93 22 00 42 67 16 30 99 22 11 4D 55 |.0.".".Bg.0.".MU|
00005F10: 4C 54 49 20 2D 20 44 45 4C 45 54 45 2E 20 41 52 |LTI - DELETE. AR|
00005F20: 45 20 59 4F 55 20 53 55 52 45 20 28 59 20 4F 52 |E YOU SURE (Y OR|
00005F30: 20 4E 29 3A 20 22 3B C7 28 31 31 34 29 3B 22 9D | N): ";.(114);".|
00005F40: 22 3B 00 56 67 19 30 53 51 B2 31 3A 8D 35 38 31 |";.Vg.0SQ.1:.581|
00005F50: 33 3A 53 51 B2 30 00 7B 67 1B 30 A1 20 41 24 3A |3:SQ.0.{g.0. A$:|
00005F60: 8B 20 41 24 B3 B1 22 59 22 20 AF 20 41 24 B3 B1 |. A$.."Y" . A$..|
00005F70: 22 4E 22 20 A7 20 31 32 33 31 35 00 93 67 20 30 |"N" . 12315..g 0|
00005F80: 99 41 24 3A 8B 20 41 24 B2 22 4E 22 20 A7 20 35 |.A$:. A$."N" . 5|
00005F90: 34 39 30 00 C4 67 2A 30 4F 49 24 B2 22 53 54 41 |490..g*0OI$."STA|
00005FA0: 52 54 20 44 45 4C 45 54 45 20 41 54 20 52 45 43 |RT DELETE AT REC|
00005FB0: 4F 52 44 20 23 3A 20 22 3A 99 22 93 11 22 3A 8D |ORD #: ":."..":.|
00005FC0: 35 38 31 30 00 D8 67 2C 30 8B C3 28 49 4F 24 29 |5810..g,0..(IO$)|
00005FD0: B2 30 A7 31 32 33 30 30 00 E3 67 34 30 8D 31 32 |.0.12300..g40.12|
00005FE0: 39 30 30 00 ED 67 3E 30 54 4B B2 5A 31 00 1C 68 |900..g>0TK.Z1..h|
00005FF0: 48 30 4F 49 24 B2 22 45 4E 44 20 44 45 4C 45 54 |H0OI$."END DELET|
00006000: 45 20 41 54 20 52 45 43 4F 52 44 20 23 3A 20 22 |E AT RECORD #: "|
00006010: 3A 99 22 11 22 3B 3A 8D 35 38 31 30 00 30 68 4A |:.".";:.5810.0hJ|
00006020: 30 8B C3 28 49 4F 24 29 B2 30 A7 31 32 33 33 30 |0..(IO$).0.12330|
00006030: 00 49 68 4C 30 5A 31 B2 C5 28 49 4F 24 29 3A 8B |.IhL0Z1..(IO$):.|
00006040: 5A 31 B3 31 A7 5A 31 B2 31 00 62 68 52 30 8B 5A |Z1.1.Z1.1.bhR0.Z|
00006050: 31 B1 52 52 A7 8B 5A 31 B2 B1 4E 52 A7 5A 31 B2 |1.RR..Z1..NR.Z1.|
00006060: 52 52 00 83 68 5C 30 8B 20 5A 31 B2 B1 52 52 A7 |RR..h\0. Z1..RR.|
00006070: 43 58 B2 5A 31 3A 52 52 B2 5A 31 3A 46 52 B2 52 |CX.Z1:RR.Z1:FR.R|
00006080: 52 AA 31 00 93 68 66 30 42 36 B2 31 20 3A 54 4C |R.1..hf0B6.1 :TL|
00006090: B2 5A 31 00 A1 68 70 30 81 42 35 B2 54 4B A4 54 |.Z1..hp0.B5.TK.T|
000060A0: 4C 00 AB 68 72 30 43 52 B2 42 35 00 B6 68 7A 30 |L..hr0CR.B5..hz0|
000060B0: 8D 31 32 32 32 30 00 C4 68 7C 30 99 22 20 2D 22 |.12220..h|0." -"|
000060C0: 3B 42 35 3B 00 D3 68 84 30 52 52 25 28 43 52 29 |;B5;..h.0RR%(CR)|
000060D0: B2 43 52 00 DB 68 8E 30 82 42 35 00 F0 68 98 30 |.CR..h.0.B5..h.0|
000060E0: 42 36 B2 30 3A 97 36 38 35 2C 30 3A 55 37 B2 31 |B6.0:.685,0:U7.1|
000060F0: 00 1C 69 9D 30 99 22 93 11 20 55 50 44 41 54 49 |..i.0.".. UPDATI|
00006100: 4E 47 20 44 49 52 45 43 54 4F 52 59 20 52 45 43 |NG DIRECTORY REC|
00006110: 4F 52 44 53 22 3A 89 20 33 38 33 30 00 35 69 64 |ORDS":. 3830.5id|
00006120: 32 5A 31 B2 C5 28 49 4F 24 29 3A 8B 5A 31 B3 31 |2Z1..(IO$):.Z1.1|
00006130: A7 5A 31 B2 31 00 46 69 6E 32 8B 5A 31 B1 43 58 |.Z1.1.Fin2.Z1.CX|
00006140: A7 5A 31 B2 43 58 00 4C 69 78 32 8E 00 75 69 B0 |.Z1.CX.Lix2..ui.|
00006150: 36 99 22 93 11 11 20 4E 4F 20 46 49 4C 45 20 46 |6."... NO FILE F|
00006160: 4F 55 4E 44 20 4F 4E 20 54 48 49 53 20 44 49 53 |OUND ON THIS DIS|
00006170: 4B 2E 2E 2E 22 00 8B 69 B1 36 81 20 49 B2 31 20 |K..."..i.6. I.1 |
00006180: A4 20 31 30 30 30 3A 82 3A 89 31 00 A8 69 40 38 |. 1000:.:.1..i@8|
00006190: 99 22 93 11 11 20 44 49 53 4B 20 44 49 52 45 43 |."... DISK DIREC|
000061A0: 54 4F 52 59 2E 2E 2E 22 00 C2 69 45 38 99 22 2D |TORY..."..iE8."-|
000061B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000061C0: 2D 22 00 E0 69 4A 38 99 22 44 49 53 4B 20 48 45 |-"..iJ8."DISK HE|
000061D0: 41 44 45 52 20 54 49 54 4C 45 3A 20 91 91 91 22 |ADER TITLE: ..."|
000061E0: 00 ED 69 4C 38 98 43 43 2C 22 49 30 22 00 02 6A |..iL8.CC,"I0"..j|
000061F0: A4 38 9F 31 2C 38 2C 30 2C 22 24 30 22 3A 4C 43 |.8.1,8,0,"$0":LC|
00006200: B2 30 00 10 6A A6 38 A1 23 31 2C 41 24 2C 42 24 |.0..j.8.#1,A$,B$|
00006210: 00 1D 6A A7 38 8B 4C 43 B3 B2 31 A7 99 00 2E 6A |..j.8.LC..1....j|
00006220: A9 38 43 B2 30 3A 99 3A 99 A3 32 30 29 3B 00 48 |.8C.0:.:..20);.H|
00006230: 6A AE 38 8B 42 24 B3 B1 22 22 A7 43 B2 43 AA C6 |j.8.B$.."".C.C..|
00006240: 28 42 24 29 AC 32 35 36 00 60 6A B8 38 A1 23 31 |(B$).256.`j.8.#1|
00006250: 2C 42 24 3A 8B 53 54 B3 B1 30 A7 31 34 35 35 35 |,B$:.ST..0.14555|
00006260: 00 75 6A BD 38 8B 42 24 B3 B1 C7 28 33 34 29 A7 |.uj.8.B$...(34).|
00006270: 31 34 35 32 30 00 98 6A C2 38 A1 23 31 2C 42 24 |14520..j.8.#1,B$|
00006280: 3A 8B 42 24 B3 B1 C7 28 33 34 29 A7 99 20 42 24 |:.B$...(34).. B$|
00006290: 3B 3A 89 31 34 35 33 30 00 B2 6A DB 38 8B 20 53 |;:.14530..j.8. S|
000062A0: 54 B2 30 A7 4C 43 B2 4C 43 AA 31 3A 89 31 34 35 |T.0.LC.LC.1:.145|
000062B0: 30 32 00 C9 6A E0 38 4C 43 B2 30 3A A0 31 3A 99 |02..j.8LC.0:.1:.|
000062C0: 3A 99 3A 8D 31 31 31 30 30 00 F8 6A E5 38 9F 35 |:.:.11100..j.8.5|
000062D0: 2C 38 2C 35 2C 22 30 3A 46 2D 46 4F 52 4D 2C 53 |,8,5,"0:F-FORM,S|
000062E0: 2C 52 22 3A 8D 31 37 35 30 3A 8B 45 4E B2 36 32 |,R":.1750:.EN.62|
000062F0: 20 A7 20 31 34 36 30 30 00 0D 6B E9 38 84 35 2C | . 14600..k.8.5,|
00006300: 4E 46 24 3A 4E 46 B2 C5 28 4E 46 24 29 00 2D 6B |NF$:NF..(NF$).-k|
00006310: EA 38 81 20 49 B2 31 A4 4E 46 3A 84 35 2C 4E 24 |.8. I.1.NF:.5,N$|
00006320: 28 49 29 2C 4C 24 28 49 29 3A 82 20 49 00 56 6B |(I),L$(I):. I.Vk|
00006330: EB 38 99 22 93 11 11 20 20 20 20 20 20 20 20 20 |.8."... |
00006340: 20 20 20 20 46 49 4C 45 20 44 49 52 45 43 54 4F | FILE DIRECTO|
00006350: 52 59 2E 2E 2E 22 00 7E 6B EC 38 99 22 20 20 20 |RY...".~k.8." |
00006360: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------|
00006370: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 A6 |-------------"..|
00006380: 6B ED 38 99 22 20 20 20 20 20 20 20 20 20 20 46 |k.8." F|
00006390: 49 45 4C 44 2F 54 49 54 4C 45 20 20 20 20 4C 45 |IELD/TITLE LE|
000063A0: 4E 47 54 48 20 22 00 CF 6B EE 38 99 22 20 20 20 |NGTH "..k.8." |
000063B0: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------|
000063C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 11 22 00 |-------------.".|
000063D0: EE 6B EF 38 81 49 B2 31 A4 4E 46 3A 46 44 24 B2 |.k.8.I.1.NF:FD$.|
000063E0: C8 28 C4 28 49 29 AA 22 20 20 22 2C 34 29 00 15 |.(.(I)." ",4)..|
000063F0: 6C F0 38 99 A6 31 30 29 3B 46 44 24 3B 4E 24 28 |l.8..10);FD$;N$(|
00006400: 49 29 3A 99 22 91 22 3B A3 32 36 29 3B 4C 24 28 |I):.".";.26);L$(|
00006410: 49 29 3A 82 49 00 2B 6C F9 38 A0 35 3A 99 3A 8D |I):.I.+l.8.5:.:.|
00006420: 31 31 31 30 30 3A 89 35 31 30 30 00 5F 6C 08 39 |11100:.5100._l.9|
00006430: 99 22 93 11 11 20 4E 4F 20 46 49 4C 45 20 46 4F |."... NO FILE FO|
00006440: 52 4D 41 54 20 50 52 45 53 45 4E 54 20 4F 4E 20 |RMAT PRESENT ON |
00006450: 44 49 53 4B 11 11 22 3A 89 20 31 34 35 38 35 00 |DISK..":. 14585.|
00006460: 00 00 2C 10 |..,. |
..=....:.".. SYSTEM OK...":.680,0:.685,0
:.683,0:.682,0:.701,0.E....740,0:.".":.8
08,225:.N$(16),L$(16).Y.... B(699).1 . 6
0......11000:.11050:.11100:.11000.Z...."
..";.1);" REMOVE PROGRAM DISK FROM DRI
VE.":.11100:.11000......"..";.1);" IS
THIS THE FIRST RUN ON A NEW,".N.....1);"
. RAW DATA DISK (ENTER Y OR N)...":.".
";.18);G(114);.B...SQ.1:.5813:SQ.0......
A$:. A$.."Y" . A$.."N" . 9......".";A$.
..... A$."Y" . .680,1:. 30......".";.1);
" INSERT PROPER DATA DISK....":. 11
100:. 60."....".";.1);" INSERT NEW,
RAW DATA DISK....":. 11100.7.<.LQ.1:Y5.1
9 :JI.0...>.LL$."
"...F.M$.G(13).X.P.SP$."
".""...Z.C0.2:C1.3:CC.15:D.0:T.0:S.0
:DD.0...C.. 150.2.D.N.QQ:S.1:.".";.23);"
SORTING VALUES ".U.E..Q.1.QQ:A$(Q).D(.
(.(X).100.1)).U.F.MN$.A$(S):IM.S:MX$.MN$
:IX.S...G..Q.S.N...H..A$(Q).MX$.MX$.A$(Q
):IX.Q...I..A$(Q).MN$.MN$.A$(Q):IM.Q.B.J
...R.K..IM.N.IM.IX...L.AA$.A$(N):A$(N).A
$(IX):A$(IX).AA$:N.N.1.*.M.AA$.A$(S):A$(
S).A$(IM):A$(IM).AA$:S.S.1.7.N..N.S.102.
B.O..".. SORT COMPLETE...READING RECORD
S"...Q..W.1.QQ:IV(W).E(J(A$(W),7,4))...R
..W:.......IV(200),K2$(200),A$(200),Z(20
0).E. ..QV(40),K2(27).....RD.0:ID$."":NR
.0:CR.0:FR.0:NF.0:CF.0:RB.0:RS.0:NB.0:E.
0:AS.0...,.EP..5.256.3.@..X9$(5),PF$(20,
3),PF(20,3).A.^.T9$.G(13).T...T6$.G(20):
LB.0.Q...SL$." ".~....C
C,8,CC...... B(700).1 . .700,0:.699,0:.5
420...... B(699).1 . .699,0:.440...... B
(680)..0 . .".":.5460......CC,"I0"...B..
4580.......620.......FP%..1.......FP%..1
.&.... FS%(NF).4.&.. FP%(NF).B.:.. FT%(N
F).P.D.. FH$(NF)._.N.. F$(NF.1).K.X.. F(
NF).Q.B....L..IT%..1.....V.IT%..1......
IT%(NB)...... IS%(NB)...... K1$(NR).B..
.. RR%(NR).H.....N.....Y.F..2530....P..1
640....Z..CC,"U1:"C0;D;T;S......CC,"B-P:
"C0;RP......CF.1.NF.&....1120.......CF.D
....CC,"U2:"C0;D;T;S.X....1750.:.E.2750.
.^. ...I.H..1640...R..CC,"U1:"C0;D;T;S.
..\..CC,"B-P:"C0;RP...F..1750.:.E.2750..
..P..CF.1.NF...Z..1200..G....CF.M.....S.
.........1640.......CC,"U1:"C0;D;T;S...J
..1750.:.E.2750..$.T..CC,"B-P:"C0;FP%(CF
).RP.?....112 0.:. UPDATE FIELD.U....CC,
"U2:"C0;D;T;S.I....1750.:.E.2750..O.....
U.......$..1640.......CC,"U1:"C0;D;T;S..
.8..1750.:.E.2750..F.B..CC,"B-P:"C0;FP%(
CF).RP...L..120 0.:. READ FIELD...V.....
`.....~..FT%(CF)..1.1170..'...A$.I(SP$.D
(F(CF)),FS%(CF)):.1180..D...A$.H(F$(CF).
SP$,FS%(CF)).S....C0,A$;M$;.Y....._.....
T.N.. FT%(CF) .1300...X.A1$.""......J.1
.FS%(CF)......#C0,A$:.A$."".A$.G(0).....
A1$.A1$.A$.K....:F$(CF).A1$.Y....#C0,A$:
.......C0,F$(CF)......FT%(CF)..1. ....(.
F(CF).E(F$(CF)):....2...).Z..1530:.E.275
0.=.D..15,"B-A:"D;T;S.R.N..15,EN,EM$,ET,
ES.^.X..EN.0...P....EN..65.2750.......ET
.18.T.19:S.0:.1380......T.ET:S.ES... ..1
380..........H..1530:.E.2750.P.R..CC,"B-
F:"D;T;S......CC,EN,EM$,ET,ES......EN.0.
.......2750.............T.35.2750..*.".E
.0:.T.0.T.40:.2750.@.,.A3.16:.T.30.1620.
.V.6.A3.17:.T.24.1620..L.@.A3.19:.T.17.1
620..V.J.A3.20...T..S.A3.2750....^.....H
.......D.RD.....E.0......AS..1.RP.CR.RS.
1:.1730......RP..((CR.1).RB.EP):.RP.NB .
RP.0.EN.41:.2750......T.IT%(RP):S.IS%(R
P).....RP..(((CR.1).RB.RP.EP).RS.RB).1.H
.B..RP.254. EN.41:.2750..N.L...T.V...J..
..15,EN$,EM$,ET,ES.|...EN.E(EN$):E.0....
.. EN$."00" . ......ET$.D(ET):ES$.D(ES).
K....EN$..I("0".J(D(EN),2),2).1880....&.
. EN.1 . EM$. ET$." ".EM$: ....0.E.E.1..
.:.EM$.".".EN$.". ".EM$.A.D.. EN.30 . EN
.65 . EM$.EM$." ON ".ET$.", ".ES$.G.N...
Q.X.EM$.".SYSTEM NOT RESPONDING PROPERLY
"...B.EM$.EM$.EN$.EM$.ET$.ES$...L.E.E.1.
..V.......WX.1:.7000:WX.0:S5.0.O...HC.0:
SW.1:.2990:SW.0...... WQ.1 . .".. THRES
HOLD FIELD SEARCH...":.1924.*....".. CO
NDITIONAL FIELD SEARCH...".O...."-------
----------------------"......". DISPLAY
OR PRINTER/ (D OR P)? ";G(114);".";....
.. A$:. A$.."D" . A$.."P" . A$.."." . 19
26.J.... A$."." . .:. 1966......A$:IX$.A
$:.IX$."P" . HC.1:P1.1:P2.0...... WQ.1 .
1984...... 7750.Q...OI$.". NUMBER OF FI
ELDS TO SEARCH: ":.5810:.B$..""..699,1:.
1.....A$.IO$:.E(A$).1.E(A$).NF.."..";:.6
040:.".";:.1932.G...SX.E(A$):.I.1.SX:OI$
.".CONDITIONAL FIELD #".D(I).": ":.5810.
..... B$..""..699,1:.1.....A$.IO$:. E(A$
).1 . E(A$).NF . ."..";:. 1937.$...FD(I)
.E(A$):A$."".N...OI$."COND FIELD'S HIT T
ITLE: ":. 5810.L.... B$."." . B$."":.:.
1966.....FT$(I).IO$:FL(I).IO:.I.....KY$.
"":.II.1.SX:KY$.KY$.FT$(II):.II.P. .."..
CONDITIONAL RECORDS..."......"---------
--------------..":K.2.1.... S5.1 . ."...
.. SEARCHING ON FIELD SORT...PLEASE WAIT
".W....P.0.RR.1:.4220:. RT.1.RT.0:.1966.
G...CR.P.1:.840.....SK$."":.T.1.SX:SK$.S
K$.H(F$(FD(T)),FL(T)):.T...... KY$..SK$
. .P:.1966.V.... S5.1 . Z(K).CR:K.K.1:.P
:.7800...... HC.1 . 1970......F.1.NF:."
";F$(F):.F:.:.4220:.RT.1..699,1:.1.#...
. P.5.... S5.1 . 7800.G.... HC.1 . 1976.
E...RT.0:PA.0:.11100: 2:.3920.W.... S5.1
. 7800...... P2.0 . .8700:.4,4:.4:.5326
5,0......10000......P.J....53265,27:.4,"
": 4:HC.0.U.... 1967......"...NUMBER TH
RESHOLD/CONDITIONAL?(T OR C): ";G(114);"
.";.A.... A$:. A$.."T" . A$.."C" . A$.."
." . 1980.U.... A$."." . 5100.M....A$:.
A$."T" . WQ.1.X.... 1920......4,4:.4:OI$
.". SEARCH ON WHAT FIELD: ...
........":.5810.X.A.. B$.".".B$."":.5100
...B.. E(IO$).1 . E(IO$).NF . 1984...C.F
F.E(IO$):.I.1.RR:CR.I:.840.F.D.A$(I).H(F
$(FF)." ",15):.I.Z.E.OI$."
GREATER THAN: ":. 5810:.B$.".".B$."":.51
00...F.G.E(IO$)...G.OI$." LESS THAN: "
:.5810:.B$.".".B$."":.5100.G.H.L.E(IO$).
..I..Q.1.RR:. A$(Q)."" . 1995...J..E(A$(
Q)).G . E(A$(Q)).L .1996...K..Q:.1999.'.
L.. HC.1 . 1998.U.M.CR.Q:.840:.II.1.NF:.
F$(II):.II:.:.Q:.1999...N.CR.Q:.840:.II.
1.NF:.4,F$(II):.II:.4," ":.Q:.1999...O..
4," ": 4: 15:.699,1:.11100:.1...P.RS.1:D
.RD...Z..A0.1.NF:FP%(A0).RS:RS.FS%(A0).R
S.1:.:RS.RS.1.....RB..(254.RS.EP). ....C
0,8,C0,"#":.1750:.E.2750.*....2470.=....
CC,"B-P:"C0;1.S....A0.1.RB:.A1.1.NF.N...
.C0,H(SP$,FS%(A1));M$;.Y. ..A1,A0...*.NB
..(NR.RB.EP):.(NR.RB.NB).RB..1.NB.NB.1..
.4.T.1:S.0:.620..W.>..A0.0.NB.1:.1370.:.
E.2750....H.IT%(A0).T:IS%(A0).S:.1000.:.
...R..1370....\..CC,"B-P:"C0;1.B.F..C0,N
R;M$;1;M$;NB;M$;RS;M$;RB;M$;NF;M$;.Y.P..
CC,"B-W:"C0;D;T;S...Z.A$.D(DD).":".H(F$.
SP$,10).".DESCR,U,W"......C1,8,C1,A$....
..1750.:.E.2750..B....C1,ID$;M$;T;M$;S;M
$;......A0.1.NF:.C1,G(FS%(A0));G(FT%(A0)
);FH$(A0);M$;:..# ...A0.0.NB.1:.C1,G(IT%
(A0));G(IS%(A0));:..1 .. C1: C0:..7 ....
B ..A$.D(DD).":".H(F$.SP$,10).".DESCR,U,
R".. ...C1,8,C1,A$:.1750:.E.2750.. ...C1
,ID$,T,S.. $..C0,8,C0,"#":.1750:.E.2750.
. ...2470... 8..CC,"B-R:";C0;RD;T;S:.175
0:.E.2750.. B..C0,NR,FR,NB,RS,RB,NF..!L.
.510:FT%(0).T:FS%(0).S.)!V..A0.1.NF:.251
0.;![.FS%(A0).F(A$).T!`..2510.:FT%(A0).F
(A$).H!J..C1,FH$(A0):.A0..!T..A0.0.NB.1:
.2510.:IT%(A0).F(A$)..!~..2510.:IS%(A0).
F(A$):...!...1750.:.E.2750..C!.. C1.I!..
...!...15,"U1:";C0;RD;",18,0":.1750:.E.2
750.."...15,"B-P:";C0;162.L"...1750:.#2,
A$,A1$:A$.A$.A1$:.ID$..A$.EN.43:EM$."BAD
DISK":.2750.R"D...L"N..#3,A$:.A$."".A$.
G(0).R"X..."...J8.1.NF.."...C(F$(J8)).1
.F$(J8).":".."...J8:..."..Z8$."":Z9$.IO$
.I"...J9.1.C(Z9$).."..Z7$.J(Z9$,J9,1):Z7
.F(Z7$)..#2..Z7.44.Z7$."/":.2630..#<..Z7
.59.Z7$."/".'#F.Z8$.Z8$.Z7$:.J9.F#P..C(Z
8$).Y5.Z8$.H(Z8$,Y5.1).^#Z.IO$.Z8$:IO.C(
IO$):..D#D...W#...CC,"B-P:"C0;1..#...C0,
NR;M$;FR;M$;NB;M$;RS;M$;RB;M$;NF;M$;..#.
..1750:.E.E.0.V# ..CC,"B-W:"C0;D;FT%(0);
FS%(0)..#...1750: C0..#.....#..E.E.1:...
$H..5040...$R.DD.0:RD.0:ID$."AA":NR.200.
*$...4840..4$..F9..1.D$..."... PLEASE
WAIT...FORMATTING DISKETTE."..$.. 1:.1,8
,15:.1,"N0:FILE DATA,01": 1 :EN.DS..$...
520...$..RS.0.B$"..I.1.NF:RS.FS%(I).RS.1
:...$,.A$."I0":.DD.RD.A$."I0".D(DD)..$6.
.CC,A$..%@..2000:.E.3990./%J..4,8,4,D(DD
).":".H(F$.SP$,10).".KEY01,U,W".?%T..4,0
;M$;: 4.Y%^..7,8,7,"0:LENGTH,S,W".I%H..7
,1;G(13);.W%R. 7:Y5.250..%|..7,8,7,"0:LA
BEL,S,W"..%...7,F$;G(13);..%...7,1;G(13)
;..%.. 7:NP.1.H%...3050..N%....Y%...5290
...%B.."... READING FILE"..&L..4430:.EN
.62..F$."DOES NOT EXIST":.4460..&V..NP.0
.5340..<&..DD.0:RD.0.P&...2240.:.E.3990.
.^&...B(701)...G&..CX.0..&...4,8,4,D(DD)
.":".H(F$.SP$,10).".KEY01,U"..&..CX.0..&
...4,RR:.RR.0.3140.K&!.. WW.1 . WW.0:. 3
140..&&..I.1.RR:.4,K1$(I),RR%(I)..'0.CX.
CX.1:.H(K1$(I),3)."XDX".CX.CX.1..':..I.)
'D. 4:.F9..1.4360.8'N.. SW.1 . ..K'X.. B
(699).1 . 1.V'B..5490..\'L....'V.B$."":.
".":OI$."ENTER FIRST FIELD: ":.5810:.IO.
0.5490..'{.. B$."." . B$."":. 5490.L'..F
F.0:RR$.IO$:.II.1.RR..'...H(K1$(II),C(RR
$)).RR$.3230...'...:.3480...(..CR.RR%(II
):.840:II.II.1.$(..FF.0:SW.0.@(..."..REC
ORD NUMBER =";CR._(..."-----------------
------".P(...I.1.NF:J8.I..(F.IO$."
".F(P..H(D(J8).IO$,3);
H(FH$(I).IO$,10).": ".15)F$(I)..(U.. SW.
1 . I.A . SW.0:...(Z..:.. )..."CHANGES (
Y OR N) ENTER D TO DELETE: ";G(114);".";
.X)... A$:. A$.."Y" . A$.."N" . A$.."D"
. A$.."." . 3305.T)... A$."." . A$."":.
5490.})... A$..)...A$."N".3420..)..D5.D5
.1:.A$."Y".3320..)..IO$."DELETE":.".";IO
$;"...ARE YOU SURE? (Y OR N) ";G(114);".
";..*... A$:. A$.."Y" . A$.."N" . 3313..
*...A$."N".3240.**... 3420.N*...".";:OI$
."ENTER FIELD: ":.5810.^*...IO.0.3250..V
*..A.E(IO$):.A.NF.A.NF..*...A.1.A.1..*..
SW.1..* .."NOW: ";F$(A):OI$."CHANGE TO:
":.5810.G**..IO.0.3250..R*4..2560...*>.F
$(A).IO$:F(A).0..*H..A.1.K1$(CR).F$(A)..
+R.FF.1:.3250..++\..".":.". UPDATING FI
LE".M+F.. ***** CLOSE RECORD & UPDATE.K+
P.. H(IO$,6)."DELETE".4500..{+Z..FF.0.54
90...+...690...+...5490...+...".RECORD N
OT PRESENT".B+...II.1.800:.:.5490..H+...
..+...683,1:D5.D5.1:.".": ."ADD NEW RECO
RDS".,,...D5.10..".. UPDATING DIRECTORY
RECORDS":U7.1:.3830.C,..."-------------
--".U,..CX.CX.1:B$."".E,J..CX.NR.3950..,
..."CURRENT TOTAL REC =";CX:...,...I.1.N
F..,..OI$.FH$(I).": ":.5810..,... B$.""
. 3630..,..B$."":CX.CX.1:D5.D5.1:. D5.0
. D5.0..,... 5490..-..F$(I).IO$:F(I).0:.
I.&-8..".": ."ADD NEW RECORDS".=-:.."---
------------".]-@.."CURRENT TOTAL REC ="
;CX:..N-B..I.1.NF:J8.I..-L.IO$."
"..-V..H(D(J8).IO$,3).H(FH$(I)
.IO$,10).": ".16)F$(I).D-`...M-J.." "..-
T.OI$."CHANGES (Y OR N): ":.5810...~.. B
$."." . B$."":XC.XC.1:. 5490.,...H(IO$,
1).."Y".3730.7....3750..\....".":.". W
RITING RECORD":.4530.....CR.FR:FR.FR.1:R
R.RR.1:.690:K1$(RR).F$(1):RR%(RR).CR....
..5,8,5,"0:F-FORM,S,W".K....1750:. EN.63
. 5:.3744.Y....5,XF$: 5... .. B(699).1
. 1../... B(683).1 . 3510../...5490.+/.
.OI$."FIELD NUMBER? ":.5810.;/...IO.0.36
40..I/..C5.E(IO$).Z/D..C5.NF.3750..I/E..
C5.1.3750../N.."NOW: ";F$(C5);".";../X.O
I$."CHANGE TO: ":.5810:.IO.0.3640../...2
560..Z/..F$(C5).IO$:F(C5).E(F$(C5)):.364
0.../..D5.0..0..AQ$.H(F$.SP$,10).".KEY01
,U,W"..0...CC,"S0:".AQ$..0....10...2660.
:.CC,"I0".[0...4,8,4,"0:".H(F$.SP$,10)."
.KEY01,U,W".O0(..1750.:.E.3990...02..4,R
R;M$; :.C(K1$(1)).1.K1$(1)." "..0<..I.1.
RR:.4,K1$(I);M$;RR%(I);M$;:.I.Q0F..1750.
:.E.3990..X0P. 4..0Z..1750.:.E.3990...0[
.. B(682)....1\.. U7.1 . 2990..1]..5100.
.1D...B1N..I.1.RR:.H(K1$(I),3)."XDX".354
0..I1X..I..1...". THE FILE IS FULL...":
.". NO ADDITIONAL RECORDS MAY BE ADDED"
..1..CX.200:RR.200..1...11100:.5490.Y1..
.".": .". ERROR EXISTS -":.E;EM$..1 ..I
.1.700:...1.. C0: C1..2...EN.60.3830..
"2.. 1:.1,8,15:.1,"I0": 1.W2H..EN.63 ..
" ":.F$." FILE EXISTS: SYSTEM OK":.3010.
R2R..(EN.60).(EN.66).2760..X2.....2..C5.
0..2...".":."FILE DIRECTORY...ENTER:.Q2.
.."-------------------------------------
"..2..."P TO PAUSE, C TO CONTINUE, S TO
STOP."..3..."REC FIELD #1 DATA".E3..."-
------------------------------------".[3
!..I.1.RR:IV(I).I:..H3"..II.1.RR..3,..C(
K1$(IV(II))).2.4190...36..H(K1$(IV(II)),
3)."XDX".4190...3@..I(" ".D(II),3)."
".H(K1$(IV(II)).SL$,20):C5.C5.1..3J..C5.
14..11100:.".":C5.0..4T..RT.1.RT.0:...4^
..4220..4H..II.)4M..11100./4R...P4|.. A$
:. A$.."P" . A$.."S" . ..H4..RT.0:.A$."S
".RT.1:...4... A$:. A$.."C" . A$.."S" .
4230..4.....4...(C6.20).(T7$."").4240...
4...(C6.19)...Q4...T7$.."".CF.1:..W4B...
.4L..T7$.T9$....4V.CF.0..5..T7$."":.6080
...5...T7$.T9$...!5...II.RR.4190..'5....
-5....35....C5..F9.0:.3730..N5N.A$.D(DD)
.":".H(F$.SP$,10).".DESCR,U,R"..5X..C1,D
N,C1,A$:.1750.: C1..5B....5L..".":.F$."
IS NOT PRESENT".S5V..I.1.1000:.:F$."NO T
ITLE":.5040..5...".":.IO$." ALREADY EXIS
TS"..6...I.1.800:.:.5490..76..CX.CX.1: F
$(1)."XDX":F(1).0:K1$(CR).F$(1).Q6...I4.
2.NF:F$(I4)." ":..E6... B(685)..0 . ..T6
...690:.5490.Z6.....6..S.0:.I4.1.RR..6F.
.(H(K1$(I4),3)."XDX").(S.0).S.I4.C6P..I4
:.S.0.3740...6Z.CR.S:.690:K1$(CR).F$(1):
RR%(CR).CR:. B(683).1 . 3510..7... 5490.
.7....&7...7,8,7,"0:LABEL,S,R".=7..EN.DS
:.EN.62.14000.G7...7,F$.Q7...7,NP._7.. 7
:.4690..K7 . 7:NP.0..7*..7,8,7,"0:LABEL,
S,W"..74..7,"NONAME";G(13);..7>..7,0;G(1
3);..7H. 7.L7R..7,8,7,"0:LENGTH,S,R"..7\
.EN.DS:.EN.62. 7:. 5040..7F. 7:Y5.250..8
G. 1:.1,8,15:.1,"I": 1:.5040..8P.B$."".?
8Z.."..SEARCH BY RECORD NUMBER"._8|.."--
---------------------.".Y8..OI$."RECORD
NUMBER? "..8...:.5810.:.IO.0.5490...8...
B$."." . B$."":. 5490.Q8...(F(IO$).49).
(F(IO$).57).5490...8..IK.E(IO$):.IK.RR.5
490...8..CR.IK:.840..9...3240...9... # O
F FIELDS.>9..OI$.".ENTER # OF FIELDS : "
:.5810.C9...B$.".".B$."":F$.F2$:."ABORT"
:.1..9..NF.E(IO$):.NF.0 . NF.16.4870.C9.
..".";.4);"ILLEGAL ENTRY, MUST BE 1 TO 1
5.":.11100:."....";..9...6040:.".....";:
. 4860..9...520...:... GET PARAM FOR FIE
LD..:..TY.0:.I.1.NF.#:$.AS.0:. 4950.[:..
.AS.I.NF.." ILLEGAL FILE...RE-ENTER
...":. 5430.~:3.FH$(I).Y1$:FS%(I).Y1%:FT
%(I).2..:8..I..:9..".";..::.."...";.4);"
FIELD/FIELD NAME LENGTH"..:;...4);
"-----------------------------"..;<..I.1
.NF:I$.H(D(I)." ",5)./;=...3);I$;H(F
H$(I).LL$,20);FS%(I):.I.X;>...4);"------
-----------------------"..;?...4);"CHANG
ES? (Y OR N): ";G(114);".";..;@.. A$:. A
$.."Y" . A$.."N" . A$.."." . 4928.Z;A..
A$."." . A$."":F$.F2$:."ABORT":. 1..;B..
A$:. A$."N" . 4938.)<C.OI$."ENTER FIELD
#: ":.".";:.6060:."..";.4);:.5815.R<D.I.
E(IO$):. I.1 . I.NF . .".";:. 4931.N<E.T
Y.TY.(FS%(I).1):. 4950..<F.FH$(I).Y1$:FS
%(I).Y1%:FT%(I).2:. 4921..<J.A$.G(13):NF
$.D(NF)..<K.XF$."":XF$.NF$.A$:.I.1.NF:XF
$.XF$.FH$(I).A$.D(FS%(I)).A$:.I:...<L...
.<V...A=`.OI$.".ENTER NAME FOR FIELD".D(
I).": ":.5810:Y1$.IO$:.IO.11.4980._=A..:
.".. TITLE TOO LONG, ";..=B.."LESS THAN
11 PLEASE.":.11100..=C.."....";:.6040:."
.......";:. 4960.Q=T.. B$."." . B$."":F$
.F2$:."ABORT":. 1..>V.OI$."LENGTH ( REMA
INING".D(252.TY)." ): ":.5810:Y1%.E(IO$)
.9>W.. B$."." . B$."":F$.F2$:."ABORT":.
1.P>Y..I.1.Y1%.30 . 4992.O>~..Y1%.(253.T
Y).Y1%.0 . 5000..>...".";.13);"ILLEGAL E
NTRY":.11100:."...";..>...6040:.".....";
:. 4980.J>..TY.TY.E(IO$).1..?... TY..253
. ."..";.7);"RECORD LENGTH IS FULL...."
:AS.1..?.....?.....?....2?...".":.U7.1.D
5.0:.2990..G?N..(Z7.1).(JI.1)...R?...110
00.V?..."..";.11);"CURRENT FILE BASE "..
?....10);"-------------------"..?..F9.0:
F8.0:Z7.0.E?..LB.0:R6.0:.680,0:.700,0..?
..PC.0:..11);"FILE TITLE: "F$..@2...11);
"1) MAINTAIN FILE". @<...11);"2) FORMAT
PRINTER".<@>...11);"3) SORT RECORDS".Z@?
...11);"4) SEARCH RECORDS".Y@@...11);"5)
CHANGE DISKETTE"..@F...11);"6) START NE
W FILE"..@H...11);"7) DISK DIRECTORY".S@
K...11);"8) QUIT OPERATION"..@P.D5.0..AZ
...14);"SELECTION: ";G(114);".";..A_.SQ.
1:.5813:SQ.0.,AD.. A$:. A$."" . 5220.NAF
.T8.E(A$):. T8.1 . T8.8 . 5220.\AH.. T8:
SW.0.WAN..T8.6..699,1:.700,1:.1..AR..T8.
5.5300..AU..T8.4.1979..AX..T8.1.D5.0:. 2
990..A}..T8.7.14400.JA...T8.3.7000.YA...
T8.2.9000..B...".":OI$."CONFIRM TO QUIT
(ENTER Y OR N): ":.5810.'B...H(IO$,1).."
Y".5100.DB..."..";:.808,237:.". ****
COMMODORE 64 BASIC V2 ****."..B..." 64K
RAM SYSTEM 38911 BASIC BYTES FREE"..B .
.:...B...NP.1.(F$.."NONAME").3010..GB...
".. ";..B..."CHANGE DISKETTES...":.1110
0:.699,1:.1..C..OI$.".. ENTER FILE NAME
: ":.:.5810.7CH.. B$."." . B$."":. 5100.
JCR.F$.IO$ :.3010..DC...7,8,7,"@0:LABEL,
S,W".UC...7,F$;G(13);..C...7,1;G(13);..C
.. 7:NP.1:.3040...C...NP.1.(F$.."NONAME"
).IO$.F$:.".":..JC...4830...C...LQ.1.LQ.
0:.5110...C".LQ.1:.5110...D,..".":.".
INSERT NEW, RAW DATA DISK".-D6..11100
:.".".`DT.F2$.F$:.:OI$."ENTER FILE TITLE
: ":.5810:.699,1..DV.. B$."." . B$."":."
ABORT":. 1..DX.. IO.11 . 5470..DY..:."..
FILE TITLE TOO LONG, ";.ZDZ.."LESS THAN
11 PLEASE.":. 5430..D^.F$.IO$..DH..2770.
..ER.. RECORD ACCESS..E|..F8..1....E..F9
.0:U7.0.1E..RD.0:DD.0:D.0.FE..T9$.G(13):
LT$."".TE..T6$.G(20)._E...683,0.OEB..LT$
:.11000..EL.."..";.13);"MAINTAIN FILE"..
EQ..".";.9);"---------------------".MEV.
..12);"FILE NAME :"F$..E....12);"# OF RE
CORDS:";CX;"."..F....11);"1) FILE DIRECT
ORY ".,F....11);"2) ADD NEW RECORDS".OF.
...11);"3) SEARCH BY 1ST FIELD".QF....11
);"4) SEARCH BY RECORD #"..F....11);"5)
MULTIPLE DELETE..F....11);"6) COLLECT FI
LES".JF....11);"7) GOTO MAIN MENU"..F...
.13);"SELECTION: ";G(114);".";..G..SQ.1:
.5813:SQ.0..G... A$:. A$."" . 5662.<G .T
8.E(A$):. T8.1 . T8.7 . 5662.LG".. T8:.6
83,0.[G:..T8.2.3510.JGD..T8.4.4720.YGB..
T8.1.5770..GL..T8.3.3190..GN..T8.6.12000
..GP..T8.9.12120..GR..T8.5.12300.HGV..T8
..7.5550..G{..680,0:. D5.0 . .699,1:.1..
H...".. UPDATING DIRECTORY RECORDS"..H.
..3830.<H...".":.". SORTING...PLEASE WA
IT.".NH...4070.:.5490..^H..D5.0:.3010..G
H..D5.0.{H... INPUT ROUTINE..H... 6040..
H... WE.1.3:.A$:. WE..H... SQ.1....H..IO
.0:IO$."".CH...OI$;.UH... IO.0 . IO.0..H
...G(114);".";..HA.. A$:. A$."" . 5825.!
IB.. A$."." . B$.".":A$."":IO.3:..YIC..
A$.G(17) . A$.G(19) . A$.G(29) . A$.G(14
5) . 5825..ID.. A$.G(147) . A$.G(148) .
A$.G(157) . 5825..IF.. IO.0 . A$.T9$ . 5
825..IG.. IO.0 . A$.T6$ . 5825..IK.. A$.
T9$ . ." ":.:. 5850..JP.. A$.T6$ . ." ..
.";:IO.IO.1:IO$.H(IO$,IO):. 5820.;JU..
A$;:IO$.IO$.A$:A$."":IO.IO.1:. 5820.QJZ.
IO.C(IO$):.2560:...J..."
"..J..."
"..J..."
"..
K..."
"..K...".....":..3K... T7$:.T7$."".6
080.9KJ...LKT..".":."A CORRECTION MUST B
E MADE ON DISK DATA"..K..."EXPECT ABOUT
5 MINUTES".CK..."IF PROBLEMS PRESS RUN/S
TOP AND TYPE RUN THEN EXIT"..K...II.1.RR
:CR.RR%(II):.810.:CR.II:RR%(II).II:.690.
:...L..FR.RR.1:.3830...L....9LX.."..
DISPLAY OR PRINTER".^LY.."
--------------------"..LZ..". YOU
MAY ENTER P TO PAUSE,".IL[..". C T
O CONTINUE OR S TO STOP,":.".AT ANY TIME
DURING";..M\.." DURING EITHER DISPLAY":
." OR PRINTER...".<M]..". PR
INT RECORD NUMBER ON PRINTOUT? ";G(114);
".";.ZM^..A$:.A$.."Y".A$.."N".7006.TM_..
A$:. A$."Y" . .740,1..M`.. 11100:. WX.1
. ...MA..701,1:.2990:.701,0: 2: 3.YMB.."
.. SORT THE FILE (Y OR N): ";G(114);"."
;..ML.SQ.1:.5813:SQ.0..NV..A$:.A$.."Y".A
$.."N".A$..".".7030.,NW.. A$."." . .699,
1:.1.5NX.Z7.0.JN...A$:.A$."N".7500.~N...
".. ";:OI$." ENTER FIELD TO SORT ON: "
:.5810..N... B$."." . B$."":.699,1:.1..N
... E(IO$).NF . 7050.BN..Z7.E(IO$)..OL.P
1.0:PC.0:.". DISPLAY OR PRINTER? (D OR
P): ";G(114);".";..OV.SQ.1:.5813:SQ.0.<O
[..A$:.A$.."D".A$.."P".A$..".". 7515.UO]
.. A$."." . .699,1:.1.]O`..A$..OJ.F8..1:
FZ.0:IX$.A$:. Z7..0.WW.1..OT..5290..OU..
Z7..0 . 7550..OV.. I.1.RR:IV(I).I:.I.FO~
..IX$."D".7562..O..XJ.0:.8700:.XJ.0.7560
..P...".. NO PRINT FORMAT...GO ON? (Y O
R N): ";G(114);".";.AP...A$:.A$.."Y".A$.
."N".A$..".".7557.^P...A$.".".A$."N"..69
9,1:.1.HP..."OK".VP..P1.1:P2.0.P..NG.0.
.P...Z7..0..8000:.7570..P..QQ.RR.1..P..F
Z.FZ.1:CR.IV(FZ):.840.RP...C(F$(1)).0.76
05..P...H(F$(1),3)."XDX".7605..Q... P1.1
. P2.0 . .4,4:.4:.53265,0.#Q...P1.1..10
000.;Q... RT.1. RT.0:. 7700.AQ....SQ...
CR.0 . 7591.SQ..."REC #:".I(" ".D(CR)
,3)..Q...P1..1 . .:.I.1.NF:." ";F$(I) :
.I.QQ...4220:.RT.1 . ."..**END...CLOSING
FILE":RT.0:.7700..Q...FZ.QQ.1.7700:. EX
IT..Q...7570..R... 682,1:P2.0..R...1750:
.E.3990.6R...P1..0..4," ": 4:.53265,27.R
R(..699,1:.682,0:.11100:.1..RF..".......
SORT ON A FIELD? (Y OR N): ";G(114);".
";:SQ.1:.5813..RG.SQ.0:.A$:.A$.."Y".A$..
"N".A$..".".7751.XRH.. A$.".". .699,1:.1
..RI..A$:.A$."N"...-SJ.OI$."....... SOR
T ON WHICH FIELD? ..........":
.5810.LSK.. B$."." . B$."":.699,1:.1.NSL
.. E(IO$).1 . E(IO$).NF . 7754..SM.S7.E(
IO$):S5.1:.8700:..PSX..".. START SORT R
OUTINE...ASSIGNING VALUES":QQ.1:A$(1)."D
UMMY 1"..S...Q.2.K.1:CR.Z(Q):.840..T...
C(F$(S7))..32 . 7870.4T...".. ILLEGAL F
IELD TO SORT ON.....":.11100.GT...699,1:
15:. 1.DT... F$(S7)."" . . Q:. 7895..TH
.QQ.QQ.1:A$(QQ).H(F$(S7)." ",6).D(
CR)..TR..Q..TW.. 100:FZ.0:.7570..T@.."..
START SORT ROUTINE...ASSIGNING VALUES"
:QQ.1:A$(1)."DUMMY 1"..U: .Q.2.RR.1:CR.
Q.1:.840.*U? .C(F$(Z7))..32 . 8270.ZUD .
".. ILLEGAL FIELD TO SORT ON.....":.111
00.MUI .699,1: 15:. 1..UN . F$(Z7)."" .
8290..UX QQ.QQ.1:A$(QQ).H(F$(Z7)."
",6).D(CR)..UB .Q.CUL .100.IU. ..OU4!..
.U6!HF.0:.". READING FORMAT FILE"..V>!.
7,8,7,"0:FORMAT1,S,R".#VH!.1750:.EN.62.8
590.-VR!.7,HF.WV\!.I.1.HF:.7,PF$(I,1),PF
$(I,2),PF$(I,3).^VF!.I.SVK!.7,PB$:PB.E(P
B$).|VP! 7:...VZ!...V.! 7:...V.!...V.!.7
,8,7,"0:FORMAT1,S,W"..V.!.1750..V.!.EN.6
3. 7:.7,8,7,"@0:FORMAT1,S,W"..V.!.7,HF..
V.!.I.1.HF..W.!.7,PF$(I,1);M$;PF$(I,2);M
$;PF$(I,3);M$;./W.!.I:.7,PB$;M$.8W.! 7:.
.>W.!..DW.!..GW.".I.1.NF:PF(I,1).I:PF(I,
2).0:.I.QW."PB.66.{W.".8500..W.".HF.0.HF
.NF:XJ.1:...W$".I.1.HF..W."PF(I,1).E(PF$
(I,2)).NW8"PF(I,2).E(PF$(I,3))..WB".I :P
B.E(PB$)..WL"...WV"...W(#...X2#."." :K1.
0.=X3#.8500 :. HF.0 . ."..";.9);"NO FORM
AT ON FILE...":. 9020.HX4#."..TITLE
ROW/COLUMN FIELD"..X5#."---------
---------------------------". X6#.I.1.HF
.SX7#.PF$(I,1);.15);PF$(I,2);.20)PF$(I,3
);.30);D(I)..X8#.I:.:."ROWS TO A PAGE =
".PB$:..1Y<#.". CONTINUE WITH NEW FORMAT
? (Y OR N): ";G(114);".";.EY>#SQ.1:.5813
:SQ.0.GY@#. A$:. A$.."Y".A$.."N" . 9024.
YF#.A$:. A$."N" . 5100..YP#.".. ";:OI$
."ENTER # OF FIELDS IN FILE: ":.5810.OYZ
#. B$."." . B$."":.5100..Y[#HF.E(IO$) :K
1.1:. HF.0 . K1.0:.9040.0Z\#." ";:OI$."
ENTER # OF ROWS TO A PAGE: ":.5810:.9800
.UZ]#. B$."." . B$."":K1.0:HF.0:.5100.AZ
^#PB$.IO$..Z_#.E(PB$).60.E(PB$).1 . ."..
..";:.6040:.9052..ZD#."..ENTER F7 FOR BL
ANK FIELD TITLE."..ZI#."----------------
--------------"..ZN#.I.1.HF..ZX#.".FIELD
".D(I)..[.#OI$.".ENTER TITLE: ":.5810.C
[.#. B$."." . B$."":K1.0:HF.0:.5100.[.#
.IO$.".".PF$(I,1)." ":."..";.13
);"BLANK":.9110..[.#PF$(I,1).H(IO$.SL$,1
0).N[.#OI$.".ENTER ROW LOCATION ON PAGE:
":.5810:.9800..[.#. B$."." . B$."":K1.0
:HF.0:.5100..\ #PF$(I,2).IO$:.E(IO$).0..
".";.29);" ":."...";:.9110.D\.#OI$."
.ENTER COLUMN LOCATION IN ROW: ":.5810:.
9800..\.#. B$."." . B$."":K1.0:HF.0:.510
0.D\.#PF$(I,3).IO$:.E(IO$).0..".";.31);"
":."...";:.9130.K\.#.I..\H#."..TITL
E ROW/COLUMN FIELD"."]M#."---
---------------------------------"..]R#.
I.1.HF.A].#.PF$(I,1);.15);PF$(I,2);.20)P
F$(I,3);.30);D(I)..].#.I:.:."ROWS TO A P
AGE = ".PB$ :...].#OI$."CHANGES (Y OR N)
: ":.5810.N].#. B$."." . B$."":K1.0:HF.0
:.5100..].#.H(IO$,1)."Y".9900..].#.K1.1.
.8600..].#.5100..^H&...^R&.C(IO$).0.IO$.
"0":..:^\&.F(IO$).F("0").IO$."0":..W^F&.
F(IO$).F("9").IO$."0":..U^G&Z.E(IO$):.Z.
70.IO$."70":..{^P&...^Z&...^.&K1.1..^.&O
I$.".ENTER NUMBER OF ROWS: ":.5810:.9800
:PB$.IO$..^.&. B$."." . B$."":K1.0:HF.0:
.5100.._.&OI$.".ENTER FIELD NUMBER: ":.5
810:.9800.6_.&. B$."." . B$."":K1.0:HF.0
:.5100.H_.&.IO$."0".9160.B_J&Z1.E(IO$):.
Z1.HF.9910.._T&OI$.".ENTER FIELD TITLE:
":.5810.._V&. B$."." . B$."":K1.0:HF.0:.
5100.._Y&.IO$.".".PF$(Z1,1)." "
:."..";.19);"BLANK":.9960..`.&PF$(Z1,1).
H(IO$.SL$,10).2`.&OI$."ROW LOCATION ON P
AGE: ":.5810:.9800.W`.&. B$."." . B$."":
K1.0:HF.0:.5100.I`.&PF$(Z1,2).IO$..`.&OI
$."COLUMN LOCATION IN ROW: ":.5810:.9800
..`.'. B$."." . B$."":K1.0:HF.0:.5100.U`
.'PF$(Z1,3).IO$:.9160..`.'P2.2:.CR.0....
`.'PG..1 :.HF.NF.HF.NF.(A.'.B(740)..4,"
":.4,"REC #:";CR:PC.PC.2.:A$'.I.1. HF:IG
.I.IA%'RT.0:.4220..A&'. RT.1 . .53265,27
:."..**END PRINTING...CLOSING FILE":...A
.'PG.PG.1..A8'.PG.PF(I,1)..4," ":.10030.
.A='KL$.H(LL$,PF(IG,2)).PF$(IG,1)." ".F
$(IG)..AB'.PG.PF(IG,1)..4,KL$;:PC.PC.1.!
BD'. PG.PF(I.1,1) . IG.I.1:.10045.,BF'.4
," ".;BL'.I:PC.PC.1.YBM'K7.0:K9.0:. B(74
0) . K7.2.YBN'K9.PC.K7.1.HF:.K9.PB..1007
5.BV'...B['.J.1. (66.PC) :RT.0:.4220:.4
," "..B\'.RT.J.(66.PC):.10022.KB]'.J:PC.
0:..XB.*. BORDER..C.*.".";G(117);:.II.1.
38:.G(99);:.II:.G(105);.5C.+. II.1 . 22:
.G(125);.38);G(125):.".";:.II.DC.+.G(106
);:.II.1.38:.G(99);:.II:.G(107);".";.JC.
+..}C*+. INTRO HEADER..C/+."...";.13);"I
NQUIRE PAC"..C4+.".";.18);"BY".UC9+."."
;.8);"PACIFIC COAST SOFTWARE"..C>+.".";.
8);"3220 S. BREA CANYON RD".!DC+.".";.8)
;"DIAMOND BAR, CA. 91765".;DH+."..";.15)
;"(C) 1983".ADM+..VD\+.".";.3);"PLEASE T
OUCH .RETURN. TO CONTINUE...";..DA+SQ.1:
.5813:SQ.0..DF+. A$:. A$..G(13) . 11110.
.DP+...D...".. COLLECT DELETED RECORDS
(Y OR N): ";G(114);".";..D..SQ.1:.5813:S
Q.0. E... A$:. A$.."Y" . A$.."N" . 12002
.8E...A$:. A$."N" . 5500.PE..K1.0:K2.0 :
.".. COLLECTING RECORDS...PLEASE WAIT."
..E..K1.K1.1:.K1.RR.12100..E..CR.K1..E..
."..... RECORDS READ =";K1..E./. 840..E.
/.H(F$(1),3).."XDX".K2.K2.1:K3.K2:. 1206
2..F./.H(F$(1),3)."XDX".K9.K9.1.5F./."..
..... RECORDS COLLECTED =";K9:. 12020.FF
./.K1.K2.12020.CF./K1$(K2).F$(1):RR%(K2)
.K2.SF&/CR.K2:. 690.~F0/.12020..FD/RR.K3
:FR.K3.1:CX.K3:D5.12:.3511..F./.12900..F
./TK.Z1.NF./.685,1:II.B5:.4500..FF/.690
:K1$(CR)."XDX"..FH/.B6.1....FP/. 5500..G
.0.".".BG.0.".MULTI - DELETE. ARE YOU SU
RE (Y OR N): ";G(114);".";.VG.0SQ.1:.581
3:SQ.0.{G.0. A$:. A$.."Y" . A$.."N" . 12
315..G 0.A$:. A$."N" . 5490.DG*0OI$."STA
RT DELETE AT RECORD #: ":."..":.5810.XG,
0.C(IO$).0.12300..G40.12900..G>0TK.Z1..H
H0OI$."END DELETE AT RECORD #: ":.".";:.
5810.0HJ0.C(IO$).0.12330.IHL0Z1.E(IO$):.
Z1.1.Z1.1.BHR0.Z1.RR..Z1..NR.Z1.RR..H\0.
Z1..RR.CX.Z1:RR.Z1:FR.RR.1..HF0B6.1 :TL
.Z1..HP0.B5.TK.TL..HR0CR.B5..HZ0.12220.D
H|0." -";B5;.SH.0RR%(CR).CR..H.0.B5..H.0
B6.0:.685,0:U7.1..I.0.".. UPDATING DIREC
TORY RECORDS":. 3830.5ID2Z1.E(IO$):.Z1.1
.Z1.1.FIN2.Z1.CX.Z1.CX.LIX2..UI.6."... N
O FILE FOUND ON THIS DISK..."..I.6. I.1
. 1000:.:.1..I@8."... DISK DIRECTORY..."
.BIE8."------------------"..IJ8."DISK HE
ADER TITLE: ..."..IL8.CC,"I0"..J.8.1,8,0
,"$0":LC.0..J.8.#1,A$,B$..J.8.LC..1....J
.8C.0:.:..20);.HJ.8.B$.."".C.C.F(B$).256
.`J.8.#1,B$:.ST..0.14555.UJ.8.B$..G(34).
14520..JB8.#1,B$:.B$..G(34).. B$;:.14530
..J.8. ST.0.LC.LC.1:.14502.IJ.8LC.0: 1:.
:.:.11100..J.8.5,8,5,"0:F-FORM,S,R":.175
0:.EN.62 . 14600..K.8.5,NF$:NF.E(NF$).-K
.8. I.1.NF:.5,N$(I),L$(I):. I.VK.8."...
FILE DIRECTORY...".~K.8."
----------------------"..K.8."
FIELD/TITLE LENGTH ".OK.8."
----------------------."..K.8.I.1
.NF:FD$.H(D(I)." ",4)..L.8..10);FD$;N$(
I):.".";.26);L$(I):.I.+L.8 5:.:.11100:.5
100._L.9."... NO FILE FORMAT PRESENT ON
DISK..":. 14585...,.
> CLICK IMAGE PREVIEW FOR FULL MODAL