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

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

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