      SUBROUTINE SETBAK (BGRP)
      IMPLICIT NONE
C
C ***      SET RASTPORT BACKGROUND COLOR
C
      INTEGER BGRP
C
      EXTERNAL LEN
      INCLUDE AMIGA$KOM:GRAPH.INC
      INCLUDE AMIGA$KOM:EXEC.INC
      INCLUDE AMIGA$KOM:INTUIT.INC
      INCLUDE DIGLIB$KOM:WINDOW.INC
C
C DIGLIB WON'T LET US SET THE BACKGROUND IN THE AMIGA RASTPORT.  THEREFORE
C  WE MUST MAKE A DIRECT CALL TO AMIGA GRAPHICS ROUTINES HERE.  IF PORTED TO
C  ANOTHER MACHINE, THIS SEGMENT MUST BE DEFEATED.  I MIGHT FIX DIGLIB LATER.
C          J. LOCKER 11/29/88
C
C      WRITE (WTE, 967) BGRP
C967   FORMAT (' here I am', i3)
      CALL amiga (SetRast, long(Window+wd_RPort), BGRP)
      RETURN
      END
