THE LAST ONE 9
FILE INFORMATION
FILENAME(S): THE LAST ONE 9
FILE TYPE(S): SEQ
FILE SIZE: 22.2K
FIRST SEEN: 2025-11-30 18:12:25
APPEARS ON: 2 disk(s)
FILE HASH
d01bf73078fd5308c35fbb11de4f6aaf8c67f631d4621c2229cc0e3fa9f836bf
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| D0X 27 | THE LAST ONE 9 | SEQ | Sailor, Ganheden | 25 | 3 | DOWNLOAD FILE |
| SEA CHEST | THE LAST ONE 9 | SEQ | Sailor, Ganheden | 9 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 80 2A 4E 42 22 39 54 48 45 20 4C 41 53 54 20 4F |.*NB"9THE LAST O| 00000010: 4E 45 22 0D 80 2A 50 4C 36 36 3A 54 4C 36 30 3A |NE"..*PL66:TL60:| 00000020: 50 23 38 31 0D 80 2A 48 44 32 3A D4 48 45 20 CC |P#81..*HD2:.HE .| 00000030: 41 53 54 20 CF 4E 45 2C 2C D0 41 47 45 80 23 0D |AST .NE,,.AGE.#.| 00000040: 80 2A 4A 55 31 0D 80 2A 4C 4D 35 3A 52 4D 37 35 |.*JU1..*LM5:RM75| 00000050: 0D C4 41 54 45 20 46 49 45 4C 44 53 20 41 52 45 |..ATE FIELDS ARE| 00000060: 20 53 4F 52 54 45 44 20 53 4F 20 54 48 41 54 20 | SORTED SO THAT | 00000070: 54 48 45 59 20 41 52 45 20 49 4E 20 43 48 52 4F |THEY ARE IN CHRO| 00000080: 4E 4F 4C 4F 47 49 43 41 4C 20 4F 52 44 45 52 20 |NOLOGICAL ORDER | 00000090: 28 54 48 45 20 57 41 59 20 C7 4F 44 20 4D 41 44 |(THE WAY .OD MAD| 000000A0: 45 20 54 48 45 4D 20 49 4E 20 54 48 45 20 46 49 |E THEM IN THE FI| 000000B0: 52 53 54 20 50 4C 41 43 45 29 2C 20 49 45 2E 2C |RST PLACE), IE.,| 000000C0: 20 54 48 45 20 31 53 54 20 CA 41 4E 55 41 52 59 | THE 1ST .ANUARY| 000000D0: 20 43 4F 4D 45 53 20 42 45 46 4F 52 45 20 33 31 | COMES BEFORE 31| 000000E0: 53 54 20 C4 45 43 45 4D 42 45 52 20 49 4E 20 41 |ST .ECEMBER IN A| 000000F0: 4E 20 41 53 43 45 4E 44 49 4E 47 20 53 4F 52 54 |N ASCENDING SORT| 00000100: 20 57 49 54 48 49 4E 20 41 20 53 49 4E 47 4C 45 | WITHIN A SINGLE| 00000110: 20 59 45 41 52 2E 20 20 C4 41 59 53 2C 20 4D 4F | YEAR. .AYS, MO| 00000120: 4E 54 48 53 20 41 4E 44 20 59 45 41 52 53 20 41 |NTHS AND YEARS A| 00000130: 52 45 20 53 4F 52 54 45 44 20 43 4F 52 52 45 43 |RE SORTED CORREC| 00000140: 54 4C 59 20 57 48 45 54 48 45 52 20 49 4E 20 C5 |TLY WHETHER IN .| 00000150: 4E 47 4C 49 53 48 20 4F 46 20 D5 D3 20 46 4F 52 |NGLISH OF .. FOR| 00000160: 4D 41 54 2E 80 2A 4C 4E 31 0D C6 49 4E 41 4C 4C |MAT..*LN1..INALL| 00000170: 59 2C 20 49 54 20 49 53 20 57 4F 52 54 48 20 43 |Y, IT IS WORTH C| 00000180: 4F 4E 53 49 44 45 52 49 4E 47 20 41 4C 54 45 52 |ONSIDERING ALTER| 00000190: 4E 41 54 49 56 45 53 20 54 4F 20 54 48 45 20 55 |NATIVES TO THE U| 000001A0: 53 45 20 4F 46 20 54 48 45 20 53 4F 52 54 2E 20 |SE OF THE SORT. | 000001B0: 20 C9 54 20 57 41 53 20 49 4E 43 4C 55 44 45 44 | .T WAS INCLUDED| 000001C0: 20 42 59 20 50 4F 50 55 4C 41 52 20 44 45 4D 41 | BY POPULAR DEMA| 000001D0: 4E 44 2C 20 42 55 54 20 54 48 45 20 53 49 4E 47 |ND, BUT THE SING| 000001E0: 4C 45 20 54 59 50 45 20 4F 46 20 53 4F 52 54 20 |LE TYPE OF SORT | 000001F0: 28 41 20 53 48 45 4C 4C 20 53 4F 52 54 29 20 4B |(A SHELL SORT) K| 00000200: 4E 4F 57 4E 20 54 4F 20 D4 CC CF 20 43 41 4E 20 |NOWN TO ... CAN | 00000210: 4E 45 56 45 52 20 52 45 41 4C 4C 59 20 42 45 20 |NEVER REALLY BE | 00000220: 50 45 52 46 45 43 54 20 46 4F 52 20 45 56 45 52 |PERFECT FOR EVER| 00000230: 59 20 4A 4F 42 2E 20 20 C1 20 43 41 52 45 46 55 |Y JOB. . CAREFU| 00000240: 4C 4C 59 20 54 48 4F 55 47 48 54 20 4F 55 54 20 |LLY THOUGHT OUT | 00000250: D3 45 41 52 43 48 20 57 49 4C 4C 20 4F 46 54 45 |.EARCH WILL OFTE| 00000260: 4E 20 50 52 4F 44 55 43 45 20 54 48 45 20 53 41 |N PRODUCE THE SA| 00000270: 4D 45 20 45 46 46 45 43 54 20 41 53 20 41 20 53 |ME EFFECT AS A S| 00000280: 4F 52 54 20 49 4E 20 46 41 52 20 4C 45 53 53 20 |ORT IN FAR LESS | 00000290: 54 49 4D 45 2E 80 2A 4C 4E 31 0D C9 46 20 59 4F |TIME..*LN1..F YO| 000002A0: 55 20 4D 55 53 54 20 53 4F 52 54 2C 20 53 4F 52 |U MUST SORT, SOR| 000002B0: 54 20 49 4E 20 53 4D 41 4C 4C 20 42 41 54 43 48 |T IN SMALL BATCH| 000002C0: 45 53 20 41 53 20 59 4F 55 20 47 4F 20 41 4C 4F |ES AS YOU GO ALO| 000002D0: 4E 47 20 4F 52 20 53 4F 52 54 20 4F 4E 4C 59 20 |NG OR SORT ONLY | 000002E0: 41 4E 20 49 4E 44 45 58 20 46 49 4C 45 2C 20 4C |AN INDEX FILE, L| 000002F0: 45 41 56 49 4E 47 20 54 48 45 20 4D 41 49 4E 20 |EAVING THE MAIN | 00000300: 46 49 4C 45 20 55 4E 43 48 41 4E 47 45 44 20 42 |FILE UNCHANGED B| 00000310: 55 54 20 45 41 53 49 4C 59 20 52 45 46 45 52 45 |UT EASILY REFERE| 00000320: 4E 43 45 44 2E 80 2A 4C 4E 31 0D C5 CE C4 80 A3 |NCED..*LN1......| 00000330: D0 D2 CF C7 D2 C1 CD 20 2D 20 D3 4F 52 54 49 4E |....... - .ORTIN| 00000340: 47 20 41 20 4C 41 52 47 45 20 46 49 4C 45 20 4F |G A LARGE FILE O| 00000350: 46 20 4D 41 4E 59 20 52 45 43 4F 52 44 53 20 43 |F MANY RECORDS C| 00000360: 41 4E 20 42 45 20 41 20 56 45 52 59 20 53 4C 4F |AN BE A VERY SLO| 00000370: 57 20 42 55 53 49 4E 45 53 53 2E 20 20 C1 20 46 |W BUSINESS. . F| 00000380: 49 4C 45 20 4F 46 20 35 30 30 20 52 45 43 4F 52 |ILE OF 500 RECOR| 00000390: 44 53 20 4F 46 20 50 45 52 48 41 50 53 20 41 20 |DS OF PERHAPS A | 000003A0: 44 4F 5A 45 4E 20 4C 41 52 47 49 53 48 20 46 49 |DOZEN LARGISH FI| 000003B0: 45 4C 44 53 20 45 41 43 48 20 57 49 4C 4C 20 53 |ELDS EACH WILL S| 000003C0: 54 49 4C 4C 20 54 41 4B 45 20 55 50 20 54 4F 20 |TILL TAKE UP TO | 000003D0: 32 30 20 4D 49 4E 55 54 45 53 20 54 4F 20 53 4F |20 MINUTES TO SO| 000003E0: 52 54 20 49 46 20 54 48 45 20 4F 52 49 47 49 4E |RT IF THE ORIGIN| 000003F0: 41 4C 20 4F 52 44 45 52 20 57 41 53 20 43 4F 4D |AL ORDER WAS COM| 00000400: 50 4C 45 54 45 4C 59 20 52 41 4E 44 4F 4D 2E 80 |PLETELY RANDOM..| 00000410: 2A 4C 4E 31 0D C6 C3 CD 20 CF D0 D4 C9 CF CE 20 |*LN1.... ...... | 00000420: 31 31 20 2D 20 C3 CC C5 C1 D2 20 C4 C1 D4 C1 80 |11 - ..... .....| 00000430: 2A 4C 4E 31 0D C6 CC CF D7 C3 C8 C1 D2 D4 80 A3 |*LN1............| 00000440: CC C9 CE C5 D3 80 A3 D7 D2 C9 D4 D4 C5 CE 80 2A |...............*| 00000450: 4C 4E 31 0D 20 20 20 20 20 C3 4C 45 41 52 20 41 |LN1. .LEAR A| 00000460: 4C 4C 20 46 49 45 4C 44 53 0D 4F 52 0D 20 20 20 |LL FIELDS.OR. | 00000470: 20 20 C3 4C 45 41 52 20 53 45 4C 45 43 54 45 44 | .LEAR SELECTED| 00000480: 20 46 49 45 4C 44 53 80 2A 4C 4E 31 0D D0 D5 D2 | FIELDS.*LN1....| 00000490: D0 CF D3 C5 20 2D 20 D4 4F 20 45 4D 50 54 59 20 |.... - .O EMPTY | 000004A0: 46 49 45 4C 44 53 20 4F 46 20 41 4E 59 20 4B 49 |FIELDS OF ANY KI| 000004B0: 4E 44 20 4F 46 20 41 4E 59 20 44 41 54 41 20 48 |ND OF ANY DATA H| 000004C0: 45 4C 44 20 49 4E 20 54 48 45 4D 2E 20 20 C6 49 |ELD IN THEM. .I| 000004D0: 4C 45 20 52 45 43 4F 52 44 53 20 43 55 52 52 45 |LE RECORDS CURRE| 000004E0: 4E 54 4C 59 20 48 45 4C 44 20 49 4E 20 54 48 45 |NTLY HELD IN THE| 000004F0: 20 43 4F 4D 50 55 54 45 52 20 57 49 4C 4C 20 41 | COMPUTER WILL A| 00000500: 4C 53 4F 20 42 45 20 43 4C 45 41 52 45 44 20 42 |LSO BE CLEARED B| 00000510: 55 54 20 54 48 45 20 44 49 53 4B 20 46 49 4C 45 |UT THE DISK FILE| 00000520: 20 49 54 53 45 4C 46 20 57 49 4C 4C 20 4E 4F 54 | ITSELF WILL NOT| 00000530: 20 42 45 20 54 4F 55 43 48 45 44 20 49 46 20 59 | BE TOUCHED IF Y| 00000540: 4F 55 20 57 41 4E 54 20 54 4F 20 43 4C 45 41 52 |OU WANT TO CLEAR| 00000550: 20 41 20 44 49 53 4B 20 46 49 4C 45 2E 80 2A 4C | A DISK FILE..*L| 00000560: 4E 31 0D C6 CC CF D7 C3 C8 C1 D2 D4 C9 CE C7 20 |N1............. | 00000570: 2D 20 CF 4E 20 53 45 4C 45 43 54 49 4E 47 20 C6 |- .N SELECTING .| 00000580: C3 CD 20 4F 50 54 49 4F 4E 20 31 31 20 59 4F 55 |.. OPTION 11 YOU| 00000590: 20 57 49 4C 4C 20 42 45 20 4F 46 46 45 52 45 44 | WILL BE OFFERED| 000005A0: 20 41 20 53 55 42 20 4D 45 4E 55 3A 80 2A 4C 4E | A SUB MENU:.*LN| 000005B0: 31 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |1. | 000005C0: 20 20 20 20 20 20 20 C3 4C 45 41 52 20 41 4C 4C | .LEAR ALL| 000005D0: 20 46 49 45 4C 44 53 2E 2E 2E 2E 2E 2E 2E 3C 31 | FIELDS.......<1| 000005E0: 3E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |>. | 000005F0: 20 20 20 20 20 20 20 C3 4C 45 41 52 20 53 45 4C | .LEAR SEL| 00000600: 45 43 54 45 44 20 46 49 45 4C 44 53 2E 2E 3C 32 |ECTED FIELDS..<2| 00000610: 3E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |>. | 00000620: 20 20 20 20 20 20 20 D2 45 54 55 52 4E 20 54 4F | .ETURN TO| 00000630: 20 C6 2E C3 2E CD 2E 2E 2E 2E 2E 2E 2E 2E 3C 33 | .............<3| 00000640: 3E 80 2A 4C 4E 31 0D D4 4F 20 43 4C 45 41 52 20 |>.*LN1..O CLEAR | 00000650: 41 4C 4C 20 54 48 45 20 44 41 54 41 20 46 49 45 |ALL THE DATA FIE| 00000660: 4C 44 53 20 49 4E 20 55 53 45 2C 20 53 45 4C 45 |LDS IN USE, SELE| 00000670: 43 54 20 53 55 42 20 4F 50 54 49 4F 4E 20 31 2E |CT SUB OPTION 1.| 00000680: 20 20 C1 4C 4C 20 4E 55 4D 45 52 49 43 20 46 49 | .LL NUMERIC FI| 00000690: 45 4C 44 53 20 57 49 4C 4C 20 42 45 20 43 48 41 |ELDS WILL BE CHA| 000006A0: 4E 47 45 44 20 54 4F 20 30 2C 20 41 4C 4C 20 41 |NGED TO 0, ALL A| 000006B0: 4C 50 48 41 20 46 49 45 4C 44 53 20 57 49 4C 4C |LPHA FIELDS WILL| 000006C0: 20 42 45 20 45 4D 50 54 49 45 44 20 28 54 4F 20 | BE EMPTIED (TO | 000006D0: 22 22 20 2D 20 46 4F 52 20 C2 C1 D3 C9 C3 20 42 |"" - FOR ..... B| 000006E0: 55 46 46 53 29 2E 20 20 D4 48 45 20 52 41 4E 44 |UFFS). .HE RAND| 000006F0: 4F 4D 20 4E 55 4D 42 45 52 20 D2 C4 20 28 49 46 |OM NUMBER .. (IF| 00000700: 20 53 45 4C 45 43 54 45 44 29 20 57 49 4C 4C 20 | SELECTED) WILL | 00000710: 42 45 20 53 45 54 20 54 4F 20 5A 45 52 4F 2E 20 |BE SET TO ZERO. | 00000720: 20 D4 48 45 20 46 49 45 4C 44 53 20 D0 20 28 50 | .HE FIELDS . (P| 00000730: 41 47 45 20 43 4F 55 4E 54 45 52 29 20 41 4E 44 |AGE COUNTER) AND| 00000740: 20 CC C3 20 28 CC 49 4E 45 20 43 4F 55 4E 54 45 | .. (.INE COUNTE| 00000750: 52 29 20 57 49 4C 4C 20 4E 4F 54 20 42 45 20 43 |R) WILL NOT BE C| 00000760: 4C 45 41 52 45 44 2E 20 20 D9 4F 55 52 20 4F 57 |LEARED. .OUR OW| 00000770: 4E 20 56 41 52 49 41 42 4C 45 53 2C 20 44 45 46 |N VARIABLES, DEF| 00000780: 49 4E 45 44 20 49 4E 20 43 41 4C 43 55 4C 41 54 |INED IN CALCULAT| 00000790: 49 4F 4E 53 20 28 C1 C1 20 54 4F 20 DA DA 29 20 |IONS (.. TO ..) | 000007A0: 57 49 4C 4C 20 4E 4F 54 20 42 45 20 43 4C 45 41 |WILL NOT BE CLEA| 000007B0: 52 45 44 2E 80 2A 4C 4E 31 0D C9 46 20 59 4F 55 |RED..*LN1..F YOU| 000007C0: 20 57 41 4E 54 20 54 4F 20 43 4C 45 41 52 20 53 | WANT TO CLEAR S| 000007D0: 45 4C 45 43 54 45 44 20 46 49 45 4C 44 53 20 4F |ELECTED FIELDS O| 000007E0: 4E 4C 59 2C 20 53 45 4C 45 43 54 20 53 55 42 20 |NLY, SELECT SUB | 000007F0: 4F 50 54 49 4F 4E 20 32 2C 20 54 48 45 20 46 49 |OPTION 2, THE FI| 00000800: 45 4C 44 53 20 54 4F 20 42 45 20 43 4C 45 41 52 |ELDS TO BE CLEAR| 00000810: 45 44 20 57 49 4C 4C 20 42 45 20 53 45 4C 45 43 |ED WILL BE SELEC| 00000820: 54 45 44 20 46 52 4F 4D 20 41 20 46 55 4C 4C 20 |TED FROM A FULL | 00000830: 46 49 45 4C 44 20 4C 49 53 54 20 44 55 52 49 4E |FIELD LIST DURIN| 00000840: 47 20 50 52 4F 47 52 41 4D 20 43 4F 44 49 4E 47 |G PROGRAM CODING| 00000850: 2E 80 2A 4C 4E 31 0D D0 D2 CF C7 D2 C1 CD 80 A3 |..*LN1..........| 00000860: C3 CF C4 C9 CE C7 20 2D 20 C3 CC C5 C1 D2 80 A3 |...... - .......| 00000870: C1 CC CC 80 A3 C6 C9 C5 CC C4 D3 20 52 45 51 55 |........... REQU| 00000880: 49 52 45 53 20 4E 4F 20 41 44 44 49 54 49 49 4F |IRES NO ADDITIIO| 00000890: 4E 41 4C 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 |NAL INFORMATION | 000008A0: 44 55 52 49 4E 47 20 50 52 4F 47 52 41 4D 20 43 |DURING PROGRAM C| 000008B0: 4F 44 49 4E 47 2E 20 20 C3 CC C5 C1 D2 80 A3 D3 |ODING. ........| 000008C0: C5 CC C5 C3 D4 C5 C4 80 A3 C6 C9 C5 CC C4 D3 20 |............... | 000008D0: 57 49 4C 4C 20 4C 45 41 44 20 54 4F 20 41 20 44 |WILL LEAD TO A D| 000008E0: 49 53 50 4C 41 59 20 4F 46 20 41 4C 4C 20 54 48 |ISPLAY OF ALL TH| 000008F0: 45 20 41 56 41 49 4C 41 42 4C 45 20 46 49 45 4C |E AVAILABLE FIEL| 00000900: 44 53 2E 20 20 D9 4F 55 20 57 49 4C 4C 20 42 45 |DS. .OU WILL BE| 00000910: 20 41 53 4B 45 44 20 C5 CE D4 C5 D2 80 A3 C3 CF | ASKED .........| 00000920: C4 C5 80 A3 CF C6 80 A3 C6 C9 C5 CC C4 80 A3 D4 |................| 00000930: CF 80 A3 C3 CC C5 C1 D2 20 41 4E 44 20 59 4F 55 |........ AND YOU| 00000940: 20 53 48 4F 55 4C 44 20 55 53 45 20 54 48 45 20 | SHOULD USE THE | 00000950: 20 55 53 55 41 4C 20 46 49 45 4C 44 20 53 45 4C | USUAL FIELD SEL| 00000960: 45 43 54 49 4F 4E 20 52 4F 55 54 49 4E 45 20 54 |ECTION ROUTINE T| 00000970: 4F 20 54 45 4C 4C 20 D4 CC CF 20 57 48 49 43 48 |O TELL ... WHICH| 00000980: 20 46 49 45 4C 44 20 49 53 20 54 4F 20 42 45 20 | FIELD IS TO BE | 00000990: 43 4C 45 41 52 45 44 2E 20 20 C1 4E 53 57 45 52 |CLEARED. .NSWER| 000009A0: 20 D9 45 53 20 54 4F 20 C9 D3 80 A3 D4 C8 C9 D3 | .ES TO ........| 000009B0: 80 A3 C3 CF D2 D2 C5 C3 D4 20 28 D9 2F CE 29 20 |......... (./.) | 000009C0: 41 4E 44 20 59 4F 55 20 57 49 4C 4C 20 42 45 20 |AND YOU WILL BE | 000009D0: 41 53 4B 45 44 20 C1 CE D9 CD CF D2 C5 80 A3 C6 |ASKED ..........| 000009E0: C9 C5 CC C4 D3 80 A3 D4 CF 80 A3 C3 CC C5 C1 D2 |................| 000009F0: 80 A3 28 D9 2F CE 29 2C 20 43 4F 4E 54 49 4E 55 |..(./.), CONTINU| 00000A00: 45 20 54 48 49 53 20 50 52 4F 43 45 53 53 20 55 |E THIS PROCESS U| 00000A10: 4E 54 49 4C 20 59 4F 55 20 48 41 56 45 20 46 49 |NTIL YOU HAVE FI| 00000A20: 4E 49 53 48 45 44 2E 80 2A 4C 4E 31 0D C5 CE C4 |NISHED..*LN1....| 00000A30: 80 A3 D2 CF D5 D4 C9 CE C5 20 2D 20 C9 46 20 59 |......... - .F Y| 00000A40: 4F 55 20 41 4E 53 57 45 52 20 CE 4F 20 54 4F 20 |OU ANSWER .O TO | 00000A50: C1 CE D9 80 A3 CD CF D2 C5 80 A3 C6 C9 C5 CC C4 |................| 00000A60: D3 80 A3 D4 CF 80 A3 C3 CC C5 C1 D2 20 28 D9 2F |............ (./| 00000A70: CE 29 2C 20 54 48 45 20 4E 45 58 54 20 46 4C 4F |.), THE NEXT FLO| 00000A80: 57 43 48 41 52 54 20 4C 49 4E 45 20 57 49 4C 4C |WCHART LINE WILL| 00000A90: 20 42 45 20 43 41 4C 4C 45 44 20 49 4E 20 46 4F | BE CALLED IN FO| 00000AA0: 52 20 43 4F 44 49 4E 47 2E 80 2A 4C 4E 31 0D C6 |R CODING..*LN1..| 00000AB0: C3 CD 20 CF D0 D4 C9 CF CE 20 31 32 20 2D 20 D3 |.. ...... 12 - .| 00000AC0: C5 D4 20 C6 C9 CC C5 20 D0 CF C9 CE D4 C5 D2 D3 |.. .... ........| 00000AD0: 0D C6 CC CF D7 C3 C8 C1 D2 D4 80 A3 CC C9 CE C5 |................| 00000AE0: D3 80 A3 D7 D2 C9 D4 D4 C5 CE 3A 80 2A 4C 4E 31 |..........:.*LN1| 00000AF0: 0D 20 20 20 20 20 D3 45 54 20 50 4F 49 4E 54 45 |. .ET POINTE| 00000B00: 52 20 54 4F 20 45 4E 44 20 4F 52 20 3C C6 C9 CC |R TO END OR <...| 00000B10: C5 CE C1 CD C5 3E 0D 20 20 20 20 20 D3 45 54 20 |.....>. .ET | 00000B20: 50 4F 49 4E 54 45 52 20 54 4F 20 53 54 41 52 54 |POINTER TO START| 00000B30: 20 4F 46 20 3C C6 C9 CC C5 CE C1 CD C5 3E 0D 20 | OF <........>. | 00000B40: 20 20 20 20 D3 45 54 20 50 4F 49 4E 54 45 52 20 | .ET POINTER | 00000B50: 54 4F 20 50 52 45 56 49 4F 55 53 20 52 45 43 4F |TO PREVIOUS RECO| 00000B60: 52 44 20 57 49 54 48 49 4E 20 3C C6 C9 CC C5 CE |RD WITHIN <.....| 00000B70: C1 CD C5 3E 0D 20 20 20 20 20 D3 45 54 20 50 4F |...>. .ET PO| 00000B80: 49 4E 54 45 52 20 4F 46 20 3C C6 C9 D2 D3 D4 C6 |INTER OF <......| 00000B90: C9 CC C5 3E 20 46 52 4F 4D 20 41 20 46 49 45 4C |...> FROM A FIEL| 00000BA0: 44 20 49 4E 20 3C D3 C5 C3 CF CE C4 C6 C9 CC C5 |D IN <..........| 00000BB0: 3E 0D 20 20 20 20 20 D3 45 54 20 41 20 46 49 45 |>. .ET A FIE| 00000BC0: 4C 44 20 49 4E 20 3C D3 C5 C3 CF CE C4 C6 C9 CC |LD IN <.........| 00000BD0: C5 3E 20 54 4F 20 54 48 45 20 50 4F 49 4E 54 45 |.> TO THE POINTE| 00000BE0: 52 20 4F 46 20 3C C6 C9 D2 D3 D4 C6 C9 CC C5 3E |R OF <.........>| 00000BF0: 80 2A 4C 4E 31 0D D0 D5 D2 D0 CF D3 C5 20 2D 20 |.*LN1........ - | 00000C00: D4 4F 20 4D 41 4E 49 50 55 4C 41 54 45 20 41 20 |.O MANIPULATE A | 00000C10: 46 49 4C 45 20 50 4F 49 4E 54 45 52 20 53 4F 20 |FILE POINTER SO | 00000C20: 54 48 41 54 20 59 4F 55 20 43 41 4E 20 44 45 41 |THAT YOU CAN DEA| 00000C30: 4C 20 57 49 54 48 20 41 20 53 50 45 43 49 46 49 |L WITH A SPECIFI| 00000C40: 43 20 52 45 43 4F 52 44 20 49 4E 20 41 20 46 49 |C RECORD IN A FI| 00000C50: 4C 45 2E 20 20 D4 48 45 20 46 49 4C 45 20 50 4F |LE. .HE FILE PO| 00000C60: 49 4E 54 45 52 20 4F 50 54 49 4F 4E 53 20 46 41 |INTER OPTIONS FA| 00000C70: 4C 4C 20 49 4E 54 4F 20 54 57 4F 20 4D 41 49 4E |LL INTO TWO MAIN| 00000C80: 20 47 52 4F 55 50 53 3B 20 4F 50 54 49 4F 4E 53 | GROUPS; OPTIONS| 00000C90: 20 31 20 28 D3 45 54 20 50 4F 49 4E 54 45 52 20 | 1 (.ET POINTER | 00000CA0: 54 4F 20 45 4E 44 20 4F 46 20 46 49 4C 45 29 2C |TO END OF FILE),| 00000CB0: 20 32 20 28 D3 45 54 20 50 4F 49 4E 54 45 52 20 | 2 (.ET POINTER | 00000CC0: 54 4F 20 53 54 41 52 54 20 4F 46 20 46 49 4C 45 |TO START OF FILE| 00000CD0: 29 20 41 4E 44 20 33 20 28 D3 45 54 20 50 4F 49 |) AND 3 (.ET POI| 00000CE0: 4E 54 45 52 20 54 4F 20 50 52 45 56 49 4F 55 53 |NTER TO PREVIOUS| 00000CF0: 20 52 45 43 4F 52 44 20 49 4E 20 41 20 46 49 4C | RECORD IN A FIL| 00000D00: 45 29 20 41 52 45 20 41 4C 4C 20 46 41 49 52 4C |E) ARE ALL FAIRL| 00000D10: 59 20 53 54 52 41 49 47 48 54 46 4F 52 57 41 52 |Y STRAIGHTFORWAR| 00000D20: 44 2E 20 20 CF 50 54 49 4F 4E 20 34 20 28 53 45 |D. .PTION 4 (SE| 00000D30: 54 20 50 4F 49 4E 54 45 52 20 54 4F 20 54 48 45 |T POINTER TO THE| 00000D40: 20 56 41 4C 55 45 20 48 45 4C 44 20 49 4E 20 41 | VALUE HELD IN A| 00000D50: 20 46 49 4C 45 20 46 49 45 4C 44 29 20 41 4E 44 | FILE FIELD) AND| 00000D60: 20 35 20 28 CC 4F 41 44 20 41 20 43 55 52 52 45 | 5 (.OAD A CURRE| 00000D70: 4E 54 20 50 4F 49 4E 54 45 52 20 56 41 4C 55 45 |NT POINTER VALUE| 00000D80: 20 49 4E 54 4F 20 41 20 46 49 4C 45 20 46 49 45 | INTO A FILE FIE| 00000D90: 4C 44 29 20 41 52 45 20 41 20 4C 49 54 54 4C 45 |LD) ARE A LITTLE| 00000DA0: 20 4D 4F 52 45 20 43 4F 4D 50 4C 49 43 41 54 45 | MORE COMPLICATE| 00000DB0: 44 20 42 55 54 20 57 49 4C 4C 20 52 45 57 41 52 |D BUT WILL REWAR| 00000DC0: 44 20 54 48 45 20 55 53 45 52 20 57 48 4F 20 54 |D THE USER WHO T| 00000DD0: 41 4B 45 53 20 54 48 45 20 54 52 4F 55 42 4C 45 |AKES THE TROUBLE| 00000DE0: 20 54 4F 20 47 45 54 20 54 4F 20 47 52 49 50 53 | TO GET TO GRIPS| 00000DF0: 20 57 49 54 48 20 54 48 45 4D 2E 80 2A 4C 4E 31 | WITH THEM..*LN1| 00000E00: 0D C6 CC CF D7 C3 C8 C1 D2 D4 C9 CE C7 20 2D 20 |............. - | 00000E10: D3 45 4C 45 43 54 20 C6 C3 CD 20 4F 50 54 49 4F |.ELECT ... OPTIO| 00000E20: 4E 20 31 32 20 28 D3 45 54 20 50 4F 49 4E 54 45 |N 12 (.ET POINTE| 00000E30: 52 53 29 20 41 4E 44 20 41 20 53 55 42 20 4D 45 |RS) AND A SUB ME| 00000E40: 4E 55 20 41 4C 4C 4F 57 53 20 59 4F 55 20 54 4F |NU ALLOWS YOU TO| 00000E50: 20 43 48 4F 4F 53 45 20 54 48 45 20 50 4F 49 4E | CHOOSE THE POIN| 00000E60: 54 45 52 20 41 43 54 49 4F 4E 20 52 45 51 55 49 |TER ACTION REQUI| 00000E70: 52 45 44 2E 20 20 D3 45 4C 45 43 54 20 54 48 45 |RED. .ELECT THE| 00000E80: 20 52 45 51 55 49 52 45 44 20 53 55 42 20 4F 50 | REQUIRED SUB OP| 00000E90: 54 49 4F 4E 20 41 4E 44 20 53 45 4C 45 43 54 20 |TION AND SELECT | 00000EA0: 48 45 20 52 45 51 55 49 52 45 44 20 46 49 4C 45 |HE REQUIRED FILE| 00000EB0: 28 53 29 20 46 52 4F 4D 20 54 48 45 20 4C 49 53 |(S) FROM THE LIS| 00000EC0: 54 20 57 48 49 43 48 20 57 49 4C 4C 20 42 45 20 |T WHICH WILL BE | 00000ED0: 44 49 53 50 4C 41 59 45 44 2E 80 2A 4C 4E 31 0D |DISPLAYED..*LN1.| 00000EE0: CE CF D4 C5 3A 20 C1 20 46 49 4C 45 20 50 4F 49 |....: . FILE POI| 00000EF0: 4E 54 45 52 20 41 4E 44 20 41 4E 20 C5 4E 44 20 |NTER AND AN .ND | 00000F00: CF 46 20 C6 49 4C 45 20 4D 41 52 4B 45 52 20 43 |.F .ILE MARKER C| 00000F10: 41 4E 20 45 41 43 48 20 54 41 4B 45 20 41 20 4D |AN EACH TAKE A M| 00000F20: 41 58 49 4D 55 4D 20 56 41 4C 55 45 20 4F 46 20 |AXIMUM VALUE OF | 00000F30: 33 32 37 36 37 2E 20 20 C6 4F 52 20 54 48 45 20 |32767. .OR THE | 00000F40: C2 C1 D3 C9 C3 20 42 55 46 46 53 2C 20 54 48 45 |..... BUFFS, THE| 00000F50: 20 50 4F 49 4E 54 45 52 53 20 41 52 45 20 48 45 | POINTERS ARE HE| 00000F60: 4C 44 20 49 4E 20 56 41 52 49 41 42 4C 45 53 20 |LD IN VARIABLES | 00000F70: 43 41 4C 4C 45 44 20 D0 28 31 29 2C 20 D0 28 32 |CALLED .(1), .(2| 00000F80: 29 20 28 41 4E 44 20 53 4F 20 4F 4E 2C 20 55 50 |) (AND SO ON, UP| 00000F90: 20 54 4F 20 D0 28 39 29 2C 20 46 4F 52 20 45 41 | TO .(9), FOR EA| 00000FA0: 43 48 20 4F 46 20 54 48 45 20 4E 49 4E 45 20 46 |CH OF THE NINE F| 00000FB0: 49 4C 45 53 20 54 48 41 54 20 4D 41 59 20 42 45 |ILES THAT MAY BE| 00000FC0: 20 55 53 45 44 20 42 59 20 41 20 53 49 4E 47 4C | USED BY A SINGL| 00000FD0: 45 20 50 52 4F 47 52 41 4D 29 2E 20 20 D4 48 45 |E PROGRAM). .HE| 00000FE0: 20 41 43 54 55 41 4C 20 43 4F 44 45 20 55 53 45 | ACTUAL CODE USE| 00000FF0: 44 20 46 4F 52 20 54 48 49 53 20 56 41 52 49 41 |D FOR THIS VARIA| 00001000: 42 4C 45 20 49 53 20 47 49 56 45 4E 20 49 4E 20 |BLE IS GIVEN IN | 00001010: 54 48 45 20 50 52 49 4E 54 45 44 20 44 4F 43 55 |THE PRINTED DOCU| 00001020: 4D 45 4E 54 41 54 49 4F 4E 2E 20 20 D9 4F 55 20 |MENTATION. .OU | 00001030: 4D 41 59 2C 20 4F 46 20 43 4F 55 52 53 45 2C 20 |MAY, OF COURSE, | 00001040: 50 45 52 46 4F 52 4D 20 46 55 52 54 48 45 52 20 |PERFORM FURTHER | 00001050: 43 41 4C 43 55 4C 41 54 49 4F 4E 53 20 28 C6 C3 |CALCULATIONS (..| 00001060: CD 20 4F 50 54 49 4F 4E 20 39 29 20 4F 4E 20 54 |. OPTION 9) ON T| 00001070: 48 49 53 20 56 41 52 49 41 42 4C 45 20 54 4F 20 |HIS VARIABLE TO | 00001080: 41 4C 4C 4F 57 20 59 4F 55 20 54 4F 20 43 52 45 |ALLOW YOU TO CRE| 00001090: 41 54 45 20 53 45 51 55 45 4E 54 49 41 4C 20 41 |ATE SEQUENTIAL A| 000010A0: 4E 44 20 4F 54 48 45 52 20 46 49 4C 45 20 53 54 |ND OTHER FILE ST| 000010B0: 52 55 43 54 55 52 45 53 20 4E 4F 54 20 4E 4F 52 |RUCTURES NOT NOR| 000010C0: 4D 41 4C 4C 59 20 55 53 45 44 20 42 59 20 D4 CC |MALLY USED BY ..| 000010D0: CF 2E 80 2A 4C 4E 31 0D D3 55 42 2D CF 50 54 49 |...*LN1..UB-.PTI| 000010E0: 4F 4E 20 31 20 2D 20 D3 C5 D4 80 A3 D0 CF C9 CE |ON 1 - .........| 000010F0: D4 C5 D2 80 A3 D4 CF 80 A3 C5 CE C4 80 A3 CF C6 |................| 00001100: 80 A3 C6 C9 CC C5 0D D0 D5 D2 D0 CF D3 C5 80 2A |...............*| 00001110: 4C 4E 31 0D D4 4F 20 50 4F 49 4E 54 20 54 4F 20 |LN1..O POINT TO | 00001120: 54 48 45 20 45 4E 44 20 4F 46 20 41 20 46 49 4C |THE END OF A FIL| 00001130: 45 2C 20 55 53 55 41 4C 4C 59 20 53 4F 20 54 48 |E, USUALLY SO TH| 00001140: 41 54 20 41 20 52 45 43 4F 52 44 20 43 41 4E 20 |AT A RECORD CAN | 00001150: 42 45 20 41 44 44 45 44 20 49 4E 20 53 55 43 48 |BE ADDED IN SUCH| 00001160: 20 41 20 57 41 59 20 54 48 41 54 20 49 54 20 57 | A WAY THAT IT W| 00001170: 49 4C 4C 20 4E 4F 54 20 4F 56 45 52 57 52 49 54 |ILL NOT OVERWRIT| 00001180: 45 20 45 58 49 53 54 49 4E 47 20 4D 41 54 45 52 |E EXISTING MATER| 00001190: 49 41 4C 2E 80 2A 4C 4E 31 0D CE CF D4 C5 D3 3A |IAL..*LN1......:| 000011A0: 20 C5 4E 44 20 4F 46 20 46 49 4C 45 20 49 53 20 | .ND OF FILE IS | 000011B0: 4F 46 54 45 4E 20 41 42 42 52 45 56 49 41 54 45 |OFTEN ABBREVIATE| 000011C0: 44 20 54 4F 20 45 4F 46 2E 20 20 C9 4E 20 41 4E |D TO EOF. .N AN| 000011D0: 20 45 4D 50 54 59 20 46 49 4C 45 2C 20 49 2E 45 | EMPTY FILE, I.E| 000011E0: 2E 20 4F 4E 45 20 57 49 54 48 20 4E 4F 20 52 45 |. ONE WITH NO RE| 000011F0: 43 4F 52 44 53 20 59 45 54 20 53 54 4F 52 45 44 |CORDS YET STORED| 00001200: 20 49 4E 20 49 54 2C 20 54 48 45 20 45 4E 44 20 | IN IT, THE END | 00001210: 4F 46 20 46 49 4C 45 20 49 53 20 53 54 49 4C 4C |OF FILE IS STILL| 00001220: 20 41 54 20 54 48 45 20 42 45 47 49 4E 4E 49 4E | AT THE BEGINNIN| 00001230: 47 20 4F 46 20 54 48 45 20 46 49 4C 45 2E 20 20 |G OF THE FILE. | 00001240: D4 48 45 20 50 4F 49 4E 54 45 52 20 57 49 4C 4C |.HE POINTER WILL| 00001250: 20 28 57 48 45 4E 20 53 45 54 20 54 4F 20 45 4F | (WHEN SET TO EO| 00001260: 46 29 20 41 4C 57 41 59 53 20 50 4F 49 4E 54 20 |F) ALWAYS POINT | 00001270: 41 54 20 54 48 45 20 46 49 52 53 54 20 46 52 45 |AT THE FIRST FRE| 00001280: 45 20 53 50 41 43 45 20 49 4E 20 54 48 41 54 20 |E SPACE IN THAT | 00001290: 46 49 4C 45 2E 80 2A 4C 4E 31 0D CF 4E 43 45 20 |FILE..*LN1..NCE | 000012A0: 54 48 45 20 50 4F 49 4E 54 45 52 20 48 41 53 20 |THE POINTER HAS | 000012B0: 42 45 45 4E 20 54 4F 4C 44 20 54 4F 20 47 4F 20 |BEEN TOLD TO GO | 000012C0: 54 4F 20 54 48 45 20 45 4E 44 20 4F 46 20 41 20 |TO THE END OF A | 000012D0: 46 49 4C 45 2C 20 49 54 20 57 49 4C 4C 20 41 4C |FILE, IT WILL AL| 000012E0: 57 41 59 53 20 50 4F 49 4E 54 20 54 4F 20 54 48 |WAYS POINT TO TH| 000012F0: 45 20 45 4E 44 2C 20 49 54 20 44 4F 45 53 20 4E |E END, IT DOES N| 00001300: 4F 54 20 4E 45 45 44 20 54 4F 20 42 45 20 52 45 |OT NEED TO BE RE| 00001310: 50 4F 53 49 54 49 4F 4E 45 44 20 45 41 43 48 20 |POSITIONED EACH | 00001320: 54 49 4D 45 20 41 20 52 45 43 4F 52 44 20 49 53 |TIME A RECORD IS| 00001330: 20 41 44 44 45 44 20 54 4F 20 54 48 45 20 46 49 | ADDED TO THE FI| 00001340: 4C 45 2C 20 54 48 49 53 20 52 45 2D 50 4F 53 49 |LE, THIS RE-POSI| 00001350: 54 49 4F 4E 49 4E 47 20 54 41 4B 45 53 20 50 4C |TIONING TAKES PL| 00001360: 41 43 45 20 41 55 54 4F 4D 41 54 49 43 41 4C 4C |ACE AUTOMATICALL| 00001370: 59 2E 20 C5 CF C6 20 49 53 20 54 48 45 20 44 45 |Y. ... IS THE DE| 00001380: 46 41 55 4C 54 20 50 4F 53 49 54 49 4F 4E 20 4F |FAULT POSITION O| 00001390: 46 20 54 48 45 20 50 4F 49 4E 54 45 52 2E 20 20 |F THE POINTER. | 000013A0: C9 46 20 4E 4F 20 50 4F 53 49 54 49 4F 4E 20 48 |.F NO POSITION H| 000013B0: 41 53 20 42 45 45 4E 20 53 50 45 43 49 46 49 45 |AS BEEN SPECIFIE| 000013C0: 44 20 59 4F 55 20 57 49 4C 4C 20 41 4C 57 41 59 |D YOU WILL ALWAY| 000013D0: 53 20 46 49 4E 44 20 41 20 50 4F 49 4E 54 45 52 |S FIND A POINTER| 000013E0: 20 50 4F 49 4E 54 49 4E 47 20 54 4F 20 54 48 45 | POINTING TO THE| 000013F0: 20 45 4E 44 20 4F 46 20 49 54 53 20 46 49 4C 45 | END OF ITS FILE| 00001400: 2E 20 20 D3 41 4D 50 4C 45 20 46 4C 4F 57 43 48 |. .AMPLE FLOWCH| 00001410: 41 52 54 3A 80 2A 4C 4E 31 0D 20 20 20 20 20 31 |ART:.*LN1. 1| 00001420: 20 20 20 D3 45 54 20 50 4F 49 4E 54 45 52 20 54 | .ET POINTER T| 00001430: 4F 20 45 4E 44 20 4F 46 20 3C C6 C9 CC C5 CE C1 |O END OF <......| 00001440: CD C5 3E 0D 20 20 20 20 20 32 20 20 20 CB 45 59 |..>. 2 .EY| 00001450: 42 4F 41 52 44 20 49 4E 50 55 54 20 55 53 49 4E |BOARD INPUT USIN| 00001460: 47 20 3C C6 C9 CC C5 CE C1 CD C5 3E 20 46 49 45 |G <........> FIE| 00001470: 4C 44 53 0D 20 20 20 20 20 33 20 20 20 D7 52 49 |LDS. 3 .RI| 00001480: 54 45 20 54 4F 20 3C C6 C9 CC C5 CE C1 CD C5 3E |TE TO <........>| 00001490: 0D 20 20 20 20 20 34 20 20 20 C1 53 4B 20 55 53 |. 4 .SK US| 000014A0: 45 52 20 22 C1 C4 C4 80 A3 C1 CE CF D4 C8 C5 D2 |ER "............| 000014B0: 80 A3 D2 C5 C3 CF D2 C4 3F 22 20 3A 42 52 41 4E |........?" :BRAN| 000014C0: 43 48 20 49 46 20 59 45 53 20 54 4F 20 32 80 2A |CH IF YES TO 2.*| 000014D0: 4C 4E 31 0D CC 49 4E 45 20 31 20 54 45 4C 4C 53 |LN1..INE 1 TELLS| 000014E0: 20 55 53 20 54 48 41 54 20 57 45 20 41 52 45 20 | US THAT WE ARE | 000014F0: 47 4F 49 4E 47 20 54 4F 20 41 44 44 20 52 45 43 |GOING TO ADD REC| 00001500: 4F 52 44 53 20 43 4F 4E 54 49 4E 55 4F 55 53 4C |ORDS CONTINUOUSL| 00001510: 59 20 54 4F 20 54 48 45 20 45 4E 44 20 4F 46 20 |Y TO THE END OF | 00001520: 54 48 45 20 46 49 4C 45 2C 20 49 4D 4D 45 44 49 |THE FILE, IMMEDI| 00001530: 41 54 45 4C 59 20 41 46 54 45 52 20 54 48 45 20 |ATELY AFTER THE | 00001540: 4C 41 53 54 20 45 4E 54 52 59 2E 20 20 D4 48 45 |LAST ENTRY. .HE| 00001550: 20 45 4E 44 20 55 53 45 52 20 54 59 50 45 53 20 | END USER TYPES | 00001560: 49 4E 20 48 49 53 20 52 45 43 4F 52 44 20 28 CC |IN HIS RECORD (.| 00001570: 49 4E 45 20 32 29 20 57 48 49 43 48 20 49 53 20 |INE 2) WHICH IS | 00001580: 54 48 45 4E 20 41 44 44 45 44 20 54 4F 20 54 48 |THEN ADDED TO TH| 00001590: 45 20 45 4E 44 20 4F 46 20 54 48 45 20 46 49 4C |E END OF THE FIL| 000015A0: 45 20 28 CC 49 4E 45 20 33 29 2E 80 2A 4C 4E 31 |E (.INE 3)..*LN1| 000015B0: 0D D4 48 45 20 50 4F 49 4E 54 45 52 20 4D 4F 56 |..HE POINTER MOV| 000015C0: 45 53 20 54 4F 20 54 48 45 20 4E 45 57 20 C5 CF |ES TO THE NEW ..| 000015D0: C6 20 53 49 4E 43 45 20 49 54 20 57 41 53 20 41 |. SINCE IT WAS A| 000015E0: 55 54 4F 4D 41 54 49 43 41 4C 4C 59 20 41 44 56 |UTOMATICALLY ADV| 000015F0: 41 4E 43 45 44 20 42 59 20 54 48 45 20 46 49 4C |ANCED BY THE FIL| 00001600: 45 20 57 52 49 54 45 20 49 4E 20 CC 49 4E 45 20 |E WRITE IN .INE | 00001610: 33 2C 20 53 4F 20 CC 49 4E 45 20 34 20 4F 4E 4C |3, SO .INE 4 ONL| 00001620: 59 20 42 52 41 4E 43 48 45 53 20 42 41 43 4B 20 |Y BRANCHES BACK | 00001630: 41 53 20 46 41 52 20 41 53 20 54 48 45 20 4B 45 |AS FAR AS THE KE| 00001640: 59 42 4F 41 52 44 20 49 4E 50 55 54 2E 80 2A 4C |YBOARD INPUT..*L| 00001650: 4E 31 0D D0 D2 CF C7 D2 C1 CD 80 A3 C3 CF C4 C9 |N1..............| 00001660: CE C7 20 2D 20 CE 4F 4E 45 2E 20 20 C9 54 27 53 |.. - .ONE. .T'S| 00001670: 20 41 4C 4C 20 44 4F 4E 45 20 46 4F 52 20 59 4F | ALL DONE FOR YO| 00001680: 55 21 80 2A 4C 4E 31 0D D3 55 42 2D CF 50 54 49 |U!.*LN1..UB-.PTI| 00001690: 4F 4E 80 A3 32 20 2D 20 D3 C5 D4 80 A3 D0 CF C9 |ON..2 - ........| 000016A0: CE D4 C5 D2 80 A3 D4 CF 80 A3 D3 D4 C1 D2 D4 80 |................| 000016B0: A3 CF C6 80 A3 C6 C9 CC C5 0D D3 C1 CD D0 CC C5 |................| 000016C0: 80 A3 C6 CC CF D7 C3 C8 C1 D2 D4 80 2A 4C 4E 31 |............*LN1| 000016D0: 0D 20 20 20 20 20 31 20 20 20 D3 45 54 20 50 4F |. 1 .ET PO| 000016E0: 49 4E 54 45 52 20 54 4F 20 53 54 41 52 54 20 4F |INTER TO START O| 000016F0: 46 20 3C C6 C9 CC C5 CE C1 CD C5 3E 0D 20 20 20 |F <........>. | 00001700: 20 20 32 20 20 20 D3 45 41 52 43 48 20 3C C6 C9 | 2 .EARCH <..| 00001710: CC C5 CE C1 CD C5 3E 0D 20 20 20 20 20 33 20 20 |......>. 3 | 00001720: 20 C4 49 53 50 4C 41 59 20 44 41 54 41 20 55 53 | .ISPLAY DATA US| 00001730: 49 4E 47 20 3C C6 C9 CC C5 CE C1 CD C5 3E 20 46 |ING <........> F| 00001740: 49 45 4C 44 53 0D 20 20 20 20 20 34 20 20 20 C1 |IELDS. 4 .| 00001750: 53 4B 20 55 53 45 52 20 22 C1 CE CF D4 C8 C5 D2 |SK USER ".......| 00001760: 80 A3 D3 C5 C1 D2 C3 C8 3F 22 3A 42 52 41 4E 43 |........?":BRANC| 00001770: 48 20 49 46 20 59 45 53 20 54 4F 20 31 80 2A 4C |H IF YES TO 1.*L| 00001780: 4E 31 0D CE CF D4 C5 80 2A 4C 4E 31 0D D4 48 49 |N1......*LN1..HI| 00001790: 53 20 54 49 4D 45 2C 20 54 48 45 20 50 4F 49 4E |S TIME, THE POIN| 000017A0: 54 45 52 20 57 49 4C 4C 20 4E 4F 54 20 42 45 20 |TER WILL NOT BE | 000017B0: 4C 45 46 54 20 50 4F 49 4E 54 49 4E 47 20 50 45 |LEFT POINTING PE| 000017C0: 52 4D 41 4E 45 4E 54 4C 59 20 41 54 20 54 48 45 |RMANENTLY AT THE| 000017D0: 20 53 54 41 52 54 20 4F 46 20 54 48 45 20 46 49 | START OF THE FI| 000017E0: 4C 45 2E 20 20 CF 4E 43 45 20 53 45 54 2C 20 54 |LE. .NCE SET, T| 000017F0: 48 45 20 53 45 41 52 43 48 20 28 CC 49 4E 45 20 |HE SEARCH (.INE | 00001800: 32 29 20 57 49 4C 4C 20 41 55 54 4F 4D 41 54 49 |2) WILL AUTOMATI| 00001810: 43 41 4C 4C 59 20 4D 4F 56 45 20 54 48 45 20 50 |CALLY MOVE THE P| 00001820: 4F 49 4E 54 45 52 20 46 4F 52 57 41 52 44 20 42 |OINTER FORWARD B| 00001830: 59 20 4F 4E 45 20 52 45 43 4F 52 44 20 45 41 43 |Y ONE RECORD EAC| 00001840: 48 20 54 49 4D 45 20 54 48 45 20 43 4F 4D 50 55 |H TIME THE COMPU| 00001850: 54 45 52 20 45 58 41 4D 49 4E 45 53 20 41 20 52 |TER EXAMINES A R| 00001860: 45 43 4F 52 44 20 28 54 4F 20 53 45 45 20 49 46 |ECORD (TO SEE IF| 00001870: 20 49 54 20 49 53 20 57 48 41 54 27 53 20 42 45 | IT IS WHAT'S BE| 00001880: 49 4E 47 20 53 45 41 52 43 48 45 44 20 46 4F 52 |ING SEARCHED FOR| 00001890: 29 2E 80 2A 4C 4E 31 0D C1 20 53 45 41 52 43 48 |)..*LN1.. SEARCH| 000018A0: 20 41 4C 57 41 59 53 20 53 54 41 52 54 53 20 46 | ALWAYS STARTS F| 000018B0: 52 4F 4D 20 54 48 45 20 43 55 52 52 45 4E 54 20 |ROM THE CURRENT | 000018C0: 50 4F 49 4E 54 45 52 20 50 4F 53 49 54 49 4F 4E |POINTER POSITION| 000018D0: 20 41 4E 44 20 43 4F 4E 54 49 4E 55 45 53 20 54 | AND CONTINUES T| 000018E0: 4F 20 54 48 45 20 45 4E 44 20 4F 46 20 54 48 45 |O THE END OF THE| 000018F0: 20 46 49 4C 45 20 49 46 20 4E 4F 54 48 49 4E 47 | FILE IF NOTHING| 00001900: 20 49 53 20 46 4F 55 4E 44 20 2D 20 4C 45 41 56 | IS FOUND - LEAV| 00001910: 49 4E 47 20 54 48 45 20 50 4F 49 4E 54 45 52 20 |ING THE POINTER | 00001920: 45 49 54 48 45 52 20 41 54 20 54 48 45 20 50 4F |EITHER AT THE PO| 00001930: 53 49 54 49 4F 4E 20 46 4F 4C 4C 4F 57 49 4E 47 |SITION FOLLOWING| 00001940: 20 54 48 45 20 52 45 43 4F 52 44 20 46 4F 55 4E | THE RECORD FOUN| 00001950: 44 20 4F 52 20 28 49 46 20 4E 4F 54 48 49 4E 47 |D OR (IF NOTHING| 00001960: 20 57 41 53 20 46 4F 55 4E 44 29 20 41 54 20 54 | WAS FOUND) AT T| 00001970: 48 45 20 C5 CF C6 2E 20 20 C9 54 20 57 41 53 20 |HE .... .T WAS | 00001980: 52 45 2D 53 45 54 20 49 4E 20 CC 49 4E 45 20 31 |RE-SET IN .INE 1| 00001990: 20 54 4F 20 4D 41 4B 45 20 53 55 52 45 20 54 48 | TO MAKE SURE TH| 000019A0: 41 54 20 54 48 45 20 45 4E 54 49 52 45 20 46 49 |AT THE ENTIRE FI| 000019B0: 4C 45 20 57 41 53 20 53 45 41 52 43 48 45 44 20 |LE WAS SEARCHED | 000019C0: 52 49 47 48 54 20 46 52 4F 4D 20 54 48 45 20 42 |RIGHT FROM THE B| 000019D0: 45 47 49 4E 4E 49 4E 47 2E 80 2A 4C 4E 31 0D D0 |EGINNING..*LN1..| 000019E0: 52 4F 47 52 41 4D 20 43 4F 44 49 4E 47 80 2A 4C |ROGRAM CODING.*L| 000019F0: 4E 31 0D CE 4F 4E 45 2E 20 C9 54 27 53 20 41 4C |N1..ONE. .T'S AL| 00001A00: 4C 20 44 4F 4E 45 20 46 4F 52 20 59 4F 55 2E 80 |L DONE FOR YOU..| 00001A10: 2A 4C 4E 31 0D D3 55 42 2D 4F 50 54 49 4F 4E 20 |*LN1..UB-OPTION | 00001A20: 33 20 2D 20 D3 45 54 20 50 4F 49 4E 54 45 52 20 |3 - .ET POINTER | 00001A30: 54 4F 20 50 52 45 56 49 4F 55 53 20 52 45 43 4F |TO PREVIOUS RECO| 00001A40: 52 44 80 2A 4C 4E 33 0D D0 55 52 50 4F 53 45 80 |RD.*LN3..URPOSE.| 00001A50: 2A 4C 4E 31 0D D4 4F 20 4D 4F 56 45 20 54 48 45 |*LN1..O MOVE THE| 00001A60: 20 50 4F 49 4E 54 45 52 20 42 41 43 4B 20 42 59 | POINTER BACK BY| 00001A70: 20 4F 4E 45 20 52 45 43 4F 52 44 2E 80 2A 4C 4E | ONE RECORD..*LN| 00001A80: 31 0D D3 41 4D 50 4C 45 20 46 4C 4F 57 43 48 41 |1..AMPLE FLOWCHA| 00001A90: 52 54 80 2A 4C 4E 31 0D 20 20 20 20 20 31 20 20 |RT.*LN1. 1 | 00001AA0: 20 D3 45 54 20 50 4F 49 4E 54 45 52 20 54 4F 20 | .ET POINTER TO | 00001AB0: 53 54 41 52 54 20 4F 46 20 3C C6 C9 CC C5 80 A3 |START OF <......| 00001AC0: CE C1 CD C5 3E 0D 20 20 20 20 20 32 20 20 20 D3 |....>. 2 .| 00001AD0: 45 41 52 43 48 20 3C C6 C9 CC C5 80 A3 CE C1 CD |EARCH <.........| 00001AE0: C5 3E 0D 20 20 20 20 20 33 20 20 20 C4 49 53 50 |.>. 3 .ISP| 00001AF0: 4C 41 59 20 41 20 52 45 43 4F 52 44 20 46 4F 52 |LAY A RECORD FOR| 00001B00: 20 43 48 45 43 4B 49 4E 47 20 46 52 4F 4D 20 3C | CHECKING FROM <| 00001B10: C6 C9 CC C5 80 A3 CE C1 CD C5 3E 0D 20 20 20 20 |..........>. | 00001B20: 20 34 20 20 20 D3 45 54 20 50 4F 49 4E 54 45 52 | 4 .ET POINTER| 00001B30: 20 54 4F 20 50 52 45 56 49 4F 55 53 20 52 45 43 | TO PREVIOUS REC| 00001B40: 4F 52 44 20 57 49 54 48 49 4E 20 3C C6 C9 CC C5 |ORD WITHIN <....| 00001B50: 80 A3 CE C1 CD C5 3E 0D 20 20 20 20 20 35 20 20 |......>. 5 | 00001B60: 20 D7 52 49 54 45 20 54 4F 20 3C C6 C9 CC C5 80 | .RITE TO <.....| 00001B70: A3 CE C1 CD C5 3E 0D 20 20 20 20 20 36 20 20 20 |.....>. 6 | 00001B80: C1 53 4B 20 55 53 45 52 20 22 D5 D0 C4 C1 D4 C5 |.SK USER "......| 00001B90: 80 A3 C1 CE CF D4 C8 C5 D2 80 A3 CF CE C5 3F 22 |..............?"| 00001BA0: 3A 20 42 52 41 4E 43 48 20 49 46 20 59 45 53 20 |: BRANCH IF YES | 00001BB0: 54 4F 20 31 80 2A 4C 4E 31 0D D4 48 45 20 50 4F |TO 1.*LN1..HE PO| 00001BC0: 49 4E 54 45 52 20 49 53 20 53 45 54 20 54 4F 20 |INTER IS SET TO | 00001BD0: 54 48 45 20 53 54 41 52 54 20 4F 46 20 54 48 45 |THE START OF THE| 00001BE0: 20 46 49 4C 45 20 28 CC 49 4E 45 20 31 29 20 41 | FILE (.INE 1) A| 00001BF0: 4E 44 20 54 48 45 20 53 45 41 52 43 48 20 52 45 |ND THE SEARCH RE| 00001C00: 41 44 53 20 54 48 45 20 46 49 52 53 54 20 56 41 |ADS THE FIRST VA| 00001C10: 4C 49 44 20 52 45 43 4F 52 44 20 45 4E 43 4F 55 |LID RECORD ENCOU| 00001C20: 4E 54 45 52 45 44 20 49 4E 54 4F 20 54 48 45 20 |NTERED INTO THE | 00001C30: 43 4F 4D 50 55 54 45 52 27 53 20 4D 45 4D 4F 52 |COMPUTER'S MEMOR| 00001C40: 59 20 28 CC 49 4E 45 20 32 29 2E 20 20 D4 48 45 |Y (.INE 2). .HE| 00001C50: 20 50 4F 49 4E 54 45 52 20 57 49 4C 4C 20 41 55 | POINTER WILL AU| 00001C60: 54 4F 4D 41 54 49 43 41 4C 4C 59 20 4D 4F 56 45 |TOMATICALLY MOVE| 00001C70: 20 4F 4E 20 54 4F 20 50 4F 49 4E 54 20 41 54 20 | ON TO POINT AT | 00001C80: 54 48 45 20 4E 45 58 54 20 52 45 43 4F 52 44 2E |THE NEXT RECORD.| 00001C90: 80 2A 4C 4E 31 0D CC 49 4E 45 20 33 20 28 41 20 |.*LN1..INE 3 (A | 00001CA0: 52 45 43 4F 52 44 20 43 48 45 43 4B 29 20 41 4C |RECORD CHECK) AL| 00001CB0: 4C 4F 57 53 20 54 48 45 20 55 53 45 52 20 54 4F |LOWS THE USER TO| 00001CC0: 20 41 4D 45 4E 44 20 44 45 54 41 49 4C 53 20 4F | AMEND DETAILS O| 00001CD0: 46 20 54 48 45 20 52 45 43 4F 52 44 20 4F 4E 43 |F THE RECORD ONC| 00001CE0: 45 20 49 54 20 48 41 53 20 42 45 45 4E 20 4D 4F |E IT HAS BEEN MO| 00001CF0: 56 45 44 20 46 52 4F 4D 20 54 48 45 20 44 49 53 |VED FROM THE DIS| 00001D00: 4B 20 54 4F 20 D2 C1 CD 20 28 4D 45 4D 4F 52 59 |K TO ... (MEMORY| 00001D10: 29 2E 80 2A 4C 4E 31 0D CC 49 4E 45 20 34 20 4E |)..*LN1..INE 4 N| 00001D20: 4F 57 20 42 41 43 4B 53 54 45 50 53 20 54 48 45 |OW BACKSTEPS THE| 00001D30: 20 50 4F 49 4E 54 45 52 20 42 59 20 4F 4E 45 20 | POINTER BY ONE | 00001D40: 52 45 43 4F 52 44 20 53 4F 20 54 48 41 54 20 49 |RECORD SO THAT I| 00001D50: 54 20 49 53 20 41 47 41 49 4E 20 50 4F 49 4E 54 |T IS AGAIN POINT| 00001D60: 49 4E 47 20 41 54 20 54 48 45 20 50 4F 53 49 54 |ING AT THE POSIT| 00001D70: 49 4F 4E 20 4F 46 20 54 48 45 20 52 45 43 4F 52 |ION OF THE RECOR| 00001D80: 44 20 57 48 49 43 48 20 48 41 53 20 4A 55 53 54 |D WHICH HAS JUST| 00001D90: 20 42 45 45 4E 20 52 45 41 44 20 41 4E 44 20 55 | BEEN READ AND U| 00001DA0: 50 44 41 54 45 44 2E 80 2A 4C 4E 31 0D CC 49 4E |PDATED..*LN1..IN| 00001DB0: 45 20 35 20 57 52 49 54 45 53 20 54 48 45 20 4E |E 5 WRITES THE N| 00001DC0: 45 57 20 56 45 52 53 49 4F 4E 20 4F 46 20 54 48 |EW VERSION OF TH| 00001DD0: 45 20 52 45 43 4F 52 44 20 42 41 43 4B 20 49 4E |E RECORD BACK IN| 00001DE0: 54 4F 20 49 54 53 20 4F 52 49 47 49 4E 41 4C 20 |TO ITS ORIGINAL | 00001DF0: 50 4C 41 43 45 20 49 4E 20 54 48 45 20 46 49 4C |PLACE IN THE FIL| 00001E00: 45 2E 20 20 D4 48 45 20 50 4F 49 4E 54 45 52 20 |E. .HE POINTER | 00001E10: 41 47 41 49 4E 20 4D 4F 56 45 53 20 46 4F 52 57 |AGAIN MOVES FORW| 00001E20: 41 52 44 20 42 59 20 4F 4E 45 20 50 4C 41 43 45 |ARD BY ONE PLACE| 00001E30: 20 41 54 20 54 48 45 20 4E 45 58 54 20 52 45 43 | AT THE NEXT REC| 00001E40: 4F 52 44 2E 80 2A 4C 4E 31 0D D0 52 4F 47 52 41 |ORD..*LN1..ROGRA| 00001E50: 4D 20 43 4F 44 49 4E 47 80 2A 4C 4E 31 0D CE 4F |M CODING.*LN1..O| 00001E60: 4E 45 2E 80 2A 4C 4E 31 0D D3 55 42 2D 4F 50 54 |NE..*LN1..UB-OPT| 00001E70: 49 4F 4E 20 34 20 2D 20 D3 45 54 20 50 4F 49 4E |ION 4 - .ET POIN| 00001E80: 54 45 52 20 54 4F 20 41 20 46 49 45 4C 44 20 56 |TER TO A FIELD V| 00001E90: 41 4C 55 45 80 2A 4C 4E 31 0D 41 4E 44 80 2A 4C |ALUE.*LN1.AND.*L| 00001EA0: 4E 31 0D D3 55 42 2D 4F 50 54 49 4F 4E 20 35 20 |N1..UB-OPTION 5 | 00001EB0: 2D 20 D3 45 54 20 41 20 46 49 45 4C 44 20 54 4F |- .ET A FIELD TO| 00001EC0: 20 41 20 50 4F 49 4E 54 45 52 20 56 41 4C 55 45 | A POINTER VALUE| 00001ED0: 80 2A 4C 4E 31 0D D0 55 52 50 4F 53 45 80 2A 4C |.*LN1..URPOSE.*L| 00001EE0: 4E 31 0D D4 48 45 53 45 20 54 57 4F 20 4F 50 54 |N1..HESE TWO OPT| 00001EF0: 49 4F 4E 53 20 41 52 45 20 55 53 55 41 4C 4C 59 |IONS ARE USUALLY| 00001F00: 20 55 53 45 44 20 49 4E 20 43 4F 4E 4A 55 4E 43 | USED IN CONJUNC| 00001F10: 54 49 4F 4E 20 57 49 54 48 20 45 41 43 48 20 4F |TION WITH EACH O| 00001F20: 54 48 45 52 2E 20 20 D4 48 45 20 4F 42 4A 45 43 |THER. .HE OBJEC| 00001F30: 54 20 49 53 20 54 4F 20 42 45 20 41 42 4C 45 20 |T IS TO BE ABLE | 00001F40: 54 4F 20 50 4F 49 4E 54 20 44 49 52 45 43 54 4C |TO POINT DIRECTL| 00001F50: 59 20 54 4F 20 41 4E 59 20 52 45 43 4F 52 44 2C |Y TO ANY RECORD,| 00001F60: 20 53 49 4D 50 4C 59 20 42 59 20 46 49 4E 44 49 | SIMPLY BY FINDI| 00001F70: 4E 47 20 54 48 45 20 52 45 43 4F 52 44 20 4E 55 |NG THE RECORD NU| 00001F80: 4D 42 45 52 20 57 48 49 43 48 20 48 41 53 20 42 |MBER WHICH HAS B| 00001F90: 45 45 4E 20 53 54 4F 52 45 44 20 49 4E 20 41 20 |EEN STORED IN A | 00001FA0: 46 49 45 4C 44 20 53 50 45 43 49 46 49 45 44 20 |FIELD SPECIFIED | 00001FB0: 45 41 52 4C 49 45 52 20 49 4E 20 54 48 45 20 50 |EARLIER IN THE P| 00001FC0: 52 4F 47 52 41 4D 2E 80 2A 4C 4E 31 0D D3 41 4D |ROGRAM..*LN1..AM| 00001FD0: 50 4C 45 20 46 4C 4F 57 43 48 41 52 54 80 2A 4C |PLE FLOWCHART.*L| 00001FE0: 4E 31 0D 20 20 20 20 20 31 20 20 20 D3 45 54 20 |N1. 1 .ET | 00001FF0: 50 4F 49 4E 54 45 52 20 54 4F 20 45 4E 44 20 4F |POINTER TO END O| 00002000: 46 20 3C CD C1 C9 CE C6 C9 CC C5 3E 0D 20 20 20 |F <........>. | 00002010: 20 20 32 20 20 20 D3 45 54 20 50 4F 49 4E 54 45 | 2 .ET POINTE| 00002020: 52 20 54 4F 20 45 4E 44 20 4F 46 20 3C C9 CE C4 |R TO END OF <...| 00002030: C5 D8 C6 C9 CC C5 3E 0D 20 20 20 20 20 33 20 20 |......>. 3 | 00002040: 20 CB 45 59 42 4F 41 52 44 20 49 4E 50 55 54 20 | .EYBOARD INPUT | 00002050: 55 53 49 4E 47 20 3C CD C1 C9 CE C6 C9 CC C5 3E |USING <........>| 00002060: 2C 20 3C C9 CE C4 C5 D8 C6 C9 CC C5 3E 20 46 49 |, <.........> FI| 00002070: 45 4C 44 53 0D 20 20 20 20 20 34 20 20 20 D3 45 |ELDS. 4 .E| 00002080: 54 20 46 49 45 4C 44 20 49 4E 20 3C C9 CE C4 C5 |T FIELD IN <....| 00002090: D8 C6 C9 CC C5 3E 20 54 4F 20 54 48 45 20 50 4F |.....> TO THE PO| 000020A0: 49 4E 54 45 52 20 4F 46 20 3C CD C1 C9 CE C6 C9 |INTER OF <......| 000020B0: CC C5 3E 0D 20 20 20 20 20 35 20 20 20 D7 52 49 |..>. 5 .RI| 000020C0: 54 45 20 54 4F 20 3C CD C1 C9 CE C6 C9 CC C5 3E |TE TO <........>| 000020D0: 2C 20 3C C9 CE C4 C5 D8 C6 C9 CC C5 3E 0D 20 20 |, <.........>. | 000020E0: 20 20 20 36 20 20 20 C1 53 4B 20 55 53 45 52 20 | 6 .SK USER | 000020F0: 22 C1 C7 C1 C9 CE 3F 22 3A 20 42 52 41 4E 43 48 |".....?": BRANCH| 00002100: 20 49 46 20 59 45 53 20 54 4F 20 33 0D 20 20 20 | IF YES TO 3. | 00002110: 20 20 37 20 20 20 D3 45 54 20 50 4F 49 4E 54 45 | 7 .ET POINTE| 00002120: 52 20 54 4F 20 53 54 41 52 54 20 4F 46 20 3C C9 |R TO START OF <.| 00002130: CE C4 C5 D8 C6 C9 CC C5 3E 0D 20 20 20 20 20 38 |........>. 8| 00002140: 20 20 20 D3 45 41 52 43 48 20 3C C9 CE C4 C5 D8 | .EARCH <.....| 00002150: C6 C9 CC C5 3E 0D 20 20 20 20 20 39 20 20 20 D3 |....>. 9 .| 00002160: 45 54 20 50 4F 49 4E 54 45 52 20 4F 46 20 3C CD |ET POINTER OF <.| 00002170: C1 C9 CE C6 C9 CC C5 3E 20 46 52 4F 4D 20 41 20 |.......> FROM A | 00002180: 46 49 45 4C 44 20 49 4E 20 3C C9 CE C4 C5 D8 C6 |FIELD IN <......| 00002190: C9 CC C5 3E 0D 20 20 20 20 20 31 30 20 20 D2 45 |...>. 10 .E| 000021A0: 41 44 20 3C CD C1 C9 CE C6 C9 CC C5 3E 0D 20 20 |AD <........>. | 000021B0: 20 20 20 31 31 20 20 C4 49 53 50 4C 41 59 20 44 | 11 .ISPLAY D| 000021C0: 41 54 41 20 55 53 49 4E 47 20 3C CD C1 C9 CE C6 |ATA USING <.....| 000021D0: C9 CC C5 3E 20 46 49 45 4C 44 53 0D 20 20 20 20 |...> FIELDS. | 000021E0: 20 31 32 20 20 C1 53 4B 20 55 53 45 52 20 22 C1 | 12 .SK USER ".| 000021F0: CE CF D4 C8 C5 D2 80 A3 D3 C5 C1 D2 C3 C8 3F 22 |..............?"| 00002200: 3A 20 42 52 41 4E 43 48 20 49 46 20 59 45 53 20 |: BRANCH IF YES | 00002210: 54 4F 20 37 80 2A 4C 4E 31 0D D4 48 49 53 20 46 |TO 7.*LN1..HIS F| 00002220: 4C 4F 57 43 48 41 52 54 20 43 4F 4E 53 49 53 54 |LOWCHART CONSIST| 00002230: 53 20 4F 46 20 54 57 4F 20 50 41 52 54 53 2C 20 |S OF TWO PARTS, | 00002240: CC 49 4E 45 53 20 31 2D 36 20 46 4F 52 4D 20 54 |.INES 1-6 FORM T| 00002250: 48 45 20 49 4E 50 55 54 20 53 45 43 54 49 4F 4E |HE INPUT SECTION| 00002260: 20 49 4E 20 57 48 49 43 48 20 54 48 45 20 45 4E | IN WHICH THE EN| 00002270: 44 2D 55 53 45 52 20 57 52 49 54 45 53 20 48 49 |D-USER WRITES HI| 00002280: 53 20 44 41 54 41 20 54 4F 20 54 57 4F 20 46 49 |S DATA TO TWO FI| 00002290: 4C 45 53 2E 20 20 D4 48 45 20 49 4D 50 4F 52 54 |LES. .HE IMPORT| 000022A0: 41 4E 54 20 50 4F 49 4E 54 20 48 45 52 45 20 49 |ANT POINT HERE I| 000022B0: 53 20 54 48 41 54 20 54 48 45 20 52 45 43 4F 52 |S THAT THE RECOR| 000022C0: 44 20 44 45 53 54 49 4E 45 44 20 46 4F 52 20 3C |D DESTINED FOR <| 000022D0: CD C1 C9 CE C6 C9 CC C5 3E 20 49 53 20 41 20 46 |........> IS A F| 000022E0: 55 4C 4C 20 41 4E 44 20 43 4F 4D 50 4C 45 54 45 |ULL AND COMPLETE| 000022F0: 20 52 45 43 4F 52 44 2C 20 57 48 49 4C 45 20 54 | RECORD, WHILE T| 00002300: 48 45 20 44 41 54 41 20 47 4F 49 4E 47 20 54 4F |HE DATA GOING TO| 00002310: 20 3C C9 CE C4 C5 D8 C6 C9 CC C5 3E 20 49 53 20 | <.........> IS | 00002320: 4F 4E 4C 59 20 54 48 45 20 42 41 52 45 20 4D 49 |ONLY THE BARE MI| 00002330: 4E 49 4D 55 4D 20 4E 45 45 44 45 44 20 46 4F 52 |NIMUM NEEDED FOR| 00002340: 20 41 20 53 45 41 52 43 48 20 2D 20 50 45 52 48 | A SEARCH - PERH| 00002350: 41 50 53 20 4E 4F 20 4D 4F 52 45 20 54 48 41 4E |APS NO MORE THAN| 00002360: 20 41 20 53 49 4E 47 4C 45 20 46 49 45 4C 44 2C | A SINGLE FIELD,| 00002370: 20 53 55 43 48 20 41 53 20 41 20 4E 41 4D 45 2E | SUCH AS A NAME.| 00002380: 80 2A 4C 4E 31 0D C2 55 54 2C 20 41 4E 44 20 48 |.*LN1..UT, AND H| 00002390: 45 52 45 20 43 4F 4D 45 53 20 54 48 45 20 43 4C |ERE COMES THE CL| 000023A0: 45 56 45 52 20 50 41 52 54 2C 20 54 48 45 20 46 |EVER PART, THE F| 000023B0: 49 4C 45 20 3C C9 CE C4 C5 D8 C6 C9 CC C5 3E 20 |ILE <.........> | 000023C0: 48 41 53 20 41 54 20 4C 45 41 53 54 20 4F 4E 45 |HAS AT LEAST ONE| 000023D0: 20 41 44 44 49 54 49 4F 4E 41 4C 20 46 49 45 4C | ADDITIONAL FIEL| 000023E0: 44 2C 20 41 20 46 49 56 45 20 44 49 47 49 54 20 |D, A FIVE DIGIT | 000023F0: 28 4F 52 20 4D 4F 52 45 29 20 4E 55 4D 45 52 49 |(OR MORE) NUMERI| 00002400: 43 20 46 49 45 4C 44 20 49 4E 54 4F 20 57 48 49 |C FIELD INTO WHI| 00002410: 43 48 20 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 |CH THE NUMBER OF| 00002420: 20 54 48 45 20 43 55 52 52 45 4E 54 20 52 45 43 | THE CURRENT REC| 00002430: 4F 52 44 20 49 4E 20 3C CD C1 C9 CE C6 C9 CC C5 |ORD IN <........| 00002440: 3E 20 49 53 20 57 52 49 54 54 45 4E 20 42 59 20 |> IS WRITTEN BY | 00002450: 46 4C 4F 57 43 48 41 52 54 20 CC 49 4E 45 20 34 |FLOWCHART .INE 4| 00002460: 2E 80 2A 4C 4E 31 0D D7 48 45 4E 20 57 45 20 43 |..*LN1..HEN WE C| 00002470: 4F 4D 45 20 54 4F 20 54 48 45 20 53 45 43 4F 4E |OME TO THE SECON| 00002480: 44 20 50 41 52 54 20 4F 46 20 54 48 45 20 50 52 |D PART OF THE PR| 00002490: 4F 47 52 41 4D 2C 20 54 48 45 20 53 45 41 52 43 |OGRAM, THE SEARC| 000024A0: 48 2C 20 49 4E 53 54 45 41 44 20 4F 46 20 48 41 |H, INSTEAD OF HA| 000024B0: 56 49 4E 47 20 54 4F 20 50 4C 4F 55 47 48 20 54 |VING TO PLOUGH T| 000024C0: 48 52 4F 55 47 48 20 57 48 41 54 20 4D 49 47 48 |HROUGH WHAT MIGH| 000024D0: 54 20 42 45 20 41 20 56 45 52 59 20 4C 41 52 47 |T BE A VERY LARG| 000024E0: 45 2C 20 4C 4F 4E 47 20 41 4E 44 20 43 4F 4D 50 |E, LONG AND COMP| 000024F0: 4C 45 58 20 46 49 4C 45 20 28 3C CD C1 C9 CE C6 |LEX FILE (<.....| 00002500: C9 CC C5 3E 29 2C 20 57 45 20 43 41 4E 20 43 55 |...>), WE CAN CU| 00002510: 54 20 54 48 45 20 53 45 41 52 43 48 20 54 49 4D |T THE SEARCH TIM| 00002520: 45 20 44 52 41 4D 41 54 49 43 41 4C 4C 59 20 42 |E DRAMATICALLY B| 00002530: 59 20 4C 49 4D 49 54 49 4E 47 20 49 54 20 54 4F |Y LIMITING IT TO| 00002540: 20 54 48 45 20 53 49 4D 50 4C 45 2C 20 53 48 4F | THE SIMPLE, SHO| 00002550: 52 54 20 54 57 4F 2D 46 49 45 4C 44 20 46 49 4C |RT TWO-FIELD FIL| 00002560: 45 20 3C C9 CE C4 C5 D8 C6 C9 CC C5 3E 2E 20 20 |E <.........>. | 00002570: C1 53 20 53 4F 4F 4E 20 41 53 20 54 48 45 20 4E |.S SOON AS THE N| 00002580: 41 4D 45 20 4F 46 20 49 4E 54 45 52 45 53 54 20 |AME OF INTEREST | 00002590: 48 41 53 20 42 45 45 4E 20 46 4F 55 4E 44 20 48 |HAS BEEN FOUND H| 000025A0: 45 52 45 2C 20 54 48 45 20 50 4F 49 4E 54 45 52 |ERE, THE POINTER| 000025B0: 20 54 4F 20 3C CD C1 C9 CE C6 C9 CC C5 3E 20 49 | TO <........> I| 000025C0: 53 20 52 45 2D 53 45 54 20 42 59 20 52 45 41 44 |S RE-SET BY READ| 000025D0: 49 4E 47 20 54 48 45 20 52 45 4C 45 56 41 4E 54 |ING THE RELEVANT| 000025E0: 20 4E 55 4D 42 45 52 20 46 52 4F 4D 20 54 48 45 | NUMBER FROM THE| 000025F0: 20 4E 55 4D 45 52 49 43 20 46 49 45 4C 44 20 49 | NUMERIC FIELD I| 00002600: 4E 20 3C C9 CE C4 C5 D8 C6 C9 CC C5 3E 20 28 41 |N <.........> (A| 00002610: 53 20 53 48 4F 57 4E 20 49 4E 20 CC 49 4E 45 20 |S SHOWN IN .INE | 00002620: 39 29 2E 80 2A 4C 4E 31 0D CE 4F 54 45 2C 20 49 |9)..*LN1..OTE, I| 00002630: 4E 43 49 44 45 4E 54 41 4C 4C 59 2C 20 54 48 41 |NCIDENTALLY, THA| 00002640: 54 20 57 45 20 44 49 44 20 4E 4F 54 20 55 53 45 |T WE DID NOT USE| 00002650: 20 41 20 D2 C5 C1 C4 C6 C9 CC C5 20 41 52 4F 55 | A ........ AROU| 00002660: 4E 44 20 CC 49 4E 45 53 20 37 20 41 4E 44 20 38 |ND .INES 7 AND 8| 00002670: 2E 20 20 D4 48 45 20 53 45 41 52 43 48 20 50 52 |. .HE SEARCH PR| 00002680: 4F 43 45 53 53 20 41 55 54 4F 4D 41 54 49 43 41 |OCESS AUTOMATICA| 00002690: 4C 4C 59 20 52 45 41 44 53 20 41 20 52 45 43 4F |LLY READS A RECO| 000026A0: 52 44 20 49 4E 54 4F 20 4D 45 4D 4F 52 59 20 53 |RD INTO MEMORY S| 000026B0: 4F 20 54 48 41 54 20 49 54 20 43 41 4E 20 4C 4F |O THAT IT CAN LO| 000026C0: 4F 4B 20 41 54 20 49 54 20 54 4F 20 53 45 45 20 |OK AT IT TO SEE | 000026D0: 49 46 20 49 54 20 49 53 20 57 48 41 54 27 53 20 |IF IT IS WHAT'S | 000026E0: 42 45 49 4E 47 20 53 45 41 52 43 48 45 44 20 46 |BEING SEARCHED F| 000026F0: 4F 52 2E 20 20 D4 48 45 20 4C 41 53 54 20 52 45 |OR. .HE LAST RE| 00002700: 43 4F 52 44 20 4C 4F 4F 4B 45 44 20 41 54 20 28 |CORD LOOKED AT (| 00002710: 54 48 45 20 4F 4E 45 20 59 4F 55 20 57 41 4E 54 |THE ONE YOU WANT| 00002720: 45 44 29 20 57 49 4C 4C 20 42 45 20 4C 45 46 54 |ED) WILL BE LEFT| 00002730: 20 49 4E 20 4D 45 4D 4F 52 59 80 2A 4C 4E 31 0D | IN MEMORY.*LN1.| 00002740: C6 CC CF D7 C3 C8 C1 D2 D4 C9 CE C7 20 2D 20 D3 |............ - .| 00002750: 45 4C 45 43 54 20 C6 C3 CD 20 4F 50 54 49 4F 4E |ELECT ... OPTION| 00002760: 20 20 31 32 20 41 4E 44 20 43 48 4F 4F 53 45 20 | 12 AND CHOOSE | 00002770: 54 48 45 20 4F 50 54 49 4F 4E 20 52 45 51 55 49 |THE OPTION REQUI| 00002780: 52 45 44 2E 20 20 C9 4E 20 42 4F 54 48 20 43 41 |RED. .N BOTH CA| 00002790: 53 45 53 20 59 4F 55 20 57 49 4C 4C 20 49 4D 4D |SES YOU WILL IMM| 000027A0: 45 44 49 41 54 45 4C 59 20 42 45 20 41 53 4B 45 |EDIATELY BE ASKE| 000027B0: 44 20 46 4F 52 20 54 48 45 20 4E 41 4D 45 53 20 |D FOR THE NAMES | 000027C0: 4F 46 20 54 48 45 20 46 49 4C 45 53 20 54 4F 20 |OF THE FILES TO | 000027D0: 42 45 20 55 53 45 44 20 54 4F 20 53 55 50 50 4C |BE USED TO SUPPL| 000027E0: 59 20 54 48 45 20 50 4F 49 4E 54 45 52 20 56 41 |Y THE POINTER VA| 000027F0: 4C 55 45 20 41 4E 44 20 54 4F 20 48 4F 4C 44 20 |LUE AND TO HOLD | 00002800: 49 54 2E 80 2A 4C 4E 31 0D D0 D2 CF C7 D2 C1 CD |IT..*LN1........| 00002810: 80 A3 C3 CF C4 C9 CE C7 20 2D 20 C9 4E 20 42 4F |........ - .N BO| 00002820: 54 48 20 43 41 53 45 53 2C 20 54 48 45 20 46 49 |TH CASES, THE FI| 00002830: 4C 45 20 48 41 53 20 41 4C 52 45 41 44 59 20 42 |LE HAS ALREADY B| 00002840: 45 45 4E 20 53 45 4C 45 43 54 45 44 20 44 55 52 |EEN SELECTED DUR| 00002850: 49 4E 47 20 46 4C 4F 57 43 48 41 52 54 49 4E 47 |ING FLOWCHARTING| 00002860: 2C 20 49 54 20 4F 4E 4C 59 20 52 45 4D 41 49 4E |, IT ONLY REMAIN| 00002870: 53 20 54 4F 20 44 45 46 49 4E 45 20 54 48 45 20 |S TO DEFINE THE | 00002880: 46 49 45 4C 44 20 49 4E 20 57 48 49 43 48 20 54 |FIELD IN WHICH T| 00002890: 48 45 20 50 4F 49 4E 54 45 52 20 56 41 4C 55 45 |HE POINTER VALUE| 000028A0: 20 49 53 20 54 4F 20 42 45 20 53 54 4F 52 45 44 | IS TO BE STORED| 000028B0: 2E 20 20 D3 48 4F 55 4C 44 20 59 4F 55 52 20 43 |. .HOULD YOUR C| 000028C0: 48 4F 53 45 4E 20 49 4E 44 45 58 20 46 49 4C 45 |HOSEN INDEX FILE| 000028D0: 20 4E 4F 54 20 48 41 56 45 20 41 20 53 55 49 54 | NOT HAVE A SUIT| 000028E0: 41 42 4C 45 20 4E 55 4D 45 52 49 43 20 46 49 45 |ABLE NUMERIC FIE| 000028F0: 4C 44 2C 20 59 4F 55 20 57 49 4C 4C 20 4E 4F 54 |LD, YOU WILL NOT| 00002900: 20 42 45 20 41 42 4C 45 20 54 4F 20 53 45 4C 45 | BE ABLE TO SELE| 00002910: 43 54 20 49 54 20 46 52 4F 4D 20 54 48 45 20 46 |CT IT FROM THE F| 00002920: 49 45 4C 44 20 4C 49 53 54 20 2D 20 C2 45 43 41 |IELD LIST - .ECA| 00002930: 55 53 45 20 49 54 20 57 4F 4E 27 54 20 42 45 20 |USE IT WON'T BE | 00002940: 54 48 45 52 45 21 20 20 D9 4F 55 20 57 49 4C 4C |THERE! .OU WILL| 00002950: 20 42 45 20 54 4F 4C 44 20 CE CF 80 A3 CE D5 CD | BE TOLD .......| 00002960: C5 D2 C9 C3 80 A3 C6 C9 C5 CC C4 D3 20 2D 20 CC |............ - .| 00002970: C9 CE C5 80 A3 C1 C2 CF D2 D4 C5 C4 2E 80 2A 4C |..............*L| 00002980: 4E 31 0D CF 54 48 45 52 57 49 53 45 20 41 20 4C |N1..THERWISE A L| 00002990: 49 53 54 20 4F 46 20 41 4C 4C 20 53 55 49 54 41 |IST OF ALL SUITA| 000029A0: 42 4C 45 20 46 49 45 4C 44 53 20 57 49 4C 4C 20 |BLE FIELDS WILL | 000029B0: 42 45 20 44 49 53 50 4C 41 59 45 44 20 28 57 49 |BE DISPLAYED (WI| 000029C0: 54 48 20 53 43 52 4F 4C 4C 49 4E 47 20 46 41 43 |TH SCROLLING FAC| 000029D0: 49 4C 49 54 49 45 53 20 49 46 20 54 48 45 59 20 |ILITIES IF THEY | 000029E0: 41 52 45 20 4E 45 45 44 45 44 29 20 41 4E 44 20 |ARE NEEDED) AND | 000029F0: 59 4F 55 20 4D 55 53 54 20 53 45 4C 45 43 54 20 |YOU MUST SELECT | 00002A00: 41 20 28 35 20 44 49 47 49 54 29 20 4E 55 4D 45 |A (5 DIGIT) NUME| 00002A10: 52 49 43 20 46 49 45 4C 44 20 54 4F 20 48 4F 4C |RIC FIELD TO HOL| 00002A20: 44 20 28 4F 52 20 53 55 50 50 4C 59 29 20 54 48 |D (OR SUPPLY) TH| 00002A30: 45 20 50 4F 49 4E 54 45 52 20 56 41 4C 55 45 2E |E POINTER VALUE.| 00002A40: 80 2A 4C 4E 31 0D CE CF D4 C5 D3 3A 20 D4 48 45 |.*LN1......: .HE| 00002A50: 20 50 4F 49 4E 54 45 52 20 56 41 4C 55 45 20 49 | POINTER VALUE I| 00002A60: 53 20 41 20 46 49 56 45 20 44 49 47 49 54 20 4E |S A FIVE DIGIT N| 00002A70: 55 4D 42 45 52 20 41 4E 44 20 54 48 49 53 20 4D |UMBER AND THIS M| 00002A80: 45 41 4E 53 20 54 48 41 54 20 41 20 4E 55 4D 45 |EANS THAT A NUME| 00002A90: 52 49 43 20 46 49 45 4C 44 20 43 41 50 41 42 4C |RIC FIELD CAPABL| 00002AA0: 45 20 4F 46 20 48 4F 4C 44 49 4E 47 20 41 20 46 |E OF HOLDING A F| 00002AB0: 49 56 45 20 44 49 47 49 54 20 4E 55 4D 42 45 52 |IVE DIGIT NUMBER| 00002AC0: 20 4D 55 53 54 20 42 45 20 41 56 41 49 4C 41 42 | MUST BE AVAILAB| 00002AD0: 4C 45 20 42 45 46 4F 52 45 20 59 4F 55 20 54 52 |LE BEFORE YOU TR| 00002AE0: 59 20 54 48 49 53 20 54 52 49 43 4B 2E 20 20 D4 |Y THIS TRICK. .| 00002AF0: 48 45 20 50 4F 49 4E 54 45 52 20 56 41 4C 55 45 |HE POINTER VALUE| 00002B00: 20 41 54 20 41 4E 59 20 54 49 4D 45 20 49 53 20 | AT ANY TIME IS | 00002B10: 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 20 54 48 |THE NUMBER OF TH| 00002B20: 45 20 4E 45 58 54 20 52 45 43 4F 52 44 20 54 4F |E NEXT RECORD TO| 00002B30: 20 42 45 20 4C 4F 4F 4B 45 44 20 41 54 20 28 4F | BE LOOKED AT (O| 00002B40: 52 20 57 52 49 54 54 45 4E 20 54 4F 29 20 49 4E |R WRITTEN TO) IN| 00002B50: 20 54 48 45 20 46 49 4C 45 20 41 4E 44 20 49 54 | THE FILE AND IT| 00002B60: 20 49 53 20 49 4E 43 52 45 4D 45 4E 54 45 44 20 | IS INCREMENTED | 00002B70: 49 4D 4D 45 44 49 41 54 45 4C 59 20 41 20 44 49 |IMMEDIATELY A DI| 00002B80: 53 4B 20 52 45 41 44 20 4F 52 20 57 52 49 54 45 |SK READ OR WRITE| 00002B90: 20 48 41 53 20 54 41 4B 45 4E 20 50 4C 41 43 45 | HAS TAKEN PLACE| 00002BA0: 2E 80 2A 4C 4E 31 0D C6 C3 CD 20 CF D0 D4 C9 CF |..*LN1.... .....| 00002BB0: CE 20 31 34 20 2D 20 D2 C5 C1 C4 80 A3 C1 80 A3 |. 14 - .........| 00002BC0: C6 C9 CC C5 0D C6 CC CF D7 C3 C8 C1 D2 D4 80 A3 |................| 00002BD0: CC C9 CE C5 80 A3 D7 D2 C9 D4 D4 C5 CE 80 2A 4C |..............*L| 00002BE0: 4E 31 0D 20 20 20 20 20 D2 45 41 44 20 3C C6 C9 |N1. .EAD <..| 00002BF0: CC C5 CE C1 CD C5 3E 80 2A 4C 4E 31 0D D0 D5 D2 |......>.*LN1....| 00002C00: D0 CF D3 C5 20 2D 20 D4 4F 20 47 45 54 20 41 20 |.... - .O GET A | 00002C10: 52 45 43 4F 52 44 20 4F 55 54 20 4F 46 20 41 20 |RECORD OUT OF A | 00002C20: 46 49 4C 45 20 41 4E 44 20 49 4E 54 4F 20 4D 45 |FILE AND INTO ME| 00002C30: 4D 4F 52 59 20 57 48 45 52 45 20 54 48 49 4E 47 |MORY WHERE THING| 00002C40: 53 20 43 41 4E 20 42 45 20 44 4F 4E 45 20 54 4F |S CAN BE DONE TO| 00002C50: 20 49 54 2E 80 2A 4C 4E 31 0D C6 CC CF D7 C3 C8 | IT..*LN1.......| 00002C60: C1 D2 D4 C9 CE C7 20 2D 20 D3 45 4C 45 43 54 20 |...... - .ELECT | 00002C70: C6 C3 CD 20 4F 50 54 49 4F 4E 20 31 34 20 44 55 |... OPTION 14 DU| 00002C80: 52 49 4E 47 20 46 4C 4F 57 43 48 41 52 54 49 4E |RING FLOWCHARTIN| 00002C90: 47 20 41 4E 44 20 53 45 4C 45 43 54 20 54 48 45 |G AND SELECT THE| 00002CA0: 20 46 49 4C 45 20 54 4F 20 42 45 20 52 45 41 44 | FILE TO BE READ| 00002CB0: 20 46 52 4F 4D 20 54 48 45 20 4C 49 53 54 20 44 | FROM THE LIST D| 00002CC0: 49 53 50 4C 41 59 45 44 2E 80 2A 4C 4E 31 0D D0 |ISPLAYED..*LN1..| 00002CD0: D2 CF C7 D2 C1 CD 80 A3 C3 CF C4 C9 CE C7 20 2D |.............. -| 00002CE0: 20 C9 54 27 53 20 41 4E 4F 54 48 45 52 20 45 41 | .T'S ANOTHER EA| 00002CF0: 53 59 20 4F 4E 45 3B 20 54 48 45 52 45 20 49 53 |SY ONE; THERE IS| 00002D00: 20 4E 4F 54 48 49 4E 47 20 46 4F 52 20 59 4F 55 | NOTHING FOR YOU| 00002D10: 20 54 4F 20 44 4F 20 41 54 20 41 4C 4C 20 41 50 | TO DO AT ALL AP| 00002D20: 41 52 54 20 46 52 4F 4D 20 41 44 44 49 4E 47 20 |ART FROM ADDING | 00002D30: 41 20 53 55 49 54 41 42 4C 45 20 44 45 53 54 49 |A SUITABLE DESTI| 00002D40: 4E 41 54 49 4F 4E 20 57 48 45 4E 20 41 53 4B 45 |NATION WHEN ASKE| 00002D50: 44 20 C9 C6 80 A3 C5 CE C4 80 A3 CF C6 80 A3 C6 |D ..............| 00002D60: C9 CC C5 80 A3 C9 D3 80 A3 D2 C5 C1 C3 C8 C5 C4 |................| 00002D70: 80 A3 C2 D2 C1 CE C3 C8 80 A3 D4 CF 2E 2E 2E 44 |...............D| 00002D80: 55 52 49 4E 47 20 42 52 41 4E 43 48 20 52 45 53 |URING BRANCH RES| 00002D90: 4F 4C 55 54 49 4F 4E 2E 80 2A 4C 4E 31 0D CE CF |OLUTION..*LN1...| 00002DA0: D4 C5 D3 3A 20 C5 41 43 48 20 54 49 4D 45 20 54 |...: .ACH TIME T| 00002DB0: 48 49 53 20 4F 50 54 49 4F 4E 20 49 53 20 55 53 |HIS OPTION IS US| 00002DC0: 45 44 20 42 59 20 54 48 45 20 45 4E 44 20 50 52 |ED BY THE END PR| 00002DD0: 4F 47 52 41 4D 20 54 48 45 20 52 45 4C 45 56 41 |OGRAM THE RELEVA| 00002DE0: 4E 54 20 46 49 4C 45 20 50 4F 49 4E 54 45 52 20 |NT FILE POINTER | 00002DF0: 57 49 4C 4C 20 42 45 20 49 4E 43 52 45 4D 45 4E |WILL BE INCREMEN| 00002E00: 54 45 44 20 42 59 20 4F 4E 45 20 54 4F 20 50 4F |TED BY ONE TO PO| 00002E10: 49 4E 54 20 41 54 20 54 48 45 20 4E 45 58 54 20 |INT AT THE NEXT | 00002E20: 52 45 43 4F 52 44 2E 80 2A 4C 4E 31 0D D7 48 45 |RECORD..*LN1..HE| 00002E30: 4E 45 56 45 52 20 59 4F 55 20 57 41 4E 54 20 54 |NEVER YOU WANT T| 00002E40: 4F 20 47 45 54 20 41 20 43 4F 50 59 20 4F 46 20 |O GET A COPY OF | 00002E50: 41 20 52 45 43 4F 52 44 20 4F 46 46 20 54 48 45 |A RECORD OFF THE| 00002E60: 20 46 49 4C 45 20 44 49 53 4B 20 41 4E 44 20 49 | FILE DISK AND I| 00002E70: 4E 54 4F 20 54 48 45 20 43 4F 4D 50 55 54 45 52 |NTO THE COMPUTER| 00002E80: 2C 20 41 20 D2 C5 C1 C4 80 A3 C6 C9 CC C5 20 49 |, A .......... I| 00002E90: 53 20 4E 45 45 44 45 44 2E 20 20 C8 4F 57 45 56 |S NEEDED. .OWEV| 00002EA0: 45 52 20 42 4F 54 48 20 D3 45 41 52 43 48 20 41 |ER BOTH .EARCH A| 00002EB0: 4E 44 20 D3 4F 52 54 20 57 49 4C 4C 20 41 55 54 |ND .ORT WILL AUT| 00002EC0: 4F 4D 41 54 49 43 41 4C 4C 59 20 52 45 41 44 20 |OMATICALLY READ | 00002ED0: 54 48 45 20 46 49 4C 45 20 41 53 20 41 4E 20 49 |THE FILE AS AN I| 00002EE0: 4E 54 45 47 52 41 4C 20 50 41 52 54 20 4F 46 20 |NTEGRAL PART OF | 00002EF0: 54 48 45 49 52 20 41 43 54 49 4F 4E 20 53 4F 20 |THEIR ACTION SO | 00002F00: 54 48 41 54 20 49 46 20 59 4F 55 20 46 4F 4C 4C |THAT IF YOU FOLL| 00002F10: 4F 57 20 4F 4E 45 20 4F 46 20 54 48 45 53 45 20 |OW ONE OF THESE | 00002F20: 4C 49 4E 45 53 20 57 49 54 48 20 59 4F 55 52 20 |LINES WITH YOUR | 00002F30: 4F 57 4E 20 46 49 4C 45 20 52 45 41 44 2C 20 59 |OWN FILE READ, Y| 00002F40: 4F 55 27 52 45 20 4C 49 4B 45 4C 59 20 54 4F 20 |OU'RE LIKELY TO | 00002F50: 45 4E 44 20 55 50 20 57 49 54 48 20 54 48 45 20 |END UP WITH THE | 00002F60: 57 52 4F 4E 47 20 52 45 43 4F 52 44 20 49 4E 20 |WRONG RECORD IN | 00002F70: 4D 45 4D 4F 52 59 20 41 4E 44 20 54 48 45 20 46 |MEMORY AND THE F| 00002F80: 49 4C 45 20 50 4F 49 4E 54 45 52 20 50 4F 49 4E |ILE POINTER POIN| 00002F90: 54 49 4E 47 20 54 4F 20 41 20 52 45 43 4F 52 44 |TING TO A RECORD| 00002FA0: 20 54 57 4F 20 42 45 59 4F 4E 44 20 54 48 45 20 | TWO BEYOND THE | 00002FB0: 4F 4E 45 20 59 4F 55 27 52 45 20 4C 4F 4F 4B 49 |ONE YOU'RE LOOKI| 00002FC0: 4E 47 20 46 4F 52 2E 80 2A 4C 4E 31 0D C6 C3 CD |NG FOR..*LN1....| 00002FD0: 20 CF D0 D4 C9 CF CE 20 31 35 20 2D 20 D7 D2 C9 | ...... 15 - ...| 00002FE0: D4 C5 80 A3 D4 CF 80 A3 C6 C9 CC C5 0D C6 CC CF |................| 00002FF0: D7 C3 C8 C1 D2 D4 80 A3 CC C9 CE C5 80 A3 D7 D2 |................| 00003000: C9 D4 D4 C5 CE 80 2A 4C 4E 31 0D 20 20 20 20 20 |......*LN1. | 00003010: D7 52 49 54 45 20 54 4F 20 3C C6 C9 CC C5 CE C1 |.RITE TO <......| 00003020: CD C5 28 D3 29 3E 80 2A 4C 4E 31 0D D0 D5 D2 D0 |..(.)>.*LN1.....| 00003030: CF D3 C5 20 2D 20 D4 4F 20 43 4F 50 59 20 54 48 |... - .O COPY TH| 00003040: 45 20 52 45 43 4F 52 44 20 43 55 52 52 45 4E 54 |E RECORD CURRENT| 00003050: 4C 59 20 48 45 4C 44 20 49 4E 20 57 4F 52 4B 49 |LY HELD IN WORKI| 00003060: 4E 47 20 4D 45 4D 4F 52 59 20 54 4F 20 54 48 45 |NG MEMORY TO THE| 00003070: 20 52 49 47 48 54 20 50 4C 41 43 45 20 49 4E 20 | RIGHT PLACE IN | 00003080: 54 48 45 20 52 49 47 48 54 20 46 49 4C 45 20 46 |THE RIGHT FILE F| 00003090: 4F 52 20 50 45 52 4D 41 4E 45 4E 54 20 53 54 4F |OR PERMANENT STO| 000030A0: 52 49 4E 47 20 4F 4E 20 44 49 53 4B 2E 80 2A 4C |RING ON DISK..*L| 000030B0: 4E 31 0D C6 CC CF D7 C3 C8 C1 D2 D4 C9 CE C7 20 |N1............. | 000030C0: 2D 20 D3 45 4C 45 43 54 20 C6 C3 CD 20 4F 50 54 |- .ELECT ... OPT| 000030D0: 49 4F 4E 20 31 35 20 44 55 52 49 4E 47 20 46 4C |ION 15 DURING FL| 000030E0: 4F 57 43 48 41 52 54 49 4E 47 20 41 4E 44 20 53 |OWCHARTING AND S| 000030F0: 45 4C 45 43 54 20 54 48 45 20 52 45 51 55 49 52 |ELECT THE REQUIR| 00003100: 45 44 20 46 49 4C 45 20 46 52 4F 4D 20 54 48 45 |ED FILE FROM THE| 00003110: 20 4C 49 53 54 20 44 49 53 50 4C 41 59 45 44 2E | LIST DISPLAYED.| 00003120: 80 2A 4C 4E 31 0D D0 D2 CF C7 D2 C1 CD 80 A3 C3 |.*LN1...........| 00003130: CF C4 C9 CE C7 20 2D 20 CE 4F 4E 45 80 2A 4C 4E |..... - .ONE.*LN| 00003140: 31 0D CE CF D4 C5 D3 3A 20 D9 4F 55 20 4D 41 59 |1......: .OU MAY| 00003150: 20 57 52 49 54 45 20 44 41 54 41 20 54 4F 20 4D | WRITE DATA TO M| 00003160: 4F 52 45 20 54 48 41 4E 20 4F 4E 45 20 46 49 4C |ORE THAN ONE FIL| 00003170: 45 20 41 54 20 41 20 54 49 4D 45 20 57 49 54 48 |E AT A TIME WITH| 00003180: 20 41 20 53 49 4E 47 4C 45 20 46 4C 4F 57 43 48 | A SINGLE FLOWCH| 00003190: 41 52 54 20 4C 49 4E 45 2E 20 20 D4 48 45 20 52 |ART LINE. .HE R| 000031A0: 45 43 4F 52 44 20 57 49 4C 4C 20 42 45 20 57 52 |ECORD WILL BE WR| 000031B0: 49 54 54 45 4E 20 54 4F 20 54 48 45 20 50 41 52 |ITTEN TO THE PAR| 000031C0: 54 20 4F 46 20 45 41 43 48 20 46 49 4C 45 20 49 |T OF EACH FILE I| 000031D0: 4E 44 49 43 41 54 45 44 20 42 59 20 49 54 53 20 |NDICATED BY ITS | 000031E0: 46 49 4C 45 20 50 4F 49 4E 54 45 52 2E 20 20 C1 |FILE POINTER. .| 000031F0: 20 52 45 43 4F 52 44 20 57 49 4C 4C 20 4E 45 56 | RECORD WILL NEV| 00003200: 45 52 20 47 45 54 20 49 4E 54 4F 20 41 20 46 49 |ER GET INTO A FI| 00003210: 4C 45 20 55 4E 4C 45 53 53 20 59 4F 55 20 55 53 |LE UNLESS YOU US| 00003220: 45 20 54 48 49 53 20 C6 C3 CD 20 4F 50 54 49 4F |E THIS ... OPTIO| 00003230: 4E 2E 20 20 CE 4F 20 46 4C 4F 57 43 48 41 52 54 |N. .O FLOWCHART| 00003240: 20 4F 50 54 49 4F 4E 20 49 4E 43 4C 55 44 45 53 | OPTION INCLUDES| 00003250: 20 41 4E 20 49 4E 54 45 47 52 41 4C 20 57 52 49 | AN INTEGRAL WRI| 00003260: 54 45 20 54 4F 20 46 49 4C 45 20 45 58 43 45 50 |TE TO FILE EXCEP| 00003270: 54 20 46 4F 52 20 54 48 45 20 D3 CF D2 D4 2E 20 |T FOR THE ..... | 00003280: 20 D4 48 45 20 52 45 4C 45 56 41 4E 54 20 46 49 | .HE RELEVANT FI| 00003290: 4C 45 20 50 4F 49 4E 54 45 52 53 20 41 52 45 20 |LE POINTERS ARE | 000032A0: 41 55 54 4F 4D 41 54 49 43 41 4C 4C 59 20 49 4E |AUTOMATICALLY IN| 000032B0: 43 52 45 4D 45 4E 54 45 44 20 28 42 59 20 4F 4E |CREMENTED (BY ON| 000032C0: 45 29 20 45 41 43 48 20 54 49 4D 45 20 54 48 49 |E) EACH TIME THI| 000032D0: 53 20 4F 50 54 49 4F 4E 20 49 53 20 55 53 45 44 |S OPTION IS USED| 000032E0: 2E 80 2A 4C 4E 31 0D C6 C3 CD 20 CF D0 D4 C9 CF |..*LN1.... .....| 000032F0: CE 20 31 36 20 2D 20 D3 C5 C1 D2 C3 C8 80 A3 C1 |. 16 - .........| 00003300: 20 C6 C9 CC C5 0D C6 CC CF D7 C3 C8 C1 D2 D4 80 | ...............| 00003310: A3 CC C9 CE C5 D3 80 A3 D7 D2 C9 D4 D4 C5 CE 80 |................| 00003320: 2A 4C 4E 31 0D 20 20 20 20 20 D3 45 41 52 43 48 |*LN1. .EARCH| 00003330: 20 3C C6 C9 CC C5 CE C1 CD C5 3E 0D 20 20 20 20 | <........>. | 00003340: 20 D3 45 41 52 43 48 20 3C C6 C9 CC C5 CE C1 CD | .EARCH <.......| 00003350: C5 31 3E 20 55 53 49 4E 47 20 46 49 45 4C 44 53 |.1> USING FIELDS| 00003360: 20 46 52 4F 4D 20 3C C6 C9 CC C5 CE C1 CD C5 32 | FROM <........2| 00003370: 3E 80 2A 4C 4E 31 0D D0 D5 D2 D0 CF D3 C5 20 2D |>.*LN1........ -| 00003380: 20 D4 48 49 53 20 4F 50 54 49 4F 4E 20 4C 45 41 | .HIS OPTION LEA| 00003390: 44 53 20 54 4F 20 41 20 43 48 4F 49 43 45 20 4F |DS TO A CHOICE O| 000033A0: 46 20 54 57 4F 20 44 49 46 46 45 52 45 4E 54 20 |F TWO DIFFERENT | 000033B0: 54 59 50 45 53 20 4F 46 20 53 45 41 52 43 48 2E |TYPES OF SEARCH.| 000033C0: 20 20 C1 20 4B 45 59 42 4F 41 52 44 20 53 45 41 | . KEYBOARD SEA| 000033D0: 52 43 48 20 D3 C5 C1 D2 C3 C8 80 A3 3C C6 C9 CC |RCH ........<...| 000033E0: C5 CE C1 CD C5 3E 20 41 4C 4C 4F 57 53 20 54 48 |.....> ALLOWS TH| 000033F0: 45 20 45 4E 44 20 55 53 45 52 20 54 4F 20 54 59 |E END USER TO TY| 00003400: 50 45 20 49 4E 20 54 48 45 20 57 4F 52 44 20 28 |PE IN THE WORD (| 00003410: 4F 52 20 57 4F 52 44 53 2C 20 4F 52 20 4E 55 4D |OR WORDS, OR NUM| 00003420: 42 45 52 53 2C 20 4F 52 20 44 41 54 45 53 29 20 |BERS, OR DATES) | 00003430: 54 4F 20 42 45 20 53 45 41 52 43 48 45 44 20 46 |TO BE SEARCHED F| 00003440: 4F 52 2C 20 54 48 45 20 50 52 4F 47 52 41 4D 20 |OR, THE PROGRAM | 00003450: 54 48 45 4E 20 53 45 41 52 43 48 45 53 20 54 48 |THEN SEARCHES TH| 00003460: 45 20 52 45 4C 45 56 41 4E 54 20 46 49 4C 45 20 |E RELEVANT FILE | 00003470: 46 52 4F 4D 20 54 48 45 20 43 55 52 52 45 4E 54 |FROM THE CURRENT| 00003480: 20 50 4F 49 4E 54 45 52 20 50 4F 53 49 54 49 4F | POINTER POSITIO| 00003490: 4E 20 41 4E 44 20 57 49 4C 4C 20 47 4F 20 41 53 |N AND WILL GO AS| 000034A0: 20 46 41 52 20 41 53 20 54 48 45 20 45 4E 44 20 | FAR AS THE END | 000034B0: 4F 46 20 54 48 45 20 46 49 4C 45 20 49 46 20 49 |OF THE FILE IF I| 000034C0: 54 20 43 41 4E 4E 4F 54 20 46 49 4E 44 20 57 48 |T CANNOT FIND WH| 000034D0: 41 54 27 53 20 57 41 4E 54 45 44 2E 20 20 D7 48 |AT'S WANTED. .H| 000034E0: 45 4E 20 41 20 52 45 43 4F 52 44 20 4D 41 54 43 |EN A RECORD MATC| 000034F0: 48 49 4E 47 20 54 48 45 20 45 4E 44 20 55 53 45 |HING THE END USE| 00003500: 52 27 53 20 53 45 41 52 43 48 20 CB C5 D9 20 28 |R'S SEARCH ... (| 00003510: 54 48 45 20 4B 45 59 20 49 53 20 57 48 41 54 20 |THE KEY IS WHAT | 00003520: 48 45 20 54 59 50 45 44 20 49 4E 20 54 4F 20 47 |HE TYPED IN TO G| 00003530: 45 54 20 54 48 45 20 53 45 41 52 43 48 20 47 4F |ET THE SEARCH GO| 00003540: 49 4E 47 29 20 49 53 20 46 4F 55 4E 44 2C 20 49 |ING) IS FOUND, I| 00003550: 54 20 49 53 20 50 4C 41 43 45 44 20 49 4E 20 4D |T IS PLACED IN M| 00003560: 45 4D 4F 52 59 20 2D 20 4E 4F 20 46 49 4C 45 20 |EMORY - NO FILE | 00003570: 52 45 41 44 20 49 53 20 4E 45 43 45 53 53 41 52 |READ IS NECESSAR| 00003580: 59 20 53 49 4E 43 45 20 54 48 45 20 52 45 41 44 |Y SINCE THE READ| 00003590: 20 49 53 20 49 4E 54 45 47 52 41 4C 20 54 4F 20 | IS INTEGRAL TO | 000035A0: 54 48 45 20 53 45 41 52 43 48 20 52 4F 55 54 49 |THE SEARCH ROUTI| 000035B0: 4E 45 2E 80 2A 4C 4E 31 0D C1 4E 20 41 55 54 4F |NE..*LN1..N AUTO| 000035C0: 4D 41 54 49 43 20 53 45 41 52 43 48 20 28 4F 46 |MATIC SEARCH (OF| 000035D0: 20 4F 4E 45 20 46 49 4C 45 20 55 53 49 4E 47 20 | ONE FILE USING | 000035E0: 4B 45 59 53 20 54 41 4B 45 4E 20 46 52 4F 4D 20 |KEYS TAKEN FROM | 000035F0: 49 54 53 45 4C 46 20 4F 52 20 46 52 4F 4D 20 41 |ITSELF OR FROM A| 00003600: 4E 59 20 4F 54 48 45 52 20 46 49 4C 45 29 20 41 |NY OTHER FILE) A| 00003610: 43 54 53 20 4A 55 53 54 20 4C 49 4B 45 20 41 20 |CTS JUST LIKE A | 00003620: 4B 45 59 42 4F 41 52 44 20 53 45 41 52 43 48 20 |KEYBOARD SEARCH | 00003630: 45 58 43 45 50 54 20 54 48 41 54 20 54 48 45 20 |EXCEPT THAT THE | 00003640: 53 45 41 52 43 48 20 4B 45 59 53 20 41 52 45 20 |SEARCH KEYS ARE | 00003650: 54 41 4B 45 4E 20 46 52 4F 4D 20 41 4E 20 45 58 |TAKEN FROM AN EX| 00003660: 49 53 54 49 4E 47 20 46 49 4C 45 20 46 49 45 4C |ISTING FILE FIEL| 00003670: 44 20 28 4F 52 20 46 49 45 4C 44 53 29 20 49 4E |D (OR FIELDS) IN| 00003680: 53 54 45 41 44 20 4F 46 20 54 48 52 4F 55 47 48 |STEAD OF THROUGH| 00003690: 20 54 48 45 20 4B 45 59 42 4F 41 52 44 2E 80 2A | THE KEYBOARD..*| 000036A0: 4C 4E 31 0D CE CF D4 C5 D3 3A 20 C1 4E 59 20 4E |LN1......: .NY N| 000036B0: 55 4D 42 45 52 20 4F 46 20 46 49 45 4C 44 53 20 |UMBER OF FIELDS | 000036C0: 4D 41 59 20 42 45 20 55 53 45 44 20 41 53 20 4B |MAY BE USED AS K| 000036D0: 45 59 53 20 49 4E 20 41 4E 59 20 4F 4E 45 20 53 |EYS IN ANY ONE S| 000036E0: 45 41 52 43 48 2E 20 20 C2 4F 54 48 20 53 45 41 |EARCH. .OTH SEA| 000036F0: 52 43 48 45 53 20 41 4C 4C 4F 57 20 54 48 45 20 |RCHES ALLOW THE | 00003700: 53 45 41 52 43 48 20 54 4F 20 43 4F 4E 54 49 4E |SEARCH TO CONTIN| 00003710: 55 45 20 41 46 54 45 52 20 41 20 52 45 43 4F 52 |UE AFTER A RECOR| 00003720: 44 20 48 41 53 20 42 45 45 4E 20 46 4F 55 4E 44 |D HAS BEEN FOUND| 00003730: 20 41 4E 44 20 44 49 53 50 4C 41 59 45 44 20 28 | AND DISPLAYED (| 00003740: 42 59 20 55 53 49 4E 47 20 54 48 45 20 53 54 41 |BY USING THE STA| 00003750: 4E 44 41 52 44 20 44 49 53 50 4C 41 59 20 4F 52 |NDARD DISPLAY OR| 00003760: 20 41 20 52 45 43 4F 52 44 20 43 48 45 43 4B 20 | A RECORD CHECK | 00003770: 53 4F 20 54 48 41 54 20 4F 54 48 45 52 20 52 45 |SO THAT OTHER RE| 00003780: 43 4F 52 44 53 20 4D 41 54 43 48 49 4E 47 20 54 |CORDS MATCHING T| 00003790: 48 45 20 53 45 41 52 43 48 20 4B 45 59 28 53 29 |HE SEARCH KEY(S)| 000037A0: 20 4D 41 59 20 42 45 20 4C 4F 43 41 54 45 44 2E | MAY BE LOCATED.| 000037B0: 80 2A 4C 4E 31 0D C2 4F 54 48 20 53 45 41 52 43 |.*LN1..OTH SEARC| 000037C0: 48 45 53 20 57 49 4C 4C 20 49 4E 53 49 53 54 20 |HES WILL INSIST | 000037D0: 28 44 55 52 49 4E 47 20 42 52 41 4E 43 48 20 52 |(DURING BRANCH R| 000037E0: 45 53 4F 4C 55 54 49 4F 4E 20 41 46 54 45 52 20 |ESOLUTION AFTER | 000037F0: C6 C3 CD 20 4F 50 54 49 4F 4E 20 33 20 29 20 54 |... OPTION 3 ) T| 00003800: 48 41 54 20 59 4F 55 20 54 45 4C 4C 20 54 48 45 |HAT YOU TELL THE| 00003810: 20 50 52 4F 47 52 41 4D 20 57 48 41 54 20 54 4F | PROGRAM WHAT TO| 00003820: 20 44 4F 20 49 46 20 54 48 45 20 53 45 41 52 43 | DO IF THE SEARC| 00003830: 48 20 52 45 41 43 48 45 53 20 54 48 45 20 C5 4E |H REACHES THE .N| 00003840: 44 20 4F 46 20 46 49 4C 45 2E 80 2A 4C 4E 31 0D |D OF FILE..*LN1.| 00003850: D5 D3 C5 80 A3 CF C6 80 A3 C4 C9 C6 C6 C5 D2 C5 |................| 00003860: CE D4 80 A3 D4 D9 D0 C5 D3 80 A3 CF C6 80 A3 C6 |................| 00003870: C9 C5 CC C4 80 A3 C1 D3 80 A3 CB C5 D9 D3 20 2D |.............. -| 00003880: 20 C1 4E 20 41 4C 50 48 41 20 4B 45 59 20 57 49 | .N ALPHA KEY WI| 00003890: 4C 4C 20 53 45 41 52 43 48 20 54 48 45 20 4C 45 |LL SEARCH THE LE| 000038A0: 46 54 20 48 41 4E 44 20 53 49 44 45 20 28 55 50 |FT HAND SIDE (UP| 000038B0: 20 54 4F 20 54 48 45 20 4C 45 4E 47 54 48 20 4F | TO THE LENGTH O| 000038C0: 46 20 54 48 45 20 4B 45 59 20 49 54 53 45 4C 46 |F THE KEY ITSELF| 000038D0: 29 20 4F 46 20 41 4C 4C 20 54 48 45 20 4B 45 59 |) OF ALL THE KEY| 000038E0: 20 41 4C 50 48 41 20 46 49 45 4C 44 53 20 46 4F | ALPHA FIELDS FO| 000038F0: 52 20 41 20 4D 41 54 43 48 2E 20 20 D4 48 49 53 |R A MATCH. .HIS| 00003900: 20 49 53 20 41 20 50 41 52 54 20 4D 41 54 43 48 | IS A PART MATCH| 00003910: 20 49 4E 20 41 53 20 4D 55 43 48 20 41 53 20 54 | IN AS MUCH AS T| 00003920: 48 45 20 4B 45 59 20 22 C6 52 45 44 22 20 57 4F |HE KEY ".RED" WO| 00003930: 55 4C 44 20 46 49 4E 44 20 46 49 45 4C 44 53 20 |ULD FIND FIELDS | 00003940: 43 4F 4E 54 41 49 4E 49 4E 47 20 22 C6 52 45 44 |CONTAINING ".RED| 00003950: 22 2C 20 22 C6 52 45 44 49 43 4B 22 2C 20 41 4E |", ".REDICK", AN| 00003960: 44 20 22 C6 52 45 44 44 59 22 20 57 49 54 48 4F |D ".REDDY" WITHO| 00003970: 55 54 20 44 49 53 43 52 45 4D 49 4E 41 54 49 4E |UT DISCREMINATIN| 00003980: 47 2E 80 2A 4C 4E 31 0D C1 20 4E 55 4D 45 52 49 |G..*LN1.. NUMERI| 00003990: 43 20 4F 52 20 44 41 54 45 20 46 49 45 4C 44 20 |C OR DATE FIELD | 000039A0: 4E 45 45 44 53 20 41 4E 20 45 58 41 43 54 20 4D |NEEDS AN EXACT M| 000039B0: 41 54 43 48 20 28 4E 4F 54 20 54 48 45 20 50 41 |ATCH (NOT THE PA| 000039C0: 52 54 20 4D 41 54 43 48 20 44 45 53 43 52 49 42 |RT MATCH DESCRIB| 000039D0: 45 44 20 41 42 4F 56 45 29 20 49 46 20 49 54 20 |ED ABOVE) IF IT | 000039E0: 49 53 20 54 4F 20 42 45 20 4C 4F 43 41 54 45 44 |IS TO BE LOCATED| 000039F0: 2E 20 20 C9 4E 20 4F 54 48 45 52 20 57 4F 52 44 |. .N OTHER WORD| 00003A00: 53 2C 20 53 45 41 52 43 48 49 4E 47 20 46 4F 52 |S, SEARCHING FOR| 00003A10: 20 31 32 33 20 57 49 4C 4C 20 4E 4F 54 20 46 49 | 123 WILL NOT FI| 00003A20: 4E 44 20 54 48 45 20 4E 55 4D 42 45 52 20 31 32 |ND THE NUMBER 12| 00003A30: 33 34 35 2E 80 2A 4C 4E 31 0D D3 D5 C2 2D CF D0 |345..*LN1....-..| 00003A40: D4 C9 CF CE 20 31 20 28 CB 45 59 42 4F 41 52 44 |.... 1 (.EYBOARD| 00003A50: 20 53 45 41 52 43 48 20 4F 46 20 41 20 46 49 4C | SEARCH OF A FIL| 00003A60: 45 29 0D D0 D5 D2 D0 CF D3 C5 80 2A 4C 4E 31 0D |E).........*LN1.| 00003A70: D4 4F 20 41 53 4B 20 54 48 45 20 45 4E 44 20 55 |.O ASK THE END U| 00003A80: 53 45 52 20 54 4F 20 45 4E 54 45 52 20 4F 4E 45 |SER TO ENTER ONE| 00003A90: 20 4F 52 20 4D 4F 52 45 20 53 45 41 52 43 48 20 | OR MORE SEARCH | 00003AA0: 4B 45 59 53 20 54 48 52 4F 55 47 48 20 54 48 45 |KEYS THROUGH THE| 00003AB0: 20 4B 45 59 42 4F 41 52 44 20 41 4E 44 20 54 48 | KEYBOARD AND TH| 00003AC0: 45 4E 20 54 4F 20 53 45 41 52 43 48 20 41 20 4E |EN TO SEARCH A N| 00003AD0: 41 4D 45 44 20 46 49 4C 45 20 28 46 52 4F 4D 20 |AMED FILE (FROM | 00003AE0: 54 48 45 20 43 55 52 52 45 4E 54 20 50 4F 49 4E |THE CURRENT POIN| 00003AF0: 54 45 52 20 50 4F 53 49 54 49 4F 4E 29 20 46 4F |TER POSITION) FO| 00003B00: 52 20 54 48 45 20 46 49 52 53 54 20 4F 43 43 55 |R THE FIRST OCCU| 00003B10: 52 52 45 4E 43 45 20 4F 46 20 41 20 52 45 43 4F |RRENCE OF A RECO| 00003B20: 52 44 20 49 4E 20 57 48 49 43 48 20 54 48 45 20 |RD IN WHICH THE | 00003B30: 52 45 4C 45 56 41 4E 54 20 46 49 45 4C 44 53 20 |RELEVANT FIELDS | 00003B40: 4D 41 54 43 48 20 54 48 45 20 53 45 41 52 43 48 |MATCH THE SEARCH| 00003B50: 20 4B 45 59 28 53 29 2E 80 2A 4C 4E 31 0D C1 53 | KEY(S)..*LN1..S| 00003B60: 20 4C 4F 4E 47 20 41 53 20 54 48 45 20 45 4E 44 | LONG AS THE END| 00003B70: 20 50 52 4F 47 52 41 4D 20 44 49 53 50 4C 41 59 | PROGRAM DISPLAY| 00003B80: 53 20 54 48 45 20 53 45 41 52 43 48 20 52 45 53 |S THE SEARCH RES| 00003B90: 55 4C 54 53 20 54 4F 20 54 48 45 20 53 43 52 45 |ULTS TO THE SCRE| 00003BA0: 45 4E 2C 20 54 48 45 4E 20 49 54 20 57 49 4C 4C |EN, THEN IT WILL| 00003BB0: 20 41 55 54 4F 4D 41 54 49 43 41 4C 4C 59 20 41 | AUTOMATICALLY A| 00003BC0: 53 4B 20 54 48 45 20 45 4E 44 20 55 53 45 52 20 |SK THE END USER | 00003BD0: 57 48 45 54 48 45 52 20 48 45 20 57 41 4E 54 53 |WHETHER HE WANTS| 00003BE0: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 53 45 41 | TO CONTINUE SEA| 00003BF0: 52 43 48 49 4E 47 20 46 4F 52 20 54 48 45 20 4E |RCHING FOR THE N| 00003C00: 45 58 54 20 4F 43 43 55 52 52 45 4E 43 45 20 4F |EXT OCCURRENCE O| 00003C10: 46 20 54 48 45 20 53 45 41 52 43 48 20 4B 45 59 |F THE SEARCH KEY| 00003C20: 28 53 29 2E 80 2A 4C 4E 31 0D C1 20 52 45 43 4F |(S)..*LN1.. RECO| 00003C30: 52 44 2C 20 4F 4E 43 45 20 46 4F 55 4E 44 2C 20 |RD, ONCE FOUND, | 00003C40: 57 49 4C 4C 20 42 45 20 50 4C 41 43 45 44 20 49 |WILL BE PLACED I| 00003C50: 4E 20 4D 45 4D 4F 52 59 20 53 4F 20 54 48 41 54 |N MEMORY SO THAT| 00003C60: 20 49 54 20 49 53 20 4E 4F 54 20 4E 45 43 45 53 | IT IS NOT NECES| 00003C70: 53 41 52 59 20 54 4F 20 55 53 45 20 41 20 D2 45 |SARY TO USE A .E| 00003C80: 41 44 20 46 49 4C 45 20 28 49 4E 20 46 41 43 54 |AD FILE (IN FACT| 00003C90: 20 59 4F 55 20 57 49 4C 4C 20 45 4E 44 20 55 50 | YOU WILL END UP| 00003CA0: 20 42 59 20 4F 56 45 52 57 52 49 54 49 4E 47 20 | BY OVERWRITING | 00003CB0: 54 48 45 20 53 45 41 52 43 48 45 44 20 46 4F 52 |THE SEARCHED FOR| 00003CC0: 20 52 45 43 4F 52 44 20 49 46 20 59 4F 55 20 44 | RECORD IF YOU D| 00003CD0: 4F 20 54 48 49 53 29 2E 80 2A 4C 4E 31 0D D0 52 |O THIS)..*LN1..R| 00003CE0: 4F 56 49 53 49 4F 4E 20 4D 55 53 54 20 42 45 20 |OVISION MUST BE | 00003CF0: 4D 41 44 45 20 46 4F 52 20 53 55 49 54 41 42 4C |MADE FOR SUITABL| 00003D00: 45 20 41 43 54 49 4F 4E 20 49 46 20 54 48 45 20 |E ACTION IF THE | 00003D10: 53 45 41 52 43 48 20 52 45 41 43 48 45 53 20 54 |SEARCH REACHES T| 00003D20: 48 45 20 45 4E 44 20 4F 46 20 54 48 45 20 46 49 |HE END OF THE FI| 00003D30: 4C 45 2E 80 2A 4C 4E 31 0D D3 C1 CD D0 CC C5 80 |LE..*LN1........| 00003D40: A3 C6 CC CF D7 C3 C8 C1 D2 D4 3A 80 2A 4C 4E 31 |..........:.*LN1| 00003D50: 0D 20 20 20 20 20 31 20 20 20 D3 45 54 20 50 4F |. 1 .ET PO| 00003D60: 49 4E 54 45 52 20 54 4F 20 53 54 41 52 54 20 4F |INTER TO START O| 00003D70: 46 20 3C C6 C9 CC C5 CE C1 CD C5 3E 0D 20 20 20 |F <........>. | 00003D80: 20 20 32 20 20 20 D3 45 41 52 43 48 20 3C C6 C9 | 2 .EARCH <..| 00003D90: CC C5 CE C1 CD C5 3E 0D 20 20 20 20 20 33 20 20 |......>. 3 | 00003DA0: 20 C4 49 53 50 4C 41 59 20 44 41 54 41 20 55 53 | .ISPLAY DATA US| 00003DB0: 49 4E 47 20 3C C6 C9 CC C5 CE C1 CD C5 3E 20 46 |ING <........> F| 00003DC0: 49 45 4C 44 53 0D 20 20 20 20 20 34 20 20 20 C1 |IELDS. 4 .| 00003DD0: 53 4B 20 55 53 45 52 20 22 C1 CE CF D4 C8 C5 D2 |SK USER ".......| 00003DE0: 80 A3 D3 C5 C1 D2 C3 C8 3F 22 3A 20 42 52 41 4E |........?": BRAN| 00003DF0: 43 48 20 49 46 20 59 45 53 20 54 4F 20 31 80 2A |CH IF YES TO 1.*| 00003E00: 4C 4E 31 0D CE 4F 54 45 20 54 48 41 54 20 54 48 |LN1..OTE THAT TH| 00003E10: 45 52 45 20 49 53 20 4E 4F 20 D2 45 41 44 20 46 |ERE IS NO .EAD F| 00003E20: 49 4C 45 20 42 45 54 57 45 45 4E 20 CC 49 4E 45 |ILE BETWEEN .INE| 00003E30: 53 20 32 20 41 4E 44 20 33 2C 20 54 48 45 20 53 |S 2 AND 3, THE S| 00003E40: 45 41 52 43 48 20 49 4E 43 4C 55 44 45 53 20 54 |EARCH INCLUDES T| 00003E50: 48 49 53 20 41 55 54 4F 4D 41 54 49 43 41 4C 4C |HIS AUTOMATICALL| 00003E60: 59 2E 80 2A 4C 4E 31 0D C9 46 20 54 48 45 20 45 |Y..*LN1..F THE E| 00003E70: 4E 44 20 55 53 45 52 20 41 4E 53 57 45 52 53 20 |ND USER ANSWERS | 00003E80: D9 45 53 20 54 4F 20 54 48 45 20 51 55 45 53 54 |.ES TO THE QUEST| 00003E90: 49 4F 4E 20 49 4E 20 CC 49 4E 45 20 34 2C 20 48 |ION IN .INE 4, H| 00003EA0: 45 20 57 49 4C 4C 20 42 45 20 54 41 4B 45 4E 20 |E WILL BE TAKEN | 00003EB0: 42 41 43 4B 20 54 4F 20 54 48 45 20 53 54 41 52 |BACK TO THE STAR| 00003EC0: 54 20 57 48 45 52 45 20 48 45 20 43 41 4E 20 45 |T WHERE HE CAN E| 00003ED0: 4E 54 45 52 20 4E 45 57 20 28 41 4E 44 20 44 49 |NTER NEW (AND DI| 00003EE0: 46 46 45 52 45 4E 54 29 20 53 45 41 52 43 48 20 |FFERENT) SEARCH | 00003EF0: 4B 45 59 53 2E 80 2A 4C 4E 31 0D C6 CC CF D7 C3 |KEYS..*LN1......| 00003F00: C8 C1 D2 D4 C9 CE C7 20 2D 20 44 55 52 49 4E 47 |....... - DURING| 00003F10: 20 46 4C 4F 57 43 48 41 52 54 49 4E 47 2C 20 53 | FLOWCHARTING, S| 00003F20: 45 4C 45 43 54 49 4E 47 20 4F 50 54 49 4F 4E 20 |ELECTING OPTION | 00003F30: 31 36 20 4C 45 41 44 53 20 49 4D 4D 45 44 49 41 |16 LEADS IMMEDIA| 00003F40: 54 45 4C 59 20 54 4F 20 54 48 49 53 20 53 55 42 |TELY TO THIS SUB| 00003F50: 20 4D 45 4E 55 2E 80 2A 4C 4E 31 0D 20 20 20 20 | MENU..*LN1. | 00003F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003F70: 20 20 20 20 20 CB 45 59 42 4F 41 52 44 20 53 45 | .EYBOARD SE| 00003F80: 41 52 43 48 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 3C 31 |ARCH .........<1| 00003F90: 3E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |>. | 00003FA0: 20 20 20 20 20 20 20 20 20 20 20 C1 55 54 4F 4D | .UTOM| 00003FB0: 41 54 49 43 20 53 45 41 52 43 48 2E 2E 2E 2E 2E |ATIC SEARCH.....| 00003FC0: 2E 2E 2E 2E 3C 32 3E 0D 20 20 20 20 20 20 20 20 |....<2>. | 00003FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003FE0: 20 D2 45 54 55 52 4E 20 54 4F 20 C6 2E C3 2E CD | .ETURN TO .....| 00003FF0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 3C 33 3E 0D D3 45 |..........<3>..E| 00004000: 4C 45 43 54 20 41 43 43 4F 52 44 49 4E 47 4C 59 |LECT ACCORDINGLY| 00004010: 20 41 4E 44 20 43 48 4F 4F 53 45 20 54 48 45 20 | AND CHOOSE THE | 00004020: 46 49 4C 45 28 53 29 20 46 52 4F 4D 20 54 48 45 |FILE(S) FROM THE| 00004030: 20 4C 49 53 54 20 44 49 53 50 4C 41 59 45 44 2E | LIST DISPLAYED.| 00004040: 80 2A 4C 4E 31 0D D0 D2 CF C7 D2 C1 CD 80 A3 C3 |.*LN1...........| 00004050: CF C4 C9 CE C7 80 A3 CF C6 80 A3 C1 80 A3 CB C5 |................| 00004060: D9 C2 CF C1 D2 C4 80 A3 D3 C5 C1 D2 C3 C8 20 2D |.............. -| 00004070: 20 D9 4F 55 20 57 49 4C 4C 20 42 45 20 41 53 4B | .OU WILL BE ASK| 00004080: 45 44 20 49 46 20 59 4F 55 20 57 41 4E 54 20 41 |ED IF YOU WANT A| 00004090: 20 43 4C 45 41 52 20 53 43 52 45 45 4E 20 42 45 | CLEAR SCREEN BE| 000040A0: 46 4F 52 45 20 54 48 45 20 53 45 41 52 43 48 20 |FORE THE SEARCH | 000040B0: 41 4E 44 20 54 48 45 4E 20 59 4F 55 20 57 49 4C |AND THEN YOU WIL| 000040C0: 4C 20 42 45 20 54 41 4B 45 4E 20 54 4F 20 54 48 |L BE TAKEN TO TH| 000040D0: 45 20 4E 4F 57 20 28 56 45 52 59 29 20 46 41 4D |E NOW (VERY) FAM| 000040E0: 49 4C 49 41 52 20 53 43 52 45 45 4E 20 44 45 53 |ILIAR SCREEN DES| 000040F0: 49 47 4E 20 4D 45 4E 55 2E 80 2A 4C 4E 31 0D D5 |IGN MENU..*LN1..| 00004100: 53 45 20 4F 50 54 49 4F 4E 20 31 20 41 4E 44 20 |SE OPTION 1 AND | 00004110: 50 4F 53 49 54 49 4F 4E 20 54 48 45 20 53 45 41 |POSITION THE SEA| 00004120: 52 43 48 20 4B 45 59 53 20 45 58 41 43 54 4C 59 |RCH KEYS EXACTLY| 00004130: 20 41 53 20 59 4F 55 20 57 4F 55 4C 44 20 57 48 | AS YOU WOULD WH| 00004140: 45 4E 20 53 45 4C 45 43 54 49 4E 47 20 46 49 45 |EN SELECTING FIE| 00004150: 4C 44 53 20 46 4F 52 20 41 20 4B 45 59 42 4F 41 |LDS FOR A KEYBOA| 00004160: 52 44 20 49 4E 50 55 54 2E 20 20 D9 4F 55 20 53 |RD INPUT. .OU S| 00004170: 48 4F 55 4C 44 20 50 4F 53 49 54 49 4F 4E 20 4F |HOULD POSITION O| 00004180: 4E 4C 59 20 54 48 45 20 46 49 45 4C 44 53 20 57 |NLY THE FIELDS W| 00004190: 48 49 43 48 20 41 52 45 20 54 4F 20 42 45 20 55 |HICH ARE TO BE U| 000041A0: 53 45 44 20 41 53 20 53 45 41 52 43 48 20 4B 45 |SED AS SEARCH KE| 000041B0: 59 53 2E 80 2A 4C 4E 31 0D CE 4F 54 45 20 54 48 |YS..*LN1..OTE TH| 000041C0: 41 54 20 49 4E 20 54 48 45 20 45 4E 44 20 50 52 |AT IN THE END PR| 000041D0: 4F 47 52 41 4D 20 41 20 4E 55 4C 4C 20 45 4E 54 |OGRAM A NULL ENT| 000041E0: 52 59 20 54 4F 20 41 20 53 45 41 52 43 48 20 4B |RY TO A SEARCH K| 000041F0: 45 59 20 46 49 45 4C 44 20 57 49 4C 4C 20 45 46 |EY FIELD WILL EF| 00004200: 46 45 43 54 49 56 45 4C 59 20 44 49 53 41 42 45 |FECTIVELY DISABE| 00004210: 4C 54 48 41 54 20 46 49 45 4C 44 20 53 4F 20 54 |LTHAT FIELD SO T| 00004220: 48 41 54 20 54 48 45 20 53 45 41 52 43 48 20 57 |HAT THE SEARCH W| 00004230: 49 4C 4C 20 49 47 4E 4F 52 45 20 54 48 41 54 20 |ILL IGNORE THAT | 00004240: 50 41 52 54 49 43 55 4C 41 52 20 4B 45 59 2E 80 |PARTICULAR KEY..| 00004250: 2A 4C 4E 31 0D D0 D2 CF C7 D2 C1 CD 80 A3 C3 CF |*LN1............| 00004260: C4 C9 CE C7 80 A3 CF C6 80 A3 C1 CE 80 A3 C1 D5 |................| 00004270: D4 CF CD C1 D4 C9 C3 80 A3 D3 C5 C1 D2 C3 C8 20 |............... | 00004280: 2D 20 D9 4F 55 20 57 49 4C 4C 20 42 45 20 53 48 |- .OU WILL BE SH| 00004290: 4F 57 4E 20 41 20 4C 49 53 54 20 4F 46 20 41 4C |OWN A LIST OF AL| 000042A0: 4C 20 46 49 45 4C 44 53 20 49 4E 56 4F 4C 56 45 |L FIELDS INVOLVE| 000042B0: 44 20 49 4E 20 54 48 45 20 53 45 41 52 43 48 20 |D IN THE SEARCH | 000042C0: 41 4E 44 20 59 4F 55 20 57 49 4C 4C 20 42 45 20 |AND YOU WILL BE | 000042D0: 41 53 4B 45 44 3A 80 2A 4C 4E 31 0D 20 20 20 20 |ASKED:.*LN1. | 000042E0: 20 C8 4F 57 20 4D 41 4E 59 20 53 45 41 52 43 48 | .OW MANY SEARCH| 000042F0: 20 4B 45 59 53 20 28 31 2D 4E 29 20 2E 2E 2E 80 | KEYS (1-N) ....| 00004300: 2A 4C 4E 31 0D 57 48 45 52 45 20 4E 20 49 53 20 |*LN1.WHERE N IS | 00004310: 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 20 46 49 |THE NUMBER OF FI| 00004320: 45 4C 44 53 20 49 4E 20 54 48 45 20 53 4D 41 4C |ELDS IN THE SMAL| 00004330: 4C 45 53 54 20 46 49 4C 45 20 28 49 4E 20 54 45 |LEST FILE (IN TE| 00004340: 52 4D 53 20 4F 46 20 4E 55 4D 42 45 52 20 4F 46 |RMS OF NUMBER OF| 00004350: 20 46 49 45 4C 44 53 20 2D 20 4E 4F 54 20 41 43 | FIELDS - NOT AC| 00004360: 54 55 41 4C 20 52 45 43 4F 52 44 20 4C 45 4E 47 |TUAL RECORD LENG| 00004370: 54 48 29 2E 20 20 C1 4E 53 57 45 52 20 41 50 50 |TH). .NSWER APP| 00004380: 52 4F 50 52 49 41 54 45 4C 59 2E 80 2A 4C 4E 31 |ROPRIATELY..*LN1| 00004390: 0D C6 4F 52 20 45 41 43 48 20 4B 45 59 20 59 4F |..OR EACH KEY YO| 000043A0: 55 20 57 49 4C 4C 20 42 45 20 41 53 4B 45 44 20 |U WILL BE ASKED | 000043B0: 54 4F 20 53 45 4C 45 43 54 20 54 48 45 20 46 49 |TO SELECT THE FI| 000043C0: 45 4C 44 20 54 4F 20 42 45 20 53 45 41 52 43 48 |ELD TO BE SEARCH| 000043D0: 45 44 20 41 4E 44 20 54 48 45 20 46 49 45 4C 44 |ED AND THE FIELD| 000043E0: 20 57 48 49 43 48 20 49 53 20 54 4F 20 53 55 50 | WHICH IS TO SUP| 000043F0: 50 4C 59 20 54 48 45 20 4B 45 59 20 57 49 54 48 |PLY THE KEY WITH| 00004400: 20 54 48 45 20 51 55 45 53 54 49 4F 4E 3A 80 2A | THE QUESTION:.*| 00004410: 4C 4E 31 0D 20 20 20 20 20 CB 45 59 20 CE 4F 20 |LN1. .EY .O | 00004420: 4E 2E 20 20 D3 45 41 52 43 48 20 46 49 45 4C 44 |N. .EARCH FIELD| 00004430: 20 C1 20 2E 2E 20 55 53 49 4E 47 20 46 49 45 4C | . .. USING FIEL| 00004440: 44 20 C2 2E 2E 80 2A 4C 4E 31 0D C1 20 41 4E 44 |D ....*LN1.. AND| 00004450: 20 C2 20 52 45 50 52 45 53 45 4E 54 20 54 48 45 | . REPRESENT THE| 00004460: 20 46 49 52 53 54 20 4C 45 54 54 45 52 53 20 4F | FIRST LETTERS O| 00004470: 46 20 54 48 45 20 41 50 50 52 4F 50 52 49 41 54 |F THE APPROPRIAT| 00004480: 45 20 46 49 45 4C 44 27 53 20 43 4F 44 45 20 28 |E FIELD'S CODE (| 00004490: 4F 4E 20 54 48 45 20 53 45 4C 45 43 54 49 4F 4E |ON THE SELECTION| 000044A0: 20 4C 49 53 54 29 20 53 4F 20 54 48 41 54 20 59 | LIST) SO THAT Y| 000044B0: 4F 55 20 4E 45 45 44 20 4F 4E 4C 59 20 45 4E 54 |OU NEED ONLY ENT| 000044C0: 45 52 20 54 48 45 20 4E 55 4D 42 45 52 2E 20 20 |ER THE NUMBER. | 000044D0: C1 20 28 49 4E 20 54 48 49 53 20 45 58 41 4D 50 |. (IN THIS EXAMP| 000044E0: 4C 45 29 20 49 53 20 54 48 45 20 46 49 4C 45 20 |LE) IS THE FILE | 000044F0: 54 4F 20 42 45 20 53 45 41 52 43 48 45 44 20 41 |TO BE SEARCHED A| 00004500: 4E 44 20 C2 20 49 53 20 54 48 45 20 46 49 4C 45 |ND . IS THE FILE| 00004510: 20 50 52 4F 56 49 44 49 4E 47 20 54 48 45 20 4B | PROVIDING THE K| 00004520: 45 59 53 2E 20 20 C9 54 20 49 53 20 50 4F 53 53 |EYS. .T IS POSS| 00004530: 49 42 4C 45 20 46 4F 52 20 42 4F 54 48 20 4F 46 |IBLE FOR BOTH OF| 00004540: 20 54 48 45 53 45 20 54 4F 20 42 45 20 54 48 45 | THESE TO BE THE| 00004550: 20 53 41 4D 45 20 46 49 4C 45 2E 80 2A 4C 4E 31 | SAME FILE..*LN1| 00004560: 0D C9 54 20 49 53 20 50 4F 53 53 49 42 4C 45 20 |..T IS POSSIBLE | 00004570: 54 4F 20 53 45 41 52 43 48 20 41 20 53 49 4E 47 |TO SEARCH A SING| 00004580: 4C 45 20 46 49 45 4C 44 20 57 49 54 48 20 41 20 |LE FIELD WITH A | 00004590: 4E 55 4D 42 45 52 20 4F 46 20 44 49 46 46 45 52 |NUMBER OF DIFFER| 000045A0: 45 4E 54 20 4B 45 59 20 46 49 45 4C 44 53 2E 20 |ENT KEY FIELDS. | 000045B0: 20 D9 4F 55 20 57 49 4C 4C 20 54 48 45 4E 20 42 | .OU WILL THEN B| 000045C0: 45 20 41 53 4B 45 44 20 54 4F 20 43 4F 4E 46 49 |E ASKED TO CONFI| 000045D0: 52 4D 20 59 4F 55 52 20 53 45 4C 45 43 54 49 4F |RM YOUR SELECTIO| 000045E0: 4E 53 20 57 49 54 48 20 C9 D3 80 A3 D4 C8 C9 D3 |NS WITH ........| 000045F0: 80 A3 C3 CF D2 D2 C5 C3 D4 20 28 D9 3F CE 29 2E |......... (.?.).| 00004600: 20 20 C4 4F 20 49 54 20 41 4E 44 20 59 4F 55 20 | .O IT AND YOU | 00004610: 57 49 4C 4C 20 42 45 20 54 41 4B 45 4E 20 4F 4E |WILL BE TAKEN ON| 00004620: 20 54 4F 20 54 48 45 20 4E 45 58 54 20 46 4C 4F | TO THE NEXT FLO| 00004630: 57 43 48 41 52 54 20 4C 49 4E 45 2E 80 2A 4C 4E |WCHART LINE..*LN| 00004640: 31 0D C3 CF CE D4 C9 CE D5 C9 CE C7 80 A3 D4 C8 |1...............| 00004650: C5 80 A3 D3 C5 C1 D2 C3 C8 20 2D 20 D7 48 45 4E |......... - .HEN| 00004660: 20 45 56 45 52 20 41 20 53 45 41 52 43 48 20 54 | EVER A SEARCH T| 00004670: 41 4B 45 53 20 50 4C 41 43 45 2C 20 D4 CC CF 20 |AKES PLACE, ... | 00004680: 4E 4F 54 45 53 20 54 48 49 53 20 41 4E 44 2C 20 |NOTES THIS AND, | 00004690: 41 54 20 54 48 45 20 45 4E 44 20 4F 46 20 54 48 |AT THE END OF TH| 000046A0: 45 20 4E 45 58 54 20 C4 49 53 50 4C 41 59 20 44 |E NEXT .ISPLAY D| 000046B0: 41 54 41 20 28 C6 C3 CD 20 4F 50 54 49 4F 4E 20 |ATA (... OPTION | 000046C0: 37 29 20 57 49 4C 4C 20 41 53 4B 3A 80 2A 4C 4E |7) WILL ASK:.*LN| 000046D0: 31 0D 20 20 20 20 20 C1 44 44 20 43 4F 4E 54 49 |1. .DD CONTI| 000046E0: 4E 55 45 20 53 45 41 52 43 48 20 46 41 43 49 54 |NUE SEARCH FACIT| 000046F0: 49 54 59 80 2A 4C 4E 31 0D C9 46 20 59 4F 55 20 |ITY.*LN1..F YOU | 00004700: 41 4E 53 57 45 52 20 4E 4F 2C 20 54 48 45 20 51 |ANSWER NO, THE Q| 00004710: 55 45 53 54 49 4F 4E 20 57 49 4C 4C 20 42 45 20 |UESTION WILL BE | 00004720: 52 45 50 45 41 54 45 44 20 41 54 20 54 48 45 20 |REPEATED AT THE | 00004730: 45 4E 44 20 4F 46 20 54 48 45 20 4E 45 58 54 20 |END OF THE NEXT | 00004740: C4 49 53 50 4C 41 59 20 44 41 54 41 20 2D 20 41 |.ISPLAY DATA - A| 00004750: 4E 44 20 53 4F 20 4F 4E 20 55 4E 54 49 4C 20 59 |ND SO ON UNTIL Y| 00004760: 4F 55 20 48 41 56 45 20 41 4E 53 57 45 52 45 44 |OU HAVE ANSWERED| 00004770: 20 D9 45 53 20 4F 52 20 55 4E 54 49 4C 20 54 48 | .ES OR UNTIL TH| 00004780: 45 20 45 4E 44 20 4F 46 20 54 48 45 20 50 52 4F |E END OF THE PRO| 00004790: 47 52 41 4D 20 49 53 20 52 45 41 43 48 45 44 2E |GRAM IS REACHED.| 000047A0: 80 2A 4C 4E 31 0D C9 46 20 59 4F 55 20 41 4E 53 |.*LN1..F YOU ANS| 000047B0: 57 45 52 20 D9 45 53 2C 20 41 4E 44 20 54 48 45 |WER .ES, AND THE| 000047C0: 20 44 49 53 50 4C 41 59 20 49 53 20 4E 4F 54 20 | DISPLAY IS NOT | 000047D0: 49 4E 20 D2 45 50 4F 52 54 20 46 4F 52 4D 41 54 |IN .EPORT FORMAT| 000047E0: 2C 20 59 4F 55 20 57 49 4C 4C 20 42 45 20 41 53 |, YOU WILL BE AS| 000047F0: 4B 45 44 20 54 4F 20 45 4E 54 45 52 20 41 20 53 |KED TO ENTER A S| 00004800: 55 49 54 41 42 4C 45 20 50 52 4F 4D 50 54 2E 20 |UITABLE PROMPT. | 00004810: 20 D4 48 49 53 20 53 48 4F 55 4C 44 20 54 41 4B | .HIS SHOULD TAK| 00004820: 45 20 41 20 46 4F 52 4D 20 53 55 43 48 20 54 48 |E A FORM SUCH TH| 00004830: 41 54 20 41 4E 20 45 4E 44 20 55 53 45 52 20 52 |AT AN END USER R| 00004840: 45 50 4C 59 20 4F 46 20 D9 45 53 20 57 49 4C 4C |EPLY OF .ES WILL| 00004850: 20 43 4F 4E 54 49 4E 55 45 20 54 48 45 20 53 45 | CONTINUE THE SE| 00004860: 41 52 43 48 2E 20 20 C9 4E 20 54 48 45 20 43 41 |ARCH. .N THE CA| 00004870: 53 45 20 4F 46 20 41 20 52 45 50 4F 52 54 20 46 |SE OF A REPORT F| 00004880: 4F 52 4D 41 54 20 44 49 53 50 4C 41 59 20 54 48 |ORMAT DISPLAY TH| 00004890: 45 20 53 45 41 52 43 48 20 57 49 4C 4C 20 42 45 |E SEARCH WILL BE| 000048A0: 20 43 4F 4E 54 49 4E 55 45 44 20 41 55 54 4F 4D | CONTINUED AUTOM| 000048B0: 41 54 49 43 41 4C 4C 59 20 41 4E 44 20 59 4F 55 |ATICALLY AND YOU| 000048C0: 20 57 49 4C 4C 20 4E 4F 54 20 42 45 20 41 53 4B | WILL NOT BE ASK| 000048D0: 45 44 20 54 4F 20 53 55 50 50 4C 59 20 41 20 50 |ED TO SUPPLY A P| 000048E0: 52 4F 4D 50 54 2E 80 2A 4C 4E 31 0D C1 80 A3 D3 |ROMPT..*LN1.....| 000048F0: C1 CD D0 CC C5 80 A3 C6 CC CF D7 C3 C8 C1 D2 D4 |................| 00004900: 80 A3 D5 D3 C9 CE C7 80 A3 C2 CF D4 C8 80 A3 D4 |................| 00004910: D9 D0 C5 D3 80 A3 CF C6 80 A3 D3 C5 C1 D2 C3 C8 |................| 00004920: 20 2D 20 D4 48 45 20 50 55 52 50 4F 53 45 20 4F | - .HE PURPOSE O| 00004930: 46 20 54 48 49 53 20 45 58 41 4D 50 4C 45 20 49 |F THIS EXAMPLE I| 00004940: 53 20 54 4F 20 53 45 41 52 43 48 20 41 20 46 49 |S TO SEARCH A FI| 00004950: 4C 45 20 4F 46 20 4E 41 4D 45 53 2C 20 41 4E 44 |LE OF NAMES, AND| 00004960: 20 4F 4E 20 46 49 4E 44 49 4E 47 20 41 20 50 41 | ON FINDING A PA| 00004970: 52 54 49 43 55 4C 41 52 20 4F 4E 45 2C 20 54 4F |RTICULAR ONE, TO| 00004980: 20 53 45 41 52 43 48 20 54 48 45 20 52 45 53 54 | SEARCH THE REST| 00004990: 20 4F 46 20 54 48 45 20 46 49 4C 45 20 46 4F 52 | OF THE FILE FOR| 000049A0: 20 46 55 52 54 48 45 52 20 4F 43 43 55 52 52 45 | FURTHER OCCURRE| 000049B0: 4E 43 45 53 20 4F 46 20 54 48 41 54 20 4E 41 4D |NCES OF THAT NAM| 000049C0: 45 2E 80 2A 4C 4E 31 0D 20 20 20 20 20 31 20 20 |E..*LN1. 1 | 000049D0: 20 D3 45 54 20 50 4F 49 4E 54 45 52 20 54 4F 20 | .ET POINTER TO | 000049E0: 53 54 41 52 54 20 4F 46 20 3C CE C1 CD C5 D3 3E |START OF <.....>| 000049F0: 0D 20 20 20 20 20 32 20 20 20 D3 45 41 52 43 48 |. 2 .EARCH| 00004A00: 20 3C CE C1 CD C5 D3 3E 0D 20 20 20 20 20 33 20 | <.....>. 3 | 00004A10: 20 20 C4 49 53 50 4C 41 59 20 44 41 54 41 20 55 | .ISPLAY DATA U| 00004A20: 53 49 4E 47 20 3C CE C1 CD C5 D3 3E 20 46 49 4C |SING <.....> FIL| 00004A30: 45 0D 20 20 20 20 20 34 20 20 20 C2 41 43 4B 53 |E. 4 .ACKS| 00004A40: 54 45 50 20 50 4F 49 4E 54 45 52 20 4F 46 20 3C |TEP POINTER OF <| 00004A50: CE C1 CE C5 D3 3E 20 46 49 4C 45 0D 20 20 20 20 |.....> FILE. | 00004A60: 20 35 20 20 20 D3 45 41 52 43 48 20 3C CE C1 CD | 5 .EARCH <...| 00004A70: C5 D3 3E 20 55 53 49 4E 47 20 3C CE C1 CD C5 D3 |..> USING <.....| 00004A80: 3E 0D 20 20 20 20 20 36 20 20 20 C4 49 53 50 4C |>. 6 .ISPL| 00004A90: 41 59 20 44 41 54 41 20 55 53 49 4E 47 20 3C CE |AY DATA USING <.| 00004AA0: C1 CD C5 D3 3E 20 46 49 45 4C 44 53 0D 20 20 20 |....> FIELDS. | 00004AB0: 20 20 37 20 20 20 D4 45 52 4D 49 4E 41 54 45 80 | 7 .ERMINATE.| 00004AC0: 2A 4C 4E 31 0D CC 49 4E 45 20 31 20 4D 41 4B 45 |*LN1..INE 1 MAKE| 00004AD0: 53 20 53 55 52 45 20 54 48 41 54 20 54 48 45 20 |S SURE THAT THE | 00004AE0: 45 4E 54 49 52 45 20 46 49 4C 45 20 49 53 20 53 |ENTIRE FILE IS S| 00004AF0: 45 41 52 43 48 45 44 20 46 52 4F 4D 20 54 48 45 |EARCHED FROM THE| 00004B00: 20 42 45 47 49 4E 4E 49 4E 47 2E 80 2A 4C 4E 31 | BEGINNING..*LN1| 00004B10: 0D CC 49 4E 45 20 32 20 41 4C 4C 4F 57 53 20 59 |..INE 2 ALLOWS Y| 00004B20: 4F 55 20 54 4F 20 49 4E 50 55 54 20 54 48 45 20 |OU TO INPUT THE | 00004B30: 52 45 51 55 49 52 45 44 20 4E 41 4D 45 20 41 4E |REQUIRED NAME AN| 00004B40: 44 20 54 4F 20 53 45 41 52 43 48 20 46 4F 52 20 |D TO SEARCH FOR | 00004B50: 54 48 45 20 46 49 52 53 54 20 4F 43 43 55 52 52 |THE FIRST OCCURR| 00004B60: 45 4E 43 45 20 4F 46 20 54 48 49 53 2E 80 2A 4C |ENCE OF THIS..*L| 00004B70: 4E 31 0D CC 49 4E 45 20 33 20 44 49 53 50 4C 41 |N1..INE 3 DISPLA| 00004B80: 59 53 20 54 48 45 20 46 49 52 53 54 20 4F 43 43 |YS THE FIRST OCC| 00004B90: 55 52 52 45 4E 43 45 2C 20 54 48 45 20 C3 CF CE |URRENCE, THE ...| 00004BA0: D4 C9 CE D5 C5 80 A3 D3 C5 C1 D2 C3 C8 20 46 41 |............. FA| 00004BB0: 43 49 4C 49 54 59 20 41 4C 4C 4F 57 53 20 59 4F |CILITY ALLOWS YO| 00004BC0: 55 20 54 4F 20 43 41 52 52 59 20 4F 4E 20 55 4E |U TO CARRY ON UN| 00004BD0: 54 49 4C 20 59 4F 55 20 46 49 4E 44 20 54 48 45 |TIL YOU FIND THE| 00004BE0: 20 45 58 41 43 54 20 4E 41 4D 45 20 59 4F 55 20 | EXACT NAME YOU | 00004BF0: 57 41 4E 54 2E 80 2A 4C 4E 31 0D CC 49 4E 45 20 |WANT..*LN1..INE | 00004C00: 34 20 42 41 43 4B 53 54 45 50 53 20 54 48 45 20 |4 BACKSTEPS THE | 00004C10: 50 4F 49 4E 54 45 52 20 54 4F 20 49 4E 43 4C 55 |POINTER TO INCLU| 00004C20: 44 45 20 54 48 45 20 43 55 52 52 45 4E 54 20 52 |DE THE CURRENT R| 00004C30: 45 43 4F 52 44 20 49 4E 20 54 48 45 20 52 45 50 |ECORD IN THE REP| 00004C40: 4F 52 54 2E 80 2A 4C 4E 31 0D CC 49 4E 45 20 35 |ORT..*LN1..INE 5| 00004C50: 20 54 41 4B 45 53 20 54 48 45 20 43 55 52 52 45 | TAKES THE CURRE| 00004C60: 4E 54 20 4E 41 4D 45 20 41 53 20 41 20 53 45 41 |NT NAME AS A SEA| 00004C70: 52 43 48 20 4B 45 59 20 41 4E 44 20 53 45 41 52 |RCH KEY AND SEAR| 00004C80: 43 48 45 53 20 54 48 45 20 52 45 53 54 20 4F 46 |CHES THE REST OF| 00004C90: 20 54 48 45 20 46 49 4C 45 20 46 4F 52 20 46 55 | THE FILE FOR FU| 00004CA0: 52 54 48 45 52 20 4F 43 43 55 52 52 45 4E 43 45 |RTHER OCCURRENCE| 00004CB0: 53 20 4F 46 20 54 48 45 20 53 41 4D 45 20 4E 41 |S OF THE SAME NA| 00004CC0: 4D 45 20 41 4E 44 2E 2E 2E 80 2A 4C 4E 31 0D CC |ME AND....*LN1..| 00004CD0: 49 4E 45 20 36 20 44 49 53 50 4C 41 59 53 20 54 |INE 6 DISPLAYS T| 00004CE0: 48 45 4D 2C 20 55 53 49 4E 47 20 54 48 45 20 C3 |HEM, USING THE .| 00004CF0: CF CE D4 C9 CE D5 C5 80 A3 D3 C5 C1 D2 C3 C8 20 |............... | 00004D00: 46 41 43 49 4C 49 54 59 20 54 4F 20 4B 45 45 50 |FACILITY TO KEEP| 00004D10: 20 53 45 41 52 43 48 49 4E 47 2E 20 20 C9 46 20 | SEARCHING. .F | 00004D20: 59 4F 55 20 44 4F 20 4E 4F 54 20 44 49 53 50 4C |YOU DO NOT DISPL| 00004D30: 41 59 20 49 4E 20 D2 45 50 4F 52 54 20 46 4F 52 |AY IN .EPORT FOR| 00004D40: 4D 41 54 2C 20 54 48 45 20 45 4E 44 20 55 53 45 |MAT, THE END USE| 00004D50: 52 20 57 49 4C 4C 20 42 45 20 41 53 4B 45 44 20 |R WILL BE ASKED | 00004D60: 54 48 45 20 22 C3 4F 4E 54 49 4E 55 45 20 53 45 |THE ".ONTINUE SE| 00004D70: 41 52 43 48 20 3F 22 20 51 55 45 53 54 49 4F 4E |ARCH ?" QUESTION| 00004D80: 20 41 46 54 45 52 20 45 41 43 48 20 44 49 53 50 | AFTER EACH DISP| 00004D90: 4C 41 59 2E 20 20 C9 46 20 59 4F 55 20 44 49 53 |LAY. .F YOU DIS| 00004DA0: 50 4C 41 59 20 49 4E 20 52 45 50 4F 52 54 20 46 |PLAY IN REPORT F| 00004DB0: 4F 52 4D 41 54 2C 20 54 48 45 20 53 45 41 52 43 |ORMAT, THE SEARC| 00004DC0: 48 20 57 49 4C 4C 20 42 45 20 43 4F 4E 54 49 4E |H WILL BE CONTIN| 00004DD0: 55 45 44 20 41 55 54 4F 4D 41 54 49 43 41 4C 4C |UED AUTOMATICALL| 00004DE0: 59 2E 80 2A 4C 4E 31 0D C6 C3 CD 20 CF D0 D4 C9 |Y..*LN1.... ....| 00004DF0: CF CE 20 31 37 20 2D 20 CD C5 D2 C7 C5 20 C6 C9 |.. 17 - ..... ..| 00004E00: CC C5 20 C6 C9 C5 CC C4 D3 0D C6 CC CF D7 C3 C8 |.. .............| 00004E10: C1 D2 D4 80 A3 CC C9 CE C5 80 A3 D7 D2 C9 D4 D4 |................| 00004E20: C5 CE 80 2A 4C 4E 31 0D 20 20 20 20 20 D4 41 4B |...*LN1. .AK| 00004E30: 45 20 46 49 45 4C 44 53 20 46 52 4F 4D 20 3C C6 |E FIELDS FROM <.| 00004E40: C9 D2 D3 D4 C6 C9 CC C5 3E 20 41 4E 44 20 55 53 |........> AND US| 00004E50: 45 20 49 4E 20 3C D3 C5 C3 CF CE C4 C6 C9 CC C5 |E IN <..........| 00004E60: 3E 80 2A 4C 4E 31 0D D0 D5 D2 D0 CF D3 C5 20 2D |>.*LN1........ -| 00004E70: 20 D4 4F 20 52 45 50 4C 41 43 45 20 54 48 45 20 | .O REPLACE THE | 00004E80: 56 41 4C 55 45 53 20 49 4E 20 53 45 4C 45 43 54 |VALUES IN SELECT| 00004E90: 45 44 20 46 49 45 4C 44 53 20 4F 46 20 3C D3 C5 |ED FIELDS OF <..| 00004EA0: C3 CF CE C4 C6 C9 CC C5 3E 20 57 49 54 48 20 56 |........> WITH V| 00004EB0: 41 4C 55 45 53 20 54 41 4B 45 4E 20 46 52 4F 4D |ALUES TAKEN FROM| 00004EC0: 20 53 45 4C 45 43 54 45 44 20 46 49 45 4C 44 53 | SELECTED FIELDS| 00004ED0: 20 4F 46 20 3C C6 C9 D2 D3 D4 C6 C9 CC C5 3E 2E | OF <.........>.| 00004EE0: 80 2A 4C 4E 31 0D C6 CC CF D7 C3 C8 C1 D2 D4 C9 |.*LN1...........| 00004EF0: CE C7 20 2D 20 C4 55 52 49 4E 47 20 46 4C 4F 57 |.. - .URING FLOW| 00004F00: 43 48 41 52 54 49 4E 47 2C 20 53 49 4D 50 4C 59 |CHARTING, SIMPLY| 00004F10: 20 53 45 4C 45 43 54 20 C6 C3 CD 20 4F 50 54 49 | SELECT ... OPTI| 00004F20: 4F 4E 20 31 37 20 41 4E 44 20 59 4F 55 20 57 49 |ON 17 AND YOU WI| 00004F30: 4C 4C 20 42 45 20 41 53 4B 45 44 3A 80 2A 4C 4E |LL BE ASKED:.*LN| 00004F40: 31 0D 20 20 20 20 20 D4 41 4B 45 20 46 49 45 4C |1. .AKE FIEL| 00004F50: 44 53 20 46 52 4F 4D 20 2E 2E 20 41 4E 44 20 55 |DS FROM .. AND U| 00004F60: 53 45 20 49 4E 20 2E 2E 80 2A 4C 4E 31 0D C5 4E |SE IN ...*LN1..N| 00004F70: 54 45 52 20 54 48 45 20 41 50 50 52 4F 50 52 49 |TER THE APPROPRI| 00004F80: 41 54 45 20 46 49 4C 45 20 4E 55 4D 42 45 52 53 |ATE FILE NUMBERS| 00004F90: 20 46 52 4F 4D 20 54 48 45 20 4C 49 53 54 20 44 | FROM THE LIST D| 00004FA0: 49 53 50 4C 41 59 45 44 2E 80 2A 4C 4E 31 0D D0 |ISPLAYED..*LN1..| 00004FB0: D2 CF C7 D2 C1 CD 80 A3 C3 CF C4 C9 CE C7 20 2D |.............. -| 00004FC0: 20 D9 4F 55 20 57 49 4C 4C 20 53 45 45 20 41 20 | .OU WILL SEE A | 00004FD0: 46 49 45 4C 44 20 4C 49 53 54 20 4F 46 20 54 48 |FIELD LIST OF TH| 00004FE0: 45 20 54 57 4F 20 46 49 4C 45 53 20 43 4F 4E 43 |E TWO FILES CONC| 00004FF0: 45 52 4E 45 44 2C 20 54 4F 47 45 54 48 45 52 20 |ERNED, TOGETHER | 00005000: 57 49 54 48 20 54 48 45 20 50 52 4F 4D 50 54 3A |WITH THE PROMPT:| 00005010: 80 2A 4C 4E 31 0D 20 20 20 20 20 D4 41 4B 45 20 |.*LN1. .AKE | 00005020: 46 52 4F 4D 20 46 49 45 4C 44 20 C1 2E 2E 20 41 |FROM FIELD ... A| 00005030: 4E 44 20 55 53 45 20 49 4E 20 46 49 45 4C 44 20 |ND USE IN FIELD | 00005040: C2 2E 2E 80 2A 4C 4E 31 0D C1 2E 2E 20 41 4E 44 |....*LN1.... AND| 00005050: 20 C2 2E 2E 20 41 52 45 20 54 48 45 20 46 49 52 | ... ARE THE FIR| 00005060: 53 54 20 4C 45 54 54 45 52 53 20 4F 46 20 54 48 |ST LETTERS OF TH| 00005070: 45 20 46 49 45 4C 44 20 53 45 4C 45 43 54 49 4F |E FIELD SELECTIO| 00005080: 4E 20 43 4F 44 45 53 20 46 4F 52 20 54 48 45 20 |N CODES FOR THE | 00005090: 54 57 4F 20 46 49 4C 45 53 20 43 4F 4E 43 45 52 |TWO FILES CONCER| 000050A0: 4E 45 44 20 2D 20 54 48 45 53 45 20 43 4F 55 4C |NED - THESE COUL| 000050B0: 44 2C 20 4F 46 20 43 4F 55 52 53 45 2C 20 42 4F |D, OF COURSE, BO| 000050C0: 54 48 20 42 45 20 54 48 45 20 53 41 4D 45 20 46 |TH BE THE SAME F| 000050D0: 49 4C 45 2E 80 2A 4C 4E 31 0D C1 4E 53 57 45 52 |ILE..*LN1..NSWER| 000050E0: 20 41 43 43 4F 52 44 49 4E 47 4C 59 20 41 4E 44 | ACCORDINGLY AND| 000050F0: 2C 20 41 46 54 45 52 20 43 4F 4E 46 49 52 4D 49 |, AFTER CONFIRMI| 00005100: 4E 47 20 59 4F 55 52 20 53 45 4C 45 43 54 49 4F |NG YOUR SELECTIO| 00005110: 4E 20 59 4F 55 20 57 49 4C 4C 20 42 45 20 41 53 |N YOU WILL BE AS| 00005120: 4B 45 44 3A 80 2A 4C 4E 31 0D 20 20 20 20 20 C1 |KED:.*LN1. .| 00005130: 4E 59 20 4D 4F 52 45 20 46 49 45 4C 44 53 20 54 |NY MORE FIELDS T| 00005140: 4F 20 45 51 55 41 54 45 80 2A 4C 4E 31 0D D9 4F |O EQUATE.*LN1..O| 00005150: 55 20 4D 41 59 20 43 4F 4E 54 49 4E 55 45 20 54 |U MAY CONTINUE T| 00005160: 48 49 53 20 50 52 4F 43 45 53 53 20 4F 46 20 49 |HIS PROCESS OF I| 00005170: 4E 46 49 4E 49 54 55 4D 20 42 59 20 41 4E 53 57 |NFINITUM BY ANSW| 00005180: 45 52 49 4E 47 20 D9 45 53 2C 41 4E 53 57 45 52 |ERING .ES,ANSWER| 00005190: 49 4E 47 20 CE 4F 20 54 41 4B 45 53 20 59 4F 55 |ING .O TAKES YOU| 000051A0: 20 4F 4E 20 54 4F 20 54 48 45 20 4E 45 58 54 20 | ON TO THE NEXT | 000051B0: 46 4C 4F 57 43 48 41 52 54 20 4C 49 4E 45 2E 80 |FLOWCHART LINE..| 000051C0: 2A 4C 4E 31 0D C6 C3 CD 20 CF D0 D4 C9 CF CE 20 |*LN1.... ...... | 000051D0: 31 38 20 2D 20 D2 C5 C3 CF D2 C4 20 C3 C8 C5 C3 |18 - ...... ....| 000051E0: CB 0D C6 CC CF D7 C3 C8 C1 D2 D4 80 A3 CC C9 CE |................| 000051F0: C5 80 A3 D7 D2 C9 D4 D4 C5 CE 80 2A 4C 4E 31 0D |...........*LN1.| 00005200: 20 20 20 20 20 C4 49 53 50 4C 41 59 20 41 20 52 | .ISPLAY A R| 00005210: 45 43 4F 52 44 20 46 4F 52 20 43 48 45 43 4B 49 |ECORD FOR CHECKI| 00005220: 4E 47 20 46 52 4F 4D 20 3C C6 C9 CC C5 CE C1 CD |NG FROM <.......| 00005230: C5 28 D3 29 3E 80 2A 4C 4E 31 0D D0 D5 D2 D0 CF |.(.)>.*LN1......| 00005240: D3 C5 20 2D 20 D4 4F 20 41 4C 4C 4F 57 20 54 48 |.. - .O ALLOW TH| 00005250: 45 20 45 4E 44 20 55 53 45 52 20 54 4F 20 45 44 |E END USER TO ED| 00005260: 49 54 20 54 48 45 20 52 45 43 4F 52 44 53 20 43 |IT THE RECORDS C| 00005270: 55 52 52 45 4E 54 4C 59 20 48 45 4C 44 20 49 4E |URRENTLY HELD IN| 00005280: 20 4D 45 4D 4F 52 59 2E 80 2A 4C 4E 31 0D 20 CE | MEMORY..*LN1. .| 00005290: CF D4 C5 3A 20 C9 4E 20 45 46 46 45 43 54 2C 20 |...: .N EFFECT, | 000052A0: 41 20 52 45 43 4F 52 44 20 43 48 45 43 4B 20 49 |A RECORD CHECK I| 000052B0: 53 20 41 20 43 4F 4D 42 49 4E 41 54 49 4F 4E 20 |S A COMBINATION | 000052C0: 4F 46 20 C6 C3 CD 20 4F 50 54 49 4F 4E 20 37 20 |OF ... OPTION 7 | 000052D0: 57 49 54 48 20 4F 50 54 49 4F 4E 20 36 20 57 49 |WITH OPTION 6 WI| 000052E0: 54 48 20 41 20 43 4F 52 52 45 43 54 49 4F 4E 20 |TH A CORRECTION | 000052F0: 46 41 43 49 4C 49 54 59 2E 20 20 D3 49 4E 43 45 |FACILITY. .INCE| 00005300: 20 49 54 20 49 53 20 4F 46 54 45 4E 20 55 53 45 | IT IS OFTEN USE| 00005310: 44 20 49 4E 20 43 4F 4E 4A 55 4E 43 54 49 4F 4E |D IN CONJUNCTION| 00005320: 20 57 49 54 48 20 41 20 53 45 41 52 43 48 2C 20 | WITH A SEARCH, | 00005330: 59 4F 55 20 53 48 4F 55 4C 44 20 42 45 41 52 20 |YOU SHOULD BEAR | 00005340: 49 4E 20 4D 49 4E 44 20 54 48 41 54 20 54 48 45 |IN MIND THAT THE| 00005350: 20 44 49 53 50 4C 41 59 20 44 41 54 41 20 50 41 | DISPLAY DATA PA| 00005360: 52 54 20 4F 46 20 54 48 49 53 20 4F 50 54 49 4F |RT OF THIS OPTIO| 00005370: 4E 20 57 49 4C 4C 20 41 43 54 49 56 41 54 45 20 |N WILL ACTIVATE | 00005380: 54 48 45 20 22 C3 4F 4E 54 49 4E 55 45 20 53 45 |THE ".ONTINUE SE| 00005390: 41 52 43 48 22 20 46 41 43 49 4C 49 54 59 2E 80 |ARCH" FACILITY..| 000053A0: 2A 4C 4E 31 0D D3 C1 CD D0 CC C5 80 A3 C6 CC CF |*LN1............| 000053B0: D7 C3 C8 C1 D2 D4 3A 80 2A 4C 4E 31 0D 20 20 20 |......:.*LN1. | 000053C0: 20 20 31 20 20 20 D3 45 54 20 50 4F 49 4E 54 45 | 1 .ET POINTE| 000053D0: 52 20 54 4F 20 53 54 41 52 54 20 4F 46 20 3C C6 |R TO START OF <.| 000053E0: C9 CC C5 CE C1 CD C5 3E 0D 20 20 20 20 20 32 20 |.......>. 2 | 000053F0: 20 20 D3 45 41 52 43 48 20 3C C6 C9 CC C5 CE C1 | .EARCH <......| 00005400: CD C5 3E 0D 20 20 20 20 20 33 20 20 20 C4 49 53 |..>. 3 .IS| 00005410: 50 4C 41 59 20 41 20 52 45 43 4F 52 44 20 46 4F |PLAY A RECORD FO| 00005420: 52 20 43 48 45 43 4B 49 4E 47 20 46 52 4F 4D 20 |R CHECKING FROM | 00005430: 3C C6 C9 CC C5 CE C1 CD C5 3E 0D 20 20 20 20 20 |<........>. | 00005440: 34 20 20 20 D3 45 54 20 50 4F 49 4E 54 45 52 20 |4 .ET POINTER | 00005450: 54 4F 20 50 52 45 56 49 4F 55 53 20 52 45 43 4F |TO PREVIOUS RECO| 00005460: 52 44 20 57 49 54 48 49 4E 20 3C C6 C9 CC C5 CE |RD WITHIN <.....| 00005470: C1 CD C5 3E 0D 20 20 20 20 20 35 20 20 20 D7 52 |...>. 5 .R| 00005480: 49 54 45 20 54 4F 20 3C C6 C9 CC C5 CE C1 CD C5 |ITE TO <........| 00005490: 3E 0D 20 20 20 20 20 36 20 20 20 C1 53 4B 20 55 |>. 6 .SK U| 000054A0: 53 45 52 20 22 C1 CD C5 CE C4 80 A3 C1 CE CF D4 |SER "...........| 000054B0: C8 C5 D2 80 A3 D2 C5 C3 CF D2 C4 22 3A 20 42 52 |...........": BR| 000054C0: 41 4E 43 48 20 49 46 20 D9 45 53 20 54 4F 20 31 |ANCH IF .ES TO 1| 000054D0: 80 2A 4C 4E 31 0D CC 49 4E 45 53 20 31 20 41 4E |.*LN1..INES 1 AN| 000054E0: 44 20 32 20 46 49 4E 44 20 41 4E 44 20 4C 4F 41 |D 2 FIND AND LOA| 000054F0: 44 20 54 48 45 20 52 45 43 4F 52 44 20 4F 46 20 |D THE RECORD OF | 00005500: 49 4E 54 45 52 45 53 54 2E 80 2A 4C 4E 31 0D CC |INTEREST..*LN1..| 00005510: 49 4E 45 20 33 20 4F 46 46 45 52 53 20 54 48 45 |INE 3 OFFERS THE| 00005520: 20 45 4E 44 20 55 53 45 52 20 54 48 45 20 45 44 | END USER THE ED| 00005530: 49 54 49 4E 47 20 46 41 43 49 4C 49 54 49 45 53 |ITING FACILITIES| 00005540: 20 4E 45 45 44 45 44 20 54 4F 20 41 4D 45 4E 44 | NEEDED TO AMEND| 00005550: 20 54 48 45 20 52 45 43 4F 52 44 2E 80 2A 4C 4E | THE RECORD..*LN| 00005560: 31 0D CC 49 4E 45 53 20 34 20 41 4E 44 20 35 20 |1..INES 4 AND 5 | 00005570: 4D 41 4B 45 20 53 55 52 45 20 54 48 41 54 20 54 |MAKE SURE THAT T| 00005580: 48 45 20 55 50 44 41 54 45 44 20 52 45 43 4F 52 |HE UPDATED RECOR| 00005590: 44 20 49 53 20 52 45 54 55 52 4E 45 44 20 54 4F |D IS RETURNED TO| 000055A0: 20 54 48 45 20 53 41 4D 45 20 53 4C 4F 54 20 49 | THE SAME SLOT I| 000055B0: 4E 20 49 54 53 20 46 49 4C 45 20 54 48 41 54 20 |N ITS FILE THAT | 000055C0: 49 54 20 43 41 4D 45 20 46 52 4F 4D 2E 80 2A 4C |IT CAME FROM..*L| 000055D0: 4E 31 0D C6 CC CF D7 C3 C8 C1 D2 D4 C9 CE C7 20 |N1............. | 000055E0: 2D 20 C4 55 52 49 4E 47 20 46 4C 4F 57 43 48 41 |- .URING FLOWCHA| 000055F0: 52 54 49 4E 47 2C 20 4A 55 53 54 20 53 45 4C 45 |RTING, JUST SELE| 00005600: 43 54 20 54 48 49 53 20 4F 50 54 49 4F 4E 20 41 |CT THIS OPTION A| 00005610: 4E 44 20 53 45 4C 45 43 54 20 54 48 45 20 46 49 |ND SELECT THE FI| 00005620: 4C 45 53 20 54 4F 20 53 55 50 50 4C 59 20 54 48 |LES TO SUPPLY TH| 00005630: 45 20 52 45 43 4F 52 44 53 2E 80 2A 4C 4E 31 0D |E RECORDS..*LN1.| 00005640: D0 D2 CF C7 D2 C1 CD 80 A3 C3 CF C4 C9 CE C7 20 |............... | 00005650: 2D 20 D3 49 4E 43 45 20 54 48 45 20 45 4E 44 20 |- .INCE THE END | 00005660: 55 53 45 52 20 49 53 20 47 4F 49 4E 47 20 54 4F |USER IS GOING TO| 00005670: 20 42 45 20 44 4F 49 4E 47 20 41 4C 4C 20 54 48 | BE DOING ALL TH| 00005680: 49 53 20 4F 4E 20 54 48 45 20 53 43 52 45 45 4E |IS ON THE SCREEN| 00005690: 20 59 4F 55 20 53 48 4F 55 4C 44 20 4E 4F 54 20 | YOU SHOULD NOT | 000056A0: 42 45 20 54 4F 4F 20 53 55 52 50 52 49 53 45 44 |BE TOO SURPRISED| 000056B0: 20 54 4F 20 53 45 45 20 54 48 45 20 51 55 45 53 | TO SEE THE QUES| 000056C0: 54 49 4F 4E 20 C3 CC C5 C1 D2 80 A3 D3 C3 D2 C5 |TION ...........| 000056D0: C5 CE 80 A3 C2 C5 C6 CF D2 C5 80 A3 D2 C5 C3 CF |................| 000056E0: D2 C4 80 A3 C3 C8 C5 C3 CB 20 46 4F 4C 4C 4F 57 |......... FOLLOW| 000056F0: 45 44 20 42 59 20 54 48 45 20 53 43 52 45 45 4E |ED BY THE SCREEN| 00005700: 20 44 45 53 49 47 4E 20 4D 45 4E 55 2E 20 20 C4 | DESIGN MENU. .| 00005710: 45 53 49 47 4E 20 41 20 53 55 49 54 41 42 4C 45 |ESIGN A SUITABLE| 00005720: 20 53 43 52 45 45 4E 20 46 4F 52 20 44 49 53 50 | SCREEN FOR DISP| 00005730: 4C 41 59 49 4E 47 20 54 48 45 20 52 45 43 4F 52 |LAYING THE RECOR| 00005740: 44 20 41 4E 44 20 54 48 45 4E 20 41 4E 53 57 45 |D AND THEN ANSWE| 00005750: 52 20 54 48 45 20 55 53 55 41 4C 20 51 55 45 53 |R THE USUAL QUES| 00005760: 54 49 4F 4E 53 20 28 41 46 54 45 52 20 55 53 49 |TIONS (AFTER USI| 00005770: 4E 47 20 4F 50 54 49 4F 4E 20 38 29 20 4F 46 20 |NG OPTION 8) OF | 00005780: 54 48 45 20 53 43 52 45 45 4E 20 44 45 53 49 47 |THE SCREEN DESIG| 00005790: 4E 20 4D 45 4E 55 2C 20 49 4E 43 4C 55 44 49 4E |N MENU, INCLUDIN| 000057A0: 47 20 C5 CE D4 C5 D2 80 A3 C3 CF D2 D2 C5 C3 D4 |G ..............| 000057B0: C9 CF CE 80 A3 D0 D2 CF CD D0 D4 20 54 4F 20 45 |........... TO E| 000057C0: 4E 44 20 43 4F 44 49 4E 47 20 4F 46 20 54 48 49 |ND CODING OF THI| 000057D0: 53 20 4C 49 4E 45 2E 80 2A 4C 4E 31 0D CE CF D4 |S LINE..*LN1....| 000057E0: C5 3A 20 C9 46 20 41 20 53 45 41 52 43 48 20 48 |.: .F A SEARCH H| 000057F0: 41 53 20 42 45 45 4E 20 55 53 45 44 2C 20 59 4F |AS BEEN USED, YO| 00005800: 55 20 57 49 4C 4C 20 42 45 20 41 53 4B 45 44 20 |U WILL BE ASKED | 00005810: C1 C4 C4 80 A3 C3 CF CE D4 C9 CE D5 C5 80 A3 D3 |................| 00005820: C5 C1 D2 C3 C8 80 A3 C6 C1 C3 C9 CC C9 D4 D9 20 |............... | 00005830: 41 46 54 45 52 20 54 48 45 20 51 55 45 53 54 49 |AFTER THE QUESTI| 00005840: 4F 4E 20 D4 C9 C4 D9 80 A3 D3 C3 D2 C5 C5 CE 2E |ON .............| 00005850: 20 20 C9 46 20 59 4F 55 20 41 4E 53 57 45 52 20 | .F YOU ANSWER | 00005860: D9 45 53 20 59 4F 55 20 57 49 4C 4C 20 42 45 20 |.ES YOU WILL BE | 00005870: 41 53 4B 45 44 20 54 4F 20 45 4E 54 45 52 20 41 |ASKED TO ENTER A| 00005880: 20 53 55 49 54 41 42 4C 45 20 45 4E 44 20 55 53 | SUITABLE END US| 00005890: 45 52 20 50 52 4F 4D 50 54 20 57 49 54 48 20 CD |ER PROMPT WITH .| 000058A0: C5 D3 D3 C1 C7 C5 80 A3 D2 C5 D1 D5 C9 D2 C5 C4 |................| 000058B0: 2E 80 2A 4C 4E 31 0D C6 C3 CD 20 CF D0 D4 C9 CF |..*LN1.... .....| 000058C0: CE 20 31 39 20 2D 20 C3 CC C5 C1 D2 20 C1 20 C6 |. 19 - ..... . .| 000058D0: C9 CC C5 0D C6 CC CF D7 C3 C8 C1 D2 D4 80 A3 CC |................| 000058E0: C9 CE C5 80 A3 D7 D2 C9 D4 D4 C5 CE 80 2A 4C 4E |.............*LN| 000058F0: 31 0D |1. |
.*NB"9THE LAST ONE"..*PL66:TL60:P#81..*H
D2:THE LAST ONE,,PAGE.#..*JU1..*LM5:RM75
.DATE FIELDS ARE SORTED SO THAT THEY ARE
IN CHRONOLOGICAL ORDER (THE WAY GOD MAD
E THEM IN THE FIRST PLACE), IE., THE 1ST
JANUARY COMES BEFORE 31ST DECEMBER IN A
N ASCENDING SORT WITHIN A SINGLE YEAR.
DAYS, MONTHS AND YEARS ARE SORTED CORREC
TLY WHETHER IN ENGLISH OF US FORMAT..*LN
1.FINALLY, IT IS WORTH CONSIDERING ALTER
NATIVES TO THE USE OF THE SORT. IT WAS
INCLUDED BY POPULAR DEMAND, BUT THE SING
LE TYPE OF SORT (A SHELL SORT) KNOWN TO
TLO CAN NEVER REALLY BE PERFECT FOR EVER
Y JOB. A CAREFULLY THOUGHT OUT SEARCH W
ILL OFTEN PRODUCE THE SAME EFFECT AS A S
ORT IN FAR LESS TIME..*LN1.IF YOU MUST S
ORT, SORT IN SMALL BATCHES AS YOU GO ALO
NG OR SORT ONLY AN INDEX FILE, LEAVING T
HE MAIN FILE UNCHANGED BUT EASILY REFERE
NCED..*LN1.END..PROGRAM - SORTING A LARG
E FILE OF MANY RECORDS CAN BE A VERY SLO
W BUSINESS. A FILE OF 500 RECORDS OF PE
RHAPS A DOZEN LARGISH FIELDS EACH WILL S
TILL TAKE UP TO 20 MINUTES TO SORT IF TH
E ORIGINAL ORDER WAS COMPLETELY RANDOM..
*LN1.FCM OPTION 11 - CLEAR DATA.*LN1.FLO
WCHART..LINES..WRITTEN.*LN1. CLEAR A
LL FIELDS.OR. CLEAR SELECTED FIELDS.
*LN1.PURPOSE - TO EMPTY FIELDS OF ANY KI
ND OF ANY DATA HELD IN THEM. FILE RECOR
DS CURRENTLY HELD IN THE COMPUTER WILL A
LSO BE CLEARED BUT THE DISK FILE ITSELF
WILL NOT BE TOUCHED IF YOU WANT TO CLEAR
A DISK FILE..*LN1.FLOWCHARTING - ON SEL
ECTING FCM OPTION 11 YOU WILL BE OFFERED
A SUB MENU:.*LN1. C
LEAR ALL FIELDS.......<1>.
CLEAR SELECTED FIELDS..<2>.
RETURN TO F.C.M........<3
>.*LN1.TO CLEAR ALL THE DATA FIELDS IN U
SE, SELECT SUB OPTION 1. ALL NUMERIC FI
ELDS WILL BE CHANGED TO 0, ALL ALPHA FIE
LDS WILL BE EMPTIED (TO "" - FOR BASIC B
UFFS). THE RANDOM NUMBER RD (IF SELECTE
D) WILL BE SET TO ZERO. THE FIELDS P (P
AGE COUNTER) AND LC (LINE COUNTER) WILL
NOT BE CLEARED. YOUR OWN VARIABLES, DEF
INED IN CALCULATIONS (AA TO ZZ) WILL NOT
BE CLEARED..*LN1.IF YOU WANT TO CLEAR S
ELECTED FIELDS ONLY, SELECT SUB OPTION 2
, THE FIELDS TO BE CLEARED WILL BE SELEC
TED FROM A FULL FIELD LIST DURING PROGRA
M CODING..*LN1.PROGRAM..CODING - CLEAR..
ALL..FIELDS REQUIRES NO ADDITIIONAL INFO
RMATION DURING PROGRAM CODING. CLEAR..S
ELECTED..FIELDS WILL LEAD TO A DISPLAY O
F ALL THE AVAILABLE FIELDS. YOU WILL BE
ASKED ENTER..CODE..OF..FIELD..TO..CLEAR
AND YOU SHOULD USE THE USUAL FIELD SEL
ECTION ROUTINE TO TELL TLO WHICH FIELD I
S TO BE CLEARED. ANSWER YES TO IS..THIS
..CORRECT (Y/N) AND YOU WILL BE ASKED AN
YMORE..FIELDS..TO..CLEAR..(Y/N), CONTINU
E THIS PROCESS UNTIL YOU HAVE FINISHED..
*LN1.END..ROUTINE - IF YOU ANSWER NO TO
ANY..MORE..FIELDS..TO..CLEAR (Y/N), THE
NEXT FLOWCHART LINE WILL BE CALLED IN FO
R CODING..*LN1.FCM OPTION 12 - SET FILE
POINTERS.FLOWCHART..LINES..WRITTEN:.*LN1
. SET POINTER TO END OR <FILENAME>.
SET POINTER TO START OF <FILENAME>.
SET POINTER TO PREVIOUS RECORD WITHI
N <FILENAME>. SET POINTER OF <FIRSTF
ILE> FROM A FIELD IN <SECONDFILE>. S
ET A FIELD IN <SECONDFILE> TO THE POINTE
R OF <FIRSTFILE>.*LN1.PURPOSE - TO MANIP
ULATE A FILE POINTER SO THAT YOU CAN DEA
L WITH A SPECIFIC RECORD IN A FILE. THE
FILE POINTER OPTIONS FALL INTO TWO MAIN
GROUPS; OPTIONS 1 (SET POINTER TO END O
F FILE), 2 (SET POINTER TO START OF FILE
) AND 3 (SET POINTER TO PREVIOUS RECORD
IN A FILE) ARE ALL FAIRLY STRAIGHTFORWAR
D. OPTION 4 (SET POINTER TO THE VALUE H
ELD IN A FILE FIELD) AND 5 (LOAD A CURRE
NT POINTER VALUE INTO A FILE FIELD) ARE
A LITTLE MORE COMPLICATED BUT WILL REWAR
D THE USER WHO TAKES THE TROUBLE TO GET
TO GRIPS WITH THEM..*LN1.FLOWCHARTING -
SELECT FCM OPTION 12 (SET POINTERS) AND
A SUB MENU ALLOWS YOU TO CHOOSE THE POIN
TER ACTION REQUIRED. SELECT THE REQUIRE
D SUB OPTION AND SELECT HE REQUIRED FILE
(S) FROM THE LIST WHICH WILL BE DISPLAYE
D..*LN1.NOTE: A FILE POINTER AND AN END
OF FILE MARKER CAN EACH TAKE A MAXIMUM V
ALUE OF 32767. FOR THE BASIC BUFFS, THE
POINTERS ARE HELD IN VARIABLES CALLED P
(1), P(2) (AND SO ON, UP TO P(9), FOR EA
CH OF THE NINE FILES THAT MAY BE USED BY
A SINGLE PROGRAM). THE ACTUAL CODE USE
D FOR THIS VARIABLE IS GIVEN IN THE PRIN
TED DOCUMENTATION. YOU MAY, OF COURSE,
PERFORM FURTHER CALCULATIONS (FCM OPTION
9) ON THIS VARIABLE TO ALLOW YOU TO CRE
ATE SEQUENTIAL AND OTHER FILE STRUCTURES
NOT NORMALLY USED BY TLO..*LN1.SUB-OPTI
ON 1 - SET..POINTER..TO..END..OF..FILE.P
URPOSE.*LN1.TO POINT TO THE END OF A FIL
E, USUALLY SO THAT A RECORD CAN BE ADDED
IN SUCH A WAY THAT IT WILL NOT OVERWRIT
E EXISTING MATERIAL..*LN1.NOTES: END OF
FILE IS OFTEN ABBREVIATED TO EOF. IN AN
EMPTY FILE, I.E. ONE WITH NO RECORDS YE
T STORED IN IT, THE END OF FILE IS STILL
AT THE BEGINNING OF THE FILE. THE POIN
TER WILL (WHEN SET TO EOF) ALWAYS POINT
AT THE FIRST FREE SPACE IN THAT FILE..*L
N1.ONCE THE POINTER HAS BEEN TOLD TO GO
TO THE END OF A FILE, IT WILL ALWAYS POI
NT TO THE END, IT DOES NOT NEED TO BE RE
POSITIONED EACH TIME A RECORD IS ADDED T
O THE FILE, THIS RE-POSITIONING TAKES PL
ACE AUTOMATICALLY. EOF IS THE DEFAULT PO
SITION OF THE POINTER. IF NO POSITION H
AS BEEN SPECIFIED YOU WILL ALWAYS FIND A
POINTER POINTING TO THE END OF ITS FILE
. SAMPLE FLOWCHART:.*LN1. 1 SET P
OINTER TO END OF <FILENAME>. 2 KEY
BOARD INPUT USING <FILENAME> FIELDS.
3 WRITE TO <FILENAME>. 4 ASK US
ER "ADD..ANOTHER..RECORD?" :BRANCH IF YE
S TO 2.*LN1.LINE 1 TELLS US THAT WE ARE
GOING TO ADD RECORDS CONTINUOUSLY TO THE
END OF THE FILE, IMMEDIATELY AFTER THE
LAST ENTRY. THE END USER TYPES IN HIS R
ECORD (LINE 2) WHICH IS THEN ADDED TO TH
E END OF THE FILE (LINE 3)..*LN1.THE POI
NTER MOVES TO THE NEW EOF SINCE IT WAS A
UTOMATICALLY ADVANCED BY THE FILE WRITE
IN LINE 3, SO LINE 4 ONLY BRANCHES BACK
AS FAR AS THE KEYBOARD INPUT..*LN1.PROGR
AM..CODING - NONE. IT'S ALL DONE FOR YO
U!.*LN1.SUB-OPTION..2 - SET..POINTER..TO
..START..OF..FILE.SAMPLE..FLOWCHART.*LN1
. 1 SET POINTER TO START OF <FILEN
AME>. 2 SEARCH <FILENAME>. 3
DISPLAY DATA USING <FILENAME> FIELDS.
4 ASK USER "ANOTHER..SEARCH?":BRANC
H IF YES TO 1.*LN1.NOTE.*LN1.THIS TIME,
THE POINTER WILL NOT BE LEFT POINTING PE
RMANENTLY AT THE START OF THE FILE. ONC
E SET, THE SEARCH (LINE 2) WILL AUTOMATI
CALLY MOVE THE POINTER FORWARD BY ONE RE
CORD EACH TIME THE COMPUTER EXAMINES A R
ECORD (TO SEE IF IT IS WHAT'S BEING SEAR
CHED FOR)..*LN1.A SEARCH ALWAYS STARTS F
ROM THE CURRENT POINTER POSITION AND CON
TINUES TO THE END OF THE FILE IF NOTHING
IS FOUND - LEAVING THE POINTER EITHER A
T THE POSITION FOLLOWING THE RECORD FOUN
D OR (IF NOTHING WAS FOUND) AT THE EOF.
IT WAS RE-SET IN LINE 1 TO MAKE SURE TH
AT THE ENTIRE FILE WAS SEARCHED RIGHT FR
OM THE BEGINNING..*LN1.PROGRAM CODING.*L
N1.NONE. IT'S ALL DONE FOR YOU..*LN1.SUB
-OPTION 3 - SET POINTER TO PREVIOUS RECO
RD.*LN3.PURPOSE.*LN1.TO MOVE THE POINTER
BACK BY ONE RECORD..*LN1.SAMPLE FLOWCHA
RT.*LN1. 1 SET POINTER TO START OF
<FILE..NAME>. 2 SEARCH <FILE..NAM
E>. 3 DISPLAY A RECORD FOR CHECKIN
G FROM <FILE..NAME>. 4 SET POINTER
TO PREVIOUS RECORD WITHIN <FILE..NAME>.
5 WRITE TO <FILE..NAME>. 6
ASK USER "UPDATE..ANOTHER..ONE?": BRANCH
IF YES TO 1.*LN1.THE POINTER IS SET TO
THE START OF THE FILE (LINE 1) AND THE S
EARCH READS THE FIRST VALID RECORD ENCOU
NTERED INTO THE COMPUTER'S MEMORY (LINE
2). THE POINTER WILL AUTOMATICALLY MOVE
ON TO POINT AT THE NEXT RECORD..*LN1.LI
NE 3 (A RECORD CHECK) ALLOWS THE USER TO
AMEND DETAILS OF THE RECORD ONCE IT HAS
BEEN MOVED FROM THE DISK TO RAM (MEMORY
)..*LN1.LINE 4 NOW BACKSTEPS THE POINTER
BY ONE RECORD SO THAT IT IS AGAIN POINT
ING AT THE POSITION OF THE RECORD WHICH
HAS JUST BEEN READ AND UPDATED..*LN1.LIN
E 5 WRITES THE NEW VERSION OF THE RECORD
BACK INTO ITS ORIGINAL PLACE IN THE FIL
E. THE POINTER AGAIN MOVES FORWARD BY O
NE PLACE AT THE NEXT RECORD..*LN1.PROGRA
M CODING.*LN1.NONE..*LN1.SUB-OPTION 4 -
SET POINTER TO A FIELD VALUE.*LN1.AND.*L
N1.SUB-OPTION 5 - SET A FIELD TO A POINT
ER VALUE.*LN1.PURPOSE.*LN1.THESE TWO OPT
IONS ARE USUALLY USED IN CONJUNCTION WIT
H EACH OTHER. THE OBJECT IS TO BE ABLE
TO POINT DIRECTLY TO ANY RECORD, SIMPLY
BY FINDING THE RECORD NUMBER WHICH HAS B
EEN STORED IN A FIELD SPECIFIED EARLIER
IN THE PROGRAM..*LN1.SAMPLE FLOWCHART.*L
N1. 1 SET POINTER TO END OF <MAINF
ILE>. 2 SET POINTER TO END OF <IND
EXFILE>. 3 KEYBOARD INPUT USING <M
AINFILE>, <INDEXFILE> FIELDS. 4 SE
T FIELD IN <INDEXFILE> TO THE POINTER OF
<MAINFILE>. 5 WRITE TO <MAINFILE>
, <INDEXFILE>. 6 ASK USER "AGAIN?"
: BRANCH IF YES TO 3. 7 SET POINTE
R TO START OF <INDEXFILE>. 8 SEARC
H <INDEXFILE>. 9 SET POINTER OF <M
AINFILE> FROM A FIELD IN <INDEXFILE>.
10 READ <MAINFILE>. 11 DISPLAY D
ATA USING <MAINFILE> FIELDS. 12 ASK
USER "ANOTHER..SEARCH?": BRANCH IF YES
TO 7.*LN1.THIS FLOWCHART CONSISTS OF TWO
PARTS, LINES 1-6 FORM THE INPUT SECTION
IN WHICH THE END-USER WRITES HIS DATA T
O TWO FILES. THE IMPORTANT POINT HERE I
S THAT THE RECORD DESTINED FOR <MAINFILE
> IS A FULL AND COMPLETE RECORD, WHILE T
HE DATA GOING TO <INDEXFILE> IS ONLY THE
BARE MINIMUM NEEDED FOR A SEARCH - PERH
APS NO MORE THAN A SINGLE FIELD, SUCH AS
A NAME..*LN1.BUT, AND HERE COMES THE CL
EVER PART, THE FILE <INDEXFILE> HAS AT L
EAST ONE ADDITIONAL FIELD, A FIVE DIGIT
(OR MORE) NUMERIC FIELD INTO WHICH THE N
UMBER OF THE CURRENT RECORD IN <MAINFILE
> IS WRITTEN BY FLOWCHART LINE 4..*LN1.W
HEN WE COME TO THE SECOND PART OF THE PR
OGRAM, THE SEARCH, INSTEAD OF HAVING TO
PLOUGH THROUGH WHAT MIGHT BE A VERY LARG
E, LONG AND COMPLEX FILE (<MAINFILE>), W
E CAN CUT THE SEARCH TIME DRAMATICALLY B
Y LIMITING IT TO THE SIMPLE, SHORT TWO-F
IELD FILE <INDEXFILE>. AS SOON AS THE N
AME OF INTEREST HAS BEEN FOUND HERE, THE
POINTER TO <MAINFILE> IS RE-SET BY READ
ING THE RELEVANT NUMBER FROM THE NUMERIC
FIELD IN <INDEXFILE> (AS SHOWN IN LINE
9)..*LN1.NOTE, INCIDENTALLY, THAT WE DID
NOT USE A READFILE AROUND LINES 7 AND 8
. THE SEARCH PROCESS AUTOMATICALLY READ
S A RECORD INTO MEMORY SO THAT IT CAN LO
OK AT IT TO SEE IF IT IS WHAT'S BEING SE
ARCHED FOR. THE LAST RECORD LOOKED AT (
THE ONE YOU WANTED) WILL BE LEFT IN MEMO
RY.*LN1.FLOWCHARTING - SELECT FCM OPTION
12 AND CHOOSE THE OPTION REQUIRED. IN
BOTH CASES YOU WILL IMMEDIATELY BE ASKE
D FOR THE NAMES OF THE FILES TO BE USED
TO SUPPLY THE POINTER VALUE AND TO HOLD
IT..*LN1.PROGRAM..CODING - IN BOTH CASES
, THE FILE HAS ALREADY BEEN SELECTED DUR
ING FLOWCHARTING, IT ONLY REMAINS TO DEF
INE THE FIELD IN WHICH THE POINTER VALUE
IS TO BE STORED. SHOULD YOUR CHOSEN IN
DEX FILE NOT HAVE A SUITABLE NUMERIC FIE
LD, YOU WILL NOT BE ABLE TO SELECT IT FR
OM THE FIELD LIST - BECAUSE IT WON'T BE
THERE! YOU WILL BE TOLD NO..NUMERIC..FI
ELDS - LINE..ABORTED..*LN1.OTHERWISE A L
IST OF ALL SUITABLE FIELDS WILL BE DISPL
AYED (WITH SCROLLING FACILITIES IF THEY
ARE NEEDED) AND YOU MUST SELECT A (5 DIG
IT) NUMERIC FIELD TO HOLD (OR SUPPLY) TH
E POINTER VALUE..*LN1.NOTES: THE POINTER
VALUE IS A FIVE DIGIT NUMBER AND THIS M
EANS THAT A NUMERIC FIELD CAPABLE OF HOL
DING A FIVE DIGIT NUMBER MUST BE AVAILAB
LE BEFORE YOU TRY THIS TRICK. THE POINT
ER VALUE AT ANY TIME IS THE NUMBER OF TH
E NEXT RECORD TO BE LOOKED AT (OR WRITTE
N TO) IN THE FILE AND IT IS INCREMENTED
IMMEDIATELY A DISK READ OR WRITE HAS TAK
EN PLACE..*LN1.FCM OPTION 14 - READ..A..
FILE.FLOWCHART..LINE..WRITTEN.*LN1.
READ <FILENAME>.*LN1.PURPOSE - TO GET A
RECORD OUT OF A FILE AND INTO MEMORY WHE
RE THINGS CAN BE DONE TO IT..*LN1.FLOWCH
ARTING - SELECT FCM OPTION 14 DURING FLO
WCHARTING AND SELECT THE FILE TO BE READ
FROM THE LIST DISPLAYED..*LN1.PROGRAM..
CODING - IT'S ANOTHER EASY ONE; THERE IS
NOTHING FOR YOU TO DO AT ALL APART FROM
ADDING A SUITABLE DESTINATION WHEN ASKE
D IF..END..OF..FILE..IS..REACHED..BRANCH
..TO...DURING BRANCH RESOLUTION..*LN1.NO
TES: EACH TIME THIS OPTION IS USED BY TH
E END PROGRAM THE RELEVANT FILE POINTER
WILL BE INCREMENTED BY ONE TO POINT AT T
HE NEXT RECORD..*LN1.WHENEVER YOU WANT T
O GET A COPY OF A RECORD OFF THE FILE DI
SK AND INTO THE COMPUTER, A READ..FILE I
S NEEDED. HOWEVER BOTH SEARCH AND SORT
WILL AUTOMATICALLY READ THE FILE AS AN I
NTEGRAL PART OF THEIR ACTION SO THAT IF
YOU FOLLOW ONE OF THESE LINES WITH YOUR
OWN FILE READ, YOU'RE LIKELY TO END UP W
ITH THE WRONG RECORD IN MEMORY AND THE F
ILE POINTER POINTING TO A RECORD TWO BEY
OND THE ONE YOU'RE LOOKING FOR..*LN1.FCM
OPTION 15 - WRITE..TO..FILE.FLOWCHART..
LINE..WRITTEN.*LN1. WRITE TO <FILENA
ME(S)>.*LN1.PURPOSE - TO COPY THE RECORD
CURRENTLY HELD IN WORKING MEMORY TO THE
RIGHT PLACE IN THE RIGHT FILE FOR PERMA
NENT STORING ON DISK..*LN1.FLOWCHARTING
- SELECT FCM OPTION 15 DURING FLOWCHARTI
NG AND SELECT THE REQUIRED FILE FROM THE
LIST DISPLAYED..*LN1.PROGRAM..CODING -
NONE.*LN1.NOTES: YOU MAY WRITE DATA TO M
ORE THAN ONE FILE AT A TIME WITH A SINGL
E FLOWCHART LINE. THE RECORD WILL BE WR
ITTEN TO THE PART OF EACH FILE INDICATED
BY ITS FILE POINTER. A RECORD WILL NEV
ER GET INTO A FILE UNLESS YOU USE THIS F
CM OPTION. NO FLOWCHART OPTION INCLUDES
AN INTEGRAL WRITE TO FILE EXCEPT FOR TH
E SORT. THE RELEVANT FILE POINTERS ARE
AUTOMATICALLY INCREMENTED (BY ONE) EACH
TIME THIS OPTION IS USED..*LN1.FCM OPTIO
N 16 - SEARCH..A FILE.FLOWCHART..LINES..
WRITTEN.*LN1. SEARCH <FILENAME>.
SEARCH <FILENAME1> USING FIELDS FROM <F
ILENAME2>.*LN1.PURPOSE - THIS OPTION LEA
DS TO A CHOICE OF TWO DIFFERENT TYPES OF
SEARCH. A KEYBOARD SEARCH SEARCH..<FIL
ENAME> ALLOWS THE END USER TO TYPE IN TH
E WORD (OR WORDS, OR NUMBERS, OR DATES)
TO BE SEARCHED FOR, THE PROGRAM THEN SEA
RCHES THE RELEVANT FILE FROM THE CURRENT
POINTER POSITION AND WILL GO AS FAR AS
THE END OF THE FILE IF IT CANNOT FIND WH
AT'S WANTED. WHEN A RECORD MATCHING THE
END USER'S SEARCH KEY (THE KEY IS WHAT
HE TYPED IN TO GET THE SEARCH GOING) IS
FOUND, IT IS PLACED IN MEMORY - NO FILE
READ IS NECESSARY SINCE THE READ IS INTE
GRAL TO THE SEARCH ROUTINE..*LN1.AN AUTO
MATIC SEARCH (OF ONE FILE USING KEYS TAK
EN FROM ITSELF OR FROM ANY OTHER FILE) A
CTS JUST LIKE A KEYBOARD SEARCH EXCEPT T
HAT THE SEARCH KEYS ARE TAKEN FROM AN EX
ISTING FILE FIELD (OR FIELDS) INSTEAD OF
THROUGH THE KEYBOARD..*LN1.NOTES: ANY N
UMBER OF FIELDS MAY BE USED AS KEYS IN A
NY ONE SEARCH. BOTH SEARCHES ALLOW THE
SEARCH TO CONTINUE AFTER A RECORD HAS BE
EN FOUND AND DISPLAYED (BY USING THE STA
NDARD DISPLAY OR A RECORD CHECK SO THAT
OTHER RECORDS MATCHING THE SEARCH KEY(S)
MAY BE LOCATED..*LN1.BOTH SEARCHES WILL
INSIST (DURING BRANCH RESOLUTION AFTER
FCM OPTION 3 ) THAT YOU TELL THE PROGRAM
WHAT TO DO IF THE SEARCH REACHES THE EN
D OF FILE..*LN1.USE..OF..DIFFERENT..TYPE
S..OF..FIELD..AS..KEYS - AN ALPHA KEY WI
LL SEARCH THE LEFT HAND SIDE (UP TO THE
LENGTH OF THE KEY ITSELF) OF ALL THE KEY
ALPHA FIELDS FOR A MATCH. THIS IS A PA
RT MATCH IN AS MUCH AS THE KEY "FRED" WO
ULD FIND FIELDS CONTAINING "FRED", "FRED
ICK", AND "FREDDY" WITHOUT DISCREMINATIN
G..*LN1.A NUMERIC OR DATE FIELD NEEDS AN
EXACT MATCH (NOT THE PART MATCH DESCRIB
ED ABOVE) IF IT IS TO BE LOCATED. IN OT
HER WORDS, SEARCHING FOR 123 WILL NOT FI
ND THE NUMBER 12345..*LN1.SUB-OPTION 1 (
KEYBOARD SEARCH OF A FILE).PURPOSE.*LN1.
TO ASK THE END USER TO ENTER ONE OR MORE
SEARCH KEYS THROUGH THE KEYBOARD AND TH
EN TO SEARCH A NAMED FILE (FROM THE CURR
ENT POINTER POSITION) FOR THE FIRST OCCU
RRENCE OF A RECORD IN WHICH THE RELEVANT
FIELDS MATCH THE SEARCH KEY(S)..*LN1.AS
LONG AS THE END PROGRAM DISPLAYS THE SE
ARCH RESULTS TO THE SCREEN, THEN IT WILL
AUTOMATICALLY ASK THE END USER WHETHER
HE WANTS TO CONTINUE SEARCHING FOR THE N
EXT OCCURRENCE OF THE SEARCH KEY(S)..*LN
1.A RECORD, ONCE FOUND, WILL BE PLACED I
N MEMORY SO THAT IT IS NOT NECESSARY TO
USE A READ FILE (IN FACT YOU WILL END UP
BY OVERWRITING THE SEARCHED FOR RECORD
IF YOU DO THIS)..*LN1.PROVISION MUST BE
MADE FOR SUITABLE ACTION IF THE SEARCH R
EACHES THE END OF THE FILE..*LN1.SAMPLE.
.FLOWCHART:.*LN1. 1 SET POINTER TO
START OF <FILENAME>. 2 SEARCH <FI
LENAME>. 3 DISPLAY DATA USING <FIL
ENAME> FIELDS. 4 ASK USER "ANOTHER
..SEARCH?": BRANCH IF YES TO 1.*LN1.NOTE
THAT THERE IS NO READ FILE BETWEEN LINE
S 2 AND 3, THE SEARCH INCLUDES THIS AUTO
MATICALLY..*LN1.IF THE END USER ANSWERS
YES TO THE QUESTION IN LINE 4, HE WILL B
E TAKEN BACK TO THE START WHERE HE CAN E
NTER NEW (AND DIFFERENT) SEARCH KEYS..*L
N1.FLOWCHARTING - DURING FLOWCHARTING, S
ELECTING OPTION 16 LEADS IMMEDIATELY TO
THIS SUB MENU..*LN1.
KEYBOARD SEARCH .........<1>.
AUTOMATIC SEARCH.....
....<2>. RETURN
TO F.C.M..........<3>.SELECT ACCORDINGLY
AND CHOOSE THE FILE(S) FROM THE LIST DI
SPLAYED..*LN1.PROGRAM..CODING..OF..A..KE
YBOARD..SEARCH - YOU WILL BE ASKED IF YO
U WANT A CLEAR SCREEN BEFORE THE SEARCH
AND THEN YOU WILL BE TAKEN TO THE NOW (V
ERY) FAMILIAR SCREEN DESIGN MENU..*LN1.U
SE OPTION 1 AND POSITION THE SEARCH KEYS
EXACTLY AS YOU WOULD WHEN SELECTING FIE
LDS FOR A KEYBOARD INPUT. YOU SHOULD PO
SITION ONLY THE FIELDS WHICH ARE TO BE U
SED AS SEARCH KEYS..*LN1.NOTE THAT IN TH
E END PROGRAM A NULL ENTRY TO A SEARCH K
EY FIELD WILL EFFECTIVELY DISABELTHAT FI
ELD SO THAT THE SEARCH WILL IGNORE THAT
PARTICULAR KEY..*LN1.PROGRAM..CODING..OF
..AN..AUTOMATIC..SEARCH - YOU WILL BE SH
OWN A LIST OF ALL FIELDS INVOLVED IN THE
SEARCH AND YOU WILL BE ASKED:.*LN1.
HOW MANY SEARCH KEYS (1-N) ....*LN1.WHE
RE N IS THE NUMBER OF FIELDS IN THE SMAL
LEST FILE (IN TERMS OF NUMBER OF FIELDS
- NOT ACTUAL RECORD LENGTH). ANSWER APP
ROPRIATELY..*LN1.FOR EACH KEY YOU WILL B
E ASKED TO SELECT THE FIELD TO BE SEARCH
ED AND THE FIELD WHICH IS TO SUPPLY THE
KEY WITH THE QUESTION:.*LN1. KEY NO
N. SEARCH FIELD A .. USING FIELD B...*L
N1.A AND B REPRESENT THE FIRST LETTERS O
F THE APPROPRIATE FIELD'S CODE (ON THE S
ELECTION LIST) SO THAT YOU NEED ONLY ENT
ER THE NUMBER. A (IN THIS EXAMPLE) IS T
HE FILE TO BE SEARCHED AND B IS THE FILE
PROVIDING THE KEYS. IT IS POSSIBLE FOR
BOTH OF THESE TO BE THE SAME FILE..*LN1
.IT IS POSSIBLE TO SEARCH A SINGLE FIELD
WITH A NUMBER OF DIFFERENT KEY FIELDS.
YOU WILL THEN BE ASKED TO CONFIRM YOUR
SELECTIONS WITH IS..THIS..CORRECT (Y?N).
DO IT AND YOU WILL BE TAKEN ON TO THE
NEXT FLOWCHART LINE..*LN1.CONTINUING..TH
E..SEARCH - WHEN EVER A SEARCH TAKES PLA
CE, TLO NOTES THIS AND, AT THE END OF TH
E NEXT DISPLAY DATA (FCM OPTION 7) WILL
ASK:.*LN1. ADD CONTINUE SEARCH FACIT
ITY.*LN1.IF YOU ANSWER NO, THE QUESTION
WILL BE REPEATED AT THE END OF THE NEXT
DISPLAY DATA - AND SO ON UNTIL YOU HAVE
ANSWERED YES OR UNTIL THE END OF THE PRO
GRAM IS REACHED..*LN1.IF YOU ANSWER YES,
AND THE DISPLAY IS NOT IN REPORT FORMAT
, YOU WILL BE ASKED TO ENTER A SUITABLE
PROMPT. THIS SHOULD TAKE A FORM SUCH TH
AT AN END USER REPLY OF YES WILL CONTINU
E THE SEARCH. IN THE CASE OF A REPORT F
ORMAT DISPLAY THE SEARCH WILL BE CONTINU
ED AUTOMATICALLY AND YOU WILL NOT BE ASK
ED TO SUPPLY A PROMPT..*LN1.A..SAMPLE..F
LOWCHART..USING..BOTH..TYPES..OF..SEARCH
- THE PURPOSE OF THIS EXAMPLE IS TO SEA
RCH A FILE OF NAMES, AND ON FINDING A PA
RTICULAR ONE, TO SEARCH THE REST OF THE
FILE FOR FURTHER OCCURRENCES OF THAT NAM
E..*LN1. 1 SET POINTER TO START OF
<NAMES>. 2 SEARCH <NAMES>. 3
DISPLAY DATA USING <NAMES> FILE. 4
BACKSTEP POINTER OF <NANES> FILE.
5 SEARCH <NAMES> USING <NAMES>. 6
DISPLAY DATA USING <NAMES> FIELDS.
7 TERMINATE.*LN1.LINE 1 MAKES SURE T
HAT THE ENTIRE FILE IS SEARCHED FROM THE
BEGINNING..*LN1.LINE 2 ALLOWS YOU TO IN
PUT THE REQUIRED NAME AND TO SEARCH FOR
THE FIRST OCCURRENCE OF THIS..*LN1.LINE
3 DISPLAYS THE FIRST OCCURRENCE, THE CON
TINUE..SEARCH FACILITY ALLOWS YOU TO CAR
RY ON UNTIL YOU FIND THE EXACT NAME YOU
WANT..*LN1.LINE 4 BACKSTEPS THE POINTER
TO INCLUDE THE CURRENT RECORD IN THE REP
ORT..*LN1.LINE 5 TAKES THE CURRENT NAME
AS A SEARCH KEY AND SEARCHES THE REST OF
THE FILE FOR FURTHER OCCURRENCES OF THE
SAME NAME AND....*LN1.LINE 6 DISPLAYS T
HEM, USING THE CONTINUE..SEARCH FACILITY
TO KEEP SEARCHING. IF YOU DO NOT DISPL
AY IN REPORT FORMAT, THE END USER WILL B
E ASKED THE "CONTINUE SEARCH ?" QUESTION
AFTER EACH DISPLAY. IF YOU DISPLAY IN
REPORT FORMAT, THE SEARCH WILL BE CONTIN
UED AUTOMATICALLY..*LN1.FCM OPTION 17 -
MERGE FILE FIELDS.FLOWCHART..LINE..WRITT
EN.*LN1. TAKE FIELDS FROM <FIRSTFILE
> AND USE IN <SECONDFILE>.*LN1.PURPOSE -
TO REPLACE THE VALUES IN SELECTED FIELD
S OF <SECONDFILE> WITH VALUES TAKEN FROM
SELECTED FIELDS OF <FIRSTFILE>..*LN1.FL
OWCHARTING - DURING FLOWCHARTING, SIMPLY
SELECT FCM OPTION 17 AND YOU WILL BE AS
KED:.*LN1. TAKE FIELDS FROM .. AND U
SE IN ...*LN1.ENTER THE APPROPRIATE FILE
NUMBERS FROM THE LIST DISPLAYED..*LN1.P
ROGRAM..CODING - YOU WILL SEE A FIELD LI
ST OF THE TWO FILES CONCERNED, TOGETHER
WITH THE PROMPT:.*LN1. TAKE FROM FIE
LD A.. AND USE IN FIELD B...*LN1.A.. AND
B.. ARE THE FIRST LETTERS OF THE FIELD
SELECTION CODES FOR THE TWO FILES CONCER
NED - THESE COULD, OF COURSE, BOTH BE TH
E SAME FILE..*LN1.ANSWER ACCORDINGLY AND
, AFTER CONFIRMING YOUR SELECTION YOU WI
LL BE ASKED:.*LN1. ANY MORE FIELDS T
O EQUATE.*LN1.YOU MAY CONTINUE THIS PROC
ESS OF INFINITUM BY ANSWERING YES,ANSWER
ING NO TAKES YOU ON TO THE NEXT FLOWCHAR
T LINE..*LN1.FCM OPTION 18 - RECORD CHEC
K.FLOWCHART..LINE..WRITTEN.*LN1. DIS
PLAY A RECORD FOR CHECKING FROM <FILENAM
E(S)>.*LN1.PURPOSE - TO ALLOW THE END US
ER TO EDIT THE RECORDS CURRENTLY HELD IN
MEMORY..*LN1. NOTE: IN EFFECT, A RECORD
CHECK IS A COMBINATION OF FCM OPTION 7
WITH OPTION 6 WITH A CORRECTION FACILITY
. SINCE IT IS OFTEN USED IN CONJUNCTION
WITH A SEARCH, YOU SHOULD BEAR IN MIND
THAT THE DISPLAY DATA PART OF THIS OPTIO
N WILL ACTIVATE THE "CONTINUE SEARCH" FA
CILITY..*LN1.SAMPLE..FLOWCHART:.*LN1.
1 SET POINTER TO START OF <FILENAME>
. 2 SEARCH <FILENAME>. 3 DIS
PLAY A RECORD FOR CHECKING FROM <FILENAM
E>. 4 SET POINTER TO PREVIOUS RECO
RD WITHIN <FILENAME>. 5 WRITE TO <
FILENAME>. 6 ASK USER "AMEND..ANOT
HER..RECORD": BRANCH IF YES TO 1.*LN1.LI
NES 1 AND 2 FIND AND LOAD THE RECORD OF
INTEREST..*LN1.LINE 3 OFFERS THE END USE
R THE EDITING FACILITIES NEEDED TO AMEND
THE RECORD..*LN1.LINES 4 AND 5 MAKE SUR
E THAT THE UPDATED RECORD IS RETURNED TO
THE SAME SLOT IN ITS FILE THAT IT CAME
FROM..*LN1.FLOWCHARTING - DURING FLOWCHA
RTING, JUST SELECT THIS OPTION AND SELEC
T THE FILES TO SUPPLY THE RECORDS..*LN1.
PROGRAM..CODING - SINCE THE END USER IS
GOING TO BE DOING ALL THIS ON THE SCREEN
YOU SHOULD NOT BE TOO SURPRISED TO SEE
THE QUESTION CLEAR..SCREEN..BEFORE..RECO
RD..CHECK FOLLOWED BY THE SCREEN DESIGN
MENU. DESIGN A SUITABLE SCREEN FOR DISP
LAYING THE RECORD AND THEN ANSWER THE US
UAL QUESTIONS (AFTER USING OPTION 8) OF
THE SCREEN DESIGN MENU, INCLUDING ENTER.
.CORRECTION..PROMPT TO END CODING OF THI
S LINE..*LN1.NOTE: IF A SEARCH HAS BEEN
USED, YOU WILL BE ASKED ADD..CONTINUE..S
EARCH..FACILITY AFTER THE QUESTION TIDY.
.SCREEN. IF YOU ANSWER YES YOU WILL BE
ASKED TO ENTER A SUITABLE END USER PROMP
T WITH MESSAGE..REQUIRED..*LN1.FCM OPTIO
N 19 - CLEAR A FILE.FLOWCHART..LINE..WRI
TTEN.*LN1.
> CLICK IMAGE PREVIEW FOR FULL MODAL