projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
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 |