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

BUBBLESORT.PROC

FILE INFORMATION

FILENAME(S): BUBBLESORT.PROC

FILE TYPE(S): SEQ

FILE SIZE: 270b

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

APPEARS ON: 4 disk(s)

FILE HASH

bcd09891db321256ddcfd8e220522259c0edd9e1ef88d736934f19dce9a24bce

FOUND ON DISKS (4 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
FREEWARE DISK NR BUBBLESORT.PROC SEQ Treasure Chest - Wolfgang Rauprich 32 8 DOWNLOAD FILE
FREESOFT DISK NR BUBBLESORT.PROC SEQ Treasure Chest - Wolfgang Rauprich 32 8 DOWNLOAD FILE
C OMAL BUBBLESORT.PROC SEQ Treasure Chest - Wolfgang Rauprich 32 8 DOWNLOAD FILE
C OMAL BUBBLESORT.PROC SEQ Treasure Chest - Wolfgang Rauprich 32 8 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 32 34 30 20 50 52 4F  43 20 42 55 42 42 4C 45  |9240 PROC BUBBLE|
00000010: 53 4F 52 54 20 0D 39 32  34 35 20 20 20 46 4F 52  |SORT .9245   FOR|
00000020: 20 54 49 4D 45 53 3A 3D  31 20 54 4F 20 31 30 20  | TIMES:=1 TO 10 |
00000030: 44 4F 0D 39 32 35 30 20  20 20 20 20 46 4F 52 20  |DO.9250     FOR |
00000040: 53 54 41 52 54 3A 3D 31  20 54 4F 20 31 31 2D 54  |START:=1 TO 11-T|
00000050: 49 4D 45 53 20 44 4F 0D  39 32 35 35 20 20 20 20  |IMES DO.9255    |
00000060: 20 20 20 49 46 20 4E 41  4D 45 24 28 53 54 41 52  |   IF NAME$(STAR|
00000070: 54 29 3E 4E 41 4D 45 24  28 53 54 41 52 54 2B 31  |T)>NAME$(START+1|
00000080: 29 20 54 48 45 4E 0D 39  32 36 30 20 20 20 20 20  |) THEN.9260     |
00000090: 20 20 20 20 45 58 43 48  41 4E 47 45 28 4E 41 4D  |    EXCHANGE(NAM|
000000A0: 45 24 28 53 54 41 52 54  29 2C 4E 41 4D 45 24 28  |E$(START),NAME$(|
000000B0: 53 54 41 52 54 2B 31 29  29 0D 39 32 36 35 20 20  |START+1)).9265  |
000000C0: 20 20 20 20 20 45 4E 44  49 46 20 0D 39 32 37 30  |     ENDIF .9270|
000000D0: 20 20 20 20 20 45 4E 44  46 4F 52 20 53 54 41 52  |     ENDFOR STAR|
000000E0: 54 0D 39 32 37 35 20 20  20 45 4E 44 46 4F 52 20  |T.9275   ENDFOR |
000000F0: 54 49 4D 45 53 0D 39 32  38 30 20 45 4E 44 50 52  |TIMES.9280 ENDPR|
00000100: 4F 43 20 42 55 42 42 4C  45 53 4F 52 54 0D        |OC BUBBLESORT.  |

9240 PROC BUBBLESORT .9245   FOR TIMES:=
1 TO 10 DO.9250     FOR START:=1 TO 11-T
IMES DO.9255       IF NAME$(START)>NAME$
(START+1) THEN.9260         EXCHANGE(NAM
E$(START),NAME$(START+1)).9265       END
IF .9270     ENDFOR START.9275   ENDFOR 
TIMES.9280 ENDPROC BUBBLESORT.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL