#!/usr/bin/perl  -w
use strict;
my ($num,$v,$text,$qnum,$qtext,$stext,$spec,$x,$qspec);            
while (<>){
        s/ \t/\t/g;      
        s/9[0-9][0-9][0-9] \t/9999\t/g;
        s/9[0-9][0-9][0-9] /9999\t/g;                              
        if (/^[SCQD]/){
        ($num,$v,$text) = split("\t");
        chop ($num);
        $qnum=substr($_,0,index($_,"."));
        $qtext = substr($text,0,index($text,"?")+1);            
        print "n03;coltxt=___\nn05TOTAL\nL $qnum\nttl$qnum. $qtext\nn10TOTAL BASE\n";
        }
        else {   
        ($stext,$spec,$x) = split("[\t]");       
        chomp ($spec);
        $qspec = substr($spec,1,1);
        unless (/^$/){ print "n01$stext;c=c{$qnum}'$qspec'\n"}
        }                        
}
        print "n03;coltxt=___\nn05TOTAL\n";