File: FITEST.FT of Tape: Various/System-Tapes/eb-plot

(Source file text) 

---

      DIMENSION  TEXT (14)
      IEND=0
      ITTY=4
      ICHANN=8
	WRITE(ITTY,1002)
      READ (ITTY,2002) FAKTX
1002  FORMAT (' VERZERRUNG IN X-RICHTUNG ? ')
2002	FORMAT(F10.3)
	WRITE(ITTY,1003)
      READ (ITTY,2002) FAKTY
1003  FORMAT (' VERZERRUNG IN Y-RICHTUNG ? ',F10.3)
      FAKTH=0.85*FAKTY
      IF (FAKTY-FAKTX)4,5,5
4     FAKTH=0.85*FAKTX
5     XMAX=0.
      YMAX=0.
      X0=0.
      Y0=0.
	CALL PLOTS(9,X0,Y0,0,0)
10    READ(ICHANN,1000) ITYP,X,Y
1000  FORMAT (I3,2F6.0)
      IF (ITYP) 6,60,6
6     X=X0+X*FAKTX
      IX=X
      Y=Y0+Y*FAKTY
      IY=Y
      IF (ITYP-1)10,10,7
7     IF (ITYP-3)20,20,8
8     IF (ITYP-5)40,40,10
C
C      WRITE(ITTY,1004)IX,IY,ITYP
C1004  FORMAT(3I4)
20      CALL PLOT(IX,IY,ITYP,0)
      GOTO   10
C
40    READ(ICHANN,1000) N,H,A
      H=H*FAKTH
      IF (ITYP-5)41,50,41
41    CALL PLOT(IX,IY,3,0)
C     CALL SYMBOL(X,Y,H,N+100,A,-1)
      GOTO 10
C
50    READ (ICHANN,1050) TEXT
1050  FORMAT(13A6,A2)
      IF (N-70) 51,51,55
51    CALL PLOT(IX,IY,3,0)
C     CALL SYMBOL(X,Y,H,TEXT,A,N)
      GOTO 10
55    CALL PLOT(IX,IY,3,0)
C     CALL SYMBOL(X,Y,H,TEXT,A,70)
      N=N-70
C     CALL WHERE(X,Y,ITYP)
      GOTO 50
C
60    X=X*FAKTX
      Y=Y*FAKTY
C     CALL NEXTFR(X+1,Y+1,X0,XMAX,YMAX,X0,Y0)
      IF (IEND)99,61,99
61    IEND=1
      GOTO 10
C
99    CALL XPLOT
      STOP
      END

---