Listing of file='WCPD200A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 59, program filename = 'WCPD200A' 0010 REM . WCPD200A, 00-00 (06/28/75), 12002 : 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 " TESTING AND,OR,XOR .................."; : M$="A" : N$="B" 0140 A$,B$=HEX(00FFA55AB33B1EE12DD24BB469967887) : AND (A$,FF) : IF A$<>B$THEN 390 0160 AND (A$,STR(A$,1,16)) : IF A$<>B$THEN 390 : OR (STR(A$,1),B$) : IF A$<>B$THEN 390 : OR (A$,00) : IF A$<>B$THEN 390 : P$=HEX(00) : J=16 : AND (A$,00) : GOSUB 380 : A$=B$ : XOR (A$,FF) : C$=A$ : A$=B$ : AND (A$,C$) : GOSUB 380 : P$=HEX(FF) 0250 A$=B$ : OR (A$,FF) : GOSUB 380 : A$=B$ : OR (A$,C$) : GOSUB 380 : A$=B$ : XOR (A$,C$) : GOSUB 380 : A$=B$ : ADD(A$,C$) : GOSUB 380 0290 IF M$<>"A"THEN 390 : IF N$<>"B"THEN 390 : OR (A1$(1),1E) : FOR I=1TO 63 : IF STR(A1$(1),I,1)<>HEX(3E)THEN 390 : NEXT I : XOR (Z$,A5) : FOR I=1TO 64 : IF STR(Z$,I,1)<>HEX(85)THEN 390 : NEXT I : AND (M$,CE) : IF M$<>HEX(40)THEN 390 0350 AND (STR(A1$(2),1,16),00) : OR (A1$(2),B$) : IF A1$(2)<>B$THEN 390 : PRINT "OK" : GOTO 410 0380 FOR I=1TO J : IF STR(A$,I,1)<>P$THEN 390 : NEXT I : RETURN 0390 E(1)=E(1)+1 0400 PRINT TAB(40);E(1);"ERRORS" 0410 LOAD DC T"WCPD210A" 0420 DEFFN'15 : LOAD DC T"START"50