// spruce  --  Tables for setting up menu windows.


external MenuInitHelp


let MenuInitHelp() = valof
	[
	// set up menu table
	let menu=table
		[
		70
		0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0
		0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0
		0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0
		0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0
		0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0
		]
	menu!1=table [ 0;#44002;#113;#101;#763;#403 ]
	menu!2=table [ 0;#44002;#113;#55;#763;#100 ]
	menu!3=table [ 0;#4000;#115;#104;#260;#127 ]
	menu!4=table [ 0;#40002;#264;#104;#345;#127 ]
	menu!5=table [ 0;#40002;#351;#104;#444;#127 ]
	menu!6=table [ 0;#40002;#450;#104;#543;#127 ]
	menu!7=table [ 0;#40002;#547;#104;#642;#127 ]
	menu!8=table [ 0;#40002;#646;#104;#753;#127 ]
	menu!9=table [ 0;#4000;#40121;#44135;#245;#160 ]
	menu!10=table [ 0;#4000;#266;#136;#443;#161 ]
	menu!11=table [ 0;#4000;#513;#136;#656;#161 ]
	menu!12=table [ 0;#40002;#655;#136;#724;#161 ]
	menu!13=table [ 0;#40002;#656;#265;#725;#310 ]
	menu!14=table [ 0;#4000;#512;#171;#655;#214 ]
	menu!15=table [ 0;#40002;#443;#171;#512;#214 ]
	menu!16=table [ 0;#40002;#655;#171;#724;#214 ]
	menu!17=table [ 0;#4000;#725;#171;#753;#213 ]
	menu!18=table [ 0;#4000;#266;#171;#443;#214 ]
	menu!19=table [ 0;#4000;#40121;#44171;#264;#214 ]
	menu!20=table [ 0;#40002;#443;#136;#513;#161 ]
	menu!21=table [ 0;#4000;#44455;#44266;#656;#307 ]
	menu!22=table [ 0;#4000;#725;#136;#742;#160 ]
	menu!23=table [ 0;#4000;#40121;#44265;#322;#310 ]
	menu!24=table [ 0;#40002;#332;#265;#401;#310 ]
	menu!25=table [ 0;#4000;#404;#265;#442;#307 ]
	menu!26=table [ 0;#40002;#443;#227;#512;#252 ]
	menu!27=table [ 0;#4000;#726;#265;#751;#311 ]
	menu!28=table [ 0;#40002;#657;#227;#726;#252 ]
	menu!29=table [ 0;#4000;#727;#227;#761;#252 ]
	menu!30=table [ 0;#4000;#40121;#44227;#264;#252 ]
	menu!31=table [ 0;#4000;#265;#227;#442;#252 ]
	menu!32=table [ 0;#4000;#513;#227;#656;#252 ]
	menu!33=table [ 0;#40002;#122;#353;#245;#376 ]
	menu!34=table [ 0;#40002;#336;#353;#521;#376 ]
	menu!35=table [ 0;#40002;#606;#353;#757;#376 ]
	menu!36=table [ 0;#4000;#455;#323;#635;#346 ]
	menu!37=table [ 0;#40002;#635;#323;#727;#346 ]
	menu!38=table [ 0;#4000;#40121;#46323;#265;#346 ]
	menu!39=table [ 0;#40002;#275;#323;#446;#346 ]
	menu!40=table [ 0;#44002;#113;#557;#534;#772 ]
	menu!41=table [ 0;#44002;#113;#533;#534;#556 ]
	menu!42=table [ 0;#40002;#113;#773;#534;#1016 ]
	menu!43=table [ 0;#4000;#117;#566;#332;#611 ]
	menu!44=table [ 0;#40002;#336;#566;#410;#610 ]
	menu!45=table [ 0;#40002;#421;#566;#524;#611 ]
	menu!46=table [ 0;#40002;#116;#704;#261;#727 ]
	menu!47=table [ 0;#40002;#116;#616;#261;#641 ]
	menu!48=table [ 0;#0;#175;#775;#276;#1014 ]
	menu!49=table [ 0;#0;#115;#775;#164;#1015 ]
	menu!50=table [ 0;#40002;#277;#704;#360;#727 ]
	menu!51=table [ 0;#40002;#420;#704;#523;#727 ]
	menu!52=table [ 0;#4000;#40363;#42704;#406;#727 ]
	menu!53=table [ 0;#40002;#116;#737;#261;#762 ]
	menu!54=table [ 0;#40002;#277;#737;#360;#762 ]
	menu!55=table [ 0;#4000;#40362;#46737;#405;#762 ]
	menu!56=table [ 0;#40002;#421;#737;#524;#762 ]
	menu!57=table [ 0;#40002;#116;#651;#261;#674 ]
	menu!58=table [ 0;#4000;#277;#651;#360;#674 ]
	menu!59=table [ 0;#4000;#40363;#50651;#406;#674 ]
	menu!60=table [ 0;#40002;#420;#651;#523;#674 ]
	menu!61=table [ 0;#44002;#301;#775;#302;#1014 ]
	menu!62=table [ 0;#4001;#172;#775;#173;#1014 ]
	menu!63=table [ 0;#40002;#113;#404;#763;#427 ]
	menu!64=table [ 0;#0;#115;#406;#164;#426 ]
	menu!65=table [ 0;#0;#202;#406;#364;#426 ]
	menu!66=table [ 0;#1;#173;#406;#174;#425 ]
	menu!67=table [ 0;#1;#367;#406;#370;#425 ]
	menu!68=table [ 0;#4000;#277;#616;#360;#641 ]
	menu!69=table [ 0;#4000;#40363;#46616;#406;#641 ]
	menu!70=table [ 0;#4000;#420;#616;#523;#641 ]

	// set up stringlist table
	let stringlist=table
		[
		70
		0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0
		0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0
		0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0
		0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0
		0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0
		]
	stringlist!2="DEVICE PARAMETERS"
	stringlist!3="Printer Type"
	stringlist!4="Dover"
	stringlist!5="Pimlico"
	stringlist!6="Sequoia"
	stringlist!7="Puffin"
	stringlist!8="Penguin"
	stringlist!9="Paper Size"
	stringlist!10="Scan Direction"
	stringlist!11="Bit Direction"
	stringlist!12="11.0"
	stringlist!13="10.2"
	stringlist!14="Bit Direction"
	stringlist!15="384"
	stringlist!16="384"
	stringlist!17="bpi"
	stringlist!18="Scan Direction"
	stringlist!19="Resolution"
	stringlist!20="8.5"
	stringlist!21="Paper Speed"
	stringlist!22="in"
	stringlist!23="Scan Line Length"
	stringlist!24="11.7"
	stringlist!25="(in)"
	stringlist!26="190"
	stringlist!27="ips"
	stringlist!28="120"
	stringlist!29="dots"
	stringlist!30="Margin Adj."
	stringlist!31="Scan Direction"
	stringlist!32="Bit Direction"
	stringlist!33="Landscape"
	stringlist!34="First Page First"
	stringlist!35="No Break Page"
	stringlist!36="Debug Settings"
	stringlist!37="#40"
	stringlist!38="Printer Name"
	stringlist!39="Chester"
	stringlist!41="FILE SPECIFICATIONS"
	stringlist!43="Disk Configuration"
	stringlist!44="DP1"
	stringlist!45="Trident"
	stringlist!46="Spruce.Spool"
	stringlist!47="Spruce.Errors"
	stringlist!48="INSTALL"
	stringlist!49="QUIT without Installing"
	stringlist!51="DP0"
	stringlist!52="pp"
	stringlist!53="Spruce.Bands"
	stringlist!55="pp"
	stringlist!56="DP0"
	stringlist!57="Spruce.Fonts"
	stringlist!59="pp"
	stringlist!60="DP0"
	stringlist!64="QUIT"
	stringlist!65="INSTALL FILES"
	stringlist!68="	"
	stringlist!69="pp"
	stringlist!70="DP0"

	// set up menuDCB table
	let menuDCB=table
		[
		0
		0;#0;0;22
		0;#2036;0;118
		0;#0;0;33
		0;#2024;0;91
		0;#0;0;140
		]
	test (menuDCB&1) eq 1 ifso menuDCB=menuDCB+1
		ifnot for n=0 to 19 do menuDCB!n=menuDCB!(n+1)
	for n=0 to 3 do menuDCB!(4*n)=menuDCB+4*(n+1)

	// now finish up
	let temp=table [ 0;0;0 ]
	temp!0=menu
	temp!1=stringlist
	temp!2=menuDCB
	resultis temp
	]