\START\
\COMMENT=Ungrouped from c:\\ti\\prog\\prog.85g
\NAME=SEC
\FILE=SEC.85P
Disp "SEC x=(1/cos x)"
Input "X=",x
(1/cos x)\->\B
Disp B
\STOP\