0  program test0(input, output);
    0  (* to test Wirth's PascalS *)
    0  
    0  type arr = array[1..3, 'a'..'c'] of real;
    0       rec = record i:integer; r:real; ch:char end;
    0  
    0  var  aa:arr;
    0       rr:rec;
    0       i:integer;
    0       v1, v2 :real;
    0  
    0  procedure a;
    0     var v3:real;
    0     procedure b;
    0        var v4:real;
    0     begin (*b*)
    0        v4:=4+v1+v2+v3;   (* check the non local vars *)
   10        write(v1, v2, v3, v4)
   18     end   (*b*);
   18  begin (*a*)
   19     v3:=3;
   23     b
   23  end   (*a*);
   25  
   25  procedure c;
   26     var v5:real;
   26     procedure d;
   26        var v6:real;
   26     begin (*d*)
   26        v6:=6;
   30        a
   30     end   (*d*);
   33  begin (*c*)
   34     v5:=5;
   38     d
   38  end   (*c*);
   40  
   40  function fact(i:integer):integer;
   41  begin if i=0 then fact:=1 else fact:=i*fact(i-1)
   55  end;
   59  
   59  procedure zero(var i:integer);                                  (* var param *)
   60  begin i:=0
   62  end;
   63  
   63  begin (*main*)
   64     v1:=1; v2:=2;
   72     c;
   74     
   74     if v1=v2 then write('=') else write('<>');   (* check code for statements *)
   83     for i:=1 to 3 do
   87        case i of
   89           1: write('one');
   92           2: write('two');
   95           3: write('three')
   97        end;
  106     while v1<v2 do v1:=v1+1;
  117   
  117     write( '3!=', fact(3) );
  123     zero(i);
  126  
  126     aa[1,'a'] := 3.14;                                                (* array *)
  133     rr.i:=7                                                          (* record *)
  135  end.
0identifiers          link  obj  typ  ref  nrm  lev  adr
        29 arr           0    2    5    1    0    1    9
        30 rec          29    2    6    3    0    1    3
        31 i             0    1    1    0    1    2    0
        32 r            31    1    2    0    1    2    1
        33 ch           32    1    4    0    1    2    2
        34 aa           30    1    5    1    1    1    5
        35 rr           34    1    6    3    1    1   14
        36 i            35    1    1    0    1    1   17
        37 v1           36    1    2    0    1    1   18
        38 v2           37    1    2    0    1    1   19
        39 a            38    3    0    4    1    1   19
        40 v3            0    1    2    0    1    2    5
        41 b            40    3    0    5    1    2    0
        42 v4            0    1    2    0    1    3    5
        43 c            39    3    0    6    1    1   34
        44 v5            0    1    2    0    1    2    5
        45 d            44    3    0    7    1    2   26
        46 v6            0    1    2    0    1    3    5
        47 fact         43    4    1    8    1    1   41
        48 i             0    1    1    0    1    2    5
        49 zero         47    3    0    9    1    1   60
        50 i             0    1    1    0    0    2    5
0blocks    last lpar psze vsze
         1   28    1    0    0
         2   49   28    5   20
         3   33    0    0    3
         4   41   39    5    6
         5   42   41    5    6
         6   45   43    5    6
         7   46   45    5    6
         8   48   48    6    6
         9   50   50    6    6
0arrays    xtyp etyp eref  low high elsz size
         1    1    5    2    1    3    3    9
         2    4    2    0   97   99    1    3
0code:

    0    0 3    5,   24      4,    1 1   18,   26      1,   54       ,
    5    1 1   19,   54       ,    1 2    5,   54       ,   38       ,
   10    1 1   18,   29      2,    1 1   19,   29      2,    1 2    5,
   15   29      2,    1 3    5,   29      2,   32       ,    0 2    5,
   20   24      3,   26      0,   38       ,   18     41,   19      4,
   25   32       ,    0 3    5,   24      6,   26      0,   38       ,
   30   18     39,   19      4,    3 1    3,   32       ,    0 2    5,
   35   24      5,   26      0,   38       ,   18     45,   19      4,
   40   32       ,    1 2    5,   24      0,   45       ,   11     49,
   45    0 2    0,   24      1,   38       ,   10     59,    0 2    0,
   50    1 2    5,   18     47,    1 2    5,   24      1,   53       ,
   55   19      5,    3 1    2,   57       ,   38       ,   33       ,
   60    1 2    5,   24      0,   38       ,   32       ,    0 1   18,
   65   24      1,   26      0,   38       ,    0 1   19,   24      2,
   70   26      0,   38       ,   18     43,   19      4,    1 1   18,
   75    1 1   19,   39       ,   11     81,   24     61,   29      4,
   80   10     83,   24      2,   28      0,    0 1   17,   24      1,
   85   24      3,   14    106,    1 1   17,   12     98,   24      3,
   90   28      2,   10    105,   24      3,   28      5,   10    105,
   95   24      5,   28      8,   10    105,   13      1,   13     89,
  100   13      2,   13     92,   13      3,   13     95,   10      0,
  105   15     87,    1 1   18,    1 1   19,   41       ,   11    117,
  110    0 1   18,    1 1   18,   24      1,   26      0,   54       ,
  115   38       ,   10    106,   24      3,   28     13,   18     47,
  120   24      3,   19      5,   29      1,   18     49,    0 1   17,
  125   19      5,    0 1    5,   24      1,   21      1,   24     97,
  130   20      2,   25      1,   38       ,    0 1   14,   24      7,
  135   38       ,   31       ,
 1.00000000000000e+000 2.00000000000000e+000 3.00000000000000e+000 1.00000000000000e+001<>onetwothree3!=         6
       172 steps