.ARXH;
                          /MSP,++;
                          /XMD,++;
                          LT,0,LW,1,LK,14,;
                          MO;
                          .TEXT;
                          /PMT,1,' Give me the TEXT SIZE...... .? :___ ',#;
                          /VRL,0,~,/PMT,1,#; 
                          TZ,$R(0);
                          us,t,z,$r(0),!,!,!;
                          ;
                          .APXH;
                          /PMT,1,#,/PMT,2,#,/PMT,3,#;
                          /PMT,1,' Pick a ^MREF^^ POINT....? :___ ',#;
                          /Vpt,4,@,/PMT,1,#; 
                          bp,$x(4),$y(4);
                          dc,a,--,b,++;
                          mb,!;
                          /pmt,1,#;
                          ;
                          LE,REF,$X(4),$Y(4),@,@,;
                          /VRL,1,$X(4)-$X(4);
                          /VRL,2,$Y(4)-$Y(4); 
                          ;
                          /VST,1,X; 
                          /VST,2,Y; 

                          /PMT,3,'^^PLACE coord.of ^NREF ^^..where you want.: .. ',#;
                          /VPT,1,@,PO,$X(1),$Y(1),!,OO,/PMT,1,#; 
                          TL,$X(1),$Y(1),$S(1),$S(2),!,#,PU,;
                          TL,$X(1)+1*$R(0),$Y(1),$R(1),$R(2),!,#,PU,;
                          /PMT,3,'^^PLACE a ^Jwindow around coord.^^of ^MREF ^^: .. ',#;
                          re,@,@;
                          /GOTO,VOLOS;
                          ; 
                          .VOLOS;
                          /PMT,1,#,/PMT,3,#;
                          /PMT,2,'^^ SELECT a ^JPoint^^ ..........? : <ESC> to stop ',#;
                          ; 
                          /VPT,0,@;
                          /IF,$DERR[EQ]-2,/goto,nikos;
                          /IF,$VAL[EQ]-2,/goto,nikos;
                          ;
                          .SYNE;
                          /PMT,1,#;
                          /PMT,3,'^^(D r a g for ^NLeader^^-^LShoulder^^ of point)...?: .... ',#; 
                          /PMT,2,#; 
                          ;
                          LE, ,$X(0),$Y(0),@,@,PU; 
                          ;
                          /GOTO,ARGONAYTES;
                          ;
                          .ARGONAYTES; 
                          /IF,$X(0)[GE]$X(4),/IF,$Y(0)[GE]$Y(4),/GOTO,I;
                          /IF,$X(0)[LE]$X(4),/IF,$Y(0)[GE]$Y(4),/GOTO,II;
                          /IF,$X(0)[LE]$X(4),/IF,$Y(0)[LE]$Y(4),/GOTO,III;
                          /IF,$X(0)[GE]$X(4),/IF,$Y(0)[LE]$Y(4),/GOTO,IIII;
                          .I; 1o TETARTHMORIO
                          /VPT,0,$X(0)-$X(4),$Y(0)-$Y(4),;
                          /GOTO,IASON;
                          ;
                          .II; 2o TETARTHMORIO
                          /VPT,0,$X(0)-$X(4),$Y(0)-$Y(4),;
                          /GOTO,IASON;
                          ;
                          .III; 3o TETARTHMORIO
                          /VPT,0,$X(0)-$X(4),$Y(0)-$Y(4),;
                          /GOTO,IASON;
                          ;
                          .IIII; 4o TETARTHMORIO
                          /VPT,0,$X(0)-$X(4),$Y(0)-$Y(4),;
                          /GOTO,IASON;
                          ; 
                          .IASON;
                          /PMT,3,#; 
                          /VRL,1,$X(0),;
                          /VRL,2,$Y(0),; 
                          /VST,1,X; 
                          /VST,2,Y; 
                          ; 
                          /PMT,3,'^^PLACE THE ^NCoordinate^^..where you want.: (Click Left Button).. ',#;
                          /VPT,1,@,/PMT,1,#; 
                          TL,$X(1),$Y(1),$S(1),$S(2),!,#,PU,;
                          TL,$X(1)+1*$R(0),$Y(1),$R(1),$R(2),!,#,PU,;
                          /PMT,3,#;
                          /VPT,0,0,0,; 
                          /VPT,1,0,0,; 
                          /goto,volos;
                          ;
                          .nikos; 
                          /PMT,2,'^^Pick a new ^JREF^^ point or ^MEND^^ the macro ? >: New^JR^^ef ^NE^^nd',#,/cin;
                          ; 
                          /IF,$VAL [EQ] 1,/GOTO,APXH; 
                          /IF,$VAL [EQ] 2,/GOTO,TERMA;
                          ; 
                          .TERMA;
                          /PMT,1,'^^^JYiasoy Harry from HELLAS the Holy place of Gods, ',#;
                          /PMT,2,'^^^NSEPTEVRIOS 2002^^ , ',#; 
                          /PMT,3,'^^^Kby Tassos Neroytsos and son Nickos^^.. from VOLOS. , ',#;
                          ;
                          /CIN,/PMT,1,/pmt,2,/pmt,3,#;
                          ;
                          dc,a++,b,--;
                          mo;
                          un,$s(0);
                          /MSP,--,;
                          /XMD,--,;
                          ;............TELOS TOY MACRO....................................;