                   --==* Video dBase II *==--

 Challenged  by one of the Members,  I proved to them that  dBase 
can  support and use the video attributes of the Kaypro Computer.  
Below you will find the code which can be typed into a .CMD  file 
and executed to produce onscreen video results.

* Program..: VIDEO-KP.CMD
* Author...: Randy Tincher
* Date.....: 10/15/1985
*
set talk off
set echo off
set colon off
*
store chr(27)+"B0" to inverseon
store chr(27)+"C0" to inverseoff
store chr(27)+"B2" to blinkon
store chr(27)+"C2" to blinkoff
store chr(27)+"B3" to ulineon
store chr(27)+"C3" to ulineoff
store chr(27)+"B6" to lastcursor
store chr(27)+"B7" to botlineon
store chr(27)+"=8 " to bottoggle  * Note "=8 " space, no typo!
store chr(27)+"C6" to botlineoff
store chr(27)+"C7" to botclear
store chr(26)      to cls
*
erase
@ 10,22 say inverseon+" Inverse Video in dBase II "+inverseoff
@ 12,21 say blinkon+" Blinking Video in dBase II "+blinkoff
@ 14,20 say ulineon+" Underlined Video in dBase II "+ulineoff
? lastcursor+botlineon
? bottoggle+"                      25th Status Line in dBase II"
? botlineoff
@ 20, 0 say "Any Key Exits to CP/M..."
wait
? botclear+cls
quit

* EOF: VIDEO-KP.CMD