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"