Программа для обучения сложению

Вокруг ZX Spectrum
Геннадий Шахов

20 PRINT "Level: "; 
30 INPUT a: PRINT a: RANDOMIZE 0 
40 LET b=1+INT (a*RND) 
50 LET c=1+INT (a*RND) 
60 PRINT b;"+";c;"="; 
70 INPUT d 
80 IF d=c+b THEN GO TO 1000 
90 BEEP 1,0: BEEP 1,2: BEEP .5,3: BEEP .5,2 
300 BEEP 1,0: BEEP 1,2: BEEP .5,3 
330 BEEP .5,2: BEEP 1,0: BEEP 1,3: BEEP 1,5 
340 BEEP 2,7: BEEP 1,3: BEEP 1,5: BEEP 2,7 
430 GO TO 70 
1000 BEEP .5,16: BEEP .5,12: BEEP .5,16: BEEP .5,12 
3000 BEEP .5,17: BEEP .5,16: BEEP 1,14 
3030 BEEP .5,7: BEEP .5,7: BEEP .5,9: BEEP .5,11 
3040 BEEP .5,12: BEEP .5,12: BEEP 1,12 
3050 PRINT d 
3060 GO TO 40