7 menu called from model.aml
/*
Transmissivity:%choice_t
Bulk Density:  %choice_bd
Soil Depth:    %choice_d
Phi            %choice_phi
Cohesion       %choice_coh
 %bshowruns %bshow
 %brun
 %bwin %bout
/*bplotl Run:  %fpickmod %bplotr
plot left      plot right
 %bplotl %bplotr
.
.
.
 %bcont %bslides
 %bfile %bscreen
ArcInfo Grid Command %com  /* %btty
 %bquit

%choice_t SLIDER .T 20 step 5 integer 0 100
%choice_bd SLIDER .bd 22 STEP .1 real 1 2.5
%choice_d SLIDER .depth 20 STEP 1 integer -1 9
%choice_phi SLIDER .phi 22 STEP 1 integer 25 50
%choice_coh SLIDER .coh 22 STEP .05 real 0 15
%brun BUTTON KEEP 'RUN MODEL' &run do_model
%bwin BUTTON 'zoom in' mapex *
%bout BUTTON 'full window' mapex %.mapex%
/*%bplotl BUTTON 'plot left' &s .xpos 0;    &s .xp 10.3;&run show_model.aml
/*%bplotr BUTTON 'plot right' &s .xpos 11.5;&s .xp 12.95;&run show_model.aml
%bplotl  INPUT run 14 TYPEIN NO SCROLL YES ROWS 4 ~
  KEEP ~
  QUERY 'plot this model' ~
  INITIAL 'qust%.stag%_%.cur%' ~
  RETURN '&s .cur [after %run% _];&s .xpos 0;&s .xp 10.3;&run show_model.aml' ~
  GRID ~
  qust* 'plot left' -SORT
%bplotr  INPUT run 14 TYPEIN NO SCROLL YES ROWS 4 ~
  KEEP ~
  QUERY 'plot this model' ~
  INITIAL 'qust%.stag%_%.cur%' ~
  RETURN '&s .cur [after %run% _];&s .xpos 11.5;&s .xp 12.95;&run show_model.aml' ~
  GRID ~
  qust* 'plot right' -SORT

%bcont BUTTON 'plot contours' arcl contours 1
%bslides BUTTON 'plot slides' pointm slides 9
%bfile BUTTON 'plot to file' display 1040   /* ; p%.stag%.gra
%bscreen BUTTON 'plot to screen' display 9999 SIZE CANVAS 1100 800
/*%fpickmod input  .cur %.cur% range 1 20 integer
/*%fpickmod input  .cur 2 initial %.cur% range 1 20 integer
%bshow BUTTON 'Show Parameters' ~
  &ty T = %.T%, Bulk Density = %.bd%, depth = %.depth%, phi = %.phi%,~
  cohesion = %.coh%
%bshowruns BUTTON 'show runs'  &run show_runs
/* %btty BUTTON  'command line' &type 'type &ret to return to menu'; &tty
%com INPUT &TYPE 20 TYPEIN YES SCROLL NO SIZE 124 KEEP RETURN '%&type%' CHARACTER
%bquit BUTTON 'Clean and Quit' &r clean.aml ;quit