Re: Base utility?

["Tony" <ath@xxxxxxx>]

->
>Here's most of it. You'll have to take care of your own initializing and
>looping,
>but the basic parts are here.  (This is good for 1296 combinations, as
opposed
>to your 100 and 256 for decimal and hex. Suitable changes to the constant
and
>the IfGT value can make this good for an almost arbitrary number of
>identifiers.)
>
>
>DKeySq1           S              2P 0
>DKeySq2           S              2P 0
>DKeySq1AL         S              1
>DKeySq2AL         S              1
>DKeySqAL          S              2
>DSEQVAL           C                   'ABCDEFGHIJKLMNOPQRSTUVWXYZ-
>D                                     0123456789'
> *
>C                   Add       1             KeySq2
>C     KeySq2        IfGT      35
>C                   Move      00            KeySq2
>C                   Add       1             KeySq1
>C                   EndIf
> *
>C                   Move      CurDat        CurDatAL
>C                   Move      CurTim        CurTimAL
>C                   Eval      KeySq1AL = %SubSt(SEQVAL:(KeySq1+1):1)
>C                   Eval      KeySq2AL = %SubSt(SEQVAL:(KeySq2+1):1)
>C                   MoveL(P)  KeySq1AL      KeySqAL
>C                   Move      KeySq2AL      KeySqAL
>
>Peter H. Coffin
>phcoffin@us.ibm.com
>+---
>| This is the Midrange System Mailing List!
>| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
>| To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator:
david@midrange.com
>+---
>
Thanks Peter,

I think this is exactly what I needed.  One other question..  Is there a
reason we go from ABC...789, instead of 012...XYZ ?  The later seems to be
more logical as with hex.

Just an observation,
Tony

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---