=== COMPILE PL0 ===
  0 PROGRAM EX01; 
  0 VAR A,B,C:INT; 
  1 FUCTION SHI(F:INT):INT; 
  2 BEGIN 
  3    READ(B); 
  7    F:=B+1; 
 11 SHI:=F; 
 13 END. 
  1  JMP   0   0
  2  INI   0   5
  3  LOD   0  21
  4  STO   0   4
  5  OPR   0  16
  6  STO   1   4
  7  LOD   1   4
  8  LIT   0   1
  9  OPR   0   2
 10  STO   0   4
 11  LOD   0   4
 12  STO   0   3
 13  LOD   0   3
 14  STO   0  -1
 15  OPR   0   0
 16 BEGIN 
 17  A:=1; 
 19  B:=9; 
 21 C:=SHI(B); 
 24  IF A=0 THEN 
 27    A:=88; 
 30 ELSE B:=11; 
 33  WRITE(C); 
 36 END. 
  0  JMP   0  16
  1  JMP   0   0
  2  INI   0   5
  3  LOD   1   4
  4  STO   0   4
  5  OPR   0  16
  6  STO   1   4
  7  LOD   1   4
  8  LIT   0   1
  9  OPR   0   2
 10  STO   0   4
 11  LOD   0   4
 12  STO   0   3
 13  LOD   0   3
 14  STO   0  -1
 15  OPR   0   0
 16  INI   0   6
 17  LIT   0   1
 18  STO   0   3
 19  LIT   0   9
 20  STO   0   4
 21  INI   0   1
 22  CAL   0   2
 23  STO   0   5
 24  LOD   0   3
 25  LIT   0   0
 26  OPR   0   8
 27  JPC   0  31
 28  LIT   0  88
 29  STO   0   3
 30  JMP   0  33
 31  LIT   0  11
 32  STO   0   4
 33  LOD   0   5
 34  OPR   0  14
 35  OPR   0  15
 36  OPR   0   0
~~~ RUN PL0 ~~~
? 0
1
~~~ END PL0 ~~~