Listing of file='OP5D040A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 361, program filename = 'OP5D040A'
0010 REM . OP5D040A, 00-00 (06/28/75), 12002
: DATA "ABCDEFGHIJKLMNO","ADGJMBEHKNCFILO"
: DATA "ABCDEABCDEABCDE","KLMNOFGHIJABCDE"
: DATA "ABBBCAABBCAAABC"
0130 DIM A$(3,5)1,W1$(4)1,W2$(3)2,S$(15)2,B$(16)1,Z$(1)15
: DIM S1$(3)2
: PRINT "MAT MERGE",
0160 FOR I=1TO 5
: READ Z$(1)
: MAT COPY Z$()TO A$()
: GOSUB '40
: NEXT I
: INIT("X")A$()
: GOSUB '40
: INIT(01)W1$()
: FOR I=1TO 4
: MAT MERGEA$()TO W1$(),W2$(),S$()
: IF I=4THEN 230
: IF W1$(I)<>HEX(FF)THEN 330
: IF VAL(W1$(4))<>ITHEN 330
: NEXT I
0230 IF S$(1)<>HEX(0000)THEN 330
: NEXT I
: INIT(01)W1$()
: MAT MERGEA$()TO W1$(),W2$(),S1$()
0250 IF W1$(1)<>HEX(04)THEN 330
: IF W1$(2)<>HEX(01)THEN 330
: IF W1$(3)<>HEX(01)THEN 330
: IF W1$(4)<>HEX(00)THEN 330
: RESTORE
: READ Z$(1)
: MAT COPY Z$()TO A$()
: W1$(1)=HEX(03)
: W1$(2)=HEX(04)
: W1$(3)=HEX(05)
: INIT(FF)B$()
: M=1
: GOSUB 380
0300 MAT COPY B$()TO Z$()
: IF STR(Z$(1),1,6)<>"CDEIJO"THEN 330
: IF B$(7)<>HEX(FF)THEN 330
: PRINT "OK"
: GOTO 350
0330 E(4)=E(4)+1
0340 PRINT TAB(40);E(4);"ERRORS"
0350 LOAD DC T"OP5D050A"
0360 END
0370 DEFFN'40
: INIT(00)B$()
: M=1
: INIT(01)W1$()
0380 MAT MERGEA$()TO W1$(),W2$(),S$()
: N0=15
: MAT MOVE A$(),S$(1),N0TO B$(M)
: M=M+N0
: IF N0<>0THEN 380
: IF S$(1)<>HEX(0000)THEN 330
0410 FOR J=1TO 14
: IF B$(J)>B$(J+1)THEN 330
: NEXT J
: RETURN
0430 DEFFN'15
: LOAD DC T"START"50