DataMuseum.dk

Presents historical artifacts from the history of:

Christian Rovsing CR7, CR8 & CR16 CP/M

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

See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦3374c6eec⟧ TextFile

    Length: 384 (0x180)
    Types: TextFile
    Names: »WAGE.PLI«

Derivation

└─⟦811637d18⟧ Bits:30005383 Microsoft COBOL-80 v4.01
    └─⟦this⟧ »WAGE.PLI«

TextFile

copy:
    proc options(main);
    dcl
	(input,output) file;
    open file (input) stream env(b(8192))
	title('$1.$1');
    open file (output) stream output env(b(8192)) 
	title('$2.$2');
    dcl
	buff char(254) varying;
    do while('1'b);
    read file (input) into (buff);
    write file (output) from (buff);
    end;
end copy;
«eof»