/* * when after end of line move to end of line (just after last character) * if exactly at end of line move to last character (one to the left) * if inside the line move to beginning of line * if at beginning of line in filearea move down one line * if at beginning of line in prefix area do nothing * if at beginning of line in command line jump to file area in current line */ if \incommand() then do if after() & \leftedge() then do was = cursor.2() 'sos endchar' if cursor.2() = was then 'cursor escreen left' end else do if leftedge() then 'cursor escreen down' else /* 'cursor = 1' does not work as expected */ 'sos leftedge' end end else /* when in command line leftedge is not honored */ do if after() & \first() then do was = cursor.2() 'sos endchar' if cursor.2() = was then 'cursor escreen left' end else do if first() then 'sos current' else 'sos leftedge' end end exit