INPUT "n=(n<10)"; n
a$ = "12345678987654321"
FOR i = 1 TO n
  PRINT SPC(n - i); LEFT$(a$, i); CHR$(29); RIGHT$(a$, i)
NEXT i
FOR i = 1 TO n
  PRINT SPC(i); LEFT$(a$, n - i); CHR$(29); RIGHT$(a$, n - i)
NEXT i
注： CHR$(29)为光标左移一格