image of READY prompt

Wang2200.org

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)