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

Text File | 1993-10-26 | 3.3 KB | 129 lines

* edit.bk  -1/19/85
* edit inventory data
STOR CHR(PEEK (063)) TO dr
STOR # TO rec:number
RECA
SET COLON OFF
STOR code TO mcode
STOR author TO mauth
STOR action TO maction
STOR $(title1,1,60) TO mtitl1
STOR $(title1,61,60) TO mtitl2
STOR title2 TO mtitle2
STOR journal TO mjourn
STOR edition TO medit
STOR pageno TO mpagen
STOR edtrans TO medtran
STOR publdat TO mpubl
STOR librdat TO mlibr
STOR chron TO mchron
STOR type TO mtype
STOR $(worksdis,1,60) TO mwork1
STOR $(worksdis,61,60) TO mwork2
STOR $(comments,1,60) TO mcom1
STOR $(comments,61,60) TO mcom2
STOR $(comments,121,40) TO mcom3
STOR dayu TO mdayu
ERAS
STOR 'Enter the new or corrected information' TO prompt1
STOR "Control 'Q' to end edit session" TO prompt2
STOR "Edit Data" 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,12 SAY prompt1
@ 21,12 SAY prompt2
@ 0,27 SAY mode
@ 0,72 GET mcode
@ 2,10 GET mauth
@ 3,72 GET maction PICTURE '!'
@ 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'
READ
CLEA GETS
STOR 'Y' TO command
SET COLON ON
@ 20,00
@ 21,00
@ 20,12 SAY 'Is this correct (Y/N) ?'
@ 20,40 GET command PICTURE '!'
SET COLON OFF
READ
IF command = 'N'
 @ 0,72 GET mcode
 @ 2,10 GET mauthor
 @ 3,72 GET maction
 @ 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
 READ
 CLEA GETS
ENDI command = 'N'
STOR 'Y' TO command
SET COLON ON
@ 20,00
@ 21,00
@ 20,12 SAY 'Do You wish to UpDate to Todays Date (Y/N) ?'
@ 20,57 GET command PICTURE '!'
READ
IF command = 'Y'
 STOR date() TO mdayu
ENDI
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
GO rec:number
RELE ALL
STOR '?' TO command
STOR t TO more
STOR t TO first