home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxls04.cmd < prev    next >
OS/2 REXX Batch file  |  1995-01-14  |  2KB  |  27 lines
  1. /* 9503LS02.CMD - List CONFIG.SYS on LPT1 */                      /* 0001 */
  2. Say 'Listing CONFIG.SYS on LPT1'                                  /* 0002 */
  3. Say 'Please enter drive letter of CONFIG.SYS'                     /* 0003 */
  4. pull drive_letter                                                 /* 0004 */
  5.                                                                   /* 0005 */
  6. config_sys_file_name = drive_letter || ':\CONFIG.SYS'             /* 0006 */
  7. if STREAM( config_sys_file_name, 'C', 'QUERY EXISTS' ) = '' then  /* 0007 */
  8.    do                                                             /* 0008 */
  9.       say 'Unable to locate' config_sys_file_name                 /* 0009 */
  10.       exit                                                        /* 0010 */
  11.    end                                                            /* 0011 */
  12.                                                                   /* 0012 */
  13. form_feed = D2C(12)                                               /* 0013 */
  14. input_line_count = 0                                              /* 0014 */
  15. do while LINES(config_sys_file_name) > 0                          /* 0015 */
  16.    input_line = LINEIN(config_sys_file_name)                      /* 0016 */
  17.    input_line_count = input_line_count + 1                        /* 0017 */
  18.    call LINEOUT 'LPT1', input_line                                /* 0018 */
  19. end                                                               /* 0019 */
  20. call CHAROUT 'LPT1', form_feed                                    /* 0020 */
  21.                                                                   /* 0021 */
  22. call STREAM config_sys_file_name, 'C', 'CLOSE'                    /* 0022 */
  23. call STREAM 'LPT1', 'C', 'CLOSE'                                  /* 0023 */
  24.                                                                   /* 0024 */
  25. Say input_line_count || ' lines listed'                           /* 0025 */
  26. exit                                                              /* 0026 */
  27.