Compile subroutine Jonathan_Logging(msgSeq,msg)

Declare function Environment_Services

equ crlf$ to \0D0A\
		equ tab$ to char(09)
		equ comma$ to char(44)
		equ space$ to char(32)
		equ record$ to char(00)
		equ scolon$ to char(59)
		
FileID = Time() : '- ':msgSeq	
	
DirPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\'
fileName = DirPath : FileID:'JonathanLog.txt'

oswrite "" To fileName ; * create the new file

OSOpen fileName To hUserFile then
	OSBWrite msg On hUserFile At 0
	osclose hUserFile
end