|
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: 2816 (0xb00)
Types: TextFile
Names: »VC-001.INC«
└─⟦398ae89d3⟧ Bits:30009789/_.ft.Ibm2.50007353.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »VC-001.INC«
(******************************************************************************)
(* *)
(* *)
(* This file contains parts of the *)
(* source text for program VERSACON *)
(* *)
(* Copyright (C) 1985 by Lars G. Jakobsen and Metanic Aps. *)
(* *)
(* *)
(******************************************************************************)
(******************************************************************************)
(* *)
(* 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: i_16;
sdb_clg: text_8;
pdb_clg: text_8
END;
byte_number = integer;
sgn_type = (negative, zero, positive);
(******************************************************************************)
(* *)
(* GLOBAL CONSTANTS *)
(* *)
(******************************************************************************)
CONST
(* used by procedures calling get_current_block or get_block *)
recs_per_vid = 2;
recs_per_sdb = 2;
recs_per_pdb = 8;
recs_per_fab = 2;
recs_per_dab = 2;
(* used by open_c_file *)
target_device: text_2 = 'B:';
initial_suffix: char = 'A';
(* used by operator *)
source_device: text_2 = 'A:';
(* used by fsd_3 *)
max_record_length: integer = 80;«eof»