DataMuseum.dk

Presents historical artifacts from the history of:

Bogika Butler

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Bogika Butler

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦2244fb0bf⟧ TextFile

    Length: 1792 (0x700)
    Types: TextFile
    Names: »VC-001.BAK«

Derivation

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

TextFile

(******************************************************************************)
(*                                                                            *)
(*   GLOBAL TYPES                                                             *)
(*                                                                            *)
(******************************************************************************)

   TYPE
      status_type = (succes, failure, empty, exit, fatal, nomore, eof);
      v_file_type = file;
      c_file_type = text;
      c_file_name_type = string(.14.);
      catalog_name_type = string(.8.);
      string_2 = string(.2.);
      string_4 = string(.4.);
      path_name_type = RECORD
                          vol: text_4;
                          usn: integer;
                          sdb_clg: text_8;
                          pdb_clg: text_8
                       END;
      byte_number = integer;


(******************************************************************************)
(*                                                                            *)
(*   GLOBAL CONSTANTS                                                         *)
(*                                                                            *)
(******************************************************************************)


   CONST

      (* used by procedures calling get_current_block or get_block *)

      recs_per_vid = 2;
      recs_per_sdb = 2;
      recs_per_pdb = 4;
      recs_per_fab = 2;
      recs_per_dab = 2;


      (* used by open_c_file *)

(*      target_device: text_2 = 'B:';
      initial_suffix: char = 'A';

  *)«eof»