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 / SIXMONTH.CZD / SIXMONTH.CMD
OS/2 REXX Batch file  |  2000-06-30  |  896b  |  47 lines
  1. STOR 'T' to fmonth
  2. STOR date() to today
  3. STOR $(today,1,2) to month
  4. STOR $(today,7,2) to year
  5. STOR 'T' to sixmonth
  6. DO WHIL sixmonth='T'
  7. IF fmonth='T'
  8. SET intensity on
  9. ELSE
  10. SET intensity off
  11. ENDI
  12. ERAS
  13. STOR 0 to offset 
  14. STOR-57 to xpos
  15. STOR-57 to column
  16. STOR 'T' to repeat
  17. DO WHIL repeat='T'
  18. DO saymonth
  19. STOR 'F' to fmonth
  20. STOR xpos+30 to xpos
  21. STOR xpos to column
  22. STOR 0 to offset
  23. IF xpos>4
  24. STOR 'F' to repeat
  25. ENDI
  26. ENDD
  27. STOR ' ' to option
  28. @ 21,0 say 'Enter Q to quit or C to change (Q/C)';
  29. get option
  30. READ
  31. IF !(option)='C'
  32. STOR '     ' to start
  33. @ 21,0
  34. @ 21,0 say 'Enter month and year to start (MM/YY)';
  35. get start picture 'XX/XX'
  36. READ
  37. IF @('/',start)=2
  38. STOR '0'+start to start
  39. ENDI
  40. STOR $(start,1,2) to month
  41. STOR $(start,4,2) to year
  42. ELSE
  43. STOR 'F' to sixmonth
  44. ENDI
  45. ENDD 
  46. RETU
  47.