#( PasteDate
WatchWindow: "*- Блокнот"

\ см. "Неотложная помощь по Форту"
<(
: StringReplace2 { a2 a1 u1 a3 u3 a4 u4 \ rest -- a2 u2 }
  a2 0! 
  a1 u1 
  BEGIN OVER SWAP a3 u3 SEARCH WHILE 
  TO rest SWAP 2DUP - a2 +PLACE 
  a4 u4 a2 +PLACE 
  rest u3 /STRING 
  REPEAT 
  a2 +PLACE 
  DROP  
;
)>
CREATE strDate 12 ALLOT
Action:
 PAUSE: 250
 strDate S" %Year@ Mon@ Day@ -2 DAY+ YMD>DATE DATE>S%" EVAL-SUBST S" -" S" ." StringReplace2
 SEND-KEYS: "%strDate  COUNT%"
)#