Topspeed_JPI/TS-V3/SRC/COMSETUP.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  COMSETUP.MOD - COMMS Toolkit setup                                      *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1988..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  IMPLEMENTATION MODULE ComSetup;
   12    IMPORT CommUtil,FIO,IO,Lib,MenuLib,MPRINTF,RS232,SPRINTF,Str,Window;
   13    FROM CommUtil         IMPORT FuncKeys;
*****         ^ duplicate identifier
   14    FROM RS232            IMPORT ParityCodes,FlowControls;
*****         ^ duplicate identifier
   15  
   16    TYPE
   17      String30            = ARRAY[0..30] OF CHAR;
*****                                     ^ not supported yet
*****                                            ^ not supported yet
   18      String10            = ARRAY[0..10] OF CHAR;
*****                                     ^ not supported yet
*****                                            ^ not supported yet
   19      String3             = ARRAY[0..3] OF CHAR;
*****                                     ^ not supported yet
*****                                           ^ not supported yet
   20      AsciiStd            = ARRAY[0..32] OF String3;
*****                                     ^ not supported yet
*****                                            ^ not supported yet
   21  
   22    CONST
   23      Template            = Window.WinDef(0,0,0,0,Window.Yellow,Window.Black,TRUE,FALSE,FALSE,TRUE,Window.SingleFrame,Window.LightGray,Window.Black);
*****                            ^ not supported yet
*****                                   ^ not supported yet
*****                                                  ^ not supported yet
*****                                                         ^ not supported yet
*****                                                                ^ not supported yet
*****                                                                       ^ not supported yet
*****                                                                                                   ^ not supported yet
*****                                                                                                          ^ not supported yet
*****                                                                                                                      ^ not supported yet
*****                                                                                                                             ^ not supported yet
*****                                                                                                                                       ^ not supported yet
*****                                                                                                                                              ^ not supported yet
   24      Code                = AsciiStd('NUL','SOH','STX','ETX','EOT','ENQ','ACK','BEL','BS',
*****                                     ^ not supported yet
*****                                           ^ not supported yet
*****                                                 ^ not supported yet
*****                                                       ^ not supported yet
*****                                                             ^ not supported yet
*****                                                                   ^ not supported yet
*****                                                                         ^ not supported yet
*****                                                                               ^ not supported yet
*****                                                                                     ^ not supported yet
   25                                     'HT','LF','VT','FF','CR','SO','SI','DLE','DC1','DC2',
*****                                     ^ not supported yet
*****                                          ^ not supported yet
*****                                               ^ not supported yet
*****                                                    ^ not supported yet
*****                                                         ^ not supported yet
*****                                                              ^ not supported yet
*****                                                                   ^ not supported yet
*****                                                                        ^ not supported yet
*****                                                                              ^ not supported yet
*****                                                                                    ^ not supported yet
   26                                     'DC3','DC4','NAK','SYN','ETB','CAN','EM','SUB','ESC',
*****                                     ^ not supported yet
*****                                           ^ not supported yet
*****                                                 ^ not supported yet
*****                                                       ^ not supported yet
*****                                                             ^ not supported yet
*****                                                                   ^ not supported yet
*****                                                                         ^ not supported yet
*****                                                                              ^ not supported yet
*****                                                                                    ^ not supported yet
   27                                     'FS','GS','RS','US','SP');
*****                                     ^ not supported yet
*****                                          ^ not supported yet
*****                                               ^ not supported yet
*****                                                    ^ not supported yet
*****                                                         ^ not supported yet
   28  
   29    VAR
   30      OldEmulation        : Term.Emulations;
*****                            ^ undeclared identifier
*****                                 ^ not supported yet
   31      BoolStr             : ARRAY BOOLEAN OF String3;
*****                                  ^ not supported yet
*****                                             ^ not supported yet
   32      SMenu               : MenuLib.MenuRec;
*****                                    ^ not supported yet
   33  
   34  (*........................................*)
   35  
   36    PROCEDURE AsciiCode(c:CHAR):String3;
   37      VAR
   38        s                 : String3;
*****                            ^ not supported yet
   39      BEGIN
   40        IF c<=' ' THEN
   41          s:=Code[ORD(c)];
*****          ^ not supported yet
*****                  ^ undeclared identifier
*****                       ^ not supported yet
   42        ELSE
   43          s:=' ';
*****          ^ not supported yet
*****             ^ incompatible assignment
   44          s[0]:=c;
*****          ^ not supported yet
*****             ^ not supported yet
   45        END;
   46        RETURN s;
*****               ^ not supported yet
   47      END AsciiCode;
*****          ^ not supported yet
   48  
   49  (*........................................*)
   50  
   51    PROCEDURE GetDefaultSetup;
   52      VAR
   53        i                 : CARDINAL;
   54      BEGIN
   55        WITH Setup DO
*****             ^ undeclared identifier
   56          WITH Serial DO
*****               ^ undeclared identifier
   57            Port:=1;
*****            ^ undeclared identifier
   58            Baud:=1200;
*****            ^ undeclared identifier
   59            DataBits:=8;
*****            ^ undeclared identifier
   60            StopBits:=1;
*****            ^ undeclared identifier
   61            Parity:=None;
*****            ^ undeclared identifier
*****                    ^ undeclared identifier
   62            FlowControl:=RtsCts;
*****            ^ undeclared identifier
*****                         ^ undeclared identifier
   63          END;
*****          ^ not supported yet
   64          WITH General DO
*****               ^ undeclared identifier
   65            MaskBit7:=TRUE;
*****            ^ undeclared identifier
   66            CRInTranslation:=CR;
*****            ^ undeclared identifier
*****                             ^ undeclared identifier
   67            CROutTranslation:=CR;
*****            ^ undeclared identifier
*****                              ^ undeclared identifier
   68            ScriptDir:='';
*****            ^ undeclared identifier
   69            DownloadDir:='';
*****            ^ undeclared identifier
   70          END;
*****          ^ not supported yet
   71          WITH Kermit DO
*****               ^ undeclared identifier
   72            Sync:=1C;
*****            ^ undeclared identifier
   73            MaxPacketSize:=90;
*****            ^ undeclared identifier
   74            PadChar:=0C;
*****            ^ undeclared identifier
   75            NumPadChars:=0;
*****            ^ undeclared identifier
   76            CtlQuote:='#';
*****            ^ undeclared identifier
   77            ReptPrefix:='~';
*****            ^ undeclared identifier
   78            EightBitQuote:='&';
*****            ^ undeclared identifier
   79            ImageMode:=TRUE;
*****            ^ undeclared identifier
   80            IBMMode:=FALSE;
*****            ^ undeclared identifier
   81            EolChar:=CHR(13);
*****            ^ undeclared identifier
*****                     ^ undeclared identifier
*****                           ^ not supported yet
   82          END;
*****          ^ not supported yet
   83          WITH ASCII DO
*****               ^ undeclared identifier
   84            CharDelayMS:=20;
*****            ^ undeclared identifier
   85            LineDelayMS:=40;
*****            ^ undeclared identifier
   86          END;
*****          ^ not supported yet
   87          Emulation:=Term.EmVT100;
*****          ^ undeclared identifier
*****                     ^ undeclared identifier
*****                          ^ not supported yet
   88          FOR i:=0 TO 9 DO
*****              ^ undeclared identifier
   89            Macros[i]:='';
*****            ^ undeclared identifier
*****                   ^ undeclared identifier
   90          END;
   91        END;
*****        ^ not supported yet
   92      END GetDefaultSetup;
*****          ^ not supported yet
   93  
   94  (*........................................*)
   95  
   96    PROCEDURE InitSetup;
   97      VAR
   98        f                 : FIO.File;
*****                                ^ not supported yet
   99      BEGIN
  100        FIO.IOcheck := FALSE;
*****        ^ not supported yet
*****            ^ not supported yet
  101        f := FIO.Open('TERM.CFG');
*****        ^ not supported yet
*****             ^ not supported yet
*****                 ^ not supported yet
*****                      ^ not supported yet
  102        IF FIO.IOresult()=0 THEN
*****           ^ not supported yet
*****               ^ not supported yet
*****                        ^ not supported yet
  103          IF NOT (FIO.RdBin(f,Setup,SIZE(SetupRec))=SIZE(SetupRec)) THEN
*****                  ^ not supported yet
*****                      ^ not supported yet
*****                            ^ not supported yet
*****                              ^ undeclared identifier
*****                                    ^ undeclared identifier
*****                                         ^ undeclared identifier
*****                                                    ^ undeclared identifier
*****                                                         ^ undeclared identifier
  104            GetDefaultSetup;
*****            ^ not supported yet
  105          END;
  106          FIO.Close(f);
*****          ^ not supported yet
*****              ^ not supported yet
*****                    ^ not supported yet
  107        ELSE
  108          GetDefaultSetup;
*****          ^ not supported yet
  109        END;
  110      END InitSetup;
*****          ^ not supported yet
  111  
  112  (*................................................*)
  113  
  114    PROCEDURE Value(VAR s:ARRAY OF CHAR; VAR Result:CARDINAL);
*****                                   ^ not supported yet
  115      VAR
  116        c                 : CHAR;
  117        x,i               : CARDINAL;
  118      BEGIN
  119        IF s[0]<>0C THEN
*****           ^ not supported yet
*****              ^ not supported yet
  120          x:=0; i:=0;
  121          FOR i:=0 TO HIGH(s) DO
*****                      ^ undeclared identifier
*****                           ^ not supported yet
  122            c := CAP(s[i]);
*****                 ^ undeclared identifier
*****                     ^ not supported yet
*****                        ^ not supported yet
  123            IF c=0C THEN
  124              Result:=x;
  125              RETURN;
  126            ELSIF (c>='0') AND (c<='9') THEN
  127              x := x*10 + ORD(c)-48
*****                          ^ undeclared identifier
*****                               ^ not supported yet
  128            ELSE
  129              RETURN;
  130            END;
  131          END;
  132          Result := x;
  133        END;
  134      END Value;
*****          ^ not supported yet
  135  
  136  (*........................................*)
  137  
  138    PROCEDURE ReadNum(x,y:CARDINAL; Prompt:ARRAY OF CHAR; Min,Max:CARDINAL;VAR Result:CARDINAL);
*****                                                    ^ not supported yet
  139      VAR
  140        Ok                : BOOLEAN;
  141        Num,Lnth          : CARDINAL;
  142        NumStr            : ARRAY[0..3] OF CHAR;
*****                                     ^ not supported yet
*****                                           ^ not supported yet
  143        Def               : Window.WinDef;
*****                                   ^ not supported yet
  144        Win               : Window.WinType;
*****                                   ^ not supported yet
  145      BEGIN
  146        Def := Template;
*****        ^ not supported yet
  147        WITH Def DO
*****             ^ not supported yet
  148          X1:=x;
*****          ^ undeclared identifier
  149          Y1:=y;
*****          ^ undeclared identifier
  150          X2:=X1+39;
*****          ^ undeclared identifier
*****              ^ undeclared identifier
  151          Y2:=Y1+2;
*****          ^ undeclared identifier
*****              ^ undeclared identifier
  152          Foreground := CommUtil.Colors.PromptFore;
*****          ^ undeclared identifier
*****                        ^ not supported yet
*****                                 ^ not supported yet
*****                                        ^ not supported yet
  153          Background := CommUtil.Colors.PromptBack;
*****          ^ undeclared identifier
*****                        ^ not supported yet
*****                                 ^ not supported yet
*****                                        ^ not supported yet
  154          FrameFore  := CommUtil.Colors.PromptFrFore;
*****          ^ undeclared identifier
*****                        ^ not supported yet
*****                                 ^ not supported yet
*****                                        ^ not supported yet
  155          FrameBack  := CommUtil.Colors.PromptFrBack;
*****          ^ undeclared identifier
*****                        ^ not supported yet
*****                                 ^ not supported yet
*****                                        ^ not supported yet
  156        END;
*****        ^ not supported yet
  157        Win := Window.Open(Def);
*****        ^ undeclared identifier
*****               ^ not supported yet
*****                      ^ not supported yet
*****                           ^ undeclared identifier
  158        Window.TextColor(CommUtil.Colors.PromptFore);
*****        ^ not supported yet
*****               ^ not supported yet
*****                         ^ not supported yet
*****                                  ^ not supported yet
*****                                         ^ not supported yet
  159        Window.GotoXY(1,1);
*****        ^ not supported yet
*****               ^ not supported yet
*****                         ^ not supported yet
  160        IO.WrStr(Prompt);
*****        ^ not supported yet
*****           ^ not supported yet
*****                 ^ undeclared identifier
  161        Window.TextColor(CommUtil.Colors.PromptHigh);
*****        ^ not supported yet
*****               ^ not supported yet
*****                         ^ not supported yet
*****                                  ^ not supported yet
*****                                         ^ not supported yet
  162        Str.CardToStr(LONGCARD(Result),NumStr,10,Ok);
*****        ^ not supported yet
*****            ^ not supported yet
*****                      ^ undeclared identifier
*****                               ^ undeclared identifier
*****                                       ^ undeclared identifier
*****                                                 ^ undeclared identifier
  163        CommUtil.ReadLine(NumStr,4);
*****        ^ not supported yet
*****                 ^ not supported yet
*****                          ^ undeclared identifier
*****                                  ^ not supported yet
  164        Num := Result;
*****        ^ undeclared identifier
*****               ^ undeclared identifier
  165        Value(NumStr,Num);
*****        ^ not supported yet
*****              ^ undeclared identifier
*****                     ^ undeclared identifier
  166        IF (Num>=Min) AND (Num<=Max) THEN
*****            ^ undeclared identifier
*****                 ^ undeclared identifier
*****                           ^ undeclared identifier
*****                                ^ undeclared identifier
  167          Result:=Num;
*****          ^ undeclared identifier
*****                  ^ undeclared identifier
  168        END;
  169        Window.Close(Win);
*****        ^ not supported yet
*****               ^ not supported yet
*****                     ^ undeclared identifier
  170      END ReadNum;
*****          ^ not supported yet
  171  
  172  (*........................................*)
  173  
  174    PROCEDURE ReadChar(x,y:CARDINAL; Prompt:ARRAY OF CHAR; VAR Ch:CHAR);
*****                                                     ^ not supported yet
  175      VAR
  176        c                 : CHAR;
  177        Lnth              : CARDINAL;
  178        Def               : Window.WinDef;
*****                                   ^ not supported yet
  179        Win               : Window.WinType;
*****                                   ^ not supported yet
  180      BEGIN
  181        Lnth := Str.Length(Prompt)+20;
*****                ^ not supported yet
*****                    ^ not supported yet
*****                           ^ not supported yet
  182        Def := Template;
*****        ^ not supported yet
  183        WITH Def DO
*****             ^ not supported yet
  184          X1:=x;
*****          ^ undeclared identifier
  185          Y1:=y;
*****          ^ undeclared identifier
  186          X2:=X1+39;
*****          ^ undeclared identifier
*****              ^ undeclared identifier
  187          Y2:=Y1+2;
*****          ^ undeclared identifier
*****              ^ undeclared identifier
  188          Foreground := CommUtil.Colors.PromptFore;
*****          ^ undeclared identifier
*****                        ^ not supported yet
*****                                 ^ not supported yet
*****                                        ^ not supported yet
  189          Background := CommUtil.Colors.PromptBack;
*****          ^ undeclared identifier
*****                        ^ not supported yet
*****                                 ^ not supported yet
*****                                        ^ not supported yet
  190          FrameFore  := CommUtil.Colors.PromptFrFore;
*****          ^ undeclared identifier
*****                        ^ not supported yet
*****                                 ^ not supported yet
*****                                        ^ not supported yet
  191          FrameBack  := CommUtil.Colors.PromptFrBack;
*****          ^ undeclared identifier
*****                        ^ not supported yet
*****                                 ^ not supported yet
*****                                        ^ not supported yet
  192        END;
*****        ^ not supported yet
  193        Win := Window.Open(Def);
*****        ^ undeclared identifier
*****               ^ not supported yet
*****                      ^ not supported yet
*****                           ^ undeclared identifier
  194        Window.TextColor(CommUtil.Colors.PromptFore);
*****        ^ not supported yet
*****               ^ not supported yet
*****                         ^ not supported yet
*****                                  ^ not supported yet
*****                                         ^ not supported yet
  195        Window.GotoXY(1,1);
*****        ^ not supported yet
*****               ^ not supported yet
*****                         ^ not supported yet
  196        IO.WrStr(Prompt);
*****        ^ not supported yet
*****           ^ not supported yet
*****                 ^ undeclared identifier
  197        Window.TextColor(CommUtil.Colors.PromptHigh);
*****        ^ not supported yet
*****               ^ not supported yet
*****                         ^ not supported yet
*****                                  ^ not supported yet
*****                                         ^ not supported yet
  198        IO.WrStr(AsciiCode(Ch));
*****        ^ not supported yet
*****           ^ not supported yet
*****                 ^ not supported yet
*****                           ^ undeclared identifier
  199        Window.GotoXY(Str.Length(Prompt)+1,1);
*****        ^ not supported yet
*****               ^ not supported yet
*****                      ^ not supported yet
*****                          ^ not supported yet
*****                                 ^ undeclared identifier
*****                                            ^ not supported yet
  200        CommUtil.Read(c);
*****        ^ not supported yet
*****                 ^ not supported yet
*****                      ^ undeclared identifier
  201        IF c<>CHR(27) THEN
*****           ^ undeclared identifier
*****              ^ undeclared identifier
*****                    ^ not supported yet
  202          Ch:=c;
*****          ^ undeclared identifier
*****              ^ undeclared identifier
  203        END;
  204        Window.Close(Win);
*****        ^ not supported yet
*****               ^ not supported yet
*****                     ^ undeclared identifier
  205      END ReadChar;
*****          ^ not supported yet
  206  
  207  (*........................................*)
  208  
  209    PROCEDURE ModemSetup(MenuX,MenuY:CARDINAL);
  210      VAR
  211        i,Count           : CARDINAL;
  212        Serial            : MenuLib.MenuRec;
*****                                    ^ not supported yet
  213  
  214  (*. . . . . . . . . . . . . . . . . . . . .*)
  215  
  216      PROCEDURE ParStr(Parity:ParityCodes):String10;
  217        BEGIN
  218          CASE Parity OF
*****               ^ not supported yet
  219            Odd     : RETURN '  ODD';    |
*****            ^ undeclared identifier
*****                             ^ not supported yet
  220            Even    : RETURN ' EVEN';    |
*****            ^ undeclared identifier
*****                             ^ not supported yet
  221            Mark    : RETURN ' MARK';    |
*****            ^ undeclared identifier
*****                             ^ not supported yet
  222            Space   : RETURN 'SPACE';    |
*****            ^ undeclared identifier
*****                             ^ not supported yet
  223            None    : RETURN ' NONE';    |
*****            ^ undeclared identifier
*****                             ^ not supported yet
  224          END;
  225        END ParStr;
*****            ^ not supported yet
  226  
  227  (*. . . . . . . . . . . . . . . . . . . . .*)
  228  
  229      PROCEDURE FlowStr(Ctrl:FlowControls):String10;
  230        BEGIN
  231          CASE Ctrl OF
*****               ^ not supported yet
  232            NoFlowControl: RETURN '    NONE';                |
*****            ^ undeclared identifier
*****                                  ^ not supported yet
  233            RtsCts       : RETURN ' RTS/CTS';                |
*****            ^ undeclared identifier
*****                                  ^ not supported yet
  234            XonXoff      : RETURN 'XON/XOFF';                |
*****            ^ undeclared identifier
*****                                  ^ not supported yet
  235          END;
  236        END FlowStr;
*****            ^ not supported yet
  237  
  238  (*. . . . . . . . . . . . . . . . . . . . .*)
  239  
  240      PROCEDURE MsChangeMenu;
  241        BEGIN
  242          WITH Setup.Serial DO
*****               ^ undeclared identifier
*****                     ^ not supported yet
  243            WITH Serial DO
*****                 ^ not supported yet
  244              SPRINTF.SPrintF1(' Comm Port:     %5u ',Port,Option[0].Name);
*****              ^ not supported yet
*****                      ^ not supported yet
*****                               ^ not supported yet
*****                                                      ^ undeclared identifier
*****                                                           ^ undeclared identifier
*****                                                                   ^ not supported yet
*****                                                                     ^ not supported yet
  245              SPRINTF.SPrintF1(' Baud Rate:     %5u ',Baud,Option[1].Name);
*****              ^ not supported yet
*****                      ^ not supported yet
*****                               ^ not supported yet
*****                                                      ^ undeclared identifier
*****                                                           ^ undeclared identifier
*****                                                                   ^ not supported yet
*****                                                                     ^ not supported yet
  246              SPRINTF.SPrintF1(' Data Bits:     %5u ',DataBits,Option[2].Name);
*****              ^ not supported yet
*****                      ^ not supported yet
*****                               ^ not supported yet
*****                                                      ^ undeclared identifier
*****                                                               ^ undeclared identifier
*****                                                                       ^ not supported yet
*****                                                                         ^ not supported yet
  247              SPRINTF.SPrintF1(' Parity:        %s ',ParStr(Parity),Option[3].Name);
*****              ^ not supported yet
*****                      ^ not supported yet
*****                               ^ not supported yet
*****                                                     ^ not supported yet
*****                                                            ^ undeclared identifier
*****                                                                    ^ undeclared identifier
*****                                                                            ^ not supported yet
*****                                                                              ^ not supported yet
  248              SPRINTF.SPrintF1(' Stop bits:     %5u ',StopBits,Option[4].Name);
*****              ^ not supported yet
*****                      ^ not supported yet
*****                               ^ not supported yet
*****                                                      ^ undeclared identifier
*****                                                               ^ undeclared identifier
*****                                                                       ^ not supported yet
*****                                                                         ^ not supported yet
  249              SPRINTF.SPrintF1(' Flow Ctrl:  %s ',FlowStr(FlowControl),Option[5].Name);
*****              ^ not supported yet
*****                      ^ not supported yet
*****                               ^ not supported yet
*****                                                  ^ not supported yet
*****                                                          ^ undeclared identifier
*****                                                                       ^ undeclared identifier
*****                                                                               ^ not supported yet
*****                                                                                 ^ not supported yet
  250            END; (*WITH*)
*****            ^ not supported yet
  251          END; (*WITH*)
*****          ^ not supported yet
  252        END MsChangeMenu;
*****            ^ not supported yet
  253  
  254  (*. . . . . . . . . . . . . . . . . . . . .*)
  255  
  256      BEGIN (* ModemSetup *)
  257        MenuLib.InitMenu(Serial,'',MenuX,MenuY,22);
*****        ^ not supported yet
*****                ^ not supported yet
*****                         ^ undeclared identifier
*****                                   ^ undeclared identifier
*****                                         ^ undeclared identifier
*****                                                 ^ not supported yet
  258        Serial.EscapeOK := TRUE;
*****        ^ undeclared identifier
*****               ^ not supported yet
  259        Serial.ExitOnChar := TRUE;
*****        ^ undeclared identifier
*****               ^ not supported yet
  260        FOR i:=0 TO 5 DO
*****            ^ undeclared identifier
  261          MenuLib.AddOption(Serial,' Comm Port:           ');
*****          ^ not supported yet
*****                  ^ not supported yet
*****                            ^ undeclared identifier
*****                                   ^ not supported yet
  262        END;
  263        MsChangeMenu;
*****        ^ undeclared identifier
  264        MenuLib.DispMenu(Serial);
*****        ^ not supported yet
*****                ^ not supported yet
*****                         ^ undeclared identifier
  265        LOOP
  266          WITH Setup.Serial DO
*****               ^ undeclared identifier
*****                     ^ not supported yet
  267            CASE MenuLib.MenuDrive(Serial) OF
*****                 ^ not supported yet
*****                         ^ not supported yet
*****                                   ^ undeclared identifier
  268              -1          : EXIT;                                           |
  269              0           : Port := (Port MOD 4)+1;                         |
*****                            ^ undeclared identifier
*****                                     ^ undeclared identifier
  270              1           : Baud := Baud*2;
*****                            ^ undeclared identifier
*****                                    ^ undeclared identifier
  271                            IF Baud>19200 THEN
*****                               ^ undeclared identifier
  272                              Baud := 75;
*****                              ^ undeclared identifier
  273                            END;                                            |
  274              2           : DataBits := 7+ORD(DataBits=7);                  |
*****                            ^ undeclared identifier
*****                                          ^ undeclared identifier
*****                                              ^ undeclared identifier
*****                                                        ^ not supported yet
  275              3           : CASE Parity OF
*****                                 ^ undeclared identifier
  276                              None : Parity:=Even;                               |
*****                              ^ undeclared identifier
*****                                     ^ undeclared identifier
*****                                             ^ undeclared identifier
  277                              Even : Parity:=Odd;                                |
*****                              ^ undeclared identifier
*****                                     ^ undeclared identifier
*****                                             ^ undeclared identifier
  278                              Odd  : Parity:=Mark;                               |
*****                              ^ undeclared identifier
*****                                     ^ undeclared identifier
*****                                             ^ undeclared identifier
  279                              Mark : Parity:=Space;                              |
*****                              ^ undeclared identifier
*****                                     ^ undeclared identifier
*****                                             ^ undeclared identifier
  280                              Space: Parity:=None;                               |
*****                              ^ undeclared identifier
*****                                     ^ undeclared identifier
*****                                             ^ undeclared identifier
  281                            END;                                            |
  282              4           : StopBits := 1+ORD(StopBits=1);                  |
*****                            ^ undeclared identifier
*****                                          ^ undeclared identifier
*****                                              ^ undeclared identifier
*****                                                        ^ not supported yet
  283              5           : IF FlowControl=NoFlowControl THEN
*****                               ^ undeclared identifier
*****                                           ^ undeclared identifier
  284                              FlowControl:=RtsCts
*****                              ^ undeclared identifier
*****                                           ^ undeclared identifier
  285                            ELSIF FlowControl=RtsCts THEN
*****                                  ^ undeclared identifier
*****                                              ^ undeclared identifier
  286                              FlowControl:=XonXoff
*****                              ^ undeclared identifier
*****                                           ^ undeclared identifier
  287                            ELSE
  288                              FlowControl:=NoFlowControl
*****                              ^ undeclared identifier
*****                                           ^ undeclared identifier
  289                            END;                                            |
  290            END;
  291          END;
*****          ^ not supported yet
  292          MsChangeMenu;
*****          ^ undeclared identifier
  293        END;
  294        MenuLib.KillMenu(Serial);
*****        ^ not supported yet
*****                ^ not supported yet
*****                         ^ undeclared identifier
  295        RS232.UnInstall;
*****        ^ not supported yet
*****              ^ not supported yet
  296        WITH Setup.Serial DO
*****             ^ undeclared identifier
*****                   ^ not supported yet
  297          RS232.SelectPort(Port);
*****          ^ not supported yet
*****                ^ not supported yet
*****                           ^ undeclared identifier
  298          RS232.InitPort(Baud,DataBits,StopBits,Parity);
*****          ^ not supported yet
*****                ^ not supported yet
*****                         ^ undeclared identifier
*****                              ^ undeclared identifier
*****                                       ^ undeclared identifier
*****                                                ^ undeclared identifier
  299          RS232.Install;
*****          ^ not supported yet
*****                ^ not supported yet
  300          RS232.SetFlowControl(FlowControl);
*****          ^ not supported yet
*****                ^ not supported yet
*****                               ^ undeclared identifier
  301        END;
*****        ^ not supported yet
  302      END ModemSetup;
*****          ^ not supported yet
  303  
  304  (*........................................*)
  305  
  306    PROCEDURE GeneralSetup(MenuX,MenuY:CARDINAL);
  307      VAR
  308        i                 : CARDINAL;
  309        GMenu             : MenuLib.MenuRec;
*****                                    ^ not supported yet
  310        Selection         : INTEGER;
  311        CRText            : ARRAY CrTypes OF String10;
*****                                  ^ undeclared identifier
*****                                             ^ not supported yet
  312  
  313  (*. . . . . . . . . . . . . . . . . . . . .*)
  314  
  315      PROCEDURE GsChangeMenu;
  316        BEGIN
  317          WITH Setup.General DO
*****               ^ undeclared identifier
*****                     ^ not supported yet
  318            WITH GMenu DO
*****                 ^ not supported yet
  319              SPRINTF.SPrintF1(' Strip Parity Bit:    %3s ',BoolStr[MaskBit7],Option[0].Name);
*****              ^ not supported yet
*****                      ^ not supported yet
*****                               ^ not supported yet
*****                                                            ^ not supported yet
*****                                                                    ^ undeclared identifier
*****                                                                              ^ undeclared identifier
*****                                                                                      ^ not supported yet
*****                                                                                        ^ not supported yet
  320              SPRINTF.SPrintF1(' CR-in Translation:  %4s ',CRText[CRInTranslation],Option[1].Name);
*****              ^ not supported yet
*****                      ^ not supported yet
*****                               ^ not supported yet
*****                                                           ^ not supported yet
*****                                                                  ^ undeclared identifier
*****                                                                                   ^ undeclared identifier
*****                                                                                           ^ not supported yet
*****                                                                                             ^ not supported yet
  321              SPRINTF.SPrintF1(' CR-out Translation: %4s ',CRText[CROutTranslation],Option[2].Name);
*****              ^ not supported yet
*****                      ^ not supported yet
*****                               ^ not supported yet
*****                                                           ^ not supported yet
*****                                                                  ^ undeclared identifier
*****                                                                                    ^ undeclared identifier
*****                                                                                            ^ not supported yet
*****                                                                                              ^ not supported yet
  322            END;
*****            ^ not supported yet
  323          END;
*****          ^ not supported yet
  324        END GsChangeMenu;
*****            ^ not supported yet
  325  
  326  (*. . . . . . . . . . . . . . . . . . . . .*)
  327  
  328      BEGIN (* GeneralSetup *)
  329        CRText[CR]:='CR';
*****        ^ undeclared identifier
*****               ^ undeclared identifier
*****                    ^ not supported yet
  330        CRText[CRLF]:='CRLF';
*****        ^ undeclared identifier
*****               ^ undeclared identifier
*****                      ^ not supported yet
  331        MenuLib.InitMenu(GMenu,'',MenuX,MenuY,26);
*****        ^ not supported yet
*****                ^ not supported yet
*****                         ^ undeclared identifier
*****                                  ^ undeclared identifier
*****                                        ^ undeclared identifier
*****                                                ^ not supported yet
  332        GMenu.EscapeOK := TRUE;
*****        ^ undeclared identifier
*****              ^ not supported yet
  333        FOR i:=0 TO 2 DO
*****            ^ undeclared identifier
  334          MenuLib.AddOption(GMenu,' X                        ');
*****          ^ not supported yet
*****                  ^ not supported yet
*****                            ^ undeclared identifier
*****                                  ^ not supported yet
  335        END;
  336        MenuLib.AddOption(GMenu,' Directory for Scripts    ');
*****        ^ not supported yet
*****                ^ not supported yet
*****                          ^ undeclared identifier
*****                                ^ not supported yet
  337        MenuLib.AddOption(GMenu,' Directory for Downloads  ');
*****        ^ not supported yet
*****                ^ not supported yet
*****                          ^ undeclared identifier
*****                                ^ not supported yet
  338        GsChangeMenu;
*****        ^ undeclared identifier
  339        MenuLib.DispMenu(GMenu);
*****        ^ not supported yet
*****                ^ not supported yet
*****                         ^ undeclared identifier
  340        LOOP
  341          Selection := MenuLib.MenuDrive(GMenu);
*****          ^ undeclared identifier
*****                       ^ not supported yet
*****                               ^ not supported yet
*****                                         ^ undeclared identifier
  342          WITH Setup.General DO
*****               ^ undeclared identifier
*****                     ^ not supported yet
  343            CASE Selection OF
*****                 ^ undeclared identifier
  344              -1          : EXIT;                                           |
  345              0           : MaskBit7 := (NOT MaskBit7);                     |
*****                            ^ undeclared identifier
*****                                             ^ undeclared identifier
  346              1           : IF CRInTranslation=CR THEN
*****                               ^ undeclared identifier
*****                                               ^ undeclared identifier
  347                              CRInTranslation:=CRLF
*****                              ^ undeclared identifier
*****                                               ^ undeclared identifier
  348                            ELSE
  349                              CRInTranslation:=CR
*****                              ^ undeclared identifier
*****                                               ^ undeclared identifier
  350                            END;                                            |
  351              2           : IF CROutTranslation=CR THEN
*****                               ^ undeclared identifier
*****                                                ^ undeclared identifier
  352                              CROutTranslation:=CRLF
*****                              ^ undeclared identifier
*****                                                ^ undeclared identifier
  353                            ELSE
  354                              CROutTranslation:=CR
*****                              ^ undeclared identifier
*****                                                ^ undeclared identifier
  355                            END;                                            |
  356              3           : CommUtil.ReadString(MenuX+1,MenuY+5,'','',ScriptDir);|
*****                            ^ not supported yet
*****                                     ^ not supported yet
*****                                                ^ undeclared identifier
*****                                                        ^ undeclared identifier
*****                                                                      ^ undeclared identifier
  357              4           : CommUtil.ReadString(MenuX+1,MenuY+6,'','',DownloadDir);|
*****                            ^ not supported yet
*****                                     ^ not supported yet
*****                                                ^ undeclared identifier
*****                                                        ^ undeclared identifier
*****                                                                      ^ undeclared identifier
  358            END;
  359          END;
*****          ^ not supported yet
  360          IF (Selection>=0) AND (Selection<=2) THEN
*****              ^ undeclared identifier
*****                                 ^ undeclared identifier
  361            GsChangeMenu;
*****            ^ undeclared identifier
  362          END;
  363        END;
  364        MenuLib.KillMenu(GMenu);
*****        ^ not supported yet
*****                ^ not supported yet
*****                         ^ undeclared identifier
  365      END GeneralSetup;
*****          ^ not supported yet
  366  
  367  (*........................................*)
  368  
  369    PROCEDURE KermitSetup(MenuX,MenuY:CARDINAL);
  370      VAR
  371        i                 : CARDINAL;
  372        KMenu             : MenuLib.MenuRec;
*****                                    ^ not supported yet
  373        ModeStr           : ARRAY BOOLEAN OF String10;
*****                                  ^ not supported yet
*****                                             ^ not supported yet
  374  
  375  (*. . . . . . . . . . . . . . . . . . . .*)
  376  
  377      PROCEDURE KsChangeMenu;
  378        BEGIN
  379          WITH Setup.Kermit DO
*****               ^ undeclared identifier
*****                     ^ not supported yet
  380            WITH KMenu DO
*****                 ^ not supported yet
  381              SPRINTF.SPrintF1(' Sync Char:      %3s ',AsciiCode(Sync),Option[0].Name);
*****              ^ not supported yet
*****                      ^ not supported yet
*****                               ^ not supported yet
*****                                                       ^ not supported yet
*****                                                                 ^ undeclared identifier
*****                                                                       ^ undeclared identifier
*****                                                                               ^ not supported yet
*****                                                                                 ^ not supported yet
  382              SPRINTF.SPrintF1(' Packet Size:   %4u ',MaxPacketSize,Option[1].Name);
*****              ^ not supported yet
*****                      ^ not supported yet
*****                               ^ not supported yet
*****                                                      ^ undeclared identifier
*****                                                                    ^ undeclared identifier
*****                                                                            ^ not supported yet
*****                                                                              ^ not supported yet
  383              SPRINTF.SPrintF1(' Pad Char:       %3s ',AsciiCode(PadChar),Option[2].Name);
*****              ^ not supported yet
*****                      ^ not supported yet
*****                               ^ not supported yet
*****                                                       ^ not supported yet
*****                                                                 ^ undeclared identifier
*****                                                                          ^ undeclared identifier
*****                                                                                  ^ not supported yet
*****                                                                                    ^ not supported yet
  384              SPRINTF.SPrintF1(' No. Pad Chars: %4u ',NumPadChars,Option[3].Name);
*****              ^ not supported yet
*****                      ^ not supported yet
*****                               ^ not supported yet
*****                                                      ^ undeclared identifier
*****                                                                  ^ undeclared identifier
*****                                                                          ^ not supported yet
*****                                                                            ^ not supported yet
  385              SPRINTF.SPrintF1(' Control Quote:    %c ',CtlQuote,Option[4].Name);
*****              ^ not supported yet
*****                      ^ not supported yet
*****                               ^ not supported yet
*****                                                        ^ undeclared identifier
*****                                                                 ^ undeclared identifier
*****                                                                         ^ not supported yet
*****                                                                           ^ not supported yet
  386              SPRINTF.SPrintF1(' Repeat Prefix:    %c ',ReptPrefix,Option[5].Name);
*****              ^ not supported yet
*****                      ^ not supported yet
*****                               ^ not supported yet
*****                                                        ^ undeclared identifier
*****                                                                   ^ undeclared identifier
*****                                                                           ^ not supported yet
*****                                                                             ^ not supported yet
  387              SPRINTF.SPrintF1(' 8th bit Quote:    %c ',EightBitQuote,Option[6].Name);
*****              ^ not supported yet
*****                      ^ not supported yet
*****                               ^ not supported yet
*****                                                        ^ undeclared identifier
*****                                                                      ^ undeclared identifier
*****                                                                              ^ not supported yet
*****                                                                                ^ not supported yet
  388              SPRINTF.SPrintF1(' Transfer Mode: %4s ',ModeStr[ImageMode],Option[7].Name);
*****              ^ not supported yet
*****                      ^ not supported yet
*****                               ^ not supported yet
*****                                                      ^ not supported yet
*****                                                              ^ undeclared identifier
*****                                                                         ^ undeclared identifier
*****                                                                                 ^ not supported yet
*****                                                                                   ^ not supported yet
  389              SPRINTF.SPrintF1(' IBM Mode:       %3s ',BoolStr[IBMMode],Option[8].Name);
*****              ^ not supported yet
*****                      ^ not supported yet
*****                               ^ not supported yet
*****                                                       ^ not supported yet
*****                                                               ^ undeclared identifier
*****                                                                        ^ undeclared identifier
*****                                                                                ^ not supported yet
*****                                                                                  ^ not supported yet
  390              SPRINTF.SPrintF1(' EOL Char:       %3s ',AsciiCode(EolChar),Option[9].Name);
*****              ^ not supported yet
*****                      ^ not supported yet
*****                               ^ not supported yet
*****                                                       ^ not supported yet
*****                                                                 ^ undeclared identifier
*****                                                                          ^ undeclared identifier
*****                                                                                  ^ not supported yet
*****                                                                                    ^ not supported yet
  391            END;
*****            ^ not supported yet
  392          END;
*****          ^ not supported yet
  393        END KsChangeMenu;
*****            ^ not supported yet
  394  
  395  (*. . . . . . . . . . . . . . . . . . . .*)
  396  
  397      BEGIN (* KermitSetup *)
  398        ModeStr[TRUE] := '8Bit';
*****        ^ undeclared identifier
*****                    ^ not supported yet
*****                         ^ not supported yet
  399        ModeStr[FALSE] := '7Bit';
*****        ^ undeclared identifier
*****                     ^ not supported yet
*****                          ^ not supported yet
  400        MenuLib.InitMenu(KMenu,'',MenuX,MenuY,21);
*****        ^ not supported yet
*****                ^ not supported yet
*****                         ^ undeclared identifier
*****                                  ^ undeclared identifier
*****                                        ^ undeclared identifier
*****                                                ^ not supported yet
  401        KMenu.EscapeOK := TRUE;
*****        ^ undeclared identifier
*****              ^ not supported yet
  402        FOR i:=0 TO 9 DO
*****            ^ undeclared identifier
  403          MenuLib.AddOption(KMenu,' x                   ');
*****          ^ not supported yet
*****                  ^ not supported yet
*****                            ^ undeclared identifier
*****                                  ^ not supported yet
  404        END;
  405        KsChangeMenu;
*****        ^ undeclared identifier
  406        MenuLib.DispMenu(KMenu);
*****        ^ not supported yet
*****                ^ not supported yet
*****                         ^ undeclared identifier
  407        LOOP
  408          WITH Setup.Kermit DO
*****               ^ undeclared identifier
*****                     ^ not supported yet
  409            CASE MenuLib.MenuDrive(KMenu) OF
*****                 ^ not supported yet
*****                         ^ not supported yet
*****                                   ^ undeclared identifier
  410              -1          : EXIT;                                           |
  411              0           : ReadChar(MenuX+1,MenuY+2,' Sync Char? ',Sync);  |
*****                            ^ not supported yet
*****                                     ^ undeclared identifier
*****                                             ^ undeclared identifier
*****                                                     ^ not supported yet
*****                                                                    ^ undeclared identifier
  412              1           : ReadNum(MenuX+1,MenuY+3,' Packet Size? ',30,90,MaxPacketSize);|
*****                            ^ not supported yet
*****                                    ^ undeclared identifier
*****                                            ^ undeclared identifier
*****                                                    ^ not supported yet
*****                                                                           ^ undeclared identifier
  413              2           : ReadChar(MenuX+1,MenuY+4,' Pad Char? ',PadChar);|
*****                            ^ not supported yet
*****                                     ^ undeclared identifier
*****                                             ^ undeclared identifier
*****                                                     ^ not supported yet
*****                                                                   ^ undeclared identifier
  414              3           : ReadNum(MenuX+1,MenuY+5,' No. Pad Chars? ',0,256,NumPadChars);|
*****                            ^ not supported yet
*****                                    ^ undeclared identifier
*****                                            ^ undeclared identifier
*****                                                    ^ not supported yet
*****                                                                             ^ undeclared identifier
  415              4           : ReadChar(MenuX+1,MenuY+6,' Ctl Quote Char? ',CtlQuote);|
*****                            ^ not supported yet
*****                                     ^ undeclared identifier
*****                                             ^ undeclared identifier
*****                                                     ^ not supported yet
*****                                                                         ^ undeclared identifier
  416              5           : ReadChar(MenuX+1,MenuY+7,' Repeat Prefix? ',ReptPrefix);|
*****                            ^ not supported yet
*****                                     ^ undeclared identifier
*****                                             ^ undeclared identifier
*****                                                     ^ not supported yet
*****                                                                        ^ undeclared identifier
  417              6           : ReadChar(MenuX+1,MenuY+8,' 8th Bit Quote? ',EightBitQuote);|
*****                            ^ not supported yet
*****                                     ^ undeclared identifier
*****                                             ^ undeclared identifier
*****                                                     ^ not supported yet
*****                                                                        ^ undeclared identifier
  418              7           : ImageMode := NOT ImageMode;                     |
*****                            ^ undeclared identifier
*****                                             ^ undeclared identifier
  419              8           : IBMMode := NOT IBMMode;                         |
*****                            ^ undeclared identifier
*****                                           ^ undeclared identifier
  420              9           : ReadChar(MenuX+1,MenuY+11,' EOL Char? ',EolChar);|
*****                            ^ not supported yet
*****                                     ^ undeclared identifier
*****                                             ^ undeclared identifier
*****                                                      ^ not supported yet
*****                                                                    ^ undeclared identifier
  421            END;
  422          END;
*****          ^ not supported yet
  423          KsChangeMenu;
*****          ^ undeclared identifier
  424        END;
  425        MenuLib.KillMenu(KMenu);
*****        ^ not supported yet
*****                ^ not supported yet
*****                         ^ undeclared identifier
  426      END KermitSetup;
*****          ^ not supported yet
  427  
  428  (*........................................*)
  429  
  430    PROCEDURE AsciiSetup(MenuX,MenuY:CARDINAL);
  431      VAR
  432        i                 : CARDINAL;
  433        AMenu             : MenuLib.MenuRec;
*****                                    ^ not supported yet
  434  
  435  (*. . . . . . . . . . . . . . . . . . . .*)
  436  
  437      PROCEDURE AsChangeMenu;
  438        BEGIN
  439          WITH Setup.ASCII DO
*****               ^ undeclared identifier
*****                     ^ not supported yet
  440            WITH AMenu.Option[0] DO
*****                 ^ not supported yet
*****                       ^ not supported yet
*****                               ^ not supported yet
  441              SPRINTF.SPrintF1(' Character Delay (ms): %4u ',CharDelayMS,Name);
*****              ^ not supported yet
*****                      ^ not supported yet
*****                               ^ not supported yet
*****                                                             ^ undeclared identifier
*****                                                                         ^ undeclared identifier
  442            END;
*****            ^ not supported yet
  443            WITH AMenu.Option[1] DO
*****                 ^ not supported yet
*****                       ^ not supported yet
*****                               ^ not supported yet
  444              SPRINTF.SPrintF1(' Line Delay (ms):      %4u ',LineDelayMS,Name);
*****              ^ not supported yet
*****                      ^ not supported yet
*****                               ^ not supported yet
*****                                                             ^ undeclared identifier
*****                                                                         ^ undeclared identifier
  445            END;
*****            ^ not supported yet
  446          END;
*****          ^ not supported yet
  447        END AsChangeMenu;
*****            ^ not supported yet
  448  
  449  (*. . . . . . . . . . . . . . . . . . . .*)
  450  
  451      BEGIN (* AsciiSetup *)
  452        MenuLib.InitMenu(AMenu,'',MenuX,MenuY,28);
*****        ^ not supported yet
*****                ^ not supported yet
*****                         ^ undeclared identifier
*****                                  ^ undeclared identifier
*****                                        ^ undeclared identifier
*****                                                ^ not supported yet
  453        AMenu.EscapeOK := TRUE;
*****        ^ undeclared identifier
*****              ^ not supported yet
  454        AMenu.ExitOnChar := TRUE;
*****        ^ undeclared identifier
*****              ^ not supported yet
  455        FOR i:=0 TO 1 DO
*****            ^ undeclared identifier
  456          MenuLib.AddOption(AMenu,' x                          ');
*****          ^ not supported yet
*****                  ^ not supported yet
*****                            ^ undeclared identifier
*****                                  ^ not supported yet
  457        END;
  458        AsChangeMenu;
*****        ^ undeclared identifier
  459        MenuLib.DispMenu(AMenu);
*****        ^ not supported yet
*****                ^ not supported yet
*****                         ^ undeclared identifier
  460        LOOP
  461          WITH Setup.ASCII DO
*****               ^ undeclared identifier
*****                     ^ not supported yet
  462            CASE MenuLib.MenuDrive(AMenu) OF
*****                 ^ not supported yet
*****                         ^ not supported yet
*****                                   ^ undeclared identifier
  463              -1          : EXIT;                                                          |
  464              0           : ReadNum(MenuX+1,MenuY+2,' Char Delay? ',0,9999,CharDelayMS);   |
*****                            ^ not supported yet
*****                                    ^ undeclared identifier
*****                                            ^ undeclared identifier
*****                                                    ^ not supported yet
*****                                                                           ^ undeclared identifier
  465              1           : ReadNum(MenuX+1,MenuY+3,' Line Delay? ',0,9999,LineDelayMS);   |
*****                            ^ not supported yet
*****                                    ^ undeclared identifier
*****                                            ^ undeclared identifier
*****                                                    ^ not supported yet
*****                                                                           ^ undeclared identifier
  466            END;
  467          END;
*****          ^ not supported yet
  468          AsChangeMenu;
*****          ^ undeclared identifier
  469        END;
  470        MenuLib.KillMenu(AMenu);
*****        ^ not supported yet
*****                ^ not supported yet
*****                         ^ undeclared identifier
  471      END AsciiSetup;
*****          ^ not supported yet
  472  
  473  (*........................................*)
  474  
  475    PROCEDURE ChangeMacro(MenuX,MenuY:CARDINAL);
  476      VAR
  477        i                 : CARDINAL;
  478        Def               : Window.WinDef;
*****                                   ^ not supported yet
  479        Win               : Window.WinType;
*****                                   ^ not supported yet
  480  
  481  (*. . . . . . . . . . . . . . . . . . . . .*)
  482  
  483      PROCEDURE Highlight(MacroNo:CARDINAL; On:BOOLEAN);
  484        BEGIN
  485          Window.GotoXY(1,MacroNo+1);
*****          ^ not supported yet
*****                 ^ not supported yet
*****                                   ^ not supported yet
  486          Window.TextBackground(CommUtil.Colors.MacroBack);
*****          ^ not supported yet
*****                 ^ not supported yet
*****                                ^ not supported yet
*****                                         ^ not supported yet
*****                                                ^ not supported yet
  487          Window.TextColor(CommUtil.Colors.MacroFore);
*****          ^ not supported yet
*****                 ^ not supported yet
*****                           ^ not supported yet
*****                                    ^ not supported yet
*****                                           ^ not supported yet
  488          MPRINTF.PrintF1(' %u ',MacroNo);
*****          ^ not supported yet
*****                  ^ not supported yet
*****                          ^ not supported yet
*****                                        ^ not supported yet
  489          IF On THEN
  490            Window.TextBackground(CommUtil.Colors.MacroHighBack);
*****            ^ not supported yet
*****                   ^ not supported yet
*****                                  ^ not supported yet
*****                                           ^ not supported yet
*****                                                  ^ not supported yet
  491            Window.TextColor(CommUtil.Colors.MacroHighFore);
*****            ^ not supported yet
*****                   ^ not supported yet
*****                             ^ not supported yet
*****                                      ^ not supported yet
*****                                             ^ not supported yet
  492          ELSE
  493            Window.TextBackground(CommUtil.Colors.MacroLowBack);
*****            ^ not supported yet
*****                   ^ not supported yet
*****                                  ^ not supported yet
*****                                           ^ not supported yet
*****                                                  ^ not supported yet
  494            Window.TextColor(CommUtil.Colors.MacroLowFore);
*****            ^ not supported yet
*****                   ^ not supported yet
*****                             ^ not supported yet
*****                                      ^ not supported yet
*****                                             ^ not supported yet
  495          END;
  496          MPRINTF.PrintF1('%-70s\r',Setup.Macros[MacroNo]);
*****          ^ not supported yet
*****                  ^ not supported yet
*****                          ^ not supported yet
*****                                    ^ undeclared identifier
*****                                          ^ not supported yet
*****                                                        ^ not supported yet
  497          Window.GotoXY(4,MacroNo+1);
*****          ^ not supported yet
*****                 ^ not supported yet
*****                                   ^ not supported yet
  498        END Highlight;
*****            ^ not supported yet
  499  
  500  (*. . . . . . . . . . . . . . . . . . . . .*)
  501  
  502      PROCEDURE EditMacros;
  503        VAR
  504          Ch              : CHAR;
  505          MacroNo,
  506          NextMacroNo     : CARDINAL;
  507          ch              : ARRAY[0..1] OF CHAR;
*****                                     ^ not supported yet
*****                                           ^ not supported yet
  508        BEGIN
  509          ch:=' ';
*****          ^ not supported yet
*****              ^ incompatible assignment
  510          MacroNo:=0;
  511          LOOP
  512            Highlight(MacroNo,TRUE);
*****            ^ not supported yet
*****                                  ^ not supported yet
  513            NextMacroNo := MacroNo;
  514            CommUtil.Read(Ch);
*****            ^ not supported yet
*****                     ^ not supported yet
*****                            ^ not supported yet
  515            CASE CommUtil.FuncKeyTyped OF
*****                 ^ not supported yet
*****                          ^ not supported yet
  516              Cup         : IF MacroNo>0 THEN
*****              ^ undeclared identifier
  517                              NextMacroNo:=MacroNo-1;
  518                            END;                                            |
  519              Cdown       : IF MacroNo<9 THEN
*****              ^ undeclared identifier
  520                              NextMacroNo:=MacroNo+1;
  521                            END;                                            |
  522              Escape      : EXIT;                                           |
*****              ^ undeclared identifier
  523              EndKey,Del,
*****              ^ undeclared identifier
*****                     ^ undeclared identifier
  524              Cright      : IF Setup.Macros[MacroNo,0]<>0C THEN
*****              ^ undeclared identifier
*****                               ^ undeclared identifier
*****                                     ^ not supported yet
*****                                                     ^ not supported yet
  525                              CommUtil.PushBack(Ch);
*****                              ^ not supported yet
*****                                       ^ not supported yet
*****                                                  ^ not supported yet
  526                              CommUtil.SpacesOK:=TRUE;
*****                              ^ not supported yet
*****                                       ^ not supported yet
  527                              CommUtil.ReadLine(Setup.Macros[MacroNo],70);
*****                              ^ not supported yet
*****                                       ^ not supported yet
*****                                                ^ undeclared identifier
*****                                                      ^ not supported yet
*****                                                                    ^ not supported yet
*****                                                                        ^ not supported yet
  528                              IF MacroNo<9 THEN
  529                                NextMacroNo:=MacroNo+1;
  530                              END;
  531                            END;                                            |
  532              NotRecognised:CommUtil.PushBack(Ch);
*****              ^ undeclared identifier
*****                            ^ not supported yet
*****                                     ^ not supported yet
*****                                                ^ not supported yet
  533                            CommUtil.SpacesOK:=TRUE;
*****                            ^ not supported yet
*****                                     ^ not supported yet
  534                            CommUtil.ReadLine(Setup.Macros[MacroNo],70);
*****                            ^ not supported yet
*****                                     ^ not supported yet
*****                                              ^ undeclared identifier
*****                                                    ^ not supported yet
*****                                                                  ^ not supported yet
*****                                                                      ^ not supported yet
  535                            IF MacroNo<9 THEN
  536                              NextMacroNo:=MacroNo+1;
  537                            END;                                            |
  538            END;
  539            Highlight(MacroNo,FALSE);
*****            ^ not supported yet
*****                                   ^ not supported yet
  540            MacroNo := NextMacroNo;
  541          END;
  542        END EditMacros;
*****            ^ not supported yet
  543  
  544  (*. . . . . . . . . . . . . . . . . . . . .*)
  545  
  546      BEGIN (* ChangeMacro *)
  547        Def := Template;
*****        ^ not supported yet
  548        WITH Def DO
*****             ^ not supported yet
  549          X1:=3;
*****          ^ undeclared identifier
  550          Y1:=6;
*****          ^ undeclared identifier
  551          X2:=74;
*****          ^ undeclared identifier
  552          Y2:=17;
*****          ^ undeclared identifier
  553          Foreground := CommUtil.Colors.MacroFore;
*****          ^ undeclared identifier
*****                        ^ not supported yet
*****                                 ^ not supported yet
*****                                        ^ not supported yet
  554          Background := CommUtil.Colors.MacroBack;
*****          ^ undeclared identifier
*****                        ^ not supported yet
*****                                 ^ not supported yet
*****                                        ^ not supported yet
  555          FrameFore  := CommUtil.Colors.MacroFrFore;
*****          ^ undeclared identifier
*****                        ^ not supported yet
*****                                 ^ not supported yet
*****                                        ^ not supported yet
  556          FrameBack  := CommUtil.Colors.MacroFrBack;
*****          ^ undeclared identifier
*****                        ^ not supported yet
*****                                 ^ not supported yet
*****                                        ^ not supported yet
  557        END;
*****        ^ not supported yet
  558        Win := Window.Open(Def);
*****        ^ undeclared identifier
*****               ^ not supported yet
*****                      ^ not supported yet
*****                           ^ undeclared identifier
  559        Window.SetTitle(Win,'Macros',Window.LeftUpperTitle);
*****        ^ not supported yet
*****               ^ not supported yet
*****                        ^ undeclared identifier
*****                            ^ not supported yet
*****                                     ^ not supported yet
*****                                            ^ not supported yet
  560        FOR i:=0 TO 9 DO
*****            ^ undeclared identifier
  561          Highlight(i,FALSE);
*****          ^ undeclared identifier
*****                    ^ undeclared identifier
*****                           ^ not supported yet
  562        END;
  563        EditMacros;
*****        ^ undeclared identifier
  564        Window.Close(Win);
*****        ^ not supported yet
*****               ^ not supported yet
*****                     ^ undeclared identifier
  565      END ChangeMacro;
*****          ^ not supported yet
  566  
  567  (*........................................*)
  568  
  569    PROCEDURE ChangeEmulation(MenuX,MenuY:CARDINAL);
  570      BEGIN
  571        WITH Setup DO
*****             ^ undeclared identifier
  572          CASE Emulation OF
*****               ^ undeclared identifier
  573            Term.EmVT100  : Emulation := Term.EmVT52;
*****            ^ undeclared identifier
*****                 ^ not supported yet
*****                            ^ undeclared identifier
*****                                         ^ undeclared identifier
*****                                              ^ not supported yet
  574                            SMenu.Option[5].Name := ' E - Emulating  VT52  ';    |
*****                            ^ not supported yet
*****                                  ^ not supported yet
*****                                          ^ not supported yet
*****                                            ^ not supported yet
*****                                                    ^ not supported yet
  575            Term.EmVT52   : Emulation := Term.EmANSI;
*****            ^ undeclared identifier
*****                 ^ not supported yet
*****                            ^ undeclared identifier
*****                                         ^ undeclared identifier
*****                                              ^ not supported yet
  576                            SMenu.Option[5].Name := ' E - Emulating  ANSI  ';    |
*****                            ^ not supported yet
*****                                  ^ not supported yet
*****                                          ^ not supported yet
*****                                            ^ not supported yet
*****                                                    ^ not supported yet
  577            Term.EmANSI   : Emulation := Term.EmVT100;
*****            ^ undeclared identifier
*****                 ^ not supported yet
*****                            ^ undeclared identifier
*****                                         ^ undeclared identifier
*****                                              ^ not supported yet
  578                            SMenu.Option[5].Name := ' E - Emulating VT100  ';    |
*****                            ^ not supported yet
*****                                  ^ not supported yet
*****                                          ^ not supported yet
*****                                            ^ not supported yet
*****                                                    ^ not supported yet
  579          END;
  580        END;
*****        ^ not supported yet
  581      END ChangeEmulation;
*****          ^ not supported yet
  582  
  583  (*........................................*)
  584  
  585    PROCEDURE SaveSetup;
  586      VAR
  587        f                : FIO.File;
*****                               ^ not supported yet
  588      BEGIN
  589        f := FIO.Create('TERM.CFG');
*****        ^ not supported yet
*****             ^ not supported yet
*****                 ^ not supported yet
*****                        ^ not supported yet
  590        FIO.WrBin(f,Setup,SIZE(SetupRec));
*****        ^ not supported yet
*****            ^ not supported yet
*****                  ^ not supported yet
*****                    ^ undeclared identifier
*****                          ^ undeclared identifier
*****                               ^ undeclared identifier
  591        FIO.Close(f);
*****        ^ not supported yet
*****            ^ not supported yet
*****                  ^ not supported yet
  592      END SaveSetup;
*****          ^ not supported yet
  593  
  594  (*........................................*)
  595  
  596    PROCEDURE ChangeSetup;
  597      VAR
  598        Result            : INTEGER;
  599      BEGIN
  600        OldEmulation := Setup.Emulation;
*****        ^ not supported yet
*****                        ^ undeclared identifier
*****                              ^ not supported yet
  601        MenuLib.InitMenu(SMenu,'Setup',1,1,21);
*****        ^ not supported yet
*****                ^ not supported yet
*****                         ^ not supported yet
*****                               ^ not supported yet
*****                                             ^ not supported yet
  602        SMenu.ExitOnChar := TRUE;
*****        ^ not supported yet
*****              ^ not supported yet
  603        SMenu.EscapeOK := TRUE;
*****        ^ not supported yet
*****              ^ not supported yet
  604        MenuLib.AddOption(SMenu,' C - Comms Setup     ');
*****        ^ not supported yet
*****                ^ not supported yet
*****                          ^ not supported yet
*****                                ^ not supported yet
  605        MenuLib.AddOption(SMenu,' G - General Setup   ');
*****        ^ not supported yet
*****                ^ not supported yet
*****                          ^ not supported yet
*****                                ^ not supported yet
  606        MenuLib.AddOption(SMenu,' K - Kermit Setup    ');
*****        ^ not supported yet
*****                ^ not supported yet
*****                          ^ not supported yet
*****                                ^ not supported yet
  607        MenuLib.AddOption(SMenu,' A - ASCII Setup     ');
*****        ^ not supported yet
*****                ^ not supported yet
*****                          ^ not supported yet
*****                                ^ not supported yet
  608        MenuLib.AddOption(SMenu,' M - Edit Macros     ');
*****        ^ not supported yet
*****                ^ not supported yet
*****                          ^ not supported yet
*****                                ^ not supported yet
  609        CASE Setup.Emulation OF
*****             ^ undeclared identifier
*****                   ^ not supported yet
  610          Term.EmVT100    : MenuLib.AddOption(SMenu,' E - Emulating VT100  ');   |
*****          ^ undeclared identifier
*****               ^ not supported yet
*****                            ^ not supported yet
*****                                    ^ not supported yet
*****                                              ^ not supported yet
*****                                                    ^ not supported yet
  611          Term.EmVT52     : MenuLib.AddOption(SMenu,' E - Emulating  VT52  ');   |
*****          ^ undeclared identifier
*****               ^ not supported yet
*****                            ^ not supported yet
*****                                    ^ not supported yet
*****                                              ^ not supported yet
*****                                                    ^ not supported yet
  612          Term.EmANSI     : MenuLib.AddOption(SMenu,' E - Emulating  ANSI  ');   |
*****          ^ undeclared identifier
*****               ^ not supported yet
*****                            ^ not supported yet
*****                                    ^ not supported yet
*****                                              ^ not supported yet
*****                                                    ^ not supported yet
  613        END;
  614        MenuLib.AddOption(SMenu,' S - Save Setup      ');
*****        ^ not supported yet
*****                ^ not supported yet
*****                          ^ not supported yet
*****                                ^ not supported yet
  615        MenuLib.DispMenu(SMenu);
*****        ^ not supported yet
*****                ^ not supported yet
*****                         ^ not supported yet
  616        LOOP
  617          Result := MenuLib.MenuDrive(SMenu);
*****                    ^ not supported yet
*****                            ^ not supported yet
*****                                      ^ not supported yet
  618          CASE Result OF
  619            -1            : EXIT;                                           |
  620            0             : ModemSetup(2,3);                                |
*****                            ^ not supported yet
*****                                          ^ not supported yet
  621            1             : GeneralSetup(2,4);                              |
*****                            ^ not supported yet
*****                                            ^ not supported yet
  622            2             : KermitSetup(2,5);                               |
*****                            ^ not supported yet
*****                                           ^ not supported yet
  623            3             : AsciiSetup(2,6);                                |
*****                            ^ not supported yet
*****                                          ^ not supported yet
  624            4             : ChangeMacro(2,7);                               |
*****                            ^ not supported yet
*****                                           ^ not supported yet
  625            5             : ChangeEmulation(2,8);                           |
*****                            ^ not supported yet
*****                                               ^ not supported yet
  626            6             : SaveSetup;                                      |
*****                            ^ not supported yet
  627          END;
  628        END;
  629        MenuLib.KillMenu(SMenu);
*****        ^ not supported yet
*****                ^ not supported yet
*****                         ^ not supported yet
  630        IF Setup.Emulation<>OldEmulation THEN
*****           ^ undeclared identifier
*****                 ^ not supported yet
*****                            ^ not supported yet
  631          CASE Setup.Emulation OF
*****               ^ undeclared identifier
*****                     ^ not supported yet
  632            Term.EmVT100  : Term.EmulateVT100;                              |
*****            ^ undeclared identifier
*****                 ^ not supported yet
*****                            ^ undeclared identifier
*****                                 ^ not supported yet
  633            Term.EmVT52   : Term.EmulateVT52;                               |
*****            ^ undeclared identifier
*****                 ^ not supported yet
*****                            ^ undeclared identifier
*****                                 ^ not supported yet
  634            Term.EmANSI   : Term.EmulateANSI;                               |
*****            ^ undeclared identifier
*****                 ^ not supported yet
*****                            ^ undeclared identifier
*****                                 ^ not supported yet
  635          END;
  636        END;
  637      END ChangeSetup;
*****          ^ not supported yet
  638  
  639  (*........................................*)
  640  
  641    BEGIN
  642      BoolStr[TRUE]  := 'YES';
*****      ^ not supported yet
*****                  ^ not supported yet
*****                        ^ not supported yet
  643      BoolStr[FALSE] :=  'NO';
*****      ^ not supported yet
*****                   ^ not supported yet
*****                         ^ not supported yet
  644    END ComSetup.
*****        ^ not supported yet
  645  

 1076 errors