myNodeID  con 2
busPin    con 0
signalPin con 1
baudmode  con 16390
backPacket con 255

packet var byte(10)
packetStart var byte(2)

packetStart(0) = 0
packetStart(1) = 0
dirs = %1111111111111111
outs = 0
input busPin

main:
        gosub readPacket
	gosub usePacket
        pause 100
goto main

usePacket:
	if packet(0) = badPacket then upEnd
	' check for packet typoe you want and do something
upEnd:
return

makePacket:
        packet(0) = 1
        packet(1) = myNodeID
        packet(2) = 1
        packet(3) = 1
        packet(4) = 1
        packet(5) = 1
        packet(6) = 1
        packet(7) = 1
        packet(8) = 1
        packet(9) = 1
return

' do not change anything beyond this point

writePacket:
        if in0 = 1 then writePacket
writePacket2:
        if in0 = 0 then writePacket2
        serout signalPin, baudmode, [str packetStart\2, str packet\10]
return

readPacket:
        serin signalPin, baudmode, 25, noPacket, [waitstr packetStart\2, str packet\10]
'        debug dec packet(0), dec packet(1), dec packet(2), cr
	goto rpEnd
noPacket:
	packet(0) = badPacket
rpEnd:
return