Listing of file='OP1D030A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 49, program filename = 'OP1D030A' 0010 REM . OP1D030A, 00-00 (09/19/75), 12002 0100 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 190 : X=0 0190 IF A(J)<>XTHEN 680 : NEXT J : NEXT I : MAT A=ZER : FOR I=1TO 20 : IF A(I)<>0THEN 680 : NEXT I : MAT B=CON : GOSUB '01(1) : X=4 : MAT B=ZER(X,X-1) : MAT REDIM B(25,1) : X=0 : FOR I=1TO 25 : IF I<13THEN 350 : X=1 0350 IF B(I,1)<>XTHEN 680 : 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 680 : MAT C=ZER : IF C(1)<>0THEN 680 : IF E(3)<>0THEN 690 : PRINT "OK" : GOTO 710 0510 DEFFN'01(X) : FOR I=1TO 5 : FOR J=1TO 5 : IF B(I,J)<>XTHEN 680 : NEXT J : NEXT I : RETURN 0580 DEFFN'02(X) : FOR I=1TO X : FOR J=1TO X : IF I=JTHEN 640 : IF B(I,J)<>0THEN 680 : GOTO 650 0640 IF B(I,J)<>1THEN 680 0650 NEXT J : NEXT I : RETURN 0680 E(3)=E(3)+1 0690 PRINT TAB(40);E(3);"ERROR" : E9$(P9)= "NG" 0710 LOAD DC T#6,"OP1D040A" 0720 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"