>L.
   10 REM ************************
   20 REM    PROCexchange_sort
   30 REM ************************
   40 REM NC100 Version 3.1
   50 REM http://www.ncus.org.uk
   60 REM Numbers to sort in A%.  Total number of items L%
   70 DEF PROCexchange_sort
   80 N%=0
   90 REPEAT
  100   N%=N%+1
  110   IF A%(N%)>A%(N%+1) T%=A%(N%):A%(N%)=A%(N%+1):A%(N%+1)=T%:N%=0
  120 UNTIL N%=L%-1
  130 ENDPROC
>*SPOOL