* DATE 04/24/85  20:57
* print.cmd
SET FORMAT TO PRINT
SET MARGIN TO   5
@ 0,65 SAY "Code: "
@ 0,72 SAY code
@ 2, 2 SAY "Author:"
@ 2,10 SAY author
@ 4, 1 SAY "Title 1:"
@ 4,10 SAY $(title1,1,60)
@ 5,10 SAY $(title1,61,60)
@ 6, 1 SAY "Title 2:"
@ 6,10 SAY title2
@ 7, 0 SAY "JrnlCite:"
@ 7,10 SAY journal
@ 9, 0 SAY "Ed-Trans:"
@ 9,10 SAY edtrans
@ 9,56 SAY "Edn:"
@ 9,61 SAY edition
@ 10, 0 SAY "Pub data:"
@ 10,10 SAY publdat
@ 10,55 SAY "Pg #:"
@ 10,61 SAY pageno
@ 11, 0 SAY "Lib data:"
@ 11,10 SAY librdat
@ 13, 3 SAY "Chron:"
@ 13,10 SAY chron
@ 13,55 SAY "Type:"
@ 13,61 SAY type
@ 14, 0 SAY "Wks disc:"
@ 14,10 SAY $(worksdis,1,60)
@ 15,10 SAY $(worksdis,61,60)
@ 16, 0 SAY "Comments:"
@ 16,10 SAY $(comments,1,60)
@ 17,10 SAY $(comments,60,60)
@ 18,10 SAY $(comments,121,40)
@ 18,52 SAY "Updated:"
@ 18,61 SAY dayu
@ 52,00 SAY ' '
@ 55,00 SAY ' '
SET FORMAT TO SCREEN
RETU