home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / reaktion / reaktion.bas < prev    next >
Encoding:
BASIC Source File  |  1997-10-09  |  2.5 KB  |  76 lines
  1. HIDEM
  2. PRINT AT(12,1);" Reaktionstest PD Version 1.0 (Public Domain) frei kopierbar"
  3. PRINT " ";
  4. PRINT CHR$(27)+"p";
  5. PRINT " ------ (c) 1990 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ----- "
  6. PRINT CHR$(27)+"q";
  7. PRINT
  8. PRINT "   Dieses Programm ist frei kopierbar, jeder der das Programm öfters benützt,"
  9. PRINT "        sollte mir fairerweise ein kleines Anerkennungshonorar zusenden."
  10. PRINT
  11. PRINT "   Sinn und Zweck dieses Programmes ist es Ihre Reaktionsfähigkeit zu testen,"
  12. PRINT "                                und zu verbessern."
  13. PRINT
  14. PRINT "       Ihre Aufgabe ist es, so schnell wie möglich zu Reagieren, und den"
  15. PRINT "entsprechenden Buchstaben zu drücken, der auf dem Bildschirm zufällig erscheint."
  16. PRINT "       Verlassen können Sie dieses Programm durch drücken einer Maustaste."
  17. PRINT
  18. PRINT " ";
  19. PRINT CHR$(27)+"p";
  20. PRINT "  ------> Bitte eine Taste drücken ";
  21. PRINT CHR$(27)+"q";
  22. REPEAT
  23. UNTIL MOUSEK OR INKEY$>CHR$(0)
  24. CLS
  25. REPEAT
  26.   zahl=TIMER
  27.   x=65+RANDOM(25)
  28.   a=1+RANDOM(79)
  29.   b=1+RANDOM(24)
  30.   PRINT AT(a,b);CHR$(x)
  31.   REPEAT
  32.     a$=INKEY$
  33.     IF a$=CHR$(x)
  34.       GOSUB zeit
  35.       IF a$=CHR$(x)
  36.         GOTO aa
  37.       ENDIF
  38.     ENDIF
  39.   UNTIL MOUSEK
  40.   aa:
  41. UNTIL MOUSEK
  42. CLS
  43. HIDEM
  44. PRINT AT(12,1);" Reaktionstest PD Version 1.0 (Public Domain) frei kopierbar"
  45. PRINT " ";
  46. PRINT CHR$(27)+"p";
  47. PRINT " ------ (c) 1990 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ----- "
  48. PRINT CHR$(27)+"q";
  49. PRINT
  50. PRINT "   Dieses Programm ist frei kopierbar, jeder der das Programm öfters benützt,"
  51. PRINT "        sollte mir fairerweise ein kleines Anerkennungshonorar zusenden."
  52. PRINT
  53. PRINT "   Sinn und Zweck dieses Programmes ist es Ihre Reaktionsfähigkeit zu testen,"
  54. PRINT "                                und zu verbessern."
  55. PRINT
  56. PRINT "       Ihre Aufgabe ist es, so schnell wie möglich zu Reagieren, und den"
  57. PRINT "entsprechenden Buchstaben zu drücken, der auf dem Bildschirm zufällig erscheint."
  58. PRINT "       Verlassen können Sie dieses Programm durch drücken einer Maustaste."
  59. PRINT
  60. PRINT " ";
  61. PRINT CHR$(27)+"p";
  62. PRINT "  ------> Bitte eine Taste drücken ";
  63. PRINT CHR$(27)+"q";
  64. REPEAT
  65. UNTIL MOUSEK OR INKEY$>CHR$(0)
  66. PROCEDURE zeit
  67.   CLS
  68.   PRINT AT(28,5);"Edlich bin ich fertig"
  69.   PRINT AT(29,6);"wurde ja auch Zeit."
  70.   PRINT AT(21,8);"Es wurden ";(TIMER-zahl)/200;" Sekunden benötigt.";CHR$(7)
  71.   PRINT AT(20,10);CHR$(27)+"p";" ----- Bitte eine Taste drücken -----";CHR$(27)+"q";
  72.   REPEAT
  73.   UNTIL MOUSEK OR INKEY$=>CHR$(FALSE)
  74.   CLS
  75. RETURN
  76.