home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Various / 2ndMousePort.e next >
Encoding:
Text File  |  1994-10-02  |  732 b   |  29 lines
  1. -> inverse les ports souris
  2.  
  3. OPT OSVERSION=37
  4.  
  5. MODULE 'devices/input', 'exec/io'
  6.  
  7. PROC main()
  8.   DEF request=NIL:PTR TO iostd,port=NIL
  9.   IF port:=CreateMsgPort()
  10.     IF request:=CreateIORequest(port,SIZEOF iostd)
  11.       IF OpenDevice('input.device',0,request,0)=0
  12.         request.command:=IND_SETMPORT
  13.         request.data:=[1]:CHAR          -> 0 pour le port original , 1 pour le port joystick
  14.         request.length:=1
  15.         DoIO(request)
  16.         CloseDevice(request)
  17.       ELSE
  18.         PutStr('Ne peut pas ouvrir l'Input device\n')
  19.       ENDIF
  20.       DeleteIORequest(request)
  21.     ELSE
  22.       PutStr('Ne peutpas créer iorequest\n')
  23.     ENDIF
  24.     DeleteMsgPort(port)
  25.   ELSE
  26.     PutStr('Ne peut pas ouvrir le port\n')
  27.   ENDIF
  28. ENDPROC
  29.