0079#FILE=DEFIN.RAT	GENERAL CHARACTER SET DEFINITIONS FOR RATFOR *** SHORT FORM0022DEFINE(ALPHA=-100)0032DEFINE(AMPER=38)		#AMPERSAND0021DEFINE(ATSIGN=64)0024DEFINE(BACKSLASH=92)0018DEFINE(BAD=-1)0023DEFINE(BACKSPACE=8)0040DEFINE(BANG=33) 		# EXCLAMATION MARK0019DEFINE(BAR=124)0018DEFINE(BELL=7)0019DEFINE(BIGA=65)0019DEFINE(BIGB=66)0019DEFINE(BIGC=67)0019DEFINE(BIGD=68)0019DEFINE(BIGE=69)0019DEFINE(BIGF=70)0019DEFINE(BIGG=71)0019DEFINE(BIGH=72)0019DEFINE(BIGI=73)0019DEFINE(BIGJ=74)0019DEFINE(BIGK=75)^^^^^^^0019DEFINE(BIGL=76)0019DEFINE(BIGM=77)0019DEFINE(BIGN=78)0019DEFINE(BIGO=79)0019DEFINE(BIGP=80)0019DEFINE(BIGQ=81)0019DEFINE(BIGR=82)0019DEFINE(BIGS=83)0019DEFINE(BIGT=84)0019DEFINE(BIGU=85)0019DEFINE(BIGV=86)0019DEFINE(BIGW=87)0019DEFINE(BIGX=88)0019DEFINE(BIGY=89)0019DEFINE(BIGZ=90)0020DEFINE(BLANK=32)0046DEFINE(CHARFUNC=LOGICAL)	#SYKES 3OCT76 !!!0020DEFINE(COLON=58)0020DEFINE(COMMA=44)0027MACRO (DECREMENT,$=$-1)0019DEFINE(DIG0=48)0019DEFINE(DIG1=49)0019DEFINE(DIG2=50)0019DEFINE(DIG3=51)^^^^^^^^^^^^^^^^^^0019DEFINE(DIG4=52)0019DEFINE(DIG5=53)0019DEFINE(DIG6=54)0019DEFINE(DIG7=55)0019DEFINE(DIG8=56)0019DEFINE(DIG9=57)0021DEFINE(DIGIT=-20)0021DEFINE(DOLLAR=36)0021DEFINE(DQUOTE=34)0065DEFINE(DUMMYSIZE=1)	#LENGTH OF ARGUMENT ARRAYS IN SUBROUTINES0021DEFINE(EQUALS=61)0018DEFINE(EOF=-3)0040DEFINE(EOS=0)		#END-OF-STRING   !!!!0023DEFINE(FORMFEED=12)0040DEFINE(FUNCSIZE=*1)		#SYKES3OCT76!!!0022DEFINE(GREATER=62)0022DEFINE(HUGE=32767)0027MACRO (INCREMENT,$=$+1)0022DEFINE(LBRACE=123)0021DEFINE(LBRACK=91)^^^^^^^^^^^^^^0019DEFINE(LESS=60)0022DEFINE(LETTER=-30)0021DEFINE(LPAREN=40)0020DEFINE(MINUS=45)0053DEFINE(NCHARS=33) 	# NUMBER OF SPECIAL CHARACTERS0022DEFINE(NEWLINE=10)0016DEFINE(NO=0)0022DEFINE(PERCENT=37)0021DEFINE(PERIOD=46)0019DEFINE(PLUS=43)0020DEFINE(QMARK=63)0022DEFINE(RBRACE=125)0021DEFINE(RBRACK=93)0021DEFINE(RPAREN=41)0022DEFINE(SEMICOL=59)0020DEFINE(SHARP=35)0020DEFINE(SLASH=47)0021DEFINE(SQUOTE=39)0019DEFINE(STAR=42)0017DEFINE(TAB=9)0017DEFINE(YES=1)0037DEFINE(CHARACTER=LOGICAL*1)		#!!!^^^^^^^^^^^^^^^^^^^^0024DEFINE(UNDERLINE=95)0005#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^