assign byte screen 1024
routine main {
   ldy #0
   repeat bne {
      inc screen
      dey
      cpy #0
   }
   sty screen
}