home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / HASH.ZIP / LIST.1 next >
Encoding:
Text File  |  1993-01-04  |  614 b   |  14 lines
  1. 50 '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  2. 55 '                                                    ~
  3. 60 'Subroutine to hash a four character string          ~
  4. 65 '                                                    ~
  5. 70 'Enter with the string to be hashed in NA$           ~
  6. 75 '                                                    ~
  7. 80 'On exit the hash value is in H                      ~
  8. 85 '                                                    ~
  9. 90 '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  10. 95 '
  11. 100 H = ( CVI(MID$(NA$,1,2)) XOR CVI(MID$(NA$,3,2)) ) MOD 61
  12. 110 RETURN
  13.  
  14.