!Clear all screens, infact only the terminal & Level 1 graphics at present
%include "inc:level1.imp"
%begin

%routine clear terminal screen
   %constinteger esc=27,clear='v'
   printsymbol(esc); printsymbol(clear)
%end

%on 0 %start
   clear terminal screen
   %return
%finish

clear { L1 screen }
clear terminal screen

%end