home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / DECIMAL.SCR < prev    next >
Text File  |  1992-01-10  |  397b  |  15 lines
  1. > timeout = 0
  2. > windowshow()
  3. > ; watch(on) 
  4. > numvar = 15
  5. > ops = 10
  6. > result = numvar + ops
  7. > message('Result of test1 is ' + valtostr(result))
  8. > result = numvar * ops
  9. > message('Result of test2 is ' + valtostr(result))
  10. > result = numvar - ops
  11. > message('Result of test3 is ' + valtostr(result))
  12. > result = numvar / ops
  13. > message('Result of test4 is ' + valtostr(result))
  14. > wait()
  15.