Listing of file='LPEDIT' on disk='vmedia/701-2721C.wvd.zip'
# Sector 156, program filename = 'LPEDIT'
0100 REM % FIELD EDIT MODULE
0200 COM L3,L4,L6,L1$6,L7
: DIM S5,T1(9),S6(9),S1(9),T2$(9)80
: DIM S5(6),S0(6),T5(6),S3(6),T1$(L3)22,S1$(L3)2
: DIM T2(9),S7(9),S2(9),S4(9),T5$(9)5,S2$(13)2,S1$15
: DIM S2$1,T1$80,T2$2,S0,S4,S5,S6,S7,S9,T0,T2,T3,T5,T6,T7
: DIM I,I$2,J,F9$(100)1
: DATA 4,0,0,"DATAMERGE Field Editing"
0270 DATA 4,2,0,"Please Select Field Name"
: DATA 4,21,50,"Press EXEC/RUN to Continue"
: DATA 4,22,50," CANCEL/EDIT to Return"
: DATA 0
: DATA 4,0,0," "
: DATA 3,5,10,"SIZE"
: DATA 4,7,16,"Characters"
: DATA 3,5,45,"CASE"
: DATA 3,12,10,"CAPITALIZATION EXCEPTIONS"
: DATA 3,12,45,"COPY CONTROL"
0370 DATA 2,7,10,5," "
: DATA 1,7,45,1,"No Editing Required","Capitalized Lowercase"
: DATA "All Uppercase ","All Lowercase"
: DATA "\DE"
: DATA 1,14,10,1,"No","Yes","\DE"
: DATA 1,14,45,1,"All Copies","Selected Copies","\DE"
: DATA 2,16,47,1," ",2,16,49,1," ",2,16,51,1," ",2,16,53,1," "
0440 DATA 2,16,55,1," ",2,16,57,1," ",2,16,59,1," ",2,16,61,1," "
: DATA 4,21,49,"Press EXEC/RUN to Edit Field"
: DATA 4,22,49," CANCEL/EDIT to Return"
: DATA 0
0480 DATA 4,0,0," "
: DATA 3,5,3,"DIGIT SEPARATOR"
: DATA 3,5,32,"LEADING ZEROES"
: DATA 3,5,60,"MINUS SIGN HANDLING"
: DATA 3,12,3,"CURRENCY SYMBOL"
: DATA 3,12,32,"DATE HANDLING"
: DATA 3,12,60,"COPY CONTROL"
: DATA 1,7,3,1,"None",",","\DE"
: DATA 1,7,32,1,"Zeroes"
: DATA "Asterisk Fill"
: DATA "Compression"
: DATA "\DE"
0600 DATA 1,7,60,1,"-","CR","Sign Suppression","\DE"
: DATA 1,14,3,1,"None","$","Other","\DE"
: DATA 2,16,11,1," "
: DATA 1,14,32,1,"None","Insert Slashes","Expand From (mmddyy)","Expand Fro
m (ddmmyy)","\DE"
: DATA 1,14,60,1,"All Copies","Selected Copies","\DE"
0650 DATA 2,16,62,1," ",2,16,64,1," ",2,16,66,1," ",2,16,68,1," "
: DATA 2,16,70,1," ",2,16,72,1," ",2,16,74,1," ",2,16,76,1," "
: DATA 4,21,49,"Press EXEC/RUN to Edit Field"
: DATA 4,22,49," CANCEL/EDIT to Return"
: DATA 0
0700 DATA 4,0,0," "
: DATA 3,04,34,"COPY CONTROL"
: DATA 1,06,34,1,"All Copies","Selected Copies","\DE"
: DATA 2,08,36,1," ",2,08,38,1," ",2,08,40,1," ",2,08,42,1," "
: DATA 2,08,44,1," ",2,08,46,1," ",2,08,48,1," ",2,08,50,1," "
: DATA 4,21,49,"Press EXEC/RUN to Edit Field"
0760 DATA 4,22,49," CANCEL/EDIT to Return"
: DATA 0
0780 PRINT HEX(03)
: GOSUB '61
: GOSUB '47(1)
: PRINT AT(1,0);BOX(0,80);AT(20,0);BOX(0,80)
0820 GOSUB '62
: IF T5<=0THEN GOTO 1800
: IF T5>1THEN GOTO 820
: MAT SEARCHG3$(),=STR(T1$(T5(1)),1,L4)TO I$STEP G6
: I=(VAL(I$,2)-1)/G6+1
: MAT SEARCHL3$(),=STR(G3$(I),26,L4)TO I$STEP L6
: K=(VAL(I$,2)-1)/L6+1
: IF STR(G3$(I),9,1)="U"OR STR(G3$(I),9,1)="S"THEN GOTO 1250
: ELSE IF STR(G3$(I),9,1)="P"OR STR(G3$(I),9,1)="G"THEN GOTO 1590
: ELSE GOTO 910
0910 PRINT AT(0,0,);
: GOSUB '61
0930 GOSUB '54
: T5$()=ALL(20)
: CONVERT VAL(STR(G3$(I),12,2),2)TO T5$(1),(#####)
: GOSUB '45
: T5(1)=VAL(STR(G3$(I),14))
: T5(2)=VAL(STR(G3$(I),15))
: IF STR(G3$(I),19,1)<>HEX(FF)THEN GOTO 1020
: T5(3)=1
: GOTO 1040
1020 T5(3)=2
: GOSUB '48(2)
1040 GOSUB '62
: IF T5<=0THEN GOTO 1830
: IF T5>1THEN GOTO 1040
: IF VER(T5$(1),"#####")=5THEN GOTO 1090
: F9$()="Invalid Numeric Entry"
: GOTO 1220
1090 CONVERT T5$(1)TO J
: IF J<=VAL(STR(L3$(K),12,2),2)AND J<>0THEN GOTO 1130
: F9$()="Illegal Size Specification"
: GOTO 1220
1130 STR(G3$(I),14,1)=BIN(T5(1))
: STR(G3$(I),15,1)=BIN(T5(2))
: STR(G3$(I),12,2)=BIN(J,2)
: F9$()=" "
: IF T5(3)=1THEN T1$=HEX(FF)
: ELSE GOSUB '46(2)
: IF F9$()<>" "THEN GOTO 1220
: STR(G3$(I),19,1)=T1$
: PRINT AT(0,1,80)
: GOTO 930
1220 PRINT AT(23,0);L1$;F9$();HEX(0F);
: GOTO 1040
1250 PRINT AT(0,0,);
: RESTORE LINE480
: GOSUB '61
1280 IF VAL(STR(G3$(I),18,1))<>1THEN GOSUB '44
: ELSE GOSUB '53
: STR(G3$(I),12,2)=BIN(LEN(F9$()),2)
: T5$()=ALL(20)
: GOSUB '45
: FOR J=1TO L7-1STEP 1
: T5(J)=VAL(STR(G3$(I),13+J))
: NEXT J
: IF STR(G3$(I),19,1)<>HEX(FF)THEN GOTO 1380
: T5(6)=1
: GOTO 1410
1380 T5(6)=2
: GOSUB '48(2)
1410 IF T5(4)<3THEN GOTO 1440
: T5(4)=3
: T5$(1)=STR(G3$(I),17,1)
1440 GOSUB '62
: IF T5<=0THEN GOTO 1830
: IF T5>1THEN GOTO 1440
: FOR J=1TO L7-1STEP 1
: STR(G3$(I),13+J,1)=BIN(T5(J))
: NEXT J
: IF T5(4)=3THEN STR(G3$(I),17,1)=T5$(1)
: F9$()=" "
: IF T5(6)=1THEN T1$=HEX(FF)
: ELSE GOSUB '46(2)
: IF F9$()<>" "THEN GOTO 1560
: STR(G3$(I),19,1)=T1$
: PRINT AT(0,1,80)
: GOTO 1280
1560 PRINT AT(23,0);L1$;F9$();HEX(0F);
: GOTO 1440
1590 RESTORE LINE700
: PRINT AT(0,0,);
: GOSUB '61
1620 T5$(),F9$()=ALL(20)
: STR(F9$(),1,VAL(STR(G3$(I),12,2),2))=ALL(85)
: IF STR(G3$(I),19,1)<>HEX(FF)THEN GOTO 1670
: T5(1)=1
: GOTO 1690
1670 T5(1)=2
: GOSUB '48(1)
1690 GOSUB '45
1700 GOSUB '62
: IF T5<=0THEN GOTO 1830
: IF T5>1THEN GOTO 1700
: F9$()=" "
: IF T5(1)=1THEN T1$=HEX(FF)
: ELSE GOSUB '46(1)
: IF F9$()<>" "THEN GOTO 1770
: STR(G3$(I),19,1)=T1$
: GOTO 1620
1770 PRINT AT(23,0);L1$;F9$();HEX(0F);
: GOTO 1700
1800 A0$()="LPMENU2 "&"Prime 62"
: LOAD T<2>A0$()
1830 RESTORE
: S0(1)=0
: GOTO 780
9000 DEFFN'0"SCRATCH T ";HEX(22);"LPEDIT";HEX(22)
9100 DEFFN'1"SAVE T () ";HEX(22);"LPEDIT";HEX(22)