home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 3
/
CDASC03.ISO
/
news
/
1601
/
circles.bas
< prev
next >
Wrap
BASIC Source File
|
1993-04-01
|
564b
|
25 lines
' draw a set of concentric circles
dim color$(4)
color$(1) = "red"
color$(2) = "blue"
color$(3) = "green"
color$(4) = "yellow"
open "Circles" for graphics as #1
count = 1
print #1, "home"
print #1, "down"
print #1, "size 6"
for x = 124 to 0 step -12
print #1, "color "; color$(count)
count = count + 1
if count > 4 then count = 1
print #1, "circle "; x
next x
print #1, "flush"
input r$
close #1