home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / TE2HOST.ZIP / MENU_99.SCR < prev    next >
Text File  |  1990-12-27  |  639b  |  23 lines
  1. global string  BoldOn
  2. global string  BoldOff
  3. global integer WatchUser
  4. global integer UserLevel
  5.  
  6.  
  7. program
  8.   if !WatchUser
  9.     message("^M^JUser is at SYSOP Menu")
  10.   endif
  11.   transmit("%sSYSOP%s Menu^M^J^J", BoldOn, BoldOff)
  12.   transmit("(%sS%s)hell to OS/2^M^J", BoldOn, BoldOff)
  13.   transmit("(%sE%s)dit a file^M^J", BoldOn, BoldOff)
  14.   transmit("(%sC%s)hange directory^M^J", BoldOn, BoldOff)
  15.   transmit("(%sM%s)ain Menu^M^J", BoldOn, BoldOff)
  16.   transmit("(%sF%s)ile Menu^M^J", BoldOn, BoldOff)
  17.   transmit("(%sR%s)eboot the machine^M^J", BoldOn, BoldOff)
  18.   transmit("(%sG%s)oodbye (hangup)^M^J", BoldOn, BoldOff)
  19.   end
  20.  
  21.  
  22.  
  23.