var %day = $date(dd)
if ($right(%day,1) isnum 1-3) { var %day = $left(%day,1) $+ $replace($right(%day,1),1,1st,2,2nd,3,3rd) }
else { var %day = %day $+ th }
write Quotes.txt $remove($2-,$chr(35)) $+ , Added by $nick on $date(dddd) %day $date(mmmm HH:nn:ss)