Message "This demo program requires the use of the file SAMPLE.BMP, located on your installation disk. Copy it into the directory where EtCetera is located and then restart.", $T
End
:HaveBMP
CD WinDirectory
Match "WRITE.EXE", $A
If $A = "WRITE.EXE" Then Goto FoundWrite
:S/gMissing
Message "This demo program requires the use of three programs included with Windows. EtCetera could not find them in your Windows directory: Write (WRITE.EXE), Notepad (NOTEPAD.EXE), and Calculator (CALC.EXE). Click OK to abort this demo.", $T
End
:FoundWrite
Match "NOTEPAD.EXE", $A
If $A <> "NOTEPAD.EXE" Goto S/gMissing
Match "CALC.EXE", $A
If $A <> "CALC.EXE" Then Goto S/gMissing
Message "Click OK to begin the EtCetera Demo.", $T
TitleFill 100
#A = Lines + 99
For #B = 100 to #A
Hide $[#B]
Next
Run "NOTEPAD.EXE", Maximized
Send "Welcome to a demonstration of the capabilities of EtCetera.{Enter}{Enter}"
Wait 2 seconds
Send "This batch language interpreter for the Microsoft Windows environment{Enter}"
Send "is designed to allow users and systems administrators automate mundane or{Enter}"
Send "routine tasks. EtCetera can take control of any Windows application and{Enter}"
Send "perform tasks just as you would at the keyboard. I can type text into an{Enter}"
Send "application, as you see me doing here...{Enter}{Enter}"
Wait 3 seconds
Send "I can even pull items off of the menu bar."
Wait 2 seconds
Send "/af"
Wait 2 seconds
Send "s"
Wait 2 seconds
$A = TEMPFILENAME
Send $A & "{Enter}"
Wait 3 seconds
Send "/c{Home}/c/s{End}{Del}"
Send "This is a particularly useful ability for automating any task you have. For{Enter}"
Send "instance, if you have files which you download nightly via modem, you can{Enter}"
Send "program EtCetera to do it for you, and go on to do other things, like{Enter}"
Send "go home.{Enter}{Enter}"
Wait 3 seconds
Send "Perhaps, however, you are a systems administrator who needs an easy{Enter}"
Send "way to get into applications and set things up for your users. EtCetera{Enter}"
Send "makes this easy. I can get as flashy as you need. Watch this...{Enter}{Enter}"
Wait 3 seconds
Send "/a c"
Wait 1 second
Send "{Tab}{Enter}"
Run "CALC.EXE"
Wait 1 second
Center
Wait 1 second
Left
Wait 1 second
Right
Wait 1 second
Center
Wait 1 second
Top
Wait 1 second
Bottom
Wait 1 second
Center
Wait 1 second
Flash "Calc" 3 times
Beep 3 times
Close "Calc"
Message "I have a number of options available to" & ANSI(13) & "attract the attention of users." & ANSI(13) & "Click OK to continue...", $T
Message "If you have a sound card either with Windows 3.10 or with Windows 3.00 plus the Multimedia Extensions, I can play sound files.", $T
Ask $A, "Does your system meet either of these requirements?"
If $A = "No" Then Goto NoSound
CreateWindow @A, 120, 50, 400, 50
WriteText @A "If you see an error message, just click ""Yes""", 10, 10
Match "*.WAV", $W
PlaySound $W
Match "*.WAV", $W
PlaySound $W
Match "*.WAV", $W
PlaySound $W
DestroyWindow @A
:NoSound
Run "WRITE.EXE", Maximized
Send "I can hide all applications currently running except the one the "
Send "user is supposed to see, and once the user shuts that application down, I "
Send "can resume your program. You may have noticed that I hid everything which "
Send "was running when I first started. Go ahead and play with Write, and then, when you "
Send "want to continue, close Write by selecting the Exit command from the File "
Send "menu. Then I will resume.{Enter}{Enter}"
Wait Until "Write" Closes
Message "Ta Da!", $T
Execute "WRITE.EXE", Maximized
Send "In this way, you can keep control of what your users do, direct what "
Send "goes on, and prevent unnecessary access to your systems - especially helpful in "
Send "open environments, or unattended systems. Of course, an experienced user who "
Send "intends to create difficulties is not likely to be stopped by this feature, but it will "
Send "definitely help prevent accidents which newer users can create.{Enter}{Enter}"
Wait 5 seconds
Send "/c{Home}/s/c{End}{Del}"
Send "I can also pass text data back and forth between applications via Windows' Clipboard.{Enter}{Enter}"
Wait 3 seconds
Input $[200], "Please type your name and press the Enter key:", "EtCetera Demo"
Send "I will now place your name into Windows' Clipboard and paste it right here: "
Wait 2 seconds
SetClipboard 200, 200
Send "/ae"
Wait 2 seconds
Send "p"
Wait 2 seconds
Send "{Enter}"
Send "And, as I can also cut or copy data from any text-based application, I can manipulate data "
Send "and place it back into your applications - making it easy to implement "
Send "office automation. The nice thing about this is that I can give any Windows application "
Send "a macro language without the need to invest in major applications. The power of the "
Send "applications included with Windows - Terminal, Write, Notepad, and CardFile - increase "
Send "a hundredfold when given the functionality of a macro language.{Enter}{Enter}"
Wait 5 seconds
Close "Write"
Wait 2 seconds
Send "{Tab}{Enter}"
Wait 1 second
CreateWindow @A, 10, 10, 300, 300
WriteText @A, "I can also create windows", 10, 10
WriteText @A, "and write text to them.", 10, 24
Wait 3 seconds
PaintWindow @A, RED
Wait 1 second
PaintWindow @A, YELLOW
Wait 1 second
PaintWindow @A, GREEN
Wait 1 second
PaintWindow @A, BLUE
Wait 1 second
PaintWindow @A, WHITE
WriteText @A, "I can also display bitmap files:", 10, 10
DisplayBitmap @A, $D & "\SAMPLE.BMP", 10, 30
Wait 3 seconds
DestroyWindow @A
Message "This has been a small sampling of what I can do. Refer to your documentation for a complete list of my commands.", $T
Message "This file, ETC_DEMO.ETC, can be used as an example of how to program EtCetera.", $T
Message "⌐ 1992 Thetaware" & Ansi(13) & "All Rights Reserved.", $T
