*
* Grab money from Internet
*
PRIVATE lcmoneyweb && web site where we can find exchange rates...
m.lcaliastmp=ALIAS()
IF empty(lcfile)
  lcfile='FCUR'
endif

m.lcmoneyweb='http://mwprices.ft.com/custom/ft-com/html-currency-summary.asp?view=currency-convert&symbols=FOREXR:GBPUS+FOREXR:USDUS+GBP|USD|225'

m.lcs01='World Currencies Summary'
m.lcs02='class=MW1>'

ox=CREATEOBJECT( "Shell.Explorer" )

CREATE CURSOR xtemp (mtemp m)
APPEND BLANK
REPLACE mtemp WITH ReadURL( m.lcmoneyweb)

m.first=ATCC(m.lcs01,mtemp)
IF m.first> 10 
  m.latmp=SUBSTR(mtemp,m.first+ 20 , 3000 )

  STORE ' ' TO m.lcUSD,m.lcEUR
  DO trnsf WITH ATCC(m.lcs02,m.latmp, 7 ),'lcUSD'
  DO trnsf WITH ATCC(m.lcs02,m.latmp, 8 ),'lcEUR'

  WAIT WINDOW'USD='+m.lcUSD+' EUR='+m.lcEUR TIMEOUT  5 

  IF !EMPTY(m.lcaliastmp)
    SELECT &lcaliastmp
  ENDIF

  PRIVATE m.lddate
  CALCULATE MAX(DATE) TO m.lddate
  IF m.lddate<DATE()
    COPY ALL TO ARRAY alfcdat FOR DATE=m.lddate
    IF ALEN(alfcdat)> 0 
      m.lccura=''
      FOR i= 1  TO ALEN(alfcdat)
        m.lctmpa=alfcdat(i)
        IF TYPE('m.lctmpa')='D'
          STORE DATE() TO alfcdat(i)
        ENDIF
        IF TYPE('m.lctmpa')='C'
          m.lccura=m.lctmpa
        ENDIF

        IF TYPE('m.lctmpa')='N'
          DO CASE
          CASE m.lccura='USD'
            STORE VAL(m.lcUSD) TO alfcdat(i)
          CASE m.lccura='EUR'
            STORE VAL(m.lcEUR) TO alfcdat(i)
          OTHERWISE
            STORE  0  TO alfcdat(i)
          ENDCASE

        ENDIF
      ENDFOR
      INSERT INTO &lcfile FROM ARRAY alfcdat

    ENDIF
  ENDIF


ELSE
  WAIT WINDOW 'There are no Currency exchange rate on '+m.lcmoneyweb TIMEOUT  5 
ENDIF


ox=NULL
IF !EMPTY(m.lcaliastmp)
  SELECT &lcaliastmp
ENDIF
RETURN

PROCEDURE trnsf
PARAMETERS lnstart, lccurname
FOR i= 1  TO  20 
  m.lcletter=SUBSTR(m.latmp,lnstart+ 9 +i, 1 )
  IF ISDIGIT(m.lcletter).OR.m.lcletter='.'
    &lccurname=&lccurname+m.lcletter
  ELSE
    EXIT
  ENDIF
ENDFOR
RETURN