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

[mirrors/Programs.git] / turbobasic / 111AAA.BAS

diff --git a/turbobasic/111AAA.BAS b/turbobasic/111AAA.BAS
new file mode 100755 (executable)
index 0000000..c2f70d1
--- /dev/null
+++ b/turbobasic/111AAA.BAS
@@ -0,0 +1,18 @@
+CLS\r
+COLOR 4,15\r
+SCREEN 1\r
+LOCATE 2,2\r
+INPUT " ZAKàDUJTE " ;A$\r
+CLS\r
+LOCATE 2,2\r
+INPUT " ODKàDUJTE " ;C$\r
+IF A$=C$ THEN GOTO JEDNA\r
+CLS\r
+LOCATE 2,2\r
+PRINT " æPATNí KàD ( !!! ZABLOKOVµNO !!! ) "\r
+DO\r
+SOUND RND*800+12,13\r
+LOOP\r
+JEDNA:\r
+END\r
+\1a
\ No newline at end of file