A reading readiness program. A steam train chugs across the screen and stops at a wall that shows a randomly chosen letter. When the child presses the matching key, the train moves on and a new letter appears; a wrong key keeps the train standing.
The article suggests short sessions totaling about an hour a month, and showing a child who gets frustrated which row of keys holds the right letter. Lines 1040-1050 save the program and run it again. Runs in 2K.
Published in Syntax June 1983 (Letter Recognition Train).
Image Gallery
Source Code
40 REM ***********************
50 REM * TRAIN *
60 REM *FOR READING READINESS*
70 REM * BY: E.ALVAREZ, 1982 *
80 REM ***********************
90 RAND
100 LET L$=CHR$ (RND*25+38)
200 FOR N=0 TO 31
300 PRINT AT 9,N;" ▛▜ ▖▖▐"
310 PRINT AT 10,N;" ██████▘"
320 PRINT AT 11,N;" ▀▀OOO▀▚"
330 PRINT AT 8,N;" ▒"
335 PRINT AT 11,N;" ▀▀000▀▚"
340 IF N=28 THEN GOSUB 1000
350 NEXT N
360 PRINT AT 9,5;"▒"
370 PRINT AT 9,5;" "
380 IF INKEY$="" THEN GOTO 340
390 IF INKEY$<>L$ THEN GOTO 400
391 SCROLL
394 GOTO 100
400 PRINT AT 11,7;" "
410 GOSUB 1000
420 GOTO 380
1000 PRINT AT 10,7;"█"
1010 PRINT AT 11,7;L$
1020 PRINT AT 12,7;"█"
1030 RETURN
1040 SAVE "TRAIN"
1050 RUNNote: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.