home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 22
/
CD_ASCQ_22_0695.iso
/
win
/
prg
/
lb11wi
/
ellipses.bas
< prev
next >
Wrap
BASIC Source File
|
1992-09-06
|
310b
|
15 lines
' draw some ellipses
nomainwin
open "Ellipses" for graphics as #1
print #1, "down"
print #1, "place 130 130"
for x = 30 to 230 step 10
print #1, "ellipse "; x ; " "; 260 - x
next x
print #1, "flush"
input r$
close #1