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