Listing of file='WCPD220A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 474, program filename = 'WCPD220A' 0010 REM . WCPD220A, 00-00 (6/28/75), 12002 0100 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 : ADDC(A$,01) : ADD(B$,01) : IF VAL(STR(A$,3))<>ITHEN 580 : IF STR(A$,1,2)<>HEX(0000)THEN 580 0200 IF VAL(B$)<>ITHEN 580 : IF VAL(STR(B$,2))<>ITHEN 580 : IF VAL(STR(B$,3))<>ITHEN 580 : NEXT I : ADDC(A$,01) : IF A$<>HEX(000100)THEN 580 : OR (C$,FF) : STR(C$,64)=HEX(15) : ADDC(C$,EB) : FOR I=1TO 64 : IF STR(C$,I,1)<>HEX(00)THEN 580 : NEXT I : OR (D$,71) : ADD(STR(D$,2,14),8F) 0340 IF STR(D$,1,1)<>HEX(71)THEN 580 : IF STR(D$,16)<>HEX(71)THEN 580 : FOR I=2TO 15 : IF STR(D$,I,1)<>HEX(00)THEN 580 : NEXT I : G$,E$(2)=HEX(0023FE81D4897801C23A14FF1E2D0056) : F$=HEX(FFDC01961439FD8709C21000E1DFBEA1) 0410 H$=HEX(000000D8170C8A773403DB) : I$=HEX(00F45219) : ADDC(F$,E$(2)) : ADDC(STR(F$,1,11),H$) : ADD(STR(F$,13),STR(I$,2,3)) : 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 580 : NEXT I 0530 IF M$<>"A"THEN 580 : IF N$<>"B"THEN 580 : IF E(3)<>0THEN 600 : PRINT "OK" : GOTO 610 0580 E(3)=E(3)+1 : E9$(P9)="NG" 0600 PRINT TAB(40);E(3);"ERRORS" 0610 LOAD DC T#6,"WCPD230A" 0620 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"