Hserin/out BYVAC serial LCD

[RFsolution]

Hi

Thanks for the char handling

thisone is working perfectly

hserout ["rg", 13]
Hserin 1000, start, [STR char\4\$06] ' Get a char from serial port
pause 10
if char[0] = $30 then
goto get_key
endif

char(0) = (char(0)-$30) * 100 'answer 200
char(1) = (char(1)-$30) * 10 'answer 30
char(2) = char(2)-$30 'answer 8
serout2 tx,84,[dec char[0]," ",dec char[1]," ",dec char[2],13,10]
b0 = char[0]+char[1]+char[2]
serout2 tx,84,[dec b0,13,10]
lookdown b0, [125,238,237,235,222,221,219,190,189,187,231,215,18 3,119,126,123],keypressed
serout2 tx,84,[dec keypressed,13,10]
pause 10
Hserout ["rc1", 13] ' Send text followed by carriage return and linefeed
pause 10
Hserout ["rd","key= ",dec keypressed,13]
'keypressed = 0
pause 10

return

[aerostar]

If this is in a subroutine and get_key is not in the subroutine then you will get problems by not using RETURN, do not jump out of a subroutine.

if char[0] = $30 then
goto get_key
endif