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