File: UNIVAC.WY of Tape: Various/System-Tapes/eb-plot

(Source file text) 

---

      SUBROUTINE UNIVAC
C     -----------------
C
      DIMENSION TEXT(9),X(4),Y(4),I(4),TEST(6)
      LOGICAL    EOF
      DATA TEST  / 'PLOTS','PLOT','SYMBOL','PLEND','LINTYP','NEWPEN'/
      DATA NPEN  / 1 /
C
C  READ RECORD, TEST TYP
C
   10 CALL CHKEOF(EOF)
      READ(1,1000)TEXT
 1000 FORMAT(9A6)
      IF         (EOF)  GOTO 999
      DO     20  J = 1,6
      IF         (TEXT(1) .NE. TEST(J)) GOTO 20
      GOTO       (30,80,40,100,110,120) , J
   20 CONTINUE
      GOTO 10
C
C  PLOTS
C
   30 CALL       PLOTS
      WRITE      (4,2030) TEXT
 2030 FORMAT     (/1X,9A6)
      WRITE(4,2000)
 2000 FORMAT     (' GROESSENFAKTOR (SCHRIFT UND ZEICHNUNG)  ?        '$)
      READ(4,1030)F
 1030 FORMAT(F9.0)
      WRITE(4,2010)
 2010 FORMAT     (' GROESSENFAKTOR (SPEZIAL ZEICHEN      )  ?        '$)
      READ(4,1030)FZ
      GOTO 10
C
C  SYMBOL
C
   40 BACKSPACE 1
      READ(1,1010)HH,AA,NN,TEXT
 1010 FORMAT(7X,2F7.2,I3,9A6)
      IF(NN.EQ.0)GOTO 50
      H=HH
      A=AA
      N=NN
   50 CALL WHERE(XPEN,YPEN,AA)
      IF(N.GT.54)GOTO 60
      IF(N.GT.0 )GOTO 70
C  CENTERED
      CALL SYMBOL(XPEN,YPEN,H*FZ,IABS(N)+100,A,-1)
      GOTO 10
C  STRING >54 CHAR
   60 CALL SYMBOL(XPEN,YPEN,H*F,TEXT,A,54)
      N=N-54
      GOTO 10
C  STRING END
   70 CALL SYMBOL(XPEN,YPEN,H*F,TEXT,A,N)
      N=0
      GOTO 10
C
C  PLOT
C
   80 BACKSPACE 1
      READ(1,1020)(X(J),Y(J),I(J),J=1,4)
 1020 FORMAT(6X,4(1X,2F7.2,I3))
      DO 90 J=1,4
      IF(I(J).EQ.0)GOTO 10
   90 CALL PLOT(X(J)*F,Y(J)*F,I(J))
      GOTO 10
C
C  PLEND
C
  100 CALL       PLEXIT
      WRITE      (4,2100)
 2100 FORMAT     (' PLEND')
      GOTO   10
C
C  LINTYP
C
  110 BACKSPACE  1
      READ       (1,1110) N,(X(J),J=1,3)
 1110 FORMAT     (7X,I1,1X,3F7.2)
      CALL       LINTYP (N,X(1),X(3),X(2),X(3),0.,0.)
      GOTO   10
C
C  NEWPEN
C
  120 BACKSPACE  1
      READ       (1,1120) N
 1120 FORMAT     (23X,I1)
      IF         (N .EQ. NPEN) GOTO 10
      NPEN       = N
      WRITE      (4,2120) N
 2120 FORMAT     (/' BITTE FEDER NR',I2,3X,'CR WENN BEREIT',10X,$)
      READ       (4,1000) N
      GOTO   10
C
  999 WRITE(4,2020)
 2020 FORMAT     (/' ENDE ZEICHNUNG'///)
      CALL       PLEXIT
      END

---