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
Quote:
>>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 ?
>Try This
>*!*****************************************************************************
>*!
>*! Function: O_SYS()
>*!
>*! Called by: MAIN (procedure in DA.PRG)
>*!