home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / UTILITY / BATCH / BCSRCE2.ZIP / #.BC next >
Encoding:
Text File  |  1990-03-05  |  2.4 KB  |  79 lines
  1. echo off
  2. let %!a = %1
  3. if %!a@ = @ goto MENU
  4. if "%!a" = "+" gosub PLUS
  5. if "%!a" = "-" gosub SUBT
  6. if "%!a" = "/" gosub DIVI
  7. if "%!a" = "*" gosub MULT
  8. if "%!a" = "\" gosub MODU
  9. if %!a = ADD gosub PLUS
  10. if %!a = SUBTRACT gosub SUBT
  11. if %!a = DIVIDE gosub DIVI
  12. if %!a = MULTIPLY gosub MULT
  13. if %!a = MODULUS gosub MODU
  14. goto END
  15. :PLUS
  16. let %!b = %2
  17. if %!b@ = @ goto MENU
  18. let %!c = %3
  19. if %!c@ = @ goto MENU
  20. add %!b %!c
  21. !echo %!b
  22. return
  23. :DIVI
  24. let %!b = %2
  25. if %!b@ = @ goto MENU
  26. let %!c = %3
  27. if %!c@ = @ goto MENU
  28. div %!b %!c
  29. !echo %!b
  30. return
  31. :MODU
  32. let %!b = %2
  33. if %!b@ = @ goto MENU
  34. let %!c = %3
  35. if %!c@ = @ goto MENU
  36. mod %!b %!c
  37. !echo %!b
  38. return
  39. :MULT
  40. let %!b = %2
  41. if %!b@ = @ goto MENU
  42. let %!c = %3
  43. if %!c@ = @ goto MENU
  44. mul %!b %!c
  45. !echo %!b
  46. return
  47. :SUBT
  48. let %!b = %2
  49. if %!b@ = @ goto MENU
  50. let %!c = %3
  51. if %!c@ = @ goto MENU
  52. sub %!b %!c
  53. !echo %!b
  54. return
  55. :MENU
  56. echo     ══════════════════════════════════════════════════════════════════════════
  57. echo     MENU---:  MATH ADD #1 #2                             [Integers only]
  58. echo     EXAMPLE--:  ADD 2345 678    {returns 3023}
  59. echo     NOTE-----:  + #1 #2        {can be used in place of ADD}
  60. echo     ══════════════════════════════════════════════════════════════════════════
  61. echo     MENU---:  MATH SUBTRACT #1 #2                        [Integers only]
  62. echo     EXAMPLE--:  SUBTRACT 2345 678    {returns 1667}
  63. echo     NOTE-----:  - #1 #2        {can be used in place of SUBTRACT}
  64. echo     ══════════════════════════════════════════════════════════════════════════
  65. echo     MENU---:  MATH DIVIDE #1 #2                          [Integers only]
  66. echo     EXAMPLE--:  DIVIDE 25 5     {returns 5}
  67. echo     NOTE-----:  / #1 #2        {can be used in place of DIVIDE}
  68. echo     ══════════════════════════════════════════════════════════════════════════
  69. echo     MENU---:  MATH MODULUS #1 #2                         [Integers only]
  70. echo     EXAMPLE--:  MODULUS 30 7     {returns 2} [hint 2=(30-(7*4)]
  71. echo     NOTE-----:  \ #1 #2        {can be used in place of MODULUS}
  72. echo     ══════════════════════════════════════════════════════════════════════════
  73. echo     MENU---:  MATH MULTIPLY #1 #2                        [Integers only]
  74. echo     EXAMPLE--:  MULTIPLY 23 67     {returns 1541}
  75. echo     NOTE-----:  * #1 #2        {can be used in place of MULITPLY}
  76. echo                            ▒ Tip:  RENAME MATH.EXE #.EXE ▒
  77. goto END
  78. :END
  79.