A TEXT Example

#!/usr/local/perl

use Spectra; 
use GQE;

cls(); 

#
# create a TEXT GQE 
#
$t1 = TEXT->create( name => "test"); 
#
# set the text string and give it the colour blue 
#
$t1->set( string => "ein Test", 
          colour => "blue");

display(); 
prtc();