'ISREDIT MACRO'
'ISREDIT (SL,SC) = CURSOR'
'ISREDIT F " " PREV '
'ISREDIT (FL,FC) = CURSOR'
'ISREDIT F " " '
'ISREDIT (LL,LC) = CURSOR'
'ISREDIT (DATA) = LINE .ZCSR'

LEN = LC - FC - 1

LWORD = SUBSTR(DATA,FC+1,LEN)

NL = "LENGTH OF "LWORD" = " LEN


'ISREDIT LINE_AFTER .ZCSR = MSGLINE<5 " 'NL '"'
'ISREDIT LINE_BEFORE .ZCSR = NOTELINE<5 " 'NL '"'
'ISREDIT CURSOR = (SL) (SC)'