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

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

diff --git a/turbobasic/BARVY.BAS b/turbobasic/BARVY.BAS
new file mode 100755 (executable)
index 0000000..c11c783
--- /dev/null
+++ b/turbobasic/BARVY.BAS
@@ -0,0 +1,7 @@
+cls\r
+screen 0\r
+color 0,15\r
+locate 3,10\r
+print SPC(32) "AHOJ"\r
+color 2,9\r
+input "pokus";A\1a
\ No newline at end of file