(a,t)
Prgm
   Disp "Udgangspunkt"
   Disp a
   Pause

   Define r=0
   Define k=0
   Define m=dim(a)[1]
   Define n=dim(a)[2]

   While r<m and k<n
	  Define k=k+1
	  Define p=0
	  
	  Define l=r
	  While l<m and p=0
		 Define l=l+1
		 If a[l,k]�0 Then 
			Define p=l
		 EndIf
	  EndWhile
   
	  If p�0 Then 
		 Define r=r+1
		 If p�r Then 
			Disp "I) Ombyt r"&part(p,0)&"<->r"&part(r,0)
			Define a=rowSwap(a,p,r)
			Disp a
			Pause
		 EndIf
		 
		 If t=1 Then 
		   If a[r,k]�1 Then 
			  Disp "II) Mult. r"&part(r,0)&", "&part(1/a[r,k],0)
			  Define a=mRow(1/a[r,k],a,r)
			  Disp a
			  Pause
		   EndIf
		 EndIf
   
		 For l,r+1,m
			Define f=�a[l,k]
			If t�1 Then 
			  Define f=f/a[r,k]
			EndIf
			Disp "III) Add produkt r"&part(r,0)&"->r"&part(l,0)&", "&part(f,0)
			Define a=nInt(f,a,r,l)
			Disp a
			Pause
		 EndFor
	  EndIf
   EndWhile
   Disp "Faerdig!"
EndPrgm