#============================================================================== # Addblockint calls makebody to make a body of notes to be appended to # the current roster body. #============================================================================== addblockint IS OP DBName RName { IF RName ~= DBName THEN mainwindow 'ADDING NOTES'; oldhead := head (value RName); oldbody := body (value RName); newblock := makebody oldhead 'y'; newbody := makezones ((makenotes oldbody) link (makenotes newblock)); clearwindow; RName assign ((oldhead)(newbody)); (calculatedisplay (value RName))(RName) ELSE comments 'Can''t change Master'; (replace&exit)(RName) ENDIF }