;@modern
; A ship that flies across the screen: player 0

BYTE ARRAY ship=[$18 $3C $7E $FF $DB $FF $24 $42]

PROC Main()
  BYTE x, y=[120]

  PrintE("A ship made of player 0")
  PMGraphics(1)                       ; players on, one line per byte
  PMCreate(0, ship, 8, 1, 48, y)      ; player 0: 8 rows, width 1, x=48
  PMColor(0, 1, 10)                   ; yellow
  Print("Its shape lives at ")
  PrintCE(PMAdr(0)+y)

  FOR x=48 TO 200
  DO
    PMWait()                          ; one step per frame
    IF x&16 THEN y==+1 ELSE y==-1 FI  ; up and down in steps of 16
    PMMove(0, x, y)
  OD

  Print("The ship stopped at x=")
  PrintB(PMX(0))
  Print(", y=")
  PrintBE(PMY(0))
RETURN