;;; -*- Mode:LISP; Package:USER; Base:10; Fonts:(CPTFONTB) -*-

(require 'sticker "sw:tools;sticker")

(defun vista-3290()
  (let((addr
	 `(("Gigamos Systems Inc." :font bold :center t)
	   ("650 Suffolk St." :font normal :center t)
	   ("Lowell, MA 01854" :font normal :center t)))
	(title
	  '(("Release 3.0 ZETALISP-Plus" :font standard :center t)
;	    ("")
	    ("VISTA GRAPHICS" :font bold :center t)
	    ("")
	    ("Documentation Assembly # 3290-0000" :font normal :center t)))
        (text "
                This documentation assembly includes one each
                of the following manuals:

                PART #          TITLE
                ------          -----
                3235-0000       Vista 3.0 Installation Instructions
                3273-0000       Vista 3.0 Release Notes
                3276-0000       Vista 3.0 Library User Manual
                3272-0000       Vista 3.0 VISOBS User Manual
"))
    (sticker title :left 180 :top 100 :left-margin 16)
    (format t "~5%~a" text)
    (sticker addr :clear-window nil :left 210 :top 550 :shadows 2 :left-margin 16)))