|
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: 1792 (0x700)
Types: TextFile
Names: »VC-001.BAK«
└─⟦ec7c10e12⟧ Bits:30009789/_.ft.Ibm2.50007351.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »VC-001.BAK«
(******************************************************************************)
(* *)
(* 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»