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

BUBSORT'STR.L

FILE INFORMATION

FILENAME(S): BUBSORT'STR.L

FILE TYPE(S): SEQ

FILE SIZE: 259b

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

APPEARS ON: 2 disk(s)

FILE HASH

97c54722c565a83c806a65f34877d0c143b629fe6be78751b439bc9ba47535f0

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL BUBSORT'STR.L SEQ hedning, Mattias H00r 22 12 DOWNLOAD FILE
CCS COMAL BUBSORT'STR.L SEQ hedning, Mattias H00r 22 12 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 42 55 42 53 4F 52  |9000 PROC BUBSOR|
00000010: 54 27 53 54 52 28 52 45  46 20 41 24 28 29 2C 4D  |T'STR(REF A$(),M|
00000020: 2C 4E 29 20 43 4C 4F 53  45 44 0D 39 30 30 35 20  |,N) CLOSED.9005 |
00000030: 44 49 4D 20 54 24 20 4F  46 20 4D 41 58 4C 45 4E  |DIM T$ OF MAXLEN|
00000040: 28 41 24 28 4D 29 29 0D  39 30 31 30 20 52 45 50  |(A$(M)).9010 REP|
00000050: 45 41 54 20 0D 39 30 32  30 20 44 3A 3D 54 52 55  |EAT .9020 D:=TRU|
00000060: 45 0D 39 30 33 30 20 46  4F 52 20 4A 3A 3D 4D 20  |E.9030 FOR J:=M |
00000070: 54 4F 20 4E 2D 31 20 44  4F 0D 39 30 34 30 20 49  |TO N-1 DO.9040 I|
00000080: 46 20 41 24 28 4A 29 3E  41 24 28 4A 2B 31 29 20  |F A$(J)>A$(J+1) |
00000090: 54 48 45 4E 0D 39 30 35  30 20 53 57 41 50 27 53  |THEN.9050 SWAP'S|
000000A0: 54 52 28 41 24 28 4A 29  2C 41 24 28 4A 2B 31 29  |TR(A$(J),A$(J+1)|
000000B0: 2C 54 24 29 0D 39 30 36  30 20 44 3A 3D 46 41 4C  |,T$).9060 D:=FAL|
000000C0: 53 45 0D 39 30 37 30 20  45 4E 44 49 46 20 0D 39  |SE.9070 ENDIF .9|
000000D0: 30 38 30 20 45 4E 44 46  4F 52 20 4A 0D 39 30 39  |080 ENDFOR J.909|
000000E0: 30 20 55 4E 54 49 4C 20  44 0D 39 31 30 30 20 45  |0 UNTIL D.9100 E|
000000F0: 4E 44 50 52 4F 43 20 42  55 42 53 4F 52 54 27 53  |NDPROC BUBSORT'S|
00000100: 54 52 0D                                          |TR.             |

9000 PROC BUBSORT'STR(REF A$(),M,N) CLOS
ED.9005 DIM T$ OF MAXLEN(A$(M)).9010 REP
EAT .9020 D:=TRUE.9030 FOR J:=M TO N-1 D
O.9040 IF A$(J)>A$(J+1) THEN.9050 SWAP'S
TR(A$(J),A$(J+1),T$).9060 D:=FALSE.9070 
ENDIF .9080 ENDFOR J.9090 UNTIL D.9100 E
NDPROC BUBSORT'STR.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL