[mirrors/Programs.git] / turbobasic / 1998 / ALARM.BAS

cls\r
screen 1\r
COLOR 14,1\r
LOCATE 2,2\r
INPUT " ZAKÓDUJTE ALARM " ;KOD$\r
ZPED:\r
SCREEN 1\r
COLOR 14,1\r
LOCATE 2,2\r
cls\r
INPUT " ODKÓDUJTE ALARM " ;UNKOD$\r
IF UNKOD$=KOD$ THEN GOTO NOTALARM\r
SOUND 1000+12,100\r
GOTO ZPED\r
NOTALARM:\r
END\1a
Commit	Line	Data
	1	cls\r
	2	screen 1\r
	3	COLOR 14,1\r
	4	LOCATE 2,2\r
	5	INPUT " ZAKÓDUJTE ALARM " ;KOD$\r
	6	ZPED:\r
	7	SCREEN 1\r
	8	COLOR 14,1\r
	9	LOCATE 2,2\r
	10	cls\r
	11	INPUT " ODKÓDUJTE ALARM " ;UNKOD$\r
	12	IF UNKOD$=KOD$ THEN GOTO NOTALARM\r
	13	SOUND 1000+12,100\r
	14	GOTO ZPED\r
	15	NOTALARM:\r
	16	END\1a