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

SCREEN 0\r
CLS\r
SOUND RND*1000+20,70\r
COLOR 4,15\r
N=0\r
S=0\r
V=0\r
SOUND RND*300+12,13\r
SOUND RND*10000+12,13\r
OPET:\r
N=N+1\r
CLS\r
LOCATE 4,23\r
PRINT "PROGRAM PRO ZKOUSENI MALE NASOBILKY"\r
A=INT(RND(5)*10+1)\r
B=INT(RND(4)*10+1)\r
LOCATE 10,5\r
PRINT "NAPIS VYSLEDEK" A "x" B "="\r
INPUT "    STISKNI ENTER";C\r
D=A*B\r
IF D=C THEN ANO\r
PRINT "    SPATNY VYSLEDEK"\r
SOUND RND*10000+12,13\r
S=S+1\r
GOTO VOLBA\r
SOUND RND*100+12,13\r
ANO:\r
PRINT "    SPRAVNE"\r
V=V+1\r
VOLBA:\r
LOCATE 18,10\r
PRINT "Z" N "POKUSU MAS" S "SPATNYCH A" V "DOBRYCH"\r
LOCATE 20,10\r
PRINT "POKUD CHCES POKRACOVAT ZMACKNI ENTER"\r
LOCATE 21,10\r
INPUT "POKUD CHCES SKONCIT NAPIS 1 A ZMACKNI 2 x ENTER";E\r
IF E<>1 THEN OPET\r
sound rnd*100+12,13\r
END\r
\r
\1a
Commit	Line	Data
	1	SCREEN 0\r
	2	CLS\r
	3	SOUND RND*1000+20,70\r
	4	COLOR 4,15\r
	5	N=0\r
	6	S=0\r
	7	V=0\r
	8	SOUND RND*300+12,13\r
	9	SOUND RND*10000+12,13\r
	10	OPET:\r
	11	N=N+1\r
	12	CLS\r
	13	LOCATE 4,23\r
	14	PRINT "PROGRAM PRO ZKOUSENI MALE NASOBILKY"\r
	15	A=INT(RND(5)*10+1)\r
	16	B=INT(RND(4)*10+1)\r
	17	LOCATE 10,5\r
	18	PRINT "NAPIS VYSLEDEK" A "x" B "="\r
	19	INPUT " STISKNI ENTER";C\r
	20	D=A*B\r
	21	IF D=C THEN ANO\r
	22	PRINT " SPATNY VYSLEDEK"\r
	23	SOUND RND*10000+12,13\r
	24	S=S+1\r
	25	GOTO VOLBA\r
	26	SOUND RND*100+12,13\r
	27	ANO:\r
	28	PRINT " SPRAVNE"\r
	29	V=V+1\r
	30	VOLBA:\r
	31	LOCATE 18,10\r
	32	PRINT "Z" N "POKUSU MAS" S "SPATNYCH A" V "DOBRYCH"\r
	33	LOCATE 20,10\r
	34	PRINT "POKUD CHCES POKRACOVAT ZMACKNI ENTER"\r
	35	LOCATE 21,10\r
	36	INPUT "POKUD CHCES SKONCIT NAPIS 1 A ZMACKNI 2 x ENTER";E\r
	37	IF E<>1 THEN OPET\r
	38	sound rnd*100+12,13\r
	39	END\r
	40	\r
	41	\1a