home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 21 / CD_ASCQ_21_040595.iso / dos / tools / par271 / example.bat < prev    next >
Encoding:
DOS Batch File  |  1995-03-07  |  1.4 KB  |  72 lines
  1. @ECHO OFF
  2. ECHO OFF
  3.  
  4.   REM  %1   Save number (must be two digits)
  5.   REM  %2   Example number or letter
  6.   REM  %3   Sample file number or letter
  7.   REM  %4   Extension for input file
  8.   REM  %5   [P]lain, [T]race, [L]ookup menu
  9.  
  10.   IF (%5) == () START
  11.   IF EXIST POM.TRC DEL POM.TRC
  12.  
  13. :MAIN
  14.   GO-MENU EXAMPLE%5.MNU 1%1 GO-MENU.SAV
  15.   IF ERRORLEVEL 10 GOTO QUIT
  16.   IF ERRORLEVEL  6 GOTO TRACE
  17.   IF ERRORLEVEL  5 GOTO OUTPUT
  18.   IF ERRORLEVEL  4 GOTO RUN  
  19.   IF ERRORLEVEL  3 GOTO POMFILE
  20.   IF ERRORLEVEL  2 GOTO INPUT
  21.   IF ERRORLEVEL  1 GOTO DOCU
  22.  
  23. :TRACE
  24.   IF (%5) == (L) GOTO SHOWLOOK
  25.   IF EXIST POM.TRC GOTO EOCKTRC
  26.   SHOWTEXT CKTRC
  27.   GOTO MAIN
  28. :EOCKTRC
  29.   CALL VIEW POM.TRC
  30.   GOTO MAIN
  31.  
  32. :SHOWLOOK
  33.   CALL VIEW EXAMPLE%2.TBL
  34.   GOTO MAIN
  35.  
  36. :OUTPUT
  37.   IF EXIST EXAMPLE%2.LST GOTO EOCKLST
  38.   SHOWTEXT CKLST
  39.   GOTO MAIN
  40. :EOCKLST
  41.   CALL VIEW EXAMPLE%2.LST
  42.   GOTO MAIN
  43.  
  44. :RUN  
  45.   IF (%2) == (3) SET POM=HDRCNTR/TEST
  46.   IF (%2) == (4) SET POM=descrip/price
  47.   IF (%2) == (7) SET POM=ALL
  48.   POM EXAMPLE%2.POM EXAMPLE%3.%4 EXAMPLE%2.LST
  49.   SET POM=
  50.   IF ERRORLEVEL 1 PAUSE
  51.   GOTO MAIN
  52. :POMFILE
  53.   CALL VIEW EXAMPLE%2.POM
  54.   GOTO MAIN
  55.  
  56. :INPUT
  57.   IF NOT (%2) == (5) GOTO EOWARN5
  58.   SHOWTEXT WARN5
  59. :EOWARN5
  60.   IF NOT (%4) == (DBF) GOTO EOWRNDBF
  61.   SHOWTEXT WRNDBF
  62. :EOWRNDBF
  63.   CALL VIEW EXAMPLE%3.%4
  64.   GOTO MAIN
  65.  
  66. :DOCU
  67.   CALL VIEW EXAMPLE%2.INF
  68.   GOTO MAIN
  69.  
  70. :QUIT
  71.   START @ EXAMPLES
  72.