'% filename "t.exe"
'uses rtl64


'BYTE TYPE TESTS
'===============

indexbase 0

sys v

Dim a(1) as byte

a(0) =0x80
a(1) =0x0

v = a(0) + a(1)*256
print v 'answer 128

a(0) =0x0
a(1) =0x1

v = a(0) + a(1)*256
print v 'answer 256

v = a(0) + a(1)*384
print v 'answer 384


'OVERFLOW TEST

a(1)=0
a(0)=255
a(0)+=2
print "" a(0) "  " str(a(1)) 'answer 1 0


'CLEAR VAR TEST


v=512 : a(0)=1
v=a(0)
print v 'answer 1


          