Listing of file='LPFIXFLD' on disk='vmedia/701-2721C.wvd.zip'
# Sector 231, program filename = 'LPFIXFLD' 0100 REM % CHANGE FIELD NAME MODULE 0150 DATA 4,0,0," " : DATA 4,2,0,"Please Select Correct Name" : DATA 4,21,45,"Press EXEC/RUN to Correct Name" : DATA 4,22,45," CANCEL/EDIT to Return" : DATA 0 : COM L3,L5,H$L4,L6 : DIM S5(1),S0(1),T5(1),S3(1) : DIM T1$(L3)L4,S1$(L3)2 : DIM T1(5),S6(5),S1(5),T2$(5)80 0250 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 : L9(2)=0 : GOSUB '61 : T2$(1)="The Field Name "&HEX(22)&H$&HEX(22)&" Is Not In the Data File" : GOSUB '47(0) : PRINT AT(1,0);BOX(0,80);AT(20,0);BOX(0,80) 0320 GOSUB '62 : IF T5<=0THEN GOTO 620 : IF T5>1THEN GOTO 320 : STR(G3$(G5),1)=H$ : STR(G3$(G5),9)=STR(L3$(T5(1)),9) : STR(G3$(G5),14,L7+2)=ALL(01) : STR(G3$(G5),19,1)=HEX(FF) : STR(G3$(G5),22)="NO " : STR(G3$(G5),26)=STR(L3$(T5(1)),1,8) : STR(G3$(G5),43)="Y" : LOAD T"LPOVER09" 0620 A0$()="LPFDEXCP"&"Prime 62"&"JCAT" : G5=G5-1 : L9(2)=1 : LOAD T<3>A0$() 9000 DEFFN'0"SCRATCH T ";HEX(22);"LPFIXFLD";HEX(22) 9010 DEFFN'1"SAVE T() ";HEX(22);"LPFIXFLD";HEX(22)