DataMuseum.dk

top - metrics - download

    Length: 2688 (0xa80)
    Types: TextFile
    Names: »OPERATOR.INC«

└─⟦ec7c10e12⟧ Bits:30009789/_.ft.Ibm2.50007351.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »OPERATOR.INC« 

TextFile

      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.0.');
         writeln(oper_out);
         writeln(oper_out, '(1) Indsæt kildedisketten i A-drevet.');
         REPEAT
            writeln(oper_out, '(2) Angiv navnet på kildediskettens CP/M-fil med ',
                              'VersaDos-filsystem-kopien:');
            writeln(oper_out);
            readln(oper_in, v_file_name);
            writeln(oper_out);
            IF length(v_file_name) > 0 THEN
              BEGIN
               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.');
                  writeln(oper_out);
                  status := fatal
                 END
               ELSE
                 status := succes
              END
            ELSE
               status := exit;
            IF test( (.t_1.) ) THEN
              BEGIN
               write(test_out, '===  operator-1 ====');
               write_status(test_out, status);
               write(test_out, '  ios_v_file: ', ios_v_file);
              END;
         UNTIL status in (.succes, exit.);

         IF status = succes THEN
           BEGIN
            writeln(oper_out, '(3) Angiv antal VersaDos-filer at overspringe:');
            writeln(oper_out);
            readln(oper_in, first_file_no);
            writeln(oper_out);
            writeln(oper_out, '(4) Angiv VersaDos-diskettens "volume-id":');
            writeln(oper_out);
            readln(oper_in, usr_vidvol);
            writeln(oper_out);
           END;
         IF test( (.t_1.) ) THEN
           BEGIN
            write(test_out, '===  operator >  ===');
            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);
            writeln(test_out);
           END;

        END;  (* operator *)
«eof»