GFA BASIC 3.0 Bedienungsanleitung Seite 233

Beispiele:
STICK 1 IJoystick-Koordinaten abfragen,
' wenn Joystick an Port 1 angeschlossen
REPEAT
richtung%=STICK(1)
feuer!=STRIG(1)
SELECT richtung%
CASE 4
PRINT "Links"
CASE 8
PRINT "rechts"
CASE 2
PRINT "unten"
CASE 1
PRINT "oben"
ENDSELECT
UNTIL feuer!
WHILE STRIG(1)
WEND ! Wartet auf das Loslassen des Feuerknopfes
PRINT "Bitte Feuerknopf drücken"
WHILE STRIG(0)
WEND
REPEAT
UNTIL STRIG(0)
WHILE STRIG(0)
WEND
--> Ergänzung zum obigen Beispiel.
6 - 65