Listing of file='BDIAG22' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'
# Sector 2980, 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 "