ACCTSR/T
FILE INFORMATION
FILENAME(S): ACCTSR/T
FILE TYPE(S): PRG
FILE SIZE: 27K
FIRST SEEN: 2025-10-19 22:48:29
APPEARS ON: 1 disk(s)
FILE HASH
7c545d598e6917dc85dee4f5fba0dafed49e02ffbbeb7c59c3127395af993bae
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG NOV 84 C | ACCTSR/T | PRG | Radd Maxx | 24 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 01 00 8F 20 2A 50 52 4F 47 52 41 4D |..".... *PROGRAM|
00000010: 20 4E 41 4D 45 20 49 53 20 41 43 43 54 53 52 2F | NAME IS ACCTSR/|
00000020: 54 2A 00 3E 08 02 00 97 34 35 2C C2 28 31 37 34 |T*.>....45,.(174|
00000030: 29 3A 97 34 36 2C C2 28 31 37 35 29 3A 9C 00 5D |):.46,.(175):..]|
00000040: 08 03 00 48 46 24 B2 22 41 43 43 54 53 52 2F 58 |...HF$."ACCTSR/X|
00000050: 22 3A 8F 20 48 41 53 48 20 46 49 4C 45 00 7F 08 |":. HASH FILE...|
00000060: 04 00 4D 53 B2 20 31 30 30 20 3A 8F 20 2A 4E 55 |..MS. 100 :. *NU|
00000070: 4D 42 45 52 20 4F 46 20 52 45 43 4F 52 44 53 00 |MBER OF RECORDS.|
00000080: 92 08 05 00 4B 46 B2 20 31 20 3A 52 53 B2 20 31 |....KF. 1 :RS. 1|
00000090: 39 32 00 B7 08 07 00 44 46 24 B2 22 41 43 43 54 |92.....DF$."ACCT|
000000A0: 53 52 30 2F 44 22 3A 8F 20 44 41 54 41 20 46 49 |SR0/D":. DATA FI|
000000B0: 4C 45 20 4E 41 4D 45 00 D8 08 08 00 53 46 24 B2 |LE NAME.....SF$.|
000000C0: 22 41 43 43 55 53 52 2F 53 22 3A 8F 20 53 43 52 |"ACCUSR/S":. SCR|
000000D0: 45 45 4E 20 46 49 4C 45 00 EB 08 0A 00 8D 35 32 |EEN FILE......52|
000000E0: 32 31 30 3A 8D 20 33 33 30 30 30 00 0F 09 14 00 |210:. 33000.....|
000000F0: 59 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 |Y$."............|
00000100: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 |..............".|
00000110: 34 09 15 00 53 53 24 B2 22 22 3A 81 49 B2 31 A4 |4...SS$."":.I.1.|
00000120: 38 30 3A 53 53 24 B2 53 53 24 AA C7 28 31 36 30 |80:SS$.SS$..(160|
00000130: 29 3A 82 49 00 59 09 16 00 53 50 24 B2 22 22 3A |):.I.Y...SP$."":|
00000140: 81 49 B2 31 A4 33 39 3A 53 50 24 B2 53 50 24 AA |.I.1.39:SP$.SP$.|
00000150: C7 28 33 32 29 3A 82 20 49 00 7E 09 19 00 44 54 |.(32):. I.~...DT|
00000160: 24 B2 22 22 3A 81 49 B2 31 A4 33 39 3A 44 54 24 |$."":.I.1.39:DT$|
00000170: B2 44 54 24 AA C7 28 34 36 29 3A 82 20 49 00 89 |.DT$..(46):. I..|
00000180: 09 1E 00 99 C7 28 31 34 29 00 8F 09 23 00 8F 00 |.....(14)...#...|
00000190: B6 09 25 00 86 20 46 24 28 4E 46 29 2C 47 24 28 |..%.. F$(NF),G$(|
000001A0: 4E 46 29 2C 44 54 25 28 31 32 29 2C 47 53 25 28 |NF),DT%(12),GS%(|
000001B0: 4E 46 AA 4E 43 29 00 D5 09 28 00 81 49 B2 31 A4 |NF.NC)...(..I.1.|
000001C0: 4E 47 3A 87 47 4B 25 3A 47 53 25 28 47 4B 25 29 |NG:.GK%:GS%(GK%)|
000001D0: B2 49 3A 82 49 00 DF 09 2A 00 83 20 20 31 36 00 |.I:.I...*.. 16.|
000001E0: F9 09 34 00 81 20 49 B2 31 A4 31 32 3A 44 54 25 |..4.. I.1.12:DT%|
000001F0: 28 49 29 B2 33 31 3A 82 49 00 30 0A 36 00 44 54 |(I).31:.I.0.6.DT|
00000200: 25 28 32 29 B2 32 39 3A 44 54 25 28 34 29 B2 33 |%(2).29:DT%(4).3|
00000210: 30 3A 44 54 25 28 36 29 B2 33 30 3A 44 54 25 28 |0:DT%(6).30:DT%(|
00000220: 39 29 B2 33 30 3A 44 54 25 28 31 31 29 B2 33 30 |9).30:DT%(11).30|
00000230: 00 5B 0A 37 00 54 54 24 B2 22 C6 49 4E 49 53 48 |.[.7.TT$.".INISH|
00000240: 45 44 20 57 49 54 48 20 45 4E 54 52 59 3F 20 28 |ED WITH ENTRY? (|
00000250: D2 C5 D4 D5 D2 CE 3D 4E 4F 29 22 00 83 0A 44 00 |......=NO)"...D.|
00000260: 8D 31 33 30 30 30 3A 8F 20 47 45 54 20 47 4C 4F |.13000:. GET GLO|
00000270: 42 41 4C 53 20 46 52 4F 4D 20 2F 47 4C 42 20 46 |BALS FROM /GLB F|
00000280: 49 4C 45 00 A2 0A 46 00 9F 32 2C 38 2C 32 2C 22 |ILE...F..2,8,2,"|
00000290: 30 3A 22 AA 48 46 24 AA 22 2C 4C 2C 22 AA C7 28 |0:".HF$.",L,"..(|
000002A0: 35 29 00 D2 0A 47 00 84 32 2C 4E 52 24 3A 4E 52 |5)...G..2,NR$:NR|
000002B0: B2 C5 28 4E 52 24 29 3A 84 32 2C 4E 58 52 24 3A |..(NR$):.2,NXR$:|
000002C0: 84 32 2C 58 46 53 24 3A 84 32 2C 58 46 53 24 3A |.2,XFS$:.2,XFS$:|
000002D0: A0 32 00 EF 0A 48 00 50 51 B2 31 3A 8B 20 C6 28 |.2...H.PQ.1:. .(|
000002E0: 4E 52 24 29 B2 32 35 35 20 A7 20 50 51 B2 30 00 |NR$).255 . PQ.0.|
000002F0: 10 0B 50 00 86 20 43 53 25 28 4E 43 29 3A 81 49 |..P.. CS%(NC):.I|
00000300: B2 31 A4 4E 43 3A 87 43 53 25 28 49 29 3A 82 49 |.1.NC:.CS%(I):.I|
00000310: 00 19 0B 52 00 83 20 20 30 00 2E 0B 59 00 99 22 |...R.. 0...Y.."|
00000320: 93 22 3A 8D 38 30 30 3A 8D 35 35 31 30 30 00 67 |.":.800:.55100.g|
00000330: 0B 5A 00 97 20 38 30 38 2C 32 33 37 3A 81 20 49 |.Z.. 808,237:. I|
00000340: B2 31 20 A4 20 4E 46 3A 47 24 28 49 29 B2 22 22 |.1 . NF:G$(I).""|
00000350: 3A 46 24 28 49 29 B2 22 22 3A 82 20 49 3A 46 43 |:F$(I)."":. I:FC|
00000360: B2 30 3A 55 46 B2 30 00 99 0B 5F 00 99 C7 28 31 |.0:UF.0..._...(1|
00000370: 34 37 29 3B C7 28 38 29 3A 47 24 B2 22 22 3A 81 |47);.(8):G$."":.|
00000380: 49 B2 31 A4 4E 43 3A 43 45 28 49 29 B2 30 3A 43 |I.1.NC:CE(I).0:C|
00000390: 44 28 49 29 B2 30 3A 82 49 00 D0 0B 64 00 99 A3 |D(I).0:.I...d...|
000003A0: 32 30 AB 28 39 AA 20 31 33 20 AD 32 29 29 3B 22 |20.(9. 13 .2));"|
000003B0: D0 52 4F 47 52 41 4D 20 C4 45 53 49 47 4E 20 42 |.ROGRAM .ESIGN B|
000003C0: 59 20 D4 48 45 20 C3 4F 4D 50 55 43 41 54 53 22 |Y .HE .OMPUCATS"|
000003D0: 00 FF 0B 6E 00 99 3A 99 A3 32 30 AB 28 20 32 31 |...n..:..20.( 21|
000003E0: 20 AD 32 29 29 3B 22 12 20 C1 C3 C3 CF D5 CE D4 | .2));". .......|
000003F0: D3 A0 D2 C5 C3 C5 C9 D6 C1 C2 CC C5 20 92 22 00 |............ .".|
00000400: 09 0C 78 00 99 3A 99 3A 99 00 3B 0C 82 00 99 A3 |..x..:.:..;.....|
00000410: 31 29 3B 22 C6 49 4C 45 20 D0 52 45 50 41 52 41 |1);".ILE .REPARA|
00000420: 54 49 4F 4E 20 28 46 49 52 53 54 20 54 49 4D 45 |TION (FIRST TIME|
00000430: 20 4F 4E 4C 59 21 29 2E 20 46 22 00 41 0C 8C 00 | ONLY!). F".A...|
00000440: 99 00 73 0C 96 00 99 A3 31 29 3B 22 C5 4E 54 45 |..s.....1);".NTE|
00000450: 52 20 44 41 54 41 20 2E 2E 2E 2E 2E 2E 2E 2E 2E |R DATA .........|
00000460: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000470: 20 45 22 00 A5 0C A0 00 99 A3 31 29 3B 22 D5 50 | E".......1);".P|
00000480: 44 41 54 45 20 44 41 54 41 20 2E 2E 2E 2E 2E 2E |DATE DATA ......|
00000490: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000004A0: 2E 2E 20 55 22 00 D7 0C AA 00 99 A3 31 29 3B 22 |.. U".......1);"|
000004B0: CC 4F 4F 4B 20 55 50 20 52 45 43 4F 52 44 20 2E |.OOK UP RECORD .|
000004C0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000004D0: 2E 2E 2E 2E 20 4C 22 00 09 0D B4 00 99 A3 31 29 |.... L".......1)|
000004E0: 3B 22 D3 45 41 52 43 48 20 52 45 43 4F 52 44 53 |;".EARCH RECORDS|
000004F0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000500: 2E 2E 2E 2E 2E 2E 20 53 22 00 3B 0D BE 00 99 A3 |...... S".;.....|
00000510: 31 29 3B 22 C4 45 4C 45 54 45 20 52 45 43 4F 52 |1);".ELETE RECOR|
00000520: 44 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |D ..............|
00000530: 2E 2E 2E 2E 2E 2E 2E 2E 20 44 22 00 6D 0D C3 00 |........ D".m...|
00000540: 99 A3 31 29 3B 22 D6 45 52 49 46 59 20 47 4C 4F |..1);".ERIFY GLO|
00000550: 42 41 4C 20 54 4F 54 41 4C 53 20 2E 2E 2E 2E 2E |BAL TOTALS .....|
00000560: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 56 22 00 9E 0D |.......... V"...|
00000570: C5 00 99 A3 31 29 22 D3 45 54 20 44 49 53 50 4C |....1)".ET DISPL|
00000580: 41 59 20 43 4F 4C 4F 52 53 20 2E 2E 2E 2E 2E 2E |AY COLORS ......|
00000590: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 5A 22 00 A4 |........... Z"..|
000005A0: 0D C8 00 99 00 D6 0D D2 00 99 A3 31 29 3B 22 C5 |...........1);".|
000005B0: 58 49 54 20 2E 2E 2E 28 41 46 54 45 52 20 C5 C1 |XIT ...(AFTER ..|
000005C0: C3 C8 20 53 45 53 53 49 4F 4E 29 2E 2E 2E 2E 2E |.. SESSION).....|
000005D0: 2E 2E 2E 20 58 22 00 E6 0D D7 00 99 20 C8 28 59 |... X"...... .(Y|
000005E0: 24 2C 32 31 29 3B 00 14 0E DC 00 99 22 C5 4E 54 |$,21);......".NT|
000005F0: 45 52 20 59 4F 55 52 20 43 48 4F 49 43 45 20 54 |ER YOUR CHOICE T|
00000600: 48 45 4E 20 50 52 45 53 53 20 12 D2 C5 D4 D5 D2 |HEN PRESS ......|
00000610: CE 92 22 3B 00 45 0E E6 00 99 C8 28 59 24 2C 32 |..";.E.....(Y$,2|
00000620: 33 29 22 D4 4F 20 52 45 54 55 52 4E 20 54 4F 20 |3)".O RETURN TO |
00000630: 54 48 45 20 4D 45 4E 55 20 50 52 45 53 53 20 12 |THE MENU PRESS .|
00000640: 46 31 92 20 22 00 58 0E EB 00 43 33 B2 C2 28 35 |F1. ".X...C3..(5|
00000650: 36 31 32 38 29 AF 31 35 00 85 0E F0 00 58 25 B2 |6128).15.....X%.|
00000660: 33 38 3A 59 25 B2 32 31 3A 4C 25 B2 31 3A 8D 20 |38:Y%.21:L%.1:. |
00000670: 33 34 30 30 30 3A 41 4E 24 B2 49 4E 24 3A 46 46 |34000:AN$.IN$:FF|
00000680: 24 B2 49 4E 24 00 A0 0E FA 00 8B 20 41 4E 24 B2 |$.IN$...... AN$.|
00000690: 22 45 22 20 A7 20 8D 20 31 30 30 30 3A 89 39 30 |"E" . . 1000:.90|
000006A0: 00 BC 0E FF 00 8B 20 41 4E 24 B2 22 5A 22 20 A7 |...... AN$."Z" .|
000006B0: 20 8D 20 35 33 30 30 30 3A 89 39 30 00 D8 0E 04 | . 53000:.90....|
000006C0: 01 8B 20 41 4E 24 B2 22 4C 22 20 A7 20 8D 20 31 |.. AN$."L" . . 1|
000006D0: 30 30 30 30 3A 89 39 30 00 F3 0E 0E 01 8B 20 41 |0000:.90...... A|
000006E0: 4E 24 B2 22 53 22 A7 20 8D 20 33 35 30 30 30 3A |N$."S". . 35000:|
000006F0: 89 39 30 00 0E 0F 18 01 8B 20 41 4E 24 B2 22 55 |.90...... AN$."U|
00000700: 22 A7 20 8D 20 31 31 30 30 30 3A 89 39 30 00 29 |". . 11000:.90.)|
00000710: 0F 22 01 8B 20 41 4E 24 B2 22 44 22 A7 20 8D 20 |.".. AN$."D". . |
00000720: 31 32 30 30 30 3A 89 39 30 00 44 0F 2C 01 8B 20 |12000:.90.D.,.. |
00000730: 41 4E 24 B2 22 46 22 A7 20 8D 20 33 32 30 30 30 |AN$."F". . 32000|
00000740: 3A 89 39 30 00 5F 0F 31 01 8B 20 41 4E 24 B2 22 |:.90._.1.. AN$."|
00000750: 56 22 A7 20 8D 20 31 33 32 30 30 3A 89 39 30 00 |V". . 13200:.90.|
00000760: 72 0F 36 01 8B 20 41 4E 24 B3 B1 22 58 22 A7 20 |r.6.. AN$.."X". |
00000770: 39 30 00 8C 0F 3B 01 8B 20 50 51 B2 30 A7 99 22 |90...;.. PQ.0.."|
00000780: 93 22 3A 8D 31 30 30 32 3A 89 39 30 00 B5 0F 40 |.":.1002:.90...@|
00000790: 01 8D 20 39 37 30 30 3A 99 22 93 22 3A 8F 20 55 |.. 9700:.".":. U|
000007A0: 50 44 41 54 45 20 49 4E 44 45 58 20 46 49 4C 45 |PDATE INDEX FILE|
000007B0: 20 50 54 52 53 00 DD 0F 42 01 9F 34 2C 38 2C 34 | PTRS...B..4,8,4|
000007C0: 2C 22 4D 45 4E 55 22 3A 8D 35 32 32 32 30 3A A0 |,"MENU":.52220:.|
000007D0: 34 3A 8B 20 44 53 B2 30 A7 20 33 33 30 00 ED 0F |4:. DS.0. 330...|
000007E0: 44 01 A0 31 35 3A 99 C7 28 39 29 3A 80 00 2A 10 |D..15:..(9):..*.|
000007F0: 4A 01 99 22 93 11 11 11 11 11 20 20 20 20 20 2A |J.."...... *|
00000800: 2A 2A 20 12 CC 4F 41 44 49 4E 47 20 CD 45 4E 55 |** ..OADING .ENU|
00000810: 20 D0 52 4F 47 52 41 4D 92 20 2A 2A 2A 22 3A 93 | .ROGRAM. ***":.|
00000820: 22 4D 45 4E 55 22 2C 38 3A 80 00 56 10 20 03 99 |"MENU",8:..V. ..|
00000830: 3A 99 3A 99 20 A3 35 29 3B 22 2A 2A 2A 2A 2A 2A |:.:. .5);"******|
00000840: 2A 2A 2A 20 D7 C1 D2 CE C9 CE C7 A0 2A 2A 2A 2A |*** ........****|
00000850: 2A 2A 2A 2A 2A 22 00 85 10 25 03 99 3A 99 22 20 |*****"...%..:." |
00000860: 20 20 D4 4F 20 50 52 45 56 45 4E 54 20 54 48 45 | .O PREVENT THE|
00000870: 20 4C 4F 53 53 20 4F 46 20 59 4F 55 52 20 46 49 | LOSS OF YOUR FI|
00000880: 4C 45 53 2C 22 00 B5 10 2A 03 99 22 C1 4C 57 41 |LES,"...*..".LWA|
00000890: 59 53 20 54 41 4B 45 20 54 48 45 20 58 2D 4F 50 |YS TAKE THE X-OP|
000008A0: 54 49 4F 4E 20 42 45 46 4F 52 45 20 4C 45 41 56 |TION BEFORE LEAV|
000008B0: 49 4E 47 2E 22 00 E8 10 2F 03 99 C8 28 59 24 2C |ING.".../...(Y$,|
000008C0: 32 33 29 3A 99 22 20 20 20 20 20 20 20 D0 52 45 |23):." .RE|
000008D0: 53 53 20 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 43 |SS ........ TO C|
000008E0: 4F 4E 54 49 4E 55 45 22 00 01 11 34 03 A1 20 41 |ONTINUE"...4.. A|
000008F0: 41 24 3A 8B 20 41 41 24 B2 22 22 A7 20 20 38 32 |A$:. AA$."". 82|
00000900: 30 00 07 11 39 03 8E 00 14 11 E8 03 99 20 C7 28 |0...9........ .(|
00000910: 31 34 37 29 00 26 11 E9 03 8B 20 50 51 B2 31 20 |147).&.... PQ.1 |
00000920: A7 20 31 30 31 30 00 51 11 EA 03 99 22 D4 48 45 |. 1010.Q....".HE|
00000930: 20 44 41 54 41 20 46 49 4C 45 53 20 4D 55 53 54 | DATA FILES MUST|
00000940: 20 42 45 20 49 4E 49 54 49 41 4C 49 5A 45 44 2E | BE INITIALIZED.|
00000950: 22 00 88 11 EB 03 99 22 D0 4C 45 41 53 45 20 53 |"......".LEASE S|
00000960: 45 4C 45 43 54 20 54 48 45 20 46 49 4C 45 20 50 |ELECT THE FILE P|
00000970: 52 45 50 41 52 41 54 49 4F 4E 20 20 20 20 20 20 |REPARATION |
00000980: 4F 50 54 49 4F 4E 2E 22 00 B9 11 ED 03 99 C8 28 |OPTION.".......(|
00000990: 59 24 2C 32 34 29 22 D0 4C 45 41 53 45 20 D0 52 |Y$,24)".LEASE .R|
000009A0: 45 53 53 20 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 |ESS ........ TO |
000009B0: 43 4F 4E 54 49 4E 55 45 22 00 D7 11 EE 03 A1 20 |CONTINUE"...... |
000009C0: 41 41 24 3A 8B 20 41 41 24 B3 B1 C7 28 31 33 29 |AA$:. AA$...(13)|
000009D0: 20 A7 20 31 30 30 36 00 DD 11 EF 03 8E 00 F0 11 | . 1006.........|
000009E0: F2 03 8B 20 4E 52 B3 4D 53 20 A7 20 31 30 35 30 |... NR.MS . 1050|
000009F0: 00 18 12 FC 03 99 22 93 D9 4F 55 20 48 41 56 45 |......"..OU HAVE|
00000A00: 20 45 4E 54 45 52 45 44 20 22 3B 4D 53 3B 22 20 | ENTERED ";MS;" |
00000A10: 52 45 43 4F 52 44 53 22 00 33 12 06 04 99 3A 99 |RECORDS".3....:.|
00000A20: 22 D9 4F 55 52 20 46 49 4C 45 20 49 53 20 46 55 |".OUR FILE IS FU|
00000A30: 4C 4C 22 00 57 12 0B 04 99 3A 99 22 D0 52 45 53 |LL".W....:.".RES|
00000A40: 53 20 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 43 4F |S ........ TO CO|
00000A50: 4E 54 49 4E 55 45 22 00 75 12 10 04 A1 20 41 41 |NTINUE".u.... AA|
00000A60: 24 3A 8B 20 41 41 24 B3 B1 C7 28 31 33 29 20 A7 |$:. AA$...(13) .|
00000A70: 20 31 30 34 30 00 7B 12 15 04 8E 00 9A 12 1A 04 | 1040.{.........|
00000A80: 81 49 B2 31 20 A4 20 4E 46 3A 53 44 24 B2 C8 28 |.I.1 . NF:SD$..(|
00000A90: 44 54 24 2C 4C 25 28 49 29 29 00 B8 12 1D 04 8B |DT$,L%(I))......|
00000AA0: 54 24 28 49 29 B2 22 44 22 A7 53 44 24 B2 22 2E |T$(I)."D".SD$.".|
00000AB0: 2E 2F 2E 2E 2F 2E 2E 22 00 DC 12 20 04 99 C8 28 |./../.."... ...(|
00000AC0: 59 24 2C 59 25 28 49 29 29 3B A3 58 25 28 49 29 |Y$,Y%(I));.X%(I)|
00000AD0: 29 3B 50 52 24 28 49 29 3B 53 44 24 00 E4 12 24 |);PR$(I);SD$...$|
00000AE0: 04 82 20 49 00 F4 12 25 04 8B 4E 54 B2 B3 30 A7 |.. I...%..NT..0.|
00000AF0: 31 30 36 35 00 03 13 26 04 81 20 49 B2 31 20 A4 |1065...&.. I.1 .|
00000B00: 20 4E 54 00 27 13 27 04 99 C8 28 59 24 2C 54 59 | NT.'.'...(Y$,TY|
00000B10: 25 28 49 29 29 3B A3 54 58 25 28 49 29 AA 31 29 |%(I));.TX%(I).1)|
00000B20: 3B 54 50 24 28 49 29 00 2F 13 28 04 82 20 49 00 |;TP$(I)./.(.. I.|
00000B30: 35 13 29 04 8F 00 41 13 38 04 46 43 B2 46 43 AA |5.)...A.8.FC.FC.|
00000B40: 31 00 5D 13 3A 04 8B 20 46 43 B3 B2 20 30 20 B0 |1.].:.. FC.. 0 .|
00000B50: 20 46 43 B1 20 36 20 A7 20 31 30 38 36 00 8E 13 | FC. 6 . 1086...|
00000B60: 3C 04 91 20 46 43 AB 20 30 20 8D 20 32 30 31 30 |<.. FC. 0 . 2010|
00000B70: 2C 20 32 30 36 30 2C 20 32 31 31 30 2C 20 32 31 |, 2060, 2110, 21|
00000B80: 36 30 2C 20 32 32 31 30 2C 20 32 32 36 30 00 AB |60, 2210, 2260..|
00000B90: 13 3E 04 8B 20 46 43 B3 B2 20 36 20 B0 20 46 43 |.>.. FC.. 6 . FC|
00000BA0: B1 20 31 32 20 A7 20 31 30 39 30 00 DC 13 40 04 |. 12 . 1090...@.|
00000BB0: 91 20 46 43 AB 20 36 20 8D 20 32 33 31 30 2C 20 |. FC. 6 . 2310, |
00000BC0: 32 33 36 30 2C 20 32 34 30 30 2C 20 32 34 34 30 |2360, 2400, 2440|
00000BD0: 2C 20 32 34 39 30 2C 20 32 35 34 30 00 FA 13 42 |, 2490, 2540...B|
00000BE0: 04 8B 20 46 43 B3 B2 20 31 32 20 B0 20 46 43 B1 |.. FC.. 12 . FC.|
00000BF0: 20 31 35 20 A7 20 31 30 39 34 00 1A 14 44 04 91 | 15 . 1094...D..|
00000C00: 20 46 43 AB 20 31 32 20 8D 20 32 36 30 30 2C 20 | FC. 12 . 2600, |
00000C10: 32 36 36 30 2C 20 32 37 32 30 00 2F 14 46 04 8B |2660, 2720./.F..|
00000C20: 20 49 4E 24 B2 C7 28 31 33 33 29 20 A7 20 8E 00 | IN$..(133) . ..|
00000C30: 63 14 47 04 8B 20 47 53 25 28 46 43 29 B1 30 20 |c.G.. GS%(FC).0 |
00000C40: A7 20 47 4B 28 47 53 25 28 46 43 29 29 B2 47 4C |. GK(GS%(FC)).GL|
00000C50: 28 47 53 25 28 46 43 29 29 AA C5 28 47 24 28 46 |(GS%(FC))..(G$(F|
00000C60: 43 29 29 00 75 14 74 04 99 C8 28 59 24 2C 32 33 |C)).u.t...(Y$,23|
00000C70: 29 3B 53 50 24 00 89 14 76 04 8B 20 46 43 B3 20 |);SP$...v.. FC. |
00000C80: 31 35 20 A7 20 31 30 38 30 00 9C 14 88 04 99 C8 |15 . 1080.......|
00000C90: 28 59 24 2C 32 34 29 3B 53 50 24 3B 00 D5 14 92 |(Y$,24);SP$;....|
00000CA0: 04 99 C8 28 59 24 2C 32 34 29 3B 22 C9 53 20 54 |...(Y$,24);".S T|
00000CB0: 48 49 53 20 41 4C 4C 20 43 4F 52 52 45 43 54 3F |HIS ALL CORRECT?|
00000CC0: 20 28 20 12 D2 C5 D4 D5 D2 CE 92 20 3D 20 59 45 | ( ........ = YE|
00000CD0: 53 20 29 22 3B 00 06 15 9C 04 58 25 B2 33 38 3A |S )";.....X%.38:|
00000CE0: 59 25 B2 32 34 3A 4C 25 B2 31 3A 8D 20 33 34 30 |Y%.24:L%.1:. 340|
00000CF0: 30 30 3A 99 C8 28 59 24 2C 32 33 29 3B 53 50 24 |00:..(Y$,23);SP$|
00000D00: 3A 99 53 50 24 3B 00 23 15 A6 04 8B C3 28 49 4E |:.SP$;.#.....(IN|
00000D10: 24 29 B2 30 B0 49 4E 24 B2 22 59 22 20 A7 20 32 |$).0.IN$."Y" . 2|
00000D20: 37 38 30 00 37 15 AB 04 8B 20 49 4E 24 B3 B1 22 |780.7.... IN$.."|
00000D30: 4E 22 A7 31 31 37 30 00 76 15 B0 04 99 C8 28 59 |N".1170.v.....(Y|
00000D40: 24 2C 32 33 29 3B 22 D7 48 49 43 48 20 46 49 45 |$,23);".HICH FIE|
00000D50: 4C 44 20 54 4F 20 43 48 41 4E 47 45 3F 20 22 3A |LD TO CHANGE? ":|
00000D60: 99 22 28 31 20 2D 20 31 35 20 4F 52 20 27 4C 49 |."(1 - 15 OR 'LI|
00000D70: 53 54 27 29 22 3B 00 9E 15 BA 04 58 25 B2 20 31 |ST')";.....X%. 1|
00000D80: 38 20 3A 59 25 B2 32 34 3A 4C 25 B2 34 3A 8D 33 |8 :Y%.24:L%.4:.3|
00000D90: 34 30 30 30 3A 49 4E B2 C5 28 49 4E 24 29 00 CA |4000:IN..(IN$)..|
00000DA0: 15 C4 04 8B 20 49 4E 24 B2 22 4C 49 53 54 22 20 |.... IN$."LIST" |
00000DB0: A7 20 46 B2 31 3A 8D 32 30 30 30 30 3A 8D 32 31 |. F.1:.20000:.21|
00000DC0: 30 30 30 3A 89 20 31 32 30 30 00 0E 16 CE 04 8B |000:. 1200......|
00000DD0: 49 4E B3 31 B0 49 4E B1 20 31 35 20 A7 20 99 C8 |IN.1.IN. 15 . ..|
00000DE0: 28 59 24 2C 32 33 29 3B 53 50 24 3A 99 C8 28 59 |(Y$,23);SP$:..(Y|
00000DF0: 24 2C 32 33 29 3B 22 C9 4E 56 41 4C 49 44 20 46 |$,23);".NVALID F|
00000E00: 49 45 4C 44 20 23 22 3A 89 20 31 31 36 30 00 25 |IELD #":. 1160.%|
00000E10: 16 D8 04 99 C8 28 59 24 2C 32 33 29 3B 53 50 24 |.....(Y$,23);SP$|
00000E20: 3A 99 53 50 24 00 41 16 E2 04 8B 20 49 4E B3 B2 |:.SP$.A.... IN..|
00000E30: 20 30 20 B0 20 49 4E B1 20 36 20 A7 20 31 32 35 | 0 . IN. 6 . 125|
00000E40: 34 00 72 16 E4 04 91 20 49 4E AB 20 30 20 8D 20 |4.r.... IN. 0 . |
00000E50: 32 30 31 30 2C 20 32 30 36 30 2C 20 32 31 31 30 |2010, 2060, 2110|
00000E60: 2C 20 32 31 36 30 2C 20 32 32 31 30 2C 20 32 32 |, 2160, 2210, 22|
00000E70: 36 30 00 8F 16 E6 04 8B 20 49 4E B3 B2 20 36 20 |60...... IN.. 6 |
00000E80: B0 20 49 4E B1 20 31 32 20 A7 20 31 32 35 38 00 |. IN. 12 . 1258.|
00000E90: C0 16 E8 04 91 20 49 4E AB 20 36 20 8D 20 32 33 |..... IN. 6 . 23|
00000EA0: 31 30 2C 20 32 33 36 30 2C 20 32 34 30 30 2C 20 |10, 2360, 2400, |
00000EB0: 32 34 34 30 2C 20 32 34 39 30 2C 20 32 35 34 30 |2440, 2490, 2540|
00000EC0: 00 DE 16 EA 04 8B 20 49 4E B3 B2 20 31 32 20 B0 |...... IN.. 12 .|
00000ED0: 20 49 4E B1 20 31 35 20 A7 20 31 32 36 32 00 FE | IN. 15 . 1262..|
00000EE0: 16 EC 04 91 20 49 4E AB 20 31 32 20 8D 20 32 36 |.... IN. 12 . 26|
00000EF0: 30 30 2C 20 32 36 36 30 2C 20 32 37 32 30 00 10 |00, 2660, 2720..|
00000F00: 17 EE 04 8B 49 4E 24 B2 C7 28 31 33 33 29 A7 8E |....IN$..(133)..|
00000F10: 00 46 17 F8 04 8B 47 53 25 28 49 4E 29 B1 30 20 |.F....GS%(IN).0 |
00000F20: A7 20 47 4B 28 47 53 25 28 49 4E 29 29 20 B2 20 |. GK(GS%(IN)) . |
00000F30: 47 4C 28 47 53 25 28 49 4E 29 29 20 AA C5 28 47 |GL(GS%(IN)) ..(G|
00000F40: 24 28 49 4E 29 29 00 50 17 02 05 89 31 31 36 30 |$(IN)).P....1160|
00000F50: 00 7D 17 DA 07 58 25 B2 58 25 28 20 31 29 AA C3 |.}...X%.X%( 1)..|
00000F60: 28 50 52 24 28 20 31 29 29 3A 59 25 B2 59 25 28 |(PR$( 1)):Y%.Y%(|
00000F70: 20 31 29 3A 4C 25 B2 4C 25 28 20 31 29 00 98 17 | 1):L%.L%( 1)...|
00000F80: DB 07 8B 55 46 B3 B1 30 AF 47 24 B2 22 22 A7 47 |...UF..0.G$."".G|
00000F90: 24 B2 47 24 28 20 31 29 00 CE 17 E4 07 8D 33 34 |$.G$( 1)......34|
00000FA0: 30 30 30 3A 99 C8 28 59 24 2C 32 33 29 3B 53 50 |000:..(Y$,23);SP|
00000FB0: 24 3A 47 24 28 20 31 29 B2 49 4E 24 3A 8B 47 24 |$:G$( 1).IN$:.G$|
00000FC0: 28 20 31 29 B2 C7 28 31 33 33 29 A7 20 8E 00 F1 |( 1)..(133). ...|
00000FD0: 17 EE 07 8B 20 55 46 B3 B1 30 20 AF 20 C3 28 49 |.... UF..0 . .(I|
00000FE0: 4E 24 29 B2 30 20 A7 20 47 24 28 20 31 29 B2 47 |N$).0 . G$( 1).G|
00000FF0: 24 00 17 18 F8 07 8B C3 28 47 24 28 20 31 29 29 |$.......(G$( 1))|
00001000: B3 4C 25 28 20 31 20 29 20 A7 20 49 B2 20 31 20 |.L%( 1 ) . I. 1 |
00001010: 3A 8D 34 30 35 30 30 00 1D 18 02 08 8E 00 4A 18 |:.40500.......J.|
00001020: 0C 08 58 25 B2 58 25 28 20 32 29 AA C3 28 50 52 |..X%.X%( 2)..(PR|
00001030: 24 28 20 32 29 29 3A 59 25 B2 59 25 28 20 32 29 |$( 2)):Y%.Y%( 2)|
00001040: 3A 4C 25 B2 4C 25 28 20 32 29 00 65 18 0D 08 8B |:L%.L%( 2).e....|
00001050: 55 46 B3 B1 30 AF 47 24 B2 22 22 A7 47 24 B2 47 |UF..0.G$."".G$.G|
00001060: 24 28 20 32 29 00 9B 18 16 08 8D 33 34 30 30 30 |$( 2)......34000|
00001070: 3A 99 C8 28 59 24 2C 32 33 29 3B 53 50 24 3A 47 |:..(Y$,23);SP$:G|
00001080: 24 28 20 32 29 B2 49 4E 24 3A 8B 47 24 28 20 32 |$( 2).IN$:.G$( 2|
00001090: 29 B2 C7 28 31 33 33 29 A7 20 8E 00 BE 18 20 08 |)..(133). .... .|
000010A0: 8B 20 55 46 B3 B1 30 20 AF 20 C3 28 49 4E 24 29 |. UF..0 . .(IN$)|
000010B0: B2 30 20 A7 20 47 24 28 20 32 29 B2 47 24 00 E4 |.0 . G$( 2).G$..|
000010C0: 18 2A 08 8B C3 28 47 24 28 20 32 29 29 B3 4C 25 |.*...(G$( 2)).L%|
000010D0: 28 20 32 20 29 20 A7 20 49 B2 20 32 20 3A 8D 34 |( 2 ) . I. 2 :.4|
000010E0: 30 35 30 30 00 EA 18 34 08 8E 00 17 19 3E 08 58 |0500...4.....>.X|
000010F0: 25 B2 58 25 28 20 33 29 AA C3 28 50 52 24 28 20 |%.X%( 3)..(PR$( |
00001100: 33 29 29 3A 59 25 B2 59 25 28 20 33 29 3A 4C 25 |3)):Y%.Y%( 3):L%|
00001110: B2 4C 25 28 20 33 29 00 32 19 3F 08 8B 55 46 B3 |.L%( 3).2.?..UF.|
00001120: B1 30 AF 47 24 B2 22 22 A7 47 24 B2 47 24 28 20 |.0.G$."".G$.G$( |
00001130: 33 29 00 68 19 48 08 8D 33 34 30 30 30 3A 99 C8 |3).h.H..34000:..|
00001140: 28 59 24 2C 32 33 29 3B 53 50 24 3A 47 24 28 20 |(Y$,23);SP$:G$( |
00001150: 33 29 B2 49 4E 24 3A 8B 47 24 28 20 33 29 B2 C7 |3).IN$:.G$( 3)..|
00001160: 28 31 33 33 29 A7 20 8E 00 8B 19 52 08 8B 20 55 |(133). ....R.. U|
00001170: 46 B3 B1 30 20 AF 20 C3 28 49 4E 24 29 B2 30 20 |F..0 . .(IN$).0 |
00001180: A7 20 47 24 28 20 33 29 B2 47 24 00 B1 19 5C 08 |. G$( 3).G$...\.|
00001190: 8B C3 28 47 24 28 20 33 29 29 B3 4C 25 28 20 33 |..(G$( 3)).L%( 3|
000011A0: 20 29 20 A7 20 49 B2 20 33 20 3A 8D 34 30 35 30 | ) . I. 3 :.4050|
000011B0: 30 00 B7 19 66 08 8E 00 E4 19 70 08 58 25 B2 58 |0...f.....p.X%.X|
000011C0: 25 28 20 34 29 AA C3 28 50 52 24 28 20 34 29 29 |%( 4)..(PR$( 4))|
000011D0: 3A 59 25 B2 59 25 28 20 34 29 3A 4C 25 B2 4C 25 |:Y%.Y%( 4):L%.L%|
000011E0: 28 20 34 29 00 FF 19 71 08 8B 55 46 B3 B1 30 AF |( 4)...q..UF..0.|
000011F0: 47 24 B2 22 22 A7 47 24 B2 47 24 28 20 34 29 00 |G$."".G$.G$( 4).|
00001200: 35 1A 7A 08 8D 33 34 30 30 30 3A 99 C8 28 59 24 |5.z..34000:..(Y$|
00001210: 2C 32 33 29 3B 53 50 24 3A 47 24 28 20 34 29 B2 |,23);SP$:G$( 4).|
00001220: 49 4E 24 3A 8B 47 24 28 20 34 29 B2 C7 28 31 33 |IN$:.G$( 4)..(13|
00001230: 33 29 A7 20 8E 00 58 1A 84 08 8B 20 55 46 B3 B1 |3). ..X.... UF..|
00001240: 30 20 AF 20 C3 28 49 4E 24 29 B2 30 20 A7 20 47 |0 . .(IN$).0 . G|
00001250: 24 28 20 34 29 B2 47 24 00 7E 1A 8E 08 8B C3 28 |$( 4).G$.~.....(|
00001260: 47 24 28 20 34 29 29 B3 4C 25 28 20 34 20 29 20 |G$( 4)).L%( 4 ) |
00001270: A7 20 49 B2 20 34 20 3A 8D 34 30 35 30 30 00 84 |. I. 4 :.40500..|
00001280: 1A 98 08 8E 00 B1 1A A2 08 58 25 B2 58 25 28 20 |.........X%.X%( |
00001290: 35 29 AA C3 28 50 52 24 28 20 35 29 29 3A 59 25 |5)..(PR$( 5)):Y%|
000012A0: B2 59 25 28 20 35 29 3A 4C 25 B2 4C 25 28 20 35 |.Y%( 5):L%.L%( 5|
000012B0: 29 00 CC 1A A3 08 8B 55 46 B3 B1 30 AF 47 24 B2 |)......UF..0.G$.|
000012C0: 22 22 A7 47 24 B2 47 24 28 20 35 29 00 02 1B AC |"".G$.G$( 5)....|
000012D0: 08 8D 33 34 30 30 30 3A 99 C8 28 59 24 2C 32 33 |..34000:..(Y$,23|
000012E0: 29 3B 53 50 24 3A 47 24 28 20 35 29 B2 49 4E 24 |);SP$:G$( 5).IN$|
000012F0: 3A 8B 47 24 28 20 35 29 B2 C7 28 31 33 33 29 A7 |:.G$( 5)..(133).|
00001300: 20 8E 00 25 1B B6 08 8B 20 55 46 B3 B1 30 20 AF | ..%.... UF..0 .|
00001310: 20 C3 28 49 4E 24 29 B2 30 20 A7 20 47 24 28 20 | .(IN$).0 . G$( |
00001320: 35 29 B2 47 24 00 4B 1B C0 08 8B C3 28 47 24 28 |5).G$.K.....(G$(|
00001330: 20 35 29 29 B3 4C 25 28 20 35 20 29 20 A7 20 49 | 5)).L%( 5 ) . I|
00001340: B2 20 35 20 3A 8D 34 30 35 30 30 00 51 1B CA 08 |. 5 :.40500.Q...|
00001350: 8E 00 7E 1B D4 08 58 25 B2 58 25 28 20 36 29 AA |..~...X%.X%( 6).|
00001360: C3 28 50 52 24 28 20 36 29 29 3A 59 25 B2 59 25 |.(PR$( 6)):Y%.Y%|
00001370: 28 20 37 29 3A 4C 25 B2 4C 25 28 20 36 29 00 99 |( 7):L%.L%( 6)..|
00001380: 1B D5 08 8B 55 46 B3 B1 30 AF 47 24 B2 22 22 A7 |....UF..0.G$."".|
00001390: 47 24 B2 47 24 28 20 36 29 00 CF 1B DE 08 8D 33 |G$.G$( 6)......3|
000013A0: 34 30 30 30 3A 99 C8 28 59 24 2C 32 33 29 3B 53 |4000:..(Y$,23);S|
000013B0: 50 24 3A 47 24 28 20 36 29 B2 49 4E 24 3A 8B 47 |P$:G$( 6).IN$:.G|
000013C0: 24 28 20 36 29 B2 C7 28 31 33 33 29 A7 20 8E 00 |$( 6)..(133). ..|
000013D0: F2 1B E8 08 8B 20 55 46 B3 B1 30 20 AF 20 C3 28 |..... UF..0 . .(|
000013E0: 49 4E 24 29 B2 30 20 A7 20 47 24 28 20 36 29 B2 |IN$).0 . G$( 6).|
000013F0: 47 24 00 18 1C F2 08 8B C3 28 47 24 28 20 36 29 |G$.......(G$( 6)|
00001400: 29 B3 4C 25 28 20 36 20 29 20 A7 20 49 B2 20 36 |).L%( 6 ) . I. 6|
00001410: 20 3A 8D 34 30 35 30 30 00 1E 1C FC 08 8E 00 4B | :.40500.......K|
00001420: 1C 06 09 58 25 B2 58 25 28 20 37 29 AA C3 28 50 |...X%.X%( 7)..(P|
00001430: 52 24 28 20 37 29 29 3A 59 25 B2 59 25 28 20 37 |R$( 7)):Y%.Y%( 7|
00001440: 29 3A 4C 25 B2 4C 25 28 20 37 29 00 66 1C 07 09 |):L%.L%( 7).f...|
00001450: 8B 55 46 B3 B1 30 AF 47 24 B2 22 22 A7 47 24 B2 |.UF..0.G$."".G$.|
00001460: 47 24 28 20 37 29 00 9C 1C 10 09 8D 33 34 30 30 |G$( 7)......3400|
00001470: 30 3A 99 C8 28 59 24 2C 32 33 29 3B 53 50 24 3A |0:..(Y$,23);SP$:|
00001480: 47 24 28 20 37 29 B2 49 4E 24 3A 8B 47 24 28 20 |G$( 7).IN$:.G$( |
00001490: 37 29 B2 C7 28 31 33 33 29 A7 20 8E 00 BF 1C 1A |7)..(133). .....|
000014A0: 09 8B 20 55 46 B3 B1 30 20 AF 20 C3 28 49 4E 24 |.. UF..0 . .(IN$|
000014B0: 29 B2 30 20 A7 20 47 24 28 20 37 29 B2 47 24 00 |).0 . G$( 7).G$.|
000014C0: E5 1C 24 09 8B C3 28 47 24 28 20 37 29 29 B3 4C |..$...(G$( 7)).L|
000014D0: 25 28 20 37 20 29 20 A7 20 49 B2 20 37 20 3A 8D |%( 7 ) . I. 7 :.|
000014E0: 34 30 35 30 30 00 EB 1C 2E 09 8E 00 18 1D 38 09 |40500.........8.|
000014F0: 58 25 B2 58 25 28 20 38 29 AA C3 28 50 52 24 28 |X%.X%( 8)..(PR$(|
00001500: 20 38 29 29 3A 59 25 B2 59 25 28 20 38 29 3A 4C | 8)):Y%.Y%( 8):L|
00001510: 25 B2 4C 25 28 20 38 29 00 33 1D 39 09 8B 55 46 |%.L%( 8).3.9..UF|
00001520: B3 B1 30 AF 47 24 B2 22 22 A7 47 24 B2 47 24 28 |..0.G$."".G$.G$(|
00001530: 20 38 29 00 69 1D 42 09 8D 34 39 30 30 30 3A 99 | 8).i.B..49000:.|
00001540: C8 28 59 24 2C 32 33 29 3B 53 50 24 3A 47 24 28 |.(Y$,23);SP$:G$(|
00001550: 20 38 29 B2 49 4E 24 3A 8B 47 24 28 20 38 29 B2 | 8).IN$:.G$( 8).|
00001560: C7 28 31 33 33 29 A7 20 8E 00 8C 1D 4C 09 8B 20 |.(133). ....L.. |
00001570: 55 46 B3 B1 30 20 AF 20 C3 28 49 4E 24 29 B2 30 |UF..0 . .(IN$).0|
00001580: 20 A7 20 47 24 28 20 38 29 B2 47 24 00 92 1D 56 | . G$( 8).G$...V|
00001590: 09 8E 00 BF 1D 60 09 58 25 B2 58 25 28 20 39 29 |.....`.X%.X%( 9)|
000015A0: AA C3 28 50 52 24 28 20 39 29 29 3A 59 25 B2 59 |..(PR$( 9)):Y%.Y|
000015B0: 25 28 20 39 29 3A 4C 25 B2 4C 25 28 20 39 29 00 |%( 9):L%.L%( 9).|
000015C0: DA 1D 61 09 8B 55 46 B3 B1 30 AF 47 24 B2 22 22 |..a..UF..0.G$.""|
000015D0: A7 47 24 B2 47 24 28 20 39 29 00 10 1E 6A 09 8D |.G$.G$( 9)...j..|
000015E0: 34 39 30 30 30 3A 99 C8 28 59 24 2C 32 33 29 3B |49000:..(Y$,23);|
000015F0: 53 50 24 3A 47 24 28 20 39 29 B2 49 4E 24 3A 8B |SP$:G$( 9).IN$:.|
00001600: 47 24 28 20 39 29 B2 C7 28 31 33 33 29 A7 20 8E |G$( 9)..(133). .|
00001610: 00 33 1E 74 09 8B 20 55 46 B3 B1 30 20 AF 20 C3 |.3.t.. UF..0 . .|
00001620: 28 49 4E 24 29 B2 30 20 A7 20 47 24 28 20 39 29 |(IN$).0 . G$( 9)|
00001630: B2 47 24 00 39 1E 7E 09 8E 00 6A 1E 88 09 58 25 |.G$.9.~...j...X%|
00001640: B2 58 25 28 20 31 30 29 AA C3 28 50 52 24 28 20 |.X%( 10)..(PR$( |
00001650: 31 30 29 29 3A 59 25 B2 59 25 28 20 31 30 29 3A |10)):Y%.Y%( 10):|
00001660: 4C 25 B2 4C 25 28 20 31 30 29 00 86 1E 89 09 8B |L%.L%( 10)......|
00001670: 55 46 B3 B1 30 AF 47 24 B2 22 22 A7 47 24 B2 47 |UF..0.G$."".G$.G|
00001680: 24 28 20 31 30 29 00 BE 1E 92 09 8D 33 34 30 30 |$( 10)......3400|
00001690: 30 3A 99 C8 28 59 24 2C 32 33 29 3B 53 50 24 3A |0:..(Y$,23);SP$:|
000016A0: 47 24 28 20 31 30 29 B2 49 4E 24 3A 8B 47 24 28 |G$( 10).IN$:.G$(|
000016B0: 20 31 30 29 B2 C7 28 31 33 33 29 A7 20 8E 00 E2 | 10)..(133). ...|
000016C0: 1E 9F 09 8B 20 55 46 B3 B1 30 20 AF 20 C3 28 49 |.... UF..0 . .(I|
000016D0: 4E 24 29 B2 30 20 A7 20 47 24 28 20 31 30 29 B2 |N$).0 . G$( 10).|
000016E0: 47 24 00 0B 1F A6 09 8B C3 28 47 24 28 20 31 30 |G$.......(G$( 10|
000016F0: 29 29 B3 4C 25 28 20 31 30 20 29 20 A7 20 49 B2 |)).L%( 10 ) . I.|
00001700: 20 31 30 20 3A 8D 34 30 35 30 30 00 11 1F B0 09 | 10 :.40500.....|
00001710: 8E 00 42 1F BA 09 58 25 B2 58 25 28 20 31 31 29 |..B...X%.X%( 11)|
00001720: AA C3 28 50 52 24 28 20 31 31 29 29 3A 59 25 B2 |..(PR$( 11)):Y%.|
00001730: 59 25 28 20 31 31 29 3A 4C 25 B2 4C 25 28 20 31 |Y%( 11):L%.L%( 1|
00001740: 31 29 00 5E 1F BB 09 8B 55 46 B3 B1 30 AF 47 24 |1).^....UF..0.G$|
00001750: B2 22 22 A7 47 24 B2 47 24 28 20 31 31 29 00 96 |."".G$.G$( 11)..|
00001760: 1F C4 09 8D 33 34 30 30 30 3A 99 C8 28 59 24 2C |....34000:..(Y$,|
00001770: 32 33 29 3B 53 50 24 3A 47 24 28 20 31 31 29 B2 |23);SP$:G$( 11).|
00001780: 49 4E 24 3A 8B 47 24 28 20 31 31 29 B2 C7 28 31 |IN$:.G$( 11)..(1|
00001790: 33 33 29 A7 20 8E 00 BA 1F CE 09 8B 20 55 46 B3 |33). ....... UF.|
000017A0: B1 30 20 AF 20 C3 28 49 4E 24 29 B2 30 20 A7 20 |.0 . .(IN$).0 . |
000017B0: 47 24 28 20 31 31 29 B2 47 24 00 E3 1F D8 09 8B |G$( 11).G$......|
000017C0: C3 28 47 24 28 20 31 31 29 29 B3 4C 25 28 20 31 |.(G$( 11)).L%( 1|
000017D0: 31 20 29 20 A7 20 49 B2 20 31 31 20 3A 8D 34 30 |1 ) . I. 11 :.40|
000017E0: 35 30 30 00 E9 1F E2 09 8E 00 1A 20 EC 09 58 25 |500........ ..X%|
000017F0: B2 58 25 28 20 31 32 29 AA C3 28 50 52 24 28 20 |.X%( 12)..(PR$( |
00001800: 31 32 29 29 3A 59 25 B2 59 25 28 20 31 32 29 3A |12)):Y%.Y%( 12):|
00001810: 4C 25 B2 4C 25 28 20 31 32 29 00 36 20 ED 09 8B |L%.L%( 12).6 ...|
00001820: 55 46 B3 B1 30 AF 47 24 B2 22 22 A7 47 24 B2 47 |UF..0.G$."".G$.G|
00001830: 24 28 20 31 32 29 00 6E 20 F6 09 8D 33 34 30 30 |$( 12).n ...3400|
00001840: 30 3A 99 C8 28 59 24 2C 32 33 29 3B 53 50 24 3A |0:..(Y$,23);SP$:|
00001850: 47 24 28 20 31 32 29 B2 49 4E 24 3A 8B 47 24 28 |G$( 12).IN$:.G$(|
00001860: 20 31 32 29 B2 C7 28 31 33 33 29 A7 20 8E 00 92 | 12)..(133). ...|
00001870: 20 00 0A 8B 20 55 46 B3 B1 30 20 AF 20 C3 28 49 | ... UF..0 . .(I|
00001880: 4E 24 29 B2 30 20 A7 20 47 24 28 20 31 32 29 B2 |N$).0 . G$( 12).|
00001890: 47 24 00 A4 20 01 0A 8B 55 46 B2 30 20 A7 20 20 |G$.. ...UF.0 . |
000018A0: 32 35 36 34 00 C7 20 02 0A 42 24 B2 47 24 28 20 |2564.. ..B$.G$( |
000018B0: 31 32 29 3A 41 24 B2 22 4D 22 3A 8D 34 31 30 30 |12):A$."M":.4100|
000018C0: 30 3A 47 31 B2 49 39 00 F3 20 03 0A 8B 47 31 B1 |0:G1.I9.. ...G1.|
000018D0: 30 A7 47 47 B2 C5 28 47 24 28 20 31 32 29 29 AA |0.GG..(G$( 12)).|
000018E0: C5 28 47 24 29 3A 47 24 28 20 31 32 29 B2 C4 28 |.(G$):G$( 12)..(|
000018F0: 47 47 29 00 03 21 04 0A 8B 55 46 B2 30 A7 20 32 |GG)..!...UF.0. 2|
00001900: 35 37 30 00 26 21 05 0A 42 24 B2 47 24 28 20 31 |570.&!..B$.G$( 1|
00001910: 32 29 3A 41 24 B2 22 4C 22 3A 8D 34 31 30 30 30 |2):A$."L":.41000|
00001920: 3A 47 31 B2 49 39 00 52 21 06 0A 8B 47 31 B1 30 |:G1.I9.R!...G1.0|
00001930: A7 47 47 B2 C5 28 47 24 29 AB C5 28 47 24 28 20 |.GG..(G$)..(G$( |
00001940: 31 32 29 29 3A 47 24 28 20 31 32 29 B2 C4 28 47 |12)):G$( 12)..(G|
00001950: 47 29 00 6C 21 0A 0A 47 24 28 20 31 32 29 B2 C4 |G).l!..G$( 12)..|
00001960: 28 C5 28 47 24 28 20 31 32 29 29 29 00 A1 21 0F |(.(G$( 12)))..!.|
00001970: 0A 8B 20 C5 28 47 24 28 20 31 32 29 29 B1 B2 30 |.. .(G$( 12))..0|
00001980: 20 A7 47 24 28 20 31 32 29 B2 C9 28 47 24 28 20 | .G$( 12)..(G$( |
00001990: 31 32 29 2C C3 28 47 24 28 20 31 32 29 29 AB 31 |12),.(G$( 12)).1|
000019A0: 29 00 CA 21 14 0A 8B C3 28 47 24 28 20 31 32 29 |)..!....(G$( 12)|
000019B0: 29 B3 4C 25 28 20 31 32 20 29 20 A7 20 49 B2 20 |).L%( 12 ) . I. |
000019C0: 31 32 20 3A 8D 34 30 35 30 30 00 D0 21 1E 0A 8E |12 :.40500..!...|
000019D0: 00 01 22 28 0A 58 25 B2 58 25 28 20 31 33 29 AA |.."(.X%.X%( 13).|
000019E0: C3 28 50 52 24 28 20 31 33 29 29 3A 59 25 B2 59 |.(PR$( 13)):Y%.Y|
000019F0: 25 28 20 31 33 29 3A 4C 25 B2 4C 25 28 20 31 33 |%( 13):L%.L%( 13|
00001A00: 29 00 1D 22 29 0A 8B 55 46 B3 B1 30 AF 47 24 B2 |)..")..UF..0.G$.|
00001A10: 22 22 A7 47 24 B2 47 24 28 20 31 33 29 00 55 22 |"".G$.G$( 13).U"|
00001A20: 32 0A 8D 33 34 30 30 30 3A 99 C8 28 59 24 2C 32 |2..34000:..(Y$,2|
00001A30: 33 29 3B 53 50 24 3A 47 24 28 20 31 33 29 B2 49 |3);SP$:G$( 13).I|
00001A40: 4E 24 3A 8B 47 24 28 20 31 33 29 B2 C7 28 31 33 |N$:.G$( 13)..(13|
00001A50: 33 29 A7 20 8E 00 79 22 3C 0A 8B 20 55 46 B3 B1 |3). ..y"<.. UF..|
00001A60: 30 20 AF 20 C3 28 49 4E 24 29 B2 30 20 A7 20 47 |0 . .(IN$).0 . G|
00001A70: 24 28 20 31 33 29 B2 47 24 00 8B 22 3D 0A 8B 55 |$( 13).G$.."=..U|
00001A80: 46 B2 30 20 A7 20 20 32 36 32 34 00 AE 22 3E 0A |F.0 . 2624..">.|
00001A90: 42 24 B2 47 24 28 20 31 33 29 3A 41 24 B2 22 4D |B$.G$( 13):A$."M|
00001AA0: 22 3A 8D 34 31 30 30 30 3A 47 31 B2 49 39 00 DA |":.41000:G1.I9..|
00001AB0: 22 3F 0A 8B 47 31 B1 30 A7 47 47 B2 C5 28 47 24 |"?..G1.0.GG..(G$|
00001AC0: 28 20 31 33 29 29 AA C5 28 47 24 29 3A 47 24 28 |( 13))..(G$):G$(|
00001AD0: 20 31 33 29 B2 C4 28 47 47 29 00 EA 22 40 0A 8B | 13)..(GG).."@..|
00001AE0: 55 46 B2 30 A7 20 32 36 33 30 00 0D 23 41 0A 42 |UF.0. 2630..#A.B|
00001AF0: 25 B2 47 24 28 20 31 33 29 3A 41 24 B2 22 4C 22 |%.G$( 13):A$."L"|
00001B00: 3A 8D 34 31 30 30 30 3A 47 31 B2 49 39 00 39 23 |:.41000:G1.I9.9#|
00001B10: 42 0A 8B 47 31 B1 30 A7 47 47 B2 C5 28 47 24 29 |B..G1.0.GG..(G$)|
00001B20: AB C5 28 47 24 28 20 31 33 29 29 3A 47 24 28 20 |..(G$( 13)):G$( |
00001B30: 31 33 29 B2 C4 28 47 47 29 00 53 23 46 0A 47 24 |13)..(GG).S#F.G$|
00001B40: 28 20 31 33 29 B2 C4 28 C5 28 47 24 28 20 31 33 |( 13)..(.(G$( 13|
00001B50: 29 29 29 00 88 23 4B 0A 8B 20 C5 28 47 24 28 20 |)))..#K.. .(G$( |
00001B60: 31 33 29 29 B1 B2 30 20 A7 47 24 28 20 31 33 29 |13))..0 .G$( 13)|
00001B70: B2 C9 28 47 24 28 20 31 33 29 2C C3 28 47 24 28 |..(G$( 13),.(G$(|
00001B80: 20 31 33 29 29 AB 31 29 00 B1 23 50 0A 8B C3 28 | 13)).1)..#P...(|
00001B90: 47 24 28 20 31 33 29 29 B3 4C 25 28 20 31 33 20 |G$( 13)).L%( 13 |
00001BA0: 29 20 A7 20 49 B2 20 31 33 20 3A 8D 34 30 35 30 |) . I. 13 :.4050|
00001BB0: 30 00 B7 23 5A 0A 8E 00 E8 23 64 0A 58 25 B2 58 |0..#Z....#d.X%.X|
00001BC0: 25 28 20 31 34 29 AA C3 28 50 52 24 28 20 31 34 |%( 14)..(PR$( 14|
00001BD0: 29 29 3A 59 25 B2 59 25 28 20 31 34 29 3A 4C 25 |)):Y%.Y%( 14):L%|
00001BE0: B2 4C 25 28 20 31 34 29 00 04 24 65 0A 8B 55 46 |.L%( 14)..$e..UF|
00001BF0: B3 B1 30 AF 47 24 B2 22 22 A7 47 24 B2 47 24 28 |..0.G$."".G$.G$(|
00001C00: 20 31 34 29 00 3C 24 6E 0A 8D 33 34 30 30 30 3A | 14).<$n..34000:|
00001C10: 99 C8 28 59 24 2C 32 33 29 3B 53 50 24 3A 47 24 |..(Y$,23);SP$:G$|
00001C20: 28 20 31 34 29 B2 49 4E 24 3A 8B 47 24 28 20 31 |( 14).IN$:.G$( 1|
00001C30: 34 29 B2 C7 28 31 33 33 29 A7 20 8E 00 60 24 78 |4)..(133). ..`$x|
00001C40: 0A 8B 20 55 46 B3 B1 30 20 AF 20 C3 28 49 4E 24 |.. UF..0 . .(IN$|
00001C50: 29 B2 30 20 A7 20 47 24 28 20 31 34 29 B2 47 24 |).0 . G$( 14).G$|
00001C60: 00 72 24 79 0A 8B 55 46 B2 30 20 A7 20 20 32 36 |.r$y..UF.0 . 26|
00001C70: 38 34 00 95 24 7A 0A 42 24 B2 47 24 28 20 31 34 |84..$z.B$.G$( 14|
00001C80: 29 3A 41 24 B2 22 4D 22 3A 8D 34 31 30 30 30 3A |):A$."M":.41000:|
00001C90: 47 31 B2 49 39 00 C1 24 7B 0A 8B 47 31 B1 30 A7 |G1.I9..${..G1.0.|
00001CA0: 47 47 B2 C5 28 47 24 28 20 31 34 29 29 AA C5 28 |GG..(G$( 14))..(|
00001CB0: 47 24 29 3A 47 24 28 20 31 34 29 B2 C4 28 47 47 |G$):G$( 14)..(GG|
00001CC0: 29 00 D1 24 7C 0A 8B 55 46 B2 30 A7 20 32 36 39 |)..$|..UF.0. 269|
00001CD0: 30 00 F4 24 7D 0A 42 24 B2 47 24 28 20 31 34 29 |0..$}.B$.G$( 14)|
00001CE0: 3A 41 24 B2 22 4C 22 3A 8D 34 31 30 30 30 3A 47 |:A$."L":.41000:G|
00001CF0: 31 B2 49 39 00 20 25 7E 0A 8B 47 31 B1 30 A7 47 |1.I9. %~..G1.0.G|
00001D00: 47 B2 C5 28 47 24 29 AB C5 28 47 24 28 20 31 34 |G..(G$)..(G$( 14|
00001D10: 29 29 3A 47 24 28 20 31 34 29 B2 C4 28 47 47 29 |)):G$( 14)..(GG)|
00001D20: 00 3A 25 82 0A 47 24 28 20 31 34 29 B2 C4 28 C5 |.:%..G$( 14)..(.|
00001D30: 28 47 24 28 20 31 34 29 29 29 00 6F 25 87 0A 8B |(G$( 14))).o%...|
00001D40: 20 C5 28 47 24 28 20 31 34 29 29 B1 B2 30 20 A7 | .(G$( 14))..0 .|
00001D50: 47 24 28 20 31 34 29 B2 C9 28 47 24 28 20 31 34 |G$( 14)..(G$( 14|
00001D60: 29 2C C3 28 47 24 28 20 31 34 29 29 AB 31 29 00 |),.(G$( 14)).1).|
00001D70: 98 25 8C 0A 8B C3 28 47 24 28 20 31 34 29 29 B3 |.%....(G$( 14)).|
00001D80: 4C 25 28 20 31 34 20 29 20 A7 20 49 B2 20 31 34 |L%( 14 ) . I. 14|
00001D90: 20 3A 8D 34 30 35 30 30 00 9E 25 96 0A 8E 00 CF | :.40500..%.....|
00001DA0: 25 A0 0A 58 25 B2 58 25 28 20 31 35 29 AA C3 28 |%..X%.X%( 15)..(|
00001DB0: 50 52 24 28 20 31 35 29 29 3A 59 25 B2 59 25 28 |PR$( 15)):Y%.Y%(|
00001DC0: 20 31 35 29 3A 4C 25 B2 4C 25 28 20 31 35 29 00 | 15):L%.L%( 15).|
00001DD0: EB 25 A1 0A 8B 55 46 B3 B1 30 AF 47 24 B2 22 22 |.%...UF..0.G$.""|
00001DE0: A7 47 24 B2 47 24 28 20 31 35 29 00 23 26 AA 0A |.G$.G$( 15).#&..|
00001DF0: 8D 33 34 30 30 30 3A 99 C8 28 59 24 2C 32 33 29 |.34000:..(Y$,23)|
00001E00: 3B 53 50 24 3A 47 24 28 20 31 35 29 B2 49 4E 24 |;SP$:G$( 15).IN$|
00001E10: 3A 8B 47 24 28 20 31 35 29 B2 C7 28 31 33 33 29 |:.G$( 15)..(133)|
00001E20: A7 20 8E 00 47 26 B4 0A 8B 20 55 46 B3 B1 30 20 |. ..G&... UF..0 |
00001E30: AF 20 C3 28 49 4E 24 29 B2 30 20 A7 20 47 24 28 |. .(IN$).0 . G$(|
00001E40: 20 31 35 29 B2 47 24 00 59 26 B5 0A 8B 55 46 B2 | 15).G$.Y&...UF.|
00001E50: 30 20 A7 20 20 32 37 34 34 00 7C 26 B6 0A 42 24 |0 . 2744.|&..B$|
00001E60: B2 47 24 28 20 31 35 29 3A 41 24 B2 22 4D 22 3A |.G$( 15):A$."M":|
00001E70: 8D 34 31 30 30 30 3A 47 31 B2 49 39 00 A8 26 B7 |.41000:G1.I9..&.|
00001E80: 0A 8B 47 31 B1 30 A7 47 47 B2 C5 28 47 24 28 20 |..G1.0.GG..(G$( |
00001E90: 31 35 29 29 AA C5 28 47 24 29 3A 47 24 28 20 31 |15))..(G$):G$( 1|
00001EA0: 35 29 B2 C4 28 47 47 29 00 B8 26 B8 0A 8B 55 46 |5)..(GG)..&...UF|
00001EB0: B2 30 A7 20 32 37 35 30 00 DB 26 B9 0A 42 24 B2 |.0. 2750..&..B$.|
00001EC0: 47 24 28 20 31 35 29 3A 41 24 B2 22 4C 22 3A 8D |G$( 15):A$."L":.|
00001ED0: 34 31 30 30 30 3A 47 31 B2 49 39 00 07 27 BA 0A |41000:G1.I9..'..|
00001EE0: 8B 47 31 B1 30 A7 47 47 B2 C5 28 47 24 29 AB C5 |.G1.0.GG..(G$)..|
00001EF0: 28 47 24 28 20 31 35 29 29 3A 47 24 28 20 31 35 |(G$( 15)):G$( 15|
00001F00: 29 B2 C4 28 47 47 29 00 21 27 BE 0A 47 24 28 20 |)..(GG).!'..G$( |
00001F10: 31 35 29 B2 C4 28 C5 28 47 24 28 20 31 35 29 29 |15)..(.(G$( 15))|
00001F20: 29 00 56 27 C3 0A 8B 20 C5 28 47 24 28 20 31 35 |).V'... .(G$( 15|
00001F30: 29 29 B1 B2 30 20 A7 47 24 28 20 31 35 29 B2 C9 |))..0 .G$( 15)..|
00001F40: 28 47 24 28 20 31 35 29 2C C3 28 47 24 28 20 31 |(G$( 15),.(G$( 1|
00001F50: 35 29 29 AB 31 29 00 7F 27 C8 0A 8B C3 28 47 24 |5)).1)..'....(G$|
00001F60: 28 20 31 35 29 29 B3 4C 25 28 20 31 35 20 29 20 |( 15)).L%( 15 ) |
00001F70: A7 20 49 B2 20 31 35 20 3A 8D 34 30 35 30 30 00 |. I. 15 :.40500.|
00001F80: 85 27 D2 0A 8E 00 92 27 DC 0A 81 50 5A B2 31 A4 |.'.....'...PZ.1.|
00001F90: 4E 43 00 9E 27 E6 0A 8D 20 32 38 31 30 30 00 AD |NC..'... 28100..|
00001FA0: 27 F0 0A 49 4A B2 47 53 25 28 50 5A 29 00 D1 27 |'..IJ.GS%(PZ)..'|
00001FB0: FA 0A 8B 20 49 4A 20 B1 20 30 20 A7 20 47 4B 28 |... IJ . 0 . GK(|
00001FC0: 49 4A 29 B2 47 4C 28 49 4A 29 AA 43 44 28 50 5A |IJ).GL(IJ).CD(PZ|
00001FD0: 29 00 DA 27 04 0B 82 20 50 5A 00 00 28 28 23 8F |)..'... PZ..((#.|
00001FE0: 20 3D 3D 3D 3D 20 4C 4F 4F 4B 20 46 4F 52 20 52 | ==== LOOK FOR R|
00001FF0: 45 43 4F 52 44 20 53 50 41 43 45 20 3D 3D 3D 3D |ECORD SPACE ====|
00002000: 00 3A 28 F0 23 5A 5A 24 B2 47 24 28 4B 46 29 3A |.:(.#ZZ$.G$(KF):|
00002010: 8D 32 36 30 30 30 3A 8F 20 43 4F 4D 50 55 54 45 |.26000:. COMPUTE|
00002020: 20 48 41 53 48 20 4B 45 59 20 46 4F 52 20 52 45 | HASH KEY FOR RE|
00002030: 43 2E 20 45 4E 54 45 52 45 44 00 7E 28 54 24 8D |C. ENTERED.~(T$.|
00002040: 35 32 31 30 30 3A 8D 35 32 31 33 35 3A 8F 20 50 |52100:.52135:. P|
00002050: 4F 53 49 54 49 4F 4E 20 54 4F 20 48 41 53 48 20 |OSITION TO HASH |
00002060: 46 49 4C 45 20 26 20 52 45 41 44 20 50 54 52 20 |FILE & READ PTR |
00002070: 54 4F 20 4C 49 4E 4B 45 44 20 4C 49 53 54 00 A8 |TO LINKED LIST..|
00002080: 28 5E 24 48 50 54 52 24 B2 49 4B 24 3A 48 4B 45 |(^$HPTR$.IK$:HKE|
00002090: 59 B2 52 50 3A 8F 20 53 41 56 45 20 4F 4C 44 20 |Y.RP:. SAVE OLD |
000020A0: 4C 49 4E 4B 20 50 54 52 00 EB 28 6D 24 52 50 B2 |LINK PTR..(m$RP.|
000020B0: 48 4B 45 59 3A 8D 35 32 31 30 30 3A 49 4B 24 B2 |HKEY:.52100:IK$.|
000020C0: 58 46 53 24 3A 8D 35 32 31 34 35 3A 8F 20 57 52 |XFS$:.52145:. WR|
000020D0: 49 54 45 20 48 41 53 48 20 4C 49 4E 4B 20 46 4F |ITE HASH LINK FO|
000020E0: 52 20 4E 45 57 20 45 4E 54 52 59 00 19 29 72 24 |R NEW ENTRY..)r$|
000020F0: 52 50 B2 C5 28 58 46 53 24 29 3A 8D 34 32 30 30 |RP..(XFS$):.4200|
00002100: 30 3A 8F 20 57 52 49 54 45 20 44 41 54 41 20 52 |0:. WRITE DATA R|
00002110: 45 43 20 54 4F 20 30 2F 44 00 5E 29 77 24 52 50 |EC TO 0/D.^)w$RP|
00002120: B2 52 50 AA 4D 53 AA 34 3A 8D 35 32 31 30 30 3A |.RP.MS.4:.52100:|
00002130: 8D 35 32 31 33 35 3A 44 52 50 24 B2 49 4B 24 3A |.52135:DRP$.IK$:|
00002140: 8F 20 52 45 41 44 20 44 45 4C 20 52 45 43 20 4C |. READ DEL REC L|
00002150: 49 4E 4B 45 44 20 4C 49 53 54 20 50 54 52 00 99 |INKED LIST PTR..|
00002160: 29 7C 24 8D 35 32 31 30 30 3A 49 4B 24 B2 48 50 |)|$.52100:IK$.HP|
00002170: 54 52 24 3A 8D 35 32 31 34 35 3A 8F 20 57 52 49 |TR$:.52145:. WRI|
00002180: 54 45 20 4C 49 4E 4B 20 44 41 54 41 20 52 45 43 |TE LINK DATA REC|
00002190: 20 4C 49 4E 4B 20 50 54 52 00 B2 29 86 24 8B 20 | LINK PTR..).$. |
000021A0: C6 28 44 52 50 24 29 B2 32 35 35 A7 20 89 39 33 |.(DRP$).255. .93|
000021B0: 36 30 00 FB 29 8B 24 58 46 53 24 B2 44 52 50 24 |60..).$XFS$.DRP$|
000021C0: 3A 89 39 33 37 32 3A 8F 20 53 45 54 20 46 52 45 |:.9372:. SET FRE|
000021D0: 45 20 53 50 41 43 45 20 50 54 52 20 54 4F 20 46 |E SPACE PTR TO F|
000021E0: 52 45 45 2D 44 45 4C 2D 52 45 43 20 4C 49 4E 4B |REE-DEL-REC LINK|
000021F0: 45 44 20 4C 49 53 54 20 50 54 52 00 42 2A 90 24 |ED LIST PTR.B*.$|
00002200: 58 46 53 24 B2 4E 58 52 24 3A 4E 58 52 24 B2 C4 |XFS$.NXR$:NXR$..|
00002210: 28 C5 28 4E 58 52 24 29 AA 31 29 3A 8F 20 55 50 |(.(NXR$).1):. UP|
00002220: 44 41 54 45 20 46 52 45 45 20 26 20 43 4F 4E 54 |DATE FREE & CONT|
00002230: 49 47 55 4F 55 53 20 53 50 41 43 45 20 50 54 52 |IGUOUS SPACE PTR|
00002240: 53 2E 00 54 2A 9C 24 8B 20 41 4E 24 B2 22 55 22 |S..T*.$. AN$."U"|
00002250: 20 A7 20 8E 00 60 2A 9F 24 4E 52 B2 4E 52 AA 31 | . ..`*.$NR.NR.1|
00002260: 00 6D 2A B8 24 52 4D B2 4D 53 AB 4E 52 00 97 2A |.m*.$RM.MS.NR..*|
00002270: C2 24 99 C8 28 59 24 2C 32 33 29 3B 22 D2 45 43 |.$..(Y$,23);".EC|
00002280: 2E 20 45 4E 54 45 52 45 44 3A 22 3B CA 28 C4 28 |. ENTERED:";.(.(|
00002290: 4E 52 2B 2C 32 29 3B 00 BC 2A CC 24 99 22 20 D2 |NR+,2);..*.$." .|
000022A0: 45 43 2E 20 53 50 41 43 45 53 20 4C 45 46 54 3A |EC. SPACES LEFT:|
000022B0: 22 3B CA 28 C4 28 52 4D 29 2C 32 29 00 D5 2A D6 |";.(.(RM),2)..*.|
000022C0: 24 8B 52 4D B2 30 A7 99 C8 28 59 24 2C 32 33 29 |$.RM.0...(Y$,23)|
000022D0: 3B 53 50 24 3B 00 FF 2A E0 24 8B 20 52 4D B2 30 |;SP$;..*.$. RM.0|
000022E0: 20 A7 99 C8 28 59 24 2C 32 33 29 3B A3 36 29 3B | ...(Y$,23);.6);|
000022F0: 22 12 20 C6 C9 CC C5 20 C6 D5 CC CC 20 92 22 00 |". .... .... .".|
00002300: 22 2B EA 24 99 22 D0 52 45 53 53 20 12 D2 C5 D4 |"+.$.".RESS ....|
00002310: D5 D2 CE 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |.... TO CONTINUE|
00002320: 2E 22 00 41 2B F4 24 A1 20 41 41 24 3A 8B 20 41 |.".A+.$. AA$:. A|
00002330: 41 24 B3 B1 C7 28 31 33 29 20 A7 20 20 39 34 36 |A$...(13) . 946|
00002340: 30 00 53 2B FE 24 99 C8 28 59 24 2F 32 33 29 3B |0.S+.$..(Y$/23);|
00002350: 53 50 24 00 62 2B 08 25 8B 20 52 4D B2 30 20 A7 |SP$.b+.%. RM.0 .|
00002360: 20 8E 00 82 2B 12 25 99 C8 28 59 24 2C 32 34 29 | ...+.%..(Y$,24)|
00002370: 3B 53 50 24 3A 99 C8 28 59 24 2C 32 34 29 3B 54 |;SP$:..(Y$,24);T|
00002380: 54 24 00 A4 2B 1C 25 58 25 B2 C3 28 54 54 24 29 |T$..+.%X%..(TT$)|
00002390: AA 31 3A 59 25 B2 32 34 3A 4C 25 B2 31 3A 8D 33 |.1:Y%.24:L%.1:.3|
000023A0: 34 30 30 30 00 C1 2B 30 25 8B 20 C8 28 49 4E 24 |4000..+0%. .(IN$|
000023B0: 2C 31 29 B2 22 59 22 20 A7 20 8D 39 37 30 30 3A |,1)."Y" . .9700:|
000023C0: 8E 00 E0 2B 3A 25 8B 20 C3 28 49 4E 24 29 B2 30 |...+:%. .(IN$).0|
000023D0: 20 B0 20 49 4E 24 B2 22 4E 22 A7 20 39 35 35 30 | . IN$."N". 9550|
000023E0: 00 1B 2C 44 25 99 C8 28 59 24 2C 32 33 29 3B 22 |..,D%..(Y$,23);"|
000023F0: D0 4C 45 41 53 45 20 41 4E 53 57 45 52 20 59 20 |.LEASE ANSWER Y |
00002400: 4F 52 20 4E 20 28 12 D2 C5 D4 D5 D2 CE 92 3D 4E |OR N (........=N|
00002410: 4F 29 22 3A 89 20 20 39 34 39 30 00 3B 2C 4E 25 |O)":. 9490.;,N%|
00002420: 47 24 B2 22 22 3A 46 43 B2 30 3A 99 22 93 22 3A |G$."":FC.0:.".":|
00002430: 55 46 B2 30 3A 89 20 31 30 30 30 00 62 2C E4 25 |UF.0:. 1000.b,.%|
00002440: 8F 20 3D 3D 3D 3D 20 55 50 44 41 54 45 20 49 4E |. ==== UPDATE IN|
00002450: 44 45 58 20 46 49 4C 45 20 50 54 52 53 20 3D 3D |DEX FILE PTRS ==|
00002460: 3D 3D 00 93 2C E5 25 99 22 93 11 11 11 11 11 20 |==..,.%."...... |
00002470: 20 20 20 20 20 2A 2A 2A 20 12 D5 50 44 41 54 49 | *** ..PDATI|
00002480: 4E 47 20 C9 4E 44 45 58 20 C6 49 4C 45 92 20 2A |NG .NDEX .ILE. *|
00002490: 2A 2A 22 00 D0 2C EE 25 49 4B 24 B2 4E 58 52 24 |**"..,.%IK$.NXR$|
000024A0: 3A 52 50 B2 32 3A 8D 35 32 31 30 30 3A 8D 35 32 |:RP.2:.52100:.52|
000024B0: 31 34 35 3A 8F 20 57 52 49 54 45 20 4E 45 58 54 |145:. WRITE NEXT|
000024C0: 20 43 4F 4E 54 2E 20 52 45 43 2E 20 50 54 52 2E | CONT. REC. PTR.|
000024D0: 00 0A 2D F8 25 49 4B 24 B2 58 46 53 24 3A 52 50 |..-.%IK$.XFS$:RP|
000024E0: B2 34 3A 8D 35 32 31 30 30 3A 8D 35 32 31 34 35 |.4:.52100:.52145|
000024F0: 3A 8F 20 57 52 49 54 45 20 4E 45 58 54 20 46 52 |:. WRITE NEXT FR|
00002500: 45 45 20 53 50 43 20 50 54 52 00 3E 2D 02 26 49 |EE SPC PTR.>-.&I|
00002510: 4B 24 B2 C4 28 4E 52 29 3A 52 50 B2 31 3A 8D 35 |K$..(NR):RP.1:.5|
00002520: 32 31 30 30 3A 8D 35 32 31 34 35 3A 8F 20 55 50 |2100:.52145:. UP|
00002530: 44 41 54 45 20 52 45 43 20 43 4F 55 4E 54 00 44 |DATE REC COUNT.D|
00002540: 2D 0C 26 8E 00 4E 2D 10 27 99 20 22 93 22 00 70 |-.&..N-.'. ".".p|
00002550: 2D 1A 27 8D 20 32 37 30 30 30 3A 8F 20 50 52 4F |-.'. 27000:. PRO|
00002560: 4D 50 54 20 46 4F 52 20 48 41 53 48 20 4B 45 59 |MPT FOR HASH KEY|
00002570: 00 84 2D 1F 27 8B 20 49 4E 24 B2 C7 28 31 33 33 |..-.'. IN$..(133|
00002580: 29 A7 20 8E 00 9E 2D 24 27 8B 20 C6 28 49 4B 24 |). ...-$'. .(IK$|
00002590: 29 B3 B1 32 35 35 20 A7 20 31 30 30 35 30 00 C1 |)..255 . 10050..|
000025A0: 2D 2E 27 8D 20 32 37 31 31 30 3A 8F 20 52 45 43 |-.'. 27110:. REC|
000025B0: 20 4E 4F 54 20 46 4F 55 4E 44 20 50 52 4F 4D 50 | NOT FOUND PROMP|
000025C0: 54 00 D8 2D 38 27 8E 3A 8F 20 52 45 54 55 52 4E |T..-8'.:. RETURN|
000025D0: 20 54 4F 20 4D 45 4E 55 00 FA 2D 42 27 52 50 B2 | TO MENU..-B'RP.|
000025E0: 49 4B 3A 8D 34 30 30 30 30 3A 8F 20 49 4E 50 55 |IK:.40000:. INPU|
000025F0: 54 20 44 41 54 41 20 52 45 43 00 1D 2E 47 27 8B |T DATA REC...G'.|
00002600: 20 C8 28 46 24 28 4B 46 29 2C C3 28 5A 5A 24 29 | .(F$(KF),.(ZZ$)|
00002610: 29 B3 B1 5A 5A 24 20 A7 31 30 30 39 30 00 45 2E |)..ZZ$ .10090.E.|
00002620: 4C 27 8D 32 39 30 30 30 3A 8D 32 39 31 38 30 3A |L'.29000:.29180:|
00002630: 8F 20 44 49 53 50 4C 41 59 20 52 45 43 20 26 20 |. DISPLAY REC & |
00002640: 50 52 4D 50 54 00 67 2E 51 27 8B 20 C3 28 49 4E |PRMPT.g.Q'. .(IN|
00002650: 24 29 B2 30 20 B0 20 49 4E 24 B2 22 59 22 20 A7 |$).0 . IN$."Y" .|
00002660: 20 89 31 30 30 37 30 00 72 2E 54 27 89 31 30 30 | .10070.r.T'.100|
00002670: 39 30 00 8E 2E 56 27 8D 32 39 32 32 30 3A 8F 20 |90...V'.29220:. |
00002680: 50 52 4F 4D 50 54 20 54 4F 20 43 4F 4E 54 00 9E |PROMPT TO CONT..|
00002690: 2E 60 27 8B 49 4E 24 B2 22 58 22 A7 20 8E 00 CF |.`'.IN$."X". ...|
000026A0: 2E 6A 27 52 50 B2 49 4B AA 4D 53 AA 34 3A 8D 35 |.j'RP.IK.MS.4:.5|
000026B0: 32 31 30 30 3A 8D 35 32 31 33 35 3A 8F 20 52 45 |2100:.52135:. RE|
000026C0: 41 44 20 4C 49 4E 4B 20 50 4F 49 4E 54 45 52 00 |AD LINK POINTER.|
000026D0: F4 2E 74 27 8B C6 28 49 4B 24 29 B3 B1 32 35 35 |..t'..(IK$)..255|
000026E0: A7 31 30 30 35 30 3A 8F 20 43 4F 4E 54 20 53 45 |.10050:. CONT SE|
000026F0: 41 52 43 48 00 16 2F 7E 27 8D 32 37 31 31 30 3A |ARCH../~'.27110:|
00002700: 8F 20 52 45 43 20 4E 4F 54 20 46 4F 55 4E 44 20 |. REC NOT FOUND |
00002710: 50 52 4F 4D 50 54 00 1C 2F 88 27 8E 00 40 2F F8 |PROMPT../.'..@/.|
00002720: 2A 8F 20 3D 3D 3D 3D 20 46 49 4C 45 20 55 50 44 |*. ==== FILE UPD|
00002730: 41 54 45 20 52 4F 55 54 49 4E 45 20 3D 3D 3D 3D |ATE ROUTINE ====|
00002740: 00 4A 2F FD 2A 99 20 22 93 22 00 6C 2F 02 2B 8D |.J/.*. ".".l/.+.|
00002750: 20 32 37 30 30 30 3A 8F 20 50 52 4F 4D 50 54 20 | 27000:. PROMPT |
00002760: 46 4F 52 20 48 41 53 48 20 4B 45 59 00 80 2F 07 |FOR HASH KEY../.|
00002770: 2B 8B 20 49 4E 24 B2 C7 28 31 33 33 29 A7 20 8E |+. IN$..(133). .|
00002780: 00 AC 2F 0C 2B 8B 20 C6 28 49 4B 24 29 B2 32 35 |../.+. .(IK$).25|
00002790: 35 20 A7 20 8D 32 37 31 32 35 3A 8E 3A 8F 20 45 |5 . .27125:.:. E|
000027A0: 58 49 54 20 49 46 20 45 4D 50 54 59 00 DA 2F 16 |XIT IF EMPTY../.|
000027B0: 2B 48 50 54 52 B2 49 4B 3A 48 4B 45 59 B2 52 50 |+HPTR.IK:HKEY.RP|
000027C0: 3A 8F 20 53 41 56 45 20 48 41 53 48 20 50 4F 49 |:. SAVE HASH POI|
000027D0: 4E 54 45 52 20 26 20 4B 45 59 00 FA 2F 20 2B 52 |NTER & KEY../ +R|
000027E0: 50 B2 49 4B 3A 8D 34 30 30 30 30 3A 8F 20 47 45 |P.IK:.40000:. GE|
000027F0: 54 20 44 41 54 41 20 52 45 43 00 32 30 2A 2B 52 |T DATA REC.20*+R|
00002800: 50 B2 49 4B AA 4D 53 AA 34 3A 8D 35 32 31 30 30 |P.IK.MS.4:.52100|
00002810: 3A 8D 35 32 31 33 35 3A 8F 20 52 45 41 44 20 46 |:.52135:. READ F|
00002820: 49 4C 45 20 4C 49 4E 4B 20 50 54 52 20 49 4E 20 |ILE LINK PTR IN |
00002830: 2F 59 00 52 30 2F 2B 44 52 50 24 B2 49 4B 24 3A |/Y.R0/+DRP$.IK$:|
00002840: 8F 20 53 41 56 45 20 44 45 4C 20 52 45 43 20 50 |. SAVE DEL REC P|
00002850: 54 52 00 77 30 32 2B 8B 20 C8 28 46 24 28 4B 46 |TR.w02+. .(F$(KF|
00002860: 29 2C C3 28 5A 5A 24 29 29 B3 B1 5A 5A 24 20 A7 |),.(ZZ$))..ZZ$ .|
00002870: 20 89 31 31 30 38 30 00 A1 30 34 2B 8D 20 32 39 | .11080..04+. 29|
00002880: 30 30 30 3A 8D 32 39 31 38 30 3A 8F 20 44 49 53 |000:.29180:. DIS|
00002890: 50 4C 41 59 20 52 45 43 20 26 20 50 52 4F 4D 50 |PLAY REC & PROMP|
000028A0: 54 00 C3 30 3E 2B 8B 20 C3 28 49 4E 24 29 B2 30 |T..0>+. .(IN$).0|
000028B0: 20 B0 20 49 4E 24 B2 22 59 22 20 A7 20 89 31 31 | . IN$."Y" . .11|
000028C0: 38 30 30 00 EF 30 48 2B 8B 20 C6 28 49 4B 24 29 |800..0H+. .(IK$)|
000028D0: B2 32 35 35 20 A7 20 8D 32 37 31 32 35 3A 8E 3A |.255 . .27125:.:|
000028E0: 8F 20 52 45 43 20 4E 4F 54 20 46 4F 55 4E 44 00 |. REC NOT FOUND.|
000028F0: 0B 31 52 2B 89 20 31 31 30 33 30 3A 8F 20 52 45 |.1R+. 11030:. RE|
00002900: 53 55 4D 45 20 53 45 41 52 43 48 00 31 31 18 2E |SUME SEARCH.11..|
00002910: 81 20 49 B2 31 20 A4 20 4E 46 3A 47 24 28 49 29 |. I.1 . NF:G$(I)|
00002920: B2 46 24 28 49 29 3A 82 20 49 3A 89 31 31 38 31 |.F$(I):. I:.1181|
00002930: 32 00 51 31 22 2E 8D 32 38 30 30 30 3A 8F 20 43 |2.Q1"..28000:. C|
00002940: 4F 4D 50 55 54 45 20 47 4C 42 20 26 20 50 43 27 |OMPUTE GLB & PC'|
00002950: 53 00 6D 31 23 2E 8D 32 39 30 30 30 3A 8F 20 44 |S.m1#..29000:. D|
00002960: 49 53 50 4C 41 59 20 52 45 43 4F 52 44 00 A7 31 |ISPLAY RECORD..1|
00002970: 24 2E 99 C8 28 59 24 2C 32 33 29 3B 22 D7 48 49 |$...(Y$,23);".HI|
00002980: 43 48 20 46 49 45 4C 44 20 54 4F 20 55 50 44 41 |CH FIELD TO UPDA|
00002990: 54 45 3F 20 28 31 2D 22 3B 4E 46 3B 22 20 4F 52 |TE? (1-";NF;" OR|
000029A0: 20 4C 49 53 54 29 22 00 D5 31 27 2E 99 22 28 D4 | LIST)"..1'.."(.|
000029B0: 59 50 45 20 12 46 31 92 20 54 4F 20 43 41 4E 43 |YPE .F1. TO CANC|
000029C0: 45 4C 2C 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 53 |EL,........ TO S|
000029D0: 41 56 45 29 22 00 F4 31 2F 2E 58 25 B2 20 33 35 |AVE)"..1/.X%. 35|
000029E0: 20 3A 59 25 B2 32 34 3A 4C 25 B2 34 3A 8D 20 33 | :Y%.24:L%.4:. 3|
000029F0: 34 30 30 30 00 12 32 2F 2E 55 46 B2 C5 28 49 4E |4000..2/.UF..(IN|
00002A00: 24 29 3A 8B 20 49 4E 24 B2 22 22 A7 20 31 31 39 |$):. IN$."". 119|
00002A10: 35 30 00 2C 32 30 2E 8B 20 49 4E 24 B3 B1 C7 28 |50.,20.. IN$...(|
00002A20: 31 33 33 29 20 A7 20 31 31 38 32 38 00 48 32 31 |133) . 11828.H21|
00002A30: 2E 8F 20 3D 3D 3D 20 43 4C 45 41 52 20 43 48 41 |.. === CLEAR CHA|
00002A40: 4E 47 45 53 20 3D 3D 3D 00 7B 32 32 2E 81 20 49 |NGES ===.{22.. I|
00002A50: B2 31 A4 4E 46 3A 47 24 28 49 29 B2 46 24 28 49 |.1.NF:G$(I).F$(I|
00002A60: 29 3A 82 49 3A 81 49 B2 31 A4 4E 43 3A 43 44 28 |):.I:.I.1.NC:CD(|
00002A70: 49 29 B2 43 45 28 49 29 3A 82 49 00 9F 32 33 2E |I).CE(I):.I..23.|
00002A80: 81 20 49 B2 31 A4 4E 47 3A 47 4B 28 49 29 B2 47 |. I.1.NG:GK(I).G|
00002A90: 4C 28 49 29 3A 82 49 3A 20 89 31 31 38 31 31 00 |L(I):.I: .11811.|
00002AA0: C7 32 34 2E 8B 20 49 4E 24 B2 22 4C 49 53 54 22 |.24.. IN$."LIST"|
00002AB0: A7 20 46 B2 30 20 3A 20 8D 20 32 30 30 30 30 3A |. F.0 : . 20000:|
00002AC0: 89 20 31 31 38 31 31 00 E8 32 35 2E 8F 20 3D 3D |. 11811..25.. ==|
00002AD0: 3D 20 54 45 53 54 20 31 20 3C 3D 20 55 46 20 3C |= TEST 1 <= UF <|
00002AE0: 3D 20 4E 46 20 3D 3D 3D 00 05 33 36 2E 8B 20 55 |= NF ===..36.. U|
00002AF0: 46 B1 30 20 AF 20 55 46 20 B3 B2 4E 46 20 A7 20 |F.0 . UF ..NF . |
00002B00: 31 31 38 35 30 00 1E 33 40 2E 99 20 C8 28 59 24 |11850..3@.. .(Y$|
00002B10: 2C 32 33 29 3B 53 50 24 3A 99 20 53 50 24 00 52 |,23);SP$:. SP$.R|
00002B20: 33 45 2E 99 20 C8 28 59 24 2C 32 33 29 3B 22 2A |3E.. .(Y$,23);"*|
00002B30: C9 4E 56 41 4C 49 44 20 46 49 45 4C 44 2A 22 3A |.NVALID FIELD*":|
00002B40: 81 49 B2 31 A4 31 30 30 30 3A 82 3A 89 31 31 38 |.I.1.1000:.:.118|
00002B50: 31 32 00 6D 33 4A 2E 8F 20 3D 3D 3D 20 43 48 41 |12.m3J.. === CHA|
00002B60: 4E 47 45 20 46 49 45 4C 44 20 3D 3D 3D 00 99 33 |NGE FIELD ===..3|
00002B70: 4C 2E 53 44 24 B2 C8 28 44 54 24 2C 4C 25 28 55 |L.SD$..(DT$,L%(U|
00002B80: 46 29 29 3A 8B 20 54 24 28 55 46 29 B3 B1 22 24 |F)):. T$(UF).."$|
00002B90: 22 20 A7 20 31 31 38 35 35 00 CA 33 4D 2E 4C 44 |" . 11855..3M.LD|
00002BA0: 25 B2 30 AB 20 4C 25 28 55 46 29 3A 8B 20 4C 44 |%.0. L%(UF):. LD|
00002BB0: 25 20 B1 20 30 20 A7 20 53 44 24 B2 53 44 24 AA |% . 0 . SD$.SD$.|
00002BC0: C8 28 53 50 24 2C 4C 44 25 29 00 EC 33 4F 2E 8B |.(SP$,LD%)..3O..|
00002BD0: 20 54 24 28 55 46 29 B2 22 44 22 20 A7 20 53 44 | T$(UF)."D" . SD|
00002BE0: 24 B2 22 2E 2E 2F 2E 2E 2F 2E 2E 22 00 13 34 51 |$."../../.."..4Q|
00002BF0: 2E 99 C8 28 59 24 2C 59 25 28 55 46 29 29 3B A3 |...(Y$,Y%(UF));.|
00002C00: 58 25 28 55 46 29 29 3B 50 52 24 28 55 46 29 3B |X%(UF));PR$(UF);|
00002C10: 53 44 24 00 1D 34 52 2E 47 24 B2 22 22 00 3A 34 |SD$..4R.G$."".:4|
00002C20: 54 2E 8B 20 55 46 B3 B2 20 30 20 B0 20 55 46 B1 |T.. UF.. 0 . UF.|
00002C30: 20 36 20 A7 20 31 31 38 36 34 00 6B 34 56 2E 91 | 6 . 11864.k4V..|
00002C40: 20 55 46 AB 20 30 20 8D 20 32 30 31 30 2C 20 32 | UF. 0 . 2010, 2|
00002C50: 30 36 30 2C 20 32 31 31 30 2C 20 32 31 36 30 2C |060, 2110, 2160,|
00002C60: 20 32 32 31 30 2C 20 32 32 36 30 00 89 34 58 2E | 2210, 2260..4X.|
00002C70: 8B 20 55 46 B3 B2 20 36 20 B0 20 55 46 B1 20 31 |. UF.. 6 . UF. 1|
00002C80: 32 20 A7 20 31 31 38 36 38 00 BA 34 5A 2E 91 20 |2 . 11868..4Z.. |
00002C90: 55 46 AB 20 36 20 8D 20 32 33 31 30 2C 20 32 33 |UF. 6 . 2310, 23|
00002CA0: 36 30 2C 20 32 34 30 30 2C 20 32 34 34 30 2C 20 |60, 2400, 2440, |
00002CB0: 32 34 39 30 2C 20 32 35 34 30 00 D9 34 5C 2E 8B |2490, 2540..4\..|
00002CC0: 20 55 46 B3 B2 20 31 32 20 B0 20 55 46 B1 20 31 | UF.. 12 . UF. 1|
00002CD0: 35 20 A7 20 31 31 38 37 32 00 F9 34 5E 2E 91 20 |5 . 11872..4^.. |
00002CE0: 55 46 AB 20 31 32 20 8D 20 32 36 30 30 2C 20 32 |UF. 12 . 2600, 2|
00002CF0: 36 36 30 2C 20 32 37 32 30 00 05 35 60 2E 89 20 |660, 2720..5`.. |
00002D00: 31 31 38 31 30 00 12 35 AE 2E 5A 24 B2 47 24 28 |11810..5..Z$.G$(|
00002D10: 31 29 00 33 35 B8 2E 8D 20 31 32 31 30 35 3A 8F |1).35... 12105:.|
00002D20: 20 44 45 4C 20 4F 4C 44 20 52 45 43 20 41 54 20 | DEL OLD REC AT |
00002D30: 58 50 54 00 40 35 C2 2E 47 24 28 31 29 B2 5A 24 |XPT.@5..G$(1).Z$|
00002D40: 00 5A 35 CC 2E 8D 39 32 30 30 3A 8F 20 45 4E 54 |.Z5...9200:. ENT|
00002D50: 45 52 20 4E 45 57 20 52 45 43 00 60 35 D6 2E 8E |ER NEW REC.`5...|
00002D60: 00 86 35 E0 2E 8F 20 3D 3D 3D 3D 20 52 45 43 4F |..5... ==== RECO|
00002D70: 52 44 20 44 45 4C 45 54 45 20 52 4F 55 54 49 4E |RD DELETE ROUTIN|
00002D80: 45 20 3D 3D 3D 3D 00 90 35 E5 2E 99 20 22 93 22 |E ====..5... "."|
00002D90: 00 B2 35 EA 2E 8D 20 32 37 30 30 30 3A 8F 20 50 |..5... 27000:. P|
00002DA0: 52 4F 4D 50 54 20 46 4F 52 20 48 41 53 48 20 4B |ROMPT FOR HASH K|
00002DB0: 45 59 00 C6 35 EF 2E 8B 20 49 4E 24 B2 C7 28 31 |EY..5... IN$..(1|
00002DC0: 33 33 29 A7 20 8E 00 F2 35 F4 2E 8B 20 C6 28 49 |33). ...5... .(I|
00002DD0: 4B 24 29 B2 32 35 35 20 A7 20 8D 32 37 31 32 35 |K$).255 . .27125|
00002DE0: 3A 8E 3A 8F 20 45 58 49 54 20 49 46 20 45 4D 50 |:.:. EXIT IF EMP|
00002DF0: 54 59 00 20 36 FE 2E 48 50 54 52 B2 49 4B 3A 48 |TY. 6..HPTR.IK:H|
00002E00: 4B 45 59 B2 52 50 3A 8F 20 53 41 56 45 20 48 41 |KEY.RP:. SAVE HA|
00002E10: 53 48 20 50 4F 49 4E 54 45 52 20 26 20 4B 45 59 |SH POINTER & KEY|
00002E20: 00 40 36 08 2F 52 50 B2 49 4B 3A 8D 34 30 30 30 |.@6./RP.IK:.4000|
00002E30: 30 3A 8F 20 47 45 54 20 44 41 54 41 20 52 45 43 |0:. GET DATA REC|
00002E40: 00 78 36 12 2F 52 50 B2 49 4B AA 4D 53 AA 34 3A |.x6./RP.IK.MS.4:|
00002E50: 8D 35 32 31 30 30 3A 8D 35 32 31 33 35 3A 8F 20 |.52100:.52135:. |
00002E60: 52 45 41 44 20 46 49 4C 45 20 4C 49 4E 4B 20 50 |READ FILE LINK P|
00002E70: 54 52 20 49 4E 20 2F 59 00 98 36 17 2F 44 52 50 |TR IN /Y..6./DRP|
00002E80: 24 B2 49 4B 24 3A 8F 20 53 41 56 45 20 44 45 4C |$.IK$:. SAVE DEL|
00002E90: 20 52 45 43 20 50 54 52 00 BD 36 1A 2F 8B 20 C8 | REC PTR..6./. .|
00002EA0: 28 46 24 28 4B 46 29 2C C3 28 5A 5A 24 29 29 B3 |(F$(KF),.(ZZ$)).|
00002EB0: B1 5A 5A 24 20 A7 20 89 31 32 30 38 30 00 E7 36 |.ZZ$ . .12080..6|
00002EC0: 1C 2F 8D 20 32 39 30 30 30 3A 8D 32 39 31 38 30 |./. 29000:.29180|
00002ED0: 3A 8F 20 44 49 53 50 4C 41 59 20 52 45 43 20 26 |:. DISPLAY REC &|
00002EE0: 20 50 52 4F 4D 50 54 00 08 37 26 2F 8B 20 49 4E | PROMPT..7&/. IN|
00002EF0: 24 B2 22 59 22 20 B0 20 C3 28 49 4E 24 29 B2 30 |$."Y" . .(IN$).0|
00002F00: 20 A7 20 31 32 30 39 35 00 34 37 30 2F 8B 20 C6 | . 12095.470/. .|
00002F10: 28 49 4B 24 29 B2 32 35 35 20 A7 20 8D 32 37 31 |(IK$).255 . .271|
00002F20: 32 35 3A 8E 3A 8F 20 52 45 43 20 4E 4F 54 20 46 |25:.:. REC NOT F|
00002F30: 4F 55 4E 44 00 40 37 3A 2F 89 20 31 32 30 33 30 |OUND.@7:/. 12030|
00002F40: 00 66 37 3F 2F 8D 20 31 32 38 30 30 3A 8F 20 44 |.f7?/. 12800:. D|
00002F50: 49 53 50 4C 41 59 20 50 52 4D 50 54 20 54 4F 20 |ISPLAY PRMPT TO |
00002F60: 44 45 4C 45 54 45 00 78 37 42 2F 8B 20 49 4E 24 |DELETE.x7B/. IN$|
00002F70: B2 22 4E 22 20 A7 20 8E 00 A7 37 44 2F 4E 52 B2 |."N" . ...7D/NR.|
00002F80: 4E 52 AB 31 3A 52 4D B2 52 4D AA 31 3A 8F 20 55 |NR.1:RM.RM.1:. U|
00002F90: 50 44 41 54 45 20 23 52 45 43 20 26 20 53 50 41 |PDATE #REC & SPA|
00002FA0: 43 45 20 4C 45 46 54 00 E4 37 49 2F 47 24 28 31 |CE LEFT..7I/G$(1|
00002FB0: 29 B2 C8 28 C7 28 32 35 35 29 AA 53 53 24 2C 4C |)..(.(255).SS$,L|
00002FC0: 25 28 31 29 29 3A 52 50 B2 48 50 54 52 3A 8D 34 |%(1)):RP.HPTR:.4|
00002FD0: 32 30 30 30 3A 8F 20 4E 55 4C 4C 20 44 41 54 41 |2000:. NULL DATA|
00002FE0: 20 52 45 43 00 1E 38 4C 2F 52 50 B2 48 50 54 52 | REC..8L/RP.HPTR|
00002FF0: AA 4D 53 AA 34 3A 8D 35 32 31 30 30 3A 49 4B 24 |.MS.4:.52100:IK$|
00003000: B2 58 46 53 24 3A 8D 35 32 31 34 35 3A 8F 20 4D |.XFS$:.52145:. M|
00003010: 4F 56 45 20 58 46 53 20 54 4F 20 44 52 4C 00 40 |OVE XFS TO DRL.@|
00003020: 38 4E 2F 58 46 53 24 B2 C4 28 48 50 54 52 29 3A |8N/XFS$..(HPTR):|
00003030: 8F 20 53 45 54 20 58 46 53 20 54 4F 20 44 52 50 |. SET XFS TO DRP|
00003040: 00 81 38 58 2F 52 50 B2 48 4B 45 59 3A 8D 35 32 |..8X/RP.HKEY:.52|
00003050: 31 30 30 3A 49 4B 24 B2 44 52 50 24 3A 8D 35 32 |100:IK$.DRP$:.52|
00003060: 31 34 35 3A 8F 20 4D 4F 56 45 20 4C 49 4E 4B 20 |145:. MOVE LINK |
00003070: 50 54 52 20 54 4F 20 48 41 53 48 20 54 41 42 4C |PTR TO HASH TABL|
00003080: 45 00 87 38 9E 2F 8E 00 9A 38 00 32 99 C8 28 59 |E..8./...8.2..(Y|
00003090: 24 2C 32 34 29 3B 53 50 24 3B 00 CC 38 02 32 99 |$,24);SP$;..8.2.|
000030A0: C8 28 59 24 2C 32 34 29 3B 22 D3 55 52 45 20 59 |.(Y$,24);".URE Y|
000030B0: 4F 55 20 57 41 4E 54 20 54 4F 20 44 45 4C 45 54 |OU WANT TO DELET|
000030C0: 45 20 49 54 3F 20 28 59 2F 4E 29 22 00 E8 38 05 |E IT? (Y/N)"..8.|
000030D0: 32 59 25 B2 32 34 3A 58 25 B2 33 34 3A 4C 25 B2 |2Y%.24:X%.34:L%.|
000030E0: 31 3A 8D 33 34 30 30 30 00 08 39 14 32 8B 20 49 |1:.34000..9.2. I|
000030F0: 4E 24 B3 B1 22 59 22 AF 20 49 4E 24 B3 B1 22 4E |N$.."Y". IN$.."N|
00003100: 22 A7 20 31 32 38 30 30 00 0E 39 1E 32 8E 00 39 |". 12800..9.2..9|
00003110: 39 C7 32 8F 20 3D 3D 3D 3D 20 47 4C 4F 42 41 4C |9.2. ==== GLOBAL|
00003120: 20 54 4F 54 41 4C 20 49 4E 50 55 54 20 52 4F 55 | TOTAL INPUT ROU|
00003130: 54 49 4E 45 20 3D 3D 3D 3D 00 5C 39 C8 32 9F 33 |TINE ====.\9.2.3|
00003140: 2C 38 2C 33 2C 22 30 3A 41 43 43 54 53 52 2F 47 |,8,3,"0:ACCTSR/G|
00003150: 4C 42 2C 4C 2C 22 AA C7 28 31 35 29 00 6A 39 CD |LB,L,"..(15).j9.|
00003160: 32 81 20 49 49 B2 31 A4 4E 47 00 75 39 D2 32 84 |2. II.1.NG.u9.2.|
00003170: 33 2C 47 4C 24 00 87 39 DC 32 47 4C 28 49 49 29 |3,GL$..9.2GL(II)|
00003180: B2 C5 28 47 4C 24 29 00 8F 39 E6 32 82 49 49 00 |..(GL$)..9.2.II.|
00003190: 98 39 F0 32 A0 33 3A 8E 00 9E 39 28 33 8F 00 CA |.9.2.3:...9(3...|
000031A0: 39 29 33 8F 20 3D 3D 3D 3D 20 47 4C 4F 42 41 4C |9)3. ==== GLOBAL|
000031B0: 20 54 4F 54 41 4C 20 55 50 44 41 54 45 20 52 4F | TOTAL UPDATE RO|
000031C0: 55 54 49 4E 45 20 3D 3D 3D 3D 00 FB 39 2A 33 8F |UTINE ====..9*3.|
000031D0: 20 3D 3D 20 20 20 57 39 20 49 53 20 54 48 45 20 | == W9 IS THE |
000031E0: 44 41 54 41 20 46 49 4C 45 27 53 20 46 49 45 4C |DATA FILE'S FIEL|
000031F0: 44 20 4E 55 4D 42 45 52 20 3D 3D 00 3F 3A 2B 33 |D NUMBER ==.?:+3|
00003200: 8F 20 3D 3D 20 20 20 49 4A 20 49 53 20 46 49 45 |. == IJ IS FIE|
00003210: 4C 44 20 4E 55 4D 42 45 52 20 4F 46 20 54 48 45 |LD NUMBER OF THE|
00003220: 20 43 4F 52 52 45 53 50 4F 4E 44 49 4E 47 20 47 | CORRESPONDING G|
00003230: 4C 4F 42 41 4C 20 54 4F 54 41 4F 20 20 3D 3D 00 |LOBAL TOTAO ==.|
00003240: 62 3A 2C 33 9F 33 2C 38 2C 33 2C 22 30 3A 41 43 |b:,3.3,8,3,"0:AC|
00003250: 43 54 53 52 2F 47 4C 42 2C 4C 2C 22 AA C7 28 31 |CTSR/GLB,L,"..(1|
00003260: 35 29 00 70 3A 2E 33 81 20 57 39 B2 31 A4 4E 46 |5).p:.3. W9.1.NF|
00003270: 00 81 3A 31 33 49 4A 20 B2 20 47 53 25 28 57 39 |..:13IJ . GS%(W9|
00003280: 29 00 A7 3A 36 33 8B 49 4A 20 B2 20 30 A7 31 33 |)..:63.IJ . 0.13|
00003290: 31 33 35 20 3A 20 8F 20 4E 4F 20 47 4C 4F 42 41 |135 : . NO GLOBA|
000032A0: 4C 20 46 49 45 4C 44 00 B2 3A 3B 33 8D 35 32 31 |L FIELD..:;3.521|
000032B0: 35 30 00 D5 3A 3E 33 8B 41 4E 24 B2 22 55 22 A7 |50..:>3.AN$."U".|
000032C0: 20 47 4C 28 49 4A 29 B2 47 4B 28 49 4A 29 3A 89 | GL(IJ).GK(IJ):.|
000032D0: 31 33 31 33 30 00 FF 3A 40 33 8B 41 4E 24 B2 22 |13130..:@3.AN$."|
000032E0: 44 22 A7 20 47 4C 28 49 4A 29 20 B2 20 47 4C 28 |D". GL(IJ) . GL(|
000032F0: 49 4A 29 20 AB 20 C5 28 46 24 28 57 39 29 29 00 |IJ) . .(F$(W9)).|
00003300: 29 3B 45 33 8B 41 4E 24 B2 22 45 22 A7 20 47 4C |);E3.AN$."E". GL|
00003310: 28 49 4A 29 20 B2 20 47 4C 28 49 4A 29 20 AA 20 |(IJ) . GL(IJ) . |
00003320: C5 28 47 24 28 57 39 29 29 00 3A 3B 4A 33 98 33 |.(G$(W9)).:;J3.3|
00003330: 2C C4 28 47 4C 28 49 4A 29 29 00 42 3B 4F 33 82 |,.(GL(IJ)).B;O3.|
00003340: 57 39 00 50 3B 54 33 81 20 57 39 B2 31 A4 4E 43 |W9.P;T3. W9.1.NC|
00003350: 00 64 3B 59 33 49 4A 20 B2 20 47 53 25 28 57 39 |.d;Y3IJ . GS%(W9|
00003360: AA 4E 46 29 00 8A 3B 5E 33 8B 49 4A 20 B2 20 30 |.NF)..;^3.IJ . 0|
00003370: A7 31 33 31 37 35 20 3A 20 8F 20 4E 4F 20 47 4C |.13175 : . NO GL|
00003380: 4F 42 41 4C 20 46 49 45 4C 44 00 95 3B 63 33 8D |OBAL FIELD..;c3.|
00003390: 35 32 31 35 30 00 B8 3B 66 33 8B 41 4E 24 B2 22 |52150..;f3.AN$."|
000033A0: 55 22 A7 20 47 4C 28 49 4A 29 B2 47 4B 28 49 4A |U". GL(IJ).GK(IJ|
000033B0: 29 3A 89 31 33 31 37 30 00 DF 3B 68 33 8B 41 4E |):.13170..;h3.AN|
000033C0: 24 B2 22 44 22 A7 20 47 4C 28 49 4A 29 20 B2 20 |$."D". GL(IJ) . |
000033D0: 47 4C 28 49 4A 29 20 AB 20 43 45 28 57 39 29 00 |GL(IJ) . CE(W9).|
000033E0: 06 3C 6D 33 8B 41 4E 24 B2 22 45 22 A7 20 47 4C |.<m3.AN$."E". GL|
000033F0: 28 49 4A 29 20 B2 20 47 4C 28 49 4A 29 20 AA 20 |(IJ) . GL(IJ) . |
00003400: 43 44 28 57 39 29 00 17 3C 72 33 98 33 2C C4 28 |CD(W9)..<r3.3,.(|
00003410: 47 4C 28 49 4A 29 29 00 1F 3C 77 33 82 57 39 00 |GL(IJ))..<w3.W9.|
00003420: 28 3C 7C 33 A0 33 3A 8E 00 2E 3C 8E 33 8F 00 5A |(<|3.3:...<.3..Z|
00003430: 3C 8F 33 8F 20 3D 3D 3D 3D 20 56 45 52 49 46 59 |<.3. ==== VERIFY|
00003440: 20 41 4C 4C 20 47 4C 4F 42 41 4C 20 56 41 52 49 | ALL GLOBAL VARI|
00003450: 41 42 4C 45 53 20 3D 3D 3D 3D 00 9E 3C 90 33 8F |ABLES ====..<.3.|
00003460: 20 3D 3D 20 20 20 47 45 4E 45 52 41 54 4F 52 20 | == GENERATOR |
00003470: 57 49 4C 4C 20 4B 4E 4F 57 20 57 48 49 43 48 20 |WILL KNOW WHICH |
00003480: 54 4F 54 41 4C 53 20 41 52 45 20 54 48 45 20 47 |TOTALS ARE THE G|
00003490: 4C 4F 42 41 4C 20 4F 4E 45 53 20 20 3D 3D 00 D9 |LOBAL ONES ==..|
000034A0: 3C 93 33 99 C7 28 31 34 37 29 3B C8 28 59 24 2C |<.3..(147);.(Y$,|
000034B0: 35 29 22 D6 45 52 49 46 49 43 41 54 49 4F 4E 20 |5)".ERIFICATION |
000034C0: 57 49 4C 4C 20 54 41 4B 45 20 41 20 4C 49 54 54 |WILL TAKE A LITT|
000034D0: 4C 45 20 57 48 49 4C 45 22 00 E6 3C 95 33 81 49 |LE WHILE"..<.3.I|
000034E0: 49 B2 31 A4 4E 47 00 07 3D 9A 33 47 4D 28 49 49 |I.1.NG..=.3GM(II|
000034F0: 29 20 B2 20 30 20 3A 20 47 4B 28 49 49 29 20 B2 |) . 0 : GK(II) .|
00003500: 20 47 4C 28 49 49 29 00 0F 3D 9C 33 82 49 49 00 | GL(II)..=.3.II.|
00003510: 24 3D 9F 33 81 20 52 50 B2 31 A4 C5 28 4E 58 52 |$=.3. RP.1..(NXR|
00003520: 24 29 AB 32 00 3E 3D A4 33 8D 20 34 30 30 30 35 |$).2.>=.3. 40005|
00003530: 3A 8F 20 4E 45 58 54 20 52 45 43 4F 52 44 00 5D |:. NEXT RECORD.]|
00003540: 3D A9 33 8B C8 28 46 24 28 31 29 2C 31 29 20 B2 |=.3..(F$(1),1) .|
00003550: 20 C7 28 32 35 35 29 A7 31 33 32 35 35 00 6B 3D | .(255).13255.k=|
00003560: AE 33 81 20 49 4A B2 31 A4 4E 46 00 A0 3D B8 33 |.3. IJ.1.NF..=.3|
00003570: 8B 47 53 25 28 49 4A 29 20 B1 20 30 A7 47 4D 28 |.GS%(IJ) . 0.GM(|
00003580: 47 53 25 28 49 4A 29 29 20 B2 20 47 4D 28 47 53 |GS%(IJ)) . GM(GS|
00003590: 25 28 49 4A 29 29 AA C5 28 46 24 28 49 4A 29 29 |%(IJ))..(F$(IJ))|
000035A0: 00 A8 3D C2 33 82 49 4A 00 B0 3D C7 33 82 52 50 |..=.3.IJ..=.3.RP|
000035B0: 00 BD 3D C9 33 81 49 49 B2 31 A4 4E 47 00 D1 3D |..=.3.II.1.NG..=|
000035C0: CC 33 47 4C 28 49 49 29 20 B2 20 47 4D 28 49 49 |.3GL(II) . GM(II|
000035D0: 29 00 D9 3D D6 33 82 49 49 00 E7 3D DB 33 81 20 |)..=.3.II..=.3. |
000035E0: 49 4A B2 31 A4 4E 43 00 FA 3D E0 33 4A 4B 20 B2 |IJ.1.NC..=.3JK .|
000035F0: 47 53 25 28 49 4A AA 4E 46 29 00 0C 3E E5 33 8B |GS%(IJ.NF)..>.3.|
00003600: 4A 4B 20 B2 20 30 A7 31 33 33 35 30 00 21 3E EA |JK . 0.13350.!>.|
00003610: 33 81 20 52 50 B2 31 A4 C5 28 4E 58 52 24 29 AB |3. RP.1..(NXR$).|
00003620: 32 00 2D 3E F4 33 8D 20 34 30 30 30 35 00 4C 3E |2.->.3. 40005.L>|
00003630: FE 33 8B C8 28 46 24 28 31 29 2C 31 29 20 B2 20 |.3..(F$(1),1) . |
00003640: C7 28 32 35 35 29 A7 31 33 33 34 30 00 65 3E 08 |.(255).13340.e>.|
00003650: 34 81 20 50 5A B2 31 A4 49 4A 3A 8D 32 38 35 30 |4. PZ.1.IJ:.2850|
00003660: 30 3A 82 50 5A 00 82 3E 12 34 47 4D 28 4A 4B 29 |0:.PZ..>.4GM(JK)|
00003670: 20 B2 20 47 4D 28 4A 4B 29 20 AA 20 43 45 28 49 | . GM(JK) . CE(I|
00003680: 4A 29 00 8A 3E 1C 34 82 52 50 00 AD 3E 21 34 47 |J)..>.4.RP..>!4G|
00003690: 4C 28 47 53 25 28 49 4A AA 4E 46 29 29 20 B2 47 |L(GS%(IJ.NF)) .G|
000036A0: 4D 28 47 53 25 28 49 4A AA 4E 46 29 29 00 B5 3E |M(GS%(IJ.NF))..>|
000036B0: 26 34 82 49 4A 00 CA 3E 30 34 99 C7 28 31 34 37 |&4.IJ..>04..(147|
000036C0: 29 3B C8 28 59 24 2C 33 29 3B 00 01 3F 35 34 99 |);.(Y$,3);..?54.|
000036D0: 22 C6 49 45 4C 44 22 3B A3 31 35 29 3B 22 CF 4C |".IELD";.15);".L|
000036E0: 44 20 D4 4F 54 41 4C 22 3B A3 32 35 29 3B 22 D6 |D .OTAL";.25);".|
000036F0: 45 52 49 46 49 45 44 20 D4 4F 54 41 4C 22 3A 20 |ERIFIED .OTAL": |
00003700: 99 00 0F 3F 3A 34 81 20 49 4A B2 31 A4 4E 47 00 |...?:4. IJ.1.NG.|
00003710: 34 3F 44 34 99 47 50 24 28 49 4A 29 3B A3 31 35 |4?D4.GP$(IJ);.15|
00003720: 29 3B 47 4B 28 49 4A 29 3B A3 32 35 29 3B 47 4D |);GK(IJ);.25);GM|
00003730: 28 49 4A 29 00 4F 3F 4E 34 8B 47 4B 28 49 4A 29 |(IJ).O?N4.GK(IJ)|
00003740: 20 B2 20 47 4D 28 49 4A 29 A7 31 33 34 33 30 00 | . GM(IJ).13430.|
00003750: 6F 3F 58 34 99 22 2A 20 4F 4C 44 20 54 4F 54 41 |o?X4."* OLD TOTA|
00003760: 4C 20 43 4F 52 52 45 43 54 45 44 20 2A 22 3B 00 |L CORRECTED *";.|
00003770: 93 3F 62 34 9F 33 2C 38 2C 33 2C 22 30 3A 41 43 |.?b4.3,8,3,"0:AC|
00003780: 43 54 53 52 2F 47 4C 42 2C 4C 2C 22 AA C7 28 31 |CTSR/GLB,L,"..(1|
00003790: 35 29 3A 00 AB 3F 6C 34 8D 35 32 31 35 30 3A 98 |5):..?l4.52150:.|
000037A0: 33 2C 47 4C 28 49 4A 29 3A A0 33 00 B1 3F 76 34 |3,GL(IJ):.3..?v4|
000037B0: 99 00 B9 3F 80 34 82 49 4A 00 E4 3F 85 34 99 C8 |...?.4.IJ..?.4..|
000037C0: 28 59 24 2C 32 34 29 3B 22 D0 52 45 53 53 20 12 |(Y$,24);".RESS .|
000037D0: D2 C5 D4 D5 D2 CE 92 20 54 4F 20 43 4F 4E 54 49 |....... TO CONTI|
000037E0: 4E 55 45 22 00 00 40 88 34 A1 20 41 41 24 3A 8B |NUE"..@.4. AA$:.|
000037F0: 41 41 24 B3 B1 C7 28 31 33 29 A7 31 33 34 34 38 |AA$...(13).13448|
00003800: 00 06 40 8A 34 8E 00 0C 40 94 34 8F 00 2F 40 1F |..@.4...@.4../@.|
00003810: 4E 8F 20 3D 3D 3D 3D 20 4C 49 53 54 20 46 49 45 |N. ==== LIST FIE|
00003820: 4C 44 20 4E 55 4D 42 45 52 53 20 3D 3D 3D 3D 00 |LD NUMBERS ====.|
00003830: 5F 40 20 4E 99 22 93 CB 45 59 42 4F 41 52 44 2D |_@ N."..EYBOARD-|
00003840: 45 4E 54 45 52 45 44 20 46 49 45 4C 44 53 3A 22 |ENTERED FIELDS:"|
00003850: 3A 81 20 4A B2 31 20 A4 20 4E 46 20 A9 20 32 00 |:. J.1 . NF . 2.|
00003860: 74 40 2A 4E 99 20 4A 3B 22 2D 20 22 3B 50 52 24 |t@*N. J;"- ";PR$|
00003870: 28 4A 29 3B 00 99 40 34 4E 8B 4A B3 4E 46 20 A7 |(J);..@4N.J.NF .|
00003880: 20 99 A3 31 39 29 3B 4A AA 31 3B 22 2D 20 22 3B | ..19);J.1;"- ";|
00003890: 50 52 24 28 4A AA 31 29 3B 00 A5 40 3E 4E 99 20 |PR$(J.1);..@>N. |
000038A0: 3A 20 82 20 4A 00 B5 40 E8 4E 8B 46 B3 B1 32 A7 |: . J..@.N.F..2.|
000038B0: 32 30 32 36 30 00 D8 40 F2 4E 99 3A 99 22 D0 52 |20260..@.N.:.".R|
000038C0: 4F 47 52 41 4D 20 C3 41 4C 43 55 4C 41 54 45 44 |OGRAM .ALCULATED|
000038D0: 20 C6 49 45 4C 44 53 22 00 E6 40 FC 4E 81 4A B2 | .IELDS"..@.N.J.|
000038E0: 31 A4 4E 43 A9 32 00 FD 40 06 4F 99 4A AA 4E 46 |1.NC.2..@.O.J.NF|
000038F0: 3B 22 2D 20 22 3B 43 50 24 28 4A 29 3B 00 23 41 |;"- ";CP$(J);.#A|
00003900: 10 4F 8B 4A B3 4E 43 A7 99 A3 31 39 29 3B 4A AA |.O.J.NC...19);J.|
00003910: 4E 46 AA 31 3B 22 2D 20 22 3B 43 50 24 28 4A AA |NF.1;"- ";CP$(J.|
00003920: 31 29 3B 00 2C 41 1A 4F 99 3A 82 4A 00 36 41 24 |1);.,A.O.:.J.6A$|
00003930: 4F 8F 20 50 43 53 00 63 41 6E 50 99 20 C8 28 59 |O. PCS.cAnP. .(Y|
00003940: 24 2C 32 34 29 3B 22 D0 52 45 53 53 20 12 D2 C5 |$,24);".RESS ...|
00003950: D4 D5 D2 CE 92 20 54 4F 20 43 4F 4E 54 49 4E 55 |..... TO CONTINU|
00003960: 45 22 3B 00 84 41 78 50 A1 20 41 41 24 20 3A 20 |E";..AxP. AA$ : |
00003970: 8B 20 41 41 24 B3 B1 C7 28 31 33 29 20 A7 20 32 |. AA$...(13) . 2|
00003980: 30 36 30 30 00 94 41 82 50 99 C7 28 31 34 37 29 |0600..A.P..(147)|
00003990: 20 3A 20 8E 00 C2 41 08 52 81 20 49 B2 31 20 A4 | : ...A.R. I.1 .|
000039A0: 20 4E 46 3A 8B 54 24 28 49 29 B3 B1 22 44 22 A7 | NF:.T$(I).."D".|
000039B0: 20 53 44 24 B2 47 24 28 49 29 3A 89 20 32 31 30 | SD$.G$(I):. 210|
000039C0: 32 30 00 F5 41 12 52 53 44 24 B2 C8 28 47 24 28 |20..A.RSD$..(G$(|
000039D0: 49 29 2C 32 29 AA 22 2F 22 AA CA 28 47 24 28 49 |I),2)."/"..(G$(I|
000039E0: 29 2C 33 2C 32 29 AA 22 2F 22 AA C9 28 47 24 28 |),3,2)."/"..(G$(|
000039F0: 49 29 2C 32 29 00 1D 42 1C 52 99 C8 28 59 24 2C |I),2)..B.R..(Y$,|
00003A00: 59 25 28 49 29 29 3B A3 58 25 28 49 29 29 3B 50 |Y%(I));.X%(I));P|
00003A10: 52 24 28 49 29 3B 53 44 24 3A 82 20 49 00 23 42 |R$(I);SD$:. I.#B|
00003A20: 26 52 8E 00 34 42 30 52 53 44 24 B2 C4 28 43 44 |&R..4B0RSD$..(CD|
00003A30: 28 49 29 29 00 5B 42 3A 52 99 C8 28 59 24 2C 43 |(I)).[B:R..(Y$,C|
00003A40: 59 25 28 49 29 29 3B A3 43 58 25 28 49 29 29 3B |Y%(I));.CX%(I));|
00003A50: 43 50 24 28 49 29 3B 53 44 24 3B 00 62 42 44 52 |CP$(I);SD$;.bBDR|
00003A60: 82 49 00 71 42 46 52 81 20 49 B2 31 20 A4 20 4E |.I.qBFR. I.1 . N|
00003A70: 54 00 94 42 48 52 99 20 C8 28 59 24 2C 54 59 25 |T..BHR. .(Y$,TY%|
00003A80: 28 49 29 29 A3 54 58 25 28 49 29 AA 31 29 54 50 |(I)).TX%(I).1)TP|
00003A90: 24 28 49 29 00 9C 42 4A 52 82 20 49 00 A2 42 4E |$(I)..BJR. I..BN|
00003AA0: 52 8E 00 BA 42 90 65 58 B2 30 3A 81 20 5A 5A B2 |R...B.eX.0:. ZZ.|
00003AB0: 31 20 A4 20 C3 28 5A 5A 24 29 00 D4 42 9A 65 58 |1 . .(ZZ$)..B.eX|
00003AC0: B2 58 AA 5A 5A AC C6 28 CA 28 5A 5A 24 2C 5A 5A |.X.ZZ..(.(ZZ$,ZZ|
00003AD0: 2C 31 29 29 00 DD 42 A4 65 82 20 5A 5A 00 00 43 |,1))..B.e. ZZ..C|
00003AE0: AE 65 58 B2 BC 28 58 29 3A 58 24 B2 C4 28 58 29 |.eX..(X):X$..(X)|
00003AF0: 3A 52 50 B2 C5 28 CA 28 58 24 2C 36 2C 34 29 29 |:RP..(.(X$,6,4))|
00003B00: 00 18 43 B8 65 52 50 B2 B5 28 4D 53 AC 52 50 AD |..C.eRP..(MS.RP.|
00003B10: 31 30 30 30 30 29 AA 35 00 1E 43 C2 65 8E 00 58 |10000).5..C.e..X|
00003B20: 43 78 69 99 22 93 22 3A 53 44 24 B2 C8 28 44 54 |Cxi.".":SD$..(DT|
00003B30: 24 2C 4C 25 28 20 4B 46 20 29 29 3A 8B 54 24 28 |$,L%( KF )):.T$(|
00003B40: 20 4B 46 20 29 B2 22 44 22 A7 53 44 24 B2 22 2E | KF )."D".SD$.".|
00003B50: 2E 2F 2E 2E 2F 2E 2E 22 00 85 43 82 69 99 C8 28 |./../.."..C.i..(|
00003B60: 59 24 2C 59 25 28 20 4B 46 20 29 29 3B A3 58 25 |Y$,Y%( KF ));.X%|
00003B70: 28 20 4B 46 20 29 29 3B 50 52 24 28 20 4B 46 20 |( KF ));PR$( KF |
00003B80: 29 3B 53 44 24 00 B9 43 8C 69 99 C8 28 59 24 2C |);SD$..C.i..(Y$,|
00003B90: 32 34 29 3B 22 D0 4C 45 41 53 45 20 45 4E 54 45 |24);".LEASE ENTE|
00003BA0: 52 20 4B 45 59 20 4F 46 20 44 45 53 49 52 45 44 |R KEY OF DESIRED|
00003BB0: 20 52 45 43 4F 52 44 2E 22 00 C3 43 96 69 8D 32 | RECORD."..C.i.2|
00003BC0: 30 31 30 00 D7 43 97 69 8B 20 49 4E 24 B2 C7 28 |010..C.i. IN$..(|
00003BD0: 31 33 33 29 A7 20 8E 00 01 44 AA 69 5A 5A 24 B2 |133). ...D.iZZ$.|
00003BE0: 47 24 28 4B 46 29 3A 8D 20 32 36 30 30 30 3A 8F |G$(KF):. 26000:.|
00003BF0: 20 43 4F 4D 50 55 54 45 20 48 41 53 48 20 4B 45 | COMPUTE HASH KE|
00003C00: 59 00 27 44 BE 69 8D 35 32 31 30 30 3A 8D 35 32 |Y.'D.i.52100:.52|
00003C10: 31 33 35 3A 8F 20 52 45 41 44 20 48 41 53 48 20 |135:. READ HASH |
00003C20: 50 4F 49 4E 54 45 52 00 2D 44 C8 69 8E 00 5A 44 |POINTER.-D.i..ZD|
00003C30: E6 69 8F 20 3D 20 20 20 20 44 49 53 50 4C 41 59 |.i. = DISPLAY|
00003C40: 20 52 45 43 20 4E 4F 54 20 46 4F 55 4E 44 20 50 | REC NOT FOUND P|
00003C50: 52 4F 4D 50 54 20 20 20 20 3D 00 6D 44 F5 69 99 |ROMPT =.mD.i.|
00003C60: C8 28 59 24 2C 32 34 29 3B 53 50 24 3B 00 A6 44 |.(Y$,24);SP$;..D|
00003C70: FA 69 99 C8 28 59 24 2C 32 33 29 22 D2 45 43 4F |.i..(Y$,23)".ECO|
00003C80: 52 44 20 4E 4F 54 20 46 4F 55 4E 44 20 2D 20 D4 |RD NOT FOUND - .|
00003C90: 59 50 45 20 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 |YPE ........ TO |
00003CA0: 45 58 49 54 2E 22 00 C5 44 04 6A A1 20 41 41 24 |EXIT."..D.j. AA$|
00003CB0: 3A 8B 20 41 41 24 B3 B1 C7 28 31 33 29 20 A7 20 |:. AA$...(13) . |
00003CC0: 32 37 31 34 30 00 CB 44 0E 6A 8E 00 DD 44 60 6D |27140..D.j...D`m|
00003CD0: 81 20 49 49 20 B2 20 31 20 A4 20 4E 46 00 EE 44 |. II . 1 . NF..D|
00003CE0: 6A 6D 49 4A 20 B2 20 47 53 25 28 49 49 29 00 03 |jmIJ . GS%(II)..|
00003CF0: 45 74 6D 8B 20 49 4A 20 B2 20 30 20 A7 20 32 38 |Etm. IJ . 0 . 28|
00003D00: 30 34 30 00 2F 45 7E 6D 47 4B 28 49 4A 29 20 B2 |040./E~mGK(IJ) .|
00003D10: 20 47 4C 28 49 4A 29 20 AA 20 C5 28 47 24 28 49 | GL(IJ) . .(G$(I|
00003D20: 49 29 29 20 AB 20 C5 28 46 24 28 49 49 29 29 00 |I)) . .(F$(II)).|
00003D30: 38 45 88 6D 82 20 49 49 00 49 45 92 6D 81 20 49 |8E.m. II.IE.m. I|
00003D40: 49 20 B2 31 20 A4 20 4E 43 00 5F 45 9C 6D 50 5A |I .1 . NC._E.mPZ|
00003D50: 20 B2 20 49 49 20 3A 20 8D 20 32 38 31 30 30 00 | . II : . 28100.|
00003D60: 73 45 A1 6D 49 4A 20 B2 20 47 53 25 28 49 49 AA |sE.mIJ . GS%(II.|
00003D70: 4E 46 29 00 88 45 A6 6D 8B 20 49 4A 20 B2 20 30 |NF)..E.m. IJ . 0|
00003D80: 20 A7 20 32 38 30 38 30 00 AE 45 AB 6D 47 4B 28 | . 28080..E.mGK(|
00003D90: 49 4A 29 20 B2 20 47 4C 28 49 4A 29 20 AA 20 43 |IJ) . GL(IJ) . C|
00003DA0: 44 28 49 49 29 20 AB 20 43 45 28 49 49 29 00 B7 |D(II) . CE(II)..|
00003DB0: 45 B0 6D 82 20 49 49 00 BD 45 B5 6D 8E 00 DE 45 |E.m. II..E.m...E|
00003DC0: BF 6D 8F 20 3D 3D 3D 3D 20 43 41 4C 43 55 4C 41 |.m. ==== CALCULA|
00003DD0: 54 45 20 43 44 28 50 5A 29 20 3D 3D 3D 3D 00 19 |TE CD(PZ) ====..|
00003DE0: 46 C1 6D 8F 20 3D 3D 3D 3D 20 41 53 53 55 4D 49 |F.m. ==== ASSUMI|
00003DF0: 4E 47 20 43 44 28 31 29 20 54 48 52 55 20 43 44 |NG CD(1) THRU CD|
00003E00: 28 50 5A 2D 31 29 20 49 53 20 43 41 4C 43 55 4C |(PZ-1) IS CALCUL|
00003E10: 41 54 45 44 20 3D 3D 3D 3D 00 36 46 C4 6D 8B 20 |ATED ====.6F.m. |
00003E20: 50 5A B3 B2 20 30 20 B0 20 50 5A B1 20 31 20 A7 |PZ.. 0 . PZ. 1 .|
00003E30: 20 32 38 31 30 34 00 4B 46 C6 6D 91 20 50 5A AB | 28104.KF.m. PZ.|
00003E40: 20 30 20 8D 20 20 32 38 32 30 30 00 51 46 C8 6D | 0 . 28200.QF.m|
00003E50: 8E 00 79 46 28 6E 43 44 28 31 29 B2 C5 28 47 24 |..yF(nCD(1)..(G$|
00003E60: 28 31 33 29 29 AA C5 28 47 24 28 31 34 29 29 AB |(13))..(G$(14)).|
00003E70: C5 28 47 24 28 31 35 29 29 00 7F 46 2D 6E 8E 00 |.(G$(15))..F-n..|
00003E80: A6 46 53 6F 8F 20 3D 3D 3D 3D 20 50 55 54 20 4F |.FSo. ==== PUT O|
00003E90: 4C 44 20 56 41 4C 55 45 53 20 49 4E 20 43 45 28 |LD VALUES IN CE(|
00003EA0: 29 20 3D 3D 3D 3D 00 CE 46 54 6F 8F 20 3D 3D 3D |) ====..FTo. ===|
00003EB0: 3D 20 42 41 53 45 44 20 4F 4E 20 46 24 28 29 2C |= BASED ON F$(),|
00003EC0: 47 4C 28 29 2C 43 45 28 29 20 3D 3D 3D 3D 00 E2 |GL(),CE() ====..|
00003ED0: 46 59 6F 8B 20 43 53 25 28 50 5A 29 B2 31 20 A7 |FYo. CS%(PZ).1 .|
00003EE0: 20 8E 00 FF 46 5E 6F 8B 20 50 5A B3 B2 20 30 20 | ...F^o. PZ.. 0 |
00003EF0: B0 20 50 5A B1 20 31 20 A7 20 32 38 35 31 34 00 |. PZ. 1 . 28514.|
00003F00: 14 47 60 6F 91 20 50 5A AB 20 30 20 8D 20 20 32 |.G`o. PZ. 0 . 2|
00003F10: 38 36 30 30 00 1A 47 62 6F 8E 00 44 47 B8 6F 43 |8600..Gbo..DG.oC|
00003F20: 45 28 31 29 20 B2 20 C5 28 46 24 28 31 33 29 29 |E(1) . .(F$(13))|
00003F30: AA C5 28 46 24 28 31 34 29 29 AB C5 28 46 24 28 |..(F$(14))..(F$(|
00003F40: 31 35 29 29 00 4A 47 BD 6F 8E 00 81 47 48 71 8F |15)).JG.o...GHq.|
00003F50: 20 3D 3D 3D 3D 20 44 49 53 50 4C 41 59 20 52 45 | ==== DISPLAY RE|
00003F60: 43 4F 52 44 20 54 4F 20 53 43 52 45 45 4E 20 26 |CORD TO SCREEN &|
00003F70: 20 50 52 4F 4D 50 54 53 20 52 54 4E 20 3D 3D 3D | PROMPTS RTN ===|
00003F80: 3D 00 8E 47 4C 71 99 20 C7 28 31 34 37 29 00 9F |=..GLq. .(147)..|
00003F90: 47 4D 71 8B 4E 46 B2 B3 30 A7 32 39 30 35 35 00 |GMq.NF..0.29055.|
00003FA0: CB 47 52 71 81 20 49 B2 31 20 A4 20 4E 46 3A 44 |.GRq. I.1 . NF:D|
00003FB0: 24 B2 47 24 28 49 29 3A 8B 20 54 24 28 49 29 B3 |$.G$(I):. T$(I).|
00003FC0: B1 22 44 22 A7 20 32 39 30 33 30 00 FD 47 5C 71 |."D". 29030..G\q|
00003FD0: 44 24 B2 C8 28 47 24 28 49 29 2C 32 29 AA 22 2F |D$..(G$(I),2)."/|
00003FE0: 22 AA CA 28 47 24 28 49 29 2C 33 2C 32 29 AA 22 |"..(G$(I),3,2)."|
00003FF0: 2F 22 AA C9 28 47 24 28 49 29 2C 32 29 00 2D 48 |/"..(G$(I),2).-H|
00004000: 66 71 8B 20 54 24 28 49 29 B2 22 24 22 A7 20 44 |fq. T$(I)."$". D|
00004010: 4F 24 B2 44 24 3A 46 57 B2 4C 25 28 49 29 3A 8D |O$.D$:FW.L%(I):.|
00004020: 20 33 36 30 30 30 3A 44 24 B2 44 4F 24 00 52 48 | 36000:D$.DO$.RH|
00004030: 6B 71 8B 20 54 24 28 49 29 B2 22 23 22 20 A7 20 |kq. T$(I)."#" . |
00004040: 44 24 B2 C9 28 53 50 24 AA 44 24 2C 4C 25 28 49 |D$..(SP$.D$,L%(I|
00004050: 29 29 00 75 48 70 71 99 C8 28 59 24 2C 59 25 28 |)).uHpq..(Y$,Y%(|
00004060: 49 29 29 3B A3 58 25 28 49 29 29 3B 50 52 24 28 |I));.X%(I));PR$(|
00004070: 49 29 3B 44 24 00 7D 48 7A 71 82 20 49 00 8E 48 |I);D$.}Hzq. I..H|
00004080: 7F 71 8B 4E 43 B2 B3 30 A7 32 39 30 38 35 00 AA |.q.NC..0.29085..|
00004090: 48 84 71 81 20 49 B2 31 20 A4 20 4E 43 3A 43 44 |H.q. I.1 . NC:CD|
000040A0: 24 B2 C4 28 43 44 28 49 29 29 00 E6 48 89 71 8B |$..(CD(I))..H.q.|
000040B0: 20 43 54 24 28 49 29 B2 22 24 22 A7 20 44 4F 24 | CT$(I)."$". DO$|
000040C0: B2 43 44 24 3A 46 57 B2 43 4C 25 28 49 29 3A 8D |.CD$:FW.CL%(I):.|
000040D0: 20 33 36 30 30 30 3A 43 44 24 B2 44 4F 24 3A 89 | 36000:CD$.DO$:.|
000040E0: 20 32 39 30 37 35 00 0F 49 8E 71 8B 22 20 22 B2 | 29075..I.q." ".|
000040F0: C8 28 43 44 24 2C 31 29 20 A7 20 43 44 24 B2 CA |.(CD$,1) . CD$..|
00004100: 28 43 44 24 2C 32 29 3A 89 20 32 39 30 37 30 00 |(CD$,2):. 29070.|
00004110: 33 49 91 71 43 44 24 B2 C9 28 53 50 24 AA C8 28 |3I.qCD$..(SP$..(|
00004120: 43 44 24 2C 43 4C 25 28 49 29 29 2C 43 4C 25 28 |CD$,CL%(I)),CL%(|
00004130: 49 29 29 00 59 49 93 71 99 C8 28 59 24 2C 43 59 |I)).YI.q..(Y$,CY|
00004140: 25 28 49 29 29 3B A3 43 58 25 28 49 29 29 3B 43 |%(I));.CX%(I));C|
00004150: 50 24 28 49 29 3B 43 44 24 00 61 49 98 71 82 20 |P$(I);CD$.aI.q. |
00004160: 49 00 72 49 9D 71 8B 4E 54 B2 B3 30 A7 32 39 31 |I.rI.q.NT..0.291|
00004170: 31 35 00 81 49 A2 71 81 20 49 B2 31 20 A4 20 4E |15..I.q. I.1 . N|
00004180: 54 00 A5 49 AC 71 99 C8 28 59 24 2C 54 59 25 28 |T..I.q..(Y$,TY%(|
00004190: 49 29 29 3B A3 54 58 25 28 49 29 AA 31 29 3B 54 |I));.TX%(I).1);T|
000041A0: 50 24 28 49 29 00 AD 49 B6 71 82 20 49 00 BE 49 |P$(I)..I.q. I..I|
000041B0: BB 71 8B 4E 47 B2 B3 30 A7 32 39 31 36 35 00 E3 |.q.NG..0.29165..|
000041C0: 49 C0 71 81 20 49 20 B2 20 31 20 A4 20 4E 47 20 |I.q. I . 1 . NG |
000041D0: 3A 20 8F 20 47 45 54 20 47 4C 4F 42 41 4C 20 49 |: . GET GLOBAL I|
000041E0: 4E 46 4F 00 24 4A CA 71 47 4C 24 B2 C4 28 47 4B |NFO.$J.qGL$..(GK|
000041F0: 28 49 29 29 3A 8B 20 47 54 24 28 49 29 B2 22 24 |(I)):. GT$(I)."$|
00004200: 22 20 A7 20 44 4F 24 B2 47 4C 24 3A 46 57 B2 47 |" . DO$.GL$:FW.G|
00004210: 4C 25 28 49 29 3A 8D 33 36 30 30 30 3A 47 4C 24 |L%(I):.36000:GL$|
00004220: B2 44 4F 24 00 47 4A D4 71 8B 47 54 24 B2 22 23 |.DO$.GJ.q.GT$."#|
00004230: 22 A7 47 4C 24 B2 C9 28 53 50 24 AA 47 4C 24 2C |".GL$..(SP$.GL$,|
00004240: 47 4C 25 28 49 29 29 00 6E 4A DE 71 99 20 C8 28 |GL%(I)).nJ.q. .(|
00004250: 59 24 2C 47 59 25 28 49 29 29 3B A3 47 58 25 28 |Y$,GY%(I));.GX%(|
00004260: 49 29 29 3B 47 50 24 28 49 29 3B 47 4C 24 00 76 |I));GP$(I);GL$.v|
00004270: 4A E8 71 82 20 49 00 7C 4A ED 71 8E 00 AC 4A FC |J.q. I.|J.q...J.|
00004280: 71 99 C8 28 59 24 2C 32 34 29 3B 22 C9 53 20 54 |q..(Y$,24);".S T|
00004290: 48 49 53 20 49 54 3F 20 28 20 12 D2 C5 D4 D5 D2 |HIS IT? ( ......|
000042A0: CE 92 20 3D 20 59 45 53 20 29 22 3B 00 C9 4A 06 |.. = YES )";..J.|
000042B0: 72 58 25 B2 32 39 3A 59 25 B2 32 34 3A 4C 25 B2 |rX%.29:Y%.24:L%.|
000042C0: 31 3A 8D 20 33 34 30 30 30 00 CF 4A 10 72 8E 00 |1:. 34000..J.r..|
000042D0: 11 4B 24 72 99 C8 28 59 24 2C 32 34 29 3B 22 45 |.K$r..(Y$,24);"E|
000042E0: 12 58 92 49 54 2C 20 12 D2 C5 D4 D5 D2 CE 92 20 |.X.IT, ........ |
000042F0: 46 4F 52 20 4E 45 58 54 20 52 45 43 2E 2C 12 C6 |FOR NEXT REC.,..|
00004300: 31 92 20 54 4F 20 50 52 49 4E 54 22 3B 53 50 24 |1. TO PRINT";SP$|
00004310: 3B 00 43 4B 2E 72 A1 49 4E 24 3A 8B 49 4E 24 B3 |;.CK.r.IN$:.IN$.|
00004320: B1 C7 28 31 33 29 AF 49 4E 24 B3 B1 C7 28 31 33 |..(13).IN$...(13|
00004330: 33 29 AF 49 4E 24 B3 B1 22 58 22 20 A7 20 32 39 |3).IN$.."X" . 29|
00004340: 32 33 30 00 64 4B 3D 72 8B 20 49 4E 24 B2 C7 28 |230.dK=r. IN$..(|
00004350: 31 33 33 29 A7 20 8D 20 35 31 31 30 30 3A 89 32 |133). . 51100:.2|
00004360: 39 32 32 30 00 6A 4B 42 72 8E 00 9E 4B 2F 75 8F |9220.jKBr...K/u.|
00004370: 20 3D 3D 3D 3D 20 4E 55 4D 45 52 4B 43 20 46 49 | ==== NUMERKC FI|
00004380: 45 4C 44 20 45 44 49 54 20 43 48 45 43 4B 20 53 |ELD EDIT CHECK S|
00004390: 55 42 52 4F 55 54 49 4E 45 20 3D 3D 3D 3D 00 BF |UBROUTINE ====..|
000043A0: 4B 30 75 42 24 B2 43 44 24 3A 41 24 B2 C7 28 33 |K0uB$.CD$:A$..(3|
000043B0: 32 29 3A 8D 34 31 30 30 30 3A 43 44 B2 49 39 00 |2):.41000:CD.I9.|
000043C0: E4 4B 31 75 8B 20 43 44 B1 31 20 A7 20 43 44 24 |.K1u. CD.1 . CD$|
000043D0: B2 C8 28 43 44 24 2C 43 44 AB 31 29 3A 89 20 33 |..(CD$,CD.1):. 3|
000043E0: 30 30 30 30 00 06 4C 32 75 8B 20 43 44 B2 31 20 |0000..L2u. CD.1 |
000043F0: A7 20 43 44 24 B2 CA 28 43 44 24 2C 32 29 3A 89 |. CD$..(CD$,2):.|
00004400: 20 33 30 30 30 30 00 1A 4C 35 75 81 20 5A 5A B2 | 30000..L5u. ZZ.|
00004410: 31 20 A4 20 C3 28 43 44 24 29 00 49 4C 3A 75 8B |1 . .(CD$).IL:u.|
00004420: CA 28 43 44 24 2C 5A 5A 2C 31 29 B1 B2 22 30 22 |.(CD$,ZZ,1).."0"|
00004430: AF CA 28 43 44 24 2C 5A 5A 2C 31 29 B3 B2 22 39 |..(CD$,ZZ,1).."9|
00004440: 22 20 A7 20 33 30 30 32 30 00 78 4C 3F 75 8B CA |" . 30020.xL?u..|
00004450: 28 43 44 24 2C 5A 5A 2C 31 29 B3 B1 22 2E 22 AF |(CD$,ZZ,1)..".".|
00004460: CA 28 43 44 24 2C 5A 5A 2C 31 29 B3 B1 22 2D 22 |.(CD$,ZZ,1).."-"|
00004470: 20 A7 20 45 B2 31 3A 8E 00 81 4C 44 75 82 20 5A | . E.1:...LDu. Z|
00004480: 5A 00 AE 4C 4E 75 42 24 B2 43 44 24 3A 41 24 B2 |Z..LNuB$.CD$:A$.|
00004490: 22 2D 22 3A 8D 34 31 30 30 30 3A 49 31 B2 49 39 |"-":.41000:I1.I9|
000044A0: 3A 42 24 B2 CA 28 42 24 2C 49 31 AA 31 29 00 D6 |:B$..(B$,I1.1)..|
000044B0: 4C 53 75 8D 20 34 31 30 30 30 3A 49 32 B2 49 39 |LSu. 41000:I2.I9|
000044C0: 3A 8B 20 49 31 B1 30 20 AF 20 49 32 B1 30 20 A7 |:. I1.0 . I2.0 .|
000044D0: 20 45 B2 31 3A 8E 00 03 4D 58 75 42 24 B2 43 44 | E.1:...MXuB$.CD|
000044E0: 24 3A 41 24 B2 22 2E 22 3A 8D 34 31 30 30 30 3A |$:A$.".":.41000:|
000044F0: 49 31 B2 49 39 3A 42 24 B2 CA 28 42 24 2C 49 31 |I1.I9:B$..(B$,I1|
00004500: AA 31 29 00 2B 4D 5D 75 8D 20 34 31 30 30 30 3A |.1).+M]u. 41000:|
00004510: 49 32 B2 49 39 3A 8B 20 49 31 B1 30 20 AF 20 49 |I2.I9:. I1.0 . I|
00004520: 32 B1 30 20 A7 20 45 B2 31 3A 8E 00 31 4D 62 75 |2.0 . E.1:..1Mbu|
00004530: 8E 00 63 4D 17 79 8F 20 3D 3D 3D 3D 20 41 4C 50 |..cM.y. ==== ALP|
00004540: 48 41 20 46 49 45 4C 44 20 45 44 49 54 20 43 48 |HA FIELD EDIT CH|
00004550: 45 43 4B 20 53 55 42 52 4F 55 54 49 4E 45 20 3D |ECK SUBROUTINE =|
00004560: 3D 3D 3D 00 77 4D 18 79 81 20 5A 5A B2 31 20 A4 |===.wM.y. ZZ.1 .|
00004570: 20 C3 28 43 44 24 29 00 A8 4D 22 79 8B 28 CA 28 | .(CD$)..M"y.(.(|
00004580: 43 44 24 2C 5A 5A 2C 31 29 B3 B2 22 39 22 AF CA |CD$,ZZ,1).."9"..|
00004590: 28 43 44 24 2C 5A 5A 2C 31 29 B1 B2 22 30 22 29 |(CD$,ZZ,1).."0")|
000045A0: 20 A7 20 45 B2 31 3A 8E 00 B1 4D 2C 79 82 20 5A | . E.1:...M,y. Z|
000045B0: 5A 00 B7 4D 36 79 8E 00 E5 4D 00 7D 99 22 93 D4 |Z..M6y...M.}."..|
000045C0: 48 49 53 20 57 49 4C 4C 20 45 52 41 53 45 20 41 |HIS WILL ERASE A|
000045D0: 4C 4C 20 50 52 45 56 49 4F 55 53 20 52 45 43 4F |LL PREVIOUS RECO|
000045E0: 52 44 53 2E 22 00 10 4E 0A 7D 99 3A 99 22 D4 4F |RDS."..N.}.:.".O|
000045F0: 20 43 4F 4E 54 49 4E 55 45 20 54 59 50 45 20 27 | CONTINUE TYPE '|
00004600: 43 27 20 54 48 45 4E 20 12 D2 C5 D4 D5 D2 CE 92 |C' THEN ........|
00004610: 00 2C 4E 14 7D 58 25 B2 33 34 3A 59 25 B2 33 3A |.,N.}X%.34:Y%.3:|
00004620: 4C 25 B2 31 3A 8D 20 33 34 30 30 30 00 3E 4E 1E |L%.1:. 34000.>N.|
00004630: 7D 8B 49 4E 24 B3 B1 22 43 22 20 A7 20 8E 00 66 |}.IN$.."C" . ..f|
00004640: 4E 28 7D 99 3A 99 22 D4 48 49 53 20 57 49 4C 4C |N(}.:.".HIS WILL|
00004650: 20 54 41 4B 45 20 41 20 4C 49 54 54 4C 45 20 57 | TAKE A LITTLE W|
00004660: 48 49 4C 45 2E 22 00 7C 4E 2D 7D 98 31 35 2C 22 |HILE.".|N-}.15,"|
00004670: 53 30 3A 41 43 43 54 53 52 2F 58 22 00 A4 4E 32 |S0:ACCTSR/X"..N2|
00004680: 7D 9F 31 2C 38 2C 31 35 3A 9F 32 2C 38 2C 32 2C |}.1,8,15:.2,8,2,|
00004690: 22 30 3A 41 43 43 54 53 52 2F 58 2C 4C 2C 22 AA |"0:ACCTSR/X,L,".|
000046A0: C7 28 35 29 00 C5 4E 37 7D 98 31 2C 22 50 22 C7 |.(5)..N7}.1,"P".|
000046B0: 28 32 29 C7 28 20 32 30 34 20 29 C7 28 20 30 20 |(2).( 204 ).( 0 |
000046C0: 29 C7 28 31 29 00 D3 4E 3C 7D 98 32 2C C7 28 32 |).(1)..N<}.2,.(2|
000046D0: 35 35 29 00 E3 4E 3F 7D 52 50 B2 31 3A 8D 35 32 |55)..N?}RP.1:.52|
000046E0: 31 31 30 00 04 4F 40 7D 4E 52 24 B2 C4 28 30 29 |110..O@}NR$..(0)|
000046F0: 3A 4E 58 52 24 B2 C4 28 32 29 3A 58 46 53 24 B2 |:NXR$..(2):XFS$.|
00004700: C4 28 31 29 00 2A 4F 41 7D 98 32 2C 4E 52 24 3A |.(1).*OA}.2,NR$:|
00004710: 98 32 2C 4E 58 52 24 3A 98 32 2C C4 28 20 31 35 |.2,NXR$:.2,.( 15|
00004720: 20 29 3A 98 32 2C 58 46 53 24 00 39 4F 46 7D A0 | ):.2,XFS$.9OF}.|
00004730: 31 3A A0 32 3A 4E 52 B2 30 00 55 4F 55 7D 98 31 |1:.2:NR.0.UOU}.1|
00004740: 35 2C 22 53 30 3A 22 AA 28 44 46 24 29 3A 9F 31 |5,"S0:".(DF$):.1|
00004750: 2C 38 2C 31 35 00 90 4F 5A 7D 9F 34 2C 38 2C 34 |,8,15..OZ}.4,8,4|
00004760: 2C 22 30 3A 41 43 43 54 53 52 30 2F 44 2C 4C 2C |,"0:ACCTSR0/D,L,|
00004770: 22 AA C7 28 38 30 29 3A 4A 4E B2 B5 28 28 20 31 |"..(80):JN..(( 1|
00004780: 39 32 20 AC 20 31 30 30 20 29 AD 38 30 29 AA 31 |92 . 100 ).80).1|
00004790: 00 AE 4F 5D 7D 52 32 B2 B5 28 4A 4E AD 32 35 36 |..O]}R2..(JN.256|
000047A0: 29 3A 52 31 B2 4A 4E AB 32 35 36 AC 52 32 00 CB |):R1.JN.256.R2..|
000047B0: 4F 5F 7D 98 31 2C 22 50 22 C7 28 34 29 C7 28 52 |O_}.1,"P".(4).(R|
000047C0: 31 29 C7 28 52 32 29 C7 28 31 29 00 E6 4F 62 7D |1).(R2).(1)..Ob}|
000047D0: 8D 35 32 32 32 30 3A 98 34 2C C7 28 32 35 35 29 |.52220:.4,.(255)|
000047E0: 3A A0 31 3A A0 34 00 09 50 64 7D 9F 33 2C 38 2C |:.1:.4..Pd}.3,8,|
000047F0: 33 2C 22 30 3A 41 43 43 54 53 52 2F 47 4C 42 2C |3,"0:ACCTSR/GLB,|
00004800: 4C 2C 22 AA C7 28 31 35 29 00 15 50 6E 7D 81 49 |L,"..(15)..Pn}.I|
00004810: B2 31 A4 4E 47 00 21 50 78 7D 98 33 2C C4 28 30 |.1.NG.!Px}.3,.(0|
00004820: 29 00 2D 50 82 7D 47 4C 28 49 29 B2 30 00 34 50 |).-P.}GL(I).0.4P|
00004830: 8C 7D 82 49 00 3B 50 96 7D A0 33 00 46 50 A0 7D |.}.I.;P.}.3.FP.}|
00004840: 50 51 B2 31 3A 8E 00 5A 50 E8 80 9F 34 2C 38 2C |PQ.1:..ZP...4,8,|
00004850: 34 2C 22 30 3A 22 AA 53 46 24 00 74 50 EA 80 8D |4,"0:".SF$.tP...|
00004860: 35 32 32 32 30 3A 8B 20 44 53 B2 30 20 A7 20 33 |52220:. DS.0 . 3|
00004870: 33 30 31 30 00 C0 50 EC 80 99 3A 99 22 93 D9 4F |3010..P...:."..O|
00004880: 55 52 20 50 52 4F 47 52 41 4D 20 44 49 53 4B 20 |UR PROGRAM DISK |
00004890: 4D 55 53 54 20 42 45 20 49 4E 20 44 52 49 56 45 |MUST BE IN DRIVE|
000048A0: 20 23 30 20 2D 20 D0 52 45 53 53 20 12 D2 C5 D4 | #0 - .RESS ....|
000048B0: D5 D2 CE 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |.... TO CONTINUE|
000048C0: 00 DB 50 EE 80 A1 41 41 24 3A 8B 41 41 24 B3 B1 |..P...AA$:.AA$..|
000048D0: C7 28 31 33 29 A7 33 33 30 30 36 00 EA 50 F0 80 |.(13).33006..P..|
000048E0: A0 34 3A 89 20 33 33 30 30 30 00 01 51 F2 80 84 |.4:. 33000..Q...|
000048F0: 34 2C 4E 46 3A 8B 4E 46 B2 B3 30 A7 33 33 30 36 |4,NF:.NF..0.3306|
00004900: 30 00 2A 51 FC 80 86 50 52 24 28 4E 46 29 2C 58 |0.*Q...PR$(NF),X|
00004910: 25 28 4E 46 29 2C 59 25 28 4E 46 29 2C 4C 25 28 |%(NF),Y%(NF),L%(|
00004920: 4E 46 29 2C 54 24 28 4E 46 29 00 39 51 06 81 81 |NF),T$(NF).9Q...|
00004930: 20 49 B2 31 20 A4 20 4E 46 00 5F 51 10 81 84 34 | I.1 . NF._Q...4|
00004940: 2C 50 52 24 28 49 29 2C 58 25 28 49 29 2C 59 25 |,PR$(I),X%(I),Y%|
00004950: 28 49 29 2C 4C 25 28 49 29 2C 54 24 28 49 29 00 |(I),L%(I),T$(I).|
00004960: 67 51 1A 81 82 20 49 00 7E 51 24 81 84 34 2C 4E |gQ... I.~Q$..4,N|
00004970: 43 3A 8B 4E 43 B2 B3 30 A7 33 33 31 30 32 00 BA |C:.NC..0.33102..|
00004980: 51 2E 81 86 20 43 50 24 28 4E 43 29 2C 43 58 25 |Q... CP$(NC),CX%|
00004990: 28 4E 43 29 2C 43 59 25 28 4E 43 29 2C 43 54 24 |(NC),CY%(NC),CT$|
000049A0: 28 4E 43 29 2C 43 44 28 4E 43 29 2C 43 45 28 4E |(NC),CD(NC),CE(N|
000049B0: 43 29 2C 43 4C 25 28 4E 43 29 00 C6 51 38 81 81 |C),CL%(NC)..Q8..|
000049C0: 49 B2 31 A4 4E 43 00 F0 51 42 81 84 34 2C 43 50 |I.1.NC..QB..4,CP|
000049D0: 24 28 49 29 2C 43 58 25 28 49 29 2C 43 59 25 28 |$(I),CX%(I),CY%(|
000049E0: 49 29 2C 43 4C 25 28 49 29 2C 43 54 24 28 49 29 |I),CL%(I),CT$(I)|
000049F0: 00 F7 51 4C 81 82 49 00 0E 52 4E 81 84 34 2C 4E |..QL..I..RN..4,N|
00004A00: 47 3A 8B 4E 47 B2 B3 30 A7 33 33 31 31 30 00 51 |G:.NG..0.33110.Q|
00004A10: 52 51 81 86 20 47 50 24 28 4E 47 29 2C 47 58 25 |RQ.. GP$(NG),GX%|
00004A20: 28 4E 47 29 2C 47 59 25 28 4E 47 29 2C 47 54 24 |(NG),GY%(NG),GT$|
00004A30: 28 4E 47 29 2C 47 4C 28 4E 47 29 2C 47 4B 28 4E |(NG),GL(NG),GK(N|
00004A40: 47 29 2C 47 4D 28 4E 47 29 2C 47 4C 25 28 4E 47 |G),GM(NG),GL%(NG|
00004A50: 29 00 87 52 53 81 81 49 B2 31 A4 4E 47 3A 84 34 |)..RS..I.1.NG:.4|
00004A60: 2C 47 50 24 28 49 29 2C 47 58 25 28 49 29 2C 47 |,GP$(I),GX%(I),G|
00004A70: 59 25 28 49 29 2C 47 4C 25 28 49 29 2C 47 54 24 |Y%(I),GL%(I),GT$|
00004A80: 28 49 29 3A 82 20 49 00 9E 52 56 81 84 34 2C 4E |(I):. I..RV..4,N|
00004A90: 54 3A 8B 4E 54 B2 B3 30 A7 33 33 31 36 30 00 BC |T:.NT..0.33160..|
00004AA0: 52 60 81 86 20 54 50 24 28 4E 54 29 2C 54 58 25 |R`.. TP$(NT),TX%|
00004AB0: 28 4E 54 29 2C 54 59 25 28 4E 54 29 00 C8 52 6A |(NT),TY%(NT)..Rj|
00004AC0: 81 81 49 B2 31 A4 4E 54 00 E4 52 74 81 84 34 2C |..I.1.NT..Rt..4,|
00004AD0: 54 50 24 28 49 29 2C 54 58 25 28 49 29 2C 54 59 |TP$(I),TX%(I),TY|
00004AE0: 25 28 49 29 00 EB 52 7E 81 82 49 00 F4 52 88 81 |%(I)..R~..I..R..|
00004AF0: A0 34 3A 8E 00 1A 53 D0 84 49 4E 24 B2 22 22 3A |.4:...S..IN$."":|
00004B00: 4A B2 31 3A 41 44 B2 31 30 32 34 AA 28 59 25 AB |J.1:AD.1024.(Y%.|
00004B10: 31 29 AC 34 30 AA 58 25 AB 31 00 47 53 D5 84 81 |1).40.X%.1.GS...|
00004B20: 4B 4C B2 30 A4 4C 25 3A 97 35 35 32 39 36 AA 28 |KL.0.L%:.55296.(|
00004B30: 59 25 AB 31 29 AC 34 30 AA 28 58 25 AA 4B 4C 29 |Y%.1).40.(X%.KL)|
00004B40: 2C 43 33 3A 82 4B 4C 00 6E 53 DA 84 8B 4A B2 31 |,C3:.KL.nS...J.1|
00004B50: AF 4C 25 B1 31 A7 99 C8 28 59 24 2C 59 25 29 3B |.L%.1...(Y$,Y%);|
00004B60: A3 58 25 29 3B C8 28 44 54 24 2C 4C 25 29 00 84 |.X%);.(DT$,L%)..|
00004B70: 53 E4 84 97 41 44 AA 4A 2C C2 28 41 44 AA 4A 29 |S...AD.J,.(AD.J)|
00004B80: B0 31 32 38 00 9B 53 EE 84 A1 20 49 24 3A 8B 49 |.128..S... I$:.I|
00004B90: 24 B2 22 22 A7 20 33 34 30 33 30 00 B8 53 EF 84 |$."". 34030..S..|
00004BA0: 8B 49 24 B2 C7 28 31 34 30 29 A7 8D 35 34 33 30 |.I$..(140)..5430|
00004BB0: 30 3A 89 33 34 30 31 30 00 C5 53 F0 84 49 49 B2 |0:.34010..S..II.|
00004BC0: C6 28 49 24 29 00 E7 53 F1 84 8B 20 49 24 B2 C7 |.(I$)..S... I$..|
00004BD0: 28 33 32 29 20 A7 20 49 24 B2 C7 28 31 36 30 29 |(32) . I$..(160)|
00004BE0: 3A 89 33 34 30 38 30 00 FE 53 F3 84 8B 20 49 49 |:.34080..S... II|
00004BF0: B2 31 33 33 20 A7 49 4E 24 B2 49 24 3A 8E 00 12 |.133 .IN$.I$:...|
00004C00: 54 F4 84 8B 20 49 49 B2 33 34 20 A7 20 33 34 30 |T... II.34 . 340|
00004C10: 33 30 00 4C 54 F8 84 8B 28 49 49 B3 33 32 AF 49 |30.LT...(II.32.I|
00004C20: 49 B3 B1 32 30 AF 49 49 B3 B1 31 33 29 B0 28 49 |I..20.II..13).(I|
00004C30: 49 B1 31 32 38 AF 49 49 B3 31 39 32 29 B0 28 49 |I.128.II.192).(I|
00004C40: 49 B1 32 31 38 29 A7 33 34 30 31 30 00 69 54 F9 |I.218).34010.iT.|
00004C50: 84 8B 49 49 B2 35 39 B0 49 49 B2 35 38 B0 49 49 |..II.59.II.58.II|
00004C60: B2 34 34 A7 33 34 30 31 30 00 7E 54 FD 84 8B 20 |.44.34010.~T... |
00004C70: 49 49 B3 B1 32 30 20 A7 20 33 34 30 37 30 00 90 |II..20 . 34070..|
00004C80: 54 02 85 8B 20 4A B2 31 20 A7 20 33 34 30 31 30 |T... J.1 . 34010|
00004C90: 00 CC 54 0C 85 4A B2 4A AB 31 3A 49 4E 24 B2 C8 |..T..J.J.1:IN$..|
00004CA0: 28 49 4E 24 2C 4A AB 31 29 3A 49 24 B2 22 2E 22 |(IN$,J.1):I$."."|
00004CB0: 3A 99 C8 28 59 24 2C 59 25 29 3B A6 58 25 AA 4A |:..(Y$,Y%);.X%.J|
00004CC0: 29 3B 22 2E 22 3A 89 33 34 30 39 30 00 EC 54 16 |);".":.34090..T.|
00004CD0: 85 8B 49 49 B2 31 33 A7 97 41 44 AA 4A 2C C2 28 |..II.13..AD.J,.(|
00004CE0: 41 44 AA 4A 29 AF 20 31 32 37 3A 8E 00 FB 54 20 |AD.J). 127:...T |
00004CF0: 85 49 4E 24 B2 49 4E 24 AA 49 24 00 15 55 2A 85 |.IN$.IN$.I$..U*.|
00004D00: 99 C8 28 59 24 2C 59 25 29 3B A6 58 25 AA 4A AB |..(Y$,Y%);.X%.J.|
00004D10: 31 29 3B 49 24 00 38 55 34 85 8B 4A B2 4C 25 A7 |1);I$.8U4..J.L%.|
00004D20: 49 4E 24 B2 C8 28 49 4E 24 2C 4A AB 31 29 AA 49 |IN$..(IN$,J.1).I|
00004D30: 24 3A 89 35 34 30 30 30 00 4D 55 3E 85 8B 20 49 |$:.54000.MU>.. I|
00004D40: 49 B3 B1 32 30 20 A7 20 4A B2 4A AA 31 00 59 55 |I..20 . J.J.1.YU|
00004D50: 48 85 89 20 33 34 30 31 30 00 80 55 98 85 8F 20 |H.. 34010..U... |
00004D60: 3D 3D 3D 3D 20 52 45 4D 4F 56 45 20 54 52 41 49 |==== REMOVE TRAI|
00004D70: 4C 49 4E 47 20 42 4C 41 4E 4B 53 20 3D 3D 3D 3D |LING BLANKS ====|
00004D80: 00 91 55 9D 85 8B 20 49 4E 24 B2 22 22 20 A7 20 |..U... IN$."" . |
00004D90: 8E 00 A5 55 A2 85 43 43 25 B2 C6 28 C9 28 49 4E |...U..CC%..(.(IN|
00004DA0: 24 2C 31 29 29 00 C0 55 AC 85 8B 20 43 43 25 B3 |$,1))..U... CC%.|
00004DB0: B1 33 32 AF 43 43 25 B3 B1 31 36 30 20 A7 20 8E |.32.CC%..160 . .|
00004DC0: 00 DF 55 B6 85 49 4E 24 B2 C8 28 49 4E 24 2C C3 |..U..IN$..(IN$,.|
00004DD0: 28 49 4E 24 29 AB 31 29 3A 89 33 34 32 30 35 00 |(IN$).1):.34205.|
00004DE0: 15 56 B8 88 97 38 30 38 2C 32 33 37 3A 99 22 93 |.V...808,237:.".|
00004DF0: D3 43 41 4E 20 41 4C 4C 20 4F 52 20 53 45 4C 45 |.CAN ALL OR SELE|
00004E00: 43 54 45 44 20 52 45 43 4F 52 44 53 3F 20 28 41 |CTED RECORDS? (A|
00004E10: 2F 53 29 22 3B 00 39 56 C2 88 58 25 B2 33 36 3A |/S)";.9V..X%.36:|
00004E20: 59 25 B2 31 3A 4C 25 B2 31 3A 8D 20 33 34 30 30 |Y%.1:L%.1:. 3400|
00004E30: 30 3A 53 54 24 B2 49 4E 24 00 4E 56 C7 88 8B 20 |0:ST$.IN$.NV... |
00004E40: 49 4E 24 B2 C7 28 31 33 33 29 20 A7 20 8E 00 70 |IN$..(133) . ..p|
00004E50: 56 CC 88 8B 20 53 54 24 B3 B1 22 41 22 20 AF 20 |V... ST$.."A" . |
00004E60: 53 54 24 B3 B1 22 53 22 20 A7 20 33 35 30 31 30 |ST$.."S" . 35010|
00004E70: 00 86 56 D6 88 8B 20 53 54 24 B2 22 41 22 20 A7 |..V... ST$."A" .|
00004E80: 20 33 35 31 38 30 00 93 56 DB 88 99 C8 28 59 24 | 35180..V....(Y$|
00004E90: 2C 34 29 00 BF 56 E0 88 99 22 D7 48 41 54 20 46 |,4)..V...".HAT F|
00004EA0: 49 45 4C 44 20 44 4F 20 59 4F 55 20 57 49 53 48 |IELD DO YOU WISH|
00004EB0: 20 54 4F 20 53 45 4C 45 43 54 20 42 59 3F 22 00 | TO SELECT BY?".|
00004EC0: E1 56 E5 88 99 22 28 20 31 2D 22 3B 4E 46 AA 4E |.V..."( 1-";NF.N|
00004ED0: 43 3B 22 20 4F 52 20 27 4C 49 53 54 27 20 29 22 |C;" OR 'LIST' )"|
00004EE0: 3B 00 0E 57 EA 88 58 25 B2 32 31 3A 59 25 B2 C2 |;..W..X%.21:Y%..|
00004EF0: 28 32 31 34 29 AA 31 3A 4C 25 B2 35 3A 8D 20 33 |(214).1:L%.5:. 3|
00004F00: 34 30 30 30 3A 53 46 B2 C5 28 49 4E 24 29 00 28 |4000:SF..(IN$).(|
00004F10: 57 F4 88 8B 20 49 4E 24 B3 B1 22 4C 49 53 54 22 |W... IN$.."LIST"|
00004F20: 20 A7 20 33 35 30 38 30 00 47 57 FE 88 46 B2 32 | . 35080.GW..F.2|
00004F30: 3A 8D 32 30 30 30 30 3A 99 20 C7 28 31 34 37 29 |:.20000:. .(147)|
00004F40: 3A 89 33 35 30 33 35 00 75 57 08 89 8B 20 53 46 |:.35035.uW... SF|
00004F50: B3 31 B0 53 46 B1 4E 46 AA 4E 43 20 A7 20 99 C8 |.1.SF.NF.NC . ..|
00004F60: 28 59 24 2C 39 29 22 49 4E 56 41 4C 49 44 20 46 |(Y$,9)"INVALID F|
00004F70: 49 45 4C 44 22 00 9B 57 0B 89 8B 20 53 46 B3 31 |IELD"..W... SF.1|
00004F80: B0 53 46 B1 4E 46 AA 4E 43 20 A7 20 81 20 5A 54 |.SF.NF.NC . . ZT|
00004F90: B2 31 A4 31 30 30 30 3A 82 5A 54 00 C5 57 0D 89 |.1.1000:.ZT..W..|
00004FA0: 8B 20 53 46 B3 31 B0 53 46 B1 4E 46 AA 4E 43 20 |. SF.1.SF.NF.NC |
00004FB0: A7 20 99 C8 28 59 24 2C 39 29 3B 53 50 24 3A 89 |. ..(Y$,9);SP$:.|
00004FC0: 33 35 30 33 35 00 F5 57 12 89 8B 20 53 46 B3 B2 |35035..W... SF..|
00004FD0: 4E 46 20 A7 20 54 24 B2 54 24 28 53 46 29 20 3A |NF . T$.T$(SF) :|
00004FE0: 20 4C 53 25 B2 4C 25 28 53 46 29 20 3A 20 89 20 | LS%.L%(SF) : . |
00004FF0: 33 35 31 31 30 00 18 58 1C 89 54 24 B2 43 54 24 |35110..X..T$.CT$|
00005000: 28 53 46 AB 4E 46 29 20 3A 20 4C 53 25 B2 43 4C |(SF.NF) : LS%.CL|
00005010: 25 28 53 46 AB 4E 46 29 00 4E 58 26 89 99 C8 28 |%(SF.NF).NX&...(|
00005020: 59 24 2C 39 29 3B 22 D3 4D 41 4C 4C 45 53 54 20 |Y$,9);".MALLEST |
00005030: 49 54 45 4D 20 54 4F 20 53 45 4C 45 43 54 3F 22 |ITEM TO SELECT?"|
00005040: 3B 3A 59 30 25 B2 C2 28 32 31 34 29 AA 32 00 65 |;:Y0%..(214).2.e|
00005050: 58 30 89 58 25 B2 30 3A 59 25 B2 59 30 25 3A 4C |X0.X%.0:Y%.Y0%:L|
00005060: 25 B2 4C 53 25 00 8C 58 32 89 8B 20 54 24 B2 22 |%.LS%..X2.. T$."|
00005070: 44 22 20 A7 20 8D 20 34 39 30 30 30 3A 53 4D 24 |D" . . 49000:SM$|
00005080: B2 49 4E 24 3A 89 20 33 35 31 33 30 00 AB 58 35 |.IN$:. 35130..X5|
00005090: 89 8D 20 33 34 30 30 30 3A 20 8D 20 33 34 32 30 |.. 34000: . 3420|
000050A0: 30 20 3A 20 53 4D 24 B2 49 4E 24 00 C0 58 3A 89 |0 : SM$.IN$..X:.|
000050B0: 8B 20 53 4D 24 B2 22 22 20 A7 20 33 35 31 32 30 |. SM$."" . 35120|
000050C0: 00 E5 58 3F 89 8B 20 54 24 B2 22 44 22 20 A7 20 |..X?.. T$."D" . |
000050D0: 44 24 B2 53 4D 24 3A 8D 20 33 35 35 30 30 3A 53 |D$.SM$:. 35500:S|
000050E0: 4D 24 B2 44 24 00 1B 59 44 89 99 C8 28 59 24 2C |M$.D$..YD...(Y$,|
000050F0: 31 32 29 3B 22 CC 41 52 47 45 53 54 20 49 54 45 |12);".ARGEST ITE|
00005100: 4D 20 54 4F 20 53 45 4C 45 43 54 3F 22 3B 3A 59 |M TO SELECT?";:Y|
00005110: 30 25 B2 C2 28 32 31 34 29 AA 32 00 32 59 4E 89 |0%..(214).2.2YN.|
00005120: 58 25 B2 30 3A 59 25 B2 59 30 25 3A 4C 25 B2 4C |X%.0:Y%.Y0%:L%.L|
00005130: 53 25 00 59 59 50 89 8B 20 54 24 B2 22 44 22 20 |S%.YYP.. T$."D" |
00005140: A7 20 8D 20 34 39 30 30 30 3A 4C 52 24 B2 49 4E |. . 49000:LR$.IN|
00005150: 24 3A 89 20 33 35 31 36 30 00 6E 59 53 89 8F 20 |$:. 35160.nYS.. |
00005160: 33 34 30 30 30 3A 20 4C 52 24 B2 49 4E 24 00 83 |34000: LR$.IN$..|
00005170: 59 58 89 8B 20 4C 52 24 B2 22 22 20 A7 20 33 35 |YX.. LR$."" . 35|
00005180: 31 35 30 00 A8 59 5D 89 8B 20 54 24 B2 22 44 22 |150..Y].. T$."D"|
00005190: 20 A7 20 44 24 B2 4C 52 24 3A 8D 20 33 35 35 30 | . D$.LR$:. 3550|
000051A0: 30 3A 4C 52 24 B2 44 24 00 C0 59 62 89 4C 52 B2 |0:LR$.D$..Yb.LR.|
000051B0: C5 28 4C 52 24 29 3A 53 4D B2 C5 28 53 4D 24 29 |.(LR$):SM..(SM$)|
000051C0: 00 E1 59 64 89 8B 20 28 54 24 B2 22 23 22 B0 54 |..Yd.. (T$."#".T|
000051D0: 24 B2 22 24 22 29 AF 20 4C 52 B3 53 4D 20 A7 20 |$."$"). LR.SM . |
000051E0: 8E 00 03 5A 67 89 8B 20 28 54 24 B2 22 41 22 B0 |...Zg.. (T$."A".|
000051F0: 54 24 B2 22 44 22 29 AF 4C 52 24 B3 53 4D 24 20 |T$."D").LR$.SM$ |
00005200: A7 20 8E 00 22 5A 6C 89 81 49 41 B2 31 A4 4E 47 |. .."Zl..IA.1.NG|
00005210: 3A 47 4B 28 49 41 29 B2 47 4C 28 49 41 29 3A 82 |:GK(IA).GL(IA):.|
00005220: 49 41 00 39 5A 76 89 81 20 52 50 B2 31 20 A4 20 |IA.9Zv.. RP.1 . |
00005230: C5 28 4E 58 52 24 29 AB 32 00 45 5A 80 89 8D 20 |.(NXR$).2.EZ... |
00005240: 34 30 30 30 35 00 65 5A 8A 89 8B 20 C8 28 46 24 |40005.eZ... .(F$|
00005250: 28 31 29 2C 31 29 B2 C7 28 32 35 35 29 20 A7 20 |(1),1)..(255) . |
00005260: 33 35 34 30 30 00 88 5A 9E 89 8B 20 53 46 B3 B2 |35400..Z... SF..|
00005270: 4E 46 20 A7 20 47 24 B2 46 24 28 53 46 29 20 3A |NF . G$.F$(SF) :|
00005280: 20 89 20 33 35 32 36 30 00 AC 5A A8 89 81 20 50 | . 35260..Z... P|
00005290: 5A B2 31 20 A4 20 53 46 AB 4E 46 20 3A 20 8D 20 |Z.1 . SF.NF : . |
000052A0: 32 38 35 30 30 20 3A 20 82 20 50 5A 00 C0 5A B2 |28500 : . PZ..Z.|
000052B0: 89 47 24 B2 C4 28 43 45 28 53 46 AB 4E 46 29 29 |.G$..(CE(SF.NF))|
000052C0: 00 D6 5A BC 89 8B 20 53 54 24 B2 22 41 22 20 A7 |..Z... ST$."A" .|
000052D0: 20 33 35 33 31 33 00 F4 5A C6 89 8B 20 54 24 B2 | 35313..Z... T$.|
000052E0: 22 23 22 20 B0 20 54 24 B2 22 24 22 20 A7 20 33 |"#" . T$."$" . 3|
000052F0: 35 33 30 30 00 16 5B CB 89 8B 20 54 24 B2 22 44 |5300..[... T$."D|
00005300: 22 20 A7 20 44 24 B2 47 24 3A 8D 33 35 35 30 30 |" . D$.G$:.35500|
00005310: 3A 47 24 B2 44 24 00 2F 5B D0 89 49 4E 24 B2 47 |:G$.D$./[..IN$.G|
00005320: 24 3A 8D 33 34 32 30 30 3A 47 24 B2 49 4E 24 00 |$:.34200:G$.IN$.|
00005330: 4B 5B D3 89 8B 47 24 B1 4C 52 24 20 B0 20 47 24 |K[...G$.LR$ . G$|
00005340: B3 53 4D 24 20 A7 33 35 34 30 30 00 57 5B DA 89 |.SM$ .35400.W[..|
00005350: 89 20 33 35 33 31 33 00 79 5B E4 89 8B 20 C5 28 |. 35313.y[... .(|
00005360: 47 24 29 B3 53 4D 20 B0 20 C5 28 47 24 29 B1 4C |G$).SM . .(G$).L|
00005370: 52 20 A7 20 33 35 34 30 30 00 97 5B F1 89 49 42 |R . 35400..[..IB|
00005380: 25 B2 53 46 AB 4E 46 AA 31 20 3A 8B 49 42 25 B3 |%.SF.NF.1 :.IB%.|
00005390: 31 A7 49 42 25 B2 31 00 A9 5B F3 89 8B 49 42 25 |1.IB%.1..[...IB%|
000053A0: B1 4E 43 A7 33 35 33 33 30 00 C3 5B F8 89 81 50 |.NC.35330..[...P|
000053B0: 5A B2 49 42 25 A4 4E 43 3A 8D 32 38 35 30 30 3A |Z.IB%.NC:.28500:|
000053C0: 82 50 5A 00 E2 5B 02 8A 81 49 41 B2 31 A4 4E 43 |.PZ..[...IA.1.NC|
000053D0: 3A 43 44 28 49 41 29 B2 43 45 28 49 41 29 3A 82 |:CD(IA).CE(IA):.|
000053E0: 49 41 00 09 5C 0C 8A 81 20 49 41 B2 31 20 A4 20 |IA..\... IA.1 . |
000053F0: 4E 46 20 3A 20 47 24 28 49 41 29 B2 46 24 28 49 |NF : G$(IA).F$(I|
00005400: 41 29 20 3A 20 82 20 49 41 00 1D 5C 16 8A 8D 20 |A) : . IA..\... |
00005410: 32 39 30 30 30 3A 8D 20 32 39 32 32 30 00 2E 5C |29000:. 29220..\|
00005420: 34 8A 8B 20 49 4E 24 B2 22 58 22 A7 20 8E 00 37 |4.. IN$."X". ..7|
00005430: 5C 48 8A 82 20 52 50 00 3D 5C 52 8A 8E 00 60 5C |\H.. RP.=\R...`\|
00005440: AC 8A 44 24 B2 C9 28 44 24 2C 32 29 AA C8 28 44 |..D$..(D$,2)..(D|
00005450: 24 2C 32 29 AA CA 28 44 24 2C 33 2C 32 29 3A 8E |$,2)..(D$,3,2):.|
00005460: 00 82 5C 9F 8C 8F 20 3D 3D 3D 3D 20 44 4F 4C 4C |..\... ==== DOLL|
00005470: 41 52 20 46 4F 52 4D 41 54 54 49 4E 47 20 3D 3D |AR FORMATTING ==|
00005480: 3D 3D 00 AC 5C A0 8C 44 4F 24 B2 C4 28 B5 28 C5 |==..\..DO$..(.(.|
00005490: 28 44 4F 24 29 AC 31 30 30 AA 30 2E 35 29 AD 31 |(DO$).100.0.5).1|
000054A0: 30 30 29 3A 4C B2 C3 28 44 4F 24 29 00 D3 5C AA |00):L..(DO$)..\.|
000054B0: 8C 81 20 4A B2 31 20 A4 20 4C 3A 8B 20 CA 28 44 |.. J.1 . L:. .(D|
000054C0: 4F 24 2C 4A 2C 31 29 B2 22 2E 22 20 A7 20 33 36 |O$,J,1)."." . 36|
000054D0: 30 33 30 00 E1 5C B4 8C 82 20 4A 3A 4A B2 4A AB |030..\... J:J.J.|
000054E0: 31 00 0F 5D BE 8C 8B 20 4A B2 32 20 AF 20 4C B1 |1..]... J.2 . L.|
000054F0: 32 20 A7 20 44 4F 24 B2 C8 28 44 4F 24 2C 31 29 |2 . DO$..(DO$,1)|
00005500: AA 22 30 22 AA C9 28 44 4F 24 2C 4C AB 31 29 00 |."0"..(DO$,L.1).|
00005510: 29 5D C8 8C 8B 20 4A B2 4C 20 A7 20 44 4F 24 B2 |)]... J.L . DO$.|
00005520: 44 4F 24 AA 22 2E 30 30 22 00 43 5D D2 8C 8B 20 |DO$.".00".C]... |
00005530: 4A B2 4C AB 31 20 A7 20 44 4F 24 B2 44 4F 24 AA |J.L.1 . DO$.DO$.|
00005540: 22 30 22 00 59 5D E6 8C 44 4F 24 B2 C9 28 53 50 |"0".Y]..DO$..(SP|
00005550: 24 AA 44 4F 24 2C 46 57 29 00 5F 5D F0 8C 8E 00 |$.DO$,FW)._]....|
00005560: 79 5D 40 9C 8D 20 34 30 30 30 35 20 3A 20 8D 20 |y]@.. 40005 : . |
00005570: 34 30 31 35 30 20 3A 20 8E 00 AD 5D 45 9C 53 4E |40150 : ...]E.SN|
00005580: B2 B5 28 52 53 AC 28 52 50 AB 31 29 AD 38 30 29 |..(RS.(RP.1).80)|
00005590: AA 31 3A 4F 53 B2 28 52 53 AC 28 52 50 AB 31 29 |.1:OS.(RS.(RP.1)|
000055A0: 29 AB 28 38 30 AC 28 53 4E AB 31 29 29 00 D1 5D |).(80.(SN.1))..]|
000055B0: 5E 9C 8D 35 32 30 30 30 3A 84 34 2C 49 4E 24 3A |^..52000:.4,IN$:|
000055C0: 49 4E 24 B2 C8 28 49 4E 24 AA 53 53 24 2C 38 30 |IN$..(IN$.SS$,80|
000055D0: 29 00 E3 5D 68 9C 52 4C B2 4F 53 3A 49 39 B2 52 |)..]h.RL.OS:I9.R|
000055E0: 4C AA 31 00 08 5E 72 9C 81 20 4A B2 31 20 A4 20 |L.1..^r.. J.1 . |
000055F0: 4E 46 3A 8B 20 52 4C AA 4C 25 28 4A 29 B1 38 30 |NF:. RL.L%(J).80|
00005600: 20 A7 20 34 30 30 36 35 00 3A 5E 77 9C 52 4C B2 | . 40065.:^w.RL.|
00005610: 52 4C AA 4C 25 28 4A 29 3A 46 24 28 4A 29 B2 CA |RL.L%(J):F$(J)..|
00005620: 28 49 4E 24 2C 49 39 2C 4C 25 28 4A 29 29 3A 49 |(IN$,I9,L%(J)):I|
00005630: 39 B2 49 39 AA 4C 25 28 4A 29 00 46 5E 7C 9C 89 |9.I9.L%(J).F^|..|
00005640: 20 34 30 30 39 30 00 68 5E 81 9C 46 24 28 4A 29 | 40090.h^..F$(J)|
00005650: B2 CA 28 49 4E 24 2C 49 39 2C 38 30 AB 52 4C 29 |..(IN$,I9,80.RL)|
00005660: 3A 53 4E B2 53 4E AA 31 00 7A 5E 86 9C 8D 35 32 |:SN.SN.1.z^...52|
00005670: 30 31 30 3A 84 34 2C 49 4E 24 00 AF 5E 90 9C 49 |010:.4,IN$..^..I|
00005680: 4E 24 B2 C8 28 49 4E 24 AA 53 53 24 2C 38 30 29 |N$..(IN$.SS$,80)|
00005690: 3A 46 24 28 4A 29 B2 46 24 28 4A 29 AA C8 28 49 |:F$(J).F$(J)..(I|
000056A0: 4E 24 2C 4C 25 28 4A 29 AA 52 4C AB 38 30 29 00 |N$,L%(J).RL.80).|
000056B0: CC 5E 95 9C 52 4C B2 4C 25 28 4A 29 AB 28 38 30 |.^..RL.L%(J).(80|
000056C0: AB 52 4C 29 3A 49 39 B2 52 4C AA 31 00 D4 5E 9A |.RL):I9.RL.1..^.|
000056D0: 9C 82 20 4A 00 E9 5E D1 9C A0 31 3A A0 34 3A 98 |.. J..^...1:.4:.|
000056E0: 31 35 2C 22 49 30 22 3A 8E 00 0A 5F D6 9C 81 20 |15,"I0":..._... |
000056F0: 49 49 B2 31 A4 4E 46 3A 47 24 28 49 49 29 B2 46 |II.1.NF:G$(II).F|
00005700: 24 28 49 49 29 3A 82 20 49 49 00 23 5F E0 9C 81 |$(II):. II.#_...|
00005710: 50 5A B2 31 A4 4E 43 3A 8D 32 38 35 30 30 3A 82 |PZ.1.NC:.28500:.|
00005720: 20 50 5A 00 46 5F EA 9C 81 49 49 B2 31 A4 4E 43 | PZ.F_...II.1.NC|
00005730: 3A 20 43 44 28 49 49 29 20 B2 20 43 45 28 49 49 |: CD(II) . CE(II|
00005740: 29 20 3A 82 49 49 00 65 5F F4 9C 81 49 49 B2 31 |) :.II.e_...II.1|
00005750: A4 4E 47 3A 47 4B 28 49 49 29 B2 47 4C 28 49 49 |.NG:GK(II).GL(II|
00005760: 29 3A 82 49 49 00 6B 5F FE 9C 8E 00 8F 5F 33 9E |):.II.k_....._3.|
00005770: 8F 20 3D 3D 3D 3D 20 41 44 44 20 54 52 41 49 4C |. ==== ADD TRAIL|
00005780: 49 4E 47 20 42 4C 41 4E 4B 53 20 3D 3D 3D 3D 00 |ING BLANKS ====.|
00005790: AE 5F 34 9E 47 24 28 49 29 B2 C8 28 47 24 28 49 |._4.G$(I)..(G$(I|
000057A0: 29 AA 53 53 24 2C 4C 25 28 49 29 29 3A 8E 00 CC |).SS$,L%(I)):...|
000057B0: 5F 27 A0 8F 20 3D 3D 3D 3D 20 53 54 52 49 4E 47 |_'.. ==== STRING|
000057C0: 20 53 45 41 52 43 48 20 3D 3D 3D 3D 00 E7 5F 28 | SEARCH ====.._(|
000057D0: A0 81 20 4A 49 B2 31 20 A4 20 C3 28 42 24 29 AA |.. JI.1 . .(B$).|
000057E0: 31 AB C3 28 41 24 29 00 0F 60 32 A0 8B 20 CA 28 |1..(A$)..`2.. .(|
000057F0: 42 24 2C 4A 49 2C C3 28 41 24 29 29 B2 41 24 20 |B$,JI,.(A$)).A$ |
00005800: A7 20 49 39 B2 4A 49 3A 89 20 34 31 30 34 30 00 |. I9.JI:. 41040.|
00005810: 18 60 3C A0 82 20 4A 49 00 21 60 46 A0 49 39 B2 |.`<.. JI.!`F.I9.|
00005820: 30 00 27 60 50 A0 8E 00 51 60 10 A4 8F 20 3D 3D |0.'`P...Q`... ==|
00005830: 3D 3D 20 57 52 49 54 45 20 52 45 43 4F 52 44 20 |== WRITE RECORD |
00005840: 54 4F 20 44 41 54 41 20 46 49 4C 45 20 3D 3D 3D |TO DATA FILE ===|
00005850: 3D 00 6F 60 12 A4 8D 20 31 33 31 30 30 20 3A 20 |=.o`... 13100 : |
00005860: 8F 20 55 50 44 41 54 45 20 54 4F 54 41 4C 53 00 |. UPDATE TOTALS.|
00005870: A3 60 15 A4 53 4E B2 B5 28 52 53 AC 28 52 50 AB |.`..SN..(RS.(RP.|
00005880: 31 29 AD 38 30 29 AA 31 3A 4F 53 B2 28 52 53 AC |1).80).1:OS.(RS.|
00005890: 28 52 50 AB 31 29 29 AB 28 38 30 AC 28 53 4E AB |(RP.1)).(80.(SN.|
000058A0: 31 29 29 00 C7 60 2E A4 8D 35 32 30 30 30 3A 84 |1))..`...52000:.|
000058B0: 34 2C 49 4E 24 3A 49 4E 24 B2 C8 28 49 4E 24 AA |4,IN$:IN$..(IN$.|
000058C0: 53 53 24 2C 38 30 29 00 E7 60 38 A4 4F 50 24 B2 |SS$,80)..`8.OP$.|
000058D0: C8 28 49 4E 24 2C 4F 53 29 3A 52 4C B2 4F 53 3A |.(IN$,OS):RL.OS:|
000058E0: 49 39 B2 52 4C AA 31 00 F6 60 42 A4 81 20 4A B2 |I9.RL.1..`B.. J.|
000058F0: 31 20 A4 20 4E 46 00 10 61 45 A4 8B 20 52 4C AA |1 . NF..aE.. RL.|
00005900: 4C 25 28 4A 29 B1 38 30 20 A7 20 34 32 30 36 33 |L%(J).80 . 42063|
00005910: 00 2E 61 48 A4 52 4C B2 52 4C AA 4C 25 28 4A 29 |..aH.RL.RL.L%(J)|
00005920: 3A 4F 50 24 B2 4F 50 24 AA 47 24 28 4A 29 00 3A |:OP$.OP$.G$(J).:|
00005930: 61 4C A4 89 20 34 32 30 38 30 00 63 61 4F A4 4F |aL.. 42080.caO.O|
00005940: 50 24 B2 4F 50 24 AA C8 28 47 24 28 4A 29 2C 38 |P$.OP$..(G$(J),8|
00005950: 30 AB 52 4C 29 3A 8D 35 32 30 31 30 3A 98 34 2C |0.RL):.52010:.4,|
00005960: 4F 50 24 00 6F 61 56 A4 53 4E B2 53 4E AA 31 00 |OP$.oaV.SN.SN.1.|
00005970: 93 61 59 A4 8D 35 32 30 31 30 3A 84 34 2C 49 4E |.aY..52010:.4,IN|
00005980: 24 3A 49 4E 24 B2 C8 28 49 4E 24 AA 53 53 24 2C |$:IN$..(IN$.SS$,|
00005990: 38 30 29 00 BB 61 5C A4 4F 50 24 B2 CA 28 47 24 |80)..a\.OP$..(G$|
000059A0: 28 4A 29 2C 38 31 AB 52 4C 29 3A 52 4C B2 4C 25 |(J),81.RL):RL.L%|
000059B0: 28 4A 29 AB 28 38 30 AB 52 4C 29 00 C3 61 60 A4 |(J).(80.RL)..a`.|
000059C0: 82 20 4A 00 EF 61 98 A4 4F 50 24 B2 4F 50 24 AA |. J..a..OP$.OP$.|
000059D0: CA 28 49 4E 24 2C 52 4C AA 31 29 3A 8D 35 32 30 |.(IN$,RL.1):.520|
000059E0: 31 30 3A 98 34 2C 4F 50 24 3A A0 34 3A A0 31 00 |10:.4,OP$:.4:.1.|
000059F0: FE 61 9A A4 98 31 35 2C 22 49 30 22 3A 8E 00 1E |.a...15,"I0":...|
00005A00: 62 68 BF 99 20 C8 28 59 24 2C 59 25 29 3B A3 58 |bh.. .(Y$,Y%);.X|
00005A10: 25 29 3B 22 2E 2E 2F 2E 2E 2F 2E 2E 22 3B 00 4C |%);"../../..";.L|
00005A20: 62 72 BF 4A B2 31 20 3A 20 49 4E 24 B2 22 22 20 |br.J.1 : IN$."" |
00005A30: 3A 20 41 44 20 B2 20 31 30 32 34 AA 28 59 25 AB |: AD . 1024.(Y%.|
00005A40: 31 29 AC 34 30 20 AA 20 58 25 AB 31 00 65 62 7C |1).40 . X%.1.eb||
00005A50: BF 97 20 41 44 AA 4A 2C C2 28 41 44 AA 4A 29 20 |.. AD.J,.(AD.J) |
00005A60: B0 20 31 32 38 00 80 62 86 BF A1 20 4A 24 20 3A |. 128..b... J$ :|
00005A70: 20 8B 20 4A 24 B2 22 22 20 A7 20 34 39 30 33 30 | . J$."" . 49030|
00005A80: 00 8F 62 90 BF 4A 4A 20 B2 20 C6 28 4A 24 29 00 |..b..JJ . .(J$).|
00005A90: A9 62 95 BF 8B 20 4A 4A B2 31 33 20 AF 20 4A B2 |.b... JJ.13 . J.|
00005AA0: 31 20 A7 20 34 39 30 38 35 00 C3 62 9A BF 8B 20 |1 . 49085..b... |
00005AB0: 4A 4A B2 31 33 33 20 A7 20 49 4E 24 B2 4A 24 20 |JJ.133 . IN$.J$ |
00005AC0: 3A 20 8E 00 E1 62 AE BF 8B 20 4A 4A B1 B2 34 38 |: ...b... JJ..48|
00005AD0: 20 AF 20 4A 4A B3 B2 35 37 20 A7 20 34 39 32 30 | . JJ..57 . 4920|
00005AE0: 30 00 F6 62 B8 BF 8B 20 4A 4A B3 B1 31 33 20 A7 |0..b... JJ..13 .|
00005AF0: 20 34 39 31 31 30 00 0A 63 BC BF 8B 20 49 4E 24 | 49110..c... IN$|
00005B00: B3 B1 22 22 A7 34 39 30 39 30 00 1E 63 BD BF 8B |.."".49090..c...|
00005B10: 20 4B 46 B2 46 43 20 A7 20 34 39 30 33 30 00 48 | KF.FC . 49030.H|
00005B20: 63 BE BF 49 4E 24 B2 22 30 30 30 30 30 30 22 3A |c..IN$."000000":|
00005B30: 99 C8 28 59 24 2C 59 25 29 3B A3 58 25 AA 4A AB |..(Y$,Y%);.X%.J.|
00005B40: 31 29 3B 22 2E 22 3A 8E 00 5F 63 C2 BF 8B 20 C3 |1);".":.._c... .|
00005B50: 28 49 4E 24 29 B3 36 20 A7 20 34 39 30 33 30 00 |(IN$).6 . 49030.|
00005B60: 82 63 CC BF 97 20 41 44 AA 38 2C C2 28 41 44 AA |.c... AD.8,.(AD.|
00005B70: 38 29 20 AF 20 31 32 37 20 3A 20 89 20 34 39 32 |8) . 127 : . 492|
00005B80: 35 30 00 97 63 D6 BF 8B 20 4A 4A B3 B1 32 30 20 |50..c... JJ..20 |
00005B90: A7 20 34 39 31 36 30 00 B4 63 E0 BF 99 20 C8 28 |. 49160..c... .(|
00005BA0: 59 24 2C 5B 25 29 3B A3 58 25 AA 4A AB 31 29 3B |Y$,[%);.X%.J.1);|
00005BB0: 22 2E 22 3B 00 CF 63 E5 BF 8B 20 4A B2 31 20 A7 |".";..c... J.1 .|
00005BC0: 20 49 4E 24 B2 22 22 3A 89 20 34 39 30 32 30 00 | IN$."":. 49020.|
00005BD0: E8 63 E7 BF 8B 20 4A B2 38 20 A7 20 49 4E 24 B2 |.c... J.8 . IN$.|
00005BE0: C8 28 49 4E 24 2C 35 29 00 1A 64 EA BF 49 4E 24 |.(IN$,5)..d..IN$|
00005BF0: B2 C8 28 49 4E 24 2C C3 28 49 4E 24 29 AB 31 29 |..(IN$,.(IN$).1)|
00005C00: 3A 4A B2 4A AB 31 3A 8B 20 4A B2 33 20 B0 20 4A |:J.J.1:. J.3 . J|
00005C10: B2 36 20 A7 20 4A B2 4A AB 31 00 37 64 EF BF 99 |.6 . J.J.1.7d...|
00005C20: 20 C8 28 59 24 2C 59 25 29 3B A3 58 25 AA 4A AB | .(Y$,Y%);.X%.J.|
00005C30: 31 29 3B 22 2E 22 3B 00 43 64 F4 BF 89 20 34 39 |1);".";.Cd... 49|
00005C40: 30 32 30 00 58 64 08 C0 8B 20 4A 4A B3 B1 33 32 |020.Xd... JJ..32|
00005C50: 20 A7 20 34 39 30 33 30 00 75 64 12 C0 99 20 C8 | . 49030.ud... .|
00005C60: 28 59 24 2C 59 25 29 3B A3 58 25 AA 4A AB 31 29 |(Y$,Y%);.X%.J.1)|
00005C70: 3B 22 20 22 3B 00 A0 64 1C C0 8B 20 4A B2 31 20 |;" ";..d... J.1 |
00005C80: B0 20 4A B2 34 20 B0 20 4A B2 37 20 A7 20 4A 24 |. J.4 . J.7 . J$|
00005C90: B2 C7 28 34 38 29 20 3A 20 89 20 34 39 32 31 30 |..(48) : . 49210|
00005CA0: 00 B9 64 26 C0 4A 24 20 B2 20 C7 28 33 32 29 20 |..d&.J$ . .(32) |
00005CB0: 3A 20 89 20 34 39 32 31 30 00 D5 64 30 C0 99 20 |: . 49210..d0.. |
00005CC0: C8 28 59 24 2C 59 25 29 3B A3 58 25 AA 4A AB 31 |.(Y$,Y%);.X%.J.1|
00005CD0: 29 3B 4A 24 3B 00 EE 64 3A C0 8B 20 4A B2 38 20 |);J$;..d:.. J.8 |
00005CE0: A7 20 49 4E 24 B2 C8 2A 49 4E 24 2C 35 29 00 1B |. IN$..*IN$,5)..|
00005CF0: 65 44 C0 49 4E 24 B2 49 4E 24 AA 4A 24 20 3A 20 |eD.IN$.IN$.J$ : |
00005D00: 4A B2 4A AA 31 20 3A 20 8B 20 4A B2 33 20 B0 20 |J.J.1 : . J.3 . |
00005D10: 4A B2 36 20 A7 20 4A B2 4A AA 31 00 2B 65 4E C0 |J.6 . J.J.1.+eN.|
00005D20: 8B 20 4A B2 39 20 A7 20 4A B2 38 00 37 65 58 C0 |. J.9 . J.8.7eX.|
00005D30: 89 20 34 39 30 32 30 00 6A 65 62 C0 58 58 B2 C5 |. 49020.jeb.XX..|
00005D40: 28 C8 28 49 4E 24 2C 32 29 29 3A 59 59 B2 C5 28 |(.(IN$,2)):YY..(|
00005D50: CA 28 49 4E 24 2C 33 2C 32 29 29 3A 5A 5A B2 C5 |.(IN$,3,2)):ZZ..|
00005D60: 28 C9 28 49 4E 24 2C 32 29 29 00 7D 65 80 C0 99 |(.(IN$,2)).}e...|
00005D70: C8 28 59 24 2C 32 33 29 3B 53 50 24 3B 00 AE 65 |.(Y$,23);SP$;..e|
00005D80: 85 C0 8B 28 5A 5A AD 34 29 B3 B1 B5 28 5A 5A AD |...(ZZ.4)...(ZZ.|
00005D90: 34 29 A7 8D 34 39 33 35 30 3A 8B 45 52 B2 31 38 |4)..49350:.ER.18|
00005DA0: 20 A7 20 45 52 B2 30 3A 89 34 39 30 30 30 00 E9 | . ER.0:.49000..|
00005DB0: 65 8A C0 8B 20 58 58 B3 31 20 B0 20 58 58 B1 31 |e... XX.1 . XX.1|
00005DC0: 32 20 A7 20 99 C8 28 59 24 2C 32 33 29 3B 22 CD |2 . ..(Y$,23);".|
00005DD0: 4F 4E 54 48 20 4F 55 54 20 4F 46 20 52 41 4E 47 |ONTH OUT OF RANG|
00005DE0: 45 22 3A 89 34 39 30 30 30 00 26 66 94 C0 8B 20 |E":.49000.&f... |
00005DF0: 59 59 B3 31 20 B0 20 59 59 B1 44 54 25 28 58 58 |YY.1 . YY.DT%(XX|
00005E00: 29 20 A7 99 C8 28 59 24 2C 32 33 29 3B 22 C4 41 |) ...(Y$,23);".A|
00005E10: 59 20 4F 55 54 20 4F 46 20 52 41 4E 47 45 22 3A |Y OUT OF RANGE":|
00005E20: 89 34 39 30 30 30 00 43 66 9E C0 49 4E 24 B2 C9 |.49000.Cf..IN$..|
00005E30: 28 22 30 30 22 AA CA 28 C4 28 58 58 29 2C 32 29 |("00"..(.(XX),2)|
00005E40: 2C 32 29 00 64 66 A8 C0 49 4E 24 B2 49 4E 24 AA |,2).df..IN$.IN$.|
00005E50: C9 28 22 30 30 22 AA CA 28 C4 28 59 59 29 2C 32 |.("00"..(.(YY),2|
00005E60: 29 2C 32 29 00 85 66 B2 C0 49 4E 24 B2 49 4E 24 |),2)..f..IN$.IN$|
00005E70: AA C9 28 22 30 30 22 AA CA 28 C4 28 5A 5A 29 2C |..("00"..(.(ZZ),|
00005E80: 32 29 2C 32 29 00 8B 66 BC C0 8E 00 C1 66 C6 C0 |2),2)..f.....f..|
00005E90: 8B 20 58 58 B2 32 20 AF 20 59 59 B2 32 39 A7 45 |. XX.2 . YY.29.E|
00005EA0: 52 B2 31 38 3A 99 C8 28 59 24 2C 32 33 29 3B 22 |R.18:..(Y$,23);"|
00005EB0: C4 41 59 20 4F 55 54 20 4F 46 20 52 41 4E 47 45 |.AY OUT OF RANGE|
00005EC0: 22 00 C7 66 D0 C0 8E 00 FE 66 4F C3 8F 20 3D 3D |"..f.....fO.. ==|
00005ED0: 3D 3D 20 54 45 58 54 20 46 49 4C 45 20 54 4F 20 |== TEXT FILE TO |
00005EE0: 42 49 4E 41 52 59 20 43 4F 4E 56 45 52 53 49 4F |BINARY CONVERSIO|
00005EF0: 4E 20 50 52 4F 47 52 41 4D 20 3D 3D 3D 3D 00 35 |N PROGRAM ====.5|
00005F00: 67 50 C3 49 B2 30 3A 50 4E 24 B2 22 22 3A 4C B2 |gP.I.0:PN$."":L.|
00005F10: C2 28 38 32 38 29 3A 81 58 B2 31 A4 4C 3A 50 4E |.(828):.X.1.L:PN|
00005F20: 24 B2 50 4E 24 AA C7 28 C2 28 38 32 38 AA 58 29 |$.PN$..(.(828.X)|
00005F30: 29 3A 82 20 58 00 53 67 59 C3 8D 33 32 30 30 30 |):. X.SgY..32000|
00005F40: 3A 9F 32 2C 38 2C 32 2C 22 30 3A 22 AA 28 50 4E |:.2,8,2,"0:".(PN|
00005F50: 24 29 3A 00 6E 67 5A C3 97 31 35 32 2C 31 3A 97 |$):.ngZ..152,1:.|
00005F60: 31 35 33 2C 38 3A 51 24 B2 C7 28 33 34 29 00 86 |153,8:Q$..(34)..|
00005F70: 67 64 C3 50 50 24 B2 C8 28 50 4E 24 2C 4C AB 32 |gd.PP$..(PN$,L.2|
00005F80: 29 AA 22 2F 54 22 00 9F 67 6E C3 99 22 93 11 11 |)."/T"..gn.."...|
00005F90: 11 22 3A 8B 20 49 B2 30 20 A7 35 30 30 35 30 00 |.":. I.0 .50050.|
00005FA0: A6 67 78 C3 8F 3A 00 C0 67 82 C3 81 5A B2 31 20 |.gx..:..g...Z.1 |
00005FB0: A4 39 20 3A 20 81 20 5A 31 B2 31 20 A4 20 38 30 |.9 : . Z1.1 . 80|
00005FC0: 00 E0 67 8C C3 A1 20 23 32 2C 41 24 3A 99 41 24 |..g... #2,A$:.A$|
00005FD0: 3B 3A 8B 20 53 54 B2 36 34 A7 20 35 30 31 34 30 |;:. ST.64. 50140|
00005FE0: 00 F6 67 AA C3 8B 20 41 24 B2 C7 28 31 33 29 A7 |..g... A$..(13).|
00005FF0: 20 35 30 31 30 30 00 FF 67 AF C3 82 20 5A 31 00 | 50100..g... Z1.|
00006000: 07 68 B4 C3 82 20 5A 00 3F 68 BE C3 99 22 49 3D |.h... Z.?h..."I=|
00006010: 22 3B 49 AA 39 3B 22 3A 4C 3D 22 3B 4C 3B 22 3A |";I.9;":L=";L;":|
00006020: 50 4E 24 3D 22 3B 51 24 3B 50 4E 24 3B 51 24 3B |PN$=";Q$;PN$;Q$;|
00006030: 22 3A 47 4F 54 4F 20 35 30 30 31 30 13 11 22 00 |":GOTO 50010..".|
00006040: 60 68 C8 C3 97 20 31 39 38 2C 31 31 3A 81 4E B2 |`h... 198,11:.N.|
00006050: 30 A4 39 3A 97 36 33 31 AA 4E 2C 31 33 3A 82 4E |0.9:.631.N,13:.N|
00006060: 00 66 68 D2 C3 80 00 92 68 DC C3 99 22 50 50 24 |.fh.....h..."PP$|
00006070: 3D 22 3B C7 28 33 34 29 3B 50 50 24 3B C7 28 33 |=";.(34);PP$;.(3|
00006080: 34 29 3B 22 3A 47 4F 54 4F 20 35 30 31 36 30 13 |4);":GOTO 50160.|
00006090: 11 22 00 B5 68 E6 C3 97 20 31 39 38 2C 5A AA 31 |."..h... 198,Z.1|
000060A0: 3A 81 4E B2 30 20 A4 5A 3A 97 36 33 31 AA 4E 2C |:.N.0 .Z:.631.N,|
000060B0: 31 33 3A 82 4E 00 BE 68 EB C3 A0 32 3A 80 00 FF |13:.N..h...2:...|
000060C0: 68 F0 C3 4E 4D 24 B2 C8 28 50 50 24 2C C3 28 50 |h..NM$..(PP$,.(P|
000060D0: 50 24 29 AB 32 29 3A 53 46 24 B2 4E 4D 24 AA 22 |P$).2):SF$.NM$."|
000060E0: 2F 53 22 3A 54 46 24 B2 4E 4D 24 AA 22 2F 42 22 |/S":TF$.NM$."/B"|
000060F0: 3A 41 46 24 B2 4E 4D 24 AA 22 2F 50 43 46 22 00 |:AF$.NM$."/PCF".|
00006100: 17 69 F1 C3 50 4E 24 B2 4E 4D 24 AA 22 2F 54 22 |.i..PN$.NM$."/T"|
00006110: 3A 89 36 30 30 30 30 00 5A 69 9C C7 99 C8 28 59 |:.60000.Zi....(Y|
00006120: 24 2C 32 34 29 3B 53 50 24 3B 53 50 24 3B C8 28 |$,24);SP$;SP$;.(|
00006130: 59 24 2C 32 34 29 3B 22 C9 53 20 59 4F 55 52 20 |Y$,24);".S YOUR |
00006140: 50 52 49 4E 54 45 52 20 41 20 C3 4F 4D 4D 4F 44 |PRINTER A .OMMOD|
00006150: 4F 52 45 3F 20 12 20 92 22 3B 00 83 69 9E C7 A1 |ORE? . .";..i...|
00006160: 41 24 3A 8B 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 |A$:.A$.."Y".A$..|
00006170: 22 4E 22 AF 41 24 B3 B1 C7 28 31 33 29 A7 35 31 |"N".A$...(13).51|
00006180: 31 30 32 00 97 69 A0 C7 8B 41 24 B2 C7 28 31 33 |102..i...A$..(13|
00006190: 29 A7 35 31 31 30 38 00 C5 69 A2 C7 49 4E 24 B2 |).51108..i..IN$.|
000061A0: 41 24 3A 99 C8 28 59 24 2C 32 34 29 3B A6 32 39 |A$:..(Y$,24);.29|
000061B0: 29 3B 22 12 22 3B 49 4E 24 3B 22 92 22 3B 3A 89 |);".";IN$;".";:.|
000061C0: 35 31 31 30 32 00 D7 69 A4 C7 8B 49 4E 24 B2 22 |51102..i...IN$."|
000061D0: 22 A7 35 31 31 30 32 00 F2 69 A6 C7 8B 49 4E 24 |".51102..i...IN$|
000061E0: B2 22 59 22 A7 97 38 33 32 2C 37 3A 89 35 31 31 |."Y"..832,7:.511|
000061F0: 32 30 00 FD 69 A8 C7 97 38 33 32 2C 38 00 1C 6A |20..i...832,8..j|
00006200: B0 C7 A0 33 3A 9F 33 2C 34 3A 98 33 2C 22 22 3A |...3:.3,4:.3,"":|
00006210: 8B 53 54 B3 B1 30 A7 35 31 31 35 30 00 4B 6A B5 |.ST..0.51150.Kj.|
00006220: C7 99 C8 28 59 24 2C 32 34 29 3B 53 50 24 3B 53 |...(Y$,24);SP$;S|
00006230: 50 24 3B C8 28 59 24 2C 32 35 29 3B 22 D0 52 49 |P$;.(Y$,25);".RI|
00006240: 4E 54 49 4E 47 2E 2E 2E 2E 22 3B 00 54 6A BA C7 |NTING....";.Tj..|
00006250: 9E 38 32 38 00 61 6A BF C7 8D 35 32 32 31 30 3A |.828.aj...52210:|
00006260: 8E 00 8B 6A CD C7 8F 20 3D 3D 3D 3D 20 50 52 49 |...j... ==== PRI|
00006270: 4E 54 45 52 20 45 52 52 4F 52 20 4D 53 47 20 52 |NTER ERROR MSG R|
00006280: 4F 55 54 49 4E 45 20 3D 3D 3D 3D 00 B9 6A CE C7 |OUTINE ====..j..|
00006290: 99 C8 28 59 24 2C 32 33 29 22 20 20 12 D0 52 49 |..(Y$,23)" ..RI|
000062A0: 4E 54 45 52 20 CE 4F 54 20 D2 45 41 44 59 92 20 |NTER .OT .EADY. |
000062B0: 20 20 20 20 20 20 20 20 22 00 C9 6A E2 C7 81 58 | "..j...X|
000062C0: B2 31 A4 31 32 30 30 3A 82 00 E1 6A EC C7 99 C8 |.1.1200:...j....|
000062D0: 28 59 24 2C 32 33 29 3B 53 50 24 3B 3A A0 33 3A |(Y$,23);SP$;:.3:|
000062E0: 8E 00 0C 6B 20 CB 8F 20 3D 3D 3D 3D 20 50 4F 53 |...k .. ==== POS|
000062F0: 49 54 49 4F 4E 20 44 41 54 41 20 46 49 4C 45 20 |ITION DATA FILE |
00006300: 50 4F 49 4E 54 45 52 20 3D 3D 3D 3D 00 28 6B 25 |POINTER ====.(k%|
00006310: CB 9F 31 2C 38 2C 31 35 3A 9F 34 2C 38 2C 34 2C |..1,8,15:.4,8,4,|
00006320: 22 30 3A 22 AA 44 46 24 00 46 6B 2A CB 52 32 B2 |"0:".DF$.Fk*.R2.|
00006330: B5 28 53 4E AD 32 35 36 29 3A 52 31 B2 53 4E AB |.(SN.256):R1.SN.|
00006340: 32 35 36 AC 52 32 00 63 6B 34 CB 98 31 2C 22 50 |256.R2.ck4..1,"P|
00006350: 22 C7 28 34 29 C7 28 52 31 29 C7 28 52 32 29 C7 |".(4).(R1).(R2).|
00006360: 28 31 29 00 69 6B 3E CB 8E 00 95 6B 84 CB 8F 20 |(1).ik>....k... |
00006370: 3D 3D 3D 3D 20 50 4F 53 49 54 49 4F 4E 20 49 4E |==== POSITION IN|
00006380: 44 45 58 20 46 49 4C 45 20 50 4F 49 4E 54 45 52 |DEX FILE POINTER|
00006390: 20 3D 3D 3D 3D 00 B1 6B 89 CB 9F 31 2C 38 2C 31 | ====..k...1,8,1|
000063A0: 35 3A 9F 32 2C 38 2C 32 2C 22 30 3A 22 AA 48 46 |5:.2,8,2,"0:".HF|
000063B0: 24 00 CF 6B 8E CB 52 32 B2 B5 28 52 50 AD 32 35 |$..k..R2..(RP.25|
000063C0: 36 29 3A 52 31 B2 52 50 AB 32 35 36 AC 52 32 00 |6):R1.RP.256.R2.|
000063D0: EC 6B 98 CB 98 31 2C 22 50 22 C7 28 32 29 C7 28 |.k...1,"P".(2).(|
000063E0: 52 31 29 C7 28 52 32 29 C7 28 31 29 00 F2 6B A2 |R1).(R2).(1)..k.|
000063F0: CB 8E 00 16 6C A7 CB 8F 20 3D 3D 3D 3D 20 52 45 |....l... ==== RE|
00006400: 41 44 20 46 52 4F 4D 20 48 41 53 48 20 46 49 4C |AD FROM HASH FIL|
00006410: 45 20 3D 3D 3D 3D 00 33 6C AC CB 84 32 2C 49 4B |E ====.3l...2,IK|
00006420: 24 3A A0 31 3A A0 32 3A 49 4B B2 C5 28 49 4B 24 |$:.1:.2:IK..(IK$|
00006430: 29 3A 8E 00 56 6C B1 CB 8F 20 3D 3D 3D 3D 20 57 |):..Vl... ==== W|
00006440: 52 49 54 45 20 54 4F 20 48 41 53 48 20 46 49 4C |RITE TO HASH FIL|
00006450: 45 20 3D 3D 3D 3D 00 69 6C B3 CB 98 32 2C 49 4B |E ====.il...2,IK|
00006460: 24 3A A0 31 3A A0 32 3A 8E 00 96 6C B6 CB 8F 20 |$:.1:.2:...l... |
00006470: 3D 3D 3D 3D 20 50 4F 53 49 54 49 4F 4E 20 46 4F |==== POSITION FO|
00006480: 52 4D 41 54 20 46 4F 52 20 47 42 4C 20 46 49 4C |RMAT FOR GBL FIL|
00006490: 45 20 3D 3D 3D 3D 00 B4 6C C0 CB 52 32 B2 B5 28 |E ====..l..R2..(|
000064A0: 49 4A AD 32 35 36 29 3A 52 31 B2 49 4A AB 32 35 |IJ.256):R1.IJ.25|
000064B0: 36 AC 52 32 00 D2 6C CA CB 98 31 35 2C 22 50 22 |6.R2..l...15,"P"|
000064C0: C7 28 33 29 C7 28 52 31 29 C7 28 52 32 29 C7 28 |.(3).(R1).(R2).(|
000064D0: 31 29 00 D8 6C D4 CB 8E 00 0A 6D E8 CB 8F 20 3D |1)..l.....m... =|
000064E0: 3D 3D 3D 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 |=== ERROR CHANNE|
000064F0: 4C 20 4F 50 45 4E 20 41 4E 44 20 49 4E 50 55 54 |L OPEN AND INPUT|
00006500: 20 52 54 4E 53 20 3D 3D 3D 3D 00 1A 6D F2 CB 9F | RTNS ====..m...|
00006510: 20 31 35 2C 38 2C 31 35 3A 8E 00 32 6D FC CB 84 | 15,8,15:..2m...|
00006520: 31 35 2C 45 52 24 2C 45 4D 24 2C 45 54 24 2C 45 |15,ER$,EM$,ET$,E|
00006530: 53 24 00 4F 6D 06 CC 44 53 B2 30 3A 44 53 B2 C5 |S$.Om..DS.0:DS..|
00006540: 28 45 52 24 29 3A 8B 44 53 B2 30 20 A7 20 8E 00 |(ER$):.DS.0 . ..|
00006550: 6D 6D 10 CC 44 53 24 B2 45 52 24 AA 20 AA 45 4D |mm..DS$.ER$. .EM|
00006560: 24 AA 20 AA 45 54 24 AA 20 AA 45 53 24 00 73 6D |$. .ET$. .ES$.sm|
00006570: 1A CC 8E 00 96 6D 08 CF 8F 20 3D 3D 3D 3D 20 53 |.....m... ==== S|
00006580: 45 54 20 44 49 53 50 4C 41 59 20 43 4F 4C 4F 52 |ET DISPLAY COLOR|
00006590: 53 20 3D 3D 3D 3D 00 A9 6D 0D CF 43 31 B2 30 3A |S ====..m..C1.0:|
000065A0: 43 32 B2 30 3A 43 33 B2 31 00 C4 6D 12 CF 43 4F |C2.0:C3.1..m..CO|
000065B0: 24 B2 22 90 05 1C 9F 9C 1E 1F 9E 81 95 96 97 98 |$.".............|
000065C0: 99 9A 9B 22 00 E4 6D 17 CF 99 C7 28 31 34 37 29 |..."..m....(147)|
000065D0: A3 31 33 29 22 D3 45 54 20 C3 4F 4C 4F 52 20 CD |.13)".ET .OLOR .|
000065E0: 4F 44 45 22 00 09 6E 1C CF 99 3A 99 3A 99 A3 35 |ODE"..n...:.:..5|
000065F0: 29 22 5B 46 31 5D 20 53 45 54 53 20 53 43 52 45 |)"[F1] SETS SCRE|
00006600: 45 4E 20 43 4F 4C 4F 52 22 00 2C 6E 21 CF 99 3A |EN COLOR".,n!..:|
00006610: 99 A3 35 29 22 5B 46 33 5D 20 53 45 54 53 20 42 |..5)"[F3] SETS B|
00006620: 4F 52 44 45 52 20 43 4F 4C 4F 52 22 00 4D 6E 26 |ORDER COLOR".Mn&|
00006630: CF 99 3A 99 A3 35 29 22 5B 46 35 5D 20 53 45 54 |..:..5)"[F5] SET|
00006640: 53 20 54 45 58 54 20 43 4F 4C 4F 52 22 00 77 6E |S TEXT COLOR".wn|
00006650: 2B CF 99 3A 99 A3 35 29 22 5B 46 37 5D 20 52 45 |+..:..5)"[F7] RE|
00006660: 54 55 52 4E 53 20 59 4F 55 20 54 4F 20 4D 41 49 |TURNS YOU TO MAI|
00006670: 4E 20 4D 45 4E 55 22 00 8E 6E 35 CF A1 41 41 24 |N MENU"..n5..AA$|
00006680: 3A 8B 41 41 24 B2 22 22 A7 35 33 30 34 35 00 A4 |:.AA$."".53045..|
00006690: 6E 3A CF 8B 41 41 24 B2 C7 28 31 33 33 29 A7 35 |n:..AA$..(133).5|
000066A0: 33 30 37 35 00 BA 6E 3F CF 8B 41 41 24 B2 C7 28 |3075..n?..AA$..(|
000066B0: 31 33 34 29 A7 35 33 30 38 35 00 D0 6E 44 CF 8B |134).53085..nD..|
000066C0: 41 41 24 B2 C7 28 31 33 35 29 A7 35 33 30 39 35 |AA$..(135).53095|
000066D0: 00 E3 6E 49 CF 8B 41 41 24 B2 C7 28 31 33 36 29 |..nI..AA$..(136)|
000066E0: A7 20 8E 00 EE 6E 4E CF 89 35 33 30 34 35 00 07 |. ...nN..53045..|
000066F0: 6F 53 CF 43 31 B2 20 43 31 AA 31 3A 8B 43 31 B1 |oS.C1. C1.1:.C1.|
00006700: 31 35 A7 43 31 B2 30 00 1C 6F 58 CF 97 35 33 32 |15.C1.0..oX..532|
00006710: 38 31 2C 43 31 3A 89 35 33 30 31 35 00 35 6F 5D |81,C1:.53015.5o]|
00006720: CF 43 32 B2 20 43 32 AA 31 3A 8B 43 32 B1 31 35 |.C2. C2.1:.C2.15|
00006730: A7 43 32 B2 30 00 4A 6F 62 CF 97 35 33 32 38 30 |.C2.0.Job..53280|
00006740: 2C 43 32 3A 89 35 33 30 31 35 00 63 6F 67 CF 43 |,C2:.53015.cog.C|
00006750: 33 B2 20 43 33 AA 31 3A 8B 43 33 B1 31 37 A7 43 |3. C3.1:.C3.17.C|
00006760: 33 B2 31 00 7C 6F 6C CF 99 20 CA 28 43 4F 24 2C |3.1.|ol.. .(CO$,|
00006770: 43 33 2C 31 29 3A 89 35 33 30 31 35 00 9B 6F F0 |C3,1):.53015..o.|
00006780: D2 8F 20 3D 3D 3D 3D 20 42 45 45 50 45 52 20 52 |.. ==== BEEPER R|
00006790: 4F 55 54 49 4E 45 20 3D 3D 3D 3D 00 AB 6F F1 D2 |OUTINE ====..o..|
000067A0: 8B 53 44 B2 31 A7 35 34 30 35 35 00 B7 6F F5 D2 |.SD.1.54055..o..|
000067B0: 53 B2 35 34 32 37 32 00 C5 6F FA D2 97 20 53 AA |S.54272..o... S.|
000067C0: 32 34 2C 31 35 00 D2 6F FF D2 97 20 53 AA 32 2C |24,15..o... S.2,|
000067D0: 37 32 00 E0 6F 04 D3 81 20 58 B2 31 20 A4 20 34 |72..o... X.1 . 4|
000067E0: 00 F1 6F 09 D3 3A 20 97 20 53 AA 31 2C 31 36 39 |..o..: . S.1,169|
000067F0: 3A 00 00 70 0E D3 3A 20 97 20 53 AA 34 2C 33 33 |:..p..: . S.4,33|
00006800: 00 1A 70 13 D3 8F 20 46 4F 52 20 49 3D 31 20 54 |..p... FOR I=1 T|
00006810: 4F 20 35 20 3A 20 4E 45 58 54 00 26 70 18 D3 97 |O 5 : NEXT.&p...|
00006820: 20 53 AA 34 2C 34 00 2E 70 1D D3 82 20 58 00 39 | S.4,4..p... X.9|
00006830: 70 22 D3 89 33 34 30 31 30 00 58 70 27 D3 81 20 |p"..34010.Xp'.. |
00006840: 58 B2 31 20 A4 20 32 34 3A 97 20 35 34 32 37 32 |X.1 . 24:. 54272|
00006850: AA 58 2C 30 20 3A 20 82 00 63 70 2C D3 89 33 34 |.X,0 : ..cp,..34|
00006860: 30 31 30 00 7A 70 1C D4 8B 53 44 B2 30 A7 53 44 |010.zp...SD.0.SD|
00006870: B2 31 3A 49 24 B2 22 22 3A 8E 00 91 70 21 D4 8B |.1:I$."":...p!..|
00006880: 53 44 B2 31 A7 53 44 B2 30 3A 49 24 B2 22 22 3A |SD.1.SD.0:I$."":|
00006890: 8E 00 97 70 26 D4 8E 00 B4 70 3C D7 81 49 B2 38 |...p&....p<..I.8|
000068A0: 32 38 A4 39 36 31 3A 87 44 37 3A 97 49 2C 44 37 |28.961:.D7:.I,D7|
000068B0: 3A 82 3A 8E 00 FD 70 46 D7 83 31 36 39 2C 34 2C |:.:...pF..169,4,|
000068C0: 31 37 30 2C 31 36 30 2C 37 2C 33 32 2C 31 38 36 |170,160,7,32,186|
000068D0: 2C 32 35 35 2C 31 36 39 2C 30 2C 33 32 2C 31 38 |,255,169,0,32,18|
000068E0: 39 2C 32 35 35 2C 33 32 2C 31 39 32 2C 32 35 35 |9,255,32,192,255|
000068F0: 2C 31 36 32 2C 34 2C 33 32 2C 32 30 31 00 2A 71 |,162,4,32,201.*q|
00006900: 50 D7 83 32 35 35 2C 31 36 39 2C 30 2C 31 33 33 |P..255,169,0,133|
00006910: 2C 32 35 31 2C 31 33 33 2C 32 35 33 2C 31 36 39 |,251,133,253,169|
00006920: 2C 34 2C 31 33 33 2C 32 35 32 00 73 71 55 D7 83 |,4,133,252.sqU..|
00006930: 31 36 30 2C 30 2C 31 37 37 2C 32 35 31 2C 32 30 |160,0,177,251,20|
00006940: 31 2C 39 36 2C 32 30 38 2C 30 35 2C 31 36 39 2C |1,96,208,05,169,|
00006950: 33 32 2C 37 36 2C 31 34 33 2C 33 2C 31 36 39 2C |32,76,143,3,169,|
00006960: 36 34 2C 35 36 2C 32 34 31 2C 32 35 31 2C 34 31 |64,56,241,251,41|
00006970: 2C 33 32 00 BF 71 5A D7 83 31 30 2C 31 34 31 2C |,32..qZ..10,141,|
00006980: 32 35 31 2C 33 2C 31 37 37 2C 32 35 31 2C 34 31 |251,3,177,251,41|
00006990: 2C 36 34 2C 31 30 2C 31 33 2C 32 35 31 2C 33 2C |,64,10,13,251,3,|
000069A0: 31 34 31 2C 32 35 31 2C 33 2C 31 37 37 2C 32 35 |141,251,3,177,25|
000069B0: 31 2C 34 31 2C 31 32 37 2C 31 33 2C 32 35 31 00 |1,41,127,13,251.|
000069C0: 0C 72 64 D7 83 33 2C 32 30 38 2C 32 2C 31 36 39 |.rd..3,208,2,169|
000069D0: 2C 36 34 2C 32 30 31 2C 39 36 2C 32 30 38 2C 32 |,64,201,96,208,2|
000069E0: 2C 31 36 39 2C 33 32 2C 33 32 2C 32 31 30 2C 32 |,169,32,32,210,2|
000069F0: 35 35 2C 32 33 30 2C 32 35 33 2C 31 36 39 2C 34 |55,230,253,169,4|
00006A00: 30 2C 35 36 2C 32 32 39 2C 32 35 33 00 59 72 6E |0,56,229,253.Yrn|
00006A10: D7 83 32 30 38 2C 37 2C 31 33 33 2C 32 35 33 2C |..208,7,133,253,|
00006A20: 31 36 39 2C 31 33 2C 33 32 2C 32 31 30 2C 32 35 |169,13,32,210,25|
00006A30: 35 2C 31 36 39 2C 31 31 31 2C 31 39 37 2C 32 35 |5,169,111,197,25|
00006A40: 31 2C 32 30 38 2C 36 2C 31 36 39 2C 37 2C 31 39 |1,208,6,169,7,19|
00006A50: 37 2C 32 35 32 2C 32 34 30 00 A6 72 78 D7 83 31 |7,252,240..rx..1|
00006A60: 36 2C 32 34 2C 31 36 35 2C 32 35 31 2C 31 30 35 |6,24,165,251,105|
00006A70: 2C 31 2C 31 33 33 2C 32 35 31 2C 31 36 35 2C 32 |,1,133,251,165,2|
00006A80: 35 32 2C 31 30 35 2C 30 2C 31 33 33 2C 32 35 32 |52,105,0,133,252|
00006A90: 2C 37 36 2C 39 31 2C 33 2C 33 32 2C 32 33 31 2C |,76,91,3,32,231,|
00006AA0: 32 35 35 2C 39 36 00 BD 72 60 EA 99 C7 28 31 34 |255,96..r`...(14|
00006AB0: 37 29 3A 81 49 B2 31 A4 36 3A 99 3A 82 00 DC 72 |7):.I.1.6:.:...r|
00006AC0: 65 EA 99 A3 31 31 29 22 D0 4C 45 41 53 45 20 D7 |e...11)".LEASE .|
00006AD0: 41 49 54 20 D7 4F 52 4B 49 4E 47 22 00 F6 72 6A |AIT .ORKING"..rj|
00006AE0: EA A0 31 35 3A 9F 31 35 2C 38 2C 31 35 3A 98 31 |..15:.15,8,15:.1|
00006AF0: 35 2C 22 49 30 22 00 08 73 74 EA 98 31 35 2C 22 |5,"I0"..st..15,"|
00006B00: 53 30 3A 22 AA 54 46 24 00 1A 73 79 EA 98 31 35 |S0:".TF$..sy..15|
00006B10: 2C 22 53 30 3A 22 AA 50 4E 24 00 2A 73 7E EA 84 |,"S0:".PN$.*s~..|
00006B20: 31 35 2C 45 52 24 2C 45 4D 24 00 50 73 80 EA 97 |15,ER$,EM$.Ps...|
00006B30: 20 38 30 38 2C 32 33 37 3A 20 8F 20 3D 3D 3D 20 | 808,237: . === |
00006B40: 20 45 4E 41 42 4C 45 20 52 55 4E 2F 53 54 4F 50 | ENABLE RUN/STOP|
00006B50: 00 64 73 88 EA 94 20 50 4E 24 2C 38 3A 95 20 50 |.ds... PN$,8:. P|
00006B60: 4E 24 2C 38 00 93 73 A6 EA 99 3A 20 99 20 22 D9 |N$,8..s...: . ".|
00006B70: 4F 55 52 20 50 52 4F 47 52 41 4D 20 48 41 53 20 |OUR PROGRAM HAS |
00006B80: 42 45 45 4E 20 53 41 56 45 44 20 4F 4E 20 59 4F |BEEN SAVED ON YO|
00006B90: 55 52 22 00 AE 73 AB EA 99 22 41 50 50 4C 49 43 |UR"..s..."APPLIC|
00006BA0: 41 54 49 4F 4E 20 44 49 53 4B 2E 22 3A 99 00 DA |ATION DISK.":...|
00006BB0: 73 B0 EA 99 22 D4 4F 20 52 55 4E 20 59 4F 55 52 |s...".O RUN YOUR|
00006BC0: 20 50 52 4F 47 52 41 4D 20 4E 4F 57 2C 20 54 59 | PROGRAM NOW, TY|
00006BD0: 50 45 20 27 52 55 4E 27 2E 22 00 00 00 00 22 33 |PE 'RUN'."...."3|
00006BE0: 33 30 39 30 20 49 29 A7 31 30 33 34 00 89 3D 0C |3090 I).1034..=.|
00006BF0: 04 99 22 93 D4 48 45 20 46 4F 4C 4C 4F 57 49 4E |.."..HE FOLLOWIN|
00006C00: 47 20 54 45 53 54 53 20 41 52 45 20 41 56 41 49 |G TESTS ARE AVAI|
00006C10: 4C 41 42 4C 45 3A 22 00 A7 3D 0E 04 99 3A 99 A3 |LABLE:"..=...:..|
00006C20: 31 30 29 3B 22 12 C7 45 4E |10);"..EN |
..".... *PROGRAM NAME IS ACCTSR/T*.>....
45,B(174):.46,B(175):..]...HF$."ACCTSR/X
":. HASH FILE....MS. 100 :. *NUMBER OF
RECORDS.....KF. 1 :RS. 192.....DF$."ACCT
SR0/D":. DATA FILE NAME.X...SF$."ACCUSR/
S":. SCREEN FILE......52210:. 33000.....
Y$."..........................".4...SS$.
"":.I.1.80:SS$.SS$.G(160):.I.Y...SP$."":
.I.1.39:SP$.SP$.G(32):. I.~...DT$."":.I.
1.39:DT$.DT$.G(46):. I......G(14)...#...
..%.. F$(NF),G$(NF),DT%(12),GS%(NF.NC).U
.(..I.1.NG:.GK%:GS%(GK%).I:.I...*.. 16.
..4.. I.1.12:DT%(I).31:.I.0.6.DT%(2).29:
DT%(4).30:DT%(6).30:DT%(9).30:DT%(11).30
.[.7.TT$."FINISHED WITH ENTRY? (RETURN=N
O)"...D..13000:. GET GLOBALS FROM /GLB F
ILE...F..2,8,2,"0:".HF$.",L,".G(5).R.G..
2,NR$:NR.E(NR$):.2,NXR$:.2,XFS$:.2,XFS$:
2...H.PQ.1:. F(NR$).255 . PQ.0...P.. CS
%(NC):.I.1.NC:.CS%(I):.I...R.. 0...Y.."
.":.800:.55100.G.Z.. 808,237:. I.1 . NF:
G$(I)."":F$(I)."":. I:FC.0:UF.0..._..G(1
47);G(8):G$."":.I.1.NC:CE(I).0:CD(I).0:.
I.P.D...20.(9. 13 .2));"PROGRAM DESIGN B
Y THE COMPUCATS"...N..:..20.( 21 .2));".
ACCOUNTS RECEIVABLE ."...X..:.:..;.....
1);"FILE PREPARATION (FIRST TIME ONLY!).
F".A.....S.....1);"ENTER DATA .........
................ E"... ...1);"UPDATE DAT
A ........................ U".W.....1);"
LOOK UP RECORD ..................... L".
......1);"SEARCH RECORDS................
...... S".;.....1);"DELETE RECORD ......
................ D".M.C...1);"VERIFY GLO
BAL TOTALS ............... V"...E...1)"S
ET DISPLAY COLORS ................. Z"..
.H...V.R...1);"EXIT ...(AFTER EACH SESSI
ON)........ X"...W.. H(Y$,21);......"ENT
ER YOUR CHOICE THEN PRESS .RETURN.";.E..
..H(Y$,23)"TO RETURN TO THE MENU PRESS .
F1. ".X...C3.B(56128).15.....X%.38:Y%.21
:L%.1:. 34000:AN$.IN$:FF$.IN$. .... AN$.
"E" . . 1000:.90...... AN$."Z" . . 53000
:.90.X.... AN$."L" . . 10000:.90...... A
N$."S". . 35000:.90...... AN$."U". . 110
00:.90.).".. AN$."D". . 12000:.90.D.,..
AN$."F". . 32000:.90._.1.. AN$."V". . 13
200:.90.R.6.. AN$.."X". 90...;.. PQ.0.."
.":.1002:.90...@.. 9700:.".":. UPDATE IN
DEX FILE PTRS...B..4,8,4,"MENU":.52220:
4:. DS.0. 330...D. 15:.G(9):..*.J.."....
.. *** .LOADING MENU PROGRAM. ***":.
"MENU",8:..V. ..:.:. .5);"********* WARN
ING *********"...%..:." TO PREVENT THE
LOSS OF YOUR FILES,"...*.."ALWAYS TAKE
THE X-OPTION BEFORE LEAVING.".../..H(Y$,
23):." PRESS .RETURN. TO CONTINUE"
...4.. AA$:. AA$."". 820...9........ G(
147).&.... PQ.1 . 1010.Q...."THE DATA FI
LES MUST BE INITIALIZED."......"PLEASE S
ELECT THE FILE PREPARATION OPTION."
......H(Y$,24)"PLEASE PRESS .RETURN. TO
CONTINUE".W.... AA$:. AA$..G(13) . 1006.
........... NR.MS . 1050......".YOU HAVE
ENTERED ";MS;" RECORDS".3....:."YOUR FI
LE IS FULL".W....:."PRESS .RETURN. TO CO
NTINUE".U.... AA$:. AA$..G(13) . 1040.{.
.........I.1 . NF:SD$.H(DT$,L%(I))......
T$(I)."D".SD$."../../.."... ..H(Y$,Y%(I)
);.X%(I));PR$(I);SD$...$.. I...%..NT..0.
1065...&.. I.1 . NT.'.'..H(Y$,TY%(I));.T
X%(I).1);TP$(I)./.(.. I.5.)...A.8.FC.FC.
1.].:.. FC.. 0 . FC. 6 . 1086...<.. FC.
0 . 2010, 2060, 2110, 2160, 2210, 2260..
.>.. FC.. 6 . FC. 12 . 1090...@.. FC. 6
. 2310, 2360, 2400, 2440, 2490, 2540...B
.. FC.. 12 . FC. 15 . 1094...D.. FC. 12
. 2600, 2660, 2720./.F.. IN$.G(133) . ..
C.G.. GS%(FC).0 . GK(GS%(FC)).GL(GS%(FC)
).E(G$(FC)).U.T..H(Y$,23);SP$...V.. FC.
15 . 1080......H(Y$,24);SP$;.U....H(Y$,2
4);"IS THIS ALL CORRECT? ( .RETURN. = YE
S )";.....X%.38:Y%.24:L%.1:. 34000:.H(Y$
,23);SP$:.SP$;.#....C(IN$).0.IN$."Y" . 2
780.7.... IN$.."N".1170.V....H(Y$,23);"W
HICH FIELD TO CHANGE? ":."(1 - 15 OR 'LI
ST')";.....X%. 18 :Y%.24:L%.4:.34000:IN.
E(IN$).J.D.. IN$."LIST" . F.1:.20000:.21
000:. 1200...N..IN.1.IN. 15 . .H(Y$,23);
SP$:.H(Y$,23);"INVALID FIELD #":. 1160.%
.X..H(Y$,23);SP$:.SP$.A.... IN.. 0 . IN.
6 . 1254.R.... IN. 0 . 2010, 2060, 2110
, 2160, 2210, 2260...... IN.. 6 . IN. 12
. 1258...... IN. 6 . 2310, 2360, 2400,
2440, 2490, 2540...... IN.. 12 . IN. 15
. 1262...... IN. 12 . 2600, 2660, 2720..
....IN$.G(133)...F....GS%(IN).0 . GK(GS%
(IN)) . GL(GS%(IN)) .E(G$(IN)).P....1160
.}.Z.X%.X%( 1).C(PR$( 1)):Y%.Y%( 1):L%.L
%( 1)......UF..0.G$."".G$.G$( 1).N....34
000:.H(Y$,23);SP$:G$( 1).IN$:.G$( 1).G(1
33). ....... UF..0 . C(IN$).0 . G$( 1).G
$......C(G$( 1)).L%( 1 ) . I. 1 :.40500.
......J...X%.X%( 2).C(PR$( 2)):Y%.Y%( 2)
:L%.L%( 2).E....UF..0.G$."".G$.G$( 2)...
...34000:.H(Y$,23);SP$:G$( 2).IN$:.G$( 2
).G(133). .... .. UF..0 . C(IN$).0 . G$(
2).G$...*..C(G$( 2)).L%( 2 ) . I. 2 :.4
0500...4.....>.X%.X%( 3).C(PR$( 3)):Y%.Y
%( 3):L%.L%( 3).2.?..UF..0.G$."".G$.G$(
3).H.H..34000:.H(Y$,23);SP$:G$( 3).IN$:.
G$( 3).G(133). ....R.. UF..0 . C(IN$).0
. G$( 3).G$...\..C(G$( 3)).L%( 3 ) . I.
3 :.40500...F.....P.X%.X%( 4).C(PR$( 4))
:Y%.Y%( 4):L%.L%( 4)...Q..UF..0.G$."".G$
.G$( 4).5.Z..34000:.H(Y$,23);SP$:G$( 4).
IN$:.G$( 4).G(133). ..X.... UF..0 . C(IN
$).0 . G$( 4).G$.~....C(G$( 4)).L%( 4 )
. I. 4 :.40500...........X%.X%( 5).C(PR$
( 5)):Y%.Y%( 5):L%.L%( 5).L....UF..0.G$.
"".G$.G$( 5)......34000:.H(Y$,23);SP$:G$
( 5).IN$:.G$( 5).G(133). ..%.... UF..0 .
C(IN$).0 . G$( 5).G$.K....C(G$( 5)).L%(
5 ) . I. 5 :.40500.Q.J...~.T.X%.X%( 6).
C(PR$( 6)):Y%.Y%( 7):L%.L%( 6)...U..UF..
0.G$."".G$.G$( 6).O....34000:.H(Y$,23);S
P$:G$( 6).IN$:.G$( 6).G(133). ....... UF
..0 . C(IN$).0 . G$( 6).G$......C(G$( 6)
).L%( 6 ) . I. 6 :.40500.......K...X%.X%
( 7).C(PR$( 7)):Y%.Y%( 7):L%.L%( 7).F...
.UF..0.G$."".G$.G$( 7)......34000:.H(Y$,
23);SP$:G$( 7).IN$:.G$( 7).G(133). .....
.. UF..0 . C(IN$).0 . G$( 7).G$...$..C(G
$( 7)).L%( 7 ) . I. 7 :.40500.........8.
X%.X%( 8).C(PR$( 8)):Y%.Y%( 8):L%.L%( 8)
.3.9..UF..0.G$."".G$.G$( 8).I.B..49000:.
H(Y$,23);SP$:G$( 8).IN$:.G$( 8).G(133).
....L.. UF..0 . C(IN$).0 . G$( 8).G$...V
.....`.X%.X%( 9).C(PR$( 9)):Y%.Y%( 9):L%
.L%( 9).Z.A..UF..0.G$."".G$.G$( 9)...J..
49000:.H(Y$,23);SP$:G$( 9).IN$:.G$( 9).G
(133). ..3.T.. UF..0 . C(IN$).0 . G$( 9)
.G$.9.~...J...X%.X%( 10).C(PR$( 10)):Y%.
Y%( 10):L%.L%( 10)......UF..0.G$."".G$.G
$( 10)......34000:.H(Y$,23);SP$:G$( 10).
IN$:.G$( 10).G(133). ....... UF..0 . C(I
N$).0 . G$( 10).G$......C(G$( 10)).L%( 1
0 ) . I. 10 :.40500.......B...X%.X%( 11)
.C(PR$( 11)):Y%.Y%( 11):L%.L%( 11).^....
UF..0.G$."".G$.G$( 11)...D..34000:.H(Y$,
23);SP$:G$( 11).IN$:.G$( 11).G(133). ...
.N.. UF..0 . C(IN$).0 . G$( 11).G$...X..
C(G$( 11)).L%( 11 ) . I. 11 :.40500.....
... ..X%.X%( 12).C(PR$( 12)):Y%.Y%( 12):
L%.L%( 12).6 ...UF..0.G$."".G$.G$( 12).N
...34000:.H(Y$,23);SP$:G$( 12).IN$:.G$(
12).G(133). ... ... UF..0 . C(IN$).0 .
G$( 12).G$.. ...UF.0 . 2564.G ..B$.G$(
12):A$."M":.41000:G1.I9.. ...G1.0.GG.E(G
$( 12)).E(G$):G$( 12).D(GG)..!...UF.0. 2
570.&!..B$.G$( 12):A$."L":.41000:G1.I9.R
!...G1.0.GG.E(G$).E(G$( 12)):G$( 12).D(G
G).L!..G$( 12).D(E(G$( 12)))..!... E(G$(
12))..0 .G$( 12).I(G$( 12),C(G$( 12)).1
).J!...C(G$( 12)).L%( 12 ) . I. 12 :.405
00.P!....."(.X%.X%( 13).C(PR$( 13)):Y%.Y
%( 13):L%.L%( 13)..")..UF..0.G$."".G$.G$
( 13).U"2..34000:.H(Y$,23);SP$:G$( 13).I
N$:.G$( 13).G(133). ..Y"<.. UF..0 . C(IN
$).0 . G$( 13).G$.."=..UF.0 . 2624..">.
B$.G$( 13):A$."M":.41000:G1.I9.Z"?..G1.0
.GG.E(G$( 13)).E(G$):G$( 13).D(GG).."@..
UF.0. 2630..#A.B%.G$( 13):A$."L":.41000:
G1.I9.9#B..G1.0.GG.E(G$).E(G$( 13)):G$(
13).D(GG).S#F.G$( 13).D(E(G$( 13)))..#K.
. E(G$( 13))..0 .G$( 13).I(G$( 13),C(G$(
13)).1)..#P..C(G$( 13)).L%( 13 ) . I. 1
3 :.40500..#Z....#D.X%.X%( 14).C(PR$( 14
)):Y%.Y%( 14):L%.L%( 14)..$E..UF..0.G$."
".G$.G$( 14).<$N..34000:.H(Y$,23);SP$:G$
( 14).IN$:.G$( 14).G(133). ..`$X.. UF..0
. C(IN$).0 . G$( 14).G$.R$Y..UF.0 . 26
84..$Z.B$.G$( 14):A$."M":.41000:G1.I9.A$
{..G1.0.GG.E(G$( 14)).E(G$):G$( 14).D(GG
).Q$|..UF.0. 2690..$}.B$.G$( 14):A$."L":
.41000:G1.I9. %~..G1.0.GG.E(G$).E(G$( 14
)):G$( 14).D(GG).:%..G$( 14).D(E(G$( 14)
)).O%... E(G$( 14))..0 .G$( 14).I(G$( 14
),C(G$( 14)).1)..%...C(G$( 14)).L%( 14 )
. I. 14 :.40500..%....O% .X%.X%( 15).C(
PR$( 15)):Y%.Y%( 15):L%.L%( 15)..%...UF.
.0.G$."".G$.G$( 15).#&...34000:.H(Y$,23)
;SP$:G$( 15).IN$:.G$( 15).G(133). ..G&..
. UF..0 . C(IN$).0 . G$( 15).G$.Y&...UF.
0 . 2744.|&..B$.G$( 15):A$."M":.41000:G
1.I9..&...G1.0.GG.E(G$( 15)).E(G$):G$( 1
5).D(GG)..&...UF.0. 2750..&..B$.G$( 15):
A$."L":.41000:G1.I9..'...G1.0.GG.E(G$).E
(G$( 15)):G$( 15).D(GG).!'..G$( 15).D(E(
G$( 15))).V'C.. E(G$( 15))..0 .G$( 15).I
(G$( 15),C(G$( 15)).1).'H..C(G$( 15)).L
%( 15 ) . I. 15 :.40500..'R....'...PZ.1.
NC..'... 28100..'..IJ.GS%(PZ).Q'... IJ .
0 . GK(IJ).GL(IJ).CD(PZ).Z'... PZ..((#.
==== LOOK FOR RECORD SPACE ====.:(.#ZZ$
.G$(KF):.26000:. COMPUTE HASH KEY FOR RE
C. ENTERED.~(T$.52100:.52135:. POSITION
TO HASH FILE & READ PTR TO LINKED LIST..
(^$HPTR$.IK$:HKEY.RP:. SAVE OLD LINK PTR
..(M$RP.HKEY:.52100:IK$.XFS$:.52145:. WR
ITE HASH LINK FOR NEW ENTRY..)R$RP.E(XFS
$):.42000:. WRITE DATA REC TO 0/D.^)W$RP
.RP.MS.4:.52100:.52135:DRP$.IK$:. READ D
EL REC LINKED LIST PTR..)|$.52100:IK$.HP
TR$:.52145:. WRITE LINK DATA REC LINK PT
R..).$. F(DRP$).255. .9360..).$XFS$.DRP$
:.9372:. SET FREE SPACE PTR TO FREE-DEL-
REC LINKED LIST PTR.B*.$XFS$.NXR$:NXR$.D
(E(NXR$).1):. UPDATE FREE & CONTIGUOUS S
PACE PTRS..T*.$. AN$."U" . ..`*.$NR.NR.1
.M*.$RM.MS.NR..*B$.H(Y$,23);"REC. ENTERE
D:";J(D(NR+,2);..*L$." REC. SPACES LEFT:
";J(D(RM),2).U*V$.RM.0..H(Y$,23);SP$;..*
.$. RM.0 ..H(Y$,23);.6);". FILE FULL .".
"+.$."PRESS .RETURN. TO CONTINUE.".A+.$.
AA$:. AA$..G(13) . 9460.S+.$.H(Y$/23);
SP$.B+.%. RM.0 . ...+.%.H(Y$,24);SP$:.H(
Y$,24);TT$..+.%X%.C(TT$).1:Y%.24:L%.1:.3
4000.A+0%. H(IN$,1)."Y" . .9700:...+:%.
C(IN$).0 . IN$."N". 9550..,D%.H(Y$,23);"
PLEASE ANSWER Y OR N (.RETURN.=NO)":. 9
490.;,N%G$."":FC.0:.".":UF.0:. 1000.B,.%
. ==== UPDATE INDEX FILE PTRS ====..,.%.
"...... *** .UPDATING INDEX FILE. *
**".P,.%IK$.NXR$:RP.2:.52100:.52145:. WR
ITE NEXT CONT. REC. PTR...-.%IK$.XFS$:RP
.4:.52100:.52145:. WRITE NEXT FREE SPC P
TR.>-.&IK$.D(NR):RP.1:.52100:.52145:. UP
DATE REC COUNT.D-.&..N-.'. ".".P-.'. 270
00:. PROMPT FOR HASH KEY..-.'. IN$.G(133
). ...-$'. F(IK$)..255 . 10050.A-.'. 271
10:. REC NOT FOUND PROMPT.X-8'.:. RETURN
TO MENU..-B'RP.IK:.40000:. INPUT DATA R
EC...G'. H(F$(KF),C(ZZ$))..ZZ$ .10090.E.
L'.29000:.29180:. DISPLAY REC & PRMPT.G.
Q'. C(IN$).0 . IN$."Y" . .10070.R.T'.100
90...V'.29220:. PROMPT TO CONT...`'.IN$.
"X". ..O.J'RP.IK.MS.4:.52100:.52135:. RE
AD LINK POINTER...T'.F(IK$)..255.10050:.
CONT SEARCH../~'.27110:. REC NOT FOUND
PROMPT../.'..@/.*. ==== FILE UPDATE ROUT
INE ====.J/.*. ".".L/.+. 27000:. PROMPT
FOR HASH KEY../.+. IN$.G(133). .../.+. F
(IK$).255 . .27125:.:. EXIT IF EMPTY.Z/.
+HPTR.IK:HKEY.RP:. SAVE HASH POINTER & K
EY../ +RP.IK:.40000:. GET DATA REC.20*+R
P.IK.MS.4:.52100:.52135:. READ FILE LINK
PTR IN /Y.R0/+DRP$.IK$:. SAVE DEL REC P
TR.W02+. H(F$(KF),C(ZZ$))..ZZ$ . .11080.
.04+. 29000:.29180:. DISPLAY REC & PROMP
T.C0>+. C(IN$).0 . IN$."Y" . .11800..0H+
. F(IK$).255 . .27125:.:. REC NOT FOUND.
.1R+. 11030:. RESUME SEARCH.11... I.1 .
NF:G$(I).F$(I):. I:.11812.Q1"..28000:. C
OMPUTE GLB & PC'S.M1#..29000:. DISPLAY R
ECORD..1$..H(Y$,23);"WHICH FIELD TO UPDA
TE? (1-";NF;" OR LIST)".U1'.."(TYPE .F1.
TO CANCEL,.RETURN. TO SAVE)"..1/.X%. 35
:Y%.24:L%.4:. 34000..2/.UF.E(IN$):. IN$
."". 11950.,20.. IN$..G(133) . 11828.H21
.. === CLEAR CHANGES ===.{22.. I.1.NF:G$
(I).F$(I):.I:.I.1.NC:CD(I).CE(I):.I..23.
. I.1.NG:GK(I).GL(I):.I: .11811.G24.. IN
$."LIST". F.0 : . 20000:. 11811..25.. ==
= TEST 1 <= UF <= NF ===..36.. UF.0 . UF
..NF . 11850..3@.. H(Y$,23);SP$:. SP$.R
3E.. H(Y$,23);"*INVALID FIELD*":.I.1.100
0:.:.11812.M3J.. === CHANGE FIELD ===..3
L.SD$.H(DT$,L%(UF)):. T$(UF).."$" . 1185
5.J3M.LD%.0. L%(UF):. LD% . 0 . SD$.SD$.
H(SP$,LD%)..3O.. T$(UF)."D" . SD$."../..
/.."..4Q..H(Y$,Y%(UF));.X%(UF));PR$(UF);
SD$..4R.G$."".:4T.. UF.. 0 . UF. 6 . 118
64.K4V.. UF. 0 . 2010, 2060, 2110, 2160,
2210, 2260..4X.. UF.. 6 . UF. 12 . 1186
8..4Z.. UF. 6 . 2310, 2360, 2400, 2440,
2490, 2540.Y4\.. UF.. 12 . UF. 15 . 1187
2..4^.. UF. 12 . 2600, 2660, 2720..5`..
11810..5..Z$.G$(1).35... 12105:. DEL OLD
REC AT XPT.@5B.G$(1).Z$.Z5L..9200:. ENT
ER NEW REC.`5V....5... ==== RECORD DELET
E ROUTINE ====..5... "."..5... 27000:. P
ROMPT FOR HASH KEY.F5... IN$.G(133). ...
5... F(IK$).255 . .27125:.:. EXIT IF EMP
TY. 6..HPTR.IK:HKEY.RP:. SAVE HASH POINT
ER & KEY.@6./RP.IK:.40000:. GET DATA REC
.X6./RP.IK.MS.4:.52100:.52135:. READ FIL
E LINK PTR IN /Y..6./DRP$.IK$:. SAVE DEL
REC PTR..6./. H(F$(KF),C(ZZ$))..ZZ$ . .
12080..6./. 29000:.29180:. DISPLAY REC &
PROMPT..7&/. IN$."Y" . C(IN$).0 . 12095
.470/. F(IK$).255 . .27125:.:. REC NOT F
OUND.@7:/. 12030.F7?/. 12800:. DISPLAY P
RMPT TO DELETE.X7B/. IN$."N" . ...7D/NR.
NR.1:RM.RM.1:. UPDATE #REC & SPACE LEFT.
.7I/G$(1).H(G(255).SS$,L%(1)):RP.HPTR:.4
2000:. NULL DATA REC..8L/RP.HPTR.MS.4:.5
2100:IK$.XFS$:.52145:. MOVE XFS TO DRL.@
8N/XFS$.D(HPTR):. SET XFS TO DRP..8X/RP.
HKEY:.52100:IK$.DRP$:.52145:. MOVE LINK
PTR TO HASH TABLE..8./...8.2.H(Y$,24);SP
$;.L8.2.H(Y$,24);"SURE YOU WANT TO DELET
E IT? (Y/N)"..8.2Y%.24:X%.34:L%.1:.34000
..9.2. IN$.."Y". IN$.."N". 12800..9.2..9
9G2. ==== GLOBAL TOTAL INPUT ROUTINE ===
=.\9H2.3,8,3,"0:ACCTSR/GLB,L,".G(15).J9M
2. II.1.NG.U9R2.3,GL$..9.2GL(II).E(GL$).
.9.2.II..9.2 3:...9(3..J9)3. ==== GLOBAL
TOTAL UPDATE ROUTINE ====..9*3. == W9
IS THE DATA FILE'S FIELD NUMBER ==.?:+3
. == IJ IS FIELD NUMBER OF THE CORRESP
ONDING GLOBAL TOTAO ==.B:,3.3,8,3,"0:AC
CTSR/GLB,L,".G(15).P:.3. W9.1.NF..:13IJ
. GS%(W9)..:63.IJ . 0.13135 : . NO GLOBA
L FIELD..:;3.52150.U:>3.AN$."U". GL(IJ).
GK(IJ):.13130..:@3.AN$."D". GL(IJ) . GL(
IJ) . E(F$(W9)).);E3.AN$."E". GL(IJ) . G
L(IJ) . E(G$(W9)).:;J3.3,D(GL(IJ)).B;O3.
W9.P;T3. W9.1.NC.D;Y3IJ . GS%(W9.NF)..;^
3.IJ . 0.13175 : . NO GLOBAL FIELD..;C3.
52150..;F3.AN$."U". GL(IJ).GK(IJ):.13170
..;H3.AN$."D". GL(IJ) . GL(IJ) . CE(W9).
.<M3.AN$."E". GL(IJ) . GL(IJ) . CD(W9)..
<R3.3,D(GL(IJ))..<W3.W9.(<|3 3:...<.3..Z
<.3. ==== VERIFY ALL GLOBAL VARIABLES ==
==..<.3. == GENERATOR WILL KNOW WHICH
TOTALS ARE THE GLOBAL ONES ==.Y<.3.G(14
7);H(Y$,5)"VERIFICATION WILL TAKE A LITT
LE WHILE"..<.3.II.1.NG..=.3GM(II) . 0 :
GK(II) . GL(II)..=.3.II.$=.3. RP.1.E(NXR
$).2.>=.3. 40005:. NEXT RECORD.]=.3.H(F$
(1),1) . G(255).13255.K=.3. IJ.1.NF. =.3
.GS%(IJ) . 0.GM(GS%(IJ)) . GM(GS%(IJ)).E
(F$(IJ))..=B3.IJ..=G3.RP..=I3.II.1.NG.Q=
L3GL(II) . GM(II).Y=V3.II..=.3. IJ.1.NC.
.=.3JK .GS%(IJ.NF)..>.3.JK . 0.13350.!>.
3. RP.1.E(NXR$).2.->.3. 40005.L>.3.H(F$(
1),1) . G(255).13340.E>.4. PZ.1.IJ:.2850
0:.PZ..>.4GM(JK) . GM(JK) . CE(IJ)..>.4.
RP..>!4GL(GS%(IJ.NF)) .GM(GS%(IJ.NF))..>
&4.IJ.J>04.G(147);H(Y$,3);..?54."FIELD";
.15);"OLD TOTAL";.25);"VERIFIED TOTAL":
...?:4. IJ.1.NG.4?D4.GP$(IJ);.15);GK(IJ)
;.25);GM(IJ).O?N4.GK(IJ) . GM(IJ).13430.
O?X4."* OLD TOTAL CORRECTED *";..?B4.3,8
,3,"0:ACCTSR/GLB,L,".G(15):..?L4.52150:.
3,GL(IJ): 3..?V4...?.4.IJ..?.4.H(Y$,24);
"PRESS .RETURN. TO CONTINUE"..@.4. AA$:.
AA$..G(13).13448..@.4...@.4../@.N. ====
LIST FIELD NUMBERS ====._@ N.".KEYBOARD-
ENTERED FIELDS:":. J.1 . NF . 2.T@*N. J;
"- ";PR$(J);..@4N.J.NF . ..19);J.1;"- ";
PR$(J.1);..@>N. : . J..@.N.F..2.20260.X@
.N.:."PROGRAM CALCULATED FIELDS"..@.N.J.
1.NC.2..@.O.J.NF;"- ";CP$(J);.#A.O.J.NC.
..19);J.NF.1;"- ";CP$(J.1);.,A.O.:.J.6A$
O. PCS.CANP. H(Y$,24);"PRESS .RETURN. TO
CONTINUE";..AXP. AA$ : . AA$..G(13) . 2
0600..A.P.G(147) : ..BA.R. I.1 . NF:.T$(
I).."D". SD$.G$(I):. 21020..A.RSD$.H(G$(
I),2)."/".J(G$(I),3,2)."/".I(G$(I),2)..B
.R.H(Y$,Y%(I));.X%(I));PR$(I);SD$:. I.#B
&R..4B0RSD$.D(CD(I)).[B:R.H(Y$,CY%(I));.
CX%(I));CP$(I);SD$;.BBDR.I.QBFR. I.1 . N
T..BHR. H(Y$,TY%(I)).TX%(I).1)TP$(I)..BJ
R. I..BNR...B.EX.0:. ZZ.1 . C(ZZ$).TB.EX
.X.ZZ.F(J(ZZ$,ZZ,1))..B.E. ZZ..C.EX..(X)
:X$.D(X):RP.E(J(X$,6,4))..C.ERP..(MS.RP.
10000).5..CBE..XCXI.".":SD$.H(DT$,L%( KF
)):.T$( KF )."D".SD$."../../.."..C.I.H(
Y$,Y%( KF ));.X%( KF ));PR$( KF );SD$..C
.I.H(Y$,24);"PLEASE ENTER KEY OF DESIRED
RECORD.".CC.I.2010.WC.I. IN$.G(133). ..
.D.IZZ$.G$(KF):. 26000:. COMPUTE HASH KE
Y.'D.I.52100:.52135:. READ HASH POINTER.
-DHI..ZD.I. = DISPLAY REC NOT FOUND P
ROMPT =.MD.I.H(Y$,24);SP$;..D.I.H(Y$,
23)"RECORD NOT FOUND - TYPE .RETURN. TO
EXIT.".ED.J. AA$:. AA$..G(13) . 27140.KD
.J...D`M. II . 1 . NF..DJMIJ . GS%(II)..
ETM. IJ . 0 . 28040./E~MGK(IJ) . GL(IJ)
. E(G$(II)) . E(F$(II)).8E.M. II.IE.M. I
I .1 . NC._E.MPZ . II : . 28100.SE.MIJ .
GS%(II.NF)..E.M. IJ . 0 . 28080..E.MGK(
IJ) . GL(IJ) . CD(II) . CE(II)..E.M. II.
.E.M...E.M. ==== CALCULATE CD(PZ) ====..
FAM. ==== ASSUMING CD(1) THRU CD(PZ-1) I
S CALCULATED ====.6FDM. PZ.. 0 . PZ. 1 .
28104.KFFM. PZ. 0 . 28200.QFHM..YF(NCD
(1).E(G$(13)).E(G$(14)).E(G$(15)).F-N..
.FSO. ==== PUT OLD VALUES IN CE() ====.N
FTO. ==== BASED ON F$(),GL(),CE() ====..
FYO. CS%(PZ).1 . ...F^O. PZ.. 0 . PZ. 1
. 28514..G`O. PZ. 0 . 28600..GBO..DG.OC
E(1) . E(F$(13)).E(F$(14)).E(F$(15)).JG.
O...GHQ. ==== DISPLAY RECORD TO SCREEN &
PROMPTS RTN ====..GLQ. G(147)..GMQ.NF..
0.29055.KGRQ. I.1 . NF:D$.G$(I):. T$(I).
."D". 29030..G\QD$.H(G$(I),2)."/".J(G$(I
),3,2)."/".I(G$(I),2).-HFQ. T$(I)."$". D
O$.D$:FW.L%(I):. 36000:D$.DO$.RHKQ. T$(I
)."#" . D$.I(SP$.D$,L%(I)).UHPQ.H(Y$,Y%(
I));.X%(I));PR$(I);D$.}HZQ. I..HQ.NC..0
.29085..H.Q. I.1 . NC:CD$.D(CD(I))..H.Q.
CT$(I)."$". DO$.CD$:FW.CL%(I):. 36000:C
D$.DO$:. 29075..I.Q." ".H(CD$,1) . CD$.J
(CD$,2):. 29070.3I.QCD$.I(SP$.H(CD$,CL%(
I)),CL%(I)).YI.Q.H(Y$,CY%(I));.CX%(I));C
P$(I);CD$.AI.Q. I.RI.Q.NT..0.29115..I.Q.
I.1 . NT..I.Q.H(Y$,TY%(I));.TX%(I).1);T
P$(I)..I.Q. I..I.Q.NG..0.29165..I.Q. I .
1 . NG : . GET GLOBAL INFO.$JJQGL$.D(GK
(I)):. GT$(I)."$" . DO$.GL$:FW.GL%(I):.3
6000:GL$.DO$.GJTQ.GT$."#".GL$.I(SP$.GL$,
GL%(I)).NJ.Q. H(Y$,GY%(I));.GX%(I));GP$(
I);GL$.VJ.Q. I.|J.Q...J.Q.H(Y$,24);"IS T
HIS IT? ( .RETURN. = YES )";.IJ.RX%.29:Y
%.24:L%.1:. 34000.OJ.R...K$R.H(Y$,24);"E
.X.IT, .RETURN. FOR NEXT REC.,.F1. TO PR
INT";SP$;.CK.R.IN$:.IN$..G(13).IN$..G(13
3).IN$.."X" . 29230.DK=R. IN$.G(133). .
51100:.29220.JKBR...K/U. ==== NUMERKC FI
ELD EDIT CHECK SUBROUTINE ====..K0UB$.CD
$:A$.G(32):.41000:CD.I9..K1U. CD.1 . CD$
.H(CD$,CD.1):. 30000..L2U. CD.1 . CD$.J(
CD$,2):. 30000..L5U. ZZ.1 . C(CD$).IL:U.
J(CD$,ZZ,1).."0".J(CD$,ZZ,1).."9" . 3002
0.XL?U.J(CD$,ZZ,1)..".".J(CD$,ZZ,1).."-"
. E.1:...LDU. ZZ..LNUB$.CD$:A$."-":.410
00:I1.I9:B$.J(B$,I1.1).VLSU. 41000:I2.I9
:. I1.0 . I2.0 . E.1:...MXUB$.CD$:A$."."
:.41000:I1.I9:B$.J(B$,I1.1).+M]U. 41000:
I2.I9:. I1.0 . I2.0 . E.1:..1MBU..CM.Y.
==== ALPHA FIELD EDIT CHECK SUBROUTINE =
===.WM.Y. ZZ.1 . C(CD$)..M"Y.(J(CD$,ZZ,1
).."9".J(CD$,ZZ,1).."0") . E.1:...M,Y. Z
Z..M6Y...M.}.".THIS WILL ERASE ALL PREVI
OUS RECORDS."..N.}.:."TO CONTINUE TYPE '
C' THEN .RETURN..,N.}X%.34:Y%.3:L%.1:. 3
4000.>N.}.IN$.."C" . ..FN(}.:."THIS WILL
TAKE A LITTLE WHILE.".|N-}.15,"S0:ACCTS
R/X"..N2}.1,8,15:.2,8,2,"0:ACCTSR/X,L,".
G(5).EN7}.1,"P"G(2)G( 204 )G( 0 )G(1).SN
<}.2,G(255)..N?}RP.1:.52110..O@}NR$.D(0)
:NXR$.D(2):XFS$.D(1).*OA}.2,NR$:.2,NXR$:
.2,D( 15 ):.2,XFS$.9OF} 1: 2:NR.0.UOU}.1
5,"S0:".(DF$):.1,8,15..OZ}.4,8,4,"0:ACCT
SR0/D,L,".G(80):JN..(( 192 . 100 ).80).1
..O]}R2..(JN.256):R1.JN.256.R2.KO_}.1,"P
"G(4)G(R1)G(R2)G(1)..OB}.52220:.4,G(255)
: 1: 4..PD}.3,8,3,"0:ACCTSR/GLB,L,".G(15
)..PN}.I.1.NG.!PX}.3,D(0).-P.}GL(I).0.4P
.}.I.;P.} 3.FP }PQ.1:..ZP...4,8,4,"0:".S
F$.TP...52220:. DS.0 . 33010..P...:.".YO
UR PROGRAM DISK MUST BE IN DRIVE #0 - PR
ESS .RETURN. TO CONTINUE..P...AA$:.AA$..
G(13).33006..P.. 4:. 33000..Q...4,NF:.NF
..0.33060.*Q...PR$(NF),X%(NF),Y%(NF),L%(
NF),T$(NF).9Q... I.1 . NF._Q...4,PR$(I),
X%(I),Y%(I),L%(I),T$(I).GQ... I.~Q$..4,N
C:.NC..0.33102..Q... CP$(NC),CX%(NC),CY%
(NC),CT$(NC),CD(NC),CE(NC),CL%(NC).FQ8..
I.1.NC..QB..4,CP$(I),CX%(I),CY%(I),CL%(I
),CT$(I)..QL..I..RN..4,NG:.NG..0.33110.Q
RQ.. GP$(NG),GX%(NG),GY%(NG),GT$(NG),GL(
NG),GK(NG),GM(NG),GL%(NG)..RS..I.1.NG:.4
,GP$(I),GX%(I),GY%(I),GL%(I),GT$(I):. I.
.RV..4,NT:.NT..0.33160..R`.. TP$(NT),TX%
(NT),TY%(NT).HRJ..I.1.NT..RT..4,TP$(I),T
X%(I),TY%(I)..R~..I..R.. 4:...SP.IN$."":
J.1:AD.1024.(Y%.1).40.X%.1.GSU..KL.0.L%:
.55296.(Y%.1).40.(X%.KL),C3:.KL.NSZ..J.1
.L%.1..H(Y$,Y%);.X%);H(DT$,L%)..S...AD.J
,B(AD.J).128..S... I$:.I$."". 34030..S..
.I$.G(140)..54300:.34010.ES..II.F(I$)..S
... I$.G(32) . I$.G(160):.34080..S... II
.133 .IN$.I$:...T... II.34 . 34030.LT...
(II.32.II..20.II..13).(II.128.II.192).(I
I.218).34010.IT...II.59.II.58.II.44.3401
0.~T... II..20 . 34070..T... J.1 . 34010
.LT..J.J.1:IN$.H(IN$,J.1):I$.".":.H(Y$,Y
%);.X%.J);".":.34090..T...II.13..AD.J,B(
AD.J). 127:...T .IN$.IN$.I$..U*..H(Y$,Y%
);.X%.J.1);I$.8U4..J.L%.IN$.H(IN$,J.1).I
$:.54000.MU>.. II..20 . J.J.1.YUH.. 3401
0..U... ==== REMOVE TRAILING BLANKS ====
..U... IN$."" . ...U..CC%.F(I(IN$,1))..U
... CC%..32.CC%..160 . ...U..IN$.H(IN$,C
(IN$).1):.34205..V...808,237:.".SCAN ALL
OR SELECTED RECORDS? (A/S)";.9VB.X%.36:
Y%.1:L%.1:. 34000:ST$.IN$.NVG.. IN$.G(13
3) . ..PVL.. ST$.."A" . ST$.."S" . 35010
..VV.. ST$."A" . 35180..V...H(Y$,4)..V..
."WHAT FIELD DO YOU WISH TO SELECT BY?".
.V..."( 1-";NF.NC;" OR 'LIST' )";..W..X%
.21:Y%.B(214).1:L%.5:. 34000:SF.E(IN$).(
W... IN$.."LIST" . 35080.GW..F.2:.20000:
. G(147):.35035.UW... SF.1.SF.NF.NC . .H
(Y$,9)"INVALID FIELD"..W... SF.1.SF.NF.N
C . . ZT.1.1000:.ZT.EW... SF.1.SF.NF.NC
. .H(Y$,9);SP$:.35035..W... SF..NF . T$.
T$(SF) : LS%.L%(SF) : . 35110..X..T$.CT$
(SF.NF) : LS%.CL%(SF.NF).NX&..H(Y$,9);"S
MALLEST ITEM TO SELECT?";:Y0%.B(214).2.E
X0.X%.0:Y%.Y0%:L%.LS%..X2.. T$."D" . . 4
9000:SM$.IN$:. 35130..X5.. 34000: . 3420
0 : SM$.IN$..X:.. SM$."" . 35120..X?.. T
$."D" . D$.SM$:. 35500:SM$.D$..YD..H(Y$,
12);"LARGEST ITEM TO SELECT?";:Y0%.B(214
).2.2YN.X%.0:Y%.Y0%:L%.LS%.YYP.. T$."D"
. . 49000:LR$.IN$:. 35160.NYS.. 34000: L
R$.IN$..YX.. LR$."" . 35150..Y].. T$."D"
. D$.LR$:. 35500:LR$.D$..YB.LR.E(LR$):S
M.E(SM$)..YD.. (T$."#".T$."$"). LR.SM .
...ZG.. (T$."A".T$."D").LR$.SM$ . .."ZL.
.IA.1.NG:GK(IA).GL(IA):.IA.9ZV.. RP.1 .
E(NXR$).2.EZ... 40005.EZ... H(F$(1),1).G
(255) . 35400..Z... SF..NF . G$.F$(SF) :
. 35260..Z... PZ.1 . SF.NF : . 28500 :
. PZ..Z..G$.D(CE(SF.NF)).VZ... ST$."A" .
35313..ZF.. T$."#" . T$."$" . 35300..[K
.. T$."D" . D$.G$:.35500:G$.D$./[P.IN$.G
$:.34200:G$.IN$.K[S..G$.LR$ . G$.SM$ .35
400.W[Z.. 35313.Y[... E(G$).SM . E(G$).L
R . 35400..[..IB%.SF.NF.1 :.IB%.1.IB%.1.
.[...IB%.NC.35330.C[...PZ.IB%.NC:.28500:
.PZ..[...IA.1.NC:CD(IA).CE(IA):.IA..\...
IA.1 . NF : G$(IA).F$(IA) : . IA..\...
29000:. 29220..\4.. IN$."X". ..7\H.. RP.
=\R...`\..D$.I(D$,2).H(D$,2).J(D$,3,2):.
..\... ==== DOLLAR FORMATTING ====..\ .D
O$.D(.(E(DO$).100.0.5).100):L.C(DO$).S\.
.. J.1 . L:. J(DO$,J,1)."." . 36030..\..
. J:J.J.1..]... J.2 . L.2 . DO$.H(DO$,1)
."0".I(DO$,L.1).)]H.. J.L . DO$.DO$.".00
".C]R.. J.L.1 . DO$.DO$."0".Y]..DO$.I(SP
$.DO$,FW)._]....Y]@.. 40005 : . 40150 :
...]E.SN..(RS.(RP.1).80).1:OS.(RS.(RP.1)
).(80.(SN.1)).Q]^..52000:.4,IN$:IN$.H(IN
$.SS$,80)..]H.RL.OS:I9.RL.1..^R.. J.1 .
NF:. RL.L%(J).80 . 40065.:^W.RL.RL.L%(J)
:F$(J).J(IN$,I9,L%(J)):I9.I9.L%(J).F^|..
40090.H^..F$(J).J(IN$,I9,80.RL):SN.SN.1
.Z^...52010:.4,IN$..^..IN$.H(IN$.SS$,80)
:F$(J).F$(J).H(IN$,L%(J).RL.80).L^..RL.L
%(J).(80.RL):I9.RL.1.T^... J..^Q. 1: 4:.
15,"I0":..._V.. II.1.NF:G$(II).F$(II):.
II.#_...PZ.1.NC:.28500:. PZ.F_...II.1.NC
: CD(II) . CE(II) :.II.E_...II.1.NG:GK(I
I).GL(II):.II.K_....._3.. ==== ADD TRAIL
ING BLANKS ====.._4.G$(I).H(G$(I).SS$,L%
(I)):..L_' . ==== STRING SEARCH ====.._(
. JI.1 . C(B$).1.C(A$)..`2 . J(B$,JI,C(
A$)).A$ . I9.JI:. 41040..`< . JI.!`F I9.
0.'`P ..Q`... ==== WRITE RECORD TO DATA
FILE ====.O`... 13100 : . UPDATE TOTALS.
.`..SN..(RS.(RP.1).80).1:OS.(RS.(RP.1)).
(80.(SN.1)).G`...52000:.4,IN$:IN$.H(IN$.
SS$,80)..`8.OP$.H(IN$,OS):RL.OS:I9.RL.1.
.`B.. J.1 . NF..AE.. RL.L%(J).80 . 42063
..AH.RL.RL.L%(J):OP$.OP$.G$(J).:AL.. 420
80.CAO.OP$.OP$.H(G$(J),80.RL):.52010:.4,
OP$.OAV.SN.SN.1..AY..52010:.4,IN$:IN$.H(
IN$.SS$,80)..A\.OP$.J(G$(J),81.RL):RL.L%
(J).(80.RL).CA`.. J..A..OP$.OP$.J(IN$,RL
.1):.52010:.4,OP$: 4: 1..A...15,"I0":...
BH.. H(Y$,Y%);.X%);"../../..";.LBR.J.1 :
IN$."" : AD . 1024.(Y%.1).40 . X%.1.EB|
.. AD.J,B(AD.J) . 128..B... J$ : . J$.""
. 49030..B..JJ . F(J$)..B... JJ.13 . J.
1 . 49085.CB... JJ.133 . IN$.J$ : ...B..
. JJ..48 . JJ..57 . 49200..B... JJ..13 .
49110..C... IN$.."".49090..C... KF.FC .
49030.HC..IN$."000000":.H(Y$,Y%);.X%.J.
1);".":.._CB.. C(IN$).6 . 49030..CL.. AD
.8,B(AD.8) . 127 : . 49250..CV.. JJ..20
. 49160..C... H(Y$,[%);.X%.J.1);".";.OC.
.. J.1 . IN$."":. 49020..C... J.8 . IN$.
H(IN$,5)..D..IN$.H(IN$,C(IN$).1):J.J.1:.
J.3 . J.6 . J.J.1.7D... H(Y$,Y%);.X%.J.
1);".";.CD... 49020.XD... JJ..32 . 49030
.UD... H(Y$,Y%);.X%.J.1);" ";. D... J.1
. J.4 . J.7 . J$.G(48) : . 49210..D&.J$
. G(32) : . 49210.UD0.. H(Y$,Y%);.X%.J.1
);J$;..D:.. J.8 . IN$.H*IN$,5)..ED.IN$.I
N$.J$ : J.J.1 : . J.3 . J.6 . J.J.1.+EN.
. J.9 . J.8.7EX.. 49020.JEB.XX.E(H(IN$,2
)):YY.E(J(IN$,3,2)):ZZ.E(I(IN$,2)).}E...
H(Y$,23);SP$;..E...(ZZ.4)...(ZZ.4)..4935
0:.ER.18 . ER.0:.49000..E... XX.1 . XX.1
2 . .H(Y$,23);"MONTH OUT OF RANGE":.4900
0.&F... YY.1 . YY.DT%(XX) ..H(Y$,23);"DA
Y OUT OF RANGE":.49000.CF..IN$.I("00".J(
D(XX),2),2).DF..IN$.IN$.I("00".J(D(YY),2
),2)..F..IN$.IN$.I("00".J(D(ZZ),2),2)..F
....AFF.. XX.2 . YY.29.ER.18:.H(Y$,23);"
DAY OUT OF RANGE".GFP....FOC. ==== TEXT
FILE TO BINARY CONVERSION PROGRAM ====.5
GPCI.0:PN$."":L.B(828):.X.1.L:PN$.PN$.G(
B(828.X)):. X.SGYC.32000:.2,8,2,"0:".(PN
$):.NGZC.152,1:.153,8:Q$.G(34)..GDCPP$.H
(PN$,L.2)."/T"..GNC."....":. I.0 .50050.
.GXC.:..G.C.Z.1 .9 : . Z1.1 . 80..G.C. #
2,A$:.A$;:. ST.64. 50140..G.C. A$.G(13).
50100..G.C. Z1..H.C. Z.?H.C."I=";I.9;":
L=";L;":PN$=";Q$;PN$;Q$;":GOTO 50010..".
`HHC. 198,11:.N.0.9:.631.N,13:.N.FHRC...
H.C."PP$=";G(34);PP$;G(34);":GOTO 50160.
."..H.C. 198,Z.1:.N.0 .Z:.631.N,13:.N..H
.C 2:...H.CNM$.H(PP$,C(PP$).2):SF$.NM$."
/S":TF$.NM$."/B":AF$.NM$."/PCF"..I.CPN$.
NM$."/T":.60000.ZI.G.H(Y$,24);SP$;SP$;H(
Y$,24);"IS YOUR PRINTER A COMMODORE? . .
";..I.G.A$:.A$.."Y".A$.."N".A$..G(13).51
102..I G.A$.G(13).51108.EI.GIN$.A$:.H(Y$
,24);.29);".";IN$;".";:.51102.WI.G.IN$."
".51102..I.G.IN$."Y"..832,7:.51120..I.G.
832,8..J.G 3:.3,4:.3,"":.ST..0.51150.KJ.
G.H(Y$,24);SP$;SP$;H(Y$,25);"PRINTING...
.";.TJ.G.828.AJ.G.52210:...JMG. ==== PRI
NTER ERROR MSG ROUTINE ====..JNG.H(Y$,23
)" .PRINTER NOT READY. ".IJ.G.X
.1.1200:...J.G.H(Y$,23);SP$;: 3:...K K.
==== POSITION DATA FILE POINTER ====.(K%
K.1,8,15:.4,8,4,"0:".DF$.FK*KR2..(SN.256
):R1.SN.256.R2.CK4K.1,"P"G(4)G(R1)G(R2)G
(1).IK>K...K.K. ==== POSITION INDEX FILE
POINTER ====..K.K.1,8,15:.2,8,2,"0:".HF
$.OK.KR2..(RP.256):R1.RP.256.R2..K.K.1,"
P"G(2)G(R1)G(R2)G(1)..K.K...L.K. ==== RE
AD FROM HASH FILE ====.3L.K.2,IK$: 1: 2:
IK.E(IK$):..VL.K. ==== WRITE TO HASH FIL
E ====.IL.K.2,IK$: 1: 2:...L.K. ==== POS
ITION FORMAT FOR GBL FILE ====..L.KR2..(
IJ.256):R1.IJ.256.R2.RLJK.15,"P"G(3)G(R1
)G(R2)G(1).XLTK...M.K. ==== ERROR CHANNE
L OPEN AND INPUT RTNS ====..M.K. 15,8,15
:..2M.K.15,ER$,EM$,ET$,ES$.OM.LDS.0:DS.E
(ER$):.DS.0 . ..MM.LDS$.ER$. .EM$. .ET$.
.ES$.SM.L...M.O. ==== SET DISPLAY COLOR
S ====..M.OC1.0:C2.0:C3.1.DM.OCO$.".....
..........."..M.O.G(147).13)"SET COLOR M
ODE"..N.O.:.:..5)"[F1] SETS SCREEN COLOR
".,N!O.:..5)"[F3] SETS BORDER COLOR".MN&
O.:..5)"[F5] SETS TEXT COLOR".WN+O.:..5)
"[F7] RETURNS YOU TO MAIN MENU"..N5O.AA$
:.AA$."".53045..N:O.AA$.G(133).53075..N?
O.AA$.G(134).53085.PNDO.AA$.G(135).53095
..NIO.AA$.G(136). ...NNO.53045..OSOC1. C
1.1:.C1.15.C1.0..OXO.53281,C1:.53015.5O]
OC2. C2.1:.C2.15.C2.0.JOBO.53280,C2:.530
15.COGOC3. C3.1:.C3.17.C3.1.|OLO. J(CO$,
C3,1):.53015..O.R. ==== BEEPER ROUTINE =
===..O.R.SD.1.54055..O.RS.54272.EO.R. S.
24,15.RO.R. S.2,72..O.S. X.1 . 4..O.S: .
S.1,169:..P.S: . S.4,33..P.S. FOR I=1 T
O 5 : NEXT.&P.S. S.4,4..P.S. X.9P"S.3401
0.XP'S. X.1 . 24:. 54272.X,0 : ..CP,S.34
010.ZP.T.SD.0.SD.1:I$."":...P!T.SD.1.SD.
0:I$."":...P&T...P<W.I.828.961:.D7:.I,D7
:.:...PFW.169,4,170,160,7,32,186,255,169
,0,32,189,255,32,192,255,162,4,32,201.*Q
PW.255,169,0,133,251,133,253,169,4,133,2
52.SQUW.160,0,177,251,201,96,208,05,169,
32,76,143,3,169,64,56,241,251,41,32..QZW
.10,141,251,3,177,251,41,64,10,13,251,3,
141,251,3,177,251,41,127,13,251..RDW.3,2
08,2,169,64,201,96,208,2,169,32,32,210,2
55,230,253,169,40,56,229,253.YRNW.208,7,
133,253,169,13,32,210,255,169,111,197,25
1,208,6,169,7,197,252,240..RXW.16,24,165
,251,105,1,133,251,165,252,105,0,133,252
,76,91,3,32,231,255,96..R`..G(147):.I.1.
6:.:...RE...11)"PLEASE WAIT WORKING"..RJ
. 15:.15,8,15:.15,"I0"..ST..15,"S0:".TF$
..SY..15,"S0:".PN$.*S~..15,ER$,EM$.PS...
808,237: . === ENABLE RUN/STOP.DS... P
N$,8:. PN$,8..S...: . "YOUR PROGRAM HAS
BEEN SAVED ON YOUR"..S..."APPLICATION DI
SK.":..ZS..."TO RUN YOUR PROGRAM NOW, TY
PE 'RUN'."...."33090 I).1034..=...".THE
FOLLOWING TESTS ARE AVAILABLE:"..=...:..
10);".GEN
> CLICK IMAGE PREVIEW FOR FULL MODAL