Listing of file='OP5D030A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 473, program filename = 'OP5D030A'
0010 REM . OP5D030A, 00-00 (06/28/75), 12002
: DIM A(10),A$(10)2,W$(10)2,S$(10)2,B$(1,1)
: DIM C$(50,10)2,W1$(10,50)2,S1$(50,10)2,D$(25,20)2
: PRINT "MAT SORT",
: GOSUB '40(0,1,2,3,4,5,6,7,8,9)
0140 GOSUB '40(9,8,7,6,5,4,3,2,1,0)
: GOSUB '40(1,0,3,2,5,4,7,6,9,8)
0160 GOSUB '40(0,1,0,1,0,1,0,1,0,1)
: GOSUB '40(0,0,0,0,0,1,1,1,1,1)
: GOSUB '40(0,9,1,8,2,7,3,6,4,5)
: FOR K=1TO 10
: FOR L=1TO 10
: A(L)=INT(RND(1)*10)
: NEXT L
: GOSUB '41
: NEXT K
: INIT(00)S$()
: MAT SORTB$()TO W$(),S$()
0220 IF S$(1)<>HEX(0101)THEN 280
: FOR I=1TO 50
: FOR J=1TO 10
: FOR K=1TO 2
: BIN(STR(C$(I,J),K))=INT(RND(1)*26)+65
: NEXT K
: NEXT J
: NEXT I
0260 MAT SORTC$()TO W1$(),S1$()
: GOSUB 360
: PRINT "OK"
: GOTO 300
0280 E(4)=E(4)+1
0290 PRINT TAB(40);E(4);"ERRORS"
0300 LOAD DC T"OP5D040A"
0310 DEFFN'40(A(1),A(2),A(3),A(4),A(5),A(6),A(7),A(8),A(9),A(10))
0320 DEFFN'41
: MAT CONVERT A()TO A$()
: MAT SORTA$()TO W$(),S$()
0340 FOR I=1TO 9
: IF A(VAL(S$(I)))>A(VAL(S$(I+1)))THEN 280
: IF STR(S$(I),2)<>HEX(01)THEN 280
: NEXT I
: RETURN
0360 FOR I=1TO 50
: FOR J=1TO 9
: IF S1$(I,J)=HEX(0000)THEN 410
: IF S1$(I,J+1)=HEX(0000)THEN 410
: IF C$(VAL(S1$(I,J)),VAL(STR(S1$(I,J),2)))>C$(VAL(S1$(I,J+1)),VAL(STR(S1$(
I,J+1),2)))THEN 280
: NEXT J
: IF S1$(I,10)=HEX(0000)THEN 420
: NEXT I
: RETURN
0410 J=9
: NEXT J
0420 I=50
: NEXT I
: RETURN
0430 DEFFN'15
: LOAD DC T"START"50