* В следующем примере открывается календарь/ежедневник с выбранной
* датой 28 марта 2001 года и внизу появляется значение переменной
* _DIARYDATE. После этого в нее записывается дата 4 июля 1776 года, а
* переменная _DIARYDATE отображается вновь. Затем программа с
* помощью функции DATE( ) выбирает текущую дату и опять отображает
* содержимое _DIARYDATE.

CLEAR

SET TALK OFF

SET CENTURY ON

STORE {03/28/2001} TO _DIARYDATE

@ 24,0 SAY _DIARYDATE

ACTIVATE WINDOW calendar

WAIT WINDOW

STORE {07/04/1776} TO _DIARYDATE

@ 24,16 SAY _DIARYDATE

WAIT WINDOW

STORE DATE( ) TO _DIARYDATE

@ 24,32 SAY _DIARYDATE