(FILECREATED "12-Aug-85 01:41:00" {ERIS}<LISPCORE>BUSMASTER>NEW>SHOW>BUSMASTERDEMO.;9
 3237   

      changes to:  (FNS DEMOMENU)

      previous date: "12-Aug-85 00:28:32" {ERIS}<LISPCORE>BUSMASTER>NEW>SHOW>BUSMASTERDEMO.;7)


(PRETTYCOMPRINT BUSMASTERDEMOCOMS)

(RPAQQ BUSMASTERDEMOCOMS
 [(FNS ARRAYBASE DEMOMENU DEMOFIX)
	(P (LOAD (QUOTE BUSMASTERTEST)))
	(FILES BUSEXTENDER BUSMASTER BUSMASTERTEST TOGMENU TRUEHAX BUSUTIL BUSTEST PCMEMTEST 
	       DANDELIONUFO4096 READNUMBER LLCOLOR COLOR COLORDEMO PCDAC NEWRTSD NOBOX HASH MOVEDATA 
	       DSL RTSDPATCH BUSRESET)
	(P (DEMOMENU)
	   (MAKE.BUS.TEST)
	   (MAKE.PCMEM.TEST)
	   (MAKE.PCDAC.TEST)
	   (COPYFILE (QUOTE WD10.SD)
		     (QUOTE {DSK}<DSK>HTHOMPSON>DSL>WD10.SD))
	   (COPYFILE (QUOTE NEW.SF)
		     (QUOTE {DSK}<DSK>HTHOMPSON>DSL>NEW.SF))
	   (COPYFILE (QUOTE DANDELIONUFO.DCOM)
		     (QUOTE {CORE}DANDELIONUFO.DCOM))
	   (COPYFILE (QUOTE DANDELIONUFO4096.DCOM)
		     (QUOTE {CORE}DANDELIONUFO4096.DCOM])
(DEFINEQ

(ARRAYBASE

  [LAMBDA (A)                                             (* edited: "11-Aug-85 00:52")

    (
\GETBASEPTR
 A 0])

(DEMOMENU

  [LAMBDA NIL                                             (* edited: "12-Aug-85 01:39")

    [
SETQ
 DMENU (create
 MENU
			ITEMS ←(
QUOTE
 ((BUSRESET (
BUS.RESET
)
						 "Hardware reset of BusMaster")
					(
PC.CHECKOUT
 (
PROGN
 (
GIVE.TTY.PROCESS
 (
PROCESS.WINDOW

										(
QUOTE
 EXEC)))
							    (
BKSYSBUF
 "(PC.CHECKOUT)"))
						     "Check out BusMaster (HT)")
					(
BUSMASTERTEST
 (
PROGN
 (
GIVE.TTY.PROCESS
 (
PROCESS.WINDOW

										  (
QUOTE
 EXEC)))
							      (
BKSYSBUF
 "(BUSMASTERTEST)"))
						       "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"]
    (
ADDMENU
 DMENU NIL (
GETBOXPOSITION
 (fetch
 IMAGEWIDTH of
 DMENU)
				       (fetch
 IMAGEHEIGHT of
 DMENU])

(DEMOFIX

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

    (
CLOSEALL
)
    (
WINDOWPROP
 DSLWINDOW (
QUOTE
 SignalFile)
		(
OPENSTREAM
 (
QUOTE
 {CORE}F1.SPEECH)
			    (
QUOTE
 BOTH])
)
(LOAD (QUOTE BUSMASTERTEST))
(FILESLOAD BUSEXTENDER BUSMASTER BUSMASTERTEST TOGMENU TRUEHAX BUSUTIL BUSTEST PCMEMTEST 
	   DANDELIONUFO4096 READNUMBER LLCOLOR COLOR COLORDEMO PCDAC NEWRTSD NOBOX HASH MOVEDATA DSL 
	   RTSDPATCH BUSRESET)
(DEMOMENU)
(MAKE.BUS.TEST)
(MAKE.PCMEM.TEST)
(MAKE.PCDAC.TEST)
(COPYFILE (QUOTE WD10.SD)
	  (QUOTE {DSK}<DSK>HTHOMPSON>DSL>WD10.SD))
(COPYFILE (QUOTE NEW.SF)
	  (QUOTE {DSK}<DSK>HTHOMPSON>DSL>NEW.SF))
(COPYFILE (QUOTE DANDELIONUFO.DCOM)
	  (QUOTE {CORE}DANDELIONUFO.DCOM))
(COPYFILE (QUOTE DANDELIONUFO4096.DCOM)
	  (QUOTE {CORE}DANDELIONUFO4096.DCOM))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (981 2624 (ARRAYBASE 991 . 1124) (DEMOMENU 1126 . 2373) (DEMOFIX 2375 . 2622)))))
STOP