GIT.Harvie.CZ / mirrors / Programs.git / blame
| Commit | Line | Data |
|---|---|---|
| 0f95cc4b H |
1 | SCREEN 0\r |
| 2 | CLS\r | |
| 3 | SOUND RND*1000+20,70\r | |
| 4 | COLOR 4,15\r | |
| 5 | N=0\r | |
| 6 | S=0\r | |
| 7 | V=0\r | |
| 8 | SOUND RND*300+12,13\r | |
| 9 | SOUND RND*10000+12,13\r | |
| 10 | OPET:\r | |
| 11 | N=N+1\r | |
| 12 | CLS\r | |
| 13 | LOCATE 4,23\r | |
| 14 | PRINT "PROGRAM PRO ZKOUSENI MALE NASOBILKY"\r | |
| 15 | A=INT(RND(5)*10+1)\r | |
| 16 | B=INT(RND(4)*10+1)\r | |
| 17 | LOCATE 10,5\r | |
| 18 | PRINT "NAPIS VYSLEDEK" A "x" B "="\r | |
| 19 | INPUT " STISKNI ENTER";C\r | |
| 20 | D=A*B\r | |
| 21 | IF D=C THEN ANO\r | |
| 22 | PRINT " SPATNY VYSLEDEK"\r | |
| 23 | SOUND RND*10000+12,13\r | |
| 24 | S=S+1\r | |
| 25 | GOTO VOLBA\r | |
| 26 | SOUND RND*100+12,13\r | |
| 27 | ANO:\r | |
| 28 | PRINT " SPRAVNE"\r | |
| 29 | V=V+1\r | |
| 30 | VOLBA:\r | |
| 31 | LOCATE 18,10\r | |
| 32 | PRINT "Z" N "POKUSU MAS" S "SPATNYCH A" V "DOBRYCH"\r | |
| 33 | LOCATE 20,10\r | |
| 34 | PRINT "POKUD CHCES POKRACOVAT ZMACKNI ENTER"\r | |
| 35 | LOCATE 21,10\r | |
| 36 | INPUT "POKUD CHCES SKONCIT NAPIS 1 A ZMACKNI 2 x ENTER";E\r | |
| 37 | IF E<>1 THEN OPET\r | |
| 38 | sound rnd*100+12,13\r | |
| 39 | END\r | |
| 40 | \r | |
| 41 | \1a |