home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / vrac / sapph409.zip / SYSOP.BAT < prev    next >
DOS Batch File  |  1994-08-27  |  2KB  |  110 lines
  1.     @ECHO OFF
  2.     ECHO OFF
  3.     IF (%1) == (X) GOTO MAIN
  4.     IF NOT EXIST SYSOP.MNU GOTO ONLYA
  5.     IF NOT EXIST CHKFILES.EXE GOTO TROUBLE
  6.     CHKFILES
  7.     IF ERRORLEVEL 1 GOTO TROUBLE
  8.     GOTO MAIN
  9.  
  10.  
  11. :ONLYA
  12.     CLS
  13.     ECHO You appear to have only the first part of the Sapphire package.
  14.     ECHO The first part (known as the SAPPHA, or Documentation, file set)
  15.     ECHO contains documentation files and associated programs.  The second
  16.     ECHO part (known as the SAPPHB, or Programs, file set) contains the rest
  17.     ECHO of the Sapphire package.  You should be able to get the SAPPHB part
  18.     ECHO from the same place you got the SAPPHA part.
  19.     GOTO TROUBL2
  20. :TROUBLE
  21.     CLS
  22. :TROUBL2
  23.     ECHO  
  24.     ECHO Since you using a partial copy of the Sapphire package, we will
  25.     ECHO jump directly to the information menu.
  26.     ECHO  
  27.     PAUSE
  28.     IF EXIST INFO.MNU INFO Y
  29.     CLS
  30.     ECHO The info menu is missing!  Your Sapphire package is incomplete.
  31.     ECHO Contact Pinnacle Software at 514-345-9578 for assistance.
  32.     ECHO  
  33.     GOTO QUIT
  34.  
  35.  
  36. :MAIN
  37.     GO-MENU SYSOP.MNU 000 SAPPHIRE.MSV
  38.     IF ERRORLEVEL 10 GOTO QUIT
  39.     IF ERRORLEVEL  9 GOTO VER
  40.     IF ERRORLEVEL  8 GOTO MISC
  41.     IF ERRORLEVEL  7 GOTO DSZ
  42.     IF ERRORLEVEL  6 GOTO STD
  43.     IF ERRORLEVEL  5 GOTO LOCAL
  44.     IF ERRORLEVEL  4 GOTO DEMO
  45.     IF ERRORLEVEL  3 GOTO CONFIG
  46.     IF ERRORLEVEL  2 GOTO INFO
  47.     IF ERRORLEVEL  1 GOTO QUIKINFO
  48.  
  49.  
  50. :ERR
  51.     ECHO Batch file error -- please inform Pinnacle at 514-345-9578.
  52.     PAUSE
  53.     GOTO MAIN
  54.  
  55.  
  56. :QUIKINFO
  57.     SEE QUIKINFO.DOC
  58.     GOTO MAIN
  59.  
  60.  
  61. :INFO
  62.     IF NOT EXIST *.DOC GOTO MAIN
  63.     INFO X
  64.     GOTO ERR
  65.  
  66. :VER
  67.     SRUN VER
  68.     GOTO MAIN
  69.  
  70. :MISC
  71.     MISC X
  72.     GOTO ERR
  73.  
  74.  
  75. :CONFIG
  76.     CONFIG
  77.     GOTO MAIN
  78.  
  79.  
  80. :DEMO
  81.     SHOWTEXT SYSOP1
  82.     SRUN DEMO
  83.     GOTO MAIN
  84.  
  85.  
  86. :LOCAL
  87.     SAPPHIRE LOCAL
  88.     GOTO ERR
  89.  
  90.  
  91. :STD
  92.     SAPPHIRE
  93.     GOTO ERR
  94.  
  95.  
  96. :DSZ
  97.     IF NOT EXIST DSZ.COM GOTO DSZ2
  98.     SHOWTEXT SYSOP3
  99.     GOTO MAIN
  100.  
  101.  
  102. :DSZ2
  103.     SHOWTEXT SYSOP2
  104.     ARCE DSZ
  105.     PAUSE
  106.     GOTO MAIN
  107.  
  108.  
  109. :QUIT
  110.