home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l010 / 5.ddi / BASIC5.ARC / DISK_BAS.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-12-20  |  670 b   |  24 lines
  1. ' $INCLUDE: 'BBX_INC.BAS'
  2.  
  3. ' This Disk-Based BlackBox performs an ARCTANGENT operation.
  4. '
  5. ' It requests a variable to get the arctangent value of,
  6. ' and a variable to put that result into.
  7. '
  8.  
  9. DIM LanguageType as INTEGER
  10. DIM ArcTangentArgument as DOUBLE
  11. DIM ArcTangentResult as DOUBLE
  12.  
  13. CALLS Get.BlackBox.Parameters (3, LayoutInteger+InputOnly, LanguageType, _
  14.                   LayoutDouble, ArcTangentResult, _
  15.                   LayoutDouble, ArcTangentArgument)
  16.  
  17. ArcTangentResult = ATN (ArcTangentArgument)
  18.  
  19. CALLS Set.BlackBox.Parameters (3, LayoutInteger+InputOnly, LanguageType, _
  20.                   LayoutDouble, ArcTangentResult, _
  21.                   LayoutDouble, ArcTangentArgument)
  22.  
  23. END
  24.