GIT.Harvie.CZ / mirrors / Programs.git / blame
| Commit | Line | Data |
|---|---|---|
| 0f95cc4b H |
1 | \r |
| 2 | \r | |
| 3 | CLS\r | |
| 4 | SCREEN 0\r | |
| 5 | COLOR 14,1\r | |
| 6 | \r | |
| 7 | start:\r | |
| 8 | INPUT ; A$\r | |
| 9 | IF A$="1" THEN GOTO ANO\r | |
| 10 | IF A$="2" THEN GOTO NE\r | |
| 11 | IF A$="3" THEN GOTO NEVIM\r | |
| 12 | IF A$="4" THEN GOTO KONEC\r | |
| 13 | \r | |
| 14 | ANO:\r | |
| 15 | LOCATE 2,2\r | |
| 16 | PRINT "ANO "\r | |
| 17 | GOTO START\r | |
| 18 | \r | |
| 19 | NE:\r | |
| 20 | LOCATE 2,2\r | |
| 21 | PRINT "NE "\r | |
| 22 | GOTO START\r | |
| 23 | \r | |
| 24 | NEVIM:\r | |
| 25 | LOCATE 2,2\r | |
| 26 | PRINT "NEVIM "\r | |
| 27 | GOTO START\r | |
| 28 | \r | |
| 29 | KONEC:\r | |
| 30 | LOCATE 2,2\r | |
| 31 | PRINT "STLAC LIBOVOLNOU KLAVESU "\r | |
| 32 | END\1a |