semestralka

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

for A=0 TO 6000
CLS
COLOR 0,15
SCREEN 0
X=STICK (0)
Y=STICK (1)
REM LOCATE X,Y
REM PRINT "O"
PRINT X " , " Y
FOR D=0 TO 300
NEXT D
NEXT A
END\1a