Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : HEADFT.ZIP
Filename : DEMO.PRG

 
Output of file : DEMO.PRG contained in archive : HEADFT.ZIP
****************************************************************************
* *
* PROGRAMMER: R. Scott Mackay *
* *
* DESCRIPTION: Header/Footer Library DEMO - See HeadFoot.Txt for *
* more information. * *
* *
****************************************************************************
SET LIBRARY TO HEADFOOT ADDITIVE
SET CURSOR OFF

DEFINE WINDOW TEMP FROM 7,4 TO 22,76 COLOR SCHEME 10 SYSTEM SHADOW
ACTIVATE WINDOW TEMP


***** Opening Message *****
=SAYFOOT("Descriptions can be printed here -- and will be during this demo.",0)
WAIT WINDOW "Press Any Key"
=SAYFOOT("")

***** Give window a title *****
=SAYFOOT("Now let's give this window a title.",0)
WAIT WINDOW "Press Any Key"
=SAYHEAD("Branch Report")
=SAYFOOT("Notice that the title is centered, this is the default.",0)
WAIT WINDOW "Press Any Key"

***** Print on the header without clearing the title *****
=SAYFOOT("Now without clearing the title we can print other messages.",0)
WAIT WINDOW "Press Any Key"
=SAYHEAD("23 Records Found",0)
=SAYFOOT("Notice that the title is still in place. ",0)
WAIT WINDOW "Press Any Key"

***** Print on the header right aligned *****
=SAYFOOT("We can print right-aligned on the header without clearing the title.",0)
WAIT WINDOW "Press Any Key"
=SAYHEAD("Updating",80)

***** Print on the header right aligned -- and clear old title *****
=SAYFOOT("")
=SAYFOOT("We can also print a new title so that it is right-aligned",0)
WAIT WINDOW "Press Any Key"
=SAYHEAD("")
=SAYHEAD("Right-Aligned Title",80)

***** Print on the header right aligned -- and clear old title *****
=SAYFOOT("All of these features are available for printing on the footer as well.",0)
WAIT WINDOW "Press Any Key"

=SAYHEAD("Header/Footer Library Demo")
=SAYFOOT("")
=SAYFOOT("This concludes the Demo of the Header/Footer Library ",0)
WAIT WINDOW "Press Any Key"
RELEASE WINDOW TEMP


  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : HEADFT.ZIP
Filename : DEMO.PRG

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/