home *** CD-ROM | disk | FTP | other *** search
-
- color$(0) = "red"
- color$(1) = "green"
- color$(2) = "blue"
-
- 'open a graphics window
- open "graphics" for graphics as #1
- print #1, "fill black"
- print #1, "down"
- print #1, "home"
- print #1, "north"
- for x = 1 to 75
- print #1, "color "; color$(i)
- print #1, "go ";x
- print #1, "turn 125"
- i = i + 1
- if i = 3 then i = 0
- next x
- input r$
- close #1