home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / REXXCH03.ZIP / DAYS2.CMD < prev    next >
OS/2 REXX Batch file  |  1991-03-11  |  242b  |  14 lines
  1. /* to display the days of the week indefinitely */
  2. day.1 = "Sunday"
  3. day.2 = "Monday"
  4. day.3 = "Tuesday"
  5. day.4 = "Wednesday"
  6. day.5 = "Thursday"
  7. day.6 = "Friday"
  8. day.7 = "Saturday"
  9.  
  10. do j = 1
  11.    say day.j
  12.    if j = 7 then j = 0
  13. end
  14.