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

[mirrors/Programs.git] / turbobasic / POZDR-BL.BAS

diff --git a/turbobasic/POZDR-BL.BAS b/turbobasic/POZDR-BL.BAS
new file mode 100755 (executable)
index 0000000..9a9bd0e
--- /dev/null
+++ b/turbobasic/POZDR-BL.BAS
@@ -0,0 +1,26 @@
+SCREEN 0\r
+INPUT " ZADEJ 1 (çED ) NEBO JEN ENTER(MODR )";L\r
+IF L=1 THEN COLOR 0,15:GOTO RAZ\r
+COLOR 14,1\r
+\r
+RAZ:\r
+FOR I=2 TO 500\r
+REM CLS PRI KAZDEM CYKLU VYMAZE OBRAZOVKU, TAKZE NAPIS BLIKA\r
+CLS\r
+SCREEN 0\r
+LOCATE 9,23\r
+PRINT " DOBRY DEN! JAK SE MATE ? "\r
+\r
+A$=INKEY$\r
+IF A$="X" THEN KONEC\r
+KEY (11) STOP\r
+\r
+FOR B=0 TO 300\r
+NEXT B\r
+\r
+NEXT I\r
+KONEC:\r
+REM CLS\r
+LOCATE 20,15\r
+\r
+PRINT "UKONCI stiskem enter"\1a
\ No newline at end of file