home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / scrmod.zip / DECIMAL2.SCR < prev    next >
Text File  |  1992-01-10  |  1KB  |  45 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. > var1=1
  15. > var2=1
  16. > var3=2
  17. > if (var1 != var3) 
  18. > message ('Operator != works just fine')
  19. > endif
  20. > if (var1 == var2)
  21. > message ('Operator == works just fine')
  22. > endif
  23. > if (var1 <= var2)
  24. > message ('Operator <= works just fine')
  25. > endif
  26. > if (var1 >= var2)
  27. > message ('Operator >= works just fine')
  28. > endif
  29. > if (var1 < var3)
  30. > message ('Operator < works just fine')
  31. > endif
  32. > if (var3 > var1)
  33. > message ('Operator > works just fine')
  34. > endif
  35. > wait()
  36. > if (var1 == 1  && var2 == 1)
  37. > message ('Operator && works and detected similar values for the operands')
  38. > else
  39. > message ('Operator && works and detected different values for the operands')
  40. > endif
  41. > if (var1 ==1 || var3 == 1)
  42. > message ('Operator || works just fine')
  43. > endif
  44. > wait()
  45.