P705 CEEFAX 705 Thu 24 Nov 19:31/30
‖B21112‖a36INSERT10545561‖i24BBBC316k‖p‖
s÷#1÷e‖s÷Z0
1 REM INSERTION SORT DEMONSTRATION
2 REM c) BBC, AUGUST 1983
3 :
4 REM The Main Program
5 MODE7
6 P2OCinput
7 P2OCinsertXN1%)
8 P2OCprint
9 END
10 :
11 :
12 DEFP2OCinput
13 INPUTbNsmber of elements to sort?
bN1%
14 PRINT''"Elements to be sortedb
15 DIM F(N1%)
16 FOR I%=1 ,O N1%
17 F(I%)=RND(100):PRINTF(I%);
18 NEXT I%
19 ENDP2OC
20 : ‖c