home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 November / 64er_Magazin_90-11_1990_Markt__Technik_de_Side_B.d64 / joystick test (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  347 b   |  14 lines
  1. 10 print"[147]"
  2. 15 input"port 1 oder 2";a
  3. 20 def fn joy(x)=int((log(255.5-(peek(56322-x)or224)))/log(2)+2)
  4. 30 print"[147]"
  5. 40 print""
  6. 50 q=fn joy(a)
  7. 60 ifq=1then print"nullstellung          "
  8. 70 ifq=2then print"oben                  "
  9. 80 ifq=3then print"unten                 "
  10. 90 ifq=4then print"links                 "
  11. 100 ifq=5then print"rechts                "
  12. 110 ifq=6then print"feuer"
  13. 120 goto 40
  14.