home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
interpre
/
liberty
/
windows
/
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