SCREEN 13 'ändrar till grafikläge
CONST PI = 3.141592654#

DO
vinkel = (vinkel + 2) MOD 360
WAIT &H3DA, 8: WAIT &H3DA, 8, 8 'väntar till skärmen ritats klart
LINE (x - 5, y - 5)-(x + 5, y + 5), 0, BF
x = 160 + 50 * COS(vinkel * PI / 180)
y = 100 + 50 * SIN(vinkel * PI / 180)
LINE (x - 5, y - 5)-(x + 5, y + 5), 1, BF
LOOP UNTIL INKEY$ = CHR$(27) 'om man trycker ESC så avslutas programmet