' Returns non-zero if Windows is running,
' or returns zero otherwise.
'
' Example:
'
'    IF WINDOWS(1) THEN
'        PRINT "Windows is running."
'    ELSE
'        PRINT "You are running this in DOS mode."
'    END IF
'
FUNCTION WINDOWS (W)
    E$ = UCASE$(ENVIRON$("OS"))
    WINDOWS = INSTR(E$, "WINDOWS")
END FUNCTION