C SOME LITTLE GRAPHIC ROUTINES
C
C
C
      SUBROUTINE BOX(X,Y,W,H)
      INTEGER X,Y,W,H

      CALL PL$LN(X,Y,X,Y+H)
      CALL PL$LN(X,Y+H,X+W,Y+H)
      CALL PL$LN(X+W,Y+H,X+W,Y)
      CALL PL$LN(X,Y,X+W,Y)
      CALL PL$PU
      RETURN
      END

      SUBROUTINE SQUARE(X,Y,L)
      INTEGER X,Y,L
      CALL PL$LN(X,Y,X,Y+L)
      CALL PL$LN(X,Y+L,X+L,Y+L)
      CALL PL$LN(X+L,Y+L,X+L,Y)
      CALL PL$LN(X,Y,X+L,Y)
      CALL PL$PU
      RETURN
      END


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
$0