Old-school Windows text/console-mode Simulations of British Railways signalboxes from the 1980s
These are simulations of operating methods from signalboxes which are now closed and no longer operational. The simulations were written in Ticol Tcl and compiled to a 32-bit console application.
The embedded scripts may be extracted using the /ECHO argument
Tcl scripts "compiled" as Windows screensavers. These are quite short but interesting scripts which make use of the new ticol_win.dll plugin to provide console-like output to a separate window
Example listing active network adapter interface info
Download adapters.tcl (3Kb)
Demonstration of [at_exit], calling commands when the Tcl script exits
Download atexit_eg.tcl (2Kb)
A Brainfuck interpreter in Ticol Tcl based on Petter Wahlman's C++ source and which is capable of running simple/short BF scripts
Usage: ticol bf <script>?.bf?
Download bf.tcl (19Kb)
BMP-wrapped Tcl script to display a 2 colour bitmap using text mode (see ticol_bmp.dll and tcl2bat.tcl). Defaults to an internal copy of a vintage Brooke Bond tea advertisement. Requires small fonts to be enabled for console mode and usually a width setting > 80 columns..
The plugin may be useful in displaying text mode splash screens generated from BMP images within scripts as an alternative to ANSI text
Usage: bitmap <filename>
Download bitmap.bat (4Kb)
Random box drawing demo showing reasonably fast processing speed
Starts slow at first then speeds up to show maximum draw speed
Download box_eg.tcl (2Kb)
Includable script to generate a simple calendar
Usage: ticol calendar <month> <year>
Download calendar.tcl (6Kb)
Web server CGI info script, loosely based on PHP's phpinfo();
Download cgiinfo.tcl
Web CGI example which demonstrates the calculation of large fibonacci numbers
Tested with Apache 2.x but should work with any CGI-supporitng webserver
Download cgifib.tcl (4Kb)
Example script demonstrating class/object emulation by drawing 3 separate progress- bar objects simultaneously
Download class_percent_bar_multi.tcl (5Kb)
Example script calling the Microsoft C runtime DLL (MSVCRT40.DLL)
Download crt_eg.tcl (12Kb)
Simple Dbase III/IV viewer with find/search and CSV export
Usage: ticol dbview <filename>
Download dbview.tcl (16Kb)
Example use of the DHCP plugin - ticol_dhcp.dll
CAUTION. This will release/renew your current network IP address
Download dhcp_eg.tcl (3Kb)
Demonstration of a fixed sample of diagonal text. The underlying code, prototyped in Tcl has been migrated to a C++ (warp.exe) which can display any text or loop showing date, time etc.. This shows that Tcl can be useful in prototyping ideas before implementing in other language
diagonal.tcl - (4Kb)
See: warp.exe
Example script which plots a simple graph of geometric growth in text mode using UK population estimate. Simulations of growth curves from > 0% to 16% can be plotted to demonstrate how rapidly doublings and multiples of start values occur even with relatively modest doubling rates. Will automatically rescale if the window is resized
Many illustrative examples show growth trends for 70 years or less, which is insufficient to demonstrate potential problems arising from relatively modest rates of growth of around 2% per annum. This script graphs up to 150 years and compresses an approximation into console width representation
For more information see the Albert Bartlett lecture on population growth
Download geogrowth.tcl (6Kb)
Draws a basic text-mode fractal. Requires 100 column console window
Download fractal.tcl (3Kb)
Towers of Hanoi in Tcl
A more extensive example. Being highly-iterative, this is vastly slower than the identical, compiled C++ hanoi.exe example available here for comparison
Download hanoi_eg.tcl (4Kb)
Self-chaining Tcl script wrapped in Windows batch file which can query a network host which has the Safenet HASP client installed for known HASP licence keys. Other examples are available but demand for HASP related scripting is expected to be low. I no longer have access to HASP licence systems to continue development on this module so no further enhancements will be added
Usage: haspkeys.bat <hostname> ?<port>?
Download haspkeys_eg.bat (5Kb)
Demonstration ping trace script. Uses ticol_ping.dll plugin
The plugin load/unload traces are not necessary but have been activated for demonstration
Download libping.tcl (5Kb)
Maze
generator ported from classic BASIC
For illustrative purposes only. The maze is aesthetically-pleasing but incorrect.
Improvements are left as an excercise for the user
Download maze.tcl (6Kb)
Demo which parses plain text into multiple columns with wordwrap and with balancing across the columns so that each is more or less the same height
Usage: ticol.exe multi_column <filename> ?<columns>?
Download multi_column.tcl (4Kb)
Demo one-line, command-line calculator
Usage: ticol.exe one_line_calc.tcl <expression>
e.g. ticol.exe one_line_calc.tcl 22/7.0
Download one_line_calc.tcl (1Kb)
Example playing a WAV file which is embedded within the script
Usage: ticol.exe play_wav.tcl
Download playwav_eg.tcl (38Kb)
Example RLM licence file query. Will require editing to suit your own local enviroment. Other useful RLM tools are available from the tools section of the parent website. However, I no longer have access to RLM licence systems to continue development on this module
Download <available on request>
Example code, sending SMTP email. For a portable test mail server see MailQ on the parent page of this webserer
Download sendmail_eg.tcl (4Kb)
Example code, querying Windows services
Download service_eg.tcl (4Kb)
Example
code, querying SQLite database via plugin ticol_sqlite.dll
includes a test record collection database - albums.db
Download sqlite_eg.zip (13Kb)
A 'wrapped' Tcl script which Can 'compile' or 'wrap' a Tcl script into a self-executing Windows batch (BAT) file. The script may then be executed by typing in the script name v's 'ticol scriptname'
Download tcl2bat.bat (3Kb)
A nifty and graphic version of Linux 'df' (disk free) for Windows. Designed not to 'hang' on disconnected network drives (as long as the network layer is active)
Example folder ZIP with linear or recursive options
Download zip.tcl (3Kb)
