PUBLIC SUB getfile()


  DIM h AS HttpClient
  DIM buffer AS String
  h = NEW HttpClient AS "h"
  h.URL = "http://www.google.com/"
  h.Async = FALSE
  h.Timeout = 60
  h.Get

  PRINT "begin"
  IF h.Status < 0 THEN
    PRINT "ERROR"
  ELSE
    ' Success - read the data
    IF Lof(h) THEN READ #h, buffer, Lof(h)
    PRINT buffer
  END IF

  PRINT "end"

END