home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / misc / apl-z.ark / ASIN.ACO < prev    next >
Encoding:
Text File  |  1987-08-23  |  256 b   |  11 lines
  1.       Gr^asin b
  2. ;10[ ~+1#b{/err
  3. ;20[ ~+1%Mb{/one
  4. ;30[ r^atan b=+1*b-b{P0.5
  5. ;40[ ~0
  6. ;50[ one>r^0.5-O-b
  7. ;60[ ~0
  8. ;70[ err>Kdomain errorK
  9. ;80[ ~
  10.       G