ALL KNOWN MIXES -
Back to Mix-o-Matic
__EOQ__
readItemIngred();
print "
\n";
open(READ,"mix.txt");
$count = 0;
while(defined($line = )){
chomp $line;
$store[$count] = $line;
$count++;
($goal,$type1,$thing1,$type2,$thing2) = split(/\t/,$line);
$duh = thingDesc("#",$goal);
$one = &thingDesc($type1,$thing1);
$two = &thingDesc($type2,$thing2);
print<<__EOQ__;
| $one |
+ |
$two |
= |
$duh |
__EOQ__
}
close READ;
print "
\n";