1 2 3 4 5 6 7 8
byte screen @ 1024 define main routine trashes a, z, n, screen { ld a, 83 st a, screen }