anchor.diff:  		(begin
   			(cond
   				((= (trim cmd ) "AT+PING")
  -					(if (string? str)
  -						(setq cmd_line (string "d8 " (slice content 0 2) " " (slice content  2 4) " 70 69 6e 67"))
  -					)
  -				)
  -				((= (trim cmd ) "AT+SD") ;;̵ַ
  -					(if (string? str)
  -						(setq cmd_line (string "d8 " (slice content 0 2) " " (slice content 2 4) " 02"))
  -					)
  -				)
  +					(if (string? str);;ַʽ
  +						(setq cmd_line (string "70 69 6e 67"))
  +					)
  +				)
  +				
   				((= (trim cmd) "AT&PWM");; pwm wave; xx xx, 14 r g b a 
   					(if (and (= (length str) 2) (list? str)) 
   						(begin
  
positive.code: )
  
  (setq dev1 DEV1);; ûпwin
  
  
  (define (strtohex str);;xx xx xx to hex
  
negative.code: ;; fork now
  (setq cpid1 (spawn 'read_p (read_serial_process)))
  (setq cpid2 (spawn 'tcp_p1 (tcp_8083)))
  
  (set 'server (net-listen 8087))
  	
  