      PROGRAM TMOUSE
C
C     TO TEST MOUSE DRIVER
C     OLYMPIC SOFTWARE  --  9/15/88
C
      EXTERNAL MOUSDR
      INTEGER*2 IAR(4)
C
  1   WRITE(*,10)
 10   FORMAT('  INPUT AX,BX,CX,DX : ',$)
      READ(*,*)IAR(1),IAR(2),IAR(3),IAR(4)
C
      DO 30 J=1,50
      CALL MOUSDR(IAR)
      WRITE(*,20)(IAR(I),I=1,4)
 20   FORMAT(4I6)
 30   CONTINUE
      GOTO 1
C
      STOP
      END



