VIEW-NEXT-LINE VARIANT VLIST
VIEW-NEXT-LINE
* VIEW-NEXT-LINE ( src . str len -- src . str len str2 len2 )

Copy next line above current line. 
 : VIEW-NEXT-LINE 
    2OVER 2DUP #EOL-CHAR SCAN NIP - ;

FORTH/DEF toolbelt ordinary primitive