Commit | Line | Data |
---|---|---|
a6bd8d93 PH |
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 |