Listing of file='WCPD210A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 640, program filename = 'WCPD210A' 0010 REM . WCPD210A, 00-00, (06/28/75), 12002 : DIM N$1,A$64,M$1,B$64,C$1,D$5,X$(3)5 : PRINT HEX(0D010A0A);" TESTING ROTATE ......................"; : C$=HEX(00) : N$="A" : M$="B" 0020 FOR I=1TO 64 : STR(A$,I,1)=C$ : ADD(C$,01) : NEXT I : B$=A$ : FOR I=1TO 8 : ROTATE(A$,1) : NEXT I : IF A$<>B$THEN 90 0030 FOR I=1TO 4 : ROTATE(A$,2) : NEXT I : IF A$<>B$THEN 90 : FOR I=1TO 8 : ROTATE(A$,3) : NEXT I : IF A$<>B$THEN 90 : FOR I=1TO 2 : ROTATE(A$,4) : NEXT I : IF A$<>B$THEN 90 : FOR I=1TO 8 : ROTATE(A$,5) : NEXT I : IF A$<>B$THEN 90 : FOR I=1TO 4 : ROTATE(A$,6) : NEXT I : IF A$<>B$THEN 90 0040 FOR I=1TO 8 : ROTATE(A$,7) : NEXT I : IF A$<>B$THEN 90 : ROTATE(A$,1) : ROTATE(A$,7) : IF A$<>B$THEN 90 0050 ROTATE(STR(A$,1,64),2) : ROTATE(STR(A$,1),6) : IF A$<>B$THEN 90 : ROTATE(A$,3) : ROTATE(A$,5) : IF A$<>B$THEN 90 : D$=HEX(0001FEA5FF) : ROTATE(D$,1) : IF D$<>HEX(0002FD4BFF)THEN 90 : ROTATE(D$,2) : IF D$<>HEX(0008F72DFF)THEN 90 0060 ROTATE(D$,3) : IF D$<>HEX(0040BF69FF)THEN 90 : ROTATE(D$,4) : IF D$<>HEX(0004FB96FF)THEN 90 : ROTATE(D$,5) : IF D$<>HEX(00807FD2FF)THEN 90 0070 ROTATE(D$,6) : IF D$<>HEX(0020DFB4FF)THEN 90 : ROTATE(D$,7) : IF D$<>HEX(0010EF5AFF)THEN 90 : X$(2)=HEX(0102040810) : ROTATE(STR(X$(2),2,3),4) : IF X$(2)<>HEX(0120408010)THEN 90 : IF N$<>"A"THEN 90 : IF M$<>"B"THEN 90 0080 PRINT "OK" : GOTO 100 0090 E(1)=E(1)+1 : PRINT TAB(40);E(2);"ERRORS" 0100 LOAD DC T"WCPD220A" 0110 DEFFN'15 : LOAD DC T"START"50