home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / libbasic / ellipses.bas < prev    next >
BASIC Source File  |  1992-09-07  |  310b  |  15 lines
  1.  
  2.     ' draw some ellipses
  3.  
  4.     nomainwin
  5.  
  6.     open "Ellipses" for graphics as #1
  7.         print #1, "down"
  8.         print #1, "place 130 130"
  9.         for x = 30 to 230 step 10
  10.             print #1, "ellipse "; x ; " "; 260 - x
  11.         next x
  12.         print #1, "flush"
  13.         input r$
  14.     close #1
  15.