;=================screeb-saver=for general cadd======;   
;THIS MACRO HAS BEEN WRITTEN IN 2003 ;
;PLACE:    GREECE
:AUTHOR:   ANASTASIOS N.NEROUTSOS;
:COMMENTS: THE MACRO is a screen-saver ;
;MENU:     aytonomous;
;LICENCE:  FREE FOR ANYONE 
;EMAIL:     anero@tee.gr
;====================================================================;                  
/MSP,++;
/XMD,++;

.ARXH;                   

/PMT,1,' PRESS [ENTER] TO START............. :        Press ..[ A ] to [stop]  the A-Saver....  ',#,/cin;
/IF,$VAL[EQ]-2,za,/GOTO,TElos;
/IF,$VAL[EQ]-1,za,/GOTO,ARXH2;

.ARXH2;

ZA,                                               /IF,$VAL[EQ]-2,/GOTO,TElos;
ZI,ZI,ZI,ZI,ZI,ZI,ZI,ZI,ZI,ZI,ZI,   /IF,$VAL[EQ]-2,/GOTO,TElos;
zb,zb,zb,zb,zb,zb,zb,zb,zb,   /IF,$VAL[EQ]-2,/GOTO,TElos;
ZO,ZO,ZO,ZO,ZO,ZO,ZO,ZO, /IF,$VAL[EQ]-2,/GOTO,TElos;
zb,zb,zb,zb,zb,zb,zb,zb,zb,   /IF,$VAL[EQ]-2,/GOTO,TElos;
ZI,ZI,ZI,ZI,ZI,ZI,                          /IF,$VAL[EQ]-2,/GOTO,TElos;

/GTO,ARXH2;

.TELOS;

za;
/PMT,1,' IT  WAS....------- [A-SAVER] for [General Cadd ] -------by Anastasios.......... :  ..',#,/cin;
/MSP,--;
/XMD,--;