home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / comm / ibrowsescripts / rexx / onlinemiami.ibrx < prev    next >
Encoding:
Text File  |  1980-02-06  |  794 b   |  36 lines
  1. /* OnlineMiami Sören Forsberg 1998 */
  2. /*  */
  3. OPTIONS RESULTS
  4.  
  5.  
  6.     IF SHOW('Ports','MIAMI.1') THEN DO
  7.       ADDRESS 'MIAMI.1' 
  8.       'ISONLINE'
  9.       result=rc
  10.       IF result=1 THEN DO
  11.         ok=open('OnlineMiami','CON:60/100/150/22/OnlineMiami/cds')
  12.         call writeln 'OnlineMiami','    Miami is'
  13.         call writeln 'OnlineMiami','ALLREADY CONNECTED!!'
  14.         ADDRESS "COMMAND" "wait 3"
  15.       END 
  16.       'ISONLINE'
  17.       result=rc
  18.       IF result=0 THEN DO
  19.       IF EXISTS('ibrowse:rexx/onlinewin.ibrx') THEN ADDRESS "COMMAND" 'run sys:rexxc/rx ibrowse:rexx/onlinewin.ibrx'
  20.       'ONLINE'
  21.       END
  22.  
  23.     END
  24.  
  25.     IF ~SHOW('Ports','MIAMI.1') THEN DO
  26.         ADDRESS 'COMMAND'
  27.         'Run MIAMI:Miami'
  28.         'SYS:RexxC/WaitForPort MIAMI.1'
  29.         IF EXISTS('ibrowse:rexx/onlinewin.ibrx') THEN ADDRESS "COMMAND" 'run sys:rexxc/rx ibrowse:rexx/onlinewin.ibrx'
  30.     END
  31.  
  32.  
  33. EXIT    
  34.  
  35.  
  36.