home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 24 / Tiger_Disk_024_19xx_Tiger-Crew-Disk_de_Side_A.d64 / joystick-abfrage (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  417b  |  15 lines
  1. 10 poke53280,12:poke53281,12:print"[147] joystickabfrage "
  2. 20 print"mit welchem port moechtest du arbeiten  (1/2)?"
  3. 30 getx$:ifx$<>"1"andx$<>"2"then30
  4. 40 x=val(x$)
  5. 50 print"start mit feuer in port";x;"!":wait(56322-x),16,16
  6. 60 j=int((log(255.5-(peek(56322-x)or224)))/log(2)+2)
  7. 70 onjgoto80,90,100,110,120,130
  8. 80 print"[145]mitte ":a=1:goto60
  9. 90 print"[145]oben  ":goto60
  10. 100 print"[145]unten ":goto60
  11. 110 print"[145]links ":goto60
  12. 120 print"[145]rechts":goto60
  13. 130 ifa=1thenprint"feuer":list40-130
  14. 140 goto60
  15.