PASCAL-80 Compiler V2.1              EIGHT1.PAS                                 Page: 1


ISIS-II PASCAL-80 Compiler V2.1 invoked by:
>:F0:COMP.COD EIGHT1 


  Line Seg Proc Lev Disp

     1   1    1        1  
     2   1    1        1  {  This program illustrates the use of the errorset procedure  }
     3   1    1        1  
     4   1    1        1  program eight1;
     5   1    1        3  
     6   1    1        3    type value = 0..255;
     7   1    1        3  
     8   1    2        1    procedure rterror;
     9   1    2   0    0      begin
    10   1    2   1    0        writeln;
    11   1    2   1   10        writeln('Detection of Error Number: ',errnumber:0);
    12   1    2   1   70        writeln;
    13   1    2   0   80      end;
    14   1    2   0   94  
    15   1    3        1    procedure square(i: value);
    16   1    3   0    0      begin
    17   1    3   1    0        writeln('Input value: ',i:0);
    18   1    3   1   44        i := i * i;
    19   1    3   1   56        writeln('Squared result: ',i:0);
    20   1    3   1  103        writeln;
    21   1    3   0  113      end;
    22   1    3   0  128  
    23   1    1   0    0    begin
    24   1    1   1    0      errorset(rterror);
    25   1    1   1    6      square(10);
    26   1    1   1   16      square(100);
    27   1    1   1   26      square(200);
    28   1    1   0   38    end.





























PASCAL-80 Compiler V2.1              EIGHT1.PAS                                 Page: 2



Procedure/Function Statistics:


Name        P/F   Seg   Proc   Lev   Param Size   Local Vars   Total Data   Code Size

RTERROR      P      1      2     1         0            0           12          94
SQUARE       P      1      3     1         2            0           14         128
EIGHT1       P      1      1     0         4            0           16          52






Symbol table space remaining : 14320 bytes
28 lines compiled
No errors detected