ORIGIN '~beta/basiclib/formatio'
---- program: descriptor ----
(#
  (* Statikus és dinamikus referenciák*)

   Point: (# X,Y: @integer;
          enter (X,Y)
          exit  (X,Y)
          #);

   refA : ^Point;
   P1,P2: @Point;

   Dump:
     (#
     do 'P1: %3d, P2: %d, refA: %d\n'-> 
           putFormat(# do P1.X -> d; P2.X -> d; refA.x -> d #)
     #);

do
   'Dinamikus referencia' -> putline;
   newline;

   &Point[] -> refA[];

   (1,1) -> P1-> P2 -> refA;
   Dump;

   (2,2) -> P2;
   (3,3) -> refA;
   Dump;

   P1[] -> refA[];  Dump;
   P2[] -> refA[];  Dump;

   (1,1) -> P1; (2,2) -> P2; (3,3) -> refA;
   Dump;

   (111,333) -> &Point -> P1;
   Dump;
   Newline;
#)