Added experimental makepkg-update-checksums.sh
[mirrors/Programs.git] / turbobasic / 1998 / 111AAA.BAS
CommitLineData
0f95cc4b
H
1CLS\r
2COLOR 4,15\r
3SCREEN 1\r
4LOCATE 2,2\r
6c1eebfd 5INPUT " ZAKÓDUJTE " ;A$\r
0f95cc4b
H
6CLS\r
7LOCATE 2,2\r
6c1eebfd 8INPUT " ODKÓDUJTE " ;C$\r
0f95cc4b
H
9IF A$=C$ THEN GOTO JEDNA\r
10CLS\r
11LOCATE 2,2\r
6c1eebfd 12PRINT " ŠPATNÝ KÓD ( !!! ZABLOKOVÁNO !!! ) "\r
0f95cc4b
H
13DO\r
14SOUND RND*800+12,13\r
15LOOP\r
16JEDNA:\r
17END\r
18\1a
This page took 0.412242 seconds and 4 git commands to generate.