* DATE 04/24/85  21:24
* verifdel.ref
GO TOP
LOCA FOR *  
STOR t TO more
STOR t TO first
DO WHIL more .AND. (.NOT.EOF)
 IF first
  ERAS
  STOR '<C>ontinue, <D>elete/Recall, <E>dit, <P>rint or <Q>uit' TO prompt1
  STOR 'Verify Deleted Records' TO mode
  @ 0,65 SAY "Code: "
  @ 1, 0 SAY "+-------------------------------------------------"
  @ 1,50 SAY "-----------------------------+"
  @ 2, 2 SAY "Author:"
  @ 3,54 SAY ">>> ACTION >>>>>"
  @ 4, 1 SAY "Title 1:"
  @ 6, 1 SAY "Title 2:"
  @ 7, 0 SAY "JrnlCite:"
  @ 9, 0 SAY "Ed/Trans:"
  @ 9,56 SAY "Edn:"
  @ 10, 0 SAY "Pub data:"
  @ 10,55 SAY "Pg #:"
  @ 11, 0 SAY "Lib data:"
  @ 13, 3 SAY "Chron:"
  @ 13,55 SAY "Type:"
  @ 14, 0 SAY "Wks disc:"
  @ 16, 0 SAY "Comments:"
  @ 18,52 SAY "Updated:"
  @ 19, 0 SAY "+-------------------------------------------------"
  @ 19,50 SAY "-----------------------------+"
  @ 20, 2 SAY prompt1
 ENDI
 STOR f TO first
 STOR '?' TO command
 IF *
  STOR 'Deleted' TO deleted
 ELSE
  STOR '       ' TO deleted
 ENDI
 @ 0,0 SAY deleted
 @ 0,27 SAY mode
 @ 0,72 SAY code
 @ 2,10 SAY author
 @ 3,72 SAY action
 @ 4,10 SAY $(title1,1,60)
 @ 5,10 SAY $(title1,61,60)
 @ 6,10 SAY title2
 @ 7,10 SAY journal
 @ 9,10 SAY edtrans
 @ 9,61 SAY edition
 @ 10,10 SAY publdat
 @ 10,61 SAY pageno
 @ 11,10 SAY librdat
 @ 13,10 SAY chron
 @ 13,61 SAY type
 @ 14,10 SAY $(worksdis,1,60)
 @ 15,10 SAY $(worksdis,61,60)
 @ 16,10 SAY $(comments,1,60)
 @ 17,10 SAY $(comments,60,60)
 @ 18,10 SAY $(comments,121,40)
 @ 18,61 SAY dayu
 @ 21,34 SAY 'WHAT NEXT ?'
 @ 21,46 GET command picture '!'
 READ
 DO CASE
 CASE command = 'A'
  REPL new WITH f
  CONT
 CASE command = 'D'
  IF *
   RECA
  ELSE
   DELE
  ENDI
 CASE command = 'E'
  DO edit.ref
 CASE command = 'P'
  DO print.ref
 CASE command = 'Q'
  STOR f TO more
 CASE command = 'C'
  CONT
 ENDC
ENDD
STOR t TO more
STOR t TO first