Celestin Apprentice 4/Apprentice-Release4.iso/Source Code/C/Applications/GW AdaEd 1.4.2/GWAdaDemos/GWU Demos/screenio.adb

Text File | 1994-01-09 | 493 b | 28 lines | [TEXT/GADA]

--
--  Implementation of the Screen_IO package
--

WITH Text_IO;
WITH Screen;
PACKAGE BODY Screen_IO IS

-- Arthur Vargas Lopes, The George Washington University

  TASK BODY Terminal IS

  BEGIN
    Screen.ClearScreen;
    LOOP
      SELECT
        ACCEPT WriteAt(Where: Screen.Position; What : String) DO
          Screen.MoveCursor(To => Where);
          Text_IO.Put( What );
        END WriteAt;
      OR
        TERMINATE;
      END SELECT;
    END LOOP;
  END Terminal;

END Screen_IO;