100 REM DEFDDL A-H : A A H en double precision 
110 REM # constante en double precision 
120 DEFDBL A-H:DIM A(1,31),8(63):H=100000000#
130 CLS:FOR I=0 TO 1:M=N:INPUT". ".P$:L=LEN(P$):N= INT(L/8):A(I,N)=VAL(LEFT$(P$,(L MOD 8)))
140 FOR J=1 TO N:A(I,J-1)=VAL(MID$(F'$,L-8*J+1,8)): NEXT J:NEXT I 
150 FOR 1=0 TO M:E=A(0,I):FOR J=I TO I+N:F=8(J)+E* A(1,J-I)
160 G=INT(F/H):R(J.1)=8(J+1)+G:B(J)=F-G*H:NEXT J:N EXT I
170 REM ** affiche des * en tete des nombres A g auche 
180 PRINT:PRINT:L=M+N+(G=0):PRINT USING"**######". 8(L+1);:FOR I=0 TO L 
190 REM SPC(N) saute N espaces dans un PRINT 
200 PRINT SPC(-((I MOD 9).(8));RIGHTS(STR$(8(L-I)+H ),8);:NEXT I:END