--- trunk/NationalProblemLibrary/ASU-topics/set119LinearSystems/p21.pg	2006/06/03 14:32:34	267
+++ trunk/NationalProblemLibrary/ASU-topics/set119LinearSystems/p21.pg	2006/06/03 14:35:45	268
@@ -29,7 +29,7 @@
 "PGmatrixmacros.pl"
 );
 
-TEXT(&beginproblem);
+TEXT(beginproblem());
 $showPartialCorrectAnswers = 1;
 
 $a1 = non_zero_random(-9,9,1);
@@ -93,22 +93,22 @@
 
 
 
-&ANS(arith_num_cmp($a[$tag1]));
-&ANS(arith_num_cmp($b[$tag1]));
-&ANS(arith_num_cmp($c[$tag1]));
-&ANS(arith_num_cmp($d[$tag1]));
+ANS(num_cmp($a[$tag1], mode=>"arith"));
+ANS(num_cmp($b[$tag1], mode=>"arith"));
+ANS(num_cmp($c[$tag1], mode=>"arith"));
+ANS(num_cmp($d[$tag1], mode=>"arith"));
 
 # row 2
-&ANS(arith_num_cmp($a[$tag2]));
-&ANS(arith_num_cmp($b[$tag2]));
-&ANS(arith_num_cmp($c[$tag2]));
-&ANS(arith_num_cmp($d[$tag2]));
+ANS(num_cmp($a[$tag2], mode=>"arith"));
+ANS(num_cmp($b[$tag2], mode=>"arith"));
+ANS(num_cmp($c[$tag2], mode=>"arith"));
+ANS(num_cmp($d[$tag2], mode=>"arith"));
 
 # row 3
-&ANS(arith_num_cmp($a[$tag3]));
-&ANS(arith_num_cmp($b[$tag3]));
-&ANS(arith_num_cmp($c[$tag3]));
-&ANS(arith_num_cmp($d[$tag3]));
+ANS(num_cmp($a[$tag3], mode=>"arith"));
+ANS(num_cmp($b[$tag3], mode=>"arith"));
+ANS(num_cmp($c[$tag3], mode=>"arith"));
+ANS(num_cmp($d[$tag3], mode=>"arith"));