ftp.barnyard.co.uk/2015.02.ftp.barnyard.co.uk.tar/ftp.barnyard.co.uk/cpm/walnut-creek-CDROM/MBUG/MBUG123.ARC/BOOK3.LBR/VERIFNEW.BQ/VERIFNEW.BK

Text File | 1979-12-31 | 2KB | 95 lines

* DATE 04/04/85  21:27
* verifnew.bk
GO TOP
LOCA FOR new
STOR t TO more
STOR t TO first
DO WHIL more .AND. (.NOT.EOF)
 IF first
  ERAS
  STOR '<A>ccept, <C>ontinue, <D>elete/Recall, <E>dit, <P>rint or <Q>uit' TO prompt1
  STOR 'This Record has Not been Accepted' TO mode
  @ 0,26 SAY mode
  @ 1, 0 SAY " -------------------------------------------------"
  @ 1,50 SAY "----------------------------"
  @ 2, 4 SAY "Title:"
  @ 4, 1 SAY "Subtitle:"
  @ 6, 0 SAY "Authors 1:"
  @ 6,44 SAY "2:"
  @ 7, 8 SAY "3:"
  @ 7,41 SAY "Year:"
  @ 7,63 SAY "Price:"
  @ 9, 0 SAY "Publisher:"
  @ 10, 3 SAY "Street:"
  @ 11, 5 SAY "City:"
  @ 11,40 SAY "State:"
  @ 11,65 SAY "Zip:"
  @ 13, 0 SAY "Subject 1:"
  @ 13,44 SAY "2:"
  @ 14, 8 SAY "3:"
  @ 14,44 SAY "4:"
  @ 15, 8 SAY "5:"
  @ 16, 1 SAY "Comments:"
  @ 19,61 SAY "Updated:"
  @ 20, 0 SAY " -------------------------------------------------"
  @ 20,50 SAY "-----------------------------"
  @ 21, 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
 @ 2,12 SAY $(title,1,60)
 @ 3,12 SAY $(title,61,19)
 @ 4,12 SAY $(subtit,1,60)
 @ 5,12 SAY $(subtit,51,18)
 @ 6,12 SAY auth1
 @ 6,47 SAY auth2
 @ 7,12 SAY auth3
 @ 7,47 SAY year
 @ 7,70 SAY price
 @ 9,12 SAY publish
 @ 10,12 SAY street
 @ 11,12 SAY city
 @ 11,47 SAY state
 @ 11,70 SAY zip
 @ 13,12 SAY subj1
 @ 13,47 SAY subj2
 @ 14,12 SAY subj3
 @ 14,47 SAY subj4
 @ 15,12 SAY subj5
 @ 16,12 SAY $(comment,1,60)
 @ 17,12 SAY $(comment,61,60)
 @ 18,12 SAY $(comment,121,60)
 @ 19,12 SAY $(comment,181,47)
 @ 19,70 SAY dayu
 @ 22,34 SAY 'WHAT NEXT ?'
 @ 22,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.bk
 CASE command = 'P'
  DO print.bk
 CASE command = 'Q'
  STOR f TO more
 CASE command = 'C'
  CONT
 ENDC
ENDD
STOR t TO more
STOR t TO first