Listing of file='WCPD530A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 659, program filename = 'WCPD530A' 0010 REM . WCPD530A, 00-00 (06/28/75), 12002 : IF I<>2THEN 210 : IF A(1)<>1THEN 210 : IF A(2)<>4THEN 210 : IF B$(1)<>"A"THEN 210 : IF B$(2)<>"D"THEN 210 : IF C(1,1)<>2THEN 210 : IF C(1,2)<>3THEN 210 0140 IF C(2,1)<>5THEN 210 : IF C(2,2)<>6THEN 210 : IF D$(1,1)<>"B"THEN 210 : IF D$(1,2)<>"C"THEN 210 0160 IF D$(2,1)<>"E"THEN 210 : IF D$(2,2)<>"F"THEN 210 : IF A<>1THEN 210 : IF B<>2THEN 210 : IF C<>3THEN 210 : IF X(1)<>4THEN 210 : IF X(2)<>5THEN 210 : IF Y$="123"THEN 210 : COM CLEAR X() : LOAD DC T"WCPD540A" 0210 E(1)=E(1)+1 : LOAD DC T"WCPD540A" 0220 DEFFN'15 : LOAD DC T"START"50