//'***********************************************************************
//'     DISPLAYED WITH PERMISSION OF ROY SCOTT ENTERPRISES
//'     AND THE AUTHOR AS AN ARCHIVING FUNCTION
//'                  http://www.scottserver.net/forum/index.php
//'     ALL RIGHTS RESERVED
//'************************************************************************
//'     MINOR EDITING PERFORMED BY UPLA STAFF
//'************************************************************************

//docmann
//Microdeveloper

//I overlooked the opportunity to try out the new $Date_$ functions, so here's some slightly modified code from the //clock example: 

//Code: 

Declare $curDate$. 
$curDate$ = $Date_Month$ +"/"+ $Date_Day$ +"/" + $Date_Year$. 

// Define the main window, set the caption and style 
   ?WINDOW Window1, 400, 300, 150, 70 
   {Window1>$Caption$}="Turbo/PLē Clock". 
   {Window1>%Style%}='1'. 
   @ShowWindow {Window1}. 

// Define a static label to display the time 
   ?LABEL Window1>MyLabel, 30, 5, 150, 20 
   {Window1>MyLabel>$Font$}="Verdana". 

// Define a static label to display the date 
   ?LABEL Window1>MyDate, 30, 25, 150, 30 
   {Window1>MyDate>$Font$}="Verdana, 10". 
   {Window1>MyDate>$Caption$}=$curDate$. 

// Set up our action event 
   Action (UpdateClock). 
     {Window1>MyLabel>$Caption$}=$Time$. 
   EndAction. 

// Add a GoL label 
   #next. 

// Define and enable the timer 
   @CreateTimer {Window1>MyTimer}. 
   {Window1>MyTimer>%Interval%}='1000'. 
   {Window1>MyTimer>%Enabled%} = '1'. 

// Set up our timer event 
   @SetEvent {Window1>MyTimer>!OnTimer!}: UpdateClock. 
   @WaitEvent. 

// Loop back up and re-start the timer 
   GoL next. 
   End.