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"