* CONNECT FILES PROGRAM

(**************************************************
*
* CONNECT FILES PROGRAM
*
* Ray Penley put this togeather to make it
* easier to open files. Add this to your library.
*
* Written by RAY PENLEY
* Donated to the Pascal/Z Users Group, Sept 1980
*
*************************************************)

TYPE
BYTE: 0..255;

FUNCTION length(x: str255): INTEGER; EXTERNAL;
PROCEDURE setlength(VAR x: str0; y: INTEGER); EXTERNAL;
FUNCTION index(x,y: str255): INTEGER; EXTERNAL;

FUNCTION ConnectFiles: boolean;
CONST
dflt_extension = '.CCD';
fid_len = 14; { Max length CP/M file names }
TYPE
FID = string fid_len;
VAR
File_ID,
New_ID : FID;
ix,jx : BYTE;

PROCEDURE PAD(VAR ID: fid; required: BYTE);
CONST
space = ' ';
BEGIN
WHILE (length(ID)<required) DO append(ID,space);
END;

BEGIN{-GETID-}
ConnectFiles := true;
setlength(File_ID,0);
WRITELN;
WRITE('Enter <Drive:><File name> ');
READLN(File_ID);
IF (length(File_ID)>fid_len) THEN
setlength(File_ID,fid_len)
Else
PAD(File_ID, fid_len);
RESET(File_ID, TextFile);
IF EOF(TextFile) THEN{ ABORT }
BEGIN
error(3);
ConnectFiles := false;
END
ELSE
BEGIN
ix := index(File_ID,'.'); { search for an extension }
jx := index(File_ID,' '); { search for the first space }
IF (ix=0) THEN{ no extension was specified }
setlength(File_ID,jx-1)
Else
setlength(File_ID,ix-1);
setlength(New_ID,0);
append(New_ID, File_ID);
append(New_ID, dflt_extension);
PAD(New_ID, fid_len);
REWRITE(New_ID, Work_File);
END;
END; {of ConnectFiles}

{++++++++++++++++++++++++++++++++++++++++++++++++}