gr.open 255,255,255,255
gr.orientation 0
FN.DEF Extract$(S$, LB$, RB$)
 pos = IS_IN(LB$, S$)
 IF pos > 0 THEN S$ = RIGHT$(S$, LEN(S$)-pos+1)
 IF RB$ <> "" THEN
  pos = IS_IN(RB$, S$)
  IF pos > 0 THEN S$ = LEFT$(S$, pos+LEN(RB$)-1)
 ENDIF
 FN.RTN S$
FN.END

GRABURL W$,"https://coinmarketcap.com"
W$=Extract$(W$, "<table", "</table>")
BitcoinRow$=Extract$(W$, "<tr id=\"id-bitcoin", "</tr>")
PRINT BitcoinRow$
T$=Extract$(BitcoinRow$, "class=\"price", "</td>")
BitcoinValue$=Extract$(T$, "data-usd=\"", "\" data-")
BitcoinValue$=LEFT$(BitcoinValue$, -7)
BitcoinValue$=RIGHT$(BitcoinValue$, -10)
PRINT BitcoinValue$