home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / games / batwin40.zip / DEMO.BAT < prev    next >
DOS Batch File  |  1989-05-03  |  2KB  |  69 lines
  1. @echo off
  2. bmsgwin 12 23 47 " BSAVESCR Saving Screen "
  3. bsavescr \scr.scr
  4. cls
  5. bwindow 10 20 2 15 31
  6. bputs 11 22 31 "   BATWIN"
  7. bputs 12 22 31 "Demonstration"
  8. bputs 11 40 14 "<- Demonstrates BWINDOW and BPUTS"
  9. blocate 23 0
  10. bpause 19 1 31 " BATWIN programs must be in the PATH - Press a key to continue "
  11. btextwin 5 10 31 bwintro.txt
  12. btextwin 5 10 31 txttext.txt
  13. :cont
  14. cls
  15. bmsgwin 7 25 47 "Choose a number"
  16. bmsgwin 2 45 31 " Try pressing ESC "
  17. bpoplist 10 27 8 47 poptest.txt
  18. if errorlevel 100 goto :warnem
  19. cls
  20. if errorlevel 50 bmsgwin 6 20 112 "Errorlevel EQGT 50"
  21. if errorlevel 19 bmsgwin 6 20 112 "You chose 19"
  22. if errorlevel 18 bmsgwin 6 20 112 "You chose 18"
  23. if errorlevel 17 bmsgwin 6 20 112 "You chose 17"
  24. if errorlevel 16 bmsgwin 6 20 112 "You chose 16"
  25. if errorlevel 15 bmsgwin 6 20 112 "You chose 15"
  26. if errorlevel 14 bmsgwin 6 20 112 "You chose 14"
  27. if errorlevel 13 bmsgwin 6 20 112 "You chose 13"
  28. if errorlevel 12 bmsgwin 6 20 112 "You chose 12"
  29. if errorlevel 11 bmsgwin 6 20 112 "You chose 11"
  30. if errorlevel 10 bmsgwin 6 20 112 "You chose 10"
  31. if errorlevel 9 bmsgwin 6 20 112 "You chose 9"
  32. if errorlevel 8 bmsgwin 6 20 112 "You chose 8"
  33. if errorlevel 7 bmsgwin 6 20 112 "You chose 7"
  34. if errorlevel 6 bmsgwin 6 20 112 "You chose 6"
  35. if errorlevel 5 bmsgwin 6 20 112 "You chose 5"
  36. if errorlevel 4 bmsgwin 6 20 112 "You chose 4"
  37. if errorlevel 3 bmsgwin 6 20 112 "You chose 3"
  38. if errorlevel 2 bmsgwin 6 20 112 "You chose 2"
  39. if errorlevel 1 bmsgwin 6 20 112 "You chose 1"
  40. bpause 21 15 31
  41. cls
  42. goto :pick
  43. :warnem
  44. bwarn 14 40 31 WARNING " You pressed ESC !"  " What should I do?"
  45. if errorlevel 1 goto :end
  46. cls
  47. goto :cont
  48. :pick
  49. bmsgwin 3 15 47 " An example of one of the printer menus "
  50. bputs 8 37 14 "Press ESC if no EPSON printer"
  51. bepson 6 15 31
  52. cls
  53. bmsgwin 9 16 31 " Pick a directory "
  54. bchdir 12 10 31
  55. cls
  56. Echo Now in subdirectory ...
  57. cd
  58. bdialog 12 25 47 " SELECT " " Do you want to return " " to the original subdir? "
  59. if errorlevel 1 goto :nosw
  60. bmsgwin 12 13 112 " Using BXQTDIR to switch to BATWIN directory "
  61. bxqtdir
  62. :nosw
  63. blocate 20 0
  64. :end
  65. brestscr \scr.scr
  66. del \scr.scr
  67. bmsgwin 13 40 31 " Screen restored by BRESTSCR "
  68. blocate 23 0
  69.