8 CLEAR18000
1149 DATADUPLICATE RECORD SEARCH
1150 CLS:PRINT@256,"THIS ROUTINE WILL SEARCH A FIELD FOR DUPLICATES":PRINT:FORJ=1TOM:PRINTA$(0,J);TAB(15)J:NEXT:PRINT:PRINT"WHICH FIELD ";
1154 GOSUB2000:PRINT:PRINT:IFVAL(A$)<1ORVAL(A$)>MTHEN1154
1156 J=1:K=VAL(A$):SL=K:LS=K:KJ=1:GOSUB766
1158 SH$=LEFT$(A$(J,K),INT(LEN(A$(J,K))/2+2)):HC$=RIGHT$(A$(J,K),INT(LEN(A$(J,K))/2+2))
1160 FORI=JTON:PRINT@360,CHR$(30);SH$;"   ";HC$;:PRINT@424,J;:PRINT@430,I;
1162 IFINSTR(A$(I,K),SH$)>0ORINSTR(A$(I,K),HC$)>0THEN1164ELSEI=N:GOTO1171
1164 IFI=JTHEN1171
1166 CLS:PRINT:PRINT"RECORD #";J;TAB(32)"RECORD #";I;"*":PRINT:FORKK=1TOM:PRINTJ;TAB(5)A$(J,KK);TAB(32)I;TAB(38)A$(I,KK):NEXT
1167 PRINT@832,"PRESS <1> TO EDIT #";I;"PRESS <2> TO EDIT #";J;:PRINT@896,"PRESS <3> TO ERASE #";I;"PRESS <4> TO ERASE #";J;" OR <ENTER> ";
1168 GOSUB2000:IFA$="1"THENCH=I:GOTO1169ELSEIFA$="2"THENCH=J:GOTO1169ELSEIFA$="3"THENFF=I:GOTO1170ELSEIFA$="4"THENFF=J:GOTO1170ELSEIFA$=CHR$(13)THEN1171ELSE120
1169 CLS:KJ=1:KP=J:GOSUB652:KJ=0:J=KP:CLS:GOTO1171
1170 CLS:LL=FF:KX=1:KP=J:GOSUB554:J=KP:CLS:GOTO1171
1171 CLS:NEXT:J=J+1:IFJ=N+1THEN1174ELSE1158
1174 PRINTTAB(50)"<ENTER> ";:GOSUB2000:GOTO120
