Topspeed_JPI/TS-V3/MODBASE/INVTRY.LST

Listing:

    1  IMPLEMENTATION MODULE Invtry;
    2  (*
    3   *  ModBase
    4   *  Release 3.0
    5   *  (c) Copyright 1986 - 1991 PMI
    6   *  P.O. Box 8402
    7   *  Green Bay Wi 53308
    8   *  All Rights Reserved
    9   *  by Ed Ross  
   10   *)
   11  
   12  
   13  FROM ModBase3 IMPORT UpdateDBFile,WriteDBRec,DeleteRecord,ReadDBRec,
   14       AppendBlank;
   15  FROM DBIndxes IMPORT  CurrentRec;
   16  FROM PMIGlobals IMPORT PMIScreens;
   17  FROM DBStuff IMPORT MakeKey;
   18  FROM FrameManager IMPORT EraseFrame;
   19  FROM Scrn2DBF IMPORT FrameToDBF, DBFToFrame;
   20  FROM PosUtils IMPORT Equal;
   21  FROM ScrnUtl2 IMPORT CloseDisplayFrame;
   22  FROM StrEdit IMPORT CrunchBlanks,DeleteRightJustified,CAPstr,AssignStr;
   23  FROM M2Strings IMPORT Length;
   24  FROM StrConv IMPORT StrToReal;
   25  FROM LowLevel IMPORT Fill;
   26  FROM StringIO IMPORT PrintMessage,WriteStr,WriteEol,outp;
   27  (* these next two are from stonybrook - the pmi version doesn't work*)
   28  FROM EnvironUtils IMPORT ReadEnvironment;
   29  FROM SmartScreen IMPORT ClearScreen;
   30  FROM VWindows IMPORT ClearPart, CurrentWindow, SetCursorHeight;
   31  FROM ScrnTypes IMPORT DisplayFrame,InitDisplayFrame,AFrameName,
   32        ContinueInput,CancelInput,SubmitInput;
   33  FROM FramePainter IMPORT ShowDisplayFrame;
   34  FROM InputManager IMPORT ControlFrame;
   35  FROM Prompts IMPORT Prompt,PromptStr,PromptYN;
   36  FROM SYSTEM IMPORT ADR,SIZE;
   37  FROM ControlUtils IMPORT ControlSeparately, LoadFrameList,Control,ReadInput;
   38  FROM DspFiles IMPORT ReadDisplayFrame;
   39  FROM HandleIO IMPORT FileExists;
   40  FROM LowLevel IMPORT Fill;
*****       ^ duplicate identifier
*****                       ^ duplicate identifier
   41  FROM GenLists IMPORT GenList, NewList,ListLength,GetElmt,DisposeList;
   42  FROM ScrnTypes IMPORT AFrameName, InitDisplayFrame,DisplayFile;
*****       ^ duplicate identifier
*****                        ^ duplicate identifier
*****                                    ^ duplicate identifier
   43  FROM DBFInvtry IMPORT InvtryDBF, OpenInvtryDBF,
   44       CloseInvtryDBF,FixInvRec,InvtryRec,MoveInvtryToDBF,MoveInvtryFromDBF,
   45       FindInvtryByInvcode, FindInvtryByOrderfrm, NextInvtry,
   46       PrevInvtry,FirstInvtry,LastInvtry,InvcodeIdx;
   47  IMPORT InitCompilerMods;
   48  FROM NumTypes IMPORT Real8;
   49  FROM UOpsExt IMPORT Lookup,LookupProc;
   50  FROM UserOps IMPORT AKeyHandler,TheKeyHandler;
   51  IMPORT Key;
   52  
   53  VAR
   54   Status : INTEGER;
   55   Environ : ARRAY [0..60] OF CHAR;
*****                       ^ not supported yet
*****                              ^ not supported yet
   56   J : CARDINAL;
   57   TopMenu : GenList;
   58   FirstTime: BOOLEAN;
   59   NextFrame,EndingFrame : AFrameName;
   60   SelChar    : CHAR;
   61   NoData     : BOOLEAN;    (* true when no data is on the screen *)
   62   InvtryDF : DisplayFrame;
   63   PullDnMenu  : GenList;
   64   CurrentDF  : DisplayFrame;   (* used with lookup *)
   65   LookUpOk   : BOOLEAN;
   66   InitInvtry : BOOLEAN;
   67  
   68  
   69  
   70  
   71  PROCEDURE LookUpInvty(VAR Key : ARRAY OF CHAR);
*****                                           ^ not supported yet
   72  (* this routine will be called to lookup the database item
   73     and fill in the blanks *)
   74  VAR
   75    Inv : InvtryRec;
   76    CKey : ARRAY[0..10] OF CHAR;
*****                    ^ not supported yet
*****                           ^ not supported yet
   77    B    : BOOLEAN;
   78  BEGIN
   79    CAPstr(Key);
*****    ^ not supported yet
*****           ^ not supported yet
   80    AssignStr(Key,CKey);
*****    ^ not supported yet
*****              ^ not supported yet
*****                  ^ not supported yet
   81    MakeKey(CKey);
*****    ^ not supported yet
*****            ^ not supported yet
   82    IF NOT FindInvtryByInvcode(CKey)
*****           ^ not supported yet
*****                               ^ not supported yet
   83      THEN
   84        GeneralInventory(CKey)
*****        ^ undeclared identifier
*****                         ^ not supported yet
   85      END;
   86    AssignStr(Key,CKey);
*****    ^ not supported yet
*****              ^ not supported yet
*****                  ^ not supported yet
   87    LookUpOk := TRUE;
   88  
   89    DBFToFrame(InvtryDBF,CurrentDF);  (* fill in the frame and update*)
*****    ^ not supported yet
*****               ^ not supported yet
*****                         ^ not supported yet
   90    ShowDisplayFrame(CurrentDF,0,0,0,0);
*****    ^ not supported yet
*****                     ^ not supported yet
*****                                      ^ not supported yet
   91  END LookUpInvty;
*****      ^ not supported yet
   92  
   93  PROCEDURE UpdateInvQuant(InvtryNbr : ARRAY OF CHAR; ChangeAmt: Real8);
*****                                                ^ not supported yet
   94  (* add the change amount to the on hand amount.  The change amount could
   95     be positive or negative *)
   96  
   97  END UpdateInvQuant;
*****      ^ not supported yet
   98  
   99  
  100  
  101  PROCEDURE AddInvBatch();
  102  (* take the value from the screen and add to the inventory record*)
  103  (* used when new orders come in *)
  104  VAR
  105    OldLookup : Lookup;
  106    FrameName : AFrameName;
  107    AddStr    : ARRAY[0..10] OF CHAR;
*****                         ^ not supported yet
*****                                ^ not supported yet
  108    AddAmt    : Real8;
  109    B : BOOLEAN;
  110    InvRec : InvtryRec;
  111  BEGIN
  112    OldLookup := LookupProc;  (* save old lookup proc *)
*****    ^ not supported yet
*****                 ^ not supported yet
  113    LookupProc :=LookUpInvty;
*****    ^ not supported yet
*****                 ^ not supported yet
  114    InitDisplayFrame(CurrentDF,CurrentWindow);
*****    ^ not supported yet
*****                     ^ not supported yet
*****                               ^ not supported yet
  115    REPEAT
  116      ReadDisplayFrame(PMIScreens,CurrentDF,'InvAdd');
*****      ^ not supported yet
*****                       ^ not supported yet
*****                                  ^ not supported yet
*****                                            ^ not supported yet
  117      ShowDisplayFrame(CurrentDF,0,0,0,0);
*****      ^ not supported yet
*****                       ^ not supported yet
*****                                        ^ not supported yet
  118      ControlFrame(CurrentDF,0,'',FALSE,FrameName);
*****      ^ not supported yet
*****                   ^ not supported yet
*****                                        ^ not supported yet
  119      IF NOT LookUpOk
  120        THEN
  121          Prompt('Item not found ');
*****          ^ not supported yet
*****                 ^ not supported yet
  122        ELSE
  123           ReadInput(CurrentDF,AddStr,'AddAmt');
*****           ^ not supported yet
*****                     ^ not supported yet
*****                               ^ not supported yet
*****                                      ^ not supported yet
  124  	 B := StrToReal(AddStr,0,AddAmt);
*****  	      ^ not supported yet
*****  	                ^ not supported yet
*****  	                         ^ not supported yet
  125           B := FrameToDBF(InvtryDBF,CurrentDF);
*****                ^ not supported yet
*****                           ^ not supported yet
*****                                     ^ not supported yet
  126  	 MoveInvtryFromDBF(InvRec);
*****  	 ^ not supported yet
*****  	                   ^ not supported yet
  127  	 InvRec.ONHAND := InvRec.ONHAND + AddAmt;
*****  	 ^ not supported yet
*****  	        ^ not supported yet
*****  	                  ^ not supported yet
*****  	                         ^ not supported yet
*****  	                                  ^ not supported yet
  128  	 InvRec.ONORDER := 'N';
*****  	 ^ not supported yet
*****  	        ^ not supported yet
  129  	 MoveInvtryToDBF(InvRec);
*****  	 ^ not supported yet
*****  	                 ^ not supported yet
  130           WriteDBRec(InvtryDBF);
*****           ^ not supported yet
*****                      ^ not supported yet
  131       END;	
  132     UNTIL NOT Equal(FrameName,'InvAdd');
*****               ^ not supported yet
*****                     ^ not supported yet
*****                               ^ not supported yet
  133     CloseDisplayFrame(CurrentDF);
*****     ^ not supported yet
*****                       ^ not supported yet
  134     LookupProc := OldLookup;
*****     ^ not supported yet
*****                   ^ not supported yet
  135  END AddInvBatch;
*****      ^ not supported yet
  136  
  137  PROCEDURE CtlKeyHandler(FrameRec : DisplayFrame; VAR LastKey : CARDINAL;
  138            VAR NextFrame : AFrameName);
  139  VAR
  140  B : BOOLEAN;
  141  
  142  
  143  BEGIN
  144     NextFrame := ContinueInput;
*****     ^ not supported yet
*****                  ^ not supported yet
  145     CASE LastKey OF
  146       Key.PgUp      : B:= PrevInvtry();
*****       ^ not supported yet
*****           ^ not supported yet
*****                           ^ not supported yet
*****                                      ^ not supported yet
  147      |Key.PgDn     :  B:= NextInvtry();
*****       ^ not supported yet
*****           ^ not supported yet
*****                           ^ not supported yet
*****                                      ^ not supported yet
  148      |Key.CtrlPgDn :  LastInvtry();
*****       ^ not supported yet
*****           ^ not supported yet
*****                       ^ not supported yet
*****                                  ^ not supported yet
  149      |Key.CtrlPgUp :  FirstInvtry();	
*****       ^ not supported yet
*****           ^ not supported yet
*****                       ^ not supported yet
*****                                   ^ not supported yet
  150      |Key.Escape   :  NextFrame := CancelInput;
*****       ^ not supported yet
*****           ^ not supported yet
*****                       ^ not supported yet
*****                                    ^ not supported yet
  151      |Key.Return   :  NextFrame := SubmitInput;
*****       ^ not supported yet
*****           ^ not supported yet
*****                       ^ not supported yet
*****                                    ^ not supported yet
  152      ELSE
  153     END;    	
  154     IF NOT (LastKey = Key.Escape)   (* update the display *)
*****                       ^ not supported yet
*****                           ^ not supported yet
  155       THEN
  156         DBFToFrame(InvtryDBF,FrameRec);
*****         ^ not supported yet
*****                    ^ not supported yet
*****                              ^ not supported yet
  157         ShowDisplayFrame(FrameRec,0,0,0,0);
*****         ^ not supported yet
*****                          ^ not supported yet
*****                                          ^ not supported yet
  158       END;
  159  
  160  END CtlKeyHandler;
*****      ^ not supported yet
  161  
  162  
  163  PROCEDURE GetInvItem( VAR InvItem : InvtryRec): BOOLEAN;
  164  (* this routine controls the problems associated with not finding
  165     the inventory item on a lookup - will allow the user to
  166     go forward, backward in the inventory records till the
  167     correct item is found -
  168     Returns the item in the record
  169     otherwise returns false     *)
  170  VAR
  171     OldKeyHandler : AKeyHandler;
  172     NxtFrame : AFrameName;
  173      B : BOOLEAN;
  174  BEGIN
  175    OldKeyHandler := TheKeyHandler;
*****    ^ not supported yet
*****                     ^ not supported yet
  176    TheKeyHandler := CtlKeyHandler;
*****    ^ not supported yet
*****                     ^ not supported yet
  177    InitDisplayFrame(InvtryDF,CurrentWindow);
*****    ^ not supported yet
*****                     ^ not supported yet
*****                              ^ not supported yet
  178    ReadDisplayFrame(PMIScreens,InvtryDF,'InvSearch');
*****    ^ not supported yet
*****                     ^ not supported yet
*****                                ^ not supported yet
*****                                         ^ not supported yet
  179    ReadDBRec(InvtryDBF,CurrentRec(InvcodeIdx)); (* get closest rec*)
*****    ^ not supported yet
*****              ^ not supported yet
*****                        ^ not supported yet
*****                                   ^ not supported yet
  180    DBFToFrame(InvtryDBF,InvtryDF);
*****    ^ not supported yet
*****               ^ not supported yet
*****                         ^ not supported yet
  181    ShowDisplayFrame(InvtryDF,0,0,0,0);
*****    ^ not supported yet
*****                     ^ not supported yet
*****                                     ^ not supported yet
  182    ControlFrame(InvtryDF,1,'',TRUE,NxtFrame);
*****    ^ not supported yet
*****                 ^ not supported yet
*****                                    ^ not supported yet
  183  
  184  
  185    TheKeyHandler := OldKeyHandler;
*****    ^ not supported yet
*****                     ^ not supported yet
  186    B := Equal('SUBMIT',NxtFrame);
*****         ^ not supported yet
*****               ^ not supported yet
*****                        ^ not supported yet
  187    CloseDisplayFrame(InvtryDF);
*****    ^ not supported yet
*****                      ^ not supported yet
  188    IF B
  189      THEN
  190        MoveInvtryFromDBF(InvItem);
*****        ^ not supported yet
*****                          ^ not supported yet
  191        RETURN TRUE;
  192      ELSE
  193        RETURN FALSE;
  194    END;
  195  END GetInvItem;
*****      ^ not supported yet
  196  
  197  
  198  PROCEDURE UpdateInvBatch();
  199   (* this routine will update the inventory items in a batch mode*)
  200   (* until the user hits esc key*)
  201  VAR
  202    OldLookup : Lookup;
  203    FrameName : AFrameName;
  204    B : BOOLEAN;
  205  BEGIN
  206    OldLookup := LookupProc;  (* save old lookup proc *)
*****    ^ not supported yet
*****                 ^ not supported yet
  207    LookupProc :=           LookUpInvty;
*****    ^ not supported yet
*****                            ^ not supported yet
  208    InitDisplayFrame(CurrentDF,CurrentWindow);
*****    ^ not supported yet
*****                     ^ not supported yet
*****                               ^ not supported yet
  209    REPEAT
  210      ReadDisplayFrame(PMIScreens,CurrentDF,'InvUpdate');
*****      ^ not supported yet
*****                       ^ not supported yet
*****                                  ^ not supported yet
*****                                            ^ not supported yet
  211      ShowDisplayFrame(CurrentDF,0,0,0,0);
*****      ^ not supported yet
*****                       ^ not supported yet
*****                                        ^ not supported yet
  212      ControlFrame(CurrentDF,0,'',FALSE,FrameName);
*****      ^ not supported yet
*****                   ^ not supported yet
*****                                        ^ not supported yet
  213      IF NOT LookUpOk
  214        THEN
  215          Prompt('Item not found ');
*****          ^ not supported yet
*****                 ^ not supported yet
  216        ELSE
  217           B := FrameToDBF(InvtryDBF,CurrentDF);
*****                ^ not supported yet
*****                           ^ not supported yet
*****                                     ^ not supported yet
  218  	 FixInvRec();
*****  	 ^ not supported yet
*****  	           ^ not supported yet
  219           WriteDBRec(InvtryDBF);
*****           ^ not supported yet
*****                      ^ not supported yet
  220       END;
  221     UNTIL NOT Equal(FrameName,'Update');
*****               ^ not supported yet
*****                     ^ not supported yet
*****                               ^ not supported yet
  222     CloseDisplayFrame(CurrentDF);
*****     ^ not supported yet
*****                       ^ not supported yet
  223     LookupProc := OldLookup;
*****     ^ not supported yet
*****                   ^ not supported yet
  224  END UpdateInvBatch;        	
*****      ^ not supported yet
  225  
  226  PROCEDURE FileMenu(SelChar: CHAR);
  227  VAR
  228   B : BOOLEAN;
  229   Str : ARRAY [0..80] OF CHAR;
*****                   ^ not supported yet
*****                          ^ not supported yet
  230  BEGIN
  231    CASE SelChar OF
  232   'A'  : ReadDisplayFrame(PMIScreens,InvtryDF,'Invtry');  (*Clear out any of the fields *)
*****          ^ not supported yet
*****                           ^ not supported yet
*****                                      ^ not supported yet
*****                                               ^ not supported yet
  233          ShowDisplayFrame(InvtryDF,0,0,0,0);
*****          ^ not supported yet
*****                           ^ not supported yet
*****                                           ^ not supported yet
  234          Control(InvtryDF);		(* alow user input *)
*****          ^ not supported yet
*****                  ^ not supported yet
  235          AppendBlank(InvtryDBF);
*****          ^ not supported yet
*****                      ^ not supported yet
  236  	B := FrameToDBF(InvtryDBF,InvtryDF); (* do something if couldn't add*)
*****  	     ^ not supported yet
*****  	                ^ not supported yet
*****  	                          ^ not supported yet
  237  	FixInvRec();
*****  	^ not supported yet
*****  	          ^ not supported yet
  238  	WriteDBRec(InvtryDBF);
*****  	^ not supported yet
*****  	           ^ not supported yet
  239   |'F' : FirstInvtry();
*****          ^ not supported yet
*****                      ^ not supported yet
  240          DBFToFrame(InvtryDBF,InvtryDF);
*****          ^ not supported yet
*****                     ^ not supported yet
*****                               ^ not supported yet
  241  	ShowDisplayFrame(InvtryDF,0,0,0,0);
*****  	^ not supported yet
*****  	                 ^ not supported yet
*****  	                                 ^ not supported yet
  242   |'L' : LastInvtry();
*****          ^ not supported yet
*****                     ^ not supported yet
  243          DBFToFrame(InvtryDBF,InvtryDF);
*****          ^ not supported yet
*****                     ^ not supported yet
*****                               ^ not supported yet
  244  	ShowDisplayFrame(InvtryDF,0,0,0,0);
*****  	^ not supported yet
*****  	                 ^ not supported yet
*****  	                                 ^ not supported yet
  245  
  246   |'N' : IF NextInvtry()
*****             ^ not supported yet
*****                        ^ not supported yet
  247            THEN
  248              DBFToFrame(InvtryDBF,InvtryDF);
*****              ^ not supported yet
*****                         ^ not supported yet
*****                                   ^ not supported yet
  249    	    ShowDisplayFrame(InvtryDF,0,0,0,0);
*****    	    ^ not supported yet
*****    	                     ^ not supported yet
*****    	                                     ^ not supported yet
  250  	  END;
  251  
  252   |'P' : IF PrevInvtry()
*****             ^ not supported yet
*****                        ^ not supported yet
  253            THEN
  254              DBFToFrame(InvtryDBF,InvtryDF);
*****              ^ not supported yet
*****                         ^ not supported yet
*****                                   ^ not supported yet
  255    	    ShowDisplayFrame(InvtryDF,0,0,0,0);
*****    	    ^ not supported yet
*****    	                     ^ not supported yet
*****    	                                     ^ not supported yet
  256  	  END;
  257  
  258  
  259   |'I' :   (* The first unused letter in the index name  or 'Q'  *)
  260          Fill(ADR(Str),SIZE(Str),0);
*****          ^ not supported yet
*****               ^ not supported yet
*****                   ^ not supported yet
*****                        ^ not supported yet
*****                             ^ not supported yet
*****                                   ^ not supported yet
  261  
  262          PromptStr('Enter Invtry Invcode ',Str);
*****          ^ not supported yet
*****                    ^ not supported yet
*****                                            ^ not supported yet
  263  
  264  
  265          CrunchBlanks(Str);
*****          ^ not supported yet
*****                       ^ not supported yet
  266  	CAPstr(Str);
*****  	^ not supported yet
*****  	       ^ not supported yet
  267          IF NOT FindInvtryByInvcode(Str)
*****                 ^ not supported yet
*****                                     ^ not supported yet
  268  	  THEN
  269  	  END;
  270          DBFToFrame(InvtryDBF,InvtryDF);
*****          ^ not supported yet
*****                     ^ not supported yet
*****                               ^ not supported yet
  271          ShowDisplayFrame(InvtryDF,0,0,0,0);
*****          ^ not supported yet
*****                           ^ not supported yet
*****                                           ^ not supported yet
  272  
  273  
  274   |'O' :   (* The first unused letter in the index name  or 'Q'  *)
  275          Fill(ADR(Str),SIZE(Str),0);
*****          ^ not supported yet
*****               ^ not supported yet
*****                   ^ not supported yet
*****                        ^ not supported yet
*****                             ^ not supported yet
*****                                   ^ not supported yet
  276  
  277          PromptStr('Enter Invtry Orderfrm ',Str);
*****          ^ not supported yet
*****                    ^ not supported yet
*****                                             ^ not supported yet
  278  
  279  
  280          CrunchBlanks(Str);
*****          ^ not supported yet
*****                       ^ not supported yet
  281          IF NOT FindInvtryByOrderfrm(Str)
*****                 ^ not supported yet
*****                                      ^ not supported yet
  282  	  THEN
  283  	   Prompt('Invtry Not Found');
*****  	   ^ not supported yet
*****  	          ^ not supported yet
  284  	 ELSE
  285  	   DBFToFrame(InvtryDBF,InvtryDF);
*****  	   ^ not supported yet
*****  	              ^ not supported yet
*****  	                        ^ not supported yet
  286  	   ShowDisplayFrame(InvtryDF,0,0,0,0);
*****  	   ^ not supported yet
*****  	                    ^ not supported yet
*****  	                                    ^ not supported yet
  287  	 END;
  288    END;  (* end of case  *)
  289  END FileMenu;
*****      ^ not supported yet
  290  
  291  PROCEDURE EditMenu(SelChar : CHAR);
  292  VAR
  293   B : BOOLEAN;
  294   BEGIN
  295     CASE SelChar OF
  296     'U' : Control(InvtryDF);
*****           ^ not supported yet
*****                   ^ not supported yet
  297  	 B := FrameToDBF(InvtryDBF,InvtryDF);
*****  	      ^ not supported yet
*****  	                 ^ not supported yet
*****  	                           ^ not supported yet
  298  	 FixInvRec();
*****  	 ^ not supported yet
*****  	           ^ not supported yet
  299           WriteDBRec(InvtryDBF);
*****           ^ not supported yet
*****                      ^ not supported yet
  300    |'D' : IF PromptYN('About to delete inventory ',InvtryDF)
*****              ^ not supported yet
*****                       ^ not supported yet
*****                                                    ^ not supported yet
  301           THEN
  302             DeleteRecord(InvtryDBF);
*****             ^ not supported yet
*****                          ^ not supported yet
  303             B := NextInvtry();  (* set the index to next - then prev to point to *)
*****                  ^ not supported yet
*****                             ^ not supported yet
  304  	                (* the correct item *)
  305  	
  306             FileMenu('P');  (* display the next customer *)
*****             ^ not supported yet
*****                         ^ not supported yet
  307  	   NoData := TRUE;
  308  	 END;
  309     END;
  310  END EditMenu;
*****      ^ not supported yet
  311  
  312  PROCEDURE Init();
  313  BEGIN
  314    NewList(PullDnMenu);
*****    ^ not supported yet
*****            ^ not supported yet
  315    LoadFrameList(PMIScreens,'InvtryTopMenu',PullDnMenu);
*****    ^ not supported yet
*****                  ^ not supported yet
*****                             ^ not supported yet
*****                                             ^ not supported yet
  316    InitInvtry := TRUE;
  317  END Init;
*****      ^ not supported yet
  318  
  319  PROCEDURE GeneralInventory(VAR InvtyCode : ARRAY OF CHAR);
*****                                                      ^ not supported yet
  320  VAR
  321    Inv : InvtryRec;
  322    B : BOOLEAN;
  323  BEGIN
  324    InitDisplayFrame(InvtryDF,CurrentWindow);
*****    ^ not supported yet
*****                     ^ not supported yet
*****                              ^ not supported yet
  325    ReadDisplayFrame(PMIScreens,InvtryDF,'Invtry');
*****    ^ not supported yet
*****                     ^ not supported yet
*****                                ^ not supported yet
*****                                         ^ not supported yet
  326    MakeKey(InvtyCode);
*****    ^ not supported yet
*****            ^ not supported yet
  327    IF InvtyCode[0] = CHR(0)
*****       ^ not supported yet
*****                  ^ not supported yet
*****                      ^ undeclared identifier
*****                           ^ not supported yet
  328      THEN FirstInvtry();
*****           ^ not supported yet
*****                       ^ not supported yet
  329      ELSE
  330       IF NOT NextInvtry()   (* assume already did a find by number *)
*****              ^ not supported yet
*****                         ^ not supported yet
  331         THEN
  332  	  B := PrevInvtry();
*****  	       ^ not supported yet
*****  	                  ^ not supported yet
  333          END;
  334      END;
  335    DBFToFrame(InvtryDBF,InvtryDF);
*****    ^ not supported yet
*****               ^ not supported yet
*****                         ^ not supported yet
  336    ShowDisplayFrame(InvtryDF,0,0,0,0);
*****    ^ not supported yet
*****                     ^ not supported yet
*****                                     ^ not supported yet
  337    IF NOT InitInvtry
  338      THEN Init();
*****           ^ not supported yet
*****                ^ not supported yet
  339      END;
  340    NoData := TRUE;
  341    REPEAT
  342      NextFrame := 'InvtryTopMenu';
*****      ^ not supported yet
*****                   ^ not supported yet
  343      ControlSeparately(PullDnMenu,NextFrame,SelChar,EndingFrame);
*****      ^ not supported yet
*****                        ^ not supported yet
*****                                   ^ not supported yet
*****                                                     ^ not supported yet
  344      IF Equal(EndingFrame,'InvtryFileMenu')
*****         ^ not supported yet
*****               ^ not supported yet
*****                           ^ not supported yet
  345           THEN FileMenu(SelChar);
*****                ^ not supported yet
*****                                ^ not supported yet
  346      ELSIF Equal(EndingFrame,'InvtEditMenu')
*****            ^ not supported yet
*****                  ^ not supported yet
*****                              ^ not supported yet
  347           THEN EditMenu(SelChar);
*****                ^ not supported yet
*****                                ^ not supported yet
  348      END;
  349  
  350    UNTIL SelChar='X';  (* Assumes  'X' is only used to exit *)
  351    MoveInvtryFromDBF(Inv);
*****    ^ not supported yet
*****                      ^ not supported yet
  352    AssignStr(Inv.INVCODE,InvtyCode);
*****    ^ not supported yet
*****              ^ not supported yet
*****                  ^ not supported yet
*****                          ^ not supported yet
  353    CloseDisplayFrame(InvtryDF);
*****    ^ not supported yet
*****                      ^ not supported yet
  354  
  355  END GeneralInventory;
*****      ^ not supported yet
  356  
  357  
  358  
  359  
  360  PROCEDURE ControlInvtry();
  361   VAR
  362    NextFrame : AFrameName;
  363    Str : ARRAY[0..10] OF CHAR;
*****                   ^ not supported yet
*****                          ^ not supported yet
  364    DF : DisplayFrame;
  365  BEGIN
  366    ClearScreen();
*****    ^ not supported yet
*****                ^ not supported yet
  367    InitDisplayFrame(DF,CurrentWindow);
*****    ^ not supported yet
*****                     ^ not supported yet
*****                        ^ not supported yet
  368  
  369    OpenInvtryDBF(TRUE);
*****    ^ not supported yet
*****                      ^ not supported yet
  370  
  371    REPEAT
  372      ReadDisplayFrame(PMIScreens,DF,'InvtryMain');
*****      ^ not supported yet
*****                       ^ not supported yet
*****                                  ^ not supported yet
*****                                     ^ not supported yet
  373      ControlFrame(DF,1,'',TRUE,NextFrame);
*****      ^ not supported yet
*****                   ^ not supported yet
*****                                ^ not supported yet
  374      IF Equal(NextFrame,'GenInv')
*****         ^ not supported yet
*****               ^ not supported yet
*****                         ^ not supported yet
  375           THEN Str := '';
*****                ^ not supported yet
*****                       ^ incompatible assignment
  376  	      GeneralInventory(Str);
*****  	      ^ not supported yet
*****  	                       ^ not supported yet
  377      ELSIF Equal(NextFrame,'AddInv')
*****            ^ not supported yet
*****                  ^ not supported yet
*****                            ^ not supported yet
  378           THEN AddInvBatch();
*****                ^ not supported yet
*****                            ^ not supported yet
  379      ELSIF Equal(NextFrame,'UpdateInv')
*****            ^ not supported yet
*****                  ^ not supported yet
*****                            ^ not supported yet
  380           THEN UpdateInvBatch();
*****                ^ not supported yet
*****                               ^ not supported yet
  381      END;
  382      ClearScreen();
*****      ^ not supported yet
*****                  ^ not supported yet
  383    UNTIL Equal(NextFrame,'Exit');
*****          ^ not supported yet
*****                ^ not supported yet
*****                          ^ not supported yet
  384  
  385  
  386    CloseDisplayFrame(DF);
*****    ^ not supported yet
*****                      ^ not supported yet
  387  END ControlInvtry;
*****      ^ not supported yet
  388  BEGIN
  389    InitInvtry := FALSE;
  390  END Invtry.
*****      ^ not supported yet

  404 errors