' IR Controlled Socbot ' Sony TV Remote Protocol ' 7 July 2008 ' v 1.2 MAIN: let dirs= %00010111 BEGIN: let pins= %00000000 infrain2 let b0 = infra if b0= 16 then AHEAD ' CH+ if b0= 19 then LEFT ' VOL- if b0= 18 then RIGHT ' VOL+ goto BEGIN AHEAD: let pins= %00010111 ' Outputs 0,1,2,4 HIGH pause 100 goto MAIN LEFT: let pins= %0000011 ' Outputs 0,1 HIGH 2,4 LOW pause 100 goto BEGIN RIGHT: let pins= %00010100 ' Outputs 2,4 HIGH 0,2 LOW pause 100 goto MAIN