home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / comm / ibrowsescripts / rexx / onlinewin.ibrx < prev    next >
Encoding:
Text File  |  1980-02-06  |  641 b   |  24 lines
  1. /* Onlinewin.ibrx needed as a seperate task    as miami doesn`t return "ONLINE" before it is */
  2.  
  3. OPTIONS RESULTS
  4.  
  5.         ok=open('OnlineMiami','CON:60/100/100/22/OnlineMiami/')
  6.             a=1
  7.             cleft='08'x
  8.             call writeln 'OnlineMiami',' Hold on!'
  9.             call writeln 'OnlineMiami',' Miami is'
  10.             call writech 'OnlineMiami','Connecting'
  11.             ADDRESS "COMMAND" "wait 1"
  12.             DO FOREVER
  13.                 IF ~SHOW('Ports','MIAMI.1') THEN exit
  14.                 ADDRESS 'MIAMI.1' 'ISONLINE'
  15.                 result=rc
  16.                 IF result then exit
  17.                 call writech 'OnlineMiami',cleft
  18.                 a=a+1
  19.                 ADDRESS "COMMAND" "wait 1"
  20.                 If a=11 then Do
  21.                     a=1
  22.                     call writech 'OnlineMiami','Connecting'
  23.                 END
  24.             END