$${
if(asprinter)
log(&b&l CORRE-CORRE &4&l[OFF]);
keyup(forward)
unsprint;
unset(asprinter)
stop;
else;
log(&b&l CORRE-CORRE &2&l[ON]);
set(asprinter)
do;
keydown(forward)
sprint;
loop;
endif;
}$$