!(KEYWORD)+$(TKL:DATE,7,2)+$(TKL:DATE,1,2)+$(TKL:DATE,4,2)M+/2}W2X2vW2X2X2xW!:+0MO Mselect * erase the error message line. just in case one was printed @ 20,0 @ 21,0 DO CASE830310830315830331830331SAMPLES 830225y the keyword then date of entry * RECALL.ndx - $(rcl:date,7,2)+$(rcl:date,1,2)+$(rcl:date,4,2) * places file in chronological order by recall date ** ** ** ** ** ** ** ** Begin command file ** clear set PRINTER 830310SAMPLES 830315SAMPLES 830331y the keyword then date of entry * RECALL.ndx - $(rcl:date,7,2)+$(rcl:date,1,2)+$(rcl:date,4,2) * places file in chronological order by recall date ** ** ** ** ** ** ** ** Begin command file ** clear set talk off * Load the date test routine into memory and set the call address LOAD datetest SET CALL TO 42240 ERASE * Read the current date, then set the system date STORE ' / / ' TO tmp:date DO WHILE DATE() Czf8IMO!B NM#NM MCMf~B>SMPCM.* |MU}MU MMI!9":7Jq!"J}# B! >Ji# B,>JN# B7f@~@J4~J%zfGVJ=J=J|zf@JJzfJ?VJ4VJ)VJ