$$ Das folgende Makro wurde von S. Retter, HP Waldbronn zur

$$ Verfügung gestellt



$$ Makro, das automatisch Physical Ports durchnummeriert. Eine

$$ Startzahl und Fontsize kann eingegeben werden. Es muß dann der

$$ Physical Port Reerenzpunkt und er Absetzpunkt der Note digi-

$$ talisiert werden.



DEF AUTO_PHY

{"Start Number?   Default = 1 " I "1";

 "Font Size?      Default =50 " J "50";

 "Stop Program with CLR I/O or STOP-KEY !!!"

}

"DEF VAL {I};DEF FS {J};AUTOPY ";



DEF TIC "'";



DEF AUTOPHY {"Select Physical Port " X;Y}

"ADD N51 :F(FS) :T1003 :D :AD :L[3,29] {X},{Y} ;

 SEL_PHY ";

 

DEF SEL_PHY {"Select Location " X1;Y1 }

"(TIC+(NUM2STR(VAL))+TIC); {X1},{Y1} ;DEF VAL (VAL+1);NOP ; AUTOPHY " ;



EXIT;