' {$STAMP BS2}
' {$PBASIC 2.5}
DEBUG "program"
DO
  PAUSE 100
  HIGH 8
  HIGH 9
  HIGH 10
  HIGH 11
  HIGH 12
  HIGH 13
  HIGH 14
  HIGH 15
  PAUSE 2000
  LOW 8
  LOW 9
  LOW 10
  LOW 11
  LOW 12
  LOW 13
  LOW 14
  LOW 15
  PAUSE 100
  HIGH 8
  HIGH 9
  HIGH 10
  HIGH 11
  HIGH 12
  HIGH 13
  HIGH 14
  HIGH 15
  PAUSE 2000
  LOW 8
  LOW 9
  LOW 10
  LOW 11
  LOW 12
  LOW 13
  LOW 14
  LOW 15
  PAUSE 1000
LOOP