Listing of file='LPFDEXCP' on disk='vmedia/701-2721C.wvd.zip'
# Sector 215, program filename = 'LPFDEXCP' 0100 REM % FIELD EXCEPTION SCREEN 0140 DATA 4,0,0," " : DATA 4,6,10,"Please Select Next Operation" : DATA 1,08,21,1,"Map This Field Name Onto an Existing Field" : DATA "Field Will Be Defined in Record Processing" : DATA "Allow Operator to Enter Value of the Field" : DATA "Allow Operator to Enter Glossary Label Key" : DATA "\DE" 0210 DATA 4,21,50,"Press EXEC/RUN to Continue" : DATA 4,22,50," CANCEL/EDIT to Terminate" : DATA 0 : COM L9(2) : DIM S5(1),S0(1),T5(1),S3(1) : DIM T1$(4)42,S1$(4)2 : DIM T1(5),S6(5),S1(5),T2$(5)80 : DIM T2(1),S7(1),S2(1),S4(1),T5$(1)1 : DIM S2$(1)1,S1$1,S2$1,T1$80,T2$2,E1$20 0300 IF L9(2)=1THEN PRINT AT(1,0,); : ELSE PRINT HEX(0307) : GOSUB '61 : T2$(1)="The Field Name "&HEX(22)&H$&HEX(22)&" Is Not In the Data File" : PRINT AT(1,0);BOX(0,80);AT(20,0);BOX(0,80) 0340 GOSUB '62 : IF T5<=0THEN GOTO 710 : IF T5>1THEN GOTO 340 : G5=G5+1 : IF G5>G3THEN GOSUB '99(D$) : ON T5(1)GOTO 400,440,530,650 0400 PRINT AT(1,0,); : A0$()="LPFIXFLD"&"LPFORMAT"&"Prime 62" : LOAD T<3>A0$() 0440 STR(G3$(G5))=H$ : STR(G3$(G5),9)="U" : STR(G3$(G5),12)=BIN(12,2) : STR(G3$(G5),14,L7+2)=ALL(01) : STR(G3$(G5),19,1)=HEX(FF) : STR(G3$(G5),22)="???" : STR(G3$(G5),43)="Y" 0500 LOAD T"LPOVER09" 0530 STR(G3$(G5),9)="P" : STR(G3$(G5),12)=BIN(18,2) : STR(G3$(G5),22)="Ent" 0535 STR(G3$(G5),1,8)=H$ : STR(G3$(G5),14,L7+2)=ALL(01) : STR(G3$(G5),19,1)=HEX(FF) : STR(G3$(G5),43)="Y" : GOTO 500 0650 IF B3$=" "THEN GOTO 900 : IF L9(1)=1THEN GOTO 930 : STR(G3$(G5),9)="G" : STR(G3$(G5),12)=BIN(1,2) : STR(G3$(G5),22)="Glo" : GOTO 535 0710 GOSUB '212(V3) : COM CLEAR G3$() : LOAD T"LPINIT" 0750 DEFFN'99(E1$) : L0$(1)=BIN(1) : STR(L0$(),2,5)=E1$ : GOSUB '212(V3) : RETURN CLEAR 0800 LOAD T"LPERROR" 0900 PRINT AT(23,0,);L1$;"Glossary Not Specified";HEX(0F); : G5=G5-1 : GOTO 340 0930 PRINT AT(23,0,);L1$;"Glossary May Not Contain Glossary Fields";HEX(0F); : G5=G5-1 : GOTO 340 9000 DEFFN'0"SCRATCH T ";HEX(22);"LPFDEXCP";HEX(22) 9010 DEFFN'1"SAVE T() ";HEX(22);"LPFDEXCP";HEX(22)