image of READY prompt

Wang2200.org

Listing of file='BSORT5' on disk='vmedia/mvp-diag-3.5.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"