' Draw crosshairs in center of screen and a diamond around them

CALL Cross
Origin

Hue "a"
Measure
CALL Diamond
Center
Hue "y"
CALL Diamond
SLEEP
END


SUB Cross
  Move 1
  Trail -2
  Move 1
  Turn -1, 4
  Move -1
  Trail 5
END SUB


SUB Diamond
  Aim "w"
  Move 5
  AimN 7
  Trail 6
  AimN 5
  Trail 6
  AimN 1
  Trail 6
  AimN 11
  Trail 6
END SUB