¡Centremos el texto, en pantalla!

He aquí una pequeña función para centrar el texto en pantalla, de manera muy sencilla.

10 CLS
20 REM * Centramos el texto en pantalla *
30 LET m$="Estoy centrado"
40 PRINT AT 1,FN c(m$);m$
50 LET m$="pero que muy centrado"
60 PRINT AT 3,FN c(m$);m$
90 REM * Funcion de centrado *
100 DEF FN c(m$)=INT ((32-LEN m$)/2)

He aquí lo importante :

40 PRINT AT 1,FN c(m$);m$

Llamada a la función con la cadena m$, que nos devuelve la posición que necesitamos para centrar el texto.

100 DEF FN c(m$)=INT ((32-LEN m$)/2)

Bueno, bonito y barato.