home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine Extra: Special 3 / run-special-3.zip / TYPETEST.BAS < prev    next >
BASIC Source File  |  1989-11-24  |  2KB  |  42 lines
  1. 100 REM TYPEVAARDIGHEIDSPROEF MONOCHROOM
  2. 110 CLS:KEY OFF:RANDOMIZE VAL(RIGHT$(TIME$,2))
  3. 120 A1$=CHR$(218)+STRING$(78,196)+CHR$(191)
  4. 130 A2$=CHR$(179)+STRING$(78,32)+CHR$(179)
  5. 140 A3$=CHR$(192)+STRING$(78,196)+CHR$(217)
  6. 150 LOCATE 1,30:COLOR 15,0:PRINT "Typevaardigheidstest"
  7. 160 LOCATE 2,30:PRINT STRING$(20,22):COLOR 7,0
  8. 170 LOCATE 4,1:PRINT A1$
  9. 180 LOCATE 5,1:PRINT A2$
  10. 190 LOCATE 6,1:PRINT A3$
  11. 200 U=97:FOR I=1 TO 3:FOR A=1 TO 78
  12. 210 K=INT(RND*123):IF K<U-1 THEN 210
  13. 220 IF K=96 THEN K=32
  14. 230 V$=V$+CHR$(K):LOCATE 5,2:PRINT V$:NEXT A
  15. 240 LOCATE 8,1:PRINT "Begin met typen na de toon..."
  16. 250 TIM1=TIMER:LOCATE 9,1:PRINT A1$
  17. 260 FOR A=10 TO 12:LOCATE A,1:PRINT A2$
  18. 270 LOCATE 13,1:PRINT A3$:NEXT A
  19. 280 FOR A=1 TO 3000:NEXT A:SOUND 1750,10
  20. 290 LOCATE 14,1:PRINT "Proef: ";I:LOCATE 10,2:PRINT V$
  21. 300 FOR A=1 TO 78:LOCATE 11,A
  22. 310 IF A>1 THEN PRINT CHR$(32):LOCATE 11,A+1:PRINT CHR$(18)
  23. 320 LOCATE 11,A+1:PRINT CHR$(18)
  24. 330 LOCATE 12,A+1:COLOR 21,0:PRINT CHR$(22):COLOR 7,0
  25. 340 I$=INKEY$:IF I$="" THEN 340
  26. 350 WHILE I$<>MID$(V$,A,1):FT=FT+1:SOUND 1000,1
  27. 360 IF FT>30 THEN 410
  28. 370 LOCATE 10,A+1:COLOR 20,0:PRINT MID$(V$,A,1);:COLOR 7,0
  29. 380 GOTO 340:WEND
  30. 390 LOCATE 12,A+1:PRINT I$;
  31. 400 NEXT A:LOCATE 5,2:PRINT STRING$(78,32):V$="":U=U-32
  32. 410 NEXT I:TIM2=INT(TIMER-TIM1):Y=INT(FT/3):Y=10-Y
  33. 420 LOCATE 15,1:PRINT "De uitslag: ";:LOCATE 16,1:PRINT A1$;
  34. 430 FOR A=17 TO 19:PRINT A2$;:NEXT A
  35. 440 LOCATE 20,1:PRINT A3$;
  36. 450 LOCATE 17,2:PRINT"U maakte"FT"foutieve aanslagen.";
  37. 460 LOCATE 18,2:PRINT"U deed"TIM2"seconden over de proeven.";
  38. 470 LOCATE 19,2:PRINT "Uw waarderingscijfer is een:";Y;
  39. 480 LOCATE 24,1:PRINT "Toets <Enter> of <Esc> voor einde";
  40. 490 I$=INKEY$:IF I$<>CHR$(13) AND I$<>CHR$(27) THEN 490
  41. 500 IF I$=CHR$(13) THEN RUN ELSE CLS:END
  42.