sw/rescue/lab8e_goettingen/disk2_11/rka/paroff/circle.ft

   1         INTEGER PLONUM
   2         DIMENSION NAME(30)
   3         ITTY=4
   4         WRITE (ITTY,100)
   5 100     FORMAT (1X,'TEXT (30 CHAR MAX, TERMINATOR IS \)')
   6         READ (ITTY,200) NAME
   7 200     FORMAT (30A1)
   8         ASSIGN 12 TO LAB
   9         TERM=1H\
  10 11      DO 10 I=1,30
  11         J=31-I
  12         IF (NAME(J).EQ.TERM)GOTO LAB
  13         IF (TERM.EQ.1H )GOTO 12
  14 10      CONTINUE
  15         TERM=1H
  16         ASSIGN 10 TO LAB
  17         GOTO 11
  18 12      NN=J-1
  19         WRITE (4,2)
  20         READ (4,3) PLONUM
  21         CALL PLOTS(PLONUM,0)
  22         CALL XYPLOT(16,10.,-3)
  23         RAD=6
  24         SIZE=.1224*RAD
  25         SPIR=.995
  26         CONV=180./3.1415
  27         ANG=0
  28         BANG=1.5707
  29         DO 300 J=1,NN
  30 300     CALL SYMBOL ((J-1-NN)*SIZE,RAD,SIZE,NAME(J),ANG,1)
  31 380     DO 400 J=1,NN
  32         T=2*ATAN(SIZE/(2.*RAD))
  33         ANG=ANG-T*CONV
  34         X=RAD*COS(BANG)
  35         Y=RAD*SIN(BANG)
  36         BANG=BANG-T
  37         RAD=RAD*SPIR
  38         SIZE=.1225*RAD
  39 400     CALL SYMBOL(X,Y,SIZE,NAME(J),ANG,1)
  40         IF(SIZE-.07)500,500,380
  41 500     CALL PLEXIT
  42         STOP
  43 2       FORMAT (' PLOTTER NUMMER?',$)
  44 3       FORMAT (I1)
  45         END
  46 \1a