// export porucznik , blackmen , apeman ; starting begin uc_side := 1 ;
   0: LD_ADDR_OWVAR 20
   4: PUSH
   5: LD_INT 1
   7: ST_TO_ADDR
// porucznik = NewCharacter ( porucznik ) ;
   8: LD_ADDR_EXP 1
  12: PUSH
  13: LD_STRING porucznik
  15: PPUSH
  16: CALL_OW 25
  20: ST_TO_ADDR
// blackmen = NewCharacter ( blackmen ) ;
  21: LD_ADDR_EXP 2
  25: PUSH
  26: LD_STRING blackmen
  28: PPUSH
  29: CALL_OW 25
  33: ST_TO_ADDR
// apeman = NewCharacter ( apeman ) ;
  34: LD_ADDR_EXP 3
  38: PUSH
  39: LD_STRING apeman
  41: PPUSH
  42: CALL_OW 25
  46: ST_TO_ADDR
// end ;
  47: END
