i Var Byte

Loop:

If PortB.1=1 Then

Hgh PortB.0

for i=1 to 60
Pause 1000
next

Low PortB.0

EndIf

Goto Loop