To display the pattern.
123456789
1234567
12345
123
1
- CLS
a# = 123456789
c = 1
WHILE c <= 5
PRINT TAB(c); a#
a# = a# \ 100
c = c + 1
WEND
END