// MenuTables.bcpl  --  Tables for setting up menu windows.


external MenuInitHelp


let MenuInitHelp() = valof
	[
	// set up menu table
	let menu=table
		[
		66
		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;#140003;4;17;592;36;#0 ]
	menu!2=table [ 0;#140003;5;74;227;92;#0 ]
	menu!3=table [ 0;#140003;247;74;591;92;#0 ]
	menu!4=table [ 0;#140001;126;122;226;140;#140004 ]
	menu!5=table [ 0;#140001;126;143;226;161;#140004 ]
	menu!6=table [ 0;#140001;247;101;347;119;#140004 ]
	menu!7=table [ 0;#140001;247;143;347;161;#140004 ]
	menu!8=table [ 0;#140001;368;101;468;119;#140004 ]
	menu!9=table [ 0;#140001;368;122;468;140;#140004 ]
	menu!10=table [ 0;#140001;5;47;105;65;#100000 ]
	menu!11=table [ 0;#140001;126;47;226;65;#100000 ]
	menu!12=table [ 0;#140001;247;47;347;65;#100000 ]
	menu!13=table [ 0;#140001;5;122;105;140;#140004 ]
	menu!14=table [ 0;#140001;5;143;105;161;#140004 ]
	menu!15=table [ 0;#140001;5;101;105;119;#140004 ]
	menu!16=table [ 0;#140001;247;122;347;140;#140004 ]
	menu!17=table [ 0;#140001;368;143;468;161;#140004 ]
	menu!18=table [ 0;#140003;5;287;290;305;#0 ]
	menu!19=table [ 0;#140001;368;47;468;65;#100000 ]
	menu!20=table [ 0;#140003;5;170;290;188;#0 ]
	menu!21=table [ 0;#140001;5;197;84;212;#40004 ]
	menu!22=table [ 0;#140001;5;215;84;230;#40004 ]
	menu!23=table [ 0;#140001;5;233;84;248;#40004 ]
	menu!24=table [ 0;#140001;5;251;84;266;#40004 ]
	menu!25=table [ 0;#140001;5;269;84;284;#40004 ]
	menu!26=table [ 0;#140001;84;197;144;212;#40002 ]
	menu!27=table [ 0;#140001;84;215;144;230;#40002 ]
	menu!28=table [ 0;#140001;84;233;144;248;#40002 ]
	menu!29=table [ 0;#140001;84;251;144;266;#40002 ]
	menu!30=table [ 0;#140001;84;269;144;284;#40002 ]
	menu!31=table [ 0;#0;151;197;290;212;#40004 ]
	menu!32=table [ 0;#0;151;215;290;230;#40004 ]
	menu!33=table [ 0;#0;151;233;290;248;#40004 ]
	menu!34=table [ 0;#0;151;251;290;266;#40004 ]
	menu!35=table [ 0;#0;151;269;290;284;#40004 ]
	menu!36=table [ 0;#140003;307;170;592;188;#0 ]
	menu!37=table [ 0;#140001;307;197;372;212;#140004 ]
	menu!38=table [ 0;#140001;372;197;446;212;#40002 ]
	menu!39=table [ 0;#140001;307;215;372;230;#140004 ]
	menu!40=table [ 0;#140001;372;215;446;230;#40002 ]
	menu!41=table [ 0;#140001;307;233;372;248;#140004 ]
	menu!42=table [ 0;#140001;372;233;446;248;#40002 ]
	menu!43=table [ 0;#140001;489;122;589;140;#140004 ]
	menu!44=table [ 0;#140001;489;47;589;65;#100000 ]
	menu!45=table [ 0;#0;5;47;35;54;#0 ]
	menu!46=table [ 0;#140001;307;251;372;266;#140004 ]
	menu!47=table [ 0;#140001;372;251;446;266;#40002 ]
	menu!48=table [ 0;#140001;453;233;518;248;#140004 ]
	menu!49=table [ 0;#140001;518;233;592;248;#40002 ]
	menu!50=table [ 0;#140001;453;251;592;266;#140004 ]
	menu!51=table [ 0;#140001;453;197;518;212;#140004 ]
	menu!52=table [ 0;#140001;518;197;592;212;#40002 ]
	menu!53=table [ 0;#140001;307;269;392;284;#140004 ]
	menu!54=table [ 0;#140001;392;269;446;284;#40002 ]
	menu!55=table [ 0;#140001;126;101;226;119;#140004 ]
	menu!56=table [ 0;#140001;453;215;518;230;#140004 ]
	menu!57=table [ 0;#140001;518;215;592;230;#40002 ]
	menu!58=table [ 0;#140001;489;101;589;119;#140004 ]
	menu!59=table [ 0;#0;5;308;62;311;#0 ]
	menu!60=table [ 0;#140001;453;269;518;284;#140002 ]
	menu!61=table [ 0;#140001;518;269;592;284;#40002 ]
	menu!62=table [ 0;#140001;489;143;589;161;#140004 ]
	menu!63=table [ 0;#140001;307;287;392;302;#140004 ]
	menu!64=table [ 0;#140001;392;287;446;302;#40002 ]
	menu!65=table [ 0;#140001;453;287;518;302;#140004 ]
	menu!66=table [ 0;#140001;518;287;592;302;#40002 ]

	// set up stringlist table
	let stringlist=table
		[
		66
		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!1="Alto 1822 Interface Test"
	stringlist!2="Low Level Functions"
	stringlist!3="High Level Functions"
	stringlist!4="Test"
	stringlist!5="CAP Echo"
	stringlist!6="Interrupts"
	stringlist!7="Scatter"
	stringlist!8="Gather"
	stringlist!9="Listen"
	stringlist!10="Load uCode"
	stringlist!11="Silent Boot"
	stringlist!12="Test All"
	stringlist!13="Master Reset"
	stringlist!14="Clear IWD"
	stringlist!15="Send Command"
	stringlist!16="Test BLZ"
	stringlist!17="Echo"
	stringlist!18="Running Commentary"
	stringlist!19="STOP!"
	stringlist!20="Status"
	stringlist!21="ICount"
	stringlist!22="OCount"
	stringlist!23="IPost"
	stringlist!24="Opost"
	stringlist!25="CPost"
	stringlist!36="Parameters"
	stringlist!37="Loop"
	stringlist!39="Size"
	stringlist!41="Contents"
	stringlist!43="Check Buffers"
	stringlist!44="Quit"
	stringlist!46="Type"
	stringlist!48="Boot Vec"
	stringlist!50="ucode"
	stringlist!51="Update"
	stringlist!53="Interrupts"
	stringlist!55="Relay"
	stringlist!56="Command"
	stringlist!58="Edit"
	stringlist!60="Mode"
	stringlist!62="Chat"
	stringlist!63="Host #"
	stringlist!65="Imp #"

	// set up menuDCB table
	let menuDCB=table
		[
		0
		0;#0;0;8
		0;#46;0;11
		0;#0;0;4
		0;#46;0;10
		0;#0;0;4
		0;#46;0;10
		0;#0;0;3
		0;#46;0;10
		0;#0;0;1
		0;#46;0;10
		0;#46;0;10
		0;#0;0;4
		0;#46;0;10
		0;#0;0;3
		0;#46;0;9
		0;#46;0;9
		0;#46;0;9
		0;#46;0;9
		0;#46;0;9
		0;#46;0;10
		0;#0;0;1
		0;#6;0;2
		0;#0;0;248
		]
	test (menuDCB&1) eq 1 ifso menuDCB=menuDCB+1
		ifnot for n=0 to 91 do menuDCB!n=menuDCB!(n+1)
	for n=0 to 21 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
	]