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

SCREEN 1\r
V=TIMER\r
PRINT "CAS" V\r
V=INT(((V-INT(V))+.2)*10)\r
PRINT "DALE" V\r
FOR I=1 TO 19\r
A=INT(RND*V+1)\r
IF A=11 THEN A=A-V+1\r
PRINT A\r
NEXT I\r
SOUND 1200,2\1a
Commit	Line	Data
0f95cc4b H	1	SCREEN 1\r
	2	V=TIMER\r
	3	PRINT "CAS" V\r
	4	V=INT(((V-INT(V))+.2)*10)\r
	5	PRINT "DALE" V\r
	6	FOR I=1 TO 19\r
	7	A=INT(RND*V+1)\r
	8	IF A=11 THEN A=A-V+1\r
	9	PRINT A\r
	10	NEXT I\r
	11	SOUND 1200,2\1a