Topspeed_JPI/TS-V3/REP16/KEY.LST

Listing:

    1  IMPLEMENTATION MODULE Key;
    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/key.mov   1.5   10 Mar 1991 15:29:00   coleb  $
   12   *
   13   *)
   14  
   15  VAR
   16    Initialized : BOOLEAN;
   17  
   18    PROCEDURE Init();
   19      BEGIN
   20        IF Initialized THEN
   21          RETURN;
   22        ELSE
   23          Initialized := TRUE;
   24        END;
   25      END Init;
*****          ^ not supported yet
   26  
   27  BEGIN
   28    Initialized := FALSE;
   29    Init();
*****    ^ not supported yet
*****         ^ not supported yet
   30  END Key.
*****      ^ not supported yet

    4 errors