home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / parsomat.zip / lesson.bat < prev    next >
DOS Batch File  |  2001-07-15  |  3KB  |  122 lines
  1.     @ECHO OFF
  2.     ECHO OFF
  3.  
  4.     REM  %1   LESSON number (e.g. 02, 03, 04)
  5.     REM  %2   EXAMPL number
  6.     REM  %3   XMPDAT number
  7.     REM  %4   XMPDAT extension
  8.     REM  %5   I = No input file browsing, J = No input/output file browsing
  9.     REM       L = Lookup, P = Plain, T = Trace, X = PEF, Z = Sound
  10.     REM
  11.     REM  NOTE: Numbers must be two digits long
  12.     REM
  13.     REM  If POMTEST is set to Y, goes back to BURN.BAT, not TUTORIAL.BAT.
  14.     REM  BURN.BAT is used for testing at Pinnacle, and is not included
  15.     REM  in the standard Parse-O-Matic package.
  16.  
  17.     IF (%5) == () INFO
  18.     IF (%5) == (Z) GOTO SOUND
  19.  
  20. :MAIN
  21.     PSMENU_D POM LSNMENU%5 1%2 /A
  22.     IF ERRORLEVEL 10 GOTO QUIT
  23.     IF ERRORLEVEL  8 GOTO SHOWLOG
  24.     IF ERRORLEVEL  6 GOTO TRACE
  25.     IF ERRORLEVEL  5 GOTO OUTPUT
  26.     IF ERRORLEVEL  4 GOTO RUN
  27.     IF ERRORLEVEL  3 GOTO SEEPOM
  28.     IF ERRORLEVEL  2 GOTO INPUT
  29.     IF ERRORLEVEL  1 GOTO DOCU
  30.  
  31. :TRACE
  32.     IF (%5) == (L) GOTO SHOWLOOK
  33.     IF (%5) == (X) GOTO SHOWPEF
  34.     IF EXIST POM.TRC GOTO EOCKTRC
  35.     SHOWSBX POM CKTRC
  36.     GOTO MAIN
  37. :EOCKTRC
  38.     CALL VIEW POM.TRC
  39.     GOTO MAIN
  40.  
  41. :SHOWLOG
  42.     CALL VIEW POMLOG.TXT
  43.     GOTO MAIN
  44. :SHOWLOOK
  45.     CALL VIEW EXAMPL%2.TBL
  46.     GOTO MAIN
  47. :SHOWPEF
  48.     CALL VIEW GENERIC.PEF
  49.     GOTO MAIN
  50.  
  51. :OUTPUT
  52.     IF EXIST EXAMPL%2.LST GOTO EOCKLST
  53.     SHOWSBX POM CKLST
  54.     GOTO MAIN
  55. :EOCKLST
  56.     CALL VIEW EXAMPL%2.LST
  57.     GOTO MAIN
  58.  
  59. :RUN
  60.     IF (%2) == (15) GOTO EXAMPL15
  61.     IF (%2) == (03) SET POM=HDRCNTR/TEST
  62.     IF (%2) == (04) SET POM=descrip/price
  63.     IF (%2) == (07) SET POM=ALL
  64.     POM EXAMPL%2.POM XMPDAT%3.%4 EXAMPL%2.LST
  65.     IF ERRORLEVEL 1 PAUSE
  66.     SET POM=
  67.     GOTO MAIN
  68. :EXAMPL15
  69.     POM EXAMPL15.POM XMPDAT0?.TXT EXAMPL15.LST
  70.     IF ERRORLEVEL 1 PAUSE
  71.     GOTO MAIN
  72.  
  73. :SEEPOM
  74.     CALL VIEW EXAMPL%2.POM
  75.     GOTO MAIN
  76.  
  77. :INPUT
  78.     IF NOT (%2) == (05) GOTO EOWARN5
  79.     SHOWSBX POM WARN5
  80. :EOWARN5
  81.     IF NOT (%4) == (DBF) GOTO EOWRNDBF
  82.     SHOWSBX POM WRNDBF
  83. :EOWRNDBF
  84.     IF NOT (%4) == (FRL) GOTO EOWRNFRL
  85.     SHOWSBX POM WRNFRL
  86. :EOWRNFRL
  87.     CALL VIEW XMPDAT%3.%4
  88.     GOTO MAIN
  89.  
  90. :DOCU
  91.     SHOWSBX POM EXAMPL%2.STX
  92.     GOTO MAIN
  93.  
  94. :SOUND
  95.     PSMENU_D POM LSNMENUZ 1%2 /A /X
  96.     IF ERRORLEVEL 10 GOTO QUIT
  97.     IF ERRORLEVEL  9 SOUND %1 %2 %3 %4 %5 WHOOP
  98.     IF ERRORLEVEL  8 SOUND %1 %2 %3 %4 %5 TRILL
  99.     IF ERRORLEVEL  7 SOUND %1 %2 %3 %4 %5 PIP
  100.     IF ERRORLEVEL  6 SOUND %1 %2 %3 %4 %5 HUH
  101.     IF ERRORLEVEL  5 SOUND %1 %2 %3 %4 %5 ERROR
  102.     IF ERRORLEVEL  4 SOUND %1 %2 %3 %4 %5 EDGE
  103.     IF ERRORLEVEL  3 SOUND %1 %2 %3 %4 %5 BUZZ
  104.     IF ERRORLEVEL  2 SOUND %1 %2 %3 %4 %5 BIP
  105.     IF ERRORLEVEL  1 SOUND %1 %2 %3 %4 %5 BEEP
  106.  
  107. :QUIT
  108.     IF (%POMTEST%) == (Y) GOTO DONE
  109.     IF EXIST EXAMPL%2.LST DEL EXAMPL%2.LST
  110.     IF EXIST EXAMPL%2.BAK DEL EXAMPL%2.BAK
  111.     IF NOT (%5) == (T) GOTO DONE
  112.     IF EXIST POM.TRC DEL POM.TRC
  113.  
  114. :DONE
  115.     IF NOT (%POMTEST%) == (Y) TUTORIAL %1
  116.     SET POMTEST=
  117.     PSMENU_D POM BURN 255
  118.     IF ERRORLEVEL 10 GOTO DONE2
  119.     BURN X %2
  120.  
  121. :DONE2
  122.