/** BOX XEDIT
**
** Inserts a comment box at the line the BOX command entered.
**
** Author: [EMAIL PROTECTED]
** Date: 15-Sep-2005
**
**/
trace off
parse source . . . . . name .
arg pref func pline op extra
if pref \= 'PREFIX' then call error1,
'This macro must be invoked from the PREFIX area.'
if func = 'CLEAR' then exit
if func = 'SHADOW' then call error1,
'Invalid on SHADOW line.'
if func \= 'SET' then call error1,
'This macro must be invoked from the PREFIX area.'
if op \= '' then call error1,
'Extraneous operand:' op
if extra \= '' then call error1,
'Extraneous parameter:' extra
'COMMAND :'pline
'COMMAND EXTRACT/CURLINE/'
b1 = '/****************************************************************
********'
b2 = '*
*'
b3 = '*****************************************************************
*******/'
'COMMAND INPUT' b1
'COMMAND INPUT' b2
'COMMAND INPUT' b3
Exit 0
/* Error routines */
error1:
parse arg t
'COMMAND EMSG' name': 't
exit
