home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / prtfolio / 2curve.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-22  |  367 b   |  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. if isrun then run "menu" else system
  22. ə