home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / zip / portfoli / pbasprgs.lzh / 2curve.bas next >
BASIC Source File  |  1991-08-21  |  384b  |  21 lines

  1. cls
  2. print "2CURVE.BAS (c) R. Kunstadt 1990"
  3. print 
  4. print "Press RTN to start. To bring"
  5. print "up DOS when done, press RTN."
  6. input "",a
  7. REM draw first curve
  8. cls
  9. screen 4
  10. for y = 1 to 61
  11. x = (abs(y-60))^2 / 15
  12. pset (x,y)
  13. next y
  14. REM draw mirror image
  15. for y = 1 to 61
  16. x = y^2 / 15
  17. pset (x,y)
  18. next y
  19. input "", a
  20. screen 7
  21. system=əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə