home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / DATAREP.ZIP / BSBVALS.INC < prev    next >
Encoding:
Text File  |  1990-02-22  |  2.5 KB  |  71 lines
  1. PROCEDURE BSBvals; 
  2.    VAR Stim: STIMULUS;
  3.        Stimulus_set: CHAR;
  4.        Stimulus_number: INTEGER;
  5.   
  6.    PROCEDURE BSBvals_initialization;
  7.        BEGIN
  8.        CASE Test_stimulus_set OF
  9.             'F','f': Stim:= F_set [Test_stimulus_nr];
  10.             'G','g': Stim:= G_set [Test_stimulus_nr];
  11.             'T','t': Stim:= T_set [Test_stimulus_nr];
  12.             END;
  13.        IF NOT Restart THEN Stim.Val:= Inp;
  14.        END;
  15.  
  16.    PROCEDURE Display_stimulus;
  17.     VAR I, Row_nr, Elements_per_line, 
  18.         Unit_nr, Elements_per_unit, Truncated_value: INTEGER;
  19.         Stim_interpretation: String;
  20.         Sign_char, Value_char: CHAR;
  21.     BEGIN
  22.         Interpret (Threshold, Stim.Val, Stim_Interpretation);
  23.         Clear_block; Scroll_block;
  24.     WRITELN ('            Name: ', Stim.Name);
  25.         WRITELN ('  Interpretation: ', Stim_interpretation);
  26.         WRITELN;
  27.         Elements_per_unit :=  8;  {One byte.  Basic reporting unit.}
  28.     Elements_per_line := 24;  {Three bytes. Number of elements in a line.}
  29.     FOR I:= 1 TO Dimensionality DO 
  30.                 BEGIN
  31.                 IF (I MOD Elements_per_unit = 1) THEN
  32.                          BEGIN
  33.                          Unit_nr:= 1 + I DIV Elements_per_unit;
  34.                          WRITE ( I:6);
  35.                          WRITE (' ',Stim_interpretation [Unit_nr], ' '); 
  36.                          END;
  37.  
  38.                 IF Stim.Val [I] > 0 THEN 
  39.                      BEGIN
  40.                      Sign_char := '+';
  41.                      Truncated_value:= TRUNC (10*Stim.Val[I]/Upper_limit);
  42.                      IF Truncated_value >= 10 THEN Value_char:= 'L' ELSE
  43.                                   Value_char:= CHR (48 + Truncated_value);
  44.                      END;
  45.  
  46.                 IF Stim.Val [I] < 0 THEN 
  47.                      BEGIN
  48.                      Sign_char := '-';
  49.                      Truncated_value:= TRUNC (ABS(10*Stim.Val[I]/Lower_limit));
  50.                      IF Truncated_value >= 10 THEN Value_char:= 'L' ELSE
  51.                                   Value_char:= CHR (48 + Truncated_value);
  52.                      END;
  53.  
  54.                 IF Stim.Val [I] = 0 THEN 
  55.                      BEGIN
  56.                      Sign_char := ' ';
  57.                      Value_char:= '0';
  58.                      END;
  59.  
  60.                 WRITE (Sign_char:1, Value_char:1);
  61.                 IF (I MOD Elements_per_line = 0) 
  62.                    THEN BEGIN WRITE ( I:4); WRITELN  END;
  63.                 END;
  64.     END;
  65.  
  66.  
  67. BEGIN {Procedure BSB_vals.}
  68. BSBvals_initialization;
  69. Display_stimulus;
  70. END;  {Procedure BSB_vals.} 
  71.