Hello world/Line printer: Difference between revisions

{{omit from|PARI/GP}}

{{omit from|ML/I|Does not have printer-related functions}}

 

 

With some systems, a line printer can be any device attached to an appropriate port (such as a parallel port).

 

=={{header|Ada}}==

===[[Unix]]===

Assuming that the line printer is attached to /dev/lp0

with Ada.Text_IO; use Ada.Text_IO;

 

Close (Printer);

end Print_Line;

 

=={{header|Applesoft BASIC}}==

Assumes a printer card is installed in the Apple II's number 1 expansion slot.

 

PR#1

PRINT "HELLO WORLD!"

 

=={{header|AutoHotkey}}==

Fileappend, Hello World!, print.txt

Run, print "print.txt"

 

=={{header|AWK}}==

Unix / Linux:

BEGIN { print("Hello World!") >"/dev/lp0" }

 

=={{header|BASIC}}==

{{works with|QBasic}}

{{works with|ZX Spectrum Basic}}

{{works with|Liberty BASIC}}

 

 

 

 

{{works with|BBC BASIC for Windows}}

PRINT #prn%, "Hello World!"

 

=={{header|C}}==

===[[Unix]]===

Assuming that the line printer is attached to /dev/lp0

 

int main()

fclose(lp);

return 0;

 

"My Printer" should be replaced with the friendly name of the printer.

This is to avoid the extra step of locating the default printer,

which is out of scope of this example.

 

[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Ansi)]

public class DOCINFOA

ClosePrinter(hPrinter);

}

 

=={{header|Clipper}}==

SET CONSOLE OFF

? "Hello World!"

SET PRINT OFF

SET CONSOLE ON

 

=={{header|COBOL}}==

PROGRAM-ID. GOODBYE-WORLD-PRINTER.

 

UPON PRINTER

END-DISPLAY.

 

=={{header|D}}==

 

void main()

lp.writeln("Hello World!");

}

 

=={{header|Delphi}}==

 

{$APPTYPE CONSOLE}

Writeln(lPrinterAsTextFile, 'Hello World!');

CloseFile(lPrinterAsTextFile);

 

=={{header|Factor}}==

Prints through Unix "lpr" command.

 

( scratchpad ) USE: io.launcher

 

=={{header|Go}}==

 

import (

 

fmt.Fprintln(lp0, "Hello World!")

 

=={{header|Groovy}}==

 

=={{header|GUISS}}==

 

 

=={{header|Harbour}}==

SET CONSOLE OFF

? "Hello World!"

SET PRINT OFF

 

=={{header|Haskell}}==

 

 

=={{header|Icon}} and {{header|Unicon}}==

Works in both languages, provided printer is attached to <tt>/dev/lp0</tt>.

 

write(open("/dev/lp0","w"),"Hello, world!")

 

=={{header|Integer BASIC}}==

=={{header|J}}==

 

 

=={{header|Java}}==

 

import java.io.IOException;

}

}

 

=={{header|JavaScript}}==

{{works with|Node.js}}

var fs = require('fs');

// Assuming lp is at /dev/lp0

var lp = fs.openSync('/dev/lp0', 'w');

fs.writeSync(lp, 'Hello, world!\n');

{{works with|Firefox}}

{{works with|Chromium}}

document.write("Hello World!");

print(); //Opens a dialog.

 

=={{header|Lasso}}==

 

 

=={{header|Locomotive Basic}}==

 

 

=={{header|Mathematica}} / {{header|Wolfram Language}}==

 

=={{header|MATLAB}} / {{header|Octave}}==

===[[Unix]]===

Assuming that the line printer is attached to /dev/lp0

fprintf(fid,'Hello World!\n');

 

=={{header|MIXAL}}==

LPR EQU 18

STRING EQU 2000

ALF D!

END START

 

=={{header|OCaml}}==

Assuming that the line printer is attached to /dev/lp0

let oc = open_out "/dev/lp0" in

output_string oc "Hello world!\n";

 

=={{header|OpenEdge/Progress}}==

PUT UNFORMATTED "Hello world!" SKIP.

 

=={{header|Pascal}}==

{{libheader|Printer}}

Example from the FreePascal documentation:

uses printer;

var i: integer;

writeln ( 'Done.' )

{$endif}

 

=={{header|Perl}}==

Assuming that the line printer is attached to /dev/lp0

print O "Hello World!\n";

 

 

=={{header|PHP}}==

file_put_contents('/dev/lp0', 'Hello world!');

 

fclose(STDOUT);

$STDOUT = fopen('/dev/lp0', 'a');

echo 'Hello world!';

 

=={{header|PicoLisp}}==

 

=={{header|PL/I}}==

hello: procedure options(main);

put skip list('Hello world.');

 

=={{header|PostScript}}==

Technically not really correct, as this has to be sent to the printer directly.

It will output Hello world, then, though.

/Courier findfont % use Courier

12 scalefont setfont % 12 pt

28 802 moveto % 1 cm from the top and left edges

 

=={{header|PureBasic}}==

{{libheader|PureLPRINT}}

If LPRINT_OpenPrinter(MyPrinter$)

If LPRINT_StartDoc("Printing a RC-Task")

EndIf

LPRINT_ClosePrinter()

 

=={{header|Python}}==

Assuming that the line printer is attached to /dev/lp0:

lp.write("Hello World!\n")

 

If the above code gives you the error "IOError: File not open for writing", try:

lp.write("Hello World!\n")

 

=={{header|Racket}}==

 

#lang racket

(define (print text)

(λ() (displayln text)))))

(print "Hello World!")

 

=={{header|REXX}}==

but a shell command could be used.

<br><br>In DOS (or under Windows):

 

=={{header|RPG}}==

{{works with|ILE RPG}}

Fqsysprt O F 80 printer

C except

Oqsysprt E

O 11 'Hello world'

 

=={{header|Ruby}}==

Assumes that <code>lpr</code> command reaches printer.

 

 

=={{header|Run BASIC}}==

 

=={{header|Salmon}}==

Assuming /dev/lp0 accesses the printer:

 

 

Assuming lpr is a command that prints to a printer:

 

=={{header|Scala}}==

{{libheader|Scala}}

===All platforms===

import scala.swing.TextArea

 

}

println("Document printed.")

 

===[[Unix]]===

Assuming device is attached to lp0

import java.io.{ FileWriter, IOException }

{

lp0.close()

}

 

=={{header|Scheme}}==

===[[Unix]]===

Assuming device is attached to lp0

  (lambda (printer)

 

=={{header|Seed7}}==

Assuming that the line printer is attached to /dev/lp0:

const proc: main is func

writeln(lp, "Hello world!");

close(lp);

 

=={{header|Sidef}}==

 

=={{header|Simula}}==

{{works with|SIMULA-67}}

OUTTEXT("Hello World!");

OUTIMAGE

 

=={{header|SNOBOL4}}==

By default, the variable "input" is associated with standard input, and the variable "output" is associated with standard output.

 

 

You can associate the variable "print" with lpt1 (the default local printer port) using the output() function:

 

 

=={{header|Tcl}}==

 

===[[Unix]]===

puts $f "Hello World!"

 

===[[Windows]]===

 

puts $f "Hello World!"

 

=={{header|UNIX Shell}}==

Use ''one'' of the following lines.

 

# 1. The system must have a printer queue.

# 2. The printer queue must understand plain text.

echo 'Hello World!' >/dev/lp0

echo 'Hello World!' >/dev/lpt0

 

=={{header|XPL0}}==

Text(2, "Hello World!

 

The 2 directs the output to the printer (LPT1).