IMPLEMENTATION MODULE WORLD;

FROM Files    IMPORT FILE, Open, Close, EOF, ReadWord, ReadBytes;
FROM GSXMAIN  IMPORT VECTOR, DrawMode, replace;
FROM GSXLINE  IMPORT PolyLine, LineType, solid, LineColor;
FROM SYSTEM   IMPORT ADR;


PROCEDURE DisplayWorld;

VAR world  : FILE;
    Number : CARDINAL;
    Dummy  : CARDINAL;
    Store  : ARRAY [0..1300] OF VECTOR;

BEGIN
  IF Open(world, 'WORLD.MAP') THEN
    DrawMode ( replace );
    LineType ( solid );
    LineColor ( 7 );
    REPEAT
      ReadWord(world, Number);
      Dummy := ReadBytes(world, ADR(Store), Number*4);
      PolyLine(Number, Store );
    UNTIL EOF(world);
    Close(world);
  END;
END DisplayWorld;

END WORLD.
                                                         