// spruceparams -- Tables for setting up menu windows. external MenuParamsHelp // MenuInitHelp => MenuParamsHelp after MenuEdit -- manual change let MenuParamsHelp() = valof [ // set up menu table let menu=table [ 44 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;#44002;#113;#101;#763;#403 ] menu!2=table [ 0;#44002;#113;#55;#763;#100 ] menu!3=table [ 0;#4000;#115;#104;#260;#127 ] menu!4=table [ 0;#40002;#264;#104;#345;#127 ] menu!5=table [ 0;#40002;#351;#104;#444;#127 ] menu!6=table [ 0;#40002;#450;#104;#543;#127 ] menu!7=table [ 0;#40002;#547;#104;#642;#127 ] menu!8=table [ 0;#40002;#646;#104;#753;#127 ] menu!9=table [ 0;#4000;#40121;#44135;#245;#160 ] menu!10=table [ 0;#4000;#266;#136;#443;#161 ] menu!11=table [ 0;#4000;#513;#136;#656;#161 ] menu!12=table [ 0;#40002;#655;#136;#724;#161 ] menu!13=table [ 0;#40002;#656;#265;#725;#310 ] menu!14=table [ 0;#4000;#512;#171;#655;#214 ] menu!15=table [ 0;#40002;#443;#171;#512;#214 ] menu!16=table [ 0;#40002;#655;#171;#724;#214 ] menu!17=table [ 0;#4000;#725;#171;#753;#213 ] menu!18=table [ 0;#4000;#266;#171;#443;#214 ] menu!19=table [ 0;#4000;#40121;#44171;#264;#214 ] menu!20=table [ 0;#40002;#443;#136;#513;#161 ] menu!21=table [ 0;#4000;#44455;#44266;#656;#307 ] menu!22=table [ 0;#4000;#725;#136;#742;#160 ] menu!23=table [ 0;#4000;#40121;#44265;#322;#310 ] menu!24=table [ 0;#40002;#332;#265;#401;#310 ] menu!25=table [ 0;#4000;#404;#265;#442;#307 ] menu!26=table [ 0;#40002;#443;#227;#512;#252 ] menu!27=table [ 0;#4000;#726;#265;#751;#311 ] menu!28=table [ 0;#40002;#657;#227;#726;#252 ] menu!29=table [ 0;#4000;#727;#227;#761;#252 ] menu!30=table [ 0;#4000;#40121;#44227;#264;#252 ] menu!31=table [ 0;#4000;#265;#227;#442;#252 ] menu!32=table [ 0;#4000;#513;#227;#656;#252 ] menu!33=table [ 0;#40002;#122;#353;#245;#376 ] menu!34=table [ 0;#40002;#336;#353;#521;#376 ] menu!35=table [ 0;#40002;#606;#353;#757;#376 ] menu!36=table [ 0;#4000;#455;#323;#635;#346 ] menu!37=table [ 0;#40002;#635;#323;#727;#346 ] menu!38=table [ 0;#4000;#40121;#46323;#265;#346 ] menu!39=table [ 0;#40002;#275;#323;#446;#346 ] menu!40=table [ 0;#40002;#113;#404;#763;#427 ] menu!41=table [ 0;#0;#115;#406;#164;#426 ] menu!42=table [ 0;#0;#202;#406;#364;#426 ] menu!43=table [ 0;#1;#173;#406;#174;#425 ] menu!44=table [ 0;#1;#367;#406;#370;#425 ] // set up stringlist table let stringlist=table [ 44 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!2="DEVICE PARAMETERS" stringlist!3="Printer Type" stringlist!4="Printer1" stringlist!5="Printer2" stringlist!6="Printer3" stringlist!7="Printer4" stringlist!8="Printer5" stringlist!9="Paper Size" stringlist!10="Scan Direction" stringlist!11="Bit Direction" stringlist!12="11.0" stringlist!13="10.2" stringlist!14="Bit Direction" stringlist!15="384" stringlist!16="384" stringlist!17="bpi" stringlist!18="Scan Direction" stringlist!19="Resolution" stringlist!20="8.5" stringlist!21="Paper Speed" stringlist!22="in" stringlist!23="Scan Line Length" stringlist!24="11.7" stringlist!25="(in)" stringlist!26="190" stringlist!27="ips" stringlist!28="120" stringlist!29="dots" stringlist!30="Margin Adj." stringlist!31="Scan Direction" stringlist!32="Bit Direction" stringlist!33="Landscape" stringlist!34="First Page First" stringlist!35="No Break Page" stringlist!36="Debug Settings" stringlist!37="#40" stringlist!38="Printer Name" stringlist!39="Chester" stringlist!41="QUIT" stringlist!42="INSTALL FILES" // set up menuDCB table let menuDCB=table [ 0 0;#0;0;22 0;#2036;0;118 0;#0;0;264 ] 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 ]