@ECHO OFF
ECHO OFF

  REM  %1   Example number
  REM  %2   [P]lain or [T]race menu

  IF (%2) == () START
  IF EXIST POM.TRC DEL POM.TRC

:MAIN
  GO-MENU EXAMPLE%2.MNU 01%1 GO-MENU.SAV
  IF ERRORLEVEL 10 GOTO QUIT
  IF ERRORLEVEL  6 GOTO TRACE
  IF ERRORLEVEL  5 GOTO OUTPUT
  IF ERRORLEVEL  4 GOTO RUN  
  IF ERRORLEVEL  3 GOTO POMFILE
  IF ERRORLEVEL  2 GOTO INPUT
  IF ERRORLEVEL  1 GOTO DOCU

:TRACE
  IF EXIST POM.TRC GOTO EOCKTRC
  CLS
  ECHO Žßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß߯
  ECHO Ž                                                                             Ż
  ECHO Ž  The file POM.TRC was not found.  There are two possible reasons for this:  Ż
  ECHO Ž                                                                             Ż
  ECHO Ž  (1)  You have not yet run the parsing job.                                 Ż
  ECHO Ž                                                                             Ż
  ECHO Ž  (2)  You do not have enough DOS environment space.                         Ż
  ECHO Ž       For details, look up the SET command in your DOS manual.              Ż
  ECHO Ž                                                                             Ż
  ECHO ŽÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜŻ
  ECHO ˙
  PAUSE
  GOTO MAIN
:EOCKTRC
  CALL VIEW POM.TRC
  GOTO MAIN

:OUTPUT
  IF EXIST EXAMPLE%1.LST GOTO EOCKLST
  CLS        
  ECHO Žßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß߯
  ECHO Ž                                                                             Ż
  ECHO Ž       You have to run the parsing job before you can view the output.       Ż
  ECHO Ž                                                                             Ż
  ECHO ŽÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜŻ
  ECHO ˙
  PAUSE
  GOTO MAIN
:EOCKLST
  CALL VIEW EXAMPLE%1.LST
  GOTO MAIN

:RUN  
  IF (%1) == (3) SET POM=HDRCNTR/TEST
  IF (%1) == (4) SET POM=descrip/price
  POM EXAMPLE%1.POM EXAMPLE%1.TXT EXAMPLE%1.LST
  SET POM=
  IF ERRORLEVEL 1 PAUSE
  GOTO MAIN
:POMFILE
  CALL VIEW EXAMPLE%1.POM
  GOTO MAIN

:INPUT
  IF NOT (%1) == (2) GOTO EOCK2
  CLS
  ECHO Žßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß߯
  ECHO Ž                                                                             Ż
  ECHO Ž  NOTE:  The small file viewer program we use to display the demonstration   Ż
  ECHO Ž         files is limited to 80 character lines.  The actual input file is   Ż
  ECHO Ž         a full-width AccPac report with lines up to 133 characters long.    Ż
  ECHO Ž                                                                             Ż
  ECHO ŽÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜŻ
  ECHO ˙
  PAUSE
:EOCK2
  CALL VIEW EXAMPLE%1.TXT
  GOTO MAIN

:DOCU
  CALL VIEW EXAMPLE%1.INF
  GOTO MAIN

:QUIT
  START @ EXAMPLES