TEXT(Gravity Settings  
    74 start of ....gravity
  character declarations
CHAR(DENSITY,DENSDIFF,BOUSS,EXTBOUSS,BUOY)
  loadable macros
DENSITY=$075; DENSDIFF=$076; BOUSS=$077;EXTBOUSS=$079; BUOY=$078
  real, integer and logical declarations
REAL(TREF,RHOREF,HREF,BUOYOPT,GRAVACC)
INTEGER(GRAVDIR); BOOLEAN(CASE4)
  defaults
GRAVACC=9.81; CASE4=F
  messages to the screen
MESGa(gravity macro has been loaded. It requires
MESG(gravdir to be set to  1, 2, 3, 4, 5, 6
MESG(for acceleration to   N, S, E, W, H, L
MESGB(then #density, #densdiff or #bouss
    74 end of ....gravity