back testing suggestions required.

[bharatk8]

I need inputs for changes in backtesting code.This code selects 100 shares irrespective of price.

BuyPrice =O;
Sell =H<Ref(H,-1);
SellPrice =C;


ShortPrice = O;
Cover =L>Ref(L,-1);
CoverPrice =C;
//Settings for Backtesting
SetOption("MaxOpenPositions",100);
RoundLotSize = 1;
SetOption("MinShares",RoundLotSize);
SetPositionSize( 100, spsShares ); // 100 shares by default

//End of Backtesting Settings for Backtester

SetPositionSize( 100, spsShares ); // 100 shares by default