
' byte test
pindex 0

pro ps
pim abc(1) as byte

abc(0) =0x80 '0x60 
abc(1) =0x0

ps = abc(0) + abc(1)*256
printy ps 'answer 128

abc(0) =0x0
abc(1) =0x1

ps = abc(0) + abc(1)*256
print ps 'answer 256

ps = abc(0) + abc(1)*384
printy ps 'answer 384

'overflow

abc(1)=0
abc(0)=255
abc(0)+=2
p? "" abc(0) "  " str(abc(1)) 'answer 1 0

'clear var

ps=512 : abc(0)=1
ps=abc(0)
p? ps 'answer 1
          