Listing of file='OP5D100A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 689, program filename = 'OP5D100A' 0010 REM . OP5D100A, 00-00 (6/28/75), 12002 0100 PRINT "MAT MERGE DIAGNOSTIC #4 (COMATF11).."; : 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 0180 MAT MERGEA$()TO W1$(),W2$(),B$() : IF B$(1)=HEX(0000)THEN 270 : 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 180 0270 GOSUB '70 : PRINT "O.K." : LOAD DC T#6,"OP5D110A" 0300 DEFFN'40 : INIT(FF)A$() : I=1 0330 J=1 0340 FOR K=1TO 4 0350 R=INT(RND(4)*1000)+1 : IF R>255THEN 350 : STR(A$(I,J),K,1)=D$(R) : NEXT K : J=J+1 : IF J<6THEN 340 : I=I+1 : IF I<4THEN 330 : RETURN 0440 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 570 : E(11)=E(11)+1 : PRINT TAB(40);E(11);"ERRORS" : E9$(P9)="NG" : LOAD DC T#6,"OP5D110A" 0570 NEXT I : RETURN 0590 DEFFN'60 : FOR I=1TO 3 : FOR J=1TO 4 : IF A$(I,J)<=A$(I,J+1)THEN 660 : PRINT TAB(40);"ERROR IN VERIFY A$() =" : HEXPRINT A$(), : STOP 0660 NEXT J : NEXT I : RETURN 0690 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 800 : PRINT TAB(40);"ERROR IN MERGE A$() =" : HEXPRINT A$(), : STOP 0800 NEXT I : RETURN 0820 DEFFN'30 : INIT(00)D$() : FOR I=2TO 255 : ADD(D$(I),01) : ADD(D$(I),D$(I-1)) : NEXT I : RETURN 0890 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"