T/CONST/
TS/BAR =/ I/   EBCDICTABCHAR = 5;///
T/PROCEDURE READSYMBOL ;   (*FORWARD/ TS/1: WHILE/
R/CH = ' '/(CH=' ') OR (CH=CHR(EBCDICTABCHAR))/
TELE