8eb88117 |
1 | C PLOTTING MATRIX TEST! |
2 | C |
3 | C |
4 | INTEGER DD(100) |
5 | INTEGER FF |
6 | C |
7 | WRITE (1,100) |
8 | 100 FORMAT (5HHALLO) |
9 | C |
10 | CALL PL$RST |
11 | CALL PL$IDN |
12 | C |
13 | |
14 | |
15 | C CALL BOX(0,0) |
16 | CALL PL$LN(0,0,0,100) |
17 | CALL PL$LN(50,0,50,100) |
18 | |
19 | CALL PL$PU |
20 | CALL PL$MV(0,-120) |
21 | CALL PL$RST |
22 | CALL PL$SCL(0.5) |
23 | CALL PL$LN(0,0,0,100) |
24 | CALL PL$LN(50,0,50,100) |
25 | CALL PL$LN(100,0,100,100) |
26 | CALL PL$PU |
27 | |
28 | C CALL PL$SCL(0.5) |
29 | C CALL BOX(0,0) |
30 | |
31 | C CALL PL$LN(0,-20,0,20) |
32 | C CALL PL$LN(-20,0,20,0) |
33 | C CALL PL$LN(20,20,-20,-20) |
34 | C CALL PL$LN(-20,20,20,-20) |
35 | C CALL PL$PU |
36 | C CALL PL$MV(0,22) |
37 | C CALL PL$TXT(12HLochstreifen,12) |
38 | C CALL PL$LN(0,-20,0,20) |
39 | C CALL PL$LN(-20,0,20,0) |
40 | C CALL PL$LN(20,20,-20,-20) |
41 | C CALL PL$LN(-20,20,20,-20) |
42 | C CALL PL$PU |
43 | C CALL PL$MV(0,22) |
44 | C CALL PL$TXT(7HPhilipp,7) |
45 | C CALL PL$MV(0,-100) |
46 | C CALL PL$RST |
47 | |
48 | C ALL PL$PU |
49 | CALL PL$MV(0,0) |
50 | C CALL PL$TXT(18HText auf der Linie,18) |
51 | C CALL PL$LN(0,16,18*8,16) |
52 | C CALL PL$LN(18*8,16,18*8,0) |
53 | C CALL PL$TXT(8Habc ZZZ,5) |
54 | C CALL PL$TXT(7HPHILIPP,7) |
55 | |
56 | C 2 CALL PL$MV (0,-70) |
57 | 9999 CALL REBOOT |
58 | |
59 | 2000 END |
60 | |
61 | FUNCTION RAD(RIN) |
62 | INTEGER RIN |
63 | REAL RINF,ROUT |
64 | REAL RAD,PI |
65 | PI=3.1416 |
66 | |
67 | RINF=RIN |
68 | ROUT = (RINF/180.0)*PI |
69 | RAD=ROUT |
70 | RETURN |
71 | END |
72 | |
73 | SUBROUTINE BOX(X,Y) |
74 | INTEGER X,Y |
75 | CALL PL$LN(X ,Y ,X ,Y+100) |
76 | CALL PL$LN(X ,Y+100,X+100,Y+100) |
77 | CALL PL$LN(X+100 ,Y+100,X+100,Y ) |
78 | CALL PL$LN(X ,Y ,X+100 ,Y ) |
79 | CALL PL$PU |
80 | RETURN |
81 | END |
82 | |
83 | SUBROUTINE OOPS |
84 | |
85 | CALL PL$PU |
86 | CALL PL$MV(100,0) |
87 | CALL PL$PD |
88 | |
89 | DO 2345 N=1,850 |
90 | CALL PL$SCL(0.99) |
91 | CALL PL$ROT(RAD(10)) |
92 | CALL PL$MV(100,0) |
93 | 2345 CONTINUE |
94 | CALL PL$PU |
95 | CALL PL$MV(0,0) |
96 | 22 RETURN |
97 | 23 END |
98 | |
99 | |
100 | $0 |
101 | |