Listing of file='WCPD250A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 521, program filename = 'WCPD250A' 0010 REM . WCPD250A, 00-00 (06/28/75), 12002 : DIM A$1,B$1,C$64 : PRINT " TESTING VAL,BIN ....................."; : A$=HEX(00) : FOR I=0TO 255 : IF VAL(A$)<>ITHEN 220 : BIN(B$)=I : IF B$<>A$THEN 220 : ADD(A$,01) : NEXT I 0180 FOR I=1TO 64 : BIN(STR(C$,I,1))=I : IF I<>(VAL(STR(C$,I)))+1-1THEN 220 : NEXT I : PRINT "OK" : GOTO 240 0220 E(1)=E(1)+1 0230 PRINT TAB(40);E(1);"ERRORS" 0240 LOAD DC T"WCPD260A" 0250 DEFFN'15 : LOAD DC T"START"50