INTEGER PLONUM DIMENSION NAME(30) ITTY=4 WRITE (ITTY,100) 100 FORMAT (1X,'TEXT (30 CHAR MAX, TERMINATOR IS \)') READ (ITTY,200) NAME 200 FORMAT (30A1) ASSIGN 12 TO LAB TERM=1H\ 11 DO 10 I=1,30 J=31-I IF (NAME(J).EQ.TERM)GOTO LAB IF (TERM.EQ.1H )GOTO 12 10 CONTINUE TERM=1H ASSIGN 10 TO LAB GOTO 11 12 NN=J-1 WRITE (4,2) READ (4,3) PLONUM CALL PLOTS(PLONUM,0) CALL XYPLOT(16,10.,-3) RAD=6 SIZE=.1224*RAD SPIR=.995 CONV=180./3.1415 ANG=0 BANG=1.5707 DO 300 J=1,NN 300 CALL SYMBOL ((J-1-NN)*SIZE,RAD,SIZE,NAME(J),ANG,1) 380 DO 400 J=1,NN T=2*ATAN(SIZE/(2.*RAD)) ANG=ANG-T*CONV X=RAD*COS(BANG) Y=RAD*SIN(BANG) BANG=BANG-T RAD=RAD*SPIR SIZE=.1225*RAD 400 CALL SYMBOL(X,Y,SIZE,NAME(J),ANG,1) IF(SIZE-.07)500,500,380 500 CALL PLEXIT STOP 2 FORMAT (' PLOTTER NUMMER?',$) 3 FORMAT (I1) END