home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / PLINESYS.ZIP / MATH.CMD < prev    next >
Encoding:
Text File  |  1991-03-15  |  948 b   |  67 lines
  1. *
  2. * MATH.CMD
  3. *
  4. * Shows how the integer math stuff works ...
  5. *
  6.  
  7. *
  8. * Increment 
  9. *
  10. Define value
  11.  
  12. Assign Value 1
  13. Display Value is: &value
  14.  
  15. Increment Value By 1
  16. Display Value is: &value
  17.  
  18. Increment Value 1
  19. Display Value is: &value
  20.  
  21. Increment Value By 1
  22. Display Value is: &value
  23.  
  24. AnyKey All Done With Increment #1 Press Any Key ...
  25.  
  26. Assign Value 1
  27.  
  28. :Add_To_It
  29.     Display Value is: &value
  30.     Increment Value 1
  31. Goto Add_To_It While Compare &value <= 100
  32.  
  33. AnyKey All Done With Increment #2 Press Any Key ...
  34.  
  35. *
  36. * Decrement
  37. *
  38. :Subtract_From_It
  39.     Display Value is: &value
  40.     Decrement Value 1
  41. Goto Subtract_From_It While &value >= 0
  42.  
  43. AnyKey All Done With Decrement Press Any Key ...
  44.  
  45. *
  46. * Divide
  47. *
  48. Define Value2
  49.  
  50. Assign Value 500
  51.  
  52. Assign Value2 &value
  53.  
  54. Divide Value2 2
  55.  
  56. Message &value DIVIDED by 2 = &value2
  57.  
  58. *
  59. * Multiply
  60. *
  61. Assign Value2 &value
  62.  
  63. Multiply Value2 By 2
  64.  
  65. Message &value TIMES 2 = &value2
  66.  
  67.