home *** CD-ROM | disk | FTP | other *** search
/ c't freeware shareware 1997 / CT_SW_97.ISO / pc / software / betriebs / win95 / pc64w214.exe / JOYSTICK.C64 / joysticks (.txt)
Commodore BASIC  |  1995-09-30  |  382b  |  21 lines
  1. 9 PRINT
  2. 10 PRINT "USE WHITE ARROWS AND RIGHT CTRL"
  3. 11 PRINT
  4. 15 PRINT "PRESS <ALT+F10> TO SWAP"
  5. 20 PRINT
  6. 100 POKE 56333,127
  7. 110 POKE 56322,0
  8. 120 X=PEEK(56321):GOSUB 190
  9. 130 PRINT "    ";
  10. 140 X=PEEK(56320):GOSUB 190
  11. 150 PRINT CHR$(145)
  12. 160 POKE 56322,255
  13. 170 POKE 56333,129
  14. 180 GOTO 100
  15. 190 PRINT CHR$(45-((X AND 1)=0)*40);
  16. 191 PRINT CHR$(45-((X AND 2)=0)*23);
  17. 192 PRINT CHR$(45-((X AND 4)=0)*31);
  18. 193 PRINT CHR$(45-((X AND 8)=0)*37);
  19. 194 PRINT CHR$(45-((X AND 16)=0)*25);
  20. 195 RETURN
  21.