DataMuseum.dk

top - metrics - download

    Length: 6272 (0x1880)
    Types: TextFile
    Names: »VC-004.BAK«

└─⟦398ae89d3⟧ Bits:30009789/_.ft.Ibm2.50007353.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »VC-004.BAK« 

TextFile

(******************************************************************************)
(*                                                                            *)
(*                                                                            *)
(*                  This file contains parts of the                           *)
(*                  source text for program VERSACON                          *)
(*                                                                            *)
(*        Copyright (C) 1985 by Lars G. Jakobsen and Metanic Aps.             *)
(*                                                                            *)
(*                                                                            *)
(******************************************************************************)



(******************************************************************************)
(*                                                                            *)
(*   PROCEDURES FOR PRINTED REPORTING AND OPERATOR DIALOGUE                   *)
(*                                                                            *)
(******************************************************************************)

   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);
      writeln(print_out, '          # FILER OVERSPRUNGET:  ', first_file_no:4);
      writeln(print_out);
      writeln(print_out);
      FOR i :=  1 TO 10 DO
         write(print_out, ' ');
      FOR i := 11 TO 53 DO
         write(print_out, '-');
      writeln(print_out, '# SEKTORER-----# POSTER-----');
     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, ':'
                          , s_i_16(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
                            ;    secs: psn_type
                            ;    recs: psn_type
                            );

      VAR
         i: byte;

     BEGIN (* print_post_file *)
      FOR i := 1 TO 53 DO
         write(print_out, ' ');
      write_psn(print_out, secs);
      write(print_out, '  ');
      write_psn(print_out, recs);
      writeln(print_out)
     END;  (* print_post_file *)

   PROCEDURE print_footer(VAR status: status_type
                         ;VAR print_out: text
                         ;    file_no: integer
                         );

      VAR
         i: integer;

     BEGIN (* print_footer *)
      FOR i :=  1 TO 10 DO
         write(print_out, ' ');
      FOR i := 11 TO 80 DO
         write(print_out, '-');
      writeln(print_out);
      writeln(print_out);
      writeln(print_out, '          ', file_no:5, ' filer er kopieret.')
     END;  (* print_footer *)

(******************************************************************************)

   PROCEDURE operator(VAR status: status_type
                     ;VAR oper_in: text
                     ;VAR oper_out: text
                     ;VAR v_file: v_file_type
                     ;VAR v_file_name: c_file_name_type
                     ;VAR first_file_no: integer
                     ;VAR usr_vidvol: string_4
                     );

      VAR
         ios_v_file: byte;

     BEGIN (* operator *)
      (* operator dialogue *)
      writeln(oper_out, 'Program VERSACON version 1.1.');
      writeln(oper_out);

      writeln(oper_out, 'Angiv VersaDos-diskettens "volume-id":');
      writeln(oper_out);
      readln(oper_in, usr_vidvol);
      writeln(oper_out);

      v_file_name := source_device + usr_vidvol + '.txt';
      assign(v_file, v_file_name);
      (*$I-*)
      reset(v_file);
      (*$I+*)
      ios_v_file := ioresult;
      IF ios_v_file <> IO_succes THEN
        BEGIN
         writeln(oper_out, '*** Filåbningsfejl. IOS = ', ios_v_file:3);
         writeln(oper_out);
         status := fatal
        END
      ELSE
         status := succes;

      IF status = succes THEN
        BEGIN
         writeln(oper_out, 'Angiv antal VersaDos-filer at overspringe:');
         writeln(oper_out);
         readln(oper_in, first_file_no);
         writeln(oper_out);
        END;

      IF test( (.t_1.) ) THEN
        BEGIN
         write(test_out, 'OPR 2 = = = ');
         write_status(test_out, status);
         write(test_out, '  V_FILE_NAME: ',v_file_name:14);
         write(test_out, '  FIRST_FILE_NO: ',first_file_no);
         write(test_out, '  USR_VIDVOL: ',usr_vidvol);
         write(test_out, '  IOS: ', ios_v_file);
         writeln(test_out);
        END;

     END;  (* operator *)
«eof»