home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / TE2HOST.ZIP / MENU_98.SCR < prev    next >
Text File  |  1990-12-27  |  566b  |  22 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 PROTOCOL Menu")
  10.   endif
  11.   transmit("%sPROTOCOL%s Menu^M^J^J", BoldOn, BoldOff)
  12.   transmit("(%sX%s)Modem^M^J", BoldOn, BoldOff)
  13.   transmit("(%s1%s)K-XModem^M^J", BoldOn, BoldOff)
  14.   transmit("(%sY%s)Modem^M^J", BoldOn, BoldOff)
  15.   transmit("(%sG%s)-YModem^M^J", BoldOn, BoldOff)
  16.   transmit("(%sZ%s)Modem^M^J", BoldOn, BoldOff)
  17.   transmit("(%sQ%s)uit to Previous Menu^M^J", BoldOn, BoldOff)
  18.   end
  19.  
  20.  
  21.  
  22.