MODULE Welttest;

FROM GSXMAIN  IMPORT OpenStation, CloseStation, CRT;
FROM Terminal IMPORT BusyRead;
FROM WORLD    IMPORT DisplayWorld;

VAR c : CHAR;

BEGIN
  OpenStation ( CRT );
  DisplayWorld;
  REPEAT
    BusyRead(c);
  UNTIL c <> 0C;
  CloseStation;
END Welttest.
                                                                                                