Listing of file='OP1D080A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 557, program filename = 'OP1D080A' 0010 REM . OP1D080A, 00-00 (06/28/75), 12002 : PRINT "TESTING MAT REDIM... "; : DIM A$(1)64,B$64,N(18,18),M(20),C$(4,4) : FOR I=1TO 64 : BIN(STR(B$,I,1))=I : NEXT I : FOR I=1TO 64 : MAT REDIM A$(1)I : A$(1)=B$ 0140 IF A$(1)<>STR(B$,1,I)THEN 230 : NEXT I : MAT REDIM A$(64)1 : FOR I=1TO 64 : IF A$(I)<>STR(B$,I,1)THEN 230 : NEXT I 0170 FOR I=1TO 20 : MAT REDIM M(I) : FOR J=1TO I : M(I)=0 : NEXT J : NEXT I : MAT REDIM A$(1)1,N(1,1),M(20),C$(16,4)4 : PRINT "OK" : GOTO 250 0210 FOR I=1TO 18 : FOR J=1TO 18 : MAT REDIM N(I,J) : N(I,J)=0 : NEXT J : NEXT I 0230 E(2)=E(2)+1 0240 PRINT TAB(40);E(2);"ERRORS" 0250 LOAD DC T"OP1D090A" 0260 DEFFN'15 : LOAD DC T"START"50