无意中翻出的一个早期写的程序晒出来永久保存

CLS

DO

    INPUT "N=";N

LOOP UNTIL N>0 AND N<9 AND N=INT(N)

FOR I = 1 TO N

         FOR J= N+1-I TO N

                PRINT TAB(71-N^2+N-I+J^2-J);

                FOR K= 1 TO (J-N+I)*2-1

                       PRINT CHR$(48+J);

                NEXT K

         NEXT J

         PRINT

NEXT I