home *** CD-ROM | disk | FTP | other *** search
/ Network PC / Network PC.iso / amiga utilities / applications / accounts / easycalc2.0f / easyrexx / verticalmonths.erex < prev   
Encoding:
Text File  |  1997-11-20  |  456 b   |  25 lines
  1. /* EasyCalc 2.0 Arexx Script */
  2.  
  3. options results
  4.  
  5. getcurx
  6. curx = result
  7.  
  8. getcury
  9. cury = result
  10.  
  11. setcell curx cury   'January'
  12. setcell curx cury+1 'February'
  13. setcell curx cury+2 'March'
  14. setcell curx cury+3 'April'
  15. setcell curx cury+4 'May'
  16. setcell curx cury+5 'June'
  17. setcell curx cury+6 'July'
  18. setcell curx cury+7 'August'
  19. setcell curx cury+8 'September'
  20. setcell curx cury+9 'October'
  21. setcell curx cury+10 'November'
  22. setcell curx cury+11 'December'
  23.  
  24. redraw
  25.