home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / znode3 / uploads / mouse-ex.lbr / CALC.MZE / CALC.MSE
Encoding:
Text File  |  1993-06-07  |  640 b   |  28 lines

  1.  
  2. "
  3. CALC.MSE, Version 1.4
  4.  
  5. This is a very simple integer calculator. It will compute the sum, 
  6. difference, product, quotient and modulus of two numbers entered at the 
  7. terminal.
  8.  
  9. Enter your first number: " ? a :
  10. "
  11. Enter your second number: " ? b :
  12.  
  13. "!" 
  14.  
  15. #M , a , b , c , '+ ; #M , a , b , c , '- ;
  16. #M , a , b , c , '* ; #M , a , b , c , '/ ;
  17. #M , a , b , c , '\ ;
  18.  
  19. "
  20.  
  21. Again? " ?' r : r . 'y - r . 'Y - * 0 = [ &CALC& ] "!"
  22.  
  23. $M  1 % . 2 % . 
  24. 4 % '+ = [ + ] 4 % '- = [ - ] 4 % '* = [ * ] 4 % '/ = [ / ] 4 % '\ = [ \ ] 
  25. 3 % :  "!"  1 % . ! 4 % !' 2 % . ! " = " 3 % . ! "!"
  26. @
  27.  
  28.