'''#####################################################################################
'''#### Script Name: Calculate PIP Value 
'''#### Author : Rula Halaseh 
'''#### Website : www.Hybridsolutions.com 
'''#### Date : 07/05/2012 15:21:30 
'''#### Description: Calculates the PIP value for the current chart 
'''#####################################################################################

Public Sub main()

Dim piploc
Dim pip
Dim Symbol
Symbol = ChartSymbol(0) 'Returns the Symbol name of the open chart
AlertMessage SymbolInfoInteger (ChartSymbol(0),1,piploc)'Saves the PIP location in piploc variable
AlertMessage CSTR(piploc) 'displays PIP location
pip=10^piploc 'Calculates PIP Value
AlertMessage CSTR(pip) 'Displays the PIP Value

End Sub