P705 CEEFAX 705 Thu 24 Nov 19:31/38
‖B21212‖a36INSERT10545561‖i24BBBC316k‖p‖
s÷#1÷e‖s÷Z0
21 8
22 REM Here is the insertion sort
23 DEFP2OCinsertXN1%)
24 LOCAL I%,J%,X
25 FOR I%=2 TO N1%
26 X=F(I%)
27 FOR J%=I%-1 ,O 1 STEP -1
28 IF (X<F(J%)) THEN F(J%+1)=F(J%):N
EXT J%:F(J%+1)=X:GOTO 31
29 F(J%+1)=X
30 J%=1:NEXT J%
31 NEXT I%
32 ENDP2OC
33 :
35 DEFP2OCprint
36 PRINT'''"Sorted list"
37 FOR I%=1 TO 1%
38 PRINTF(I%);
39 NEXT I%
40 PRINT
41 ENDP2OC ‖c