home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / graphic / cad / board_design / proboard_demo / rexx / readboard.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1995-07-10  |  485 b   |  21 lines
  1. /* Read and display a Pro-Board PCB index file */
  2.  
  3. /* Add the Support Library if not already in the system                */
  4. IF ~SHOW('L', 'rexxsupport.library') THEN
  5.   CALL ADDLIB('rexxsupport.library',0,-30)
  6.  
  7. IF ~EXISTS('BOARD') THEN
  8. DO
  9.   SAY "No BOARD index file in this directory."
  10.   EXIT
  11. END
  12.  
  13. PARSE VALUE STATEF('BOARD') WITH Type Size Other
  14.  
  15. OPEN('INDEX', 'BOARD', 'r')
  16.  
  17. /* Translate 0x00 to 0x0A for display */
  18. SAY TRANSLATE(READCH('INDEX', Size), '0A'x, '00'x)
  19.  
  20. CLOSE('INDEX')
  21.