Well, in case you do, this is the headachiest:
To strike through (A - a text): (- PrintWithStrikethrough({A}); -);
Include (-
[ AddUnicode822 ch;
glk_put_char_uni(ch);
if (ch ~= 10)
glk_put_char_uni(822);
];
[ PrintWithStrikethrough text;
@setiosys 1 AddUnicode822;
TEXT_TY_Say(text);
@setiosys 2 0;
new_line;
];
-);