home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / batutl / ben250.arc / BENDEMO.BAT < prev    next >
DOS Batch File  |  1990-01-04  |  3KB  |  100 lines
  1. ECHO OFF
  2. REM THIS BATCH FILE ASSUMES THAT YOU GOT
  3. REM DOS VERSION 3.3 OR HIGHER. PLEASE
  4. REM CHANGE THE COMMAND CALL TO COMMAND/C
  5. REM IF YOU HAVE A LOWER DOS VERSION.
  6. REM ALSO YOU MUST HAVE ANSI TO RUN THIS.
  7. CLS
  8. REM THIS COMMAND IS USED TO SAVE ENVIRONMENT SPACE.
  9. PATH>$RMBRTMP.BAT
  10. PATH;
  11. REM THIS IS THE START OF THE PROGRAM:
  12. BEN T BENDEMO.DA1
  13. CALL BENBAT
  14. Set USERNAME=%BEN%
  15. BEN BOX 1 1 80 25 0 1 0 G BOX 1 1 80 25 0 7 0 G GOTOXY 1 12 COLORNOW 0 7
  16. CALL BENBAT
  17. ECHO            %USERNAME%, please press the G key to go on with our demo.
  18. BEN ASK G MENU BEN 8 Sidekick Plus Directory Scrolling Around Enhanced ECHO EGA/VGA Mode Boxing Around User Input Sound Quit
  19. If errorlevel 8 goto quit
  20. If errorlevel 7 goto sound
  21. If errorlevel 6 goto userin
  22. If errorlevel 5 goto boxing
  23. If errorlevel 4 goto egavga
  24. If errorlevel 3 goto enhec
  25. If errorlevel 2 goto scrollaround
  26. If errorlevel 1 goto skp
  27. Goto quit
  28. :Ok
  29. BEN MENU BEN 8 Sidekick Plus Directory Scrolling Around Enhanced ECHO EGA/VGA Mode Boxing Around User Input Sound Quit
  30. If errorlevel 8 goto quit
  31. If errorlevel 7 goto sound
  32. If errorlevel 6 goto userin
  33. If errorlevel 5 goto boxing
  34. If errorlevel 4 goto egavga
  35. If errorlevel 3 goto enhec
  36. If errorlevel 2 goto scrollaround
  37. If errorlevel 1 goto skp
  38. Goto quit
  39. :Skp
  40. BEN BOX 1 1 80 25 7 1 0 G GOTOXY 1 9 COLORNOW 15 1
  41. CALL BENBAT
  42. ECHO      %USERNAME%, you can now produce quality user-interactive batch files!
  43. BEN WRITEC 15 1 8 Just try our SIDEKICK PLUS STYLE DIRECTORY first!
  44. BEN GOTOXY 15 15 WRITE 7 1 6 Please enter a pathname (Eg. C:\TELECOM\MODEM\): Gotoxy 16 16 INLINE
  45. CALL BENBAT
  46. BEN DIRDISP %BEN%*.* F
  47. CALL BENBAT
  48. BEN WRITEC 15 1 1 You had just selected the file %BEN%. GOTOXY 24 25
  49. BEN WRITE 7 1 7 PRESS ANY KEY TO RETURN TO MENU INKEY BOX 1 1 80 25 7 7 0 G
  50. Goto Ok
  51. :Scrollaround
  52. BEN T BENDEMO.DA2
  53. Goto Ok
  54. :Enhec
  55. BEN T BENDEMO.DA6
  56. Goto Ok
  57. :EGAVGA
  58. BEN EGAVGA ON
  59. If errorlevel 1 goto presentegavga
  60. BEN BOX 12 12 68 14 0 7 5 G GOTOXY 14 13 WRITE 0 7 10 Sorry! But you don't have EGA or VGA card installed! DELAY 3000
  61. Goto ok
  62. :Presentegavga
  63. BEN T BENDEMO.DA5
  64. Goto ok
  65. :Sound
  66. BEN T BENDEMO.DA3
  67. Goto ok
  68. :Boxing
  69. BEN T BENDEMO.DA4
  70. Goto Ok
  71. :Userin
  72. BEN BOX 1 1 80 25 15 1 1 G GOTOXY 1 11 COLORNOW 15 1
  73. CALL BENBAT
  74. ECHO │                    BEN is also very user interactive too.
  75. ECHO │
  76. ECHO │            Just the menu that led you here is an example already.
  77. BEN GOTOXY 25 15 WRITE 7 1 4 Enter your favourite color: INLINE
  78. CALL BENBAT
  79. SET COLOR=%BEN%
  80. BEN GOTOXY 25 17 WRITE 7 1 4 Enter your favourite animal: INLINE
  81. CALL BENBAT
  82. BEN GOTOXY 27 19
  83. ECHO %USERNAME% loves %COLOR% %BEN%.
  84. ECHO │               That's an example of the user inputting facility.
  85. SET COLOR=
  86. ECHO │                 Here's another one: Press any key to continue.
  87. BEN INKEY
  88. GOTO OK
  89. :Quit
  90. REM THE FOLLOWING IS THE CLEANUP ROUTINES.
  91. BEN ATTRIB 7 0 COLORNOW 7 0 CURSOR ON
  92. Call BENBAT
  93. Del BENBAT.BAT
  94. Call $RMBRTMP
  95. DEL $RMBRTMP.BAT
  96. ECHO Thank you for taking your
  97. ECHO time to evaluate our demo.
  98. Set BEN=
  99. Set USERNAME=
  100.