LABEL 99; CONST NKW = 26; (*NO. OF KEY WORDS*) ALNG = 10; (*NO. OF SIGNIFICANT CHARS IN INDENTIFIERS*) LLNG = 121; (*INPUTLINE LENGHT*) KMAX = 15; (*MAX NO. OF SIGNIFICANT DIGITIS*) TMAX = 70; (*SIZE OF TABLE*) BMAX = 20; (*SIZE OF BLOCK-TABLE*) AMAX = 10; (*SIZE OF ARRAY TABLE*) CMAX = 500; (*SIZE OF CODE*) LMAX = 7; (*MAXIMUM LEVEL*) SMAX = 150; (*SIZE OF STRING TABLE*) OMAX = 63; (*HIGHEST ORDER CODE*) XMAX = 32767; (*2**15 - 1*) NMAX = MAXINT; LINELENG = 132; (*OUTPUT LINE LENGHT*) LINELIMIT = 400; (*MAX LINES TO PRINT*) STMAX = 2800; (*STACKSIZE*) STKINCR = 200; (*STCKSIZE FOR EACH PROCESS*) PMAX = 7; (*MAX CONCURRENT PROCESSES*) (* INTERPRETER DECLARATIONS *) STEPMAX = 8; (*MAX STEPS BEFORS PROCESS SWITCH*) TRU = 1; (*INTEGER VALUE OF TRUE*) FALS = 0; (*INTEGER VALUE OF FALSE*) CHARL = 0; (*LOWEST CHARACTER ORDINAL*) CHARH = 255; (*HIGHEST CHARACTER ORDINAL*) TYPE PSTRG = ^STRING; FNTYP = STRING[16]; SYMBOL = (INTCON, CHARCON, STRING, NOTSY, PLUS, MINUS, TIMES, IDIV, IMOD, ANDSY, ORSY, EQL, NEQ, GEQ, GTR, LSS, LEQ, LPARENT, RPARENT, LBRACK, RBRACK, COMMA, SEMICOLON, PERIOD, COLON, BECOMES, CONSTSY , TYPESY, VARSY, FUNCTIONSY, PROCEDURESY, ARRAYSY, PROGRAMSY, IDENT, BEGINSY, IFSY, REPEATSY, WHILESY, FORSY, ENDSY, ELSESY, UNTILSY, OFSY, DOSY, TOSY, THENSY); INDEX = - XMAX .. + XMAX; ALFA = PACKED ARRAY [1.. ALNG] OF CHAR; OBJECT = (KONSTANT, VARIABLE, TYPE1, PROZEDURE, FUNKTION); TYPES = (NOTYP, INTS, BOOLS, CHARS, ARRAYS); ER = (ERID, ERTYP, ERKEY, ERPUN, ERPAR, ERNF, ERDUP, ERCH, ERSH, ERLN); SYMSET = SET OF SYMBOL; TYPSET = SET OF TYPES; ITEM = RECORD TYP: TYPES; REF: INDEX; END; ORDER = PACKED RECORD F: - OMAX .. + OMAX; X: - LMAX .. + LMAX; Y: - NMAX .. + NMAX; END; PTYPE = 0..PMAX; (*INDEX OVER PROCESSES*)