+C PLOTTING MATRIX TEST!
+C
+C
+ INTEGER DD(100)
+ INTEGER FF
+C
+ WRITE (1,100)
+ 100 FORMAT (5HHALLO)
+C
+ CALL PL$RST
+ CALL PL$IDN
+C
+
+
+C CALL BOX(0,0)
+ CALL PL$LN(0,0,0,100)
+ CALL PL$LN(50,0,50,100)
+
+ CALL PL$PU
+ CALL PL$MV(0,-120)
+ CALL PL$RST
+ CALL PL$SCL(0.5)
+ CALL PL$LN(0,0,0,100)
+ CALL PL$LN(50,0,50,100)
+ CALL PL$LN(100,0,100,100)
+ CALL PL$PU
+
+C CALL PL$SCL(0.5)
+C CALL BOX(0,0)
+
+C CALL PL$LN(0,-20,0,20)
+C CALL PL$LN(-20,0,20,0)
+C CALL PL$LN(20,20,-20,-20)
+C CALL PL$LN(-20,20,20,-20)
+C CALL PL$PU
+C CALL PL$MV(0,22)
+C CALL PL$TXT(12HLochstreifen,12)
+C CALL PL$LN(0,-20,0,20)
+C CALL PL$LN(-20,0,20,0)
+C CALL PL$LN(20,20,-20,-20)
+C CALL PL$LN(-20,20,20,-20)
+C CALL PL$PU
+C CALL PL$MV(0,22)
+C CALL PL$TXT(7HPhilipp,7)
+C CALL PL$MV(0,-100)
+C CALL PL$RST
+
+C ALL PL$PU
+ CALL PL$MV(0,0)
+C CALL PL$TXT(18HText auf der Linie,18)
+C CALL PL$LN(0,16,18*8,16)
+C CALL PL$LN(18*8,16,18*8,0)
+C CALL PL$TXT(8Habc ZZZ,5)
+C CALL PL$TXT(7HPHILIPP,7)
+
+C 2 CALL PL$MV (0,-70)
+ 9999 CALL REBOOT
+
+ 2000 END
+
+ FUNCTION RAD(RIN)
+ INTEGER RIN
+ REAL RINF,ROUT
+ REAL RAD,PI
+ PI=3.1416
+
+ RINF=RIN
+ ROUT = (RINF/180.0)*PI
+ RAD=ROUT
+ RETURN
+ END
+
+ SUBROUTINE BOX(X,Y)
+ INTEGER X,Y
+ CALL PL$LN(X ,Y ,X ,Y+100)
+ CALL PL$LN(X ,Y+100,X+100,Y+100)
+ CALL PL$LN(X+100 ,Y+100,X+100,Y )
+ CALL PL$LN(X ,Y ,X+100 ,Y )
+ CALL PL$PU
+ RETURN
+ END
+
+ SUBROUTINE OOPS
+
+ CALL PL$PU
+ CALL PL$MV(100,0)
+ CALL PL$PD
+
+ DO 2345 N=1,850
+ CALL PL$SCL(0.99)
+ CALL PL$ROT(RAD(10))
+ CALL PL$MV(100,0)
+ 2345 CONTINUE
+ CALL PL$PU
+ CALL PL$MV(0,0)
+ 22 RETURN
+ 23 END
+
+
+$0
+