home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / query87.zip / _NTRFACE.PRG < prev    next >
Text File  |  1988-05-31  |  535b  |  43 lines

  1. * _ntrface.prg
  2.  
  3.  
  4. function dateform
  5.  
  6. private dm
  7. dm = getdmod()
  8.  
  9. do case
  10.   case dm = 1
  11.     return( 'AMERICAN' )
  12.   case dm = 2
  13.     return( 'ANSI' )
  14.   case dm = 3
  15.     return( 'BRITISH' )
  16.   case dm = 4
  17.     return( 'FRENCH' )
  18.   case dm = 5
  19.     return( 'GERMAN' )
  20.   case dm = 6
  21.     return( 'ITALIAN' )
  22.   otherwise
  23.     return( 'UNKNOWN' )
  24. endcase
  25.  
  26.  
  27.  
  28. function getkeys
  29.  
  30. parameters arr_name
  31.  
  32. private x
  33.  
  34. if len(arr_name) <> 32
  35.   return(1)
  36. endif
  37.  
  38. for x = 1 to 32
  39.   arr_name[x] = setkey(x)
  40. next
  41. return(0)
  42.  
  43.