Listing of file='OP1D080A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 344, program filename = 'OP1D080A' 0010 REM . OP1D080A, 00-00 (6/28/75), 12002 0100 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$ : IF A$(1)<>STR(B$,1,I)THEN 400 : NEXT I : MAT REDIM A$(64)1 : FOR I=1TO 64 0220 IF A$(I)<>STR(B$,I,1)THEN 400 : NEXT I : 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 : IF E(8)<>0THEN 410 : PRINT "OK" : GOTO 430 0340 FOR I=1TO 18 : FOR J=1TO 18 : MAT REDIM N(I,J) : N(I,J)=0 : NEXT J : NEXT I 0400 E(8)=E(8)+1 0410 PRINT TAB(40);E(8);"ERRORS" : E9$(P9)="NG" 0430 LOAD DC T#6,"OP1D090A" 0440 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"