(FILECREATED "11-Jun-85 17:33:20" {ERIS}<LISPCORE>BUSMASTER>BUSMASTERDEMO.;4
 1525   

      changes to:  (FNS DEMOMENU)
		   (VARS BUSMASTERDEMOCOMS)

      previous date: "11-Jun-85 13:51:40" {ERIS}<LISPCORE>BUSMASTER>BUSMASTERDEMO.;2)


(PRETTYCOMPRINT BUSMASTERDEMOCOMS)

(RPAQQ BUSMASTERDEMOCOMS
 ((FNS DEMOMENU)
	(FILES BUSEXTENDER BUSMASTER BUSMASTERTEST TOGMENU TRUEHAX BUSUTIL TESTBUS TESTBLT 
	       DANDELIONUFO4096 READNUMBER LLCOLOR COLOR COLORDEMO NEWRTSD NOBOX PCDAC HASH DSL 
	       BUSUTIL RTSDPATCH BUSRESET)
	(P (DEMOMENU))))
(DEFINEQ

(DEMOMENU

  [LAMBDA NIL
    [
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
)
							  (
COLORDEMO
))
						   "Initialize UFO colorcard")
					(DSLINIT (
NewShow
 (
MakeSSForFile
 (
QUOTE
 f1)
									 (
QUOTE
 {CORE}F1.SPEECH)
									 NIL 1024 10000))
						 "create new DSL window"]
    (
ADDMENU
 DMENU NIL (
GETBOXPOSITION
 (fetch
 IMAGEWIDTH of
 DMENU)
				       (fetch
 IMAGEHEIGHT of
 DMENU])
)
(FILESLOAD BUSEXTENDER BUSMASTER BUSMASTERTEST TOGMENU TRUEHAX BUSUTIL TESTBUS TESTBLT 
	   DANDELIONUFO4096 READNUMBER LLCOLOR COLOR COLORDEMO NEWRTSD NOBOX PCDAC HASH DSL BUSUTIL 
	   RTSDPATCH BUSRESET)
(DEMOMENU)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (555 1286 (DEMOMENU 565 . 1284)))))
STOP