home *** CD-ROM | disk | FTP | other *** search
- * SCRIPT: HISTORY.SCR -- A history of the DO script processor
- /STOP TOC
- /DOCUMENT ON
- /SET t "c 14 1"
- :TOC
- .clr
- /GOSUB DispTitle "A History of the DO script processor"
- /VERSION
- »ye«1»gy«.»wh« In the Beginning . . .
- »ye«2»gy«.»wh« Description of Version Numbers
- »ye«3»gy«.»wh« Version History
- »ye«3.1»wh« Version Index
- »ye«4»gy«.»wh« About this script
- »re«0»gy«.»wh« Exit
- »#«
- /SET Default 0
- /GETS Chapter Default " »gr«Selection»gy«:»#«"
- /SET Default OOPS
- /GOTO %Chapter %Default
- :1
- /GOSUB DispTitle "In the Beginning . . ."
- The »%t«DO»ye« script processor»#« has evolved over many years of personal
- use. Although the first public version has a version number of
- »re«1.00»#«, the »%t«DO»ye« script processor»#« has actually gone through »+gr«7»#« major
- revisions in private use.
-
- .pg clr
- The »%t«DO»ye« script processor»#« started out to meet three needs.
-
- »cy«1»gy«.»#« To be used as an automated tutor and display of features
- for other products.
-
- »cy«2»gy«.»#« To provide an extension to DOS' BATch capatilities.
-
- »cy«3»gy«.»#« To automate utility functions which were too complex to
- automate with BATch files and yet, too simplistic to need a
- complete program written in a higher-level language such as
- PASCAL or C.
-
- As you can see from the current release, it has evolved well
- beyond these beginnings as requirements dictated.
- .pg
- :2
- /GOSUB DispTitle "Description of Version Numbers"
- »%t«DO»#« version numbers are displayed using the »%t«/VERSION»#« command. You
- can see the current version number in the line at the bottom of
- the screen.
-
- /SET B 15
- /LOOK 25 17 1
- /IF %Found EQ : 2.1
- /SET B 19
- :2.1
- .pg clr
- /GOSUB Arrow %B
- The »ye«version number»#« is composed of three parts:
-
- »gr«MAJOR VERSION»gy«:»#« This number indicates a major revision to the
- »%t«DO»ye« script processor»#«'s capabilities
-
- .pg
- /GOSUB Arrow @math(%B+2)
- »gr«MINOR VERSION»gy«:»#« These are incremental enhancements to the
- capabilities
-
- .pg
- /GOSUB Arrow @math(%B+4)
- »gr«REVISION»gy«:»#« A letter here indicates an error correction or
- revision to the internal workings without
- changes to the »%t«DO»#« capabilities
-
- .pg clr
- /GOSUB Arrow @math(%B+10)
- The »wh«date»#« shows the date on which this version was produced.
-
- .pg
- :3
- /GOSUB DispTitle "Version History"
- Rather than bore you with the years of evolution of the »%t«DO»ye« script
- processor»#«, this history starts with the first public release of
- »%t«DO»#«. »wh«Enter the release number about which you are interested to
- see a description of its capabilities.»#« Enter any portion of the
- number to see information about all releases (e.g. "»re«1»#«" shows
- information about major release 1, "»re«1.2»#«" shows information about
- information about minor releases until "»re«1.3»#«").
-
- »bl«NOTE»gr«:»re« 1.00»#« will show information about version 1.00 only. It
- will stop at version »ye«1.01»#«. Enter »re«1»#« to see a complete history
- of version 1.
-
- »wh«Only major versions and significant bug fixes are displayed.»#«
- The revision letter is placed before the change if applicable.
-
- .pg
- The index starts on the next page. You will be returned to the
- main menu after viewing this feature. Enter "»gr«3.1»#«" to return to
- the version index and select another version.
-
- .pg
- :3.1
- /GOSUB DispTitle "Version History Index"
-
- Released versions:
-
- »re«1.00 »gy« -»ye« First Public Release
- »re«1.01 »gy« -»ye« Modified »%t«DoIt»ye« Command
- /SET Default 1.00
- .go 1 19
- /GETS Chapter Default " »wh«Revision (»re«Q»wh« to Quit)?»#«"
- /SET Default 3.OOPS
- /GOTO %Chapter %Default
- :1
- :1.00
- /GOSUB DispTitle "DO script processor version 1.00"
- »cy«-»#« Created Runtime version and Shareware version
- »cy«-»#« Added date and time functions
- »cy«-»#« Added string functions
- »cy«-»#« Added math functions
- »cy«-»#« Created Tutorial
- .pg
- »cy«a»#« Corrected problem in display routines.
- »cy«a»#« Added »%t«/LISTVARS»#« command for debuging
- .pg
- »cy«b»#« Corrected obscure error which would have evaluated "A1" as a
- formula in a »%t«/MATH»#« function
-
- .pg
- :1.01
- /GOSUB DispTitle "DO script processor version 1.01"
-
- »cy«-»#« Modified »%t«DoIt»#« command to only run a command shell if the
- user forces one or the user selects a batch file. This
- allows the DoIt command to return the error code from the
- program through the variable »ye«ERRORLEVEL»#«.
- The window is »re«NOT»#« reset after a »%t«DoIt»#« command is executed.
- This cleans up cursor positioning.
- .pg
- »cy«b»#« Added page pause to »%t«/LISTVARS»#« command
- »cy«b»#« Modified minor problem with »%t«/SIZE»#« command
- »cy«b»#« Correct bug in »%t«DoIt»#« command when no parameters entered
- »cy«b»#« Modified »%t«/FREE»#« to allow »re«NULL»#« drive and branch
- .pg
- »cy«c»#« Added »%t«~064pad()»#« function
- .pg
- »cy«d»#« Added »ma«Turbo Async Professional»#« communications routines
- (TurboPower software). This will allow additional
- communications features to be added.
- .pg
- »cy«i»#« Modified the »%t«~064trim()»#« function to accept only the string
- and default to removing spaces from both ends.
- .pg
- :Q
- * Will be returned to TOC because of DOCUMENT Mode
- :3.OOPS
- .bell clr
- Invalid version number %chapter
-
- .pg
- /goto 3.1
- :4
- /GOSUB DispTitle "About this Script . . ."
- This history of the »%t«DO»ye« script processor»#« is implemented as a »%t«DO»#«
- script. It shows just a small portion of the power of the DO
- script processor. You might want to examine the script using
- your favorite text editor or »%t«DO»#«'s built in text editor.
-
- To examine this script using the »%t«DO»#« full-screen editor, enter the
- command:
-
- »%t«DO»cy« history /E»#«
-
- from the DOS command line.
-
- Press »bo«<alt-x>»#« or »bo«<F10>»#« to exit the script when you are finished.
- The DO editor responds to wordstar like commands. See the file
- »ye«EDITOR.CMD»#« for a set of commands available in the full-screen
- editor.
-
- .pg 0
- :0
- /DOCUMENT OFF
- /GOTO End
- :OOPS
- .bell
- »ye«Invalid Chapter»gy«: »+re«%Chapter»#«
- .pg -20
- :DispTitle
- .wi full clr
- /SET title %DispTitle01
- »re«
- %title(C80)
- »#«
- /BOX 1 1 80 3 14 14 ""
- /VERSION
- .wi 4 5 80 23
- /return
- :Arrow
- /SET Y {Y}
- .wi full
- /SET title " "
- .go 1 23
- %title(L79)
- %title(L79)
- .go %Arrow01 23 ye
- │
- .go %Arrow01 24
- V
- .# wi 4 5 80 22
- .go 1 %Y
- /RETURN
- :End
- .wi full clr
- /DOCUMENT OFF
- /ENDEXEC CLEAR
-