Listing of file='BSORT1 ' on disk='vmedia/mvp-diag-3.5.wvd.zip'
# Sector 684, program filename = 'BSORT1' 0020 PRINT AT(1,00);"MATCOPY........ <-- TESTING", 0030 S=SPACE 0090 DIM A$1,B$9,C$17,D$5,A$(256)1,B$(16,8)2,C$(8)32 0100 B$=ALL(".") : A$="X" : MAT COPY A$TO STR(B$,2,1) : MAT COPY -A$TO STR(B$,4,1) : MAT COPY A$TO -STR(B$,6,1) : MAT COPY -A$TO -STR(B$,8,1) : IF B$<>".X.X.X.X."THEN 8990 0110 C$=ALL(".") : A$="X" : MAT COPY A$TO STR(C$,2,3) : MAT COPY -A$TO STR(C$,6,3) : MAT COPY A$TO -STR(C$,10,3) : MAT COPY -A$TO -STR(C$,14,3) : IF C$<>".X .X . X. X."THEN 8990 0120 C$=ALL(".") : D$="ABCDE" : MAT COPY D$TO STR(C$,2,3) : MAT COPY -D$TO STR(C$,6,3) : MAT COPY D$TO -STR(C$,10,3) : MAT COPY -D$TO -STR(C$,14,3) : IF C$<>".ABC.EDC.CBA.CDE."THEN 8990 0130 FOR I=1TO 256 : A$(I)=BIN(I-1) : NEXT I : C$()=A$() : MAT COPY A$()TO B$() : IF A$()<>C$()OR B$()<>C$()THEN 8990 0140 MAT COPY A$()TO STR(A$(),2) : IF POS(A$()<>HEX(00))<>0THEN 8990 0150 FOR I=1TO 256 : MAT COPY STR(B$(),1,I)TO A$() : IF A$()<>STR(B$(),1,I)THEN 8990 : NEXT I 8980 X=SPACE : IF S=XTHEN 9000 8990 E(1)=E(1)+1 9000 PRINT AT(1,16,16); : IF E(1)=0THEN PRINT "OK" : ELSE PRINT E(1);"ERRORS" 9010 LOAD DC T"BSORT2"