GIT.Harvie.CZ / mirrors / Programs.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Fixed DOS encodings using: iconv -f CP852
[mirrors/Programs.git] / turbobasic / HESLO.BAS
1 cls
2 open "heslo.dta" For random AS #1
3 c$=input$(137,#1)
4 b$=mid$(C$,129,7)
5 input "Zadej vstupni heslo"; a$
6 if a$=b$ then end
7 shell "date>>HESLO.TXT"
8 shell "K>>HESLO.TXT"
9 shell "KONEC"
10 end
11 \1a
https://github.com/Harvie/Programs.git (mirrored @ Sun, 02 Jun 2024 02:30:12 +0200)
This page took 0.345373 seconds and 4 git commands to generate.