home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-386-Vol-2of3.iso / p / pom232.zip / EXAMPLE.BAT < prev    next >
DOS Batch File  |  1993-02-08  |  2KB  |  76 lines
  1. @ECHO OFF
  2. ECHO OFF
  3.  
  4.   REM  %1   Example number
  5.   REM  %2   [P]lain or [T]race menu
  6.  
  7.   IF (%2) == () START
  8.   IF EXIST POM.TRC DEL POM.TRC
  9.  
  10. :MAIN
  11.   GO-MENU EXAMPLE%2.MNU 01%1 GO-MENU.SAV
  12.   IF ERRORLEVEL 10 GOTO QUIT
  13.   IF ERRORLEVEL  6 GOTO TRACE
  14.   IF ERRORLEVEL  5 GOTO OUTPUT
  15.   IF ERRORLEVEL  4 GOTO RUN  
  16.   IF ERRORLEVEL  3 GOTO POMFILE
  17.   IF ERRORLEVEL  2 GOTO INPUT
  18.   IF ERRORLEVEL  1 GOTO DOCU
  19.  
  20. :TRACE
  21.   IF EXIST POM.TRC GOTO EOCKTRC
  22.   CLS
  23.   ECHO ▐▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▌
  24.   ECHO ▐                                                                             ▌
  25.   ECHO ▐  The file POM.TRC was not found.  There are two possible reasons for this:  ▌
  26.   ECHO ▐                                                                             ▌
  27.   ECHO ▐  (1)  You have not yet run the parsing job.                                 ▌
  28.   ECHO ▐                                                                             ▌
  29.   ECHO ▐  (2)  You do not have enough DOS environment space.                         ▌
  30.   ECHO ▐       For details, look up the SET command in your DOS manual.              ▌
  31.   ECHO ▐                                                                             ▌
  32.   ECHO ▐▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▌
  33.   ECHO  
  34.   PAUSE
  35.   GOTO MAIN
  36. :EOCKTRC
  37.   CALL VIEW POM.TRC
  38.   GOTO MAIN
  39.  
  40. :OUTPUT
  41.   IF EXIST EXAMPLE%1.LST GOTO EOCKLST
  42.   CLS        
  43.   ECHO ▐▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▌
  44.   ECHO ▐                                                                             ▌
  45.   ECHO ▐       You have to run the parsing job before you can view the output.       ▌
  46.   ECHO ▐                                                                             ▌
  47.   ECHO ▐▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▌
  48.   ECHO  
  49.   PAUSE
  50.   GOTO MAIN
  51. :EOCKLST
  52.   CALL VIEW EXAMPLE%1.LST
  53.   GOTO MAIN
  54.  
  55. :RUN  
  56.   IF (%1) == (3) SET POM=HDRCNTR/TEST
  57.   IF (%1) == (4) SET POM=descrip/price
  58.   POM EXAMPLE%1.POM EXAMPLE%1.TXT EXAMPLE%1.LST
  59.   SET POM=
  60.   IF ERRORLEVEL 1 PAUSE
  61.   GOTO MAIN
  62. :POMFILE
  63.   CALL VIEW EXAMPLE%1.POM
  64.   GOTO MAIN
  65.  
  66. :INPUT
  67.   CALL VIEW EXAMPLE%1.TXT
  68.   GOTO MAIN
  69.  
  70. :DOCU
  71.   CALL VIEW EXAMPLE%1.INF
  72.   GOTO MAIN
  73.  
  74. :QUIT
  75.   START @ EXAMPLES
  76.