Listing of file='OP5D100A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 714, program filename = 'OP5D100A'
0010 REM . OP5D100A, 00-00 (06/28/75), 12002
: PRINT "MAT MERGE DIAGNOSTIC #4 (COMATF11)..";
0120 DIM A$(3,5)5,W1$(4)1,W2$(3)2,B$(20)2,F$(20)2,G$(3,5)5,D$(255)1,S$(5)5,W3$
(5)2,W4$(5)2,V$(15)5
: GOSUB '30
: GOSUB '40
: GOSUB '50
: GOSUB '60
: INIT(01)W1$()
: X,Y=1
0190 MAT MERGEA$()TO W1$(),W2$(),B$()
: IF B$(1)=HEX(0000)THEN 290
: N0=1000
: MAT MOVE A$(),B$(1),N0TO G$(X,Y)
: N1=N1+N0
: T=INT((N1+1)/5.1)
: X=T+1
: Y=(N1+1)-T*5
: GOTO 190
0290 GOSUB '70
: PRINT "O.K."
: LOAD DC T"OP5D110A"
0310 DEFFN'40
: INIT(FF)A$()
: I=1
0340 J=1
0350 FOR K=1TO 4
0360 R=INT(RND(4)*1000)+1
: IF R>255THEN 360
0380 STR(A$(I,J),K,1)=D$(R)
: NEXT K
: J=J+1
: IF J<6THEN 350
: I=I+1
: IF I<4THEN 340
: RETURN
0430 DEFFN'50
: N0=5
: FOR I=1TO 3
: FOR J=1TO 5
: S$(J)=A$(I,J)
: NEXT J
: MAT SORTS$()TO W3$(),W4$()
: MAT MOVE S$(),W4$(1),N0TO A$(I,1)
: IF N0=5THEN 510
: E(4)=E(4)+1
: PRINT TAB(40);E(4);"ERRORS"
: LOAD DC T"OP5D110A"
0510 NEXT I
: RETURN
0530 DEFFN'60
: FOR I=1TO 3
: FOR J=1TO 4
: IF A$(I,J)<=A$(I,J+1)THEN 590
: PRINT TAB(40);"ERROR IN VERIFY A$() ="
: HEXPRINT A$(),
: STOP
0590 NEXT J
: NEXT I
: RETURN
0610 DEFFN'70
: FOR I=1TO 3
: FOR J=1TO 5
: V$((I-1)*5+J)=G$(I,J)
: NEXT J
: NEXT I
: FOR I=1TO 14
: IF V$(I)<=V$(I+1)THEN 690
: PRINT TAB(40);"ERROR IN MERGE A$() ="
: HEXPRINT A$(),
: STOP
0690 NEXT I
: RETURN
0710 DEFFN'30
: INIT(00)D$()
: FOR I=2TO 255
: ADD(D$(I),01)
: ADD(D$(I),D$(I-1))
: NEXT I
: RETURN
0780 DEFFN'15
: LOAD DC T"START"50