;@modern
; A bird that flaps its wings and glides down: PMShape and mode 3

BYTE ARRAY bird=[$81 $C3 $E7 $7E $3C $18 $00 $00  ; wings up
                 $00 $18 $3C $7E $E7 $C3 $81 $00] ; wings down

PROC Main()
  BYTE frame

  PMGraphics(3)                       ; two lines per byte, y in lines
  PMCreate(0, bird, 8, 2, 100, 40)    ; double width
  PMColor(0, 15, 10)                  ; orange

  FOR frame=0 TO 119
  DO
    PMWait()
    IF (frame&7)=0 THEN               ; another picture every 8 frames
      PMShape(0, bird+(frame&8), 8)
    FI
    PMVPos(0, 40+frame)               ; one line down every frame
  OD

  Print("The bird landed on line ")
  PrintBE(PMY(0))
RETURN