//'***********************************************************************
//'     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
 
//Although the documentation is a little sparce for the beta version, here's some code to show //the use of the new $Time$ function... a very simple clock. 

//Code: 

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

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

// 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.