GIT.Harvie.CZ
/
mirrors
/
Programs.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
c2f70d1116477591b9095358cb819ef25c5d1410
[mirrors/Programs.git]
/
turbobasic
/
111AAA.BAS
1
CLS
2
COLOR 4,15
3
SCREEN 1
4
LOCATE 2,2
5
INPUT " ZAKàDUJTE " ;A$
6
CLS
7
LOCATE 2,2
8
INPUT " ODKàDUJTE " ;C$
9
IF A$=C$ THEN GOTO JEDNA
10
CLS
11
LOCATE 2,2
12
PRINT " æPATNí KàD ( !!! ZABLOKOVµNO !!! ) "
13
DO
14
SOUND RND*800+12,13
15
LOOP
16
JEDNA:
17
END
18
\1a
This page took
0.252206 seconds
and
3
git commands to generate.