Listing of file='M4 ' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 162, program filename = 'M4' 0010 COM D$(1)6 : DIM X$1,E$2 0020 N=.5*(256-VAL(STR(H7$,5))) : E$=HEX(07DC) : ADDC(E$,STR(H7$,2,2)) : ADDC(E$,STR(H7$,2,2)) 0030 HEXPRINT H7$; : PRINT " PROBABLE RANGE AS FOLLOWS:" : IF STR(D$(1),4,1)=HEX(00)THEN 40 : ADDC(E$,STR(D$(1),4,2)) : N=2*N 0040 FOR I=1TO N : B=INT(VAL(E$)/32) : A=INT(B/2) : B=16*(B-2*A) 0050 X$=STR(E$,2) : AND (X$,10) : B=8-VAL(X$)/2+B 0070 STR(B$,4*A+.125*B+1,1)="*" 0080 ADDC(E$,02) : NEXT I : FOR I=1TO 16 : IF STR(B$,I,1)=" "THEN 130 : A=INT((I-1)*.25) : B=(I-1-4*A)*8 0100 PRINT " BOARD";A+1; 0110 PRINT " BAD CHIP PROBABLE RANGE IS (#";B+1;" TO #";B+8;")" 0130 NEXT I 0191 LOAD DC T"M0"