byte screen @ 1024

define main routine
  trashes a, z, n, screen
{
  ld a, 83
  st a, screen
}