I have to verify (in a clipper 5 program) what opertive system is
running. I think to check the presence of significative files.
What solution ?

There was a discussion about this subject a few weeks back, revolving around
the idea of using OSLib (see URL in sig) and using the version number
function to check version details.

A well placed search on Deja <URL:http://www.deja.com/usenet/> should get
you the content of that thread.

--
Take a look in Hagbard's World: |   w3ng - The WWW Norton Guide reader.
http://www.hagbard.demon.co.uk/ |     eg - Norton Guide reader for Linux.
http://www.acemake.com/hagbard/ |    weg - Norton Guide reader for Windows.
Free software, including........| dgscan - DGROUP scanner for Clipper.

Try This

*!*****************************************************************************
*!
*!       Function: O_SYS()
*!
*!      Called by: MAIN               (procedure in DA.PRG)
*!
*!          Calls: WARBLE()           (function  in ?)
*!               : WINNT()            (function  in DI_PROC.PRG)
*!               : WINME()            (function  in DI_PROC.PRG)
*!               : WIN95()            (function  in DI_PROC.PRG)
*!               : WIN98()            (function  in DI_PROC.PRG)
*!               : ALTD()             (function  in ?)
*!
*!*****************************************************************************
FUNC O_Sys()

LOCAL O_Sys

//---------------------
//---------------------
//CLS

//WARBLE(2)
//INKEY(0)
//---------------------
//---------------------

DO CASE
CASE Win95()
  O_Sys := "Win 95"

CASE Win95B_98()
  O_Sys := "Win 95B or Win 98"

CASE Win98Se()
  O_Sys := "Win 98 SE"

CASE WinME()
  O_Sys := "Win Me"

CASE WinNT()
  O_Sys := "Win NT"

//CASE Win2000()
//  O_Sys := "Win 2000"

OTHERWISE
  O_Sys := "DOS " + DOSVERS()

ENDCASE

RETURN O_Sys
*!*****************************************************************************
*!
*!       Function: WIN9X()
*!
*!      Called by: WKSTDETAILS        (procedure in DI_SN_RM.PRG)
*!               : DI_SN_RM()         (function  in DI_SN_RM.PRG)
*!               : BOTLINE()          (function  in DI_PROC.PRG)
*!               : FORMAT()           (function  in DI_PROC.PRG)
*!               : LFNSHORT()         (function  in DI_PROC.PRG)
*!               : CONVLFNSHORT()     (function  in DI_PROC.PRG)
*!               : ZIPEJECT           (procedure in DI_PROC.PRG)
*!
*!          Calls: WINNT()            (function  in DI_PROC.PRG)
*!
*!*****************************************************************************
FUNC Win9x()
* Return True if Win 95/98/Me or Win NT

LOCAL WIN_9x := .F.

IF DOSVERS() >= 7
   WIN_9x := .T.
ENDIF

RETURN(WIN_9x .OR. WinNT())
*!*****************************************************************************
*!
*!       Function: WIN95()
*!
*!      Called by: O_SYS()            (function  in DI_PROC.PRG)
*!
*!*****************************************************************************
FUNC Win95()
* Return True if Win 95

LOCAL WIN95 := .F.

IF DOSVERS() >= 7.0 .AND. DOSVERS() < 7.1
   WIN95 := .T.
ENDIF

RETURN WIN95
*!*****************************************************************************
*!
*!       Function: WIN98()
*!
*!      Called by: O_SYS()            (function  in DI_PROC.PRG)
*!
*!*****************************************************************************
FUNC Win95B_98()
* Return True if Win95B or Win 98

LOCAL WIN95B_98 := .F.

IF DOSVERS() == 7.1
   WIN95B_98 := .T.
ENDIF

RETURN WIN95B_98
*!*****************************************************************************
*!
*!       Function: WIN98()
*!
*!      Called by: O_SYS()            (function  in DI_PROC.PRG)
*!
*!*****************************************************************************
FUNC Win98SE()
* Return True if Win 98 SE

LOCAL WIN98SE := .F.

IF DOSVERS() > 7.1 .AND. DOSVERS() < 8
   WIN98SE := .T.
ENDIF

RETURN WIN98SE
*!*****************************************************************************
*!
*!       Function: WINME()
*!
*!      Called by: O_SYS()            (function  in DI_PROC.PRG)
*!
*!*****************************************************************************
FUNC WinMe()
* Return True if Win Me

LOCAL WinMe := .F.

IF DOSVERS()  == 8
   WinMe := .T.
ENDIF

RETURN WinMe
*!*****************************************************************************
*!
*!       Function: WINNT()
*!
*!      Called by: O_SYS()            (function  in DI_PROC.PRG)
*!               : BOTLINE()          (function  in DI_PROC.PRG)
*!               : WIN9X()            (function  in DI_PROC.PRG)
*!               : LFNSHORT()         (function  in DI_PROC.PRG)
*!               : CONVLFNSHORT()     (function  in DI_PROC.PRG)
*!
*!*****************************************************************************
FUNC WinNT()
* Return True if Win NT

LOCAL WinNT := .F.

IF "NT" $ UPPER(GETENV("OS"))
   WinNT := .T.
ENDIF

RETURN(WinNT)

R.C.Electronics - www.rce.com.au
Cheers from Geoff Cohen (0417 657 465)

Any technology that is distinguishable from Magic
 is insufficiently advanced

Jeff,

Do you have the dosvers() function to go with this?

Also noticed the code says that the dosvers() function

1. is a string function

  O_Sys := "DOS " + DOSVERS()

2. is a numeric function

  IF DOSVERS() >= 7

Just a little confusing. :-)

Steve

ps.

Added a Warble procedure to your posted code

PROCEDURE Warble2(count)
* REMARK..: Personally, I don't know what a "warble" sounds like
DO WHILE count > 0
   TONE(600,1)
   TONE(800,1)
   TONE(1200,1)
   TONE(1600,3)
   count--
ENDDO

It's part of Funcky - I don't consider you can write Clipper without
Funcky.

R.C.Electronics - www.rce.com.au
Cheers from Geoff Cohen (0417 657 465)

Any technology that is distinguishable from Magic
 is insufficiently advanced