. Version 2
.Subprogram Write logging
. Parameters Write log_log file name, text type
. Parameters Write log_log text, text type
.Local variables File handles, integer types
File handle = Open file (write log_log file name, , )
.If (file handle = 0)
Write to file (write log_log file name, { })
.otherwise
.If ended
File handle = Open file (write log_log file name, , )
.If (file handle > 0)
Insert text line (file handle, to text (get the current time ()) + "》》" + Write log_log text)
.otherwise
.If ended
' Write a log
Close all files ()