4900 "C" clear :input "GRAD DIVIDEND:";G$:G=val G$:dim A(G):M=0 4940 pause "DIVIDEND:":for I=G to 0 step -1:V$="0":print "KOEFF. X^";I:input V$ 5000 A(I)=val V$:M=M+abs A(I):next I 5020 if M=0 pause "NICHT UNGL 0":goto 4900 5030 input "GRAD DVISOR:";H$:H=val H$:dim B(H):M=0:pause "DIVISOR:":for I=H to 0 step -1:V$="0" 5110 print "KOEFF. X^";I:input V$:B(I)=val V$:M=M+abs B(I) 5150 next I 5160 if M=0 pause "DIVISION 0":goto 5030 5170 if G-H<0 pause "UNSINNIG":goto 5030 5180 dim C(G-H):for I=G-H to 0 step -1:C(I)=A(I+H)/B(H):M=0:for J=I+H-1 to I step -1 5220 A(J)=A(J)-C(I)*B(J-I):if I=0 then let M=M+abs A(J) 5240 next J 5250 if C(I)<>0 print "(";str$ C(I);")X^";I 5260 next I 5270 if M=0 goto 4900 5280 pause "REST:":for I=H-1 to 0 step -1:if A(I)<>0 print "(";str$ A(I);")X^";str$ I 5310 next I 5320 goto 4900