Listing of file='OP1D010A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 204, program filename = 'OP1D010A'
0010 REM . OP1D010A, 00-00 (06/28/75), 12002
: SELECT PRINT 005
: GOSUB 500
: GOSUB '100
: GOSUB 500
0120 PRINT "TESTING MAT EQUALITY... ";
: DIM A(20,3),B1(20,1),B(20),C(1),D1(1,1),B2(20),D(4,3)
: C(1)=RND(0)
: FOR I=1TO 20
: B(I)=RND(1)
: NEXT I
: MAT B1=B
: MAT B2=B
: FOR I=1TO 20
0170 IF B1(I,1)<>B(I)THEN 290
: IF B2(I)<>B(I)THEN 290
: NEXT I
: MAT B=ZER
: MAT B=B1
: FOR I=1TO 20
: IF B(I)<>B1(I,1)THEN 290
: NEXT I
: FOR I=1TO 4
: FOR J=1TO 3
: D(I,J)=RND(1)
: NEXT J
: NEXT I
: IF I>4THEN 250
: IF J>3THEN 250
: MAT A=D
: FOR I=1TO 4
: FOR J=1TO 3
0240 IF A(I,J)<>D(I,J)THEN 290
: GOTO 260
0250 IF A(I,J)<>0THEN 290
0260 NEXT J
: NEXT I
: MAT D1=C
: IF C(1)<>D1(1,1)THEN 290
0280 D1(1,1)=5
: MAT C=D1
: IF C(1)=5THEN 310
0290 E(2)=E(2)+1
0300 PRINT TAB(40);E(2);"ERRORS"
: GOTO 320
0310 PRINT "OK"
0320 LOAD DC T"OP1D020A"
0500 PRINT HEX(0A0A);
: PRINT HEX(03);"2200 SYSTEM DIAGNOSTIC - MATRIX PASS ";Z9(1);" **** ";E(2
);" ERRORS"
0520 PRINT "------------------------------------------"
: RETURN
0600 DEFFN'100
0610 ON O8 GOTO 620,630,640
: STOP "SYSTEM ERROR"
0620 SELECT PRINT 005
: RETURN
0630 SELECT PRINT 215
: RETURN
0640 SELECT PRINT 211
: RETURN
9000 DEFFN'15
: LOAD DC T"START"50