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

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

diff --git a/turbobasic/POZDRAV.BAS b/turbobasic/POZDRAV.BAS
new file mode 100755 (executable)
index 0000000..4e6670c
--- /dev/null
+++ b/turbobasic/POZDRAV.BAS
@@ -0,0 +1,16 @@
+FOR I=0 TO 5000\r
+CLS\r
+SCREEN 0\r
+COLOR 14,1\r
+LOCATE 10,5\r
+PRINT " DOBRY DEN! JAK SE MATE ? "\r
+\r
+A$=INKEY$\r
+IF A$="X" THEN KONEC\r
+\r
+FOR B=0 TO 300\r
+NEXT B\r
+\r
+NEXT I\r
+KONEC:\r
+CLS\1a
\ No newline at end of file