PROCEDURE ReadPath (IN s: ARRAY OF CHAR; OUT t: ARRAY OF CHAR; VAR i: INTEGER; VAR ch: CHAR);
VAR j: INTEGER;
BEGIN (* extract the designator that describes a global variable *)
j := 0;
IF (CAP(ch) >= "A") & (CAP(ch) <= "Z") THEN
REPEAT
t[j] := ch; INC(j);
INC(i); ch := s[i]
UNTIL (ch < "0") & (ch # ".") OR ("9" < ch) & (CAP(ch) < "A") OR ("Z" < CAP(ch)) & (ch # "_") OR (j = varLen)
END;
t[j] := 0X
END ReadPath;