Topspeed_JPI/TS-V3/REP16/LISTWRIT.LST

Listing:

    1  IMPLEMENTATION MODULE ListWrite;
    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/listwrit.mov   1.5   10 Mar 1991 15:29:04   coleb  $
   12   *
   13   *)
   14  
   15  
   16  IMPORT Editor;
   17  IMPORT GenLists;
   18  IMPORT Numbers;
   19  IMPORT ScrnTypes;
   20  IMPORT StrConv;
   21  IMPORT SYSTEM;
   22  IMPORT WindowPrims;
   23  
   24  VAR
   25    Initialized : BOOLEAN;
   26  
   27    PROCEDURE Init();
   28      BEGIN
   29        IF Initialized THEN
   30          RETURN;
   31        ELSE
   32          Initialized := TRUE;
   33        END;
   34        Editor.Init();
*****        ^ not supported yet
*****               ^ not supported yet
*****                    ^ not supported yet
   35        GenLists.Init();
*****        ^ not supported yet
*****                 ^ not supported yet
*****                      ^ not supported yet
   36        Numbers.Init();
*****        ^ not supported yet
*****                ^ not supported yet
*****                     ^ not supported yet
   37        ScrnTypes.Init();
*****        ^ not supported yet
*****                  ^ not supported yet
*****                       ^ not supported yet
   38        StrConv.Init();
*****        ^ not supported yet
*****                ^ not supported yet
*****                     ^ not supported yet
   39        WindowPrims.Init();
*****        ^ not supported yet
*****                    ^ not supported yet
*****                         ^ not supported yet
   40      END Init;
*****          ^ not supported yet
   41  
   42  
   43    PROCEDURE ShowList(TheList : GenLists.GenList);
*****                                          ^ not supported yet
   44      CONST
   45        col1 = 40;
   46        row1 = 2;
   47      VAR
   48        SavedScreen : WindowPrims.ScreenType;
*****                                  ^ not supported yet
   49        LineSize, dumtype, maxlength, BottomEdRow, TextRow1, CursorCol,
   50          CursorRow : CARDINAL;
   51        dumint : INTEGER;
   52        dumadr : SYSTEM.ADDRESS;
*****                        ^ not supported yet
   53        TmpList : GenLists.GenList;
*****                           ^ not supported yet
   54        ChangeMade, OldDoCounting : BOOLEAN;
   55        DummyFrame: ScrnTypes.DisplayFrame;
*****                              ^ not supported yet
   56  
   57      BEGIN
   58        DummyFrame := NIL;
*****        ^ not supported yet
   59        OldDoCounting := Editor.DoCounting;
*****                         ^ not supported yet
*****                                ^ not supported yet
   60        Editor.DoCounting := FALSE;
*****        ^ not supported yet
*****               ^ not supported yet
   61        maxlength := 10;
   62        BottomEdRow := 1;
   63        WHILE BottomEdRow<=GenLists.ListLength(TheList) DO
*****                           ^ not supported yet
*****                                    ^ not supported yet
*****                                               ^ not supported yet
   64          GenLists.GetElmtAdr(TheList, BottomEdRow, dumadr, LineSize, dumtype);
*****          ^ not supported yet
*****                   ^ not supported yet
*****                              ^ not supported yet
*****                                                    ^ not supported yet
*****                                                                             ^ not supported yet
   65          IF LineSize>maxlength THEN
   66            maxlength := LineSize;
   67          END;
   68          INC(BottomEdRow);
*****          ^ undeclared identifier
*****                         ^ not supported yet
   69        END;
   70        BottomEdRow := Numbers.Between(5,BottomEdRow,15);
*****                       ^ not supported yet
*****                               ^ not supported yet
*****                                                       ^ not supported yet
   71        maxlength := Numbers.Between(10,maxlength,35);
*****                     ^ not supported yet
*****                             ^ not supported yet
*****                                                    ^ not supported yet
   72        WindowPrims.ScreenSave(SavedScreen, col1, row1, maxlength+col1, BottomEdRow+
*****        ^ not supported yet
*****                    ^ not supported yet
*****                               ^ not supported yet
   73            row1);
*****                ^ not supported yet
   74        GenLists.CopyList(TheList, TmpList);
*****        ^ not supported yet
*****                 ^ not supported yet
*****                          ^ not supported yet
*****                                   ^ not supported yet
   75        TextRow1 := 1;
   76        CursorCol := 1;
   77        CursorRow := 1;
   78        dumint := Editor.ScrnEdit(col1,row1,maxlength,BottomEdRow,TmpList,
*****                  ^ not supported yet
*****                         ^ not supported yet
*****                                                                  ^ not supported yet
   79            TextRow1,CursorCol,CursorRow, ChangeMade, TRUE,
   80            DummyFrame);
*****            ^ not supported yet
   81        GenLists.DisposeList(TmpList);
*****        ^ not supported yet
*****                 ^ not supported yet
*****                             ^ not supported yet
   82        WindowPrims.ScreenRestore(SavedScreen, col1, row1);
*****        ^ not supported yet
*****                    ^ not supported yet
*****                                  ^ not supported yet
*****                                                         ^ not supported yet
   83        Editor.DoCounting := OldDoCounting;
*****        ^ not supported yet
*****               ^ not supported yet
   84      END ShowList;
*****          ^ not supported yet
   85  
   86  BEGIN
   87    Initialized := FALSE;
   88    Init();
*****    ^ not supported yet
*****         ^ not supported yet
   89  END ListWrite.
*****      ^ not supported yet

   70 errors