|
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: 6656 (0x1a00)
Types: TextFile
Names: »VERSACON.PAS«
└─⟦398ae89d3⟧ Bits:30009789/_.ft.Ibm2.50007353.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »VERSACON.PAS«
(******************************************************************************)
(* *)
(* *)
(* This file contains parts of the *)
(* source text for program VERSACON *)
(* *)
(* Copyright (C) 1985 by Lars G. Jakobsen and Metanic Aps. *)
(* *)
(* *)
(******************************************************************************)
PROGRAM versacon;
(*
Program VERSACON is used for converting a VersaDos (R) file system to
a CP/M (R) file system. The VersaDos file system should be represented as
one single CP/M file so that every record of that file will correspond to
a sector in the VersaDos file system.
*)
(******************************************************************************)
(* *)
(*$I a:testopt.pas test tools (standard) *)
(* *)
(*$I a:ioerrnum.pas definitions of turbo pascal i/o error codes *)
(* *)
(*$I MCTYPE.INC definitions of VersaDos symbol names *)
(* *)
(*$I VC-001.INC declarations of *)
(* global types *)
(* global constants *)
(* *)
(*$I TESTHELP.INC test tools (ad hoc) *)
(* *)
(*$I VC-002.INC utility procedures *)
(* equal_16 *)
(* equal_psn *)
(* inc_psn *)
(* s_i_16 *)
(* s_i_32 *)
(* s_32_i *)
(* *)
(*$I VC-003.INC procedures for file I/O *)
(* position *)
(* get_current_block *)
(* get_block *)
(* open_c_file *)
(* *)
(*$I VC-004.INC procedures for printed reporting *)
(* print_header *)
(* print_dir *)
(* print_pre_file *)
(* print_post_file *)
(* print_footer *)
(* *)
(* procedures for operator dialogue *)
(* operator *)
(* *)
(* procedures for various file formats *)
(* *)
(* VC-005-0.INC contigouos NOT IMPLEMENTED *)
(* VC-005-1.INC sequential NOT IMPLEMENTED *)
(* VC-005-2.INC keyed isam - no duplicate keys NOT IMPLEMENTED *)
(* *)
(*$I VC-005-3.INC keyed isam - null keys - duplicate keys allowed *)
(* fsd_3 *)
(* fab_3 *)
(* *)
(* *** *)
(* *)
(*$I VC-006.INC procedures for reading directories *)
(* primary_entry (pde) *)
(* primary (pdb) *)
(* secondary_entry(sde) *)
(* secondary (sdb) *)
(* volume (vid) *)
(* *)
(* *)
(* *)
(******************************************************************************)
(******************************************************************************)
(* *)
(* MAIN PROGRAM BODY *)
(* *)
(******************************************************************************)
VAR
status: status_type;
BEGIN
test_init(input, output);
volume(status, lst, lst, input, output);
END.
«eof»