QBASIC PATTERN : 123456789,1234567,12345,123,1

  123456789
  1234567
  12345
  123
  1

CLS
 A# = 123456789
 FOR I = 1 TO 5
 PRINT A#
 A# = A# \ 100
 NEXT I
 END

USING SUB

DECLARE SUB PATTERN()
 CLS
 CALL PATTERN
 END
 
 SUB PATTERN
 A# = 123456789
 FOR I = 1 TO 5
 PRINT A#
 A# = A# \ 100
 NEXT I
 END SUB