// CondenseTables.bcpl  --  Tables for setting up menu windows.
// Copyright Xerox Corporation 1981


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;#40002;#314;#443;#421;#500 ]
	menu!2=table [ 0;#40002;#174;#443;#301;#500 ]
	menu!3=table [ 0;#40002;#174;#534;#421;#571 ]
	menu!4=table [ 0;#40002;#174;#572;#421;#627 ]
	menu!5=table [ 0;#40002;#474;#443;#601;#500 ]
	menu!6=table [ 0;#40002;#624;#443;#731;#500 ]
	menu!7=table [ 0;#41002;#612;#552;#717;#607 ]
	menu!8=table [ 0;#101017;#215;#206;#371;#304 ]
	menu!9=table [ 0;#101017;#521;#206;#675;#304 ]
	menu!10=table [ 0;#2;#345;#777;#705;#1034 ]
	menu!11=table [ 0;#40002;#411;#1074;#516;#1131 ]
	menu!12=table [ 0;#40002;#556;#1074;#663;#1131 ]
	menu!13=table [ 0;#5000;#230;#65;#656;#126 ]
	menu!14=table [ 0;#5000;#226;#366;#371;#423 ]
	menu!15=table [ 0;#5000;#532;#365;#675;#422 ]
	menu!16=table [ 0;#5000;#304;#706;#613;#743 ]
	menu!17=table [ 0;#4000;#201;#777;#344;#1034 ]
	menu!18=table [ 0;#4000;#201;#1074;#344;#1131 ]
	menu!19=table [ 0;#4000;#554;#1035;#705;#1072 ]
	menu!20=table [ 0;#44002;#141;#663;#760;#1172 ]
	menu!21=table [ 0;#4000;#504;#552;#611;#607 ]
	menu!22=table [ 0;#44002;#141;#353;#450;#662 ]
	menu!23=table [ 0;#44002;#451;#353;#760;#662 ]
	menu!24=table [ 0;#44002;#137;#351;#762;#1174 ]

	// 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!1="Swat"
	stringlist!2="Swatee"
	stringlist!3="Other"
	stringlist!5="Display"
	stringlist!6="Disk"
	stringlist!7="OFF"
	stringlist!8="Start"
	stringlist!9="Quit"
	stringlist!11="Press"
	stringlist!12="AIS"
	stringlist!13="Condense 1.6  February 5, 1981"
	stringlist!14="Input"
	stringlist!15="Output"
	stringlist!16="Output File Selection"
	stringlist!17="File Name"
	stringlist!18="File Type"
	stringlist!21="Cursor"

	// set up menuDCB table
	let menuDCB=table
		[
		0
		0;#0;0;26
		0;#4422;0;18
		0;#0;0;23
		0;#4024;0;32
		0;#0;0;17
		0;#2434;0;203
		0;#0;0;85
		]
	test (menuDCB&1) eq 1 ifso menuDCB=menuDCB+1
		ifnot for n=0 to 27 do menuDCB!n=menuDCB!(n+1)
	for n=0 to 5 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
	]