🚀 go-pugleaf

Someone was asking about the best way to get to the end of a line in
XEDIT. Here is a short macro that you can assign to a PF key to do
exactly that. Kudos to Andy Doremus (dormouse@oregon1.uoregon.edu) for
dreaming this up:


/**/
if arg(1)^='' then signal badarg
'COMMAND EXTRACT /TERMINAL/LINE/ZONE/SIZE/CURSOR/'
if terminal.1^='DISPLAY' then signal nodisp
if cursor.3<0 | cursor.4>zone.2 then
   signal badscr
'COMMAND PRESERVE'
'COMMAND SET LINEND OFF'
'COMMAND LOCATE :'cursor.3
'COMMAND EXTRACT /LENGTH/'
saverc=rc
'COMMAND LOCATE :'line.1
'COMMAND SET MSGMODE OFF'
'COMMAND CURSOR FILE' cursor.3 (length.1 + 1)
'COMMAND RESTORE'
exit saverc
NODISP:
  'COMMAND EMSG SJC529E EOL is only valid',
     'in display mode.'
  exit 3
BADSCR:
  'COMMAND EMSG SJC561E Cursor is not on a valid data field.'
  exit 3
BADARG:
  'COMMAND EMSG SJC520E Invalid operand :' arg(1)
  exit 5


-- 
David Boyes                   ARPA: 556%OREGON1.BITNET@WISCVM.WISC.EDU
Systems Division              BITNET: 556@OREGON1
University of Oregon Computing Center   UUCP: dboyes@uoregon.UUCP