Listing of file='BSORT5' on disk='vmedia/732-0050A.wvd.zip'
# Sector 159, program filename = 'BSORT5'
0020 PRINT AT(5,00);"MATSORT........ <-- TESTING",
0030 S=SPACE
0090 DIM A$(5)5,L$(5)2,W$(5)2,L$10,A1$(1,1)1,A2$(4,5)1,L2$(11,2)2,Z$64,A3$(20)
1,S$(256)2,T$(256)2,Q$(256)2,U$(256)2
0100 A$()="1532424243334154213151552"
: DATA HEX(00010002000300040005),HEX(00050004000300020001),HEX(000400020001
00030005),HEX(00030001000400020005),HEX(00040005000200010003)
0110 RESTORE LINE100
: FOR I=1TO 5
: L$()=ALL(FF)
: MAT SORTA$()(I)TO W$(),L$()
: READ L$
: IF L$()<>L$THEN 8990
: NEXT I
0120 A$()="AAAAEAAAADAAAACAAAABAAAAA"
: L$()=ALL(FF)
: MAT SORTA$()TO W$(),L$()
: IF L$()<>HEX(00050004000300020001)THEN 8990
0130 A1$()="A"
: L$()=ALL(FF)
: MAT SORTA1$()TO W$,L$()
: IF L$()<>HEX(01010000FFFFFFFFFFFF)THEN 8990
0140 A$()="AAAAEAAAADAAAACAAAABAAAAA"
: L$()=ALL(FF)
: MAT SORTA$()(3)TO W$(),L$()
: IF L$()<>HEX(00050004000300020001)THEN 8990
0150 A$()="AAAAEAAAADAAAACAAAABAAAAA"
: L$()=ALL(FF)
: MAT SORTA$()(3,3)TO W$(),L$()
: IF L$()<>HEX(00050004000300020001)THEN 8990
0160 A2$()="739820AJ4C6E51FGHBDI"
: L2$()=ALL(FF)
: MAT SORTA2$()TO Z$,L2$()
: IF L2$()<>HEX(02010304010501020204030303010101010401030202040302050404030
2030504010402040502030000FFFF)THEN 8990
0170 MAT MOVE A2$(),L2$()TO A3$()
: IF A3$()<>"0123456789ABCDEFGHIJ"THEN 8990
0200 FOR I=2TO 100
: MAT REDIM S$(I)2
: FOR J=1TO I
: CONVERT RND(1)*100TO S$(J),(##)
: NEXT J
: MAT SORTS$()TO U$(),Q$()
: MAT MOVE S$(),Q$()TO T$()
: FOR J=1TO I-1
: IF T$(J)>T$(J+1)THEN 8990
: NEXT J,I
0210 FOR I=120TO 256STEP 17
: MAT REDIM S$(I)2
: FOR J=1TO I
: CONVERT RND(1)*100TO S$(J),(##)
: NEXT J
: MAT SORTS$()TO U$(),Q$()
: MAT MOVE S$(),Q$()TO T$()
: FOR J=1TO I-1
: IF T$(J)>T$(J+1)THEN 8990
: NEXT J,I
0300 FOR I=1TO 256
: S$(I)=BIN(256-I,2)
: NEXT I
: MAT SORTS$()TO U$(),Q$()
: MAT MOVE S$(),Q$()TO T$()
: FOR I=1TO 256
: IF VAL(T$(I),2)<>I-1THEN 8990
: NEXT I
8980 X=SPACE
: IF S=XTHEN 9000
8990 E(5)=E(5)+1
9000 PRINT AT(5,16,16);
: IF E(5)=0THEN PRINT "OK"
: ELSE PRINT E(5);"ERRORS"
9010 LOAD DC T"BSORT6"