home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 85 / af085sub.adf / SLIDESHOW / SLIDE.lzx / AGASSM / Rexx / ShowPorts,W.agassm < prev   
Encoding:
Text File  |  1996-03-30  |  632 b   |  29 lines
  1. /* AGASSM - Show message ports */
  2. /* © 1995 Paul Vernon */
  3.  
  4. Port = Show('P','AGASSM')
  5. If Port = 0 then do
  6.   Exit
  7.   End            
  8.  
  9. succ=Open(file,'T:AGASSM-Temp','w')
  10. If succ ~== 0 then do
  11.   succ = WriteLn(file,Show(Ports,,'0a'x))
  12.   succ = Close(file)
  13.   succ = Open(file,'T:AGASSM-Temp','r')
  14.   If succ ~== 0 then do
  15.     Do Forever While ~EOF(file)
  16.       String = ReadLn(file)
  17.       If String ~== '' then do
  18.         Ports = 'Portname : 'String
  19.         ADDRESS 'AGASSM'
  20.         ShowMsg 2 Ports
  21.         ADDRESS COMMAND
  22.         End
  23.       End
  24.     End
  25.     succ = Close(file)
  26.     ADDRESS COMMAND 'C:Delete T:AGASSM-Temp QUIET'
  27.   End
  28. Exit
  29.