Listing of file='OP5D120A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 440, program filename = 'OP5D120A'
0010 REM . OP5D120A, 00-00 (06/28/75), 12002
: PRINT "MAT SORT DIAGNOSTIC #1 (COMATF13)..";
: DIM A$(4,25)1,B$(100)2,W$(2,50)2,C$36,C$(200)2
0130 DEFFNR(X)=VAL(STR(B$(X),1,1))
0140 DEFFNC(X)=VAL(STR(B$(X),2,1))
: C$="ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
: FOR I=1TO 4
: FOR J=1TO 25
0170 X=INT(RND(I)*100)+1
: IF X>36THEN 170
: A$(I,J)=STR(C$,X,1)
: NEXT J
: NEXT I
: MAT SORTA$()TO W$(),B$()
: FOR I=1TO 99
: IF A$(FNR(I),FNC(I))<=A$(FNR(I+1),FNC(I+1))THEN 250
0240 E(4)=E(4)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(4);"ERRORS"
: LOAD DC T"OP5D130A"
0250 NEXT I
: INIT("#")C$()
: MAT SORTA$()TO W$(),C$()
: FOR I=1TO 100
0290 IF B$(I)=C$(I)THEN 310
: E(4)=E(4)+1
: PRINT TAB(40);E(4);"ERRORS"
: LOAD DC T"OP5D130A"
0310 NEXT I
: FOR I=102TO 200
: IF C$(I)="##"THEN 350
: E(4)=E(4)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(4);"ERRORS"
: LOAD DC T"OP5D130A"
0350 NEXT I
: DIM E$(10)2,W1$(10)2,F$(10)2,K$1
: K$="0"
: FOR I=1TO 10
0390 E$(I)=K$
: ADD(K$,01)
: NEXT I
: MAT SORTE$()TO W1$(),F$()
0420 DEFFNM(X)=VAL(STR(F$(X),1,1))
: FOR I=1TO 9
: IF E$(FNM(I))<E$(FNM(I+1))THEN 460
: E(4)=E(4)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(4);"ERRORS"
: LOAD DC T"OP5D130A"
0460 NEXT I
: PRINT "O.K."
: LOAD DC T"OP5D130A"
0490 DEFFN'15
: LOAD DC T"START"50