home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / snma / arexx / snmainfo.xdme < prev   
Text File  |  1977-12-31  |  556b  |  20 lines
  1. /* Show current snma info in title bar */
  2.  
  3. /* if no snma port title (no snma port) */
  4.  
  5. xdme_add = address()
  6. snma_port = SNMA
  7. do while ~ show('p',snma_port)
  8.     "title (Cannot find port named" snma_port
  9.     exit 20
  10.     end
  11.  
  12. xdme_add = address()
  13. ADDRESS SNMA
  14. INFO STAT
  15. address value xdme_add
  16. if STAT.STATUS = "FAIL" then
  17.     "title (SNMA Failure:" STAT.FAILSTR
  18.     else
  19.     "title (SNMA Res:" STAT.STATUS"." STAT.LINES "lines," STAT.ERRORS "Errs," STAT.WARNINGS "Warns, C:" STAT.CODE","STAT.CODESIZE".D:"STAT.DATA","STAT.DATASIZE".B:"STAT.BSS","STAT.BSSSIZE
  20.