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 / CPM / DATABASE / KPHANDYP.LBR / PRINTIME.CZD / PRINTIME.CMD
OS/2 REXX Batch file  |  2000-06-30  |  512b  |  23 lines
  1. STOR date() to look
  2. FIND &look
  3. DO WHIL .not. eof .and. appt:date=date()
  4. IF val($(appt:time,1,2))>6
  5. STOR 2*val($(appt:time,1,2))-10 to line
  6. ELSE
  7. STOR 2*val($(appt:time,1,1))+2 to line
  8. ENDI
  9. IF val($(appt:time,1,2))<7
  10. STOR 31 to column
  11. ELSE
  12. STOR 7 to column
  13. ENDI
  14. IF $(appt:time,3,1)='3' .or. $(appt:time,4,1)='3'
  15. STOR line+1 to line
  16. ENDI
  17. IF .not.*
  18. @ line,column say appt:desc
  19. ENDI
  20. SKIP
  21. ENDD
  22. RETU
  23.