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

for A=0 TO 6000\r
CLS\r
COLOR 0,15\r
SCREEN 0\r
X=STICK (0)\r
Y=STICK (1)\r
REM LOCATE X,Y\r
REM PRINT "O"\r
PRINT X " , " Y\r
FOR D=0 TO 300\r
NEXT D\r
NEXT A\r
END\1a
Commit	Line	Data
	1	for A=0 TO 6000\r
	2	CLS\r
	3	COLOR 0,15\r
	4	SCREEN 0\r
	5	X=STICK (0)\r
	6	Y=STICK (1)\r
	7	REM LOCATE X,Y\r
	8	REM PRINT "O"\r
	9	PRINT X " , " Y\r
	10	FOR D=0 TO 300\r
	11	NEXT D\r
	12	NEXT A\r
	13	END\1a