'############ Directive ###############
#com 7
#picaxe 28x2
#no_data
#no_table
#terminal 9600

'######### CONSTANTS ##################
 symbol toSD  =c.6
 symbol fromSD=c.7

symbol junk =w0
symbol S_pos = b3


init:


main:

   let S_pos = 1
    gosub senddata
    pause 100
    let S_pos = 2
    gosub senddata
    pause 100
   let S_pos = 3
   gosub senddata
   pause  100
   goto main


   senddata:
       high toSD,2
       pulsin fromSD, 2, junk
       low toSD
       serout toSD,n4800_8, (S_pos)
        sertxd ("sent",#S_pos, cr, lf)
       return