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"