home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine: Run 12 / run12.zip / NIVEAU13.BAS < prev    next >
BASIC Source File  |  1994-01-31  |  2KB  |  32 lines
  1. 100 REM IQ-GEHEUGENTEST GW/QBASIC (C) RUN FLAGAZINE NR. 11
  2. 110 DATA Goed,Uitstekend,Perfect,Gokje zeker?,In de roos,Voortreffelijk
  3. 120 DATA Helemaal fout,Mis poes,Beter opletten,Vergeten?,Opnieuw,Nee hoor
  4. 130 FOR A%=0 TO 5:READ G$(A%):NEXT:FOR A%=0 TO 5:READ F$(A%):NEXT:COLOR 14,0
  5. 140 CLS:KEY OFF:RANDOMIZE TIMER:Y=8:Z=8:DIM G(20):DEF FN GETAL=INT(RND*9)
  6. 150 LOCATE 1,32:PRINT "-=";CHR$(240);"NIVEAU-13";CHR$(240);"=-"
  7. 160 DEF FN MIDDEN=INT((80-LEN(T$))/2):FOR A%=1 TO 18
  8. 170 T$="Welk cijfer wordt bedekt?":LOCATE 4,FN MIDDEN:PRINT T$:GOSUB 310
  9. 180 T$=CHR$(218)+STRING$(A%+Z,196)+CHR$(191):LOCATE 8,35:PRINT "Niveau:";A%
  10. 190 IF A%=13 THEN BEEP:COLOR 31,0:LOCATE 8,35:PRINT "Niveau:";A%:COLOR 14,0
  11. 200 LOCATE 10,FN MIDDEN:PRINT T$:LOCATE 11,FN MIDDEN:PRINT CHR$(179);
  12. 210 FOR B%=1 TO A%+Y-6:G(B%)=FN GETAL:PRINT G(B%);:NEXT B%:PRINT CHR$(179)
  13. 220 LOCATE 12,FN MIDDEN:PRINT CHR$(192)STRING$(A%+Z,196)+CHR$(217)
  14. 230 T=TIMER+A%:WHILE T>TIMER:LOCATE 14,34:PRINT "Aftellen:";INT(T-TIMER):WEND
  15. 240 GOSUB 340:PRINT "OPGEPAST":T=TIMER+1:GOSUB 310
  16. 250 F%=0:WHILE F%=0:F%=INT(RND*(B%)):WEND:GOSUB 280:LOCATE 14,34:PRINT "Cijfer";
  17. 260 INPUT W:IF W<>G(F%) THEN A%=A%-1:Z=Z-2:SOUND 555,2:GOSUB 320 ELSE GOSUB 330
  18. 270 Z=Z+2:Q=Q+1:GOSUB 350:NEXT A%:END
  19. 280 N=-1:FOR C%=1 TO B%-1:N=N+3:LOCATE 11,FN MIDDEN+N
  20. 290 IF C%=F% THEN R=FN MIDDEN+N:PRINT CHR$(219) ELSE PRINT USING "#";G(C%)
  21. 300 NEXT:RETURN
  22. 310 T=TIMER+2:WHILE T>TIMER:WEND:RETURN
  23. 320 F=F+1:GOSUB 340:PRINT F$(RND*5):GOSUB 310:GOSUB 360:GOSUB 340:RETURN
  24. 330 G=G+1:GOSUB 340:PRINT G$(RND*5):GOSUB 310:GOSUB 340:RETURN
  25. 340 LOCATE 14,34:PRINT SPACE$(15):LOCATE 14,34:RETURN
  26. 350 LOCATE 17,28:PRINT "Beurt:";Q;:PRINT "Goed:";G;:PRINT "Fout:";F:RETURN
  27. 360 LOCATE 11,R:COLOR 31,0:PRINT USING "#";G(F%):COLOR 14,0:GOSUB 310:RETURN
  28. 370 REM /* 26/.6077,6208,4025,4397,3318,2685,4865,4340,4320,3971
  29. 380 REM /*/....4030,3675,5028,2939,4742,4338,2053,2807,4014,0857
  30. 390 REM /*/....2487,4167,3575,3010,4803,4325
  31. 400 REM Checksum...............:  101056
  32.