home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / TE2HOST.ZIP / ACTN_0.SCR next >
Text File  |  1990-12-27  |  778b  |  40 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.  
  12. program
  13.   mch = asciival(toupper(CmdStack))
  14.   CmdStack = strtrim(substr(CmdStack, 1, 255))
  15.  
  16.   ;; Check invalid user levels
  17.   if mch == 'S' and UserLevel < 3
  18.     mch = 0
  19.   endif
  20.  
  21.   if mch == 'B'
  22.     CmdStack = HomePath + "/bulletin.dat"
  23.     run("typefile.scr")
  24.   elseif mch == 'M'
  25.     run("notimpl.scr")
  26.   elseif mch == 'F'
  27.     MenuLevel = MLevelFile
  28.   elseif mch == 'S'
  29.     MenuLevel = MLevelSysop
  30.   elseif mch == 'Y'
  31.     run("notimpl.scr")
  32.   elseif mch == 'G'
  33.     run("goodbye.scr")
  34.   else
  35.     transmit("^G")
  36.     CmdStack = ""
  37.   endif
  38.   end
  39.  
  40.