'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2007 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 6/14/2007                                         *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
TRISB = %00000000

step0 var PORTB.0
step1 var PORTB.1
step2 var PORTB.2
step3 var PORTB.3


symbol delay = 3

PORTB = 0

loop:
low step3
high step1
pause delay

low step1
high step2
pause delay

low step2
high step0
pause delay

low step0
high step3
pause delay

goto loop