10 REM IL MIO QUINTO PROGRAMMA IN BASIC
20 REM RIPASSO TABELLINE
30 REM (C) 2021, WWW.VALOROSO.IT

40 REM TIPO ESERCIZIO
50 PRINT "FINO QUALE TABELLINA"
60 INPUT "RIPASSI (1-10)";NT
70 IF NT<1 OR NT>10 THEN GOTO 50
80 PRINT: INPUT "QUANTI ESERCIZI";NE
90 IF NE<1 THEN GOTO 80

100 REM INIZIALIZZAZIONE
110 X = RND(-TIMER)
120 PRINT
130 TM = TIMER

200 REM ESERCIZI
210 FOR ES = 1 TO NE
220 M1 = INT(RND(1) * (NT + 1))
230 M2 = INT(RND(1) * 11)
240 PRINT: PRINT "QUANTO FA"
250 PRINT STR$(M1) + " X" + STR$(M2);
260 INPUT MR
270 IF MR = M1 * M2 THEN PRINT "GIUSTO!": NG = NG + 1
280 IF MR <> M1 * M2 THEN PRINT "SBAGLIATO!": NS = NS + 1
290 NEXT ES

300 REM PUNTEGGIO
310 PRINT
320 PRINT "NUMERO ESERCIZI:" + STR$(NE)
330 PRINT "- GIUSTI:    " + STR$(NG)
340 PRINT "- SBAGLIATI: " + STR$(NS)
350 PRINT "TEMPO:" + STR$(INT((TIMER - TM) / 60)) + " S"