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


external MenuInitHelp


let MenuInitHelp() = valof
	[
	// set up menu table
	let menu=table
		[
		46
		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;#41001;#731;#404;#1050;#427 ]
	menu!2=table [ 0;#40001;#731;#433;#1050;#456 ]
	menu!3=table [ 0;#40001;#23;#275;#175;#320 ]
	menu!4=table [ 0;#70001;#732;#325;#1051;#350 ]
	menu!5=table [ 0;#70001;#605;#433;#724;#456 ]
	menu!6=table [ 0;#71001;#605;#404;#724;#427 ]
	menu!7=table [ 0;#70001;#731;#462;#1051;#505 ]
	menu!8=table [ 0;#41002;#74;#511;#213;#534 ]
	menu!9=table [ 0;#40001;#23;#355;#175;#400 ]
	menu!10=table [ 0;#41001;#731;#275;#1050;#320 ]
	menu!11=table [ 0;#70001;#731;#355;#1050;#400 ]
	menu!12=table [ 0;#1;#23;#246;#261;#271 ]
	menu!13=table [ 0;#1;#23;#325;#261;#350 ]
	menu!14=table [ 0;#70001;#605;#355;#724;#400 ]
	menu!15=table [ 0;#70001;#605;#462;#724;#505 ]
	menu!16=table [ 0;#1;#23;#433;#261;#456 ]
	menu!17=table [ 0;#40001;#310;#246;#462;#271 ]
	menu!18=table [ 0;#44001;#462;#217;#553;#242 ]
	menu!19=table [ 0;#44001;#175;#355;#261;#400 ]
	menu!20=table [ 0;#44001;#175;#275;#261;#320 ]
	menu!21=table [ 0;#44001;#462;#246;#553;#271 ]
	menu!22=table [ 0;#40001;#23;#217;#175;#242 ]
	menu!23=table [ 0;#44001;#175;#217;#261;#242 ]
	menu!24=table [ 0;#40001;#310;#217;#462;#242 ]
	menu!25=table [ 0;#1;#23;#404;#261;#427 ]
	menu!26=table [ 0;#41001;#605;#275;#724;#320 ]
	menu!27=table [ 0;#40001;#605;#325;#724;#350 ]
	menu!28=table [ 0;#1;#311;#404;#430;#427 ]
	menu!29=table [ 0;#1;#435;#404;#554;#427 ]
	menu!30=table [ 0;#1;#311;#355;#430;#400 ]
	menu!31=table [ 0;#1;#435;#355;#554;#400 ]
	menu!32=table [ 0;#1;#311;#433;#553;#456 ]
	menu!33=table [ 0;#1;#23;#462;#261;#505 ]
	menu!34=table [ 0;#1;#311;#462;#553;#505 ]
	menu!35=table [ 0;#1;#311;#511;#553;#534 ]
	menu!36=table [ 0;#44002;#5;#127;#1064;#154 ]
	menu!37=table [ 0;#104002;#50017;#52166;#4265;#617 ]
	menu!38=table [ 0;#1;#311;#540;#553;#563 ]
	menu!39=table [ 0;#40001;#605;#217;#1051;#241 ]
	menu!40=table [ 0;#40001;#605;#246;#1051;#270 ]
	menu!41=table [ 0;#1;#311;#567;#553;#612 ]
	menu!42=table [ 0;#104002;#60577;#46166;#3054;#617 ]
	menu!43=table [ 0;#104002;#66303;#44325;#2560;#617 ]
	menu!44=table [ 0;#1;#310;#275;#554;#317 ]
	menu!45=table [ 0;#40001;#655;#511;#774;#534 ]
	menu!46=table [ 0;#104002;#54303;#46166;#2560;#322 ]

	// set up stringlist table
	let stringlist=table
		[
		46
		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="Rewind"
	stringlist!2="Unload"
	stringlist!3="Read Length"
	stringlist!4="Write EOF"
	stringlist!5="Back Skip"
	stringlist!6="Read Rev"
	stringlist!7="NoOp"
	stringlist!8="QUIT"
	stringlist!9="Write Length"
	stringlist!10="Write Fwd"
	stringlist!11="Erase"
	stringlist!12="Display RD Data"
	stringlist!13="Display WRT Data"
	stringlist!14="Fwd Block"
	stringlist!15="Back Block"
	stringlist!16="Compare Buffer"
	stringlist!17="Retries"
	stringlist!22="Display Mode"
	stringlist!24="DriveNumber"
	stringlist!25="Change Data Pattern"
	stringlist!26="Read Fwd"
	stringlist!27="Fwd Skip"
	stringlist!28="Loop RD"
	stringlist!29="Loop WRT"
	stringlist!30="Dspy Cnts"
	stringlist!31="Reset Cnts"
	stringlist!33=" "
	stringlist!37="Program Control"
	stringlist!42="Single Operations"
	stringlist!43="Loop Operations"
	stringlist!45="ResetOp"
	stringlist!46="Unit Selection"

	// set up menuDCB table
	let menuDCB=table
		[
		0
		0;#0;0;43
		0;#46;0;12
		0;#0;0;4
		0;#44;0;141
		0;#0;0;204
		]
	test (menuDCB&1) eq 1 ifso menuDCB=menuDCB+1
		ifnot for n=0 to 19 do menuDCB!n=menuDCB!(n+1)
	for n=0 to 3 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
	]