Candlestick Plot

Function Candlestick(Opens,Closes,Highs,Lows,Times)
    Wave Opens,Closes,Highs,Lows,Times
    Display Highs,Lows,Opens,Closes vs Times
        String highz=NameOfWave(Highs), lowz=NameOfWave(lows), openz=NameOfWave(Opens), closez=NameOfWave(Closes)
    ModifyGraph mode($Highz)=1,mode($Lowz)=6,mode($Openz)=5,mode($Closez)=5
    ModifyGraph lSize($Lowz)=0,lSize($Openz)=1,lSize($Closez)=0
    ModifyGraph rgb($Highz)=(0,0,0),rgb($Lowz)=(0,0,0),rgb($Openz)=(65535,65355,65335),rgb($Closez)=(0,0,0)
    ModifyGraph hbFill($Openz)=2,hbFill($Closez)=1
    ModifyGraph toMode($Highz)=1,toMode($Openz)=1
    ModifyGraph useBarStrokeRGB($Openz)=1,useBarStrokeRGB($Closez)=1
    ModifyGraph offset($Openz)={-0.5,0},offset($Closez)={-0.5,0}
    Make /o/n=(dimsize(Opens,0),3) Fills=65535*(Closes[p]>Opens[p])
    ModifyGraph zColor($Openz)={Fills,*,*,directRGB}
End