if(x1 >= x2) {
           max_x = 1;
           buff = GetMemory(max_x * h * 3);
           while(w > max_x){
               ReadBuffer(x1, y1, x1 + max_x - 1, y1 + h - 1, buff);
               DrawBuffer(x2, y2, x2 + max_x - 1, y2 + h - 1, buff);
               x1 += max_x;
               x2 += max_x;
               w -= max_x;
           }
           ReadBuffer(x1, y1, x1 + w - 1, y1 + h - 1, buff);
           DrawBuffer(x2, y2, x2 + w - 1, y2 + h - 1, buff);
           FreeMemory(buff);
           return;
       }
       if(x1 < x2) {
           int start_x1, start_x2;
           max_x = 1;
           buff = GetMemory(max_x * h * 3);
           start_x1 = x1 + w - max_x;
           start_x2 = x2 + w - max_x;
           while(w > max_x){
               ReadBuffer(start_x1, y1, start_x1 + max_x - 1, y1 + h - 1, buff);
               DrawBuffer(start_x2, y2, start_x2 + max_x - 1, y2 + h - 1, buff);
               w -= max_x;
               start_x1 -= max_x;
               start_x2 -= max_x;
           }
           ReadBuffer(x1, y1, x1 + w - 1, y1 + h - 1, buff);
           DrawBuffer(x2, y2, x2 + w - 1, y2 + h - 1, buff);
           FreeMemory(buff);
           if(Option.Refresh)Display_Refresh();
           return;
           }

       if((WriteBuf==LayerBuf || WriteBuf==FrameBuf)){
           if((w & 1)==0 && (x1 & 1)==0 && (x2 & 1)==0){ //Easiest case - byte move in the x direction with w even
               if(y1<y2){
                   for(int y=h-1; y>=0;y--){
                       uint8_t *in=WriteBuf + ((y+y1)*HRes + x1)/2;
                       uint8_t *out=WriteBuf + ((y+y2)*HRes + x2)/2;
                       memcpy(out,in,w/2);
                   }
               } else if(y1>y2){
                   for(int y=0;y<h;y++){
                       uint8_t *in=WriteBuf + ((y+y1)*HRes + x1)/2;
                       uint8_t *out=WriteBuf + ((y+y2)*HRes + x2)/2;
                       memcpy(out,in,w/2);
                   }
               } else {
                   for(int y=0;y<h;y++){
                       uint8_t *in=WriteBuf + ((y+y1)*HRes + x1)/2;
                       uint8_t *out=WriteBuf + ((y+y2)*HRes + x2)/2;
                       memmove(out,in,w/2);
                   }
               }
               return;
           } else { //nibble move not as easy
               uint8_t *inbuff=GetTempMemory(HRes/2);
               int intoggle=x1 & 1;
               int outtoggle=x2 & 1;
               int n=w/2;
               if(w & 1)n++;
               if(y1>y2){
                   for(int y=0;y<h;y++){
                       if(!intoggle)memcpy(inbuff,WriteBuf + ((y+y1)*HRes + x1)/2, n);
                       else {
                           int toggle=1;
                           uint8_t *in=WriteBuf + ((y+y1)*HRes + x1)/2;
                           uint8_t *out=inbuff;
                           for(int x=0;x<w;x++){
                               if(toggle){
                                   uint8_t t=*in >>4 ;
                                   *out =t ;
                                   in++;
                               } else {
                                   uint8_t t=(*in & 0xf)<<4;
                                   *out|= t;
                                   out++;
                               }
                               toggle ^=1;
                           }
                       }
                       if(!outtoggle){
                           memcpy(WriteBuf + ((y+y2)*HRes + x2)/2, inbuff, w/2);
                           if(w & 1){
                               uint8_t *lastnibble=WriteBuf + ((y+y2) * HRes + x2 + w)/2;
                               *lastnibble  &= 0xf0;
                               *lastnibble |= (inbuff[w/2] & 0xf);
                           }
                       } else {
                           int toggle=1;
                           uint8_t *in=inbuff;
                           uint8_t *out=WriteBuf + ((y+y2) * HRes + x2)/2;
                           for(int x=0;x<w;x++){
                               if(toggle){
                                   uint8_t t=(*in & 0xf)<<4;
                                   *out &=0x0f; //clear the top byte of the output
                                   *out |=t;
                                   out++;
                               } else {
                                   uint8_t t=(*in >>4);
                                   *out &=0xf0;
                                   *out|= t;
                                   in++;
                               }
                               toggle ^=1;
                           }
                       }
                   }
               } else {
                   for(int y=h-1;y>=0;y--){
                       if(!intoggle)memcpy(inbuff,WriteBuf + ((y+y1)*HRes + x1)/2, n);
                       else {
                           int toggle=1;
                           uint8_t *in=WriteBuf + ((y+y1)*HRes + x1)/2;
                           uint8_t *out=inbuff;
                           for(int x=0;x<w;x++){
                               if(toggle){
                                   uint8_t t=*in >>4 ;
                                   *out =t ;
                                   in++;
                               } else {
                                   uint8_t t=(*in & 0xf)<<4;
                                   *out|= t;
                                   out++;
                               }
                               toggle ^=1;
                           }
                       }
                       if(!outtoggle){
                           memcpy(WriteBuf + ((y+y2)*HRes + x2)/2, inbuff, w/2);
                           if(w & 1){
                               uint8_t *lastnibble=WriteBuf + ((y+y2) * HRes + x2 + w)/2;
                               *lastnibble  &= 0xf0;
                               *lastnibble |= (inbuff[w/2] & 0xf);
                           }
                       } else {
                           int toggle=1;
                           uint8_t *in=inbuff;
                           uint8_t *out=WriteBuf + ((y+y2) * HRes + x2)/2;
                           for(int x=0;x<w;x++){
                               if(toggle){
                                   uint8_t t=(*in & 0xf)<<4;
                                   *out &=0x0f; //clear the top byte of the output
                                   *out |=t;
                                   out++;
                               } else {
                                   uint8_t t=(*in >>4);
                                   *out &=0xf0;
                                   *out|= t;
                                   in++;
                               }
                               toggle ^=1;
                           }
                       }
                   }
               }
               return;
           }

 MODE 2
 CLS RGB(RED)
 trimfile "nine.spr"
 trimfile "flap3.spr"
 trimfile "bmedalw.spr"
 
 SPRITE LOAD "nine.spr",1
 SPRITE LOAD "flap3.spr",2
 SPRITE LOAD "bmedalw.spr",3
 SPRITE LOAD "bmedalw.spr",4
 
 SPRITE WRITE 1,50,50,0
 SPRITE WRITE 2,100,50,0
 SPRITE WRITE 3,50,100,0
 SPRITE WRITE 4,100,100,0
 
DO:LOOP
END
 
SUB trimfile f$
 LOCAL INTEGER k, fsize, blocks
 LOCAL packet$, tfile$ = "tempfile.txt"
 fsize = MM.INFO(FILESIZE f$)
 IF fsize MOD 128 = 0 THEN ' might be padded by XMODEM
   blocks = fsize/128
   OPEN tfile$ FOR OUTPUT AS #2
   OPEN f$ FOR INPUT AS #3
   FOR k = 1 TO blocks-1 ' we are only interested in the last block
     packet$ = INPUT$(128,#3)
     PRINT #2, packet$;
   NEXT k
   packet$ = INPUT$(128,#3)
   CLOSE #3
   FOR k = LEN(packet$) TO 1 STEP -1
     IF MID$(packet$,k,1) <> CHR$(0) AND MID$(packet$,k,1) <> CHR$(26) THEN
       EXIT FOR
     ENDIF
   NEXT k
   packet$ = LEFT$(packet$, k)
   IF packet$ <> CHR$(0) AND packet$ <> CHR$(26) THEN 'last packet not all pad
     PRINT #2, packet$;
   ENDIF
   CLOSE #2
   KILL f$
   RENAME tfile$ AS f$
 ENDIF
 
END SUB