home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / DATAREP.ZIP / SHOWVALS.INC < prev    next >
Encoding:
Text File  |  1990-02-22  |  2.9 KB  |  90 lines
  1. PROCEDURE Showvals; 
  2.    VAR Input_char: CHAR;
  3.        Quit: BOOLEAN;
  4.        Stim: STIMULUS;
  5.        Stimulus_set: CHAR;
  6.        Stimulus_number: INTEGER;
  7.   
  8.    PROCEDURE Write_box;
  9.        BEGIN
  10.        Clear_box;
  11.        WRITELN ('Threshold       : ', Threshold: 8);
  12.        WRITE   ('Current Stimulus: ');
  13.        WRITELN (Stimulus_set:2, Stimulus_number:3);
  14.        END;
  15.  
  16.    PROCEDURE Showvals_initialize;
  17.        BEGIN
  18.        Quit:= FALSE;
  19.        Save_cursor;  
  20.        Stim := F_set [1];   
  21.        Stimulus_number := 1;  
  22.        Stimulus_set := 'F';
  23.        Write_box;
  24.        END;
  25.  
  26.    PROCEDURE Display_stimulus;
  27.     VAR I, Row_nr, Elements_per_line: INTEGER;
  28.         Stim_interpretation: String;
  29.     BEGIN
  30.         Interpret (Threshold, Stim.Val, Stim_Interpretation);
  31.         Write_box;
  32.     WRITELN ('            Name: ', Stim.Name);
  33.         WRITELN ('  Interpretation: ', Stim_interpretation);
  34.         Clear_block; Scroll_block;
  35.     Elements_per_line := 8;    {Single byte. Number of elements in a line.}
  36.     FOR I:= 1 TO Dimensionality DO 
  37.                 BEGIN
  38.                 IF (I MOD Elements_per_line = 1) THEN
  39.                          BEGIN
  40.                          Row_nr:= 1 + I DIV Elements_per_line;
  41.                          WRITE ( I:4);
  42.                          WRITE (' ',Stim_interpretation [Row_nr], '  '); 
  43.                          END;
  44.                 WRITE (Stim.Val [I]:8);
  45.                 IF (I MOD Elements_per_line = 0) 
  46.                    THEN BEGIN WRITE ( I:4); WRITELN  END;
  47.                 END;
  48.     END;
  49.  
  50.      PROCEDURE Choose_stimulus;
  51.         BEGIN
  52.         Write_box;
  53.         REPEAT
  54.           WRITE   ('New Stimulus    : ');
  55.           READLN  (Stimulus_set, Stimulus_number);
  56.         UNTIL ((Stimulus_set IN ['f','F','g','G','t','T'])
  57.           AND (Stimulus_number IN [1..Maximum_set_size]) );
  58.         Write_box;
  59.         CASE Stimulus_set OF
  60.              'F','f': Stim:= F_set [Stimulus_number];
  61.              'G','g': Stim:= G_set [Stimulus_number];
  62.              'T','t': Stim:= T_set [Stimulus_number];
  63.              END;
  64.         END; 
  65.  
  66.      PROCEDURE Choose_action;
  67.          BEGIN
  68.          Bottom_line;
  69.          IF FG_mode THEN WRITE ('FG') ELSE WRITE ('TF');
  70.    WRITE ( ' Shows Values. C)hoose. D)ispl. L)ist. M)ode. Q)uit. T)hresh. > ');
  71.          READLN (Input_char);
  72.          CASE Input_char OF 
  73.               'C','c': Choose_stimulus;
  74.               'D','d': Display_stimulus;
  75.               'L','l': List_test_set;
  76.               'M','m': FG_mode:= NOT FG_mode;
  77.               'Q','q': Quit:= TRUE;
  78.               'T','t': BEGIN 
  79.                        Bottom_line;
  80.                        WRITE ('New Threshold: '); READLN (Threshold);
  81.                        Write_box END;
  82.               END; 
  83.          END;
  84.  
  85. BEGIN {Procedure Showvals.}
  86. Showvals_initialize;
  87. REPEAT Choose_action UNTIL Quit;
  88. Restore_cursor;
  89. END;  {Procedure Showvals.} 
  90.