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"