Path: dircon!slxsys!pipex!unipalm!uknet!root44!praxis!mikes
From: mikes@praxis.co.uk (Mike D Smith)
Newsgroups: comp.sys.handhelds
Subject: Another Sort for the Psion3
Summary: sort for Psion 3 and 3S
Keywords: sort quicksort first/last word psion
Message-ID: <1993Jan8.095030.1621@praxis.co.uk>
Date: 8 Jan 93 09:50:30 GMT
Sender: mikes@praxis.co.uk
Organization: Praxis, Bath, U.K.
Lines: 90

Hi folks,
  Below is a uuencoded Psion Series 3 app 'Sort.opa' - I was tempted
to call it YAS (for yet another sorter) but refrained...

Based on the Psion programming manual and Sorter by Tal Dayan (thanks
Tal), Sort gives you a few more features that may be of use.

	o Uses a quicksort algorithm to sort up to 255 entries
	o Can Sort ascending/descending
	o Can sort on the first or last word of the first field, so
	  you can have 'John Jones' before 'Alan Smith' by sorting on
	  surnames.

How to Use.

 Simply (?) uudecode the file (creating sort.opa) and copy
this to your \APP\ directory on whichever drive you fancy (it's only
1710 bytes long). Then use Psion-I to Install it as an application -
the little A-Z icon (thanks for the use of the icon Tal!) should
appear, with a list of your .dbf files below it. Simply select 
whichever file you wish to have sorted and off you go. Various options
are selectable by a dialog box and once the file
is sorted, you will be informed of such and returned to the System screen.

NB
Sort is free to you - until we get some sort of object-oriented stuff
on the Psion, there's no way I could charge for it! It's also not
guaranteed to work, nor to destroy your files, so please don't blame
me if it doesn't work! I would very much recommed taking a copy of any
file that you want to sort and checking that sort has done it's job
before you get rid of the original.

Please report any problems or bugs to me - I can't guarantee to fix
them as I'm currently working on other things, but I'll see what I can
do.

Mikes.

ps Thanks to Tal, I'm pretty sure it works fine on both the Psion
Series 3 and 3S - the latter including the Spreadsheet app. and a new
revision of the System software. Is 1.91 the latest Psion?

--------- cut here -------
begin 744 sort.opa
M3U!,3V)J96-T1FEL92HJ  $ Q@ 53$]#.CI-.EQ/4$Q<4T]25"Y/4$P = !0
M24/<,# ! )="&  8 &                       '    "(    B/P# /C\
M P"(  , B  # (C 'P  @ \    ' #   @ P    ,,(' # &!  P#@( \!\!
M /"/    1@   ,('                 "0 4V]R="Y$0D8       !<1$%4
M7                     , K@8   \1#Q%B!@  . '6  @  !L !4Y!344D
M S0 !4-/35 E #0!!5=/4D0E #8!!@ $4T]25   ,P#_     .\!3P-7UBL!
M0T-;/P#L "L *R%/;FQY(&5X:7-T:6YG(&9I;&5S(&-A;B!B92!S;W)T961/
M NT  2L$17AI=$\;:.T* 5<W@+L'- !/ E?6ARL+3$]#.CI-.EQ$053Z*PY3
M;W)T($1A=&$@1FEL9>P!!S0 *PIF:6QE.B!.86UE3P#M"00T 2L)07-C96YD
M:6YG*P9997,L3F_M 00V 2L/5V]R9"!T;R!3;W)T(&]N*PI&:7)S="Q,87-T
M[0%7-UL5  ,T +0  P9&245,1"3_4RT @G9-!@0!"@  +  %4%124R6 1P $
M4%94) -& @=&4U1+15DD T<#!$9/3R0#2 0$0D%2) -)!0< !5%33U)4 @!%
M O]& _]'!/](!?\  $4 _P   $\-3P.>*PQ$871A8F%S92!H87.+D@1+!E<#
MA 1)!D\ A 1)!@!)!D\!2(0 20841P  20:$ $D& $L&0%OE_T\/3P2> $L&
M?$\#5\:+D"L%:71E;7.+DBL*4V]R=&EN9RXN+D\#3P+P T\!3P  2P9/ %,^
M ()/"4\&GBL44F4M3W)D97)I;F<@1&%T86)A<V6+DBL+57!D871I;F<N+BY/
M T\"\ ,$209/ (0$208 209/ 4B$ $D&$$< MIT 208 2P9 6^?_!$D&3P"$
M3P&V!$D& $D&3P%(A*@ 208 2P9 6^[_\  $208K "L04V]R=&EN9R!#;VUP
M;&5T95<X H1V-0!G !   @     7  =&24Y$4%94 @5005)43@,%45-/4E0"
M!5!44E,E@ 105E0D P      !#$ ""D 3P (*P!/ %,2 'F$ #$ 3P!$6TX 
M #$ &"T M@\O "L&1DE%3$0D(P"'!#, ""D 3P (*P!/  LO $\#4QL >80(
M*0!/   S $\!3$\ 4R( @@ S $\ ""L 3P!3(@""=B< >@ .  (     "0 '
M0T]-4$%210(%4%124R6 !T935$M%620#       (&P 8'P"V#R$ *P9&245,
M1"0C (<$(P (&P!/ 4B$ ", "!T -%M0   C !@? +8$)0 K!D9)14Q$)", 
M3P,+(0!/ U,2 'F$ "4 3P% 6PL  ", ?,"_$@  )0!/ 6A 6P@ "!L ?, $
M(P  (P!/ 4B$OZS_3P!\P"H!U0 0  ,#      D !T-/35!!4D4"!5!44E,E
M@  I /\     !", "!L A 0E  @= (0$)P  (P 8(0"$ ", '"$  "4 &"$ 
MA  E !PA   G (0 (P 8(0"V!RH *P9&245,1"0C (<#*@!/ PL? $\#4Q( 
M3P%H?$);)0 $(P  (P!/ 4B$ ", &"$ M@<J "L&1DE%3$0D(P"'O\S_ "4 
M&"$ M@<J "L&1DE%3$0D(P"' RH 3P,+'P!/ U,2 $\ ?#Y;)0 $)0  )0!/
M 4R$ "4 &"$ M@<J "L&1DE%3$0D(P"'O\W_ ",  "4 .%M!_P C 'S (@#&
M  H  @,#      1&3T\D P1"05(D P573U)$)0 %0T]-4"4        /%@ +
M$@"'#Q@ "Q0 AP@: $\"0%MO  0@  L2 "L!(%<5A  @ $\ 1%LD  \6  L6
M  L6 %<4 "  3%?1AP0@  L6 "L!(%<5A+_9_P0@  L8 "L!(%<5A  @ $\ 
M1%LD  \8  L8  L8 %<4 "  3%?1AP0@  L8 "L!(%<5A+_9_PL6  L8 #-;
M#0 $'@!/ 6B$OQP "Q8 "Q@ 0UL,  0> $\ A+\)  0> $\!A @< $\"0%L+
M  0>   > &B$ !X ?, $34%)3M(    0  133U)4W $  "T !5%33U)4,P, 
M %< !T9)3D105E30 P  9  %4$%25$YU!   =P '0T]-4$%217 %  "5    
 
end
----- cut here ------
-- 
-- The above are my own views and may not be shared by Touche Ross or Praxis.
Mike D. Smith (mikes@praxis.co.uk) Phone: +44-225-444700, Fax: +44-225-465205
Praxis - Software Engineering Division of Touche Ross Management Consultancy
20 Manvers Street, Bath BA1 1PX, England. -- Oh no, my karma ran over my dogma!