home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / sys / handheld / 2654 < prev    next >
Encoding:
Internet Message Format  |  1993-01-08  |  4.8 KB
  1. Path: sparky!uunet!mcsun!uknet!root44!praxis!mikes
  2. From: mikes@praxis.co.uk (Mike D Smith)
  3. Newsgroups: comp.sys.handhelds
  4. Subject: Another Sort for the Psion3
  5. Summary: sort for Psion 3 and 3S
  6. Keywords: sort quicksort first/last word psion
  7. Message-ID: <1993Jan8.095030.1621@praxis.co.uk>
  8. Date: 8 Jan 93 09:50:30 GMT
  9. Sender: mikes@praxis.co.uk
  10. Organization: Praxis, Bath, U.K.
  11. Lines: 90
  12.  
  13. Hi folks,
  14.   Below is a uuencoded Psion Series 3 app 'Sort.opa' - I was tempted
  15. to call it YAS (for yet another sorter) but refrained...
  16.  
  17. Based on the Psion programming manual and Sorter by Tal Dayan (thanks
  18. Tal), Sort gives you a few more features that may be of use.
  19.  
  20.     o Uses a quicksort algorithm to sort up to 255 entries
  21.     o Can Sort ascending/descending
  22.     o Can sort on the first or last word of the first field, so
  23.       you can have 'John Jones' before 'Alan Smith' by sorting on
  24.       surnames.
  25.  
  26. How to Use.
  27.  
  28.  Simply (?) uudecode the file (creating sort.opa) and copy
  29. this to your \APP\ directory on whichever drive you fancy (it's only
  30. 1710 bytes long). Then use Psion-I to Install it as an application -
  31. the little A-Z icon (thanks for the use of the icon Tal!) should
  32. appear, with a list of your .dbf files below it. Simply select 
  33. whichever file you wish to have sorted and off you go. Various options
  34. are selectable by a dialog box and once the file
  35. is sorted, you will be informed of such and returned to the System screen.
  36.  
  37. NB
  38. Sort is free to you - until we get some sort of object-oriented stuff
  39. on the Psion, there's no way I could charge for it! It's also not
  40. guaranteed to work, nor to destroy your files, so please don't blame
  41. me if it doesn't work! I would very much recommed taking a copy of any
  42. file that you want to sort and checking that sort has done it's job
  43. before you get rid of the original.
  44.  
  45. Please report any problems or bugs to me - I can't guarantee to fix
  46. them as I'm currently working on other things, but I'll see what I can
  47. do.
  48.  
  49. Mikes.
  50.  
  51. ps Thanks to Tal, I'm pretty sure it works fine on both the Psion
  52. Series 3 and 3S - the latter including the Spreadsheet app. and a new
  53. revision of the System software. Is 1.91 the latest Psion?
  54.  
  55. --------- cut here -------
  56. begin 744 sort.opa
  57. M3U!,3V)J96-T1FEL92HJ  $ Q@ 53$]#.CI-.EQ/4$Q<4T]25"Y/4$P = !0
  58. M24/<,# ! )="&  8 &                       '    "(    B/P# /C\
  59. M P"(  , B  # (C 'P  @ \    ' #   @ P    ,,(' # &!  P#@( \!\!
  60. M /"/    1@   ,('                 "0 4V]R="Y$0D8       !<1$%4
  61. M7                     , K@8   \1#Q%B!@  . '6  @  !L !4Y!344D
  62. M S0 !4-/35 E #0!!5=/4D0E #8!!@ $4T]25   ,P#_     .\!3P-7UBL!
  63. M0T-;/P#L "L *R%/;FQY(&5X:7-T:6YG(&9I;&5S(&-A;B!B92!S;W)T961/
  64. M NT  2L$17AI=$\;:.T* 5<W@+L'- !/ E?6ARL+3$]#.CI-.EQ$053Z*PY3
  65. M;W)T($1A=&$@1FEL9>P!!S0 *PIF:6QE.B!.86UE3P#M"00T 2L)07-C96YD
  66. M:6YG*P9997,L3F_M 00V 2L/5V]R9"!T;R!3;W)T(&]N*PI&:7)S="Q,87-T
  67. M[0%7-UL5  ,T +0  P9&245,1"3_4RT @G9-!@0!"@  +  %4%124R6 1P $
  68. M4%94) -& @=&4U1+15DD T<#!$9/3R0#2 0$0D%2) -)!0< !5%33U)4 @!%
  69. M O]& _]'!/](!?\  $4 _P   $\-3P.>*PQ$871A8F%S92!H87.+D@1+!E<#
  70. MA 1)!D\ A 1)!@!)!D\!2(0 20841P  20:$ $D& $L&0%OE_T\/3P2> $L&
  71. M?$\#5\:+D"L%:71E;7.+DBL*4V]R=&EN9RXN+D\#3P+P T\!3P  2P9/ %,^
  72. M ()/"4\&GBL44F4M3W)D97)I;F<@1&%T86)A<V6+DBL+57!D871I;F<N+BY/
  73. M T\"\ ,$209/ (0$208 209/ 4B$ $D&$$< MIT 208 2P9 6^?_!$D&3P"$
  74. M3P&V!$D& $D&3P%(A*@ 208 2P9 6^[_\  $208K "L04V]R=&EN9R!#;VUP
  75. M;&5T95<X H1V-0!G !   @     7  =&24Y$4%94 @5005)43@,%45-/4E0"
  76. M!5!44E,E@ 105E0D P      !#$ ""D 3P (*P!/ %,2 'F$ #$ 3P!$6TX 
  77. M #$ &"T M@\O "L&1DE%3$0D(P"'!#, ""D 3P (*P!/  LO $\#4QL >80(
  78. M*0!/   S $\!3$\ 4R( @@ S $\ ""L 3P!3(@""=B< >@ .  (     "0 '
  79. M0T]-4$%210(%4%124R6 !T935$M%620#       (&P 8'P"V#R$ *P9&245,
  80. M1"0C (<$(P (&P!/ 4B$ ", "!T -%M0   C !@? +8$)0 K!D9)14Q$)", 
  81. M3P,+(0!/ U,2 'F$ "4 3P% 6PL  ", ?,"_$@  )0!/ 6A 6P@ "!L ?, $
  82. M(P  (P!/ 4B$OZS_3P!\P"H!U0 0  ,#      D !T-/35!!4D4"!5!44E,E
  83. M@  I /\     !", "!L A 0E  @= (0$)P  (P 8(0"$ ", '"$  "4 &"$ 
  84. MA  E !PA   G (0 (P 8(0"V!RH *P9&245,1"0C (<#*@!/ PL? $\#4Q( 
  85. M3P%H?$);)0 $(P  (P!/ 4B$ ", &"$ M@<J "L&1DE%3$0D(P"'O\S_ "4 
  86. M&"$ M@<J "L&1DE%3$0D(P"' RH 3P,+'P!/ U,2 $\ ?#Y;)0 $)0  )0!/
  87. M 4R$ "4 &"$ M@<J "L&1DE%3$0D(P"'O\W_ ",  "4 .%M!_P C 'S (@#&
  88. M  H  @,#      1&3T\D P1"05(D P573U)$)0 %0T]-4"4        /%@ +
  89. M$@"'#Q@ "Q0 AP@: $\"0%MO  0@  L2 "L!(%<5A  @ $\ 1%LD  \6  L6
  90. M  L6 %<4 "  3%?1AP0@  L6 "L!(%<5A+_9_P0@  L8 "L!(%<5A  @ $\ 
  91. M1%LD  \8  L8  L8 %<4 "  3%?1AP0@  L8 "L!(%<5A+_9_PL6  L8 #-;
  92. M#0 $'@!/ 6B$OQP "Q8 "Q@ 0UL,  0> $\ A+\)  0> $\!A @< $\"0%L+
  93. M  0>   > &B$ !X ?, $34%)3M(    0  133U)4W $  "T !5%33U)4,P, 
  94. M %< !T9)3D105E30 P  9  %4$%25$YU!   =P '0T]-4$%217 %  "5    
  95.  
  96. end
  97. ----- cut here ------
  98. -- 
  99. -- The above are my own views and may not be shared by Touche Ross or Praxis.
  100. Mike D. Smith (mikes@praxis.co.uk) Phone: +44-225-444700, Fax: +44-225-465205
  101. Praxis - Software Engineering Division of Touche Ross Management Consultancy
  102. 20 Manvers Street, Bath BA1 1PX, England. -- Oh no, my karma ran over my dogma!
  103.