[mirrors/Programs.git] / turbobasic / OPRAVIT9.BAS

\r
\r
CLS\r
SCREEN 0\r
COLOR 14,1\r
\r
start:\r
INPUT ; A$\r
IF A$="1" THEN GOTO ANO\r
IF A$="2" THEN GOTO NE\r
IF A$="3" THEN GOTO NEVIM\r
IF A$="4" THEN GOTO KONEC\r
\r
ANO:\r
LOCATE 2,2\r
PRINT "ANO          "\r
GOTO START\r
\r
NE:\r
LOCATE 2,2\r
PRINT "NE           "\r
GOTO START\r
\r
NEVIM:\r
LOCATE 2,2\r
PRINT "NEVIM        "\r
GOTO START\r
\r
KONEC:\r
LOCATE 2,2\r
PRINT "STLAC LIBOVOLNOU KLAVESU                                                   "\r
END\1a
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