[mirrors/Programs.git] / turbobasic / NAH-CISL.BAS

V=TIMER\r
PRINT V\r
\r
V=V-INT(V)\r
PRINT V\r
V=V*120\r
PRINT V\r
V=INT(V)\r
\r
G=RND*40\r
I=G+V\r
I=INT(V)+(G)\r
I=I+55\r
I=INT(V)+(G)+(I)\r
I=INT(I)\r
PRINT I\r
END\1a
Commit	Line	Data
	1	V=TIMER\r
	2	PRINT V\r
	3	\r
	4	V=V-INT(V)\r
	5	PRINT V\r
	6	V=V*120\r
	7	PRINT V\r
	8	V=INT(V)\r
	9	\r
	10	G=RND*40\r
	11	I=G+V\r
	12	I=INT(V)+(G)\r
	13	I=I+55\r
	14	I=INT(V)+(G)+(I)\r
	15	I=INT(I)\r
	16	PRINT I\r
	17	END\1a