Reading From a Magnetic Tape File

  procedure copy_tape_to_disk_file;

  var
     record          : packed array [1..30] of char; {declare record}
     end_of_file     : boolean;              {declare exit condition}
     record_length   : shortint;                {size of record read}
     length          : shortint;                  {declare parameter}
     control_code    : 0..65535;                  {declare parameter}

  begin
     end_of_file := false;                {initialize exit condition}
     control_code := 0;                       {initialize to default}
     length := -80;                     {size of record to be copied}

     repeat                               {loop until exit condition}

        record_length := FREAD (tape_file_num, record, length);
        if ccode = ccl then
           handle_file_error (tape_file, 3)
        else
           if ccode = ccg then             {FREAD returns ccg if EOF}
              end_of_file := true        {exit condition encountered}
           else begin
              FWRITE( disk_file_num,   {identity returned by HPFOPEN}
                      record,               {read from tape_file_num}
                      record_length,        {actual size of record  }
                      control_code          {default                }
                    );
              if ccode <> cce then   {check condition code for error}
              handle_file_error (disk_file, 5);
           end

     until end_of_file;
  end;                                                {end procedure}