242 Countabout
200 NEXT I
210 PEN 2:LOCATE 1,1: PRINT"H OW MAN ";:PEN 3:PRINT N$;" ?":PEN I
220 IF INKEY$<>"" THEN 220
230 A$=INKEY$: IF A$="" THEN 230
240 IF A$<"1" OR A$>"9" THEN 230
250 .LOCATE V,W:PRINT"	";:LOCATE V,W+1:
PRINT"	";:LOCATE V,W+2:PRINT"	";
260 ON VAL(A$) GOSUB 420,430,440,450,460 ,470,480,490,500
270 IF VAL(AS)=Q THEN GOTO 330
280 IF VAL(A$)=Q+1 OR VAL(A$)=Q-1 THEN 3 10
290 SOUND 1,180,5:SOUND 1,120,5:LOCATE 2 3,9:PRINT "NO - WRONG";
300 GOSUB 510: GOTO 210
310 SOUND 1,180,5:SOUND 1,120,5:LOCATE 2 2,9:PEN 2:PRINT "N E A R L Y";:PEN 1
320 GOSUB 510:GOTO 210
330 SOUND 1,160,5:SOUND 1,120,5:LOCATE 2 3,9:PEN 3:PRINT "CORRECT !!";:PEN 1
340 GOSUB 510:CLS:GOTO 120
350 REM instructions
360 PEN 3:LOCATE 1,1:PRINT" COUNTABOUT":PEN 1
370 LOCATE 1,7:PEN 2:PRINT"There is no n eed to use the ENTER key in this program .":PEN I
380 LOCATE 1,11:PEN 3:PRINT"Once the chi id knows where the numbers from 1 to 9 are on the keyboard, you can sit back an d let the computer do a bit of teaching! ":PEN 1
390 RETURN
400 REM NUMBERS
410 PEN 2
420 PEN 2:LOCATE V,W: PRINT CHR$(231);CH R$(232):LOCATE V,W+1:PRINT" ";CHR$(232): LOCATE V,W+2:PRINT" ";CHR$(232):PEN 1:RE TURN
430 PEN 3:LOCATE V,W: PRINT CHRS(233);CH R$(235);CHR$(234):LOCATE V,W+1:PRINT CHR $(233);CHR$(235);CHR$(236):LOCATE
PRINT CHR$(237);CHR$(235);CHR$(235);:PEN 1:RETURN