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

BUBBLESORT3.PROC

FILE INFORMATION

FILENAME(S): BUBBLESORT3.PROC

FILE TYPE(S): SEQ

FILE SIZE: 338b

FIRST SEEN: 2025-11-30 01:07:52

APPEARS ON: 4 disk(s)

FILE HASH

6c378f9fc6b0a4d22be5a1d628dbd5e3b5267ade38ef03c45d9b11da44f623d4

FOUND ON DISKS (4 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
FREEWARE DISK NR BUBBLESORT3.PROC SEQ Treasure Chest - Wolfgang Rauprich 3 0 DOWNLOAD FILE
FREESOFT DISK NR BUBBLESORT3.PROC SEQ Treasure Chest - Wolfgang Rauprich 3 0 DOWNLOAD FILE
C OMAL BUBBLESORT3.PROC SEQ Treasure Chest - Wolfgang Rauprich 3 0 DOWNLOAD FILE
C OMAL BUBBLESORT3.PROC SEQ Treasure Chest - Wolfgang Rauprich 3 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 33 36 30 20 50 52 4F  43 20 42 55 42 42 4C 45  |9360 PROC BUBBLE|
00000010: 53 4F 52 54 33 20 0D 39  33 36 35 20 20 20 45 4E  |SORT3 .9365   EN|
00000020: 44 27 3A 3D 31 31 0D 39  33 37 30 20 20 20 52 45  |D':=11.9370   RE|
00000030: 50 45 41 54 20 0D 39 33  37 35 20 20 20 20 20 45  |PEAT .9375     E|
00000040: 58 43 48 41 4E 47 45 44  3A 3D 46 41 4C 53 45 0D  |XCHANGED:=FALSE.|
00000050: 39 33 38 30 20 20 20 20  20 45 4E 44 27 3A 2D 31  |9380     END':-1|
00000060: 0D 39 33 38 35 20 20 20  20 20 46 4F 52 20 53 54  |.9385     FOR ST|
00000070: 41 52 54 3A 3D 31 20 54  4F 20 45 4E 44 27 20 44  |ART:=1 TO END' D|
00000080: 4F 0D 39 33 39 30 20 20  20 20 20 20 20 49 46 20  |O.9390       IF |
00000090: 4E 41 4D 45 24 28 53 54  41 52 54 29 3E 4E 41 4D  |NAME$(START)>NAM|
000000A0: 45 24 28 53 54 41 52 54  2B 31 29 20 54 48 45 4E  |E$(START+1) THEN|
000000B0: 0D 39 33 39 35 20 20 20  20 20 20 20 20 20 45 58  |.9395         EX|
000000C0: 43 48 41 4E 47 45 28 4E  41 4D 45 24 28 53 54 41  |CHANGE(NAME$(STA|
000000D0: 52 54 29 2C 4E 41 4D 45  24 28 53 54 41 52 54 2B  |RT),NAME$(START+|
000000E0: 31 29 29 0D 39 34 30 30  20 20 20 20 20 20 20 20  |1)).9400        |
000000F0: 20 45 4E 44 27 3A 3D 53  54 41 52 54 0D 39 34 30  | END':=START.940|
00000100: 35 20 20 20 20 20 20 20  45 4E 44 49 46 20 0D 39  |5       ENDIF .9|
00000110: 34 31 30 20 20 20 20 20  45 4E 44 46 4F 52 20 53  |410     ENDFOR S|
00000120: 54 41 52 54 0D 39 34 31  35 20 20 20 55 4E 54 49  |TART.9415   UNTI|
00000130: 4C 20 45 4E 44 27 3D 30  0D 39 34 32 30 20 45 4E  |L END'=0.9420 EN|
00000140: 44 50 52 4F 43 20 42 55  42 42 4C 45 53 4F 52 54  |DPROC BUBBLESORT|
00000150: 33 0D                                             |3.              |

9360 PROC BUBBLESORT3 .9365   END':=11.9
370   REPEAT .9375     EXCHANGED:=FALSE.
9380     END':-1.9385     FOR START:=1 T
O END' DO.9390       IF NAME$(START)>NAM
E$(START+1) THEN.9395         EXCHANGE(N
AME$(START),NAME$(START+1)).9400        
 END':=START.9405       ENDIF .9410     
ENDFOR START.9415   UNTIL END'=0.9420 EN
DPROC BUBBLESORT3.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL