home *** CD-ROM | disk | FTP | other *** search
/ Power CD-ROM!! 7 / POWERCD7.ISO / prgmming / tcyber25 / cyterm / math.scr < prev    next >
Text File  |  1994-10-19  |  1KB  |  71 lines
  1. ;CyberTerm script to test math functions of all var types using WaitFor to
  2. ;show output in log.  Also test divide by zero error.  DOUBLE and LONGINT
  3. ;tests do not work with Demoware version.
  4.  
  5. LogOn
  6. WaitForSepChar ','
  7. WaitForSecs 1
  8.  
  9. ;Declare vars
  10.  
  11. String  Str1
  12. LongInt Int1
  13. Double  Dbl1
  14.  
  15. ;Add
  16.  
  17. Assign Str1,'ONE'
  18. Add Str1,'TWO'
  19. WaitFor Str1
  20. Assign Int1,5
  21. Add Int1,10
  22. WaitFor Int1
  23. Assign Dbl1,1.1
  24. Add Dbl1,2.9
  25. WaitFor Dbl1
  26.  
  27. ;Subtract
  28.  
  29. Assign Str1,'ONE'
  30. Sub Str1,'TWO'
  31. WaitFor Str1
  32. Assign Int1,5
  33. Sub Int1,10
  34. WaitFor Int1
  35. Assign Dbl1,1.1
  36. Sub Dbl1,2.9
  37. WaitFor Dbl1
  38.  
  39. ;Multiply
  40.  
  41. Assign Str1,'ONE'
  42. Mul Str1,'TWO'
  43. WaitFor Str1
  44. Assign Int1,5
  45. Mul Int1,10
  46. WaitFor Int1
  47. Assign Dbl1,1.1
  48. Mul Dbl1,2.9
  49. WaitFor Dbl1
  50.  
  51. ;Divide
  52.  
  53. Assign Str1,'ONE'
  54. Div Str1,'TWO'
  55. WaitFor Str1
  56. Assign Int1,10
  57. Div Int1,3
  58. WaitFor Int1
  59. Assign Dbl1,10.0
  60. Div Dbl1,2.5
  61. WaitFor Dbl1
  62.  
  63. ;This line halts engine with divide by zero error
  64.  
  65. Div Dbl1,0.0
  66.  
  67. ;This line will not be executed because of previous divide by zero error
  68. ;halted engine.
  69.  
  70. WaitFor Dbl1
  71.