Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,13 +0,0 @@
|
|||
HELLO CSECT
|
||||
PRINT NOGEN
|
||||
BALR 12,0
|
||||
USING *,12
|
||||
OPEN LNPRNTR
|
||||
LA 6,HW
|
||||
PUT LNPRNTR
|
||||
CLOSE LNPRNTR
|
||||
EOJ
|
||||
LNPRNTR DTFPR DEVADDR=SYSLST,IOAREA1=L1
|
||||
L1 DS 0CL133
|
||||
HW DC C'Hello World!'
|
||||
END HELLO
|
||||
|
|
@ -1,17 +0,0 @@
|
|||
with Ada.Text_IO; use Ada.Text_IO;
|
||||
|
||||
procedure Print_Line is
|
||||
Printer : File_Type;
|
||||
begin
|
||||
begin
|
||||
Open (Printer, Mode => Out_File, Name => "/dev/lp0");
|
||||
exception
|
||||
when others =>
|
||||
Put_Line ("Unable to open printer.");
|
||||
return;
|
||||
end;
|
||||
|
||||
Set_Output (Printer);
|
||||
Put_Line ("Hello World!");
|
||||
Close (Printer);
|
||||
end Print_Line;
|
||||
|
|
@ -1 +1 @@
|
|||
write "/dev/lp0" "Hello World\n"
|
||||
"Hello World\n" >> "/dev/lp0"
|
||||
|
|
|
|||
|
|
@ -1,8 +0,0 @@
|
|||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. GOODBYE-WORLD-PRINTER.
|
||||
|
||||
PROCEDURE DIVISION.
|
||||
DISPLAY 'Hello World!'
|
||||
UPON PRINTER
|
||||
END-DISPLAY.
|
||||
STOP RUN.
|
||||
Loading…
Add table
Add a link
Reference in a new issue