=== COMPILE PL0 ===
  0 PROGRAM SUBS; 
  0 VAR A,B; 
  1 BEGIN 
  2    A:=10; 
  4    A--; 
  8    B:=A; 
 10    B--; 
 14    WRITE(B) 
 16 END. 
  0  JMP   0   1
  1  INI   0   5
  2  LIT   0  10
  3  STO   0   3
  4  LOD   0   3
  5  LIT   0   1
  6  OPR   0   3
  7  STO   0   3
  8  LOD   0   3
  9  STO   0   4
 10  LOD   0   4
 11  LIT   0   1
 12  OPR   0   3
 13  STO   0   4
 14  LOD   0   4
 15  OPR   0  14
 16  OPR   0  15
 17  OPR   0   0
~~~ RUN PL0 ~~~
8
~~~ END PL0 ~~~