C SUBROUTINE TTYINI SUBROUTINE TTYINI C PERFORM INITS ON UNIT 5. NORMALLY EITHER DO NOTHING OR C REPLACE WITH SOMETHING THAT WORKS FOR YOUR SYSTEM. TYPICAL C ACTIONS: C SET THE TERMINAL NOT TO WRAP AROUND C ATTACH TERMINAL SO TYPE-AHEAD WORKS C SET UP TERMINAL TO MUNGE AROUND THE ESCAPE SEQUENCES TO ALLOW C SPECIAL FUNCTION AND/OR ARROW KEYS TO WORK. C VMS VERSION ... HIGHLY SYSTEM DEPENDENT... RETURN END C DUMMY TTYDEI (DE-INIT) SUBROUTINE TTYDEI RETURN END C C SUBROUTINE GETTTL(LINE) C READ IN A TERMINAL LINE ON VAX... C VMS VERSION. FOR STANDARD VANILLA VERSION COMMENT C OUT ALL BUT THE FORTRAN READ AND UNCOMMENT THAT... SUBROUTINE GETTTL(LINE) LOGICAL*1 LINE(132) C C C C C DUMMY CODE FOR FORTRAN READ... C ********* C **** HERE IS THE SECTION OF CODE YOU NEED FOR NON-VMS-SPECIFIC VERSION READ(5,1000)LINE 1000 FORMAT(132A1) C ********* RETURN END