A TAG Example

#!/usr/local/perl

use Spectra; 
use GQE;

cls(); 

#
# create a SCAN GQE ...
#
Gra_command( "create/notext test 0 10 100"); 
#
# ... and create a TAG GQE in the same slot
#
$t1 = TAG->create( "name" => "test"); 
#
# set the text string and the colour of the TAG
#
$t1->set( string => "Test", 
          colour => "blue");

display(); 
prtc();