Listing of file='OP1D040A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 758, program filename = 'OP1D040A' 0010 REM . OP1D040A, 00-00 (6/28/75), 12002 0100 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 : MAT A=(123)*A : MAT REDIM A(20) : X=1 : FOR K=1TO 20 : IF K<=ITHEN 230 : X=0 0230 IF A(K)<>123*K*XTHEN 390 : NEXT K : NEXT I : MAT C=(-1/123)*A : FOR I=1TO 17 : IF C(I,1)<>-ITHEN 390 : 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 390 : NEXT I : D(1,1)=3 : MAT F=(.3)*D 0359 IF F(1)<>.9THEN 390 : IF E(4)<>0THEN 400 : PRINT "OK" : GOTO 420 0390 E(4)=E(4)+1 0400 PRINT TAB(40);E(4);"ERRORS" : E9$(P9)="NG" 0420 LOAD DC T#6,"OP1D050A" 0430 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"