PRGM/CAT1.LNX
FILE INFORMATION
FILENAME(S): PRGM/CAT1.LNX
FILE TYPE(S): SEQ
FILE SIZE: 26.5K
FIRST SEEN: 2025-10-19 22:48:41
APPEARS ON: 1 disk(s)
FILE HASH
81c7ea6cab07c72152ea0dcfff1dffb40854ed31621dd9d39f792374fbb036fe
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| QL APPLICATIONS | PRGM/CAT1.LNX | SEQ | Radd Maxx | 15 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 31 20 20 20 4C 59 4E 58 20 49 58 20 20 42 59 | 1 LYNX IX BY|
00000010: 20 57 49 4C 4C 20 43 4F 52 4C 45 59 0D 20 36 20 | WILL CORLEY. 6 |
00000020: 0D 50 52 47 43 41 54 2F 53 0D 20 32 20 0D 53 0D |.PRGCAT/S. 2 .S.|
00000030: 20 32 34 39 20 0D 50 52 47 43 41 54 2F 50 43 46 | 249 .PRGCAT/PCF|
00000040: 0D 20 31 20 0D 53 0D 20 35 20 0D 50 52 47 43 41 |. 1 .S. 5 .PRGCA|
00000050: 54 2F 46 4C 47 0D 20 31 20 0D 53 0D 20 38 32 20 |T/FLG. 1 .S. 82 |
00000060: 0D 4D 0D 20 37 20 0D 50 0D 20 31 39 38 20 0D 50 |.M. 7 .P. 198 .P|
00000070: 0D 20 31 20 0D 50 0D 20 31 33 34 20 0D 50 52 47 |. 1 .P. 134 .PRG|
00000080: 43 41 54 0D 20 39 35 20 0D 50 0D 00 00 00 00 00 |CAT. 95 .P......|
00000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0E 00 |................|
000000F0: 0E 00 00 00 00 00 00 00 00 00 00 00 00 00 20 31 |.............. 1|
00000100: 38 20 0D C4 49 53 4B 20 23 2D 0D 20 31 20 0D 20 |8 ..ISK #-. 1 . |
00000110: 33 20 0D 20 34 20 0D 23 0D C4 49 53 4B 20 CE 41 |3 . 4 .#..ISK .A|
00000120: 4D 45 2D 0D 20 31 33 20 0D 20 33 20 0D 20 31 36 |ME-. 13 . 3 . 16|
00000130: 20 0D 41 0D D0 52 4F 47 52 41 4D 20 CE 41 4D 45 | .A..ROGRAM .AME|
00000140: 2D 0D 20 31 20 0D 20 34 20 0D 20 31 36 20 0D 41 |-. 1 . 4 . 16 .A|
00000150: 0D D4 59 50 45 2D 0D 20 33 31 20 0D 20 34 20 0D |..YPE-. 31 . 4 .|
00000160: 20 33 20 0D 41 0D C3 41 54 45 47 4F 52 59 2D 0D | 3 .A..ATEGORY-.|
00000170: 20 31 20 0D 20 35 20 0D 20 31 39 20 0D 41 0D CC | 1 . 5 . 19 .A..|
00000180: 45 4E 47 54 48 2D 0D 20 32 39 20 0D 20 35 20 0D |ENGTH-. 29 . 5 .|
00000190: 20 33 20 0D 23 0D 31 2D 0D 20 31 20 0D 20 38 20 | 3 .#.1-. 1 . 8 |
000001A0: 0D 20 33 36 20 0D 41 0D 32 2D 0D 20 31 20 0D 20 |. 36 .A.2-. 1 . |
000001B0: 39 20 0D 20 33 36 20 0D 41 0D 33 2D 0D 20 31 20 |9 . 36 .A.3-. 1 |
000001C0: 0D 20 31 30 20 0D 20 33 36 20 0D 41 0D 34 2D 0D |. 10 . 36 .A.4-.|
000001D0: 20 31 20 0D 20 31 31 20 0D 20 33 36 20 0D 41 0D | 1 . 11 . 36 .A.|
000001E0: 35 2D 0D 20 31 20 0D 20 31 32 20 0D 20 33 36 20 |5-. 1 . 12 . 36 |
000001F0: 0D 41 0D 36 2D 0D 20 31 20 0D 20 31 33 20 0D 20 |.A.6-. 1 . 13 . |
00000200: 33 36 20 0D 41 0D 37 2D 0D 20 31 20 0D 20 31 34 |36 .A.7-. 1 . 14|
00000210: 20 0D 20 33 36 20 0D 41 0D 38 2D 0D 20 31 20 0D | . 36 .A.8-. 1 .|
00000220: 20 31 35 20 0D 20 33 36 20 0D 41 0D 39 2D 0D 20 | 15 . 36 .A.9-. |
00000230: 31 20 0D 20 31 36 20 0D 20 33 36 20 0D 41 0D 31 |1 . 16 . 36 .A.1|
00000240: 30 2D 0D 20 30 20 0D 20 31 37 20 0D 20 33 36 20 |0-. 0 . 17 . 36 |
00000250: 0D 41 0D D3 4F 55 52 43 45 2D 0D 20 30 20 0D 20 |.A..OURCE-. 0 . |
00000260: 31 39 20 0D 20 33 32 20 0D 41 0D C1 55 54 48 4F |19 . 32 .A..UTHO|
00000270: 52 2D 0D 20 30 20 0D 20 32 30 20 0D 20 33 32 20 |R-. 0 . 20 . 32 |
00000280: 0D 41 0D 20 30 20 0D 20 30 20 0D 20 33 20 0D E4 |.A. 0 . 0 . 3 ..|
00000290: EF F9 E2 F8 F7 E3 D0 52 4F 47 52 41 4D 20 20 C3 |.......ROGRAM .|
000002A0: 41 54 41 4C 4F 47 E3 F7 F8 E2 F9 EF E4 0D 20 34 |ATALOG........ 4|
000002B0: 20 0D 20 31 20 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | . 1 .----------|
000002C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000002D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 20 30 20 |------------. 0 |
000002E0: 0D 20 32 20 0D CE 4F 54 45 53 2D 0D 20 30 20 0D |. 2 ..OTES-. 0 .|
000002F0: 20 37 20 0D 00 00 00 00 00 00 20 31 38 0D 00 AE | 7 ....... 18...|
00000300: 3D D4 EE 52 48 24 28 58 54 29 B2 C9 28 50 53 24 |=..RH$(XT)..(PS$|
00000310: 2C 34 30 29 00 C4 3D DE EE 4C 48 24 28 58 54 29 |,40)..=..LH$(XT)|
00000320: B2 C8 28 50 53 24 2C 34 30 29 00 CA 3D E8 EE 8E |..(PS$,40)..=...|
00000330: 00 FA 3D 30 F2 58 54 B2 58 54 AA 31 3A 4C 48 24 |..=0.XT.XT.1:LH$|
00000340: 28 58 54 29 B2 C8 28 53 50 24 2C 34 30 29 3A 52 |(XT)..(SP$,40):R|
00000350: 48 24 28 58 54 29 B2 4C 48 24 28 58 54 29 3A 8E |H$(XT).LH$(XT):.|
00000360: 00 00 00 B1 C7 28 31 33 33 29 A7 35 30 36 39 30 |.....(133).50690|
00000370: 00 24 3C 07 C6 8B 20 49 4E 24 B2 C7 28 31 33 29 |.$<... IN$..(13)|
00000380: A7 35 30 33 30 35 00 31 3C 70 C6 50 42 25 B2 AB |.50305.1<p.PB%..|
00000390: 31 3A 8E 00 47 3C 5F EA 8F 20 3D 3D 20 45 52 52 |1:..G<_.. == ERR|
000003A0: 4F 52 20 43 48 4B 20 3D 3D 00 6F 3C 60 EA A0 31 |OR CHK ==.o<`..1|
000003B0: 35 3A 9F 31 35 2C 38 2C 31 35 3A 9F 35 2C 38 2C |5:.15,8,15:.5,8,|
000003C0: 35 2C 22 30 3A 22 AA 4E 4D 24 3A 89 36 30 30 31 |5,"0:".NM$:.6001|
000003D0: 30 00 91 3C 65 EA A0 31 35 3A 9F 31 35 2C 44 56 |0..<e..15:.15,DV|
000003E0: 2C 31 35 3A 9F 35 2C 44 56 2C 35 2C 44 56 24 AA |,15:.5,DV,5,DV$.|
000003F0: 4E 4D 24 00 B3 3C 6A EA 20 31 20 0D 20 32 20 0D |NM$..<j. 1 . 2 .|
00000400: 20 33 20 0D 20 34 20 0D 20 35 20 0D 20 36 20 0D | 3 . 4 . 5 . 6 .|
00000410: 20 37 20 0D 20 38 20 0D 20 39 20 0D 20 31 30 20 | 7 . 8 . 9 . 10 |
00000420: 0D 20 31 31 20 0D 20 31 32 20 0D 20 31 33 20 0D |. 11 . 12 . 13 .|
00000430: 20 31 34 20 0D 20 31 35 20 0D 20 31 36 20 0D 20 | 14 . 15 . 16 . |
00000440: 31 37 20 0D 20 31 38 20 0D 34 30 29 3A 52 48 24 |17 . 18 .40):RH$|
00000450: 28 58 54 29 B2 4C 48 24 28 58 54 29 3A 8E 00 00 |(XT).LH$(XT):...|
00000460: 00 B1 C7 28 31 33 33 29 A7 35 30 36 39 30 00 24 |...(133).50690.$|
00000470: 3C 07 C6 8B 20 49 4E 24 B2 C7 28 31 33 29 A7 35 |<... IN$..(13).5|
00000480: 30 33 30 35 00 31 3C 70 C6 50 42 25 B2 AB 31 3A |0305.1<p.PB%..1:|
00000490: 8E 00 47 3C 5F EA 8F 20 3D 3D 20 45 52 52 4F 52 |..G<_.. == ERROR|
000004A0: 20 43 48 4B 20 3D 3D 00 6F 3C 60 EA A0 31 35 3A | CHK ==.o<`..15:|
000004B0: 9F 31 35 2C 38 2C 31 35 3A 9F 35 2C 38 2C 35 2C |.15,8,15:.5,8,5,|
000004C0: 22 30 3A 22 AA 4E 4D 24 3A 89 36 30 30 31 30 00 |"0:".NM$:.60010.|
000004D0: 91 3C 65 EA A0 31 35 3A 9F 31 35 2C 44 56 2C 31 |.<e..15:.15,DV,1|
000004E0: 35 3A 9F 35 2C 44 56 2C 35 2C 44 56 24 AA 4E 4D |5:.5,DV,5,DV$.NM|
000004F0: 24 00 B3 3C 6A EA 00 C0 20 A1 C3 A0 00 A2 00 20 |$..<j... ...... |
00000500: 71 C3 EE B3 02 D0 03 EE B4 02 B1 FB 8D AF 02 C8 |q...............|
00000510: B1 FB 8D B0 02 AD AC 02 C9 FF D0 3C AD AD 02 8D |...........<....|
00000520: A9 02 AD AE 02 8D AA 02 EE AD 02 D0 03 EE AE 02 |................|
00000530: A0 04 A2 02 20 71 C3 AD AF 02 91 FB C8 AD B0 02 |.... q..........|
00000540: 91 FB A0 00 A2 00 20 71 C3 AD A9 02 91 FB C8 AD |...... q........|
00000550: AA 02 91 FB 20 A1 C3 60 AD AB 02 8D A9 02 AD AC |.... ..`........|
00000560: 02 8D AA 02 A0 00 A2 00 20 71 C3 AD A9 02 91 FB |........ q......|
00000570: C8 AD AA 02 91 FB A0 02 A2 02 20 71 C3 B1 FB 8D |.......... q....|
00000580: AB 02 C8 B1 FB 8D AC 02 A0 04 A2 02 20 71 C3 AD |............ q..|
00000590: AF 02 91 FB C8 AD B0 02 91 FB AD AB 02 CD AD 02 |................|
000005A0: D0 10 AD AC 02 CD AE 02 D0 08 A9 FF 8D AB 02 8D |................|
000005B0: AC 02 4C A1 C3 FF F5 F5 20 A1 C3 AD BE 02 C9 FF |..L..... .......|
000005C0: D0 33 A2 00 A0 00 20 71 C3 B1 FB 8D A9 02 C8 B1 |.3.... q........|
000005D0: FB 8D AA 02 A2 02 A0 04 20 71 C3 B1 FB 8D AF 02 |........ q......|
000005E0: C8 B1 FB 8D B0 02 AD A9 02 8D BD 02 AD AA 02 8D |................|
000005F0: BE 02 4C A1 C3 AD B0 02 C9 FF D0 09 8D A9 02 8D |..L.............|
00000600: AA 02 4C A1 C3 AD A9 02 8D BD 02 AD AA 02 8D BE |..L.............|
00000610: 02 AD AF 02 8D A9 02 AD B0 02 8D AA 02 A2 02 A0 |................|
00000620: 08 20 71 C3 B1 FB 8D AF 02 C8 B1 FB 8D B0 02 4C |. q............L|
00000630: A1 C3 CE B3 02 AD B3 02 C9 FF D0 03 CE B4 02 20 |............... |
00000640: A1 C3 AD BD 02 CD A9 02 D0 12 AD BE 02 CD AA 02 |................|
00000650: D0 0A A2 00 A0 00 20 71 C3 4C 6B C1 A2 02 A0 06 |...... q.Lk.....|
00000660: 20 71 C3 AD AF 02 91 FB C8 AD B0 02 91 FB AD AB | q..............|
00000670: 02 C9 FF D0 15 A2 02 A0 04 20 71 C3 AD AD 02 91 |......... q.....|
00000680: FB C8 AD AE 02 91 FB 4C A4 C1 A2 02 A0 04 20 71 |.......L...... q|
00000690: C3 AD AB 02 91 FB C8 AD AC 02 91 FB AD A9 02 8D |................|
000006A0: AB 02 AD AA 02 8D AC 02 4C A1 C3 FF F5 F5 FF FF |........L.......|
000006B0: F5 F5 FF FF F5 F5 FF FF F5 00 0A 0A 00 00 0A 0A |................|
000006C0: 00 00 20 48 C3 A9 08 8D BB 02 A9 C3 8D BC 02 A9 |.. H............|
000006D0: 00 8D B1 02 A8 B9 AE C6 85 FB C8 B9 AE C6 85 FC |................|
000006E0: C8 8C B1 02 A0 00 A2 02 20 C6 FF 20 CF FF 91 FB |........ .. ....|
000006F0: C8 20 CF FF C9 0D D0 02 A9 00 91 FB AC B1 02 C0 |. ..............|
00000700: 08 D0 D2 20 20 C2 20 CF C2 20 29 C2 20 CF C2 A9 |... . .. ). ...|
00000710: 02 20 C3 FF 20 E7 FF 60 A9 E0 85 FC A9 00 85 FB |. .. ..`........|
00000720: 60 A9 EE 85 FC A9 D8 85 FB 60 F5 F5 FF FF F5 F5 |`........`......|
00000730: FF FF 20 48 C3 A9 00 8D B1 02 A8 B9 AE C6 85 FB |.. H............|
00000740: C8 B9 AE C6 85 FC C8 8C B1 02 A2 02 20 C9 FF 20 |............ .. |
00000750: A1 C3 A0 00 B1 FB 48 20 A1 C3 68 20 D2 FF C8 20 |......H ..h ... |
00000760: A1 C3 B1 FB 48 20 A1 C3 68 20 D2 FF AC B1 02 C0 |....H ..h ......|
00000770: 08 D0 C8 20 20 C2 A9 23 8D BB 02 A9 C3 8D BC 02 |... ..#........|
00000780: 20 CF C2 20 29 C2 20 CF C2 A9 02 20 C3 FF 20 CC | .. ). .... .. .|
00000790: FF 60 F5 F5 FF FF F5 F5 A9 00 8D B3 02 8D B4 02 |.`..............|
000007A0: 8D AE 02 A9 01 8D AD 02 A9 FF 8D AB 02 8D AC 02 |................|
000007B0: 20 20 C2 A2 20 A9 FF A0 00 91 FB C8 D0 FB CA F0 | .. ...........|
000007C0: 05 E6 FC 4C C1 C2 60 AD B5 02 0A 85 FD AD B6 02 |...L..`.........|
000007D0: 2A 85 FE 18 A5 FD 65 FB 85 FD A5 FE 65 FC 85 FE |*.....e.....e...|
000007E0: 6C BB 02 A5 FB C5 FD D0 F7 A5 FC C5 FE D0 F1 60 |l..............`|
000007F0: 18 A5 FB 69 02 85 FB A5 FC 69 00 85 FC 4C EB C2 |...i.....i...L..|
00000800: A0 00 A2 02 20 C6 FF 20 CF FF 91 FB C8 20 CF FF |.... .. ..... ..|
00000810: C9 0D D0 02 A9 00 91 FB 4C F8 C2 A0 00 A2 02 20 |........L...... |
00000820: C9 FF 20 A1 C3 B1 FB 48 20 A1 C3 68 20 D2 FF C8 |.. ....H ..h ...|
00000830: 20 A1 C3 B1 FB 48 20 A1 C3 68 20 D2 FF 4C F8 C2 | ....H ..h ..L..|
00000840: A9 02 20 C3 FF A9 02 AE CD 02 A8 20 BA FF AC F0 |.. ........ ....|
00000850: CF A9 2F 99 F1 CF C8 A9 58 99 F1 CF C8 98 A2 F1 |../.....X.......|
00000860: A0 CF 20 BD FF 20 C0 FF 60 18 B9 A4 C6 85 FD C8 |.. .. ..`.......|
00000870: B9 A4 C6 85 FE A0 00 B1 FD 0A 8D B1 02 C8 B1 FD |................|
00000880: 2A 8D B2 02 18 AD B1 02 7D A0 C6 85 FB E8 AD B2 |*.......}.......|
00000890: 02 7D A0 C6 85 FC A0 00 60 AD 0E DC 49 FF 8D 0E |.}......`...I...|
000008A0: DC A5 01 49 02 85 01 60 F5 F5 FF FF F5 F5 FF FF |...I...`........|
000008B0: F5 F5 20 39 C4 A9 34 8D BB 02 A9 C5 8D BC 02 A2 |.. 9..4.........|
000008C0: 02 20 C6 FF 20 82 C4 20 4F C4 20 63 C4 20 9A C4 |. .. .. O. c. ..|
000008D0: 60 00 0A 0A 00 00 0A 0A 00 00 0A 0A 00 00 0A 0A |`...............|
000008E0: 00 00 0A 0A 00 00 0A 0A 20 39 C4 A9 3A 8D BB 02 |........ 9..:...|
000008F0: A9 C5 8D BC 02 A2 02 20 C9 FF 20 82 C4 20 4F C4 |....... .. .. O.|
00000900: 20 56 C5 20 91 C5 60 A9 00 8D F2 02 A9 CC 85 FD | V. ..`.........|
00000910: A9 80 85 FE 20 DA C5 A5 FB 85 C3 A5 FC 85 C4 60 |.... ..........`|
00000920: A9 00 8D F2 02 A9 46 85 FD A9 80 85 FE 20 DA C5 |......F...... ..|
00000930: 60 20 0A C5 20 B9 C4 20 0F C4 20 28 C4 20 CB C4 |` .. .. .. (. ..|
00000940: AD C5 02 8D C1 02 60 A0 01 B1 FD 85 FB C8 B1 FD |......`.........|
00000950: 85 FC 88 B1 C3 A0 00 8D C2 02 60 20 CF FF C9 0D |..........` ....|
00000960: F0 09 91 FB 20 AB C4 C8 4C 63 C4 20 AB C4 20 82 |.... ...Lc. .. .|
00000970: C4 20 4F C4 CE C1 02 D0 E2 60 18 A5 FD 69 03 85 |. O......`...i..|
00000980: FD 90 03 E6 FE 18 A5 C3 69 02 85 C3 90 02 E6 C4 |........i.......|
00000990: 18 60 AD C4 02 F0 03 20 40 C5 A9 02 20 C3 FF 20 |.`..... @... .. |
000009A0: CC FF 60 EE C9 02 AD C9 02 C9 FF D0 03 20 F6 C4 |..`.......... ..|
000009B0: 60 A9 0F AE CD 02 A8 20 BA FF A9 00 20 BD FF 20 |`...... .... .. |
000009C0: C0 FF 60 AD CB 02 8D 9D C6 AD CC 02 8D 9E C6 AD |..`.............|
000009D0: C7 02 8D 9F C6 8D C9 02 A2 0F 20 C9 FF A2 00 BD |.......... .....|
000009E0: 9B C6 20 D2 FF E8 E0 06 D0 F5 20 CC FF 60 A9 01 |.. ....... ..`..|
000009F0: 8D C7 02 EE CB 02 D0 03 EE CC 02 20 CB C4 6C BB |........... ..l.|
00000A00: 02 60 A9 02 AE CD 02 A8 20 BA FF AC F0 CF A9 30 |.`...... ......0|
00000A10: 99 F1 CF C8 A9 2F 99 F1 CF C8 A9 44 99 F1 CF C8 |...../.....D....|
00000A20: 98 A2 F1 A0 CF 20 BD FF 20 C0 FF 60 A2 02 20 C6 |..... .. ..`.. .|
00000A30: FF 60 A2 02 20 C9 FF 60 AC C9 02 88 F0 0F CC C6 |.`.. ..`........|
00000A40: 02 F0 0A 20 CF FF C8 99 B6 C6 4C 46 C5 60 CC C2 |... ......LF.`..|
00000A50: 02 F0 0C B1 FB 20 D2 FF 20 AB C4 C8 4C 56 C5 A9 |..... .. ...LV..|
00000A60: 0D 20 D2 FF 20 AB C4 20 82 C4 20 4F C4 CE C1 02 |. .. .. .. O....|
00000A70: D0 DC 60 AC C9 02 88 F0 0F CC C6 02 F0 0A C8 B9 |..`.............|
00000A80: B6 C6 20 D2 FF 4C 81 C5 60 AD C4 02 F0 03 20 7B |.. ..L..`..... {|
00000A90: C5 A9 02 20 C3 FF 20 CC FF 60 FF FF F5 F5 FF FF |... .. ..`......|
00000AA0: F5 F5 FF FF F5 F5 FF FF 20 39 C4 A2 02 20 C9 FF |........ 9... ..|
00000AB0: A9 FF 20 D2 FF 20 3A C1 A9 02 20 C3 FF 20 CC FF |.. .. :... .. ..|
00000AC0: 60 00 0A 0A 80 00 0A 0A 20 39 C4 20 34 C5 20 9A |`....... 9. 4. .|
00000AD0: C4 60 A5 2F 85 FB A5 30 85 FC A9 03 8D F4 02 AD |.`./...0........|
00000AE0: 05 08 C9 9E D0 12 A0 02 18 B1 FB 65 FB 48 C8 B1 |...........e.H..|
00000AF0: FB 65 FC 85 FC 68 85 FB A0 00 B1 FB F0 75 C5 FD |.e...h.......u..|
00000B00: D0 5C C8 B1 FB C5 FE D0 55 A5 FD C9 80 30 03 CE |.\......U....0..|
00000B10: F4 02 18 A5 FB 69 07 85 FB A9 00 65 FC 85 FC CE |.....i.....e....|
00000B20: F2 02 AD F2 02 C9 FF D0 08 AD F3 02 F0 14 CE F3 |................|
00000B30: 02 18 AD F4 02 65 FB 85 FB A9 00 65 FC 85 FC 4C |.....e.....e...L|
00000B40: 27 C6 A5 FD C9 80 10 15 A5 FB 85 FD A5 FC 85 FE |'...............|
00000B50: A9 01 B1 FB 48 C8 B1 FB 85 FC 68 85 FB 60 A0 02 |....H.....h..`..|
00000B60: 18 A5 FB 71 FB 48 C8 A5 FC 71 FB 85 FC 68 85 FB |...q.H...q...h..|
00000B70: 4C 00 C6 A0 00 B9 8B C6 C9 A0 F0 C6 20 D2 FF C8 |L........... ...|
00000B80: 4C 7D C6 C1 52 52 41 59 20 4E 4F 54 20 46 4F 55 |L}..RRAY NOT FOU|
00000B90: 4E 44 A0 50 02 00 00 00 FE DF D6 EE A7 02 AB 02 |ND.P............|
00000BA0: A9 02 BD 02 AF 02 B3 02 AD 02 AB 02 B5 02 A4 AE |................|
00000BB0: CD 02 A8 20 BA FF A9 00 20 BD FF 20 C0 FF 60 AD |... .... .. ..`.|
00000BC0: CB 02 8D 9D C6 AD CC 02 8D 9E C6 AD C7 02 8D 9F |................|
00000BD0: C6 8D C9 02 A2 0F 20 C9 FF A2 00 BD 9B C6 20 D2 |...... ....... .|
00000BE0: FF E8 E0 06 D0 F5 20 CC 3C 03 A9 04 AA A0 07 20 |...... .<...... |
00000BF0: BA FF A9 00 20 BD FF 20 C0 FF A2 04 20 C9 FF A9 |.... .. .... ...|
00000C00: 00 85 FB 85 FD A9 04 85 FC A0 00 B1 FB C9 60 D0 |..............`.|
00000C10: 05 A9 20 4C 8F 03 A9 40 38 F1 FB 29 20 0A 8D FB |.. L...@8..) ...|
00000C20: 03 B1 FB 29 40 0A 0D FB 03 8D FB 03 B1 FB 29 7F |...)@.........).|
00000C30: 0D FB 03 D0 02 A9 40 C9 60 D0 02 A9 20 20 D2 FF |......@.`... ..|
00000C40: E6 FD A9 28 38 E5 FD D0 07 85 FD A9 0D 20 D2 FF |...(8........ ..|
00000C50: A9 6F C5 FB D0 06 A9 07 C5 FC F0 10 18 A5 FB 69 |.o.............i|
00000C60: 01 85 FB A5 FC 69 00 85 FC 4C 5B 03 60 FB 4C 00 |.....i...L[.`.L.|
00000C70: C6 A0 00 B9 8B C6 C9 A0 F0 C6 20 D2 FF C8 4C 7D |.......... ...L}|
00000C80: C6 C1 52 52 41 59 20 4E 4F 54 20 46 4F 55 4E 44 |..RRAY NOT FOUND|
00000C90: A0 50 02 00 00 00 FE DF D6 EE A7 02 AB 02 A9 02 |.P..............|
00000CA0: BD 02 AF 02 B3 02 AD 02 AB 02 B5 02 A4 AE CD 02 |................|
00000CB0: A8 20 BA FF A9 00 20 BD FF 20 C0 FF 60 AD CB 02 |. .... .. ..`...|
00000CC0: 8D 9D C6 AD CC 02 8D 9E C6 AD C7 02 8D 9F C6 8D |................|
00000CD0: C9 02 A2 0F 20 C9 FF A2 00 BD 9B C6 20 D2 FF E8 |.... ....... ...|
00000CE0: E0 06 D0 F5 20 CC 01 08 0D 08 02 00 8F 20 2A 2A |.... ........ **|
00000CF0: 20 44 53 00 20 08 03 00 8B C2 28 32 30 35 33 29 | DS. .....(2053)|
00000D00: B2 31 35 38 A7 35 00 59 08 04 00 8B 28 C2 28 34 |.158.5.Y....(.(4|
00000D10: 35 29 AA C2 28 34 36 29 AC 32 35 36 29 B3 32 30 |5)..(46).256).20|
00000D20: 30 30 30 A7 97 34 35 2C C2 28 31 37 34 29 3A 97 |000..45,.(174):.|
00000D30: 34 36 2C C2 28 31 37 35 29 3A 9C 3A 41 B2 30 00 |46,.(175):.:A.0.|
00000D40: 7A 08 05 00 8B 41 B2 30 A7 97 37 32 30 2C C2 28 |z....A.0..720,.(|
00000D50: 31 37 34 29 3A 97 37 32 31 2C C2 28 31 37 35 29 |174):.721,.(175)|
00000D60: 00 87 08 06 00 8D 35 32 33 30 30 3A 9C 00 A3 08 |......52300:....|
00000D70: 07 00 97 31 37 34 2C C2 28 37 32 30 29 3A 97 31 |...174,.(720):.1|
00000D80: 37 35 2C C2 28 37 32 31 29 00 B4 08 09 00 99 C7 |75,.(721).......|
00000D90: 28 31 34 29 3A 8D 33 31 30 30 00 DD 08 0C 00 8D |(14):.3100......|
00000DA0: 39 30 3A 99 22 93 22 3A 97 36 34 36 2C 43 33 3A |90:.".":.646,C3:|
00000DB0: 97 35 33 32 38 30 2C 43 32 3A 97 35 33 32 38 31 |.53280,C2:.53281|
00000DC0: 2C 43 31 00 1C 09 14 00 91 4F 50 25 8D 33 32 30 |,C1......OP%.320|
00000DD0: 30 30 2C 31 30 30 30 2C 31 30 32 30 30 2C 33 35 |00,1000,10200,35|
00000DE0: 30 30 30 2C 35 33 30 30 30 2C 35 30 30 30 30 2C |000,53000,50000,|
00000DF0: 38 38 30 30 2C 32 35 30 2C 33 30 30 2C 31 33 32 |8800,250,300,132|
00000E00: 30 30 00 24 09 1E 00 89 31 32 00 3E 09 5A 00 8D |00.$....12.>.Z..|
00000E10: 31 35 30 3A 46 43 B2 30 3A 55 46 B2 30 3A 97 36 |150:FC.0:UF.0:.6|
00000E20: 35 30 2C 30 00 62 09 64 00 99 C8 28 59 24 2C 59 |50,0.b.d...(Y$,Y|
00000E30: 25 29 C8 28 58 24 2C 58 25 29 22 12 22 4F 50 24 |%).(X$,X%)"."OP$|
00000E40: 28 4F 50 25 29 22 92 22 00 75 09 69 00 A1 41 24 |(OP%)".".u.i..A$|
00000E50: 3A 8B 41 24 B2 22 22 A7 31 30 35 00 88 09 6E 00 |:.A$."".105...n.|
00000E60: 8B 41 24 B3 B1 C7 28 31 37 29 A7 31 31 35 00 AC |.A$...(17).115..|
00000E70: 09 70 00 8D 31 34 30 3A 8B 59 25 B2 28 37 AA 4E |.p..140:.Y%.(7.N|
00000E80: 4F 29 A7 59 25 B2 38 3A 4F 50 25 B2 31 3A 89 31 |O).Y%.8:OP%.1:.1|
00000E90: 30 30 00 C7 09 72 00 59 25 B2 59 25 AA 31 3A 4F |00...r.Y%.Y%.1:O|
00000EA0: 50 25 B2 4F 50 25 AA 31 3A 89 31 30 30 00 DB 09 |P%.OP%.1:.100...|
00000EB0: 73 00 8B 41 24 B3 B1 C7 28 31 34 35 29 A7 31 32 |s..A$...(145).12|
00000EC0: 30 00 02 0A 74 00 8D 31 34 30 3A 59 25 B2 59 25 |0...t..140:Y%.Y%|
00000ED0: AA 28 4F 50 25 B1 31 29 3A 4F 50 25 B2 4F 50 25 |.(OP%.1):OP%.OP%|
00000EE0: AA 28 4F 50 25 B1 30 29 00 1C 0A 76 00 8B 4F 50 |.(OP%.0)...v..OP|
00000EF0: 25 B2 30 A7 4F 50 25 B2 4E 4F 3A 59 25 B2 37 AA |%.0.OP%.NO:Y%.7.|
00000F00: 4E 4F 00 25 0A 77 00 89 31 30 30 00 35 0A 78 00 |NO.%.w..100.5.x.|
00000F10: 8B 41 24 B2 C7 28 31 33 29 A7 8E 00 3E 0A 7A 00 |.A$..(13)...>.z.|
00000F20: 89 31 30 35 00 61 0A 8C 00 99 C8 28 59 24 2C 59 |.105.a.....(Y$,Y|
00000F30: 25 29 C8 28 58 24 2C 58 25 29 22 92 22 4F 50 24 |%).(X$,X%)"."OP$|
00000F40: 28 4F 50 25 29 3A 8E 00 8B 0A 96 00 99 22 93 11 |(OP%):......."..|
00000F50: 22 3B 3A 47 24 B2 22 22 3A 97 35 33 32 38 31 2C |";:G$."":.53281,|
00000F60: 30 3A 97 35 33 32 38 30 2C 36 3A 97 36 34 36 2C |0:.53280,6:.646,|
00000F70: 31 00 BB 0A 9B 00 99 C8 28 58 24 2C 32 31 AB C3 |1.......(X$,21..|
00000F80: 28 54 32 24 29 AD 32 29 54 32 24 3A 99 C8 28 58 |(T2$).2)T2$:..(X|
00000F90: 24 2C 32 30 AB C3 28 54 31 24 29 AD 32 29 54 31 |$,20..(T1$).2)T1|
00000FA0: 24 00 D9 0A 9C 00 99 4C 42 24 3B 22 12 1F 22 C8 |$......LB$;"..".|
00000FB0: 28 53 53 24 2C 34 30 29 22 92 22 3B 55 42 24 00 |(SS$,40)".";UB$.|
00000FC0: 18 0B 9E 00 59 25 B2 37 3A 58 25 B2 36 3A 4F 50 |....Y%.7:X%.6:OP|
00000FD0: 25 B2 31 3A 99 C8 28 59 24 2C 37 29 A6 36 29 22 |%.1:..(Y$,7).6)"|
00000FE0: 9E B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000FF0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 52 |.............".R|
00001000: 0B A0 00 81 49 B2 31 A4 4E 4F 3A 99 C8 28 59 24 |....I.1.NO:..(Y$|
00001010: 2C 59 25 AA 49 29 C8 28 58 24 2C 58 25 29 22 9E |,Y%.I).(X$,X%)".|
00001020: DD 05 20 22 3B 4F 50 24 28 49 29 3B A3 33 32 29 |.. ";OP$(I);.32)|
00001030: 22 20 9E DD 05 22 3A 82 00 7A 0B A3 00 99 A6 36 |" ...":..z.....6|
00001040: 29 22 9E AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |)"..............|
00001050: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 |..............."|
00001060: 00 A0 0B A4 00 99 C8 28 59 24 2C 32 31 29 4C 42 |.......(Y$,21)LB|
00001070: 24 3B 22 12 1F 22 C8 28 53 53 24 2C 34 30 29 22 |$;"..".(SS$,40)"|
00001080: 92 22 3B 55 42 24 00 D4 0B A8 00 99 C8 28 59 24 |.";UB$.......(Y$|
00001090: 2C 32 34 29 22 20 D3 45 4C 45 43 54 20 4F 50 54 |,24)" .ELECT OPT|
000010A0: 49 4F 4E 20 57 49 54 48 20 43 55 52 53 4F 52 2C |ION WITH CURSOR,|
000010B0: 20 12 D2 45 54 55 52 4E 92 22 00 07 0C AA 00 99 | ..ETURN."......|
000010C0: C8 28 59 24 2C 32 35 29 22 20 D4 4F 20 52 45 54 |.(Y$,25)" .O RET|
000010D0: 55 52 4E 20 54 4F 20 54 48 49 53 20 4D 45 4E 55 |URN TO THIS MENU|
000010E0: 20 50 52 45 53 53 20 12 46 31 92 22 3B 00 17 0C | PRESS .F1.";...|
000010F0: B4 00 59 25 B2 38 3A 58 25 B2 38 3A 8E 00 30 0C |..Y%.8:X%.8:..0.|
00001100: C8 00 8B C2 28 32 30 35 33 29 B3 B1 31 35 38 A7 |....(2053)..158.|
00001110: 9E 35 32 30 31 37 00 44 0C C9 00 8B A8 46 31 25 |.52017.D.....F1%|
00001120: A7 8E 3A 8F 20 2A 2A 20 45 53 00 5C 0C CD 00 91 |..:. ** ES.\....|
00001130: C2 28 39 36 35 29 8D 33 33 30 30 30 2C 33 33 31 |.(965).33000,331|
00001140: 35 31 00 95 0C CE 00 99 22 93 11 11 11 11 22 A6 |51......".....".|
00001150: 31 30 29 22 D7 52 49 54 49 4E 47 20 C9 4E 44 45 |10)".RITING .NDE|
00001160: 58 20 C6 49 4C 45 20 2E 2E 2E 22 3A 9E 34 39 37 |X .ILE ...":.497|
00001170: 32 32 3A 8D 31 33 30 35 30 3A 8E 00 A5 0C FA 00 |22:.13050:......|
00001180: 8D 32 30 30 3A 99 22 93 22 3A 80 00 AE 0C 2C 01 |.200:.".":....,.|
00001190: 8D 32 30 30 00 E4 0C 36 01 A0 31 35 3A 9F 31 35 |.200...6..15:.15|
000011A0: 2C 38 2C 31 35 3A 9F 34 2C 38 2C 34 2C 22 30 3A |,8,15:.4,8,4,"0:|
000011B0: 4D 45 4E 55 22 3A 8D 35 32 32 32 30 3A A0 34 3A |MENU":.52220:.4:|
000011C0: 8B 44 53 B3 32 30 A7 33 39 30 00 1C 0D 3B 01 99 |.DS.20.390...;..|
000011D0: 22 93 11 11 11 11 11 11 11 11 11 20 20 D0 4C 41 |".......... .LA|
000011E0: 43 45 20 44 49 53 4B 20 57 49 54 48 20 54 48 45 |CE DISK WITH THE|
000011F0: 20 4D 45 4E 55 20 49 4E 20 44 52 49 56 45 20 30 | MENU IN DRIVE 0|
00001200: 2E 22 00 56 0D 46 01 99 C8 28 59 24 2C 32 34 29 |.".V.F...(Y$,24)|
00001210: 3B 22 20 D0 52 45 53 53 20 12 D2 C5 D4 D5 D2 CE |;" .RESS .......|
00001220: 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2C 20 12 |. TO CONTINUE, .|
00001230: 46 31 92 20 54 4F 20 45 58 49 54 22 00 7B 0D 4A |F1. TO EXIT".{.J|
00001240: 01 A1 41 41 24 3A 8B 41 41 24 B3 B1 C7 28 31 33 |..AA$:.AA$...(13|
00001250: 29 AF 41 41 24 B3 B1 C7 28 31 33 33 29 A7 33 33 |).AA$...(133).33|
00001260: 30 00 A0 0D 4F 01 91 AB 28 41 41 24 B2 C7 28 31 |0...O...(AA$..(1|
00001270: 33 29 29 89 33 31 30 3A 99 C7 28 39 29 22 93 22 |3)).310:..(9)"."|
00001280: 3A A0 31 35 3A 80 00 D3 0D 86 01 99 22 93 11 11 |:.15:......."...|
00001290: 11 11 11 11 11 20 20 20 20 20 2A 2A 2A 20 12 CC |..... *** ..|
000012A0: 4F 41 44 49 4E 47 20 CD 45 4E 55 20 D0 52 4F 47 |OADING .ENU .ROG|
000012B0: 52 41 4D 92 20 2A 2A 2A 22 00 08 0E 8B 01 97 36 |RAM. ***"......6|
000012C0: 34 36 2C C2 28 35 33 32 38 31 29 3A 99 22 13 4C |46,.(53281):.".L|
000012D0: 4F 41 44 22 AA C7 28 33 34 29 AA 22 30 3A 4D 45 |OAD"..(34)."0:ME|
000012E0: 4E 55 22 AA C7 28 33 34 29 AA 22 2C 38 22 00 45 |NU"..(34).",8".E|
000012F0: 0E 90 01 97 31 39 38 2C 36 3A 97 36 33 31 2C 31 |....198,6:.631,1|
00001300: 39 3A 97 36 33 32 2C 31 33 3A 97 36 33 33 2C 38 |9:.632,13:.633,8|
00001310: 32 3A 97 36 33 34 2C 38 35 3A 97 36 33 35 2C 37 |2:.634,85:.635,7|
00001320: 38 3A 97 36 33 36 2C 31 33 3A 80 00 66 0E 20 03 |8:.636,13:..f. .|
00001330: 4A B2 30 3A 99 22 93 11 22 A6 31 33 29 22 2A 2A |J.0:."..".13)"**|
00001340: 20 D7 C1 D2 CE C9 CE C7 20 2A 2A 22 00 92 0E 25 | ....... **"...%|
00001350: 03 99 22 11 20 20 D4 4F 20 50 52 45 56 45 4E 54 |..". .O PREVENT|
00001360: 20 44 41 4D 41 47 45 20 4F 52 20 4C 4F 53 53 20 | DAMAGE OR LOSS |
00001370: 4F 46 20 59 4F 55 52 22 00 C0 0E 2A 03 99 22 20 |OF YOUR"...*.." |
00001380: 46 49 4C 45 53 2C 20 C1 CC D7 C1 D9 D3 20 54 41 |FILES, ...... TA|
00001390: 4B 45 20 54 48 45 20 27 C5 58 49 54 20 54 4F 20 |KE THE '.XIT TO |
000013A0: C2 C1 D3 C9 C3 27 00 E9 0E 2F 03 99 22 20 4F 52 |.....'.../.." OR|
000013B0: 20 54 48 45 20 27 C5 58 49 54 20 54 4F 20 CD 45 | THE '.XIT TO .E|
000013C0: 4E 55 D7 52 49 54 45 52 20 CD 45 4E 55 27 22 00 |NU.RITER .ENU'".|
000013D0: 15 0F 30 03 99 22 20 4F 50 54 49 4F 4E 53 20 42 |..0.." OPTIONS B|
000013E0: 45 46 4F 52 45 20 4C 45 41 56 49 4E 47 20 54 48 |EFORE LEAVING TH|
000013F0: 49 53 20 53 59 53 54 45 4D 2E 22 00 4F 0F 31 03 |IS SYSTEM.".O.1.|
00001400: 99 C8 28 59 24 2C 32 34 29 A6 39 29 22 D0 52 45 |..(Y$,24).9)".RE|
00001410: 53 53 20 12 D2 45 54 55 52 4E 92 20 54 4F 20 43 |SS ..ETURN. TO C|
00001420: 4F 4E 54 49 4E 55 45 22 3A 54 49 24 B2 22 30 30 |ONTINUE":TI$."00|
00001430: 30 30 30 30 22 00 63 0F 34 03 A1 41 24 3A 8B 41 |0000".c.4..A$:.A|
00001440: 24 B2 C7 28 31 33 29 A7 8E 00 8A 0F 39 03 8B C5 |$..(13).....9...|
00001450: 28 54 49 24 29 B1 30 AF C5 28 54 49 24 29 B3 B2 |(TI$).0..(TI$)..|
00001460: 31 A7 43 24 B2 22 12 D7 C1 D2 CE C9 CE C7 92 22 |1.C$."........."|
00001470: 00 B2 0F 3E 03 8B C5 28 54 49 24 29 B1 31 A7 43 |...>...(TI$).1.C|
00001480: 24 B2 22 D7 C1 D2 CE C9 CE C7 22 3A 54 49 24 B2 |$.".......":TI$.|
00001490: 22 30 30 30 30 30 30 22 00 C7 0F 43 03 99 22 13 |"000000"...C..".|
000014A0: 11 22 A6 31 36 29 43 24 3A 89 38 32 30 00 F3 0F |.".16)C$:.820...|
000014B0: E8 03 99 22 93 22 3A 8D 39 39 37 30 3A 97 36 35 |...".":.9970:.65|
000014C0: 30 2C 31 32 38 3A 8D 38 33 30 30 3A 8B 41 41 24 |0,128:.8300:.AA$|
000014D0: B2 C7 28 31 33 33 29 A7 8E 00 08 10 E9 03 8D 38 |..(133)........8|
000014E0: 31 30 30 3A 8B 50 51 B2 31 A7 31 30 31 30 00 34 |100:.PQ.1.1010.4|
000014F0: 10 EA 03 99 22 93 D4 48 45 20 44 41 54 41 20 46 |...."..HE DATA F|
00001500: 49 4C 45 53 20 4D 55 53 54 20 42 45 20 49 4E 49 |ILES MUST BE INI|
00001510: 54 49 41 4C 49 5A 45 44 2E 22 00 6B 10 EB 03 99 |TIALIZED.".k....|
00001520: 22 D0 4C 45 41 53 45 20 53 45 4C 45 43 54 20 54 |".LEASE SELECT T|
00001530: 48 45 20 46 49 4C 45 20 50 52 45 50 41 52 41 54 |HE FILE PREPARAT|
00001540: 49 4F 4E 20 20 20 20 20 20 4F 50 54 49 4F 4E 2E |ION OPTION.|
00001550: 22 00 9C 10 ED 03 99 C8 28 59 24 2C 32 34 29 22 |".......(Y$,24)"|
00001560: D0 4C 45 41 53 45 20 D0 52 45 53 53 20 12 D2 C5 |.LEASE .RESS ...|
00001570: D4 D5 D2 CE 92 20 54 4F 20 43 4F 4E 54 49 4E 55 |..... TO CONTINU|
00001580: 45 22 00 B6 10 EE 03 A1 41 41 24 3A 8B 41 41 24 |E"......AA$:.AA$|
00001590: B3 B1 C7 28 31 33 29 A7 31 30 30 36 00 BC 10 EF |...(13).1006....|
000015A0: 03 8E 00 CC 10 F2 03 8B 4E 52 B3 4D 53 A7 31 30 |........NR.MS.10|
000015B0: 35 30 00 F4 10 FC 03 99 22 93 D9 4F 55 20 48 41 |50......"..OU HA|
000015C0: 56 45 20 45 4E 54 45 52 45 44 20 22 3B 4D 53 3B |VE ENTERED ";MS;|
000015D0: 22 20 52 45 43 4F 52 44 53 22 00 0E 11 06 04 99 |" RECORDS"......|
000015E0: 22 11 D9 4F 55 52 20 46 49 4C 45 20 49 53 20 46 |"..OUR FILE IS F|
000015F0: 55 4C 4C 22 00 31 11 0B 04 99 22 11 D0 52 45 53 |ULL".1...."..RES|
00001600: 53 20 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 43 4F |S ........ TO CO|
00001610: 4E 54 49 4E 55 45 22 00 4B 11 10 04 A1 41 41 24 |NTINUE".K....AA$|
00001620: 3A 8B 41 41 24 B3 B1 C7 28 31 33 29 A7 31 30 34 |:.AA$...(13).104|
00001630: 30 00 51 11 15 04 8E 00 7A 11 1A 04 99 22 93 22 |0.Q.....z...."."|
00001640: 3A 41 4E 24 B2 22 22 3A 81 49 B2 31 A4 4E 46 3A |:AN$."":.I.1.NF:|
00001650: 53 44 24 B2 C8 28 44 54 24 2C 4C 25 28 49 29 29 |SD$..(DT$,L%(I))|
00001660: 00 98 11 1D 04 8B 54 24 28 49 29 B2 22 44 22 A7 |......T$(I)."D".|
00001670: 53 44 24 B2 22 2E 2E 2F 2E 2E 2F 2E 2E 22 00 C2 |SD$."../../.."..|
00001680: 11 20 04 99 C8 28 59 24 2C 59 25 28 49 29 29 3B |. ...(Y$,Y%(I));|
00001690: C8 28 58 24 2C 58 25 28 49 29 29 3B 50 52 24 28 |.(X$,X%(I));PR$(|
000016A0: 49 29 3B 53 44 24 3A 82 00 FA 11 27 04 8B 4E 54 |I);SD$:....'..NT|
000016B0: B1 30 A7 81 49 B2 31 A4 4E 54 3A 99 C8 28 59 24 |.0..I.1.NT:..(Y$|
000016C0: 2C 54 59 25 28 49 29 29 3B C8 28 58 24 2C 54 58 |,TY%(I));.(X$,TX|
000016D0: 25 28 49 29 AA 31 29 3B 54 50 24 28 49 29 3A 82 |%(I).1);TP$(I):.|
000016E0: 00 2C 12 28 04 99 20 C8 28 59 24 2C 32 33 29 3B |.,.(.. .(Y$,23);|
000016F0: 22 20 20 20 D2 45 43 4F 52 44 53 20 45 4E 54 45 |" .ECORDS ENTE|
00001700: 52 45 44 20 3A 22 3B 4E 52 3B 22 20 4F 46 22 3B |RED :";NR;" OF";|
00001710: 4D 53 00 63 12 29 04 99 C8 28 59 24 2C 32 34 29 |MS.c.)...(Y$,24)|
00001720: 3B 22 20 12 46 35 92 2D 53 4B 49 50 20 46 49 45 |;" .F5.-SKIP FIE|
00001730: 4C 44 53 2C 20 12 46 37 92 2D 50 52 45 56 49 4F |LDS, .F7.-PREVIO|
00001740: 55 53 20 46 49 45 4C 44 22 00 8B 12 2A 04 99 C8 |US FIELD"...*...|
00001750: 28 59 24 2C 32 35 29 22 20 12 46 31 92 20 54 4F |(Y$,25)" .F1. TO|
00001760: 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 22 | RETURN TO MENU"|
00001770: 3B 00 AA 12 38 04 81 49 B2 31 A4 4E 46 3A 46 24 |;...8..I.1.NF:F$|
00001780: 28 49 29 B2 22 22 3A 82 3A 81 49 B2 31 A4 4E 46 |(I)."":.:.I.1.NF|
00001790: 00 ED 12 42 04 58 25 B2 58 25 28 49 29 AA C3 28 |...B.X%.X%(I)..(|
000017A0: 50 52 24 28 49 29 29 3A 59 25 B2 59 25 28 49 29 |PR$(I)):Y%.Y%(I)|
000017B0: 3A 4C 25 B2 4C 25 28 49 29 3A 46 24 B2 46 24 28 |:L%.L%(I):F$.F$(|
000017C0: 49 29 3A 8B 54 24 28 49 29 B3 B1 22 44 22 A7 31 |I):.T$(I).."D".1|
000017D0: 30 39 35 00 23 13 43 04 8D 34 39 30 30 30 3A 8B |095.#.C..49000:.|
000017E0: 49 4E 24 B2 C7 28 31 33 36 29 AF 49 B1 31 A7 46 |IN$..(136).I.1.F|
000017F0: 24 B2 46 24 28 49 29 3A 8D 33 30 30 30 3A 49 B2 |$.F$(I):.3000:I.|
00001800: 49 AB 31 3A 89 31 30 39 30 00 42 13 44 04 8B 49 |I.1:.1090.B.D..I|
00001810: 4E 24 B2 C7 28 31 33 35 29 A7 46 24 B2 46 24 28 |N$..(135).F$.F$(|
00001820: 49 29 3A 89 31 30 39 39 00 55 13 45 04 8B 49 4E |I):.1099.U.E..IN|
00001830: 24 B2 C7 28 31 33 33 29 A7 20 8E 00 6E 13 46 04 |$..(133). ..n.F.|
00001840: 46 24 B2 46 24 28 49 29 3A 8D 33 30 30 30 3A 89 |F$.F$(I):.3000:.|
00001850: 31 31 31 35 00 9C 13 47 04 8D 33 34 30 30 30 3A |1115...G..34000:|
00001860: 45 B2 30 3A 99 C8 28 59 24 2C 32 33 29 53 50 24 |E.0:..(Y$,23)SP$|
00001870: 3A 8B 49 4E 24 B2 22 22 A7 49 4E 24 B2 46 24 28 |:.IN$."".IN$.F$(|
00001880: 49 29 00 AE 13 48 04 8B 49 4E 24 B2 C7 28 31 33 |I)...H..IN$..(13|
00001890: 33 29 A7 8E 00 C7 13 49 04 8B 49 4E 24 B2 C7 28 |3).....I..IN$..(|
000018A0: 31 33 36 29 AF 49 B2 31 A7 31 30 39 30 00 E9 13 |136).I.1.1090...|
000018B0: 4A 04 8B 49 4E 24 B2 C7 28 31 33 36 29 A7 8D 33 |J..IN$..(136)..3|
000018C0: 30 30 30 3A 49 B2 49 AB 31 3A 89 31 30 39 30 00 |000:I.I.1:.1090.|
000018D0: 16 14 4B 04 8B 49 4E 24 B2 C7 28 31 33 35 29 AF |..K..IN$..(135).|
000018E0: C3 28 46 24 28 4B 46 29 29 B1 30 A7 8D 33 30 30 |.(F$(KF)).0..300|
000018F0: 30 3A 49 B2 4E 46 3A 89 31 31 31 35 00 2D 14 4C |0:I.NF:.1115.-.L|
00001900: 04 8B 49 4E 24 B2 C7 28 31 33 35 29 A7 49 4E 24 |..IN$..(135).IN$|
00001910: B2 22 22 00 51 14 4D 04 8B 44 25 28 49 29 B1 30 |."".Q.M..D%(I).0|
00001920: A7 8D 33 33 30 30 3A 8B 45 B1 30 A7 8D 33 30 31 |..3300:.E.0..301|
00001930: 30 3A 89 31 30 39 30 00 65 14 4E 04 8B 54 24 28 |0:.1090.e.N..T$(|
00001940: 49 29 B2 22 44 22 A7 31 31 30 35 00 A8 14 4F 04 |I)."D".1105...O.|
00001950: 8B 49 4E 24 B2 22 22 A7 46 24 28 49 29 B2 46 24 |.IN$."".F$(I).F$|
00001960: 3A 99 C8 28 59 24 2C 59 25 28 49 29 29 C8 28 58 |:..(Y$,Y%(I)).(X|
00001970: 24 2C 58 25 28 49 29 AA C3 28 50 52 24 28 49 29 |$,X%(I)..(PR$(I)|
00001980: 29 29 46 24 28 49 29 3B 3A 89 31 31 30 35 00 B6 |))F$(I);:.1105..|
00001990: 14 50 04 46 24 28 49 29 B2 49 4E 24 00 C6 14 51 |.P.F$(I).IN$...Q|
000019A0: 04 8B 49 B3 B1 4B 46 A7 31 31 31 30 00 F0 14 52 |..I..KF.1110...R|
000019B0: 04 8B 54 24 28 49 29 B2 22 41 22 A7 49 4E 24 B2 |..T$(I)."A".IN$.|
000019C0: 46 24 28 49 29 3A 8D 33 34 32 30 35 3A 46 24 28 |F$(I):.34205:F$(|
000019D0: 49 29 B2 49 4E 24 00 2E 15 53 04 8B C3 28 46 24 |I).IN$...S...(F$|
000019E0: 28 49 29 29 B2 30 A7 99 C8 28 59 24 2C 32 33 29 |(I)).0...(Y$,23)|
000019F0: 22 2A 20 D9 4F 55 20 4D 55 53 54 20 45 4E 54 45 |"* .OU MUST ENTE|
00001A00: 52 20 53 4F 4D 45 54 48 49 4E 47 20 2A 22 3A 89 |R SOMETHING *":.|
00001A10: 31 30 39 30 00 41 15 56 04 46 24 B2 46 24 28 49 |1090.A.V.F$.F$(I|
00001A20: 29 3A 8D 33 30 30 30 00 48 15 5B 04 82 49 00 53 |):.3000.H.[..I.S|
00001A30: 15 65 04 8D 32 39 30 31 30 00 5D 15 88 04 8D 38 |.e..29010.]....8|
00001A40: 30 30 30 00 96 15 92 04 99 C8 28 59 24 2C 32 34 |000.......(Y$,24|
00001A50: 29 3B 22 C9 53 20 54 48 49 53 20 41 4C 4C 20 43 |);".S THIS ALL C|
00001A60: 4F 52 52 45 43 54 3F 20 28 20 12 D2 C5 D4 D5 D2 |ORRECT? ( ......|
00001A70: CE 92 20 3D 20 59 45 53 20 29 22 3B 00 C3 15 97 |.. = YES )";....|
00001A80: 04 99 C8 28 59 24 2C 32 35 29 A6 38 29 22 3C D0 |...(Y$,25).8)"<.|
00001A90: 52 45 53 53 20 12 46 35 92 20 46 4F 52 20 48 41 |RESS .F5. FOR HA|
00001AA0: 52 44 43 4F 50 59 3E 22 3B 00 FE 15 9C 04 58 25 |RDCOPY>";.....X%|
00001AB0: B2 33 38 3A 59 25 B2 32 34 3A 4C 25 B2 31 3A 8D |.38:Y%.24:L%.1:.|
00001AC0: 33 34 30 30 30 3A 8D 38 30 30 30 3A 8B 49 4E 24 |34000:.8000:.IN$|
00001AD0: B2 C7 28 31 33 35 29 A7 8D 35 31 31 30 30 3A 89 |..(135)..51100:.|
00001AE0: 31 31 36 30 00 10 16 A1 04 8B 49 4E 24 B2 C7 28 |1160......IN$..(|
00001AF0: 31 33 33 29 A7 8E 00 2B 16 A6 04 8B C3 28 49 4E |133)...+.....(IN|
00001B00: 24 29 B2 30 B0 49 4E 24 B2 22 59 22 A7 39 30 30 |$).0.IN$."Y".900|
00001B10: 30 00 3E 16 AB 04 8B 49 4E 24 B3 B1 22 4E 22 A7 |0.>....IN$.."N".|
00001B20: 31 31 37 30 00 80 16 B0 04 99 C8 28 59 24 2C 32 |1170.......(Y$,2|
00001B30: 33 29 3B 22 D7 48 49 43 48 20 46 49 45 4C 44 20 |3);".HICH FIELD |
00001B40: 54 4F 20 43 48 41 4E 47 45 3F 20 22 3A 99 22 28 |TO CHANGE? ":."(|
00001B50: 31 20 2D 22 3B 4E 46 3B 22 4F 52 20 12 4C 92 49 |1 -";NF;"OR .L.I|
00001B60: 53 54 27 29 22 3B 00 AE 16 BA 04 58 25 B2 20 31 |ST')";.....X%. 1|
00001B70: 38 20 3A 59 25 B2 32 34 3A 4C 25 B2 34 3A 8D 33 |8 :Y%.24:L%.4:.3|
00001B80: 34 30 30 30 3A 49 4E B2 C5 28 49 4E 24 29 3A 8D |4000:IN..(IN$):.|
00001B90: 38 30 30 30 00 D3 16 C4 04 8B 49 4E 24 B2 22 4C |8000......IN$."L|
00001BA0: 22 A7 46 B2 31 3A 8D 32 30 30 30 30 3A 8D 32 39 |".F.1:.20000:.29|
00001BB0: 30 30 30 3A 89 31 32 30 30 00 11 17 CE 04 8B 49 |000:.1200......I|
00001BC0: 4E B3 31 B0 49 4E B1 4E 46 A7 99 C8 28 59 24 2C |N.1.IN.NF...(Y$,|
00001BD0: 32 33 29 3B 53 50 24 3A 99 C8 28 59 24 2C 32 33 |23);SP$:..(Y$,23|
00001BE0: 29 3B 22 C9 4E 56 41 4C 49 44 20 46 49 45 4C 44 |);".NVALID FIELD|
00001BF0: 22 3A 89 31 31 36 30 00 26 17 E2 04 49 B2 49 4E |":.1160.&...I.IN|
00001C00: 3A 8D 32 30 30 30 3A 8D 38 33 35 30 00 37 17 EC |:.2000:.8350.7..|
00001C10: 04 8D 32 39 30 31 30 3A 89 31 31 36 30 00 7A 17 |..29010:.1160.z.|
00001C20: D0 07 58 25 B2 58 25 28 49 29 AA C3 28 50 52 24 |..X%.X%(I)..(PR$|
00001C30: 28 49 29 29 3A 59 25 B2 59 25 28 49 29 3A 4C 25 |(I)):Y%.Y%(I):L%|
00001C40: B2 4C 25 28 49 29 3A 46 24 B2 46 24 28 49 29 3A |.L%(I):F$.F$(I):|
00001C50: 8B 54 24 28 49 29 B3 B1 22 44 22 A7 32 30 31 30 |.T$(I).."D".2010|
00001C60: 00 B0 17 D2 07 8D 34 39 30 30 30 3A 8B 49 4E 24 |......49000:.IN$|
00001C70: B2 C7 28 31 33 36 29 AF 49 B1 31 A7 46 24 B2 46 |..(136).I.1.F$.F|
00001C80: 24 28 49 29 3A 8D 33 30 30 30 3A 49 B2 49 AB 31 |$(I):.3000:I.I.1|
00001C90: 3A 89 32 30 30 30 00 C3 17 D3 07 8B 49 4E 24 B2 |:.2000......IN$.|
00001CA0: C7 28 31 33 33 29 A7 20 8E 00 DB 17 D4 07 8B 49 |.(133). .......I|
00001CB0: 4E 24 B2 C7 28 31 33 35 29 A7 8D 33 30 30 30 3A |N$..(135)..3000:|
00001CC0: 8E 00 FB 17 D5 07 8B 49 4E 24 B2 C7 28 31 33 36 |.......IN$..(136|
00001CD0: 29 A7 49 4E 24 B2 22 22 3A 46 24 B2 46 24 28 49 |).IN$."":F$.F$(I|
00001CE0: 29 00 05 18 D6 07 89 32 30 33 30 00 33 18 DA 07 |)......2030.3...|
00001CF0: 45 B2 30 3A 8D 33 34 30 30 30 3A 99 C8 28 59 24 |E.0:.34000:..(Y$|
00001D00: 2C 32 33 29 53 50 24 3A 8B 49 4E 24 B2 22 22 A7 |,23)SP$:.IN$."".|
00001D10: 49 4E 24 B2 46 24 28 49 29 00 45 18 DF 07 8B 49 |IN$.F$(I).E....I|
00001D20: 4E 24 B2 C7 28 31 33 33 29 A7 8E 00 5E 18 E4 07 |N$..(133)...^...|
00001D30: 8B 49 4E 24 B2 C7 28 31 33 36 29 AF 49 B2 31 A7 |.IN$..(136).I.1.|
00001D40: 32 30 30 30 00 89 18 E9 07 8B 49 4E 24 B2 C7 28 |2000......IN$..(|
00001D50: 31 33 36 29 A7 46 24 28 49 29 B2 46 24 3A 8D 33 |136).F$(I).F$:.3|
00001D60: 30 30 30 3A 49 B2 49 AB 31 3A 89 32 30 30 30 00 |000:I.I.1:.2000.|
00001D70: A0 18 EC 07 8B 49 4E 24 B2 C7 28 31 33 35 29 A7 |.....IN$..(135).|
00001D80: 49 4E 24 B2 22 22 00 C1 18 EE 07 46 24 28 49 29 |IN$."".....F$(I)|
00001D90: B2 49 4E 24 3A 8B C3 28 49 4E 24 29 B2 30 A7 46 |.IN$:..(IN$).0.F|
00001DA0: 24 28 49 29 B2 46 24 00 E5 18 F0 07 8B 44 25 28 |$(I).F$......D%(|
00001DB0: 49 29 B1 30 A7 8D 33 33 30 30 3A 8B 45 B1 30 A7 |I).0..3300:.E.0.|
00001DC0: 8D 33 30 31 30 3A 89 32 30 30 30 00 F5 18 F8 07 |.3010:.2000.....|
00001DD0: 8B 49 B3 B1 4B 46 A7 32 30 35 30 00 1F 19 F9 07 |.I..KF.2050.....|
00001DE0: 8B 54 24 28 49 29 B2 22 41 22 A7 49 4E 24 B2 46 |.T$(I)."A".IN$.F|
00001DF0: 24 28 49 29 3A 8D 33 34 32 30 35 3A 46 24 28 49 |$(I):.34205:F$(I|
00001E00: 29 B2 49 4E 24 00 5D 19 FD 07 8B C3 28 46 24 28 |).IN$.].....(F$(|
00001E10: 49 29 29 B2 30 A7 99 C8 28 59 24 2C 32 33 29 22 |I)).0...(Y$,23)"|
00001E20: 2A 20 D9 4F 55 20 4D 55 53 54 20 45 4E 54 45 52 |* .OU MUST ENTER|
00001E30: 20 53 4F 4D 45 54 48 49 4E 47 20 2A 22 3A 89 32 | SOMETHING *":.2|
00001E40: 30 30 30 00 6C 19 02 08 46 24 B2 47 24 28 49 29 |000.l...F$.G$(I)|
00001E50: 3A 8E 00 81 19 B8 0B 8B 54 24 28 49 29 B3 B1 22 |:.......T$(I).."|
00001E60: 44 22 A7 33 30 30 35 00 93 19 B9 0B 8B 46 24 B2 |D".3005......F$.|
00001E70: 22 22 A7 46 24 B2 42 4F 24 00 9E 19 BA 0B 8D 34 |"".F$.BO$......4|
00001E80: 39 34 31 32 00 E3 19 BD 0B 99 C8 28 59 24 2C 59 |9412.......(Y$,Y|
00001E90: 25 28 49 29 29 C8 28 58 24 2C 58 25 28 49 29 AA |%(I)).(X$,X%(I).|
00001EA0: C3 28 50 52 24 28 49 29 29 29 C8 28 46 24 AA 53 |.(PR$(I))).(F$.S|
00001EB0: 50 24 2C 4C 25 28 49 29 AB 32 AC 28 54 24 28 49 |P$,L%(I).2.(T$(I|
00001EC0: 29 B2 22 44 22 29 29 3A 8E 00 F6 19 C2 0B 99 C8 |)."D")):........|
00001ED0: 28 59 24 2C 32 33 29 45 4D 24 3A 8E 00 21 1A 1C |(Y$,23)EM$:..!..|
00001EE0: 0C 54 54 24 B2 22 C6 49 4E 49 53 48 45 44 20 57 |.TT$.".INISHED W|
00001EF0: 49 54 48 20 45 4E 54 52 59 3F 20 28 D2 C5 D4 D5 |ITH ENTRY? (....|
00001F00: D2 CE 3D 4E 4F 29 22 00 3E 1A 1D 0C 42 46 24 B2 |..=NO)".>...BF$.|
00001F10: 22 50 52 47 43 41 54 22 3A 8F 20 42 41 53 45 20 |"PRGCAT":. BASE |
00001F20: 46 49 4C 45 00 79 1A 20 0C 53 46 24 B2 42 46 24 |FILE.y. .SF$.BF$|
00001F30: AA 22 2F 53 22 3A 48 46 24 B2 42 46 24 AA 22 2F |."/S":HF$.BF$."/|
00001F40: 58 22 3A 44 46 24 B2 42 46 24 AA 22 30 2F 44 22 |X":DF$.BF$."0/D"|
00001F50: 3A 47 42 24 B2 42 46 24 AA 22 2F 47 4C 42 22 00 |:GB$.BF$."/GLB".|
00001F60: B5 1A 21 0C 4C B2 C3 28 48 46 24 29 3A 97 35 33 |..!.L..(HF$):.53|
00001F70: 32 33 32 2C 4C 3A 81 49 B2 31 A4 4C 3A 97 35 33 |232,L:.I.1.L:.53|
00001F80: 32 33 32 AA 49 2C C6 28 CA 28 22 30 3A 22 AA 48 |232.I,.(.("0:".H|
00001F90: 46 24 2C 49 2C 31 29 29 3A 82 49 00 D9 1A 26 0C |F$,I,1)):.I...&.|
00001FA0: 59 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 |Y$."............|
00001FB0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 |..............".|
00001FC0: 11 1B 2B 0C 58 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D |..+.X$."........|
00001FD0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001FE0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001FF0: 22 3A 8B 49 25 A7 8E 00 48 1B 2C 0C 54 31 24 B2 |":.I%...H.,.T1$.|
00002000: 22 D3 54 45 56 45 20 D2 45 41 47 41 4E 22 3A 54 |".TEVE .EAGAN":T|
00002010: 32 24 B2 22 20 D0 52 4F 47 52 41 4D 20 C3 41 54 |2$." .ROGRAM .AT|
00002020: 41 4C 4F 47 20 D5 54 49 4C 49 54 59 20 22 00 79 |ALOG .TILITY ".y|
00002030: 1B 2D 0C 54 32 24 B2 22 12 22 AA 54 32 24 AA 22 |.-.T2$.".".T2$."|
00002040: 92 22 3A 54 31 24 B2 22 D0 52 4F 47 52 41 4D 20 |.":T1$.".ROGRAM |
00002050: 44 45 53 49 47 4E 20 42 59 20 22 AA 54 31 24 00 |DESIGN BY ".T1$.|
00002060: 89 1B 2E 0C 4B 46 B2 33 3A 97 39 36 35 2C 32 00 |....KF.3:.965,2.|
00002070: A3 1B 30 0C 8D 35 30 32 30 30 3A 8D 33 33 30 31 |..0..50200:.3301|
00002080: 30 3A 8D 20 35 34 35 30 30 00 C6 1B 35 0C 53 53 |0:. 54500...5.SS|
00002090: 24 B2 22 22 3A 81 49 B2 31 A4 38 30 3A 53 53 24 |$."":.I.1.80:SS$|
000020A0: B2 53 53 24 AA C7 28 33 32 29 3A 82 00 FE 1B 3A |.SS$..(32):....:|
000020B0: 0C 53 50 24 B2 22 22 3A 44 54 24 B2 22 22 3A 81 |.SP$."":DT$."":.|
000020C0: 49 B2 31 A4 33 39 3A 53 50 24 B2 53 50 24 AA C7 |I.1.39:SP$.SP$..|
000020D0: 28 33 32 29 3A 44 54 24 B2 44 54 24 AA C7 28 34 |(32):DT$.DT$..(4|
000020E0: 36 29 3A 82 00 33 1C 3D 0C 4C 42 24 B2 22 1C AF |6):..3.=.LB$."..|
000020F0: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00002100: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00002110: AF AF AF AF AF AF AF 05 22 00 68 1C 3E 0C 55 42 |........".h.>.UB|
00002120: 24 B2 22 1C B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |$.".............|
00002130: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00002140: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 05 22 00 AA |............."..|
00002150: 1C 3F 0C 81 49 B2 31 A4 4E 46 3A 52 53 B2 52 53 |.?..I.1.NF:RS.RS|
00002160: AA 4C 25 28 49 29 AA 31 3A 82 49 3A 42 53 B2 AB |.L%(I).1:.I:BS..|
00002170: 32 35 34 AC 28 52 53 B1 32 35 33 29 AB 52 53 AC |254.(RS.253).RS.|
00002180: 28 52 53 B3 32 35 34 29 3A 97 37 31 30 2C 42 53 |(RS.254):.710,BS|
00002190: 00 C5 1C 44 0C 86 46 24 28 4E 46 29 2C 47 24 28 |...D..F$(NF),G$(|
000021A0: 4E 46 29 2C 44 54 25 28 31 32 29 00 F5 1C 49 0C |NF),DT%(12)...I.|
000021B0: 97 37 30 39 2C 4E 46 3A 42 4F 24 B2 22 22 3A 81 |.709,NF:BO$."":.|
000021C0: 49 B2 31 A4 36 3A 42 4F 24 B2 42 4F 24 AA C7 28 |I.1.6:BO$.BO$..(|
000021D0: 34 38 29 3A 82 3A 8D 39 39 37 30 00 0D 1D 58 0C |48):.:.9970...X.|
000021E0: 81 49 B2 31 A4 31 32 3A 44 54 25 28 49 29 B2 33 |.I.1.12:DT%(I).3|
000021F0: 31 3A 82 00 44 1D 5D 0C 44 54 25 28 32 29 B2 32 |1:..D.].DT%(2).2|
00002200: 39 3A 44 54 25 28 34 29 B2 33 30 3A 44 54 25 28 |9:DT%(4).30:DT%(|
00002210: 36 29 B2 33 30 3A 44 54 25 28 39 29 B2 33 30 3A |6).30:DT%(9).30:|
00002220: 44 54 25 28 31 31 29 B2 33 30 00 68 1D 80 0C 99 |DT%(11).30.h....|
00002230: 22 93 22 3A 8D 38 30 30 3A 4E 4F B2 31 30 AA 28 |".":.800:NO.10.(|
00002240: 4E 47 B2 30 29 3A 86 4F 50 24 28 31 30 29 00 86 |NG.0):.OP$(10)..|
00002250: 1D 85 0C 4F 50 24 28 31 29 B2 22 C6 49 4C 45 20 |...OP$(1).".ILE |
00002260: D0 52 45 50 41 52 41 54 49 4F 4E 22 00 A2 1D 8A |.REPARATION"....|
00002270: 0C 4F 50 24 28 32 29 B2 22 C5 4E 54 45 52 20 41 |.OP$(2).".NTER A|
00002280: 20 52 45 43 4F 52 44 22 00 C0 1D 8F 0C 4F 50 24 | RECORD".....OP$|
00002290: 28 33 29 B2 22 CC 4F 4F 4B 20 55 50 20 41 20 52 |(3).".OOK UP A R|
000022A0: 45 43 4F 52 44 22 00 DC 1D 94 0C 4F 50 24 28 34 |ECORD".....OP$(4|
000022B0: 29 B2 22 D3 45 41 52 43 48 20 52 45 43 4F 52 44 |).".EARCH RECORD|
000022C0: 53 22 00 FC 1D 99 0C 4F 50 24 28 35 29 B2 22 D3 |S".....OP$(5).".|
000022D0: 45 54 20 44 49 53 50 4C 41 59 20 43 4F 4C 4F 52 |ET DISPLAY COLOR|
000022E0: 53 22 00 1E 1E 9E 0C 4F 50 24 28 36 29 B2 22 D3 |S".....OP$(6).".|
000022F0: 59 53 54 45 4D 20 43 4F 4E 46 49 47 55 52 41 54 |YSTEM CONFIGURAT|
00002300: 49 4F 4E 22 00 40 1E A3 0C 4F 50 24 28 37 29 B2 |ION".@...OP$(7).|
00002310: 22 C1 43 43 45 53 53 20 4E 45 57 20 44 41 54 41 |".CCESS NEW DATA|
00002320: 20 46 49 4C 45 22 00 5B 1E A8 0C 4F 50 24 28 38 | FILE".[...OP$(8|
00002330: 29 B2 22 C5 58 49 54 20 54 4F 20 C2 C1 D3 C9 C3 |).".XIT TO .....|
00002340: 22 00 80 1E AD 0C 4F 50 24 28 39 29 B2 22 C5 58 |".....OP$(9).".X|
00002350: 49 54 20 54 4F 20 CD 45 4E 55 D7 52 49 54 45 52 |IT TO .ENU.RITER|
00002360: 20 4D 45 4E 55 22 00 A3 1E B2 0C 4F 50 24 28 31 | MENU".....OP$(1|
00002370: 30 29 B2 22 D6 45 52 49 46 59 20 C7 4C 4F 42 41 |0).".ERIFY .LOBA|
00002380: 4C 20 D4 4F 54 41 4C 53 22 00 D5 1E B7 0C 8B C2 |L .OTALS".......|
00002390: 28 32 30 35 33 29 B3 B1 31 35 38 A7 81 49 B2 35 |(2053)..158..I.5|
000023A0: 32 30 30 30 A4 35 32 30 32 37 3A 87 44 3A 97 49 |2000.52027:.D:.I|
000023B0: 2C 44 3A 82 3A 9E 35 32 30 30 30 00 DB 1E B8 0C |,D:.:.52000.....|
000023C0: 8E 00 28 1F C6 0C 83 31 36 39 2C 34 32 2C 31 34 |..(....169,42,14|
000023D0: 31 2C 34 30 2C 33 2C 31 36 39 2C 32 30 33 2C 31 |1,40,3,169,203,1|
000023E0: 34 31 2C 34 31 2C 33 2C 38 2C 31 30 34 2C 34 31 |41,41,3,8,104,41|
000023F0: 2C 32 35 33 2C 37 32 2C 34 30 2C 39 36 2C 31 36 |,253,72,40,96,16|
00002400: 39 2C 32 33 37 2C 31 34 31 2C 34 30 2C 33 00 41 |9,237,141,40,3.A|
00002410: 1F CB 0C 83 31 36 39 2C 32 34 36 2C 31 34 31 2C |....169,246,141,|
00002420: 34 31 2C 33 2C 39 36 00 8A 1F E4 0C 91 44 25 28 |41,3,96......D%(|
00002430: 49 29 AB 30 89 33 33 35 30 2C 33 33 36 34 2C 33 |I).0.3350,3364,3|
00002440: 33 37 30 2C 33 33 38 30 2C 33 33 38 36 2C 33 33 |370,3380,3386,33|
00002450: 39 32 2C 33 34 30 32 2C 33 34 30 38 2C 33 34 31 |92,3402,3408,341|
00002460: 34 2C 33 34 32 30 2C 33 34 32 36 2C 33 34 33 32 |4,3420,3426,3432|
00002470: 00 B6 1F E5 0C 91 44 25 28 49 29 AB 31 32 89 33 |......D%(I).12.3|
00002480: 34 33 38 2C 33 34 34 34 2C 33 34 35 30 2C 33 34 |438,3444,3450,34|
00002490: 35 36 2C 33 34 36 32 2C 33 34 36 38 00 CB 1F 16 |56,3462,3468....|
000024A0: 0D 8B C3 28 49 4E 24 29 B3 B1 30 A7 20 33 33 35 |...(IN$)..0. 335|
000024B0: 34 00 F8 1F 18 0D 45 4D 24 B2 22 2A 20 D9 4F 55 |4.....EM$."* .OU|
000024C0: 20 4D 55 53 54 20 45 4E 54 45 52 20 53 4F 4D 45 | MUST ENTER SOME|
000024D0: 54 48 49 4E 47 20 2A 22 3A 45 B2 31 3A 8E 00 17 |THING *":E.1:...|
000024E0: 20 1A 0D 43 44 24 B2 49 4E 24 3A 8D 33 30 30 30 | ..CD$.IN$:.3000|
000024F0: 30 3A 8B 45 B3 B1 31 A7 20 33 33 35 38 00 3B 20 |0:.E..1. 3358.; |
00002500: 1C 0D 45 4D 24 B2 22 2A 20 CE 55 4D 42 45 52 53 |..EM$."* .UMBERS|
00002510: 20 4F 4E 4C 59 20 50 4C 45 41 53 45 20 2A 22 3A | ONLY PLEASE *":|
00002520: 8E 00 52 20 1E 0D 8B A8 28 C3 28 49 4E 24 29 B1 |..R ....(.(IN$).|
00002530: 34 29 A7 20 33 33 36 32 00 76 20 20 0D 45 4D 24 |4). 3362.v .EM$|
00002540: B2 22 2A 20 C9 4D 50 52 4F 50 45 52 20 4C 45 4E |."* .MPROPER LEN|
00002550: 47 54 48 20 2A 22 3A 45 B2 31 3A 8E 00 7C 20 22 |GTH *":E.1:..| "|
00002560: 0D 8E 00 94 20 24 0D 8B A8 28 C3 28 49 4E 24 29 |.... $...(.(IN$)|
00002570: B1 31 36 29 A7 20 33 33 36 38 00 B8 20 26 0D 45 |.16). 3368.. &.E|
00002580: 4D 24 B2 22 2A 20 C9 4D 50 52 4F 50 45 52 20 4C |M$."* .MPROPER L|
00002590: 45 4E 47 54 48 20 2A 22 3A 45 B2 31 3A 8E 00 BE |ENGTH *":E.1:...|
000025A0: 20 28 0D 8E 00 D3 20 2A 0D 8B C3 28 49 4E 24 29 | (.... *...(IN$)|
000025B0: B3 B1 30 A7 20 33 33 37 34 00 00 21 2C 0D 45 4D |..0. 3374..!,.EM|
000025C0: 24 B2 22 2A 20 D9 4F 55 20 4D 55 53 54 20 45 4E |$."* .OU MUST EN|
000025D0: 54 45 52 20 53 4F 4D 45 54 48 49 4E 47 20 2A 22 |TER SOMETHING *"|
000025E0: 3A 45 B2 31 3A 8E 00 18 21 2E 0D 8B A8 28 C3 28 |:E.1:...!....(.(|
000025F0: 49 4E 24 29 B1 31 36 29 A7 20 33 33 37 38 00 3C |IN$).16). 3378.<|
00002600: 21 30 0D 45 4D 24 B2 22 2A 20 C9 4D 50 52 4F 50 |!0.EM$."* .MPROP|
00002610: 45 52 20 4C 45 4E 47 54 48 20 2A 22 3A 45 B2 31 |ER LENGTH *":E.1|
00002620: 3A 8E 00 42 21 32 0D 8E 00 59 21 34 0D 8B A8 28 |:..B!2...Y!4...(|
00002630: C3 28 49 4E 24 29 B1 33 29 A7 20 33 33 38 34 00 |.(IN$).3). 3384.|
00002640: 7F 21 36 0D 45 4D 24 B2 22 C5 4E 54 45 52 20 D0 |.!6.EM$.".NTER .|
00002650: D2 C7 2C D3 C5 D1 2C D2 C5 CC 2C D5 D3 D2 22 3A |..,...,...,...":|
00002660: 45 B2 31 3A 8E 00 85 21 38 0D 8E 00 9D 21 3A 0D |E.1:...!8....!:.|
00002670: 8B A8 28 C3 28 49 4E 24 29 B1 31 39 29 A7 20 33 |..(.(IN$).19). 3|
00002680: 33 39 30 00 C1 21 3C 0D 45 4D 24 B2 22 2A 20 C9 |390..!<.EM$."* .|
00002690: 4D 50 52 4F 50 45 52 20 4C 45 4E 47 54 48 20 2A |MPROPER LENGTH *|
000026A0: 22 3A 45 B2 31 3A 8E 00 C7 21 3E 0D 8E 00 DE 21 |":E.1:...!>....!|
000026B0: 40 0D 8B A8 28 C3 28 49 4E 24 29 B1 33 29 A7 20 |@...(.(IN$).3). |
000026C0: 33 33 39 36 00 02 22 42 0D 45 4D 24 B2 22 2A 20 |3396.."B.EM$."* |
000026D0: C9 4D 50 52 4F 50 45 52 20 4C 45 4E 47 54 48 20 |.MPROPER LENGTH |
000026E0: 2A 22 3A 45 B2 31 3A 8E 00 21 22 44 0D 43 44 24 |*":E.1:..!"D.CD$|
000026F0: B2 49 4E 24 3A 8D 33 30 30 30 30 3A 8B 45 B3 B1 |.IN$:.30000:.E..|
00002700: 31 A7 20 33 34 30 30 00 45 22 46 0D 45 4D 24 B2 |1. 3400.E"F.EM$.|
00002710: 22 2A 20 CE 55 4D 42 45 52 53 20 4F 4E 4C 59 20 |"* .UMBERS ONLY |
00002720: 50 4C 45 41 53 45 20 2A 22 3A 8E 00 4B 22 48 0D |PLEASE *":..K"H.|
00002730: 8E 00 63 22 4A 0D 8B A8 28 C3 28 49 4E 24 29 B1 |..c"J...(.(IN$).|
00002740: 33 36 29 A7 20 33 34 30 36 00 87 22 4C 0D 45 4D |36). 3406.."L.EM|
00002750: 24 B2 22 2A 20 C9 4D 50 52 4F 50 45 52 20 4C 45 |$."* .MPROPER LE|
00002760: 4E 47 54 48 20 2A 22 3A 45 B2 31 3A 8E 00 8D 22 |NGTH *":E.1:..."|
00002770: 4E 0D 8E 00 A5 22 50 0D 8B A8 28 C3 28 49 4E 24 |N...."P...(.(IN$|
00002780: 29 B1 33 36 29 A7 20 33 34 31 32 00 C9 22 52 0D |).36). 3412.."R.|
00002790: 45 4D 24 B2 22 2A 20 C9 4D 50 52 4F 50 45 52 20 |EM$."* .MPROPER |
000027A0: 4C 45 4E 47 54 48 20 2A 22 3A 45 B2 31 3A 8E 00 |LENGTH *":E.1:..|
000027B0: CF 22 54 0D 8E 00 E7 22 56 0D 8B A8 28 C3 28 49 |."T...."V...(.(I|
000027C0: 4E 24 29 B1 33 36 29 A7 20 33 34 31 38 00 0B 23 |N$).36). 3418..#|
000027D0: 58 0D 45 4D 24 B2 22 2A 20 C9 4D 50 52 4F 50 45 |X.EM$."* .MPROPE|
000027E0: 52 20 4C 45 4E 47 54 48 20 2A 22 3A 45 B2 31 3A |R LENGTH *":E.1:|
000027F0: 8E 00 11 23 5A 0D 8E 00 29 23 5C 0D 8B A8 28 C3 |...#Z...)#\...(.|
00002800: 28 49 4E 24 29 B1 33 36 29 A7 20 33 34 32 34 00 |(IN$).36). 3424.|
00002810: 4D 23 5E 0D 45 4D 24 B2 22 2A 20 C9 4D 50 52 4F |M#^.EM$."* .MPRO|
00002820: 50 45 52 20 4C 45 4E 47 54 48 20 2A 22 3A 45 B2 |PER LENGTH *":E.|
00002830: 31 3A 8E 00 53 23 60 0D 8E 00 6B 23 62 0D 8B A8 |1:..S#`...k#b...|
00002840: 28 C3 28 49 4E 24 29 B1 33 36 29 A7 20 33 34 33 |(.(IN$).36). 343|
00002850: 30 00 8F 23 64 0D 45 4D 24 B2 22 2A 20 C9 4D 50 |0..#d.EM$."* .MP|
00002860: 52 4F 50 45 52 20 4C 45 4E 47 54 48 20 2A 22 3A |ROPER LENGTH *":|
00002870: 45 B2 31 3A 8E 00 95 23 66 0D 8E 00 AD 23 68 0D |E.1:...#f....#h.|
00002880: 8B A8 28 C3 28 49 4E 24 29 B1 33 36 29 A7 20 33 |..(.(IN$).36). 3|
00002890: 34 33 36 00 D1 23 6A 0D 45 4D 24 B2 22 2A 20 C9 |436..#j.EM$."* .|
000028A0: 4D 50 52 4F 50 45 52 20 4C 45 4E 47 54 48 20 2A |MPROPER LENGTH *|
000028B0: 22 3A 45 B2 31 3A 8E 00 D7 23 6C 0D 8E 00 EF 23 |":E.1:...#l....#|
000028C0: 6E 0D 8B A8 28 C3 28 49 4E 24 29 B1 33 36 29 A7 |n...(.(IN$).36).|
000028D0: 20 33 34 34 32 00 13 24 70 0D 45 4D 24 B2 22 2A | 3442..$p.EM$."*|
000028E0: 20 C9 4D 50 52 4F 50 45 52 20 4C 45 4E 47 54 48 | .MPROPER LENGTH|
000028F0: 20 2A 22 3A 45 B2 31 3A 8E 00 19 24 72 0D 8E 00 | *":E.1:...$r...|
00002900: 31 24 74 0D 8B A8 28 C3 28 49 4E 24 29 B1 33 36 |1$t...(.(IN$).36|
00002910: 29 A7 20 33 34 34 38 00 55 24 76 0D 45 4D 24 B2 |). 3448.U$v.EM$.|
00002920: 22 2A 20 C9 4D 50 52 4F 50 45 52 20 4C 45 4E 47 |"* .MPROPER LENG|
00002930: 54 48 20 2A 22 3A 45 B2 31 3A 8E 00 5B 24 78 0D |TH *":E.1:..[$x.|
00002940: 8E 00 73 24 7A 0D 8B A8 28 C3 28 49 4E 24 29 B1 |..s$z...(.(IN$).|
00002950: 33 36 29 A7 20 33 34 35 34 00 97 24 7C 0D 45 4D |36). 3454..$|.EM|
00002960: 24 B2 22 2A 20 C9 4D 50 52 4F 50 45 52 20 4C 45 |$."* .MPROPER LE|
00002970: 4E 47 54 48 20 2A 22 3A 45 B2 31 3A 8E 00 9D 24 |NGTH *":E.1:...$|
00002980: 7E 0D 8E 00 B5 24 80 0D 8B A8 28 C3 28 49 4E 24 |~....$....(.(IN$|
00002990: 29 B1 33 36 29 A7 20 33 34 36 30 00 D9 24 82 0D |).36). 3460..$..|
000029A0: 45 4D 24 B2 22 2A 20 C9 4D 50 52 4F 50 45 52 20 |EM$."* .MPROPER |
000029B0: 4C 45 4E 47 54 48 20 2A 22 3A 45 B2 31 3A 8E 00 |LENGTH *":E.1:..|
000029C0: DF 24 84 0D 8E 00 F7 24 86 0D 8B A8 28 C3 28 49 |.$.....$....(.(I|
000029D0: 4E 24 29 B1 33 32 29 A7 20 33 34 36 36 00 1B 25 |N$).32). 3466..%|
000029E0: 88 0D 45 4D 24 B2 22 2A 20 C9 4D 50 52 4F 50 45 |..EM$."* .MPROPE|
000029F0: 52 20 4C 45 4E 47 54 48 20 2A 22 3A 45 B2 31 3A |R LENGTH *":E.1:|
00002A00: 8E 00 21 25 8A 0D 8E 00 39 25 8C 0D 8B A8 28 C3 |..!%....9%....(.|
00002A10: 28 49 4E 24 29 B1 33 32 29 A7 20 33 34 37 32 00 |(IN$).32). 3472.|
00002A20: 5D 25 8E 0D 45 4D 24 B2 22 2A 20 C9 4D 50 52 4F |]%..EM$."* .MPRO|
00002A30: 50 45 52 20 4C 45 4E 47 54 48 20 2A 22 3A 45 B2 |PER LENGTH *":E.|
00002A40: 31 3A 8E 00 63 25 90 0D 8E 00 91 25 40 1F 99 C8 |1:..c%.....%@...|
00002A50: 28 59 24 2C 32 33 29 53 50 24 3A 99 C8 28 59 24 |(Y$,23)SP$:..(Y$|
00002A60: 2C 32 34 29 53 50 24 3A 99 C8 28 59 24 2C 32 35 |,24)SP$:..(Y$,25|
00002A70: 29 53 50 24 3B 3A 8E 00 D6 25 A4 1F 4E 52 B2 C2 |)SP$;:...%..NR..|
00002A80: 28 36 39 31 29 AA 32 35 36 AC C2 28 36 39 32 29 |(691).256..(692)|
00002A90: 3A 58 46 53 B2 C2 28 36 38 31 29 AA 32 35 36 AC |:XFS..(681).256.|
00002AA0: C2 28 36 38 32 29 3A 4E 58 52 B2 C2 28 36 38 35 |.(682):NXR..(685|
00002AB0: 29 AA 32 35 36 AC C2 28 36 38 36 29 00 E5 25 A9 |).256..(686)..%.|
00002AC0: 1F 52 4D B2 4D 53 AB 4E 52 3A 8E 00 FF 25 08 20 |.RM.MS.NR:...%. |
00002AD0: 81 49 B2 31 A4 4E 46 3A 46 24 28 49 29 B2 47 24 |.I.1.NF:F$(I).G$|
00002AE0: 28 49 29 3A 82 00 1F 26 12 20 8B 4E 43 B1 30 A7 |(I):...&. .NC.0.|
00002AF0: 81 49 B2 31 A4 4E 43 3A 43 44 28 49 29 B2 43 45 |.I.1.NC:CD(I).CE|
00002B00: 28 49 29 3A 82 00 3F 26 17 20 8B 4E 47 B1 30 A7 |(I):..?&. .NG.0.|
00002B10: 81 49 B2 31 A4 4E 47 3A 47 4C 28 49 29 B2 47 4B |.I.1.NG:GL(I).GK|
00002B20: 28 49 29 3A 82 00 45 26 1C 20 8E 00 5F 26 3A 20 |(I):..E&. .._&: |
00002B30: 81 49 B2 31 A4 4E 46 3A 47 24 28 49 29 B2 46 24 |.I.1.NF:G$(I).F$|
00002B40: 28 49 29 3A 82 00 7F 26 44 20 8B 4E 43 B1 30 A7 |(I):...&D .NC.0.|
00002B50: 81 49 B2 31 A4 4E 43 3A 43 45 28 49 29 B2 43 44 |.I.1.NC:CE(I).CD|
00002B60: 28 49 29 3A 82 00 9F 26 49 20 8B 4E 47 B1 30 A7 |(I):...&I .NG.0.|
00002B70: 81 49 B2 31 A4 4E 47 3A 47 4B 28 49 29 B2 47 4C |.I.1.NG:GK(I).GL|
00002B80: 28 49 29 3A 82 00 A5 26 4E 20 8E 00 CB 26 6C 20 |(I):...&N ...&l |
00002B90: 91 C2 28 39 36 35 29 8D 33 33 30 30 30 2C 33 33 |..(965).33000,33|
00002BA0: 31 35 31 3A 8B 41 41 24 B2 C7 28 31 33 33 29 A7 |151:.AA$..(133).|
00002BB0: 8E 00 D6 26 6D 20 8B 46 31 25 A7 8E 00 F7 26 71 |...&m .F1%....&q|
00002BC0: 20 46 49 24 B2 48 46 24 3A 50 51 B2 30 3A 8D 35 | FI$.HF$:PQ.0:.5|
00002BD0: 32 32 31 30 3A 8B 44 53 B1 31 39 A7 8E 00 35 27 |2210:.DS.19...5'|
00002BE0: 76 20 99 22 93 11 11 11 11 22 A6 31 30 29 22 CC |v .".....".10)".|
00002BF0: 4F 41 44 49 4E 47 20 C9 4E 44 45 58 20 C6 49 4C |OADING .NDEX .IL|
00002C00: 45 20 2E 2E 2E 22 3A 9E 34 39 36 31 30 3A 8D 31 |E ...":.49610:.1|
00002C10: 33 30 30 30 3A 46 31 25 B2 AB 31 00 68 27 7B 20 |3000:F1%..1.h'{ |
00002C20: 99 22 93 22 3A 4D 53 B2 C2 28 36 39 33 29 AA 32 |.".":MS..(693).2|
00002C30: 35 36 AC C2 28 36 39 34 29 3A 50 51 B2 31 3A 8B |56..(694):PQ.1:.|
00002C40: C2 28 32 30 35 33 29 B3 B1 31 35 38 A7 8E 00 A9 |.(2053)..158....|
00002C50: 27 80 20 54 B2 28 4D 53 AC 32 29 AA 36 31 31 34 |'. T.(MS.2).6114|
00002C60: 35 3A 48 54 B2 B5 28 54 AD 32 35 36 29 3A 4C 54 |5:HT..(T.256):LT|
00002C70: B2 54 AB 48 54 AC 32 35 36 3A 97 34 31 30 32 34 |.T.HT.256:.41024|
00002C80: 2C 4C 54 3A 97 34 31 30 32 35 2C 48 54 3A 8E 00 |,LT:.41025,HT:..|
00002C90: C4 27 9E 20 8B 54 24 28 49 29 B2 22 41 22 B0 54 |.'. .T$(I)."A".T|
00002CA0: 24 28 49 29 B2 22 44 22 A7 8E 00 FB 27 A3 20 42 |$(I)."D"....'. B|
00002CB0: 24 B2 46 24 28 49 29 3A 41 24 B2 22 4C 22 3A 8D |$.F$(I):A$."L":.|
00002CC0: 34 31 30 30 30 3A 8B 49 39 B2 30 A7 41 24 B2 22 |41000:.I9.0.A$."|
00002CD0: 4D 22 3A 8D 34 31 30 30 30 3A 8B 49 39 B2 30 A7 |M":.41000:.I9.0.|
00002CE0: 8E 00 2A 28 B2 20 46 24 28 49 29 B2 C4 28 C5 28 |..*(. F$(I)..(.(|
00002CF0: 42 24 29 AC 28 28 41 24 B2 22 4C 22 29 AB 28 41 |B$).((A$."L").(A|
00002D00: 24 B2 22 4D 22 29 29 AA C5 28 46 24 29 29 3A 8E |$."M"))..(F$)):.|
00002D10: 00 3A 28 60 22 8B C2 28 39 36 35 29 B2 31 A7 8E |.:(`"..(965).1..|
00002D20: 00 49 28 61 22 8B A8 46 31 25 A7 38 38 31 30 00 |.I(a"..F1%.8810.|
00002D30: 62 28 64 22 8D 33 33 31 35 31 3A 8B 41 41 24 B2 |b(d".33151:.AA$.|
00002D40: C7 28 31 33 33 29 A7 8E 00 77 28 65 22 8D 32 30 |.(133)...w(e".20|
00002D50: 30 3A 3A 50 51 B2 30 3A 46 31 25 B2 30 00 90 28 |0::PQ.0:F1%.0..(|
00002D60: 6A 22 8D 33 33 31 37 30 3A 8B 41 41 24 B2 C7 28 |j".33170:.AA$..(|
00002D70: 31 33 33 29 A7 8E 00 9C 28 6F 22 8D 38 33 30 30 |133)....(o".8300|
00002D80: 3A 8E 00 BC 28 28 23 8D 20 39 31 30 30 3A 8F 20 |:...((#. 9100:. |
00002D90: 43 48 45 43 4B 20 46 4F 52 20 4F 56 45 52 46 4C |CHECK FOR OVERFL|
00002DA0: 4F 57 00 D2 28 37 23 5A 5A 24 B2 46 24 28 4B 46 |OW..(7#ZZ$.F$(KF|
00002DB0: 29 3A 8D 32 36 30 30 30 00 E8 28 3C 23 9E 20 34 |):.26000..(<#. 4|
00002DC0: 39 31 35 32 3A 8F 20 47 45 54 20 58 46 53 00 03 |9152:. GET XFS..|
00002DD0: 29 46 23 8D 20 39 39 30 30 3A 8F 20 57 52 49 54 |)F#. 9900:. WRIT|
00002DE0: 45 20 52 45 43 20 52 54 4E 00 12 29 50 23 8B 41 |E REC RTN..)P#.A|
00002DF0: 4E 24 B2 22 55 22 A7 8E 00 27 29 55 23 8D 38 31 |N$."U"...')U#.81|
00002E00: 30 30 3A 8B 52 4D B2 30 A7 39 30 36 35 00 51 29 |00:.RM.0.9065.Q)|
00002E10: 5F 23 99 C8 28 59 24 2C 32 33 29 3B 22 D2 45 43 |_#..(Y$,23);".EC|
00002E20: 2E 20 45 4E 54 45 52 45 44 3A 22 3B CA 28 C4 28 |. ENTERED:";.(.(|
00002E30: 4E 52 29 2C 32 29 3B 00 76 29 64 23 99 22 20 D2 |NR),2);.v)d#." .|
00002E40: 45 43 2E 20 53 50 41 43 45 53 20 4C 45 46 54 3A |EC. SPACES LEFT:|
00002E50: 22 3B CA 28 C4 28 52 4D 29 2C 32 29 00 A4 29 69 |";.(.(RM),2)..)i|
00002E60: 23 8B 52 4D B2 30 A7 8D 38 30 30 30 3A 99 C8 28 |#.RM.0..8000:..(|
00002E70: 59 24 2C 32 33 29 3B A3 36 29 3B 22 12 20 C6 C9 |Y$,23);.6);". ..|
00002E80: CC C5 20 C6 D5 CC CC 20 92 22 00 C7 29 6E 23 99 |.. .... ."..)n#.|
00002E90: 22 D0 52 45 53 53 20 12 D2 C5 D4 D5 D2 CE 92 20 |".RESS ........ |
00002EA0: 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 22 00 E1 29 |TO CONTINUE."..)|
00002EB0: 73 23 A1 41 41 24 3A 8B 41 41 24 B3 B1 C7 28 31 |s#.AA$:.AA$...(1|
00002EC0: 33 29 A7 39 30 37 35 00 F3 29 78 23 99 C8 28 59 |3).9075..)x#..(Y|
00002ED0: 24 2C 32 33 29 3B 53 50 24 00 FF 29 7D 23 8B 52 |$,23);SP$..)}#.R|
00002EE0: 4D B2 30 A7 8E 00 1F 2A 82 23 99 C8 28 59 24 2C |M.0....*.#..(Y$,|
00002EF0: 32 34 29 3B 53 50 24 3A 99 C8 28 59 24 2C 32 34 |24);SP$:..(Y$,24|
00002F00: 29 3B 54 54 24 00 41 2A 84 23 58 25 B2 C3 28 54 |);TT$.A*.#X%..(T|
00002F10: 54 24 29 AA 31 3A 59 25 B2 32 34 3A 4C 25 B2 31 |T$).1:Y%.24:L%.1|
00002F20: 3A 8D 33 34 30 30 30 00 55 2A 85 23 8B C8 28 49 |:.34000.U*.#..(I|
00002F30: 4E 24 2C 31 29 B2 22 59 22 A7 8E 00 70 2A 86 23 |N$,1)."Y"...p*.#|
00002F40: 8B C3 28 49 4E 24 29 B2 30 B0 49 4E 24 B2 22 4E |..(IN$).0.IN$."N|
00002F50: 22 A7 39 30 39 36 00 A9 2A 87 23 99 C8 28 59 24 |".9096..*.#..(Y$|
00002F60: 2C 32 33 29 3B 22 D0 4C 45 41 53 45 20 41 4E 53 |,23);".LEASE ANS|
00002F70: 57 45 52 20 59 20 4F 52 20 4E 20 28 12 D2 C5 D4 |WER Y OR N (....|
00002F80: D5 D2 CE 92 3D 4E 4F 29 22 3A 89 39 30 39 30 00 |....=NO)":.9090.|
00002F90: C9 2A 88 23 47 24 B2 22 22 3A 46 43 B2 30 3A 99 |.*.#G$."":FC.0:.|
00002FA0: 22 93 22 3B 3A 55 46 B2 30 3A 89 31 30 31 30 00 |".";:UF.0:.1010.|
00002FB0: E3 2A 8C 23 97 37 30 38 2C 30 3A 8B 20 C2 28 36 |.*.#.708,0:. .(6|
00002FC0: 38 34 29 B2 32 35 35 A7 8E 00 15 2B 94 23 97 36 |84).255....+.#.6|
00002FD0: 38 31 2C C2 28 36 38 33 29 3A 97 36 38 32 2C C2 |81,.(683):.682,.|
00002FE0: 28 36 38 34 29 3A 8F 20 53 45 54 20 58 46 53 3D |(684):. SET XFS=|
00002FF0: 44 45 4C 45 54 45 44 20 52 45 43 00 47 2B 96 23 |DELETED REC.G+.#|
00003000: 97 37 30 38 2C 31 3A 44 4C 25 B2 31 3A 8D 39 37 |.708,1:DL%.1:.97|
00003010: 30 30 3A 44 4C 25 B2 30 3A 9E 20 35 30 36 34 30 |00:DL%.0:. 50640|
00003020: 3A 8F 20 52 45 41 44 20 4F 56 46 4C 57 00 4D 2B |:. READ OVFLW.M+|
00003030: A0 23 8E 00 6A 2B E4 25 52 50 B2 C2 28 36 38 31 |.#..j+.%RP..(681|
00003040: 29 AA C2 28 36 38 32 29 AC 32 35 36 AA 44 4C 25 |)..(682).256.DL%|
00003050: 00 9E 2B E9 25 42 4C B2 B5 28 52 53 AC 28 52 50 |..+.%BL..(RS.(RP|
00003060: AB 31 29 AD 42 53 29 AA 31 3A 4F 53 B2 28 52 53 |.1).BS).1:OS.(RS|
00003070: AC 28 52 50 AB 31 29 29 AB 28 42 53 AC 28 42 4C |.(RP.1)).(BS.(BL|
00003080: AB 31 29 29 00 BC 2B EE 25 48 42 B2 B5 28 42 4C |.1))..+.%HB..(BL|
00003090: AD 32 35 36 29 3A 4C 42 B2 42 4C AB 32 35 36 AC |.256):LB.BL.256.|
000030A0: 48 42 00 DA 2B F8 25 97 37 31 35 2C 4C 42 3A 97 |HB..+.%.715,LB:.|
000030B0: 37 31 36 2C 48 42 3A 97 37 31 31 2C 4F 53 AA 31 |716,HB:.711,OS.1|
000030C0: 00 E0 2B 02 26 8E 00 F9 2B 48 26 8D 39 37 30 30 |..+.&...+H&.9700|
000030D0: 3A 8F 20 42 4C 4B 20 4C 4F 43 41 54 49 4F 4E 00 |:. BLK LOCATION.|
000030E0: 19 2C 4D 26 8D 39 39 37 30 3A 9E 20 35 30 31 30 |.,M&.9970:. 5010|
000030F0: 36 3A 8F 20 52 45 41 44 20 49 4E 20 52 45 43 00 |6:. READ IN REC.|
00003100: 1F 2C 52 26 8E 00 36 2C AC 26 8D 39 39 37 30 3A |.,R&..6,.&.9970:|
00003110: 8F 20 50 41 44 20 46 49 45 4C 44 53 00 4F 2C B6 |. PAD FIELDS.O,.|
00003120: 26 8D 39 37 30 30 3A 8F 20 42 4C 4B 20 4C 4F 43 |&.9700:. BLK LOC|
00003130: 41 54 49 4F 4E 00 6A 2C C0 26 9E 20 35 30 31 36 |ATION.j,.&. 5016|
00003140: 30 3A 8F 20 57 52 49 54 45 20 49 4E 20 52 45 43 |0:. WRITE IN REC|
00003150: 00 86 2C CA 26 97 37 30 38 2C 30 3A 8F 20 43 4C |..,.&.708,0:. CL|
00003160: 45 41 52 20 4F 56 45 52 46 4C 4F 57 00 8C 2C DE |EAR OVERFLOW..,.|
00003170: 26 8E 00 AE 2C F2 26 81 49 B2 31 A4 4E 46 3A 8B |&...,.&.I.1.NF:.|
00003180: 20 C3 28 46 24 28 49 29 29 B2 4C 25 28 49 29 A7 | .(F$(I)).L%(I).|
00003190: 39 39 38 35 00 CD 2C F7 26 8B 54 24 28 49 29 B2 |9985..,.&.T$(I).|
000031A0: 22 44 22 A7 46 24 28 49 29 B2 42 4F 24 3A 89 39 |"D".F$(I).BO$:.9|
000031B0: 39 38 35 00 FB 2C FC 26 8B 54 24 28 49 29 B2 22 |985..,.&.T$(I)."|
000031C0: 41 22 A7 46 24 28 49 29 B2 C8 28 46 24 28 49 29 |A".F$(I)..(F$(I)|
000031D0: AA 53 50 24 2C 4C 25 28 49 29 29 3A 89 39 39 38 |.SP$,L%(I)):.998|
000031E0: 35 00 2A 2D FD 26 46 24 28 49 29 B2 C4 28 C5 28 |5.*-.&F$(I)..(.(|
000031F0: 46 24 28 49 29 29 29 3A 46 24 28 49 29 B2 C9 28 |F$(I))):F$(I)..(|
00003200: 53 50 24 AA 46 24 28 49 29 2C 4C 25 28 49 29 29 |SP$.F$(I),L%(I))|
00003210: 00 33 2D 01 27 82 49 3A 8E 00 52 2D 10 27 52 46 |.3-.'.I:..R-.'RF|
00003220: 25 B2 30 3A 8D 32 37 30 30 30 3A 8B 49 4E 24 B2 |%.0:.27000:.IN$.|
00003230: C7 28 31 33 33 29 A7 8E 00 68 2D 1A 27 97 37 30 |.(133)...h-.'.70|
00003240: 31 2C 32 35 35 3A 97 37 30 32 2C 32 35 35 00 81 |1,255:.702,255..|
00003250: 2D 1F 27 9E 34 39 33 34 34 3A 20 8F 20 4C 4F 4F |-.'.49344: . LOO|
00003260: 4B 55 50 20 52 54 4E 00 A1 2D 24 27 8B C2 28 36 |KUP RTN..-$'..(6|
00003270: 38 32 29 B2 32 35 35 A7 8D 32 37 31 31 30 3A 52 |82).255..27110:R|
00003280: 46 25 B2 AB 31 3A 8E 00 BD 2D 2E 27 8D 39 38 30 |F%..1:...-.'.980|
00003290: 30 3A 8F 20 20 52 45 41 44 20 52 45 43 4F 52 44 |0:. READ RECORD|
000032A0: 20 49 4E 00 DE 2D 2F 27 8B 54 24 28 4B 46 29 B2 | IN..-/'.T$(KF).|
000032B0: 22 41 22 B0 54 24 28 4B 46 29 B2 22 44 22 A7 31 |"A".T$(KF)."D".1|
000032C0: 30 30 33 35 00 FB 2D 30 27 8B C5 28 5A 5A 24 29 |0035..-0'..(ZZ$)|
000032D0: B3 B1 C5 28 46 24 28 4B 46 29 29 A7 31 30 30 31 |...(F$(KF)).1001|
000032E0: 35 00 06 2E 31 27 89 31 30 30 34 30 00 27 2E 33 |5...1'.10040.'.3|
000032F0: 27 8B C8 28 46 24 28 4B 46 29 2C C3 28 5A 5A 24 |'..(F$(KF),.(ZZ$|
00003300: 29 29 B3 B1 5A 5A 24 A7 31 30 30 31 35 00 40 2E |))..ZZ$.10015.@.|
00003310: 38 27 8D 32 38 31 30 30 3A 8D 32 39 30 31 30 3A |8'.28100:.29010:|
00003320: 8D 32 39 31 38 30 00 58 2E 42 27 8B C3 28 49 4E |.29180.X.B'..(IN|
00003330: 24 29 B2 30 B0 49 4E 24 B2 22 59 22 A7 8E 00 63 |$).0.IN$."Y"...c|
00003340: 2E 4C 27 89 31 30 30 31 35 00 80 2E D8 27 8D 38 |.L'.10015....'.8|
00003350: 33 30 30 3A 8B 41 41 24 B2 C7 28 31 33 33 29 B0 |300:.AA$..(133).|
00003360: A8 46 31 25 A7 8E 00 92 2E D9 27 8D 38 31 30 30 |.F1%......'.8100|
00003370: 3A 8B 4E 52 B2 30 A7 8E 00 9D 2E DA 27 8D 31 30 |:.NR.0......'.10|
00003380: 30 30 30 00 B3 2E DD 27 8B 52 46 25 B0 49 4E 24 |000....'.RF%.IN$|
00003390: B2 C7 28 31 33 33 29 A7 8E 00 BE 2E E2 27 8D 32 |..(133)......'.2|
000033A0: 39 32 32 30 00 DC 2E EC 27 8B 49 4E 24 B2 C7 28 |9220....'.IN$..(|
000033B0: 31 33 29 A7 20 8D 31 30 30 31 35 3A 89 31 30 32 |13). .10015:.102|
000033C0: 30 35 00 E2 2E 32 28 8E 00 F7 2E F8 2A 8D 31 30 |05...2(.....*.10|
000033D0: 30 30 30 3A 8B 20 52 46 25 20 A7 20 8E 00 08 2F |000:. RF% . .../|
000033E0: 18 2E 8D 38 32 35 30 3A 89 31 31 38 31 32 00 1E |...8250:.11812..|
000033F0: 2F 22 2E 8B 49 4E 24 B2 C7 28 31 33 35 29 A7 31 |/"..IN$..(135).1|
00003400: 31 38 32 36 00 5A 2F 24 2E 99 C8 28 59 24 2C 32 |1826.Z/$...(Y$,2|
00003410: 33 29 3B 22 D7 48 49 43 48 20 46 49 45 4C 44 20 |3);".HICH FIELD |
00003420: 54 4F 20 55 50 44 41 54 45 3F 20 28 31 2D 22 3B |TO UPDATE? (1-";|
00003430: 4E 46 3B 22 20 4F 52 20 12 4C 92 49 53 54 29 22 |NF;" OR .L.IST)"|
00003440: 00 95 2F 27 2E 99 C8 28 59 24 2C 32 34 29 22 20 |../'...(Y$,24)" |
00003450: 20 12 46 31 92 20 54 4F 20 45 58 49 54 2C 20 12 | .F1. TO EXIT, .|
00003460: 46 35 92 20 54 4F 20 43 41 4E 43 45 4C 20 4F 52 |F5. TO CANCEL OR|
00003470: 20 20 20 20 20 20 20 20 20 20 22 00 B9 2F 2A 2E | "../*.|
00003480: 99 C8 28 59 24 2C 32 35 29 22 20 20 12 D2 C5 D4 |..(Y$,25)" ....|
00003490: D5 D2 CE 92 20 54 4F 20 53 41 56 45 2E 22 3B 00 |.... TO SAVE.";.|
000034A0: D5 2F 2C 2E 58 25 B2 31 39 3A 59 25 B2 32 35 3A |./,.X%.19:Y%.25:|
000034B0: 4C 25 B2 34 3A 8D 33 34 30 30 30 00 F7 2F 2F 2E |L%.4:.34000..//.|
000034C0: 55 46 B2 C5 28 49 4E 24 29 3A 8D 38 30 30 30 3A |UF..(IN$):.8000:|
000034D0: 8B 49 4E 24 B2 22 22 A7 31 31 39 30 30 00 0E 30 |.IN$."".11900..0|
000034E0: 30 2E 8B 49 4E 24 B3 B1 C7 28 31 33 35 29 A7 31 |0..IN$...(135).1|
000034F0: 31 38 32 38 00 26 30 32 2E 8D 38 32 30 30 3A 8D |1828.&02..8200:.|
00003500: 32 39 30 31 30 3A 89 31 31 38 31 32 00 4C 30 34 |29010:.11812.L04|
00003510: 2E 8B 49 4E 24 B2 22 4C 22 A7 46 B2 30 3A 8D 32 |..IN$."L".F.0:.2|
00003520: 30 30 30 30 3A 8D 32 39 30 30 30 3A 89 31 31 38 |0000:.29000:.118|
00003530: 31 32 00 6B 30 36 2E 8B 49 4E 24 B2 C7 28 31 33 |12.k06..IN$..(13|
00003540: 33 29 A7 8D 38 32 30 30 3A 8D 32 39 30 31 30 3A |3)..8200:.29010:|
00003550: 8E 00 82 30 3B 2E 8B 55 46 B1 30 AF 55 46 B3 B2 |...0;..UF.0.UF..|
00003560: 4E 46 A7 31 31 38 38 30 00 99 30 40 2E 99 C8 28 |NF.11880..0@...(|
00003570: 59 24 2C 32 33 29 3B 53 50 24 3A 99 53 50 24 00 |Y$,23);SP$:.SP$.|
00003580: CC 30 45 2E 99 C8 28 59 24 2C 32 33 29 3B 22 2A |.0E...(Y$,23);"*|
00003590: C9 4E 56 41 4C 49 44 20 46 49 45 4C 44 2A 22 3A |.NVALID FIELD*":|
000035A0: 81 49 B2 31 A4 31 30 30 30 3A 82 3A 89 31 31 38 |.I.1.1000:.:.118|
000035B0: 31 32 00 FF 30 68 2E 47 24 B2 22 22 3A 49 B2 55 |12..0h.G$."":I.U|
000035C0: 46 3A 97 36 35 30 2C 31 32 38 3A 8D 32 30 30 30 |F:.650,128:.2000|
000035D0: 3A 97 36 35 30 2C 30 3A 8B 49 4E 24 B2 C7 28 31 |:.650,0:.IN$..(1|
000035E0: 33 33 29 A7 8E 00 09 31 69 2E 8D 38 33 35 30 00 |33)....1i..8350.|
000035F0: 1B 31 6C 2E 8D 32 39 30 31 30 3A 89 31 31 38 31 |.1l..29010:.1181|
00003600: 30 00 34 31 7C 2E 8B 47 24 28 4B 46 29 B2 46 24 |0.41|..G$(KF).F$|
00003610: 28 4B 46 29 A7 31 31 39 35 30 00 52 31 86 2E 9E |(KF).11950.R1...|
00003620: 34 39 34 36 36 3A 8F 20 44 45 4C 45 54 45 20 49 |49466:. DELETE I|
00003630: 4E 44 45 58 20 50 54 52 00 6E 31 8B 2E 8D 39 30 |NDEX PTR.n1...90|
00003640: 30 30 3A 8E 3A 8F 20 45 4E 54 45 52 20 4E 45 57 |00:.:. ENTER NEW|
00003650: 20 52 45 43 00 8D 31 AE 2E 8D 39 31 31 30 3A 8D | REC..1...9110:.|
00003660: 39 39 30 30 3A 8F 20 57 52 49 54 45 20 52 45 43 |9900:. WRITE REC|
00003670: 4F 52 44 00 93 31 D6 2E 8E 00 A7 31 E0 2E 8D 31 |ORD..1.....1...1|
00003680: 30 30 30 30 3A 8B 20 52 46 25 20 A7 8E 00 CC 31 |0000:. RF% ....1|
00003690: 3F 2F 8D 31 32 38 30 30 3A 8F 20 44 49 53 50 4C |?/.12800:. DISPL|
000036A0: 41 59 20 50 52 4D 50 54 20 54 4F 20 44 45 4C 45 |AY PRMPT TO DELE|
000036B0: 54 45 00 DB 31 44 2F 8B 49 4E 24 B2 22 4E 22 A7 |TE..1D/.IN$."N".|
000036C0: 8E 00 EF 31 49 2F 8D 39 37 30 30 3A 8F 20 52 45 |...1I/.9700:. RE|
000036D0: 2D 48 41 53 48 00 0D 32 4E 2F 9E 20 35 30 36 30 |-HASH..2N/. 5060|
000036E0: 38 3A 8F 20 52 45 43 20 26 20 49 4E 44 45 58 20 |8:. REC & INDEX |
000036F0: 50 54 52 00 3C 32 76 2F 4E 52 B2 4E 52 AB 31 3A |PTR.<2v/NR.NR.1:|
00003700: 52 4D B2 52 4D AA 31 3A 8F 20 55 50 44 41 54 45 |RM.RM.1:. UPDATE|
00003710: 20 23 52 45 43 20 26 20 53 50 41 43 45 20 4C 45 | #REC & SPACE LE|
00003720: 46 54 00 49 32 80 2F 8D 31 33 31 30 30 3A 8E 00 |FT.I2./.13100:..|
00003730: 5C 32 00 32 99 C8 28 59 24 2C 32 34 29 3B 53 50 |\2.2..(Y$,24);SP|
00003740: 24 3B 00 8E 32 02 32 99 C8 28 59 24 2C 32 34 29 |$;..2.2..(Y$,24)|
00003750: 3B 22 D3 55 52 45 20 59 4F 55 20 57 41 4E 54 20 |;".URE YOU WANT |
00003760: 54 4F 20 44 45 4C 45 54 45 20 49 54 3F 20 28 59 |TO DELETE IT? (Y|
00003770: 2F 4E 29 22 00 AA 32 05 32 59 25 B2 32 34 3A 58 |/N)"..2.2Y%.24:X|
00003780: 25 B2 33 34 3A 4C 25 B2 31 3A 8D 33 34 30 30 30 |%.34:L%.1:.34000|
00003790: 00 C7 32 14 32 8B 49 4E 24 B3 B1 22 59 22 AF 49 |..2.2.IN$.."Y".I|
000037A0: 4E 24 B3 B1 22 4E 22 A7 31 32 38 30 30 00 CD 32 |N$.."N".12800..2|
000037B0: 1E 32 8E 00 D9 32 C8 32 8B 4E 47 B2 30 A7 8E 00 |.2...2.2.NG.0...|
000037C0: ED 32 CD 32 9F 33 2C 44 56 2C 33 2C 44 43 24 AA |.2.2.3,DV,3,DC$.|
000037D0: 47 42 24 00 09 33 D2 32 81 49 B2 31 A4 4E 47 3A |GB$..3.2.I.1.NG:|
000037E0: 84 33 2C 47 4C 28 49 29 3A 82 3A A0 33 3A 8E 00 |.3,GL(I):.:.3:..|
000037F0: 15 33 FA 32 8B 4E 47 B2 30 A7 8E 00 34 33 FF 32 |.3.2.NG.0...43.2|
00003800: 9F 33 2C 44 56 2C 33 2C 22 40 22 AA 44 43 24 AA |.3,DV,3,"@".DC$.|
00003810: 47 42 24 AA 22 2C 53 2C 57 22 00 50 33 04 33 81 |GB$.",S,W".P3.3.|
00003820: 49 B2 31 A4 4E 47 3A 98 33 2C 47 4C 28 49 29 3A |I.1.NG:.3,GL(I):|
00003830: 82 3A A0 33 3A 8E 00 56 33 2C 33 8F 00 61 33 2D |.:.3:..V3,3..a3-|
00003840: 33 8D 32 38 31 30 30 00 67 33 35 33 8E 00 6D 33 |3.28100.g353..m3|
00003850: 90 33 8E 00 A6 33 12 34 99 C8 28 59 24 2C 32 34 |.3...3.4..(Y$,24|
00003860: 29 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |)"..............|
00003870: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003880: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 3B 00 CD 33 15 |..........";..3.|
00003890: 34 99 A6 38 29 22 D0 52 45 53 53 20 12 D2 45 54 |4..8)".RESS ..ET|
000038A0: 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |URN. TO CONTINUE|
000038B0: 2E 22 3B 00 E6 33 17 34 A1 41 24 3A 8B 41 24 B3 |.";..3.4.A$:.A$.|
000038C0: B1 C7 28 31 33 29 A7 31 33 33 33 35 00 EC 33 1C |..(13).13335..3.|
000038D0: 34 8E 00 FB 33 20 4E 99 22 93 22 3B 3A 4A 4A B2 |4...3 N.".";:JJ.|
000038E0: 34 00 09 34 25 4E 81 4A B2 31 A4 4E 46 A9 32 00 |4..4%N.J.1.NF.2.|
000038F0: 25 34 2A 4E 8B 4A 4A B1 32 31 A7 8D 31 33 33 33 |%4*N.JJ.21..1333|
00003900: 30 3A 4A 4A B2 34 3A 99 22 93 22 00 49 34 2F 4E |0:JJ.4:.".".I4/N|
00003910: 8B 4A 4A B2 34 A7 99 22 13 11 12 2A CB 45 59 42 |.JJ.4.."...*.EYB|
00003920: 4F 41 52 44 20 C5 4E 54 45 52 45 44 2A 92 22 00 |OARD .NTERED*.".|
00003930: 7A 34 34 4E 99 C8 28 59 24 2C 4A 4A 29 22 12 CB |z44N..(Y$,JJ)"..|
00003940: 45 22 AA CA 28 C4 28 4A 29 2C 32 29 22 92 3D 22 |E"..(.(J),2)".="|
00003950: C8 28 50 52 24 28 4A 29 AA 53 50 24 2C 31 30 29 |.(PR$(J).SP$,10)|
00003960: 00 93 34 39 4E 8B 4A B2 4E 46 A7 4A 4A B2 4A 4A |..49N.J.NF.JJ.JJ|
00003970: AA 31 3A 89 32 30 30 34 30 00 D9 34 3E 4E 99 C8 |.1:.20040..4>N..|
00003980: 28 59 24 2C 4A 4A 29 C8 28 58 24 2C 32 30 29 22 |(Y$,JJ).(X$,20)"|
00003990: 20 12 CB 45 22 AA CA 28 C4 28 4A AA 31 29 2C 32 | ..E"..(.(J.1),2|
000039A0: 29 22 92 3D 22 C8 28 50 52 24 28 4A AA 31 29 AA |)".=".(PR$(J.1).|
000039B0: 53 50 24 2C 31 30 29 3A 4A 4A B2 4A 4A AA 31 00 |SP$,10):JJ.JJ.1.|
000039C0: E0 34 48 4E 82 4A 00 ED 34 84 4E 8D 31 33 33 33 |.4HN.J..4.N.1333|
000039D0: 30 3A 8E 00 16 35 08 52 81 49 B2 31 A4 4E 46 3A |0:...5.R.I.1.NF:|
000039E0: 8B 54 24 28 49 29 B3 B1 22 44 22 A7 53 44 24 B2 |.T$(I).."D".SD$.|
000039F0: 46 24 28 49 29 3A 89 32 31 30 32 30 00 49 35 12 |F$(I):.21020.I5.|
00003A00: 52 53 44 24 B2 C8 28 46 24 28 49 29 2C 32 29 AA |RSD$..(F$(I),2).|
00003A10: 22 2F 22 AA CA 28 46 24 28 49 29 2C 33 2C 32 29 |"/"..(F$(I),3,2)|
00003A20: AA 22 2F 22 AA C9 28 46 24 28 49 29 2C 32 29 00 |."/"..(F$(I),2).|
00003A30: 71 35 1C 52 99 C8 28 59 24 2C 59 25 28 49 29 29 |q5.R..(Y$,Y%(I))|
00003A40: C8 28 58 24 2C 58 25 28 49 29 29 50 52 24 28 49 |.(X$,X%(I))PR$(I|
00003A50: 29 3B 53 44 24 3A 82 00 7D 35 44 52 8B 4E 54 B2 |);SD$:..}5DR.NT.|
00003A60: 30 A7 8E 00 89 35 46 52 81 49 B2 31 A4 4E 54 00 |0....5FR.I.1.NT.|
00003A70: AF 35 48 52 99 C8 28 59 24 2C 54 59 25 28 49 29 |.5HR..(Y$,TY%(I)|
00003A80: 29 C8 28 58 24 2C 54 58 25 28 49 29 AA 31 29 54 |).(X$,TX%(I).1)T|
00003A90: 50 24 28 49 29 00 B5 35 4A 52 82 00 BB 35 4E 52 |P$(I)..5JR...5NR|
00003AA0: 8E 00 DD 35 90 65 8B 20 54 24 28 4B 46 29 B2 22 |...5.e. T$(KF)."|
00003AB0: 41 22 B0 54 24 28 4B 46 29 B2 22 44 22 A7 32 36 |A".T$(KF)."D".26|
00003AC0: 30 30 35 00 08 36 93 65 5A 5A 24 B2 C4 28 C5 28 |005..6.eZZ$..(.(|
00003AD0: 5A 5A 24 29 29 3A 8B 20 C5 28 5A 5A 24 29 B1 B2 |ZZ$)):. .(ZZ$)..|
00003AE0: 30 A7 5A 5A 24 B2 CA 28 5A 5A 24 2C 32 29 00 1D |0.ZZ$..(ZZ$,2)..|
00003AF0: 36 95 65 58 B2 30 3A 81 5A 5A B2 31 A4 C3 28 5A |6.eX.0:.ZZ.1..(Z|
00003B00: 5A 24 29 00 37 36 9A 65 58 B2 58 AA 5A 5A AC C6 |Z$).76.eX.X.ZZ..|
00003B10: 28 CA 28 5A 5A 24 2C 5A 5A 2C 31 29 29 00 3D 36 |(.(ZZ$,ZZ,1)).=6|
00003B20: A4 65 82 00 66 36 A9 65 58 B2 30 2E 36 AC 58 AC |.e..f6.eX.0.6.X.|
00003B30: 28 C6 28 C8 28 5A 5A 24 2C 31 29 29 AA C6 28 C9 |(.(.(ZZ$,1))..(.|
00003B40: 28 5A 5A 24 2C 31 29 29 AB 36 32 29 00 8B 36 AE |(ZZ$,1)).62)..6.|
00003B50: 65 58 B2 BC 28 58 29 3A 58 58 24 B2 C4 28 58 29 |eX..(X):XX$..(X)|
00003B60: 3A 52 50 B2 C5 28 CA 28 58 58 24 2C 36 2C 34 29 |:RP..(.(XX$,6,4)|
00003B70: 29 00 A3 36 B8 65 52 50 B2 B5 28 4D 53 AC 52 50 |)..6.eRP..(MS.RP|
00003B80: AD 31 30 30 30 30 29 AA 31 00 C1 36 C2 65 48 42 |.10000).1..6.eHB|
00003B90: B2 B5 28 52 50 AD 32 35 36 29 3A 4C 42 B2 52 50 |..(RP.256):LB.RP|
00003BA0: AB 32 35 36 AC 48 42 00 D5 36 C7 65 97 36 37 39 |.256.HB..6.e.679|
00003BB0: 2C 4C 42 3A 97 36 38 30 2C 48 42 00 DB 36 D6 65 |,LB:.680,HB..6.e|
00003BC0: 8E 00 11 37 78 69 99 22 93 22 3A 53 44 24 B2 C8 |...7xi.".":SD$..|
00003BD0: 28 44 54 24 2C 4C 25 28 4B 46 29 29 3A 8B 54 24 |(DT$,L%(KF)):.T$|
00003BE0: 28 4B 46 29 B2 22 44 22 A7 53 44 24 B2 22 2E 2E |(KF)."D".SD$."..|
00003BF0: 2F 2E 2E 2F 2E 2E 22 00 3C 37 82 69 99 C8 28 59 |/../..".<7.i..(Y|
00003C00: 24 2C 59 25 28 4B 46 29 29 3B C8 28 58 24 2C 58 |$,Y%(KF));.(X$,X|
00003C10: 25 28 4B 46 29 29 3B 50 52 24 28 4B 46 29 3B 53 |%(KF));PR$(KF);S|
00003C20: 44 24 00 70 37 8C 69 99 C8 28 59 24 2C 32 34 29 |D$.p7.i..(Y$,24)|
00003C30: 3B 22 D0 4C 45 41 53 45 20 45 4E 54 45 52 20 4B |;".LEASE ENTER K|
00003C40: 45 59 20 4F 46 20 44 45 53 49 52 45 44 20 52 45 |EY OF DESIRED RE|
00003C50: 43 4F 52 44 2E 22 00 7F 37 96 69 49 B2 4B 46 3A |CORD."..7.iI.KF:|
00003C60: 8D 32 30 30 30 00 91 37 97 69 8B 49 4E 24 B2 C7 |.2000..7.i.IN$..|
00003C70: 28 31 33 33 29 A7 8E 00 BA 37 AA 69 5A 5A 24 B2 |(133)....7.iZZ$.|
00003C80: 46 24 28 4B 46 29 3A 8D 32 36 30 30 30 3A 8F 20 |F$(KF):.26000:. |
00003C90: 43 4F 4D 50 55 54 45 20 48 41 53 48 20 4B 45 59 |COMPUTE HASH KEY|
00003CA0: 00 C0 37 C8 69 8E 00 CA 37 E6 69 8D 38 30 30 30 |..7.i...7.i.8000|
00003CB0: 00 03 38 FA 69 99 C8 28 59 24 2C 32 33 29 22 D2 |..8.i..(Y$,23)".|
00003CC0: 45 43 4F 52 44 20 4E 4F 54 20 46 4F 55 4E 44 20 |ECORD NOT FOUND |
00003CD0: 2D 20 D4 59 50 45 20 12 D2 C5 D4 D5 D2 CE 92 20 |- .YPE ........ |
00003CE0: 54 4F 20 45 58 49 54 2E 22 00 1E 38 04 6A A1 41 |TO EXIT."..8.j.A|
00003CF0: 41 24 3A 8B 41 41 24 B3 B1 C7 28 31 33 29 A7 32 |A$:.AA$...(13).2|
00003D00: 37 31 34 30 00 24 38 0E 6A 8E 00 30 38 C4 6D 8B |7140.$8.j..08.m.|
00003D10: 4E 43 B2 30 A7 8E 00 36 38 4A 6F 8E 00 42 38 54 |NC.0...68Jo..B8T|
00003D20: 6F 8B 4E 43 B2 30 A7 8E 00 48 38 3E 71 8E 00 52 |o.NC.0...H8>q..R|
00003D30: 38 48 71 99 22 93 22 3B 00 79 38 52 71 81 49 B2 |8Hq.".";.y8Rq.I.|
00003D40: 31 A4 4E 46 3A 44 24 B2 46 24 28 49 29 3A 8B 54 |1.NF:D$.F$(I):.T|
00003D50: 24 28 49 29 B3 B1 22 44 22 A7 32 39 30 33 30 00 |$(I).."D".29030.|
00003D60: 91 38 57 71 8B 46 24 28 49 29 B2 22 22 A7 46 24 |.8Wq.F$(I)."".F$|
00003D70: 28 49 29 B2 42 4F 24 00 C3 38 5C 71 44 24 B2 C8 |(I).BO$..8\qD$..|
00003D80: 28 46 24 28 49 29 2C 32 29 AA 22 2F 22 AA CA 28 |(F$(I),2)."/"..(|
00003D90: 46 24 28 49 29 2C 33 2C 32 29 AA 22 2F 22 AA C9 |F$(I),3,2)."/"..|
00003DA0: 28 46 24 28 49 29 2C 32 29 00 F0 38 66 71 8B 54 |(F$(I),2)..8fq.T|
00003DB0: 24 28 49 29 B2 22 24 22 A7 44 4F 24 B2 44 24 3A |$(I)."$".DO$.D$:|
00003DC0: 46 57 B2 4C 25 28 49 29 3A 8D 33 36 30 30 30 3A |FW.L%(I):.36000:|
00003DD0: 44 24 B2 44 4F 24 00 18 39 6B 71 8B 54 24 28 49 |D$.DO$..9kq.T$(I|
00003DE0: 29 B2 22 23 22 A7 44 24 B2 C9 28 53 50 24 AA C4 |)."#".D$..(SP$..|
00003DF0: 28 C5 28 44 24 29 29 2C 4C 25 28 49 29 29 00 3A |(.(D$)),L%(I)).:|
00003E00: 39 6C 71 8B 54 24 28 49 29 B2 22 41 22 A7 44 24 |9lq.T$(I)."A".D$|
00003E10: B2 C8 28 44 24 AA 53 50 24 2C 4C 25 28 49 29 29 |..(D$.SP$,L%(I))|
00003E20: 00 61 39 70 71 99 C8 28 59 24 2C 59 25 28 49 29 |.a9pq..(Y$,Y%(I)|
00003E30: 29 3B C8 28 58 24 2C 58 25 28 49 29 29 3B 50 52 |);.(X$,X%(I));PR|
00003E40: 24 28 49 29 3B 44 24 00 67 39 7A 71 82 00 77 39 |$(I);D$.g9zq..w9|
00003E50: 7F 71 8B 4E 43 B2 30 A7 32 39 30 38 35 00 90 39 |.q.NC.0.29085..9|
00003E60: 84 71 81 49 B2 31 A4 4E 43 3A 43 44 24 B2 C4 28 |.q.I.1.NC:CD$..(|
00003E70: 43 44 28 49 29 29 00 C8 39 89 71 8B 43 54 24 28 |CD(I))..9.q.CT$(|
00003E80: 49 29 B2 22 24 22 A7 44 4F 24 B2 43 44 24 3A 46 |I)."$".DO$.CD$:F|
00003E90: 57 B2 43 4C 25 28 49 29 3A 8D 33 36 30 30 30 3A |W.CL%(I):.36000:|
00003EA0: 43 44 24 B2 44 4F 24 3A 89 32 39 30 37 35 00 EB |CD$.DO$:.29075..|
00003EB0: 39 8E 71 8B C6 28 43 44 24 29 B2 33 32 A7 43 44 |9.q..(CD$).32.CD|
00003EC0: 24 B2 CA 28 43 44 24 2C 32 29 3A 89 32 39 30 37 |$..(CD$,2):.2907|
00003ED0: 30 00 0F 3A 91 71 43 44 24 B2 C9 28 53 50 24 AA |0..:.qCD$..(SP$.|
00003EE0: C8 28 43 44 24 2C 43 4C 25 28 49 29 29 2C 43 4C |.(CD$,CL%(I)),CL|
00003EF0: 25 28 49 29 29 00 35 3A 93 71 99 C8 28 59 24 2C |%(I)).5:.q..(Y$,|
00003F00: 43 59 25 28 49 29 29 3B A6 43 58 25 28 49 29 29 |CY%(I));.CX%(I))|
00003F10: 3B 43 50 24 28 49 29 3B 43 44 24 00 3B 3A 98 71 |;CP$(I);CD$.;:.q|
00003F20: 82 00 4B 3A 9D 71 8B 4E 54 B2 30 A7 32 39 31 31 |..K:.q.NT.0.2911|
00003F30: 35 00 57 3A A2 71 81 49 B2 31 A4 4E 54 00 79 3A |5.W:.q.I.1.NT.y:|
00003F40: AC 71 99 C8 28 59 24 2C 54 59 25 28 49 29 29 A6 |.q..(Y$,TY%(I)).|
00003F50: 54 58 25 28 49 29 AA 31 29 54 50 24 28 49 29 00 |TX%(I).1)TP$(I).|
00003F60: 7F 3A B6 71 82 00 8B 3A BB 71 8B 4E 47 B2 30 A7 |.:.q...:.q.NG.0.|
00003F70: 8E 00 97 3A C0 71 81 49 B2 31 A4 4E 47 00 D5 3A |...:.q.I.1.NG..:|
00003F80: CA 71 47 4C 24 B2 C4 28 47 4C 28 49 29 29 3A 8B |.qGL$..(GL(I)):.|
00003F90: 47 54 24 28 49 29 B2 22 24 22 A7 44 4F 24 B2 47 |GT$(I)."$".DO$.G|
00003FA0: 4C 24 3A 46 57 B2 47 4C 25 28 49 29 3A 8D 33 36 |L$:FW.GL%(I):.36|
00003FB0: 30 30 30 3A 47 4C 24 B2 44 4F 24 00 FB 3A D4 71 |000:GL$.DO$..:.q|
00003FC0: 8B 47 54 24 28 49 29 B2 22 23 22 A7 47 4C 24 B2 |.GT$(I)."#".GL$.|
00003FD0: C9 28 53 50 24 AA 47 4C 24 2C 47 4C 25 28 49 29 |.(SP$.GL$,GL%(I)|
00003FE0: 29 00 1F 3B DE 71 99 C8 28 59 24 2C 47 59 25 28 |)..;.q..(Y$,GY%(|
00003FF0: 49 29 29 A6 47 58 25 28 49 29 29 47 50 24 28 49 |I)).GX%(I))GP$(I|
00004000: 29 3B 47 4C 24 00 25 3B E8 71 82 00 2B 3B ED 71 |);GL$.%;.q..+;.q|
00004010: 8E 00 69 3B FC 71 8D 38 30 30 30 3A 99 C8 28 59 |..i;.q.8000:..(Y|
00004020: 24 2C 32 34 29 3B 22 C9 53 20 54 48 49 53 20 49 |$,24);".S THIS I|
00004030: 54 3F 20 28 20 12 D2 C5 D4 D5 D2 CE 92 20 3D 20 |T? ( ........ = |
00004040: 59 45 53 20 29 20 20 20 20 20 20 20 20 22 3B 00 |YES ) ";.|
00004050: 85 3B 06 72 58 25 B2 32 39 3A 59 25 B2 32 34 3A |.;.rX%.29:Y%.24:|
00004060: 4C 25 B2 31 3A 8D 33 34 30 30 30 00 8B 3B 10 72 |L%.1:.34000..;.r|
00004070: 8E 00 95 3B 24 72 8D 38 30 30 30 00 C6 3B 25 72 |...;$r.8000..;%r|
00004080: 99 C8 28 59 24 2C 32 34 29 22 20 20 12 4F 92 20 |..(Y$,24)" .O. |
00004090: 46 4F 52 20 4F 50 54 49 4F 4E 53 2C 20 12 46 33 |FOR OPTIONS, .F3|
000040A0: 92 20 54 4F 20 50 52 49 4E 54 2C 22 00 00 3C 26 |. TO PRINT,"..<&|
000040B0: 72 99 C8 28 59 24 2C 32 35 29 22 20 20 12 46 31 |r..(Y$,25)" .F1|
000040C0: 92 20 54 4F 20 45 58 49 54 2C 20 4F 52 20 12 D2 |. TO EXIT, OR ..|
000040D0: C5 D4 D5 D2 CE 92 20 46 4F 52 20 4E 45 58 54 20 |...... FOR NEXT |
000040E0: 52 45 43 2E 22 3B 00 3C 3C 2E 72 A1 49 4E 24 3A |REC.";.<<.r.IN$:|
000040F0: 8B 49 4E 24 B3 B1 C7 28 31 33 29 AF 49 4E 24 B3 |.IN$...(13).IN$.|
00004100: B1 C7 28 31 33 34 29 AF 49 4E 24 B3 B1 C7 28 31 |..(134).IN$...(1|
00004110: 33 33 29 AF 49 4E 24 B3 B1 22 4F 22 A7 32 39 32 |33).IN$.."O".292|
00004120: 33 30 00 5A 3C 38 72 8B 49 4E 24 B2 C7 28 31 33 |30.Z<8r.IN$..(13|
00004130: 34 29 A7 8D 35 31 31 30 30 3A 89 32 39 32 32 30 |4)..51100:.29220|
00004140: 00 75 3C 3D 72 8B 49 4E 24 B2 22 4F 22 A7 8D 32 |.u<=r.IN$."O"..2|
00004150: 39 33 30 30 3A 89 32 39 32 32 30 00 82 3C 60 72 |9300:.29220..<`r|
00004160: 41 4E 24 B2 22 22 3A 8E 00 9C 3C 74 72 8D 38 30 |AN$."":...<tr.80|
00004170: 30 30 3A 8B 41 4E 24 B3 B1 22 44 22 A7 32 39 33 |00:.AN$.."D".293|
00004180: 30 35 00 DC 3C 76 72 99 C8 28 59 24 2C 32 34 29 |05..<vr..(Y$,24)|
00004190: 22 20 20 D2 45 43 4F 52 44 20 44 45 4C 45 54 45 |" .ECORD DELETE|
000041A0: 44 2D 4E 4F 20 4F 50 54 49 4F 4E 53 20 41 56 41 |D-NO OPTIONS AVA|
000041B0: 49 4C 41 42 4C 45 2E 22 3A 5A 5A B2 C5 28 54 49 |ILABLE.":ZZ..(TI|
000041C0: 24 29 00 F3 3C 77 72 8B C5 28 54 49 24 29 B3 5A |$)..<wr..(TI$).Z|
000041D0: 5A AA 35 A7 32 39 33 30 33 00 F9 3C 78 72 8E 00 |Z.5.29303..<xr..|
000041E0: 35 3D 79 72 99 C8 28 59 24 2C 32 34 29 22 20 12 |5=yr..(Y$,24)" .|
000041F0: 55 92 20 54 4F 20 55 50 44 41 54 45 2C 20 12 44 |U. TO UPDATE, .D|
00004200: 92 20 54 4F 20 44 45 4C 45 54 45 2C 20 12 D2 C5 |. TO DELETE, ...|
00004210: D4 D5 D2 CE 92 20 45 58 49 54 22 00 62 3D 7A 72 |..... EXIT".b=zr|
00004220: A1 41 4E 24 3A 8B 41 4E 24 B3 B1 22 55 22 AF 41 |.AN$:.AN$.."U".A|
00004230: 4E 24 B3 B1 22 44 22 AF 41 4E 24 B3 B1 C7 28 31 |N$.."D".AN$...(1|
00004240: 33 29 A7 32 39 33 30 36 00 6C 3D 7E 72 8D 38 32 |3).29306.l=~r.82|
00004250: 35 30 00 86 3D 7F 72 50 48 B2 52 50 3A 8B 41 4E |50..=.rPH.RP:.AN|
00004260: 24 B3 B1 22 55 22 A7 32 39 33 32 32 00 96 3D 83 |$.."U".29322..=.|
00004270: 72 8B 53 52 25 A7 8D 32 39 34 30 30 00 A9 3D 84 |r.SR%..29400..=.|
00004280: 72 8D 31 31 38 30 30 3A 52 50 B2 50 48 3A 8E 00 |r.11800:RP.PH:..|
00004290: BD 3D 8A 72 8B 41 4E 24 B3 B1 22 44 22 A7 32 39 |.=.r.AN$.."D".29|
000042A0: 33 33 30 00 DA 3D 8C 72 8D 31 32 38 30 30 3A 8B |330..=.r.12800:.|
000042B0: 49 4E 24 B2 22 4E 22 A7 41 4E 24 B2 22 22 3A 8E |IN$."N".AN$."":.|
000042C0: 00 EA 3D 8D 72 8B 53 52 25 A7 8D 32 39 34 30 30 |..=.r.SR%..29400|
000042D0: 00 FD 3D 91 72 8D 31 32 31 30 30 3A 52 50 B2 50 |..=.r.12100:RP.P|
000042E0: 48 3A 8E 00 03 3E 92 72 8E 00 35 3E D8 72 50 58 |H:...>.r..5>.rPX|
000042F0: B2 52 50 3A 5A 5A 24 B2 46 24 28 4B 46 29 3A 8B |.RP:ZZ$.F$(KF):.|
00004300: 54 24 28 4B 46 29 B2 22 41 22 B0 54 24 28 4B 46 |T$(KF)."A".T$(KF|
00004310: 29 B2 22 44 22 A7 32 39 34 30 35 00 62 3E DD 72 |)."D".29405.b>.r|
00004320: 8B C9 28 5A 5A 24 2C 31 29 B2 22 20 22 A7 5A 5A |..(ZZ$,1)." ".ZZ|
00004330: 24 B2 C8 28 5A 5A 24 2C C3 28 5A 5A 24 29 AB 31 |$..(ZZ$,.(ZZ$).1|
00004340: 29 3A 89 32 39 34 30 35 00 7F 3E E2 72 8D 32 36 |):.29405..>.r.26|
00004350: 30 30 30 3A 97 37 30 31 2C 32 35 35 3A 97 37 30 |000:.701,255:.70|
00004360: 32 2C 32 35 35 00 A8 3E E7 72 9E 34 39 33 34 34 |2,255..>.r.49344|
00004370: 3A 8D 38 31 30 30 3A 8B 58 46 53 B3 B1 50 58 AF |:.8100:.XFS..PX.|
00004380: 58 46 53 B3 4D 53 AA 31 A7 32 39 34 31 35 00 AE |XFS.MS.1.29415..|
00004390: 3E EC 72 8E 00 CF 3E 30 75 42 24 B2 43 44 24 3A |>.r...>0uB$.CD$:|
000043A0: 41 24 B2 C7 28 33 32 29 3A 8D 34 31 30 30 30 3A |A$..(32):.41000:|
000043B0: 43 44 B2 49 39 00 F0 3E 31 75 8B 43 44 B1 31 A7 |CD.I9..>1u.CD.1.|
000043C0: 43 44 24 B2 C8 28 43 44 24 2C 43 44 AB 31 29 3A |CD$..(CD$,CD.1):|
000043D0: 89 33 30 30 30 30 00 0E 3F 32 75 8B 43 44 B2 31 |.30000..?2u.CD.1|
000043E0: A7 43 44 24 B2 CA 28 43 44 24 2C 32 29 3A 89 33 |.CD$..(CD$,2):.3|
000043F0: 30 30 30 30 00 1F 3F 35 75 81 5A 5A B2 31 A4 C3 |0000..?5u.ZZ.1..|
00004400: 28 43 44 24 29 00 4C 3F 3A 75 8B CA 28 43 44 24 |(CD$).L?:u..(CD$|
00004410: 2C 5A 5A 2C 31 29 B1 B2 22 30 22 AF CA 28 43 44 |,ZZ,1).."0"..(CD|
00004420: 24 2C 5A 5A 2C 31 29 B3 B2 22 39 22 A7 33 30 30 |$,ZZ,1).."9".300|
00004430: 32 30 00 79 3F 3F 75 8B CA 28 43 44 24 2C 5A 5A |20.y??u..(CD$,ZZ|
00004440: 2C 31 29 B3 B1 22 2E 22 AF CA 28 43 44 24 2C 5A |,1).."."..(CD$,Z|
00004450: 5A 2C 31 29 B3 B1 22 2D 22 A7 45 B2 31 3A 8E 00 |Z,1).."-".E.1:..|
00004460: 7F 3F 44 75 82 00 AC 3F 4E 75 42 24 B2 43 44 24 |.?Du...?NuB$.CD$|
00004470: 3A 41 24 B2 22 2D 22 3A 8D 34 31 30 30 30 3A 49 |:A$."-":.41000:I|
00004480: 31 B2 49 39 3A 42 24 B2 CA 28 42 24 2C 49 31 AA |1.I9:B$..(B$,I1.|
00004490: 31 29 00 CE 3F 53 75 8D 34 31 30 30 30 3A 49 32 |1)..?Su.41000:I2|
000044A0: B2 49 39 3A 8B 49 31 B1 30 AF 49 32 B1 30 A7 45 |.I9:.I1.0.I2.0.E|
000044B0: B2 31 3A 8E 00 FB 3F 58 75 42 24 B2 43 44 24 3A |.1:...?XuB$.CD$:|
000044C0: 41 24 B2 22 2E 22 3A 8D 34 31 30 30 30 3A 49 31 |A$.".":.41000:I1|
000044D0: B2 49 39 3A 42 24 B2 CA 28 42 24 2C 49 31 AA 31 |.I9:B$..(B$,I1.1|
000044E0: 29 00 1D 40 5D 75 8D 34 31 30 30 30 3A 49 32 B2 |)..@]u.41000:I2.|
000044F0: 49 39 3A 8B 49 31 B1 30 AF 49 32 B1 30 A7 45 B2 |I9:.I1.0.I2.0.E.|
00004500: 31 3A 8E 00 23 40 62 75 8E 00 34 40 18 79 81 5A |1:..#@bu..4@.y.Z|
00004510: 5A B2 31 A4 C3 28 43 44 24 29 00 63 40 22 79 8B |Z.1..(CD$).c@"y.|
00004520: 28 CA 28 43 44 24 2C 5A 5A 2C 31 29 B3 B2 22 39 |(.(CD$,ZZ,1).."9|
00004530: 22 AF CA 28 43 44 24 2C 5A 5A 2C 31 29 B1 B2 22 |"..(CD$,ZZ,1).."|
00004540: 30 22 29 A7 45 B2 31 3A 8E 00 69 40 2C 79 82 00 |0").E.1:..i@,y..|
00004550: 6F 40 36 79 8E 00 9C 40 00 7D 41 41 24 B2 22 22 |o@6y...@.}AA$.""|
00004560: 3A 91 C2 28 39 36 35 29 8D 33 33 30 30 30 2C 33 |:..(965).33000,3|
00004570: 33 31 35 31 3A 8B 41 41 24 B2 C7 28 31 33 33 29 |3151:.AA$..(133)|
00004580: A7 8E 00 CD 40 01 7D 99 22 93 11 20 20 D4 48 49 |....@.}.".. .HI|
00004590: 53 20 4F 50 54 49 4F 4E 20 57 49 4C 4C 20 43 4C |S OPTION WILL CL|
000045A0: 45 41 52 20 59 4F 55 52 20 44 41 54 41 20 46 49 |EAR YOUR DATA FI|
000045B0: 4C 45 22 00 03 41 05 7D 99 22 20 4F 46 20 41 4C |LE"..A.}." OF AL|
000045C0: 4C 20 50 52 45 56 49 4F 55 53 4C 59 20 45 4E 54 |L PREVIOUSLY ENT|
000045D0: 45 52 45 44 20 52 45 43 4F 52 44 53 20 28 49 46 |ERED RECORDS (IF|
000045E0: 20 20 20 41 4E 59 29 2E 22 00 34 41 0A 7D 99 3A | ANY).".4A.}.:|
000045F0: 99 22 20 20 D4 48 45 20 4F 4E 4C 59 20 54 49 4D |." .HE ONLY TIM|
00004600: 45 20 54 48 41 54 20 59 4F 55 20 41 52 45 20 12 |E THAT YOU ARE .|
00004610: 52 45 51 55 49 52 45 44 92 22 00 61 41 0F 7D 99 |REQUIRED.".aA.}.|
00004620: 22 20 54 4F 20 55 53 45 20 54 48 49 53 20 4F 50 |" TO USE THIS OP|
00004630: 54 49 4F 4E 20 49 53 20 54 48 45 20 46 49 52 53 |TION IS THE FIRS|
00004640: 54 20 54 49 4D 45 22 00 8B 41 14 7D 99 22 20 59 |T TIME"..A.}." Y|
00004650: 4F 55 20 52 55 4E 20 59 4F 55 52 20 41 50 50 4C |OU RUN YOUR APPL|
00004660: 49 43 41 54 49 4F 4E 20 50 52 4F 47 52 41 4D 2E |ICATION PROGRAM.|
00004670: 22 00 BB 41 19 7D 99 3A 99 3A 99 22 20 20 D0 4C |"..A.}.:.:." .L|
00004680: 41 43 45 20 54 48 45 20 44 49 53 4B 20 54 48 41 |ACE THE DISK THA|
00004690: 54 20 43 4F 4E 54 41 49 4E 53 20 59 4F 55 52 20 |T CONTAINS YOUR |
000046A0: 22 00 EB 41 1E 7D 99 22 20 44 41 54 41 20 46 49 |"..A.}." DATA FI|
000046B0: 4C 45 20 49 4E 20 54 48 45 20 44 52 49 56 45 20 |LE IN THE DRIVE |
000046C0: 41 4E 44 20 54 59 50 45 20 12 43 4C 45 41 52 92 |AND TYPE .CLEAR.|
000046D0: 22 00 0F 42 23 7D 99 22 20 54 4F 20 42 45 47 49 |"..B#}." TO BEGI|
000046E0: 4E 20 46 49 4C 45 20 50 52 45 50 41 52 41 54 49 |N FILE PREPARATI|
000046F0: 4F 4E 2E 20 22 00 3C 42 24 7D 99 22 11 11 11 20 |ON. ".<B$}."... |
00004700: D4 4F 20 52 45 54 55 52 4E 20 54 4F 20 54 48 45 |.O RETURN TO THE|
00004710: 20 4D 45 4E 55 20 50 52 45 53 53 20 12 46 31 92 | MENU PRESS .F1.|
00004720: 2E 22 00 6B 42 28 7D 58 25 B2 32 39 3A 59 25 B2 |.".kB(}X%.29:Y%.|
00004730: 31 33 3A 4C 25 B2 35 3A 8D 33 34 30 30 30 3A 8B |13:L%.5:.34000:.|
00004740: 49 4E 24 B2 22 43 4C 45 41 52 22 A7 33 32 30 35 |IN$."CLEAR".3205|
00004750: 30 00 83 42 2E 7D 8B 20 49 4E 24 B3 B1 C7 28 31 |0..B.}. IN$...(1|
00004760: 33 33 29 A7 33 32 30 34 30 00 89 42 30 7D 8E 00 |33).32040..B0}..|
00004770: B6 42 32 7D 8D 33 32 32 35 30 3A 99 22 93 11 11 |.B2}.32250:."...|
00004780: 11 11 22 A6 31 32 29 22 D0 52 45 50 41 52 49 4E |..".12)".REPARIN|
00004790: 47 20 C6 49 4C 45 53 20 2E 2E 2E 22 00 F6 42 34 |G .ILES ..."..B4|
000047A0: 7D A0 31 35 3A 9F 31 35 2C 44 56 2C 31 35 2C 22 |}.15:.15,DV,15,"|
000047B0: 53 22 AA 44 43 24 AA 48 46 24 3A A0 31 35 3A 9F |S".DC$.HF$:.15:.|
000047C0: 32 2C 44 56 2C 32 2C 44 43 24 AA 48 46 24 AA 22 |2,DV,2,DC$.HF$."|
000047D0: 2C 4C 2C 22 AA C7 28 35 29 3A A0 32 00 38 43 37 |,L,"..(5):.2.8C7|
000047E0: 7D 99 22 11 11 22 A6 31 30 29 22 D4 48 49 53 20 |}."..".10)".HIS |
000047F0: 4D 41 59 20 54 41 4B 45 20 41 20 57 48 49 4C 45 |MAY TAKE A WHILE|
00004800: 2E 22 3A 9E 34 39 38 32 34 3A 9E 34 39 37 32 32 |.":.49824:.49722|
00004810: 3A 8F 20 57 52 49 54 45 20 49 4E 44 45 58 00 7B |:. WRITE INDEX.{|
00004820: 43 64 7D 9F 31 35 2C 44 56 2C 31 35 3A 98 31 35 |Cd}.15,DV,15:.15|
00004830: 2C 22 53 22 AA 44 43 24 AA 44 46 24 3A 9F 31 2C |,"S".DC$.DF$:.1,|
00004840: 44 56 2C 31 35 3A 9F 34 2C 44 56 2C 34 2C 44 43 |DV,15:.4,DV,4,DC|
00004850: 24 AA 44 46 24 AA 22 2C 4C 2C 22 AA C7 28 42 53 |$.DF$.",L,"..(BS|
00004860: 29 00 AC 43 6E 7D 4A 4E B2 B5 28 28 52 53 AC 4D |)..Cn}JN..((RS.M|
00004870: 53 29 AD 42 53 29 AA 31 3A 52 32 B2 B5 28 4A 4E |S).BS).1:R2..(JN|
00004880: AD 32 35 36 29 3A 52 31 B2 4A 4E AB 32 35 36 AC |.256):R1.JN.256.|
00004890: 52 32 00 EC 43 78 7D 98 31 2C 22 50 22 C7 28 34 |R2..Cx}.1,"P".(4|
000048A0: 29 C7 28 52 31 29 C7 28 52 32 29 C7 28 31 29 3A |).(R1).(R2).(1):|
000048B0: 98 34 2C C7 28 32 35 35 29 3A 8D 35 32 32 32 30 |.4,.(255):.52220|
000048C0: 3A A0 31 3A A0 34 3A 8B 4E 47 B2 30 A7 33 32 32 |:.1:.4:.NG.0.322|
000048D0: 30 30 00 29 44 82 7D 9F 34 2C 44 56 2C 34 2C 22 |00.)D.}.4,DV,4,"|
000048E0: 40 22 AA 44 43 24 AA 47 42 24 AA 22 2C 53 2C 57 |@".DC$.GB$.",S,W|
000048F0: 22 3A 81 49 B2 31 A4 4E 47 3A 47 4C 28 49 29 B2 |":.I.1.NG:GL(I).|
00004900: 30 3A 98 34 2C 47 4C 28 49 29 3A 82 3A A0 34 00 |0:.4,GL(I):.:.4.|
00004910: 3F 44 C8 7D 50 51 B2 31 3A 46 31 25 B2 AB 31 3A |?D.}PQ.1:F1%..1:|
00004920: A0 31 35 3A 8E 00 7E 44 FA 7D 4D 53 B2 36 39 31 |.15:..~D.}MS.691|
00004930: 34 38 3A 41 24 B2 22 54 48 45 20 53 41 4D 45 22 |48:A$."THE SAME"|
00004940: 3A 8B C2 28 39 36 35 29 B2 32 A7 4D 53 B2 31 35 |:..(965).2.MS.15|
00004950: 35 30 30 30 3A 41 24 B2 22 41 20 53 45 50 41 52 |5000:A$."A SEPAR|
00004960: 41 54 45 22 00 A4 44 FF 7D 4D 53 B2 B5 28 4D 53 |ATE"..D.}MS..(MS|
00004970: AD 28 52 53 AA 31 31 29 29 3A 8B 4D 53 B1 31 39 |.(RS.11)):.MS.19|
00004980: 30 30 A7 4D 53 B2 31 39 30 30 00 DD 44 04 7E 4D |00.MS.1900..D.~M|
00004990: 53 24 B2 C4 28 4D 53 29 3A 99 22 93 11 11 11 11 |S$..(MS):.".....|
000049A0: 20 D7 49 54 48 20 44 41 54 41 20 4F 4E 20 22 3B | .ITH DATA ON ";|
000049B0: 41 24 3B 22 20 44 49 53 4B 2C 20 59 4F 55 20 4D |A$;" DISK, YOU M|
000049C0: 41 59 22 00 00 45 09 7E 99 22 20 48 41 56 45 20 |AY"..E.~." HAVE |
000049D0: 55 50 20 54 4F 22 3B 4D 53 24 3B 22 20 52 45 43 |UP TO";MS$;" REC|
000049E0: 4F 52 44 53 2E 22 00 4B 45 0E 7E 99 C8 28 59 24 |ORDS.".KE.~..(Y$|
000049F0: 2C 38 29 22 20 C8 4F 57 20 4D 41 4E 59 20 52 45 |,8)" .OW MANY RE|
00004A00: 43 4F 52 44 53 20 57 4F 55 4C 44 20 59 4F 55 20 |CORDS WOULD YOU |
00004A10: 4C 49 4B 45 3F 20 20 20 20 22 3A 58 25 B2 33 34 |LIKE? ":X%.34|
00004A20: 3A 59 25 B2 38 3A 4C 25 B2 C3 28 4D 53 24 29 AB |:Y%.8:L%..(MS$).|
00004A30: 31 00 71 45 13 7E 8D 33 34 30 30 30 3A 8B C5 28 |1.qE.~.34000:..(|
00004A40: 49 4E 24 29 B3 B2 30 B0 C5 28 49 4E 24 29 B1 4D |IN$)..0..(IN$).M|
00004A50: 53 A7 33 32 32 37 30 00 AE 45 18 7E 4D 53 B2 B5 |S.32270..E.~MS..|
00004A60: 28 C5 28 49 4E 24 29 29 3A 48 42 B2 B5 28 4D 53 |(.(IN$)):HB..(MS|
00004A70: AD 32 35 36 29 3A 4C 42 B2 4D 53 AB 28 48 42 AC |.256):LB.MS.(HB.|
00004A80: 32 35 36 29 3A 97 36 39 33 2C 4C 42 3A 97 36 39 |256):.693,LB:.69|
00004A90: 34 2C 48 42 00 C9 45 1D 7E 91 AB 28 C2 28 32 30 |4,HB..E.~..(.(20|
00004AA0: 35 33 29 B2 31 35 38 29 89 38 33 32 30 3A 8E 00 |53).158).8320:..|
00004AB0: E5 45 E8 80 46 49 24 B2 53 46 24 3A 8D 35 32 32 |.E..FI$.SF$:.522|
00004AC0: 31 35 3A 8B 44 53 B3 32 30 A7 8E 00 2E 46 EB 80 |15:.DS.20....F..|
00004AD0: 99 22 93 22 C8 28 59 24 2C 31 30 29 22 20 20 20 |.".".(Y$,10)" |
00004AE0: D0 4C 41 43 45 20 59 4F 55 52 20 12 D0 52 4F 47 |.LACE YOUR ..ROG|
00004AF0: 52 41 4D 92 20 44 49 53 4B 20 49 4E 20 44 52 49 |RAM. DISK IN DRI|
00004B00: 56 45 20 30 2E 22 3A 8D 31 33 33 33 30 3A 89 33 |VE 0.":.13330:.3|
00004B10: 33 30 30 30 00 5C 46 F2 80 8D 33 33 30 30 30 3A |3000.\F...33000:|
00004B20: 9F 34 2C 38 2C 34 2C 22 30 3A 22 AA 53 46 24 3A |.4,8,4,"0:".SF$:|
00004B30: 84 34 2C 4E 46 3A 8B 4E 46 B2 B3 30 A7 33 33 30 |.4,NF:.NF..0.330|
00004B40: 36 30 00 8C 46 FC 80 86 50 52 24 28 4E 46 29 2C |60..F...PR$(NF),|
00004B50: 58 25 28 4E 46 29 2C 59 25 28 4E 46 29 2C 4C 25 |X%(NF),Y%(NF),L%|
00004B60: 28 4E 46 29 2C 54 24 28 4E 46 29 2C 44 25 28 4E |(NF),T$(NF),D%(N|
00004B70: 46 29 00 BC 46 10 81 81 49 B2 31 A4 4E 46 3A 84 |F)..F...I.1.NF:.|
00004B80: 34 2C 50 52 24 28 49 29 2C 58 25 28 49 29 2C 59 |4,PR$(I),X%(I),Y|
00004B90: 25 28 49 29 2C 4C 25 28 49 29 2C 54 24 28 49 29 |%(I),L%(I),T$(I)|
00004BA0: 3A 82 00 D3 46 24 81 84 34 2C 4E 43 3A 8B 4E 43 |:...F$..4,NC:.NC|
00004BB0: B2 B3 30 A7 33 33 31 30 32 00 0E 47 2E 81 86 43 |..0.33102..G...C|
00004BC0: 50 24 28 4E 43 29 2C 43 58 25 28 4E 43 29 2C 43 |P$(NC),CX%(NC),C|
00004BD0: 59 25 28 4E 43 29 2C 43 4C 25 28 4E 43 29 2C 43 |Y%(NC),CL%(NC),C|
00004BE0: 54 24 28 4E 43 29 2C 43 44 28 4E 43 29 2C 43 45 |T$(NC),CD(NC),CE|
00004BF0: 28 4E 43 29 00 42 47 42 81 81 49 B2 31 A4 4E 43 |(NC).BGB..I.1.NC|
00004C00: 3A 84 34 2C 43 50 24 28 49 29 2C 43 58 25 28 49 |:.4,CP$(I),CX%(I|
00004C10: 29 2C 43 59 25 28 49 29 2C 43 4C 25 28 49 29 2C |),CY%(I),CL%(I),|
00004C20: 43 54 24 28 49 29 3A 82 00 59 47 4E 81 84 34 2C |CT$(I):..YGN..4,|
00004C30: 4E 47 3A 8B 4E 47 B2 B3 30 A7 33 33 31 31 30 00 |NG:.NG..0.33110.|
00004C40: A3 47 51 81 86 47 50 24 28 4E 47 29 2C 47 58 25 |.GQ..GP$(NG),GX%|
00004C50: 28 4E 47 29 2C 47 59 25 28 4E 47 29 2C 47 54 24 |(NG),GY%(NG),GT$|
00004C60: 28 4E 47 29 2C 47 4C 28 4E 47 29 2C 47 4B 28 4E |(NG),GL(NG),GK(N|
00004C70: 47 29 2C 47 4D 28 4E 47 29 2C 47 4C 25 28 4E 47 |G),GM(NG),GL%(NG|
00004C80: 29 2C 47 53 25 28 4E 47 29 00 D7 47 53 81 81 49 |),GS%(NG)..GS..I|
00004C90: B2 31 A4 4E 47 3A 84 34 2C 47 50 24 28 49 29 2C |.1.NG:.4,GP$(I),|
00004CA0: 47 58 25 28 49 29 2C 47 59 25 28 49 29 2C 47 4C |GX%(I),GY%(I),GL|
00004CB0: 25 28 49 29 2C 47 54 24 28 49 29 3A 82 00 EE 47 |%(I),GT$(I):...G|
00004CC0: 56 81 84 34 2C 4E 54 3A 8B 4E 54 B2 B3 30 A7 33 |V..4,NT:.NT..0.3|
00004CD0: 33 31 33 35 00 0C 48 60 81 86 20 54 50 24 28 4E |3135..H`.. TP$(N|
00004CE0: 54 29 2C 54 58 25 28 4E 54 29 2C 54 59 25 28 4E |T),TX%(NT),TY%(N|
00004CF0: 54 29 00 33 48 6A 81 81 49 B2 31 A4 4E 54 3A 84 |T).3Hj..I.1.NT:.|
00004D00: 34 2C 54 50 24 28 49 29 2C 54 58 25 28 49 29 2C |4,TP$(I),TX%(I),|
00004D10: 54 59 25 28 49 29 3A 82 49 00 6C 48 6F 81 A0 34 |TY%(I):.I.lHo..4|
00004D20: 3A 9F 34 2C 38 2C 34 2C 22 30 3A 22 AA 42 46 24 |:.4,8,4,"0:".BF$|
00004D30: AA 22 2F 46 4C 47 22 3A 8B 4E 47 B1 30 A7 81 49 |."/FLG":.NG.0..I|
00004D40: B2 31 A4 4E 47 3A 84 34 2C 47 53 25 28 49 29 3A |.1.NG:.4,GS%(I):|
00004D50: 82 49 00 89 48 74 81 81 49 B2 31 A4 4E 46 3A 84 |.I..Ht..I.1.NF:.|
00004D60: 34 2C 44 25 28 49 29 3A 82 49 3A A0 34 3A 8E 00 |4,D%(I):.I:.4:..|
00004D70: AF 48 7F 81 A0 34 3A 41 41 24 B2 22 22 3A 46 49 |.H...4:AA$."":FI|
00004D80: 24 B2 53 46 24 3A 8D 35 32 32 31 30 3A 8B 44 53 |$.SF$:.52210:.DS|
00004D90: B2 36 32 A7 8E 00 ED 48 92 81 99 22 93 22 C8 28 |.62....H...".".(|
00004DA0: 59 24 2C 36 29 22 20 20 20 20 D0 4C 41 43 45 20 |Y$,6)" .LACE |
00004DB0: 59 4F 55 52 20 12 44 41 54 41 92 20 44 49 53 4B |YOUR .DATA. DISK|
00004DC0: 20 49 4E 20 44 52 49 56 45 20 22 3B 44 44 24 3B | IN DRIVE ";DD$;|
00004DD0: 22 2E 22 00 1E 49 94 81 99 22 11 20 28 D4 48 45 |"."..I...". (.HE|
00004DE0: 20 44 49 53 4B 20 55 53 45 44 20 54 4F 20 48 4F | DISK USED TO HO|
00004DF0: 4C 44 20 59 4F 55 52 20 44 41 54 41 20 46 49 4C |LD YOUR DATA FIL|
00004E00: 45 53 29 22 00 59 49 96 81 99 C8 28 59 24 2C 32 |ES)".YI....(Y$,2|
00004E10: 34 29 22 20 D0 52 45 53 53 20 12 D2 C5 D4 D5 D2 |4)" .RESS ......|
00004E20: CE 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 4F |.. TO CONTINUE O|
00004E30: 52 20 12 46 31 92 20 54 4F 20 45 58 49 54 22 00 |R .F1. TO EXIT".|
00004E40: 80 49 98 81 A1 41 41 24 3A 8B 41 41 24 B3 B1 C7 |.I...AA$:.AA$...|
00004E50: 28 31 33 29 AF 41 41 24 B3 B1 C7 28 31 33 33 29 |(13).AA$...(133)|
00004E60: A7 33 33 31 37 36 00 92 49 9A 81 8B 41 41 24 B2 |.33176..I...AA$.|
00004E70: C7 28 31 33 33 29 A7 8E 00 9D 49 9C 81 89 33 33 |.(133)....I...33|
00004E80: 31 35 31 00 C3 49 D0 84 49 4E 24 B2 22 22 3A 4A |151..I..IN$."":J|
00004E90: B2 31 3A 41 44 B2 31 30 32 34 AA 28 59 25 AB 31 |.1:AD.1024.(Y%.1|
00004EA0: 29 AC 34 30 AA 58 25 AB 31 00 F4 49 D5 84 81 4B |).40.X%.1..I...K|
00004EB0: 4C B2 30 A4 4C 25 3A 97 35 35 32 39 36 AA 28 59 |L.0.L%:.55296.(Y|
00004EC0: 25 AB 31 29 AC 34 30 AA 28 58 25 AA 4B 4C 29 2C |%.1).40.(X%.KL),|
00004ED0: C2 28 36 34 36 29 3A 82 4B 4C 00 20 4A DA 84 8B |.(646):.KL. J...|
00004EE0: 4A B2 31 AF 4C 25 B1 31 A7 99 C8 28 59 24 2C 59 |J.1.L%.1...(Y$,Y|
00004EF0: 25 29 3B C8 28 58 24 2C 58 25 29 3B C8 28 44 54 |%);.(X$,X%);.(DT|
00004F00: 24 2C 4C 25 29 3B 00 36 4A E4 84 97 41 44 AA 4A |$,L%);.6J...AD.J|
00004F10: 2C C2 28 41 44 AA 4A 29 B0 31 32 38 00 4B 4A EE |,.(AD.J).128.KJ.|
00004F20: 84 A1 49 24 3A 8B 49 24 B2 22 22 A7 33 34 30 33 |..I$:.I$."".3403|
00004F30: 30 00 68 4A EF 84 8B 49 24 B2 C7 28 31 34 30 29 |0.hJ...I$..(140)|
00004F40: A7 8D 35 34 33 30 30 3A 89 33 34 30 31 30 00 75 |..54300:.34010.u|
00004F50: 4A F0 84 49 49 B2 C6 28 49 24 29 00 9D 4A F2 84 |J..II..(I$)..J..|
00004F60: 8B 49 49 B2 31 33 33 B0 49 49 B2 31 33 36 B0 49 |.II.133.II.136.I|
00004F70: 49 B2 31 33 35 A7 49 4E 24 B2 49 24 3A 89 33 34 |I.135.IN$.I$:.34|
00004F80: 31 32 35 00 B2 4A F3 84 8B 49 49 B2 31 33 33 A7 |125..J...II.133.|
00004F90: 49 4E 24 B2 49 24 3A 8E 00 C3 4A F4 84 8B 49 49 |IN$.I$:...J...II|
00004FA0: B2 33 34 A7 33 34 30 33 30 00 FD 4A F8 84 8B 28 |.34.34030..J...(|
00004FB0: 49 49 B3 33 32 AF 49 49 B3 B1 32 30 AF 49 49 B3 |II.32.II..20.II.|
00004FC0: B1 31 33 29 B0 28 49 49 B1 31 32 38 AF 49 49 B3 |.13).(II.128.II.|
00004FD0: 31 39 32 29 B0 28 49 49 B1 32 31 38 29 A7 33 34 |192).(II.218).34|
00004FE0: 30 31 30 00 0F 4B FD 84 8B 49 49 B3 B1 32 30 A7 |010..K...II..20.|
00004FF0: 33 34 30 37 30 00 1E 4B 02 85 8B 4A B2 31 A7 33 |34070..K...J.1.3|
00005000: 34 30 31 30 00 5B 4B 0C 85 4A B2 4A AB 31 3A 49 |4010.[K..J.J.1:I|
00005010: 4E 24 B2 C8 28 49 4E 24 2C 4A AB 31 29 3A 49 24 |N$..(IN$,J.1):I$|
00005020: B2 22 2E 22 3A 99 C8 28 59 24 2C 59 25 29 3B A6 |.".":..(Y$,Y%);.|
00005030: 58 25 AA 4A 29 3B 22 2E 22 3B 3A 89 33 34 30 39 |X%.J);".";:.3409|
00005040: 30 00 7B 4B 16 85 8B 49 49 B2 31 33 A7 97 41 44 |0.{K...II.13..AD|
00005050: AA 4A 2C C2 28 41 44 AA 4A 29 AF 20 31 32 37 3A |.J,.(AD.J). 127:|
00005060: 8E 00 8A 4B 20 85 49 4E 24 B2 49 4E 24 AA 49 24 |...K .IN$.IN$.I$|
00005070: 00 A5 4B 2A 85 99 C8 28 59 24 2C 59 25 29 3B A6 |..K*...(Y$,Y%);.|
00005080: 58 25 AA 4A AB 31 29 3B 49 24 3B 00 C8 4B 34 85 |X%.J.1);I$;..K4.|
00005090: 8B 4A B2 4C 25 A7 49 4E 24 B2 C8 28 49 4E 24 2C |.J.L%.IN$..(IN$,|
000050A0: 4A AB 31 29 AA 49 24 3A 89 35 34 30 30 30 00 DA |J.1).I$:.54000..|
000050B0: 4B 3E 85 8B 49 49 B3 B1 32 30 A7 4A B2 4A AA 31 |K>..II..20.J.J.1|
000050C0: 00 E5 4B 48 85 89 33 34 30 31 30 00 13 4C 4D 85 |..KH..34010..LM.|
000050D0: 97 41 44 AA 4A 2C C2 28 41 44 AA 4A 29 AF 31 32 |.AD.J,.(AD.J).12|
000050E0: 37 3A 99 C8 28 59 24 2C 59 25 29 A6 58 25 AA 4A |7:..(Y$,Y%).X%.J|
000050F0: AB 31 29 3B 49 24 3B 3A 8E 00 21 4C 9D 85 8B 49 |.1);I$;:..!L...I|
00005100: 4E 24 B2 22 22 A7 8E 00 60 4C AC 85 43 43 25 B2 |N$.""...`L..CC%.|
00005110: C6 28 C9 28 49 4E 24 2C 31 29 29 3A 8B 43 43 25 |.(.(IN$,1)):.CC%|
00005120: B2 33 32 B0 43 43 25 B2 31 36 30 A7 49 4E 24 B2 |.32.CC%.160.IN$.|
00005130: C8 28 49 4E 24 2C C3 28 49 4E 24 29 AB 31 29 3A |.(IN$,.(IN$).1):|
00005140: 89 33 34 32 30 35 00 66 4C B6 85 8E 00 8E 4C B8 |.34205.fL.....L.|
00005150: 88 8D 38 33 30 30 3A 8D 38 31 30 30 3A 8B 41 41 |..8300:.8100:.AA|
00005160: 24 B2 C7 28 31 33 33 29 B0 A8 46 31 25 B0 4E 52 |$..(133)..F1%.NR|
00005170: B2 30 A7 8E 00 BB 4C BD 88 99 22 93 D3 43 41 4E |.0....L..."..CAN|
00005180: 20 41 4C 4C 20 4F 52 20 53 45 4C 45 43 54 45 44 | ALL OR SELECTED|
00005190: 20 52 45 43 4F 52 44 53 3F 20 28 41 2F 53 29 22 | RECORDS? (A/S)"|
000051A0: 3B 00 DE 4C C2 88 58 25 B2 33 36 3A 59 25 B2 31 |;..L..X%.36:Y%.1|
000051B0: 3A 4C 25 B2 31 3A 8D 33 34 30 30 30 3A 53 54 24 |:L%.1:.34000:ST$|
000051C0: B2 49 4E 24 00 F0 4C C7 88 8B 49 4E 24 B2 C7 28 |.IN$..L...IN$..(|
000051D0: 31 33 33 29 A7 8E 00 0D 4D CC 88 8B 53 54 24 B3 |133)....M...ST$.|
000051E0: B1 22 41 22 AF 53 54 24 B3 B1 22 53 22 A7 33 35 |."A".ST$.."S".35|
000051F0: 30 31 30 00 20 4D D6 88 8B 53 54 24 B2 22 41 22 |010. M...ST$."A"|
00005200: A7 33 35 31 38 30 00 66 4D E0 88 99 22 93 11 11 |.35180.fM..."...|
00005210: 11 D7 48 41 54 20 46 49 45 4C 44 20 44 4F 20 59 |..HAT FIELD DO Y|
00005220: 4F 55 20 57 49 53 48 20 54 4F 20 53 45 4C 45 43 |OU WISH TO SELEC|
00005230: 54 20 42 59 3F 22 3A 42 24 B2 C4 28 AB 4E 46 29 |T BY?":B$..(.NF)|
00005240: 3A 8B 4E 46 B2 31 A7 42 24 B2 22 22 00 99 4D E1 |:.NF.1.B$.""..M.|
00005250: 88 41 24 B2 22 22 3A 8B 4E 43 B1 30 A7 41 24 B2 |.A$."":.NC.0.A$.|
00005260: 22 2C 20 50 43 31 22 AA C4 28 AB 4E 43 29 3A 8B |", PC1"..(.NC):.|
00005270: 4E 43 B2 31 A7 41 24 B2 22 2C 20 50 43 31 22 00 |NC.1.A$.", PC1".|
00005280: BA 4D E5 88 99 22 28 4B 45 31 22 AA 42 24 AA 41 |.M..."(KE1".B$.A|
00005290: 24 AA 22 20 4F 52 20 12 4C 92 49 53 54 29 22 3B |$." OR .L.IST)";|
000052A0: 00 EE 4D EA 88 58 25 B2 31 3A 59 25 B2 36 3A 4C |..M..X%.1:Y%.6:L|
000052B0: 25 B2 35 3A 8D 33 34 30 30 30 3A 54 24 B2 C8 28 |%.5:.34000:T$..(|
000052C0: 49 4E 24 2C 32 29 3A 54 B2 C5 28 CA 28 49 4E 24 |IN$,2):T..(.(IN$|
000052D0: 2C 33 29 29 00 12 4E EB 88 8B 49 4E 24 B2 22 4C |,3))..N...IN$."L|
000052E0: 22 A7 46 B2 32 3A 8D 32 30 30 30 30 3A 99 22 93 |".F.2:.20000:.".|
000052F0: 22 3A 89 33 35 30 34 30 00 2F 4E EF 88 8B 54 24 |":.35040./N...T$|
00005300: B3 B1 22 4B 45 22 AF 54 24 B3 B1 22 50 43 22 A7 |.."KE".T$.."PC".|
00005310: 33 35 30 35 30 00 55 4E F4 88 53 46 B2 54 3A 4D |35050.UN..SF.T:M|
00005320: 58 B2 4E 46 3A 8B 54 24 B2 22 50 43 22 A7 53 46 |X.NF:.T$."PC".SF|
00005330: B2 54 AA 4E 46 3A 4D 58 B2 4E 43 00 6A 4E FE 88 |.T.NF:MX.NC.jN..|
00005340: 8B 54 B1 30 AF 54 B3 B2 4D 58 A7 33 35 30 39 30 |.T.0.T..MX.35090|
00005350: 00 A8 4E 08 89 99 C8 28 59 24 2C 39 29 22 49 4E |..N....(Y$,9)"IN|
00005360: 56 41 4C 49 44 20 46 49 45 4C 44 22 3A 81 44 4C |VALID FIELD":.DL|
00005370: B2 31 A4 31 30 30 30 3A 82 44 4C 3A 99 C8 28 59 |.1.1000:.DL:..(Y|
00005380: 24 2C 39 29 53 50 24 3A 89 33 35 30 34 30 00 CF |$,9)SP$:.35040..|
00005390: 4E 12 89 8B 54 24 B2 22 4B 45 22 A7 54 24 B2 54 |N...T$."KE".T$.T|
000053A0: 24 28 54 29 3A 4C 53 25 B2 4C 25 28 54 29 3A 89 |$(T):LS%.L%(T):.|
000053B0: 33 35 31 31 30 00 E8 4E 1C 89 54 24 B2 43 54 24 |35110..N..T$.CT$|
000053C0: 28 54 29 3A 4C 53 25 B2 43 4C 25 28 54 29 00 22 |(T):LS%.CL%(T)."|
000053D0: 4F 26 89 49 B2 53 46 3A 99 C8 28 59 24 2C 39 29 |O&.I.SF:..(Y$,9)|
000053E0: 3B 22 D3 4D 41 4C 4C 45 53 54 20 49 54 45 4D 20 |;".MALLEST ITEM |
000053F0: 54 4F 20 53 45 4C 45 43 54 3F 22 3B 3A 59 25 B2 |TO SELECT?";:Y%.|
00005400: C2 28 32 31 34 29 AA 32 00 50 4F 30 89 58 25 B2 |.(214).2.PO0.X%.|
00005410: 30 3A 4C 25 B2 4C 53 25 3A 8B 54 24 B2 22 44 22 |0:L%.LS%:.T$."D"|
00005420: A7 8D 34 39 30 30 30 3A 53 4D 24 B2 49 4E 24 3A |..49000:SM$.IN$:|
00005430: 89 33 35 31 32 36 00 6A 4F 35 89 8D 33 34 30 30 |.35126.jO5..3400|
00005440: 30 3A 8D 33 34 32 30 35 3A 53 4D 24 B2 49 4E 24 |0:.34205:SM$.IN$|
00005450: 00 7C 4F 36 89 8B 53 4D 24 B2 22 22 A7 33 35 31 |.|O6..SM$."".351|
00005460: 31 30 00 9D 4F 3F 89 8B 54 24 B2 22 44 22 A7 44 |10..O?..T$."D".D|
00005470: 24 B2 53 4D 24 3A 8D 33 35 35 30 30 3A 53 4D 24 |$.SM$:.35500:SM$|
00005480: B2 44 24 00 D2 4F 44 89 99 C8 28 59 24 2C 31 32 |.D$..OD...(Y$,12|
00005490: 29 3B 22 CC 41 52 47 45 53 54 20 49 54 45 4D 20 |);".ARGEST ITEM |
000054A0: 54 4F 20 53 45 4C 45 43 54 3F 22 3B 3A 59 25 B2 |TO SELECT?";:Y%.|
000054B0: C2 28 32 31 34 29 AA 32 00 00 50 4E 89 58 25 B2 |.(214).2..PN.X%.|
000054C0: 30 3A 4C 25 B2 4C 53 25 3A 8B 54 24 B2 22 44 22 |0:L%.LS%:.T$."D"|
000054D0: A7 8D 34 39 30 30 30 3A 4C 52 24 B2 49 4E 24 3A |..49000:LR$.IN$:|
000054E0: 89 33 35 31 35 36 00 13 50 53 89 8D 33 34 30 30 |.35156..PS..3400|
000054F0: 30 3A 4C 52 24 B2 49 4E 24 00 25 50 54 89 8B 4C |0:LR$.IN$.%PT..L|
00005500: 52 24 B2 22 22 A7 33 35 31 34 30 00 46 50 5D 89 |R$."".35140.FP].|
00005510: 8B 54 24 B2 22 44 22 A7 44 24 B2 4C 52 24 3A 8D |.T$."D".D$.LR$:.|
00005520: 33 35 35 30 30 3A 4C 52 24 B2 44 24 00 5E 50 62 |35500:LR$.D$.^Pb|
00005530: 89 4C 52 B2 C5 28 4C 52 24 29 3A 53 4D B2 C5 28 |.LR..(LR$):SM..(|
00005540: 53 4D 24 29 00 7F 50 64 89 8B 28 54 24 B2 22 23 |SM$)..Pd..(T$."#|
00005550: 22 B0 54 24 B2 22 24 22 29 AF 4C 52 B3 53 4D A7 |".T$."$").LR.SM.|
00005560: 33 35 30 34 30 00 A2 50 67 89 8B 28 54 24 B2 22 |35040..Pg..(T$."|
00005570: 41 22 B0 54 24 B2 22 44 22 29 AF 4C 52 24 B3 53 |A".T$."D").LR$.S|
00005580: 4D 24 A7 33 35 30 34 30 00 D9 50 68 89 99 C8 28 |M$.35040..Ph...(|
00005590: 59 24 2C 31 36 29 22 C9 53 20 54 48 49 53 20 43 |Y$,16)".S THIS C|
000055A0: 4F 52 52 45 43 54 3F 20 28 59 2F 4E 29 22 3A 58 |ORRECT? (Y/N)":X|
000055B0: 25 B2 32 34 3A 59 25 B2 31 36 3A 4C 25 B2 31 00 |%.24:Y%.16:L%.1.|
000055C0: FD 50 69 89 8D 33 34 30 30 30 3A 8B 49 4E 24 B3 |.Pi..34000:.IN$.|
000055D0: B1 22 59 22 AF 49 4E 24 B3 B1 22 4E 22 A7 33 35 |."Y".IN$.."N".35|
000055E0: 31 37 37 00 10 51 6C 89 8B 49 4E 24 B2 22 4E 22 |177..Ql..IN$."N"|
000055F0: A7 33 35 30 34 30 00 27 51 71 89 43 54 25 B2 30 |.35040.'Qq.CT%.0|
00005600: 3A 53 52 25 B2 AB 31 3A 99 22 93 22 3B 00 56 51 |:SR%..1:.".";.VQ|
00005610: 76 89 8D 38 31 30 30 3A 8D 33 36 31 31 30 3A 91 |v..8100:.36110:.|
00005620: AB 28 53 54 24 B2 22 53 22 29 8D 33 36 31 30 30 |.(ST$."S").36100|
00005630: 3A 81 52 50 B2 31 A4 4E 58 52 AB 31 00 7C 51 80 |:.RP.1.NXR.1.|Q.|
00005640: 89 8D 20 39 37 30 35 3A 8D 39 39 37 30 3A 9E 20 |.. 9705:.9970:. |
00005650: 35 30 31 30 36 20 3A 8F 20 52 45 43 20 49 4E 50 |50106 :. REC INP|
00005660: 55 54 00 99 51 8A 89 8B C8 28 46 24 28 31 29 2C |UT..Q....(F$(1),|
00005670: 31 29 B2 C7 28 32 35 35 29 A7 33 35 34 30 30 00 |1)..(255).35400.|
00005680: C7 51 8F 89 43 54 25 B2 43 54 25 AA 31 3A 8D 32 |.Q..CT%.CT%.1:.2|
00005690: 38 31 30 30 3A 8B 53 46 B3 B2 4E 46 A7 47 24 B2 |8100:.SF..NF.G$.|
000056A0: 46 24 28 53 46 29 3A 89 33 35 32 36 30 00 DB 51 |F$(SF):.35260..Q|
000056B0: 94 89 47 24 B2 C4 28 43 44 28 53 46 AB 4E 46 29 |..G$..(CD(SF.NF)|
000056C0: 29 00 EE 51 BC 89 8B 53 54 24 B2 22 41 22 A7 33 |)..Q...ST$."A".3|
000056D0: 35 33 31 33 00 07 52 C6 89 8B 54 24 B2 22 23 22 |5313..R...T$."#"|
000056E0: B0 54 24 B2 22 24 22 A7 33 35 33 30 30 00 26 52 |.T$."$".35300.&R|
000056F0: CB 89 8B 54 24 B2 22 44 22 A7 44 24 B2 47 24 3A |...T$."D".D$.G$:|
00005700: 8D 33 35 35 30 30 3A 47 24 B2 44 24 00 3F 52 D0 |.35500:G$.D$.?R.|
00005710: 89 49 4E 24 B2 47 24 3A 8D 33 34 32 30 35 3A 47 |.IN$.G$:.34205:G|
00005720: 24 B2 49 4E 24 00 58 52 D3 89 8B 47 24 B1 4C 52 |$.IN$.XR...G$.LR|
00005730: 24 B0 47 24 B3 53 4D 24 A7 33 35 34 30 30 00 63 |$.G$.SM$.35400.c|
00005740: 52 DA 89 89 33 35 33 31 33 00 80 52 E4 89 8B C5 |R...35313..R....|
00005750: 28 47 24 29 B3 53 4D B0 C5 28 47 24 29 B1 4C 52 |(G$).SM..(G$).LR|
00005760: A7 33 35 34 30 30 00 8B 52 F1 89 8D 33 36 31 31 |.35400..R...3611|
00005770: 30 00 C6 52 16 8A 8D 32 38 31 30 30 3A 8D 32 39 |0..R...28100:.29|
00005780: 30 31 30 3A 99 C8 28 59 24 2C 32 33 29 22 20 D2 |010:..(Y$,23)" .|
00005790: 45 43 4F 52 44 53 20 D3 45 41 52 43 48 45 44 3A |ECORDS .EARCHED:|
000057A0: 22 3B 43 54 25 3A 8D 32 39 32 32 31 00 DE 52 34 |";CT%:.29221..R4|
000057B0: 8A 8B 49 4E 24 B2 C7 28 31 33 33 29 A7 53 52 25 |..IN$..(133).SR%|
000057C0: B2 30 3A 8E 00 F3 52 3E 8A 8B 20 53 54 24 B2 22 |.0:...R>.. ST$."|
000057D0: 53 22 A7 8D 33 36 31 30 30 00 1D 53 48 8A 99 C8 |S"..36100..SH...|
000057E0: 28 59 24 2C 32 33 29 22 20 D2 45 43 4F 52 44 53 |(Y$,23)" .ECORDS|
000057F0: 20 D3 45 41 52 43 48 45 44 3A 22 3B 43 54 25 3A | .EARCHED:";CT%:|
00005800: 82 52 50 00 30 53 52 8A 8D 33 36 31 31 30 3A 53 |.RP.0SR..36110:S|
00005810: 52 25 B2 30 3A 8E 00 53 53 AC 8A 44 24 B2 C9 28 |R%.0:..SS..D$..(|
00005820: 44 24 2C 32 29 AA C8 28 44 24 2C 32 29 AA CA 28 |D$,2)..(D$,2)..(|
00005830: 44 24 2C 33 2C 32 29 3A 8E 00 8F 53 A0 8C 44 4F |D$,3,2):...S..DO|
00005840: 24 B2 C4 28 C5 28 44 4F 24 29 29 3A 8B 20 B6 28 |$..(.(DO$)):. .(|
00005850: C5 28 44 4F 24 29 29 B1 39 39 39 39 39 39 39 39 |.(DO$)).99999999|
00005860: 39 B0 B6 28 C5 28 44 4F 24 29 29 B3 2E 30 31 A7 |9..(.(DO$))..01.|
00005870: 33 36 30 37 30 00 AF 53 AA 8C 56 B2 C5 28 44 4F |36070..S..V..(DO|
00005880: 24 29 3A 56 B2 56 AA 2E 30 30 35 31 31 31 31 31 |$):V.V..00511111|
00005890: AC B4 28 56 29 00 E0 53 B4 8C 44 4F 24 B2 C4 28 |..(V)..S..DO$..(|
000058A0: 56 29 3A 44 4F 24 B2 C8 28 44 4F 24 2C C3 28 44 |V):DO$..(DO$,.(D|
000058B0: 4F 24 29 AB 28 38 AB C3 28 C4 28 B5 28 B6 28 56 |O$).(8..(.(.(.(V|
000058C0: 29 29 29 29 29 29 00 F6 53 E6 8C 44 4F 24 B2 C9 |))))))..S..DO$..|
000058D0: 28 53 50 24 AA 44 4F 24 2C 46 57 29 00 FC 53 F0 |(SP$.DO$,FW)..S.|
000058E0: 8C 8E 00 37 54 04 8D 9E 36 35 34 38 34 3A 9E 36 |...7T...65484:.6|
000058F0: 35 35 31 31 3A 97 37 31 35 2C 31 3A 97 37 31 36 |5511:.715,1:.716|
00005900: 2C 30 3A 97 37 31 31 2C 31 3A 97 35 30 31 30 37 |,0:.711,1:.50107|
00005910: 2C 36 33 3A 97 35 30 33 33 38 2C 39 36 00 4B 54 |,63:.50338,96.KT|
00005920: 09 8D 9E 35 30 34 34 32 3A 9E 35 30 33 36 31 3A |...50442:.50361:|
00005930: 8E 00 88 54 0E 8D 9E 36 35 34 38 34 3A 9E 36 35 |...T...65484:.65|
00005940: 35 31 31 3A 97 35 30 31 30 37 2C 35 37 3A 97 35 |511:.50107,57:.5|
00005950: 30 33 33 38 2C 31 36 39 3A A0 31 35 3A 9F 31 35 |0338,169:.15:.15|
00005960: 2C 44 56 2C 31 35 2C 22 49 22 AA 44 43 24 00 92 |,DV,15,"I".DC$..|
00005970: 54 13 8D A0 31 35 3A 8E 00 AA 54 28 A0 81 4A 49 |T...15:...T(..JI|
00005980: B2 31 A4 C3 28 42 24 29 AA 31 AB C3 28 41 24 29 |.1..(B$).1..(A$)|
00005990: 00 C9 54 32 A0 8B CA 28 42 24 2C 4A 49 2C C3 28 |..T2...(B$,JI,.(|
000059A0: 41 24 29 29 B2 41 24 A7 49 39 B2 4A 49 3A 8E 00 |A$)).A$.I9.JI:..|
000059B0: D6 54 3C A0 82 3A 49 39 B2 30 3A 8E 00 DC 54 68 |.T<..:I9.0:...Th|
000059C0: BF 8F 00 E2 54 04 C1 8F 00 25 55 50 C3 44 56 B2 |....T....%UP.DV.|
000059D0: 38 3A 44 46 25 B2 30 3A 44 43 24 B2 22 30 3A 22 |8:DF%.0:DC$."0:"|
000059E0: 3A 99 22 93 11 11 20 20 20 20 20 20 20 20 20 12 |:."... .|
000059F0: 2A 2A 20 C4 52 49 56 45 20 C3 4F 4E 46 49 47 55 |** .RIVE .ONFIGU|
00005A00: 52 41 54 49 4F 4E 20 2A 2A 92 22 00 5A 55 5A C3 |RATION **.".ZUZ.|
00005A10: 99 C8 28 59 24 2C 31 30 29 22 20 20 20 20 20 D4 |..(Y$,10)" .|
00005A20: 57 4F 20 53 49 4E 47 4C 45 20 44 49 53 4B 20 44 |WO SINGLE DISK D|
00005A30: 52 49 56 45 53 20 2E 2E 2E 2E 2E 2E 2E 2E 31 22 |RIVES ........1"|
00005A40: 00 87 55 5C C3 99 22 20 20 20 20 20 C4 55 41 4C |..U\.." .UAL|
00005A50: 20 44 49 53 4B 20 44 52 49 56 45 20 2E 2E 2E 2E | DISK DRIVE ....|
00005A60: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 32 22 00 B4 55 |...........2"..U|
00005A70: 5E C3 99 22 20 20 20 20 20 D3 49 4E 47 4C 45 20 |^.." .INGLE |
00005A80: 44 49 53 4B 20 44 52 49 56 45 20 2E 2E 2E 2E 2E |DISK DRIVE .....|
00005A90: 2E 2E 2E 2E 2E 2E 2E 2E 33 22 00 E8 55 60 C3 99 |........3"..U`..|
00005AA0: C8 28 59 24 2C 31 36 29 22 20 20 20 20 20 C5 4E |.(Y$,16)" .N|
00005AB0: 54 45 52 20 53 59 53 54 45 4D 20 41 4E 44 20 50 |TER SYSTEM AND P|
00005AC0: 52 45 53 53 20 12 D2 45 54 55 52 4E 92 22 00 1D |RESS ..ETURN."..|
00005AD0: 56 64 C3 58 25 B2 33 36 3A 59 25 B2 31 36 3A 4C |Vd.X%.36:Y%.16:L|
00005AE0: 25 B2 31 3A 8D 33 34 30 30 30 3A 8B C5 28 49 4E |%.1:.34000:..(IN|
00005AF0: 24 29 B3 31 B0 C5 28 49 4E 24 29 B1 33 A7 35 30 |$).1..(IN$).3.50|
00005B00: 30 32 30 00 30 56 68 C3 44 44 24 B2 49 4E 24 3A |020.0Vh.DD$.IN$:|
00005B10: 8D 35 30 30 39 30 00 51 56 70 C3 99 C8 28 59 24 |.50090.QVp...(Y$|
00005B20: 2C 31 38 29 3B 53 50 24 3A 8B 49 4E 24 B2 22 4E |,18);SP$:.IN$."N|
00005B30: 22 A7 35 30 30 32 30 00 65 56 74 C3 8B 44 44 24 |".50020.eVt..DD$|
00005B40: B3 B1 22 31 22 A7 35 30 30 35 30 00 97 56 76 C3 |.."1".50050..Vv.|
00005B50: 99 C8 28 59 24 2C 31 39 29 22 20 C5 4E 54 45 52 |..(Y$,19)" .NTER|
00005B60: 20 53 45 43 4F 4E 44 20 44 52 49 56 45 20 44 45 | SECOND DRIVE DE|
00005B70: 56 49 43 45 20 4E 55 4D 42 45 52 3A 22 00 CD 56 |VICE NUMBER:"..V|
00005B80: 78 C3 58 25 B2 33 34 3A 59 25 B2 31 39 3A 4C 25 |x.X%.34:Y%.19:L%|
00005B90: B2 32 3A 8D 33 34 30 30 30 3A 8B C5 28 49 4E 24 |.2:.34000:..(IN$|
00005BA0: 29 B3 35 B0 C5 28 49 4E 24 29 B1 31 35 A7 35 30 |).5..(IN$).15.50|
00005BB0: 30 34 30 00 FF 56 7C C3 44 56 B2 C5 28 49 4E 24 |040..V|.DV..(IN$|
00005BC0: 29 3A 8D 35 30 30 39 30 3A 99 C8 28 59 24 2C 31 |):.50090:..(Y$,1|
00005BD0: 39 29 3B 53 50 24 3A 8B 49 4E 24 B2 22 4E 22 A7 |9);SP$:.IN$."N".|
00005BE0: 35 30 30 33 38 00 1B 57 80 C3 44 44 24 B2 22 31 |50038..W..DD$."1|
00005BF0: 22 3A 44 43 24 B2 22 30 3A 22 3A 89 35 30 30 35 |":DC$."0:":.5005|
00005C00: 32 00 47 57 82 C3 44 43 24 B2 CA 28 C4 28 B6 28 |2.GW..DC$..(.(.(|
00005C10: 44 44 24 B2 22 32 22 29 29 2C 32 29 AA 22 3A 22 |DD$."2")),2).":"|
00005C20: 3A 44 44 24 B2 C8 28 44 43 24 2C 31 29 00 8C 57 |:DD$..(DC$,1)..W|
00005C30: 84 C3 99 C8 28 59 24 2C 31 39 29 22 20 20 D3 48 |....(Y$,19)" .H|
00005C40: 4F 55 4C 44 20 C9 20 52 45 4D 45 4D 42 45 52 20 |OULD . REMEMBER |
00005C50: 54 48 49 53 20 20 20 22 3A 99 22 20 20 43 4F 4E |THIS ":." CON|
00005C60: 46 49 47 55 52 41 54 49 4F 4E 3F 20 28 59 2F 4E |FIGURATION? (Y/N|
00005C70: 29 22 00 C1 57 86 C3 58 25 B2 32 33 3A 59 25 B2 |)"..W..X%.23:Y%.|
00005C80: 32 30 3A 4C 25 B2 31 3A 8D 33 34 30 30 30 3A 8B |20:L%.1:.34000:.|
00005C90: 49 4E 24 B3 B1 22 59 22 AF 49 4E 24 B3 B1 22 4E |IN$.."Y".IN$.."N|
00005CA0: 22 A7 35 30 30 35 34 00 EE 57 88 C3 99 C8 28 59 |".50054..W....(Y|
00005CB0: 24 2C 31 39 29 53 50 24 3A 99 C8 28 59 24 2C 32 |$,19)SP$:..(Y$,2|
00005CC0: 30 29 53 50 24 3A 8B 49 4E 24 B2 22 4E 22 A7 35 |0)SP$:.IN$."N".5|
00005CD0: 30 30 37 30 00 10 58 8C C3 8D 33 33 30 30 30 3A |0070..X...33000:|
00005CE0: 9F 35 2C 38 2C 35 2C 22 40 30 3A 43 4F 4E 46 49 |.5,8,5,"@0:CONFI|
00005CF0: 47 2C 53 2C 57 22 00 32 58 8E C3 98 35 2C C7 28 |G,S,W".2X...5,.(|
00005D00: 33 34 29 3B 3A 98 35 2C 44 43 24 3A 98 35 2C 44 |34);:.5,DC$:.5,D|
00005D10: 44 24 3A 98 35 2C 44 56 00 39 58 90 C3 A0 35 00 |D$:.5,DV.9X...5.|
00005D20: 5D 58 96 C3 8B C2 28 39 36 35 29 B2 31 A7 44 56 |]X....(965).1.DV|
00005D30: B2 38 3A 44 43 24 B2 22 30 3A 22 3A 44 44 24 B2 |.8:DC$."0:":DD$.|
00005D40: 22 30 22 00 6F 58 9B C3 8D 35 30 32 32 35 3A 89 |"0".oX...50225:.|
00005D50: 35 34 36 30 30 00 A6 58 AA C3 99 C8 28 59 24 2C |54600..X....(Y$,|
00005D60: 31 39 29 22 20 20 C9 53 20 54 48 49 53 20 43 4F |19)" .S THIS CO|
00005D70: 52 52 45 43 54 3F 20 28 59 2F 4E 29 20 20 20 20 |RRECT? (Y/N) |
00005D80: 20 20 20 20 20 20 20 20 20 20 20 22 00 DB 58 AC | "..X.|
00005D90: C3 58 25 B2 32 34 3A 59 25 B2 31 39 3A 4C 25 B2 |.X%.24:Y%.19:L%.|
00005DA0: 31 3A 8D 33 34 30 30 30 3A 8B 49 4E 24 B3 B1 22 |1:.34000:.IN$.."|
00005DB0: 59 22 AF 49 4E 24 B3 B1 22 4E 22 A7 35 30 30 39 |Y".IN$.."N".5009|
00005DC0: 32 00 FB 58 B0 C3 99 C8 28 59 24 2C 31 39 29 53 |2..X....(Y$,19)S|
00005DD0: 50 24 3A 99 C8 28 59 24 2C 32 30 29 53 50 24 3A |P$:..(Y$,20)SP$:|
00005DE0: 8E 00 26 59 18 C4 44 43 24 B2 22 30 3A 22 3A 44 |..&Y..DC$."0:":D|
00005DF0: 44 24 B2 22 30 22 3A 44 56 B2 38 3A 8B C2 28 39 |D$."0":DV.8:..(9|
00005E00: 36 35 29 B3 B1 32 A7 35 30 32 32 35 00 4B 59 22 |65)..2.50225.KY"|
00005E10: C4 46 49 24 B2 22 43 4F 4E 46 49 47 22 3A 8D 35 |.FI$."CONFIG":.5|
00005E20: 32 32 31 35 3A 8B 44 53 B1 31 39 A7 35 30 32 32 |2215:.DS.19.5022|
00005E30: 35 00 68 59 2C C4 9F 35 2C 38 2C 35 2C 46 49 24 |5.hY,..5,8,5,FI$|
00005E40: 3A 84 35 2C 44 43 24 2C 44 44 24 2C 44 56 00 8E |:.5,DC$,DD$,DV..|
00005E50: 59 31 C4 97 37 31 37 2C 44 56 3A 97 35 33 32 33 |Y1..717,DV:.5323|
00005E60: 33 2C C6 28 44 43 24 29 3A A0 35 3A 8B 4F 50 25 |3,.(DC$):.5:.OP%|
00005E70: B2 36 A7 8E 00 BC 59 36 C4 50 44 B2 34 3A 53 41 |.6....Y6.PD.4:SA|
00005E80: B2 37 3A 46 49 24 B2 22 50 52 43 4F 4E 22 3A 8D |.7:FI$."PRCON":.|
00005E90: 35 32 32 31 35 3A 8B 44 53 B1 31 39 A7 35 30 32 |52215:.DS.19.502|
00005EA0: 34 30 00 DD 59 3B C4 9F 35 2C 38 2C 35 2C 22 30 |40..Y;..5,8,5,"0|
00005EB0: 3A 50 52 43 4F 4E 22 3A 84 35 2C 50 44 2C 53 41 |:PRCON":.5,PD,SA|
00005EC0: 3A A0 35 00 F3 59 40 C4 97 38 32 39 2C 50 44 3A |:.5..Y@..829,PD:|
00005ED0: 97 38 33 32 2C 53 41 3A 8E 00 17 5A 9C C7 A0 34 |.832,SA:...Z...4|
00005EE0: 3A 9F 34 2C C2 28 38 32 39 29 3A 98 34 2C 22 22 |:.4,.(829):.4,""|
00005EF0: 3A 8B 53 54 B3 B1 30 A7 35 31 31 35 30 00 3B 5A |:.ST..0.51150.;Z|
00005F00: A1 C7 8D 38 30 30 30 3A 99 C8 28 59 24 2C 32 35 |...8000:..(Y$,25|
00005F10: 29 3B 22 D0 52 49 4E 54 49 4E 47 2E 2E 2E 2E 22 |);".RINTING...."|
00005F20: 3B 00 52 5A BA C7 A0 34 3A 9E 38 32 38 3A 98 34 |;.RZ...4:.828:.4|
00005F30: 3A A0 34 3A A0 33 3A 8E 00 83 5A CE C7 A0 34 3A |:.4:.3:...Z...4:|
00005F40: 99 C8 28 59 24 2C 32 33 29 22 20 20 12 D0 52 49 |..(Y$,23)" ..RI|
00005F50: 4E 54 45 52 20 CE 4F 54 20 D2 45 41 44 59 92 20 |NTER .OT .EADY. |
00005F60: 20 20 20 20 20 20 20 20 22 00 93 5A E2 C7 81 58 | "..Z...X|
00005F70: B2 31 A4 31 32 30 30 3A 82 00 AB 5A EC C7 99 C8 |.1.1200:...Z....|
00005F80: 28 59 24 2C 32 33 29 3B 53 50 24 3B 3A A0 33 3A |(Y$,23);SP$;:.3:|
00005F90: 8E 00 B1 5A D4 CB 8E 00 DA 5A F2 CB A0 31 35 3A |...Z.....Z...15:|
00005FA0: 9F 31 35 2C 44 56 2C 31 35 3A 9F 35 2C 44 56 2C |.15,DV,15:.5,DV,|
00005FB0: 35 2C 44 43 24 AA 46 49 24 3A 89 35 32 32 32 30 |5,DC$.FI$:.52220|
00005FC0: 00 FB 5A F7 CB A0 31 35 3A 9F 31 35 2C 38 2C 31 |..Z...15:.15,8,1|
00005FD0: 35 3A 9F 35 2C 38 2C 35 2C 22 30 3A 22 AA 46 49 |5:.5,8,5,"0:".FI|
00005FE0: 24 00 13 5B FC CB 84 31 35 2C 45 52 24 2C 45 4D |$..[...15,ER$,EM|
00005FF0: 24 2C 45 54 24 2C 45 53 24 00 32 5B 06 CC 44 53 |$,ET$,ES$.2[..DS|
00006000: B2 30 3A 44 53 B2 C5 28 45 52 24 29 3A 8B 44 53 |.0:DS..(ER$):.DS|
00006010: B2 30 A7 35 32 32 35 30 00 50 5B 10 CC 44 53 24 |.0.52250.P[..DS$|
00006020: B2 45 52 24 AA 20 AA 45 4D 24 AA 20 AA 45 54 24 |.ER$. .EM$. .ET$|
00006030: AA 20 AA 45 53 24 00 5D 5B 1A CC A0 31 35 3A A0 |. .ES$.][...15:.|
00006040: 35 3A 8E 00 79 5B 4C CC 8B 41 B2 30 A7 49 25 B2 |5:..y[L..A.0.I%.|
00006050: AB 31 3A 8D 33 31 30 30 3A 8D 33 33 30 30 30 00 |.1:.3100:.33000.|
00006060: B8 5B 51 CC 8B 41 B2 30 A7 41 B2 31 3A 99 22 93 |.[Q..A.0.A.1:.".|
00006070: 11 11 11 11 22 A6 31 30 29 22 C9 4E 49 54 49 41 |....".10)".NITIA|
00006080: 4C 49 5A 49 4E 47 20 CD 45 4D 4F 52 59 20 2E 2E |LIZING .EMORY ..|
00006090: 2E 2E 22 3A 93 22 30 3A 4D 22 2C 38 2C 31 00 D0 |..":."0:M",8,1..|
000060A0: 5B 56 CC 8B 41 B2 31 A7 41 B2 32 3A 93 22 30 3A |[V..A.1.A.2:."0:|
000060B0: 50 22 2C 38 2C 31 00 D6 5B 5B CC 8E 00 12 5C 08 |P",8,1..[[....\.|
000060C0: CF 99 22 93 22 A3 31 33 29 22 D3 45 54 20 C3 4F |..".".13)".ET .O|
000060D0: 4C 4F 52 20 CD 4F 44 45 22 3A 99 A3 35 29 22 11 |LOR .ODE":..5)".|
000060E0: 11 5B 46 31 5D 20 53 45 54 53 20 53 43 52 45 45 |.[F1] SETS SCREE|
000060F0: 4E 20 43 4F 4C 4F 52 22 00 50 5C 21 CF 99 A3 35 |N COLOR".P\!...5|
00006100: 29 22 11 5B 46 33 5D 20 53 45 54 53 20 42 4F 52 |)".[F3] SETS BOR|
00006110: 44 45 52 20 43 4F 4C 4F 52 22 3A 99 A3 35 29 22 |DER COLOR":..5)"|
00006120: 11 5B 46 35 5D 20 53 45 54 53 20 54 45 58 54 20 |.[F5] SETS TEXT |
00006130: 43 4F 4C 4F 52 22 00 79 5C 2B CF 99 A3 35 29 22 |COLOR".y\+...5)"|
00006140: 11 5B 46 37 5D 20 52 45 54 55 52 4E 53 20 59 4F |.[F7] RETURNS YO|
00006150: 55 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 22 00 |U TO MAIN MENU".|
00006160: 8E 5C 35 CF A1 41 24 3A 8B 41 24 B2 22 22 A7 35 |.\5..A$:.A$."".5|
00006170: 33 30 34 35 00 A3 5C 37 CF 8B 41 24 B2 C7 28 31 |3045..\7..A$..(1|
00006180: 33 36 29 A7 35 34 33 32 30 00 E1 5C 3A CF 43 31 |36).54320..\:.C1|
00006190: B2 AB 28 43 31 AB 28 41 24 B2 C7 28 31 33 33 29 |..(C1.(A$..(133)|
000061A0: 29 29 AC 28 43 31 B3 31 35 29 3A 43 32 B2 AB 28 |)).(C1.15):C2..(|
000061B0: 43 32 AB 28 41 24 B2 C7 28 31 33 34 29 29 29 AC |C2.(A$..(134))).|
000061C0: 28 43 32 B3 31 35 29 00 25 5D 3F CF 43 33 B2 AB |(C2.15).%]?.C3..|
000061D0: 28 43 33 AB 28 41 24 B2 C7 28 31 33 35 29 29 29 |(C3.(A$..(135)))|
000061E0: AC 28 43 33 B3 31 35 29 3A 97 35 33 32 38 31 2C |.(C3.15):.53281,|
000061F0: 43 31 3A 97 35 33 32 38 30 2C 43 32 3A 97 36 34 |C1:.53280,C2:.64|
00006200: 36 2C 43 33 3A 89 35 33 30 30 30 00 3A 5D 62 CF |6,C3:.53000.:]b.|
00006210: 97 35 33 32 38 30 2C 43 32 3A 89 35 33 30 30 30 |.53280,C2:.53000|
00006220: 00 52 5D 67 CF 43 33 B2 43 33 AA 31 3A 8B 43 33 |.R]g.C3.C3.1:.C3|
00006230: B1 31 36 A7 43 33 B2 30 00 65 5D 6C CF 97 36 34 |.16.C3.0.e]l..64|
00006240: 36 2C 43 33 3A 89 35 33 30 30 30 00 75 5D F0 D2 |6,C3:.53000.u]..|
00006250: 8B 53 44 B2 31 A7 35 34 30 35 35 00 92 5D F5 D2 |.SD.1.54055..]..|
00006260: 53 B2 35 34 32 37 32 3A 97 53 AA 32 34 2C 31 35 |S.54272:.S.24,15|
00006270: 3A 97 53 AA 32 2C 37 32 00 C6 5D 04 D3 81 58 B2 |:.S.2,72..]...X.|
00006280: 31 A4 34 3A 97 53 AA 31 2C 31 36 39 3A 97 53 AA |1.4:.S.1,169:.S.|
00006290: 34 2C 33 33 3A 97 53 AA 34 2C 34 3A 81 5A 5A B2 |4,33:.S.4,4:.ZZ.|
000062A0: 31 A4 35 3A 82 3A 97 53 AA 34 2C 34 00 CD 5D 1D |1.5:.:.S.4,4..].|
000062B0: D3 82 58 00 D8 5D 22 D3 89 33 34 30 31 30 00 F1 |..X..]"..34010..|
000062C0: 5D 27 D3 81 58 B2 31 A4 32 34 3A 97 35 34 32 37 |]'..X.1.24:.5427|
000062D0: 32 AA 58 2C 30 3A 82 00 FC 5D 2C D3 89 33 34 30 |2.X,0:...],..340|
000062E0: 31 30 00 13 5E 1C D4 8B 53 44 B2 30 A7 53 44 B2 |10..^...SD.0.SD.|
000062F0: 31 3A 49 24 B2 22 22 3A 8E 00 2A 5E 21 D4 8B 53 |1:I$."":..*^!..S|
00006300: 44 B2 31 A7 53 44 B2 30 3A 49 24 B2 22 22 3A 8E |D.1.SD.0:I$."":.|
00006310: 00 30 5E 26 D4 8E 00 39 5E 30 D4 99 22 93 22 00 |.0^&...9^0..".".|
00006320: 6D 5E 33 D4 99 22 13 11 11 11 11 20 20 D7 4F 55 |m^3.."..... .OU|
00006330: 4C 44 20 59 4F 55 20 4C 49 4B 45 20 C3 4F 44 45 |LD YOU LIKE .ODE|
00006340: D7 52 49 54 45 52 20 54 4F 20 52 45 4D 45 4D 42 |.RITER TO REMEMB|
00006350: 45 52 22 00 9A 5E 35 D4 99 22 20 59 4F 55 52 20 |ER"..^5.." YOUR |
00006360: 43 55 52 52 45 4E 54 20 53 43 52 45 45 4E 20 43 |CURRENT SCREEN C|
00006370: 4F 4C 4F 52 53 20 28 59 2F 4E 29 20 3F 20 22 3B |OLORS (Y/N) ? ";|
00006380: 00 B5 5E 3A D4 59 25 B2 36 3A 58 25 B2 33 37 3A |..^:.Y%.6:X%.37:|
00006390: 4C 25 B2 31 3A 8D 33 34 30 30 30 00 C7 5E 3F D4 |L%.1:.34000..^?.|
000063A0: 8B 20 49 4E 24 B2 22 4E 22 20 A7 20 8E 00 DE 5E |. IN$."N" . ...^|
000063B0: 44 D4 8B 20 49 4E 24 B3 B1 22 59 22 20 A7 20 35 |D.. IN$.."Y" . 5|
000063C0: 34 33 32 33 00 E9 5E 49 D4 8D 33 33 30 30 30 00 |4323..^I..33000.|
000063D0: 28 5F 4E D4 A0 32 3A 9F 32 2C 38 2C 32 2C 22 40 |(_N..2:.2,8,2,"@|
000063E0: 30 3A 43 4F 4C 4F 52 2C 53 2C 57 22 3A 98 32 2C |0:COLOR,S,W":.2,|
000063F0: C2 28 36 34 36 29 3A 98 32 2C C2 28 35 33 32 38 |.(646):.2,.(5328|
00006400: 30 29 3A 98 32 2C C2 28 35 33 32 38 31 29 00 45 |0):.2,.(53281).E|
00006410: 5F 62 D4 A0 32 3A 91 C2 28 39 36 35 29 8D 33 33 |_b..2:..(965).33|
00006420: 30 30 30 2C 33 33 31 35 31 3A 8E 00 57 5F E4 D4 |000,33151:..W_..|
00006430: 8F 20 52 45 41 44 20 43 4F 4C 4F 52 53 00 99 5F |. READ COLORS.._|
00006440: E9 D4 43 31 B2 C2 28 35 33 32 38 31 29 3A 43 32 |..C1..(53281):C2|
00006450: B2 C2 28 35 33 32 38 30 29 3A 43 33 B2 C2 28 36 |..(53280):C3..(6|
00006460: 34 36 29 3A 46 49 24 B2 22 43 4F 4C 4F 52 22 3A |46):FI$."COLOR":|
00006470: 8D 35 32 32 31 35 3A 8B 44 53 B1 31 39 A7 8E 00 |.52215:.DS.19...|
00006480: DB 5F EB D4 9F 32 2C 38 2C 32 2C 22 30 3A 43 4F |._...2,8,2,"0:CO|
00006490: 4C 4F 52 22 3A 99 22 93 22 3A 84 32 2C 43 33 2C |LOR":.".":.2,C3,|
000064A0: 43 32 2C 43 31 3A 97 36 34 36 2C 43 33 3A 97 35 |C2,C1:.646,C3:.5|
000064B0: 33 32 38 30 2C 43 32 3A 97 35 33 32 38 31 2C 43 |3280,C2:.53281,C|
000064C0: 31 00 E4 5F 0C D5 A0 32 3A 8E 00 27 60 48 D5 99 |1.._...2:..'`H..|
000064D0: 22 93 11 11 20 20 20 20 20 20 20 12 2A 2A 20 D0 |"... .** .|
000064E0: 52 49 4E 54 45 52 20 C3 4F 4E 46 49 47 55 52 41 |RINTER .ONFIGURA|
000064F0: 54 49 4F 4E 20 2A 2A 92 22 3A 50 44 B2 C2 28 38 |TION **.":PD..(8|
00006500: 32 39 29 3A 53 41 B2 C2 28 38 33 32 29 00 70 60 |29):SA..(832).p`|
00006510: 4D D5 99 C8 28 59 24 2C 35 29 A6 31 31 29 22 C3 |M...(Y$,5).11)".|
00006520: 55 52 52 45 4E 54 20 C4 45 56 49 43 45 23 3A 22 |URRENT .EVICE#:"|
00006530: 3B 50 44 3A 99 22 11 20 C3 55 52 52 45 4E 54 20 |;PD:.". .URRENT |
00006540: D3 45 43 4F 4E 44 41 52 59 20 C1 44 44 52 45 53 |.ECONDARY .DDRES|
00006550: 53 3A 22 3B 53 41 00 B7 60 52 D5 99 C8 28 59 24 |S:";SA..`R...(Y$|
00006560: 2C 31 30 29 22 20 CE 45 57 20 C4 45 56 49 43 45 |,10)" .EW .EVICE|
00006570: 3A 22 3A 58 25 B2 31 32 3A 59 25 B2 31 30 3A 4C |:":X%.12:Y%.10:L|
00006580: 25 B2 32 3A 8D 33 34 30 30 30 3A 8B 49 4E 24 B3 |%.2:.34000:.IN$.|
00006590: B1 22 22 A7 50 44 B2 C5 28 49 4E 24 29 00 E2 60 |."".PD..(IN$)..`|
000065A0: 53 D5 99 C8 28 59 24 2C 31 30 29 22 20 CE 45 57 |S...(Y$,10)" .EW|
000065B0: 20 C4 45 56 49 43 45 3A 22 AA CA 28 C4 28 50 44 | .EVICE:"..(.(PD|
000065C0: 29 2C 32 29 AA 22 20 22 00 1C 61 57 D5 99 C8 28 |),2)." "..aW...(|
000065D0: 59 24 2C 31 32 29 22 20 CE 45 57 20 D3 45 43 2E |Y$,12)" .EW .EC.|
000065E0: 20 C1 44 44 52 45 53 53 3A 22 3A 58 25 B2 31 38 | .DDRESS:":X%.18|
000065F0: 3A 59 25 B2 31 32 3A 4C 25 B2 32 3A 8D 33 34 30 |:Y%.12:L%.2:.340|
00006600: 30 30 00 33 61 58 D5 8B 49 4E 24 B3 B1 22 22 A7 |00.3aX..IN$.."".|
00006610: 53 41 B2 C5 28 49 4E 24 29 00 64 61 59 D5 99 C8 |SA..(IN$).daY...|
00006620: 28 59 24 2C 31 32 29 22 20 CE 45 57 20 D3 45 43 |(Y$,12)" .EW .EC|
00006630: 2E 20 C1 44 44 52 45 53 53 3A 22 AA CA 28 C4 28 |. .DDRESS:"..(.(|
00006640: 53 41 29 2C 32 29 AA 22 20 22 00 A3 61 5C D5 99 |SA),2)." "..a\..|
00006650: C8 28 59 24 2C 31 35 29 22 20 C9 53 20 54 48 49 |.(Y$,15)" .S THI|
00006660: 53 20 43 4F 52 52 45 43 54 3F 20 28 59 2F 4E 29 |S CORRECT? (Y/N)|
00006670: 22 3A 58 25 B2 32 33 3A 59 25 B2 31 35 3A 4C 25 |":X%.23:Y%.15:L%|
00006680: B2 31 3A 8D 33 34 30 30 30 00 C0 61 61 D5 8B 49 |.1:.34000..aa..I|
00006690: 4E 24 B3 B1 22 59 22 AF 49 4E 24 B3 B1 22 4E 22 |N$.."Y".IN$.."N"|
000066A0: A7 35 34 36 32 30 00 D3 61 66 D5 8B 49 4E 24 B2 |.54620..af..IN$.|
000066B0: 22 4E 22 A7 35 34 36 30 30 00 18 62 6B D5 99 C8 |"N".54600..bk...|
000066C0: 28 59 24 2C 31 35 29 22 20 D3 48 41 4C 4C 20 C9 |(Y$,15)" .HALL .|
000066D0: 20 52 45 4D 45 4D 42 45 52 20 54 48 49 53 3F 20 | REMEMBER THIS? |
000066E0: 28 59 2F 4E 29 22 3A 58 25 B2 33 30 3A 59 25 B2 |(Y/N)":X%.30:Y%.|
000066F0: 31 35 3A 4C 25 B2 31 3A 8D 33 34 30 30 30 00 35 |15:L%.1:.34000.5|
00006700: 62 70 D5 8B 49 4E 24 B3 B1 22 59 22 AF 49 4E 24 |bp..IN$.."Y".IN$|
00006710: B3 B1 22 4E 22 A7 35 34 36 33 35 00 54 62 75 D5 |.."N".54635.Tbu.|
00006720: 97 38 32 39 2C 50 44 3A 97 38 33 32 2C 53 41 3A |.829,PD:.832,SA:|
00006730: 8B 49 4E 24 B2 22 4E 22 A7 8E 00 89 62 7A D5 8D |.IN$."N"....bz..|
00006740: 33 33 30 30 30 3A A0 32 3A 9F 32 2C 38 2C 32 2C |33000:.2:.2,8,2,|
00006750: 22 40 30 3A 50 52 43 4F 4E 2C 53 2C 57 22 3A 98 |"@0:PRCON,S,W":.|
00006760: 32 2C 50 44 3A 98 32 2C 53 41 3A A0 32 3A 8E 00 |2,PD:.2,SA:.2:..|
00006770: BA 62 6C E8 4C B2 C2 28 39 38 30 29 3A 50 4E 24 |.bl.L..(980):PN$|
00006780: B2 22 22 3A 81 49 B2 31 A4 4C 3A 50 4E 24 B2 50 |."":.I.1.L:PN$.P|
00006790: 4E 24 AA C7 28 C2 28 39 38 30 AA 49 29 29 3A 82 |N$..(.(980.I)):.|
000067A0: 00 D8 62 6D E8 53 46 24 B2 50 4E 24 AA 22 2F 53 |..bm.SF$.PN$."/S|
000067B0: 22 3A 42 46 24 B2 50 4E 24 AA 22 2F 42 22 00 18 |":BF$.PN$."/B"..|
000067C0: 63 6E E8 44 56 B2 C2 28 39 36 39 29 3A 44 43 24 |cn.DV..(969):DC$|
000067D0: B2 22 30 3A 22 3A 44 44 24 B2 22 30 22 3A 8B C2 |."0:":DD$."0":..|
000067E0: 28 39 36 38 29 B2 32 A7 44 44 24 B2 22 31 22 3A |(968).2.DD$."1":|
000067F0: 8B 44 56 B2 38 A7 44 43 24 B2 22 31 3A 22 00 1E |.DV.8.DC$."1:"..|
00006800: 63 6F E8 8E 00 3D 63 76 E8 9C 3A 97 20 36 34 36 |co...=cv..:. 646|
00006810: 2C C2 28 39 37 30 29 3A 99 22 93 22 3A 8D 35 39 |,.(970):.".":.59|
00006820: 35 30 30 00 5B 63 78 E8 A0 31 35 3A 9F 31 35 2C |500.[cx..15:.15,|
00006830: 44 56 2C 31 35 3A 98 31 35 2C 22 49 22 AA 44 44 |DV,15:.15,"I".DD|
00006840: 24 00 6F 63 79 E8 98 31 35 2C 22 53 22 AA 44 43 |$.ocy..15,"S".DC|
00006850: 24 AA 50 4E 24 00 7F 63 7B E8 94 44 43 24 AA 50 |$.PN$..c{..DC$.P|
00006860: 4E 24 2C 44 56 00 C0 63 7D E8 84 31 35 2C 45 52 |N$,DV..c}..15,ER|
00006870: 24 2C 45 4D 24 3A 99 3A 99 22 11 20 D3 41 56 45 |$,EM$:.:.". .AVE|
00006880: 20 D3 54 41 54 55 53 3A 22 3B 45 52 24 3B 22 2C | .TATUS:";ER$;",|
00006890: 22 3B 45 4D 24 3A 8B C5 28 45 52 24 29 B1 31 39 |";EM$:..(ER$).19|
000068A0: A7 35 39 35 34 35 00 D0 63 7E E8 95 44 43 24 AA |.59545..c~..DC$.|
000068B0: 50 4E 24 2C 44 56 00 FE 63 80 E8 99 22 11 20 20 |PN$,DV..c...". |
000068C0: D9 4F 55 52 20 50 52 4F 47 52 41 4D 20 48 41 53 |.OUR PROGRAM HAS|
000068D0: 20 42 45 45 4E 20 53 41 56 45 44 20 4F 4E 20 59 | BEEN SAVED ON Y|
000068E0: 4F 55 52 22 00 18 64 85 E8 99 22 20 41 50 50 4C |OUR"..d..." APPL|
000068F0: 49 43 41 54 49 4F 4E 20 44 49 53 4B 2E 22 00 45 |ICATION DISK.".E|
00006900: 64 8A E8 99 22 11 20 20 D4 4F 20 52 55 4E 20 59 |d...". .O RUN Y|
00006910: 4F 55 52 20 50 52 4F 47 52 41 4D 20 4E 4F 57 2C |OUR PROGRAM NOW,|
00006920: 20 4D 41 4B 45 20 53 55 52 45 22 00 72 64 8F E8 | MAKE SURE".rd..|
00006930: 99 22 20 59 4F 55 52 20 41 50 50 4C 49 43 41 54 |." YOUR APPLICAT|
00006940: 49 4F 4E 20 44 49 53 4B 20 49 53 20 49 4E 20 44 |ION DISK IS IN D|
00006950: 52 49 56 45 20 30 2C 22 00 9B 64 94 E8 99 22 20 |RIVE 0,"..d..." |
00006960: 54 59 50 45 20 27 52 55 4E 27 20 41 4E 44 20 50 |TYPE 'RUN' AND P|
00006970: 52 45 53 53 20 27 52 45 54 55 52 4E 27 2E 22 3A |RESS 'RETURN'.":|
00006980: 80 00 AE 64 99 E8 81 44 4C B2 31 A4 31 35 30 30 |...d...DL.1.1500|
00006990: 3A 82 44 4C 00 F1 64 9E E8 8B 43 54 25 B2 30 A7 |:.DL..d...CT%.0.|
000069A0: 99 22 93 11 20 20 20 20 3C C4 49 53 4B 20 C5 52 |.".. <.ISK .R|
000069B0: 52 4F 52 3E 2D D4 52 59 49 4E 47 20 41 47 41 49 |ROR>-.RYING AGAI|
000069C0: 4E 20 2E 2E 2E 22 3A 43 54 25 B2 43 54 25 AA 31 |N ...":CT%.CT%.1|
000069D0: 3A 89 35 39 35 31 32 00 16 65 A3 E8 99 22 11 11 |:.59512..e..."..|
000069E0: 20 20 20 D3 45 43 4F 4E 44 20 41 54 54 45 4D 50 | .ECOND ATTEMP|
000069F0: 54 20 46 41 49 4C 45 44 2E 2E 2E 22 00 4A 65 A8 |T FAILED...".Je.|
00006A00: E8 99 22 11 11 20 C5 52 52 4F 52 20 49 4E 20 44 |..".. .RROR IN D|
00006A10: 49 53 4B 20 4F 52 20 44 52 49 56 45 2E 20 C6 49 |ISK OR DRIVE. .I|
00006A20: 4C 45 20 4E 4F 54 20 53 41 56 45 44 2E 22 3A 80 |LE NOT SAVED.":.|
00006A30: 00 00 00 |... |
1 LYNX IX BY WILL CORLEY. 6 .PRGCAT/
S. 2 .S. 249 .PRGCAT/PCF. 1 .S. 5 .PRGCA
T/FLG. 1 .S. 82 .M. 7 .P. 198 .P. 1 .P.
134 .PRGCAT. 95 .P......................
........................................
........................................
.............. 18 .DISK #-. 1 . 3 . 4 .#
.DISK NAME-. 13 . 3 . 16 .A.PROGRAM NAME
-. 1 . 4 . 16 .A.TYPE-. 31 . 4 . 3 .A.CA
TEGORY-. 1 . 5 . 19 .A.LENGTH-. 29 . 5 .
3 .#.1-. 1 . 8 . 36 .A.2-. 1 . 9 . 36 .
A.3-. 1 . 10 . 36 .A.4-. 1 . 11 . 36 .A.
5-. 1 . 12 . 36 .A.6-. 1 . 13 . 36 .A.7-
. 1 . 14 . 36 .A.8-. 1 . 15 . 36 .A.9-.
1 . 16 . 36 .A.10-. 0 . 17 . 36 .A.SOURC
E-. 0 . 19 . 32 .A.AUTHOR-. 0 . 20 . 32
.A. 0 . 0 . 3 ........PROGRAM CATALOG..
...... 4 . 1 .--------------------------
------------. 0 . 2 .NOTES-. 0 . 7 .....
.. 18...=T.RH$(XT).I(PS$,40).D=..LH$(XT)
.H(PS$,40).J=.....=0.XT.XT.1:LH$(XT).H(S
P$,40):RH$(XT).LH$(XT):.....G(133).50690
.$<.F. IN$.G(13).50305.1<PFPB%..1:..G<_.
. == ERROR CHK ==.O<`. 15:.15,8,15:.5,8,
5,"0:".NM$:.60010..<E. 15:.15,DV,15:.5,D
V,5,DV$.NM$..<J. 1 . 2 . 3 . 4 . 5 . 6 .
7 . 8 . 9 . 10 . 11 . 12 . 13 . 14 . 15
. 16 . 17 . 18 .40):RH$(XT).LH$(XT):...
..G(133).50690.$<.F. IN$.G(13).50305.1<P
FPB%..1:..G<_.. == ERROR CHK ==.O<`. 15:
.15,8,15:.5,8,5,"0:".NM$:.60010..<E. 15:
.15,DV,15:.5,DV,5,DV$.NM$..<J... .C ...
QC...P.........H........I.P<............
...P.... ... QC.....H..... ... QC.....H.
.... .C`............ ... QC.....H..... .
.. QC.....H..... ... QC.....H........M..
P....M..P.........L.C... .C...I.P3.. . Q
C.....H....... . QC.....H...............
..L.C...I.P.......L.C...................
....... . QC.....H.....L.CN.....I.P.N..
.C...M..P....M..P... . QCLKA.. . QC.....
H........I.P... . QC.....H.....L.A.. . Q
C.....H.................L.C.............
.......... HC......C...........F..H..F..
H... ... F. O...H O.I.P..........PR B O
B )B OB.. C. ..`........`.....X..`......
.. HC........F..H..F..H..... I. .C ...H
.CH R.H .C..H .CH R......PH B.#....C...
OB )B OB.. C. L.`......................
........ B. .. ...HP.J....LAB`.........
*.....E.....E...L....E.P...E.P.`...I....
.I...L.B ... F. O...H O.I.P.....L.B ...
I. .C..H .CH R.H .C..H .CH R.L.B.. C....
M.. ....O./..OH.X..OH... O .. ..`...F..H
..F.. .......H..*.......} F......} F.. .
`...I......I...`.......... 9D.4....E....
. F. .D OD CD .D`.......................
9D.:....E..... I. .D OD VE .E`......L..
.... ZE...C...D`......F...... ZE` .E .D
.D (D KD.E..A.` .....H......C ..B.` O.I.
.... .DHLCD .D .D ODNA.P.`...I.........C
I..C...D.`.D... @E.. C. L.`.I..I.I.P. .D
`...M.. .... .. ..`.K...F.L...F.G...F.I.
.. I.....F R....P. L.`...G..K.P..L. KDL.
.`...M.. ....O.0..OH./..OH.D..OH... O ..
..`.. F.`.. I.`.I....LF... O.H..FLFE`LB
..... R. .DHLVE.. R. .D .D ODNA.P.`.I...
.LF...H..F R.L.E`.D... {E.. C. L.`......
........ 9D.. I... R. :A.. C. L.`.......
9D 4E .D`./...0..........I.P. ....E.HH.
.E...H.. ....UE.P\H..E.PU..I.0.N.....I..
...E...N.....I.P......N......E.....E...L
'F..I...............HH....H..` ....Q.HH.
.Q...H..L.F ...FI .F R.HL}FARRAY NOT FOU
ND P......V.....................M.. ....
.. ..`.K...F.L...F.G...F.I... I.....F R
....P. L<.... . .... .. .... I..........
. ...I`P.. L...@8..) ......)@.........)
...P..@I`P.. R....(8..P..... R..OE.P...
E......I.....I...L[.`.L.F ...FI .F R.HL}
FARRAY NOT FOUND P......V...............
......M.. .... .. ..`.K...F.L...F.G...F.
I... I.....F R....P. L....... ** DS. ...
.B(2053).158.5.Y....(B(45).B(46).256).20
000..45,B(174):.46,B(175):.:A.0.Z....A.0
..720,B(174):.721,B(175)......52300:....
...174,B(720):.175,B(721)......G(14):.31
00......90:.".":.646,C3:.53280,C2:.53281
,C1......OP%.32000,1000,10200,35000,5300
0,50000,8800,250,300,13200.$....12.>.Z..
150:FC.0:UF.0:.650,0.B.D..H(Y$,Y%)H(X$,X
%)"."OP$(OP%)".".U.I..A$:.A$."".105...N.
.A$..G(17).115...P..140:.Y%.(7.NO).Y%.8:
OP%.1:.100.G.R.Y%.Y%.1:OP%.OP%.1:.100...
S..A$..G(145).120...T..140:Y%.Y%.(OP%.1)
:OP%.OP%.(OP%.0)...V..OP%.0.OP%.NO:Y%.7.
NO.%.W..100.5.X..A$.G(13)...>.Z..105.A..
..H(Y$,Y%)H(X$,X%)"."OP$(OP%):......."..
";:G$."":.53281,0:.53280,6:.646,1......H
(X$,21.C(T2$).2)T2$:.H(X$,20.C(T1$).2)T1
$.Y....LB$;".."H(SS$,40)".";UB$.....Y%.7
:X%.6:OP%.1:.H(Y$,7).6)"................
.............".R. ..I.1.NO:.H(Y$,Y%.I)H(
X$,X%)"... ";OP$(I);.32)" ...":..Z.....6
)".............................". ....H(
Y$,21)LB$;".."H(SS$,40)".";UB$.T....H(Y$
,24)" SELECT OPTION WITH CURSOR, .RETURN
."......H(Y$,25)" TO RETURN TO THIS MENU
PRESS .F1.";.....Y%.8:X%.8:..0.H..B(205
3)..158..52017.D.I...F1%..:. ** ES.\.M..
B(965).33000,33151...N..".....".10)"WRIT
ING INDEX FILE ...":.49722:.13050:......
.200:.".":....,..200...6. 15:.15,8,15:.4
,8,4,"0:MENU":.52220: 4:.DS.20.390...;..
".......... PLACE DISK WITH THE MENU IN
DRIVE 0.".V.F..H(Y$,24);" PRESS .RETURN
. TO CONTINUE, .F1. TO EXIT".{.J..AA$:.A
A$..G(13).AA$..G(133).330. .O...(AA$.G(1
3)).310:.G(9)".": 15:..S...."........
*** .LOADING MENU PROGRAM. ***"......6
46,B(53281):.".LOAD".G(34)."0:MENU".G(34
).",8".E....198,6:.631,19:.632,13:.633,8
2:.634,85:.635,78:.636,13:..F. .J.0:."..
".13)"** WARNING **"...%..". TO PREVENT
DAMAGE OR LOSS OF YOUR"...*.." FILES, A
LWAYS TAKE THE 'EXIT TO BASIC'.../.." OR
THE 'EXIT TO MENUWRITER MENU'"...0.." O
PTIONS BEFORE LEAVING THIS SYSTEM.".O.1.
.H(Y$,24).9)"PRESS .RETURN. TO CONTINUE"
:TI$."000000".C.4..A$:.A$.G(13).....9..E
(TI$).0.E(TI$)..1.C$.".WARNING."...>..E(
TI$).1.C$."WARNING":TI$."000000".G.C..".
.".16)C$:.820......".":.9970:.650,128:.8
300:.AA$.G(133)........8100:.PQ.1.1010.4
....".THE DATA FILES MUST BE INITIALIZED
.".K...."PLEASE SELECT THE FILE PREPARAT
ION OPTION."......H(Y$,24)"PLEASE P
RESS .RETURN. TO CONTINUE"......AA$:.AA$
..G(13).1006.......L....NR.MS.1050......
".YOU HAVE ENTERED ";MS;" RECORDS"......
".YOUR FILE IS FULL".1....".PRESS .RETUR
N. TO CONTINUE".K....AA$:.AA$..G(13).104
0.Q.....Z....".":AN$."":.I.1.NF:SD$.H(DT
$,L%(I))......T$(I)."D".SD$."../../..".B
. ..H(Y$,Y%(I));H(X$,X%(I));PR$(I);SD$:.
...'..NT.0..I.1.NT:.H(Y$,TY%(I));H(X$,TX
%(I).1);TP$(I):..,.(.. H(Y$,23);" RECO
RDS ENTERED :";NR;" OF";MS.C.)..H(Y$,24)
;" .F5.-SKIP FIELDS, .F7.-PREVIOUS FIELD
"...*..H(Y$,25)" .F1. TO RETURN TO MENU"
;...8..I.1.NF:F$(I)."":.:.I.1.NF...B.X%.
X%(I).C(PR$(I)):Y%.Y%(I):L%.L%(I):F$.F$(
I):.T$(I).."D".1095.#.C..49000:.IN$.G(13
6).I.1.F$.F$(I):.3000:I.I.1:.1090.B.D..I
N$.G(135).F$.F$(I):.1099.U.E..IN$.G(133)
. ..N.F.F$.F$(I):.3000:.1115...G..34000:
E.0:.H(Y$,23)SP$:.IN$."".IN$.F$(I)...H..
IN$.G(133)...G.I..IN$.G(136).I.1.1090...
J..IN$.G(136)..3000:I.I.1:.1090...K..IN$
.G(135).C(F$(KF)).0..3000:I.NF:.1115.-.L
..IN$.G(135).IN$."".Q.M..D%(I).0..3300:.
E.0..3010:.1090.E.N..T$(I)."D".1105...O.
.IN$."".F$(I).F$:.H(Y$,Y%(I))H(X$,X%(I).
C(PR$(I)))F$(I);:.1105...P.F$(I).IN$.F.Q
..I..KF.1110...R..T$(I)."A".IN$.F$(I):.3
4205:F$(I).IN$...S..C(F$(I)).0..H(Y$,23)
"* YOU MUST ENTER SOMETHING *":.1090.A.V
.F$.F$(I):.3000.H.[..I.S.E..29010.]....8
000......H(Y$,24);"IS THIS ALL CORRECT?
( .RETURN. = YES )";.C....H(Y$,25).8)"<P
RESS .F5. FOR HARDCOPY>";.....X%.38:Y%.2
4:L%.1:.34000:.8000:.IN$.G(135)..51100:.
1160......IN$.G(133)...+....C(IN$).0.IN$
."Y".9000.>....IN$.."N".1170......H(Y$,2
3);"WHICH FIELD TO CHANGE? ":."(1 -";NF;
"OR .L.IST')";.....X%. 18 :Y%.24:L%.4:.3
4000:IN.E(IN$):.8000.S.D..IN$."L".F.1:.2
0000:.29000:.1200...N..IN.1.IN.NF..H(Y$,
23);SP$:.H(Y$,23);"INVALID FIELD":.1160.
&...I.IN:.2000:.8350.7....29010:.1160.Z.
P.X%.X%(I).C(PR$(I)):Y%.Y%(I):L%.L%(I):F
$.F$(I):.T$(I).."D".2010...R..49000:.IN$
.G(136).I.1.F$.F$(I):.3000:I.I.1:.2000.C
.S..IN$.G(133). ....T..IN$.G(135)..3000:
....U..IN$.G(136).IN$."":F$.F$(I)...V..2
030.3.Z.E.0:.34000:.H(Y$,23)SP$:.IN$."".
IN$.F$(I).E....IN$.G(133)...^....IN$.G(1
36).I.1.2000......IN$.G(136).F$(I).F$:.3
000:I.I.1:.2000. ....IN$.G(135).IN$."".A
...F$(I).IN$:.C(IN$).0.F$(I).F$......D%(
I).0..3300:.E.0..3010:.2000......I..KF.2
050......T$(I)."A".IN$.F$(I):.34205:F$(I
).IN$.]....C(F$(I)).0..H(Y$,23)"* YOU MU
ST ENTER SOMETHING *":.2000.L...F$.G$(I)
:.......T$(I).."D".3005......F$."".F$.BO
$......49412......H(Y$,Y%(I))H(X$,X%(I).
C(PR$(I)))H(F$.SP$,L%(I).2.(T$(I)."D")):
....B..H(Y$,23)EM$:..!...TT$."FINISHED W
ITH ENTRY? (RETURN=NO)".>...BF$."PRGCAT"
:. BASE FILE.Y. .SF$.BF$."/S":HF$.BF$."/
X":DF$.BF$."0/D":GB$.BF$."/GLB"...!.L.C(
HF$):.53232,L:.I.1.L:.53232.I,F(J("0:".H
F$,I,1)):.I.Y.&.Y$."....................
......"...+.X$."........................
................":.I%...H.,.T1$."STEVE R
EAGAN":T2$." PROGRAM CATALOG UTILITY ".Y
.-.T2$.".".T2$.".":T1$."PROGRAM DESIGN B
Y ".T1$.....KF.3:.965,2...0..50200:.3301
0:. 54500.F.5.SS$."":.I.1.80:SS$.SS$.G(3
2):....:.SP$."":DT$."":.I.1.39:SP$.SP$.G
(32):DT$.DT$.G(46):..3.=.LB$."..........
................................".H.>.UB
$.".....................................
....."...?..I.1.NF:RS.RS.L%(I).1:.I:BS..
254.(RS.253).RS.(RS.254):.710,BS.E.D..F$
(NF),G$(NF),DT%(12)...I..709,NF:BO$."":.
I.1.6:BO$.BO$.G(48):.:.9970...X..I.1.12:
DT%(I).31:..D.].DT%(2).29:DT%(4).30:DT%(
6).30:DT%(9).30:DT%(11).30.H....".":.800
:NO.10.(NG.0):.OP$(10).....OP$(1)."FILE
PREPARATION".....OP$(2)."ENTER A RECORD"
.....OP$(3)."LOOK UP A RECORD".....OP$(4
)."SEARCH RECORDS".....OP$(5)."SET DISPL
AY COLORS".....OP$(6)."SYSTEM CONFIGURAT
ION".@...OP$(7)."ACCESS NEW DATA FILE".[
...OP$(8)."EXIT TO BASIC".....OP$(9)."EX
IT TO MENUWRITER MENU".....OP$(10)."VERI
FY GLOBAL TOTALS".U....B(2053)..158..I.5
2000.52027:.D:.I,D:.:.52000.......(.F..1
69,42,141,40,3,169,203,141,41,3,8,104,41
,253,72,40,96,169,237,141,40,3.A.K..169,
246,141,41,3,96......D%(I).0.3350,3364,3
370,3380,3386,3392,3402,3408,3414,3420,3
426,3432......D%(I).12.3438,3444,3450,34
56,3462,3468.K....C(IN$)..0. 3354.....EM
$."* YOU MUST ENTER SOMETHING *":E.1:...
..CD$.IN$:.30000:.E..1. 3358.; ..EM$."*
NUMBERS ONLY PLEASE *":..R ....(C(IN$).
4). 3362.V .EM$."* IMPROPER LENGTH *":E
.1:..| ".... $...(C(IN$).16). 3368.. &.E
M$."* IMPROPER LENGTH *":E.1:... (...S *
..C(IN$)..0. 3374..!,.EM$."* YOU MUST EN
TER SOMETHING *":E.1:...!....(C(IN$).16)
. 3378.<!0.EM$."* IMPROPER LENGTH *":E.1
:..B!2...Y!4...(C(IN$).3). 3384.!6.EM$.
"ENTER PRG,SEQ,REL,USR":E.1:...!8....!:.
..(C(IN$).19). 3390.A!<.EM$."* IMPROPER
LENGTH *":E.1:..G!>....!@...(C(IN$).3).
3396.."B.EM$."* IMPROPER LENGTH *":E.1:.
.!"D.CD$.IN$:.30000:.E..1. 3400.E"F.EM$.
"* NUMBERS ONLY PLEASE *":..K"H...C"J...
(C(IN$).36). 3406.."L.EM$."* IMPROPER LE
NGTH *":E.1:..."N...."P...(C(IN$).36). 3
412.I"R.EM$."* IMPROPER LENGTH *":E.1:..
O"T...."V...(C(IN$).36). 3418..#X.EM$."*
IMPROPER LENGTH *":E.1:...#Z...)#\...(C
(IN$).36). 3424.M#^.EM$."* IMPROPER LENG
TH *":E.1:..S#`...K#B...(C(IN$).36). 343
0..#D.EM$."* IMPROPER LENGTH *":E.1:...#
F....#H...(C(IN$).36). 3436.Q#J.EM$."* I
MPROPER LENGTH *":E.1:..W#L....#N...(C(I
N$).36). 3442..$P.EM$."* IMPROPER LENGTH
*":E.1:...$R...1$T...(C(IN$).36). 3448.
U$V.EM$."* IMPROPER LENGTH *":E.1:..[$X.
..S$Z...(C(IN$).36). 3454..$|.EM$."* IMP
ROPER LENGTH *":E.1:...$~....$....(C(IN$
).36). 3460.Y$..EM$."* IMPROPER LENGTH *
":E.1:...$.....$....(C(IN$).32). 3466..%
..EM$."* IMPROPER LENGTH *":E.1:..!%....
9%....(C(IN$).32). 3472.]%..EM$."* IMPRO
PER LENGTH *":E.1:..C%.....%@..H(Y$,23)S
P$:.H(Y$,24)SP$:.H(Y$,25)SP$;:..V%..NR.B
(691).256.B(692):XFS.B(681).256.B(682):N
XR.B(685).256.B(686)..%..RM.MS.NR:...%.
.I.1.NF:F$(I).G$(I):...&. .NC.0..I.1.NC:
CD(I).CE(I):..?&. .NG.0..I.1.NG:GL(I).GK
(I):..E&. .._&: .I.1.NF:G$(I).F$(I):..&
D .NC.0..I.1.NC:CE(I).CD(I):...&I .NG.0.
.I.1.NG:GK(I).GL(I):...&N ..K&L .B(965).
33000,33151:.AA$.G(133)...V&M .F1%....&Q
FI$.HF$:PQ.0:.52210:.DS.19...5'V ."....
.".10)"LOADING INDEX FILE ...":.49610:.1
3000:F1%..1.H'{ .".":MS.B(693).256.B(694
):PQ.1:.B(2053)..158....'. T.(MS.2).6114
5:HT..(T.256):LT.T.HT.256:.41024,LT:.410
25,HT:..D'. .T$(I)."A".T$(I)."D"....'. B
$.F$(I):A$."L":.41000:.I9.0.A$."M":.4100
0:.I9.0...*(. F$(I).D(E(B$).((A$."L").(A
$."M")).E(F$)):..:(`".B(965).1...I(A"..F
1%.8810.B(D".33151:.AA$.G(133)...W(E".20
0::PQ.0:F1%.0..(J".33170:.AA$.G(133)....
(O".8300:...((#. 9100:. CHECK FOR OVERFL
OW.R(7#ZZ$.F$(KF):.26000..(<#. 49152:. G
ET XFS..)F#. 9900:. WRITE REC RTN..)P#.A
N$."U"...')U#.8100:.RM.0.9065.Q)_#.H(Y$,
23);"REC. ENTERED:";J(D(NR),2);.V)D#." R
EC. SPACES LEFT:";J(D(RM),2)..)I#.RM.0..
8000:.H(Y$,23);.6);". FILE FULL .".G)N#.
"PRESS .RETURN. TO CONTINUE."..)S#.AA$:.
AA$..G(13).9075..)X#.H(Y$,23);SP$..)}#.R
M.0....*.#.H(Y$,24);SP$:.H(Y$,24);TT$.A*
.#X%.C(TT$).1:Y%.24:L%.1:.34000.U*.#.H(I
N$,1)."Y"...P*.#.C(IN$).0.IN$."N".9096..
*.#.H(Y$,23);"PLEASE ANSWER Y OR N (.RET
URN.=NO)":.9090.I*.#G$."":FC.0:.".";:UF.
0:.1010..*.#.708,0:. B(684).255....+.#.6
81,B(683):.682,B(684):. SET XFS=DELETED
REC.G+.#.708,1:DL%.1:.9700:DL%.0:. 50640
:. READ OVFLW.M+ #..J+.%RP.B(681).B(682)
.256.DL%..+.%BL..(RS.(RP.1).BS).1:OS.(RS
.(RP.1)).(BS.(BL.1))..+.%HB..(BL.256):LB
.BL.256.HB.Z+.%.715,LB:.716,HB:.711,OS.1
..+.&...+H&.9700:. BLK LOCATION..,M&.997
0:. 50106:. READ IN REC..,R&..6,.&.9970:
. PAD FIELDS.O,.&.9700:. BLK LOCATION.J,
.&. 50160:. WRITE IN REC..,J&.708,0:. CL
EAR OVERFLOW..,.&...,.&.I.1.NF:. C(F$(I)
).L%(I).9985.M,.&.T$(I)."D".F$(I).BO$:.9
985..,.&.T$(I)."A".F$(I).H(F$(I).SP$,L%(
I)):.9985.*-.&F$(I).D(E(F$(I))):F$(I).I(
SP$.F$(I),L%(I)).3-.'.I:..R-.'RF%.0:.270
00:.IN$.G(133)...H-.'.701,255:.702,255..
-.'.49344: . LOOKUP RTN..-$'.B(682).255.
.27110:RF%..1:...-.'.9800:. READ RECORD
IN..-/'.T$(KF)."A".T$(KF)."D".10035..-0
'.E(ZZ$)..E(F$(KF)).10015...1'.10040.'.3
'.H(F$(KF),C(ZZ$))..ZZ$.10015.@.8'.28100
:.29010:.29180.X.B'.C(IN$).0.IN$."Y"...C
.L'.10015...X'.8300:.AA$.G(133)..F1%....
.Y'.8100:.NR.0.....Z'.10000....'.RF%.IN$
.G(133)......'.29220....'.IN$.G(13). .10
015:.10205...2(.....*.10000:. RF% . .../
...8250:.11812../"..IN$.G(135).11826.Z/$
..H(Y$,23);"WHICH FIELD TO UPDATE? (1-";
NF;" OR .L.IST)"../'..H(Y$,24)" .F1. TO
EXIT, .F5. TO CANCEL OR "../*.
.H(Y$,25)" .RETURN. TO SAVE.";.U/,.X%.1
9:Y%.25:L%.4:.34000..//.UF.E(IN$):.8000:
.IN$."".11900..00..IN$..G(135).11828.&02
..8200:.29010:.11812.L04..IN$."L".F.0:.2
0000:.29000:.11812.K06..IN$.G(133)..8200
:.29010:...0;..UF.0.UF..NF.11880..0@..H(
Y$,23);SP$:.SP$.L0E..H(Y$,23);"*INVALID
FIELD*":.I.1.1000:.:.11812..0H.G$."":I.U
F:.650,128:.2000:.650,0:.IN$.G(133)....1
I..8350..1L..29010:.11810.41|..G$(KF).F$
(KF).11950.R1...49466:. DELETE INDEX PTR
.N1...9000:.:. ENTER NEW REC..1...9110:.
9900:. WRITE RECORD..1V....1...10000:. R
F% ...L1?/.12800:. DISPLAY PRMPT TO DELE
TE..1D/.IN$."N"....1I/.9700:. RE-HASH..2
N/. 50608:. REC & INDEX PTR.<2V/NR.NR.1:
RM.RM.1:. UPDATE #REC & SPACE LEFT.I2./.
13100:..\2.2.H(Y$,24);SP$;..2.2.H(Y$,24)
;"SURE YOU WANT TO DELETE IT? (Y/N)"..2.
2Y%.24:X%.34:L%.1:.34000.G2.2.IN$.."Y".I
N$.."N".12800.M2.2..Y2H2.NG.0....2M2.3,D
V,3,DC$.GB$..3R2.I.1.NG:.3,GL(I):.: 3:..
.3.2.NG.0...43.2.3,DV,3,"@".DC$.GB$.",S,
W".P3.3.I.1.NG:.3,GL(I):.: 3:..V3,3..A3-
3.28100.G353..M3.3...3.4.H(Y$,24)"......
..................................";.M3.
4..8)"PRESS .RETURN. TO CONTINUE.";..3.4
.A$:.A$..G(13).13335..3.4...3 N.".";:JJ.
4..4%N.J.1.NF.2.%4*N.JJ.21..13330:JJ.4:.
".".I4/N.JJ.4.."...*KEYBOARD ENTERED*.".
Z44N.H(Y$,JJ)".KE".J(D(J),2)".="H(PR$(J)
.SP$,10)..49N.J.NF.JJ.JJ.1:.20040.Y4>N.H
(Y$,JJ)H(X$,20)" .KE".J(D(J.1),2)".="H(P
R$(J.1).SP$,10):JJ.JJ.1..4HN.J..4.N.1333
0:...5.R.I.1.NF:.T$(I).."D".SD$.F$(I):.2
1020.I5.RSD$.H(F$(I),2)."/".J(F$(I),3,2)
."/".I(F$(I),2).Q5.R.H(Y$,Y%(I))H(X$,X%(
I))PR$(I);SD$:..}5DR.NT.0....5FR.I.1.NT.
.5HR.H(Y$,TY%(I))H(X$,TX%(I).1)TP$(I)..5
JR...5NR...5.E. T$(KF)."A".T$(KF)."D".26
005..6.EZZ$.D(E(ZZ$)):. E(ZZ$)..0.ZZ$.J(
ZZ$,2)..6.EX.0:.ZZ.1.C(ZZ$).76.EX.X.ZZ.F
(J(ZZ$,ZZ,1)).=6.E..F6.EX.0.6.X.(F(H(ZZ$
,1)).F(I(ZZ$,1)).62)..6.EX..(X):XX$.D(X)
:RP.E(J(XX$,6,4))..6.ERP..(MS.RP.10000).
1.A6BEHB..(RP.256):LB.RP.256.HB.U6GE.679
,LB:.680,HB..6VE...7XI.".":SD$.H(DT$,L%(
KF)):.T$(KF)."D".SD$."../../..".<7.I.H(Y
$,Y%(KF));H(X$,X%(KF));PR$(KF);SD$.P7.I.
H(Y$,24);"PLEASE ENTER KEY OF DESIRED RE
CORD.".7.II.KF:.2000..7.I.IN$.G(133)...
.7.IZZ$.F$(KF):.26000:. COMPUTE HASH KEY
..7HI..J7.I.8000..8.I.H(Y$,23)"RECORD NO
T FOUND - TYPE .RETURN. TO EXIT."..8.J.A
A$:.AA$..G(13).27140.$8.J..08DM.NC.0...6
8JO..B8TO.NC.0...H8>Q..R8HQ.".";.Y8RQ.I.
1.NF:D$.F$(I):.T$(I).."D".29030..8WQ.F$(
I)."".F$(I).BO$.C8\QD$.H(F$(I),2)."/".J(
F$(I),3,2)."/".I(F$(I),2)..8FQ.T$(I)."$"
.DO$.D$:FW.L%(I):.36000:D$.DO$..9KQ.T$(I
)."#".D$.I(SP$.D(E(D$)),L%(I)).:9LQ.T$(I
)."A".D$.H(D$.SP$,L%(I)).A9PQ.H(Y$,Y%(I)
);H(X$,X%(I));PR$(I);D$.G9ZQ..W9Q.NC.0.
29085..9.Q.I.1.NC:CD$.D(CD(I)).H9.Q.CT$(
I)."$".DO$.CD$:FW.CL%(I):.36000:CD$.DO$:
.29075..9.Q.F(CD$).32.CD$.J(CD$,2):.2907
0..:.QCD$.I(SP$.H(CD$,CL%(I)),CL%(I)).5:
.Q.H(Y$,CY%(I));.CX%(I));CP$(I);CD$.;:.Q
..K:.Q.NT.0.29115.W:.Q.I.1.NT.Y:.Q.H(Y$,
TY%(I)).TX%(I).1)TP$(I).:.Q...:.Q.NG.0.
...:.Q.I.1.NG.U:JQGL$.D(GL(I)):.GT$(I)."
$".DO$.GL$:FW.GL%(I):.36000:GL$.DO$..:TQ
.GT$(I)."#".GL$.I(SP$.GL$,GL%(I))..;.Q.H
(Y$,GY%(I)).GX%(I))GP$(I);GL$.%;.Q..+;.Q
..I;.Q.8000:.H(Y$,24);"IS THIS IT? ( .RE
TURN. = YES ) ";..;.RX%.29:Y%.24:
L%.1:.34000..;.R...;$R.8000.F;%R.H(Y$,24
)" .O. FOR OPTIONS, .F3. TO PRINT,"..<&
R.H(Y$,25)" .F1. TO EXIT, OR .RETURN. F
OR NEXT REC.";.<<.R.IN$:.IN$..G(13).IN$.
.G(134).IN$..G(133).IN$.."O".29230.Z<8R.
IN$.G(134)..51100:.29220.U<=R.IN$."O"..2
9300:.29220..<`RAN$."":...<TR.8000:.AN$.
."D".29305..<VR.H(Y$,24)" RECORD DELETE
D-NO OPTIONS AVAILABLE.":ZZ.E(TI$)..<WR.
E(TI$).ZZ.5.29303..<XR..5=YR.H(Y$,24)" .
U. TO UPDATE, .D. TO DELETE, .RETURN. EX
IT".B=ZR.AN$:.AN$.."U".AN$.."D".AN$..G(1
3).29306.L=~R.8250..=RPH.RP:.AN$.."U".2
9322..=.R.SR%..29400..=.R.11800:RP.PH:..
.=.R.AN$.."D".29330.Z=.R.12800:.IN$."N".
AN$."":...=.R.SR%..29400..=.R.12100:RP.P
H:...>.R..5>XRPX.RP:ZZ$.F$(KF):.T$(KF)."
A".T$(KF)."D".29405.B>.R.I(ZZ$,1)." ".ZZ
$.H(ZZ$,C(ZZ$).1):.29405.>.R.26000:.701
,255:.702,255..>.R.49344:.8100:.XFS..PX.
XFS.MS.1.29415..>.R..O>0UB$.CD$:A$.G(32)
:.41000:CD.I9..>1U.CD.1.CD$.H(CD$,CD.1):
.30000..?2U.CD.1.CD$.J(CD$,2):.30000..?5
U.ZZ.1.C(CD$).L?:U.J(CD$,ZZ,1).."0".J(CD
$,ZZ,1).."9".30020.Y??U.J(CD$,ZZ,1).."."
.J(CD$,ZZ,1).."-".E.1:..?DU...?NUB$.CD$
:A$."-":.41000:I1.I9:B$.J(B$,I1.1).N?SU.
41000:I2.I9:.I1.0.I2.0.E.1:...?XUB$.CD$:
A$.".":.41000:I1.I9:B$.J(B$,I1.1)..@]U.4
1000:I2.I9:.I1.0.I2.0.E.1:..#@BU..4@.Y.Z
Z.1.C(CD$).C@"Y.(J(CD$,ZZ,1).."9".J(CD$,
ZZ,1).."0").E.1:..I@,Y..O@6Y...@.}AA$.""
:.B(965).33000,33151:.AA$.G(133)...M@.}.
".. THIS OPTION WILL CLEAR YOUR DATA FI
LE"..A.}." OF ALL PREVIOUSLY ENTERED REC
ORDS (IF ANY).".4A.}.:." THE ONLY TIM
E THAT YOU ARE .REQUIRED.".AA.}." TO USE
THIS OPTION IS THE FIRST TIME"..A.}." Y
OU RUN YOUR APPLICATION PROGRAM."..A.}.:
.:." PLACE THE DISK THAT CONTAINS YOUR
"..A.}." DATA FILE IN THE DRIVE AND TYPE
.CLEAR."..B#}." TO BEGIN FILE PREPARATI
ON. ".<B$}."... TO RETURN TO THE MENU PR
ESS .F1..".KB(}X%.29:Y%.13:L%.5:.34000:.
IN$."CLEAR".32050..B.}. IN$..G(133).3204
0..B0}...B2}.32250:.".....".12)"PREPARIN
G FILES ..."..B4} 15:.15,DV,15,"S".DC$.H
F$: 15:.2,DV,2,DC$.HF$.",L,".G(5): 2.8C7
}."..".10)"THIS MAY TAKE A WHILE.":.4982
4:.49722:. WRITE INDEX.{CD}.15,DV,15:.15
,"S".DC$.DF$:.1,DV,15:.4,DV,4,DC$.DF$.",
L,".G(BS)..CN}JN..((RS.MS).BS).1:R2..(JN
.256):R1.JN.256.R2..CX}.1,"P"G(4)G(R1)G(
R2)G(1):.4,G(255):.52220: 1: 4:.NG.0.322
00.)D.}.4,DV,4,"@".DC$.GB$.",S,W":.I.1.N
G:GL(I).0:.4,GL(I):.: 4.?DH}PQ.1:F1%..1:
15:..~D.}MS.69148:A$."THE SAME":.B(965)
.2.MS.155000:A$."A SEPARATE"..D.}MS..(MS
.(RS.11)):.MS.1900.MS.1900..D.~MS$.D(MS)
:."..... WITH DATA ON ";A$;" DISK, YOU M
AY"..E.~." HAVE UP TO";MS$;" RECORDS.".K
E.~.H(Y$,8)" HOW MANY RECORDS WOULD YOU
LIKE? ":X%.34:Y%.8:L%.C(MS$).1.QE.~.3
4000:.E(IN$)..0.E(IN$).MS.32270..E.~MS..
(E(IN$)):HB..(MS.256):LB.MS.(HB.256):.69
3,LB:.694,HB.IE.~..(B(2053).158).8320:..
.E..FI$.SF$:.52215:.DS.20....F..."."H(Y$
,10)" PLACE YOUR .PROGRAM. DISK IN DRI
VE 0.":.13330:.33000.\F...33000:.4,8,4,"
0:".SF$:.4,NF:.NF..0.33060..F...PR$(NF),
X%(NF),Y%(NF),L%(NF),T$(NF),D%(NF)..F...
I.1.NF:.4,PR$(I),X%(I),Y%(I),L%(I),T$(I)
:..SF$..4,NC:.NC..0.33102..G...CP$(NC),C
X%(NC),CY%(NC),CL%(NC),CT$(NC),CD(NC),CE
(NC).BGB..I.1.NC:.4,CP$(I),CX%(I),CY%(I)
,CL%(I),CT$(I):..YGN..4,NG:.NG..0.33110.
.GQ..GP$(NG),GX%(NG),GY%(NG),GT$(NG),GL(
NG),GK(NG),GM(NG),GL%(NG),GS%(NG).WGS..I
.1.NG:.4,GP$(I),GX%(I),GY%(I),GL%(I),GT$
(I):...GV..4,NT:.NT..0.33135..H`.. TP$(N
T),TX%(NT),TY%(NT).3HJ..I.1.NT:.4,TP$(I)
,TX%(I),TY%(I):.I.LHO. 4:.4,8,4,"0:".BF$
."/FLG":.NG.0..I.1.NG:.4,GS%(I):.I..HT..
I.1.NF:.4,D%(I):.I: 4:...H. 4:AA$."":FI
$.SF$:.52210:.DS.62....H..."."H(Y$,6)"
PLACE YOUR .DATA. DISK IN DRIVE ";DD$;
"."..I...". (THE DISK USED TO HOLD YOUR
DATA FILES)".YI...H(Y$,24)" PRESS .RETUR
N. TO CONTINUE OR .F1. TO EXIT"..I...AA$
:.AA$..G(13).AA$..G(133).33176..I...AA$.
G(133)....I...33151.CIP.IN$."":J.1:AD.10
24.(Y%.1).40.X%.1..IU..KL.0.L%:.55296.(Y
%.1).40.(X%.KL),B(646):.KL. JZ..J.1.L%.1
..H(Y$,Y%);H(X$,X%);H(DT$,L%);.6J...AD.J
,B(AD.J).128.KJ...I$:.I$."".34030.HJ...I
$.G(140)..54300:.34010.UJ..II.F(I$)..J..
.II.133.II.136.II.135.IN$.I$:.34125..J..
.II.133.IN$.I$:..CJ...II.34.34030..J...(
II.32.II..20.II..13).(II.128.II.192).(II
.218).34010..K...II..20.34070..K...J.1.3
4010.[K..J.J.1:IN$.H(IN$,J.1):I$.".":.H(
Y$,Y%);.X%.J);".";:.34090.{K...II.13..AD
.J,B(AD.J). 127:...K .IN$.IN$.I$..K*..H(
Y$,Y%);.X%.J.1);I$;.HK4..J.L%.IN$.H(IN$,
J.1).I$:.54000.ZK>..II..20.J.J.1..KH..34
010..LM..AD.J,B(AD.J).127:.H(Y$,Y%).X%.J
.1);I$;:..!L...IN$.""...`L..CC%.F(I(IN$,
1)):.CC%.32.CC%.160.IN$.H(IN$,C(IN$).1):
.34205.FL.....L...8300:.8100:.AA$.G(133)
..F1%.NR.0....L...".SCAN ALL OR SELECTED
RECORDS? (A/S)";..LB.X%.36:Y%.1:L%.1:.3
4000:ST$.IN$..LG..IN$.G(133)....ML..ST$.
."A".ST$.."S".35010. MV..ST$."A".35180.F
M..."....WHAT FIELD DO YOU WISH TO SELEC
T BY?":B$.D(.NF):.NF.1.B$.""..M..A$."":.
NC.0.A$.", PC1".D(.NC):.NC.1.A$.", PC1".
.M..."(KE1".B$.A$." OR .L.IST)";..M..X%.
1:Y%.6:L%.5:.34000:T$.H(IN$,2):T.E(J(IN$
,3))..N...IN$."L".F.2:.20000:.".":.35040
./N...T$.."KE".T$.."PC".35050.UN..SF.T:M
X.NF:.T$."PC".SF.T.NF:MX.NC.JN...T.0.T..
MX.35090..N...H(Y$,9)"INVALID FIELD":.DL
.1.1000:.DL:.H(Y$,9)SP$:.35040.ON...T$."
KE".T$.T$(T):LS%.L%(T):.35110..N..T$.CT$
(T):LS%.CL%(T)."O&.I.SF:.H(Y$,9);"SMALLE
ST ITEM TO SELECT?";:Y%.B(214).2.PO0.X%.
0:L%.LS%:.T$."D"..49000:SM$.IN$:.35126.J
O5..34000:.34205:SM$.IN$.|O6..SM$."".351
10..O?..T$."D".D$.SM$:.35500:SM$.D$.ROD.
.H(Y$,12);"LARGEST ITEM TO SELECT?";:Y%.
B(214).2..PN.X%.0:L%.LS%:.T$."D"..49000:
LR$.IN$:.35156..PS..34000:LR$.IN$.%PT..L
R$."".35140.FP]..T$."D".D$.LR$:.35500:LR
$.D$.^PB.LR.E(LR$):SM.E(SM$).PD..(T$."#
".T$."$").LR.SM.35040..PG..(T$."A".T$."D
").LR$.SM$.35040.YPH..H(Y$,16)"IS THIS C
ORRECT? (Y/N)":X%.24:Y%.16:L%.1..PI..340
00:.IN$.."Y".IN$.."N".35177..QL..IN$."N"
.35040.'QQ.CT%.0:SR%..1:.".";.VQV..8100:
.36110:..(ST$."S").36100:.RP.1.NXR.1.|Q.
.. 9705:.9970:. 50106 :. REC INPUT..Q...
H(F$(1),1).G(255).35400.GQ..CT%.CT%.1:.2
8100:.SF..NF.G$.F$(SF):.35260..Q..G$.D(C
D(SF.NF))..Q...ST$."A".35313..RF..T$."#"
.T$."$".35300.&RK..T$."D".D$.G$:.35500:G
$.D$.?RP.IN$.G$:.34205:G$.IN$.XRS..G$.LR
$.G$.SM$.35400.CRZ..35313..R...E(G$).SM.
E(G$).LR.35400..R...36110.FR...28100:.29
010:.H(Y$,23)" RECORDS SEARCHED:";CT%:.2
9221..R4..IN$.G(133).SR%.0:...R>.. ST$."
S"..36100..SH..H(Y$,23)" RECORDS SEARCHE
D:";CT%:.RP.0SR..36110:SR%.0:..SS..D$.I(
D$,2).H(D$,2).J(D$,3,2):...S .DO$.D(E(DO
$)):. .(E(DO$)).999999999..(E(DO$))..01.
36070..S..V.E(DO$):V.V..00511111..(V)..S
..DO$.D(V):DO$.H(DO$,C(DO$).(8.C(D(.(.(V
))))))..S..DO$.I(SP$.DO$,FW)..S....7T...
65484:.65511:.715,1:.716,0:.711,1:.50107
,63:.50338,96.KT...50442:.50361:...T...6
5484:.65511:.50107,57:.50338,169: 15:.15
,DV,15,"I".DC$..T.. 15:...T( .JI.1.C(B$)
.1.C(A$).IT2 .J(B$,JI,C(A$)).A$.I9.JI:..
VT< .:I9.0:...TH....T.A..%UPCDV.8:DF%.0:
DC$."0:":."... .** DRIVE CONFIGU
RATION **.".ZUZC.H(Y$,10)" TWO SINGL
E DISK DRIVES ........1"..U\C." DUAL
DISK DRIVE ...............2"..U^C."
SINGLE DISK DRIVE .............3"..U`C.
H(Y$,16)" ENTER SYSTEM AND PRESS .RE
TURN."..VDCX%.36:Y%.16:L%.1:.34000:.E(IN
$).1.E(IN$).3.50020.0VHCDD$.IN$:.50090.Q
VPC.H(Y$,18);SP$:.IN$."N".50020.EVTC.DD$
.."1".50050..VVC.H(Y$,19)" ENTER SECOND
DRIVE DEVICE NUMBER:".MVXCX%.34:Y%.19:L%
.2:.34000:.E(IN$).5.E(IN$).15.50040..V|C
DV.E(IN$):.50090:.H(Y$,19);SP$:.IN$."N".
50038..W.CDD$."1":DC$."0:":.50052.GW.CDC
$.J(D(.(DD$."2")),2).":":DD$.H(DC$,1)..W
.C.H(Y$,19)" SHOULD I REMEMBER THIS "
:." CONFIGURATION? (Y/N)".AW.CX%.23:Y%.
20:L%.1:.34000:.IN$.."Y".IN$.."N".50054.
.W.C.H(Y$,19)SP$:.H(Y$,20)SP$:.IN$."N".5
0070..X.C.33000:.5,8,5,"@0:CONFIG,S,W".2
X.C.5,G(34);:.5,DC$:.5,DD$:.5,DV.9X.C 5.
]X.C.B(965).1.DV.8:DC$."0:":DD$."0".OX.C
.50225:.54600..X.C.H(Y$,19)" IS THIS CO
RRECT? (Y/N) "..X.CX%.24:Y
%.19:L%.1:.34000:.IN$.."Y".IN$.."N".5009
2..X.C.H(Y$,19)SP$:.H(Y$,20)SP$:..&Y.DDC
$."0:":DD$."0":DV.8:.B(965)..2.50225.KY"
DFI$."CONFIG":.52215:.DS.19.50225.HY,D.5
,8,5,FI$:.5,DC$,DD$,DV..Y1D.717,DV:.5323
3,F(DC$): 5:.OP%.6....Y6DPD.4:SA.7:FI$."
PRCON":.52215:.DS.19.50240..Y;D.5,8,5,"0
:PRCON":.5,PD,SA: 5..Y@D.829,PD:.832,SA:
...Z.G 4:.4,B(829):.4,"":.ST..0.51150.;Z
.G.8000:.H(Y$,25);"PRINTING....";.RZ.G 4
:.828:.4: 4: 3:...ZNG 4:.H(Y$,23)" .PRI
NTER NOT READY. "..Z.G.X.1.1200:
...Z.G.H(Y$,23);SP$;: 3:...ZTK..ZZ.K 15:
.15,DV,15:.5,DV,5,DC$.FI$:.52220..Z.K 15
:.15,8,15:.5,8,5,"0:".FI$..[.K.15,ER$,EM
$,ET$,ES$.2[.LDS.0:DS.E(ER$):.DS.0.52250
.P[.LDS$.ER$. .EM$. .ET$. .ES$.][.L 15:
5:..Y[LL.A.0.I%..1:.3100:.33000..[QL.A.0
.A.1:.".....".10)"INITIALIZING MEMORY ..
..":."0:M",8,1.P[VL.A.1.A.2:."0:P",8,1.V
[[L...\.O.".".13)"SET COLOR MODE":..5)".
.[F1] SETS SCREEN COLOR".P\!O..5)".[F3]
SETS BORDER COLOR":..5)".[F5] SETS TEXT
COLOR".Y\+O..5)".[F7] RETURNS YOU TO MAI
N MENU"..\5O.A$:.A$."".53045..\7O.A$.G(1
36).54320..\:OC1..(C1.(A$.G(133))).(C1.1
5):C2..(C2.(A$.G(134))).(C2.15).%]?OC3..
(C3.(A$.G(135))).(C3.15):.53281,C1:.5328
0,C2:.646,C3:.53000.:]BO.53280,C2:.53000
.R]GOC3.C3.1:.C3.16.C3.0.E]LO.646,C3:.53
000.U].R.SD.1.54055..].RS.54272:.S.24,15
:.S.2,72.F].S.X.1.4:.S.1,169:.S.4,33:.S.
4,4:.ZZ.1.5:.:.S.4,4.M].S.X.X]"S.34010..
]'S.X.1.24:.54272.X,0:...],S.34010..^.T.
SD.0.SD.1:I$."":..*^!T.SD.1.SD.0:I$."":.
.0^&T..9^0T.".".M^3T."..... WOULD YOU L
IKE CODEWRITER TO REMEMBER"..^5T." YOUR
CURRENT SCREEN COLORS (Y/N) ? ";..^:TY%.
6:X%.37:L%.1:.34000.G^?T. IN$."N" . ...^
DT. IN$.."Y" . 54323..^IT.33000.(_NT 2:.
2,8,2,"@0:COLOR,S,W":.2,B(646):.2,B(5328
0):.2,B(53281).E_BT 2:.B(965).33000,3315
1:..W_.T. READ COLORS.._.TC1.B(53281):C2
.B(53280):C3.B(646):FI$."COLOR":.52215:.
DS.19...._.T.2,8,2,"0:COLOR":.".":.2,C3,
C2,C1:.646,C3:.53280,C2:.53281,C1.._.U 2
:..'`HU."... .** PRINTER CONFIGURA
TION **.":PD.B(829):SA.B(832).P`MU.H(Y$,
5).11)"CURRENT DEVICE#:";PD:.". CURRENT
SECONDARY ADDRESS:";SA..`RU.H(Y$,10)" NE
W DEVICE:":X%.12:Y%.10:L%.2:.34000:.IN$.
."".PD.E(IN$)..`SU.H(Y$,10)" NEW DEVICE:
".J(D(PD),2)." "..AWU.H(Y$,12)" NEW SEC.
ADDRESS:":X%.18:Y%.12:L%.2:.34000.3AXU.
IN$.."".SA.E(IN$).DAYU.H(Y$,12)" NEW SEC
. ADDRESS:".J(D(SA),2)." "..A\U.H(Y$,15)
" IS THIS CORRECT? (Y/N)":X%.23:Y%.15:L%
.1:.34000..AAU.IN$.."Y".IN$.."N".54620.S
AFU.IN$."N".54600..BKU.H(Y$,15)" SHALL I
REMEMBER THIS? (Y/N)":X%.30:Y%.15:L%.1:
.34000.5BPU.IN$.."Y".IN$.."N".54635.TBUU
.829,PD:.832,SA:.IN$."N"....BZU.33000: 2
:.2,8,2,"@0:PRCON,S,W":.2,PD:.2,SA: 2:..
.BL.L.B(980):PN$."":.I.1.L:PN$.PN$.G(B(9
80.I)):..XBM.SF$.PN$."/S":BF$.PN$."/B"..
CN.DV.B(969):DC$."0:":DD$."0":.B(968).2.
DD$."1":.DV.8.DC$."1:"..CO...=CV..:. 646
,B(970):.".":.59500.[CX. 15:.15,DV,15:.1
5,"I".DD$.OCY..15,"S".DC$.PN$.C{..DC$.P
N$,DV..C}..15,ER$,EM$:.:.". SAVE STATUS:
";ER$;",";EM$:.E(ER$).19.59545.PC~..DC$.
PN$,DV..C...". YOUR PROGRAM HAS BEEN SA
VED ON YOUR"..D..." APPLICATION DISK.".E
D...". TO RUN YOUR PROGRAM NOW, MAKE SU
RE".RD..." YOUR APPLICATION DISK IS IN D
RIVE 0,"..D..." TYPE 'RUN' AND PRESS 'RE
TURN'.":...D...DL.1.1500:.DL..D...CT%.0.
.".. <DISK ERROR>-TRYING AGAIN ...":C
T%.CT%.1:.59512..E...".. SECOND ATTEMP
T FAILED...".JE...".. ERROR IN DISK OR D
RIVE. FILE NOT SAVED.":....
> CLICK IMAGE PREVIEW FOR FULL MODAL