Listing of file='OP1D030A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 672, program filename = 'OP1D030A' 0010 REM . OP1D030A, 00-00 (06/28/75), 12002 : PRINT "TESTING MAT CON,ZER,IDN... "; : DIM A(20),B(5,5),C(1) : FOR I=1TO 20STEP 4 : MAT A=CON(I) : X=1 : MAT REDIM A(20) : FOR J=1TO 20 : IF J<=ITHEN 150 : X=0 0150 IF A(J)<>XTHEN 330 : NEXT J : NEXT I : MAT A=ZER : FOR I=1TO 20 : IF A(I)<>0THEN 330 : NEXT I : MAT B=CON : GOSUB '01(1) 0190 X=4 : MAT B=ZER(X,X-1) : MAT REDIM B(25,1) : X=0 : FOR I=1TO 25 : IF I<13THEN 210 : X=1 0210 IF B(I,1)<>XTHEN 330 : NEXT I : FOR K=1TO 5 : MAT B=IDN(K,K) : GOSUB '02(K) : NEXT K : MAT REDIM B(3,3) : MAT B=IDN : GOSUB '02(3) : MAT C=CON : IF C(1)<>1THEN 330 : MAT C=ZER : IF C(1)<>0THEN 330 : PRINT "OK" : GOTO 350 0270 DEFFN'01(X) : FOR I=1TO 5 : FOR J=1TO 5 0280 IF B(I,J)<>XTHEN 330 : NEXT J : NEXT I : RETURN 0290 DEFFN'02(X) : FOR I=1TO X : FOR J=1TO X : IF I=JTHEN 310 : IF B(I,J)<>0THEN 330 : GOTO 320 0310 IF B(I,J)<>1THEN 330 0320 NEXT J : NEXT I : RETURN 0330 E(2)=E(2)+1 0340 PRINT TAB(40);E(2);"ERRORS" 0350 LOAD DC T"OP1D040A" 0360 DEFFN'15 : LOAD DC T"START"50