|
DataMuseum.dkPresents historical artifacts from the history of: Bogika Butler |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Bogika Butler Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2944 (0xb80)
Types: TextFile
Names: »VC-004.BAK«
└─⟦ec7c10e12⟧ Bits:30009789/_.ft.Ibm2.50007351.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »VC-004.BAK«
(******************************************************************************)
(* *)
(* PROCEDURES FOR PRINTED REPORTING *)
(* *)
(******************************************************************************)
PROCEDURE print_header(VAR status: status_type
;VAR print_out: text
; v_file_name: c_file_name_type
; first_file_no: integer
);
VAR
i: byte;
BEGIN (* print_header *)
writeln(print_out, ' LOG FOR KONVERTERING AF VERSADOS-',
'FILSYSTEM TIL CP/M-FILSYSTEM.');
writeln(print_out);
writeln(print_out);
writeln(print_out, ' KILDEFIL: ', v_file_name:14,
' # FILER OVERSPRUNGET: ', first_file_no:4);
writeln(print_out);
writeln(print_out);
FOR i := 1 TO 58 DO
write(print_out, '-');
writeln(print_out, '# POSTER-----#BYTES------');
END; (* print_header *)
PROCEDURE print_dir(VAR status: status_type
;VAR print_out: text
; path_name: path_name_type
);
BEGIN (* print_dir *)
writeln(print_out);
WITH path_name DO
writeln(print_out, ' '
, vol:4, ':'
, usn:4, '.'
, sdb_clg:8, '.'
, pdb_clg:8, '.'
);
writeln(print_out);
END; (* print_dir *)
PROCEDURE print_pre_file(VAR status: status_type
;VAR print_out: text
; file_no: integer
; fil: text_8
; ext: text_2
; c_file_name: c_file_name_type
);
BEGIN (* print_pre_file *)
writeln(print_out, ' ', file_no:4, ' '
, fil:8, '.'
, ext:2, ' > '
, c_file_name
);
END; (* print_pre_file *)
PROCEDURE print_post_file(VAR status: status_type
;VAR print_out: text
; recs: integer
; bytes: integer
);
VAR
i: byte;
BEGIN (* print_post_file *)
FOR i := 1 TO 58 DO
write(print_out, ' ');
writeln(print_out, recs:6, ' ', bytes:6);
END; (* print_post_file *)
«eof»