' *** CL_RLINE.LST *** 2nd GFA-Manual, page 9-11 ' *** Clear current line from cursor-position DEFFN clr_rest_line$=CHR$(27)+"K" ' *** '