Anonymous user
Hello world/Line printer: Difference between revisions
added Ol
(added Ol) |
|||
Line 684:
=={{header|Oforth}}==
<lang Oforth>File new("/dev/lp0") dup open(File.WRITE) "Hello world\n" << close</lang>
=={{header|Ol}}==
<lang scheme>
(define p (open-output-file "/dev/lp0"))
(when p
(print-to p "Hello world!")
(close-port p))
</lang>
=={{header|OpenEdge/Progress}}==
| |||