define(define,_macro(%1,$2))
# define(VAX)
_ifdef(VAX)
define(NODESIZE,66)
define(DEVSIZE,65)
define(UICSIZE,92)
define(NAMESIZE,10)
define(EXTSIZE,5)
define(VERSIZE,7)
define(ERR$OUT,'SYS$ERROR')
define(STD$IN,'SYS$INPUT')
define(STD$OUT,'SYS$OUTPUT')
define(DEFAULT$DISK,'SYS$DISK:')
define(USER$BIN,'SYS$PUBLIC:')	# location of system-wide "SYMBOLS." file
define(MAXINT,2147483647)
define(read_prompt,{ write(6,($1)); read(5,($2),end=10) $3 })
_elsedef
define(NODESIZE,1)
define(DEVSIZE,6)
define(UICSIZE,10)
define(NAMESIZE,10)
define(EXTSIZE,5)
define(VERSIZE,7)
define(ERR$OUT,'TI:')
define(STD$IN,'TI:')
define(STD$OUT,'TI:')
define(DEFAULT$DISK,'SY:')
define(USER$BIN,'LB:[6,110]')	# location of system-wide "SYMBOLS." file
define(MAXINT,32767)
define(read_prompt,{ write(5,($1)); read(5,($2),end=10) $3 })
_enddef
define(FILENAMESIZE,_arith(_
  _arith(NODESIZE,+,DEVSIZE,+,UICSIZE,+,NAMESIZE,+,EXTSIZE),+,_
  VERSIZE,-,5))

define(MCR,-2)
define(MESSAGE,-1)
define(TERMINAL,0)

define(ACCENT,96)
define(ALPHA,1)
define(AMPER,38)
define(AND,38)
define(APPEND,4)
define(ARB,1)
define(ATSIGN,64)
define(BACKSLASH,92)
define(BACKSPACE,8)
define(BANG,33)
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(CARET,94)
define(CMDIN,4)
define(COLON,58)
define(COMMA,44)
define(CR,13)
define(DASH,45)
define(DELETEF,'D')
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,-10)
define(EOS,0)
define(EQUALS,61)
define(ERR,-1)
define(ERROUT,3)   
define(ESC,27)
define(ESCAPE,ATSIGN)
define(ESCCHAR,ESC)
define(EXIT_NONE,0)
define(EXIT_SUCCESS,1)
define(EXIT_WARNING,2)
define(EXIT_ERROR,3)
define(EXIT_SEVERE_ERROR,4)
define(EXTEND,'A')
define(FF,12)
define(FORTRAN,'F')
define(GRAVE,ACCENT)
define(GREATER,62)
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,3)
define(LETU,117)
define(LETV,118)
define(LETW,119)
define(LETX,120)
define(LETY,121)
define(LETZ,122)
define(LF,10)
define(LPAREN,40)
define(MAXCARD,132)
define(MAXCHARS,_arith(_len(MAXINT),+,2))   # maximum field for integer strings
define(MAXLINE,_arith(MAXCARD,+,2))
define(MINUS,45)
define(NEWLINE,10)
define(NO,0)
define(NOT,BANG)
define(OK,0)
define(OR,BAR)
define(PERCENT,37)
define(PERIOD,46)
define(PLUS,43)
define(PRINTER,6)  # must be highest lu for standard files
define(PRINTF,'P')
define(QMARK,63)
define(RBRACE,125)
define(RBRACK,93)
define(READ,'R')
define(READDELETE,'X')
define(READONLY,'R')
define(READWRITE,'W')
define(RPAREN,41)
define(SAVEF,'S')
define(SEMICOL,59)
define(SHARP,35)
define(SLASH,47)
define(SQUOTE,39)
define(STAR,42)
define(STDIN,5)
define(STDOUT,2)
define(TAB,9)
define(TILDE,126)
define(UNDERLINE,95)
define(VT,11)
define(WRITE,'W')
define(YES,1)
define(andif,if)
define(character,byte)
define(index,indexx)
define(elseif,else if)
_undef(define)
