8 CLEAR16000
14 DIMI%,J%,B$,A$,MU%,M%,F$,JJ%,KK%,SL%,C%,K%,PA%,NM%,N%,W%,P%,M3%,CH%,NP%,LL%,FF%,ZC%,M2%,F%,DS%,ZR%,ZF%,NN%,MM%,Z%,KJ%,NP$,M1%,N$,M$,PP%,T$,DM%,D$,SM!,T1%,BB%,NL%,TT%,JK%,PG%,NB%,NM$,Z$
24 DIMA$(NN,MM),FL(MM),NM$(NM),T$(MM),SM!(MM),T2$(MM),T1$(MM),D(NN),Q(PP),LF(MM),OT(MM),Z(5)
899 DATAPSEUDO-LOWER CASE
900 CLS:PRINT@128,"CONVERT FIELDS TO PSEUDO-LOWER CASE";
902 FORK=1TOM:PRINT@256,Z$;"WANT FIELD #";K;"'";A$(0,K);"' CONVERTED <Y/N> ";
904 GOSUB2000:IFA$="Y"THENJ(K)=1ELSEIFA$="N"THENJ(K)=0ELSE904
906 CLS:NEXT:CLS:GOSUB134
908 CLS:FORJ=1TOM:IFJ(J)=0THEN910ELSECLS:PRINT@405,"PROCESSING FIELD";J:GOSUB912
910 NEXT:GOTO120
912 FORI=FFTOLL:PRINT@475,"RECORD #";I;
914 FORW=1TOLEN(A$(I,J))
916 Q(W)=ASC(MID$(A$(I,J),W,1))
918 IFW=2ANDQ(W-1)=82ANDQ(W)=82THEN930
920 IFW=1THEN930
922 IFQ(W)=32ORQ(W-1)=32THEN930
924 IFW>1ANDQ(W-2)=77ANDQ(W-1)=99THEN930
926 IFQ(W-1)=45THEN930
928 IFQ(W)<91ANDQ(W)>64THENQ(W)=Q(W)+32
930 LC$=LC$+CHR$(Q(W)):NEXT:A$(I,J)=LC$:LC$="":IFCL=1THENCL=0:RETURN
932 NEXT:PRINT:RETURN
