CONCENTRATION TEST


THIS time we have given you a little longer to work out your answer, because we think you'll need all the brainpower at your command.

On the screen will be displayed 23 rows of 35 numbers and you have eight minutes to find as many pairs of adjacent numbers, whose sum is 10, as possible.

These pairs must be in the same row.

How to play

When you have found the matching pairs, key in the row number followed by the column number of each, and then press RETURN. For example A3,A4. Always place a comma between each entry. If your pair of numbers is correct they will displayed in the same colour on the screen.

You may key in the pairs in any order and, if you cannot find any more 'missing' pairs before your time is up, type in NO,MORE followed by RETURN. Again, there must be a comma between the words.

This ending of the game will cause your score sheet to be displayed. If you fial to complete in the alloted time, the score sheet will automatically appear.

Your score sheet will give a classification and an IQ rating on your powers of concentration.

Programming hints

LINES 100-230 draw out the matrix of numbers and the row and column labels. Note that the letters are displayed in a loop by referring to their ASCII values. As the letter A has ASCII value of 65, B has a value of 66 etc so CHR$(64+J) where J is 1,2,3 etc. will display the letters A,B,C etc.

I would not advise any alterations as the scoring and IQ levels were determined by scientific testing, and any changes would make the scores and IQ level incorrect.


   10 REM CONCENTRATION TESTER
   20 REM COPYRIGHT (C) G.LUDINSKI 1983
   30 *KEY 10 "OLD|M"
   40 MODE 4
   50 DIM A$(35,23)
   60 CLS
   70 NU=0
   80 TIME=0
   90 ER=0
  100 REM
  110 REM Draw Matrix
  120 REM
  130 PRINT
  140 PRINT"           1         2      
   3"
  150 PRINT"  12345678901234567890123456
789012345"
  160 FORJ=1TO23
  170   PRINT:PRINTCHR$(64+J)" ";
  180   FORI=1TO35
  190     A$(I,J)=STR$(INT(RND(1)*10))
  200     PRINTA$(I,J);
  210   NEXTI
  220   PRINT" ";CHR$(64+J);
  230 NEXTJ
  240 REM
  250 REM Question
  260 REM
  270 PRINT
  280 PRINTTAB(0,28)"Type row col. comma
 row col. so X+Y=10  ";
  290 PRINT:INPUT C$,D$
  300 REM
  310 REM Check Input
  320 REM
  330 IF TIME>=48000 THEN GOTO 490
  340 IF C$="NO" AND D$="MORE" THEN 490
  350 IF LEN(C$)<2 OR LEN(D$)<2 THEN PRO
C_ERROR:GOTO290
  360 J=ASC(LEFT$(C$,1))-64
  370 I=VAL(MID$(C$,2,LEN(C$)-1))
  380 K=ASC(LEFT$(D$,1))-64
  390 L=VAL(MID$(D$,2,LEN(D$)-1))
  400 IF I<1 OR I>35 OR J<1 OR J>23 OR L
<1 OR L>35 OR K<1 OR K>23 THEN PROC_ERRO
R:GOTO290
  410 IF J<>K THEN PROC_ERROR:GOTO290
  420 IF VAL(A$(I,J))+VAL(A$(L,K)) <> 10
 THEN ER=ER+1:PROC_ERROR:GOTO290
  430 COLOUR129:COLOUR0:PRINTTAB(I+1,J+3
);A$(I,J);TAB(L+1,K+3);A$(L,K);:COLOUR12
8:COLOUR1
  440 NU=NU+1
  450 PRINTTAB(0,30)"        ":VDU11,11,
11,11:GOTO280
  460 REM
  470 REM Score Sheet
  480 REM
  490 CLS:PRINT''"You found ";NU;" pairs
"''"Please wait - calculating score shee
t"
  500 MAX=0
  510 FORJ=1TO23
  520   FORI=1TO34
  530     IF VAL(A$(I,J))+VAL(A$(I+1,J))
=10 THEN MAX=MAX+1
  540   NEXTI
  550 NEXTJ
  560 SCORE=MAX-NU+ER
  570 PRINT:PRINT"Your score is ";SCORE:
PRINT
  580 AV=MAX * 0.6:IQ=INT((NU/AV)*100)
  590 IF IQ>150 THEN IQ=150
  600 IF SCORE<0.6*SCORE THEN PRINT"You 
are classed as SUPERIOR (Upper 10%)":GOT
O640
  610 IF SCORE<0.9*SCORE THEN PRINT"You 
are classed as GOOD (Upper 30%)":GOTO640
  620 IF SCORE<1.1*SCORE THEN PRINT"You 
are classed as FAIR (Upper 60%)"
  630 
  640 PRINT'"Your IQ level (Concentratio
n) = ";IQ
  650 PRINT'"More (Y/N)";
  660 INPUT I$
  670 IF I$<>"Y" AND I$<>"N" THEN VDU11:
GOTO660
  680 IF I$="Y" THEN 60
  690 GOTO740
  700 REM
  710 DEFPROC_ERROR
  720 VDU11,11,11:PRINT"Error:type row,c
ol. comma row col.so =10";
  730 ENDPROC
  740 REM END