assign byte screen 1024
routine main {
   repeat bcc {
      inc screen
      clc
   }
}