high c.0  'left eye
high b.7  'right eye


goto loop2


main1:      '20x2 serin and serout
b1=0
 serin c.1,t4800,(1),b1 'serin white wire, receive 1 byte after receiving 1
pause 30

if b1 < 5 then main1
if b1 < 6  then face1
if b1 < 11 then face2

'debug b1

goto main1


face1:
low c.0   'b1=5 blink left
pause 1500
high c.0
goto main1

face2:
low b.7   'b1=10 blink right
pause 1500
high b.7
goto main1


main:
servo b.6,120
servopos b.6,120  ; frown move t-pro servo to left 110
pause 400         
input b.6
pause 2000

servo b.6,190
servopos b.6,190   ; smile move servo to other end-right 210
pause 600
input b.6
pause 2000

goto main   

loop3:
low b.0
low b.1
low b.2
low b.3
low b.4

pause 3000

loop2:  'light smile
servo b.6,190
servopos b.6,190  ; smile move t-pro servo to right 210
pause 400         
input b.6
pause 2000


high b.2
pause 150
high b.1
pause 150
high b.3
pause 150
high b.0
pause 150
high b.4

loop5:
goto loop5