There are quite a few compile-able PIC BASICs, off the top of my head, there's sourceboot basic, swordfish basic, proton basic/amicus, they all uk based and have free-ish versions, then theres, great cow basic and mikroelectronica basic, they'll be a lot more I'm sure.
We even have some simple examples of some of them for the xino, here's a splash of code, you'll see differences but nowhere near how scary C is
Miles
PICAXE 28?1 & 28?2
config:
symbol HSBAUD=B9600_4 'set the baud rate for the high speed serial port
'
init:
hsersetup HSBAUD, %01 'put the serial port into the right mode
high 6 'turn the socket on
pause 50 'wait a tiny amount of time for X device to power up
'
main:
hserout 0,("Hello") 'send the message
pause 1000 'wait a second
goto main 'keep repeating the message
'
PROTON/AMICUS for Proton you will need to ?set-up? the PIC, AMICUS does it for you, the same basic code is common to both.
Config:
Clear 'Clears all memory after a soft reset, not vital
Hserial_Baud = 9600 'Set baud rate, XRF and XBee default at 9600bps
'
Init:
High RB6 'turn the socket on
DelayMS (50) 'wait a tiny amount of time for X device to power up
'
Main:
HRSOut "Hello" 'send the message
DelayMS 1000 'wait a second
Goto Main 'keep repeating the message
'
Swordfish BASIC
Device = 18f25k20 'tell the compiler we are using the 25K20
Clock = 16 'set the PIC to 16Mhz
Include "usart.bas" 'tell the compiler to include the serial library
USART.SetBaudrate (br9600) 'set baud rate, XRF and XBee default at 9600bps
High(PORTB.6) 'turn the socket on
DelayMS (50) 'wait a tiny amount of time for X device to power up
'
Main:
USART.Write("Hello") 'send the message
DelayMS (1000) 'wait a second
GoTo main 'keep repeating the message
________
halfbaked