X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;f=turbobasic%2F111AAA.BAS;fp=turbobasic%2F111AAA.BAS;h=c2f70d1116477591b9095358cb819ef25c5d1410;hb=0f95cc4b3314aff66038b3bf60ff6db6790bc15c;hp=0000000000000000000000000000000000000000;hpb=c366db83dc933f6f5c79ba92dce91769455593f1;p=mirrors%2FPrograms.git

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