home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 09 / einsteig / joytest.bas < prev    next >
Encoding:
BASIC Source File  |  1990-08-03  |  3.7 KB  |  153 lines
  1. '* ------------------------------------------------------- *
  2. '*                      JOYTEST.BAS                        *
  3. '*       Gibt die aktuellen Daten beider Joysticks aus     *
  4. '*              und stellt sie grafisch dar.               *
  5. '*              (c) 1990 Kay Glahn & TOOLBOX               *
  6. '* ------------------------------------------------------- *
  7. CLS
  8. x = 11: y = 11: a = 11: b = 11
  9. '* ------------------------------------------------------- *
  10. '*                Bildschirmmaske aufbauen                 *
  11. LOCATE 1, 1
  12. FOR i = 1 TO 2
  13.   PRINT CHR$(201);
  14.   PRINT STRING$(38, 205);
  15.   PRINT CHR$(187);
  16. NEXT
  17. FOR i = 1 TO 2
  18.   PRINT CHR$(186);
  19.   PRINT STRING$(38, " ");
  20.   PRINT CHR$(186);
  21. NEXT
  22. FOR i = 1 TO 2
  23. PRINT CHR$(204);
  24. PRINT STRING$(38, 205);
  25. PRINT CHR$(185);
  26. NEXT
  27. FOR i = 1 TO 5
  28.   FOR j = 1 TO 2
  29.     PRINT CHR$(186);
  30.     PRINT STRING$(38, " ");
  31.     PRINT CHR$(186);
  32.   NEXT
  33. NEXT
  34. FOR i = 1 TO 2
  35.   PRINT CHR$(199);
  36.   PRINT STRING$(38, 196);
  37.   PRINT CHR$(182);
  38. NEXT
  39. FOR i = 1 TO 14
  40.   FOR j = 1 TO 2
  41.     PRINT CHR$(186);
  42.     PRINT STRING$(38, " ");
  43.     PRINT CHR$(186);
  44.   NEXT
  45. NEXT
  46. FOR i = 1 TO 2
  47.   PRINT CHR$(200);
  48.   PRINT STRING$(38, 205);
  49.   PRINT CHR$(188);
  50. NEXT
  51. z = 0
  52. FOR i = 1 TO 2
  53.   LOCATE 10, 10 + z
  54.   PRINT CHR$(218); STRING$(20, 196); CHR$(191);
  55.   FOR j = 1 TO 8
  56.     LOCATE 10 + j, 10 + z
  57.     PRINT CHR$(179); STRING$(20, " "); CHR$(179);
  58.   NEXT
  59.   LOCATE 19, 10 + z
  60.   PRINT CHR$(192); STRING$(20, 196); CHR$(217);
  61.   z = z + 40
  62. NEXT
  63. z = 0
  64. FOR i = 1 TO 2
  65.   FOR j = 1 TO 2
  66.     LOCATE 21, 10 + z
  67.     PRINT CHR$(218); STRING$(6, 196); CHR$(191);
  68.     LOCATE 22, 10 + z
  69.     PRINT CHR$(179); STRING$(6, " "); CHR$(179);
  70.     LOCATE 23, 10 + z
  71.     PRINT CHR$(192); STRING$(6, 196); CHR$(217);
  72.     z = z + 14
  73.   NEXT
  74.   z = z + 12
  75. NEXT
  76. LOCATE 2, 16: PRINT "Joystick 1"
  77. LOCATE 2, 56: PRINT "Joystick 2"
  78. LOCATE 5, 3: PRINT "Knopf 1 :"
  79. LOCATE 5, 43: PRINT "Knopf 1 :"
  80. LOCATE 7, 3: PRINT "Knopf 2 :"
  81. LOCATE 7, 43: PRINT "Knopf 2 :"
  82. LOCATE 5, 25: PRINT "X-Achse :"
  83. LOCATE 5, 65: PRINT "X-Achse :"
  84. LOCATE 7, 25: PRINT "Y-Achse :"
  85. LOCATE 7, 65: PRINT "Y-Achse :"
  86. COLOR 0, 7
  87. LOCATE 25, 1
  88. PRINT STRING$(21, " ");
  89. PRINT "Programm mit beliebiger Taste beenden !";
  90. PRINT STRING$(20, " ");
  91. COLOR 7, 0
  92. '* ------------------------------------------------------- *
  93. '*                Beginn der Joystickabfrage               *
  94. WHILE INKEY$ = ""
  95.   LOCATE 5, 13: PRINT STRIG(1)
  96.   LOCATE 7, 13: PRINT STRIG(5)
  97.   LOCATE 5, 53: PRINT STRIG(3)
  98.   LOCATE 7, 53: PRINT STRIG(7)
  99.   LOCATE 5, 35: PRINT STICK(0)
  100.   LOCATE 7, 35: PRINT STICK(1)
  101.   LOCATE 5, 75: PRINT STICK(2)
  102.   LOCATE 7, 75: PRINT STICK(3)
  103.   LOCATE 22, 11
  104.   IF STRIG(1) = -1 THEN
  105.     PRINT STRING$(6, 219);
  106.   ELSE
  107.     PRINT STRING$(6, " ");
  108.   END IF
  109.   LOCATE 22, 25
  110.   IF STRIG(5) = -1 THEN
  111.     PRINT STRING$(6, 219);
  112.   ELSE
  113.     PRINT STRING$(6, " ");
  114.   END IF
  115.   LOCATE 22, 51
  116.   IF STRIG(3) = -1 THEN
  117.     PRINT STRING$(6, 219);
  118.   ELSE
  119.     PRINT STRING$(6, " ");
  120.   END IF
  121.   LOCATE 22, 65
  122.   IF STRIG(7) = -1 THEN
  123.     PRINT STRING$(6, 219);
  124.   ELSE
  125.     PRINT STRING$(6, " ");
  126.   END IF
  127.   LOCATE 22, 11
  128.   IF STRIG(1) = -1 THEN
  129.     PRINT STRING$(6, 219);
  130.   ELSE
  131.     PRINT STRING$(6, " ");
  132.   END IF
  133.   LOCATE y, x
  134.   PRINT CHR$(32)
  135.   y = 11 + INT(STICK(1) / 20)
  136.   x = 11 + INT(STICK(0) / 10)
  137.   IF y > 21 THEN x = 21
  138.   IF x > 31 THEN y = 31
  139.   LOCATE y, x
  140.   PRINT STRING$(1, 111);
  141.   LOCATE b, a
  142.   PRINT CHR$(32)
  143.   b = 11 + INT(STICK(3) / 20)
  144.   a = 51 + INT(STICK(2) / 10)
  145.   IF b > 21 THEN a = 21
  146.   IF a > 71 THEN b = 71
  147.   LOCATE b, a
  148.   PRINT CHR$(111);
  149. WEND
  150. CLS : END
  151. '* ------------------------------------------------------- *
  152. '*                   Ende von JOYTEST.BAS                  *
  153.