GIT.Harvie.CZ / mirrors / Programs.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Added experimental makepkg-update-checksums.sh
[mirrors/Programs.git] / turbobasic / 1998 / 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 @ Mon, 04 Nov 2024 22:30:36 +0100)
This page took 0.826356 seconds and 4 git commands to generate.