Listing of file='OP1D040A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 210, program filename = 'OP1D040A' 0010 REM . OP1D040A, 00-00 (06/28/75), 12002 : PRINT "TESTING MAT SCALAR MULTIPLICATION... "; : DIM A(20),C(20,1),B(4,5),D(1,1),F(1) : FOR I=1TO 20STEP 4 : MAT REDIM A(I) : FOR J=1TO I : A(J)=J : NEXT J 0140 MAT A=(123)*A : MAT REDIM A(20) : X=1 : FOR K=1TO 20 : IF K<=ITHEN 160 : X=0 0160 IF A(K)<>123*K*XTHEN 260 : NEXT K : NEXT I 0180 MAT C=(-1/123)*A : FOR I=1TO 17 : IF C(I,1)<>-ITHEN 260 : NEXT I : FOR I=1TO 4 : FOR J=1TO 5 : B(I,J)=(I-1)*5+J : NEXT J : NEXT I : MAT C=(.1)*B : MAT REDIM C(20,1) : FOR I=1TO 20 : IF C(I,1)<>.1*ITHEN 260 : NEXT I : D(1,1)=3 : MAT F=(.3)*D : IF F(1)<>.9THEN 260 0250 PRINT "OK" : GOTO 280 0260 E(2)=E(2)+1 0270 PRINT TAB(40);E(2);"ERRORS" 0280 LOAD DC T"OP1D050A" 0290 DEFFN'15 : LOAD DC T"START"50