Nada animo a que vayais poniendo aqui vuestros programas y que van realizando para que todos vayamos aprendiendo el basicstamp2 que para los que empezamos es muy facil.

yo pongo uno sencillito

' {$STAMP BS2}
' {$PBASIC 2.5}
'variables
IZQUIERDA VAR Bit
DERECHA VAR Bit
TIEMPO1 VAR Byte
TIEMPO VAR Byte
DO
FOR TIEMPO =1 TO 20
PULSOUT 7,850
PAUSE 20
PULSOUT 6,150
PAUSE 20
LOOP
' bucle donde me reconoce las entradas INO Y IN1 y lo que debe hacer en cada momento
'llamando a la subrrutina

INICIO:
DO
IZQUIERDA = IN0
DERECHA = IN1
' condiciones
IF (DERECHA =0) AND (IZQUIERDA =0) THEN
GOSUB MDERECHA
ELSEIF (IZQUIERDA =0) THEN
GOSUB MIZQUIERDA
ELSEIF (DERECHA =0) THEN
GOSUB MDERECHA
ELSE
GOSUB MRECTO
ENDIF
LOOP

'subrrutina
MDERECHA:
FOR TIEMPO1 = 1 TO 20
HIGH 12
LOW 13
PULSOUT 5,850
PAUSE 20
NEXT
'vuelve a la subrrutina inicio
GOTO INICIO

MRECTO:
LOW 12
LOW 13

PULSOUT 5,550
PAUSE 20

GOTO INICIO

MIZQUIERDA:
FOR TIEMPO1 = 1 TO 20
HIGH 13 ' nivel alto para iluminar led por ejemplo
LOW 12' nivel bajo para apagar led por ejemplo
PULSOUT 5,100 ' pulso enviado a la patilla numero 5 donde hay servo
PAUSE 20
NEXT
GOTO INICIO

PAUSA:
HIGH 12
HIGH 13
PAUSE 1000
GOTO INICIO