Listing of file='OP1D090A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 456, program filename = 'OP1D090A'
0010 REM . OP1D090A, 00-00 (06/28/75), 12002
: PRINT "TESTING MAT READ... ";
: DIM A$(1)64,B$(18,2)1,N(20),M(5,4),C$64
0020 DATA "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ01234
56789"
: READ C$
: RESTORE
: FOR I=1TO 64
: RESTORE
: MAT READ A$(1)I
: IF A$(1)<>STR(C$,1,I)THEN 90
: NEXT I
0030 MAT READ A$(36)1
: FOR I=1TO 36
: IF A$(I)<>STR(C$,I,1)THEN 90
: NEXT I
: RESTORE 2
: MAT READ B$
: GOSUB 60
: INIT(00)B$()
: MAT READ B$(36,1)1
: GOSUB 60
: INIT(00)B$()
: MAT READ B$(1,36)1
: GOSUB 60
: INIT(00)B$()
: MAT READ B$(6,6)1
: GOSUB 60
: FOR I=1TO 20
: RESTORE 38
: MAT READ N(I)
0040 FOR J=1TO I
: IF N(I)<>ITHEN 90
: 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 90
: NEXT I
0050 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 90
: GOSUB 60
: FOR I=1TO 10
: IF N(I)<>ITHEN 90
: IF M(1,I)<>10+ITHEN 90
: NEXT I
: PRINT "OK"
: GOTO 110
0060 MAT REDIM B$(1,1)36
: RESTORE 2
: IF B$(1,1)<>STR(C$,1,36)THEN 90
: RETURN
0070 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"
0080 DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
0090 E(2)=E(2)+1
0100 PRINT TAB(40);E(2);"ERRORS"
0110 DATA LOAD DA T(1023,L)B$,B$
: IF B$="OP1D010A"THEN 115
: GOTO 117
0115 Z9(1)=Z9(1)+1
0117 LOAD DC TB$
0120 DEFFN'15
: LOAD DC T"START"50