#!/usr/bin/perl
use strict;
use warnings;
my ($qnum,$code,$ctext,$ntext,$stext);
open (QLIST, "qcode") || die "Can't open qcode file: $!\n";
while (<QLIST>){   
         chomp $_;  
         $qnum="$_";
         open (QIN, "$qnum.txt") || die "Can't open $qnum.txt file: $!\n";
         open (QOUT, ">$qnum.tmp") || die "Can't open $qnum.tmp file: $!\n";
         while (<QIN>){
              s/\222/'/g;  
              s/\226/-/g;  
              chomp ($_);  
              if (/^Col/i){
                  s/^col.//gi;
                  s/\(net\)//gi;
                  $ntext = $_;                         
                  print QOUT "net1$ntext (net);unl1\n";
                  }
              elsif (/^\(S/i){ 
                 (undef,$stext) = split(/\s/,$_,2);      
                 print QOUT "net2$stext (subnet);unl1\n";
                 } 
              elsif (/^[0-9]/)
                 ($code,$ctext) = split(/\s/,$_,2);           
                 print QOUT "n01$ctext;c=(&txt($code.ge.1)\n";
                 }                                            
              else {};
              }
           }
close QIN;
close QOUT;
open (QIN, "$qnum.tmp") || die "Can't open $qnum.tmp file: $!\n";  
open (QOUT, ">$qnum.axe") || die "Can't open $qnum.axe file: $!\n";
while (<QIN>){ 
     open (QIN, "$qnum.tmp") || die "Can't open $qnum.tmp file: $!\n";   
     open (QOUT, ">$qnum.axe") || die "Can't open $qnum.axe file: $!\n"; 
     while (<QIN>){ 
         if (/n01\s+nothing|n01\s+don't know|n01\s+other/i)
{
              s/\n/;nz;nosort\n/g;}      
         if (/ \s+[\w;]/){                  
              s/n01\s+/n01/g;            
              s/net1\s+/net1/g;          
              s/net2\s+/net2/g;}         
         if (/^net1misc/i){                 
              s/unl1/unl1;nz;nosort/g;}  
         unless (/^n01;c=|^net. /i){        
         print QOUT $_;             
         }                          
      }                                  
        close QOUT;
}