createparam - Create a new parameter using SolidsPack types and
              define a default value. This macro also creates the
              proper entry in the "dg" and "ap" string parameters to define
	      the "dg" screen and the "pap" printout.  Bit 14 is set
              for the parameter so that it can be properly loaded by
              the "solidsseq1d" apptype. "channel" parameters create an
              entry in the "clearparams" string so that the "solidsseq1d"
              apptype will clear bit 14. This macro creates the parameters
              dgrowindex, dgcharindex, aprowindex and apcharindex if 
              they do not exist.  dg(ap)rowindex hold current row in 
              in the "dg" or "ap" displays so that the macros can 
              intelligently set a new column. dg(ap)charindex keeps
              track of the number of characters in "dg" or "ap" so that
              macros can provide an error message if these strings exceed
              1023 characters. 

EXAMPLE:      createparam('aHhx','amplitude',2000)

              SolidsPack types:

Solids type:   Type:      Max       Min      Step        Figures   Clear

 'amplitude'   real       4095      0         1          0          n
 'delay'       delay      none      none      0.0125e-6  6          n
 'frequency'   frequency  none      none      0.1        1          n
 'pulse'       pulse      8192      0.0       0.0125     1          n
 'string'      string      na        na.       na.        na.       n
 'integer'     real       32768     -32768    1          0          n
 'scaler'      real       63        -16       1          0          n
 'phase'       real       none      none      360/8192   3          n
 'real'        real       none      none      none       3          n
 'channel'     string      na.       na.       na.        na.       y
