Goo'day, David,
Dick Pick's gift to the world:
At 15:24 05/01/06 +1100, you wrote:
Happy New Year,
A current project involves printing a number string in its alphabetic
description e.g. 1 = one, 3 = three, 11 = eleven etc etc. The precise task
is printing a label of book information and in this case the label is
"edition" e.g. first/second.
The universe basic manual does not appear to provide a conversion code as
in "MCN...." etc ; would someone know of a UV code or algorithm that
converts these strings?
Regards
David Knight
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
Just add "TH" to everything above "THREE" and replace ONe TWO THREE with
FIRST SECOND THIRD... (I think)
And discard the cents!
0001: SUBROUTINE(N,S)
0002: S= ''; IF NUM(N) ELSE RETURN
0003: N = N'R26%12'
0004: FOR I = 1 TO 7 STEP 3
0005: X = N[I,3]
0006: SX = ''
0007: IF X > 99 THEN SX = SX:' ':FIELD('ONE TWO THREE FOUR FIVE SIX SEVEN
EIGHT
NINE',' ',X[1,1]):' HUNDRED'
0008: X = X[2,2]
0009: IF X > 0 AND SX # '' THEN SX = SX:' &'
0010: IF X > 0 AND SX = '' AND S# '' THEN SX = ' &'
0011: IF X > 19 THEN SX = SX:' ':FIELD(' TWENTY THIRTY FORTY FIFTY SIXTY
SEVENTY EIGHTY NINTY',' ',X[1,1]); X = X[2,1]
0012: IF X > 0 THEN SX = SX:' ':FIELD('ONE TWO THREE FOUR FIVE SIX SEVEN
EIGHT NINE TEN ELEVEN TWELVE THIRTEEN FOURTEEN FIFTEEN SIXTEEN SEVENTEEN
EIGHTEEN NINETEEN',' ',X)
0013: IF SX # '' THEN S = S:SX:FIELD(' MILLION... THOUSAND','.',I)
0014: NEXT I
0015: IF S = '' THEN S = 'ZERO'
0016: IF S = ' ONE' THEN TEXT = ' DOLLAR ' ELSE TEXT = ' DOLLARS '
0017: S = S:TEXT
0018: IF N[11,2] = 0 THEN
0019: S = S:'ONLY'
0020: END ELSE
0021: IF N[11,2] > 9 THEN
0022: S = S:N[11,2]:'/100'
0023: END ELSE
0024: S = S:'& ':N[11,2]+0:' CENT'
0025: IF N[11,2] > 1 THEN S= S:'S'
0026: END
0027: END
0028: RETURN
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.1.371 / Virus Database: 267.14.12/220 - Release Date: 03/01/06
Regards,
Bruce Nichol
Talon Computer Services
ALBURY NSW 2640
Australia
http://www.taloncs.com.au
Tel: +61 (0)411149636
Fax: +61 (0)260232119
If it ain't broke, fix it till it is!
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.1.371 / Virus Database: 267.14.12/220 - Release Date: 03/01/06
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/