0 ' A program by Wm. C. Davidon listing names, addresses, and lengths of all active RAM files, + BASIC and paste buffers.
1 DIMA(21),N$(21):FORI=63898TO64129:A(L)=PEEK(I)+256*PEEK(I+1):N$(L)="":FORI=I+2TOI+7:N$(L)=N$(L)+CHR$(PEEK(I))
2 NEXT:L=L-(PEEK(I-11)>0):NEXT:FORI=0TOL-1:B=PEEK(64434)+256*PEEK(64435):A=A(I):FORJ=0TOL-1:C=A(J):B=B+(B>C)*(C>A)*(C-B)
3 NEXT:PRINTN$(I)A;B-A:NEXT