25 lines
551 B
Plaintext
25 lines
551 B
Plaintext
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
|
|
|
|
|