** Last revision: April 17, 1986 at 18:54 * verifdel.prg CLEAR @ 07,22 SAY 'LOOKING FOR RECORDS MARKED FOR DELETION' GO top LOCA FOR DELETE() STOR .t. TO first STOR .t. TO more DO WHIL more .AND. (.NOT.EOF().OR.BOF()) STOR 'VERIFY DELETED RECORDS' TO mode STOR 'OPTIONS: ontinue, elete/Recall, or uit' TO prompt1 STOR ' ' TO command STOR .t. TO first STOR CDOW(DATE())+' '+CMONTH(DATE())+' '+STR(DAY(DATE()),2)+", "+STR(YEAR(DATE()),4) TO mday IF first DO s_first ENDIF first SET COLOR TO &revvideo @ 1,00 @ 1,01 SAY mday @ 1,35 SAY mode SET COLOR TO &stdvideo * check to see if current record is marked for deletion 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 * find out what to do next DO CASE CASE command = 'D' IF DELETE() RECA ELSE DELE ENDI CASE command = 'Q' STOR .f. to more CASE command = 'C' CONT ENDC ENDD STOR .t. to first RETU