* 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