home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / libbasic / circles.bas < prev    next >
BASIC Source File  |  1992-05-18  |  564b  |  25 lines
  1.  
  2.  
  3.     ' draw a set of concentric circles
  4.  
  5.     dim color$(4)
  6.     color$(1) = "red"
  7.     color$(2) = "blue"
  8.     color$(3) = "green"
  9.     color$(4) = "yellow"
  10.  
  11.     open "Circles" for graphics as #1
  12.         count = 1
  13.         print #1, "home"
  14.         print #1, "down"
  15.         print #1, "size 6"
  16.         for x = 124 to 0 step -12
  17.             print #1, "color "; color$(count)
  18.             count = count + 1
  19.             if count > 4 then count = 1
  20.             print #1, "circle "; x
  21.         next x
  22.         print #1, "flush"
  23.     input r$
  24.     close #1
  25.