08-29-2005, 10:02 PM
I vote for Dark_Prevail's solution, but only if married to Meg's, thus:
Code:
FOR i = 0 TO 360
IF(i = 0 THEN screen 13 ELSE PSET (SIN(3.14*I / 180) * 30 + 160, COS(3.14*i / 180) * 30 + 100)
NEXT
Ralph, using QuickBASIC 4.5 and Windows XP Home Edition and Service Pack 2, with HP LaserJet 4L printer.