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

BUBSORT.L

FILE INFORMATION

FILENAME(S): BUBSORT.L

FILE TYPE(S): SEQ

FILE SIZE: 210b

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

APPEARS ON: 2 disk(s)

FILE HASH

271e74eceff448fc418600028be2adb93952047b3d400c0529b5ff69bcc48471

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL BUBSORT.L SEQ hedning, Mattias H00r 22 14 DOWNLOAD FILE
CCS COMAL BUBSORT.L SEQ hedning, Mattias H00r 22 14 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 28 52 45 46 20 41 28  29 2C 4D 2C 4E 29 20 43  |T(REF A(),M,N) C|
00000020: 4C 4F 53 45 44 0D 39 30  31 30 20 52 45 50 45 41  |LOSED.9010 REPEA|
00000030: 54 20 0D 39 30 32 30 20  44 3A 3D 54 52 55 45 0D  |T .9020 D:=TRUE.|
00000040: 39 30 33 30 20 46 4F 52  20 4A 3A 3D 4D 20 54 4F  |9030 FOR J:=M TO|
00000050: 20 4E 2D 31 20 44 4F 0D  39 30 34 30 20 49 46 20  | N-1 DO.9040 IF |
00000060: 41 28 4A 29 3E 41 28 4A  2B 31 29 20 54 48 45 4E  |A(J)>A(J+1) THEN|
00000070: 0D 39 30 35 30 20 53 57  41 50 28 41 28 4A 29 2C  |.9050 SWAP(A(J),|
00000080: 41 28 4A 2B 31 29 29 0D  39 30 36 30 20 44 3A 3D  |A(J+1)).9060 D:=|
00000090: 46 41 4C 53 45 0D 39 30  37 30 20 45 4E 44 49 46  |FALSE.9070 ENDIF|
000000A0: 20 0D 39 30 38 30 20 45  4E 44 46 4F 52 20 4A 0D  | .9080 ENDFOR J.|
000000B0: 39 30 39 30 20 55 4E 54  49 4C 20 44 0D 39 31 30  |9090 UNTIL D.910|
000000C0: 30 20 45 4E 44 50 52 4F  43 20 42 55 42 53 4F 52  |0 ENDPROC BUBSOR|
000000D0: 54 0D                                             |T.              |

9000 PROC BUBSORT(REF A(),M,N) CLOSED.90
10 REPEAT .9020 D:=TRUE.9030 FOR J:=M TO
 N-1 DO.9040 IF A(J)>A(J+1) THEN.9050 SW
AP(A(J),A(J+1)).9060 D:=FALSE.9070 ENDIF
 .9080 ENDFOR J.9090 UNTIL D.9100 ENDPRO
C BUBSORT.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL