Topspeed_JPI/TS-V3/MODBASE/SPKR.LST

Listing:

    1  IMPLEMENTATION MODULE Spkr;
    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/spkr.mov   1.5   10 Mar 1991 15:32:56   coleb  $
   12   *
   13   *)
   14  
   15  
   16  IMPORT FAPI;
   17  
   18  IMPORT ErrorManager;
   19  
   20  VAR
   21    Initialized : BOOLEAN;
   22  
   23    PROCEDURE Init();
   24      BEGIN
   25        IF Initialized THEN
   26          RETURN;
   27        ELSE
   28          Initialized := TRUE;
   29        END;
   30        ErrorManager.Init();
*****        ^ not supported yet
*****                     ^ not supported yet
*****                          ^ not supported yet
   31      END Init;
*****          ^ not supported yet
   32  
   33  
   34    PROCEDURE Calibrate();
   35      BEGIN
   36      END Calibrate;
*****          ^ not supported yet
   37  
   38  
   39    PROCEDURE Delay(pause : CARDINAL);
   40      BEGIN
   41        IF 0 # FAPI.DOSSLEEP( VAL(LONGINT, pause) ) THEN
*****               ^ not supported yet
*****                    ^ not supported yet
*****                              ^ undeclared identifier
*****                                                ^ not supported yet
   42        END;
   43      END Delay;
*****          ^ not supported yet
   44  
   45  
   46    PROCEDURE StartNoise(infreq : CARDINAL);
   47      BEGIN
   48        ErrorManager.WARN("Spkr.StartNoise not implimented");
*****        ^ not supported yet
*****                     ^ not supported yet
*****                          ^ not supported yet
   49      END StartNoise;
*****          ^ not supported yet
   50  
   51    PROCEDURE StopNoise();
   52      BEGIN
   53        ErrorManager.WARN("Spkr.StopNoise not implimented");
*****        ^ not supported yet
*****                     ^ not supported yet
*****                          ^ not supported yet
   54      END StopNoise;
*****          ^ not supported yet
   55  
   56    PROCEDURE TimedNoise(thefreq, thetime : CARDINAL);
   57      BEGIN
   58        IF 0 # FAPI.DOSBEEP( thefreq, thetime ) THEN
*****               ^ not supported yet
*****                    ^ not supported yet
*****                                              ^ not supported yet
   59        END;
   60      END TimedNoise;
*****          ^ not supported yet
   61  
   62    PROCEDURE Noise(kind : SoundTypes; pitch : SoundLevels; duration :
*****                           ^ undeclared identifier
*****                                               ^ undeclared identifier
   63          SoundTimes);
*****          ^ undeclared identifier
   64      VAR
   65        i, dur, p1, d1 : CARDINAL;
   66      BEGIN
   67        (*noise*)
   68        CASE pitch OF
*****             ^ not supported yet
   69          Low :
*****          ^ undeclared identifier
   70          p1 := 100;
   71        | Normal :
*****          ^ undeclared identifier
   72          p1 := 440;
   73        | High :
*****          ^ undeclared identifier
   74          p1 := 1100;
   75        | RealHigh :
*****          ^ undeclared identifier
   76          p1 := 1800;
   77        END;
   78        CASE duration OF
*****             ^ not supported yet
   79          Short :
*****          ^ undeclared identifier
   80          d1 := 10;
   81        | Medium :
*****          ^ undeclared identifier
   82          d1 := 30;
   83        | Long :
*****          ^ undeclared identifier
   84          d1 := 60;
   85        END;
   86        IF kind=Beep THEN
*****           ^ not supported yet
*****                ^ undeclared identifier
   87          TimedNoise(p1, d1);
*****          ^ not supported yet
*****                           ^ not supported yet
   88        ELSE
   89          dur := d1 DIV 2;
   90          FOR i := 1 TO 2 DO
   91            TimedNoise(p1+500, dur);
*****            ^ not supported yet
*****                                  ^ not supported yet
   92            TimedNoise(p1, dur);
*****            ^ not supported yet
*****                              ^ not supported yet
   93          END;
   94        END;
   95      END Noise;
*****          ^ not supported yet
   96  
   97  
   98  BEGIN
   99    Initialized := FALSE;
  100    Init();
*****    ^ not supported yet
*****         ^ not supported yet
  101  END Spkr.
*****      ^ not supported yet

   46 errors