home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / TE2HOST.ZIP / ACTN_99.SCR < prev    next >
Text File  |  1990-12-27  |  1KB  |  56 lines
  1. global string  CmdStack
  2. global integer MenuLevel
  3.  
  4. global integer MLevelMain
  5. global integer MLevelFile
  6. global integer MLevelMail
  7. global integer MLevelProto
  8. global integer MLevelSysop
  9.  
  10. integer mch
  11. integer retcode
  12.  
  13.   ;; ------------------------------------------------------------------------
  14.   ;; Let the user shell out to an OS/2 command prompt.  rshell() is set here
  15.   ;;  to echo remote characters, translate cr's to cr-lf's, perform
  16.   ;;  backspace translation, and watch for loss of carrier.
  17.  
  18. subroutine ShellOut
  19.  
  20.   transmit("^[[2JType EXIT to return to TE/2 Host.^M^J")
  21.   message("^M^JUser is in OS/2 shell..")
  22.   retcode = rshell("cmd.exe", "", 0x0f)
  23.   transmit("^M^JWelcome back!")
  24.   transmit("^M^JPress any key to continue...")
  25.   rgetc(30, 1)
  26.   CmdStack = ""
  27.  
  28. endsub
  29.  
  30.  
  31. program
  32.   mch = asciival(toupper(CmdStack))
  33.   CmdStack = strtrim(substr(CmdStack, 1, 255))
  34.  
  35.   if mch == 'S'
  36.     gosub ShellOut
  37.   elseif mch == 'E'
  38.     run("notimpl.scr")
  39.   elseif mch == 'C'
  40.     run("chdir.scr")
  41.   elseif mch == 'M'
  42.     MenuLevel = MLevelMain
  43.   elseif mch == 'F'
  44.     MenuLevel = MLevelFile
  45.   elseif mch == 'R'
  46.     run("notimpl.scr")
  47.   elseif mch == 'G'
  48.     run("goodbye.scr")
  49.   else
  50.     transmit("^G")
  51.     CmdStack = ""
  52.   endif
  53.   end
  54.  
  55.  
  56.