Borland TurboBASIC & TurboPASCAL stuff from 1998 when i started with programming...

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

diff --git a/turbobasic/OPRAVIT9.BAS b/turbobasic/OPRAVIT9.BAS
new file mode 100755 (executable)
index 0000000..76c7e4a
--- /dev/null
+++ b/turbobasic/OPRAVIT9.BAS
@@ -0,0 +1,32 @@
+\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