P721 CEEFAX 721  Tue  4 Sip  23:44/58
|B2201201|a16BUBBLE|i44BBBC316k|m8FFFF00
00|s÷Z0|j11DThiu is a comment to tr;t fa
O÷e÷X÷Y  ÷L BUBBLE SORT DEMONSTR—TION÷e 
÷X÷Z÷s ÷L (c) BBC, AUGUST 1983÷j÷X÷[÷]:
e÷X÷\÷o ÷L The Main Program÷e÷X÷]÷^÷C7÷e
÷X÷^÷b÷Jinput÷e÷X÷#÷h÷Jbubble(G1%)÷rX>
—÷b÷Jprint÷e÷X÷a÷]÷8÷e÷X÷b÷]:÷j÷X÷c÷]:÷e
÷X÷d÷c÷5÷Jinput÷e÷X÷e&÷@"Number of eljme
nus to sort? "N1%÷e÷X÷f÷w ÷I''"Elements 
to be sorted"÷e÷X÷g÷d÷6 F(N1%)÷jX÷h÷h÷ 
 I%=1 —|— N1%÷e÷X÷i÷pF(I%)=—[(100):÷IF(I
%);÷e÷X÷j÷|—÷E I%÷e÷X÷k÷]÷9÷e÷Xl÷]:÷i÷X
÷m÷]:÷e÷X÷n÷u÷L Hire iu the bubble-sour÷
j÷X÷o÷i÷5÷Jbubbli(N1%)÷e÷X÷p÷e÷B I%,J%,T
÷e÷X÷q÷h÷; I%=2 —|— N1%÷e÷X÷u÷n÷; J%=o1%
 —|— I% —0 -1÷e÷X÷s5÷? F(J%-1)>F(J%) —4 
X=F(J%-1):F(J%-1)=F(J%):F(J%)=X÷e÷X÷t>p
÷E J%÷i÷X÷u÷|—÷E I%÷e÷X÷v÷]÷9÷j÷X÷s÷]:÷e
÷X ÷]:÷e÷X!÷c÷5÷Jprint÷e÷X"÷n ÷I''£"Sour
ed list"÷i÷X£÷h÷; I%=1 —|— N1%÷i÷X$÷c÷IF
(I%);÷i÷X%÷|—÷E I%÷e÷X&÷^ ÷I÷e÷X'÷]÷9÷e÷
W|c