* DATE 02/10/85  21:02
* print.cmd
SET FORMAT TO PRINT
SET MARGIN TO   5
@ 2, 4 SAY "Title:"
@ 2,12 SAY $(title,1,60)
@ 3,12 SAY $(title,61,19)
@ 4, 1 SAY "Subtitle:"
@ 4,12 SAY $(subtit,1,60)
@ 5,12 SAY $(subtit,51,18)
@ 6, 0 SAY "Authors 1:"
@ 6,12 SAY auth1
@ 6,44 SAY "2:"
@ 6,47 SAY auth2
@ 7, 8 SAY "3:"
@ 7,12 SAY auth3
@ 7,41 SAY "Year:"
@ 7,47 SAY year
@ 7,64 SAY "Price:"
@ 7,71 SAY price
@ 9, 0 SAY "Publisher:"
@ 9,12 SAY publish
@ 10, 3 SAY "Street:"
@ 10,12 SAY street
@ 11, 5 SAY "City:"
@ 11,12 SAY city
@ 11,40 SAY "State:"
@ 11,47 SAY state
@ 11,66 SAY "Zip:"
@ 11,71 SAY zip
@ 13, 0 SAY "Subject 1:"
@ 13,12 SAY subj1
@ 13,44 SAY "2:"
@ 13,47 SAY subj2
@ 14, 8 SAY "3:"
@ 14,12 SAY subj3
@ 14,44 SAY "4:"
@ 14,47 SAY subj4
@ 15, 8 SAY "5:"
@ 15,12 SAY subj5
@ 16, 1 SAY "Comments:"
@ 16,12 SAY $(comment,1,60)
@ 17,12 SAY $(comment,61,60)
@ 18,12 SAY $(comment,121,60)
@ 19,12 SAY $(comment,181,47)
@ 19,62 SAY "Updated:"
@ 19,71 SAY dayu
@ 52,00 SAY ' '
@ 55,00 SAY ' '
SET FORMAT TO SCREEN
RETU