1 C PLOTTING MATRIX TEST!
13 CCCCCC INITIALISE STACK
30 C CALL PL$LN(0,0,0,100)
31 C CALL PL$LN(50,0,50,100)
35 C CALL PL$MV(-50,-100)
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)
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)
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)
60 C CALL PL$TXT(7HPhilipp,7)
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)
72 C 2 CALL PL$MV (0,-70)
91 ROUT = (RINF/180.0)*PI
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 )