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

FAST BUBBLE

FILE INFORMATION

FILENAME(S): FAST BUBBLE

FILE TYPE(S): PRG

FILE SIZE: 714b

FIRST SEEN: 2025-10-19 22:49:26

APPEARS ON: 1 disk(s)

FILE HASH

70b8fce59d1ec6bee39bce0913a62e0651bff0a261efccaac6694f3fd1ad2a88

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
GOLD DISK 3 FAST BUBBLE PRG Radd Maxx 1 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0A 08 64 00 4E B2  31 30 00 15 08 6E 00 86  |....d.N.10...n..|
00000010: 20 41 28 4E 29 00 29 08  78 00 81 49 B2 31 A4 4E  | A(N).).x..I.1.N|
00000020: 3A 87 20 41 28 49 29 3A  82 00 43 08 82 00 83 20  |:. A(I):..C.... |
00000030: 35 2C 32 2C 34 2C 30 2C  38 2C 37 2C 33 2C 39 2C  |5,2,4,0,8,7,3,9,|
00000040: 31 2C 36 00 51 08 8C 00  99 22 42 45 46 4F 52 45  |1,6.Q...."BEFORE|
00000050: 22 00 69 08 96 00 81 49  B2 31 A4 4E 3A 99 41 28  |".i....I.1.N:.A(|
00000060: 49 29 3B 22 20 22 3B 3A  82 00 8D 08 84 03 8F 20  |I);" ";:....... |
00000070: 2A 2A 2A 2A 2A 2A 20 54  48 45 20 27 46 41 53 54  |****** THE 'FAST|
00000080: 20 42 55 42 42 4C 45 27  20 53 4F 52 54 00 93 08  | BUBBLE' SORT...|
00000090: 89 03 8F 00 A4 08 8E 03  8F 20 2A 2A 2A 2A 2A 4D  |......... *****M|
000000A0: 4F 44 20 31 00 CA 08 98  03 8F 20 49 46 20 54 48  |OD 1...... IF TH|
000000B0: 45 52 45 20 41 52 45 20  4E 4F 20 49 4E 54 45 52  |ERE ARE NO INTER|
000000C0: 43 48 41 4E 47 45 53 20  49 4E 00 ED 08 A2 03 8F  |CHANGES IN......|
000000D0: 20 41 20 50 41 53 53 20  54 48 45 4E 20 59 4F 55  | A PASS THEN YOU|
000000E0: 20 41 52 45 20 44 4F 4E  45 20 21 21 21 00 0F 09  | ARE DONE !!!...|
000000F0: AC 03 8F 20 54 48 55 53  2C 20 4E 4F 20 4E 45 45  |... THUS, NO NEE|
00000100: 44 20 54 4F 20 44 4F 20  41 4E 59 4D 4F 52 45 00  |D TO DO ANYMORE.|
00000110: 1D 09 B6 03 8F 20 50 41  53 53 45 53 2E 00 2E 09  |..... PASSES....|
00000120: C0 03 8F 20 2A 2A 2A 2A  2A 4D 4F 44 20 32 00 54  |... *****MOD 2.T|
00000130: 09 CA 03 8F 20 52 45 43  4F 52 44 20 54 48 45 20  |.... RECORD THE |
00000140: 50 4F 53 49 54 49 4F 4E  20 4F 46 20 54 48 45 20  |POSITION OF THE |
00000150: 4C 41 53 54 00 7A 09 D4  03 8F 20 49 4E 54 45 52  |LAST.z.... INTER|
00000160: 43 48 41 4E 47 45 2E 20  54 48 45 20 4E 45 58 54  |CHANGE. THE NEXT|
00000170: 20 50 41 53 53 20 4F 4E  4C 59 00 9E 09 DE 03 8F  | PASS ONLY......|
00000180: 20 48 41 53 20 54 4F 20  47 4F 20 55 50 54 4F 20  | HAS TO GO UPTO |
00000190: 54 48 45 52 45 2C 20 49  4E 53 54 45 41 44 00 BA  |THERE, INSTEAD..|
000001A0: 09 E3 03 8F 20 4F 46 20  41 4C 4C 20 54 48 45 20  |.... OF ALL THE |
000001B0: 57 41 59 20 54 4F 20 4E  2D 49 00 C0 09 E4 03 8F  |WAY TO N-I......|
000001C0: 00 CF 09 E8 03 4C 41 53  54 20 B2 20 4E AB 31 00  |.....LAST . N.1.|
000001D0: DE 09 F2 03 43 48 41 4E  47 45 20 B2 20 30 00 F1  |....CHANGE . 0..|
000001E0: 09 FC 03 81 20 4A 20 B2  20 31 20 A4 20 4C 41 53  |.... J . 1 . LAS|
000001F0: 54 00 0D 0A 06 04 8B 20  41 28 4A 29 20 B3 B2 20  |T...... A(J) .. |
00000200: 41 28 4A AA 31 29 20 89  20 31 30 37 30 00 2A 0A  |A(J.1) . 1070.*.|
00000210: 0B 04 43 48 41 4E 47 45  20 B2 20 AB 31 20 3A 20  |..CHANGE . .1 : |
00000220: 4C 41 53 54 20 B2 20 4A  AB 31 00 37 0A 10 04 54  |LAST . J.1.7...T|
00000230: 20 B2 20 41 28 4A 29 00  49 0A 1A 04 41 28 4A 29  | . A(J).I...A(J)|
00000240: 20 B2 20 41 28 4A AA 31  29 00 58 0A 24 04 41 28  | . A(J.1).X.$.A(|
00000250: 4A AA 31 29 20 B2 20 54  00 60 0A 2E 04 82 20 4A  |J.1) . T.`.... J|
00000260: 00 7D 0A 38 04 8B 20 43  48 41 4E 47 45 20 AF 20  |.}.8.. CHANGE . |
00000270: 4C 41 53 54 B1 30 20 A7  20 31 30 31 30 00 9F 0A  |LAST.0 . 1010...|
00000280: 4C 04 8F 20 2A 2A 2A 2A  2A 2A 20 45 4E 44 20 4F  |L.. ****** END O|
00000290: 46 20 27 46 41 53 54 20  42 55 42 42 4C 45 27 00  |F 'FAST BUBBLE'.|
000002A0: AF 0A 56 04 99 3A 99 22  11 41 46 54 45 52 22 00  |..V..:.".AFTER".|
000002B0: C7 0A 60 04 81 49 B2 31  A4 4E 3A 99 41 28 49 29  |..`..I.1.N:.A(I)|
000002C0: 3B 22 20 22 3B 3A 82 00  00 00                    |;" ";:....      |
....D.N.10...N.. A(N).).X..I.1.N:. A(I):
..C.... 5,2,4,0,8,7,3,9,1,6.Q...."BEFORE
".I....I.1.N:.A(I);" ";:....... ****** T
HE 'FAST BUBBLE' SORT............ *****M
OD 1.J.... IF THERE ARE NO INTERCHANGES 
IN...... A PASS THEN YOU ARE DONE !!!...
... THUS, NO NEED TO DO ANYMORE...... PA
SSES....... *****MOD 2.T.J.. RECORD THE 
POSITION OF THE LAST.Z.T.. INTERCHANGE. 
THE NEXT PASS ONLY...... HAS TO GO UPTO 
THERE, INSTEAD...... OF ALL THE WAY TO N
-I.......O...LAST . N.1.....CHANGE . 0..
.... J . 1 . LAST...... A(J) .. A(J.1) .
 1070.*...CHANGE . .1 : LAST . J.1.7...T
 . A(J).I...A(J) . A(J.1).X.$.A(J.1) . T
.`.... J.}.8.. CHANGE . LAST.0 . 1010...
L.. ****** END OF 'FAST BUBBLE'...V..:."
.AFTER".G.`..I.1.N:.A(I);" ";:....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL