SetCommPort 7,6,8,0,1,0      'set com#,baud rate(9600),data bits,parity,stop bits,flow cntr
loop:
  Joystick 1,x,y,z,b         'get joystick values 
  x = tobyte(round(x*255))   'round them out 0-255 and turn to ascii byte
  y = tobyte(round(y*255))
  b = tobyte(b)              'turn button value to ascii byte 
  serout "#","}","!",x,y,b   'send out to serial port using #,},! to use as filter with reciever
goto loop  