home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / os2 / program / liberty / graphics.bas < prev    next >
BASIC Source File  |  1993-12-29  |  398b  |  20 lines
  1.  
  2.   color$(0) = "red"
  3.   color$(1) = "green"
  4.   color$(2) = "blue"
  5.  
  6.   'open a graphics window
  7.   open  "graphics" for graphics as #1
  8.   print #1, "fill black"
  9.   print #1, "down"
  10.   print #1, "home"
  11.   print #1, "north"
  12.   for x = 1 to 75
  13.     print #1, "color "; color$(i)
  14.     print #1, "go ";x
  15.     print #1, "turn 125"
  16.     i = i + 1
  17.     if i = 3 then i = 0
  18.   next x
  19.   input r$
  20.   close #1