INSERTSORT.L
FILE INFORMATION
FILENAME(S): INSERTSORT.L
FILE TYPE(S): SEQ
FILE SIZE: 231b
FIRST SEEN: 2025-12-01 01:48:21
APPEARS ON: 3 disk(s)
FILE HASH
6ffa785e5a65f22610dfd45041619237a790ea9ec485a7b09728a7a228eeaf55
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CCS COMAL | INSERTSORT.L | SEQ | hedning, Mattias H00r | 11 | 9 | DOWNLOAD FILE |
| CCS COMAL | INSERTSORT.L | SEQ | hedning, Mattias H00r | 11 | 9 | DOWNLOAD FILE |
| COMAL A | INSERTSORT.L | SEQ | hedning, Helsinborg | 11 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 39 30 30 30 20 50 52 4F 43 20 49 4E 53 45 52 54 |9000 PROC INSERT| 00000010: 53 4F 52 54 28 52 45 46 20 41 28 29 2C 4D 2C 4E |SORT(REF A(),M,N| 00000020: 29 20 43 4C 4F 53 45 44 0D 39 30 31 30 20 46 4F |) CLOSED.9010 FO| 00000030: 52 20 49 3A 3D 4D 2B 31 20 54 4F 20 4E 20 44 4F |R I:=M+1 TO N DO| 00000040: 0D 39 30 32 30 20 54 3A 3D 41 28 49 29 3B 20 4A |.9020 T:=A(I); J| 00000050: 3A 3D 49 0D 39 30 33 30 20 57 48 49 4C 45 20 41 |:=I.9030 WHILE A| 00000060: 28 4A 2D 31 29 3E 54 20 44 4F 0D 39 30 34 30 20 |(J-1)>T DO.9040 | 00000070: 41 28 4A 29 3A 3D 41 28 4A 2D 31 29 3B 20 4A 3A |A(J):=A(J-1); J:| 00000080: 3D 4A 2D 31 0D 39 30 34 31 20 49 46 20 4A 3D 4D |=J-1.9041 IF J=M| 00000090: 20 54 48 45 4E 20 47 4F 54 4F 20 58 0D 39 30 35 | THEN GOTO X.905| 000000A0: 30 20 45 4E 44 57 48 49 4C 45 20 0D 39 30 35 35 |0 ENDWHILE .9055| 000000B0: 20 58 3A 0D 39 30 36 30 20 41 28 4A 29 3A 3D 54 | X:.9060 A(J):=T| 000000C0: 0D 39 30 37 30 20 45 4E 44 46 4F 52 20 49 0D 39 |.9070 ENDFOR I.9| 000000D0: 30 38 30 20 45 4E 44 50 52 4F 43 20 49 4E 53 45 |080 ENDPROC INSE| 000000E0: 52 54 53 4F 52 54 0D |RTSORT. |
9000 PROC INSERTSORT(REF A(),M,N) CLOSED .9010 FOR I:=M+1 TO N DO.9020 T:=A(I); J :=I.9030 WHILE A(J-1)>T DO.9040 A(J):=A( J-1); J:=J-1.9041 IF J=M THEN GOTO X.905 0 ENDWHILE .9055 X:.9060 A(J):=T.9070 EN DFOR I.9080 ENDPROC INSERTSORT.
> CLICK IMAGE PREVIEW FOR FULL MODAL