VATREDIT ;ALB/AS - Enter/Edit TRANSMISSION ROUTERS File ; Jun 24 88 @1200
 ;;5.3;Registration;;Aug 13, 1993
 ;
 S DIC(0)="AEQM",DIC="^VAT(407.7," D ^DIC G Q:Y'>0 S DA=+Y,DIE=DIC,DR=1,DR(2,407.71)=".01:3" K DIC D ^DIE
Q K DIC,DIE,DA,DR,Y Q