.PPMAIN
FILE INFORMATION
FILENAME(S): .PPMAIN
FILE TYPE(S): PRG
FILE SIZE: 14.4K
FIRST SEEN: 2025-11-30 01:08:29
APPEARS ON: 1 disk(s)
FILE HASH
1c4f24743a0a1d9f675672af9ca70f3014fb25202eda5b37c754dc386dc332a3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SOFT DUO 10 86 | .PPMAIN | PRG | Treasure Chest - Wolfgang Rauprich | 14 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 00 00 8F 20 30 35 2D 32 30 2D 38 36 |....... 05-20-86|
00000010: 20 31 31 3A 32 37 20 50 4D 00 49 08 01 00 97 38 | 11:27 PM.I....8|
00000020: 30 38 2C 32 33 34 3A 97 34 35 2C 30 3A 97 34 36 |08,234:.45,0:.46|
00000030: 2C 38 30 3A 9C 3A 97 35 33 32 36 35 2C C2 28 35 |,80:.:.53265,.(5|
00000040: 33 32 36 35 29 AF 32 30 37 00 83 08 02 00 97 35 |3265).207......5|
00000050: 33 32 37 30 2C C2 28 35 33 32 37 30 29 AF 32 33 |3270,.(53270).23|
00000060: 39 3A 97 35 36 35 37 36 2C 28 C2 28 35 36 35 37 |9:.56576,(.(5657|
00000070: 36 29 AF 32 35 32 29 B0 32 3A 97 35 33 32 37 32 |6).252).2:.53272|
00000080: 2C 31 38 00 C2 08 03 00 97 36 34 38 2C 36 38 3A |,18......648,68:|
00000090: 46 49 B2 39 3A 86 58 25 28 46 49 29 2C 59 25 28 |FI.9:.X%(FI),Y%(|
000000A0: 46 49 29 2C 4C 4E 25 28 46 49 29 2C 4E 24 28 46 |FI),LN%(FI),N$(F|
000000B0: 49 29 2C 50 54 25 28 46 49 29 3A 86 50 4E 25 28 |I),PT%(FI):.PN%(|
000000C0: 35 29 00 01 09 04 00 86 4B 59 24 28 35 30 30 29 |5)......KY$(500)|
000000D0: 2C 53 25 28 35 30 30 29 2C 53 24 28 35 30 30 29 |,S%(500),S$(500)|
000000E0: 2C 44 24 28 34 29 2C 44 25 28 33 2C 35 30 30 29 |,D$(4),D%(3,500)|
000000F0: 2C 4B 24 28 31 36 2C 32 29 2C 53 49 24 28 31 31 |,K$(16,2),SI$(11|
00000100: 29 00 37 09 05 00 4D 24 B2 C7 28 39 34 29 3A 51 |).7...M$..(94):Q|
00000110: 54 24 B2 C7 28 33 34 29 3A 49 4E 24 B2 C7 28 31 |T$..(34):IN$..(1|
00000120: 34 38 29 3A 44 45 24 B2 C7 28 32 30 29 3A 43 52 |48):DE$..(20):CR|
00000130: 24 B2 C7 28 31 33 29 00 72 09 06 00 42 43 B2 35 |$..(13).r...BC.5|
00000140: 33 32 38 30 3A 53 43 B2 35 33 32 38 31 3A 53 50 |3280:SC.53281:SP|
00000150: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000170: 20 22 00 A1 09 07 00 56 31 B2 35 34 32 37 36 3A | ".....V1.54276:|
00000180: 56 32 B2 35 34 32 38 33 3A 81 58 B2 35 34 32 37 |V2.54283:.X.5427|
00000190: 32 A4 35 34 32 39 36 3A 87 42 3A 97 58 2C 42 3A |2.54296:.B:.X,B:|
000001A0: 82 00 BA 09 08 00 81 58 B2 31 A4 36 3A 87 42 3A |.......X.1.6:.B:|
000001B0: 53 50 25 28 58 29 B2 42 3A 82 00 E8 09 09 00 81 |SP%(X).B:.......|
000001C0: 58 B2 30 A4 46 49 3A 87 42 3A 58 25 28 58 29 B2 |X.0.FI:.B:X%(X).|
000001D0: 42 3A 82 3A 81 58 B2 30 A4 46 49 3A 87 42 3A 59 |B:.:.X.0.FI:.B:Y|
000001E0: 25 28 58 29 B2 42 3A 82 00 1A 0A 0A 00 81 58 B2 |%(X).B:.......X.|
000001F0: 30 A4 46 49 3A 87 42 3A 4C 4E 25 28 58 29 B2 42 |0.FI:.B:LN%(X).B|
00000200: 3A 82 3A 81 58 B2 31 A4 46 49 AB 31 3A 87 42 3A |:.:.X.1.FI.1:.B:|
00000210: 50 54 25 28 58 29 B2 42 3A 82 00 5D 0A 0B 00 83 |PT%(X).B:..]....|
00000220: 20 31 35 2C 36 37 2C 31 30 32 2C 36 2C 36 34 2C | 15,67,102,6,64,|
00000230: 31 30 2C 31 30 2C 33 33 2C 31 33 35 2C 31 30 32 |10,10,33,135,102|
00000240: 2C 36 2C 36 34 2C 31 30 2C 31 30 2C 2C 2C 2C 2C |,6,64,10,10,,,,,|
00000250: 2C 2C 2C 2C 37 35 2C 32 34 37 2C 37 39 00 A5 0A |,,,,75,247,79...|
00000260: 0C 00 83 20 39 38 2C 31 31 34 2C 31 33 30 2C 31 |... 98,114,130,1|
00000270: 34 36 2C 31 36 32 2C 31 37 38 2C 33 35 2C 31 34 |46,162,178,35,14|
00000280: 2C 31 34 2C 31 34 2C 38 2C 38 2C 33 36 2C 38 2C |,14,14,8,8,36,8,|
00000290: 32 36 2C 38 2C 33 2C 33 2C 36 2C 39 2C 31 32 2C |26,8,3,3,6,9,12,|
000002A0: 31 35 2C 31 35 00 E9 0A 0D 00 83 20 31 38 2C 31 |15,15...... 18,1|
000002B0: 38 2C 32 31 2C 33 2C 31 36 2C 32 34 2C 32 34 2C |8,21,3,16,24,24,|
000002C0: 33 30 2C 31 39 2C 32 2C 39 2C 31 32 2C 31 36 2C |30,19,2,9,12,16,|
000002D0: 31 2C 31 38 2C 34 33 2C 36 38 2C 39 39 2C 31 31 |1,18,43,68,99,11|
000002E0: 39 2C 31 32 32 2C 31 33 32 00 F8 0A 0E 00 99 C7 |9,122,132.......|
000002F0: 28 31 34 29 C7 28 38 29 00 26 0B 0F 00 97 42 43 |(14).(8).&....BC|
00000300: 2C 36 3A 97 53 43 2C 36 3A 99 22 93 22 3B 3A 8D |,6:.SC,6:.".";:.|
00000310: 33 34 32 3A 97 35 33 32 36 35 2C C2 28 35 33 32 |342:.53265,.(532|
00000320: 36 35 29 B0 31 36 00 5B 0B 10 00 52 4E B2 AB 31 |65).16.[...RN..1|
00000330: 3A 99 22 11 11 11 11 05 20 C9 4E 53 45 52 54 20 |:."..... .NSERT |
00000340: 44 41 54 41 20 44 49 53 4B 20 49 4E 54 4F 20 44 |DATA DISK INTO D|
00000350: 49 53 4B 20 44 52 49 56 45 2E 22 00 98 0B 11 00 |ISK DRIVE.".....|
00000360: 99 22 11 20 D0 52 45 53 53 20 41 4E 59 20 4B 45 |.". .RESS ANY KE|
00000370: 59 20 57 48 45 4E 20 52 45 41 44 59 2C 22 3A 99 |Y WHEN READY,":.|
00000380: 22 20 4F 52 20 5E 20 46 4F 52 20 CD 45 4E 55 2E |" OR ^ FOR .ENU.|
00000390: 22 3A 97 31 39 38 2C 30 00 AA 0B 12 00 A1 41 24 |":.198,0......A$|
000003A0: 3A 8B 41 24 B2 22 22 A7 31 38 00 B8 0B 13 00 8B |:.A$."".18......|
000003B0: 41 24 B2 4D 24 A7 32 31 00 C1 0B 14 00 8D 34 34 |A$.M$.21......44|
000003C0: 36 00 D7 0B 15 00 99 22 93 22 3B 3A 97 42 43 2C |6......".";:.BC,|
000003D0: 31 3A 97 53 43 2C 31 00 0B 0C 16 00 53 4C 24 B2 |1:.SC,1.....SL$.|
000003E0: 22 20 20 20 12 20 20 20 20 20 20 20 20 92 20 20 |" . . |
000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000400: 12 99 20 20 20 20 20 20 20 20 22 00 34 0C 17 00 |.. ".4...|
00000410: 97 31 38 34 32 34 2C 38 3A 97 31 38 34 32 35 2C |.18424,8:.18425,|
00000420: 39 3A 97 31 38 34 32 36 2C 31 30 3A 97 31 38 34 |9:.18426,10:.184|
00000430: 32 37 2C 38 00 60 0C 18 00 97 31 38 34 32 38 2C |27,8.`....18428,|
00000440: 31 31 3A 97 31 38 34 32 39 2C 31 32 3A 97 31 38 |11:.18429,12:.18|
00000450: 34 33 30 2C 31 33 3A 97 31 38 34 33 31 2C 31 34 |430,13:.18431,14|
00000460: 00 8A 0C 19 00 81 58 B2 30 A4 36 3A 97 35 33 32 |......X.0.6:.532|
00000470: 38 37 AA 58 2C 32 3A 82 3A 97 35 33 32 39 33 2C |87.X,2:.:.53293,|
00000480: 30 3A 97 35 33 32 39 34 2C 30 00 AB 0C 1A 00 81 |0:.53294,0......|
00000490: 58 B2 30 A4 35 3A 97 35 33 32 34 38 AA 32 AC 58 |X.0.5:.53248.2.X|
000004A0: 2C 31 31 38 AA 32 34 AC 58 3A 82 00 D1 0C 1B 00 |,118.24.X:......|
000004B0: 81 58 B2 30 A4 35 3A 97 35 33 32 34 39 AA 32 AC |.X.0.5:.53249.2.|
000004C0: 58 2C 36 36 3A 82 3A 97 35 33 32 36 34 2C 31 39 |X,66:.:.53264,19|
000004D0: 32 00 0A 0D 1C 00 97 35 33 32 36 32 2C 32 34 3A |2......53262,24:|
000004E0: 97 35 33 32 36 33 2C 31 30 36 3A 97 35 33 32 36 |.53263,106:.5326|
000004F0: 30 2C 31 36 3A 97 35 33 32 36 31 2C 31 31 36 3A |0,16:.53261,116:|
00000500: 97 35 33 32 36 39 2C 32 35 35 00 44 0D 1D 00 99 |.53269,255.D....|
00000510: 22 99 11 11 11 11 11 11 20 20 20 12 20 20 20 20 |"....... . |
00000520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
00000540: 99 53 4C 24 00 7B 0D 1E 00 99 22 20 20 20 12 20 |.SL$.{...." . |
00000550: 20 20 20 20 20 20 20 92 97 20 D7 52 49 54 45 20 | .. .RITE |
00000560: D2 45 43 4F 52 44 20 20 20 20 20 12 99 20 20 20 |.ECORD .. |
00000570: 20 20 20 20 20 22 3A 99 53 4C 24 00 B2 0D 1F 00 | ":.SL$.....|
00000580: 99 22 20 20 20 12 20 20 20 20 20 20 20 20 92 97 |." . ..|
00000590: 20 D0 52 49 4E 54 20 D2 45 43 4F 52 44 20 20 20 | .RINT .ECORD |
000005A0: 20 20 12 99 20 20 20 20 20 20 20 20 22 3A 99 53 | .. ":.S|
000005B0: 4C 24 00 E9 0D 20 00 99 22 20 20 20 12 20 20 20 |L$... .." . |
000005C0: 20 20 20 20 20 92 97 20 D6 49 45 57 20 26 20 C5 | .. .IEW & .|
000005D0: 44 49 54 20 CB 45 59 53 20 12 99 20 20 20 20 20 |DIT .EYS .. |
000005E0: 20 20 20 22 3A 99 53 4C 24 00 20 0E 21 00 99 22 | ":.SL$. .!.."|
000005F0: 20 20 20 12 20 20 20 20 20 20 20 20 92 97 20 D3 | . .. .|
00000600: 57 41 50 20 C4 41 54 41 20 C4 49 53 4B 20 20 20 |WAP .ATA .ISK |
00000610: 12 99 20 20 20 20 20 20 20 20 22 3A 99 53 4C 24 |.. ":.SL$|
00000620: 00 57 0E 22 00 99 22 20 20 20 12 20 20 20 20 20 |.W.".." . |
00000630: 20 20 20 92 97 20 C3 52 45 41 54 45 20 C4 41 54 | .. .REATE .AT|
00000640: 41 20 C4 49 53 4B 20 12 99 20 20 20 20 20 20 20 |A .ISK .. |
00000650: 20 22 3A 99 53 4C 24 00 8E 0E 23 00 99 22 20 20 | ":.SL$...#.." |
00000660: 20 12 20 20 20 20 20 20 20 20 92 97 20 D5 50 44 | . .. .PD|
00000670: 41 54 45 20 26 20 C5 58 49 54 20 20 20 20 12 99 |ATE & .XIT ..|
00000680: 20 20 20 20 20 20 20 20 22 3A 99 53 4C 24 00 C1 | ":.SL$..|
00000690: 0E 24 00 99 22 20 20 20 12 20 20 20 20 20 20 20 |.$.." . |
000006A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006B0: 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D 33 34 | ":.34|
000006C0: 32 00 F8 0E 25 00 99 3A 99 22 20 20 20 97 D0 52 |2...%..:." ..R|
000006D0: 45 53 53 20 D3 D0 C1 C3 C5 20 54 4F 20 53 45 4C |ESS ..... TO SEL|
000006E0: 45 43 54 2C 20 54 48 45 4E 20 D2 C5 D4 D5 D2 CE |ECT, THEN ......|
000006F0: 22 3A 97 31 39 38 2C 30 00 0A 0F 26 00 A1 41 24 |":.198,0...&..A$|
00000700: 3A 8B 41 24 B2 22 22 A7 33 38 00 26 0F 27 00 97 |:.A$."".38.&.'..|
00000710: 31 38 34 33 31 2C 31 35 3A 97 35 33 32 36 34 2C |18431,15:.53264,|
00000720: 36 34 3A 58 B2 31 00 3E 0F 28 00 97 35 33 32 36 |64:X.1.>.(..5326|
00000730: 39 2C 31 32 37 3A 8B 58 B1 36 A7 58 B2 31 00 6C |9,127:.X.6.X.1.l|
00000740: 0F 29 00 97 35 33 32 36 33 2C 53 50 25 28 58 29 |.)..53263,SP%(X)|
00000750: 3A 97 35 33 32 36 32 2C 38 34 3A 97 35 33 32 36 |:.53262,84:.5326|
00000760: 39 2C 32 35 35 3A 97 31 39 38 2C 30 00 7E 0F 2A |9,255:.198,0.~.*|
00000770: 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 34 32 00 8D |..A$:.A$."".42..|
00000780: 0F 2B 00 8B 41 24 B2 43 52 24 A7 34 36 00 A3 0F |.+..A$.CR$.46...|
00000790: 2C 00 8B 41 24 B2 22 20 22 A7 58 B2 58 AA 31 3A |,..A$." ".X.X.1:|
000007A0: 89 34 30 00 AB 0F 2D 00 89 34 32 00 D1 0F 2E 00 |.40...-..42.....|
000007B0: 97 35 33 32 36 39 2C 30 3A 91 58 89 35 32 2C 31 |.53269,0:.X.52,1|
000007C0: 31 30 2C 32 37 36 2C 33 33 36 2C 33 31 34 2C 34 |10,276,336,314,4|
000007D0: 37 00 05 10 2F 00 99 22 93 22 3B 3A 97 53 43 2C |7.../..".";:.SC,|
000007E0: 32 3A 97 42 43 2C 32 3A 99 22 05 11 11 11 11 11 |2:.BC,2:."......|
000007F0: 20 C1 52 45 20 59 4F 55 20 53 55 52 45 20 5B 59 | .RE YOU SURE [Y|
00000800: 2F 4E 5D 3F 22 00 27 10 30 00 81 58 B2 31 A4 35 |/N]?".'.0..X.1.5|
00000810: 3A 8D 33 34 32 3A 82 3A 8D 33 34 33 3A 8B 41 24 |:.342:.:.343:.A$|
00000820: B2 22 4E 22 A7 32 31 00 39 10 31 00 8B 52 4E B3 |."N".21.9.1..RN.|
00000830: B2 30 B0 57 B2 30 A7 35 31 00 42 10 32 00 8D 34 |.0.W.0.51.B.2..4|
00000840: 34 30 00 4D 10 33 00 9E 36 34 37 33 38 00 5A 10 |40.M.3..64738.Z.|
00000850: 34 00 8B 52 4E B3 30 A7 31 35 00 75 10 35 00 99 |4..RN.0.15.u.5..|
00000860: 22 93 22 3B 3A 97 42 43 2C 31 3A 97 53 43 2C 31 |".";:.BC,1:.SC,1|
00000870: 3A 8D 33 34 32 00 A7 10 36 00 99 22 1F 12 D7 52 |:.342...6.."...R|
00000880: 49 54 45 20 D2 45 43 4F 52 44 20 20 20 20 20 20 |ITE .ECORD |
00000890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008A0: 20 20 20 20 20 20 22 00 C1 10 37 00 99 22 11 97 | "...7.."..|
000008B0: 20 C4 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 3A | .O YOU WANT TO:|
000008C0: 22 00 01 11 38 00 99 22 11 20 31 2E 20 C5 4E 54 |"...8..". 1. .NT|
000008D0: 45 52 20 41 20 4E 45 57 20 52 45 43 4F 52 44 2E |ER A NEW RECORD.|
000008E0: 22 3A 99 22 20 32 2E 20 C5 44 49 54 20 41 4E 20 |":." 2. .DIT AN |
000008F0: 45 58 49 53 54 49 4E 47 20 52 45 43 4F 52 44 2E |EXISTING RECORD.|
00000900: 22 00 37 11 39 00 99 22 20 33 2E 20 D2 45 54 55 |".7.9.." 3. .ETU|
00000910: 52 4E 20 54 4F 20 54 48 45 20 4D 45 4E 55 2E 11 |RN TO THE MENU..|
00000920: 22 3A 48 4E B2 33 3A 8D 33 34 38 3A 91 41 89 35 |":HN.3:.348:.A.5|
00000930: 38 2C 36 36 2C 32 31 00 46 11 3A 00 8B 52 4E B3 |8,66,21.F.:..RN.|
00000940: 35 30 30 A7 36 31 00 72 11 3B 00 97 42 43 2C 32 |500.61.r.;..BC,2|
00000950: 3A 97 53 43 2C 32 3A 99 22 93 05 11 11 11 11 11 |:.SC,2:.".......|
00000960: 11 20 C4 49 53 4B 20 46 49 4C 45 20 46 55 4C 4C |. .ISK FILE FULL|
00000970: 2E 22 00 8D 11 3C 00 81 58 B2 31 A4 35 3A 8D 33 |."...<..X.1.5:.3|
00000980: 34 32 3A 82 3A 8D 33 35 33 3A 89 35 32 00 C1 11 |42:.:.353:.52...|
00000990: 3D 00 97 32 35 31 2C 38 36 3A 97 32 35 32 2C 31 |=..251,86:.252,1|
000009A0: 39 32 3A 9E 34 39 31 35 32 3A 8D 33 34 32 3A 81 |92:.49152:.342:.|
000009B0: 58 B2 31 A4 46 49 3A 4E 24 28 58 29 B2 22 22 3A |X.1.FI:N$(X)."":|
000009C0: 82 00 FA 11 3E 00 45 44 B2 30 3A 4E B2 30 3A 58 |....>.ED.0:N.0:X|
000009D0: 4E B2 52 4E AA 31 3A 54 4E B2 58 4E 3A 54 4E 24 |N.RN.1:TN.XN:TN$|
000009E0: B2 CA 28 C4 28 54 4E 29 2C 32 2C 33 29 3A 8D 38 |..(.(TN),2,3):.8|
000009F0: 30 3A 99 22 97 22 3B 54 4E 24 00 06 12 3F 00 4E |0:.".";TN$...?.N|
00000A00: B2 31 3A 89 38 31 00 1B 12 40 00 4E B2 4E AA 31 |.1:.81...@.N.N.1|
00000A10: 3A 8B 4E B3 46 49 AA 31 A7 38 31 00 23 12 41 00 |:.N.FI.1.81.#.A.|
00000A20: 89 36 32 00 62 12 42 00 97 42 43 2C 31 3A 97 53 |.62.b.B..BC,1:.S|
00000A30: 43 2C 31 3A 99 22 93 1F 12 C5 44 49 54 20 D2 45 |C,1:."....DIT .E|
00000A40: 43 4F 52 44 20 20 20 20 20 20 20 20 20 20 20 20 |CORD |
00000A50: 20 20 20 20 20 A5 D2 C5 D4 D5 D2 CE 3D CD 45 4E | .......=.EN|
00000A60: 55 22 00 7E 12 43 00 8D 33 34 32 3A 81 58 B2 31 |U".~.C..342:.X.1|
00000A70: A4 46 49 3A 4E 24 28 58 29 B2 22 22 3A 82 00 A9 |.FI:N$(X)."":...|
00000A80: 12 44 00 99 22 11 11 97 20 D2 45 43 4F 52 44 20 |.D.."... .ECORD |
00000A90: 4E 55 4D 42 45 52 3A 20 22 3B 3A 46 31 B2 30 3A |NUMBER: ";:F1.0:|
00000AA0: 4C 47 B2 33 3A 8D 33 35 36 00 D0 12 45 00 52 58 |LG.3:.356...E.RX|
00000AB0: B2 C5 28 41 24 29 3A 8D 37 36 3A 58 4E B2 52 58 |..(A$):.76:XN.RX|
00000AC0: 3A 54 4E B2 58 4E 3A 8D 33 39 33 3A 8D 34 31 31 |:TN.XN:.393:.411|
00000AD0: 00 ED 12 46 00 97 32 35 31 2C 31 31 30 3A 97 32 |...F..251,110:.2|
00000AE0: 35 32 2C 31 39 32 3A 9E 34 39 31 35 32 00 18 13 |52,192:.49152...|
00000AF0: 47 00 45 44 B2 31 3A 4E B2 30 3A 54 4E 24 B2 CA |G.ED.1:N.0:TN$..|
00000B00: 28 C4 28 54 4E 29 2C 32 2C 33 29 3A 8D 38 30 3A |(.(TN),2,3):.80:|
00000B10: 99 22 97 22 3B 54 4E 24 00 4C 13 48 00 81 4E B2 |.".";TN$.L.H..N.|
00000B20: 31 A4 46 49 3A 8D 38 30 3A 99 22 97 22 3B 4E 24 |1.FI:.80:.".";N$|
00000B30: 28 4E 29 3B C8 28 53 50 24 2C 4C 4E 25 28 4E 29 |(N);.(SP$,LN%(N)|
00000B40: AB C3 28 4E 24 28 4E 29 29 29 3A 82 00 58 13 49 |..(N$(N))):..X.I|
00000B50: 00 4E B2 31 3A 89 38 31 00 6D 13 4A 00 4E B2 4E |.N.1:.81.m.J.N.N|
00000B60: AA 31 3A 8B 4E B3 46 49 AA 31 A7 38 31 00 75 13 |.1:.N.FI.1.81.u.|
00000B70: 4B 00 89 37 31 00 83 13 4C 00 8B 41 24 B2 22 22 |K..71...L..A$.""|
00000B80: A7 35 32 00 BE 13 4D 00 8B 52 58 B3 31 B0 52 58 |.52...M..RX.1.RX|
00000B90: B1 35 30 30 B0 52 58 B1 52 4E A7 99 22 11 11 20 |.500.RX.RN..".. |
00000BA0: D2 45 43 4F 52 44 20 23 22 52 58 22 4F 55 54 20 |.ECORD #"RX"OUT |
00000BB0: 4F 46 20 52 41 4E 47 45 2E 22 3A 89 37 39 00 C4 |OF RANGE.":.79..|
00000BC0: 13 4E 00 8E 00 D1 13 4F 00 8D 33 34 31 3A 89 36 |.N.....O..341:.6|
00000BD0: 36 00 FB 13 50 00 97 37 38 33 2C 30 3A 97 37 38 |6...P..783,0:.78|
00000BE0: 31 2C 59 25 28 4E 29 3A 97 37 38 32 2C 58 25 28 |1,Y%(N):.782,X%(|
00000BF0: 4E 29 3A 9E 36 35 35 32 30 3A 8E 00 12 14 51 00 |N):.65520:....Q.|
00000C00: 41 41 24 B2 4E 24 28 4E 29 3A 46 4C B2 30 3A 8D |AA$.N$(N):FL.0:.|
00000C10: 38 30 00 1D 14 52 00 97 32 30 34 2C 30 00 59 14 |80...R..204,0.Y.|
00000C20: 53 00 A1 41 24 3A 8B 41 24 B2 22 22 B0 41 24 B2 |S..A$:.A$."".A$.|
00000C30: 51 54 24 B0 41 24 B2 22 2C 22 B0 41 24 B2 22 3A |QT$.A$.",".A$.":|
00000C40: 22 B0 41 24 B2 22 1D 22 B0 41 24 B2 22 9D 22 B0 |".A$.".".A$.".".|
00000C50: 41 24 B2 49 4E 24 A7 38 33 00 8C 14 54 00 8B 41 |A$.IN$.83...T..A|
00000C60: 24 B2 22 13 22 B0 41 24 B2 22 91 22 B0 41 24 B2 |$.".".A$.".".A$.|
00000C70: 22 11 22 B0 41 24 B2 43 52 24 A7 97 32 30 34 2C |".".A$.CR$..204,|
00000C80: 31 3A 97 32 30 37 2C 30 3A 89 39 38 00 9B 14 55 |1:.207,0:.98...U|
00000C90: 00 8B 41 24 B2 44 45 24 A7 39 34 00 BA 14 56 00 |..A$.DE$.94...V.|
00000CA0: 8B 41 24 B2 22 93 22 A7 97 32 30 37 2C 30 3A 97 |.A$."."..207,0:.|
00000CB0: 32 30 34 2C 31 3A 89 31 30 35 00 DD 14 57 00 8B |204,1:.105...W..|
00000CC0: 41 24 B2 22 88 22 A7 57 B2 31 3A 97 32 30 37 2C |A$.".".W.1:.207,|
00000CD0: 30 3A 97 32 30 34 2C 31 3A 89 31 30 38 00 FA 14 |0:.204,1:.108...|
00000CE0: 58 00 8B 41 24 B2 4D 24 A7 97 32 30 37 2C 30 3A |X..A$.M$..207,0:|
00000CF0: 97 32 30 34 2C 31 3A 89 35 32 00 23 15 59 00 97 |.204,1:.52.#.Y..|
00000D00: 32 30 37 2C 30 3A 97 32 30 34 2C 31 3A 8B C3 28 |207,0:.204,1:..(|
00000D10: 41 41 24 29 B3 4C 4E 25 28 4E 29 B0 46 4C B2 30 |AA$).LN%(N).FL.0|
00000D20: A7 39 31 00 2B 15 5A 00 89 38 32 00 36 15 5B 00 |.91.+.Z..82.6.[.|
00000D30: 8B 46 4C A7 39 33 00 6A 15 5C 00 46 4C B2 31 3A |.FL.93.j.\.FL.1:|
00000D40: 41 41 24 B2 41 24 3A 99 C8 28 53 50 24 2C 4C 4E |AA$.A$:..(SP$,LN|
00000D50: 25 28 4E 29 29 22 1F 12 A1 92 97 22 3A 8D 38 30 |%(N))".....":.80|
00000D60: 3A 99 41 41 24 3B 3A 89 38 32 00 82 15 5D 00 41 |:.AA$;:.82...].A|
00000D70: 41 24 B2 41 41 24 AA 41 24 3A 99 41 24 3B 3A 89 |A$.AA$.A$:.A$;:.|
00000D80: 38 32 00 91 15 5E 00 8B 41 41 24 B2 22 22 A7 38 |82...^..AA$."".8|
00000D90: 32 00 B6 15 5F 00 8B 4C 4E 25 28 4E 29 B2 C3 28 |2..._..LN%(N)..(|
00000DA0: 41 41 24 29 A7 99 22 9D 12 20 1F A1 92 9D 9D 97 |AA$)..".. ......|
00000DB0: 22 3B 3A 89 39 37 00 C4 15 60 00 99 22 9D 20 20 |";:.97...`..". |
00000DC0: 9D 9D 22 3B 00 E0 15 61 00 41 41 24 B2 C8 28 41 |..";...a.AA$..(A|
00000DD0: 41 24 2C C3 28 41 41 24 29 AB 31 29 3A 89 38 32 |A$,.(AA$).1):.82|
00000DE0: 00 FC 15 62 00 8B 4C 4E 25 28 4E 29 B2 C3 28 41 |...b..LN%(N)..(A|
00000DF0: 41 24 29 A7 99 22 1F 12 A1 92 97 22 00 37 16 63 |A$)..".....".7.c|
00000E00: 00 4E 24 28 4E 29 B2 41 41 24 3A 41 41 24 B2 22 |.N$(N).AA$:AA$."|
00000E10: 22 3A 8D 38 30 3A 99 22 97 22 3B 4E 24 28 4E 29 |":.80:.".";N$(N)|
00000E20: 3B C8 28 53 50 24 2C 4C 4E 25 28 4E 29 AB C3 28 |;.(SP$,LN%(N)..(|
00000E30: 4E 24 28 4E 29 29 29 00 4E 16 64 00 8B 41 24 B2 |N$(N))).N.d..A$.|
00000E40: 22 11 22 B0 41 24 B2 43 52 24 A7 31 30 33 00 62 |".".A$.CR$.103.b|
00000E50: 16 65 00 8B 41 24 B2 22 13 22 A7 4E B2 31 3A 89 |.e..A$.".".N.1:.|
00000E60: 38 31 00 75 16 66 00 4E B2 4E AB 32 3A 8B 4E B3 |81.u.f.N.N.2:.N.|
00000E70: 30 A7 4E B2 30 00 80 16 67 00 8B 45 44 A7 37 34 |0.N.0...g..ED.74|
00000E80: 00 88 16 68 00 89 36 34 00 94 16 69 00 8B 45 44 |...h..64...i..ED|
00000E90: A7 31 30 37 00 C7 16 6A 00 97 32 35 31 2C 36 38 |.107...j..251,68|
00000EA0: 3A 97 32 35 32 2C 31 39 32 3A 9E 34 39 31 35 32 |:.252,192:.49152|
00000EB0: 3A 81 58 B2 31 A4 46 49 3A 4E 24 28 58 29 B2 22 |:.X.1.FI:N$(X)."|
00000EC0: 22 3A 82 3A 89 36 32 00 FA 16 6B 00 97 32 35 31 |":.:.62...k..251|
00000ED0: 2C 39 32 3A 97 32 35 32 2C 31 39 32 3A 9E 34 39 |,92:.252,192:.49|
00000EE0: 31 35 32 3A 81 58 B2 31 A4 46 49 3A 4E 24 28 58 |152:.X.1.FI:N$(X|
00000EF0: 29 B2 22 22 3A 82 3A 89 37 31 00 18 17 6C 00 8B |)."":.:.71...l..|
00000F00: 45 44 B2 30 B0 C8 28 4E 24 28 31 29 2C 31 29 B3 |ED.0..(N$(1),1).|
00000F10: B1 22 2A 22 A7 33 39 35 00 21 17 6D 00 89 34 31 |."*".395.!.m..41|
00000F20: 36 00 2E 17 6E 00 8B 52 4E B3 30 A7 31 35 00 49 |6...n..RN.0.15.I|
00000F30: 17 6F 00 99 22 93 22 3B 3A 97 42 43 2C 31 3A 97 |.o..".";:.BC,1:.|
00000F40: 53 43 2C 31 3A 8D 33 34 32 00 80 17 70 00 53 4C |SC,1:.342...p.SL|
00000F50: 24 B2 22 93 1F 12 D0 52 49 4E 54 20 D2 45 43 4F |$."....RINT .ECO|
00000F60: 52 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |RD |
00000F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 92 22 | ."|
00000F80: 00 9E 17 71 00 99 53 4C 24 22 11 11 97 20 C4 4F |...q..SL$"... .O|
00000F90: 20 59 4F 55 20 57 41 4E 54 20 54 4F 3A 22 00 DA | YOU WANT TO:"..|
00000FA0: 17 72 00 99 22 11 20 31 2E 20 D0 52 49 4E 54 20 |.r..". 1. .RINT |
00000FB0: 41 4C 4C 20 44 41 54 41 2E 22 3A 99 22 20 32 2E |ALL DATA.":." 2.|
00000FC0: 20 D0 52 49 4E 54 20 41 20 52 45 50 4F 52 54 20 | .RINT A REPORT |
00000FD0: 4F 52 20 4C 41 42 45 4C 53 22 00 13 18 73 00 99 |OR LABELS"...s..|
00000FE0: 22 20 33 2E 20 D2 45 54 55 52 4E 20 54 4F 20 4D |" 3. .ETURN TO M|
00000FF0: 41 49 4E 20 4D 45 4E 55 2E 11 22 3A 48 4E B2 33 |AIN MENU..":HN.3|
00001000: 3A 8D 33 34 38 3A 91 41 89 31 31 36 2C 31 33 38 |:.348:.A.116,138|
00001010: 2C 32 31 00 48 18 74 00 46 4C B2 30 3A 99 53 4C |,21.H.t.FL.0:.SL|
00001020: 24 22 11 11 97 20 D4 48 45 52 45 20 41 52 45 22 |$"... .HERE ARE"|
00001030: 52 4E 22 52 45 43 4F 52 44 53 20 49 4E 20 54 48 |RN"RECORDS IN TH|
00001040: 45 20 46 49 4C 45 2E 22 00 5B 18 75 00 8B 52 4E |E FILE.".[.u..RN|
00001050: B2 30 A7 8D 33 34 31 3A 89 32 31 00 98 18 76 00 |.0..341:.21...v.|
00001060: 99 22 11 20 D0 52 49 4E 54 20 52 45 43 4F 52 44 |.". .RINT RECORD|
00001070: 53 20 46 52 4F 4D 3A 20 20 20 20 9D 9D 9D 22 3B |S FROM: ...";|
00001080: 3A 46 31 B2 30 3A 4C 47 B2 33 3A 8D 33 35 36 3A |:F1.0:LG.3:.356:|
00001090: 4C 52 B2 C5 28 41 24 29 00 B4 18 77 00 8B 4C 52 |LR..(A$)...w..LR|
000010A0: B3 31 B0 4C 52 B1 52 4E A7 99 22 91 91 22 3B 3A |.1.LR.RN.."..";:|
000010B0: 89 31 31 38 00 F1 18 78 00 99 22 11 20 20 20 20 |.118...x..". |
000010C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 D4 4F 3A | .O:|
000010D0: 20 20 20 20 9D 9D 9D 22 3B 3A 46 31 B2 30 3A 4C | ...";:F1.0:L|
000010E0: 47 B2 33 3A 8D 33 35 36 3A 48 52 B2 C5 28 41 24 |G.3:.356:HR..(A$|
000010F0: 29 00 0D 19 79 00 8B 48 52 B3 31 B0 48 52 B1 52 |)...y..HR.1.HR.R|
00001100: 4E A7 99 22 91 91 22 3B 3A 89 31 32 30 00 1F 19 |N.."..";:.120...|
00001110: 7A 00 8D 32 31 31 3A 8B 41 B2 31 A7 31 33 31 00 |z..211:.A.1.131.|
00001120: 2C 19 7B 00 8B 41 B2 33 A7 31 31 30 00 5C 19 7C |,.{..A.3.110.\.||
00001130: 00 4C 4E B2 30 3A 9F 34 2C 34 2C 37 3A 81 58 4E |.LN.0:.4,4,7:.XN|
00001140: B2 4C 52 A4 48 52 3A 58 4E 24 B2 CA 28 C4 28 58 |.LR.HR:XN$..(.(X|
00001150: 4E 29 2C 32 2C 33 29 3A 8D 34 31 31 00 8B 19 7D |N),2,3):.411...}|
00001160: 00 98 34 2C 22 23 22 58 4E 24 A6 34 AB C3 28 58 |..4,"#"XN$.4..(X|
00001170: 4E 24 29 29 4E 24 28 31 29 22 2C 20 22 4E 24 28 |N$))N$(1)", "N$(|
00001180: 32 29 22 2C 20 22 4E 24 28 33 29 00 B6 19 7E 00 |2)", "N$(3)...~.|
00001190: 98 34 2C A6 35 29 4E 24 28 34 29 22 2C 20 22 4E |.4,.5)N$(4)", "N|
000011A0: 24 28 35 29 22 2C 20 22 4E 24 28 36 29 22 2C 20 |$(5)", "N$(6)", |
000011B0: 22 4E 24 28 37 29 00 D2 19 7F 00 98 34 2C A6 35 |"N$(7)......4,.5|
000011C0: 29 4E 24 28 38 29 22 2C 20 22 4E 24 28 39 29 3A |)N$(8)", "N$(9):|
000011D0: 98 34 00 F3 19 80 00 4C 4E B2 4C 4E AA 34 3A 8B |.4.....LN.LN.4:.|
000011E0: 4C 4E B1 35 39 A7 4C 4E B2 30 3A 98 34 2C C7 28 |LN.59.LN.0:.4,.(|
000011F0: 31 32 29 00 0A 1A 81 00 8B C2 28 32 30 33 29 B2 |12).......(203).|
00001200: 36 32 A7 58 4E B2 48 52 AA 31 00 1D 1A 82 00 82 |62.XN.HR.1......|
00001210: 58 4E 3A 98 34 3A A0 34 3A 89 31 32 32 00 4B 1A |XN:.4:.4:.122.K.|
00001220: 83 00 81 58 4E B2 4C 52 A4 48 52 3A 8D 34 31 31 |...XN.LR.HR:.411|
00001230: 3A 58 4E 24 B2 CA 28 C4 28 58 4E 29 2C 32 2C 33 |:XN$..(.(XN),2,3|
00001240: 29 3A 99 22 05 23 22 58 4E 24 3B 00 62 1A 84 00 |):.".#"XN$;.b...|
00001250: 99 A3 35 29 4E 24 28 31 29 22 2C 20 22 4E 24 28 |..5)N$(1)", "N$(|
00001260: 32 29 00 96 1A 85 00 99 A3 35 29 4E 24 28 33 29 |2).......5)N$(3)|
00001270: 3A 99 A3 35 29 4E 24 28 34 29 3A 99 A3 35 29 4E |:..5)N$(4):..5)N|
00001280: 24 28 35 29 22 2C 20 22 4E 24 28 36 29 22 2C 20 |$(5)", "N$(6)", |
00001290: 22 4E 24 28 37 29 00 B1 1A 86 00 99 A3 35 29 4E |"N$(7).......5)N|
000012A0: 24 28 38 29 22 2C 20 22 4E 24 28 39 29 3A 99 3A |$(8)", "N$(9):.:|
000012B0: 99 00 C3 1A 87 00 8B C2 28 36 35 33 29 B2 31 A7 |........(653).1.|
000012C0: 31 33 35 00 DA 1A 88 00 8B C2 28 32 30 33 29 B2 |135.......(203).|
000012D0: 36 32 A7 58 4E B2 48 52 AA 31 00 EC 1A 89 00 82 |62.XN.HR.1......|
000012E0: 58 4E 3A 8D 33 35 33 3A 89 31 32 32 00 1C 1B 8A |XN:.353:.122....|
000012F0: 00 99 53 4C 24 22 11 11 97 20 D4 48 45 52 45 20 |..SL$"... .HERE |
00001300: 41 52 45 22 52 4E 22 52 45 43 4F 52 44 53 20 49 |ARE"RN"RECORDS I|
00001310: 4E 20 54 48 45 20 46 49 4C 45 2E 22 00 2F 1B 8B |N THE FILE."./..|
00001320: 00 8B 52 4E B2 30 A7 8D 33 34 31 3A 89 32 31 00 |..RN.0..341:.21.|
00001330: 51 1B 8C 00 99 22 11 20 D2 45 54 52 49 45 56 45 |Q....". .ETRIEVE|
00001340: 20 41 4C 4C 20 5B 59 2F 4E 5D 3F 22 3A 8D 33 34 | ALL [Y/N]?":.34|
00001350: 33 00 61 1B 8D 00 8B 41 24 B2 22 4E 22 A7 31 34 |3.a....A$."N".14|
00001360: 33 00 92 1B 8E 00 46 4C B2 30 3A 8D 32 31 37 3A |3.....FL.0:.217:|
00001370: 53 4E B2 52 4E 3A 81 58 B2 31 A4 53 4E 3A 53 25 |SN.RN:.X.1.SN:S%|
00001380: 28 58 29 B2 44 25 28 46 2C 58 29 3A 82 3A 89 31 |(X).D%(F,X):.:.1|
00001390: 36 35 00 A4 1B 8F 00 8D 32 32 35 3A 8B 4E B2 30 |65......225:.N.0|
000013A0: A7 31 31 30 00 D6 1B 90 00 46 4C B2 31 3A 8D 32 |.110.....FL.1:.2|
000013B0: 31 37 3A 99 53 4C 24 22 11 11 97 20 D3 45 41 52 |17:.SL$"... .EAR|
000013C0: 43 48 49 4E 47 2C 20 50 4C 45 41 53 45 20 57 41 |CHING, PLEASE WA|
000013D0: 49 54 2E 2E 2E 22 00 E9 1B 91 00 8B 46 B2 34 A7 |IT..."......F.4.|
000013E0: 8D 32 33 33 3A 89 31 34 37 00 F2 1B 92 00 8D 32 |.233:.147......2|
000013F0: 34 30 00 17 1C 93 00 99 53 4C 24 22 11 11 97 22 |40......SL$"..."|
00001400: 53 4E 22 4D 41 54 43 48 45 53 20 46 4F 55 4E 44 |SN"MATCHES FOUND|
00001410: 2E 22 3A 8D 33 35 33 00 25 1C 94 00 8B 53 4E B2 |.":.353.%....SN.|
00001420: 30 A7 31 31 30 00 33 1C 95 00 8B 53 4E B2 31 A7 |0.110.3....SN.1.|
00001430: 31 36 35 00 62 1C 96 00 46 4C B2 30 3A 8D 32 31 |165.b...FL.0:.21|
00001440: 37 3A 99 22 11 20 D0 4C 45 41 53 45 20 57 41 49 |7:.". .LEASE WAI|
00001450: 54 2E 2E 2E 22 3A 9F 31 2C 38 2C 31 35 3A 8D 33 |T...":.1,8,15:.3|
00001460: 38 39 00 83 1C 97 00 9F 32 2C 38 2C 32 2C 22 30 |89......2,8,2,"0|
00001470: 3A 50 50 20 44 41 54 41 20 46 49 4C 45 22 3A 8D |:PP DATA FILE":.|
00001480: 33 38 39 00 B0 1C 98 00 81 53 58 B2 31 A4 53 4E |389......SX.1.SN|
00001490: 3A 58 4E B2 53 25 28 53 58 29 3A 58 4E 24 B2 CA |:XN.S%(SX):XN$..|
000014A0: 28 C4 28 58 4E 29 2C 32 2C 33 29 3A 8D 33 39 33 |(.(XN),2,3):.393|
000014B0: 00 C3 1C 99 00 91 46 89 31 35 34 2C 31 35 37 2C |......F.154,157,|
000014C0: 31 36 30 00 EC 1C 9A 00 98 31 2C 22 50 22 C7 28 |160......1,"P".(|
000014D0: 32 29 C7 28 4C 4F 29 C7 28 48 49 29 C7 28 50 54 |2).(LO).(HI).(PT|
000014E0: 25 28 31 29 29 3A 84 32 2C 53 31 24 00 15 1D 9B |%(1)):.2,S1$....|
000014F0: 00 98 31 2C 22 50 22 C7 28 32 29 C7 28 4C 4F 29 |..1,"P".(2).(LO)|
00001500: C7 28 48 49 29 C7 28 50 54 25 28 32 29 29 3A 84 |.(HI).(PT%(2)):.|
00001510: 32 2C 53 32 24 00 31 1D 9C 00 53 24 28 53 58 29 |2,S2$.1...S$(SX)|
00001520: B2 53 31 24 AA 22 20 22 AA 53 32 24 3A 89 31 36 |.S1$." ".S2$:.16|
00001530: 31 00 5A 1D 9D 00 98 31 2C 22 50 22 C7 28 32 29 |1.Z....1,"P".(2)|
00001540: C7 28 4C 4F 29 C7 28 48 49 29 C7 28 50 54 25 28 |.(LO).(HI).(PT%(|
00001550: 36 29 29 3A 84 32 2C 53 31 24 00 83 1D 9E 00 98 |6)):.2,S1$......|
00001560: 31 2C 22 50 22 C7 28 32 29 C7 28 4C 4F 29 C7 28 |1,"P".(2).(LO).(|
00001570: 48 49 29 C7 28 50 54 25 28 35 29 29 3A 84 32 2C |HI).(PT%(5)):.2,|
00001580: 53 32 24 00 9F 1D 9F 00 53 24 28 53 58 29 B2 53 |S2$.....S$(SX).S|
00001590: 31 24 AA 22 20 22 AA 53 32 24 3A 89 31 36 31 00 |1$." ".S2$:.161.|
000015A0: CB 1D A0 00 98 31 2C 22 50 22 C7 28 32 29 C7 28 |.....1,"P".(2).(|
000015B0: 4C 4F 29 C7 28 48 49 29 C7 28 50 54 25 28 37 29 |LO).(HI).(PT%(7)|
000015C0: 29 3A 84 32 2C 53 24 28 53 58 29 00 F3 1D A1 00 |):.2,S$(SX).....|
000015D0: 53 24 28 53 58 29 B2 53 24 28 53 58 29 AA C9 28 |S$(SX).S$(SX)..(|
000015E0: 22 30 30 30 22 2C 33 AB C3 28 58 4E 24 29 29 AA |"000",3..(XN$)).|
000015F0: 58 4E 24 00 01 1E A2 00 82 53 58 3A A0 32 3A A0 |XN$......SX:.2:.|
00001600: 31 00 3A 1E A3 00 48 49 B2 B5 28 53 4E AD 32 35 |1.:...HI..(SN.25|
00001610: 36 29 3A 4C 4F B2 53 4E AB 48 49 AC 32 35 36 3A |6):LO.SN.HI.256:|
00001620: 97 35 30 32 36 36 2C 4C 4F 3A 97 35 30 32 36 37 |.50266,LO:.50267|
00001630: 2C 48 49 3A 9E 35 30 32 38 33 00 5D 1E A4 00 81 |,HI:.50283.]....|
00001640: 58 B2 31 A4 53 4E 3A 53 25 28 58 29 B2 C5 28 C9 |X.1.SN:S%(X)..(.|
00001650: 28 53 24 28 58 29 2C 33 29 29 3A 82 58 00 84 1E |(S$(X),3)):.X...|
00001660: A5 00 99 53 4C 24 22 11 11 97 20 D7 4F 55 4C 44 |...SL$"... .OULD|
00001670: 20 59 4F 55 20 4C 49 4B 45 20 54 4F 20 50 52 49 | YOU LIKE TO PRI|
00001680: 4E 54 3A 22 00 B0 1E A6 00 99 22 11 20 31 2E 20 |NT:"......". 1. |
00001690: C1 20 52 45 50 4F 52 54 22 3A 99 22 20 32 2E 20 |. REPORT":." 2. |
000016A0: CD 41 49 4C 49 4E 47 20 4C 41 42 45 4C 53 11 22 |.AILING LABELS."|
000016B0: 00 C7 1E A7 00 48 4E B2 32 3A 8D 33 34 38 3A 8B |.....HN.2:.348:.|
000016C0: 41 B2 32 A7 31 39 31 00 D9 1E A8 00 8D 32 31 31 |A.2.191......211|
000016D0: 3A 8B 41 B2 31 A7 31 38 32 00 E6 1E A9 00 8B 41 |:.A.1.182......A|
000016E0: B2 33 A7 31 31 30 00 1C 1F AA 00 99 53 4C 24 3A |.3.110......SL$:|
000016F0: 99 22 11 97 20 D2 45 50 4F 52 54 20 54 49 54 4C |.".. .EPORT TITL|
00001700: 45 3A 20 22 3B 3A 46 31 B2 31 3A 4C 47 B2 32 34 |E: ";:F1.1:LG.24|
00001710: 3A 8D 33 35 36 3A 54 4C 24 B2 41 24 00 44 1F AB |:.356:TL$.A$.D..|
00001720: 00 4C 4E B2 30 3A 50 47 B2 31 3A 9F 34 2C 34 2C |.LN.0:PG.1:.4,4,|
00001730: 37 3A 98 34 2C 54 4C 24 22 20 2F 22 50 47 3A 98 |7:.4,TL$" /"PG:.|
00001740: 34 3A 98 34 00 71 1F AC 00 81 53 58 B2 31 A4 53 |4:.4.q....SX.1.S|
00001750: 4E 3A 58 4E B2 53 25 28 53 58 29 3A 58 4E 24 B2 |N:XN.S%(SX):XN$.|
00001760: CA 28 C4 28 58 4E 29 2C 32 2C 33 29 3A 8D 34 31 |.(.(XN),2,3):.41|
00001770: 31 00 98 1F AD 00 98 34 2C 22 23 22 58 4E 24 A6 |1......4,"#"XN$.|
00001780: 34 AB C3 28 58 4E 24 29 29 4E 24 28 31 29 22 2C |4..(XN$))N$(1)",|
00001790: 20 22 4E 24 28 32 29 3B 00 C2 1F AE 00 81 53 59 | "N$(2);......SY|
000017A0: B2 31 A4 28 34 33 AB C3 28 4E 24 28 31 29 AA 4E |.1.(43..(N$(1).N|
000017B0: 24 28 32 29 29 29 3A 98 34 2C 22 2E 22 3B 3A 82 |$(2))):.4,".";:.|
000017C0: 53 59 00 EE 1F AF 00 41 24 B2 C8 28 4E 24 28 33 |SY.....A$..(N$(3|
000017D0: 29 2C 31 29 3A 8B 41 24 B2 22 5F 22 B0 41 24 B2 |),1):.A$."_".A$.|
000017E0: 22 2D 22 B0 41 24 B2 22 20 22 A7 31 37 37 00 0C |"-".A$." ".177..|
000017F0: 20 B0 00 98 34 2C 4E 24 28 33 29 3A 4C 4E B2 4C | ...4,N$(3):LN.L|
00001800: 4E AA 31 3A 98 34 2C A6 35 30 29 3B 00 21 20 B1 |N.1:.4,.50);.! .|
00001810: 00 98 34 2C 4E 24 28 34 29 3A 4C 4E B2 4C 4E AA |..4,N$(4):LN.LN.|
00001820: 31 00 5D 20 B2 00 98 34 2C A6 33 37 29 4E 24 28 |1.] ...4,.37)N$(|
00001830: 38 29 A6 31 33 AB C3 28 4E 24 28 38 29 29 29 4E |8).13..(N$(8)))N|
00001840: 24 28 35 29 22 2C 20 22 4E 24 28 36 29 22 20 22 |$(5)", "N$(6)" "|
00001850: 4E 24 28 37 29 3A 4C 4E B2 4C 4E AA 31 00 91 20 |N$(7):LN.LN.1.. |
00001860: B3 00 8B 4C 4E B1 35 35 A7 4C 4E B2 30 3A 98 34 |...LN.55.LN.0:.4|
00001870: 2C C7 28 31 32 29 3A 50 47 B2 50 47 AA 31 3A 98 |,.(12):PG.PG.1:.|
00001880: 34 2C 54 4C 24 22 20 2F 22 50 47 3A 98 34 3A 98 |4,TL$" /"PG:.4:.|
00001890: 34 00 A8 20 B4 00 8B C2 28 32 30 33 29 B2 36 32 |4.. ....(203).62|
000018A0: A7 53 58 B2 53 4E AA 31 00 BB 20 B5 00 82 53 58 |.SX.SN.1.. ...SX|
000018B0: 3A 98 34 3A A0 34 3A 89 31 36 38 00 E8 20 B6 00 |:.4:.4:.168.. ..|
000018C0: 81 53 58 B2 31 A4 53 4E 3A 58 4E B2 53 25 28 53 |.SX.1.SN:XN.S%(S|
000018D0: 58 29 3A 58 4E 24 B2 CA 28 C4 28 58 4E 29 2C 32 |X):XN$..(.(XN),2|
000018E0: 2C 33 29 3A 8D 34 31 31 00 06 21 B7 00 99 22 05 |,3):.411..!...".|
000018F0: 23 22 58 4E 24 A3 35 29 4E 24 28 31 29 22 2C 20 |#"XN$.5)N$(1)", |
00001900: 22 4E 24 28 32 29 00 32 21 B8 00 41 24 B2 C8 28 |"N$(2).2!..A$..(|
00001910: 4E 24 28 33 29 2C 31 29 3A 8B 41 24 B2 22 5F 22 |N$(3),1):.A$."_"|
00001920: B0 41 24 B2 22 2D 22 B0 41 24 B2 22 20 22 A7 31 |.A$."-".A$." ".1|
00001930: 38 36 00 40 21 B9 00 99 A3 35 29 4E 24 28 33 29 |86.@!....5)N$(3)|
00001940: 00 6A 21 BA 00 99 A3 35 29 4E 24 28 34 29 3A 99 |.j!....5)N$(4):.|
00001950: A3 35 29 4E 24 28 35 29 22 2C 20 22 4E 24 28 36 |.5)N$(5)", "N$(6|
00001960: 29 22 2C 20 22 4E 24 28 37 29 00 7A 21 BB 00 99 |)", "N$(7).z!...|
00001970: A3 35 29 4E 24 28 38 29 3A 99 00 8C 21 BC 00 8B |.5)N$(8):...!...|
00001980: C2 28 36 35 33 29 B2 31 A7 31 38 38 00 A3 21 BD |.(653).1.188..!.|
00001990: 00 8B C2 28 32 30 33 29 B2 36 32 A7 53 58 B2 53 |...(203).62.SX.S|
000019A0: 4E AA 31 00 B5 21 BE 00 82 53 58 3A 8D 33 35 33 |N.1..!...SX:.353|
000019B0: 3A 89 31 36 38 00 C7 21 BF 00 8D 32 31 31 3A 8B |:.168..!...211:.|
000019C0: 41 B2 31 A7 32 30 33 00 D4 21 C0 00 8B 41 B2 33 |A.1.203..!...A.3|
000019D0: A7 31 31 30 00 11 22 C1 00 99 53 4C 24 22 11 11 |.110.."...SL$"..|
000019E0: 97 22 3A 99 22 CE 55 4D 42 45 52 20 4F 46 20 43 |.":.".UMBER OF C|
000019F0: 4F 50 49 45 53 3A 20 22 3B 3A 46 31 B2 30 3A 4C |OPIES: ";:F1.0:L|
00001A00: 47 B2 34 3A 8D 33 35 36 3A 43 50 B2 C5 28 41 24 |G.4:.356:CP..(A$|
00001A10: 29 00 42 22 C2 00 9F 34 2C 34 2C 37 3A 81 53 59 |).B"...4,4,7:.SY|
00001A20: B2 31 A4 43 50 3A 81 53 58 B2 31 A4 53 4E 3A 4C |.1.CP:.SX.1.SN:L|
00001A30: 4E B2 31 3A 58 4E B2 53 25 28 53 58 29 3A 8D 34 |N.1:XN.S%(SX):.4|
00001A40: 31 31 00 5F 22 C3 00 98 34 2C 4E 24 28 32 29 22 |11._"...4,N$(2)"|
00001A50: 20 22 4E 24 28 31 29 3A 4C 4E B2 4C 4E AA 31 00 | "N$(1):LN.LN.1.|
00001A60: 8B 22 C4 00 41 24 B2 C8 28 4E 24 28 33 29 2C 31 |."..A$..(N$(3),1|
00001A70: 29 3A 8B 41 24 B2 22 5F 22 B0 41 24 B2 22 2D 22 |):.A$."_".A$."-"|
00001A80: B0 41 24 B2 22 20 22 A7 31 39 38 00 A0 22 C5 00 |.A$." ".198.."..|
00001A90: 98 34 2C 4E 24 28 33 29 3A 4C 4E B2 4C 4E AA 31 |.4,N$(3):LN.LN.1|
00001AA0: 00 CF 22 C6 00 98 34 2C 4E 24 28 34 29 3A 98 34 |.."...4,N$(4):.4|
00001AB0: 2C 4E 24 28 35 29 22 2C 20 22 4E 24 28 36 29 22 |,N$(5)", "N$(6)"|
00001AC0: 20 22 4E 24 28 37 29 3A 4C 4E B2 4C 4E AA 31 00 | "N$(7):LN.LN.1.|
00001AD0: E3 22 C7 00 81 58 B2 31 A4 36 AB 4C 4E 3A 98 34 |."...X.1.6.LN:.4|
00001AE0: 3A 82 58 00 FA 22 C8 00 8B C2 28 32 30 33 29 B2 |:.X.."....(203).|
00001AF0: 36 32 A7 53 58 B2 53 4E AA 31 00 06 23 C9 00 82 |62.SX.SN.1..#...|
00001B00: 53 58 3A 82 53 59 00 15 23 CA 00 98 34 3A A0 34 |SX:.SY..#...4:.4|
00001B10: 3A 89 31 39 31 00 31 23 CB 00 81 53 58 B2 31 A4 |:.191.1#...SX.1.|
00001B20: 53 4E 3A 58 4E B2 53 25 28 53 58 29 3A 8D 34 31 |SN:XN.S%(SX):.41|
00001B30: 31 00 4A 23 CC 00 99 A3 35 29 22 05 22 4E 24 28 |1.J#....5)"."N$(|
00001B40: 32 29 22 20 22 4E 24 28 31 29 00 76 23 CD 00 41 |2)" "N$(1).v#..A|
00001B50: 24 B2 C8 28 4E 24 28 33 29 2C 31 29 3A 8B 41 24 |$..(N$(3),1):.A$|
00001B60: B2 22 5F 22 B0 41 24 B2 22 2D 22 B0 41 24 B2 22 |."_".A$."-".A$."|
00001B70: 20 22 A7 32 30 37 00 84 23 CE 00 99 A3 35 29 4E | ".207..#....5)N|
00001B80: 24 28 33 29 00 AF 23 CF 00 99 A3 35 29 4E 24 28 |$(3)..#....5)N$(|
00001B90: 34 29 3A 99 A3 35 29 4E 24 28 35 29 22 2C 20 22 |4):..5)N$(5)", "|
00001BA0: 4E 24 28 36 29 22 20 22 4E 24 28 37 29 3A 99 00 |N$(6)" "N$(7):..|
00001BB0: C1 23 D0 00 8B C2 28 36 35 33 29 B2 31 A7 32 30 |.#....(653).1.20|
00001BC0: 38 00 D8 23 D1 00 8B C2 28 32 30 33 29 B2 36 32 |8..#....(203).62|
00001BD0: A7 53 58 B2 53 4E AA 31 00 EA 23 D2 00 82 53 58 |.SX.SN.1..#...SX|
00001BE0: 3A 8D 33 35 33 3A 89 31 39 31 00 02 24 D3 00 97 |:.353:.191..$...|
00001BF0: 42 43 2C 31 3A 97 53 43 2C 31 3A 99 22 93 22 53 |BC,1:.SC,1:."."S|
00001C00: 4C 24 00 35 24 D4 00 99 22 11 97 20 C4 4F 20 59 |L$.5$...".. .O Y|
00001C10: 4F 55 20 57 41 4E 54 20 54 4F 3A 22 3A 99 22 11 |OU WANT TO:":.".|
00001C20: 20 31 2E 20 CF 55 54 50 55 54 20 54 4F 20 53 43 | 1. .UTPUT TO SC|
00001C30: 52 45 45 4E 22 00 69 24 D5 00 99 22 20 32 2E 20 |REEN".i$..." 2. |
00001C40: CF 55 54 50 55 54 20 54 4F 20 50 52 49 4E 54 45 |.UTPUT TO PRINTE|
00001C50: 52 22 3A 99 22 20 33 2E 20 D2 45 54 55 52 4E 20 |R":." 3. .ETURN |
00001C60: 54 4F 20 4D 45 4E 55 11 22 00 77 24 D6 00 48 4E |TO MENU.".w$..HN|
00001C70: B2 33 3A 8D 33 34 38 00 92 24 D7 00 8B 41 B2 31 |.3:.348..$...A.1|
00001C80: A7 99 22 93 05 22 3A 97 42 43 2C 36 3A 97 53 43 |.."..":.BC,6:.SC|
00001C90: 2C 36 00 98 24 D8 00 8E 00 A9 24 D9 00 99 53 4C |,6..$.....$...SL|
00001CA0: 24 3A 8B 46 4C A7 32 31 39 00 C1 24 DA 00 99 22 |$:.FL.219..$..."|
00001CB0: 11 97 20 D3 4F 52 54 20 42 59 3A 22 3A 89 32 32 |.. .ORT BY:":.22|
00001CC0: 30 00 D6 24 DB 00 99 22 11 97 20 D3 45 41 52 43 |0..$...".. .EARC|
00001CD0: 48 20 42 59 3A 22 00 0B 25 DC 00 99 22 11 20 31 |H BY:"..%...". 1|
00001CE0: 2E 20 CE 41 4D 45 22 3A 99 22 20 32 2E 20 D3 54 |. .AME":." 2. .T|
00001CF0: 41 54 45 20 2F 20 C3 49 54 59 22 3A 99 22 20 33 |ATE / .ITY":." 3|
00001D00: 2E 20 DA 49 50 20 C3 4F 44 45 22 00 1E 25 DD 00 |. .IP .ODE"..%..|
00001D10: 8B 46 4C A7 99 22 20 34 2E 20 CB 45 59 22 00 35 |.FL.." 4. .EY".5|
00001D20: 25 DE 00 99 22 11 22 3A 8B 46 4C A7 48 4E B2 34 |%...".":.FL.HN.4|
00001D30: 3A 89 32 32 34 00 3E 25 DF 00 48 4E B2 33 00 51 |:.224.>%..HN.3.Q|
00001D40: 25 E0 00 8D 33 34 38 3A 46 B2 C5 28 41 24 29 3A |%...348:F..(A$):|
00001D50: 8E 00 85 25 E1 00 99 53 4C 24 22 11 11 97 20 D4 |...%...SL$"... .|
00001D60: 59 50 45 20 49 4E 20 55 50 20 54 4F 20 54 45 4E |YPE IN UP TO TEN|
00001D70: 20 45 4E 54 52 49 45 53 20 46 4F 52 20 53 45 41 | ENTRIES FOR SEA|
00001D80: 52 43 48 2E 22 00 B8 25 E2 00 99 22 20 D0 52 45 |RCH."..%..." .RE|
00001D90: 53 53 20 D2 C5 D4 D5 D2 CE 20 4F 4E 20 41 20 42 |SS ...... ON A B|
00001DA0: 4C 41 4E 4B 20 4C 49 4E 45 20 54 4F 20 51 55 49 |LANK LINE TO QUI|
00001DB0: 54 2E 11 22 3A 4E B2 30 00 D1 25 E3 00 4E B2 4E |T..":N.0..%..N.N|
00001DC0: AA 31 3A 4E 24 B2 CA 28 C4 28 4E 29 2C 32 2C 32 |.1:N$..(.(N),2,2|
00001DD0: 29 00 06 26 E4 00 99 22 20 23 22 4E 24 22 3A 20 |)..&..." #"N$": |
00001DE0: 22 3B 3A 53 49 24 28 4E 29 B2 22 22 3A 46 31 B2 |";:SI$(N)."":F1.|
00001DF0: 31 3A 4C 47 B2 33 32 3A 8D 33 35 36 3A 53 49 24 |1:LG.32:.356:SI$|
00001E00: 28 4E 29 B2 41 24 00 1F 26 E5 00 8B 4E B3 31 30 |(N).A$..&...N.10|
00001E10: AF 53 49 24 28 4E 29 B3 B1 22 22 A7 32 32 37 00 |.SI$(N).."".227.|
00001E20: 3B 26 E6 00 8B 4E B2 31 AF 53 49 24 28 4E 29 B2 |;&...N.1.SI$(N).|
00001E30: 22 22 A7 4E B2 30 3A 89 32 33 32 00 45 26 E7 00 |"".N.0:.232.E&..|
00001E40: 4E B2 4E AB 31 00 4B 26 E8 00 8E 00 62 26 E9 00 |N.N.1.K&....b&..|
00001E50: 53 4E B2 30 3A 81 53 31 B2 31 A4 52 4E 3A 46 4C |SN.0:.S1.1.RN:FL|
00001E60: B2 30 00 9B 26 EA 00 5A 49 24 B2 4B 59 24 28 53 |.0..&..ZI$.KY$(S|
00001E70: 31 29 3A 4C 33 B2 C3 28 5A 49 24 29 3A 81 53 32 |1):L3..(ZI$):.S2|
00001E80: B2 31 A4 4E 3A 4C B2 C3 28 53 49 24 28 53 32 29 |.1.N:L..(SI$(S2)|
00001E90: 29 3A 4C 32 B2 4C 33 AB 4C AA 31 00 B2 26 EB 00 |):L2.L3.L.1..&..|
00001EA0: 81 53 33 B2 31 A4 4C 32 3A 8B 4C 32 B3 31 A7 32 |.S3.1.L2:.L2.1.2|
00001EB0: 33 37 00 D0 26 EC 00 8B CA 28 5A 49 24 2C 53 33 |37..&....(ZI$,S3|
00001EC0: 2C 4C 29 B2 53 49 24 28 53 32 29 A7 46 4C B2 31 |,L).SI$(S2).FL.1|
00001ED0: 00 E6 26 ED 00 82 53 33 3A 82 53 32 3A 8B 46 4C |..&...S3:.S2:.FL|
00001EE0: B2 30 A7 32 33 39 00 07 27 EE 00 53 4E B2 53 4E |.0.239..'..SN.SN|
00001EF0: AA 31 3A 53 25 28 53 4E 29 B2 53 31 3A 53 24 28 |.1:S%(SN).S1:S$(|
00001F00: 53 4E 29 B2 5A 49 24 00 11 27 EF 00 82 53 31 3A |SN).ZI$..'...S1:|
00001F10: 8E 00 47 27 F0 00 9F 31 2C 38 2C 31 35 3A 9F 32 |..G'...1,8,15:.2|
00001F20: 2C 38 2C 32 2C 22 30 3A 50 50 20 44 41 54 41 20 |,8,2,"0:PP DATA |
00001F30: 46 49 4C 45 22 3A 8D 33 38 39 3A 53 4E B2 30 3A |FILE":.389:SN.0:|
00001F40: 81 53 31 B2 31 A4 4E 00 6B 27 F1 00 46 4C B2 30 |.S1.1.N.k'..FL.0|
00001F50: 3A 8D 32 34 36 3A 4C 4C B2 4C 49 3A 46 4C B2 31 |:.246:LL.LI:FL.1|
00001F60: 3A 8D 32 34 36 3A 55 4C B2 4C 49 00 85 27 F2 00 |:.246:UL.LI..'..|
00001F70: 58 B2 AB 31 3A 8D 32 34 33 3A 82 53 31 3A A0 32 |X..1:.243:.S1:.2|
00001F80: 3A A0 31 3A 8E 00 A9 27 F3 00 58 B2 58 AA 31 3A |:.1:...'..X.X.1:|
00001F90: 53 4E B2 53 4E AA 31 3A 53 25 28 53 4E 29 B2 44 |SN.SN.1:S%(SN).D|
00001FA0: 25 28 46 2C 4C 4C AA 58 29 00 C0 27 F4 00 8B 58 |%(F,LL.X)..'...X|
00001FB0: AA 4C 4C B1 55 4C A7 53 4E B2 53 4E AB 31 3A 8E |.LL.UL.SN.SN.1:.|
00001FC0: 00 C9 27 F5 00 89 32 34 33 00 E8 27 F6 00 53 49 |..'...243..'..SI|
00001FD0: 24 B2 53 49 24 28 53 31 29 3A 4B B2 44 25 28 46 |$.SI$(S1):K.D%(F|
00001FE0: 2C 31 29 3A 8D 32 36 35 00 F9 27 F7 00 8B 53 49 |,1):.265..'...SI|
00001FF0: 24 B3 5A 49 24 A7 32 36 31 00 0A 28 F8 00 8B 53 |$.ZI$.261..(...S|
00002000: 49 24 B1 5A 49 24 A7 32 35 30 00 1D 28 F9 00 4D |I$.ZI$.250..(..M|
00002010: 58 B2 31 3A 8B 46 4C B2 30 A7 32 36 32 00 3D 28 |X.1:.FL.0.262.=(|
00002020: FA 00 53 49 24 B2 53 49 24 28 53 31 29 3A 4B B2 |..SI$.SI$(S1):K.|
00002030: 44 25 28 46 2C 52 4E 29 3A 8D 32 36 35 00 4E 28 |D%(F,RN):.265.N(|
00002040: FB 00 8B 53 49 24 B1 5A 49 24 A7 32 36 31 00 5F |...SI$.ZI$.261._|
00002050: 28 FC 00 8B 53 49 24 B3 5A 49 24 A7 32 35 34 00 |(...SI$.ZI$.254.|
00002060: 73 28 FD 00 4D 4E B2 52 4E 3A 8B 46 4C B2 31 A7 |s(..MN.RN:.FL.1.|
00002070: 32 36 33 00 82 28 FE 00 4D 58 B2 52 4E 3A 4D 4E |263..(..MX.RN:MN|
00002080: B2 31 00 A1 28 FF 00 41 56 B2 B5 28 28 4D 58 AA |.1..(..AV..((MX.|
00002090: 4D 4E 29 AD 32 29 3A 8B 41 56 B2 4D 4E A7 32 36 |MN).2):.AV.MN.26|
000020A0: 32 00 C1 28 00 01 53 49 24 B2 53 49 24 28 53 31 |2..(..SI$.SI$(S1|
000020B0: 29 3A 4B B2 44 25 28 46 2C 41 56 29 3A 8D 32 36 |):K.D%(F,AV):.26|
000020C0: 35 00 D9 28 01 01 8B 53 49 24 B3 5A 49 24 A7 4D |5..(...SI$.ZI$.M|
000020D0: 58 B2 41 56 3A 89 32 35 35 00 F1 28 02 01 8B 53 |X.AV:.255..(...S|
000020E0: 49 24 B1 5A 49 24 A7 4D 4E B2 41 56 3A 89 32 35 |I$.ZI$.MN.AV:.25|
000020F0: 35 00 06 29 03 01 8B 46 4C B2 30 A7 4D 58 B2 41 |5..)...FL.0.MX.A|
00002100: 56 3A 89 32 35 35 00 1B 29 04 01 8B 46 4C B2 31 |V:.255..)...FL.1|
00002110: A7 4D 4E B2 41 56 3A 89 32 35 35 00 29 29 05 01 |.MN.AV:.255.))..|
00002120: 4D 58 B2 31 3A 4D 4E B2 30 00 39 29 06 01 8B 46 |MX.1:MN.0.9)...F|
00002130: 4C B2 30 A7 4C 49 B2 4D 58 00 49 29 07 01 8B 46 |L.0.LI.MX.I)...F|
00002140: 4C B2 31 A7 4C 49 B2 4D 4E 00 4F 29 08 01 8E 00 |L.1.LI.MN.O)....|
00002150: 82 29 09 01 48 49 B2 B5 28 28 4B AA 31 29 AD 32 |.)..HI..((K.1).2|
00002160: 35 36 29 3A 4C 4F B2 28 4B AA 31 29 AB 48 49 AC |56):LO.(K.1).HI.|
00002170: 32 35 36 3A 91 46 89 32 36 36 2C 32 36 39 2C 32 |256:.F.266,269,2|
00002180: 37 32 00 AB 29 0A 01 98 31 2C 22 50 22 C7 28 32 |72..)...1,"P".(2|
00002190: 29 C7 28 4C 4F 29 C7 28 48 49 29 C7 28 50 54 25 |).(LO).(HI).(PT%|
000021A0: 28 31 29 29 3A 84 32 2C 5A 31 24 00 D4 29 0B 01 |(1)):.2,Z1$..)..|
000021B0: 98 31 2C 22 50 22 C7 28 32 29 C7 28 4C 4F 29 C7 |.1,"P".(2).(LO).|
000021C0: 28 48 49 29 C7 28 50 54 25 28 32 29 29 3A 84 32 |(HI).(PT%(2)):.2|
000021D0: 2C 5A 32 24 00 ED 29 0C 01 5A 49 24 B2 5A 31 24 |,Z2$..)..ZI$.Z1$|
000021E0: AA 22 20 22 AA 5A 32 24 3A 89 32 37 33 00 16 2A |." ".Z2$:.273..*|
000021F0: 0D 01 98 31 2C 22 50 22 C7 28 32 29 C7 28 4C 4F |...1,"P".(2).(LO|
00002200: 29 C7 28 48 49 29 C7 28 50 54 25 28 36 29 29 3A |).(HI).(PT%(6)):|
00002210: 84 32 2C 5A 31 24 00 3F 2A 0E 01 98 31 2C 22 50 |.2,Z1$.?*...1,"P|
00002220: 22 C7 28 32 29 C7 28 4C 4F 29 C7 28 48 49 29 C7 |".(2).(LO).(HI).|
00002230: 28 50 54 25 28 35 29 29 3A 84 32 2C 5A 32 24 00 |(PT%(5)):.2,Z2$.|
00002240: 58 2A 0F 01 5A 49 24 B2 5A 31 24 AA 22 20 22 AA |X*..ZI$.Z1$." ".|
00002250: 5A 32 24 3A 89 32 37 33 00 81 2A 10 01 98 31 2C |Z2$:.273..*...1,|
00002260: 22 50 22 C7 28 32 29 C7 28 4C 4F 29 C7 28 48 49 |"P".(2).(LO).(HI|
00002270: 29 C7 28 50 54 25 28 37 29 29 3A 84 32 2C 5A 49 |).(PT%(7)):.2,ZI|
00002280: 24 00 98 2A 11 01 8B C9 28 53 49 24 2C 31 29 B3 |$..*....(SI$,1).|
00002290: B1 22 3F 22 A7 32 37 35 00 C2 2A 12 01 53 49 24 |."?".275..*..SI$|
000022A0: B2 C8 28 53 49 24 2C C3 28 53 49 24 29 AB 31 29 |..(SI$,.(SI$).1)|
000022B0: 3A 5A 49 24 B2 C8 28 5A 49 24 2C C3 28 53 49 24 |:ZI$..(ZI$,.(SI$|
000022C0: 29 29 00 C8 2A 13 01 8E 00 D5 2A 14 01 8B 52 4E |))..*.....*...RN|
000022D0: B3 30 A7 31 35 00 12 2B 15 01 53 4C 24 B2 22 93 |.0.15..+..SL$.".|
000022E0: 1F 12 D6 49 45 57 20 26 20 C5 44 49 54 20 CB 45 |...IEW & .DIT .E|
000022F0: 59 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |YS |
00002300: 20 A5 2A 3D C4 45 4C 45 54 45 92 97 22 3A 46 4C | .*=.ELETE..":FL|
00002310: B2 30 00 2D 2B 16 01 99 53 4C 24 3B 3A 97 42 43 |.0.-+...SL$;:.BC|
00002320: 2C 31 3A 97 53 43 2C 31 3A 8D 33 34 32 00 5E 2B |,1:.SC,1:.342.^+|
00002330: 17 01 9F 31 2C 38 2C 31 35 3A 8D 33 38 39 3A 9F |...1,8,15:.389:.|
00002340: 32 2C 38 2C 32 2C 22 30 3A 50 50 20 4B 45 59 20 |2,8,2,"0:PP KEY |
00002350: 46 49 4C 45 2C 53 2C 52 22 3A 8D 33 38 39 00 7D |FILE,S,R":.389.}|
00002360: 2B 18 01 84 32 2C 4B 3A 8B 4B B2 30 A7 A0 32 3A |+...2,K:.K.0..2:|
00002370: A0 31 3A 99 22 11 11 22 3A 89 32 38 33 00 A3 2B |.1:."..":.283..+|
00002380: 19 01 81 58 B2 31 A4 4B 3A 84 32 2C 4B 24 28 58 |...X.1.K:.2,K$(X|
00002390: 2C 31 29 2C 4B 24 28 58 2C 32 29 3A 82 3A A0 32 |,1),K$(X,2):.:.2|
000023A0: 3A A0 31 00 AC 2B 1A 01 8D 32 39 33 00 DC 2B 1B |:.1..+...293..+.|
000023B0: 01 99 22 91 20 C1 44 44 20 41 20 4B 45 59 20 5B |..". .DD A KEY [|
000023C0: 59 2F 4E 5D 3F 20 20 20 20 22 3A 8D 33 34 33 3A |Y/N]? ":.343:|
000023D0: 8B 41 24 B2 22 59 22 A7 8D 32 39 37 00 E9 2B 1C |.A$."Y"..297..+.|
000023E0: 01 8B 4B B3 31 A7 32 38 37 00 19 2C 1D 01 99 22 |..K.1.287..,..."|
000023F0: 91 20 C5 44 49 54 20 4B 45 59 20 5B 59 2F 4E 5D |. .DIT KEY [Y/N]|
00002400: 3F 20 20 20 20 20 22 3A 8D 33 34 33 3A 8B 41 24 |? ":.343:.A$|
00002410: B2 22 59 22 A7 8D 33 30 30 00 48 2C 1E 01 99 22 |."Y"..300.H,..."|
00002420: 91 20 C3 4F 4E 54 49 4E 55 45 20 5B 59 2F 4E 5D |. .ONTINUE [Y/N]|
00002430: 3F 20 20 20 20 20 22 3A 8D 33 34 33 3A 8B 41 24 |? ":.343:.A$|
00002440: B2 22 59 22 A7 32 38 32 00 55 2C 1F 01 8B 46 4C |."Y".282.U,...FL|
00002450: B2 30 A7 32 31 00 73 2C 20 01 99 22 91 20 D0 4C |.0.21.s, ..". .L|
00002460: 45 41 53 45 20 57 41 49 54 2E 2E 2E 20 20 20 20 |EASE WAIT... |
00002470: 20 20 22 00 B5 2C 21 01 9F 31 2C 38 2C 31 35 2C | "..,!..1,8,15,|
00002480: 22 53 30 3A 50 50 20 4B 45 59 20 46 49 4C 45 22 |"S0:PP KEY FILE"|
00002490: 3A 8D 33 38 39 3A 9F 32 2C 38 2C 32 2C 22 30 3A |:.389:.2,8,2,"0:|
000024A0: 50 50 20 4B 45 59 20 46 49 4C 45 2C 53 2C 57 22 |PP KEY FILE,S,W"|
000024B0: 3A 8D 33 38 39 00 C7 2C 22 01 98 32 2C 4B 3A 8B |:.389..,"..2,K:.|
000024C0: 4B B2 30 A7 32 39 32 00 F5 2C 23 01 81 58 B2 31 |K.0.292..,#..X.1|
000024D0: A4 4B 3A 98 32 2C 4B 24 28 58 2C 31 29 3B 43 52 |.K:.2,K$(X,1);CR|
000024E0: 24 3B 4B 24 28 58 2C 32 29 3B 43 52 24 3B 3A 82 |$;K$(X,2);CR$;:.|
000024F0: 3A 46 4C B2 30 00 08 2D 24 01 8D 33 38 39 3A A0 |:FL.0..-$..389:.|
00002500: 32 3A A0 31 3A 89 32 31 00 1D 2D 25 01 99 53 4C |2:.1:.21..-%..SL|
00002510: 24 22 11 22 3A 8B 4B B2 30 A7 32 39 36 00 3B 2D |$".":.K.0.296.;-|
00002520: 26 01 81 58 B2 31 A4 4B 3A 99 22 20 23 22 3B CA |&..X.1.K:." #";.|
00002530: 28 C4 28 58 29 2C 32 2C 32 29 3B 00 58 2D 27 01 |(.(X),2,2);.X-'.|
00002540: 99 A3 35 29 4B 24 28 58 2C 31 29 A3 31 30 29 4B |..5)K$(X,1).10)K|
00002550: 24 28 58 2C 32 29 3A 82 00 64 2D 28 01 99 22 11 |$(X,2):..d-(..".|
00002560: 11 22 3A 8E 00 8D 2D 29 01 8B 4B B1 31 34 A7 99 |.":...-)..K.14..|
00002570: 22 11 11 20 CB 45 59 20 46 49 4C 45 20 46 55 4C |".. .EY FILE FUL|
00002580: 4C 2E 22 3A 8D 33 34 31 3A 89 32 38 35 00 C3 2D |L.":.341:.285..-|
00002590: 2A 01 4B 4E B2 4B AA 31 3A 8D 33 30 36 3A 8B 4B |*.KN.K.1:.306:.K|
000025A0: 24 B2 22 2A 22 B0 4B 24 28 4B 4E 2C 31 29 B2 22 |$."*".K$(KN,1)."|
000025B0: 22 B0 4B 24 28 4B 4E 2C 32 29 B2 22 22 A7 4B B2 |".K$(KN,2)."".K.|
000025C0: 4B AB 31 00 D4 2D 2B 01 4B B2 4B AA 31 3A 8D 32 |K.1..-+.K.K.1:.2|
000025D0: 39 33 3A 8E 00 04 2E 2C 01 99 22 91 97 20 C5 44 |93:....,..".. .D|
000025E0: 49 54 20 4B 45 59 20 4E 55 4D 42 45 52 3A 20 20 |IT KEY NUMBER: |
000025F0: 20 9D 9D 22 3B 3A 46 31 B2 30 3A 4C 47 B2 32 3A | ..";:F1.0:LG.2:|
00002600: 8D 33 35 36 00 20 2E 2D 01 4B 4E B2 C5 28 41 24 |.356. .-.KN..(A$|
00002610: 29 3A 8B 4B 4E B3 31 B0 4B 4E B1 4B A7 33 30 30 |):.KN.1.KN.K.300|
00002620: 00 29 2E 2E 01 8D 33 30 36 00 43 2E 2F 01 8B 4B |.)....306.C./..K|
00002630: 24 B2 22 2A 22 AF 4B B1 31 A7 8D 33 31 31 3A 89 |$."*".K.1..311:.|
00002640: 33 30 35 00 57 2E 30 01 8B 4B 24 B2 22 2A 22 AF |305.W.0..K$."*".|
00002650: 4B B2 31 A7 4B B2 30 00 62 2E 31 01 8D 32 39 33 |K.1.K.0.b.1..293|
00002660: 3A 8E 00 7C 2E 32 01 4B 24 B2 22 22 3A 44 24 B2 |:..|.2.K$."":D$.|
00002670: 22 22 3A 46 4C B2 31 3A 99 53 4C 24 00 B4 2E 33 |"":FL.1:.SL$...3|
00002680: 01 99 22 11 20 23 22 CA 28 C4 28 4B 4E 29 2C 32 |..". #".(.(KN),2|
00002690: 2C 32 29 A3 35 29 22 CB 45 59 3A 20 22 3B 3A 46 |,2).5)".EY: ";:F|
000026A0: 31 B2 31 3A 4C 47 B2 31 36 3A 8D 33 35 36 3A 4B |1.1:LG.16:.356:K|
000026B0: 24 B2 41 24 00 CA 2E 34 01 8B 4B 24 B2 22 2A 22 |$.A$...4..K$."*"|
000026C0: B0 4B 24 B2 22 22 A7 33 31 30 00 0C 2F 35 01 99 |.K$."".310../5..|
000026D0: A3 35 29 22 11 C4 45 53 43 52 49 50 54 49 4F 4E |.5)"..ESCRIPTION|
000026E0: 3A 20 22 3B 3A 46 31 B2 31 3A 4C 47 B2 32 34 3A |: ";:F1.1:LG.24:|
000026F0: 8D 33 35 36 3A 4B 24 28 4B 4E 2C 31 29 B2 4B 24 |.356:K$(KN,1).K$|
00002700: 3A 4B 24 28 4B 4E 2C 32 29 B2 41 24 00 12 2F 36 |:K$(KN,2).A$../6|
00002710: 01 8E 00 20 2F 37 01 8B 4B 4E B2 4B A7 33 31 33 |... /7..KN.K.313|
00002720: 00 49 2F 38 01 81 58 B2 4B 4E A4 4B 3A 81 59 B2 |.I/8..X.KN.K:.Y.|
00002730: 31 A4 32 3A 4B 24 28 58 2C 59 29 B2 4B 24 28 58 |1.2:K$(X,Y).K$(X|
00002740: AA 31 2C 59 29 3A 82 3A 82 00 55 2F 39 01 4B B2 |.1,Y):.:..U/9.K.|
00002750: 4B AB 31 3A 8E 00 96 2F 3A 01 53 4C 24 B2 22 93 |K.1:.../:.SL$.".|
00002760: 12 1F C3 52 45 41 54 45 20 C4 41 54 41 20 C4 49 |...REATE .ATA .I|
00002770: 53 4B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |SK |
00002780: 20 20 20 20 20 20 20 20 20 20 92 22 3A 99 53 4C | .":.SL|
00002790: 24 3A 8D 33 34 32 00 C8 2F 3B 01 99 22 11 20 12 |$:.342../;..". .|
000027A0: 1C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000027B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000027C0: 20 20 20 20 20 20 20 22 00 F8 2F 3C 01 99 22 20 | "../<.." |
000027D0: 12 20 20 D7 C1 D2 CE C9 CE C7 3A 20 D4 48 49 53 |. .......: .HIS|
000027E0: 20 50 52 4F 43 45 44 55 52 45 20 45 52 41 53 45 | PROCEDURE ERASE|
000027F0: 53 20 41 4C 4C 20 20 22 00 28 30 3D 01 99 22 20 |S ALL ".(0=.." |
00002800: 12 20 20 44 41 54 41 20 41 4E 44 20 43 52 45 41 |. DATA AND CREA|
00002810: 54 45 53 20 41 20 4E 45 57 20 44 41 54 41 20 44 |TES A NEW DATA D|
00002820: 49 53 4B 2E 20 20 20 22 00 59 30 3E 01 99 22 20 |ISK. ".Y0>.." |
00002830: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00002840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002850: 20 20 20 20 20 20 20 97 22 00 6B 30 3F 01 81 58 | .".k0?..X|
00002860: B2 31 A4 35 3A 8D 33 34 32 3A 82 00 99 30 40 01 |.1.5:.342:...0@.|
00002870: 99 22 11 11 97 20 C4 4F 20 59 4F 55 20 57 41 4E |."... .O YOU WAN|
00002880: 54 20 54 4F 20 44 4F 20 54 48 49 53 20 5B 59 2F |T TO DO THIS [Y/|
00002890: 4E 5D 3F 22 3A 8D 33 34 34 00 A8 30 41 01 8B 41 |N]?":.344..0A..A|
000028A0: 24 B2 22 4E 22 A7 32 31 00 BB 30 42 01 8B 52 4E |$."N".21..0B..RN|
000028B0: B3 B2 30 B0 57 B2 30 A7 33 32 34 00 C4 30 43 01 |..0.W.0.324..0C.|
000028C0: 8D 34 35 37 00 FC 30 44 01 99 53 4C 24 3A 99 22 |.457..0D..SL$:."|
000028D0: 11 97 20 D0 4C 45 41 53 45 20 49 4E 53 45 52 54 |.. .LEASE INSERT|
000028E0: 20 44 49 53 4B 20 54 4F 20 42 45 20 46 4F 52 4D | DISK TO BE FORM|
000028F0: 41 54 54 45 44 2E 22 3A 8D 33 35 33 00 3D 31 45 |ATTED.":.353.=1E|
00002900: 01 99 22 11 20 C4 49 53 4B 20 4E 41 4D 45 3A 20 |..". .ISK NAME: |
00002910: 22 3B 3A 46 31 B2 31 3A 4C 47 B2 31 36 3A 8D 33 |";:F1.1:LG.16:.3|
00002920: 35 36 3A 4E 31 24 B2 41 24 3A 99 22 11 20 D0 4C |56:N1$.A$:.". .L|
00002930: 45 41 53 45 20 57 41 49 54 2E 2E 2E 22 00 53 31 |EASE WAIT...".S1|
00002940: 46 01 9F 31 2C 38 2C 31 35 2C 22 55 39 22 3A 8D |F..1,8,15,"U9":.|
00002950: 33 38 39 00 6F 31 47 01 98 31 2C 22 4E 30 3A 22 |389.o1G..1,"N0:"|
00002960: AA 4E 31 24 AA 22 2C 30 30 22 3A 8D 33 38 39 00 |.N1$.",00":.389.|
00002970: 9A 31 48 01 9F 32 2C 38 2C 32 2C 22 30 3A 50 50 |.1H..2,8,2,"0:PP|
00002980: 20 44 41 54 41 20 46 49 4C 45 2C 4C 2C 22 AA C7 | DATA FILE,L,"..|
00002990: 28 31 34 34 29 3A 8D 33 38 39 00 C4 31 49 01 98 |(144):.389..1I..|
000029A0: 31 2C 22 50 22 C7 28 32 29 C7 28 32 34 34 29 C7 |1,"P".(2).(244).|
000029B0: 28 31 29 C7 28 31 29 3A 98 32 2C 22 45 4E 44 22 |(1).(1):.2,"END"|
000029C0: 3B 43 52 24 00 E9 31 4A 01 98 31 2C 22 50 22 C7 |;CR$..1J..1,"P".|
000029D0: 28 32 29 C7 28 31 29 C7 28 30 29 C7 28 31 29 3A |(2).(1).(0).(1):|
000029E0: 98 32 2C 30 3B 43 52 24 3B 00 F5 31 4B 01 8D 33 |.2,0;CR$;..1K..3|
000029F0: 38 39 3A A0 32 00 26 32 4C 01 9F 32 2C 38 2C 32 |89:.2.&2L..2,8,2|
00002A00: 2C 22 30 3A 50 50 20 4B 45 59 20 46 49 4C 45 2C |,"0:PP KEY FILE,|
00002A10: 53 2C 57 22 3A 98 32 2C 30 3B 43 52 24 3B 3A 8D |S,W":.2,0;CR$;:.|
00002A20: 33 38 39 3A A0 32 00 59 32 4D 01 9F 32 2C 38 2C |389:.2.Y2M..2,8,|
00002A30: 32 2C 22 30 3A 50 50 20 44 41 54 41 20 49 4E 44 |2,"0:PP DATA IND|
00002A40: 45 58 2C 53 2C 57 22 3A 98 32 2C 30 3B 43 52 24 |EX,S,W":.2,0;CR$|
00002A50: 3B 3A 8D 33 38 39 3A A0 32 00 95 32 4E 01 9F 32 |;:.389:.2..2N..2|
00002A60: 2C 38 2C 32 2C 22 30 3A 50 50 20 4B 45 59 20 49 |,8,2,"0:PP KEY I|
00002A70: 4E 44 45 58 2C 53 2C 57 22 3A 98 32 2C 22 4B 45 |NDEX,S,W":.2,"KE|
00002A80: 59 20 49 4E 44 45 58 22 3B 43 52 24 3B 3A 8D 33 |Y INDEX";CR$;:.3|
00002A90: 38 39 3A A0 32 00 A9 32 4F 01 A0 31 3A 52 4E B2 |89:.2..2O..1:RN.|
00002AA0: 30 3A 57 B2 30 3A 89 32 31 00 EA 32 50 01 53 4C |0:W.0:.21..2P.SL|
00002AB0: 24 B2 22 93 1F 12 D3 57 41 50 20 C4 41 54 41 20 |$."....WAP .ATA |
00002AC0: C4 49 53 4B 20 20 20 20 20 20 20 20 20 20 20 20 |.ISK |
00002AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 92 22 | ."|
00002AE0: 3A 99 53 4C 24 3A 8D 33 34 32 00 FD 32 51 01 8B |:.SL$:.342..2Q..|
00002AF0: 52 4E B3 B2 30 B0 57 B2 30 A7 33 33 39 00 06 33 |RN..0.W.0.339..3|
00002B00: 52 01 8D 34 35 37 00 45 33 53 01 99 53 4C 24 22 |R..457.E3S..SL$"|
00002B10: 11 11 97 20 C9 4E 53 45 52 54 20 4E 45 57 A0 44 |... .NSERT NEW.D|
00002B20: 49 53 4B 20 49 4E 20 54 48 45 20 44 49 53 4B 20 |ISK IN THE DISK |
00002B30: 44 52 49 56 45 2E 22 3A 8D 33 35 33 3A 8D 34 34 |DRIVE.":.353:.44|
00002B40: 36 3A 89 32 31 00 56 33 54 01 81 54 B2 31 A4 31 |6:.21.V3T..T.1.1|
00002B50: 30 30 3A 82 3A 8E 00 68 33 55 01 81 54 B2 31 A4 |00:.:..h3U..T.1.|
00002B60: 31 30 30 30 3A 82 3A 8E 00 8F 33 56 01 97 56 31 |1000:.:...3V..V1|
00002B70: 2C 36 35 3A 97 56 32 2C 36 35 3A 8D 33 34 30 3A |,65:.V2,65:.340:|
00002B80: 97 56 31 2C 36 34 3A 97 56 32 2C 36 34 3A 8E 00 |.V1,64:.V2,64:..|
00002B90: 9A 33 57 01 97 31 39 38 2C 30 00 A2 33 58 01 A1 |.3W..198,0..3X..|
00002BA0: 41 24 00 C2 33 59 01 8B 41 24 B3 B1 22 59 22 AF |A$..3Y..A$.."Y".|
00002BB0: 41 24 B3 B1 22 4E 22 AF 41 24 B3 B1 4D 24 A7 33 |A$.."N".A$..M$.3|
00002BC0: 34 34 00 D0 33 5A 01 8B 41 24 B2 4D 24 A7 32 31 |44..3Z..A$.M$.21|
00002BD0: 00 D6 33 5B 01 8E 00 0B 34 5C 01 48 4E 24 B2 C9 |..3[....4\.HN$..|
00002BE0: 28 C4 28 48 4E 29 2C 31 29 3A 99 22 20 D9 4F 55 |(.(HN),1):." .OU|
00002BF0: 52 20 43 48 4F 49 43 45 20 5B 31 2D 22 48 4E 24 |R CHOICE [1-"HN$|
00002C00: 22 5D 3F 22 3A 97 31 39 38 2C 30 00 13 34 5D 01 |"]?":.198,0..4].|
00002C10: A1 41 24 00 21 34 5E 01 8B 41 24 B2 4D 24 A7 32 |.A$.!4^..A$.M$.2|
00002C20: 31 00 3B 34 5F 01 41 B2 C5 28 41 24 29 3A 8B 41 |1.;4_.A..(A$):.A|
00002C30: B3 31 B0 41 B1 48 4E A7 33 34 39 00 41 34 60 01 |.1.A.HN.349.A4`.|
00002C40: 8E 00 6C 34 61 01 99 22 11 20 D0 52 45 53 53 20 |..l4a..". .RESS |
00002C50: 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 |ANY KEY TO CONTI|
00002C60: 4E 55 45 2E 22 3A 97 31 39 38 2C 30 00 7F 34 62 |NUE.":.198,0..4b|
00002C70: 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 33 35 34 00 |..A$:.A$."".354.|
00002C80: 85 34 63 01 8E 00 9D 34 64 01 41 24 B2 22 22 3A |.4c....4d.A$."":|
00002C90: 97 32 30 34 2C 30 3A 97 32 30 37 2C 30 00 D2 34 |.204,0:.207,0..4|
00002CA0: 65 01 A1 41 41 24 3A 8B 41 41 24 B2 22 22 B0 41 |e..AA$:.AA$."".A|
00002CB0: 41 24 B2 51 54 24 B0 41 41 24 B2 22 2C 22 B0 41 |A$.QT$.AA$.",".A|
00002CC0: 41 24 B2 22 3A 22 B0 41 41 24 B2 22 40 22 A7 33 |A$.":".AA$."@".3|
00002CD0: 35 37 00 ED 34 66 01 8B 41 41 24 B2 43 52 24 A7 |57..4f..AA$.CR$.|
00002CE0: 99 22 20 22 3A 97 32 30 34 2C 31 3A 8E 00 18 35 |." ":.204,1:...5|
00002CF0: 67 01 8B 41 41 24 B2 44 45 24 AF C3 28 41 24 29 |g..AA$.DE$..(A$)|
00002D00: B1 30 A7 41 24 B2 C8 28 41 24 2C C3 28 41 24 29 |.0.A$..(A$,.(A$)|
00002D10: AB 31 29 3A 89 33 36 36 00 24 35 68 01 8B 46 31 |.1):.366.$5h..F1|
00002D20: A7 33 36 33 00 42 35 69 01 8B A8 28 41 41 24 B1 |.363.B5i...(AA$.|
00002D30: B2 22 30 22 AF 41 41 24 B3 B2 22 39 22 29 A7 33 |."0".AA$.."9").3|
00002D40: 35 37 00 4B 35 6A 01 89 33 36 34 00 69 35 6B 01 |57.K5j..364.i5k.|
00002D50: 8B A8 28 41 41 24 B1 B2 22 20 22 AF 41 41 24 B3 |..(AA$.." ".AA$.|
00002D60: B2 22 DA 22 29 A7 33 35 37 00 7B 35 6C 01 8B C3 |.".").357.{5l...|
00002D70: 28 41 24 29 B2 4C 47 A7 33 35 37 00 89 35 6D 01 |(A$).LG.357..5m.|
00002D80: 41 24 B2 41 24 AA 41 41 24 00 98 35 6E 01 99 41 |A$.A$.AA$..5n..A|
00002D90: 41 24 3B 3A 89 33 35 37 00 AF 35 6F 01 4D 58 B2 |A$;:.357..5o.MX.|
00002DA0: 52 4E 3A 4D 4E B2 31 3A 8B 52 4E B2 30 A7 8E 00 |RN:MN.1:.RN.0...|
00002DB0: BD 35 70 01 8B 52 4E B2 31 A7 33 37 39 00 DA 35 |.5p..RN.1.379..5|
00002DC0: 71 01 53 49 24 B2 44 24 28 58 29 3A 4B B2 44 25 |q.SI$.D$(X):K.D%|
00002DD0: 28 58 2C 31 29 3A 8D 33 38 30 00 F9 35 72 01 4C |(X,1):.380..5r.L|
00002DE0: 4C 24 B2 5A 49 24 3A 8B 53 49 24 B3 4C 4C 24 A7 |L$.ZI$:.SI$.LL$.|
00002DF0: 4D 58 B2 31 3A 89 33 37 38 00 0F 36 73 01 4B B2 |MX.1:.378..6s.K.|
00002E00: 44 25 28 58 2C 52 4E AB 31 29 3A 8D 33 38 30 00 |D%(X,RN.1):.380.|
00002E10: 2F 36 74 01 55 4C 24 B2 5A 49 24 3A 8B 53 49 24 |/6t.UL$.ZI$:.SI$|
00002E20: B1 55 4C 24 A7 4D 58 B2 52 4E 3A 89 33 37 39 00 |.UL$.MX.RN:.379.|
00002E30: 4E 36 75 01 4E 41 B2 B5 28 28 4D 58 AA 4D 4E 29 |N6u.NA..((MX.MN)|
00002E40: AD 32 29 3A 8B 4E 41 B2 4D 4E A7 33 37 38 00 62 |.2):.NA.MN.378.b|
00002E50: 36 76 01 4B B2 44 25 28 58 2C 4E 41 29 3A 8D 33 |6v.K.D%(X,NA):.3|
00002E60: 38 30 00 82 36 77 01 8B 53 49 24 B3 5A 49 24 A7 |80..6w..SI$.ZI$.|
00002E70: 55 4C 24 B2 5A 49 24 3A 4D 58 B2 4E 41 3A 89 33 |UL$.ZI$:MX.NA:.3|
00002E80: 37 33 00 A2 36 78 01 8B 53 49 24 B2 5A 49 24 A7 |73..6x..SI$.ZI$.|
00002E90: 4D 4E B2 4E 41 3A 4D 58 B2 4E 41 AA 31 3A 89 33 |MN.NA:MX.NA.1:.3|
00002EA0: 37 33 00 C2 36 79 01 8B 53 49 24 B1 5A 49 24 A7 |73..6y..SI$.ZI$.|
00002EB0: 4C 4C 24 B2 5A 49 24 3A 4D 4E B2 4E 41 3A 89 33 |LL$.ZI$:MN.NA:.3|
00002EC0: 37 33 00 E7 36 7A 01 81 4B B2 52 4E A4 4D 58 A9 |73..6z..K.RN.MX.|
00002ED0: AB 31 3A 44 25 28 58 2C 4B AA 31 29 B2 44 25 28 |.1:D%(X,K.1).D%(|
00002EE0: 58 2C 4B 29 3A 82 4B 00 F9 36 7B 01 44 25 28 58 |X,K):.K..6{.D%(X|
00002EF0: 2C 4D 58 29 B2 56 58 3A 8E 00 2C 37 7C 01 48 49 |,MX).VX:..,7|.HI|
00002F00: B2 B5 28 28 4B AA 31 29 AD 32 35 36 29 3A 4C 4F |..((K.1).256):LO|
00002F10: B2 28 4B AA 31 29 AB 48 49 AC 32 35 36 3A 91 58 |.(K.1).HI.256:.X|
00002F20: 89 33 38 31 2C 33 38 34 2C 33 38 37 00 55 37 7D |.381,384,387.U7}|
00002F30: 01 98 31 2C 22 50 22 C7 28 32 29 C7 28 4C 4F 29 |..1,"P".(2).(LO)|
00002F40: C7 28 48 49 29 C7 28 50 54 25 28 31 29 29 3A 84 |.(HI).(PT%(1)):.|
00002F50: 32 2C 5A 31 24 00 7E 37 7E 01 98 31 2C 22 50 22 |2,Z1$.~7~..1,"P"|
00002F60: C7 28 32 29 C7 28 4C 4F 29 C7 28 48 49 29 C7 28 |.(2).(LO).(HI).(|
00002F70: 50 54 25 28 32 29 29 3A 84 32 2C 5A 32 24 00 97 |PT%(2)):.2,Z2$..|
00002F80: 37 7F 01 5A 49 24 B2 5A 31 24 AA 22 20 22 AA 5A |7..ZI$.Z1$." ".Z|
00002F90: 32 24 3A 89 33 38 38 00 C0 37 80 01 98 31 2C 22 |2$:.388..7...1,"|
00002FA0: 50 22 C7 28 32 29 C7 28 4C 4F 29 C7 28 48 49 29 |P".(2).(LO).(HI)|
00002FB0: C7 28 50 54 25 28 36 29 29 3A 84 32 2C 5A 31 24 |.(PT%(6)):.2,Z1$|
00002FC0: 00 E9 37 81 01 98 31 2C 22 50 22 C7 28 32 29 C7 |..7...1,"P".(2).|
00002FD0: 28 4C 4F 29 C7 28 48 49 29 C7 28 50 54 25 28 35 |(LO).(HI).(PT%(5|
00002FE0: 29 29 3A 84 32 2C 5A 32 24 00 02 38 82 01 5A 49 |)):.2,Z2$..8..ZI|
00002FF0: 24 B2 5A 31 24 AA 22 20 22 AA 5A 32 24 3A 89 33 |$.Z1$." ".Z2$:.3|
00003000: 38 38 00 2B 38 83 01 98 31 2C 22 50 22 C7 28 32 |88.+8...1,"P".(2|
00003010: 29 C7 28 4C 4F 29 C7 28 48 49 29 C7 28 50 54 25 |).(LO).(HI).(PT%|
00003020: 28 37 29 29 3A 84 32 2C 5A 49 24 00 31 38 84 01 |(7)):.2,ZI$.18..|
00003030: 8E 00 53 38 85 01 84 31 2C 45 2C 45 24 2C 54 2C |..S8...1,E,E$,T,|
00003040: 53 3A 8B 45 B3 32 31 B0 45 B2 35 30 B0 45 B2 37 |S:.E.21.E.50.E.7|
00003050: 33 A7 8E 00 6F 38 86 01 A0 32 3A A0 31 3A 99 22 |3...o8...2:.1:."|
00003060: 93 22 3B 3A 97 42 43 2C 32 3A 97 53 43 2C 32 00 |.";:.BC,2:.SC,2.|
00003070: 94 38 87 01 99 22 05 11 11 11 11 11 11 20 C4 49 |.8..."....... .I|
00003080: 53 4B 20 C5 52 52 4F 52 3A 20 22 3B 45 3B 45 24 |SK .RROR: ";E;E$|
00003090: 3B 54 3B 53 00 AF 38 88 01 81 58 B2 31 A4 35 3A |;T;S..8...X.1.5:|
000030A0: 8D 33 34 32 3A 82 3A 8D 33 35 33 3A 89 32 31 00 |.342:.:.353:.21.|
000030B0: D7 38 89 01 48 49 B2 B5 28 28 58 4E AA 31 29 AD |.8..HI..((XN.1).|
000030C0: 32 35 36 29 3A 4C 4F B2 28 58 4E AA 31 29 AB 48 |256):LO.(XN.1).H|
000030D0: 49 AC 32 35 36 3A 8E 00 FB 38 8A 01 98 31 2C 22 |I.256:...8...1,"|
000030E0: 50 22 C7 28 32 29 C7 28 4C 4F 29 C7 28 48 49 29 |P".(2).(LO).(HI)|
000030F0: C7 28 31 29 3A 8D 33 38 39 3A 8E 00 13 39 8B 01 |.(1):.389:...9..|
00003100: 81 58 B2 31 A4 46 49 3A 4C 58 B2 C3 28 4E 24 28 |.X.1.FI:LX..(N$(|
00003110: 58 29 29 00 45 39 8C 01 8B 4C 58 B1 30 AF C9 28 |X)).E9...LX.0..(|
00003120: 4E 24 28 58 29 2C 31 29 B2 22 20 22 A7 4E 24 28 |N$(X),1)." ".N$(|
00003130: 58 29 B2 C8 28 4E 24 28 58 29 2C 4C 58 AB 31 29 |X)..(N$(X),LX.1)|
00003140: 3A 89 33 39 36 00 5D 39 8D 01 8B 4E 24 28 58 29 |:.396.]9...N$(X)|
00003150: B2 22 22 A7 4E 24 28 58 29 B2 22 2D 22 00 64 39 |."".N$(X)."-".d9|
00003160: 8E 01 82 58 00 92 39 8F 01 8D 33 39 33 3A 9F 31 |...X..9...393:.1|
00003170: 2C 38 2C 31 35 3A 9F 32 2C 38 2C 32 2C 22 30 3A |,8,15:.2,8,2,"0:|
00003180: 50 50 20 44 41 54 41 20 46 49 4C 45 22 3A 8D 33 |PP DATA FILE":.3|
00003190: 38 39 00 A0 39 90 01 81 58 B2 31 A4 46 49 AB 31 |89..9...X.1.FI.1|
000031A0: 00 D3 39 91 01 98 31 2C 22 50 22 C7 28 32 29 C7 |..9...1,"P".(2).|
000031B0: 28 4C 4F 29 C7 28 48 49 29 C7 28 50 54 25 28 58 |(LO).(HI).(PT%(X|
000031C0: 29 29 3A 98 32 2C 4E 24 28 58 29 3B 43 52 24 3B |)):.2,N$(X);CR$;|
000031D0: 3A 82 58 00 FF 39 92 01 98 31 2C 22 50 22 C7 28 |:.X..9...1,"P".(|
000031E0: 32 29 C7 28 4C 4F 29 C7 28 48 49 29 C7 28 31 29 |2).(LO).(HI).(1)|
000031F0: 3A 4B 59 24 28 58 4E 29 B2 4E 24 28 46 49 29 00 |:KY$(XN).N$(FI).|
00003200: 43 3A 93 01 44 24 28 31 29 B2 4E 24 28 31 29 AA |C:..D$(1).N$(1).|
00003210: 22 20 22 AA 4E 24 28 32 29 3A 44 24 28 32 29 B2 |" ".N$(2):D$(2).|
00003220: 4E 24 28 36 29 AA 22 20 22 AA 4E 24 28 35 29 3A |N$(6)." ".N$(5):|
00003230: 44 24 28 33 29 B2 4E 24 28 37 29 3A 8B 45 44 A7 |D$(3).N$(7):.ED.|
00003240: 34 30 36 00 73 3A 94 01 98 31 2C 22 50 22 C7 28 |406.s:...1,"P".(|
00003250: 32 29 C7 28 31 29 C7 28 30 29 C7 28 31 29 3A 98 |2).(1).(0).(1):.|
00003260: 32 2C 52 4E AA 31 3B 43 52 24 3B 3A 52 4E B2 52 |2,RN.1;CR$;:RN.R|
00003270: 4E AA 31 00 96 3A 95 01 81 58 B2 31 A4 33 3A 56 |N.1..:...X.1.3:V|
00003280: 58 B2 52 4E 3A 8D 33 36 37 3A 82 58 3A A0 32 3A |X.RN:.367:.X:.2:|
00003290: A0 31 3A 89 35 38 00 B9 3A 96 01 81 58 B2 31 A4 |.1:.58..:...X.1.|
000032A0: 33 3A 81 59 B2 31 A4 52 4E 3A 8B 52 58 B2 44 25 |3:.Y.1.RN:.RX.D%|
000032B0: 28 58 2C 59 29 A7 34 30 38 00 C0 3A 97 01 82 59 |(X,Y).408..:...Y|
000032C0: 00 CF 3A 98 01 8B 59 B1 B2 52 4E A7 34 31 30 00 |..:...Y..RN.410.|
000032D0: F0 3A 99 01 81 5A B2 59 A4 52 4E 3A 44 25 28 58 |.:...Z.Y.RN:D%(X|
000032E0: 2C 5A 29 B2 44 25 28 58 2C 5A AA 31 29 3A 82 5A |,Z).D%(X,Z.1):.Z|
000032F0: 00 17 3B 9A 01 44 25 28 58 2C 52 4E 29 B2 30 3A |..;..D%(X,RN).0:|
00003300: 56 58 B2 52 58 3A 8D 33 36 37 3A 82 58 3A A0 32 |VX.RX:.367:.X:.2|
00003310: 3A A0 31 3A 89 36 36 00 2E 3B 9B 01 81 58 B2 31 |:.1:.66..;...X.1|
00003320: A4 46 49 3A 4E 24 28 58 29 B2 22 22 3A 82 00 57 |.FI:N$(X)."":..W|
00003330: 3B 9C 01 8D 33 39 33 3A 9F 31 2C 38 2C 31 35 3A |;...393:.1,8,15:|
00003340: 9F 32 2C 38 2C 32 2C 22 30 3A 50 50 20 44 41 54 |.2,8,2,"0:PP DAT|
00003350: 41 20 46 49 4C 45 22 00 65 3B 9D 01 81 58 B2 31 |A FILE".e;...X.1|
00003360: A4 46 49 AB 31 00 90 3B 9E 01 98 31 2C 22 50 22 |.FI.1..;...1,"P"|
00003370: C7 28 32 29 C7 28 4C 4F 29 C7 28 48 49 29 C7 28 |.(2).(LO).(HI).(|
00003380: 50 54 25 28 58 29 29 3A 84 32 2C 4E 24 28 58 29 |PT%(X)):.2,N$(X)|
00003390: 00 AD 3B 9F 01 82 3A A0 32 3A A0 31 3A 4E 24 28 |..;...:.2:.1:N$(|
000033A0: 46 49 29 B2 4B 59 24 28 58 4E 29 3A 8E 00 C8 3B |FI).KY$(XN):...;|
000033B0: A0 01 99 22 93 22 3B 3A 97 42 43 2C 36 3A 97 53 |...".";:.BC,6:.S|
000033C0: 43 2C 36 3A 8D 33 34 32 00 FF 3B A1 01 99 22 05 |C,6:.342..;...".|
000033D0: 11 11 11 11 20 C4 4F 20 59 4F 55 20 57 49 53 48 |.... .O YOU WISH|
000033E0: 20 54 4F 20 44 45 4C 45 54 45 20 52 45 43 4F 52 | TO DELETE RECOR|
000033F0: 44 20 5B 59 2F 4E 5D 3F 20 22 3A 8D 33 34 34 00 |D [Y/N]? ":.344.|
00003400: 0E 3C A2 01 8B 41 24 B2 22 4E 22 A7 36 36 00 2D |.<...A$."N".66.-|
00003410: 3C A3 01 99 22 11 11 20 D2 45 43 4F 52 44 20 23 |<...".. .ECORD #|
00003420: 22 58 4E 22 44 45 4C 45 54 45 44 2E 22 00 5E 3C |"XN"DELETED.".^<|
00003430: A4 01 8B 58 4E B1 B2 52 4E A7 9F 31 2C 38 2C 31 |...XN..RN..1,8,1|
00003440: 35 3A 9F 32 2C 38 2C 32 2C 22 30 3A 50 50 20 44 |5:.2,8,2,"0:PP D|
00003450: 41 54 41 20 46 49 4C 45 22 3A 89 34 33 31 00 85 |ATA FILE":.431..|
00003460: 3C A5 01 99 22 11 11 20 D2 45 43 4F 52 44 20 23 |<...".. .ECORD #|
00003470: 22 52 4E 22 52 45 50 4C 41 43 45 53 20 23 22 58 |"RN"REPLACES #"X|
00003480: 4E 22 9D 2E 22 00 A0 3C A6 01 54 4E B2 58 4E 3A |N".."..<..TN.XN:|
00003490: 58 4E B2 52 4E 3A 8D 34 31 31 3A 58 4E B2 54 4E |XN.RN:.411:XN.TN|
000034A0: 00 B8 3C A7 01 81 4E B2 31 A4 46 49 3A 4C 58 B2 |..<...N.1.FI:LX.|
000034B0: C3 28 4E 24 28 4E 29 29 00 EA 3C A8 01 8B 4C 58 |.(N$(N))..<...LX|
000034C0: B1 31 AF C9 28 4E 24 28 4E 29 2C 31 29 B2 22 20 |.1..(N$(N),1)." |
000034D0: 22 A7 4E 24 28 4E 29 B2 C8 28 4E 24 28 4E 29 2C |".N$(N)..(N$(N),|
000034E0: 4C 58 AB 31 29 3A 89 34 32 34 00 02 3D A9 01 8B |LX.1):.424..=...|
000034F0: 4E 24 28 4E 29 B2 22 22 A7 4E 24 28 4E 29 B2 22 |N$(N)."".N$(N)."|
00003500: 2D 22 00 09 3D AA 01 82 4E 00 37 3D AB 01 8D 33 |-"..=...N.7=...3|
00003510: 39 33 3A 9F 31 2C 38 2C 31 35 3A 9F 32 2C 38 2C |93:.1,8,15:.2,8,|
00003520: 32 2C 22 30 3A 50 50 20 44 41 54 41 20 46 49 4C |2,"0:PP DATA FIL|
00003530: 45 22 3A 8D 33 38 39 00 45 3D AC 01 81 4E B2 31 |E":.389.E=...N.1|
00003540: A4 46 49 AB 31 00 78 3D AD 01 98 31 2C 22 50 22 |.FI.1.x=...1,"P"|
00003550: C7 28 32 29 C7 28 4C 4F 29 C7 28 48 49 29 C7 28 |.(2).(LO).(HI).(|
00003560: 50 54 25 28 4E 29 29 3A 98 32 2C 4E 24 28 4E 29 |PT%(N)):.2,N$(N)|
00003570: 3B 43 52 24 3B 3A 82 4E 00 A4 3D AE 01 98 31 2C |;CR$;:.N..=...1,|
00003580: 22 50 22 C7 28 32 29 C7 28 4C 4F 29 C7 28 48 49 |"P".(2).(LO).(HI|
00003590: 29 C7 28 31 29 3A 4B 59 24 28 58 4E 29 B2 4E 24 |).(1):KY$(XN).N$|
000035A0: 28 46 49 29 00 CC 3D AF 01 98 31 2C 22 50 22 C7 |(FI)..=...1,"P".|
000035B0: 28 32 29 C7 28 31 29 C7 28 30 29 C7 28 31 29 3A |(2).(1).(0).(1):|
000035C0: 98 32 2C 52 4E AB 31 3B 43 52 24 3B 00 EF 3D B0 |.2,RN.1;CR$;..=.|
000035D0: 01 81 58 B2 31 A4 33 3A 81 59 B2 31 A4 52 4E 3A |..X.1.3:.Y.1.RN:|
000035E0: 8B 58 4E B2 44 25 28 58 2C 59 29 A7 34 33 34 00 |.XN.D%(X,Y).434.|
000035F0: F6 3D B1 01 82 59 00 05 3E B2 01 8B 59 B1 B2 52 |.=...Y..>...Y..R|
00003600: 4E A7 34 33 36 00 26 3E B3 01 81 5A B2 59 A4 52 |N.436.&>...Z.Y.R|
00003610: 4E 3A 44 25 28 58 2C 5A 29 B2 44 25 28 58 2C 5A |N:D%(X,Z).D%(X,Z|
00003620: AA 31 29 3A 82 5A 00 35 3E B4 01 44 25 28 58 2C |.1):.Z.5>..D%(X,|
00003630: 52 4E 29 B2 30 00 58 3E B5 01 81 59 B2 31 A4 52 |RN).0.X>...Y.1.R|
00003640: 4E 3A 8B 52 4E B2 44 25 28 58 2C 59 29 A7 44 25 |N:.RN.D%(X,Y).D%|
00003650: 28 58 2C 59 29 B2 58 4E 00 6A 3E B6 01 82 59 3A |(X,Y).XN.j>...Y:|
00003660: 82 58 3A 52 4E B2 52 4E AB 31 00 8B 3E B7 01 81 |.X:RN.RN.1..>...|
00003670: 58 B2 31 A4 46 49 3A 4E 24 28 58 29 B2 22 22 3A |X.1.FI:N$(X)."":|
00003680: 82 3A A0 32 3A A0 31 3A 89 36 36 00 B1 3E B8 01 |.:.2:.1:.66..>..|
00003690: 99 22 11 11 20 D0 4C 45 41 53 45 20 57 41 49 54 |.".. .LEASE WAIT|
000036A0: 2E 2E 2E 22 3A 9F 31 2C 38 2C 31 35 3A 8D 33 38 |...":.1,8,15:.38|
000036B0: 39 00 EB 3E B9 01 98 31 2C 22 53 30 3A 50 50 20 |9..>...1,"S0:PP |
000036C0: 4B 45 59 20 49 4E 44 45 58 22 3A 8D 33 38 39 3A |KEY INDEX":.389:|
000036D0: 9F 32 2C 38 2C 32 2C 22 30 3A 50 50 20 4B 45 59 |.2,8,2,"0:PP KEY|
000036E0: 20 49 4E 44 45 58 2C 53 2C 57 22 00 15 3F BA 01 | INDEX,S,W"..?..|
000036F0: 8D 33 38 39 3A 81 58 B2 31 A4 52 4E 3A 98 32 2C |.389:.X.1.RN:.2,|
00003700: 4B 59 24 28 58 29 3B 43 52 24 3B 3A 82 3A 8D 33 |KY$(X);CR$;:.:.3|
00003710: 38 39 3A A0 32 00 34 3F BB 01 98 31 2C 22 53 30 |89:.2.4?...1,"S0|
00003720: 3A 50 50 20 44 41 54 41 20 49 4E 44 45 58 22 3A |:PP DATA INDEX":|
00003730: 8D 33 38 39 00 5A 3F BC 01 9F 32 2C 38 2C 32 2C |.389.Z?...2,8,2,|
00003740: 22 30 3A 50 50 20 44 41 54 41 20 49 4E 44 45 58 |"0:PP DATA INDEX|
00003750: 2C 53 2C 57 22 3A 8D 33 38 39 00 86 3F BD 01 81 |,S,W":.389..?...|
00003760: 58 B2 31 A4 33 3A 81 59 B2 31 A4 52 4E 3A 98 32 |X.1.3:.Y.1.RN:.2|
00003770: 2C 44 25 28 58 2C 59 29 3A 82 59 3A 82 58 3A A0 |,D%(X,Y):.Y:.X:.|
00003780: 32 3A A0 31 3A 8E 00 9F 3F BE 01 99 22 11 11 20 |2:.1:...?...".. |
00003790: D0 4C 45 41 53 45 20 57 41 49 54 2E 2E 2E 22 00 |.LEASE WAIT...".|
000037A0: CE 3F BF 01 9F 31 2C 38 2C 31 35 2C 22 49 30 22 |.?...1,8,15,"I0"|
000037B0: 3A 9F 32 2C 38 2C 32 2C 22 24 30 22 3A 81 58 B2 |:.2,8,2,"$0":.X.|
000037C0: 31 A4 31 34 32 3A A1 23 32 2C 41 24 3A 82 00 FB |1.142:.#2,A$:...|
000037D0: 3F C0 01 4E 31 24 B2 22 22 3A 81 58 B2 31 34 33 |?..N1$."":.X.143|
000037E0: A4 31 35 38 3A A1 23 32 2C 41 24 3A 4E 31 24 B2 |.158:.#2,A$:N1$.|
000037F0: 4E 31 24 AA 41 24 3A 82 3A A0 32 00 34 40 C1 01 |N1$.A$:.:.2.4@..|
00003800: 58 4E B2 30 3A 9F 32 2C 38 2C 32 2C 22 30 3A 50 |XN.0:.2,8,2,"0:P|
00003810: 50 20 44 41 54 41 20 46 49 4C 45 22 3A 8D 33 38 |P DATA FILE":.38|
00003820: 39 3A 8D 33 39 33 3A 8D 33 39 34 3A 84 32 2C 52 |9:.393:.394:.2,R|
00003830: 4E 3A A0 32 00 5F 40 C2 01 99 22 11 11 20 C4 49 |N:.2._@...".. .I|
00003840: 53 4B 20 CE 41 4D 45 3A 20 22 4E 31 24 3A 99 22 |SK .AME: "N1$:."|
00003850: 11 20 20 20 D2 45 43 4F 52 44 53 3A 22 52 4E 00 |. .ECORDS:"RN.|
00003860: 74 40 C3 01 8B 52 4E B3 B2 30 A7 8D 33 34 31 3A |t@...RN..0..341:|
00003870: 89 34 35 36 00 9A 40 C4 01 9F 32 2C 38 2C 32 2C |.456..@...2,8,2,|
00003880: 22 30 3A 50 50 20 44 41 54 41 20 49 4E 44 45 58 |"0:PP DATA INDEX|
00003890: 2C 53 2C 52 22 3A 8D 33 38 39 00 C1 40 C5 01 81 |,S,R":.389..@...|
000038A0: 58 B2 31 A4 33 3A 81 59 B2 31 A4 52 4E 3A 84 32 |X.1.3:.Y.1.RN:.2|
000038B0: 2C 44 25 28 58 2C 59 29 3A 82 59 3A 82 58 3A A0 |,D%(X,Y):.Y:.X:.|
000038C0: 32 00 E6 40 C6 01 9F 32 2C 38 2C 32 2C 22 30 3A |2..@...2,8,2,"0:|
000038D0: 50 50 20 4B 45 59 20 49 4E 44 45 58 2C 53 2C 52 |PP KEY INDEX,S,R|
000038E0: 22 3A 8D 33 38 39 00 14 41 C7 01 81 58 B2 31 A4 |":.389..A...X.1.|
000038F0: 52 4E 3A 84 32 2C 4B 59 24 28 58 29 3A 4B 59 24 |RN:.2,KY$(X):KY$|
00003900: 28 58 29 B2 4B 59 24 28 58 29 AA C7 28 30 29 3A |(X).KY$(X)..(0):|
00003910: 82 3A A0 32 00 21 41 C8 01 A0 31 3A 57 B2 30 3A |.:.2.!A...1:W.0:|
00003920: 8E 00 54 41 C9 01 99 53 4C 24 3A 99 22 11 97 20 |..TA...SL$:.".. |
00003930: D9 4F 55 20 4D 55 53 54 20 46 49 52 53 54 20 55 |.OU MUST FIRST U|
00003940: 50 44 41 54 45 20 41 4E 44 20 43 4C 4F 53 45 20 |PDATE AND CLOSE |
00003950: 54 48 45 22 00 73 41 CA 01 99 22 20 46 49 4C 45 |THE".sA..." FILE|
00003960: 53 20 4F 4E 20 54 48 45 20 44 49 53 4B 3A 20 22 |S ON THE DISK: "|
00003970: 4E 31 24 00 AC 41 CB 01 99 22 11 20 CD 41 4B 45 |N1$..A...". .AKE|
00003980: 20 53 55 52 45 20 49 54 20 49 53 20 53 54 49 4C | SURE IT IS STIL|
00003990: 4C 20 49 4E 20 54 48 45 20 44 52 49 56 45 2E 22 |L IN THE DRIVE."|
000039A0: 3A 8D 33 35 33 3A 8D 34 34 30 3A 8E 00 00 00 |:.353:.440:.... |
....... 05-20-86 11:27 PM.I....808,234:.
45,0:.46,80:.:.53265,B(53265).207......5
3270,B(53270).239:.56576,(B(56576).252).
2:.53272,18.B....648,68:FI.9:.X%(FI),Y%(
FI),LN%(FI),N$(FI),PT%(FI):.PN%(5)......
KY$(500),S%(500),S$(500),D$(4),D%(3,500)
,K$(16,2),SI$(11).7...M$.G(94):QT$.G(34)
:IN$.G(148):DE$.G(20):CR$.G(13).R...BC.5
3280:SC.53281:SP$."
".....V1.54276:V2.54283:.X.5427
2.54296:.B:.X,B:.......X.1.6:.B:SP%(X).B
:.......X.0.FI:.B:X%(X).B:.:.X.0.FI:.B:Y
%(X).B:.......X.0.FI:.B:LN%(X).B:.:.X.1.
FI.1:.B:PT%(X).B:..].... 15,67,102,6,64,
10,10,33,135,102,6,64,10,10,,,,,,,,,75,2
47,79...... 98,114,130,146,162,178,35,14
,14,14,8,8,36,8,26,8,3,3,6,9,12,15,15...
... 18,18,21,3,16,24,24,30,19,2,9,12,16,
1,18,43,68,99,119,122,132......G(14)G(8)
.&....BC,6:.SC,6:.".";:.342:.53265,B(532
65).16.[...RN..1:."..... INSERT DATA DIS
K INTO DISK DRIVE."......". PRESS ANY KE
Y WHEN READY,":." OR ^ FOR MENU.":.198,0
......A$:.A$."".18......A$.M$.21.A....44
6.W....".";:.BC,1:.SC,1.....SL$." .
. .. ".4...
.18424,8:.18425,9:.18426,10:.18427,8.`..
..18428,11:.18429,12:.18430,13:.18431,14
......X.0.6:.53287.X,2:.:.53293,0:.53294
,0......X.0.5:.53248.2.X,118.24.X:..Q...
.X.0.5:.53249.2.X,66:.:.53264,192......5
3262,24:.53263,106:.53260,16:.53261,116:
.53269,255.D...."....... .
":.SL$.{...." .
.. WRITE RECORD .. ":.
SL$......" . .. PRINT RECORD
.. ":.SL$... .." . ..
VIEW & EDIT KEYS .. ":.SL$. .!.."
. .. SWAP DATA DISK ..
":.SL$.W.".." . .. CREATE DAT
A DISK .. ":.SL$...#.." .
.. UPDATE & EXIT .. ":.SL$.A
.$.." .
":.342...%..:." .PRESS SPACE TO SEL
ECT, THEN RETURN":.198,0...&..A$:.A$."".
38.&.'..18431,15:.53264,64:X.1.>.(..5326
9,127:.X.6.X.1.L.)..53263,SP%(X):.53262,
84:.53269,255:.198,0.~.*..A$:.A$."".42..
.+..A$.CR$.46...,..A$." ".X.X.1:.40...-.
.42.Q....53269,0:.X.52,110,276,336,314,4
7.../..".";:.SC,2:.BC,2:."...... ARE YOU
SURE [Y/N]?".'.0..X.1.5:.342:.:.343:.A$
."N".21.9.1..RN..0.W.0.51.B.2..440.M.3..
64738.Z.4..RN.0.15.U.5..".";:.BC,1:.SC,1
:.342...6.."..WRITE RECORD
".A.7..".. DO YOU WANT TO:
"...8..". 1. ENTER A NEW RECORD.":." 2.
EDIT AN EXISTING RECORD.".7.9.." 3. RETU
RN TO THE MENU..":HN.3:.348:.A.58,66,21.
F.:..RN.500.61.R.;..BC,2:.SC,2:.".......
. DISK FILE FULL."...<..X.1.5:.342:.:.35
3:.52.A.=..251,86:.252,192:.49152:.342:.
X.1.FI:N$(X)."":....>.ED.0:N.0:XN.RN.1:T
N.XN:TN$.J(D(TN),2,3):.80:.".";TN$...?.N
.1:.81...@.N.N.1:.N.FI.1.81.#.A..62.B.B.
.BC,1:.SC,1:."...EDIT RECORD
.RETURN=MENU".~.C..342:.X.1.FI:N$(X
)."":....D.."... RECORD NUMBER: ";:F1.0:
LG.3:.356.P.E.RX.E(A$):.76:XN.RX:TN.XN:.
393:.411...F..251,110:.252,192:.49152...
G.ED.1:N.0:TN$.J(D(TN),2,3):.80:.".";TN$
.L.H..N.1.FI:.80:.".";N$(N);H(SP$,LN%(N)
.C(N$(N))):..X.I.N.1:.81.M.J.N.N.1:.N.FI
.1.81.U.K..71...L..A$."".52...M..RX.1.RX
.500.RX.RN..".. RECORD #"RX"OUT OF RANGE
.":.79.D.N...Q.O..341:.66...P..783,0:.78
1,Y%(N):.782,X%(N):.65520:....Q.AA$.N$(N
):FL.0:.80...R..204,0.Y.S..A$:.A$."".A$.
QT$.A$.",".A$.":".A$.".".A$.".".A$.IN$.8
3...T..A$.".".A$.".".A$.".".A$.CR$..204,
1:.207,0:.98...U..A$.DE$.94...V..A$.".".
.207,0:.204,1:.105...W..A$.".".W.1:.207,
0:.204,1:.108...X..A$.M$..207,0:.204,1:.
52.#.Y..207,0:.204,1:.C(AA$).LN%(N).FL.0
.91.+.Z..82.6.[..FL.93.J.\.FL.1:AA$.A$:.
H(SP$,LN%(N))".....":.80:.AA$;:.82...].A
A$.AA$.A$:.A$;:.82...^..AA$."".82..._..L
N%(N).C(AA$)..".. ......";:.97.D.`..".
..";...A.AA$.H(AA$,C(AA$).1):.82...B..LN
%(N).C(AA$)..".....".7.C.N$(N).AA$:AA$."
":.80:.".";N$(N);H(SP$,LN%(N).C(N$(N))).
N.D..A$.".".A$.CR$.103.B.E..A$.".".N.1:.
81.U.F.N.N.2:.N.0.N.0...G..ED.74...H..64
...I..ED.107.G.J..251,68:.252,192:.49152
:.X.1.FI:N$(X)."":.:.62...K..251,92:.252
,192:.49152:.X.1.FI:N$(X)."":.:.71...L..
ED.0.H(N$(1),1).."*".395.!.M..416...N..R
N.0.15.I.O..".";:.BC,1:.SC,1:.342...P.SL
$."...PRINT RECORD
."...Q..SL$"... DO YOU WANT TO:".Z
.R..". 1. PRINT ALL DATA.":." 2. PRINT A
REPORT OR LABELS"...S.." 3. RETURN TO M
AIN MENU..":HN.3:.348:.A.116,138,21.H.T.
FL.0:.SL$"... THERE ARE"RN"RECORDS IN TH
E FILE.".[.U..RN.0..341:.21...V..". PRIN
T RECORDS FROM: ...";:F1.0:LG.3:.356:
LR.E(A$)...W..LR.1.LR.RN.."..";:.118...X
..". TO: ...";:F1.0:L
G.3:.356:HR.E(A$)...Y..HR.1.HR.RN.."..";
:.120...Z..211:.A.1.131.,.{..A.3.110.\.|
.LN.0:.4,4,7:.XN.LR.HR:XN$.J(D(XN),2,3):
.411...}..4,"#"XN$.4.C(XN$))N$(1)", "N$(
2)", "N$(3)...~..4,.5)N$(4)", "N$(5)", "
N$(6)", "N$(7).R...4,.5)N$(8)", "N$(9):
.4.....LN.LN.4:.LN.59.LN.0:.4,G(12).....
.B(203).62.XN.HR.1......XN:.4: 4:.122.K.
...XN.LR.HR:.411:XN$.J(D(XN),2,3):.".#"X
N$;.B.....5)N$(1)", "N$(2).......5)N$(3)
:..5)N$(4):..5)N$(5)", "N$(6)", "N$(7)..
.....5)N$(8)", "N$(9):.:..C....B(653).1.
135.Z....B(203).62.XN.HR.1......XN:.353:
.122......SL$"... THERE ARE"RN"RECORDS I
N THE FILE."./....RN.0..341:.21.Q....".
RETRIEVE ALL [Y/N]?":.343.A....A$."N".14
3.....FL.0:.217:SN.RN:.X.1.SN:S%(X).D%(F
,X):.:.165......225:.N.0.110.V...FL.1:.2
17:.SL$"... SEARCHING, PLEASE WAIT..."..
....F.4..233:.147......240......SL$"..."
SN"MATCHES FOUND.":.353.%....SN.0.110.3.
...SN.1.165.B...FL.0:.217:.". PLEASE WAI
T...":.1,8,15:.389......2,8,2,"0:PP DATA
FILE":.389......SX.1.SN:XN.S%(SX):XN$.J
(D(XN),2,3):.393.C....F.154,157,160.....
.1,"P"G(2)G(LO)G(HI)G(PT%(1)):.2,S1$....
..1,"P"G(2)G(LO)G(HI)G(PT%(2)):.2,S2$.1.
..S$(SX).S1$." ".S2$:.161.Z....1,"P"G(2)
G(LO)G(HI)G(PT%(6)):.2,S1$......1,"P"G(2
)G(LO)G(HI)G(PT%(5)):.2,S2$.....S$(SX).S
1$." ".S2$:.161.K. ..1,"P"G(2)G(LO)G(HI)
G(PT%(7)):.2,S$(SX).....S$(SX).S$(SX).I(
"000",3.C(XN$)).XN$......SX: 2: 1.:...HI
..(SN.256):LO.SN.HI.256:.50266,LO:.50267
,HI:.50283.]....X.1.SN:S%(X).E(I(S$(X),3
)):.X......SL$"... WOULD YOU LIKE TO PRI
NT:"......". 1. A REPORT":." 2. MAILING
LABELS.".G...HN.2:.348:.A.2.191.Y....211
:.A.1.182......A.3.110......SL$:.".. REP
ORT TITLE: ";:F1.1:LG.24:.356:TL$.A$.D..
.LN.0:PG.1:.4,4,7:.4,TL$" /"PG:.4:.4.Q..
..SX.1.SN:XN.S%(SX):XN$.J(D(XN),2,3):.41
1......4,"#"XN$.4.C(XN$))N$(1)", "N$(2);
.B....SY.1.(43.C(N$(1).N$(2))):.4,".";:.
SY.....A$.H(N$(3),1):.A$."_".A$."-".A$."
".177.. ...4,N$(3):LN.LN.1:.4,.50);.! .
..4,N$(4):LN.LN.1.] ...4,.37)N$(8).13.C(
N$(8)))N$(5)", "N$(6)" "N$(7):LN.LN.1..
...LN.55.LN.0:.4,G(12):PG.PG.1:.4,TL$" /
"PG:.4:.4.. ...B(203).62.SX.SN.1.. ...SX
:.4: 4:.168.. ...SX.1.SN:XN.S%(SX):XN$.J
(D(XN),2,3):.411..!...".#"XN$.5)N$(1)",
"N$(2).2!..A$.H(N$(3),1):.A$."_".A$."-".
A$." ".186.@!....5)N$(3).J!....5)N$(4):.
.5)N$(5)", "N$(6)", "N$(7).Z!....5)N$(8)
:...!...B(653).1.188..!...B(203).62.SX.S
N.1..!...SX:.353:.168.G!...211:.A.1.203.
T!...A.3.110.."A..SL$"...":."NUMBER OF C
OPIES: ";:F1.0:LG.4:.356:CP.E(A$).B"B..4
,4,7:.SY.1.CP:.SX.1.SN:LN.1:XN.S%(SX):.4
11._"C..4,N$(2)" "N$(1):LN.LN.1.."D.A$.H
(N$(3),1):.A$."_".A$."-".A$." ".198. "E.
.4,N$(3):LN.LN.1.O"F..4,N$(4):.4,N$(5)",
"N$(6)" "N$(7):LN.LN.1.."G..X.1.6.LN:.4
:.X.."H..B(203).62.SX.SN.1..#I..SX:.SY..
#J..4: 4:.191.1#K..SX.1.SN:XN.S%(SX):.41
1.J#L...5)"."N$(2)" "N$(1).V#M.A$.H(N$(3
),1):.A$."_".A$."-".A$." ".207..#N...5)N
$(3)..#O...5)N$(4):..5)N$(5)", "N$(6)" "
N$(7):..A#P..B(653).1.208.X#Q..B(203).62
.SX.SN.1..#R..SX:.353:.191..$S..BC,1:.SC
,1:."."SL$.5$T..".. DO YOU WANT TO:":.".
1. OUTPUT TO SCREEN".I$U.." 2. OUTPUT T
O PRINTER":." 3. RETURN TO MENU.".W$V.HN
.3:.348..$W..A.1.."..":.BC,6:.SC,6..$X..
..$Y..SL$:.FL.219.A$Z..".. SORT BY:":.22
0.V$...".. SEARCH BY:"..%...". 1. NAME":
." 2. STATE / CITY":." 3. ZIP CODE"..%..
.FL.." 4. KEY".5%...".":.FL.HN.4:.224.>%
..HN.3.Q%...348:F.E(A$):...%...SL$"... T
YPE IN UP TO TEN ENTRIES FOR SEARCH."..%
..." PRESS RETURN ON A BLANK LINE TO QUI
T..":N.0.Q%..N.N.1:N$.J(D(N),2,2)..&..."
#"N$": ";:SI$(N)."":F1.1:LG.32:.356:SI$
(N).A$..&...N.10.SI$(N).."".227.;&...N.1
.SI$(N)."".N.0:.232.E&..N.N.1.K&....B&..
SN.0:.S1.1.RN:FL.0..&..ZI$.KY$(S1):L3.C(
ZI$):.S2.1.N:L.C(SI$(S2)):L2.L3.L.1..&..
.S3.1.L2:.L2.1.237.P&...J(ZI$,S3,L).SI$(
S2).FL.1..&...S3:.S2:.FL.0.239..'..SN.SN
.1:S%(SN).S1:S$(SN).ZI$..'...S1:..G'...1
,8,15:.2,8,2,"0:PP DATA FILE":.389:SN.0:
.S1.1.N.K'..FL.0:.246:LL.LI:FL.1:.246:UL
.LI..'..X..1:.243:.S1: 2: 1:...'..X.X.1:
SN.SN.1:S%(SN).D%(F,LL.X)..'...X.LL.UL.S
N.SN.1:..I'...243..'..SI$.SI$(S1):K.D%(F
,1):.265..'...SI$.ZI$.261..(...SI$.ZI$.2
50..(..MX.1:.FL.0.262.=(..SI$.SI$(S1):K.
D%(F,RN):.265.N(...SI$.ZI$.261._(...SI$.
ZI$.254.S(..MN.RN:.FL.1.263..(..MX.RN:MN
.1..(..AV..((MX.MN).2):.AV.MN.262.A(..SI
$.SI$(S1):K.D%(F,AV):.265.Y(...SI$.ZI$.M
X.AV:.255..(...SI$.ZI$.MN.AV:.255..)...F
L.0.MX.AV:.255..)...FL.1.MN.AV:.255.))..
MX.1:MN.0.9)...FL.0.LI.MX.I)...FL.1.LI.M
N.O).....)..HI..((K.1).256):LO.(K.1).HI.
256:.F.266,269,272..)...1,"P"G(2)G(LO)G(
HI)G(PT%(1)):.2,Z1$.T)...1,"P"G(2)G(LO)G
(HI)G(PT%(2)):.2,Z2$..)..ZI$.Z1$." ".Z2$
:.273..*...1,"P"G(2)G(LO)G(HI)G(PT%(6)):
.2,Z1$.?*...1,"P"G(2)G(LO)G(HI)G(PT%(5))
:.2,Z2$.X*..ZI$.Z1$." ".Z2$:.273..*...1,
"P"G(2)G(LO)G(HI)G(PT%(7)):.2,ZI$..*...I
(SI$,1).."?".275.B*..SI$.H(SI$,C(SI$).1)
:ZI$.H(ZI$,C(SI$)).H*....U*...RN.0.15..+
..SL$."...VIEW & EDIT KEYS
.*=DELETE..":FL.0.-+...SL$;:.BC,1:.SC,1
:.342.^+...1,8,15:.389:.2,8,2,"0:PP KEY
FILE,S,R":.389.}+...2,K:.K.0. 2: 1:.".."
:.283..+...X.1.K:.2,K$(X,1),K$(X,2):.: 2
: 1..+...293..+...". ADD A KEY [Y/N]?
":.343:.A$."Y"..297..+...K.1.287..,..."
. EDIT KEY [Y/N]? ":.343:.A$."Y"..30
0.H,...". CONTINUE [Y/N]? ":.343:.A$
."Y".282.U,...FL.0.21.S, ..". PLEASE WAI
T... "..,!..1,8,15,"S0:PP KEY FILE"
:.389:.2,8,2,"0:PP KEY FILE,S,W":.389.G,
"..2,K:.K.0.292..,#..X.1.K:.2,K$(X,1);CR
$;K$(X,2);CR$;:.:FL.0..-$..389: 2: 1:.21
..-%..SL$".":.K.0.296.;-&..X.1.K:." #";J
(D(X),2,2);.X-'...5)K$(X,1).10)K$(X,2):.
.D-(.."..":...-)..K.14..".. KEY FILE FUL
L.":.341:.285.C-*.KN.K.1:.306:.K$."*".K$
(KN,1)."".K$(KN,2)."".K.K.1.T-+.K.K.1:.2
93:....,..".. EDIT KEY NUMBER: ..";:F1
.0:LG.2:.356. .-.KN.E(A$):.KN.1.KN.K.300
.)....306.C./..K$."*".K.1..311:.305.W.0.
.K$."*".K.1.K.0.B.1..293:..|.2.K$."":D$.
"":FL.1:.SL$...3..". #"J(D(KN),2,2).5)"K
EY: ";:F1.1:LG.16:.356:K$.A$.J.4..K$."*"
.K$."".310../5...5)".DESCRIPTION: ";:F1.
1:LG.24:.356:K$(KN,1).K$:K$(KN,2).A$../6
... /7..KN.K.313.I/8..X.KN.K:.Y.1.2:K$(X
,Y).K$(X.1,Y):.:..U/9.K.K.1:.../:.SL$.".
..CREATE DATA DISK
.":.SL$:.342.H/;..". ..
"../<.." . WARNI
NG: THIS PROCEDURE ERASES ALL ".(0=.."
. DATA AND CREATES A NEW DATA DISK. "
.Y0>.." .
.".K0?..X.1.5:.342:...0@.."... DO
YOU WANT TO DO THIS [Y/N]?":.344..0A..A
$."N".21..0B..RN..0.W.0.324.D0C..457..0D
..SL$:.".. PLEASE INSERT DISK TO BE FORM
ATTED.":.353.=1E..". DISK NAME: ";:F1.1:
LG.16:.356:N1$.A$:.". PLEASE WAIT...".S1
F..1,8,15,"U9":.389.O1G..1,"N0:".N1$.",0
0":.389..1H..2,8,2,"0:PP DATA FILE,L,".G
(144):.389.D1I..1,"P"G(2)G(244)G(1)G(1):
.2,"END";CR$..1J..1,"P"G(2)G(1)G(0)G(1):
.2,0;CR$;..1K..389: 2.&2L..2,8,2,"0:PP K
EY FILE,S,W":.2,0;CR$;:.389: 2.Y2M..2,8,
2,"0:PP DATA INDEX,S,W":.2,0;CR$;:.389:
2..2N..2,8,2,"0:PP KEY INDEX,S,W":.2,"KE
Y INDEX";CR$;:.389: 2..2O. 1:RN.0:W.0:.2
1..2P.SL$."...SWAP DATA DISK
.":.SL$:.342..2Q..RN..0.W.
0.339..3R..457.E3S..SL$"... INSERT NEW D
ISK IN THE DISK DRIVE.":.353:.446:.21.V3
T..T.1.100:.:..H3U..T.1.1000:.:...3V..V1
,65:.V2,65:.340:.V1,64:.V2,64:...3W..198
,0..3X..A$.B3Y..A$.."Y".A$.."N".A$..M$.3
44.P3Z..A$.M$.21.V3[....4\.HN$.I(D(HN),1
):." YOUR CHOICE [1-"HN$"]?":.198,0..4].
.A$.!4^..A$.M$.21.;4_.A.E(A$):.A.1.A.HN.
349.A4`...L4A..". PRESS ANY KEY TO CONTI
NUE.":.198,0.4B..A$:.A$."".354..4C....4
D.A$."":.204,0:.207,0.R4E..AA$:.AA$."".A
A$.QT$.AA$.",".AA$.":".AA$."@".357..4F..
AA$.CR$.." ":.204,1:...5G..AA$.DE$.C(A$)
.0.A$.H(A$,C(A$).1):.366.$5H..F1.363.B5I
...(AA$.."0".AA$.."9").357.K5J..364.I5K.
..(AA$.." ".AA$.."Z").357.{5L..C(A$).LG.
357..5M.A$.A$.AA$..5N..AA$;:.357..5O.MX.
RN:MN.1:.RN.0....5P..RN.1.379.Z5Q.SI$.D$
(X):K.D%(X,1):.380..5R.LL$.ZI$:.SI$.LL$.
MX.1:.378..6S.K.D%(X,RN.1):.380./6T.UL$.
ZI$:.SI$.UL$.MX.RN:.379.N6U.NA..((MX.MN)
.2):.NA.MN.378.B6V.K.D%(X,NA):.380..6W..
SI$.ZI$.UL$.ZI$:MX.NA:.373..6X..SI$.ZI$.
MN.NA:MX.NA.1:.373.B6Y..SI$.ZI$.LL$.ZI$:
MN.NA:.373..6Z..K.RN.MX..1:D%(X,K.1).D%(
X,K):.K..6{.D%(X,MX).VX:..,7|.HI..((K.1)
.256):LO.(K.1).HI.256:.X.381,384,387.U7}
..1,"P"G(2)G(LO)G(HI)G(PT%(1)):.2,Z1$.~7
~..1,"P"G(2)G(LO)G(HI)G(PT%(2)):.2,Z2$..
7.ZI$.Z1$." ".Z2$:.388..7...1,"P"G(2)G(
LO)G(HI)G(PT%(6)):.2,Z1$..7...1,"P"G(2)G
(LO)G(HI)G(PT%(5)):.2,Z2$..8..ZI$.Z1$."
".Z2$:.388.+8...1,"P"G(2)G(LO)G(HI)G(PT%
(7)):.2,ZI$.18....S8...1,E,E$,T,S:.E.21.
E.50.E.73...O8.. 2: 1:.".";:.BC,2:.SC,2.
.8..."....... DISK ERROR: ";E;E$;T;S..8.
..X.1.5:.342:.:.353:.21.W8..HI..((XN.1).
256):LO.(XN.1).HI.256:...8...1,"P"G(2)G(
LO)G(HI)G(1):.389:...9...X.1.FI:LX.C(N$(
X)).E9...LX.0.I(N$(X),1)." ".N$(X).H(N$(
X),LX.1):.396.]9...N$(X)."".N$(X)."-".D9
...X..9...393:.1,8,15:.2,8,2,"0:PP DATA
FILE":.389. 9...X.1.FI.1.S9...1,"P"G(2)G
(LO)G(HI)G(PT%(X)):.2,N$(X);CR$;:.X..9..
.1,"P"G(2)G(LO)G(HI)G(1):KY$(XN).N$(FI).
C:..D$(1).N$(1)." ".N$(2):D$(2).N$(6)."
".N$(5):D$(3).N$(7):.ED.406.S:...1,"P"G(
2)G(1)G(0)G(1):.2,RN.1;CR$;:RN.RN.1..:..
.X.1.3:VX.RN:.367:.X: 2: 1:.58..:...X.1.
3:.Y.1.RN:.RX.D%(X,Y).408..:...Y.O:...Y.
.RN.410..:...Z.Y.RN:D%(X,Z).D%(X,Z.1):.Z
..;..D%(X,RN).0:VX.RX:.367:.X: 2: 1:.66.
.;...X.1.FI:N$(X)."":..W;...393:.1,8,15:
.2,8,2,"0:PP DATA FILE".E;...X.1.FI.1..;
...1,"P"G(2)G(LO)G(HI)G(PT%(X)):.2,N$(X)
..;...: 2: 1:N$(FI).KY$(XN):..H; ..".";:
.BC,6:.SC,6:.342..;..."..... DO YOU WISH
TO DELETE RECORD [Y/N]? ":.344..<...A$.
"N".66.-<...".. RECORD #"XN"DELETED.".^<
...XN..RN..1,8,15:.2,8,2,"0:PP DATA FILE
":.431..<...".. RECORD #"RN"REPLACES #"X
N"..". <..TN.XN:XN.RN:.411:XN.TN..<...N.
1.FI:LX.C(N$(N))..<...LX.1.I(N$(N),1)."
".N$(N).H(N$(N),LX.1):.424..=...N$(N).""
.N$(N)."-"..=...N.7=...393:.1,8,15:.2,8,
2,"0:PP DATA FILE":.389.E=...N.1.FI.1.X=
...1,"P"G(2)G(LO)G(HI)G(PT%(N)):.2,N$(N)
;CR$;:.N..=...1,"P"G(2)G(LO)G(HI)G(1):KY
$(XN).N$(FI).L=...1,"P"G(2)G(1)G(0)G(1):
.2,RN.1;CR$;..=...X.1.3:.Y.1.RN:.XN.D%(X
,Y).434..=...Y..>...Y..RN.436.&>...Z.Y.R
N:D%(X,Z).D%(X,Z.1):.Z.5>..D%(X,RN).0.X>
...Y.1.RN:.RN.D%(X,Y).D%(X,Y).XN.J>...Y:
.X:RN.RN.1..>...X.1.FI:N$(X)."":.: 2: 1:
.66..>...".. PLEASE WAIT...":.1,8,15:.38
9..>...1,"S0:PP KEY INDEX":.389:.2,8,2,"
0:PP KEY INDEX,S,W"..?...389:.X.1.RN:.2,
KY$(X);CR$;:.:.389: 2.4?...1,"S0:PP DATA
INDEX":.389.Z?...2,8,2,"0:PP DATA INDEX
,S,W":.389..?...X.1.3:.Y.1.RN:.2,D%(X,Y)
:.Y:.X: 2: 1:...?...".. PLEASE WAIT...".
N?...1,8,15,"I0":.2,8,2,"$0":.X.1.142:.#
2,A$:...?..N1$."":.X.143.158:.#2,A$:N1$.
N1$.A$:.: 2.4@A.XN.0:.2,8,2,"0:PP DATA F
ILE":.389:.393:.394:.2,RN: 2._@B..".. DI
SK NAME: "N1$:.". RECORDS:"RN.T@C..RN.
.0..341:.456..@D..2,8,2,"0:PP DATA INDEX
,S,R":.389.A@E..X.1.3:.Y.1.RN:.2,D%(X,Y)
:.Y:.X: 2..@F..2,8,2,"0:PP KEY INDEX,S,R
":.389..AG..X.1.RN:.2,KY$(X):KY$(X).KY$(
X).G(0):.: 2.!AH. 1:W.0:..TAI..SL$:."..
YOU MUST FIRST UPDATE AND CLOSE THE".SAJ
.." FILES ON THE DISK: "N1$..AK..". MAKE
SURE IT IS STILL IN THE DRIVE.":.353:.4
40:....
> CLICK IMAGE PREVIEW FOR FULL MODAL