image of READY prompt

Wang2200.org

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

# Sector sector 678, program filename = 'BDIAG22 '
0020 PRINT AT(07,32);"ROTATE......... <-- TESTING",
0080 S=SPACE
0090 DIM A$17,B$3,C$3,D$1,A$(256)1,B$(256)1,C$(256)1,D$(256)1
0100 A$=ALL(01)
   : FOR I=-8TO 8
   : ROTATE(STR(A$,I+9,1),I)
   : NEXT I
   : IF A$<>HEX(0102040810204080010204081020408001)THEN 8990
0110 B$=HEX(0000FF)
   : FOR I=-8TO 8
   : C$=HEX(00FF00)
   : ROTATEC(C$,I)
   : IF C$<>B$THEN 8990
   : B$=ADDCB$
   : NEXT I
0120 B$,C$=HEX(000005)
   : FOR I=1TO 32
   : ROTATEC(C$,1)
   : IF B$<HEX(800000)THEN B$=ADDCB$
   : ELSE B$=ADDCB$ADDCHEX(01)
   : IF C$<>B$THEN 8990
   : NEXT I
0130 FOR I=1TO 255
   : D$(I)=BIN(I-1)
   : NEXT I
0140 B$()=D$()
   : FOR I=-8TO 8
   : A$()=D$()
   : ROTATE(A$(),I)
   : IF A$()<>B$()THEN 8990
   : C$()=B$()AND ALL(80)
   : ROTATE(C$(),1)
   : B$()=ADDB$()ADDC$()
   : NEXT I
0150 B$()=D$()
   : FOR I=1TO 16
   : ROTATEC(D$(),01)
   : IF B$(1)<HEX(80)THEN B$()=ADDCB$()
   : ELSE B$()=ADDCB$()ADDCHEX(01)
   : NEXT I
8980 I=SPACE
   : IF I=STHEN 9000
8990 E(22)=E(22)+1
9000 PRINT AT(07,48,16);
   : IF E(22)=0THEN PRINT "OK";
   : ELSE PRINT E(22);"ERRORS"
9010 LOAD DC T"BDIAG23 "