C PAGE      SOURCE    CHAT      05/01/13    02:08:43     5004
      SUBROUTINE PAGE
      IMPLICIT INTEGER(I-N)

-INC PPARAM
-INC CCOPTIO
      WRITE (IOIMP,1)
   1  FORMAT (10(130(1H*)/)////)
      CALL GIBI
      WRITE(IOIMP,2)
   2  FORMAT(////)
      WRITE(IOIMP,1)
      RETURN
      END