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

*-----------------------------------------------------------------
*
* System Name: Beer Cans Inventory System
*
* Program Name: LOGO_3.PRG
*
* Programmer: Eric L. Poole
* Date: 23 February 1988
*
* Purpose: To display a logo (type 3) for first time users
* to view. System name, version number and date
* are displayed.
*
*-----------------------------------------------------------------

* ---------- Initialize.

set status off
space = " 
"
blank = " "

set color to /w
clear

* ---------- Draw shadow behind big box.

set color to /
@ 4,12 to 10,71 double
@ 4,12 to 10,72 double

* ---------- Draw big box.

set color to w+/b
@3,10 to 9,70 double

* --------- Fill in color inside box.

set color to gr/gr
@4,11 say "&space"
@5,11 say "&space"
@6,11 say "&space"
@7,11 say "&space"
@8,11 say "&space"

* ---------- Draw small box inside.

set color to r+/
@5,22 to 7,59 double

* ---------- Fill in title.

set color to gr+/
@ 6,23 say " BEER CANS INVENTORY SYSTEM "

* ---------- Draw shadow behind lower box.

set color to /
@ 13,30 to 21,54 double
@ 13,30 to 21,55 double

* ---------- Draw lower box.

set color to w+/r+
@ 12,28 to 20,53 double

* ---------- Fill box in.

set color to b/b
@ 13,29 say "&blank"
@ 14,29 say "&blank"
@ 15,29 say "&blank"
@ 16,29 say "&blank"
@ 17,29 say "&blank"
@ 18,29 say "&blank"
@ 19,29 say "&blank"

set color to w+/b
@ 14,33 say " Version 1.01"
@ 15,33 say "26 February 1988"
set color to bg+/b
@ 17,33 say "By Eric L. Poole"
@ 18,33 say " Copyright 1988"

* ---------- Prompt to continue.

set color to w/w
@22,1 say " "

set color to b/w
wait

return