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

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
Commit	Line	Data
0f95cc4b H	1	cls\r
	2	open "heslo.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 "date>>HESLO.TXT"\r
	8	shell "K>>HESLO.TXT"\r
	9	shell "KONEC"\r
	10	end\r
	11	\1a