1$*P~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~NADXTRAK 3 APR., 1980copyright (c) 1977,1978 STRUCTURED SYSTEMS GROUP NADXTRAK VERSION 3.0 App R:p dp!p"p#p$*************************%     &%%%%% ' ()*p+,-. /  0  1  2 3  3!NAD 300 -- FILE NOT FOUND3!NAD 301 -- INVALID FIELD SPECIFIED3!NAD 302 -- FIELD LENGTHS NOT EQUAL3!NAD 303 -- STARTING LOCATION + LENGTH OF PATTERN OVERFLOWS FIELD LENGTH3!NAD 304 -- FIRST STARTING LOCATION GREATER THAN LAST STARTING LOCATION3!NAD 305 -- LAST STARTING LOCATION VALUE TOO LARGE3!NAD 310 -- OUTPUT FILE EXISTS3!NAD 312 -- INVALID REFERENCE LENGTH SPECIFIED 3!NAD 306 -- VALUE LESS THAN ONE 3!NAD 307 -- LOW VALUE GREATER THAN HIGH VALUE 3!NAD 311 -- RECORD NUMBER SPECIFIED OUT OF RANGE.!p.!p.!p.!p.!p.! p.! p.!p46I44 7Nd46< JNAD EXTRACT$d4d4d4d4d45 INPUTȀ6789797.NAD`=7j&:m;:Tp.!;p@7;]j`Nd45 OUTPUT7STOP7stop 760767(<97.$$$)>67<97.NADd4:7 JDO YOU WANT TO SELECT RECORDS (Y OR N)?$dn;=h=Y=y 76=N=n 76N69 K>:76N \d4,:7 6N JdNUMBER OF PATTERNS TO MATCH (MAX 13):n;?":'@6?@@ 7Nd4d4 JMATCH PATTERN #$@p#:$d4@/!A@0!B@1!C6D;d4 JCURRENT REFERENCE FIELD LENGTH IS$.!#d4 JTYPE RETURN IF OK, ENTER NEW LENGTH IF DESIRED$dn;=h=76E=XEpEp 73!$d46NDEp(6 5>==s=NAME7 NQp=ADDR17 bQp=ADDR27 vQp=CITY7 Qp=STATE7 Qp=ZIP7 Qp=SOURCE7 ĀQp=REF7 րQpQp7  JVALID RESPONSES ARE$d4 JNAME ADDR1 ADDR2 CITY$d4 JSTATE ZIP SOURCE REF $d4d46 :7 d4 JRANGE OR MATCH (R OR M)?$dn;=h==s=R7 ,=NOT R7 ,-=M7 ʀ+=NOT M7 +-6 \?d4 JENTER LOWEST VALID VALUE$dn;Uhd4 JENTER HIGHEST VALID VALUE$dn;VhUTVT7 Y3!$d4d46 UV7 r3!$d4d46 aNbUXbVXN:7 d4 JENTER STARTING LOCATION$dn;B"'Bp7 ր3!$d46 BUTppQ].!7 3!$d4d46 TUTp0!Bd4 JENTER MATCHING PATTERN$dn;AhaNbAXN:7S\\A\7f6ATQ].!p7BpCpd4 JENTER FIRST STARTING LOCATION$dn;B"'d4 JENTER LAST STARTING LOCATION$dn;C"'BC73!$d4d46CQ].!73!$d4d46\\A\7.BATppQ].!7W3!$d4d46cbTK6scKK 7dbcUda7NdZdA 7a6fNNa:: p:7 JDO YOU WANT UPPER CASE TRANSLATION (Y,N)?$dn;=h=Y=y 7=N=n 7N6PPsRp7=RRBp`[86.BAKje`y97.NADjee*]&M*W*X*Y*Z*[*\*]*>\\  S(:7Հ]]&]]E:S&M,W,X,Y,Z,[,\,],?d4 JENTER$5$ FILE NAME$dn;JhJJsJf7-gh*J\.J\ :J\  J\ \?J\ 7J_$NAD009 TRY AGAIN, FILE NAMES CAN'T CONTAIN :*.? OR SPACES.$d467JiSd4 JENTER DRIVE (@,A-F;RET=CURLOG) $dn;JhJJsJf7 ghJ7J@JAJB JC JD JE JF J@ 7`9J:J_$NAD010 TRY AGAIN, DRIVES MUST BE AN A, B, C, D, E, F, OR @.$d46 p