REM ******************************
REM *    Joysticktest V1.00      *
REM *   © 1993 by Henry König    *
REM * Bornheide 71, 2 Hamburg 53 *
REM ******************************
GOSUB anleitung
GOSUB abfrage
abfrage:                        ' Joystick abfragen
  abfrage1:
  a=STICK(2)                    ' Rechtswert merken
  b=STICK(3)                    ' Hochwert merken
  IF STRIG(3)=-1 THEN           ' Feuerknopf gedrueckt
    BEEP                        ' ja, dann Blitz
    GOTO abfrage1               ' und zur Abfrage
  END IF
  IF a=-1 THEN                  ' Bewegung nach links
    checkfarbe
    GOSUB links
  END IF
  IF a=1 THEN                   ' Bewegung nach rechts
    checkfarbe
    GOSUB rechts
  END IF
  IF b=1 THEN                   ' Bewegung nach unten
    checkfarbe
  GOSUB unten
  END IF
  IF b=-1 THEN                  ' Bewegung nach oben
    checkfarbe
    GOSUB oben
  END IF
  GOTO abfrage1                 ' und weiter abfragen
RETURN
  anleitung:
  CLS
  PRINT" Joysticktest V1.00"
  PRINT
  PRINT " © 1993 by Henry König"
  PRINT
  PRINT " Dieses Programm prüft die Funktion der Joystickports."
  PRINT
  PRINT " Beim Druecken des Feuerknopfes ertoent der BEEP-Ton."
  PRINT
  PRINT
  PRINT " Weiter mit beliebiger Taste."
  WHILE INKEY$=""
  WEND
  CLS
  LINE (200,20)-(180,40)
  LINE (180,40)-(220,40)
  LINE (220,40)-(200,20)
  LINE (180,40)-(180,60)
  LINE (180,40)-(140,50)
  LINE (140,50)-(180,60)
  LINE (180,60)-(220,60)
  LINE (180,60)-(200,80)
  LINE (220,60)-(200,80)
  LINE (220,60)-(220,40)
  LINE (220,60)-(260,50)
  LINE (220,40)-(260,50)
RETURN
links:                          ' Joystick nach links bewegt
  LOCATE 7,22
  PRINT "L"
  LINE (180,40)-(180,60),farbe
  LINE (180,40)-(140,50),farbe
  LINE (140,50)-(180,60),farbe
RETURN
oben:                           ' Joystick nach oben
  LOCATE 5,26
  PRINT "O"
  LINE (200,20)-(180,40),farbe
  LINE (180,40)-(220,40),farbe
  LINE (220,40)-(200,20),farbe
RETURN
rechts:                         ' Joystick nach rechts
  LOCATE 7,29
  PRINT "R"
  LINE (220,60)-(220,40),farbe
  LINE (220,60)-(260,50),farbe
  LINE (260,50)-(220,40),farbe
RETURN
unten:                          ' Joystick nach unten
  LOCATE 9,26
  PRINT "U"
  LINE (180,60)-(220,60),farbe
  LINE (180,60)-(200,80),farbe
  LINE (200,80)-(220,60),farbe
RETURN
checkfarbe:
  farbe=farbe+1                 ' Farbe weiterschalten
  IF farbe=4 THEN               ' 4. Farbwert
    farbe=1                     ' ja, dann 1. Farbe
  END IF
RETURN