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


external MenuInitHelp


let MenuInitHelp() = valof
	[
	// set up menu table
	let menu=table
		[
		24
		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;#74004;#27;#171;#656;#1020 ]
	menu!2=table [ 0;#131004;#677;#577;#1125;#630 ]
	menu!3=table [ 0;#131004;#1015;#671;#1125;#722 ]
	menu!4=table [ 0;#131004;#677;#767;#1125;#1020 ]
	menu!5=table [ 0;#131004;#677;#671;#1007;#722 ]
	menu!6=table [ 0;#131004;#227;#1041;#337;#1072 ]
	menu!7=table [ 0;#131004;#345;#1041;#455;#1072 ]
	menu!8=table [ 0;#131004;#276;#1351;#406;#1402 ]
	menu!9=table [ 0;#70004;#27;#1113;#656;#1330 ]
	menu!10=table [ 0;#131004;#1015;#730;#1125;#761 ]
	menu!11=table [ 0;#175001;#13;#171;#26;#1020 ]
	menu!12=table [ 0;#174001;#27;#1021;#656;#1034 ]
	menu!13=table [ 0;#174001;#657;#171;#672;#1020 ]
	menu!14=table [ 0;#174001;#27;#155;#656;#170 ]
	menu!15=table [ 0;#101004;#677;#540;#1007;#571 ]
	menu!16=table [ 0;#100002;#677;#217;#1007;#243 ]
	menu!17=table [ 0;#100002;#1015;#217;#1125;#243 ]
	menu!18=table [ 0;#101004;#1015;#540;#1125;#571 ]
	menu!19=table [ 0;#40004;#677;#251;#1125;#477 ]
	menu!20=table [ 0;#101004;#677;#730;#1007;#761 ]
	menu!21=table [ 0;#5000;#677;#171;#1007;#216 ]
	menu!22=table [ 0;#5000;#1015;#171;#1125;#216 ]
	menu!23=table [ 0;#5000;#677;#505;#1125;#532 ]
	menu!24=table [ 0;#5000;#677;#636;#1125;#663 ]

	// set up stringlist table
	let stringlist=table
		[
		24
		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="Automatic"
	stringlist!3="Shift"
	stringlist!4="Widths"
	stringlist!5="Grid"
	stringlist!6="Consec"
	stringlist!7="Type in"
	stringlist!8="Quit"
	stringlist!10="Area"
	stringlist!15="Get"
	stringlist!18="Delete"
	stringlist!20="Bkgrnd"
	stringlist!21="Symbol"
	stringlist!22="Octal"
	stringlist!23="File Character"
	stringlist!24="Edit Character"

	// set up menuDCB table
	let menuDCB=table
		[
		0
		0;#0;0;54
		0;#46;0;217
		0;#0;0;1
		0;#4414;0;14
		0;#0;0;7
		0;#434;0;72
		0;#0;0;7
		0;#5410;0;14
		0;#0;0;18
		]
	test (menuDCB&1) eq 1 ifso menuDCB=menuDCB+1
		ifnot for n=0 to 35 do menuDCB!n=menuDCB!(n+1)
	for n=0 to 7 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
	]