' Draws some colored linear dashes
' See file: guide.txt for an explanation

SUB dashes (number, col$, length)
  hue col$
  FOR i = 1 TO number
    trail length
    move 1
  NEXT
END SUB


' Main program

aim "left"
move -10
CALL dashes (6, "red", 2)
aim "up"
CALL dashes (3, "green", 1)
SLEEP
END