Title Framing and Centering

You can dress up displays by adding the following listing to the beginning of your programs.

Title Framing accepts up to 29 characters and centers them on any line from 1 to 20.

Inverse graphics are:

Line 20–graphic 5, 8
Line 40–graphic 6
Line 50–graphic 7

Try graphic A (checked border) or asterisk (shift B; inverse asterisk border) in place of all graphics for variation.

RUN in FAST, BREAK to exit.

   5 LET L=10
  10 INPUT A$
  20 PRINT AT L,(31-(LEN A$+2))/2;"▌";A$;"▐"
  30 FOR N=0 TO (LEN A$+1)
  40 PRINT AT L-1,(31-(LEN A$+2))/2+N;"▄"
  50 PRINT AT L+1,(31-(LEN A$+2))/2+N;"▀"
  60 NEXT N
SYNTACTIC SUM:  10754, 8K ROM