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 12
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