Listing of file='WCPD210A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 552, program filename = 'WCPD210A' 0010 REM . WCPD210A, 00-00 (6/28/75), 12002 0100 DIM N$1,A$64,M$1,B$64,C$1,D$5,X$(3)5 : PRINT " TESTING ROTATE ......................"; : C$=HEX(00) : N$="A" : M$="B" : 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 800 : FOR I=1TO 4 0250 ROTATE(A$,2) : NEXT I : IF A$<>B$THEN 800 : FOR I=1TO 8 : ROTATE(A$,3) : NEXT I : IF A$<>B$THEN 800 : FOR I=1TO 2 : ROTATE(A$,4) : NEXT I : IF A$<>B$THEN 800 : FOR I=1TO 8 : ROTATE(A$,5) : NEXT I : IF A$<>B$THEN 800 : FOR I=1TO 4 : ROTATE(A$,6) : NEXT I : IF A$<>B$THEN 800 : FOR I=1TO 8 : ROTATE(A$,7) : NEXT I : IF A$<>B$THEN 800 0480 ROTATE(A$,1) : ROTATE(A$,7) : IF A$<>B$THEN 800 : ROTATE(STR(A$,1,64),2) : ROTATE(STR(A$,1),6) : IF A$<>B$THEN 800 : ROTATE(A$,3) : ROTATE(A$,5) : IF A$<>B$THEN 800 : D$=HEX(0001FEA5FF) : ROTATE(D$,1) : IF D$<>HEX(0002FD4BFF)THEN 800 : ROTATE(D$,2) : IF D$<>HEX(0008F72DFF)THEN 800 0620 ROTATE(D$,3) : IF D$<>HEX(0040BF69FF)THEN 800 : ROTATE(D$,4) : IF D$<>HEX(0004FB96FF)THEN 800 : ROTATE(D$,5) : IF D$<>HEX(00807FD2FF)THEN 800 : ROTATE(D$,6) : IF D$<>HEX(0020DFB4FF)THEN 800 : ROTATE(D$,7) : IF D$<>HEX(0010EF5AFF)THEN 800 : X$(2)=HEX(0102040810) 0730 ROTATE(STR(X$(2),2,3),4) : IF X$(2)<>HEX(0120408010)THEN 800 : IF N$<>"A"THEN 800 : IF M$<>"B"THEN 800 : IF E(2)<>0THEN 810 : PRINT "OK" : GOTO 830 0800 E(2)=E(2)+1 0810 E9$(P9)="NG" : PRINT TAB(40);E(2);"ERRORS" 0830 LOAD DC T#6,"WCPD220A" 0840 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"