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