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