Ayuda Mi tractor oruga

[NicolasVilla97]

Hola, en estos dias empese a programar e hice mi primer codigo en basic para Pics

Code: Select all

Define LCD_DREG PORTB
define LCD_DBIT 4
define LCD_RSREG PORTB
define LCD_RSBIT 1
define LCD_EREG PORTB
Define LCD_EBIT 2
cmcon=7
led var portb.3
portb.3=0
if x>50 then gosub prenderled
if x<50 then gosub apagarled
prenderled:
high led
pause 2000
return
apagarled:
low led
return
control var RAIO.0 'Pin 0
incrementar var RAIO.1'Pin 1
disminuir var RAIO.2'Pin 2
x var byte
r var byte
x=150
RAIO=0
trisio=%00000110
TrisB=0
B0 var byte'B0 como variable de bytes
B1 var byte'B1 como variable de bytes

pause 500

LCDOUT $FE, 1 'Limpiar LCD
lcdout $FE, 1, "Bienvenidos al proyecto"'Primer linea
lcdout $FE, $c0, "Tractor oruga" 'Segunda linea
pause 1000
Lcdout $FE, 1
lcdout $FE, 1, "algo"
lcdout $FE, $c0, "algo"
pause 1000 'Pausar

inicio:
pulsout control,x
gosub timer
gosub inicio
timer:
if incrementar=0 then gosub mas
if disminuir=0 then gosub menos
return
mas:
pause 10
x=x+1
if x>250 then x=250
return
menos:
pause 10
x=x-1
if x<50 then x=0
return
END

Mi error es el siguiente: Line 20: Bad Expression if x>50 then gosub prenderled
21:Bad expression if x<50 then gosub apagarled
29:Bad data type control var RAIO.0 'Pin 0
30:Bad data type incrementar var RAIO.1'Pin 1
31:Bad data type disminuir var RAIO.2'Pin 2
35: Syntax error RAIO=0

Podrian ayudarme? soy un novato, y se que esto por hay es mucho para mi primer proyecto!
Si es posible y tienen un curso, o taller de programacion de pics?