qb45advr.hlp (Topic list)
Important Notice
The pages on this site contain documentation for very old MS-DOS software, purely for historical purposes. If you're looking for up-to-date documentation, particularly for programming, you should not rely on the information found here, as it will be woefully out of date.
.ascx
:nASC Function Programming Example
  QuickSCREEN      Details     Example      Contents      Index
──────────────────────────────────────────────────────────────────────────────
ASC Function Programming Example
 
The following example uses ASC to calculate a hash value--an index
value for a table or file--from a string:
 
CONST HASHTABSIZE = 101
CLS                             'Clear the screen
INPUT "Enter a name: ",Nm$      'Prompt for input
TmpVal = 0
FOR I=1 TO LEN(Nm$)
    ' Convert the string to a number by summing the values
    ' of individual letters.
    TmpVal = TmpVal + ASC(MID$(Nm$,I,1))
NEXT I
    ' Divide the sum by the size of the table.
    HashValue = TmpVal MOD HASHTABSIZE
PRINT "The hash value is "; HashValue
 
Sample Output
 
Enter a name: Bafflegab
The hash value is  66