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

Text File | 1979-12-31 | 4KB | 144 lines

* edit.bk  -1/19/85
* edit inventory data
STOR CHR(PEEK (063)) TO dr
STOR # TO rec:number
RECA
SET COLON OFF
STOR $(title,1,60) TO mtitle1
STOR $(title,61,19) TO mtitle2
STOR $(subtit,1,60) TO msubtit1
STOR $(subtit,61,18) TO msubtit2
STOR auth1 TO mauth1
STOR auth2 TO mauth2
STOR auth3 TO mauth3
STOR year TO myear
STOR price TO mprice
STOR publish TO mpublish
STOR street TO mstreet
STOR city TO mcity
STOR state TO mstate
STOR zip TO mzip
STOR subj1 TO msubj1
STOR subj2 TO msubj2
STOR subj3 TO msubj3
STOR subj4 TO msubj4
STOR subj5 TO msubj5
STOR $(comment,1,60) TO mcomm1
STOR $(comment,61,60) TO mcomm2
STOR $(comment,121,60) TO mcomm3
STOR $(comment,181,47) TO mcomm4
STOR dayu TO mdayu
ERAS
STOR 'Edit Bibliography Module' TO mode
STOR 'Enter the new or corrected information' TO prompt1
STOR "Control 'Q' to end edit 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,64 SAY "Price:"
@ 9, 0 SAY "Publisher:"
@ 10, 3 SAY "Street:"
@ 11, 5 SAY "City:"
@ 11,40 SAY "State:"
@ 11,66 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,62 SAY "Updated:"
@ 20, 0 SAY " -------------------------------------------------"
@ 20,50 SAY "-----------------------------"
@ 21,12 SAY prompt1
@ 22,12 SAY prompt2
@ 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
@ 7,71 GET mprice
@ 9,12 GET mpublish
@ 10,12 GET mstreet
@ 11,12 GET mcity
@ 11,47 GET mstate
@ 11,71 GET mzip
@ 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
READ
CLEA GETS
STOR 'Y' TO command
SET COLON ON
@ 21,00
@ 22,00
@ 21,12 SAY 'Is this correct (Y/N) ?'
@ 21,40 GET command PICTURE '!'
SET COLON OFF
READ
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
 @ 7,71 GET mprice
 @ 9,12 GET mpublish
 @ 10,12 GET mstreet
 @ 11,12 GET mcity
 @ 11,47 GET mstate
 @ 11,71 GET mzip
 @ 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
 READ
 CLEA GETS
ENDI command = 'N'
STOR 'Y' TO command
SET COLON ON
@ 21,00
@ 22,00
@ 21,12 SAY 'Do You wish to UpDate to Todays Date (Y/N) ?'
@ 21,57 GET command PICTURE '!'
READ
IF command = 'Y'
 STOR date() TO mdayu
ENDI
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
GO rec:number
RELE ALL
STOR '?' TO command
STOR t TO more
STOR t TO first