| 1 | C PHILIPP'S FILE PLOTTER 2010!\r |
| 2 | \r |
| 3 | 0100 DIMENSION NAME(3)\r |
| 4 | \r |
| 5 | C 565 0.01 INCH, DATA IN CM\r |
| 6 | C CALL PLOTS(0.0254,0)\r |
| 7 | \r |
| 8 | C 563 0.1 MM, DATA IN CM\r |
| 9 | CALL PLOTS(0.01,0)\r |
| 10 | \r |
| 11 | 0150 XMAX=0\r |
| 12 | 0200 WRITE (4,300)\r |
| 13 | 0300 FORMAT (' FILE TO PLOT:')\r |
| 14 | 0400 READ (4,600) NAME\r |
| 15 | 0500 CALL USR(5,NAME,2,ERR)\r |
| 16 | 0501 IF (NAME(1) .EQ. ' ') GO TO 200 \r |
| 17 | 0600 FORMAT (3A6)\r |
| 18 | \r |
| 19 | \r |
| 20 | \r |
| 21 | 1200 CALL CHKEOF(EOF)\r |
| 22 | 1300 READ (5,1000) PEN,X,Y\r |
| 23 | 1000 FORMAT (A3,2F13.5)\r |
| 24 | 1500 IF (EOF.NE.0) GO TO 7000\r |
| 25 | \r |
| 26 | C ROTATE\r |
| 27 | C TMP=Y\r |
| 28 | C Y=-X\r |
| 29 | C X=-TMP\r |
| 30 | \r |
| 31 | TMP=Y\r |
| 32 | Y=-X\r |
| 33 | X=TMP\r |
| 34 | \r |
| 35 | 2000 IF (PEN.EQ.'PU,') P=3\r |
| 36 | 2100 IF (PEN.EQ.'PD,') P=2\r |
| 37 | IF (X.GE.XMAX) XMAX=X\r |
| 38 | CALL XYPLOT(X,Y,P)\r |
| 39 | \r |
| 40 | 1700 GO TO 1200\r |
| 41 | \r |
| 42 | 7000 CALL XYPLOT(XMAX+1,0,-3);\r |
| 43 | CALL PLEXIT\r |
| 44 | \r |
| 45 | 9999 GO TO 150\r |
| 46 | \r |