[mirrors/Programs.git] / turbobasic / SCITANI.BAS

SCREEN 0\r
CLS\r
COLOR 4,15\r
S=0\r
Z=0\r
\r
LOCATE 4,23\r
PRINT "PROGRAM PRO ZKOUSENI SCITANI"\r
PRINT "                     "\r
\r
V=TIMER\r
V=INT(((V-INT(V)+.2)*100))\r
\r
FOR I=1 TO 15\r
\r
A(I)=INT(RND*V+1)\r
A(I)=A(I)+1\r
B(I)=INT(RND*V+1)\r
B(I)=B(I)+1\r
\r
VYP:\r
IF A(I)>=B(I) THEN C(I)=A(I)-B(I):D(I)=B(I):GOTO VYSL\r
Commit	Line	Data
0f95cc4b H	1	SCREEN 0\r
	2	CLS\r
	3	COLOR 4,15\r
	4	S=0\r
	5	Z=0\r
	6	\r
	7	LOCATE 4,23\r
	8	PRINT "PROGRAM PRO ZKOUSENI SCITANI"\r
	9	PRINT " "\r
	10	\r
	11	V=TIMER\r
	12	V=INT(((V-INT(V)+.2)*100))\r
	13	\r
	14	FOR I=1 TO 15\r
	15	\r
	16	A(I)=INT(RND*V+1)\r
	17	A(I)=A(I)+1\r
	18	B(I)=INT(RND*V+1)\r
	19	B(I)=B(I)+1\r
	20	\r
	21	VYP:\r
	22	IF A(I)>=B(I) THEN C(I)=A(I)-B(I):D(I)=B(I):GOTO VYSL\r
	23