// spruce -- Tables for setting up menu windows. external MenuInitHelp let MenuInitHelp() = valof [ // set up menu table let menu=table [ 70 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;#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;#44002;#113;#557;#534;#772 ] menu!41=table [ 0;#44002;#113;#533;#534;#556 ] menu!42=table [ 0;#40002;#113;#773;#534;#1016 ] menu!43=table [ 0;#4000;#117;#566;#332;#611 ] menu!44=table [ 0;#40002;#336;#566;#410;#610 ] menu!45=table [ 0;#40002;#421;#566;#524;#611 ] menu!46=table [ 0;#40002;#116;#704;#261;#727 ] menu!47=table [ 0;#40002;#116;#616;#261;#641 ] menu!48=table [ 0;#0;#175;#775;#276;#1014 ] menu!49=table [ 0;#0;#115;#775;#164;#1015 ] menu!50=table [ 0;#40002;#277;#704;#360;#727 ] menu!51=table [ 0;#40002;#420;#704;#523;#727 ] menu!52=table [ 0;#4000;#40363;#42704;#406;#727 ] menu!53=table [ 0;#40002;#116;#737;#261;#762 ] menu!54=table [ 0;#40002;#277;#737;#360;#762 ] menu!55=table [ 0;#4000;#40362;#46737;#405;#762 ] menu!56=table [ 0;#40002;#421;#737;#524;#762 ] menu!57=table [ 0;#40002;#116;#651;#261;#674 ] menu!58=table [ 0;#4000;#277;#651;#360;#674 ] menu!59=table [ 0;#4000;#40363;#50651;#406;#674 ] menu!60=table [ 0;#40002;#420;#651;#523;#674 ] menu!61=table [ 0;#44002;#301;#775;#302;#1014 ] menu!62=table [ 0;#4001;#172;#775;#173;#1014 ] menu!63=table [ 0;#40002;#113;#404;#763;#427 ] menu!64=table [ 0;#0;#115;#406;#164;#426 ] menu!65=table [ 0;#0;#202;#406;#364;#426 ] menu!66=table [ 0;#1;#173;#406;#174;#425 ] menu!67=table [ 0;#1;#367;#406;#370;#425 ] menu!68=table [ 0;#4000;#277;#616;#360;#641 ] menu!69=table [ 0;#4000;#40363;#46616;#406;#641 ] menu!70=table [ 0;#4000;#420;#616;#523;#641 ] // set up stringlist table let stringlist=table [ 70 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!2="DEVICE PARAMETERS" stringlist!3="Printer Type" stringlist!4="Dover" stringlist!5="Pimlico" stringlist!6="Sequoia" stringlist!7="Puffin" stringlist!8="Penguin" 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="FILE SPECIFICATIONS" stringlist!43="Disk Configuration" stringlist!44="DP1" stringlist!45="Trident" stringlist!46="Spruce.Spool" stringlist!47="Spruce.Errors" stringlist!48="INSTALL" stringlist!49="QUIT without Installing" stringlist!51="DP0" stringlist!52="pp" stringlist!53="Spruce.Bands" stringlist!55="pp" stringlist!56="DP0" stringlist!57="Spruce.Fonts" stringlist!59="pp" stringlist!60="DP0" stringlist!64="QUIT" stringlist!65="INSTALL FILES" stringlist!68=" " stringlist!69="pp" stringlist!70="DP0" // set up menuDCB table let menuDCB=table [ 0 0;#0;0;22 0;#2036;0;118 0;#0;0;33 0;#2024;0;91 0;#0;0;140 ] 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 ]