home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / utilities / editors / textra / scripts / date.textra < prev    next >
Text File  |  1994-06-24  |  812b  |  37 lines
  1. /*     Nick Didkovsky, 10-Oct-93
  2.     Insert date into Textra, faster version.
  3.     
  4.     12-Oct-93  MH  Added check for at least V1.13 (min req'd for
  5.                    use of a standalone 'address Textra' command)
  6. */
  7.  
  8. options results
  9.  
  10. address command
  11.  
  12. "date >t:TheDate"
  13.  
  14. address Textra
  15.  
  16. rex = 0; result = "NOTSUPPORTED"
  17. textraversion
  18. parse var result maj min rex
  19. if (result == "NOTSUPPORTED") | (rex < 5) then do
  20.     notify "Textra V1.13 or later required for this script."
  21.     exit
  22. end
  23.  
  24. openresult = OPEN('infile','t:TheDate','Read')
  25. IF openresult
  26. THEN DO
  27.         DateString = Readln('infile')                
  28.         closeresult = close('infile')
  29.         IF ~(closeresult)
  30.          THEN notify 'trouble closing date file'
  31.              
  32.         Parse var DateString WeekDay ' ' MonthDayYear ' ' TimeOfDay
  33.         text MonthDayYear
  34.       END
  35. ELSE notify 'Could not read date file'
  36.  
  37.