1 CLEAR 1000
5 DIM A(6,32)
7 COLOR 1,7
20 CLS
25 FOR Z=1 TO 10 : PRINT : NEXT Z
30 PRINT "     PLEASE THINK OF A WHOLE NUMBER FROM 0 TO 63"
40 PRINT : FOR Z=1 TO 1000 : NEXT Z : REM TIME STALLER
45 PRINT:PRINT:PRINT
50 PRINT "     PRESS <ENTER> WHEN YOU ARE READY TO CONTINUE"
60 PRINT:INPUT X$
70 CLS
80 FOR J=1 TO 6
85 FOR Z=1 TO 6 : PRINT : NEXT Z
90 FOR K=1 TO 32
100 READ A(J,K)
105 IF A(J,K)<10 THEN PRINT " ";
110 PRINT A(J,K),
120 NEXT K
125 FOR Z=1 TO 6 : PRINT : NEXT Z
127 COLOR 4
130 INPUT "DOES YOUR NUMBER APPEAR ON THE SCREEN (Y or N)";N$
135 COLOR 1
140 IF N$="Y" THEN S=S+2^(J-1):REM "["IS EXPONENTIATION
150 IF N$<>"N" AND N$<>"Y" THEN 130
153 N$=" "
154 COLOR 1
155 CLS
160 NEXT J
170 CLS
172 FOR Z=1 TO 6 : PRINT : NEXT Z
173 FOR Z=1 TO 300:NEXT Z
175 PRINT "     OKAY, CONCENTRATE VERY HARD NOW ..."
180 PRINT "     I AM READING YOUR MIND ............"
183 FOR Z=1 TO 700:NEXT Z
184 GOSUB 402
185 PRINT:PRINT
186 FOR K=1 TO 2
188 PRINT "     ";STRING$(57,"=")
189 PRINT : PRINT
190 NEXT K
192 GOSUB 401
193 FOR Z=1 TO 300:NEXT Z
194 PRINT "         AHA ! YOU PICKED THE NUMBER ";
195 PLAY "CEG>C<G>C" : COLOR 4 : PRINT S
196 FOR Z=1 TO 2500:NEXT Z
197 PRINT:PRINT:COLOR 0,15,0
198 INPUT " .... AGAIN (Y/N) "; X$
199 IF X$="Y" OR X$="y" THEN 1 ELSE 500
200 DATA 1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,31,33,35
210 DATA 37,39,41,43,45,47,49,51,53,55,57,59,61,63
230 DATA 2,3,6,7,10,11,14,15,18,19,22,23,26,27,30,31,34,35
240 DATA 38,39,42,43,46,47,50,51,54,55,58,59,62,63
260 DATA 4,5,6,7,12,13,14,15,20,21,22,23,28,29,30,31,36,37
270 DATA 38,39,44,45,46,47,52,53,54,55,60,61,62,63
290 DATA 8,9,10,11,12,13,14,15,24,25,26,27,28,29,30,31,40,41
300 DATA 42,43,44,45,46,47,56,57,58,59,60,61,62,63
320 DATA 16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,48,49
330 DATA 50,51,52,53,54,55,56,57,58,59,60,61,62,63
350 DATA 32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49
360 DATA 50,51,52,53,54,55,56,57,58,59,60,61,62,63
401 COLOR 2 : RETURN
402 COLOR 3 : RETURN
403 COLOR 5 : RETURN
404 COLOR 6 : RETURN
405 COLOR 14 : RETURN
406 COLOR 1 : RETURN
500 SYSTEM : END