23 lines
527 B
Plaintext
23 lines
527 B
Plaintext
# example program: reading a URL over HTTP
|
|
|
|
def main [
|
|
local-scope
|
|
google:&:source:char <- start-reading-from-network 0/real-resources, [google.com/]
|
|
n:num <- copy 0
|
|
buf:&:buffer:char <- new-buffer 30
|
|
{
|
|
c:char, done?:bool <- read google
|
|
break-if done?
|
|
n <- add n, 1
|
|
buf <- append buf, c
|
|
loop
|
|
}
|
|
result:text <- buffer-to-array buf
|
|
open-console
|
|
clear-screen 0/screen # non-scrolling app
|
|
len:num <- length *result
|
|
print 0/real-screen, result
|
|
wait-for-some-interaction
|
|
close-console
|
|
]
|