DP Tool Club 8/CDASC08.ISO/VRAC/TVPROMPT.EXE/SCREEN.LIB

Text File | 1992-03-09 | 512b | 16 lines

package Screen is

  Copyright: constant String := "Copyright 1991,92 Tom Moran";
  subtype Scrollable_Strings is String(1 .. 20);
  Initial_Scroll_Passage_Time: constant Duration := 10.0;

  task Scroller is
    entry Start_Up;
    entry Adjust_Speed(Scroll_Passage_Time: in Duration); -- 0.0 -> pause
    entry Put(S              : in Scrollable_Strings;
              White_On_Black : in Boolean := False);
    entry Wind_Up;
  end Scroller;

end Screen;