Reduce Foreign computation

AFL Programming
1

Blockquote
BuyShortPrice4 = AVGO_P ;//Price
Qunt4 = AVGO_QT;//Shares
Price4 = Foreign("AVGO","C") ;
Profit_Loss4 = (Price4 - BuyShortPrice4)Qunt4;
//**************************************************************************************************************************************************//
BuyShortPrice5 = BA_P ;//Price
Qunt5 = BA_QT;//Shares
Price5 = Foreign("BA","C") ;
Profit_Loss5 = (Price5 - BuyShortPrice5)Qunt5;
//**************************************************************************************************************************************************//
BuyShortPrice6 = BABA_P ;//Price
Qunt6 = BABA_QT;//Shares
Price6 = Foreign("BABA","C") ;
Profit_Loss6 = (Price6 - BuyShortPrice6)Qunt6;
//**************************************************************************************************************************************************//
BuyShortPrice7 = BIDU_P ;//Price
Qunt7 = BIDU_QT;//Shares
Price7 = Foreign("BIDU","C") ;
Profit_Loss7 = (Price7 - BuyShortPrice7)*Qunt7;

Pnl_All = (Profit_Loss4+Profit_Loss5+Profit_Loss6+Profit_Loss7);

Screenshot_7

I want to reduce the computation time, is there any other way to do this?
Thanks to the respondents

2

Foreign is a resource heavy function especially if you have LOTS of data. 1.7ms to bring 42000+ bars isn't much. That's about 1GB per second transfer rate. The ways to improve performance are given in the manual http://www.amibroker.com/guide/x_performance.html