Topspeed_JPI/TS-V3/REP16/VWINDOWS.LST

Listing:

    1  IMPLEMENTATION MODULE VWindows;
    2  (*
    3   *  REPERTOIRE
    4   *  Release 1.6
    5   *  By Charles Bradford and Cole Brecheen
    6   *  (c) Copyright 1985-1992 PMI
    7   *  Green Bay, Wisconsin
    8   *  All rights reserved
    9   *  (414) 468-6040
   10   *
   11   *  $Header:   D:/logfiles/mods/vwindows.mov   1.7   10 Mar 1991 15:34:42   coleb  $
   12   *
   13   *)
   14  
   15  
   16  (*EntryDiag:
   17  IMPORT Diagnostics;
   18  :EntryDiag*)
   19  
   20  IMPORT LowLevel;
   21  IMPORT MsColors;
   22  IMPORT MsgBox1;
   23  IMPORT SmartScreen;
   24  IMPORT SYSTEM;
   25  IMPORT WindowPrims;
   26  
   27  VAR
   28    Initialized : BOOLEAN;
   29    handle: CARDINAL;
   30  
   31  TYPE
   32    AWindowHandle = POINTER TO CARDINAL;
*****                               ^ not supported yet
   33  VAR
   34    NormalBackGround: MsColors.AColor;
*****                               ^ not supported yet
   35    NormalAttrib: MsColors.AMonoAttribute;
*****                           ^ not supported yet
   36  
   37    PROCEDURE NullScan( StrAddr: SYSTEM.ADDRESS ): CARDINAL;
*****                                        ^ not supported yet
   38      BEGIN
   39        RETURN LowLevel.ScanEQ( 32767, 0C, StrAddr );
*****               ^ not supported yet
*****                        ^ not supported yet
*****                                           ^ not supported yet
   40      END NullScan;
*****          ^ not supported yet
   41  
   42  
   43    PROCEDURE AtrbSetToAtrb( TheSet: SmartScreen.AttributeSet ):
*****                                                 ^ not supported yet
   44        SmartScreen.TextAttribute;
*****                    ^ not supported yet
   45      BEGIN
   46        IF SmartScreen.plain IN TheSet THEN
*****           ^ not supported yet
*****                       ^ not supported yet
*****                                ^ not supported yet
   47          RETURN SmartScreen.plain;
*****                 ^ not supported yet
*****                             ^ not supported yet
   48        ELSIF SmartScreen.bold IN TheSet THEN
*****              ^ not supported yet
*****                          ^ not supported yet
*****                                  ^ not supported yet
   49          RETURN SmartScreen.bold;
*****                 ^ not supported yet
*****                             ^ not supported yet
   50        ELSIF SmartScreen.underscored IN TheSet THEN
*****              ^ not supported yet
*****                          ^ not supported yet
*****                                         ^ not supported yet
   51          RETURN SmartScreen.underscored;
*****                 ^ not supported yet
*****                             ^ not supported yet
   52        ELSIF SmartScreen.blinking IN TheSet THEN
*****              ^ not supported yet
*****                          ^ not supported yet
*****                                      ^ not supported yet
   53          RETURN SmartScreen.blinking;
*****                 ^ not supported yet
*****                             ^ not supported yet
   54        ELSIF SmartScreen.ReverseVideo IN TheSet THEN
*****              ^ not supported yet
*****                          ^ not supported yet
*****                                          ^ not supported yet
   55          RETURN SmartScreen.ReverseVideo;
*****                 ^ not supported yet
*****                             ^ not supported yet
   56        ELSE
   57          RETURN SmartScreen.plain;
*****                 ^ not supported yet
*****                             ^ not supported yet
   58        END;
   59      END AtrbSetToAtrb;
*****          ^ not supported yet
   60  
   61  
   62    PROCEDURE DefaultGetCursorHeight( TheWindow: AWindowHandle ):
   63        CARDINAL;
   64      BEGIN
   65        RETURN WindowPrims.GetCursorHeight();
*****               ^ not supported yet
*****                           ^ not supported yet
*****                                           ^ not supported yet
   66      END DefaultGetCursorHeight;
*****          ^ not supported yet
   67  
   68  
   69    PROCEDURE DefaultSetCursorHeight( TheWindow: AWindowHandle;
   70        LinesInCursor: CARDINAL );
   71      BEGIN
   72        SmartScreen.SetCursorHeight( LinesInCursor );
*****        ^ not supported yet
*****                    ^ not supported yet
*****                                                   ^ not supported yet
   73      END DefaultSetCursorHeight;
*****          ^ not supported yet
   74  
   75  
   76    PROCEDURE DefaultGetCursorCoords( TheWindow: AWindowHandle; VAR
   77        x, y: CARDINAL );
   78      BEGIN
   79        WindowPrims.GetCursorCoords( x, y );
*****        ^ not supported yet
*****                    ^ not supported yet
*****                                          ^ not supported yet
   80      END DefaultGetCursorCoords;
*****          ^ not supported yet
   81  
   82  
   83    PROCEDURE DefaultDrawBox( TheWindow: AWindowHandle; BoxChars: BoxStr;
*****                                                                  ^ undeclared identifier
   84        col1, row1, col2, row2 : CARDINAL);
   85      BEGIN
   86        WindowPrims.DrawThisBox( BoxStr(BoxChars), col1, row1,
*****        ^ not supported yet
*****                    ^ not supported yet
*****                                 ^ undeclared identifier
*****                                        ^ not supported yet
   87            col2, row2 );
*****                       ^ not supported yet
   88      END DefaultDrawBox;
*****          ^ not supported yet
   89  
   90    PROCEDURE DefaultDrawStr( TheWindow: AWindowHandle; x, y:
   91        CARDINAL; StrAddr: SYSTEM.ADDRESS; StrLength: CARDINAL );
*****                                  ^ not supported yet
   92      BEGIN
   93        IF StrLength = 0 THEN
   94          StrLength := NullScan( StrAddr );
*****                       ^ not supported yet
*****                                 ^ not supported yet
   95        END;
   96        SmartScreen.AdrWriteAt( x, y, StrAddr, StrLength );
*****        ^ not supported yet
*****                    ^ not supported yet
*****                                      ^ not supported yet
*****                                                         ^ not supported yet
   97      END DefaultDrawStr;
*****          ^ not supported yet
   98  
   99  
  100    PROCEDURE DefaultClearPart( TheWindow: AWindowHandle;
  101        col1, row1, col2, row2: CARDINAL );
  102      BEGIN
  103        IF (col1 <= 1) AND (col2 >= SmartScreen.EndCol()) AND (row1 <= 1)
*****                                    ^ not supported yet
*****                                                ^ not supported yet
*****                                                       ^ not supported yet
  104            AND (row2 >= SmartScreen.EndRow() ) THEN
*****                         ^ not supported yet
*****                                     ^ not supported yet
*****                                            ^ not supported yet
  105          (*If they're clearing the whole window, we assume they're
  106            changing the NormalBackGround color.*)
  107          NormalBackGround := MsColors.AColor(SmartScreen.BackGround);
*****          ^ not supported yet
*****                              ^ not supported yet
*****                                       ^ not supported yet
*****                                              ^ not supported yet
*****                                                          ^ not supported yet
  108          NormalAttrib := MsColors.AMonoAttribute( AtrbSetToAtrb(
*****          ^ not supported yet
*****                          ^ not supported yet
*****                                   ^ not supported yet
*****                                                   ^ not supported yet
  109              SmartScreen.TextModeNow));
*****              ^ not supported yet
*****                          ^ not supported yet
  110        END;
  111        SmartScreen.ClearPart( col1, row1, col2, row2 );
*****        ^ not supported yet
*****                    ^ not supported yet
*****                                                      ^ not supported yet
  112      END DefaultClearPart;
*****          ^ not supported yet
  113  
  114  
  115    PROCEDURE DefaultEndCol( TheWindow: AWindowHandle ): CARDINAL;
  116      BEGIN
  117        RETURN SmartScreen.EndCol();
*****               ^ not supported yet
*****                           ^ not supported yet
*****                                  ^ not supported yet
  118      END DefaultEndCol;
*****          ^ not supported yet
  119  
  120  
  121    PROCEDURE DefaultEndRow( TheWindow: AWindowHandle ): CARDINAL;
  122      BEGIN
  123        RETURN SmartScreen.EndRow();
*****               ^ not supported yet
*****                           ^ not supported yet
*****                                  ^ not supported yet
  124      END DefaultEndRow;
*****          ^ not supported yet
  125  
  126  
  127    PROCEDURE DefaultGotoXY( TheWindow: AWindowHandle; x, y: CARDINAL );
  128      BEGIN
  129        SmartScreen.GotoXY( x, y );
*****        ^ not supported yet
*****                    ^ not supported yet
*****                                 ^ not supported yet
  130      END DefaultGotoXY;
*****          ^ not supported yet
  131  
  132  
  133    PROCEDURE DefaultReverseColors( TheWindow: AWindowHandle );
  134      BEGIN
  135        SmartScreen.ReverseColors();
*****        ^ not supported yet
*****                    ^ not supported yet
*****                                  ^ not supported yet
  136      END DefaultReverseColors;
*****          ^ not supported yet
  137  
  138  
  139    PROCEDURE DefaultSetMonoAttr( TheWindow: AWindowHandle;
  140        NewMonoAttr : MsColors.AMonoAttribute );
*****                               ^ not supported yet
  141      BEGIN
  142        SmartScreen.SetAttribOrColor( SmartScreen.ForeGround,
*****        ^ not supported yet
*****                    ^ not supported yet
*****                                      ^ not supported yet
*****                                                  ^ not supported yet
  143            SmartScreen.BackGround,
*****            ^ not supported yet
*****                        ^ not supported yet
  144            SmartScreen.TextAttribute(NewMonoAttr) );
*****            ^ not supported yet
*****                        ^ not supported yet
*****                                      ^ not supported yet
  145      END DefaultSetMonoAttr;
*****          ^ not supported yet
  146  
  147  
  148    PROCEDURE DefaultSetForeColor( TheWindow: AWindowHandle;
  149        NewForeColor : MsColors.AColor );
*****                                ^ not supported yet
  150      BEGIN
  151        SmartScreen.SetAttribOrColor( SmartScreen.Colors( NewForeColor ),
*****        ^ not supported yet
*****                    ^ not supported yet
*****                                      ^ not supported yet
*****                                                  ^ not supported yet
*****                                                          ^ not supported yet
  152            SmartScreen.BackGround, AtrbSetToAtrb(SmartScreen.TextModeNow) );
*****            ^ not supported yet
*****                        ^ not supported yet
*****                                    ^ not supported yet
*****                                                  ^ not supported yet
*****                                                              ^ not supported yet
  153      END DefaultSetForeColor;
*****          ^ not supported yet
  154  
  155  
  156    PROCEDURE DefaultSetBackColor( TheWindow: AWindowHandle;
  157        NewBackColor : MsColors.AColor );
*****                                ^ not supported yet
  158      BEGIN
  159        SmartScreen.SetAttribOrColor( SmartScreen.ForeGround,
*****        ^ not supported yet
*****                    ^ not supported yet
*****                                      ^ not supported yet
*****                                                  ^ not supported yet
  160            SmartScreen.Colors( NewBackColor ),
*****            ^ not supported yet
*****                        ^ not supported yet
*****                                ^ not supported yet
  161            AtrbSetToAtrb(SmartScreen.TextModeNow) );
*****            ^ not supported yet
*****                          ^ not supported yet
*****                                      ^ not supported yet
  162      END DefaultSetBackColor;
*****          ^ not supported yet
  163  
  164  
  165    PROCEDURE DefaultMsgBox( TheWindow: AWindowHandle;
  166        TextPtr: SYSTEM.ADDRESS; CaptionPtr: SYSTEM.ADDRESS;
*****                        ^ not supported yet
*****                                                    ^ not supported yet
  167        WinType: CARDINAL ): CARDINAL;
  168      BEGIN
  169        RETURN MsgBox1.WinMsgBox( TheWindow, TextPtr, CaptionPtr, WinType );
*****               ^ not supported yet
*****                       ^ not supported yet
*****                                  ^ not supported yet
*****                                             ^ not supported yet
*****                                                      ^ not supported yet
*****                                                                          ^ not supported yet
  170      END DefaultMsgBox;
*****          ^ not supported yet
  171  
  172  
  173    PROCEDURE DefaultMonoAttr( TheWindow: AWindowHandle ):
  174        MsColors.AMonoAttribute;
*****                 ^ not supported yet
  175      VAR
  176        TmpAttr : MsColors.AMonoAttribute;
*****                           ^ not supported yet
  177      BEGIN
  178  (*
  179        TmpAttr := MsColors.AMonoAttribute(
  180            AtrbSetToAtrb(SmartScreen.TextModeNow) );
  181        RETURN TmpAttr;
  182  *)
  183        RETURN NormalAttrib;
*****               ^ not supported yet
  184      END DefaultMonoAttr;
*****          ^ not supported yet
  185  
  186  
  187    PROCEDURE DefaultForeColor( TheWindow: AWindowHandle ): MsColors.AColor;
*****                                                                     ^ not supported yet
  188      BEGIN
  189        RETURN MsColors.AColor( SmartScreen.ForeGround );
*****               ^ not supported yet
*****                        ^ not supported yet
*****                                ^ not supported yet
*****                                            ^ not supported yet
  190      END DefaultForeColor;
*****          ^ not supported yet
  191  
  192  
  193    PROCEDURE DefaultBackColor( TheWindow: AWindowHandle ): MsColors.AColor;
*****                                                                     ^ not supported yet
  194      BEGIN
  195        (* We need something that tells us what color to use in
  196           clearing the window, so we hijack this function for that
  197           purpose.  Neither it nor the ForeColor function were
  198           particularly useful in their old roles because you
  199           should always know the colors in which you want to
  200           write.  You don't need the window manager to tell you
  201           the colors in which you are writing. *)
  202        RETURN NormalBackGround;
*****               ^ not supported yet
  203  (*
  204        RETURN MsColors.AColor( SmartScreen.BackGround );
  205  *)
  206      END DefaultBackColor;
*****          ^ not supported yet
  207  
  208  
  209    PROCEDURE DefaultScrollVertically( TheWindow: AWindowHandle;
  210        col1, row1, col2, row2: CARDINAL; lines: INTEGER ): BOOLEAN;
  211      BEGIN
  212        WindowPrims.ScrollWindow( col1, row1, col2, row2, lines );
*****        ^ not supported yet
*****                    ^ not supported yet
*****                                                                ^ not supported yet
  213        RETURN TRUE;
  214      END DefaultScrollVertically;
*****          ^ not supported yet
  215  
  216  
  217    PROCEDURE DefaultScrollHorizontally( TheWindow: AWindowHandle;
  218        col1, row1, col2, row2: CARDINAL; lines: INTEGER ): BOOLEAN;
  219      BEGIN
  220        (*We don't have a fast routine to scroll horizontally, so
  221          we leave it to the client module to repaint. *)
  222        RETURN FALSE;
  223      END DefaultScrollHorizontally;
*****          ^ not supported yet
  224  
  225  
  226  VAR
  227    col1, row1, col2, row2: CARDINAL;
  228  
  229    PROCEDURE DefaultSetScrollPos( TheWindow: AWindowHandle;
  230        WhichScrollBar: INTEGER; AmountScrolled: INTEGER );
  231  
  232      PROCEDURE DrawMarkedLine( col1, row1, col2, row2:
  233          CARDINAL; LineType: CHAR; TotalLengthOrWidth,
  234          scrolled: CARDINAL);
  235  
  236        PROCEDURE FigurePlacement( VisibleUnits, TotalUnits,
  237            ScrolledUnits: CARDINAL; VAR offs1, offs2: CARDINAL );
  238          VAR
  239            ratio: CARDINAL;
  240          BEGIN
  241            (*First we figure out how many lines of TotalUnits a
  242              single line of VisibleUnits corresponds to.*)
  243            IF VisibleUnits >= TotalUnits THEN
  244              offs1 := 1;
  245              offs2 := 2;
  246              RETURN;
  247            END;
  248            ratio := TotalUnits DIV VisibleUnits;
  249            offs1 := ScrolledUnits DIV ratio;
  250            offs2 := ((TotalUnits - VisibleUnits) -
  251                ScrolledUnits);
  252              (*offs2 now represents the number of units in
  253                TotalUnits below those visible.*)
  254            offs2 := VisibleUnits - (offs2 DIV ratio);
  255            IF offs1 = 0 THEN
  256              INC( offs1 );
*****              ^ undeclared identifier
*****                         ^ not supported yet
  257              INC( offs2 );
*****              ^ undeclared identifier
*****                         ^ not supported yet
  258            END;
  259            IF offs2 = offs1 THEN
  260              (*Now we make sure the marks don't come out on top of
  261                each other.*)
  262              IF offs1 > 1 THEN
  263                DEC(offs1);
*****                ^ undeclared identifier
*****                         ^ not supported yet
  264              ELSE
  265                INC(offs2);
*****                ^ undeclared identifier
*****                         ^ not supported yet
  266              END
  267            END;
  268          END FigurePlacement;
*****              ^ not supported yet
  269  
  270        VAR
  271          LineChar, MarkChar: CHAR;
  272          offs1, offs2: CARDINAL;
  273        BEGIN
  274          (*DrawMarkedLine*)
  275          IF col1 < col2 THEN
  276            (*We're drawing a horizontal line.*)
  277            IF LineType = 'D' THEN
  278              LineChar := 315C;
  279                (*horizontal double-lined char*)
  280              MarkChar := 330C;
  281            ELSE
  282              LineChar := 304C;
  283                (*horizontal single-lined char*)
  284              MarkChar := 305C;
  285            END;
  286            WindowPrims.DrawLine( col1 + 1, row2, col2 - 1, row2,
*****            ^ not supported yet
*****                        ^ not supported yet
  287                LineChar);
*****                        ^ not supported yet
  288              (*This wipes out any previous marks.*)
  289            FigurePlacement( (col2 - col1) - 1, TotalLengthOrWidth,
*****            ^ not supported yet
  290                scrolled, offs1, offs2 );
*****                                       ^ not supported yet
  291            DrawStr( TheWindow, col1 + offs1, row2, SYSTEM.ADR(MarkChar), 1 );
*****            ^ undeclared identifier
*****                     ^ not supported yet
*****                                                    ^ not supported yet
*****                                                           ^ not supported yet
*****                                                                       ^ not supported yet
*****                                                                            ^ not supported yet
  292            DrawStr( TheWindow, col1 + offs2, row2, SYSTEM.ADR(MarkChar), 1 );
*****            ^ undeclared identifier
*****                     ^ not supported yet
*****                                                    ^ not supported yet
*****                                                           ^ not supported yet
*****                                                                       ^ not supported yet
*****                                                                            ^ not supported yet
  293          ELSE
  294            (*We're drawing a vertical line.*)
  295            IF LineType = 'D' THEN
  296              LineChar := 272C;
  297                (*vertical double-lined char*)
  298              MarkChar := 327C;
  299            ELSE
  300              LineChar := CHR(179);
*****                          ^ undeclared identifier
*****                                 ^ not supported yet
  301                (*vertical single-lined char*)
  302              MarkChar := CHR(197);
*****                          ^ undeclared identifier
*****                                 ^ not supported yet
  303            END;
  304            WindowPrims.DrawLine( col2, row1 + 1, col2, row2 - 1,
*****            ^ not supported yet
*****                        ^ not supported yet
  305                LineChar );
*****                         ^ not supported yet
  306              (*This wipes out any previous marks.*)
  307            FigurePlacement( (row2 - row1) - 1, TotalLengthOrWidth,
*****            ^ not supported yet
  308                scrolled, offs1, offs2 );
*****                                       ^ not supported yet
  309            DrawStr( TheWindow, col2, row1 + offs1,
*****            ^ undeclared identifier
*****                     ^ not supported yet
  310                SYSTEM.ADR(MarkChar), 1 );
*****                ^ not supported yet
*****                       ^ not supported yet
*****                                   ^ not supported yet
*****                                        ^ not supported yet
  311            DrawStr( TheWindow, col2, row1 + offs2,
*****            ^ undeclared identifier
*****                     ^ not supported yet
  312                SYSTEM.ADR(MarkChar), 1 );
*****                ^ not supported yet
*****                       ^ not supported yet
*****                                   ^ not supported yet
*****                                        ^ not supported yet
  313          END;
  314        END DrawMarkedLine;
*****            ^ not supported yet
  315  
  316      VAR
  317        box: CHAR;
  318      BEGIN
  319        IF WhichScrollBar = SbVert THEN
*****                            ^ undeclared identifier
  320          DrawMarkedLine( col2, row1, col2,
*****          ^ not supported yet
  321              row2, box, row2 - row1 + 1, AmountScrolled );
*****                                                         ^ not supported yet
  322        ELSIF WhichScrollBar = SbHorz THEN
*****                               ^ undeclared identifier
  323          DrawMarkedLine( col1, row2, col2,
*****          ^ not supported yet
  324              row2, box, col2 - col1 + 1, AmountScrolled );
*****                                                         ^ not supported yet
  325        END;
  326      END DefaultSetScrollPos;
*****          ^ not supported yet
  327  
  328  
  329    PROCEDURE DefaultSetScrollRange( TheWindow: AWindowHandle;
  330        WhichScrollBar, MinPos, MaxPos: INTEGER );
  331      BEGIN
  332        IF WhichScrollBar = SbVert THEN
*****                            ^ undeclared identifier
  333          row1 := MinPos;
  334          row2 := MaxPos;
  335        ELSIF WhichScrollBar = SbHorz THEN
*****                               ^ undeclared identifier
  336          col1 := MinPos;
  337          col2 := MaxPos;
  338        END;
  339      END DefaultSetScrollRange;
*****          ^ not supported yet
  340  
  341    PROCEDURE Init();
  342      BEGIN
  343        IF Initialized THEN
  344          RETURN;
  345        ELSE
  346          Initialized := TRUE;
  347        END;
  348  (*EntryDiag:
  349        Diagnostics.Init();
  350  :EntryDiag*)
  351        LowLevel.Init();
*****        ^ not supported yet
*****                 ^ not supported yet
*****                      ^ not supported yet
  352        MsColors.Init();
*****        ^ not supported yet
*****                 ^ not supported yet
*****                      ^ not supported yet
  353        MsgBox1.Init();
*****        ^ not supported yet
*****                ^ not supported yet
*****                     ^ not supported yet
  354        SmartScreen.Init();
*****        ^ not supported yet
*****                    ^ not supported yet
*****                         ^ not supported yet
  355        WindowPrims.Init();
*****        ^ not supported yet
*****                    ^ not supported yet
*****                         ^ not supported yet
  356  
  357      (*EntryDiag:
  358        Diagnostics.diagS( 'Entering VWindows', '' );
  359      :EntryDiag*)
  360  
  361        SingleBox[0] := CHR(218);
*****        ^ undeclared identifier
*****                   ^ not supported yet
*****                        ^ undeclared identifier
*****                               ^ not supported yet
  362        SingleBox[1] := CHR(196);
*****        ^ undeclared identifier
*****                   ^ not supported yet
*****                        ^ undeclared identifier
*****                               ^ not supported yet
  363        SingleBox[2] := CHR(191);
*****        ^ undeclared identifier
*****                   ^ not supported yet
*****                        ^ undeclared identifier
*****                               ^ not supported yet
  364        SingleBox[3] := CHR(179);
*****        ^ undeclared identifier
*****                   ^ not supported yet
*****                        ^ undeclared identifier
*****                               ^ not supported yet
  365        SingleBox[4] := CHR(179);
*****        ^ undeclared identifier
*****                   ^ not supported yet
*****                        ^ undeclared identifier
*****                               ^ not supported yet
  366        SingleBox[5] := CHR(192);
*****        ^ undeclared identifier
*****                   ^ not supported yet
*****                        ^ undeclared identifier
*****                               ^ not supported yet
  367        SingleBox[6] := CHR(196);
*****        ^ undeclared identifier
*****                   ^ not supported yet
*****                        ^ undeclared identifier
*****                               ^ not supported yet
  368        SingleBox[7] := CHR(217);
*****        ^ undeclared identifier
*****                   ^ not supported yet
*****                        ^ undeclared identifier
*****                               ^ not supported yet
  369        SingleBox[8] := 0C;
*****        ^ undeclared identifier
*****                   ^ not supported yet
  370        DoubleBox[0] := CHR(201);
*****        ^ undeclared identifier
*****                   ^ not supported yet
*****                        ^ undeclared identifier
*****                               ^ not supported yet
  371        DoubleBox[1] := CHR(205);
*****        ^ undeclared identifier
*****                   ^ not supported yet
*****                        ^ undeclared identifier
*****                               ^ not supported yet
  372        DoubleBox[2] := CHR(187);
*****        ^ undeclared identifier
*****                   ^ not supported yet
*****                        ^ undeclared identifier
*****                               ^ not supported yet
  373        DoubleBox[3] := CHR(186);
*****        ^ undeclared identifier
*****                   ^ not supported yet
*****                        ^ undeclared identifier
*****                               ^ not supported yet
  374        DoubleBox[4] := CHR(186);
*****        ^ undeclared identifier
*****                   ^ not supported yet
*****                        ^ undeclared identifier
*****                               ^ not supported yet
  375        DoubleBox[5] := CHR(200);
*****        ^ undeclared identifier
*****                   ^ not supported yet
*****                        ^ undeclared identifier
*****                               ^ not supported yet
  376        DoubleBox[6] := CHR(205);
*****        ^ undeclared identifier
*****                   ^ not supported yet
*****                        ^ undeclared identifier
*****                               ^ not supported yet
  377        DoubleBox[7] := CHR(188);
*****        ^ undeclared identifier
*****                   ^ not supported yet
*****                        ^ undeclared identifier
*****                               ^ not supported yet
  378        DoubleBox[8] := 0C;
*****        ^ undeclared identifier
*****                   ^ not supported yet
  379        NormalBackGround := MsColors.black;
*****        ^ not supported yet
*****                            ^ not supported yet
*****                                     ^ not supported yet
  380        NormalAttrib := MsColors.plain;
*****        ^ not supported yet
*****                        ^ not supported yet
*****                                 ^ not supported yet
  381        BackColor := DefaultBackColor;
*****        ^ undeclared identifier
*****                     ^ not supported yet
  382        ClearPart := DefaultClearPart;
*****        ^ undeclared identifier
*****                     ^ not supported yet
  383        CurrentWindow := SYSTEM.ADR(handle);
*****        ^ undeclared identifier
*****                         ^ not supported yet
*****                                ^ not supported yet
*****                                          ^ not supported yet
  384        handle:=0;
  385        DrawBox := DefaultDrawBox;
*****        ^ undeclared identifier
*****                   ^ not supported yet
  386        DrawStr := DefaultDrawStr;
*****        ^ undeclared identifier
*****                   ^ not supported yet
  387        EndCol := DefaultEndCol;
*****        ^ undeclared identifier
*****                  ^ not supported yet
  388        EndRow := DefaultEndRow;
*****        ^ undeclared identifier
*****                  ^ not supported yet
  389        ForeColor := DefaultForeColor;
*****        ^ undeclared identifier
*****                     ^ not supported yet
  390        GetCursorHeight := DefaultGetCursorHeight;
*****        ^ undeclared identifier
*****                           ^ not supported yet
  391        GetCursorCoords := DefaultGetCursorCoords;
*****        ^ undeclared identifier
*****                           ^ not supported yet
  392        GotoXY := DefaultGotoXY;
*****        ^ undeclared identifier
*****                  ^ not supported yet
  393        MessageBox := DefaultMsgBox;
*****        ^ undeclared identifier
*****                      ^ not supported yet
  394        MonoAttr := DefaultMonoAttr;
*****        ^ undeclared identifier
*****                    ^ not supported yet
  395        ReverseColors := DefaultReverseColors;
*****        ^ undeclared identifier
*****                         ^ not supported yet
  396        ScrollHorizontally := DefaultScrollHorizontally;
*****        ^ undeclared identifier
*****                              ^ not supported yet
  397        ScrollVertically := DefaultScrollVertically;
*****        ^ undeclared identifier
*****                            ^ not supported yet
  398        SetBackColor := DefaultSetBackColor;
*****        ^ undeclared identifier
*****                        ^ not supported yet
  399        SetCursorHeight := DefaultSetCursorHeight;
*****        ^ undeclared identifier
*****                           ^ not supported yet
  400        SetForeColor := DefaultSetForeColor;
*****        ^ undeclared identifier
*****                        ^ not supported yet
  401        SetMonoAttr := DefaultSetMonoAttr;
*****        ^ undeclared identifier
*****                       ^ not supported yet
  402        SetScrollPos := DefaultSetScrollPos;
*****        ^ undeclared identifier
*****                        ^ not supported yet
  403        SetScrollRange := DefaultSetScrollRange;
*****        ^ undeclared identifier
*****                          ^ not supported yet
  404  
  405      (*EntryDiag:
  406        Diagnostics.diagS( 'Exiting VWindows', '' );
  407      :EntryDiag*)
  408      END Init;
*****          ^ not supported yet
  409  
  410  BEGIN
  411    Initialized := FALSE;
  412    Init();
*****    ^ not supported yet
*****         ^ not supported yet
  413  END VWindows.
*****      ^ not supported yet

  361 errors