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.
No hay comentarios:
Publicar un comentario