home *** CD-ROM | disk | FTP | other *** search
/ Commodore Computer Club 13 / Commodore_Computer_Club_13_19xx_-_es.d64 / test teclado (.txt) < prev   
Encoding:
Commodore BASIC  |  1990-01-01  |  1.4 KB  |  58 lines
  1. 10 clr
  2. 50 dim ct(30),x(30)
  3. 100 poke53280,0:poke53281,0
  4. 120 print"[147]
  5. 140 [153]"     test de velocidad con el teclado
  6. 160 print"[158]  este programa sirve para medir tu co-
  7. 180 [153]"   nocimiento del teclado y velocidad
  8. 200 print"              de reaccion.
  9. 220 [153]"list           pulsa una tecla
  10. 230 geta$:ifa$=""then230
  11. 240 print"[147][158]  a la izquierda de la pantalla apare-
  12. 260 [153]"  ceran las letras del alfabeto, pero
  13. 280 print"         el orden es aleatorio.
  14. 300 [153]"  cuando aparezca una letra nueva a la
  15. 320 print"  izquierda, debes pulsar la tecla co-
  16. 340 [153]"   rrespondiente lo antes posible.
  17. 350 print"[155]           pulsa una tecla
  18. 380 [161]a$:[139]a$[178]""[167]380
  19. 400 [153]"load          selecciona el nivel
  20. 410 input"[158]     0,rapido  a  255,lento  ";vv
  21. 430 print"              preparado
  22. 440 [129]t[178]0[164]1500:[130]
  23. 450 [153]"list           pulsa una tecla
  24. 480 geta$:ifa$=""then480
  25. 500 rem * * * * * * * * * * * * * * * *
  26. 550 print"[147]"
  27. 600 fort=1to26
  28. 650 s=int(26*rnd(0)+1)
  29. 670 ifx(s)=1then650
  30. 700 x(s)=1
  31. 750 poke198,0
  32. 780 print""
  33. 800 printchr$(64+s);
  34. 830 poke646,int(rnd(0)*15+1)
  35. 850 getg$:ifg$=""theng$="0"
  36. 860 forr=0tovv:next
  37. 870 ct(s)=ct(s)+1
  38. 900 ifasc(g$)-64=sthen990
  39. 920 printchr$(64+s);
  40. 950 ifct(s)<35 then 850
  41. 990 next
  42. 1000 print"[147]
  43. 1040 [153]"               resultados
  44. 1060 print""
  45. 1100 fort=1to26
  46. 1120 print "[154]      ";chr$(t+64),"=";ct(t),
  47. 1140 m=m+ct(t)
  48. 1150 next
  49. 1200 print"               [153]media=";m/26
  50. 1210 fort=0to2500:next
  51. 1220 poke198,0
  52. 1250 print"[155]           pulsa una tecla
  53. 1270 [161]g$:[139]g$[178]""[167]1270
  54. 1300 [153]"load
  55. 1340 print"             otra vez (s/n)"
  56. 1400 getg$:ifg$=""then1400
  57. 1450 ifg$="s"then10
  58.