*
* CHE/DUP 8/23/83 BY RALPH SHIPP (460-9353)
ERASE
? '==============================================='
?
?
? 'CHECK FOR DUPLICATE RECORD ENTRIES IN FILE'
? '------------------------------------------'
?
?
?
?
? 'NOTE: ON THE NEXT SCREEN USE # 1 TO INDEX FILE'
? '====  BY FAMILY NAME CODE FOR THIS CHECK !!!'
?
? '   1 = CONTINUE'
?
? '   / = EXIT BACK TO MAIN MENU'
?
? 'ENTER ONE OF THE ABOVE'
?
? '=============================================='
WAIT TO TEMP
IF TEMP='/'
   USE
   DO MENU
ENDIF
DO INDEX
USE B:&FILE INDEX A:&IFILE
DO WHILE.NOT.EOF
IF *
   SKIP
   LOOP
ENDIF
STORE ' ' TO MCODEF1
STORE ' ' TO MCODEF2
STORE CODEF TO MCODEF1
SKIP
   STORE T TO CHECK
   DO WHILE CHECK.AND..NOT.EOF
   IF *
      SKIP
      LOOP
   ELSE
      STORE F TO CHECK
      LOOP
   ENDIF
   ENDDO
STORE CODEF TO MCODEF2
IF "&MCODEF1"<>"&MCODEF2"
   LOOP
ELSE
SKIP-1
STORE ' ' TO MRECORD1
STORE ' ' TO MNAMEL1
STORE ' ' TO MNMAEF1
STORE ' ' TO MPHONE1
STORE ' ' TO MCODES1
STORE ' ' TO MYEAR1
STORE ' ' TO MSTREET1
STORE ' ' TO MCITY1
STORE ' ' TO MSTATE1
STORE ' ' TO MZIP1
STORE ' ' TO MMAP1
STORE STR(#,4) TO MRECORD1
STORE NAMEL TO MNAMEL1
STORE NAMEF TO MNAMEF1
STORE PHONE TO MPHONE1
STORE CODES TO MCODES1
STORE YEAR TO MYEAR1
STORE STREET TO MSTREET1
STORE CITY TO MCITY1
STORE STATE TO MSTATE1
STORE ZIP TO MZIP1
STORE MAP TO MMAP1
SKIP
STORE ' ' TO MRECORD2
STORE ' ' TO MANMEL2
STORE ' ' TO MNAMEF2
STORE ' ' TO MPHONE2
STORE ' ' TO MCODES2
STORE ' ' TO MYEAR2
STORE ' ' TO MSTREET2
STORE ' ' TO MCITY2
STORE ' ' TO MSTATE2
STORE ' ' TO MZIP2
STORE ' ' TO MMAP2
STORE STR(#,4) TO MRECORD2
STORE NAMEL TO MNAMEL2
STORE NAMEF TO MNAMEF2
STORE PHONE TO MPHONE2
STORE CODES TO MCODES2
STORE YEAR TO MYEAR2
STORE STREET TO MSTREET2
STORE CITY TO MCITY2
STORE STATE TO MSTATE2
STORE ZIP TO MZIP2
STORE MAP TO MMAP2
ERASE
@ 1, 3 SAY "&MNAMEL1"
@ 1,27 SAY "&MNAMEL2"
@ 2, 3 SAY "&MNAMEF1"
@ 2,27 SAY "&MNAMEF2"
@ 3, 3 SAY "&MPHONE1"
@ 3,27 SAY "&MPHONE2"
@ 4, 3 SAY "&MCODEF1"
@ 4,27 SAY "&MCODEF2"
@ 5, 3 SAY "&MCODES1"
@ 5,27 SAY "&MCODES2"
@ 6, 3 SAY "&MYEAR1"
@ 6,27 SAY "&MYEAR2"
@ 7, 3 SAY "&MSTREET1"
@ 7,27 SAY "&MSTREET2"
@ 8, 3 SAY "&MCITY1"
@ 8,27 SAY "&MCITY2"
@ 9, 3 SAY "&MSTATE1"
@ 9,27 SAY "&MSTATE2"
@ 10, 3 SAY "&MZIP1"
@ 10,27 SAY "&MZIP2"
@ 11, 3 SAY "&MMAP1"
@ 11,27 SAY "&MMAP2"
@ 13, 3 SAY "*  &MRECORD1"
@ 13,27 SAY "*  &MRECORD2"
@ 14, 3 SAY "   ========"
@ 14,27 SAY "   ========"
@ 16, 3 SAY "* WRITE DOWN THE ABOVE RECORD NUMBERS"
@ 17, 3 SAY "  ONE OF WHICH WILL BE DELETED LATER"
@ 18, 3 SAY "  AND/OR FIXED IN THE FILE BY YOU !"
@ 20, 3 SAY "  PRESS ANY KEY TO CONTINUE WITH THIS CHECK."
@ 21, 3 SAY "  ============================================ "
@ 22, 3 SAY " "
WAIT
SKIP
ENDIF
ENDDO
ERASE
? '================================================'
?
?
? 'THIS IS THE END OF THIS CHECK. I WILL NOW GOTO'
?
? 'TO THE MAIN MENU WHERE YOU CAN SELECT # 5 '
?
? 'EDIT MODE -- TO DO YOUR THING !!!'
?
? 'HAVE A NICE DAY -- NOW.'
? '-----------------------'
?
? 'PRESS ANY KEY TO CONTINUE'
?
? '==============================================='
WAIT
DO MENU
* THE END -- CHE/DUP
*



















R-1) TO COUNTER
IF COUNTER = 0
   STORE STR(PAGE
STORE YEAR TO MYEAR2
STORE STREET TO MSTREETSTORE STR(PAGE
STORE YEAR TO MYEAR2
STORE STREET TO MSTREET
* CHE/DUP 8/23/83 BY RALPH SHIPP (460-9353)
ERASE
? '==============================================='
?
?
? 'CHECK FOR DUPLICATE RECORD ENTRIES IN FILE'
? '------------------------------------------'
?
?
?
?
? 'NOTE: ON THE NEXT SCREEN USE # 1 TO INDEX FILE'
? '====  BY FAMILY NAME CODE FOR THIS CHECK !!!'
?
? '   1 = CONTINUE'
?
? '   / = EXIT BACK TO MAIN MENU'
?
? 'ENTER ONE OF THE ABOVE'
?
? '=============================================='
WAIT TO TEMP
IF TEMP='/'
   USE
   DO