BETTER BUBBLE
FILE INFORMATION
FILENAME(S): BETTER BUBBLE
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-11-30 18:12:17
APPEARS ON: 1 disk(s)
FILE HASH
090b04155a17ed9f1d5268e5a88136ed59c4d2259d9a3ac5fb16a80823f49a23
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 37 S 3 | BETTER BUBBLE | PRG | Sailor, Ganheden | 7 | 14 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 0A 00 8D 36 30 31 30 30 3A 9C 00 14 |.......60100:...|
00000010: 08 14 00 3A 00 3B 08 1E 00 4E B2 35 30 3A 20 20 |...:.;...N.50: |
00000020: 20 20 20 20 20 3A 8F 20 20 4E 55 4D 42 45 52 20 | :. NUMBER |
00000030: 4F 46 20 45 4C 45 4D 45 4E 54 53 00 5D 08 28 00 |OF ELEMENTS.].(.|
00000040: 86 20 41 28 4E 29 3A 20 20 20 3A 8F 20 20 41 52 |. A(N): :. AR|
00000050: 52 41 59 20 4F 46 20 52 41 4E 44 4F 4D 00 63 08 |RAY OF RANDOM.c.|
00000060: 32 00 3A 00 79 08 50 00 4E 41 24 28 31 29 B2 22 |2.:.y.P.NA$(1)."|
00000070: 53 54 41 4E 44 41 52 44 22 00 8C 08 51 00 4E 41 |STANDARD"...Q.NA|
00000080: 24 28 32 29 B2 22 46 4C 41 47 53 22 00 A1 08 52 |$(2)."FLAGS"...R|
00000090: 00 4E 41 24 28 33 29 B2 22 57 52 49 4E 4B 4C 45 |.NA$(3)."WRINKLE|
000000A0: 22 00 B5 08 53 00 4E 41 24 28 34 29 B2 22 53 49 |"...S.NA$(4)."SI|
000000B0: 4D 50 4C 45 22 00 CB 08 54 00 4E 41 24 28 35 29 |MPLE"...T.NA$(5)|
000000C0: B2 22 4D 2D 53 45 41 52 43 48 22 00 D5 08 5A 00 |."M-SEARCH"...Z.|
000000D0: 89 35 30 30 30 00 DB 08 61 00 3A 00 FA 08 62 00 |.5000...a.:...b.|
000000E0: 3A 20 20 20 20 20 20 20 20 53 C0 44 41 52 44 20 |: S.DARD |
000000F0: 42 55 42 42 4C 45 20 53 B0 54 00 00 09 63 00 3A |BUBBLE S.T...c.:|
00000100: 00 10 09 64 00 81 49 B2 4E AB 31 A4 31 A9 AB 31 |...d..I.N.1.1..1|
00000110: 00 1B 09 6E 00 81 4A B2 31 A4 49 00 31 09 78 00 |...n..J.1.I.1.x.|
00000120: 8B 41 28 4A 29 B3 B2 41 28 4A AA 31 29 A7 31 34 |.A(J)..A(J.1).14|
00000130: 30 00 51 09 82 00 54 B2 41 28 4A 29 3A 41 28 4A |0.Q...T.A(J):A(J|
00000140: 29 B2 41 28 4A AA 31 29 3A 41 28 4A AA 31 29 B2 |).A(J.1):A(J.1).|
00000150: 54 00 58 09 8C 00 82 4A 00 5F 09 96 00 82 49 00 |T.X....J._....I.|
00000160: 65 09 A0 00 8E 00 6B 09 C5 00 3A 00 89 09 C6 00 |e.....k...:.....|
00000170: 3A 20 20 20 20 20 20 20 20 46 4C 41 47 53 20 42 |: FLAGS B|
00000180: 55 42 42 4C 45 20 53 B0 54 00 8F 09 C7 00 3A 00 |UBBLE S.T.....:.|
00000190: 9F 09 C8 00 81 49 B2 4E AB 31 A4 31 A9 AB 31 00 |.....I.N.1.1..1.|
000001A0: A7 09 CD 00 46 B2 31 00 B2 09 D2 00 81 4A B2 31 |....F.1......J.1|
000001B0: A4 49 00 C8 09 DC 00 8B 41 28 4A 29 B3 B2 41 28 |.I......A(J)..A(|
000001C0: 4A AA 31 29 A7 32 34 30 00 D0 09 E1 00 46 B2 30 |J.1).240.....F.0|
000001D0: 00 F0 09 E6 00 54 B2 41 28 4A 29 3A 41 28 4A 29 |.....T.A(J):A(J)|
000001E0: B2 41 28 4A AA 31 29 3A 41 28 4A AA 31 29 B2 54 |.A(J.1):A(J.1).T|
000001F0: 00 F7 09 F0 00 82 4A 00 02 0A F5 00 8B 46 A7 32 |......J......F.2|
00000200: 36 30 00 09 0A FA 00 82 49 00 0F 0A 04 01 8E 00 |60......I.......|
00000210: 15 0A 29 01 3A 00 33 0A 2A 01 3A 20 20 20 20 20 |..).:.3.*.: |
00000220: 20 57 52 49 4E 4B 4C 45 20 42 55 42 42 4C 45 20 | WRINKLE BUBBLE |
00000230: 53 B0 54 00 39 0A 2B 01 3A 00 46 0A 2C 01 81 49 |S.T.9.+.:.F.,..I|
00000240: B2 31 A4 4E AB 31 00 5C 0A 36 01 8B 41 28 49 29 |.1.N.1.\.6..A(I)|
00000250: B3 B2 41 28 49 AA 31 29 A7 33 36 30 00 6A 0A 40 |..A(I.1).360.j.@|
00000260: 01 81 4A B2 49 A4 31 A9 AB 31 00 80 0A 4A 01 8B |..J.I.1..1...J..|
00000270: 41 28 4A 29 B3 B2 41 28 4A AA 31 29 A7 33 36 30 |A(J)..A(J.1).360|
00000280: 00 A0 0A 54 01 54 B2 41 28 4A 29 3A 41 28 4A 29 |...T.T.A(J):A(J)|
00000290: B2 41 28 4A AA 31 29 3A 41 28 4A AA 31 29 B2 54 |.A(J.1):A(J.1).T|
000002A0: 00 A7 0A 5E 01 82 4A 00 AE 0A 68 01 82 49 00 B4 |...^..J...h..I..|
000002B0: 0A 72 01 8E 00 BA 0A 8D 01 3A 00 D8 0A 8E 01 3A |.r.......:.....:|
000002C0: 20 20 20 20 20 20 20 53 49 4D 50 4C 45 20 42 55 | SIMPLE BU|
000002D0: 42 42 4C 45 20 53 B0 54 00 DE 0A 8F 01 3A 00 EB |BBLE S.T.....:..|
000002E0: 0A 90 01 81 49 B2 31 A4 4E AB 31 00 F8 0A 9A 01 |....I.1.N.1.....|
000002F0: 81 4A B2 49 AA 31 A4 4E 00 0C 0B A4 01 8B 41 28 |.J.I.1.N......A(|
00000300: 49 29 B3 B2 41 28 4A 29 A7 34 34 30 00 28 0B AE |I)..A(J).440.(..|
00000310: 01 54 B2 41 28 49 29 3A 41 28 49 29 B2 41 28 4A |.T.A(I):A(I).A(J|
00000320: 29 3A 41 28 4A 29 B2 54 00 2F 0B B8 01 82 4A 00 |):A(J).T./....J.|
00000330: 36 0B C2 01 82 49 00 3C 0B CC 01 8E 00 42 0B F1 |6....I.<.....B..|
00000340: 01 3A 00 60 0B F2 01 3A 20 20 20 20 20 4D AB 53 |.:.`...: M.S|
00000350: 45 41 52 43 48 20 42 55 42 42 4C 45 20 53 B0 54 |EARCH BUBBLE S.T|
00000360: 00 66 0B F3 01 3A 00 77 0B F4 01 81 49 B2 31 A4 |.f...:.w....I.1.|
00000370: 4E AB 31 3A 4D B2 49 00 84 0B FE 01 81 4A B2 49 |N.1:M.I......J.I|
00000380: AA 31 A4 4E 00 97 0B 08 02 8B 41 28 4D 29 B1 41 |.1.N......A(M).A|
00000390: 28 4A 29 A7 4D B2 4A 00 9E 0B 12 02 82 4A 00 BA |(J).M.J......J..|
000003A0: 0B 1C 02 54 B2 41 28 49 29 3A 41 28 49 29 B2 41 |...T.A(I):A(I).A|
000003B0: 28 4D 29 3A 41 28 4D 29 B2 54 00 C1 0B 26 02 82 |(M):A(M).T...&..|
000003C0: 49 00 C7 0B 30 02 8E 00 CD 0B 56 02 3A 00 D3 0B |I...0.....V.:...|
000003D0: 57 02 3A 00 F2 0B E8 03 54 4D B2 54 49 AD 36 30 |W.:.....TM.TI.60|
000003E0: 3A 8F 20 20 46 49 4E 49 53 48 49 4E 47 20 54 49 |:. FINISHING TI|
000003F0: 4D 45 00 FD 0B F2 03 81 49 B2 31 A4 4E 00 0C 0C |ME......I.1.N...|
00000400: FC 03 99 41 28 49 29 2C 3A 82 3A 99 00 2D 0C 06 |...A(I),:.:..-..|
00000410: 04 99 22 45 4C 41 50 53 45 44 20 54 49 4D 45 20 |.."ELAPSED TIME |
00000420: 3D 22 54 4D 22 53 45 43 4F 4E 44 53 22 00 33 0C |="TM"SECONDS".3.|
00000430: 10 04 8E 00 5C 0C 88 13 99 22 93 20 20 20 20 20 |....\....". |
00000440: 20 20 20 20 05 4D 41 4B 49 4E 47 20 41 20 42 45 | .MAKING A BE|
00000450: 54 54 45 52 20 42 55 42 42 4C 45 22 00 8E 0C 92 |TTER BUBBLE"....|
00000460: 13 99 22 11 11 11 11 20 20 20 1F 54 48 49 53 20 |..".... .THIS |
00000470: 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 44 45 4D |PROGRAM WILL DEM|
00000480: 4F 4E 53 54 52 41 54 45 20 46 49 56 45 22 00 AB |ONSTRATE FIVE"..|
00000490: 0C 9C 13 99 22 42 55 42 42 4C 45 20 53 4F 52 54 |...."BUBBLE SORT|
000004A0: 20 52 4F 55 54 49 4E 45 53 2E 22 00 D8 0C A6 13 | ROUTINES.".....|
000004B0: 99 22 11 11 11 11 20 20 20 20 20 50 52 45 53 53 |.".... PRESS|
000004C0: 20 05 53 50 41 43 45 1F 20 54 4F 20 53 54 41 52 | .SPACE. TO STAR|
000004D0: 54 20 44 45 4D 4F 2E 22 00 ED 0C B0 13 8B C2 28 |T DEMO.".......(|
000004E0: 32 30 33 29 B3 B1 36 30 A7 35 30 34 30 00 FE 0C |203)..60.5040...|
000004F0: BA 13 81 20 4C 4F 4F 50 B2 31 20 A4 20 35 00 37 |... LOOP.1 . 5.7|
00000500: 0D C4 13 54 49 24 B2 22 30 30 30 30 30 30 22 3A |...TI$."000000":|
00000510: 49 B2 BB 28 AB 31 30 30 30 29 3A 50 52 24 B2 4E |I..(.1000):PR$.N|
00000520: 41 24 28 4C 4F 4F 50 29 AA 22 20 42 55 42 42 4C |A$(LOOP)." BUBBL|
00000530: 45 20 53 4F 52 54 22 00 5D 0D CE 13 54 41 B2 28 |E SORT".]...TA.(|
00000540: 34 30 AB C3 28 50 52 24 29 29 AD 32 3A 99 22 93 |40..(PR$)).2:.".|
00000550: 05 22 A3 54 41 29 50 52 24 22 1F 11 22 00 68 0D |.".TA)PR$"..".h.|
00000560: D8 13 81 49 B2 31 A4 4E 00 7B 0D E2 13 41 28 49 |...I.1.N.{...A(I|
00000570: 29 B2 B5 28 BB 28 31 29 AC 4E 29 00 88 0D EC 13 |)..(.(1).N).....|
00000580: 99 41 28 49 29 2C 3A 82 00 B1 0D F1 13 99 3A 99 |.A(I),:.......:.|
00000590: 22 11 05 20 20 20 20 20 20 20 20 20 53 4F 52 54 |".. SORT|
000005A0: 49 4E 47 22 4E 22 4E 55 4D 42 45 52 53 2E 2E 2E |ING"N"NUMBERS...|
000005B0: 22 00 D2 0D F6 13 91 20 4C 4F 4F 50 20 8D 20 31 |"...... LOOP . 1|
000005C0: 30 30 2C 32 30 30 2C 33 30 30 2C 34 30 30 2C 35 |00,200,300,400,5|
000005D0: 30 30 00 E7 0D FB 13 99 22 93 05 22 A3 54 41 29 |00......"..".TA)|
000005E0: 50 52 24 22 1F 11 22 00 F2 0D FC 13 81 49 B2 31 |PR$".."......I.1|
000005F0: A4 4E 00 FF 0D FD 13 99 41 28 49 29 2C 3A 82 00 |.N......A(I),:..|
00000600: 3D 0E 00 14 54 4D 28 4C 4F 4F 50 29 B2 54 49 AD |=...TM(LOOP).TI.|
00000610: 36 30 3A 99 3A 99 22 11 11 1F 49 54 20 54 4F 4F |60:.:."...IT TOO|
00000620: 4B 05 22 54 4D 28 4C 4F 4F 50 29 22 1F 53 45 43 |K."TM(LOOP)".SEC|
00000630: 4F 4E 44 53 20 54 4F 20 53 4F 52 54 22 00 60 0E |ONDS TO SORT".`.|
00000640: 0A 14 99 22 1F 55 53 49 4E 47 20 54 48 45 20 05 |...".USING THE .|
00000650: 22 50 52 24 22 20 1F 52 4F 55 54 49 4E 45 2E 22 |"PR$" .ROUTINE."|
00000660: 00 8A 0E 14 14 99 22 11 11 20 20 20 20 20 20 20 |......".. |
00000670: 1F 50 52 45 53 53 20 53 50 41 43 45 20 54 4F 20 |.PRESS SPACE TO |
00000680: 43 4F 4E 54 49 4E 55 45 2E 22 00 9F 0E 1E 14 8B |CONTINUE."......|
00000690: C2 28 32 30 33 29 B3 B1 36 30 A7 35 31 35 30 00 |.(203)..60.5150.|
000006A0: A5 0E 28 14 82 00 CE 0E 32 14 99 22 93 1F 20 20 |..(.....2..".. |
000006B0: 20 20 20 20 20 20 20 4D 41 4B 49 4E 47 20 41 20 | MAKING A |
000006C0: 42 45 54 54 45 52 20 42 55 42 42 4C 45 22 00 F3 |BETTER BUBBLE"..|
000006D0: 0E 3C 14 99 22 11 20 20 20 20 20 20 20 20 20 20 |.<..". |
000006E0: 20 20 53 55 4D 4D 41 52 59 20 4F 46 20 44 45 4D | SUMMARY OF DEM|
000006F0: 4F 53 22 00 14 0F 46 14 99 22 11 11 05 54 59 50 |OS"...F.."...TYP|
00000700: 45 20 4F 46 20 53 4F 52 54 22 A3 32 30 29 22 54 |E OF SORT".20)"T|
00000710: 49 4D 45 22 00 45 0F 50 14 99 22 1F C0 C0 C0 C0 |IME".E.P..".....|
00000720: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000730: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000740: C0 C0 C0 05 22 00 56 0F 5A 14 81 20 4C 4F 4F 50 |....".V.Z.. LOOP|
00000750: B2 31 20 A4 20 35 00 71 0F 64 14 99 4E 41 24 28 |.1 . 5.q.d..NA$(|
00000760: 4C 4F 4F 50 29 A3 32 30 29 54 4D 28 4C 4F 4F 50 |LOOP).20)TM(LOOP|
00000770: 29 00 77 0F 6E 14 82 00 A7 0F 78 14 99 22 1F C0 |).w.n.....x.."..|
00000780: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000790: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000007A0: C0 C0 C0 C0 C0 C0 22 00 D7 0F 82 14 99 22 11 11 |......"......"..|
000007B0: 50 52 45 53 53 20 05 53 50 41 43 45 1F 20 54 4F |PRESS .SPACE. TO|
000007C0: 20 53 45 45 20 44 45 4D 4F 20 41 47 41 49 4E 3B | SEE DEMO AGAIN;|
000007D0: 20 50 52 45 53 53 22 00 FE 0F 8C 14 99 22 05 52 | PRESS"......".R|
000007E0: 45 54 55 52 4E 1F 20 54 4F 20 52 45 54 55 52 4E |ETURN. TO RETURN|
000007F0: 20 54 4F 20 4C 4F 41 44 53 54 41 52 2E 22 00 1C | TO LOADSTAR."..|
00000800: 10 96 14 41 B2 C2 28 32 30 33 29 3A 8B 41 B3 B1 |...A..(203):.A..|
00000810: 36 30 AF 41 B3 B1 31 A7 35 32 37 30 00 2A 10 A0 |60.A..1.5270.*..|
00000820: 14 8B 41 B2 36 30 A7 8A 33 30 00 63 10 AA 14 9F |..A.60..30.c....|
00000830: 31 35 2C 38 2C 31 35 2C 22 52 30 3A 48 45 4C 4C |15,8,15,"R0:HELL|
00000840: 4F 20 43 4F 4E 4E 45 43 54 3D 48 45 4C 4C 4F 20 |O CONNECT=HELLO |
00000850: 43 4F 4E 4E 45 43 54 22 3A 84 31 35 2C 45 52 3A |CONNECT":.15,ER:|
00000860: A0 31 35 00 71 10 B4 14 8B 45 52 B3 B1 36 33 A7 |.15.q....ER..63.|
00000870: 80 00 88 10 BE 14 93 22 48 45 4C 4C 4F 20 43 4F |......."HELLO CO|
00000880: 4E 4E 45 43 54 22 2C 38 00 8E 10 5F EA 90 00 A6 |NNECT",8..._....|
00000890: 10 C4 EA 97 35 33 32 38 30 2C 31 34 3A 97 35 33 |....53280,14:.53|
000008A0: 32 38 31 2C 31 34 00 E0 10 CE EA 99 C7 28 31 34 |281,14.......(14|
000008B0: 32 29 22 93 08 1F D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 |2)".............|
000008C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000008D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 22 3B |..............";|
000008E0: 00 FB 10 D8 EA 81 41 B2 31 A4 32 33 3A 99 22 DD |......A.1.23:.".|
000008F0: 22 A6 33 38 29 22 DD 22 3B 3A 82 00 2E 11 E2 EA |".38)".";:......|
00000900: 99 22 CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |."..............|
00000910: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000920: C0 C0 C0 C0 C0 C0 C0 C0 CB 9D 94 C0 13 22 00 4B |.............".K|
00000930: 11 EC EA 81 41 B2 32 31 37 A4 32 34 32 3A 97 41 |....A.217.242:.A|
00000940: 2C C2 28 41 29 B0 31 32 38 3A 82 00 74 11 F6 EA |,.(A).128:..t...|
00000950: 99 22 13 11 11 1D 20 20 20 20 20 20 20 20 20 20 |.".... |
00000960: 05 4C 4F 41 44 53 54 41 52 20 50 52 45 53 45 4E |.LOADSTAR PRESEN|
00000970: 54 53 3A 22 00 A3 11 00 EB 99 22 11 11 11 11 11 |TS:"......".....|
00000980: 1D 20 20 20 20 20 20 12 20 20 20 20 20 20 20 20 |. . |
00000990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009A0: 20 20 22 00 CF 11 0A EB 99 22 1D 20 20 20 20 20 | "......". |
000009B0: 20 12 20 20 4D 41 4B 49 4E 47 20 41 20 42 45 54 | . MAKING A BET|
000009C0: 54 45 52 20 42 55 42 42 4C 45 20 20 1F 20 22 00 |TER BUBBLE . ".|
000009D0: FC 11 14 EB 99 22 1D 20 20 20 20 20 20 05 12 20 |.....". .. |
000009E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009F0: 20 20 20 20 20 20 20 20 20 1F 20 22 00 29 12 1E | . ".)..|
00000A00: EB 99 22 1D 20 20 20 20 20 20 05 12 20 20 20 20 |..". .. |
00000A10: 42 59 20 52 4F 59 41 4C 20 43 2E 20 4A 4F 4E 45 |BY ROYAL C. JONE|
00000A20: 53 20 20 20 20 20 1F 20 22 00 56 12 28 EB 99 22 |S . ".V.(.."|
00000A30: 1D 20 20 20 20 20 20 05 12 20 20 20 20 20 20 20 |. .. |
00000A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A50: 20 20 20 1F 20 22 00 83 12 32 EB 99 22 1D 20 20 | . "...2..". |
00000A60: 20 20 20 20 05 12 20 20 20 20 20 20 43 4F 50 59 | .. COPY|
00000A70: 52 49 47 48 54 20 31 39 38 37 20 20 20 20 20 20 |RIGHT 1987 |
00000A80: 1F 20 22 00 B0 12 3C EB 99 22 1D 20 20 20 20 20 |. "...<..". |
00000A90: 20 05 12 20 20 20 20 20 20 20 20 20 20 20 20 20 | .. |
00000AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 1F 20 22 | . "|
00000AB0: 00 DB 12 46 EB 99 22 1D 20 20 20 20 20 20 20 12 |...F..". .|
00000AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AD0: 20 20 20 20 20 20 20 20 20 20 22 00 0B 13 50 EB | "...P.|
00000AE0: 99 22 11 11 11 11 11 11 1D 20 20 20 20 20 20 20 |."....... |
00000AF0: 20 05 50 52 45 53 53 20 53 50 41 43 45 20 54 4F | .PRESS SPACE TO|
00000B00: 20 43 4F 4E 54 49 4E 55 45 2E 22 00 21 13 5A EB | CONTINUE.".!.Z.|
00000B10: 8B C2 28 32 30 33 29 B3 B1 36 30 A7 36 30 32 35 |..(203)..60.6025|
00000B20: 30 00 27 13 64 EB 8E 00 00 00 |0.'.d..... |
.......60100:......:.;...N.50: :.
NUMBER OF ELEMENTS.].(.. A(N): :. AR
RAY OF RANDOM.C.2.:.Y.P.NA$(1)."STANDARD
"...Q.NA$(2)."FLAGS"...R.NA$(3)."WRINKLE
"...S.NA$(4)."SIMPLE".K.T.NA$(5)."M-SEAR
CH".U.Z..5000...A.:...B.: S.DARD
BUBBLE S.T...C.:...D..I.N.1.1..1...N..J.
1.I.1.X..A(J)..A(J.1).140.Q...T.A(J):A(J
).A(J.1):A(J.1).T.X....J._....I.E. ...K.
E.:...F.: FLAGS BUBBLE S.T...G.:.
..H..I.N.1.1..1...M.F.1...R..J.1.I.H....
A(J)..A(J.1).240.P...F.0.....T.A(J):A(J)
.A(J.1):A(J.1).T......J......F.260......
I.........).:.3.*.: WRINKLE BUBBLE
S.T.9.+.:.F.,..I.1.N.1.\.6..A(I)..A(I.1)
.360.J.@..J.I.1..1...J..A(J)..A(J.1).360
. .T.T.A(J):A(J).A(J.1):A(J.1).T...^..J.
..H..I...R.......:.X...: SIMPLE BU
BBLE S.T.....:......I.1.N.1......J.I.1.N
......A(I)..A(J).440.(...T.A(I):A(I).A(J
):A(J).T./....J.6.B..I.<.L...B...:.`...:
M.SEARCH BUBBLE S.T.F...:.W....I.1.
N.1:M.I......J.I.1.N......A(M).A(J).M.J.
.....J.....T.A(I):A(I).A(M):A(M).T.A.&..
I.G.0...M.V.:.S.W.:.....TM.TI.60:. FINI
SHING TIME......I.1.N......A(I),:.:..-..
.."ELAPSED TIME ="TM"SECONDS".3.....\...
.". .MAKING A BETTER BUBBLE"....
..".... .THIS PROGRAM WILL DEMONSTRATE
FIVE"......"BUBBLE SORT ROUTINES.".X...
.".... PRESS .SPACE. TO START DEMO."
......B(203)..60.5040...... LOOP.1 . 5.7
.D.TI$."000000":I..(.1000):PR$.NA$(LOOP)
." BUBBLE SORT".].N.TA.(40.C(PR$)).2:.".
.".TA)PR$"..".H.X..I.1.N.{...A(I)..(.(1)
.N)......A(I),:.......:.".. SORT
ING"N"NUMBERS...".R.... LOOP . 100,200,3
00,400,500......"..".TA)PR$".."......I.1
.N......A(I),:..=...TM(LOOP).TI.60:.:.".
..IT TOOK."TM(LOOP)".SECONDS TO SORT".`.
...".USING THE ."PR$" .ROUTINE."......".
. .PRESS SPACE TO CONTINUE."......
B(203)..60.5150...(...N.2..".. M
AKING A BETTER BUBBLE"...<..".
SUMMARY OF DEMOS"...F.."...TYPE OF SOR
T".20)"TIME".E.P..".....................
....................".V.Z.. LOOP.1 . 5.Q
.D..NA$(LOOP).20)TM(LOOP).W.N.....X.."..
......................................".
W...."..PRESS .SPACE. TO SEE DEMO AGAIN;
PRESS"......".RETURN. TO RETURN TO LOAD
STAR.".....A.B(203):.A..60.A..1.5270.*.
..A.60..30.C....15,8,15,"R0:HELLO CONNEC
T=HELLO CONNECT":.15,ER: 15.Q....ER..63.
......."HELLO CONNECT",8..._.....D..5328
0,14:.53281,14...N..G(142)"...U.........
.............................I";...X..A.
1.23:.".".38)".";:......."J.............
........................K....".K....A.21
7.242:.A,B(A).128:..T...."....
.LOADSTAR PRESENTS:"......"...... .
".O....".
. MAKING A BETTER BUBBLE . "......".
.. . ".)..
..". .. BY ROYAL C. JONES .
".V.(..". ..
. "...2..". .. COPYRIGHT 19
87 . "...<..". ..
. "...F..". .
"...P..".......
.PRESS SPACE TO CONTINUE.".!.Z..B(203).
.60.60250.'.D.....
> CLICK IMAGE PREVIEW FOR FULL MODAL