home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pmpopup2.zip / TestPop.Cmd < prev   
OS/2 REXX Batch file  |  1995-08-31  |  3KB  |  137 lines
  1. @echo off
  2. :Main
  3.   cls
  4.   if not "%1" == "" goto :%1
  5.  
  6. :Test1
  7.   echo Titel: DEFAULT
  8.   echo Text:  -
  9.   echo B1:    -
  10.   echo B2:    -
  11.   echo B3:    -
  12.   echo T:     -
  13.   echo SM:    Nein
  14.   pause
  15.   set weiter=Test2
  16.   pmpopup2
  17.   if errorlevel 40 goto :40
  18.   if errorlevel 30 goto :30
  19.   if errorlevel 20 goto :20
  20.   if errorlevel 10 goto :10
  21.  
  22. :Test2
  23.   echo.
  24.   echo ------------------------------------------------------
  25.   echo Titel: DEFAULT
  26.   echo Text:  eine Zeile
  27.   echo B1:    -
  28.   echo B2:    DEFAULT
  29.   echo B3:    -
  30.   echo T:     -
  31.   echo SM:    Nein
  32.   pause
  33.   set weiter=Test3
  34.   pmpopup2 "Dies ist ein Einzeiler"
  35.   if errorlevel 40 goto :40
  36.   if errorlevel 30 goto :30
  37.   if errorlevel 20 goto :20
  38.   if errorlevel 10 goto :10
  39.  
  40. :Test3
  41.   echo.
  42.   echo ------------------------------------------------------
  43.   echo Titel: Testfall 3
  44.   echo Text:  drei Zeilen
  45.   echo B1:    ach!
  46.   echo B2:    -
  47.   echo B3:    so!
  48.   echo T:     -
  49.   echo SM:    Nein
  50.   pause
  51.   set weiter=Test4
  52.   pmpopup2 "Dies ist ein Einzeiler~...~Oder doch nicht?" "Testfall 3" /b1:"ach!" /b3:"so!" /bell
  53.   if errorlevel 40 goto :40
  54.   if errorlevel 30 goto :30
  55.   if errorlevel 20 goto :20
  56.   if errorlevel 10 goto :10
  57.  
  58. :Test4
  59.   echo.
  60.   echo ------------------------------------------------------
  61.   echo Titel: Testfall 4
  62.   echo Text:  zwei Zeilen
  63.   echo B1:    -
  64.   echo B2:    -
  65.   echo B3:    -
  66.   echo T:     5
  67.   echo SM:    Nein
  68.   pause
  69.   set weiter=Test5a
  70.   pmpopup2 "~Diese Box schließt sich in 5 Sekunden." "Testfall 4" /t:5 /a:c
  71.   if errorlevel 40 goto :40
  72.   if errorlevel 30 goto :30
  73.   if errorlevel 20 goto :20
  74.   if errorlevel 10 goto :10
  75.  
  76. :Test5a
  77.   echo.
  78.   echo ------------------------------------------------------
  79.   echo Titel: Testfall 5a
  80.   echo Text:  fünf Zeile
  81.   echo B1:    -
  82.   echo B2:    Sofort aus!
  83.   echo B3:    -
  84.   echo T:     15
  85.   echo SM:    Ja
  86.   pause
  87.   set weiter=Test5b
  88.   pmpopup2 "Diese Box schließt sich in 15 Sekunden.~Oder über den Button.~Die Box ist systemmodal!" "Testfall 5a" /t:15 /b2:"Sofort aus!" /f:"10.Courier" /sm /bell
  89.   if errorlevel 40 goto :40
  90.   if errorlevel 30 goto :30
  91.   if errorlevel 20 goto :20
  92.   if errorlevel 10 goto :10
  93.  
  94. :Test5b
  95.   echo.
  96.   echo ------------------------------------------------------
  97.   echo Titel: Testfall 5b
  98.   echo Text:  fünf Zeile
  99.   echo B1:    -
  100.   echo B2:    Sofort aus!
  101.   echo B3:    -
  102.   echo T:     15
  103.   echo SM:    Ja
  104.   pause
  105.   set weiter=ende
  106.   pmpopup2 "Diese Box schließt sich in 15 Sekunden.~Oder über den Button.~Die Box ist systemmodal!" "Testfall 5b" /t:15 /b2:"~Sofort aus!" /f:"10.Helv" /sm
  107.   if errorlevel 40 goto :40
  108.   if errorlevel 30 goto :30
  109.   if errorlevel 20 goto :20
  110.   if errorlevel 10 goto :10
  111.  
  112. :ByeBye
  113.   goto :ende
  114.  
  115. :40
  116.   echo.
  117.   echo TimeOut
  118.   goto :%weiter%
  119.  
  120. :30
  121.   echo.
  122.   echo 3. (rechter) Button
  123.   goto :%weiter%
  124.  
  125. :20
  126.   echo.
  127.   echo 2. (mittlerer) Button
  128.   goto :%weiter%
  129.  
  130. :10
  131.   echo.
  132.   echo 1. (linker) Button
  133.   goto :%weiter%
  134.  
  135. :ende
  136.  
  137.