В известной книжке написано, что "запись cимволов в служебную строку" можно сделать командой
poke &O160,peek(&o204)+&O36100
?"text"
Это неправильно. Неужели до сих пор никто не заметил? Или уже давно заметили?
Правильно надо так
v=peek(&o204)+&O36100
if v<16384 then v = v + 16384
poke &O160,v