home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / ACAUG1.DMS / in.adf / AmigaGuide.lzx / AREXX_PAGE_COVERDISK_CODE / F3.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1996-04-04  |  526 b   |  37 lines
  1. /* F3.rexx */
  2.  
  3.  
  4. LINEFEED='0A'x; TAB='09'x
  5.  
  6. TEXT1='Libraries found...'||LINEFEED
  7.  
  8. TEXT2='Press RETURN to close window when finished!'
  9.  
  10. WINDOW_DEF='con:100/20/400/440/F3 Key... Library list/close'
  11.  
  12. if  ~Show('L','rexxsupport.library')
  13.  
  14.    then do
  15.  
  16.       call AddLib('rexxsupport.library',0,-30,0)
  17.  
  18.    end
  19.  
  20. library$=ShowList('L')
  21.  
  22. call Open(window,WINDOW_DEF)
  23.  
  24. call Writeln(window,TEXT1)
  25.  
  26. do i=1 to Words(library$)
  27.  
  28.    call Writeln(window,TAB||Word(library$,i)||LINEFEED)
  29.  
  30. end
  31.  
  32. call Writeln(window,TEXT2)
  33.  
  34. Readch(window,1)
  35.  
  36. exit
  37.