home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Text File
(text/txt).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Swift 3D 3D Graphic (poly/swift3D3DGraphic)
| ext
| Unsupported |
| 1%
| dexvert
| Boost Text serialization (other/boostTextSerialization)
| ext
| Unsupported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| Non-ISO extended-ASCII text, with very long lines (13458), with no line terminators
| default (weak)
| |
| 100%
| perlTextCheck
| Likely Text (Perl)
| default
| |
| 100%
| siegfried
| x-fmt/111 Plain Text File
| default
| |
| 100%
| gt2
| Textdatei (UNIX)
| default
| |
| 100%
| detectItEasy
| Format: plain text
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 20 20 20 20 20 20 20 20 | 20 20 20 20 53 4f 52 54 | | SORT|
|00000010| 49 4e 47 20 4e 55 4d 42 | 45 52 53 9b 20 20 20 20 |ING NUMB|ERS. |
|00000020| 20 20 20 20 20 20 20 20 | 3d 3d 3d 3d 3d 3d 3d 3d | |========|
|00000030| 3d 3d 3d 3d 3d 3d 3d 9b | 9b 20 20 20 20 20 20 20 |=======.|. |
|00000040| 20 20 20 20 20 20 62 79 | 20 52 6f 6e 20 46 65 74 | by| Ron Fet|
|00000050| 7a 65 72 9b 9b 20 20 20 | 20 20 20 20 20 20 20 20 |zer.. | |
|00000060| 20 54 68 65 20 42 75 62 | 62 6c 65 20 53 6f 72 74 | The Bub|ble Sort|
|00000070| 9b 9b 20 20 20 20 20 20 | 57 65 20 20 20 77 69 6c |.. |We wil|
|00000080| 6c 20 20 75 73 65 20 20 | 61 20 20 62 75 62 62 6c |l use |a bubbl|
|00000090| 65 20 20 73 6f 72 74 9b | 20 62 65 63 61 75 73 65 |e sort.| because|
|000000a0| 20 20 20 69 74 20 20 20 | 69 73 20 20 20 74 68 65 | it |is the|
|000000b0| 20 20 20 65 61 73 69 65 | 73 74 20 20 74 6f 9b 20 | easie|st to. |
|000000c0| 75 6e 64 65 72 73 74 61 | 6e 64 2e 20 57 65 20 66 |understa|nd. We f|
|000000d0| 69 72 73 74 20 6c 6f 61 | 64 20 74 68 65 20 6e 75 |irst loa|d the nu|
|000000e0| 6d 62 65 72 73 9b 20 69 | 6e 74 6f 20 20 61 20 20 |mbers. i|nto a |
|000000f0| 6e 75 6d 62 65 72 20 61 | 72 72 61 79 2e 20 49 6e |number a|rray. In|
|00000100| 20 74 68 69 73 20 73 6f | 72 74 20 32 9b 20 65 6c | this so|rt 2. el|
|00000110| 65 6d 65 6e 74 73 20 6f | 66 20 74 68 65 20 20 61 |ements o|f the a|
|00000120| 72 72 61 79 20 20 61 72 | 65 20 20 65 78 61 6d 69 |rray ar|e exami|
|00000130| 6e 65 64 9b 20 64 75 72 | 69 6e 67 20 20 65 61 63 |ned. dur|ing eac|
|00000140| 68 20 20 70 61 73 73 20 | 6f 66 20 74 68 65 20 6c |h pass |of the l|
|00000150| 6f 6f 70 73 2e 20 54 68 | 65 79 9b 20 61 72 65 20 |oops. Th|ey. are |
|00000160| 73 77 69 74 63 68 65 64 | 20 69 66 20 74 68 65 79 |switched| if they|
|00000170| 20 61 72 65 20 6e 6f 74 | 20 20 69 6e 20 20 74 68 | are not| in th|
|00000180| 65 9b 20 72 69 67 68 74 | 20 20 6f 72 64 65 72 20 |e. right| order |
|00000190| 20 2d 20 20 6c 6f 77 20 | 74 6f 20 68 69 67 68 2e | - low |to high.|
|000001a0| 20 49 66 20 74 68 65 79 | 9b 20 61 72 65 20 69 6e | If they|. are in|
|000001b0| 20 74 68 65 20 72 69 67 | 68 74 20 6f 72 64 65 72 | the rig|ht order|
|000001c0| 20 74 68 65 20 6c 6f 6f | 70 20 6b 65 65 70 73 9b | the loo|p keeps.|
|000001d0| 20 6f 6e 20 20 67 6f 69 | 6e 67 2e 20 20 41 20 62 | on goi|ng. A b|
|000001e0| 75 62 62 6c 65 20 73 6f | 72 74 20 69 73 20 73 6c |ubble so|rt is sl|
|000001f0| 6f 77 20 62 75 74 9b 20 | 69 74 20 69 73 20 66 69 |ow but. |it is fi|
|00000200| 6e 65 20 69 66 20 79 6f | 75 20 64 6f 6e 27 74 20 |ne if yo|u don't |
|00000210| 68 61 76 65 20 74 6f 6f | 20 6d 61 6e 79 9b 20 6e |have too| many. n|
|00000220| 75 6d 62 65 72 73 2e 9b | 9b 20 20 20 20 20 20 54 |umbers..|. T|
|00000230| 68 69 73 20 73 6f 72 74 | 20 75 73 65 73 20 6e 65 |his sort| uses ne|
|00000240| 73 74 65 64 20 6c 6f 6f | 70 73 2e 20 54 68 65 9b |sted loo|ps. The.|
|00000250| 20 6f 75 74 65 72 20 6c | 6f 6f 70 20 69 73 20 74 | outer l|oop is t|
|00000260| 68 65 20 73 61 6d 65 20 | 61 73 20 74 68 65 20 20 |he same |as the |
|00000270| 6e 75 6d 62 65 72 9b 20 | 6f 66 20 20 65 6c 65 6d |number. |of elem|
|00000280| 65 6e 74 73 20 20 6f 66 | 20 74 68 65 20 61 72 72 |ents of| the arr|
|00000290| 61 79 2e 20 54 68 65 20 | 69 6e 6e 65 72 9b 20 6c |ay. The |inner. l|
|000002a0| 6f 6f 70 20 69 73 20 4f | 4e 45 20 4c 45 53 53 20 |oop is O|NE LESS |
|000002b0| 74 68 61 6e 20 74 68 65 | 20 65 6c 65 6d 65 6e 74 |than the| element|
|000002c0| 73 20 6f 66 9b 20 74 68 | 65 20 20 61 72 72 61 79 |s of. th|e array|
|000002d0| 2e 20 20 54 68 65 20 20 | 73 77 69 74 63 68 69 6e |. The |switchin|
|000002e0| 67 20 20 69 73 20 20 64 | 6f 6e 65 9b 20 62 65 74 |g is d|one. bet|
|000002f0| 77 65 65 6e 20 74 68 65 | 73 65 20 32 20 6c 6f 6f |ween the|se 2 loo|
|00000300| 70 73 2e 20 49 6e 20 6f | 75 72 20 70 72 6f 67 72 |ps. In o|ur progr|
|00000310| 61 6d 9b 20 69 74 20 69 | 73 20 6c 69 6e 65 73 20 |am. it i|s lines |
|00000320| 23 20 31 34 30 20 74 6f | 20 31 37 30 2e 9b 9b 20 |# 140 to| 170... |
|00000330| 20 20 20 20 20 4c 65 74 | 73 20 65 6e 74 65 72 20 | Let|s enter |
|00000340| 74 68 65 73 65 20 34 20 | 6e 75 6d 62 65 72 73 20 |these 4 |numbers |
|00000350| 20 69 6e 74 6f 9b 20 74 | 68 65 20 20 62 75 62 62 | into. t|he bubb|
|00000360| 6c 65 20 73 6f 72 74 20 | 61 6e 64 20 73 65 65 20 |le sort |and see |
|00000370| 68 6f 77 20 74 68 65 79 | 20 61 72 65 9b 20 70 72 |how they| are. pr|
|00000380| 6f 63 65 73 73 65 64 2e | 20 20 54 68 65 20 6e 75 |ocessed.| The nu|
|00000390| 6d 62 65 72 73 20 61 72 | 65 3a 20 20 33 2c 32 2c |mbers ar|e: 3,2,|
|000003a0| 37 2c 31 9b 20 42 65 74 | 77 65 65 6e 20 20 74 68 |7,1. Bet|ween th|
|000003b0| 65 20 20 6f 75 74 65 72 | 20 20 6c 6f 6f 70 28 34 |e outer| loop(4|
|000003c0| 29 20 20 61 6e 64 20 74 | 68 65 9b 20 69 6e 6e 65 |) and t|he. inne|
|000003d0| 72 20 6c 6f 6f 70 28 33 | 29 20 20 77 65 20 20 68 |r loop(3|) we h|
|000003e0| 61 76 65 20 20 28 34 78 | 33 3d 31 32 29 20 20 31 |ave (4x|3=12) 1|
|000003f0| 32 9b 20 70 61 73 73 65 | 73 20 20 6f 66 20 74 68 |2. passe|s of th|
|00000400| 65 20 6c 6f 6f 70 73 2e | 20 54 68 65 20 62 75 62 |e loops.| The bub|
|00000410| 62 6c 65 20 73 6f 72 74 | 9b 20 61 72 72 61 6e 67 |ble sort|. arrang|
|00000420| 65 73 20 74 68 65 20 32 | 20 65 6c 65 6d 65 6e 74 |es the 2| element|
|00000430| 73 20 66 72 6f 6d 20 20 | 6c 6f 77 20 20 74 6f 9b |s from |low to.|
|00000440| 20 68 69 67 68 2e 20 20 | 49 66 20 74 68 65 73 65 | high. |If these|
|00000450| 20 32 20 65 6c 65 6d 65 | 6e 74 73 20 61 72 65 20 | 2 eleme|nts are |
|00000460| 6f 75 74 20 6f 66 9b 20 | 6f 72 64 65 72 2c 20 69 |out of. |order, i|
|00000470| 74 20 73 77 69 74 63 68 | 65 73 20 20 74 68 65 6d |t switch|es them|
|00000480| 2e 20 20 54 68 65 20 20 | 61 72 72 61 79 9b 20 73 |. The |array. s|
|00000490| 74 61 72 74 73 20 6f 75 | 74 20 61 73 3a 20 33 2c |tarts ou|t as: 3,|
|000004a0| 32 2c 31 2c 37 9b 9b 20 | 50 41 53 53 20 4e 55 4d |2,1,7.. |PASS NUM|
|000004b0| 42 45 52 53 20 20 41 43 | 54 49 4f 4e 20 20 45 4c |BERS AC|TION EL|
|000004c0| 45 4d 45 4e 54 20 4f 52 | 44 45 52 9b 20 2d 2d 2d |EMENT OR|DER. ---|
|000004d0| 2d 20 2d 2d 2d 2d 2d 2d | 2d 20 20 2d 2d 2d 2d 2d |- ------|- -----|
|000004e0| 2d 20 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |- -----|--------|
|000004f0| 9b 9b 20 31 20 20 5b 33 | 2c 32 5d 2c 37 2c 31 20 |.. 1 [3|,2],7,1 |
|00000500| 20 53 57 49 54 43 48 20 | 32 2c 33 20 20 32 2c 33 | SWITCH |2,3 2,3|
|00000510| 2c 37 2c 31 9b 20 32 20 | 20 32 2c 5b 33 2c 37 5d |,7,1. 2 | 2,[3,7]|
|00000520| 2c 31 20 20 4f 4b 20 20 | 20 20 20 20 20 20 20 20 |,1 OK | |
|00000530| 32 2c 33 2c 37 2c 31 9b | 20 33 20 20 32 2c 33 2c |2,3,7,1.| 3 2,3,|
|00000540| 5b 37 2c 31 5d 20 20 53 | 57 49 54 43 48 20 31 2c |[7,1] S|WITCH 1,|
|00000550| 37 20 20 32 2c 33 2c 31 | 2c 37 9b 20 34 20 20 5b |7 2,3,1|,7. 4 [|
|00000560| 32 2c 33 5d 2c 31 2c 37 | 20 20 4f 4b 20 20 20 20 |2,3],1,7| OK |
|00000570| 20 20 20 20 20 20 32 2c | 33 2c 31 2c 37 9b 20 35 | 2,|3,1,7. 5|
|00000580| 20 20 32 2c 5b 33 2c 31 | 5d 2c 37 20 20 53 57 49 | 2,[3,1|],7 SWI|
|00000590| 54 43 48 20 31 2c 33 20 | 20 32 2c 31 2c 33 2c 37 |TCH 1,3 | 2,1,3,7|
|000005a0| 9b 20 36 20 20 32 2c 31 | 2c 5b 33 2c 37 5d 20 20 |. 6 2,1|,[3,7] |
|000005b0| 4f 4b 20 20 20 20 20 20 | 20 20 20 20 32 2c 31 2c |OK | 2,1,|
|000005c0| 33 2c 37 9b 20 37 20 20 | 5b 32 2c 31 5d 2c 33 2c |3,7. 7 |[2,1],3,|
|000005d0| 37 20 20 53 57 49 54 43 | 48 20 31 2c 32 20 20 31 |7 SWITC|H 1,2 1|
|000005e0| 2c 32 2c 33 2c 37 9b 20 | 38 20 20 31 2c 5b 32 2c |,2,3,7. |8 1,[2,|
|000005f0| 33 5d 2c 37 20 20 4f 4b | 20 20 20 20 20 20 20 20 |3],7 OK| |
|00000600| 20 20 31 2c 32 2c 33 2c | 37 9b 20 39 2d 31 32 20 | 1,2,3,|7. 9-12 |
|00000610| 20 20 20 20 20 20 20 20 | 20 4f 4b 20 20 20 20 20 | | OK |
|00000620| 20 20 20 20 20 31 2c 32 | 2c 33 2c 37 9b 9b 20 20 | 1,2|,3,7.. |
|00000630| 20 20 20 20 49 66 20 20 | 77 65 20 20 77 61 6e 74 | If |we want|
|00000640| 20 20 74 6f 20 73 6f 72 | 74 20 69 6e 20 72 65 76 | to sor|t in rev|
|00000650| 65 72 73 65 9b 20 6f 72 | 64 65 72 20 66 72 6f 6d |erse. or|der from|
|00000660| 20 48 49 47 48 20 74 6f | 20 4c 4f 57 20 20 74 68 | HIGH to| LOW th|
|00000670| 61 6e 20 20 77 65 20 20 | 63 61 6e 9b 20 63 68 61 |an we |can. cha|
|00000680| 6e 67 65 20 20 74 68 65 | 20 20 67 72 65 61 74 65 |nge the| greate|
|00000690| 72 20 20 73 69 67 6e 28 | 3e 29 20 69 6e 20 6c 69 |r sign(|>) in li|
|000006a0| 6e 65 9b 20 31 34 30 20 | 74 6f 20 6c 65 73 73 28 |ne. 140 |to less(|
|000006b0| 3c 29 2e 9b 9b 20 20 20 | 20 20 20 50 6c 65 61 73 |<)... | Pleas|
|000006c0| 65 20 6b 65 79 20 69 6e | 20 20 74 68 69 73 20 20 |e key in| this |
|000006d0| 73 68 6f 72 74 20 20 64 | 65 6d 6f 9b 20 70 72 6f |short d|emo. pro|
|000006e0| 67 72 61 6d 20 74 6f 20 | 73 65 65 20 68 6f 77 20 |gram to |see how |
|000006f0| 69 74 20 77 6f 72 6b 73 | 2e 20 9b 9b 20 20 20 20 |it works|. .. |
|00000700| 20 20 31 30 20 2d 2d 9b | 20 20 20 20 20 20 32 30 | 10 --.| 20|
|00000710| 20 52 45 4d 20 50 55 54 | 20 4e 55 4d 42 45 52 53 | REM PUT| NUMBERS|
|00000720| 20 49 4e 54 4f 20 41 52 | 52 41 59 9b 20 20 20 20 | INTO AR|RAY. |
|00000730| 20 20 33 30 20 43 4c 53 | 3a 3f 3a 3f 9b 20 20 20 | 30 CLS|:?:?. |
|00000740| 20 20 20 34 30 20 49 4e | 50 55 54 20 22 48 4f 57 | 40 IN|PUT "HOW|
|00000750| 20 4d 41 4e 59 20 4e 55 | 4d 42 45 52 53 20 54 4f | MANY NU|MBERS TO|
|00000760| 9b 20 20 20 20 20 20 20 | 20 20 53 4f 52 54 22 3b |. | SORT";|
|00000770| 4b 9b 20 20 20 20 20 20 | 35 30 20 44 49 4d 20 41 |K. |50 DIM A|
|00000780| 28 4b 29 3a 3f 9b 20 20 | 20 20 20 20 36 30 20 46 |(K):?. | 60 F|
|00000790| 4f 52 20 58 20 3d 20 31 | 20 54 4f 20 4b 9b 20 20 |OR X = 1| TO K. |
|000007a0| 20 20 20 20 37 30 20 49 | 4e 50 55 54 20 22 47 49 | 70 I|NPUT "GI|
|000007b0| 56 45 20 4d 45 20 41 20 | 4e 55 4d 42 45 52 22 3b |VE ME A |NUMBER";|
|000007c0| 4e 9b 20 20 20 20 20 20 | 38 30 20 41 28 58 29 3d |N. |80 A(X)=|
|000007d0| 4e 3a 52 45 4d 3c 2d 2d | 41 52 52 41 59 9b 20 20 |N:REM<--|ARRAY. |
|000007e0| 20 20 20 20 39 30 20 4e | 45 58 54 20 58 9b 20 20 | 90 N|EXT X. |
|000007f0| 20 20 20 20 31 30 30 20 | 2d 2d 9b 20 20 20 20 20 | 100 |--. |
|00000800| 20 31 31 30 20 52 45 4d | 20 42 55 42 42 4c 45 20 | 110 REM| BUBBLE |
|00000810| 53 4f 52 54 9b 20 20 20 | 20 20 20 31 32 30 20 46 |SORT. | 120 F|
|00000820| 4f 52 20 54 20 3d 20 31 | 20 54 4f 20 4b 9b 20 20 |OR T = 1| TO K. |
|00000830| 20 20 20 20 31 33 30 20 | 46 4f 52 20 59 20 3d 20 | 130 |FOR Y = |
|00000840| 31 20 54 4f 20 4b 2d 31 | 9b 20 20 20 20 20 20 31 |1 TO K-1|. 1|
|00000850| 34 30 20 49 46 20 41 28 | 59 2b 31 29 3e 3d 41 28 |40 IF A(|Y+1)>=A(|
|00000860| 59 29 20 54 48 45 4e 20 | 31 38 30 9b 20 20 20 20 |Y) THEN |180. |
|00000870| 20 20 31 35 30 20 54 45 | 4d 50 20 3d 20 41 28 59 | 150 TE|MP = A(Y|
|00000880| 29 9b 20 20 20 20 20 20 | 31 36 30 20 41 28 59 29 |). |160 A(Y)|
|00000890| 20 3d 20 41 28 59 2b 31 | 29 9b 20 20 20 20 20 20 | = A(Y+1|). |
|000008a0| 31 37 30 20 41 28 59 2b | 31 29 20 3d 20 54 45 4d |170 A(Y+|1) = TEM|
|000008b0| 50 9b 20 20 20 20 20 20 | 31 38 30 20 4e 45 58 54 |P. |180 NEXT|
|000008c0| 20 59 9b 20 20 20 20 20 | 20 31 39 30 20 4e 45 58 | Y. | 190 NEX|
|000008d0| 54 20 54 9b 20 20 20 20 | 20 20 32 30 30 20 2d 2d |T T. | 200 --|
|000008e0| 9b 20 20 20 20 20 20 32 | 31 30 20 52 45 4d 20 50 |. 2|10 REM P|
|000008f0| 52 49 4e 54 20 53 4f 52 | 54 45 44 20 4e 55 4d 42 |RINT SOR|TED NUMB|
|00000900| 45 52 53 9b 20 20 20 20 | 20 20 32 32 30 20 3f 3a |ERS. | 220 ?:|
|00000910| 3f 20 22 53 4f 52 54 45 | 44 20 4e 55 4d 42 45 52 |? "SORTE|D NUMBER|
|00000920| 53 22 3a 3f 9b 20 20 20 | 20 20 20 32 33 30 20 46 |S":?. | 230 F|
|00000930| 4f 52 20 4c 20 3d 20 31 | 20 54 4f 20 4b 9b 20 20 |OR L = 1| TO K. |
|00000940| 20 20 20 20 32 34 30 20 | 3f 20 41 28 4c 29 3b 22 | 240 |? A(L);"|
|00000950| 20 22 3b 3a 52 45 4d 3c | 2d 2d 41 52 52 41 59 9b | ";:REM<|--ARRAY.|
|00000960| 20 20 20 20 20 20 32 35 | 30 20 4e 45 58 54 20 4c | 25|0 NEXT L|
|00000970| 9b 20 20 20 20 20 20 32 | 36 30 20 2d 2d 9b 9b 20 |. 2|60 --.. |
|00000980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 4d 49 | | MI|
|00000990| 4e 49 20 53 4f 52 54 9b | 9b 20 20 20 20 20 20 54 |NI SORT.|. T|
|000009a0| 68 65 20 4d 49 4e 49 20 | 73 6f 72 74 20 69 73 20 |he MINI |sort is |
|000009b0| 66 61 73 74 65 72 20 74 | 68 61 6e 20 74 68 65 9b |faster t|han the.|
|000009c0| 20 62 75 62 62 6c 65 20 | 20 73 6f 72 74 2e 20 20 | bubble | sort. |
|000009d0| 54 68 69 73 20 20 73 6f | 72 74 20 20 66 69 6e 64 |This so|rt find|
|000009e0| 73 20 20 74 68 65 9b 20 | 6d 69 6e 69 6d 75 6d 20 |s the. |minimum |
|000009f0| 76 61 6c 75 65 64 20 65 | 6c 65 6d 65 6e 74 20 61 |valued e|lement a|
|00000a00| 6e 64 20 70 6c 61 63 65 | 73 20 20 69 74 9b 20 69 |nd place|s it. i|
|00000a10| 6e 20 20 74 68 65 20 20 | 66 69 72 73 74 20 70 6f |n the |first po|
|00000a20| 73 69 74 69 6f 6e 20 6f | 66 20 74 68 65 20 61 72 |sition o|f the ar|
|00000a30| 72 61 79 2e 9b 20 49 74 | 20 6b 65 65 70 73 20 20 |ray.. It| keeps |
|00000a40| 6f 6e 20 20 64 6f 69 6e | 67 20 20 74 68 69 73 20 |on doin|g this |
|00000a50| 20 75 6e 74 69 6c 20 20 | 61 6c 6c 9b 20 65 6c 65 | until |all. ele|
|00000a60| 6d 65 6e 74 73 20 20 61 | 72 65 20 20 61 72 72 61 |ments a|re arra|
|00000a70| 6e 67 65 64 20 20 66 72 | 6f 6d 20 20 4c 4f 57 20 |nged fr|om LOW |
|00000a80| 74 6f 9b 20 48 49 47 48 | 2e 20 49 6e 20 6f 75 72 |to. HIGH|. In our|
|00000a90| 20 70 72 6f 67 72 61 6d | 20 69 6e 20 20 6c 69 6e | program| in lin|
|00000aa0| 65 20 20 35 30 20 20 77 | 65 9b 20 75 73 65 20 20 |e 50 w|e. use |
|00000ab0| 45 3d 4b 2e 20 4b 20 69 | 73 20 74 68 65 20 6e 75 |E=K. K i|s the nu|
|00000ac0| 6d 62 65 72 20 6f 66 20 | 65 6c 65 6d 65 6e 74 73 |mber of |elements|
|00000ad0| 9b 20 77 65 20 68 61 76 | 65 2e 20 54 68 65 20 73 |. we hav|e. The s|
|00000ae0| 6f 72 74 20 72 65 64 75 | 63 65 73 20 4b 20 74 6f |ort redu|ces K to|
|00000af0| 20 31 2e 20 20 57 65 9b | 20 6e 65 65 64 20 20 74 | 1. We.| need t|
|00000b00| 68 65 20 76 61 6c 75 65 | 20 6f 66 20 4b 20 74 6f |he value| of K to|
|00000b10| 20 70 72 69 6e 74 20 6f | 75 74 20 74 68 65 9b 20 | print o|ut the. |
|00000b20| 61 72 72 61 79 2c 20 74 | 68 65 72 65 66 6f 72 65 |array, t|herefore|
|00000b30| 20 77 65 20 6d 61 6b 65 | 20 69 74 20 65 71 75 61 | we make| it equa|
|00000b40| 6c 20 20 74 6f 9b 20 45 | 2e 9b 9b 20 20 20 20 20 |l to. E|... |
|00000b50| 20 50 6c 65 61 73 65 20 | 20 6b 65 79 20 20 69 6e | Please | key in|
|00000b60| 20 20 74 68 69 73 20 73 | 68 6f 72 74 20 64 65 6d | this s|hort dem|
|00000b70| 6f 9b 20 70 72 6f 67 72 | 61 6d 20 74 6f 20 73 65 |o. progr|am to se|
|00000b80| 65 20 68 6f 77 20 69 74 | 20 77 6f 72 6b 73 2e 9b |e how it| works..|
|00000b90| 9b 20 20 20 20 20 20 31 | 30 20 2d 2d 9b 20 20 20 |. 1|0 --. |
|00000ba0| 20 20 20 32 30 20 52 45 | 4d 20 50 55 54 20 4e 55 | 20 RE|M PUT NU|
|00000bb0| 4d 42 45 52 53 20 49 4e | 20 54 48 45 20 41 52 52 |MBERS IN| THE ARR|
|00000bc0| 41 59 9b 20 20 20 20 20 | 20 33 30 20 43 4c 53 3a |AY. | 30 CLS:|
|00000bd0| 3f 3a 3f 3a 4b 3d 30 9b | 20 20 20 20 20 20 34 30 |?:?:K=0.| 40|
|00000be0| 20 49 4e 50 55 54 20 22 | 48 4f 57 20 4d 41 4e 59 | INPUT "|HOW MANY|
|00000bf0| 20 4e 55 4d 42 45 52 53 | 20 54 4f 9b 20 20 20 20 | NUMBERS| TO. |
|00000c00| 20 20 20 20 20 53 4f 52 | 54 22 3b 4b 9b 20 20 20 | SOR|T";K. |
|00000c10| 20 20 20 35 30 20 44 49 | 4d 20 41 28 4b 29 3a 45 | 50 DI|M A(K):E|
|00000c20| 3d 4b 9b 20 20 20 20 20 | 20 36 30 20 46 4f 52 20 |=K. | 60 FOR |
|00000c30| 58 20 3d 20 31 20 54 4f | 20 4b 9b 20 20 20 20 20 |X = 1 TO| K. |
|00000c40| 20 37 30 20 49 4e 50 55 | 54 20 22 47 49 56 45 20 | 70 INPU|T "GIVE |
|00000c50| 4d 45 20 41 20 4e 55 4d | 42 45 52 22 3b 4e 9b 20 |ME A NUM|BER";N. |
|00000c60| 20 20 20 20 20 38 30 20 | 41 28 58 29 3d 4e 3a 52 | 80 |A(X)=N:R|
|00000c70| 45 4d 3c 2d 2d 41 52 52 | 41 59 9b 20 20 20 20 20 |EM<--ARR|AY. |
|00000c80| 20 39 30 20 4e 45 58 54 | 20 58 9b 20 20 20 20 20 | 90 NEXT| X. |
|00000c90| 20 31 30 30 20 2d 2d 9b | 20 20 20 20 20 20 31 31 | 100 --.| 11|
|00000ca0| 30 20 52 45 4d 20 4d 49 | 4e 49 20 53 4f 52 54 9b |0 REM MI|NI SORT.|
|00000cb0| 20 20 20 20 20 20 31 32 | 30 20 59 3d 41 28 31 29 | 12|0 Y=A(1)|
|00000cc0| 3a 5a 3d 31 9b 20 20 20 | 20 20 20 31 33 30 20 46 |:Z=1. | 130 F|
|00000cd0| 4f 52 20 52 20 3d 20 32 | 20 54 4f 20 4b 9b 20 20 |OR R = 2| TO K. |
|00000ce0| 20 20 20 20 31 34 30 20 | 49 46 20 41 28 52 29 3e | 140 |IF A(R)>|
|00000cf0| 3d 59 20 54 48 45 4e 20 | 59 3d 41 28 52 29 3a 9b |=Y THEN |Y=A(R):.|
|00000d00| 20 20 20 20 20 20 20 20 | 20 20 5a 3d 52 9b 20 20 | | Z=R. |
|00000d10| 20 20 20 20 31 35 30 20 | 4e 45 58 54 20 52 9b 20 | 150 |NEXT R. |
|00000d20| 20 20 20 20 20 31 36 30 | 20 53 53 3d 41 28 4b 29 | 160| SS=A(K)|
|00000d30| 3a 41 28 4b 29 3d 41 28 | 5a 29 3a 41 28 5a 29 3d |:A(K)=A(|Z):A(Z)=|
|00000d40| 53 53 9b 20 20 20 20 20 | 20 31 37 30 20 4b 3d 4b |SS. | 170 K=K|
|00000d50| 2d 31 3a 49 46 20 4b 3e | 31 20 54 48 45 4e 20 31 |-1:IF K>|1 THEN 1|
|00000d60| 32 30 9b 20 20 20 20 20 | 20 31 38 30 20 2d 2d 9b |20. | 180 --.|
|00000d70| 20 20 20 20 20 20 31 39 | 30 20 52 45 4d 20 50 52 | 19|0 REM PR|
|00000d80| 49 4e 54 20 53 4f 52 54 | 45 44 20 4e 55 4d 42 45 |INT SORT|ED NUMBE|
|00000d90| 52 53 9b 20 20 20 20 20 | 20 32 30 30 20 3f 3a 3f |RS. | 200 ?:?|
|00000da0| 20 22 53 4f 52 54 45 44 | 20 4e 55 4d 42 45 52 53 | "SORTED| NUMBERS|
|00000db0| 22 9b 20 20 20 20 20 20 | 32 31 30 20 46 4f 52 20 |". |210 FOR |
|00000dc0| 54 20 3d 20 31 20 54 4f | 20 45 9b 20 20 20 20 20 |T = 1 TO| E. |
|00000dd0| 20 32 32 30 20 3f 20 41 | 28 54 29 3b 22 20 22 3b | 220 ? A|(T);" ";|
|00000de0| 9b 20 20 20 20 20 20 32 | 33 30 20 4e 45 58 54 20 |. 2|30 NEXT |
|00000df0| 54 9b 20 20 20 20 20 20 | 32 34 30 20 2d 2d 9b 9b |T. |240 --..|
|00000e00| 20 20 20 20 20 20 20 20 | 20 53 4f 52 54 49 4e 47 | | SORTING|
|00000e10| 20 53 54 52 49 4e 47 20 | 41 52 52 41 59 53 9b 20 | STRING |ARRAYS. |
|00000e20| 20 20 20 20 20 20 20 20 | 3d 3d 3d 3d 3d 3d 3d 3d | |========|
|00000e30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 9b 9b 20 |========|=====.. |
|00000e40| 20 20 20 20 20 20 20 54 | 48 45 20 53 54 52 49 4e | T|HE STRIN|
|00000e50| 47 20 42 55 42 42 4c 45 | 20 53 4f 52 54 9b 9b 20 |G BUBBLE| SORT.. |
|00000e60| 20 20 20 20 20 46 6f 72 | 20 61 20 66 75 6c 6c 20 | For| a full |
|00000e70| 20 75 6e 64 65 72 73 74 | 61 6e 64 69 6e 67 20 20 | underst|anding |
|00000e80| 6f 66 20 20 61 9b 20 53 | 54 52 49 4e 47 20 20 42 |of a. S|TRING B|
|00000e90| 55 42 42 4c 45 20 20 53 | 4f 52 54 20 20 70 6c 65 |UBBLE S|ORT ple|
|00000ea0| 61 73 65 20 72 65 61 64 | 20 74 68 65 9b 20 73 65 |ase read| the. se|
|00000eb0| 63 74 69 6f 6e 20 6f 6e | 20 50 53 45 55 44 4f 20 |ction on| PSEUDO |
|00000ec0| 53 54 52 49 4e 47 20 20 | 41 52 52 41 59 53 20 20 |STRING |ARRAYS |
|00000ed0| 61 6e 64 9b 20 42 55 42 | 42 4c 45 20 53 4f 52 54 |and. BUB|BLE SORT|
|00000ee0| 20 66 69 72 73 74 2e 9b | 9b 20 20 20 20 20 20 46 | first..|. F|
|00000ef0| 69 72 73 74 20 20 77 65 | 20 73 65 74 20 75 70 20 |irst we| set up |
|00000f00| 61 20 50 53 45 55 44 4f | 20 53 54 52 49 4e 47 9b |a PSEUDO| STRING.|
|00000f10| 20 41 52 52 41 59 2e 20 | 57 69 74 68 6f 75 74 20 | ARRAY. |Without |
|00000f20| 20 61 20 20 73 74 72 69 | 6e 67 20 20 61 72 72 61 | a stri|ng arra|
|00000f30| 79 20 20 79 6f 75 9b 20 | 63 61 6e 6e 6f 74 20 20 |y you. |cannot |
|00000f40| 73 6f 72 74 20 73 74 72 | 69 6e 67 73 2e 20 57 65 |sort str|ings. We|
|00000f50| 20 61 72 65 20 67 6f 69 | 6e 67 20 74 6f 9b 20 65 | are goi|ng to. e|
|00000f60| 6e 74 65 72 20 34 20 77 | 6f 72 64 73 3a 9b 9b 20 |nter 4 w|ords:.. |
|00000f70| 20 20 20 20 20 5a 45 52 | 4f 9b 20 20 20 20 20 20 | ZER|O. |
|00000f80| 41 4c 4c 9b 20 20 20 20 | 20 20 48 4f 55 53 45 9b |ALL. | HOUSE.|
|00000f90| 20 20 20 20 20 20 43 4f | 4d 50 55 54 45 52 9b 9b | CO|MPUTER..|
|00000fa0| 20 20 20 20 20 20 41 20 | 53 74 72 69 6e 67 20 42 | A |String B|
|00000fb0| 75 62 62 6c 65 20 53 6f | 72 74 20 20 77 6f 72 6b |ubble So|rt work|
|00000fc0| 73 20 20 74 68 65 9b 20 | 73 61 6d 65 20 20 77 61 |s the. |same wa|
|00000fd0| 79 20 20 61 73 20 20 61 | 20 20 6e 75 6d 62 65 72 |y as a| number|
|00000fe0| 20 42 75 62 62 6c 65 20 | 53 6f 72 74 2c 9b 20 65 | Bubble |Sort,. e|
|00000ff0| 78 63 65 70 74 20 65 61 | 63 68 20 20 65 6c 65 6d |xcept ea|ch elem|
|00001000| 65 6e 74 20 20 69 73 20 | 20 6c 6f 6e 67 65 72 2e |ent is | longer.|
|00001010| 20 20 57 65 9b 20 73 77 | 69 74 63 68 20 20 65 6c | We. sw|itch el|
|00001020| 65 6d 65 6e 74 73 20 20 | 69 66 20 20 74 68 65 79 |ements |if they|
|00001030| 20 61 72 65 20 6e 6f 74 | 20 69 6e 9b 20 74 68 65 | are not| in. the|
|00001040| 20 72 69 67 68 74 20 6f | 72 64 65 72 20 2d 20 73 | right o|rder - s|
|00001050| 6d 61 6c 6c 20 74 6f 20 | 6c 61 72 67 65 2e 20 54 |mall to |large. T|
|00001060| 68 65 9b 20 65 6c 65 6d | 65 6e 74 73 20 20 6f 72 |he. elem|ents or|
|00001070| 20 20 20 73 75 62 73 74 | 72 69 6e 67 73 20 20 20 | subst|rings |
|00001080| 69 6e 20 20 20 74 68 69 | 73 9b 20 64 65 6d 6f 6e |in thi|s. demon|
|00001090| 73 74 72 61 74 69 6f 6e | 20 61 72 65 3a 9b 9b 20 |stration| are:.. |
|000010a0| 20 20 20 20 20 31 20 74 | 6f 20 31 30 20 28 5a 45 | 1 t|o 10 (ZE|
|000010b0| 52 4f 2d 2d 2d 2d 2d 2d | 29 9b 20 20 20 20 20 31 |RO------|). 1|
|000010c0| 31 20 74 6f 20 32 30 20 | 28 41 4c 4c 2d 2d 2d 2d |1 to 20 |(ALL----|
|000010d0| 2d 2d 2d 29 9b 20 20 20 | 20 20 32 31 20 74 6f 20 |---). | 21 to |
|000010e0| 33 30 20 28 48 4f 55 53 | 45 2d 2d 2d 2d 2d 29 9b |30 (HOUS|E-----).|
|000010f0| 20 20 20 20 20 33 31 20 | 74 6f 20 34 30 20 28 43 | 31 |to 40 (C|
|00001100| 4f 4d 50 55 54 45 52 2d | 2d 29 9b 9b 20 20 20 20 |OMPUTER-|-).. |
|00001110| 20 20 54 68 65 20 63 6f | 6e 66 75 73 69 6f 6e 20 | The co|nfusion |
|00001120| 63 6f 6d 65 73 20 77 68 | 65 6e 20 77 65 20 68 61 |comes wh|en we ha|
|00001130| 76 65 9b 20 74 6f 20 73 | 70 65 63 69 66 79 20 74 |ve. to s|pecify t|
|00001140| 68 65 20 73 75 62 73 74 | 72 69 6e 67 73 20 6f 72 |he subst|rings or|
|00001150| 20 65 6c 65 6d 65 6e 74 | 73 9b 20 66 6f 72 20 20 | element|s. for |
|00001160| 73 77 69 74 63 68 69 6e | 67 2e 20 20 49 6e 20 20 |switchin|g. In |
|00001170| 6f 72 64 65 72 20 74 6f | 20 63 6c 61 72 69 66 79 |order to| clarify|
|00001180| 9b 20 74 68 69 73 20 20 | 20 77 65 20 20 75 73 65 |. this | we use|
|00001190| 20 20 6c 69 6e 65 20 20 | 31 38 30 20 20 74 6f 20 | line |180 to |
|000011a0| 20 61 73 73 69 67 6e 9b | 20 76 61 72 69 61 62 6c | assign.| variabl|
|000011b0| 65 73 20 74 6f 20 74 68 | 65 73 65 20 76 61 6c 75 |es to th|ese valu|
|000011c0| 65 73 2e 9b 9b 20 20 20 | 20 20 20 42 28 62 65 67 |es... | B(beg|
|000011d0| 69 6e 6e 69 6e 67 29 3d | 59 9b 20 20 20 20 20 20 |inning)=|Y. |
|000011e0| 45 28 65 6e 64 69 6e 67 | 29 3d 59 2b 39 9b 20 20 |E(ending|)=Y+9. |
|000011f0| 20 20 20 42 42 28 62 65 | 67 69 6e 20 6e 65 78 74 | BB(be|gin next|
|00001200| 20 68 69 67 68 65 72 20 | 65 6c 65 6d 74 29 3d 59 | higher |elemt)=Y|
|00001210| 2b 31 30 9b 20 20 20 20 | 20 45 45 28 65 6e 64 20 |+10. | EE(end |
|00001220| 68 69 67 68 65 72 20 65 | 6c 65 6d 74 29 3d 59 2b |higher e|lemt)=Y+|
|00001230| 28 31 30 2b 39 29 9b 9b | 20 20 20 20 20 20 50 6c |(10+9)..| Pl|
|00001240| 65 61 73 65 20 74 79 70 | 65 20 69 6e 20 74 68 69 |ease typ|e in thi|
|00001250| 73 20 20 73 68 6f 72 74 | 20 20 64 65 6d 6f 9b 20 |s short| demo. |
|00001260| 70 72 6f 67 72 61 6d 20 | 74 6f 20 73 65 65 20 68 |program |to see h|
|00001270| 6f 77 20 69 74 20 77 6f | 72 6b 73 2e 9b 9b 20 20 |ow it wo|rks... |
|00001280| 20 20 20 20 31 30 20 2d | 2d 9b 20 20 20 20 20 20 | 10 -|-. |
|00001290| 32 30 20 52 45 4d 20 49 | 4e 50 55 54 20 57 4f 52 |20 REM I|NPUT WOR|
|000012a0| 44 53 20 49 4e 54 4f 20 | 41 52 52 41 59 9b 20 20 |DS INTO |ARRAY. |
|000012b0| 20 20 20 20 33 30 20 43 | 4c 53 3a 3f 9b 20 20 20 | 30 C|LS:?. |
|000012c0| 20 20 20 34 30 20 49 4e | 50 55 54 20 22 48 4f 57 | 40 IN|PUT "HOW|
|000012d0| 20 4d 41 4e 59 20 57 4f | 52 44 53 20 54 4f 9b 20 | MANY WO|RDS TO. |
|000012e0| 20 20 20 20 20 20 20 20 | 53 4f 52 54 22 3b 4b 9b | |SORT";K.|
|000012f0| 20 20 20 20 20 20 35 30 | 20 44 49 4d 20 41 24 28 | 50| DIM A$(|
|00001300| 4b 2a 31 30 29 2c 53 55 | 42 24 28 31 30 29 2c 9b |K*10),SU|B$(10),.|
|00001310| 20 20 20 20 20 20 20 20 | 20 50 41 44 24 28 31 30 | | PAD$(10|
|00001320| 29 2c 54 45 4d 50 24 28 | 31 30 29 9b 20 20 20 20 |),TEMP$(|10). |
|00001330| 20 20 36 30 20 50 41 44 | 24 3d 22 20 20 20 20 20 | 60 PAD|$=" |
|00001340| 20 20 20 20 20 22 3a 52 | 45 4d 20 31 30 9b 20 20 | ":R|EM 10. |
|00001350| 20 20 20 20 20 20 20 53 | 50 41 43 45 53 9b 20 20 | S|PACES. |
|00001360| 20 20 20 20 37 30 20 3f | 3a 3f 20 22 4d 41 58 2e | 70 ?|:? "MAX.|
|00001370| 20 4c 45 54 54 45 52 53 | 20 3d 20 31 30 22 3a 3f | LETTERS| = 10":?|
|00001380| 9b 20 20 20 20 20 20 38 | 30 20 46 4f 52 20 4e 3d |. 8|0 FOR N=|
|00001390| 31 20 54 4f 20 4b 2a 31 | 30 20 53 54 45 50 20 31 |1 TO K*1|0 STEP 1|
|000013a0| 30 9b 20 20 20 20 20 20 | 39 30 20 49 4e 50 55 54 |0. |90 INPUT|
|000013b0| 20 22 47 49 56 45 20 4d | 45 20 41 20 57 4f 52 44 | "GIVE M|E A WORD|
|000013c0| 22 3b 53 55 42 24 9b 20 | 20 20 20 20 31 30 30 20 |";SUB$. | 100 |
|000013d0| 53 4c 3d 4c 45 4e 28 53 | 55 42 24 29 9b 20 20 20 |SL=LEN(S|UB$). |
|000013e0| 20 20 31 31 30 20 49 46 | 20 53 4c 3c 31 30 20 54 | 110 IF| SL<10 T|
|000013f0| 48 45 4e 20 53 55 42 24 | 28 53 4c 2b 31 29 3d 9b |HEN SUB$|(SL+1)=.|
|00001400| 20 20 20 20 20 20 20 20 | 20 50 41 44 24 9b 20 20 | | PAD$. |
|00001410| 20 20 20 31 32 30 20 41 | 24 28 4e 2c 4e 2b 39 29 | 120 A|$(N,N+9)|
|00001420| 3d 53 55 42 24 9b 20 20 | 20 20 20 31 33 30 20 4e |=SUB$. | 130 N|
|00001430| 45 58 54 20 4e 9b 20 20 | 20 20 20 31 34 30 20 2d |EXT N. | 140 -|
|00001440| 2d 9b 20 20 20 20 20 31 | 35 30 20 52 45 4d 20 53 |-. 1|50 REM S|
|00001450| 54 52 49 4e 47 20 42 55 | 42 42 4c 45 20 53 4f 52 |TRING BU|BBLE SOR|
|00001460| 54 9b 20 20 20 20 20 31 | 36 30 20 46 4f 52 20 54 |T. 1|60 FOR T|
|00001470| 3d 31 20 54 4f 20 4b 2a | 31 30 20 53 54 45 50 20 |=1 TO K*|10 STEP |
|00001480| 31 30 9b 20 20 20 20 20 | 31 37 30 20 46 4f 52 20 |10. |170 FOR |
|00001490| 59 3d 31 20 54 4f 20 28 | 4b 2a 31 30 29 2d 31 30 |Y=1 TO (|K*10)-10|
|000014a0| 9b 20 20 20 20 20 20 20 | 20 20 53 54 45 50 20 31 |. | STEP 1|
|000014b0| 30 9b 20 20 20 20 20 31 | 38 30 20 42 3d 59 3a 45 |0. 1|80 B=Y:E|
|000014c0| 3d 59 2b 39 3a 42 42 3d | 59 2b 31 30 3a 9b 20 20 |=Y+9:BB=|Y+10:. |
|000014d0| 20 20 20 20 20 20 20 45 | 45 3d 59 2b 28 31 30 2b | E|E=Y+(10+|
|000014e0| 39 29 9b 20 20 20 20 20 | 31 39 30 20 49 46 20 41 |9). |190 IF A|
|000014f0| 24 28 42 42 2c 45 45 29 | 3e 3d 41 24 28 42 2c 45 |$(BB,EE)|>=A$(B,E|
|00001500| 29 9b 20 20 20 20 20 20 | 20 20 20 54 48 45 4e 20 |). | THEN |
|00001510| 32 33 30 9b 20 20 20 20 | 20 32 30 30 20 54 45 4d |230. | 200 TEM|
|00001520| 50 24 3d 41 24 28 42 2c | 45 29 9b 20 20 20 20 20 |P$=A$(B,|E). |
|00001530| 32 31 30 20 41 24 28 42 | 2c 45 29 3d 41 24 28 42 |210 A$(B|,E)=A$(B|
|00001540| 42 2c 45 45 29 9b 20 20 | 20 20 20 32 32 30 20 41 |B,EE). | 220 A|
|00001550| 24 28 42 42 2c 45 45 29 | 3d 54 45 4d 50 24 9b 20 |$(BB,EE)|=TEMP$. |
|00001560| 20 20 20 20 32 33 30 20 | 4e 45 58 54 20 59 9b 20 | 230 |NEXT Y. |
|00001570| 20 20 20 20 32 34 30 20 | 4e 45 58 54 20 54 9b 20 | 240 |NEXT T. |
|00001580| 20 20 20 20 32 35 30 20 | 2d 2d 9b 20 20 20 20 20 | 250 |--. |
|00001590| 32 36 30 20 52 45 4d 20 | 50 52 49 4e 54 20 53 4f |260 REM |PRINT SO|
|000015a0| 52 54 45 44 20 57 4f 52 | 44 53 9b 20 20 20 20 20 |RTED WOR|DS. |
|000015b0| 32 37 30 20 3f 3a 3f 20 | 22 53 4f 52 54 45 44 20 |270 ?:? |"SORTED |
|000015c0| 57 4f 52 44 53 3a 22 3a | 3f 9b 20 20 20 20 20 32 |WORDS:":|?. 2|
|000015d0| 38 30 20 46 4f 52 20 4c | 3d 31 20 54 4f 20 4b 2a |80 FOR L|=1 TO K*|
|000015e0| 31 30 20 53 54 45 50 20 | 31 30 9b 20 20 20 20 20 |10 STEP |10. |
|000015f0| 32 39 30 20 3f 20 41 24 | 28 4c 2c 4c 2b 39 29 9b |290 ? A$|(L,L+9).|
|00001600| 20 20 20 20 20 33 30 30 | 20 4e 45 58 54 20 4c 9b | 300| NEXT L.|
|00001610| 20 20 20 20 20 33 31 30 | 20 2d 2d 9b 9b 20 20 20 | 310| --.. |
|00001620| 20 20 20 41 20 20 6c 69 | 6e 65 20 20 62 79 20 20 | A li|ne by |
|00001630| 6c 69 6e 65 20 65 78 70 | 6c 61 6e 61 74 69 6f 6e |line exp|lanation|
|00001640| 20 6f 66 9b 20 74 68 69 | 73 20 70 72 6f 67 72 61 | of. thi|s progra|
|00001650| 6d 20 69 73 20 61 73 20 | 66 6f 6c 6c 6f 77 73 3a |m is as |follows:|
|00001660| 9b 9b 20 31 30 2d 31 34 | 30 20 53 65 65 20 74 68 |.. 10-14|0 See th|
|00001670| 65 20 73 65 63 74 69 6f | 6e 20 6f 6e 20 50 53 45 |e sectio|n on PSE|
|00001680| 55 44 4f 9b 20 20 20 20 | 20 53 54 52 49 4e 47 20 |UDO. | STRING |
|00001690| 41 52 52 41 59 53 9b 20 | 31 35 30 20 52 45 4d 20 |ARRAYS. |150 REM |
|000016a0| 65 78 70 6c 61 6e 61 74 | 69 6f 6e 9b 20 31 36 30 |explanat|ion. 160|
|000016b0| 20 4f 75 74 65 72 20 42 | 75 62 62 6c 65 20 53 6f | Outer B|ubble So|
|000016c0| 72 74 20 6c 6f 6f 70 2e | 9b 20 20 20 20 20 4b 3d |rt loop.|. K=|
|000016d0| 6e 75 6d 62 65 72 20 6f | 66 20 77 6f 72 64 73 20 |number o|f words |
|000016e0| 58 20 74 68 65 20 65 6c | 65 6d 65 6e 74 9b 20 20 |X the el|ement. |
|000016f0| 20 20 20 6c 65 6e 67 74 | 68 2e 20 53 54 45 50 20 | lengt|h. STEP |
|00001700| 3d 20 65 6c 65 6d 65 6e | 74 20 6c 65 6e 67 74 68 |= elemen|t length|
|00001710| 9b 20 31 37 30 20 49 6e | 6e 65 72 20 6c 6f 6f 70 |. 170 In|ner loop|
|00001720| 20 6d 75 73 74 20 62 65 | 20 31 20 65 6c 65 6d 65 | must be| 1 eleme|
|00001730| 6e 74 20 9b 20 20 20 20 | 20 6c 65 73 73 20 74 68 |nt . | less th|
|00001740| 61 6e 20 74 68 65 20 6f | 75 74 65 72 20 6c 6f 6f |an the o|uter loo|
|00001750| 70 2e 20 54 68 61 74 9b | 20 20 20 20 20 69 73 20 |p. That.| is |
|00001760| 77 68 79 20 77 65 20 68 | 61 76 65 20 28 4b 2a 31 |why we h|ave (K*1|
|00001770| 30 29 2d 31 30 9b 20 31 | 38 30 2d 32 32 30 20 57 |0)-10. 1|80-220 W|
|00001780| 65 20 65 78 61 6d 69 6e | 65 20 65 61 63 68 20 65 |e examin|e each e|
|00001790| 6c 65 6d 65 6e 74 2e 20 | 49 66 9b 20 20 20 20 20 |lement. |If. |
|000017a0| 74 68 65 20 32 6e 64 20 | 65 6c 65 6d 65 6e 74 20 |the 2nd |element |
|000017b0| 69 73 20 6c 61 72 67 65 | 72 20 74 68 61 6e 9b 20 |is large|r than. |
|000017c0| 20 20 20 20 74 68 65 20 | 66 69 72 73 74 20 65 6c | the |first el|
|000017d0| 65 6d 65 6e 74 20 74 68 | 65 6e 20 69 74 20 69 73 |ement th|en it is|
|000017e0| 20 4f 4b 2e 9b 20 20 20 | 20 20 28 73 6d 61 6c 6c | OK.. | (small|
|000017f0| 20 74 6f 20 6c 61 72 67 | 65 29 20 2d 20 6e 6f 20 | to larg|e) - no |
|00001800| 73 77 69 74 63 68 69 6e | 67 2e 9b 20 20 20 20 20 |switchin|g.. |
|00001810| 49 66 20 69 74 20 69 73 | 20 6e 6f 74 20 69 6e 20 |If it is| not in |
|00001820| 74 68 65 20 72 69 67 68 | 74 20 6f 72 64 65 72 9b |the righ|t order.|
|00001830| 20 20 20 20 20 74 68 65 | 6e 20 77 65 20 64 6f 20 | the|n we do |
|00001840| 74 68 65 20 73 77 69 74 | 63 68 69 6e 67 2c 20 6a |the swit|ching, j|
|00001850| 75 73 74 9b 20 20 20 20 | 20 61 73 20 77 65 20 64 |ust. | as we d|
|00001860| 69 64 20 77 69 74 68 20 | 74 68 65 20 6e 75 6d 62 |id with |the numb|
|00001870| 65 72 9b 20 20 20 20 20 | 62 75 62 62 6c 65 20 73 |er. |bubble s|
|00001880| 6f 72 74 2e 9b 20 32 33 | 30 20 45 6e 64 20 6f 66 |ort.. 23|0 End of|
|00001890| 20 69 6e 6e 65 72 20 6c | 6f 6f 70 9b 20 32 34 30 | inner l|oop. 240|
|000018a0| 20 45 6e 64 20 6f 66 20 | 6f 75 74 65 72 20 6c 6f | End of |outer lo|
|000018b0| 6f 70 9b 20 32 35 30 20 | 33 30 20 64 61 73 68 65 |op. 250 |30 dashe|
|000018c0| 73 9b 20 32 36 30 20 52 | 45 4d 20 65 78 70 6c 61 |s. 260 R|EM expla|
|000018d0| 6e 61 74 69 6f 6e 9b 20 | 32 37 30 20 50 72 69 6e |nation. |270 Prin|
|000018e0| 74 9b 20 32 38 30 20 4c | 6f 6f 70 20 74 6f 20 64 |t. 280 L|oop to d|
|000018f0| 69 73 70 6c 61 79 20 73 | 6f 72 74 65 64 20 77 6f |isplay s|orted wo|
|00001900| 72 64 73 9b 20 32 39 30 | 20 50 72 69 6e 74 20 73 |rds. 290| Print s|
|00001910| 6f 72 74 65 64 20 77 6f | 72 64 73 9b 20 33 30 30 |orted wo|rds. 300|
|00001920| 20 45 6e 64 20 6f 66 20 | 6c 6f 6f 70 9b 20 33 31 | End of |loop. 31|
|00001930| 30 20 33 30 20 64 61 73 | 68 65 73 9b 9b 20 20 20 |0 30 das|hes.. |
|00001940| 20 20 20 49 66 20 20 20 | 79 6f 75 20 20 77 61 6e | If |you wan|
|00001950| 74 20 20 74 6f 20 20 73 | 6f 72 74 20 20 6c 61 72 |t to s|ort lar|
|00001960| 67 65 72 9b 20 73 74 72 | 69 6e 67 73 20 6c 65 74 |ger. str|ings let|
|00001970| 73 20 73 61 79 20 32 30 | 20 20 63 68 61 72 61 63 |s say 20| charac|
|00001980| 74 65 72 73 20 20 6c 6f | 6e 67 9b 20 74 68 65 6e |ters lo|ng. then|
|00001990| 20 20 63 68 61 6e 67 65 | 20 20 65 76 65 72 79 20 | change| every |
|000019a0| 72 65 66 65 72 65 6e 63 | 65 20 66 72 6f 6d 20 31 |referenc|e from 1|
|000019b0| 30 9b 20 74 6f 20 32 30 | 2e 20 54 68 65 79 20 61 |0. to 20|. They a|
|000019c0| 72 65 20 69 6e 20 6c 69 | 6e 65 73 20 35 30 2c 20 |re in li|nes 50, |
|000019d0| 36 30 2c 20 20 37 30 2c | 9b 20 38 30 2c 20 20 31 |60, 70,|. 80, 1|
|000019e0| 31 30 2c 20 20 20 20 20 | 20 20 31 32 30 28 4e 2c |10, | 120(N,|
|000019f0| 4e 2b 31 39 29 2c 20 31 | 36 30 2c 20 31 37 30 9b |N+19), 1|60, 170.|
|00001a00| 20 28 45 3d 59 2b 31 39 | 2c 20 42 42 3d 59 2b 32 | (E=Y+19|, BB=Y+2|
|00001a10| 30 2c 20 45 45 3d 59 2b | 28 32 30 2b 31 39 29 2c |0, EE=Y+|(20+19),|
|00001a20| 20 20 31 38 30 2c 9b 20 | 32 38 30 20 28 41 24 3d | 180,. |280 (A$=|
|00001a30| 4c 2c 4c 2b 31 39 29 9b | 9b 20 20 20 20 20 49 66 |L,L+19).|. If|
|00001a40| 20 20 79 6f 75 20 20 77 | 61 6e 74 20 74 6f 20 73 | you w|ant to s|
|00001a50| 6f 72 74 20 66 72 6f 6d | 20 5a 20 74 6f 20 41 9b |ort from| Z to A.|
|00001a60| 20 74 68 65 6e 20 63 68 | 61 6e 67 65 20 74 68 65 | then ch|ange the|
|00001a70| 20 28 3e 29 20 69 6e 20 | 20 6c 69 6e 65 20 20 31 | (>) in | line 1|
|00001a80| 39 30 20 20 74 6f 9b 20 | 28 3c 29 9b 9b 9b 20 20 |90 to. |(<)... |
|00001a90| 20 20 20 20 20 20 20 54 | 48 45 20 53 48 45 4c 4c | T|HE SHELL|
|00001aa0| 20 53 54 52 49 4e 47 20 | 53 4f 52 54 9b 20 20 20 | STRING |SORT. |
|00001ab0| 20 20 20 20 20 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | --|--------|
|00001ac0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 9b 9b 20 20 20 |--------|---.. |
|00001ad0| 20 20 20 54 68 65 20 20 | 53 48 45 4c 4c 20 20 53 | The |SHELL S|
|00001ae0| 4f 52 54 20 20 69 73 20 | 6d 75 63 68 20 66 61 73 |ORT is |much fas|
|00001af0| 74 65 72 9b 20 74 68 61 | 6e 20 74 68 65 20 42 55 |ter. tha|n the BU|
|00001b00| 42 42 4c 45 20 53 4f 52 | 54 2e 20 54 68 65 20 20 |BBLE SOR|T. The |
|00001b10| 72 65 61 73 6f 6e 20 20 | 69 74 9b 20 69 73 20 20 |reason |it. is |
|00001b20| 66 61 73 74 65 72 20 20 | 69 73 20 20 74 68 61 74 |faster |is that|
|00001b30| 20 20 74 68 65 20 20 6e | 75 6d 62 65 72 20 20 6f | the n|umber o|
|00001b40| 66 9b 20 63 6f 6d 70 61 | 72 69 73 6f 6e 73 20 74 |f. compa|risons t|
|00001b50| 6f 20 62 65 20 20 6d 61 | 64 65 20 20 69 73 20 20 |o be ma|de is |
|00001b60| 72 65 64 75 63 65 64 2e | 9b 20 49 66 20 79 6f 75 |reduced.|. If you|
|00001b70| 20 74 72 79 20 74 6f 20 | 73 6f 72 74 20 32 20 20 | try to |sort 2 |
|00001b80| 77 6f 72 64 73 20 20 6f | 72 20 20 6c 65 73 73 9b |words o|r less.|
|00001b90| 20 74 68 61 6e 20 79 6f | 75 20 77 69 6c 6c 20 67 | than yo|u will g|
|00001ba0| 65 74 20 61 6e 20 65 72 | 72 6f 72 20 62 65 63 61 |et an er|ror beca|
|00001bb0| 75 73 65 20 69 6e 9b 20 | 6c 69 6e 65 20 39 30 20 |use in. |line 90 |
|00001bc0| 74 68 65 20 46 4f 52 2d | 4e 45 58 54 20 6c 6f 6f |the FOR-|NEXT loo|
|00001bd0| 70 20 62 65 63 6f 6d 65 | 73 20 20 61 6e 9b 20 69 |p become|s an. i|
|00001be0| 6c 6c 65 67 61 6c 20 72 | 65 76 65 72 73 65 20 6c |llegal r|everse l|
|00001bf0| 6f 6f 70 20 28 46 4f 52 | 20 54 3d 31 20 54 4f 20 |oop (FOR| T=1 TO |
|00001c00| 30 29 9b 9b 20 20 20 20 | 20 20 49 6e 20 20 6c 69 |0).. | In li|
|00001c10| 6e 65 20 32 31 30 20 77 | 65 20 61 73 73 69 67 6e |ne 210 w|e assign|
|00001c20| 20 76 61 72 69 61 62 6c | 65 73 9b 20 74 6f 20 20 | variabl|es. to |
|00001c30| 20 74 68 65 20 20 20 65 | 6c 65 6d 65 6e 74 20 20 | the e|lement |
|00001c40| 20 62 65 67 69 6e 6e 69 | 6e 67 20 20 20 20 61 6e | beginni|ng an|
|00001c50| 64 9b 20 65 6e 64 69 6e | 67 73 2e 9b 9b 20 20 20 |d. endin|gs... |
|00001c60| 20 20 20 42 28 62 65 67 | 69 6e 6e 69 6e 67 20 6f | B(beg|inning o|
|00001c70| 66 20 65 6c 65 6d 65 6e | 74 29 3d 59 2a 31 30 2d |f elemen|t)=Y*10-|
|00001c80| 39 9b 20 20 20 20 20 20 | 45 28 65 6e 64 69 6e 67 |9. |E(ending|
|00001c90| 20 6f 66 20 65 6c 65 6d | 65 6e 74 29 3d 59 2a 31 | of elem|ent)=Y*1|
|00001ca0| 30 9b 20 20 20 20 20 20 | 42 42 28 4e 65 78 74 20 |0. |BB(Next |
|00001cb0| 68 69 67 68 65 72 20 65 | 6c 6d 74 29 3d 5a 2a 31 |higher e|lmt)=Z*1|
|00001cc0| 30 2d 39 9b 20 20 20 20 | 20 20 45 45 28 45 6e 64 |0-9. | EE(End|
|00001cd0| 69 6e 67 20 65 6c 65 6d | 65 6e 74 29 3d 5a 2a 31 |ing elem|ent)=Z*1|
|00001ce0| 30 9b 9b 20 20 20 20 20 | 20 50 6c 65 61 73 65 20 |0.. | Please |
|00001cf0| 20 6b 65 79 20 20 69 6e | 20 20 74 68 69 73 20 73 | key in| this s|
|00001d00| 68 6f 72 74 20 64 65 6d | 6f 9b 20 70 72 6f 67 72 |hort dem|o. progr|
|00001d10| 61 6d 20 74 6f 20 73 65 | 65 20 68 6f 77 20 69 74 |am to se|e how it|
|00001d20| 20 77 6f 72 6b 73 2e 9b | 9b 20 20 20 20 20 20 31 | works..|. 1|
|00001d30| 30 20 2d 2d 9b 20 20 20 | 20 20 20 32 30 20 52 45 |0 --. | 20 RE|
|00001d40| 4d 20 49 4e 50 55 54 20 | 53 54 52 49 4e 47 20 41 |M INPUT |STRING A|
|00001d50| 52 52 41 59 9b 20 20 20 | 20 20 20 33 30 20 43 4c |RRAY. | 30 CL|
|00001d60| 53 3a 3f 9b 20 20 20 20 | 20 20 34 30 20 49 4e 50 |S:?. | 40 INP|
|00001d70| 55 54 20 22 48 4f 57 20 | 4d 41 4e 59 20 57 4f 52 |UT "HOW |MANY WOR|
|00001d80| 44 53 20 54 4f 20 9b 20 | 20 20 20 20 20 20 20 20 |DS TO . | |
|00001d90| 53 4f 52 54 22 3b 4b 9b | 20 20 20 20 20 20 35 30 |SORT";K.| 50|
|00001da0| 20 44 49 4d 20 41 24 28 | 4b 2a 31 30 29 2c 53 55 | DIM A$(|K*10),SU|
|00001db0| 42 24 28 31 30 29 2c 9b | 20 20 20 20 20 20 20 20 |B$(10),.| |
|00001dc0| 20 50 41 44 24 28 31 30 | 29 2c 54 45 4d 50 24 28 | PAD$(10|),TEMP$(|
|00001dd0| 31 30 29 9b 20 20 20 20 | 20 20 36 30 20 50 41 44 |10). | 60 PAD|
|00001de0| 24 3d 22 20 20 20 20 20 | 20 20 20 20 20 22 3a 52 |$=" | ":R|
|00001df0| 45 4d 20 31 30 9b 20 20 | 20 20 20 20 20 20 20 53 |EM 10. | S|
|00001e00| 50 41 43 45 53 9b 20 20 | 20 20 20 20 37 30 20 3f |PACES. | 70 ?|
|00001e10| 3a 3f 20 22 4d 41 58 2e | 20 4e 55 4d 42 45 52 20 |:? "MAX.| NUMBER |
|00001e20| 4f 46 20 4c 45 54 54 45 | 52 53 9b 20 20 20 20 20 |OF LETTE|RS. |
|00001e30| 20 20 20 20 3d 20 31 30 | 22 3a 3f 9b 20 20 20 20 | = 10|":?. |
|00001e40| 20 20 38 30 20 46 4f 52 | 20 4e 3d 31 20 54 4f 20 | 80 FOR| N=1 TO |
|00001e50| 4b 2a 31 30 20 53 54 45 | 50 20 31 30 9b 20 20 20 |K*10 STE|P 10. |
|00001e60| 20 20 20 39 30 20 49 4e | 50 55 54 20 22 47 49 56 | 90 IN|PUT "GIV|
|00001e70| 45 20 4d 45 20 41 20 57 | 4f 52 44 22 3b 9b 20 20 |E ME A W|ORD";. |
|00001e80| 20 20 20 20 20 20 20 53 | 55 42 24 9b 20 20 20 20 | S|UB$. |
|00001e90| 20 31 30 30 20 53 4c 3d | 4c 45 4e 28 53 55 42 24 | 100 SL=|LEN(SUB$|
|00001ea0| 29 9b 20 20 20 20 20 31 | 31 30 20 49 46 20 53 4c |). 1|10 IF SL|
|00001eb0| 3c 31 30 20 54 48 45 4e | 20 53 55 42 24 28 53 4c |<10 THEN| SUB$(SL|
|00001ec0| 2b 31 29 3d 9b 20 20 20 | 20 20 20 20 20 20 50 41 |+1)=. | PA|
|00001ed0| 44 24 9b 20 20 20 20 20 | 31 32 30 20 41 24 28 4e |D$. |120 A$(N|
|00001ee0| 2c 4e 2b 39 29 3d 53 55 | 42 24 9b 20 20 20 20 20 |,N+9)=SU|B$. |
|00001ef0| 31 33 30 20 4e 45 58 54 | 20 4e 9b 20 20 20 20 20 |130 NEXT| N. |
|00001f00| 31 34 30 20 2d 2d 9b 20 | 20 20 20 20 31 35 30 20 |140 --. | 150 |
|00001f10| 52 45 4d 20 53 48 45 4c | 4c 20 53 4f 52 54 9b 20 |REM SHEL|L SORT. |
|00001f20| 20 20 20 20 31 36 30 20 | 58 3d 31 9b 20 20 20 20 | 160 |X=1. |
|00001f30| 20 31 37 30 20 58 3d 32 | 2a 58 3a 49 46 20 58 3c | 170 X=2|*X:IF X<|
|00001f40| 3d 4b 20 54 48 45 4e 20 | 31 37 30 9b 20 20 20 20 |=K THEN |170. |
|00001f50| 20 31 38 30 20 58 3d 49 | 4e 54 28 58 2f 32 29 3a | 180 X=I|NT(X/2):|
|00001f60| 49 46 20 58 3d 30 20 54 | 48 45 4e 20 33 30 30 9b |IF X=0 T|HEN 300.|
|00001f70| 20 20 20 20 20 31 39 30 | 20 46 4f 52 20 54 3d 31 | 190| FOR T=1|
|00001f80| 20 54 4f 20 4b 2d 58 3a | 59 3d 54 9b 20 20 20 20 | TO K-X:|Y=T. |
|00001f90| 20 32 30 30 20 5a 3d 59 | 2b 58 9b 20 20 20 20 20 | 200 Z=Y|+X. |
|00001fa0| 32 31 30 20 42 3d 59 2a | 31 30 2d 39 3a 45 3d 59 |210 B=Y*|10-9:E=Y|
|00001fb0| 2a 31 30 3a 42 42 3d 5a | 2a 31 30 2d 39 3a 9b 20 |*10:BB=Z|*10-9:. |
|00001fc0| 20 20 20 20 20 20 20 20 | 45 45 3d 5a 2a 31 30 9b | |EE=Z*10.|
|00001fd0| 20 20 20 20 20 32 32 30 | 20 49 46 20 41 24 28 42 | 220| IF A$(B|
|00001fe0| 2c 45 29 3c 3d 41 24 28 | 42 42 2c 45 45 29 20 54 |,E)<=A$(|BB,EE) T|
|00001ff0| 48 45 4e 20 9b 20 20 20 | 20 20 20 20 20 20 32 37 |HEN . | 27|
|00002000| 30 9b 20 20 20 20 20 32 | 33 30 20 54 45 4d 50 24 |0. 2|30 TEMP$|
|00002010| 3d 41 24 28 42 2c 45 29 | 9b 20 20 20 20 20 32 34 |=A$(B,E)|. 24|
|00002020| 30 20 41 24 28 42 2c 45 | 29 3d 41 24 28 42 42 2c |0 A$(B,E|)=A$(BB,|
|00002030| 45 45 29 9b 20 20 20 20 | 20 32 35 30 20 41 24 28 |EE). | 250 A$(|
|00002040| 42 42 2c 45 45 29 3d 54 | 45 4d 50 24 9b 20 20 20 |BB,EE)=T|EMP$. |
|00002050| 20 20 32 36 30 20 59 3d | 59 2d 58 3a 49 46 20 59 | 260 Y=|Y-X:IF Y|
|00002060| 3e 30 20 54 48 45 4e 20 | 32 30 30 9b 20 20 20 20 |>0 THEN |200. |
|00002070| 20 32 37 30 20 4e 45 58 | 54 20 54 3a 47 4f 54 4f | 270 NEX|T T:GOTO|
|00002080| 20 31 38 30 9b 20 20 20 | 20 20 32 38 30 20 2d 2d | 180. | 280 --|
|00002090| 9b 20 20 20 20 20 32 39 | 30 20 52 45 4d 20 50 52 |. 29|0 REM PR|
|000020a0| 49 4e 54 20 53 4f 52 54 | 45 44 20 57 4f 52 44 53 |INT SORT|ED WORDS|
|000020b0| 9b 20 20 20 20 20 33 30 | 30 20 3f 3a 3f 20 22 53 |. 30|0 ?:? "S|
|000020c0| 4f 52 54 45 44 20 57 4f | 52 44 53 3a 22 3a 3f 9b |ORTED WO|RDS:":?.|
|000020d0| 20 20 20 20 20 33 31 30 | 20 46 4f 52 20 4c 3d 31 | 310| FOR L=1|
|000020e0| 20 54 4f 20 4b 2a 31 30 | 20 53 54 45 50 20 31 30 | TO K*10| STEP 10|
|000020f0| 9b 20 20 20 20 20 33 32 | 30 20 3f 20 41 24 28 4c |. 32|0 ? A$(L|
|00002100| 2c 4c 2b 39 29 9b 20 20 | 20 20 20 33 33 30 20 4e |,L+9). | 330 N|
|00002110| 45 58 54 20 4c 9b 20 20 | 20 20 20 33 34 30 20 2d |EXT L. | 340 -|
|00002120| 2d 9b 9b 20 20 20 20 20 | 20 49 66 20 20 20 79 6f |-.. | If yo|
|00002130| 75 20 20 77 61 6e 74 20 | 20 74 6f 20 20 73 6f 72 |u want | to sor|
|00002140| 74 20 20 6c 61 72 67 65 | 72 9b 20 73 74 72 69 6e |t large|r. strin|
|00002150| 67 73 2c 20 20 20 6c 65 | 74 73 20 20 20 73 61 79 |gs, le|ts say|
|00002160| 20 20 20 79 6f 75 20 20 | 77 61 6e 74 20 20 32 30 | you |want 20|
|00002170| 9b 20 63 68 61 72 61 63 | 74 65 72 73 2c 20 20 20 |. charac|ters, |
|00002180| 70 6c 65 61 73 65 20 20 | 20 63 68 61 6e 67 65 20 |please | change |
|00002190| 20 20 65 76 65 72 79 9b | 20 72 65 66 65 72 65 6e | every.| referen|
|000021a0| 63 65 20 20 66 72 6f 6d | 20 31 30 20 74 6f 20 32 |ce from| 10 to 2|
|000021b0| 30 2e 20 54 68 65 79 20 | 61 72 65 20 69 6e 9b 20 |0. They |are in. |
|000021c0| 6c 69 6e 65 73 73 3a 20 | 20 35 30 2c 20 20 20 36 |liness: | 50, 6|
|000021d0| 30 2c 20 20 20 37 30 2c | 20 20 20 38 30 2c 20 20 |0, 70,| 80, |
|000021e0| 20 31 31 30 2c 9b 20 31 | 32 30 28 4e 2c 4e 2b 31 | 110,. 1|20(N,N+1|
|000021f0| 39 29 2c 20 20 32 31 30 | 28 42 3d 59 2a 32 30 2d |9), 210|(B=Y*20-|
|00002200| 31 39 2c 20 20 45 3d 59 | 2a 32 30 29 9b 20 61 6e |19, E=Y|*20). an|
|00002210| 64 20 20 74 68 65 20 20 | 73 61 6d 65 20 20 66 6f |d the |same fo|
|00002220| 72 20 20 42 42 20 20 61 | 6e 64 20 45 45 2c 20 33 |r BB a|nd EE, 3|
|00002230| 31 30 2c 9b 20 33 32 30 | 28 4c 2c 4c 2b 31 39 29 |10,. 320|(L,L+19)|
|00002240| 2e 9b 9b 9b 20 20 20 20 | 20 20 20 20 52 45 4c 41 |.... | RELA|
|00002250| 54 49 4f 4e 41 4c 20 42 | 55 42 42 4c 45 20 53 4f |TIONAL B|UBBLE SO|
|00002260| 52 54 9b 20 20 20 20 20 | 20 20 20 2d 2d 2d 2d 2d |RT. | -----|
|00002270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002280| 2d 9b 9b 20 20 20 20 20 | 20 41 20 72 65 6c 61 74 |-.. | A relat|
|00002290| 69 6f 6e 61 6c 20 73 6f | 72 74 20 69 73 20 69 66 |ional so|rt is if|
|000022a0| 20 79 6f 75 20 68 61 76 | 65 9b 20 32 20 61 72 72 | you hav|e. 2 arr|
|000022b0| 61 79 73 20 61 6e 64 20 | 74 68 65 79 20 61 72 65 |ays and |they are|
|000022c0| 20 72 65 6c 61 74 65 64 | 20 74 6f 20 65 61 63 68 | related| to each|
|000022d0| 9b 20 6f 74 68 65 72 20 | 20 20 69 6e 20 20 20 73 |. other | in s|
|000022e0| 6f 6d 65 20 20 20 77 61 | 79 20 20 20 20 61 6e 64 |ome wa|y and|
|000022f0| 20 20 20 20 74 68 65 9b | 20 72 65 6c 61 74 69 6f | the.| relatio|
|00002300| 6e 73 68 69 70 20 20 68 | 61 73 20 20 74 6f 20 20 |nship h|as to |
|00002310| 62 65 20 6d 61 69 6e 74 | 61 69 6e 65 64 2e 9b 20 |be maint|ained.. |
|00002320| 46 6f 72 20 69 6e 73 74 | 61 6e 63 65 2c 20 20 77 |For inst|ance, w|
|00002330| 65 20 20 77 61 6e 74 20 | 20 74 6f 20 20 77 72 69 |e want | to wri|
|00002340| 74 65 20 20 61 9b 20 74 | 65 6c 65 70 68 6f 6e 65 |te a. t|elephone|
|00002350| 20 20 64 69 72 65 63 74 | 6f 72 79 20 20 70 72 6f | direct|ory pro|
|00002360| 67 72 61 6d 2e 20 49 6e | 20 6f 6e 65 9b 20 61 72 |gram. In| one. ar|
|00002370| 72 61 79 20 77 65 20 73 | 74 6f 72 65 20 74 68 65 |ray we s|tore the|
|00002380| 20 6e 61 6d 65 73 20 61 | 6e 64 20 20 69 6e 20 20 | names a|nd in |
|00002390| 74 68 65 9b 20 6f 74 68 | 65 72 20 20 77 65 20 73 |the. oth|er we s|
|000023a0| 74 6f 72 65 20 74 68 65 | 20 70 68 6f 6e 65 20 6e |tore the| phone n|
|000023b0| 75 6d 62 65 72 73 2e 20 | 57 65 9b 20 61 72 65 20 |umbers. |We. are |
|000023c0| 67 6f 69 6e 67 20 74 6f | 20 73 6f 72 74 20 74 68 |going to| sort th|
|000023d0| 65 20 6e 61 6d 65 73 20 | 20 62 75 74 20 20 74 68 |e names | but th|
|000023e0| 65 9b 20 70 68 6f 6e 65 | 20 20 6e 75 6d 62 65 72 |e. phone| number|
|000023f0| 73 20 20 61 6c 77 61 79 | 73 20 20 68 61 76 65 20 |s alway|s have |
|00002400| 20 74 6f 20 20 20 62 65 | 9b 20 73 77 69 74 63 68 | to be|. switch|
|00002410| 65 64 20 20 77 69 74 68 | 20 74 68 65 20 6e 61 6d |ed with| the nam|
|00002420| 65 20 73 6f 20 74 68 65 | 20 70 72 6f 70 65 72 9b |e so the| proper.|
|00002430| 20 72 65 6c 61 74 69 6f | 6e 73 68 69 70 20 69 73 | relatio|nship is|
|00002440| 20 6d 61 69 6e 74 61 69 | 6e 65 64 2e 9b 9b 20 20 | maintai|ned... |
|00002450| 20 20 20 20 57 68 65 6e | 20 77 65 20 20 73 6f 72 | When| we sor|
|00002460| 74 20 20 77 69 74 68 20 | 20 74 68 65 20 20 42 75 |t with | the Bu|
|00002470| 62 62 6c 65 9b 20 53 6f | 72 74 20 20 74 68 65 20 |bble. So|rt the |
|00002480| 20 73 77 69 74 63 68 69 | 6e 67 20 69 73 20 64 6f | switchi|ng is do|
|00002490| 6e 65 20 69 6e 20 6c 69 | 6e 65 73 9b 20 32 34 30 |ne in li|nes. 240|
|000024a0| 2c 20 32 35 30 2c 20 61 | 6e 64 20 20 32 36 30 2e |, 250, a|nd 260.|
|000024b0| 20 20 49 74 20 20 69 73 | 20 20 64 6f 6e 65 20 20 | It is| done |
|000024c0| 61 73 9b 20 66 6f 6c 6c | 6f 77 73 3a 9b 9b 20 20 |as. foll|ows:.. |
|000024d0| 20 20 20 20 32 34 30 20 | 54 45 4d 50 24 3d 41 24 | 240 |TEMP$=A$|
|000024e0| 28 42 2c 45 29 3a 54 45 | 4d 50 31 24 3d 9b 20 20 |(B,E):TE|MP1$=. |
|000024f0| 20 20 20 20 20 20 20 20 | 42 24 28 42 2c 45 29 9b | |B$(B,E).|
|00002500| 20 20 20 20 20 20 32 35 | 30 20 41 24 28 42 2c 45 | 25|0 A$(B,E|
|00002510| 29 3d 41 24 28 42 42 2c | 45 45 29 3a 42 24 28 42 |)=A$(BB,|EE):B$(B|
|00002520| 2c 45 29 3d 9b 20 20 20 | 20 20 20 20 20 20 20 42 |,E)=. | B|
|00002530| 24 28 42 42 2c 45 45 29 | 9b 20 20 20 20 20 20 32 |$(BB,EE)|. 2|
|00002540| 36 30 20 41 24 28 42 42 | 2c 45 45 29 3d 54 45 4d |60 A$(BB|,EE)=TEM|
|00002550| 50 24 3a 42 24 28 42 42 | 2c 45 45 29 3d 9b 20 20 |P$:B$(BB|,EE)=. |
|00002560| 20 20 20 20 20 20 20 20 | 54 45 4d 50 31 24 9b 9b | |TEMP1$..|
|00002570| 20 20 20 20 20 20 41 24 | 20 20 69 73 20 20 74 68 | A$| is th|
|00002580| 65 20 6e 61 6d 65 20 61 | 72 72 61 79 20 61 6e 64 |e name a|rray and|
|00002590| 20 42 24 20 69 73 9b 20 | 74 68 65 20 70 68 6f 6e | B$ is. |the phon|
|000025a0| 65 20 6e 75 6d 62 65 72 | 20 73 74 72 69 6e 67 20 |e number| string |
|000025b0| 61 72 72 61 79 2e 20 20 | 54 45 4d 50 24 9b 20 69 |array. |TEMP$. i|
|000025c0| 73 20 69 6e 20 74 68 65 | 20 6e 61 6d 65 20 61 72 |s in the| name ar|
|000025d0| 72 61 79 20 61 6e 64 20 | 54 45 4d 50 31 24 20 69 |ray and |TEMP1$ i|
|000025e0| 73 20 69 6e 9b 20 74 68 | 65 20 70 68 6f 6e 65 20 |s in. th|e phone |
|000025f0| 6e 75 6d 62 65 72 20 61 | 72 72 61 79 2e 20 41 73 |number a|rray. As|
|00002600| 20 77 65 20 20 73 77 69 | 74 63 68 9b 20 65 61 63 | we swi|tch. eac|
|00002610| 68 20 20 6e 61 6d 65 20 | 20 64 75 72 69 6e 67 20 |h name | during |
|00002620| 20 61 20 73 6f 72 74 20 | 73 6f 20 77 65 20 61 6c | a sort |so we al|
|00002630| 73 6f 9b 20 73 77 69 74 | 63 68 20 74 68 65 20 70 |so. swit|ch the p|
|00002640| 68 6f 6e 65 20 6e 75 6d | 62 65 72 20 61 72 72 61 |hone num|ber arra|
|00002650| 79 20 20 73 6f 20 20 69 | 74 9b 20 6d 61 69 6e 74 |y so i|t. maint|
|00002660| 61 69 6e 73 20 69 74 73 | 20 70 72 6f 70 65 72 20 |ains its| proper |
|00002670| 72 65 6c 61 74 69 6f 6e | 73 68 69 70 2e 9b 9b 20 |relation|ship... |
|00002680| 20 20 20 20 20 57 65 20 | 20 75 73 65 20 20 61 20 | We | use a |
|00002690| 20 73 74 72 69 6e 67 20 | 61 72 72 61 79 20 66 6f | string |array fo|
|000026a0| 72 20 74 68 65 9b 20 6e | 75 6d 62 65 72 73 20 62 |r the. n|umbers b|
|000026b0| 65 63 61 75 73 65 20 6d | 61 6e 79 20 70 65 6f 70 |ecause m|any peop|
|000026c0| 6c 65 20 75 73 65 20 61 | 20 27 2d 27 9b 20 69 6e |le use a| '-'. in|
|000026d0| 20 20 74 68 65 69 72 20 | 20 70 68 6f 6e 65 20 6e | their | phone n|
|000026e0| 75 6d 62 65 72 73 20 61 | 6e 64 20 61 20 6e 75 6d |umbers a|nd a num|
|000026f0| 62 65 72 9b 20 61 72 72 | 61 79 20 77 6f 75 6c 64 |ber. arr|ay would|
|00002700| 20 6e 6f 74 20 61 63 63 | 65 70 74 20 69 74 2e 20 | not acc|ept it. |
|00002710| 20 41 20 20 73 65 63 6f | 6e 64 9b 20 72 65 61 73 | A seco|nd. reas|
|00002720| 6f 6e 20 20 69 73 20 20 | 74 68 61 74 20 20 69 66 |on is |that if|
|00002730| 20 61 20 6e 75 6d 62 65 | 72 20 62 65 63 6f 6d 65 | a numbe|r become|
|00002740| 73 9b 20 74 6f 6f 20 20 | 20 6c 61 72 67 65 20 20 |s. too | large |
|00002750| 20 69 74 20 20 20 69 73 | 20 20 20 65 78 70 72 65 | it is| expre|
|00002760| 73 73 65 64 20 20 69 6e | 9b 20 73 63 69 65 6e 74 |ssed in|. scient|
|00002770| 69 66 69 63 20 6e 6f 74 | 61 74 69 6f 6e 2e 20 9b |ific not|ation. .|
|00002780| 9b 20 20 20 20 20 20 49 | 6e 20 6f 75 72 20 64 65 |. I|n our de|
|00002790| 6d 6f 20 70 72 6f 67 72 | 61 6d 20 77 65 20 44 49 |mo progr|am we DI|
|000027a0| 4d 20 20 65 61 63 68 9b | 20 65 6c 65 6d 65 6e 74 |M each.| element|
|000027b0| 20 20 6f 66 20 74 68 65 | 20 6e 61 6d 65 20 61 6e | of the| name an|
|000027c0| 64 20 70 68 6f 6e 65 20 | 6e 75 6d 62 65 72 9b 20 |d phone |number. |
|000027d0| 61 72 72 61 79 20 74 6f | 20 31 30 20 74 6f 20 20 |array to| 10 to |
|000027e0| 6d 61 6b 65 20 20 69 74 | 20 20 73 69 6d 70 6c 65 |make it| simple|
|000027f0| 72 20 20 74 6f 9b 20 75 | 6e 64 65 72 73 74 61 6e |r to. u|nderstan|
|00002800| 64 2e 9b 9b 20 20 20 20 | 20 20 50 6c 65 61 73 65 |d... | Please|
|00002810| 20 20 6b 65 79 20 20 69 | 6e 20 20 74 68 69 73 20 | key i|n this |
|00002820| 73 68 6f 72 74 20 64 65 | 6d 6f 9b 20 70 72 6f 67 |short de|mo. prog|
|00002830| 72 61 6d 20 74 6f 20 73 | 65 65 20 68 6f 77 20 69 |ram to s|ee how i|
|00002840| 74 20 77 6f 72 6b 73 2e | 9b 9b 20 20 20 20 20 20 |t works.|.. |
|00002850| 31 30 20 2d 2d 9b 20 20 | 20 20 20 20 32 30 20 52 |10 --. | 20 R|
|00002860| 45 4d 20 49 4e 50 55 54 | 20 4e 41 4d 45 53 20 41 |EM INPUT| NAMES A|
|00002870| 4e 44 20 4e 55 4d 42 45 | 52 53 9b 20 20 20 20 20 |ND NUMBE|RS. |
|00002880| 20 20 20 20 49 4e 54 4f | 20 54 48 45 20 53 54 52 | INTO| THE STR|
|00002890| 49 4e 47 20 41 52 52 41 | 59 53 9b 20 20 20 20 20 |ING ARRA|YS. |
|000028a0| 20 33 30 20 43 4c 53 3a | 3f 9b 20 20 20 20 20 20 | 30 CLS:|?. |
|000028b0| 34 30 20 49 4e 50 55 54 | 20 22 48 4f 57 20 4d 41 |40 INPUT| "HOW MA|
|000028c0| 4e 59 20 50 48 4f 4e 45 | 9b 20 20 20 20 20 20 20 |NY PHONE|. |
|000028d0| 20 20 4e 55 4d 42 45 52 | 53 20 54 4f 20 53 4f 52 | NUMBER|S TO SOR|
|000028e0| 54 22 3b 4b 9b 20 20 20 | 20 20 20 35 30 20 44 49 |T";K. | 50 DI|
|000028f0| 4d 20 41 24 28 4b 2a 31 | 30 29 2c 42 24 28 4b 2a |M A$(K*1|0),B$(K*|
|00002900| 31 30 29 2c 9b 20 20 20 | 20 20 20 20 20 20 53 55 |10),. | SU|
|00002910| 42 24 28 31 30 29 2c 53 | 55 42 31 24 28 31 30 29 |B$(10),S|UB1$(10)|
|00002920| 2c 50 41 44 24 28 31 30 | 29 9b 20 20 20 20 20 20 |,PAD$(10|). |
|00002930| 20 20 20 54 45 4d 50 24 | 28 31 30 29 2c 54 45 4d | TEMP$|(10),TEM|
|00002940| 50 31 24 28 31 30 29 9b | 20 20 20 20 20 20 36 30 |P1$(10).| 60|
|00002950| 20 50 41 44 24 3d 22 20 | 20 20 20 20 20 20 20 20 | PAD$=" | |
|00002960| 20 22 3a 52 45 4d 20 31 | 30 20 9b 20 20 20 20 20 | ":REM 1|0 . |
|00002970| 20 20 20 20 53 50 41 43 | 45 53 9b 20 20 20 20 20 | SPAC|ES. |
|00002980| 20 37 30 20 3f 3a 3f 20 | 22 4d 41 58 2e 20 4c 45 | 70 ?:? |"MAX. LE|
|00002990| 54 54 45 52 53 20 4f 52 | 9b 20 20 20 20 20 20 20 |TTERS OR|. |
|000029a0| 20 20 4e 55 4d 42 45 52 | 53 20 3d 20 31 30 22 3a | NUMBER|S = 10":|
|000029b0| 3f 9b 20 20 20 20 20 20 | 38 30 20 46 4f 52 20 4e |?. |80 FOR N|
|000029c0| 3d 31 20 54 4f 20 4b 2a | 31 30 20 53 54 45 50 20 |=1 TO K*|10 STEP |
|000029d0| 31 30 9b 20 20 20 20 20 | 20 39 30 20 49 4e 50 55 |10. | 90 INPU|
|000029e0| 54 20 22 47 49 56 45 20 | 4d 45 20 54 48 45 20 4e |T "GIVE |ME THE N|
|000029f0| 41 4d 45 22 3b 9b 20 20 | 20 20 20 20 20 20 20 53 |AME";. | S|
|00002a00| 55 42 24 9b 20 20 20 20 | 20 31 30 30 20 49 4e 50 |UB$. | 100 INP|
|00002a10| 55 54 20 22 47 49 56 45 | 20 4d 45 20 54 48 45 20 |UT "GIVE| ME THE |
|00002a20| 4e 55 4d 42 45 52 22 3b | 9b 20 20 20 20 20 20 20 |NUMBER";|. |
|00002a30| 20 20 53 55 42 31 24 9b | 20 20 20 20 20 31 31 30 | SUB1$.| 110|
|00002a40| 20 3f 3a 53 4c 3d 4c 45 | 4e 28 53 55 42 24 29 9b | ?:SL=LE|N(SUB$).|
|00002a50| 20 20 20 20 20 31 32 30 | 20 53 4c 31 3d 4c 45 4e | 120| SL1=LEN|
|00002a60| 28 53 55 42 31 24 29 9b | 20 20 20 20 20 31 33 30 |(SUB1$).| 130|
|00002a70| 20 49 46 20 53 4c 3c 31 | 30 20 54 48 45 4e 20 53 | IF SL<1|0 THEN S|
|00002a80| 55 42 24 28 53 4c 2b 31 | 29 3d 9b 20 20 20 20 20 |UB$(SL+1|)=. |
|00002a90| 20 20 20 20 50 41 44 24 | 9b 20 20 20 20 20 31 34 | PAD$|. 14|
|00002aa0| 30 20 49 46 20 53 4c 31 | 3c 31 30 20 54 48 45 4e |0 IF SL1|<10 THEN|
|00002ab0| 20 53 55 42 31 24 28 53 | 4c 31 2b 31 29 3d 9b 20 | SUB1$(S|L1+1)=. |
|00002ac0| 20 20 20 20 20 20 20 20 | 50 41 44 24 9b 20 20 20 | |PAD$. |
|00002ad0| 20 20 31 35 30 20 41 24 | 28 4e 2c 4e 2b 39 29 3d | 150 A$|(N,N+9)=|
|00002ae0| 53 55 42 24 9b 20 20 20 | 20 20 31 36 30 20 42 24 |SUB$. | 160 B$|
|00002af0| 28 4e 2c 4e 2b 39 29 3d | 53 55 42 31 24 9b 20 20 |(N,N+9)=|SUB1$. |
|00002b00| 20 20 20 31 37 30 20 4e | 45 58 54 20 4e 9b 20 20 | 170 N|EXT N. |
|00002b10| 20 20 20 31 38 30 20 2d | 2d 9b 20 20 20 20 20 31 | 180 -|-. 1|
|00002b20| 39 30 20 52 45 4d 20 52 | 45 4c 41 54 49 4f 4e 41 |90 REM R|ELATIONA|
|00002b30| 4c 20 42 55 42 42 4c 45 | 20 53 4f 52 54 9b 20 20 |L BUBBLE| SORT. |
|00002b40| 20 20 20 32 30 30 20 46 | 4f 52 20 54 3d 31 20 54 | 200 F|OR T=1 T|
|00002b50| 4f 20 4b 2a 31 30 20 53 | 54 45 50 20 31 30 9b 20 |O K*10 S|TEP 10. |
|00002b60| 20 20 20 20 32 31 30 20 | 46 4f 52 20 59 3d 31 20 | 210 |FOR Y=1 |
|00002b70| 54 4f 20 28 4b 2a 31 30 | 29 2d 31 30 20 53 54 45 |TO (K*10|)-10 STE|
|00002b80| 50 20 31 30 9b 20 20 20 | 20 20 32 32 30 20 42 3d |P 10. | 220 B=|
|00002b90| 59 3a 45 3d 59 2b 39 3a | 42 42 3d 59 2b 31 30 3a |Y:E=Y+9:|BB=Y+10:|
|00002ba0| 9b 20 20 20 20 20 20 20 | 20 20 45 45 3d 59 2b 28 |. | EE=Y+(|
|00002bb0| 31 30 2b 39 29 9b 20 20 | 20 20 20 32 33 30 20 49 |10+9). | 230 I|
|00002bc0| 46 20 41 24 28 42 42 2c | 45 45 29 3e 3d 41 24 28 |F A$(BB,|EE)>=A$(|
|00002bd0| 42 2c 45 29 20 54 48 45 | 4e 9b 20 20 20 20 20 20 |B,E) THE|N. |
|00002be0| 20 20 20 32 37 30 9b 20 | 20 20 20 20 32 34 30 20 | 270. | 240 |
|00002bf0| 54 45 4d 50 24 3d 41 24 | 28 42 2c 45 29 3a 54 45 |TEMP$=A$|(B,E):TE|
|00002c00| 4d 50 31 24 3d 9b 20 20 | 20 20 20 20 20 20 20 42 |MP1$=. | B|
|00002c10| 24 28 42 2c 45 29 9b 20 | 20 20 20 20 32 35 30 20 |$(B,E). | 250 |
|00002c20| 41 24 28 42 2c 45 29 3d | 41 24 28 42 42 2c 45 45 |A$(B,E)=|A$(BB,EE|
|00002c30| 29 3a 42 24 28 42 2c 45 | 29 3d 9b 20 20 20 20 20 |):B$(B,E|)=. |
|00002c40| 20 20 20 20 42 24 28 42 | 42 2c 45 45 29 9b 20 20 | B$(B|B,EE). |
|00002c50| 20 20 20 32 36 30 20 41 | 24 28 42 42 2c 45 45 29 | 260 A|$(BB,EE)|
|00002c60| 3d 54 45 4d 50 24 3a 42 | 24 28 42 42 2c 45 45 29 |=TEMP$:B|$(BB,EE)|
|00002c70| 3d 9b 20 20 20 20 20 20 | 20 20 20 54 45 4d 50 31 |=. | TEMP1|
|00002c80| 24 9b 20 20 20 20 20 32 | 37 30 20 4e 45 58 54 20 |$. 2|70 NEXT |
|00002c90| 59 9b 20 20 20 20 20 32 | 38 30 20 4e 45 58 54 20 |Y. 2|80 NEXT |
|00002ca0| 54 9b 20 20 20 20 20 32 | 39 30 20 2d 2d 9b 20 20 |T. 2|90 --. |
|00002cb0| 20 20 20 33 30 30 20 43 | 4c 53 9b 20 20 20 20 20 | 300 C|LS. |
|00002cc0| 33 31 30 20 52 45 4d 20 | 50 52 49 4e 54 20 4f 55 |310 REM |PRINT OU|
|00002cd0| 54 20 53 4f 52 54 45 44 | 20 50 48 4f 4e 45 9b 20 |T SORTED| PHONE. |
|00002ce0| 20 20 20 20 20 20 20 20 | 4c 49 53 54 9b 20 20 20 | |LIST. |
|00002cf0| 20 20 33 32 30 20 3f 3a | 3f 20 22 20 20 20 20 54 | 320 ?:|? " T|
|00002d00| 45 4c 45 50 48 4f 4e 45 | 20 4c 49 53 54 22 3a 3f |ELEPHONE| LIST":?|
|00002d10| 9b 20 20 20 20 20 33 33 | 30 20 46 4f 52 20 4c 3d |. 33|0 FOR L=|
|00002d20| 31 20 54 4f 20 4b 2a 31 | 30 20 53 54 45 50 20 31 |1 TO K*1|0 STEP 1|
|00002d30| 30 9b 20 20 20 20 20 33 | 34 30 20 3f 20 41 24 28 |0. 3|40 ? A$(|
|00002d40| 4c 2c 4c 2b 39 29 3b 42 | 24 28 4c 2c 4c 2b 39 29 |L,L+9);B|$(L,L+9)|
|00002d50| 9b 20 20 20 20 20 33 35 | 30 20 4e 45 58 54 20 4c |. 35|0 NEXT L|
|00002d60| 9b 20 20 20 20 20 33 36 | 30 20 2d 2d 9b 9b 20 20 |. 36|0 --.. |
|00002d70| 20 20 20 54 68 65 20 74 | 77 6f 20 61 72 72 61 79 | The t|wo array|
|00002d80| 73 20 63 61 6e 20 75 73 | 65 20 20 74 68 65 20 20 |s can us|e the |
|00002d90| 73 61 6d 65 9b 20 50 41 | 44 24 20 20 28 6c 6e 20 |same. PA|D$ (ln |
|00002da0| 20 23 36 30 29 20 20 62 | 65 63 61 75 73 65 20 74 | #60) b|ecause t|
|00002db0| 68 65 79 20 61 72 65 20 | 74 68 65 9b 20 73 61 6d |hey are |the. sam|
|00002dc0| 65 20 73 69 7a 65 2e 20 | 20 54 68 65 79 20 20 63 |e size. | They c|
|00002dd0| 61 6e 20 20 75 73 65 20 | 20 74 68 65 20 20 73 61 |an use | the sa|
|00002de0| 6d 65 9b 20 62 65 67 69 | 6e 6e 69 6e 67 20 20 61 |me. begi|nning a|
|00002df0| 6e 64 20 65 6e 64 69 6e | 67 20 65 6c 65 6d 65 6e |nd endin|g elemen|
|00002e00| 74 20 6e 75 6d 62 65 72 | 73 9b 20 62 65 63 61 75 |t number|s. becau|
|00002e10| 73 65 20 74 68 65 79 20 | 61 72 65 20 74 68 65 20 |se they |are the |
|00002e20| 20 73 61 6d 65 20 20 73 | 69 7a 65 20 20 28 6c 6e | same s|ize (ln|
|00002e30| 9b 20 23 32 32 30 29 9b | 9b 20 20 20 20 20 49 66 |. #220).|. If|
|00002e40| 20 79 6f 75 20 77 61 6e | 74 20 61 20 70 72 69 6e | you wan|t a prin|
|00002e50| 74 65 64 20 6c 69 73 74 | 20 70 6c 65 61 73 65 9b |ted list| please.|
|00002e60| 20 63 68 61 6e 67 65 20 | 6c 69 6e 65 73 20 33 32 | change |lines 32|
|00002e70| 30 20 61 6e 64 20 33 34 | 30 20 20 66 72 6f 6d 20 |0 and 34|0 from |
|00002e80| 20 50 52 49 4e 54 9b 20 | 74 6f 20 4c 50 52 49 4e | PRINT. |to LPRIN|
|00002e90| 54 2e 9b 9b 20 20 20 20 | 20 49 6e 20 20 61 20 20 |T... | In a |
|00002ea0| 73 69 6d 69 6c 61 72 20 | 20 6d 61 6e 6e 65 72 20 |similar | manner |
|00002eb0| 20 79 6f 75 20 63 6f 75 | 6c 64 9b 20 68 61 76 65 | you cou|ld. have|
|00002ec0| 20 20 61 20 20 72 65 6c | 61 74 69 6f 6e 61 6c 20 | a rel|ational |
|00002ed0| 20 73 6f 72 74 20 20 62 | 65 74 77 65 65 6e 20 20 | sort b|etween |
|00002ee0| 61 9b 20 6e 75 6d 62 65 | 72 20 61 72 72 61 79 20 |a. numbe|r array |
|00002ef0| 61 6e 64 20 61 20 73 74 | 72 69 6e 67 20 61 72 72 |and a st|ring arr|
|00002f00| 61 79 2e 20 20 46 6f 72 | 9b 20 65 78 61 6d 70 6c |ay. For|. exampl|
|00002f10| 65 20 20 79 6f 75 20 20 | 77 61 6e 74 20 74 6f 20 |e you |want to |
|00002f20| 73 6f 72 74 20 62 79 20 | 73 63 6f 72 65 20 61 9b |sort by |score a.|
|00002f30| 20 62 6f 77 6c 69 6e 67 | 20 6c 65 61 67 75 65 2e | bowling| league.|
|00002f40| 20 20 54 68 65 20 20 73 | 6f 72 74 20 20 77 6f 75 | The s|ort wou|
|00002f50| 6c 64 20 20 62 65 9b 20 | 64 6f 6e 65 20 20 6f 6e |ld be. |done on|
|00002f60| 20 20 74 68 65 20 73 63 | 6f 72 65 73 28 6e 75 6d | the sc|ores(num|
|00002f70| 62 65 72 20 73 6f 72 74 | 29 20 61 6e 64 9b 20 74 |ber sort|) and. t|
|00002f80| 68 65 20 20 6e 61 6d 65 | 73 20 20 77 6f 75 6c 64 |he name|s would|
|00002f90| 20 20 68 61 76 65 20 20 | 74 6f 20 20 6d 61 69 6e | have |to main|
|00002fa0| 74 61 69 6e 9b 20 74 68 | 65 69 72 20 72 65 6c 61 |tain. th|eir rela|
|00002fb0| 74 69 6f 6e 73 68 69 70 | 20 74 6f 20 74 68 65 20 |tionship| to the |
|00002fc0| 73 63 6f 72 65 2e 9b 9b | 20 20 20 20 20 54 6f 20 |score...| To |
|00002fd0| 67 65 74 20 61 20 63 6c | 65 61 72 20 20 75 6e 64 |get a cl|ear und|
|00002fe0| 65 72 73 74 61 6e 64 69 | 6e 67 20 20 6f 66 9b 20 |erstandi|ng of. |
|00002ff0| 72 65 6c 61 74 69 6f 6e | 61 6c 20 20 73 6f 72 74 |relation|al sort|
|00003000| 73 2c 20 20 70 6c 65 61 | 73 65 20 20 72 65 61 64 |s, plea|se read|
|00003010| 20 20 74 68 65 9b 20 73 | 65 63 74 69 6f 6e 20 20 | the. s|ection |
|00003020| 6f 6e 20 20 41 52 52 41 | 59 53 2c 20 20 50 53 45 |on ARRA|YS, PSE|
|00003030| 55 44 4f 20 20 20 53 54 | 52 49 4e 47 9b 20 41 52 |UDO ST|RING. AR|
|00003040| 52 41 59 53 2c 20 4e 55 | 4d 42 45 52 20 42 55 42 |RAYS, NU|MBER BUB|
|00003050| 42 4c 45 20 53 4f 52 54 | 20 61 6e 64 20 53 54 52 |BLE SORT| and STR|
|00003060| 49 4e 47 9b 20 42 55 42 | 42 4c 45 9b 20 20 20 20 |ING. BUB|BLE. |
|00003070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003090| 20 20 9b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | . | |
|000030a0| 20 20 41 44 44 45 4e 44 | 55 4d 9b 20 20 20 20 20 | ADDEND|UM. |
|000030b0| 20 20 20 20 20 20 20 20 | 20 20 2d 2d 2d 2d 2d 2d | | ------|
|000030c0| 2d 2d 9b 9b 20 20 20 20 | 20 53 6f 6d 65 74 69 6d |--.. | Sometim|
|000030d0| 65 73 20 20 69 74 20 20 | 69 73 20 20 6e 65 63 65 |es it |is nece|
|000030e0| 73 73 61 72 79 20 20 20 | 74 6f 9b 20 63 6f 6e 73 |ssary |to. cons|
|000030f0| 74 72 75 63 74 20 20 61 | 20 20 73 74 72 69 6e 67 |truct a| string|
|00003100| 20 20 20 61 72 72 61 79 | 20 20 20 69 6e 20 20 20 | array| in |
|00003110| 61 9b 20 64 69 66 66 65 | 72 65 6e 74 20 20 6d 61 |a. diffe|rent ma|
|00003120| 6e 6e 65 72 20 20 74 68 | 61 6e 20 49 20 68 61 76 |nner th|an I hav|
|00003130| 65 20 73 68 6f 77 6e 2e | 9b 20 46 6f 72 20 65 78 |e shown.|. For ex|
|00003140| 61 6d 70 6c 65 20 77 65 | 20 77 61 6e 74 20 20 61 |ample we| want a|
|00003150| 20 20 73 74 72 69 6e 67 | 20 20 61 72 72 61 79 9b | string| array.|
|00003160| 20 77 69 74 68 20 32 31 | 20 6c 65 74 74 65 72 73 | with 21| letters|
|00003170| 2e 20 54 68 69 73 20 69 | 73 20 61 6e 20 61 6c 74 |. This i|s an alt|
|00003180| 65 72 6e 61 74 65 9b 20 | 77 61 79 20 6f 66 20 64 |ernate. |way of d|
|00003190| 6f 69 6e 67 20 69 74 2e | 20 20 20 9b 9b 20 20 20 |oing it.| .. |
|000031a0| 20 20 20 31 30 20 44 49 | 4d 20 41 52 52 41 59 24 | 10 DI|M ARRAY$|
|000031b0| 28 35 2a 32 31 29 2c 42 | 24 28 32 31 29 2c 9b 20 |(5*21),B|$(21),. |
|000031c0| 20 20 20 20 20 20 20 20 | 50 41 44 24 28 32 31 29 | |PAD$(21)|
|000031d0| 9b 20 20 20 20 20 20 32 | 30 20 46 4f 52 20 58 3d |. 2|0 FOR X=|
|000031e0| 31 20 54 4f 20 35 9b 20 | 20 20 20 20 20 33 30 20 |1 TO 5. | 30 |
|000031f0| 50 41 44 24 3d 22 20 20 | 20 20 20 20 20 20 20 20 |PAD$=" | |
|00003200| 20 20 20 20 20 20 20 20 | 20 20 20 22 9b 20 20 20 | | ". |
|00003210| 20 20 20 34 30 20 49 4e | 50 55 54 20 22 47 49 56 | 40 IN|PUT "GIV|
|00003220| 45 20 4d 45 20 41 20 4e | 41 4d 45 22 3b 42 24 9b |E ME A N|AME";B$.|
|00003230| 20 20 20 20 20 20 35 30 | 20 42 4c 3d 4c 45 4e 28 | 50| BL=LEN(|
|00003240| 42 24 29 3a 49 46 20 42 | 4c 3c 32 31 20 54 48 45 |B$):IF B|L<21 THE|
|00003250| 4e 9b 20 20 20 20 20 20 | 20 20 20 42 24 28 42 4c |N. | B$(BL|
|00003260| 2b 31 29 3d 50 41 44 24 | 9b 20 20 20 20 20 20 36 |+1)=PAD$|. 6|
|00003270| 30 20 41 52 52 41 59 24 | 28 58 2a 32 31 2d 32 30 |0 ARRAY$|(X*21-20|
|00003280| 2c 58 2a 32 31 29 3d 9b | 20 20 20 20 20 20 20 20 |,X*21)=.| |
|00003290| 20 42 24 3a 52 45 4d 20 | 41 52 52 41 59 9b 20 20 | B$:REM |ARRAY. |
|000032a0| 20 20 20 20 37 30 20 4e | 45 58 54 20 58 9b 9b 20 | 70 N|EXT X.. |
|000032b0| 20 20 20 20 20 49 6e 20 | 6c 69 6e 65 20 36 30 20 | In |line 60 |
|000032c0| 20 20 58 2a 32 31 2d 32 | 30 2c 58 2a 32 31 2e 20 | X*21-2|0,X*21. |
|000032d0| 20 54 68 69 73 9b 20 77 | 69 6c 6c 20 20 63 72 65 | This. w|ill cre|
|000032e0| 61 74 65 20 20 74 68 65 | 20 65 6c 65 6d 65 6e 74 |ate the| element|
|000032f0| 20 6c 65 6e 67 74 68 20 | 74 68 61 74 9b 20 77 65 | length |that. we|
|00003300| 20 70 72 65 76 69 6f 75 | 73 6c 79 20 20 75 73 65 | previou|sly use|
|00003310| 64 20 20 61 20 20 46 4f | 52 2d 4e 45 58 54 2d 53 |d a FO|R-NEXT-S|
|00003320| 54 45 50 9b 20 4c 4f 4f | 50 20 20 66 6f 72 2e 20 |TEP. LOO|P for. |
|00003330| 20 49 6e 20 61 6c 6c 20 | 6f 74 68 65 72 20 72 65 | In all |other re|
|00003340| 73 70 65 63 74 73 20 74 | 68 65 9b 20 70 72 6f 67 |spects t|he. prog|
|00003350| 72 61 6d 20 20 20 72 65 | 6d 61 69 6e 73 20 20 20 |ram re|mains |
|00003360| 74 68 65 20 20 20 73 61 | 6d 65 2e 20 20 20 46 6f |the sa|me. Fo|
|00003370| 72 9b 20 65 78 61 6d 70 | 6c 65 2c 20 20 77 68 65 |r. examp|le, whe|
|00003380| 6e 20 20 58 3d 31 20 74 | 68 65 20 65 6c 65 6d 65 |n X=1 t|he eleme|
|00003390| 6e 74 73 20 77 69 6c 6c | 9b 20 62 65 20 28 31 2a |nts will|. be (1*|
|000033a0| 32 31 29 32 31 2d 32 30 | 20 6f 72 20 31 20 74 68 |21)21-20| or 1 th|
|000033b0| 65 20 6f 74 68 65 72 20 | 20 6e 75 6d 62 65 72 9b |e other | number.|
|000033c0| 20 77 69 6c 6c 20 62 65 | 20 28 31 2a 32 31 29 6f | will be| (1*21)o|
|000033d0| 72 20 32 31 2e 20 54 68 | 75 73 20 74 68 65 20 65 |r 21. Th|us the e|
|000033e0| 6c 65 6d 65 6e 74 9b 20 | 6c 65 6e 67 74 68 20 77 |lement. |length w|
|000033f0| 69 6c 6c 20 62 65 20 31 | 20 74 6f 20 32 31 20 6f |ill be 1| to 21 o|
|00003400| 6e 20 20 74 68 65 20 20 | 66 69 72 73 74 9b 20 70 |n the |first. p|
|00003410| 61 73 73 20 6f 66 20 74 | 68 65 20 6c 6f 6f 70 2e |ass of t|he loop.|
|00003420| 20 49 6e 20 61 20 73 69 | 6d 69 6c 61 72 20 6d 61 | In a si|milar ma|
|00003430| 6e 6e 65 72 9b 20 61 6c | 6c 20 74 68 65 20 6f 74 |nner. al|l the ot|
|00003440| 68 65 72 20 65 6c 65 6d | 65 6e 74 20 6e 75 6d 62 |her elem|ent numb|
|00003450| 65 72 73 20 77 69 6c 6c | 20 62 65 9b 20 67 65 6e |ers will| be. gen|
|00003460| 65 72 61 74 65 64 2e 9b | 9b 20 3e 3e 3e 3e 3e 3e |erated..|. >>>>>>|
|00003470| 3e 3e 3e 3e 3e 3e 3e 3e | 3e 3e 20 20 45 4e 44 20 |>>>>>>>>|>> END |
|00003480| 3c 3c 3c 3c 3c 3c 3c 3c | 3c 3c 3c 3c 3c 3c 3c 9b |<<<<<<<<|<<<<<<<.|
|00003490| 9b 20 | |. | |
+--------+-------------------------+-------------------------+--------+--------+
