SORT DEMO UPDATE

00000000: 01 08 19 08 0A 00 85 22  48 4F 57 20 4D 41 4E 59  |......."HOW MANY|
00000010: 20 4E 41 4D 45 53 22 3B  4E 00 35 08 14 00 86 20  | NAMES";N.5.... |
00000020: 41 28 4E 29 2C 42 28 4E  29 2C 41 24 28 4E 29 2C  |A(N),B(N),A$(N),|
00000030: 54 24 28 4E 29 00 53 08  1E 00 81 20 4A B2 31 20  |T$(N).S.... J.1 |
00000040: A4 20 4E 3A 20 99 3A 20  99 22 4E 55 4D 42 45 52  |. N: .: ."NUMBER|
00000050: 22 3B 4A 00 65 08 28 00  85 22 53 55 52 4E 41 4D  |";J.e.(.."SURNAM|
00000060: 45 22 3B 53 24 00 7A 08  32 00 85 22 46 49 52 53  |E";S$.z.2.."FIRS|
00000070: 54 20 4E 41 4D 45 22 3B  46 24 00 B3 08 3C 00 54  |T NAME";F$...<.T|
00000080: 24 28 4A 29 B2 53 24 AA  22 2C 20 22 AA 46 24 3A  |$(J).S$.", ".F$:|
00000090: 20 8F 20 43 4F 4D 42 49  4E 45 20 53 55 52 4E 41  | . COMBINE SURNA|
000000A0: 4D 45 53 20 57 49 54 48  20 4C 41 53 54 20 4E 41  |MES WITH LAST NA|
000000B0: 4D 45 53 00 C4 08 46 00  85 22 41 47 45 22 3B 41  |MES...F.."AGE";A|
000000C0: 24 28 4A 29 00 D7 08 50  00 48 B2 28 4A AB 31 29  |$(J)...P.H.(J.1)|
000000D0: AD 32 3A 20 47 B2 30 00  05 09 52 00 8B 20 28 54  |.2: G.0...R.. (T|
000000E0: 24 28 4A 29 20 B3 20 54  24 28 41 28 48 29 29 29  |$(J) . T$(A(H)))|
000000F0: 20 A7 20 48 B2 B5 28 28  48 AA 47 29 AD 32 29 3A  | . H..((H.G).2):|
00000100: 20 89 20 38 36 00 1B 09  54 00 47 B2 48 3A 20 48  | . 86...T.G.H: H|
00000110: B2 B5 28 28 48 AA 4A 29  AD 32 29 00 2E 09 56 00  |..((H.J).2)...V.|
00000120: 8B 20 48 AB 47 20 B1 20  30 20 A7 20 38 32 00 50  |. H.G . 0 . 82.P|
00000130: 09 58 00 48 B2 48 AB 28  54 24 28 4A 29 20 B1 20  |.X.H.H.(T$(J) . |
00000140: 54 24 28 41 28 48 29 29  29 3A 20 47 B2 4A AB 31  |T$(A(H))): G.J.1|
00000150: 00 76 09 5A 00 8B 20 47  B1 B2 48 20 A7 20 41 28  |.v.Z.. G..H . A(|
00000160: 47 AA 31 29 B2 41 28 47  29 3A 20 47 B2 47 AB 31  |G.1).A(G): G.G.1|
00000170: 3A 20 89 20 39 30 00 81  09 64 00 41 28 48 29 B2  |: . 90...d.A(H).|
00000180: 4A 00 93 09 6E 00 42 28  4A 29 B2 4A 3A 20 48 B2  |J...n.B(J).J: H.|
00000190: 4A AA 31 00 D2 09 78 00  48 B2 48 AB 31 3A 20 8B  |J.1...x.H.H.1: .|
000001A0: 20 41 24 28 4A 29 B3 41  24 28 42 28 48 AB 31 29  | A$(J).A$(B(H.1)|
000001B0: 29 A7 20 42 28 48 29 B2  42 28 48 AB 31 29 3A 20  |). B(H).B(H.1): |
000001C0: 89 20 31 32 30 3A 20 8F  20 53 4F 52 54 20 41 47  |. 120: . SORT AG|
000001D0: 45 53 00 DD 09 82 00 42  28 48 29 B2 4A 00 E5 09  |ES.....B(H).J...|
000001E0: 8C 00 82 20 4A 00 05 0A  96 00 99 3A 20 99 22 53  |... J......: ."S|
000001F0: 4F 52 54 45 44 20 41 4C  50 48 41 42 45 54 49 43  |ORTED ALPHABETIC|
00000200: 41 4C 4C 59 22 00 13 0A  A0 00 81 20 4A B2 31 20  |ALLY"...... J.1 |
00000210: A4 20 4E 00 2C 0A AA 00  99 20 54 24 28 41 28 4A  |. N.,.... T$(A(J|
00000220: 29 29 2C 20 41 24 28 41  28 4A 29 29 00 34 0A B4  |)), A$(A(J)).4..|
00000230: 00 82 20 4A 00 4D 0A BE  00 99 3A 99 22 20 53 4F  |.. J.M....:." SO|
00000240: 52 54 45 44 20 42 59 20  41 47 45 3A 22 00 5B 0A  |RTED BY AGE:".[.|
00000250: C8 00 81 20 4A B2 31 20  A4 20 4E 00 74 0A D2 00  |... J.1 . N.t...|
00000260: 99 20 54 24 28 42 28 4A  29 29 2C 20 41 24 28 42  |. T$(B(J)), A$(B|
00000270: 28 4A 29 29 00 7C 0A DC  00 82 20 4A 00 00 00     |(J)).|.... J... |

......."HOW MANY NAMES";N.5.... A(N),B(N
),A$(N),T$(N).S.... J.1 . N: .: ."NUMBER
";J.E.(.."SURNAME";S$.Z.2.."FIRST NAME";
F$...<.T$(J).S$.", ".F$: . COMBINE SURNA
MES WITH LAST NAMES.D.F.."AGE";A$(J).W.P
.H.(J.1).2: G.0...R.. (T$(J) . T$(A(H)))
 . H..((H.G).2): . 86...T.G.H: H..((H.J)
.2)...V.. H.G . 0 . 82.P.X.H.H.(T$(J) . 
T$(A(H))): G.J.1.V.Z.. G..H . A(G.1).A(G
): G.G.1: . 90...D.A(H).J...N.B(J).J: H.
J.1.R.X.H.H.1: . A$(J).A$(B(H.1)). B(H).
B(H.1): . 120: . SORT AGES.....B(H).J...
... J......: ."SORTED ALPHABETICALLY"...
 .. J.1 . N.,.... T$(A(J)), A$(A(J)).4..
.. J.M....:." SORTED BY AGE:".[.H.. J.1 
. N.T.R.. T$(B(J)), A$(B(J)).|.... J...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL