home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 12 / CD_ASCQ_12_0294.iso / vrac / sap408_a.zip / SYSOP.BAT < prev    next >
DOS Batch File  |  1994-01-01  |  2KB  |  107 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 ERR
  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.  
  67. :MISC
  68.     MISC X
  69.     GOTO ERR
  70.  
  71.  
  72. :CONFIG
  73.     CONFIG
  74.     GOTO MAIN
  75.  
  76.  
  77. :DEMO
  78.     SHOWTEXT SYSOP1
  79.     SRUN DEMO
  80.     GOTO MAIN
  81.  
  82.  
  83. :LOCAL
  84.     SAPPHIRE LOCAL
  85.     GOTO ERR
  86.  
  87.  
  88. :STD
  89.     SAPPHIRE
  90.     GOTO ERR
  91.  
  92.  
  93. :DSZ
  94.     IF NOT EXIST DSZ.COM GOTO DSZ2
  95.     SHOWTEXT SYSOP3
  96.     GOTO MAIN
  97.  
  98.  
  99. :DSZ2
  100.     SHOWTEXT SYSOP2
  101.     ARCE DSZ
  102.     PAUSE
  103.     GOTO MAIN
  104.  
  105.  
  106. :QUIT
  107.