home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / XFER.ZIP / EMURES.INC < prev    next >
Text File  |  1991-10-06  |  3KB  |  79 lines
  1. response to start
  2.    make ModemDB permanent
  3.    action QueryModemDB
  4.    make ModemDB temporary
  5.    change PrimaryWindow window position to column (xcursor of PrimaryWindow)
  6.           line ((bottom of PrimaryWindow) - (window ysize of PrimaryWindow) + 2)
  7.    make PrimaryWindow cursor visible
  8.  
  9. response to item Setup from PrimaryWindowAB
  10.    call PerformSetup()
  11.  
  12. response to item Dial from PrimaryWindowAB
  13.    call GetNumber(ReturnedOK)
  14.    if (ReturnedOK) then
  15.       call StartModemAndDial()
  16.    end if
  17.  
  18. response to item Upload from PrimaryWindowAB
  19.    call GetUploadInformation(ReturnedOK)
  20.    if (ReturnedOK) then
  21.       copy TransferMode " " Filename "\^D" to TempString
  22.       call MonitorTransfer(TempString)
  23.    end if
  24.  
  25. response to item Download from PrimaryWindowAB
  26.    call GetDownloadInformation(ReturnedOK)
  27.    if (ReturnedOK) then
  28.       copy TransferMode " " Filename "\^D" to TempString
  29.       call MonitorTransfer(TempString)
  30.    end if
  31.  
  32.  
  33. response to item Disconnect from PrimaryWindowAB
  34.    stop Modem
  35.    disable item Upload from PrimaryWindowAB in PrimaryWindow
  36.    disable item Download from PrimaryWindowAB in PrimaryWindow
  37.    disable item Disconnect from PrimaryWindowAB in PrimaryWindow
  38.    enable item Dial from PrimaryWindowAB in PrimaryWindow
  39.  
  40. response to line "NO CARRIER" from Modem
  41.    add to PrimaryWindow
  42.       insert input "\n"
  43.    stop Modem
  44.    disable item Upload from PrimaryWindowAB in PrimaryWindow
  45.    disable item Download from PrimaryWindowAB in PrimaryWindow
  46.    disable item Disconnect from PrimaryWindowAB in PrimaryWindow
  47.    enable item Dial from PrimaryWindowAB in PrimaryWindow
  48.  
  49. response to item Clear from PrimaryWindowAB
  50.    clear PrimaryWindow
  51.    change PrimaryWindow window position to column (xcursor of PrimaryWindow)
  52.           line ((bottom of PrimaryWindow) - (window ysize of PrimaryWindow) + 2)
  53.  
  54. response to item Exit from PrimaryWindowAB
  55.    exit
  56.  
  57. response to char "\n" from keyboard
  58.    if (item Disconnect from PrimaryWindowAB in PrimaryWindow is enabled) then
  59.       send "T \r\^D" to Modem
  60.    end if
  61.  
  62. response to char from keyboard
  63.    if (item Disconnect from PrimaryWindowAB in PrimaryWindow is enabled) then
  64.       send "T " input "\^D" to Modem
  65.    end if
  66.  
  67. response to char "\n" from Modem
  68.    add to PrimaryWindow
  69.       insert "\n"
  70.    change PrimaryWindow window position to column (xcursor of PrimaryWindow)
  71.           line ((bottom of PrimaryWindow) - (window ysize of PrimaryWindow) + 2)
  72.  
  73. response to char from Modem
  74.    add to PrimaryWindow
  75.       insert input
  76.  
  77.  
  78.  
  79.