Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-07 - decus/20-0170/macro3.for
There is 1 other file named macro3.for in the archive. Click here to see a list.
      SUBROUTINE TTYSET
C
C     TTYSET = (CALLED IN MAIN  PROGRAM IF OUTPUT  IS TO BE
C              TO TERMINAL)  TTYSET  CHANGES  THE  TERMINAL
C              CHARACTERISTICS TO ALLOW THE TERMINAL TO ACT
C              AS  AN  OUTPUT  TYPEWRITER.   THE  FOLLOWING
C              TERMINAL CHARACTERISTICS ARE SET.
C                   NO CHECKING OF LINE WIDTH
C                   NO CHECKING OF PAGE LENGTH
C                   NO PAUSING AT TOP OF PAGE
C                   LOWER CASE LETTERS
C                   HARDWARE FORM FEEDS
C                   NO HARDWARE TABS
C                   REFUSING OF ALL SYSTEM MESSAGES
C
C     *****************************************************
C     *                                                   *
C     *   THIS VERSION OF THIS ROUTINE IS NOT FUCTIONAL   *
C     *                                                   *
C     *****************************************************
C
      RETURN
      END
      SUBROUTINE TTYSIM
C
C     TTYSIM = (CALLED IN MAIN PROGRAM IF  OUTPUT IS  TO BE
C              TO DISK) TTYSIM SPECIFIES THAT  CHARACTER IN
C              COLUMN 1 IS TO BE CONVERTED DIRECTLY TO  THE
C              APPROPRIATE CONTROL CHARACTER.  IF TTYSIM IS
C              CONVERTED TO A DUMMY ROUTINE, THEN THE FIRST
C              CHARACTER  ON  THE  FIRST  LINE OF THE FIRST
C              PAGE WILL BE  A  PLUS  SIGN  AND  THE  FIRST
C              CHARACTER ON THE FIRST LINE OF ALL FOLLOWING
C              PAGES WILL BE  THE  DIGIT  ONE.   ALL  OTHER
C              LINES   WILL   BEGIN   WITH  SPACES.   THESE
C              CHARACTERS   SHOULD   GIVE   THE   FOLLOWING
C              CARRIAGE MOTIONS.
C                   PLUS GIVES NO CARRIAGE MOTION
C                   SPACE GIVES SINGLE LINE ADVANCE
C                   ONE GIVES FORM FEED
C
C     *****************************************************
C     *                                                   *
C     *   THIS VERSION OF THIS ROUTINE IS NOT FUCTIONAL   *
C     *                                                   *
C     *****************************************************
C
      RETURN
      END
      SUBROUTINE EXPUNG
C
C     EXPUNG = (CALLED BY RNOFIL ROUTINE AFTER EACH SCRATCH
C              FILE IS DELETED) FROFF DELETES SCRATCH FILES
C              AFTER THESE ARE  NO  LONGER  NECESSARY.   ON
C              SOME  SYSTEMS,  THOUGH, SUCH FILES ARE STILL
C              RETAINED ALTHOUGH THESE NO LONGER ARE LISTED
C              IN  THE  USER  DIRECTORY.   MANY OF THESE NO
C              LONGER NEEDED  FILES  CAN  ACCUMULATE  SINCE
C              FROFF  MAKES  HEAVY  USE OF SCRATCH FILES IN
C              CONSTRUCTING FOOTNOTES AND INDEXES.   EXPUNG
C              IS  CALLED  TO FREE UP THIS DISK SPACE AFTER
C              EACH SCRATCH FILE IS DELETED.
C
C     *****************************************************
C     *                                                   *
C     *   THIS VERSION OF THIS ROUTINE IS NOT FUCTIONAL   *
C     *                                                   *
C     *****************************************************
C
      RETURN
      END
      SUBROUTINE LEAVE
C
C     LEAVE = (CALLED IN MAIN PROGRAM  AFTER ALL PROCESSING
C             HAS BEEN COMPLETED).  THE LEAVE ROUTINE HALTS
C             EXECUTION  WITHOUT TYPING THE  JOB STATISTICS
C             WHICH ARE OFTEN  GENERATED BY  A FORTRAN STOP
C             STATEMENT.
C
C     *****************************************************
C     *                                                   *
C     *   THIS VERSION OF THIS ROUTINE IS NOT FUCTIONAL   *
C     *                                                   *
C     *****************************************************
C
      STOP
      END