Subversion Repositories wimsdev

Rev

Rev 16135 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16135 Rev 16209
Line 22... Line 22...
22 
!ifval $methparm1=0
 22 
!ifval $methparm1=0
23 
  error=Division by zero!
 23 
  error=Division by zero!
24 
  !advance penalty
 24 
  !advance penalty
25 
  !exit
 25 
  !exit
26 
!endif
 26 
!endif
27 
 methexp=Divide \($left $sign $right) by \($methparm1)
 27 
methexp=Divide \($left $sign $right) by \($methparm1)
28 
 
 28 
 
29 
!read deduc/sub/simplify ($left) / ($methparm1)\
 29 
!read deduc/sub/simplify ($left) / ($methparm1)\
30 
	($right) / ($methparm1)
 30 
	($right) / ($methparm1)
31 
!distribute lines $out into newleft, newright
 31 
!distribute lines $out into newleft, newright
32 
!if $newleft=$empty or $newright=$empty
 32 
!if $newleft=$empty or $newright=$empty