cls
print "2CURVE.BAS (c) R. Kunstadt 1990"
print 
print "Press RTN to start. To bring"
print "up DOS when done, press RTN."
input "",a
REM draw first curve
cls
screen 4
for y = 1 to 61
x = (abs(y-60))^2 / 15
pset (x,y)
next y
REM draw mirror image
for y = 1 to 61
x = y^2 / 15
pset (x,y)
next y
alarm
screen 7
system