;============================ARXH TOY MAKRO================================;
;tHIS MACRO HAS BEEN WRITTEN IN 19-10-2003 ;
;PLACE:    GREECE
:AUTHOR:   ANASTASIOS N.NEROUTSOS;
:COMMENTS: THE MACRO CREATES [x]DATUM DIMENSIONS in every direction;
;MENU:     aytonomous;
;LICENCE:  FREE FOR ANYONE 
; EMEIL:  anero@tee.gr
;=====================================================================;
  .ARXIKOPOIHSH;
  /MSP,++;
  /XMD,++;
   MO;                    
   LL,!;
   /VRL,1,$VAL;          
   NF,L,F,16,!;
   UN,F;
   US,E,O,4,!;
   US,A,T,O,L,0,!,!;

   .APXH;
    /PMT,1,#,/PMT,2,#,/PMT,3,#;
   OA,0;
  /PMT,1,'  DATUM How.... ? : ^MH^^oriz. ^JV^^ertic. ^LA^^ligned <ESC>= quit',#,/CIN;
    /IF,$STR[EQ]H,/GTO,OPIZO;
    /IF,$STR[EQ]V,/GTO,KATAKO;
    /IF,$STR[EQ]A,/GTO,ALIGN;
    /IF,$VAL[EQ]-2,/GTO,TELOS;
                  
   .KATAKO;     KATAKOPYFES KATAX/SEIS=================================
    /PMT,1,#,/PMT,2,#,/PMT,3,#;
   
   /PMT,1,'   [X]datum UP or DOWN the points ...? : [U]p [D]own ',#,/CIN;
    /IF,$STR[EQ]U,/VIN,1,4, /VIN,2,-5,/VIN,3,10,TS,J,L,!,/GTO,SYN1;  APOSTA SHM APO KATHETH GRAMMH ANO   
    /IF,$STR[EQ]D,/VIN,1,-4,/VIN,2,-5,/VIN,3,0,TS,J,R,!,/GTO,SYN1; APOSTA SHM APO KATHETH GRAMMH ANO
   
    .SYN1;         
   /PMT,1,'   Pick the  ^MFirst^^ POINT....? :___ ',#;
   /Vpt,0,@,/PMT,1,#;                            PROTO SHMEIO X0
                                        
   TR,90;                                        STROFH KEIM  90
   LL,0;                                         SOULDER MHKOS  0.00
   OR,++;
   /PMT,1,'   Pick the  [x]datum ^MDirection^^ ? :___ ',#;

   LD,$X(0),$Y(0)+$I(1),@,!,#;

   /VPT,5,$PNTX,$PNTY;
   TL,$X(5)+$I(2),$Y(5)+$I(2)+$I(3),!,$X(0),!,#,PU;            GRAFEI TO PROTO SHMEIO 0,00
   
    .SHMEIA;

   /PMT,1,'   Pick   ^JNext^^ [x]datum....? :___ ',#;
   /PMT,2,%10,'   ESC to STOP',#;
   /Vpt,1,@,/PMT,1,#;  
   /IF,$DERR[EQ]-2,/GTO,APXH;  
   LD,$X(1),$Y(1)+$I(1),$X(1),$Y(5),!,#;
   /VPT,5,$PNTX,$PNTY;
   TL,$X(5)+$I(2),$Y(5)+$I(2)+$I(3),!,$X(1),!,#,PU;      GRAFEI TO EPOMENO SHMEIO 
   
   /GTO,SHMEIA;====================================================
   
   .OPIZO;                                     ORIZONTIES KATAXORHSEIS
   /PMT,1,#,/PMT,2,#,/PMT,3,#;
   /PMT,1,'   Pick the  ^MFirst^^ POINT....? :___ ',#;
   /Vpt,0,@,/PMT,1,#;                          PROTO SHMEIO X0
                                        
   TR,0;                                       STROFH KEIM  90
   LL,0;                                       SOULDER MHKOS  0.00
   OR,++;

   /PMT,1,'   Pick the  Horiz. ^MDirection^^ ? :___ ',#;

   LD,$X(0),$Y(0),@,!,#;
   /VPT,5,$PNTX,$PNTY;
   PO,$X(5),$Y(5),OO;

   TL,!,$Y(0),!,#,PU;                           GRAFEI TO PROTO SHMEIO 0,00
   
    .SHMEIA2;

   /PMT,1,'   Pick   ^JNext^^ Horiz.POINTS....? :___ ',#;
   /PMT,2,%10,'   ESC to STOP',#;

   /Vpt,1,@,/PMT,1,#;  
   /IF,$DERR[EQ]-2,/GTO,APXH;

   LD,$X(1),$Y(1),$X(5),$Y(1),!,#;
  /VPT,5,$PNTX,$PNTY;
   TL,$X(5),$Y(5),!,$Y(1),!,#,PU;              GRAFEI TO EPOMENO SHMEIO 
   
   /GTO,SHMEIA2;
   
   .ALIGN;
    /PMT,1,#,/PMT,2,#,/PMT,3,#;

   /PMT,1,'   Pick the  ^MFirst^^ POINT....? :___ ',#;
   /Vpt,0,@,/PMT,1,#;                          PROTO SHMEIO X0
                                        
   TR,90;                                       STROFH KEIM  90
   LL,0;                                       SOULDER MHKOS  0.00
   OR,--;
   OA,45;

   /PMT,1,'   Pick the  ^MDirection^^ ? :___ ',#;

   LD,$X(0),$Y(0),@,!,#;
   /VPT,5,$PNTX,$PNTY;
   PO,$X(5),$Y(5),OO;

   TL,!,$X(0),!,#,PU;                           GRAFEI TO PROTO SHMEIO 0,00
   
    .SHMEIA3;

   /PMT,1,'   Pick   ^JNext^^ POINTS....? :___ ',#;
   /PMT,2,%10,'   ESC to STOP',#;

   /Vpt,1,@,/PMT,1,#;  
   /IF,$DERR[EQ]-2,/GTO,APXH;


   /PMT,1,'   Pick the  ^MDirection^^ ? :___ ',#;

   LD,$X(1),$Y(1),@,!,#;
  /VPT,5,$PNTX,$PNTY;
   TL,$X(5),$Y(5),!,$X(1),!,#,PU;              GRAFEI TO EPOMENO SHMEIO 
   
   /GTO,SHMEIA3;
   
            
    .TELOS;
   /PMT,1,' ...By ^MA¤˜^^Soft  2003...',#,/cin;
      
   TR,0;
   LL,$R(1);
   OA,0;
  /MSP,--,;
   /XMD,--,;
  ;............TELOS  TOY MACRO....................................;