Listing of file='OP1D050A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 74, program filename = 'OP1D050A' 0010 REM . OP1D050A, 00-00 (06/28/75), 12002 : 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 270 : NEXT I : MAT REDIM B(1,21) 0150 IF B(1,21)<>0THEN 270 : FOR I=1TO 5 : FOR J=1TO 20 : C(I,J)=I+.01*J : NEXT J : NEXT I : MAT D=TRN(C) : GOSUB 230 0190 MAT C=ZER : MAT C=TRN(D) : GOSUB 230 : FOR I=1TO 10 : MAT REDIM C(I,I) : MAT D=TRN(C) : K,K1=I : GOSUB 240 : NEXT I : PRINT "OK" : GOTO 290 0230 K=5 : K1=20 0240 FOR I=1TO K : FOR J=1TO K1 : IF D(J,I)<>C(I,J)THEN 270 : NEXT J : NEXT I : RETURN 0270 E(2)=E(2)+1 0280 PRINT TAB(40);E(2);"ERRORS" 0290 LOAD DC T"OP1D060A" 0300 DEFFN'15 0310 LOAD DC T"START"50