set desiredPort to "/dev/cu.usbserial"

set tSpeed to "38"

try
	set tPort to serialport open desiredPort bps rate 4800 data bits 8 parity 0 stop bits 1 handshake 3
	delay 0.1
	
	serialport write ("KS;") to tPort
	delay 0.1
	
	set originalSpeed to serialport read tPort
	delay 0.1
	set originalSpeed to (get (characters 4 through 5 of originalSpeed) as string) as integer
	
	serialport write ("KS0" & tSpeed & ";") to tPort
	delay 0.1
	
	serialport write ("KS;") to tPort
	delay 0.1
	
	set currentSpeed to serialport read tPort
	delay 0.1
	set currentSpeed to (get (characters 4 through 5 of currentSpeed) as string) as integer
	
	display dialog "Original Speed: " & originalSpeed & return & "Current Speed: " & currentSpeed giving up after 5 buttons ("OK") default button "OK"
	
	serialport close tPort
on error
	serialport close tPort
end try