11 lines
285 B
Text
11 lines
285 B
Text
file i, o, s;
|
|
|
|
tcpip_listen(s, 8080, 0);
|
|
while (1) {
|
|
accept(i, o, s, 0);
|
|
f_(o, "HTTP/1.1 200 OK\n"
|
|
"Content-Type: text/html; charset=UTF-8\n\n"
|
|
"<!DOCTYPE html><html><head><title>baby bye-bye</title></head>"
|
|
"<body><h1>Goodbye, world!</h1></body></html>\n");
|
|
f_flush(o);
|
|
}
|