_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

INSERTSORT'STR.L

FILE INFORMATION

FILENAME(S): INSERTSORT'STR.L

FILE TYPE(S): SEQ

FILE SIZE: 277b

FIRST SEEN: 2025-12-01 01:48:21

APPEARS ON: 2 disk(s)

FILE HASH

6d75b3d3c8bc912620e0e9df1bf63e31e8ad3ca29a7e71d428e072ed5ea1f60e

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL INSERTSORT'STR.L SEQ hedning, Mattias H00r 11 8 DOWNLOAD FILE
CCS COMAL INSERTSORT'STR.L SEQ hedning, Mattias H00r 11 8 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 27 53 54 52  28 52 45 46 20 41 24 28  |SORT'STR(REF A$(|
00000020: 29 2C 4D 2C 4E 29 20 43  4C 4F 53 45 44 0D 39 30  |),M,N) CLOSED.90|
00000030: 30 35 20 44 49 4D 20 54  24 20 4F 46 20 4D 41 58  |05 DIM T$ OF MAX|
00000040: 4C 45 4E 28 41 24 28 4D  29 29 0D 39 30 31 30 20  |LEN(A$(M)).9010 |
00000050: 46 4F 52 20 49 3A 3D 4D  2B 31 20 54 4F 20 4E 20  |FOR I:=M+1 TO N |
00000060: 44 4F 0D 39 30 32 30 20  54 24 3A 3D 41 24 28 49  |DO.9020 T$:=A$(I|
00000070: 29 3B 20 4A 3A 3D 49 0D  39 30 33 30 20 57 48 49  |); J:=I.9030 WHI|
00000080: 4C 45 20 41 24 28 4A 2D  31 29 3E 54 24 20 44 4F  |LE A$(J-1)>T$ DO|
00000090: 0D 39 30 34 30 20 41 24  28 4A 29 3A 3D 41 24 28  |.9040 A$(J):=A$(|
000000A0: 4A 2D 31 29 3B 20 4A 3A  3D 4A 2D 31 0D 39 30 34  |J-1); J:=J-1.904|
000000B0: 31 20 49 46 20 4A 3D 4D  20 54 48 45 4E 20 47 4F  |1 IF J=M THEN GO|
000000C0: 54 4F 20 58 0D 39 30 35  30 20 45 4E 44 57 48 49  |TO X.9050 ENDWHI|
000000D0: 4C 45 20 0D 39 30 35 35  20 58 3A 0D 39 30 36 30  |LE .9055 X:.9060|
000000E0: 20 41 24 28 4A 29 3A 3D  54 24 0D 39 30 37 30 20  | A$(J):=T$.9070 |
000000F0: 45 4E 44 46 4F 52 20 49  0D 39 30 38 30 20 45 4E  |ENDFOR I.9080 EN|
00000100: 44 50 52 4F 43 20 49 4E  53 45 52 54 53 4F 52 54  |DPROC INSERTSORT|
00000110: 27 53 54 52 0D                                    |'STR.           |

9000 PROC INSERTSORT'STR(REF A$(),M,N) C
LOSED.9005 DIM T$ OF MAXLEN(A$(M)).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 
ENDFOR I.9080 ENDPROC INSERTSORT'STR.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL