pointer

SCREEN 12
dir = 0
x = 320
y = 240
pi = 3.141626535897932#
10
dir = dir + 1
LINE (x, y)-(x + 100 * COS(dir * pi / 180), y + 100 * SIN(dir * pi / 180))
LINE (x + 100 * COS(dir * pi / 180), y + 100 * SIN(dir * pi / 180))-(x + 75 * COS(dir * pi / 180) + COS(dir * pi / 180), y + 75 * SIN(dir * pi / 180) + 25 + SIN(dir * pi / 180))
LINE (x + 100 * COS(dir * pi / 180), y + 100 * SIN(dir * pi / 180))-(x + 75 * COS(dir * pi / 180) - 25 - COS(dir * pi / 180), y + 75 * SIN(dir * pi / 180) - 25 - SIN(dir * pi / 180))
SLEEP 1
CLS
IF dir < 360 GOTO 10