REM to print the input string in middle line DECLARE FUNCTION MIDDLE (N$) CLS INPUT N$ X=MIDDLE (N$) PRINT SPC (X); N$ END FUNCTION MIDDLE (N$) MIDDLE = 40- LEN (N$)/2 END FUNCTION