Subversion Repositories wimsdev

Rev

Rev 20 | Rev 5763 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 20 Rev 38
Line 34... Line 34...
34
 check2=($methparm2) - ($methparm4)
34
 check2=($methparm2) - ($methparm4)
35
  
35
  
36
 !read deduc/sub/checkzero $check1\
36
 !read deduc/sub/checkzero $check1\
37
	$check2
37
	$check2
38
 !distribute line $out into out1, out2
38
 !distribute line $out into out1, out2
39
 !read deduc/sub/Simplify ($check1) / ($check2)
39
 !read deduc/sub/_Simplify ($check1) / ($check2)
40
 out3=$out
40
 out3=$out
41
 !if $out1=yes or $out2=yes
41
 !if $out1=yes or $out2=yes
42
  !if $out1!=yes or $out2!=yes
42
  !if $out1!=yes or $out2!=yes
43
   !goto badequiv
43
   !goto badequiv
44
  !endif
44
  !endif