--- /dev/null
+\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
\ No newline at end of file