Listing of file='BSORT1' on disk='vmedia/732-0050A.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"