home *** CD-ROM | disk | FTP | other *** search
/ ANews 1 / AnewsCD01.iso / Internet / Email / YAM2.0 / Rexx / MiamiOnline.yam < prev    next >
Encoding:
Text File  |  1999-08-03  |  429 b   |  19 lines

  1. /* MiamiOnline.yam - Go online in Miami                                   */
  2. /* $VER: MiamiOnline.yam 1.0 (1.10.98) © 1998 by M.Beck <mbeck@access.ch> */
  3.  
  4. miamipath = "MIAMI:Miami"  /* Change this path if required */
  5.  
  6. OPTIONS RESULTS
  7. IF ~SHOW('P', 'MIAMI.1') THEN DO
  8.    ADDRESS COMMAND
  9.    'Run <>NIL:' miamipath
  10.    'WaitForPort MIAMI.1'
  11. END
  12. ADDRESS 'MIAMI.1'
  13. ISONLINE
  14. IF RC=0 THEN ONLINE
  15. ISONLINE
  16. IF RC=0 THEN EXIT 5
  17. HIDE
  18. EXIT 0
  19.