[mirrors/Programs.git] / turbobasic / 1998 / 111AAA.BAS

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