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