menu=[
'  **************************************************************    '
'  dimwv.m    DEVELOP BASIC DIMSIONLESS DEPTH AND HEIGHT             ' 
'    [dol0,hohb,L0,Hb]=dimwv(H,T,d,g)                                ' 
'                                                                    ' 
'  wvcon.m    COMPUTE PRIMARY WAVE CONSTANTS                         ' 
'    [hol0,hod,lol0,psi]=wvcon(dol0,hohb)                            ' 
'                                                                    ' 
'  stfn.m     INTERPOLATE STREAM FUNCTION COEFFICIENTS, X(n)         ' 
'    coef=stfn(dol0,hohb)                                            ' 
'                                                                    ' 
'  profile.m  INTERPOLATE WAVE PROFILE                               '
'    eta=profile(theta,dol0,hohb)                                    '
'                                                                    '
'  wvprop.m   PRODUCE MATRICES OF WAVE KINEMATICS                    '
'    [eta,vx,vy,ax,ay]=wvprop(theta,y,dol0,hohb,hol0,lol0,coef)      '
'                                                                    '
'  col0.m     COMPUTE  (y at crest)/L0  AT WAVE CREST                '
'    ycol0=col0(dol0,hohb)                                           '
'                                                                    '
'  kine.m     COMPUTE KINEMATICS FOR DIMENSIONAL INPUT               '
'    [eta,vx,vy,ax,ay]=kine(H,T,d,g,theta,elev)                      '
'  **************************************************************    ']