[mirrors/Programs.git] / turbobasic / SCITANI2.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)+.3)*200))\r
REM puvodne bylo + .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
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)+.3)*200))\r
	13	REM puvodne bylo + .2 )*100\r
	14	\r
	15	FOR I=1 TO 15\r
	16	\r
	17	A(I)=INT(RND*V+1)\r
	18	A(I)=A(I)+1\r
	19	B(I)=INT(RND*V+1)\r
	20	B(I)=B(I)+1\r
	21	\r
	22	VYP:\r
	23