Qbasic program to print 123456787654321, 1234567654321, 12345654321.....1

CLS
t = 1
a# = 11111111
FOR i = 1 TO 8
PRINT TAB(t); a# ^ 2
a# = a# \ 10
t = t + 1
NEXT i
END