Listing of file='WCPD200A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 664, program filename = 'WCPD200A' 0010 REM . WCPD200A, 00-00 (6/28/75), 12002 0100 DIM M$1,A$16,N$1,P$1,D$(3,4)1,A1$(3)63,Z$64 : FOR I=1TO 100 : NEXT I : PRINT HEX(03); : PRINT " TESTING AND,OR,XOR .................."; : M$="A" : N$="B" : A$,B$=HEX(00FFA55AB33B1EE12DD24BB469967887) : AND (A$,FF) 0190 IF A$<>B$THEN 710 : AND (A$,STR(A$,1,16)) : IF A$<>B$THEN 710 : OR (STR(A$,1),B$) : IF A$<>B$THEN 710 : OR (A$,00) : IF A$<>B$THEN 710 : P$=HEX(00) : J=16 : AND (A$,00) : GOSUB 670 : A$=B$ : XOR (A$,FF) : C$=A$ : A$=B$ : AND (A$,C$) : GOSUB 670 : P$=HEX(FF) : A$=B$ 0380 OR (A$,FF) : GOSUB 670 : A$=B$ : OR (A$,C$) : GOSUB 670 : A$=B$ : XOR (A$,C$) : GOSUB 670 : A$=B$ : ADD(A$,C$) : GOSUB 670 : IF M$<>"A"THEN 710 : IF N$<>"B"THEN 710 : OR (A1$(1),1E) : FOR I=1TO 63 : IF STR(A1$(1),I,1)<>HEX(3E)THEN 710 : NEXT I : XOR (Z$,A5) : FOR I=1TO 64 0570 IF STR(Z$,I,1)<>HEX(85)THEN 710 : NEXT I : AND (M$,CE) : IF M$<>HEX(40)THEN 710 : AND (STR(A1$(2),1,16),00) : OR (A1$(2),B$) : IF A1$(2)<>B$THEN 710 : IF E(1)<>0THEN 720 : PRINT "OK" : GOTO 740 0670 FOR I=1TO J : IF STR(A$,I,1)<>P$THEN 710 : NEXT I : RETURN 0710 E(1)=E(1)+1 0720 E9$(P9)="NG" : PRINT TAB(40);E(1);"ERRORS" 0740 LOAD DC T#6,"WCPD210A" 0750 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"