0 ' IQTEST.BA - Author Unknown
1 ' Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 CLS:CLEAR:S=0:PRINT:PRINT:'ROUGH IQ ASSESSMENT 5-6 = AVERAGE
3 PRINT"Enter your first & last name.":PRINT"(Then press the ENTER key)":INPUT"Name_____";N$
4 CLS:PRINT:READA$:IFA$="END"THEN12
5 READB$,C$,D$,E$:PRINTA$:PRINT:PRINTB$"  "C$"  "D$
6 PRINT:F$="":INPUT"Choose A  B or C and press enter";F$:IFF$=""THEN6
7 IFASC(F$)<97THENF$=CHR$(ASC(F$)+32)
8 IFASC(F$)<97ORASC(F$)>99THENBEEP:GOTO6
9 IFF$=E$THENPRINT"RIGHT!";:S=S+1:FORK=1TO500:NEXT
10 IFF$<>E$THENPRINT"SORRY, WRONG ANSWER.";:BEEP:FORX=1TO500:NEXT
11 GOTO4
12 CLS:PRINT:PRINT"You correctly answered "S" out of 13    questions.":IFS<=2THENS=1
13 IFS=3THENS=2
14 IFS=4THENS=3
15 IFS=5THENS=4
16 IFS=6 ORS=7THENS=5
17 IFS=8THENS=6
18 IFS=9THENS=7
19 IFS=10THENS=8
20 IFS=11THENS=9
21 IFS=>12THENS=10
22 OPEN"RAM:RESULT.DO"FORAPPENDAS1:PRINT#1,N$,S:CLOSE:PRINT:PRINT"Results obtained this date indicate a   Sten score of "S:PRINT:PRINT"         PRESS ANY KEY TO RESTART";
23 Z$=INKEY$:IFZ$=""THEN23
24 GOTO2:DATA SPADE is to DIG  as KNIFE is to::DATA a. sharp,b. cut,c. point,b:DATA TIRED is to WORK as PROUD is to::DATA a. smile,b. success,c. happy,b:DATA Which of the following items is         different in kind from the others?
25 DATA a. candle,b. moon,c. electric light,b:DATA SURPRIZE is to STRANGE as FEAR is to::DATA a. brave,b. anxious,c. terrible,c:DATA Which of the following fractions is not in the same class as the others?:DATA a. 3/7,b. 3/9,c. 3/11,b
26 DATA SIZE is to LENGTH as DISHONESTY is to::DATA a. prison,b. sin,c. stealing,c:DATA AB is to dc as SR is to::DATA a. qp,b. pq,c. tu,b:DATA Better is to WORST as SLOWER is to:DATA a. fast,b. best,c. quickest,c
27 DATA Which of the following should come next at the end of this row of letters       XOOOOXXOOOXXX:DATA a. oxxx,b. ooxx,c. xooo,b:DATA Which of the following words does not   properly belong with the others?:DATA a. any,b. some,c. most,a
28 DATA FLAME is to HEAT as ROSE is to::DATA a. thorn,b. red petals,c. scent,c:DATA Which of the following words does not   belong with the others?:DATA a. wide,b. zigzag,c. straight,a:DATA SOON is to NEVER as NEAR is to:
29 DATA a. nowhere,b. far,c. away,a:DATA END