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

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

diff --git a/turbobasic/HESLO.BAS b/turbobasic/HESLO.BAS
new file mode 100755 (executable)
index 0000000..4077caa
--- /dev/null
+++ b/turbobasic/HESLO.BAS
@@ -0,0 +1,11 @@
+cls\r
+open "heslo.dta" For random  AS #1\r
+c$=input$(137,#1)\r
+b$=mid$(C$,129,7)\r
+input "Zadej vstupni heslo"; a$\r
+   if a$=b$ then end\r
+ shell "date>>HESLO.TXT"\r
+ shell "K>>HESLO.TXT"\r
+ shell "KONEC"\r
+end\r
+\1a
\ No newline at end of file