Recycled 71B program:

2 OPTION BASE 0 @ DESTROY ALL @ DIM A$[79] @ L=0 @ DIM E$[435] @ N=0

4 INTEGER Z(1610) @ C=1610 @ D=0 @ E=10000 @ F=100000 @ H=0

6 B=C @ C=C-1 @ IF B<=1523 THEN 20

8 B=B-1 @ IF B=0 THEN 14

10 IF H=0 THEN D=D+E*F ELSE D=D+Z(B)*F

12 Z(B)=MOD(D,B) @ D=FLOOR(D/B) @ GOTO 8

14 H=5 @ X=E+FLOOR(D/F) @ DISP "."; @ D=MOD(D,F) @ E=D @ N=N+5

16 FOR I=1 TO 5 @ E$[N-I+1,N-I+1]=STR$(MOD(X,10)) @ X=FLOOR(X/10) @ NEXT I

18 GOTO 6

20 N=1 @ FOR I=1 TO 100 @ READ A @ FOR J=1 TO 16 @ L=L+1

22 IF L=80 THEN 28

24 IF MOD(A,2)=1 THEN A$=A$&E$[N,N] @ N=N+1 ELSE A$=A$&" "

26 A=INT(A/2) @ NEXT J

28 IF MOD(I,5)=0 THEN DISP A$ @ A$="" @ L=0

30 NEXT I

32 DISP

34 DATA 0,0,0,0,0,58124,61936,1561,0,0,58124,13104

36 DATA 795,0,0,45446,6937,435,0,0,45446,6937,435,0

38 DATA 0,39422,63993,241,0,0,39302,6169,96,0,0,64902

40 DATA 6169,96,0,0,3267,3087,48,0,0,1731,3087,48

42 DATA 0,0,0,0,0,0,0,0,60540,28615,2008,24974

44 DATA 0,27852,25356,3288,12686,0,14022,12684,6252,6939,0,14022

46 DATA 12684,6252,6939,0,63038,61831,39023,3865,0,14022,12675,39020

48 DATA 1561,0,14022,12675,52284,1567,0,7107,6342,52790,816,0

50 DATA 7039,6342,25590,816