| 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 | |
projects / h316.git / blame