=== COMPILE PL0 ===
  0 PROGRAM PLUSBK0; 
  0 VAR A; 
  1 BEGIN 
  2   FOR A:=1 TO 3 DO 
  8     WRITE(A); 
 15   FOR A:=5 DOWNTO 1 DO 
 21     WRITE(A); 
 28 END.  
  0  JMP   0   1
  1  INI   0   4
  2  LIT   0   1
  3  STO   0   3
  4  LOD   0   3
  5  LIT   0   3
  6  OPR   0  13
  7  JPC   0  15
  8  LOD   0   3
  9  OPR   0  14
 10  OPR   0  15
 11  LOD   0   3
 12  LIT   0   1
 13  OPR   0   2
 14  JMP   0   3
 15  LIT   0   5
 16  STO   0   3
 17  LOD   0   3
 18  LIT   0   1
 19  OPR   0  11
 20  JPC   0  28
 21  LOD   0   3
 22  OPR   0  14
 23  OPR   0  15
 24  LOD   0   3
 25  LIT   0   1
 26  OPR   0   3
 27  JMP   0  16
 28  OPR   0   0
~~~ RUN PL0 ~~~
1
2
3
5
4
3
2
1
~~~ END PL0 ~~~