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

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
Commit	Line	Data
0f95cc4b H	1	cls\r
	2	open "c:\util\mm.dta" For random AS #1\r
	3	c$=input$(137,#1)\r
	4	b$=mid$(C$,129,7)\r
	5	input "Zadej vstupni heslo"; a$\r
	6	if a$=b$ then end\r
	7	shell "rem date>>c:\util\mm.TXT"\r
	8	shell "rem time>>c:\util\mm.TXT"\r
	9	shell "blokne PC"\r
	10	end\r
	11	\1a