Oakland CPM Archive/oakcpm.iso/sigm/vol285/verifdel.prg

Text File | 1986-12-22 | 1.9 KB | 78 lines

**    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:  <C>ontinue, <D>elete/Recall, or <Q>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