'************************************************* ***************
'* Name : UNTITLED.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2009 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 27/04/2009 *
'* Version : 1.0 *
'* Notes : *
'* : *
'************************************************* ***************

DEFINE OSC 20
TRISB = %00000000
PORTB = 0

START:
PORTB.1 = 1
PAUSE 1000
PORTB.1 = 0
PAUSE 1000
GOTO START
++++++++++++++++++++++++++++++++++++++++++++++++++ ++


The frequency is 20 MHz.