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