' make a basic five pointed star
'
SUB Star
  Aim "up"       
  Turn 1, 20
  FOR i = 1 TO 5
    Trail 6
    Turn 4, 10
  NEXT
END SUB


' Main program
' draw several stars randomly 
'
FOR j = 1 TO 5
  Origin         ' move to random place
  AimX 1, 12        
  MoveX 5, 15
  SizeX 5, 20    ' pick a random size and color
  HueX 0, 6        
  CALL Star
NEXT
SLEEP
END