There are many ways, here is one:
this variant sets PortB.0 High for 60 secs. after PortB.1 has gone High.
Then it loops in the DoNothing loop until PortB.1 has gone low again.
Setting PortB.1 high again restarts the process.
i Var Byte
Loop:
If PortB.1=1 Then
High PortB.0
for i=1 to 60
Pause 1000
next
Low PortB.0
EndIf
DoNothing:
If PortB.1=1 Then
Goto DoNothing
EndiF
Goto Loop




Bookmarks