;Exchange or Interchange Sort

Start
Dim List[100]
Openin "c:\numsort.txt"
Call LoadArray
Call Sort
Call PrintArray
Stop


Loadarray:

Enter
N = 0
FileRead Num
While Not EOF
  N = N + 1
  List[N] = Num
  FileRead Num
ENDWHILE
Exit


Sort:

Enter
I = 1
WHILE I < N
  Call OnePass
  I = I + 1
ENDWHILE
Exit


OnePass:

Enter
J = I + 1
WHILE J <= N
  IF List[I] > List[J] THEN
    CALL OrderPair
  ENDIF
  J = J + 1
ENDWHILE
Exit


OrderPair:

Enter
T = List[I]
List[I] = List[J]
List[J] = T
Exit


PrintArray:

Enter
C = 1
WHILE C <= N
  Print List[C]
  C = C + 1
ENDWHILE
Exit