home *** CD-ROM | disk | FTP | other *** search
/ Windows 95 Shareware (Platinum Edition) / QUEPLAT95.ISO / files / utilmisc / batsh220 / sample1.bsh < prev    next >
Encoding:
Text File  |  1995-06-27  |  3.0 KB  |  125 lines
  1. REM DEMO for the 3 types of message boxes
  2. ;*******************************************
  3. wait off
  4. :restart
  5. if %$VER%==>210 goto start
  6. message Version Info
  7. This DEMO will stop here
  8.  
  9. You should upgrade to version
  10.     2.05 or later   
  11.  
  12. Please contact the Help file
  13. for the upgrade site
  14. .
  15. if exist batsh.hlp winhelp batsh.hlp
  16. exit
  17. :start
  18. ; Hide the BATSH icon
  19. show hide
  20. message BATSH: WELCOME
  21. With BATSH you can display a message on the WINDOWS screen, 
  22. and define 3 different types of prompt for user-response  
  23.  
  24. The following messages will show the 
  25.     CHOICE and the ASK prompt
  26.  
  27. .click here to continue,60
  28. ;*******************************************************
  29. ; new program label
  30. label Choose an Option
  31. message CHOICE prompt
  32. This message box is a sample for the CHOICE prompt
  33.     A one-key INPUT field (with time-out)
  34.          
  35. The next message box will show the ASK prompt:
  36.     An INPUT field + OK button
  37.  
  38.  
  39. Type    C to continue  (default after 20 seconds)
  40.     E to exit
  41.     or any other key to restart the DEMO
  42.  
  43. .CHOICE C,E,$A,#20
  44. ;*************************************************
  45. if errorlevel 3 goto restart 
  46. if errorlevel 2 exit
  47. ; change icon to system defined questionmark 
  48. icon question
  49. ; new program label
  50. label USERNAME
  51. ; show the BATSH icon
  52. show normal
  53. ; reset variables
  54. ; $$USER  stores the input as global variable
  55. ; try  will be used as counter
  56. set try=0
  57. set $$USER=%serialno|mswindows|username%
  58. ; ************ ASK-MESSAGE ***************
  59. :retry
  60. ; the value of TRY defines further action and
  61. ; the text for the ASK box 
  62. inc try
  63. if %try%==3 goto continue
  64. if %try%==2 set line1=One more try !
  65. if %try%==1 set line1=Demo asking for user-name and presenting a message box
  66. message ASK prompt
  67. %line1%
  68.  
  69. Enter your name please: 
  70. (you can use upper- and lower-case letters)
  71. .ask $$USER 
  72. ; loop if the user did not enter a word ($$USER empty) 
  73. if errorlevel 1 goto retry
  74. :continue
  75. set $PASSWORD=
  76. message BATSH: Hidden Input
  77. The following input box shows all typed
  78. characters as  * 
  79.  
  80. Try it:
  81. .ask $PASSWORD
  82. ; set a default name if $$USER is empty
  83. if '%$$USER%'=='' set $$USER=Mr. NoName
  84.  
  85. ;*******************************************************
  86. ; change icon to system defined exclamation-point
  87. icon exclamation
  88. ; new program label
  89. label message
  90. :redo
  91. set cmdln=
  92. message BATSH Commandline 
  93. Hi %$$USER%
  94.  
  95. With BATSH you can give written commands to WINDOWS.
  96.  
  97. Normally you write a file with one command per line,
  98. In this demo you can now test the program typing a
  99. single command.
  100.  
  101. e.g.
  102.   run icon calc (start the calculator minimized)
  103.   show icon File Manager (minimize File Manager)
  104.   icon question (make the BATSH icon a question mark)
  105.  
  106. See the BATSH help-file for a complete list of commands
  107.  
  108. Try it:
  109. .ask cmdln
  110. if '%cmdln%'=='' exit
  111. %cmdln%
  112. set cmdln=
  113. message BATSH
  114. This is the last message-box of the DEMO.
  115. It's again a CHOICE prompt 
  116.  
  117. Type:
  118. C - to go back and enter another command
  119.  or
  120. any other key - to end the DEMO (default after 30seconds)
  121. .CHOICE $A,C,#30
  122. if errorlevel 2 goto redo
  123.  
  124.  
  125.