280a281,283
> 
> 
> 
377a381
>     (SETCHAINSTARTS ( BMI!- (ADD1(GETINVARNO)) NMODGEN) (GETINVARNO)) %VU
402c406
<  (PROG (  !*USERMODE)
---
>  (PROG ( TMP  !*USERMODE)
404,405c408,415
<      ((NOT (EQ (GETOBJECTTYPE) 'FACTORALGEBRA))
<            (SETFACTALGOBJECT)
---
> %     ((NOT (EQ (GETOBJECTTYPE) 'FACTORALGEBRA))
> %           (SETFACTALGOBJECT)
> %           (TERPRI)
> %           (PRIN2 "*** We turn on the FACTORALGEBRA mode")
> %           (TERPRI)
> %      )
>      ((NOT (EQ (GETOBJECTTYPE) 'MODULE))
>            (SETMODULEOBJECT)
407c417
<            (PRIN2 "*** We turn on the FACTORALGEBRA mode")
---
>            (PRIN2 "*** We turn on the MODULE mode")
424,425c434,457
<     (COND ( (EQ LENG 0)  (bnmScreenInput ))
<          
---
>     (COND ( (EQ LENG 0)
> 	    (SETQ bnmScInput T)
> 	    (PRIN2 "Input the Maximum Degree you want to calculate")(TERPRI)
> 	    (SETMAXDEG (READ))
> 	    (PRIN2 "Now input all ring variables, a dummy variable (D),")
> 	    (TERPRI)
> 	    (PRIN2 "and copies of the ring variables (in this order), in this manner:")
> 	    (TERPRI)
> 	    (PRIN2 "    vars x1, ..., xn, D, y1, ..., yn;")
> 	    (TERPRI)
> 	    (PRIN2 "(where x1,..., xn are the ring varables,")
> 	    (TERPRI)
> 	    (PRIN2 "and y1,...,yn their copies)")
> 	    (TERPRI)
> 	    (PRIN2 "Then input  the ring ideal relations (in ordinary algebraic form);")
> 	    (TERPRI)
> 	    (PRIN2 "but the factor algebra relations in the form")
> 	    (TERPRI) (PRIN2 "     D*r1, ..., D*rm,") (TERPRI)
> 	    (PRIN2 "where r1, ..., rm are the relations.")
> 	    (PRIN2 "Finally, input the dummy commutators")
> 	    (TERPRI)
> 	    (PRIN2 "   y1*D-D*x1, ..., ym*D-D*ym;")
> 	    (TERPRI)
> 	    (ALGFORMINPUT) )
435a468,472
> 
>      %added by VU
>     (SETQ TMP (ADD1 (BMI!/ (GETINVARNO)2)))
>     (SETCHAINSTARTS  TMP TMP)
>       %end added VU
464c501
<  (PROG (  !*USERMODE)
---
>  (PROG (  !*USERMODE TMP1 TMP2)
498c535,546
<    
---
> 
>         %added by VU%
>     (SETQ TMP2  (BMI!- (GETINVARNO) NLMODGEN))
>     (SETQ TMP1  (BMI!- TMP2 NRMODGEN))  %NALGEN
> 
>     (SETCHAINSTARTS (ADD1 TMP1) TMP2)
>     (SETCHAINENDS 1 TMP1)
>     (SETLMODNORMALMONSTARTS  1 TMP1) 
>     (SETLMODNORMALMONENDS    (ADD1 TMP2) (GETINVARNO))                      
>         %end adding
>     
> 
