Another update from ingydotnet^djgoku

Task/Hello-world-Line-printer/ALGOL-68/hello-world-line-printer.alg

@@ -0,0 +1,19 @@
+BEGIN
+   STRING printer name = "/dev/lp0";
+   FILE line printer;
+   IF open (line printer, printer name, stand out channel) = 0 THEN
+      put (line printer, ("Hello world", newline));
+      close (line printer)
+   ELSE
+      put (stand error, ("Can't contact line printer on ", printer name, newline));
+      put (stand error, ("Trying to use lpr(1)", newline));
+      PIPE printer pipe = execve child pipe ("lpr", "", "");
+      IF pid OF printer pipe < 0 THEN
+	 put (stand error, ("Oh dear, that didn't seem to work either.  Giving up.", newline));
+	 stop
+      FI;
+      put (write OF printer pipe, ("Hello world", newline));
+      close (read OF printer pipe);
+      close (write OF printer pipe)
+   FI
+END

Task/Hello-world-Line-printer/Fortran/hello-world-line-printer.f

@@ -0,0 +1,3 @@
+      WRITE (6,1)
+    1 FORMAT ("+HELLO WORLD!")
+      END