GIT.Harvie.CZ / mirrors / Programs.git / blame
| Commit | Line | Data |
|---|---|---|
| 0f95cc4b H |
1 | SCREEN 0\r |
| 2 | color 0,15\r | |
| 3 | cls\r | |
| 4 | INPUT " NOTA 1 " ;N1\r | |
| 5 | CLS\r | |
| 6 | INPUT " NOTA 2 " ;N2\r | |
| 7 | CLS\r | |
| 8 | INPUT " NOTA 3 " ;N3\r | |
| 9 | CLS\r | |
| 10 | INPUT " NOTA 4 " ;N4\r | |
| 11 | CLS\r | |
| 12 | INPUT " NOTA 5 " ;N5\r | |
| 13 | CLS\r | |
| 14 | INPUT " NOTA 6 " ;N6\r | |
| 15 | CLS\r | |
| 16 | INPUT " NOTA 7 " ;N7\r | |
| 17 | CLS\r | |
| 18 | INPUT " NOTA 8 " ;N8\r | |
| 19 | CLS\r | |
| 20 | INPUT " NOTA 9 " ;N9\r | |
| 21 | CLS\r | |
| 22 | INPUT " NOTA 10 " ;N10\r | |
| 23 | CLS\r | |
| 24 | INPUT " STISKNI *ENTER* " ;V\r | |
| 25 | CLS\r | |
| 26 | SOUND N1*12,12\r | |
| 27 | SOUND N2*12,12\r | |
| 28 | SOUND N3*12,12\r | |
| 29 | SOUND N4*12,12\r | |
| 30 | SOUND N5*12,12\r | |
| 31 | SOUND N6*12,12\r | |
| 32 | SOUND N7*12,12\r | |
| 33 | SOUND N8*12,12\r | |
| 34 | SOUND N9*12,12\r | |
| 35 | SOUND N10*12,12\r | |
| 36 | PRINT " KONEC "\r | |
| 37 | FOR I=0 TO 300\r | |
| 38 | NEXT I\r | |
| 39 | END\1a |