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

(Source file text) 

---

      SUBROUTINE FIDES

      DIMENSION  TEXT (14)
      CALL       PLOTS
      WRITE      (0,20002)
20002 FORMAT     ('0VERZERRUNG IN X-RICHTUNG ?      ',$)
      READ       (0,10002) FAKTX
10002 FORMAT     (F10.0)
      WRITE      (0,20003)
20003 FORMAT     (' VERZERRUNG IN Y-RICHTUNG ?      ',$)
      READ       (0,10002) FAKTY
      FAKTH      = 0.85 * AMIN1 (FAKTX,FAKTY)
      XMAX       = 0.
      YMAX       = 0.
      X0         = 0.
      Y0         = 0.
   10 CALL       CHKEOF (EOF)
      READ       (1,1000) TYP , X , Y
 1000 FORMAT     (I3,2F6.2)
      IF         (EOF .NE. 0) GOTO 99
      IF         (TYP .EQ. 0) GOTO 60
      X          = X0 + X*FAKTX
      Y          = Y0 + Y*FAKTY
      IF         (TYP .LE. 1) GOTO 10
      IF         (TYP .LE. 3) GOTO 20
      IF         (TYP .LE. 5) GOTO 40
      GOTO   10
C
   20 CALL       PLOT (X,Y,TYP)
      GOTO   10
C
   40 READ       (1,1000) N , H , A
      H          = H*FAKTH
      IF         (TYP .EQ. 5) GOTO 50
      CALL       PLOT (X,Y,3)
      CALL       SYMBOL (X,Y,H,N+100,A,-1)
      GOTO   10
C
   50 READ       (1,1050) TEXT
 1050 FORMAT     (13A6,A2)
      IF         (N .GT. 70) GOTO 55
      CALL       PLOT (X,Y,3)
      CALL       SYMBOL (X,Y,H,TEXT,A,N)
      GOTO   10
   55 CALL       PLOT (X,Y,3)
      CALL       SYMBOL (X,Y,H,TEXT,A,70)
      N          = N-70
      CALL       WHERE (X,Y,TYP)
      GOTO   50
C
   60 X          = X * FAKTX
      Y          = Y * FAKTY
      CALL       NEXTFR (X+1,Y+1,X0,XMAX,YMAX,X0,Y0)
      GOTO   10
C
   99 CALL       PLOT(XMAX,0.,3)
      CALL       PLEXIT
      WRITE      (0,2099)
 2099 FORMAT     (' ENDE ZEICHNUNG'///)
      STOP
      END

---