PROC NEWLINES(BYTE N)›  BYTE I›  IF N>0 THEN   ›    FOR I=1 TO N DO  PUTE()  OD›  FI›RETURN›››PROC FACT()››CARD N,I,C›CARD ARRAY A(200),B(200)               ››FOR I=1 TO 200 DO A(I)=0 B(I)=0  OD›    A(200)=1››FOR N=1 TO 100 DO›  I=200 : WHILE I<>200-2*N+1 DO›    A(I)=A(I)*N :  I==-1    OD›  I=200   WHILE I<>200-2*N+1 DO  C=A(I)/10›    A(I-1)=A(I-1)+C: A(I)=A(I)-10*C   : I==-1   OD›  PRINTF("%U FACTORIAL IS ",N)›  FOR I=200-2*N TO 200 DO›    B(I)=B(I)+A(I)›    IF B(I)<>0 THEN PRINTC(A(I)) FI›  OD›  NEWLINES(2)     ›OD››RETURN››