home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / zip / portfoli / pbas45.lzh / 2curve.bas < prev    next >
BASIC Source File  |  1990-11-25  |  340b  |  22 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. alarm
  20. screen 7
  21. system
  22. ə