Listing of file='OP1D090A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 309, program filename = 'OP1D090A' 0010 REM . OP1D090A, 00-00 (6/28/75), 12002 0100 PRINT "TESTING MAT READ... "; : DIM A$(1)64,B$(18,2)1,N(20),M(5,4),C$64 : DATA "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ01234 56789" : READ C$ : RESTORE : FOR I=1TO 64 : RESTORE : MAT READ A$(1)I 0180 IF A$(1)<>STR(C$,1,I)THEN 670 : NEXT I : MAT READ A$(36)1 : FOR I=1TO 36 : IF A$(I)<>STR(C$,I,1)THEN 670 : NEXT I : RESTORE 2 : MAT READ B$ : GOSUB 610 : INIT(00)B$() : MAT READ B$(36,1)1 : GOSUB 610 : INIT(00)B$() : MAT READ B$(1,36)1 : GOSUB 610 : INIT(00)B$() : MAT READ B$(6,6)1 : GOSUB 610 : FOR I=1TO 20 : RESTORE 38 0380 MAT READ N(I) : FOR J=1TO I : IF N(I)<>ITHEN 670 : NEXT J : MAT N=ZER : NEXT I : RESTORE 38 : MAT READ M : MAT REDIM M(20,1) : FOR I=1TO 20 : IF M(I,1)<>ITHEN 670 : NEXT I : MAT REDIM B$(9,4)1 : RESTORE : MAT READ A$(1),B$,N(10),M(1,10) : IF A$(1)<>STR(C$,1,16)THEN 670 : GOSUB 610 : FOR I=1TO 10 : IF N(I)<>ITHEN 670 0560 IF M(1,I)<>10+ITHEN 670 : NEXT I : IF E(9)<>0THEN 680 : PRINT "OK" : GOTO 700 0610 MAT REDIM B$(1,1)36 : RESTORE 2 : IF B$(1,1)<>STR(C$,1,36)THEN 670 : RETURN 0650 DATA "A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q", "R","S","T","U","V","W","X","Y","Z","0","1","2","3","4","5","6","7","8"," 9" 0660 DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 0670 E(9)=E(9)+1 0680 PRINT TAB(40);E(9);"ERRORS" : E9$(P9)="NG" 0700 LOAD DC T#6,"OP2D010A" 0710 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"