gopher:get

  Data:  asns-n
  Addr:  -
  Float: -

Takes an address, a server, a port, and a selector. Fetch the
resource and store it at address. Return the number of bytes
received.

Class: class:word | Namespace: gopher | Interface Layer: ios

Example #1:

    here 'forthworks.com #70 '/ gopher:get
    here s:put


~~~
  :set      (asns-sns) 'abcd 'bcda reorder buffer:set ;
  :url      (sns-s)    'abc 'cba reorder 'gopher://%s:%n/0%s s:format ;
  :command  (s-s)      'curl_-s_%s s:format ;
  :connect  (s-p)      file:R unix:popen ;
  :read     (p-p)      [ dup file:read dup buffer:add n:zero? ] until ;
  :complete (p-n)      unix:pclose buffer:end buffer:start - ;
---reveal---
  :gopher:get (asns-n)
    [ set url command connect read complete ] buffer:preserve ;
~~~

## Test Case

~~~
'Data d:create #256001 allot
&Data 'forthworks.com #70 '/retro gopher:get
'%n_bytes_read\n s:format s:put
~~~