C PLOTTING MATRIX TEST!
C
C
C      INTEGER DD(100)
      INTEGER FF
C
C      WRITE (1,100)
C 100  FORMAT (5HHALLO)
C
C      CALL PL$RST
C
 
CCCCCC INITIALISE STACK
      EXTERNAL MUH

      A=0.01
      
      CALL S$INIT
      CALL MUH
      CALL PL$RST
      CALL PL$PUS

      CALL PL$RMR(25,25)
      CALL PL$SCL(0.5)
      CALL PL$ROT(RAD(45))
      CALL BOX(0,0)
      
      CALL PL$POP
      CALL BOX(0,0)
C      CALL PL$LN(0,0,0,100)
C      CALL PL$LN(50,0,50,100)
      
 
      
C      CALL PL$MV(-50,-100)

C      CALL PL$RST
C      CALL PL$SCL(0.5)
C      CALL PL$LN(0,0,0,100)
C      CALL PL$LN(50,0,50,100)
C      CALL PL$LN(100,0,100,100)
C      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
C      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
 
      SUBROUTINE MUH
      WRITE (1,334)
 334  FORMAT(4HMUH!)
      RETURN
      END


      FUNCTION RAD(RIN)
      INTEGER RIN
      REAL RINF,ROUT
      REAL RAD,PI
      PI=3.14159265

      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