#FILE=DEFIN.RAT GENERAL CHARACTER SET DEFINITIONS FOR RATFOR *** SHORT FORM DEFINE(ALPHA=-100) DEFINE(AMPER=38) #AMPERSAND DEFINE(ATSIGN=64) DEFINE(BACKSLASH=92) DEFINE(BAD=-1) DEFINE(BACKSPACE=8) DEFINE(BANG=33) # EXCLAMATION MARK DEFINE(BAR=124) DEFINE(BELL=7) 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(CHARFUNC=LOGICAL) #SYKES 3OCT76 !!! DEFINE(COLON=58) DEFINE(COMMA=44) MACRO (DECREMENT,$=$-1) 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=-20) DEFINE(DOLLAR=36) DEFINE(DQUOTE=34) DEFINE(DUMMYSIZE=1) #LENGTH OF ARGUMENT ARRAYS IN SUBROUTINES DEFINE(EQUALS=61) DEFINE(EOF=-3) DEFINE(EOS=0) #END-OF-STRING !!!! DEFINE(FORMFEED=12) DEFINE(FUNCSIZE=*1) #SYKES3OCT76!!! DEFINE(GREATER=62) DEFINE(HUGE=32767) MACRO (INCREMENT,$=$+1) DEFINE(LBRACE=123) DEFINE(LBRACK=91) DEFINE(LESS=60) DEFINE(LETTER=-30) DEFINE(LPAREN=40) DEFINE(MINUS=45) DEFINE(NCHARS=33) # NUMBER OF SPECIAL CHARACTERS DEFINE(NEWLINE=10) DEFINE(NO=0) DEFINE(PERCENT=37) DEFINE(PERIOD=46) DEFINE(PLUS=43) DEFINE(QMARK=63) DEFINE(RBRACE=125) DEFINE(RBRACK=93) DEFINE(RPAREN=41) DEFINE(SEMICOL=59) DEFINE(SHARP=35) DEFINE(SLASH=47) DEFINE(SQUOTE=39) DEFINE(STAR=42) DEFINE(TAB=9) DEFINE(YES=1) DEFINE(CHARACTER=LOGICAL*1) #!!! DEFINE(UNDERLINE=95) #