// CondenseTables.bcpl -- Tables for setting up menu windows. // Copyright Xerox Corporation 1981 external MenuInitHelp let MenuInitHelp() = valof [ // set up menu table let menu=table [ 24 0;0;0;0;0;0;0;0;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;#40002;#314;#443;#421;#500 ] menu!2=table [ 0;#40002;#174;#443;#301;#500 ] menu!3=table [ 0;#40002;#174;#534;#421;#571 ] menu!4=table [ 0;#40002;#174;#572;#421;#627 ] menu!5=table [ 0;#40002;#474;#443;#601;#500 ] menu!6=table [ 0;#40002;#624;#443;#731;#500 ] menu!7=table [ 0;#41002;#612;#552;#717;#607 ] menu!8=table [ 0;#101017;#215;#206;#371;#304 ] menu!9=table [ 0;#101017;#521;#206;#675;#304 ] menu!10=table [ 0;#2;#345;#777;#705;#1034 ] menu!11=table [ 0;#40002;#411;#1074;#516;#1131 ] menu!12=table [ 0;#40002;#556;#1074;#663;#1131 ] menu!13=table [ 0;#5000;#230;#65;#656;#126 ] menu!14=table [ 0;#5000;#226;#366;#371;#423 ] menu!15=table [ 0;#5000;#532;#365;#675;#422 ] menu!16=table [ 0;#5000;#304;#706;#613;#743 ] menu!17=table [ 0;#4000;#201;#777;#344;#1034 ] menu!18=table [ 0;#4000;#201;#1074;#344;#1131 ] menu!19=table [ 0;#4000;#554;#1035;#705;#1072 ] menu!20=table [ 0;#44002;#141;#663;#760;#1172 ] menu!21=table [ 0;#4000;#504;#552;#611;#607 ] menu!22=table [ 0;#44002;#141;#353;#450;#662 ] menu!23=table [ 0;#44002;#451;#353;#760;#662 ] menu!24=table [ 0;#44002;#137;#351;#762;#1174 ] // set up stringlist table let stringlist=table [ 24 0;0;0;0;0;0;0;0;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="Swat" stringlist!2="Swatee" stringlist!3="Other" stringlist!5="Display" stringlist!6="Disk" stringlist!7="OFF" stringlist!8="Start" stringlist!9="Quit" stringlist!11="Press" stringlist!12="AIS" stringlist!13="Condense 1.6 February 5, 1981" stringlist!14="Input" stringlist!15="Output" stringlist!16="Output File Selection" stringlist!17="File Name" stringlist!18="File Type" stringlist!21="Cursor" // set up menuDCB table let menuDCB=table [ 0 0;#0;0;26 0;#4422;0;18 0;#0;0;23 0;#4024;0;32 0;#0;0;17 0;#2434;0;203 0;#0;0;85 ] test (menuDCB&1) eq 1 ifso menuDCB=menuDCB+1 ifnot for n=0 to 27 do menuDCB!n=menuDCB!(n+1) for n=0 to 5 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 ]