Category : Science and Education
Archive   : WDBDISK5.ZIP
Filename : LPOINTS.PAS

PROGRAM LPOINTS(INPUT, OUTPUT); {list the points in a WDB file in ascii form}

TYPE POINT = RECORD
CODE : INTEGER;
LAT : INTEGER;
LON : INTEGER
END;

VAR I,
K : INTEGER;
NEWPOINT : POINT;
INFILE : FILE OF POINT;
INFILE_NAME : STRING(14);

BEGIN { main driver }
WRITELN('LPOINTS lists the contents of the selected WDB file as follows :');
WRITELN;
WRITELN('DETAIL-CODE LATITUDE LONGITUDE.');
WRITELN;
WRITELN('The header record for line segments and point records are marked');
WRITELN(' with a trailing *****.');
WRITELN;
WRITELN('Negative values are West and South coordinates.');
WRITELN('Coordinates are expressed in integer minutes.');
WRITELN;
WRITELN('Depress CTRL-C to terminate the program.');
WRITELN;

WRITE('Enter name of the WDB input file > ');
READLN(INFILE_NAME);
WRITELN;

ASSIGN(INFILE, INFILE_NAME);
RESET(INFILE);

I := 0;

WHILE NOT EOF(INFILE) DO
BEGIN
READ(INFILE, NEWPOINT);
I := I + 1;
WITH NEWPOINT DO
IF CODE > 5
THEN
BEGIN
I := I - 1;
WRITELN(CODE:5,' ',LAT:5,' ',LON:5,' *****' )
END
ELSE WRITELN(CODE:5,' ',LAT:5,' ',LON:5);
END;
WRITELN;
WRITELN(INFILE_NAME,'contains ',I,'points.');
WRITELN;

CLOSE(INFILE);

END. { MAIN DRIVER }