Procedure  PaintBox (Destination_x,Destination_y:Integer;DestinationPage:Byte;
                     Number_x,Number_y:Integer;Color,Direction:Byte);

Begin
   _cmd:= HMMV ;
   _dy := DestinationPage * 256 + Destination_y ;
   _arg:= Direction ;
   _dx := Destination_x;
   _nx := Number_x;
   _ny := Number_y;
   _col:= Color;

   Inline (
     $3A/_col/$5F/$3A/$af/$fc/$FE/$08/$28/$21/$FE/$06/$28/$0F/$7B/

     $E6/$0F/$5F/$CB/$27/$CB/$27/$CB/$27/$CB/$27/$B3/$18/$0B/$7B/$E6/

     $03/$5F/$CB/$23/$CB/$23/$0F/$0F/$B3/$32/_col/

     $F3/$3E/$20/$D3/$99/$3E/$11/$F6/$80/$D3/$99/$06/$0F/$0E/$9B/$21/

     $62/$F5/$ED/$B3/$3E/$02/$D3/$99/$3E/$0F/$F6/$80/$D3/$99/$DB/$99/

     $CB/$47/$20/$F0/$AF/$D3/$99/$3E/$8F/$D3/$99/$fb
          );
End ; {PaintBox}