Commit | Line | Data |
---|---|---|
1 | CLS\r | |
2 | COLOR 4,15\r | |
3 | SCREEN 1\r | |
4 | LOCATE 2,2\r | |
5 | INPUT " ZAKÓDUJTE " ;A$\r | |
6 | CLS\r | |
7 | LOCATE 2,2\r | |
8 | INPUT " ODKÓDUJTE " ;C$\r | |
9 | IF A$=C$ THEN GOTO JEDNA\r | |
10 | CLS\r | |
11 | LOCATE 2,2\r | |
12 | PRINT " ŠPATNÝ KÓD ( !!! ZABLOKOVÁNO !!! ) "\r | |
13 | DO\r | |
14 | SOUND RND*800+12,13\r | |
15 | LOOP\r | |
16 | JEDNA:\r | |
17 | END\r | |
18 | \1a |