home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / MOUSE / MSMOUSE1.ZIP / EGA.ZIP / FORTRAN.ZIP / MTEST.FOR next >
Encoding:
Text File  |  1989-02-10  |  1.7 KB  |  54 lines
  1. ******************************************************************
  2. *  MTEST.FOR                                                     *
  3. *                                                                *
  4. *  Demonstrates use of the Microsoft Mouse from FORTRAN 4.1      *
  5. *                                                                *
  6. *  Compile using large model (default)                           *
  7. *  Link with MTESTASM.OBJ and MOUSE.LIB                          *
  8. *  Example:   fl /FPc mtest.for mtestasm.obj -link mouse         *
  9. ******************************************************************
  10.  
  11.         PROGRAM MTEST
  12.  
  13.         INTEGER*2 M1, M2, M3, M4
  14.         INTEGER*2 MCURSOR(32)
  15.         INTEGER*2 ARRLOC(2)
  16.         INTEGER*4 ARRADDS
  17.  
  18.         EQUIVALENCE (ARRLOC(1),ARRADDS)
  19.  
  20.         CALL SUB1
  21.         M1 = 0
  22.         CALL MOUSEL (M1, M2, M3, M4)
  23.  
  24.         DO 50 I = 1, 32
  25. 50      MCURSOR(I) = INT2(#FFFF)
  26.  
  27.         MCURSOR(17) = INT2(#0780)
  28.         MCURSOR(18) = INT2(#B8B8)
  29.         MCURSOR(19) = INT2(#3060)
  30.         MCURSOR(20) = INT2(#6038)
  31.         MCURSOR(21) = INT2(#F07E)
  32.         MCURSOR(22) = INT2(#8841)
  33.         MCURSOR(23) = INT2(#F031)
  34.         MCURSOR(24) = INT2(#7020)
  35.         MCURSOR(25) = INT2(#401C)
  36.         MCURSOR(26) = INT2(#6006)
  37.         MCURSOR(27) = INT2(#3C06)
  38.         MCURSOR(28) = INT2(#03FE)
  39.         MCURSOR(29) = INT2(#0001)
  40.         MCURSOR(30) = INT2(#F001)
  41.         MCURSOR(31) = INT2(#0301)
  42.         MCURSOR(32) = INT2(#007C)
  43.         M1 = 9
  44.         M2 = 1
  45.         M3 = 1
  46.         ARRADDS = LOCFAR(MCURSOR)
  47.         CALL MOUSEL (M1, M2, M3, ARRLOC(1))
  48.  
  49.         M1 = 1
  50.         CALL MOUSEL (M1, M2, M3, M4)
  51.  
  52.         STOP
  53.         END
  54.