Directory of image this file is from
This file as a plain text file

D>()BTC U/W-FOCAL:SMSORT15.10.78?MB6BJTYPE :11"THIS IS A DEMONSTRATION SHELL/METZNER SORT PROGRAM"!?M?CXBTZERO,I,J,K,L,M;FOR I=1,N=20; SET A(I)=100*FRAN(); NEXT; DO .5?M?C:B^BREAK; NEXT; IF (M=FITR(M/2)),.5; FOR I=1,N-M; DO .4; NEXT .3?M?D\B(FOR J=I,-M,1;
F (A(J)-A(K=J+M)).3,.3; S A(J)=A(K)+.*A(K)=A(J)?M?B2TYPE !%4.02;FOR I=1,N/10;FOR K=1,10;TYPE A(M=M+1);NEXT;TYPE !?M?!?L D SMSORT;L S SMSORT;E?M?A(,279) FRA(1,643) FRA(2,-1) FRA(3,-DL+1) FRA(8,SB)?M?FJCPS FRA(4,-1) FRA(5,-1) FRA(6,0) FRA(7,FSGN(7-SB

Note: Lines longer than 256 characters were wrapped