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