P+1
I$(*#T+
%RANGECHECKS=YES
*)
$
B/REALIO/ICL9LP/
TS/SPACE,/ A/,E,/LITTLEE,/
TS/PROCEDURE P77RRERR/
R/P77RRERR( /ICL9LPREADRERR(/ T+1 I/    /
T$(*#E+$ D/*)/ T+1
I$%KEYEDENTRY ON
*)
$
R/P78READR( /ICL9LPRIOREAD(/ T+1 I/     / T+1 I/      /
*2(TC/P77RRERR/, I/      /, R/P77RRERR/ICL9LPREADRERR/, T+1)
TC/P78READR/, R/P78READR/ICL9LPRIOREAD/, T+1
TS/IF CH = E/ R/CH = E/(CH=E) OR (CH=LITTLEE)/
TS/END (* P78/ R/P78READR/ICL9LPRIOREAD/
T$(*#E-$ D/*)/ T+1
I$%KEYEDENTRY OFF
*)
$
T$(*#E+$ D/*)/ T+1
I$%KEYEDENTRY ON
*)
$
R/P78WRFIX( /ICL9LPRIOWRFIX(/ *2(T+1,*6(I/ /)) *2(T+1,*10(I/ /))
TS/END(* P78WRFIX/ R/P78WRFIX/ICL9LPRIOWRFIX/
T/PROCEDURE P78WRFLT/  R/P78WRFLT( /ICL9LPRIOWRFLOAT(/ T+1 *8(I/ /)
*2(T+1,*11(I/ /))
TS/END (* P78WRFLT/ R/P78WRFLT/ICL9LPRIOWRFLOAT/
TELE