home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / TE2SC121.ZIP / GEReg.Scr < prev    next >
Text File  |  1992-07-21  |  1KB  |  40 lines
  1. string  LoginID  = "XTX99673,GENIE"
  2. string  USPhone  = "1-800-638-8369"
  3. string  CanPhone = "1-800-387-8330"
  4. integer hd
  5.  
  6. program
  7.  
  8.     if !connected
  9.         setparms(-1, 2400, 0, 8, 0)
  10.         emulate(TTY)
  11.         lfaftercr(FALSE)
  12.         localecho(TRUE)
  13.         cls()
  14.         dial(USPhone)
  15.     endif
  16.  
  17.     if connected
  18.         transmit("HHH")
  19.         if muxwait("/U#=/Uú╜/", 60)
  20.             transmit("%s^M", LoginID)
  21.             waitfor("80  ?", 60)
  22.             transmit("80^M")
  23.             waitfor("or PDN ?", 60)
  24.             hd = opendialog(4, 16, 9, 60, DLogNormAttr)
  25.             strput(5, 18, DLogNormAttr, "You are now online for GEnie registration")
  26.             strput(6, 18, DLogNormAttr, "Please follow the directions on screen")
  27.             strput(8, 18, DLogNormAttr, "      Press any key to begin")
  28.             getc()
  29.             closedialog(hd)
  30.         else
  31.             beep(880, 2)
  32.             message("^M^J!! Couldn't locate GEnie login prompt !!^M^J")
  33.             hangup(IFCARRIER)
  34.         endif
  35.     else
  36.         hangup(IFCARRIER)
  37.     endif
  38.     end
  39.  
  40.