DataMuseum.dk

top - metrics - download

    Length: 768 (0x300)
    Types: TextFileVerbose
    Names: »tpunchprog«

└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
    └─⟦6b41451d2⟧ 
        └─⟦this⟧ »tpunchprog« 

TextFileVerbose

program punchprog ( output, crossfile = 'coreimage', ptpfile = 'tpn');

(* convert crosslink output from binary two bytes per word to punch
format, i.e. text including controle characters *)

var
crossfile : file of integer;
ptpfile : file of iso;

i : integer;

begin

reset ( crossfile );
rewrite ( ptpfile ); 
write(ptpfile, chr ( 64 ) );  (* punch start mark *)

read ( crossfile, i);

while i <> -1 do
begin

write(ptpfile, chr ( i div 256), chr ( i mod 256 ) );

read ( crossfile, i );

end; (* while ... *)

close ( crossfile );

close ( ptpfile );


end.


«eof»