1 C PLOTTING MATRIX TEST!
17 CALL PL$LN(50,0,50,100)
24 CALL PL$LN(50,0,50,100)
25 CALL PL$LN(100,0,100,100)
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)
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)
44 C CALL PL$TXT(7HPhilipp,7)
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)
56 C 2 CALL PL$MV (0,-70)
68 ROUT = (RINF/180.0)*PI
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 )