...
start:
...
if portb.1 = 1 then
gosub dez
portc.1 = 1
gosub dez
portc.2 = 1
gosub dez
portc.3 = 1
gosub dez
portc.4 = 1
gosub dez
endif

dez:
for i = 1 to 20
pause 10
if portb.2 = 1 then
goto start
endif
next i