' {$STAMP BS2}
' {$PBASIC 2.5}

DEBUG "program"

DO
  HIGH 8
  PAUSE 200
  LOW 8
  HIGH 9
  PAUSE 200
  LOW 9
  HIGH 10
  PAUSE 200
  LOW 10
  HIGH 11
  PAUSE 200
  LOW 11
  HIGH 12
  PAUSE 200
  LOW 12
  HIGH 13
  PAUSE 200
  LOW 13
  HIGH 14
  PAUSE 200
  LOW 14
  HIGH 15
  PAUSE 200
  LOW 15
  HIGH 15
  PAUSE 200
  LOW 15
  HIGH 14
  PAUSE 200
  LOW 14
  HIGH 13
  PAUSE 200
  LOW 13
  HIGH 12
  PAUSE 200
  LOW 12
  HIGH 11
  PAUSE 200
  LOW 11
  HIGH 10
  PAUSE 200
  LOW 10
  HIGH 9
  PAUSE 200
  LOW 9
  HIGH 8
  PAUSE 200
  LOW 8
LOOP