... mas não corta o papel: CHR(27)+CHR(105), CHR(27)+CHR(109), CHR(27)+CHR(119), procedure TesteDeImpressao() guilhotina = SPACE(40) set device to screen @ 09,25 clear to 11,75 @ 09,25 to 11,75 @ 10,26 say "Guilhotina" get guilhotina PICT "@!" read IF LASTKEY() = 27 RETURN ...