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

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