Listing of file='M3' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 147, program filename = 'M3' 0010 COM H7$8 : DIM X$1,E$2 0020 E$=HEX(07DC) : ADDC(E$,STR(H7$,2,2)) : ADDC(E$,STR(H7$,2,2)) 0030 HEXPRINT H7$; : PRINT " "; : HEXPRINT E$; 0040 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 0060 PRINT " BOARD";A+1; 0080 A=0 : FOR I=1TO 8 : X$=H7$ : AND (X$,80) : IF STR(X$,1,1)=HEX(00)THEN 130 : A=I+4 0130 ROTATE(STR(H7$,1,1),1) : NEXT I : IF A=0THEN 180 0150 A=A-8*INT((A-1)/8) : PRINT ,"CHIP # ";A+B;" IS BAD" 0160 IF STR(H7$,4,1)=HEX(00)THEN 190 : ADDC(E$,STR(H7$,4,2)) : STR(H7$,4,1)=HEX(00) : PRINT " OR POSSIBLY "; : HEXPRINT E$; : GOTO 40 0180 PRINT " MEMORY PROBLEM, NOT DECODABLE" 0190 LOAD DC T"M0"