That doesn't look like PicBasicPro to me...

Code:
Dim rtcyear as     byte
Dim rtcday  as     byte
Dim rtcmonth as    byte
Dim rtcdate as     byte
Dim rtchr   as     byte
Dim rtcmin  as     byte
Dim rtchr1   as     byte
Dim rtcmin1  as     byte
Dim rtcsec  as     byte
Dim rtccontrol as  byte
dim b0 as byte
dim b1 as byte
Delayms 100    ' Wait for LCD to startup
print at 3,1, dec2 rtchr, ";", dec2 rtcmin		
Shout IO,SCLK,LSBFIRST,[$8e,0]		' Enable write
Shout IO,SCLK,LSBFIRST,[$be,rtcsec,rtcmin,rtchr,rtcdate,rtcmonth,rtcday,rtcyear,0]
Maybe you should try the correct forums...