// sprucefiles -- Tables for setting up menu windows. external MenuFilesHelp // MenuInitHelp => MenuFilesHelp after MenuEdit -- manual change let MenuFilesHelp() = valof [ // set up menu table let menu=table [ 26 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;#44002;#112;#77;#533;#312 ] menu!2=table [ 0;#44002;#112;#53;#533;#76 ] menu!3=table [ 0;#40002;#112;#313;#533;#336 ] menu!4=table [ 0;#4000;#116;#106;#331;#131 ] menu!5=table [ 0;#40002;#335;#106;#407;#130 ] menu!6=table [ 0;#40002;#420;#106;#523;#131 ] menu!7=table [ 0;#40002;#115;#224;#260;#247 ] menu!8=table [ 0;#40002;#115;#136;#260;#161 ] menu!9=table [ 0;#0;#174;#315;#275;#334 ] menu!10=table [ 0;#0;#114;#315;#163;#335 ] menu!11=table [ 0;#40002;#276;#224;#357;#247 ] menu!12=table [ 0;#40002;#417;#224;#522;#247 ] menu!13=table [ 0;#4000;#40362;#42224;#405;#247 ] menu!14=table [ 0;#40002;#115;#257;#260;#302 ] menu!15=table [ 0;#40002;#276;#257;#357;#302 ] menu!16=table [ 0;#4000;#40361;#46257;#404;#302 ] menu!17=table [ 0;#40002;#420;#257;#523;#302 ] menu!18=table [ 0;#40002;#115;#171;#260;#214 ] menu!19=table [ 0;#4000;#276;#171;#357;#214 ] menu!20=table [ 0;#4000;#40362;#50171;#405;#214 ] menu!21=table [ 0;#40002;#417;#171;#522;#214 ] menu!22=table [ 0;#44002;#301;#315;#302;#334 ] menu!23=table [ 0;#4001;#167;#315;#170;#334 ] menu!24=table [ 0;#4000;#276;#136;#357;#161 ] menu!25=table [ 0;#4000;#40362;#46136;#405;#161 ] menu!26=table [ 0;#4000;#417;#136;#522;#161 ] // set up stringlist table let stringlist=table [ 26 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="FILE SPECIFICATIONS" stringlist!4="Disk Configuration" stringlist!5="DP1" stringlist!6="Trident" stringlist!7="Spruce.Spool" stringlist!8="Spruce.Errors" stringlist!9="INSTALL" stringlist!10="QUIT without Installing" stringlist!12="DP0" stringlist!13="pp" stringlist!14="Spruce.Bands" stringlist!16="pp" stringlist!17="DP0" stringlist!18="Spruce.Fonts" stringlist!20="pp" stringlist!21="DP0" stringlist!25="pp" stringlist!26="DP0" // set up menuDCB table let menuDCB=table [ 0 0;#0;0;21 0;#2024;0;91 0;#0;0;292 ] test (menuDCB&1) eq 1 ifso menuDCB=menuDCB+1 ifnot for n=0 to 11 do menuDCB!n=menuDCB!(n+1) for n=0 to 1 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 ]