*LOGO_GAM
CLEA
l1="        ßßßßß               ßßß             ßßß             ßßß       "
l2="     ßßßßßßßßßß           ßßßßßßß          ßßßßßß         ßßßßßß     "
l3="   ßßßß       ßßßß       ßß     ßß        ßßßß  ßßß     ßßß  ßßßß "
l4="  ßßßß                  ßß       ßß       ßßßß    ßßßßßßß    ßßßß "
l5="  ßßßß       ßßßßß     ßßßßßßßßßßßßß      ßßßß      ßßß      ßßßß  "
l6="   ßßßß       ßßßß    ßßßßßßßßßßßßßßß     ßßßß               ßßßß "
l7="     ßßßßßßßßßßßßß    ßßß         ßßß     ßßßß               ßßßß "
l8="        ßßßßß   ßß    ßßß         ßßß     ßßßß               ßßßß "
if iscolor()
set colo to r
else
set colo to +u
endi
i=1
do whil i<9
ii=str(i,1,0)
@5+i,10-i say l&ii
i=i+1
endd
SET COLO TO W/ 
@0,0 TO 23,79
@24,6 SAY "GAM Micro-‚dition 6 rue du Misaret DAROIS 21121 FONTAINE LES DIJON"
SET COLO TO +W
@17,20SAY "PAO … Fa‡on D‚veloppement DBASE III"
@20,29 SAY "TEL 80 35 63 18"
SET COLO TO W/ , /W
DO UNCAR
CLEA