BUBBLESORT2.PROC
FILE INFORMATION
FILENAME(S): BUBBLESORT2.PROC
FILE TYPE(S): SEQ
FILE SIZE: 351b
FIRST SEEN: 2025-11-30 01:07:52
APPEARS ON: 4 disk(s)
FILE HASH
5047ee88f3924ec23ee15a67e4df66e61a2d15cb32b0c4906dba4ed9658c3fa4
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREEWARE DISK NR | BUBBLESORT2.PROC | SEQ | Treasure Chest - Wolfgang Rauprich | 32 | 16 | DOWNLOAD FILE |
| FREESOFT DISK NR | BUBBLESORT2.PROC | SEQ | Treasure Chest - Wolfgang Rauprich | 32 | 16 | DOWNLOAD FILE |
| C OMAL | BUBBLESORT2.PROC | SEQ | Treasure Chest - Wolfgang Rauprich | 32 | 16 | DOWNLOAD FILE |
| C OMAL | BUBBLESORT2.PROC | SEQ | Treasure Chest - Wolfgang Rauprich | 32 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 39 32 39 30 20 50 52 4F 43 20 42 55 42 42 4C 45 |9290 PROC BUBBLE| 00000010: 53 4F 52 54 32 20 0D 39 32 39 35 20 20 20 45 4E |SORT2 .9295 EN| 00000020: 44 27 3A 3D 31 31 0D 39 33 30 30 20 20 20 52 45 |D':=11.9300 RE| 00000030: 50 45 41 54 20 0D 39 33 30 35 20 20 20 20 20 45 |PEAT .9305 E| 00000040: 58 43 48 41 4E 47 45 44 3A 3D 46 41 4C 53 45 0D |XCHANGED:=FALSE.| 00000050: 39 33 31 30 20 20 20 20 20 45 4E 44 27 3A 2D 31 |9310 END':-1| 00000060: 0D 39 33 31 35 20 20 20 20 20 46 4F 52 20 53 54 |.9315 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 32 30 20 20 20 20 20 20 20 49 46 20 |O.9320 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 32 35 20 20 20 20 20 20 20 20 20 45 58 |.9325 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 33 33 30 20 20 20 20 20 20 20 20 |1)).9330 | 000000F0: 20 45 58 43 48 41 4E 47 45 44 3A 3D 54 52 55 45 | EXCHANGED:=TRUE| 00000100: 0D 39 33 33 35 20 20 20 20 20 20 20 45 4E 44 49 |.9335 ENDI| 00000110: 46 20 0D 39 33 34 30 20 20 20 20 20 45 4E 44 46 |F .9340 ENDF| 00000120: 4F 52 20 53 54 41 52 54 0D 39 33 34 35 20 20 20 |OR START.9345 | 00000130: 55 4E 54 49 4C 20 45 58 43 48 41 4E 47 45 44 3D |UNTIL EXCHANGED=| 00000140: 46 41 4C 53 45 0D 39 33 35 30 20 45 4E 44 50 52 |FALSE.9350 ENDPR| 00000150: 4F 43 20 42 55 42 42 4C 45 53 4F 52 54 32 0D |OC BUBBLESORT2. |
9290 PROC BUBBLESORT2 .9295 END':=11.9
300 REPEAT .9305 EXCHANGED:=FALSE.
9310 END':-1.9315 FOR START:=1 T
O END' DO.9320 IF NAME$(START)>NAM
E$(START+1) THEN.9325 EXCHANGE(N
AME$(START),NAME$(START+1)).9330
EXCHANGED:=TRUE.9335 ENDIF .9340
ENDFOR START.9345 UNTIL EXCHANGED=
FALSE.9350 ENDPROC BUBBLESORT2.
> CLICK IMAGE PREVIEW FOR FULL MODAL