$PROD KERMIV,CO,OC
$ASS KE1=CO KE2=OC KE3=%1 KE4=%2
$ASS KE5=SCB KE8=SCA KE9=SC KEH=BSL
$EXE KERMIT LMU
$WEO LO
$REW KE9
$ASS JC KE9
$STORE
$ASS JC JC
$ENDDO