LOG [was Re: Now XP can't tell the TIME]

[cld@xxxxxxxx (Carl Distefano)]

Reply to note from Bill Troop  Sat, 10 Nov 2001
11:41:16 -0500

> ...the NOW command in Xy4 (which I use constantly, mostly in an
> effort to keep my cigarette consumption down)...

Bill: This would be a perfect fit for the Jumbo U2 LOG routine.
LOG grew out of a time in my career when I needed to keep track of
my professional time in six-minute intervals. It automates the
process of maintaining a running, date- and time-stamped account of
how you spend your day. A typical entry would be something like:

LOG Start phone call w/Smith

When you hang up, you'd issue:

LOG End phone call w/Smith

(The word LOG can be abbreviated as the letter L.) By commanding,
simply, L, you open the log file for inspection, editing,
or adding longer entries that don't fit on the CMline. (For
example, you could not only log the start of your phone call with
Smith, you could take notes on the conversation as well.) After the
two above commands, the log file would look something like this:

11/10/2001 1:22 PM: Start phone call w/Smith
11/10/2001 1:27 PM: End phone call w/Smith

Obviously, you can log anything. In your case, you could keep track
not only of your time-since-last-cigarette, but also jot down when
cravings occur, how you quash them, thought-processes at the time --
in short, keep a full-fledged behavioral diary. (Who knows, it
might even help you quit....)

The current version of LOG works, but dates back some 7 or 8 years.
I decided to update the code for the next Jumbo U2 release. Here's
a preview. Issue DECODE to turn it into "live" XPL. CoPy
it into your U2 file, near the top of the file. With U2 in the
current window (and without first attempting to SAve the file),
issue LH. Then ABort U2.

Salud!

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5Log,L}} Log date & time-stamped entries from CMline [CLD{32}
rev.11/10/01][cr|lf]{2};*;    Usage: LOG [descriptive entr
y][cr|lf];*;    LOG opens log file for{32}
inspection or editing[cr|lf];*;[cr|lf];*; {<}NT1{>}[cr|lf];*;
[cr|lf];*; User Variable (optional) - Toggle eXPanded view[cr
|lf];*; D:\PATH\FILENAME of log file[cr|lf];*; Example: {<}SV
01,D:\DOCS\MYLOG.XY{>}[cr|lf];*; Default = {<}SV01,{>} = TIME
{46}LG, located in main XyWrite directory[cr|lf];*;  |[cr|lf]{<
}SV01,{>};*;[cr|lf];*;[cr|lf];*; {<}NT0{>}[cr|lf][XH_][BX_]es
 1[Q2_]{<}SX02,{<}IS50{>}{>}{<}IF{<}VA|01{>}<1{>}{<}SX50,{<}V
A$ED{>}{>}[JM_]2.GetPath[Q2_]{<}SX01,{<}IS50{>}+"\TIME.LG"{>}
{<}EI{>}{<}SX01,@upr({<}IS01{>}){>}{<}SV50,EM 78DI{>}[JM_]2.r
m|tw[Q2_];*;[cr|lf][BX_]exist {<}PV01{>}[Q2_]{<}IF{<}ER{>}{>}
{<}SX03,"{<}SZ12PT{>}{<}UFSTANDARD{>}{<}OF{>}{<}LM{>}"+{<}IS5
0{>}+"{<}IP0,19DI,0{>}[cr|lf]Date    Time[cr|lf]====  {32}
  ====[cr|lf]"{>}[BX_]sa %03,{<}PV01{>}[Q2_]{<}EI{>}{<}SX03,
{<}VA$TM{>}{>}{<}IF@siz({<}VA@03:1{>})<2{>}{<}SX03," "+{<}IS0
3{>}{>}{<}EI{>}{<}SX03,{<}VA$DAmm/dd/yyy{>}+" "+{<}IS03{>}+":
 "+{<}IS02{>}{>};*;[cr|lf]{<}IF{<}VA|02{>}>0{>}[BX_]apfil {<}
PV01{>},{<}PV03{>}[Q2_]{<}IF{<}ER{>}{>}{<}LBa{>}{<}SX01,{<}VA
$ER{>}{>}{<}SX01,"{<}VA\"+{<}IS01{>}+"{>}"{>}{<}SX01,{<}PV01{
>}{>}{<}LBb{>}[DO_][FF_]{<}PR@01{>}{<}EX{>}{<}EI{>}[BX_]wait[
Q2_]{<}SX01,"Added to "+@upr({<}IS01{>}){>}{<}GLb{>}{<}EI{>};
*;[cr|lf][DX_][BX_]gofile {<}PV01{>}[Q2_]{<}IF{<}er{>}{>}{<}S
X02,{<}VA$WA{>}{>}{<}IF{<}PV02{>}<1{>}{<}SV01,No window{>}{<}
GLb{>}{<}EI{>}[BX_]func #{<}PV02{>}[Q2_][BX_]ca {<}PV01{>}[Q2
_]{<}IF{<}ER{>}{>}{<}GLa{>}{<}EI{>}{<}EI{>}[WG_][NM_][BF_]{<}
GT03{>}[255+48+68][CL_]{<}SX01,"Log file "+{<}IS01{>}{>}{<}GL
b{>}{2}[cr|lf][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx
http://users.datarealm.com/xywwweb/