Command-line text overwrite

This code has been declared by its author to be Public Domain code.

Command-line text overwrite by BlitzSupport

2016

Tested on Windows cmd only...

Little command-line demo. I wondered how wget drew its little graphs while downloading, and finally figured out how to do it - Chr (8) for backspace, in conjunction with a replacement for Print (called Write) that doesn't print a newline.

When run from the IDE, it will look a mess, but BUILD FOR COMMAND LINE and then run it from the cmd line for cool text effect!

SuperStrict

Function Write:Int (str:String)

	' Print with no newline...
	
	StandardIOStream.WriteString str
	StandardIOStream.Flush ()

End Function

Write "Hello"

Delay 1000

Write Chr (8) + "e"
Delay 250

Write Chr (8) + Chr (8) + "re"
Delay 250

Write Chr (8) + Chr (8) + Chr (8) + "ere"
Delay 250

Write Chr (8) + Chr (8) + Chr (8) + Chr (8) + "here"
Delay 250

Write Chr (8) + Chr (8) + Chr (8) + Chr (8) + Chr (8) + "there"
Delay 250

Print Chr (8) + Chr (8) + Chr (8) + Chr (8) + Chr (8) + "there!"

Comments

None.

Code Archives Forum