/*
** Time.ced
**
** $VER: Time.ced 1.0.1 (27.04.93)
**
** This script displays the current time.
**
** This script requires CygnusEd Professional v2.00 (or later) to run.
**
** Copyright © 1990-1993 ASDG, Incorporated  All Rights Reserved
*/


OPTIONS RESULTS


NL = '0A'X

CEDTOFRONT
OKAY1 "The current time is" || NL ||,
	CENTER( TIME(), 19 ) || NL ||,
	CENTER( "(CEDPro Time)", 19 )

EXIT 0
