home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / MISC / SCRIPTS.ZIP / MENU.HST < prev    next >
Encoding:
Text File  |  1991-02-28  |  3.0 KB  |  77 lines
  1.     echo "menu.hst revised 03-29-90"
  2.     goto cmdch
  3. badcmd:    echo "%s1: Unknown Choice"
  4. cmdch:    echo "Professional-YAM Novice Host Menu %t"
  5.     echo ""
  6.     echo "l  list files in current directory"
  7.     echo "n  newest files listed first"
  8.     echo "c  change directory"
  9.     echo "d  download a file (XMODEM protocol)"
  10.     echo "b  batch file download (Y/ZMODEM)"
  11.     echo "br  download with ZMODEM File Transfer Recovery"
  12.     echo "u  upload a file (XMODEM)"
  13.     echo "rz upload file(s) with ZMODEM (Automatic, just send it!)"
  14.     echo "p  leave a private messeage"
  15.     echo "q  quit to YAM command mode"
  16.     :echo "s  demonstrate remote program execution (DOS Shell)"
  17.     echo "g  good-bye"
  18.     echo "r  REGISTER DSZ, ZCOMM, or Order Professional-YAM (VISA/MC/COD)"
  19. choos:    acceptl s1 "Please enter your menu choice plus RETURN "
  20.     if !du if !c fail
  21.     if is1,rz rz; goto cmdch
  22.     if is1,s echo "Calling COMMAND.COM"; bbs; goto choos
  23.     if is1,l dirr; goto choos
  24.     if is1,n echo "Type Ctrl-X to terminate"; dirt; goto choos
  25.     if is1,g echo "\nCall Again sometime ..."; sleep 20; put "\n\n\n\n"; bye; quit
  26.     if is1,u accept s2 "File " echo "Start your xmodem SEND routine" rc %s2; goto choos
  27.     if is1,d accept s2 "File name: " echo "Start your xmodem RECEIVE routine" sx %s2; goto choos
  28.     if is1,c goto chdir
  29.     if is1,e quit
  30.     if is1,q quit
  31.     if is1,r goto reg
  32.     if is1,p goto chpr
  33.     if !%s1 goto cmdch
  34.     if is1,br goto recovr
  35.     if !is1,b goto badcmd
  36.     accept s2 "File name(s) "
  37.     if !%s2 echo "No file name(s) specified"; goback cmdch
  38.     echo "Start your YMODEM (BATCH) RECEIVE routine"
  39.     set ifs "     ,"
  40.     split s2
  41.     szb -k %z0 %z1 %z2 %z3 %z4 %z5 %z6 %z7
  42.     goto choos
  43. recovr:    accept s2 "File name(s) "
  44.     if !%s2 echo "No file name(s) specified"; goback cmdch
  45.     echo "Start your ZMODEM receiver"
  46.     set ifs "     ,"
  47.     split s2
  48.     sz -r %z0 %z1 %z2 %z3 %z4 %z5 %z6 %z7
  49.     goto choos
  50. chdir:    echo "\nThe following directories are available:"
  51.     echo "upgrade   New version of Omen Technology s/w for licensed users"
  52.     echo "upgrade/scoxenix   ... for PC-AT Xenix"
  53.     echo "upgrade/386ix      ... for ISC, Bell Tech., Microport "
  54.     echo "upgrade/VMS        ... for Digital's VAX/VMS "
  55.     echo "home      The home (login) directory\n"
  56.     accept s2 "Directory: "
  57.     echo ""
  58.     cd
  59.     if is2,home set s2 ""
  60.     obey "cd /host/%s2" goto choos
  61. reg:    put "\r\n\nDo you wish to register DSZ, ZCOMM, or order Pro-YAM (y/n) ?"
  62.     if y source register.t; goto cmdch
  63.     put "\r\n\n\nFree BBS DSZ registration program expired Feb 28 1989.\r\n"
  64.     goto cmdch
  65. chpr:    put "\r\n\n\nFree BBS DSZ registration requests must be accompanied\r\n"
  66.     put "by a paid DSZ or ZCOMM registration, or Professional-YAM order.\r\n"
  67.     put "\r\n\nDo you wish to register DSZ, ZCOMM, or order Pro-YAM now (y/n) ?"
  68.     if y cd /host;  source register.t;  goto cmdch
  69.     put "\r\n\nFor support please call voice 503-621-3406 11 AM to 5 PM Pacific Time.\r\n\n"
  70.     put "The majority of questions callers leave in messages are answered in\r\n"
  71.     put "the opening message (welcome.txt) or info.txt.  Have you read these\r\n"
  72.     put "files carefully??? "
  73.     if y private; goto cmdch
  74.     cd /host
  75.     more welcome.txt
  76.     goto cmdch
  77.