home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / TE2HOST.ZIP / MENU_0.SCR < prev    next >
Text File  |  1990-12-27  |  608b  |  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 MAIN Menu")
  10.   endif
  11.   transmit("%sMAIN%s Menu^M^J^J", BoldOn, BoldOff)
  12.   transmit("(%sB%s)ulletins^M^J", BoldOn, BoldOff)
  13.   transmit("(%sM%s)essage Menu^M^J", BoldOn, BoldOff)
  14.   transmit("(%sF%s)ile Menu^M^J", BoldOn, BoldOff)
  15.   if UserLevel > 2
  16.     transmit("(%sS%s)ysop Menu^M^J", BoldOn, BoldOff)
  17.   endif
  18.   transmit("(%sY%s)ell for sysop (chat)^M^J", BoldOn, BoldOff)
  19.   transmit("(%sG%s)oodbye (hangup)^M^J", BoldOn, BoldOff)
  20.   end
  21.  
  22.  
  23.