Listing of file='WCPD220A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 515, program filename = 'WCPD220A' 0010 REM . WCPD220A, 00-00, (06/28/75), 12002 : DIM M$1,A$3,N$1,B$3,C$64,E$(3) : PRINT " TESTING ADD ........................."; : N$="B" : M$="A" : A$,B$=HEX(000000) : FOR I=1TO 255 0140 ADDC(A$,01) : ADD(B$,01) : IF VAL(STR(A$,3))<>ITHEN 360 : IF STR(A$,1,2)<>HEX(0000)THEN 360 0170 IF VAL(B$)<>ITHEN 360 : IF VAL(STR(B$,2))<>ITHEN 360 : IF VAL(STR(B$,3))<>ITHEN 360 : NEXT I : ADDC(A$,01) : IF A$<>HEX(000100)THEN 360 : OR (C$,FF) : STR(C$,64)=HEX(15) : ADDC(C$,EB) : FOR I=1TO 64 : IF STR(C$,I,1)<>HEX(00)THEN 360 : NEXT I 0240 OR (D$,71) : ADD(STR(D$,2,14),8F) : IF STR(D$,1,1)<>HEX(71)THEN 360 : IF STR(D$,16)<>HEX(71)THEN 360 0260 FOR I=2TO 15 : IF STR(D$,I,1)<>HEX(00)THEN 360 : NEXT I : G$,E$(2)=HEX(0023FE81D4897801C23A14FF1E2D0056) : F$=HEX(FFDC01961439FD8709C21000E1DFBEA1) : H$=HEX(000000D8170C8A773403DB) : I$=HEX(00F45219) 0300 ADDC(F$,E$(2)) : ADDC(STR(F$,1,11),H$) : ADD(STR(F$,13),STR(I$,2,3)) 0320 XOR (G$,FF) : ADD(E$(2),G$) : ADDC(E$(2),01) : F$=E$(2) : FOR I=1TO 16 : IF STR(F$,I,1)<>HEX(00)THEN 360 : NEXT I : IF M$<>"A"THEN 360 : IF N$<>"B"THEN 360 : PRINT "OK" : GOTO 380 0360 E(1)=E(1)+1 0370 PRINT TAB(40);E(3);"ERRORS" 0380 LOAD DC T"WCPD230A" 0390 DEFFN'15 : LOAD DC T"START"50