AVR-Chat

please help me  
what is wrong in that program?  
the led doesn't turn off placing 5v in the pin 1 even  
in an AT90S4433 or atmeg8 it works
excuse my English  

$regfile = "at15def.dat"
$crystal = 1200000
Config Portb.0 = Input
Config Portb.1 = Output
Do
If Pinb.0 = 1 Then
   Reset Portb.1
   Waitms 500
End If
Set Portb.1
Waitms 500
Loop
End