#========== Standard Ratfor definitions ==========
   
define(ALPHA,10100)
define(AND,38)
define(andif,if)
define(ARB,100)
define(ATSIGN,64)
define(BACKSLASH,92)
define(BACKSPACE,8)
define(BANG,33)
define(BAR,124)
define(BIGA,65)
define(BIGB,66)
define(BIGC,67)
define(BIGD,68)
define(BIGE,69)
define(BIGF,70)
define(BIGG,71)
define(BIGH,72)
define(BIGI,73)
define(BIGJ,74)
define(BIGK,75)
define(BIGL,76)
define(BIGM,77)
define(BIGN,78)
define(BIGO,79)
define(BIGP,80)
define(BIGQ,81)
define(BIGR,82)
define(BIGS,83)
define(BIGT,84)
define(BIGU,85)
define(BIGV,86)
define(BIGW,87)
define(BIGX,88)
define(BIGY,89)
define(BIGZ,90)
define(BLANK,32)
define(CARET,94)
define(COLON,58)
define(COMMA,44)
define(DIG0,48)
define(DIG1,49)
define(DIG2,50)
define(DIG3,51)
define(DIG4,52)
define(DIG5,53)
define(DIG6,54)
define(DIG7,55)
define(DIG8,56)
define(DIG9,57)
define(DIGIT,2)
define(DOLLAR,36)
define(DQUOTE,34)
define(EOF,10003)
define(EOS,10002)
define(EQUALS,61)
define(ERR,10001)
define(ERROUT,2)
define(GREATER,62)
define(HUGE,30000)
define(LBRACE,123)
define(LBRACK,91)
define(LESS,60)
define(LETA,97)
define(LETB,98)
define(LETC,99)
define(LETD,100)
define(LETE,101)
define(LETF,102)
define(LETG,103)
define(LETH,104)
define(LETI,105)
define(LETJ,106)
define(LETK,107)
define(LETL,108)
define(LETM,109)
define(LETN,110)
define(LETO,111)
define(LETP,112)
define(LETQ,113)
define(LETR,114)
define(LETS,115)
define(LETT,116)
define(LETTER,1)
define(LETU,117)
define(LETV,118)
define(LETW,119)
define(LETX,120)
define(LETY,121)
define(LETZ,122)
define(LPAREN,40)
define(MAXCHARS,10)
define(MAXLINE,120)	# typical line length
define(MAXNAME,30)	# typical file name size
define(MINUS,45)
define(NEWLINE,10)
define(NO,0)
define(NOERR,0)
define(NOT,126)	  # same as tilde
define(OK,-2)
define(OR,BAR)	 # same as BAR
define(PERCENT,37)
define(PERIOD,46)
define(PLUS,43)
define(QMARK,63)
define(RBRACE,125)
define(RBRACK,93)
define(READ,0)
define(READWRITE,2)
define(RPAREN,41)
define(SEMICOL,59)
define(SHARP,35)
define(SLASH,47)
define(SQUOTE,39)
define(STAR,42)
define(STDIN,0)
define(STDOUT,1)
define(STDERR,ERROUT)
define(TAB,9)
define(TILDE,126)
define(UNDERLINE,95)
define(WRITE,1)
define(YES,1)
define(character,integer)
define(abs,iabs)
define(min,min0)
define(max,max0)
   
# handy machine-dependent parameters, change for a new machine
   
# Data General Nova and Eclipse.
define(BPI,16)		# bits per integer
define(BPC,8)		# bits per character
define(CPI,2)		# characters per integer
define(LIMIT,32767)	# largest positive integer
define(LIM1,71)		# maximum exponent (power of ten)
define(LIM2,-71)	# minimum exponent (power of ten)
define(PRECISION,7)	# digits accurate in real
   
# Data General FORTRAN IV and 5
define(open,RATOPEN)	# use OPEN for DGC subroutine
define(close,RATCLOSE)	# use CLOSE for DGC subroutine
define(exit,RATEXIT)	# use EXIT for DGC subroutine
define(ARB,10000)	# because the one above is not big enough
define(comarg,RATARG)	# use COMARG for DGC subroutine
define(error,RATERR)	# use ERROR for DGC subroutine
   
# Data General RDOS operating system
# see also the AOS parameters -- duplicate entries must be commented out
   
define(NULL,0)		# ASCII NULL character
define(CR,13)		# ASCII carriage return
define(FF,12)		# ASCII form feed
define(MAXLINE,132)
define(MAXNAME,50)
#define(EREOF,9)	 # system error for end of file condition
   
# Data General AOS operating system
# see also the RDOS parameters -- duplicate entries must be commented out
   
define(EREOF,27)	# system error for end of file condition