' {$STAMP BS2} ' {$PBASIC 2.5} DEBUG "North-South and East-West Traffic Light", CR DO HIGH 13: HIGH 5 PAUSE 30000 LOW 13 HIGH 14 PAUSE 10000 HIGH 4 LOW 5 LOW 14 HIGH 15 PAUSE 10000 LOW 4 HIGH 3 PAUSE 10000 PAUSE 10000 PAUSE 10000 LOW 3 PAUSE 10000 LOW 15 LOOP