BUBBLE TEXT
FILE INFORMATION
FILENAME(S): BUBBLE TEXT
FILE TYPE(S): PRG
FILE SIZE: 3.4K
FIRST SEEN: 2025-10-19 22:49:26
APPEARS ON: 1 disk(s)
FILE HASH
c4f2a9e1503e3a2497e35367b92a10325885d6fc389cd6f5be2f152de1b8b162
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GOLD DISK 3 | BUBBLE TEXT | PRG | Radd Maxx | 34 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 0A 00 8F 20 28 43 29 20 47 4F 4C 44 |....... (C) GOLD| 00000010: 20 44 49 53 4B 20 49 4E 43 00 3F 08 14 00 97 20 | DISK INC.?.... | 00000020: 35 33 32 38 31 2C 30 3A 20 97 20 35 33 32 38 30 |53281,0: . 53280| 00000030: 2C 30 3A 20 99 C7 28 31 34 29 3B C7 28 38 29 00 |,0: ..(14);.(8).| 00000040: 6F 08 1E 00 99 20 22 05 93 11 11 20 20 20 20 D0 |o.... ".... .| 00000050: 52 4F 47 52 41 4D 4D 49 4E 47 20 D0 55 5A 5A 4C |ROGRAMMING .UZZL| 00000060: 45 20 4F 46 20 54 48 45 20 CD 4F 4E 54 48 22 00 |E OF THE .ONTH".| 00000070: 9B 08 28 00 99 22 9C 20 20 20 20 C0 C0 C0 C0 C0 |..(..". .....| 00000080: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000090: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 C1 08 32 00 |.........."...2.| 000000A0: 99 22 05 11 11 20 20 20 20 20 20 20 20 20 20 20 |."... | 000000B0: 20 54 48 45 20 C2 55 42 42 4C 45 20 D3 4F 52 54 | THE .UBBLE .ORT| 000000C0: 22 00 E6 08 3C 00 99 22 9F 20 20 20 20 20 20 20 |"...<..". | 000000D0: 20 20 20 20 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ............| 000000E0: C0 C0 C0 C0 C0 22 00 14 09 46 00 99 22 11 20 20 |....."...F..". | 000000F0: B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000100: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000110: C0 C0 AE 22 00 41 09 50 00 99 22 20 20 DD 20 20 |...".A.P.." . | 00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 DD | .| 00000140: 22 00 70 09 5A 00 99 22 20 20 DD 20 20 05 3C C6 |".p.Z.." . .<.| 00000150: 31 3E 20 C2 41 43 4B 47 52 4F 55 4E 44 9F 20 20 |1> .ACKGROUND. | 00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 DD 22 | ."| 00000170: 00 9D 09 64 00 99 22 20 20 DD 20 20 20 20 20 20 |...d.." . | 00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000190: 20 20 20 20 20 20 20 20 20 20 20 DD 22 00 CC 09 | ."...| 000001A0: 6E 00 99 22 20 20 DD 20 20 05 3C C6 33 3E 20 C4 |n.." . .<.3> .| 000001B0: 45 53 43 52 49 50 54 49 4F 4E 20 4F 46 20 C1 4C |ESCRIPTION OF .L| 000001C0: 47 4F 52 49 54 48 4D 9F 20 20 DD 22 00 F9 09 78 |GORITHM. ."...x| 000001D0: 00 99 22 20 20 DD 20 20 20 20 20 20 20 20 20 20 |.." . | 000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001F0: 20 20 20 20 20 20 20 DD 22 00 28 0A 82 00 99 22 | .".(...."| 00000200: 20 20 DD 20 20 05 3C C6 35 3E 20 C7 52 41 50 48 | . .<.5> .RAPH| 00000210: 49 43 41 4C 20 53 4F 4C 55 54 49 4F 4E 9F 20 20 |ICAL SOLUTION. | 00000220: 20 20 20 20 20 20 DD 22 00 55 0A 8C 00 99 22 20 | .".U...." | 00000230: 20 DD 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | . | 00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000250: 20 20 20 DD 22 00 84 0A 96 00 99 22 20 20 DD 20 | ."......" . | 00000260: 20 05 3C C6 37 3E 20 C5 58 54 45 4E 44 45 44 20 | .<.7> .XTENDED | 00000270: 4E 4F 54 45 53 9F 20 20 20 20 20 20 20 20 20 20 |NOTES. | 00000280: 20 20 DD 22 00 B1 0A A0 00 99 22 20 20 DD 20 20 | ."......" . | 00000290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 DD | .| 000002B0: 22 00 E2 0A AA 00 99 22 20 20 DD 20 20 05 3C 5F |"......" . .<_| 000002C0: 3E 20 20 D2 45 54 55 52 4E 20 54 4F 20 81 C7 CF |> .ETURN TO ...| 000002D0: CC C4 A0 C4 C9 D3 CB 05 20 CD 45 4E 55 9F 20 20 |........ .ENU. | 000002E0: DD 22 00 0F 0B B4 00 99 22 20 20 DD 20 20 20 20 |."......" . | 000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 DD 22 00 | .".| 00000310: 3C 0B BE 00 99 22 20 20 AD C0 C0 C0 C0 C0 C0 C0 |<...." ........| 00000320: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000330: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 00 51 0B C8 |...........".Q..| 00000340: 00 A1 41 24 3A 8B 41 24 B3 B1 22 85 22 A7 34 33 |..A$:.A$..".".43| 00000350: 30 00 75 0B D2 00 99 20 22 93 05 11 20 20 20 20 |0.u.... "... | 00000360: 20 20 20 20 20 20 20 20 20 20 C2 41 43 4B 47 52 | .ACKGR| 00000370: 4F 55 4E 44 22 00 9A 0B DC 00 99 20 20 20 22 9F |OUND"...... ".| 00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 B7 B7 | ..| 00000390: B7 B7 B7 B7 B7 B7 B7 B7 05 22 00 C8 0B E6 00 99 |........."......| 000003A0: 22 11 D3 4F 52 54 49 4E 47 20 49 53 20 4F 4E 45 |"..ORTING IS ONE| 000003B0: 20 54 48 45 20 4D 4F 53 54 20 49 4D 50 4F 52 54 | THE MOST IMPORT| 000003C0: 41 4E 54 20 41 4E 44 22 00 F6 0B F0 00 99 22 43 |ANT AND"......"C| 000003D0: 4F 4D 4D 4F 4E 20 50 52 4F 43 45 53 53 45 53 20 |OMMON PROCESSES | 000003E0: 44 4F 4E 45 20 42 59 20 43 4F 4D 50 55 54 45 52 |DONE BY COMPUTER| 000003F0: 53 2E 20 C9 54 22 00 22 0C FA 00 99 22 49 4E 56 |S. .T"."...."INV| 00000400: 4F 4C 56 45 53 20 54 41 4B 49 4E 47 20 41 20 47 |OLVES TAKING A G| 00000410: 52 4F 55 50 20 4F 46 20 49 54 45 4D 53 20 41 4E |ROUP OF ITEMS AN| 00000420: 44 22 00 4F 0C 04 01 99 22 52 45 41 52 52 41 4E |D".O...."REARRAN| 00000430: 47 49 4E 47 20 54 48 45 4D 20 41 43 43 4F 52 44 |GING THEM ACCORD| 00000440: 49 4E 47 20 54 4F 20 43 45 52 54 41 49 4E 22 00 |ING TO CERTAIN".| 00000450: 7D 0C 0E 01 99 22 52 55 4C 45 53 2E 20 20 C6 4F |}...."RULES. .O| 00000460: 52 20 45 58 41 4D 50 4C 45 2C 20 41 20 4C 49 53 |R EXAMPLE, A LIS| 00000470: 54 20 4F 46 20 4E 55 4D 42 45 52 53 22 00 AA 0C |T OF NUMBERS"...| 00000480: 18 01 99 22 4C 49 4B 45 20 3A 20 32 20 34 20 37 |..."LIKE : 2 4 7| 00000490: 20 39 20 31 35 20 31 37 20 32 37 20 35 30 20 49 | 9 15 17 27 50 I| 000004A0: 53 20 53 41 49 44 20 54 4F 22 00 D8 0C 22 01 99 |S SAID TO"..."..| 000004B0: 22 42 45 20 53 4F 52 54 45 44 20 49 4E 20 41 53 |"BE SORTED IN AS| 000004C0: 43 45 4E 44 49 4E 47 20 28 46 52 4F 4D 20 4C 4F |CENDING (FROM LO| 000004D0: 57 45 53 54 20 54 4F 22 00 EF 0C 2C 01 99 22 48 |WEST TO"...,.."H| 000004E0: 49 47 48 45 53 54 29 20 4F 52 44 45 52 2E 22 00 |IGHEST) ORDER.".| 000004F0: 1B 0D 36 01 99 22 11 CF 55 52 20 50 52 4F 42 4C |..6.."..UR PROBL| 00000500: 45 4D 20 54 48 49 53 20 4D 4F 4E 54 48 20 49 53 |EM THIS MONTH IS| 00000510: 20 54 4F 20 46 49 4E 44 20 41 22 00 4A 0D 40 01 | TO FIND A".J.@.| 00000520: 99 22 41 4C 47 4F 52 49 54 48 4D 20 28 4F 52 20 |."ALGORITHM (OR | 00000530: 52 4F 55 54 49 4E 45 29 20 54 48 41 54 20 57 49 |ROUTINE) THAT WI| 00000540: 4C 4C 20 54 41 4B 45 20 41 22 00 76 0D 4A 01 99 |LL TAKE A".v.J..| 00000550: 22 4E 4F 4E 20 53 4F 52 54 45 44 20 47 52 4F 55 |"NON SORTED GROU| 00000560: 50 20 4F 46 20 4E 55 4D 42 45 52 53 20 41 4E 44 |P OF NUMBERS AND| 00000570: 20 53 4F 52 54 22 00 A1 0D 54 01 99 22 54 48 45 | SORT"...T.."THE| 00000580: 4D 2E 20 20 C1 20 43 4F 4D 4D 4F 4E 20 41 4C 47 |M. . COMMON ALG| 00000590: 4F 52 49 54 48 4D 20 46 4F 52 20 44 4F 49 4E 47 |ORITHM FOR DOING| 000005A0: 22 00 CB 0D 5E 01 99 22 45 58 41 43 54 4C 59 20 |"...^.."EXACTLY | 000005B0: 54 48 49 53 20 49 53 20 54 48 45 20 27 42 55 42 |THIS IS THE 'BUB| 000005C0: 42 4C 45 20 53 4F 52 54 27 2E 22 00 F6 0D 68 01 |BLE SORT'."...h.| 000005D0: 99 22 11 20 20 20 20 20 B0 C0 C0 C0 C0 C0 C0 C0 |.". ........| 000005E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000005F0: C0 C0 C0 C0 AE 22 00 20 0E 72 01 99 22 20 20 20 |.....". .r.." | 00000600: 20 20 DD 20 3C C6 33 3E 20 C4 45 53 43 52 49 50 | . <.3> .ESCRIP| 00000610: 54 49 4F 4E 20 4F 46 20 50 55 5A 5A 4C 45 DD 22 |TION OF PUZZLE."| 00000620: 00 4A 0E 7C 01 99 22 20 20 20 20 20 DD 20 3C 5F |.J.|.." . <_| 00000630: 3E 20 20 C7 4F 4C 44 A0 C4 49 53 4B 20 4D 45 4E |> .OLD..ISK MEN| 00000640: 55 20 20 20 20 20 20 20 DD 22 00 74 0E 86 01 99 |U .".t....| 00000650: 22 20 20 20 20 20 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 |" ..........| 00000660: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000670: C0 C0 BD 22 00 88 0E 90 01 A1 41 24 3A 8B 41 24 |..."......A$:.A$| 00000680: B2 22 86 22 A7 34 34 30 00 99 0E 9A 01 8B 41 24 |.".".440......A$| 00000690: B2 22 5F 22 A7 34 30 31 30 00 A3 0E A4 01 89 20 |."_".4010...... | 000006A0: 34 30 30 00 B4 0E AE 01 8B 41 24 B3 B1 22 86 22 |400......A$.."."| 000006B0: A7 36 38 30 00 DD 0E B8 01 99 22 93 05 20 20 20 |.680......".. | 000006C0: 20 20 20 20 C4 45 53 43 52 49 50 54 49 4F 4E 20 | .ESCRIPTION | 000006D0: 4F 46 20 C1 4C 47 4F 52 49 54 48 4D 22 00 06 0F |OF .LGORITHM"...| 000006E0: C2 01 99 22 9F 20 20 20 20 20 20 20 B7 B7 B7 B7 |...". ....| 000006F0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................| 00000700: B7 B7 B7 B7 05 22 00 37 0F CC 01 99 22 D4 48 45 |.....".7....".HE| 00000710: 20 27 42 55 42 42 4C 45 27 20 41 4C 47 4F 52 49 | 'BUBBLE' ALGORI| 00000720: 54 48 4D 20 46 4F 52 20 53 4F 52 54 49 4E 47 20 |THM FOR SORTING | 00000730: 41 20 53 45 54 22 3B 00 65 0F D6 01 99 22 4F 46 |A SET";.e...."OF| 00000740: 20 CE 20 4E 55 4D 42 45 52 53 20 49 53 20 47 49 | . NUMBERS IS GI| 00000750: 56 45 4E 20 42 59 20 54 48 45 20 46 4F 4C 4C 4F |VEN BY THE FOLLO| 00000760: 57 49 4E 47 22 00 74 0F E0 01 99 22 53 54 45 50 |WING".t...."STEP| 00000770: 53 20 3A 22 00 8B 0F EA 01 99 22 11 31 2E 20 20 |S :"......".1. | 00000780: D3 45 54 20 CA 20 54 4F 20 CE 22 00 A2 0F F4 01 |.ET . TO .".....| 00000790: 99 22 32 2E 20 20 D3 45 54 20 C9 20 54 4F 20 31 |."2. .ET . TO 1| 000007A0: 2E 22 00 D0 0F FE 01 99 22 33 2E 20 20 C3 4F 4D |."......"3. .OM| 000007B0: 50 41 52 45 20 54 48 45 20 C9 27 54 48 20 4E 55 |PARE THE .'TH NU| 000007C0: 4D 42 45 52 20 49 4E 20 54 48 45 20 53 45 54 22 |MBER IN THE SET"| 000007D0: 00 F1 0F 08 02 99 22 20 20 20 20 54 4F 20 54 48 |......" TO TH| 000007E0: 45 20 C9 2B 31 27 54 48 20 4E 55 4D 42 45 52 2E |E .+1'TH NUMBER.| 000007F0: 22 00 1E 10 12 02 99 22 34 2E 20 20 C9 46 20 54 |"......"4. .F T| 00000800: 48 45 20 C9 27 54 48 20 4E 55 4D 42 45 52 20 49 |HE .'TH NUMBER I| 00000810: 53 20 4C 41 52 47 45 52 20 54 48 45 4E 22 00 43 |S LARGER THEN".C| 00000820: 10 1C 02 99 22 20 20 20 20 45 58 43 48 41 4E 47 |...." EXCHANG| 00000830: 45 20 54 48 45 49 52 20 50 4F 53 49 54 49 4F 4E |E THEIR POSITION| 00000840: 53 2E 22 00 5F 10 26 02 99 22 35 2E 20 20 C9 4E |S."._.&.."5. .N| 00000850: 43 52 45 4D 45 4E 54 20 C9 20 42 59 20 31 22 00 |CREMENT . BY 1".| 00000860: 90 10 30 02 99 22 36 2E 20 20 C9 46 20 C9 20 49 |..0.."6. .F . I| 00000870: 53 20 4C 45 53 53 20 54 48 41 4E 20 CA 20 54 48 |S LESS THAN . TH| 00000880: 45 4E 20 47 4F 54 4F 20 53 54 45 50 20 33 22 3B |EN GOTO STEP 3";| 00000890: 00 AD 10 3A 02 99 22 37 2E 20 20 C4 45 43 52 45 |...:.."7. .ECRE| 000008A0: 4D 45 4E 54 20 CA 20 42 59 20 31 2E 22 00 DB 10 |MENT . BY 1."...| 000008B0: 44 02 99 22 38 2E 20 20 C9 46 20 CA 20 49 53 20 |D.."8. .F . IS | 000008C0: 47 52 45 41 54 45 52 20 54 48 41 4E 20 31 20 47 |GREATER THAN 1 G| 000008D0: 4F 54 4F 20 53 54 45 50 20 32 22 00 FD 10 4E 02 |OTO STEP 2"...N.| 000008E0: 99 22 20 20 20 20 C9 46 20 4E 4F 54 2C 20 59 4F |." .F NOT, YO| 000008F0: 55 20 41 52 45 20 44 4F 4E 45 20 21 21 00 2F 11 |U ARE DONE !!./.| 00000900: 58 02 99 22 11 D4 4F 20 47 45 54 20 54 48 45 20 |X.."..O GET THE | 00000910: 48 41 4E 47 20 4F 46 20 54 48 49 53 2C 20 54 41 |HANG OF THIS, TA| 00000920: 4B 45 20 41 20 47 52 4F 55 50 20 4F 46 22 3B 00 |KE A GROUP OF";.| 00000930: 60 11 62 02 99 22 43 41 52 44 53 20 4F 46 20 54 |`.b.."CARDS OF T| 00000940: 48 45 20 53 41 4D 45 20 53 55 49 54 20 28 49 45 |HE SAME SUIT (IE| 00000950: 2E 20 41 43 45 20 4F 46 20 43 4C 55 42 53 22 3B |. ACE OF CLUBS";| 00000960: 00 8F 11 6C 02 99 22 54 4F 20 31 30 20 4F 46 20 |...l.."TO 10 OF | 00000970: 43 4C 55 42 53 29 2C 20 53 48 55 46 46 4C 45 20 |CLUBS), SHUFFLE | 00000980: 54 48 45 4D 2C 20 41 4E 44 20 54 48 45 4E 22 00 |THEM, AND THEN".| 00000990: BD 11 76 02 99 22 46 4F 4C 4C 4F 57 20 54 48 45 |..v.."FOLLOW THE| 000009A0: 20 41 42 4F 56 45 20 53 54 45 50 53 20 54 4F 20 | ABOVE STEPS TO | 000009B0: 53 4F 52 54 20 54 48 45 4D 20 21 21 22 00 EC 11 |SORT THEM !!"...| 000009C0: 80 02 99 22 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |..."............| 000009D0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................| 000009E0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 22 00 14 12 8A |..........."....| 000009F0: 02 99 20 22 9F 20 20 20 20 20 20 20 48 49 54 20 |.. ". HIT | 00000A00: 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 |ANY KEY TO CONTI| 00000A10: 4E 55 45 22 00 27 12 94 02 A1 41 24 3A 8B 41 24 |NUE".'....A$:.A$| 00000A20: B2 22 22 A7 36 36 30 00 2F 12 9E 02 89 32 30 00 |."".660./....20.| 00000A30: 40 12 A8 02 8B 41 24 B3 B1 22 87 22 A7 37 34 30 |@....A$..".".740| 00000A40: 00 71 12 B2 02 99 20 22 93 11 11 11 11 11 11 11 |.q.... "........| 00000A50: 11 11 11 11 20 20 20 20 20 20 20 20 20 20 20 20 |.... | 00000A60: 4C 4F 41 44 49 4E 47 20 53 4F 4C 55 54 49 4F 4E |LOADING SOLUTION| 00000A70: 22 00 A6 12 BC 02 99 22 90 13 11 11 11 4C 4F 41 |"......".....LOA| 00000A80: 44 22 3B C7 28 33 34 29 3B 22 42 55 42 42 4C 45 |D";.(34);"BUBBLE| 00000A90: 20 53 4F 4C 55 54 49 4F 4E 22 3B C7 28 33 34 29 | SOLUTION";.(34)| 00000AA0: 3B 22 2C 38 13 22 00 D2 12 C6 02 97 36 33 31 2C |;",8."......631,| 00000AB0: 31 33 3A 97 36 33 32 2C 38 32 3A 97 36 33 33 2C |13:.632,82:.633,| 00000AC0: 38 35 3A 97 36 33 34 2C 37 38 3A 97 36 33 35 2C |85:.634,78:.635,| 00000AD0: 31 33 00 DD 12 D0 02 97 31 39 38 2C 35 00 E3 12 |13......198,5...| 00000AE0: DA 02 80 00 F4 12 E4 02 8B 41 24 B3 B1 22 88 22 |.........A$.."."| 00000AF0: A7 39 33 30 00 19 13 EE 02 99 20 22 93 05 20 20 |.930...... ".. | 00000B00: 20 20 20 20 20 20 20 20 20 20 C5 58 54 45 4E 44 | .XTEND| 00000B10: 45 44 20 CE 4F 54 45 53 22 00 3E 13 F8 02 99 20 |ED .OTES".>.... | 00000B20: 22 9F 20 20 20 20 20 20 20 20 20 20 20 20 A3 A3 |". ..| 00000B30: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 05 22 00 6D |.............".m| 00000B40: 13 02 03 99 22 11 C3 41 4E 20 59 4F 55 20 46 49 |...."..AN YOU FI| 00000B50: 47 55 52 45 20 4F 55 54 20 57 48 59 20 49 54 27 |GURE OUT WHY IT'| 00000B60: 53 20 43 41 4C 4C 45 44 20 54 48 45 22 00 84 13 |S CALLED THE"...| 00000B70: 0C 03 99 22 27 C2 D5 C2 C2 CC C5 27 20 53 4F 52 |..."'......' SOR| 00000B80: 54 20 3F 22 00 B4 13 16 03 99 22 11 D4 48 45 20 |T ?"......"..HE | 00000B90: C2 C1 D3 C9 C3 20 56 45 52 53 49 4F 4E 20 4F 46 |..... VERSION OF| 00000BA0: 20 54 48 49 53 20 41 4C 47 4F 52 49 54 48 4D 20 | THIS ALGORITHM | 00000BB0: 43 41 4E 22 00 E2 13 20 03 99 22 42 45 20 46 4F |CAN"... .."BE FO| 00000BC0: 55 4E 44 20 4F 4E 20 54 48 49 53 20 44 49 53 4B |UND ON THIS DISK| 00000BD0: 20 49 4E 20 41 20 46 49 4C 45 20 43 41 4C 4C 45 | IN A FILE CALLE| 00000BE0: 44 22 00 10 14 2A 03 99 22 27 42 55 42 42 4C 45 |D"...*.."'BUBBLE| 00000BF0: 27 2E 20 20 D9 4F 55 20 53 48 4F 55 4C 44 20 4C |'. .OU SHOULD L| 00000C00: 4F 41 44 20 49 54 20 41 4E 44 20 54 41 4B 45 22 |OAD IT AND TAKE"| 00000C10: 00 25 14 34 03 99 22 41 20 4C 4F 4F 4B 20 41 54 |.%.4.."A LOOK AT| 00000C20: 20 49 54 2E 22 00 55 14 3E 03 99 22 11 D4 48 45 | IT.".U.>.."..HE| 00000C30: 52 45 20 41 52 45 20 54 57 4F 20 53 49 4D 50 4C |RE ARE TWO SIMPL| 00000C40: 45 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 53 20 |E MODIFICATIONS | 00000C50: 54 48 41 54 22 00 86 14 48 03 99 22 57 4F 55 4C |THAT"...H.."WOUL| 00000C60: 44 20 52 45 41 4C 4C 59 20 53 50 45 45 44 20 55 |D REALLY SPEED U| 00000C70: 50 20 54 48 49 53 20 52 4F 55 54 49 4E 45 2E 20 |P THIS ROUTINE. | 00000C80: 20 C3 41 4E 22 3B 00 AC 14 52 03 99 22 59 4F 55 | .AN";...R.."YOU| 00000C90: 20 54 48 49 4E 4B 20 4F 46 20 57 48 41 54 20 54 | THINK OF WHAT T| 00000CA0: 48 45 59 20 4D 41 59 20 42 45 3F 22 00 DE 14 5C |HEY MAY BE?"...\| 00000CB0: 03 99 22 11 D4 48 45 52 45 20 49 53 20 41 4E 4F |.."..HERE IS ANO| 00000CC0: 54 48 45 52 20 46 49 4C 45 20 4F 4E 20 54 48 49 |THER FILE ON THI| 00000CD0: 53 20 44 49 53 4B 20 4E 41 4D 45 44 22 3B 00 0F |S DISK NAMED";..| 00000CE0: 15 66 03 99 22 27 46 41 53 54 20 42 55 42 42 4C |.f.."'FAST BUBBL| 00000CF0: 45 27 20 57 48 49 43 48 20 49 4D 50 4C 45 4D 45 |E' WHICH IMPLEME| 00000D00: 4E 54 53 20 54 48 45 53 45 20 54 57 4F 22 3B 00 |NTS THESE TWO";.| 00000D10: 3D 15 70 03 99 22 4D 4F 44 49 46 49 43 41 54 49 |=.p.."MODIFICATI| 00000D20: 4F 4E 53 2E 20 20 D9 4F 55 20 43 41 4E 20 54 41 |ONS. .OU CAN TA| 00000D30: 4B 45 20 41 20 4C 4F 4F 4B 20 41 54 22 00 56 15 |KE A LOOK AT".V.| 00000D40: 7A 03 99 22 54 48 41 54 20 49 46 20 59 4F 55 20 |z.."THAT IF YOU | 00000D50: 57 41 4E 54 2E 22 00 81 15 84 03 99 20 22 11 11 |WANT."...... "..| 00000D60: 9F 20 20 20 20 20 20 20 20 48 49 54 20 41 4E 59 |. HIT ANY| 00000D70: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE| 00000D80: 22 00 94 15 8E 03 A1 41 24 3A 8B 41 24 B2 22 22 |"......A$:.A$.""| 00000D90: A7 39 31 30 00 9C 15 98 03 89 32 30 00 AD 15 A2 |.910......20....| 00000DA0: 03 8B 41 24 B3 B1 22 5F 22 A7 32 30 30 00 C0 15 |..A$.."_".200...| 00000DB0: AC 03 99 20 22 93 22 3A 20 9E 20 34 39 31 35 32 |... ".": . 49152| 00000DC0: 00 00 00 |... |
....... (C) GOLD DISK INC.?.... 53281,0:
. 53280,0: .G(14);G(8).O.... ".... P
ROGRAMMING PUZZLE OF THE MONTH"...(..".
...............................".A.2.
."... THE BUBBLE SORT"...<.."
. ................."...F..".
...................................".A.P
.." . .
".P.Z.." . .<F1> BACKGROUND.
."...D.." .
.".L.N.." . .<F3> DESCRIPTI
ON OF ALGORITHM. ."...X.." .
.".(...." . .<F
5> GRAPHICAL SOLUTION. .".U...."
. ."...
..." . .<F7> EXTENDED NOTES.
."... .." .
."......" . .<_> RETURN TO .GO
LD DISK. MENU. ."......" .
.".<...." ........
...........................".Q.H..A$:.A$
..".".430.U.R.. "... BACKGR
OUND"...... ". ..........
.".H....".SORTING IS ONE THE MOST IMPORT
ANT AND"......"COMMON PROCESSES DONE BY
COMPUTERS. IT"."...."INVOLVES TAKING A G
ROUP OF ITEMS AND".O...."REARRANGING THE
M ACCORDING TO CERTAIN".}...."RULES. FO
R EXAMPLE, A LIST OF NUMBERS"......"LIKE
: 2 4 7 9 15 17 27 50 IS SAID TO".X."..
"BE SORTED IN ASCENDING (FROM LOWEST TO"
...,.."HIGHEST) ORDER."...6..".OUR PROBL
EM THIS MONTH IS TO FIND A".J.@.."ALGORI
THM (OR ROUTINE) THAT WILL TAKE A".V.J..
"NON SORTED GROUP OF NUMBERS AND SORT"..
.T.."THEM. A COMMON ALGORITHM FOR DOING
".K.^.."EXACTLY THIS IS THE 'BUBBLE SORT
'."...H..". ........................
.....". .R.." . <F3> DESCRIPTION OF
PUZZLE.".J.|.." . <_> GOLD DISK MEN
U .".T...." ..................
..........."......A$:.A$.".".440......A$
."_".4010...... 400......A$..".".680....
..".. DESCRIPTION OF ALGORITHM"...
B..". .........................".7
.L.."THE 'BUBBLE' ALGORITHM FOR SORTING
A SET";.E.V.."OF N NUMBERS IS GIVEN BY T
HE FOLLOWING".T...."STEPS :"......".1.
SET J TO N"......"2. SET I TO 1.".P....
"3. COMPARE THE I'TH NUMBER IN THE SET"
......" TO THE I+1'TH NUMBER."......"
4. IF THE I'TH NUMBER IS LARGER THEN".C
...." EXCHANGE THEIR POSITIONS."._.&.
."5. INCREMENT I BY 1"...0.."6. IF I I
S LESS THAN J THEN GOTO STEP 3";...:.."7
. DECREMENT J BY 1."...D.."8. IF J IS
GREATER THAN 1 GOTO STEP 2"...N.." IF
NOT, YOU ARE DONE !!./.X..".TO GET THE
HANG OF THIS, TAKE A GROUP OF";.`.B.."CA
RDS OF THE SAME SUIT (IE. ACE OF CLUBS";
...L.."TO 10 OF CLUBS), SHUFFLE THEM, AN
D THEN"...V.."FOLLOW THE ABOVE STEPS TO
SORT THEM !!"......"....................
..................."...... ". HIT
ANY KEY TO CONTINUE".'....A$:.A$."".660.
/....20.@....A$..".".740.Q.... "........
.... LOADING SOLUTION"......"
.....LOAD";G(34);"BUBBLE SOLUTION";G(34)
;",8.".R.F..631,13:.632,82:.633,85:.634,
78:.635,13...P..198,5...Z........A$.."."
.930...... ".. EXTENDED NOTES
".>.... ". ...............".M
....".CAN YOU FIGURE OUT WHY IT'S CALLED
THE"......"'BUBBLE' SORT ?"......".THE
BASIC VERSION OF THIS ALGORITHM CAN"...
.."BE FOUND ON THIS DISK IN A FILE CALLE
D"...*.."'BUBBLE'. YOU SHOULD LOAD IT A
ND TAKE".%.4.."A LOOK AT IT.".U.>..".THE
RE ARE TWO SIMPLE MODIFICATIONS THAT"...
H.."WOULD REALLY SPEED UP THIS ROUTINE.
CAN";...R.."YOU THINK OF WHAT THEY MAY
BE?"...\..".THERE IS ANOTHER FILE ON THI
S DISK NAMED";...F.."'FAST BUBBLE' WHICH
IMPLEMENTS THESE TWO";.=.P.."MODIFICATI
ONS. YOU CAN TAKE A LOOK AT".V.Z.."THAT
IF YOU WANT."...... "... HIT ANY
KEY TO CONTINUE"......A$:.A$."".910....
..20......A$.."_".200...... ".": . 49152
...
> CLICK IMAGE PREVIEW FOR FULL MODAL