--- /dev/null
+cls\r
+open "c:\util\mm.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 "rem date>>c:\util\mm.TXT"\r
+ shell "rem time>>c:\util\mm.TXT"\r
+ shell "blokne PC"\r
+end\r
+\1a
\ No newline at end of file