;====================COMMENTS OF THE MAKRO DATUM22===================;
;THIS MACRO HAS BEEN WRITTEN IN 20-10-2003 ;
;PLACE:    GREECE
:AUTHOR:   ANASTASIOS N.NEROUTSOS;
:COMMENTS: THE MACRO CREATES X-DATUM DIMENSIONS and works like the; ;          ORDINATE command of Acad2000;
;MENU:     IT IS PART OF THE  DATUM.MNU,DATUM.GXV,and datum02.gxv;
;LICENCE:  FREE FOR ANYONE 
;e-mail:    anero@tee.gr
;====================================================================;


  .ARXIKOPOIHSH;
  /MSP,++;
  /XMD,++;
   MO;                 

   /VPT,3,$GX(1),$GY(1);                   OI TIMES TOY BASE POINT
    LL,!;
   /VRL,1,$VAL;          
   US,A,T,O,L,0,!,!;
   /VRL,3,$GR(1);                          GONIA KLISIS KEIMENOY                                
   .SYN1;         
    /PMT,1,#,/PMT,2,#,/PMT,3,#;

   /PMT,1,'   Specify a [Point] location ( [X]datum ) ? ',#;
   /Vpt,0,@,/PMT,1,#;                            PROTO SHMEIO X0
   /IF,$DERR[EQ]-2,/GTO,telos;     
    TR,$R(3);                                  STROFH KEIM  90
   /IF,$R(3)[EQ]0,TR,90;
   LL,0;                                         SOULDER MHKOS  0.00
   OR,++;
   /PMT,1,'   Specify [Leader end point].. ? ',#;
   LD,$X(0),$Y(0),@,!,#;
   /VPT,5,$PNTX,$PNTY;
  /VRL,2,$X(0)-$X(3);                       DIAFORA X 
  TL,$X(5),$Y(5),!,$R(2),!,#,PU;            GRAFEI TO PROTO SHMEIO 0,00
   /gto,syn1;

    .TELOS;
   /PMT,1,' ...By ^MANA^^Soft  2003...',#,/cin;
   BP,0,0,!;      
   TR,0;
   /SGL,P,1,0,0;                           OI TIMES TOY BASE POINT   
   BP,0,0,!;
   MO;
   DC,A,!;
   LL,$R(1);
   OA,0;
  /MSP,--,;
   /XMD,--,;
  ;..........END..(TELOS  TOY) MACRO....................................;