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


external MenuFilesHelp


// MenuInitHelp => MenuFilesHelp after MenuEdit -- manual change
let MenuFilesHelp() = valof
	[
	// set up menu table
	let menu=table
		[
		26
		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;#112;#77;#533;#312 ]
	menu!2=table [ 0;#44002;#112;#53;#533;#76 ]
	menu!3=table [ 0;#40002;#112;#313;#533;#336 ]
	menu!4=table [ 0;#4000;#116;#106;#331;#131 ]
	menu!5=table [ 0;#40002;#335;#106;#407;#130 ]
	menu!6=table [ 0;#40002;#420;#106;#523;#131 ]
	menu!7=table [ 0;#40002;#115;#224;#260;#247 ]
	menu!8=table [ 0;#40002;#115;#136;#260;#161 ]
	menu!9=table [ 0;#0;#174;#315;#275;#334 ]
	menu!10=table [ 0;#0;#114;#315;#163;#335 ]
	menu!11=table [ 0;#40002;#276;#224;#357;#247 ]
	menu!12=table [ 0;#40002;#417;#224;#522;#247 ]
	menu!13=table [ 0;#4000;#40362;#42224;#405;#247 ]
	menu!14=table [ 0;#40002;#115;#257;#260;#302 ]
	menu!15=table [ 0;#40002;#276;#257;#357;#302 ]
	menu!16=table [ 0;#4000;#40361;#46257;#404;#302 ]
	menu!17=table [ 0;#40002;#420;#257;#523;#302 ]
	menu!18=table [ 0;#40002;#115;#171;#260;#214 ]
	menu!19=table [ 0;#4000;#276;#171;#357;#214 ]
	menu!20=table [ 0;#4000;#40362;#50171;#405;#214 ]
	menu!21=table [ 0;#40002;#417;#171;#522;#214 ]
	menu!22=table [ 0;#44002;#301;#315;#302;#334 ]
	menu!23=table [ 0;#4001;#167;#315;#170;#334 ]
	menu!24=table [ 0;#4000;#276;#136;#357;#161 ]
	menu!25=table [ 0;#4000;#40362;#46136;#405;#161 ]
	menu!26=table [ 0;#4000;#417;#136;#522;#161 ]

	// set up stringlist table
	let stringlist=table
		[
		26
		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="FILE SPECIFICATIONS"
	stringlist!4="Disk Configuration"
	stringlist!5="DP1"
	stringlist!6="Trident"
	stringlist!7="Spruce.Spool"
	stringlist!8="Spruce.Errors"
	stringlist!9="INSTALL"
	stringlist!10="QUIT without Installing"
	stringlist!12="DP0"
	stringlist!13="pp"
	stringlist!14="Spruce.Bands"
	stringlist!16="pp"
	stringlist!17="DP0"
	stringlist!18="Spruce.Fonts"
	stringlist!20="pp"
	stringlist!21="DP0"
	stringlist!25="pp"
	stringlist!26="DP0"

	// set up menuDCB table
	let menuDCB=table
		[
		0
		0;#0;0;21
		0;#2024;0;91
		0;#0;0;292
		]
	test (menuDCB&1) eq 1 ifso menuDCB=menuDCB+1
		ifnot for n=0 to 11 do menuDCB!n=menuDCB!(n+1)
	for n=0 to 1 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
	]