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


external MenuInitHelp


let MenuInitHelp() = valof
	[
	// set up menu table
	let menu=table
		[
		12
		0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0
		]
	menu!1=table [ 0;#4001;#214;#174;#722;#222 ]
	menu!2=table [ 0;#4001;#52;#255;#440;#306 ]
	menu!3=table [ 0;#4001;#470;#255;#1056;#306 ]
	menu!4=table [ 0;#141001;#52;#325;#440;#356 ]
	menu!5=table [ 0;#144001;#42467;#54324;#2700;#355 ]
	menu!6=table [ 0;#144001;#42467;#54356;#2700;#407 ]
	menu!7=table [ 0;#144001;#701;#356;#1056;#407 ]
	menu!8=table [ 0;#144001;#42467;#52410;#2700;#441 ]
	menu!9=table [ 0;#144001;#701;#410;#1056;#441 ]
	menu!10=table [ 0;#144001;#701;#324;#1056;#355 ]
	menu!11=table [ 0;#144001;#42467;#54474;#2700;#525 ]
	menu!12=table [ 0;#144001;#42467;#54526;#2700;#557 ]

	// set up stringlist table
	let stringlist=table
		[
		12
		0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0
		]
	stringlist!1="Alto Imp Front End"
	stringlist!2="Commands"
	stringlist!3="Status"
	stringlist!4="Quit"
	stringlist!5="From Imp"
	stringlist!6="To Imp"
	stringlist!8="Discarded"
	stringlist!11="Host down"
	stringlist!12="Imp down"

	// set up menuDCB table
	let menuDCB=table
		[
		0
		0;#0;0;62
		0;#4030;0;12
		0;#0;0;12
		0;#1042;0;14
		0;#0;0;6
		0;#1042;0;39
		0;#0;0;13
		0;#11412;0;26
		0;#0;0;220
		]
	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
	]