                     +=============================+
                     |   Windows|
                     +=============================+

1.   
2.   ""
3.    
4.  . 
5.  
6.   .

----------------------------------------------------------------------
1.   
   ======================

             .
,            ,         
  .        
   .                 
         
.            ,
          
        .  
            . 
         
 .

----------------------------------------------------------------------
2.   ""
   ===================

 -   ,      
 . ,     ,  
 io.sys,   -   logos.sys  logow.sys.

 ,           logo.sys
  .

    ""       .  
     <Esc>   .     
  ,      Logo=0   [Options] 
msdos.sys.      ,    0   1   
.

----------------------------------------------------------------------
3.    
   ===============================

    ( )    BMP
 320x400   ,  256.    
   logo.sys, logos.sys  logow.sys  (    
  ).

            129078 .     
     .

----------------------------------------------------------------------
4.  . 
   ============================

     .

     ,      (  
   )           ( -
):

  32 -  PalRot
  33 -  StyleRot

 PalRot -      .   
,     .

  StyleRot  -      .   -  
      .

             .  
      .

 - Borland Pascal 7.0

====[cut here]====
Program LogoSysAnimator;

Var
	F	: File;
	Ch1,Ch2	: Byte;
	i	: Integer;
	A	: Array [1..2] of Char;

BEGIN
	writeln('=====================================');
	writeln('      :  Logo.Sys       ');
	writeln('-------------------------------------');
	writeln(' Copyright (C) 2002 Cyrill Tkachenko ');
	writeln('L=====================================-');

	If ParamStr(3) = '' then begin
		writeln('------------------------------------------------');
		writeln(' Usage: LogoPal <logo.sys> <PalRot> <StyleRot> ');
		writeln('L===============================================-');
		exit;
		end;

	Val(ParamStr(2),Ch1,i);
	If (i <> 0) then begin
		writeln('---------------------------');
		writeln('    ');
		writeln('L==========================-');
		exit;
		end;

	Val(ParamStr(3),Ch2,i);
	If i <> 0 then begin
		writeln('-------------------------------');
		writeln('    ');
		writeln('L==============================-');
		exit;
		end;

	If not (Ch1 in [1..255])  then begin
		writeln('---------------------------------------------------');
		writeln(' : ,     ');
		writeln('L==================================================-');
		end;

	Assign(F, ParamStr(1));
	{$I-}
	Reset(F, 1);
	{$I+}
	If IOResult <> 0 then begin
		writeln('-------------------------------------');
		writeln('      ');
		writeln('L====================================-');
		exit;
		end;

	BlockRead(F, A, 2);
	If (A <> 'BM') or (FileSize(F) <> 129078) then begin
		close(F);
		writeln('----------------------------');
		writeln('    ');
		writeln('L===========================-');
		exit;
		end;

	Seek(F, $32);
	BlockWrite(F, Ch1, 1);
	BlockWrite(F, Ch2, 1);

	Close(F);
END.
====[cut here]====

----------------------------------------------------------------------
5.  
   =================

24  2002 - 

----------------------------------------------------------------------
6.   
   ===============

HOME PAGE : http://www.geocities.com/cyrilltka20022002
E-MAIL    : cyrilltka2002@mail.ru

----------------------------------------------------------------------

                                                 