diff --git a/src/divs.a68 b/src/divs.a68
new file mode 100644
index 0000000..e01a12b
--- /dev/null
+++ b/src/divs.a68
@@ -0,0 +1,7 @@
+BEGIN
+    INT diva := 7 OVER 3;
+    INT divb := 7 MOD 3;
+    print(diva);
+    print(divb)
+END
+
diff --git a/src/mktime.a68 b/src/mktime.a68
new file mode 100644
index 0000000..3f07ec3
--- /dev/null
+++ b/src/mktime.a68
@@ -0,0 +1,41 @@
+BEGIN
+    INT days per year = 365,
+        days per leap year = 366,
+        secs per day = 24 * 3600,
+        secs per hour = 3600,
+        secs per min = 60;
+
+    [1:12] INT days in month := (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
+
+    PROC to epoch secs = ([] INT t) LONG REAL:
+    BEGIN
+        INT year = t[1], month = t[2], day = t[3],
+            hour = t[4], min = t[5], sek = t[6];
+        # Ignoring dow (t[7]) and dst (t[8]) for simplicity #
+
+        # Years since 1970 #
+        INT years = year - 1970;
+        INT leap years = years OVER 4 - years OVER 100 + years OVER 400; # Leap rule #
+        LONG INT days = years * days per year + leap years;
+
+        # Adjust February for current year #
+        IF year MOD 4 = 0 AND (year MOD 100 /= 0 OR year MOD 400 = 0)
+        THEN days in month[2] := 29 FI;
+
+        # Days in prior months this year #
+        FOR m FROM 1 TO month - 1 DO
+            days +:= days in month[m]
+        OD;
+        days +:= day - 1; # Current day (0-based from month start) #
+
+        # Total seconds #
+        LONG REAL total = days * secs per day + hour * secs per hour + min * secs per min + sek;
+        total
+    END;
+
+    # Test it #
+    [] INT lt = local time;
+    print(("array: ", lt, newline));
+    LONG REAL secs = to epoch secs(lt);
+    print(("seconds: ", secs, newline))
+END
\ No newline at end of file
diff --git a/src/mktime2.a68 b/src/mktime2.a68
new file mode 100644
index 0000000..200eafb
--- /dev/null
+++ b/src/mktime2.a68
@@ -0,0 +1,36 @@
+BEGIN
+    LONG INT days per year = 365,
+             days per leap year = 366,
+             secs per day = 24 * 3600,
+             secs per hour = 3600,
+             secs per min = 60;
+
+    [1:12] LONG INT days in month := (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
+
+    PROC to epoch secs = ([] INT t) LONG REAL:
+    BEGIN
+        LONG INT year = t[1], month = t[2], day = t[3],
+                 hour = t[4], min = t[5], sek = t[6];
+        LONG INT years = year - 1970;
+        LONG INT leap years = years OVER 4 - years OVER 100 + years OVER 400;
+        LONG INT days = years * days per year + leap years;
+
+        IF year MOD 4 = 0 AND (year MOD 100 /= 0 OR year MOD 400 = 0)
+            THEN days in month[2] := 29 
+        FI;
+
+        FOR m FROM 1 TO month - 1 DO
+            days +:= days in month[m]
+        OD;
+        
+        days +:= day - 1;
+
+        LONG REAL total = days * secs per day + hour * secs per hour + min * secs per min + sek;
+        total
+    END;
+
+    [] INT lt = local time;
+    print(("array: ", lt, newline));
+    LONG REAL secs = to epoch secs(lt);
+    print(("seconds: ", secs, newline))
+END
\ No newline at end of file
diff --git a/src/mktime3.a68 b/src/mktime3.a68
new file mode 100644
index 0000000..8402ca4
--- /dev/null
+++ b/src/mktime3.a68
@@ -0,0 +1,45 @@
+# ------------------------------------------
+  mktime: 
+    Mimics the behavior of unix "mktime". Takes the Algol 68 "local time" array as
+    input, and outputs the number of seconds since Jan 1, 1970. Algol "Local time"
+    produces the following output: [YEAR, MONTH, DAY, HOUR, MINS, SECS]
+ ------------------------------------------ #
+
+BEGIN
+    INT days per year = 365,
+        secs per day = 24 * 3600,
+        secs per hour = 3600,
+        secs per min = 60;
+
+    [1:12] INT days in month := (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
+
+    PROC to epoch secs = ([] INT t) LONG REAL:
+    BEGIN
+        
+        # Parses up the output from "local time" #
+        INT year = t[1], month = t[2], day = t[3],
+            hour = t[4], min = t[5], sek = t[6];
+        INT years = year - 1970; # uses unix epoch year #
+        
+        # Don't forget the leap years! #
+        INT leap years = years OVER 4 - years OVER 100 + years OVER 400;
+        INT days := years * days per year + leap years;
+        IF year MOD 4 = 0 AND (year MOD 100 /= 0 OR year MOD 400 = 0)
+        THEN days in month[2] := 29 FI;
+
+        INT month days := 0;
+        FOR m FROM 1 TO month - 1 DO
+            month days := month days + days in month[m]
+        OD;
+
+        days := days + month days + (day - 1);
+
+        LONG REAL total = days * secs per day + hour * secs per hour + min * secs per min + sek;
+        total
+    END;
+
+    [] INT lt = local time;
+    print(("array: ", lt, newline));
+    LONG REAL secs = to epoch secs(lt);
+    print(("seconds: ", secs, newline))
+END
\ No newline at end of file
diff --git a/src/postgres-test-4.a68 b/src/postgres-test-4.a68
new file mode 100644
index 0000000..635f17c
--- /dev/null
+++ b/src/postgres-test-4.a68
@@ -0,0 +1,26 @@
+BEGIN
+    FILE db;
+    STRING result;  # Renamed for clarity #
+    STRING conninfo = "dbname=testdb user=gmgauthier password=thx1138gg host=localhost port=5432";
+    INT status = pq connect db(db, conninfo, result);
+    IF status = 0 THEN
+        print(("Connected!", newline));
+        INT qstatus = pq exec(db, "SELECT version()");
+        IF qstatus = 0 THEN
+            INT nrows = pq ntuples(db);
+            print(("Rows: ", nrows, newline));
+            INT fetch = pq get value(db, 1, 1);
+            IF fetch = 0 THEN
+                print(("Version: ", result, newline))
+            ELSE
+                print(("Fetch failed: ", fetch, newline))
+            FI
+        ELSE
+            print(("Query failed: ", qstatus, newline))
+        FI;
+        INT finish status = pq finish(db);
+        print(("Finish: ", finish status, newline))
+    ELSE
+        print(("Failed: ", result, newline))
+    FI
+END
\ No newline at end of file
diff --git a/src/postgres-test.a68 b/src/postgres-test.a68
new file mode 100644
index 0000000..bcfd206
--- /dev/null
+++ b/src/postgres-test.a68
@@ -0,0 +1,22 @@
+BEGIN
+    STRING conninfo = "dbname=testdb user=gmgauthier password=thx1138gg host=localhost port=5432";
+    REF FILE db = pq connect db(conninfo);
+    IF db ISNT REF FILE(NIL) 
+    THEN
+        BEGIN
+            REF pqresult res;  # Declare at block start #
+            print(("Connected!", newline));
+            res := pq exec(db, "SELECT version()");
+            IF res ISNT REF pqresult(NIL) THEN
+                STRING ver = pq get value(res, 0, 0);
+                print(("Postgres version: ", ver, newline));
+                pq clear(res)
+            ELSE
+                print(("Query failed", newline))
+            FI;
+            pq finish(db)
+        END
+    ELSE
+        print(("Connection failed", newline))
+    FI
+END
\ No newline at end of file
diff --git a/src/postgres-test2.a68 b/src/postgres-test2.a68
new file mode 100644
index 0000000..d7724bd
--- /dev/null
+++ b/src/postgres-test2.a68
@@ -0,0 +1,14 @@
+BEGIN
+    FILE db;
+    STRING err;
+    STRING conninfo = "dbname=testdb user=gmgauthier password=thx1138gg host=localhost port=5432";
+    INT status = pq connect db(db, conninfo, err);
+    print(("Status: ", status, newline));
+    IF status = 0 THEN
+        print(("Connected!", newline));
+        INT finish status = pq finish(db);
+        print(("Finish status: ", finish status, newline))
+    ELSE
+        print(("Failed: ", err, newline))
+    FI
+END
\ No newline at end of file
diff --git a/src/postgres-test3.a68 b/src/postgres-test3.a68
new file mode 100644
index 0000000..974bdcc
--- /dev/null
+++ b/src/postgres-test3.a68
@@ -0,0 +1,17 @@
+BEGIN
+    FILE db;
+    STRING err;
+    STRING conninfo = "dbname=testdb user=gmgauthier password=thx1138gg host=localhost port=5432";
+    INT status = pq connect db(db, conninfo, err);
+    IF status = 0 THEN
+        print(("Connected!", newline));
+        printf (($"protocol="g (0)x"server="g (0)x"socket="g (0)x"pid="g (0)l$,
+                pq protocol version (db), pq server version (db), pq socket (db),
+                pq back end pid (db)));
+        print(("Exec: ", pq exec(db, "SELECT version()"), newline));
+        INT finish status = pq finish(db);
+        print(("Finish: ", finish status, newline))
+    ELSE
+        print(("Failed: ", err, newline))
+    FI
+END
\ No newline at end of file
diff --git a/src/postgres-test5.a68 b/src/postgres-test5.a68
new file mode 100644
index 0000000..debcb6a
--- /dev/null
+++ b/src/postgres-test5.a68
@@ -0,0 +1,14 @@
+BEGIN
+    FILE db; STRING result;
+    STRING conninfo = "dbname=testdb user=gmgauthier password=thx1138gg host=localhost port=5432";
+    INT status = pq connect db(db, conninfo, result);
+    IF status = 0 THEN
+        INT qstatus = pq exec(db, "SELECT data FROM test");
+        IF qstatus = 0 THEN
+            print(("Rows: ", pq ntuples(db), newline));
+            IF pq get value(db, 1, 1) = 0 THEN print(("Data: ", result, newline)) FI
+        FI;
+        INT finish = pq finish(db);
+        print(("Finish: ", finish, newline))
+    ELSE print(("Failed: ", result, newline)) FI
+END
\ No newline at end of file
diff --git a/src/simple-time.a68 b/src/simple-time.a68
new file mode 100644
index 0000000..af185c2
--- /dev/null
+++ b/src/simple-time.a68
@@ -0,0 +1,21 @@
+BEGIN
+    PROC print time = VOID:
+    BEGIN
+        [] INT lt = local time;
+        print(("time: ", lt[1], "-", lt[2], "-", lt[3], " ",
+              lt[4], ":", lt[5], ":", lt[6],
+              ", dow: ", lt[7], ", dst: ", lt[8], newline))
+    END;
+
+    PROC delay = (REAL secs) VOID:
+    BEGIN
+        REAL strt = seconds;
+        WHILE seconds - strt < secs DO SKIP OD
+    END;
+
+    FOR i FROM 1 TO 5 DO
+        print(("run ", i, ": ", newline));
+        print time;
+        delay(1.0)  # Wait 1 second between prints #
+    OD
+END
\ No newline at end of file
diff --git a/src/times.a68 b/src/times.a68
new file mode 100644
index 0000000..cc9ffb4
--- /dev/null
+++ b/src/times.a68
@@ -0,0 +1,7 @@
+BEGIN
+    [] INT lt = local time; 
+    print(lt);
+
+    LONG REAL secs = local time;  # Explicit LONG REAL #
+    print(("seconds: ", secs, newline))
+END
\ No newline at end of file