/ Compute! Gazette 1988 September / 1988-09.d64 / multisort.demo

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 1c 48 1c 0a 00 8f 20 | 43 4f 50 59 52 49 47 48 |..H.... |COPYRIGH|
|00000010| 54 20 31 39 38 38 20 43 | 4f 4d 50 55 54 45 21 20 |T 1988 C|OMPUTE! |
|00000020| 50 55 42 4c 49 43 41 54 | 49 4f 4e 53 2c 20 49 4e |PUBLICAT|IONS, IN|
|00000030| 43 2e 20 2d 20 41 4c 4c | 20 52 49 47 48 54 53 20 |C. - ALL| RIGHTS |
|00000040| 52 45 53 45 52 56 45 44 | 00 5e 1c 14 00 8b cc 28 |RESERVED|.^.....(|
|00000050| 30 29 a7 54 42 b2 32 33 | 3a d5 54 42 b2 33 00 bc |0).TB.23|:.TB.3..|
|00000060| 1c 1e 00 e7 30 2c 31 3a | e7 34 2c 31 3a e7 35 2c |....0,1:|.4,1:.5,|
|00000070| 31 32 3a 99 22 93 22 a3 | 54 42 29 22 43 4f 50 59 |12:.".".|TB)"COPY|
|00000080| 52 49 47 48 54 20 31 39 | 38 38 20 43 4f 4d 50 55 |RIGHT 19|88 COMPU|
|00000090| 54 45 21 20 50 55 42 2e | 2c 20 49 4e 43 2e 22 3a |TE! PUB.|, INC.":|
|000000a0| 99 a3 54 42 aa 38 29 22 | 41 4c 4c 20 52 49 47 48 |..TB.8)"|ALL RIGH|
|000000b0| 54 53 20 52 45 53 45 52 | 56 45 44 22 00 ea 1c 28 |TS RESER|VED"...(|
|000000c0| 00 97 34 38 2c 39 3a 97 | 35 30 2c 39 3a 9c 3a 8f |..48,9:.|50,9:.:.|
|000000d0| 20 4d 4f 56 45 20 42 41 | 4e 4b 31 20 55 50 20 46 | MOVE BA|NK1 UP F|
|000000e0| 4f 52 20 4d 4c 20 43 4f | 44 45 00 0a 1d 32 00 fe |OR ML CO|DE...2..|
|000000f0| 11 22 25 53 4f 52 54 30 | 22 2c 42 30 3a fe 11 22 |."%SORT0|",B0:.."|
|00000100| 25 53 4f 52 54 31 22 2c | 42 31 00 13 1d 3c 00 99 |%SORT1",|B1...<..|
|00000110| 22 93 22 00 33 1d 46 00 | 86 41 2c 42 2c 54 2c 41 |".".3.F.|.A,B,T,A|
|00000120| 24 28 35 29 2c 51 24 28 | 39 2c 33 29 2c 41 59 24 |$(5),Q$(|9,3),AY$|
|00000130| 28 32 29 00 82 1d 50 00 | 51 24 28 37 2c 30 29 b2 |(2)...P.|Q$(7,0).|
|00000140| 22 41 31 42 32 22 3a 51 | 24 28 38 2c 30 29 b2 22 |"A1B2":Q|$(8,0)."|
|00000150| 21 5a 20 52 51 22 3a 51 | 24 28 34 2c 30 29 b2 22 |!Z RQ":Q|$(4,0)."|
|00000160| 20 20 20 38 36 22 3a 51 | 24 28 31 2c 30 29 b2 22 |   86":Q|$(1,0)."|
|00000170| 20 20 31 32 33 22 3a 51 | 24 28 32 2c 30 29 b2 22 |  123":Q|$(2,0)."|
|00000180| 5a 22 00 9f 1d 5a 00 81 | 58 b2 30 a4 39 3a 51 24 |Z"...Z..|X.0.9:Q$|
|00000190| 28 58 2c 31 29 b2 c4 28 | 31 35 ab 58 29 3a 82 00 |(X,1)..(|15.X):..|
|000001a0| d6 1d 64 00 81 58 b2 30 | a4 39 3a 51 24 28 58 2c |..d..X.0|.9:Q$(X,|
|000001b0| 32 29 b2 c7 28 b5 28 36 | 35 aa bb 28 31 29 ac 32 |2)..(.(6|5..(1).2|
|000001c0| 36 29 29 3a 82 3a 51 24 | 28 bb 28 31 29 ac 31 30 |6)):.:Q$|(.(1).10|
|000001d0| 2c 32 29 b2 22 22 00 01 | 1e 6e 00 99 22 98 53 4f |,2).""..|.n..".SO|
|000001e0| 52 54 20 42 59 20 43 4f | 4c 55 4d 4e 20 28 30 2d |RT BY CO|LUMN (0-|
|000001f0| 33 2c 20 34 20 54 4f 20 | 43 4f 4e 54 29 3a 20 22 |3, 4 TO |CONT): "|
|00000200| 3b 00 20 1e 78 00 a1 41 | 24 3a 8b 28 41 24 b3 22 |;. .x..A|$:.(A$."|
|00000210| 30 22 29 b0 28 41 24 b1 | 22 34 22 29 a7 31 32 30 |0").(A$.|"4").120|
|00000220| 00 34 1e 82 00 99 41 24 | 3a 8b 41 24 b2 22 34 22 |.4....A$|:.A$."4"|
|00000230| a7 32 30 30 00 71 1e 8c | 00 99 22 93 98 22 a3 31 |.200.q..|.."..".1|
|00000240| 36 29 22 4f 52 49 47 49 | 4e 41 4c 22 3a 99 22 20 |6)"ORIGI|NAL":." |
|00000250| 23 20 43 4f 4c 20 30 22 | 2c 22 20 43 4f 4c 20 31 |# COL 0"|," COL 1|
|00000260| 22 2c 22 43 4f 4c 20 32 | 22 2c 22 43 4f 4c 20 33 |","COL 2|","COL 3|
|00000270| 22 00 a4 1e 96 00 81 42 | b2 30 a4 39 3a 99 22 98 |"......B|.0.9:.".|
|00000280| 22 42 22 9f 22 51 24 28 | 42 2c 30 29 2c 22 95 22 |"B"."Q$(|B,0),"."|
|00000290| 51 24 28 42 2c 31 29 2c | 22 99 22 51 24 28 42 2c |Q$(B,1),|"."Q$(B,|
|000002a0| 32 29 3a 82 00 df 1e a0 | 00 fe 02 31 34 3a 9e 36 |2):.....|...14:.6|
|000002b0| 39 31 32 3a 51 24 28 c5 | 28 41 24 29 29 3a 8b c2 |912:Q$(.|(A$)):..|
|000002c0| 28 36 29 a7 80 3a 8f 20 | 44 55 4d 4d 59 20 56 41 |(6)..:. |DUMMY VA|
|000002d0| 52 49 41 42 4c 45 20 52 | 45 51 55 49 52 45 44 00 |RIABLE R|EQUIRED.|
|000002e0| 26 1f aa 00 8b cc 28 30 | 29 a7 99 22 13 98 22 a3 |&.....(0|).."..".|
|000002f0| 35 32 29 22 53 4f 52 54 | 45 44 20 4f 4e 20 43 4f |52)"SORT|ED ON CO|
|00000300| 4c 20 22 41 24 3a 54 b2 | 34 30 3a d5 99 22 98 22 |L "A$:T.|40:.."."|
|00000310| a3 31 32 29 22 53 4f 52 | 54 45 44 20 4f 4e 20 43 |.12)"SOR|TED ON C|
|00000320| 4f 4c 20 22 41 24 00 52 | 1f b4 00 99 a3 54 29 22 |OL "A$.R|.....T)"|
|00000330| 20 23 20 43 4f 4c 20 30 | 22 2c 22 20 43 4f 4c 20 | # COL 0|"," COL |
|00000340| 31 22 2c 22 43 4f 4c 20 | 32 22 2c 22 43 4f 4c 20 |1","COL |2","COL |
|00000350| 33 22 00 8e 1f be 00 81 | 42 b2 30 a4 39 3a 99 a3 |3"......|B.0.9:..|
|00000360| 54 29 22 98 22 42 22 9f | 22 51 24 28 42 2c 30 29 |T)"."B".|"Q$(B,0)|
|00000370| 2c 22 95 22 51 24 28 42 | 2c 31 29 2c 22 99 22 51 |,"."Q$(B|,1),"."Q|
|00000380| 24 28 42 2c 32 29 3a 82 | 3a 9c 3a 89 37 30 00 d4 |$(B,2):.|:.:.70..|
|00000390| 1f c8 00 9c 3a 44 4d b2 | 31 30 30 30 3a 99 22 4c |....:DM.|1000:."L|
|000003a0| 4f 4e 47 20 4c 49 53 54 | 20 53 4f 52 54 20 44 45 |ONG LIST| SORT DE|
|000003b0| 4d 4f 2e 2e 2e 22 3a 99 | 22 53 4f 52 54 20 4c 49 |MO...":.|"SORT LI|
|000003c0| 53 54 20 4f 46 22 44 4d | 22 53 54 52 49 4e 47 53 |ST OF"DM|"STRINGS|
|000003d0| 2e 2e 2e 22 00 ff 1f d2 | 00 99 22 43 52 45 41 54 |..."....|.."CREAT|
|000003e0| 49 4e 47 20 4c 49 53 54 | 20 4e 4f 57 2e 2e 2e 22 |ING LIST| NOW..."|
|000003f0| 3a 86 41 24 28 44 4d 29 | 3a 8f 20 46 41 53 54 00 |:.A$(DM)|:. FAST.|
|00000400| 48 20 dc 00 81 58 b2 31 | a4 44 4d 3a 99 22 13 05 |H ...X.1|.DM:."..|
|00000410| 22 3b 58 3a 20 81 59 b2 | 31 a4 20 b5 28 bb 28 31 |";X: .Y.|1. .(.(1|
|00000420| 29 ac 38 aa 31 29 3a 41 | 24 28 58 29 b2 41 24 28 |).8.1):A|$(X).A$(|
|00000430| 58 29 aa c7 28 b5 28 bb | 28 31 29 ac 32 36 aa 36 |X)..(.(.|(1).26.6|
|00000440| 35 29 29 3a 82 59 2c 58 | 00 83 20 e6 00 99 22 11 |5)):.Y,X|.. ...".|
|00000450| 11 11 11 11 07 98 53 4f | 52 54 49 4e 47 20 4e 4f |......SO|RTING NO|
|00000460| 57 2e 2e 2e 22 3a fe 02 | 31 35 3a 54 49 24 b2 22 |W...":..|15:TI$."|
|00000470| 30 30 30 30 30 30 22 3a | 9e 36 39 31 32 3a 41 24 |000000":|.6912:A$|
|00000480| 28 31 29 00 8f 20 f0 00 | 8b c2 28 36 29 a7 80 00 |(1).. ..|..(6)...|
|00000490| bd 20 fa 00 99 54 49 ad | 36 30 22 53 45 43 4f 4e |. ...TI.|60"SECON|
|000004a0| 44 53 20 54 4f 20 53 4f | 52 54 22 44 4d 22 53 54 |DS TO SO|RT"DM"ST|
|000004b0| 52 49 4e 47 53 22 3a 8f | 20 53 4c 4f 57 00 ea 20 |RINGS":.| SLOW.. |
|000004c0| 04 01 99 22 44 4f 20 59 | 4f 55 20 57 41 4e 54 20 |..."DO Y|OU WANT |
|000004d0| 54 4f 20 53 45 45 20 54 | 48 45 20 53 4f 52 54 45 |TO SEE T|HE SORTE|
|000004e0| 44 20 4c 49 53 54 3f 20 | 22 3b 00 0b 21 0e 01 a1 |D LIST? |";..!...|
|000004f0| 41 24 3a 8b 28 41 24 b3 | b1 22 59 22 29 af 28 41 |A$:.(A$.|."Y").(A|
|00000500| 24 b3 b1 22 4e 22 29 a7 | 32 37 30 00 2c 21 18 01 |$.."N").|270.,!..|
|00000510| 99 41 24 3a 8b 41 24 b2 | 22 59 22 a7 81 58 b2 31 |.A$:.A$.|"Y"..X.1|
|00000520| a4 44 4d 3a 99 41 24 28 | 58 29 3a 82 00 00 00    |.DM:.A$(|X):.... |
+--------+-------------------------+-------------------------+--------+--------+