Servus,
Hier ein kleines Listing zur Joystickprogramierung:
0 GOTO 60
1 PRINTAT(2,2);"LINKS":RETURN
2 PRINTAT(2,2);"RECHTS":RETURN
4 PRINTAT(2,2);"RUNTER":RETURN
5 PRINTAT(2,2);"LINKS RUNTER":RETURN
6 PRINTAT(2,2);"RECHTS RUNTER":RETURN
8 PRINTAT(2,2);"HOCH":RETURN
9 PRINTAT(2,2);"LINKS HOCH":RETURN
10 PRINTAT(2,2);"RECHTS HOCH":RETURN
16 PRINTAT(2,2);"FEUER 1":RETURN
17 PRINTAT(2,2);"FEUER 1 LINKS":RETURN
18 PRINTAT(2,2);"FEUER 1 RECHTS":RETURN
20 PRINTAT(2,2);"FEUER 1 RUNTER":RETURN
21 PRINTAT(2,2);"FEUER 1 LINKS RUNTER":RETURN
22 PRINTAT(2,2);"FEUER 1 RECHTS RUNTER":RETURN
24 PRINTAT(2,2);"FEUER 1 HOCH":RETURN
25 PRINTAT(2,2);"FEUER 1 LINKS HOCH":RETURN
26 PRINTAT(2,2);"FEUER 1 RECHTS HOCH":RETURN
60 ON JOYST(1) GOSUB 1,2,,4,5,6,,8,9,10,,,,,,16,17,18,,20,21,22,,24,25,26
65 GOTO60
Die
eigentliche Abfrage ist in Zeilen 60 und 65 zu finden, leider ohne
Abfrage der 2. Feuertaste. Der maximale Wert währe bei 58, Rechts hoch
und beide feuertasten gedrückt. Sollte ohne Änderungen auch am KC87
gehen. Zwegmäßigerweise kann man vor der PRINT-Anweisung noch ein CLS
einschieben. Allerdings geht es hier nur um eine Demonstration der
Joystickabfrage. Die Zeilen 1 bis 26 (58) sind dafür vorgesehen, hier
kann eine Programmverzweigung eingefügt werden.
--