Initial commit for opium

This commit is contained in:
Ruben Shekspir 2019-03-29 15:24:00 +04:00
parent 6686997ed2
commit 69a133eec1
7 changed files with 51 additions and 772 deletions

View file

@ -1,5 +1,5 @@
MODULE http;
IMPORT Internet, Out;
IMPORT Internet, Logger;
VAR
buff: ARRAY 1000 OF CHAR;
PROCEDURE get(host, port: ARRAY OF CHAR; VAR buff: ARRAY OF CHAR);
@ -24,6 +24,5 @@ END get;
BEGIN
get("voto.am", "80", buff);
Out.String(buff);
Out.Ln;
Logger.Log(buff);
END http.