home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / CDRom / PET-CDW2.DMS / in.adf / rexx / Time.ced < prev    next >
Encoding:
Text File  |  1993-07-07  |  395 b   |  25 lines
  1. /*
  2. ** Time.ced
  3. **
  4. ** $VER: Time.ced 1.0.1 (27.04.93)
  5. **
  6. ** This script displays the current time.
  7. **
  8. ** This script requires CygnusEd Professional v2.00 (or later) to run.
  9. **
  10. ** Copyright © 1990-1993 ASDG, Incorporated  All Rights Reserved
  11. */
  12.  
  13.  
  14. OPTIONS RESULTS
  15.  
  16.  
  17. NL = '0A'X
  18.  
  19. CEDTOFRONT
  20. OKAY1 "The current time is" || NL ||,
  21.     CENTER( TIME(), 19 ) || NL ||,
  22.     CENTER( "(CEDPro Time)", 19 )
  23.  
  24. EXIT 0
  25.