//
//  ClipAppend.vdm       Ch. Ziemski   04.05.2001
//
//  appends the marked block to the Windows Clipboard
//

#103=Buf_Num                     // get the current clipboard content
Buf_Switch(Buf_Free(EXTRA))      
Clip_Ins()
#121=Reg_Free()
Reg_Copy_Block(#121, 0, File_Size)    // and put it into a temp. T-Reg
Buf_Quit(OK)
Buf_Switch(#103)
                       // append the marked block and copy all into clipboard
Reg_Copy_Block(#121, Block_Begin, Block_End, CLIPBOARD+APPEND)
Reg_Empty(#121)

//----------------------------------------------------------------------------------
// Suggestion for an easier implementation (and for other purposes):  
//
// Additional command/options:
//
// Reg_Load_Clip(#121)           // to load a T-Reg directly from Windows Clipboard
// Clip_Copy_Block(p, q, APPEND) // to append to clipboard (and INSERT too)
//----------------------------------------------------------------------------------