home *** CD-ROM | disk | FTP | other *** search
/ Publication 4 / Publication_04_19xx_High-Tech_de_Side_A.d64 / joystick-abfrage (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  500b  |  21 lines
  1. 10 rem ********************************
  2. 11 rem *                              *
  3. 12 rem *     joystick - steuerung     *
  4. 13 rem *    ----------------------    *
  5. 14 rem *                              *
  6. 15 rem ********************************
  7. 16 rem
  8. 20 joy=2:rem joystick port#2
  9. 21 rem
  10. 22 j=int((log(255.5-(peek(56322-joy)or224)))/log(2)+2):rem abfrage
  11. 23 rem
  12. 24 on j goto26,27,28,29,30,31
  13. 25 rem
  14. 26 print"[147] ruhe":goto22
  15. 27 print"[147] oben":goto22
  16. 28 print"[147] unten":goto22
  17. 29 print"[147] links":goto22
  18. 30 print"[147] rechts":goto22
  19. 31 print"[147] feuer":goto22
  20. 32 goto22
  21.