image of READY prompt

Wang2200.org

Listing of file='BSORT2' on disk='vmedia/mvp-diag-3.5.wvd.zip'

# Sector 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"