' ********************************************************************************
' Program: RUNCAL.PF3
' ********************************************************************************

external $$fct mcal() wincal()
if not(sysvar($_os) = 5)
	mcal() 'see mcal() function in the High Use Function Library
else
	wincal()
end if