home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / TE2HOST.ZIP / MENU_LOC.SCR < prev    next >
Text File  |  1990-12-27  |  556b  |  25 lines
  1. global  integer smMenuExit
  2.  
  3.   ;; ------------------------------------------------------------------------
  4.   ;; SysopMenu is very (very) simple, it asks whether to end host mode
  5.   ;;  or not.  This can be expanded as far as anyone would care to.  It
  6.   ;;  is recommended that the modem should be taken off hook if it's
  7.   ;;  going to take a while however.
  8.  
  9. subroutine SysopMenu
  10.  
  11.   if GetYesNo("Terminate Host Mode?", NULL, TRUE)
  12.     smMenuExit = TRUE
  13.   else
  14.     smMenuExit = FALSE
  15.   endif
  16.  
  17. endsub
  18.  
  19.  
  20. program
  21.   gosub SysopMenu
  22.   end
  23.  
  24.  
  25.