Directory of image this file is from
This file as a plain text file

      SUBROUTINE TOUTST(LEN,IADE)
      COMMON /TKTRNX/ TMINVX,TMINVY,TMAXVX,TMAXVY,TREALX,TREALY,
     1 TIMAGX,TIMAGY,TRCOSF,TRSINF,TRSCAL,TRFACX,TRFACY,
     2 TRPAR1,TRPAR2,TRPAR3,TRPAR4,TRPAR5,TRPAR6,KMOFLG(8),KPAD2,
     3 KBAUDR,KGNFLG,KGRAFL,KHOMEY,KKMODE,KHORSZ,KVERSZ,KTBLSZ,
     4 KSIZEF,KLMRGN,KRMRGN,KFACTR,KTERM,KLINE,KZAXIS,KBEAMX,KBEAMY,
     5 KMOVEF,KPCHAR(5),KDASHT,KMINSX,KMINSY,KMAXSX,KMAXSY,KEYCON,
     6 KINLFT,KOTLFT,KUNIT
      DIMENSION IADE(1),IUSE(72)
      DATA ISYNC,MAXLEN/22,72/
      IF (LEN .LE. 0) GO TO 40
      LENOUT=0
      ITEST=KPAD2-1
      DO 30 I=1,LEN
      ITEMP=IADE(I)
C * TEST TO SEE IF PADDING WITH (SYN) TO SOLVE SPEED IS NEEDED
C * REMOVE THIS SECTION IF NOT NEEDED
      IF(ITEST .LE. 0)GO TO 20
      IF(ITEMP .GT. 31)GO TO 20
      IF(ITEMP .LT. 27)GO TO 20
      DO 10 K=1,ITEST
      IF(LENOUT .GE. MAXLEN)GO TO 40
      LENOUT=LENOUT+1
10    IUSE(LENOUT)=ISYNC
20    CONTINUE
C * INSERT CODE EXPANSION CHARACTERS HERE, WHEN NEED
      IF(LENOUT .GE. MAXLEN)GO TO 40
      LENOUT=LENOUT+1
30    IUSE(LENOUT)=ITEMP
40    CALL BUFFPK(LENOUT,IUSE)
      RETURN
      END