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

PROGRAM SELECT(INPUT, OUTPUT);
{FRED POSPESCHIL}

TYPE POINT = RECORD
CODE : INTEGER;
LATIT : INTEGER;
LONGI : INTEGER;
END;

VAR
LEVEL : INTEGER;
OUTFILE : FILE OF POINT;
INFILE : FILE OF POINT;
NEWPOINT : POINT;
INPUT_FILE : LSTRING(14);
OUTPUT_FILE : LSTRING(14);

PROCEDURE GET_POINTS;

BEGIN
ASSIGN(INFILE, INPUT_FILE);
RESET(INFILE);

WHILE NOT EOF(INFILE) DO
BEGIN
READ(INFILE, NEWPOINT);
IF NEWPOINT.CODE > LEVEL THEN
WRITE(OUTFILE, NEWPOINT);
END;

CLOSE(INFILE);
END;


BEGIN { MAIN PROGRAM }
WRITE('ENTER NAME OF FILE WHICH WILL HOLD SELECTED POINTS > ');
READLN(OUTPUT_FILE);
ASSIGN(OUTFILE, OUTPUT_FILE);
REWRITE(OUTFILE);

INPUT_FILE := 'NULL';
WHILE INPUT_FILE <> 'STOP' DO
BEGIN
WRITELN;
WRITE('ENTER FILE FROM WHICH TO SELECT POINTS OR "STOP" >');
READLN(INPUT_FILE);
IF INPUT_FILE <> 'STOP' THEN
BEGIN

WRITE('ENTER THE HIGHEST LEVEL OF DESIRED DETAIL <1 - 5> ');
READLN(LEVEL);
LEVEL := LEVEL - 1;
GET_POINTS;
END;
END;

CLOSE(OUTFILE);
END.