CP/M/CPM_CDROM.iso/lambda/soundpot/a/dbref.lbr/ADD.RZF/ADD.REF

Text File | 1993-10-26 | 4.3 KB | 168 lines

* DATE 04/24/85  20:53
* add.ref
ERAS
SET INDEX TO
GO BOTTOM
STOR # TO mcod
STOR 10000+mcod TO mcod
STOR t TO first
STOR t TO more
SET INTENSITY ON
SET COLON OFF
DO WHIL more
 IF first
  STOR 'Enter as many new references as needed. When done, enter' TO prompt1
  STOR "blank for Author and Title 1 or Control 'Q' to end session." TO prompt2
  STOR "Add 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 "-----------------------------+"
 ENDI first
 STOR f TO first
 @ 21,12 SAY prompt1
 @ 22,12 SAY prompt2
 STOR '                                                            ' TO blnks
 STOR mcod+1 TO mcod
 STOR STR(mcod,5) TO mcode
 STOR blnks TO mauth
 STOR ' ' TO maction
 STOR blnks TO mtitl1
 STOR blnks TO mtitl2
 STOR blnks TO mtitle2
 STOR blnks TO mjourn
 STOR $(blnks,1,18) TO medit
 STOR $(blnks,1,18) TO mpagen
 STOR $(blnks,1,45) TO medtran
 STOR $(blnks,1,45) TO mpubl
 STOR blnks TO mlibr
 STOR $(blnks,1,45) TO mchron
 STOR $(blnks,1,18) TO mtype
 STOR blnks TO mwork1
 STOR blnks TO mwork2
 STOR blnks TO mcom1
 STOR blnks TO mcom2
 STOR $(blnks,1,40) TO mcom3
 STOR DATE() to mdayu
 @ 0,27 SAY mode
 @ 2,10 GET mauth

 @ 4,10 GET mtitl1
 @ 5,10 GET mtitl2
 @ 6,10 GET mtitle2
 @ 7,10 GET mjourn
 @ 9,10 GET medtran
 @ 9,61 GET medit
 @ 10,10 GET mpubl
 @ 10,61 GET mpagen
 @ 11,10 GET mlibr
 @ 13,10 GET mchron
 @ 13,61 GET mtype
 @ 14,10 GET mwork1
 @ 15,10 GET mwork2
 @ 16,10 GET mcom1
 @ 17,10 GET mcom2
 @ 18,10 GET mcom3
 @ 18,61 GET dayu PICTURE '99/99/99'
 @ 0,72 GET mcode PICTURE '99999'
 @ 3,72 GET maction PICTURE '!'
 READ
 CLEA GETS
 @ 21,00
 @ 22,00
 READ
 CLEA GETS
 STOR 'Y' TO command
 SET COLON ON
 @ 21,00
 @ 22,00
 @ 21,30 SAY 'Is this correct ? '
 @ 21,48 GET command PICTURE '!'
 READ
 @ 21,00
 SET COLON OFF
 IF command = 'N'
  @ 2,10 GET mauth

  @ 4,10 GET mtitl1
  @ 5,10 GET mtitl2
  @ 6,10 GET mtitle2
  @ 7,10 GET mjourn
  @ 9,10 GET medtran
  @ 9,61 GET medit
  @ 10,10 GET mpubl
  @ 10,61 GET mpagen
  @ 11,10 GET mlibr
  @ 13,10 GET mchron
  @ 13,61 GET mtype
  @ 14,10 GET mwork1
  @ 15,10 GET mwork2
  @ 16,10 GET mcom1
  @ 17,10 GET mcom2
  @ 18,10 GET mcom3
  @ 18,61 GET dayu PICTURE '99/99/99'
  @ 0,72 GET mcode PICTURE '99999'
  @ 3,72 GET maction PICTURE '!'
  READ
  CLEA GETS
 ENDI command
 IF mauth <> ' ' .OR. mtitl1 <> ' '
  APPE BLANK
  REPL author WITH mauth, title1 WITH mtitl1+mtitl2, title2 WITH mtitle2
  REPL code WITH  mcode, action WITH maction
  REPL journal WITH mjourn, edition WITH medit, pageno WITH mpagen
  REPL edtrans WITH medtran, publdat WITH mpubl, librdat WITH mlibr
  REPL chron WITH mchron,type WITH mtype, worksdis WITH mwork1+mwork2
  REPL comments WITH mcom1+mcom2+mcom3, dayu WITH mdayu
  REPL new WITH t
 ELSE
  STOR f TO more
 ENDI there is an empty record
ENDD while more
SET COLON ON
STOR 'Y' TO command
ERAS
@ 02,10 SAY  'The  newly added material will NOT appear to be in the file'
@ 03,10 SAY  'until they are RE-INDEXED and this will take a few seconds.'
@ 05,10 SAY  'You can reindex now, or reindex later using the reindex '
@ 06,10 SAY  'function on the Maintenance Menu.'
@ 07,10 SAY  'Do you want to reindex NOW ? '
@ 07,38 GET command PICTURE '!'
READ
CLEA GETS
REST FROM rdata additive
IF command = 'Y'
 @ 09,10 SAY 'Records are now being re-indexed. '
 @ 10,10 SAY ' '
 STOR CHR(PEEK(063)) TO dr
 SET TALK ON
 SET ECHO ON
 SET INDEX TO &dr.:&tindex, &dr.:&aindex, &dr.:&cindex
 REIN
 SET TALK OFF
 SET ECHO OFF
ENDI command = 'Y'
REST from REF.DAT additive
IF bright = 'I'
 SET intensity off
ENDI bright
SET INDEX TO &dr.:&tindex
RELE ALL
STOR t TO first