home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / TE2HOST.ZIP / MENU_1.SCR < prev    next >
Text File  |  1990-12-27  |  727b  |  24 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 FILE Menu")
  10.   endif
  11.   transmit("%sFILE%s Menu^M^J^J", BoldOn, BoldOff)
  12.   transmit("(%sF%s)ile directory^M^J", BoldOn, BoldOff)
  13.   if UserLevel > 1
  14.     transmit("(%sC%s)hange directory^M^J", BoldOn, BoldOff)
  15.   endif
  16.   transmit("(%sU%s)pload^M^J", BoldOn, BoldOff)
  17.   transmit("(%sD%s)ownload^M^J", BoldOn, BoldOff)
  18.   transmit("(%sT%s)ype a file^M^J", BoldOn, BoldOff)
  19.   transmit("(%sV%s)iew contents of ZIP or ARC file^M^J", BoldOn, BoldOff)
  20.   transmit("(%sG%s)oodbye (hangup)^M^J", BoldOn, BoldOff)
  21.   transmit("(%sM%s)ain Menu^M^J", BoldOn, BoldOff)
  22.   end
  23.  
  24.