-

+; "...\\\";
.(" !") .


:





:      |   |   | 


: 05.12.08.

(******************************************************************************)
(* - .. "".                            *)
(******************************************************************************)
+;

  "...\\\",
  "...\\\",
  "...\\\",
  "...\\\",
  "...\\\",
  "...\\\";


  = 100;
  = 20;


  , : , ;
  : x, y: ;

(: ; : ): ;

 
    >=
      -
   
 
    < 0
      +
   
 
;

;

  1, 2, : ;
  (x, y: ): ;
 
    : ;
 
    := 0;
    [(x-1,), (y-1,)] () ;
    [(x-1,), y] () ;
    [(x-1,), (y+1,)] () ;
    [x, (y-1,)] () ;
    [x, (y+1,)] () ;
    [(x+1,), (y-1,)] () ;
    [(x+1,), y] () ;
    [(x+1,), (y+1,)] () ;
   
  ;

  1 := 0 -1
    2 := 0 -1
      := (1, 2);
      [1, 2] =
        = 3 [1, 2] := [1, 2] :=
     
        ( < 2) ( > 3) [1, 2] := [1, 2] :=
     
   
  ;
  1 := 0 -1 2 := 0 -1
    [1, 2] := [1, 2]
 
;

;

  1, 2, 1, 2: ;

  1 := 0 -1
    1 := (.y+1, );
    2 := 0 -1
      2 := (.x+2, );
      [1, 2] =
        .(1*2, 2*3, 1*2+1, 2*3+2, 0FX)
     
        .(1*2, 2*3, 1*2+1, 2*3+2, 0F0X)
     
   
 
;

;

  : .;
  : .;
  : ;

  .(, ) = .
    .
      26H: .y := (.y-1, )
    | 28H: .y := (.y+1, )
    | 25H: .x := (.x-1, )
    | 27H: .x := (.x+1, )
   
 
;

(:);

  ;
  .(100);
 
;

;

  : ;
  : ;

  := 0 *-1
    ((.())) = 0
      [ , ] :=
   
      [ , ] :=
   
  ;
  .x := 0;
  .y := 0;
  .();
  .(*2, *3);
  .(0);
  :=.(1, 100);
 
   
  ;
  .()
;


 

.
    .