home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGO.ARC / JOYSTICK.POG < prev    next >
Encoding:
Text File  |  1985-11-20  |  814 b   |  34 lines
  1.  
  2.  
  3. usejoystick()
  4. int i,joy,lastjoy
  5.  
  6. loop
  7.     {
  8.     joy = Joystick()
  9.     if (joy & 0x8  && !(lastjoy & 0x8) )
  10.         prints("Lefter:  right")
  11.     if (joy & 0x4  && !(lastjoy & 0x4) )
  12.         prints("Lefter:  left")
  13.     if (joy & 0x2  && !(lastjoy & 0x2) )
  14.         prints("Lefter:  back")
  15.     if (joy & 0x1  && !(lastjoy & 0x1) )
  16.         prints("Lefter:  forward")
  17.     if (joy & 0x80  && !(lastjoy & 0x80) )
  18.         prints("Lefter:  fire")
  19.     if (joy & 0x800  && !(lastjoy & 0x800) )
  20.         prints("Rightly:  right")
  21.     if (joy & 0x400  && !(lastjoy & 0x400) )
  22.         prints("Rightly:  left")
  23.     if (joy & 0x200  && !(lastjoy & 0x200) )
  24.         prints("Rightly:  back")
  25.     if (joy & 0x100  && !(lastjoy & 0x100) )
  26.         prints("Rightly:  forward")
  27.     if (joy & 0x8000  && !(lastjoy & 0x8000) )
  28.         prints("Rightly:  fire")
  29.     lastjoy = joy;
  30.     if (inkey())
  31.         break;
  32.     }
  33.  
  34.