home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2000 June / APC561.ISO / workshop / other / mac / polygon.bas < prev    next >
Encoding:
BASIC Source File  |  2000-03-21  |  183 b   |  10 lines
  1. 10 input "Sides? ";sides
  2. 15 angle = 360/sides
  3. 20 graphics 0
  4. 30 cls
  5. 40 sprite 1,100,100,1
  6. 50 for i = 1 to sides
  7. 60  sprite 1 forward 20
  8. 70  sprite 1 turnright angle
  9. 80 next i
  10.