home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / appl / scihelpe.sit / example procedure < prev    next >
Encoding:
Text File  |  1986-01-13  |  585 b   |  27 lines  |  [TEXT/TEXT]
  1. label example
  2. prompt 'Hi there, Im Scientists Helper, a Scientific Data Manipulator'
  3. prompt 'please arrange the command and graphics windows'
  4. input junk 'so that they dont overlap, and hit return'
  5. delete variable junk
  6. allocate 128 2
  7. samp .025
  8. start -1.6
  9. interpolated true
  10. cmath 1 #/ 1 = 2
  11. cfunction sin 2 2
  12. clear
  13. scale 1 2
  14. axes
  15. plot 1 2
  16. plot 1 2 stars
  17. label loop
  18. cursor 'please select a point on the graph and click the mouse'
  19. prompt 'that point had coordinates ' @xpos ' and ' @ypos
  20. input answer 'pick another point ? y or n'
  21. if @answer s= y
  22. goto loop
  23. delete variable answer
  24. return
  25.  
  26.  
  27.