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

Text File | 1979-12-31 | 5KB | 177 lines

* DATE 02/24/85  16:39
* add.bk
ERAS
SET INDEX TO
STOR t TO first
STOR t TO more
SET INTENSITY ON
SET COLON OFF
DO WHIL more
 IF first
  STOR 'Add Titles Module' TO mode
  STOR 'Enter as many new volumes as needed. When done, enter' TO prompt1
  STOR "blank for title or Control 'Q' to end session." TO prompt2
  @ 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 "-----------------------------"
 ENDI first
 STOR f TO first
 STOR '                                        ' TO blnks
 STOR blnks+$(blnks,1,20) TO mtitle1
 STOR $(blnks,1,19) TO mtitle2
 STOR blnks+$(blnks,1,20) TO msubtit1
 STOR $(blnks,1,18) TO msubtit2
 STOR $(blnks,1,20) TO mauth1
 STOR $(blnks,1,20) TO mauth2
 STOR $(blnks,1,20) TO mauth3
 STOR $(blnks,1,4) TO myear
 STOR $(blnks,1,6) to mprice
 STOR $(blnks,1,30) TO mpublish
 STOR $(blnks,1,17) TO mstreet
 STOR $(blnks,1,15) TO mcity
 STOR $(blnks,1,2) TO mstate
 STOR $(blnks,1,10) TO mzip
 STOR $(blnks,1,22) TO msubj1
 STOR $(blnks,1,22) TO msubj1
 STOR $(blnks,1,22) TO msubj2
 STOR $(blnks,1,22) TO msubj3
 STOR $(blnks,1,22) TO msubj4
 STOR $(blnks,1,21) TO msubj5
 STOR blnks+$(blnks,1,20) TO mcomm1
 STOR blnks+$(blnks,1,20) TO mcomm2
 STOR blnks+$(blnks,1,20) TO mcomm3
 STOR blnks+$(blnks,1,7) TO mcomm4
 STOR DATE() to mdayu
 @ 2,12 GET mtitle1
 @ 3,12 GET mtitle2
 @ 4,12 GET msubtit1
 @ 5,12 GET msubtit2
 @ 6,12 GET mauth1
 @ 6,47 GET mauth2
 @ 7,12 GET mauth3
 @ 7,47 GET myear PICTURE '9999'
 @ 7,70 GET mprice PICTURE '999999'
 @ 9,12 GET mpublish
 @ 10,12 GET mstreet
 @ 11,12 GET mcity
 @ 11,47 GET mstate PICTURE '!!'
 @ 11,70 GET mzip PICTURE '99999-9999'
 @ 13,12 GET msubj1
 @ 13,47 GET msubj2
 @ 14,12 GET msubj3
 @ 14,47 GET msubj4
 @ 15,12 GET msubj5
 @ 16,12 GET mcomm1
 @ 17,12 GET mcomm2
 @ 18,12 GET mcomm3
 @ 19,12 GET mcomm4
 @ 19,71 GET mdayu
 @ 21,00
 @ 22,00
 @ 21, 9 SAY prompt1
 @ 22, 9 SAY prompt2
 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
 SET COLON OFF
 IF command = 'N'
  @ 2,12 GET mtitle1
  @ 3,12 GET mtitle2
  @ 4,12 GET msubtit1
  @ 5,12 GET msubtit2
  @ 6,12 GET mauth1
  @ 6,47 GET mauth2
  @ 7,12 GET mauth3
  @ 7,47 GET myear PICTURE '9999'
  @ 7,70 GET mprice PICTURE '999999'
  @ 9,12 GET mpublish
  @ 10,12 GET mstreet
  @ 11,12 GET mcity
  @ 11,47 GET mstate PICTURE '!!'
  @ 11,70 GET mzip PICTURE '99999-9999'
  @ 13,12 GET msubj1
  @ 13,47 GET msubj2
  @ 14,12 GET msubj3
  @ 14,47 GET msubj4
  @ 15,12 GET msubj5
  @ 16,12 GET mcomm1
  @ 17,12 GET mcomm2
  @ 18,12 GET mcomm3
  @ 19,12 GET mcomm4
  @ 19,71 GET mdayu
  @ 21,00
  @ 22,00
  READ
  CLEA GETS
 ENDI command
 IF mtitle1 <> ' '
  APPE BLANK
  REPL title with mtitle1+mtitle2, subtit WITH msubtit1+msubtit2
  REPL auth1 WITH mauth1, auth2 WITH mauth2, auth3 WITH mauth3
  REPL year WITH myear, price WITH mprice, publish WITH mpublish
  REPL street WITH mstreet, city WITH mcity, state WITH mstate, zip WITH mzip
  REPL subj1 WITH msubj1, subj2 WITH msubj2, subj3 WITH msubj3, subj4 WITH msubj4
  REPL subj5 WITH msubj5, comment WITH mcomm1+mcomm2+mcomm3+mcomm4, 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 VOLUMES 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 bdata 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
 REIN
 SET TALK OFF
 SET ECHO OFF
ENDI command = 'Y'
REST from BOOKS.DAT additive
IF bright = 'I'
 SET intensity off
ENDI bright
SET INDEX TO &dr.:&tindex
RELE ALL
STOR t TO first