home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / TJDMACS.ZIP / TJDMDEMO.CMD < prev    next >
OS/2 REXX Batch file  |  1991-07-12  |  522b  |  23 lines
  1. /* Demonstration of the TJDMacs REXX enhancement package */
  2. call setlocal
  3. '@ANSI ON > NUL'
  4. '@MACDEL > NUL'
  5. call time('R')
  6. call Btest
  7. Time1 = time('e');
  8. x = clrscrn();
  9. '@macadd btest btest b > NUL'
  10. '@macadd box box b > NUL'
  11. '@macadd unbox unbox b > NUL'
  12. '@macadd goto goto b > NUL'
  13. '@macadd clrscrn clrscrn b > NUL'
  14. x = clrscrn();
  15. call time('R')
  16. call Btest
  17. x = clrscrn();
  18. Time2 = time('e');
  19. say 'Time for test 1 (no Macro Space) was' Time1
  20. say 'Time for test 2 (Macro Space) was' Time2
  21. call endlocal
  22.  
  23.