DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦02eaaf162⟧ TextFile

    Length: 1536 (0x600)
    Types: TextFile
    Names: »printfinp«

Derivation

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦8c6b0f8fa⟧ »cdes« 
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦8c6b0f8fa⟧ »cdes« 
            └─⟦this⟧ 

TextFile


<se *< *pl 297,21,240,13,4*
*pn 0,0**lw 170* *ld 12* *ps*
*qr*
1980-10-24
Anders Lindgård
*nl1*
*ct*
integer procedure printfile
*nl1*
*rj**np*
Sends a message to the PRIMO module to print the file "file"
on the printer "printer". Default printer is "lp"
*nl2*
Call: printfile(printer,file)*nl*
*lm55*
*mt 1,      printfile**cm 6 spaces*(return value, integer).
*sj*Result of the operation. 
printfile>0 : transport number
printfile<0 : error
*rj*
*mt 1,      printer*(call value, string). The name of
a filedescriptor describing the printer or the 
empty string <::> in which case <:lp:> is used.
*nl*
*mt 1,      file*(call value, string). The name of the
file to be printed.
*lm0*

*nl1**np*
In case of an error an warning is written on
the zone out, but the program is not terminated.
*lm0**nl4*
*ns 1,2,Language: ALGOL*
        ---------*nl*
*ns 1,2,Maintenance level: user*
        ------------------*nl*
*ef*
▶EOF◀