semestralka

[mirrors/Programs.git] / turbobasic / 1998 / 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