PROCEDURE Get*(VAR sym: BYTE);
    VAR s: BYTE; old: INTEGER;

    PROCEDURE Comment;	(* do not read after end of file *)
    BEGIN DevCPM.Get(ch);
    	LOOP
        LOOP
        	WHILE ch = "(" DO DevCPM.Get(ch);
            IF ch = "*" THEN Comment END
        	END ;
        	IF ch = "*" THEN DevCPM.Get(ch); EXIT END ;
        	IF ch = DevCPM.Eot THEN EXIT END ;
        	DevCPM.Get(ch)
        END ;
        IF ch = ")" THEN DevCPM.Get(ch); EXIT END ;
        IF ch = DevCPM.Eot THEN err(5); EXIT END
    	END
    END Comment;

	BEGIN
    DevCPM.errpos := DevCPM.curpos-1;
    WHILE (ch <= " ") OR (ch = 0A0X) DO (*ignore control characters*)
    	IF ch = DevCPM.Eot THEN sym := eof; RETURN
    	ELSE DevCPM.Get(ch)
    	END
    END ;
    DevCPM.startpos := DevCPM.curpos - 1;
    CASE ch OF   (* ch > " " *)
    	| 22X, 27X  : Str(s)
    	| "#"  : s := neq; DevCPM.Get(ch)
    	| "&"  : s :=  and; DevCPM.Get(ch)
    	| "("  : DevCPM.Get(ch);
        	 IF ch = "*" THEN Comment; old := DevCPM.errpos; Get(s); DevCPM.errpos := old; 
        	 ELSE s := lparen
        	 END
    	| ")"  : s := rparen; DevCPM.Get(ch)
    	| "*"  : s :=  times; DevCPM.Get(ch)
    	| "+"  : s :=  plus; DevCPM.Get(ch)
    	| ","  : s := comma; DevCPM.Get(ch)
    	| "-"  : s :=  minus; DevCPM.Get(ch)
    	| "."  : DevCPM.Get(ch);
            	 IF ch = "." THEN DevCPM.Get(ch); s := upto ELSE s := period END
    	| "/"  : s := slash;  DevCPM.Get(ch)
    	| "0".."9": Number; s := number
    	| ":"  : DevCPM.Get(ch);
            	 IF ch = "=" THEN DevCPM.Get(ch); s := becomes ELSE s := colon END
    	| ";"  : s := semicolon; DevCPM.Get(ch)
    	| "<"  : DevCPM.Get(ch);
            	 IF ch = "=" THEN DevCPM.Get(ch); s := leq ELSE s := lss END
    	| "="  : s :=  eql; DevCPM.Get(ch)
    	| ">"  : DevCPM.Get(ch);
            	 IF ch = "=" THEN DevCPM.Get(ch); s := geq ELSE s := gtr END
    	| "A": Identifier(s); IF name = "ARRAY" THEN s := array END
    	| "B": Identifier(s);
            IF name = "BEGIN" THEN s := begin
            ELSIF name = "BY" THEN s := by
            END
    	| "C": Identifier(s);
            IF name = "CASE" THEN s := case
            ELSIF name = "CONST" THEN s := const
            ELSIF name = "CLOSE" THEN s := close
            END
    	| "D": Identifier(s);
            IF name = "DO" THEN s := do
            ELSIF name = "DIV" THEN s := div
            END
    	| "E": Identifier(s);
            IF name = "END" THEN s := end
            ELSIF name = "ELSE" THEN s := else
            ELSIF name = "ELSIF" THEN s := elsif
            ELSIF name = "EXIT" THEN s := exit
            END
    	| "F": Identifier(s); IF name = "FOR" THEN s := for END
    	| "I": Identifier(s);
            IF name = "IF" THEN s := if
            ELSIF name = "IN" THEN s := in
            ELSIF name = "IS" THEN s := is
            ELSIF name = "IMPORT" THEN s := import
            END
    	| "L": Identifier(s); IF name = "LOOP" THEN s := loop END
    	| "M": Identifier(s);
            IF name = "MOD" THEN s := mod
            ELSIF name = "MODULE" THEN s := module
            END
    	| "N": Identifier(s); IF name = "NIL" THEN s := nil END
    	| "O": Identifier(s);
            IF name = "OR" THEN s := or
            ELSIF name = "OF" THEN s := of
            ELSIF name = "OUT" THEN s := out
            END
    	| "P": Identifier(s);
            IF name = "PROCEDURE" THEN s := procedure
            ELSIF name = "POINTER" THEN s := pointer
            END
    	| "R": Identifier(s);
            IF name = "RECORD" THEN s := record
            ELSIF name = "REPEAT" THEN s := repeat
            ELSIF name = "RETURN" THEN s := return
            END
    	| "T": Identifier(s);
            IF name = "THEN" THEN s := then
            ELSIF name = "TO" THEN s := to
            ELSIF name = "TYPE" THEN s := type
            END
    	| "U": Identifier(s); IF name = "UNTIL" THEN s := until END
    	| "V": Identifier(s); IF name = "VAR" THEN s := var END
    	| "W": Identifier(s);
            IF name = "WHILE" THEN s := while
            ELSIF name = "WITH" THEN s := with
            END
    	| "G".."H", "J", "K", "Q", "S", "X".."Z", "a".."z", "_", "А".."я", "ё", "Ё": Identifier(s)
    	| "["  : s := lbrak; DevCPM.Get(ch)
    	| "]"  : s := rbrak; DevCPM.Get(ch)
    	| "^"  : s := arrow; DevCPM.Get(ch)
    	| "$"  : s := dollar; DevCPM.Get(ch)
    	| "{"  : s := lbrace; DevCPM.Get(ch);
    	| "|"  : s := bar; DevCPM.Get(ch)
    	| "}"  : s := rbrace; DevCPM.Get(ch)
    	| "~"  : s := not; DevCPM.Get(ch)
    	| 7FX  : s := upto; DevCPM.Get(ch)
    ELSE s :=  null; DevCPM.Get(ch)
    END ;
    sym := s
	END Get;

	PROCEDURE Init*;
	BEGIN ch := " "
	END Init;

END DevCPS.

| "I": Identifier(s); IF name = "IF" THEN s := if

....
| "I": Identifier(s); IF name = "IF" THEN s := if
| "Е": Identifier(s); IF name = "ЕСЛИ" THEN s := if

| "G".."H", "J", "K", "Q", "S", "X".."Z", "a".."z", "_", "А".."я", "ё", "Ё": Identifier(s)

PROCEDURE Identifier(VAR sym: BYTE);
VAR i: SHORTINT;
BEGIN i := 0;
REPEAT
name[i] := ch; INC(i); DevCPM.Get(ch)
UNTIL ~National.IsIdentChar(ch) OR (i = MaxIdLen);
IF i = MaxIdLen THEN err(240); DEC(i) END ;
name[i] := 0X; sym := ident
END Identifier;