Pro-SiMPLE
Int data, eof
Open a ("read  C:\\SHELL.BMP")
Open b ("read  C:\\MYDATA")
Open c ("write C:\\DATA.BMP")
//
// Copy the 54-byte header
//
Do k = 1, 54
   Read  binary a (data, eof)
   Write binary c (data, eof)
Loop
//
// Copy all of MYDATA
//
Do
   Read  binary b (data, eof)
   If eof Break
   Write binary c (data, eof)
   Read  binary a (data, eof)
   If !eof Continue
   Close a; Close b; Close c
   System ("del C:\\DATA.BMP")
   Display "SHELL.BMP is too small"
   Pause; Quit
Loop
//
// Copy the end of SHELL.BMP
//
Do
   Read  binary a (data, eof)
   If eof Break
   Write binary c (data, eof)
Loop
Close a; Close b; Close c; Quit