** Last revision: April 17, 1986 at 18:54 * verifnew.prg CLEAR @ 07,22 SAY 'LOOKING FOR NEW RECORDS' GO top GO top LOCA FOR new STOR .t. TO first STOR .t. TO more1 DO WHIL more1 .AND. (.NOT.EOF().OR.BOF()) STOR 'OPTIONS: ccept, ontinue, elete/Recall or uit' TO prompt1 STOR CDOW(DATE())+' '+CMONTH(DATE())+' '+STR(DAY(DATE()),2)+", "+STR(YEAR(DATE()),4) TO mday STOR 'VERIFY NEW RECORDS' TO mode STOR ' ' TO command IF first DO s_first STOR .f. TO first ENDI first SET COLOR TO &revvideo @ 1,00 @ 1,01 SAY mday @ 1,35 SAY mode SET COLOR TO &stdvideo IF DELETE() STOR 'Deleted Record' TO deleted ELSE STOR ' ' TO deleted ENDI * SET COLOR TO &revvideo @ 1,65 SAY deleted SET COLOR TO &stdvideo @ 3,13 SAY lastname @ 3,58 SAY fname @ 4,13 SAY spouse @ 4,58 SAY mr @ 6,13 SAY title @ 7,13 SAY company1 @ 8,13 SAY company2 @ 9,13 SAY caddress @ 9,58 SAY suite @ 10,13 SAY ccity @ 10,44 SAY cst @ 10,58 SAY czip @ 12,13 SAY address @ 12,58 SAY apt @ 13,13 SAY city @ 13,44 SAY st @ 13,58 SAY zip @ 14,21 SAY ophone @ 14,58 SAY phone @ 15,13 SAY dear @ 15,58 SAY send @ 16,13 SAY cs1 @ 16,44 SAY cs2 @ 16,58 SAY update @ 19, 0 SAY line @ 20,00 SAY prompt1 @ 20,60 SAY 'SELECT:' @ 20,70 GET command PICTURE '!' READ CLEA GETS DO CASE CASE command = 'A' REPL new WITH .f. CONT LOOP CASE command = 'C' CONT LOOP CASE command = 'D' IF DELETE() RECA ELSE DELE ENDI DELETE LOOP CASE command = 'Q' STOR .f. TO more1 ENDC ENDD while more1 STOR .t. TO first RETU