Mar 212018
 
File KTOOLS50.ZIP from The Programmer’s Corner in
Category Pascal Source Code
TP5 screen writes,ÿmenuing, directory, data entry routines etc…
File Name File Size Zip Size Zip Type
KTLSDEMO.DOC 1740 869 deflated
KTLSDEMO.PAS 7986 2664 deflated
KTOOLS5.DOC 7938 2826 deflated
KTOOLS5.PAS 63472 14228 deflated
KTOOLS5.TPU 29440 13987 deflated
KTOOLSA.OBJ 493 433 deflated
TPCREAD.ME.HTML 294 221 deflated

Download File KTOOLS50.ZIP Here

Contents of the KTLSDEMO.DOC file




KTLSDEMO: is a simple program that shows but a few of the uses of KTOOLS.

The screen routines are common to all programs which provide screen output.
The string routines are useful in most programs.

The light pen routines are not demonstrated in ktlsdemo simply because not
everyone has one, and I only use it on a couple of programs. Still I thought
they might be useful to someone.

After program startup and before we move through the KATTR routine, the
screen is saved and replaced after the box is drawn.

Both Menu routines are used. Oddly enough, I have found that a lot of
programmers use menus only to select from a list of items that they will
have their programs act upon. I use the menu routines for this as well,
but another use I make of them is to select from constants which represent
variable information used within my programs. For example, if I want an
integer input, but only want specific values, then with a menu I'll offer
the user the choice of all available values, which point to ordinal
positions within say a record of AllAvailableValues. So on and so forth.

The file copy/rename routine is not used simply because I didn't want to
fill/add to the junk on your drive. It does however work as advertised.
Just like a tootsie roll, works good & last a long time!

PikDir is used.
Drives A - F are allowed, but if you pass an invalid drive letter that is
what you'll get; an invalid drive. Try the following command lines to see
ktlsdemo in action.

?:>ktlsdemo c: false {or whatever your current drive letter is}
|_________________________________|

?:>ktlsdemo c: true {ditto}




 March 21, 2018  Add comments

Leave a Reply