Listing of file='BSORT2' on disk='vmedia/732-0050A.wvd.zip'
# Sector 835, program filename = 'BSORT2' 0020 PRINT AT(2,00);"MATSEARCH...... <-- TESTING", 0030 S=SPACE 0090 DIM B$(6)2,B$2,C$(1)1,A$1,C$6,X$(256)1,Y$(16),Z$(1,4)64,Q$(132,8)5 0100 B$()=ALL(FF) : B$,C$()=HEX(B3) : A$="3" : MAT SEARCHA$,<"3"TO B$(1) : MAT SEARCHA$,<="3"TO B$(2) : MAT SEARCHA$,=HEX(32)TO B$(3) : MAT SEARCHSTR(A$),>=HEX(33)TO B$(4) : MAT SEARCHSTR(A$,1),>C$()TO B$(5) : MAT SEARCHSTR(A$,1,1),<>B$TO B$(6) : IF B$()<>HEX(000000010000000100000001)THEN 8990 0110 B$()="ABCDE" : C$=ALL(FF) : MAT SEARCHB$(),="ABCDEF"TO C$ : IF C$<>HEX(0000FFFFFFFF)THEN 8990 0120 B$()="ABCDE" : C$=ALL(FF) : MAT SEARCHB$(),="A"TO C$ : IF C$<>HEX(00010000FFFF)THEN 8990 0130 B$()="ABCDE" : C$=ALL(FF) : MAT SEARCHB$(),>"A"TO C$ : IF C$<>HEX(000200030004)THEN 8990 0140 B$()="AAA A" : B$="A" : C$=ALL(FF) : MAT SEARCHB$(),=B$TO C$ : IF C$<>HEX(000100020003)THEN 8990 0150 B$()="AAA A" : B$="A" : C$=ALL(FF) : MAT SEARCHB$(),=STR(B$)TO C$ : IF C$<>HEX(000300050000)THEN 8990 0160 B$()="A A " : C$=ALL(FF) : MAT SEARCHSTR(B$(),1,7),="A "TO C$ : IF C$<>HEX(00010000FFFF)THEN 8990 0170 A$="X" : MAT SEARCHA$,="A "TO B$ : IF B$<>HEX(0000)THEN 8990 0200 FOR I=1TO 256 : X$(I)=BIN(I-1) : NEXT I 0210 FOR I=1TO 255 : A$=BIN(I-1) : MAT SEARCHX$(),>A$TO B$ : IF VAL(B$,2)<>I+1THEN 8990 : NEXT I 0220 MAT COPY X$()TO -Y$() : FOR I=1TO 255 : A$=BIN(I) : MAT SEARCHY$(),<A$TO B$ : IF VAL(B$,2)<>257-ITHEN 8990 : NEXT I 0230 Z$()=X$() : MAT SEARCHZ$(),=X$()TO B$ : IF B$<>HEX(0001)THEN 8990 0300 C$="AAAAAA" : D$=" " : MAT SEARCHC$,="A"TO D$STEP 1 : IF D$<>HEX(0001000200030004000500060000)THEN 8990 0310 C$="AAAAAA" : D$=" " : MAT SEARCHC$,="A"TO D$STEP 1.9 : IF D$<>HEX(0001000200030004000500060000)THEN 8990 0320 C$="AAAAAA" : D$=" " : MAT SEARCHC$,="A"TO D$STEP 2 : IF D$<>HEX(0001000300050000)THEN 8990 0330 C$="AAAAAA" : D$=" " : MAT SEARCHC$,="A"TO D$STEP 3 : IF D$<>HEX(000100040000)THEN 8990 0340 C$="AAAAAA" : D$=" " : MAT SEARCHC$,="A"TO D$STEP 4 : IF D$<>HEX(000100050000)THEN 8990 0350 C$="AAAAAA" : D$=" " : MAT SEARCHC$,="A"TO D$STEP 5 : IF D$<>HEX(000100060000)THEN 8990 0360 C$="AAAAAA" : D$=" " : MAT SEARCHC$,="A"TO D$STEP 6 : IF D$<>HEX(00010000)THEN 8990 0370 D$=" " : MAT SEARCHX$(),<>HEX(0002)TO D$STEP 100 : IF D$<>HEX(0001006500C90000)THEN 8990 0380 B$(),Y$()=" " : Y$(1)=" ABCDE" : Y$(2)="ABCDE" : Y$(3)="ABCDEF" : Y$(4)="ABCDE" : Y$(16)="ABCDE" : MAT SEARCHY$(),="ABCDE "TO B$()STEP 16 : IF B$()<>HEX(0011003100F10000)THEN 8990 0390 Y$(),B$()=" " : MAT SEARCHY$(),=" "TO B$()STEP 255 : IF B$()<>HEX(000101000000)THEN 8990 0400 Y$(),B$()=" " : MAT SEARCHY$(),=" "TO B$()STEP 65535 : IF B$()<>HEX(00010000)THEN 8990 0410 Q$(),B$()=" " : MAT SEARCHQ$(),=" "TO B$()STEP 256 : IF B$()<>HEX(000101010201030104010501)THEN 8990 8980 X=SPACE : IF S=XTHEN 9000 8990 E(2)=E(2)+1 9000 PRINT AT(2,16,16); : IF E(2)=0THEN PRINT "OK" : ELSE PRINT E(2);"ERRORS" 9010 LOAD DC T"BSORT3"