C TEST THE NEW IOPEN SUBROUTINE C 50 CALL IOPEN('SYS','IOPEN','SB') CALL OOPEN('TTY',0,0) S\100, TAD (3400 CALL GENIO S AND (177 S DCA \I S TAD \I S TAD (1400 CALL GENIO IF(I-26) 100,200,100 200 CALL OCLOSE GOTO 50 END