Listing of file='OP1D050A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 659, program filename = 'OP1D050A' 0010 REM . OP1D050A, 00-00 (6/28/75), 12002 0100 PRINT "TESTING MAT TRN... "; : DIM A(20),B(1,21),C(5,20),D(10,10) : FOR I=1TO 20 : A(I)=I : NEXT I : MAT B=TRN(A) : FOR I=1TO 20 : IF B(1,I)<>ITHEN 480 : NEXT I : MAT REDIM B(1,21) : IF B(1,21)<>0THEN 480 : FOR I=1TO 5 : FOR J=1TO 20 : C(I,J)=I+.01*J : NEXT J : NEXT I 0260 MAT D=TRN(C) : GOSUB 400 : MAT C=ZER : MAT C=TRN(D) : GOSUB 400 : FOR I=1TO 10 : MAT REDIM C(I,I) : MAT D=TRN(C) : K,K1=I : GOSUB 420 : NEXT I : IF E(5)<>0THEN 490 : PRINT "OK" : GOTO 510 0400 K=5 : K1=20 0420 FOR I=1TO K : FOR J=1TO K1 : IF D(J,I)<>C(I,J)THEN 480 : NEXT J : NEXT I : RETURN 0480 E(5)=E(5)+1 0490 PRINT TAB(40);E(5);"ERRORS" : E9$(P9)="NG" 0510 LOAD DC T#6,"OP1D060A" 0520 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"