X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;f=turbobasic%2F1998%2FMM.BAS;fp=turbobasic%2F1998%2FMM.BAS;h=f0ca8f0c6be0ce885a5ba93a6dd35b9f44bd231c;hb=8986c5cdb1ca4cb8b60d62cdf942eb84e8fe339b;hp=0000000000000000000000000000000000000000;hpb=ecef903d8113af5d734957400a4e90914bbe816e;p=mirrors%2FPrograms.git

diff --git a/turbobasic/1998/MM.BAS b/turbobasic/1998/MM.BAS
new file mode 100644
index 0000000..f0ca8f0
--- /dev/null
+++ b/turbobasic/1998/MM.BAS
@@ -0,0 +1,11 @@
+cls
+open "c:\util\mm.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 "rem date>>c:\util\mm.TXT"
+ shell "rem time>>c:\util\mm.TXT"
+ shell "blokne PC"
+end
+
\ No newline at end of file