Листинг 3. Уровень внешнего представления (View). Модуль Triangle

MODULE Triangle;   (* головной модуль проекта *)

  IMPORT
    In, (* RTS *)
    TT := TriangleTF; (* спец.преобразователь *)
    
  PROCEDURE Main;
    VAR s: ARRAY 256 OF CHAR;
  BEGIN
    TT.Print(?—- Золотой треугольник?);
    In.Open; In.Echo(FALSE);
    REPEAT
      In.String(s);
      TT.Print(s);
      TT.ExecCommand(s);
    UNTIL TT.Stop();  
    TT.Print(?—- Работа окончена?);
 END Main;
  
BEGIN
  Main;
END Triangle.