Hello world/Line printer: Difference between revisions
Content added Content deleted
(added Ol) |
|||
Line 684: | Line 684: | ||
=={{header|Oforth}}== |
=={{header|Oforth}}== |
||
<lang Oforth>File new("/dev/lp0") dup open(File.WRITE) "Hello world\n" << close</lang> |
<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}}== |
=={{header|OpenEdge/Progress}}== |