start | all-pages
sampleterminaprogram
:hints
'Previous #1 ti:add-hint
'Next #2 ti:add-hint 'Quit #0 ti:add-hint ;
:actions
&prev $1 ti:set-action &next $2 ti:set-action
&ti:done $0 ti:set-action ;
:display
clear list# ;
:block-viewer [ &actions &hints &display ] ti:application ;
. Above is a short (termina) block viewer program