need a project for PIC16F84

[Danish]

HI ANYONE HELP ME OUT HERE BECAUSE I WROTE THIS PROGRAM AND IT COMMING UP WITH THE COMPILING ERROR AND ALSO I AM USING THE PICBASIC COMPILER AND THE EVERY TIME I COMPILE THE ERROR COMES UP THAT THIS TWO LINES ARE WRONG THE LINES THAT HAVE A *** NEXT TO THEM MEANS THAT THEY ARE THE LINES THAT HAD THE ERROR AND ALSO BELOW IS THE PROGRAM THIS PROGRAM HAS TWO SWITCHES ONE INCRESE THE DELAY OF THE BINARY COUNTING LEDS AND ONE TO DECREASE. I DIDN'T COMPILE YET BECAUSE IT KEEPS COMING UP WITH THE COMPILING ERRORS AND ALSO I TRIED MAKING SOME CHANGES IN THE PROGRAM AND I FOUND SOME MISTAKES OF MY OWN AND I FIXED THEM BUT STILL ITS NOT WORKING SO CAN ANYONE HELP ME OUT WITH THIS.


'PROGRAM 4.2
SYMBOL TRISB = 134 'SET TRISB TO 134
***SYMBOL TRISB = 6 'SET PORT B TO 6
B1 = 0:B2 = 0
SYMBOL DELAY = W4 'INITILAIZE DELAY VARIABLE
W4 = 250 'INITIALIZE VARIABLE TO 250 MS DELAY
'INITIALIZE PORT(S)
POKE TRISB,192 'SET PORT B PINS 0-5 TO OUTPUT, PINS 6 AND 7
'TO INPUT
loop1: 'MAIN COUNTING LOOP
FOR B0 = 0 TO 63
***POKE PortB, B0 'PLACE B0 VALUE AT PORT TO LIGHT LEDS
PAUSE DELAY 'WITHOUT PAUSE COUNTING IS TOO FAST TO SEE
B1 = 0: B2 = 0
button 7,0,1,0,B1,1,loop2 'CHECK SW1 STATUS - IF CLOSED JUMP
'DELAY SAME
BUTTON 6,0,1,0,B2,1,loop3 'CHECK SW2 STATUS - IF CLOSED JUMP
'DELAY SAME
NEXT B0 'NEXT B0 VALUE
GOTO loop1
loop2: 'LOOP2 INCREASES TIME DELAY
DELAY = DELAY + 10 'INCREASE BY 10 MS DELAY
B1 = 0: PAUSE 100
BUTTON 7,1,1,0,b1,1,loop1 'CHECK BUTTON STAUS - IF OPENED JUMP
'INCREASING
IF DELAY > 1000 THEN hold1 'DON'T GO OVER 1-S DELAY
GOTO loop2
loop3: 'SECOND LOOP DECREASES DELAY
DELAY = DELAY -10 'DECREASE DELAY BY 10 - MS
B2 = 0:PAUSE 100
BUTTON 6,1,1,0,B2,1,loop1 'CHECK BUTTON STATUS - IF OPENED JUMP
'DECREASING
IF DELAY < 20 THEN hold2 'NOT LESS THAN 10 MS DELAY
GOTO loop3
hold1: 'MAINTAIN DELAY AT UPPER LIMIT
DELAY = 1000 'MAXIMUM DELAY
GOTO loop2 'RETURN TO THE CALLING LOOP
hold2: 'MAINTAIN DELAY AT LOWER LIMIT
DELAY = 10 'MINIMUM DELAY
GOTO loop3 'RETURN TO THE CALLING LOOP


AND ALSO WHEN I COMPILE IT COMES WITH THESE MESSAGES BELOW:

ERROR Line 13: Attempt to Redefine 'TRISB' (2SWITCH.BAS)
ERROR Line 22: Variable or Constant Expected (Token 'PortB') (2SWITCH.BAS)
ERROR Line 22: End of Line or ':' Expected (Token ',') (2SWITCH.BAS)

FORGET ABOUT THE LINES THE ONES I MARKED *** ARE THE PROBLEMS.

I WILL REALLY APPRECIATE A REPLY
THANKS