| 1 | SCREEN 0\r |
| 2 | COLOR 7,9\r |
| 3 | N=0\r |
| 4 | S=0\r |
| 5 | V=0\r |
| 6 | \r |
| 7 | OPET:\r |
| 8 | N=N+1\r |
| 9 | CLS\r |
| 10 | LOCATE 4,23\r |
| 11 | PRINT "PROGRAM PRO ZKOUSENI MALE NASOBILKY"\r |
| 12 | A=INT(RND(5)*10+1)\r |
| 13 | B=INT(RND(4)*10+1)\r |
| 14 | LOCATE 10,5\r |
| 15 | PRINT "NAPIS VYSLEDEK" A "x" B "="\r |
| 16 | INPUT " A STISKNI ENTER ";C\r |
| 17 | D=A*B\r |
| 18 | IF D=C THEN ANO\r |
| 19 | PRINT " SPATNY VYSLEDEK"\r |
| 20 | S=S+1\r |
| 21 | GOTO VOLBA\r |
| 22 | \r |
| 23 | ANO:\r |
| 24 | PRINT " SPRAVNE"\r |
| 25 | V=V+1\r |
| 26 | \r |
| 27 | VOLBA:\r |
| 28 | LOCATE 18,10\r |
| 29 | PRINT "Z" N "POKUSU MAS" S "SPATNYCH A" V "DOBRYCH"\r |
| 30 | LOCATE 20,10\r |
| 31 | PRINT "POKUD CHCES POKRACOVAT ZMACKNI ENTER"\r |
| 32 | LOCATE 21,10\r |
| 33 | INPUT "POKUD CHCES SKONCIT NAPIS 1 A ZMACKNI 2 x ENTER";E\r |
| 34 | IF E<>1 THEN OPET\r |
| 35 | \r |
| 36 | END\r |
| 37 | \r |
| 38 | \1a |