(FILECREATED "11-Feb-85 16:24:10" {PHYLUM}<NOTECARDS>RELEASE1.1>LIBRARY>VIDEOTAPE.;1
 1210   

      changes to:  (VARS VIDEOTAPECOMS PSA.ContentsCardDefaultHeight PSA.ContentsCardDefaultWidth 
			 PSA.TimesRoman10 NC.BrowserCardDefaultWidth NC.BrowserCardDefaultHeight)
		   (ADVICE NC.MakeNoteCard))


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT VIDEOTAPECOMS)

(RPAQQ VIDEOTAPECOMS
 ((VARS PSA.ContentsCardDefaultHeight PSA.ContentsCardDefaultWidth)
		      (VARS NC.BrowserCardDefaultWidth NC.BrowserCardDefaultHeight)
		      (ADVISE NC.MakeNoteCard)
		      (P (SETQ PSA.TimesRoman10 (SETQ NC.DefaultFont (FONTCREATE (QUOTE HELVETICA)
										 14
										 (QUOTE BOLD)))))))

(RPAQQ PSA.ContentsCardDefaultHeight
 175)

(RPAQQ PSA.ContentsCardDefaultWidth
 225)

(RPAQQ NC.BrowserCardDefaultWidth
 600)

(RPAQQ NC.BrowserCardDefaultHeight
 175)

(PUTPROPS NC.MakeNoteCard READVICE
 (NIL (AFTER NIL (NC.AssignTitle !VALUE))))
(READVISE NC.MakeNoteCard)
(SETQ PSA.TimesRoman10 (SETQ NC.DefaultFont (FONTCREATE (QUOTE HELVETICA)
							14
							(QUOTE BOLD))))
(PUTPROPS VIDEOTAPE COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP