home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / zcm_scrp.zip / CHECKRMT.T < prev    next >
Text File  |  1989-11-21  |  2KB  |  47 lines
  1.     ss rmtcmd "^[mM]$|^[mM][eE][nN]|^[dD] |^[dD][oO][wW]"
  2.     if %z0 set rmtcmd "menu"; return
  3.     ss rmtcmd "^[pP][rR]|^[mM][eE]|^[rR][ eE]?"
  4.     if %z0 goto priv
  5.     return        :: Don't do the following under DOS 2.1
  6.     ss rmtcmd "^arc|^zoo|^whereis |^sd$|^sd |^ls |^ls$"
  7.     if !%z0 return
  8.     ss rmtcmd ":|\.\.|[     ][/\\]"
  9.     if %z0 echo "Illegal Path";  goto done
  10.     ss rmtcmd "(^zoo[^     ]*)(.*)"
  11.     if %z2 obey "!~/zoo v %z2>COM1"; goto done
  12.     ss rmtcmd "(^arc[^     ]*)(.*)"
  13.     if %z2 obey "!~/pkxarc -v %z2>COM1"; goto done
  14.     if %z1 echo "Must specify archive to directory list"; goto done
  15.     ss rmtcmd "^whereis |^sd$|^sd |^ls |ls$"
  16.     if !%z0 return
  17.     obey "!~/%rmtcmd >COM1 <COM1"
  18.     echo "%rmtcmd complete."
  19. done:    set rmtcmd ""; return
  20. priv:    put "\r\n\n\nFree BBS DSZ registration requests must be accompanied\r\n"
  21.     put "by a paid DSZ or ZCOMM registration, or Professional-YAM order.\r\n"
  22.     put "\r\n\nDo you wish to register DSZ, ZCOMM, or order Pro-YAM now (y/n) ?"
  23.     if y cd /host;  source register.t;  set rmtcmd "";  return
  24.     put "\n\nThe majority of questions callers leave in messages are answered in\r\n"
  25.     put "the opening message (welcome.txt) or info.txt.  Have you read these\r\n"
  26.     put "files carefully??? "
  27.     purgek
  28.     if !y goto rtfm
  29.     echo "\nIf you have a technical or customer service question, please"
  30.     echo "make a voice call, do not leave a message."
  31.     echo "\n\nIs this message to ask a question (technical or otherwise) ?"
  32.     purgek
  33.     if y goto techs
  34.  
  35.     ss rmtcmd "^[mM][eE]"
  36.     if %z0 echo "This will be a PUBLIC message."
  37.     return
  38. rtfm:    cd /host
  39.     set rmtcmd "more welcome.txt"
  40.     return
  41.     return
  42. techs:
  43.     put "\r\n\nFor support please call voice 503-621-3406 11 AM to 5 PM Pacific Time.\r\n\n"
  44.     set rmtcmd ""
  45.     return
  46.  
  47.