home *** CD-ROM | disk | FTP | other *** search
/ Boldly Go Collection / version40.iso / TS / 25D / SEE211.ZIP / START.BAT < prev    next >
DOS Batch File  |  1992-06-02  |  4KB  |  122 lines
  1. @ECHO OFF
  2. REM Do a spot-check on the files
  3. IF NOT EXIST INT.INF GOTO MISSING
  4. IF NOT EXIST SEE.EXE GOTO MISSING
  5. IF NOT EXIST SEE.INF GOTO MISSING
  6. IF NOT EXIST GETKEY.EXE GOTO MISSING
  7. IF NOT EXIST GETKEY.INF GOTO MISSING
  8. IF NOT EXIST GO-MENU.EXE GOTO MISSING
  9. IF NOT EXIST GO-MENU.INF GOTO MISSING
  10. IF NOT EXIST AMAZE.TXT GOTO MISSING
  11. IF NOT EXIST AMAZE.DOC GOTO MISSING
  12. GOTO MAIN
  13. REM ───────────────────────────────────────────────────────────────────────
  14. :MISSING
  15.   CLS
  16.   ECHO Your copy of "The SEE Utilities" is incomplete.  You can download a
  17.   ECHO complete copy from the Pinnacle Software Support BBS at 514-345-8654,
  18.   ECHO or get a copy for $3 by writing to CP386 Mont Royal QC Canada H3P 3C6.
  19.   ECHO Attempting to continue despite the missing files...
  20.   PAUSE
  21. REM ───────────────────────────────────────────────────────────────────────
  22. :MAIN
  23.   GO-MENU START.MNU 0 SEEUTILS.MSV
  24.   IF ERRORLEVEL 10 GOTO QUIT
  25.   IF ERRORLEVEL  9 GOTO VENDOC
  26.   IF ERRORLEVEL  8 GOTO ORDER
  27.   IF ERRORLEVEL  7 GOTO AMZDOC
  28.   IF ERRORLEVEL  6 GOTO IDEA
  29.   IF ERRORLEVEL  5 GOTO SVDOC
  30.   IF ERRORLEVEL  4 GOTO GETKDOC
  31.   IF ERRORLEVEL  3 GOTO MENUDOC
  32.   IF ERRORLEVEL  2 GOTO SEEDOC
  33.   IF ERRORLEVEL  1 GOTO INTRO
  34. REM ───────────────────────────────────────────────────────────────────────
  35. :INTRO
  36.   SEE INT.INF
  37.   GOTO MAIN
  38. REM ───────────────────────────────────────────────────────────────────────
  39. :SEEDOC
  40.   SEE SEE.INF
  41.   GOTO MAIN
  42. REM ───────────────────────────────────────────────────────────────────────
  43. :GETKDOC
  44.   CLS
  45.   GETKEY This is an example of GETKEY.  Do you want more information?  YN
  46.   IF NOT ERRORLEVEL 2 SEE GETKEY.INF
  47.   GOTO MAIN
  48. REM ───────────────────────────────────────────────────────────────────────
  49. :SVDOC
  50.   GO-MENU SV.MNU 1 SEEUTILS.MSV
  51.   IF ERRORLEVEL 10 GOTO MAIN
  52.   IF ERRORLEVEL  5 GOTO TRYSV
  53.   IF ERRORLEVEL  3 GOTO SVSET
  54.   SEE SV.INF
  55.   GOTO SVDOC
  56. :TRYSV
  57.   SV
  58.   GOTO SVDOC
  59. REM ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─ ─
  60. REM
  61. REM ░░░░░░░░░░░░░░░░░░░░░ START OF THE SET-VIDEO CODE ░░░░░░░░░░░░░░░░░░░░░
  62. REM
  63. :SVSET
  64.   GO-MENU SETVIDEO.MNU 2 SEEUTILS.MSV
  65.   IF ERRORLEVEL 10 GOTO SVDOC
  66.   IF ERRORLEVEL  7 GOTO COL50
  67.   IF ERRORLEVEL  5 GOTO COL25
  68.   IF ERRORLEVEL  3 GOTO MON50
  69.   IF ERRORLEVEL  1 GOTO MON25
  70. :MON25
  71.   SV M OK
  72.   GOTO SVDOC
  73. :MON50
  74.   SV F OK
  75.   GOTO SVDOC
  76. :COL25
  77.   SV K OK
  78.   GOTO SVDOC
  79. :COL50
  80.   SV E OK
  81.   GOTO SVDOC
  82. REM
  83. REM ░░░░░░░░░░░░░░░░░░░░░░ END OF THE SET-VIDEO CODE ░░░░░░░░░░░░░░░░░░░░░░
  84. REM
  85. REM ───────────────────────────────────────────────────────────────────────
  86. :MENUDOC
  87.   CLS
  88.   ECHO █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
  89.   ECHO ▌ BY THE WAY:  The menu you just used was created with the GO-MENU utility! ▐
  90.   ECHO █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  91.   GETKEY Press a key to continue... @
  92.   SEE GO-MENU.INF
  93.   GOTO MAIN
  94. REM ───────────────────────────────────────────────────────────────────────
  95. :AMZDOC
  96.   SEE AMAZE.DOC
  97.   GOTO MAIN
  98. REM ───────────────────────────────────────────────────────────────────────
  99. :IDEA
  100.   SEE IDEA.INF
  101.   GOTO MAIN
  102. REM ───────────────────────────────────────────────────────────────────────
  103. :ORDER
  104.   SEE AMAZE.TXT
  105.   GOTO MAIN
  106. REM ───────────────────────────────────────────────────────────────────────
  107. :VENDOC
  108.   SEE VENDOR.DOC
  109.   GOTO MAIN
  110. REM ───────────────────────────────────────────────────────────────────────
  111. :QUIT
  112. ECHO █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
  113. ECHO ▌  SHAREWARE HELPS REDUCE THE PRICE OF SOFTWARE  (For example: SEE is FREE!)  ▐
  114. ECHO █═════════════════════════════════════════════════════════════════════════════█
  115. ECHO ▌  YOU can help keep shareware growing: just give a copy of SEE to somebody,  ▐
  116. ECHO ▌  or upload it to a BBS.  That's how to make shareware work  for all of us.  ▐
  117. ECHO ▌  Thank-you for trying  The SEE Utilities.  Please give a copy to a friend!  ▐
  118. ECHO █═════════════════════════════════════════════════════════════════════════════█
  119. ECHO ▌  IF  YOU  VALUE  SHAREWARE,  YOU  CAN  SUPPORT  THE  CONCEPT -- BY SHARING  ▐
  120. ECHO █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  121.  
  122.