Bolotin Yevgeniy pointed out that you can get under 90 characters if you replace SUBSTR with ||:

DATA;put@9'@'/@9'*';do i=0to
7;b='*'||repeat('0*',i);put@(8-i)b;end;put@8'| |';RUN;