Moved old turbobasic files to directory 1998 and added new directory for new files

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

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
\1a