(FILECREATED "11-Aug-85 21:38:54" {ERIS}<LISPCORE>BUSMASTER>NEW>SHOW>BUSMASTERDEMO1.;1
 2594   

      changes to:  (VARS BUSMASTERDEMO1COMS))


(PRETTYCOMPRINT BUSMASTERDEMO1COMS)

(RPAQQ BUSMASTERDEMO1COMS
 [(FNS DEMOFIX DEMOMENU)
	(FILES BUSEXTENDER BUSMASTER BUSMASTERTEST TOGMENU TRUEHAX BUSUTIL TESTBUS TESTBLT 
	       DANDELIONUFO DANDELIONUFO4096 READNUMBER LLCOLOR COLOR COLORDEMO NEWRTSD NOBOX PCDAC 
	       HASH DSL BUSUTIL RTSDPATCH BUSRESET)
	(P (DEMOMENU)
	   (COPYFILE (QUOTE DANDELIONUFO.DCOM)
		     (QUOTE {CORE}DANDELIONUFO.DCOM))
	   (COPYFILE (QUOTE DANDELIONUFO4096.DCOM)
		     (QUOTE {CORE}DANDELIONUFO4096.DCOM])
(DEFINEQ

(DEMOFIX

  [LAMBDA NIL                                             (* edited: "11-Jun-85 21:13")

    (
CLOSEALL
)
    (
WINDOWPROP
 DSLWINDOW (
QUOTE
 SignalFile)
		(
OPENSTREAM
 (
QUOTE
 {CORE}F1.SPEECH)
			    (
QUOTE
 BOTH])

(DEMOMENU

  [LAMBDA NIL                                             (* edited: "11-Jun-85 21:13")

    [
SETQ
 DMENU (create
 MENU
			ITEMS ←(
QUOTE
 ((BUSRESET (
BUS.RESET
)
						 "Hardware reset of BusMaster")
					(
BUSMASTERTEST
 (
PRINT
 (
BUSMASTERTEST
)
							      (
PROCESS.WINDOW
 (
QUOTE
 EXEC)))
						       "Quick checkout test of BusMaster")
					(COLORINIT (
PROGN
 (
\DANDELION\INITCOLORS.4096
))
						   "Initialize UFO colorcard")
					(OLDCOLORINIT (
PROGN
 (
\DANDELION\INITCOLORS
))
						      "Initialize old (64 color) UFO color")
					(COLORINSTALL (
LOAD
 (
QUOTE
 {CORE}DANDELIONUFO4096.DCOM))
						      "Loads DANDELIONUFO4096 from {CORE}")
					(OLDCOLORINSTALL (
LOAD
 (
QUOTE
 {CORE}DANDELIONUFO.DCOM))
							 "Loads DANDELIONUFO from {CORE}")
					(
COLORDEMO
 (
COLORDEMO
)
						   "Run COLORDEMO")
					(DSLINIT (
SETQ
 DSLWINDOW (
NewShow
 (
MakeSSForFile

									    (
QUOTE
 f1)
									    (
QUOTE
 {CORE}F1.SPEECH)
									    NIL 1024 10000)))
						 "create new DSL window")
					(DSLFIX (DEMOFIX
)
						"Reopen file behind DSL window"]
    (
ADDMENU
 DMENU NIL (
GETBOXPOSITION
 (fetch
 IMAGEWIDTH of
 DMENU)
				       (fetch
 IMAGEHEIGHT of
 DMENU])
)
(FILESLOAD BUSEXTENDER BUSMASTER BUSMASTERTEST TOGMENU TRUEHAX BUSUTIL TESTBUS TESTBLT DANDELIONUFO 
	   DANDELIONUFO4096 READNUMBER LLCOLOR COLOR COLORDEMO NEWRTSD NOBOX PCDAC HASH DSL BUSUTIL 
	   RTSDPATCH BUSRESET)
(DEMOMENU)
(COPYFILE (QUOTE DANDELIONUFO.DCOM)
	  (QUOTE {CORE}DANDELIONUFO.DCOM))
(COPYFILE (QUOTE DANDELIONUFO4096.DCOM)
	  (QUOTE {CORE}DANDELIONUFO4096.DCOM))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (648 2190 (DEMOFIX 658 . 905) (DEMOMENU 907 . 2188)))))
STOP