home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
query87.zip
/
_NTRFACE.PRG
< prev
next >
Wrap
Text File
|
1988-05-31
|
535b
|
43 lines
* _ntrface.prg
function dateform
private dm
dm = getdmod()
do case
case dm = 1
return( 'AMERICAN' )
case dm = 2
return( 'ANSI' )
case dm = 3
return( 'BRITISH' )
case dm = 4
return( 'FRENCH' )
case dm = 5
return( 'GERMAN' )
case dm = 6
return( 'ITALIAN' )
otherwise
return( 'UNKNOWN' )
endcase
function getkeys
parameters arr_name
private x
if len(arr_name) <> 32
return(1)
endif
for x = 1 to 32
arr_name[x] = setkey(x)
next
return(0)