 ##################################################################
 #                                                                #
 #           Part 1 - Symbols and common blocks for the           # 
 #                    ratfor preprocessor                         #
 #           Extract each one and place it on a file              #
 #                     with the name specified                    #
 #                                                                #
 ##################################################################
 
 #-----------------------------------------------------------------------
 ## definitions for the preprocessor (hashed version from Dave Hanson)
 # put on a file named 'rat4sym'
 # Used by ratfor preprocessor, macro, and form tools
 
  define(BUFSIZE,300)       #pushback buffer for ngetch and putbak 
  define(DEFTYPE,-4) 
  define(LEXBREAK,-8) 
  define(LEXDIGITS,-9) 
  define(LEXDO,-7) 
  define(LEXELSE,-11) 
  define(LEXFOR,-16) 
  define(LEXIF,-12) 
  define(LEXLITERAL,-19) 
  define(LEXNEXT,-13) 
  define(LEXOTHER,-14) 
  define(LEXREPEAT,-17) 
  define(LEXRETURN,-20)
  define(LEXUNTIL,-18) 
  define(LEXWHILE,-15) 
  define(LEXWRITE,-21)
  define(LEXREAD,-22)
  define(LEXENCODE,-23)
  define(LEXDECODE,-24)
  define(LEXFORMAT,-25)
  define(MAXCHARS,10)      # characters for outnum 
                           # (should be compatible with "putdec") 
  define(MAXDEF,200)       #max chars in a definition 
  define(MAXFILE,10)        #max files which can be open at a time 
  define(NFILES,6)         #max depth of file inclusion 
                           #(should be max nbr open files allowed - 4)
  define(MAXFNAMES,NFILES*FILENAMESIZE)
  define(MAXFORSTK,200)    #max space for for reinit clauses 
  define(MAXNAME,20)       #function name size in gettok 
  define(MAXPTR,650)       #number of defines in lookup 
  define(MAXSTACK,100)     #max stack depth for parser 
  define(MAXTBL,6500)      #max chars in all definitions 
  define(MAXTOK,200)       #max chars in a token 
  define(MAXFORMAT,200)    #max length of format in read, write, encode, decode
  define(TOGGLE,PERCENT)   #literal toggle flag 
