home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG061.ARC / DATE.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  640b  |  22 lines
  1. ERASE
  2. SET TALK OFF
  3. SET INTENSITY ON
  4. SET COLON OFF
  5. RESTORE FROM MDATE
  6. SET DATE TO &MDATE
  7. @ 11,13 SAY '********************************************'
  8. @ 12,13 SAY '*                                          *'
  9. @ 13,13 SAY '********************************************'
  10. SET INTENSITY OFF
  11. @ 12,15 SAY "ENTER TODAY'S DATE (MM/DD/YY):  " GET Date PICTURE '99/99/99'
  12. READ
  13. IF '&DATE' <> '&MDATE'
  14.   STORE '&Date' TO MDATE
  15.   SAVE TO MDATE
  16.   SET DATE TO &MDate
  17. ENDIF
  18. SET INTENSITY ON
  19. SET COLON ON
  20. ERASE
  21. RETURN
  22.