home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 3 Comm
/
03-Comm.zip
/
scrmod.zip
/
HEXIDEC.SCR
< prev
next >
Wrap
Text File
|
1992-01-10
|
1KB
|
45 lines
> timeout = 0
> windowshow()
> ; watch(on)
> numvar = 010H
> ops = 001H
> result = numvar + ops
> message('Result of test1 is ' + valtostr(result))
> result = numvar * ops
> message('Result of test2 is ' + valtostr(result))
> result = numvar - ops
> message('Result of test3 is ' + valtostr(result))
> result = numvar / ops
> message('Result of test4 is ' + valtostr(result))
> var1=01H
> var2=01H
> var3=02H
> if (var1 != var3)
> message ('Operator != works just fine')
> endif
> if (var1 == var2)
> message ('Operator == works just fine')
> endif
> if (var1 <= var2)
> message ('Operator <= works just fine')
> endif
> if (var1 >= var2)
> message ('Operator >= works just fine')
> endif
> if (var1 < var3)
> message ('Operator < works just fine')
> endif
> if (var3 > var1)
> message ('Operator > works just fine')
> endif
> wait()
> if (var1 == 1 && var2 == 1)
> message ('Operator && works and detected similar values for the operands')
> else
> message ('Operator && works and detected different values for the operands')
> endif
> if (var1 ==1 || var3 == 1)
> message ('Operator || works just fine')
> endif
> wait()