image of READY prompt

Wang2200.org

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

# Sector sector 684, program filename = 'BSORT1  '
0020 PRINT AT(1,00);"MATCOPY........ <-- TESTING",
0030 S=SPACE
0090 DIM A$1,B$9,C$17,D$5,A$(256)1,B$(16,8)2,C$(8)32
0100 B$=ALL(".")
   : A$="X"
   : MAT COPY A$TO STR(B$,2,1)
   : MAT COPY -A$TO STR(B$,4,1)
   : MAT COPY A$TO -STR(B$,6,1)
   : MAT COPY -A$TO -STR(B$,8,1)
   : IF B$<>".X.X.X.X."THEN 8990
0110 C$=ALL(".")
   : A$="X"
   : MAT COPY A$TO STR(C$,2,3)
   : MAT COPY -A$TO STR(C$,6,3)
   : MAT COPY A$TO -STR(C$,10,3)
   : MAT COPY -A$TO -STR(C$,14,3)
   : IF C$<>".X  .X  .  X.  X."THEN 8990
0120 C$=ALL(".")
   : D$="ABCDE"
   : MAT COPY D$TO STR(C$,2,3)
   : MAT COPY -D$TO STR(C$,6,3)
   : MAT COPY D$TO -STR(C$,10,3)
   : MAT COPY -D$TO -STR(C$,14,3)
   : IF C$<>".ABC.EDC.CBA.CDE."THEN 8990
0130 FOR I=1TO 256
   : A$(I)=BIN(I-1)
   : NEXT I
   : C$()=A$()
   : MAT COPY A$()TO B$()
   : IF A$()<>C$()OR B$()<>C$()THEN 8990
0140 MAT COPY A$()TO STR(A$(),2)
   : IF POS(A$()<>HEX(00))<>0THEN 8990
0150 FOR I=1TO 256
   : MAT COPY STR(B$(),1,I)TO A$()
   : IF A$()<>STR(B$(),1,I)THEN 8990
   : NEXT I
8980 X=SPACE
   : IF S=XTHEN 9000
8990 E(1)=E(1)+1
9000 PRINT AT(1,16,16);
   : IF E(1)=0THEN PRINT "OK"
   : ELSE PRINT E(1);"ERRORS"
9010 LOAD DC T"BSORT2"