Listing of file='OP5D120A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 481, program filename = 'OP5D120A'
0010 REM . OP5D120A, 00-00 (6/28/75), 12002
0100 PRINT "MAT SORT DIAGNOSTIC #1 (COMATF13)..";
: DIM A$(4,25)1,B$(100)2,W$(2,50)2,C$36,C$(200)2
0120 DEFFNR(X)=VAL(STR(B$(X),1,1))
0130 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 290
: E(13)=E(13)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(13);"ERRORS"
0280 LOAD DC T#6,"OP5D130A"
0290 NEXT I
: INIT("#")C$()
: MAT SORTA$()TO W$(),C$()
: FOR I=1TO 100
: IF B$(I)=C$(I)THEN 380
: E(13)=E(13)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(13);"ERRORS"
: LOAD DC T#6,"OP5D130A"
0380 NEXT I
: FOR I=102TO 200
: IF C$(I)="##"THEN 450
: E(13)=E(13)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(13);"ERRORS"
: LOAD DC T#6,"OP5D130A"
0450 NEXT I
: DIM E$(10)2,W1$(10)2,F$(10)2,K$1
: K$="0"
: FOR I=1TO 10
: E$(I)=K$
: ADD(K$,01)
: NEXT I
: MAT SORTE$()TO W1$(),F$()
0530 DEFFNM(X)=VAL(STR(F$(X),1,1))
: FOR I=1TO 9
: IF E$(FNM(I))<E$(FNM(I+1))THEN 600
: E(13)=E(13)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(13);"ERRORS"
: LOAD DC T#6,"OP5D130A"
0600 NEXT I
: PRINT "O.K."
: LOAD DC T#6,"OP5D130A"
0630 DEFFN'15
: COM CLEAR
: LOAD DC T#6,"START"