;============================V 1.0 ==================================; 
;THIS MACRO HAS BEEN WRITTEN IN 2003 ;
;PLACE:    GREECE
:AUTHOR:   ANASTASIOS N.NEROUTSOS;
:COMMENTS: THE MACRO converts GXD's in AUTOcad  drw. and DXF ;
;MENU:     aytonomous;
;LICENCE:  FREE FOR ANYONE 
;EMAIL:     anero@tee.gr
;====================================================================;
   .APXH;
   /MSP,++;
   /XMD,++;      

    .APXH2;
   /PMT,1,#,/PMT,2,#,/PMT,3,#;
   /PMT,1,'^^^MLoad Drawing to convert^^: ^JL^^OAD  ^KE^^raseOld  ^M<ESC>^^ to end.  ',#,/CIN;
  /IF,$STR[EQ]L,/GOTO,syn;     
  /IF,$STR[EQ]E,dx,y,!,/GOTO,apxh2;     
  /IF,$VAL[EQ]-2,/GOTO,TELOS;     
  .syn;
    /MSP,--;
    /XMD,--;
    IM,~,@,!,#,pu;
   /MSP,++;
   /XMD,++;
   /GTO,SAVE;
   .SAVE;
   /PMT,3,%45,'^^^J<Tassos made it for you^^> ',#;
    /PMT,1,#,; 
   /PMT,2,'  Save to....: ^MA^^utocad  or d^KX^^f  ^MN^^ew ',#,/CIN;
     
    /IF,$STR[EQ]A,/GOTO,ACAD; 
    /IF,$STR[EQ]D,/GOTO,DXF; 
    /IF,$STR[EQ]N,dx,y,!,/GOTO,APXH2; 
   .ACAD;
    dn,!;
   /VST,1,$str;  ONOMA APXEIOY
 
   /MSP,--;
   /xmd,--;
    SA,A,$S(1),!,!,;
   
   /GTO,SAVE;
   .DXF;
    dn,!;
   /VST,1,$str;  ONOMA APXEIOY
   /msp,--;
   /xmd,--;
    SA,X,$s(1),!,RD;
    ZA;
   /GOTO,SAVE;
   .TELOS;
 
   /PMT,3,'    by [ANA]Soft 2003 ..  ',#;
   /CIN,/PMT,1,/pmt,2,/pmt,3,#;
    ZA;
   /MSP,--,;
   /XMD,--,;